Digital PDFs

AH-8478D-MC

October 1985

77 pages

Original

3.3MB

view download

OCR Version

3.0MB

view download

Document:	CZDHID0 DH11 DH11 BRK HALF DUPLEX OCT 1985 bw
Order Number:	AH-8478D-MC
Revision:	000
Pages:	77
Original Filename:	CZDHID0__DH11__DH11_BRK__HALF_DUPLEX__AH-8478D-MC__OCT_1985_bw.pdf

OCR Text

ggym%%K & HALF DUPLEX

1A|'c|)-:417806'g:r o

Hlmn

- COPYRIGHT® 1972-85 MADE IN USA

o s

T13 w

OB IRNS WM

A »;CZ0MI-DO

MACRO VO4.00

27-JUN-85 13:08:01 PAGE 2

.REM

S€EQ

IDENTIFICATION

PRODUCT CODE:

AC-8476D-MC

PRODUCT NAME
:

CZDHIDO DH11 BREAK AND HALF DUPLEX TEST

OATE:

JUNE 1985

MAINTAINER:

MK NAC SOF TWARE ENGINEERING

THE INFORMATION IN THIS DOCUMENTY IS SUBJECT TD CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES
NG RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
DOCUMENT .

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIDGITAL OR
ITS AFFILIATED COMPANIES.

POV

IOV

WN -

CZOHI-DO

MACRO VO4.00

27-JUN-85 13:08:01 PAGE 3

ABSTRACT

THE DH11 BREAK AND HALF DUPLEX TEST CHECKS THE BREAK
CONTROL LOGIC OF THE DH11 AND VERIFIES THAT THE UARTS
RECEIVE ONLY ONE BREAK CHARACTER
ON A GIVEN
LINE NO MATTER HOW LONG BREAK IS ASSERTED.
THE TESY ALSO VERIFIES THAT NO CHARACTERS ARE

RECEIVED ON A A LINE IF THE HALF DUPLEX FUNCTION FOR
THAT LINE IS SELECTED.

SEQ 2

MACRO V04.00

27-JUN-85

13:08:01 PAGE 4

VR IRNE WA

CZOHI-DO

REQUIREMENTS

EQUIPMENT
POP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY
ASR-33 TELETYPE OR EQUIVALENT

DH11 ASYNCHRONOUS MULTIFLEXER
DM11 MAINTENANCE CARD INSTPLLED

STORAGE
THE PROGRAM LOADS INTO 4KW OF MEMORY

LOADING PROCEDURE

THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES
IS TO BE USED

STARTING PROCEDURE
CONTROL SWITCH SETTINGS
AFTER PROGRAM LOAD (INITIAL PROGRAM START)
ALL CONSOLE SWITCHES DOWN

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART

SW00=1

TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART
SWO1=1

STARTING ADDRESS

THE STARTING ADDRESS FOR ALL TESTS IS 000200
THE RESTART ADDRESS FOR ALL TESTS I 0002000

el
e

N H W

N
NN

LOAD PROGRAM INTO MEMORY
LOAD ADDRESS 000200
CLEAR CONSOLE SWITCHES
PRESS START
THE PROGRAM WILL TYPE “DH11 BREAK AND HALF -DUPLEX TEST*
AND WILL THEN TYPE "VECTOR ADDRESS-" AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD.

INITIAL PROGRAM START
el

PROGRAM AND/OR OPERATOR ACTION

obbbd

THE STARTING ADORESS TO ENTER A SELECTED TESY IS 000200

SEQ 3

SEQ 4

13:08:01 PAGE 5

4.3 (CONT'D)
4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
FOR THE DH11 TO BE TESTED FOLLOWED BY <CARRIASGE RETURN>

NOTE
:

WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT
THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STKUCK

IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM
WILL TYPE “?” AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5
THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-*
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE
DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED,

THE PROGRAM WILL TYPE

"7 AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7

THE PROGRAM WILL TYPE “R“ TO INDICATE THAT IT IS5
ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN

e
PR
o0

WWWWHW

4.3.4,

LOAD ADDRESS 000200
SET SWOi=1
PRESS START
THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 70 4.3.1.9

PROGRAM RESTART WITH SWO1=1

BN
-

W
WKW

PERFORM 4.3.1.2 T0 4.3.1.5
THE PROGRAM WILL TYPE “DH11l BREAK AND HALF-DUPLEX TEST”
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9

PROGRAM RESTART WITH SWOO=1

b
b

bbbdd

PROGRAM RESTART WITH ALL SWITCHES DOWN

hbdh

27-JUN-85

MACRO VO4.00

OB NOVBWN
-

CZOHI-DO

LOAD ADDRESS 000200
SET SWO1=}
PRESS START
THE PROGRAM WILL TYPE “DHi1 BREAK AND HALF-DUPLEX TEST~

AND WILL THEN TYPE “TEST PC-* AND WILL WAIT FOR AN INPUT
FROM THE TELETYPE KEYBOARD
TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO

BE STARTED FOLLOWED BY <CARRIAGE RETURN>
THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED
AND WILL START TESTING AT THE SELECTED TEST.

NOTE:

CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE
THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT
IS IN THE MIDDLE OF A TEST

NOTE:

IF IT 1S DESIRED TO LOOP ON THE TEST THAT IS SELECTED
SET SW14=1 BEFORE ENTERING THE TEST ADDRESS

VWVAVNND

SEQ 5

27-JUN-85 13:08:01 PAGE 6

OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS

SW15=1,
SW14=1,
SW13=1,
SWil=1,
SW10=1,
SW09=1,
SWO1=1,
SW00=1,

HALT ON ERROR
LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOUT
INHIBIT ITERATIONS
ESCAPE TO NEXT TEST ON ERROR
FREEZE VARIABLE PARAMETER IN CURRENT TEST
START PROGRAM wT SELECTED TEST
CrANGE PARAMETERS AT PROGRAM RESTART

5.2

SUBROUTINE ABSTRACTS

5.2.1

TRAPCATCHER (LOCATIONS 000000-000776)
THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS
AND TRAPS.
THE AREA FROM 000000-000776 IS LOADED
WITH THE FOLLOWING SEQUENCE
OdON

MACRO V04.00

bbb LWWHNWNWHWWWNRNONN

0 b ot o et et (o Pt et o

OONIOUO“NF'OOONOMDUJNH

CZOMI-DO

776
0

IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM
WILL MHALT WITH THE PC 2 GREATER THAN THE AULDRESS 10
WHICH THE PROGRAM TRAPPED.
THE PROCESSOR STACK MAY
BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE
TRAP OR INTERRUPT OCCURED.

5.2.2

START

(PROGRAM INITIALIZATION)

THIS ROUTINE INITIALIZES
ALL PROGRAM FLAGS AND COUNTERS,
TYPES THE PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR
AND CONTROL REGISTER ADORESSES OF THE DH1i TO BE TESTED.
5.2.3

BEGIN

(PROGRAM START AND RESTART)

THIS ROUTINE IS ENTERED IMMEDIATLY AFTER “START*
AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED.
THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD
AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH
TESTING WILL BEGIN.
IF SWO1=0 WHEN THIS ROUTINE IS ENTERD
TESTING MILL START AT T1 (TEST 1).
1IF SWOis1 WHEN
THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC
ENTERED FROM THE TELETYPE KEYBOARD

MACRO V04.00

SEQ 6

27-JUN-85 13:08:01 PAGE 7

5.2.4

EOP

(END OF PASS)

THIS ROQUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS
HAVE BEEN COMPLETED.
THIS ROUTINE TYPES THE MAINDEC

IPENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS
AND UPDATES THE PASS COUNT.
IF THE PROGRAM WAS LOADED
UNDER ACT11 OR DDP, THE ROUTINE CHECKS FOR RETURN TO
THE ACT11 OR DDP MONITOR.
IF THE PROGRAM IS NOT UNDER
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN.

ONEWN -

CZOHI DO

5.2.5

SCOPER

(SCOPE LOOP AND ITERATION HANDLER)

THIS ROUTINE IS ENTERED EACH TIME A TFST IS COMPLETED.
THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY
A) IF SW10=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST
IN SEQUENCE, AFTER CLEARING ERROR FLAGS.
B8) IF SWii=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST
SEQUENCE, AFTER CLEARING ERROR FLAGS.

C) IF SWi14=1,

THE ROUTINE WILL LOOP ON THE CURRENT TEST

REGARGLESS OF THE ITERATION COUNT.

IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1
TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED.
IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER
TO THE NEXT TEST IN SEQUENCE.
THE THE NUMBERS ARE NOT
EQUAL, HE TES) CURRENTLY IN PROGRESS MILL BE REPEATED.

5.2.6

SCOPIR

(FREEZE ON CURRENY DATA)

THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE
THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE
VARIABLE PARAMETERS.
THIS ROUTINE IS ALWAYS ENTERED IN
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS.
IF SW09=1, THE ROUTINE WILL TRANSFER CONTROL BACK 1O THE
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION

UNDER TEST CONTINUOUSLY WITH THE SAME DATA.
IF THIS
OPTION IS SELECTED, THE ROUTINE "SCOPER" IS NEVER ENTFRED
AND ITERATION COUNTS WILL NOT BE UPDATED.

—

NuwwinhoND
DN =0 P ud Pt ot Pt ot o Pn Pt
GRNFPOVINOVNIAWN-=O OOQOMONNPOOONQU\.“NP

CZOHI-DO

MACRO VO4.00

5EQ 7

27-JUN-85 13:08:01 PAGE 8

5.2.7

ERRORS

(ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
WITH ALL CONSOLE SWITCHFS DOWN, THE ROUTINE PROCEDES AS FOLLOWS:
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION
ITSELF IS FETCHED.
THE 8 LSB OF THE EMT
INSTRUCTION ARE THE ERROR CODE.
THIS CODE IS
USED 7O ACCESS A TABLE OF ERROR MESSAGES AND ERROR
DATA STORAGE LOCATIONS.

8) IF THE TEST THAT FAILED DYD NOT FAIL PREVIOUSLY
DURING THIS PASS,
A COMPLETE ERROR REPORT IS MADE
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER
IS TYPED.
IF SW13=1, NO ERROR TYPEQUT IS MADE.
C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR.
IF SW1S5=1
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO
THE ERROR ROUTINE IN RO.
IF SWiS=0, THE PROGRAM WILL
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST.
D) IF SWi0=0, THE ROUTINE WILL RETURN
TO THE TEST IN PROGRESS.
IF SW10=1, THE ROUTINE WILL
ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT
TEST IN SEQUENCE, THRU THE ROUTINE *“SCOPER”.
5.2.8

TRPSRV

(TRAP DECODE AND DISPATCH)

THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION
THAT CAUSED TH PROGRAM INTERRUPT, AND TRANSFERS CONTROL
TO THE ROUTINE THRU THE TABLE “TRPTAB* USING THE 8 LSB
OF THE TRAP INSTRUCTION AS
AN OFFSET TO THE POINTER TO
THE ROUTINE TO BE ENTERED.

C20HI-DO
1
2
3
4
5
6
?
8
9

MACRO VO4.00

5.3

PROGRAM AND OR OPERATOR ACTION

5.3.1

PROGRAM START WITH ALL SWITCHES DOWN

5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM
BEHAVIOR.

5.3.1.2 AFTER

AND THEN THE PROGRAM WILL

5.3.2

5.3.3

PROGRAM START WITH SW00=1
ANGC S5.3.1

PROGRAM START WITH SW0i=1

5.3.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR
5.3.3.2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED
AND WILL CONTINUVE AS DESCRIBED IN 5.3.1.2
5.3.3.3 AFTER "CZDHI” HAS BEEN TYPED,
RESUME TESTING AT TEST 1

5.3.4

THE PROGRAM WILL

PROGRAM OPERATION WITH SW15=1
SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR,
THE PROGRAM WILL HALT AFTER THE ERROR TYPEOUT, AND
THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE
DISPLAYED IN RO.

5.3.5

PROGRAM OPERATION WITH SW13si
SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS MWILL OCCUR

5.3.6

PROGRAM OPERATION WITH SWil=1
SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE

PROCEED TO THE NEXT TEST.

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1

0
51
52
53

SELECTED NUMBER

5.3.1.4 IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS.

41
42
43
44
45
46
47
48

TEST EXECUTION

BE REPEATED A

5.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM
WILL TYPE "CZDMI"” AND THEN RESTART TESTING AT TEST 1
(LOCATION T1 IN THE PROGRAM).

24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

EACH TEST WILL

OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST)

18
19
20
21
22

"R" HAS BEEN TYPED BY THE PROGRAM,

WILL BEGIN.

13
14
15
16

SEQ 8

27-JUN-85 13:08:01 PAGE 9

ONLY
5.3.7

PROGRAM OPERATION WITH SW10=1
SAME AS 5.3.1,

EXCEPT THAT IN THE CASE OF AN ERROR

THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM

WILL PROCEED TO THE NEXT TEST IN SEQUENCE.

MACRO V04.00

27-JUN-85 13:08:01 PAGE

5.3.8

PROGRAM OPERATION WITH SWi4=1,

OR SW09=1

THESE FUNCTIONS ARE NGRMALLY USED FOR TROUBLE SHOOTING.
SEE SECTION 6.3 FOR THEIR USE.

ERRORS
ERROR HALTS
THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEQUTS
IS AS FOLLOWS

PC+2

MESSAGE
HEADER (IF APPLICABLE)
DATA
(IF APPLICABLE)

WHERE
PC+2 IS THE ADORESS OF THE CALL TO THE ERROR HANDLER + 2
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW
DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE
IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME
PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY
OATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS

DN
ool
NURNUVRNEREablbsd

SEQ 9

(CONT'D)

B 52 =0 pub s b b Pt Pt o Pt

OOC\IOM&UNP‘OOONOM&WNM

CZOHI-DO

IF NO DATA IS ASSOCIATED WITH THE ERROR
THE COMPLETE ERROR MESSAGE IS TYPED.
6.1.1

ERROR DESCRIPTIONS
SEE LISTING FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

SW15=0

6.2.2

IF THE PROGRAM IS RUN WITH SWi5=0,
gsgglgfib TO CONTINUE TESTING

NO OPERATOT ACTION IS

IF THE PROGRAM IS RUN WITH SW15=1, TO CONTINUE TESTING
AFTER THE PROGRAM HAS HALTED, PRESS THE PROCESSOR
CONSOLE CONTINUE SWITCH
6.2.3

ILLEGAL INTERRUPTS
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT
SELECTED DURING PROGRAM INITIALIZATION, THE PROGRAM WILL
HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH
THE PROGRAM HALTS 1S 2 GREATER THAN THE ADDRESS
TO WHICH THE INTERRUPT OCCURED.
THE PROGRAM MUST BE
RESTARTED AT 200 TO RECOVER FROM THIS ERROR.

VB JRPNSWN
-

CZOHI-DO

MACRO VO4.00

SEQ 10

27-JUN-85 13:08:01 PAGE 11

SCOPE LOOPING

TO SCOPE ON A SPECIFIC TEST, SET SWid=1 AND SW13=1
THIS WILL CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE
SAME TEST, AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED
.3.2

TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN
A TEST, SET SW09=1 TO FREEZE THE DATA

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE)

(CONT'
D)
.3.3

PROGRAM START TO SCOPE LOOP ON SELECTED TEST
PERFORM SECTION 4.3.4 WITH SWi4=1

RESTRICTIONS

STARTING
THE DH11 TEST CARD MUST BE INSTALLED
RUNNING
NONE

MISCELLANEOUS

EXECUTION TIME
THE TIME FOR ONE PASS OF THE PROGRAM (END OF
TYPEQUT OF CZDHI TO END OF TYPEOUT OF CZ0HI)
IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW

PROCESSOR
POP-11705.10

PDP-11/20

POP-11/40
POP-11/45

TIME

CZOHI-DO

MACRO V04.00

SEQ 11

27-JUN-85 13:08:01 PAGE 12

3
4

PROGRAM DESCRIPTION

THE FIRST GROUP OF TESTS VERIFIES THAT ONLY ONE BREAK

CHARACTER IS RECEIVED ON A GIVEN LINE,

6
7
8
9

EVEN THOUGH BREAK

IS ASSRETED FOR THAT LINE FOR 400 (OCTAL) CHARACTER TIMES.
THERE TS AN INDIVIDUAL TEST LOOP FOR EACH LINE.
THE TEST BEGINS B8Y FLUSING EACH UART BY TRANSMITTING
TO NULL (Q) CHARACTERS.
THE BREAK BIT IS THEN SET

10
11

FOR THE LINE TO BE TESTED, TRANSMISSION OF THE BINARY COUNT
PATTERN IS STARTED.
THE SILO IS THEN CHECKED TO VERIFY

THAT ONLY ONE CHARACTER WAS RECEIVED

13
14

AND THAT IT WAS A BREAK CHARACTER.

THE SECOND GROUP OF TESTS VERIFIES THAT NO CHARACTERS
ARE RECEIVED ON A SELECTED LINE IF THE HALF DUPLEX BIT

IS SET FOR THE LINE TO BE TESTED.

THERE IS AN INDIVIDUAL

TEST LOOP FOR EACH LINE TO BE TESTED.

A BINARY COUNT

PATTERN IS THEN TRANSMITTED ON THE LINE TO BE TESTED.

WHEN ALL CHARACTERS HAVE BEEN TRANSMITTED, THE CHARACTER
AVAILABLE FLAG IS TESTED TO DETZRMINE IF ANY CHARACTERS HAVE
BEEN RECEIVED.

23
24

25
26

LISTING
!

29
30
32 000000

LIST
TME
.NLIST
MC,MD,CND
-HEADER t/1972. 1976,

1985/,t/DH1L BREAK AND HALF DUPLEX TEST/,t/CZODHI-DO/

sSTARTING PROCEDURE
sLOAD PROGRAM
;LOAD ADORESS 000200
1PRESS STARY
sPROGRAM MILL TYPE DH11 BREAK AND HALF DUPLEX TEST
;PROGRAM WILL TYPE "VECTOR ADORESS-*
:TYPE IN THE ADORESS OF THE RECEIVER INTVERRUPT VECTOR
:FOR THE DH1l TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
1PROGRAM WILL TYPE ~CONTROL REGISTER ADDRESS-*
sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
tFOR THE DM11l TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>

;PROGRAM WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED
sAT THE END OF A PASS, PROGRAM WILL TYPE * CZDMI-DO *
;AND THEN RESUM TESTING
.TITLE

000000

CZDHI-0O

.ENABLE ABS

.NLIST
MC,MD,CND
LIST
mE
.SYMBOLS

33 000000

sSWITCH REGISTER OPTIONS
100000
040000
020000

SH15=100000
SH14=40000
SH13=20000

;=1,HALT ON ERROR
i=1,L00P ON CURRENT TEST
;=1,INKIBIT ERROR TYPEOUT

3 3

CZDHI-DO

MACRG v04.00

010000
004000
002000
001000
000400
000100
000040
000020
000010
000004
000002
000001

S€Q 12

27-JUK-85 13:08:01 PAGE 12-1

SW12=1000C
Sh11=4000
5W10=2000

S1W09+=1000
S5408=400
SW06=100
5605=40
SWO4+20
SKW03-10
SWo02=4
SW01=2
SHOO=1

;=1 INHIBIT ITERATIONS
:=1,ESCAPE TO NEXT TEST ON ERROR
:*1,L00P WITH CURRENT DATA

;RESTART PROGRAM AT SELECTED TEST
sRESELECT VECTOR AND CONTROL REGISTER
;ADDRESS AFTER PROGRAM RESTART

CZOMI-DO

MACRO V04 20

sS€Eq 13

27-JUN-85 13:08:01 PAGE 13

sREGISTER DEFINITIONS

000007

RO=%0
Rl=si
R2=42
R3-43
R4 =54
RS=¢5
SP=%6
PC=o7

sGENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
sGENERAL REGISTER
;PROCESSOR STACK POINTER
1PROGRAM COUNTER

STACK=ENDCO0D
+200

sPROCESSOR STATUS WORD
$START OF PROCESSOR STACK

PS=177776

sCONSOLE SWITCH REGISTER
sPOP-11/45 DISPLAY REGISTER

177776

013724

1SWR=177570
sLIGHTS=177570

sLOCATION EQUIVALENCIES

000001
000002
000003

sINSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726
PUSHRO=10046
POPRO=12600
PUSH2SP=24646
POP25SP=22626
i

JMACRO
.ENDMH

HLT
EMT
WY

sDECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
1SAVE RO ON STACK
sRESTORE RO FROM STACK
$DECREMENT STACK TWICE
1INCREMENT STACK TWICE
$A
$A

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

000020
000010

1 000000

000001

81715=100000
8I714~40000
8171320000
8171210000
81711=4000
BIT10-2000
81709=1000
8I708=400
81707200
BI706=.00
B8IT05+40
81704-20
81703=10
81702-4
B8IT01=2
81700-1
.CATCH

1 3

CZONI-DO
0

MACRO VO4.00

000000
000200

t TRAPCATCAER FOR ILLEGAL

.=0
.REPT 200

ENOR
000000
000002
000004

000002
000000
000006

000010
000012
200014

000012
000000
000016

000020

000022

000024

000026

000030

000032

000006

000016
000022

INTERRUPTS

.+2

sUNEXPECTED TRAP TO THIS LOCATION

.*2
HALT
.2

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

.02
HALT
.02

tUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

HALT

000000

HALT

000000

HALT
.2

$EXAMINE STACK TC FIND CAUSE

$EXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION

000000

HALTY

000000

HALT

000000

HALY

sEXAMINE STACK TC FIND CAUSE

000000

HALT

tEXAMINE STACK TO FIND CAUSE

0C0042

000000

HALTY

060046

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000026

000032
000034

000036

000040

000042

000036
000044

000046

000050

000052

000054

000056

000060

000C62

000052
000056
000062

000064

000066

000070

000072
000074

000076

000100

000066

000072

000000

000076

