Digital PDFs

AH-FG26C-MC

October 1985

81 pages

Original

3.4MB

view download

OCR Version

3.0MB

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_bw.pdf

OCR Text

DH11 MULTILINE DATA

CZDHGCO

AH-FG26C-MC

10F1 OCT 1985

Enfluan
MADE IN USA

BB NANNWHUWMWNWWHRAWNDNDONDDDRD
DN )t Pt Pt it ot b ot b e
OOV
UINFRODRIOVNBWN-O VO IOVNBUWNHOOBIOWNEWN
-

8Z0G-CO

MACRO VO4.00

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

SEQ 1

IDENTIFICATION

PROOUCT CODE:

AC-8463C-MC

PROJUCT NAME:

CZDHGCO DM1i MULTI-LINE DATA TEST

DATE:

JUNE 1985

MAINTAINER:

NAC SOFTWARE ENGINEERING

AUTHOR :

BAISLEY

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

NOTICE AND SHOUWD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPHMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
DOCUMENT.
NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
SOFTWARE ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS
AFFILIATED
COMPANIES

VROV W
-

CZ0HG-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

TIME.

AS5SERTS

THE DH1i MULTI-LINE DATA TEST TRANSAITS BINARY COUNT PATTERNS
ON
ALL
16
LINES
SIMULTANEOQUSLY.
ALSO,
PARITY GENERATION LOGIC AND PARITY
ggggP;ION LOGIC IS VERIFIED.
(ODD & EVEN PARITY FOR 5, 6, 7, 8
LEVEL
S

2.0

REQUIREMENTS

2.1

EQUIPMENT

POP-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

OO IRV EWN I

CZOHG-CO

MACRO VO4.00

27-JUN-85

SEQ 3

13:01:48 PAGE 3

PAGE 3

4.1.2

TO0 MODIFY DEVICE VECTOR AND CONTROL

PROGRAM RESTART

ADDRESSES

AFTER

SW00=1

4.1.3

TO START PROGRAM Al SELECTED TEST AFTER PROGRAM 7TESTART

SWO1=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
MWILL
THEN
TYPE
“VECTOR
ADDRESS-" AND WAIT FOR AN INPUT FROM THE TELETYPE
KEYBOARD.

NS LR L X
P
2.21T W Gl 0
- OV [ X 1. NBULWL+-OoOOV® ~O

G G O

IR D VD PO RO ) RO D RO D 14 120 1t =t et ot pud oo oo Pt

Ul&GNPOOO\IOM.U‘NHOOC\IOM&UNF’OOO\JOMboflon

CZ0HG-CO

MACRO V04.00

SEQ 4

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

PAGE 4

4.3.1.6

TYPE IN THE ADDRESS OF

THE RECEIVER INTERRUPT

VECTOR FOR

THE

DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>
NOTE

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

IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM WILL TYPE
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>

IF AN INCORRECT ADDRESS IS TYPED,
THEN REPEAT THE OF 4.3.1.7

4.3.2.1

AND

*?*

AND

ABOUT

WAIT

THE

WILL

PROGRAM RESTART WITH ALL SWITCHES DOWN

PERFORM 4.3.1.2 T0 4.3.1.5

4.3.2.2
THE PROGRAM WILL TYPE "DH11
MULTI-LINE
THEN CONTINUE AS DESCRIBED IN 4.3.1.9

4.3.3

THE PROGRAM WILL TYPE

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

4.3.2

*?¢ AND WILL

PROGRAM RESTART WITH SWO0O=1

DATATEST”

AND

WILL

BUANANVINL LB LaaddbUBuKutititiiiONDINDDND ) o 1=t i et ot ot e Pt o o
NP UHNFOVRNOVMBALNFOOVBNNOWVMAWNFOOB®JIOWVMAWN» OOOQOM.“NFOOO\JOM.WN”

CZNHG-CO

MACRO vO4.00

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

PAGE S5

4.3.3.1

LOAD ADDRESS 000200

4.3.3.2

SET SWO1=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 SWO1=1

4.3.4.3

PRESS START

4.3.4.4
THE PROGRAM WILL TYPE “DH11
MULTI-LINE
DATATEST”
AND
WILL
TEESOAEEPE
“TEST
PC-“
AND
WILL WAIT FOR AN INPUT FROM THE TELETYPE

KEY

4.3.4. 5

TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO BE

STARTE 8 FuiL.uweD BY <CARRIAGE RETURN>

4.3.4.6
THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS
WILL STARY TESTING AT THE SELECTED TEST.
NOTE

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

STARTED

AND

MACRO V04.00

StEQ 6

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

VR IRPAEL WM

CZ0MG-CO

PAGE

NOTE
IF IT 1S OESIRED 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,
SWO00=1,

5.2

5.2.1

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

SUBROUTINE ABSTRACTS

TRAPCATCHER (LOCATIONS 000000-000776)

THIS ROUTINE IS USED TO INTERCEPY
UNEXPECTED
INTERRUPTS
AND
TRAPS.
THE AREA FROM 000000-000776 IS LOADED WITH THE FOLLOWING SEQUENCE
2
0
4
0
772

0
776
0

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

VO NRUAEWN
-

CZDHG 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 DHii 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 THME PROCESSOR

STACK AND STATUS WORD AND THEN TRANSFERS CONTROL TO THE TEST AT

WHICH

TESTING
WILL
BEGIN.
IF SWO1=0 WHEN THIS ROUTINE IS ENTERED TESTING
WILL START AT T1 (TEST 1).
1IF SWOl=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 ROJUTINE IS ENTERED ONCE

COMPLETED.

PROGRAM,
PROGRAM

PER

PASS

AFTER

TESTS

HAVE

BEEN

CLEARS ERROR FLAGS
AND
UPDATES
THE
PASS
COUNT.
IF
THE
WAS
LOADED UNDER ACT1i OR DDP, THE ROUTINE CHECKS FOR RETURN

TO THE ACT11 OR DDP MONITOR.
IF THE
PROGRAM
CONTROL, THE ROUTINE TRANSFERS TO BEGIN.

5.2.5

ALL

THIS ROUTINE TYPES THE MAINDEC IDENTIFICATION CODE OF THE
IS

NGT

UNDER

MONITOR

COMPLETED.

THE

ROUTINE

SCOPER (SCOPE LOOP AND ITERATION HANDLER)

THIS ROUTINE IS ENTERED EACH TIME A TEST IS

CHECKS FOR THE FOLLOWING UPON EHTRY
1.

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

THE

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

THE

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

THE

TEST

1IN

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 CURREKTLY IN PROGRESS WILL BE REPEATED.

OB LR NASL NN

CZ0MG-CO

MACRO V04.00

SEQ
8

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
IN
THOSE
TESTS
THAT HAVE VARIABLE PARAMETERS.
THIS
ROUTINE IS ALWAYS ENTERED IM THOSE TESTS,
WHETHER
OR
NOT
AN
ERROR
OCCURS.
IF SW09=1, THE ROUTINE WILL TRANSFER CONTROL BACK TQ THE TEST

AT A
POINT
MWHICH
WILL
ALLOW
REPEATING
THE
FUNCTION
UNDER
TEST
CONTINUOUSLY
WITH
THE
SAME
DATA.
IF THIS OPTION IS SELECTED, THE
&(gg;%gg “SCOPER” IS NFVER 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:

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
TYPEOUT IS MADE.

FAILURE

TYPED.

SW13=1, NO ERROR

THE ROUTINE NOW CHECKS FOR HALT
ON
ERROR.
IF
SWi5=1
THE
PROGRAM
WILL
HALT
WITH
THE
PC
OF
THE CALL TO THE ERROR
ROUTINE IN RO.
IF SWi5=0, THE PROGRAM
WILL
NOT
HALT,
BUT
WILL CHECK FOR ESCAPE TO NEXT TEST.

1IF SW10=0,

THE ROUTINE WILL RETURN TO THE TEST

1IN

PROGRESS.

IF
SW10=1,
THE ROUTINE
WILL
ABORT
THE CURREMNT TEST, AND
TgegzgR TO THE NEXT
TEST
IN
SEQUENCE,
THRU
THE
ROUTINE
[

5.2.8

WITH

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
TO0
THE
POINTER TO THE ROUTINE TO BE ENTERED.

ORI RNAEWUN I

CZOHG
- CO

MACRO VO4.00

SEQ 9

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

PAGE 9

5.3

PROGRAM AND OR OPERATOR ACTION

5.3.1

PRCGRAM START WITH ALL SWITCHES DOWN

5.3.1.1
REFER
BEHAVIOR.

SECTIONS

4.3.1

AND

4.3.2

FOR

INITIAL

PROGRAM

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

5.3.1.3
WHEN ALL ITERATIONS HAVE BEEN
L_OMPLETED,
THE
PROGRAM
WILL
TYPE
*“CZDHG-C”
AND
THEN RESTART TESTING AT TEST 1 (LOCATICN T1 IN THE
PROGRAM).

5.3.1.4

IF AN ERROR OCCURS,

THE

PROGRAM

WILL

TYPE

ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS.

5.3.2

APPROPRIATE

PROGRAM START WITH SWOO=1

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1

5.3.3

5.3.3.1

PROGRAM START WITH SWO1=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

r“CZ0MG-CO

MACRO v04.00

SEQ 10

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

PAGE 10

5.3.3.3

AT TEST 1

AFTER

~CZDHG-C" HAS BEEN TYPED,

THE PROGRAM WILL RESUME TESTING

9
10

5.3.4

MALT

13
14

ROUTINE WILL BE DISPLAYED IN RO.

1;’
1

5.3.5

59
0

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR

23
24
gz

5.3.6

;

27
28

PROGRAM OPERATION WITH SW1S5=1

SAME AS 5.3.1,
AFTER

EXCEPT

THE

THAT IN THE CASE OF AN ERROR,

ERROR TYPEOUT,

AND THE PCe2 OF

THE

CALL

PROGRAM
TO

THE

WILL

ERROR

PROGRAM OPERATION WITH SW13=1

PROGRAM OPERATION WITH SWii=1

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

5.3.7

31
32
33
34

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

39
40

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

i
38

41
42
43

PROGRAM OPERATION WITH SW10=1

PROGRAM OPERATION WITH SWi4=1, OR SW09=1
SEE

SECTION

C70HG-CO

44
45
46
47
48
49
$0

31
52
53
4
33
36
37
58

MACRO v04.00

SEQ

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

6.0

ERRORS

6.1

ERROR HAL1S

THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS IS AS FOLLOWS

PCe2

MESSAGE
HEADER (IF APPLICABLE)
DATA
(IF APPLICABLE)

WHERE
PCs2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER

+ 2;

MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE;
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW;
DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF
THE
FAILURE.

MACRO V04.00

SEQ 12

27 JUNM-35 13:01:48 PAGE 11}

OCRNVPRE

CzonG CO

PAGE

THE

SAME

ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS,

%Spea’S%IITED MITH THAT ERROR,
Y

ONLY DATA IS TYPE ON

AND IF

SUCCEEDING

DATA

ERROR

IFPENg DATA IS ASSOCIATED WITH THE ERROR THE COMPLETE ERROR MESSAGE
TYPED.

6.1.1

ERROR DESCRIPTIONS

SEE LISTING FOR OETAILS OF ERRORS

6.2

6.2.1

ERROR RECOVERY

5Wi5=0

IF THE PROGRAM IS RUN WITH SW15=0,
CONTINUE TESTING

REQUIRED

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

THE

6.2.2

6.2.3

NG OPERATOR ACTION IS

SW15=1

ILLEGAL INTERRUPTS

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED DURING PROGRAM
INITIALIZATION, THE PROGRAM WILL HALT IN THE TRAPCATCHER.
THE ADDRESS
AT WHICH THE PROGRAM HALTS IS 2 GREATER THAN THE ADORESS TO WHICH THE
INTERRUPT
OCCURED,
THE PROGRAM MUST BE RESTARTED AT 200 TO RECOVER

FROM THIS ERROR.

6.3

SCOPE LOGPING

CZDHG €O

MACRO v04.00

SEQ 13

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

5
3

10
11
12
13
1

lg
1
18
19
20
21
22
23
24
23
26
27

PAGE 12

6.3.1

70 SCOPE ON A SPECIFIC TEST,

6.3.3

PROGRAM START TO SCOPE LOOP ON SELECTED TEST

PERFORM SECTION 4.3.4 WITH SiWi4=i

7.0

RESTRICTIONS

7.1

STARTING

THE DH11 TEST CARD MUST BE INSTALLED

7.2

33
34
33
36
37

THIS

WILL

AND MWILL

6.3.2
TO SCOPE ON A SPECIFIC VALUE OF A PATAMETER WITHIN A TEST,
SET
SW09=1
TO FREEZE
THE OATA.
(SEE
LISTING
FOR
THOSE
TESTS THAT
INCORPORATE THIS FEATURE)

29
30
31

SET SWi4=1 AND SWi3=1.

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

NONE

RUNNING

CZ0MHG-CO
38
39

40
41
42
43
44
45
46
47
48
49

50
51
52
53
54
55
56
57
58

MACRO VO4.00

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

MISCELLANEQUS

8.1

EXECUTION TIME

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

8ELOW
TIME
PROCESSOR

POP-11/05,10
POP-11/20
PDP-11/40
PDP-11/45

SEQ 14

VO -JONE
WM

CZ0MG-CO

MACRG V04.00

27-JUN-85

13:01:48 PAGE

SEQ 15

PAGE

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, AND
THEN WAITS FOR THE SILO
TO
BE
EMPTIED
BY
THE
RECEIVER
INTERRUPT
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
WAS SET AND THAT SILO OVERRUN WAS NOT
SET.
IT THEN READS THE RECEIVED CHARACTER FROM THE SILO, EXTRA"TS 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
B80TH
1IN
INTERRUPT
MODE,
BUT
THE
SILO
ALARM LEVEL
IS SET 10 63 (DECIMAL)
CHARACTERS, AND A CHARACTER AVAILABLE INTERRUPT SHOULD NOT OCCUR.
THE RECEIVER IS SERVICED ON A
PER
CHARACTER
BASIS
BY
CONTINUOUSLY
TRYING
TO
REAC 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 SEY.
IF THIS FLAG IS NOT
SET, THE TRANSMITTER IS RESTARTED FOR THE
LINE WHOSE
NEXT
EXPECTED
RECEIVED CHARACTER INCREMENTED TO O.
WHEN THE END OF TRANSMIT FLAG IS
SET, NO LINES ARE RESTARTED, THE SILO IS EWPTIED
OF
ALL REMAINING
CHARACTERS, AND THE TEST IS RESTARTED IF ITERATIONS ARE NOT INHIBITED.

10.0

LISTING

MACRO VO4.00

27-JUN-85 13:01:48 PAGE

SEQ 16

; DHMAC-A - DM11 MACRO LIBRARY
:

LIST
.NLIST

DIGITAL EQUIPMENT CORP.,

MAYNARD,

MASS.

01754

MC,MD,CND

=2 pos oo

S YO
- XX NOVN SN

CZDOHG-CO

158
167
303
339

373

520
563
5935

607
652
664
691

712
743
744
745
746
747
748
TRAPS.”
749
750

CLEAN END OF PASS
MESSAGE.

CMS REPLACEMENT HISTORY

H *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 SOURCC FIXED*"
H %7 SKONETSKI 22-APR-1985 16:26:04 “ADDED CODE TO SET VETTORS FOR PWR FAIL, ERRORS, AND EMT

46 SKONE TSKI 22-APR- 1985 14:22:35 “FIXED BRANCH ERROR IN END OF PASS ROUTINE”
45 SKONETSKI 22-APR-1985 ©8:28:54 “FIXED BUG (AN OCTASC MACRO CALL WAS WRONG) AND ADDED A

751
752
753

o4 SKONETSKI 18-APR-1985 14:20:15
3 SKONETSKI 12-APR- 1985 10:34:52

754

sl SKONETSKI 11-APR-1985 15:49:05 "LIBRARY FOR OM11 DIAGNOSTICS”

TCH REGISTER*

;

“ADDED SOFTWARE SWITCH REG SUPPORT, BUT UNTESTED*
“FIXED PROBLIMS WITA SPURIOUS CR/LFS*

&2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SM. THAT SIZES FCR SOFTWARE SWI

CZoMG-Co

MACRO VO4.00

27-JUN-85 13:01:48 PAGE

SEQ 17

(S R7 1,V

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

: STARTING PROCEDURE
;LOAD PROGRAM
;:LOAD ADDRESS 000200
;PRESS ST ART
;PROGRAM WILL TYPE DH11 SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST
: PROGRAM WILL TYPE “VECTOR ADDRESS-”
;TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
:FOR THE DH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
: PRCGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”
;TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
i 3
;FOR THE OH11 TC BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
; PROGRAM WILL TYPE "R TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE
;AND THEN RESUM TESTING

“ CZOHG-CO

LTITLE
CZDHG-CO
.ENABLE ABS
.NLIST
MC.MD,CND
ME
LLIST
.SYMBOLS

000000

6 0C0000

;:SWITCH REGISTER OPTIONS
100000
040000
020000
010000
004000
02000
001000
000400
300100
000040
000020
000010
000004
000002
000001

SW15=100 000
SW14+40000
SW13=20000
SH12=10000
SW11=4000
SW10=2000
SH09=100 0
SWOE =400
SH06=100
SW05=40
SW04=20
5W03=10
SW02=4
SHO1=2
SW00=1

;=1,HALT ON ERROR
;=1,L00P ON CURRENT TEST

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

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

: 3

CZOMG-CO

MACRO VO4.00

SEQ 18

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

:REGISTER DEFINITIONS
000000
000001

RO=%0
Rl=¥1

:GENERAL REGISTER
;:GENERAL REGISTER

000003
200004
000005
000006
000007

RI=%3
R4=%4
RS=45
SP=%6
PC=%7

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

000002

177776
013752

R2»=%2

;GENERAL REGISTER

;LOCATION EQUIVALENCIES

; 3

:SWR=177570
;:LIGHTS=177570

; 4
; 4

;CONSOLE SWITCH REGISTER
;PDP-11/45 DISPLAY REGISTER

PS=177776
;PROCESSOR STATUS WORD
STACK=ENDCOD+200
:START OF PROCESSOR STACK

; 3

;INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
02262¢

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

;:DECREMENT PROCESSOR STACK 1 WORD
; INCREMENT PROCESSOR STACK 1 WORD
$sSAVE RO ON STACK
;:RESTORE RO FROM STACK
;DECREMENT STACK TWICE
sINCREMENT STACK TWICE

.MACRO

$A
$A

L.ENOM

1 000000

100000
040000
020000
010000
00,000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

HLT
EMT
HLY

B8I715=100000
BIT14=40000
8I713=20000C
B8IT12=10000
BIT11=4000
8I710=2000
8I709=1000
81708=400
BIT07=200
B8IT06=100
BIT05=40
8I7T04=20
BIT03=10
BIT02=4
BIT01=2
BIT00=1
.CATCH

;

CZDHG-CO

MACRO VO4.00

000000
000200

s TRAPCATCAER FOR ILLEGAL INTERRUPTS

.=0
.REPT 200
ENOR

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030
000032

000002

.42

;UNEXPECTED TRAP TO THIS LOCATION

.42

;UNEXPECTED TRAP TO THIS LOCATICN

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

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

HALT

000000

HALT

000000

HALT

000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134

000000
000046
000000
000052
000000
000056
000000
000062
000000
000066
000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
006136

HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
.+2
HALY
.+2
HALT
.+2
HALTY
.42
HALY
.+2
HALT
.+2
HALT
.+2
HALT
.42
HALT
.2
HALT
.+2

000140
000142
000144

000142
000000
000146

.42
HALY
.42

000034

000036
¥00040
0C0042
000044
000046

000136

000006
000000
000012
000000
000016
000000
000022
000000
000026
000000
000032
000000
000036
000042

000000

SEQ 19

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

.42

HALT

;EXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

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

;EXAMINE STACK TO FIND CAUSE

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

CZ0MG-CO

SEQ 20

MACRO VO4.00 27-JUN-85 13:01:48 PAGE 17-1

000146 000000

HALT

1EXAMINE STACK TO FIND CAUSE

000152 000000

HALT

JEXAMINE STACK TO FIND CAUSE

000166

HALT

000150

000152

000154
000156
000160
000162
000164

000156
000000
000162
000000
000166

000170

000172

000174

000000
000000

000176

02
HALT
Y]
HALT
o2

JUNEXPECTED TRAP TO THIS LOCATION
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
1UNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE

STACK

TO FIND CAUSE

.02

JUNEXPECTED TRAP TO THIS LOCATION

. +2

JUNEXPECTED TRAP TO THIS LOCATION

HALT

1EXAMINE

STACK

TO FIND CAUSE

000176
000200
000202
000204
000206

000000
000202
000000
000206
000000

HALT
o2
HALT
Y]
HALT

