Digital PDFs

AH-FG25C-MC

October 1985

91 pages

Original

46MB

view download

OCR Version

63MB

view download

Document:	CZDHFC0 DH11 DH11 SINGLE LINE DATA OCT 1985 bw
Order Number:	AH-FG25C-MC
Revision:	000
Pages:	91
Original Filename:	CZDHFC0__DH11__DH11_SINGLE_LINE_DATA__AH-FG25C-MC__OCT_1985_gray.pdf

OCR Text

DH11 SINGLE LINE DATA

CZDHFCO

e 8

AH-FG25C-MC

10F1

OCT 1985

flnanuan

MADE IN USA

T2 w

MACRO Vv04.00

27-JUN-85 12:59:01 PAGE 1

SEQ

.REM !

IDENTIFICATION

PRODUCT CODE:

AC-8464C-MC

PRODUCT NAME:

CZDHFCO DH11 SINGLZ LINE DATA TEST

DATE:

JUNE 1985

MAINTAINER:

NAC SOFTWARE EMGINEERING

AUTHOR:

MICHAEL DAVIS

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
DOCUMENT.
NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF

EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
COMPANIES

ITS

SOFTWARE

L
L
L
b
Bt e
e
el

be-

AFFILIATED

L N

Y Y N Y Y

LTI T

V@IV BN e

820¢F -CC

CZDWF -CO
1
2
3

S
6

MACRO V04.00

SEQ 2

27-JUN-85 12:59:01 PAGE 2

ABSTRACT
THE DH11 SINGLE LINE DATA TEST VERIFIES

THAT ALL

CHARACTERS (0-377), EACH LINE CAN TRANSMIT AND RECEIVE
AT ALL SPEEDS (8 BITS PER CHARACTER) AND ALL CHARACTER

LENGTHS (AT A SPEED OF 9600 BAUD).

CZ0HF -CO

MACRO V04,00

1
.

REQUIREMENTS

2.1

EQUIPMENT

6
7
8
o
10
1

13
14
15
16

PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY
ASR-33 TELETYPE OR EQUIVALENT
DH11 ASYNCHRONOUS MULTIPLEXER
DM11 MAINTENANCE CARD INSTALLED
2.2

STORAGE

THE PROGRAM LOADS INTO 4KW OF MEMORY
3.

LOADING PROCEDURE

17
18

19
20
21
22
23
24
25
26

THE_STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES
IS TO BE USED

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

4.1.1

AFTER PROGRAM LOAD C(INITIAL PROGRAM START)
ALL CONSOLE SWITCHZS DOWN

28
29
30

4.1.2

4.1.3

31
2

4.2

52
53
54
55

7O START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART

STARTING ADDRESS
THE STARTING ADDRESS FOR ALL TESTS IS 000200
THE RESTART ADDRESS FOR ALL TESTS I 0002000
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART

SWo1=1

40
41
42
43

45
46
47
48
49
50

SW00=1

37
38
39

SEQ 3

27-JUN-85 12:59:01 PAGE 3

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3.1

INITIAL PROGRAM START

4.3.1.1 LOAD PROGRAM INTO MEMORY

4.3.1.2 LOAD ADDRESS 000200

4.3.1.3 CLEAR CONSOLE SWITCHES

4.3.1.4 PRESS S1ART
4.3.1.5 THE PROGRAM WILL TYPE “DH11 SINGLE LINE DATA TEST*
AND WILL THEN TYPE “VECTOR ADDRESS-* AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD.

CZDHF -CO

MACRO V04.00

27-JUN-85 12:59:01 PAGE 4

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

NOTE:

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

IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM
WILL TYPE “2?” AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5
4.3.1.7 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE

L ]

W o
R
(TS
SN
-

HUIN
-

aaas » WU W

Lobbd

0.000

PROGRAM RESTART WITH ALL SWITCHES DOWN

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

LOAD ADDRESS 000200
SET SWO1=1
PRESS START
THE PROGRAM MWILL TYPE "DH11 SINGLE LINE DATA TEST”
AND WILL THEN TYPE ”"TEST PC-* AND WILL MWAIT 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>
4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED
AND WILL START TESTING AT THE SELECTED TEST.
»

DDDDDD
DL BB
VIV

IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE
“2" AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7
THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT IS
ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN

PERFORM 4.3.1.2 T0 4.3.1.5
THE PROGRAM WILL TYPE “DH11 SINGLE LINE DATA TEST”
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9

5 080006
NI NN MR R D e e

DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

NOTE:

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

NOTE:

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

SEQ 4

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 AT SELECTED TEST
CHANGE PARAMETERS AT PROGRAM RESTART

S.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

N
HDHDD
5 0O
S D DD
VNIV

SEQ 5

27-JUN-85 12:59:01 PAGE S

O\J: osON

MACRO V04.00

o e

fumwgouqmu:uNhoooqgmguunoooqogaumagoozgazzszzooqoaaumn

CZDHF -CO

776
0

IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM
WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO
WHICH THE PROGRAM TRAPPED.
THE PROCESSOR STACK MAY
BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE
TRAP OR INTERRUPT OCCURED.
9: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 ADDRESSES OF THE DHil 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 WILL START AT T1 (TEST 1).
IF SWO1=1 WHEN
THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC
ENTERED FROM THE TELETYPE KEYBOARD.

£ 0N O Ol N O G O G O QT TV O IO D D D IO D 1D 12 s s s e

ooofigmgumnooofloubumnooaqouzzficgooqowauww

CZDHF -CO

MACRO V04.00

SEQ 6

27-JUN-85 12:59:01 PAGE 6

5.2.4

EOP

(END OF PASS)

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

IDENTIFICATION 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.
3.2.8

SCOPER

(SCOPE LOOP AND ITERATION HANDLER)

THIS ROUTINE IS ENTERED EACH TIME A TEST 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.
B) IF SWil=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST
SEQUENCE, AFTER CLEARING ERROR FLAGS.
.
C) IF SWi4=1, THE ROUTINE WILL LOOP ON THE CURRENT TEST
REGARDLESS OF THE ITERATION COUNT.
IF
TO
TO
IF
TO

NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1
THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE
THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED.
THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER
THE NEXT TEST IN SEQUENCE.
THE THE NUMBERS ARE NOT

EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED.
5.2.6

SCOP1R

(FREEZE ON CURRENT 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 ALMWAYS ENTERED IN
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS.

IF SW09=1, THE ROUTINE WILL TRANSFER CONTROL BACK TO 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 ENTERED
AND ITERATION COUNTS WILL NOT BE UPDATED.

WD O

= bt s s s o s s o pn
WRFOVE~IOUVS W n 2 MOoouuououmo—oouqououwn

CZDHF -CO

MACRO V04.00

SEQ 7

27-JUN-85 12:59:01 PAGE 7

3.8.7

ERRORS

(ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS:
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR MANDLER
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 TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR
DATA STORAGE LOCATIONS.
8) IF THE TEST THAT FAILED DID 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 TYPEOUT IS MADE.
o)) THE ROUTINE NOW CHECKS FOR HALT ON ERROR.
IF SW15=1
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO
THE ERROR ROUTINE IN RO.
IF SW15=0, THE PROGRAM WILL
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST.
D) IF SW10=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.

CZDHF -CO

MACRO V04.00

SEQ 8

27-JUN-85 12:59:01 PAGE 8

5.3

PROGRAM AND OR OPERATOR ACTION

S.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.5.1.2 AFTER “R"” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION
WILL BEGIN.
EACH TEST WILL BE REPEATED A SELECTED NUMBER
OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST)
AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST.

5.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED,

THE PROGRAM
WILL TYPE “CZDHF-C” AND THEN RESTART TESTING AT TEST 1

VUNNUVINE

D DDEDDDD D 00O

WM NN NN

(LOCATION T1 IN THE PROGRAM).

be-

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

5.3.2

PROGRAM START WITH SW00=1
THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1

5.3.3

PROGRAM START WITH SWO1=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 CONTINUE AS DESCRIBED IN 5.3.1.2
5.3.3.3 AFTER “CZDHF-C* HAS BEEN TYPED, THE PROGRAM WILL
RESUME TESTING AT TEST 1

5.3.4

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 SW13=1

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR
5.3.6

PROGRAM OPERATION WITH SWil=1

&!LE AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE
Y

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

SEQ 9

27-JUN-85 12:59:01 PAGE 9

(CONT'D)
5.3.8

PROGRAM OPERATION WITH SW14=1,

OR SW09=1

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

ERRORS

[

COV®NITVIB LN

CZDHF -CO

ERROR HALTS
THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS
IS AS FOLLOWS

VAUV

RLBPEDEDLDUWWNWWWWWWWWNDNLND

PC+2

MESSAGE
HEADER (IF APPLICABLE)
DATA
(IF APPLICABLE)

WHERE
PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLZR + 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
DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS

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 SW15=0, NO OPERATOT ACTION IS
gilslllllfl) TO CONTINUE TESTING
IF THE PROGRAM 1S RUN WITH SWi5=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 IS 2 GREATER THAN THE ADDRESS
TO WHICH THE INTERRUPT OCCURED.
THE PROGRAM MUST BE
RESTARTED AT 200 TO RECOVER FROM THIS ERROR.

CZDHF -CO

MACRO V04.00

SEQ 10

27-JUN-85 12:59:01 PAGE 10

SCOPE LOOPING

TO SCOPE ON A SPECIFIC TEST, SET SWi4=1 AND SW13=1
THIS WILL CAUSE THE PROGRAM TO CONTINUQUSLY 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)

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

NONE

EIND N

RUNNING

MISCELLANEOUS

B 55D DD OIOG O

NDTOND D T b
e

.3.3

IS GIVEN FCR VARIOUS PROCESSORS IN THE TABLE BELOMW

EXECUTION TIME

PROCESSOR
PDP-11/05,10

PDP-11/20
PDP-11/40
PDP-11/45

TIME

s b ot e e s e et
OMONNPg P2
OOQOMOUNMOOOQOM&NNH

CZDHF -CO

Vaam

MACRO V04.00

27-JUN-85 12:59:01 PAGE 11

PROGRAM DESCRIPTION

THE FIRST GROUP OF TESTS TRANSMITS ALL CHARACTERS (0-377)
ONE AT A TIME AT A LINE SPEED OF 9600 BAUD AND A
CHARACTER LENGTH OF 8 BITS.
EACH LINE IS CHECKED IN AN
INDIVIDUAL LOOP.
EACH TEST IN THIS GROUP
CAN BE SET UP UNDER PROGRAM CONTROL TO LOOP ON A SINGLE
CHARACTER USING THE FREEZE ON DATA (SW09) OPTION.
THE_NEXT GROUP OF TESTS VERIFIES THAT ALL CHARACTERS CAN
BE TRANSMITTED AT EACH STANDARD SPEED (50-9600 BAUD)
AT 8 BITS PER CHARACTER.
EACH LINE IS TESTED IN AN
INDIVIDUAL TEST LOOP, AND A PARTICULAR SPEED CAN BE
CHOSEN FOR SCOPING BY USING THE FREEZE ON DATA OPTION.

THE FINAL GROUP OF TESTS TRANSMITS ALL CHARACTERS AT
EACH CHARACTER LENGTH (5-8 BITS) AT 9600 BAUD ON A SINGLE
LINE. EACH LINE IS TESTED IN AN INDIVIDUAL TEST LOOP
AND A PARTICULAR CHARACTER LENGTH CAN BE CHOSEN FOR
SCOPING USING THE FREEZE ON DATA (SW09) OPTION.
10.

LISTING

SEQ 11

NOVS
LN -

CZDHF -CO

MACRO V04.00

27-JUN-85 12:59:01 PAGE 12

i DHMAC-A - DH11 MACRO LIBRARY
; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
4AIST
.NLIST

W
MC,MD,CND

104
119
131
148
158
167
303
339
373
520
563
595
607
652
664
691

712
743
744
745
746
747
748

TRAPS. ~
749
750
CLEAN END OF PASS
MESSAGE.
751
752
753
TCH REGISTER*
754

SEQ 12

: 3

CMS REPLACEMENT HISTORY

; *9 SKONETSKI 26-APR-1985 16:23:08 "FIXED TYPO CAUSING ASSEMBLY ERRORS”
: #8 SKONETSKI 22-APR-1985 16:48:03 "TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED”
i #7 SKONETSKI 22-APR-1985 16:26:04 "ADDED CODE TO SET VECTORS FOR PWR FAIL, ERRORS, AND EMT

: *6 SKONETSKI 22-APR-1985 14:22:35 “FIXED BRANCH ERROR IN END OF PASS ROUTINE”
i %5 SKONETSKI 22-APR-1985 08:28:54 “FIXED BUG (AN OCTASC MACRO CALL WAS WRONG) AND ADDED A
i #4 SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTMARE SWITCH REG SUPPORT, BUT UNTESTED"
+3 SKONETSKI 12-APR-1985 10:34:52 "FIXED PROBLEMS MITH SPURIOUS CR/LFS”

i %2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SNI
i #1 SKONETSKI 11-APR-1985 15:49:05 "LIBRARY FOR DH11 DIAGNOSTICS”

MACRO V04.00

SEQ 13

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

vuiwn

CZDHF -CO

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

1985/,t/DH11 SINGLE LINE DATA TEST/,t/CZDHF-CO/

sSTARTING PROCEDURE
;LOAD PROGRAM
;LOAD ADDRESS 000200
;PRESS START
;PROGRAM WILL TYPE DH11 SINGLE LINE DATA TEST

;PROGRAM WILL TYPE "VECTOR ADDRESS-"

:TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
;FOR THE DH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
;PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-*“
:TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
;FOR THE DH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
;PROGRAM WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED
:AT THE END OF A PASS, PROGRAM WILL TYPE “ CZDWF-CO
:ANDP THEN RESUM TESTING
.TITLE
CZDHF-CO
.ENABLE ABS
.NLIST
MC,MD,CND
LIST
ME
.SYMBOLS

6 0C0000

;SWITCH REGISTER OPTIONS
100000
040000

020000

010000
004900
002000

SW15=100000
SW14=40000
SW13=20000

:=1,HALT ON ERROR
+=1,LOOP ON CURRENT TEST
+=1,INHIBIT ERROR TYPEOUT

SW11=4000
SW10=2000
SW09=1000

+=1,INHIBIT ITERATIONS
+=1,ESCAPE TO NEXT TEST ON ERROR
+=1,L00P WITH CURRENT DATA

SWO1=2
SWOO=1

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

SW12=10000

001000
000400
000100

SN08=400
SW06=100
SH05=40
SW04=20
SKWO03=10
SW02=4

000020
000010
000002
000001

e S

I S NS

AS S

S S

et i

g '3

CZOMF -CO

MACRO V04.00

SEQ 14

27-JUN-85 12:59:01 PAGE 14

sREGISTER DEFINITIONS
REGISTER
REGISTER
REGISTER
REGISTER

;GENERAL REGISTER
;GENERAL REGISTER
;PROCESSOR STACK POINTER
:PROGRAM COUNTER

SP=%6

PC=%7

;LOCATION EQUIVALENCIES

177776
020164

:SWR=177570
sLIGHTS=177570

;CONSOLE SWITCH REGISTER
sPDP-11/45 DISPLAY REGISTER
P5=177776
;PROCESSOR STATUS WORD
STACK=ENDCOD
+200
:START OF PROCESSOR STACK
;INSTRUCTION DEFINITIONS

005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726
PUSHRO=10046

POPR0O=12600

PUSH25P=24646
POP25P=22626
;

.MACRO

.ENDM

HLT
EMT
HLT

;

1 000000

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

;

B8IT15=100000
B8I714=40000
B8IT13=20000
BIT12=10000
B8IT11=4000
BIT10=2000
B8IT09=1000
BIT08=400
BIT07=200
BIT06=100
BIT05=40
BIT04=20
BIT03=10
BIT02=4
BITO01=2
BIT00=1
.CATCH

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

000006
000007

:GENERAL
:GENERAL
:GENERAL
;GENERAL

000005

RO=%0
R1=%1
R2=%2
R3=%3
R4 =%4
R5=45

000000
000001
000002
000003
000004

CZDHF -CO

MACRO V04.00

000000
000200

:TRAPCATCAER FOR ILLEGAL INTERRUPTS

.=0
.REPT 200
—

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
0C0042
000046
000050
000052
000054
000056
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
009132
000134

000136

00r 142
000144

000002
000000
000006
000000
000012
000000
000016
000000
000022
000000
000026
000000
000032
000000
000036
000000
000042
000000
000046
000000
000052
000000
000056
000000
000062
000C00
000066
000000
000072
00000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
000136
000000
000142
000000
000146

SEQ 15

27-JUN-85 12:59:01 PAGE 15

.42
HALT

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

.02
HALT
o2
HALT
.2
HALT
.2
HALT
.2
HALT
.2
HALT
.+2
HALT
.2
HALT
.+2
HALT
.2
HALT
.2
HALT
.*2
HALT
o2
HALT
.+2
HALT
. o2
HALT
.+2
HALT
.02
HALT
.42
HALT
.42
HALT
.42
HALT
.2
HALT
.42
HALT
i
HALT
.42
HALT
.2
HALT
.42

tUNEXPECTED 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
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO 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
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
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
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
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
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO 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
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
:EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TG THIS LOCATION

CZDHF -CO
000146
030150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210
000212
000214
000216
000220
000222
0C0224
000226
000230
000232
000234
000236
000240
000242
000244
000246
000250
000252
000254
000256
000260
000262
000264
000266
000270
000272
000274
000276
0C0300
000302
000304
003306
000310
000312
000314
000316
000320
000322
000324
000326

MACRO V04.00

000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000
000212
000000
000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242
000000
000246
000000
000252
000000
000256
000000
000262
000000
000266
000020
000272
000000
000276
000000
000302
000000
000306
000000
000312
000000
000316
000000
000322
000000
000326
000000

SEQ 16

27-JUN-85 12:59:01 PAGE 15-1

HALT
.2
HALT
2
HALT
+2
HALT
.2
HALT
.2
HALT
o2
HALT
.2
HALT
.2
HALT
.02
HALT
.2
HALT
.e2
HALT
.2
HALT
R
HALT
.*2
HALT
.2
HALT
.2
HALT
.*2
HALT
o
HALT
.2
HALT
.+2
HALT
.42
HALT
.42
HALT
, o2
HALT
2
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT

;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS L.OCATION
{EXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS '.OCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
iUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
:
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATIOM
;EXAMINE STACK TO 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
:EXAMINE 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
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
:EXAMINE STACK TO FIND CAUSE
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
1EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO 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
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZDHF -CO

MACRO Vv04.00

000330 000332
000332 000000
000334
000336
000336
000000
000340 000342
000342 000000
000344 000346
000346 000000
000350 000352
000352 000000
000354 000356
000356 000000
000360 000362
000362
00000
000364 000366
000366
000000
000370 000372
000372
000000
000374 000376
000376 000000
000400 000402
000402
000000
000404
000406
0C0406
000000
000410
000412
000412
000000
000414 000416
000416 000000
000420 000422
000422 000000
000424 000426
000426 000000
000430 000432
000432 000000
000434 000436
000436 000000
000440 000442
000442 000000
000444
000446
000446 000000
000450 000452
000452 000000
000454 000456
000456 000000
000460 000462
000462
000000
000464 000466
000466 000000
000470 000472
000472 000000
000474 000476
000476 000000
000500 000502
000502 000000
000504 000506
000506 000000
000510 000512

SEQ 17

27-JUN-85 12:59:01 PAGE 15-2

.+2
HALT
.2
HALT
.42
HALT
.42
HALT
.2
HALT
.+2
HALT
.02
HALT
.42
HALT
.42
HALT
.2
HALT
.+2
HALT
.42
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.42
HALT
.*2
HALT
.*2
HALT
.42
HALT
.02
HALT
A8
HALT
.+2
HALT
.2
HALT
.42
HALT
.42
HALT
%2

:UNEXPECTED TRAP TO THIS LOCATION
tEXAMINE 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
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TD THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO 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
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED 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
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO 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
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

CZDHF -CO
000512
000514
000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542
000544

MACRO V04.00
000000
000516
000000
C00522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546

SEQ 18

27-JUN-85 12:59:01 PAGE 15-3
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
.2
HALT
.42

;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
iUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATIUN
;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

;UNEXPECTED TRAP TO THIS LOCATION

000546

000000

HALT

000552

000000

HALT

000562

000000

HALT

000566

000000

HALT

000572

000000

HALT

000576

000000

HALT

000602

000000

HALT

000606

000000

HALT

000612

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000616

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000622

000000

HALT

000000

HALT

000000

HALT

000636

000000

HALT

000642

000000

HALT

000646

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000672 000000

HALT

000550

000554
000556
000560

000564

0C0570

000574

000600

000604

000610
000614

000620

000624

000626
000630

000632

000634
000640

000644
000650

000652

000654

000656

000660

000662
000664

000666

000670

000552

000556
000000
000562

000566

000572

000576

000602

000606

000612

000616

000622
000626

000632
000636
000642

000646
000652

000656
000662

000666

000672

:EXAHINE STACK TO FIND CAUSE
;EXAMINE STACK TO FIND CAUSE

.02
HALT
.42

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

sUNEXPECTED TRAP TO THIS LOCATION

.+2

.+2
.2

.+2

.+2
.42

;EXAMINE STACK TO FIND CAUSE
;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

;EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

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

.42

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE
;EXAMINE STACK TO FIND CAUSE

.+2

sUNEXPECTED TRAP TO THIS LOCATION

.*2

sUNEXPECTED TRAP TO THIS LOCATION

.+2

.*2

;EXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

.42

sUNEXPECTED TRAP TO THIS LOCATION

.42

;UNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

CZDHF-CO
000674
000676
000700
000702
000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742
000744
000746
000750
0C0752
000754
000756
000760
000762
000764
000766
000770
000772
000774
000776
1 001000

MACRO V04.00

SEQ 19

27-JUN-85 12:59:01 PAGE 15-4

000676
000000
000702
000000
000706
000000
000712
000000
000716
000000
000722
000000
000726
000000
000732
000000
000736
000000
000742
000000
000746
000000
000752
000000
000756
000000
000762
000000
000766
000000
000772
000000
000776
000000

ot .
HALT
.02
HALT
.42
HALT
.42
HALT
.42
HALT
o8
HALT
08
HALT
.42
HALT
o
HALT
.42
HALT
.42
HALT
.42
HALT
.+2
HALT
.42
HALT
.*2
HALT
.42
HALT
.*2
e HALT
P

;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
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSZ
iUNEXPECTED 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
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TG FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZDHF -CO
0

000200

MACRO v04.00

000200
000167

1 000204

000600

SEQ 20

27-JUN-85 12:59:01 PAGE 16

.=200

:STANDARD INTERRUPT VECTORS
JMP

START

iGO TO START OF PROGRAM

. TRPDEF

;:DEFINITIONS FOR TRAP SUBROUTINE CALLS
:POINTERS TO SUBROUTINES CAN BE FOUND STARTING
;AT LOCATION "TRPTAB"
000204
000204
000204
000204

0C0204
000204

104400
000001

104401
000002
104402
000003

104403

000004

104404
000005
104405

TRPDEF

SCOPE, +/SCOPE LOOP AND ITERATION HANDLER/

SCOPE=TRAP +Y
=Ye

TRPDEF

:SCOPE LOOP AND ITERATION HANDLER

TYPE, t/TELETYPE OUTPUT ROUTINE/

TYPE=TRAP.Y
=Y+

s TELETYPE OUTPUT ROUTINE

TRPDEF

OCTASC, +/0CTAL TO ASCII CONVERSION/
ec;Aic.TRAP.Y
;OCTAL TO ASCII CONVERSION

TRPDEF

INSTR, t/INPUT ASCII STRING/
WT?-TRAPW
s INPUT A3CII STRING

TRPDEF

INSTER, t/STRING INPUT ERROR/
$N$T§R-TRAP~Y
;STRING INPUT ERROR

TRPDEF

PARAM, t+/CONVERT STRING TO OCTAL, CHECK LIMITS/
:AIYRM:-TRAPW
;CONVERT STRING TO OCTAL, CHECK LIMITS

TRPDEF

SAVOSP, t/SAVE RO-RS, PC/
SAVOSP=TRAP+Y
:SAVE RO-RS, PC
Y=Yel
RESOS, t/RESTORE RO-RS/
IY!ES‘Y)Oi-TRAPoY
sRESTORE RO-RS