000000
000102

.+2
.2

.02

.+2

.02

HALT

tEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS L OCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE
sEXAMINE STACK TO FIND CAUSE

.02

sUNEXPECTED TRAP TO THIS LOCATION

000102

000000

HALT

000106

000000

HALT

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000000

HALY

000000

HALT

000104

000106

000110

000112

000114

000116

000112

000116
000120

000122

000124
000126
000130

000126
000000
000132

000134
000136
000140
000142
000144

000136
000000
000142
000000
000146

009132

SEQ 14

27-JUN-85 13:08:01 PAGE 14

.+2

.+2
.42
.02

.e2
HALT
.v2

.+2
HALT
.2
HALT
.2

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

fUNEXPECTED TRAP TQ THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP 10 THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

CZDHI-CO
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174

000176

MACRO VO4.00
000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176

SEQ 1S

27-JUN-8S 13:08:01 PAGE 14-1
HALT
.2
HALT
.+2

sEXAMINE STACK TO FIND CAUSE
+JNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION

.2
HALT
.2
HALT
.+2
HALT
.+2

tUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

200242

000000

HALT

000252

000009

HALT

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

rALT

sEXAMINE STACK TO FIND CAUSE

000266

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000272

000000

HALT

$EXAMINE STACK TO FIND CAUSE

000000

HALT

$EXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

000200
000202
000204

000206

000210
000212
000214

000216

000202
000000
000206

000212
000000
000216

000220
000222
0C0224

000222
000000
000226

000230

000232

000234

000c

000226

000232
000236

000240
000244
000246
000250

000254

000256
000260

000262
000264

000270
000274

000276
000300

000302

000304

000306

000310
000312
000314
000316
000320
000322
000324
000326

000242

000245
000000
000252

000256
000262
000266

000272
000276
000302
000306

000312
000000
000316
000000
000322
000000
000326
000000

.e2
HALT
.+2

.*2
HALT
.v2

.*2
HALT
.+2
.*2
.*2
o2

.+2
HALT
.e2

.+2

.*2
.2

.+2

.e2
.*2
.42

.+2
HALT
.42
HALT
.*2
HALY
.+2
HALT

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCAT1ON
$EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TC FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
tUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

iEXAMINE STACK TO FIND CAUSE

{UNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE -TACK TO FIND CAULSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZOHI DO

MACRO VO4.00

27-JUN-85 13:08:01 PAGE

SEQ 16

14-2

000330
000332
000334
000336
000340
000342
000344
000346
000350
000352
000354
000356
000360

000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362

.+2
HALT
.+2
HALT
.2
HALT
.*2
HALT
.*2
HALT
.42
HALT
.+2

sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
+EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

000364
000366
000370
000372
000374

000356
000000
000372
000000
(00376

.*2
HALT
.+2
HALT
.42

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sCXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

000400
000402
000404
0C0406
000410

000402
000000
000406
000000
000412

000414

000416

000420

000422

000424

000426

000362

000376

000000

MHALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

MALT

000426

000000

HALT

000432

000000

HALT

000000

HALT

000000

HALT

000446

000000

HALTY

000452

000000

HALT

000456

000000

HALT

000462

000000

HALY

000000

HALT

000000

HALT

000412
000416

000422
000430

000432

000434

000436

000440

000442

000436

000442
000444

000450
000454
000460

000446

000452
000456

000462

000464

000466

000470

000472

000466
000472

000474
000476
000500
000502
000504
000506
000510

000476
000000
000502
000000
000506
000000
000512

.+2
HALT
.42
HALT
.*2
.12

.+2

.2
.42
.42

.*2

:EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAVSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FINC CAUSE

sUNEXPECTED TRAP TQO THIS LOCATION

sEXAMINE STACK 7O FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FYND CAUSE

sUNEXPECTED TRAP TO THIS _OCATION

;EXAMINE STACK TO FIND CAUSE

-+2

sUNEXPECTED TRAP TO THIS LOCATION

.*2

sUNEXPECTED TRAP TG THIS LOCATION

.02
+2

tEXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE

;EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TG FTND CAUSE

.*2

sUNEXPECTED TRAP TO THIS LOCATION

.+2
HALT
.42
HALT
.e2
HALT
.+2

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

;:EXAMINE STACK TO FIND CAUSE

CZOHI-DO
000512
000514
000516
000520

000522
000524
000526
000530
000532
000534

000536

HACRN VO4.00

SEQ 17

27-JUN-85 13:08:01 PAGE 14-3

000000
000516
000000
000522

HALT
.02
HALT
.12
HALT
.2
HALT
.+2
HALT
.+2

000000
000526
000000
000532
000000
000536

+EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
iUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION

000000

HALT

100000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000552

000000

HALT

000556

000000

HALT

000562

000000

HALT

000566

000000

HALT

000572

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000576

000000

HALT

$EXAMINE STACK TO FIND CAUSE

000602

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

0C0000

HALT

000000

HALT

1EXAMINE STACK TO FIND CAUSE

00000C

HALY

;EXAMINE STACK TO FIND CAUSE

000000

HALT

000632

000000

HALT

000636

000000

HALT

000642

000000

HALT

000540

000542

000544

000546

000550

000552

000542
000546

000554

000560
000564

0C0570

000574

000600

000620

000622

000624

000626

000630

000632

000640

000644

000646

000650

000652
000654

000656

000660
000662
000664
000666
000670
000672

.42

000602

000616

000654

.+2

000576

000614

000626

000572

000612

000622

.42

000566

000610

000616

.42

000562

000606

000612

.e2

000556

000604

000606

.e2
.*2
.*2
.+2

.+2
.02

000636

000642
000646

000000

000652

;UNEXPECTED TRAP TQ THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO YHIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TQ THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION
;UNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

tEXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION
;UNEXPECTED TRAP TO THIS LOCATION

1UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

.*2

sUNEXPECTED TRAP TO THIS LOCATION

.42

sUNEXPECTED TRAP TO THIS LOCATION

.02

sEXAMINE STACK TO FIND CAUSE

.+2

HALTY
.2

sEXAMINE STACK T0 FIND CAUSE

sEXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATiON

tEXAMINE STACK TO FIND CAUSE

+ JNEXPECTED TRAP TO THIS LOCATION

000000

HALT

sEXAMINE STACK 0 FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000656

000662
000000
000666
000000
000672
000000

.+2

.+2
HALT
.42
HALT
.42
HALT

;UNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZDHI-DO
000674
000676
000700
000702
000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000730
000732
000734

000736

MACRO VO4.00

SEQ 18

27-JUN-85 13:08:01 PAGE 13-4

000676
000000
000702
000000
000706
000000
000712
000000
000716
000000
000722
000000
000726
000000
000732
000000
000736

.+2
HALT
.2
HALT
.+2
HALT
. +2
HALT
. +2
HALT
YHALT
.2
HALT
.42
HALT
.+2

tUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXFECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEAPECTED TRAP TO THIS LOCATION

.+2

tUNEXPECTED TRAP TO THIS LOCATION

000000

HALT

000000

HALT

000746

000000

HALT

0C0752

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000756

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000766

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000772

000000

HALT

000740

000742

000744

000746

000742

000750

000754

000760

000762

000764
000770

000774
000776
1 001000

.42

000752

.+2

000756

000762

.42

000766

.42

000772

000776
000000

.+2

.SETVEC

.+2
HALT

$EXAMINE STACK TO FIND CAUSE
;EXAMINE STACK TN FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

;UNEXPECTED TRAP TO THIS LOCATION
;UNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED YRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZOHI-DO
0

000200

MACRO VO4.00

000200
000167

1 000204

000600

SEQ 19

27-JUN-85 13:08:01 PAGE 1S

.=200

;STANDARD INTERRUPT VECTORS

JHP

START

iGO TO START OF PROGRAM

. TRPOEF

;OEFINITIONS FOR TRAP SUBROUTINE CALLS

;POINTERS TO SUBROUTINES CAN BE FOUND STARTING
;AT LOCATION “TRPTAB*

000204
000204

000204
000204
000204
000204
000204
000204

000204

104400
000001

104401
000002

104402
000003
104403
000004
104404
000005

104405
000006

104406

000007

104407

000010
104410
000011

000046

000052

3 000046

S 000052
6

7
8

9
10 000054

TRPDEF
TRPOEY

TRPDEF
TRPDEF
TRPDEF
TRPDEF
TRPDEF
TRPDEF

TRPDEF
.=46

010556

LOGICAL

040000

40000
.MACRO

SCOPE, t/SCOPE LOOP AND ITERATION HANDLER/
SCOPE=TRAP .Y
1SCOPE LOOP AND ITERATION HANDLER
Y=Yel
T TE,¢+/TELETYPE QUTPUT ROUTINE/
T.PEsTRAP.Y
;TELETYPE OUTPUT ROUTINE
Y=Yel

OCTASC,+/0CTAL TO ASCII CONVERSION/
OCTASC=TRAP+Y
;OCTAL TQ ASCII CONVERSION
Y=Yel
INSTR, t/INPUT ASCII STRING/
INSTR=TRAP +Y
sINPUT ASCII STRING
Y=Yel
INSTER,t/STRING INPUT ERROR/
INSTER=TRAP+Y
;STRING INPUT ERROR
Y=aYel
PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/
PARAM=TRAP +Y
sCONVERT STRING TO OCTAL, CHECK LIMITS
YsYel
SAVOSP, t/SAVE RO-RS, PC/
SAVOSP=TRAP+Y
;SAVE RC-RS, PC
YuYel
RESOS, t/RESTORE RO-RS/

RESOS=TRAP+Y
YsYel

;RESTORE RO-IS

SCOPE1,t/CHECK FOR FREEZE ON CURRENT DATA/
SCOPEL1=TRAP.Y
Y=Yel

sCHECK FOR FREEZE ON ZURRENT DATA

.=52

.ENDM
.START

CODEM1

MOV
INC

DHSSR, DHSLR
DHSLR

s5ET UP ADDRESS OF SILO
:1STATUS REGISTER HIGH BYTE

CODEM1
DHRVEC,Z,4,DHSCR,0,177776,7,10,..1

——

CZOHI-DO

MACRO VO4.00

001000

SEQ 20

27-JUN-85 13:08:01 PAGE 16

.=1000

:PROGRAM INITIALIZATION
;sLOCK OV T INTERRUPTS
:SET UP PROCESSOR STACK

;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
; POINT TO VECTOR AREA
;SET UP POWER FAIL TRap
:SERVICE AT LEVEL 7
;ERROR HANDLER
:SERVICE AT LEVEL 7
;GENERAL HANDLER DISPATCH SERVICE
sSERVICE AT LEVEL 7
;CLEAR TEST START FLAG
;CLEAR PASS COUNT
;CLEAR ERROR COUNT
;CLEAR ERROR FLAG
;:CLEAR LAST ERROR PC
; PUSH TRAP VECTOR

MOV
MOV

176670

177650

T8T

1$:

24:

176642
176634

012764
010670

.IF NB

.IFF
.ENDC
IF N8
SIZE:

1%
2%:

STFLG

PASCNT

ERRCNT
ERRFLG
ERRFLG
4, -(SP)

-(SP)

418,

SSWR
24

MOV
CLR

9176, SWR
LIGHTS

TST
(SP)+
IS8T
(SP).
MOV
(SP)., 6
nov
(SP)+, 4
TYPE
JMTITLE
187
INIFLG
<DHRVEC>
VEC1
BNE
BNE
<
CLR
MOV
TST
BR
MOV
SuUB
MoV

BEGIN
RO
924,804

(RO).

13
RO ,HCORE
#2 ,HCORE

; SET UP TRAP VECTOR
; TEST SWITCH REGISTER ADDRECS
; IF SUCCESSFUL, LEAVE IT ALONE
: POINT TO SOFT SWITCH DHSCR
: O MEANS WE ARE NOT GOING TO USE

: CLEAN UP STACK

s TYPE TITLE MESSAGE
;CHECK INITIALIZATION FLAG
1IF NQT O, CHECK SWITCHES
;FOR REINITIALIZATION
:IF NOT O, START TEST

$SET UP TIME OUT REIURN
;WILL TRAP WHEN NO MEMORY
;LOCATION RESPONDED, CONTINUE
;RO CONTAINS ADDRESS OF
sNON EXISTANT MEMORY
tRESTORE TRAPCATCHER

#340,PS
#STACK,SP
#24,R2
OPFAIL,(R2)+
#340, (R2).
®ERRORS, (R2)+
2340, (R2).
#TRPSRV, (R2)+
4340, (R2)

&&h&wg&&b&h&-b

001001

000176
177646

MoV
MoV
MoV
MOV
MOV
MOV
MOV
MoV
MOV
CLR
CLR
CLR
CLR
CLR
MOV

001160

012767
005067

176700
001122
177660

START:

005726
005726
012667
012667
104401
005767

016746

; SWITCH DHSCR AODDRESS
: LIGHTS

177570

012767
005777
000405

001102

176764

177570

061106
001114
001120
001122
001122
001130
001134
001134
001136
001140
001144
001150
001154

000340
013724
000024
012614
000340
010716
000340
011130
000340
010774
010730
010726
010716
010712
176702

.HORD
.WORD

012767
012706
012702
012722
012722
012722
012722
012722
012712
005067
005067
005067
005067
005067
016746

SHR:
LIGHTS:

®s

001004
001012
001016
001022
001026
001032
001036
001042
001046
0Cc1032
001056
001062
001066
001072
001076

177570

®e

177570

o v e ms ws [TMes e wr we @ we we
L]

001000
001002

bbb

:SET UP POMWER FAIL VECTOR
;CLEAR PROGRAM FLAGS AND COUNTS
;TYPE TI TLE MESSAGE
IIF NB <,
:DETERMINE MEMORY SIZE
LIIF NB <,
sSET UP TRACE TRAP RETURN

MACRO VO4.00

.ENOC
IF N8
TRACER:

1s:

001162

001164
002172
J01174
001174
001200
001204
0C1210
001212
001214
001216
001220
001224
01226
001230
001232
001234
001236
001240
001242
001243
001244
001246
001250
001252
001254
001256
001260
001261

.ENDC
.IF N8
IF B

000404

IFF

032777
001445

000001

012701
012702
012703
010211
005012
060301
060302
020127
001371

000300
000302
000004

177606

.ENOC
VECL:
VEC2:

is:

MOV
SXT
MOV
BR
MOV
MOV
MOV

104403

013054
104405
000600
177776
011756
007
010

.BYTE
.BYTE
.ENOC
IF N8

016767
005267

010506
010502

001274
001300
001302

005767
001002
005167

010550

010542

010506
.ENDC

;00 11/40, 11/45 INSTRUCTION
i11740,45 RTT RETURN FROM TRACE TRAP

:1105,10,20 RTI RETURN FROM TRACE TRAP
:RESTROE TRAPCATCHER
:SET UP TRACE TRAP VECTOR

VEC2

1+34
BEQ

INIFLG
VEC2

sIF INITIALIZE FLAG=0
;GET VECTOR AND CSR ADDRESS

BIT
BEQ

ASWO0, BSWR
BEGIN

:IF SWOO=1, GET NEW VECTOR

MOV
MOV
MOV
MOV
CLR
ADD

#300,.R1
#302,Re
TMR3
R2,(R1)

(R2)

R3,R1
R3,R2
R1,41000
13

PARAM

.BYTE
.BYTE

;SET UP ILLEGAL INSTRUCTION TRAP RETURN

cMp
BNE
INSTR
MVECTCR

013032
104405
000300
000770
012000
003
004

014,68¢10
RO
;RTT.TRTRET
$
MRTI,TRTRET
212.8010
ATRTREY
. 8016

ADD

001000

001262
001262
nn1270

SEQ 21

27-JUN-85 13:08:01 PAGE 16-1

300
770
DHRVEC
3

INSTR
MREGAD
PARAM
0
177776
2HSCR
10

;ANU CSR

;

od
b

CZDHI-DO

;RESTORE TRAPCATCHER
;IN FLOATING VECTOR AREA

s INPUT ADDRESS OF DEVICE VECTOR
sMESSAGE "VECTOR ADDRESS-*
sCONVERT STRING TO OCTAL
:LOW LIMIT
sHIGH LIMIT
i 3
;LOCATIONS TO BE FILLED
;:NUMBER OF LOCATIONS
;:LSB MASK
;INPUT ADDRESS OF DEVICE CSR
;MESSAGE *CONTROL REGISTER ADDRESS-*
;CONVERT STRING 7O OCTAL
;LOW LIMIT
sHIGH LIMIT
sLGCATIONS TO BE FILLED
sNUMBER OF LOCATIONS
;LS8 MASK

<1>

CODEML
MoV
INC

DHSSR, DHSLR
DHSLR

;SET UP ADDRESS OF SILO
:STATUS REGISTER HIGH BYTE

TST
SNE
CNH

INIFLG
BEGIN
INIFLG

sIF INITIALIZATION FLAG
:IS CLEARED
;SET IT

;PROGRAM START
;CHECK FOR PROGRAI? START AT SELECTED ADDRESS

; 3

CZ0HI-DO

001306
001314
001320
001326
001330
001332
001334
001336
001340
001342
001344
001345
001346
001350
001356
001362
001364
001370
001374

MACRO VO4.00

012767
012706
032777
001410

000340
013724
000002

176462

012767
005767
001004
005167
104401
000177

BEGIN:

177452

104403
013243
104405
000000
017500
012016

001
001
000410

.BYTE
.BYTE
001400
010470

010462
013237
010416

SEQ 22

27-JUN-85 13:08:01 PAGE 16-2

010440

1$:

2%:
3s:

MOV
MOV
B8IT
8EQ
INSTR
MTSTPC
PARAM

9#340,PS
#STACK,
SP

0§HOI.BSUR

;LOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK

IF SWOi=1
sGET PC FOR PROGRAM START

;GET PC

;MESSAGE

)

"TEST PC*”

;CONVERT STRING TO OCTAL

17500
RETRN
BR
MOV
TST
BNE
cor
TYZE
JMP

#T1,RETRN

;NORMAL START, TEST 1
;IF LOOPING, BYPASS TYPEOUT

;TYPE "R TO INDICATE START
;START TESTING

STFLG
33
STFLG

SRETRN

: 3

MACRO V04.00

27-JUN-85 13:08:01 PAGE

.MACRO

BREnK1

SEQ 23

XLINE,XBIT,K

:FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE ' XLINE'
:SET BREAK BIT FOR LINE 'XLINE'
s TRANSMIT BINARY COUNT PATTERN ON LINE ‘'XLINE'
:VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
;AND THAT IT IS A BREAK
TS \XN,20,4%

MOV
JSR

MOV
MOV
MOV

MOV

1¢:

PREDGWHKGNWWWWHLNNDLLLNDLDND PO DN
N ) 40 1t =2 4ot Pt ot Pt et Pt s
U OVONOUVNBUWNFOOS
NS
WA

OOCNOM&MNPOOO\IOU&NNM

CZOHI DO

MOV

4%:

.ENOM

:MASTER CLEAR INTERFACE

OXLINE ,80HSCR
ONULL , BOHBA
#-2,680H8C

;BUS ADDRESS MEMORY LOCATIONS
iSELECT LINE XLINE
:SET UPT TO TRANSMIT O CHARACTER
;TWO 0S WILL BE TRANSMITTED

433503, 8DHLPR

' XBIT',80HBAR

sCLEAR ALL BUS ADDRESS AND

;SET LINE SPEED=9600 BAUD

;CHARACTER LENGTH =8 BITS

:SET BAR BIT FOR LINE XLINE

CchMPe

#2 ,0DHSLR

;WAIT FOR 2 CHARACTERS TO BE RECEIVED

MCV
MOV
MoV
MOV
MoV

MoV
MOV
TST
BNE
CMP3

@BIT11,8DHSCR
#XLINE,B0HSCR
9TBUF , SDHBA
2-400, 80HBC
#33503,80HLPR
#XBIT, 0HBCR
#XBIT, SDHBAR
SDHBAR
24
#1,80HSLR

sMASTER CLEAR INTERFACE
;SELECT LINE XLINE
;:SET UP TO TRANSMIT 400
;(OCTAL) CHARACTERS
:LINE SPEED = 9600 BAUD

MoV
8IC
MOV
HLT
MoV

SDHSSR,R4
#300,.R4
#400,.RS
0
GOHNRC R4

1 (R4)=ACTUAL RECEIVED DATA
;:CLEAR UNMANTED BITS
:(R3)=EXPECTED SILO FILL LEVEL, i
:MORE THAN ONE CHARACTER RECEIVED, ERROR
+READ NEXT RECEIVEC CHARACTER REGISTER

MoV
HLT
SCOPE

RWRD 'K’ ,RS
1

1 (RS)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR
;CHECK FOR ITERATIONS, LOOP

BNE

BEQ

3s:

#BIT11,80HSCR

PC,CLRALL

C?E’P
8EQ

BREAK1

gl"RD'K' .R4

;SET BREAK BIT FOR LINE XLINE
;SET BAR BIT FOR LINE XLINE
:WAIT FOR ALL CHARACTERS
;7O BE TRANSMITTZD
;CHECK TO SEE THAT ONLY
;1 CHARACTER WAS RECEIVED

;IS RECEIVED CHARACTER A BREAK

OO NN

UGN

CZOHI-00

MACRO VO4.00

SEQ 24

27-JUN-85 13:08:01 PAGE 18

.MACRO

BLIND1,XLINE,XBIT,K

;SET HALF DUPLEX ON LINE

'K’

; TRANSMITI A BINARY COUNT PATTERN
:VERIFY THAT NO CHARACTERS ARE RECEIVED
TS \XN,20,2¢
MOV
JSR

1s:

2%:
.ENDM

98IT11,80HSCR
PC,CLRALL

MOV
MOV
MOV
MOV

@XLINE,SDHSCR
#TBUF , SOMBA
#-400, 80HBC
#735C3,80HLPR

MOV
TST

@X8IT, 8DHBAR

8NE
1578
8PL
HLY
SCOPE
BLIND1