000212

000000

HALT

000000

HALT

000222
000224
000226
000230
000232
000234
000236
000240
000242
000244

000000
000226
000000
000232
000000
000236
000000
000242
000000
000246

HALY
02
HALT
02
HALT
.02
HALT
02
HALT
RY]

JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
1UNEXPECTED TRAP TQ THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
1UNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
1UNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TC THIS LOCATION

000250

000252

JUNEXPECTED TRAP TO THIS LOCATION

000254

000256

000260
000262
000264

000262
000000
000266

000270

000272

000274
000276
000300

000276
000000
000302

000304

000306

000310
000312
000314

000312
000000
000316

000210

000212

000214

000216

000220

000222

000216

.02
¥

1EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATICN
sEXAMINE STACK TO FIND CAUSE

JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

1UNEXPECTED TRAP TO THIS LOCATION

000246 000000

HALT

000252 000000

HALT

000236 000000

HALT

000266 000000

HALT

000272 000000

HALT

000302 000000

HALT

JEXAMINE STACK TO FIND CAUSE

00030¢

000000

HALT

1EXAMINE STACK TO FIND CAUSE

000316 000000

HALT

000322 000000

HALT

000320

000322

000324
000326

000326
000000

o2
HALT
o2

L o2

Y]
HALT
o2

Le2

o2
HALT
RY]
.02

.42
HALT

1EXAMINE STACK TO FIND CAUSE

sEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK 70 FIND CAUSE
1UNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK 70 FINO CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION
JEXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION

1UNEXPECTED TRAP TO THIS LOCATION
JUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
JUNEXPECTED TRAP TO THIS LOCATION

JEXAMINE STACK TO FIND CAUSE

JUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

1UNEXPECTED TRAP TO THIS LOCATION
EXAMINE STACK TO FIND CAUSE

——

CZ0MG-CO
000330

000332

MACRO VO4.00
000332

sUNEXPECTED TRAP TO THIS LOCATION

.e2
HALY
.+2

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

000000

HALT

000000

HALT

000344
000346
000330

000346
000000
000352

000354

000356

000360

000362

000336

HALT

000342

000352

;UNEXPECTED TRAP TO THIS LOCATION

000000

000340

000342

.+2

HALT

000336

SEQ 21

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

000000

000334

000336

.42

;EXAMINE STACK TO FIND CAUSE

:EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

000000

HALT

000362

000000

HALT

000366

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000376

000000

HALT

;EXAMINE STACK TO FIND CAUSE

0C0406

000000

HALT

000412

000000

HALT

000000

HALT

000422

000000

HALT

000426

000000

HALT

000432

000000

HALT

000436

000000

HALT

000000

HALT

000000

HALY

000000

HALT

000000

HALY

000000

HALTY

000466

000000

HALT

000472

000000

HALY

000476

000000

HALT

000000

HALT

000000

HALT

000364
000370

000372
000374

000400
000402
000404
000410

000366
000372
000376

000402
000000
000406

000412

000414

000416

000420

000422

000416

000424

000430
000434

000440

000442

000426
000432

000436
000442

000444

000446

000450

000452

000446

000452
000454

000456

000460

000462

000456

000462
000464

000470

000474
000500

000502

000504

000506

000510

000466
000472

000476
000502
000506

000512

.42
.2

. +2
.+2

.42
HALT
.42
.42
.+2

.+2

.42

.*2
.2

. +2

.+2

.2
.*2

.2
.*2
.02
.42
.42
.42
.2

;EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

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

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

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

;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

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

CZOHG-CO
000512
000514
000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542
000544
000546
000550
000552
000554

000560
000562
000564
000566
000570

000000
000516
000000
000522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546
000000
000552
000000
000556
000000
000562
000000
000566
000000
000572

000574
000576
000600

000576
000000
000602

000604

000606

000610

000612

000614

000616

000620

000622

000624

000626

000630

000632

000634

000636

000556

000572

SEQ 22

MACRO VO4.00 27 -JUN-85 13:01:48 PAGE 17-3
HALT
+2
HALT
L+2
HALT
o2
HALY
o2
HALT
Y
HALT
02
HALT
Y
HALT
02
HALT
RY
HALT
o2
HALT
. +2
HALT
o2

;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOGCATION
:EXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK T FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
{EXAMINC STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

.42
HALT
RY]

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

000000

HALT

000602 000000

HALT

000606 000000

HALT

000612 000000

HALT

000616 000000

HALT

000622 000000

HALT

;EXAMINE STACK TO FIND CAUSE

000626 000000

HALT

sEXAMINE STACK TO FIND CAUSE

000632

000000

HALT

000636 000000

HALT

000642 000000

HALT

000646 000000

HALT

000652

000000

HALT

000656 000000

HALT

000662 000000

HALT

000666

HALT

000640

000642

000644

000646

000650

000652

000654

000656

000660

000662

000664

000666

000670
000672

000672
000000

000000

2
Ry

.02

RY]

.02

. o2
Ry

;EXAMINE STACK TO FIND CAUSE

{EXAMINE STACK TO FIND CAUSE

{UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

{UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

{UNEXPECTED TRAP TO THIS LOCATION
JUNEXPECTED TRAP TO THIS LOCATION

{EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK TO FING CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

;UNEXPECTED TRAP TO THIS LNCATION

;EXAMINE STACK TO FIND CAUSE

. +2

jUNEXPECTED TRAP TO THIS LOCATION

;UNEXPECTED TRAP TO THIS LOCATION

L+2

42
HALT

;EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

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

SEQ 23

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

000676
000000
000702
000000
000706
000000
000712
000000
000716
000000
000722
000000
000726
000000
00052
000000
000736
000000
000742
000000
000746

.42
HALT
.2
HALT
.42
HALT
.4e
HALT
.+2
HALT
.42
HALT
.42
HALT
.+2
HALT
.42
HALT
.+2
HALT
.2

:UNEXPECTED TRAP TO YHIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
:UNEXPECTED TRAP TO THIS ) OCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
:UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TQO THIS LOCATION

000756

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000762

000000

HALT

000766

000000

HALT

000772

000000

HALT

000776

000000

HALT

000746
000750
0C0752
000754

000760
000764
000770

000774

1 001000

000000
000752
000000
000756

HALT
.42
HALT
.42

000762

.+2

000766

.+2

000772

.42

000776

.+2

.SETVEC

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

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

: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

xes

000674
000676
000700
000702
000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742
000744

MACRO V04.00

CZOMG -CO

000200

MACRO VO4.00

000200
000167

000600

SEQ 24

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

.=200

;STANDARD INTERRUPT VECTORS
JMP

START

;GO TO START OF PROGRAM
[

C2oMG-CO

. TRPDEF

1 000204

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

000204
000204

00204
000204

000204
000204

onbwn

000204

104400
000001

104401
000002
104402
000003

104403
000004
104404
000005

104405
000006

104406
000007
104407
000010
104410
000011

TRPDEF

SCOPE, t/SCOPE LOOP AND ITERATION HANDLER/
$C$P§-TRAP¢Y
;SCOPE LOOP AND ITERATION HANOLER

TRPDEF

TYPE,t/TELETYPE OQUTPUT ROUTINE/
TYPEITRAPoY
;TELETYPE QUTPUT ROUTINE

TRPDEF

OCTASC,+/70CTAL TO ASCII CONVERSION/
$C$A§C-TRAPOY
sOCTAL TO ASCII CONVERSION

TRPDEF

INSTR, t+/INPUT ASCII STRING/
INST?-TRAPoY
sINPUT ASCII STRING

sYe

Y=Y+

sYe

TRPDEF
TRPDEF

Y=Ye

INSTER, +/STRING INPUT ERROR/
INSTER=TRAP+Y
;STRING INPUT ERROR

Y=Yel

PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/
schg'TfilPoY
;CONVERT STRING TO OCTAL,

CHECK LIMITS

sYe

TRPOEF

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

TRPOEF

RESOS, t/RESTORE RO-RS/
$E$O§'TRAPOY

YsYel

;RESTORE RO-RS

sYes

TRPDEF

SCOPEL, t/CHECK FOR FREEZE ON CURRENT DATA/

SCOPEL-TRAP.Y
sYe

.MACRO
.ENDM
.START

CODEM1

HOV

INC

DHSSR, DHSLR
DHSLR

sCHECK FOR FREEZE ON CURRENT DATA
sSET_UP ADDRESS OF SILO

sSTATUS REGISTER HIGH BYTE

OHRVEC,3,4,DHSCR,0,177776,7.10,,.1

C20mG -Co

MACRO V0O4.00

SEQ 25

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

001000

.- 1000

001046
001052
001036

001062
001066
001072
001076

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

005777
000405
012767
005067

001134

003726
005726
012667
012667
104401
005767

001160

001004

START:

MOV
MOV
MOV
MOV
MoV

#340,PS

;LOCK QUT INTERRUPTS
1SET UP PROCESSOR STACK
3+ POINT TO VECTOR AREA
sSET UP POWER FAIL TRAP

000340

MOV
MOV
MOV
CLR
CLR

011116
000340
010762
010716
010714
010704

010700
176702
176700
001122
177660
000176
177646

176642
176634
012662
030656

176670

177650

1s:

24:

CLR
CLR
CLR
MoV
MOV
Hov
TST
BR

MOV
CLR
157

187
MOV

JIF N8
IFF

.ENDC
JF NB
SIZE:
1s:
24:

#STACK,SP

424 ,R2
SPFAIL ,(R2)+
€340, (R2).

#ERRORS,

#TRPSRV, (R2).
4340, (R2)
STFLG
PASCNT
ERRCNT
ERRFLG
ERRFLG
4, -(5P)
s, 4
SSWR
24
#176,

LIGHTS

<
CLR
MoV
ST
B8R
MOV
SuUB
MoV

SWR

(SP)+
(SP)+
(SP).+, 6
(SP)+, 4
MTITLE
INIFLG

BEGIN
RO

024,004

(RO)-

;SERVICE AT LEVEL 7
$ERROR HANDLER
1SERVICE AT LEVEL 7
sGENERAL HANDLER DISPATCH SERVICE
$SERVICE AT LEVEL 7
sCLEAR TEST START FLAG

sCLEAR PASS COUNT
1CLEAR ERROR COUNT
sCLEAR ERROR FLAG
sCLEAR LAST ERROR PC
3 PUSH TRAP VECTOR

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

MoV
TYPE
187
<DHRVEC>
VECL
BNE

BNE

(R2)+

14
RO.HCORE
#2 ,HCORE
46,904

(- ENESENES KR

001036
001042

012722
012722
012722
012712
005067
005067
003067
003067
0035067
016746
016746
012767

176764

3 SWITCH DHSCR ADDRESS
3 LIGHTS

s+ POINT TO SOFT SWITCH DHSCR
: O MEANS WE ARE NOT GOING TO USE

+ CLEAN UP STACK

sTYPE TITLE MESSAGE
sCHECK INITIALIZATION FLAG

+IF NOT O, CHECK SWITCHES
;FOR REINITIALIZATION

1IF NOT O, START TEST

sSET UP TIME OUT RETURN
sWILL TRAP WHEN NO MEMORY

sLOCATION RESPONDED, CONTINUE
sRO CONTAINS ADDRESS OF
sNON EXISTANT MEMORY
tRESTORE TRAPCATCHER

0&.&“2&.0...0

001032

000340
013752
000024
012512
000340
010704

177570
177570

o we we oo

012767
012706
012702
012722
012722

.WORD
.WORD

[Tos o0 o

001004
001012
001016
001022
001026

SWR:
LIGHTS:

e we we

177370
177570

201000
001002

LR
X )

;PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
:SEY UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
sCLEAR PROGRAM FLAGS AND COUNTS
sTYPE T1 TLE MESSAGE
.IIF N8 <>,
;DETERMINE MEMORY SIZE
.IIF NB <>,
sSET UP TRACE TRAP RETURN

L2006 -CO

MACRO V04.00

-ENDC
<>
.IF NB
TRACER : nov

14:

001162

001164
001172
001174
001174
001200

C01204

001210
001212
001214
001216
001220
001224

001226
001230
001232
001234
001236

001240
001242
001243
001244
001246
001230
001232
001234
001256
001260
001261

.ENDC
IF N8
JIF 8

000404

IFF

032777
001443

000001

012701

000300
000302
000004

012702
012703
010211
0035012
060301
060302
020127
001371

SEQ 26

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

177606

.ENDC
VEC1:
VEC2:

14:

001000

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

B8R

VEC2

TST
BEQ

INIFLG
VEC2

sIF INITIALIZE FLAG=0
sGET VECTOR AND CSR ADDRESS

8IT
BEQ

#5H00, BSWR
GEGIN

sIF SWOO=1, GET NEW VECTOR
sAND CSR

MOV

4300,R1

MOV
MOV
MOV

#302,R2
®4,R3
R2,(R1)

R1,01000

CLR
ADD
ADD

INSTR
MVECTOR
PARAM
300

012753
104405
000300
000770
011766
003
004
104403
012777
104405
000000
177776
011744
007

+SET UP TLLEGAL INSTRUCTION TRAP RETURN
;D0 11740, 11/45 INSTRUCTION
111740,45 RTT RETURN FROM TRACE TRAP

BNE

104403

#14,8010
RO
MRTT, TRTRET
24
ORTI,TRTIRET
12,8010
#TRTRET, 9016

SXT
MoV
BR
MOV
MOV
nov

: 4
IRESTORE TRAPCATCHER

(R2)
R3.R1
R3,R2

1IN FLOATING VECTOR AREA

s INPUT ADDRESS OF DEVICE VECTOR
sMESSAGE "VECTOR ADDRESS-*
sCONVERT STRING TO OCTAL
;LOW LINIT

770

.BYTE
.BYTE

sHIGH

DHRVEC
3

001262
001262
001270

016767
005267

010474
010470

001274
001300
001302

005767
001002
005167

010536
010530

010474
.ENDC

1LSB MASK

INSTR
MREGARD
PARAM

s INPUT ADDRESS OF DEVICE CSR
sMESSAGE "CONTROL REGISTER ADORESS-*
s+CONVERY STRING TO OCTAL
LOM LINIT

1tHIGH LIMIT

DHSCR

sLOCATIONS TG BE FILLED

7
10

sNUMBER OF LOCATIONS
1LSB MASK

<i>

CODEM1
MoV
IN

DHSSR, DHSLR
OHSLR

157

INIFLG

SNE
con

sNUMBER OF LOCATIONS

1717776

.BYTE
.8YTE
.ENDC
.IF N8

LIMIT

sLOCATIONS TO BE FILLED

010

) 4

BEGIN
INIFLG

sPROGRAM STARY

)

1SEY UP ADORESS OF SILO
1STATUS REGISTER NIGH BYTE
1IF INITIALIZATION FLAG

1IS CLEARED
1SET IT

sCHECKX FOR PROGRAM START AT SELECTED ADDRESS

;) 3

CZOMG-CO

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

MACRO VO4.00

012767
012706
032777
001410
104403
013166
104405
000000
017500
012004
001
001
000410
012767
005767
001004
005167
104401
000177

000340
013752
000002

27-JUN-85 13:01:48 PAGE

176462

BEGIN:

177452

MOV
Mov
B8IT
BEQ
INSTR
MTSTPC
PARAM
0

SEQ 27

19-2

9340,PS
#STACK,
SP
:%HOI.OSHR

sLOCK QUT INTERRUPTS
$SET UP PROCESSOR STACK

:IF SWO1=1
$GET PC FOR PROGRAM START
$GET PC
sMESSAGE "TEST PC*
sCONVERT STRING TO OCTAL

17500

BYTE
.8YTE
001400
010456

010450
013162

010404

010426

1%:

2%:

3s:

RETRN

BR
MOV
TST
BNE
CoM
TYPE
P

1l
0T1,RETRN
STFLG
38
STFLG
MR
SRETRN

sNORMAL START, TEST 1
sIF LOOPING, BYPASS TYPEOUT

sTYPE “R" TO INDICATE START
:START TESTING

oeJneLN

CZDMG-CO

MACRO VO4.00

SEq 28

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

LINE=0

000000
000000
000001
000001
000020

XLINE=1 INE

BITXs}
XBIT=BITX
.REPT
20
POPOVER \LINE,\BITX
NLIST
LINE=LINE.1
BITX=BITX+BITX
.LIST
.ENOR
POPOVER \LINE,\BITX

001400

;:RECEIVER PARITY LOGIC TEST ON LINE O.
: TRANSMIT ONE CHARACTER TO THE RECEIVER

sWITH ODD PARITY SET,BREAK SET,HDX SET.
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
;WITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN

;CHARACTER LENGTH: 8 BITS
;sLINE SPEED: 9600 BAUD
001400
0C1400
001406
001414

012767
012767
012767

000340
000010
001540

176370
010376
010364

001422

012767

001470

010360

001430
001436

004000
000000

010306

001442

000002
012777
012703
012705

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

1777177

010256
010246
010246
010236

001542

104003
104200
00C€ .01
00000

18
T1:

JFNB
.ENDC
XN=XN+1

130000

012046
000001
000001
010220

010214

1%:

2$:

\XN,10,44,1¢
MOV
#340,PS
MOV
€10, ICOUNT

MOV

dae
MOV

MOV
MOV
Mov

83 ,ESCAPE

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

1% ,FREEZ)

sSET UP TO LOOP WITH DATA

MOV
MoV
MoV

48IT11,.80HSCR
sMASTER CLEAR INTERFACE
40,R3
$1SET UP LINE @
#0+400+130000,R5
;SET EXPECTED LINE NUMBER
sVALID DATA FLAG,
sPARITY ERROR,DATA OVERRWN,
;AND EXPECTED DATA
#377,TDATA
sACTUAL DATA TO BE TRANSMITIED
#0,80HSCR
;SELECT LINE O
473563, 90HLPR
sSELECT 8 8ITS/CHAR,00D PARITY HDX,

MOV
Mov
MOV
MoV

#-1,80H3C
STODATA
, 90HBA
#1 ,80HBCR
#1,8DHBAR

BPL

15718

MOV

SDHSCR

19600 BAUD SPEED FOR LINE O
s TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMITTED DATA
sSET BREAK FOR LINE 0.

$START TRANSMITTER
+WAIT FOR CHARACTER TO BE RECEIVED
i

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

e
Y|
BEQ
3
HY
1DATA ERROR
3
M7
4%:
SCOPE
;CHECK FOR ITERATIONS,LOOP
LINE=LINE-1
BITX=BITX+BITX
POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 1.

CZ0HG-CO

MACRO VO4.00

SEQ 29

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

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
tWITH EVEN PFRITY AND THEREBY
;CAUSE A PARITY ERROR AWD OVERRUN
sCHARACTER 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

004000
000001

010144

1S
T2:

JIF NB

.ENDC

XN=XNe+1

130400

\XN,10,4%,1$
MOV
#340,PS
MOV
910, ICOUNT
MOV
44 ,ESCAPE
<18
MOV
01$,FREEZL

MOV
MOV
MOV

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

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

:VALID DATA FLAG,

;PARITY ERROR,DATA OVERRUN,

001610
0C1616
001624

012767
o211
012777

000377
000001
073563

910230
010120
010116

001632
001640

012777
012777
012777
012777
105777
100375
017701
020501
001401

1277177
012046
000002
000002
010056

010114
010104
010104
010074

001646

001654
001662
001666
001670
001674
001676
001700
001700
001702

001704

MOV
MOV
MoV
13:

2s:

010052

MoV
MOV
MOV
MOV
;gta
L
MOV
gg:

;AND EXPECTED DATA
sACTUAL DATA TO BE TRANSMITTED
;SELECT LINE 1
;SELECT 8 BITS/CHAR,0DD PARITY HDX,
;9600 BAUD SPEED FOR LINE 1
#-1,80H8C
;TRANSMIT 1 CHARACTER
¢TDATA, GDHBA
;ADDRESS OF TRANSMITTED DATA
#2,90HBCR
;SET BREAK FOR LINE 1.
#2,80HBAR
;START TRANSMITTER
ggusca
;WAIT FOR CHARACTER TO BE RECEIVED
;
SDHNRC ,R1
:GET RECEIVED CHARACTER
Rsin1
;COMPARE EXPECTED AND RECEIVED DATA
#377,TOATA
#1,90HSCR
#73563,80HLPR

«®

HLT
3
;DATA ERROR
emT
3
44:
SCOPE
;CHECK FOR ITSRATIONS,LOOP
LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

104003
104400
000002
000004

sRECEIVER PARITY LOGIC TEST ON LINE 2.
;TRANSMIT ONE CHARACTER TO THE RECEIVER
;MITH 00D PARITY SET,BREAK SET,HDX SET.
;THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
;MITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AND OVERRUN
;CHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD

001704
001704
001712
001720

012767
012767
012767

000340
000010
002044

176064
010072
010060

001726

012767

001774

010054

13:;
IF NB

\XN,10,48,18

MOV
MOV

#340,PS
#10, ICOUNTY

;:DISABLE ALL INTEPRUPTS
;SET UP FOR 10 ITERATIONS

MOV

918 ,FREEZY

;SET UP TO LOOP WITH DATA

MOV
<id>

944 ,ESCAPE

;SET UP TO ESCAPE TO NEXT TEST

; 3

CZ0OHG-CO

001734
001742
001746

MACRO VO4.00

000004
012777
012703
012705

SEQ 30

27-JUN-B85 13:01:48 PAGE 21-°

.ENDC

004000
000002
131000

010002

XN=XN+1

MOV
MOV
MOV

#8IT11,80HSCR
;MASTER CLEAR INTERFACE
92,R3
1SET UP LINE #
#2+400+130000,RS
1SET EXPECTED LINE NUMBLR

sVALID DATA FLAC,

iPARITY ERROR,DATA OVERRUN,

001752
01760
001766

012767
012777
012777

000377
000002
073563

010066
007756
007754

001774
002002
002010
002016
002024
002030
002032
002036
002040
002042
002042
0C2044

012777
012777
012777
012777
105777
100375
017701
020501
001401

17771717
012046
000004
000004
007714

007752
007742
007742
007732

002046

007710

104003
104400
000003
000010

14:

2s:

sAND EXPECTED DATA

MOV
MOV
MOV

#377,TDATA
92 ,80HSCR
#73563,.80HLPR

MOV
MOV
MOV
MOV

€-1,80HBC
: TRANSMIT 1 CHARACTER
#TDATA, 8DHBA
sADDRESS OF TRANSMITTED DATA
4 ,9DHBCR
sSET BREAK FOR LINE 2.
94, 9DHBAR
;START TRANSMITTER
gHSCR
;WAIT FOR CHARACTER TO BE RECEIVED

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

19600 BAUD SPEED FOR LINE 2

1518
8PL
MOV
SOHNRC ,R1
:GET RECEIVED CHARACTER
RSARI
;COMPARE EXPECTED AND RECEIVED DATA
cMP
.
BEQ
HLT
3
sDATA ERROR
EMT
3
As:
SCOPE
sCHECK FOR ITERATIONS,LOOP
LINE=LINE.1
BITX=BITX+BITX
POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 3.

s TRANSMIT ONE CHARACTER TO THE RECEIVER

:WITH ODD PARITY SET,BREAK SET,HDX SET.
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
tWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
:LINE SPEED: 9600 BAUD

002046
002046
002054
002062

012767
012767
012767

000340
000010
002206

175722
007730
007716

002070

012767

002136

007712

002076
002104
002110

000005
012777
012703
012705

004000
000003
131400

007640

002114
002122
002130

012767
012777
012777

000377
000003
073563

007724
007614
007612

002136
002144

012777
012777

177777
012046

007610
007600

TS
T4:

\XN,10,.4¢,1$
MOV
#340,PS

IF NB

MOV
<1t

.ENDC
XN=XN+1

1s;

;DISABLE ALL INTERRUPTS

MOV

#10, ICOUNT

MOV

#13%,FREEZL

MOV
MOV
MOV

481711 ,80HSCR
sMASTER CLEAR INTERFACE
#3,R3
;SET UP LINE @
#3+400+130000,RS
1SET EXPECTED LINE NUMBFR
:VALID DATA FLAG,
;PARITY ERROR,DATA OVERRUN,

MoV
MOV
MOV

#377,TDATA
#3,80HSCR
473563 ,80HLPR

MOV
MOV

#-1,80H8C
ATOATA,80HBA

®4 s ,ESCAPE

;SET UP FOR 10 ITERATIONS

;SET UP TO ESCAPE TO NEXT TEST

;SET UP TO LOOP WITH DATA

;AND EXPECTED DATA

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 3
:1SELECT 8 BITS/CHAR,0DD PARITY HOX,
;9600 BAUD SPEED FOR LINE 3
; TRANSMIT 1 CHARACTER
sADDRESS OF TRANSMITTED DATA

: 3

FINHG-CO

002152
002160
002166
002172
002174
002200
002202
002204
002204
002206

002210

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

000010
000010
007852

017701

007546

100375

020501

007600
007570

MOV
MOV
1578

€10, 80HBCR
sSET BREAK FOR LINE 3.
210, BDHBAR
s START TRANSMITTER
S0HSCR
;WAIT FOR CHARACTER 70 BE RECEIVED

MOV

S0HNRC ,R1

BEQ
HLT

.+4
3

BPL

cMp

001401
104003

EMT

104400
000004
000020

S€Q 31

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

RS,R1
3

}