=Ys

=Ye

000204

CVW®~NOUNHA_WUN

0GJ204

000052

104406
000007

104407
000010
104410
000011

015056
000052
040000

TRPDEF

SCOPE1, t/CHECK FOR FREEZE ON CURRENT DATA/

scevfx-map»v

CODEM1

MOV
INC
000054

sCHECK FOR FREEZE ON CURRENT DATA

=Ye

DHSSR, DHSLR
DHSLR

sSET UP ADDRESS OF SILO
:STATUS REGISTER HIGH BYTE

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

CZDKF -CO
0

MACRO V04.00

SEQ 21

27-JUN-85 12:59:01 PAGE 17

001000

.=1000

001001

176642
176634
017134
015170

SSWR
24

+ SET UP TRAP VECTOR
+ TEST SWITCH REGISTER ADDRESS
+ IF SUCCESSFUL, LEAVE IT ALONE

177650

@176, SWR
LIGHTS

: POINT TO SOFT SWITCH DHSCR
: O MEANS ME ARE NOT GOING 10 USE

1$:

2%:

.IF NB

MOV
CLR

8T
(SP)«
TST
(SP).
MOV
(SP)+, 6
(SP)+, 4
MOV
TYPE
JMTITLE
TST
INIFLG
<DHRVEC>
BNE
VEC1

IFF

.ENDC
.IF NB
SIZE:
1$:
2%:

ERRFLG
ERRFLG

BEGIN

#1s, 4

176670

CLR
CLR
CLR
CLR
CLR
MOV
MOV
MOV
TST
BR

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

; CLEAN UP STACK

:TYPE TITLE MESSAGE

sCHECK INITIALIZATION FLAG

+IF NOT O, CHECK SNITCHES
+FOR REINITIALIZATION

+IF NOT O, START TEST

CLR
MOV
TST
BR
MOV
SuB
MoV

RO
924,804
(RO)+

1
RO,HCORE
#2,HCORE
26,004

:SET UP TIME QUT RETURN
;WILL TRAP WHEN NO MEMORY
;LOCATION RESPONDED, CONTINUE
1RO CONTAINS ADDRESS OF
iNON EXISTANT MEMORY
tRESTORE TRAPCATCHER

06iisd

000176
177646

#340,PS
#STACK,SP
#24,R2
WPFAIL,(R2)+
340, (R2).
#ERRORS, (R2)+
#340, (R2)»
#TRPSRV, (R2)+
340, (R2)
STFLG
PASCNT
ERRCNT

005726
005726
012667
012667
104401
005767

012767
005067

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV

001120
001122
001122
001130
001134
001134
001136
001140
001144
001150
001154

176702
176700
001122
177660

START:

OOOOMEDD&OOOD

0C1052
001056
001062
001066
001072
001076
001102
001106
001114

176764

i SWITCH DHSCR ADDRESS
3 LIGHTS

WA WA W

001016
001022
001026
001032
001C36
001042
001046

000340
020164
000022
016764
000340
015216
000340
015430
000340
015274
015230
015226
015216
015212

177570
177570

012767
012706
012702
012722
012722
012722
012722
012722
012712
005067
005067
005067
005067
005067
016746
016746
012767
005777
000405

.WORD
.WORD

WO NNNNN~

001004
001012

SWR:
LIGHTS:

177570
177570

E-n LU TR TR TR TR T

001000
001002

L X%

:PROGRAM INITIALIZATION
;LOCK QU T INTERRUPTS
:SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR
;CLEAR PROGRAM FLAGS AND COUNTS
1 TYPE TX TLE MESSAGE
.IIF NB ¥,
;:DETERMINE MEMORY SIZE
.IIF NB <,
:SET UP TRACE TRAP RETURN

.ENDC
IF NB
TRACER:

1%:

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

.ENDC
.IF NB
JF 8

000404

IFF

032777
001445

000001

0127¢1
012702
012703
010211
005012
060301
060302
020127
001371
104403
017175
104405
000300
000770
016300
003
004
104403
017217
104405
000000
177776
016256
007
010

000300
000302
000004

177606

.ENDC
VEC1:

VEC2:

1$:

<
MOV
SXT
MOV

#18,8410

RO
gRTT.TRTRET

BR
MOV

#RTI,TRTRET

MOV
MOV

#12,8¢10
#TRTRET, 9#16

iSET UP ILLEGAL INSTRUCTION TRAP RETURN
;D0 11740, 11/45 INSTRUCTION
i11/40,45 RTT RETURN FROM TRACE TRAP

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

VEC2

TST
BEQ

INIFLG
VEC2

;IF INITIALIZE FLAG=0
;GET VECTOR AND CSR ADDRESS

BIT
BEQ

#SW00, 8SWR
BEGIN

;IF SWO00=1, GET NEW VECTOR
;AND CSR

MOV
MOV
MOV
MOV
CLR

#300,R1
#302,R2
@4 ,R3

001000

R2,(R1)
(R2)

R3,R1
R3,R2
R1,41000
1s

;RESTORE TRAPCATCHER
:IN FLOATING VECTOR AREA

;INPUT ADDRESS OF DEVICE VECTOR
sMESSAGE "VECTOR ADDRESS-"
sCONVERT STRING TO OCTAL
sLOW LIMIT
sHIGH LIMIT
sLOCATIONS TO BE FILLED
;NUMBER OF LOCATIONS
;LSB MASK
;INPUT ADDRESS OF DEVICE CSR
sMESSAGE “CONTROL REGISTER ADDRESS-*
sCONVERT STRING TO OCTAL
;LOW LIMIT
sHIGH LIMIT
sLOCATIONS TO BE FILLED
sNUMBER OF LOCATIONS
;LSB MASK
-

001162

SEQ 22

27-JUN-85 12:59:01 PAGE 17-1

odh
b

MACRO V04.00

.BYTE
.BYTE

3
4
PARAM

MYIE .BYTE
.ENDC
IF NB

001262
001262
00127¢

016767
005267

015006
015002

001274
001300
001302

005767
001002
005167

015050

015042

015006

.ENDC

177776
DHSCR
7
10

CZDHF -CO

CODEML
MOV
INC

TST

BNE
coM

DHSSR,DHSLR
DHSLR

+SET_UP ADDRESS OF SILO
1STATUS REGISTER HIGH BYTE

INIFLG
BEGIN
INIFLG

+IF INITIALIZATION FLAG
:IS CLEARED
iSET IT

;PROGRAM START
;CHECK FOR PROGRAM START AT SELECTED ADDRESS

: 3

CZDHF -CO

001306

001314
001320
001326
001330

001332

012767

012706
032777
001410
104403

104405
000000
017500
016316

001346
001350

000410
012767

001356

001362
001364
001370
001374

000340

020164
000002

176462

BEGIN:

177452

001
001

005767

001004
005167
104401
000177

MOV

MOV
BIT
BEQ
INSTR

#340,PS

#STACK,SP
#SW01, ISWR
1s

MTSTPC

.BYTE
BYIE
001400
014770

014762
017402
014716

SEQ 23

27-JUN-85 12:59:01 PAGE 17-2

017406

001334
001336
001340
001342

001344
001345

;b—

MACRO V04.00

014740

1$:

BR
MoV
TST

BNE
COoM
TYPE
JMP

2%:
3s:

———

;SET UP PROCESSOR STACK
;IF SWO1=1
;GET PC FOR PROGRAM START
:GET PC
iMESSAGE

PARAM
0
17500
RETRN

1
1}

;LOCK OUT INTERRUPTS

;

"TEST PC”

;CONVERT STRING TO OCTAL

2
#T1,RETRN
STFLG

3s
STFLG
MR
SRETRN

;NORMAL START, TEST 1

;IF LOOPING, BYPASS TYPEOUT

sTYPE “"R” TC TNDICATE START
;START TESTING

e am—

—ohe

; 3

eS A e
S

CZDHF -CO

MACRO V04.00

27-JUN-85 12:59:01 PAGE

000000
000000
000001

SEQ 24

LINE=0

XLINE=LINE

BITX=1

000001

XBIT=BITX
.REPT
20

000020

SDATAL
\LINE,\BITX
.NLIST
LINE=LINE+1
BITX=BITX+BITX
LIST
.ENDR
SDATAL
\LINE,\BITX

001400

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE O.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
001400
001400
001406
001414

012767
012767
012767

000340
000010
001540

176370
014710
014676

0C1422

012767

001464

014672

001430
001436
001442

000002
012777
012703
012767

004000
000000
100000

014620

012777
012777

000000
033503

014600
014576

001464
001472
001500
001506
001512
001514
001520
001524
001526
001526
001530
001532
001536
001540

012777
012777
012777
105777

177777
016356
000001
014544

014574
014564
014562

001542

104000
104410
105267
001352
104400
000001

000002

IF NB
.ENDC
XN=XN+1

014706

001450
001456

100375
017704
020467
001401

TS \XN,10,4%,1$

Ti:

1s:
28:

014540
014632

014620

3s:

MOV
MOV
MOV

#340,PS
€10, ICOUNT
@43 ,ESCAPE

iDISABLE ALL INTERRUPTS
;SET UP FOR 10 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

MOV

#1$ ,FREEZ1

sSET UP TO LOOP WITH DATA

MOV
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#0,R3
sSET UP LINE NUMBER
#02400.100000, TDATA

MOV
MOV

€0 ,8DHSCR
933503 ,8DHLPR

MOV
MOV
MOV

@-1,80HBC
#TDATA ,SDHBA
@1 ,8DHBAR

<1$>

1578

BDHSCR

BPL
MOV
CHP
BEQ
HLT
EMT

23
SDHNRC ,R4
R4, TOAT
34
0
0

INCB
BNE

TDATA
1

SCOPE1L

4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA1
ALINE,\BITX

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
sEXPECTED DATA
sSELECT LINE O
sSELECT 8 BITS CHARATER
sLENGTH, 9600 BAUD SPEED
:FOR LINE 0
s TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMIT DATA

:START TRANSMITTER
sMAIT FOR CHARACTER
:70 BE RECEIVED
sGET RECEIVED CHARACTER
sCOMPARE EXPECTED AND
sRECEIVED DATA
:DATA ERROR

;CHECK FOR LOOP MITH CURRENT DATA
tUPDATE TRANSMIT DATA
;:CHECK FOR ITERATIONS, LOOP

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 1.
sCHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.