80HBAR
13

SDHSCR
4
2

;MASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
;AND BUS ADORESS MEMORY LOCATIONS
;SELECT LINE XLINE
;SET UP TJ TRANSMITY
;400 (OCTAL) CHARACTERS
:SET RECEIVER BLIND
;:LINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE XLINE
:WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

;WERE ANY CHARACTERS RECEIVED
sRECEIVER NOT BLINDED, ERROR
:CHECK FOR ITERATIONS, LOOP

CRIONBUGN

CZOHI-DO

HACRO VO4.00

SEQ 25

27-JUN-85 13:08:01 PAGE 19

.MACRO

SSETALL

1SET BYTE COUNT FOR ALL LINES TO 400
$SET BUS ADDRESS FOR ALL LINES TO TBUF
sCLEAR EXPECTED CHARACTER BUFFERS
;SET LINE ACTIVE BITS FOR ALL LINES
SETALL: MOV
CLR

1s:

MOV
MOV
MOV
MOV
Mov
CLRB
MOVB
INC
INC

ADD
ADD
DEC
BNE
MOV

#20,R0
R1

#200,R2
#1,R3
#TBUF
, BDHBA
#-400, 80HBC
431403, 9OHLPR
RBUF(R1)
R2,RBUF(R3)

;SET UP 10 LOAD 20 MEMORY LOCATIONSA
:START WITH LINE O

SDHSCR
R2

#2.R1
2 ,R3
RO
14
#-1,LINACT

.ENOM

RTS
PC
SSETALL

MACRO

CCLRALL

sCLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS
CLRALL: MOV

1%:

.ENDM

CLR
CLR
INC
DEC
BNE

#20,RO

SOHBA
S0HBC
GOHSCR
RO
1t

RTS
PC
CCLRALL

MACRO V04.00

SEQ 26

27-JUN-85 13:08:01 PAGE 20

000020
000000
000020
000000
000001
000000

XLINE=LINE
XBIT=BITX
K=KX
LINE=0
BITX=1
KX=0

000020

.REPT

BREAKL
\LINE,\BITX,\KX
.NLIST
LINE=LINE+1
BITX=BITX+BITX

KX=KXe1

LIST
.ENDR
BREAKL

001400

\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE O
sSET BREAK BIT FOR LINE O
s TRANSMIT BINARY COUNT PATTERN ON LINE O
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
001400
001400
001406
001414

012767
012767
012767

000340
000020
001630

176370
010410
010376

TS \XN,20,4%
Ti:
MOV
MoV
MOV
JFNB
.ENDC

sDISABLE ALL INTERRUPTS

448 ,ESCAPE

1SET UP FOR 20 ITERATIONS
tSET UP TO ESCAPE TO NEXT TEST

MOV

#.FREEZL

1SET UP TO LOOP WITH DATA

"oV
JSR

#8IT11,804SCR
PC.CLRALL

sMASTER CLEAR INTERFACE
sSELECT LINE ©

000002
012777
004767

004000
010430

010326

001434
001442
001450
001436

012777
012777

000000
012060

010314
010314

MoV
HOV

40, 80HSCR
ONULL
, SDHBA

010276

MOV

433503 ,80HLPR

001464

001422
001430

001472
001500
001302

001310
0013516
001324
001332
001540
001346
0013354
001360
001562
001370
001572
001576
001602
001606

012777

177776

033503

010310

012777
122777

000001
000002

010276
010276

012777
012777
012777
012777

004000
000000
012112
177400

010246
010240
010240
010234

001374

012777
012777
012777
005777

001375
122777
001407
017704
042704
012705

033503
000001
000001

010210

000001
010176
000300
000400

010222
010224
010214
010206

XN=XN+1

#340,PS
420, ICOUNT

MOV

1¢:

2%:

¢-2,0018C

"oV
CHPs

#1,00MBAR
42 ,804SLR

MoV
MoV
MOV
MOV

481711 ,80HSCR
40 ,804SCR
STBUF , GDHBA
¢-400, 80HBC

BNE

"oV
MOV
MoV
187

BNE
onwre
B8EQ
MOV
8IC
.T\T!

933503, 80HLPR
#1 ,80H8CR
#1 ,00HBAR

GDHBAR

24
#1,8DHSLR
34
SOMSSR R4
4300 ,.R4
:ooo.as

1 3

sCLEAR ALL BUS ADDRESS AND
1BUS ADDRESS MEMORY LOCATIONS

1SET UPT TO TRANSMIT O CHARACTER
sTWO OS WILL BE TRANSMITTED
1SET_LINE SPEED=9600 BAUD
tCHARACTER LENGTH =8 BITS

:SET BAR BIT FOR LINE ©
tWAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
1SELECT LINE O
1SET UP TO TRANSMIT 400
3COCTAL) CHARACTERS
jLINE SPEED = 9600 BAUD

1SET BREAK BIT FOR LINE O

1SEY BAR BIT FOR LINE O

sWAIT FOR ALL CHARACTERS

370 BE TRANSMITYED
sCHECK TO SEE THAT ONLY

11 CHARACTER WAS RECEIVED
s(R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS
1(RS)=EXPECTED SILO FILL LEVEL, 1
1MORE THAN ONE CHARACTER RECEIVED, ERROR

CZ0MI DO
001606
001610
001614
001620
001622
001626

001626
001630

001632

MACRO VO4.00

104000
017704
026704
001403
016705

27-JUN 85

13:08:01 PAGE 20

010144

010734

EMT
MOV
g!_'lz

0
SOHNRC ,R4
T:RDO.RQ

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK

RWRDO,RS

1(RS)=EXPECTED RECEIVED CHARACTER

010726

MOV

gh;

104001
104400
000001
000002
000001

SEQ 27

43
SCOPE
LINE=LINE.1

sRECEIVED DATA ERROR

1+CHECK FOR ITERATIONS,

LOOP

BITX=BITX+BITX

KX=2KX1

BREAKL1

\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS

sON LINE 1
$SET BREAK BIT FOR LINE 1

s TRANSMIT BINARY COUNT PATTERN ON LINE 1
sVERIFY WTAT ONLY 1 CHARACTER IS RECEIVED
;:AND THAT IT IS A BREAK
001632
001632
001640
0C1646

012767
012767
012767

000340
000020
002062

176136
010156
010144

TS \XN,20,4s
12:
MOV
MOV
_—
MOV
.

001654

001662

001666
001674
001702
001710

001716
001724
001732
001734
001742
001750
001756
001764
001772
002000
002006
002012
002014
202022

002024
202030

002034
002040
002040
002042
002046

000003
012777
004767
012777

012777
012777
012777
012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375
1227717
001407
017704
042704
012705

104000
017704

026704

.ENDC

004C00
010176

010074

000001
012060
177776
033503

010062
010062
010056
010044

000002
000002

010044
010044

004000
000001
012112
177400
033503
000002
000002
007756

010014
010006
010006
010002
007770
007772
007762

000001

007754

XN=XN+1

;DISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

MOV

¢,FREEZL

sSET UP TO LOOP WITH DATA

MoV
JSR

#81711,80HSCR
PC,CLRALL

;MASTER CLEAR INTERFACE
;CLEAR ALL BUS ADDRESS AND

MOV

#1,80HSCR

;SELECT LINE 1

MOV
MoV

#-2,80H8C
#33503, 80HLPR

;TWO 0S WILL BE TRANSMITTED
;SET LINE SPEED=9600 BAUD

MoV

#2 ,80HBAR

;CHARACTER LENGTH =8 BITS
;SET BAR BIT FOR LINE 1

HOV
MOV

#B8IT11,00HSCR
41 ,.8DHSCR

sMASTER CLEAR INTERFACE
sSELECT LINE 1

MOV

1s%:

g::fi

2%:

3s:

ONULL , GOHBA

:3.‘0HSLR

MOV
MOV

#TBUF , BDHBA
#-400, 8DHBC

MOV
MoV
LEA
BNE
cMP8
BEQ
MOV
8IC
MOV
HL¥
M
MOV
cHP

42 ,0DHBCR
82 ,0DHBAR
SOHBAR
24
#1 . 8DHSLR
3
SDHSSR R4
4300,R4
#400,RS
0
0
SDHNRC R4
RWRD1,R4

MoV

007744
000300
000400

007712
010504

#340,PS
420, ICOUNT
848 ,ESCAPE

#33503%,8DHLPR

:BUS ADDRESS MEMORY LOCATIONS

;SET UPT TO TRANSMIT O CHARACTER

;WAIT FOR 2 CHARACTERS TO BE RECEIVED

sSET UP TO TRANSMIT 400
;COCTAL) CHARACTERS

;LINE SPEED = 9600 BAUD

;SET BREAK BIT FOR LINE 1
;SET BAR BIT FOR LINE 1
sWAIT FOR ALL CHARACTERS
:TO BE TRANSMITTED
;CHECK TO SEE THAT ONLY
i1 CHARACTER WAS RECEIVED
;(RA)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS
:(RS5)=EXPECTED SILO FILL LEVEL, 1
;MORE THAN ONE CHARACTER RECEIVED,

ERROR

;READ NEXT RECEIVED CHARACTER REGISTER

;IS RECEIVED CHARACTER A BREAK

CZ0MI-DO

002052
002034
002060
002060
002062

002064

MACRO VO4.00

001403
016705

SEQ 2¢

27-JUN-85 13:08:01 PAGE 20-2

BEQ
MOV
HT

010476

104001
104400

43
RWRD1,R5
1

EMT
1
43:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe1
BREAKL
\LINE,\BITX,\KX

000002
000004
000002

i(RS)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR
sCHECK FOR ITERATIONS,

LOOP

;FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE 2
:SET BREAK BIT FOR LINE 2
s TRANSHMIT BINARY COUNT PATTERN ON LINE 2
;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
;AND THAT IT IS A BREAK

002064
002064
002072
002100

012767
012767
012767

000340
000020
002314

175704
007724
007712

000004
012777
004767

004000
007744

007642

002120
002126
002134
002142

012777
012777
012777
012777

012060
177776
033503

000002

007630
007630
007624
007612

002150
002156
002164
002166
002174
002202
002210
002216
002224
002232
002240
002244
002246
002254
002256
002262
002266
002272
002272
002274
002300
002304
002306
002312

012777

000004
000002

007612
007612

004000
000002
¢12112
177400
033503
000004
000004
007524

007562
007554
007554
007550
007536
007540
007530

000001

007522

017704
042704
012705

104000
017704
026704
001403
016705

JFNB

.ENDC

002106
002114

122771
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375
122777
001407

TS \XN,20,4$
13:
MOV
MOV
MOV

XN=XN.1

1s:

2%:

007512
000300
000400

007460
010254
010245

ki K

9340,PS
920, ICOUNT
43 ,ESCAPE

;:DISABLE ALL INTERRUPTS
sSET UP FOR 20 ITERATIONS
sSET UP TO ESCAPE TO NEXT TEST

MOV

9,FREEZL

;SET UP TO LOOP WITH DATA

MOV
JSR

PC.CLRALL

#BIT11,80HSCR

;MASTER CLEAR INTCRFACE
:CLEAP ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 2
;SET UPT TO TRANSMIT O CHARACTER
;TWO OS WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
;CHARACTER LENGTH =8 BITS
:SET BAR BIT FOR LINE 2
:WAIT FOR 2 CHARACTERS TO BE RECEIVED

MOV
MOV
MOV
MOV

92, 90HSCR
ONULL
, SDHBA

MoV
P8
BNE
MOV
MOV
MOV
MoV
2,11

#4,8DHBAR
:2.GOHSLR

MOV
MOV

153)

BNE
CMPB
B8EQ

MOV
8IC
MOV
HLT
EMT

MOV

cHp
BEQ
MOV
HLT

033503, 8DHLPR

#8IT11,00HSCR

#2 ,80HSCR
#TBUF
, GDHBA
¢-400,80HBC

#33503, 8DHLPR
4, 9DHBCR
44, 90HBAR
SOHBAR
24
€1 ,80HSLR
3
@0HSSR,R4
#300,R4
#400,RS
0
0
80HNRC ,R4

RWRD2,R4
43
RWRD2,R5
1

: 3

:MASTER CLEAR INTERFACE
sSELECT LINE 2
;SET UP TO TRANSMIT 400
:(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
;SET BREAK BIT FOR LINE 2
;SEY BAR BIT FOR LINE 2
;WATT FOR ALL CHARACTERS
;7O BE TRANSMITTED
;CHECK TO SEE THAT ONLY
s1 CHARACTER WAS RECEIVED
s (RA)=ACTUAL RECEIVED DATA
:CLEAR UNMANTED BITS
; (RS)=EXPECTED SILO FILL LEVEL, 1
+MORE THAN ONE CHARACTER RECEIVED, ERROR
;READ NEXT RECEIVED CHARACTER REGISTER
;IS RECEIVED CHARACTER A BREAK

;(RS)=EXPECTED RECEIVED CHARACTER
;:RECEIVED DATA ERROR

CZDHI-DO
002312
002314

MACRO VO4.00

104001
104400
000003

EMT
4%
SCCPE
LINE=LINE.]

000010

002316

SEQ 29

27-JUN-85 13:08:01 PAGE 20-3

;:CHECK FOR ITERATIONS,

LOOP

BITX=BITXB8
1

000003

KXoKX+1
BREAK1
\LINE,\BITX,\KX

tFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
:ON LINE 3

;SET BREAK BIT FOR LINE 3
s TRANSHIT BINARY COUNT PATTERN ON LINE 3
sVERIFY HYAT ONLY 1 CHARACTER IS RECEIVED
tAND THAT IT IS A BREAK
002316
002316
002324
002332

012767
012767
012767

000340
000020
002546

175452
007472
007460

000005
012777
004767

004000
007512

007410

002352
002360
002366
002374

012777
012777
012777
012777

000003
012060
177776
033503

007376
007376
007372
007360

002402
002410
002416
002420
002426
002434
002442
002450
V02456
002464
002472
002476
002500
002506
002510
002514
002520
002524
002524
002526
002532
002536
002540
002544

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375
122777
001407
017704
042704
012705

000010
000002

007360
007360

004000
000003
012112
177450
033503
000010
000010
007272

007330
007322
007322
J07316
007304

002546

104000

104001
104400

000004

OF NB

.ENDC

002340
0C2346

017704
026704
001403
016705

TS \XN,20,43
T4:
MOV

000001

XN=XN+1

1%:

007306

007276

24:

MOV
MOV

4340,PS
420, ICOUNT
48 ,ESCAPE

sDISABLE ALL INTERRUPTS
sSET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

MoV

¢,.FREEZ1

;SET UP TO LUOP WITH DATA

MOV
JSR

#BIT11,90HSCR
PC.CLRALL

MOV
MoV
MOV
MOV

#3,9DHSCR
ONULL
, GDHBA
#-2,80HBC
933503, 90HLPR

MOV
cHP8
BNE
MoV
MoV
MOV
MOV
MOV
MoV

210, 8DHBAR
2, 9DHSLR
1s

;MASTER CLZAR INTERFACE
sCLEAR ALL BUS ADDRES3 AND
;8US ADDRESS MEMORY LOCATIONS
;SELECT LINE 3
;SET UPT TO TRANSMIT O CHARACTER
;TWO 0S WILL BE TRANSMITTED
;SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
;SET BAR BIT FOR LINE 3
sWALIT FOR 2 CHARACTERS TO BE RECEIVED

TST

007270

007260
000300
000400

007226
010024

3%:

010016

MOV
HLT
EMT
44:
SCOPE
LINE=LTNE+1

nov
CMpP
BEQ

#81IT11,8DHSCR

#3,80HSCR
#T8UF
, SOHBA
#-400, 80M8C
033503, DHLPR
#10,80HBCR
410, S0HBAR

SOHBAR
24
#1,8DHSLR
34
SDHSSR ,R4
#300,R4
#400,R5
0
0
SDHNRC ,R4

RWRD3,
R4
43
RWRD3,
RS
1
1

sMASTER CLEAR INTERFACE
;SELECT LINE 3
sSET UP TO TRANSMIT 400

; COCTAL) CHARACTERS

;LINE SPEED = 9600 BAUD
:SET BREAK BIT FOR LINE 3
;SET BAR BIT FOR LINE 3
sWAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED
:CHECK TO SEE THAT ONLY
;1 CHARACTER WAS RECEIVED

