Digital PDFs

AH-FG26C-MC

October 1985

81 pages

Original

40MB

view download

OCR Version

53MB

view download

Document:	CZDHGC0 DH11 DH11 MULTILINE DATA OCT 1985 bw
Order Number:	AH-FG26C-MC
Revision:	000
Pages:	81
Original Filename:	CZDHGC0__DH11__DH11_MULTILINE_DATA__AH-FG26C-MC__OCT_1985_gray.pdf

OCR Text

DH11 MULTILINE DATA

CZDHGCO

AH-FG26C-MC

10F1 OCT 1985

Enfluan
MADE IN USA

MACRO V04.00

27-JUN-85 13:01:48 PAGE 1

SEQ
1

.REM !

CENOUNEWN
-

QZ%G-CO

IDENTIFICATION

ars

PRODUCT CODE:

AC-8468C-MC

PRODUCT NAME:

CZDHGCO DH11 MULTI-LINE DATA TEST

DATE:

JUNE 1985

MAINTAINER:

NAC SOFTWARE ENGINEERING

AUTHOR:

G. BAISLEY
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON
EOUIM; THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED

A
S ——-"

VR NIV D WN
-

CZDHG-CO

MACRO V04.00

SEQ
2

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

PAGE 2

1.0

ABSTRACT

THE SINGLE LINE PARITY TEST CHECKS THAT THE PARITY ERROR FLAG

FOR ALL

16 LINES.

.ONE LINE AT A TIME.

ASSERTS

THE DH11 MULTI-LINE DATA TEST TRANSMITS BINARY COUNT PATTERNS
ON ALL
16
LINES
SIMULTANEQUSLY.
ALSO,
PARITY GENERATION LOGIC AND PARITY
:gggls";ION LOGIC IS VERIFIED.
(ODD & EVEN PARITY FOR S, 6, 7, 8
LEVEL

2.0

REQUIREMENTS

2.1

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

3.0

LOADING PROCEDURE

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

4.0

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

4.1.1

AFTER PROGRAM LOAD (INITIAL PROGRAM START)

ALL CONSOLE SWITCHES DOWN

VLDl

adbdbhititlitiiitiiiRDD
N

—

b 0 0 et e et et Pt Pt e
- VA VNBDUNNFROO®IOWVIEWN

CZDHG-CO

MACRO V04.00

SEQ 3

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

4.1.2
TO MODIFY DEVICE VECTOR AND CONTROL
PROGRAM RESTART

ADDRESSES

AFTER

SW00=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 IS 0002000
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3.1

INITIAL PROGRAM 3TART

4.3.1.1

LOAD PROGRAM INTO MEMORY

4.3.1.2

LOAD ADDRESS 000200

4.3.1.3

CLEAR CONSOLE SWITCHES

4.3.1.4

PRESS START

4.3.1.5 THE PROGRAM WILL TYPE “DH11
MULTI-LINE
DATATEST”
AND
WILL
IEEY;OOA;‘Y,PE
“VECTOR ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE

MACRO v04.00

4
SEQ

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

4.3.1.6
TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR FOR
DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

VRN

VNBWN -

CZDHG-CO

THE

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

IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM WILL TYPE “?* AND WILL
REPEAT THE SECOND MESSAGE OF 4.3.1.5

4.3.1.7
THE PROGRAM WILL TYPE “CONTROL REGISTER
FOR AN INPUT FROM THE TELETYPE KEYBOARD

ADDRESS-"

4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL
DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

AND

IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE “?"
THEN REPEAT THE OF 4.3.1.7

AND

4.3.1.9
THE PROGRAM WILL TYPE “R” TO INDICATE THAT
START TESTING, AND THEN TESTING WILL BEGIN

ABOUT

4.3.2

THE
WILL

PROGRAM RESTART WITH ALL SWITCHES DOWN

4.3.2.1

PERFORM 4.3.1.2 T0 4.3.1.5

4.3.2.2

THE PROGRAM WILL TYPE “DH11

THEN CONTINUE AS DESCRIBED IN 4.3.1.9

4.3.3

WAIT

PROGRAM RESTART WITH SWO0O=1

MULTI-LINE

DATATEST”

AND

WILL

VRN
VNB LN -

CZNHG-CO

MACRO V04.00

SEQ
5

27-JUN-85 13:01:48 PAGE 5
PAGE S

4.3.3.1

LOAD ADDRESS 000200

4.3.3.2

SET SWO1i=1

4.3.3.3

PRESS START

4.3.3.4

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 70 4.3.1.9

4.3.4

PROGRAM RESTART WITH SWO1=1

4.3.4.1

LOAD ADDRESS 000200

4.3.4.2

SET SW01=1

4.3.4.3

PRESS START

4.3.4.4
THE PROGRAM WILL TYPE “DH11
MULTI-LINE
DATATEST*
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 FULLOUWED BY <CARRIAGE RETURN>

4.3.4.6

THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS

WILL START TESTING AT THE SELECTED TEST.
NOTE

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

STARTED

AND

MACRO V04.00

SEQ
6

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

CZDHG-CO

PAGE 6

VNPV

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

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

SW15=1,
SWi4=1,
SW13=1,
SWil=1,
SW10=1,
SW09=1,
SWO1=1,
SWO0=1,

5.2

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

SUBROUTINE ABSTRACTS

TRAPCATCHER (LOCATIONS 000000-000776)

oaoN

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

ONO~

IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM WILL HALT

THE PC 2 GREATER THAN THE ADDRESS TO WHICH THE PROGRAM TRAPPED.
PROCESSOR STACK MAY BE EXAMINED TO DETERMINE WHERE THE PROGRAM
WHEN THE TRAP OR INTERRUPT OCCURED.

WITH
THE
WAS

VRN
ND N -

CZDMG-CO

MACRO V04.00

SEQ
7

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

PAGE 7

5.2.2

START (PROGRAM INITIALIZATION)

THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS
AND COUNTERS,
TYPES
THE
PROGRAM TITLE
MESSAGE,
AND
INPUTS
THE VECTOR AND CONTROL REGISTER
ADDRESSES OF THE DH11 70 BE TESTED.

5.2.3

BEGIN (PROGRAM START AND RESTART)

THIS ROUTINE IS ENTERED IMMEDIATELY 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 MWHICH
TESTING WILL BEGIN.
IF SWO1=0 WHEN THIS ROUTINE IS ENTERED TESTING
WILL START AT 71 (TEST 1).
IF SWO1=1 WHEN THIS ROUTINE
IS
ENTERED,
TESTING WILL START AT THE PC ENTERED FROM THE TELETYPE KEYBOARD.

5.2.4

EOP (END OF PASS)

THIS ROUTINE IS ENTERED ONCE

COMPLETED.

PER

PASS

AFTER

ALL

TESTS

HAVE

BEEN

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
7O 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
CHECKS FOR THE FOLLOWING UPON ENTRY

COMPLETED.

THE

IF SN10=1, THE ROUTINE WILL TRANSFER TO
SEQUENCE, AFTER CLEARING ERROR FLAGS.

THE

IF SWiil=1,
THE ROUTINE MWILL TRANSFER
SEQUENCE, AFTER CLEARING ERROR FLAGS.

THE

IF SWi4=1,
THE ROUTINE WILL LOOP
REGARDLESS OF THE ITERATION COUNT-—

THE

ROUTINE

TEST

CURRENT

TEST

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.
IF THE NUMBERS ARE NOT
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED.

VRN
NE WN -

CZDHG-CO

MACRO V04.00

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

5.2.6

SCOP1R (FREEZE ON CURRENT DATA)

THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATELY AFTER
THE CALL TO THE
ERROR HANDLER 1IN THOSE TESTS THAT HAVE VARIABLE PARAMETERS.
THIS
ROUTINE IS ALMAYS ENTERED IN THOSE TESTS,
WHETHER
OR
NOT
AN ERROR
OCCURS.
IF SWO9=1, THE ROUTINE WILL TRANSFER CONTROL BACK TQO THE TEST
AT

POINT

WHICH

WILL

ALLOW

REPEATING

THE

FUNCTION

UNDER

TEST

CONTINUOUSLY MWITH THE SAME DATA.
IF THIS OPTION IS SELECTED, THE
w% “SCOPER” IS NEVER ENTERED AND ITERATION COUNTS
WILL NOT
BE

5.2.7

ERRORS (ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS:

WITH

ALL

CONSOLE

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.

IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY DURING THIS
PASS, A COMPLETE ERROR REPORT IS MADE IF THE TEST THAT FAILED
FAILED MORE THAN ONCE DURING THE CURRENT PASS, ONLY THE
DATA
RELATING TO THE FAILURE IS TYPED.
IF
SW13=1, NO ERROR
TYPEOUT IS MADE.

THE ROUTINE NOW CHECKS FOR HALT ON ERROR.
IF SW1S=1 THE
PROGRAM MWILL HALT
WITH THE PC OF THE CALL TO THE ERROR

ROUTINE IN RO.

IF SW15=0, THE PROGRAM

WILL CHECK FOR ESCAPE TO NEXT TEST.

5.2.8

WILL

IF SW10=0, THE ROUTINE WILL RETURN TO THE TEST

NOT

HALT,

BUT

PROGRESS.

IF SW10=1,
THE ROUTINE WILL ABORT THE CURRENT TEST, AND
.RNGFEe TO THE NEXT TEST IN SEQUENCE,
THRU THE ROUTINE

TRPSRV (TRAP DECODE AND DISPATCH)

THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION THAT CAUSED THE
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.

CZOMG-CO

MACRO V04.00

SEQ 9

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

;

12
13
14

b3
17
18

19
gg

24
25
26
27

i
30

5.3

PROGRAM AND OR OPERATOR ACTION

5.3.1

PRCGRAM START WITH ALL SWITCHES DOWN

5.3.1.1 REFER
BEHAVIOR.

5.3.1.2

BEGIN.

SECTIONS

4.3.1

AND

4.3.2

FOR

INITIAL

TEST

WILL

(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 _OMPLETED,
THE PROGRAM MWILL
TYPE
“CZDHG-C” AND THEN RESTART TESTING AT TEST 1 (LOCATION T1 IN THE
PROGRAM).

5.3.2

PROGRAM START WITH SWOO=1

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1

2
:3

49
S0

WILL

BE REPEATED A SELECTED NUMBER OF ITERATIONS

IF AN ERROR OCCURS, THE

PROGRAM

AFTER "R” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION

EACH

5.5.1.4

PAGE 9

PROGRAM

WILL

TYPE

ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS.

5.3.3

APPROPRIATE

PROGRAM START WITH SWO1=1

5.3.3.1

REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR

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

AND

WILL

T O
VR

VRN

VBN -

CZDHG-Co

MACRO V04.00

SEQ 10

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

zi}i:g; lAFTEII “CZDHG-C” HAS BEEN TYPED, THE PROGRAM WILL RESUME TESTING

5.3.4

PROGRAM OPERATION WITH SW1S=1

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, THE PROGRAM WMILL
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

SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE ONLY

5.3.7

PROGRAM OPERATION WITH SW10=1

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

5.3.8

PROGRAM OPERATION WITH SWid=1, OR SW09=1

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

SEE

SECTION

MACRO V04.00

SEQ 11

27-JUN-85 13:01:48 PAGE 10-1

6.0

ERRORS

6.1

ERROR HAL1S

THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS IS AS FOLLOMWS

PCs2

MESSAGE

HEADER (IF APPLICABLE)
DATA
(IF APPLICABLE)

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 FOLLOM;
DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF
THE FAILURE.

CZOMG-CO

SEQ 12

MACRO ¥04.00 27-JUN-85 13:01:48 PAGE 11

PAGE 11
THE

SAME

ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS,

AND IF DATA

-1

IS ASSOCIATED MITH THAT ERROR, ONLY DATA IS TYPE ON SUCCEEDING ERROR

1F MO DATA IS ASSOCIATED WITH THE ERROR THE COMPLETE ERROR MESSAGE

TYPEQUTS.

;

’i%

6.1.1

SEE LISTING FOR DETAILS OF ERRORS

17
18

;3
21
22

ERROR DESCRIPTIONS

6.2

RECOVERY

6.2.1

25
g

IF THE PROGRAM IS RUN MITH SM15=0, NO OPERATOR ACTION IS
CONTINVE TESTING

28
29
gg

6.2.2

32
a

SH1S=0

REQUIRED

SW1S=1

IF THE PROGRAM IS RUN WITH

SM15=1,

CONTINUE

TESTING

AFTER

PROGRAM MAS MALTED, PRESS THE PROCESSOR CONSOLE CONTINUE SWITCM

THE

g
g;

6.2.3

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED DURING PROGRAM

AT WHICH THE PROGRAM WALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE

ILLEGAL INTERRUPTS

INITIALIZATION,

INTERRUPT

THE PROGRAM WILL WALT IN THE TRAPCATCHER.

OCCURED.

THE

THE ADDRESS

PROGRAM MUST BE RESTARTED AT 200 TO RECOVER

CZ0HG-CO

MACRO V04.00 27-JUN-85 13:01:48 PAGE 12

——

i
%

PAGE 12

6.3.1

70 SCOPE ON A SPECIFIC TEST, SET SWid=1 AND SM13=1.

THIS

WMILL

6.3.2

T0 SCOPE ON A SPECIFIC VALUE OF A PATAMETER WITHIN A TEST,

SET

i.g

6.3.3

PROGRAM START TO SCOPE LOOP ON SELECTED TEST

i.:

PERFORM SECTION 4.3.4 WITH SWi4=1

20
21
22

7.0

RESTRICTIONS

7.1

STARTING

S
g

CAUSE THE PROGRAM
TO CONTINUOUSLY LOOP ON THE SAME TEST, AND MILL
CAUSE ALL ERROR TYPEOUTS TO BE INMIBITED

:
10

i1
%g

SMO9=1 TO FREEZE THE DATA.
INCORPORATE THIS FEATURE)

(SEE

gg
g:
£

31
32
33

THE DH11 TEST CARD MUST BE INSTALLED
.

7.2

NONE

RUNNING

LISTING

FOR

THOSE

TESTS THAT

CZOMG-CO
38
39
41

45
47
48
49

51
53

57
58

MACRO V04.00

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

8.0

MISCELLANEOUS

8.1

EXECUTION TIME

THE TIME FOR ONE PASS OF THE PROGRAM (END OF TYPEOUT OF CZDHG-C
TO
END
OF
TYPEOUT
OF
CZDHMG-C)
IS
GIVEN FOR VARIOUS PROCESSORS IN THE TABLE
BELOW

TIME

PROCESSOR

PDP-11/05,10

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

SEQ 14

——

LL L L
o
L
dald
e e
SRGRRSTRURGRURE ggo#&uaumo—goouououmnSoououoaflur—

CZDHG-CO

MACRO V04.00

SEQ 15

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

PAGE 13

9.0

PROGRAM DESCRIPTION

THIS PROGRAM CONSISTS OF 2 TESTS.
THE FIRST TEST RUNS ALL 16 LINES AT
4800
BAUD
WITH
THE
RECEIVER
OPERATING
IN
INTERRUPT MODE.
THE
TRANSMITTER INTERRUPT IS NOT ENABLED,
BUT
A BACKGROUND ROUTINE
IS
EXECUTED THAT
FIRST WAITS FOR ALL TRANSMITTER BAR BITS TO CLEAR,
THEN WAITS FOR THE SILO
TO BE EMPTIED BY
THE RECEIVER
INTERMT
SERVICE ROUTINE.
WHEN BOTH OF THESE HAVE OCCURED, THE TEST HAS BEEN
COMPLETED, AND IS RESTARTED IF ITERATIONS HAVE NOT BEEN INHIBITED.

THE RECEIVER INTERRUPT SERVICE ROUTINE FOR THIS TEST FIRST
CHECKS
TO
SEE
THAT CHARACTER
AVAILABLE MWAS SET AND THAT SILO OVERRUN KAS NOT
SET.
IT THEN READS THE RECEIVED CHARACTER FROM THE SILO, EXTRATTS THE
LINE
NUMBER FROM
THE DATA READ, AND COMPARES THE RECEIVED DATA WORD
(16 BITS) TO AN EXPECTED RECEIVED CHARACTER WORD FOR THE LINE DECODED.
THE EXPECTED RECEIVED CHARACTER FOR THAT LINE IS THEN UPDATED, AND THE
ROUTINE THEN RETURNS BACK TO THE TRANSMITTER BACKGROUND ROUTINE
THE SECOND TEST OPERATES WITH THE TRANSMITTER AND RECEIVER BOTH IN
INTERRUPT MODE,
BUT THE
SILO ALARM LEVEL
IS SET TO 63 (DECIMAL)

CHARACTERS, AND A CHARACTER AVAILABLE INTERRUPT SHOULD NOT OCCUR.

THE RECEIVER IS SERVICED
ON A PER CHARACTER BASIS BY CONTINUOUSLY
TRYING TO READ CHARACTERS FROM THE NEXT RECEIVED CHARACTER REGISTER.
WHEN THE VALID DATA BIT OF THE NEXT RECEIVED CHARACTER REGISTER IS
SET,
THE ROUTINE PROCEEDS TO CHECK THE CHARACTER AS IN THE PREVIOUS
TEST.
WHEN THE EXPECTED RECEIVED CHARACTER INCREMENTS T0 O
10

(DECIMAL)

TIMES, AN END OF TRANSMIT FLAG IS SET.

IF THIS FLAG IS NOT

SET, THE TRANSMITTER IS RESTARTED FOR THE LINE WMWHOSE NEXT EXPECTED
RECEIVED CHARACTER INCREMENTED
TO O. WHEN THE END OF TRANSMIT FLAG IS
SET, NO LINES ARE RESTARTED, THE SILO IS EMPTIED OF ALL REMAINING
CHARACTERS, AND THE TEST IS RESTARTED IF ITERATIONS ARE NOT INHIBITED.

10.0

LISTING

MACRO V04.00

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

SEQ 16

: DHMAC-A - DH11 MACRO LIBRARY
+ COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
LIST
.NLIST

ME
MC,MD,CND

[

-0

o s

gqoubun»

CZDHG-CO

148
158
167
303
339
373
520
563
595
607
652
664
691
712
743
744

;

746
747
748

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

745

TRAPS. ~
749
750

CLEAN END OF PASS
MESSAGE.
751
752
753
TCH REGISTER”
754

CMS REPLACEMENT HISTORY

: #6 SKONETSKI 22-APR-1985 14:22:35 “FIXED BRANCH ERROR IN END OF PASS ROUTINE”
; o5 SKONETSKI 22-APR-1985 08:28:54 “FIXED BUG (AN OCTASC MACRO CALL WAS WRONG) AND ADDED A

; #4 SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTWARE SMITCH REG SUPPORT, BUT UNTESTED”
s 3 SKONETSKI 12-APR-1985 10:34:52 "FIXED PROBLEMS MITH SPURIOUS CR/LFS*"
; 42 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTMWARE SMWI
; #1 SKONETSKI 11-APR-1985 15:49:05 “LIBRARY FOR DH11 DIAGNOSTICS”

MACRO V04.00

SEQ 17

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

.LIST
HME
.NLIST
MC,MD,CND
.HEADER +/1972,1985/,t/DH11 SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST/,t/CZDHG-CO/

CZDHG-CO

:STARTING PROCEDURE
:LOAD PROGRAM
:LOAD ADDRESS 000200
:PRESS START
:PROGRAM WILL TYPE DH11 SINGLE LINE PARITY CHECK € MULTI-LINE DATA TEST
:PROGRAM WILL TYPE “VECTOR ADDRESS-"
sTYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
:FOR THE DHil1 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
1PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”
;:TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
;FOR THE DH11 TC BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
; 3
;PROGRAM WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED
sAT THE END OF A PASS, PROGRAM WILL TYPE “ CZDHG-CO “
;AND THEN RESUM TESTING
.TITLE
CZDHG-CO
.ENABLE ABS
.NLIST
MC,MD,CND
LIST
ME
.SYMBOLS

6 0C0000

sSWITCH REGISTER OPTIONS
100000
040000
020000
010000
02000
001000
000400
000100
000020
000010

000001

SW15=100000
SW14=40000
SW13=20000

:=1,HALT ON ERROR
s=1,LO00P ON CURRENT TEST
s=1,INHIBIT ERROR TYPEOUT

SH12=10000

SH11=4000
SK10=2000
SH09=1000
SKHOE=400
SKH06=100
SW05=40
SHO04=20
SH03=10
SH02=4

SWO1=2
SW0O0=1

:=1,INHIBIT ITERATIONS
3=1,ESCAPE TO NEXT TEST ON ERROR
s=1,LO0P WITH CURRENT DATA

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

: 3

CZDHG-CO

MACRO V04.00

SEQ 18

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

;REGISTER DEFINITIONS

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

R2=%2
R3=%3
R4=%4
R5=s5
SP=%6
PC=¢7

;LOCATION EQUIVALENCIES

:SWR=177570

177776

013752

sLIGHTS=177570
PS=177776

STACK=ENDCOD+200

:CONSOLE SWITCH REGISTER

;PDP-11/45 DISPLAY REGISTER
;PROCESSOR STATUS WORD

:START OF PROCESSOR STACK

&b
W

RO=%0
Ri=«¢f1

000000
000001
000002
000003
200004
000005
000006
000007

;INSTRUCTION DEFINITIONS

005746
005726
010046
012600

PUSH1SP=5746
POP1SP=5726
PUSHRO=10046
POPRO=12600

:DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK
sRESTORE RO FROM STACK

022626

POP25P=22626

s INCREMENT STACK TWICE

024646

PUSH25P=24646
H

MACRO
.ENDM

HLT

EMT

HLT

;DECREMENT STACK TWICE
$A

;

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

B8IT14=40000
BIT713=20000
B8IT12=10000
BIT11=4000
B8IT10=2000
B8IT09=1000
81708=400
B8IT07=200
B8IT06=100

000020

B8IT04=20

000040
000010

000004
000002

1 000000

BIT15=100000

000001

BIT05-40
BIT03=10

BIT02=4
BITO1i=2
BIT00=1
.CATCH

: 3

MACRO V04.00

CZDHG-CO

000000
000200

sTRAPCATCAER FOR ILLEGAL INTERRUPTS

.=0
.REPT 200
—

000002

[
}

000126

000130
000132
000134

000136

000140
000142
000144

:UNEXPECTED TRAP TO THIS LOCATICN

.42

sUNEXPECTED TRAP TO THIS LOCATION

HALT

000036
000000

.42
HALT
.42
HALT

o SR
HALT
.42
HALT
.42
HALT

.42

000072
000000
000076

HALT
.42
HALT
.42
HALT
.2
HALT
» 02
HALT
.2
HALT
.42

000102
000000
000106
000000
000112
000000
000116
000000
000122
000000

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

000000

000114
000116
000120
000122
000124

.42

000000

000042
000000
000046
000000
000052
000000
000056
000000
000062
000000
000066

000110

sUNEXPECTED TRAP TO THIS LOCATION

HALT
.42
HALT
.42
HALT

000022
000000
000026
000000
000032
000000

.42

HALT

000000
000006
000000
000012
000000

000016

000000

000126
000000
000132
000000
000136
000000
000142

000000
000146

SEQ 19

27-JUN-85 13:01:48 PAGE 17

HALT

.42
HALT
.42
HALT
.42
HALT
.42

HALT
.2

;EXAMINE STACK TO FIND CAUSE

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

sEXAMINE STACK TO FIND CAUSE

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

sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

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

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

;EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

MACRO V04.00

000152
000156
000162

.wi'
lflét
NA%?

000000
000172
000000
000176
000000
000202
000000
000206
000000
000212
000000
000216
000000
000222
000000
000226

HALT
02
HALT
2
HALT
.02
MALT
02
MALT
2
MALT
2
HALT
.02
HALT
Y

s
8283::5%% g

o)
0 ®

o ®

000236
000242
000000

HM'J
”MOJ
HALT

000262

R J

Hllz.‘l

000246
000000
000252
000000
000256

000000
000266
000000
000272
“Ngg

HRERE

000272
000274
76

00000'3

0002

.
.
M

XY
WALT
XY
HALT
XY

'wi’
)

HALT
02
MALT
02

Mg?
M

s
w

e
HALT

000316

mkt

000326

000000
000322
000000
000000

SEQ 20

27-JUN-8S 13:01:48 PAGE 17-1

XY
J

MALT
2
Nlla.T

HALT

1EXAMINE STACK TO FIND CAUSE
IUNEXPECTED TRAP TO THIS LOCATION

tEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATICN
1EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
1UNEXPECTED TRAP TO THIS LOCATION

FIND CAUSE

1EXAMINE STACK TO FIND CAUSE

.wmcm TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

lM”ICTI?
TMP TO THIS LOCATION
E

STACK TO FIND CAUSE

.wmcED TMP 70 THI! LOCATION

”gccrfo‘?n‘»
1UNE
TO_THIS LOCATION
ND CAUSE

1EXAMINE STACK TO FIND CAUSE

IUNEXPECTED TRAP TO THII LOCATION

llm

STACK TO FIND CAUSE

IUNEXPECTED TRAP TO THIS LOCATION

oMflngK T0 _FIND CAUSE
UNEXPECTED

TRAP TO TNIl LOCATION

l!XM!H STACK T0 FIND CAUSE

lltll”'l‘fllg.RAP1017'313 LOCATION

03 Tg %”
TO_THISAUSE
LOCATION

]