|{o-

s 3

CZOHF -CO

MACRO V04.00

001542
001542
001550
001556

012767
012767
012767

000340
000010
001702

176226
014546
014534

001564

012767

001626

014530

001572
001600
001604

000003
012777
012703
012767

004000
000001
100400

014456

001612
001620
001626
001634
001642
001650
0C1654
001656
001662
001666
001670
001670
001672
001674
001700
001702

001704

012777
012777
012777
012777
012777
105777
100375
017704
020467
001401

104000
104410
105267
001352
104400
000002
000004

000001
033503

1777777
016356

000002
014402

SEQ 25

27-JUN-85 12:59:01 PAGE 19-1

TS \XN,10,4%,1$
T2:

IF NB

014436
014434

014432
014422
014420

1$:
2%:

014376
014470

3s:

014456

4%:

#340,PS

;DISABLE ALL INTERRUPTS

4% ,ESCAPE

:SET UP TO ESCAPE TO NEXT TEST

MOV

#14$ ,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MoV
MOV

#B8IT11,8DHSCR

;MASTER CLEAR INTERFACE

MOV
MOV

@1 ,8DHSCR
#33503,8DHLPR

MOV
MOV
MOV

¢-1,80HBC
@TDATA, BDHBA

<1$>

.ENDC
XN=XN+1

014544

MOV
MOV
MOV

TSTB

BPL
MOV
CMP
BEQ
HLT
EMT
SCOPEL
INCB
BNE

€10, ICOUNT

:SET UP FOR 10 ITERATIONS

; 3

@1,R3
;SET UP LINE NUMBER
#1+400+1000TDATA
00,

sSET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE 1
:SELECT 8 BITS CHARATER

@2,8DHBAR
SDHSCR
2%
SDHNRC ,R4

sLENGTH, 9600 BAUD SPEED
;FOR LINE 1
;TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMIT DATA
:START TRANSMITTER
sMAIT FOR CHARACTER
+70 BE RECEIVED
+GET RECEIVED CHARACTER

sRECEIVED DATA

R4,TDATA

:COMPARE EXPECTED AND

;DATA ERROR

;CHECK FOR LOOP MITH CURRENT DATA

RM’A

sUPDATE TRANSMIT DATA

~ SCOPE

sCHECK FOR ITERATIONS. LOOP

LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 2.
sCHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
001704
001704
001712
001720

012767
012767
012767

000340
000010
002044

176064
014404

014372

001726

012767

001770

014366

001734
001742
001746

000004
012771
012703
012767

004000
000002
101000

014314

001754
001762

012777
012777

000002

033503

014402

014274
014272

TS \XN,10,45,1%
13:
MOV

#340,PS
€10, ICOUNT

;DISABLE ALL INTERRUPTS
:SET UP FOR 10 ITERATIONS

MOV

13 ,FREEZ1

+SET UP TO LOOP MITH DATA

MOV
MOV
MOV

#BIT11,80HSCR
tMASTER CLEAR INTERFACE
42,R3
$SET UP LINE NUMBER
$24400+100000,
TDATA

MOV

92,8DHSCR

MOV

.IF NB

.ENDC
XN=XN+1

Ng:

#4% ,ESCAPE

+SET UP TO ESCAPE TO NEXT TEST

<1$>

MOV

+SET EXPECTED LINE NUMBER
1AND VALID DATA FLAG
+EXPECTED DATA
+SELECT LINE 2

933503, 80HLPR

—

+SELECT 8 BITS CHARATER

eS P

e 0

: 3

CZDHF -CO

MACRO V04.00

SEQ 26

27-JUN-85 12:59:01 PAGE 19-2

iLENGTH, 9600 BAUD SPEED

001770
001776
002004
002012
002016
002020
002024
002030
002032
002032
002034
002036
002042
002044

002046

012777
012777
012777

105777
100375

017704
020467
001401

104000
104410
105267
001352
104400
000003
000010

177777
016356
000004
014240

014270
014260
014256

1$:
2%:

MOV
MOV

MOV

014314

4s:

#4 ,8DHBAR

SDHSCR
2%

cMP
BEQ

R4,TDATA
3

HLT
3s:

#-1,80HBC
#TDATA ,8DHBA

TST8
BPL

MOV

014234
014326

EMT

SCOPE1L

INCB

BNE

SCOPE

;FOR LINE 2
s TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMIT DATA
:START TRANSMITTER
;WAIT FOR CHARACTER

;70 BE RECEIVED
1GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
sRECEIVED DATA
;DATA ERROR

TDATA

;CHECK FOR LOOP WITH CURRENT DATA
iUPDATE TRANSMIT DATA

SDHNRC ,R4

sCHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 3.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
002046
002046
002054
002062

012767
012767
012767

000340
000010
002206

175722
014242
014230

002070

012767

002132

014224

002076
002104
002110

000005
012777
012703
012767

004000
000003
101400

014152

002116
002124

012777
012777

000003
033503

014132
014130

002132
002140
002146
002154
002160
002162
002166
002172
002174
002174
002176
002200
002204
002206

012777
012777
012777

177777
016356
000010
014076

014126
014116
014114

017704

014072
014164

105777
100375

020467

001401

104000
104410

105267
001352
104400
000004

014152

TS \XN,10,4%,1$

T4:

OF NB

.ENDC
XN=XN+1

MOV

#340,PS

210, ICOUNT
944 ,ESCAPE

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

MOV

#1$ ,FREEZL

+SET UP TO LOOP WITH DATA

MOV
MOV

#B8IT11,8DHSCR
#3.R3

MOV
MOV

<18

MOV

014240

1s:
24:

3s:

#3+400+100000, TDATA

MOV
MOV

93 ,8DHSCR
#33503,8DHLPR

MOV
MOV

#-1,80H8C
OTDATA,SDHBA

MOV

1578
BPL -

MOV
cHP
BEQ
HLT
EMT

SCOPE1L

INCB
BNE

4:
SCOPE
LINE=LINE-1

910, 8DHBAR

SDHSCR
24

SDHNRC ,R4
R4,TDATA
38
0
0

TDATA
1s

sMASTER CLEAR INTERFACE

sSET UP LINE NUMBER

+SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
+EXPECTED DATA
sSELECT LINE 3
+SELECT 8 BITS CHARATER
:LENGTH, 9600 BAUD SPEED
+FOR LINE 3
s TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMIT DATA

:START TRANSMITTER
sWAIT FOR CHARACTER
;70 BE RECEIVED
:GET RECEIVED CHARACTER
:COMPARE EXPECTED AND
sRECEIVED DATA
:DATA ERROR

sCHECK FOR LOOP MITH CURRENT DATA
1UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

: 3

C2Z0MF -CO

002210

MACRO v04.00

SEQ 27

27-JUN-85 12:59:01 PAGE 19-3

000020

BITX=BITX+BITX
SDATA1

\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 4.
;CHARACTER LENGTH IS 8 BITS.
;:LINE SPEED IS 9600 BAUD.
002210
002210
002216
002224

012767
012767
012767

000340
000010
002350

175560
014100
014066

TS \XN,10,48,1$

T5:

=
.

002232

012767

002240
002246
002252

MOV
MOV
"‘1“3’

#340,PS
.
#10, ICOUNT
#43 ,ESCAPE

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

MOV

#1$,FREEZ1

sSET UP TO LOOP WITH DATA

#B8IT11,3DHSCR
sMASTER CLEAR INTERFACE
#4 ,R3
:SET UP LINE NUMBER
#4+400+100000, TDATA
;SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;EXPECTED DATA
4 ,8DHSCR
;SELECT LINE 4
#33503,30HLPR
;SELECT 8 BITS CHARATER
:LENGTH, 9600 BAUD SPEED
;FOR LINE 4
#-1,80HBC
;TRANSMIT 1 CHARACTER
#TDATA , 8DHBA
;ADDRESS OF TRANSMIT DATA

18>

002274

014062

012777
012703
012767

004000
000004
102000

014010

014076

MOV
MOV
MOV

002260
002266

012777
012777

000004
033503

013770
013766

MOV
MOV

002274
002302
002310
002316
002322
002324
002330
002334
002336
002336
002340
002342
002346
002350

012777
012777
012777
105777

177777
016356
GO00020
013734

013764
013754
013752

002352

000006

100375
017704
020467
001401
104000
1C4410
105267
001352
104400
000005
000040

XN=XN+1

1is:
28:

MOV
MOV
MOV
TST8

BPL
MOV
CHP
BEQ
HLT
EMT
3s:
SCOPE1
INCB
BNE
45:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

013730
014022

014010

SDATAL

20, 3DHBAR
SDHSCR

2s
SDHNRC ,R4
R4,TDATA
3s
0
0
TDATA
1s

: 3

;START TRANSMITTER
sWAIT FOR CHARACTER
;70 BE RECEIVED
:GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
sRECEIVED DATA
;DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
sUPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX

sTRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE S.
sCHARACTER LENGTH IS 8 BITS.
sLINE SPEED IS 9600 BAUD.
002352
002352
002360
002366

012767
012767
012767

000340
000010
002512

175416
013736

TS \XN,10,4%,1%

T6:

013724

e
Z

002374

002402
002410

012767

000007

012777
012703

002436

013720

004000
000005

013646

MOV
MOV

"‘1’!

#340,PS
€10, ICOUNT

;:DISABLE ALL INTERRUPTS
:SET UP FOR 10 ITERATIONS

#4$ ,ESCAPE

sSET UP TO ESCAPE TO NEXT TEST

MOV

#18 ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
MOV

#BIT11,8DHSCR
#5,R3

<i$>

Snde

XN=XN+1

tMASTER CLEAR INTERFACE
;SET UP LINE NUMBER

s 3

C20HF -CO
002414

MACRO V04.00

012767

102400

27-JUN-85

12:59:01 PAGE 19-4

013734

MOV

002422
002430

012777
012777

000005
033503

013626
013624

002436
002444
002452
002460
002464
002466
002472
002476
002500
002500
002502
002504
002510
002512

012777
012777
012777
105777

177777
016356
000040
013572

013622
013612
013610

017704
020467
001401

013566
013660

0c2514

100375

104000
104410
105267
001352
104400

1%:
2s:

#5,8DHSCR
#33503,30HLPR

MOV
MOV

#-1,30HBC
#TDATA ,8DHBA

TST8

cMP
BEQ

R4,TDATA
3

EMT
SCOPE1
INCB

BNE

4s:
SCOPE
LINE=LINE+1

000006
000100

8DHSCR

HLT

3s:

40, 8DHBAR

BPL

MOV

013646

#5+400+100000, TDATA

MOV
MOV

MOV

SEQ 28

8DHNRC ,R4

TDATA

+SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE S
;SELECT 8 BITS CHARATER
iLENGTH, 9600 BAUD SPEED
sFOR LINE 5
s TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
sSTART TRANSMITTER
;WAIT FOR CHARACTER
:TO BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
sRECEIVED DATA
:DATA ERROR
sCHECK FOR LOOP WITH CURRENT DATA

;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
SDATAL

\LINE,\BITX

012767
012767
012767

000340
000010
002654

175254
013574
013562

002536

012767

002600

013556

002544
002552
002556

000010
012777
012703
012767

210, ICOUNT
&43 ,ESCAPE

sDISABLE ALL INTERRUPTS
:SET UP FOR 10 ITERATIONS
sSET UP TO ESCAPE TO NEXT TEST

MOV

#1%,FREEZL

:SET UP TO LOOP WITH DATA

013572

MOV
MOV
MOV

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
#6,R3
:SET UP LINE NUMBER
#64400+100000, TDATA

MOV
MOV

#6,8DHSCR
#33503 ,ADHLPR

MOV
MOV
MOV

#-1,80HBC
#TDATA,8DHBA
#100,8DHBAR

012777
012777

000006
033503

013464
013462

002600

012777
012777
012777
105777

177777
016356
000100
013430

013460
013450
013446

017704
020467
001401

013424
013516

100375

MOV

#340,PS

002564
002572

002614
002622
002626
002630
002634
002640
002642

17:

MOV
MOV

013504
103000

TS \XN,10,4%,1$

IF NB
.ENDC
XN=XN-1

is:
2%:

<1%>

1518

BPL
MOV
cMP
BEQ
HLT

SDHSCR

24
SDHNRC R4
R4,TDATA
3s
0

:SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
sEXPECTED DATA
sSELECT LINE 6
:SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
:FOR LINE 6
s TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMIT DATA
:START TRANSMITTER
;WAIT FOR CHARACTER
170 BE RECEIVED
:GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
:DATA CRROR

002514
002514
002522
002530

sTRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 6.
sCHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.

CZDHF -CO
002642
002644
002646
002652
002654

002656

MACRO V04.00

104000
104410
105267
001352
104400
000007
000200

27-JUN-85 12:59:01 PAGE

SEQ 29

19-5

EMT
0
SCOPE1
INCB
TDATA
1s
BNE
43
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

3s:

013504

;CHECK FOR LOOP WITH CURKENT DATA
;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS, LOOP

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 7.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
002656
002656
002664
002672

012767
012767

012767

000340
000010
003016

013432
013420

002700

012767

002742

013414

002706
002714
0C2720

000011
012777
012703
012767

004000
000007
103400

013342

002726
002734

012777
012777

000007
033503

002742
002750
002756
002764
002770
002772
002776

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
000200
013266

003004
003004
003006
003010
003014
003016
003020

104000
104410
105267
001352
104400
000010
000400

175112

TS \XN,10,4%,1$
T10:
MOV
#340,PS
JF NB

.ENDC

XN=XN+1

013322
013320
013316

013304

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

MOV

#18 ,FREEZ1

;SET UP TO LOOP WITH DATA

MOV

#B8IT11,8DHSCR

MOV

#7+400+100000, TDATA

MOV
MOV

#7,R3

97 ,8DHSCR
#33503,30HLPR

1$:

MOV

28:

MOV
15718

#200,3DHBAR
S8DHSCR

MOV
CcHP
BEQ
HLT
EMT

SDHNRC ,R4
R4,TDATA
33
0
0

INCB
BNE

TDATA
1¢

013262
013354

3s:

013342

#10, ICOUNT
@43 ,ESCAPE

MOV

013430

013306

MOV
MOV

4s;

MOV

BPL

SCOPEL

SCOPE

#-1,80HBC

STDATA,SDHBA

LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

sMASTER CLEAR INTERFACE

;SET UP LINE NUMBER

sSET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE 7
:SELECT 8 BITS CHARATER
sLENGTH, 9600 BAUD SPEED
:FOR LINE 7
;TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
sWAIT FOR CHARACTER
:TO BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;:DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;:CHECK FOR ITERATIONS, LOOP

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 10.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
003020
003020
003026
003034

012767
612767
012767

000340
000010

003160

174750
013270
013256

TS \XN,10,45,1$

Ti1:

MOV
MOV
MOV

#340,PS
#10, ICOUNT
#4$ ,ESCAPE

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

; 3

CZOHF -CO

MACRO V04.00

003042

012767

003104

013252

003050
003056

00c012
012777
012703
012767

004000
000010
104000

013200

003062

003070
003076

003104
003112
003120
003126
003132
003134
003140
003144
003146
0C3146
003150
003152
003156
003160
003162

012777
012777
012777
012777
012777
105777
100375
017704
020467
001401
104000
104410
105267
001352
104400
000011
001000

000010
033503

177777
016356
000400
013124

SEQ 30

27-JUN-85 12:59:01 PAGE 19-6

JIF NB
.ENDC
XN=XN+1

013266

013160
013156

013154
013144
013142

#1%,FREEZ1

MOV
MOV
MOV

#BIT11,3DHSCR
;MASTER CLEAR INTERFACE
#10,R3
;SET UP LINE NUMBER
#10+400+100000,
TDATA

MOV
MOV

1¢:
2%:

013120
013212

3$:

013200

<1$>
MOV

4%:

MOV
MOV
MOV
TSTB
BPL
MoV
CMP
BEQ
HLT
EMT
SCOPE1
g:ga

#10, 8DHSCR
#33503,80HLPR

#-1,8DHBC
#TDATA, 8DHBA
#400,3DHBAR
8DHSCR
24
8DHNRC ,R4
R4,TDATA
3s
0
0

I?ATA

SCOPE

LINE=LT{E+1
BITY=BITX+BITX
SDATAL
\LINE,\BITX

;SET UP TO LCOP WITH DATA

iSET EXPECTED LINE NUMBER
iAND VALID DATA FLAG
;EXPECTED DATA

;SELECT LINE 10
;SELECT 8 BITS CHARATER

iLENGTH, 9600 BAUD SPEED
;FOR LINE 10

;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
;WAIT FOR CHARACTER
;70 BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;:DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS,

LOOP

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 11.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
003162
003162
003170
003176

012767
012767
012767

000340
000010
003322

013114

003204

012767

003246

013110

003212
003220
003224

000013
012777
012703
012767

004000
000011

013036

1044300

174606
013126

TS \XN,10,45,1%
#340,PS
T12:
MOV
#10, ICOUNT
MOV
MOV
48 ,ESCAPE
<1$>
.IF NB
MOV
#1%,FREEZ1

.ENDC

XN=XN+1

013124

003232
003240

012777

000011
033503

013016
013014

003246
003254
003262

012777
012777
012777

177777
016356
001000

013012
013002
013000

1$:

MOV
MOV
MOV

#BIT11,80HSCR

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

:SET UP TO LOOP WITH DATA

;MASTER CLEAR INTERFACE

#11,R3
:SET UP LINE NUMBER
#114400+100000,
TDATA

MOV
MOV

#11,8DHSCR
#33503,80HLPR

MOV
MOV
MOV

#-1,8DHBC
#TDATA, 8DHBA
#1000, 8DHBAR

+SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
:EXPECTED DATA
sSELECT LINE 11
:SELECT 8 BITS CHARATER
:LENGTH, 9600 BAUD SPEED
:FOR LINE i1
i TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER

i 3

CZDHF -C9
003270

003274
003276
003302
003306
003310
003310
003312
003314
003320
003322
003324

MACRO V04.00

105777
100375
017704
020467

001401

012762

24:

012756
013050

001352
104400
000012
002000

TST8
BPL
MOV
CMP

8DHSCR
2%
&CHNRC ,R4
R4 ,TDATA

HLT
EMT

0
0

BEQ

104000

104410
105267

SEQ 31

27-JUN-85 12:59:01 PAGE 19-7

3s:

013036

SCOPE1
INCB

BNE
SCOPE
LINE=LINE+1
BITX=BITX+BITX

4%:

SDATA1

TDATA

;WAIT FOR CHARACTER

;7O BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
sRECEIVED DATA
;DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 12.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
003324
003324

003332

003340

003346
003354
003362
003366

012767
012767

012767
012767
000014

012777
012703
012767

000340
000010
003464

174444
012764
012752

003410

012746

004000
000012
105000

012674

012777
012777

000012
033503

012654
012652

003410
003416
003424
003432
003436
003440
003444
003450
003452
003452
003454
003456
003462
003464

012777
012777
012777
105777
100375
017704
020467

177777
016356
002000
012620

012650
012640
012636

003466

105267
001352
104400
000013
004000

JIF NB

XN=XN+1

1$:
2%:

012614
012706

104000

104410

T13:

012762

003374
003402

001401

TS \XN,10,4%,1$

012674

3s:

MOV
MOV

MOV

#340,PS
#10, ICOUNT
#4$ ,ESCAPE

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

MOV

#1$ ,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
MOV
MOV

BIT11,8DHSCR
sMASTER CLEAR INTERFACE
212,.R3
:SET UP LINE NUMBER
124400+ 100000, TDATA
:SET EXPECTED LINE NUMBER

<1$>

MOV
MOV

#12,8DHSCR
233503, 8DHLPR

MOV
MOV
MOV
TST8
BPL
MOV
CHP

#-1,80HBC
#TDATA ,8DHBA
#2000, 8DHBAR
8DHSCR
2%
S8DHNRC ,R4
R4,TDATA

BEQ
HLT
EMT

SCOPEL

INCB
BNE
4s:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATAL

3s
0
0

TDATA
1$

sAND VALID DATA FLAG
sEXPECTED DATA
;SELECT LINE 12

:SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
sFOR LINE 12
s TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA
sSTART TRANSMITTER
sWAIT FOR CHARACTER
;70 BE RECEIVED
:GET RECEIVED CHARACTER
sCOMPARE EXPECTED AND
sRECEIVED DATA
:DATA ERROR

sCHECK FOR LOOP WITH CURRENT DATA
sUPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS. LOOP

\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 13.
;CHARACTER LENGTH IS 8 BITS.

| {—

: 3

CZDHF -CO

MACRO V04.00

SEQ 32

27-JUN-85 12:59:01 PAGE 19-8

;LINE SPEED IS 9600 BAUD.
003466
003466
003474
003502

012767
012767
012767

000340
000010
003626

174302
012622
012610

003510

012767

003552

012604

003516
003524
003530

000015
012777
012703
012767

004000
000013
105400

012532
012620

003536
003544

012777
012777

000013
033503

012512
012510

003552
003560
003566
0C3574
003600
003602
003606
003612
003614
003614
003616
003620
003624
003626

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
004000
012456

012506
012476
012474

003630

104000
104410
105267
001352
104400
003014
010000

TS \XN,10,4¢,1$
Ti4:
MOV
MOV
MOV
JF NB
<1$>
MOV
.ENDC
XN=XN+1
MOV
MOV
MOV

2s:

34:

:SET UP TO LCOP WITH DATA

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#13,R3
;SET UP LINE NUMBER
#13+400+ 100000, TDATA

MOV

#-1,3DHBC

MOV

#33503,3DHLPR

#TDATA
, 8DHBA

24000, SDHBAR

TST8
BPL

8DHSCR
2%

CcMP
BEQ

R4,TDATA
38

HLT

012532

#1% ,FREEZ1

#13,8DHSCR

MOV

012452
012544

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

MOV

18:

#340,PS
#10, ICOUNT
#4$ ,ESCAPE

SDHNRC ,R4
0

EMT

INCB.
BNE

TDATA
1s

SCOPE

4s:
SCOPE
LINE=LINE+1

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE 13
sSELECT 8 BITS CHARATER
iLENGTH, 9600 BAUD SPEED
;FOR LINE 13
sTRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA
sSTART TRANSMITTER
sWAIT FOR CHARACTER
;70 BE RECEIVED
iGET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;:DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA
sUPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
SDATAL

\LINE,\BITX

sTRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 14.
sCHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
003630
003630
003636
003644

012767
012767
012767

000340
000010
003770

174140
012460
012446

003652

012767

003714

012442

004000

012370

003660
003672

003700

000016
012777
012703
012767

012777

000014
106000

000014

012456

012350

TS \XN,10,4%,.1$
T15:
MOV
#340,PS

MOV
<1$>
MOV

#10, ICOUNT

944 ,ESCAPE

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

#1$,FREEZL

:SET UP TO LOOP MWITH DATA

MOV
MOV
MOV

#BIT11,8DHSCR
iMASTER CLEAR INTERFACE
#14,R3
:SET UP LINE NUMBER
#14+400+ 100000, TDATA

MOV

#14,8DHSCR

MOV

JOF NB
.ENDC
XN=XN+1

+SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
sEXPECTED DATA
+SELECT LINE 14

;i 3

CZDHF -CO

MACRO V04.00

003706

012777

033503

012346

003714
003722
003730
003736
003742
002744
003750
003754
003756
003756
003760
003762
003766
003770

012777
012777
012777

177777
016356
010000
012314

012344
012334
012332

003772

105777
100375
017704
020467

001401

001352
104400
000015
020000

2%:

012310
012402

MOV

#33503, 3DHLPR

MOV
MOV
MOV

#-1,80HBC
#TDATA , 8DHBA
#10000, 8DHBAR

3s:

012370

s TRANSMIT

1 CHARACTER

;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER

8DHSCR
28
8DHNRC ,R4
R4,TDATA

HLT

iGET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;DATA ERROR

TDATA

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA

EMT

SCOPE1
INCB

BNE
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

SDATAL1

;SELECT 8 BITS CHARATER
iLENGTH, 9600 BAUD SPEED
;FOR LINE 14

TSTB
BPL
MOV
CMP

BEQ

104000

104410
105267

SEQ 33

27-JUN-85 12:59:01 PAGE 19-9

3¢

;WAIT FOR CHARACTER

;70 BE RECEIVED

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX

003772
003772
004006

012767
012767
012767

000340
000010
004132

173776
012316
012304

004014

012767

004056

012300

004022
004030
004034

000017
012777
012703
012767

004000
000015
106400

012226

004050

012777

000015

004056

004072
004100
004104
004106
004112
004116
004120
004120
004122
004124
004130
004132

012777

033503

012777
012777
012777
105777

177777
016356
020000
012152

017704

012146

100375

020467
001401

105267
001352
104400

Ti6:

#340,PS
€10, ICOUNT
#43$ ,ESCAPE

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

MOV

#1$,FREEZ1

:SET UP TO LOOP WITH DATA

012314

MOV
MOV
MOV

012206

MOV

9BIT11,8DHSCR
sMASTER CLEAR INTERFACE
215.R3
:SET UP LINE NUMBER
#152400+100000, TDATA
+SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
;EXPECTED DATA
215, 8DHSCR
sSELECT LINE 1S
433503, 8DHLPR
+SELECT 8 BITS CHARATER

IF NB

aite

XN=XN+1

012204

012202
012172
012170

012226

MOV
MOV
MOV
<1$>

MOV

1$:

2%:

012240

104000
104410

TS \XN,10,4%,1$

3$:

4%:

MOV
MOV
MOV
1578

@-1,80HBC
#TDATA ,8DHBA
920000, 83DHBAR
SDHSCR

MOV

SDHNRC ,R4

BPL

cMP
BEQ
HLT
EMT

R4, TDATA
33
0
0

INCB
BNE
SCOPE

TDATA
1s

SCOPE1

sLENGTH, 9600 BAUD SPEED
:FOR LINE 15
s TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA
iSTART TRANSMITTER
tWAIT FOR CHARACTER
: 70 BE RECEIVED
:GET RECEIVED CHARACTER

:COMPARE EXPECTED AND
;RECEIVED DATA
:DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
tUPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 15.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.

CZOHF -CO

004134

MACRO V04.00

SEQ 34

27-JUN-85 12:59:01 PAGE 19-10

000016
040000

LINE=LINE+1
BITX=BITX+BITX
SDATA1
\LINE,\BITX

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 16.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
004134
004134
004142
004150
004156

004164
004172
004176

012767

012767
012767

000340
000010
004274

173634
012154
012142

012767

004220

012136

000020
012777
012703
012767

004000
000016
107000

012064

004204
0C4212

012777
012777

000016
033503

004220
004226
004234
004242
004246
004250
004254
004260
004262

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
040000
012010

004264
004266
004272
004274

004276

104000
104410
105267
001352
104400
000017
100000

TS \XN,10,4%,1$

T17:

IF NB

.ENDC

XN=XN+1

012152

012044

012042

012040
012030
012026

1$:
28:

012004
012076

3¢:

012064

MOV

#340,PS

MOV

#4 % ,ESCAPE

MOV

<1$>

#10, ICOUNT

;DISABLE ALL INTERRUPTS
:SET UP FOR 10 ITERATIONS

;SET UP TO ESCAPE TO NEXT TEST

MOV

#1$ ,FREEZ1

MOV
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#16,R3
sSET UP LINE NUMBER
#16+400+ 100000, TDATA

MOV
MOV

#16,8DHSCR
#33503,8DHLPR

MOV
MOV
MOV

&-1,8DHBC
#TDATA ,8DHBA
#40000, 3DHBAR

1ST8

BPL

SDHSCR

MOV
cMP
BEQ
HLT
EMT

SDHNRC ,R4
R4 ,TDATA
3s
0
0

INCB
BNE

TDATA
1s

SCOPE1L

4s:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

;SET UP TO LOOP WITH DATA

; 3

+SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;SELECT LINE 16
:SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
;FOR LINE 16
; TRANSMIT 1 CHARACTER
;ADCRESS OF TRANSMIT DATA
;START TRANSMITTER
;WAIT FOR CHARACTER
;70 BE RECEIVED
:GET RECEIVED CHARACTER
:COMPARE EXPECTED AND
sRECEIVED DATA
;:DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS. LOOP

sTRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 17.
;CHARACTER LENGTH IS 8 BITS.
sLINE SPEED IS 9600 BAUD.

000340
000010
004436

012012
012000

004320

012767

004362

011774

004326

000021
012777

004000

011722

173472

TS \XN,10,48,18

T20:

IF NB

.ENDC

XN=XN+1

MOV
MOV
MOV

#340,PS
#10, ICOUNT
#43 ,ESCAPE

;DISABLE ALL INTERRUPTS

MOV

#18 ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV

#B8IT11,9DHSCR

iMASTER CLEAR INTERFACE

<1$>

:SET UP FOR 10 ITERATIONS
:SET UP TO ESCAPE TO NEXT TESY
[Z]

012767
012767
012767

004276
004276
204304
004312

CZDHF -CO
004334
004340

004346
004354

MACRO V04.00 27-JUN-85 12:59:01 PAGE 19-11
012703
012767

012777
012777

004362
004370
004376

012777
012777
012777

004410

100375

004404

004412
004416
004422

004424
004424
004426
004430
004434

004436

17
18
19
20
22

105777

017704
020467
001401

104000
104410

105267
001352

000017
107400

000017
033503

177777
016356

100000
011646

011702
011700

011676
011666

011664

011722

104400

000020
000000
000000
000000
000001

1$:

24:

#17,R3
;SET UP LINE NUMBER
#17+400+100000, TDATA

#17,8DHSCR
#33503, 8DHLPR

000001

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;SELECT LINE 17
;SELECT 8 BITS CHARATER

;LENGTH, 9600 BAUD SPEED
;FOR LINE 17

MOV
MOV
MOV

#-1,8DHBC
#TDATA ,8DHBA
#100000, 3DHBAR

;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER

BPL

;70 BE RECEIVED

0
0

;DATA ERROR

TSTB

8DHSCR

MOV
CMP
BEQ

SDHNRC ,R4
R4 ,TDATA
3

INCB
BNE

TDATA
1s

3$:

HLT
EMT
SCOPE1

4s:

SCOPE

LINE=LINE+1
BITX=BITX+BITX
LINE=0
XLINE=LINE
BITX=1

;WAIT FOR CHARACTER

;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA

sCHECK FOR ITERATIONS, LOOP

XBIT=BITX

.REPT

SDATA2

25
26
27
28

MOV
MOV

011642
011734

000020

MOV
MOV

012010

.NLIST

\LINE,\BITX

LINE=LINE+1
BITX=BITX+BITX
.LIST
.ENDR

004440

SDATA2

\LINE,\BITX
;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE O
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT S0 BAUD AND BE INCREMENTED
;TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

004440
004440
004446
004454

012767

012767
012767

000340
000001
004634

173330

011650
011636

TS \XN,1,4%,1$
T21:
MOV
S s

MOV

#13 ,FREEZL

MOV
MOV
MOV

#B8IT11,8DHSCR
#1.R2
#0,R5

004462
004470
004476
004502

012767

000022

012777
012702
012705

004524

011632

004000
0C0001
000000

011560

;DISABLE ALL INTERRUPTS

#1,ICOUNT
#4$ ,ESCAPE

sSET UP FOR 1 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST
;SET UP TO LOOP WITH DATA

<1$>

XN=XN+1

{ S—

#340,PS

MOV
fli\.l

sMASTER CLEAR INTERFACE
;FIRST SPEED CODE
;LINE O WILL BE TESTED

: 3

CZDHF -CO
004506

MACRO V04.00

012767

100000

004514
004520

012700
012701

000015
002103

004524
004530

010577
010177

011526
011526

004534

012777

016364

004542

012777

004550
004556
004562
004564
004570
004574
004576
004602
004602
0C4604

012777
105777
100375
017703
020367
001407
005077

004606
004614
004620
004622
004626

004630
004632
004634

004636

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000001
000002

011644

MOV

#0%400+10000
RDATA
0,

MOV
MOV

#15,R0
#2103 ,R1

MOV
MOV

RS,3DHSCR
R1,8DHLPR

011522

MOV

#TBUF
, 8DHBA

177400

011516

MOV

#-400,3DHBC

000001
011474

011512

MOV
TSTB
BPL
MOV
CMP
BEQ

#1,3DHBAR
8DHSCR
2%
8DHNRC ,R3

1s:

2$:

011470
011564

011466

000001
011540

SEQ 36

27-JUN-85 12:59:01 PAGE 19-12

011454

002100

3%:

R3,RDATA

3
8DHBAR
1
1

CLR
HLT
EMT
SCOPE1L
MOV

#1,3DHBAR
RDATA
23
#2100,R1
R2
RO
1s

INCB
BNE
ADD
INC
DEC
BNE
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

iSET EXPECTED LINE NUMBER
+AND VALID DATA FLAG
;EXPECTED DATA
;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

i8 BITS PER CHARACTER
:SELECT LINE O
:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;DATA BUFFER
3400 (OCTAL) BYTES
sWILL BE TRANSMITTED
i START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;:STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER

sUPDATA EXPECTED DATA
;UPDATE LINE SPEED
sUPDATE SPEED CODE

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 1
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
004636
004636
004652

012767
012767
012767

000340
000001
005032

173132
011452
011440

TS \XN,1,4%,1$

T22:
2

004674
004700
004704

012767

004722

011434

000023
012777
012702
012705
012767

004000
000001
000001
1£0400

011362
011446

e
ke

XN=XN+1

MOV

"2!

<1$>

MOV

MOV
MOV
MOV
MOV

9340,PS

:DISABLE ALL INTERRUPTS

043, ESCAPE

:SET UP TO ESCAPE TO NEXT TEST

#1,ICOUNT

#13,FREEZ1

;SET UP FOR 1 ITERATIONS

:SET UP TO LOOP MITH DATA

#8IT11,8DHSCR
{MASTER CLEAR INTERFACE
#1,R2
iFIRST SPEED CODE
#1,RS
jLINE 1 WILL BE TESTED
#14400+100000,RDATA

:SET EXPECTED LINE NUMBER

CZDHF -CO

MACRO V04.00

004712
004716

012700
012701

000015
002103

004722
004726

010577
010177

011330
011330

004732

012777

016364

004740

012777

004746
004754
004760
004762
004766
004772
004774
005000
005000
005002
005004
0C5012
005016
005020
005024
005026
005030
005032

012777
105777
100375
017703
026367
001407
005077

005034

104001
104410
012777

105267
001356
062701
005202
005300
001334
104400
000002

MOV
MOV

1%:

MOV

#15,R0
#2103 ,R1

RS ,8DHSCR

MOV

R1,8DHLPR

011324

MOV

#TBUF
, 83DHBA

177400

011320

MOV

#-400,8DHBC

000002
011276

011314

MOV
TST8
BPL
MOV
CMP
BEQ

#2 ,8DHBAR
BDHSCR
28
SDHNRC ,R3
R3,RDATA
34

2s:

011272
011366
011270

000002
011342

SEQ 37

27-JUN-85 12:59:01 PAGE 19-13

011256

CLR
HLT
EMT
SCOPE1L

3s:

002100

MOV

INCB
BNE
ADD
INC
DEC
BNE

;AND VALID DATA FLAG
;EXPECTED DATA
;13 SPEEDS WILL BE TESTED

iFIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
;SELECT LINE 1
+SET LINE SPEED AND
sCHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA 10 BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

S8DHBAR
1

;STOP TRANSMITTER
;DATA ERROR

#2,8DHBAR

;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
sUPDATA EXPECTED DATA

RDATA
23
#2100.R1
R2
RO
1s

sUPDATE LINE SPEED
;UPDATE SPEED CODE

43;
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

000004

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 2
;CHARATER LENGTH IS 8 BITS
;LINE SPEED MILL START AT SO BAUD AND BE INCREMENTED
:TO 9600 BAUD.
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITYED
sAT EACH SPEED
005034
005034
005042
005050

012767
012767
012767

000340
000001
005230

172734
011254
011242

005056

012767

005120

011236

005064
005072
005076
003102

000024
012777
012702
012705
012767

004000
000001
000002
101000

C11164

011250

TS \XN,1,45,15
¥23:
MOV

o o

.ENDC
XN=XN+1

#340,P5

:DISABLE ALL INTERRUPTS

4§ ,ESCAPE

:SET UP TO ESCAPE TO NEXT TEST

MOV

#13 ,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

@BIT11,9DHSCR
:MASTER CLEAR INTERFACE
#1.R2
;FIRST SPEED CODE
#2,RS
;LINE 2 WILL BE TESTED
#24400+100000,RDATA

MOV
ngv

<1$>

1, ICOUNT

:SET UP FOR 1 ITERATIONS

:SET EXPECTED LINE NUMBER
+AND VALID DATA FLAG
tEXPECTED DATA

CZDHF -CO

MACRO V04.00

005110
005114

012700
012701

000015
002103

005120
005124

010577
010177

011132
011132

005130

012777

016364

005136

012777

005144
005152
005156
005160
005164
005170
005172
005176
005176
005200
005202
005210
005214
0C5216
005222
005224
005226
005230

012777
105777
100375
017703
020367
001407
005077

005232

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000003
000010

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

RS ,3DHSCR
R1,3DHLPR

011126

MOV

#TBUF, 8DHBA

177400

011122

MoV

#-400,80HBC

000004
011100

011116

MOV

#4 ,8DHBAR

1¢:

2s:

TSTB
BPL

8DHSCR
2%

CMP
BEQ

R3,RDATA
3

MOV

011074

011170

011072

000004
011144

SEQ 38

27-JUN-85 12:59:01 PAGE 19-14

38:

002100

;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED

iSTART TRANSMITTER
iWAIT FOR DATA TO BE RECEIVED

SDHNRC,R3

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

CLR

S8DHBAR

EMT
SCOPE1

:STOP TRANSMITTER
;DATA ERROR

#4,8DHBAR
RDATA

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSHMITTER
sUPDATA EXPECTED DATA

HLT
011060

i13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
sSELECT LINE 2
;SET LINE SPEED AND

MOV
INCB

BNE
ADD
INC
DEC
BNE

43:
SCOPE
LINE=LINE+1

24
#2100,R1
R2
RO
13

sUPDATE LINE SPEED

sUPDATE SPEED CODE

BITX=BITX+BITX
SDATA2
\LINE,\BITX

sSINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 3
sCHARATER LENGTH IS 8 BITS
sLINE SPEED MILL START AT S0 BAUD AND BE INCREMENTED

;70 9600 BAUD.

sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

l'b-—

012767

000340
000001
005426

172536
011056
011044

012767

005316

011040

005262
005270
005274
005300

000025
012777
012702
012705
012767

000001
000003
101400

005312

012700
012701

000015
002103

010766

011052

TS \XN,1.45,18

T24:

JIF N8B

.ENDC

XN=XN+1

MOV
MOV
MOV

4340,PS
#1, ICOUNT
943 ,ESCAPE

:DISABLE ALL INTERRUPTS

MOV

@14 ,FREEZ}

:SET UP TO LOOP MITH DATA

MOV
MOV
MOV
MOV

#BIT11,8DHSCR
+MASTER CLEAR INTERFACE
#1.R2
+FIRST SPEED CODE
03,.RS
;LINE 3 WILL BE TESTED
#3+400+100000,RDATA
+SET EXPECTED LINE NUMBER
+AND VALID DATA FLAG
tEXPECTED DATA
#15,R0
:13 SPEEDS MILL BE TESTED
#2103 ,R1
+FIRST SPEED =50 BAUD,

<18

MOV
MOV

+SET UP FOR 1 ITERATIONS
+SET UP TO ESCAPE TO NEXT TEST
w

012767
012767

005232
005232
005240
005246

CZDHF -CO

MACRO V04.00

RS ,8DHSCR
R1,80DHLPR

010730

MOV

#TBUF , 8DHBA

177400

010724

MOV

#-400,8DHBC

000010
010702

010720

010577
010177

010734
010734

005326

012777

016364

005334

012777

005342
005350
005354
005356
005362
005366
005370
005374
005374
005376
005400
005406
005412
005414
005420
0C5422

012777
105777
100375
017703
020367
001407
005077

005424
005426
005430

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000004
000020

1$:

MOV
MCV

005316
005322

2¢:

010676
010772

010662

TSTB

8DHSCR

MOV
CMP

8DHNRC ,R3
R3,RDATA

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

HLT
EMT

1
1

MOV
BPL

SCOPEL

38:

002100

4s:

i8 BITS PER CHARACTER
;SELECT LINE 3
+SET LINE SPEED AND

iCHARACTER LENGTH
sADDRESS OF TRANSMITTER
;DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
sSTART TRANSMITTER
;WAIT FOR DATA TC BE RECEIVED

BEQ
CLR

010674

000010
010746

SEQ 39

27-JUN-85 12:59:01 PAGE 19-15

MOV

INC3

BNE
ADD
INC
DEC
BNE

SCOPE

#10, 8DHBAR

3
S8DHBAR

€10, 8DHBAR

RDATA

24
92100,R1
R2
RO
1s

sSTOP TRANSMITTER
sDATA ERROR
sCHECK FOR LOOP AT CURRENT SPEED

sRESTART TRANSMITTER
sUPDATA EXPECTED DATA
;UPDATE LINE SPEED
sUPDATE SPEED CODE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

:SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4
:CHARATER LENGTH IS 8 BITS
;LINE SPEED MILL START AT 50 BAUD AND BE INCREMENTED
;70O 9600 BAUD.
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
005430
005430
005436

012767
012767
012767

000340
000001
005624

172340
010660
010646

005452

012767

005514

010642

005466
005472
005476

000026
012777
012702
012705
012767

000001

005504
005510

012700
012701

000015
002103

005514

010577

010536

102000

010570

TS \XN,1,4%,18

T25:

JIF NB
.ENDC
XN=XN+1

010654

MOV
MOV
MOV

#340,PS
#1,ICOUNT
#43 ,ESCAPE

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

MOV

918 ,FREEZL

+SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

#B8IT11,8DHSCR
sMASTER CLEAR INTERFACE
#1,.R2
;FIRST SPEED CODE
04 ,RS
;LINE 4 WILL BE TESTED
#44400+100000,RDATA
+SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
:EXPECTED DATA
#15,R0
:13 SPEEDS MWILL BE TESTED
#2103,R1
+FIRST SPEED =50 BAUD,
18 BITS PER CHARACTER
RS,8DHSCR
;SELECT LINE 4

<1%>

MOV
MOV
1s:

MOV

: 3

CZOWF -CO

MACRO v04.00

035520

010177

010536

005524

012777

016364

005532

012777

005540
005546
005552
005554
005560
005564
005566
005572
005572
005574
005576
005604
005610
005612
00561€
005620
005622
0C5624

012777

005626

105777
100375
017703

020367
0014C7

005077
104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000005
000040

MOV

R1,8DHLPR

010532

MOV

OTBUF
, 8DHBA

177400

010526

MOV

€-400,80HBC

000020
010504

010522

2%:

MOV

7518
BPL

MOV

010500
010574
010476

000020
010550

SEQ 40

27-JUN-85 12:59:01 PAGE 19-16

010464

3s:

002100

4s:

#20,83DHBAR

SOHSCR
2%

8DHNRC ,R3

cMP
BEQ
CLR
HLT
EMT
SCOPE1L

R3,RDATA
3s
aDHBAR
1
1

INCB
BNE
ADD
INC
DEC

RDATA
28
#2100,R1
R2
RO

MOV

BNE

SCOPE

#20, 8DHBAR

:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

iGET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED

;RESTART TRANSMITTER
;UPDATA EXPECTED DATA
;UPDATE LINE SPEED
;UPDATE SPEED CODE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE S

sCHARATER LENGTH IS 8 BITS
;LINE SPEED MWILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
005626
005626
005634
005642

012767
012767
012767

000340
000001
006022

172142
010462
010450

005650

012767

005712

010444

005656
005664
005670
005674

000027
012777
012702
012705
012767

004000
000001
000005
102400

010372

005702

005706

012700
012701

000015
002103

005712
005716

010577
010177

010340
010340

TS \XN,1,48,18

T126:

pA
&

.ENDC

XN=XN+1

MOV

#340,PS

;DISABLE ALL INTERRUPTS

H?v
<1$>

#4% ,ESCAPE

sSET UP TO ESCAPE TO NEXT TEST

MOV

#13% ,FREEZL

sSET UP TO LOOP WITH DATA

MOV
MOV

#8IT11,8DHSCR
#1,R2

;MASTER CLEAR INTERFACE
;FIRST SPEED CODE

MOV
MOV

#15.R0
#2103 ,R1

:13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

MOV
MOV

RS ,8DHSCR
R1,8DHLPR

MOV

MOV
MOV

010456

1%:

@1, ICOUNT

sSET UP FOR 1 ITERATIONS

#5,RS5
;LINE S5 WILL BE TESTED
#5+400+100000,RDATA
:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
:EXPECTED DATA
:8 BITS PER CHARACTER
;SELECT LINE S
:SET LINE SPEED AND

;CHARACTER LENGTH

Z0WF -CO
035722

MACRO v04.00

012777

016364

27-JUN-85

010334

005730

012777

177400

010330

005736
005744
005750
005752
005756
005762

012777
105777

000040
010306

010324

005764
005770
005770
005772
005774
006002

006006
006010
006014
006016
006020
006022

0C6024

100375
017703

020367
001407
005077

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000006
000100

12:59:01 PAGE

MOV

MOV
2%:

010302
010376
010300

000040
010352

010266

3s:

002100

4%
:

MOV

TST8
BPL
MOV
CMP
BEQ
CLR
HLT
EMT
SCOPEL
MOV
INCB
BNE
ADD
INC
DEC
BNE

SEQ 41

19-17

4TBUF
, 3DHBA

;ADDRESS OF TRANSMITTER

;DATA BUFFER

#-400,8DHBC

;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
sSTART TRANSMITTER

@40, 8DHBAR

8DHSCR
2%
SDHNRC,R3
R3,RDATA
3
8DHBAR
1
1

240, 3DHBAR
RDATA
24
#2100,R1
R2
RO
1s

iWAIT FOR DATA TO BE RECEIVED

;GET RECEIVED CATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA
\

;UPDATE LINE SPEED
;UPDATE SPEED CODE

SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

sSINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (CCTAL) CHARACTERS ON LINE 6
:CHARATER LENGTH IS 8 BITS
;LINE SPEED MWILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
sAT EACH SPEED
006024
006024
006032
006040

012767
012767
012767

000340
000001
006220

171744

010264
010252

TS \XN,1,4%,.1¢
T27:
MOV
MOV
5 e

012767
006054

006062
005066
006072

000030
012777

012702
012705
012767

006110

010246

004000
000001
000006
103000

010174

006100
006104

012700
012701

000015
002103

005611C
006114

010577
010177

010142
010142

006120

v12777

016364

.ENDC
XN=XN«1

010260

1%:
010136

Hg!

#340,PS
#1,ICOUNT

48 ,ESCAPE

<1$>

;:DISABLE ALL INTERRUPTS
;SET UP FOR 1 ITERATIONS

+SET UP TO ESCAPE TO NEXT TEST

MOV

18 ,FREEZ1

:SET UP TO LOOP WITH DATA

MoV
MOV
MOV
MOV

@8IT11,8DHSCR
sMASTER CLEAR INTERFACE
@1,R2
:FIRST SPEED CODE
@6 ,R5
sLINE 6 WILL BE TESTED
#64400+100000,RDATA

MOV
MOV

¢15,R0
#2103,R1

MOV
MOV

RS ,8DHSCR
R1,8DHLPR

MOV

4#TBUF , 3DHBA

+SET EXPECTED LINE NUMBER
+AND VALID DATA FLAG
;EXPECTED DATA

:13 SPEEDS WILL BE TESTED
:FIRST SPEED =50 BAUD.

:8 BITS PER CHARACTER
sSELECT LINE 6
:SET LINE SPEED AND

;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER

CZ0HF -CO

MACRO v04.00

27-JUN-85

12:59:01 PAGE 19-18
MOV

006124

012777

177400

010132

006134
006142
006146
006150
006154
006160
006162
006166
006166
006170
006172
006200
006204
006206
006212
006214
006216
006220

012777
105777
100375
017703
020367
001407
005077

000100
010110

010126

006222

104001
104410

012777
105267
001356
062701
005202
005300
001334
104400
000007

MOV

2%:

010104
010200
010102

000100
010154

010070

3s:

002100

TST8
BPL
MOV
CMP
BEQ
CLR
HLT
EMT

SCOPE1
MOV
INCB
BNE

ADD

4s:

INC
DEC
BNE

SCOPE

#-400,30HBC

@100, 8DHBAR

8DHSCR

JDHNRC ,R3

R3,RDATA
3
8DHBAR

1
1

#100,3DHBAR

RDATA
2%
#2100,R1
R2
RO
1s

SEQ 42

;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
;START TRANSMITTER
iWAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
:STOP TRANSMITTER
:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA
;UPDATE LINE SPEED
;UPDATE SPEED CODE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

000200

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT SO BAUD AND BE INCREMENTED
;TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED

006222
006222
006230
006236

012767
012767.
012767

000340
000001
006416

010054

006244

012767

006306

010050

006252
006260
006264
006270

000031
012777
012702
012705
012767

004000
000001
000007
163400

007776

006276
006302

012700
012701

000015
002103

006306
0056312

010577
010177

007744
007744

006316

012777

016364

006324

012777

177400

171546

010066

TS \XN,1,45,1$
730:
MoV
MOV
MOV
.IF NB
<1$%>
MOV
.ENDC
XN=XN+1

MOV
MOV

010062

4340,PS
#1,ICOUNT
@43 ,ESCAPE

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

#1$ ,FREEZ1

:SET UP TO LOOP WITH DATA

#B8IT11,8DHSCR
#1,.R2

sMASTER CLEAR INTERFACE
;:FIRST SPEED CODE

#7,RS
;LINE 7 WILL BE TESTED
474400100000,
RDATA

MOV
MoV

#15,R0
#2103,R1

MOV
MOV

RS ,8DHSCR
R1,8DHLPR

007740

MOV

4TBUF , 8DHBA

007734

MOV

#-400,80HBC

18:

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA

;13 SPEEDS WILL BE TESTED
:FIRST SPEED =50 BAUD,

;8 BITS PER CHARACTER
:SELECT LINE 7
+SET LINE SPEED AND

;CHARACTER LENGTH

;ADDRESS OF TRANSMITTER
;DATA BUFFER
;400 (OCTAL) BYTES

;WILL BE TRANSMITTED

CZOHF -CO
006332
006340
006344
006346
006352
006356
006360
006364
006364
006366
006370
006376
006402
006404
006410
006412
006414
006416

006420

MACRO V04.00

012777
105777

100375
017703
020367
001407
005077
104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000010
000400

000200
00/712

007730

2%:

007706
010002

MOV
TSTB

BPL

MOV

cMP
BEQ
CLR

007704

000200
007756

SEQ 43

27-JUN-85 12:59:01 PAGE 19-19

HLT
EMT

007672

002100

SCOPEL

#200, 9DHBAR
8DHSCR
2%
8DHNRC,R3

;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

R3,RDATA
3$
GDHBAR

;STOP TRANSMITTER
;DATA ERROR

1
1

;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA

MOV
#200,8DHBAR
3s:
INCB
RDATA
BNE
28
ADD
#2100,R1
INC
R2
DEC
RO
BNE
1
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

;UPDATE LINE SPEED
;UPDATE SPEED CODE

:SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 10
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
;TG 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
006420
006420
006426
006434

012767
012767
012767

000340
000001
006614

171350
007670
007656

006442

012767

006504

007652

000032
012777
012702
012705
012767

004000
000001
000010
104000

007600

006450
006456
006466

006474
006500

012700
012701

000015

006504
006510

010577
010177

007546
007546

006514

012777

016364

006522

012777

0056530
006536

012777
105777

TS \XN,1,4%,1$
T31:
MOV
MOV
MOV
IF NB
<1$>
MOV
.ENDC
XN=XN+1

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

#1% ,FREEZ1

;SET UP TO LOOP WITH DATA

#8IT11,8DHSCR

MOV
MOV

#10,R5
#104400+100000,RDATA

#1,R2

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

RS, @DHSCR
R1,80HLPR

007542

MOV

#TBUF
, SDHBA

177400

007536

MOV

#-400,80HBC

000400
007514

007532

MoV
TSTB

#400, 3DHBAR
8DHSCR

002103

1s:

2%:

;:DISABLE ALL INTERRUPTS

MOV

007664

#340,PS
@1, ICOUNT
43 ,ESCAPE

sMASTER CLEAR INTERFACE
;FIRST SPEED CODE
;LINE 10 WILL BE TESTED

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
313 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
+SELECT LINE 10
:SET LINE SPEED AND
:CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
:START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED

CZONF-CO

MACRO V04.00

006542
006544
006550
006554
006556

100375
017703
020367
001407
005077

006562
006564
006566
006574
006600
006602
006606
006610
006612
006614

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400

006562

007510
007604
007506

000400
007560

BPL
MoV
CMP
BEQ
CLR

2%
8DHNRC ,R3
R3,RDATA
3
8DHBAR

EMT
SCOPE1
MoV
INCB
BNE
ADD
INC
DEC
BNE
SCOPE

HLT
007474

3s:

002100

44:

000011
001000

006616

SEQ

27-JUN-85 12:59:01 PAGE 19-20

#400, 9DHBAR
RDATA
2%
#2100,R1
R2
RO
1s

iGET RECEIVED DATA
;COMPER EXPECTED AND RECEIVEC DATA
;STOP TRANSMITTER

;:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
:UPDATA EXPECTED DATA
;UPDATE LINE SPEED
;UPDATE SPEED CODE

LINE=LINE+1
BITX=BITX+BITX
SDATA2 \LINE,\BITX
:SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 11
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT S0 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

006616

006616
006624
005632

012767
012767
012767

000340
000001
007012

TS \XN,1,4%,1$

171152
007472
007460

T32:
i
3

006640

012767

000033

006646
006654
006660
006664

007454

004000
000001
000011
104400

0074C2

006672
005676

012700
012701

000015
002103

006702
006705

010577
010177

007350
007350

006712

012777

016364

012777
012777

006720
006726

006734

005740
006742

012777
012702
012705
012767

006702

105777

100375
017703

007466

MOV
MOV

#340,PS
#1,ICOUNT
843 ,ESCAPE

;:DISABLE ALL INTERRUPTS
;SET UP FOR 1 ITERATIONS

MOV

1% ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

#BIT11,8DHSCR
:MASTER CLEAR INTERFACE
o1,R2
;FIRST SPEED CODE
#11,R5
;LINE 11 WILL BE TESTED
#11+400+100000,RDATA
:SET EXPECTED LINE NUMBER

P‘I}\’l

<1$>

XN=XN+1

:SET UP TO ESCAPE TO NEXT TEST

:AND VALID DATA FLAG
;:EXPECTED DATA

MOV
MOV

#15,R0
92103,R1

:13 SPEEDS WILL BE TESTED
+FIRST SPEED =50 BAUD,

MOV
MOV

RS ,80HSCR
R1,8DHLPR

sSELECT LINE 11
;SET LINE SPEED AND

007344

MOV

@TBUF , 8DHBA

177400

007340

MOV

#-400, 8DHBC

001000

007334

MOV

#1000, 3DHBAR

TSTB

@DHSCR

007316

007312

1s:

2%:

BPL
MOV

2%
SDHNRC ,R3

+8 BITS PER CHARACTER

sCHARACTER LENGTH
‘SAMTAg‘SFgERTRANSHITTER
i

+400 (OCTAL) BYTES

;WILL BE TRANSMITTED
;START TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA

i 3

CZDHF -CO
006746
006752
006754
006760
006760
006762
006764
006772
006776
007000
007004
007006

007010
007012
007014

MACRO V04.920

020367

001407
005077
104001
104410
012777
105267
001356
062701
005202
005300
001334
104400

007406

007310

ggz

g?.RDATA

CLR

8DHBAR

HLT
EMT

001000
007362

SEQ 45

€7-JUN-85 12:59:01 PAGE 19-21

007276

3$:

002100

1
1

;STOP TRANSMITTER

;DATA ERROR

SCOPE1
MOV
g:gfl

#1000, 3DHBAR
ggATA

;CHECK FOR LOOP AT CURRENY SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

ADD
INC

#2100,R1
R2

;UPDATE LINE SPEED
;UPDATE SPEED CODE

DEC
RO
BNE
1s
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

000012
002000

;COMPER EXPECTED AND RECEIVED DATA

:SINGLE LINE DATA TEST

i TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12
:CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED

;70 9600 BAUD.

:A_BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

007014
007014
007022
007030

012767
012767
012767

000340
000001
007210

170754
007274
007262

007036

012767

007100

007256

007044
007052
007056
007062

000034
012777
012702
012705
012767

004000
000001
000012
105000

007204

TS \XN,1,4%,1$

T33:

IF NB

.ENDC
XN=XN+1

007270

MOV
MOV
MOV
<1$>
MOV

#340,PS
#1,ICOUNT
#4$ ,ESCAPE

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

#1$ ,FREEZL

sSET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

4BIT11,8DHSCR
sMASTER CLEAR INTERFACE
#1,R2
;FIRST SPEED CODE
#12.R5
;LINE 12 WILL BE TESTED
#12+400+100000,RDATA

sSET EXPECTED LINE NUMBER
;AND VALID DATA FLAG

007070
007074

012700
012701

000015
002103

007100
007104

010577
010177

007152
007152

007110

012777

016364

MOV

18:

007146

#15,R0

MOV

$2103,R1 ==

;FIRST SPEED =S50 BAUD,

MOV
MOV

RS ,8DHSCR
R1,8DHLPR

;SELECT LINE 12
;SET LINE SPEED AND

MOV

#TBUF , 8DHBA

007116

012777

177400

007142

MOV

#-400,80HBC

007124
007132
007136
007140
007144
007150

012777
105777
100375
017703
020367
001407

002000
007120

007136

MOV

#2000, 8DHBAR

007114
007210

2%:

:EXPECTED DATA
;13 SPEEDS WILL BE TESTED

;8 BITS PER CHARACTER

;CHARACTER LENGTH

;ADDRESS OF TRANSMITTER

1DATA BUFFER

;400 (OCTAL) BYTES

;WILL BE TRANSMITTED
;START TRANSMITTER

;gls

g?nscn

s:WAIT FOR DATA TO BE RECEIVED

MOV
gHP
EQ

8DHNRC ,R3
gS.RDATA
$

;GET RECEIVED DATA
;:COMPER EXPECTED AND RECEIVED DATA

CZDHF -CO
007152

007156
007156
007160
007162
007170
007174
007176
007202
007204
007206
007210
007212

MACRO V04.00

005077
104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000013
004000

007112

002000
007164

SEQ 46

27-JUN-85 12:59:01 PAGE 19-22

CLR

007100

002100

3$:

HLT
EMT
SCOPEL
MOV
g:gfl

8DHBAR

iSTOP TRANSMITTER

1
1

iDATA ERROR

#2000, 3DHBAR
geATA

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
iUPDATA EXPECTED DATA

ADD
#2100,R1
INC
R2
DEC
RO
BNE
13
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

;UPDATE LINE SPEED
;UPDATE SPEED CODE

;SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 13
sCHARATER LENGTH IS 8 BITS

;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

007212
007212
007220
007226

012767
012767
012767

000340
000001
007406

170556
007076
007064

007234

012767

007276

007060

007242
007250
007254
007260

000035
012777
012702
012705
012767

004000
000001
000013
105400

007006

TS \XN,1,4%,1$
T34:
MOV

IF NB

.ENDC
XN=XN+1

007072

MOV
MOV

#340,PS

@1, ICOUNT
#4$ ,ESCAPE

@13 ,FREEZ1

MOV
MOV
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#1,R2
;FIRST SPEED CODE
#13,R5
;LINE 13 WILL BE TESTED
#13+400+100000,RDATA

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

R1,8DHLPR

012700
012701

000015
002103

007276
007302

010577
010177

006754
006754

007306

012777

016364

006750

MOV

#TBUF
, 8DHBA

007314

012777

177400

006744

MoV

#-400,80HBC

007322
007330
007334
007336
007342
007346
007350
007354

012777
105777
100375
017703
020367
001407
005077

MOV

#4000, 8DHBAR
8DHSCR
24
SDHNRC ,R3
R3,RDATA
34
gDHBAR

006722
006716
007012
006714

006740

2%:

+SET UP FOR 1 ITERATIONS
:SET UP TG ESCAPE TO NEXT TEST

<1$%>
MOV

007266
007272

1$:

;DISABLE ALL INTERRUPTS

TSTB

BPL
MOV
CHMP
BEQ
CLR
HLT

RS, 8DHSCR

;SET UP TO LOOP WITH DATA

+SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
:EXPECTED DATA
;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD.
;8 BITS PER CHARACTER
sSELECT LINE 13
+SET LINE SPEED AND
:CHARACTER LENGTH
1ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
sSTART TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA

;COMPER EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER
:DATA ERROR

: 3

CZDHF -CO
007354
007356
007360
007366
007372
007374
007400
007402
007404
007406

007410

MACRO V04.00

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000014
010000

004000
006766

SEQ 47

27-JUN-85 12:59:01 PAGE 19-23

006702

3¢:

002100

EMT
SCOPE1
MOV
INCB
BNE
ADD
INC
DEC
BNE

4%:
SCOPE
LINE=LINE+1

1
#4000, 8DHBAR
RDATA
2%
#2100,R1
R2

RO
1s

;CHECK FOR LOOP AT CURRENT SPEED
iRESTART TRANSMITTER
iUPDATA EXPECTED DATA

;UPDATE LINE SPEED
;UPDATE SPEED CODE

BITX=BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 14
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
007410
0C7410
007416
007424

012767
012767
012767

000340
000001
007604

006700

007432

012767

007474

006662

007440
007446
007452
007456

000036
012777
012702
012705
012767

000001
000014
106000

004000

006610

007464
007470

012700
012701

000015
002103

007474

007500

010577
010177

006556
006556

007504

012777

016364

007512

012777

007520
007526
007532
007534
007540
007544
007546
007552
007552
007554

012777
105777
100375
017703
020367
001407
005077

104001
104410

170360

006666

006674

TS \XN,1,45,1$
T35:
MOV
MOV
MOV
IF NB
<1$>
MOV
.ENDC
XN=XN+1
MOV
MOV
MOV
MOV

#340,PS
#1,ICOUNT
#4$ ,ESCAPE

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

#1$,FREEZL

;SET UP TO LOOP WITH DATA

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
#1,R2
;FIRST SPEED CODE
#14,RS
sLINE 14 WILL BE TESTED
#14+400+100000,RDATA

MOV
MOV

#15,R0
#2103,R1

MOV

RS ,8DHSCR

006552

MOV

#TBUF ,8DHBA

177400

006546

MOV

#-400,30HBC

010000
006524

006542

MOV
TST8
BPL

#10000
, 8DHBAR
8DHSCR
2%

CMP
BEQ
CLR
HLT
EMT
SCOPEL

R3,RDATA
38
@DHBAR
1
1

006520
006614
006516

1$:

28:

MOV

R1,3DHLPR

@DHNRC ,R3

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA
:13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
+8 BITS PER CHARACTER
sSELECT LINE 14
;SET LINE SPEED AND

sCHARACTER LENGTH
:ADDRESS OF TRANSMITTER
:DATA BUFFER
1400 (OCTAL) BYTES
sWILL BE TRANSMITTED
:START TRANSMITTER

:WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
:DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED

: 3

CZDHF -CO
007556
007564
007570
007572
007576
007600
007602
007604

007606

MACRO V04.00

012777
105267
001356
062701
005202
005300
001334
104400
000015
020000

010000

006570

SEQ 48

27-JUN-85 12:59:01 PAGE 19-24

006504

002100

MOV
#10000, 3DHBAR
INCB
RDATA
BNE
2%
ADD
#2100,R1
INC
R2
DEC
RO
1
BNE
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

3s:

;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;UPDATE LINE SPEED
;UPDATE SPEED CODE

;:SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 15
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED
007606
007606
007614
0C7622

012767
012767
012767

000340
000001
010002

170162
006502
006470

007630

012767

007672

006464

007636
007644
007650
007654

000037
012777
012702
012705
012767

004000
000001
000015
106400

006412

007662
007666

012700
012701

000015
002103

007672
007676

010577
010177

006360
006360

007702

012777

016364

007710

012777

007716
007724
007730
007732
007736
007742
007744
007750
007750
007752
007754
007762

012777
105777
100375
017703
020367
001407
005077

104001
104410
012777
105267

006476

TS \XN,1,4%,1$
T36:
MOV
MOV
MOV
IF NB
<1
MOV
.ENDC
XN=XN+1
MOV
MOV
MOV
MOV

#340,PS
#1,ICOUNT
#4$ ,ESCAPE

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

#1$ ,FREEZ1

;SET UP TO LOOP WITH DATA

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#1,R2
;FIRST SPEED CODE
#15,RS5
;LINE 15 WILL BE TESTED
#15+400+100000,RDATA

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

RS ,8DHSCR
R1,8DHLPR

006354

MOV

#TBUF
, 8DHBA

177400

006350

MOV

#-400,8DHBC

020000
006326

006344

MOV
1578
BPL
MOV
CHP
BEQ
CLR
HLT
EMT
SCOPE1L
MOV
INCB

#20000, 8DHBAR
SDHSCR
23
8DHNRC ,R3
R3,RDATA
33
3DHBAR
1
1

1$:

2%:

006322

006416

006320

020000
006372

006306

3s:

#20000,3DHBAR
RDATA

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA

;13 SPEEDS MILL BE TESTED

;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
sSELECT LINE 15
;SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER

:DATA BUFFER
;400 (OCTAL) BYTES

;WILL BE TRANSMITTED
:START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER
:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
sUPDATA EXPECTED DATA

i 3

CZDHF -CO
007766
007770
007774
007776
010000
010002

010004

MACRO V04.00

001356
062701
005202
005300
001334
104400
000016
040000

SEQ 49

27-JUN-85 12:59:01 PAGE 19-25

ENE

002100

ADD

4%:

INC
DEC
BNE

SCOPE

#2100,R1

R2
RO
1s

;UPDATE LINE SPEED
;UPDATE SPEED CODE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 16
:CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED

010004
010004
010012
010020

012767
012767
012767

000340
000001
010200

167764
006304
006272

010026

012767

010070

006266

010034
010042
010046
010052

000040
012777
012702
012705
012767

004000
000001
000016
107000

006214

010060
010064

012700
012701

000015
002103

010070
010074

010577
010177

006162
006162

010100

012777

016364

010106

012777

010114
010122
010126
010130
010134
010140
010142
010146
010146
010150
0190152
010160
010164
01C166

012777
105777

100375
017703
020367
001407
005077
104001
104410
012777
105267
001356
062701

TS \XN,1,48,1$
T37:
MOV
MOV

IF NB
.ENDC

XN=XN+1

006300

MOV
<18
MOV

#340,PS
#1,ICOUNT
#4$ ,ESCAPE

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

#1$ ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

#B8IT11,8DHSCR
;MASTER CLEAR INTERFACE
#1.R2
;FIRST SPEED CODE
#16,RS
;LINE 16 WILL BE TESTED
#16+400+100000,RDATA

MOV
MOV

#15,R0
#2103.R1

MOV

RS ,8DHSCR

006156

MOV

#TBUF
, 8DHBA

177400

006152

MOV

#-400,8DHBC

040000
006130

006146

18:

2%:

006124
06220

006122

040000
006174

002100

006110

3s:

MOV

TS718

BPL
MOV
cMP
BEQ

CLR
HLT
EMT
SCOPE1L
MOV
INCB
BNE
ADD

R1,8DHLPR

#40000, 83DHBAR

8DHSCR

24
SDHNRC ,R3
R3,RDATA
33
SDHBAR
1
1

#40000, aDHBAR
RDATA
24
#2100,R1

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA
:13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
sSELECT LINE 16
;SET LINE SPEED AND
sCHARACTER LENGTH
;ADDRESS OF TRANSMITTER

;:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER
sWAIT FOR DATA TO BE RECEIVED
:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA
;UPDATE LINE SPEED

CZDHF -CO
010172
010174
010176
010200

010202

MACRO V04.00

SEQ 50

27-JUN-8S 12:59:01 PAGE 19-26

005202
005300
001334
104400
000017
100000

INC
DEC
BNE

4%:
SCOPE
LINE=LINE+1

R2
RO
1s

;UPDATE SPEED CODE

BITX=BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 17
:CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
010202
010202
010210
010216

012767
012767
012767

000340
000001
010376

006106
006074

010224

012767

010266

006070

010232
010240
010244
010250

000041
012777
012702
012705
012767

004000
000001
000017
107400

006016

010256
010262

012700
012701

000015
002103

010266
010272

010577
010177

005764
005764

010276

012777

016364

005760

MOV

010304

012777

177400

005754

MOV

010312
010320
010324
010326
010332
010336
010340
010344
010344
010346
010350
010356
019362
010364
010370
010372

012777
105777
100375
017703
020367
001407
005077

100000
005732

005750

104001
104410
012777
105267
001356
062701
005202
005300

167566

TS \XN,1,48,1¢
T40:
MOV

.IF NB

.ENDC

XN=XN+1

006102

MOV
MoV

#340,PS
@1,ICOUNT
#4$ ,ESCAPE

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

MOV

#18,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

MOV
;'S,TB

#BIT11,3DHSCR
sMASTER CLEAR INTERFACE
#1,R2
sFIRST SPEED CODE
#17,R5
sLINE 17 WILL BE TESTED
@17+400+100000,RDATA
+SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
#15,R0
:13 SPEEDS WILL BE TESTED
92103,R1
;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
RS,8DHSCR
sSELECT LINE 17
R1,3DHLPR
:SET LINE SPEED AND
sCHARACTER LENGTH
©TBUF , 8DHBA
;ADDRESS OF TRANSMITTER
:DATA BUFFER
#-400, 80HBC
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
2100000, 3DHBAR
;START TRANSMITTER
ZUHS‘CR
sWAIT FOR DATA TO BE RECEIVED

<1$>

MOV
MOV
1s:

2%:

MOV
MOV

005726
006022

MOV

Bcg:

SDHNRC ,R3

005724

CLR

S0HBAR
i

;DATA ERROR

SCOPEL
MOV

#100000, 83DHBAR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER

100000
005776
002100

gfl

005712

3s:

§3.RDATA
$

:GET RECEIVED DATA

;COMPER EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER

gl‘ECB

gl’)ATA

sUPDATA EXPECTED DATA

ADD
11)22

#2100,R1
:(2)

;UPDATE LINE SPEED
iUPDATE SPEED CODE

: 3

CZDHF -CO
010374
010376
30
31
32
33
35
36
37
38
39
40

MACRO V04.00

SEQ 51

27-JUN-85 12:59:01 PAGE 19-27

001334
104400
000020
000000
000000
000000
000001
000001
000020

BNE

43
:
SCOPE
LINE=LINE+1

BITX=BITX+BITX
LINE=0

XLINE=LINE
BITX=1

XBIT=BITX
.REPT
20
SDATA3
\LINE,\BITX

.NLIST
LINE=LINE+1
BITX=BITX+BITX
LIST
.ENDR
SDATA3
\LINE,\BITX

010400

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE O
;LINE SPEED IS 9600 BAUD
sgglglglgg LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;

iA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
010400
010400
010406
01041a

012767
012767
012767

000340
000001
010616

167370
005710
005676

010422

012767

010470

005672

010430
010436
010440
010444

000042
012777
005004
012705
012767

004000

005620

000000
100000

005706

TS \XN,1,45,1%
T41:
MOV
MOV
MOV
.IF N8

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

MOV

14 ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV

#B8IT11,8DHSCR
R4

<1$>

.ENDC
XN=XN+1

CLR
MOV
MOV

;DISABLE ALL INTERRUPTS

;MASTER CLEAR INTERFACE
;FIRST CHARACTER LENGTH CODE (S BITS)
;LINE O WILL BE TESTED

010452

012700

000004

MOV

4,80

+SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
:EXPECTED DATA
s4CHARACTER LENGTHS

010456

012701

033500

MOV

#33500.R1

sFIRST CHARACTER LENGTH =S BITS,,

010462
010470
010474
010500
019502

012767
010577
016702
005402
010177

177740
005562
005662

MOV
MOV
MOV
NEG
MOV

@-40,BYTCNT

010506

012777

016364

005550

. MoV

#TBUF , 8DHBA

010514

016777

005642

005544

MoV

BYTCNT , 80HBC

010522
010530
010534

012777
105777
100375

000001
005522

005540

005672

1s:

005554

2%:

MOV

TSTB

BPL

RS ,8DHSCR
BYTCNT ,R2
R2
R1,8DHLPR

41, 3DHBAR

80HSCR
24

: 3

iWILL BE TESTED

;LINE SPEED =9600 BAUD
+40 CHARACTERS AT S BITS
;SELECT LINE O

+SET LINE SPEED AND
;CHARACTER LENGTH
:ADDRESS OF TRANSMITTER
:DATA BUFFER
1400 (OCTAL) BYTES
;WILL BE TRANSMITTED
:START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED

CZDHF -CO
010536
010542
010546
010550
010554
010554
010556
010560
010566
010572
010574
010576

010602
010604
010606
010612
010614
010616

010620

MACRO V04.00

005516
005612

017703

020367
001407
005077

MOV

000001

105267
005302
001355
105067

005566

005502

38:

005556

005201
005204
006367
005300
001325
104400
000001

005550

R3,RDATA

HLT
EMT

2
2

33
8DHBAR

SCOPEL
MOV
INCB
DEC
BNE
CLRB

@1 ,30HBAR
RDATA
R2
2%
RDATA

INC
INC
ASL
DEC
BNE

R1
R4
BYTCNT
RO
1s

4%:
SCOPE
LINE=LINE+1

000002

8DHNRC ,R3

CcMP

BEQ
CLR

005514

104002
104410
012777

SEQ 52

27-JUN-85 12:59:01 PAGE 19-28

iGET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

iSTOP TRANSMITTER
:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
iUPDATA EXPECTED DATA

s INITIALIZE EXPECTED
sRECEIVED DATA
iUPDATA CHARACTER LENGTH

BITX=BITX+BITX
SDATA3
\LINE,\BITX

:SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 1
;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED
;70 8 BITS
tA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
010620
010620
010626
010634

012767
012767
012767

010642

012767

010650
010656
010660
010664

000043
012777
005004
012705
012767

000340
000001
011036

167150
005470
005456

010710

005452

004000

005400

000001
100400

005466

TS \XN,1,48,1$

T42:

OF NB

.ENDC
XN=XN+1

MOV

#340,PS

#1,ICOUNT
043 ,ESCAPE

+SET UP FOR 1 ITERATIONS

MOV

#1§,FREEZL

3SET UP TO LOOP MITH DATA

MOV
CLR
MOV
MOV

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
R4
~ 3FIRST CHARACTER LENGTH CODE (S BITS)
#1,R5
;LINE 1 WILL BE TESTED
#1+400+100000,RDATA

010672

012700

000004

MOV

#4 ,.RO

010676

012701

033500

MOV

#33500,R1

010702
010710
010714
010720
010722

012767
010577
016702
005402
010177

177740
005342
005442

MOV
MOV
MOV
NEG
MOV

#-40 ,BYTCNT
RS ,80MSCR
BYTCNT ,R2
R2
R1.80HLPR

010726

012777

016364

MOV

#TBUF
, 8DHBA

005452

005334

R
R

005330

1s:

:DISABLE ALL INTERRUPTS

MOV
MOV

+SET UP TO ESCAPE TO NEXT TEST

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS
sWILL BE TESTED
;FIRST CHARACTER LENGTH =5 BITS..
;:LINE SPEED =9600 BAUD
;40 CHARACTERS AT S BITS
:SELECT LINE 1

sSET LINE SPEED AND
;CHARACTER LENGTH

+ADDRESS OF TRANSMITTER

: 3

CZOMF -CO

MACRO V04.00

010734

016777

005422

005324

MOV

BYTCNT,8DHBC

010742
010750
010754
010756
010762
010766
010770
010774
010774
010776
011000
011006
011012
011014

012777

000002
005302

005320

MOV
1ST8
BPL
MOV
CMP
BEQ
CLR
HLT

42 ,3DHBAR

011016

011022
011024
011026
011032
011034
011036
011040

105777
100375
017703
020367
001407
005077

2%:

005276
005372
005274

EMT

104002

104410

012777

105267
005302
001355
105067
005201
005204
006367
005300
001325
104400
000002
000004

000002
005346

SEQ 53

27-JUN-85 12:59:01 PAGE 19-29

005262

SCOPE1

3s:

005336

MoV

INCB
DEC
BNE
CLRB
INC
INC

005330

ASL

43:

DEC
BNE

SCOPE

8DHSCR
24
@DHNRC,R3

R3,RDATA

3s
SDHBAR
2
2

&2 ,3DHBAR
RDATA
R2
2$
RDATA

R1
R4
BYTCNT
RO
1s

;DATA BUFFER

;400 (OCTAL) BYTES

;WILL BE TRANSMITTED
:START TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;:DATA ERROR
;:CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER

;UPDATA EXPECTED DATA

;sINITIALIZE EXPECTED
;RECEIVED DATA
:UPDATA CHARACTER LENGTH

LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

sSINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 2
;LINE SPEED IS 9600 BAUD
tgghglglgg LENGTH WILL START AT 5 BITS AND BE INCREMENTED
:

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
011040

011054

012767
012767
012767

000340
000001
011256

166730
005250
005236

011062

012767

011130

005232

011070
011076
011100
011104

000044
012777
0G5004
012705
012767

004000

005160

000002
101000

005246

011112

012700

000004

011040
011046

011116 012701 033500

011122

012767

177740

005232

TS \XN,1,4%,1$
T43:
MOV
MOV
MOV
OF NB

.ENDC

XN=XN+1

#340,PS
@1, ICOUNT

€43 ,ESCAPE

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

MOV

13 ,FREEZ1

sSET UP TO LOOP WITH DATA

MOV
CLR
MOV
MOV

R4
;FIRST CHARACTER LENGTH CODE (5 BITS)
®2,RS
sLINE 2 WILL BE TESTED
#2+400+100000,RDATA

#B8IT11,80HSCR

sMASTER CLEAR INTERFACE

MOV

#4 ,RO

MOV

#33500,R1

MOV

#-40,BYTCNT

<18

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
14CHARACTER LENGTHS

;WILL BE TESTED

;FIRST CHARACTER LENGTH =5 BITS,,

;LINE SPEED =9600 BAUD

;40 CHARACTERS AT 5 BITS

Z2DWF -CO
11130

MACRO V04.00

27-JUN-85 12:59:01 PAGE

011140
011142

010577
016702
005402
010177

005114

011146

012777

016364

005110

011154

016777

005202

011162
011170
011174
011176
011202
011206
011210
011214
011214
011216
011220
01122¢
011232
011234
011236

012777

000004
005062

011134

011242
011244
011246
011252
011254
011256

011260

105777
100375

017703
020367
001407
005077
104002
104410
012777
105267
005302
001355
105067

005122
005222

1¢:

MOV

RS ,3DHSCR
BYTCNT,R2
R2

;SELECT LINE 2

R1,8DHLPR

;SET LINE SPEED AND

MOV

#TBUF , 8DHBA

;ADDRESS OF TRANSMITTER

005104

MOV

BYTCNT ,8DHBC

;400 (OCTAL) BYTES

005100

MOV
;gla

#4 ,3DHBAR
SEHSCR

;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

SDHNRC ,R3

;GET RECEIVED DATA

2%:

005056
005152

MOV

gg:

005054

000004
005126

MOV
MOV
NEG

SEQ 54

19-30

CLR

005042

2
e

MOV
INCB
DEC

#4 ,3DHBAR
RDATA
R2

CLRB

RDATA

INC
INC
ASL
DEC

R1
R4
BYTCNT
RO

BNE

005116

005201
005204
005110
006367
005300
001325
104400 000003
000010

aDHBAR

HLT
EMT

SCOPE1L

3s:

g}-RDATA

