Digital PDFs

AH-8478D-MC

October 1985

77 pages

Original

37MB

view download

OCR Version

50MB

view download

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

OCR Text

ggym%%K & HALF DUPLEX

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

Hlmn

- COPYRIGHT® 1972-85 MADE IN USA

TI13
w
A >;CZDHI-DO

2
3

MACRO V04.00

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

.REM

SEQ 1

S
i

15
16

18
19

PRODUCT CODE:

AC-8476D-MC

PRODUCT

CZDHIDO DH11

NAME:

BREAK

AND HALF-DUPLEX

DATE:

JUNE 1985

MAINTAINER:

MK NAC SOFTWARE ENGINEERING

TEST

22
23

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

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

EQUIPMENT CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES

DOCUMENT.

28
29

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOFTHARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIDGITAL OR

30
31

34
35

—

IDENTIFICATION

ITS AFFILIATED COMPANIES.

MACRO V04.00

FOVENOVAWN
-

CZDHI-DO

ABSTRACT

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

THAT LINE IS SELECTED.

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

SEQ 2

—

TN
N PO N N = s ot ot ot ot ot ot ot
DRURNEESIRGRARESSEURuRURE ggoa*ubuwwgooqoubumnoouqoubunn

CZDHI-DO

MACRO V04.00

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

REQUIREMENTS

EQUIPMENT
PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY

ASR-33 TELETYPE OR EQUIVALENT

DH11 ASYNCHRONOUS MULTIPLEXER
DM11 MAINTENANCE CARD INSTALLED

2.2

STORAGE
THE PROGRAM LOADS INTO 4KW OF MEMORY

LOADING 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

SHOO0=1
4.1.3

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

4.2

STARTING ADDRESS

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

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

SEQ
3

-1

VRNV EWN -

CZDHI-DO

MACRO V04.00

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

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 7 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
DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

E-1

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

4.3.2

PROGRAM RESTART WITH ALL SWITCHES DOWN

AD ADDRESS 000200
T SWO1=1
S STARY
PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 70 4.3.1.9

%él\fl-’

hh&&

PROGRAM RESTART WITH SWOi=1

.b
w
b
uuuu

PROGRAM RESTART WITH SW0O=1
o

uuuu

LLdd
uuuu

(]

_&
(2]

4.3.2.1 PERFORM 4.3.1.2 70 4.3.1.5
4.3.2.2 THE PROGRAM WILL TYPE "DH11 BREAK AND HALF-DUPLEX TEST”
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9

—

AD ADDRESS 000200
SWO1=1
S START
PROGRAM WILL TYPE “DHil BREAK AND HALF-DUPLEX TEST”
AND WILL THEN TYPE "TEST PC-* AND WILL WAIT FOR AN INPUT
FROM THE TELETYPE KEYBOARD
4.3.4.5 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.

NOTE:

CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE
THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT
IS IN THE MIDOLE 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

MACRO V04.00

SEQ 5

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

VR NOWVEWN
-

CZDHI-DO

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS

SW15=1,
SWi4=1,
SW13=1,
SWii=1,
SW10=1,
SW09=1,
SWO1=1,
SW00=1,

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

5.2

SUBROUTINE ABSTRACTS

S.2.1

TRAPCATCHER (LOCATIONS 000000-000776)

°3°3 ¢ osaoON

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

IF AN UNEXPECTED INTERRUP
OR TRAP
T OCCURS, THE PROGRAM
WILL HALT WITH THE PC 2 GREATER THAN THE AUDRESS TO
WHICH THE PROGRAM TRAPPED. THE PROCESSO
STACK MAY
R

s.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 DH1l 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 SWOl=1 WHEN

THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC
ENTERED FROM THE TELETYPE KEYBOARD.

CZDHI-DO

MACRO V04.00

SEQ
6

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

5.2.4

EOP

(END OF PASS)

G G Gl O Gl 0 L N 0

T 1O TO PO D D O IO D T 10 10 e e b ot ot e

THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS
HAVE BEEN COMPLETED.
THIS ROUTINE TYPES THE MAINDEC
IDENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS
AND UPDATES THE PASS COUNT.
IF THE PROGRAM WAS LOADED
UNDER ACT11 OR DDP, THE ROUTINE CHECKS FOR RETURN TO
THE ACT11 OR DDP MONITOR.
IF THE PROGRAM IS NOT UNDER
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN.
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 SWii=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST
SEQUENCE, AFTER CLEARING ERROR FLAGS.
C) IF SWi4=1, THE ROUTINE WILL LOOP ON THE CURRENT TEST
REGARDLESS OF THE ITERATION COUNT.

IF 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, 7THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED.
5.2.6

SRER RSN,

SCOPIR

(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 IN
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS.
IF SW09=1, THE ROUTINE MWILL TRANSFER CONTROL BACK TO THE
TEST AT A POINT WHICH MILL ALLOW REPEATING THE FUNCTION
UNDER TEST CONTINUOUSLY WITH THE SAME DATA.
IF THIS
OPTION IS SELECTED, THE ROUTINE "SCOPER” IS NEVER ENTERED
AND ITERATION COUNTS MILL NOT BE UPDATED.

VENRANDWN
-

CZDHI-DO

MACRO V04.00

SEQ 7

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

5.2.7

ERRORS

(ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS:
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION
ITSELF IS FETCHED.
THE 8 LSB OF THE EMT
INSTRUCTION ARE THE ERROR CODE.
THIS CODE IS
USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR
DATA STORAGE LOCATIONS.
B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY
DURING THIS PASS,
A COMPLETE ERROR REPORT IS MADE
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER
IS TYPED.
IF SW13=1, NO ERROR TYPEOUT IS MADE.
C) 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”.

5.2.8

TRPSRV

(TRAP DECODE AND DISPATCH)

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

VR ARV
WN -

CZDHI-DO

MACRO V04.00

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

5.3

PROGRAM AND OR OPERATOR ACTION

5.3.1

PROGRAM START WITH ALL SWITCHES DOWN

5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM
BEHAVIOR.
5.3.1.2 AFTER “R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION
WILL BEGIN.
EACH TEST WILL BE REPEATED A SELECTED NUMBER
OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST)
AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST.

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

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

5.3.2

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

5.3.3

PROGRAM START WITH SWO1=1

5.3.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR

5.3.3.2 TEST EXECUTION MILL START AT THE ADDRESS SPECIFIED
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2

5.3.3.3 AFTER “CZDHI" HAS BEEN TYPED, THE PROGRAM MWILL
RESUME TESTING AT TEST 1
5.3.4

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

DISPLAYED IN RO.

5.3.5

PROGRAM OPERATION WITH SW13=1

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR
5.3.6

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

5.3.7

PROGRAM OPERATION WITH SW10=1
SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR
THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM
WILL PROCEED TO THE NEXT TEST IN SEQUENCE.

SEQ 8

CZDHI-DO
1

MACRO V04.00

SEQ
9

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