; (R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS
+(RS)=EYPECTED SILO FILL LEVEL,

:MORE THAN ONE CHARACTER RECEIVED. ERROR
:READ NEXT RECEIVED CHARACTER REGISTER
;IS RECEIVED CHARACTER A BREAK

1 (RS)=EXPECTED RECSIVED CHARACTER
;RECEIVED DATA ERROR

:CHECK FOR ITERATIONS, LOGP

CZOHI-DO

002550

MACRO VO4.00

SEQ 30

27-JUN-8S 13:08:01 PAGE 20-4

00002y
000004

BITX=BITX+BITX
KX=KX+1

BREAK1

\LINE,\BITX,\KX

«FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE 4
;SET BREAK BIT FOR LINE 4
s TRANSMIT BINARY COUNT PATTERN ON LINE 4
;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
;AND THAT IT IS A BREAK
002550
002550

002556
002564

002572
002600

012767

000006
012777
004767

000340

000020

003000

175220

007240

007226

004000
007260

007156

012777
012777
012777
012777

0C0004
012060
177776
033503

007144
007144
007140
007126

002634
002642
002650
002652
002660
002666
002674
002702
002710
002716
002724
002730
002732
002740
002742
002746
002752
002756
002756
002760
002764
002770
002772
002776
002776
003000

012777

000020

C927126

003002

001374
012777
012777
012777
012777
012777
012777
012777

005777

001375

000002

004000
000004
012112
177400
033503
000020
000020
007040

122777
001407
017704

000001

012705

000400

042704

104000

017704
0267v4

001403

016705

104001
104400
000005
000040
000005

TS:

JIF N8B

LENDC

002604
0C2612
002620
002626

122777

TS \XN,20,4%

007126

007076
00/070
007070
007064
007052
007054
007044

XN=XN+1

1$:

23:

007036

MOV

9340,PS

MOY

MOV
o

MOV
MOV

000300

:SET UP TO LOOP WITH DATA

#BIT11,8DHSCR

:MASTER CLEAR INTERFACE

MOV
MOV
MOV
MOV

#4 ,8DHSCR
ONULL
. 80HBA
v-2,80HBC
933503, 8DHLPR

MoV

#20, 8DHBAR

BNE

42 ,00HSLR

MOV
MOV
MoV
MOV
MOV
MOV
MoV

#81T11,0DHSCR
&3 ,80H5CR
#TBUF , 8DHBA
#-400,8048C
433503, 8DHLPR
420, 80HBCR
920, SDHBAR

BNE

BIC

4300 ,.R4

787

"oV
HLT
enr
MOV

3s:

007566

MOV
HLT
EMT
4%
SCOPE
LINE=LINE+1
BITX=BITXx+8ITX
KX=KXe1

CHP

BEQ

BREAK1

#,FREEZL

PC,CLRALL

006774

0C7574

€44 ,ESCAPE

:DISABLE ALL INTERRUPTS
sSET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

JSR

cMP8
BEQ
MOV

007026

420, ICOUNT

SDHBAR

#1,890HSLR
33
SDHSSR R4
#400,RS5
0
0
SOMNRC ,R4

sCLEAR ALL BUS ADDRESS AND
;BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 4
;SET UPT TO TRANSMIT O CHARACTER
;TWO OS W.lLL BE TRANSMITTED
sSET LINE SPEED=9600 BAUD
;CHARACTER LENGiK =8 BITS
;SET BAR BIT FOR LINt 4
sWAIT FOR 2 CHARACTERS TO BE RECEIVED

sHASTER CLEAR INTERFACE
;SELECT LINE 4
:SET UP TO TRANSMIT 400
s (OCTAL) CHARACTERS
;LINE SFEED = 9600 BAUD
;SET PREAK BIT FOR LINE 4
;SET BAR SIY FOR LINE 4
sHAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED
sCHECX TO SEE THAT ONLY
:1 CHARACTER MWAS RECEIVED

s (R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS
:(R5)=EXPECTED SILO FILL LEVEl, 1
;MORE THAN ONE CHARACTER RECEIVED, ERROR

RUWRDA , R4

sREAD NEXT RECEIVED CHAPACTER REGISTER
:IS RECEIVED CHARACTER A BREAK

RWRDA4 ,AS
1
1

s (R3)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR

\LINE,\BITX,\K¥

;CHECK FOR ITERATIONS, LOOP

CZOMI-DO

MACRO VO4.00

SEQ 31

27-JUN-85 13:08:01 PAGE 20-5

tFLUSH UART BY TRANSMITTING 2 NULL CHARACTERZ
:ON LINE S
sSET BREAK BIT FOR LINE S
s TRANSMIT BINARY COUNT PATTERN ON LINE S
tVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
:AND THAT IT IS A BREAK
003002
003002
003010
003016

003024
003032

003036
003044

003052
003060

003066
003074
003102
003104
603112
003120
003126
003134
003142
003150
003156
003162
003164
003172
003174
003200
003204
003210
003210
003212
003216
003222
003224
003230
003230
003232

003234

012767
012767
012767

000007
012777
004767

012777
012777
0127177
012777

012777
122777
001374
0.2777
012777
012777
012777
012777
012777
012777
005777
001375
122777
001407
017704
042704
012705
104000
017704
026704
001403
016705
104001
104400
000006
000100
000006

000340
000020
003:32

174766

007006
026774

004000
007026

006724

000005

177776
033503

006712
006712
006706
006674

000040
000002

006674
006674

004000
000005
012112

006644
006636
006636

012060

177400
033503
000040
000040
006606

000001

006632
006620
006622
006612

TS \XN,20,44
T6:
MOV
MOV
MoV
JFEFNB

.ENDC
XN=XN+1

1$:

2%:

006604

006574
000300
000400

006542
007344
007336

3s:

#340,PS
#20, ICOUNT
243 ,ESCAPE

;SET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

MOV

&,FREEZL

:SET U? 7O LOOP WITH DATA

MOV
JSR

08IT11,8DHSCR
PC,CLRALL

sMASTER CLEAR INTERFACE

MOV
MoV

#5,80HSCR
ONULL
, 8DHBA

;SELECT LINE S

MOV

#33503,80HLPR

MOV
CHP8
BNE
MoV
MoV
MOV
MOV
MOV
MOV
MoV
187
BNE
CHPB
8EQ
MoV
8IC
MOV
HLT

#40, SOHBAR
#2,00HSLR
1s
#BIT11,8DHSCR
#5,9DHSCR
#TBUF , SDHBA
9-400, 80HBC
£33503, 8DHLPR
#40, SOHBCR
#40, SOHBAR
SOHBAR
24
#1,80HSLR
3
SDHSSR R4
#300,R4
#00,RS
0

;SET LINE SPEED=9600 BAUD
;CHARACTER LENGTH =8 BITS

eMT

o2
BEQ
nov

RWRDS
, R4
44
RWRDS,
RS

MOV

EMT

;:DICABLE ALL INTERRUPTS

: 3

;:CLEAR ALL BUS ADDRESS AND
iBUS ADDRESS MEMORY LOCATIONS
:SET UPT TO TRANSMIT O CHARACTER
:TWO OS WILL BE TRANSMITTED

;:SET BAR BIT FOR LINE 5
:HWAIT FOR 2 CHARACTERS TO BE RECEIVED

sMASTER CLEAR INTERFACE
;SELECT LINE S
;SET UP TO TRANSMIT 400
;COCTAL) CHARACTERS

sLINE SPEED = 9600 BAUD
:SET BREAX BIT FOR LINE S
;SET BAR BIT FOR LINE S
;WAIT FOR ALL CHARACTERS

:TO BE TRANSHITTED

sCHECK TC SEE THAT ONLY
;i CHARACTER MAS RECEIVED

s (R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS

:{RS)=EXPECTED SILO FILL LEVEL, 1

sMORE THAN ONE CHARACTER RECEIVED, ERROR

SOHNRC ,R4

sREAD NEXT RECEIVED CHARACTER REGISTER
:IS RECEIVED CHARACTER A BREAK

sRECEIVED DATA ERROR

4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXs1
BREAK1
\LINE,\BITX,\KX

; (R5)=EXPECTED RECEIVED CHARACTER
;CHECK FOR ITERATIONS. LOOP

;FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE 6

CZOHI-DO

MACRO V04.00

SEQ 32

27-JUN-85 13:08:01 PAGE 20-6

+SET BREAK BIT FOR LINE 6
: TRANSMIT BINARY COUNT PATTERN ON LINE 6
:VERIFY HTAT ONLY i1 CHARACTER IS RECEIVED
+AND THAT IT IS A BREAK
003234
003234
003242
003250

012767

012767
012767

000340

000020
003464

174534

006554
006542

TS \XN,20,4%
7T7:
MOV

IF e

MOV
MOV

ENOC

MOV

003256
003264

000010

012777

004767

012777

003270
003276
003304
003312

012777
012777

003320

012777

003326
0C3334
003336
003344
003352
003360
003366
003374
003402
003410
003414
003416
003424
003426
003432
203436
003442
003442
003444
003450
003454
003456
003462
003462
003464

003466

012777

122;-7'1
L01

012777
012777
012777
012777
012777
012777
012777
005777

001375
122777
001407
017704
042704
012705

104020

017704
026704

001403
016705

104001
104400
000007
000200
000007

004000
006574

000006

012060

177776
033503

000100

006472

XN=XN+1

004000
000006
012112
177400
033503
000100
000100
006354

006412
006404
006404
006400
006366
006370
(06360

000001

006352

:SET UP TO LOOP WITH DATA

#BIT11,80HSCR

sMASTER CLEAR INTERFACE

PC,CLRALL

;CLEAR ALL BUS ADDRESS AND

_$:

MOV

2100, 8DHBAR

S:EB

:%.BDHSLR

;WAIT FOR 2 CHARACTERS TO BE RECEIVED

2s:

MOV
MoV
MOV
MOV
MOV
MOV
HOV
57

#8IT11,80HSCR
46, BDHSCR
#T8BUF, SDHBA
¢-400, 0HBC
33503, 80HLPR
#100,80HBCR
#100,80HBAR
SOHBAR

sMASTER CLEAR INTERFACE
:SELECY LINE 6
;SET UP TO TRANSMIT 400
s (OCTAL) CHARACTERS
;LINE SPEED = 9C00 BAUD
;SET BREAK BIT FOR LINE 6
;SET BAR BIT FOR LINE 6
;WAIT FOR ALL CHARACTERS

MoV
8IC
MOV

SOHSSR, R4
#300.R4
#400,R5

:(R4)=ACTUAL RECEIVED DATA
sCLEAR UNMANTED BITS
+ (RS)=EXPECTED SILO FILL LEVEL, 1

EMT

MOV

MOV
MoV
MoV

006342
000300
000400
006310
007114

©,FREEZL

1SET UP FOR 20 ITERATIONS
iSET UP TN ESCAPE TO NEXT TEST

;BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 6
iSET UPT TO TRANSMIT O CHARACTER
;THO 0S WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
;CHARACTER LENGTH =8 BITS
;SET BAR BIT FOR LINE 6

006454
006442

006442

MOV
JSR

006460

006442

sDISABLE ALL INTERRUPTS

#20, ICOUNT
4% ,ESCAPE

006460

000002

4340,PS

BNE
CMPB
8EQ

3%:

007106

5
cMp
BEQ
MOV
Y

13,4
4% :
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
BREAK1

96, 8DHSCR

ONULL , BOHBA

¢-2,80H8C
933503, 8DHLPR

24
#1,0DHSLR
3¢

;70 BE TRANSMITTED
;CHECK 7O SEE THAT ONLY
31 CHARACTER WAS RECEIVED

sMORE THAN ONE CHARACTER RECEIVED. ERROR

SOHNRC , R4
RURDG, R4
43
RWRD6,RS

tREAD NEXT RECEIVED CHARACTER REGISTER
;XS RECEIVED CHARACTER A BREAK

s (R5)=EXPECTED RECEIVED CHARACTER

sRECEIVED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX
;FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS

;ON LINE 7
:SET BREAK BIT FOR LINE 7
; TRANSMIT BINARY COUNT PATTERN ON LINE 7

;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED

CZONHI-00

MACRO V04.00

SEQ 33

27-JUN-85 13:08:01 PAGE 20-7

sAND THAT IT IS A BREAK
003466
003466
003474
003502

012767
012767
012767

000340
000020
003716

174302
006322
006310

003510
003516

000011
012777
004767

004000
006342

006240

003522
003530
003536
003544

012777
012777
012777
012777

000007
012060
177776
033503

006226
006226
Q06222
006210

003552
003560
003566
003570
003576
0C3604
003612
003620
003626
003634
003642
003646
003650
003656
003660
003664
003670
003674
003674
003676
003702
003706
003710
003714
003714
003716

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375

000200
000002

006210
006210

004000
000007
012112
177400
033503
000200
000200
006122

006160
006152
006152
006146
006134
006136
006126

000001

006120

003720

122777
001407
017704
042704
012705
104000

017704
026704
001403
016705
104001
104400
000010
000400
000010

TS \XN,20,44
T10:
MOV
MOV

OF N8

.ENDC
XN=XN+1

1%:

24:

006656

;DISABLE ALL INTERRUPTS
1SET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

#,FREEZ]

sSET UP TO LOOP WITH DATA

MoV
JSR

#8IT11,8DHSCR
PC,CLRALL

MoV
MoV
MOV
MoV

97,8DHSCR
#NULL
, BDHBA
2-2,80H8C
#33503,8DHLPR

MOV
cMPB
BNE
MoV
MOV
MoV
MOV
MOV
MOV
MoV
TST
BNE

#200,80HBAR
92 ,8DHSLR
1
#8I711,80HSCR
£7,8DHSCR
#TBUF, 8DHBA
#-400,80H8C
933503, 8DHLPR
9200, 80HBCR
#200, 80HBAR
SOHBAR
34
#1,8DHSLR
34
80HSSR
R4
#300,R4
#400,R5
0

sMASTER CLEAR INTERFACE
;CLEAR ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 7
;SET UPT TO TRANSMIT O CHARACTER
;TWO 0S WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
;CHARACTER LENGYH =8 BITS
sSET BAR BIT FOR LINE 7
;WAIT FOR 2 CHARACTERS TO BE RECEIVED

cHP8
BEQ
MOV
81C
MOV
HLT

006110
000300
000400

006056
006664

MOV
o
MOV

9340,PS
@20, ICOUNT
#43% ,ESCAPE

3%:

EMT

MOV
GDOHNRC,R4
cMp
RWRD7,RA
BEQ
4
MOV
RWRD7,RS
HLT
1
EMT
1
4%
SCOPE
LINE=LINE+L
BITX=BITX+BITX
KX=KX+1
BREAK1
\LINE,\BITX,\KX

;MASTER CLEAR INTERFACE

sSELECT LINE 7
;SET UP TO TRANSMIT 400
; COCTAL) CHARACTERS
sLINE SPEED = 9600 8AUD
;SET BREAK BIT FOR LINE 7
;+SET BAR BIT FOR LINE 7
;WAIT FOR ALL CHARACTERS
;TO BE TRANSMITTED
;CHECK TO SEE THAT ONLY
i1 CHARACTER WAS RECEIVED
s (R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS

:(RS)=EXPECTED SILO FILL LEVEL, 1

;MORE THAN ONE CHARACTER RECEIVED, ERROR

;READ NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
s (R3)=EXPECTED RECEIVEC CHARACTER
iRECEIVED DATA ERROR
sCHECK FOR ITERATIONS, LOOP

sFLUSH UART B8Y TRANSMITTING 2 NULL CHARACTERS
;ON LINE 10
;SET BREAK BIT FOR LINE 10
; TRANSMIT BINARY COUNT PATTERN ON LINE 10
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
:AND THAT IT IS A BREAK
003720

TS \XN,20,4}%

CZDHI-DO
003720
003726
003734

003742
003750

MACRO v04.00

012767
012767
012767

000012
012777

000340
000020
004150

27-JUN-85

174050
006070
006056

004767

006110

004000

006006

003754
003762
003770
003776

012777
012777
012777
012777

000010
012060
177776
033503

005774
005774
005770
005756

004004
004012
004020
004022
004030
004036
004044
004052
004060
004066
004074
004100
004102
004110
004112
004116
004122
004126
004126
004130
004134
004140
004142
004146
004146
004150

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375

000400
000002

005756
005756

004000
000010
012112
177400
033503
000400
000400
005670

005726
005720
005720
005714
005702
005704
005674

000001

005666

004152

122777

001407
017704
042704
012705
104000

T11:

JIF N8
.ENDC
XN=XN+1

1i$:

2%:

000300
000400

005624

026704
001403
016705

006434

3s:

006426

MOV
MOV
MOV
o
MOV

MOV

#340,PS
420, ICOUNT
444 ,ESCAPE

;DISABLE ALL INTERRUPTS
;SET UP FOR 20 L{TERATIONS
:SET UP TO ESCAPE TO NEXT TEST

#,FREEZ1

$SET UP TO LOOP WITH DATA

#8IT11,8DHSCR

;MASTER CLEAR INTERFACE
:CLEAR ALL BUS ADDRESS AND
sBUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 10
;SET UPT TO TRANSMIT O CHARACTER
;TWO O0S WILL BE TRANSMITTED
sSET LINE SPEED=9600 BAUD
:CHARACTER LENGTH =8 BITS

JSR

PC,CLRALL

MOV
MOV
MOV
MOV

#10, 80HSCR
ONULL
, BOHBA
¢-2,80HBC
033503, 8DHLPR

MOV
CMPB
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BNE

9400 ,8DHBAR
42 ,8DHSLR
14
#B8IT11,8DHSCR
#10, 8DHSCR
4TBUF
, 8DHBA
¢-400,80HBC
933503, 8DHLPR
#4400, 9DHBCR
#400,8DHBAR
SDHBAR
24

BEQ
MOV
81C
MoV
HLT
EMT

34
SDHSSR
, R4
#400,RS
0
0

cHe
BEQ
H0¥

RWRD10,R4
4
gunoxo.ns

CHMPB

005656

017704

MOV

#1.8DHSI
R
#300,R4

SOHNRC ,R4

104001
104400
000011
001000
000011

SEQ 34

13:08:01 PAGE 20-8

EMT
1
44
SCOPE
LINE=_INE+1
BITX=BITX+BITX
KX =KX+l
BREAKL
\LINE,\BITX,\KX

:SET BAR BIT FOR LINE 10

;WAIT FOR 2 CHARACTERS TO BE RECFIVED

tMASTER CLEAR INTERFACE
;SELECT LINE 10
;SET UP TO TRANSMIT 400
;(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 10
:SET BAR BIT FOR LINE 10
sWAIT FOR ALL CHARACTERS
;TO BE TRANSMITTED
;CHECK TO SEE THAT NaLY
;1 CHARACTER WAS RE.._IVED
s (R4)=ACTUAL RECEIVED DATA

;CLEAR UNMANTED BITS
:(RS)=EXPECTED SILO FILL LEVEL, i

;MORE THAN ONE CHARACTER RECEIVED, ERROR
;READ NEXT RECEIVED CHARACTER REGISTER
;IS RECEIVED CHARACTER A BREAX

1(R3)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR
;CHECK FOR ITERATIONS, LOOP

;FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 1%
;:SET BREAK BIT FOR LINE 11

s TRANSMIT BINARY COUNT PATTERN ON LINE 11
iVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
;AND THAT IT IS A BREAK
004152
004252
004160
004166

012767

070340

012767

004402

91'7¢~

000020

173616

005636

005624

TS \XN,20,4%
Ti2:
MOV

HOV
MOV

#340,PS

;DISABLE ALL INTERRUPTS

434 ,ESCAPE

:SET UP TO ESCAPE TO NEXT TEST

920, ICOUNT

i 3

;SET UP FOR 20 ITERATIONS

CZDHI-DO

MACRO VO4.00

27-JUN-8S

SEQ 35

13:08:01 PAGE 20-9

JOF NB
.ENDC
XN=XN+1

o>
MOV

¢,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
JSR

4BIT11,8DHSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
;CLEAR ALL BUS ADDRESS AND

:SELECT LINE 11
;SET UPT TO TRANSMIT O CHARACTER
;THO OS WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD

004174
004202

000013
012777
004767

005656

004000

005554

004206
004214
004222
004230

012777
012777
012777
012777

000011
012060
177776
033503

0C5542
005542

005536
005524

MOV
MOV
MOV
MOV

#11,80HSCR
#NULL , BDHBA
¢-2,80H8C
433503, 80HLPR

004236
004244
004252
004254
004262
004270
004276
004304
004312
004320
004326
0C4332
04334
004342

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777

001000
000002

005524
005524

MOV
gz:s

21000, 8DHBAR
:%.ODHSLR

;SET BAR B1T FOR LINE 11
;MAIT FOR 2 CHARACTERS TO BE RECEIVED

004000
000011
012112
177400
033503
001000
001000
005436

005474
005466
005466
005462
005450
005452
005442

MOV

#B81I711,80HSCR

sMASTER CLEAR INTERFACE

000001

005434

004344
004350
004354
004360
004360
004362
004366
004372

004374
004400
004400
004402

004404

001375
122777

001407

017704
042704

012705

104000
017704
026704
001403
016705

1s:

2¢:

911, 8DHSCR
#TBUF , SDHBA
#-400, 8DHBC
433503, 80HLPR
21000, 8DHBCR
#1000, 8DHBAR
SOHBAR
24
91 ,0DHSLR

-SELECT LINE 11
;SET UP TO TRANSMIT 400
;COCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 11
sSET BAR BIT FOR LINE 11
sWAIT FOR ALL CHARACTERS
;7O BE TRANSMITTED
;CHECK TO SEE THAT ONLY

MOV
8IC

SDOHSSR , R4
2300,.R4

;(R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS

MOV

2h¥

3s:

005372
006204
006176

2.0}

104001

KX=KX+1

#400,RS

SDHNRC ,R4

2¥R011.R4

MoV

RWRD11,RS

M
43
SCOPE
LINEsLINE+1
BITX=BITX+BITX

BREAKL

ggg

EL}

104400
000012
002000
000012

;CHARACTER LENGTH =8 BITS

MOV
MOV
MOV
MOV
MOV
MOV
TST
BNE
CMPB

BEQ

005424
000300
000400

;BUS ADDRES> MEMORY LOCATIONS

;1 CHARACTER WAS RECEIVED

;(R5)=EXPECTED SILO FILL LEVEL,

;MORE THAN ONE CHARACTER RECEIVED, ERROR

sREAD NEXT RECEIVED CHARACTER REGISTER

:1IS RECEIVED CHARACTER A BREAK

s(RS)=EXPECTED RECEIVED CHARACTER

sRECEIVED DATA ERROR

;CHECK FOR ITERATIONS,

LOOP

\LINE,\BITX,\KX

;FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE 12
;SET BREAK BIT FOR LINE 12
1 TRANSHMIT BINARY COUNT PATTERN ON LINE 12
tVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
;AND THAT IT IS A BREAK
004404
004404
004412
004420

012767
012767
012767

000340
000020
004634

173364
005404
005372

TS \XN,20,4¢
T13:
MOV
MoV
MOV
JFNB

.ENDC

MOV

4340,PS
#20, ICOUNT
844 ,ESCAPE

;DISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS
$SET UP TO ESCAPE TQ NEXT TEST

& ,FREEZY

:SET UP TO LOOP WITH DATA

CZDHI-DO

MACRO V04.00

004426
004434

000014
012777
004767

004000
005424

005322

004440
004446
004454
004462

012777
012777
012777
012777

000012
012060
177776
033503

005310
005310
005304

005272

004470
004476
004504
004506
004514
004522
004530
004536
004544
004552
004560
004564
004566
004574
004576
004602
004606
004612
004612
004614

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375
122777
001407
017704
042704
012705

002009
000002

005272
005272

004000
000012
012112
177400
033503
002000
002000
005204

005242
005234
005234
005230
005216
005220
005210

000001

005202

004620

004624

004626
004632
004632
004634

004636

104000
017704
026704
001403
016705

SEQ 36

27 JUN-85 13:08:01 PAGE 20-10

XN=XN+1

1%:

2%:

MOV
JSR

#8IT11,80HSCP
PC,CLRALL

MOV
MOV
MOV
MOV

212, 80HSCR
NULL
, BOHBA
#-2,80H8C
033503, 8UHLPR

MOV
CMPB
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BNE

#2000, 8OHBAR
02 ,8DMSLR
1
981T11,80HSCR
912, 80HSCR
#TBUF
, SDHBA
#-400,£0HBC
433503, 9DHLPR
#2000, SDHBCR
#2000, SDHBAR
SOHBAR
24

BEQ
MOV
8IC

34
80HSSR,R4
#300,.R4

HT
EMT
MV

0
0
SOHNRC ,R4

cHpP8

005172
000300
300400

)]

#1,8DHSLR

#400,RS

005140
005754

3%:

005746

MOV
RWRD12,RS
HT
1
EMT
1
44
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe¢1
BREAKLI
\LINE,\BITX,
\KX

104001
104400
000013
004000
000013

cup
BEQ

RWRD12 ,R&
44

iMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 12
:SET UPT TO TRANSMIT O CHARACTER
:TWO OS WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
;CHARACTER LENGTH =8 BITS
:SET BAR BIT FOR LINE 12
;WAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
;SELECT LINE 12
1SET UP TO TRANSMIT 400
:(OCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
;SET BREAK BIT FOR LINE 12
;SET BAR BIT FOR LINE 12
;WAIT FOR ALL CHARACTERS
sTQO BE TRANSMITTED
sCHECK TO SEE THAT ONLY
s1 CHARACTER WAS RECEIVED

1 (R4)=ACTUAL RECEIVED DATA

sCLEAR UNMANTED BITS

s (R5)=EXPECTED SILO FILL LEVEL, 1
;MORS THAN ONE CHARACTER RECEIVED, ERROR
iREAD NEXT RECEIVED CHARACTER REGISTER

:IS RECEIVED CHARACTER A BREAK

1(R3)=EXPECTED RECEIVED CHARACTER
iRECEIVED DATA ERROR
sCHECK FOR ITERATIONS, LOOP

;FLUSH UART B8Y TRANSMITTING 2 NULL CHARACTERS
;ON LINE 13
:SET BREAK BIT FOR LINE 13
s TRANSMIT BINARY COUNT PATTERN ON LINE 13
tVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
004636
004636
004644
004652

004666

012767
012767
012767

000015
012777
004767

000340
000020
005066

173132
005152
005140

TS \XN,20,44
T14:
MOV
MOV

IF N8B

.ENDC

004000
005172

005070

XN+XN+1

#340,PS

MOV
o
MoV

#20, ICOUNT
€44 ESCAPE

;DISABLE ALL INTERRUPTS
:SET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

4,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
JSR

#BIT11,80HSCR
PC,CLRALL

:MASTER CLEAR INTERFACE
1CLEAR ALL BUS ADDRESS AND

i 3

CZDHI-DO

MACRO V04.00

27-JUN-85

13:08:01 PAGE 20-11

MOV
MOV
MOV
MOV

€13, 8DHSCR
SNULL
, 80HBA
¢ 2,80HBC
433503 ,800HLPR

MOV
CMPB
BNE
MOV
MOV
MOV

#4000, 8DHBAR
#2,8DHSLR
14
#81711,8DHSCR
#13, 80HSCR
4TBUF, 8DHBA

004672
004700
004706
004714

012777
012777
012777
012777

000013
012060
177776
033503

005056
005056
005052
005040

004722
004730
004736
004740
004746
004754
004762
004770
004776
005004
005012
005016
005020
005026
005030
005034
005040
0035044
005044
005046
005052
005056
005060
005064
005064
005066

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375
122777
001407
017704
042704
012705

004000
000002

005040
005040

004000
000013
012112
177400
033503
004000
004000
004 /52

005010
005002
005002

005070

104000
017704
026704
001403
016705

000001

004776
004764
004766
004756

14:

MOV

24:

004750

004740
000300
000400

004706
005524

MOV
MOV
MOV
TST
BNE
cMPB
BEQ
MOV
8IC
MOV
HLT
EMT

MOV
CHpP

BEQ
MOV
HLT
EnT
43 :
SCOPE
LINE=LINE+1
BITX=BITX+8ITX

005516

104001
104400
000014
010000
000014

KX=KXe1

BREAKL

#-400, 80HBC

233503, 0DHLPR
#4000, 8DHBCR
#4000, 8DHBAR
SOHBAR
24
#1 ,8DHSLR
34
SDHSSR,
R4
4300,R4
#400,RS
0
0

SDHNRC R4
RWRD13,R4

43
RWRD13,RS
1
1

SEQ 37

1BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE 13
1SET UPT TO TRANSMIT O CHARACTER
:TWO 0S WILL BE TRANSMITTED
+SET LINE SPEED=9600 BAUD
sCHARACTER LENGYH =8 BITS
;SET BAR BIT FOR LINE 13
+WAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
sSELECT LINE 13
;SET UP TO TRANSMIT 400
s(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
:SET BREAK BIT FOR LINE 13
;SET BAR BIT FOR LINE 13

sWAIT FOR ALL CHARACTERS

;7O BE TRANSMITTED
;CHECK TO SEE THAT ONLY
i1 CHARACTER WAS RECEIVED
:(R4)=ACTUAL RECEIVED DATA
:CLEAR UNWANTED BITS
s (RS)=EXPECTED SILO FILL LEVEL, 1
+MORE THAN ONE CHARACTER RECEIVED, ERROR
+READ NEXT RECEIVED CHARACTER REGISTER
;IS RECEIVED CHARACTER A BREAK

; (R5)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR
tCHECK FOR ITERATIONS. LOOP

\LINE,\BITX,\KX

tFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 14
+SET BREAK BIT FOR LINE 14
s TRANSMIT BINARY COUNT PATTERN ON LINE 14
tVERIFY MTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT X7 IS A BREAK
005070
005070
005076
005104

012767
012767
012767

000340
000020

005320

172700
004720
004706

TS \XN,20,4%
T15:
MoV
MoV

OF NE

.ENDC

005112
005120

000016
012777
004767

004000
004740

004636

005124
005132

012777
012777

000014
012060

004624
004624

XN=XN+1

MoV
o
MOV

#340,PS
#20, ICOUNT

#44,ESCAPE

;DISABLE ALL INTERRUPTS
+SET UP FOR 20 ITERATIORS
1SET UP TO ESCAPE TO NEXT TEST

#,.FREEZ1

1SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,80HSCR
PC,CLRALL

MoV
MOV

€14, BOHSCR
#NULL
, SDHBA

sHASTER CLEAR IMTERFACE
1CLEAR ALL BUS ADORESS AND
;8US ADDRESS MEMORY LOCATIONS
sSELECT LINE 14

$SET UPT TO TRANSMIT O CHARACTER

;1 3

CZOHI-DO

MACRO V04.00

005140
005146

012777
012777

177776
033503

004620
004606

005154
003162
005170
005172
005200
005206
005214
0035222
005230
0035236
005244
005250
05252
005260
005262
003266
005272
003276
005276
005300
005304
005310
005312
005316
005316
005320

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777
001375
122177
001407
017704
042704
012705

010000
060002

004606
004606

004000
000014
012112
177400
033503
010000
010000
004520

004556
004550
004550
004544
004532
004534
004524

000001

004516

005322

104000
017704
026704
001403
016705

SEQ 33

27-JUN-85 13:08:01 PAGE 20-12

14:

2%:

MOV
MoV

4-2,80HBC
#33503, 8DHLPR

nov

#10000, S8DHBAR

;THO 0S WILL BE TRANSMITTED
;SET LINE SPEED=9600 BAUD
iCHARACTER LENGTH =8 BITS
sSET BAR BIT FOR LINE 14

#8IT11,080HSCR
#14,80HSCR
#TBUF , BDHBA
#-400,68018C
933503, 90HLPR
#10000, SDHBCR
410000, SBDHBAR

sMASTER CLEAR INTERFACE
1SELECT LINE 14
$SET UP TO TRANSMIT 400
s COCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
:SET BREAK BIT FOR LINE 14
sSET BAR BIT FOR LINE 14

BmNE

MOV
MOV
nov
MOV
MOV
MOV
MOV

SOHBAR

sWAIT FOR ALL CHARACTERS

CHPB

#1,80HELR

sCHECK TO SEE THAT ONLY

SOHSSR,R4
#300,R4
#400,R5
8

1(R4)=ACTUAL RECEIVED DATA
sCLEAR UNMANTED BITS
1(RS)=EXPECTED SILO FILL LEVEL, 1
tMORE THAN ONE CHARACTER RECEIVED, ERROR

8EQ

3s:

004454
005274
005266

MOV

020000
060015

KX=KXe1

000015

SDHNRC , R4

Bcgg

:\:ROI‘.RQ

MOV

RWRD14 RS

104001
104400

SCOPE

sTO BE TRANSMITTED

31 CHARACTER WAS RECEIVED

iREAD NEXT RECEIVED CHARACTER REGISTER
:IS RECEIVED CHARACTER A BREAK

1(RS)=EXFECTED RECEIVED CHARACTER

sRECEIVED DATA ERRGW

sCHECK FOR ITERATIONS, LOOP

LINE=LINE+]
BITX=BITX+BITX
BREAK1

sWAIT FOR 2 CHARACTERS TO BE RECEIVED

TST

BNE

MOV
8IC
MoV
EH?#

004506
000300
000400

:%.ODHSLR

\LINE,\BITX,\KX

tFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 15
$SET BREAK BIT FOR LINE 15
sTRANSMIT BINARY COUNT PATTERN ON LINE iS
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
005322
005322
005330
005336

012767
012767
012767

006240
000020
005552

172446
004466
004454

TS \XN,20.44
T16:
MOV

.IF NB

.ENDC

005344
005352

000017
012777
004767

004000
004506

004404

005356
005364
005372
005400

012777
012777
012777
012777

000015
012060
177776
033503

004372
004372
004366
004354

XN=XN+1

#340,PS
€20, ICOUNT
944 ,ESCAPE

sDISABLE ALL INTERRUPTS
$SET UP FOR 20 ITERATIONS
1SET UP TO ESCAPE TO NEXT TEST

MOV

#,FREE2L

1SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,80HSCR
PC,CLRALL

MOV
MOV
MOV
MoV

915, SOHSCR
ONULL , BDHBA
#-2,80HBC
#33503,8DHLPR

$MASTER CLEAR INTERFACE
tCLEAR ALL BUS ADDRESS AND
1BUS ADDRESS MEMORY LOCATIONS
1SELECT LINE 1S
$SET UPT TO TRANSMIT O CHARACTER
1TWO OS WILL BE TRANSMITTED
+SET LINE SPEFD=9600 BAUD
sCHARACTER LENGTH =8 BITS

MOV
Mov
<>

1 3

CZDMI-DO

005406
005414
003422
005424
003432
005440
005446
005434
005462
005470
005476
05502
005504
003512
003514
003520
0035524
005530
005330
005332
005536
005542
005544
003550
005550
005532

005554

MACRO VO4.00
012777
122777
001374

012777
012777
012777
012777
012777
012777
012777
005777
001373
122117
001407
017704
042704
012705
104000
017704
026704
001403
016705

SEQ 29

27-JUN-85 13:08:01 PAGE 20-13

020000
000002

004354
004354

004000
000015
012112
177400
033503
020000
020000
004266

004324
004316
004316
004312
004300
004302
004272

000001

004264

1%:

2%:

004254
000300
000400

MOV

OmNE

34:

tWAIT FOR 2 CHARACTERS TC BE RECEIVED

MOV
HOV
MoV
MOV
MOV
MOV
MOV

#8IT11,80HSCR
15, GOHSCR
#TBUF , BDHBA
#-400, 80HBC
#33503, 80HLPR
920000, 8DHBCR
920000, 8DHBAR

sMASTER CLEAR INTERFACE
1SELECT LINE 1S
1SET UP TO TRANSMIT 400
3 COCTAL) CHARACTERS
iLINE SPEED = 9600 BAUD
1SET BREAX BIT FOR LINE 1S
$SET BAR BIT FOR LINE 15

BNE
cHPB
8EQ
MOV
8IC
MOV

24
1 ,8DHSLR
34
SOHSSR, R4
#300,.R4
#400,R5

170 BE TRANSMITTED
1CHECK TO SEE THAT ONLY
11 CHARACTER WAS RECEIVED
1(R4)=ACTUAL RECEIVED DATA
1CLEAR UNMNANTED BITS
1(RS)=EXPECTED SILO FILL LEVEL, 1

GDHNRC R4

tREAD NEXT RECEIVED CHARACTER REGISTER

RWRD15,RS5
i

1(RS)=EXPECTED RECEIVED CHARACTER
tRECEIVED DATA ERROR

1ST

MOV

BEC":

MOV
Efli;

005036

104001
104400
000016
040000
000016

+SET BAR BIT FOR LINE 15

:%.NHSLR

?fi;

004222
005044

920000, SDHBAR

SDHBAR

‘RHRD. 15,R4

SCOPE

tWAIT FGR ALL CHARACTERS

tMORE THAN ONE CHARACTER RECEIVED, ERROR
11IS RECEIVED CHARACTER A BREAK

+CHECK FOR ITERATIONS, LOOP

LINE=LINE+1

BITX=BITX+BITX

KX=KX+1
BREAKL
\LINE,\BITX,\KX

1tFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
tON LINE 16
1SET BREAK BIT FOR LINE 16
1 TRANSHIT BINARY COUNT PATTERN ON LINE 16
tVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
tAND THAT IT IS A BREAK
005554

005354
003562
005570

012767
012767
012767

000340
000020

172214
004234
004222

TS _\XN,20,.44

T17:

—
.

ENDC

MoV

MoV
MoV

4340,PS

sDISABLE ALL INTERRUPTS

#20, ICOUNT
#4¢,ESCAPE

sSET UP FOR 20 ITERATIONS
1SET UP TO ESCAPE TO NEXT TEST

"oV

#,FREEZL

sSET UP TO LOOP WITH DATA

nov
JSR

#81711,80HSCR
PC.CLRALL

IMASTER CLEAR INTERFACE
1CLEAR ALL BUS ADDRESS AND

:+ 3

005376
005604

000020
012777
004767

005610
003616
003624
003632

012777
o127
012717
o121

000016
012060
177776

004140
004140
004134

004122

MOV
nov
"oV
nov

€16, BOMSCR
ONULL , BDHBA
#-2,8018C
933503, 80HLPR

sSELECT LINE 16
1SET UPT TO TRANSMIT O CHARACTER
sTHO OS WILL BE TRANSMITTED
1SET LINE SPEED-»9600 BAUD

003640

012177
122177
001374

040000

004122
004122

nov
o ]