:GET RECEIVED CHARACTER

;COMPARE EXPECTED AND RECEIVED DATA

:DATA ERROR

;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

;RECEIVER PARITY LOGIC TEST ON LINE 4.

: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
002210
002210
002216
002224

012767
012767
012767

000340
000010
002350

175560
007566
007554

T5:
IF N8

ENOC

MOV

#1%,FREEZL

MOV
MOV
MOV

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

002232

012767

002300

007550

002240
002246
002252

000006
012777
012703
012705

004000
000004
132000

007476

002256
002264
002272

012767
012777
012777

000377
000004
073563

007562
007452
007450

002300
002306
002314
002322
002330
002334
002336
002342
002344
002346
002346
002350

012777
012777
012777
012777
105777
100375
017701
020501
001401

177777
012046
000020
000020
007410

007446
007436
007436
007426

002352

104003

104400
000005
000040

007404

\XN,10,4$,1$

MOV
MoV
"2‘3’

#340,PS
#10, ICOUNT
43 ,ESCAPE

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

:SET UP TO LOOP WITH DATA

XN=XN+1

1%:

2%:

sVALID DATA FLAG,

;PARITY ERROR,DATA OVERRUN,
:AND EXPECTED DATA

MoV
MoV
MOV

#377,TOATA
84, BDHSCR
#73563,80HLPR

MOV
MoV
MoV
MoV
15718
B8PL
MOV
cMp
BEQ
HLT

#-1,80H8C
s TRANSHIT 1 CHARACTER
#TDATA , 8DHBA
sADDRESS OF TRANSMITTED DATA
420, 80HBCR
1SET BREAK FOR LTNE 4,
#20, SOHBAR
3START TRANSHMITTER
SOHSCR ;WAIT FOR CHARACTER TO BE RECEIVED
24
;
SOHNRC ,R1
;GET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
L
3
:DATA ERROR

EMT

44:
SCOPE
LINE=LINE+1
BITX=BITX+BITX

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

;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

£20HG-CO

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

Q32

iRECEIVER PARITY LOGIC TEST
ON LINE S.

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
;WITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BI1S
sLINE SPEED:

002352
002352
002360
002366

012767
012767
012767

000340
000010
002512

175416
007424
007412

T6:
—
.

002374
002402
002410

002414

012767

000007

012777
012703

012705

002442

007406

004000
000005

007334

9600 BAUD

\XN,10,44%,14

MOV
MOV
Hg\’l

0340,PS
#10, ICOUNT
€44 ,ESCAPE

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

MOV

#14 ,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MOV

#81IT11,80HSCR
sMASTER CLEAR INTER‘ACE
#5,R3
sSET UP LINE ¢
#5+400+130000,RS
sSET EXPECTED LINE NUMBER

<1$>

ENOC

XN=XN+1

132400

MOV

sVALID DATA FLAG,

;PARITY ERROR,DATA QVERRUN,

0C2420
002426

012767
012777
012777

000377
000005

073563

007420
007310

002442
002450
002456
002464
002472

012777
012777
012777
012777
105777

177777
012046
000040
000040
007246

007304
007274
007274
007264

002500
002504

017701
020501

007242

002434

002476
002506

002510

002512
002514

100375

007306

#377,TDATA
#5,80HSCR

MoV
MoV
MOV
MOV
15718

#-1,80H8C
;TRANSMIT 1 CHARACTER
STOATA ,SDHBA
sADDRESS OF TRANSMITTED DATA
#40, GDHBCR
sSET BREAK FOR LINE S,
440, 8DHBAR
;START TRANSMITTER
SOHSCR
;WAIT FOR CHARACTER TO BE RECEIVED

MOV
cnpP

SOHNRC .R1
sGET RECEIVED CHARACTER
RS.R1
;COMPARE EXPECTED AND RECEIVED DATA

MOV

14:

2%:

001401

BPL

BEQ

HLT

104003

104400
000006
000100

:AND EXPECTEU DATA

MOV
Mev

#73563 ,80HLPR

.+4

;sACTUAL DATA TO BE TRANSMITTED
;SELECY LINE S

+SELECT 8 BITS/CHAR,ODD PARITY HDX,
$9600 BAUD SPEED FOR LINE S

;DATA ERROR

43 :
SCOPE
sCHECK FOR ITERATIONS,LOOP
LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX
;RECEIVER PARITY LOGIC TEST ON LINE 6.
s TRANSMIT ONE CHARACTER TO THE RECEIVER
;WITH 0DD PARITY SET,BREAK SET,HDX SET.
;THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AND OVERRUN
;CHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD

002514

002514
002522
002530

012767
012767
012767

000340
000010
002654

175254
007262
007250

T7:
i |

F N8

\XN,10,44,13

MOV
MOV
MOV

<1$>

#340,PS
#10, ICOUNT
44 ,ESCAPE

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

; 3

CZOHG-CO

MACRO V04.00

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

002536

012767

002604

007244

002544
002552
002556

000010
012777
012703
012705

004000
000006
133000

007172

002562
002370
002576
002604
002612
002620
002626
002634
002640
002642
002646
002650
002632
002632
002654

002636

012777

000377
000006
073563

007256
007146
007144

012777
012777
012777
012777
105777

1777717
012046
000100
000100
007104

007142
007132
007132
007122

017701
020501
001401

007100

100375

XN=XN+1

MOV

1% FREEZ:

;SET UP TO LOOP WITH DATA

MoV
MOV
MOV

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

;VALID DATA FLAG,

012777

012767

.ENDC

1s:

2%:

:PARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA

MOV
MOV
MOV

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

MOV
MoV
MOV
MoV
gglfl

£-1,80H8C
;TRANSMIT 1 CHARACTER
STOATA,BDHBA
;ADDRESS OF TRANSMITTED DATA
#100,80HBCR
;SET BREAK FOR LINE 6.
2100, 8DHBAR
;START TRANSMITTER
ggHSCR
;MAIT FOR CHARACTER TO BE RECEIVED

MoV
52:

S0HNRC ,R1
;GET RECEIVED CHARACTER
RSiRl
;COMPARE EXPECTED AND RECEIVED DATA

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 6
sSELECT 8 BITS/CHAR,00D PARITY HDX,

;9600 BAUD SPEED FOR LINE 6

. ®

HLT
3
;DATA ERROR
EMT
3
44:
SCOPE
sCHECK FOR ITERATIONS,LOOP
LINE=_INE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

104003

104400
000007
000200

sRECEIVER PARITY LOGIC TEST ON LINE 7.

sTRANSMIT ONE CHARACTER TO THE RECEIVER

sHITH 0DD 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
002636
002664
002672

012767
012767
012767

000340
000010
003016

007120
007106

002700

012767

002746

007102

002706
002714
002720

012777
012703
012705

004000
000007

007030

002724
002732
002740

012767
012777
012777

000377
000007
073563

007114
007004
007002

002746

012777

17nn

007000

000011

175112

1§
T10:
IFNB

.ENDC

XN=XN+1

\XN,10,44,19¢
MOV
#340,PS
MOV
#10, ICOUNT
MOV
#4$,ESCAPE

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

MoV

#1¢ ,FREEZL

sSET UP TO LOOP WITH DATA

MOV

#8IT11,8DHSCR

sMASTER CLEAR INTERFACE

MoV

#7+400+130000,R5

sSET EXPECTED LINE NUMBER
sVALID DATA FLAG,
;PARITY ERROR,DATA OVERRUN,
;AND EXPECTED DATA
sACTUAL DATA TO BE TRANSMITTED

MoV

133400

1%:

#7,.R3

$SET UP LINE ¢

MOV
MOV
MOV

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

MoV

#-1,80HBC

;SELECT LINE 7
;SELECT 8 BITS/CHAR,O0DD PARITY HOX,

;9600 BAUD SPEED FOR LINE 7
;sTRANSMIT 1 CHARACTER

CZoHG CO
002734
002762
002770
002776
003002
003004

003010

(3012
003014
003014

003016

003020

MACRO V04,00 27-JUN-85 13:01:48 PAGE 21-6
012777

012777
012777

012046

000200
000200

105777

006742

017701
020501

006736

100375

006770

006770
006760

2s:

MOV

#TDATA,@0HBA

TSTB

@OHSCR

MOV
MOV

BPL

MOV
CMP

001401

BEQ
MY

104003
104400
000010
000400

SEQ 34

#200,8DHBCR
#200,9DHBAR

;ADDRESS OF TRANSMITTED DATA
;SET BREAK FOR LINE 7.
sSTART TRANSMITTER

;MAIT FOR CHARACTER TO BE RECEIVED

SDHNRC.R1
iGET RECEIVED CHARACTER
RS,R1
;COMPARE EXPECTED AND RECEIVED DATA

:DATA ERROR

EMT
3
as:
SCOPE
;CHECK FOR ITERATIONS,LOOP
LINE=LINE+1
BITX=BITX+BITX
POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 10.
;TRANSMIT ONE CHARACTER TO THE RECEIVER
;WITH 0DD PARITY SET,BREAK SET,HDX SET.
; THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
;CAUSE A PARITY ERROR AND OVERRUN

;CHARACTER LENGTH: 8 BITS
;sLINE SPEED: 9600 BAUD
003,20
003020
003026
003034

012767
012767
012767

000340
000010
003160

174750
006756
006744

012767

003110

006740

012777
012703
012705

004000
000010
134000

006666

003066
003074
003102

012767
012777
012777

000377
000010
073563

006752
006642
006640

003110
003116
003124
003132
003140
003144
003146
003152
003154
003156
003156
003160

012777
012777
012777
012777

177777
012046
000400
000400

006636
006626
006626
006616

017701

006574

003042

003050
003056
003062

003162

000012

105777
100375

020501

001401

104003
104400
000011
001000

006600

T11:
.

\XN,10,44,1%

IF e

MOV
HOV
Ifli\’l

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

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

ENOC

MOV

#14$ ,FREEZL

sSET UP TO LOOP WITH DATA

MOV
MOV
MOV

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

MOV
Mov
MOV

4377, TOATA
#10, 80HSCR
#73563,8DHLPR

sACTUAL DATA TO BE TRANSHMITTED
:SELECT LINE 10
;SELECT 8 BITS/CHAR,00D PARITY HDX,

MOV
MOV
MoV
MOV

4-1,80H8C
#TDATA , SDHBA
#400, 8DHBCR
9400, 90HBAR

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

MOV

SOHNRC ,R1

XN=XN+1

14:

24:

<1$>

1578
8PL
cHp

BEQ
LN

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

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

;9600 BAUD SPEED FOR LINE 16

SDHSCR
2%

;WAIT FOR CHARACTER TO BE RECEIVED
:

RS5,R1

;COMPARE EXPECTED AND RECEIVED DATA

;DATA ERROR

.44

;GET RECEIVED CHARACTER

3
;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

i 3

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
tWITH 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
;CHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUD
003162
003162
003170
003176

0127€7
012767
012767

003322

174606
006614
006602

003204

012767

003252

006576

003212
003220
003224

000013
012777
012703
012705

004000
000011

006524

000340

000010

LE]

\XN,10,4%,13$

T12:

MOV

#340,PS

;DISABLE ALL INTERRUPTZ

IF NB

MOV
<i$>
MOV

644 ,ESCAPE

:SET UP TO ESCAPE TO NEXT TEST

.ENDC
XN=XN+1

MOV

MOV
MOV

134400

810, ICOUNT

;SET UP FOR 10 TTERATIONS

813 ,FREEZ1

#81IT11,80HSCR

;SET UP TO LOOP WITH DATA

sMASTER CLEAR INTERFACE

#11,R3
;SET UP LINE ¢
#11+400+130000,RS

;SET EXPECTED LINE NUMBER
:VALID DATA FLAG,

sPARITY ERROR,DATA OVERRUN,

003230
003236
003244

012767
012777
012777

000377
000011
073563

006610
006500
006476

003252
003260
003266
003274
003302
003306
003310
003314
003316
003320
003320

012777
012777
012777
012777
105777
100375
017701
020501
001401

177777
012046
001000
001000
006436

006474
006464
006464
006454

003322

003324

14:

2¢:

006432

;:AND EXPECTED DATA

MOV
MOV
MOV

#377,TDATA
#11,8DHSCR
973563, 9DHLPR

sACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 11
;SELECT 8 BITS/CHAR,0DD PARITY HOX,

MoV
MoV
MOV
MoV
;gIB

¢-1,80HBC
s TRANSHMIT 1 CHARACTER
STDATA , SDHBA
1ADDRESS OF TRANSMITTED DATA
#1000, BDHBCR
:SET BREAK FOR LINE 11.
#1000, SDHBAR
sSTART TRANSMITTER
ggHSCR
sWAIT FOR CHARACTER TO BE RECEIVED

noy
gg:

SOHNRC .R1
sGET RECEIVED CHARACTER
RSifll
;1COMPARE EXPECTED AND RECEIVED DATA

:9600 BAUD SPEED FOR LINE 11

» ®

HT
3
;1DATA ERROR
3
et
4%
SCOPE
;CHECK FOR ITERATIONS,LOOP
LINE=LINE+1
BITX=BITX+B8ITX
POPOVER \LINE,\BITX

104003
104400
000012
002000

sRECEIVER PARITY LOGIC TEST ON LINE 12.

s TRANSHIT ONE CHARACTER TO THE RECEIVER
:WITH ODD PARITY SET,BREAX SET,HOX SET.
s THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY

:CAUSE A PARITY ERROR AND OVERRUN

iCHARACTER LENGTH: 8 BITS
;LINE SPEED: 9600 BAUD
003324
003324
003332
003340

012767
012767
012767

000340
000010
003464

174444
006452
006440

TS
T13:

\XN,10,44,14
#340,PS
MOV
#10, JICOUNT
MOV
*44,ESCAPE
MOV

sDISABLE ALL INTERRUPTS

$§SET UP FOR 10 ITERATIONS

$SET UP TO ESCAPE TO NEXT TESY

: 3

CZOHG-CO

MACRO V04.00

003346

012767

003414

006434

003354
003362
003366

000014
012777
012703
012705

004000
000012
135000

006362

003372
003400
003406

012767
012777
012777

000377
000012
073563

003414
003422
003430
003436
003444
003450
003452
003456
003460
0C3462
003462
003464

012777

177777
012046

003466

012777
012777
012777

105777
200375
017701
020501
001401

002000
002000
006274

SEQ 36

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

JIF NB

.ENDC

XN=XN+1

006446

006336

006334

006332
006322
006322
006312

006270

1s:

2%:

18>
MOV

014 ,FREEZL

MOV
MOV
MOV