" STACK

CTED

TO FIND ng

TRAP12 THIS LOCATION

INEXPECTED. A 1O THIE LOCATION
T0_FIND CAUSE
8T
.Mm%" 70ngnbfimon
'gx‘mx .olgworoxt.gxg&mon
'W”E"D.%”
TO_THIS LOCATION
E
rgm T0_FIND CAUSE
'

1UNE
TRAP TO THIS LOCATION
umun STACK TO FIND CAUSE

SEQ 21

27-JUN-85 13:01:48 PAGE 17-2
.2
HALTY
.2
HALT
.42
HALT
.2
HALT
.42
HALT
.2
HALT
.2
HALT
.2
HALT
.2
HALT
.2
HALT

000370
000372
000374
000376

.42

HALT
.2
HALT

000410
000412
000414
000416
000420

.22
HALY
.42
HALT
.2
HALT
.2
HALT
.22
HALT
.42
HALT

.2
HALT
.2
HALT

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

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

semm: 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
.exnm! STACK TO FIND CAUSE

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

000470
000472
000474
000476

sUNEXPECTED TRAP TO THIS LOCATION

tm 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

MACRO V04.00

000000
000516
000000

HALT
.42
HALT

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

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

000522

SEQ 22

27-JUN-85 13:01:48 PAGE 17-3

.42

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

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

CZOHG-CO
000674
000676
000700

000704
000706

000710
000712
000714
000716
000720
000722
000724
000726
000730

000734
000736
000740
000742
000744
000746
000750
000752
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 23

27-JUN-85 13:01:48 PAGE 17-4

)

.SETVEC

.2
HALT
.42
HALT
Y
HALT
.42
HALT
Y]
HALT
.42
HALT
Y]
HALT
.2
HALT
Y
HALT
Y]
HALT
.*2
HALT
Y
HALT
YHALT
.42
HALT
.42
HALT
.2
HALT
L2
HALT

.'_4_—4_-'-

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

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

CZOMG-CO

MACRO V04.00

000200
000167

1 000204

.=200

sSTANDARD INTERRUPT VECTORS

JMP

START

;GO TO START OF PROGRAM

. TRPDEF

sDEFINITIONS FOR TRAP SUBROUTINE CALLS
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING
sAT LOCATION “TRPTAB"

000001

104401

000204

104403

??E-TRNNY

:SCOPE LOOP AND ITERATION HANDLER

sYe

TRPDEF

TYPE,+/TELETYPE OUTPUT ROUTINE/
;YgE;TRAPoY
sTELETYPE OUTPUT ROUTINE

TRPDEF

OCTASC,+/0CTAL TO ASCII CONVERSION/
;fl;liC-TRAPoY
sOCTAL TO ASCII CONVERSION

TRPDEF

INSTR, +/INPUT ASCII STRING/
Wfl:-mfl'd
sINPUT ASCII STRING

sYe

104404

104405

000007

104407
000010

ERER

000204

000003

SCOPE, +/SCOPE LOOP AND ITERATION HANDLER/

TRPDEF

INSTER, +/STRING INPUT ERROR/
WT-TmoY
;STRING INPUT ERROR
sYe

PARAM, +/CONVERT STRING TO OCTAL, CHECK LIMITS/
:WTRMOY
;CONVERT STRING TO OCTAL, CHECK LIMITS
sYe

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

Y=Yel

RESOS, t/RESTORE RO-RS/
:ego?flw.v

;sRESTORE RO-RS

sYe

SCOPE1.*/CHECK FOR FREEZE ON CURRENT DATA/
;Cfilflmfl
;CHECK FOR FREEZE ON CURRENT DATA

104410
000011

sYs

CODEM1

MOV
INC

=
-

000204

104400

000204

w
-)

000600

SEQ 24

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

DHSSR, DHSLR
DHSLR

+SET UP ADDRESS OF SILO
$STATUS REGISTER HIGH BYTE

CODEM1L
DHRVEC,3,4,DHSCR,0,177776,7.10,,.1

C20MG-CO
]

MACRO V¥04.00 27-JUN-85 13:01:48 PAGE 19
001000

.= 1000
sPROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
sSET UP PROCESSOR STACK
sSET UP POMER FAIL VECTOR
sCLEAR PROGRAM FLAGS AND COUNTS
sTYPE TITLE MESSAGE
IIF NB <>,
sDETERMINE MEMORY SIZE

201000

177570

001004

012767

001002

001012
001016
001022
001026
001032

177570

012706
012702
012722
012722
012722

IIF NB <>,

sSET UP TRACE TRAP RETURN

SWR:

.MORD

177570

+ SWITCH DHSCR ADDRESS

START:

MOV

#340,PS

;LOCK OUT INTERRUPTS

LIGHTS: .MORD

000340

013752
000024
012512
000340
010704

176764

012722
012722
012712
005067
005067
005067

000340
011116
000340
010762
010716
010714

001076
001102
001106
001114

016746
016746
012767
005777

176702
176700
001122
177660

ggis
1150

012767
000176 177650 005067 177646

g33CELEC3ae

001036
001042
001046
001052
001056
001062

001066 005067 010704
001072 005067 010700

001120 000403

33{:& 005726

176670

MOV
MOV
MoV
MOV
KoV

001154

005767

010656

001160

001001

TYPE

LENDC

JOF N8
§IZE:

1:
20:

ERRFLG
ERRFLG

0176, SWR
LIGHTS

ST
MWV
MOV

4340, (R2)»
#TRPSRYV, (R2)+
9340, (R2)
STFLG
PASCNT

MOV
CLR

176642
176634
IF N8

#STACK,SP
#24,R2
SPFAIL ,(R2)+
9340, (R2)+
#ERRORS, (R2)+

005726
012667
012667

104401 012662

+ LIGHTS

4, -(SP)
6. -(5P)
ois. 4
esWk

001136
001140
QL4

001150

177570

(SP)e

(SP)e
(SP)e, 6
(SP)e. 4

MTITLE

INIFLG

<DMRVEC>
BNE
VECI
BNE

BEGIN

TST

(RODe

MOV

MOV
SUB
MOV

+SET UP PROCESSOR STACK
+ POINT TO VECTOR AREA
:SET UP POWER FAIL TRAP
sSERVICE AT LEVEL 7
sERROR HANDLER

: 4

; 4

1
1
1
1

7
7
7
7

1SERVICE AT LEVEL 7
s 7
sGENERAL HANDLER DISPATCH SERVICE ; 7
sSERVICE AT LEVEL 7
: 8
:CLEAR TEST START FLAG
1CLEAR PASS COUNT
'CLEAR ERROR COUNT

{CLEAR ERROR FLAG
iCLEAR LAST ERROR PC
} PUSH TRAP VECTOR

s SET UP TRAP VECTOR
; TEST SMITCH REGISTER ADDRESS

+ IF SUCCESSFUL, LEAVE IT ALONE

' 8
' o
M
. 4

s+ POINT
TO SOFT SWITCH DHSCR
|4
O MEANS WE ARE NOT GOING T0 USE LIGHTS 1 4
; CLEAN UP STACK

JTYPE TITLE MESSAGE

]

£
)

' 8
'3
L 8

{CHECK INITIALIZATION FLAG
JIF NOT 0, CHECK SWITCHES
JFOR REINITIALIZATION

JIF NOT O, START TEST

029,004

JSET UP TIME OUT RETURN

ILOCATION RESPONDED, CONTINUE

RO.HCORE
92 HCORE
6964

IWILL TRAP WHEN NO MEMORY

' 9

1RO CONTAINS ADDRESS OF
INON EXTSTANT MEMORY
IRESTORE TRAPCATCHER

' 9

MACRO V04.00

27-JUN-85 13:01:48 PAGE 19-1
LENDC
JF B <o
TRACER: MOV

14:

001162

.ENDC
.OIF NB
JOF B

000404

IFF

032777

000001

012701
012702
012703
010211

000300
000302
000004

001445

177606

VEC2:

14:

005012

060301
060302
020127
001371
104403
012755
104405
000300
000770

001000

003
004
104403
012777
104405
000000
17777
011744
007

BYTE
BYTE

BYTE

010

BYIE
.ENDC
IF B

016767
005267

010474
010470

005767

010536

010530

RO
ORTT,TRTRET
2%
ORTI,TRTRET
12,9010
#TRTRET, 9016

<DHRVEC>
o

010474

+SET UP ILLEGAL INSTRUCTION TRAP RETURN
;00 11740, 11745 INSTRUCTION
111/40,45 RTT RETURN FROM TRACE TRAP
+1105,10,20 RTI RETURN FROM TRACE TRAP
sRESTROE TRAPCATCHER
:SET UP TRACE TRAP VECTOR

VEC2

INIFLG

+IF INITIALIZE FLAG=0
$GET VECTOR AND CSR ADDRESS

#5400, BSHR

+IF SWOO=1, GET NEW VECTOR
sAND CSR

BEQ
BIT

VEC2

BEQ

BEGIN

MOV
MOV
MOV
MOV

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

CLR

(R2)

ADD
R3.R1
ADD
R3,.R2
cHe
R1,01000
BNE
14
INSTR
MVECTOR
PARAM
300
770

011766

001002
005167

.ENDC

VEC1i:

#14,8010

SXT
MoV
ER
MoV
MOV
MoV

DHRVEC

3
4
INSTR
MREGAD
PARAM
0
177776
DHSCR
7

sRESTORE TRAPCATCHER
1IN FLOATING VECTOR AREA

sINPUT ADDRESS OF DEVICE VECTOR
sMESSAGE "VECTOR ADDRESS-*
sCONVERT STRING TO OCTAL
1LOW LINIT
sHIGH LIMIT
sLOCATIONS TO BE FILLED
+INPUT ADDRESS OF DEVICE CSR

sMESSAGE "CONTROL REGISTER ADORESS-*"

acuvm STRING TO OCTAL
sLOW LINIT
: HIGH LINIT
sLOCATIONS TO BE FILLED

1NUMBER OF LOCATIONS
1LS8 MASK

<1>

787

BHRE
con

1 3

iNUMBER OF LOCATIONS
i LS8 MASK

CODEML
MoV
INC

e
B

CZ0MG-CO

DHSSR, DHSLR
DHSLR

1SET_UP ADODRESS OF SILO
.snmmamum

INIFLG

+IF INITIALIZATION FLAG
+1S_CLEARED
+SET IV

BEGIN
INIFLG

1PROGRAM START

sCHECKX FOR PROGRAM START AT SELECTED ADDRESS

CZDHG-CO

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

000340
013752

000002

176462

005767
001004
005167
104401
000177

BEGIN:

177452

104403
013166
104405
000000
017500
012004

001
001
000410
012767

.BYTE
.BYTE
001400
010456

010450
013162
010404

SEQ 27

27-JUN-85 13:01:48 PAGE 19-2

010426

1%:

2%:

34:

MOV
MOV
BIT
BEQ
INSTR
MTSTPC
PARAM
0
17500
RETRN
1
1
BR
MOV
TST
BNE
COM
TYPE
JMP

9340,PS
@STACK,SP
fiUOI. «OSHR

sLOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK

;IF SWO1=1
1GET PC FOR PROGRAM START

; 4

sGET PC
sMESSAGE "TEST PC”
sCONVERT STRING TO OCTAL

2
@T1,RETRN
STFLG
3
STFLG
MR

SRETRN

sNORMAL START, TEST 1
sIF LOOPING, BYPASS TYPEOUT
sTYPE “R” TO INDICATE START
sSTART TESTING

: 3

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21
000000
000000
000001

LINE=0
XLINE=1.INE
BITX=1

000001

XBIT=BITX

000020

.REPT

POPOVER \LINE,\BITX
<NLIST
LINE=LINE.1
BITX=BITX+BITX
LIST
.ENDR

POPOVER \LINE,\BITX

001400

sRECEIVER PARITY LOGIC TEST ON LINE 0.
s TRANSMIT ONE CHARACTER TO THE RECEIVER
:WITH ODD PARITY SET,BREAK SET,HDX SET.
s THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD
001400
0C1400
001406
001414

012767
012767
012767

000340
000010
001540

176370
010376
010364

Ti:
¥ o

MOV

1% ,FREEZ)

MOV
MOV
MOV

®BIT11,80HSCR
;MASTER CLEAR INTERFACE
®0,R3
;SET UP LINE ¢
9044004130000, RS
sSET EXPECTED LINE NUMBER

001422

012767

001470

010360

001430
001436
001442

000002
012777
012703
012705

004000
000000
130000

010306

001446
001454
001462

012767
012777
012777

000377
000000
073563

010372
010262
010260

001470
001476
001504
001512
001520
001524
001526
001532
001534
001536
001536
001540

012777
012777
012777
012777
105777
100375
017701
020501
001401

177777
012046
000001
000001
010220

010256
010246
010246
010236

—

001542

104003
104200
000001
00000z

010214

\XN,10,44,1$

MOV
MOV
"‘1’!

#340,PS
210, ICOUNT
843 ,ESCAPE

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

sSET UP TO LOOP WITH DATA

XN=XN+1

MOV
MOV
MOV
1%:

MOV
MOV
MOV
MoV
2s:
1578
BPL
MOV
cHpP
BEQ
HLY
EMT
4%:
SCOPE
LINE=LINE~1
BITX=BITX+BITX

sVALID DATA FLAG,

#377,TDATA
0, 80HSCR
973563,80HLPR

sPARITY ERROR,.DATA OVERRUN,
sAND EXPECTED DATA
sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE O

;SELECT 8 BITS/CHAR,00D PARITY HDX,
19600 BAUD SPEED FOR LINE 0

¢-1,80H3C
sTRANSMIT 1 CHARACTER
OTDATA, 8DKBA
;ADDRESS OF TRANSMITTED DATA
@1,80HBCR
$+SET BREAK FOR LINE 0.
@1 ,8DHBAR
sSTART TRANSMITTER
@DHSCR ;WAIT FOR CHARACTER TO BE RECEIVED
2%
:
SDHNRC ,R1
sGET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
. +4
3
1DATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 1.

: 3

CZDHG-CO

MACRO V04.00

27-JUN-85

SEQ

13:01:48 PAGE 21-1

¢ 29