#40000 , BDHBAR
#2 ,8DHSL

;SET BAR BIT FOR LINE 16
1HAIT FOR 2 CHARACTERS TO BE RECEIVED

003654

004254

033503

004152

XNeXNe+
1

18:

ONE

s8US ADDRESS MEMORY LOCATIONS

sCHARACTER LENGTH =8 BITS

CZOMI DO

005656
005664
005672
005700
005706
005714

005722
005730
005734
005736
005744
005746
005752
005756
005762
005762
005764
005770
005774
005776
006004

006006

secean

MACRD V04.00

01217
012777
012777
012777
012777
012777
012777

SRR

005777

004072
004064
004064
004060
004046
004050
004040

122777

000001

004032

001407
017704
042704
012705

104000
017704
026704
001403
016705

M-

S W

SEQ 40

27-JUN-8S 13:08:01 PAGE 20 14

004000
000016
012112
177400
033503
040000
040000
004034

001375

004022
000300
000400

003770
004614
004606

104001

104400

000017
100000
000017

MOV
MOV
MOV
MOV
MOV
MOV
MOV
2%:
¥sT
BNE
cHMPB
BEQ
MOV
BIC
MOV
HLT
EMT
3
MOV
CHpP
BEQ
MoV
HLT
EMT
4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX

KX=KX+
1

BREAK1

#81711,80HSCR
416, 80HSCR

#TBUF
, OHBA

©-400,80H8C
#33503,80HLPR
#40000, 8DHBCR
440000, 3DHBAR

S0HBAR
23
¢1,8DHSLR
3
S8OHSSR ,R4
©€300,R4
#400,R5
0
0
SDHNRC ,R4
RWRD16
R4
43
RWRD16 ,RS
1

tMASTER CLEAR INTERFACE
$SELECT LINE 16
1SET UP TO TRANSMIT 400
sCOCTAL) CHARACTERS
iLINE SPEED = 9600 BAUD
1SET BREAK BIT FOR LINE 16
1SET BAR BIT FOR LINE 16
sWAIT FOR ALL CHARACTERS
170 BE TRANSMITTED
1CHECK TO SEE THAT ONLY
:1 CHARACTER WAS RECEIVED
s (R4)=ACTUAL RECEIVED DATA
sCLEAR UNWANTED BITS
1 (RS)=EXPECTED SILO FILL LEVEL, 1
iMORE THAN ONE CHARACTER RECEIVED, ERROR

+READ NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
s(RS)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,
\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 17
1SET BREAK BIT FOR LINE 17
; TRANSMIT BINARY COUNT PATTERN ON LINE 17
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAX
006006

006014
006022

012767
012767
012767

J00340
000020
006236

171762
004002
003770

TS \XN,20,.4%
T20:
MoV

OFNB

-ENDC

006030
006036

000021
012777
004767

004000
004022

003720

006042
006050
006056
006064

012777
012777
012777
012777

100017
012060
177776
033503

003706
003706
003702
003670

006072
006100
006106
006110
005116
006124

012777
1221
001374
012777
012777
012777

100000
000002

003670
003670

004000
000017
012112

003640
003632
003632

XN=XN+1

1s:

MoV
MOV

#340,PS
920, ICOUNT
843 ESCAPE

sOISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS
;:SET UP TD SSCAPE TO NEXT TEST

Mov

#,FREEZL

;SET UP W

MOV
JSR

#B81711,00HSCR
PC,CLRALL

MoV
MoV
MOV
MOV

#17,80HSCR
ONULL
, S0HBA

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
sBUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 17
$SET UPT TO TRANSMIT O CHARACTER
:TWO OS WILL BE TRANSMITTED
;SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
:SET BAR BIT FOR LINE 17
sWAIT FOR 2 CHARACTERS TO BE RECEIVED

MoV
CcHPB
BNE
MoV
MOV
Mov

€-2,80H8C
433503, 8DHLPR

4100000, BDHBAR
Of.ODHSLR
1

#B17T11,80HSCR
#17,80HSCR
0TBUF
, 8DHBA

LOOP WITH DATA

tMASTER CLEAR INTERFACE
;SELECT LINE 17
;SET UP TO TRANSMIT 400

CZOHI-DO

006132
006140
006146
006154
006162
006166
026170
006176
206200
006204
006210
006214
0cs214
06216
006222
006226
006230
006234
006234
006236

18
19
20
21

23
25
26
27
29
30
31
32

MACRO VO4.00

012777
012777
012777
012777
005777

001375
12271717

001407
017704
042704
012705

104000
017704
026704
001403
016705

177400
033503
100CN0
100000
003602
030001

SEQ 41

27-JUN-8S5 13:08:01 PAGE 20-15

003626
003614
003616
003606

2%:

003600

003570
000300
000400

3s:

003536
004364

004356

MOV
MoV
mov
MOV

1871

BNE
cMP8
8EQ
MOV
8IC
MOV
gh;

MOV

;SET BAR BIT FGR LINE 17

24
1 ,80HSLR
34
S0HSSR,R4
€300,R4
#400,R5
g

:T0 BE TRANSMITTED
:CHECK TO SEE THAT ONLY
i1 CHARACTER WAS RECEIVED
:(R4)=ACTUAL RECEIVED DATA
:CLEAR UNWANTED BITS
;(R5)=EXPECTED SILO FILL LEVEL, 1
tMORE THAN ONE CHARACTER RECEIVED,

S8OHNRC .R4

;READ NEXT RECEIVED CHARACTER REGISTER

SOMHBAR

gg:

2?R017.R4

MOV

RWRD17,RS

:h}

104001
1C4400
000020
000000
000020
000020
000000
000020
000000
000001
000000
000020

#-400,80H8C
33503, 9DHLPR
#100000, 80HBCR
2100000, 8DHBAR

4% :
SCOPE
LINE=LINE.1
BITX=BITX.BITX

1 (OCTAL) CHARACTERS

:LINE SPEED = 9600 BAUD

;SET BREAK BIT FOR LINE 17

tWAIT FOR ALL CHARACTERS

ERROR

iIS RECEIVED CHARACTER A BREFX

i (RS)=EXPECTED RECEIVED CHARACTER

;RECETVED DATA ERROR

;CHECK FOR ITERATIONS,

LOOP

KX =KX+ 1

XLINE=LINE
XBIT=BITX

K=KX

LINE=Q
BITX=1

KX=0
.REPT

20
BLINDL
\LINE,\BITX,\KX
.NLIST
LINE=<LINE.1
BITX=BITX+BITX
KX =KX+ 1
LIST
.ENDR
BLINDI
\LINE,\BITX,\KX

006240

;SET MALF DUPLEX ON LINE O
s TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
000340
000020
006350

171530
003550

003536

TS \XN,20,24
T21:
MoV
MOV
IF N8
MoV
.

he-

000022
012777
004767

004000
003570

003466

006274
006302
006310

012777
012777
012777

000000
012112
177420

003454
003454
003450

sSET UP TO ESCAPE TO NEXT TEST

MOV

9,FREEZL

;SET UP TO LOOP MWITH DATA

MOV
JSR

#8IT11,80HSCR
PC,CLRALL

tMASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND

MOV
MoV

#0,80HSCR
#TBUF, SOHBA

:DISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS

ENDC

006262
006270

#340,P5
920, ICOUNT
924 ,ESCAPE

XN=XN+1

MoV

#-400,80H8C

;AND BUS ADDRESS MEMORY LOCATIONS

;SELECT LINE O
$SET UP TO TRANSMIT

;400 (OCTAL) CHARACTERS

(2}

012767
012767
012767

006240
006240
006246
006254

C20HI 00

006316

006324
006332
006336
006340
006344
006346
006346
006350

006352

MACRO v04.00

012777

073503

003436

000001%

003436

005777

003432

105777

003412

001375
100001

SEQ 42

27-JUN-85 13:08:01 PAGE 20-16

18:

MOV

073503 ,8DHLPR

MOV

41 ,80HBAR

BNE

1578

B8PL

104002
104400
000001
000002
000001

EMT
2%:
SCOPE
LINE=LINE.1
BITX=BITX«BITX
KX=KA{+1

BLINDL

SDHBAR

;SET RECEIVER BLIND
+LINE SPEED =9600 BAUD
1CHARACTER LENGTH = 8 BITS
:SET BAR BIT FOR LINE O
tWAIT FOR aLL CHARACTERS TO BE TRANSMITTED

SOHSCR

{WERE ANY CHARACTERS RECEIVED

sRECEIVER NOT BLINDED, ERROR

2%
2

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

;SET HALF DUPLEX ON LINE 1
;TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
006352
006352
006360
0C6366

006374
00602
006406
006414
006422
006430

006436
006444
006450
006452
006456

016460
006462

006464

012767
012767
012767

000023

000340
000020
006462

171416
003436
003424

004000
003456

003354

012777
012777
012777
012777

000001
012112
177400
073503

003342
003342
003336
003324

012777

000002

003324

001375

105777

100001

T22:

AFNB

.ENDC

012777
004767

005777

TS \XN,20,2%

003320

XN=XN+1

1¢:

003300

MOV
MOV
MoV

9340,PS
420, ICOUNT
828 ,ESCAPE

;:DISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TU NEXT TEST

MOV

&,FREEZL

;SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,0DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV

#1, ¥DHSCR
4TBUF , SDHBA
#-400,80HBC
#73503, DHLPR

19T

SDHBAR

;MASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
:AND BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 1
sSET UP TO TRANSMIY
;400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND
;LINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS
sSET BAR BIT FOR LINE 1
;WAIT FOR PLL CHARACTERS TO BE TRANSMITTED

1878

SDHSCR

;WERE ANY THARACTERS RECEIVED

;RECEIVER NOT BLINDED. ERROR

MOV

BNE
BPL

104002
104400
000002
000004
000002

EMT
2%:
SCOPE
LINE=LINE+}
BITX=BITX+B8ITX
KX=KXel
BLINDLI

92 .00HBAR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

;:SET HALF DUPLEX ON LINE 2
;TRANSMITI A BINARY COUNT PATTERN
;sVERIFY THAT NO CHARACTERS ARE RECEIVED
006464
006464
006472

012767
012767

000340
000020

171304
003324

; 3

TS \XN,20,2%
T23:
MOV
MOV

4340,PS
920, ICOUNT

;:DISABLE ALL INTERNUPTS
:SET UP FOR 20 ITERATIONS

TASEATARARIISTENGG
S
Ay T
T

C2ZDMI-DO

006500

TR
iy TR

MACRO V04.00

012767

006574

el
i
e

27-JUN-85

003312

006506
006514

000024
012777

004767

004000

003242

006520
006526
006534
006542

012777
012777
012777
012777

000002
012112
177400
073503

003230
003230
003224
004212

006550
006556
006562
006564
006570
006572
06572
006574

012777
005777
001375
105777
100001

000004
003206

003212

006576

003344

003166

104002
104400
000003
000010
000003

5tQ 43

13:08:01 PAGE 20-17

JF N8B
JENDC
XN=XN+1

MOV
o
MOV

MOV

02$ ,ESCAPE

1SET UP TO ESCAPE TO NEXT TEST

#,FREEZL

;SE>

981IT11,8DHSCR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 2
;SET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
:SET RECEIVER BLIND
iLINE SPEED =9600 BAUD
sCHARACTER LENGTH « 8 BITS
;SET BAR BIT FOR LINE 2
;WAIT FOR ALL CHARACTERS 70 BE TRANSMITTED

JSR

PC,CLRALL

MOV
MOV
MOV
MOV

42 ,8DHSCR
#TBUF
, 3DHBA
#-400, 80HBC
973503, 8DHLPR

MOV
#4 ,8DHBAR
IST
SDHBAR
BNE
14
1878
8DHSCR
8PL
2%
HLT
2
EMT
2
24:
SCOPE
LINE=LINE+}
BITX=BITX+BITX
KX =KXl
BLIND1
\LINE,\BITX,\KX