OBIT11,80HSCR
;MASTER CLEAR INTERFACE
#12,R3
;SET UP LINE ¢
9124400+130000,RS
sSET EXPECTED LINE NUMBER

:SET UP TO LOOP WITH DATA

sVALIO DATA FLAG,

sPARITY ERROR,DATA OVERRUN,
sAND EXPECTED DATA

MOV
MOV
MOV

9377, TDATA
912, 80HSCR
#73563,8DHLPR

;ACTUAL DATA TO BE TRANSMITTED
sSELECT LINE 12
;SELECT 8 BITS/CHAR,00D PARITY HOA,

MoV
MOV
MOV
HOV
1578
8PL
MOV

4-1,80H8C
4TDATA,8DHBA
92000, SOHBCR

sTRANSMIT 1 CHARACTER
+ADDRESS OF TRANSHIYTED DATA
;:SET BREAK FOR LINE 12.

#2000, BOHBAR

$9600 BAUD SPEED FOR LINE 12

:START TRANSHITTER

SOHSCR
;WAIT FOR CHARACTER TO BE RECEIVED
24
3
SOHNRC ,R1
sGET RECEIVED CHARACTER
R53R1
;sCOMPARE EXPECTED AND RECEIVED DATA

cHP
3
BEQ
HLT
iDATA ERROR
g
EMT
4%
SCOPE
sCHECK FOR ITERATIONS,LOO0P
LINE=LINE+1
BITX=BITX.BITX
POPOVER \LINE,\BITX

104003
104400
000013
004000

sRECEIVER PARITY LOGIC TEST ON LINE 13.
s TRANSMIT ONE CHARACTER TO THE RECEIVER

sWITH 0DD PARITY SET,BREAK SET,HDL SET.
:THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER

:MITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
;sLINE SPEED: 9600 BAUD
003466
003466
003474
003502

012767
012767
012767

000340
000010
003626

174302
006310
006276

003510

012767

003556

006272

003516
003524
003530

000015
012777
012703
012705

004000
000013
135400

006220

000377
000013
073563

006304
006174
006172

003534
003542
003550

012767

012777
012777

Ti4:
JIF NB

.ENDC

XN=)XN+1

\XN,10.44,%¢

MOV

#340,.PS

1DISABLE ALL INTERRUPTS

"oV

#1838 ,FREEZ2L

i1SET UP TO LOOP WITH DATA

MOV
MOV

#8IT11,00HSCR
sMASTER CLEAR INTERFACE
#13,R3
;SEY UP LINE ¢

MOV
MOV
dd

MOV

MOV
MOV
MOV

#10, ICOUNY
44, ESCAPE

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

#134400+130000,RS5

#377,TDATA
213, 80HSCR
473563, 0DHLPR

1SET EXPECTED LINE NUMBER

tVALID DATA FLAG,
1PARITY ERKOR,DATA OVERRUN,
1AND EXPECTED DATA

sACTUAL DATA TO Bt TRANSMITTED
:SELECT LINE 13
1SELECT 8 BITS/CHAR,0DD PARITY HDX,

19600 BAUD SPEED FOR LINE 13

: 3

CZoHG-Co
003556
003564
003572
003600
003606
003612
003614
003620
003622
003624
003624
003626

003630

MACRO VO4.00

012777

012777
012777

012777
105777
100375

017701
020501
001401

177777

012046
004000

004000

006132

SEQ 37

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

006170

006160
006160

006150

1%:

2%:

006126

104003

MOV

¢-1,80H8C

+ RANSMIT 1 CHARACTER

MOV

#4000, BDHBAR

sSTART TRANSMITTER

MOV
cMpP
8EQ
HLT

S0OHNRC ,R1
1GET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
.+4
3
1DATA ERROR

MoV
MoV

7578
8PL

EMT

104400
000014
010000

43
SCOPE
LINE=LINE+1
BITX=BITX+BITX

#TDATA, DHBA
#4000, SDHBCR

®OHSCR
24

1ADDRESS OF TRANSMITTED DATA
iSET BREAK FOR LINE 13.

;WAIT FOR CHARACTER TO BE RECEIVED
$

;CHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 14.

s TRANSMIT ONE CHARACTER TO THE RECEIVER
tWITH 00D PARITY SET,BREAK SET,HDX SET.
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THERESY
1CAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED:
003630
003630
003636
003644

012767
012767
012767

000340
000010

003770

174140
006146

Ti5:

006134

.
.

003652

012767

003720

006130

003660
003666
003672

000016
012777
012703
012705

004000
000014
136000

006056

003676
003704
003712

012767

012777
012777

000014
073563

000377

006142

003720
003726
003734
003742
003750
003754
003756
003762
003764
003766
003766
003770

012777
012777
012777
012777

177777
012046
010000
010000

006026
006016
006016
006006

105777

100375
017701
020501

001401

104003

104400
000015
020000

005770

005764

9600 BAUWD

\XN,10,44,14

MoV
MOV

#340,PS
€10, ICOUNT

;DISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS

MoV

€13 ,FREEZ}

$SET UP TO LOOP WITH DATA

MOV
MOV
nov

#8IT11,80HSCR
;MASTER CLEAR INTERFACE
014,RS
SET UP LINE ¢
#142400.130000,RS5
+SET EXPECTED LINE NUMBER

'fli!

44 ,ESCAPE

:SET UP TO ESCAPE TO NEXT TEST

14>

ENOC
XN=XNe¢
1

MOV

006032
006030

1¢:

24:

;VALID DATA FLAG,

#377,TDATA

tPARITY ERROR,DATA OVERRUN,
1AND EXPECTED DATA
tACTUAL DATA TO BE TRANSMITTED

MOV
MoV

014, SOHSCR
#73563,80HLPR

MOV
nov
MoV
MOV

#-1,680M8C
OTDATA , GOHBA
€10000,00HBCR
#10000,80HBAR

8PL
MOV
cre

24
i
SDHNRC ,R1
1GET RECEIVED CHARACTER
RS,R1
;COMPARE EXPECTED AND RECEIVED DATA

.7
EMY

3
3

1578

8EQ

4%:
SCOPE
LINE=LINE.]
BITX=BITX+BITX

GOHSCR

. o4

1SELECT LINE 14
;SELECT 8 BITS/CHAR,QUD PARITY HOX,
19600 BAUD SPEED FOR LINE 14

s TRANSMIT 1 CHARACTER
1ADDRESS OF TRANSMITTED DATA
;SET BREAX FOR LINE 14.
;START TRANSMITTER

;MAIT FOR CHARACTER TO BE RECEIVED

1DATA ERROR

;CHECK FOR ITERATIONS,LOOP

: 3

CZ0HG-CO

MACRO VO4.00

SEQ 38

27-JUN-85 13:01:48 PAGE 21-10
POPOVER \LINE,\BITX

003772

sRECEIVER PARITY LOGIC TEST ON LINE 15.
s TRANSMIT ONE CHARACTER TO THE RECEIVER
sWITH 0DD 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 LENGYH: 8 BITS
;LINE SPEED: 9600 BAWD
003772
003772
004000
004006

012767
012767
012767

000340
000010
004132

173776
006004
005772

004014

012767

004062

005766

004022
004030
004034

000017
012777
012703
012705

004000
000015
136400

005714

004040
004046

004054

004070
004076

004104
004112
004116
004120
004124
004126
004130
004! 30
004132

004134

012767

000377

006000

012777
012777
012777
012777
105777
100375
017701
020501
001401

177777
012046
020000
020000
005626

005664
005654
005654
005644

012777
012777

000015
073563

Ti6:
JIF N8B

ENOC

XN=XN+1

005670
005666

\XN,10,44,19

MOV
MOV
MOV

#340,PS
€10, JICOUNT
44 ,ESCAPE

tDISABLE ALL INTERRUPTS
+SET UP FOR 10 ITERATIONS

MOV

#14,FREEZ1

sSET UP TO LOOP WITH DATA

MOV
MOV
MoV

481711 ,8DHSCR
tMASTER CLEAR INTERFACE
#15,R3
SET UP LINE ¢
#15¢400+ 130000 ,R5
sSET EXPECTED LINE NUMBER

<1$>

es:

0G5622

sPARITY ERROR,DATA OVERRUN,
sAND EXPECTED DATA
sACTUAL DATA TO BE TRANSMITTED
$1SELECT LINE 1S
$SELECT 8 BITS/CHAR,0DD PARITY HDX,
$9600 BAUD SPEED FOR LINE 15
s TRANSHIT 1 CHARACTER
sADDRESS OF TRANSMITTED DATA
+SET BREAX FOR LINE 1S.
sSTART TRANSMITTER

#377,TOATA

MOV
nov
MOV
HOV
1578
BPL
MOV
ce
BEQ

#-1,68018C
OTDATA , GOHBA
$20000 , 8OHBCR
420000
, BOHBAR
SOMSCR iWAIT FOR CHARACTER TO BE RECEIVED
14
§
GDHNRC ,R1
1GET RECEIVED CHARACTER
R5,R1
sCOMPARE EXPECTED AND RECEIVED DATA
.ol

104003
104400
000016
040000

sYALID DATA FLAG,

MOV

MoV
Mov

1%:

$SET UP TO ESCAPE TO NEXT TEST

ent
4%:
SCOPE
LINE=LINE.]1
BITX=BITX+BITX

€15, BDHSCR
#73563, 00HLPR

1DATA ERROR

3
;CHECKX FOR ITERATIONS,LOOP

POPOVER \LINE, \BITX

+RECEIVER PARITY LOGIC TEST ON LINC 16.
sTRANSMIT ONE CHARACTER 7O THE RECEIVER
tHITH ODD PARITY SET,BREAK SET,HOX SET.
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER
tWITH EVEN PARITY AND THEREBY
sCAUSE A PARITY ERROR AND OVERRUN
sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAUWD
004134
004134
004142

012767
012767

000340
000010

173634
005642

T17:

\XN,10,44,1¢

MoV
MOV

9340,PS
€10, ICOUNT

1DISABLE ALL INTERRUPTS
1SET UP FOR 10 ITERATIONS

; 3

MACRO V04.00

SEQ 39

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

a——

CZDHG-CO

004150

012767

004274

005630

004156

012767

004224

005624

004164
004172
004176

000020
012777
012703
012705

004000
000016
137000

005552

000377
000016
073563

005636
005526
005524

1171777

005522
005512
005512
005502

012767

012777
012777
012777
012777
012777
012777

105777
100375
017701
020501
001401

012046
040000
040000
005464

005460

104003
104400
000017
100000

JOF N8
.ENDC
XN=XN+1

14:

MOV
A
MOV

44 ,ESCAPE

+SET UP TO ESCAPE TO NEXT TEST

014 ,FREEZL

$SET UP TO LOOP WITH DATA

MoV
MOV
MOV

#BIT11,80HSCR
;MASTER CLEAR INTERFACE
#16,R3
;SET UP LINE ¢

MOV
MoV
MOV

€377, TDATA

sACTUAL DATA TO BE TRANSMITTED

#73563 ,80HLPR

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

#-1,80H8C
STDATA , BDHBA

s TRANSHIT 1 CHARACTER
1ADDRESS OF TRANSMITTED DATA

MOV
MOV
MOV

MOV
2s:
1578
B8PL
MOV
cHe
BEQ
MLT
EMY
44
SCOPE
LINE=LINE+1
BITX=BITX+B8ITX

#164400+130000,RS

#16, SOMSCR

1SET EXPECTED LINE NUMBER
iVALID DATA FLAG,
1PARITY ERROR,DATA OVERRUN,
1AND EXPECTED DATA

sSELECY LINE 16

19600 BAUD SPEED FOR LINE 16

#40000,80HBCR
;SET BREAK FOR LINE 16.
#40000,80HBAR
;START TRANSMITTER
SOHSCR
;WAIT FOR CHARACTER TO BE RECEIVED
24
3

SDHNRC ,R1

RSiRI

tGEY RECEIVED CHARACTER

;COMPARE EXPECTED AND RECEIVED DATA

. *

10ATA ERROR

$tCHECK FOR ITERATIONS,LOOP

POPOVER \LINE,\BITX

sRECEIVER PARITY LOGIC TEST ON LINE 17.
1 TRANSMIT ONE CHARACTER TO THME RECEIVER
1WITH 00D PARITY SET.BREAK SET,MOX SET.

s THE RECEIVER MILL RECEIVE AN ALL 0'S CHARACTER
sWITH EVEN PARITY AND THEREBY
tCAUSE A PARITY ERROR AND OQVERRUN

sCHARACTER LENGTH: 8 BITS
sLINE SPEED: 9600 BAWD
004276
004276
004304
004312

012767
012767
012767

000340
000010
004436

173472
005500
005466

1£]
T20:
IF o
.

004366

004320

012767

004326
004334
004340

000021
012777
012703
012705

000017
137400

004344
004352
004360

012767
012777
0121717

000377
020017
073563

005462

005410

003474

\XN,10.4%,1%
MoV
0340,PS
MoV
910, JCOUNT
'.i!

1DISABLE ALL INTERRUPTS
1SET UP FOR 10 ITERATIONS

44, ,ESCAPE

1SET UP T0O ESCAPE TO NEXT TEST

<1$>

enoc
3%
XN=XN+

MoV

914 ,FREEZL

MoV

BIT11,.80HSCR

"oV
nov

MoV
v
nov

1SET UP TO LOOP WITH DATA
;MASTER CLEAR INTERFACE

017.R3 SET UP LINE ¢
#17+400+130000,RS

4377 ,TDATA
017, 8DMHSCR
075563 ,80MLPR

1SEY EXPECTED LINE NUMBER

sVALID DATA FLAG,
iIPARITY ERROR,DATA OVERRUN,
sAND EXPECTED DATA

sACTUAL DATA TO OE TRANSMITTED
sSELECT LINE 17
;SELECT 8 BITS/CHAR,0DD PARITY MNOX,

;s 3

CZOMG-CO

004366
004374
004402
004410
004416
004422
004424
004430
004432
004434
004434
004436

14 004440

MACRO VO4.00

012777
012777
012777
012777
105777

100375
017701
020501
001401

177777
012046
100000
100000

005322

SEQ 40

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

005360
005350
005350
005340

1$:

005316

MOV
MOV
MoV
MOV

7518

B8PL
MOV
cMP
8EQ
HT

104003
104400
000020
000000

<y
43
SCOPE
LINE=LINE+1
BITX=BITX+BITX

#-1,80H8C
OTDATA,SDHBA
€100000,80MBCR
#100000, 80HBAR

19600 BAUD SPEED FOR LINE 17

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

QOHSCR

;WAIT FOR CHARACTER 70 BE RECEIVED

+OATA ERROR

29
3
SOHNRC ,R1
$GET RECEIVED CHARACTER
R5,R1
;COMPARE EXPECTED AND RECEIVED DATA
Y)
3
;CHECK FOR ITERATIONS,LOOP

SUPERCALIFRIGILISTICEXPEHALIDOSIS

27363,000,8

sMALTI-LINE PARITY DATA TEST
s TRANSMIT A BINARY COUNT WITH ODD PARITY

1PATTERN ON ALL LINES.

;SILO ALARM LEVEL SET 10 0O
;RECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
:IN INTERRUPT MODE.

s TRANSMITTER INTERRUPT WILL BE DISABLED
sLINE SPEED: 2400 BAWD

sCHARACTER LENGTH: 8 + PARITY
012767
012767
012767

000340
000010
004706

173330
005336
005324

TS \XN,10,11$

T21:

—

MOV
nov
MOV

ENOC

MOV

#,FREEZ2)

;:SET UP TO LOOP WITH DATA

MOV
MOV
CLR

B1IT11,80HSCR
416, ,RO
R1

MOV
MoV

#200,R2
#1,R3

sMASTER CLEAR INTERFACE
:SET UP TO STARY 16. LINES
;COUNT AND BUS ADDRESS MEMORIES
:AND RECEIVED OATA STORAGE
;SET UP 10 LOAD MIGH BYTE
:OF EXPECTED DATA

MOV

#-400, 80HBC

;LOAD BYTE COUNT

004000
000020

004476
004502
004506

012702
012703

000200
000001
012050

005236

I;F

004514

012777

177400

005232

ENOC

012777

005254

XN=XN+1

.IF

.ENDC
IF
.ENOC
IF

NOC

004522

012777

027363

004530

105061

012450

005220

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

000022
012777
012700
005001

004462
004470
004474

#340,PS
€10, ICOUNT
4118 ESCAPE

’I*D)x

ION

:TgUF.I)FBA

7.8

;LOAD BUSS ADDRESS

MoV

#-200,80H8C

ION

6.8

IDN

5.8

MoV

#27363,80HLPR
:SET LINE SPEED AND
8 + ODD PARITY
LENGTH
:CHARACTER

MoV
MOV

CLRB

9-100,80H8C
9-40,80HBC

RBUF(R1)

;:LOAD BYTE COUNT
;LOAD BYTE COUNT
;LOAD BYTE COUNT

;CLEAR NEXT RECEIVED CHARACTER

CZOHG-CO

004534
004540
004544
004546
004552
004556
004560
004562
004570
004576
w4612
004616

MACRO VO4.00

110263
005277
005202
062701
062703
0053C0
001352
012777
012777
012777
012777
003067
000167

27-JUN-85

012450
005200
000002
000002
004622
000240
000100
177777
173160
000076

SEQ 41

13:01:48 PAGE 21-13

Move
INC
INC
ADD
ADD

R2,RBUF(R3)
SOHSCR
R2
#2,R1
#2,R3

MOV
MOV
MOV

9240, 8DHRL VL
€100, 80HSCR
9-1,80HBAR

DEC
BNE
MOV

005176
005172
005140
005144

CLR
JMP

RO
14
964, 80HRVEC

PS
124

1LOAD HIGH BYTE
1 ADVANCE TO NEXT LINE
tUPDATE POINTER TO
;LOW AND {IGH BYTE OF
sNEXT EXPECTED CHARACTER

sCONTINUE IF ALL LINES
sNOT SET UP

sSET UP POINTER FOR
sRECEIVER INTERRUPT

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

:RECEIVER INTERRUPT SERVICE ROUTINE
;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
004622
004626
004630
0C4636
004640

004642
004646
004650
004652

004656
004660
004662
004666
004670
004674
004674
004676
004702

004704
004704
004706

004710
004716

105777
100026
032777
001401

104002
017701
010102
000302
042702
010203
006302

026201

001403
016205
104003
105262
000002

104001
022626
012777
000411

005116
040000

6%:

005106

78:

005100

177760

012450

;SIB

gg?SCR

:IF CHARACTER AVAILABLE NOT SET, ERROR

gé;

OCSOOO.GDHSCR

;IF SILO OVERRUN SET,

WY
eMT
MOV

2
2
SOHNRC ,R1
R1,R2
R2
#177760,R2
R2,R3
R2

;SILO OVERRUN,

MOV
SWAB
8IC
MOV
ASL
ggg

Rng(RZ).Rl

ERROR

:READ CHARACTER FROM SILO
;EXTRACT LINE NUMBER

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

«?

MoV

012450

012450
10s:

004000

005026

11%:

HT
Eny
INCB
RTI

gh}

POP2SP

MOV
BR

RBUF(R2),RS5
3
3
RBUF (R2)

:GET EXPECTED DATA

;DATA ERROR

;UPDATE EXPECTED CHARACTER
: CONTINVE
;CHARACTER AVALLABLE NOT SET, ERROR