BNE

4s:
SCOPE
LINE=LINE~1

;CHARACTER LENGTH
;DATA BUFFER

;sWILL BE TRANSMITTED

;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER

;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

:INITIALIZE EXPECTED
;RECEIVED DATA

;UPDATA CHARACTER LENGTH

BITX=BITX+BITX
SDATA3
\LINE,\BITX

:SINGLE LINE DATA TEST

s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 3
;LINE SPEED IS 9600 BAUD

=$3A:A§;$g LENGTH WILL START AT 5 BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

sAT EACH CHARACTER LENGTH
011260
011260
011266
011274

012767
012767
012767

000340
000001
011476

166510
005030
005016

011302

012767

011350

005012

004000

004740

000003
101400

005026

011310

011316
C11320
011324

000045
012777
005004
012705
012767

TS \¥N,1,4%,1$
T44:
MoV

IF NB

.ENDC
XN=XN+1

#340,PS

;:DISABLE ALL INTERRUPTS

014 ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
MOV
<1%>
MoV

#1,ICOUNT
@48 ,ESCAPE

:SET UP FOR 1 ITERATIONS
4
:SET UP TO ESCAPE TO NEXT TEST

MOV
CLR
MOV
MOV

#BIT11,80HSCR
sMASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (S BITS)
#3,R5
;LINE 3 WILL BE TESTED
#34400+100000,RDATA

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG

: 3

CZDHF -CO

MACRO V04.00

27-JUN-85

12:59:01 PAGE

19-31

011332

012700

000004

MOV

24RO

011336

012701

033500

MOV

#33500,R1

011342
011350
011354

012767
010577
016702

177740
004702
005002

MOV
MOV
MOV

©-40,BYTCNT
RS, 8DHSCR
BYTCNT,R2

010177

004674

MOV

R1,8DHLPR

011360
011362

005402

005012

18:

NEG

iEXPECTED DATA
:4CHARACTER LENGTHS
;WILL BE TESTED
iFIRST CHARACTFR LENGTH =5 BITS,,
iLINE SPEED =%o00 BAUD
;40 CHARACTERS AT 5 BITS
;SELECT LINE 3

011366

012777 016364 004670

MOV

#TBUF
, 9DHBA

011374

016777

004762

004664

MOV

BYTCNT, 8DHBC

011402
011410
011414
Cil4le
011422
011426

012777
105777

000010
004642

004660

MOV
TSTB

£10, 8DHBAR
@DHSCR

;SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

017703
020367

004636
004732

MOV
CHP

SDHNRC ,R3
R3,RDATA

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

005077

004634

011430
011434
'011434
011436
011440
011446
011452
011454
011456
011462
011464
011466
011472
011474
011476