is:

UP TO LOOP WITH DATA

;WERE ANY CHARACTERS RECEIVED

sRECEIVER NOT BLIMDED, ERROR
;:CHECK FOR ITERATIONS, LOOP

;SET HALF DUPLEX ON LINE 3
;TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
006576

006576
006604
006612

012767
012767
012767

000340
000020
006706

171172
003212
003206

006620
006626

000025
012777
004767

004000
003232

003130

006632
006640
006646
006654

012777
012777
012777
012777

©J0003
012112
177400
073503

003116
003116
003112
003100

006662
006670
006674
006676
006702
006704
006704
006706

012777
005777
001375

000010
003074

003100

105777
10001

10402
104400
000004

003054

TS \XN,20,2$
T24:
MOV
MOV
MOV
JJF N8B

.ENDC
XN=XN+1

1¢:

0340,PS
420, ICOUNT
423 ,ESCAPE

;DISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

MOV

¢,FREEZL

;SET UP TO LOOP WITH DATA

MoV
JSR

#81711,90MHSCR
PC.CLRALL

MOV
MOV
MOV
MoV

03, 9DHSCR
#TBUF
, SDHBA
#-400,80HBC
#73503,90HLPR

MOV
TST
BNE

#10,80HBAR
SDHBAR
1

sHASTER CLEAR INTERFACE
;:CLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 3
;SET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND
sLINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 3
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

15718

BPL
HLT
EMT
2%:
SCOPE
LINE=LINE~1

SOHSCR

24
2
2

;WERE ANY CHARACTERS RECEIVED

;RECEIVER NOT BLINDED, ERROR
;:CHECK FOR ITERATICNS, LOOP

CZDHI-DO

006710

HMACRO V04.00

SEQ 44

27-JUN-8S 13:08:01 PAGE 20-18

000020
000004

BITX=BITX.BITX
KX=KY+1
BLIND1
\LINE,\BITX,\KL

sSET HALF DUPLEX ON LINE 4
s TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
006710
006710
006716
006724

012767
012767
012767

000340
000020
007020

171060
003100
003066

TS \XN,20,2%
T25:
MOV
MOV
_—
MOV
.

000026

012777
004767

004000
003120

003016

006744
006752
006760
006766

012777
012777
012777
012777

000004
012112
177400
073503

003004
0173004
003000
002766

006774
007002
007006
007010
007014
007016

012777
835;;;
1
105777
100001

007020

104400
000005
000040
000005

007016

007022

000020
002762

002766

iDISABLE ALL INTERRUPTS
sSET UP FOR 20 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

MOV

#,FREEZ1

:SET UP TO LOOP WITH DATA

MoV
JSR

#81IT11,8DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV

4, 8DHSCR
#T3UF, 8DHBA
#-400, 80HBC
973503, 80HLPR

sMASTER CLEAR INTERFACE
:CLEAR ALL BYTE COUNT AND
:AND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 4

ENDC

006732
006740

#340,PS
420, ICOUNT
#2$ ,ESCAPE

XN=XN+1

1s:

002742

MOV
;fig

1578

BPL
HLT

104002

EMT

2%:
SCOPE
LINC=LINE+1
BITX=BITX+EITX
KX=KXs1

BLINDL

;SET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
:SET RECEIVER BLIND

sLINE SPEED =9600 BAUD

;CHARACTER LENGYH = 8 BITS

920, BOHBAR
g?HBAR

$SET BAR BIT FOR LINE 4
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

80HSCR

;WERE ANY CHARACTERS RECEIVED

24
2

:RECEIVER NOT BLINDED, ERROR

sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sSET HALF DUPLEX ON LINE S
;TRANSMITI A BINARY COUNT PATTERN

;VERIFY THAT NO CHARACTERS ARE RECEIVED

007022
007022
007030
007036

012767
012767
012767

000340
000020
007132

170736
(C02766
002754

TS \XN,20,2¢
T26:
MOV
Mav
IF N8
MOV
.

007056
007064
007072
007100

Ci-

000027
012777
004767

004000
003006

002704

012777
012777

000005
012112

002672
002672

012777
012777

177400
073503

002666
002654

;:DISABLE ALL INTERRUPTS
:SET UP FOR 20 ITERATIONS
$SET UP TO ESCAPE TO NEXT TEST

MoV

%,FREEZ1

$SET UP TO L.LOOP WITH DATA

MOV
JSR

#B1711,080HSCR
PC.CLRALL

sMASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND

MOV
MoV

€5, 80HSCR
#TBUF , 80HBA

;SELECT LINE 5
sSET UP TO TRANSMIT

ENOC

007044
007052

#340,PS
420, ICOUNT
#24 ,ESCAPE

XN=XN«1

MOV
Mmov

#-400,890HBC
973503, 8DHLPR

1AND BUS ADDRESS MEMORY LOCATIONS

;400 (OCTAL) CHARACTERS
+SET RECEIVER BLIND

CZDHI-DO

007106
007114
007120
007122
007126
007130
007130
007132

007134

MACRO vV04.00

012777
005777
001375

105777
100001

000040
002650

SEQ 45

27-JUN-85 13:08:01 PAGE 20-19

002654

1s:

002630

MOV
TST
BNE

1S18
ePL

#40, BOHBAR
80HBAR
1

80MHSCR
4

HLT
2
EMT
2
24:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe3
BLIND1
\LINE,\BITX,\KX

104002
104400
000006
000100
000006

iLINE SPEED =9600 BAUD
:CHARACTER LENCTH = 8 BITS
;SET BAR BIT FOR LINE S
iWAIT FOR ALL CHARACTERS TO BE TRANSMIITED

;WERE ANY CHARACTERS RECEIVED
tRECEIVER NCT BLINDED, ERROR

+CHECK FOR ITERATIONS, LOOP

sSET HALF DUPLEX ON LTNE 6
: TRANSMITI A BINARY COUNT PATTERN
:VERIFY THAT NO CHARACTERS ARE RECEIVED
007134
007134
007142
007150

007156
007164
007170
007176
007204
007212

007220
007226
007232
007234
007240
007242
007242
007244

007246

012767
012767
012767

000030
012777
004767

012777
012777

012777

012777
012777
005777
001375
105777
100001

000340
000020
007244

170634
002654
002642

TS \XN,20,2¢

T27:

JFNB
.ENDC
XN=XN+1

MOV
MoV
MOV
o
MOV

4340,PS
920, ICOUNT
824 ,ESCAPE

;DISABLE ALL INTERRUPTS

#,FREEZY

;SET UP TO LOOP WITH DATA

MOV
JSR

BIT11,0DHSCR
PC,CLRALL

;MASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
;AND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 6
sSET UP TO TRANSHIT
;400 (OCTAL) CHARACTERS
:SET RECEIVER BLIND
sLINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 6
;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

004000
002674

002572

000006
012112
177400
073503

002560
002560

MoV
MOV

#6 , 00HSCR
#TBUF
, SDHBA

002542

MOV

#73503,8DHLPR

000100
002536

002554

002542

002516

104002
104400
000007
000200
000007

MOV

#-400,80HBC

MOV
#100, S8DHBAR
ST
SDHBAR
BNC
1t
TST8
SDHSCR
8PL
24
HLT
2
EMT
2
2%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe¢1
BLIND1
\LINE,\BITX,\KX
14:

;SET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

:WERE ANY CHARACTERS RECEIVED

;RECEIVER NOT BLINDED. ERROR

;CHECK FOR ITERATIONS, LOOP

sSET HALF DUPLEX ON LINE 7
; TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
007246
007246
007254
007262

012767
012767
012767

000340
000020
007356

170522
002542
002530

TS \XN,20,2¢
T30:
MoV
MOV
MOV

#340,PS
#20, ICOUNT
2% ,ESCAPE

:DISABLE ALL INTERRUPTS
:SET UP FOR 20 ITERATIONS
;:SET UP TO ESCAPS TO NEXT TEST

CZDMHI-DO

MACRO VO4.00

JIF N8B

007270
007276

000031
012777
004767

004000
002562

002460

007302
007310
007316
007324

012777
012777
012777
012777

000007
012112
177400
073503

002446
002446
002442
002430

007332
007340
007344
007346
007352
007354
007354
007356

012777
005777
001375
105777
100001

000200
002424

002430

007360

SEQ 46

27-JUN-85 13:08:01 PAGE 20-20

.ENDC
XN=XN+1

13:

002404

o
HOV

#,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,80HSCR
PC,CLRALL

MOV
MOV
MOV
MOV

47 ,8DHSCR
#TBUF
, BUHBA
€-400,80H8C
073503, 8DHLPR

MOV
187
BNE
1ST8
BPL

4200, GDHBAR
SDHBAR
1
80HSCR
24

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
1AND BUS ADDRESS MEMORY L.OCATIONS
;SELECT LINE 7
;SET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
sSET RECEIVER BLiND
;LINE SPEED =9600 BAUD
sCHAPACTER LENGTH = 8 BITS
:SET BAR BIT FOR LINE 7
;WAIT FOR ALL CHARACTERS TJ BE TRANSMITTED

104002

EMT

104400
000010
000400
000010

2%:
SCOPE
LINE=LINE~1
BITX=BITX+BITX
KX=KXe+
1
BLIND1
\LINE,\BITX,\KX

: 3

;WERE ANY CHARACTERS RECEIVED
;RECEIVER NOT BLINDED, ERROR

;CHECK FOR ITERATIONS, LOOP

;SET HALF DUPLEX ON LINE 10
s TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
007360

007360
007366
007374

012767
012767
012767

000340
000020
007470

170410
002430
002416

007402
007410

000032
012777
004767

004000
002450

002346

007414
007422
007430
007436

012777
012777
012777
012777

000010
012112
177400
073503

002334
002334
002330
002316

007444
007452
007456
007460
007464
007466
007466
007470

012777
005777
001375
105777
100001

000400
002312

002316

104002
104400
000011
001000

002272

TS \XN,20,2%
T31:
MOV
MOV
MoV
JFNB
o
MOV
.ENOC
XN=XN+1
MOV
JSR

1%:

#340,PS
#20, ICOUNT
924 ,ESCAPE

:DISABLE ALL INTERRUPTS
+SET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

@,.FREEZL

:SET UP TO LOOP MITH DATA

#8IT11,8DHSCR
PC.CLRALL

;MASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
:AND BUS ADORESS MEMORY LOCATIONS
:SELECT LINE 10
:SET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
:SET RECEIVER BLIND
;LINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 10
:WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

MOV
MOV
MoV
MoV

#10, 80HSCR
#TBUF
. BOHBA
#-400, 80HBC
473503 ,8DHLPR

MOV
187
BNE
1ST8
8PL
HLT
EMT

4400, 8DHBAR
SOHBAR
14
SOHSCR
24
2
2

24:
SCOPE
LINE=LINE+1
BITX=BITX+BITY

sWERE ANY CHARACTERS RECEIVED
;RECEIVER NOT BLINDED, ERROR

;CHECK FOR ITERATIONS, LOOP

;i 3

C2DHI-DO

007472

MACRO V04.00

SEQ 47

27-JUN-85 13:08:01 PAGE 20-21

000011

KXaKX+1
BLINDL
\LINE,\BITX,\KX

;:SET HALF DUPLEX ON LINE 11
sTRANSMTTI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
007472

007472
007500
007506

012767
012767
012767

000340
000020
007602

170276
002316
002304

007514
007522

000033
012777
004767

004000
002336

002234

007526
007534
007542
007550

012777
012777
012777
012777

000011
012112
177400
073503

002222
002222
002216
002204

007556
007564
007570
007572
007576
007600
007600
007602

012777
005777
001375

001000
002200

002204

007604

105777

100001

002160

TS \XN,20,2%
T32:
MOV
MOV
MOV
IF N8
o
MOV
.ENDC
XN=XN+1
MOV
JSR

1$:

9340,PS
920, ICOUNT
#23% ,ESCAPE

;:DISABLE ALL INTERRUPTS
:SET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

¢,FREEZL

:SET UP 70 LOOP WITH DATA

#B8IT11,8DHSCR
PC.CLRALL

;MASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
:AND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 11
+SET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND
;LINE SPEED =9600 BA'O
;CHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 11
;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

MOV
MOV
MOV
MOV

#11,80HSCR
0TBUF
, DHBA
#-400,80H8C
#73503, 80HLPR

MOV
8T
BNE

#1000, 8DHBAR
S8DHBAR
18

15718

S0HSCR

BPL
24
HLT
2
EMT
2
24
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KXsKXe¢1
BLIND1
\LINE,\BITX,\KX

104002

104400
000012
002000
000012

sWFRE ANY CHARACTERS RECEIVED

;RECEIVER NOT BLINDED, ERROR
;CHECK FOR ITERATIONS, LOOP

;SET HALF DUPLEX ON LINE 12
; TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACYERS ARE RECEIVED
007604
007604
007612
007620

012767

012767
012767

000340
000020
007714

170164

002204
002172

007626
007634

000034
012777
004767

004000
002224

002122

007640
007646
007654
007662

012777
012777
012777
012777

000012
012112
177400
073503

002110
002110
002104
002072

TS \XN,20,2%

T33:

JOF N8

.ENDC
XN=XN+
1

)]

MOV
MOV
o
MoV

#340,PS

220, ICOUNT
#24 ,ESCAPE

;DISABLE ALL INTERRUPTS
:SET UP FOR 20 ITERATIONS
sSET UP TO ESCAPE TO NEXT TEST

#.FREEZL

;SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,.00HSCR
PC,CLRALL

MOV
MOV
MOV
MOV

012, 80HSCR
#TBUF
, 8DHBA
#-400,80HBC
473503, 8DHLPR

sMASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
;AND BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE 12
1SET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND
:LINE SPEED =9600 BAUD

; 3

CZDMI-DO

007670
007676
007702
007704
007710
007712
007712
007714

007716

MACRO VO4.00

012777
005777
001375
105777
100001

002000
002066

SEQ 48

27-JUN-85 13:08:01 PAGE 20-22

002072

002046

104002
104400
000013
004000
000013

MOV
42000, 8DHBAR
1s:
8T
S0HBAR
BNE
14
TST8
80HSCR
8PL
24
HLT
2
EMT
2
2%:
SCOPE
LINE=LINE+1
BITX=B1TX+BITX
KX=KX+1
BLIND1
\LINE,\BITX,\KX

;CHARACTER LENGTH = 8 BITS
:SET BAR BIT FOR LINE 12

;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

;WERE ANY CHARACTERS RECEIVED
;RECEIVER NOT BLINDED, ERROR

;CHECK FOR ITERATIONS, LOOP

;SET HALF DUPLEX ON LINE 13
; TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
007716
007716
007724
007732

012767
012767
012767

000340
000020
010026

170052
02072
002060

000035
012777
004767

004000
002112

202010

007752
007760

012777
012777
012777
012777

000013
012112
177400
073503

001776
001776
001772
001760

010002
010010
010014
010016
010022
010024
010024
010026

012777
005777
001375
105777
100001

004000
001754

001760

007740
007746

007766
007774

010030

001734

104002
104400
000014
010000
000014

TS \XN,20,2¢

7T34:

IFNB

.ENDC
XN=XN+1

MOV
MOV
MOV

#340,PS
920, ICOUNT
#24 ,ESCAPE

;DISABLE ALL INTERRUPTS
;SET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

MOV

o,FREEZL

:SET UP TO LOOP WITH DATA

MOV
JSR

#81IT11,80HSCR
PC,CLRALL

MoV
MOV
MOV
MOV

#13, 8DHSCR
#TBUF
, 8DHBA
#-400,80H8C
#73503,8DHLPR

;MASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
:AND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 13
sSET UP TO TRANSMIT
;400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND
iLINE SPEED =9600 BAUD
iCHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 13
;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

MOV
#4000, SDHBAR
TST
SDHBAR
BNE
14
7ST8
SCHSCR
B8PL
2
HLT
2
EMT
2
24:
SCOPE
LINEsLINE+1
BITX=BITX+BITX
KX =KX+ 1
BLINDL
\LINE,\BITX,\KX
14:

;WERE ANY CHHARACTERS RECEIVED
;RECEIVER NOT BLINDED, ERROR

:CHECK FOR ITERATIONS, LOOP

:SET HALF DUPLEX ON LINE 14
s TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
010030
010030
010036
010644

012767
012767
012767

000340
000020
010140

167740
001760
001746

TS \XN,20,2$

T35:

IFNB

MOV
MOV
MOV
o

#340,PS
920, ICOUNT
#24 ,ESCAPE

;OISABLE ALL INTERRUPTS
:SET UP FOR 20 ITFRATIONS
;:SET UP TO ESCAPE TO NEXT TEST

: 3

CZOMHI-DO

MACRO v04.00

SEQ 49

27-JUN-85 13:08:01 PAGE 20-23

ENDC

MOV

@ ,FREEZ1

:SET UP TO LOOP WITH DATA

010052
010060

000036
012777
004767

004000
002000

001676

MOV
JSR

#8IT11,8DHSCR
PC,CLRALL

iHASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND

010064
010072
010100
010106

012777
012777
012777
012777

000014
012112
177400
073503

001664
001664
001660
001646

MOV
MOV
MOV
MOV

€14, 30HSCR
4TBUF , BDHBA
#-400,80HBC
973503, @DHLPR

:SELECT LINE 14
:SET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS
sSET RECEIVER BLIND

010114
010122
010126
010130
010134
010136
010136
010140

010142

012777
005777
001375
105777
100001

010000
001642

;

XN=XN+1

001646

001622

104002
104400
000015
020000
000015

MOV
910000, 830HBAR
TST
SDHBAR
BNE
14
7578
S8OMSCR
BPL
2
HLY
2
EMT
2
28
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe¢1
BLINDL
\LINE,\BITX,\KX
1s:

;AND BUS ADDRESS MEMORY LOCATIONS

;LINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS

:SET BAR BIT FOR LINE 14
:WAIT FOR ALL CHARACTERS TO BE TRANSMITTED

sWERE ANY CHARACTERS RECEIVED
sRECEIVER NOT BLINDED,

ERROR

;:CHECK FOR ITERATIONS,

LOOP

;SET HALF DUPLEX ON LINE 15
: TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED
010142
010142
010150
010156

012767
012767
012767

000340
000020
010252

167626
001646
001634

TS \XN,20,24
T36:
MOV
MoV
IF N8
HOV
.

010176
010204
010212
010220

010226
010234
010240
010242
010246
010250
010250
010252

000037
012777

004767

012777
012777
012777
012777

012777
005777
001375
105777
100001
104002
104400
000016
040000
000016

004000

001666

000015
012112
177400
073503

020000
001530
001510

001564

XN=XN+1

001552
001552
001546
001534

001534

;DISABLE ALL INTERRUPTS
1SET UP FOR 20 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

MOV

¢, FREEZ1

;SET UP TO LOOP WITH DATA

MOV

#8I711,80HSCR

;MASTER CLEAR INTERFACE

JSR

PC,CLRALL

ENOC
010164
010172

#340,PS
420, ICOUNT
#24 ,ESCAPE

MOV
MOV
MOV
MOV

MOV
TST
BNE
TST8
BPL
HLT
EMT
2%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
1s:

#15, SOHSCR
#TBUF , SOMBA
#-400,80H8C
#73503, 0DHLPR

#20000, BDHBAR
SOHBAR
1
80HSCR
24
2
2

;CLEAR ALL BYTE COUNT AND

sAND BUS ADORESS MEMORY LOCATIONS
tSELECT LINE 15
:SET UP TO TRANSMIT

;400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND

sLINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS

1SET BAR BIT FOR LINE 1S
sHAIT FOR ALL CHARACTERS TO BE TRANSMITTED
:WERE ANY CHARACTERS RECEIVED
tRECEIVER NOT BLINDED, ERROR

;CHECK FOR ITERATIONS,

LOOP

CZOMI-DO

MACRO VO4.00

SEQ 50

27-JUN-85 13:08:01 PAGE 20-24

010254

BLIND1

\LINE,\BITX,\KX

sSET HALF DUPLEX ON LINE 16
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
010254
010254
010262
010270

012767
012767
012767

010276
010304

000040
012777
004767

010310
010316
010324
010332

010340
010346
010352
010354
010360
010362
010362
010364

010366

000340
000020
010364

167514
001534
001522

004000
001554

001452

012777
012777
012777
012777

000016
012112

001440
001440
001434
001422

012777
005777
001375
105777
100001

040000
001416

001422

177400
073503

TS \XN,20,2¢
T37:
MOV
MOV
MOV
JIF N8
<>
MOV
.ENDC

XN=XN+1

1¢:

001376

#340,PS
#20, ICOUNT
924 ,ESCAPE

sDISABLE ALL INTERRUPTS
1SET UP FOR 20 ITERATIONS
1SET UP TO ESCAPE TO NEXT TEST

¢,FREEZ1

;SET UP TO LOOP WITH DATA

MoV
JSR

#81IT11,80HSCR
PC.CLRALL

MOV
MoV
MOV
MOV

416, SDHSCR
#TBUF
, SDHBA
#-400, 80HBC
473503, 90HLPR