{
#8IT11,80HSCR
134

sRESTORE STACK

sMASTER CLEAR INTERFACE
sRESTART TEST

sWALIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS MAVE CLEARED,
;WAIT FOR SILO TO EMPTY
sWHEN SILO IS EMPTY, SCOPE ON TEST
004720
004724
004726
004732
004734
004742

005777
001375
105777
001375
012767
1044G0

005032

12%:

005032

000340

173034

13%:

;SE

N
1518
8NE

MOV
SCOPE

SOHBAR
.-4
SOHSLR
.-4

9340,PS

;WAIT FOR ALL BAR BITS TO CLEAR
;WAIT FOR SILO 10 EMPTY

;PREVENT INTERRUPTS
;CHECK FOR ITERATIONS, LOOP

CZOHG-CO

MACRO VO4.00

SEQ 42

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

15 004744

SUPERCALIFRIGILISTICEXPEHALIDOSIS

27323,EVEN,
8

sMULTI-LINE PARITY DATA TES|

s TRANSMIT A BINARY COUNT WITH EVEN PARITY

sPATTERN ON ALL LINES.

sSILO ALARM LEVEL SET 70 O
;RECEIVFR WILL BE SERVICED ON A PER CHARACTER BASIS
+IN INTERRUPT MODc<.
sTRANSMITTER INTERRUPT WILL BE CISABLED
;LINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 8 + PARITY
004744
004744
004752
004760

012767
012767
012767

000340
000010
005212

173024
005032
005020

TS \XN,10,11¢

T22:

IF N8
.

004766
004774
0050u0

000023
012777

012700
005001

004000
000020

004750

005006
005012

012702
012703
012777

000200
000001
012050

004732

005020

012777

177400

004726

005002

1s:
IF

.ENDC
JIF

.ENDC
IF
.ENDC

005026

012777

027323

005034
005040
005044
005050
005052
005056

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

012450
012450
004674

005062
005064
005066
005074
005102
005110
005116
005122

004714

000002
000002

005126
000240
000100
177777
172654
000076

NOC

MoV

MOV

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

¢ ,FREEZ1

;SET UP TO LOOP WITH DATA

®B1IT11,8DHSCR

;MASTER CLEAR INTERFACE

MOV
CLR

416. RO
R1

MOV
Moy
MOV
ION
nov

#200,R2
#1.R3
4TBUF , GDHBA
8,8
#-400, S0HBC

IDN
MOV

7,8
#-200, 80HBC

;LOAD BYTE COUNT

ION
nov

6,8
¢-100, 90HBC

;sLOAD BYTE COUNT

IDN

5.8

#-40,80H8C

;LOAD BYTE COUNT

MOV

027323, 8DHLPR

;SET LINE SPEED AND

CLRB
Move
INC
INC
ADD

RBUF(R1)
R2,RBUF(R3)
S0HSCR
R2
#2,R1

sCLEAR NEXT RECEIVED CHARACTER
:LOAD HIGH BYTE
:ADVANCE TO NEXT LINE
;UPDATE POINTER TO
;:LOW AND HIGH BYTE OF

DEC
BNE
MOV
MOV

RO
1
964, 80HRVEC
©240, 9DHRL VL

;CONTINUE IF ALL LINES
:NOT SET UP
+SET UP POINTER FOR
sRECEIVER INTERRUPT

mMov

ADD

004672
004666
004634
004640

@340,P5S

€10, ICOUNT
9118 ,ESCAPE

.ENDC
XN=XN+1

MOV

MoV
MoV

MOV
MoV
CLR
JMp

;5ET UP TO START 16. LINES
;COUNT AND BUS ADDRESS MEMORIES

;AND RECEIVED DATA STORAGE
:SET UP TO LOAD MIGH BYTE
;OF EXPECTED DATA
;LOAD BUSS ADDRESS
sLOAD BYTE COUNT

:CHARACTER LENGTH 8 « EVEN PARITY

#2,R3

#100,8DHSCR
#-1,80HBAR
PS
124

sNEXT EXPECTED CHARACTER

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

;RECEIVER INTERRUPT SERVICE ROUTINE

C20MG-CO

MACRC VO4.00 27-JUN-BS 13:01:48 PAGE 21-15

3
SEQ
43

sCHECK 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
005126
005132
005134
005142

105777
100026
032777
001401

005144
005146
005152
005154
005156
005162
005164

104002
017701
010102
000302
042702
010203
006302

005172

001403

005144

005166

004612
040000

004574

016205

012450

005200
0035202
0C5206

104003
105262
000002

012450

005210
005212

104001
022626

005222

000411

005214

012777

7%:

177760

012450

005210

004602

TS78
BPL
8IT
BEQ

80HSCi
104
440000, 3DHSCR
.+4

EMT
MOV
MOV
SWAB
8IC
MOV
ASL

?
8DHNRC ,R1
R1,R2
R2
#177760,R2
R2,R3
R2

BEQ

.+10

HLT

026201

005174
005200

64:

cMp

MoV
HT

10%:
004000

004522

11¢:

EMT
INCB
RTI

HLY

EMT
POP2SP

MOV
BR

:WAIT
sWHEN
sWAIT
sWHEN

005224
005230
005232
005236

005240
005246
16 005250

005777
001375
105777

004526

012767
104400

000340

001375

12%:

004526
172530

TST
BNE
1578
BNE

RBUF(R2),R1
RBUF (R2) ,RS
3
3
RBUF (R2)

#8IT11,8DHSCR
134

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

ERROR

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

:SAVE LINE NUMBER
;USE LINE NUMBER AS OFFSET

;COMPARE EXPECTED AND RECEIVED DATA
;GET EXPECTED DATA
;:DATA ERROR
;UPDATE EXPECTED CHARACTER
:COMTINUE

;CHARACTER AVAILABLE NOT SET, ERROR
;:RESTORE STACK

:MASTER C..EAR INTERFACE

;RESTART TEST

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

SOHBAR
-4
SDHSLR
.-4

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

MOV
€340,PS ;PREVENT INTERRUPTS
134:
SCOPE
;:CHECK FOR ITERATIONS, LOOP
SUPERCALIFRIGILISTICEXPEHALIDOSIS
27362,000,7
sMULTI-LINE PARITY DATA TEST
s TRANSMIT A BINARY COUNT WITH Q0D PARITY
sPATTERN ON ALL LINES.
sSILO ALARM LEVEL SET 70 O
;RECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
:IN INTERRUPT MODE.

s TRANSMITTER INTERRUPT WILL BE DISABLED
;LINE SPEED: 2400 BAUD
;CHARACTER LENGTH: 7 + PARITY
005250
005250
005256

012767
012767

000340
000010

172520
004526

7S \XN,10,11$
T23:
MOV
MOV

9#340,PS
10, ICOUNT

:DISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS

CZOHG CO
005264

MACRO VO4.00

012767

005516

004514

o
.

005306
005312

005316

005324

000024

004000
000020

012702
012703
012777

000200
000001
012050

012777

177600

004444

XN=XN+1

004426

004422

1; F
.ENDC
IF

ENDC

.ENOC
IF

ENOC

005332

012777

027362

005340
005344
005350
005354
005356
005362
005366
005370
005372
005400
005406
005414
005422
005426

105061
110263
005277
005202

012450
012450
004370

062703
005300
001352
012777
012777
012777
012777
005067
000167

;SET UP TO ESCAPE TO NEXT TEST

MoV

®,FREEZ1

;SET UP TO LOOP WITH DATA

MOV
MOV

#8IT11,8DHSCR
916.,R0

sMASTER CLEAR INTERFACE
;:SET UP TO START 16. LINES

MOV
MOV
;ng

#200,R2
#1,R3
:TgUF «S0HBA

sAND RECEIVED DATA STORAGE
;SET UP TO LOAD HIGH BYTE
sOF EXPECTED DATA
;LOAD BUSS ADDRESS

MOV

€-400, 8DHBC

;sLOAD BYTE COUNT

CLR

JIF

062701

9114 ,ESCAPE

ENDC

012777
012700

005001

MOV
<>

ENOC
005272
005300
005304

004410

000002

IDN

004366
004362
004330
004334

7.7

i 3

sCOUNT AND BUS ADDRESS MEMORIES

MOV

€-200,890H8C

IDN

6.7

IDN

5.7

#-40,80HBC

;LOAD BYTE COUNT

MOV

927362, 8DHLPR

;SET LINE SPEED AND

CLRB
Move
INC
INC

R2,RBUF(R3)
S8DHSCR
R2

:LOAD HIGH BYTE
sADVANCE TO NEXT LINE
;UPDATE POINTER TO

ADD
DEC
BNE
HOV
MoV
MOV
MOV
CLR
JMP

#2,R3
RO
1s
#64, BOHRVEC
#240, SOHRL VL
#100,9DHSCR
#-1,80HBAR
PS
124

;NEXT EXPECTED CHARACTER
sCONTINUE IF ALL LINES
;:NOT SET UP
;:SET UP POINTER FOR
;RECEIVER INTZRRUPT
;ENABLE RECEIVER INTERRUPT
;SET ALL BAR BITS
;ENABLE INTERRUPTS
;G0 TO TRANSMITTER WAITING ROUTINE

MOV

ADD

000002

005432
000240
000100
177777
172350
000076

SEQ 44

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

#-100, 80HBC

;LOAD BYTE COUNT
;LOAD BYTE COUNT

;CHARACTER LENGTH 7 + ODD PARITY
RBUF(R1)
;CLEAR NEXT RECEIVED CHARACTER

#2,R1

;LOW AND HIGH BYTE OF

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
005440
005446
005450
005450
005452
005456
005460
005462

105777
100026
032777
001401
104002

017701
010102
000302

042702

004306
040000

004270
177760

6%:
004276

7¢:

7518
8PL
BIT

BEQ
HLT

SOHSCR
104
2940000, 8OHSCR
.+4
2

MOV
MOV
SWAB

S0OHNRC ,R1
Ri.R2
R2

EMT

BIC

#177760,R2

sIF CHARACTER AVAILABLE NOT SET, ERROR
:IF SILO OVERRUN SET, ERROR

sSILO OVERRUN, ERROR
;sREAD CHARACTER FROM SILO
sEXTRACT LINE NUMBRER

CZ0KG-CO
005466
005470
0054 7¢
005476
005500
005504

005504
005506
003512
005514
005514
005516

005520

005526

MACRO VO4.00

010203
006302
026201
001403
016205

012450

104003
105262

012450

000002

104001
022626
012777
000411

27-JUN-85

012450

MOV
ASL
gg:

R2,R3
R2
RB%%(RZ).RL

MOV
HLT
EMT

RBUF(R2) ,RS
3
3

005777
001375
105777
001375
012767
104400

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

10¢:

004000

004216

11%:

004222

RBUF (R2)

sUPDATE EXPECTED CHARACTER

Eh}

;CHARACTER AVAILABLE NOT SET. ERROR

POP2SP
MOV

#B8IT11,80HSCR

;RESTORE STACK
;MASTER CLEAR INTERFACE

12%:

004222

000340

172224

sGET EXPECTED DATA
;DATA ERROR

INCB

RTI

;WAIT
;WHEN
;WAIT
sWHEN
005530
005534
0C3536
005542
005544
005552
17 005554

SEQ 45

13:01:48 PAGE 21 17

13%

: CONTINUE

;RESTART TEST

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

TST
BNE
;agB

SDHBAR
.-4
UDQSLR

MOV

340,PS ;PREVENT INTERRUPTS

134:
SCOPE
SUPERCALIFRIGILISTICEXPEHALIDOSIS

;WAIT FOR ALL BAR BITS TO CLEAR
;WAIT FOR SILO TO EMPTY
;CHECK FOR ITERATIONS, LOOP
27322,EVEN,
7

sMULTI-LINE PARITY DATA TEST
s TRANSMIT A BINARY COUNT WITH EVEN PARITY
sPATTERN ON ALL LINES.
;SILO ALARM LEVEL SET 10 O
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
005554
005554

005562
005570

012767
012767
012767

000340
000010
006022

005576
005604
005610

000025
012777
012700
005001

004000
000020

005612
005616
005622

012702
012703
012777

000200
000001
012050

172214

004222
004210

004140

004122

TS \XN,10,11%
T24:
MOV
MOV
MOV
JIF NB
<>
MOV
.ENDC
XN=XN+1
MOV
MOV
CLR

1s:
JIF

.ENDC

MOV
MoV
MOV
IDN
MOV

#340,PS

910, ICOUNT
9114 ,ESCAPE.

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

#,FREEZ1

$SET UP TO LOOP WITH DATA

#81711.80HSCR
#16. ,RO
R1

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

#200,R2
#1,R3
4TBUF , SOHBA
8,7
#-400,30H8C

$SET UP Tn LOAD HIGH BYTE
;OF EXPECTED DATA
;LOAD BUSS ADDRESS

;AND RECEIVED DATA STORAGE

;:LOAD BYTE COUNT

MACRO VO4.00 27-JUN-B5 13:01:48 PAGE 21-18

CZDHG-CO

005630

012777

177600

004116

IF
ENOC

IDN
MoV

7.7
#-200,80HBC

;LOAD BYTE COUNT

JIF

ION
MOV

6,7
¢-100,80H8C

:LOAD BYTE COUNT

.ENDC

ENOC

004104

MoV

005736
000240

004062
004056

CLR8
HOVB
INC
INC
ADD
ADD
DEC
BNE
MOV
MOV

9427322 ,80HLPR
:SET LINE SPEED AND
;CHARACTER LENGTH 7 + EVEN PARITY

RBUF(R1)
R2 ,RBUF(R3)
80HSCR
R2
#2.R1
92,R3
RO
14
964, BDHRVEC
#240,80HRLVL

;CLEAR NEXT RECEIVED CHARACTER
:LOAD HIGH BYTE
;ADVANCE TO NEXT LINE
;UPDATE POINTER TO
;LOW AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
;CONTINUE IF ALL LINES
;NOT SET UP
;SET UP POINTER FOR
;RECEIVER INTERRUPT

177777
172044
000076

004030

MoV
CLR
JMP

#-1,80HBAR
PS
124

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

027322

003644
005630
005654
003660
005662
005666
005672
005674
005676

105061
110263
005277
005202
062701
062703
005300
001352
012777
012777

012450
012450
004064

005726
005732

012777

012777
005067
000167

5.7

#-40,8DHBC

012777

005720

ION

MOV

005636

005704
005712

SEQ 46

000002
000002

000100

004024

MOV

#4100, 8DHSCR

;LOAD BYTE COUNT

;ENABLE RECEIVER INTERRUPT

;RECEIVER 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

005736
005742
005744
005752
005734
005754
003756
005762
005764
005766
008772
005774
005776
006002
006004
006010
006010
006012

006016
006020
006020
006022
006024
006032

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

7%:

177760
012450

012450
012450
104:

004000

003712

11%:

1STB
BPL
BIT
BEQ

HLT
EMY
MOV
MOV
SWAB
8IC
MOV
ASL
cHP
BEQ
MOV
HLT
EMY
INCB
RTI
HLT
EMT
POP2SP

MOV
BR

SDHSCR
104
#40000, 8DHSCR
.4
2
2
SOHNRC,R1
R1,R2
R2
®177760,R2
R2.R3
R2
RBUF(R2),R1
.+10
RBUF(R2),RS
3
3
RBUF (R2)
1
1

#81IT11,80HSCR
13%

:IF CHARACTER AVAILABLE NOT SET, ERROR

;IF SILO OVERRUN SET, ERROR
;SILO OVERRUN,

ERROR

sREAD CHARACTER FROM SILO
sEXTRACT LINE NUMBER
;SAVE LINE NUMBER
;USE LINE NUMBER AS OFFSET
;COMPARE EXPECTED AND RECEIVED DATA

:GET EXPECTED DATA
;DATA ERROR

sUPDATE EXPECTED CHARACTER
s CONTINUE
sCHARACTER AVAILABLE NOT SET, ERRNR
sRESTORE STACK

sMASTER CLEAR INTERFACE
sRESTART TEST

C20M6G-CO

MACRO VO04.00 27-JUN-85 13:01:48 PAGE 21-19

SEd a7

sMAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BIiS HAVE CLEARED,
;MAIT FOR SILO TO EMPYVY
sWHEN SILO IS EMPTY, SCOPE ON TEST
006034

006042
006030
006056
18 006060

005777
001375
105777
001375
012767
104400

003716

12¢:

003716
000340

171720

IsT
BNE
1578
BNE
MoV
SCOPE

SDMBAR
sWAIT FOR ALL BAR BITS TO CLEAR
.-4
SOHSLR
;WAIT FOR SILO TO EMPTY
.-4
4340,PS ;PREVENT INTERRUPTS
13%:
;CHECK FOR ITERATIONS, LOOP
SUPERCALIFRIGILISTICEXPEHALIDOSIS
27361,000,6
sMULTI-LINE PARITY DATA TEST

; TRANSMIT A BINARY COUNT WITH ODD PARITY
sPATTERN ON ALL LINES.
;SILO ALARM LEVEL SET TO 0O
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
s IN INTERRUPT MODE.
;TRANSMITTER INTERRUPT WILL BE DISABLED
sLINE SPEED: 2400 BAUD
sCHARACTER LENGTH: 6 + PARITY
006060
006060
006066
006074

012767

012767
012767

000340
000010
006326

171710

003716
003704

TS \XN,10,11%

T25:

006114

000026
012777
012700
005001

004000
000020

006116
006122
006126

012702
012703
012777

000200
000001
012050

003634

003616

012777

177700

003612

ENOC

MOV

012777

027361

006150
006154
006160
006164

105061
110263

012450
012450
003560

005277
005202

003600

#10, ICOUNT
#114 ,ESCAPE

;SET UP FOR 10 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

#,FREEZL

;SET UP TO LOOP WITH DATA

MOV
MOV
CLR

281711 ,8DHSCR
#16. RO
R1

MOV
MoV
ggx

#200,R2
#1,R3
:TgUF.flDHBA

;MASTER CLEAR INTERFACE
sSET UP TO START 16. LINES
;COUNT AND BUS ADDRESS MEMORIES
;AND RECEIVED DATA STORAGE
:SET UP TO LOAD HIGH BYTE
:0F EXPECTED DATA
;LOAD BUSS ADDRESS

MOV

€-400,80HBC

;LOAD BYTE COUNT

IDN
MoV

7.6
#-200, 80HBC

;LOAD BYTE COUNT

IDN

6.6

#-100,80H8C

sLOAD BYTE COUNT

ION
MOV

5,6
€-40,8DHBC

sLOAD BYTE COUNT

MOV

#27361,8DHLPR

;SET LINE SPEED AND

CLRB
MOVB

RBUF(R1)
R2 ,RBUF(R3)

;CLEAR NEXY RECEIVED CHARACTER
;LOAD HIGH BYTE
:ADVANCE TO NEXT LINE
;UPDATE POINIER TO

XN=XN+1

1;;

.ENDC
JIF
ENOC

JIF
ENOC
006142

:DISABLE ALL INTERRUPTS

IF e

.ENDC
JF

006134

#340,PS

MOV
MOV

006102
006110

MOV

MoV

INC
INC

sCHARACTER LENGTH 6 « ODD PARITY

SDHSCR
Re

CZ0HG-CO
00616€
006172
006176
006200
006202
006210
006216
006224
006232
006236

HACRO VO4.00

062701
062703

005300
001352
012777

012777
012777
012777

005067
000167

27-JUN-85

ADD

000002
000002

006242
000240
000100

177777
171540
000076

tby 48

13:01:48 PAGE 21-20

;LOW AND HIGH BYTE OF

964, 80HRVEC

;NEXT EXPECTED CHARACTER
;CONTINUE IF ALL LINES
:NUT SET UP
:SET UP POINTER FOR

#2,R3
RO
1

MoV
MOV
MOV
CLR
JMP

9240
. SOHRLVL
2100, 8DHSCR
9-1,80HBAR
PS
124

MOV

003556
003552
003520
003524

#2,.R1

ADD
DEC
BNE

;RECEIVER INTERRUPT

:ENABLE RECEIVER INTERRUPT
;SET ALL BAR BIYS
:ENABLE INTERRUPTS
iGO0 TO TRANSMITTER WAITING ROUTINE

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

006250
006256
006260
006260
006262
006266
006270
006272

006276
006300
006302
006306
006310
006314
006314
006316
006322
006324
006324
006326
006330
006336

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

104003
105262
000002
104001
022626
012777
000411

003476
040000

64:

003466

;gza

gg?SCR

:IF CHARACTER AVAILABLE NOT SEi,

gég

042000.0DHSCR

:IF SILO OVERRUN SET,

ERROR

. ¢

gh;

:SILO OVERRUN, ERROR

SOHNRC ,R1
R1,R2
R2
#177760,R2
R2.R3
R2
RBY;(RZ).RI

;READ CHARACTER FROM SILO
sEXTRACT LINE NUMBER

012450

MOV
MoV
SWAB
8IC
"oV
ASL
gg:

012450

MOV

éBUF(RZ).RS

7¢:

003460
177760

012450

10¢:
004000

003406

HLT
EMT
INCB
RTI
gh;

POP2SP
MoV
BR

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

:GET EXPECTED DATA

3
3
RBUF(R2)

;DATA ERROR