011500

100375

001407
104002
104410

012777

000010 004622

105267

004706

105067

004676

005302
001355
005201
005204
006367

005300
001325
104400
000004
000020

2s:

B8PL

BEQ
33
CLR
8DHBAR
HLT
2
EMT
2
SCOPE1

3s:

MOV

210, 3DHBAR

INCB

RDATA

CLRB

RDATA

DEC
BNE
INC
INC

004670

ASL

R2
2s
R1
R4

;STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

s INITIALIZE EXPECTED
sRECEIVED DATA
;UPDATA CHARACTER LENGTH

BYTCNT

DEC
RO
BNE
1$
as:
SCOPE
LINE=LINE-1
BITX=BITX+BITX
SDATA3

\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4

;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;T0 8 BITS
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
011500
011500

011506
011514

011522

012767

000340

012767

011716

012767
012767

000046

166270

000001

004610

011570

004572

004576

TS \XN.1,45,18
T45:
MOV

XN=XN+1

#340,PS

MOV

#1,ICOUNT

#4$,ESCAPE

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

MOV

#1$,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
<1$>

: 3

CZOHF -CO
011530
011536
011540
011544

MACRO V04.00

012777
005004
012705
012767

SEQ 56

27-JUN-85 12:59:01 PAGE 19-32

004000

004520

000004
102000

004606

MOV
CLR
MOV
MOV

#BIT11,8DHSCR
R4
#4 ,RS

;MASTER CLEAR INTERFACE
;FIRST CHARACTER LENGTH CODE (S BITS)
;LINE 4 WILL BE TESTED

#44400+10000y,RDATA

iSET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;EXPECTED DATA

011552

012700

000004

MOV

#4 ,RO

;4CHARACTER LENGTHS

011556

012701

033500

MOV

#33500,R1

;FIRST CHARACTER LENGTH =5 BITS,,

011562
011570
011574
011600
011602

012767
010577
016702
005402
010177

177740
004462
004562

MOV
MOV
MOV
NEG
MOV

#-40,BYTCNT
R5,8DHSCR
BYTCNT,R2
R2
R1,8DHLPR

;40 CHARACTERS AT S BITS
;SELECT LINE 4

004572

1s:

004454

;WILL BE TESTED

;LINE SPEED =9600 BAUD

:SET LINE SPEED AND

;CHARACTER LENGTH

011606

012777

016364

004450

MOV

#TBUF , 3DHBA

;ADDRESS OF TRANSMITTER

011614

016777

004542

004444

MOV

BYTCNT,aDHBC

;400 (OCTAL) BYTES

011622
011630
011634
011636
011642
011646
011650
011654
011654

012777
105777
100375
017703
020367
001407
005077

000020
004422

004440

MOV

#20, 9DHBAR

011656
011660
011666
011672
011674
011676
011702
011704
011706
011712
011714
011716
011720

104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000005
000040

2%:

004416
004512

000020
004466

004456

004450

3s:

;:START TRANSMITTER

g?HSCR

;WAIT FOR DATA TO BE RECEIVED

MOV

@DHNRC ,R3

;GET RECEIVED DATA

SDHBAR

;STOP TRANSMITTER

CLR

004402

;WILL BE TRANSMITTED

gng

ggz

004414

;DATA BUFFER

gi.RDATA

;COMPER EXPECTED AND RECEIVED DATA

HLT
EMT
SCOPEL
MOV

. #20, 8DHBAR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER

DEC
BNE
CLRB

R2
23
RDATA

sINITIALIZE EXPECTED

INC
INC

R1
R4

INCB

ASL

DEC
BNE

2
2

RDATA

;:DATA ERROR

;UPDATA EXPECTED DATA

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

BYTCNT

RO
1s

4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

:SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE S
;LINE SPEED IS 9600 BAUD
sggfiglglgg LENGTH WILL START AT 5 BITS AND BE INCREMENTED
i

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
sAT EACH CHARACTER LENGTH
011720
011720

012767

000340

166050

TS \XN,1,4%,1%
T46:
MOV

#340,PS

:DISABLE ALL INTERRUPTS

CZDHF -CO

MACRO V04.00

011726
011734

012767
012767

000001
012136

004370
004356

011742

012767

012010

004352

011750
011756
011760
011764

000047
012777
005004
012705
012767

004000

004300

000005
102400

004366

OF NB

.ENDC

MOV
MOV
<1$>
MOV

#1,ICOUNT
#4$ ,ESCAPE

:SET UP FOR 1 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

#1$ ,FREEZ:

:SET UP TO LOOP WITH DATA

MOV
CLR
MOV
MOV

#BIT11,8DHSCR
:MASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (S BITS)
#5,.R5
;LINE 5 WILL BE TESTED
#5+400+100000,RDATA

012700

000004

MOV

#4 ,RO

011776

012701

033500

MOV

#33500,R1

012002

012020
012022

012767
010577
016702
005402
010177

177740
004242
004342
004234

MOV
MOV
MOV
NEG
MOV

#-40 ,BYTCNT
RS ,3DHSCR
BYTCNT,R2
R2
R1,3DHLPR

012026

012777

016364

004230

MOV

#TBUF , 3DHBA

012034

016777

004322

004224

MOV

BYTCNT ,8DHBC

012042
012050
012054
012056
012062
012066
012070
012074
012074
012076
012100
012106
012112
012114
012116

012777
105777

000040
004202

004220

MOV

#40,3DHBAR

BPL

012122
012124
012126
012132
012134
012136

012140

100375
017703
020367

001407
005077

104002
104410
012777
105267
005302
001355
105067
005201
005204
006367
005300
001325
104400
000006
000100

004352

1¢:

2%:

004174

004162

3$:

004236

004230

TST8B

MOV

004176
004272

000040
004246

CMP
BEQ
CLR
HLT
EMT
SCOPE1
MOV
INCB
DEC
BNE
CLRB
INC

8DHSCR

SDHNRC ,R3

R3,RDATA
3
8DHBAR
2
2

#40, 8DHBAR
RDATA
R2
2%
RDATA

INC
ASL

R4
BYTCNT

BNE

DEC

iSET CAPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA
;4CHARACTER LENGTHS
;WILL BE TESTED
:FIRST CHARACTER LENGTH =5 BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT 5 BITS
;SELECT LINE S

:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;:DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
:UPDATA EXPECTED DATA

;INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

45:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 6

;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED

XN=XN+1

011772

012010
012014

SEQ 57

27-JUN-85 12:59:01 PAGE 19-33

CZONF -CO

MACRO V04.00

SEQ 58

27-JUN-85 12:59:01 PAGE 19-34

;70 8 BITS
;A _BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH CHARACTER LENGTH

012140
012140
012146
012154

012767
012767
012767

000340
000001
012356

165630
004150
004136

012162

012767

012230

004132

012170
012176
012200
012204

000050
012777
005004
012705
012767

004000

004060

000006
103000

004146

TS \XN,1,.45,1$
T47:
MOV
MOV
MOV
IF NB
<1$>
MOV
.ENDC
XN=XN+1
MoV

CLR
MOV
MOV

#340,PS
#1,ICOUNT
#4$ ,ESCAPE

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

#1$ ,FREEZ1

;SET UP TO LOOP WITH DATA

#BIT11,80DHSCR
sMASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (5 BITS)
#6,R5
;LINE 6 WILL BE TESTED
#6+400+100000,RDATA

012212

012700

000004

#4 ,RO

012216

012701

033500

#33500,R1

012222
012230
012234
012240
012242

012767
010577
016702
005402
010177

004014

012246

012777

016364

004010

012254

016777

004102

004004

012262
012270
012274
012276
012302
012306
012310
012314

012777
105777
100375
017703
020367
001407
005077

000100
003762

004000

012314
012316
012320
012326
012332
012334
012336

104002
104410
012777
105267
005302
001355
105067

012342
012344
012346
012352

005201
005204
006367
005300
001325
104400
000007
000200

012354
012356

177740

004022
004122

004132

1s:

MOV

#-40,BYTCNT
R5,3DHSCR
BYTCNT,R2
R2
R1,8DHLPR

#TBUF
, 3DHBA

MOV

BYTCNT,80HBC
#100,3DHBAR

004016

MOV
75718
BPL
MOV
cMP
BEQ
CLR
HLT
EMT
SCOPEL
MOV
INCB
DEC
BNE
CLRB

004010

INC
INC
ASL

2%:

003756
004052

003754

000100
004026

003742

3%:

DEC

:
BNE
45;
SCOPE
LINE=LINE+1
BITX=BITX+BITX

i 3

SDHSCR
2%
SDHNRC,R3

§3.RDATA
2
2

#100,8DHBAR

RDATA
R2
28
RDATA
R1
R4

BYTCNT
RO
1s

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS
;WILL BE TESTED
;FIRST CHARACTER LENGTH =5 BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT 5 BITS

;SELECT LINE 6

sSET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;sDATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
:UPDATA EXPECTED DATA

s INITIALIZE EXPECTED
sRECEIVED DATA
;UPDATA CHARACTER LENGTH

CZDHF -CO

MACRO V04.00

SEQ 59

27-JUN-85 12:59:01 PAGE 19-35

012360

SDATA3

\LINE,\BITX

:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7
;LINE SPEED IS 9600 BAUD

;ggA:A§I$g LENGTH WILL START AT 5 BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
012360
012360
012366
012374

012767
012767
012767

000340
000001
012576

165410
003730
003716

012402

012767

012450

003712

012410
012416
012420

000051
012777
005004
012705
012767

004000

003640

000007
103400

003726

012424

TS \XN,1,4%,1$
MOV
T150:
MOV
MOV
<1$>
.IF NB

.ENDC

XN=XN+1

#340,PS
#1 ,ICOUNT
#4$ ,ESCAPE

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

MOV

#1$ ,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
CLR
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (S BITS)
#7,RS
;LINE 7 WILL BE TESTED
#7+400+100000,RDATA

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA

012432

012700

000004

MOV

#4 ,RO

;4CHARACTER LENGTHS

012436

012701

033500

MOV

#33500,R1

;FIRST CHARACTER LENGTH =S5 BITS,.

012442
012450
012454
012460
012462

012767
010577
016702
005402
010177

177740
003602
003702

MOV
MOV
MOV
NEG
MOV

#-40 ,BYTCNT

;40 CHARACTERS AT S BITS

012466

012777

016364

003570

012474

016777

003662

012502
012510
012514
012516
012522
012526
012530
012534
012534
012536
012540
012546
012552
012554
012556

012777
105777
100375
017703
020367
001407
005077

000200
003542

104002
104410
012777
105267
005302
001355
105067

012562
012564

005201
005204

003712

1$:

003574

sSELECT LINE 7

;SET LINE SPEED AND

MOV

$TBUF , 8DHBA

;ADDRESS OF TRANSMITTER

003564

MOV

BYTCNT ,3DHBC

;400 (OCTAL) BYTES

003560

MOV
1578
BPL
MoV
CHP
BEQ
CLR
HLT
EMT
SCOPEL
MOV
INCB
DEC
BNE

2200, 8DHBAR
g?HSCR

sWILL BE TRANSMITTED
;START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED

BDHNRC ,R3

;GET RECEIVED DATA

SDHBAR

;STOP TRANSMITTER

2%:

003534

003576

;LINE SPEED =9600 BAUD

R1,8DHLPR

003536
003632

000200
003606

RS ,8DHSCR
g;TCNT.R2

;WILL BE TESTED

003522

3s:

g?.RDITA

;CHARACTER LENGTH
:DATA BUFFER

;COMPER EXPECTED AND RECEIVED DATA

;sDATA ERROR

#200,8DHBAR

;RESTART TRANSMITTER

RDATA
22
$

CLRB

RDATA

INC
INC

R1
R4

;CHECK FOR LOOP AT CURRENT SPEED
;UPDATA EXPECTED DATA
;INITIALIZE EXPECTED

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

CZDHF -CO
012566
012572
012574
012576

012600

MACRO Vv04.00

006367
005300
001325
104400
000010
000400

SEQ 60

27-JUN-85 12:59:01 PAGE 19-36

003570

ASL
DEC

4s:

BNE

SCOPE

BYTCNT
RO
1s

LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

:SINGLE LINE DATA TEST
i TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 10
;LINE SPEED IS 9600 BAUD
:ggflgAgI;g LENGTH WILL START AT 5 BITS AND BE INCREMENTED
:

:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
012500
012600
012606
012614

012767
012767
012767

000340
000001
013016

165170
003510
003476

012622

012767

012670

003472

012630
012636
012640
012644

000052
012777
005004
012705
012767

004000

003420

000010
104000

003506

TS \XN,1,48,1%
T51:
MOV
MOV

IF NB

.ENDC
XN=XN+1

MOV
<l
MOV

MOV

CLR
MOV
MOV

#340,PS
#1,ICOUNT
43 ,ESCAPE

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

#1$ ,FREEZ1

:SET UP TO LOOP WITH DATA

:SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
;EXPECTED DATA

012700

000004

MOV

4 ,RO

+4CHARACTER LENGTHS

012656

012701

033500

MOV

#33500.R1

;FIRST CHARACTER LENGTH =5 BITS.,

012662
012670
012674
012700
012702

012767
010577
016702
005402
010177

177740
003362
003462

¢-40,BYTCNT

:40 CHARACTERS AT S BITS

g;TCNT.RZ

003354

MOV
MOV
MOV
NEG
MOV

012706

012777

016364

003350

012714

016777

003442

003344

012722
012730
012734
012736
012742
012746
012750
012754
012754
012756
012760
012766

012777
105777

000400
003322

003340

100375
017703
020367
001407
005077
104002
104410
012777
105267

1%:

2¢:

003316
003412
003314

000400
003366

003302

3s:

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (5 BITS)
#10,R5
;LINE 10 WILL BE TESTED
#10+400+100000,RDATA

012652

003472

;WILL BE TESTED

;LINE SPEED =9600 BAUD

RS5,8DHSCR

sSELECT LINE 10

R1,8DHLPR

+SET LINE SPEED AND

MOV

#TBUF , 8DHBA

+ADDRESS OF TRANSMITTER

MoV

BYTCNT, 8DHBC

MOV
1S718
BPL
MOV
CMP
BEQ
CLR
HLT
EMT
SCOPE1L
MOV
INCB

9400, 8DHBAR
g?HSCR

SDHNRC ,R3

;CHARACTER LENGTH

:DATA BUFFER
+400 (OCTAL) BYTES
+WILL BE TRANSMITTED
sSTART TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA

gg.RDATA

:COMPER EXPECTED AND RECEIVED DATA

SDHBAR

:STOP TRANSMITTER

#400,3DHBAR
RDATA

sRESTART TRANSMITTER
tUPDATA EXPECTED DATA

:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED

CZDHF -CO
012772

012774
012776
013002
013004
013006
013012
013014
013016

013020

MACRO V04.00

005302
001355

105067

005201
005204
006367
005300
001325
104400
000011
001200

SEQ 61

27-JUN-85 12:59:C1 PAGE 19-37

DEC
BNE
CLRB

003356

INC
INC

003350

ASL

R2
2%
RDATA

R1
R4

s INITIALIZE EXPECTED

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

BYTCNT

DEC
RO
BNE
1
44:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 11
;LINE SPEED IS 9600 BAUD
aggAgthgg LENGTH WILL START AT 5 BITS AND BE INCREMENTED
i

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
013020
013020
013026
013034

012767
012767
012767

000340
000001
013236

164750
003270
003256

013042

012767

013110

003252

013050
013056
013060
013064

000053
012777
005004
012705
012767

004000

003200

000011
104400

003266

TS \XN,1,4%,1$
MOV

152:

.IF NB

.ENDC
XN=XN+1

MOV
MOV

#340,PS
#1,ICOUNT
944 ,ESCAPE

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

MOV

#1$ ,FREEZL

;SET UP TO LOOP WITH DATA

MOV
CLR
MOV
MOV

9BIT11,8DHSCR
sMASTER CLEAR INTERFACE
R4
sFIRST CHARACTER LENGTH CODE (S BITS)
#11,R5
;LINE 11 WILL BE TESTED
#11+400+100000,RDATA

<1$

:SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG

013072

012700

000004

MOV

#4,RO

sEXPECTED DATA
s4CHARACTER LENGTHS

013076

012701

033500

MOV

#33500,R1

;FIRST CHARACTER LENGTH =5 BITS.,

013102
013110
013114
013120
013122

012767
010577
016702
005402
010177

177740
003142
002242

MOV
MOV
MOV

#-40,BYTCNT
RS ,8DHSCR
BYTCNT.R2

013126

012777

016364

013134

016777

013142
013150
013154
013156
013162
013166

012777
105777
100375
017703
020367
001407

003252

18:

NEG
MOV

R2
R1,8DHLPR

003130

MOV

#TBUF
, SDHBA

003222

003124

MoV

BYTCNT ,8DHBC

001000
003102

003120

MOV

#1000, SDHBAR

003134

003076
003172

2%:

;gZB
MOV

cHpP

BEQ

;WILL BE TESTED

sLINE SPEED =9600 BAUD

+40 CHARACTERS AT S BITS
;SELECT LINE 11

:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 C(OCTAL) BYTES
sWILL BE TRANSMITTED
:START TRANSMITTER

gQHSCR

iWAIT FOR DATA TO BE RECEIVED

8DHNRC ,R3

:GET RECEIVED DATA

R3,RDATA
33

:COMPER EXPECTED AND RECEIVED DATA

: 3

CZDHF -CO
013170
013174
013174
013176
013200
01320¢€
013212
013214
013216

013222
013224
013226
013232
013234
013236
013240

MACRO V04.00

005077

104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000012
002000

003074

001000
003146

SEQ 62

27-JUN-85 12:59:01 PAGE 19-38

003062

3s:

003136

CLR
HLT
EMT
SCOPE1
MOV
INCB
DEC
BNE
CLRB

aDHBAR
2
2
#1000, 8DHBAR
RDATA
R2
2%

RDATA

INC
R1
INC
R4
ASL
BYTCNT
RO
DEC
BNE
1
45:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

003130

;STOP TRANSMITTER

;:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
iUPDATA EXPECTED DATA
s INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

:SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12
;LINE SPEED IS 9600 BAUD
:CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;70 8 BITS
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH

000001

013456

164530
003050
003036

013262

012767

013330

003032

013270
013276
013300
013304

000054
012777
005004
012705
012767

004000

002760

000012
105000

003046

000340

TS \XN,1,4%,1%
T53:
MOV
MOV

.IF NB

.ENDC
XN=XN+1

MOV

#340,PS
#1,ICOUNT
4% ,ESCAPE

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

MOV

#1$ ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
CLR
MOV
MOV

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
R4
:FIRST CHARACTER LENGTH CODE (S BITS)
#12,RS
;LINE 12 WILL BE TESTED
#12+400+100000,RDATA

<1$>

013312

012700

000004

MOV

24 ,RO

013316

012701

033500

MOV

#33500,R1

013322
013330
013334
013340
013342

012767
010577
016702
005402
010177

MOV
MOV
MOV
NEG

RS, 8DHSCR
BYTCNT ,R2
R2

013346

012777

016354

002710

MoV

TBUF
, 3DHBA

013354

016777

003002

002704

MOV

BYTCNT, 8DHBC

177740

002722
003022

003032

00714

1s:

MOV

@-40,BYTCNT

R1,8DHLPR

:SET EXPECTED LINE NUMBEQ
:AND VALID DATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS
sWILL BE TESTED
;FIRST CHARACTER LENGTH =S5 BITS..
;LINE SPEED =9600 BAUD
+40 CHARACTERS AT S BITS
+SELECT LINE 12

+SET LINE SPEED AND
;CHARACTER LENGTH
:ADDRESS OF TRANSMITTER
iDATA BUFFER
1400 (OCTAL) BYTES
;WILL BE TRANSMITTED

012767
012767
012767

013240
013240
013246
013254

CZDHF -CO
013362
013370
013374
013376
013402
013406
013410
013414
013414
013416
013420
013426
013432
013434
013436

013442
013444
013446
013452
013454
013456
013460

MACRO V04.00

012777
105777
100375
017703
020367
001407
005077
104002
104410
012777
105267
005302
001355
105067
005201
005204
006367
005300
001325

002000
002662

002700

28:

002656
002752

MOV

;EEB
MOV

002654

002000
002726

SEQ 63

27-JUN-85 12:59:01 PAGE 19-39

gf.RDATA

8DHNRC ,R3

;GET RECEIVED DATA

CLR

8DHBAR

;STOP TRANSMITTER

SCOPEL

3s:

MOV
INCB
DEC

BNE
CLRB

002716

INC
INC

002710

ASL
DEC
BNE

4s:
SCOPE
LINE=LINE+1

10440C
000013
004000

;START TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

gg:

HLT
EMT

002642

#2000, 8DHBAR

ggHSCR

;COMPER EXPECTED AND RECEIVED DATA

2
2

;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED

#2000, 8DHBAR
RDATA
R2

;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

24
RDATA

;INITIALIZE EXPECTED

’

;RECEIVED DATA

R1
R4

;UPDATA CHARACTER LENGTH

BYTCNT
RO
1s

BITX=BITX+BITX
SDATA3

\LINE,\BITX

;SINGLE LINE DATA TEST
;TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 13
;LINE SPEED IS 9600 BAUD
:$3A§AS}$§ LENGTH MWILL START AT S BITS AND BE INCREMENTED
H

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
013460
013460
013466
013474

012767
012767
012767

000340
000001
013676

164310

N02630

TS \XN,1,4%,1¢

154:

002616

i
,

013502

012767

013510
013516
013520
013524

000055
012777
005004
012705
012767

013550

002612

004000

002540

000013

105400

.ENDC
XN=XN+1

MOV
MOV

;DISABLE ALL INTERRUPTS
sSET UP FOR 1 ITERATIONS

#4% ,ESCAPE

sSET UP TO ESCAPE TO NEXT TEST

MOV

#1$ ,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
CLR

#8IT11,8DHSCR
R4

sMASTER CLEAR INTERFACE
sFIRST CHARACTER LENGTH CODE (S BITS)