(CONT'D)

;

5.3.8

PROGRAM OPERATION WITH SW14=1,

OR SW09=1

THESE FUNCTIONS ARE NURMALLY USED FOR TROUBLE SHOOTING.

SEE SECTION 6.3 FOR THEIR USE.

ERRORS

ié

6.1

ERROR HALTS

THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS

IS AS FOLLOWS

16
17
{g

PC+2

20
21
22
23

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

DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE

25
26

IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME
PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY
DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS

IF NO DATA IS ASSOCIATED WITH THE ERROR

gg
gg

MESSAGE
HEADER (IF APPLICABLE)
DATA
(IF APPLICABLE)

THE COMPLETE ERROR MESSAGE IS TYPED.
6.1.1

ERROR DESCRIPTIONS

SEE LISTING FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

SN15=0

40
41

IF THE PROGRAM IS RUN MITH SWi5=0, NO OPERATOT ACTION IS
REQUIRED TO CONTINUE TESTING
6.2.2

IF THE PROGRAM IS RUN WITH SWiS=1, TO CONTINUE TESTING

45
:g

SWiS=i

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

HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH

SELECTED DURING PROGRAM INITIALIZATION, THE PROGRAM WILL
THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS

TO WHICH THE INTERRUPT OCCURED.

THE PROGRAM MUST BE

RESTARTED AT 200 TO RECOVER FROM THIS ERROR.

VRNOWVE LN

CZDHI-DO

MACRO V04.00

SEQ 10

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

6.3

SCOPE LOOPING

6.3.1

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

6.3.2

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

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE)
(CONT'D)

6.3.3

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

RESTRICTIONS
STARTING

THE DH11 TEST CARD MUST BE INSTALLED

RUNNING
NONE

MISCELLANEOUS
EXECUTION TIME

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

PROCESSOR
PDP-11/05,10

POP-11/20
PDP-11/40

PDP-11/45

TIME

~ MACRO V04.00

VRNOVDWN
-

CZDHI-DO

SEQ 11

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

PROGRAM DESCRIPTION

THE FIRST GROUP OF TESTS VERIFIES THAT ONLY ONE BREAK

CHARACTER IS RECEIVED ON A GIVEN LINE, EVEN THOUGH BREAK

IS ASSRETED FOR THAT LINE FOR 400 (OCTAL) CHARACTER TIMES.
THERE IS AN INDIVIDUAL TEST LOOP FOR EACH LINE.
THE TEST BEGINS BY FLUSING EACH UART BY TRANSMITTING
TO NULL (0) CHARACTERS.
THE BREAK BIT IS THEN SET
FOR THE LINE TO BE TESTED, TRANSMISSION OF THE BINARY COUNT
PATTERN IS STARTED.
THE SILO IS THEN CHECKED TO VERIFY
THAT ONLY ONE CHARACTER WAS RECEIVED
AND THAT IT WAS A BREAK CHARACTER.

THE SECOND GROUP OF TESTS VERIFIES THAT NO CHARACTERS
ARE RECEIVED ON A SELECTED LINE IF THE HALF DUPLEX BIT
IS SET FOR THE LINE TO BE TESTED.
THERE IS AN INDIVIDUAL
TEST LOOP FOR EACH LINE TO BE TESTED.
A BINARY COUNT
PATTERN IS THEN TRANSMITTED ON THE LINE TO BE TESTED.
WHEN ALL CHARACTERS HAVE BEEN TRANSMITTED, THE CHARACTER

AVAILABLE FLAG IS TESTED TO DETERMINE IF ANY CHARACTERS HAVE
BEEN RECEIVED.

10.

LISTING
!

LIST
ME
.NLIST MC,MD,CND
.HEADER t/1972, 1976, 1985/,t/DH1i BREAK AND HALF DUPLEX TEST/,t/CZDHI-DO/

sPROGRAM WILL TYPE DH11 BREAK AND HALF DUPLEX TEST
sPROGRAM WILL TYPE "VECTOR ADDRESS-”
sTYPE _IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
+FOR THE DH11 TO BE TESTED, FOLLOMED BY <CARRIAGE RETURN>
+PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-*
sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER

lF’N THE DH11 TO BE TESTED. FOLLOMED BY <CARRIAGE RETURN>
sPROGRAM WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED
sAT THE END OF A PASS, PROGRAM WILL TYPE * CZDHI-DO *
;AND THEN RESUM TESTING
.TITLE CZDHI-DO
.ENABLE ABS
.NLIST MC,MD.CND
LIST
ME
.SYMBOLS

sSWITCH REGISTER OPTIONS

100000
040000
020000

SW15=100000
SH14=40000
SW13=20000

+=1,HALT ON ERROR
+=1,L00P ON CURRENT TEST
+=1,INKIBIT ERROR TYPEOUT

: 3

8882

MACRO V04.00

000001

SEQ 12

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

SH12-1000C
S411=4000
SW10=2000
S409=1000
SW08 =400
SKO06=100
5405=40
5K04-20
SWO03-10
SW02=4
SWO1=2
SWOO=1

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

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

CZOMI-DO

SEQ 13

MACRO VO4.00 27-JUN-85 13:08:01 PAGE 13

JREGISTER DEFINITIONS

000000
000001
000002
000003
000004
000005
000006
000007

177776
013724
|

RO=%0
R1=s1
R2=%2
R3=%3
R4 =54
RS=%5
SP=#6
PC=%7

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

;LOCATION EQUIVALENCIES

;' 3

1SWR=177570
;LIGHTS=177570
PS=177776

: 4

STACK=ENDCOD+200

sCONSOLE SWITCH REGISTER
;PDP-11/45 DISPLAY REGISTER
sPROCESSOR STATUS WORD

;START OF PROCESSOR STACK

: A

;' 3

sINSTRUCTION DEFINITIONS

’

005746
005726
010046
012600
024646
022626

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

;DECREMENT PROCESSOR STACK 1 WORD
sINCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
sRESTORE RO FROM STACK
;DECREMENT STACK TWICE
;INCREMENT STACK TWICE

NACRO WLT

ENT

I
|

CZDHI-DO

MACRO VO4.00

000000
000200

1 TRAPCATCAER FOR ILLEGAL INTERRUPTS

.=0
.REPT 200

p—

—

000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134
000136
000140
000142
000144

000002
000000
000006
000000
000012
000000
000016
000000
000022
000000
000026
000000
000032
000000
000036
000000
000042
000000
000046
000000
000052
000000
000056
000000
000062
000000
000066
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 14

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

tUNEXPECTED TRAP TO THIS LOCATION

.02
HALT
.02
HALT
.2
HALT
o2
HALT
.+2
HALT
.02
HALT
.e2
HALT
.02
HALT
.02
HALT
.2
HALT
.2
HALT
.*2
HALT
.*2
HALT
.2
HALT
.02
HALT

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

HALT

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

;EXAMINE STACK TC FIND CAUSE

—

CZOHI-CO
000146

SEQ 15

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

000000

HALT

tEXAMINE STACK TO FIND CAUSE

000152

000000

HALT

{EXAMINE STACK TO FIND CAUSE

000156

000000

HALT

000000

HALT

000166

000000

HALT

000172

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000176

000000

HALT

$EXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

000000

HALT

000216

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000222

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

000000

HALT

000242

000000

HALT

000246

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000252

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000256

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000262

000000

HALT

000266

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000150

000154

000152

000156

000160

000162

000164

000166

000162

000170
000174

000172

000176

000200

000202

000204

000206

000210

000212

000214

000216

000202

000206
000212
000220

000222

0C0224

000226

000230

000232

000234

000236

000240

000242

000226
000232

000236

000244

000250

000254

000260
000264

000270

000272

000246

000252

000256
000262

000266

000272

000274

000276

000300

000302

000304

000306

000276
000302

000306

000310

000312

000314

000316

000312
000316

000320

000322
M
it

MACRO V04.00

000324
000326

000322
000326
000000

.2
.2

.02

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

tUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

.e2

sUNEXPECTED TRAP TO THIS LOCATION

.42

sUNEXPECTED TRAP TO THIS LOCATION

.*2

.*2
.+2
. o2

.*2

.+2
.*2

.*2
.42
.02

.+2
.2

sEXAMINE STACK TO FIND CAUSE
sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TC FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

.*2

sUNEXPECTED TRAP TO THIS LOCATION

.42

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

.02

sUNEXPECTED TRAP TO THIS LOCATION

.42
HALT

1EXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE
sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

CZOHI-DO
000330
000332
000334
000336
000340
000342
000344
000350
000352
000354
000356

000366
000370
000372
000374
000376
000400
000404
0C0406
000410

0004 14
000416

MACRO V04.00

000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362
000000
000356
000000
000372
000000
600376
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
000000
000476
000000
000502
000000
000506
000000
000512

SEQ 16

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

.2
HALT
.2
HALT
.2
HALT
.*2
HALT
.2
HALT
.42
HALT
.2
HALT
.+2
HALT
.+2
HALT
.42
HALT
.2
HALT
.42
HALT
.*2
HALT
.42
HALT
.*2
HALT
.42
HALT
. o2
HALT
.02
HALT
. o2
HALT
o2
HALT
.02
HALT
. *2
HALT
. 42
HALT
. +2
HALT
., *2
HALT
.42
HALT
.42
HALT
.42
HALT
S

tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
. tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FING CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TG FTND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION

MACRN V04.00

—

000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000
000542
00000
000546
000000
000552
000000
000556
000000
000562
000000
000566
000000
000572
000000
000576
000000
000602
000000
000606
000000
000612
00000
000616
000000
000622
00000C
000626
000000
000632
000000
000636
000000
000642
000000
000646
000000
000652
000000
000656
000000
000662
000000
000666
000000
000672
000000

SEQ 17

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

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

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

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

MACRO V04.00

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

SEQ 18

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

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

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

CZDHI-DO

CZDHI-DO
0

000200

MACRO V04.00

000200
000167

1 000204

000600

SEQ 19

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

.=200

:STANDARD INTERRUPT VECTORS

JMP

START

;GO TO START OF PROGRAM

. TRPDEF

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

000204

10“02

TRPDEF

000204
000204

000204

0C0204
000204

000204
000204
000204

104401
000002
104402

000003

104403
000004

104404
000005
104405
000006
104406
000007

104407
000010

104410
000011
000046

000052

3 000046

5 000052
6

9
10 000054

SCOPE, +/SCOPE LOOP AND ITERATION HANDLER/
?fi'fll”fl
“Ye

TRPDEF
TRPDEF
TRPDEF

TRPDEF
TRPDEF

TRPDEF
TRPDEF
TRPDEF

.=46

010556

LOGICAL

040000

40000
.MACRO

+SCOPE LOOP AND ITERATION HANDLER

TYPE,*/TELETYPE OUTPUT ROUTINE/
TIPE=TRAP+Y
s TELETYPE OUTPUT ROUTINE
Y=Yel
OCTASC,+/0CTAL TO ASCII CONVERSION/

OCTASC=TRAP+Y

sOCTAL TO ASCII CONVERSION

Y=Yel
INSTR, t/INPUT ASCII STRING/
INSTR=TRAP .Y
sINPUT ASCII STRING
Y=Yel
INSTER,t/STRING INPUT ERROR/
INSTER=TRAP+Y
:STRING INPUT ERROR
Y=Yel
PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/
PARAM=TRAP +Y
sCONVERT STRING TO OCTAL, CHECK LIMITS
YsYel
SAVOSP, t/SAVE RO-RS, PC/
SAVOSP=TRAP+Y
:SAVE RO-RS, PC
Y=Yel
RESOS, t/RESTORE RO-RS/
RESOS=TRAP+Y
sRESTORE RO-RS
YsYel
SCOPE1,t/CHECK FOR FREEZE ON CURRENT DATA/
SCOPE1=TRAP+Y
sCHECK FOR FREEZE ON CURRENT DATA
Y=Yl

.=32

.ENDM
.START

CODEM1

MOV

INC

DHSSR, DHSLR

DHSLR

+SET UP ADDRESS OF SILO

:STATUS REGISTER HIGH BYTE

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

CZDHI-DO

MACRO V04.00

SEQ 20

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

001000

.=1000

;PROGRAM INITIALIZATION
;LOCK OV T INTERRUPTS
:SET UP PROCESSOR STACK
:SET UP POMER FAIL VECTOR
;CLEAR P ROGRAM FLAGS AND COUNTS
:TYPE TI TLE MESSAGE
.IIF NB <>,
;:DETERMINE MEMORY SIZE
.IIF NB <>,
:SET UP TRACE TRAP RETURN

001140
001144
001150
001154

005726
005726
012667
012667
104401
005767

001160

001001

001134
001134
001136

000176
177646

176642
176634
012764
010670

177650

CLR
MOV
MOV
MOV
ST

1$:

2%:

.IF N8

MOV

CLR

14:
28:

#24,R2
SPFAIL,(R2)+

3+ POINT TO VECTOR AREA
;SET UP POMER FAIL TRAP

S bd

;SERVICE AT LEVEL 7
;ERROR HANDLER
:SERVICE AT LEVEL 7
:
;GENERAL HANDLER DISPATCH SERVICE
sSERVICE AT LEVEL 7
:

; PUSH TRAP VECTOR

STFLG
PASCNT
ERRCNT
ERRFLG
ERRFLG

;CLEAR TEST START FLAG
sCLEAR PASS COUNT
;CLEAR ERROR COUNT
;CLEAR ERROR FLAG
;:CLEAR LAST ERROR PC

-(SP)

14, 4

; SET UP TRAP VECTOR

8SHR

; TEST SWITCH REGISTER ADDRESS

9176, SHR

; POINT TO SOFT SWITCH DHSCR

; IF SUCCESSFUL, LEAVE IT ALONE

LIGHTS

BEGIN

: O MEANS WE ARE NOT GOING TO USE

; CLEAN UP STACK

;TYPE TITLE MESSAGE

;CHECK INITIALIZATION FLAG
:

:IF NOT O, CHECK SWITCHES
;FOR REINITIALIZATION
:IF NOT O, START TEST

CLR
MOV
TST
BR
MOV
sus
MOV

LB L)

;SET UP PROCESSOR STACK

9340, (R2)+
SERRORS, (R2)+
9340, (R2)+
#TRPSRV, (R2)+
#340, (R2)

ST
(SP)»
ST
(SP)+
MOV
(SP)+, 6
MOV
(SP)+, 4
TYPE
JMTITLE
ST
INIFLG
<DHRVEC>
BNE
VEC1

IFF
.ENDC
IF NB
SIZE:

;LOCK OUT INTERRUPTS

#STACK,SP

176670

177660

#340,PS

001122

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CLR
CLR

424,804

:SET UP TIME OUT RETURN

;LOCATION RESPONDED, CONTINUE

(RO)

RO ,HCORE
@2 ,HCORE
96,044

;WILL TRAP WHEN NO MEMORY

;RO CONTAINS ADDRESS OF
sNON EXISTANT MEMORY
sRESTORE TRAPCATCHER

012767
005067

005777
000405

176700

START:

001066
001072
001076
001102
001106
001114
001120
001122
001122
001130

176764

SWITCH DHSCR ADDRESS

; LIGHTS

..&OMg.OOO.&O

001056
001062

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

;

177570

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

177570

ONNSNNNN

001004
001012
001016
001022
001026
001032
001036
001042
001046
001052

SHR:
LIGHTS:

177570
177570

uuunu:uumunu.

001000
001002

MACRO V04.00

.ENDC

UF NB

TRACER: MOV
SXT

014,8610
RO

MOV

14:

001162

001164
001172
001174
001174
001200
001204
001210
001212
001214
001216
001220
001224
001226

001230
001232
001234
001236
001240

001242
001243
001244
001246
001250
001252
001254
001256
001260
001261
001262

.ENDC
.IF NB
AF B

000404

IFF

032777
001445

000001

012701
012702
012703
010211
005012
060301
060302
020127
001371

000300
000302
000004

177606

.ENDC
VEC1:
VEC2:

1$:

001000

104403
013032
104405
000300
000770
012000
003
004
104403
013054
104405
000000
177776
011756
007
010

.BYTE
.BYTE

<DHRVEC>
©

TST

BEQ
BIT

ORTI,TRTRET
212.8010
#TRTRET, 8016

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

MOV
MOV
MOV

ORTT,TRTRET

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

VEC2
INIFLG

sIF INITIALIZE FLAG=0
;GET VECTOR AND CSR ADDRESS

#SW00, 8SWR

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

VEC2

BEQ

BEGIN

MOV
MOV
MOV

#300,.R1
#302,R2
&4 ,R3

MOV

CLR
ADD
ADD
CcMP
BNE

INSTR
MVECTCR
PARAM
300
770
DHRVEC
3
4
INSTR

R2,(R1)

(R2)
R3.R1
R3,.R2
R1,41000
1$

MREGAD
:ARM

BYTE
.BYTE
.ENDC
OF NB

001270

016767
005267

010506
010502

001274
001300
001302

005767
001002
005167

010550
010542

SEQ 21

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

17777
DHSCR
7
10
<>
CODEM1

MOV

010506
.ENDC

INC
TST

BNE
COM

;RESTORE TRAPCATCHER
;IN FLOATING VECTOR AREA

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

DHSSR,DHSLR

+SET UP ADDRESS OF SILO
1STATUS REGISTER HIGH BYTE

INIFLG

:IF INITIALIZATION FLAG
:
;IS CLEARED
$SET IT

DHSLR

BEGIN
INIFLG

;

b
»

CZDHI-DO

;PROGRAM START
;CHECK FOR PROGRAM START AT SELECTED ADDRESS

CZDHI-DO

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

MACRO V04.00

012767
012706
032777
001410
104403
013243
104405
000000
017500
012016
001
001
000410
012767

005767
001004
005167
104401

000177

000340
013724
000002

176462

BEGIN:

177452

.BYTE
.BYTE

001400
010470
010462
013237
010416

SEQ 22

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

010440

14:

2é:
34:

MOV
MOV
BIT
BEQ
INSTR
MTSTPC
PARAM
0
17500
RETRN
1
1
BR
MOV
ST
BNE
Com
TYPE
JMP

#340,PS
#STACK,SP
:%HOl.BSHR

;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
+IF SWO1=1

;GET PC FOR PROGRAM START
:GET PC

i 4

;MESSAGE "TEST PC”
:CONVERT STRING TO OCTAL

24
OT1,RETRN
STFLG
3
STFLG
SRETRN

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

sTYPE "R” TO INDICATE START
:START TESTING

: 3

CZOHI-DO
1
2

.MACRO

11
12
13

TS \XN,20,4¢
MOV
JSR

15
16
17
18
19
20
21
22
23

MOV
MOV
MOV
19:

30
I

MOV

MoV
CHPB
BNE
MOV
MOV

HOV

25
26

27
28
29

BREAK1

MOV
MOV
2s:

MOV
MOV
18T

BNE

CHP3

BEQ

34
35
36

BIC
MOV
LT

XLINE,XBIT,K

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

5
6
7
8
9
10

SEQ 23

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

MOV

38:

MOV

che

BEQ

41
az
43

HLT
SCOPE
BREAK1

MOV
43:
(ENDM

#8IT11,80DHSCR
PC,CLRALL
#XLINE,8DHSCR
ONULL , SDHBA
#-2,80H8C

933503, 8DHLPR

@' XBIT' ,8DHBAR

fi +ODHSLR

#BIT11,8DHSCR

OXLINE, 8DHSCR
#TBUF
, SDHBA
9-400, 80HBC

933503 ,80HLPR
#XBIT, 8DHBCR
#XBIT, SDHBAR
SDHBAR
23
#1,8DHSLR
34
SDHSSR, R4
#300,.R4

0“00 RS

SDHNRC ,R4
RWRD'K’ ,R4
44
?M'K' RS

iMASTER CLEAR INTERFACE
;CLEAR ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE XLINE
:SET UPT TO TRANSMIT O CHARACTER
sTWO OS WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
:SET BAR BIT FOR LINE XLINE

sWAIT FOR 2 CHARACTERS TO BE RECEIVED

sMASTER CLEAR INTERFACE
sSELECT LINE XLINE
+SET UP TO TRANSMIT 400

:(OCTAL) CHARACTERS

:LINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE XLINE
sSET BAR BIT FOR LINE XLINE
sWAIT FOR ALL CHARACTERS
:T0 BE TRANSMITTED
;CHECK TO SEE THAT ONLY
i1 CHARACTER MAS RECEIVED

1(R4)=ACTUAL RECEIVED DATA

s:CLEAR UNMANTED BITS
:(RS)=EXPECTED SILO FILL LEVEL, 1
sMORE THAN ONE CHARACTER RECEIVED., ERROR
+READ NEXT RECEIVEC CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
1(R5)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR
sCHECK FOR ITERATIONS. LOOP

VR NOND
N -

CZDHI-DO

MACRO V04.00

SEQ 24

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

BLIND1,XLINE,XBIT,K

:SET HALF DUPLEX ON LINE 'K’

s TRANSMITI A BINARY COUNT PATTERN
:VERIFY THAT NO CHARACTERS ARE RECEIVED
TS \XN,20,24

1¢:

2%:
.ENDM

MOV
JSR

9BIT11,80HSCR
PC,CLRALL

MOV
MOV
MOV
MOV

@XLINE,8DHSCR
9TBUF , BDHBA
#-400, 80HBC
973503 ,80HLPR

L.’g

gfllfl

OXBIT, SDHBAR

;MASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE XLINE
;SET UP TO TRANSMIT
3400 (OCTAL) CHARACTERS
+SET RECEIVER BLIND
;LINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS
+SET BAR BIT FOR LINE XLINE

2{8

gusca

;WERE ANY CHARACTERS RECEIVED

HLT

sRECEIVER NOT BLINDED, ERROR

MOV

i%l

sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

sCHECK FOR ITERATIONS, LOOP

HMACRO V04.00

SEQ 25

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

SSETALL

sSET BYTE COUNT FOR ALL LINES TO 400
1SET BUS ADDRESS FOR ALL LINES TO TBUF
sCLEAR EXPECTED CHARACTER BUFFERS
$SET LINE ACTIVE BITS FOR ALL LINES

SETALL: MOV
CLR
MOV
MOV
14:
MOV
MOV
MOV

CLRB
MOVE

| od ot

o ol

ONOVNBUNFOOVB
IOV GIN -

CZDHI-DO

INC

INC
ADD
ADD
DEC
BNE
MOV

#20,R0
R1
#200,R2
#1,.R3
#TBUF , SDHBA
#-400, 8DHBC
931403, 8DHLPR

+SET UP 70 LOAD 20 MEMORY LOCATIONSA
sSTART WITH LINE O

RBUF(R1)
R2.RBUF(R3)
GDHSCR

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

.ENDM

RTS
PC
SSETALL

.MACRO

CCLRALL

sCLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS

CLRALL: MOV
18:
CLR
CLR
INC

DEC
BNE

.ENDM

RTS

CCLRALL

#20,R0
SDHBA

SDHBC
@DHSCR

RO
14
PC

CZDHI-DO
2

XLINE=LINE

000000

XBIT=BITX

000020

K=KX

000001
000000
000020

BITX=1
KX=0
.REPT

000000

6
4
9

10
11
12
13
14

SEQ 26

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

000020

15
16

MACRO V04.00

LINE=0
20

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

LIST
.ENDR

001400

BREAK1

\LINE,\BITX,\KX
sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE O
:SET BREAK BIT FOR LINE O
s TRANSMIT BINARY COUNT PATTERN ON LINE O
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK

001400
001400
001406
001414

012767
012767
012767

T
000340
000020
001630

176370
010410
010376

TS \XN,20,4%
Ti:
MOV
MOV
iy

001422
001430

000002
012777
004767

004000
010430

010326

001434
001442
001450
001456

012777
012777
012777
012777

000000
012060
177776
033503

010314
010314
010310
010276

001464
gma

012777
gfi;z

000001
000002

010276
010276

001502
001510
001516

001524
001532
001540
001546
001554
001560

012777
012777
012777
012777
012777
012777
012777
005777
001375

004000
000000
012112

010246
010240
010240
010234
010222
010224
010214

001570
001572
001576
001602

001407
017704
042704
012705

001562

001606

177400
033503
000001
000001
010210

000001
010176

000300
000400

010206

XN=XN+1

1¢:

24:

#340,PS
#20, ICOUNT
844 ,ESCAPE

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

MOV

#,.FREEZ1

1SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,8DHSCR
PC.CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND

MoV
MOV
MoV
MOV

40, 80HSCR
ONULL , BDHBA
#-2,8DHBC
933503, 80HLPR

MOV
g‘fl

#1 ,00MBAR
02SDHSLR

MoV
MOV
MOV
MOV
MOV
MOV
MoV
187
BNE
P8
BEQ

unu.m
0, BOHSCR
OTBUF , BDHBA
#-400, 8DHBC
433503, 80HLPR
01 ,8DMBCR
81 , GDHBAR
SDHBAR
2¢
01 ,80HSLR
34

8IC
MOV
Wt

#300,R4
#400,RS

MOV
<>

MoV

GDHSSR R4

1 3

3BUS ADDRESS MEMORY LOCATIONS
$SELECT LINE O

1SET UPT TO TRANSMIT O CHARACTER
sTHO OS MILL BE TRANSMITTED
sSET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
sSET BAR BIT FOR LINE O
sHAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
sSELECT LINE O
$sSET UP TO TRANSMIT 400

sCOCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
ISET BREAK BIT FOR LINE O
sSET BAR BIT FOR LINE O
sHAIT FOR ALL CHARACTERS
s70 BE TRANSMITTED

sCHECK TO SEE THAT ONLY

11 CHARACTER MAS RECEIVED
sCR4)=ACTUAL RECEIVED DATA
sCLEAR UNMANTED BITS
;cum SILO FILL LEVEL, 1

sMORE THAN ONE CHARACTER mam. ERROR

CZDHI-DO
001606
001610
001614
001620
001622
001626
001626
001630

001632

MACRO V04.00

104000
017704
026704
001403
016705

SEQ 27

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

34:

010144
010734

EMT

MOV

.Cg:

MOV
E'}!;

010726

104001

104400
000001
000002
000001

SDHNRC ,R4
l:l.lRDO.M

RWRDO, RS
i

SCOPE

iREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK

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

LINE=LINE+1

;

BITX=BITX+BITX

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

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
s:ON LINE 1
1SET BREAK BIT FOR LINE 1
s TRANSMIT BINARY COUNT PATTERN ON LINE 1
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
001632
001632
001640
0C1646

012767
012767
012767

000340
000020

176136
010156
010144

TS \XN,20,4%

T2:

> 5

—

.ENDC

MOV
MOV
MOV

#340,PS
920, ICOUNT
843 ,ESCAPE

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

MOV

¢,.FREEZL

sSET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC.CLRALL

: 3

001654
001662

000003
012777
004767

004G00
010176

010074

001666
001674
001702
001710

012777
012777
012777
012777

000001
012060
177776
033503

010062
010062
010056
010044

MOV
MOV
MOV
MOV

@1 ,8DHSCR
ONULL , SDHBA
¢-2,80HBC
933503, 8DHLPR

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
;BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 1
:SET UPT TO TRANSMIT O CHARACTER
;THO OS MNILL BE TRANSMITTED
sSET LINE SPEED=9600 BAUD

001716
001724
001732
001734
001742
001750
001756
001764
001772

010044

MOV

#2 ,8DHBAR

;SET BAR BIT FOR LINE 1

002006
002012
002014
002022
002024
002030
002034

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

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BNE
cMP8
BEQ
MOV
BIC
MOV

#BIT11,8DHSCR
@1 ,8DHSCR
STBUF , SDHBA
#-400, 80HBC
933503, 8DHLPR
92 ,8DHBCR
#2 ,8DHBAR
SDHBAR
24
#1,8DHSLR
34
SDHSSR ,R4
4300,R4
#400,RS

sMASTER CLEAR INTERFACE
;SELECT LINE 1
sSET UP TO TRANSMIT 400
;(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
:SET BREAK BIT FOR LINE 1
:SET BAR BIT FOR LINE 1
sWAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED
:CHECK TO SEE THAT ONLY
;1 CHARACTER MAS RECEIVED
;(R4)=ACTUAL RECEIVED DATA
sCLEAR UNWANTED BITS
:(RS)=EXPECTED SILO FILL LEVEL, 1

002040
002042
002046

104000
017704
026704

MOV
cHP

SDHNRC ,R4
RWRD1,R4

sREAD NEXT RECEIVED CHARACTER REGISTER
:+IS RECEIVED CHARACTER A BREAK

010044

010014
010006
010006
010002
007770
007772
007762

XN=XN+1

18:

28:

007754

E'%‘I;

34:

g.”!SLR

sCHARACTER LENGTH =8 BITS

sWAIT FOR 2 CHARACTERS TO BE RECEIVED

;MORE THAN ONE CHARACTER RECEIVED, ERROR

CZDHI-DO

002052
002054
002060
002060
002062

002064

MACRO VO4.00

001403

016705

SEQ 22

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

BEQ

010476

MOV

HLT
EMT
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe+1

104001
104400
000002
000004
000002

BREAK1

RWRD1,RS

1
1

i(RS)=EXPECTED RECEIVED CHARACTER

sRECEIVED DATA ERROR

sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

;FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE 2
+SET BREAK BIT FOR LINE 2
s TRANSMIT BINARY COUNT PATTERN ON LINE 2
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
002064
002072
002100

012767
012767
012767

000340
000020
002314

175704
007724
007712

TS \XN,20,4$

T3:

. 4
5

002120
002126
002134
002142

002150
002156
002164
002166
002174
002210
002216
002224
002232
002244
002246

002256
002262
002266
002272
002272
002274
002300

—

002306
002312

000004
012777
004767

004000

007744

007642

012777
012777
012777
012777

000002
012060
177776
033503

007630
007630
007624
007612

g‘;’;;z

012777

000002

000004

007612

012777
012777
012777
012777
012777
012777
012777
005777
001375

004000
000002
C12112
177400
033503
000004
000004
007524

007562
007554
007554
007550
007536
007540
007530

000001

007522

122777
001407
017704
042704
012705

104000
017704
026704
001403
016705

007612

XN=XN+1

1$:

2s:

010246

MOV

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

@,FREEZ1

sSET UP TO LOOP WITH DATA

MOV

MOV
MOV
MOV
MOV

2,8DHSCR
ONULL, SDHBA
€-2,80HBC
33503, 8DHLPR

MOV

84 ,8DHBAR

;BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 2
:SET UPT TO TRANSMIT O CHARACTER
sTHO OS WILL BE TRANSMITTED
+SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
;SET BAR BIT FOR LINE 2

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BNE

#BIT11,8DHSCR
2, 8DHSCR
#TBUF , SDHBA
9-400,80HBC
#33503, BDHLPR
4 ,80HBCR
84, BDHBAR
SOHBAR
2%

sMASTER CLEAR INTERFACE
sSELECT LINE 2
:SET UP TO TRANSMIT 400
:(OCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
:SET BREAK BIT FOR LINE 2
:SET BAR BIT FOR LINE 2
sWAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED

“m

EMT
MOV
CHP
BEQ
MOV
HLT

:“.’.“SLR

#1,80HSLR
$

SDHSSR,R4
#300,R4
#400,RS5

0
SOHNRC ,R4
RWRD2, R4
4
RWRD2, RS
1

: 3

;MASTER CLEAR INTERFACE

PC,.CLRALL

HLT

3s:

#BIT11,80HSCR

JSR

CHP8
BEQ
MOV
B8IC
MOV

007512
000300
000400
007460
010254

#340,PS
920, ICOUNT
943 ,ESCAPE

A
002106
002114

MOV
MOV
MOV

:CLEAR ALL BUS ADDRESS AND

:WAIT FOR 2 CHARACTERS TO BE RECEIVED

sCHECK TO SEE THAT ONLY
31 CHARACTER WAS RECEIVED
;(R4)=ACTUAL RECEIVED DATA
sCLEAR UNWANTED BITS
s (RS)=EXPECTED SILO FILL LEVEL, 1

tMORE THAN ONE CHARACTER RECEIVED, ERROR
;READ NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
1 (R5)=EXPECTED RECEIVED CHARACTER

sRECEIVED DATA ERROR

CZDHI-DO

002312
002314

002316

MACRO V04.00

SEQ 29

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

104001
104400
000003
000010
000003

43
:

EMT

SCCPE
LINE=LINE+1

;CHECK FOR ITERATIONS, LOOP

BITX=BITX+B 1.

KX=KX+1

BREAK1

\LINE,\BITX, \KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS

;ON LINE 3
:SET BREAK BIT FOR LINE 3
s TRANSHIT BINARY COUNT PATTERN ON LINE 3
:VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
:AND THAT IT IS A BREAK
002316
002316
002324
002332

002340

0C2346

000005
012777
004767

002352
002360
002366
002374

012777
012777
012777
012777

002410
002416
002426

002434

002450
002456
002472
002476
002510
002514

002524
002526
002532
002536
002540
002544
002544
002546

—

012767
012767
012767

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

104000
017704
026704
001403
016705
104001
104400
000004

000340
000020
002546

004000
007512
000003
012060

175452
007472
007460

007410

TS \XN,20,4%
T4:
MOV
MOV
MOV
JFNB
©
MOV
.ENDC
XN=XN+1
MOV

007376

177776
033503

007372
007360

000010
000002

007360
007360

004000
000003
012112
177400
033503
000010
000010
007272

007330
007322
007322
07316
007304
007306
007276

000001

007270

18:

2¢:

007260
000300
0004500

007226
010024

3s:

010016

4s:

@340,PS
€20, ICOUNT
@43 ,ESCAPE

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

®.FREEZ1

;SET UP TO LOOP WITH DATA

JSR

#BIT11,3DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV

#3,80HSCR
ONULL, SDHBA
#-2,8DHBC
933503, 80HLPR

;MASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
:SELECT LINE 3
:SET UPT TO TRANSMIT O CHARACTER
;THO OS WILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
;CHARACTER LENGTH =8 BITS
sSET BAR BIT FOR LINE 3
sWAIT FOR 2 CHARACTERS TO BE RECEIYED

MOV
CHMPB
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
ST
BNE
CcMPB
BEQ
MOV
BIC
MOV
HLT
EMT
MOV

CHP
BEQ
MOV
HLT
EMT

SCOPE

LINE=LINE+1

910, 8DHBAR

3 +SDHSLR

#8IT11,8DHSCR

: 3

+MASTER CLEAR INTERFACE
sSELECT LINE 3
sSET UP TO TRANSMIT 200

:(OCTAL) CHARACTERS

sLINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 3
:SET BAR BIT FOR LINE 3
sWAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
s1 CHARACTER WAS RECEIVED
:(R4)=ACTUAL RECEIVED DATA
:CLEAR UNMANTED BITS
+(RS)=EYPECTED SILO FILL LEVEL, 1
:MORE THAN ONE CHARACTER RECEIVED. ERROR

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
1 (R5)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR
;:CHECK FOR ITERATIONS, LOOP

CZOHI-DO

002550

MACRO V04.00

SEQ 30

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

00002¢
000004

BITX=BITX+BITX

KX=KX+1

BREAK1

\LINE, \BITX, \KX

+FLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 4
;SET BREAK BIT FOR LINE 4
s TRANSMIT BINARY COUNT PATTERN ON LINE 4
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
:AND THAT IT IS A BREAK
002550
002556
002564

002572
002600

002604
0Cc2612

002634
002650

002652
002674
002702
002710
002716
002724
002730

002740
002742
002746
002752
002756
002760
002764
002770
002772
002776
002776
003000

——

003002

012767
012767
012767

000340
000020
003000

175220

007240
007226

000006
012777
004767

007156

012777
012777
012777
012777

007144
007144
007140
007126

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

007126
007126

104000
017704
026704
001403
016705
104001
104400
000005
000040
000005

007076
007070
007070
007064
007052
007054
007044

TS \XN,20,4%
T5:
MOV
MOV
MOV
IF N8
©
MOV
.ENDC
XN=XN+1
MOV
JSR

MOV
MOV
MOV
MOV

4, 80HSCR
ONULL, BDHBA
-2, 80HBC
933503, 80HLPR

MOV
CMPB
BNE
MOV
MOV
MOV
MOV

920, SDHBAR

18:

2%:

18T

007036

007566

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

¢,FREEZ1

:SET UP TO LOOP WITH DATA

@8IT11,8DHSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
;CLEAR ALL BUS ADDRESS AND
;BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 4
+SET UPT TO TRANSMIT O CHARACTER

g.msm

#B8IT11,80HSCR
#5,80HSCR
#TBUF
, DHBA
#-400, GDMBC
933503, 8DHLPR

920, SDHBCR
920, SDHBAR
SDHBAR
24

007026
000300

006774
0C7574

#340,PS
€20, ICOUNT
94$ ,ESCAPE

R4
SDHSSR
#300,R4

3s:

MOV

#400,RS
0
0
, R4
SDHNRC

?NO.RS
1
4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe1
BREAK1
\LINE,\BITX,\KX

: 3

;THO OS MWILL BE TRANSMITTED
:SET LINE SPEED=9600 BAUD
;CHARACTER LENGTK =8 BITS

sSET BAR BIT FOR LINE 4
;WAIT FOR 2 CHARACTERS TO BE RECEIVED

sMASTER CLEAR INTERFACE
sSELECT LINE 4
:SET UP TO TRANSMIT 400
s (OCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 4
:SET BAR BIT FOR LINE 4
sWAIT FOR ALL CHARACTERS
:70 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
:1 CHARACTER MAS RECEIVED

:(R4)=ACTUAL RECEIVED DATA
:CLEAR UNMANTED BITS
s(RS)=EXPECTED SILO FILL LEVEL, 1
:MORE THAN ONE CHARACTER RECEIVED., ERROR
sREAD NEXT RECEIVED CHARACTER REGISTER

+IS RECEIVED CHARACTER A BREAX

s (RS)=EXPECTED RECEIVED CHARACTER
+RECEIVED DATA ERROR

:CHECK FOR ITERATIONS, LOOP

CZDHI-DO

MACRO V04.00

SEQ 31

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

003002
003002

003010
003016

012767
012767
012767

000340
000020
003232

000007

174766

007006
026774

003024
003032

012777
004767

006724

003036
003044
003052
003060

012777
012777
012777
012777

006712
006712
006706
006674

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

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

006674
006674

003234

104000
017704
026704
001403
016705

104001
104400
000006
000100
000006

TS \XN,20,4%
T6:
MOV
MOV
MOV
JFNB
©
MOV
.ENDC
XN=XN+1
MOV
JSR

MOV
MOV
MOV
MOV

#5,80HSCR
ONULL, S8DHBA
¢-2,80HBC
933503, 80HLPR

1$:

MOV
CMPB
BNE
MOV
MOV
MOV

006622
006612

#340,PS
920, ICOUNT
43 ,ESCAPE

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

©,FREEZ1

sSET UP TO LOOP WITH DATA

®BIT11,80HSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 5
:SET UPT TO TRANSMIT O CHARACTER
;TWO OS WILL BE TRANSMITTED
;SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS

940, 8DHBAR

g.wflsm

#8IT11,8DHSCR
#5,9DHSCR

#TBUF
, SDHBA
#-400, 8DHBC
§33503, BDHLPR
940, BOHBCR
940, BDHBAR

SOHBAR
2%

0% +8DHSLR
3

SOMSSR ,R&
#300,R4

007336

HLT
EMT
3%:
MOV
P
BEQ
MOV
HLT
EMT
4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

BREAK1

#400,RS
0
0
, R4
SOHNRC

?ms.as
1

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
iON LINE 5
:SET BREAK BIT FOR LINE S
s TRANSMIT BINARY COUNT PATTERN ON LINE S
:VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK

+SET BAR BIT FOR LINE S
sWAIT FOR 2 CHARACTERS TO BE RECEIVED

sMASTER CLEAR INTERFACE
sSELECT LINE S
:SET UP TO TRANSMIT 400
s(OCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
sSET BREAK BIT FOR LINE S
:SET BAR BIT FOR LINE S

sHAIT FOR ALL CHARACTERS
;7O BE TRANSMITTED
sCHECK TC SEE THAT ONLY
sl CHARACTER MAS RECEIVED
:(R4)=ACTUAL RECEIVED DATA
sCLEAR UNMANTED BITS
+{RS)=EXPECTED SILO FILL LEVEL, 1
sMORE THAN ONE CHARACTER RECEIVED. ERROR
sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
s (RS5)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR

:CHECK FOR ITERATIONS. LOOP

\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 6

CZDHI-DO

MACRO V04.00 27-JUN-85 13:08:01 PAGE 20-6

+SET BREAK BIT FOR LINE 6
s TRANSMIT BINARY COUNT PATTERN ON LINE 6
iVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
003234
003234
003242
003250

012767
012767
012767

000340
000020
003464

174534
006554
006542

TS \XN,20,44
T7:
MOV
MOV
MOV
&

#.FReEZ

sSET UP TO LOOP WITH DATA

XN=XN¢1

MOV
JSR

@BIT11,8DHSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND

012777
004767

004000
006574

006472

003270
003276
003304
003312

012777
012777
012777
012777

000006
012060
177776
033503

006460
006460
006454
006442

MOV
MOV
MOV
MOV

06.8DHSCR
ONULL,SDHBA
9-2,80HBC
33503, 80HLPR

sSELECT LINE 6
sSET UPT TO TRANSMIT O CHARACTER
sTWO 0S WILL BE TRANSMITTED
sSET LINE SPEED=9600 BAUD

003320

012777
122777

000100
000002

006442
06442

14:

MOV
CHPB

#100,80HBAR
42,GOWSLR

+SET BAR BIT FOR LINE 6
sWAIT FOR 2 CHARACTERS TO BE RECEIVED

012777
012777
012777
012777
012777
012777
012777
005777

004000
000006
012112
177400
033503
000100
000100
006354

006412
006404
006404
006400
006366
006370
06360

20:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST

#BIT11,8DHSCR
#6.8DHSCR
#TBUF,BDHBA
¢-400,8DHBC
#33503,8DHLPR
#100,80HBCR
#100,80HBAR
GDHBAR

sMASTER CLEAR INTERFACE
1SELECT LINE 6
sSET_UP TO TRANSMIT 400
s(OCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
sSET BREAK BIT FOR LINE 6
:SET_BAR BIT FOR LINE 6
sWAIT FOR ALL CHARACTERS

122777

000001

006352

1,80HSLR

sCHECK TO SEE THAT ONLY

017704
042704
012705

006342
000300
000400

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

003466

—

000010

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

ooc

003256
003264

0340,PS
920, ICOUNT
@44,ESCAPE

001375
001407

104000

017704
026704

006310
007114

016705

007106

001403
104001
104400
000007
000200
000007

BNE

BEQ

CMPB

MOV
BIC
MOV
HT
35:

BEQ

MOV
nyY

GDHNRC,R4
RWRD6,R4

RMRD6,RS

o
%
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
BREAK1

sCHARACTER LENGTH =8 BITS

170 BE TRANSMITTED

s1 CHARACTER WAS RECEIVED

GDHSSR,R4
#300.Ré
#400,.RS
0

MOV
CWP

sBUS ADDRESS MEMORY LOCATIONS

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

sREAD NEXT RECEIVED CHARACTER REGISTER
sIS RECEIVED CHARACTER A BREAK

1(RS)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR

:CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 7
sSET BREAK BIT FOR LINE 7
s TRANSMIT BINARY COUNT PATTERN ON LINE 7
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED

MACRO V04.00

SEQ 33

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

sAND THAT IT IS A BREAK
012767
012767
012767

000340

003716

000011
012777
004767

004000
006342

012777
012777
012777
012777

000007
012060
177776
033503

012777
122777
001374
012777
012777
012777

000200
000002

012777

012777
012777
012777
005777

001375
122777
001407
017704
042704
012705
104000
017704
026704
001403
016705
104001
104400
000010
000400
000010

004000
000007
012112
177400
033503
000200
000200
006122

174302
006322
006310

TS \XN,20,44

T10:

JIF N8
.ENDC
XN=XN+1

1s:

28:

000001

006110

006056
006664

3%:

MOV
MOV
MOV

iDISABLE ALL INTERRUPTS
+SET UP FOR 20 ITERATIONS
iSET UP TO ESCAPE TO NEXT TEST

MOV

#,FREEZ1

+SET UP TO LOOP WITH DATA

#B8IT11,8DHSCR

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

MOV
JSR

PC,.CLRALL

MoV
MOV
MOV
MOV

#7,8DHSCR
ONULL , 8DHBA
#-2,80HBC
#33503,8DHLPR

MOV
CMPB
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#200,8DHBAR
#2,8DHSLR

TST

BNE
CcMPB
BEQ
MOV
B8IC
MOV
HLT
EMT
MOV
cHP
BEQ
MOV
HLY
EMT

4%:
SCOPE
LINE=LINE+1

#B8IT11,8DHSCR
#7,8DHSCR
#TBUF,8DHBA
#-400,80HBC
#33503,8DHLPR
#200, 8DHBCR
4200, 80HBAR

SDHD AR

24
#1,8DHSLR
34
SDHSSR R4
#300,R4
#400,RS
0
0
SDHNRC ,R4
RURD7,R4
43
RWRD7,.RS
i
1

sMASTER CLEAR INTERFACE
sSELECT LINE 7
:SET UP TO TRANSMIT 400

:(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD

+SET BREAK BIT FOR LINE 7
:SET BAR BIT FOR LINE 7
sWAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED

;CHECK TO SEE THAT ONLY
s1 CHARACTER WAS RECEIVED
s(R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS

s(RS)=EXPECTED SILO FILL LEVEL, 1

sMORE THAN ONE CHARACTER RECEIVED., ERROR

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
s(R5)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX

KX=KXe1
BREAK1
\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
;ON LINE 10
sSET BREAK BIT FOR LINE 10
s TRANSMIT BINARY COUNT PATTERN ON LINE 10
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
003720

TS \XN,20,4%

i 3

CZDHI-DO
003720
003726
003734

MACRO V04.00

012767
012767
012767

000340
000020
004150

174050
006070
006056

Tii:
.

003742
003750

000012
012777
004767

004000
006110

006006

003754
003762
003770
003776

012777
012777
012777
012777

000010
012060
177776
033503

005774
005774
005770
005756

012777

122777
001374
012777

012777
012777
012777
012777
012777
012777
005777

001375
122777
001407
017704
042704
012705
104000

017704

004140
004142
004146
004146
004150

004152

026704
001403
016705

000400

005756

000002

005756

004000

005726

012112
177400
033503
000400
000400
005670

005720
005714
005702
005704
005674

000001

005666

000010

SEQ 34

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

——

.ENDC
XN=XN+1

1i$:

005720

2%:

3%:

006426

104001
104400
000011
001000
000011

#340,PS
#20, ICOUNT
#44 ,ESCAPE

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

MOV

#,FREEZ1

$SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,8DHSCR
PC,CLRALL

;MASTER CLEAR INTERFACE
;CLEAR ALL BUS ADDRESS AND

MOV
MOV
MOV
MOV

#10, 8DHSCR
#NULL , BDHBA
#-2,80HBC
#33503,8DHLPR

sSELECT LINE 10
sSET UPT TO TRANSMIT O CHARACTER

MOV

9400, 8DHBAR
:%.MSLR

;WAIT FOR 2 CHARACTERS TO BE RECEIVED

MOV

#B8IT11,8DHSCR

sMASTER CLEAR INTERFACE

MOV
MOV
MOV
MOV
MOV
TST
BNE
CMPB
BEQ
MOV
BIC
MOV
&}

#TBUF , 8DHBA
#-400,8DHBC
933503, 8DHLPR
#400,8DHBCR
#400,8DHBAR
SDHBAR
24
#1,8DHSLR
34
SDHSSR R4
#300,R4
#400,RS
8

;SET UP TO TRANSMIT 400
;(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
;SET BREAK BIT FOR LINE 10
:SET BAR BIT FOR LINE 10
sWAIT FOR ALL CHARACTERS
370 BE TRANSMITTED
;CHECK TO SEE THAT naLY
31 CHARACTER WAS RE._IVED
:(R4)=ACTUAL RECEIVED DATA
;CLEAR UNMANTED BITS
s(RS)=EXPECTED SILO FILL LEVEL, 1
sMORE THAN ONE CHARACTER RECEIVED, ERROR

MOV
%

SDHNRC ,R4
:!.IDIO.RQ

;READ NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK

oV
g-‘;

RWRD10,RS
{

i1(R5)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR

acza

MOV

005656
000300
000400
005624
006434

MOV
MOV
MOV

4%:

€10, 8DHSCR

SCOPE

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

:BUS ADDRESS MEMORY LOCATIONS

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

;SELECT LINE 10

;CHECK FOR ITERATIONS, LOOP

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 11
;SET BREAK BIT FOR LINE 11
; TRANSMIT BINARY COUNT PATTERN ON LINE 11
;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
;AND THAT IT IS A BREAK
004152
004152
004160
004166

022767

01'7¢TM

012767

£70340
000020
004402

173616
005636
005624

TS \XN,20,44

Ti2:

MOV
MOV
MOV

#340,PS
420, ICOUNT
#44 ,ESCAPE

s 3

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

CZDHI-DO

MACRO V04.00

JOF NB

004372
004374
004400

004404

.ENDC

000013
012777
004767

004000

005656

005554

012777
012777
012777
012777

000011
012060
177776
033503

005542
005542
005536
005524

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

104000
017704
026704
001403
016705

001000

SEQ 35

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

005524

000002

005524

004000
000011
012112
177400
033503
001000
001000
005436

005474
005466
005466
005462
005450
005452
005442

000001

005434

XN=XN+1

1$:

2$:

005424
000300
000400

005372
006204

34:

006176

104001
104400
000012
002000
000012

4%:

MOV

#.FREEZ1

#8IT11,8DHSCR

JSR

PC,CLRALL

MOV
MOV
MOV
MOV

#11,8DHSCR
#NULL , 8DHBA
#-2,80H8C
#33503,8DHLPR

KX=KX+1

; 3

sMASTER CLEAR INTERFACE

;CLEAR ALL BUS ADDRESS AND

mcm

:%’.MSLR

#1000, 8DHBAR

;BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 11
:SET UPT TO TRANSMIT O CHARACTER
;TWO 0S WILL BE TRANSMITTED
sSET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
;SET BAR BIT FOR LINE 11

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST
BNE
CMPB
BEQ
MOV
BIC
MOV
a}

#B81IT11,8DHSCR
€11, 80HSCR
#TBUF , SDHBA
#-400,80HBC
#33503,8DHLPR
#1000, 8DHBCR
#1000, SDHBAR
8DHBAR
24
@1 ,8DHSLR
34
8DHSSR ,R4
#300,.R4
#400,RS
g

sMASTER CLEAR INTERFACE
:SELECT LINE 11
;SET UP TO TRANSMIT 400
;(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
:+SET BREAK BIT FOR LINE 11
;SET BAR BIT FOR LINE 11
sWAIT FOR ALL CHARACTERS
;70 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
:1 CHARACTER WAS RECEIVED
;(R4)=ACTUAL RECEIVED DATA
:CLEAR UNMANTED BITS
s(RS)=EXPECTED SILO FILL LEVEL, 1
;MORE THAN ONE CHARACTER RECEIVED., ERROR

MOV
%

SDHNRC ,R4
2?011.“‘

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK

MOV
g-';

RWRD11,.RS
{

s(RS)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR

MOV

SCOPE

;WAIT FOR 2 CHARACTERS TO BE RECEIVED

;CHECK FOR ITERATIONS. LOOP

LINE=LINE+1
BITX=BITX+BITX

BREAKL

;SET UP TO LOOP WITH DATA

\LINE,\BITX,\KX

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

004412
004420

012767

012767
012767

000340
000020
004634

173364
005404
005372

TS \XN,20,4%

Ti13:
%
5

#340,PS
0, ICOUNT
$,ESCAPE

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

#,.FREEZL

:SET UP TO LOOP WITH DATA

mide

hciniiinga

MOV
MOV
MOV

MOV

: 3

CZDHI-DO
004426
004434

000014
012777
004767

004000
005424

005322

004440
004446

012777
012777

000012
012060

005310
005310

#BIT11,8DHSCR
PC,CLRALL

005304
005272

MOV
MOV

#12,8DHSCR
SNULL , BDHBA

MOV
CMPB
BNE
MOV
MOV
MOV

#2000, B8DHBAR
92 ,8DHSLR
14
#B8IT11,8DHSCR
€12, 80HSCR
#TBUF , SDHBA

MOV
MOV
MOV
TST

933503 ,8DHLPR
#2000, 8DHBCR
#2000, 8DHBAR
SDHBAR

;LINE SPEED = 9600 BAUD
;SET BREAK BIT FOR LINE 12
:SET BAR BIT FOR LINE 12
;WAIT FOR ALL CHARACTERS

BIC

#300,.R4

sCLEAR UNWANTED BITS

012777
012777

177776
033503

004470
004476
004504
004506
004514
004522

012777
122777
001374
012777
012777
012777

002000
000002

005272
005272
005242
005234
005234

004536
004544
004552
004560

012777
012777
012777
005777

004000
000012
012112
177400
033503
002000
002000
005204

004564
004566
004574
004576
004602

004606
004612
004612
004614
004620
004624
004626
004632
004632
004634

004636

012777

001375
122777
001407
017704

000001
:
005172

012705

200400

042704

104000
017704
026704
001403
016705

XN=XN+1

MOV
JSR

004454
004462

004530

MACRO V04.00 27-JUN-85 13:08:01 PAGE 20-10

1$:

005230

005216
005220
005210

MOV

24:

005202

000300

BNE
CMPB
BEQ
MOV

¢-2,80HBC
933503 ,80HLPR

#-400, 8DHBC

2¢
€1 ,8DHSLR
34
S8DHSSR R4

MOV
#400,RS
HLY
0
EMT
0
3s:
Moy
SDHNRC ,R4
cMpP
RWRD12,R4
BEQ
4%
MOV
RHRD12,RS
HLT
1
EMT
1
4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+
1
BREAK1I \LINE,\BITX,\KX

005140
005754
005746

104001
104400
000013
004000
000013

;MASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
:BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 12
+SET UPT TO TRANSMIT O CHARACTER
;TWO 0S WILL BE TRANSMITTED
;SET LINE SPEED=9600 BAUD

;CHARACTER LENGTH =8 BITS
sSET BAR BIT FOR LINE 12
sWAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
;SELECT LINE 12
;SET UP TO TRANSMIT 400

;(OCTAL) CHARACTERS

;70 BE TRANSMITTED
;CHECK TO SEE THAT OMLY
;1 CHARACTER WAS RECEIVED
;(R4)=ACTUAL RECEIVED DATA

s(RS)=EXPECTED SILO FILL LEVEL, 1
sMORE THAN ONE CHARACTER RECEIVED, ERROR
sREAD NEXT RECEIVED CHARACTER REGISTER
:+IS RECEIVED CHARACTER A BREAK
s(RS)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR
;CHECK FOR ITERATIONS. LOOP

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

004636

004636
004644
004652

012767
012767
012767

000340
000020
005066

173132
005152
005140

TS \XN,20,4%
Ti4:

2
5

004660
004666

000015
012777
004767

004000
005172

005070

XN=XN+1

MOV
MOV
MOV

#340,PS
420, ICOUNT
044 ESCAPE

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

MOV

¢,FREEZ1

sSET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC,.CLRALL

sMASTER CLEAR INTERFACE
tCLEAR ALL BUS ADDRESS AND

: 3

CZDHI-DO
004672
004700'
004706
004714

012777
012777
012777
012777

000013
012060
177776
033503

005056
005056
005052
005040

004722
004730
004736
004740
004746

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777
005777

004000
000002

005040
005040

004000
000013
012112
177400
033503
004000
004000
004752

005010
005002
005002
004776
004764
004766
004756

000001

004750

004754

004762
004770
004776
005004
005012
005016
005020
005026
005030
005034
005040
0C5044
005044
005046
005052

005056
005060

005064
005064
005066

005070

SEQ

MACRO V04.00 27-JUN-85 13:08:01 PAGE 20-11

001375
122777
001407
017704
042704
012705
104000
017704
026704
001403
016705

14:

€13, 80HSCR
ONULL , SDHBA
¢-2,80H8C
33503 ,80HLPR

MOV
CMPB
BNE
MOV
MOV

#4000, 8DHBAR
#2,80HSLR
14
#8IT11,80HSCR
#13, 8DHSCR
#TBUF , BDHBA
#-400, 80HBC
933503, GDHLPR
#4000, 8OHBCR
#4000, BDHBAR
SDHBAR

MOV

2¢:

004740
000300
000400

004706
005524

MOV
MOV
MOV
MOV

34:

MOV
MOV
MOV
MOV
TST
BNE
CMPB
BEQ
MOV
BIC
MOV
HLT
EMT
MOV
CHP

BEQ
MOV

005516

HLT

104001
104400
000014
010000
000014

EMY
43:
SCOPE
LINE=LINE.1

24
@1 ,8DHSLR
34
SDHSSR,R4
#300,R4
#400,R5
0
0
SDHNRC , R4
RWRD13,R4
4%
RWRD13,RS

1
1

. 37

iBUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 13
+SET UPT TO TRANSMIT O CHARACTER
1TWO OS WILL BE TRANSMITTED
+SET LINE SPEED=9600 BAUD
;CHARACTER LENGTH =8 BITS
sSET BAR BIT FOR LINE 13
+WAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
sSELECT LINE 13
:SET UP TO TRANSMIT 400
1(OCTAL) CHARACTERS
;LINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 13
+SET BAR BIT FOR LINE 13
sWAIT FOR ALL CHARACTERS

170 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
i1 CHARACTER WAS RECEIVED
s(R4)=ACTUAL RECEIVED DATA
sCLEAR UNMANTED BITS
s(RS)=EXPECTED SILO FILL LEVEL, 1
sMORE THAN ONE CHARACTER RECEIVED, ERROR
+READ NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
s(RS)=EXPECTED RECEIVED CHARACTER

sRECEIVED DATA ERROR

:CHECK FOR ITERATIONS. LOOP

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

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS

sON LINE 14
+SET BREAX BIT FOR LINE 14
sTRANSMIT BINARY COUNT PATTERN ON LINE 14
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
005070
005070
005076
005104

012767
012767
012767

000340
000020
005320

172700
004720
004706

TS \XN,20,4%
T1S:

o i

MOV
MOV
MOV

aaé

MOV

#,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,80MHSCR
PC,CLRALL

tMASTER CLEAR INTERFACE
tCLEAR ALL BUS ADDRESS AND

MOV
MOV

#14, 80HSCR
ONULL , BOMBA

+SELECT LINE 14
+SET UPT TO TRANSMIT O CHARACTER

]

005112
005120
005124
005132

000016
012777
004767

004000
004740

004636

012777
012777

000014
012060

004624
004624 -

#340,PS
920, ICOUNT
#44 ,ESCAPE

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

XN=XN+1

;BUS ADDRESS MEMORY LOCATIONS

s 3

CZDHI-DO

MACRO V04.00

005140
005146

012777
012777

177776
033503

004620
004606

005154
005162
005170
005172
005200
005206
005214
005222

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777

010000
000002

004606
004606

004000
000014
012112
177400
033503

004556
004550
004550
004544
004532

010000
004520

004524

000001

004516

005230

005236
005244
005250
005252
005260

005777

001375
122777
001407
017704
042704
012705

005262
005266
005272
005276
005276
005300
005304
005310
005312

104000
017704
026704
001403
016705

005316
005320

104001
104400

005316

005322

010000

SEQ 38

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

14:

004534

#-2,80H8C
933503, 8DHLPR

MOV
CMPB
BNE
MOV
MOV
MOV
MOV
MOV

10000, SDHBAR
92, 80HSLR
1$
#8IT11,8DHSCR
14, 8DHSCR
#TBUF , SBDHBA
#-400,80H8C
933503, 8OHLPR

MOV
TST
BNE
CMPB
BEQ

#10000, 8OHBAR
SOHBAR
24
@1 ,80HSLR
34

MOV

24:

004506
000300
000400

04454
005274

MOV
MOV

3%:

005266

910000, 8DHBCR

MOV
8IC
MOV
HLY
EMT
HOV
cHp
BEQ
MOV

SDHSSR,R4
#300,R4
#400,R5
0
0
SDHNRC ,R4
RWRD14 ,R4
44
RURD14 ,RS

EMT
SCOPE

49:
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
BREAK1 \LINE,\BITX,\KX

000015
020000
060015

+THO OS WILL BE TRANSMITTED
+SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
+SET BAR BIT FOR LINE 14
sWAIT FOR 2 CHARACTERS TO BE RECEIVED
sMASTER CLEAR INTERFACE
sSELECT LINE 14
sSET UP TO TRANSMIT 400
s(OCTAL) CHARACTERS
iLINE SPEED = 9600 BAUD

+SET BREAK BIT FOR LINE 14

+SET BAR BIT FOR LINE 14
sWAIT FOR ALL CHARACTERS
370 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
11 CHARACTER WAS RECEIVED

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

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
1(RS)=EXPECTED RECEIVED CHARACTER

sRECEIVED DATA ERRG-

sCHECK FOR ITERATIONS, LOOP

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS

sON LINE 15
sSET BREAX BIT FOR LINE 1S
s TRANSMIT BINARY COUNT PATTERN ON LINE iS

sVERIFY HTAT OMLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK

005322
005322
005330
005336

012767
012767
012767

00C%40
000020
005552

172446
004466
004454

TS \XN,20,44

T16:

005344
005352
005356
005364
005372
005400

000017
012777
004767

004000
004506

004404

012777
012777
012777
012777

000015
012060
177776
033503

004372
004372
004366
004354

XN=XN+1

MOV
MOV
MOV

#340,.PS
920, ICOUNT
844 ,ESCAPE

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

MOV

#,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#BIT11,80HSCR
PC,CLRALL

MOV
MOV
MOV
MOV

#15, 8DHSCR
ONULL , SDHBA
#-2,80H8C
933503, 80HLPR

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND
1BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE 1S
$SET UPT TO TRANSMIT O CHARACTER
sTHO OS MILL BE TRANSMITTED
+SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS

1 3

MACRO V04.00

012777
122777
001374
012777
012777
012777
012777
012777
012777
012777

005777
001375
122777
001407
017704
042704
012705
104000
017704
026704
001403
016705

004354
004354
004000
000015
012112

177400
033503
020000
020000

SEQ 39

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

14:

004324
004316
004316

004266

2%:

000001

004254
000300
000400

MOV
cHP8
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#20000
, 8DHBAR
#2,8DHSLR
14
#B8IT11,8DHSCR
#15,8DHSCR
#TBUF , BDHBA
#-400, 80HBC
#33503,8DHLPR
#20000, 8DHBCR
#20000
, 8DHBAR

BNE

2¢

#300,R4

sMASTER CLEAR INTERFACE
1SELECT LINE 15
$SET UP TO TRANSMIT 400
1(OCTAL) CHARACTERS
iLINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 1S
+SET BAR BIT FOR LINE 15
sWAIT FOR ALL CHARACTERS
sT0 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
31 CHARACTER WAS RECEIVED
1(R&)=ACTUAL RECEIVED DATA
sCLEAR UNWANTED BITS

cHp

RWRD1S R4

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK

34:

#1 ,8D0HSLR
34
GDHSSR ,R4

MOV
HTY
EMT
MOV

#400,R5
0
0
GDHNRC
R4

BEQ
MOV

EMT

104001
104400
000016
040000
000016

SDHBAR

CMPB
BEQ
MOV
BIC

004222
005044

+SET BAR BIT FOR LINE 15
iWAIT FOR 2 CHARACTERS TC BE RECEIVED

44
SCOPE
LINE=LINE-1

4%
RWRD1S RS

1(RS)=EXPECTED SILO FILL LEVEL, 1
tMORE THAN ONE CHARACTER RECEIVED, ERROR

1(RS)=EXPECTED RECEIVED CHARACTER
sRECEIVED DATA ERROR

sCHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX

KX=KXe
1

BREAKL

\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 16
sSET BREAK BIT FOR LINE 16
sTRANSMIT BINARY COUNT PATTERN ON LINE 16

sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK
012767
012767
012767

000020
012777
004767
012777
012777

012777
012777
012777
122177
001374

172214
004222

004152

TS \XN,20,4%

T17:

JF N8B
.ENDC
XN=XNe
1

004140
004140
004134
004122

MOV
MOV

#340,PS
420, ICOUNT

844 ,ESCAPE

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

MOV

#.FREEZL

1SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,80HSCR
PC.CLRALL

g'v

@16, BDHSCR

MOV

#-2,80M8C

nov
(v, ]
BNE

#40000, BDHBAR
42 ,80HSLR
1

MOV
<

Moy

18:

+SOHLPR

1 3

CZDHI-DO

005656

MACRO V04.00

012777
012777
012777
012777
012777
012777
012777
005777

005672
005700
005706
005714
005722
005730
005734 001375
005736
122777
005744 001407
005746 017704
005752 042704
005756 012705
005762
005762 104000
005764 017704
005770 026704
005774 001403
005776 016705

SEQ 40

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

004000
000016
012112
177400
033503
040000
040000
004034

004072
004064
004064
004060
004046
004050
004040

000001

004032

2%:

004022
000300

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TST

BNE
CMPB
BEQ

MOV
BIC
MOV

000400
003770
004614

3s:

MOV
CMP

SDHNRC , R4
RWRD16 ,R4
43

EMT
43:
SCOPE
LINE=LINE+1
BITX=BITX«BITX
KX=KX+1

BREAK1

SDHSSR ,R4
©300,R4
#400,R5

m¥

104001
104400
000017
100000
000017

24
€1,80HSLR
34

HLT

EMT

BEQ

004606

#BIT11,80HSCR
#16, BOHSCR
#TBUF,BDHBA
©-400,80H8C
33503 ,80HLPR
940000, 80HBCR
240000, 8DHBAR
SOHBAR

m‘ 16,RS5

tMASTER CLEAR INTERFACE
13ELECT LINE 16
+SET UP TO TRANSMIT 400
s (OCTAL) CHARACTERS
sLINE SPEED = 9600 BAUD
1SET BREAK BIT FOR LINE 16
1SET BAR BIT FOR LINE 16
sWAIT FOR ALL CHARACTERS
170 BE TRANSMITTED
sCHECK TO SEE THAT ONLY
31 CHARACTER WAS RECEIVED
1(R4)=ACTUAL RECEIVED DATA
sCLEAR UNWANTED BITS
s (RS)=EXPECTED SILO FILL LEVEL, 1
sMORE THAN ONE CHARACTER RECEIVED, ERROR

sREAD NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BREAK
s (RS)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS
sON LINE 17
sSET BREAK BIT FOR LINE 17

s TRANSMIT BINARY COUNT PATTERN ON LINE 17
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED
sAND THAT IT IS A BREAK

006014

006030
005036

012767
012767
012767

171762
004002
003770

004000
004022

003720

012777
012777
012777

00017
012060
177776

003706
003706
003702

012777
122777

100000
000002

003670
003670

012777
012777
012777

004000
000017
012112

003640
003632
003632

001374

TS \XN,20,4%

T20:

OF NB

.ENDC

000021
012777
004767

012777
006072
006100
006106
006110
006116
006124

000340
000020
006236

033503

XN=XN+1

003670

MOV
MOV
MOV

#340,PS
920, ICOUNT
844 ,ESCAPE

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

MOV

#,.FREEZL

:SET UP 1> LOOP WITH DATA

MOV
JSR

#81I711,8DHSCR
PC,.CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BUS ADDRESS AND

MOV
MOV
MOV

#17,80HSCR
ONULL , SDHBA
9-2,80HBC

MOV
CcMPB

9100000, 8DHBAR
92 ,8DHSLR

sSELECT LINE 17
$SET UPT TO TRANSMIT O CHARACTER
+THO OS WILL BE TRANSMITTED
+SET LINE SPEED=9600 BAUD
sCHARACTER LENGTH =8 BITS
:SET BAR BIT FOR LINE 17
sWAIT FOR 2 CHARACTERS TO BE RECEIVED

MOV
MOV
MOV

#BIT11,.8DHSCR
€17, 8DHSCR
4TBUF , 8DHBA

sMASTER CLEAR INTERFACE
;SELECT LINE 17
$SET UP TO TRANSMIT 400

MOV

1$:

BNE

933503, 8DHLPR

1BUS ADDRESS MEMORY LOCATIONS

i 3

MACRO V04.00
012777
012777
012777
012777
005777
001375
122777
001407
017704
042704
012705

104000
017704
026704
001403
016705

177400
033503
100C00
100000
003602

003626
003614
003616
003606

000001

003600

MOV
MOV
MOV
MOV
ST

MOV

S8DHSSR ,R4

MOV
HLT
EMT
MOV
cMpP

#400,RS
0
0
SDHNRC ,R4
RWRD17,R4

MOV
HLT
EMT

RWRD17,RS
1
1

BEQ

004356
43:

SDHBAR

24
#1,80HSLR

BEQ

3s:

003536
004364

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

BNE
CMPB
BIC

SCOPE

€300,R4

LINE=LINE+1
BITX=BITX+BITX

1 (OCTAL) CHARACTERS

sLINE SPEED = 9600 BAUD
+SET BREAK BIT FOR LINE 17
sSET BAR BIT FOR LINE 17
sWAIT FOR ALL CHARACTERS
:T0 BE TRANSMITTED

sCHECK TO SEE THAT ONLY

i1 CHARACTER WAS RECEIVED

1(R4)=ACTUAL RECEIVED DATA
sCLEAR UNWANTED BITS
i (RS)=EXPECTED SILO FILL LEVEL, 1
+MORE THAN ONE CHARACTER RECEIVED, ERROR
;READ NEXT RECEIVED CHARACTER REGISTER
+IS RECEIVED CHARACTER A BRERX

i (R5)=EXPECTED RECEIVED CHARACTER
;RECEIVED DATA ERROR
;CHECK FOR ITERATIONS, LOOP

KX=KX+1

XLINE=LINE
XBIT=BITX

K=KX

LINE=0
BITX=1

KX=0

.REPT
20
BLINDL
\LINE,\BITX,\KX
.NLIST
LINE=LINE-1
BITX=BITX+BITX

27
28
29
31
32

2%:

003570
000300
000400

104001
14400
000020
000000
000020
000020
000000
000020
000000
000001
000000
000020

18
19
20
21
22

SEQ 41

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

KX=KX+1
LIST

.ENDR
BLIND1I

006240

\LINE,\BITX,\KX

sSET NALF DUPLEX ON LINE O
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
006240
006240

006254

012767
012767
012767

000340
006350

006262
006270

000022
012777
004767

003570

006274
006302
006310

012777
012777
012777

012112
177400

171530
003550
003536

003466
003454
003454
003450

TS \XN,20,2%

T21:

JOF N8B
.ENDC
XN=XN+1

MOV
MOV
MOV

#340,PS
920, ICOUNT
924 ,ESCAPE

;DISABLE ALL INTERRUPTS

MOV

¢,FREEZL

+SET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC.CLRALL

tMASTER CLEAR INTERFACE
:CLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
$SELECT LINE O
¢SET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS

MOV

MOV
MOV

#0,8DHSCR

#TBUF , 8DHBA
#-400, 8DHBC

:SET UP FOR 20 ITERATIONS

:SET UP TO ESCAPE TO NEXT TEST

: 3

MACRO VO4.00
012777

073503

003436

012777
005777

000001
003432

003436

105777

003412

001375
100001

SEQ 42

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

1s:

MOV

973503 ,80HLPR

MOV
TST

+SET RECEIVER BLIND
iLINE SPEED =9600 BAUD
1CHARACTER LENGTH = 8 BITS
:SET BAR BIT FOR LINE O
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

TST8

8DHSCR

:WERE ANY CHARACTERS RECEIVED

BNE

BPL
HLT
EMT
28:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

104002
104400
000001
000002
000001

BLIND1

24
2
2

sRECEIVER NOT BLINDED, ERROR
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sSET HALF DUPLEX ON LINE 1
s TRANSMITI A BINARY COUNT PATTERN

0C6366

012767
012767
012767

000023

000340
000020
006462

171416
003436
003424

004000
003456

003354

006430

012777
012777
012777
012777

000001
012112
177400
073503

003342
003342
003336
003324

006436

012777

000002

003324

006450
006452
006456

001375

006414

005777

003320

105777

003300

100001

T22:

OF NB

.ENDC

012777
004767

006374
006202

TS \XN,20,2%¢

XN=XN+1

1§:

MOV
MOV
MOV

#340,PS
920, ICOUNT
924% ,ESCAPE

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

MOV

4,FREEZL

:SET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC,.CLRALL

MOV
MOV
MOV
MOV

#1,8DHSCR
4TBUF , BDHBA
#-400,8DHBC
973503 ,8DHLPR

78T

SOHBAR

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

1578

SDHSCR

iWERE ANY CHARACTERS RECEIVED

MOV

BNE

BPL
HLTY
EMT
2%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

104002
104400
000002
000004
000002

BLIND1

#2,8DHBAR

2%
2
2

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

\LINE,\BITX,\KX

sSET HALF DUPLEX ON LINE 2

sTRANSMITI A BINARY COUNT PATTERN

sVERIFY THAT NO CHARACTERS ARE RECEIVED

006472

012767
012767

000340
000020

171304
003324

006352
006352

:VERIFY THAT NO CHARACTERS ARE RECEIVED

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

#340,PS
20, ICOUNT

;DISABLE ALL INTERRUPTS
+SET UP FOR 20 ITERATIONS

MACRO V04.00
012767

000024
012777
004767
012777
012777
012777
012777
012777
005777
001375
105777
100001

006574

003312

004000
003344

003242

000002
012112

003230
003230
003224
003212

000004
003206

003212

177400
073503

SEQ 43

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

JF NB

.ENDC
XN=XN+1

1$:

003166

MOV

#2% ,ESCAPE

$SET UP TO ESCAPE TO NEXT TEST

MOV

#,FREEZ1

:SEY UP TO LOOP WITH DATA

eBIT11,8DHSCR

8DHBAR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
s SELECT LINE 2
sSET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS
sSET RECEIVER BLIND
sLINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 2
sWAIT FOR ALL CHARACTERS 70 BE TRANSMITTED

S8DHSCR

;WERE ANY CHARACTERS RECEIVED

2
2

;RECEIVER NOT BLINDED, ERROR

MOV

JSR

PC,.CLRALL

MOV
MOV
MOV
MOV

#2 ,8DHSCR
#TBUF , 8DHBA
#-400,80HBC
473503 ,8DHLPR

MOV

#4 ,8DHBAR

BNE

TST8

BPL

HLT
EMT

104002
104400
000003
000010
000003

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

i 3

sCHECK FOR ITERATIONS, LOOP

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

006612

012767
012767
012767

000025
012777
004767

006654

006670
006674
006676
006702
006704
006704
005706

000340
000020
006706

TS \XN,20,2%
T24:
MOV
MOV
MOV
OFNB

.ENDC

003232

012777
012777
012777
012777

020003
012112

012777
005777
001375
105777
1C0001

000010
003074

104002
104400
000004

171172
003212
003200

177400

073503

003054

003130

XN=XN+1

003116
003116
003112
003100
003100

#20, ICOUNT
924 ,ESCAPE

9340,PS

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

MOV

#,FREEZ1

:SET
UP TO LOOP MITH DATA

MOV
JSR

#8IT11,80HSCR
PC.CLRALL

MOV
MOV
MOV
MOV

03, 80HSCR
4TBUF, SDHBA
#-400, 80HBC
973503, 90HLPR

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

MOV
TST
BNE
1578
BPL
HLT
EMT
2%:
SCOPE
LINE=LINE+1
1s:

+WERE ANY CHARACTERS RECEIVED
sRECEIVER NOT BLINDED. ERROR
:CHECK FOR ITERATICNS, LCOP

: 3

CZDHI-DO

006710

MACRO V04.00

SEQ 44

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

000020
000004

BITX=BITX+BITX

KX=KY+1

BLIND1

\LINE,\BITX,\KX

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

012767
012767
012767

006732
006740

000026
012777
004767

006744
006752
006760
006766

012777
012777
012777
012777

006774
007002
007006
007010
007014
007016
007016
007020

012777
005777
001375

007022

105777

100001

000340
000020
007020

003120
012112

177400
073503

000020
002762

171060
003100
003066

003016

TS \XN,20,2¢

T2S:

JF NB

.ENDC
XN=XN+1

003004
003004
003000
002766

002766

1s:

002742

104002
104400
000005
000040
000005

MOV
MOV
MOV

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

iDISABLE ALL INTERRUPTS
sSET UP FOR 20 ITERATIONS
+SET UP TO ESCAPE TO MEXT TEST

MOV

¢,FREEZL

+SET UP TO LOOP WITH DATA

#BIT11,8DHSCR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
+AND BUS ADDRESS MEMORY LOCATIONS
;SELECT LINE 4
sSET UP TO TRANSMIT

MOV

JSR

PC,CLRALL

MOV
MOV
MOV
MOV

@4 ,8DHSCR
#TBUF , SDHBA
€-400, 8DHBC
973503 ,8DHLPR

MOV
TST

BNE
TST8
BPL
HLT
EMT

2%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

BLINDLI

€20, 8DHBAR

SDHBAR

13
8DHSCR
24
2
2

i 3

:400 (OCTAL) CHARACTERS

+SET RECEIVER BLIND
;LINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 4
;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED
:WERE ANY CHARACTERS RECEIVED

sRECEIVER NOT BLINDED, ERROR
sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

+SET HALF DUPLEX ON LINE S
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
007022
007022

007030
007036

012767
012767
012767

000340
000020
007132

170746
002766
002754

TS \XN,20,2¢

T26:

IF N8

.ENDC

007044
007052

000027
012777
004767

003006

007056
007064
007072
007100

012777
012777
012777
012777

012112
177400
073503

002704

002672
002672

002654

AN=XN+1

MOV
MOV
MOV

#340,.PS
420, ICOUNT
928 ,ESCAPE

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

MOV

4,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#81T11,8DHSCR
PC,CLRALL

MOV’

#5,8DHSCR

sMASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AND
1AND BUS ADDRESS MEMORY LOCATIONS
:SELECT LINE S
$SET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS
+SET RECEIVER BLIND

MoV
MOV
MOV

#TBUF , SDHBA
#-400, 8DHBC
#73503,8DHLPR

: 3

CZDHI-DO

007106
007114
007120
007122
007126
007130
007130
007132

007134

MACRO V04.00

012777
005777
001375

105777

100001

000040
002650

SEQ 45

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

002654

002630

104002
104400
000006
000100
000006

MOV
TST
BNE
TSTB
BPL
HLT
EMT
24:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
1s:

KX=KX+1

BLIND1

240, BDHBAR
S8DHBAR
1
8DHSCR
24
2
2

sLINE SPEED =9600 BAUD
:CHARACTER LENGTH = 8 BITS
iSET BAR BIT FOR LINE S
+WAIT FOR ALL CHARACTERS TO BE TRANSMIVTED

;WERE ANY CHARACTERS RECEIVED
+RECEIVER NOT BLINDED, ERROR
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

:SET HALF DUPLEX ON LINE 6

s TRANSMITI A BINARY COUNT PATTERN

007134
007134
007142
007150

012767
012767
012767

000340
000020
007244

170634
002654
002642

TS \XN,20,2¢
127:
MOV
MOV
JF NB

.ENDC

#340,PS
€20, ICOUNT

924 ,ESCAPE

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

MOV

#,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC,CLRALL

96, 8DHSCR
#TBUF , SDHBA

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

MOV
<o

007156
007164

000030
012777
004767

004000
002674

002572

007170
007176
007204
007212

012777
012777
012777
012777

000006
012112
177400
073503

002560
002560
002554
002542

MOV
MOV
MOV
MOV

007220
007226
007232
007234
007240
007242
007242
007244

012777
005777
001375
105777
100001

000100
002536

002542

MOV
78T

007246

002516

XN=XN+1

1%:

BNC

TST8

BPL
HLT
EMT
SCOPE

104002
104400
000007
000200
000007

#-400,80HBC
#73503,8DHLPR

9100, 8DHBAR

SOHBAR
13
S@DHSCR
24
2
2

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

;CHARACTER LENGTH = 8 BITS
:SET BAR BIT FOR LINE 6
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED
sWERE ANY CHARACTERS RECEIVED
sRECEIVER NOT BLINDED. ERROR
sCHECK FOR ITERATIONS, LOOP

:SET HALF DUPLEX ON LINE 7
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
007246
007246
007254
007262

012767
012767
012767

000340
000020
007356

170522
002542
002530

TS \XN,20,2¢
T30:
MOV

MOV
MOV

#340,PS

920, ICOUNT
24 ,ESCAPE

;VERIFY THAT NO CHARACTERS ARE RECEIVED

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

CZDHI-DO

MACRO V04.00

OFNB

007270
007276

000031

.ENDC

012777
004767

004000
002562

002460

007302
007310
007316
007324

012777
012777
012777
012777

000007
012112
177400
073503

002446
002446
002442
002430

007332
007340
007344
007346
007352
007354
007354
007356

012777
005777

000200
002424

002430

105777

002404

007360

001375
100001

SEQ 46

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

XN=XN+1

1$:

MOV

#,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,8DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV

#7,8DHSCR
#TBUF , 8DHBA
#-400, 8DHBC
#73503,8DHLPR

MOV
TST

4200, 8DHBAR
SDHBAR

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

TST8

8DHSCR

sWERE ANY CHARACTERS RECEIVED

BNE

BPL
HLT
EMT
24:
SCOPE
LINE=LINE-1
BITX=BITX+BITX
KX=KX+1

104002
104400
000010
000400
000010

BLIND1

24
2
2

;i 3

+RECEIVER NOT BLINDED, ERROR

sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sSET HALF DUPLEX ON LINE 10
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
007360
007360
007366
007374

007402
007410
007414
007422
007430
007436

007444
007452
007456
007460
007464
007466
007466
007470

012767

000340

012767

007470

012767

000020

170410

002430

002416

TS \XN,20,2%

T31:

AFNB

.ENDC

#340,PS

#20, ICOUNT
#24 ,ESCAPE

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

MOV

¢.FREEZL

sSET
UP TO LOOP MITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC,CLRALL

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

MOV
©

000032
012777
004767

004000
002450

002346

012777

000010

002334

MOV

#10, 8DHSCR

012777
012777

177400
073503

002330
002316

MOV
MOV

#-400,80HBC
473503, 80HLPR

000400

002316

MOV

€400 ,8DHBAR

012777

005777

001375
105777
100001
104002
104400
000011
001000

012112

002312

002272

XN=XN+1

MOV

002334

MOV

18:

BNE
1578
BPL
HLT
EMT
2%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

#TBUF,BDHBA

SDHBAR

1
8DHSCR
24
2
2

+WERE ANY CHARACTERS RECEIVED
+RECEIVER NOT BLINDED, ERROR
sCHECK FOR ITERATIONS, LOOP

: 3

CZDHI-DO

007472

MACRO V04.00

SEQ 47

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

000011

KX=KX¢1

BLIND1

\LINE,\BITX, \KX

+SET HALF DUPLEX ON LINE 11

s TRANSMITI A BINARY COUNT PATTERN
;VERIFY THAT NO CHARACTERS ARE RECEIVED

007472
007472
007500
007506

007514
007522

007526
007534
007550
007556
007564
007570
007572
007576
007600
007600
007602

007604

012767
012767
012767

000340
000020
007602

170276
002316
002304

000033
012777
004767

004000
002336

002234

012777
012777
012777
012777

000011
012112
177400
073503

002222
002222
002216
002204

012777
005777
001375
105777
100001

001000
002200

002204

002160

104002
104400
000012
002000
000012

TS \XN,20,2$
T32:
MOV
MOV
MOV
JIF N8
©
MOV
.ENDC
XN=XN+1
MOV
JSR
MOV
MOV
MOV
MOV

iDISABLE ALL INTERRUPTS
+SET UP FOR 20 ITERATIONS

@,FREEZ1

+SET UP TO LOOP WITH DATA

#B8IT11,80HSCR
PC,CLRALL
@11,80HSCR
#TBUF , 8DHBA
#-400,80H8C
973503, 8DHLPR

MOV
#1000, 8DHBAR
TST
SDHBAR
BNE
14
TSTB
S8DHSCR
BPL
24
HLY
2
EMT
2
2%:
SCOPE
LINE=LINE.1
BITX=BITX+BITX
KX=KXe1
BLIND1
\LINE,\BITX,\KX
18:

sSET UP TO ESCAPE TO NEXT TEST
; 3

iMASTER CLEAR INTERFACE

sCLEAR ALL BYTE COUNT AND
+AND BUS ADDRESS MEMORY LOCATIONS
sSELECT LINE 11
+SET UP TO TRANSMIT
+400 (OCTAL) CHARACTERS
+SET RECEIVER BLIND
;LINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS
+SET BAR BIT FOR LINE 11
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED
:WERE ANY CHARACTERS RECEIVED

sRECEIVER NOT BLINDED. ERROR
sCHECK FOR ITERATIONS, LOOP

+SET HALF DUPLEX ON LINE 12
sTRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
007604
007604
007612
007620

012767
012767
012767

000340
000020
007714

170164
002204
002172

TS \XN,20,24

733:

JFNB
.ENDC

007626
007634

000034
012777
004767

002224

007640
007646
007654
007662

012777
012777
012777
012777

000012
012112
177400
073503

002122

002110
002110
002104
002072

XN=XN+1

MOV

#340,PS
920, ICOUNT
2% ,ESCAPE

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

#,FREEZ1

+SET
UP TO LOOP WITH DATA

MOV
JSR

‘9BIT11,80HSCR

MOV
MOV
MOV
MOV

012, 8DHSCR
#TBUF , SDHBA
#-400, 80HBC
73503, 80HLPR

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

MOV
MOV
©
MOV

PC,CLRALL

i 3

CZDHI-DO

007670
007676
007702
007704

007710

007712
007712
007714

007716

MACRO V04.00

012777

002000

005777

002066

105777

002046

001375
100001

SEQ 48

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

002072

1s:

TST

8DHBAR

;CHARACTER LENGTH = 8 BITS
;SET BAR BIT FOR LINE 12
iWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

TSTB

8DHSCR

iWERE ANY CHARACTERS RECEIVED

MOV

BNE

BPL
HLT
EMT
2s:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

104002
104400
000013
004000
000013

BLIND1

#2000, 8DHBAR

24
2
2

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

\LINE,\BITX,\KX

:SET HALF DUPLEX ON LINE 13
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
007716
007716
007724
007732

007740
007746
007752
007760
007766
007774
010002
010010
010014
010016
010022
010024
010024
010026

010030

012767
012767
012767

000035
012777
004767
012777

000340
000020
010026

170052
002072
002060

OF NB

.ENDC

004000
002112

002010

000013

001776

012777
012777
012777

012112
177400
073503

001776
001772
001760

012777
005777

004000
001754

001760

105777
100001

001734

001375

TS \XN,20,2¢

T34:

XN=XN+1

MOV
MOV
MOV

#340,PS
920, ICOUNT
924 ,ESCAPE

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

MOV

#,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC,.CLRALL

MOV

€13, 8DHSCR

MOV
ST

#4000, 8DHBAR
SDHBAR

MOV
MOV
MOV

18:

BNE

7578
BPL
HLT
EMT
2%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

104002
104400
000014
010000
000014

BLINDL

#TBUF , BDHBA
#-400,80HBC
973503, 8DHLPR

8CHSCR
2
2
2

sMASTER CLEAR INTERFACE

;CLEAR ALL BYTE COUNT AND
:AND BUS ADDRESS MEMORY LOCATIONS

;SELECT LINE 13
:SET UP TO TRANSMIT
3400 (OCTAL) CHARACTERS
+SET_RECEIVER BLIND
;LINE SPEED =9600 BAUD
;CHARACTER LENGTH = 8 BITS
- 3SET BAR BIT FOR LINE 13
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

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

\LINE,\BITX,\KX

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

012767
012767
012767

000340
000020
010140

167740
001760
001746

TS \XN,20,2¢

T35:

> o
3

MOV
MOV
MOV
<

#340,PS
920, ICOUNT
924 ,ESCAPE

: 3

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

CZDHI-DO

010052
010060
010064
010072
010100
010106

010114
010122
010126
010130
010134
010136
010136
010140

MACRO V04.00

000036

.ENDC

012777
004767

004000
002000

001676

012777
012777
012777
012777

000014
012112
177400
073503

001664
001664
001660
001646

010000

001646

012777

005777

001642

105777

001622

001375
100001

XN=XN+1

1s:

MOV

®,FREEZL

$SET UP TO LOOP WITH DATA

MOV
JSR

@8IT11,8DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV

€14, 3DHSCR
@TBUF , 8DHBA
#-400,80HBC
73503, 80HLPR

104002
104400
000015
000015

BLIND1

i 3

TST

S80HBAR

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

TST8

S8DHSCR

iWERE ANY CHARACTERS RECEIVED

MOV

BNE

BPL
HLT
EMT
2é:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

020000

010142

SEQ 49

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

#10000,8DHBAR

2
2
2

sRECEIVER NOT BLINDED, ERROR
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

+SET HALF DUPLEX ON LINE 15
s TRANSMITI A BINARY COUNT PATTERN
sVERIFY THAT NO CHARACTERS ARE RECEIVED
010142
010142

010150
010156

012767

000340

167626

012767 000020 001646
012767 010252 001634

TS \XN,20,2¢
T36:
MOV

JFNB
LENDC

010164
010172

010176
010204
010212
010220

—

010226
010234
010240
010242
010246
010250
010250
010252

920, ICOUNT
024, ESCAPE

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

MOV

o.FREEZL

+SET UP TO LOOP MITH DATA

000037
XN=XNe1
012777 004000 001564
MoV
004767 001666

012777
012777
012777
012777

000015
012112
177400
073503

001552
001552
001546
001534

#340,PS

MOV
MOV

JSR

#BIT11,80MSCR
PC,CLRALL

MOV
MOV
MOV
MOV

015, BOHSCR
#TBUF
, GOHBA
#-400,
GOHBC
073503, GDHLPR

MoV
ST
BNE

920000, 8DHBAR
SDHBAR
14

012777 020000 001534
001530
001375

18:

100001
104002
104400
000016
040000
000016

BPL
24
HLT
2
EMT
2
28:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX =KX+ 1

005777

105777

001510

TSTE

SOMSCR

: 3

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE 15
+SET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS
+SET RECEIVER BLIND
iLINE SPEED =9600 BAUD
sCHARACTER LENGTH = 8 BITS
:SET BAR BIT FOR LINE 1S
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

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

.
CZDHI-DO

MACRO V04.00

SEQ S50

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

010254

BLIND1

\LINE,\BITX,\KX
:SET HALF DUPLEX ON LINE 16

s TRANSHMITI A BINARY COUNT PATTERN
s VERIFY THAT NO CHARACTERS ARE RECEIVED

010254

010262
010270

012767

012767
012767

000340

000020
010364

167514

001534
001522

TS \XN,20,2¢

T37:

000040

9340,PS

—

MOV

¢,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#BIT11,80HSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND
sAND BUS ADDRESS MEMORY LOCATIONS
+SELECT LINE 16
+SET UP TO TRANSMIT
1400 (OCTAL) CHARACTERS
sSET_RECEIVER BLIND
;LINE SPEED =9600 BAUD

XN=XN+1

€20, ICOUNT
924 ,ESCAPE

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

012777
004767

004000
001554

001452

010310
010316
010324
010332

012777
012777
012777
012777

000016
012112
177400
073503

001440
001440
001434
001422

MOV
MOV
MOV
MOV

€16, SDHSCR
#TBUF , BDHBA
#-400, 80HBC
973503, 8DHLPR

010340
010346
010352
010354
010360

012777
005777
001375
105777
100001

040000
001416

001422

MOV
TST
BNE
TST8
BPL

940000, 8DHBAR
SOHBAR
14
SDHSCR
24

010362
010364

104002
104400
000017

010362

010366

1¢:

001376

HLT

EMT
24:
SCOPE
LINE=LINE.1

100000
000017

iDISABLE ALL INTERRUPTS

MOV
MOV

010276
010304

MOV

: 3

sCHARACTER LENGTH = 8 BITS
+SET BAR BIT FOR LINE 16
sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED

sMERE ANY CHARACTERS RECEIVED

sRECEIVER NOT BLINDED, ERROR
sCHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
KX=KXe1
BLINDLI \LINE,\BITX,\KX
sSET HALF DUPLEX ON LINE 17

sTRANSMITI A BINARY COUNT PATTERN
:VERIFY THAT NO CHARACTERS ARE RECEIVED
010366

010366

012767

000340

167402

010402

012767

010476

001410

010374

012767

000020 001422

TS \XN,20,2¢
T40:

MOV

#340,PS

tDISABLE ALL INTERRUPTS

—

MoV

924 ,ESCAPE

+SET UP TO ESCAPE TO NEXT TEST

MOV

¢,FREEZ1

+SET UP TO LOOP MITH DATA

MOV
JSR

#BIT11,80HSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AND

MOV
MOV
MOV
MOV

017, 8DHSCR
#TBUF .a’:@
9-400,
973503, 80HLPR

sSELECT LINE 17
$SET UP TO TRANSMIT
3400 (OCTAL) CHARACTERS
+SET RECEIVER BLIND
iLINE SPEED =9600 BAUWD

010410
010416

010422
010430
010436
010444

000041
012777
004767

004000
001442

001340

012777
012777
012777
012777

000017
012112
177400
073503

001326
001326
001322
00i310

XN=XN+1

MOV
<>

m.icm

sSET UP FOR 20 ITERATIONS

tAND BUS ADDRESS MEMORY LOCATIONS

sCHARACTER LENGTH = 8 BITS

' 3

]

CZDHI-DO

010452
010460
010464
010466
010472
010474
010474
010476

MACRO V04.00

012777
005777
001375
105777
100001
104002
104400
000020
000000
000020

100000
001304
001264

SEQ 51

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

001310

MOV
TST
BNE
15718
BPL
HLT
EMT
2%:
SCOPE
LINE=LINE.1
BITX=BITX+BITX
KX=KX+1
14:

#100000, 8DHBAR
SOHBAR
13
SDHSCR
24
2
2

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

iWERE ANY CHARACTERS RECEIVED

sRECEIVER NOT BLINDED, ERROR
sCHECK FOR ITERATIONS, LOOP

CZDHI-DO

HACRO V04.00

SEQ 52

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

2 010500

.EOP

+/BEGIN/

:END OF PASS
sTYPE NAME OF TEST
sUPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11
sRESTART TEST
010500
010502
010504
010510
010514
010520
010524
010526
010530
010532
010534

104401
013204
005067
005067
005267
005767
001005
104401
013217
104402
010572

8{0540

016767

001246

010546

013701

000042

010554

000005

010560
010562
010564
010566
010572

000240
000240
000240
000167
000001

010576
3 010600

012012

010380 oi08
0546

010552

010556

010574

001405

EOP:
001344
001274
001272
170256

170234

oy
-

LOGICAL:

002

sCLEAR LAST ERROR PC
sCLEAR ERROR FLAG
sUPDATE PASS COUNT
s+ ARE WE USING LIGHTS?

3+ BRANCH IF WE ARE
s TYPE PASCOUNT MESSAGE

MOV

8042.R1

RESET

BYTE

.SCOPE

LAST
ERRFLS
PASCNT
LIGHTS
24

PASCNT ,LIGHTS

NOP
NOP
NOP
RESTRT: JWP
PASARG: .MORD

170514

;TYPE NAME OF TEST

MOV

BEQ

004711

006

TYPE
MEPASS
CLR
CLR
INC
TST
BNE
TYPE
PASTXT
OCTASC
PASARG

.MORD

JSR

010642
010644
010650

032777

001030
032777
001021
032777
001006
005267
026767

1007
7

005067

010654
010660
010662
010666

011667
000002
016716
000002

010674

001745

010670

002000

170172

SCOPER: BIT

040000

170162

19¢:

004000

170152

001172

001166

001156

001134

001162

28:

BEGIN
1

6.2

PASCNT

001136
001130

3¢:

001114

48:

#SH10, B8SWR

BNE
BIT
BNE
BIT
BNE
INC
e

43
#5H14, GSUR
34
#5411, 8SHR
24
LPCNT
LPCONT, ICOUNT

CLR

ERRFLG

BNE
CLR
MoV
RTI
MoV
RTI

187

BEQ

3
LPCNT

(SP).RETRN

RETRN, (SP)

ERRFLG
1

3
:

1 4

s+ PARAMETERS TO PRINT PASSCOUNT

43 6

PC.(R1)

sCHECK FOR LOOP ON CURRENT
TEST

010600

t K

sDISPLAY PASS COUNT

6
S
5
4

+IF NOT, CONTINUE TESTING

sCHECK FOR ITERATION SUPPRESSION

010606
010610
010616
010620
010626
010630
010634

s+ PRINT PASSCOUNT

s
1
1
1

sCHECK FOR ACT-11 OR DOP

RESTRT

1 4

1 S

1 S
1 S

1 3
s 4

: 4

1 4

CZDHI-DO

010676
4 010700

MACRO V04.00

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

000762

SEQ 53

.SCOP1

1CHECK FOR FREEZE ON CURRENT DATA

—

010700
010706
010710
010714

032777
001402
016716
000002

001000

001106

170072

SCOP1R: BIT
1%:

BEQ
MOV
RTI

@SH09, BSWR

14
FREEZ1,(SP)

CZDHI-DO

MACRO V04.00

SEQ 54

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

1 010716

.ERROR

sERROR HANDLER

011060
011064
011066
011070

011074
011076

011100
011104
011112
011114
011120
011122
011124
011126

001114
001044
000002

ASL
ASL

177001
013336
000052

001002

TYPMSG:

000001

000754
TYPDAT

167714

000710
002000

000700

167666

1%:

(SP),R5

92,R5

(R5).R4

R4
R4
#177001,R4

MCRLF
OCTASC
ERTABO
MOV

@1 ,.ERRFLG

BEQ

DATABP
RESREG

TYPE

RESOS
15T
BPL
PUSHRO
MOV
HALT
POPRO
INC
BIT
BEQ
MOV

EXITER

1s
(SP),LAST
ERRFLG

TYPMSG
DATABP
TYPDAT

TYPE
MCRLF
6&‘[‘5‘:

DATABP
RESREG
HALTS:

(SP),LAST

BIC
ADD
MOV
MOV
TST
BEQ
TST
BNE

TYPE
0
TST

ERRMSG

000010

@SW13, BSKR
HALTS

RTI
1
.BYTE

SAVPC

9ERRTAB, R4
(R4)+,ERRMSG
(R4) ,DATABP
ERRFLG

uununw

001122

ERRORS: BIT
BNE
CMP
BEQ
MOV
CLR
18:
SAVOSP
MOV
SuB
MOV

011044
011046
011050
011052
011054
011056

170054

SSWR
EXITER

2(SP),RO

ERRCNT

:.f:mo.asu

ESCAPE. (SP)
6.2

wiun

011040

011504

006304
006304
042704
062704
012467
011467
005767
001403
005767
001011
104401
013114
104432
011122
012767
104401
000000
005767
001404
104401
013114
104402
000C00
104407
005777
100005
010046
016600
000000
012600
005267
032777
001402
016716
000002
000001
006
012046

020000

011034
011036

032777
001055
021667
001404
011667
005067
104406
011605
162705

010716
010724
010726
010732
010734
010740
010744
010746
010750
010754
010756
010760
010762
010766
010772
010776
011002
011006
011010
011014
011016
011020
011022
011024
011026

CZDHI-DO

MACRO v04.00

SEQ 55

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

011130

. TRPSRV

s TRAP DISPATCH SERVICE
sARGUMENT OF TRAP IS EXTRACTED

:AND USED AS OFFSET TO OBTAIN POINTER

+TO SELECTED SUBROUTINE
011130
011132
011136
011142
011144
011150
011154
011160
2 011162

011646
162716
017616
006316
042716

062716
017616
000136

TRPSRV:

TRPOK:

177001
013256

.SAVREG

MOV
SuB
MOV

(SP),-(SP)
@2,(SP)
a(SP),(SP)

;GET PC OF RETURN
1=PC OF TRAP
sGET TRP

BIC
ADD
MOV
JMP

9177001, (SP)
@TRPTAB, (SP)
8(SP), (SP)
8(SP)+

;CLEAR UNWANTED BITS
tPOINTER TO SUBROUTINE ADDRESS
:SUBROUTINE ADDRESS
;GO TO SUBROUTINE

ASL

(SP)

sMULTIPLY TRAP ARG BY 2

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

016667

000656

SVOSP:

MOV

4(SP),SAVPC

:SAVE RO-RS
011170
011174
011200

011204
011210

011214
011220
3 011222
011222
011226
011232

011236

011242
011246
011252

010567
010467
010367
010267
010167
010067
000002

016700
016701
016702
016703
016704
016705
000002

SVOS:

000632
000624
000616
000610
.RESREG
000602
000600
000576
000574

000572
000570

MOV
MOV
MOV
MOV
MOV
MOV
RTI

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

;:RESTORE RO-RS

MOV
MOV
MOV
MOV
MOV
MOV
RTI

SAVRO, RO
SAVR1,.R1
SAVR2,R2
SAVRS,R3
SAVR4 R4
SAVRS,RS

CZOHI-DO

MACRO V04.00

SEQ 56

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

1 011254

.TYPER

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

017605

000000

TYPER:

105777

000462

1%:

062716

100375

000002

105715

001001
000002
112577
000767

011366

011372
011374

011376
011400
011402
011404
011406

ADD

TSTB

BPL

TST8

000450

2%:
.INSTRG

BNE
RTI
MOVB
BR

8(SP),RS

#2,(SP)
8TPCSR

(RS)

(R5)+,8TPDBR
14

+ASCII STRING INPUT ROUTINE

011306
011314
011320
011322
011324
011330
011334
011340
011342
011346
011352
011356
011360

MOV

017667

062716
104401
000000
012704
012703
105777

100375
117714

142714

122427
001413
117777
105777
100375
005303
001356
104401
013110

000745
000002

000000

000002

000006

013300
000007
000406
000402

0002C0

MOV

8(SP),MSG

BPL
MOVB

@INBUF ,R4
#7,R3
8TKCSR
13
STKDBR,(R4)

ADD
INSTRL: TYPE
MSG:
0
MOV
MOV
1$:
T15T8
BICB

000015
000364
000360

INSTRG:

000366

#2,(SP)

#200,(R4)

CMPB
BEQ
MOVB
2¢:
1578
BPL
DEC
BNE
INSTRE: TYPE

(R4).,015
INSTR2
STKDBR,8TPDER
STPCSR
23
R3
13

BR
INSTR2: RTI

INSTR1

MOM

s 3

CZDHI-DO

MACRO V04.00

1 011410

SEQ 57

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

.PARAMS

sCONVERT ASCII STRING TO OCTAL
011410
011412
015416
011422
011426
011432
011436
011440
011442
011446
011452
011454
011460
011462
011466
011470
011474
011476
011502
011504
011506

011510

011512
011514
011516

011605
012567
012567
012567
112567
112567
010516
005005
012704
122714
001420
121427
002415
121427
003012
142714
152405
122714
001406
006305
006305
006305
000760
104404
000750

PARAMS: MOV

MOV
MOV
MOV
MOVB
MOVB
MOV

PARAML: CLR

1s:

MOV
CMPB
BEQ
CMPB
BLT

CMPB
BGT
BICB

{SP),.RS

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

2INBUF R4
@15, (R4)
PARERR
(R4),960

PARERR

BISB
CMPB
BEQ
ASL
ASL
ASL
BR

(R4),067
PARERR
#60,(R4)
(R4)+,RS
15, (R4)
LIMITS
RS
RS
RS
1

PARAML

PARERR: INSTER

:TEST TO SEE IF NUMBER IS WITHIN LIMITS
011520
011524
011526
011532
011534
011540

020567
101373
020567
103770
136705
001365

LIMITS: CMP

BHI
CHP
BLO
B8ITB
BNE

000032
000032

RS.HILIM

PARERR
RS.LOLIM
PARERR
LOBITS.RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS

—

011542
011546
011550
011554
011560
011562
011564
011566
011570
011572

016704
010524
062705
105367
001372

000022
000013

1s:

MOV
MOV
ADD
DECB

BNE

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

;i 3

CZDHI-DO

MACRO V04.00

SEQ 58

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

011574

.OCTASC

1CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
011574
011600
011604
011610

011614
011620
011624
011630
011634
011640

011642
011645
011652
011654
011656
011660
011662
011664
011666
011672
011674
011700
011702
011706
011710
011714
011720
011722
011724
011726
011730
011734
011736
011740
011742

—

011744

017601
062716
012167
112167
112167
013167
016704

116705

012700
010403
042703
062703

110320

006204
006204
006204
005305
001365
012703
114023

105367
001374
105767

001405

112723
105367
001373
105013
104401
013324
005367
001325
000002
000000
000000
011742
006000

000000
000002
000130
000126
000123
000129
000114
000106
013312

177770
000260

013324

OCTASN: MOV

ADD

1$:
2%:
38:

4%:

000035
000240
000023

S$:
64:

MOV

MOve

8(SP),R1
.

MOV

@2,(SP)

(R1)+,WRDCNT

(R1)+,CHRCNT

(R1):,SPACNT

MOV
MOV
MOVB
MOV
MOV

8(R1)+ ,BINWRD
BINWRD,R4
CHRCNT ,RS
@TEMP,RO
R4,R3

ADD
MOVB
ASR
ASR

9260,R3
R3,(RO).
R4
R4
R4
RS
3

8IC

#177770,R3

ASR
DEC
BNE
MOV

OMDATA,R3

DECB

CHRCNT

MOVB

BNE
TST8
BEQ

MOV8
DECB

BNE
CLR3

TYPE

MDATA

DEC
BNE
RTI

KRDCNT: O

CHRCNT: O
SPACNT=CHRCNT+1
BINWRD: O

i S

-(R0),(R3)»

4%
SPACNT
63

#240,(R3)+
SPACNT

S$
(R3)

WRDCNT
14

; 3

CZDHI-DO

MACRO V04.00

011746
011746
011750
011752
011754

177560
177562
177564
177566

.POINT

t/DHSCR,DHNRC,D
DHBAR,
HLPR,
DHBCR, DHSSR,
DHBA,
DHSLR, DHBC,
DHRVEC , DHRLVL ,

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

.IRP

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

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

;INDIRECT POINTERS

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

000000
000000
000000
000000
000000
000000
000000
0000CO
000000
000000
000000
000000
000000

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

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

012056
012060
012062

000000
900000
000000

SEQ 59

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

Vl; g""EC # e
‘

<DHSCR ,DHNRC ,DHLPR,DHBA, DHBC ,DHBAR , DHBCR , DHSSR , DHSLR , DHRVE
, DHRLC
VL , DKTVEC, DH

;:PROGRAM VARIABLES

.ENDM
ENDFLG: 0
NULL:
O
LINACT: O

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

3 3

CZDHI-DO

MACRO V04.00

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

1 012064

CCLRALL

:CLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS
012064
012070
012074
012100
012104
012106
012110

3
S 012112
6

7
8
9
10
11

012700
005077
005077
005277
005390
001370
000207

000020
177670
177666
177652

CLRALL: MOV
18:
CLR
CLR
INC

000001
000

TDAT=1
TBUF:

000377

001
000002
012114
002
000003
012115
003
000004
012116
004
000005
012117
005
000006
012120
006
000007
012121
007
000010
012122
010
000011

.REPT

011

.BYTE
377

.BYTE
TDAT
.NLIST
TDAT=TDAT+1
.LIST
.ENDR

012113

012123

DEC
BNE
RTS

.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT~1
.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

000012
012124
012
000013
012125
013
000014
012126
014
000015
012127
- 015
000016
012130
016
000017

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

000020
020
000021

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

000022
022
000023
023
000024

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

012131

012132
012133

012134
012135

017

021

SEQ 60

CZDHI-DO

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

012136

024
000025
012137
025
000026
012140
026
000027
012141
027
000030
012142
030
000031
012143
031
000032
012144
032
000033
012145
033
000034
012146
034
000035
012147
035
000036
012150
036
000037
012151
037
000040
012152
040
000041
041
012153
000042
012154
042
000043
012155
043
000044
012156
044
000045
012157
045
000045
046
012160
000047
047
012161
000050
012162
050
000051
012163
051
012164

012165

012166
012167
012170

012171
012172

000052
052
000053
053
000054
054
000055
055
000056
056

000057
057
000060
060

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

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

CZDHI-DO

MACRO V04.00

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

000061
061
000062
012174
062
000063
012175
063
000064
012176
064
000065
012177
065
000066
012200
066
000067
012201
067
€00070

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

012173

012202

012203
012204

012205
012206
012207
012210

012211
012212

012213
012214

012215

070

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

000071

TDAT=TDAT+1

000072

TOAT=TDAT+1

000073

TDAT=TDAT+1

000074

TOAT=TDAT+1

000075

TDAT=TDAT+1

000076

TDAT=TDAT.+1

000077
077
000100
100
000101

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

000102
102
000103

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

071

072

073
074

075

076

101

103

000104
104
000105
105
000106
106
000107

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

000111

TDAT=TDAT+1

012224

000112
112

TDAT=TDAT+1
.BYTE
TDAT

012225

113

012216

012217
012220
012221
012222

012223

012226

107
000110
110
111

000113

000114
114
000115

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

TOAT

TOAT=TDAT+1

.BYTE

TDAT

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

SEQ 62

CZDHI-DO
012227

012230

012231

012232
012233
012234
012235
012236

012237
012240

012241
012242
012243

012244

012245
012246
012247

012250
012251
012252
012253
012254

012255
012256
012257
012260

012261
012262
012263

MACRO V04.00 27-JUN-85 13:08:01 PAGE 28-3
115

.BYTE_

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TOAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TOAT

000116

TDAT=TDAT+1

000117

TDAT=TDAT+1

000120
120
000121

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

000122
122
000123

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

000124

TDAT=TDAT+1

000125
125
000126
126
000127

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

000130
130
000131

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

000132
132
000133
133
000134
134
000135
135
000136
136
000137

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

000140
140
000141

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

000142
142
000143

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

000144
144
000145

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

000146
146
000147

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

000150
150
000151

TDAT=TDAT+1
.BYTE
TDAY
TDAT=TDAT+1

116

117

121

123

124

127

131

137

141

143

145

147

151

CZDHI-DO

012264

012265
012266

012267
012270
012271

012272

012273
012274

012275
012276

012277
012300
012301

012302
012303

012304

012305
012306

012307

012310
012311

012312
012313
012314
012315

012316

012317

MACRO V04.00

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

000152
152
000153

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

000154
154
000155

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

000156
156
000157

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

000160
160
000161

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

000162
162
000163
163
000164
164
000165

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

000166
166
000167

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

000170
170
000171

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

000172

TDAT=TDAT+1

000173

TDAT=TDAT.1

153

155

157

161

165

167

172

173
000174
174

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE_

TDAT

.BYTE

TDAT

.BYTE _ TDAT

.BYTE
TDAT
TDAT=TDAT+1
.BYTE

TDAT

000175
175
000176
176
000177

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

000200
200
000201
201
000202
202
000203

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

203
000204
204
000205
205
000206

BYTE _ TDAT

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

SEQ 64

CZDHI-DO
012320
oi2321
012322
012323

012324
012325
012326
i

012327

012330
012331

012332
012333

012334
012335
012336
012337

012340
012341

012342
012343
012344
012345
012346
012347

012350
012351

012352
012353
012354

MACRO V04.00 27-JUN-85 13:08:01 PAGE 28-5
206
000207
207
000210
210
000211
211
000212
212
000213
213
000214
214
000215
215
000216
216
000217

.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TODAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE_
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TOAT
TDAT=TDAT+1
.BYTE_
TDAT
TOAT=TDAT+1
.BYTE_
TDAT
TOAT=TDAT+1
.BYTE__
TDAT
TOAT=TDAT+1

000220

TOAT=TDAT.1

217

220
000221
221

000222
222
000223
223
000224
224
000225
225
000226
226
000227
227
000230

230
000231
231
000232
232
000233
233
000234
234
000235
235
000236
236
000237
237
000240
240
000241
241
000242
242

.BYTE

TDAT

.BYTE
TDAT
TOAT=TDAT+1
BYTE

TDAT

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

.BYTE
TDAT
TOAT=TOAT.1
.BYTE
TDAT
TOAT=TDAT.1
BYTE
TOAT
TOAT=TDAT+1
.BYTE_
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
BYTE__
TOATY
TOAT=TDAT.1
BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
BYTE_
TDAT
TOAT=TDAT.1
BYTE__
TDAT
TOAT=TDAT+1
.BYTE
TOAT

CZDHI-DO

012355

012356
012357

012360

012361

012362
012363
012364
012365

012366
012367
012370

012371
012372

012373
012374

012375
012376

012377
012400
012401

012402

012403
012404
012405

012406
012407

——

012410

MACRO V04.00

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

000243

TDAT=TDAT+1

000244
244
000245

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

243

245
000246
246
000247
247
000250
250
000251

.BYTE

TDAT

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

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

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

267
000270
270
000271
271
000272

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

000273
273
000274
274
000275
275
000276
276
000277

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

000267

272

TDAT=TDAT+1

.BYTE

TOAT

SEQ 66

CZOHI-DO
012411

277

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

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TODAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

- TOAT

000300
300
000301

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

000302
012414
302
000303
012415
303
000304
012416
304
000305
012417
305
000306
012420
306
000307
012421
307
000310

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

000311

TDAT=TDAT.1

000312

TOAT=TDAT.1

000313

TDAT=TDAT+1

000314

TOAT=TDAT.1

000315

TOAT=TDAT+1

000316

TOAT=TDAT-1

000317

TDAT=TDAT+1

000320
320
000321
321
000322
322
000323
323
000324
324
000325

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

000326
326
000327
327
000330
330
000331

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

000332
332
000333

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

012412
012413

012422
012423
012424
012425
012426
012427

012430
012431

012432
012433

012434
012435
012436

012437
012440
012441
012442

012443
012444
012445

—

MACRO v04.00

301

310

311

312

313

314

315

316

317

325

331

333

SEQ 67

CZDHI-DO

MACRO V04.00

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

000334
334
000335

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

000336
336
000337

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

000340
012452
340
000341
012453
341
000342
012454
342
000343
012455
343
000344
012456
344
000345
012457
345
000346
012460
346
000347
012461
347
000350
012462
350
000351

TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE_
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT-+1
.BYTE
TDAT
TOAT=TDAT+1

000352
352
000353
353
000354
354
000355
355
000356
356
000357

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

000360
360
000361
3€1
000362
362
000363
363
000364
364
000365
365
000366
366
000367
367
000370

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

012446

012447

012450

012451

012463
012464

012465
012466

012467
012470

012471
012472

012473
012474
012475
012476

012477
012500

012501

335

337

351

357

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

SEQ 68

CZDHI-DO
012502

012503

012504
012505
012506

012507

012510
012511

12
13 012512
14

MACRO V04.00

370
000371
371
000372
372
000373
373
000374
374
000375
375
000376
376
000377
377
000400
000000

012554

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

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

SEG 69

CVNBUNFEOONAVNWN

CZDHI-DO

MACRO V04.00

000020
127400

.MACRO
MWORDS
'WDNAME ' K :
.ENDM
WORDS
K=KX
DATA=DATAX
KX=0

WDNAME,K,DATA
DATA

bt o s 2 s e

.REPT
20
.NLIST
DCIQ¥-KXMOO.12000O

WORDS
.NLIST

t/RWRD/,\KX, \DATAX

KX=KX+1

012554

012556
012556
012560
012560

012562
012562

120000

120400
120400
121000

121000
121400
121400

012570
012570

012574
012574
012576
012576

012600

WORDS

t/RWRD/ , \KX, \DATAX

RWRDO:
120000
KX=KX+1
DATAX=KX2400+120000
WORDS
#/RWRD/,\KX,\DATAX
RWRD1:
120400
KX=KXe
i

DATAX=KX+400+120000

WORDS
t/RMWRD/,\KX, \DATAX
RHRD2:
121000
KX =KX+ 1
DATAX=KX+400+120000
WORDS
*/RWRD/,\KX.\DATAX
RHWRD3:
121400
KX=KX+1
RHRD4:
122000
KX=KX+1

012566
012566

012572
012572

LIST
.ENDR
DATAX=KX+400+120000

DATAX=KX+400+120000
WORDS
*#/RMRD/,\KX, \DATAX

012564
012564

——

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

000010

000011
124400

124400
000012

DATAX=KX+400+120000
WORDS
*+/RMRD/,\XX,\DATAX
RHRDS:
122400
KX=KX+1
DATAX=KX+400+120000
WORDS
+/RHRD/,\KX, \DATAX
RWRD6:
123000
KX=KXe
DATAX=KX4400+120000
WORDS
*/RMRD/,\KX, \DATAX
RUWRD7:
123400
KX=KX+1
DATAX=KX+400+120000
WORDS
t/RMWRD/,\KX, \DATAX
RWRD10: 124000
KX=KX+1
DATAX=KX#400+120000
WORDS
*+/RWRD/,\KX,\DATAX
RWRD11: 124400
KX=KX+1
DATAX=KX#400+120000
WORDS
*/RWRD/,\KX,\DATAX

SEQ 70

CZDHI-DO
012600

012602
012602
012604

012604
012606
012606
012610

012610

012612

r__

MACRO V04.00

125000
000013

125400

125400
000014
126000
126000
000015
126400

126400
000016
127000

127000
000017
127400

127400

000020

27-JUN-85 13:08:01 PAGE 29-1
RWRD12:

KX=KXe1

125000

DATAX=KX+400-120000
WORDS t/RWRD/,\KX, \DATAX
RWRD13: 125400

KX=KX+1

DATAX=KX+400+120000
WORDS
t/RWRD/,\KX, \DATAX
RWRD14: 126000

KX=KXe1

DATAX=KX+400+120000
WORDCS
*+/RWRD/,\KX,\DATAX

RWRD1S: 126400
KX=KX+1

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

KX=KX+1

DATAX=KX#400+120000
WORDS
*/RMWRD/,\KX,\DATAX
RWRD17: 127400

KX=KX+1

SEQ 71

CZDHI-DO

MACRO V04.00

1 012614

012614
012616
012520
012622
012624
012626
012630
012634
012640
012646
012650

.PFAIL

010046
010146
010246
010346
010446
010546
016746
010667
012767
000000
000777

PFAIL:

165170
177204
012652

SEQ 72

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

165156

;ENTER HERE ON POWER FAILURE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT
BR

RO,-(SP)

iSAVE RO-R5 ON PROCESSOR STACK

R2,-(SP)
R3,-(SP)

RS5,-(SP)
24,-(SP)
SP,SAVSP
QRESTART ,24

sSAVE STACK POINTER
+SET UP FOR POWER UP TRAP
sHALT ON POWER DOWN NORMAL

;

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

012740
012744
012750
012754
012756
012762

005067
005067
000177
000001
000006
012016

012614

013724
000374
000370

165124
165070

RESTAR: MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
INC

BNE
TYPE
MCRLF
OCTASC

SAVSP,
SP
(SP)+,RS

sRESTORE STACK POINTER
;RESTORE RO-RS

SPFAIL .24
#340,PS

:SET UP FOR POMER FAILURE

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

#STACK,SP
TEMP
TEMP
.~4

177166

PFTAB
TYPE

177044
177104
177042

PFTAB:

MPFAIL
CLR
CLR
JHP
1
6,2
RETRN

ERRFLG
LAST
SRETRN

012666

012670
012672
012700
012706
012712
012716
012722
012724
012726
012730
012732
012734
012736

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

012652
012656
012660
012662
012664

CZDHI-"0
012764
012764
012767

012772
012775
013000
013003
013006

013011
013014
013017
013022
013025
013030
013032
013035
013040
013043

013046
013051
013054
013057

013062
013065

MACRO V04.00 27-JUN-85 13:08:01 PAGE 3i
015
104

061
101

055
120
130
116
102
101
124
124
012
015
105
117
101

122
123
015
117

012
110

040
114

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

012
061

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

110
106
125
105
101

040
105
040
123
015

117
122
111
105
101
122
123

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

105
055
012
116

MVECTO:

.ASCIZ

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

013070
013073
013076
013101
013104

013110

040

077

MQM:

ASCIZ

013114

015

012

000

MCRLF:

.ASCIZ

013117

040

120

MPFAIL:

.ASCIZ

013113

013122
013125
013130
013133
013136
013141
013144
013147
013152
013155
013160
013163
013166

013171
013174
013177

013202

013204
013207
013212
013215
013217

000

117
122
101
125
054
122
122
040
123
122
101
124
124

127
040
118
122
040
117
101
122
124
124
124
105
040

123

000

116
122
122

015
132
111
060
015

040
117
105

012
104
055
000
012

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

<15><12>/VECTOR ADDRESS-/

MREGAD: .ASCIZ

122
040
107
124
040
104
123

013107

<15><12>
/

POMER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/

120
107
123

103
110
104

MEPASS: .ASCIZ

<15><12>/CZDHI-DO/

120

PASTXT: .ASCIZ

<15><12>/PASS COUNT = /

i S

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

MACRO V04.00
101
040
125
C40
000
015
000
015
105
040
055

SEC 74

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

123
103
116
075

123
117
124
040

012

122

MR:

.ASCIZ

<15><12>/R/

012
123
120
000

124
124
103

MTSTPC:

.ASCIZ

<15><12>/TEST PC-/

.EVEN
.EVEN
.TRPTAB

3 013256

:TABLE OF POINTERS FOR TRAP DECODING
013256
013260
013262
013264
013266

013270
013272
013274
013276
4 013300

010600
011254
011574
011306
011400
011410
011162
011222
010700

TRPTAB:

.BUFFER

SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SVOsSP
RSOS
SCOP1R

:BUFFERS FOR INPUT-OUTPUT
013300
013312
013324

S 013336

INBUF:

013312

.=,+10

013324

.-.0i0

013336

MDATA:
.=,+10
.ERRTAB

0
0

s TABLE OF POINTERS TO ERROR MESSAGES AND DATA
013336
6 013336
7 013340
8 013342
9 013344
10 013346

11 013350
12 013352
013355
013360
013363
013366
013371
013374
013377
013402

ERRTAB

013352
013512
013426
013512
013464

115
105
110
103
122
124
103

EM1

D71
EM2
DT1
SNS
117
101
061
110
101
105
122
105

122
124
116
101
103
122
105
111

EM1:

.ASCIZ

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

REC/

CZDHI-DO

013405
013410
013413
C13416
013421
013424
13 013426
013431
013434
013437
013442
013445
013450
013453
013456
013461
14 013464
013467
013472
013475

013500

013503
013506

15
16 013512
17 013514
18 013516
19 013520

MACRO V04.00

126

015

130
040
040
103
102
101
104
101
122
122
105
040
040
105
122

105
105
116

040
111

105

20 013522

000002
006
012042
006
012040

000000
000001

21 013524
013524

105
012
120
040
122
000
122
113
101
040
122
015

104
105
040
040
105

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

EM2:

.ASCIZ

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

EM3:

.ASCIZ

/RECEIVER NOT BLINDED/

002

.EVEN
DT1:
.BYTE

2
6.2

002

.BYTE

130

040
040

103
105
111
122
117
102
116
104

SEQ 75

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

SAVRS
6,2
SAVR4

.ENDCOD
ENDCOD: 0
.END

REC/

CZDHI-DO
SYMBOL TABLE

MACRO VO4.0C

ADRCNT= 011573
BEGIN
001306
BINWRD
011744
BITX
= 000000
BITO0 = 000001
BITO1 = 200002
BIT02 ~ 000004
BITO3 = 000010
BITO4 = 000620
BITOS = 000040
B8IT06 = 000100
BITO7 = 000200
BITO8 = 000400
BIT09 = 001000
BIT10 = 002000

ENDFLG
EOP
ERRCNT
ERRFLG
ERRMSG
ERRORS
ERRTAB
ERTAB0
ESCAPE
EXITER

012056
010500
012014
012010
011036
010716
013336
011122
012020
011100
FREEZ1
012022
HALTS
011060
011566
HILIM
ICOUNT 012024
INBUF
013300
INIFLG 012050
INSTER= 104404
INSTR = 104403
INSTRE 011400
INSTRG 011306
INSTR1 011320
.I(NSTR‘& 011406
000020
KX
- 000020
012054
LAST
LIGHTS 001002
LIMITS 011520
012062
LINACT
LINE
= 000020
LOBITS
011572
LOGICA 010556
LOLIM
011564
012026
LPCNT
MCRLF
013114

BIT11 = 004000

BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000
CHRCNT 011742
CLRAL!. 012064
DATA
= 127400
DATABP 011054
DATAX = 127400
DEVADR 011570

DHBA

DHBAR

DHBC

DHSCR
DHLPR
DHNRC
DHRi.VL
DHRVEC
DHSCR
DHSLR
DHSSR
DHTLVL
DHTVEC
DT1

EMi
EM2
EM3

ENDCOD
. ABS.

011764

011770

011766

011772
011762
011760
012002
012000
011756
011776
011774
012006
012004
013512

MDATA
MEPASS
MPFAIL

013352
013426
013464

013524

013526
000000
ERRCRS DETECTED:

SEQ 76

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

013324
013204
013117
013110
013237
013054
011322
012764
013243
013032

000
001
0

VIRTUAL MEMORY USED:
18176 WORDS ( 71 PAGES)
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES
CZDHID.BIN,CZDHID.SEQ=DHMACA .MAC,CZOHID.P11

NULL
OCTASC=
OCTASN
PARAM =
PARAMS
PARAML
PARERR
PASARG
PASCNT
PASTXT
PFAIL
PFTAB
POPRO =

000001
012060
104402
011574
104405
011410
011440

011514
010572
012012

013217
012614
012754
012600

POP1SP= 005726
POP2SP= 022626
PS
= 177776
010046
005746
024646
012512
011056
012652
010566
104407
012016
011222
012554
012556
012574
012576
012600

SAVRO
SAVR1
SAVRZ
SAVR3
SAVR4
SAVRS
SAVSP
SAVO5P=
SCOPE =
SCOPER

SCOPEl=
SCOPiR
SPACNT=
STACK =
START
STFLG

SVoS

SVOSP

SHR

012030
012032
012034
012036
012040
012042
012044
104406
104400
010600

104410
010700
011743
013724
001004
012052

011170

011162

001000

SHOO
SWO1
SH02
SWO3
SHO4
SHOS
SWO6
SHO8
SHO9
SW10
SWil
SWi2
SW13
SWi4
SH1S

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

TOAT

= 000400

TKCSR
TKDBR
TPCSR
TPDBR
TRPOK
TRPSRV
TRPTAB

011746
011750
011752
011754
011142
011130
013256

TBUF
TENP

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

012112

013312

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

011040
104401
011254
011016
001400
003466
003720
004152
004404
004636
005070
005322
005554
001632
006006
006240
006352
006464
006576
006710
007022
007134
002064

131

007360

730

132

133

007246

007472

007604

T34
135
136
137

007716
016030
010142
010254

T40
15

010366
002550

17
VEC1
VEC2

002316

003002

003234
001164
001174

WRDCNT
011740
X
= 000000
XBIT
= 000000

XLINE = 000020

XN
Y

= 000041

= 000011