Digital PDFs

AH-FG23D-MC

October 1985

72 pages

Original

3.4MB

view download

OCR Version

3.2MB

view download

Document:	CZDHDD0 DH11 DH11 SPD SEL LOG TEST OCT 1985 bw
Order Number:	AH-FG23D-MC
Revision:	000
Pages:	72
Original Filename:	CZDHDD0__DH11__DH11_SPD_SEL_LOG_TEST__AH-FG23D-MC__OCT_1985_bw.pdf

OCR Text

Tor oct1ees

EOEANGN

MADE iN USA

82w

& L XBk &80t
d Ol (W4 Ol W v N 9o po
N Nawn [ X <277
JOF. V] Swirv POV
NONEUWN G

s 4ot 4o po gt o oo o

COONOVBUNHOOB®
IO N WA

Q2040 -00

MACRO VO4.00

27-JUN-85 12:54:12 PAGE

.REM

SEQ

IDENTIFICATION
PRODUCT CODE:

AC-8456D-MC

PRODUCT NAME:

CZDHDDO DH11 SPD SEL LOG TST

OATE:

12-JUNE-1985

MAINTAINER:

NAC SOFTWARE ENGINEERING

AUTHOR :

MICHAEL DAVIS

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUTY

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

DOCUMENT .

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
SOFTWARE
ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS
AFFILIATED

COMPANIES

MAYNARD, MASSACHUSETTS.

C2DHD -00
1
e
3

MACRO v04.00

THAT

¢
é
8
9

THE

SPEED SELECTION LOGIC
SPEED

TEST

SELECTION FUNCTIONS

VERIFIES

OF THE LINE PARAMETER REGISTER OPERATE PROPERLY
FOR EACH TRANSMITTER ANO RECEIVER LINE.
TRANSMITTER
TIMING IS CHECKED FIRST, AND THEN RECEIVER TIMING IS
TESTED.
THE PROGRAM USES A RELATIVE TIMING COMPARISION

TO DETERMINE IF

ABSTRACT
THE OH11

13
14

SEQ 2

27-JUN-85 12:54:12 PAGE 2

NOTE:

THE EXTERNAL

LINE

SPEED SELECTION IS CORRECT.

CLOCK FUNCTIONS (SPEED CODES 16 AND 17)

ARE NOT TESTED.

27-JUN-85 12:54:12 PAGE 3

REQUIREMENTS

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

STORAGE

2.2

THE PROGRAM LOADS INTO 4KW OF MEMORY

LJOADING PROCEDURE
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 (INITIAL PROGRAM START)

ALL CONSOLE SWITCHES DOWN
4.1.2

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART

SW00=1
4.1.3

TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART

SWO1=1
4.2

STARTING ADDRESS

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

s
s
b e
boo et

N B W

INITIAL PROGRAM START

PROGRAM AND/OR OPERATOR ACTION

THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200

NWWWW

MACRO VO4.00

LLbhd

VAVNUVND

DALl DaRNWWWWOWWNWWAONRD

N RN+ 0t gt ot ot pos et et [
P

N-OVRITVNLWN - COBIANE LN e

CZDHD -DO

LOAD PROGRAM INTO MEMORY
LOAD ADDRESS 000200
CLEAR CONSOLE SWITCHES
PRESS START
THE PROGRAM WILL TYPE “DH11 SPEED SEIECTION LOGIC TEST*
AND WILL THEN TYPE "VECTOR ADDRESSAPO VATT FOR AN
INPUT FROM THE TELETYPE KEYBOARD.

SEQ 3

27-JUN-85 12:54:12 PAGE 4

4.3 (CONT'D)
4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
FOR THE DH11 TO BE TESTED FOLLOWED BY <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 “?* 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

OH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

[FYNERN
o
o
W
NN

PROGRAM RESTART WITH ALL SWITCHES DOWN

PERFORM 4.3.1.2 TO 4.3.1.5
THE PROGRAM WILL TYPE “DH11 SPEED SELECTION LOGIC TEST*
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9

PROGRAM RESTART WITH SWOO0=1

PROGRAM RESTART WITH SWO01=1

WKW

LOAD ADDRESS 000200
SET SWOis=1
PRESS START
THE PROGRAM WILL TYPE *DHi1 SPEED SELECTION LOGIC TEST*
AND WILL THEN TYPE “TEST PC-* AND WILL WAIT FOR AN INPUT

L X7 1 Y o

LR ¥ ¥

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

bbb

NWWWN

BN
r

PSS
o

bpbdH

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

FROM THE TELETYPE KEYBOARD

»
w

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

MACRO V04.00

OO NOAWVEWN
-

CZDHD-DO

NOTE:

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

NOTE:

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

SEQ 4

VAN

NL LDl

SEQ S

27-JUN-85 12:54:12 PAGE 5

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS

SW15=1, HALT ON ERROR
SWi4=1, LOOP ON CURRENT TEST
SW13=1, SUPPRESS ERROR TYPEOUT
SWil=1, INHIBIT ITERATIONS
SW10=1, ESCAPE TO NEXT TEST ON ERROR
SW09=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST
SWO1l=1, START PROGRAM AT SELECTED TEST
SW00=1, CHANGE PARAMETERS AT PROGRAM RESTART
5.2

SUBROUTINE ABSTRACTS

5.2.1

TRAPCATCHER (LOCATIONS 000000-000776)

THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS
AND TRAPS.
THE AREA FROM 000000-000776 IS LOADED
WITH THE FOLLOWING SEQUENCE
OPLOMN

MACRO VO4.00

WOWWWMHKNKWLDNLDA

P04t =

b P Pt b et Pt

OCQOMOGN“OOO\IOMDMNP

CZDHD -DO

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

START

(PROGRAM INITIALIZATION)

THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS,
TYPES The PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR
AND CONTROL REGISTER ADDRESSES OF THE DH11 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 SWOi=1 WHEN
THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC
ENTERED FROM THE TELETYPE KEYBOARD.

MACRO v 4.00

SEQ 6

27-JUN-85 12:54:12 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 ODP MONITOR.
IF THE PROGRAM IS NOT UNDER
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN.

5.2.5

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=i, THE ROUTINE WILL TRANSFER TO (HE NEXT TEST
SEQUENCE, AFTER CLEARING ERROR FLAGS.

C) IF SWi4=1,

0 o 1o 4ot et Pt 1o ot ot g

OOONOM&NNHOOO\IOMOUNH

C20#D-00

THE ROUTINE WILL LOOP ON THE CURRENT TEST

BN NNRUNENEENGN
NN N

REGARDLESS OF THE ITERATION COUNT.

IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1
TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED.
IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER
TO THE NEXT TEST IN SEQUENCE.
THE THE NUMBERS ARE NOT
EQUAL, 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 ALWAYS ENTERED XN
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 NCVER ENTERED
AND ITERATION COUNTS WILL NOT BE UPDATED.

——

MACRO VO4.00

5.2.7

ERRORS

(ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLCWS:
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER

IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION
ITSELF IS FETCHED.
THE 8 LSB OF THE EMT
INSTRUCTION ARE THE ERROR CODE.
THIS CODE IS
USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR
DATA STORAGE LOCATIONS.
B) IF TrE TEST THAT FAILED DID NOT FAIL PREVIQUSLY
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.
1IF SWi3=1, NO ERROR TYPEOUT IS MADE.
© THE ROUTINE NOW CHECKS FOR HALT ON ERROR.
IF SW1S=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”.

iR ORI DN
WOV
JOVMEWN -

SEQ 7

27-JUN-85 12:54:12 PAGE 7

0 1= s 4t 3ot 4ot ot Pt Juo P

OOO\IOUOGNO‘OQD\IOM.MNH

CZDHD-00

5.2.8

TRPSRV

(TRAP DECGDE 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.

[&N

1=4 -1 ENT. YV ¥ WY VYW

CZ0HD-DO

SEQ 8

27-JUN-85 12:54:12 PAGE 8

PROGRAM AND OR OPERATOR ACTION

PROGRAM START WITH ALL SWITCHES DOWN

REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM
BEHAVIOR.
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.
WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM
WILL TYPE "CZDHD-D* AND THEN RESTART TESTING AT TEST 1
(LOCATION T1 IN THE PROGRAM).

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

wuwm
VINADLLLELlDRDUHWWNWWWERWEHENLOVLDLDDN
(V. X_X7]

2 4o 0 1 ot bt Pt s

NrOVWENOANBUWUNFOVRIRAADRUN
OO ~IONDWN [-2-1.
RNY. YT
1YY

MACRO V04.00

PROGRAM START WITH SWOO=1

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

REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR

TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2
AFTER “CZDHD-D” HAS BEEN TYPED,
RESUME TESTING AT TEST 1

THE PROGRAM WILL

PROGRAM OPERATION WITH SWiSs1
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

OISPLAYED IN RO.

PROGRAM OPERATION WITH SWi3s1

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR
PROGRAM OPERATION WITH SWii=1

SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE
ONLY
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.

Gl N PO R =0 o 1mb b o 1ot ot ot et i
NOWMBLINFOOVDP
IS WL n

HOOONO“&“NPOOO\IOM&@NM

CZ0HD-DO

MACRO V04.00

SEQ 9

27-JUN-85 12:54:12 PAGE 9

(CONT'D)
5.3.8

PROGRAM OPERATION W1TH SWi4=1,

OR SWO09=1

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

ERRORS
ERROR HALTS
THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS
IS AS FOLLOWS
PC+2

MESSAGE
HEADER (IF APPLICABLE)

DATA

(IF APPLICABLE)

WHERE
PC+2 IS THE ADDRESS OF THE CALL TQ THE ERROR HANDLER + 2
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW

DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE
IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME

PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR,
DATA IS TYPE ON SUCCEEDING ERROR TYPEQOUTS

ONLY

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
gsggIgED TO CONTINUE TESTING
IF THE PROGRAM IS RUN WITH SW15=1, TO CONTINUE TESTING
AFTER THE PROGRAM MAS 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 PROGRATM MUST BE
RESTARTED AT 200 TO RECOVER FROM THIS ERROR.

N 2 4t o 4t ot ot 4ot b o i

OOO\IOU.GNPOOO\IOM.U‘NM

CZDHD -00

MACRO V04.00

SEQ 10

27-UUN-85 12:54:12 PAGE 10

€ .3
6 .3.1

SCOPE LOOPING

TO SCOPE ON A SPECIFIC TEST,

SAME TEST,
.3.2

SET SWi4=1 AND SW13st

THIS WILL CAUSE THE PROGRAM TO CONTINUOQUSLY LOOP ON THE

AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INMIBITED

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

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE)

(CONT'
D)
.3.3

PROGRAM START TO SCOPE LOOP ON SELECTED TEST

PERFORM SECTION 4.3.4 WITH SWi4=1

RESTRICTIONS
STARTING

LN Y TY XY FY Y

NONE

THE DH11 TEST CARD MUST BE INSTALLED

EXECUTION TIME

RUNNING

THE TIME FOR ONE PASS OF THE PROGRAM (END OF
TYPEQUT OF CZDHO-0 TO END OF TYPEOUT OF CZDHD-D)
IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW

ettt

MISCELLANEOUS

PROCESSOR

POP-11/05,10

PDP-11/20
POP-11/40

POP-11/45

TIME

LDLLEBUHGEHNWNEEEEKUDLNONDDDDR

=0 1t bt ot b (ot Pt b oo P
UONNPOOOQOM&MNHOOOQOUOU:),P' AOOO\IOU&MNMOOO\IOM&MND‘

CZ0HD-DC

MACRO VO4.00

SEQ 11

27 JUM 85 12:54:12 PAGE 11

PROGRAM DESCRIPTION

TRANSHITTER LINE SPEED SELECTION IS TESTED ON A LINE BY
LINE BASIS USING A RELATIVE TIMING TECHNIQUE TO DETERMINE

IF SPEED SELECTION FOR A SELECTED LINE IS CORRECT.

THE TEST PROCEEDS AS FOLLOWS:
A SPEED OF 50 BAUD IS SET FOR A SELECTED LINE, AND
A COUNT IS RECORDED FROM THE TIME THAT THE BAR BIT IS
SET FOR THAT LINE TO THE TIME THAT TRANSMITTER DONE IS SET.
THREE CHARACTERS ARE TRANSMITTED.
AT THE SAME
TIME,

A TIMEOUT COUNTER IS STARTED.

IF THE TIMEOUT

COUNTER DECREMENTS TO O BEFORE TRANSMITTER OONE IS
RECEIVED, AN ERROR MESSAGE IS REPORTED.
IF THE TIMEOQUT
DOES NOT OCCUR, THE TIME COUNT IS STORED, AND THE
NEXT LINE SPEED IS SELECTED.
TRANSMISSION IS RESTARTED
AND THE TIME COUNT, AND TIMEQUT ARE RESTARTED.
WHEN TRANSMITTER DONE IS RECEIVED, THE TIME COUNTS
FOR THE CURRENT SPEED AND THE PREVIQUS SPEED ARE
COMPARED,
IF THE TIME COUNT FOR THE CURRENT SPEED IS
GREATER THAN OR EQUAL TO THE COUNT FOR THE PREVIOUS
SPEED, A TIMING ERROR HAS OCCURED, SINCE A HIGHER
SELECTED BAUD RATE SHOULD MEAN THAT THE NUMBER
OF COUNTS RECORDED IS LESS THAN AT A LOWER
g(A)DuE,SRATEé THIS PROCEDURE IS REPEATED FOR ALL SPEED
1-15.

THE NEXT GROUP OF TESTS VERIFIES THAT RECEIVER
SPEED SELECTION IS CORRECY, 8Y USING A RELATIVE TIMING
COMPARISION AS DESCRIBED ABOVE.
A CHARACTER IS TRANSMITTED
AS ABOVE AND THE TIME FROM THE START OF TRANSMISSION
TO0 THE TIME THAT CHARACTER AVAILABLE IS RECEIVED
IS RECORDED.
ALSO, THE TIMEOUT COUNT IS DECREMENTED.
IF THE TIMEOUT COUNTER DECREMENTS TO O BEFORE CHARACTER
AVAILABLE OCCURS, AN ERROR HAS OCCURED.
THE PROCEDURE IS REPEATED AT THE NEXT HIGHEST BAUD RATE
AND A COMPARISION IS MADE AS IN THE TRANSMITTER TESTS

IF THE TIME COUNT AT THE PRESENT BAUD RATE IS GREATER THAN
OR EQUA. TO THE PREVIOUS BAUD RATE, AN ERROR HAS OCCURED,
10,

LISTING
1
b

NOWVS
WA -

CZ0M0-00

104
119
131
146
158
167
303
339
373
320
563
393
607
632
664
691
712
743

T44
745
746

747
748

TRAPS, #
749
750
CLEAN END OF PASS
MESSAGE.
751
752
758
TCH REGISTER”
754

MACRO V04.00

SEQ 12

27-JUN-85 12:54:12 PAGE 12

; DHMAC-A - DH1l MACRO LIBRARY
; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01°S4
LIST
NLIST

MC,MD,CND

CMS REPLACEMENT HISTORY

1 9 SKONETSKI 26-APR-1985 16:23:08 “FIXED TYPO CAUSING ASSEMBLY ERRORS*
1 #8 SKONETSKI 22-APR-1985 16:48:03 "TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED*

7 SKONETSKI 22-APR-1985 16:26:04

~"ADOED CODE TO SET VECTORS FOR PWR FAIL,

ERRORS,

AND EMT

i %6 SKONETSKI 22-APR-1985 14.22:35 "FIXED BRANCH ERROR IN END OF PASS ROUTINE*
i &5 SKONETSKI 22-APR-1956C 08:28:54 "FIXED BUG (AN OCTASC MACRO CALL WAS WRONG) AND ADDED A

i o4 SKONETSKI 18-APR-1985 14:20:15 “ADOED SOFTWARE SWITCH REG SUPPORT, PUT UNTESTED*
t ¢3 SKONETSKI 12-APR-1985 10:34:52 “FIXED PROBLEMS WITH SPURIOUS CR/LFS*
i #2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI
+ #1 SKONETSKI 11-APR-1985 15:49:05 “LIBRARY FOR DH11 DIAGNOSTICS”

MACRO VO4.00

Awn

CZ0HD DO

SEQ 13

27-JUN-8Y 12:54:12 PIGE 13

LIST

LNLIST
nC.M0,CND
-MEADER t/1976,1985/,t/DH11 SPEED SELECTION LOGIC TEST/, t/CZOMD-D0/

sSTARTING PROCEDURE
sLOAD PROGRAM
;sLOAD ADDRESS 000200
sPRESS START
sPROGRAM WILL TYPE DH11 SPEED SELECTION LOGIC TEST
sPROGRAM WILL TYPE *VECTOR ADDRESS-*
sTYPE IN THE ADORESS OF THE RECEIVER INTERRUPT VECTOR
sFOR THE DH11 TO BE TESTED, FOLLOMED BY <CARRIAGE RETURN>
+PROGRAM WILL TYPE ~CONTROL REGISTER ADDRESS-”
sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL RtGISTER
sFOR THE DH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
sPROGRAM WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED
sAT THE END OF A PASS, PROGRAM WILL TYPE * CZDHD-DO *
sAND THEN RESUM TESTING

: 3

.TITLE
CZDHD-DO
.ENABLE ABS
.NLIST
MC,MD,CND
LIST
ME
.SYMBOLS

000000
6 000000

sSWITCH REGISTER OPTIONS
100000
040000
020000

010000

002000
001000
000400
000100
000040
000020
000010
000004
000002
000001

SW15=100000
SW14+40000
SW13=20000
SW12+=10000
SH11=4000
SH10=2000
S$409=1000
SW08=400
5W06=100
SW05-40
SH04=20
SWO3=10
SWo2=4
ShOli=2
SWON=1

1=1,HALT ON ERROR
1=1,L00P ON CURRENT TEST
1*1,INHIBIT ERROR TYPEOUT

1=1,INHIBIT ITERATIONS

1=1,ESCAPE TO NEXT TEST ON ERROR
3=1,L00P WITH CURRENT DATA

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

i 3

CZOHD DO

MACRO VO4.00

27-JUN-85 12:54:12 PAGE

SEQ 14

tREGISTER DEFINITIONS

RO=%0
Rlex]l
R2=%2
R3=u3
R4 =54
RS5=u5
SP=%6
PC=%?7

1771776

015120

sSWR=177570
sLIGHTS=177570

sCONSOLE SWITCH REGISTER

1POP-11/45 DISPLAY REGISTER
;PROCESSOR STATUS WORD
STACK=ENDCOD
+200
:START OF PROCESSOR STACK

PS=177776

s INSTRUCTION DEF INITIONS

005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726
PUSHRO=10046
POPRO=12600
PUSH2S5P=24646
POP25P «22626

+DECREMENTY PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACX 1 WORD
;SAVE RO ON STACK
;RESTORE RO FROM STACK
;DECREMENT STACK TWICE
1 INCREMENT STACK TWICE

MACRO

$A
$A

LENDM

1 000000

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

iLOCATION EQUIVALENCIES

$GENERAL REGISTER
$1GENERAL REGISTER
tGENERAL REGISTER
1GENERAL REGISTER
1GENERAL REGISTER
1GENERAL REGISTER
sPROCESSOR STACK POINTER
sPROGRAM COUNTER

WLY
EmMY
MLT

81715100000
8171440000
81713=20000
8I712=10000
BIT11-4000
8I710=2000
£I109=1000
8IT08=400
8IT07=200
BIT06=100
BIT05=40
B8IT04=20
B8IT03=10
BIT02=4
BITO1=2
BIT00=1
.CATCH

000000
000001
000002
000003
000004
000005
000006
000007

CZOMD -DO

MACRO VO4.00

0
000000
000200

000000

000002
000000
000006
000000
000012
000000
000016
000000
000022
000000

000000
000032
000000
000036
000000
000042
000046
000000
000052
000000
000056
000000
000062
000000

000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
000136
000000
000142
000000
000146

SEQ 1S

27-JUN-85 12:54:12 PAGE 15

1 TRAPCATCAER FOR 1) LEGAL INTERRUPTS

.=0
.REPT 200
.2
HALT
.ENDR

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

sEXAMINE STACK 10 FIND CAUSE

sUNEXPECTED TRAP TO THMIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION
iEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
+EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

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

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

sUNEXPECTED TRAP TO THIS LQCATION

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

CZDHD-DO

MACRO VO4.00

000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210

000000
000152
000000
000156
000000
000162
000000
000166
000000
000172
000000
000176
000000
000202
000000
000206
000000
000212

000214
000216
000220
000222
0C0224

000216
000000
000222
000000
000226

000212

000226

000000

HALT

000000

HALT

000240
000242
000244

000242
000000
000246

000250

000252

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK 70 FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
:UNEXPECTED TRAP TO THIS LOCATION

HALT

000236

000246

.v2
HALT
.2
HALT
.+2

000000

000234

000236

1tEXAMINE STACK TO FIND CAUSE
$UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOC/TION
;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

HALT

000232

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

000000

000230

.+2

.e2
HALT
.+2

000000

HALT

000000

HALT

.+2

000254
000256
000260

000256
000000
000262

.+2
HALT
.2

000264
000266
000270

000266
000000
000272

.2
HALTY
.*2

000274

000276

000300

000302

000304

000306

000262

000272
000276

000302

000306

000310
000312
000314
00C316
000320
000322
000324
000326

000000

SEQ 16

27-JUN-85 12:54:12 PAGE 15-1

sEXAMINE STACK TO FIND CAUSE

:EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TG FIND CAUSE

:{UNEXPECTED TRAP TO THIS LOCATIDN

;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

sUNEXPECTED TRAP TO THIS LOCATION

IEXAMINE STACK TO FIND CAUSE

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

HALT

sEXAMINE STACK TO FIND CAUSE

HALT

sEXAMINE STACK TO FIND CAUSE

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

000000

HALY

sEXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAHMINE STACK TO FIND CAUSE

000000

HALTY

;EXAMINE STACK TO FIND CAUSE

000312
000000
000316
000000
000322
000000
000326
000000

.+2

.42

.42
hALT
.42
HALT
.+2
HALT
.2
HALT

JUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

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

CZ0HD - DO
000330
000332
000334
000336
000340
000342

MACRO VO4.00

SEQ 17

27-JUN-85 12:54:12 PAGE 15 2

000332
000000
000336
000000
000342
000000

+2
HALT
.2
HALT
. *2
HALT

000346
000350
000352
000354
000356
000360
000362
000364
000366
000370
000372
000374
000376
000400
000402
000404
0C0406
000410
000412
000414
000416
000420
000422
000424
000426
000430
000432
000434
000436
000440
000442
000444
000446
000450
000452
000454
000456
000460
000462
000464
000466
000470

000000
000352
000000
000356
000000
000362
000000
000366
000000
000372
000000
000376
000000
000402
000000
000406
000000
000412
000000
000416
000000
000422
000000
000426
000000
000432
000000
000436
000000
000442
000000
000446
000000
000452
000000
000456
000000
000462
000000
000466
000000
000472

HALT
.2
HALT
. e2
HALY
.2
HALT
.2
HALT
.e2
HALY
.+2
HALT
.2
HALT
.02
HALT
.+2
HALT
.+2
HALT
.e2
HALT
.+2
HALY
.+2
HALT
.e2
HALT
.e2
HALT
.*2
HALT
.42
HALT
.*2
HALY
.e2
HALT
.+2
HALT
.2

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK T0 FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK 7O FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK 7O FIND CAUSE
iUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
+EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
+EXAMINE STACK TU FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TC THIS LOCATION
sEXAMINE STACK T0 FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TC FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

000474
000476
000500
000502
000504

000476
000000
000502
000000
000506

.42
HALT
.42
HALT
.+2

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP fO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAD TO THIS LOCATION

000344

000472

000506
000510

000346

000000

000000
000512

.+2

HALTY

HALTY
Y-

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

sEXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

CZ0HD-DO
000512
000514
000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542
000544
000546
000550
000552
000554
000556
000560
000562
000564
000566
0C0570
000572
000574
000576
000600
000602
000604

MACRO VO4.00
000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546
000000
000552
000000
000556
000000
000562
000000
000566
000000
000572
000000
000576
000000
000602
000000
000606

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

{EXAMINE STACK TO FIND CAUSE
iUNEXPECTED TRAP TO THIS LOCATION
iEXAMINE STACK TO FIND CAUSE
:UNEXPECTED TRAP TO THIS LOCATION
iEXAMINE 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
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE S/ACK TO FIND CAUSE
sUNEXPECTED TRAP TQ THIS LOCATION
;EXAMINE STACK 7O 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
;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
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TQ THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE

000606

000000

000612

000000

HALT

000000

HALT

000000
000626
000000

HALT
.+2
HALT

000000

HALT

000610

000612

000614

000616

000620

000622

000616

000622
000624
000626
000630
000632
000634
000636

000632

000640
000642
000644

000636
000000
000642
000000
000646

000650
000652
000654
000656
000660
000662
000664
000666

000652
000000
000656
000000
000662
000000
000666
000000

000646

000670
000672

SEQ 18

27-JUN-85 12:54:12 PAGE 15-3

.v2
.2

tUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

.+2

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;EXAMINE STACK TO FIND CAUSE

.+2
HALT
.e2
HALT
.+2

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

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

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

000000

HALT

000672
000000

.+2
HALT

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

CZOHD-DO

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 VO4.00

000676

.42

000000
000702
000000
000706

HALT
. +2
HALT
.42

000000
000712
000000

HALT
.e2

HALT

000000
000722
000000
000726
000000
000732
000000
000736
000000
000742
000000
0007456
000000
000752
000000

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

000716

.+2

000756
00C¢300
000762
000000
000766
000000

.42
HALT
.+2
HALT
.+2
HALT

000772

000000
000776
000000

SEQ 19

27 JUN-85 12:54:12 PAGE 15-4

.SETVEC

HALT
.2
HALT

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

CZDHD-00

000200

MACRO VO4.00

000200
000167

1 000204

000600

SEQ 20

27 JUN-85 12:54:12 PAGE 16

. =200

1STANDARD INTERRUPT VECTORS
JMP

START

;G0 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
000204

000204

104400
000001
104401
000002
104402
000003
104403
000004

104404
000005

104405
000006
104406
000007

104407
000010
104410
000011

TRPDEF

SCOPE, +/SCOPE LOOP AND ITERATION HANDLER/
SC?PE-TRAPtY
:SCOPE LOOP AND ITERATION HANDLER

TRPOEF

TYPE,t/TELETYPE QUTPUT ROUTINE/
TYPE=TRAP+Y
;TELETYPE OUTPUT ROUTINE
Y=Yel
OCTASC,+/0CTAL TO ASCII CONVERSION/
OC;Aic-TRAPoY
:OCTAL TO ASCII CONVERSION
YsYe
INSTR, t/INPUT ASCII STRING/
INSTR=TRAP .Y
sINPUT ASCII STRING
YaYel
INSTER, t/STRING INPUT ERROR/
$NSTER-TRAP0Y
;STRING INPUT ERROR
sYel
PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/
PA$AT-TRAP¢Y
;CONVERT STRING TO OCTAL, CHECK LIMITS
YsYs

TRPDEF

TRPOEF

TRPDEF
TRPDEF

TRPDEF

TRPOEF

.MACRO

.ENOM
.START

Y=Y+

SAVOSP, t/SAVE RO-RS, PC/
SAVOSP=TRAP.Y
:SAVE RO-RS,

YsYel

RESOS, t/RESTORE RO-RS/
RE?OS-TRAPOY
Y=Ye1

;RESTORE RO-f3

SCOPEL,t/CHECK FOR FREEZE ON CURRENT DATA/
SCOPEI-TRAPoY
;CHECK FOR FREEZE ON CURRENT DATA
Y=Ye

CODEM1
MOV
DHSSR, DHSLR
:SET UP ADDRESS OF SILO
éNge
DHSLR
;STATUS REGISTER HIGH BYTE
ODEML
DHRVEC, 3,4 ,D0HSCR,0,177776,7,10,,.1

CZDHO-DO

MACRO VC4.00

27-JUN-85

001000

12:54:12 PAGE

SEQ 21

.=1000

;PROGRAM INITIALIZATION
;:LOCK OUT INTERRUPTS
;:SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
:CLEAR PROGRAM FLAGS AND COUNTS

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

005726
005726
012667
012667
104401
005767

001160

001001

012767
005777
000405
012767
005067

176702
176700
001122
177660
000176

177646

176642
176634
014240
012670

176764

177570
177570

; SWITCH DHSCR ADDRESS

START:

MOV
MOV

4340,PS
#STACK,
SP
#24,R2
SPFAIL,(R2)+
9340, (R2)+
#ERRORS, (R2)2340, (R2)+
OTRPSRV, (R2)+
9340, (R2)
STFLG
PASCNT

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

013, 4
SSWR
24

; SET UP TRAP VECTOR

#176, SWR
LIGHTS

; POINT TO SOFT SWITCH DHSCR
; O MEANS WE ARE NOT GOING TO USE

MOV

176670

177650

1$:
2%:

.IF N8
.IFF

L.ENDC
JF N
SIZE:
18:
2%:

MOV
MOV
MOV
MOV
MOV
MoV
CLR
CLR
CLR
CLR
CLR
MoV
MOV
MOV
TST
BR

MOV
CLR

ERRCNT
ERRFLG
ERRFLG
4. -(sP)

TST
(SP)+
TST
(SP)+»
MOV
(SP)+, 6
MOV
(SP)., &
TYPE
MTITLE
TST
INIFLG
<DHRVEC>
VEC1
BNE

BNE
o
CLR
MOV
TS7T
BR
MOV
SUB
MOV

BEGIN

RO
023,804

(RO)+
14

RO, HCORE
92 ,HCORE
96,804

o bd

000340
015120
000024
014070
000340
012716
000340
013130
000340
012774
012730
012726
012716
012712

.WORD
.WORD

; LIGHTS

; TEST SWITCH REGISTER ADDRESS
+ IF SUCCESSFUL, LEAVE IT ALONE

; CLEAN UP STACK

sTYPE TITLE MESSAGE
:CHECK INITIALIZATION FLAG
:IF NOT O, CHECK SWITCHES
;FOR REINITIALIZATION

:IF NOT O, START TEST

;SET UP TIME OUT RETURN
;WILL TRAP WHEN NO MEMORY
;LOCATION RESPONDED, CONTINUE
;RO CONTAINS ADDRESS OF
:NON EXISTANT MEMORY
;RESTORE TRAPCATCHER

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

SWR:
LIGHTS:

001004
001012
001016
001022
001026
001032
001036
001042
001046
01052
001056
001062
001066
001072
001076
001102

sDETERMINE MEMORY SIZE
:SET UP TRACE TRAP RETURN

O&b.u\g&b#bb&b

177570
177570

<>,

[Tor we w e w0 w0 we
[

001000
001002

;TYPE 11 TLE MESSAGE
<>,

ot ws me s o

.IIF NB
.IIF NB

CZOHD-DO

MACRO V04.00

27-JUN-85 12:54:12 PAGE

.ENDC
IF N8B
TRACER:

1$:

o
MOV
SXT
MOV
BR
MOV
MOV

MOV

001162

001164
001172
001174
001174
001200
001204
0C1210
001212
001214
001216
001220
001224
001226
001230
001232
001234
001236

001240
001242
001243
001244
001246
001230
001252
001254
001256

001260
001261

.ENGC
.IF N8
IF B

000404

IFF

032777
001445

000001

012701

000300
000302
000004

012702

012703
010211
005012

060301
060302
020127
001371
104403
014306
104405
000300
000770
014000
003
004
104403
014330
104405
000000
177776
013756
007
010

177606

.ENOC
VEC1:
VEC2:

1%:

001000

.BYTE
.BYTE

.BYTE
.BYTE
.ENDC
JIF NB

001262
001262
001270

016767
005267

012506
012502

001274
001300
001302

005767
001002
005167

012550
012542

012506
.ENDC

SEQ 22

17-1

21%,8010
RO
ORTT, TRTRET
24
ORTI,TRTRET
12,8010
#TRTRET, 8416

:SET UP ILLEGAL INSTRUCTION TRAP RETURN
;D0 11740, 11/45 INSTRUCTION
:11740,45 RTT RETURN FROM TRACE TRAP

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

<DHRVEC>
o
BR
VEC2

TST
BEQ

INIFLG
VEC2

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

®IT
BEQ

45KH00, BSWR

;IF SW00=1, GET NEW VECTOR
sAND CSR

MOV
MOV
MOV
MOV
CLR
ADD
ADD
cMP
BNE
INSTR
MVECTOR
PARAM
300
770
DHRVEC
3
4
INSTR
MREGAD
PARAM
0
177776
DHSCR
7
10

#300,R1
#302,R2
84 .R3
R2,(R1)

<1>
CODEM1
MoV
INC
18T

BNE
coM

BEGIN

(R2)

R3,R1
R3,R2
R1,#1000
1¢

:
;

4
4

;RESTORE TRAPCATCHER
:IN FLOATING VECTOR AREA

; INPUT ADDRESS QF DEVICE VECTOR
;MHESSAGE “VECTOR ADDRESS-*
;CONVERT STRING TO OCTAL
sLOW LIMIT
sHIGH LIMIT
i 3
:LOCATIONS 7O BE FILLED
sNUMBER OF LOCATIONS
:LSB MASK
;INPUT ADDRESS OF DEVICE CSR
sMESSAGE “CONTROL REGISTER ADDRESS;CONVERT STRING TO OCTAL
;LOW LIMIT
;HIGH LIMIT
:LOCATIONS TO BE FILLED
;NUMBER OF LOCATIONS
1LSB MASK

DHSSR, DHSLR
DHSLR

$SET UP ADDRESS OF SILO
sSTATUS REGISTER HIGH BYTE

INIFLG
BEGIN
INIFLG

;IF INITIALIZATION FLAG
;IS CLEARED
;SET IT

;PROGRAM START
:CHECK FOR PROGRAM START AT SELECTED ADDRESS

fio-

; 4

CZOHD -DO

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

MACRO VO4.00

012767
012706
032777
001410
104403
014517
104405
000000
017500
014016
001
001
000410
012767
005767
001004

005167
104401
000177

000340
015120
000002

176462

BEGIN:

177452

.BYTE
.BYTE

001400
012470

012462
014513
012416

SEQ 23

27-JUN-85 12:54:12 PAGE 17-2

012440

1%:

2%:
3s:

MoV
Mov
BIT
8EQ
INSTR
MTSTPC
PARAM

#340,PS
#STACK,SP
#5W01, 95WR
1s

;LOCK QUT INTERRUPTS
;SET UP PROCESSOR STACK
;IF SWO01=1
:GET PC FOR PROGRAM START
:GET PC
;MESSAGE “TEST PC*
;CONVERT STRING TO OCTAL

17500
RETRN

B8R

MoV
TST

8NE
coM
TYPE
JHP

24
#T1,RETRN
STFLG
34
STFLG
MR
SRETRN

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

;TYPE “R” TO INDICATE START
;START TESTING

;

OBRNAM

CZ0HD DO

MACRO V04.00

000020
000000
000000
000001
000020

XLINE=L INE
LINE=0
XBIT=BITX
BITX=1
.REPT
20
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/
.NLIST
LINE=LINE.1
BITX=BITX+BITX
.LIST

10
11

13
14

SEQ 24

27 JUN-85 12:54:12 PAGE 19

.ENOR

001400

SPEED

\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

:TRANSMITTER LINE SPEED SELECTION TEST
; TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE O
;VERIFY THAT TRANSMITTER OONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
001400
001400
001406
001414

012767
012767
012767

000340
000010
001620

176370
012410
012376

001422

012767

001456

012372

001430
001434

000002
012705
012700

000000
002000

001440
001444
001430
001436
001464
001470
001474

012701
012704
012767
012777
010577
005077
012777

000015
000001
rnmn
004000
012266
012270
177778

001502
001506
001512

012254
012350

001524

010077
005067
005067
012767
012777

012346
000010
000001

001532

005777

012220

001336
001540
001344
001530
001532
001356
001360
001360
001362
001364
001572

100412
005267
005267
001370
005367
001365

001516

104001
000405
026767
103401

012402
012272

TS \XN,10,5¢,14
T1:
MOV
MoV
MOV
IF N8B
<18
MOV
.ENDC
XN=XN«1
MOV
MoV

1s:

012264

012342
012236

24:

012316
012314

012310

012272

012266

3$:

#340,PS

410, ICOUNT

#54 ,ESCAPE

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

#1%,FREEZ1

:SET UP TO LOOP WITH DATA

#0,R5
#2000,
R0

HOV
MoV
MUV
MOV
MOV
CLR
MOV

#15,R1
#1,R4
#-1,TIMEL

MOV
CLR
CLR
MOV

RO, S0HLPR
TIME2
TEWPL
#9190, TEWP2
#1,9DHBAR

TSY

BOHSCR

B8M1
INC
INC

3
TIME2
TEMPL

BNE
DEC
BNE
MY
EnMY
BR
cHp
BLO

#8IT11,80HSCR

RS, 8DHSCR

SDHBA
¢-3,80HBC

:LINE O WILL BE TESTED
sCONSTANT FOR SELECTION

;0F INITIAL (LOWEST) SPEED
115 DIFFERENT SPEEDS WILL BE TESTED
;BINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE
:CLEAR INTERFACE
;SELECT LINE O FOR TESTING
:CLEAR BUS ADDRESS
:SET UP TO TRANSMIT
;3 CHARACTERS
;SELECT LINE SPEED
sCLEAR TRANSMITTER TIME TIMER
sSET UP NO CLOCK TIMER

;SET BAR BIT FOR LINE 0
170 START TRANSMISSION
tWAIT FOR TRANSMITTER
sTO FINISH

sUPDATE TRANSMITTER TIMER
sUPDATE NO CLOCK TIMER

; TRANSMITTER DID NOT FINISH, ERROR
43
TIME2, TIMEL
43

i 3

;VERIFY THAT TRANSMITTER
;WAS FASTER AT THIS SELECTED SPEED

CZ0H0 -00

001574
001574
001576
001600
001606
001610
001614
001616
001620
001622

MACRO

VG4 .00

27-AM-85

HT
enT

104002

104410
016767
005204
062700

003301
001317
104400
000001
000002

012256

012252

SEQ 25

12:54:12 PAGE 19-1

54:

BNE

SCOPE

;TRANSMITTER TIMING ERROR FOR

sLINE ©

SCOPEL

Mov
INC
ADD
DEL

002000

2
2

;(NUMBER OF COUNTS IN TIME2
;LESS THAN TIME1)

TIME2, TIMEL
R4
#2000,
RO
R1
1s

;CHECK FOR FREEZE ON CURRENT DATA

;SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE.\BITX,3,t//,2000,%/TRANSMITTER/

1 TRANSMITTER LINE SPEED SELECTION TEST

s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 1
sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED

sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
001622
001622
001630
001636

012767
012767

000340

012767

000010
002042

176146
012166
012154

001644

012767

001700

012150

001652
0016%6

00003
012705
012700

000001
002000

012701
012704
012767
012777
010577
005077

000015
000001
177117
004000
012044
012046
177775

001730
001734
001740
001746

010077
003067
0035067
012767

012717

012032
012126
012124
000010
000002

001734

005777

011776

001662
001666
001672
001700
001706
001712
001716
001724

001760

001762

001766
001772
001774
002000
002002
002002

012777

100412
005267
005267
00137G
005367
001365
104001

012074
012072
012066

TS \XN,10,5¢,1¢
T2:
MoV
#340,PS

MOV

sDISABLE ALL INTERRUPTS

MoV
<18
MOV

410, ICOUNT

$SET UP FOR 10 ITERATIONS

#1¢ ,FREEZL

;SET UP TO LOOP WITH DATA

MOV
MOV

#1,RS
#2000,R0

012042

MOV
MOV
MoV
MOV
Moy
CLR
MOV

#15,R1
#1.R4
-1, TIMEL
81711 ,80HSCR
RS, 80HSCR
SOHBA
4-3,80HBC

+15 DIFFERENT SPEEDS WIL!. BE TESTED
:BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
1CLEAR INTERFACE
sSELECT LINE 1 FOR TESTING
3CLEAR BUS ADDRESS
$1SET UP TO TRANSMIT

012120
012014

MOV
CLR
CLR
MOV
MOV

RO, SOMLPR
TIME2
TEMPL
€10, TEMP2
42 ,00H8AR

sSELECT LINE SPEED
tCLEAR TRANSMITTER TIMZ TIMER
:SET UP NO CLOCK TIMER

TST

SDHSCR

anl
INC
INC
BNE
DEC

34
TIME2
TEMPL
24
TEMP2

012160
012050

JIF N8B

.ENOC
XN=XN+1

1s:

24:

B8NE
HLY
et

459 ESCAPE

2%
1
1

:SET UP TO ESCAPE TO NEXT TEST
1

sLINE 1 WILL BE TESTED
;CONSTANT FOR SELECTION

1OF INITIAL (LOWEST) SPEED

+3 CHARACTERS

1SET BAR BIT FOR LINE £

370 START TRANSMISSION
sWAIT FOR TRANSMITTER

1TO FINISH

sUPDATE TRANSMITTER TIMER
sUPDATE NO CLOCK TIMER

sTRANSMITTER DID NOT FINISH, ERROR

C20#0-00

002004
002006
002014

002016
002016
002020
002022
002030
002032
002036
002040
002042

002044

HACRO V04.00

000405
026767
103401

012050

012044

3¢:

104002
104410
016767
003204

062700

003301
001317
104400
000002
000004

012034

SEQ 26

27-JUN-85 12:54:12 PAGE 39-2

012030

44:

002000

Ss:

s, 4
BLO

TIME2 . TIMEL
43

HT
e

2
2

SCOPEL

"oV
INC
ADD
DEC
BNE

SCOPE

sVERIFY THAT TRANSMITTER
sMAS FASTER AT THIS SELECTED SPEED

;(NUMBER OF COUNTS IN TIME?2
;LESS THAN TIMEL)

sTRANSHITTER TIMING ERROR FOR

;LINE 1

TIME2, TIMEL
Re
42000,
RO
R1
14

;:CHECK FOR FREEZE ON CURRENT DATA

sSET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

1CHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITXBITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

s TRANSMITTER LINE SPEED SELECTION TEST
sTRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 2
tVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
tVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS

+AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
002044

002032
002060
002066

002074
002100

012767
012767
012767

012767
000004
012705

000340
000010
002264
002122

012700

000002
002000

002130
002134
002140

012701
012704
012767
o127
010577
005077
012777

000015
000004
nnn
004000
011622
011624
1777718

002146
0021352
002156
002162
002170

010077
005067
005067
012767
012777

011610
011704
011702
000010
000G04

002176

005777

011554

002202
002204
002210
002214
002216

100412
003267
005267
001370
005367

002104
002110
002114
002122

011632
011650
011644

175724
011744
011732
011726

TS \XN,10,5¢,14
13:
MOV
#340,PS

IF N8
.ENDC

XN=XN+1

011736
011626

14:

011620

011676
011572

24:

#10, ICOUNT
#54 ,ESCAPE

iDISABLE ALL INTERRUPTS
$SET UP FOR 10 ITERATIONS
+SET UP TO ESCAPE TO NEXT TEST

MOV

#14,FREEZ1

sSET UP TO LOOP WITH DATA

MOV
MOV

#2,RS
#2000, RO

MOV
MOV
MOV
MoV
MOV
CLR
nov

#15,R1
,R4
*-1,TIMEL
#B8I711,80HSCR
R3, SOHSCR
SDHBA
¢-3,80H8C

MOV
CLR
CLR
Hov
Hov

RO, GOHLPR
TIME2
TEWPL
010, TEMP2
4, 80HBAR

187

SOHSCR

oMI

MOV
ngg

14>

INC
INC
BNE
DEC

TIME2
TEMPL
24
TENP2

i 3

iLINE 2 WILL BE TESTED
sCONSTANT FOR SELECTION
10F INITIAL (LOWEST) SPEED
115 DIFFERENT SPEEDS WILL BE TESTED
1BINARY CODE FOR INITIAL SPEED

sINITIALIZE COMPARISION VALUE
$CLEAR INTERFACE
sSELECT LINE 2 FOR TESTING
1CLEAR BUS ADDRESS
$SET UP TO TRANSMIT
+3 CHARACTERS
$SELECT LINE SPEED

sCLEAR TRANSMITTER TIME TIMER

1SET UP NO CLOCK TIMER

sSET BAR BIT FOR LINE 2
17O START TRANSMISSION
sWAIT FOR TRANSMITTER

170 FINISH

sUPDATE TRANSMITTER TIMER
sUPDATE NO CLOCK TIMER

CZ0M0-D0

002222
002224
002224
002226
002230
002236

002240
002240

002242
002244
002232
002254
002260
002262
002264

002266

MACRO VO4.00

27-JUN-85

12:54:12 PAGE

001365
104001
000405
026767
103401

BNE

gh}
011626

011622

104410
016767
005204
062700
005301
001317
104400
000003
000010

8LO

EMT

011612

011606

002000

4s:

MW T

104002

B8R

CHP

SEQ 27

19-3

TIMER2, TIMEL

SCOPEL

sTRANSMITTER DID NOT FINISH, ERROR

sVERIFY THAT TRANSMITTER

1WAS FASTER AT THIS SELECTED SPEED

s (NUMBER QOF COUNTS IN TIME2
sLESS THAN TIMEL)

1 TRANSMITTER TIMING ERROR FOR
sLINE 2

sCHECK FOR FREEZE ON CURRENT DATA

MOV
TIME2, TIMEL
$SET UP FOR NEXT COMPARISION
INC
R4
1SELECT NEXT SPEED
ADD
42000,R0
DEC
R1
BNE
14
Ss:
SCOPE
sCHECK FOR ITERATIONS, LOOP
LINE=LINE+}
BITX=BITX.BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

s TRANSMITTER LINE SPEED SELECTION TEST

s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 3

iVERIFY THAT TRANSMITTER OONE OCCURS AT THE SELECTED SPEED
s VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED

002266
002266
002274
002302

012767
012767
012767

000340
000010
002506

175502
011522
011510

002310

012767

002344

011504

002316
002322

000005
012705
0127¢C0

000003
002000

002326
002332
002336
002344
002352
002356
002362

012701
012704
012767
012777
010577
005077
012777

000015
000001
17771717
004000
011400
011402
177775

002370
002374
002400
002404
002412

010077
005067
005067
012767
012777

011366

011462
011460
000010
000010

002420

005777

011332

002424
002426

100412
005267

011430

TS \XN,10,5%,1¢
T4
"ov
#340,PS

MoV

IF NB
.ENDC

XN=XN+1

011514
011404

MOV
18>
Mov

sSET UP FOR 10 ITERATIONS

1% FREEZL

;SET UP TO LOOP WITHM DATA

MoV
MOV

#3.RS
#2000, R0

MoV
MoV
MOV

#15,R1
#1.R4
-1, TIMEL

BIT11,8D0HSCR
RS ., 80HSCR

MOV

RO, SOHLPR

CLR
MOV
MOV

TEMPY
210, TEMP2
€10, SDHBAR

TST

SDHSCR

B8MI

CLR

011454
011350

2%:

453 ,ESCAPE

MOV
Mov

CLR
MOV

011376

sDISABLE ALL INTERRUPTS

410, ICOUNT

INC

SDHBA
¢-3,80HBC

TIME2

TIMEZ2

:SET UP TO ESCAPE TO NEXT TEST
:

sLINE 3 UILL BE TESTED
;CONSTANT FOR SELECTION
;OF INITIAL C(LOMWEST) SPEED
:15 DIFFERENT SPEEDS MILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE

sCLEAR INTERFACE
iSELECT LINE 3 FOR TESTING

:CLEAR BUS ADORESS
1SET UP TO TRANSMIT

:3 CHARACTERS

1SELECT LINE SPEED

;CLEAR TRANSMITTER TIME TIMER

$SET UP NO CLOCK TIMER

;1SET BAR BIT FOR LINE 3
;70 START TRANSMISSION
:WAIT FOR TRANSMITTER

;70 FINISH

tUPDATE TRANSMITTER TIMER

C20HD-00

MACRO VO4.00

002432
002436
002440
002444
002446
002446
02450
002452
002460

104001
000405
026767
103401

002462
002462

104002

002464
002466
002474
002476
002502
002504
002506

0C2510

005267
001370
005367
001365

104410
016767
005204
062700
005301
001317
104400
000004
000020

27-JUN 85

011426
011422

011404

011400

3s:

INC
BNE
DEC
BNE
HLT
EMT
BR

BLC

cMP

TEMPL
24
TEMPR2
23
1
1

TIME2, TIMEL

HLT
EMT

011370

SEQ 28

12:54:12 PAGE 19-4

43;

011364

SCOPEL

MOV
INC

002000

ADD

TIME2, TIMEL
R4
42000,R0
R1
1s

1UPDATE NO CLOCK TIMER

s TRANSMITTER DID NOT FINISH, ERROR

tVERIFY THAT TRANSMITTER
;WAS FASTER AT THIS SELECTED SPEED
sCNUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
s TRANSMITTER TIMING ERROR FOR

LINE 3
{CHECKX FOR FREEZE ON CURRENT DATA
sSET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

OEC
BNE
5%:
SCOPE
:CHECK FOR ITERATIONS, LOOP
LINE=LINE.]
BITX=BITX+BITX
\LINE, \BITX,3,t//,2000,t/TRANSMITTER/
SPEED

s TRANSHMITTER LINE SPEED SELECTION TEST
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 4
;VERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
002510
002510
002516
002524

012767
012767
012767

000340
000010
002730

175260
011300
011266

002532

012767

002566

011262

002540
002544

000006
012705
012700

000004
002000

002550
002554
002560
002566
002574
002600
002604

012701
012704
012767
012777
010577
005077
012777

000015
000001
197777
004000
011156
011160

002612
002616
002622
002626
002634

010077
005067
005067
012767
012777

011144
011240
011236
000010
000020

002642

005777

011110

177775

TS \XN,10,5%,1%
15:
MOV
MOV
MoV
<1$>
JIF NB
MOV
-ENDC

XN=XN+1

011272
011162

1s:

#340,.P5
#10, iCOUNT
58 ,ESCAPE

;DISABLE ALL INTERRUPTS
iSET UP FOR 10 ITERATIONS
;SEY UP TO ESCAPE YO NEXTY TEST

913 ,FREEZL

;SET UP TO LOOP WITH DATA

MOV
MOV

RS
#2000,R0

MOV

#15,R1

MoV

BIT11.80HSCR
RS, 8DHSCR
SDHBA

011154

4-3,80H8C

011232
011126

RO, GDHLPR
TIMER
TEMPL
410, TEMP2
#20, SDHBAR

2%:

IS8T

SOHSCR

i 3

sLINE & WILL BE TESTED
sCONSTANT FOR SE' ECTION
:0F INITIAL (LOMEST) SPEED
+15 DIFFERENT SPEEDS MWILL BE TESTED
;BINARY CODE FCR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
:CLEAR INTERFACE
sSELECT LINE 4 FOR TESTING
:CLEAR BUS ADDRESS
sSET UP TO TRANSHIT
i3 CHARACTERS
sSELECT LINE SPEED
;CLEAR TRANSMITTER TIME TIMER
:SET UP NO CLOCX TIMER
:SET BAR BIT FOR LINE 4
iTO START TRANSMISSION
;WAIT FOR TRANSMITTER

CZDHD -DO

002646
002650
002654
002660
002662
002666
002670
002670
002672
0C2674
002702

002704
002704
002706
002710
002716
002720
002724
002726
0C2730

002732

HACRO

100412
005267
005267
001370
005367
001365

VO4.00

27-JUN-85

12:54:12

011206
011204
011200

104001
000405

026767

103401

011162

011156

3s:

011146

011142

3
TIMER
TEMPL
23
TEMP2
24
i

BR
o [

43
TIME2, TIMEL

8LO

SCOPEL
MOV

SEQ 29

8MI
INC
INC
BNE
DEC
BNE
gh}

MLT
EMT

104002
104410
016767
005204
062700
005301
001317
104400
000005
000040

PAGE

;7O FINISH
s+UPDATE TRANSMITTER TIMER
;UPDATE NN CLOCK TIMER

; TRANSMITTER DID NOT FINISH,

ERROR

sVERIFY THAT TRANSMITTER

sWAS FASTER

THIS

SELECTED

s(NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)

SPEEC

2
2

;TRANSMITTER TIMING ERROR FOR

TIME2,TIMEL

:CHECK FOR FREEZE ON CURRENT DATA
;SET UP FOR NEXT COMPARISION

;LINE &4

INC
R4
;SELECT NEXT SPEED
ADD
92000,
R0
DEC
R1
BNE
1$
S¢:
SCOPE
;CHECK FOR ITERATIONS, LOOP
LINE=LINE«}
BITX=BITX«BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

002000

s TRANSMITTER LINE SPEED SELECTION TEST
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE S
sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
002732
002732
002740
002746

012767
012767
012767

000340
000010
003152

175036

011056

TS \XN,10,5%.1%
Té6:
Hov
#340,PS

011044

_—
.

002754

012767

003010

002762
002766

000007
012705
012700

000005
002000

002772
002776
003002
003010
003016
003022
003026

012701
012704
012767
012777
010577
005077
012777

000015
000001
1777177
004000
010734
010736
177775

003034
003040
003044
003050

010077
005067
005067
012767

010722
011016
011014
000010

011040

011050
010740

010732

011010

.ENDC
XN=XNe¢1

13:

MoV

Hg:

#10, ICOUNT

454 ESCAPE

<1$>

MoV

418 ,FREEZY

Moy
MoV

#5,R5
#2000,R0

MOV
MOV
MOV
MoV
MoV
CLR
MOV

#15,R1
1 .R4
-1, TIMEL
#BIT11,80HSCR
RS, 9DHSCR
SOHBA
#-3,80HBC

MoV

RO, SDHLPR

MOV

#10,TEMP2

CLR
CLR

TIME2
TEMPL

;DISABLE ALL INTERRUPTS

;SET UP FOR 10 ITERATIONS

sSET UP TO ESCAPE TO NEXT TEST
;SET UP TO LOOP MITH DATA

;LINE S WILL BE TESTED
sCONSTANT FOR SELECTION

;0F INITIAL (LOMEST) SPEED

:15 OIFFERENT SPEEDS WILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
sSELECT LINE S FOR TESTING
;CLEAR BUS ADDRESS
;SET UP TO TRANSMIT

33 CHARACTERS

;SELECT LINE SPEED

;CLEAR TRANSMITTER TIME TIMER
;SET UP NO CLOCK TIMER

CZ0HD-DO

003056

MACRO VO4.00

012777

003064

005777

003070
003072
003076
003102
003104
003110
003112
003112
003114
003116
003124

100412
005267
005267
001370
005367
001365

003126
003126
003130
003132
003140
0C3142
003146
003150
003152

003154

104001
000405
026767
103401

000040

010704

010666

MoV
2%:

INC

010756

010734

3s:

INC
BNE
DEC
BNE
HLY
EMT
BR

cHp

BLO

HLY
EMT

104002

104410
016767
005204
062700
005301
001317
104400
000006

8MI

010764
010762

010740

010724

SEQ 30

27-JUN-85 12:54:12 PAGE 19-6

010720

002000

SCOPEL
HOV
INC

ADD
OEC
BNE

#40, BOHBAR
8DHSCR

TIMER2

TEMPL
23
TEMP2
24
1
1
4

TIMEZ2, TIMEL

2
2

1SET BAR BIT FOR LINE S

;TO START TRANSMISSION

sWAIT FOR TRANSMITTER
:TO FINISH

;UPDATE TRANSMITTER TIMER
;UPDATE NO CLOCK TIMER

s TRANSMITTER DID NOT FINISH,

:VERIFY THAT TRANSMITTER

:WAS FASTER AT THIS SELECTED SPEED

s (NUMGER OF COUNTS IN TIME2
;LESS THAN TIMEYL)

s TRANSMITTER TIMING ERROR FOR

;LINE S

TIME2, TIMEL
R4

#2000,
RO
R1
1

;CHECK FOR FREEZE ON CURRENT DATA
;SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

5%:
SCOPE
;:CHECK FOR ITERATIONS,
LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX.3,t//,2000,t/TRANSMITTER/

000100

ERROR

LOOP

: TRANSHITTER LINE SPEED SELECTION TEST
: TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 6
:VERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED

003154
003154
003162
003170

012767
012767
012767

000340
000010
003374

010622

003176

012767

003232

010616

003204
003210

000010
012705
012700

000006
002000

003214
003220
003224
003232
003240
003244
003250

012704
012767
012777
010577
005077
012777

000015
000001
1nmnn
004000
010512
010514
1717775

003256

010077

010500

012701

174614
010634

010626
010516

010510

TS \XN,10,5¢,1%
T7:
MoV
#340,PS

JIF NB

.ENDC
XN=XN+1

1¢:

;DISABLE ALL INTERRUPTS

MOV
MOV
e
MOV

€10, JCOUNT
@58 ,ESCAPE

3SET UP FOR 10 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

#18,FREEZY

sSET UP TO LOOP WITH DATA

MoV
MOV

#6,RS
#2000,R0

MOV

€1S5,R1

;LINE 6 WILL BE TESTED
:CONSTANT FOR SELECTION

;OF INITIAL (LOMEST) SPFED

;15 DIFFERENT SPEEDS WILL BE TESTED

MOV
MOV
MOV
MoV
CLR
MOV

#1 .R4
*-1,TIMEL
#BIT11,80HSCR
RS, 80HSCR
SOMBA
4-3,80HBC

;BINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE
sCLEAR INTERFACE
sSELECT LINE 6 FOR TESTING
;:CLEAR BUS ADDRESS
;SET UP TO TRANSMIT

MOV

RO ,8DHLPR

sSELECT LINE SPEED

;3 CHARACTERS

CZOHD -00

MACRO VO4.00

003262
003266
003272
003300

005067
005067
012767
012777

010574
010572
000010
000100

003306

005777

010444

003312
003314
003320
003324
003326
003332
003334
003334
003336
003340
003346

100412
005267
005267
001370
005367
001365

003350
003350

0€3352
003354
003362
N03364
003370
003372
003374

003376

104001
000405
026767
103401

010566
010462

24:

010542
010540

010534

010512

3s:

€10, TEMP2
€100, 8DHBAR

TST

9DHSCR

8MI
INC
INC
BNE
DEC
BNE

33
TIME2
TEMPL
24
TEMP2
24

010502

010476

002000

4%:

TIME2
TEMP1

8LO

CcHP

iCLEAR TRANSMITTER TIME TIMER
iSET UP NO CLOCK TIMER
sSET BAR BIT FOR LINE 6

;7O START TRANSMISSION
iWAIT FOR TRANSMITTER

;7O FINISH

;UPDATE TRANSMITTER TIMER
;UPDATE NO CLOCK TIMER

HLT
EMT

104002

104410
016767
005204
062700
005301
001317
10440C
000007
000200

CLR
CLR
MOV
MOV

gh}
010516

SEQ 31

27-JUN-8S 12: 54:12 PAGE 19-7

; TRANSMITTER DID NOT FINISH, ERROR

TIME2, TIMEL

:VERIFY THAT TRANSMITTER

;WAS FASTER AT THIS SELECTED SPEED

;(NUMBER OF COUNTS IN TIME2
;LESS THAN TIME1)

2
2

; TRANSMITTER TIMING ERROR FOR

;LINE 6

SCOPEL

:CHECK FOR FREEZE ON CURRENT DATA

MOV
TIME2, TIMEL
sSET UP FOR NEXT COMPARISION
INC
R4
;SELECT NEXT SPEED
ADD
42000,R0
DEC
R1
BNE
1s
5%:
SCOPE
sCHECK FOR ITERATIONS, LOOP
LINE=LINE+]
BITX=BITX+BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

; TRANSHMITTER LINE SPEED SELECTION TEST
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED OM LINE 7
;VERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
003376
003376
003404
003412
003420

012767
012767
012767
012767

000340
000010
003616
003454

003426
003432

000011
012705
012700

000007
002000

003436
003442
003446
003454
003462
003466

012701
012704
012767
012777
010577
005077

000015
000001
1177177
004000
010270
010272

174372
010412
010400
010374

TS \XN,10,54,14
710:
MoV
#340,PS
MoV
€10, ICOUNT

IF N8B
.ENDC

XN=XN+1

MoV

<1
MOV

1s:

@58 ,ESCAPE

;:SET UP TO ESCAPE TO NEXT TEST

1% ,FREEZ1

;SET UP TO LOOP WITH DATA

MOV

#71.R5

HOV
MOV
MoV
MOV
MoV
CLR

15,R1
¢1.R4
®-1,TIMEL
#BIT11,8DHSCR
RS, 8DHSCR
S0HBA

MOV

010404
010274

:DISABLE ALL INTERRUPTS
;:SET UP FOR 10 ITERATIONS

;LINE 7 WILL BE TESTED

#2000,R0

sCONSTANT FOR SELECTION

;OF INITIAL CLOWEST) SPEED

115 DIFFERENT SPEEDS WILL BE TESTED
;:BINARY CODE FOR INITIAL SPEED

;INITIALIZE COMPARISION VALUE
:CLEAR INTERFACE
:SELECT LINE 7 FOR TESTING
;CLEAR BUS ADDRESS

CZ0OHD D0

MACRO V04.00

003472

012777

177775

V03500
003504
003510
003514
003522

010077
005067
005067
012767
012777

010256
010352
010350
000010
000200

003530

005777

010222

003534
003536
003542
003546
003350
003554
003556
003556
003560
00562
003570

100412
005267
005267
001370
005367
001365

0C€3572
003572

003574
003576
003604
003606
003612
003614
003616
003620

104001
000405
026767
103401

010266

MOV

9-3,80H8C

;SET UP TO TRANSMIT

MOV
CLR

RO, 8DHLPR
TIME2

i SELECT LINE SPEED
|
TRANSMITTER TIME TIMER

MoV
MOV

€10, TEMP2
9200, 8DHBAR

;SET BAR BIT FOR LINE 7

TST

80HSCR

:WAIT FOR TRANSMITTER

8MI

CLR

010344
010240
2%:

INC

010320
010316

010312

INC
BNE
OEC

010274

HLT
EMT
BR
cMP

BNE

010270

BLO

HLT
EMT

104002

104410
016767
005204
062700
005301
001317
104400
000010
000400

010260

SEQ 32

27-JUN-8S 12: 54:12 PAGE 19-8

010254

002000

SCOPEL
MOV
INC

ADD
DEC
BNE

TEMPL

TIMER2

TEMPL
23
TEMP2

;3 CHARACTERS

K TIMER

iTO START TRANSMISSION

sTO FINISH

;UPDATE TRANSMITTER

(IMER

iUPDATE NO CLOCK TIMER

1
1
4
TIME2, TIMEL

s TRANSMITTER DID NOT FINISH,

ERROR

;VERIFY THAT TRANSMITTER
;WAS FASTER AT THIS SELECTED SPEED

2
2

; TRANSMITTER TIMING ERROR FOR

TIME2, TIMEL
R4
#2000,
RO
R1
1s

:(NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
iLINE 7

;CHECK FOR FREEZE ON CURRENT DATA
;:SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

5%:
SCOPE
:CHECK FOR ITERATIONS, LOOP
LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

sTRANSMITTER LINE SPEED SELECTION TEST
; TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 10
;VERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
:AT THIS SPEED THAN AT THE PREVIQUSLY SELECTED SPEED
003620
003620
003626
003634

012767
012767
012767

000340
000010
004040

174150
010170
010156

003642

012767

003676

010152

003650
003654

000012
012705
012700

000010
002000

003660
003664
003670

012701
012704
012767

000015
000001
1777717

TS \XN,10,5¢.14
Ti1:
MoV
#340,PS
MOV
#10, ICOUNT
MOV
953 ,ESCAPE
IF NB
1

.ENDC

AN=XN+1

010162

MOV

914 ,FREEZ2L

MOV
MoV

#10,R5
#2000,R0

MOV
MOV
MOV

#15,R1
#1,R4
&-1,TIMEL

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

:SET UP TO LOOP WITH DATA

i 3

;LINE 10 WILL BE TESTED
;CONSTANT FOR SELECTION

1OF INITIAL (LOWEST) SPEED

315 DIFFERENT SPEEDS WILL BE TESTED
:BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUVE

CZDHD-DO

MACRO VO4.00

003676
003704
003710
003714

012777
010577
005077
012777

004000
010046
010050

003722
003726
003732
003736
003744

010077
005067
005067
012767
012777

010034
010130
010126
000010
000400

003752

005777

010000

003756
003760
003764
003770
003772
003776
004000
004000
004002
004004
0C4012

100412
005267
005267
001370
005367
001365
104001
000405
026767
103401

004014
004014

104002

004016
004020
004026
004030
004034
004036
004040

004042

104410
016767
005204
062700
005301
001317
104400
000011
001000

77775

010052

1%:

MOV
MOV

010044

MOV

CLR

@BITL11,B8DHSCR
RS, 8DHSCR
SOHEA

010122
010016

MOV
CLR
CLR
MoV
MoV

RO, BOHLPR
TIME2
TEMP1
910, TEMP2
#400,80HBAR

Ts7

80HSCR

BMI
INC

34
TIME2
TEMPL
24

010076
010074

INC

010070

010052

010046

3s:

BNE
DEC
BNE
HLT
EMY
8R
CHP
8LO

#-3,80H8C

010032

002000

;CLEAR INTERFACE
$SELECT LINE 10 FOR TESTING
;:CLEAR BUS ADDRESS
1SET UP TO TRANSMIT
+3 CHARACTERS
sSELECT LINE SPEED
;CLEAR TRANSMITTER TIME TIMER
sSET UP NO CLUCK TIMER
:SET BAR BIT FOR LINE 10
:TO START TRANSMISSION

;WAIT FOR TRANSMITTER

:TO FINISH

;UPDATE TRANSMITTER TIMER
;UPDATE NO CLOCK TIMER

TEMP2

1
1
44
TIME2, TIMEL
44

HLY
EMT
010036

SEQ 33

27-JUN-B5 12:54:12 PAGE 19-9

i TRANSMITTER DID NOT FINISH, ERROR

;VERIFY THAT TRANSMITTER
iWAS FASTER AT THIS SELECTED SPEED
:(NUMBER OF COUNTS IN TIME2
sLESS THAN TIMEL)
s TRANSMITTER TIMING ERROR FOR
;LINE 10

44
:

SCOPE1
;CHECK FOR FREEZE ON CURRENT DATA
TIME2, TIMEL
MoV
:SET UP FOR NEXT COMPARISION
R4
INC
;SELECT NEXT SPEED
#2000,R0
ADD
DEC
R1
BNE
13
SCOPE
Ss:
:CHECK FOR ITERATIONS, LOOP
LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

;TRANSHMITTER LINE SPEED SELECTION TESY
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 11
;VERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
:VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
004042
004042
004050
004056

012767
012767
012767

000340
000010
004262

173726
007746
007734

004064

012767

004120

007730

004072
004076

000013
012705
012700

C00011
002000

TS \XN,10,5¢,1%
T12:
MOV
MoV
MOV
<1$>
LIF NB
MoV
.ENDC
XN=XN+1
MOV
MoV

#340,PS
410, ICOUNT
954 ,ESCAPE

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

€18 FREEZL

;SET UP TO LOOP WITH DATA

#11,R5
#2000,R0O

:LINE 11 WILL BE TESTED
;CONSTANT FOR SELECTION
10F INITIAL (LOWEST) SPEED

CZ0HD -00

MACRO VO4.00

004102
004106
004112
004120
004126
004132
004136

012701
012704
012767
012777
010577
005077
012777

000015
0000v1
177777
004000
007624
007626
177775

004144
204150
004154
004160
004166

010077
005067
005067
012767
012777

007612
007706
007704
00010
001000

004174

005777

007556

004200
004202
004206
004212
004214
004220
004222
0C4222
004224
004226
004234

100412
005267
005267
001370
005367
001365

004236
004256
004240
004242
004250
004252
004256
004260
004262

004264

007740
007630

1¢:

007700
007574

MOV
CLR
CLR
MOV
MoV

RO, 8DHLPR
TIME2
TEMPL
410, TEMP2
41000, 8DHBAR

TST

SOHSCR

BMI
INC
INC
BNE
DEC
8NE
WY
EMT
AR

34
TIME2
TEMPL
23
TEMP2
23
1
1
4%

2%:

007646

007624

3s:

cHP
8Lo
WY
EMT

104002
104410
016767
005204
062700
005301
001317
104400
000012
002000

007614

#15,R1
o1,R4
9-1,TIMEL
8IT11,8DHSCR
RS, 9DHSCR

CLR
MUV

007654
067652

007630

MOV
MOV
MOV
MOV
MOV

007622

104001

000405
026767
103401

SEQ 34

27-JUN-85 12:54:12 PAGE 19-10

007610

002000

4%:

S0HBA
€-3,80HBC

:15 DIFFERENT SPEEDS WILL BE TESTED
:BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
sCLEAR INTERFACE
+SELECT LINE 11 FOR TESTING

sCLEAR BUS ADDRESS
;SET UP TO TRANSMIT

+3 CHARACTERS

:SELECT LINE SPEED
sCLEAR TRANSMITTER TIME TIMER
sSET UP NO CLOCK TIMER
:SET BAR BIT FOR | _NE 11

;7O START TRANSHISSION
sWAIT FOR TRANSMITTER
sTO FINISH

;UPDATE TRANSMITTER TIMER
sUPDATE NO CLOCK TIMER

*TRANSHITTER DID NOT FINISH. ERROR

TIMER2, TIMEL
43

;VERIFY THAT TRANSMITTER
;WAS FASTER AT THIS SELECTED SPEED

2
2

; TRANSMITTER TIMING ERROR FOR

SCOPE1L

; (NUMBER OF COUNTS IN TIME2
;:LESS THAN TIMEL)

:LINE 11
;CHECK FOR FREEZE ON CURRENT DATA

MOV
TIME2, TIHEL
;SET UP FOR
_XT COMPARISION
INC
R4
;SELECT NEXT SPEED
ADD
#2000,
RO
DEC
R1
BNE
1s
5%:
SCOPE
sCHECK FOR ITERATIONS, LOOP
LINE=LINE+1
BITX=BITX.BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSHITTER/

s TRANSMITTER LINE SPEED SELECTION TEST
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 12
;VERIFY THAT TRANSMITTER OONE OCCURS AT THE SELECTED SPEED
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS

sAT THIS SPEED THAN AT THE PREVIQUSLY SELECTED SPEED
004264
004264
004272
004300
004306

012767
012767
012767
012767
000014

000340
000010
004504

173504
007524
007512

004342

007506

TS \XN,10,5¢,1¢
T13:
MOV
#340,PS

MOV

IF N8B

.ENDC

XN=XN+1

MoV
<19>
MOV

#10, ICOUNT

#5¢ ,ESCAPE

;DISABLE ALL INTERRUPTS
1SET UP FOR 10 ITERATIONS
:3ET UP TQ ESCAPE TO NEXT TEST

014 ,FREEZ1

:SET UP TO LOOP WITH DATA

CZDMD-00

MACRO VO4.00

004314
004320

012705
012700

000012
002000

MOV
MOV

012,RS
#2000, RO

004324
004330
004334
004342
004350
004354
004360

012701
012704
012767
012777
010577
005077
012777

000015
000001
17mn
004000
007402
007404
177775

MOV
MOV

#15,R1
#1.R4

004366
004372
004376
004402
004410

010077
005067
005067
012767
012777

007370

004416

005777

004422
004424
004430
004434
0C4436
004442
004444
004444
004446
004450
004456

100412
005267
005267
001370
005367
001365

004460
004460
004462
004464
004472
004474
004500

004502
004504
004506

104001
000405
026767
103401

007464
007462
000010
002000

007516
007406

13:

007400

MOV

#-3,80HBC

007456
007352

MOV
CLR
CLR
MOV
MOV
23:

007432
007430

3s:

007366

43 :

002000

Ss:

000013
004000

1OF INITIAL {(LOWEST) SPEED

:15 OIFFERENT SPEEDS WILL BE TESTED
;BINARY CODE FOR INITIAL SPEED

sINITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
sSELECT LINE 12 FOR TESTING

;CLEAR B')S ADDRESS

1SET UP TO TRANSMIT

;3 CHARACTERS

;SELECT LINE SPEED
sCLEAR TRANSMITTER TIME TIMER
:SET UP NO CLOCK TIMER

18T

SDHSCR

sWAIT FOR TRANSMITTER

amMl

gh}
007402

S0HBA

;LINE 12 WILL BE TESTED
sCONSTANT FOR SELECTION

RO, 8DHLPR
TIME2
TEMPY
010, TEMP2
42000, SOHBAR

INC
INC
BNE
DEC
BNE

007424

007372

¢-1,TIMEYL
0B8IT11,80HSCR

RS ,8DHSCR

CLR

104002

104410
216767
005204
062700
005301
001317
104400

MOV
MOV

MOV

007334

007406

SEQ 35

27-JUN-85 12:54:12 PAGE 19-11

erR

CHP

TIME2
TEMPL
2%
TEMP2
2%

}

;:SET BAR BIT FOR LINE 12

17O START TRANSMISSION
;TO FINISH

;UPDATE TRANSMITTFR TIMER
:UPCATE NO CLOCK TIMER

sTRANSHITTER DID NOT FINISH, ERROR

B8LO

TIMER, TIMEL

sVERIFY THAT TRANSMITTER

gk;

;LESS THAN TIMEL)
;TRANSMITTER TIMING ERROR FOR

SCOPEL

mov
INC
ADD
DEC
BNE

SCOPE

TIME2,. TIMEL
R4
42000,R0
Ri
14

LINE=LINE.+1

iWAS FASTER AT THIS SELECTED SPEED
s(NUMBER OF COUNTS IN TIME2

sLINE 12
sCHECK FOR FREEZE ON CURRENT DATA

1SET UP FOR NEXT COMPARISION
1SELECT NEXT SPEED

sCHECK FOR ITERATIONS. LOOP

BITX=BITX+BITX
SPEED
NLINE \BITX,3,t//,2000,t/TRANSHITTER/

s TRANSMITTER LINE SPEED SELECTION TESY

s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 13

1VERIFY THAT TRANSMITTER OONE OCCURS AT THE SELECTED SPEED
{VERIFY THAT THE AMOUN OF TIME TAXKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
004506
004506
004514
004522

012767
012767
012767

000340
000010
004726

173262
007302
007270

TS \XN,10,5¢,14
Ti4:
MOV
#340.P5

MOV

IF N8B

MOV
e

€10, ICOUNT

54 ,ESCAPE

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

CZ0HD-00
004530

MACRO V04.00

012767

004564

004536
004542

000015
012705
012700

000013
002000

004546
004552
004556
004564
004572
004576
004602

012701
012704
012767
012777
010577
005077
012777

004000
007160
007162
177775

004610
004614
004620
004624
004632

010077
005067
005067
012767
012777

007146
007242
007240
000010
004000

004640

005777

007112

004644
004646
004652
004656
004660
004664
004666
004666
004670
004672
004700

100412
005267
005267
001370
005367
001365
104001
000405
026767
103401

004702
004702

104002

004704
004706
00474
004716
004722
004724
004726

004730

104410
016767
005204
062700
005301
001317
104400
000014
010000

000015
000001

177777

007264

.ENDC
AN=XN+1

007274
007164

414 ,FREEZL

MOV
MoV

#13,RS
92000,R0

MOV
MOV

#15,R1
1,R4
4-1,TIMEL

007156

007234
007130

MoV
CLR
CLR
MOV
MOV

RO, 8DHLPR
TIME2
TEMPY
410, TEMP2
#4000, SOHBAR

TST

80HSCR

8MI
INC
INC
BNE
DEC
BNE
HLY
EMY

8LO

34
TIME2
TEMPL
2%
TEMP2
24
1
1
43
TIME2, TIMEL
4

T
EnY

2
2

2%:

007202

007150

MOV

MOV
MOV
MOV
CLR
MOV

14:

007210
007206

007164

SEQ 36

27-JUN-B85 12:54:12 PAGE 19-12

007160

007144

002000

BR
cHe

®BIT11,8DHSCR
RS, 8DHSCR

S0HBA

¢-3,80HBL

:SET UP TO LOOP WITH DATA

iLINE 13 WTLL BE YESTED
sCONSTANT FOR SELECTION
:0F INITIAL (LOWEST) SPEED

115 DIFFERENT SPEEDS WILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
s INITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
sSELECT LINE 13 FOR YESTING
sCLEAR BUS ADDRESS
+SET UP TO TRANSMIT
+3 CHARACTERS
sSELECT LINE SPEED
iCLEAR TRANSMITTER TIME TIMER
1SET UP NO CLOCK TTMER
sSET BAR BIT FOR LINE 13
:TO START TRANSMISSION
;WAIT FOR TRANSMITTER
:TO FINISH
;UPDATE TRANSMITTER TIMER
tUPDATE NO CLOCK TIMER

s TRANSHITTER DID NOT FINISH, ERROR
;VERIFY THAT TRANSMITTYER
;WAS FASTER AT THIS SELECTED SPEED
:(NUMBER OF COUNTS IN TIME2
iLESS THAN TIMEL)
i TRANSMITTER TIMING ERROR FOR

sLINE 13
SCOPE]
;:CHECK FOR FREEZE ON CURRENT DATA
MOV
;}HEZ.TIHEI
:SET UP FOR NEXT COMPARISION
INC
;SELECT NEXY SPEED
ADD
$2000.K0
R1
DEC
BNE
14
S%:
SCOPE
sCHECK FOR ITERATIONS, LOOP
LINE=LINE+L
BITX=BITX+BITX
SPEED
\LINE,\8ITX,3,¢t//,2000,t/TRANSMITTER/
43

i TRANSMITTER LINE SPEED SELECTION TEST
i TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 14
;VERIFY THAT TRANSMITTER OON®. OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
:AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
004730
004730

012767

000340

173040

TS \XN,10,5¢,1$
#340,PS
Mov
T15:

;

;DISABLE ALL INTERRUPTS

—

CZoHo 00
004736
004744

004752
004760
004764
004770
004774

005000
005006
005014
005020
005024

005032
005036
005042
005046

005054

MACRO VO4.00

012767
012767

012767

005006

000016
012705
012700

000014
002000

012701
012704
012767
012777
010577
005077
012777

000015
000001
177777
004000
006736
006740
177775

010077
005067
005067
012767
012777

006724
007020
007016
000010
010000

0C5062

005777

005066
005070
005074
005100

100412
005267
005267
001370
005367
001365

005102
005106
005110
005110
005112
005114
005122
005124
005124
005126
005130
005136
005140
005144
005146
005150
005152

000010
005150

104001
000405
026767
103401

007060
007046

007042

.IF N8

.ENOC
XN=XNe+1

007052
006742

18:

<1$>

MOV

€10, ICOUNT

#54 ,ESCAPE

#1$,FREEZL

#BIT11,80HSCR

R5,8DHSCR

RO, BDHLPR
TIME2
TEMPL
#10, TEMP2
10000, 9DHBAR

007012

006706

2%:

006766
006764
006760

006736

#15,R1
®1.R4
e-1,TIMEL

SDHBA
¢-3,80HBC

006734

34:

TST

SOHSCR

8MI
INC
INC
BNE
DEC
BNE
HLY
EMT
BR
cMpP
8LO0

34
TIMER
TEMPL
24
TEMP2
3
1
1
49
TIME2, TIMEL
44

006726
002000

006722

SCOPEL

MOV
INC
ADD
DEC
BNE
SCOPE

5%:
LINE=LINE+1

:SET UP TO ESCAPE TO NEXT TEST

:SET UP TO LOOP WITH DATA

:CLEAR BUS ADDRESS
1SET UP TO TRANSMIT
+3 CHARACTERS
$SELECT LINE SPEED
:CLEAR TRANSMITTER TIME TIMER
tSET UP NO CLOCK TIMER

sSET BAR BIT FOR LINE 14

:TO START TRANSMISSION
1WAIT FOR TRANSMITTER
i 7O FINISH

;UPDATE TRANSMITTER TIMER
sUPDATE NC CLOCK TIMER

sTRANSMITTER DID NOT FINISH, ERROR
sVERIFY THAT TRANSMITTER
iWAS FASTER AT THIS SELECTED SPEED
sLESS THAN TIMEL)

TIME?, TIMEL
R4
#2000,
RO
R1
13

i 3

sLINE 14 WILL BE TESTED
sCONSTANT FOR SELECTION
;OF INITIAL C(LOWEST) SPEED
115 DIFFERENT SPEEDS WILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE
iCLEAR INTERFACE
sSELECT LINE 14 FOR TESTING

s TRANSMITTER TIMING ERROR FOR

EMT

:SET UP FOR 10 ITERATIONS

;(NUMBER OF COUNTS IN TIMER2

104002
104410
016767
005204
062700
005301
001317
104400
000015
020000

MOV
MOV

#14,R5
#2000,
R0

006670

006742

SEQ 37

27-JUN-85 12:54:12 PAGE 19-13

iLINE 14
sCHECK FOR FREEZE ON CURRENT DATA
sSET UP FOR NEXT COMPARISION
sSELECY NEXT SPEED

1CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSMITTER/

;TRANSMITTER LINE SPEED SELECTION TEST
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 15
iVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS

:AT THIS SPEED THAN AT THE PREVIOQUSLY SELECTED SPEED

CZ0H0-00

MACRO VO4.00

005152
005152
005160
005166

012767
012767
012767

000340
000010
003372

(06636
006624

005174

012767

005230

006620

005202
005206

000017
012705
012700

000015
002000

003212
005216
003222
005230
003236
003242
005246

010377
005077
012777

0035254
003260
005264
005270
005276

010077
005067
005067
012767
012777

006502
006576
006574
000010
020000

005304

005777

006446

003310
003312
005316
005322
005324
003330
003332
003332
003334
003336
005344

100412
005267
003267
001370
005367
001365

005346
005346

003330
003352
005360
003362
003366
003370
005372
005374

012701
012704
012767

012777

104001
000405
026767

103401

000015
000001
177777
004000
006514
006516

177775

172616

006630
006520

TS \XN,10,54,1%
T16:
MoV
MoV
MOV
<1$>
IF N8
MOV
.ENOC
XN=XN+1
MOV
MOV

1s:

062700
005301
001317

104400
000016

040000

#14% ,FREEZ1

;SET UP TO LOOP WITH DATA

#15,RS5
#2000,R0

MOV

#8IT11,80HSCR
R3,8DHSCR

SDHBA

#-3,80H8BC

006570
006464

RO, SOHLPR
TIME2
TEMPL
€10, TEMP2
920000, 9DHBAR
24:

TST

SOHSCR

34
TIME2
TEMPL
29
TEMP2
29
1
1

34:

8MI
INC
INC
BNE
DEC
BNE
T
EMT
B8R
cne

006542
006536

006504

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

006512

006514

104002
104410
016767
005204

9340,PS
#10, ICOUNT
#5% ,ESCAPE

#15,R1
#1,R4

006544

006520

SEQ 38

27-JUN-85 12:54:12 PAGE 19-14

006500

4%:

002000
54

8LO

44
TIME2, TIMEL
49

WY
EMT

2
2

SCOPE1

MOV
INC
ADD
DEC
BNE
SCOPE

TIME2, TIMEL
R4
#2000, R0
R1
14

sLINE 15 WILL BE TESTED
:CONSTANT FOR SELECTION

;OF INITIAL (LOWEST) SPEED
;15 ODIFFERENT SPEEDS WILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
s INITIALIZE COMPARISION VALUE
1CLEAR INTERFACE
:SELECT LINE 15 FOR TESTING
+CLEAR BUS ADDRESS
sSET UP TO TRANSMIT
;3 CHARACTERS

;SELECT LINE SPEED
iCLEAR TRANSMITTER TIME TIMER
sSET UP NO CLOCK TIMER
$SET BAR BIT FOR LINE 15
sTO START TRANSMISSION
sWAIT FOR TRANSMITTER
3TO FINISH
sUPDATE TRANSMITTER TIMER
{UPDATE NO CLOCK TIMER

i TRANSMITTER DID NOT FINISH, ERROR
sVERIFY THAT TRANSMITTER
sWAS FASTER AT THIS SELECTED SPEED
:(NUMBER OF COUNTS IN TIME2
;LESS THAN TIME1)
s TRANSMITTER TIMING ERROR FOR
sLINE iS
sCHECK FOR FREELE ON CURRENT DATA
$SET UP FOR NEXT COMPARISION
;:SELECT NEXT SPEED

sCHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX,3,t//,2000,t/TRANSHITTER/

s TRANSHITTER LINE SPEED SELECTION TEST
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 16

CZ0HD-00

MACRO Y04.00

SEQ 39

27-JUN-BS 12:54:12 PAGE 19-15

sVERIFY THAT TRANSMITTER OONE OCCURS AT THE SELECTED SPEED
sVERI' ¢ THAT THE AMOUN OF TIME TAKEN IS LESS
sAT T.IS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
0035374
005374
005402
003410

012767
012767
012767

000340
000010
005614

172374
006414

003416

012767

005452

006376

003424
005430

000020
012703
012700

000016
002000

003434

012767
012777
010577
005077
012777

000015
000001
nnn
004000
006272
006274
177778

005520

010077
003067
005067
012767
012777

006260
006354
006352
000010
040000

005526

005777

006224

003332
005534
0033540
003544
003546
005552
003534
003534
003556
005360
005566

100412
003267
0035267
001370
005367
001363

003444
003452
005460
005470

005476
005502
0033506
003312

003570
003570
003572
003574

005604

003610
003612
005614

005616

012701
012704

104001
000405
026767
103401

TS \XN,10,5¢,14
T17:
#340,PS
MoV
#10, ICOUNT
MOV
MoV
#5% ,ESCAPE
<1$>
JIF N8
#14 FREEZ1
Moy

.ENDC
AN=XN+1

MOV
MOV

#16.R5
#2000, R0

MOV
MOV
MOV
MOV

006270

MOV
CLR

Mov

#15,R1
#1,R4
o-1,TIMEL
48IT11,80HSCR
R5,80HSCR
SOHBA

006346
006242

MOV
CLR
CLR
MOV
MOV

RO, 8DHLPR
TIME2
TEMPL
€10, TEWP2
#40000, SDHBAR

18T

SOHSCR

BMI
INC
INC
BNE
DEC
BNE
MY
3,14
o
P
8Lo0

34
TIME2
TEMPL
24
TEMP2
24
1
1

49
TIME2, TIMEL
44

HY
EMY

2
2

006406
006276

14:

24:

006322
006320
006314

006276

006272

34:

104002
104410
016767
005204
062700
003301
001317
104400
000017
100000

006262

002000

006256

:
44

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

1 3

sLINE 16 WILL BE TESTED
sCONSTANT FOR SELECTION
10F INITIAL (LOWEST) SPEED
115 DIFFERENT SPEEDS WILL BE TESTED
1BINARY CODE FOR INITIAL SPEED
1 INITIALIZE COMPARISION VALUE

sCLEAR INTERFACE
+SELECT LINE 16 FOR TESTING
sCLEAR BUS ADDRESS
1SET UP TO TRANSMIT
+3 CHARACTERS
$SELECT LINE SPEED
1CLEAR TRANSMITTER TIME TIMER
1SET UP NO CLOCK TIMER
1SET BAR BIT FOR LINE 16
1TO START TRANSMISSION
iWAIT FOR TRANSMITTER
17O FINISH
1UPDATE TRANSMITTER TIMER
tUPDATE NO CLOCK TIMER

1 TRANSHITTER OID NOT FINISH, ERROR
IVERIFY THAT TRANSMITTER
tWAS FASTER AT THIS SELECTED SPEED

1(NUMBER OF COUNTS IN TIME2
1LESS THAN TIMEL)
1 TRANSMITTER TIMING ERROR FOR
sLINE 16

SCOPEL
1CHECK FOR FREEZE ON CURRENT DATA
TIME2, TIMEL
MOV
1SET UP FOR NEXT COMPARISION
INC
R4
$SELECT NEXT SPEED
ADD
#2000,R0
R1
DEC
BNE
14
Se:
SCOPE
1CHECK FOR ITERATIONS, LOOP
LINE=LINE.1
BITX=BITX+BITX
SPEED
\LINE,\BITX,3,¢t//,2000,*/TRANSMITTER/

-«

C20HD
- 00

MACRO VO4.00

27 JUN-B8S 12:54:12 PAGE

SEQ 40

19-16

s TRANSMITTER LINE SPEED SELECTION TEST
t TRANSHIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 17
iVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED
tVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
tAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
005616
005616
005624
005632

005640

012767
012767
012767
012767

000340
000010
006036

172152
006172
006160

005674

006154

005646
005652

000021
012705
012700

005656
005662
005666
005674
005702
0CS5706
005712

012701
012704
012767
012777
010577
005077
012777

000015
000001
177777
004000
006050
006052

005720
005724
005730
005734
005742

010077
005067
005067
012767
012777

006036
006132
006130
000010

005750

005777

005754
005756
005762
005766
005770
005774
005776
005776

100412
005267
005267
001370
005367
001365

006002
005010

104001
000405
026767
103401

006012
006012

104002

006014
006016
006024
006026
006032
005034
006036

104410
016767
005204
062700
0057731
001317
104400

000017
002000

1777715

100000

TS \XN,10,5%,1%
T20:
MOV
MOV

IF N8
.ENDC
XN=XN+1

MOV

#340,PS
€10, ICOUNT
954 ,ESCAPE

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

MOV

918 ,FREEZL

sSET UP TO LOOP WITH DATA

MOV

07,R5
#2000,R0

<19

MOV

006164
006054

MOV
MOV
MOV

#15,R1
#1,R4

MoV
MoV

006046

CLR
MoV

#BIT11,8DHSCR
R3, 80HSCR
SOHBA

006124
006020

Mav
CLR
CLR
MOV
MOV

RO, SDHLPR
TIMER2
TEWPL

006002

13:

2s:

€10, TEMP2
2100000, SOHBAR

187

SOHSCR

006100
006076

8Ml
INC
INC

006072

DEC

34
TIME2
TEMPL
23
TEWP2
23
1
1

T
enY
006054

006050

3s:

CHe

BLO

006040

00603«

SCOPEL

S$:

INC
ADD
DEC
BNE
SCOPE

002000

sLINE 17 WILL BE TESTED

;CONSTANT FOR SELECTION
;OF INITIAL (LOWEST) SPEED
;15 DIFFERENT SPEEDS WILL BE TESTED
:BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
;SELECY LINE 17 FOR TESTING
sCLEAR BUS ADDRESS
sSET UP TO TRANSMIT
;3 CHARACTERS

;SELECT LINE SPEED
;CLEAR TRANSMITTER TIME TIMER
:SET UP NO CLOCK TIMER

;SET BAR BIT FOR LINE 17

:70 START TRANSMISSION

;WAIT FOR TRANSMITTER
;TO FINISH

;UPDATE TRANSMITTER TIMER
tUPDATE NG CLOCK TIMER

; TRANSMITTER DID NOT FINISH,

ERROR

TIME2, TIMEL
43

HLT
EMT
4%:

TIMER2, TIMEL
R4
#2000, R0
f1
13

;VERIFY THAT TRANSMITTER

tWAS FASTER AT THIS SELECTED SPEED
s(NUMBER OF COUNTS IN TIME2
1LESS THAN TIMEL)
; TRANSMITTER TIMING ERROR FOR
sLINE 17
:CHECK FOR FREEZE ON CURRENT DATA
$SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

1CHECK FOR ITERATIONS, LOOP

CZDHD DO

MACRO VO4.00

27-JUN-85

000020
000000
000020
000000
000000
000001
000020

12:54:12 PAGE

SEQ 41

19-17

LINE=LINE.}
BITX=BITX+BITX
XLINE=LINE

LINE=OQ
XBIT=BITX
BITX=1
.REPT
20
\LINE,.\BITX,1,t/B/,2100, t/RECEIVER/
SPcED
.NLIST
LINE=LINE+]1
BITX=BITX+BITX
.LIST
.ENDR
\LINE,\BITX,1,t/B/,2100, t/RECEIVER/
SPEED

006040

;RECEIVER LINE SPEED SELECTION TEST
i TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE O
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
iVERIFY THAT THE AMOUN GF TIME TAKEN IS LESS
:AT THIS SPEED THAN AT THE PREVIGUSLY SELECTED SPEED
006040
006040

012767
012767
012767

000340
000010

006260

171730
005750
005736

012767

006116

005732

006070
006074

000022
012705
012700

000000
002100

006100
006104
006110
006116
006124
006130
006134

012701
012704
012767
012777
010577
005077
012777

107n
004000
005626
005630
177777

006142
006146
006152
006156
005164

010077
005067
005067
012767
012777

005614
005710
005706
000010
000001

006172

105777

005560

006176
006200
006204
006210
006212
006216
006220
005220

100412
005267
005267
001370
005367
001365

006054

006222

104001
000405

000015
000001

005656
005654
005650

TS \XN,10,5%,1¢
T21:
MOV
#340,PS
MoV
#10, ICOUNT
H?!
954 ,ESCAPE
<
>
.IF N8

-ENDC
XN=XN+1

HovV

#1$ ,FREEZ}

MOV

#0.R5

MoV

#2100,.R0

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

;:SET UP TO LOOP WITH DATA
;LINE O WILL BE TESTED

sCONSTANT FOR SELECTION
10F INITIAL (LOMEST) SPEED

005624

MOV
MoV
MOV
MoV
MOV
CLR
Mov

15,R1
#1.R4
*-1,TIMEL
#BIT11,80HSCR
RS, 8DHSCR
SDHBA
¢-1,80H8C

005702
005576

MOV
CLR
CLR
MOV
MoV

RO, SDHLPR
TN 2
TEMPL
410, TEMP2
#1,8DHBAR

;SELECT LINE SPEED
:CLEAR RECEIVER TIME TIMER
;SET UP NO CLOCX TIMER

TS78

SDHSCR

:WAIT FOR RECEIVER

BMI
INC
INC
BNE
DEC
BNE
HLY
EMT

34
TIME2
TEMPL
24
TEMP2
24
1
1

005742
005632

1s:

2%:

B8R

; 3

+15 DIFFERENT SPEEDS WILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE
sCLEAR INTERFACE
sSELECT LINE O FOR TESTING
:CLEAR BUS ADDRESS
:SET UP TO TRANSMIT

11 CHARACTERS

:SET BAR BIT FOR LINE ©

;7O START TRANSMISSION

:T0 FINISH

;UPDATE RECEIVEP TIMER
;UPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH.

ERROR

CZDHD-DO

006224
006232

006234
006234
006236
006240
006246
006250
006254
006256
006260

006262

MACRO VO4.00

026767
103401

005632

005626

33:

016767

005204
062700
005301
001317
104400
000001

cHp
BLO

TIME2, TIMEL
44

005616

005612

002100

000002

SCOPEL

MOV

INC
ADD
OEC
BNE
Ss:
SCOPE
LINE=LINE.1

sVERIFY THAT RECEIVER

tWAS FASTER AT

THIS SELECTED SPEED

s (NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
sRECEIVER TIMING ERHOR FOR

HLT
EMT

104002

104410

SEQ 42

27 JUN-85 12:54:12 PAGE 19-18

TIMEZ2, TIMEL
R4
92100,R0
R1

iLINE O
;CHECK FOR FREEZE ON CURRENT DATA
:SET UP FOR NEXT COMPARISION
sSELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

BITX=BITX+B8ITX
\LINE.\BITX,1,t/B/,2100, t/RECEIVER/
SPEED

006262

012767
012767
012767

000340
000010
006502

171506
005526
005514

012767

006340

005510

000023
012705

012700

000002
002100

012701
012704
012767
012777
010577
005077
012777

000015
000001
177777
004000
005404
005406
177777

010077
005067
005067
012767
012777

005372
005466
005464
000010
000002

105777

005336

100412
005267
005267
001370
005367
001365

005434
005432

005426

TS \XN,10,5¢,1$
T22:
MOV
MOV
MOV
IF NB
18>
MoV
.ENDC
XN=XN+1
MOV
MoV

#340.PS
€10, ICOUNT
€58 ,ESCAPE

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

#13,FREE2]

sSET UP TO LOOP WITH DATA

#1.R5
#2100,R0

#15,R1
41 .R4

;LINE 1 WILL BE TESTED

;CONSTANT FOR SELECTION

;0F INITIAL (LOMEST) SPEED
:15 DIFFERENT SPEEDS WILL BE TESTED

005402

MOV
MOV
MoV
MOV
Moy
CLR
MOV

005460
005354

MOV
CLR
CLR
Moy
MOV

2, SDHBAR

sSET BAR BIT FOR LINE 1

7578

SOHSCR

sWAIT FOR RECEIVER

BMI
INC
INC
BNE
0EC
BNE

3
TIME2
TEMPL
2
TEMP2
24

005520
005410

1s:

24:

#BIT11,80HSCR
RS, 80HSCR
SOHBA
RO, 9DHLPR
TIMEZ
TEMPL
€10, TEMP2

;BINARY CODE FOR INITIAL SPEED

;INITIALIZE COMPARISION VALUE

iCLEAR INTERFACE
;SELECT LINE 1 FOR TESTING
;:CLEAR BUS ADDRESS
;SET UP TO TRANSMIG
;1 CHARACTERS
;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER

;TO START TRANSMISSION

;TO FINISH

;UPDATE RECEIVER TIMER

;UPDATE NO CLOCK TIMER

;RECEIVER LINE SPEED SELECTION TEST
: TRANSMIT 1 CHARACTERS AT A SELECTCD SPEED ON LINE 1
:VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED

CZDHD-00
006442
006442
06444
006446
006454

006456
006456

006460
006462
006470
006472
006476
006500
006502

006504

MACRO VO4.00

104001
000405
026767
103401

HLY
EMT

005410

005404

3s:

B8R

CHP
8LO

HLT

104002
104410
016767
005204
062700
005301
001317
104400
000002
000004

EMT

005374

SEQ 43

27-JUN-85 12:54:12 PAGE 19-19

005370

002100

4%:

1
1

{RECEIVER DID NOT FINISH,

TIME2, TIMEL
43

;VERIFY THAT RECEIVER
iWAS FASTER AT THIS SELECTED SPEED

ERROR

:(NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
sRECEIVER TIMING ERROR FOR
;LINE 1

SCOPEL

;CHECK FOR FREEZE ON CURRENT DATA

MOV
TIME2, TIMEL
sSET UP FOR NEXT COMPARISION
INC
R4
sSELECT NEXT SPEED
ADD
#2100,Re
DEC
R1
BNE
1s
5%
SCOPE
;CHECK FOR ITERATIONS, LOOP
LINE=LINE+1
BITX=BITX+BITX
SPEED \LINE,\BITX,1,t/B/,2100, v/RECEIVER/

;RECEIVER LINE SPEED SELECTION TEST
i TRANSMIT 1 CHARACTERS AT A SELECTEC SPEED ON LINE 2
:VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
:VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
006504
006504
006512
006520

012767
012767
012767

000340
000010
006724

171264
005304
005272

006526

012767

006562

005266

006534
006540

000024
012705
012700

000002
002100

006544
006550
006554
006562
006570
006574
0U6600

012701
012704
012767
012777
010577
005077
012777

000015
000001
177777
004000
005162
005164
1777717

006606
006612
006616
006622
006630

010077
005067
005067
012767
012777

005150
005244
005242
000010
000004

006636

105777

005114

006642
005644
006650

100412
905267
005267

005212
005210

TS \XN,10,5¢,1%
T23:
MOV
4340,PS

MOV
MOV
<18
MOV

#10, ICOUNT
58 ,ESCAPE

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

#1% ,FREEZ1

;SET UP TO LCOP MITH DATA

MOV
HOV

#2.R5
#2100,R0

005160

MOV
MOV
MOV
MoV
il
CLR
MOV

#15,R1
#1,R4
*-1,TIMEL
#8IT11,80HSCR
RS, 8DHSCR
SOHBA
#-1,80H8C

;15 DIFFERENT SPEEDS MWILL BE TESTED
;:BINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
sSELECT LINE 2 FOR TESTING
:CLEAR BUS ADDRESS
sSET UP TO TRANSMITY

005236
005122

MoV
CLR
CLR
MOV
MOV

RO, SOHLPR
TIME2
TEMP1
#10, TEMP2
44, GDHBAR

;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
:SET UP NO CLOCK TIMER
:SET BAR BIT FOR LINE 2

1s78

S0HSCR

sWAIT FOR RECEIVER

8MI
INC
INC

33
TIMER
TEMPL

IF NB

.ENDC

XN=XN+1

005276
005166

1s:

2%:

;i 3

:LINE 2 WILL BE TESTED
sCONSTANT FOR SELECTION

;OF INITIAL (LOWEST) SPEED

;1 CHARACTERS

17O START TRANSMISSION

;sTO FINISH

;UPDATE RECEIVER TIMER
;UPDATE NO CLOCK TIMER

CZDHD -00
006654
006656
006662
006664
006664
006666
006670
006676

006700
006700
006702
006704
006712
006714
006720
006722
006724

006726

MACRO V04.00

001370
005367
001365

104001
000405
026767
103401

005204

005166

005162

3%:

BNE
DEC
BNE
HLT
EMT
BR

24
TEMP2
24
1
1
43

8LO

CcHP

HLT
EMT

104002
104410
016767
005204
062700
005301
001317
104400
000003
000€10

005152

SEQ 44

2/-JUN-85 12:54:12 PAGE 19-20

005146

4s:

002100

S§:

SCOPE1
MOV
INC
ADD

OEC
BNE

SCOPE

TIME2, TIMEL

2
2

;RECEIVER DID NOT FINISH,

ERROR

:VERIFY THAT RECEIVER

iWAS FASTER AT THIS SELECTED SPEED

;(NUMBER OF COUNTS IN TIME2
;LESS THAN TIME1)
sRECEIVER TIMING ERROR FOR

sLINE 2

fIME2, TIMEL
R4
#2100,R0
R1

;CHECK FOR FREEZE ON CURRENT DATA
:SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX,1,t/8/,2100,t/RECEIVER/

;RECEIVER LINE SPEED SELECTION TEST
s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 3
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
+AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
006726
006726
006734
006742

012767
012767
012767

000340
000010
007146

171042
005062
005050

006750

012767

007004

005044

006756
006762

000025
012705
012700

000003
002100

006766
006772
006776
007004
007012
007016
007022

012701
012704
012767
012777
010577
005077
012777

000015
000001
1777717
004000
004740
004742
1mmnrn

007030
007034
007040
007044
007052

010077
005067
005067
012767
012777

004726
005022
005020
000010
000010

007060

105777

004672

TS \XN,10,5%,14
T24:
MOV
MoV
mav
IF NB
<1$>
MOV
.ENDC
XN=XN+1

MOV

MOV
1oV
MOV

#340,PS
€10, ICOUNT
454 ,ESCAPE

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

914 ,FREEZ1

:SET UP TO LOOP WITH DATA

€3.R5

#2100,R0

:LINE 3 WILL BE TESTED

:CONSTANT FOR SELECTION

;0F INITIAL (LOWEST) SPEED

#15,R1
¢1.R4

:15 DIFFERENT SPEEDS WILL BE TESTED
;BINARY CODE FOR INITIAL SPEED

004736

MOV
MoV
CLR
MOV

#8IT11,80HSCR
R5,8DHSCR
S0HBA
#-1,80H8C

;CLEAR INTERFACE
;SELECT LINE 3 FOR TESTING
;:CLEAR BUS ADDRESS
;SET UP TO TRANSMIT

005014
004710

MCV
CLR
CLR
Moy
MoV

RO, 8DHLPR
TIME2
TEMPL
410, TEMP2
910, BOHBAR

;SET BAR BIT FOR LINE 3

1518

80HSCR

:WAIT FOR RECEIVER

005054
004744

1%:

24:

MoV

o-1,7TIMEL

;INITIALIZE COMPARISION VALUE

;1 CHARACTERS
;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER

;TO START TRANSMISSION

:TO FINISH

CZPHD -DO
007064
007066
007072
007076
007100
007104
007106
007106
007110
007112
007120

MACRO V04.00
100412
005267
005267
001370
005367
v01365
104001
000405

026767
103401

004770
004766
004762

004744

SEQ 45

27-JUN-85 12:54:12 PAGE 19-21

004740

3%:

BMI
INC
INC
BNE
DEC
BNE
HLY
EMT
BR
CHP
8LO

3
TIME2
TEMP1
2
TEMP2
23
1
1
44
TIME2, TIMEL
43

;UPDATE RECEIVER TIMER
;UPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH,

ERROR

;VERIFY THAT RECEIVER
;WAS FASTER AT THIS SELECTED SPEED

007122
007122

007124
007126
007134
007136
007142

007144

007146
007150

HLT
EMT

104002
104410
016767
005204
062700
005301
001317
104400
000004
000020

004730

004724

4%:

002100

S5%:

SCOPE1L
MOV
INC
ADD

DEC
BNE

SCOPE

; (NUMBER OF COUNTS IN TIME2

TIME2, TIMEL
R4
#2100,R0
R1
14

sLESS THAN TIMEL)
sRECEIVER TIMING ERROR FOR

sLINE 3
;ChECK FOR FREEZE ON CURRENT DATA
:SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX.1,t/8/,2100, t+/RECEIVER/

;RECEIVER LINE SPEED SELECTION TEST
: TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 4
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS

;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
007150
007150
007156
007164

012767
012767
012767

000340
000010
007370

170620
004640
004626

007172

012767

007226

004622

007200
007204

000026
012705
012700

000004
002100

007244

012701
012704
012767
012777
010577
005077
012777

000015
000001
1mmmn
004000
004516
004520
177717

007252
007256
007262
007266
007274

010077
005067
005067
012767
012777

004504
004600
004576
000010
000020

007210
007214
007220
007226

007234
007240

004632
004522

TS \XN,10,5¢.1¢
T25:
MOV
#340,.PS
#10, ICOUNT
MoV
MoV
#54% ,ESCAPE
<1%$>
.IF N8
#14,FREEZ1
MoV
.ENDC
XN=XN+1
MOV
#4 .RS
MOV
#2100,R0

1s:

MOV

#15,R1
¢1,R4
¢-1,TIMEL

#81IT11,8DHSCR

004514

R3,80HSCR
SO0HBA
#-1,80H8C

004572
004466

RO, BDHLPR
TIME2
TEMP1
€10, TEMP2
€20, 8DHBAR

;:DISABLE ALL INTERRUPTS
;SET UP FOR 10 XTERATIONS
;SET UP TO ESCAPE TO NEXT TEST
;SET UP TO LOOP WITH DATA
:LINE 4 WILL BE TESTED
sCONSTANT FOR SELECTION

i 3

;OF INITIAL (LOWEST) SPEED
;15 DIFFERENT SPEEDS WILL BE TESTED

1BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
;SELECT LINE 4 FOR TESTING
sCLEAR BUS ADDRESS
:SET UP TO TRANSMIT
+1 CHARACTERS
:SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER
;SET BAR BIT FOR LINE 4

C2Z0HD-DO

MACRO V04.00

007302

105777

007306
007310
007314
007320
007322
007326
007330
007330
007332
007334
007342

100412
005267
005267
001370
005367
001365

104001
000405
026767
103401

007344
007344

104002

007346
007350
007356
007360
0C7364
007366
007370

007372

104410
016767

005204
062700
005301
001317

004450

2%:

004546
004544

TS18

S0HSCR

BMI
INC

HLT
EMT
BR
CMP
BLO

34
TIME2
TEMPL
24
TEMP2
2
1
1
44
TIME2, TIMEL
4%

HLT

INC
BNE
DEC
BNE

004540

004522

004516

3%:

EMT

004506

SEQ 46

27-JUN-8S 12:54:12 PAGE 19-22

004502

002100

104400

5§$:

000005
000040

SCOPE1
MOV

INC
ADD
DEC
BNE

SCOPE

TIME2, TIMEL

R4
#2100,R0
R1
1

;TO START TRANSMISSION
;WAIT FOR RECEIVER
;TO FINISH
:UPDATE RECEIVER TIMER
:UPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH, ERROR

s VERIFY THAT RECEIVER
;WAS FASTER AT THIS SELECTED SPEED
i (NUMBER OF COUNTS IN TIME2
;LESS THAN TIME1)
;RECEIVER TIMING ERROR FOR

;LINE 4
;CHECK FOR FREEZE ON CURRENT DATA
:SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SPEED \LINE,\BITX,1,t/B/,2100, t/RECEIVER/

;RECEIVER LINE SPEED SELECTION TEST
s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE S
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
tAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
007372
007372
007400

007406

012767
012767
012767

000340
000010
007612

170376
004416
004404

007414

012767

007450

004400

007422
007426

000027
012705
012700

090005
002100

007432
007436
007442
007450
007456
007462
007466

012701
012704
012767
012777
010577
005077
012777

000015
000001
177777
004000
004274
004276
177777

007474
007500

010077
005067

004262
004356

TS \XN,10,54,1%
T26:
MoV
MOV
MOV
JOF N8B
<1$>
ENOC
MOV

XN=XN+1

004410
004300
004272

1$:

MOV
MOV

#340.PS
#10, ICOUNT
454 ,ESCAPE

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

#1$ FREEZ}

;SET UP TO LOOP WITH DATA

#5,R5
92100,R0

MOV
MoV
MOV
MOV
MOV
CLR
Mov

#15,R1
#1.,R4
4-1,TIMEL
#8IT11,8DHSCR
RS, 8DHSCR
S0HBA
@-1,80H8C

MOV
CLR

RO, 8DHLPR
TIMEZ

i 3

;LINE 5 WILL BE TESTED

;CONSTANT FOR SELECTION

;0F INITIAL (LOWEST) SPEED
;15 DIFFERENT SPEEDS WILL BE TESTED
sBINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE

;CLEAR INTERFACE
;SELECT LINE 5 FOR TESTING
;CLEAR BUS ADDRESS
;SET UP TO TRANSMIT
i1 CHARACTERS
;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER

CZDHD-DO

MACRO V04.00

007504
007510
007516

005067
012767
012777

004354
000010
000040

007524

105777

004226

007530
007532
007536

007550

100412
005267
005267
001370
005367
001365

007554
007556
007564

104001
000405
026767
103401

007542
007544

007552
007552

007566
007566
007570
0C7572
007600
007602
007606
007610
007612

007614

004350
004244
2%:

004324
004322
004316

004300

004274

CLR
MOV
MoV

TEMP1
€10, TEMP2
#40, 80HBAR

:SET BAR BIT FOR LINE S

TSTB

S0HSCR

:WAIT FOR RECEIVER

B8MI

INC
INC
BNE
DEC
8NE
HLT
EMT
BR

TIME2
TEMPL
2%
TEMP2
23
1
1
44

8LO

CcMp

HLY
EMT

104002
104410
016767
005204
062700
005301
001317
104400
000006
000100

004264

SEQ 4~

27-JUN-85 12:54:12 PAGE 19 23

004260

4%:

002100

SCOPE1
MOV
INC
ADD

OEC
BNE
SCOPE

TIME2, TIMEL

2
2

TIME2, TIMEL
R4
#2100,R0
R1
14

$SET UP NO CLOCK TIMER

:TO START TRANSMISSION

;TO FINISH

:UPDATE RECEIVER TIMER
;UPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH,

ERROR

;VERIFY THAT RECEIVER

iWAS FASTER AT THIS SELECTED SPEED

: (NUMBER OF COUNTS IN TIME2
;LESS THAN TIME1)

sRECEIVER TIMING ERROR FOR

;LINE 5

;CHECK FOR FREEZE ON CURRENT DATA
;SET UP FOR NEXT COMPARISION
:SELECT NEXT SPEED

S$:
;CHECK FOR ITERATAONS,
LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX,1,t/8/,2100, t/RECEIVER/

LOOP

;RECEIVER LINE SPEED SELECTION TEST
s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 6
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THME AMGUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
007614
007614
007622
007630

012767
012767
012767

000340
000010
010034

004174
004162

007636

012767

007672

004156

G00030
012705
012700

000006
002100

007644
007650

007654
007660
007664
007672
007700
007704
007710

012701
012704
012767
012777
010577
005077
012777

000015
000001
17nmn
004000
004052
004054
1177177

170154

TS \XN,10.5¢,1%
127:
MOV
#340,PS
IF N8B

.ENDC

XN=XN+1

MoV
Mov
<19>
Mov

#10, ICOUNT
454 ,ESCAPE

MOV

#6,.R5

MoV

MOV

004166
004056

004050

1s:

HOV
MOV
MOV
MOV
CLR
MoV

#13 FREEZY

#2100,R0

#15,R1

&1 ,R4
*-1,TIMEL
BIT11,80HSCR
RS ,80HSCR
S0HBA
¢-1,80H8C

:DISABLE ALL INTERRUPTS

:SET UP FOR 10 ITERATIONS
{SET UP TO ESCAPE TO NEXT TESY
:SET UP TO LOOP MITH DATA

;LINE 6 WILL BE TESTED

;CONSTANT FOR SELECTION

;OF INITIAL (LOWEST) SPEED

i15 DIFFERENT SPEEDS WILL BE TESTED

;BINARY CODE FOR INITIAL SPEED
s INITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
;SELECT LINE 6 FOR TESTING
sCLEAR BUS ADDRESS
tSET UP TO TRANSMIT

CZDHD-DO

007716
007722
007726
007732
007740

MACRO v04.00

010077
0050€7
005067
012767
012777

007746

105777

007752
007754
007760
007764
007766
007772
007774
007774
007776
010000
010006

100412
005267
005267
001370
005367
001365

010010
010010
010012
010014
010022
010024
010030
010032
010034

010036

104001
000405
026767
103401

004040
004134
004132
000010
000100

MOV
CLR
CLR
MOV
MOV

004126
004022

004004

2%:

004102

004100

004074

004056

004052

3s:

004042

004036

43 :

002100

5%:

RO, 8DHLPR
TIME2
TEMP1
410, TEMP2
€100, 80HBAR

1818

SDHSCR

BMI
INC
INC
BNE
DEC
BNE
HLT
EMT
BR
cMP
BLO

3
TIME2
TEMPL
23
TEMP2
24
1
1
43
TIME2, TIMEL
44

T
EMT

104002

104410
016767
005204
062700
005301
001317
104400
000007
000200

SEQ 48

27-JUN-85 12: 54:12 PAGE 19-24

SCOPEL

MoV

INC
ADD
DEC
BNE

SCOPE

P-4
2

TIME2, TIMEL

R4
€2100,R0
R1
1s

;1 CHARACTERS

;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER

;SET BAR BIT FOR LINE 6

sTO START TRANSMISSION

;WAIT FOR RECEIVER

;TO FINISH

;UPDATE RECEIVER TIMER
;sUPDATE NO CLOCK TIMER

sRECEIVER DID NOT FINISH,

ERROR

;VERIFY THAT RECEIVER
;WAS FASTER AT THIS SELECTED SPEED

; (NUMBER OF COUNTS IN TIME2
:LESS THAN TIMEL)
sRECEIVER TIMING ERROR FOR

sLINE 6
;CHECK FOR FREEZE ON CURRENT DATA

:SET UP FOR NEXT COMPARISION

sSELECT NEXT SPEED

sCHECK FOR ITERATIONS, LOOP

LINE=LINE.L
BITX=BITX+BITX
SPEED
\LINE,\BITX,1,t/8/,2100, t/RECEIVER/

sRECEIVER LINE SPEEL SELECTION TEST
s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 7
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
+AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
010036
010036
010044
010052
010060

010066
010072
010076
010102
010106
010114

012767
012767
012767

000340
000010
010256

167732
003752
003740

012767

010114

003734

000031
012705
012700

000007
002100

012701
012704

012787
012777

000015
000001
1771777
004000

003744
003634

TS \XN,10,5¢,18

130:

IF NB
.ENDC
XN=XN+1

1%:

MoV
MoV

#340,.PS
410, ICOUNT

sDISABLE ALL INTERRUPTS
:SET UP FOR 10 ITERATIONS

MoV

€18 ,FREEZL

$1SET UP TO LOOP WITH DATA

MOV
MOV

#7.RS
#2100,R0

MoV
MoV
MOV
MOV

#15.R1
#1,R4
-1, TIMEL
#B81IT11,8DHSCR

MOV
<18

#54 ESCAPE

;SET UP TO ESCAPE TO NEXT TEST

: 3

sLINE 7 WILL BE TESTED
;CONSTANT FOR SELECTION

sOF INITIAL (LOMEST) SPEED

115 DIFFERENT ¢ €EDS WILL BE TESTED
:BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
;CLEAR INTERFACE

CZO0HD-DO

MACRO VO4.00

010122
010126
010132

010577
005077
012777

003630
003632
177777

010140
010144
010150
010154
010162

010077
005067
005067
012767
012777

003616
003712
003710
000010
000200

010170

105777

003562

010174
010176
010202
010206

100412
005267
005267
001370

010210
010214
010216
010216

010220

010222
010230

010232
010232
010234
010236
010244
010246
010252
010254
010256

010260

005367
001365

000405

003626

R5,8DHSCR
SOHBA
°-1,80H8C

;SELECT LINE 7 FOR TESTING
;CLEAR BUS ADDRESS
1SET UP TO TRANSMIT

003704
003600

MOV
CLR
CLR
MOV
MOV

RO, 8DHLPR
TIME2
TEMPL
€10, TEMP2
€200, 8DHBAR

;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER

TST8

SOHSCR

sWAIT FOR RECEIVER

8MI

INC
INC
BNE
DEC
BNE

TIME2
TEMPL
24
TEMP2
23

;+UPDATE RECEIVER TIMER
;sUPDATE NO CLOCK TIMER

HLT
EMT

+RECEIVER DID NOT FINISH,

B8R

1
1

cMP
8Lo

TIME2, TIMEL
L %)

;:VERIFY THAT RECEIVER
;MAS FASTER AT THIS SELECTED SPEED

2%:

003652

003630

3$:

HLT
EMT

104002

104410
016767
005204
062700
005301
001317
104400
000010
000400

003620

SEQ 49

MOV
CLR
MOV

003660
003656

003634

27-JUN-85 12:54:12 PAGE 19-25

104001

026767
10340%

003614

002100

2
2

+1 CHARACTERS

;SET BAR BIT FOR LINE 7

;7O START TRANSMISSION
;7O FINISH

ERROR

: (NUMBER OF COUNTS IN TIME2

;LESS THAN TIMEL)
;RECEIVER TIMING ERROR FOR

;LINE 7

SCOPEL
;CHECK FOR FREEZE ON CURRENT DATA
MoV
TINE2, TIMEL
;SET UP FOR NEXT COMPARISION
INC
R4
1SELECT NEXT SPEED
ADD
42100,R0
DEC
Ry
8NE
14
Ss:
SCOPE
;CHECK FOR ITERATIONS. LGOP
LINE=L.INE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX,1,t/8/,2100,t/RECEIVER/

sRECEIVER LINE SPEED SELECTION TESY
;TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 10
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
sVERIFY THAT THE AMOUN OF TIME TAKEN 1S LESS

:AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
010260
010260
010266
010274

012767
012767
012767

000340
000010
010500

167510
003530
003516

TS \XN,10,5%,18
T31:
MOV
9340,PS
MOV
#10, JCOUNT
IF e
Hgg
954 ,ESCAPE
.

010302

012767

010336

010310
010314

000032
012705
012700

000010
002100

010320

012701

000015

003512

ENoC
XN=XN+1

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

MOV

#13 ,FREEZ2L

MoV
MoV

#10,R5
#2100,R0

MOV

#15,R4

«SET UP TO LOOP WITH DATA

i 3

sLINE 10 WILL BE TESTED
;CONSTANT FOR SELECTION

;OF INITIAL C(LOWEST) SPEED

:+15 OIFFERENT SPEEDS WILL BE TESTED

MACRO V04.00

010324
010330
010336
010344
010350
010354

012704
012767
012777
010577
005077
012777

000001
1777717
004000
003406
003410
vrmn

010362
010366
010372
010376
010404

010077
005067
005067
012767
012777

003374
003470
003466
000010
000400

010412

105777

003340

910416
010420
010424
010430
010432
010436
010440
010440
010442
010444
010452

100412
005267
005267

104001
000405
026767
103401

010454
010454

104002

010456
010460
010466
010470
010474
010476
010500

010502

001370
005367
001365

104410
016767
005204
062700
005301
001317
104400
000011
001000

003522
003412

1%:

MoV
MoV
MOV
MOV

CLR
MOV

003404

MOV

003462
003356

2%:

003436

003430

003406

34:

1.R4
-1, TIMEL

#BIT11,8DHSCR
RS, 80HSCR
SOHBA
#-1,80H8C

MOV
MOV

RO, 8OHLPR
TIME2
TEMP1
€10, TEMP2
9400, 83DHBAR

TST8

S8OHSCR

8MI
INC
INC
BNE
OEC
BNE
HLT
EMT
BR
cHp
BLO

34
TIME2
TEMP1
29
TEMP2

CLR
CLR

003434

003412

24
1
1

44
TIME2, TIMEL
43

H
EnMY
003376

SEQ 50

27-JUN-85 12:54:12 PAGE 19-26

003372

002100

s T

CZ0HD-DO

1BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
sCLEAR INTERFACE

sSELECT LINE 10 FOR TESTING
sCLEAR BUS ADDRESS
+:SET UP TO TRANSMIT
i1 CHARACTERS
;SELECT LINE SPEED
sCLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER
:SET BAR BIT FOR LINE 10
:TO _START TRANSMISSION

;WAIT FOR RECEIVER

:TO FINISH

;UPDARTE RECEIVER TIMER
;UPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH, ERROR
;VERIFY THAT RECEIVER
iWAS FASTER AT THIS SELECTED SPEED
:(NUMBER OF COUNTS IN TIME2
sLESS THAN TIMEL)
sRECEIVER TIMING ERROR FOR

iLINE 10

43;

SCOPEL
:CHECK FOR FREEZE ON CURRENT DATA
TIME2, TIMEL
Hov
:SEY UP FOR NEXT COMPARISION
R4
INC
:SELECT NEXT SPEED
ADD
#2100,R0
R1
DEC
BNE
14
Ss:
SCOPE
sCHECK FOR ITERATIONS, LOOP
LINE=LINE+1
BITX=BITX+BITX
SPEED
\LINE,\BITX.1,t/8/,2100, t/RECEIVER/

;RECEIVER LINE SPEED SELECTION TESY
s TRANSMIT 1 CHARACTERS AT A SELECTED SFEED ON LINE 11

i VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED

tVERIFY THAT THE AMOUN OF TIME TAXKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
010502
010502
010510
010516

012767
012767
012767

000340
000010
010722

167266
003306
003274

010524

012767

010560

003270

010532

000033
012705

000011

TS \XN,10,5¢,1%
T32:
#340,PS
MoV
#10, ICOUNT
MoV
MoV
#54,ESCAPE
[$%
3)
.IF N8B
#14,FREEZL
MOV
.ENDC

XN=XN+1

MOY

#11,.R5

sDISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS
iSET UP TO ESCAPE TO NEXT TEST
:SET UP TO LOOP WITH DATA
;LINE 11 WILL BE TESTED

1 3

01053¢

MACRO VO4.00

012700

010542
010546
010552
010560
010566
010572
010576

012701
012704
012767
012777
010577
005077
012777

010604
019610

010077
005067

002100

000015
000001

11mn
004000
003164
003166
117777

010620
010626

005067
012767
012777

003152
003246
003244
000010
001000

010634

105777

003116

010640
010642
010646
10652
010654
010660
010662
010662
010664
010666
010674

100412
005267
005267
001370
005367
001365

010614

010676
010676

010700
010702
010710

010712
010716

010720
010722
010724

104001
000405
026767
103401

MOV

003300
003170

1s:

003162

003240
003134

003206

003164

3%:

104410
016767
005204
062700
005301
001317
104400
000012
002000

115 DIFFERENT SPEEDS WILL BE TESTED
1BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
sCLEAR INTERFACE
+SELECT LINE 11 FOR TESTING
;CLEAR BUS ADDRESS
:SET UP TO TRANSHMIT

HOV

RO, @DHLPR

;SELECY LINE SPEED

003154

003150

4%:

8M1
INC
INC
BNE
OEC
BNE
HLT
EMT
BR
cne
BLO

34
TIME2
TEMPL
24
TEMP2
24
1
1
49
TIME2, TIMEL
4

MOV
INC
ADD
DEC
BNE

S5s:

€10, TEMP2
#1000, SOHBAR

8DHSCR

SCOPEL

002100

TIME2
TEMP1

1518

HLT
EMT

104002

:CONSTANT FOR SELECTION

+OF INITJAL C(LOWEST) SPEED

#15,R1
#1,R4
*-1,TIMEL
#8IT11,80HSCR
R5,80HSCR
SOHBA
-1, 80HBC

MOV
MOV

2s:

#2100,R0

MoV
MOV
MOV
MOV
MOV
CLR
MOV

CLR
CLR

003214
002212

003170

SEQ S1

27-JUN-85 12:54:12 PAGE 19-27

SCOPE

2
2

TIME2, TIMEL

R4
#2100,R0
R1
14

11 CHARACTERS

{CLEAR RECEIVER TIME TIMER
:SET UP NO CLOCK TIMER
;SET BAR 81T FOR LINE 11

;TO START TRANSMISSION

sWAIT FOR RECEIVER

sTO FINISH

sUPDATE RECEIVER TIMER
sUPDATE NO CLOCK TIMER

sRECEIVER DID NOT FINISH,

ERROR

iVERIFY THAT RECEIVER
tWAS FASTER AT THIS SELECTED SPEED

s (NUMBER OF COUNTS IN TIME2
sLESS THAN TIMEL)

tRECEIVER TIMING ERROR FOR

1LINE 11

;CHECK FOR FREEZE ON CURRENT DATA

1SET UP FOR NEXT COMPARISION

sSELECT NEXT SPEED

$CHECK FOR ITERATIONS, LOOP

LINE=LINE.1
BITX=BITX+BITX
SPEED \LINE,\BITX,1,t/8/,2100, t/RECEIVER/

tRECEIVER LINE SPEED SELECTION TEST
1 TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 12
iVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
iVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
010724
010724
010732
010740
010746

012767
012767
012767

000340
000010
011144

167044
003064
003052

012767

011002

003046

TS \XM t0,54,19
T33:
MOV
4340,PS

;

Hov

N8B

MOV
s>
MOV

810, ICOUNT

958 ,ESCAPE

#14,FREEZL

sOISABLE ALL INTERRUPTS

$SEY UP FOR 10 ITERATIONS

;SET UP TQO ESCAPE TO NEXT TEST

1SET UP TO LOOP WITH DATA

1 3

CZ0HD-00

CZoHO -DO

010754
010760

MACRO VO4.00

000034
012705
012700

.ENDC

000015
000001
177777

012777

011026
011032
011036
011042
011050

010077
005067
005067
012767
012777

000010
002000

011056

105777

002674

011062
011064
011070
011074
011076
011102
011104
011104
011106

011110
011116
011120
011120
011122
011124
011132
011134
011140
011142
011144
011146

100412
003267
005267
001370
005367
001365
104001
000405
026767
103401

XN=XN+1

000012
002100

010764
010770
010774
011002
011010
011014
011020

012701
012704
012767
012777
010577
005077

004000

002742
002744
1777177

002730
003024
003022

003056
002746

1$:

002740

003016
002712

2s:

002764

002742

#12.RS
42100,R0

HOV
MoV
MOV

#15,R1
#1.R4
#-1,TIMEL

+15 DIFFERENT SPEEDS WILL BE TESTED
;:BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE

nov
CLR

RS . 9DHSCR
SOHBA

$SELECT LINE 12 FOR TESTING
sCLEAR BUS ADODRESS

RO, 80HLPR
TIME2
TEMPL

sSELECT LINE SPEED
sCLEAR RECEIVER TIME TIMER
$SET UP NO CLOCK TIMER

MoV

MOV
CLR
CLR

002772
002770

002746

MoV
MOV

MOV

002732

002726

002100

5¢:

sLINE 12 WILL BE TESTED
sCONSTANT FOR SELECTION

sOF INITIAL (LOWEST) SPEED

#8IT11,80HSCR

1CLEAR INTERFACE

¢-1,80H8C

MOV
MOV

#10, TEMP2
#2000, SOHBAR

1518

SOMHSCR

8MI
INC
gfi

34
TIME2
;EWI

DEC
BNE
HLY
EMY

TEMP2
24
1
1

$SET UP TO TRANSMIT

s+1 CHARACTERS

$SET BAR BIT FOR LINE 12
sTO START TRANSMISSION

sWAIT FOR RECEIVER

sTO FINISH

sUPDATE RECEIVER TIMER
sUPDATE NO CLOCK TIMER

sRECEIVER DID NOT FINISH, ERROR

B8R

8LO

1MAS FASTER AT THIS SELECTED SPEED
s(NUMBER OF COUNTS IN TIME2

1RECEIVER TIMING ERROR FOR

TIME2, TIMEL

1ILINE 12
1CHECX FOR FREEZE ON CURRENT DATA
$SET UP FOR NEXT COMPARISION

cHe

emY

104002
104410
016767
005204
062700
005301
001317
104400
000013
004000

SEQ Se

27-JUN-85 12:54:12 PAGE 19-28

SCOPE1L
MOV

INC
ADD
DEC
BNE
SCOPE

TIME2.TIMEL

sVERIFY THAT RECEIVER
;LESS THAN TIMEL)

R4
92100,
R0
Rl
14

sSELECT NEXT SPEED

1CHECK FOR ITERATIONS, LOOP

LINE=LINE.1
BITX=BITXBITX
SPEED
\LINE,\BITX,1,t/8/,2100,t/RECEIVER/

sRECEIVER LINE SPEED SELECTION TESY
1 TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 13
sVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS

tAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED

011146
011146
011134

012767
012767

000340
000010

166622
002642

TS \XN,10,58.1¢
T34:

nov
MoV

4340,PS
910, ICOUNT

sOISABLE ALL INTERRUPTS
$SET UP FOR 10 ITERATIONS

——

001550

a—

C20nD
- 00
011162
0l1170

MACRO vO4.00

012767
012767

011366

011224

011176
011202

000035
012705
012700

011206
011212
011216
011224
021232
011236
011242

012701
012704
012767
012777
010577
005077
012777

000015
000001
1777177
004000
002520
002522

011250
011254
011260
011264
011272

010077
005067
005067
012767
012777

002506
002602
002600
000010
004000

011300

105777

002452

011304

100412

005267
005267
001370
005367
001365

011306
011312
011316
011320
011324
011326
011326
011330
011332
011340

104001
000405
026767
103401

011342
011342

104002

011344
011346
011354
011356
011362
011364
011366

011370

104410
016767
005204
062700
005301
001317
104400
000014
010000

27-

UN-85 12:54:12 PAGE

002630

MOV

#54 ,ESCAPE

1SET UP TO ESCAPE TO NEXT TEST

MOV

#18 ,FREEZL

1SET UP TO LOOP WITH DATA

MOV
MOV

¢13,R5
€2100,R0
#015,R1
01.R4

002516

MOV
MOV
MOV
MOV
MOV
CLR
MOV

002574
002470

MOV
CLR
CLR
MOV
mov

RO, SDHLPR
TIME2
TEMPL
210, TEMP2
#4000, 3DHBAR

TST8

SOHSCR

BMI
INC
INC
BNE
DEC
BNE

3s
TIME2
TEMPL
2
TEMP2
2%

002624

.IF N8
.ENDC

XN=aN+1

000013
002100

mnn

002634
002524

14:

2%:

002550
002546
002542

002524

002510
002100

SEQ 53

19-29

002520

002504

3s:

4% :

<i$

BIT11,80HSCR

RS, 80HSCR
SOHBA

T
emMT
B8R
cnp
BLO

HLT
ent

2
2

SCOPEL

TIME2, TIMEL
44

iLINE 13 WILL BE TESTED
sCONSTANT FOR SELECTION
sOF INITIAL (LOWEST) SPEED
115 DIFFERENT SPEEDS WILL BE TESTED
1BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
sCLEAR INTERFACE
1SELECT LINE 13 FOR TESTING
:CLEAR BUS ADDRESS
sSET UP TO TRANSMIT
+1 CHARACTERS
:SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
sSET UP NO CLOCK TIMER

$SET BAR BIT FOR LINE 13
;70 START TRANSMISSION
sWAIT FCR RECEIVER

:TO FINISH

sUPDATE RECEIVER TIMER
sUPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH, ERROR
;VERIFY THAT RECEIVER
;WAS FASTER AT THIS SELECTED SPEED
s (NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
;RECEIVER TIMING ERROR FOR
sLINE 13
;CHECK FOR FREEZE ON CURRENT DATA
sSET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

"oV
TIME2, TIMEL
R4
INC
ADD
#2100,R0
R1
DEC
BNE
1s
S$:
SCOPE
;CHECK FOR ITERATIONS, LOOP
LINE=LINE.L
BITX=BITX+BITX
SPEED
\LINE,\BITX,1,t/8/,2100, t/RECEIVER/

sRECEIVER LINE SPEED SELECTION TEST
s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 14
sVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
iVERIFY THAT THE AMOUN QF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED

C20M40-D0

MACRO VO4.00

011370
011370
011376
011404

012767
012767
012767

000340
000010
011610

166400
002420
002406

011412

012767

011445

002402

011420
011424

012705

000036

012700

MoV

R5,8DHSCR

MoV

¢-1,80HBC

010077
005067
005067
012767
012777

002264
002360
002356
000010
010000

011522

105777

002230

011526
011530
011534
011540
011542
011546
011550
011550
011552
011554
011562

100412

C11564
011564
011566
011570
011576
011600
011604
011606
011610

011612

002276
177777

005267
005267

002326
002324

005367

002320

002412
002302

1$:

016767

005204
062700
005301
001317
104400
000015
020000

MOV
CLR

002274

24%:

MoV
MOV

€10, TEMP2
10000, 8DHBAR

TEMPL

1578

SOHSCR

sSET BAR BIT FOR LINE 14
sTO START TRANSMISSION
iWAIT FOR RECEIVER

BMI

INC
INC

BNE

3%:

13,34
BR

cne
B8LO

002100

002262

4% :

SCOPE}

MOV

INC
ADD
DEC
8NE
5%:
SCOPE
LINE=LINE+}
BITX=BITX+BITX
SPEED

:TO FINISH

TIME2
TEMPL

BNE
DEC

002276

S0HBA

;BINARY CODE FOR INITIAL SPEED
;INITIALIZE COMPARISION VALUE
;CLEAR INTERFACE
;SELECT LINE 14 FOR TESTING
1CLEAR BUS ADORESS

RO, 8OHLPR
TIME2

HLY
et
002266

115 DIFFERENT SPEEDS WILL BE TESTED

MoV
CLR

002302

#BIT11,80HSCR

iLINE 14 WILL BE TESTED
sCONSTANT FOR SELECTION
;OF INITIAL (LOWEST) SPEED

sSET UP TO TRANSMIT
;1 CHARACTERS
:SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
sSET UP NO CLOCK TIMER

CLR

002352
002246

104002

104410

€14,R5

15,R1
1,R¢
0-1,TIMEL

011472
011476
011502
011506
011514

026767
103401

MOV

MOV
MoV
MOV

002300

104001
000405

:SET UP TO LOOP WITH DATA

000015
000001
177777

005077

001365

14 ,FREEZ1

€2100,R0

004000

001370

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

MOV

012777

010577

9340,PS
#10, ICOUNT
954 ,ESCAPE

002100

012777

012701
012704
012767

TS \XN,10,54,14
T3S:
MoV
MOV
MOV
JIF NB
<1$>
ENDC
MOV

XN=XN+1

000014

011430
011434
011440
011446
011454
011460
011464

SEQ 54

27-JUN-85 12:54:12 PAGE 19-30

sUPDATE RECEIVER TIMER
sUPDATE NO CLOCK TIMER

TEMP2

;:RECEIVER DID NOT FINISH, ERROR

TIME2, TIMEL
43

sVERIFY THAT RECEIVER
;WAS FASTER AT THIS SELECTED SPEED
:(NUMBER OF COUNTS IN TINME2

1
44

;LESS THAN TIMEL)
;RECEIVER TIAING ERROR FOR

2
2

;LINE 14

TIME2, TIMEL

R4
#2100,R0
Rl
14

;CHECK FOR FREEZE ON CURRENT DATA
1SET UP FOR NEXT COMPARISION
;SELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,1,t/8/,2100, t/RECEIVER/

;RECEIVER LINE SPEED SELECTION TEST

s TRANSMIT

1 CHARACTERS AT A SELECTED SPEED ON LINE 1S

;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED

CZ0MD-DO

MACRC VO4.00

SEQ SS

27-JUN-85 12:54:12 PAGE 19-31

sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
011612
011612
011620
011626

012767
012767
012767

000340
000010
012032

166156
002176
002164

011634

012767

011670

002160

011642
011646

000037
012705
012700

000015
002100

011652
011656
011662
011670
011676
011702
011706

012701
012704
012767
012777
010577
005077
012777

011714
011720
011724
011730
011736

010077
005067
005067
012767
012777

002042
002136
002134
000010
020000

011744

105777

002006

011750
011752
011756
011762
011764
011770
011772
011772
011774
011776
012004

100412
005267
005267
001370
005367
001365

104001
000405
026767
103401

012006
012006

104002

012010
012012
012020
012022
012026
012030
012032

012034

104410
016767
005204
062700
005301
001317
104400
000016
040000

TS \XN,10,5¢,1%
136:
MOV
MOV
MOV
<1$>
.IF N8
MOV
.ENDC
XN=XN+1
MOV
MOV

000015

MOV

000001

177777
004000
002054
002056

17mmnmn

002170
002060

1%:

CLR

002052

MOV

2%:

002076

002044
002100

002054

002040

4%:

014 ,FREE2]

;SET UP TO LOOP WITH DATA

015,RS5
€2100,R0

15,R1
91.R4
2-1.7IMEL
#8IT11,8DHSCR
R5,B80HSCR
SOHBA
9-1,80H8C

MOV

TS18

SOHSCR

8M1
INC
INC
BNE
DEC
BNE
T
EMT
B8R
cHP
BLO

TIMER
TEMP1L
29
TEMP2
23
1
1
44
TIME2, TIMEL

T
EMT

2
2

CLR
CLR
MOV

002130
002024

;DISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS

RO, 9DHLPR
TIME2
TEMPL
210, TEMP2
920000, 8DHBAR

MoV

002104
002102

002060

MOV
MOV
MOV
MoV

9340,PS
€10, ICOUNT
954 ,ESCAPE

SCOPEL
MoV
INC

TIME2, TIMEL
R4
#2100,R0
R1
14

;SET UP TO ESCAPE TO NEXT TEST
]

;LINE 15 WILL BE TESTED
;CONSTANT FOR SELECTION
;OF INITIAL (LOWEST) SPEED
:15 DIFFERENT SPEEDS WILL BE TESTED
;BINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
;:CLEAR INTERFACE
sSELECT LINE 15 FOR TESTING

;:CLEAR BUS ADDRESS
;SET UP TO TRANSMIT
;1 CHARACTERS
;SELECT LINE SPEED

sCLEAR RECEIVER TIME TIMER

;SET UP NO CLOCK TIMER

;SET BAR BIT FOR LINE 15
;70 START TRANSMISSION
;WAIT FOR RECEIVER
.TO FINISH

iUPDATE RECEIVER TIMER
;UPDATE NG CLOCK TIMER

;RECEIVER DID NOT FINISH, ERROR
s VERIFY THAT RECEIVER
:WAS FASTER AT THIS SELECTED SPEED
;(NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
sRECEIVER TIMING ERROR FOR

sLINE 15
:CHECK FOR FREEZE ON CURRENT DATA
sSET UP FOR NEXT COMPARISION
:SELECT NEXT SPEED

ADD
0EC
BNE
S4:
SCOPE
;:CHECK FOR ITERATIONS,
LINE=LINE.1
BITX=BITX+BITX
\LINE,\BITX,1,t/8/,2100, t/RECEIVER/
SPEED

LOOP

CZDHD-DO

MACRO V04.00

SEQ 56

27 JUN-85 12:54:12 PAGE 19-32

sRECEIVER LINE SPEED SELECTION TEST
1 TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 16

;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED

:VERIFY THAT THE AMOUN OF TIME TAKEN 1S LESS
+AT THIS SPEED THAN AT THE PREVIQUSLY SELECTED SPEED
012034

012034
012042
012050

012767
012767

000340
000010
012254

165734
001754
001742

012056

012767

012112

001736

012064
012070

000040
012705
012700

000016
002100

012074
012100
012104
012112
012120
012124
012130

012701
012704
012767
012777
010577
005077
o121

000015
000001
17mmmnm
004000
001632
001634
177777

012136
012142
012146
012152

012160

010077
005067
005067
012767
012777

001620
001714
001712
000010
040000

012166

105777

001564

012172
012174
012200
012204
012206

100412
005267
005267
001370
005367
001365

012212
012214
012214
012216

012220
012226

012230
012230

012232
012234
012242
012244
012250
012252
012254

he.

012767

104001
000405
026767
103401

TS \XN,10,5¢,1%
137:
MOV
MOV
MOV
<1$>
.IF N8
MOV
.ENDC

XN=XN+1

001746
001636

1¢:

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

#1% ,FREEZ)

;SET UP TO LOOP WITH DATA

MOV
MoV

216.R5
€2100,R0

MOV
MOV
MOV
MOV
MOV

#15,R1
-1, TIMEL

001630

MOV

CLR

001706
001602

MoV
CLR
CLR
MOV
MOV

RO, SDHLPR
TIME2
TEMPL
@10, TEMP2
#40000, SDHBAR

TS18

S0HSCR

B8MI
INC
INC
BNE
DEC
BNE
HLY
EnT

34
TIMER
TEMPL
24
TEMP2
24
1
1

2%:

001654

001632

3s:

BR
cHpP
8Lo

TIME2, TIMEL

001622

001616

002100

S5:

SCOPEL
MoV
INC
ADD
DEC
BNE
SCOPE

LINE=LINE+1

sBINARY CODE FOR INITIAL SPEED
sINITIALIZE COMPARISION VALUE
iCLEAR INTERFACE
;SELECT LINE 16 FOR TESTING
sCLEAR BUS ADDRESS
;:SET UP T0 TRANSMIT
;1 CHARACTERS
;SELECT LINE SPEED
;CLEAR RECEIVER TIME TIMER
:SET UP NO CLOCK TIMER
;SET BAR BIT FOR LINE 16
sTO START TRANSMISSION
;WAIT FOR RECEIVER
;7O FINISH
sUPDATE RECEIVER TIMER
iUPDATE NO CLOCK TIMER

;RECEIVER DID NOT FINISH, ERROR
sVERIFY THAT RECEIVER

;WAS FASTER AT THIS SELECTED SPEED

; (NUMBER OF COUNTS IN TIME2
;LESS THAN TIMEL)
sRECEIVER TIMING ERROR FOR

TIME2, TIMEL
R4
92100,R0
R1
14

;LINE 16 WILL BE TESTED
;CONSTANT FOR SELECTION
;OF INITIAL (LOWEST) SPEED
115 DIFFERENT SPEEDS WILL BE TESTED

HT
EMT

104002

104410
016767
005204
062700
005301
001317
104400
000017

€10, ICOUNT
#5% ,ESCAPE

98IT11,80HSCR
RS, 8DHSCR
SOHBA

001662
001660

001636

9340,PS

;LINE 16
;CHECK FOR FREEZE ON CURRENT DATR
+SET UP FOR NEXT COMPARISION
:SELECT NEXT SPEED

+CHECK FOR ITERATIONS, LOOP

CZDHD-DO

012256

MACRO V04.00

27-JUN-85 12:54:12 PAGE

100000

SEQ 57

19-33

BITX=BITX+BITX
SPEED
\LINE,\BITX,1,t/8/,2100, t/RECEIVER/

;RECEIVER LINE SPEED SELECTION TEST
s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 17
i VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED
012256
012256

012264
012272

012767
012767
012767

000340
000010
012476

165512
001532
001520

012300

012767

012334

001514

012306
012312

000041
012705
012700

000017
002100

012316
012322
012326
012334
012342
012346
012352

012701
012704
012767
012777
010577
005077
012777

000015
000001
177777
004000
001410
001412
177777

012360
012364
012370
012374
012402

010077
005067
005067
012767
012777

001376
001472
001470
000010
100000

012410

105777

001342

012414
012416
012422
012426

100412
005267
005267
001370
005367
001365

012430
012434
012436
012436
012440

104001
000405

001430
001436
001432

TS \XN,10,5¢,1%
T40:
MOV
MOV
MOV
JIF N8
<i$>
ENOC
MOV

XN=XN+1

9340,PS
910, ICOUNT
54 ,ESCAPE

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

914 ,FREEZ1

;SET UP TO LOOP WITH DATA

MoV
MoV

#17,R5
#2100,R0

001406

MOV
MOV
MOV
MOV
MoV
CLR
nov

#15,R1
@1,R4
¢-1,TIMEL
#BIT11,80HSCR
R5,8DHSCR
SOHBA
#-1,80HBC

001464
001360

MOV
CLR
CLR
MOV
MOV

RO, BDHLPR
TIME2
TEMPL
€10, TEMP2
2100000, SOHBAR

1518

FOHSCR

8MI
INC
INC
BNE
DEC
BNE
HLT
ENY
BR

34
TIME2
TEMP1
24
TEMP2
24
1
1
43

001524
001414

1¢:

2%:

i 3

sLINE 17 WILL BE TESTED
sCONSTANT FOR SELECTION
;OF INITIAL (LOWEST) SPEED
:15 DIFFERENT SPEEDS WILL BE TESTED
;BINARY CODE FOR INITIAL SPEED
:INITIALIZE COMPARISION VALUE
sCLEAR INTERFACE
;SELECT LINE 17 FOR TESTING
:CLEAR BUS ADDRESS
;SET UP TO TRANSMIT
;1 CHARACTERS

;SELECT LINE SPEED
sCLEAR RECEIVER TIME TIMER
;SET UP NO CLOCK TIMER
;SET BAR BIT FOR LINE 17
;TO START TRANSHISSION
;WAIT FOR RECEIVER
;TO FINISH
;UPDATE RECEIVER TIMER
;UPDATE NO CLOCK TIMER

:RECEIVER DID NOT FINISH, ERROR

CZDHD-DO

MACRO VO4.00

012442
012450

026767
103401

012452
012452

104002

012454
012456
012464
012466
012472
012474
012476

104410
016767
005204
062700
005301
001317

104400

000020
000000

001414

001410

3%:

cMP
6LO

TIME2, TIMEL
44

HLT
EMT

001400

SEQ 58

27-JUN-85 12:54:12 PAGE 19-34

001374

002100

S5%:

SCOPE1
MOV
INC
ADD
DEC
BNE

SCOPE

LINE=LINE~1
BITX=BITX+BITX

TIME2, TIMEL
R4
#2100,R0
R1
1s

:VERIFY THAT RECEIVER
sWAS FASTER AT THIS SELECTED SPEED
i (NUMBER OF COUNTS IN TIME?
;LESS THAN TIMELl)
;RECEIVER TIMING ERROR FOR
sLINE 17
;CHECK FOR FREEZE ON CURRENT DATA
;SET UP FOR NEXT COMPARISION
sSELECT NEXT SPEED

;CHECK FOR ITERATIONS, LOOP

CZ0HD -DO

MACRO V04.00

SEQ 59

27-.UN-85 12:54:12 PAGE 20

1 012500

.EOP

t/BEGIN/

;:END OF PASS

:TYPE NAME OF TEST

sUPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11
;RESTART TEST

000001

0¢6
014012

3s:

LOGICAL:

166514

RESTRT:
PASARG:

002

.SCOPE

; CONTINUE

MOV

PASCNT ,LIGHTS

;:DISPLAY PASS COUNT

MOV
BEQ
RESET

8042 ,R1
RESTRT

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

NOP
NOP
NOP
P
.WORD
.BYTE
.WORD

JSR

012634

012642
012644
012650
012654
012660
012662
012666
012670
012674
012676

032777
001030
032777
001021
032777
001006
005267
026767
001007

005067
005067

011667
000002
016716
000002
005767
001745
000762

002000

166172

SCOPER:

040000

166162

1s:

004000

166152

001172
001166

001162

BEGIN
1
6,2
PASCN.

817
BNE
8IT
BNE
BIT
BNE
INC

#5UW10, aSWR
44
#5H14, 85WR
3¢
OSWLl, 9SHR
24
LPCNT

BNE
CLR
CLR
MOV
RTI
MOV
RTI
157
BEQ
BR

3
LPCNT
ERRFLG
(SP),RETRN

crmp

001156
001134
001136

2%:

001130

3s:

001114

44:

AUAVOS

PC,(R1)

;CHECK FOR LOOP ON CURRENT TEST
sCHECK FOR ITERATION SUPPRZSSION
012600
012606
012610
012616
012620
012626
012630

000042

2%:

013701
001405
000005
004711
000240
000240
000240
000167

166234

: PRINT PASSCOUNT

LPCNT, ICOUNT

RETRN, (SP)
ERRFLG
14
24

; PARAMETERS TO PRINT PASSCOUNT

wuuuwn

001246

;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG
:UPDATE PASS COUNT
; ARE WE USING LIGHTS?
; BRANCH IF WE ARE
3 TYPE PASCOUNT MESSAGE

016767

LAST
ERRFLG
PASCNT
LIGHTS
2

104401

014473
104402
012572
000403

CLR
INC
Ts7
8NE
TYPE
PASTXT
OCTASC
PASARG
BR

1 TYPE NAME OF TEST

001344
001274
001272
166256

TYPE
MEPASS
CLR

EOP:

LT
T
)

012540
012546
012546
012552
012554
012556
012560
012562
012564
012566
012572
012574
012576
2 012600

104401
014460
005067
005067
005267
005767
001005

®s

012500
012502
012504
012510
012514
012520
012524
012526
012530
012532
012534
012536
012540

i4 ; 6

——

CZDHD -DO

HACRO VO4.00

27-JUN-85 12:54:12 PAGE 20 1

3 012700

.SCoP1

;:CHECK FOR FREEZE ON CURRENT DATA
012700
012706

012710
012714

032777
001402
016716
000002

001000
001106

166072

SCOPIR: BIT
8EQ
MoV
RT1
1s:

9SKH09, SSWR
1
FREEZ1,(SP)

SEQ 60

CZ0#HD -D0

MACRO VO4.00

SEQ 61

27-JUN-J5 12:54:12 PAGE 21

1 012716

.ERROR
;ERROR HANDLER

012716
012724
012726
012732
012734
012740
012744
012746
012750
012754
012756
012760
012762
012766
012772
012776
013002
013006
013010
013014
013016
013020
013022
013024
013026
013034
013036
013040
013044
013046
013050
013052
013054
013056
013060
013064
013066
013070
013074
013076
013100
013104
013112
013114
013120
913122
013124
013126

032777
020000
001055
021667
001122
001404
011667
001114
005067
001044
104406
011605
162705
000002
011504
006304
006304
042704
177001
062704
014672
012467
000040
011467
000052
005767
001002
001403
005767
000040
001011
104401
014370
104402
013122
012767
0C0001
104401
000000
005767
000010
001404
104401
014370
104402
000000
104407
005777
165714
100005
010046
016600
000002
000000
012600
005267
000710
032777
002000
001402
016716
006700
000002
000003
006
002
014046

166054

000754

165666

ERRORS: BIT
BNE
cnp
BEQ
HOV
CLR
1%:
SAVOSP
HOV
Sug
MOV
ASL
ASL
BIC
ADD
MOV
MoV
TS7
BEQ
T8T
BNE
TYPMSG: TYPE
MCRLF
OCTASC
ERTABO
MOV
TYPE
ERRMSG: O
TYPDAT: TST
BEQ
TYPE
MCRLF
OCTASC
DATABP: 0
RESREG: RESOS
HALTS:
TST
8PL
PUSHRO
MOV
HALY
POPRO
EXITER: INC
8IT
BEQ
MoV
1%:
RTI
ERTABO: 1
.BYTE
SAVPC

0SKH13, 8SWR
HALTS
(SP),LAST
1
(SP),LAST
ERRFLG

(SP),RS
#2,R5
(R5).R4
R4
R4
#177001,R4
OERRTAB,
R4
(R4)+,ERRMSG
(R4) ,DATABP
ERRFLG
TYPMSG
OATABP
TYPDAT

1
:
:
:

3
S
S
S

i
i

S
S

;

#1 ,ERRFLG
DATABP
RESREG

SSHR
EXITER

2(SP),R0
ERRCNT
#5410, 8SWR
1s
ESCAPE.(SP)
6,2

i 4

CZ0HD-DO

MACRO v04.00

27-JUN-85 12:54:12 PAGE 22

013130

013130
013132
013136
013142
013144
013150
013154
013160
2 013162

. 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

TRPSRV: MOV
Sus
MOV
TRPOK:
ASL
6IC
ADD
MOV
JMP
.SAVREG

000002
000000
177001

014612
000000

SEQ 62

(5P),-(SP)
#2,(SP)
8(sP),(SP)
(SsP)
9177001, (SP)
#TRPTAB, (SP)
8(SP), (SP)
8(SP).

;

;GET PC OF RETURN
:=PC OF TRAP
;GET TRP
;MW TIPLY TRAP ARG BY 2
:CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
: SUBROUTINE ADDRESS
;GO TO SUBRCUTINE

sSAVE PC OF TEST THAT FAILED AND RO-RS
013162

016667

000004

000656

SVOSP:

MOV

4(SP),SAVPC

iSAVE RO-RS
013170
013174
013200
013204
013210
013214
013220
3 013222

010567
010467
010367
010267
010167
010067
000002

013222
013226
013232
013236
013242
013246
013252

016700
016701
016702
016703
016704
016705
000002

000646
000640
000632
000624
000616
000610

SV03:

.RESREG

000602
000600
000576
000574
000572
000570

RS05:

MOV
MoV
MOV
MOV
MOV
MOV
RTI

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

;RESTORE RO-RS
MOV
MOV
MOV
MOV
MoV
MOV
RTI

SAVRO,
RO
SAVR1,R1
SAVR2,R2
SAVRZ,R3
SAVR4,
R4
SAVRS5,RS

CZOHD -DO

HACRO VO4.00

SEQ 63

27-JUN-85 12:54:12 PAGE 23

1 013254

.TYPER

013254
013260
013264
013270
013272
013274
013276
013300
013304
2 013306

017605
062716

105777
100375
105715

000000
000002

TYPER:

000462

1s:

001001

000002
112577
000767

000450

24:

MOV
ADD

8(SP),RS
92,(SP)

BNE

TST8
ePL
TST8
RTI
MOVB
B8R

8TPCSR
13
(R5)

(R5)+,8TPDBR
1s

.INSTRG

sASCII STRING INPUT ROUTINE
013306

013314
013320
013322
013324
013330
013334
013340

0i3342
013346
013352
013356
013369
013366
013372
013374
013376
013400
013402
013404
013406

017667
062716
104401
000000
012704
012703
105777
100375

117714

142714
122427
001413
117777

105777

100375
005303
001356
104401
014364
000745
000002

000000
000002

000006

INSTRG:

INSTRL:

MSG:

014634
000007

000406

1s:

000402

000364

TYPE

0
MOV
MOV

000366

2%:

8(SP),MSG

#2,(5P)

TST8
8PL

#INBUF ,R4
47,R3
STKCSR
14

8IC8
CmPB
8EQ
Move

4200.(R4)
(R4)+, 015
INSTR2
STKDBR,9TPDBR

HMOVB

000200
000015

000360

MOV
ADD

15718

8PL
DEC
8NE
INSTRE: TYPE
MQM
B8R
INSTR2: RTI

OTKDBR, (R4)

S8TPCSR

29
R3
13

INSTRY

e comn

s TELETYPE OUTPUT ROUTINE

CZDHD-D0

MACRO VO4.00

1 013410

SEQ 64

27-JUN-85 12:54:12 PAGE 24

.PARAMS

+CONVERT ASCII STRING TO OCTAL
013410
013412
013416
013422
013426
013432
013436
013440
013442
013446
013452

013454
013460
013462
013466
013470

013474

013476
013502
013504
013506
013510
013512
013514
013516

011615

012567

012567
012567
112567
112567
010516
005005
012704
122714
001420
121427
002415
121427
003012
142714
152405
122714
001406
006305
006305
006305

000146
000144
000142
000140
000135

000060

PARAMS: MOV
MOV

MOV
MoV
Move
MOve
MoV
PARAML: CLR
HOV
CHPE
BEQ
14
CMPB

BLT
CMPB

000067

B8GT
8I1C8

000060

81s8
CHPB
8eQ
ASL

000015

000760

104404

PARERR:

000750

(SP).R5S
(R5)+,LOLIM

(R5)+,HILIM
(R5)+,DEVADR
(R5)+,LOBITS
(R5)+,ADRCNT
R3,(SP)
RS
SINBUF R4
915, (R4)
PARERR
(R4),960

PARERR
(R4),867

PARERR
950, (R4)

ASL
ASL

(R4)+,RS
#15,(R4)
LIMITS
RS
RS
RS

INSTER
BR

PARAM1

B8R

+TEST TO SEE IF NUMBER IS WITHIN LIMITS
013520
013524
013526
013532
013534
013540

020567
101373
020567
103770
136705
001365

000042

LIMITS:

000032
000032

CMP
BHI
cHP
8LO
8178
BNE

RS, HILIM
PARERR
RS,LOLIN
PARERR
LOBITS.RS
PARERR

1STORE NUMBER AT SPECIFIED ADDRESS
013542
013546
013550
013554
013560
013562
013564
013566
013570
013572

016704
010524

062705
105367
001372
000002
000000
0¢0000
000000
000000
013573

000022
000002
000013

DEVADR
R4
R3,(R&).
2,RS
ADRCNT
13

: 3

CZ0HD-DO

MACRO VO4.00

013574

SEQ 65

27-JUN-85 12:54:12 PAGE 25

.OCTASC

;CONVERT OCTAL NUMBER TO ASCII AND OQUTPUT TO TELEPRINTER
013574
013600
013604
013610
013614
013620

013624
013630
013634
013640
013642
013646
013652
013654
013636
013660
013662
013664
013666
013672
013674
013700
013702
013706
013710
013714
013720
013722
013724
013726
013730
013734
013736
013740
013742

013744

017601

062716
012167
112167
112167
013167
016704
116705
012700
010403
042703
062703
110320
006204
006204
006204
003305
001365
012703
114023
105367
001374
105767
001405
112723
105367

001373
105013
104401

014660
005367
001325
000002
000000
000000
013743
000000

000000
000002
000130
000126
000123
000120
000114
000106
014646

177770

OCTASN:

MOV
ADD
MOV
MOVS
Move
MOV
MOV
MOVE
MOV

14:

24:

33:

000042

000035
000240
000023

b1 H
64:

000004

MOV

R4 ,R3

ASR
ASR
ASR

R4
R4
R4

8IC
ADD
MOVB

000260

014660

8(SP),R1
02,(SP)
(R1)+,WRDCNT
(R1)+,CHRCNT
(R1)+,SPACNT
8(R1)+,BINWRD
BINMWRD ,R4
CHRCNT RS
4TEMP,
RO

#177770,R3
#260,R3
R3,(RO).

0EC
8NE
MOV

RS
3
MDATA ,R3

MOV

-(RO),(R3).

DECB
BNE
1578
8EQ

CHRCNT
4
SPACNT
64

0ECB
BNE

SPACNT
Sé

mnove

#240,(R3).

CLRS
TYPE
MOATA

(R3)

DEC
BNE
RTI

WROCNT
14

WROCNT: O

177560
177562
177564
177566

TLVL»

013756
013760
013762
013764
013766
013770
013772
013774
013776
014000
014002
014004
014006
014010

014010
014012
014014
014016

014056
014060
014062
014064
014066

t/DHSCR, DHNRC, DHLPR, DHBA ,DHBC, DHBAR,DHBCR,, DHSSR, DHSLR, DHRVEC
,DHRL
VL , DHTVEC ,DHTLVL/

TKCSR:
TKDBR:

177560
177562
177564
1775¢6

TPCSR:
TPDBR:
.IRP

ICOUNT:
LPCNT:
SAVRO:
SAVR1:
SAVR2:
SAVRS:
SAVRA:
SAVRS:
SAVSP:
SAVPC:
INIFLG:
STFLG:
LAST:
.IRP

<DHSCR,DHNRC ,DHLPR ,DHBA,, DHBC ,OHBAR ,OHBCR ,DHSSR ,DHSLR , DHRVEC , DMRL
VL , DHTVEC, DH

;PROGRAM VARIABLES

.ENDM
TCONST:
TIMEL:
TIME2:
TEMPL:
TEMP2:

FREEZL:

: 3

t/TCONST , TIMEL, TIME2, TEMPL, TEMP2/

ERRCNT:
RETRN:
ESCAPE:

000000
000000
000000
000000
000000

.ENDM
DHSCR:
DHNRC:
DHLPR:
DHBA:
OHBC:
DHBAR:
OHBCR:
DHSSR:
DHSLR:
DHRVEC
:
DHRLVL:
DHTVEC:
DHTLVL
:
JVARIA

PASCNT:

000000

+ INDIRECT POINTERS

ERRFLG:

014020

014022
014024
014026
014030
014032
014034
014036
014040
014042
014044
014046
014050
0149052
014054

.POINT

OIPOOCOOOOOO0O0O0O0O0OOOOOOO

013746
013750
013752
013754

SEQ 66

12:54:12 PAGE 26

013746

27-JUN-85

COO0OO0O0O0OOO0OO0O0OO0O

MACRO VO4.00

OCOO0OO0O0

CZ0M40
- 00

;ERROR FLAG
;PASS COUNTY
;ERROR COUNT
;SCOPE RETURN ADDRESS FOR TEST LOOPING

sADDRESS FOR ERROR ESCAPE
;OATA LOOPING RETURN ADDRESS
;JTERATION COUNY FOR TEST IN PROGRESS
iINUMBER OF ITERATIONS THIS TEST

;RO SAVE AREA
;R1 SAVE AREA
iR2 SAVE AREA
:R3 SAVE ARE
;R4 SAVE AREA
;RS SAVE AREA
:STACK POINTER SAVE AREA
sCALLING ROUTINE SAVE AREA
sPROGRAM INITIALIZATION FLAG
:PROGRAM START FLAG
:LAST ERROR PC

<TCONST.TIMEL,TI
TEMPL,MEZ,
TEMP2>

: 3

CZ0HD -00

MACRO V04.00

1 014070

014070
014072
014074
014076
014100
014102
014104
014110
014114
014122
014124

PFAIL

010046
010146
010246
010346
010446
010546
016746
010667
012767
000000
000777

PFAIL:

163714
177730

014126

SEQ 67

27-JUN-85 12:54:12 PAGE 27

tENTER HERE ON POWER FAILURE
MOV
MOV
MoV
MOV
MOV

MoV
MOV
MOV
MoV

163702

HALT

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

R5,-(SP)
24,-(SP)
SP,SAVSP
ORESTART ,24

B8R

$SAVE RO-R5 ON PROCESSOR STACK

$SAVE STACK POINTER
sSET UP FOR POWER UP TRAP
sHALT ON POWER OOWN NCRMAL

+PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

014230
014232
014236

012605
012604

012603
012602
012601
012600
Cl2767
012767
012706
005067
005267
001375

177712

014070
000340
015120
000454
000450

RESTAR:

163650
163614

104401

014370
104402
014230
104401
014373
005067
005067
000177
000001
000006
014016

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

SAVSP,SP

(SP)+,RS
(SP)«,Ra
(SP)+,R3
(SP)..R2
(SP). ,R1

(SP)..RO

WPFAIL 24

#340,PS
#5TACK,SP
TEMP
TEMP
.-4

MCRLF
OCTASC

177570
177630
177566
000002

PFTAB
TYPE
MPFAIL

PFTAB:

CLR
CLR
e

1
6,2
RETRN

;RESTORE STACK POINTER
:RESTORE RO-RS

;SET UP FOR POMER FAILURE

ERRFLG
LAST
SRETRN

016706

014126
014132
014134
014136
014140
014142
014144
014146
014154
014162
014166
014172
014176
014200
014202
014204
014206
014210
014212
014214
014220
014224

C2ZDHD -D0
014240
014240
014243
014246
014251
014254
014257
014262
014265
014270
014273
014276
014301
014304
014306
014311
014314
014317
014322
014325
014330
014333
014336
014341
014344
014347
014352
014355
014360
014363
014364

014367
014370

014373

014376
014401
014404
014407
014412

014415

014420
014423
014426
014431
014434
014437
014442
014445

014450

014453
014456
014460
014463
014466
014471
014473

Pia-

MACRO V04.00

015

061
120
104
105

103
117
114
111
124
124
012
015
105
117
101
122
123
015
117
122

012
110
040

105
040
114
124
116
117
103
105

040

SEQ 68

27-JUN-85 12:54:12 PAGE 28

012
061

.MSG

t/DH11

MTITLE:

.ASCIZ

€15>¢12><12>/DH11 SPEED SELECTION LOGIC TEST /<15><12>

SPEED

SELECTIUN LOGIC

TEST/,*/CZDHD-DO/

123
105
123
105
111

040

107

040

123
s

126
124
040
104
123

MVECTO:

.ASCIZ

€15>¢12>/VECTOR ADDRESS-/

103
124
114
105
123
122
104
105
055

MREGAD:

.ASCI2

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

000
040

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

077

.ASCIZ

015

012

000

MCRLF:

.ASCIZ

040
127

120
105

MPFAIL:

.ASCI2

i1
122
040
117
101
122
124
124
124
105
040
040
117
105

114
105
120
107
115
105
101
040

012
104
055

103
110
104

MEPASS:

.ASCIZ

HD
-DO/
<15><12>/CZD

012

120

PASTXT:

.ASCIZ

<15><12>/PASS COUNT = /

107
124
040

123

117
122
101
125
054
122
122
040
123
122
101

124
124
116

122
122
123
015
132
104
060

015

«15>¢<12>
POWER FAILURE,

PROGRAM RESTART AT TEST IN PROGRESS/

123

111

107
123

CZ0HD -DO
014476
014501
014504
014507
014512
014513
014516
014517
034522
014525
014530
2 014532
014535
014540
014543
014546
014551
014554
014557
3 014560
014563
014566

014571
014574
014577

014602
014605
014610

MACRO VO4.00

101

040

125
040
000
015
000
015
105
040
055
116
103

103

012
116
040

105
000
124
111
040
122
015
111
040
120
104

5 014612

SEQ 69

27-JUN-8S 12:54:12 PAGE 28-1

123
103
116
075

123
117
124
040

012

122

MR:

ASCIZ

«<15><12>/R/

012
123
120
000

124
124
103

MISTPC:

.ASCIZ

«<15><12>/TEST PC-/

117
114
113
114
105
123
105

040

.EVE
EM1:

LASCIZ

/NO CLOCK/<15><12>/LINE

EM2:

.ASCIZ

/TIMING ERROR/<15><12>/LINE

111
116
105
117
012
116
040
105
000

117
015
111
040
120
104

115
107

SPEED/

122
122
114
105
123

105

.EVEN
.TRPTAB

iTABLE OF POINTERS FOR TRAP DECODING
014612
0146:4
014616
014620
014622
014624
014626

014630

014632
6 014634

012600
013254
013574
013306
013400
013410
013162
013222
012700

TRPTAB:

SCOPER
TYPER

OCTASN
INSTRG

INSTRE
PARAMS

SvosP

RSOS

.BUFFER

SCOP1R

;BUFFERS FOR INPUT-OUTPUT
014634
014646

014660
7 014672

000000
014646
000000
014660

INBUF:
.*,+10
TEMP :
.=,+10

000000
014672

MOATA:
O
.=.+10
.ERRTAB

; TABLE OF POINTERS TO ERROR MESSAGES AND DATA

CZDHDD0

014672
014672
014674
10 014676
11 014700
12 014702
13 014704
14
15
16
17 014706
18 014710
19 014712
20 014714
21 014716
22 014720
014720
23

MACRO VO4.00

27-JUN-85

ERRTAB:

000000
000000
014532
014706
014560
014706

SEQ 70

12:54:12 PAGE 28-2

ET1:

ET2:

0
0
S?i

sNO MESSAGE
iNO DATA
iNO CLOCK ERROR

EM2
b1

; TIMING ERROR

:DATA TABLES FOR ERROR OUTPUT
000002

002
014042
002
014040

000000
000001

004

0T1:
.BYTE

000

.BYTE

2
2.4
SAVRS
2.0
SAVR4

s2 DATA WORDS WILL BE TYPED
; TWO DIGITS, 4 SPACES
sLINE UNDER TEST
sTWO DIGITS, NO SPACES
;SELECTED SPEED

itk

CZOHD-DO

SYMBOL

ADRCNT=

TABLE

MACRO VO4.00

012500
014014
014010
013036
012716
014672
013122
014020
014676
014702
013100
FREEZ1
014022
HALTS
013060
HILIM
013566
ICOUNT
014024
INBUF
014634
INIFLG
014050
INSTER= 104404
INSTR = 104403
013400
INSTRE
INSTRG
013306
INSTR1
013320
INSTR2
013406
LAST
014054
001002
LIGHTS
013520
LIMITS
LINE
= 000020
013572
LOBITS
LOGICA
012556
LOLINM
013564
014026
LPCNT

13408

EM2
ENDCOD
.

MCRLF
MDATA
MEPASS
MPFAIL
MaM
MR
MREGAD

014532

014560
014720

014722
000000
ERRORS DETECTED:

MSG
MTITLE

ABS.

SEQ 71

27-UUN-85 12:54:12 PAGE 28-3

EoP
ERRCNT
ERRFLG
ERRMSG
ERRORS
ERRTAB
ERTABO
ESCAPE
ET1
ET2
EXITER

013573

BEGIN
001706
BINWRD
013744
8ITX
= 000000
B8IT00 = 000001
8IT01 = 000002
81702 = 000004
8I703 = 000010
8IT04 = 000020
8ITOS = 000040
8IT06 = 000100
BITO07? = 000200
BITO08 = 000400
8IT09 = 001000
8IT10 = 002000
8IT11 = 004000
8IT12 = 010000
BIT13 = 020000
B8IT14 = 040000
8IT15 = 100000
CHRCNT
013742
OATABP
013054
DEVADR
013570
DHBA
013764
DHBAR
013770
DHBC
013766
DHBCR
013772
DHLPR
013762
OHNRC
013760
OHRLVL
014002
DHRVEC
014000
DHSCR
013756
OHSLR
013776
DHSSR
013774
OHTLVL
014006
DHTVEC
014004
DT1
014706

et
i
o

014370
014660
014460
014373
014364
014513
014330
013322
014240

MYISTPC
MVECTO

014517
014306
N
= 000001
OCTASC= 104402
OCTASN
013574
PARAM = 104405
PARAMS
013410
PARAM1
013440
PARERR
013514
PASARG
012572
PASCNT
014012
PASTXT
014473
PFAIL
014070
PFTAB
014230
POPRO = 012600
POP1SP= 005726
POP2SP= 022626
PS
- 177176
PUSHRO~ 010046
PUSH1S= 005746
PUSH2S
= 024646
RESREG
013056
RESTAR
014126
RESTRT
012566
RESOS = 104407
RETRN
014016
RSOS
013222

SAVPC
SAVRO
SAVR1
SAVR2
SAVR3
SAVR4A
SAVRS
SAVSP
SAVOSP=
SCOPE =

014046
014030
014032
014034

014036

014040
014042

014044
104406
104400
SCOPER 012600
SCOPEL= 104410
SCOP1R
012700

SPACNT
=
STACK =
START
STFLG
SVO05
SVO5P
SWR
SW00
SWO1
SW02
SHO3
SWO4
SWOS
SWO06
SHO8
SWO9
SKW10
SW11
SW12
SH13
SWi4
SH15
TCONST
TEMP
TEMPL
TEMP2
TIMEL
TIME2
TKCSR
TKDBR
TPCSR

013743
015120
001004
014052
013170
013162
001000
000001
000002
000004
000010
000020
000040
000100
000400
001000

TRPOK
TRPSRV
TRPTAB
TYPOAY
TYPE
=
TYPER
TYPHSG
T

013142
013130
014612
013040
104401
013254
013016
001400

TPDBR

002000

004000
010000
020000
040000

100000
014056
014646
014064
014066
014060
014062
013746
013750
013752

013754

T10
T11
T12
T13
T14
T15
T16
T17
72
T20
T21
122
123
124
125
126
127
T3
T30
731
132

003376
003620
004042
004264
004506
004730
005152
005374
001622
005616
006040
006262
006504
006726
007150
007372
007614
002044
010036
010260
010502

134
735
736

011146
011370
011612

7133

137
T4
140
15
T6
17

VECL
VEC2
WROCNT
X

010724

012034
002266
012256
002510

002732
003154

001164
001174
013740

= 000000

XBIT
= 000000
XLINE = 000020

= 000041

= 000011

000
001

VIRTUAL MEMORY USED:
17664 WORDS
( 69 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES
CZDHDO .BIN,CZOHDD . SEQ=CZDHDD .DOC,DHMACA . MAC, CZDHDD . P11