<1$>

MOV

002626

MOY

@13,RS5

sLINE 13 WILL BE TESTED

#132400+100000,RDATA

:SET EXPECTED LINE NUMBER
1AND VALID DATA FLAG
sEXPECTED DATA

013532

012700

000004

MOV

#4,R0

013536

012701

033500

MOV

#33500,R1

;FIRST CHARACTER LENGTH =S BITS..

013542
013550
013554
013560

012767
010577
016702

177740
002502
002602

MOV
MOV

#-40,BYTCNT
R5,8DHSCR

;40 CHARACTERS AT S BITS
:SELECT LINE 13

005402

002612

1$:

MOV
NEG

BYTCNT,R2
R2

;4CHARACTER LENGTHS

sWILL BE TESTED

:LINE SPEED =9600 BAUD

s 3

CZDHF -CO

MACRO V04.00

013562

010177

002474

013566

012777

016364

013574

016777

013602
013610
013614
013616
013622
013626
013630
013634
013634
013636
013640
013646
013652
013654
013656

012777
105777

013662
013664
013666
013672
013674
013676
013700

100375
017702
020367
001407
005077
104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000014
010000

MOV

R1,8DHLPR

002470

MOV

#TBUF
, 8DHBA

002562

002464

MOV

BYTCNT, 8DHBC

004000
002442

002460

2%:

002436
002532

002434

004000

002506

SEQ 64

27-JUN-85 12:59:01 PAGE 19-40

002422

38:

002476

MOV

TST8
BPL
MOV
CMP
BEQ
CLR
HLT
EMT
SCOPE1
MOV
INCB
DEC
BNE
CLRB

iSET LINE SPEED AND
;CHARACTER LENGTH

;ADDRESS OF TRANSMITTER
iDATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
i START TRANSMITTER
iWAIT FOR DATA TO BE RECEIVED

#4000, 3DHBAR

8DHSCR
28
8DHNRC ,R3
R3,RDATA
3
8DHBAR
2
2

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER

;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER

#4000, 8DHBAR
RDATA

;UPDATA EXPECTED DATA

R2
24
RDATA

s INITIALIZE EXPECTED
;RECEIVED DATA
sUPDATA CHARACTER LENGTH

INC
R1
INC
R4
ASL
BYTCNT
DEC
RO
BNE
1s
43:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

002470

sSINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 14
;LINE SPEED IS 9600 BAUD
;:CHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED
;70 8 BITS
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
013700
013700
013706
013714

012767
012767
012767

000340
000001
014116

164070
002410
002376

013722

012767

013770

002372

013730
013736
013740
013744

000056
012777
005004
012705
012767

004000

002320

000014
106000

002406

013752

012700

000004

TS \XN,1,45,.1%
755:
MOV
MOV
IF NB

MOV

<1$>

#340,PS
€1,ICOUNT
943 ,ESCAPE

:SET UP FOR 1 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

14 ,FREEZ1

+SET UP TO LOOP WITH DATA

#B8IT11,8DHSCR
R4

:MASTER CLEAR INTERFACE
+FIRST CHARACTER LENGTH CODE (S BITS)

#14,R5

:DISABLE ALL INTERRUPTS

;LINE 14 WILL BE TESTED

#4,RO

+SET EXPECTED LINE NUMBER
1AND VALID DATA FLAG
+EXPECTED DATA
+4CHARACTER LENGTHS
iWILL BE TESTED

: 3

CZDHF -CO

MACRO Vv04.00

013756

012701

033500

013762
013770
013774
014000
014002

012767
010577
016702
005402
010177

177740
002262

002254

014006

012777

016364

002250

014014

016777

002342

002244

014022
014030
014034
014036

012777

010000
002222

002240

014042

105777
100375

017703

020367
001407
005077

014046
014050
014054
014054
014056
014060
014066
014072
014074
014076

104002
104410
012777
105267
005302
001355
105067

014102
014104
014106
014112
014114
014116

005201
005204
006367
005300
001325
104400

014120

002372

002362

1¢:

MOV

#33500,R1

MOV
MOV
MOV
NEG
MOV

#-40,BYTCNT
RS ,8DHSCR
BYTCNT,R2
R2
R1,8DHLPR

MOV

#TBUF
, 8DHBA

BYTCNT,8DHBC
#10000, 8DHBAR

2%:

80HSCR
2
SDHNRC ,R3
R3,RDATA
34
8DHB

002216

002312

002214

2
010000
002266

SEQ 65

27-JUN-85 12:59:01 PAGE 19-41

002202

210000, 3DHBAR

3s:

RDATA
R2
24
ROATA

002256

R1
R4

002250

DEC
BNE
4%:
SCOPE
LINE=LINE-1
BITX=BITX+BITX

000015
020000

SDATAS

iFIRST CHARACTER LENGTH =5 BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT S BITS
sSELECT LINE 14

iSET LINE SPEED AND
sCHARACTER LENGTH
;ADDRESS OF TRANSMITTER
iDATA BUFFER
3400 (OCTAL) BYTES
sWILL BE TRANSMITTED
sSTART TRANSMITTER
sWAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
iCOMPER EXPECTED AND RECEIVED DATA

sSTOP TRANSMITTER
:DATA ERROR
sCHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
sUPDATA EXPECTED DATA

s INITIALIZE EXPECTED
+RECEIVED DATA
sUPDATA CHARACTER LENGTH

BYTCNT
RO
13

\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (GCTAL) CHARACTERS ON LINE 15
sLINE SPEED IS 9600 BAUD
sCHARACTER LENGTH MILL START AT S BITS AND BE INCREMENTED
;70 8 BITS
+A BLOCK OF 400 CHARACTERS MWILL BE TRANSMITTED
sAT EACH CHARACTER LENGTH
014120
014120
014126

014134

012767
012767
012767

000340
000001
014336

163650
002170
002156

014142

012767

014210

002152

014150
014156
014160

000057
012777
005004
012705

004000

002100

000015

TS \XN,1.45,14
156:
MOV
MOV

IF NB

.ENDC

XN=XN+1

MOV

+340,PS
€1, ICOUNT
#4$ ,ESCAPE

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

MOV

13 ,FREEZ)

:SET UP TO LOOP WITH DATA

MOV

#BIT11,80HSCR
R4
#15,R5

<1$>

CLR

MOV

sMASTER CLEAR INTERFACE
+FIRST CHARACTER LENGTH CODE (S BITS)
sLINE 15 WILL BE TESTED

C20WF -CO
014164

MACRO V04.00

012767

106400

27-JUN-85 12:59:01 PAGE

002166

MOV

2154400+ 100000,RDATA

014172

012700

000004

MOV

94 ,RO

014176

012701

033500

MOV

014202
014210
014214
014220

177740
002042
002142

014222

012767
010577
016702
005402
010177

002034

MOV
MOV
MOV
NEG
MOV

¢-40,BYTCNT
R5,8DHSCR
BYTCNT ,R2
R2
R1,8DHLPR

014226

012777

016364

002030

MOV

@TBUF
, 8DHBA

014234

016777

002122

002024

MOV

BYTCNT ,8DHBC

014242
014250
014254
014256
014262
014266
014270
014274
014274
014276
014300
014306
014312
014314
014316

012777
105777

020000
002002

002020

MOV

20000, 3DHBAR

017703

001776
002072

BPL

cHp
BEQ
CLR

R3,RDATA
3s
SDHBAR

014322
014324
014326
014332
014334
014336

014340

100375

020367
001407
005077
104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000016
040000

002152

1s:

2%:

MOV

001774

020000
002046

T1ST8

HLT
EMT

001762

3s:

002036

002030
45

SCOPEL
MOV
INCB
DEC
BNE

8DHSCR

SDHNRC ,R3

2
2

€20000, 3DHBAR
RDATA
R2
23

CLRB

RDATA

INC
INC
ASL

R1
R4
BYTCNT

DEC
BNE

SCOPE

SEQ 66

19-42

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
s4CHARACTER LENGTHS
sWILL BE TESTED
;FIRST CHARACTER LENGTH =5 BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT S BITS
;SELECT LINE 15
:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA
sINITIALIZE EXPECTED
;RECEIVED DATA

;UPDATA CHARACTER LENGTH

RO
1s

LINE=LINE+1
BITX=BITX.BITX
SDATA3
\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 16
;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT S5 BITS AND BE INCREMENTED
;70 8 BITS
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
014340
014340
014346
014354

012767
012767
012767

000340
000001
014556

163430
001750
001736

TS \XN,1,45,1$
T157:
MOV
MOV
MOV
<1
IF NB

#340,PS
#1,ICOUNT
43 ,ESCAPE

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

CoumF -0

MACRO v04.00

014362
014370
014376

014400
014404

012767

000060
012777
005004
0127C5
012767

014430

001732

004000

001660

000016
107000

001746

—

MOV

#1$ ,FREEZL

MOV
CLR
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
R4
iFIRST CHARACTER LENGTH CODE (S BITS)
€16,R5
;LINE 16 WILL BE TESTED
#16+400+100000,RDATA

012700

000004

MOV

#4 ,RO

014416

012701

033500

MOV

#33500,R1

014422
014430
014434
014440
014442

012767

177740

MOV

#-40,BYTCNT

001622
001722

001732

1s:

001614

MOV
MOV
NEG
MOV

R5,8DHSCR
BYTCNT ,R2
R2
R1,80HLPR

01444¢

012777

016364

001610

MOV

#TBUF , 3DHBA

014454

016777

001702

001604

MOV

BYTCNT,aDHBC

014462
014470
014474
014476
014502
014506
014510
014514
014514
014516
014520
014526
014532
014534
014536

012777
105777
100375
017703
020367
001407
005077

040000
001562

001600

MOV
TSTB
BPL
MOV
CHP
BEQ
CLR
HLT
EMT
SCOPE1
MOV
INCB
DEC
BNE
CLRB

€40000, 3DHBAR
@DHSCR
2%
SDHNRC,R3
R3,RDATA
3
S0HBAR
2
2

014542
014544
014546
014552
014554
014556

014560

104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000017
100000

28:

001556
001652

001554

040000
001626

001616

001610

001542

;SET UP TO LOOP WITH DATA

XN=XN+1

14412

010577
016702
005402
010177

SEQ 67

27-JUN-85 12:59:01 PAGE 19-43

3s:

40000, 3DHBAR
RDATA
R2
28
RDATA

INC
R1
INC
R4
ASL
BYTCNT
DEC
RO
BNE
is
4s:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

+SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS

;WILL BE TESTED

;FIRST CHARACTER LENGTH =5 BITS,,

;LINE SPEED =9600 BAUD
;40 CHARACTERS AT S BITS
+SELECT LINE 16

;SET LINE SPEED AND

;CHARACTER LENGTH

;ADDRESS OF TRANSMITTER

;:DATA BUFFER

;400 (OCTAL) BYTES

sWILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA
sINITIALIZE EXPECTED

sRECEIVED DATA

;UPDATA CHARACTER LENGTH

;SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 17

;sLINE SPEED IS 9600 BAUD
tgglghglgg LENGTH WILL START AT 5 BITS AND BE INCREMENTED
i

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH

CZONF -CO

012767
012767
012767

000340
000001
014776

163210
00153C
001516

014602

012767

014650

001512

014610
014616
014620
014624

000061
012777
005004
012705
012767

004000

001440

he-

000017

107400

SEQ 68

27-JUN-85 12:59:01 PAGE 19-44

014560
014560
014566
014574

001526

TS \XN,1,43,1$
T60:
MOV
MOV
MOV
JOF NB
<1
MOV
.ENDC
XN=XN+1
MOV
CLR
MOV
MOV

#340,PS
#1 ,ICOUNT
@4 ,ESCAPE

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

#1% ,FREEZ1

;SET UP TO LOOP WITH DATA

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA

012790

000004

MOV

#4,R0

;4CHARACTER LENGTHS

014636

012701

033500

MOV

#33500,R1

iFIRST CHARACTER LENGTH =5 BITS,,

014642
014650
014654
014660
014662

012767
010577
016702
005402
010177

177740
001402
001502

MOV

;40 CHARACTERS AT 5 BITS
sSELECT LINE 17

001374

MOV
NEG
MOV

#-40,BYTCNT
RS,3DHSCR
g;TCNT.RZ

R1,8DHLPR

:SET LINE SPEED AND

014666

012777

016364

001370

MOV

#TBUF , 3DHBA

;ADDRESS OF TRANSMITTER

014674

016777

001462

001364

MOV

BYTCNT, 3DHBC

014702
014710
014714
014716
014722
014726
014730
014734
014734
014736
014740
014746
014752
014754
014756

012777
105777

100000
001342

001360

MOV
TSTB
BPL
MOV
cHp
BEQ

100000, 8DHBAR
ggHSCR

sSTART TRANSMITTER
sWAIT FOR DATA TO BE RECEIVED

SDHNRC ,R3

sGET RECEIVED DATA

SDHBAR

:STOP TRANSMIiTER

£100000, S3DHBAR

;RESTART TRANSMITTER

2%
RDATA

s INITIALIZE EXPECTED

100375
017703
020367
001407
005077
104002
104410
012777
105267
005302
001355
105067
005201
005204
006367
005300
001325
104400
000020
00C000
000000

001512

1$:

2s:

001336
001432
001334

100000
001406

MOV

CLR

001322

3s:

001376

HLT
EMT
SCOPE1
MOV
INCB
DEC
BNE

CLRB

INC
INC
ASL

001370

DEC

BNE
43:
SCOPE
LINE=LINE+1

BITX=BITX+BITX
XDATA=0

#3IT11,8DHSCR
iMASTER CLEAR INTERFACE
F4
iFIRST CHARACTER LENGTH CODE (S BITS)
#17,R5
;LINE 17 WILL BE TESTED
#174400+100000,RDATA

014632

014762
014764
014766
0:i4772
014774
014776

MACRO V04.00

gz.RDATA
g

:gATA

:}
BYTCNT

RO
13

sWILL BE TESTED

;LINE SPEED =9600 BAUD

;CHARACTER LENGTH

;DATA BUFFER
;400 (OCTAL) BYTES
sMILL BE TRANSMITTED

:COMPER EXPECTED AND RECEIVED DATA
;:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED

;UPDATA EXPECTED DATA

;RECEIVED DATA
;UPDATA CHARACTER LENGTH

CZDKF -CO

MACRO V04.00

SEQ 69

27-JUN-85 12:59:01 PAGE 20

2 015000

.EOP

t/BEGIN/

:END OF PASS
s TYPE NAME OF TEST
;UPDATE PASS COUNT

;CHECK FOR EXIT TO ACT-11
;RESTART TEST

000042

3s:

LOGICAL:

; CONTINUE

MOV

PASCNT,LIGHTS

;:DISPLAY PASS COUNT

MOV
BEQ
RESET

a%42,R1
RESTRT

;CHECK FOR AC7-11 OR DDP
;IF NOT, CONTINUE TESTING

NOP
NOP
NOP
RESTRT: JMP
PASARG: WORD
.BYTE
.WORD
.SCOPE

164214
002

JSR

PC,(R1)

BEGIN
1
6,2
PASCNT

i PARAMETERS TO PRINT PASSCOUNT

;CHECK FOR LOOP ON CURRENT TEST

015144
015150
015154
015160
015162
015166
015170
015174

S—

002000

163672

040000

163662

004000

163652

001172
001166

001162

SCOPER: BIT
BNE
1s:
BIT
BNE
BIT
BNE
INC
CMP

001156
001134
001136

2%:

001130

3s:

001114

45
:

BNE

#SW10, 8SKWR
43
#5U14, 3SWR
34
#SW11,8SKR
2%
LPCNT
LPCNT, ICOUNT
3

MOV

(SP) ,RETRN

CLR
CLR

RTI
MoV
RTI
TST
BEQ

LPCNT
ERRFLG

RETRN, (5P)

ERRFLG
1s

032777
001030
032777
001021
032777
001006
005267
026767
001007
005067
005067
011667
000002
016716
000002
005767
001745

;CHECK FOR ITERATION SUPPRESSION
015100
015106
015110
015116
015120
015126
015130
015134
015142

A2UIVIONS
&

013701
001405
000005
004711
000240
000240
000240
000167
000001
006
016312

163734

wuunwn

001246

TYPE PASCOUNT MESSAGE

016767

2%:

s PRINT PASSCOUNT

OCTASC

PASARG

;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG
;UPDATE PASS COUNT
i ARE WE USING LIGHTS?
i BRANCH IF WE ARE

INC
TST
BNE
TYPE
PASTXT

LAST
ERRFLG
PASCNT
LIGHTS
2$

CLR

:TYPE NAME OF TEST

001344
001274
001272
163756

TYPE
MEPASS
CLR

015014
015020
015024
015026
015030
015032
015034
015036
015040
015040
015046
015046
015052
015054
015056
015060
015062
015064
015066
015072
015074
015076
3 015100

EOP:

015010

104401
017347
005067
005067
005267
005767
001005
104401
017362
104402
015072
000403

015000
015002
015004

CZ0HF -CO
015176
4 015200

MACRO V04.00

27-JUN-85 12:59:01 PAGE 20-1

000762

.SCOP1

SEQ 70

:CHECK FOR FREEZE ON CURRENT DATA
015200
015206
015210
015214

032777

001000

016716

001106

001402

000002

163572

SCOP1R:

1s:

BIT

#SW09, aSWR

MOV

FREEZ1,(SP)

BEQ
RTI

;

CZDHF -CO

MACRO V04.00

SEQ 71

27-JUN-85 12:59:01 PAGE 21

1 015216

.ERROR

;ERROR HANDLER
015216
015224
015226
015232
015234
015240
025244
015246

015250
015254

015256
015260
015262
015266
015272
015276
015302
015306
015310
015314
015316
015320
015322
015324
015326
015334
015336
015340
015344
015346
015350
015352
015354
015356
015360
015364
015366
015370
015374
015376
015400
015404
015412
015414
015420
015422
015424
015426

032777
001055
021667
001404
011667
005067
104406
011605

162705
011504

006304
006304
042704
062704
012467
011467
005767
001403
005767
001011
104401
017257
104402
015422
012767
104401
000000
005767
001404
104401
017257
104402
000000
104407
005777
100005
010046
016600
000000
012600
005267
032777
001402
016716
000002
000001
006
016346

020000

163554

001122

001114
001044

000002

ERRORS: BIT
BNE
cMP
BEQ
MOV
CLR
38+
SAVOSP
MOV

SuUB
MOV

177001
017502
000040
000052
001002
000040
TYPMSG:

000001

000754

ERRMSG:
TYPDAT:

000010

DATABP:
RESREG:
HALTS:

163414
000002
000710
002000
000700
002

163366

EXITER:

1s:
ERTABO:

ASL
ASL
BIC
ADD
MOV
MoV
TST
BEQ
TST
BNE
TYPE
MCRLF
OCTASC
ERTABO
MOV
TYPE
0
TST
BEQ
TYPE
MCRLF
OCTASC
0
RESOS5
TST
BPL
PUSHRO
MOV
HALT
POPRO
INC
BIT
BEQ
MOV
RTI
1
.BYTE
SAVPC

#SW13, aSWR
HALTS
(SP),LAST
1$
(SP),LAST
ERRFLG

; 4

(SP),RS

#2,R5
(R5),R4

R4
R4
#177001,R4
#ERRTAB,
R4
(R4)+,ERRMSG
(R4),DATABP
ERRFLG
TYPMSG
DATABP
TYPDAT

;
:
:
:

3
5
5
5

#1 ,ERRFLG
DATABP
RESREG

8SHR
EXITER

: S
: S

: 4

2(SP),RO
ERRCNT
#SW10, 8SWR
13
ESCAPE, (SP)
6,2

: 4

CZDHF -CO

015430

015430
015432
015436
015442
015444
015450
015454
015460
015462

SEQ

MACRO V04.00 27-JUN-85 12:59:01 PAGE 22
.TRPSRV

011646

162716
017616
006316
042716
062716
017616
000136

;TRAP DISPATCH SERVICE
;ARGUMENT OF TRAP IS EXTRACTED
:AND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE

{RPSRV: MOV

000002
000000

TRPOK:

177001
017422
000000

.SAVREG

SuB
MOV
ASL
BIC
ADD
MOV
JMP

(sP),-(sSP)

#2,(SP)
a(sP),(SP)
(SP)
#177001, (SP)
#TRPTAB, (SP)
8(SP),(SP)
8(SP)+

; 3

iGET PC OF RETURN
:=PC OF TRAP
;GET TRP

;MULTIPLY TRAP ARG BY 2
;CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
s SUBROUTINE ADDRESS
;GO TO SUBROUTINE

:SAVE PC OF TEST THAT FAILED AND RO-RS
015462

016667

000504

000656

SVOSP:

MOV

4(SP),SAVPC

:SAVE RO-RS
015470
015474
015500
015504
015510
015514
015520
015522

015522
015526
015532
015536
015542
015546
015552

010567
010467
010367
010267
010167
010067
000002

016700
016701
016702
016703
016704
016705
000002

000646
000640
000632
000624
000616
000610

SV0S:

.RESREG

000602
000600
000576
000574
000572
000570

RSO5:

MOV
MOV
MOV
MOV
MOV
MOV
RTI

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

;RESTORE RO-RS5
MOV
MOV
MOV
MOV
MOV
MOV
RTI

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

; 3

CZ0HF -CO

MACRO V04.00

SEQ 73

27-JUN-85 12:59:01 PAGE 23

1 015554

.TYPER

s TELETYPE OUTPUT ROUTINE
015554
015560
015564
015570
015572
015574
015576
015600
015604
2 015606

017605
062716
105777
100375
105715

001001
000002
112577
000767

000000
000002
000462

TYPER:

000450

2%:

1s:

.INSTRG

MOV
ADD
TSTB
BPL
TSTB
BNE
RTI
MOvB
BR

8(SP),R5
#2,(SP)
@TPCSR
1
(R5)
2%
(R5)+,8TPDBR
1s

;ASCII STRING INPUT ROUTINE
015606
015614
015620
015622
015624
015630
015634
015640
015642
015646
015652
015656
015660
015666
015672
015674
015676
015700
015702
015704
015706

017667
062716
104401
000000
012704
012703
105777
100375
117714
142714
122427
001413

117777

105777
100375
005303
001356
104401
017253
000745
000002

000000
000002

000006

017444
000007
000406

000402
000200
000015

000364

000360

000366

INSTRG:

MOV
ADD
INSTR1: TYPE
MSG:
0
MOV
MOV
1s:
TSTB
BPL
MOVB
BICB
CMPB
BEQ

28:

MOvVB

1578
BPL
DEC
BNE
INSTRE: TYPE
MQM
BR
INSTR2: RTI

a(SP),MSG
#2,(SP)
#INBUF ,R4
#7,R3
8TKCSR
1
8TKDBR, (R4)
€200,(R4)
(R4)+,215
INSTR2

S8TKDBR,8TPDBR

8TPCSR
2%
R3
1s

INSTRL

CZDHF-CO

MACRO V04.00 27-JUN-85 12:59:01 PAGE 24

1 015710

SEG 74

.PARAMS
;CONVERT ASCII STRING TO OCTAL

015710
015712
015716
015722
015726
015732
015736
015740
015742
015746
015752
015754
015760
015762
015766
015770
015774
015776
016002
016004
016006
016010
016012
016014
016016

011605
012567

012567
012567
112567

112567

010516
005005
012704
122714
001420
121427
002415
121427
003012
142714

152405
122714

001406
006305
006305
006305
000760

000146

PARAMS:

000144
000142
000140

000135
017444
000015

000060
000067

000060

MOvVB

MOV
PARAM1: CLR
MOV
CMPB
BEQ
1s:
CMPB
BLT
CMPB
BGT
BICB

BISB
CMPB

000015

104404

MOV
MOV
MOV
MOV
MOVB

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

(R5)+, ADRCNT

RS,(SP)
RS
#INBUF ,R4
#15,(R4)
PARERR
(R4),460
PARERR
(R4),067
PARERR
60, (R4)

BEQ
ASL
ASL
ASL
BR

(R4)+,R5
@15,(R4)
LIMITS
RS
RS
RS
1s

PARAM1

PARERR: INSTER

000750

:TEST TO SEE IF NUMBER IS WITHIN LIMITS
016020

016024
016026
016032
016034

016040

020567
101373
020567
103770
136705

001365

000042
000032
000032

LIMITS: CMP
BHI
CMP
BLO
BITB

BNE

RS5,HILIM
PARERR
RS,LOLIM
PARERR
LOBITS,RS

PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
016042
016046
016050
015054
016060
016062
016064
016066
016070
016072

be-

016704
010524
062705
105367

001372

000002
000000
000000
000000
000000
016073

000022

000002
000013

1%:

MOV
MOV
ADD
DECB

BNE

RTI
LOLIM:
O
HILIM:
O
DEVADR: 0
LOBITS: O
ADRCNT=LOBITS+1

DEVADR R4
RS,(R4).
42,R5
ADRCNT

: 3

CZDHF -CO

MACRO V04.00

01€074

SEQ 75

27-JUN-85 12:59:01 PAGE 25

.0CTASC

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
016074
016100
016104
016110
016114
016120

016124
016130
016134
016140
016142
016146
016152
016154
016156
016160
016162
016164
016166
016172
016174
016200
016202
016206
016210
016214
016220
016222
016224
016226
016230
016234
016236
016240
016242
016244

017601
062716
012167
112167
112167
013167
016704
116705
012700
010403
042703
062703
110320
006204
006204
006204
005305
001365
012703
114023
105367
001374
105767
001405
112723
105367
001373
105013
104401
017470
005367
001325
000002
000000
000000
016243
000000

000000
000002
000130
000126
200123
000120
000114
000106
017456

177770
000260

017470

000042
000035

000240
000023

000004

OCTASN:

1$:

2%:
3$:

4% :

MOV
ADD

MOV

MOVB
MOVB
MOV
MOV
MOVB
MOV
MOV

BIC
ADD
MOVB
ASR
ASR
ASR
DEC
BNE
MOV
MOVB

DECB
BNE
1518
BEQ
Ss:
MOVB
DECB
BNE
6$:
CLRB
TYPE
MDATA
DEC
BNE
RTI
WRDCNT: 0

8(SP),R1
#2,(SP)

(R1)+,WRDCNT
(R1)+,CHRCNT
(R1)+,SPACNT
8(R1)+ ,BINWRD

BINWRD,R4
CHRCNT,RS
#TEMP,RO
R4 ,R3
#177770,R3
#260,R3
R3,(RO)+
R4
R4
R4
RS
33
#MDATA,R3

CHRCNT

SPACNT
6%
#240,(R3).
SPACNT
5

(R3)

WRDCNT
1s

i 3

CZDHF -CO
016246

016246
016250
016252
016254

-POINT

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

177560
177562

TKCSR:
TKDBR:

177560
177562

177566

TPDBR:
.IRP

177566
A

DHSCR:
DHNRC:
DHLPR:
DHBA :
DHBC :
DHBAR:
DHBCR:
DHSSR:
DHSLR:
DHRVEC:
DHRLVL:
DHTVEC:
DHTLVL:

177564

TLVL>

016256
016260
016262
016264
016266
016270
016272
016274
016276
016300
016302
016304
016306
016310

SEQ

MACRO V04.00 27-JUN-85 12:59:01 PAGE 26

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

TPCSR:

.ENDM

.VARIA

;INDIRECT POINTERS

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

+/TDATA,RDATA,BYTCNT/

;PROGRAM VARIABLES

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

ERRFLG:
PASCNT:
ERRCNT:
RETRN:
ESCAPE:
FREEZ1:
ICOUNT:
LPCNT:
SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:
INIFLG:
STFLG:
LAST:

016356
016360
016362

000000
000000
000000

TDATA:
0O
RDATA:
0
BYTCNT: O

.ENDM

, DHTLVL/

177564

016310
016312
016314
016316
016320
016322
016324
016326
016330
016332
016334
016336
016340
016342
016344
016346
016350
016352
016354

iIR”

; 3

;ERROR FLAG
;PASS COUNT
sERROR COUNT
+SCOPE RETURN ADDRESS FOR TEST LOOPING
sADDRESS FOR ERROR ESCAPE
;DATA LOOPING RETURN ADDRESS
sITERATION COUNT FOR TEST IN PROGRESS
sNUMBER OF ITERATIONS THIS TEST
;RO SAVE AREA
;R1 SAVE AREA
;R2 SAVE AREA
iR3 SAVE ARE
sR4 SAVE AREA
;RS SAVE AREA
+STACK POINTER SAVE AREA
sCALLING ROUTINE SAVE AREA
;PROGRAM INITIALIZATION FLAG
;PROGRAM START FLAG
sLAST ERROR PC

<TDATA,RDATA,BYTCNT>

: 3

.DH

CZDHF -CO

MACRO V04.00

000400

016364

016365
016366

016367
016370
016371

016372

016373
016374
016375

016376

016377
016400

016401
016402
016403

016404
016405
016406

016407
016410
016411
016412

016413

016414
016415

000

000001
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
024
000025
025
000026
026
000027
027
000030

030
000031
031

SEQ 77

27-JUN-85 12:59:01 PAGE 27

TBUF:
.REPT
.BYTE
XDATA
.NLIST
XDATA=XDATA+1
LIST
.ENDR
.BYTE
XDATA

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

XDATA=XDATA+1
.BYTE
XDATA

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+»1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

400

CZDHF -CO

016416

016417

016420
016421

016422
016423

016424

016425
016426
016427

016430
016431
016432
016433

016434
016435

016436
016437
016440
016441
016442

016443
016444
016445
016446
016447

016450
016451

MACRO V04.00

27-JUN-85 12:59:01 PAGE 27-1

000032
032
000033

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000034
034
000035

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000036
036
000037

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000040
040
000041
041
000042

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000043

XDATA=XDATA+1

000044
044
000045
045
000046
046

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

047
000050
050
000051

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000052
052
000053

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000054
054
000055

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000056
056
000057

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000060
060
000061
061
000062
062
000063
063
000064
064
000065

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

033

035

037

042

043

000047

051

053

055

057

065
000066

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

XDATA=XDATA+1

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE
XDATA
XDATA=XDATA+1

SEQ 78

C20MF -CO
016452

016453

MACRO v04.00 27-JUN-85 12:59:01 PAGE 27-2
066
000067

067
000070
016454
070
000071
016455
071
000072
016456
072
000073
16457
073
000074
016460
074
000075
016461
075
000076
016462
076
000077
016463
077
000100
016464
100
000101
016465
101
000102
016466
102
000103
016467
103
000104
016470
104
000105
016471
105
000106
016472
106
000107
016473
107
000110
016474
110
000111
016475
111
000112
016476
112
000113
016477
113
000114
0156500
114
000115
016501
115
000116
016502
116
000117
016503
117
000120
015504
120
000121
016505
121
000122
016506
122

.BYTE
XDATA
XDATA=XDATA.1

.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
Y¥DATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA»1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE

XDATA

XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

mad s

CZ0NF

-CO

016507

016510

016511
016512
016513

016514
016515
016516

016517
016520

016521
016522
016523

016524
016525
016526
016527

016530
016531

016532
016533
016534

016535
016536
016537
016540

016541
016542

MACRO Vv04.00

27-JUN-85 12:59:01 PACGE 27-3

000123
123
000124
124
000125
125
000126
126
000127
127
000130
130
000131
131
000132
132
000133
133
000134
134
000135
135
000136
136
000137
137
000140

XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000141
141
000142
142
000143
143
000144

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

140

144
000145
145
000146
146
000147
147
000150
150
000151
151
000152
152
000153
153
000154
154
000152
155
000156
156
000157

.BYTE

XDATA

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDJATA
XDATA=XDrTA+1
.BYTE
DATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

oLW

C20HF -CO

016543
016544

016545
016546

016547
016550
016551
016552

016553
016554
016555

016556
016557

016560
016561
016562

016563
016564

016565
016566

015567
016570

015571

016572

015573
016574
016575
016576

016577

MACRO V04.00
157

27-JUN-85 12:59:01 PAGE 27-4
.BYTE

XDATA

.BYTE

XDATA

000160
160
000161
161
000162
162
000163

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000164
164
000165
165

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

163

000166
166
000157
167
000170
170
000171
171
000172
172
000173
173
000174
174
000175
175
000176
176

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
-.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

177
000200

.BYTE
XDATA
XDATA=XDATA:1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

000177

200
000201
201
600202
202
000203
203
000204
204
000205
205
000206
206
000207
207
000210
210
000211
211
000212
212
000213
213

XDATA=XDATA-1

CZDHF -CO

016600
016601
016602

016603
016604
016605

016606
016607

016610
016611

016612
016613
016614
016615

016616
016617
016620

016621
016622

016623
016624
016625

016626
016627
016630

016631
016632
016633

he-

MACRO v04.00

27-JUN-85 12:59:01 PAGE 27-5

000214
214

XDATA=XDATA+1
.BYTE
XDATA

000215
215
000216
216

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

000217

XDATA=XDATA+1

217
009220
220
000221
221
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
000243
243
000244
244
000245
245
000246
246
000247
247
000250

otW 82

MACRO V04.00 27-JUN-85 12:59:01 PAGE 27-6

CZDHF -CO

016634

016635
016636

016637
016640
016641

016642

016643
016644
016645
016646
0.

547

016650

016051
016652
016653

016654
016655
016656

016657
016660
016661

016662
016663
016664

016665

016666
016667

016670

250
000251
251
000252
252
000253
253
000254
254
000255
255
000256
256
000257

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000260
260
000261
261
000262
262
000263
263
000264
264
000265
265
000266
266
000267
267
000270
270
000271
271
000272
272
000273
273
000274
274
000275
275
000276

XDATA=XDATA+1
.BYTE
XDATA
XCATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

257

276
000277
277
000300
300
000301
301
000302
302
000303
303
000304
304

.BYTE

XDATA

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

LE&UTIT "WV

FIALRU

016671

016672
016673
016674

000305

305
000306
306
000307
307

000310

310
000311
016675
- 311
000312
016676
312
000313
016677
313
000314
016700
314
000315
016701
315
000316
016702
316
000317
016703
317
000320
016704
320
000321
016705
321
000322
016706
322
000323
016707
323
000324
016710
324
000325
016711
325
000326
016712
326
000327
016713
327
000330
016714
330
000331
016715
331
000332
016716
332
000333
016717
333
000334
016720
334
000335
016721
335
000336
016722
336
000337
016723
337
000340
016724
340
000341

VWA

c/~JUN-QJ

L1ciD7:V]l

FRLE

/-1

XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.8YTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA»1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

CZDHF -CO
016725
016726

016727
016730
016731
016732

016733

016734
016735
016736

016737

016740
016741
016742
016743

016744
016745

016746
016747

016750
016751
016752
016753

016754
016755
016756

016757

016760
016761.

MACRO V04.00

341
000342
342
000343
343
000344
344
000345
345
000326
346
000347
347
000350
350
000351
351
000352
352
000353
353
000354
354
200355
355
000356
356
000357
357
000360
360
000361
361
000362
362
000363
363
000364
364
000365
365
000366
366
000367
367
000370
370
000371
371
000372
372
000373
373
000374
374
000375
375

27-JUN-85 12:59:01 PAGE 27-8

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDPATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

SEQ 85

CZDHF-CO

016762
016763

MACRO V04.00

otW 86

27-JUN-85 12:59:01 PAGE 27-9

000376
376
000377
377
000400

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.EVEN
.PFAIL

8 016764

:ENTER HERE ON POWER FAILURE

016764
016766
016770
016772
016774
016776
017000
017004
017010
017016
017020

010046
010146
010246
010346
010446
010546
016746
010667
012767

000000
000777

PFAIL:

161020
177334
017022

161006

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

RS,-(SP)
24,-(SP)
SP,SAVSP
#RESTART ,24

i SAVE RO-R5 ON PROCESSOR STACK

;SAVE STACK POINTER
;SET UP FOR POWER UP TRAP
;HALT ON POWER DOWN NORMAL

s 3

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

015
104
061
111
114
114

105

016764
000340

020164
000370

RESTAR: MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
CLR
INC
BNE
TYPE
MCRLF
OCTASC
PFTAB
TYPE

160754
160720

000364

MPFAIL

177174
177234
177172

PFTAB:

000002

012
110
040
116

105

111
040

012
061

123
107
040
116
104

.MSG
MTITLE:

CLR
CLR
JMP
1

6,2
RETRN

SAVSP,
5P
(SP)+,RS

sRESTORE STACK POINTER
;RESTORE RO-RS

SPFAI
24
L
#340,PS

:SET UP FOR POWER FAILURE

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

#STACK,SP

TEMP
TEMP
.-4

ERRFLG
LAST
SRETRN

t/DH11 SINGLE LINE DATA TEST/,t/CZDHF-CO/
.ASCIZ
€15>¢12><12>/DH11 SINGLE LINE DATA TEST /<15><12>

vun

177316

016706
012605
012604
012603
012602
012601
012600
012767
012767
012706
005067
005267
001375
104401
017257
104402
017124
104401
017262
005067
005067
000177
000001
000006
016316

017022
017026
017030
017032
017034
017036
017040
017042
017050
017056
017062
017066
017072
017074
017076
017100
017102
017104
017106
017110
017114
017120
017124
017126
017132
9 017134
017134
017137
017142
017145
017150
017153
017156

017161
017164
017167

017172

017175
017200
017203
017206
017211
017214
017217
017222
017225
017230
017233
017236
017241
017244
017247

017252
017253
017256
017257
017262
017265
017270
017273
017276
017301
017304
017307
017312
017315
017320
017323
017326
017331
017334
017337
017342
017345

017347

017352
017355
017360
017362
017365

017370
017373
017376
017401
017402

017405
017406
017411
017414

MACRO V04.00

101
040
123

015
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
106
060
015
101
040

125

040
000

015
000
015
105
040

124
124
124
012
012
103
122
104

SEQ 87

27-JUN-85 12:59:01 PAGE 27-10

101
105
040
000
126
124

MVECTO:

.ASCIZ

<15><12>/VECTOR

MREGAD:

.ASCIZ

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

ADDRESS-/

040

122
111
105
101
122
123

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

040

077

MQM:

.ASCIZ

012

000

MCRLF:

.ASCIZ

040
127
040
111
122
040
117
101
122
124
124
124
105
040
040
117
105
000
012
104

120
105
106
114
105
120
107
115
105
101
040
040

MPFAIL
:

.ASCIZ

103
110
103

MEPASS :

.ASCIZ

€15><12>/CZDHF
-CO/

120
123
117

PASTXT:

.ASCIZ

€15>¢12>/PASS COUNT = /

.ASCIZ

<15><12>/R/

.ASCIZ

<15><12>/TEST PC-/

105
055
012
116
117

055

<15><i2»>

POWER FAILURE,

PROGRAM RESTART AT TEST IN PROGRESS/

123

111
120
107
123

000
912
123
103
116
075

124
040

012

122

012

124
124
103

123
120

MTSTPC:

CZDHF -CO

017417

MACRO V04.00

055

SEQ 88

27-JUN-85 12:59:01 PAGE 27-11

000

.EVEN
.EVEN
.TRPTAB

10
11 017422

;TABLE OF POINTERS FOR TRAP DECODING
017422
017424
017426
017430
017432
017434
017436
017440
017442
12 017444

015100
015554
016074
015606
015700
015710
015462
015522
015200

TRPTAB:

.BUFFER

SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS

SvospP
RS05
SCOPIR

:BUFFERS FOR INPUT-OUTPUT
017444

017456
017470

13 017502

000000
017456
000000
017470

INBUF:
.=.+10
TEMP:
.=.+10

000000
017502

MDATA:

.=.+10
.ERRTAB

0
0
0

;TABLE OF POINTERS TO ERROR MESSAGES AND DATA
017502
017502
017504
017506
017510
017512
017514
017516
017521
017524
017527
017532
017535
017540
017543
017546
017551
017554
23 017557
017562
017565
017570
017573
017576
017601
017604

14
15
16
17
18
19
20

he-

017516
017702
017557
017720
017630
017742
104
101
122
122
105
040
040
105
040
040
116
104
101
122
122
105
040
040

105

ERRTAB:

101
040
122
015
130
040
040

103
040
114
105
101
040
122
015
130
040
103

124
105
117
012
120
040
122
040
111
000

124
105
117
012
120
040
122
040

EM1:

EM1
DT1
e
D12
EM3
DT3
.ASCIZ

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

REC

LINE/

EM2:

.ASCIZ

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

REC

SPEED

LINE/

CZDHF -CO
017607
017612
017615
017620
017623
017626
22 017630
017633
017636
017641
017644
017647
017652
017655
017660
017663
017666

017671
017674
017677

23
24 017702
25 017704
26 017706
27 017710
28 017712
017714
30 017716
31 017720
32 017722
33 017724
017726
35 017730
017732
37 017734
38 017736
39 017740
40 017742
41 017744
017746
43 017750
<4 017752
45 017754
46 017756
47 017760
48 017762
49 017764
017764
50

MACRO V04.00

040
040
105
040
114
105
104
101
122
122

105

040
040

105

040
040
116
110
114

105

000003
006
016356
006
016340
002
016336
000004
006
016360
006
016336
002
016334
002
016342
000004
006
016360
006
016336
002
016340
002
016342

000000
000001

040

123
105
040
111
000
101
040
122
015
130
040
040
103
040
114
107

040

111
000

002

SEQ 89

27-JUN-85 12:59:01 PAGE 27-12
040
120
104
040
116

124
105
117
012
120
040
122
040
040
105
124
040
116

EM3:

.EVEN
DT1:

.BYTE

002

.BYTE

000

.BYTE

002

DT2:
.BYTE

002

.BYTE

005

.BYTE

000

.BYTE

002

DT3:
.BYTE

002

.BYTE

006

.BYTE

000

.BYTE

.ASCIZ

3
6,2
TDATA

SAVR4
2.0
SAVR3

RDATA
6,2
SAVR3
2,3
SAVR2
2.0
SAVRS
62

RDATA

6,2
SAVR3
2,6
SAVRS
2,0
SAVRS

.ENDCOD
ENDCOD: 0
.END

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

REC

LENGTH

LINE/

CZDHF -CO

SYMBOL

TABLE

MACRO V04.00

ADRCNT= 016073
BEGIN
001306
BINWRD
016244
BITX
= 000000
BITO0 = 000001
BITO1 = 000002
BITO2 = 000004
BITO3 = 000010
BIT04 = 000020

EOP
ERRCNT
ERRFLG
ERRMSG
ERRORS
ERRTAB
ERTABO
ESCAPE
EXITER

015000
016314
016310
015336
015216
017502
015422
016320
015400
FREEZ1
016322
HALTS
015360
HILIM
016066
ICOUNT
016324
INBUF
017444
016350
INIFLG
INSTER= 104404
INSTR = 104403
INSTRE
015700
015606
INSTRG
015620
INSTR1
INSTR2
015706
LAST
016354
001002
LIGHTS
LIMITS
016020
LINE
= 000020
0156072
LOBITS
LOGICA
015056
LOLIM
016064
LPCNT
016326
MCRLF
017257
MDATA
017470
MEPASS
017347
MPFAIL
017262
017253
MQM
MR
017402
MREGAD
017217
MSG
015622
MTITLE
017134
MTSTPC
017406
017175
MVECTO
N
= 60000
1
OCTASC= 104402
OCTASN
016074

BITOS = 000040
BIT06 = 000100
BITO7 = 000200

BITO8 = 000400

BIT09 = 001000
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BYTCNT
016362
CHRCNT
016242
DATABP
015354
DEVADR
016070
DHBA
016264
DHBAR
016270
DHBC
016266
DHBCR
016272
DHLPR
016262
DHNRC
016260
DHRLVL
016302
DHRVEC
016300
DHSCR
016256
DHSLR
016276
DHESR
016274
DHTLVL
016306
DHTVEC
016304
DT1
017702
D12
017720
DT3
017742
EM1
017516
EM2
017557
EM3
017630
ENDCOD
017764

017766
000000
ERRORS DETECTED:

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

. ABS.

PARAM =
PARAMS
PARAM1
PARERR
PASARG
PASCNT
PASTXT
PFAIL
PFTAB
POPRO =
POP1SP=
POP2SP=
PS
=
PUSHRO=
PUSH1S=
PUSH2S=
RDATA
RESREG
RESTAR

RESTRT
RESOS =
RETRN
RS05
SAVPC
SAVRO
SAVR1
SAVR2
SAVR3
SAVR4
SAVRS
SAVSP
SAVOSP=

005726
022626
1.7776
01v046
005746
024646
016360
015356
017022
015066
104407
016316
015522
016346
016330
016332
016334
016336
016340
016342
016344
104406
104400
015100
104410

SCOPE =
SCOPER
SCOPE1=
SCOP1R 015200
SPACNT= 016243
STACK = 020164
001004
START
STFLG
016352
SVO5
015470
015462
SvVosP
SHWR
001000

000
001

VIRTUAL MEMORY USED:
19200 WORDS
( 7S PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES

104405
015710
015740
016014
015072
016312
017362
016764
017124
012600

CZDHFC.BIN,CZDHFC.SEQ=CZDHFC.DOC,DHMACA.MAC,CZDHFC
P11

SWoo
SWO1
SWo2
SWo3
SWo4
SWO5
SW06
SW08
SWo9
SW10
SWi1
SWi2
SW13
SW14
SW15
TBUF
TDATA
TEMP
TKCSR
TKDBR
TPCSR
TPDBR
TRPOK
TRPSRV
TRPTAB
TYPDAT
TYPE
=

TYPER
TYPMSG
T1
T10
Ti1
Ti2
T13
T14
T15
T16
T17
12
120
T21
122
T23

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

100000
016364
016356
017456
016246
016250
016252
016254

0175442
015430
(017422
0153540
104401
015554
015316
001400
002656
003020
003162
003324
003466

003630
003772
004134
001542
004276
004440
004636
005034

724
125
726
127
T3
730
731
T32
733
T34
T35
1736
137
T4
T40
T41
T42
743
T44
T45
T46
147
15
750

751
152
153
754
55
756
157
16
760
17
VEC1
VEC2
:ROCNT

XBIT
XDATA
XLINE
XN
Y

005232
005430
005626
006024
001704
006222
006420
006616
007014
007212
007410
007606
010004
002046
010202
010400
010620
011040
011260
011500
011720
012140
002210

012360
012600
013020
013240
013460
013700
014120
014340
002352
014560
002514
001164
001174
016240
000000
000001
000400
000000
000061
000011