s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,HDX SET.
1 THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
:WITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AWD OVERRUN
:CHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD
001542
001542
001550
001556

012767
012767
012767

000340
000010
001702

176226
010234
010222

001564

012767

001632

010216

001572
001600
001604

000003
012777
012703
012705

000001

010144

T2:
JF NB

XN=XN+1

130400

\XN,10,44,1$

MOV
MOV
MOV

9340,PS
€10, ICOUNT
@44 ,ESCAPE

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

MOV

018 ,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
#1,R3
;SET UP LINE ¢
91+400+130000,RS
;SET EXPECTED LINE NUMBER

<1 d

; 3

sVALID DATA FLAG,

;sPARITY ERROR,DATA OVERRUN,

001610
0C1616
001624

012767
012777
012777

000377
000001
073563

010230
010120
010116

001632
001640
001646
001654
001662
001666
001670
001674
001676
001700
001700
001702

012777
012777
012777
012777
105777
100375
017701
020501

177777
012046

010114
010104
010104
010074

001704

010056

MOV

#377.TDATA

MOV

€73563 ,8DHLPR

MOV

1s:

2%:

010052

MOV
MOV
MOV
MOV

#-1,80HBC
STDATA ,SDHBA
#2,8DHBCR
42 ,8DHBAR

MOV

SDHENRC .R1