MOV
TST

#0000, SDHBAR
SOHBAR

iMASTER CLEAR INTERFACE
:CLEAR ALL BYTE COUNT AND
;AND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 16
$SET UP TO TRANSMITY
1400 (OCTAL) CHARACTERS
;SET RECEIVER BLIND
iLINE SPEED =9600 BAUD
iCHARACTER LENGTH = 8 BITS
sSET BAR BIT FOR LINE 16
iWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

B8PL

BNE
1578
HT

13,11

104002
104400
000017
100000
000017

28
SCOPE
LINE=_INE+1
BITX=BITX+BITX

KX=KXe1

BLIND1

1
SOHSCR

-1

sWERE ANY CHARACTERS RECEIVED
;RECEIVER NOT BLINDED, ERROR
1CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sSEY HALF DUPLEX ON LINE 17
s TRANSMITI A BINARY COUNT PATTERN

sVERIFY THAT NO CHARACTERS ARE RECEIVED
010366
010366
010374
010402

012767
012767
012767

010410
010416

000041
012777
004767

010422
010430
010436
010444

012777
012777
012777
012777

000340
000020
010476

167402
001422
001410

004000
001442

001340

000017
012112

001326
001326
001322
001310

177400

073503

TS \XN,20,2¢
T40:
MOV

JIF N8
.ENDC
XN=XN+1

#340.PS

MoV
O
MOV

920, ICOUNT

424 ,ESCAPE

tDISABLE ALL INTERRUPTS
sSET UP FOR 20 ITERATIONS
+SET UP TO ESCAPE TO NEXT TEST

#,FREEZL

+SET UP TO LOOP WITH DATA

MOV
JSR

BIT11,00HSCR
PC,CLRALL

MOV
MoV
MoV
nov

#17,8DHSCR
#TBUF
, BDHBA
¢-400, 80HBC
473503, G0OHLPR

sMASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
tAND BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE 17
$SET UP TO TRANSMIT

MOV

s400 (OCTAL) CHARACTERS

:SET RECEIVER BLIND
iLINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS

1 3

CZOMI-DO
010452
010460
010464
010466
010472
010474
010474
010476

MACRO V04.00

012777
005777
001375
105777
100001

104002
104400
000020
000000
000020

100000
001304

27-JUN-85

SEQ 51

13:08:01 PAGE 20-25

001310
1s:

001264

MoV
TST
BNE
1ST8
BPL
HLT
EMT

2%
SCOPE
LINE=LINE.1
BITX=BITX+BITX

KX=KX+1

9100000, SOHBAR

SOHBAR
14
SOHSCR
24
2
2

:SET BAR BIT FOR LINE 17
iWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

sWERE ANY CHARACTERS RECEIVED
sRECEIVER NOT BLINDED, ERROR
;CHECK FOR ITERATIONS, LOOP

CZOHI-D0

MACRO V04.00

SEQ 52

27-JUN-85 13:08:01 PAGE 21

1
2 010500

.EOP

t/BEGIN/
$END OF PASS
sTYPE NAME OF TEST
iUPOATE PASS COUNT
sCHECK FOR EXIT 7O ACT-11
sRESTART TESTY

001344
001274
001272
170256

CLR

INC

TST

BNE

TYPE

1TYPE NAME OF TEST

LAST

iCLEAR LAST ERROR PC

PASCNT

tUPDATE PASS COUNT

ERRFLS

1CLEAR ERROR FLAG

LIGHTS

+ ARE WE USING LIGHTS?

3 BRANCH IF WE ARE

+ TYPE PASCOUNT MFSSAGE

PASTXY

OCTASC

016767

001246

013701
001405
000005
004711
000240
000240
000240
000167
000001
006
012012

000042

170234

PASARG

s CONTINUE

MoV

PASCNT ,LIGHTS

sDISPLAY PASS COUNT

MOV
%gfl'

9042,RL
RESTRT

$CHECK FOR ACT-11 OR DOP
+IF NOT, CONTINUE TESTING

LOGICAL :

NOP
NOP
NOP
RESTRY: J

170514

PASARG:

002

+ PRINT PASSCOUNT

.SCOPE

.WORD
.BYTE
.MORD

JSR

PC.(R1)

BEGIN
1
6,2
PASCNY

1CHECK FOR LOOP ON CURRENT TEST
sCHECK FOR ITERATION SUPPRESSION
010600
010606
010610
010616
010620
010626
010630
010634
010642
010644
010630
010634
010660
010662
010666
010670
010674

032777
001030
032777
001021
032777
001006
003267
026767

001007

005067
003067
011667
000002
016716
000002
005767
001743

002000

170172

SCOPER: BIT

#5410, GSWR

040000

170162

1s:

817

#5N14, GSWR

BIT

o5M11, 8SWR

170152
001172
001166

BNE
BNE
BNE
INC

001156
001134
001136

2¢:

Crp
BNE
CLR
CLR
nov

001130

34:

MOV

001114

4%:

001162

RT1

RTI
187

8EQ

4
3

24
LPCNT
LPCNT, ICOUNT
39
LPONT
ERRFLG
(SP).RETRN

RETRN, (SP)
ERRFLG

2UAVONS

TYPE
MEPASS
CLR

EOP:

104401
013204
0035067
005067
005267
005767
001005
104401
013217
104402
010572
000403

1 PARAMETERS TO PRINT PASSCOUNT

wmuawn

010500
010502
010504
010310
010514
010520
0103524
010526
010530
010532
010534
010336
010540
010540
010546
010546
010552
010554
010336
010560
010562
010564
010566
010372
010574
010576
3 010600

14
; 6

CZDHI-DO
010676

4 010700

MACRO vV04.00

27-JUN-B85 13:08:01 PAGE 21 1

000762

.SCoP1

SEQ 53

;CHECK FOR FREEZE ON CURRENT DATA
010700
010706

010710
010714

032777
001402

016716

000002

001000

001106

170072

SCOPiIR:

1s:

BIT
BEQ

MOV
RTI

ASHO9, BSWR
1s

FREEZ1,(SP)

;

CZOMI-00

MACKO VO4.00

SEQ 54

27-JUN-85 13:08:01 PAGE 22

1 010716

.ERROR

;ERROR HANDLER
010716
010724
010726
010732
010734
010740
010744
010746
010750
010754
010756
010760
010762
010766
010772
010776
011002
011006

011010
011014
011016
011020
011022

011024
011026
011034

011036
011040

011044
011046
011050
011052
011054
011056

011060
011064
011066

011070

011074
011076
011100
011104
011112
011114
011120
011122
011124
011126

032777
001055
021667
001404
011667
005067
104406
011605
162705
011504
006304
006304
042704
062704
012467
011467
005767
001403

095767
001011
;04401
013114
104432
011122
012767
104401
000000
005767
001404
104401
013114
104402
000000
104407
005777
100005
010046

016600

000000
012600
005267
032777
001402
016716
000002
000001
006
012046

020000

170054

ERRORS:

001122
001114
001044

18:

000002

177001
013336
000040
000052
001002

000040
TYPMSG:

000001

000754

ERRMSG:
TYPDAT:

000010

DATABP:
RESREG:

167714

HALTS:

000002
000710
002000
000700

002

BIT
BNE
cHP
BEQ
MOV
CLR
SAVOSP
MOV
SuB
MOV
ASL
ASL
BIC
ADD
MOV
MOV
ST
BEQ

ST
BNE
TYPE
MCRLF
OCTASC
ERTABC
MOV
TYPE
O
TST
BEQ
TYPE
MCRLF
OCTASC
0
RESOS
TST
BPL
PUSHRO

MOV
167666

EXITER:

1s:
ERTABO:

HALTY
POPRO
INC
BIT
BEQ
MOV
RTI
1
.BYTE
SAVPC

#SW13, 9SHR
HALTS
(SP),LAST
1%
(SP),LAST
ERRFLG

(SP),RS
#2,RS
(RS) R4
Re
R4
#177001,R4
#ERRTAB.
R4
(R4)+ ,ERRMSG
(R4),DATABP
ERRFLG
TYPMSG

DATABP
TYPDAT

.3
-~
: 5
: 5

01 ,ERRFLG

DATABP
RESREG

SWR
EXITER

. 5
i 5

: 4

2(SP),RO
ERRCNT
#5M10, 8SWR
13
ESCAPE, (SP)

6.2

; 4

CZOHI-DO

MACRO V04.00

011130

011132
011136
011142
011144
011150
011154
011160
2 011162

. TRPSRV

011646

162716
017616
006316
042716
062716
017616
000136

SEQ S5

27-JUN-85 13:08:01 PAGE 23

s TRAP DISPATCH SERVICE
sARGUMENT OF TRAP IS EXTRACTED
sAND USED AS OFFSET YO OBTAIN POINTER
sTO SELECTED SUBROUTINE

TRPLRV: MOV

000002
000000

TRPOK:

177001
013256
000000

. SAVREG

SuB
MOV
ASL
8IC
ADD
MOV
JMP

(sP),-(SP)

:GET PC OF RETURN

(SP)
€177001,(SP)
4TRPTAB, (SP)
8(SP),(SP)
8(SP).

sMULTIPLY TRAP ARG BY 2
;:CLEAR UNWANTED BITS
sPOINTER TO SUBROUTINE ADNRESS
;sSUBROUTINE ADDRESS
;GO TO SUBROUTINE

92,(SP)
8(SP),(SP)

:=PC OF TRAP
iGET TRP

;:SAVE PC OF TEST THAT FAILED AND RO-RS
011162

016667

000004

000656

SVOSP:

MOV

4(SP),SAVPC

:SAVE RO-RS
011170
011174
011200
011204
011210
011214
011220
3 011222

010567
010467
010367
010267
010167
010067
000002

011222
011226
011232
011236

016700
016701
016702
016703

000602
000600
000576
000574

011246
011252

016705
000002

000570

011242

016704

000646
000640
000632
000624
000616
000610

Sv0o5:

.RESREG

000572

RS05:

MoV
MOV
MOV
MOV
MOV
MOV
RTI

R5,SAVRS
R4 ,SAVR4
R3,SAVR3
R2,SAVR2
R1,SAVR1
RO, SAVRO

;:RESTORE RO-RS
MOV
MoV
MoV
MOV

SAVRO,
RO
SAVRL,R1
SAVR2,R2
SAVR3,R3

MOV
RTI

SAVRS,R5

MOV

SAVR4 R4

: 3

CZOHI-DO

MACRO VO4.00

27-JUN-85

1 011254

SEQ 56

13:08:01 PAGL 24

.TYPER

sTELETYPE OUTPUT ROUTINE
011254
011260
011264
011270
011272
011274
011276
011300
011304
2 011306

017605
062716
108777

100375
105715
001001

000002
112577
000767

TYPER:

000000

000002
000462

14:

000450

2%:
.INSTRG

MOV
ADD
TS78
ePL
TST8
BNE
RTI

MOvB
BR

8(SP),P5
#2,(5P)
8TPCSR
14

(RS)

(R5)+,8T°DBR
14

;ASCII STRING INPUT ROUTINE
011306
011314
011320
011322

011324

011330

011334
011340

011342
011346
011352
011356
011360
011366
011372
011374
011376
011400
011402
011404
011406

017667
062716
104401
000000
012704
012703
105777
100375
117714
142714
122427
001413
unn
105777
100375
005303
001356
104401
013110
000745

000002

000000
000002

0000C6

INSTRG:

INSTRY:

MSG:

013300
000007
000406

1$:

000402
0002¢0
000015

000364
000260

000366

2%:

INSTRE:

INSTRZ:

HMNV
ADD

TYPE
0
MoV
MOV
TST8
8PL
Move

8(SP),MSG
92,(5P)

SINBUF
R4

¢7.R3
8TKCSR
13
S8TKDBR,(R4)

BI1CB
cMpPe
8EQ
MOove
1ST8
8PL
DEC
BNE

K3
1s

HMQM
BR

INSTR1

TYPE

RTI

#200,(R4)

(R4)+,015
INSTR2
STKDBR,8TPDER
STPCSR

CZDHI-DO

MACRO V04.00

1 011410

SEQ 57

27 JUN-85 13:08:01 PAGE 25
.PARAMS

1CONVERT ASCII STRING TO OCTAL
011410
011412
011416
011422

011426
011432
011436
011440
011442
011846
011452
011454
011460
011462
011466
011470
011474

011476

011502
011504

011506
011510
011512
011514
011516

011605
012567
012567
012567

112567
112567
010516

005005
012704
122714
00.420
121427
002415
121427
003012

142714
152405

122714

001406
006305

000146
000144
000142

P2RAMS:

000140
000135
013300
000015
000060

PARAM1:

1s:

000067

000060

Hove
MOve
MOV

CLR
MOV
CMPB
BEQ
cMPa
8LT
cMPB
BGT

8IC8
BIS8

000015

006305
006305
000760
104404
000750

MOV
MOV
MOV
MOV

CcMPB

8EQ
ASL

ASL
ASL
BR
PARERR: INSTER
BR

{SP),RS
(R5)+,LOLIM
(R5)+ HILIM
(R5)+,DEVADR

(R5)+,L0BITS
(R5)+,ADRCNT
RS,(SP)

RS
¢INBUF
R4
15, (R4)
PARERR
(R4),960
PARERR
(R4),067
PARERR

€60, (R4)
(R4)+,RS
15, (R4)

LIMITS
RS
RS
RS
1

PARAML

:TEST TO SEE IF NUMBER IS WITHIN LIMITS
011520

020567

000042

LIMITS: CHMP

011526
011532
0115324

020567
103770
136705

000032

cHp
BLO
BITB

011524

011540

101373

001365

BHI

000032

BNE

RS, HILIM
PARERR

PS5, LOLIN
PARERR
LOBITS,RS
PARERR

:STORE NUMBER AT SPECIFIED ADDRESS
011542
011546
011550
011554
011560
011562
011564
011566
¢11570
011572

016704
010524
062705
105367
001372
000002
020000
000000
000000
000000
011573

000022
007002
000013

1s:

LOLIM:
HILIN:
DEVADR:
LOBITS:
ADRCNT=LOBITS.1

DEVADR
R4
RS.(R4
).
#2,RS
ADRCNT
1s

CZ0HI-DO

MACRO VO4.00

011574

SEQ S8

27-JUN-85 13:08:01 PAGE 26

.OCTASC

sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
011574
011600
011604
011610
011614
011620

011624
011630
011634
011640
011642
011645
011652

011654
011656
011660
011662
011664
011666
011672
011674
011700
011702
011706
011710
011714
011720

011722
011724

011726

011730
011744
011736

011740
011742

011744

017601
062716
012167
112167
112167
013167
0167C4
116705
012700
010403
042703
062703
110320
006204
006204
006204
005305
001365
012703
114023
105367
001374
105767
001405
112723
105367
001373

000000
000002
000130
000126
000123
000129
000114
000106
013312

177770
000260

013324
000042

1$:

23:

38:

000240
000023

8(SP),R1
#2,(SP)
(R1)+,WRDCNT
(R1)+,CHRCNT
(R1) ,SPACNT
8(R1)+ ,BINWRD
BINWRD ,R4
CHRCNT RS
OTEMP,RO
R4,R3
€177770,R3
9260 ,R3
R3,(RO)+
R4
R4
R4

DEC
BNE
Mov

RS
3
SMDATA
R3

DECB
BNE
TST8
BEQ

CHRCNT
43
SPACNT
63

MOVB

5¢:

MOVB
DECB
BNE
CLR8
TYPE

64:

000004

MOV
ADD
MOV
MOVB
MOVB
MOV
MOV
MOVB
MOV
MOV
BIC
ADD
MOVB
ASR
ASR
ASR

000035

105013

104401
013324
005367
001325
000002
000000
000000
011742
006000

OCTASN:

MDATA

DEC

-CRO), (R3).

#240,(R3)»
SPACNT
sS4
(R3)

WRDCNT

CZDOHI-DO

MACRO V04.00 27-JUN-85 1.:08:01 PAGE 27

011746

011746
011750
011752
011754

177560
177562
177564
177566

TLVL>

011756
011760
011762
011764
011766
011770
011772
011774
011776
012000
012002
012004

012006
012010

M-

000000
000000
000000
000000
000000
000000
000000
0000C0
000000
000000
000000
000000
00000y

'3
S€Q
59

.POINT

+/DHSCR,DHNRC,DHLPR,DHBA,DHBC,DHBAR, DHBCR, DHSSR, DHSLR, DHRVEC, DHRLVL DHTVEC

TKCSR:
TKOBR:
TPCSR:
TPDBR:
IRP

177560
177562
177564
177566
A

A:
.ENDM
DHSCR:
DHNRC:
OHLPR:
DHBA:
OHBC :
DHBARDHBCR:
DHSSR:
DHSLR:
DHRVSC:
DHRLVL:
DHTVEC:
OHTLVL:
.VARIF

012010
012012
012014
912016
012020
012022
012024
012026
012030
012032
012034
012036
012040
012042
012044
012046
012050
012052
012054

00000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

ERRFLG:
PASCNT:
ERRCNT:
RETRN:
ESCAPE:
FREEZL:
JCOUNT:
LPCNT:
SAVRO:
SAVRL:
SAVR2:
SAVRI:
SAVR4:
SAVRS:
SAVSP:
SAVPC:
INIFLG:
STFLG:
LAST:
AIRP

012056
012060
012062

000000
200000
000000

ENDFLG:
NULL :
LINACT:

.ENDM

;INDIRECT POINTERS

<DHSCR,DHNHC ,DHLPR ,DHBA, DHBC ,DHBAR , DHBCR,DHSSR , DHSLR , DHRVEC , DHRLVL , DRTVEC, DH

;PROGRAM VARIABLES

O
0
O

,DHTLVL/
VL
C.DHTL

sERROR FLAG
;:PASS COUNT
;ERROR COUNT
;SCOPE RETURN ADDRESS FOR TEST LOOPING
;ADDRESS FOR ERROR ESCAPE
;:DATA LOOPING RETURN ADDRESS
s ITERATION COUNT FOR TEST IN PROGRESS
sNUMBER OF ITERATIONS THIS TEST
;RO SAVE AREA
;R1 SAVE AREA
:R2 SAVE AREA
iR3 SAVE ARE
;R4 SAVE AREA
;RS SAVE AREA
sSTACK POINTER SAVE AREA
;+CALLING ROUTINE SAVE AREA
sPROGRAM INITIALIZATION FLAG
;PROGRAM START FLAG
sLAST ERROR PC
<ENDFLG,NULL ,LINACT>

CZDHI-DO

MACRO VO4.00

1 012064

SEQ 60

27-JUN-85 13:08:01 PAGE 28
CCLRALL

;CLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS

012064
012070
012074
012100
012104
012106
012110

S 012112

6
7
8
9
10
1

012113
012114

012115
012116
012117

012120
012121
012122
012123
012124

012125

012126
012127
012130
012131

012132
012133
012134
012135

012700
005077
005077
0n5277
0053%
001370
000207
000001

000

000377

001
000002
002
000003
003
000004
004
000005
005
000006
006
000007
007
000010
010
000011
011
000012
012
000013
013
000014
014
000015
© 015
000016
016
000017
017
000020
020
000021
021
000022
022
000023
023
000024

000020
177670
1776A6
177652

CLRALL:
I H

TDAT=1

TBUF ;

MOV
CLR
CLR
INC
DEC
BNE

920,R0
S0HBA
S0HBC
S8OHSCR
RO
14

RTS

.BYTE

.REPT
377
.BYTE
TDAY
.NLIST
TDAT=TOAT+1
.LIST
.ENOR
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+4
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAY
TOAT=TDAT+1
.BYTE
TDAY
TOAT=TDAT+1
.BYTE
TDAY
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TODAT
TOAT=TDAT.+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TOATY
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.+%
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1

CZOHI-DO
012136
012137

012140
012141

012142

012143

012144

012145
012146
012147

012150
012151

vi2152

012153
012154

012155
012156
012157

012160
012161

012162
012163

012164
012165
012166

012167

012170

012171
012172

MACRO V04.00 27-JUN-85 13:08:01 PAGE 28-1
024
000025
025
000026
026
000027
027
000030
030
000031
031
000032
032
000033
033
000034
034
000035
035
000036

036
000037
037
000040
040
000041

041
000042
042
000043
043
000044
044
000045
045
000045
046
000047
047
000050
050
000051
051
000052

052
000053
053
000054
054
000055
055
000056
056
000057
057
000060
060

