Digital PDFs

AH-FG27C-MC

October 1985

93 pages

Original

46MB

view download

OCR Version

62MB

view download

Document:	CZDHHC0 DH11 DH11 AUTO ECHO LOG OCT 1985 bw
Order Number:	AH-FG27C-MC
Revision:	000
Pages:	93
Original Filename:	CZDHHC0__DH11__DH11_AUTO_ECHO_LOG__AH-FG27C-MC__OCT_1985_gray.pdf

OCR Text

Czomrco o

1 octiees ENEARED
Tor
1972-85 MADE IN USA
COPYRIGHT®

TC3 w

MACRO V04.00

27-JUN-8S 13:04:20 PAGE 1

VR -iOUVSWN
-

&Z0yM-CO

SEQ
1

.REM !

SIRGRARNRELEURUENRLEBSNRIRUNNY

PRODUCT CODE:

AC-8472C-MC

PRODUCT NAME

CZDHHCO DH11 AUTO-ECHO TEST

DATE:

JUNE 1985

MAINTAINER:

NAC SOFTWARE ENGINEERING

IDENTIFICATION

G. BAISLEY

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE MITHOUT

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

NO RESPONSIBILITY
FOR THE USE OR RELIABILITY OF SOFTWARE ON
EM;MTISNTWIYWILU ITS AFFILIATED

—

AR SRRy
N R R N S e S e E a R B oo vounswn

CZDHH-CO

MACRO V04.00

SEQ
2

27-JUN-85 13:04:20 PAGE 2

PAGE 2

1.0

ABSTRACT

VERIFIES THAT THE AUTO ECHO FEATURE OF THE DH11 WORKS.
2.0

REQUIREMENTS

2.1

EQUIPMENT

PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY
ASR-33 TELETYPE OR EQUIVALENT

DH11 ASYNCHRONOUS MULTIPLEXER
DM11 MAINTENANCE CARD INSTALLED

2.2

STORAGE

THE PROGRAM LOADS INTO 4KW OF MEMORY

3.0

LOADING PROCEDURE

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

4.0

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

4.1.1

AFTER PROGRAM LOAD (INITIAL PROGRAM START)

ALL CONSOLE SWITCHES DOWN

OB JON
D WM

CZDHH-CO

MACRO V04.00

SEQ
3

27-JUN-85 13:04:20 PAGE 3

PAGE 3
4.1.2
TO MODIFY DEVICE VECTOR AND CONTROL
PROGRAM RESTART

ADDRESSES

AFTER

SW00=1

4.1.3

TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART

SWO1=1

4.2

STARTING ADDRESS

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

SEEIRGRARRBLEURBLUBLEY

4.3

PROGRAM AND/OR OPERATOR ACTION

4.3.1

INITIAL PROGRAM START

4.3.1.1

LOAD PROGRAM INTO MEMORY

4.3.1.2

LOAD ADDRESS 000200

4.3.1.3

CLEAR CONSOLE SWITCHES

4.3.1.4

PRESS START

4.3.1.5

THE PROGRAM MWILL TYPE “DHil AUTO-ECHO TEST"

&fll

TYPE

“VECTOR

AND

MILL

ADDRESS-* AND WAIT FOR AN INPUT FROM THE TELETYPE

SR AR

amane

CZDHH-CO

MACRO V04.00

SEQ
4

27-JUN-85 13:04:20 PAGE 4

PAGE 4

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

THE

——

HESIIRGRARASTEURRRUR. R R v bl et el 34 i ed o

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

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

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

ADDRESS-”

4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL
DH11 TO BE TESTED FOLLOMWED BY <CARRIAGE RETURN>
IF AN INCORRECT ADDRESS IS TYPED,
THEN REPEAT THE OF 4.3.1.7

THE PROGRAM MWILL TYPE ”"2°

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

4.3.2

OF
AND

ABOUT

PROGRAM RESTART WITH ALL SWITCHES DOMN

4.3.2.1

PERFORM 4.3.1.2 70 4.3.1.5

4.3.2.2 THE PROGRAM WILL TYPE “DH11
AUTO-ECHO TEST*
THEN CONTINUE AS DESCRIBED IN 4.3.1.9

4.3.3

AND

PROGRAM RESTART WITH SWOO=1

AND

WILL

WAIT

THE

WILL

SEQ

MACRO V04.00 27-JUN-85 13:04:20 PAGE S

OVE SOV
B WN -

CZDHH-CO

PAGE 5
4.3.3.1

LOAD ADDRESS 000200

4.3.3.2

SET SW01i=1

4.3.3.3

PRESS START

4.3.3.4

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 70 4.3.1.9

4.3.4

PROGRAM RESTART WITH SWO1=1

4.3.4.1

LOAD ADDRESS 000200

4.3.4.2

SET SW01=1

4.3.4.3

PRESS START

4.3.4.4

THE PROGRAM WILL TYPE "DH11

4.3.4.5

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

4.3.4.6

THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS

I(Em

TYPE

“TEST

PC-“

AND

WILL START TESTING AT THE SELECTED TEST.
NOTE

CARE MUST BE TAKEN WHEN THIS FEATURE

AGAINST SELECTING AN ADDRESS THAT IS

1IN

USED,

THE MIDDLE OF A TEST

AND

WMILL

STARTED FOLLOWED BY <CARRIAGE RETURN>

51
53

AUTO-ECHO TEST*

WILL WAIT FOR AN INPUT FROM THE TELETYPE

SINCE

THERE

PROTECTION

STARTED

AND

. 5

CZDHH-CO

MACRO V04.00

SEQ
6

27-JUN-85 13:04:20 PAGE 6

1
2
3

PAGE 6

;

NOTE

6
7

IF IT IS DESIRED TO

LOOP

THAT

SET

SELECTED

ENTERING THE TEST ADDRESS

THE

SWi4=1

TEST
BEFORE

10
11
12

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

SW15=1,

HALT ON ERROR

SW09=1,

FREEZE VARIABLE PARAMETER IN CURRENT TEST

21
22
23
24

SWi4=1,
SW13=1,
SWil=1,
SW10=1,

SWO1=1,

25
‘5’;

29
30
gé

SWO00=1,

5.2

LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOUT
INHIBIT ITERATIONS
ESCAPE TO NEXT TEST ON ERROR

START PROGRAM AT SELECTED TEST

CHANGE PARAMETERS AT PROGRAM RESTART

SUBROUTINE ABSTRACTS

gz
;2

S5.2.1

37
gg

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

TRAPCATCHER (LOCATIONS 000000-000776)

41
42
43

0
4
0

772

47
::

776
0

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

WITH

PROCESSOR STACK MAY BE EXAMINED TO DETERMINE

MWAS

THE

2 GREATER THAN THE ADDRESS TO WHICH THE PROGRAM TRAPPED.

WHEN THE TRAP OR INTERRUPT OCCURED.

WHERE

THE

PROGRAM

THE

MACRO V04.00

7
SEQ

27-JUN-85 13:04:20 PAGE 7

i. _

TN
IO O RO RO N o s et e et et b ot o et
REESaISGRAR2EeEURLRURE ggoa?uaumo—gooqoubumuoooqouuwuoo-

CZDHH-CO

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 DHi1 TO BE TESTED.

5.2.3

BEGIN (PROGRAM START AND RESTART)

THIS ROUTINE IS ENTERED IMMEDIATELY AFTER
“START”
AND EACH TIME
A
PROGRAM PASS HAS
BEEN COMPLETED.
THE ROUTINE SETS UP THE PROCESSOR
STACK AND STATUS WORD AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH
TESTING WILL BEGIN.
IF SWO1=0 WHEN THIS ROUTINE IS ENTERED TESTING
WILL START AT T1 (TEST 1).
IF SWO1=1 WHEN THIS ROUTINE
IS
ENTERED,
TESTING WILL START AT THE PC ENTERED FROM THE TELETYPE KEYBOARD.

5.2.4

EOP (END OF PASS)

THIS ROUTINE IS ENTERED ONCE PER PASS
AFTER
ALL
TESTS
HAVE
BEEN
COMPLETED.
THIS ROUTINE TYPES THE MAINDEC IDENTIFICATION CODE OF THE
PROGRAM, CLEARS ERROR FLAGS AND UPDATES THE PASS COUNT.
IF THE
PROGRAM WAS
LOADED UNDER ACT1i OR DOP, THE ROUTINE CHECKS FOR RETURN
TO THE ACT11 OR DDP MONITOR.
IF THE
PROGRAM IS NOT
UNDER MONITOR
CONTROL, THE ROUTINE TRANSFERS TO BEGIN.

5.2.5

SCOPER (SCOPE LOOP AND ITERATION HANDLER)

THIS ROUTINE IS ENTERED EACH TIME A TEST IS
CHECKS FOR THE FOLLOWING UPON ENTRY

COMPLETED.

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

THE

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

SWid=1,

THE

ROUTINE

MILL

LOOP

REGARDLESS OF THE ITERATION COUNT.

THE

NEXT
THE

ROUTINE

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

——

OO DD NN RO NI = o b s o et et oo o
RESSEISGRAREseEURRgURE 83.qouaumnoooqououmn'éooqouauv\n—

CZDHH-CO

MACRO V04.00

SEQ
8

27-JUN-85 13:04:20 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 IN THOSE TESTS,
WHETHER
OR
NOT
AN ERROR
OCCURS.
IF SWO09=1, THE RGUTINE WILL TRANSFER CONTROL BACK TO THE TEST
AT A
POINT
WHICH
WILL
ALLOW REPEATING
THE
FUNCTION UNDER
TEST
CONTINUOUSLY
WITH
THE
SAME
DATA.
IF THIS OPTION IS SELECTED, THE
l}mm% “SCOPER” IS NEVER ENTERED ANG ITERATION COUNTS
WILL
NOT
BE

5.2.7