g{fl

001401

#1,8DHSCR

gflSCfl

RSiRl

sAND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED

sSELECT LINE 1

sSELECT 8 BITS/CHAR,ODD PARITY HDX,
:9600 BAUD SPEED FOR LINE 1

;sTRANSMIT 1 CHARACTER
sADDRESS OF TRANSMITTED DATA
sSET BREAK FOR LINE 1.
;START TRANSMITTER

sWAIT FOR CHARACTER TO BE RECEIVED
3

sGET RECEIVED CHARACTER

;COMPARE EXPECTED AND RECEIVED DATA

EMT

104003
104400
000002

;:DATA ERROR

43:
SCOPE
;CHECK FOR ITERATIONS,LOOP
LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

000004

sRECEIVER PARITY LOGIC TEST ON LINE 2.
s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,HDX SET.

sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER

——

sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
001704
001704
001712
001720

012767
012767
012767

000340
000010
002044

176064
010072
010060

001726

012767

001774

010054

\XN,10,48,1$

13:

MOV

#340,PS

;DISABLE ALL INTERRUPTS

MOV

944 ,ESCAPE

1SET UP TO ESCAPE TO NEXT TEST

MOV

#14 ,FREEZ1

MOV
<1

#10, ICOUNT

;SET UP FOR 10 ITERATIONS

:SET UP TO LOOP WITH DATA

: 3

CZDHG-CO

MACRO V04.00

001734
001742
001746

000004
012777
012703
012705

001752
01760
001766

012767
012777
012777

001774
002002
002010
002016

012777
012777
012777
012777
105777
100375
017701
020501
001401

002030
002032
002036
002042
002042
0C2044

002046

SEQ 30

27-JUN-85 13:01:48 PAGE 21-?

.ENDC

004000
000002
131000

010002

000377

010066
007756
007754

000002

073563

1777717
012046
000004
000004
007714

XN=XN+1

®8IT11,8DHSCR
;MASTER CLEAR INTERFACE
#2,R3
;SET UP LINE ¢

©#2+400+130000,RS

007752
007742
007742
007732

MOV
MOV
MOV

1s:

2$:

007710

104003
104400
000003

a3:

MOV
MOV
MOV
MOV
TSTB

BPL
MOV
CHP
BEQ
HLT
EMT

SCOPE

#377,TDATA

$SET EXPECTED LINE NUMBER
sVALID DATA FLAG,
sPARITY ERROR,DATA OVERRUN,
sAND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED

92,8DHSCR

$SELECT LINE 2

#-1,80HBC
#TDATA,8DHBA
44 ,8DHBCR
@4 ,80HBAR

19600 BAUD SPEED FOR LINE 2
s TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMITTED DATA
sSET BREAK FOR LINE 2.
;START TRANSMITTER

@73563,80HLPR

é.;HSCR

;SELECT 8 BITS/CHAR,ODD PARITY HDX,

sWAIT FOR CHARACTER TO BE RECEIVED
L

SDHNRC ,R1
;GET RECEIVED CHARACTER
RSiRI
;COMPARE EXPECTED AND RECEIVED DATA
.

3
3

sDATA ERROR

sCHECK FOR ITERATIONS,LOOP

LINE=LINE.1
S8ITX=BITX+BITX
POPOVER \LINE,\BITX

000010

sRECEIVER PARITY LOGIC TEST ON LINE 3.

s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,.BREAK SET,HDX SET.
;THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
002046
002062

012767
012767
012767

000340
000010
002206

175722
007730
007716

T4:
SRR
2

002070

012767

002076
002104
002110

000005
012777
012703
012705

002136

007712

007640

.ENDC

XN=XN+1

012767

012777
012777

000377
000003
073563

007724
007614
007612

002136
002144

012777
012777

177777
012046

007610
007600

9340,PS
910, ICOUNT

#44 ,ESCAPE

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

MOV

#14$,FREEZL

+SET UP TO LOOP MITH DATA

MOV

981711 ,80HSCR

<i$>

MOV
MOV

131400

002114
002122
002130

\XN, 10,44,1%

MOV
MOV
!flig

18;

#3,R3

;MASTER CLEAR INTERFACE

;SET UP LINE ¢

93+400+130000,RS

+SET EXPECTED LINE NUMBER

:VALID DATA FLAG.
:PARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA

#377,TDATA

+ACTUAL DATA TO BE TRANSMITTED

973563,80HLPR

;SELECT 8 BITS/CHAR,O0DD PARITY HOX,
19600 BAUD SPEED FOR LINE 3
s TRANSMIT 1 CHARACTER
1ADDRESS OF TRANSMITTED DATA

MOV
MoV
MOV

#3,80HSCR

MOV
MOV

¢-1,80HBC
4TDATA,SDHBA

+SELECT LINE 3

: 3

CZDHG-CO

002152
002160
002166
002172
002174
002200
002202
002204
002204
002206

002210

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-3
012777
012777
105777

100375
017701
020501
001401

000010
000010

007552

007600
007570

MOV
MOV

2%:

TST8

BPL
MOV
cMP
BEQ
HLT
EMT
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

007546

104003
104400
000004
000020

10, 8DHBCR
10, 8DHBAR
8DHSCR

$SET BREAK FOR LINE 3.
sSTART TRANSMITTER

;WAIT FOR CHARACTER 70 BE RECEIVED

24
'
8DHNRC ,R1
;GET RECEIVED CHARACTER
RS,R1
;COMPARE EXPECTED AND RECEIVED DATA
.+4
3
:DATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

:RECEIVER PARITY LOGIC TEST ON LINE 4.
: TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,HDX SET.

:THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
;WITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
062210
002210
002216
002224

012767
012767
012767

000340
000010
002350

175560
007566
007554

\XN,10,.45,14

T5:
o

MOV
MOV
!'ix

MOV

#1$,FREEZL

MOV
MOV
MOV

#8IT11,80HSCR
;MASTER CLEAR INTERFACE
®4,R3
;SET UP LINE ¢
#4+400+130000,RS
:SET EXPECTED LINE NUMBER

MOV
MOV
MOV

9377, TDATA
94 ,9DHSCR
#73563,80HLPR

002300

007550

012703
012705

004000
000004
132000

007476

002256
002264
002272

012767
012777
012777

000377
000004
073563

007562
007452
007450

002300
002306
002314
002322

012777
012777
012777
012777
105777
100375
017701
020501
001401

177777
012046
000020
000020
007410

007446
007436
007436
007426

002232

002240
002246
002252

002334
002336

002342
002344
002346

002350

002352

012767

000006
012777

104003
104400
000005
000040

007404

#340,PS
#10, ICOUNT
844 ,ESCAPE

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

<1$>

XN=XN+1

1$:

MOV
MOV
MOV
Moy
2¢:
15718
BPL
MOV
CHP
BEQ
HLY
EMT
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

:VALID DATA FLAG,
sPARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 4
;SELECT 8 BITS/CHAR,O0DD PARITY KDX,
19600 BAUD SPEED FOR LINE 4

#-1,80HBC
s TRANSMIT 1 CHARACTER
OTDATA,SDHBA
tADDRESS OF TRANSMITTED DATA
920, 8DHBCR
1SET BREAK FOR LINE 4.
420, BDHBAR
sSTART TRANSMITTER
SDHSCR :WAIT FOR CHARACTER TO BE RECEIVED
2
;
SOHNRC ,R1
sGET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
.*4
3
:DATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

: 3

CZDHG-CO

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-4

sRECEIVER PARITY LOGIC TEST
ON LINE 5.

s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,HDX SET.
s THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD
002352
002352
002360
002366

012767
012767
012767

000340
000010
002512

175416
007424
007412

T6:

002374

012767

002442

007406

002402
002410
002414

000007
012777
012703
012705

004000
000005
132400

007334

012767
012777
012777

000377
000005
073563

007420
007310
007306

012777
012777
012777

177777
012046
000040

007304
007274
007274

012777
105777
100375
017701
020501
001401

000040
007246

007264

007242

104003
104400
000006
000100

\XN,10,4%,1$

> @

MOV
MOV
lfli\‘l

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

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

MOV

#14§,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
#5,R3
sSET UP LINE ¢
#5+400+130000,RS
;SET EXPECTED LINE NUMBER

MOV
MOV
MOV

#377,TDATA
#5,8DHSCR
#73563 ,8DHLPR

MOV
MOV
MOV

#-1,80H8C
#TDATA ,SDHBA
#40, 8DHBCR

XN=XN+1

1%:

<1$>

MOV
TST8
BPL
MOV
cHP
BEQ
HLT
et
43
SCOPE
LINE=LINE+1
BITX=BITX+BITX

2%:

sVALID DATA FLAG,
sPARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED
;SELECT LINE S5
sSELECT 8 BITS/CHAR,ODD PARITY HDX,
9600 BAUD SPEED FOR LINE S
s TRANSMIT 1 CHARACTER

;ADDRESS OF TRANSMITTED DATA
sSET BREAK FOR LINE S.
sSTART TRANSMITTER

#40, 8DHBAR
@DHSCR ;WAIT FOR CHARACTER TO BE RECEIVED
2%
3
SDHNRC ,R1
;:GET RECEIVED CHARACTER
RS,.R1
;COMPARE EXPECTED AND RECEIVED DATA
.+4
3
;DATA ERROR
3
sCHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 6.
s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,HDX SET.

s THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD

002514

002530

012767
012767
012767

000340
000010
002654

175254
007262
007250

T7:
o i
3

\XN,10,44,1¢

MOV
MOV
'fli!

<i$>

#340,PS
910, ICOUNT
944 ,ESCAPE

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

; 3

MACRO V04.00

CZDHG-CO

002536

012767

002544
002552
002556

012777
012703
012705

002562
002570
002576

012767
012777
012777

002604
002612

012777
012777

002620
002626
002634
002640
002642
002646
002650

012777
012777
105777
100375
017701
020501
001401

002652
002654

104003
104400
000007
002200

007244

000010

007172

—
XN=XN+1

133000

000377

073563
177777
012046
000100
000100
007104

SEQ 33

27-JUN-85 13:01:48 PAGE 21-5

007256
007146
007144

007142
007132
007132
007122

1%:

28:

007100

MOV

#1% ,FREEZL

MOV
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#,.R3
;SET UP LINE ¢
26+400+130000,RS
sSET EXPECTED LINE NUMBER

MOV
MOV
MOV

#377,TDATA
96 ,8DHSCR
#73563,8DHLPR

sACTUAL DATA TO BE TRANSMITTED
;SELECT LINE 6
;SELECT 8 BITS/CHAR,ODD PARITY HDX,

MOV
MOV
MOV
MOV

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

;sTRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMITTED DATA
:SET BREAK FOR LINE 6.
;START TRANSMITTER

2{0

gflSCR

MOV

SDHNRC ,R1

HLT
EMT

3
3

RS‘RI

:SET UP TO LOOP WITH DATA

;VALID DATA FLAG,
;PARITY ERROR,DATA OVERRUN,
:AND EXPECTED DATA

9600 BAUD SPEED FOR LINE 6

;WAIT FOR CHARACTER TO BE RECEIVED
:

;GET RECEIVED CHARACTER

;COMPARE EXPECTED AND RECEIVED DATA

«®

4%:

SCOPE

;DATA ERROR

;CHECK FOR ITERATIONS,LOOP

LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 7.

sTRANSMIT ONE CHARACTER TO THE RECEIVER

sWITH ODD PARITY SET,BREAK SET,HDX SET.
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY

sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
002656
002656
002664
002672

012767
012767
012767

000340
000010
003016

175112
007120
007106

002700

012767

002746

007102

"
002706
002714

000011
012777
012703

004000

007030

002720

012767
012777
012777

000377
000007
073563

007114

002746 012777

17mmn

007000

002724
002732
002740

012705

000007
133400

18
T10:
IF N8

.mc

XN=XN+1

007002
18:

\XN,10,4%,1$

MOV
MOV

MOV

#340,PS
#10, ICOUNT
944 ,ESCAPE

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

MOV

#14 ,FREEZL

$SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#8IT11,80HSCR
;MASTER CLEAR INTERFACE
#7,R3
;SET UP LINE ¢
#7+400+130000,R5
+SET EXPECTED LINE NUMBER

<1$>

sVALID DATA FLAG,

MOV
MOV
MOV

#377,TDATA
97,80HSCR
973563, 8DHLPR

MOV

#-1,80HBC

sPARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 7
sSELECT 8 BITS/CHAR,O0DD PARITY HDX,
$9600 BAUD SPEED FOR LINE 7
s TRANSMIT 1 CHARACTER

;' 3

CZOHG-CO
002754
002762
002770
002776
003002
003004
003010
(93012
003014
003014

003016

003020

MACRO V04.00
012777
012777
012777
105777
100375
017701
020501
001401

012046
000200
000200
006742

SEQ 34

27-JUN-85 13:01:48 PAGE 21-6
006770
006770
006760

24:

006736

104003
104400

4%:

000010
000400

MOV
MOV
MOV
1578
BPL
MOV
CHP
BEQ
HLY
EMT

SCOPE

STDATA,8DHBA
sADDRESS OF TRANSMITTED DATA
$200, 8DHBCR
:SET BREAK FOR LINE 7.
4200, 8DHBAR
;START TRANSMITTER
8DHSCR ;WAIT FOR CHARACTER TO BE RECEIVED
2%
3
S8DHNRC ,R1
;GET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
.+4
3
sDATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 10.
s TRANSMIT ONE CHARACTER TO THE RECEIVER
;sWITH ODD PARITY SET,BREAK SET,HDX SET.
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD

003620
003020
003026
003034

012767
012767
012767

000340
000010
003160

174750
006756
006744

003042

012767

003110

006740

003050
003056
003062

000012
012777
012703
012705

004000
000010
134000

006666

003066
003074
003102

012767
012777
012777

000377
000010
073563

006752
006642
006640

003110
003116
003124
003132

012777
012777
012777
012777

177777
012046
000400
000400

006636
006626
006626
006616

003140
003144
003146
003152

003154
003156
003156
003160
003162

105777
100375
017701
020501
001401

104003
104400
000011
001000

006600
006574

1S
Tii:
»

o m

XN=XN+1

1$:

24:
‘

\XN,10,45,1¢
MOV
#340,PS
MOV
#10, ICOUNT
’.ig
#44% ,ESCAPE

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

MOV

#1$ ,FREEZ1

$SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#8IT11,8D0HSCR
;MASTER CLEAR INTERFACE
#10,R3 ;SET UP LINE ¢
9104400+ 130000,RS
:SET EXPECTED LINE NUMBER

<1%$>

:VALID DATA FLAG,

;PARITY ERROR,DATA OVERRUN,
sAND EXPECTED DATA

MOV
MoV
MOV

4377, TDATA
#10, 8DHSCR
973563 ,8DHLPR

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 10
;SELECT 8 BITS/CHAR,O0DD PARITY HDX,

MOV
MOV
MOV
MOV

#-1,80HBC
#TDATA, SDHBA
#400, 8DHBCR
9400, 8DHBAR

s TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMITTED DATA
;SET BREAK FOR LINE 10.
sSTART TRANSMITTER

1578
BPL
MOV
cHP

: 3

+9600 BAUD SPEED FOR LINE 10

SDHSCR ;WAIT FOR CHARACTER TO BE RECEIVED
24
:
SDHNRC ,R1
$GET RECEIVED CHARACTER
RS,R1
;COMPARE EXPECTED AND RECEIVED DATA

BEQ
.*4
HLT
3
;DATA ERROR
EMT
3
43%:
SCOPE
;CHECK FOR ITERATIONS,LOOP
LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

= oo o

“—d

CZDHG-CO

MACRO V04.00

SEQ 35

27-JUN-85 13:01:48 PAGE 21-7

;RECEIVER PARITY LOGIC TEST ON LINE 11.
; TRANSMIT ONE CHARACTER TO THE RECEIVER
+WITH ODD PARITY SET,BREAK SET,HDX SET.

:THE RECEIVER WILL RECEIVE AN ALL 0’S CHARACTER

:WITH EVEN PARITY AND THEREBY
:CAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
003162
003162
003170
003176

012767
012767
012767

000340
000010
003322

174606

006614
006602

Ti2:
.

003252

006576

003204

012767

003212
003220
003224

000013
012777
012703
012705

000011
134400

003230
003236
003244

012767
012777
012777

000377
000011
073563

006610

003252
003260
003266
003274
003302
003306
003310
003314
003316

012777
012777
012777
012777
105777
100375
017701
020501
001401

1771777
012046

006474

003320
003322

104003
104400

003324

001000
001000
006436

006524

#340,PS
210, ICOUNT
44 ,ESCAPE

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

MOV

14,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#BIT11,8D0HSCR
;MASTER CLEAR INTERFACE
#11,R3
;;SET UP LINE ¢
911+400+130000,R5
:SET _EXPECTED LINE NUMBER

MOV
MOV

#377,TDATA
#11,8DHSCR

973563,.8DHLPR

sACTUAL DATA TO BE TRANSMITTED
+SELECT LINE 11
;SELECT 8 BITS/CHAR,ODD PARITY HDX,

MOV
MOV
MOV
MOV

#-1,680H8C
#TDATA , S8DHBA
#1000, BOHBCR
#1000, SDHBAR

sTRANSMIT 1 CHARACTER
sADDRESS OF TRANSMITTED DATA
sSET BREAK FOR LINE 11.
sSTART TRANSMITTER

l?!

<1$>

XN=XN+1

MOV

006476

006454

\XN,10,4%,14

MOV
MOV

1s:

2¢:

006432

2m.

MoV

SDHNRC ,R1

RSiRI

sVALID DATA FLAG,
sPARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA

+9600 BAUD SPEED FOR LINE 11

sMAIT FOR CHARACTER TO BE RECEIVED
i

sGET RECEIVED CHARACTER

;COMPARE EXPECTED AND RECEIVED DATA

- ¥

4%:
SCOPE
LINE=LINE+1

000012
002000

sDATA ERROR

;CHECK FOR ITERATIONS,LOOP

BITX=BITX+BITX
POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 12.
s TRANSHIT ONE CHARACTER TO THE RECEIVER
sMITH ODD PARITY SET,BREAK SET,HOX SET.
sTHE RECEIVER MILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD

003324
003324
003332
003340

012767
012767
012767

000340
000010
003464

174444
006452
006440

T8
T13:

\XN,10,44,14

MOV
MOV
MOV

#340,PS
#10, ICOUNT
#44 ,ESCAPE

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

i 3

CZDHG-CO

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-8

003346

012767

003414

006434

003354
003362
003366

000014
012777
012703
012705

004000
000012
135000

006362

003372
003400
003406

012767
012777
012777

000377
000012
073563

006446
006336
006334

003414
003422
003430
003436
003444
003450
003452
003456
003460
003462

012777
012777
012777
012777
105777
100375
017701
020501
001401

177777
012046
002000
002000

006332
006322
006322
006312

003462

003464
003466

006274

006270

104003
104400
000013
004000

OF NB

—

XN=XN+1

<18

MOV

01¢ ,FREEZ1

MOV
MOV
MOV

#8IT11,80HSCR
;MASTER CLEAR INTERFACE
€12,R3
;SET UP LINE ¢
#124400+130000,R5
sSET EXPECTED LINE NUMBER

MOV
MOV
MOV

€377, TDATA
912, 8DHSCR
©@73563,80HLPR

1$:

MOV
MOV
MOV
MOV
2¢:
1578
BPL
MOV
CcHP
BEQ
HLY
EMT
4%:
SCOPE
LINE=LINE.1
BITX=BITX+BITX

+SET UP TO LOOP WITH DATA

; 3

sVALID DATA FLAG,
+PARITY ERROR,DATA OVERRUN,
sAND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 12
;SELECT 8 BITS/CHAR,O0DD PARITY HDX,
19600 BAUD SPEED FOR LINE 12
s TRANSMIT 1 CHARACTER
+ADDRESS OF TRANSHITTED DATA
+SET BREAK FOR LINE 12.
sSTART TRANSHITTER

¢-1,80HBC
@TDATA, SDHBA
92000, 8DHBCR
#2000, BDHBAR
SDHSCR ;WAIT FOR CHARACTER TO BE RECEIVED
2
:
SDHNRC ,R1
:GET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
.*4
3
sDATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 13.

sTRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,MDX SET.
:THE RECEIVER MILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
003466
003466
003474
003502

003510
003516
003524
003530

003534
003542
003550

012767

000340

174302

012767

003626

006276

012767

003556

006272

012777
012703
012705

004000
000013
135400

006220

012767
012777
012777

000377
000013
073563

006304
006174
006172

012767 000010 006310

000015

\XN,10,44,14

Ti4:

MoV

"1’!

;

oie

XN=XN+1

MOV
i

#340,.PS

sDISABLE ALL INTERRUPTS

849 ,ESCAPE

$SET UP TO ESCAPE TO NEXT TEST

910, ICOUNT

:SET UP FOR 10 ITERATIONS

MOV

#19,FREEZL

MOV
MOV
MOV

#BIT11,8DHSCR
;MASTER CLEAR INTERFACE
#13,R3 ;SET UP LINE ¢
#134400+130000,RS
1SET EXPECTED LINE NUMBER

MOV
MoV
MOV

#377,TDATA
13, SDHSCR

973563 ,8PHLPR

:SET UP TO LOOP MITH DATA

tVALID DATA FLAG,
1PARITY ERROR.DATA OVERRUN,
3AND EXPECTED DATA
sACTUAL DATA TO BE TRANSMITTED

+SELECT LINE 13

;SELECT 8 BITS/CHAR,ODD PARITY HDX,
19600 BAUD SPEED FOR LINE 13

o “ — eS Se

: 3

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-9
012777
012777
012777
012777
105777

100375
017701
020501
001401

177777
012046
004000
004000
006132

006170
006160
006160
006150

14:

24:

MOV
MOV
MOV
MOV

TST8

BPL
MOV
CMP
BEQ
HLT
EMT
43:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

006126

104003

104400
000014
010000

¢-1,80H8C
#TDATA, SDHBA
#4000, BDHBCR
€4000, BOHBAR
GDHSCR

1 TRANSMIT 1 CHARACTER
+ADDRESS OF TRANSMITTED DATA
1SET BREAK FOR LINE 13.
i START TRANSMITTER

;WAIT FOR CHARACTER TO BE RECEIVED

24
]
SOHNRC ,R1
1GET RECEIVED CHARACTER
RS,R1
;COMPARE EXPECTED AND RECEIVED DATA
. +4
3
1DATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

+RECEIVER PARITY LOGIC TEST ON LINE 14,
s TRANSMIT ONE CHARACTER TO THE RECEIVER
tMITH ODD PARITY SET,BREAX SET,HDX SET.
1THE RECEIVER MILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAWD
15

012767 000340 174140 TiS:

000016
012777

012703

004000
000014

006056

iu-xu':.z

012705 136000
012767 000377 006142
000014 006032
012777 073563 006030
012777
012777

177777

006026

012777 012046 006016

14:

012777 010000 006016
012777

010000

017701

005764

i%g 005770

020501
001401
104003
104400
000015
020000

006006

2s:

I 3

012767 003720 006130

MOV
YIS m’

§§E§3§!§§§§§ ¥

012767 000010 006146
012767 003770 006134

\XN, 10,44, 19

MOV~

4
LINE=LINE+1
BITX=BITX+BITX

@340,PS

;DISABLE ALL INTERRUPTS

019, FREEZL

+SET UP TO LOOP MITH DATA

€10, TCOUNT
@434, ESCAPE
#8IT11,00MSCR
014,83

+SET UP FOR 10 ITERATIONS
sSET UP TO ESCAPE TO NEXT TEST
;MASTER CLEAR INTERFACE

SET UP LINE ¢

#144400+130000,RS
0377, TOATA
014, SONSCR
#73563,80MLPR

+SET EXPECTED LINE NUMBER
:VALID DATA FLAG
: nm ERROR,DATA OVERRUN.
sACTUAL
to BE TRANSMITTED
+SELECT
;SELECT o um.m PARITY HOX,

0-1,80M8C

.mt 1 CHARAC

m&u.g&

910000,

19600 BAUD SPEED FOR LINE 14

;

OF TRANSMITTED DATA

1SET BREAX FOR LINE 14.

m.m ’dnm TRANSMITTER

JMAIT FOR CHARACTER TO BE RECEIVED

GDHNRC ,R1

1GET RECEIVED CHARACTER

RS,R1 jCOMPARE EXPECTED AND RECEIVED DATA
o8
3
1DATA ERROR
3
1CHECK FOR ITERATIONS,LOOP

: 3

CZDHG-CO

MACRO V04.00

27-JUN-85 13:01:48 PAGE 21-10

POPOVER \LINE,\BITX

003772

+RECEIVER PARITY LOGIC TEST ON LINF 15.

s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET,BREAK SET,HDX SET.
1 THE RECEIVER MILL RECEIVE AN ALL 0'S CHARACTER
+WITH EVEN PARITY AND THEREBY

sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
003772
003772

012767
012767
012767

000340
000010
004132

173776
006004
005772

Ti6:
»
3

005766

004014

012767

004030
004034

000017
012777
012703
012705

000015
136400

012767
012777
012777

000377
000015
073563

012777
012777
012777
012777

177777
012046

004076
004104
004112
004116
004120
004126
004130
004! 30
004132
004134

005714

105777
100375
017701
020501

#340,PS
910, ICOUNT
44 ,ESCAPE

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

MOV

€14 ,FREEZL

sSET UP TO LOOP WITH DATA

MOV
MOV
MOV

#81I711,80HSCR
sMASTER CLEAR INTERFACE
#15.,R3 ;SET UP LINE ¢
#15+400+130000,RS
sSET EXPECTED LINE NUMBER

MOV

#377,TDATA

sACTUAL DIT! T0 BE TRANSMITTED

#73563,80HLPR

;SELECT 8 BITS/CHAR,O0DD PARITY HDX,

<id

S
XN=XN+1

sVALID DATA FLAG,
sPARITY ERROR, MTA OVERRUN,

MOV

915, 8DHSCR

18:

MOV
MOV
a

#-1,60HBC
STDATA , 8DHBA
#20000 , 80HBCR

24:

2{.

zm.

MOV

GDHNRC ,R1

005670

005654
005654

\XN,10,44,1$

MOV
MOV
l?!

MOV

001401

lsil

sAND EXPECTED DATA

sSELECT LINE 1S

39600 BAUD SPEED FOR LINE 1S

sTRANSMIT 1 CHARACTER
sADDRESS OF TRANSMITTED DATA
'S*T‘MT
BREAX FOR LINE 1S.
]

sHAIT FOR CHARACTER TO BE RECEIVED
]

sGET RECEIVED

sCOMPARE EXPECTED

RECEIVED DATA

104003
104400
000016
040000

SCOPE

;CHECK FOR ITERATIONS,LOOP

LINE=LINE-1

BITX=BITX+BITX

sDATA ERROR

POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC

aMl’ DNE mm

TEST un.neu.

sCAUSE A PARITY ERROR AND OVERRUN

$CHARACTER LENGTH: 8 BITS

OLM SPEED: 9600 BAUD

004134
004134
004142

012767
012767

000340 173634 Ti7:
000010

005642

\XN, 10,48, 1¢

MOV
MOV

9340 PS

10, ICOUNT

1DISABLE ALL INTERRUPTS
1SET UP FOR 10 ITERATIONS

: 3

CZDHG-CO
004150

012767

004274

005630

004156

012767

004224

005624

004164
004172
004176

000020
012777
012703
012705

004000
000016
137000

005552

004202
004210

012767
012777
012777

000377
000016

073563

005636
005526

004224

012777

177777

005522

004240
004246
004254
004260
004262
004266
004270
004272
004272

012777
012777
105777
100375
017701
020501
001401

040000
040000
005464

005512
005502

004216

i
i

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-11

004232

004274

004276

012777

= &

..i!

#44 ,ESCAPE

+SET UP TO ESCAPE TO NEXT TEST

nae

MOV

014 ,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#BIT11,80HSCR
;MASTER CLEAR INTERFACE
#16,R3 ;SET UP LINE ¢
9164400+ 130000,RS
+SET EXPECTED LINE NUMBER

MOV
MOV

#377,TDATA
16, 8DHSCR

MOV

#-1,80H8C

XN=XN+1

005524

012046 005512

104400

1%:

2¢:

44:

000017
100000

<1$>

MOV ©

005460

104003

MOV

MOV
MOV
1578
BPL
MOV
cHp
BEQ
WY
ENT

SCOPE

#73563,80HLPR

- OTDATA,SDHBA

1 3

1VALID DATA FLAG,
1PARITY ERROR,DATA OVERRUN,
3AND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED
+SELECT LINE 16

;SELECT 8 BITS/CHAR,0DD PARITY HOX,

19600 BAUD SPEED FOR LINE 16

sTRANSMIT 1 CHARACTER

sADDRESS OF TRANSMITTED DATA

#40000,80HBCR
;SET BREAX FOR LINE 16.
#40000,80MBAR
;START TRANSMITTER
SDHSCR ;MAIT FOR CHARACTER TO BE RECEIVED
24
'
i
SDHNRC ,R1
1GET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
.+4
3
1DATA ERROR
3
;CHECK FOR ITERATIONS,LOOP

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

sRECEIVER PARITY LOGIC TEST ON LINE 17.
sTRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH ODD PARITY SET.BREAK SET,MDX SET.
sTHE RECEIVER MILL RECEIVE AN ALL 0'S CHARACTER

sHITH EVEN PARITY AND THEREBY
tCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUWD

004276

\XN,10,44,1¢

004276 012767 000340 173472 T20:

MoV

004312

m’

004304

012767

000010

005500

004320

012767

004366

005462

004326
004334
004340

004344
004352
004360

012767

000021

004436

004000

012705

137400

012767
012777
012777

000377
073563

005466

o
ENDC

XN=XN+1

0&‘0.”

1DISABLE ALL INTERRUPTS

844 ,ESCAPE

MoV

910, ICOUNT

MoV

#14,FREEZ}

nov
v
nov

#174400.130000,RS

Hov
nov
nov

1SET UP FOR 10 ITERATIONS

UP TO ESCAPE TO NEXT TEST

1SET UP TO LOOP MITH DATA

LINE NUMBER

1 3

CZOHG-CO

004366
004374
004410
004416
004422

MACRO V04.00

012777
012777
012777
012777
105777

005322

017701

005316

100375

004430
004432

020501

004434
004436

104003
104400
000020
000000

004434

177777
012046
100000
100000

SEQ 40

27-JUN-85 13:01:48 PAGE 21-12

005360
005350
005350
005340

1$:

2%:

MOV
MOV
MOV
MOV

1ST8

8DHSCR

MOV

SOHNRC ,R1

BPL

cHP

001401

#-1,80HBC
OTDATA ,8DHBA
2100000,80HBCR
#100000,80HBAR

R5,R1

19600 BAUD SPEED FOR LINE 17

s TRANSMIT 1 CHARACTER
1ADDRESS OF TRANSMITTED DATA
;SET BREAK FOR LINE 17.
;START TRANSMITTER

;WAIT FOR CHARACTER 7O BE RECEIVED

1GET RECEIVED CHARACTER

;COMPARE EXPECTED AND RECEIVED DATA

BEQ
Y|
HLT
3
;DATA ERROR
ot
3
43:
SCOPE
;CHNECK FOR ITERATIONS,LOOP
LINE=LINE+1
BITX=BITX+BITX
SUPERCALIFRIGILISTICEXPEHALIDOSIS
27363,000,8

sMULTI-LINE PARITY DATA TEST
;TRANSMIT A BINARY COUNT WITH ODD PARITY
sPATTERN ON ALL LINES.
sSILO ALARM LEVEL SET T0 O
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
sIN INTERRUPT MODE.
s TRANSMITTER INTERRUPT WILL BE DISABLED
;LINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 8 + PARITY

012767
012767

012767

000340
000010

004706

173330
005336

005324

TS \XN,10,11¢$

T21:
;

o
e

000022
012777
012700
005001

004000
000020

004476
004502
004506

012702
012703

000200
000001

012050

005236

1; F

004514

012777

177400

005232

004470
004474

012777

005254

XN=XN+1

IF
.ENDC

.ENDC

—

IF
bt

004522

012777

027363

004530

105061

012450

005220

MOV
MOV

MOV

#340,PS
#10, ICOUNT
9118 ,ESCAPE

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

MOV

#,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MOV
CLR

#BIT11,8DHSCR
#16. .RO
R1

sMASTER CLEAR INTERFACE
sSET UP TO START 16. LINES
sCOUNT AND BUS ADDRESS MEMORIES

Hov
MOV

#200,R2
#1,R3

sSET UP TO LOAD HIGH BYTE
sOF EXPECTED DATA

MOV

#-400,80HBC

IDN

:Tgf.MA

7.8

sAND RECEIVED DATA STORAGE
:LOAD BUSS ADDRESS

;LOAD BYTE COUNT

MOV

#-200,80HBC

IDN

6.8

#-100,80HBC

;LOAD BYTE COUNT

IDN
MOV

5.8
#-40,80HBC

;:LOAD BYTE COUNT

MOV

427363 ,8DHLPR

+SET LINE SPEED AND

CLRB

RBUF(R1)

;CLEAR NEXT RECEIVED CHARACTER

MOV

sLOAD BYTE COUNT

sCHARACTER LENGTH 8 + ODD PARITY

: 3

MACRO V04.00

110263
005277

005202
062701
062703
0053¢0
001352
012777
012777
012777
012777
005067
000167

012450
005200

MOV
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV
CLR
JHP

000002
000002
004622
000240
000100
177777
173160
000076

SEQ 41

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

005176
005172
005140
005144

R2,RBUF(R3)
S8DHSCR

R2
92,R1
02,R3
RO
14

963, BDHRVEC
9240, 8DHRL VL
2100,8DHSCR
©-1,80HBAR
PS

124

sLOAD HIGH BYTE
sADVANCE TO NEXT LINE
sUPDATE POINTER TO
sLOW AND IGH BYTE OF
sNEXT EXPECTED CHARACTER
sCONTINUE IF ALL LINES
;NOT SET UP
sSET UP POINTER FOR
sRECEIVER INTERRUPT
sENABLE RECEIVER INTERRUPT
sSET ALL BAR BITS
;ENABLE INTERRUPTS
;GO TO TRANSMITTER WAITING ROUTINE

;RECEIVER INTERRUPT SERVICE ROUTINE
:CHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS
sVERIFY THAT RECEIVED DATA IS CORRECT
:CHECK FOR END OF PASS

{ggzg

005116

032777

040000

001401

104002
017701
010102
000302
042702

004670
004674
004674
004676
004702
004704
004704
004706
004710
004716

005106

005100

012450

104003
105262
000002

012450

7%:

wusm’CR

;IF CHARACTER AVAILABLE NOT SET, ERROR

BIT

240000, 30HSCR

:IF SILO OVERRUN SET, ERROR

HLT

:SILO OVERRUN, ERROR

10%:

005026

11%:

EMT
MOV
MOV
SWAB

2
SOHNRC.R1
R1,R2
R2

MOV
ASL
CHP
BEQ
MOV
HLY
EMY
INCB
RTI

R2,R3
R2
RBUF(R2),R1
.+10
RBUF (R2),RS
3
3
RBUF (R2)

:SAVE LINE NUMBER
sUSE LINE NUMBER AS OFFSET
sCOMPARE EXPECTED AND RECEIVED DATA

EMT
POP2SP
MOV
BR

sCHARACTER AVAILABLE NOT SET. ERROR

BIC

012450

004000

;‘S’Ifl
BEQ

177760

010203
006302
026201
001403
016205

104001
022626
012777
000411

6$:

#177760,R2

#8IT11,80HSCR
138

;READ CHARACTER FROM SILO
sEXTRACT LINE NUMBER

sGET EXPECTED DATA
sDATA ERROR

sUPDATE EXPECTED CHARACTER
s CONTINUVE
sRESTORE STACK
sMASTER CLEAR INTERFACE
sRESTART TEST

sWAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS HAVE CLEARED,
sWAIT FOR SILO TO EMPTY

sWHEN SILO IS EMPTY, SCOPE ON TEST

004720
004724
004726
004732
004734
004742

ggg 005032
105777 005032

123:

001375
012767 000340 173034
1084G0
13:

;{2

no‘cm

i{MAIT FOR ALL BAR BITS TO CLEAR

1STE

GDHSLR

sWAIT FOR SILO 10 EMPTY

BNE
MOV
SCOPE

8
#340,PS ;PREVENT INTERRUPTS
;CHECK FOR ITERATIONS, LOOP

CZDHG-CO

MACRO V04.00

SEQ 42

27-JUN-85 13:01:48 PAGE 21-14

15 004744

SUPERCALIFRIGILISTICEXPEHALIDOSIS

27323 ,EVEN,8

sMULTI-LINE PARITY DATA TEST
s TRANSMIT A BINARY COUNT WITH EVEN PARITY

sPATTERN ON ALL LINES.

:SILO ALARM LEVEL SET 70 O
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
sIN INTERRUPT MODE.
s TRANSMITTER INTERRUPT WILL BE DISABLED
:LINE SPEED: 2400 BAUD
:CHARACTER LENGTH: 8 + PARITY

004744
004744
004752
004760

012767
012767
012767

000340
000010
005212

173024
005032
005020

TS \XN,10,11$

T22:

o f
2

004766
004774
005000

000023
012777
012700
005001

.ENDC

000020

004750

005006
005012

012702
012703
012777

000200
000001
012050

004732

005020

012777

177400

004726

005002

XN=XN+1

18:
JIF
.ENDC

JIF

.ENDC

JIF
e

005026

012777

027323

005034
005040
005044
005050

105061

012450
012450
004674

005056
005062
005064
005066
005074
005102
005110
005116
005122

110263

005277
005202
062701
062703
005300
001352
012777
012777
012777
012777
005067
000167

004714

000002
000002

005126
000240
000100
177777
172654
000076

004672

004634

MOV
MOV
MOV

#340,PS
€10, ICOUNT
0118 ,ESCAPE

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

MOV

@,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV
CLR

#8IT11,8DHSCR
€16. ,RO
R1

;MASTER CLEAR INTERFACE
sSET UP TO START 16. LINES
;COUNT AND BUS ADDRESS MEMORIES

MOV
MOV
MOV
IDN
MOV

#200,R2
#1,R3
#TBUF , 8DHBA
8.8
#-400,80HBC

:SET UP TO LOAD HIGH BYTE
;OF EXPECTED DATA
;LOAD BUSS ADDRESS

IDN
MOV

7.8
#-200,80HBC

:LOAD BYTE COUNT

IDN
MOV

6.8
€-100,90H8C

;:LOAD BYTE COUNT

IDN
MOV

5.8
#-40,80HBC

sLOAD BYTE COUNT

MOV

027323 ,8DHLPR

:SET LINE SPEED AND

CLRB
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV

RBUF(R1)
R2,RBUF(R3)
S0HSCR
R2
#2.,R1
#2,R3
RO
1s
964, 9DHRVEC
9240, 9DHRL VL
9100, 8DHSCR
©-1,80HBAR

sCLEAR NEXT RECEIVED CHARACTER
:LOAD HIGH BYTE
sADVANCE TO NEXT LINE
;UPDATE POINTER TO
:LOW AND HIGH BYTE OF
+NEXT EXPECTED CHARACTER
sCONTINUE IF ALL LINES
:NOT SET UP
1SET UP POINTER FOR
sRECEIVER INTERRUPT
:ENABLE RECEIVER INTERRUPT
:SET ALL BAR BITS

JHP

123

;GO TO TRANSMITTER WAITING ROUTINE

CLR

sAND RECEIVED DATA STORAGE

sLOAD BYTE COUNT

sCHARACTER LENGTH 8 + EVEN PARITY

1ENABLE INTERRUPTS

sRECEIVER INTERRUPT SERVICE ROUTINE

; 3

CZ0HG-CO

MACRO V04.00

SEQ 43

27-JUN-85 13:01:48 PAGE 21-15

;CHECK FOR RECEIVER DONE AND NO ERRORS

+CHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS
:VERIFY THAT RECEIVED DATA IS CORRECT
:CHECK FOR END OF PASS
005126
005132
005134
005142
005144
005144
005146
005152
005154
005156
005162
005164
005166
005172
005174
005200
005200

0C5206
005210
005210
005212
005214
005222

105777
100026
032777
001401

040000

012450

104003
105262

012450

104001
022626
012777
000411

004602

;gza

ggr:scn

:IF CHARACTER AVAILABLE NOT SET, ERROR

#40000, BOHSCR

;IF SILO OVERRUN SET, ERROR

104002
017701
010102
000302
042702
010203
006302
026201
001403
016205

000002 -

68:

004612

004574

;SILO OVERRUN, ERROR

MOV
MOV

SDHNRC ,R1
R1,R2

sREAD CHARACTER FROM SILO
:EXTRACT LINE NUMBER

g?;

R2,R3
R2

Re%(aa.m

sSAVE LINE NUMBER
;USE LINE NUMBER AS OFFSET

MOV

RBUF(R2).RS

:GET EXPECTED DATA

INCB
RTI

RBUF(R2)

;UPDATE EXPECTED CHARACTER
s COMTINUE

SWAB
BIC

177760

MOV
ASL

012450

E’H

108:
004000

'e"n}

004522

11:

Eu'.‘}

POP2SP

MOV
B8R

R2
0177760,R2

{
#BIT11,8DHSCR
133

:COMPARE EXPECTED AND RECEIVED DATA

:DATA ERROR

;CHARACTER AVAILABLE NOT SET. ERROR
;RESTORE STACK

:MASTER CLEAR INTERFACE
;RESTART TEST

sMAIT FOR ALL BAR BITS TO CLEAR

sNHEN ALL BAR BITS MAVE CLEARED,
;WAIT FOR SILO TO EMPTY

sWHEN SILO IS EMPTY, SCOPE ON TEST
005224
005230
005232
005236
005240
005246
16 005250

005777
001375
105777
001375
012767
104400

123:
004526

000340

172530

Lsg

m‘nm

{MAIT FOR ALL BAR BITS TO CLEAR

Lstm

w‘usuz

sMAIT FOR SILO TO EMPTY

MOV
0340,PS ;PREVENT INTERRUPTS
SCOPE
;CHECK FOR ITERATIONS, LOOP
SUPERCALIFRIGILISTICEXPEHALIDOSIS
27362,000,7
138:

sMULTI-LINE PARITY DATA TEST
s TRANSMIT A BINARY COUNT WITH 0DD PARITY
sPATTERN ON ALL LINES.
sSILO ALARM LEVEL SET T0 0
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
sIN INTERRUPT MODE.

s TRANSMITTER INTERRUPT WILL BE DISABLED
sLINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 7 + PARITY

005250
005250
005256

012767
012767

000340
000010

172520
004526

TS \XN,10,11$
T23:
MOV

MoV

9340,PS

210, ICOUNT

:DISABLE ALL INTERRUPTS

:SET UP FOR 10 ITERATIONS

CZDHG-CO
005264

MACRO V04.00
012767

005272
005300
005304

000024
012777
012700
005001

005306
005312
005316

012702
012703
012777

005324

012777

005516

004000

000020

000200
000001
012050

177600

004514

004444

004426

004422

.ENDC
AF

.ENDC
XF

027362

105061
110263
005277
005202
062701
062703
005300
001352
012777
012777
012777
012777
005067

012450
012450
004370

000167

005432
000240
000100
177777
172350
000076

004410

-ENDC

:SET UP TO ESCAPE TO NEXT TEST

MOV

®,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV
CLR

@BIT11,8DHSCR
€16. ,RO
R1

MOV
MOV
MOV
IDN
MOV

#200,R2
#1,R3
:Tgur.aouan

sMASTER CLEAR INTERFACE
:SET UP TO START 16. LINES
;COUNT AND BUS ADDRESS MEMORIES
:AND RECEIVED DATA STORAGE
+SET UP TO LOAD HIGH BYTE
:OF EXPECTED DATA
;LOAD BUSS ADDRESS

-400, 9DHBC

;LOAD BYTE COUNT

IDN
MOV

7.7
@-200, 80HBC

;LOAD BYTE COUNT

IDN
MOV

#-100,80H8C

.ENDC
XN=XN+1

14:
-3F

114 ,ESCAPE

MOV

.IF NB

.ENDC
IF
012777

SEQ 44

27-JUN-85 13:01:48 PAGE 21-16

IDN
MOV

5.7

MOV

927362, 8DHLPR

CLRB
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV
CLR
JHP

004366
004362
004330
004334

6,7

@-40,80HBC

;s 3

;LOAD BYTE COUNT
;LOAD BYTE COUNT

sSET LINE SPEED AND
sCHARACTER LENGTH 7 + ODD PARITY
RBUF(R1)
sCLEAR NEXT RECEIVED CHARACTER
R2,RBUF(R3)
;LOAD HIGH BYTE
}
SDHSCR
sADVANCE TO NEXT LINE
R2
;UPDATE POINTER TO
#2,R1
sLOM AND HIGH BYTE OF
#2,.R3
sNEXT EXPECTED CHARACTER
RO
sCONTINVE IF ALL LINES
1$
;NOT SET UP
964, BDHRVEC
:SET UP POINTER FOR
#9240, 8DHRL VL
;RECEIVER INTERRUPT
9100, 8DHSCR
sENABLE RECEIVER INTERRUPT
#-1,8DHBAR
:SET ALL BAR BITS
PS
;ENABLE INTERRUPTS
124
;G0 TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
sCHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS

sVERIFY THAT RECEIVED DATA IS CORRECT

sCHECK FOR END OF PASS
005432
005436
005446
005450
005450
005452
005456
005460
005462

105777
100026
032777
001401

004306
040000

104002
017701
010102

004270

042702

177760

004276

78:

TST8
BPL
- BIT
BEQ
HLT
EMT
MOV
MOV
SWAB
BIC

SDHSCR
10$

#40000,8DHSCR
.+4
2
2
SDHNRC ,R1

Ri.R2

R2
#177760,R2

:IF CHARACTER AVAILABLE NOT SET, ERROR

;IF SILO OVERRUN SET, ERROR
:SILO OVERRUN, ERROR

;READ CHARACTER FROM SILO
;EXTRACT LINE NUMBER

CZDHG-CO

005466
005470
005472
005476
005500
005504
005504
005506
005512
005514

005514
005516
005520
005526

MACRO V04.00

010203
006302
026201
001403
016205

104003
105262
000002
104001
022626
012777
000411

MOV
012450

012450
012450
10$:

004000

SEQ 45

27-JUN-85 13:01:48 PAGE 21-17

004216

11%:

R2,R3

ASL
geg:

R2
RB%(RZ).M

MOV
HLT
EMT

RBUF (R2) ,RS
3
3

INCB
RTI
I'Et"}

POP2SP

MOV
BR

RBUF(R2)

;SAVE LINE NUMBER

;USE LINE NUMBER AS OFFSET
sCOMPARE EXPECTED AND RECEIVED DATA

;GET EXPECTED DATA
:DATA ERROR

;UPDATE EXPECTED CHARACTER
;CONTINUE
;CHARACTER AVAILABLE NOT SET. ERROR

#BIT11,8DHSCR

iMASTER CLEAR INTERFACE

133

;RESTORE STACK
;RESTART TEST

sWAIT FOR ALL BAR BITS TO CLEAR
;WHEN ALL BAR BITS HAVE CLEARED,
{MAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST
005530
005534
0C5536
005542
005544
005552
17 005554

005777
001375
105777
001375
012767
104400

004222

124:

004222
000340

172224

;'sg

eozam

sWAIT FOR ALL BAR BITS TO CLEAR

Ls&a

io:sua

sWAIT FOR SILO TO EMPTY

MOV

#340,PS ;PREVENT INTERRUPTS

13s:
SCOPE
SUPERCALIFRIGILISTICEXPEHALIDOSIS

:CHECK FOR ITERATIONS, LOOP
27322,EVEN,7

sMULTI-LINE PARITY DATA TEST
s TRANSMIT A BINARY COUNT WITH EVEN PARITY
sPATTERN ON ALL LINES.
sSILO ALARM LEVEL SET T0 O
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
sIN INTERRUPT MODE.
sTRANSMITTER INTERRUPT WILL BE DISABLED
;LINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 7 + PARITY
005554
005554
005562
005570

012767
012767

012767

000340
000010
006022

172214
004222
004210

TS \XN,10,118%

T24:
,

005576
005604
005610

000025
012777
012700
005001

005612
005616
005622

012702
012703
012777

SRR

.ENDC

000020
000200
000001
012050

004140

004122

XN=XN+1

1$:
IF
e

MOV
MOV
MOV

9340,PS
©10, ICOUNT

9114 ,ESCAPE.

:DISABLE ALL INTERRUPTS
3SET UP FOR 10 ITERATIONS

MOV

#,FREEZ1

:SET UP TO LOOP WITH DATA

MOV
MOV
CLR

#8IT11,8DHSCR
16. ,RO
R1

MOV
MOV
MOV
IDN
MOV

#200,R2
#1,R3
#TBUF , SDHBA
8,7
#-400,80HBC

sMASTER CLEAR INTERFACE
:SET UP TO START 16. LINES
:COUNT AND BUS ADDRESS MEMORIES
sAND RECEIVED DATA STORAGE
:SET UP T0O LOAD HIGH BYTE
;OF EXPECTED DATA
;LOAD BUSS ADDRESS

$SET UP TO ESCAPE TO NEXT TEST

:LOAD BYTE COUNT

i 3

CZDHG-CO

MACRO V04.00

012777

177600

004116

IF
J—_—

IDN
MOV

7.7
#-200, 8DHBC

;LOAD BYTE COUNT

IDN
MOV

6,7
©-100, 8DHBC

;LOAD BYTE COUNT

IDN
MOV

5.7
#-40,8DHBC

;LOAD BYTE COUNT

MOV

$27322,8DHLPR

;SET LINE SPEED AND

CLRB
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV
CLR
JHP

RBUF(R1)
R2,RBUF(R3)
8DHSCR
R2
#2,R1
#2,R3
RO
1s
64, 8DHRVEC
#9240, 8DHRLVL
#100,8DHSCR
#-1,8DHBAR
PS
124

;CLEAR NEXT RECEIVED CHARACTER
:LOAD HIGH BYTE
sADVANCE TO NEXT LINE
:UPDATE POINTER TO
;LOW AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
;CONTINUE IF ALL LINES

-ENDC

AF
—

005650
005654

005672
005674
005676
005704
005712
005720
005726
005732

012777

027322

105061
110263
005277
005202
062701
062703
005300

012450
012450
004064

001352
012777
012777
012777
012777
005067
000167

004104

000002
000002

005736
000240
000100
177777
172044
000076

SEQ 46

27-JUN-85 13:01:48 PAGE 21-18

004062
004056
004024
004030

sCHARACTER LENGTH 7 + EVEN PARITY

:NOT SET UP
:SET UP POINTER FOR

;RECEIVER INTERRUPT
;ENABLE RECEIVER INTERRUPT
:SET ALL BAR BITS
;ENABLE INTERRUPTS
;GO TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
sCHECK FOR RECEIVER DONE AND NO ERRORS
;CHECK RECEIVED DATA FOR “VALID DATA" FLAG AND NO ERRORS
sVERIFY THAT RECEIVED DATA IS CORRECT
;CHECK FOR END OF PASS

005736
005742
005744
005752
005754
005756
005762
005764

005766
005772
005774
005776

105777
100026
032777
001401
104002
017701
010102
000302
042702

010203
006302
026201
001403
016205
104003
105262
000002
104001
022626
012777
000411

004002
040000

64%:
003772

003764

748:

177760

SDHSCR
104
940000, 8DHSCR
. +4
~
2
2
SDHNRC ,R1
Ri.R2
R2

+IF CHARACTER AVAILABLE NOT SET, ERROR
J
:IF SILO OVERRUN SET, ERROR

MOV
ASL
CHP
BEQ
MOV

R2,R3
R2
RBUF(R2) ,R1
.+10
RBUF(R2),R5

:SAVE LINE NUMBER
;USE LINE NUMBER AS OFFSET
sCOMPARE EXPECTED AND RECEIVED DATA

EMT
INCB
RTI
HLT
EMT
POP2SP
MOV
BR

3
RBUF(R2)

8IC

012450

HLT

012450
10¢:
004000

1578
BPL
BIT
BEQ
HLT
EMT
MOV
MOV
SWAB

003712

11%:

#177760,R2

1
1
#8IT11,8DHSCR
138

:SILO OVERRUN, ERROR
;READ CHARACTER FROM SILO
sEXTRACT LINE NUMBER

sGET EXPECTED DATA
;DATA ERROR

sUPDATE EXPECTED CHARACTER
s CONTINUVE
sCHARACTER AVAILABLE NOT SET, ERROR
sRESTORE STACK
sMASTER CLEAR INTERFACE
sRESTART TEST

CZOHG-CO

MACRO V04.00

SEQ 47

27-JUN-85 13:01:48 PAGE 21-19

sMAIT FOR ALL BAR BITS TO CLEAR
sMHEN ALL BAR BITS HAVE CLEARED,
sMAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST

005777
001375

001375

012767

003716

12%:

003716
000340

171720

13%:

2‘1

n:om

;MAIT FOR ALL BAR BITS TO CLEAR

Ls‘m

Ol:SLR

{WAIT FOR SILO TO EMPTY

MOV
SCOPE

#340,PS ;PREVENT INTERRUPTS
;CHECK FOR ITERATIONS, LOOP

SUPERCALIFRIGILISTICEXPEHALIDOSIS

27361,000,6

sMULTI-LINE PARITY DATA TEST
sTRANSMIT A BINARY COUNT WITH ODD PARITY

sPATTERN ON ALL LINES.

sSILO ALARM LEVEL SET T0 O

sRECEIVER MILL BE SERVICED ON A PER CHARACTER BASIS
;IN INTERRUPT MODE.
s TRANSMITTER INTERRUPT WILL BE DISABLED
sLINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 6 + PARITY
012767
012767
012767

000026
012777
012700
005001

012702
012703
012777

000340
000010
006326

171710
003716
003704

TS \XN,10,11$

T125:
i’

5 a0

,ENDC

000020

003634

XN=XN+1

000200

012050

003616

1;’:_
.ENDC

.ENDC

012777

177700

003612

.ENDC
JIF
naé

MOV
MOV
MOV
<
MOV

#340,PS
#10, ICOUNT
9114 ,ESCAPE

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

#,FREEZL

sSET UP TO LOOP WITH DATA

MOV
MOV
CLR

981IT11,8DHSCR
#16. ,RO
R1

sMASTER CLEAR INTERFACE
:SET UP TO START 16. LINES
;COUNT AND BUS ADDRESS MEMORIES

MOV
MOV

#200,R2
#1,R3

sSET UP TO LOAD HIGH BYTE
;OF EXPECTED DATA

MOV

#-400,80HBC

;LOAD BYTE COUNT

IDN
MOV

7.6
#-200,80HBC

sLOAD BYTE COUNT

IDN
MOV

6.6
#-100,80H8C

IDN
MOV

S,6
@-40,8DHBC

sLOAD BYTE COUNT

#TBUF , 8DHBA

;AND RECEIVED DATA STORAGE
;LOAD BUSS ADDRESS

sLOAD BYTE COUNT
:

012777

027361

MoV

#27361 ,8DHLPR

sSET LINE SPEED AND

105061
110263
005277
005202

012450
012450

CLR8
MOVB
INC
INC

RBUF(R1)
R2,.RBUF(R3)
SDHSCR
R2

sCLEAR NEXT RECEIVED CHARACTER
sLOAD HIGH BYTE
sADVANCE TO NEXT LINE
;UPDATE POINTER TO

sCHARACTER LENGTH 6 + ODD PARITY

CZOMG-CO
006166
006172
006176
006200
006202
006210
006216
006224
006232
006236

SEQ 48

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-20
062701 000002
062703 000002
005300
001352
012777 006242
012777 000240
012777 000100
012777 177777
005067 171540
000167 000076

ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV
CLR
JHP

003556
003552
003520
003524

2,81
2,83
RO
1
#6%, BDHRVEC
9240 , SDHRLVL
€100, BDHSCR
9-1,8DHBAR
PS
128

;LOM AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
;CONTINUE IF ALL LINES
sNOT SET UP
:SET UP POINTER FOR
;RECEIVER INTERRUPT
;:ENABLE RECEIVER INTERRUPT
;SET ALL BAR BITS
;ENABLE INTERRUPTS
160 TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
;CHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR “VALID DATA* FLAG AND NO ERRORS
;VERIFY THAT RECEIVED DATA IS CORRECT
;CHECK FOR END OF PASS

006242 105777
006246 100026
006250 032777
006256 001401
006260
006260 104002
006262 017701
006266 010102
006270
006272

000302
042702

006276
006300
006302
006306
006310
006314
006314

010203
006302
026201
001403
016205

006322
006324

000002

006316

006324
006326
006330
006336

104003

105262

104001
022626
012777
000411

003476
040000

68:
003466

003460

7%:

SDHSCR
108
940000 , 8DHSCR
.+8
2
2

SOHNRC ,R1
R1,R2

;READ CHARACTER FROM SILO
;EXTRACT LINE NUMBER

MOV
ASL
P
BEQ
MOV
HLT
EMT

R2,R3
R2
RBUF (R2) ,R1
.+10
RBUF(R2),RS
3
3

:SAVE LINE NUMBER
;USE LINE NUMBER AS OFFSET
;COMPARE EXPECTED AND RECEIVED DATA

SHAB
BIC

177760

012450

012450
012450

INCB

108:
004000

1578
BPL
BIT
BEQ
MLT
EMT
MOV
MOV

003406

118:

RTI
HLT

EMT
POP2SP
MOV
BR

R2
#177760,R2

RBUF(R2)

:IF CHARACTER AVAILABLE NOT SET, ERROR
;IF SILO OVERRUN SET. ERROR

;SILO OVERRUN, ERROR

;GET EXPECTED DATA
;DATA ERROR
:

;UPDATE EXPECTED CHARACTER

s CONTINUE
sCHARACTER AVAILABLE NOT SET, ERROR

1
1
#BIT11,8DHSCR
134

sRESTORE STACK
sMASTER CLEAR INTERFACE
;RESTART TEST

sMAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS HAVE CLEARED,
3
;WAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST

006340
006344

005777
001375

006352
006354
006362
19 006364

001375
012767
104400

006346

105777

003412

124:

003412

000340

1ST
BHE

TSTE

171414

SDHBAR
.~4
SOMSLR

e
»

sWAIT FOR ALL BAR BITS TO CLEAR
sWAIT FOR SILO TO EMPTY

BNE
.-4
MOV
#340,PS ;PREVENT INTERRUPTS
133:
SCOPE
;CHECK FOR ITERATIONS, LOOP
SUPERCALIFRIGILISTICEXPEHALIDOSIS
27321,EVEN,6
sMULTI-LINE PARITY DATA TEST

CZDHG-CO

MACRO V04.00

SEQ 49

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

s TRANSMIT A BINARY COUNT WITH EVEN PARITY
sPATTERN ON ALL LINES.
;SILO ALARM LEVEL SET T0 0
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
:IN INTERRUPT MODE.

s TRANSMITTER INTERRUPT WILL BE DISABLED
;LINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 6 + PARITY

006372
006400

012767
012767
012767

000340
000010
006632

171404
003412
003400

TS \XN,10,11$

#340,PS
€10, ICOUNT
€114 ,ESCAPE

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

MOV

#,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MOV
CLR

#8IT11,8DHSCR
€16. .RO
R1

MOV
MOV
MOV
IDN
MOV

#200,R2
#1,R3
#TBUF , 8DHBA
8,6
9-400, 80HBC

sMASTER CLEAR INTERFACE
+SET UP TO START 16. LINES
sCOUNT AND BUS ADDRESS MEMORIES
;AND RECEIVED DATA STORAGE
sSET UP TO LOAD HIGH BYTE
:OF EXPECTED DATA
;:LOAD BUSS ADDRESS

JIF
e

IDN
MOV

7.6
#-200,30HBC

;sLOAD BYTE COUNT

IDN
MOV

6.6
#-100,80H8C

;LOAD BYTE COUNT

sa3agREENNdn 8 &

006364

T26:

5.6

o u
z

006406
006414
006420

000027
012777
012700
005001

006422
006426
006432

012702
012703
012777

.ENDC

000020
000200
000001
012050

003330

003312

XN=XN+1

1%:
IF
.ENDC

006440

012777

177700

003306

.ENDC
IF

012777

027321

105061
110263

012450
012450

005277
005202
062701
062703
005300
001352
012777
012777
012777
012777
005067
000167

003274

003254

006546
000240
000100
1771777
171234
000076

003252
003246
003214
003220

MOV
MOV
MOV

CLR
JHP

;sLOAD BYTE COUNT

€-40,80H8C

sLOAD BYTE COUNT

427321 ,8DHLPR

;SET LINE SPEED AND

RBUF(R1)
R2,RBUF(R3)

sCLEAR NEXT RECEIVED CHARACTER
sLOAD HIGH BYTE

R2
#2,R1
#2.R3
RO

:UPDATE POINTER TO
sLOW AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
tCONTINVE IF ALL LINES

sCHARACTER LENGTH 6 + EVEN PARITY

964, SDHRVEC
€240, 80HRL VL
9100, 8DHSCR
¢-1,80H8
PS
124

sADVANCE TO NEXT LINE

sNOT SET UP

:SET UP POINTER FOR
sRECEIVER INTERRUPT
sENABLE RECEIVER INTERRUPT
+SET _ALL BAR BITS
$ENABLE INTERRUPTS
1GO TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
;CHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS
$VERIFY THAT RECEIVED DATA IS CORRECT

CZDHG-CO

MACRO V04.00

SEQ 50

27-JUN-85 13:01:48 PAGE 21-22

;CHECK FOR END OF PASS
105777
100026
032777
001401
104002
017701
010102
000302
042702
010203
006302
026201
001403
016205

104003
105262

000002
104001
022626
012777
000411

003172
040000

6%:
003162

003154

7%:

S8DHSCR

:IF CHARACTER AVAILABLE NOT SET, ERROR

BIT

#40000, 8DHSCR

:IF SILO OVERRUN SET, ERROR

108

BEQ
HLT
EMT
MOV
MOV

.+4
2
2
SDOHNRC ,R1
R1,R2

BIC

€177760,R2

SWAB

177760

012450
012450

012450
104:
004000

TS78

BPL

003102

11%:

MOV
ASL
CMP
BEQ
MOV
HLT
EMT
INCB

R2,.R3
R2
RBUF(R2).R1
.+10
RBUF(R2),RS
3
3
RBUF (R2)

HLT
EMT

1
1

MOV
BR

#B81IT11,8DHSCR
13

RTI

POP2SP

;SILO OVERRUN, ERROR

;READ CHARACTER FROM SILO
sEXTRACT LINE NUMBER
:SAVE LINE NUMBER
sUSE LINE NUMBER AS OFFSET
;COMPARE EXPECTED AND RECEIVED DATA
sGET EXPECTED DATA
sDATA ERROR

sUPDATE EXPECTED CHARACTER
s CONTINVE
sCHARACTER AVAILABLE NOT SET, ERROR

sRESTORE STACK
sMASTER CLEAR INTERFACE
sRESTART TEST

sWAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS HAVE CLEARED,
sWAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST
006¢ 30

006656

20 006670

005777

001375
105777
001375
012767
104400

003106

12%:

003106
000340

171110

13¢:

TST

SOHBAR

BNE
1578
BNE

.4
SDHSLR
.4

sWAIT FOR ALL BAR BITS TO CLEAR
sMAIT FOR SILO TO EMPTY

#340,PS ;PREVENT INTERRUPTS

macumsxusummoosxs

sCHECK FOR ITERATIONS, LOOP

27360,000,5

sMULTI-LINE PARITY DATA TEST
sTRANSMIT A BINARY COUNT WITH COD PARITY
sPATTERN ON ALL LINES.
sSILO ALARM LEVEL SET 10 O

sRECEIVER MILL BE SERVICED ON A PER CHARACTER BASIS
INTERRUPT MODE.

s TRANSMITTER INTERRUPT WILL BE DISABLED
sLINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 5 + PARITY
06670
006670
006676
006704

012767
012767
012767

000340
000010
007136

171100

003106
003074

0
a7 SR
A

—

L e
PAIBASS
DA

~CRRRER eSS,

TS \XN,10,11%

T27:

IF N8

MoV
MOV
MOV

#340,PS
#10, ICOUNT
#1148 ,ESCAPE

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

MOV

¢,.FREEZ1

$SET UP TO LOOP WITH DATA

i 3

CZDHG-CO
006712
006720
006724

MACRO V04.00 27-JUN-85 13:01:48 PAGE 21-23
.ENDC

000030
012777
012700

004000
000020

012702
012703

000200
000001

#8IT11,80HSCR
#16. .RO
R1

sMASTER CLEAR INTERFACE
:SET UP TO START 16. LINES
sCOUNT AND BUS ADDRESS MEMORIES

MOV
MOV

9200,R2
#1,R3

+SET UP TO LOAD HIGH BYTE
s0OF EXPECTED DATA

MOV

#-400, 80HBC

;LOAD BYTE COUNT

IDN
MOV

7.5
€-200, 80HBC

;LOAD BYTE COUNT

IDN
MOV

6,5
€-100,80HBC

sLOAD BYTE COUNT

IDN

S.5

#-40,80H8C

sLOAD BYTE COUNT

006752 012777 027360 002770

MOV

927360, SOHLPR

sSET LINE SPEED AND

006760
006764
006770
006774
006776
007002
007006
007010
007012
007020

105061
110263
005277
005202
062701
062703
005300
001352
012777
012777

007052
000240

002746
002742

CLR8
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV

SDHSCR
R2
#2,R1
#2.R3
RO
14
964, SDHRVEC
9240, 80HRLVL

sADVANCE TO NEXT LINE
sUPDATE POINTER TO
sLOM _AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
sCONTINUVE IF ALL LINES
sNOT SET UP
1SET UP POINTER FOR
1RECEIVER INTERRUPT

007034
007042

012777
005067

177777
170730

002714

#-1,80HBAR

sSET_ALL BAR BITS
tENABLE INTERRUPTS

006736

005001

012777

012050

003024

XN=XN+1

MOV
MOV
CLR

006726
006732

003006

I;F

.ENDC

£ g

.ENDC

|
i

;

006744

012777

177740

003002

.ENDC
JIF

012450
012450
002750

000002
000002

007026 012777 000100 002710
007046

000167

MOV

MoV
CLR

000076

:Tgur.aomn

sAND RECEIVED DATA STORAGE
sLOAD BUSS ADDRESS

sCHARACTER LENGTH S5 +» ODD PARITY
RBUF(R1)
sCLEAR NEXT RECEIVED CHARACTER
R2,.RBUF(R3)
sLOAD HIGH BYTE

#100, SDHSCR

124

sENABLE RECEIVER INTERRUPT
160 TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
sCHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR “VALID DATA" FLAG AND NO ERRORS

lVfllFY THAT RECEIVED DATA IS CORRECT
1CHECK FOR END OF PASS

007052
007056
007060
007066
007070
007070
007072
007076
007100
007102
007106
007110
007112

105777
100026
032777
001401
104002
017701
010102
000302
042702
010203
006302
026201

002666

040000

002650
177760
012450

64:

002656

74:

TST8
BPL
BIT
BEQ

5]
ENT
MOV
MOV
SWAB
BIC
MOV
ASL
cHp

GDHSCR
104
#40000, 80HSCR
.04
e
2
SGDHNRC ,R1
R1.R2
R2
#177760,R2
R2,R3
R2
RBUF(R2),R1

+IF CHARACTER AVAILABLE NOT SET, ERROR

+IF SILO OVERRUN SET, ERROR
1SILO OVERRUN, ERROR

tREAD CHARACTER FROM SILO
+EXTRACT LINE NUMBER
+SAVE LINE NUMBER
sUSE LINE NUMBER AS OFFSET
sCOMPARE EXPECTED AND RECEIVED DATA

CZDHG-CO
007116
007120
007124
007124
007126
007132
007134
007134
007136
007140
007146

MACRO V04.00

001403
016205

104003
105262
000002
104001
022626
012777
000411

012450

BEQ
MOV

.+10
RBUF(R2).RS

EMT
INCB
RTI
HT
EMT
POP2SP
MOV
BR

3
RBUF(R2)

012450

10s:
004000

SEQ 52

27-JUN-85 13:01:48 PAGE 21-24

002576

11%:

1
1
#B8IT11,.8DHSCR

134

sGET EXPECTED DATA
sDATA ERROR

sUPDATE EXPECTED CHARACTER
sCONTINUE
sCHARACTER AVAILABLE NOT SET, ERROR

sRESTORE STACK

sMASTER CLEAR INTERFACE

sRESTART TEST

sWAIT FOR ALL BAR BITS TO CLEAR
sMHEN ALL BAR BITS HAVE CLEARED,
sWAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST
007150
007154
007156
007162
007164
007172
21 007174

005777

001375
105777
001375

012767
104400

002602

12¢%:

002602
000340

170604

134:

BNE
7518
BNE

MoV
SCOPE

SDHBAR

.4
SDHSLR
.-4

sHAIT FOR ALL BAR BITS TO CLEAR

sHAIT FOR SILO TO EMPTY

#340,PS ;PREVENT INTERRUPTS
sCHECK FOR ITERATIONS, LOOP

SUPERCAL IFRIGILISTICEXPEMALIDOSIS

27320,EVEN.S

sMULTI-LINE PARITY DATA TEST

sTRANSMIT A BINARY COUNT WITH EVEN PARITY
sPATTERN ON ALL LINES.
:SILO ALARM LEVEL SET T0 O
sRECEIVER MILL BE SERVICED ON A PER CHARACTER BASIS
+IN INTERRUPT MODE.
:TRANSMITTER INTERRUPT WILL BE DISABLED
sLINE SPEED: 2400 BAUD
;CHARACTER LENGTH: S + PARITY
007174
007174
007210

007216

007230
007232

007242

012767

012767
012767

000031
012777

000340

000010
007442

004000

012700 000020

170574

002602
002570

002520

TS \XN,10,11%

T30:
-

e- B

003001

012702
012703

MOV

#340,PS

MOV
WOV

910, TCOUNT
e11i.EscAPE

MoV

#,.FREEZ2L

MOV

OBITii,GDHSCR

MOV

)

CLR

000200
000001

012777 012050 002502 x;;

MOV
MWV

.xr'

0200,R2
0LARS

:rgurm
LE.

sDISABLE ALL INTERRUPTS

sSET UP FOR 10 ITERATIONS
sSET UP TO ESCAPE TO NEXT TEST

$SET UP TO LOOP MITH DATA
sMASTER CLEAR INTERFACE

sSET UP TO START 16. LINES

sCOUNT AND BUS ADDRESS

sAND RECEIVED DATA STORAGE
:SET UP TO LOAD MIGM BYTE
10F EXPECTED DATA

ADDRESS

MOV

$-800,80M8C

sLOAD BYTE COUNT

MOV

0-200,80M8C

sLOAD BYTE COUNT

o8N

7.5

: 3

CZ0HG-CO

MACRO V04.00

JIF
.ENDC

007250

012777

177740

002476

007256

012777

027320

002464

007264
007270
007274
007300
007302
007306
007312
007314
007316
007324
007332
007340
007346
07352

105061
110263
005277
005202
062701
062703
005300
001352
012777
012777
012777
012777
005067
000167

012450
012450
002444

JIF
mae

IDN

6,5

€-100,80HBC

;LOAD BYTE COUNT

IDN
MOV

5.5
9-40,80HBC

sLOAD BYTE COUNT

MOV

927320,80HLPR
1SET LINE SPEED AND
sCHARACTER LENGTH S + EVEN PARITY
RBUF(R1)
sCLEAR NEXT RECEIVED CHARACTER
R2,RBUF(R3)
:LOAD HIGH BYTE
SDOHSCR
sADVANCE TO NEXT LINE
R2
sUPDATE POINTER TO
02,R1
sLOW AND HIGH BYTE OF
#2,R3
sNEXT EXPECTED CHARACTER
RO
sCONTINUE IF ALL LINES
13
sNOT SET UP
964, SDHRVEC
:SET UP POINTER FOR
9240, BDHRL VL
sRECEIVER INTERRUPT

MOV

CLR8
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV
CLR
JHP

000002
000002
007356
000240
000100
177777
170424
000076

SEQ 53

27-JUN-85 13:01:48 PAGE 21-25

002442
002436
002404
002410

€100, 80HSCR
@-1,80HBAR
PS
12¢

sENABLE RECEIVER INTERRUPT
:SET ALL BAR BITS
sENABLE INTERRUPTS
;GO TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
;CHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS
sVERIFY THAT RECEIVED DATA IS CORRECT
sCHECK FOR END OF PASS

007356
007362
007364

007372

105777
100026
032777
001401

007376
007402
007404

104002
017701
010102
000302

007412
007414
007416
007422
007424

010203
006302
026201
001403
016205

007374
007374

007406

007430
007430

007432

007436

007440
007440
007442
007444
007452

042702

104003
105262

000002

104001
022626
012777
000411

002362

sIF CHARACTER AVAILABLE NOT SET, ERROR

T
EMT
MoV
"oV
SWAB

SDHSCR
104
#40000, BOHSCR
.+4
2
2
SDHNRC ,R1
R1.R2
R2

R2,R3
R2
RBUF(R2),R1
.+10
RBUF(R2) ,RS

sSAVE LINE NUMBER
sUSE LINE NUMBER AS OFFSET
;COMPARE EXPECTED AND RECEIVED DATA

012450

MOV
ASL
cHe
BEQ
MOV

012450

INCB

RBUF(R2)

sUPDATE EXPECTED CHARACTER

HLT
EMT
POP2SP
MOV

1
1

sCHARACTER AVAILABLE NOT SET, ERROR

040000

68:
002352

002344

BEQ
7%:

177760

8IC

012450

MY
EMT

10$:
004000

1578
B8PL
BIT

002272

11s:

RTI

9477760,R2

3
3

#BIT11,8DHSCR
134

sWAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS HAVE CLEARED,

:IF SILO OVERRUN SET, ERROR
:SILO OVERRUN, ERROR

;READ CHARACTER FROM SILO
sEXTRACT LINE NUMBER

:GET EXPECTED DATA
:DATA ERROR
sCONTINVE

sRESTORE STACK
tMASTER CLEAR INTERFACE
sRESTART TEST

CZDNG-CO

MACRO VO4.00

27-JUN-85 13:01:48 PAGE 21-26

sWAIT FOR SILO TO EMPTY
;WHEN SILO IS EMPTY, SCOPE ON TEST

007454
007460
007462
007466
007470
007476

005777
001375
105777
001375
012767
104400

002276

128:

002276
000340

170300

13s8:

TST
BNE
TST8
BNE
MOV
SCOPE

SDHBAR
sWAIT FOR ALL BAR BITS TO CLEAR
.-4
SDHSLR
;WAIT FOR SILO TO EMPTY
.-4
#340,PS ;PREVENT INTERRUPTS
sCHECK FOR ITERATIONS, LOOP

SEQ 54

MACRO V04.00

sMULTI LINE DATA TEST

+SILO ALARM LEVEL SET TO O
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
:IN INTERRUPT MODE
s TRANSMITTER INTERRUPTS WILL BE DISABLED
s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES
;LINE SPEED IS 4800 BAUD FOR ALL LINES

:CHARACTER LENGTH IS 8 BITS FOR ALL LINES

007500
007500
007506
007514

12 007522
13 007530
14 007534
15
16 007536
17 0C7542
18 007546
19 007554
20 007562
21
22 007570
23 007574
24 007600
25 007604
26 007606
27 007612
28 007616
29 007620
30 007622
31 007630
32 007636
33 007644
34 007652
35 007656
36
37
38
39

40
41
42
43
44
45
46
47

SEQ 55

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

FOVRENOVIEWN
-

CZDHG-CO

007662
007666
007670
007676
007700
007700
48 007702
49 007706

012767
012767
012767

000340
000010
007746

170270
002276
002264

TS \XN,10,11$
T31:
MOV

IF N8
.ENDC

000032
012777
012700
005001

004000
000020

012702
012703
012777
012777
012777

000200
000001
012050
177400
031403

105061
110263
005277
005202
062701
062703
005300
001352
012777
012777
012777
012777
005067
000167

012450
012450
002140

002214

002176
002172
002160

XN=XN+1

18:

000002
000002

007662
000240
000100

177777
170120

002136
002132
002100
002104

9340,PS
€10, ICOUNT
€118 ,ESCAPE

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

MOV

9,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV
CLR

#8IT11,8DHSCR
920,R0
R1

MOV
MOV
MOV
MOV
MOV

€200,R2
1,R3
@TBUF , BDHBA
#-400, 80HBC
#31403,80HLPR

CLRB
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MoV

RBUF (R1)
R2,RBUF(R3)
SDHSCR
R2
#2,R1
#2,R3
RO
18
964, SDHRVEC
9240, 80HRL VL
9100,8DHSCR
9-1,80HBAR

sMASTER CLEAR INTERFACE
:SET UP TO LOAD BYTE
;COUNT AND BUS ADDRESS MEMORIES
sAND RECEIVED DATA STORAGE
;SET UP TO LOAD HIGH BYTE
sOF EXPECTED DATA
:LOAD BUSS ADDRESS
;LOAD BYTE COUNT
sSET LINE SPEED AND
;CHARACTER LENGTH
:CLEAR NEXT RECEIVED CHARACTER
sLOAD HIGH BYTE

JHP

12¢

MOV
MOV
<>

CLR

000076

: 3

sADVANCE TO NEXT LINE
sUPDATE POINTER TO
;LOM AND HIG BYTE OF
sNEXT EXPECTED CHARACTER
;:CONTINUE IF ALL LINES
sNOT SET uP
sSET UP POINTER FOR
sRECEIVER INTERRUPT
sENABLE INTERFACE
:SET ALL BAR BITS
sENABLE INTERRUPTS
;G0 TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE
sCHECK FOR RECEIVER DONE AND NO ERRORS
sCHECK RECEIVED DATA FOR "VALID DATA* FLAG AND NO ERRORS
sVERIFY THAT RECEIVED DATA IS CORRECT
sCHECK FOR END OF PASS
105777
100026
032777
001401
104002
017701
010102

002056
040000

002040

6%:

002046

78:

15718

:;!i
wr

SDHSCR

gaooo.oonscn
2

+IF CHARACTER AVAILABLE NOT SET, ERROR

:IF SILO OVERRUN SET, ERROR
1SILO OVERRUN, ERROR

CZDHG-CO
50 007710
51 007712
52 007716
53 007720
54 007722
55 007726
56 007730
57 007734
007734
58 007736
59 007742
60 007744
007744
61 007746
62 007750
63 007756
64
65

MACRO V04.00

000302
042702

177760

010203
006302
026201
001403
016205

012450

104003
105262
000002

012450

104001
022626
012777
000406

10¢:
001766

11s8:

0C7760
007764
007766
007772
007774

MOV
ASL
cHP
BEQ
MOV
HLT
EMT
INCB
RTI
HLT
EMT
POP2SP
MOV
BR

R2,R3
R2
RBUF(R2) ,R1
.+10
RBUF(R2),R5
3
3
RBUF (R2)

sSAVE LINE NUMBER
;USE LINE NUMBER AS OFFSET
;COMPARE EXPECTED AND RECEIVED DATA

1
1

sCHARACTER AVAILABLE NOT SET, ERROR

9177760,R2

@8IT11,80HSCR
13$

;GET EXPECTED DATA
;:DATA ERROR

sUPDATE EXPECTED CHARACTER
s CONTINUE

sRESTORE STACK
:MASTER CLEAR INTERFACE
sRESTART TEST

sWAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS HAVE CLEARED,
sWAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST

67
68
69

70
71
72
73
74
75

SWAB

8IC

012450

004000

SEQ S6

27-JUN-AS 13:01:48 PAGE 22-1

005777
001375
105777
001375
104400

001772

124:

001772
13s:

8T
BNE
1578
BNE
SCOPE

8DHBAR
.-4
8DHSLR
.-4

;WAIT FOR ALL BAR BITS TO CLEAR
;WAIT FOR SILO TO EMPTY
sCHECK FOR ITERATIONS, LOOP

MACRO V04.00

10 007776
007776
010004
010012

sMULTI-LINE DATA TEST
s TRANSMIT A BINARY COUNT COUNT PATTERN ON ALLL LINES
;LINE SPFLED IS 9600 BAUD
;SILO A! ARM LEVEL IS SET TO 63 (NO RECEIVER DONE
s INTERRUPTS WILL OCCUR)
sCONTINUOUSLY ATTEMPT TO READ DATA FROM SILO
:IF “VALID DATA” FLAG IS DETECTED,
;THE DATA WILL BE CHECKED

012767
012767
0127€7

000340
000012
010344

167772
002000
001766

TS \XN,12,8%

T32:

=
g

11 010020
12 010026
13 010032
14
15 010034
16 010040
17 010044
18 010052
19 010060
20
21 010066
22 010072
23 010076
24 010102
25 010104
26 010110
27 010114
28 010116
29 010120
30 010126
31 010134
32 010142
33 010150
34 010154
35
36 010160
37 010166
38 010174
39 010202

40 010206
41
42
43
44
45 010210

46 010214
47 010216
010216

48 010220
49

SEQ 57

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

VRNOWVMEWN
-

CZDHG-CO

000033
012777
012700
005001
012702
012703
012777
012777
012777

105061
110263
005277
005202
062701
062703
005300
001352
012777
012777
012777
012777
012700
005067
012777
012777
012777
005067
000421

004000
000020

001716

.ENDC
XN=XN+1

000200

000001

012050
177400
033503

001700
001674
001662

18:

012450
012450
001642
000002
000002
010210
000240
010222

001644
001640
001624
001620

000077
030000
177777

001574
001550
001554

000240
000012
001664

167570

MOV

MOV
MOV

#340,PS

;DISABLE ALL INTERRUPTS

€12, ICOUNT
#84$ ,ESCAPE

sSET UP FOR 12 ITERATIONS
:+SET UP TO ESCAPE TO NEXT TEST

#,FREEZL

;SET UP TO LOOP WITH DATA

MOV

MOV #BIT11,8DHSCR

MOV
CLR

#20,R0
R1

MOV
MOV
MOV
MOV
MOV

#200,R2
€1.R3
#TBUF , 8DHBA
#-400,80HBC
933503 ,8DHLPR

CLRB
MOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV
MOV
MOV
MOV
CLR

RBUF(R1)
R2,RBUF(R3)
SOHSCR
R2
#2,.R1
#2,.R3
RO
14
#24 ,8DHTVEC
#240,8DHTLVL
964%,8DHRVEC
#240,80HRLVL
#12,.R0
ENDFLG

MOV
MoV
MOV
CLR
BR

#77,8DHSSR
430000, 8DHSCR
¢-1,80HBAR
PS
74

sMASTER CLEAR INTERFACE

;SET UP TO LOAD BYTE
;COUNT AND BUS ADDRESS MEMORIES
;AND RECEIVED DATA STORAGE
sSET UP TO LOAD HIGH BYTE
;0F EXPECTED DATA
;LOAD BUSS ADDRESS
;:LOAD BYTE COUNT
;SET LINE SPEED AND
;CHARACTER LENGTH

;CLEAR NEXT RECEIVED CHARACTER
;sLOAD HIGH BYTE
sADVANCE TO NEXT LINE
sUPDATE POINTER TO
;LON AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
sCONTINUE IF ALL LINES
;NOT SET UP
:SET UP POINTER FOR
;TRANSMITTER INTERRUPT
;SET UP POINTER FOR
sRECEIVER INTERRUPT
;SET UP TO TRANSMIT
10 (DEDIMAL) BLOCKS OF DATA
;ON EACH LINE

;ENABLE INTERFACE
;SET ALL BAR BITS
;ENABLE INTERRUPTS
:TRANSFER TO RECEIVER SERVICE

sTRANSMITTER INTERRUPT SERVICE ROUTINE
;CHECK FOR TRANSMIT DONE AND NO ERRORS
005777
100401

104004

001530

28:

T.S'}

HLT
EMT
RTI

Q‘HSCR
.

&
4

;IS TRANSMITTER DONE SET

; TRANSMIT DONE NOT SET, ERROR
;RETURN

; 3

CZDHG-CO

MACRO v04.00

SEQ S8

27-JUN-85 13:01:48 PAGE 23-1

sRECEIVER INTERRUPT SERVICE ROUTINE

52 010222
53 010226
54 010230
010230

55 010232
56 010240
57 010242

010242
56 010244
59 010246
010246

60
:g 010250

105777
100001
104005

032777
001402

001516

040000

6s$:

001504

104002
000401
104000
000002

3s:

70 010260
71 010262
72 010264

100374
010102
000302

005701

001470

73 010266

042702

177760

76 010276

126201

012450

95 010370
96 010374
97 010402

98 010410
99 010416

100 010420
101 010422
102 010426

EMT

2
34
0

RTI

:SILO OVERRUN, ERROR

:SPURIOUS INTERRUPT
s TEST WILL RESTART

+IF IT IS VALID DATA, CHECK IT

017701

90 010350
91 010352
92 010356
93 010360
94 010362

+IS SILC OVERRUN SET

;OTHERWISE. TRY AGAIN

68 010252

88 010336
89 010344

940000, 8DHSCR
.+6
2

iCHARACTER AVAILABLE SET, ERROK

;GET A CHARACTER FROM THE SILO

010310
80 010312
81 010316
82 010320
83 010324
84 010326
85 010330
86 010332
87 010334

BIT
BEQ
HLT

;RECEIVER DATA CHECK

77 010302
78 010304
79 010310

;IS CHARACTER AVAILABLE SET

EMT
BR
HLT

74 010272
75 010274

8DHSCR
.+4
5

EMT

69 010256

TSTB
BPL
HLT

010203
006302

001403
016205

104003
105262
001355
005767
001007
005703
001014
005300
001012

012767
005777

001340
105777
001335
000417
042777

050377
012777
012777

056277
000715

104400
000167
000001

7%:

001500

8s:

001406

010426

000040

BPL
MOV
SWAB

74
R1,R2
R2

:TRY AGAIN
;EXTRACT LINE NUMBER

MOV
ASL

R2,R3
R2

;DOUBLE LINE NUMBER FOR OFFSET

BEQ
MOV
HLY

.+10
RBUF(R2),RS
3

;GET EXPECTED DATA
sDATA ERROR

EMT
INCB
BNE
18T
BNE
18T
BNE
DEC
BNE

001520

001350
012050
177400

sREAD NEXT RECEIVED CHARACTER REGISTER

CMPB

012450

000017

S8DHNRC ,R1

TST

8IC

012450

000001
001406

MOV

001354

9%:

001350
001344

001340
10$:

MOV
TST

BNE
1578
BNE
BR
8IC
BIS
MOV
MOV

#177760,R2

RBUF(R2),R1

3
RBUF (R2)
74
ENDFLG
84
R3
9
RO
94

1 ,ENDFLG
SDHBAR
7%
SOHSLR
74
104
#17,80HSCR

R3,8DHSCR
#TBUF , 8DHBA
#-400, 80HBC

81S

BARBIT(R2),8DHBAR

SCOPE
JHP

EOP

BARBIT: 1

;IF VALID DATA BIT NOT SET

;COMPARE RECEIVED AND EXPECTED RESULTS

;UPDATE EXPECTED DATA
sCONTINUE IF NOT O
+IF ALL LINES HAVE FINISHED
310 BLOCKS OF DATA, CLEAN UP
:IF THE LINE IS O
sUPDATE BLOCK COUNT
:IF LINE O HAS TRANSMITTED 10 BLOCKS
:SET END FLAG
+IF ALL LINES NOT DONE
1GET MORE CHARACTERS
sIF SILO IS NOT EMPTY
$GET REST OF DATA
sWHEN EMPTY, SCOPE ON TEST
sADDRESS LINE THAT JUST FINISHED
:SET UP BUS ADDRESS AND BYTE COUNT
:FOR THAT LINE

:SET BAR BIT FOR THAT LINE
sCONTINVE

;:CHECK FOR ITERATIONS, LOOP
:GO TO END OF PASS ROUTINE

CZOHG-CO

MACRO V04.00

27-JUN-85 13:01:48 PAGE 23-2

103 010430
104 010432

105 010434
106 010436
107 010440
108 010442
109 010444
110 010446
111 010450
112 010452
113 010454
114 010456
115 010460
116 010462
117 010464

100000

SEQ 59

MACRO V04.00

SEQ 60

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

1
2 010466

.EOP

t/BEGIN/
;END OF PASS
;TYPE NAME OF TEST
;UPDATE PASS COUNT
;CHECK FOR EXIT 7O ACT-11
sRESTARY TEST

LAST

TST

LIGHTS

CLR
INC

BNE

001246

013701

000042

001405

170232

2%:

LOGICAL :

PASARG:

.SCOPE

: PRINT PASSCOUNT

+ CONTINUE

MOV

PASCNT ,LIGHTS

;DISPLAY PASS COUNT

MOV
BEQ

8042 ,R1
RESTRT

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

RESET

NOP
NOP
NOP
RESTRT: JMP

170526

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

ERRFLG
PASCNT

.WORD

.BYTE
.WORD

JSR

PC,(R1)

BEGIN
1

6,2
PASCNT

sCHECK FOR LOOP ON CURRENT TEST

sCHECK FOR ITERATION SUPPRESSION
032777
001030
032777
001021
032777

002000

170204

SCOPER: BIT

040000

170174

18:

oo1162

001156
001134
001136

24:

001130

001114

4%:

:;;mo. 8SWR

#SW14,8SWR

BNE

BNE
INC
cHP
BNE

2%
LPCNT
LPCNT, ICOUNT
33

BIT

170164
001172
001166

BIT

CLR

CLR
MOV
RTI

MOV

RTI
787

BEQ

#SH11,9SWR

LPCNT

ERRFLG
(SP),RETRN

RETRN, (SP)
ERRFLG

2ULIRNS

CLR

TYPE
PASTXT
OCTASC
PASARG

016767

;TYPE NAME OF TEST

001344
001274
201272
170270

TYPE

MEPASS

EOP:

i PARAMETERS TO PRINT PASSZOUNT

wuiuwn

CZDHG-CO

4
; 6

<ZDHG-CO
010664
4 010606

MACRO V04.00

27-JUN-85 13:01:48 PAGE 24-1

000762

.SCOP1

SEQ 61

sCHECK FOR FREEZE ON CURRENT DATA
010666

001000

170104

001106

SCOPIR:

14:
.ERROR

BIT
BEQ
MOV
RTI

#5M09, BSWR
1%

. i

FRESZ1,(SP)

;ERROR HANDLER
220000

170066

: BIT
BNE

#5M13, SSUR
HALTS

BEQ
MOV
CLR
SAVOSP
MOV
SUB
MOV
ASL
ASL

(SP),RS
#2,RS
(RS).R4
R4
R4

cHP

001122

001114
001044

1%:

177001
013262

BIC

001002

(SP),LAST
1%
(SP),LAST
ERRFLG

#177001,R4

ADD

OERRTAB,
R4

157

ERRFLG

187

DATABP

MOV
MOV

BEQ

BNE

TYPMSG: TYPE

(R4 )+ ,ERRMSG
(R4) ,DATABP

TYPMSG

TYPDAT

MCRLF

OCTASC

000001

ERTABO

MoV

000754

zY’E

ERRMSG :
TYPDAT: 187

000010

DATABP

1 S

OCTASC
DATABP : 0

BPL

EXITER

MOV

2(SP),.RO

HALY

POPRO

167700
016716

EXITER: INC

BIT
BEQ
MOV

#1 ,ERRFLG

TYPE

PUSHRO

; 3

P S

MCRLF

HALTS:

' 4

ERRCNT
#5U10, 8SUR
13

ESCAPE, (SP)

]

;

CZOMG-Co

011106
011110
011112
011114
6 011116

MACRO V04.00

000002
000001
006
012034

27-JUN-85 13:01:48 PAGE 24-2
1%:
RTI
ERTABO: 1
.BYTE
SAVPC
.TRPSRY

6.2

sTRAP DISPATCH SERVICE

sARGUMENT OF TRAP IS EXTRACTED

sAND USED AS OFFSET TO OBTAIN POINTER
;7O SELECTED SUBROUTINE
011116
011120
011124
011130
011132
011136
011142

177001
013202
000000

011146

7 011150

TRPSRYV: MOV
SUB
MOV
TRPOK: ASL
BIC
ADD
MOV
JHP
.TYPER

(SP),-(SP)
92,(SP)
8(SP),(SP)
(sP)
#177001, (SP)
#TRPTAB, (SP)
8(SP),(SP)
8(SP)+

: 3

sGET PC OF RETURN
:=PC OF TRAP
:GET _TRP
;MULTIPLY TRAP ARG BY 2
;CLEAR UNMANTED BITS
;POINTER TO SUBROUTINE ADDRESS
sSUBROUTINE ADDRESS
;GO TO SUBROUTINE

s TELETYPE OUTPUT ROUTINE
011150
011154

011160

011164
011166
011170

011172
011174
011200
8 011202

017605
062716
105777
100375
105715
001001
000002
112577
000767

TYPER:

1%:

MOV
ADD
71578

BPL

1578

24:
.INSTRG

8(SP),R5
#2,(SP)
S8TPCSR

(R5)

BNE

MOVB

(RS)+,8TPDBR

RTI

1 3

sASCII STRING INPUT ROUTINE
011202
011210

017667
062716
104401
000000
012704

012703
105777
100375
117714
142714
122427

INSTRG: MOV

ADD

INSTRL: TYPE

MSG:
1s:

001413

171777
105777

100375
005303
001356
104401
013033
000743
000002

24:

#2.(SP)

0
MOV
MOV
1578

SINBUF ,R4
#7,R3
STKCSR

MOVB
B8ICB
CMPB
BEQ
MOVB
1578
BPL
DEC
BNE

STKDBR,(R4)
9200,(R4)
(R4)+,015
INSTR2
STKDBR ,8TPDBR
8TPCSR
2%
R3
1s

INSTR1

BPL

INSTRE: TYPE
Mo

INSTR2: RTI
.PARAMS

9(SP),MSG

CZOMG-CO

MACRO v04.00

27-JUN-85 13:01:48 PAGE 24-3

:CONVERT ASCII STRING TO OCTAL

I
i

011304
011306
011312
011316
011322
011326
011332
011334
011336
011342
011346
011250
011354
011356
011362
011364
011370
011372
011376
011400
011402
011404
011406
011410
011412

000146
000144
000142
000140
000135

013224
000015

011430

011434

MOV
MoV
MOV
MOVB
MOVB
MOV

PARAML: CLR

MOV

CMPB

1%:
000067

000015

BEQ

CMPB
BLT

(SP).R5

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

#INBUF R4

#15,(R4)

PARERR

(R4),960
PARERR

CMPB
BGT
BICB
B1SB
CMPB
BEQ
ASL
ASL
ASL
BR

(R4),967
PARERR
960, (R4)
(R4)+,R5
#15,(R4)
LIMITS
]
RS
RS
1s

PARAM1

PARERR: INSTER

sTEST TO SEE IF NUMBER IS MWITHIN LIMITS

011414

011420
011422
011426

PARAMS: MOV

LIMITS: CMP

RS, HILIM

BLO
BITB

PARERR
LOBITS,RS

BHI
CcHP

000032

BNE

PARERR
RS,LOLIM

PARERR

sSTORE NUMBER AT SPECIFIED ADDRESS

!
{

011436

011442

011444
011450
011454
011436
011460
011462
011464
011466

10 011470

000022

000013

1s:

MOV

MOV
ADD
DECB
BNE

DEVADR .R4

RS,(R4)+
#2.R5
ADRCNT
14

sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
011470
011474

OCTASN: MOV

ADD

8(SP).R1

2,(5P)

SEQ 63

: 3

MACRO V04.00 27-JUN-85 13:01:48 PAGE 24-4
012167
112167
112167
013167
016704
116705

012700
010403

042703

011602
011604
011610
011614
011616
011620
011622
011624
011630
011632
011634
011636
011640
11 011642

062703
110320
006204
006204
006204
005305
001365
012703
114023
105367
001374
105767
001405
112723
105367
001373
105013
104401
013250
005367
001325
000002
000000
000000
011637
000000

000130
000126
000123
000120
000114
000106
013236

1%:
24:

38:

177770

000260

MOV
MOVB
MOV
MOV
MOV
MOVB

(R1)+,MRDCNT
(R1)+,CHRCNT
(R1)+,SPACNT
8(R1)+ ,BINWRD
BINWRD ,R4
CHRCNT RS

BIC

#177770,R3

MOV
MOV

: 3

STEMP,RO
R4 ,R3

ADD
9260,R3
MOVB
R3,(RO).
ASR
R4
ASR
R4
ASR
R4
DEC
RS
BNE
34
MOV
OMDATA,R3
4%:
MOVE
-(RO), (R3).
DECB
CHRCNT
BNE
4%
1578
SPACNT
BEQ
64
5s:
HMOVB
#240,(R3).
DECB
SPACNT
BNE
S
64:
CLR8
(R3)
TYPE
MDATA
DEC
WROCNT
BNE
14
RTI
WRDCNT: 0
CHRCNT: 0
SPACNT=CHRCNT+1
BINWRD: ©

013250
000042
000035

000240
000023

000004

.SAVREG

sSAVE PC OF TEST THAT FAILED AND RO-RS
011642

016667

000004

000164

SVOSP:

MOV

4(SP),SAVPC

3sSAVE RO-RS
011650
011654
011660
011664
011670
011674
011700
12 011702
011702
011706
011712
011716

010567

010467
010367
010267
010167
010067
000002

016700

015701
016702
016703

000154

000146
000140
000132
000124
000116

SVOS:

.RESREG

000110

000106
000104
000102

RSOS:

MOV

MOV
MoV
MOV
MOV
MOV
RTX

RS .SAVRS

R4 ,SAVR4
R3,SAVR3
R2,SAVR2
R1,SAVR1
+«SA

sRESTORE RO-RS
MOV

MoV
MOV
MOV

SAVRO, RO

SAVR1,R1
SAVR2,R2
SAVR3,R3

1 3

CZDHG-CO

011722
011726
011732

13 011734
011734
011736
011740
011742

MACRO V04.00
016704
016705
000002

177560
177562
177564

177566

27-JUN-85 13:01:48 PAGE 24-5

MOV

000100
000076
.POINT
TKCSR:
TKDBR:
TPCSR:
TPDBR:

s INDIRECT POINTERS

177560

177562
177564
:77566

<DHSCR , DHNRC , DHLPR ,DHBA , DHBC , DHBAR , DHBCR , DHSSR , DHSLR , DHRVEC , DHRL VL , DHTVEC , DM

0000000000000

TLVL>

SAVR4 , R4

MOV
SAVRS,R5
RTI
+/DHSCR , DHNRC , DHLPR , DHBA , DHBC , DHBAR , DHBCR +DHSSR, DHSLR , DHRVEC ,DHRLVL , ?‘WEC +OHTLVL/

/ENDFLG, TOATA/

)

:
;

i
g :

-4

SEE S

223 .’.------23EER

oBRAREE §a§§é

PROGRAM VARIABLES

iab3 00 O0»0000000000000000000

011772
011774
14 011776

2
i~

011744
011746
011750
011752
011754
011756
011760
011762
011764
011766
011770

CZ0HG-CO
21
22
23
24

MACRO V04.00

27-JUN-85 13:01:48 PAGE 24-6

.NLIST
TDAT=TDAT.1
.LIST
012051

012052
012053

012054

012055
012056
012057
012060
012061

012062

012063
012064

012065
012066

012067
012070
012071

012072
012073
012074
012075
012076
012077
012100

012101
012102
012103

.ENDR

001
000002
002
000003
003
000004
004
000005
005
000006
006
000007
007
000010

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

000011
011
000012
012
000013

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

000014

TOAT=TDAT+1

000015

TDAT=TDAT»1

000016

TOAT=TDAT.1

000017

TOAT=TDAT»1

000020
020
000021
021
000022

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

000623

TDAT=TDAT+1

000024

TDAT=TDAT+1

010

013
014

015
016
017

022
023

024
000025
025
000026
026
000027
027

.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

.BYTE

TDAT

.BYTE

TOAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

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

TDAT

.BYTE

TDAT

.BYTE

TDAT

000030
030
000031

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

000032
032
000033

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

031

033

SEQ 66

C2DHG-CO

012104
012105
012106
012107
012110

012111

012112

012113
012114

012115
012116
012117

012120
012121
012122

012123
012124
012125

012126
012127

012130

012131
012132
012133
012134
012135

012136
012137

MACRO VO4.00 27-JUN-85 13:01:48 PAGE 24-7
000034
034
000035
035
000036
036
000037
037
000040
040
000041
041
200042

TDAT=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

042
000043
043
000044
044
000045
045
000046
046
000047
047
000050
050
000051
051
000052
052
000053
053
000054
054
000055
055
000056
056
000057
057
000060
060
000061

.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
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT»1
.BYTE
TDAT
TOAT=TDAT-1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TODAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDATs+1

000066

TDAT=TDAT+1

061
000062
062
000063
063
000064
064
000065
065

066
000067
067
000070

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

CZDHG-CO
012140
012141
012142
012143

C12144
012145
012146

012147
012150
012151

012152
012153

012154
012155

012156
012157
012160
012161

012162

012163

012164
012165
012166

012167

012170
012171
012172
012173

012174

MACRO V04.00 27-JUN-85 13:01:48 PAGE 24-8
070
000071
071
000072
072

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

000073

TDAT=TDAT+1

100
000101
101
000102
102
000103
103
000104
104
000105
105
000106
106
000107
107
000110
110
000111
111
000112

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
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT-1
.BYTE
TDAT
TDOAT=TDAT.1
.BYTE
TODAT
TOAT=TDAT+1
.BYTE
TOAT
TDOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1

073
000074
074
000075
075
000076
076
000077
077
000100

112
000113
113
000114
114
000115
115
000116
116
000117
117
000120
120
000121
121
000122
122
000123
123
000124
124

.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT

.BYTE
TDAT
TDAT=TDAT»1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TODAT
TOAT=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

—_——

CZDHG-CO

012175

012176
012177

012200

012201
012202

012203
012204

012205
012206
012207
012210

n12211
012212
012213

012214

012215
012216

012217

012220
012221
012222
012223

012224
012225
012226
012227
012230

MACRO V04.00

27-JUN-85 13:01:48 PAGE 24-9

000125

TDAT=TDAT+1

000126
126
000127

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

000130

TDAT=TDAT+1

000131
131
000132

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

125

127

130

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

132
000133
133
000134
134
000135
135
000136
i36

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

137
000140
140
000141
141
000142
142
000143
143
000144
144
000145

.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

000146
146
000147
147
000150

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

000151

TDAT=TDAT+1

000153

TDAT=TDAT+1

000137

145

150

i51
000152
152
153
000154
154
000155
155
000156
156
000157
157
000160
i60
000161

TDAT=TDAT+1

.BYTE

TDAT

.BYTE

TDAT

.BYTE
TDAT
TDAT=TDAT»1
.BYTE
TDAT
.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

SEQ 69

CZDHG-CO

012231
012232

012232

012234
012235

012236
012237

012240
012241

012242
012243
012244
012245
012246

MACRO V04.00 27-JUN-85 13:01:48 PAGE 24-10
161

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

000162
162
000163

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

000164
164
000165

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

000166
166
000167

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

000170

TDAT=TDAT+1

000171

TDAT=TDAT+1

000172

TOAT=TDAT+1

000173

TOAT=TDAT.+1

000174

TOAT=TDAT+1

175
000176

.BYTE
TDAT
TOAT=TDAT+1

163

165

167

170

171

172

173

174
000175

.BYTE
TDAT
TOAT=TDAT+1

176

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TODAT

000177

TDAT=TDAT+1

000200
200
000201

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

012252

000202
202

TOAT=TDAT-1
.BYTE
TDAT

012253

203

012247

012250
012251

012254
012255
012256
012257
012260

177

201

000203

.BYTE

TODAT

.BYTE

TDAT

000210

TDAT=TDAT+1

000211

TDAT=TDAT+1

207

210

012263

213

012265

TDAT

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

012262

012264

.BYTE

000204
204
000205
205
000206
206
000207

211
000212
212

012261

TDAT=TDAT+1

.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT

000213
000214

214

000215

215

TDAT=TDAT+1
.BYTE__

TDAT

.BYTE

TDAT

.BYTE

TDAT

TDAT=TDAT+1
TDAT=TDAT+1

CZDHG-CO

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
012320

012321

MACRO V04.00 27-JUN-85 13:01:48 PAGE 24-11
000216
216
000217

217
000220
220
000221
221
000222
222
000223
223
000224
224
000225

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

225
000226
226
000227
227
000230
230
000231
231
200232
232
000233
233
000234
234
000235
235
000236
236
000237
237
000240
240
000241
241
000242

.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
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TODAT
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

000243
243
000244
244
000245
245
000246
246
000247
247
000250
250
000251

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
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1

000252

TDAT=TDAT+1

242

251

.BYTE _ TDAT

.BYTE

TDAT

CZDHG-CO
012322
012323

012324

012325
012326

012327
012330

012331
012332
012333

012334
012335
012336

012337
012340

012341

012342

012343
012344
012345

012346

012347
012350

012351
012352

012353
012354
012355
012356

MACRO V04.00 27-JUN-85 13:01:48 PAGE 24-12
2s2
000 3
253
000254

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

254
000255
255
000256
256
000257
257
000260
260
000261

.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

000262
262
000263
263
000264

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

261

264
000265
265
000266
266
000267
267
000270
270
000271
271
000272
272
000273
273
000274
274
000275
275
000276
276
000277
277
000300
300
000301
301
000302
302
000303
303
000304
304
000305
305
000306
306

.BYTE

TDAT

.BYTE
TDAT
TDAT=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
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
TDAT=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

——

CZDHG-CO

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
012411

012412

MACRO V04.00 27-JUN-85 13:01:48 PAGE 24-13
000307

TDAT=TDAT+1

000310

TDAT=TDAT+1

000311

TDAT=TDAT+1

000312

TDAT=TDAT-1

000313

TDAT=TDAT+1

000314

TDAT=TDAT+1

000315

TDAT=TDAT+1

307

310

311

312

313

314

315
000316
316

.BYTE

TDAT

.BYTE

TDAT

.BYTE_

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT

000317

TDAT=TDAT+1

317

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

000320
320
000321

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

000322
322
000323

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

000324

TDAT=TDAT+1

321

323

324

000325
325
000326
326

;

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

000327

TDAT=TDAT+1

000330
330
000331

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

000332
332
000333

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

000334
334
000335

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

000336
336
000337

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

000340
340
000341

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

000342

TOAT=TDAT+1

000343

TDAT=TDAT»1

327

331

333

335

337

341

342

CZDHG-CO
012413

012414
012415
012416
012417
012420
012421

012422
012423

012424
012425

012426
012427

012430
012431

012432
012433

012434
012435
012436
012437
012440

012441
012442

012443
012444
012445
012446
012447

MACRO V04.00

27-JUN-85 13:01:48 PAGE 24-14

343
000344
344
000345
345
000346
346
000347
347
000350
350
000351

.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

000352
352
000353

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

000354
354
000355

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

000356
356
000357

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

000360
360
000361

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

000362
362
000363

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

000364
364
000365
365
000366
366

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

000370
370

TDAT=TDAT+1
.BYTE
TDAT

000372
372
000373

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

351

353

355

357

361

363

000367
367

000371
3N

373
000374
374
000375
375
000376
376
000377
m

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

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

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

SEQ 74

CZDMG-CO

MACRO V04.00

SEQ 75

27-JUN-85 13:01:48 PAGE 24-15
TDAT=TDAT.1
.EVEN
0
RBUF
:
.=.+40
PFAIL
;ENTER HERE ON POWER FAILURE

25
26 012450
27
28 012512

PFAIL:

016746
010667
012767
000000

165272
177274
012550

165260

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
HALT

RO,-(SP)

:SAVE RO-R5 ON PROCESSOR STACK

R3,-(SP)
R4,-(SP)
RS, -(SP)

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

:SAVE STACK POINTER

:SET UP FOR POWER UP TRAP

;HALT ON POWER DOWN NORMAL

: 3

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

012767
012767
012706
005067

005267
001375
104401
013037
104402
012652

177256

012512
000340
013752
000422
000416

165226
165172

RESTAR: MOV
MOV
MOV
MOV
MOV
MOV
MOV

SAVSP,
SP

;RESTORE STACK POINTER

OPFAIL .24
9340,PS
#STACK,SP
TEMP
TEMP
.-4

:SET UP FOR POWER FAILURE

(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

sRESTORE RO-RS

wwun

016706
012605
012604
012603
012602
012601
012600

104401

013042
005067
005067
000177
000001
000006
012004

ERRFLG

012
110
040
116

114
105
101
124

111
040
122
131

105

LAST
SRETRN

PFTAB:

000002

015
104
061
111

114

o12m12

177134
177174
177132

012
061

MTITLE:

*/DH11 SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST/,*/CZDHG-CO/

.ASCIZ

€152<12><12>/DH11 SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST /¢15»¢<12>

123
107

040
116
120
11
040

110

113
114

£33

116

-3

105
115

MVECTO:

.ASCIZ

€15><12>/VECTOR ADDRESS-/

MREGAD:

.ASCIZ

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

MQM:

.ASCIZ

MCRLF:

.ASCIZ

MPFAIL:

.ASCIZ

v
<15>¢<12>

POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/

s et pt o o

BRRERRORS

22222222222222

et e o €D P e

oR=e 2828

104
123

SEQ 76

27-JUN-85 13:01:48 PAGE 24-16

8 & I ZSRRNBTRISLRILE JnBEREE

MACRO V04.00

124

MEPASS: .ASCIZ

<15>¢12>/CZDHG-CO/

PASTXT: .ASCIZ

€15>¢12>/PASS COUNT = /

27-JUN-85 13:01:48 PAGE 24-17

g8k R RS

2838283

MACRO V04.00

Mm:

ASCIZ

<15><12>/R/

MISTPC:

ASCIZ

<15><12>/TEST PC-7

-EVEN
.EVEN
.TRPTAB

sTABLE OF POINTERS FOR TRAP DECODING

010566
011150
011470
011202
011274
011304

3222
32 013224

TRPTAB: SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SVosP
RSO5
SCOP1R

011702
010666

sBUFFERS FOR INPUT-OUTPUT

013250

33 013262

013250

013262

sTABLE OF POINTERS TO ERROR MESSAGES AND DATA

omomo
A 8RB
8

013236

omo

013224

116
120

124

124
122

ASCIZ

/UNEXPECTED INTERRUPT/

SEQ M

013334

47 013337
013342
013345
013350

013353
013356
013361
013364
013367
013372

48 013373

013376
013401
013404

MACRO V04.00

120

103

122
124
040

101
105
101

105

040

123

105

123
117

111
040

101
101

117

000

126
122
040
124
104
101

122

015
130
040
040
103
040
114

111
102

124

105
125
123
000
101

040

122

012
120
040
122
040
040
111

105
124

000
122

104
105

117
040

123

105

116
111
117

000

103
122
124

123
124
124

040

110
101
105
101

101
105
105

102
040
124

101

S3
54
55
56
5?7
58
39
60
61
62
63
64

124

110

SEQ 78

27-JUN-85 13:01:48 PAGE 24-18
000
101
103
122
126
114
114
116
040
124

EM1:

114
117
122
116
105

124
105
117

EM3:

.ASCIZ

/CHARACTER AVAILABLE NOT SET/

.ASCIZ

/SILO OVERRUN SET/

.ASCII

/DATA ERROR/

105
040
040

<15><12>/7EXP

REC

101

/TRANSMIT DONE NOT SET/

LINE/

105
040
040
116

115

040
116
116
040
124

/CHARACTER AVAILABLE SET/

111

1DATA TABLES FOR ERRORS
DTL:
.BYTE
.BYTE

BYTE

CZDHG-CO

CZDHG-C0

013552

MACRO V04.00
000000
000001

27-JUN-85 13:01:48 PAGE 24-19
ENDCOD: 0
.END

SEQ 79

CZOHG-CO
SYMBOL TABLE

MACRO V04.00

013373
013414
013455
EMS
013503
ENDCOD 013552
ENDFLG 012044
010466
EOP
ERRCNT 012002
ERRFLG 011776
ERRMSG 011024
ERRORS 010704
ERRTAB
013262
ERTABO 011110
ESCAPE 012006
EXITER 011066
FREEZ1
012010
HALTS
011046
011462
HILIM
ICOUNT 012012
013224
INBUF
INIFLG 012036
INSTER = 104404
INSTR = 104403
INSTRE 011274
INSTRG 011202
INSTR1 011214
INSTR2 011302
LAST
012042
LIGHTS 001002
LIMITS 011414
LINE
= 000020
LOBITS 011466
LOGICA 010544
011460
LOLIM
LPCNT
012014
MCRLF
013037
MDATA
013250
013127
MEPASS
MPFAIL
013042

ADRCNT= 011467
BARBIT
010426
BEGIN
001306
BINWRD
011640
BITX
= 000000
BITO0 = 000001
BIT01 = 000002
BITO2 = 000004
BITO3 = 000010
B8IT04 = 000020
BITOS = 000040
BITO6 = 000100
B8ITO7 = 000200
BIT08 = 000400
BIT09 = 001000
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040600
BIT15 = 100000
CHRCNT
011636
DATABP 011042
DEVADR 011464

DHBA

011756

DNBCR
DHLPR
DHNRC
DHRLVL
DHRVEC
DHSCR
DHSLR
DHSSR
DHTLVL
DHTVEC
DT1

011760
011750
011746
011770
011766
011744
011764
011762
011774
011772
013534

DHBC

EMO
EM1

. ABS.

EM2
EM3
EM4

011752

DHBAR

011754

013312
013337

013554
000000
ERRORS DETECTED:

SEQ 80

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

MQM

013033
013162
012777
011216
MSG
MTITLE
012662
MTSTPC
013166
:VECTO
012755
000001
OCTASC= 104402
OCTASN 011470
PARAM = 104405
PARAMS
011304
PARAML
011334
PARERR
011410
PASARG
010560
PASCNT
012000
PASTXT
013142
PFAIL
012512
PFTAB
012652
POPRO = 012600
POP1SP= 005726
MR
MREGAD

POP2SP= 022626
= 177776
PUSHRO= 010046
PUSH1S= 005746
PUSH2S= 024646
RBUF
012450
RESREG 011044
RESTAR 012550
RESTRT 010554
RESOS = 104407
RETRN
012004
RSO5
011702
SAVPC
012034
SAVRO
012016
SAVR1
012020
SAVR2
012022
012024
SAVR3
012026
SAVR4

000
001
0

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

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

SAVRS
SAVSP
SAVOSP=
SCOPE =
SCOPER
SCOPE1=
SCOP1R
SPACNT=
STACK =
START
STFLG
SV0S
SVOSP
SHR
SHOO
=
SW01
=
SH02
=
SWO3
=
SWO4
-

012030
012032
104406

104400
010566
104410
010666
011637
013752
001004
012040
011650
011642
001000
000001

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

SHOS
SW06
SWO8
SW09
SH10
SWil
SHi2
SH13
SHi4
SHW15

=
=
=
=
=
=
=
=
=
=

TOAT

= 000400

TEMP

013236

TBUF
TOATA

TKCSR
TKDBR
TPCSR
TPDBR
TRPOK
TRPSRV

012050
012046

011734
011736
011740
011742
011130
011116

TRPTAB
TYPDAT
TYPE
=
TYPER
TYPMSG
T1
710
T11
T12
T13
T14
T15
716
717
T2
T20
T21
T22
123
T24
125
126
127
13

013202
011026
104401
011150
011004
001400

131
132
T4

007500
007776
002046

16
17

002352
002514

WRDCNT
X
=
XBIT
=
XLINE =

011634
000020
000001
000000

130

VEC1
VEC2

002656
003020
003162
003324
003466
003630
003772
004134
001542

004276
004440
004744
005250
005554
006060

006364
006670
001704

007174

002210

001164
001174

= 000033

= 000011