.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TODAT
TOAT=TDAT«1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TODAT
TDAT=TDAT+1
.BYTE
TOAT
TDAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAf(
TOAT=TDAT.1

.BYTE
TDAT
TOAT=TOAT»1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1

.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT+2
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+2
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAY
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.1

.BYTE
TDAT
TOAT=TDAT»1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TODAT
TDAT=TOAT
.1
.BYTE
TDAT

SEQ 61

CZDHI-00

MACRO VO4.00

27-JUN-85 13:08:01 PAGE 28-2

000061
061
000062
062
000063
063
000064
064
000065
065
000066
066
000067
067
€20070
070
000071
071
000072
072
000073
073
000074
074
000075
075
000076
076
000077
077
000100
100
000101
101
000102
102
000103

TOAT=TOAT+1
.BYTE
TOAT
TOAT=TDAT»1
.BYTE
TDAY
TDAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TOAT+1
.BYTE
TDAT
TDAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TODAT.+1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TOAT.+1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+4
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+4

012225

000104
104
000105
105
000106
106
000107
107
000110
110
000111
111
000112
112
000113
113

TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT.4
.BYTE
TOAY
TDAT=TODAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TODAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT

012226

114

012173
012174
012175

012176
012177

012200
012201
012202

012203
012204

012205
012206
012207
012210

012211
012212
012213
012214

012215
012216
012217
012220
012221

012222

012223
012224

103

000114
000115

.BYTE

TDAY

TOAT=TDAT«1
.BYTE

TDAT

TOAT=TDAT.1

SEQ 62

CZOHI DO

012227

012230
012231

012232
012233
012234
012235

012236
012237
012240

012241
012242
012243

012244
012245
012246
012247
012250
012251
012252
012253

012254

012255
012256
012257
012260
012261

012262
012263

MACRO VO4.00

115

.BYTE

TDAT

BYTE

TDAT

000116
116
000117
117
000120
120
000121
121
000122
122
000123
123
000124
124
000125
125
000126

TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT»1
.BYTE
TOAT
TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1

000127
127
000130
130
000131
131
000132
132
000133
133
000134
134
000135
135
000136
136
000137
137
000140
140
000141
141
000142
142
000143
143
000144
144
000145
145
000146
146
000147
147
000150
150
000151
151

TOAT=TODAT.+1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.%
.BYTE
TDAT
TDAT=TODAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAY
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TDAY
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT»1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT.+4
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT»1
.BYTE
TDAY
TOAT=TDAT+4
.BYTE
TDATY
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAY
TOAT=TDAT+1
.BYTE
TDAT

126

SEQ 63

27-JUN-85 13:08:01 PAGE 28-3

CZDHI-00

012264
012265

012266
012267

012270
012271
012272
012273
012274
012275
012276
012277

012300
012301
012302
012303
012304

012305
012306

012307
012310
012311

012312
012313
012314

012315
012316
012317

HACRO V04.00

0001352

152
000153
153
000154
154
000155
155
000156
156
000157
157
000160
160
000161
161
000162
162
000163
163
000164
164
000165
165
000166

166
000167
167
000170
170
000171
i
000172
172
000173
173
000174
174
000175
175
000176
176
000177
17
000200

200
000201
201
000202
202
000203
203
000204
204
000205
205
000206

27-JUN-85 13:08:01 PAGE 28-4

TOAT=TOAT+1

.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT»1
.BYTE
TODAT
TDAT=TDAT«1
.BYTE
TOAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TODAT.+1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT+1

.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TOAT+%
.BYTE
TORY
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
LBYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
LBYTE
TDAT
TDAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT«1

.BYTE
TODAT
TOAT=TOAT+1
.BYTE
TOAT
TOAT=TDAT+4
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT«2
.BYTE
TDAT
TDAT=TOAT.1

SEQ 64

C7OHI-DO

012320
0i2321

012322
012323
012324

012325
012326
012327

012330
012331
012332
012333

012334
012335
012336

012337
012340
012341
012342
012343
012344
012345

012346
012347
012350
012351

012352
012353
012354

MACRO V04.00

206

27-JUN-85 13:08:01 PAGE 28-5

.BYTE

TOAT

.BYTE

TDAT

000207
207
000210

TDAT=TDAT+1
.BYTE
TOAY
TDAT=TOAT+1

000211
211

TOAT=TDAT+1
.BYTE
TDAT

210

000212
212
000213
213
000214
214
000215
215
000216
216

000217
217

000220
220
000221
a2
000222
222
000223
223
000224
224
000225
225
000226
226
000227
227
000230
230
000231
231
000232
232
000233
233
000234
234
000235
235
000236
236
000237
237
000240
240
000241
241
000242
242

TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TOAT.1
LBYTE
TDAT

TOAT=TDAT.+1
.BYTE
TDAT

TOAT=TOAT+1
.BYTE
TOAY
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+1
LBYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TOAT«%
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+4
.BYTE
TOAT
TOAT=TOAT+4
.BYTE
TODAT
TOAT=TOAT+1
.BYTE
TOAT
TOAT=TOAT.L
.BYTE
TOAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TODAY
TOAT=TDAT+4
.BYTE
TDAT
TOAT=TDAT+4
.BYTE
TOAT
TOAT=TDAT+1
BYTE
TOAY
TOAY=TOAT+1
LBYTE
TOAT
TOAT=TDAT+1
.8YTE
TOAY

SEQ 65

et
%

CZOHI-DO

012355
012356
012357
012360
012361

012362

012363
012364
012365

012366
012367
012370
012371
012372
012373
012374
012375
012376
012377
012400
012401
012402
012403

012404
012405
012406
012407
012410

MACRO vO4.00
000243
243
000244
244

000245
245

000246
246
000247
247
000250
250

000251
251
000252
252
000253
253
000254
254
000255
255
000256
256
000257
257
000260
260
000261
261
000262
262
000263
263
000264
264
000265
265
000266

266
000267
267
00070
270
000271
271
000272
272
000273
273
000274
274
000275
275
000276
276
000277

27-JUN-85 13:08:01 PAGE 28-6
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT

TOAT=TDAT.1
.BYTE
TDAT

TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT

TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT.+1
.BYTE
TODAT
TOAT=TDAT1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAY
TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TODAT
TOAT=TDAT+1

.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAY
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1

SEQ 66

CZOHI-DO
012411

012412
012413
012414
012415

012416
012417

0:2420
012421

012422
012423

012424
012425
012426
012427
012430

012431
012432
012433
012434
012435

012436
012437
012440
012441
012442
012443
012444

012445

MACRO vVO4.00

27-JUN-85 13:08:01 PAGE 28

271
000300
300
000301
301
000302
302
000303
303
000304
304
000305
305
000306
306
000307

.BYTE
TDAT
TDOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TOAT.1

000310
310
000311
311
000312
312
000313
313
000314
314
000315
315
000316
316
000317
317
000320
320
000321
321
000322
322
000323
323
000324
324
000325
325
000326
326

TOAT=TDAT.1
.BYTE
TDATY
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TOAT.1
BYTE
TDAT
TDAT=TOAT+1
.BYTE
TOAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT

307

000327
327
000330
330
000331
331
000332
332
000333
333

.BYTE

TDAT

TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TOAT+1
.BYTE
TOAT

SEQ 67

CZDHI-DO

012446
012447
012450
012451
012452
012453

012454
012455
012456

012457
012460
012461
012462
012463

012464
012465
012466

012467
012470
012471
012472
012473
012474
012475
012476
012477

012500

012501

MACRO VO4.00
000334
334
000335
335
000336
336
000337
337
000340
340
000341
341
000342
342
000343
343
000344
344

000345
345
000346
346
000347
347
000350

27-JUN-85 13:08:01 PAGE 28-8
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TOAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT

TOAT=TDAT»1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1

350
000351

.BYTE
TDAT
TOAT=TDAT+1

000352
352
000353
353
000354

TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TDAT.1

351

354
000355
355
000356
356
000357
357
000360
260
000361
3C1
000362
362
000363
363
000364
364
000365
365
000366
366
000367
367
000370

.BYTE

TDAT

.BYTE
TDAT
TOAT=TDAT.+1
.BYTE
TDAT
TOAT=TOAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TOAT+1
BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1

SEQ 68

CZDHI-DO
012502
012503

012504
012505
012506
012507

012510
012511

12
13 012512
14

MACRO v04.00

370
000371
3N
000372
372
000373
373
000374
374
000375
375
000376
376

000377

377
000400
000000
012554

27-JUN-85 13:08:01 PAGE 28-9

.BYTE
TDAT
TDOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT
.1
.BYTE
TOAT
TDAT=TOAT+1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT

TDAT=TDAT.1

.BYTE
TDAT
TOAT=TDAT+1
.EVEN
RBUF:
O
.=.+40

SEu 69

NN
W v P OONAVNWIN
-

CZDMI-DO

MACRO V04.00

o ot

o ps TM - pme

000020
127400
000000
000020

27-JUN-85

TRE

AERETER
AU
il

13:08:01 PAGE 29

.MACRO
WORDS
‘WONAME ' K ' :
.ENDM
WORDS

WDNAME ,K,DATA
OATA

KsKX

DATA=DATAX
KX=0

.REPT
20
.NLIST
DATAX=KX4400+120000
LIST
WORDS
t/RWRD
, \KX, \DATAX
/
.NLIST

KX=KX+1

012554
012554

012556
012556

012560
012560

012562
012562

012564
012564

012566
012566

012570
012570
012572
012572

012574
012574

012576
012576

012600

120000

120000
000001
120400
120400
000002
121000
121000
000003
121400
121400
000004
122000
122000
000005
122400
122400
000006
123000

123000
000007
123400
123400
000010
124000
124000
000011
124400

124400
000012
125000

LIST
.ENDR
DATAX=KX+400+120000

WORDS
RWRDO:

KX=KX+1

t/RWRD
, \KX,\DATAX
/
120000

DATAX=KX#400+120000
WORDS
t/RHRD
, \KX, \DATAX
/
RWRD1:
120400

KX=KXe
i

DATAX=KX#400+120000
WORDS
t/RUHRD/
, \KX, \DATAX
RWRD2:
121000

KX =KX+l

DATAX=KX 4400120090
WORDS t/RWRD/ ,\KX.\DATAX
RWRD3:
121400

KX=KX+1

DATAX=KX
%400 +120000

WORDS t/RHRD/,\KX, \DATAX
RWRD4:
122000

KX=KX+
1
DATAL=KXs400+120000

WORDS
+/RWRD/
, \KX, \DATAX
RWRDS:
122400
KX=KXe1

DATAX=KX+400+120000
WORDS
t/RNRD/
, \KX, \DATAX

RURD6:
123000
KX=KX+1

DATAX=KX4400+120000
WORDS
t/RURD/
, \KX , \DATAX
RWRD7:
123400

KX=KX+3

DATAX=KX+400+120000
WORDS
t/RUWRD/
, \KX, \DATAX
RWRD10: 124000
KX=KX+1
DATAX=KX4400+120000
WORDS
+/RUWRD/
, \KX, \DATAX
RURD11: 124400
KX=KX+1
DATAXsKX#400+120000
WORDS
+/RURD/
, \KX, \DATAX

SEQ 70

CZOMHI-DO

012600

012602
012602

012604
012604

012606
012606

012610
012610

012612
012612

MACRO V04.00

125000
000013

125400

000014
126000

126000
000015
126400
126400
000016
127000
127000
000017
127400

127400

000020

27-JUN-85 13:08:01 PAGE 29-1
RWRD12: 125000
KXsKX+1
DATAX=KX#400-120000
WORDS
t/RWRD/
\KX, \DATAX
,
RWRD13: 125400
KX=KX+1

DATAX=KX4400+120000
WORDS t/RMWRD/,\KX, \DATAX

RWRD14: 126000
KX =KX+ 1

DATAX=KX4400+120000

WORCS
t/RWRD/,\KX,\DATAX
RWRD15: 126400
KX=KXe+1

DATAX=KX+400+120000
WORDS t/RWRD/, \KX,\DATAX
RWRD16: 127000

KX=KXs1

DATAX=KX+400+120000
WORDS t/RWRD/,\KX, \DATAX
RWRD17: 127400
KX=KXe1

SEQ 71

CZOKHI-DO

PFAIL

010046
010146
010246
010346
010446
010546
016746
0106567
012767
000000

PFAIL:

165170
177204
012652

Foes

SEQ 72

27-JUN-85 13:08:01 PAGE 30

012614

012614
012616
012520
012622
012624
012626
0126350
012634
012640
012646
012650

165156

000777

;ENTER HERE ON POWER FAILURE
MOV
MOV
MOV
MOV
MOV
MOV
Mov
MOV
MOV
gaLT

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4, -(SP)
RS, -(SP)
24,-(5P)
SP, SAVSP
MRESTART ,24

;SAVE RO-R5 ON PROCESSOR STACK

;SAVE STACK POINTER
:SET UP FOR FOWER UP TRAP

;HALT ON POWER DOWN NORMAL

:PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
012652
012656
012660
012662
012664
012666
012670
012672
012700
012706
012712
012716
012722
012724
012726
012730
012732
012734
012736
012740
022744
012750
012754
012756
012762

016706
012605
012604
012603
012602
012601
012600
012767
012767
012706
005067
005267
001375
104401
013114
104402
012754
104401
013117
005067
005067
000177
000001
000006
012016

177166

012614
000340

013724
000374
000370

177044
177104
177042
000002

RESTAR:

165124
165070

PFTAB:

MOV

MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
CLR
INC
BNE
TYPE

MCRLF
OCTASC
PFTAB
TYPE
MPFAIL
CLR
CLR
JMP
1
6,2
RETRN

SAVSP, SP

(SP)+,RS
(SP)+,R4
(sP)+,R3
(SP)»,R2
(SP)+,R1
(SP)+,RO
PFAIL 24
9340,PS
#STACK,SP
TEMP
TEMP
.-4

tRESTORE STACK POINTER
;RESTORE RO-RS

;SET UP FOR POWER FAILURE

MACRO VO4.00

ERRFLG
LAST
SRETRN

CZDHI-"0
012764
012764
012767
012772
012775
013000
013003
013006

013011
013014
013017
013022
013025
013030
013032
013035
013040
013043
013046
013051
013054
013057
013062
013065
013070
013073
013076
013101
013104
013107
013110
013113
013114
013117
013122
013125
013130
013133
013136
013141
013144
013147
013152
013155
013160
013163
013166
013171
013174
013177
013202
013204
013207
013212
013215
013217

MACRO V04.00

015
104
061
101
055
120
130
116
102
101
124
124
012
015
105
117
101
122
123
015
117
122

040

107
124
040
104
123
000
040
000
015
040

117
122
101
125
054
122
122
040
123
122
101
124
124
116
122
122
123
015
132
111
060
015

012
110
040
114
104
114
040
104
122
113
105
040
000
012

SEQ 73

27-JUN-85 13:08:01 PAGE 3i

012
061
110
106
125
105
101
040

.MSG
MTITLE:

t/DH11 HALF-DUPLEX AND BREAK TEST/,t/CZDHI-DO/
.ASCIZ
<15><12><12>/DH11 HALF-DUPLEX AND BREAK TEST /<15><12>

MVECTO:

.ASCIZ

<15><12>/VECTOR ADDRESS-/

MREGAD:

.ASCIZ

<15><12>/CONTROL REGISTER ADDRESS-/

105

040

123
015

103
122
104
105
055
012
116
117
122
111
105
101
122
123

126
124
040
104
123
000
103
124
114
105
123
122
104
105
055

040

077

MQM:

.ASCIZ

012

000

MCRLF:

.ASCIZ

040
127
040
112
122
040

126
105
106
114
105
120
107
115
105
101
040
040
123
111
120
107
123

MPFAIL:

.ASCIZ

103
10
104

MEPASS:

.ASCIZ

<15>¢<12>/CZDHI-DO/

120

PASTXT:

.ASCIZ

<15><12>/PASS COUNT = /

117
101
122
124
124
124
105
040
040
117
105
000
012
104
055
000
012

v/
«<15><12»>
POMER FAILURE,

PROGRAM RESTART AT TEST IN PROGRESS/

: S

CZDHI-DO
013222
013225
013230
013233
013236
013237
013242
013243
013246
013251
013254

MACRO V04.00

101
040
125
C40
000
015
000
015

105

040
055

123
103
116

123
117
124

075

040

012

122

MR:

.ASCIZ

<15><12>/R/

012

124
124
103

MTSTPC:

LASCIZ

<15><12>/TEST PC-/

123
120
000

SEC

27-JUN-85 13:08:01 PAGE 31-1

.EVEN
.EVEN
.TRPTAB

013256

s TABLE OF POINTERS FOR TRAP DECODING
013256
013260
013262
015264
013266
013270
013272
013274
013276
013300

TRPTAB:

010600

011254
011574
011306
011400

011410
0i1162
Gl12g2
010700

.BUFFER

SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SvosP
RSO5
SCOP1R

:BUFFERS FOR INPUT-OQUTPUT
013300
013312

C13324
013336

G350000

013312
000000
013324
000000
013336

INBUF
.= +10
TEMP.=.+10

MOATA:

.=.+10
.ERRTAB

;TABLE OF POINTERS TO ERROR MESSAGES AND DATA
013336
013336
013340
013342
013344
013346
013330
013352
013355
013360
013363
013366
013371
013374
013377
013402

013352
013512
013426
013512
013464
000000
115
105
110
040
103
122
124
040
103

ERRTAB:

117
040
101
061
110
101

105
122
105

122
124
116
040
101

103
122
105
111

EML:

EM1
0T1
£mM2
D11
§H3

.ASCIZ

/MORE THAN 1 CHARACTER RECEIVED/<15><12>/EXP

REC/

CZOMHI-DO
013405
013410
013413

C13416
013421
013424
13 013426
013431
013434
013437
013442
013445
013450
013453
013456
013461
14 013464
013467
013472
013475
013500
013503
013506
15
16 013512
17 0135:4
18 013516
19 013520
20 013522
21 013524
013524
22

MACRO V04.00
126
015
130
040
040
103
102
101
104
101
122
122
105
040
040
105
122
105
105
116
040
111
105

000002
006
012042
006
012040

000000
000001

105
012
120
040
122
000
122
113
101
040
122
015
130
040
040
103
105
111
122
117
102
116
104

27-JUN-85 13:08:01 PAGE 31-2

040
105

EM2:

.ASCIZ

/BREAK DATA ERROR/<15><12>/EXP

EM3:

.ASCIZ

/RECEIVFR NOT BLINDED/

002

.EVEN
DT1:
.BYTE

002

.BYTE

2
6,2
SAVRS
6,2
SAVR4

.ENDCOD
ENDCOD: O
.END

—

SEQ 75

104
105
040

105
040
124
105
117
012
120
040
122
000
103
126
040
124
114
104
000

REC/

CZDHI-DO
SYMBOL TABLE

MACRO VO4.0C

ADRCNT= 011573
BEGIN
001396
BINWRD
011744
BITX
= 000000
BIT00 = 000001
8IT01 = 300002
BIT02 ~ 000004
BITO3 = 000010
8IT04 = 000020
81705 = 000040
81706 = 000100
BITO7 = N0Q200
B81T08 = 000400
B8IT09 = 001000
81710 = 002000
8IT11 = 004000
8IT12 = 010000
BIT13 = 020000
8IT14 = 040000
8IT1S = 100000
CHRCNT
011742
CLRAL!.
012064
OATA
= 127400
DATABP
011054
DATAX = 127400
OEVADR
01157v
DHBA
011764
OriBAR
011770
OHBC
011766
OM8CR
011772
OHLPR
011762
OHNRC
011760
DHR..VL
012002
OHRVEC
012000
DHSCR
011756
DHSLR
011776

DHSSR
DHTLVL
DHTVEC
D11
EML
En2
EM3
ENOCOD
.

ABS.

ENDFLG
EOP
ERRCNT
ERRFLG

ERRMSG
ERRORS
ERRTAB
ERTAB0
ESCAPE
EX1ITER

013526
000000
ERRCRS DETECTED:

012056
010500

012014
012010

011036
010716
013336
011122
012020
011100
FREEZ1
012022
HALTS
011060
011566
HILIM
ICOUNT
012024
INBUF
013300
012050
INIFLG
INSTER= 104404
INSTR » 104403
INSTRE
011400
INSTRG
011306
INSTR1
011320
INSTR2
011406
K
= 000020
KX
- 000020
LAST
012054
LIGHTS
001002
LIMITS
011520
LINACT
012062
LINE
= 000020
011572
LOBITS
LOGICA
010556
LOLIM
011564
LPCNY
012026
MCRLF
013114
MOATA
013324
MEPASS
013204
MPFAIL
013117
013110
MaQM
MR
013237
MREGAD
013054
MSG
011322
MTIITLE
012764
MTSTPC
013243
MVECTO
013032

011774
012006
012004
013512
013352
013426
013464
013524

SEQ 76

27-JUN-85 13:08:01 PAGE 31-3

000
001
O

VIRTUAL MEMORY USED:
18176 WORDS
( 71 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES

CZOHID .BIN,CZDHID.SEQ=DHMACA .MAC,CZDHID. P11

NULL
OCTASC=
OCTASN
PARAM =
PARAMS
PARAML
PARERR
PASARG
PASCNT
PASTXT
PFAIL
PFTAB
POPRO =
POP1SP=
POP2SP=
PS
PUSHRO=
PUSH1S~
PUSH2S
=

000001
012060
104402

011574

104405
011410
011440

011514
010572
012012
013217
012614
012754
012600
005726
022626
1777176
010046
005746
024646
RBUF
012512
RESREG
011056
RESTAR
012652
RESTRT
010566
RESOS = 104407
RETRMN
012016
RSOS
011222
RWRDO
012554
RWRI1
012556
RWRD10
012574
RWRD11
012576
RWRD12
012600
RWRD13
012602
RWRD14
012604
RWRD1S
012606
RURD16
012610
RWRD17
012612
RURD2
012560
RWRD3
0123562
RWRDA
012564
RUWRDS
012566
RURDG
012570
RWRD7
012572
SAVPC
012046

SAVRO
SAVR1
SAVRZ
SAVR3
SAVR4
SAVRS
SAVSP
SAVUSP=
SCOPE =

012030
012032
012034
012036
012040
012042
012044
104406
104400
SCOPER
010600
SCOPEL= 104410
SCOPIR
010700
SPACNT» 011743
STACK = 013724
STARY
001004
STFLG
012052
SV0S
011170
SVosP
011162
SWR
001000
S$HO0
000001
SWO1
000002
SW02
000004

SWO3
SWHO4
SHO5
SHO6

SWOd

SH09
SW10
SW11
SWi2
SW13
SWi4
SH15
TBUF
TDAT
TEWP
TKCSR
TKDBR
TPCSR
TPDBR
TRPOK
TRPSRV
TRPTAB

000010
000020
000040
000100
000400
001000
002000
004000
010000
020000
040000
100000
012112
000400
013312
011746
011750
011752
011754
011142
011130
013256

TYPDAT
TYPE
=
TYPER
TYPMSG
T1
710
T11
T12
713
T14
115
T16
T17
T2
120
721
122
123
T24
125
126

127
13
730

731
132
133
T34
T35
T3€

137
T4

011040
104401
011254
011016
001400
003466
003720
004152
004404
004626
0035070
005322
005554
001632
006006
006240
006352
006464
006576
006710
007022

007134
002064
007246
007360

007472

007604
007716
016030
010142
010254
002316
010366
002550
003002
003234
001164
001174
011740
000000
000000
00020
000C41
000011