ERRORS (ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
SWITCHES DOKN, 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.

S5.2.8

WITH

FAILURE

TYPED.

SW13=1, NO ERROR

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

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

PROGRESS.

IF SWi0=1,
THE ROUTINE MWILL ABORT THE CURRENT TEST, AND
IWSCWEE TO THE NEXT TEST IN SEQUENCE,
THRU THE ROUTINE

TRPSRV (TRAP DECODE AND DISPATCH)

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

MACRO V04.00

9
SEQ

27-JUN-85 13:04:20 PAGE 9
PAGE 9

5.3

PROGRAM AND OR OPERATOR ACTION

5.3.1

PROGRAM START WITH ALL SWITCHES DOWN

o n et et o e

s e

NOVBANNFOOV®NOUVIS
N

CZDHH-CO

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 MWILL BE REPEATED A SELECTED NUMBER OF ITERATIONS
(SEE LISTING FOR EXACT NUMBER FOR EACH TEST) AND THEN THE PROGRAM WILL
PROCEED TO THE NEXT TEST.

5.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED,
THE PROGRAM
WILL
TYPE
“CZDHH-C*
AND
THEN RESTART TESTING AT TEST 1 C(LOCATION T1 IN THE
PROGRAM).

5.3.1.4 IF AN ERROR OCCURS, THE PROGRAM WILL
TYPE AN
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

AROEEWTICOT

2555
0h 0l Ol Gl G Gl G Gl GG

D N TR T R RN N 1= 4o 4o

unnoogqgugannoooqououm»gooqu==§:Sooqouaun»

CZDHH-CO

MACRO V04.00

SEQ 10

27-JUN-85 13:04:20 PAGE 10

PAGE 10

:‘I’s‘l’gé; 1‘RFTEI! “CZDHH-C” HAS BEEN TYPED, THE PROGRAM WILL RESUME TESTING

5.3.4

PROGRAM OPERATION WITH SWiS=1

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, THE
PROGRAM
WILL
HALT
AFTER THE ERROR TYPEOUT, AND THE PC+2 OF THE CALL TO THE ERROR
ROUTINE WILL BE DISPLAYED IN RO.

5.3.5

PROGRAM OPERATION WITH SW13=1

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR

5.3.6

PROGRAM OPERATION WITH SWil=1

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

5.3.7

PROGRAM OPERATION WITH SW10=1

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

5.3.8

PROGRAM OPERATION WITH SWi4=1, OR SWO09=1

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

SEE

SECTION

CZDHH-CO
44
45
46
47
48
49

53
55
57
58

MACRO V04.00

SEQ 11

27-JUN-85 13:04:20 PAGE 10-1
6.0

ERRORS

6.1

ERROR HALTS

THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS IS AS FOLLOMS

PC+2

MESSAGE
HEADER (IF APPLICABLE)
DATA
(IF APPLICABLE)

WHERE

PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2;
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE;
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOM;
DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF
THE FAILURE.

CZDHH-CO

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

{

g
:

PAGE 11
THE

SAME

ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS. AND
IF DATA

IS ASSOCIATED WITH THAT ERROR., ONLY DATA IS TYPE ON

TYPEOUTS.

SUCCEEDING

ERROR

gg DATA IS ASSOCIATED WITH THE ERROR THE COMPLETE ERROR MESSAGE

'
|

6.1.1

SEE LISTING FOR DETAILS OF ERRORS

17
18
19

6.2

21
22
g

6.2.1

CONTINUE TESTING

ERROR DESCRIPTIONS

ERROR RECOVERY

SW1S=0

IF THE PROGRAM IS RUN WITH SW15=0, NO OPERATOR ACTION IS REQUIRED TO

6.2.2

SW1S=1

IF THE PROGRAM IS RUN MITH

SW1S=1,

CONTINUE

TESTING

AFTER

PROGRAM HAS MALTED, PRESS THE PROCESSOR CONSOLE CONTINUE SWITCH

THE

6.2.3

39
40
41
42
43
a4
45

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

46
47
48

6.3

ILLEGAL INTERRUPTS

SCOPE LOOPING

MACRO V04.00

SEQ 13

27-JUN-85 13:04:20 PAGE 12

VNV BWN -

CZDHH-CO

.3.1 7O SCOPE ON A SPECIFIC TEST, SET SWi4=1 AND SW13=1.
THIS MILL
CAUSE THE PROGRAM
TO CONTINUOUSLY LOOP ON THE SAME TEST, AND MILL
CAUSE ALL ERROR TYPEOUTS TO BE INHMIBITED

10
i1
12

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

6.3.3

PERFORM SECTION 4.3.4 WITH SWi4=1

7.0

RESTRICTIONS

7.1

STARTING

PAGE 12

PROGRAM START TO SCOPE LOOP ON SELECTED TEST

THE DH11 TEST CARD MUST BE INSTALLED

7.2

NONE

RUNNING

CZDHH-CO

MACRO V04.00

27-JUN-85 13:04:20 PAGE 12-1

38
39

8.0

MISCELLANEOUS

42
43

8.1

EXECUTION TIME

40
41

44
45
46
47
48
&9

S1
53
55

r——

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

TIME
PROCESSOR

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

PDP-11/45

SEQ 14

gnnuuhfl-nw»n
OCNOMO“N”OOC#OM.UJNP

CZOHH-CO

MACRO V04.00

SEQ 15

27-JUN-85 13:04:20 PAGE 13
PAGE 13

9.0

PROGRAM DESCRIPTION

FIRST, VERIFY THAT AUTO-ECHO WORKS ON ALL LINES BY TRANSMITTING ONE CHARACTER
WITH AUTO ECHO ENABLED.

THEN A BINARY PATTERN IS TRANSMITTED ON ALL LINES EXCEPT THE ON WITH AUTO-ECHO
ENABLED.
A SINGLE CHARACTER IS TRANSMITTED ON THAT LINE.
ALL DATA IS VERIFIED
TO BE CORRECT.

10.0

LISTING
:

MACRO VC4.00

SEQ 16

27-JUN-85 13:04:20 PAGE 14
i DHMAC-A - DH11 MACRO LIBRARY
+ COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
LIST
«NLIST

ME
MC,MD,.CND

- =
[

gflOUIQuNo-

CZDHH-CO

131

148

158
167
303
339

373

395

CLEAN
END OF PASS
MESSAGE.

751

]

4
b4

3
g

6 SKONETSKI 22-APR-1985 14:22:35 “FIXED
&5 SKONETSKI 22-APR-1985 08:28:54 “FIXED BUG (AN OCTASC MACRO CALL WAS WRONG) AND ADDED A

¢4 SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTMARE SMITCH REG SUPPCRT, BUT UNTESTED”
+3 SKONETSKI 12-APR-1985 10:34:52 "FIXED PROBLEMS MITH SPURIOUS

753

: 2 SKONETSKI 11-APR-1985 16:00:24 "ADDED MACRO FROM SYSMAC.SML THAT

754

s o1 SKONETSKI 11-APR-1985 15:49:05 "LIBRARY FOR DM11 DIAGNOSTICS”

TCH REGISTER”

——

ADDED CODE TO

;

TRAPS.
~
749

¢8 SKONETSKI 22-APR-1985 16:48:03 “TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED”
0

748

i *9 SKONETSKI 26-APR-1985 16:23:08 "FIXED TYPO

747

CMS REPLACEMENT HISTORY

)

745

746

691
712
743

FOR SOFTUARE SuI

——
e
s

CZDHH-CO

MACRO V04.00

2
3
S 000000

SEQ 17

27-JUN-85 13:04:20 PAGE 15
LIST
ME
.NLIST
MC,MD,CND
.HEADER t/1972,1985/,t/DH11 AUTO-ECHO TEST/,t/CZDHH-CO/

1 STARTING PROCEDURE
:LOAD PROGRAM
:LOAD ADDRESS 000200
iPRESS START
:PROGRAM WILL TYPE DH1l AUTO-ECHO TEST
1PROGRAM MILL TYPE “VECTOR ADDRESS-”
+TYPE IN THE ADDRESS UF THE RECEIVER INTERRUPT VECTOR
+FOR THE DHi1 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
+PRUGRAM MWILL TYPE "CONTROL REGISTER ADDRESS-”
s TYPE_IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
:FOR THE CH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
+PROGRAM WILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED
+AT THE END OF A PASS, PROGRAM WILL TYPE * CZDHM-CO ~
+AND THEN RESUM TESTING
TITLE

000000

3 3

CZDHA-CO

.ENABLE ABS

-NLIST
LIST

MC,MD,.CND
ME
.SYMBOLS

6 0C0000

:SMITCH REGISTER OPTIONS

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

: 3

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

SH15=100000
SH14=40000
SH13=20000
SH12=10000
SH11=4000
SH10=200C
SH09=1000
SH08=400
SH06=100
SHO05=40
S04 =20
SW03=10
SHo2=4
SHe1=2
SHO0O=1

100000
040000
020000
010000
004000
002000
€91000
000400
000100
000040
000020
000010
000004
00002
000001

CZDHH-CO

MACRO V04.00

SEQ 18

27-JUN-85 13:04:20 PAGE 16

;REGISTER DEFINITIONS

000000
000001
000002
000003
000004
000005
000006
000007

177776.
015644

RO=%0
R1=#1
R2=%2
R3=%3
R1=%4
RS=%5
SP=%6
PC=7

tGENERAL REGISTER
:GENERAL REGISTER
1GENERAL REGISTER
+GENERAL REGISTER
:GENERAL REGISTER
:GENERAL REGISTER
:PROCESSOR STACK POINTER
:PROGRAM COUNTER

;LOCATION EQUIVALENCIES

s 3

iSWR=177570

: 4

sCONSOLE SWITCH REGISTER

iLIGHTS=177570

;PDP-11/45 DISPLAY REGISTER

: 4

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

s 3

sINSTRUCTION DEFINITIONS

005746
005726
010046
012600
024646
022626

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

.MACRO
.ENDM

HLT

EMT
W7

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

1 000000

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

B8IT15=100000
8IT714=40000
B8IT13=20000
B8IT12=10000
B8IT11=4000
B8IT10=2000
8I709=1000
B81708=400
BIT07=-200
BIT06=100
BIT05=40
BIT04=20
B8IT03=10
BIT02=4
BITO01=2
BIT00=1

: 3

.CATCH

o ——

e ——

I PR

SRt Vi .

CZDHH-CO

MACRO V04.00

000000

.=0

000200

000100
000102
000104
000106
000110
000112
000114
000116

000122
000124
000126
000130
000132
000134
000136
000140
000142
000144

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

e T———

s TRAPCATCAER FOR ILLEGAL INTERRUPTS

.REPT 200
——"

000074

SEQ 19

27-JUN-85 13:04:20 PAGE 17

.02

tUNEXPECTED TRAP TO THIS LOCATION

.2
HALT
2
HALT
.2
HALY
.02
HALT
.02
HALT
.2
HALT
.2
HALT
.2
HALT
.2
HALT
.2
HALT
.2
HALT
.42
HALT
. *2
HALT
.*2
HALT
.02
HALT
. *2
HALY
.2
HALY
.*2
HALT
. 02
HALT
.42
HALT
.2
HALT
o2
HALT
.42
HALT
.42
HALT
.42
HALT
.2

sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK 70 FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE 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
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
3EXAMINE STACK TO FIND CAUSE
sUNEXPEC
TRAP TO nusc&nm
sEXAMINE STACK TO FIND
sUNEXPECTED TRAP TC 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

HALT

{EXAMINE STACK TO FIND CAUSE

M“

CZDHH-CO

MACRO V04.00

000146

SEQ 20

27-JUN-85 13:04:20 PAGE 17-1

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000156

000000

HALT

000162

000000

HALT

000000

HALT

000172

000000

HALT

000176

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000202

000000

HALT

:EXAMINE STACK TO FIND CAUSE

000206

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000212

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000216

000000

HALT

000222

000000

HALT

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

000242

000000

HALT

000246

000000

HALT

000252

000000

HALT

000256

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

$EXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000
000322

HALT
.42

000326

000150

000152

000154

000156

000160

000166

000170

000172

000166

000174

0c0224

000226

000250

000254
000260

000262
000264

000266

000326

. o2

.02
.2

—

tUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION

{EXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
tUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

TED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE
:

TED TRAP TO THIS LOCATION

TRAP TO THIS LOCATION

TED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE
sEXAMINE STACK TO FIND CAUSE

sEXANINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPEC
sEXAMINE
sUNEXPEC

TO THIS LOCATION
STACK TO FIND CAUSE
TRAP TO THIS LOCATION

sUNEXPEC

TRAP TO THIS LOCATION

.02

HALT

{EXAMINE STACK TO FIND CAUSE

.2
HALT
.2

.42

000000

sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAF TO THIS LOCATION

000000

sUNEXPECTED TRAP TO THIS LOCATION

.42

000306

010316

000324

000266

000314

000322

.*2

000262

000312

000316
000320

.42

000256

000310

000312

. %2

000252

000302

000306

000246

000300
000304

000242

000272
000000
000276

000302

000226

000270
000272
000274

000276

.42

000222

000236

000244

.02

000216

000234
000240

.42

000212

000232

000236

000206

000230

000232

000202

000204

000220

000176

000200

000214

000162

000164

000210

.42

sEXAMINE STACK TO FIND CAUSE

$EXAMINE STACK TO FIND CAUSE
'

TED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

e
e e

CZDHH-CO
000330

000332
000334
000336
000340
000342
000346
000350
000352
000354
000356

000366
000370
000372
000374
000376
000404
000406
000410

000414
000416
000424

MACRO V04.00
000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000362

000366

SEQ 21

27-JUN-85 13:04:20 PAGE 17-2
.2
HALT
.2
HALT
.2
HALT
.42
HALT
.*2
HALT
.42
HALT
2
HALT
.2
HALT
.+2
HALT
.02
HALT
.42
HALT
.42
HALT
.+2
HALT
.*2

HALT
.22

HALT
.2
HALT
.42

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

tUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
{EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FINU 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
:Em 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

sem STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STW T0 FINL CAUSE

sUNEXPECTED TRAP? TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO TMIS LOCATION
afim STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

amm STACK 70 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

MACRO V04.00

000000
000516
000000
000522
000000
000526
000000
000532
000000
000536

000000

SEQ 22

27-JUN-85 13:04:20 PAGE 17-3

HALT
.42
HALT
.42

HALT
*2

HALT

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

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

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

{EXAMINE STACK TO FIND CAUSE

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

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

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
.Emme STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;em STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
.zxnm: 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

000666
000000
000672
000000

.42
HALT
.42
HALT

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

00020

HALT

:EXAMINE STACK TO FIND CAUSE

CZDHH-CO
000674
000676
000700
000702
000704
000706
000710

000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742

000744
000746
000750
000752
000756
000760
000762
000764
000766
000770
000772
000774
000776
1 001000

MACRO V04.00

000676

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

SEQ 23

27-JUN-85 13:04:20 PAGE 17-4

.SETVEC

HALT
Y
HALT
.2
HALT
Y
HALT
.42
HALT
.42
HALT
.42
HALT
.42
HALT
.2
HALT
Y
HALT
Y
HALT
.42
HALT
.2
HALT
.42
HALT
.42
HALT
.02
HALT
.42
HALT

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

CZ0HH-CO

000200

MACRO V04.00

000200
000167

000600

SEQ 24

27-JUN-85 13:04:20 PAGE 18

.=200

sSTANDARD INTERRUPT VECTORS

JHP

START

;GO TO START OF PROGRAM

. TRPDEF

1 000204

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

000204

104400
000001
104401

TRPDEF

SCOPE, +/SCOPE LOOP AND ITERATION HANDLER/
ecrf-TRAPoY
;SCOPE LOOP AND ITERATION HANDLER

TRPDEF

TYPE, t/TELETYPE OUTPUT ROUTINE/
;Y;E;TRAPW
s TELETYPE OUTPUT ROUTINE

TRPDEF

OCTASC, +/0CTAL TO ASCII CONVERSION/
(Y)C;A?:-TRAPOY
;OCTAL TO ASCII CONVERSION

TRPDEF

INSTR, t/INPUT ASCII STRING/
WT?-TRMOY
sINPUT ASCII STRING

=Ye

000204

104402

sYe

000204
000204

104403
000004
104404

=Ye

TRPDEF

INSTER,*/STRING INPUT ERROR/
YDC?T?I-TWOY
sSTRING INPUT ERROR

TRPDEF

PARAM, t+/CONVERT STRING TO OCTAL, CHECK LIMITS/
:llYlN:OTRMOY
sCONVERT STRING TO OCTAL, CHECK LIMITS

TRPDEF

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

sYe

000204

104405

sYe

104406
000007

Y=Ysl

RESOS, +/RESTORE RO-RS/
sseoz-m»ov

104407
000010

;RESTORE RO-RS

=Ye

SCOPE1, */CHECK FOR FREEZE ON CURRENT DATA/
ffii"lmov
sCHECK FOR FREEZE ON CURRENT DATA

104410
000011

sYe

CODEM1

.ENDM
START

MOV
INC

DHSSR,DHSLR
DHSLR

+SET_UP ADDRESS OF SILO
sSTATUS REGISTER HIGH BYTE

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

CZDHH-CO
0

MACRO V04.00

SEQ 25

27-JUNN-85 13:04:20 PAGE 19

001000

.=1000
sPROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
sSET UP PROCESSOR STACK
sSET UP POMER FAIL VECTOR
sCLEAR PROGRAM FLAGS AND COUNTS
sTYPE TITLE MESSAGE

IIF NB <>,
JIIF NB <>,

001000

177570

001002

177570

001004
001012
001016

012767
012706
012702

SUR:
000340
015644
000024

001022 012722
001026 012722
001032 012722
001036 012722
001042 012722
001046 012712
001052 005067
001056 005067
001062 005067
001066 005067
001072 005067
001076 016746
001102 016746
001106 012767
001114 005777
gfl.z 000405

014510
000340
012350
000340
012562
000340
012556
012512
012510
012500
012474
176702
176700
001122
177660

001122
gfi‘lg

012767
005067

000176
177646

001134
001136
001140
001144
001150
001154

005726
005726
012667
012667
104401
005767

001160

001001

176764

LIGHTS:

.MORD

177570

: SWITCH DHSCR ADDRESS

START:

MOV
MOV
MOV

#340,PS
#STACK,SP
#24,R2

;LOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK
+ POINT TO VECTOR AREA

&
:

»
:

176642
176634
014660
012452

LMORD

MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CLR
CLR
CLR
MOV
MOV
MOV
18T
BR

176670

177650

sDETERMINE MEMORY SIZE
;SET UP TRACE TRAP RETURN

.IF NB
IFF
.ENDC
JIF NB
SIZE:

18:
24:

#PFAIL,(R2)+
#340, (R2)+
SERRORS, (R2)+
#340, (R2)+
STRPSRY, (R2)+
9340, (R2)
STFLG
PASCNT
ERRCNT
ERRFLG
ERRFLG
4, -(SP)
6, -(SP)
414, 4
85KR
24

: LIGHTS

1SET UP POMER FAIL TRAP
$+SERVICE AT LEVEL 7
sERROR HANDLER
sSERVICE AT LEVEL 7
sGENERAL HANDLER DISPATCH SERVICE
sSERVICE AT LEVEL 7
sCLEAR TEST START FLAG
sCLEAR PASS COUNT
;CLEAR ERROR COUNT
;CLEAR ERROR FLAG
sCLEAR LAST ERROR PC
; PUSH TRAP VECTOR
s+ SET UP TRAP VECTOR
3+ TEST SWITCH REGISTER ADDRESS
s IF SUCCESSFUL, LEAVE IT ALONE

: 4

; &
: 4

s
s
s
s
3
;
;

7
7
7
7
7
7
8

:
:
:
1
;

4
&
4
4
:

MOV
CLR

9176, SHR
LIGHTS

-3 POINT TO SOFT SWITCH DHSCR
1 4
s O MEANS ME ARE NOT GOING TO USE LIgflTS : 4

ST
18T
MOV
MOV
TYPE
187

(SP)«
(SP)+
(SP)», 6
(SP)+, 4
JMIITLE
INIFLG

3+ CLEAN UP STACK

BNE

VEC1

sIF NOT O, CHECK SWITCHES

BNE

BEGIN

sIF NOT O, START TEST

MOV

ST
BR
MoV
SUB
MOV

024,804

(RO)»
1
RO, HCORE
#2 ,HCORE
46,804

sTYPE TITLE MESSAGE
sCHECK INITIALIZATION FLAG

4
1 4
; 4
: 4

sFOR REINITIALIZATION

$SET UP TIME OUT RETURN

sWILL TRAP WHEN NO MEMORY
sLOCATION RESPONDED, CONTINUE
3RO CONTAINS ADDRESS OF
sNON EXISTANT MEMORY
sRESTORE TRAPCATCHER

1 9

.ENDC
IF N8
TRACER: MOV

SXT

#14,.8010
RO

BR
MOV

24
RTI,TRTRET

MOV

.ENDC
JIF N8
JIF B

001162

IFF

177606

.ENDC
VEC1:
VEC2:

14:

001000

VEC2

78T

INIFLG

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

#SKH00, BSHR

BEQ
BIT

VEC2

BEQ

BEGIN

+IF SWOO=1, GET NEW VECTOR
sAND CSR

MOV
MOV
MOV
MOV
CLR
ADD
ADD
cHeP

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

sRESTORE TRAPCATCHER
+IN FLOATING VECTOR AREA

INSTR
MVECTOR
PARAM
300
770
DMRVEC
3

BYTE
BYTE

IF 8

012270
012264

012270

sINPUT ADDRESS OF DEVICE VECTOR
sMESSAGE "VECTOR ADDRESS-*
sCONVERT STRING TO OCTAL
sLOM LIMIY
sHIGH LINIT
LS8
sINPUT ADDRESS OF DEVICE CSR

INSTR
MREGAD

1MESSAGE "CONTROL REGISTER ADDRESS-*
sCONVERT STRING TO OCTAL
sLOM LINIT
sHIGH LIMIT
sLOCATIONS TO BE FILLED
iNUMBER OF LOCATIONS
;LS8 MASK

DHSCR
7

10
‘1’

CODEML

MoV
INC
ST

BNE
coM

sLOCATIONS TO BE FILLED
sNUMBER OF LOCATIONS

177776

010

005167

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

104405
000000
177776
013540
007

005767
001002

#12,8010
STRTRET, 9016

BNE

.BYTE
.BYTE

016767
005267

MOV
MoV

SRTT,TRTRET

+SET UP ILLEGAL INSTRUCTION TRAP RETURN
iD0 11/40, 11/45 INSTRUCTION
111/740,45 RTT RETURN FROM TRACE TRAP

14:

000001

SEQ 26

27-JUN-85 13:04:20 PAGE 19-1

MACRO V04.00

DHSSR, OHSLR
DHSLR
INIFLG

BEGIN
INIFLG

TART
sPROGRAM ST

+SET UP ADDRESS OF SILO
1STATUS REGISTER MIGM BYTE
1IF INITIALIZATION
FLAG

:11IS CLEARED
+sSET IT

sCHECX FOR PROGRAM START AT SELECTED ADDRESS

CZDHH-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
015123
104405
000000
017500
013600
001
001
000410
012767
005767
001004
005167
104401
000177

000340
015644
000002

176462

BEGIN:

177452

.BYTE
001400

012252
012244
015117
012200

SEQ 27

27-JUN-85 13:04:20 PAGE 19-2

012222

1$:

MOV
MOV
BIT
BEQ
INSTR
MTSTPC
:lfllfl
17500
RETRN
1
1
BR
MOV
TST
BNE

com

TYPE
JHp

9340,PS
OSTACK,SP
:fHOI..SHR

1LOCK OUT INTERRUPTS
1SET UP PROCESSOR STACK
sIF 5W01=1
1GET PC FOR PROGRAM START
1GET PC
sMESSAGE “TEST PC”
sCONVERT STRING TO OCTAL

; 8

sNORMAL START, TEST 1
+IF LOOPING, BYPASS TYPEOUT
;TYPE “R” T0 INDICATE START
sSTART TESTING

CZDMN-CO
1
4
3

MACRO V04.00

.MACRO

.|
6

XLINE,XBIT,K

TS \XN,100,4¢
MOV
18:
JSR

@BIT11,8DHSCR
PC,CLRALL

MOV

19
20
21

MOV

9133503, SOMLPR

MOV

@' XBIT',SDHBAR
SDHSCR

15
16
17
18

22
23

24
25
26

MOV
MOV
MOV
CLR

2%:

27
28

@' XLINE' ,8DHSCR
@-1,80H8C
OTHRD'
K ,8DHBA
:{N.RO

sMASTER CLEAR INTERFACE
iCLEAR ALL BYTE COUNT AN
+8US ADDRESS REGISTERS
+SELECT LINE ‘XLINE'
sSET BYTE COUNT TO 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
sSET UP SPEED FOR 9600 BAUD
:8 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE ‘ XLINE'
sSET BAR BIT FOR LINE ‘K‘

sMAIT FOR CHARACTER TO

:BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
3IS CHARACTER CORRECT
s(RSI=EXPECTED CHARACTER

3%:

25
37

BPL
INC
MOV

MOV
CLR

32
33
34
35

TST8

o
BEQ

29
30

——

AUTO1

1ENABLE AUTO ECHO ON LINE ‘XLINE'
s TRANSMIT ONE CHARACTER ON LINE 'XLINE’
tAT 9600 BAUD, 8 BITS.
tRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
tAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
tEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

?
8
9
10
11
12

SEQ 28

27-JUN-85 13:04:20 PAGE 20

B8R
DEC
8GT
Ml

8IC

43:

.ENDN

SCOPE
AUTOL

1SHUT OFF AUTO-ECHO
:GET 1 MORE CHMARACTER

sCHECX FOR ITERATIONS. LOOP

CZDHH-CO
1

MACRO V04.00

.MACRO

XLINE,XBIT,K

1 TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE ‘K’
s TRANSMIT

S
6
Z

1 CHARACTER ON LINE

'K'

WITH AUTO ECHO ENABLED

1 TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
tCHARACTER LENGTH IS 8 BITS
{VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES

TS \XN,10,5$

JSR

PC,SETALL

MOV
MOV

'K’ ,8DHSCR
@THRD'K’ ,8DHBA

$SELECT LINE XLINE FOR TESTING
;CHARACTER TO BE TRANSMITTED

MOV
MOV
BIC

¢-1,80H8C
9133503, GDHLPR
@' XBIT' ,LINACT

sON LINE XLINE IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE XLINE
3SET AUTO ECHO FOR LINE XLINE
;CLEAR LINE ACTIVE BIT

CLR
MOV

BPL
MoV
SWAB
8IC
MOV
ASL
o
BEQ
g

RO
SDHNRC R4

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO

#177760,R3
R3.R2
R2
RS, 'K’
89
2..5(“).”

sCLEAR STATUS BITS

RBUF(R2).RS

s(RS)=EXPECTED NON ECHOED DATA

iNON ECHOED DATA ERROR

RBUF(R2)
19
LINBIT(R2),LINACT

sUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE
sCLEAR ACTIVE BIT
sIF ALL LINES ARE DONE
EXIT
:SELECT LINE XLINE
sCLEAR AUTO ECHO FOR LINE XLINE
+GET REST OF CHARACTERS
:AND CHECX

MOV

13
14

AUTO2

SEQ 29

27-JUN-85 13:04:20 PAGE 21

15
16
17
18

20
21

22
23
24
as
26
27
28
29
30

MOV

18:

35
36

37
38
39
40
41
42
43
44
45
46

28:
3s:

4s;

8IC
57
SNE
MOV
BIC

1578

INCB
BNE

BNE
BR
INC
g

MOV

Ss:

.ENDM

SCOPE
AUTO2

@BIT11,80HSCR

@-1,80HBAR

sMASTER CLEAR INTERFACE

+SET UP ALL LINES TO TRANSMIT
1400 (OCTAL) CHARACTERS

sSET BAR BITS FOR ALL LINES

1s
:‘3..3

1s
#'K’ ,BDHSCR
€100000, @DHLPR
SDHSLR
13
S8
RO
g:.M'K'

THRD*X* RS

sIF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER

+IF LINE NUMBER IS XLINE
sCHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE XLINE, CHECK DATA

tUPDATE ECHOED CHARACTER COUNT
sCHECK ECMOED DATA

:(RS)=EXPECTED ECHOED DATA

+ECHOED DATA ERROR

sCHECK FOR ITERATIONS. LOOP

ORIV
B WN -

CZDHKH-CO

MACRO V04.00

.MACRO

SSETALL

tSET BYTE COUNT FOR ALL LINES TO 400
+SET BUS ADDRESS FOR ALL LINES TO TBUF
tCLEAR EXPECTED CHARACTER BUFFCRS
+SET LINE ACTIVE BITS FOR ALL LINES
SETALL: MOV

1¢:

URRRURLEY
GRS

.ENDM
:MACRO

€20,R0

CLR

MOV

@200,R2

MOV

1.R3

#TBUF , BDHBA

+SET UP TO LOAD 16

1BYTE COUNT AND BUS ADDRESS
+MEMORY LOCATIONS
+SET UP TO GENERATE EXPECTED
sRECEIVED CHARACTER BUFFER
sWILL BE HIGH BYTE
+0F EXPECTED RECEIVED CHARACTER

1OFFSET FOR HIGH BYTE
sLOAD BUS ADDRESS

MOV
MOV
CLRB

©-400,80HBC
31403, 80HLPR
RBUF(R1)

sLOAD BYTE COUNT
+SET LINE SPEED TO 4800 BAUD

MOV
INC
INC
ADD
ADD

R2,RBUF(RS)
SDHSCR
R2
2.R1
#2.R3

sLOAD HIGH BYTE
sADVANCE LINE NUMBER TO NEXT LINE
sUPDATE POINTERS

sCONTINUE IF NOT DONE

MOV
RTS

&-1.LINACY
PC

sSET ACTIVE FLAGS FOR ALL LINES
sRETURN TO CALLING ROUTINE

—

SEQ 30

27-JUN-85 13:04:20 PAGE 22

SSETALL

sRECEIVED CHARACTER

CCLRALL

sCLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS
CLRALL: MOV

1%:

L.ENDM

#20,R0

sSET UP TO CLEAR 16

CLR
CLR
INC
ac

SDHBA
S0HBC
SCHSCR
3

sCLEAR BUS ADDRESS
sCLEAR BYTE COUNT
sANVANCE LINE NUMBER
;CONTINUE IF NGT DONE

RTS

sRETURN TO CALLING ROUTINE

CCLRALL

MACRO V04.00

SEQ 31

27-JUN-85 13:04:20 PAGE 23

000020
000000
000020
000000
000001
000000
000020

XLINE=LINE
XBIT=BITX

K=KX
LINE=0

BITX=1

KX=0

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

KX=KX+1

LIST
.ENDR
AUTOL

001400

\LINE, \BITX, \KX

:ENABLE AUTO ECHO ON LINE ©
s TRANSMIT ONE CHARACTER ON LINE O
:AT 9600 BAUD, 8 BITS.
+RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
tAFTER 64 CHARACTERS MAVE BEEN RECEIVED, DISABLE AUTO ECHO.
1EXACTLY ONE MORE CHARACTER SMOULD BE RECEIVED.
0C1400
001400
001406
001414

012767
012767
012767

001422
001430

000100
001554

011744

001434
001442

177777
014310
000100

001450
001456
001462
001464

001472
001500
001504
201506
001510
001514
001520
001522
001526
001532

001534
001536
001540
001542

000001
012034

017704
020467
001406
016705
005077

060407
003357

176370

012172
012160

TS \XN,100.4¢
Ti:
MOV
MOV

#340,.PS

€100, ICOUNT
#43 ESCAPE

MOV
©
MOV

#.FREEZL

MoV
JSR

BIT11,80HSCR
PC.CLRALL

012070

MOV
MOV
MoV

90, 8DHSCR
4-1,80H8C
#TURDO, SDHBA

012052

Moy

#133503, SOHLPR

012052

MOV

#1 . 8DHBAR

BPL
INC

012110

JFNB

.ENDC
XN=XN+1

1%:

012076

012100

MoV
CLR

2%:

012026

TSTB

MoV

012570

012562
012012

3%:

e
BEQ
MOV
CLR
WY
ENT
BR
DEC
BGT
BMI

:I‘N.N

sDISABLE
ALL INTERRUPTS

»SET UP FOR 100 ITERATIONS

+SET UP TO ESCAPE TO NEXT TEST

sSET UP TO LOOP MITH DATA

: 3

+SET BYTE COUNT TO 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
3SET UP SPEED FOR 9600 BAUD
38 BITS PER CHARACTER.

laneo
:AUTO
ECHD ENABLED
+SEY BAR BIT FOR LINE
sHAIT FOR CHARACTER
TO
sBE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
+IS CHARACTER CORRECT

sCRS)=EXPECTED CHARACTER
T
OFF AUTO ECHO
1SHU

INCORRECTLY
ECHOED CTER
sCHARA

tRESTART TEST
+IF 64 CHARACTERS HAVE NOT
+BEEN RECEIVED, CONTINUE

CZDHH-CO
001544
001552
001554

001556

MACRO V04.00
042777
000752
104400
000001
000002
000001

100000

SEQ 32

27-JUN-85 13:04:20 PAGE 23-1
011772

4%:

BIC
B8R
SCOPE

€100000, 8DHLPR
24

LINE=LINE+1
BITX=BITX+BITX

1SHUT OFF AUTO-ECHO
sGET 1 MORE CHARACTER
;CHECK FOR ITERATIONS, LOOP

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

JENABLE AUTO ECHO ON LINE 1
i TRANSMIT ONE CHARACTER ON LINE 1
1AT 9600 BAUD, 8 BITS.
tRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
iAFTER 64 CHARACTERS WAVE BEEN RECEIVED, DISABLE AUTO ECHO.
1EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
001556
001556
001564
001572

012767
012767
012767

000100
001732

176212
012014
012002

TS \XN,100.4%

T2:

e
o

0C1600
001606

000003
012777
004767

001612
001620
001626
001634
001640
001642

012777
012777
0127177
012700
005001
012777

001650
001656
001662
001664
001666
001672
001676
001700
001704
001710
001710
001712
001714
001716
001720
001722
001730
001732

——

001734

012777
105777
100375
005201
017704
020467
001406
016705
005077

011566
000001
17 mn
014312
000100

011732

XN=XN+1

18:

011720
011722
011712

011674

MOV

MoV

o, FREEZL

sSET UP TO LOOP MITH DATA

MOV
JSR

#BIT11,B0MSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN

MOV

#1,80MSCR

ISELECT LINE 1

MOV

#THRDL , 8DHBA

MOV

TSTB

011634

MOV
CLR

TMRDL.RS
SDMLPR

g:.méx

PER CHARACTER,
ECHD ENABLED ON LINE 1

BAR BIT FOR LINE 1

:8E RECEIVED
;UPDATE RECEIVED CHARACTER COUNT

+(RS)=EXPECTED CHARACTER
:SHUT OFF AUTO ECHO

CHARACTER

:IS CHARACTER CORRECT

:IF

BIC

#100000,8DMLPR

sSHUT OFF AUTO-ECHO

BR
SCOPE

LINE=LINE+1
BITX=BITX+BITX
KX=KXe¢1

;
'
:SET

DEC

AUTOL ~ \LINE,\BITX,\KX

sSET UP ADDRESS OF CHARACTER TO SE TRANSMITTED

MAIT FOR CHARACTER TO

MOV

:SET BYTE COUNT TO 1

62,80HBAR

GDMSCR

s 3

REGISTERS

:SET UP TO RECEIVE 64 CHARACTERS
;COUNT OF CHARACTERS RECEIVED
:SET UP SPEED FOR 9600 BAUD

011614

:BUS ADDRESS

#100.R0
R
#133503,8DMLPR

012414

38:

BPL
I

#-1,60MBC

20
R
SDMNRC.Ré

011650

sDISABLE ALL INTERRUPTS
sSET UP FOR 100 ITERATIONS

sSET UP TO ESCAPE TO NEXT TEST

MOV
R
MOV

23:

€340,PS
€100, ICOUNT
Ws.ESCAPE

MOV

011674

011656

MOV
MOV

.xT

mn‘

;RESTART TEST

64 CHARACTERS HAVE NOT

1GET 1 MORE CHARACTER
1CHECK FOR ITERATIONS. LOOP

CZDHH-CO

MACRO VO4.00

SEQ 33

27-JUN-85 13:04:20 PAGE 23-2
+ENABLE AUTO ECHO ON LINE 2
1 TRANSMIT ONE CHARACTER ON LINE 2
tAT 9600 BAUD, 8 BITS.
tRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
+AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
{EXACTLY ONE MORE CMARACTER SHOULD BE RECEIVED.

001734
001734
001742
001750

012767
012767
012767

000340
000100
002110

176034
011636
011624

TS \XN,100,4¢

T3:

—

MOV
MOV
MOV

—

MOV

¢,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#BIT11,8DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV
CLR
MOV

92, 8DHSCR
@-1,80H8C
#TWRD2, 8DHBA
#100,R0
R1
#133503, SDHLPR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
sBUS ADDRESS REGISTERS
sSELECT LINE 2
+SET BYTE COUNT TO 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
+SET UP SPEED FOR 9600 BAUD
18 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 2

001756
001764

000004
012777
004767

001770
001776
002004
002012
002016
0C2020

004000
011410

011554

012777
012777
012777
012700
005001
012777

000002
177777
014314
000100

011542
011544
011534

133503

011516

002026 012777
002034 105777
002040 100375
002042 005201
002044 017704
002050 020467
002054 001406
002056 016705
002062 005077
002066
002066 104000
002070 000407
002072 005300
002074 003357
002076 100404
002100 042777
002106 000752
002110 1064400
0060C3
000010
000003
002112

000004
011500

011516

011472
012240
012232
011456

100000

011436

XN=XN+1
1s%:

340,PS
€100, ICOUNT
844 ,ESCAPE

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

MOV
&4, 8DHBAR
TST8
SDHSCR
BPL
24
INC
R1
MOV
SGDHNRC ,R4
cHe
R4, TURD2
BEQ
3¢
MOV
THRD2,RS
CLR
SDHLPR
WY
0
ENT
0
BR
43
3%:
DEC
RO
86T
24
BMI
4%
BIC
4160000, SDHLFR
B8R
2¢
48:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTOL
\LINE,\BITX,\XX
2s:

sSET BAR BIT FOR LINE 2
sWAIT FOR CHARACTER TO
+BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
:IS CHARACTER CORRECT
1(RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY

sRESTART TEST
1IF 64 CHARACTERS HAVE NOT
+BEEN RECEIVED, CONTINUE
:SWUT OFF AUTO-ECHO
1GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS. LOOP

sENABLE AUTO ECHO ON LINE 3
sTRANSMIT ONE CHARACTER ON LINE 3
sAT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
002112

TS \XN,100,44

; 3

MACRO V04.00
002112
002120
002126

012767
012767
012767

002134
002142

000005
012777
004767

002146
002154
002162
002170
002174
002176

012777
012777
012777,
012700
005001
012777

002216

012777
105777
100375
005201
017704
020467
001406
016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000004
000020
000004

000340
000100
002266

175656
011460
011446

004000
011232

011376

000003
177777
014316
000100

011364
011366
011356

133503

011340

000010
011322

011340

T4:
JOF N8

.ENDC
XN=XN+1
18:

011314
012064
012056
011300

35:

100000

SEQ 34

27-JUN-85 13:04:20 PAGE 23-3

011260

MOV
MOV
MOV
©
MOV

#340,PS
€100, ICOUNT
#44 ,ESCAPE

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

#.FREE21

+SET UP TO LOOP WITH DATA

MOV
JSR

@BIT11,8DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV
CLR
MOV

@3,8DHSCR
@-1,B80MBC
@TWRD3,BSOMBA
100,R0
R1
0133503, 8DHLPR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
+SELECT LINE 3
+SET BYTE COUNT 70 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
+SET UP SPEED FOR 9600 BAUD

910, 8DHBAR
GDMSCR

sAUTO ECHO ENABLED ON LINE 3
+SET BAR BIT FOR LINE 3
sMAIT FOR CHARACTER 7O

MOV
TSTE
8PL
IN
MOV

18 BITS PER CHARACTER,

W
BEQ
MOV
CLR
mT
T

28
RL
GDHNRC,.R®
R4, THRDS
3¢
TMRDS,.RS
GOWLPR
0
0

DEC

sRESTART TEST
sIF 64 CHARACTERS HAVE NOT
sBEEN RECEIVED, CONTINUE

sSHUT OFF AUTO-ECHO
sGET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

86T
BMI
BIC

B8R

29
A
#100000,DMLPR

[T H
SCOPE
LINESLINE+1
BITX-BITX+BITX
KX=KX+1
AUTOL
\LINE,\BITX,\KX

i 3

+BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
iREAD CHARACTER
+IS CHARACTER CORRECT
+ (RS )=EXPECTED
sSWUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY

;ENABLE AUTO ECHO ON LINE 4

ONE u.uuagu ON LINE &

1
“ m.
»
IRECEIVEAND VERTFY CNIIIC!!IB UNTIL 64 HAVE BEEN IE!!IUED
HAVE BEEN RECEIVED,

TEXACTLY ONE MORE CHARACTER SHOULD BE

012767
012767
012767

175500
011270

TS \XN,100,44

e
I

002312

012777

011220

-m
XN=XN+
1

TM
<>

3, ESCAPE

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

MOV

8.FREEZL

sSET UP TO LOOP WITH DATA

MOV

#BIT11,80HSCR

tMASTER CLEAR INTERFACE

: 3

CZDHH-CO
002320

MACRO V04.00

004767

011054

1$:

002324
002332
002340
002346
002352
002354

012777
012777
012777
012700
005001
012777

000004
177777
014320
000100

011206
011210
011200

133503

011162

002362
002370
002374
002376
002400
002404
002410
002412

012777
105777

000020
011144

011162

100375
005201
017704
020467
001406
016705
005077
104000
000407
005300
003357
100404

042777
000752
104400
000005
000040
000005

011136
011710
011702
011122

100000

SEQ 35

27-JUN-85 13:04:20 PAGE 23-4

011102

2s:

JSR

MOV
MOV
MOV
MOV
CLR
MOV

@4,8DHSCR
@-1,80HBC
@TWRD4 , BDHBA
€100,RO
R1
€133503, 8DHLPR

MOV
TST8

920, BDHBAR
S0HSCR

BPL
INC
MOV
CHP
BEQ
MOV
CLR
HLT
EMT
BR
3%:
DEC
86T
BMI
8IC
BR
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTOL

PC,CLRALL

24
R1
SDHNRC ,R4
R4, THRD4
34
TWRD4, RS
SOHLPR
0
0
4%
RO
24
44
100000, SDHLPR
24

iCLEAR ALL BYTE COUNT AN
1BUS

ADDRESS

REGISTERS

+SELECT LINE 4
1SET BYTE COUNT 70 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
+SET UP SPEED FOR 9600 BAUD
18 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 4
+SET BAR BIT FOR LINE 4
sWAIT FOR CHARACTER TO
+BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
+IS CHARACTER CORRECT
s(RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY

sRESTARY TEST
sIF
64 CHARACTERS MAVE NOT
;BEEN RECEIVED,
sSHUT OFF AUTO-ECHO
1GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\XX

sENABLE AUTO ECHO ON LINE S
sTRANSMIT ONE CHARACTER ON LINE S
sAT 9600 BAUD. 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
sAFTER 64 CHARACTERS NAVE BEEN RECEIVED, DISABLE AUTO ECHD.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
012767
012767
012767

000340
000100
002622

175322
011124
011112

TS \XN,100,4%
T6:
MOV
MoV
»
MoV
i

002470
002476

002510
002516

002532

000007
012777

004767

012777
012777
012777
012700
005001
012777

004000

011042

000005
177777
014322
000100

011030
011032
011022

133503

011004

010676

XN=XN+1

18:

#340,PS
#100, ICOUNT
844 ,ESCAPE

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

MoV

#,.FREEZ1

+SET UP TO LOOP MITH DATA

MOV

#BIT11,80HSCR

MOV
MOV
MOV
MOV
CLR

#5,8DHSCR
¢-1,80H8C
#TWRDS , SDHBA
#100,R0
R1

JSR

MoV

133503, SDHLPR

sMASTER CLEAR INTERFACE

sCLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
sSELECT LINE S
+SET BYTE COUNT TO
+SET UP ADDRESS OF
+SET UP TO RECEIVE
1COUNT OF CHARACTERS

1SET UP SPEED FOR 9600

: 3

CZDHH-CO

MACRO VO4.00

SEQ 36

27-JUN-85 13:04:20 PAGE 23-5
18 BITS PER CHARACTER,

002540

012777

002552
002554
002556

100375
005201
017704

002566
002570

001406
016705

002546

105777

000040

010766

011004

2s:

010760

002562 020467 011534

002574
002600
002600
002602
002604
002606
002610
002612
002620

002622

0c2624

005077

011526
010744

3%:
100000

€40, BDHBAR

BPL
INC
MOV

TST8

010724

104400
000006
000100
000006

SDHSCR

I)!NRC R4

CHP

R4, TWRDS

CLR
HLT
EMT
B8R
DEC
BGT
BMI
8IC
BR

SDHLPR
0
0
43
RO
24
44
9100000, SDHLPR
24

BEQ
MOV

104000
000407
005300
003357

100404
042777
000752

MOV

34
TWRDS, RS

43:
SCOPE
LINE=LINE.1
BITX=BITX+BITX
KX=KXe1
AUTO1
\LINE,\BITX,\KX

sAUTO ECHO ENABLED ON LINE S
+SET BAR BIT FOR LINE S
iWAIT FOR CHARACTER TO
+BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER

+IS CHARACTER CORRECT

1 (RS)=EXPECTED CHARACTER
sSHUT OFF AUTO ECHO

sCHARACTER ECHOED INCORRECTLY
sRESTART TEST
1IF 64 CHARACTERS MAVE NOT
sBEEN RECEIVED, CONTINUE
iSWUT OFF AUTO-ECHO
+GET 1 MORE CHARACTER

sCHECK FOR ITERATIONS, LOOP

sENABLE AUTO ECHO ON LINE 6
s TRANSHMIT ONE CHARACTER ON LINE 6
sAT 9600 BAUD, 8 BITS.

sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

umummmum DISABLE AUTO ECHO.
;EXACTLY ONE MORE CHARACTER SMOULD BE RECEIVED.

002624
002624
002632
002640

012767
012767
012767

000340
000100
003000

175144
010746
010734

TS \XN,100.4%
T7:
MOV
MOV
e MOV
.

_—
002646
002654

000010
012777
004767

002660
002666
002674
002702
002706
002710

004000
010520

010664

012777
012777
012777
012700
005001
012777

000006
177777
014324
000100

010652
010654
010644

133503

010626

002716
002724
002730

012777
105777
100375

000100
010610

010626

002734
002740

017704
020467

010602
011360

002732

005201

XN=XNe1
1%:

24:

#340,.PS
#100, ICOUNT
844 ,CSCAPE

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

MOV

#,FREEZL

+SET UP TO LOOP MITH DATA

MoV
JSR

#8IT11,8DHSCR
+CLRALL

sMASTER CLEAR INTERFACE
l”
ALL BYTE COUNT AN

MOV
MoV
MoV
MoV
CLR
MoV

96, 80HSCR
#-1,80H8C
THROG , SDHBA
#100,R0

sSELECT LINE 6
sSET BYTE COUNT TO 1
+SET UP ADDRESS OF CHARACTER
1SET UP TO RECEIVE 64
1COUNT OF CHARACTERS
+SET UP SPEED FOR 9600

MOV
1578
BPL

#100,8DHBAR

INC
Ll
cHP

9133503, GDMLPR

18 BITS PER CHARACTER,
+AUTO ECHO ENABLED ON

1SET BAR BIT FOR LINE
tMAIT FOR CHARACTER TO
+8E
RECEIVED

SOHNRC ,R4
R4, TURD6

tREAD CHARACTER
+IS CHARACTER CORRECT

tUPDATE RECEIVED CHARACTER COUNT

: 3

CZDHH-CO
002744

002746
002752
002756
002756
002760
002762
002764
002766

002770

002776
003000

MACRO V04.00
001406

016705
005077
104000
000407
005300
003357
100404

042777

000752
104400
000007

BEQ

011352
010566

010546

000200

003002

MOV
CLR
HLT
EMT
BR
DEC
BGT
BMI

34:
100000

SEQ 37

27-JUN-85 13:04:20 PAGE 23-6

BIC

BR
43:
SCOPE
LINE=LINE.1

TWRD6, RS
SDHLPR
0
0
4%
RO
2¢
4%

€100000, 8OHLPR

i(RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
iCHARACTER ECHOED INCORRECTLY

sRESTART TEST
+IF 64 CHARACTERS HAVE NOT
#BEEN RECEIVED, CONTINUE
sSHUT OFF AUTO-ECHO

1GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX

000007

KX=KX+1
AUTO1
\LINE,\BITX,\KX
sENABLE
AUTO ECHO ON LINE 7
s TRANSMIT ONE CHARACTER
ON LINE 7
+AT 9600 BAUD, 8 BITS.
+RECEIVE
AND VERIFY CHARACTERS
UNTIL 64 WAVE BEEN RECEIVED.
tAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHD.
$EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

003002
003002
003010
003016

012767

012767
012767

000340

000100
G356

174766

010570
010SS6

TS \XN,100,44
T10:
MOV
.
>

000011

sSET UP TO LOOP MITH DATA

XN=XN+1

MOV

JSR

eBIT11,80MSCR

JMASTER CLEAR INTERFACE

07,80MSCR
e-i,80M8C

ISELECT LINE 7
:SET BYTE COUNT TO 1

012777

004000

003032 004767 010342

010506

003036
003048

012777
012777

000007
177777

010474
010476

MOV
WOV

003060
003068
003066

012700
005001
012777

000100
133503

010450

WOV
arR
MOV

100.R0
R
9133503, 80MLPR

003076
003102
003106

012777
105777
100375

000200
010432

010450

v
1818
BPL

e200,a0ean

19:

003052 012777 014326 010866

MOV

20:

008112 o1TTOS 01042
003116 020467 011204
003122
003124
003130

001406
016705
005077

003134
003136
003140
003142

104000
000407
005300
003357

003134

——

sDISABLE ALL INTERRUPTS

#100,ICOUNT
e4s.ESCAPE

iSET UP FOR 100 ITERATIONS
iSET UP TO ESCAPE TO MEXT TEST

e
003024

#340,.PS

MOV
MOV

80
MWV
LR

011176
010410

JCLRALL

STMRD7.GONBA

Re DT
3
TMRD7.RS
SOMPR

AT
0
8R4
DEC
RO
86T
2

1CLEAR ALL BYTE COUNT AN
18US ADDRESS REGISTERS

iSET UP ADDRESS OF CMARACTER TO BE TRANSMITTED
iSET UP TO RECEIVE 64 CHARACTERS
JCOUNT OF CHARACTERS RECETVED
1SET UP SPEED FOR 9600 BAUD

18 BITS PER CHARACTER,
1AUTO ECHD ENABLED ON LINE 7
1SET BAR BIT FOR LINE 7
JMATT FOR CHARACTER TO
18€

'RERD
1IS CHARACTER CORRECT
|

1(RS)=EXPECTED CHARACTER
ISHUT OFF AUTO ECHO

{CHARACTER ECMOED INCORRECTLY
JRESTART TEST
{IF 64 CHARACTERS NAVE NOT
{BEEN RECEIVED, CONTINVE

CZDHH-CO
003144
003146

003154
003156

003160

MACRO V04.00
100404
042777

000752
104400
000010
000400
000010

100000

SEQ 38

27-JUN-85 13:04:20 PAGE 23-7

010370

BMI
44
BIC
#100000, 8DHLPR
BR
24
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTO1
\LINE,\BITX,\KX

1SHWUT OFF AUTO-ECHO

iGET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

1ENABLE AUTO ECHO ON LINE 10
s TRANSMIT ONE CHARACTER ON LINE 10
+AT 9600 BAUD, 8 BITS.
+RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
tAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

003160
003160

003166

003174

012767

000340

012767

003334

012767

000100

174610

010412

TS \XN,100,4$
Tii:

MOV

—

MoV

010400
o

003202
003210

000012

MOV

#340,.PS

sDISABLE ALL INTERRUPTS

44 ,ESCAPE

$SET UP TO ESCAPE TO NEXT TEST

#100.ICOUNT

sSET UP FOR 100 ITERATIONS

MOV

&,FREEZL

sSET UP TO LOOP MITH DATA

MOV
JSR

@BIT11,80MSCR
PC,CLRALL

{MASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN

#10,8DHSCR
#-1,8DMBC
OTMRD10,G0MBA
#100,RO
R
#133503.GDHLPR

012777
004767

004000
010164

010330

003214
003222
003230
003236
003242
003244

012777
012777
012777
012700
005001
012777

000010
177777
014330
000100

010316
010320
010310

133503

010272

MOV
MOV
MOV
MOV
R
MOV

003252

012777

000400

010272

MOV

#400,80MBAR

003264
003266
003270
003274

100375
005201
017704
020467

L
IN
MOV
CP

29
R
GDMNRC.R4
Re,TURDIO

+8E RECEIVED
1UPDATE RECEIVED CHARACTER COUNT
{READ CHARACTER
+IS CHARACTER CORRECT

TMRDIO.RS

1(RS)=EXPECTED CHARACTER

003260 105777 010254

003324

005300
003357
100404
042777

003332 000752
003334 104400
003336

000011
001000
000011

2s:

010246
011030

003300 001406
003302 016705 011022
003306 005077 010232
003312
003312 104000
003314 000407
003316
003320
003322

18:

100000

38:
010212

TSTBE

BEQ
MOV
CLR
wT
T
B8R
DEC
86T
NI
BIC

BR
SCOPE

a:
LINE=LINE+1
BITX=BITX+BITX
KX =KX+ §
AUTO1

GDMSCR

0
0
as

1BUS ADDRESS REGISTERS

sSELECT LINE 10
sSET BYTE COUNT T0 1
iSET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
1SET UP TO RECEIVE 64 CHARACTERS
;COUNT OF CHARACTERS RECEIVED
+SET UP SPEED FOR 9600 BAUD
18 BITS PER CHARACTER,

+AUTO ECHD ENABLED ON LINE 10
sSET SAR BIT FOR LINE 10

sMAIT FOR CMARACTER TO

}SWUT OFF AUTO ECHO
1CHARACTER
INCORRECTLY
JRESTART TEST

RO
29
A¢

1IF 64 CMARACTERS MAVE NOT
+BEEN RECEIVED. CONTINUE

1GET 1
1CHECK FOR ITERATIONS. LOOP

#100000,80M.PR

\LINE,\BITX,\KX

: 3

{SHUT OFF AUTO-ECHO

CZDHH-CO

MACRO V04.00

SEQ 39

27-JUN-85 13:04:20 PAGE 23-8

sENABLE AUTO ECHO ON LINE 11

s TRANSHIT ONE CHARACTER ON LINE 11
+AT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
tAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

003336

003336
003344
003352

012767
012767
012767

000340
000100
003512

174432
010234
010222

TS \XN,100,44
Ti2:
.

003360
003366

000013
012777
004767

003372
003400
003406
003414
003420
003422
003430
003436
003442
003444
003446
003452
003456
003460
003464
003470
003470
003472
003474
003476

003500
003502

003510

003512

003514

004000
010006

010152

012777
012777
012777
012700
005001
012777

000011
177777
014332
000100

010140
010142
010132

133503

010114

012777
105777
100375
005201
017704
020467
001406
016705

001000
010076

010114

005077
104000
000407
005300
003357
100404
042777

000752

104400
000012
002000
000012

—

MOV
MOV
MoV

—_—

MOV

#,FREEZ1

1SET UP TO LOOP MITH DATA

MOV
JSR

#8IT11,80HSCR
PC,CLRALL

tMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN

MOV
MOV
MoV
MOV
CLR
nov

11, SDHSCR
#-1,80HBC
OTWRD11, SDHBA
#100.RO
R1
0133503, GDHLPR

MoV
TST8
BPL
INC
MOV
o
BEQ
MoV

#1000, GOHBAR

XN=XN+1
1¢:

28:

010070
010654
010646

010054

100000

010034

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

CLR
Wt

34:

#340,PS
100, ICOUNT
44 ,ESCAPE

ENT
BR
DEC
86T
oI
8IC
R

1BUS ADDRESS REGISTERS
+SELECT LINE 11
+SET BYTE COUNT TO 1

1SET UP ADDRESS OF CHARACTER TO BE TRAMSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CMARACTERS RECEIVED
+SET UP SPEED FOR 9600 28U0
18 BITS PER CMARACTER,
sAUTO ECHO ENABLED ON LINE 11
+SET BAR BIT FOR LINE 11
sHAIT FOR CHARACTER TO
18E RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
sIS CHARACTER CORRECT

2
R1
GDHNRC ,R4
R4, TURD1L
38
TURD11.RS

1(RS)=EXPECTED CHARACTER

1SHUT OFF AUTO ECHD
'
ECHOED INCORRECTLY

0
44
RO
24
44
9100000, SOMHLPR

sRESTART TEST
+IF 64 CHARACTERS MAVE NOT
18EEN RECEIVED, CONTINUE
1SWUT OFF AUTO-ECHO

1GET 1 MORE

44
SCOPE
LIME=LINE.1
BITX=BITX+8ITX
KX=KXe1
AUTO1
\LINE,\BITX,\XX
sENABLE AUTO

s TRANSMIY

1 3

sCHECK FOR ITERATIONS, LOOP

ON LINE 12

CZDHKH-CO
003514
003514
003522
003530

003536
003544

003550
003556
0035¢4
003572
003576

003600

003606
003614

003642
003646

003656
003660
003666
003670

003672

MACRO VO4.00

012767
012767
012767

000014
012777
004767

012777
012777
012777
012700
005001
012777
012777

105777
100375

005201
017704
020467
001406
016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000013
004000
000013

000340
000100
003670

007630

174254
010056
010044

007774

000012
177777
014334
000100

007762
007764
007754

133503

007736

007720

007736

TS \XN,100,4%

T13:

JF N8
.ENDC
XN=XN+1
14:

2%:

MOV

#340,PS

MOV

@100, ICOUNT

44 ,ESCAPE

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

MOV

¢,FREE2}

$SET UP TO LOOP WITH DATA

#B8IT11,8DHSCR

tMASTER CLEAR INTERFACE
1CLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
sSELECT LINE 12
1SET BYTE COUNT TU 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
+SET _UP SPEED FOR 9600 BAUD

MOV
o

MOV

JSR

PC,.CLRALL

MOV
MOV
MOV
MOV
CLR
MOV

#12,8DHSCR
¢-1,80HBC
#TWRD12, BDOHBA
€100,R0
R1
9133503, 8DHLPR

MOV

1ST8

42000, SDHBAR

SDHSCR

007712

BPL
INC
MOV

010472
007676

BEQ
MOV
CLR

33
TURD12.RS
SDHLPR

EMT

DEC

010500

3s:
100000

SEQ 40

27-JUN-85 13:04:20 PAGE 23-9

007656

B8R

BGT
BMI
BIC

SCOPE

24
R1
GDMNRC ,R4

AUTOL

18 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 12
+SET BAR BIT FOR LINE 12
sWAIT FOR CHARACTER TO
+BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT

R4, TURD12

24
4%

€100000, SDHLPR

LINE=LINE-1
BITX=BITX+BITX
KX=KXo1

i 3

s(RS)=EXPECTED CHARACTER
sSHUT OFF AUTO ECHO
;CHARACTER ECHOED INCORRECTLY
sRESTART TEST
:IF 64 CHARACTERS HAVE NOT
+BEEN RECEIVED, CONTINUE
iSHUT OFF AUTO-ECHO
iGET 1 MORE CHARACTER
sCHECK FOR ITERATIONS. L

\LINE,\BITX,\KX

sENABLE AUTO ECHO ON LINE 13

s TRANSHMIT ONE CHARACTE
ON LINE
R 13

sl! 9600 m 8 BITS.

sRECEIVE
AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISASL
AUTO ECHO.
E

IEXACTL'I ONE MORE CHARACTER SHOULD BE

003672
003672
003700
003706

012767
012767
012767

000015

000340
000100
004046

174076
007700
007666

TS \XN,100,4%

Ti4:

JF NB

.ENDC

XN=XN-1

MOV

#340,PS

€100, ICOUNT

:DISABLE ALL INTERRUPTS

MOV

844 ,ESCAPE

+SET UP FOR 100 ITERATIONS
+SET UP TO ESCAPE TO NEXT TEST

MoV

#,FREEZ)

+SET
UP TO LOOP WITH DATA

: 3

MACRO VO04.00

012777
004767

004000
007452

007616

012777
012777
012777
012700
005001
012777

000013
177777
014336
000100

012777
105777
100375
005201
017704
020467
001406
016705
005077
1C4000
000407
005300
003357
100404
042777
000752
104400
000014
010000
000014

18:

MoV

#BIT11,8DHSCR

JSR

PC,CLRALL

007604
007606
007576

MOV

€13, 8DHSCR

133503

007560

MOV

004000
007542

007560

MOV

MOV
CLR

24:

007534
010324

MOV

TS78

BPL
INC
MOV

CHP
BEQ
MOV
CLR

010316
007520

3s:
100000

SEQ 41

27-JUN-85 13:04:20 PAGE 23-10

007500
43;

HLT
EMT
BR

DEC

B8GT
BMI
BIC
BR

SCOPE

OTHRD13, 80HBA

9100,R0O

0133503, 8DHLPR

94000, 8DHBAR

SDHSCR

24
R1
GCHNRC R4

R4, THRD13
34
TWRD13,RS
SDHLPR

0
0
4%

2%
43
4100000, 8DHLPR
2%

LINE=LINE+1
BITX=BITX+BITX

KX=KXe1

AUTO1

tMASTER CLEAR INTERFACE
iCLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
sSELECT LINE 13
+SET BYTE COUNT TO 1
1SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RFCEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
+SET UP SPEED FOR 9600 BAUD
18 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 13
sSET BAR BIT FOR LINE 13
sWAIT FOR CHARACTER TO
:BE RECEIVED

sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
+IS CHARACTER CORRECY

s(RS)=EXPECTED CHARACTER
sSHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY

sRESTART TEST
:IF 64 CHARACTERS HAVE NOT
+BEEN RECEIVED, CONTINUE
sSHUT OFF AUTO-ECHO
;GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, L

\LINE,\BITX,\KX

sENABLE AUTO ECHO ON LINE 14
s TRANSHMIT ONE CHARACTER ON LINE 14
sAT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
sAFTER 64 CHARACTERS
MAVE BEEN RECEIVED, DISABLE
AUTO ECHO.

004072
004100

004104
004112
004120
004126
004132

000340
000100

TS \XN,100.4%
TIS:
MOV

MOV

JF N8

LENDC

000016
012777
004767

007274

012777
012777
012777
012700

000014
177777
014340
000100

005001

173720
007522
007510

007440
007426
007430
007420

XN=XNe+1

18:

MoV
o
MOV

MoV

0340.PS

#100,ICOUNT

043, ESCAPE

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

o,FREEZL

1SET UP TO LOOP MITH DATA

#BIT11,80MSCR

JSR

PC,CLRALL

MOV
MOV
MOV
MOV

914, BDHSCR
¢-1,80MBC
OTHRD14, FOHBA
#100,R0

CLR

012767
012767
012767

SEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

sMASTER CLEAR INTERFACE
:CLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
+SELECT LINE 14
+SET BYTE COUNT TO )
1SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
iCOUNT OF CHARACTERS RECEIVED

CZ0+w CC

MACNO V04.00

004134

012777

133503

007402

004142

012777

010000
007364

007402

004150
004154
004156
004160
004164
004170
004172
004176
004202
004210
004212
004214
004222
004224

004226

105777
100375
005201
017704
020467
001406

016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000015
020000
000015

MOV
MOV

2%:

2133503, 80HLPR

SDHSCR

INC

BPL

MOV

CHP

R4, TWRD12

010142
007342

MOV
CLR

TWRD14 ,RS
SDHL PR

BEQ

i(RS)=EXPECTED CHARACTER
sSHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY

0
43

DEC

007322

sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
+IS CHARACTER CORRECT

SDHNRC ,R4

EMT
BR

3s:

sSET UP SPEED FOR 9600 BAUD
i8 BITS PER CHARACTER,
1AUTO ECHO ENABLED ON LINE 14
+SET BAR BIT FOR LINE 14
iWAIT FOR CHARACTER TO
+BE RECEIVED

€10000, 8DHBAR

TST8

007356
010150

100000

SEQ 42

27-JUN-85 13:04:20 PAGE 23-11

;RESTART TEST
+IF 64 CHARACTERS HAVE NOT
+BEEN RECEIVED, CONTINUE

B8GT
BMI

28
4%

BIC

9100000, 8DHLPR

sSHWUT OFF AUTO-ECHO
;GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

43
SCOPE
LINE=LINE-+1
BITX=BITX+BITX
KX=KX+1
AUTOL1
\LINE,\BITX,\KX

sENABLE AUTO ECHMO ON LINE 15
s TRANSMIT ONE CHARACTER
ON LINE 1S
sAT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHMO.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

000017
012777
004767

004310
004312

004320
004326
004332
004334
004336

012777
012777
012777
012700
005001
012777
012777
105777

100375
005201
017704

007332

TS \XN,100,.44
T16:

IF N8

3°348

000100

173542

.ENDC

007116

007262

XN=XNe1

18:

000015 007250
177777 007252
014342 007242
000100

133503

007224

020000
007206

007224

007200

28:

303333 g3

012767
012767
012767

2% @3 g

004226
004226
004234
004242

#340,PS

9100, ICOUNT

843 ,ESCAPE

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

#,FREEZ1

+SET UP TO LOOP MITH DATA

#B8IT11,8DHSCR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
:BUS ADDRESS REGISTERS
:SELECT LINE 1S

CLRALL

#15, 8DHSCR
9-1,80HBC

: 3

#TURD1S, BDHBA
:}N."
9133503, SDHLPR

:8 BITS PER CHARACTER,
+AUTO ECHO ENABLED ON LINE 1S
1SET BAR BIT FOR LINE 1S
sWAIT FOR CHARACTER TO
1BE_RECEIVED
tUPDATE RECEIVED CHARACTER COUNT
tREAD CHARACTER

SDHNRC R4

e S ST S

st S
l
e
A
R

S W

s s

e A et

CZDHH-CO
004342
004346
004350

004354
004360
004360
004362
004364
004366
004370
004372

004400
004402

004404

MACRO V04.00

020467
001406
016705
005077
104000
000407
005300
003357
100404
042777
000752
104400
000016
040000
000016

007774

cMP
BEQ

R4,TWRD1S
34

+IS CHARACTER CORRECT

CLR
2}1}

?&Pfl
-

TWRD15,RS

sC(RS)=EXPECTED CHARACTER
iSHUT OFF AUTO ECHO
1CHARACTER ECHOED INCORRECTLY

BR
DEC

&4
RO

{RESTART TEST
+IF 64 CHARACTERS HAVE NOT

100000, 8DHLPR

1SHUT OFF AUTO-ECHO

MOV

007766
007164

34:
100000

SEQ 43

27-JUN-85 13:04:20 PAGE 23-12

gg}

BIC

007144

4%:

SCOPE

2¢

LINE=LINE+1
BITX=BITX+BITX

KX=KX+1

AUTO1

+BEEN RECEIVED, CONTINUE

;GET 1 MORE CHARACTER

sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

+ENABLE AUTO ECHO ON LINE 16
s TRANSMIT ONE CHARACTER ON LINE 16
+AT 9600 BAUD, 8 BITS.
+RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
sAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
012767
012767
012767

173364
207166
007154

TS \XN,100.4%

T17:

012777
012777
012777
005001
012777
004476

004510
004512
004514
004526
004532
004536

—

004540

012777
105777

100375
005201
017704
020467
001406
016705
005077

#340,PS

iDISABLE ALL INTERRUPTS

> 2
-

MoV

#,.FREEZL

+SET UP TO LOOP MITH DATA

MOV
JSR

#BIT11,8DHSCR
PC,CLRALL

MOV
MOV
MOV
MOV
CLR
MOV

16, 8DHSCR
#-1,80HBC
#TURD16, SDHBA
#100,R0
Ri
#133503, SDHLPR

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
:BUS ADDRESS REGISTERS
+SELECT LINE 16
+SET BYTE COUNT TO 1
+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
:SET UP SPEED FOR 9600 BAUD

MOV

#40000, SDHBAR

sAUTO ECHO ENABLED ON LINE 16
+SET BAR BIT FOR LINE 16

007022
007620

BPL
INC
MOV
C"’o

2
R1
GDHNRC . R4
g:.fllfll‘

+BE RECEIVED
+UPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
+IS CHARACTER CORRECT

007612
007006

MOV
CLR

TWRD16,RS
SOHLPR
g

1(RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO

tCHARACTER ECHOED INCORRECTLY

BR
DEC

43
RO

tRESTART TEST
1IF 64 CHARACTERS HAVE NOT

;

000020
012777
004767

MOV

MOV
MOV

000100
004560

006740

007104

000016
177
014344
000100

007072
007074
007064

133503

007046

007030

007046

XN=XN+1

18:

2%:

104000

3%:

€100, ICOUNT
843 ,ESCAPE

sSET UP FOR 100 ITERATIONS
+SET UP TO ESCAPE TO NEXT TEST

i8 BITS PER CHARACTER,

iMAIT FOR CHARACTER TO

: 3

CZDHH-CO
004544

004546
004550
004556
004560

MACRO V04.00

003357
100404
042777
000752
104400
000017
100000
000017

100000

SEQ 44

27-JUN-85 13:04:20 PAGE 23-13

006766

BGT
24
4%
BMI
BIC
;1..00000 + 8DHLPR
BR
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTOL
\LINE, \BITX,\KX

+BEEN RECEIVED, CONTINUE
1SHUT OFF AUTO-ECHO
iGET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

:ENABLE AUTO ECHO ON LINE 17
s TRANSMIT ONE CHARACTER ON LINE 17
+AT 9600 BAUD, 8 BITS.
+RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
+AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

004612

004616

000021
012777
004767

006726

012777
012777
012777
012700
005001
012777

000017
177777
014346
000100

006714
006716
006706

133503

006670

004654

012777
105777

100000
006652

006670

004670
004672
004676
004702
004704
004710
004714
004714
004716
004720
004722
004724
004726
004734
004736

005201
017704
020467
001406
016705
005077

004632

003357
100404
042777

000020

TS \XN,100,.4$
T20:
MOV

JFNB
.ENDC
XN=XN+1

18:

2%:

007444

+SET UP FOR 100 ITERATIONS
iSET UP TO ESCAPE TO NEXT TEST

¢,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#BIT11,8DHSCR
PC.CLRALL

MOV
MOV
MOV
MOV
CLR
MOV

€17, 8DHSCR
Q-I.W
#THRD17, SDHBA
#100,R0

sMASTER
CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
:BUS ADDRESS REGISTERS
sSELECT LINE 17
sSET BYTE COUNT TO 1
$SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
$SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
$SET UP SPEED FOR 9600 BAUD
38 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 17
sSET BAR BIT FOR LINE 17
sMAIT FOR CHARACTER
TO
BE RECEIVED

MOV
1578
B8PL
INC
MOV
cHp

MOV

3%:
100000

#340,PS
€100, ICOUNT
44 ,ESCAPE

MOV
mOV

BEQ

007436
006630

104000
000407

000020

000100
004736

173206
007010
006776

006610
4%

CLR
HT
EMT
BR
DEC
B8GT

BMI
BIC
BR

SCOPE

LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

R1
9133503, GDHLPR
9100000, 8DHBAR
SDHSCR
24
R1
SDHNRC ,R4
R4, TURD17
34
THRD17,RS
SOHLPR
0
0

44
RO
24
4%
gooooo.mn

sDISABLE ALL INTERRUPTS

:WATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
+IS CHARACTER CORRECT

+(RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY
sRESTART TEST
1IF 64 CHARACTERS HAVE NCT
+BEEN RECEIVED, CONTINVE
1SHUT OFF AUTO-ECHO

$GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS. LOOP

(5]

012767
012767
012767

004562
004562
004570
004576

CZDHH-CO
18
19
20
21
22
23
25

MACRO V04.00

000020
000000
000020
000000
000001
000000
000020

XLINE=LINE
XBIT=BI1X
K=KX

LINE=0
BITX=1
KX=0
.REPT
20
AUTO2
\LINE,\BITX,\KX
.NLIST
LINE=L INE+1
BITX=BITX+BITX
KX=KX+1
.LIST

27
28
29
31
32

SEQ 45

27-JUN-85 13:04:20 PAGE 23-14

.ENDR
AUTO2

004740

)

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPYT LINE 0
s TRANSMIT 1 CHARACTER ON LINE O WITH AUTO ECHO ENABLED
: TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
004740
0C4740
004746
004754

004762
004770
004774

012767
012767
012767

000022
012777
004767

012777
012777
042767
012777

177777
133503
000001
1nn

017704

006474

042703

177760

por

001432

JFNB

006432
014310

010302

TS \XN,10,5¢

Tel:

XN=XN+1

012777
012777

100375
010403

005100
005104
005104
005106
005110

000010
005174

173030
006632
006620

006536

006610
006512

1$:

014246

001404
016205

014246

104001
000423
105262

014246

24:

MOV
MOV
MOV

#340,PS
10, ICOUNT
54 ,ESCAPE

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

MOV

#.FREEZ1

sSET UP TO LOOP WITH DATA

MOV
JSR

#81IT11,8DHSCR
PC.SETALL

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT

MOV
MOV

#0,8DHSCR
#THRDO , SDHBA

MOV
MOV
BIC

#-1,8DHBC
9133503, SDHLPR
#1 ,LINACT

MOV
BPL
g‘u

SDHNRC R4
13
:‘!.RJ

BIC
MOV
ASL
cHP
BEQ
%

#177760,R3
R3.R2
R2
R3.90
4%
Wz‘ (R2) .R4

MOV
HLT

RBUF(R2),RS
1

;(RS)=EXPECTED NON ECHOED DATA
:NON ECHOED DATA ERROR

INCB

RBUF(R2)

:UPDATE EXPECTED RECEIVED DATA

MOV
CLR

#-1,8DHBAR
RO

8R4

: 3

;400 (OCTAL) CHARACTERS
;SELECT LINE O FOR TESTING
;CHARACTER TO BE TRANSMITTED
;ON LINE O IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE O
:SET AUTO ECHO FOR LINE O

sCLEAR LINE ACTIVE BIT
;SET BAR BITS FOR ALL LINES
sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO
sIF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER

sCLEAR STATUS BITS
;IF LINE NUMBER IS 0O
;CHECK FOR CORRECT ECHOED CHARACTER
;IF NOT LINE O, CHECK DATA

CZDHH-CO
005114
005116
005124
005130
005132
005140
005146
005152
005154

005156

005160
005164
005166

005172
005172
005174

005176

MACRO V04.00
001352
046267
005767
001344
012777
042777
105777
001333
000407

005200

020467
001757
016705

014450
006512
000000

100000
006406

SEQ 46

27-JUN-85 13:04:20 PAGE 23-15

006516

3s:

006400

006376

43:

007124

007116

BNE
BIC
TST
BNE
MOV
BIC
TST8
BNE
BR

INC

CMP
BEQ
MOV

HLT

104002
104400

S$:

000001
000002
000001

EMT
SCOPE

14
LINBIT(R2),LINACT
LINACT
14
#0,8DHSCR
100000, 8DHLPR
8DHSLR
1s
S¢

sCONTINUE IF NOT DONE
iCLEAR ACTIVE BIT
+IF ALL LINES ARE DONE
{EXIT
sSELECT LINE O
;CLEAR AUTO ECHO FOR LINE O
1GET REST OF CHARACTERS
:AND CHECK

iUPDATE ECHOED CHARACTER COUNT

;ECHOED DATA ERROR

R4, TWRDO
34
TWRDO, RS

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

;CHECK ECHOED DATA

s (RS)=EXPECTED ECHOED DATA

;CHECK FOR ITERATIONS, LOOP

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 1
s TRANSHIT 1 CHARACTER ON LINE 1 WITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
:CHARACTER LENGTH IS 8 BITS

:VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES

005176
005176
005204
005212

012767
012767
012767

000340
000010
005432

172572
006374
006362

TS \XN,10,5¢

T22:
>

005220
005226

000023
012777

MOV
MOV
MOV

9340,PS
#10, ICOUNT
954 ,ESCAPE

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

MOV

#,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#6IT11,80HSCR
PC.SETALL

XN=XN+1

004767

004000
006174

006312

005232
005240

012777
012777

000001
014312

006300
006300

MOV
MOV

91 ,8DHSCR
#THRD1,80HBA

005246
005254
005262

012777
012777
042767

177777
133503
000002

006274
006262
006352

MOV
MoV
8IC
MOV

#-1,8DHBC
9133503, SDHLPR
#2,LINACT

005270 012777
005276 005000
005300
005304
005306
005310
005312
005316
005320
005322
005326
005330
005334

017704
100375
010403
000303
042703
010302
006302
020327
001432
026204
001404

177777

006236

177760

000001
014246

006254

14:

CLR

MOV
BPL
MoV
SWAB
8IC
MOV
ASL
CHP
BEQ
cHP
BEQ

¢-1,80HBAR
RO

SOHNRC ,R4
1s
R4 ,R3
R3
#177760,R3
R3,R2
R2
R3,01
43
RBUF(R2) ,R4
24

: 3

sMASTER CLEAR INTERFACE
+SET UP ALL LINES TO TRANSMIT
" 1400 (OCTAL) CHARACTERS
;SELECT LINE 1 FOR TESTING
sCHARACTER TO BE TRANSMITTED
sON LINE 1 IN AUTO ECHO MODE
sTRANSHMIT ONLY 1 CHARACTER ON LINE 1
$SET AUTO ECHO FOR LINE 1
sCLEAR LINE ACTIVE BIT
+SET BAR BITS FOR ALL LINES

+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

$GET A CHARACTER FROM SILO
+IF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER
iCLEAR STATUS BITS

+IF LINE NUMBER IS 1
sCHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 1, CHECY DATA

CZDHH-CO
205336
005342

005342
005344
005346
005352
005354
005362
005370
005376
005404
005410
005412
005414
005416
005422
005424
005430
005430
005432

005434

MACRO V04.00

016205

104001
000423

014246

105262

014246

046267
005767

014450
006254

006260

012777

000001

006142

105777

006150

001352

001344
042777

001333
000407
005200
020467
001757
016705

100000

SEQ 47

27-JUN-85 13:04:20 PAGE 23-16

2¢:
38:

006140

006662

?.Blk'( R2).RS

EMT
BR

1
44

BIC
TST

LINBIT(R2),LINACT
LINACT

MOV

€1,8DHSCR

BNE

14
13

BIC

2100000, 8OHLPR

BNE
BR
INC
CcHP
BEQ

1
S4
RO
R4, TWRD1
3¢

MOV

AUTO2

iNON ECHOED DATA ERROR

RBUF(R2)

HLT
EMT
54:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

104002
104400
000002
000004
000002

1(RS)=EXPECTED NON ECHOED DATA

INCB

BNE

TST8

4%:

006670

H&0¥

8DHSLR

TWRD1,RS

2
2

+UPDATE EXPECTED RECEIVED DATA
;CONTINVE IF NOT DONE
;CLEAR ACTIVE BIT
+IF ALL LINES ARE DONE
$EXIT
sSELECT LINE 1
;CLEAR AUTO ECHO FOR LINE 1
3GET REST OF CHARACTERS
;AND CHECK

iUPDATE ECHOED CHARACTER COUNT
1CHECK ECHOED DATA

s (RS)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR
sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE
2
s TRANSMIT 1 CHARACTER ON LINE 2 MITH AUTO ECHO ENABLED
s TRAN
SPEED
SMIS
FOR ALL LINES
SION
IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
+VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
005434
005434

012767
012767
012767

000340
000010
005670

172334
006136
006124

TS \XN,10,5¢

T23:
5

005470
005476

#340,PS
#10, ICOUNT
#54 ,ESCAPE

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

MOV

¢,.FREEZ1

sSET UP TO LOOP MITH DATA

MOV
JSR

@BIT11,8DHSCR
PC,SETALL

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT

—

000024

MOV
MOV
MoV

XN=XN+1

012777
004767

004000
005736

006054

012777
012777

000002
014314

006042
006042

MOV
MOV

€2, 8DHSCR
#TURD2 , SDHBA

012777
012777
042767
012777
005000
017704
100375
010403
000303
042703
010302

177777
133503
000004
177777

006036
006024
006114
006016

MOV
MOV
8IC
MOV
CLR
MOV
BPL
MOV
SWAB
BIC
MOV

#-1,80HBC
9133503, GDHLPR
4, LINACT
9-1,80HBAR
.
RO
SDHNRC ,R4.
14
R4.R3
R3
#177760,R3
R3.R2

006000

177760

1%:

: 3

+400 (OCTAL) CHARACTERS
sSELECT LINE 2 FOR TESTING
:CHARACTER TO BE
sON LINE 2 IN AUTO ECHO MODE
B
ONLY 1 CHARACTER ON LINE 2
:SET AUTO ECHO FOR LINE 2
sCLEAR LINE ACTIVE BIT
+SET BAR BITS FOR ALL LINES

i
COUNT OF NUMBER OF RECEIVED CHARACTERS
3GET A CHARACTER FROM SILO
:IF NOT VALID DATA. TRY AGAIN
$EXTRACT LINE NUMBER FORM CHARACTER
1CLEAR STATUS BITS

CZDHH-C9
005556
005560
005564
005566
005572
005574
005600
005600
005602
005604
005610

005612
005620

005624
005626
005634

005646
005650
005652
005654
0C5666

005670

005672

MACRO V04.00

06302

020327

000002

026204

014246

016205

014246

001432

001404

104001
000423

ASL

CMP

BEQ

046267
005767

014450
006016

006022

012777
042777
105777

000002
100000
005712

005704
005702

020467

006434

016705

006426

001344

001333
000407
005200
001757

iCHECK FOR CORRECT ECHOED CHARACTER

MOV

RBUF(R2) ,RS

INCB

RBUF (R2)

iUPDATE EXPECTED RECEIVED DATA

BIC
TST

LINBIT(R2),LINACT
LINACT

1CLEAR ACTIVE BIT
+IF ALL LINES ARE DONE

MOV
BIC
15718

#2,8DHSCR
100000, 8DHLPR
SDHSLR

+SELECT LINE 2
sCLEAR AUTO ECHO FOR LINE 2

R4, TWRD2

sUPDATE ECHOED CHARACTER COUNT
sCHECK ECHOED DATA

BNE
BNE

BNE
BR
INC
CHP

BEQ
MOV

HLY
EMT
S4:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

104002
104400
000003
000010
000003

+IF LINE NUMBER IS 2

RBUF(R2),R4

HLT
EMT
BR

013246

R3, 02

CHP

BEQ

105262

001352

SEQ 48

27-JUN-85 13:04:20 PAGE 23-17

+IF NOT LINE 2, CHECK DATA

1 (RS)=EXPECTED NON ECHOED DATA

b
b
4%

tNON ECHOED DATA ERROR

14
14

iCONTINUVE IF NOT DONE
sEXIT

iGET REST OF CHARACTERS

1$
54
RO

sAND CHECK

TWRD2,RS

s(RS)=EXPECTED ECHOED DATA

2
2

sECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE, \BITX, \KX

s TRANSMIT
A BINARY COUNT PATTERN
ON ALL LINES EXCEPT LINE 3

sTRANSMIT 1 CHARACTER ON L
MSHINMOECIOM
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS

sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
005672
005672
005700
005706

012767
012767
012767

000340
000010
006126

172076
005700
005666

TS \XN,10,5¢

T24:

u
&

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

MOV

¢.FREEZ1

sSET UP TO LOOP MITH DATA

XN=XN+1

MOV
JSR

#8IT11,8DHSCR
PC,.SETALL

sMASTER CLEAR INTERFACE
+SET UP ALL LINES TO TRANSMIT

012777
004767

004000
005500

005616

005726

012777
012777

000003
014316

005604
005604

MoV
MOV

03 ,8DHSCR
mnosSDHBA

005742

012777
012777

177777
133503

0065600
005566

MoV
MOV

#-1,80HBC
#133503, GDHLPR

012777

177777

005560

MOY

0-1,80MBAR

017704

005542

005714
005722

005764
005772

005774

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

e
000025

MOV
MoV
MoV

042767 000010 005656
00500

B1C
1s:

#10,LINACT

CLR

1400 (OCTAL) CHARACTERS
sSELECT LINE 3 FOR TESTING

;CHARACTER TO BE TRANSMITTED
1ON LINE 3 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 3
:SET AUTO ECHO FOR LINE 3

1CLEAR Lu ACTIVE BIT

+SET BAR BITS FOR ALL LINES

MOV

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

SDHNRC ,R4

o i S

i 3

1GET A CHARACTER FROM SILO

) T30e

e e

RSB

CZDHH-CO
006000

006012
006014
006016
006022

MACRO V04.00 27-JUN-85 13:04:20 PAGE 23-18
100375
010403
000303
042703

010302

006302

006100
006104
006106
006110
006112
006116
006120
006124
006126

006130

;CLEAR STATUS BITS

000003

CMP
BEQ
BC’E%

R3,03
43
l!atr(nz) R4

MOV

R.W(RZ) RS

EMT
ER

1
43

ASL

HLT

105262

014246

046267
005767

014450
005560

005564

012777
042777
105777

000003
100000
005454

005446
005444

26:

001333
000407
005200
020467 006200
001757
016705

€177760,R3

R3,.R2

014246

001344

+IF NOT VALID DATA, TRY AGAIN
;EXTRACT LINE NUMBER FORM CHARACTER

MOV

016205

001352

14
R4 ,R3
R3

BIC

014246

104001
000423

BPL
MOV
SWAB

177760

020327
001432
0002620‘1‘“

LINBIT(R2),LINACT
LINACT

MOV
BIC
TSTE

#3,8DHSCR
#100000, SDHLPR
GOWSLR

B8R

MOV

wT
EMT

104002

104400
000004
000020

+(RS5)=EXPECTED NON ECHOED DATA

iNON ECHOED DATA ERROR

BIC
TST

BNE
INC
CHF
BEQ

006172

sIF LINE NUMBER IS 3
;CHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 3, CHECK DATA

RBUF(R2)

BNE

4s:

INCB

BNE

38:

S$:
SCOPE
BITX=BITX+BITX

sUPDATE EXPECTED RECEIVED DATA

iCONTINUE
IF NOT DONE
JCLEAR ACTIVE BIT

1IF ALL LINES ARE DONE

18
RO
R4,THRDS
3¢

JAND CHECK
sUPDATE ECHOED CHARACTER COUNT

sCHECK ECHOED DATA

TWROS,RS

sCRS)=EXPECTED ECMOED DATA

2
2

;ECHOED DATA ERRCR

;CHECK FOR ITERATIONS. LOOP

LINE=LINE+1

000004

KX=KXe1
AUTO2

JEXTT

sSELECT LINE 3
sCLEAR AUTO ECHO FOR LINE 3
iGET REST OF CHARACTERS

\LINE,\BITX,\KX

sTRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 4
s TRANSMIT 1 CHARACTER ON LINE 4 MITH AUTO ECHO ENABLED
s TRANSHISSTON SPEED FOR ALL LINES IS 9600 BAUD
LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
006130
006130
006136
006144

012767

000340

171640

012767

0%6364

005430

TS \XN,10,54

T25:

;:DISABLE
ALL INTERRUPTS

#50 ESCAPE

2SET

ereeEn

:SET UP TO LOOP MITH DATA

MOV
JSR

#BITil,SDHSCR
PC,SETALL

{MASTER CLEAR INTERFACE
:SET UP ALL LINES TO TRANSMIT

012777 000008 005346
012777

014320

005346

MOV

#4,B80HSCR

012777

177777

005342

MOV

#-1,80HBC

.
-

006152
006160

006164
006172

= MOV

#340.PS

012767 000010 005442

000026
012777
004767

004000
005242

005360

ooc

XNeXNe1

MOV

910, ICOUNT

MOV

OTURD4,S0MBA

:SET UP FOR 10 ITERATIONS

UP TO ESCAPE TO NEXT TEST

1400 COCTAL) CHARACTERS

;CHARACTER

(ASELECT

TO BE

LINE 4 FOR TESTING

10N LINE 4 IN AUTO ECHO MODE

:TRANSMIT ONLY 1 CHARACTER ON LINE &

MACRO V04.00

012777

042767

012777

005000

133503

000020

177777

017704

005304

042703

177760

100375
010403
000303
010302
006302
020327
001432

SEQ 50

27-JUN-85 13:04:20 PAGE 23-19

005330

MOV

005420

BIC

005322

MOV

14:

920, LINACT

#-1,80HBAR

CLR

BPL
MOV
SWAB

14
R4 ,R3
R3

MOV
ASL
cHP
BEQ

R3,R2
R2
R3,.94
a%

MOV

BIC

000004

#133503, 80HLPR

;SET AUTO ECHO FOR LINE 4

;CLEAR LINE ACTIVE BIT

sSET BAR BITS FOR ALL LINES

tKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

S8DHNRC ,R4

$GET A CHARACTER FROM SILO

+IF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER

9177760,R3

+CLEAR STATUS BITS

+IF LINE NUMBER IS 4
sCHECK FOR CORRECT ECHOED CHARACTER
1IF NOT LINE 4, CHECK DATA

822‘8:

014246

016205

014246

MOV

RBUF(R2),.RS

104001
000423
105262

014246

ENT
BR
INCB

1
48
RBUF(R2)

sUPDATE EXPECTED RECEIVED DATA

046267
005767

014450
005322

005326

8IC
ST

LINBITCR2),LINACY
LINACT

sCLEAR ACTIVE BIT
sIF ALL LINES ARE DONE

012777

000004

005210

MOV

&4 ,8DHSCR

105777

005216

1ST8

SDHSLR

sGET REST OF CHARACTERS

BR
INC
P

Ss
RO
R4, TURDS

sUPDATE
CHARACTER COUNT
sCHECK ECHOED DATA

MOV

THRDA . RS

ent

001352

001344
042777

001333

100000

000407
005200
020467

005744

016705

005736

001757

2%:

3%:

005206

BNE

BNE
B8IC

BNE

4%:

104002

104400
000005
000040

Ss:
SCOPE
LINE=LINE-1
BITX=BITX+BITX

000005

KX=KXe1
AUTO2

gW(RQ).RC
1

#100000, SDHLPR

1(RS)=EXPECTED NON ECHOED DATA

;NON ECHOED DATA ERROR

sCONTINUE IF NOT DONE

sEXIT

sSELECT LINE 4

sCLEAR AUTO ECHO FOR LINE 4

sAND CHECX

s(RS)=EXPECTED ECHOED DATA

sECNOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KXX

sTRANSMIT A BINARY COUNT PATTERN ON ALL LINES

LINE
S

sTRANSMIT 1 CHARACTER ON LINE S MITH AUTO ECND ENABLED

sCHARACTER LENGTH

sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES

006374

012767
012767

012767

000340
000010
006622

171402
005204

TS \XN,10,5%

T26:

005172

MOV
MOV
MoV
<

MoV

012777 004000 005122 o— MOV
004767

005004

JSR

€340,PS
#10, ICOUNT

sDISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS

#,FREEZ2L

1SET UP TO LODP MITH DATA

959 ,ESCAPE

#BIT11,8DHSCR
.

PC,.SETALL

3SET UP TO ESCAPE TO NEXT TEST

]

MASTER CLEAR INTERFACE

$SET UP ALL LINES TO TRANSMIT

: 3

MACRO V04.00

012777
012777

000005
014322

005110
005110

MOV
MOV

#5,80HSCR
STHRDS , BDHBA

012777
012777
042767
012777

177777
133503
000040
177777

005104
005072
005162
005064

MOV
MOV
BIC
MOV

#-1,80HBC
9133503, SDHLPR
#40,LINACT
¢-1,8DHBAR

017704

005046

042703

177760

005000
100375
010403
000303

010302
006302
020327
001432
026204
001404
016205

104001
000423
105262
001352

046267

005767

001344
012777
042777
105777
001333
000407
005200

014246

000005
100000
004760

005510

016705

005502

BPL
MOV
SWAB

14
R4 ,R3
/3

MOV
ASL
cHP
B8cQ
ce
BEQ

R3.R2
]z
R3.85
4%
RBUF(R2) R4
24

014246
005064

CLR

MOV

BIC

014246

020467

001757

14:

000005

014450

2%:

005070

34:

004752
004750

4%:

104002
104400
000006

ENT
B8R
INCB
BNE

000100

AUTO2

iCLEAR STATUS BITS

+IF LINE NUMBER
IS S
sCHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 5, CHECK DATA

1.1' (R2).RS

1
a4
RBUF(R2)
1

14
05 ,8DMSCR
#100000, SOHLPR
SDHSLR
1
Ss
RO

znus.:s

TS \JXN,10,5%
T27:
MOV
MOV
o
MOV
<>

$(RS)=EXPECTED NON ECHOED DATA

sNON ECHOED DATA ERROR

sUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE

LINACT

R4, TURDS

\LINE,\BITX,

sVERIFY

#177760,R3

BNE
MoV
8IC
1ST8
BNE
BR
INC

171144
004746
004734

iSET AUTO ECHO FOR LINE 5
1CLEAR LINE ACTIVE BIT
+SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
1GET A CHARACTER FROM SILO
+IF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER

LINBITCR2) ,LINACT

TST

000340
000010
007060

SDHNRC R4

1400 (OCTAL) CHARACTERS
;SELECT LINE 5 FOR TESTIWG
;CHARACTER TO BE TRANSMITTED
+ON LINE 5 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE S

8IC

ey
S8:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe1

000006

012767
012767
012767

SEQ 51

27-JUN-85 13:04:20 PAGE 23-20

sCLEAR AUTO ECHO FOR LINE S
1GET REST OF CHARACTERS
1AND CHECX
sUPDATE ECHOED CHARACTER
COUNT
1CHECK ECHOED DATA
(RS)-EXPECTED ECHOED DATA

JECHOED DATA ERROR

sCHECKX FOR ITERATIONS, LOOP

CZDHH-CO

MACRO V04.00

000030

.ENDC

012777
004767

004000
004546

004664

012777

000006

004652

177777

004646

012777
012777

014324

012777
042767

133503
000100

017704

004610

8.*’533 i

100375
000303

XN=XN+1

004652

042703

177760

001432

020327

000G06

016205

014246

MOV

¢,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#81iT11,8DMSCR
PC,SETALL

sMASTER CLEAR INTERFACE
$SET UP ALL LINES TO TRANSMIT

MOV

#6 ,8DHSCR

1SELECT LINE 6 FOR TESTING

MOV

@-1,80MBC

MOV

004634
004724

MOV
B8IC
14:

010403

010302
006302

SEQ 52

27-JUN-85 13:04:20 PAGE 23-21

#133503, SDHLPR
#100,LINACT

:6"

MOV

8PL
SWAB

SDHNRC .R4

MoV

R4 .R3

MOV
ASL

R3.R2
R2

BIC

19
RS

1400 (OCTAL) CHARACTERS

sCHARACTER TO BE TRANSMITTED
1ON LINE 6 IN AUTO ECHO MODE

sTRANSHIT ONLY 1 CHARACTER ON LINE 6

$SET AUTO ECHO FOR LINE 6
tCLEAR LINE ACTIVE BIT

'&'w&'%-‘% OF RECEIVED CHARACTERS
1}

1GET A CHARACTER FROM SILO

+IF NOT VALID DATA, TRY AGAIN

IEXTRACT LINE NUMBER FORM CHARACTER

#177760.R3

R3.06

RBUF (R2) ,Ré

BEQ

026204 014246

STURD6 , SOHBA

: 3

{CLEAR STATUS BITS
+IF LINE NUMBER IS 6

sCHECK FOR CORRECT ECHOED

+IF NOT LIMNE 6, CHECK DATA

MOV
RBUF(R2).RS
Y

sCRS)=EXPECTED MON ECHOED DATA
sNON ECHOED DATA

BR
8
INGE
RBUF(R2)
T
8IC
LINBIT(R2),LINACT
TST
LINACT
BNE
1)

+CONTINUE IF NOT DOME
1CLEAR ACTIVE BIT
+IF ALL LINES ARE DONE
JEXIT

042777 100000 004512

S8IC

001333
000407
005200

BNE
BR
IN

19
53
RO

;CLEAR AUTO ECMO FOR LINE 6

JAND CHECX
sUPDATE

MOV
wY

TWRDG.RS
2

1C(RS)=EXPECTED ECHMOED DATA
sECHOED DATA ERROR

104001

000423
105262 014246
001352
046267 014450
005767 004626
001344
012777

000006

105777

004522

020467

005254

016705

005246

104002
104400

EnY

2¢:

004632

38:

004514

MOV

TSTE

Ss:

L S
SCOPE

#6,80MSCR

100000, SDMLPR

GOMSLR

g‘sm

1UPDATE EXPECTED RECEIVED DATA

1SELECT LINE 6

sGET REST OF CMARACTERS

CHARACTER COUNT

1CHECK ECMOED DATA

JCHECK FOR ITERATIONS. LOOP

CZ0HH-CO
007062
007062
007070
007076

MACRO V04.00

012767
012767
012767

000340
000010
007316

170706
004510
004476

000031
012777
004767

004000
004310

004426

007116
007124

012777
012777

000007
014326

007132

012777
012777
042767
012777
005000
017704
100375
010403
000303
042703
010302
006302
020327
001432
026204
001404
016205

177777
133503

007320

104001
000423

105262

001352
046267
005767
001344
012777
042777

105777
001333
000407
005200
020467
001757
016705
104002
104400
000010
000400
000010

TS \XN,10 ",
130:
MOV
MOV
MOV
<>
JIF N8
MOV

.ENDC

007104
007112

007140
007146
007154
007162
007164
00717¢
007172
007174
0C7176
007202
007204
007206
007212
007214
007220
007222
007226
007226
007230
007232
007236
007240
007246
007252
007254
007262
007270
007274
007276
007300
007302
007306
007310
007314
007314
007316

000200

1777mmm

XN=XN+1

;DISABLE ALL INTERRUPTS
$SET UP FOR 10 ITERATIONS

¢,FREEZ!L

1SET UP TO LOOP WITH DATA

#8IT11,80HSCR

sMASTER CLEAR INTERFACE

@54 ,ESCAPE

PC,.SETALL

004414
004414

MOV
MOV

07 ,8DHSCR
OTURD7 ,8DHBA

004410
004376
004466
004370

MOV
MOV
8IC
MOV

9-1,80H8C
9133503, SDHLPR

177760
000007

014246
014246

014246

2%:

004374

000007
100000

CLR
MOV
BPL
MOV
SWAB
8IC
MOV
ASL
cwe
BEQ
cHe
BEQ
MoV
WY
EnY
BR
INCB
BNE
8I1C
15T
BNE
MOV
8IC
1578

BNE
BR

INC
cwe
BEQ
MoV
HT
Env
SCOPE
LINE=LINE.L
BITX=BITX.BITX

005012

#340,PS
910, ICOUNT

MOV
JSR

004352

014450
004370

SEQ 53

27-JUN-85 13:04:20 PAGE 23-22

KXsKXel

AUTO2

9200,LINACT

#-1,80HBAR

$SET UP TO ESCAPE TO NEXT TEST

; 3

1SET UP ALL LINES TO TRANSMIT
+400 (OCTAL) CHARACTERS

sSELECT LINE 7 FOR TESTING
sCHARACTER TO BE TRANSMITTED

sON LINE 7 IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE 7
3SET AUTO ECHO FOR LINE 7

sCLEAR LINE ACTIVE BIT

:SET BAR BITS FOR ALL LINES

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

sIF NOT VALID DATA, TRY AGAIN

#177760,R3
:g.!!

sCLEAR STATUS BITS

SDMNRC R4

sGET A CHARACTER FROM SILO

:;.R!

R3,.87

sEXTRACT LINE NUMBER FORM CHARACTER

:IF LINE NUMBER IS 7

gt’(l?).”

RBUF(R2).RS
i

sCHECK FOR CORRECT ECHOED CHARACTER

;IF NOT LINE 7, CHECK DATA

s(RS)=EXPECTED NON ECHOED DATA
sNON ECHOED DATA ERROR

RBUF(R2)
13
LINBIT(R2),LINACT
LINACT
13
#7,80MSCR
€100000, SDHLPR
SOHSLR
;:

sUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE
sCLEAR ACTIVE BIT
sIF ALL LINES ARE DONE
sEXIT
sSELECT LINE 7
sCLEAR AUTO ECHD FOR LINE 7
sGET REST OF CHARACTERS
;AND CHECK

;UPDATE ECHOED CHARACTER COUNT

;:.TNIOT

THRD7,RS
g

s:CHECK ECHOED DATA

1(RS)=EXPECTED ECHOED DATA

1ECHOED DATA ERROR

tCHECK FOR ITERATIONS. LOOP

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 10

CZDHH-CO

MACRO V04.00 27-JUN-85 13:04:20 PAGE 23-23

1 TRANSMIT 1 CHARACTER ON LINE 10 WITH AUTO ECHO ENABLED
1 TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
tVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
007320
007320
007326
007334

012767
012767
012767

000340
000010
007554

170450
004252
004240

TS \XN,10,5¢

T31:

—

MOV
MOV
MOV

—

MOV

¢,FREEZ1

MOV
JSR

@BIT11,80HSCR
PC,SETALL

0340,PS
€10, ICOUNT
54 ,ESCAPE

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

007342
007350

000032
012777
004767

004000
004052

004170

007354
007362

012777
012777

000010
014330

004156
004156

MOV
MOV

€10, 8OHSCR
@TWRD10,80HBA

007370
007376
007404
007412
0C7320
007422
007426
007430
007432
007434
007440
007442
007444
007450
007452
007456
007460
007464
007464
007466
007470
007474
007476
007504
007510
007512
007520
007526
007532
007534
007536
007540
007544
007546
007552
007552
007554

012777
012777
042767
012777
005000
017704
100375
010403
000303
042703
010302
006302
020327
001432
026204
001404
016205

177777
133503
000400
177777

004152
004140
004230
004132

MOV
MOV
8IC
MOV
CLR
MOV
BPL
MOV
SWAB
8IC
MOV

¢-1,80H8C
€133503, a2 HLPR
#400,LINACT
9-1,80HBAR
RO
SDHNRC , R4
1s
R4 ,R3
R3
#177760,.R3
R3.R2

104001
000423
105262
001352
046267
005767
001344
012777
042777
105777
001333
000407
005200
020467
001757
016705

104002
104400
000011

004114

XN=XN+1

1%:

177760

000010
014246
014246

014246

23:

014450
004132

004136

000010
100000
004226

004020
004016

004554
004556

33:

43:

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT
+400 (OCTAL) CHARACTERS
sSELECT LINE 10 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 10 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 10
sSET AUTO ECHO FOR LINE 10
sCLEAR LINE ACTIVE BIT
:SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
:GET A CHARACTER FROM SILO
+IF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER
:CLEAR STATUS BITS

ASL
cHe
BEQ
cHe
BEQ
MoV

R2
R3,.010
a8
RBUF(R2) R4
23
RBUF(R2).RS

EnT
B8R
INCB
BNE
BIC
157
BNE
MoV
BIC
1518
BNE
BR
INC
cHp
BEQ
MOV

1
as
RBUF(R2)
1s
LINBIT(R2),LINACY
LINACT
14
#10, 8DHSCR
9100000, SDNLPR
SDHSLR
1s
S
RO
R4, THRD10
3
TWRD10,RS

EMT
5:
SCOPE
LINE=LINE-1

: 3

+IF LINE NUMBER IS 10
sCHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 10, CHECX DATA
s(RS)=EXPECTED NON ECHOED DATA
sNON ECHOED DATA ERROR

sUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE
sCLEAR ACTIVE BIT
+IF ALL LINES ARE DONE
EXIT

+SELECT LINE 10
sCLEAR AUTO ECHO FOR LINE 10
1GET REST OF CHARACTERS
+AND CHECK
tUPDATE ECHOED CHARACTER COUNT
1CHECK ECHOED DATA
1(RS)=EXPECTED ECHOED DATA

+ECHOED DATA ERROR

sCHECK FOR ITERATIONS. LOOP

CZDHH-CO

007556

MACRO VO04.00

SEQ 55

27-JUN-85 13:04:20 PAGE 23-24

001000
000011

BITX=BITX+BITX
KX=KX+1
AUTO2

\LINE,\BITX,\KX

i TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 11
1 TRANSMIT 1 CHARACTER ON LINE 1i WITH AUTO ECHO ENABLED
1 TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
:CHARACTER LENGTH IS 8 BITS
{VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
007556
007556
007564
007572

012767
012767
012767

000340
000010
010012

170212
004014
004002

TS \XN,10,5¢

T32:
.

—

MOV
MOV
MOV

9340,PS
910, ICOUNTY
954 ,ESCAPE

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

—

MOV

#,FREEZL

$SET UP TO LOOP WITH DATA

MOV
JSR

®BIT11,8DHSCR
PC.SETALL

007600
007606

000033
012777
004767

004000
003614

003732

007612
007620

012777
012777

000011
014332

003720
003720

MOV
MOV

#11,80HSCR
OTURD11,.80HBA

007626
007634
007642
007650

012777
012777
042767
012777

177777
133503
001000
177777

003714
003702
003772
003674

MOV
MOV
B8IC
MOV

-1,80M8C
4133503, SDMLPR
#1000, LINACT
9-1,8DHBAR

007656
007660

007664
007666
007670
0c7672
007676
007700
007702
007706
007710
007714
007716
007722
007722
007724
007726
007732
007734
007742
007746
007750
007756
007764
007770
007772
007774
007776
010002

005000
017704
100375
010403
000303
042703
010302
006302
020327

001432
“026204‘“
1

016205
104001
000423
105262
001352
046267
005767
001344
012777
042777
105777
001333
000407
005200
020467
001757

003656

XN=XN+1

18:

177760
000011

014246

2%:

014450
003674

003700

000011
100000

003562
003560

004330

RO
SOHNRC, R4
14
R4 .R3
R3
#177760,R3
R3.R2
R2

BEQ
g

M(u).nc

014246

003570

CLR
MOV
BPL
MV
SWAB
BIC
MOV
ASL

3%:

MoV
MY
eny
B8R
INCB
BNE
B8IC
18T
BNE
L
BIC

1578
BNE
B8R
INC
che
BEG

RS.QII

; 3

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT
3400 (OCTAL) CHARACTERS
sSELECT LINE 11 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 11 IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE 11
sSET AUTO ECHO FOR LINE 11
sCLEAR LINE ACTIVE BIT
sSET BAR BITS FOR ALL LINES
sKEEP COUNT OF NUMPER OF RECEIVED CHARACTERS
$GET A CHARACTER FROM SILO
sIF NOT VALID DATA. TRY AGAIN
sEXTRACT LINE NMUMBER FORM CHARACTER

;CLEAR STATUS BITS
sIF LINE NUMBER IS 11

W(u).as
1
44
RBUF(R2)
14
LINBIT(R2) ,LINACY
LINACT
14
#11,80HSCR
9100000, SDHLPR
SDHSLR
14
54
RO
R4,THRD11
34

sCHECKX FOR CORRECT ECHOED CHARACTER
lI' NOT LINE 11, CHECX DATA
1(RS)=EXPECTED NON ECHOED DATA
sNON ECHOED DATA ERROR

sUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE
sCLEAR ACTIVE BIT
3IF ALL LINES ARE DONE
1EXIT
sSELECT LINE 11
;CLEAR AUTO ECHO FOR LINE 11
:GET REST OF CHARACTERS
1AND CHECX
sUPDATE ECHOED CHARACTER COUNT
sCHECK ECHOED DATA

CZDHH-CO
010004
010010
010010
010012

010014

MACRO V04.00

016705

SEQ 56

27-JUN-85 13:04:20 PAGE 23-25

004322

MOV

HLY
EMT
S$:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe1

104002
104400
000012
002000
000012

AUTO2

TWRD11,RS

i (RS)=EXPECTED ECHOED DATA

2
2

+ECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

1 TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 12
s TRANSMIT 1 CHARACTER ON LINE 12 WITH AUTO ECHO ENABLED
1 TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
:CHARACTER LENGTH IS 8 BITS
tVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
010014
010014
010022
010030

012767
012757
012767

000340
000010
010250

167754
003556
003544

TS \XN,10,5¢

T33:
.

> ia

020034
012777
004767

004000

003356

003474

010050
010056

012777
012777

000012
014334

010064
010072
010100
010106
010114
010116
010122
010124
012126
010130
010134
010136

012777
012777
042767
012777
005000
017704
100375
010403

177777
133503
002000
177777

010140
010144
010146
010152
010154
010160
010160
010162
010164
010170
010172
010200
010204

0210206
010214

010222

000303
042703
010302
006302
020327

001432
026204
001404
016205

104001
000423
105262
001352
046267
005767
001344
012777
042777
105777

9340,PS
210, ICOUNT
958 ,ESCAPE

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

MOV

®,FREEZ1

sSET UP TO LOOP WITH DATA

#81T11,8DHSCR

sMASTER CLEAR INTERFACE

p—
010036
010044

MOV
MOV
MOV

XN=XN+1

MOV

JSR

PC,.SETALL

003462
003462

MOV
MOV

#12,8DHSCR
OTHRD12,8DMBA

003456
003444
003534
003436

MOV
MOV
8IC
MOV
CLR
MoV
BPL
MOV

#-1,80HBC
9133503, SDHLPR
92000, LINACT
#-1,8DHBAR
RO
GDHNRC ,R4
14
R4,.R3

003420

1$:

177760
000012

014246
014246

014246

2%:

014450
003436

003442

000012
100000
003332

003324
003322

34:

sSET UP ALL LINES TO TRANSMIT
3400 (OCTAL) CHARACTERS
sSELECT LINE 12 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 12 IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE 12
sSET AUTO ECHD FOR LINE 12
sCLEAR LINE ACTIVE BIT
sSET BAR BITS FOR ALL LINES

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO
sIF NOT VALID DATA, TRY AGAIN
:EXTRACT LINE NUMBER FORM CHARACTER

SWAB
8IC
MOV
ASL
cHp
BEQ
cHp
BEQ
MOV

#177760,.R3
R3,.R2
R2
R3,.#12
4%
RBUF(R2).R4
24
RBUF(R2).RS

13,11
BR
INCB
BNE
B8IC
18T
BNE
MOV

1
49
RBUF(R2)
1
LINBIT(R2) ,LINACT
LINACT
1s
#12,80HSCR

HLY

BIC
TST8

b§

4100000, 8DHLPR
SDHSLR

; 3

sCLEAR STATUS BITS
:IF LINE NUMBER IS 12

sCHECK FOR CORRECT ECHOED CHARACTER
1IF NOT LINE 12, CHECK DATA
s(RS)=EXPECTED NON ECHOED DATA

sNON ECHOED DATA ERROR

:UPDATE EXPECTED RECEIVED DATA
;CONTINUE IF NOT DONE
1CLEAR ACTIVE BIT

;IF ALL LINES ARE DONE
EXIT
1SELECT LINE 12
;CLEAR AUTO ECHO FOR LINE 12
1GET REST OF CHARACTERS

CZDHH-CO
010226
010230
010232
010234
010240
010242
010246
010246
010250

010252

MACRO V04.00

001333
000407
005200
020467
001757
016705

SEQ 57

27-JUN-85 13:04:20 PAGE 23-26

BNE
BR
4a3:
INC
cMP
BEQ
MOV
HLT
EMT
5¢:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

004074
004066

104002
1044060
000013
004000
000013

AUTC2

14
54
RO
R4 ,TWRD12
34
TWRD12,RS
2
2

iAND CHECK

1UPDATE ECHOED CHARACTER COUNT
iCHECK ECHOED DATA
1(RS)=EXPECTED ECHOED DATA
+ECHOED DATA ERROR

sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 13
s TRANSMIT 1 CHARACTER ON LINE 13 WITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
0i0252
010252
010260
010266

012767
012767
012767

000340
000010
010506

167516
003320
003306

TS \XN,10,5%

T34:

iy ans

MOV
MV
MOV

—

MOV

@,FREEZ1

MOV
JSR

#8IT11,80MSCR
PC.SETALL

000035
012777

#340,PS
€10, ICOUNT
954 ,ESCAPE

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

sSET UP TO LOOP MITH DATA

XN=XN+1

004767

004000
003120

003236

010306
010314

012777
012777

000013
014336

003224
003224

MOV
MOV

€13, 8DHSCR
OTURD13,8DHBA

10322
010330
010336
010344
010352
010354
010360
010362
010364

012777
012777
042767
012777
005000
017704
100375
010403
000303

177777
133503
004000
177777

003220
003206
003276
003200

MOV
MOV
BIC
MOV
CLR
MOV
BPL
MOV
SWAB

#-1,80HEC
9133503, 8DHLPR
#4000, LINACT
#-1,8DHBAR
RO
SDHNRC ,R4
13
R4 .R3
R3

010274
010302

010366
010372

010374
010376
010402
010404
010410
010412
010416
010416
010420
010422
010426
010430

042703
010302
006302
020327
001432

003162

177760
000013

026204

014246

016205

014246

001404

104001
000423
105262
001352
046267

1%:

#177760,R3
R3,R2
R2
RS, 013
4

MOV
WY

RBUF(R2),RS
1

014246
014450

BIC
MOV
ASL
cHp
BEQ

2%:
003204

EMT
BR
INCB
BNE
BIC

2'.(!’(82).!4

1
43
RBUF(R2)
14

: 3

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT
1400 (UCTAL) CHARACTERS
sSELECT LINE 13 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 13 IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE 13
:SET AUTO ECHD FOR LINE 13
sCLEAR LINE ACTIVE BIT
+SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
:GET A CHARACTER FROM SILO
1IF NOT VALID DATA, TRY AGAIN
1EXTRACT LINE NUMBER FORM CHARACTER

;CLEAR STATUS BITS
:IF LINE NUMBER IS 13
+CHECK FOR CORRECT ECHOED CHARACTER

LINBIT(R2),LINACT

+IF NOT LINE 13, CHECK DATA

+(RS)=EXPECTED NON ECHOED DATA
sNON ECHOED DATA ERROR

tUPDATE EXPECTED RECEIVED DATA
tCONTINVE IF NOT DONE
tCLEAR ACTIVE BIT

CZDHH-CO
010436

010442

010444

010452
010460

010464

010466

010470

MACRO V04.00
005767

003200

012777

000013

001344

042777
105777

001333

100000
003074

005200

020467

003640

010500

016705

003632

010476

010504
010504

010506

010510

34:

003066

003064

001757

LINACT

sIF ALL LINES ARE DONE

MOV

€13, 8DHSCR

;SELECT LINE 13

;AND CHECK

BNE

4%:

#100000, BOHLPR
8DHSLR

INC

BEQ

CcMP

MOV

104002

104400

S5$:

000014

BIC
1ST8

BNE

000407

010472

SEQ 58

27-JUN-85 13:04:20 PAGE 23-27

HLT
EMT

SCOPE

R4 ,TWRD13

TWRD13,RS

2
2

LINE=LINE+1

010000
000014

sEXIT

;CLEAR AUTO ECHO FOR LINE 13
:GET REST OF CHARACTERS
;UPDATE ECHOED CHARACTER COUNT

;CHECK ECHOED DATA

;(RS)=EXPECTED ECHOED DATA

;ECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
KX=KX+1
AUTO02
\LINE,\BITX,\KX
s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 14

s TRANSMIT 1 CHARACTER ON LINE 14 WITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES

010510
010510
010516
010524

012767
012767
012767

000340
000010
010744

167260
003062
003050

TS \XN,10,5%
T35:
MOV
MOV
S
MOV
.

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

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

MOV

#,.FREEZ1

:SET UP TO LOOP WITH DATA

MOV
JSR

#B8IT11,8DHSCR
PC,SETALL

—

010532
010540

000036
012777
004767

004000
002662

003000

010544
010552

012777
012777

000014
014340

002766
002766

MOV
MOV

#14, 8DHSCR
#THRD14,8DHBA

010560
010566

012777
012777

177777
133503

002762
002750

MOV
MOV

¢-1,8DHBC
#133503, SDHLPR

010602
010610
010612
010616
010620

012777
005000
017704
100375
010403

177777

002742

MOV
CLR
MOV
BPL
MOV

@-1, 80HBAR
RO
SOHNRC ,R4
13
R4 .R3

BIC
MOV
ASL
CHP
BEQ
CMP
BEQ
MOV

#177760,R3
R3,.R2
R2
R3,014
43
RBUF(R2) ,R4
2
RBUF(R2),RS

010574

010622

010624
010630
010632
010634
010640
010642
010646
010650

010654

042767

000303

042703
010302
006302
020327
001432
026204
001404
016205

010000

002724

177760
000014

014246
014246

XN=XN+1

003040

8IC

1%:

SWAB

HLT

#10000,LINACT

: 3

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT
+400 (OCTAL) CHARACTERS
;SELECT LINE 14 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 14 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 14
:SET AUTO ECHO FOR LINE 14

;CLEAR LINE ACTIVE BIT

:SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
:GET A CHARACTER FROM SILO
sIF NOT VALID DATA, TRY AGAIN
sEXTRACT LINE NUMBER FORM CHARACTER
:CLEAR STATUS BITS

;IF LINE NUMBER IS 14
;CHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 14, CHECK DATA

s (RS)=EXPECTED NON ECHOED DATA

sNON ECHOED DATA ERROR

CZDHH-CO
010654
010656
010660
010664
010666

010674
010700
010702
010710
010716
010722
010724
010726
010730
010734
010736
010742
010742
010744

010746

MACRO V04.00

104001
000423
105262
001352

27-JUN-85 13:04:20 PAGE 23-28

014246

2%:

046267
005767

014450
002742

002746

012777
042777
105777

000014
100000
002636

002630
002626

001344

001333
000407
005200
020467
001757
016705

EMT
BR
INCB
BNE
BIC
5T

3%:

BNE
.

MOV
BIC
1578

BNE
BR
4%:
INC
CMP
BEQ
MOV
HLT
EMT
58:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

003404
003376

104002
104400
000015
020000
000015

AUTO2

1
44
RBUF (R2)
1

LINBIT(R2),LINACT
LINACT

#14,8DHSCR
100000, 8DHLPR
8DHSLR

1
54
RO
R4,TWRD14
3
TWRD14 ,RS
2
2

;UPDATE EXPECTED RECEIVED DATA
;CONTINUE IF NOT DONE
;CLEAR ACTIVE BIT
;IF ALL LINES ARE DONE
EXIT
;SELELT LINE 14

;CLEAR AUTO ECHO FOR LINE 14
;GEl REST OF CHARACTERS
;AND CHECK

;UPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA

i (R5)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR
sCHECK FOR ITERATIONS. LOOP

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 1S
s TRANSMIT 1 CHARACTER ON LINE 1S WITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
;CHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
010746
010746
010754
010762

012767
012767
012767

000340
000010
011202

167022
002624
002612

TS \XN,10,5¢

T36:

MOV
MOV
MOV

—

MOV

000037

012777

004000

002542

011002
011010

012777
012777

000015
014342

011016
011024
011032
011040
011046
011050
011054
011056
011060
011062
011066
011070
011072

012777
012777

010770
010776

004767

042767

012777

005000
017704

100375

010403
000303
042703

010302
006302
020327

002424

#340,PS
#10, ICOUNT
#54 ,ESCAPE

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

#,FREEZ1

;SET UP TO LOOP WITH DATA

#8IT11,80HSCR

sMASTER CLEAR INTERFACE

XN=XN+
1

MOV

JSR

PC,SETALL

002530
002530

MOV
MOV

15, 8DHSCR
O#TWRD1S5,80HBA

177777
133503

002524
002512

MOV
MOV

@-1,80H8C
9133503, 8DHLPR

177777

002504

MOV

9-1,80HBAR

020000

002466

177760

000015

002602

8IC

1%:

CLR

#20000,LINACT

MOV

SDHNRC ,R4

MOV
SWAB

R4 ,R3
R3

MOV
ASL
cHp

R3,.R2
R2
R3,815

BPL

8IC

#177760,R3

: 3

+SET UP ALL LINES TO TRANSMIT
1400 (OCTAL) CHARACTERS
;SELECT LINE 15 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 15 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 15
sSET AUTO ECHO FOR LINE 15
;CLEAR LINE ACTIVE BIT

1SET BAR BITS FOR ALL LINES

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO

sIF_NOT VALID DATA, TRY AGAIN

sEXTRACT LINE NUMBER FORM CHARACTER
;CLEAR STATUS BITS

:IF LINE NUMBER IS 15

CZDHH-CO
011076
011100
011104
011106
011112
011112
011114
011116
011122
011124
011132
011136
011140
011146
011154
011160
011162
011164
011166
011172
011174
011200

011200

011202

011204

HACRO V04.00

001422
026204
001404
016205

104001
000423

01424€
014246

105262

014246

046267
005767

014450
002504

002510

012777
042777
105777

000015
100000
002400

002372
002370

001352
001344

001323
000407
005200
020467
001757
016705

SEQ 60

27-JUN-8S5 13:04:20 PAGE 23-29

2%:
3%:

BEQ
CHP
BEQ
MOV
HLT
EMT
BR
INCB
BNE
BIC
TST

BNE

MOV
BIC
75718

BNE
BR
4s:
INC
cMP
BEQ
MOV
HLT
EMT
5§:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

003150
003142

104002
104400
000016
040000
000016

AUTO02

4%
RBUF(R2) ,R4
2¢
RBUF(R2),R5
1
1
&%
RBUF (R2)
13

i (RS)=EXPECTED NON ECHOED DATA
;NON ECHOED DATA ERROR

sEXIT

;CHECK FOR CORRECT ECHOED CHARACTER
:IF NOT LINE 15, CHECK DATA

sUPDATE EXPECTED RECEIVED DATA

LINBIT(R2),LINACT
LINACT

#15, 8DHSCR
2100000, 8DHLPR
SDHSLR

13
54
RO
R4,TWRD15
34
TWRD15,RS
2
2

;:CONTINUE IF NOT DONE

;CLEAR ACTIVE BIT
:IF ALL LINES ARE DONE

+SELECT LINE 15
:CLEAR AUTO ECHO FOR LINE 1S
:GET REST OF CHARACTERS

sAND CHECK

;UPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA
; (RS)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 16
s TRANSMIT 1 CHARACTER ON LINE 16 WITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
.
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
011204
011204
011212
011220

012767
012767
012767

000340
000010
011440

166564
002366
002354

TS \XN,10,5¢

T137:

R
X

MOV
MOV
MOV

#340,PS
€10, ICOUNT
54 ,ESCAPE

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

MOV

#,FREEZ1

+SET UP TO LOOP WITH DATA

MOV
JSR

#8IT11,80HSCR
PC,SETALL

ot
011226

011234

000040
012777
004767

004000
002166

002304

011240
011246

012777
012777

000016
014344

002272
002272

MOV
MOV

#16, 8DHSCR
#TWRD16,80HBA

011254
011262
011270
011276
011304
011306
011312
011314

012777
012777

177777
133503

002266
002254

MOV
MOV

@-1,80HBC
9133503, 8DHLPR

177777

002246

MOV

#-1,80HBAR

042767

012777

005000
017704

100375
010403

040000

002230

XN=XN+1

002344

8IC

1s:

#40000,LINACT

i 3

;MASTER CLEAR INTERFACE
1SET UP ALL LINES TO TRANSMIT
+400 (OCTAL) CHARACTERS
;SELECT LINE 16 FOR TESTING
;CHARACTER TO BE TRANSMITTED
sON LINE 16 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 16
:SET AUTO ECHO FOR LINE 16
;CLEAR LINE ACTIVE BIT

sSET BAR BITS FOR ALL LINES

CLR

sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

BPL
MOV

1s
R4 ,R3

:IF NOT VALID DATA, TRY AGAIN
;EXTRACT LINE NUMBER FORM CHARACTER

MOV

SDHNRC , R4

$GET A CHARACTER FROM SILO

CZDHH-CO

MACRO V04.00 27-JUN-85 13:04:20 PAGE 23-30

011316 000303
011320
042703
011324
010302
011326 006302
011330
020327
011334 001432
011336
026204
011342 001404
011344
016205
011350
011350
104001
011352 000423
011354
105262
011360 001352
011362
046267
011370 005767
011374 001344
011376 012777
011404
042777
011412
105777
011416 001333
011420 000407
011422 005200
011424
020467
011430 001757
011432 016705
011436
011436
104002
011440
104400

011442

SWAB

177760

BIC

MOV
ASL

#177760,R3

R3,R2
R2

;CLEAR STATUS BITS

000016

CcMP

014246

CHMP
BEQ
MOV
HLT
EMT
BR
INCE

RBUF(R2),R4
24
RBUF(R2),R5
1
1
43
RBUF(R2)

1 (RS)=EXPECTED NON ECHOED DATA
sNON ECHOED DATA ERROR

8IC
TST

LINBIT(R2),LINACT
LINACT

;CLEAR ACTIVE BIT
sIF ALL LINES ARE DONE

BEQ

014246

2s:

014450
002246

002252

000016

002134

100000

002142

002132

002714
002706

000017
100000
000017

34:

BNE

BNE
MOV
8IC

TST8
BNE
BR
43:
INC
CHP
BEQ
MOV
HLT
EMT
S4:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTO2

R3,v16

14
€16, 8DHSCR

9100000, 8DHLPR

S8DHSLR
14
S¢
RO
R4, THRD16
34
TWRD16,RS
2
2

:IF LINE NUMBER IS 16

;CHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 16, CHECK DATA

1UPDATE EXPECTED RECEIVED DATA

;CONTINUE IF NOT DONE
sEXIT
sSELECT LINE 16

sCLEAR AUTO ECHC FOR LINE i6

;GET REST OF CHARACTERS
sAND CHECK

sUPDATE ECHOED CHARACTER COUNT
sCHECK ECHOED DATA
s (RS)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR

sCHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sTRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 17
sTRANSMIT 1 CHARACTER ON LINE 17 MITH AUTO ECHO ENABLED
s TRANSMISSION
SPEED FOR ALL LINES IS 9600 BAUD
;CHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
011442
011442

011450
011456

012767
012767
012767

000340
000010
011676

166326
002130
002116

TS \XN.10,5%
T40:
MOV
MOV
MOV
>

eFRER

1SET UP TO LOOP MITH DATA

XN=XN+1

MOV
JSR

@BIT11,8DWSCR
PC,SETALL

sMASTER CLEAR INTERFACE
:SET UP ALL LINES TO TRANSMIT

MOV

#17,8DMSCR

;SELECT LINE 17 FOR TESTING

012777
004767

004000
001730

002046

011476
011504

012777

000017

002034

012777 014346 002034

MOV

OTHRD17,80HBA

011512

012777

177777

002030

MOV

@-1,80MBC

042767

100000

002106

MOV

=
o

011526

012777 133503 002016

[=¢]

011464
011472

—

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

ooc

000041

#340,PS
10, ICOUNT
950.ESCAPE

: 8

1400 COCTAL) CHARACTERS

;CHARACTER TO BE TRANSMITTED

20N LINE 17 IN AUTO ECHO MODE

sTRANSMIT ONLY 1 CHARACTER ON LINE 17

1SET AUTO ECHO FOR LINE 17

;CLEAR LINE ACTIVE BIT

g
—

CZDHH-CO
011534
011542
011544
011550
011552
011554
011556
011562
011564
011566
011572
011574
011600
011602
011606
011606
11610
011612
011616
011620
011626
011632

011634
011642
011650
011654
011656
011660
011662
011666
011670
011674
011674
011676

MACRO V04.00

012777

177777

017704

001772

042703

177760

005000
100375
010403
000303

010302
006302
020327
001432
026204
001404
016205

104001
000423
105262
001352
046267
005767

001344
012777
042777
105777

001333
000407
005200
020467
001757
016705
104002
104400
000020
000000
000020

002010
18:

014246
014246

000017
100000
001704

002460
002452

#-1,80HBAR

MOV

S8DHNRC ,R4

+SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
iGET A CHARACTER FROM SILO
+IF NOT VALID DATA, TRY AGAIN
iEXTRACT LINE NUMBER FORM CHARACTER

#177760,R3

;CLEAR STATUS BITS

CLR

2%:
002014

38:

001676
001674

14
R4 ,R3
R3

MOV
ASL
CHP
BEQ
CHP
BEQ

R3.R2
R2
R3,017
4%
RBUF(R2),R4
24

EMT
BR
INCB
BNE
8IC

1
43
RBUF(R2)
14
LINBIT(R2),LINACT

BNE

Ny
T.
1378

4s:

BPL
MOV
SWAB

m¥

014246
002010

MOV

8IC

000017

014450

SEQ 62

27-JUN-85 13:04:20 PAGE 23-31

BNE
BR
INC
cHp
BEQ
il
WY

ENT
S8:
SCOPE
LINE=LINE.1
BITX=BITX+BITX
KX=KX+1

+IF LINE NUMBER IS 17
sCHECK FOR CORRECT ECHOED CHARACTER
+IF NOT LINE 17, CHECK DATA

lxlllf (R2),RS

LINACTY

#17,8DHSCR
§.00000, SDHLPR
SOHSLR

i
S4
RO
R4, TURDPLY
34
THRD17,RS
2

s(RS)=EXPECTED NON ECHOED DATA
iNON ECHOED DATA ERROR

sUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE
sCLEAR ACTIVE BIT
sIF ALL LINES ARE DONE
EXIT
sSELECT LINE 17
sCLEAR AUTO ECHO FOR LINE 17
sGET REST OF CHARACTERS
sAND CHECX

sUPDATE ECHOED
sCHECK ECHOED DATA

s{RS)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR
sCHECK FOR ITERATIONS. LOOP

MACRO V04.00

s TRANSMIT 1 CHARACTER ON EACH LINE WITH AUTO ECHO ENABLED
tRECEIVE 64 CHARACTERS ON EACH LINE

011722
011730
011734
011740

10 011744
11 011750
12 011754
13 011762
14 011770
15 011772
16 011776
17 012002
18 012004
19 012006
20
21 012014
22 012022
23 012026

012767
012767
012767

000042
012777
012700
012701
012702
012703
010177
012777
012777
005022
012723
062701
005300
001361
012767

012777
105777
100375
017704
010403
000303
042703
10302
006302
005262
020662
001404
016205
104002
000417
005362
003351
100413

010377

042777
046267
005767
001335
104400

000100
012130

166070
001672
001660

TS \XN,100,5¢
Ta1:
MOV

JFNB
.ENDC

001610

014310
014350
014410
001572
171N
131403

MOV
MOV
©
MOV

XN=XN+1

001566
001554

14:

MOV

00100

54 ,ESCAPE

iDISABLE ALL INTERRUPTS
+SET UP FOR 100 ITERATIONS
1SET UP TO ESCAPE TO NEXT TEST

@,FREEZ1

+SET UP TO LOOP WITH DATA

#8IT11,8DHSCR
€20,R0

tMASTER CLEAR INTERFACE
1SET UP PARAMETERS FOR 16 LINES
sCHARACTER TO BE TRANSMITTED
+RECEIVED CHARACTER COUNT
+EXPECTED NUMBER OF CHARACTERS
sLOAD BUS ADDRESS

ORCNTO,R2
ORDCTO,R3
R1,8DHBA
#-1,80HBC
9131403, 8DHLPR
(R2)
#100,(R3).

#2,R1

mmnn

001630

nmn
001512

001530

RO
14

-1, AEACT

28:

1ST8

001506

177760
014350
014310
014310

014410
001432
100000
014450
001516

#340,PS
€100, ICOUNT

OTHRDO,R1

001430

001522

S54:

gRARRIAARRILIDINAS

S 011700
011700
011706
011714

6
7
8
9

SEA 63

27-JUN-85 13:04:20 PAGE 24

L X7 1V

CZDHH-CO

#-1,8DHBAR

sINDICATE
AUTO ECHO ACTIVE
sFOR
ALL LINES
sSET BAR BITS FOR ALL LINES
sWAIT FOR A CHARACTER

GOHNRC ,R4
R4,R3

sGET CHARACTER

#177760.R3

sEXTRACT
LINE MMBER

R4, THRDC(R2)

sUPDATE RECEIVED
COUNT FOR LINE
1CHECK EXPECTED AND RECEIVED DATA

R3.R2
R2
RCNTO(R2)

1(R5)=EXPECTED ECHOED DATA
+AUTO ECHO ERROR

sUPDATE m:mn EXPECTED COUNT
sCONTINUE
IF NOT
O

lE!fl' JOF mtn:

sSELECT LINE THAT FINISHED
lm AUTO ECHO
tCLEAR AUTO ECHO ACTIVE
sALL LINES DONE
tCHECK FOR ITERATIONS. LOOP

; 3

CZDHH-CO

MACRO V04.00

SEQ 64

27-JUN-85 13:04:20 PAGE 25

1
2 012132

.EOP

t/BEGIN/

1END OF PASS
i TYPE NAME OF TEST
1UPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11

sRESTART TEST

012206
012210
012212
012214
012216
012220
012224
012226
012230
3 012232

016767
013701
001405
000005
004711
000240
000240
000240
000167
000001
006
013574

TYPE

CLR

001474
001424
001422
166624

1TYPE NAME OF TEST

LAST

CLR
INC

ERRFLG
PASCNT

BNE

TYPE
PASTXT

sCLEAR LAST ERROR PC
1CLEAR ERROR FLAG
tUPDATE PASS COUNT
+ ARE WE USING LIGHTS?
+ BRANCH IF WE ARE

LIGHTS

s TYPE PASCOUNT MESSAGE

OCTASC

PASARG

001376

166602

LOGICAL:

s CONTINUE

MOV

PASCNT ,LIGHTS

:DISPLAY PASS COUNT

MOV

9042,R1

sCHECK FOR ACT-11 OR DOP

RESET

NOP
NOP
NOP

RESTRT: JHP
PASARG
: MHORD
BYTE
.HORD

167062

3 PRINT PASSCOUNT

BEQ

RESTRT

JSR

+IF NOT, CONTINUE TESTING

PC.(R1)

FGI

1
6,2

sCHECK FOR LOOP ON CURRENT TEST
sCHECK FOR ITERA

BIT
BNE
8IY
BNE
BIT
BNE
INC
cHe
BNE
CLR
CLR
%

001030
001021
001006
005267
026767

001322
001316

001312

005067
005067
011667

001306

016716

001260

34:

005767
001745

001244

001266

MOV
RTI
18T

BEQ

2V
S

MEPASS

#SH10, GSWR
4%

#SUH14, @SHR
3¢
#SH11,85WR
24
LPCNY
LPCNT, ICOUNT
3¢
LPCNT
ERRFLG
(SP),RETRN

RETRN, (SP)
ERRFLG

EOP:

104401
015064
005067
005067
005267
005767
001005
104401
015077
104402
012224
000403

012132
012134
012136
012142
012146
012152
012156
012160
012162
012164
012166
012170
012172
012172
012200
012200

4
; 6

CZDHH-CO
012330
4 012332

MACRO V04.00

27-JUN-85 13:04:20 PAGE 25-1

000762

.SCOP1

tCHECK FOR FREEZE ON CURRENT DATA
012332
012340
012342
012346

032777

001000

016716

001236

001402
000002

166440

SCOP1R: BIT

BEQ

14:

MOV

RTI

#SH09, BSWR

FREEZ1,(SP)

SEQ 65

CZDHM-CO

MACRO V04.00

27-JUN-85 13:04:20 PAGE 26

1 012350

1ERROR HANDLER

——

012502
012504
012506
012510
012512
012516
012520
012522
012526
012530
012532
012536
012544
012546
012552
012554
012556
012560

166422

001244
001174

14:

000002

177001
015216

001404

104401
014774
104402
000000
104407
005777
100005
010046
016600
000000
012600
005267
032777
001402
016716
000002
{0C50.
006
013630

HALTS

BEQ
MOV
CLR

14
(SP),LAST
ERRFLG

MOV
SuB
MOV
ASL
ASL

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

ADD
MOV
MoV

GERRTAB,
R4
(R4)+,ERRMSG
(R4) .DATABP

SAVOSP

8IC

000052
001132

9SW13, BSWR

BNE

cHp

001252

#177001,R4

ERRFLG

TST

DATABP

BNE

TYPMSG: TYPE
MCRLF

; 4

(SP),.LAST

TST

BEQ

001011

104401
014774
104402
012554
012767
104401
000000
005767

ERRORS: BIT

TYPMSG

TYPDAT

wunaunw

011504
006304
006304
042704
062704
012467
011467
005767
001403
005767

020000

OCTASC

000001

ERTABO

mov

001104

IYFE

TYPDAT
: ST

000010

BEQ

TYPE
MCRLF
gcusc

DATABP :
RESREG: RESOS
HALTS:
ST

166262

BPL

PUSHRO

nov
001040

001030

HALTY
POPRO

166234

EXITER: INC

BIT
BEQ

18:

ERTABO:

MOV
:1’!

.BYTE

SAVPC

1 ,.ERRFLG
DATABP

RESREG

SSWR

EXITER

2(SP).RO
ERRCNT

#SW10, BSWR
1s

ESCAPE,(SP)

6,2

wwn

012500

032777
001055
021667
001404
011667
005067
104406
011605
162705

012350
012356
012360
012364
012366
012372
012376
012400
012402
012406
012410
012412
012414
012420
012424
012430
012434
012440
012442
012446
012450
012452
012454
012456
012460
012466
012470
012472
012476

CZDHH-CO

MACRO V04.00

012562

012562
012564
012570
012574
012576
012602
012606
012612
012614

.TRPSRV

011646
162716
017616
006316

042716
062716
017616
000136

wiaw

27-JUN-85 13:04:20 PAGE 27

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

TRPSRV: MOV
SuUB
MOV
TRPOK: ASL

000002
000000
177001
015136
000000

8IC
ADD
MOV
——— JMP

(SP),-(SP)
#2,(SP)
8(SP),(SP)
(SP)

@177001,(SP)
QTRPTAB, (SP)
8(SP),(SP)
8(SP)e

i 3

iGET PC OF RETURN
1=PC OF TRAP
sGET _TRP
sMULTIPLY TRAP ARG BY 2

sCLEAR UNWANTED BITS
sPOINTER TO SUBROUTINE ADDRESS
s SUBROUTINE ADDRESS
;GO TO SUBROUTINE

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

016667

000004

001006

SVOSP:

MOV

4(SP),SAVPC

:SAVE RO-RS
010567

010467
010367
010267
010167
010067
000002

016700

016701
016702

016703

r——

016704
016705

000776

000770
000762
000754
000746
000740

SV0S:

.RESREG

000732

000730
000726

000724

000722
000720

RS05

MoV

MOV
MOV
MOV
MOV
MOV
RTI

RS,SAVRS

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

sRESTORE RO-RS
MoV
MOV
MoV

SAVRO,
RO

MoV
MOV
RTI

SAVR4 R4
SAVRS.R5

MOV

SAVR1.R1
SAVR2,R2

SAVR3,R3

: 3

CZDHH-CO

MACRO v04.00

otW 60

27-JUN-85 13:04:20 PAGE 28

1 012706

.TYPER

s TELETYPE OUTPUT ROUTINE
012706

017605

012712

062716

012722

100375

012716
012724

012726

012730

012732
012736

2 012740

105777

000000

TYPER:

000612

14:

000002

105715

001001

000002

112577
000767

000600

2%:
.INSTRG

MOV

ADD

8(SP),RS

02,(SP)

TST8

8TPCSR

TST8

(RS)

BPL

BNE

MOVe
BR

(RS)+,8TPDBR
13

RTI

sASCII STRING INPUT ROUTINE
012740

012746
012752

012754

012756
012762
012766
012772
012774
013000
013004
013010
013012
013020

013024
013026
013030

017667

062716
104401

000000

01270«
012703
105777
100375
117714
142714
122427
001413
117777
105777

100375
005303
001356

000000

000002

9000006

INSTRG: MOV

ADD

INSTR1: TYPE

MSG:

015160
000007
000536

18:

000532
000200

000015

000514
000510

000516

2s:

MOV
MOV
TST8
BPL
MOVB
8ICB
cMP8
BEQ
MOVE
1578

QINBUF R4
#7,R3
STKCSR
14
STKDBR,(R4)
#200,(R4)
(R4)+,015
INSTR2
STKUBR,8TPDBR
STPCSR

2%
R3
13

INSTR1

104401
014770

INSTRE: TYPE
Lyl

013040

000002

INSTR2: RTI

000745

2,(SP)

BPL
DEC
BNE

013032
013034

013036

8(SP),MSG

CZDHH-CO

MACRO V04.00

1 013042

<L«

27-JUN-85 13:04:20 PAGE 29

’

.PARAMS

;CONVERT ASCII STRING TO OCTAL
013042
013044
013050
013054
013060
013064
013070
013072
013074
013100
013104
013106
013112
013114
013120
013122
013126
013130
013134
013136
013140
013142
013144
013146
013150

011605

012567 000146
012567 000144
012567 000142
112567
112567

010516

005005
012704
122714

001420
121427
002415
121827
003012
142714
152405
122714
001406
006305
006305
006305
000760
108404
000750

PARAMS: MOV

MOV
MOV
MOV

000140
000135

015160

000015
000060

000067
000060
000015

MOVB
MOVB

(SP).RS

(RS)+,LOLIM
(RS)+
. HILIM
(R5)+,DEVADR

(R5)+.LOBITS
(R5)+.ADRCNT

MOV

RS,(SP)

CHPB

PARERR
(R4),060
PARERR
(R4),067
PARERR
960, (R4)
(R4)s,.RS
915, (R4)
LIMITS
RS
RS
RS
1%
PARAML

PARAML: CLR
MOV

BEQ
18:
CHPB
BLT
CHPE
BGT
BICE
BISB
CMPB
B8EQ
ASL
ASL
ASL
BR
PARERR: INSTER
B8R

RS
SINBUF ,R4
015,(R4)

;TEST TO SEE IF NUMBER IS MITHIN LIMITS
013152
013156
013160
013164
013166
013172

020567

101373
020567
103770
136705

001365

000042

LIMITS: CWP

BHI
P
8LO

000032
000032

8ITB

BNE

RS, MILIN

PARERR
RS,LOLIM
PARERR

LOBITS.RS

PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
013174
013200
013202
013206
013212

013214

013216
013220
013222
013224

016704 000022

010524

062705 000002
105367

001372
000002
000000
000000
000000
060000
013225

000013

18:

MoV

DEVADR
R4

"oV

RS, (R )+

DECB

ADRCNT

ADD

92,85

J
: 3

CZDHH-CO

MACRO V04.00

SEQ

27-JUN-85 13:04:20 PAGE 30

013226

.OCTASC

;:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
013226
013232
013236
013242
013246
013252
013256
013262
013266
013272
013274
013300
013304
013306
013310
013312
013314
013316
013320
013324

013326
013332
013334
013340
013342
013346
013352
013354
013356
013360
013362
013366
013370
013372
013374

——

013376

017601
062716
012167
112167
112167
013167
016704
116705
012700
010403
042703
062703
110320

000000
000002
000130
000126
000123
000120
000114
000106
015172

OCTASN: MOV

14:

2s:

015204

02,(SP)

MOVB
MOV

(R1)»,SPACNT
8(R1)+ ,BINWRD
BINWRD ,R4
CHRCNT RS
OTEMP,RO

MOV
MOVB

MOV
MOVB
MOV
BIC

177770
000260

000035

Ss:
6%:

(R1)+,WRDCNT
(R1)+,CHRCNT

€177770,.R3

ADD
MOVB
ASR
ASR
ASR
DEC

#260,R3
R3,(RO)R4
R4
R4
RS

MOV

MDATA,R3

DECB
BNE
TST8
BEQ
MOV8
DECB
BNE

CHRCNT
44
SPACNT
[3)
#240,(R3)SPACNT
S8

BNE

4s:

8(SP).R1

ADD

MOVB

CLRB
TYPE

MDATA

DEC
BNE

-(RO).(R3).

(R3)

WRDCNT
1s

i S

; 3

CZDHH-CO

MACRO V04.00

SEQ 71

27-JUN-85 13:04:20 PAGE 31

013400

CCLRALL

:CLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS
013400
013404
013410
013414
013420
013422
013424
013426

012700
205077
005077
005277
005300
001370
000207

000029
000136
000134
000120

CLRALL : MOV
14:
CLR
CLR
INC
DEC
BNE
RTS

SSETALL

80HBC
80NSCR

+SET UP TO CLEAR 16

iCLEAR BUS ADDRESS

;CLEAR BYTE COUNT
sANVANCE LINE NUMBER

;CONTINUE IF NOT DONE

sRETURN TO CALLING ROUTINE

+SET BYTE COUNT FOR ALL LINES TO 400
+SET BUS ADDRESS FOR ALL LINES TO TBUF
;CLEAR EXPECTED CHARACTER BUFFERS
:SET LINE ACTIVE BITS FOR ALL LINES
SETALL : MOV

012700

013432

005001

013434

012702

#200,.R2

0.3440
013444
013452
013460
013466

012703
012777
012777
012777
105061

000001
013646
177400
031403
014246

013472
013476
013502
013504
013510

110263
005277
005202
062701
062703
005300
001352
012767
000207

014246
000036

013520
013526

1771

000074
000056

000114

20,R0

#1.R3
#TBUF , SDHBA
#-400, 8DHBC
#31403,80HLPR

1$:

RBUF(R1)

ASRAEENA

013514
013516

—

000020

013426

R2,RBUF(R3)
S8DHSCR

#2.R1
#2,R3

RO
14
.’1om

+SET UP TO LOAD 16
sBYTE COUNT AND BUS ADDRESS
sMEMORY LOCATIONS
+SET UP TO GENERATE EXPECTED
sRECEIVED CHARACTER BUFFER
sWILL BE HIGH BYTE
+OF EXPECTED RECEIVED CHARACTER
;OFFSET FOR HIGH BYTE
;LOAD BUS ADDRESS
sLOAD BYTE COUNT
+SET LINE SPEED TO 4800 BAUD

sRECEIVED CHARACTER
sLOAD HIGH BYTE
sADVANCE LINE NUMBER TO NEXT LINE
;UPDATE POINTERS

sCONTINUE
IF NOT DONE

+SET ACTIVE FLAGS FOR ALL LINES
sRETURN
TO CALLING ROUTINE

1 013530

013530
013532
013534
013536

177560
177562
177564
177566

TLVL>

013540
013542
013544
013546
013550
013552
013554
013556
013560
013562
013564
013566
013570

.POINT

t/DHSCR, DHNRC, DHLPR, DHBA ,DHBC, DHBAR, DHBCR, DHSSR,DHSLR, DHRVEC, DHRLVL, omv

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566
A

.IRP

;INDIRECT POINTERS

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

.ENDM

sPROGRAM VARIABLES

013572
013574
013576
013600
013602
013604
013606
013610
013612
013614
013616
013620
013622
013624
013626
013630
013632
013634
013636

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

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

013640
013642
0513644

000000
000000
000000

ENDFLG:
LINACT:
AEACT:

.IRP
A:
.ENDM

EC,DHTLVL /

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

+/ENDFLG,LINACT,AEACT/

OIPOOOOOOOOOOOOOOOOOOO

.VARIA

OO0

2 013572

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

wewm

27-JUN-85 13:04:20 PAGE 32

MACRO V04.00

O000000O00COC0C0OO

CZDHH-CO

:ERROR FLAG
sPASS COUNT
sERROR COUNT
sSCOPE RETURN ADDRESS FOR TEST LOOPING
sADDRESS FOR ERROR ESCAPE
sDATA LOOPING RETURN ADDRESS
+ITERATION COUNT FOR TEST IN PROGRESS

sNUMBER OF ITERATIONS THIS TEST
tRO SAVE AREA
iR1 SAVE AREA
sR2 SAVE AREA
iR3 SAVE ARE
sR4 SAVE AREA
iRS SAVE AREA
$STACK POINTER SAVE AREA
sCALLING ROUTINE SAVE AREA

;m INITIALIZATION FLAG
1PROGRAM START FLAG
tLAST ERROR PC
<ENDFLG,LINACT ,AEACT>

: 3

MACRO v04.00

000001
000
000377

013647

013650

013551
013652

013653
013654
013655
013656

013657
013660

013661
013662

013663
013664

013665
013666
013667

013670
013671
013672
013673
013674

013675
013676
013677

27-JUN-85 13:04:20 PAGE 33

TDAT=1
TBUF:
.BYTE
.REPT
377
.BYTE
TDAT
.NLIST
TDAT=TDAT+1
.LIST
.ENDR
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1

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

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

.BYTE

TDAT

CZOHH-CO

013700

013701

013702
013703

013704

013705
013706

013707
013710

013711
013712

013713
013714

013715

013716
013717

013720
013721

013722
013723

013724
013725
013726
013727
013730

013731
013732
013733

MACRO V04.00 27-JUN-85 13:04:20 PAGE 33-1
000032
032
000033
033
000034

034
000035
035
000036
036
000037
037
000040
040
000041
041

000042

042
000043
043
000044
044
000045
045
000046
046

000047
047
000050
050
000051
051
000052
052
000053
053
000054
054
000055
055
000056
056
000057
057
000060
060
000061
061
000062

062

000063
063
000064
064
000065
065
000066

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

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

TDAT=TDAT+1

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

.BYTE

TDAT

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

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

.BYTE

TOAT

TDAT=TDAT+1

CZDHH-CO
013734

013735
013736

013737
013740
013741
013742

013743

013744
013745
013746
013747
013750
013751

013752
013753

013754
013755

013756
013757

013760
013761
013762
013763
013764
013765

013766
013767
013770

MACRO V04.00

27-JUN-85 13:04:20 PAGE 33-2

066
200067
067
000070
70
000071

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

000072

TDAT=TDAT»1

000073
073
000074
074

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

071

072

000075
075
000076
076
000077
077
000100
100
000101
101
000102
102
000103
103
000104
104
000105
105
000106
106
000107
107
000110
110
000111
111
000112
112
000113
113
000114
114
000115
115
000116
116
000117
117
000120
120
000121
121
000122
122

.BYTE

TDAT

.BYTE

TDAT

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

SEQ 75

CZDHH-CO

013771

013772
013773

013774
013775

013776
013777
014000

014001
014002

014003
014004

014005
014006

014007
014010
014011
014012

014013
014014

014015
014016

014017
014020

014021
014022

014023

014024

MACRO V04.00

000123
123
000124
124
000125

27-JUN-85 13:04:20 PAGE 33-3

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

125
000126
126
000127
127
000130

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

000131
131
000132

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

000133
133
000134
134
000135

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

130

132

.BYTE

TDAT

.BYTE _ TDAT

135
000136
136
000137
137
000140
140
000141
141
000142
142
000143
143
000144
144
000145
145
000146
146
000147
147
000150
150
000151
151
000152
152
000153

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

000154

TOAT=TDAT»1

000155

TOAT=TDAT»1

153
154

155
000156
156
000157

.BYTE

TDAT

.BYTE

TDAT

.BYTE
TDAT
TOAT=TDAT+1

.BYTE _ TDAT

TOAT=TDAT+1

SEQ 76

CZDHH-CO
014025

014026
014027

014030

MACRO V04.00

157

.BYTE

TDAT

.BYTE

TDAT

000160
160
000161

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

000162
162
000163

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

161

163
014032
164
000165
014033
165
000166
014034
166
000167
014035
167
000170
014036
170
000171
014037
171
000172
014040
172
000173
014041
173
000174
014042
178
000175
014043
175
000176
014044
176
000177
014045
177
000200
014046
200
00¢201
014047
201
000202
014050
202
000203
014051
203
000204
014052
204
000205
014053
205
000206
014054
206
000207
014055
207
000210
014056
210
000211
014057
211
000212
212
000213
014061
213
014031

27-JUN-85 13:04:20 PAGE 33-4

000164

.BYTE TOAT
BYTE TOAT
TDAT=TDAT+1
BYTE TOAT
TOAT=TDAT.1
.BYTE TDAT
TDAT=TOAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE TDAT
TDAT=TDAT»1
.BYTE
TOAT
TDAT=TOAT»1
.BYTE TOAT
TOAT=TOAT+1
.BYVE TDAT
TOAT=TOAT+1
.BYTE
TOAT
TOAT=TOAT+1
BYTE TDAT
TOAT=TDAT+1
.BYTE TOAT
TDAT=TOAT.1
.BYTE TDAT
TOAT=TDAT+1
.BYTE TOAT
TDAT=TDAT,1
.BYTE TOAT
TOAT=TOAT+1
.BYTE TOAT
TDAT=TDAT+1
.BYTE TOAT
TOAT=TDAT+1
.BYTE TOAT
TOAT=TDAT,1
.BYTE
T
TDAT=TDAT+1
.BYTE _ TOAT
TOAT=TOAT,1
.BYTE
1
TOAT=TOAT+1
B
TOAT
=TDAT+1
. .BYTE TOAT
TOAT=TOAT+1
.BYTE TOAT
TOAT=TDAT.1
.BYTE TOAT
TOAT=TDAT+1

SEQ 77

CZDHH-CO

MACRO V04.00 27-JUN-85 13:04:20 PAGE 33-5

000214
214
000215
014063
215
000216
014064
216
000217
014065
217
000220
014066
220
000221
014067
221
000222
014070
222
000223
014071
223
000224
014072
224
000225
014073
225
000226
014074
226
000227
014075
227
000230
014076
230
000231
014077
231
000232
014100
232
000233
014101
233
014062

014102

014103
014104
014105
014106
014107

014110

000234
234
000235
235
000236
236
000237
237
000240
240

000241
241
000242

242
000243
014111
243
000244
014112
244
000245
014113
245
000246
014114
246
000247
014115
247

000250

TOAT=TDAT+1
.BYTE__
TOAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE__
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
BYTE__
TOAT
TOAT=TDAT.1
.BYTE_
TOAT
TOAT=TDAT+1
.BYTE_
TOAT
TOAT=TDAT+1
BYTE
TOAT
TOAT=TDAT+1
BYTE__
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT»1
BYTE_
TOAT
TOAT=TDAT.1
LBYTE
TOAT
TOAT=TDAT+1
BYTE
TOAT

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

TDAT=TDAT.1
.
TDAY
TOAT=TDAT.1

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

TOAT=TDAT.1

CZ0HN-CO
014116

014117
014120

014121
014122
014123
014124

014125

014126

C14127

014130
014131

014132

014133
014134
014135

014136

014137
014140
014141
014142

014143
014144

014145
014146
014147

014150
014151

014152

MACRO VO4.00

27-JUN-B85 13:04:20 PAGE 33-6

250
000251

.BYTE
TDAT
TDAT=TDAT.1

000252
252
000253
253
000254
254
000255
235
000256

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

000257

TDAT=TDAT+1

000260
260
000261
261
000262
262
000263
263
000264
264
000265
265
000266
266
000267

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

000270

TDAT=TDAT+1

000271

TOAT=TDAT+1

000272

TOAT=TDAT.1

000273
273
000274

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

000275
275
000276

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

00077

TDAT=TDAT+1

251

256

257

267

270
271

272

274

276

277
000300
300
000301
301
000302
302
000303
303
000304
304

.BYTE

TDAT

.BYTE_

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

.BYTE

TDAT

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

LLeunn v

AALRU

000305
305
000306
014154
306
000307
014155
307
000310
014156
310
000311
014157
311
000312
014160
312
000313
014161
313
000314
014162
314
000315
014163
315
000316
014164
316
000317
014165
317
000320
014166
320
000321
014167
321
000322
014170
322
000323
014171
323
000324
014172
324
000325
325
014173
000326
014174
326
000327
014175
327
000330
014176
330
000331
331
014177
000332
332
014200
000333
014201
333
000334
014202
334
000335
014203
335
000336
014204
336
000337
014205
337
000340
014206
340
000341

014153

VOR. W

c/-JUN-00

19:08:cV

FARLE

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

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

TOAT=TDAT-1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDATY

TOAT=TDAT.1

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

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

39-7

CZOHN-CO

MACRO V04.00

014207

341
000342
014210
342
000343
014211
343
000344
014212
344
000345
014213
345
000346
014214
346
000347
014215
347
000350
014216
350
000351
014217
351

014220

014221
014222

014223
014224
014225

014226
014227
014230
014231
014232
014233

014234
014235
014236
014237
014240
014241

014242
014243

27-JUN-85 13:04:20 PAGE 33-8

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

000352
352
000352
553
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
371
000372

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

000373

TOAT=TDAT»1

372

373
000374
374
000375
375

.BYTE

TDAT

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

Tee.

aWINY

014244

014245

11
12 014246
13

FiRWniv

000376

376
000377
377
000400

000000
014310

FVW. VvV

STV
VY

AVVRIEV

TROL

TDAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1
.EVEN
RBUF:
O
.=.+40

NOUVNBPWNFOONONWN

CZ0HH-CO

MACRO V04.00

.MACRO
WORDS
'WDNAME' K" :
.ENDM
WORDS

o ot et et s e

000020
000000
000000
000020

WDNAME ,K,DATA
DATA

K=KX
DATA=DATAX
KX=Q
.REPT
20

.NLIST
DATAX=KX+400+100377
.LIST
WORDS
t/TWRD/,\KX, \DATAX
.NLIST

KX=KX+1

.LIST
.ENDR

P 1

014310
014310
014312
14312

014314
014314
014316
014316
014320
014320
014322
014322
014324
014324

014326
014326
014330
014330

014332
014332
014334

vie

27-JUN-85 13:04:20 PAGE 34

100377

DATAX=KX+400+100377

100377
000001
100777

THWRDO:
100377
KX=KX+1
DATAX=KX2400+100377

100777
000002
101377

THRD1: 100777
KX=KX+1
DATAX=KX+400+100377

101377
000003

TWRD2:
101377
KX=KX+1

101777
000004
102377

TWRD3: 101777
KX=KXe+1
DATAX=KX+400+100377

102377
000005
102777

THURD4: 102377
KX=KX+1
DATAX=KX+400+100377

102777
000006
103377

THRDS: 102777
KX=KXe+1
DATAX=KX+400+100377

103377

THRD6:

101777

WORDS

t/TWRD/,\KX, \DATAX

WORDS

*/TMWRD/,\KX, \DATAX

WORDS

*/TMRD/,\KX, \DATAX

DATAX=KX+400+100377
WORDS
*/THRD/,\KX,\DATAX

HORDS

*/TMRD/,\KX, \DATAX

WORDS

*/THRD/,\KX,\DATAX

WORDS

000007

*/TMRD/,\KX, \DATAX

KX=KXe1

103777

103377

DATAX=KX+400+100377
WORDS

103777

+/THWRD/,\KX, \DATAX

THRD7:

103777

WORDS

*/THRD/, \KX, \DATAX

000010
104377

KX=KXe1
DATAX=KX+400+100377

104377
000011
104777

THRD10: 104377
KX=KX+1
DATAX=KX+400+100377

WORDS
*/TWRD/,\KX, \DATAX
THRD11: 104777

104777
000012

KX=KX+1
DATAX=KX#400+100377

105377

WORDS

————

e ————

+/TWRD/,\KX, \DATAX

CZOHH -Co
014334

014336
014336
014340
014340

014342
014342

014344
014344
014346
014346

19
21
22

MACRO V04.00

105377
000013
105777

105777

000014
106377

106377
000015
106777
106777
000016
107377
107377
000017
107777
107777
000020
107777
000020
000000
000000
000020

27-JUN-85 13:04:20 PAGE 34-1

TWRD12: 105377
KX=KX+1
DATAX=KX#400+100377

WORDS
TWRD13:

KX=KXe1

*/TWRD/,\KX,\DATAX
105777

DATAX=KX+400+100377

WORDS *+/TWRD/,\KX, \DATAX
TWRD14: 106377
KX=KX+
)

DATAX=KX+400+100377
WORDS t/TWRD/,\KX, \DATAX
THURD1S: 106777

KX=KX+1

DATAX=KX2400+100377
NORDS
+/TWRD/,\KX,\DATAX
THRD16: 107377

KX=KX+1
DATAX=KX+400+100377

WORDS
THRD17:

KX=KX+1

*/THRD/,\KX,\DATAX
107777

DATA=DATAX

K=KX

DATAX=0
.REPT
WORDS

20
+/RCNT/,\KX, \DATAX

014350
014350

WORDS
RCNTO:

014352
014352

WORDS
RCNT1:

t/RCNT/,\KX,\DATAX
O

014354
014354

WORDS

;MI.\KX.\DATIX

014356
014356

WORDS

;MI.\KX.\DM’A!

27
28

[

014360
014360

;MI.\KX.\DATA!

014362
014362

WORDS

SMI.\KX.\DATIX

014364
014364

WORDS

;lIClITI.\KX.\DITAX

014366
014366

RCNT7:

WORDS

*/RCNT/,\KX, \DATAX

014370

WORDS

t/RCNT/,\KX, \DATAX

LAVITIITWY

014370
014372
014372
014374
014374
014376
014376

014400
014400
014402
014402
014404
014404

014406
014406

FIRLRV

000000
000011
000000
000012
000000
000013

000000
000014
000000
000015
000000
000016
000000
000017
020000
000020
000000
000020
0000C0
000000
000020

YWR.W

€ "JUN~02

19 IVRICV

FALL

9%-c

RCNT10: O

KX=KX+1

WORDS
+/RCNT/
,\KX, \DATAX
RCNT11: O
KX=KX+1

WORDS

+/RCNT/Z,
\KX, \DATAX

RCNTi2: O
KX=KXe1
WORDS */RCNT/,\KX, \DATAX
RCNT13: O
KX=KX+1
WORDS */RCNT/,\KX, \DATAX
RCNT14: O
KX=KXe1
WORDS t/RCNT/,\KX, \DATAX

RCNT1S: ©

KX=KX+1
WORDS
*+/RCNT/,\KX,\DATAX

RCNT16: 0

KX=KX+1
WORDS +/RCNT/,\KX, \DATAX

RCNT17: ©

KX=KX+1

DATA=DATAX

K=KX

DATAX=0
KX=0
.REPT
20

WORDS

.NLIST

*/RDCT/,\KX,\DATAX

KX=KX+1

014410
014410
014412
014412
014414
014414
014416
014416

014420
014420

014422
014422
014424
014424

014426
014426

000000
000001
000000
000002

LIST
.ENDR
WORDS
RDCTO:

+/RDCT/,\KX,\DATAX
O

RDCTY:

RDCT2:

WORDS
RDCT3:

*/RDCT/,\KX,\DATAX
O

WORDS
ROCT4:

t/RDCTY/,\KX,\DATAX
O

WORDS
RDCTS:

WORDS
RDCT6:

+/RDCT/,\KX,\DATAX
O

WORDS
RDCT7:

+/RDCT/,\KX,\DATAX
O

KX=KXe1
HORDS
*/RDCT/,.\KXX,\DATAX

KX=KX+1
HORDS
*+/RDCTY/,\KX,\DATAX

000000
000003

KX=KX+1

000000
000004

KX=KXe1

000000
000005

KX=KX+1

000000
000006

KX=KXe1

000000
000007

KX=KX+1

000000
000010

KX=KXs1

014432
014432
014434
014434

014436
014436

014440
014440
014442
014442
014444
014444
014446
014446

42 014450
43 014452
44 014454
45 014456
46 014460
47 014462
48 014464
49 014466

frioen

50 014470
51 014472
52 014474
53 014476
54 014500
55 014502
56 014504
57 014506

020000
000011
000000
000012
000000
000013

000000
000014
000000
000015

000000
000016
000000
000017

000001

YWR.W

€I =JUN-02

19:I1VRIcV

FAOE

98-9

;/RDCT/.\KX.\DATAX
WORDS
RDCT10:

KX=KX+1

t/RDCT
\KX, \DATAX
WORDS
/,
ROCT11: O

KX=KX+1

+/RDC
\KX,T/,
\DATAX
WORDS
RDCT12: O

KX=KX+1

WORDS

RDCT13:

KX=KXe+1

WORDS

RDCT14:

;lRDCT/.\KX.\DATAX

;IRDCT/.\KX.\DATlX

KX=KX+1

+/RDCT/
\KX, \DATAX
WORDS
,
RDCT1S5: 0

KX=KX+1
+/RDCT
\KX, \DATAX
WORDS
/,

ROCT16:

KX=KXe1

LINBIT:

jigitg=-

014430
014430

fIALRV

LaVEINITWWY

CZDHH- co

MACRO V04.00

1 014510

014510
014512
014514
014516
014520
014522
014524
014530
014534
014542
014544

PFAIL

010046
010146
010246
010346
010446
010546
016746
010667
012767
000000
000777

PFAIL:

163274
177072
014546

oCW

27-JUN-85 13:04:20 PAGE 35

163262

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

RO, -(SP)
R1.-(SP)
R2,-(SP)
R3,-(SP)
R4,-(SP)
RS,-(SP)
24,-(SP)
SP,SAVSP
ORESTART ,24

iSAVE RO-R5 ON PROCESSOR STACK

1SAVE STACK POINTER
iSET UP FOR POWER UP TRAP
+HALT ON POWER DOWN NORMAL

; 3

:PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

012604
012603
012602
012601
012600
012767
012767
012706
005067
005267
001375
104401
014774
104402
014650
104401
014777
005067
005067
000177
000001
000006
013600

177054

RESTAR: MOV

MOV

014510
000340
015644
000360
000354

176732
176772
176730

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

OPFAIL .24
#340,PS
#STACK,SP
TEMP
TEWP
~4

gfl?

6,2
RETRN

;RESTORE STACK POINTER

;RESTORE RO-RS

(SP)+,R3

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

CLR

PFTAB:

(SP)+,.RS

MOV
MOV

MOV

163230
163174

SAVSP, SP

(SP)+,RO

+SET UP FOR POMER FAILURE

ERRFLG
LAST
SRETRN

012605

016706

014546
014552
014554
014556
014560
014562
014564
014566
014574
014602
014606
014612
014616
014620
014622
014624
014626
014630
014632
014634
014640
014644
014650
014652
014656

CZDHH-CO
014660
014660
014663
014666
014671

014674
014677
014702
014705
014710
014712
014715
014720
014723
014726
014731
014734

MACRO V04.00

015
104
061
125

012
110
040
124

105
117
105

012
061

127

.MSG
MTITLE:

t/DH11 AUTO ECHO TEST/,t/CZDHH-CO/
.ASCIZ
€15>¢12><12>/DH11 AUTO ECHO TEST /<15>¢12>

MVECTO:

.ASCIZ

<15><12>/VECTOR ADDRESS-/

.ASCIZ

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

.ASCIZ

101
117
103
040
123
015
126
124
040
104
123

014737
014742
014745
014750
014753
014756
014761
014764
014767
014770
014773
014774
014777
015002
015005
015010

27-JUN-85 13:04:20 PAGE 36

MCRLF:

.ASCIZ

MPFAIL
:

.ASCIZ

<15>¢<12>
/

POMER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/

111
122

117
101
122
124
124
105

117
105
012

MEPASS: .ASCIZ

<15><12>/CZDHH-CO/

PASTXT:

€15><12>/PASS COUNT = /

055

012
123
015113

116
07s

.ASCIZ

CZOHH-CO
015116
015117
015122
015123
015126
015131
015134

MACRO V04.00

000
015
000
015
105
040
055

012

122

MR:

.ASCIZ

<15><12>/R/

012

124
124
103

MTSTPC:

.ASCIZ

<15><12>/TEST PC-/

123
120
000

SEQ 89

27-JUN-85 13:04:20 PAGE 36-1

.EVEN
.EVEN
.TRPTAB

015136

sTABLE OF POINTERS FOR TRAP DECODING
015136
015140
015142
015144
015146
015150
015152
015154
015156

4 015160

012232
012706
013226
012740
013032
013042
012614
012654
012332

TRPTAB:

SCOPER
TYPER
OCTASN
INSTRG
INSTRE

PARAMS

SVOSP
RSOS
.BUFFER

SCOP1R

1BUFFERS FOR INPUT-OUTPUT
015160

015172

000000
015172
000000
015204

INBUF:
.=, 0]

000000

MDATA:
.=,+30
.ERRTAB

TEMP:

.=.+10

015216

s TABLE OF POINTERS TO ERROR MESSAGES AND DATA
015232
015414
015267
015426
015343
015426
101
117
103

oT1

EM2
T2
EM3
EM1:

110

D12

.ASCIZ

/AUTO ECHO ERROR/<15><12>/EXP

.ASCIZ

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

REC/

117

015
130

122
116

117

110

117

REC

LINE/

CZDHH-CO
015300
015303
015306
015311
015314
015317
015322
015325
015330
015333
015336
015341
14 015343
015346
015351
015354
015357
015362
015365
015370
015373
015376
015401
015404

015407
015412

15
16 015414
17 015416
18 015420
19 015422

MACRO V04.00

104
101
040
122
015
130
040
040
103
040
114
105
105
117
040
124

105
117
012
120

040
122
040
040
111
000

000002
006
013624
006
013622
000003
006
o1

040
124

105
117

012

120

SEQ 90

27-JUN-85 13:04:20 PAGE 36-2

104
101
122
122

105

040
040

105

040
040
116

110
104
101
040
122
015

EM3:

.ASCIZ

130
040
040
103
040
114
105

.EVEN
DT1:
.BYTE

BYTE

DT2:

2
6.2
SAVRS
6.0
SAVR4

BYTE

6.2

BYTE

6.2
SAVR4
2.2
SAVR3

BYTE

.ENDCOD

ENDCOD: 0
.m

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

REC

LINE/

CZDHH-CO

SYMBOL TABLE

MACRO V04.00

ADRCN'
- 013225
AEACT
013644
BEGIN
001306
BINWRD 013376
BITX
= 000000
BIT00 = 000001
B8iIT01 = 000002

L
|

SEQ 91

27-JUN-85 13:04:20 PAGE 36-3

ERRTAB
ERTABO
ESCAPE
EXITER
FREEZ1
MALTS
HILIM

015216
012554
013602
012532
013604
012512
013220

POPRO =
POP1SP=
POP2SP=
PS
=
PUSHRO=
PUSH1S=
PUSH2S=

012600
005726
022626
177776
010046
005746
024646

SAVR4
SAVRS
SAVSP
SAVOSP=
SCOPE =
SCOPER
SCOPE1~

013622
013624
013626
104406
104400
012232
104410

TWRD2
TURD3S
TWRD4
THRDS
TURD6
THRD7
TYPDAT

014314
014316
014320
014322
014324
014326
012472

713

003514

T16
717

004226
004404

B8IT02 = 000004
BITO3 = 000010
BITO4 = 000020
BITOS = 000040
BIT06 = 000100
BITO7 = 000200
BITO8 = 000400

ICOUNT 013606
INBUF
015160
INIFLG 013632
INSTER= 104404
INSTR = 104403
INSTRE 013032
INSTRG 012740

RBUF
RCNTO
RCNT1
RCNT10
RCNT11
RCNT12
RCNT13

014246
014350
014352
014370
014372
014374
014376

SCOPIR
SETALL
SPACNT=
STACK =
START
STFLG
SVOs

BIT10 = 002000
BITil = 004000

INSTR2 013040
K
= 000020

RCNT1S
RCNT16

014402
014404

SWR
SWOO

001000
= 000001

714
715

RCNTS
RCNT4
RCNTS
RCNT6
RCNT7
RDCTO
RDCT1

SWO3
SHO4
SWOS
SHO6
SWO8
SHO9
SH10
SHil

=
=
=
=
=
=
=
=

000010
000020
000040
000100
000400
001000
002000
004000

T2
120
721
T22
123
T24
125
126

004562
004740
005176
005434
003672

SHiS

= 020000

001734

B8IT09 = 001000

INSTR1

BITi2 = 010000
BIT13 = 020000

KX
LAST

BITi4 = 040000
BITiS = 100000
CHRCNT 013374
CLRALL 013400
DATA = 000000
DATABP 012506
DATAX = 000000

DEVADR

012752

= 000020
013636

LIGHTS
LIMITS
LINACT
LINBIT
LINE =
LOBITS
LOGICA

013222

001002
013152
013642
0144350
000020
013224
012210

RCNT14

RCNT17
RCNT2

014400

014406
014354

LOLIN

013216

RDCT10

014356
014360
014362
014364
014366
014410
014412
014430

MCRLF

014774

RDCT12

014434

DHBA

013546

LPCNT

DHBC

013550

MDATA

015204

DHNRC
DHRLVL

013542
013564

"M
MR

014770
015117

ROCT16
RDCT17

DHSCR

013540

MSG

012754

ROCTS

oT1
or2
EM1
em2
EM3
ENDCOD

015414
015426
015232
015267
015343
0135444

OCTASC= 104402
OCTASN 013226
PARAM = 104405
PARAMS 013042
PARAML 013072
PARERR 013146

RESREG 012510
RESTAR 014546
RESTRT 012220
RESOS = 104407
RETRN
013600
RSOS

EOP

012132

PASCNT

SAVRO

ERRFLG

013572

PFAIL

DHBAR

DHBCR
DHLPR

DHRVEC

DHSLR
DHSSR
DHTLVL
DHTVEC

ENDFLG

ERRCNT

ERRMSG
ERRCRS
. ABS.

013552

013554
013544

MEPASS
MPFAIL

013562

MREGAD

013560
013556
013570
013566

013576

012470
012350
015446

ERRORS DETECTED:

014734

RDCT11

RDCT1S

RDCT2

014414

SH1S
TBUF

TDAT
TEWP

TKCSR

TKDBR

THRD1S

014650

SAVRS

( 75 PAGES)

= 040000

013630

PFTAB

19200 WORDS

SHi4

SAVPC

013612

013614

013616
013620

= 000002
= 000004

= 010000

TPCSR
TPOBR
TRPOK
TRPSRY

SAVR1L

014416

012614

SHi2

014420
014422
014424
014426

015077

000

014444
014446

SWO1L
SW02

RDCT4
RDCTS
ROCT6
RDCT?

PASTXT

014510

014436

014440
014442

012224

013574

014432

ROCT14
RDCT1S

PASARG

001

VIRTUAL MEMORY USED:

015064
014777

MTITLE 014660
MTSTPC 015123
MVECTO 014712
N
= 000001

013640

000000

013610

SVOSP

012332
01342¢
013375
015644
001004
013634
012622

TYPE =
TYPER
TYPMSG
T1
710
Ti1
T12

127

104401
012706
012450
001400
003002
003160
003336

003672
004050

001556

006130

006366

006624
007062

= 100000
013646

1
132

013530

135

010510

013534
013536
012574
012362

37
T4
T40
T41

011204
oo2112
011442
011700

= 000400
015172

013532

133
34

136

007320
007356

010014
0102352

010746

TRPTAB
THRDO
THRDL
THRD10
THRD11
THRD12

015136
014310
014312
014330
014332
014334

15
16
17
VEC1
VEC2
MRODCNT

THRD14

014340

XBIT

= 000000

= 000042

014336

TURD1S

014342

THRD17

014346

THRD16

014344

002270
002446
002624
001164
001174
013372

= 000000

XLINE = 000020

= 000011

SYMBOL TABLE
-

vveesesw

Wwve.eww

WY
Ve

ViV

IeY

Tee

DYNAMIC MEMORY AVAILABLE FOR
71 PAGES
CZDHHC .BIN,CZDHHC . SEQ=CZDHHC .DOC ,DHMACA . MAC, CZOMMC .P11