;UPDATE EXPECTED CHARACTER
s CONTINUE
sCHARACTER AVAILABLE NOT SET,

#8IT11.8DHSCR
134

sRESTORE STACK
sMASTER CLEAR INTERFACE
sRESTART TEST

ERROR

tWAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS MAVE CLEARED,
tWAIT FOR SILO TO EMPTY

)

tWHEN SILO IS EMPTY, SCOPE ON TEST
006340
006344
006346
006352
006354
006362
19 006364

005777
001375
105777
001375

012767

104400

ERROR

12%:

003412
003412

000340

171414

;S;

0028AR

;SEO

flozsLR

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

MOV
#340,PS ;PREVENT INTERRUPTS
134:
SCOPE
;CHECK FOR ITERATIONS,
SUPERCALIFRIGILISTICEXPEHALIDOSIS
27321 ,EVEN,6

sMULTI-LINE PARITY DATA TEST

LOQP

CZDOMG-CO

MACRO v04.00

SEQ 49

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

; TRANSMIT A BINARY COUNT WITH EVEN PARITY
;:PATTERN ON ALL LINES.
sSILO ALARM LEVEL SET T0 0
sRECEIVER WILL BE SERVICEL ON A PZR CHARACTER BASIS
;IN INTERRUPT TMODE.
s TRANSMITTER INTERRUPT WILL CE DISABLED
;LINE SPEED: 2400 BAUD

;CHARACTER LENGTH: 6 + PARITY
006364
006364
006372
006400

012767
012767
012767

000340
000010
006632

171404
003412
003400

TS \XN,10,11¢$
T126:

IF N8

.ENDC

006406
006414
006420

000027
012777
012700
005001

004000
000020

006422
006426
0C6432

012702
012703
012777

000200
000001
012050

003330

XN=XN+1

003312

14
IF

.ENDC
012777

177700

003306

JIF

.ENDC

006446

012777

027321

006454

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

012450
012450
003254

006460
006464
006470
006472
006476
006502
006504
006506
006514
006522
006530
006536
006542

003274

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

MoV
MOV

0BIT11,8DHSCR
016. ,RO
R1

sMASTER CLEAR INTERFACE
:SET UP TO START 16. LINES

:COUNT AND BUS ADDRESS MEMORIES

MOV
MOV

€200 ,R2
#1,R3

:SET UP TO LOAD HIGH BYTE
1OF EXPECTED DATA

HOV

9-400, S0HBC

;LOAD BYTE COUNT

.ENDC

ggx

ION

003252
003246
003214
003220

010, ICOUNT

;AND RECEIVED DATA STORAGE

:Tgur.aomn

7.6

;LOAD BUSS ADDRESS

MoV

#-200, 8OHBC

10N

6.6

IDN

5.6

#-40,80HBC

;LOAD BYTE COUNT

MOV

#27321,80HLPR

;:SET LINE SPEED AND

CLRE

RBUF(R1)

sCLEAR NEXT RECEIVED CHARACTER

INC
INC
ADD
ADD
DEC
BNE

SOHSCR
R2
02,R1
02,R3
RO
1s

sADVANCE TO NEXT LINE
;UPDATE POINTER TO
;LOW AND HIGH BYTE OF
sNEXT EXPECTED CHARACTER
sCONTINUE IF ALL LINES
;NOT SET UP

9240, 80HRLVL
#100,8DHSCR
#-1,80HBAR
PS
124

sSET ALL BAR BITS
$ENABLE INTERRUPTS
$GO TO TRANSMITTER WAITING ROUTINE

MOV

HMOVB

000002
000002

006546
000240
000100
17771
171234
000076

0340,PS
0118 ,ESCAPE
8, FREEZYL

CLR

.ENDC
.IF

006440

MOV
MOV
MOV
MOV

MOV

MOV
MOV
MOV
CLR
P

#-100, SBOHBC

;LOAD BYTE COUNT
;LOAD BYTE COUNT

sCHARACTER LENGTH 6 +« EVEN PARITY

R2 .RBUF(R3)

#64,80HRVEC

sLOAD HIGH BYTE

:SET UP POINTER FOR
sRECEIVER INTERRUPT
sENABLE RECEIVER INTERRUPT

;RECEIVER INTERRUPT SERVICE ROUTINE
;CHECK FOR RECEIVER DONE AND NO ERRORS
;CHECK RECEIVED DATA FOR “VALID OATA” 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
006546
006552
006554
006562
006564
006564
006566
006572
006574
006576
006602
006604
006606
006612
006614
006620
006620
006622
006626
006630
006630
006632
006634
006642

105777
100026

032777

001401
104002

017701
010102
000302
042702

010203
006302
026201
001403
016205
104003
105262
000002

003172
040000

64:
003162

003154
177760

BEQ

.+4

012450

sIF SILO OVERRUN SET, ERROR

;SILO OVERRUN,

MOV
MOV
SWAB

S8DOHNRC ,R1
R1,R2
R2

sREAD CHARACTER FROM SILO
;EXTRACT LINE NUMBER

MOV
ASL
CHP
BEQ
MoV

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

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

EMT

012450
104:

003102

11%:

:IF CHARACTER AVAILABLE NOT SET, ERROR

#40000, 8DHSCR

8IC

012450

004000

@0HSCR
104

BIT

7%:

104001

022626
012777
000411

1578
8PL

EMT
INCB
RTI
T
EMT

POP2SP
MOV
BR

€177760,R2

3
RBUF (R2)
1
1

#8IT11,8DHSCR
134

ERROR

:GET EXPECTED DATA
;:DATA ERROR

:UPDATE EXPECTED CHARACTER
s CONTINUE

;CHARACTER AVAILABLE NOT SET, ERROR

;RESTORE 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

006E50
006652
006656
006660
006666
20 006670

005777
001375
105777
001375
012767
104400

003106

124:

003106
000340

171110

13%:

157
BNE
TST8
BNE
MOV
SCOPE

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

SUPERCALIFRIGILISTICEXPEHALIDOSIS

27360,000,5

stMULTI-LINE PARITY DATA TEST
sTRANSMIT A BINARY COUNT WITH COD PARITY
sPATTERN ON ALL LINES.
sSILO ALARM LEVEL SET 10 O
;RECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
sIN INTERRUPT MODE.
sTRANSMITTER INTERRUPT WILL BE OISABLED
sLINE SPEED: 2400 BAUD
sCHARACTER LENGTH: S + PARITY
G06670
006670
006676
006704

012767

012767
012767

000340

000010
007136

171100

003106
003074

TS \XN.10.114

T27:

—
.

Hov

MOV
MoV
<>

MoV

#340,PS

#10, ICOUNT
2114 ,ESCAPE
#,FREEZ1

;DISABLE ALL INTERRUPTS

$SET UP FOR 10 ITERATIONS

$1SET UP TO ESCAPE TO NEXT TEST

$SET UP TO LOOP WITH DATA

CZOMG-CO

MACRO V04.00

.ENDC

006724

000030
012777
012700
005001

004000
000020

006726
006732
006736

012702
012703
012777

000200
020001
012050

006712
006720

SEQ S1

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

003024

003006

XN=XN+1

MOV

#8IT11,8DHSCR

sMASTER CLEAR INTFRFACE

CLR

;COUNT AND BUS ADDRESS MEMORIES

MoV
MOV

'Isgx

#200,R2
#1.R3

:Tgur.aomu

:SET UP TO LOAD HIGH BYTE
;OF EXPECTED DATA

MOV

#-400, SOHBC

;LOAD BYTE COUNT

ION

7.5

ION

6.5

ION

5,5

#-40,90H8C

;LOAD BYTE COUNT

MOV

927360, 80HLPR

sSET LINE SPEED AND

MOV

1$:
JIF

.ENDC
JF
.ENDC
IF
.ENDC
JIF

MOV
MOV
MOV

016. .RO

:SET UP TO START 16. LINES
;AND RECEIVED DATA STORAGE

#-200, 80HBC
#-100, 80HBC

;LOAD BUSS ADDRESS

;LOAD BYTE COUNT
;LOAD BYTE COUNT

006744

012777

177740

003002

006752

012777

027360

002770

006760
006764
006770
006774
006776
007002
007006
007010
007012
007020
007026
007034
007042
007046

105061
110263
005277
005202
062701
062703
005300

012450
012450
002750

CLR8
HOVB
INC

RBUF(R1)
R2,RBUF(R3)
SDHSCR

;CLEAR NEXT RECEIVED CHARACTER
;LOAD HIGH BYTE
sADVANCE TO NEXT LINE

000002
000002

ADD
ADD
DEC
BNE
MOV
MOV
MOV
MoV
CLR
JP

®,R1
#2,R3
RO
1
964, SOHRVEC
9240, 80HRL VL
#100,80HSCR
#-1,80HBAR
PS
124

sLOW AND HIGH BYTE OF
1NEXT EXPECTED CHARACTER
sCONTINUE IF ALL LINES
;NOT SET UP

001352

012777
012777
012777
012777
005067
000167

007052
000240
000100
17mn
170730
000076

.ENDC

INC

002746
002742
002710
002714

sCHARACTER LENGTH S « 0DD PARITY

sUPDATE POINTER TO

1SET UP POINTER FOR
1RECEIVER INTERRUPY

sENABLE RECEIVER INTERRUPT
;SET ALL BAR BITS
1ENABLE INTERRUPTS
$G0 TO TRANSMITTER WAITING ROUTINE

tRECEIVER INTERRUPT SERVICE ROUTINE
sCHECK FOR RECEIVER DONE AND NO ERRORS
;CHECK RECEIVED DATA FOR "VALID DATA” FLAG AND NO ERRORS
1VERIFY 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

64:

002656

;'S,la

rgl:SCR

:IF CHARACTER AVAILABLE NOT SET, ERROR

gé;

“2000.NHSCR

+IF SILO OVERRUN SET, ERROR

«®

002650

177760
012450

74:

’El";

1SILO OVERRUN, ERROR

Mnov
MOV
SWAB

SDHNRC,R1
R1,R2
R2

tREAD CHARACTER FROM SILO
1EXTRACT LINE NUMBER

MoV

R2,R3

1SAVE LINE NUMBER

cHp

RBUF(R2),RL

sCOMPARE EXPECTED AND RECEIVED DATA

8IC
ASL

#177760,R2

1USE LINE NUMBER AS OFFSET

C20HG-CO

007116
007120
007124
007124
007126
007132
007134
007134
007136
007140
007146

MACRO VO4.00

001403
016205

104003
105262
000002
104001
022626
012777
000411

012450
012450
10%:

004000

SEQ 52

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

002576

11%:

BEQ
MOV
HLY
EMY
INCB
RTI
HLY
)
POP2SP
MOV
BR

.+10
RBUF(R2) ,RS
3
3
RBUF(R2)
1
1

#81IT11,80HSCR
134

;GET EXPECTED DATA
sDATA ERROR
;UPDATE EXPECTED CHARACTER
sCONTINUVE
sCHARACTER AVAILABLE NOT SET, ERROR
tRESTORE STACK
tMASTER CLEAR INTERFACE
JRESTART TEST

sWAIT FOR ALL BAR BITS TO CLEAR
sWHEN ALL BAR BITS HAVE CLEARED,
tWAIY FOR SILO TO EMPTY
tWHEN 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:

1ST
BNE
1578
BNE
MoV
SCOPE

SDHBAR
sWAIT FOR ALL BAR BITS TO CLEAR
.4
GDHSLR
JWAIT FOR SILO TO EMPTY
.4
#340,PS ;PREVENT INTERRUPTS
tCHECK FOR ITERATIONS, LOOP

SUPERCALIFRIGILISTICEXPEHALIDOSIS

27320,EVEN, S5

IMULTI-LINE PARITY DATA TEST
1 TRANSHIT A BINARY COUNT WITH EVEN PARITY
sPATTERN ON ALL LINES.
tSILO ALARM LEVEL SEY 70 O
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
1IN INTERRUPT MODE.
s TRANSHITTER INTERRUPT WILL BE DISABLED
;LINE SPEED: 2400 BAWD
tCHARACTER LENGTH: S « PARITY
007174
007174
007202
007210

012767
012767
012767

000340
000010
007442

170574
002602
002570

TS \XN,10,11$

T30:

S
.

007216
007224
007230

007232
007236
007242

000031
012777
012700
005001

004000
000020

012702

000200

012777

012050

022703

000001

002520

002502

ENOC

XN=XN+3

1; F
.ENDC

MOV
"ov
nov

9340,PS
910, ICOUNT
0114 ,ESCAPE

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

nov

o,FREE2L

1SET UP TO LOOP MWITH DATA

nov
MoV
CLR

#81IT11,80HSCR
916. .R0
R1

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

nov

0200,R2

1SET UP TO LOAD HIGH BYTE

:Tgf »SDHBA

"oV

€-400, 8DHBC

sLOAD BYYE COUNT

IDN
MoV

7.5
€-200, 80HBC

1LOAD BYTE COUNT

o1 ,R3

+AND RECEIVED DATA STORAGE
1OF EXPECTED DATA

1LOAD BUSS ADDRESS

1 3

CZoHG CO

MACRO VO4.0C 27-JUN-85 13:01:48 PAGE 21-25
IF

007250

012777

177740

002476

007256

012777

027320

002464

007264
00727¢
007274
007300
007302
007306
007312
007314
007316
007324
007332
007340
007346
€073S52

105061
110263
005277
005202

012450
012450
002444

062701

062703
005300
001352
012777
012777
012777
012777
005067
000167

.ENDC
IF

ENOC

000100
177777

170424
000076

6.5

IDN

5.5

MoV

927320, 80HLPR
1SET LINE SPEED AND
sCHARACTER LENGTH S « EVEN PARITY

MOV

002442
002436
002404
002410

¢-100, 8048C

9-40,80H8C

1LOAD BYTE COUNT

sLOAD BYTE COUNT

INC

RBUF(R1)
R2,RBUF(R3)
SOHSCR
R2

;CLEAR NEXT RECEIVED CHARACTER
sLOAD HIGH BYTE
sADVANCE TO NEXT LINE
sUPDATE POINTER TO

ADD
DEC
BNE
MOV
MOV
MoV
MoV

#2,R3
RO
13
4648, BOHRVEC
#2430, 9DHRL VL
#100,80HSCR
#-1,80HBAR

sNEXT EXPECTED CHARALTER
;CONTINUE IF ALL LINES
sNOT SET UP
:SET UP POINTER FOR
tRECEIVER INTERRUPT
sENABLE RECEIVER INTERRUPT
;SET ALL BAR BITS

ADD

000002

007356
000240

IDN

MoV

CLRB
HOVB
INC

000002

S€@ 33

CLR
P

&2,R1

PS
12%

sLOW AND HIGH BYTE OF

$ENABLE INTERRUPTS
;GO TO TRANSMITTER WAITING ROUTINE

sRECEIVER INTERRUPT SERVICE ROUTINE

sCHECK FOR RECEIVEP 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
007374
007374
007376
007402
007404
007406
007412

007414

007416
007422
007424
007430

007430
007432
007426
007440
007440
007442
007444

007452

105777
100026
032777
001401
104002
017701
010102
000302
042702
010203
006302
026201
001403
016205
104003
105262

000002

002362
040000

6%:
002352

SOHSCR
104
#40000, BOHSCR
o8

EMT
nov
nov
SWAB
8I1C
MOV
ASL
cHe
BEQ
MOV
HLY
EmMY
INCB

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

POP2SP
MoV
BR

#B1IT11,8DHSCR

002344

78:

177760

012450
012450

012450
104:

104001

022626
012777
000411

1578
8PL
81T
BEQ

004000

002272

11%:

RTI

EMY

13¢

sWAIT FOR ALL BAR BITS TO CLEAR
;WHEN ALL BAR BITS HAVE CLEARED,

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

:READ CHARACTER FROM SILO
sEXTRACT LINE NUMBER
;SAVE LINE NUMBER
sUSE LINE NUMBER AS OFFSET

sCOMPARE EXPECTED AND RECEIVED DATA
;GET EXPECTED DATA
;:DATA ERROR

sUPDATE EXPECTED CHARACTER
;CONTINUE

;CHARACTER AVAILABLE NOT SET, ERROR

:RESTORE STACK
iMASTER CLEAR INTERFACF
sRESTART TEST

C20MG-CO

MACRO VO4.00

SEQ 54

27-JUN-85 13:01:48 PAGE 21-26
sWAIT FOR SILO YO EMPTIY
sWHEN SILO IS EMPTY, SCOPE ON TEST

007454

007460

007462

007466
007470

007476

005777

002276

105777

002276

001375
001375
012767

104400

000340

12%:

170300

134:

187

S0HBAR

sWAIT FOR ALL BAR BITS TO CLEAR

1518

SDHSLR

;WAIT FOR SILO TO EMPTY

BNE

BNE
MOV

SCOPE

.-4

.-4
94340,PS

;PREVENT INTERRUPTS

sCHECK FOR ITERATIONS, LOOP

P OOVBIIOWVIE
WM

C2Z0MG-CO

MACRO VO4.00

SEQ 55

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

tMULTI LINE DATA TEST
sSILO ALARM LEVEL SET T0 0
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS
:IN INTERRUPT MODE
sTRANSMITTER INTERRUPTS WILL BE DISABLED

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINFS
sLINE SPEED IS 4800 BAUD FOR ALL LINES
:CHARACTER LENGTH IS 8 BITS FOR ALL LINES
007500
007500
007506
007514

012767
012767
012767

000340
000010
007746

000032
012777
012700
005001

004000
00020

007536
0C7542
007546
007554
007562

012702
012703
012777
012777
012777

000200
000001
012050
177400
031403

007570
007574

105061
110263
005277
005202
062701
062703
005300
001352
012777

012450
012450
002140

007604
007606
007612
007616
007620

007622
007630
007636
007644
007652
007656

012777
012777

012777
005067
000167

TS \XN,10,11%
T31:
MoV
MOV
MoV

IF N8

.ENDC

007522
007530
007534

007600

170270
002276
002264

002214

002176
002172
002160

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

#,FREEZL

;SET UP TO LOOP WITH DATA

@8IT11,8DHSCR
420,R0
R1

;MASTER CLEAR INTERFACE

MOV

XN=XN+1

#200,R2
91 ,R3
4TBUF , SDHBA
#-400, 80H8C
#31403,8DHLPR

1s:

RBUF(R1)

R2,RBUF(R3)

S0HSCR

R2
92,R1
#2,R3
RO
13

000002
000002

007662
000240
000100
177777
170120
000076

340,PS
€10, ICOUNT
€113 ,ESCAPE

463, SOHRVEC
#4240, 8DHRLVL

002136
002132
002100
002104

#100, BDHSCR

CLR

PS
124

i 3

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

;LOAD BYTE COUNT
:SET LINE SPEED AND
sCHARACTER LENGTH
;CLEAR NEXT RECEIVED CHARACTER
;LOAD HIGH BYTE
sADVANCE TU NEXT LINE
:UPDATE POINTER TO

:LON AND HIG BYTE OF
:NEXT EXPECTED CHARACTER
;CONTINUE IF ALL LINES
;NOT SET uP
sSET UP POINTER FOR
;RECEIVER INTERRUPT
:ENABLE INTERFACE
;SET ALL BAR BITS
:ENABLE INTERRUPTS
;G0 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
1VERIFY THAT RECEIVED DATA IS CORRECY
sCHECK FOR END OF PASS
007662
007666
007670
oN7676
007700
007700
007702
007706

he-

105777
100026
032777
001401
104002
017701
010102

002056
040000

002040

6%:

002046

78:

1STB

SDHSCR

:IF CHARACTER AvAILABLE NOT SET.

MOV

R1,R2

iEXTRACT LINE NUMBER

g?f
Ene.g
5'35

g%ooo.eonsca
é“
gDHNRC.Rl

:IF SILO OVERRUN SET, ERROR
;SILO OVERRUN, ERROR
;READ CHARACTER FORM SILO

ERROR

CZ0MG-CO
50 007710
51 007712
52 007716
53 007720
54 007722
55 007726
56 007730
S7 007734
007734
007736
007742
007744
007744
007746
007750
007756

MACRO V04.00

000302

042702
010203

177760

026201

012450

006302

001403
016205
104003
105262
000002

012777

000406

ASL

cHp

012450
012450
10¢:

004000

SWAB

8IC
MOV

104001

022626

001766

118:

BEQ
MOV
HWLT
EMT
INCB
RTI
HT
EMT

POP25P

MoV

B8R

:WAIT
;WHEN
sWAIT
sWHEN
0C7760
007764
007766
007772
007774

005777

001375
105777
001375
104400

001772

SEQ 56

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

12%:

001772
13s:

TS7

BNE
T1ST8
BNE
SCOPE

9177760,R2
R2,R3

;SAVE LINE NUMBER

RBUF (R2),R1

;COMPARE EXPECTED AND RECEIVED DATA

.+10
RBUF(R2),R5
3
3
RBUF (R2)
1

#8IT11,8DHSCR

13$

;USE LINE NUMBER AS OFFSET

:GET EXPECTED DATA
;DATA ERROR
tUPDATE EXPECTED CHARACTER
s CONTINUVE

;CHARACTER AVAILABLE NOT SET, ERROR
;:RESTORE STACK

:MASTER CLEAR INTERFACE

;RESTART TEST

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

-4
SDHSLR
. -4

;WAIT FOR ALL BAR BITS TO CLEAR
:WAIT FOR SItO TO EMPTY

;CHECK FOR TTERATIONS, LOOP

[

(-1 -X. ENY. YT ¥ W'Y VY

CZ0HG-CO

007776
007776
010004
010012

MACRO v04.00

tMLTI-LINE DATA TEST
: TRANSMIT A BINARY COUNY COUNT PATTERN ON ALLL LINES
;LINE SPFED IS 9600 BAUD
;SILO At ARM LEVEL IS SET TO 63 (NO RECEIVER DONE
sINTERRUPTTM WILL OCCUR)
sCONTINUQUSLY ATTEMPT TO READ DATA FROM SILO
sIF "VALID DATA" FLAG IS DETECTED,
s THE DATA WiLL BE CHECKED

012767
012767
0127¢7

000033
012777

000340
000012
010344

167772
002000
001766

TS \XN,12,8%
T32:
MOV
IF N8
.ENDC

010020
010026
010032

012700
005001

010034
010040
010044
010052
010060

012702
012703
012777
012777
012777

000200
000001
012050
177400
033503

010066
010072
010076
010102
010104
010110
010114
010116
010120
010126
010134
010142
010150
010154

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

012450
012450
001642

010160

012777
012777
012777
005067
000421

010166
010174
010202
010206

SEQ 57

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

004000
000020

001716

001700
001674
001662

XN=XN+1

1¢:

000002
000002
010210
000240
010222
000240
000012
001664

001644
001640
001624
001620

000077
030000
17777
167570

001574
001550
001554

MoV
MOV

9340,PS
912, ICOUNT
984 ,ESCAPE

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

#,FREEZL

;SET UP TO LOOP WITH DATA

MOV

MOV #B8IT11,8DHSCR
MOV
420,R0
CLR
R1

:MASTER CLEAR INTERFACE
;SET UP TO LOAD BYTE
;COUNT AND BUS ADDRESS MEMORIES

MOV
MOV
MOV
MOV
MOV

9200,R2
91,R3
#TBUF , SDHBA
€-400,80HBC
#33503,80HLPR

:SET UP TO LOAD HIGH BYTE
;OF EXPECTED DATA
;:LOAD BUSS ADDRESS
;:LOAD BYTE COUNT
;:SET LINE SPEED AND

CLRB
move
INC
INC
ADD
ADD
DEC
BNE
MoV
HOV
MOV
MOV
MoV
CLR

RBUF(R1)
R2,RBUF(R3)
SOHSCR
R2
2 ,Ri
#2,R3
RO
14
#24, S0HTVEC
#240,8DHTLVL
964, 30HRVEC
9240 ,8DHRLVL
412,R0
ENDFLG

MOV
MOV
MoV
CLR
BR

477, 80HSSR
#30000, BDHSCR
#-1,80HBAR
PS
74

;ANO RECEIVED DATA STORAGE

;CHARACTER LENGTH

;CLEAR NEXT RECEIVED CHARACTER
;LOAD WIGH BYTE
sADVANCE TO NEXT LINE
;UPDATE POINTER 10
:LOW AND HIGH BYTE OF
;NEXT EXPECTED CHARACTER
;CONTINUE IF ALL LINES
:NOT SET UP
:SET UP POINTER FOR
; TRANSMITTER INTERRUPT
:SET UP POINTER FOR
;RECEIVER INTERRUPT
:SET UP TO TRANSMIT
;10 (DEDIMAL) BLOCKS OF DATA

;ON EACH LINE

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

;TRANSMITTER INTEPRUPT SERVICE ROUTINE
;CHECK FOR TRANSMIT OONE AND NO ERRORS
010210
010214
010216
010216
010220

005777
100401
104004
000002

001530

2%:

TST
B8MI

HLT
EMY
RTI

S80HSCR
.44
4
4

;IS TRANSMITTER DONE SET
; TRANSMIT DONE NOT SET, ERROR
;RETURN

CZ0HG-CO

50
51
S2 010222
53 010226
54 010230
010230
55 010232
56 010240
57 010242
010242
56 010244
59 010246
010246
60
61 010250
62
63
64
65
66
67
68 010252
69 010256
70 010260
71 010262
72 010264
73 010266
74 010272
75 010274
76 010276
77 010302
78 010304
79 010310
010310
80 010312
81 010316
82 010320
83 010324
84 010326
85 010330
86 010332
87 010334
88 010336
89 010344
90 010350
91 010352
92 010356
93 010360
94 010362
95 010370
96 010374
97 010402
98 010410
99 010416
100 010420
101 010422
102 010426

MACRO v04.00

SEQ 58

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

sRECEIVER INTERRUPT SERVICE ROUTINE
105777
100001
104005
032777
001402

001516

040000

6$:

001504

104002
070401
104000
3s:

000002

1578

8DOHSCR

;IS CHARACTER AVAILAJLE SET

HLT
EMT
8IT
BEQ
HLT
EMT
BR
HLT
ENT

5
S
940000, 8DHSCR
.+6
2
2
3
0
0

;CHARACTER AVAILABLE SET, ERROK

B8PL

.+4

RTI

+IS SILO OVERRUN SET

;SILO OVERRUN, ERROR
:SPURIQUS INTERRUPT
;TEST WILL RESTART

;sRECEIVER DATA CHECK
;GET A CHARACTER FROM THE SILO
sIF IT IS VALID DATA, CHECK IT
sOTHERWISE, TRY AGAIN
017701
005701
100374
010102
000302
042702
010203
006302
126201

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%:

001470

177760

012450
012450
001520

001500

8%:

001406

000017
001350
012050
177400
010426
000040

001354
001350
001344
001340

9%:

SDHNRC ,R1

TST
8PL
MoV
SWAB
8IC
MOV
ASL

R1
74
R1.R2
R2
#177760,R2
R2,R3
R2

BEQ
MOV
HY
mT
INCB
BNE
TST
BNE
TST
BNE
occ
BNE

.+10
RBUF(R2) ,RS
3
3
RBUF (R2)
74
ENDFLG
1)
R3
94
RO
93

18T
BNE
1578
BNE
BR
8IC
8IS

SOHBAR
74
SDHSLR
74
104
#17, 80HSCR
R3.8DHSCR

cnpPe

012450

000001
001406

MOV

MOV
MoV

BIS
BR
104:
SCOPE
JMP
BARBIT: 1

RBUF(R2),R1

#1 ,ENOFLG

#TBUF , 8DHBA
#-400,80HBC

BARBIT(R2),80HBAR
74
EOP

;READ NEXT RECEIVED CHARACTER REGISTER
;IF VALID DATA BIT NOT SET

: TRY AGAIN

;EXTRACT LINE NUMBER

;O0UBLE LINE NUMBER FOR OFFSET
;COMPARE RECEIVED AND EXPECTED RESULTS
:GET EXPECTED DATA

:DATA ZRROR

sUPDATE EXPECTED DATA
;CONTINUE IF NOT O
;IF ALL LINES HAYE TINISHED
;10 BLOCKS JF DATA, CLEAN LP
;IF THE LINE IS O

:UPDATE BLOCK COUNT
;IF LINE O HAS TRANSMITTED 10 BLOCKS
:SET END FLAG
;IF ALL LINES NOT DONE
1GET MORE CHARACTERS
+IF SILO IS NOT EMPTY
;GET REST OF DATA
;WHEN EMPTY, SCOPE ON TEST
;ARDDRESS LINE THAT JUST FINISHED
;SET UP BUS ADDRESS AND BYTE COUNT
;FOR THAT LINE
:SET BAR BIT FOR THAT LINE
:CONTINUE
;CHECK FOR ITERATIONS, LOOP
;G0 TO END OF PASS ROUTINE

CZOMG-CO
103 01043C
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

MACRO V04.00
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

27-JUN-85 13:01:48 PAGE 23-2
2
4
1c
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

SEQ 59

CZOHG-CO

MACRO vO4.00

SEQ 60

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

i
2 010466

.EOP

t/BEGIN/

;END OF PASS
;TYPE NAME OF TEST
sUPDATE PASS COUNT
sCHECK FOR EXIT TO ACT-11
;RESTART TEST

010346
010530
010552
010554
010560
010562
010564
3 010566

016767

001246

013701
001405
000005
004711
000240
000240
000240
000167
000001
006
012000

000042

170232

24:
3%

LOGICAL:

170526

RESTRT:

PASARG:

002

.SCOPE

;TYPE NAME OF TEST

LAST
ERRFLG
PASCNT
LIGHTS
24

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

B8R

3 CONTINULE

MoV

PASCNT ,LIGHTS

;DISPLAY PASS COUNT

MoV
BEQ
RESET

8042 ,R1
RESTRT

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

NOP
NOP
NOP
JMP
WORD

.BYTE
.WORD

JSR

PC,(R1)

BEGIN
1
6,2
PASCNT

sCHECK FOR LOOP ON CURRENT TEST
sCHECK FOR ITERATION SUPPRESSION
010566
010574
010576
010604

010606
010614
010616
010622
010630
010632

010636

010642
010646
010650
010654
010656
010662

032777

001030
032777
001021

032777
001006
005267
026767
001007
005067

005067
011667
000002
016716
000002
005767
001745

002000

170204

040000

170174

004000

170164

001172
001166

001162

001130

SCOPER: 8IT
BNE
1¢:
8IT
BNE
BIT
BNE
INC
cmp
BNE
24:
CLR
CLR
MOV
RT1
34
MOV

001114

4%
:

001156
001134
001136

PRINT PASSCOUNT

DOVISL

001344
001274
201272
170270

TYPE
MEPASS
CLR
CLR
INC
1S7
8NE
TYPE
PASTXT
OCTASC
PASARG

EOP:

010472
010476
010502
010506
010312
010514
010516
010520
010%22
010324
010526
010526
010534
010534
010540
010542
010544

104401
013127
003067
005067
003267
005767
001005
104401
013142
104402
010560
000403

RYI
187

BEQ

:%HiO.flSHR

§§HIQ.OSHR
#SH11, 9SWR
24
LPCNT

%:CNT.ICOUNT
LPCNT
ERRFLG
(SP),RETRN

RETRN, (5P)

ERRFLG
1s

;

PARAMETERS TO PRINT PASSLOUNT

wuuwnm

010466
010470

14 ;3 6

rcm————

<ZDHG-CO
010664

4 010606

MACRO VvO4.00

27-MAMN-8S 13:01:48 PAGE 24-1

000762

.SCoP3

SEQ 61

;CHECK FOR FREEZE ON CURRENT DATA
010666

032777

001000

010676

016716

001506

010674 101402
010702
S 010704

000002

170104

SCOPIR: BIT

#5W09, 8SHR

"nov

FRESZ1,(SP)

8EQ

13:
.ERROR

RTI

sERROR HANDLER

010704
010712
010714
010720
010722

032777 920000 170066 ERRORS: BIT
001055
BNE
021667 001122
cHp
001404
BEQ
011667 001114
HOV

010726
010732

005067
104406

010744
010746
010750
010754

006304
006304
042704
062704

010770
010774
010776

005767
001403
005767

001044

010734 011605
010736 162705 000002
010742 011504

1%:

177001
013262

011022
011024
011026

001002

000040

001011
104401
013037
104402
011110
012767 000001 000754
104401
000000
005767

011032 001404
011034 104401
011036 013037

000010

(SP).RS
92,RS
(R5),R4

MOV
MOV

(R4)+
, ERRMSG
(R4),DATABP

5T
BEQ
15T

8EQ
TYPE
MCRLF

104402
000000
104407

OCTASC
DATABP: 0O
RESREG: RESOS

011062
011064
011066

000000
012600
005267

HALT
POPRO
EXITER: INC

000710

011072 032777 002000 167700
011100 001402
011102 016716 000700

ERRFLG
TYPHSG
DATABP

BNE
TYPDAT
MCRLF
OCTASC
ERTABO
MOV
#1,ERRFLG

011040
011042
011044

011046 005777 167726
011052 100005
011054 010046
011056 016600 000002

R4
R4
177001,
R4
GERRTAB
, R4

TYPHSG: TYPE

TYPE
ERRMSG: O
TYPDAT: TST

HALTS:

L3
.5
.5
. 5

DATABP

RESREG

. 5

TST
SSUR
BPL
EXITER
PUSHRO
HOV
2(5P),RO
BIT
BEQ
MOV

. 4

ERRFLG

HOV
SuB
MOV

ASL
ASL
BIC
ADD

010760 012467 000040
010764 011467 000052

011002
011004
011006
011010
011012
011014

CLR
SAVOSP

#5U13, SWR
HALTS
(SP),LAST
14
(SP),LAST

ERRCHT

#5410, 8SWR
14
ESCAPE, (SP)

' 4

CZDHG -CO
011106
011110
011112
011114
6 011116

011116
011120
011124
011130
011132
011136
011142
011146
7 011150

MACRO v04.00
000002
000001
006
012034

011646
162716
017616
006316
042716
062716
017616
000136

SEQ 62

27-JUN-B5 13:01:48 PAGE 24 2
1%:
ERTABO:

. TRPSRYV

TRPSRV:

000002
000000

TRPOI:

177001
013202

000000

.TYPER

RT1
1
.BYTE
SAVPC

6,2

;TRAP DISPATCH SERVICE
sARGUMENT OF TRAP IS EXTRACTED
:AND USED AS OFFSET TO OBTAIN POINTER
:TO SELECTED SUBRGUTINE
MOV
SUB
Mov
ASL

8IC

ADD
MOV
JMP

(SP),-(SP)
®2,(SP)
8(SP),(SP)
(sP)

#177001, (SP)

OTRPTAB, (SP)
8(SP),(sSP)
8(SP)+

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

s TELETYPE OQUTPUT ROUTINE
011150
011134
011160
011164
011166
011170
011172
011174
011200
8 011202

017605
062716
105777
100375
105715
001001
000002

112577
000767

TYPER:

000000
000002

000554

14:

000542

2%:

.INSTRG

MOV
ADD
T1S78
8PL
1578
BNE
RTI
Move
BR

8(SP),R5

92,(5P)
9TPCSR
1t

(RS)

(RS)+,8TPDBR
14

sASCII STRING INPUT ROUTINE
011202
011210
011214
011216
0121220
011224
011230
011234
011236
011242
011246
011252
011254
011262
011266
011270
011272
011274
011276

011300
011302

9 011304

017667
062716
104401
030000
012704
012703
105777

100375

117714
142714
122427
001413
111777
105777
100375
005303
0013356
104401

013033

000745
000002

000000
000002

000006

013224
000007
000500

000474
000200
000015
000456
000452

000460

INSTRG:

MOV
ADD
INSTR1: TYPE
0
MSG:
MoV
MOV
1%:
1518
BPL
HOV8

BICB
CcmPe
BEQ
MOVE

1518
BPL
DEC
BNE
INSTRE: TYPE
oM
8R
INSTR2: RTI
.PARANS

24:

8(SP),MSG
#2.(SP)
S#INBUF R4
#7.R3

STKCSR
i
STKDBR,(R4)
#200,(R4)
(R&)+, 215
INSTR2
STKDBR ,9TPDBR

S8TPCSR
2%
R3
1

INSTR1

—

CZDHG-CO

MACRO V04.00

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

£Q 63

:CONVERT ASCII STRING TO OCTAL
011304
011306
011312
011316
011322
011326
011332
011334
011336

011342
011346
011750

011354
011356
011362
011364
011370

011372

011376
011400
011402
011404
011406
011410
011412

011605
012567
012567
012567
112567

112567
010516
005005
012704
122714
001420

000146
000144
000142
000140
000135

013224
000015

121427

000060

121427

000067

002415

003012
142714

152405

122714
001406
006305
006305
006305

PARAMS: MOV
MOV
1)
MOV
MOVE

MOVB
MOV
PARAML: CLR
MOV
CMPB
8EQ

1s:

104404
000750

PARERR:

(R4),460

PARERR

867
8ICB

PARERR
#60, (R4)

CMPB
BEQ
ASL
ASL
ASL

15, (R4)
LIMITS
RS
R5
RS

INSTER
BR

PARAML

BI1SB

000015

(R5)+, ADRCNT
R5,(SP)
RS
SINBUF
R4
415, (R4)
PAPERR

CcMPB

000060

000760

CcMPB

(S5P).RS
(R5)+,LOLIM
(RS5)+ ,HILIN
(R3)+.DEVADR
(R5)+,LOBITS

B8R

(R4), 967
(R4)+,RS

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
011414
011420
011422
011426
011430
011434

020567
101373

000042

136705
001365

000032

020567
103770

000032

LIMITS: CMP
BHI

CHpP
B8LO

8ITB
BNE

RS, HILIM
PARERR

R3,LOLIM
PARERR

LOBITS,RS
PARERR

i 3

sSTORE NUMBER AT SPECIFIED ADDRESS
011436
011442
011444
011450
011454
011456
011460
011462
011464
011466

10 011470

016704
010524
062705
105367
001372
000002
000000
00000C

000022
000002
000013

1s:

LoLIM:
HILIM:

000000

MOV
MOV
ADD
DECB
BNE
RTI
O
O

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

DEVADR: 0

000000
011467

LOBITS: O
ADRCNT=LOBITS.1
.OCTASC

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
011470
011474

017601

062716

000000
000002

OCTASN: MOV

ADD

8(SP),R1
®2,(5P)

i S

Seaiie i
iciannd

CZ0HG-CO

MACRO VO4.00

011500

011504

011310

011514
011520
011324
011330
011534
011536
011342
011546
011550
011352
011554
011356
011360
011562
011566
011570
011574
011576
011602
011604
011610
011614
011616
011620
011622
011624
011630
011632

011634
011636

011640
11 011642

012167
112167
112167
013167
016704

116705

012700
010403
042703
062703
110320
006204
006204
006204
005305
001365
012703

114023
105367
001374
105767
0C1405
112723
105367
001373
105013
104401
013250
005367
001325
000002
000000
000000
011637
000000

27-JUN-B5 13:01:48 PAGE 24-4

000130
000126
000123
000120
000114
000106
013236

1s:

MoV
MOVE

(R1)+,WROCNT
(R1)+.CHRCNY

2%:

MOV
MOV

8(R1)+ ,BINWRD
BINWRD ,R4

MOV
MoV
BIC
ADD
MOVB
ASR

#TEMP RO
R4 ,R3
#177770,R3
#260,R3

34:

177770
000260

HMOVe
MOoVB

ASR

013250

000042

000035

ASR
DEC
BNE
MoV

HMOvVB
DECB
BNE
TS18

B8EQ

MOVB
DECB
BNE
6%:
CLR8
TYPE
MOATA
DEC
BNE
RTI
WRDCNT: 0O
CHRCNT: 0
S¢:

000240
000023

000004

(R1)+,SPACNY

CHRCNT
RS

R3,(RO)«

R4
R4
R4

RS
39
#MDATA.R3

-(RO),(R3).

CHRCNT
44
SPACNT

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

WROCNT
14

SPACNT=CHRCNT+1
BINWRD: O
.SAVREG

$SAVE PC OF TEST THAT FAILED AND RO-RS
011642

016667

000004

000164

SVOSP:

MOV

4(SP), SAVPC

1SAVE RO-RS
011650

011654
011660

011664
011670
011674
011700
12 011702
011702
011706
011712
011716

010567
010467
010367
010267
010167
010067
000002

016700
025701
016702
016703

000154
000146
000140
000132
000124
000116

SVo5:

.RESREG
000110
000106
000104
000102

RSO5:

MoV
MOV
MoV
Hov
Hov
Mov
RTI

RS ,SAVRS
R4, SAVR4
RY,SAVR3
R2,SAVR2
R1,SAVR1
RO, SAVRO

tRESTORE RO-RS
MOV

Hov
MOV
MOV

SAVRO,
RO

SAVRL,R1
SAVR2,R2
SAVR3,R3

;1 3

C2ZDMG-CO

MACRO V04.00

011722
011726
011732
13 011734

016704
016705
000002

011734
011736
011740
011742

177560
177562
177564
177566

TLVL>

011744
011746

011750
011752
011754
011756
011760
011762
011764
011766
011770
011772
011774
14 011776
011776
012000
012002

012004
012006
012010
012012
012014
012016
012020
012022
012024
012026

012030
012032
012034
012036
012040
012042

012044
012046

16
18 0120350
19
20

000000

SEQ 65

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

000100
000076

.POINT

nov
SAVR4 R4
MOV
SAVRS,RS
RTI1
+/DHSCR,DHNRC,DHLPR,DHBA ,DHBC, DHBAR, DHBCR, DHSSR, DHSLR, DHRVEC,DHRLVL, DHTVEC DHTLVL/

TKCSR:
TKDBR:
TPCSR:
TPDOBR:
.IRP

177560
177562
177564
177566
A

.ENDM
OHSCR:
DHNRC:
DHLPR:
OHBA:
oMBC:
DHBAR:
OHBCR:
DMSSR:
DHSLR:
DHRVEC:
OHRLVL:
OHTVEC:
DHTLWL:
.VARIA

SINDIRECT POINTERS

<DHSCR , DHNRC ,DHLPR ,OHBA , DHBC ., DHBAR , DHBCR , DHSSR ,DHSLR , DHRVEC , DMRL VL , DHTVEC, OH

1PROGRAM VARIABLES

ERRFLG: O
PASCNT: 0

1ERROR FLAG
1PASS COUNT

RETRN:
ESCAPE:
FREEZ1:
ICOUNT:
LPCNT:
SAVRO:
SAWR1:
SAVR2:
SAWRS:
SAWR4:
SAVRS:
SAVSP:
SAVPC:
INIFLG:
STFLG:
LASYT:

O
0O
O
O
O
O
O
O
0
O
O
O
O
O
O
O

1SCOPE RETURN ADDRESS FOR TEST LOOPING
1ADDRESS FOR ERROR ESCAPE
10ATA LOOPING RETURN ADDRESS
s:ITERATION COUNT FOR TEST IN PROGRESS
sNUMBER OF ITERATIONS THIS TESY
1RO SAVE AREA
A1 SAVE AREA
1R2 SAVE AREA
RS SAVE ARE
R4 SAVE AREA:
RS SAVE AREA
sSTACK POINTER SAVE AREA
sCALLING ROUTINE SAVE AREA
sPROGRAM INITIALIZATION FLAG
1PROGRAN START FLAG
sLAST ERROR PC

]

ERRCNT: O

LIRP

. ENDM

TOUF :

KEPT
BYTE

BYTE

3IN
TOAY

1ERROR COUNT

<ENDFLG, TDATA>

s 3

2l
<l
23
24

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

MACRO VO4.00

001
000002
002
000003
003
000004
004
000005
005
000006

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

.NLIST
TOAT=TDAT.1
.LIST
.ENOR
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.{
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TOAT
TDAT=TDAT.1
.BYTE
TODAT
TOAT=TDAT.1

006
000007
007
000010
010
000011
011
000012
012
000013
013
000014
014
000015

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

000016

TOAT=TOAT.1

000017

TOAT=TOAT»1

015
916

017
000020
020
000021
021
000022
022
000623
023
000024
024
000025
025
000026
026
000027
027
000030

030
000031
031
000032
032
000033
033

.BYTE

TDAT

.BYTE

TOAT

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

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

SEQ 66

C20nG-CO

C20MG-CO

012104

012105
012106
012107
012110

012112
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

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

000041
041
300042
042
000043
043
000044
044
000045
045
000046

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

000047
047
000050
030
000051
051
000052
052
000053
053
000054
054
000055
055
000056

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

000057

TOAT=TOAT.1

000060
060
000061
061
000062
062
000063
063

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

000065
065
000066
066
000067
067
000070

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

040

046

056

057

000064
064

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TOAT

.BYTE

TDAT

TOAT=TDAT+1
.BYTE
TDAT

SEQ 67

Ea—

012140
012141
012142
012143
C12144
012145

012146
012147
012150

912151
012152
012153

012154
012155

012156
012157

012160
012161

012162
012163
012164
012165

012166
012167
012170
012171
012172
012173
012174

MACRO VO4.00
070
000071
071
000072
072

000173

073
000074
074
000075
075
000076
076

000077
077
000100
100
000101
101
000102
102
000103

27-JUN-85 13:01:48 PAGE 24 8
6YTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT

TOAT=TDAT.1

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

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

103
000104
104
000105
105
000106
106
000107
107

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

000112
111
000112

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

300110
110

112

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

SEQ 68

TDAT=TDAT.1
.BYTE
TDAT

.BYTE

TDAT

TOAT=TDAT»1
.BYTE
TOAT
TOAT=TDAT+}
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT.1
.BYTE
TOAY
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAY
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT«1
.BYTE
TOAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT-1
.BYTE
TDAT

(OO

CZ0MG-CO

CZoHG-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
125
000126
126
000127
127
000130
130

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

131
000132
132
000133
133

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

000131

000134
134
000135
135
000136
136
000137
137
000140
140
000141
141
000142
142
000143
143
000144
144
000145
145
000146
146
000147
147
000150
150
000151
a5l
000152
152
000153
153
000154
154
000155
155
000156
156
000157
157
000160
160
000161

TOnT=TDAT«1

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

SEQ 69

2DMG-CO

MACRO VO4.00
012231

012232
012232

012234
012235
012236
012237

012240
012241
012242

012243
012244

012245
012246
012247

012250
012251
012252
012253
012254

012255
012256
012257

012260
012261
012262
012263
012264
012265

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

161
000162
162
000163
163
000164
164
000165
165
000166
166
on0167
167
000170
170
000171
17
000172
172
000173
173
000174
174
000175
175
000176
176
000177
in
000200
200
000201
201
000202
202
000203
203
000204
204
000205
205
000206
206
000207
207
000210

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

000211
211
000212
212
000213
213
000214
214
000215
215

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

210

.BYTE

TDAT

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

000216
216
000217
217
000220

220

000221
221
000222
222
000223

223
000224
224
000225

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
242
000243
243
000244
244
000245
245
000246
246
000247
247
000250
250
000251
251
000252

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

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

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

.BYTE

TDAT

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

SEQ 71

r——

———

A ab s aniasn

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
"€
000. 3
253
000254
254
000255
255
000256
256
000257
257
000260
260
000261

27-JUN-85 13:01:48 PAGE 24-12
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT»1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1

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

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

000300

TDAT=TDAT+1

000301

TDAT=TDAT+1

2717

300

301
000302
302
000303
303
000304
304
000305
305
000306

306

.BYTE

TDAY

.BYTE

TOAT

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

TDAT

SEQ 72

RPN,

CZOHSG-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
0124C7
012410
012411

012412

MACRO VO4.00

324

000325

325
000326

326

000327
327
000330

330
000331
331
000332
332
000333
333
000334
334
000335
335
000336
336
000337
337
000340
340
000341
341
000342
342
000343

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

000307
307
000310
310
000311
311
000312
312
000313
313
000314

314
000315
315
000316
316
000317
317
000320
320
000321
321
000322
322
000323
323
000324

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

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

.BYTE

TDAT

TOAT=TDAT+1

.BYTE
TDAT
TDAT=TDAT+1

.BYTE

TDAT

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

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

RtA

SEQ 73

emmmaand

CZDMG-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
343
000344
344
000345
345
000346
346
000347
347
000350
350
000351
351
000352
352
000353
353

000354
354
000355
355
000356
356
000357
357
000360
360
000361

361
000362
362
000363
363
000364
364
000365
365
000366
366
000367
367
000370
370
000371
3N
000372
372
000373
373
000374
374
000375
375
000376
376
000377
m

27-JUN-85 13:01:48 PAGE 24-14
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TOAT
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
TOAT
TDAT=TDAT+1
BYTE
TOAY

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

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

SEQ 74

CZ0MG-CO

25
29 012450

28 012512

012312
012314
012316
012520
012322
0123524
012526
012332
012536
012544
012546

MACRO VO4.00

SEQ 75

27-JUN-85 13:01.48 PAGE 24-15

TOAT=TOAT
.1
.EVEN
RBUF
:
0
.=.+40
LPFAIL

000400

000000
012512

;ENTER HERE ON POMER FAILURE

010046
010146
010246
010346
010446
010546
016746
010667
012767
000000
000777

PFAIL:

165272
177274
012550

165260

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
gaLT

RO, -(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4,-(SP)
R3,-(SP)
24,-(SP)
SP,SAVSP
#RESTART , 24

:SAVE RO-RS ON PROCESSOR STACK

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

sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

0123560

012562
012364
012366
012570
012576
012604
012610
012614
012620
012622
012624
012626
012630
012632
012634
012636
012642
012646
012632
012654
012660

29 012662
012662

012665
012670
012673
012676
012701
012704
012707
012712

016706
012605
012604
012603
012602
012601
012600
012767
012767

012706
0035067
005267
001375
104401
013037
104402
012632
104401
013042
005067
005067
000177
000001
000006
012004
015
104

061
111
114

114
105
101
124

177256

012512
000340

013752
000422
000416

RESTAR:

165226

165172

SAVSP, SP
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+.RO
SPFAIL 24
#340,PS
#STACK,SP
TEMP
TEMWP
.-4

CLR
CLR

ERRFLG
LAST

PFTAB
TYPE
MPFAIL

177134
177174
177132

PFTAB:

000002

012
110
040
116
105
111
040
122
131

MOV
MOV
MOV
HOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
INC
BNE
TYPE
MCRLF
OCTASC

012
061
123
107
040
116
120
111
040

.MSG
MTITLE:

.IMP

;RESTORE STACK POINTER
;RESTORE RO-RS

:SET UP FOR POWER FAILURE

012350
012534
012356

SRETRN

6,2

RETRN

t/DH11l SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST/,+/CZDHG-CO/

ASCIZ

<15><12><12>/DH11 SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST /<15><12>

C20m6 -CO
012713

012720
012723

012726
012731
012734
012737
012742
012745
0127%0
012733
012755
012760
012763
012766
012771
012774
012777
013002
013003
013010

013013

MACRO v04.00

103
103
046
125
111
111
040
124
124
124
012
015

103
117
101
122
123

013

117
122

040
107
124
040
104

110

113
040
114
055
116
104
101
103

040
000
012

27-0UN-35 13:01:48 PAGE 24-16

105
040

115
124
114
105
101
040
123
015
126

124
040
104
123
000
103
124
114
105
123

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

122
104
108
055

MVECTO:

.ASCIZ

€«15><12>/VECTOR ADDRESS-/

MREGAD;

-ASCIZ

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

013016
013021
013024
013027
013032
013033
013036
013037

000
040
000
015

040

u77

.ASCIZ

012

000

MCRLF;

,ASCIZ

013042

040

MPFAIL:

.ASCIZ

013030
013053

101

120
105
106
114
105
120

103
110

MEPASS:

.ASCIZ

<15>¢12>/CZ0HG-CO/

120
123
117
124

PASTXT:

.ASCIZ

<15>¢12>/PASS COUNT = /

013045

013056

013061
013064
013067
013072
013075
013100
013103
013106
013114
013114

013117

013122
013123
013127
013132
013138
013140
013142
013143
013150
013153

123

117
122
123

054
122

122
040
123
122
101
124
124
116
122
122
123

013
132
107
060
015
10}
040
125

127
040
111
122
040
117
101
122
124

124
124
105

040
040

117
103

000

012
104
055

000
012

123
103
116

«15><12>
POMER FAILURE,

PROGRAM RESTART AT TEST IN PROGRESS/

107
115
103
101

040
040
123
111
120
107
123

103

CZOHG-CO
013136

013161
013162
013165
013166
013171
013174
013177

MACRO v04.00

040
000
013
000
015

103

040
055

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

075

040

012

MR:

ASCIZ

<155<12>/R/

012
123
120
000

124
124
103

MISTPC:

ASCIZ

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

.EVEN
.EVEN
.TRPTAB

30
n 013202

sTABLE OF POINTERS FOR TRAP DECODING
013202
013204
013206
013210
013212
013214
013216
013220

013222
32 013224

TRPTAB: SCOPER

010566

TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SVosP
RSO5

011150
011470
011202
011274

011304
011642
011702
010666

.BUFFER

SCOP1R

sBUFFERS FOR INPUT-QUTPUT
013224
013236

013250
33 013262

000000
013236
000000
013250

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

000000
013262

MOATA:

.",+10
.ERRTAB

s TABLE OF POINTERS TO ERROR MESSAGES AND DATA
013262
013262
013264
013266
013270
013272
013274
013276
013300
013302
013304
013306
013310
013812
013315
013320
013323
013326
013331

013312
000000
013337
000000
013373
000000
013414
013534
013455
000000
013503
000000
125
130
103
104
116
122

ERRTAB:

EMO
0
EM1
0
£n2
0
ens

071

)
0
EHS

116
120
124
124
122

105
105
105
111
105
125

(3,
+H

.ASCIZ

/UNEXPECTED INTERRUPT/

SEQ 77

CZDHG-CO
013334

47 013337
013342

013345
013350
013353
013356
013361
013364
013367
013372
48 013373
013376
013401

013404
013407
013412
49 013414
013417
013422
013425
50 013426
013431
013434
013437
013442
013445
013450
013453
51 013455
013460

013463
013466
013471
013474
013477
013502
52 013503
013506
013511
013314
013517
013322
013523
013530
g:

ety

MACRO VO4.00 27-JUN-85 13:01:48 PAGE 24-18
120

103
122

124
040
101
101
105
117
123
000
123
117
126

122
040
124
104
101
122
122
015
130
040
040
103
040
114
103
124
116

111
104

105
117
123
000

103

122
124
040
104
101
105
105

124

000

110
101

€EM1:

.ASCIZ

/CHARACTER AVAILABLE NOT SET/

105
101
111
102
040
124
105

101
103

122
126
114
114
116
040
124

111

114

&M2:

.ASCIZ

/SILO OVERRUN SET/

124
105
117

¢€NM3:

.ASCII

/OATA ERROR/

ASCIZ

<15><12>/EXP

040
105
123
123
000
101
040
122

117
122
116
105

012
120
040
122
040
040
111
000
122
123
124
117
040
124
105

101
113
040
116
116
040
124

EMs:

.ASCIZ

/TRANSMIT DONE NOT SET/

110

101

©EMS:

.ASCIZ

/CHARACTER AVAILABLE SET/

101
105
104
111
102
040
124

105
040
040
105
040
040
116

103
122
126
114
114
123
000

.EVEN

64 013332

1DATA TABLES FOR ERRORS
000003
006
012030
006
012020
002
012024

REC

LINE/

gg
S7 013534
58 013336
39 013340
60 013542
61 013544
62 013346
63 013350

S€Q 78

002

DY1:
BYTE

002

.BYTE

000

BYTE
.ENDCOD

3
6,2
SAWRS
6,2
SAWR]1
2,0
SAWRS

C20MG
- 20

he-

013552

MACRO v04.00

000000

000001

27 JUN-85

13:01:48 PAGE 24-19

ENDCOD:
.END

SEQ 79

CZONG-CO

SYMBOL TABLE

MACRO V04.00

ADRCNT+~ 011467

BARBIT
CEGIN

EM2

010426
001306

013373

EM3
EM4

8IT1e
8IT1S
CHRCNT
DATABP
DEVADR

OHBA

DHBAR

Dn8C
D¥BCR
DHLPR

DHNRC

DHRLVL
DHRVEC

002000
004000
010000
020000
040000
100000
011636
011042
011464

FREEZ1
HALTS
HILIM
ICOUNT
INBUF
INIFLG
INSTER=
INSTR =
INSTRE

012010
011046
011462
012012
013224
012036
104404
104403
011c74

PASCNT
PASTXT
PFAIL
PFTAB
POPRO =
POP1SP=
POP25P=
PS
=
PUSHRO=

012000
013142
012512
012652
012600
005726
022626
177776
010046

011214

PUSH25= 024646

001002

RESTAR

INSTRG

011202

011754
011760

INSTR2
LAST

011302
012042

011746

LIMITS

011414

INSTR1

011750

LIGHTS

LINE
= 0C0020
LOBITS 011466

DHSLR
DH5SR
DHTLVL
DHTVEC

011764
011762
011774
011772

LOLIM
LPCNT
MCRLF
MDATA

011460
012014
013037
013250

EMo

013312

MPFAIL

013042

DT1

011744

013534

013337

013554

ABS.

LOGICA

000000

ERRORS DETECTED:

MEPASS

010544

013127

RBUF
RESREG

012450
011044

RESTRT

010554

RS05

011702

SAVRS

012024

SAVR4

001

VIRTUAL MEMORY USED:

18944 WORDS

DYNAMIC MEMORY AVAILABLE FOR

( 74 PAGES)

71 PAGES

012550

RESOS = 104407
RETRN
012004

000
O

011410
010560

PUSH1S= 005746

SAVPC
SAVRO
SAVR1
SAVR2

CZDHGC.BIN,C/DHGC
. SEQ=CZDHGC .D0C ,DHMACA . MAC, CZDHGC .P11

011150
011004
001400

T11
112
713
T14
115
T16

003020
003162
003324
003466
003630
003772

001000
= 000001
= 000002
= 000004

=
=
=
=
=
=

011752

TYPER
TYPHMSG
11

SWR
SWO0

000001
104402
011470
104405
011304
011334

011756

SCOPE = 104400
SCOPER
010566
SCOPE1= 104410

010666

N
=
OCTASC=
OCTASN
PARAM =
PARAMS
PARAM1

PARERR
PASARG

013202

SCOPLR

012002
011776
011024
010704
013262
011110

012006
011066

TRPTAB

012755

ERRCNT
ERRFLG
ERRMSG
ERRORS
ERRTAB
ERTABO

ESCAPE
EXITER

012030

SAVSP
012032
SAVOSP= 104406

000024
000010
000020
000040
000100
000200

= 00040C
= 001000

SKVRS

013162
012777

=
=
=
=
=
=

011770
011766

DHSCR

011216
012662
013166

MVECTO

8IT02
8I7T03
8IT04
BITOS
8IT06
BITO7

8IT12
BIT13

MSG
MTITLE
MTSTPC

010466

013503
013552
012044

81708
8IT09
B8IT10
8ITi1

013033

MR
MREGAD

EMS
ENDCOO
ENOFLG

eoP

MQM

013414
013455

BINMRD
011640
8ITX
= 000000
BIT00 = 000001

BITO1 = 000002

SEQ 80

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

012034
012016
012020
012022

012026

SPACNT=
STACK =
START
STFLG
SVOS
SVOSP
SWO01
SW02
SWO03
SHO4
SWO5
SWO06
SWO8
SH09
SK10

SHWil1

SWi2

SW1Z
SHi4
SH1S

TBUF

011637
013752
001004
012040
011650
011642

= 010000

731

=
=
=
=
=

= 004000

= 020000
= 040000

= 100000

012050

013236

011734
011736
011740
011742

TRPSRV

011116

011130

002656

T17
T2

000040
000100
000400
001000
002000

= 000010
- 000020

TKCSR
TKDBR
TPCSR
TPDBR

TRPOK

T10

T20
721
122
123
T24
125
126
127
13

TOAT
= 000400
TOATA
012046

TEMP

TYPDAT 011026
TYPE
= 104401

004134
001542

004276
004440
004744
005250
005554
006060
006364
006670
001704

T30

007174

007500

132
T4

007776
002046

002210

002352

17
VEC1

VEC2

002514
001164

WROCNT
X
=
X81T
=
XLINE =

XN
Y

001174

011634
000020
000001
000000

= 000033
= 000011