Digital PDFs

AH-FG27C-MC

October 1985

93 pages

Original

4.0MB

view download

OCR Version

3.7MB

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

OCR Text

Czomrco o

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

MACRO V04.00

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

VK Y7L VY

TCYl w
Q0w -CO

.REM

SEQ 1

IDENTIFICATION

PRODUCT CODE:

AC-B472C-MC

PRODUCT NAME:

CZDHHCO DH1l AUTO-ECHO TEST

DATE:

JUNE 1985

MAINTAINER:

NAC SOF TWARE ENGINEERING

AUTHOR:

BAISLEY

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE ANO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES

NO RES:?NSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS

NO RESPONSIBILITY FOR THE USE OR RELJABILITY OF
SOFTWMARE ON
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS
AFFILIATED
COMPANIES
COPYRIGHT (C) 1985 8Y DIGITAL EQUIPMENT CORPORATION

BB JPNALWN
-

C2ZDHM-CO

MACRO VO4.00

27-JUN-85

SEQ 2

13:04:20 PAGE 2

PAGE 2

1.0

ABSTRACT

VERIFIES THAT THE AUTO ECHO ~EATURE OF THE DH1i WORKS.

2.0

REQUIREMENTS

2.1

EQUIPMENT

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

OM11 MAINTENANCE CARD INSTALLED

2.2

STORAGE

THE PROGRAM LOADS INTO 4KW OF MEMORY

3.0

LOADING PROCEDURE

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

4.0

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS

4.1.1

AFTER PROGRAM LOAD (INITIAL PROGRAM START)

ALL CONSOLE SWITCHES DOWN

OO IONE W

CZDHH-CO

SEQ 3

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

4.1.2
70 MODIFY DEVICE VECTOR AND CONTROL
PROGRAM RESTART

ADDRESSES

AFTER

SWOO0=1

4.1.3

SWOl=1

4.2

19
20
21

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

4.3

4.3.1

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

49
50

4.3.1.5
THE PROGRAM WILL TYPE *DH1l AUTO-ECHO TEST*
AND
WILL
THEN
TYPE
*“VECTOR
ADDRESS-“ AND WAIT FOR AN INPUT FROM THE TELETYPE

|/O

MACRO VO4.00

TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART

STARTING ADDRESS

PROGRAM AND/OR OPERATOR ACTION

INITIAL PROGRAM STARY

KEYBOARD
.

MACRO VO4.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 FOLLUWED BY

THE

NOTE

[

COBIPND
WN -

CZDHN-CO

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

IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM WILL TYPE
REPEAT THE SECOND MESSAGE OF 4.3.1.S

4.3.1.7

THE PROGRAM WILL TYPE “CONTROL REGISTER

FOR AN INPUT FROM THE TELETYPE KEYBOARD

ADDRESS-*

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

4.3.2.1

THE

*?*

AND

WILL

ABOUT

PERFORM 4.3.1.2 70 4.3.1.5

PROGRAM RESTART WITH SW0O=1

WAIT

PROGRAM RESTART WITH ALL SHWITCHES DOMWN

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

THE PROGRAM WILL TYPE

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

4.3.2

“7« AND WILL

AND

MWILL

MACRO VO4.00

SEQ 5

27-JUN 85 13:04:20 PAGE S

WO LSRN
WA -

CZOHH-CO

PAGE 5

4.3.3.1

LOAD ADDRESS 000200

4.3.3.2

SET SW01=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 SWO0i=1

4.3.4.3

PRESS START

36
37
38

4.3.4.4
THE PROGRAM WILL TYPE *DH11
AUTO-ECHO TEST*
AND
MWILL
TgngA;;PE
“TEST
PC-*
AND
WILL WAIT FOR AN INPUT FROM THE TELETYPE
K

42
43

4.3.4.5
TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO BE
STARTED FOLLOWED BY <CARRIAGE RETURN>

47
48

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

NOTE

CARE MUST BE TAKEN WHEN THIS FEATURE

55
56

AGAINST SELECTING AN ADDRESS THAT IS
THE MIDDLE OF A TEST

1IN

USED,

SINCE

THERE

PROTECTION

STARTED

AND

MACRO VO4.00

SEQ 6

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

VO JRANE
WA -

CZDHN-CO

PAGE 6

NOTE

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

5.0

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS

SW15=1,
SW14=1,
SW13=1,
SW1l=1,
SW10=1,
SW09=1,

HALT ON ERROR
LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOUT
INHIBIT ITERATIONS
ESCAPE TO NEXT TEST ON ERROR
FREEZE VARIABLE PARAMETER IN CURRENT TEST

SW00=1,

CHANGE PARAMETERS AT PROGRAM RESTART

SWO01=1,

5.2

5.2.1

START PROGRAM AT SELECTED TEST

SUBROUTINE ABSTRACTS

TRAPCATCHER (LOCATIONS 000000-000776)

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

2
0

0
772

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

VR NOVNE WA

CZOHH-CO

MACRO VO4.00

ANNAA

& Wi

SEQ 7

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

PAGE 7

5.2.2

START (PROGRAM INITIALIZATION)

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

5.2.4

EOP (END OF PASS)

THIS ROUTINE IS ENTERED ONCE

COMPLETED.

PER

PASS

AFTER

ALL

TESTS

HAVE

BEEN

THIS ROUTINE TYPES THE MAINDEC IDENTIFICATION CODE OF THE

PROGRAM, CLEARS ERROR FLAGS
AND
UPDATES
THE
PASS
COUNT.
IF
THE
PROGRAM
WAS
LOADED UNDER ACT1l OR DOP, THE ROUTINE CHECKS FOR RETURN
TO THE ACT11 OR DOP MONITOR.
IF THE
PROGRAM
IS
NOT
UNDER
MONITOR
CONTROL, THE ROUTINE TRANSFERS TO BEGIN.

5.2.5

SCOPER (SCOPE LOOP AND ITERATION HANOLER)

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 SWil=1,
THE
ROUTINE
MWILL
TRANSFER
SEQUENCE, AFTER CLEARING ERROR FLAGS.

IF
SWi4=1,
THE
ROUTINE
WILL
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
TESTM
ITERATIONS,
AND
COMPARE THIS VALUE TO THE NUMBER OF ITERATIONS
THAT SHOULD BE PERFORMED.
IF THESE NUMBERS
ARE
EQUAL,
THE
ROUTINE
WILL
TRANSFER
T0
THE NEXT TEST IN SEQUENCE.
IF THE NUMBERS ARE NOT
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED.

e mATRans

CZDHH-CO

MACRO V04.00

SEQ 8

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

PAGE 8

e
ot ohie o L B e F el P L L LSS T VYUY Y VY VY YO Y vy Gy Oy g

5.2.6

SCOPiR (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 SW09=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
&23}%25 “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 DOWN, THE ROUTINE PROCEDES AS FOLLOMWS:

WITH

ALL

CONSOLE

THE PC OF THE INSTRUCTION THAT CALLED THE
ERROR
HANDLER
IS
ACCESSED
THRU THE STACK, AND THEN THE EMT INSTRUCTION ITSELF
IS FETCHED.
THE 8 LSB OF THE EMT INSTRUCTION ARE
THE
ERROR
CODE.
THIS CODE IS USED TO ACCESS A TABLE OF ERROR MESSAGES
AND ERROR DATA STORAGE LOCATIONS.

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

TYPEOUT IS MADE.

5.2.8

THE ROUTINE NOW CHECKS FOR HALT
ON
ERROR.
IF
SW15=1
THE
PROGRAM
NILL
HALT
MWITH
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
SWi10=1,
THE
ROUTINE
WILL
ABORT
THE CURRENT TEST, AND
TgeggEsR 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.

NED2DEaRREELEWWNWRWWWWWOWNLNORDLDDNLDN
N PO N =0 =t ot ot ot Pt 4 ot ot P

OV NRAVNBUNFHOOVBNAVBUWNFOOVB
YOS WN
n - OOONOM&MNHOOONOM.NNM

CZDHH-CO

MACRO V04.00

SEQ 9

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

5.3.1.1

BEHAVIOR.

REFER

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

5.3.1.3

WHEN ALL ITERATIONS HAVE BEEN

TYPE
“CZDHH-C*
PROGRAM).

AND

COMPLETED,

THE

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

5.3.2

PROGRAM

WILL

THEN RESTART TESTING AT TEST 1 (LOCATION T1 IN THE

APPROPRIATE

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

PEBBUWNWNEWWWWGCWDDDDDDDDDR
N
0 15 0 b 1t b s P oo Pun
GNP OVONOVMAWUWNLFLOVRNOWMALN-O
N
OCQOMQNNHOOO\JOMQGNO‘

CZOHMH-CO

MACRO VO4.00

SEQ 10

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

PAGE

SiSigé$ 1AFTER
A

5.3.4

“CZDHH-C* HAS BEEN TYPED,

THE PROGRAM WILL RESUME TESTING

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 SWi13=i1

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEQUTS WILL OCCUR

5.3.6

PROGRAM OPERATION WITH SWii=1

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

5.3.7

PROGRAM OPERATION WITH SW10=1

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

5.3.8

PROGRAM OPERATION WITH SWi4=1,

OR SW09=1

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

SEE

SECTION

CZDHH-CO
44
45
46
47
48
49
SC
51

52
53
54
55
56
57
58

MACRO VO4.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 TYPEQUTS IS AS FOLLOMS
PCs2

MESSAGE
HEADER (IF APPLICABLE)

DATA

(IF APPLICABLE)

WHERE
PC+2 1S THE ADORESS OF THE CALL TO THE ERROR HANDLER

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

OB LARAD
WA -

CZDHH-CO

MACRO VO4.00

SEQ 12

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

PAGE

THE

SAME

ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS,

IS ASSOCIATED WITH THAT ERROR,
TYPEOUTS.,

ONLY DATA IS TYPE ON

AND IF DATA

SUCCEEDING

ERROR

%Fpgg DATA IS ASSOCIATED WITH THE ERROR THE COMPLETE ERROR MESSAGE
Y

6.1.1

ERROR DESCRIPTIONS

SEE LISTING FOR DETAILS OF ERRORS

6.2

ERROR RECOVERY

6.2.1

SW15=0

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

6.2.2

AFTER

THE

SW15=1

IF THE PROGRAM IS5 RUN WITH

PROGRAM HAS HALTED,

6.2.3

REQUIRED

SW1S5=1,

CONTINUE

TESTING

PRESS THE PROCESSOR CONSOLE CONTINUE SWITCH

ILLEGAL INTERRUPTS

IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED ODURING PROGRAM
INITIALIZATION, THE PROGRAM WILL HALT IN THE TRAPCATCHER.
THE ADDRESS

AT WHICH THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH
THE
E:gfl?"l’i; Eggg:.‘RED
THE PROGRAM MUST BE RESTARTED AT 200 TO RECOVER

6.3

SCOPE LOOPING

CZDHH-CO

MACRO VO4.00

SEQ 13

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

;

6.3.1

CAUSE

70 SCOPE ON A SPECIFIC TEST,

THE

PROGRAM

SET SWid=1 AND SW13=1.

CONTINUOUSLY

THIS

WILL

LOOP ON THE SAME TEST, AND WILL

CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED

10
11
1§
1

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

6.3.3

18
19
20
3
22

PERFORM SECTION 4.3.4 WITH SWid=}1

7.0

RESTRICTIONS

7.1

STARTING

THE DH11 TEST CARD MUST BE INSTALLED

23
24
25

29
30
31
32
33

33
36
37

k—

PAGE 12

7.2

PROGRAM START TO SCOPE LOOP ON SELECTED TEST

RUNNING

NONE

—

C2ZDHH-CO

MACRO VO4.00

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

38
39

8.0

MISCELLANEQUS

42
43

8.1

EXECUTION TIME

44
45
46
47
48
49

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

50
S1
32
33

PROCESSOR

40
41

55
57
58

TIME

POP-11/05,10

POP-11/20
POP-11/40
POP-11745

SEQ 14

MACRO VO4.00

nP
o

SEQ 15

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

PAGE

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
70 8€ CORRECT.

b et Pt ot [t s pa

OOQOMOWNF‘OOONOM.WN”

CZOHH-CO

10.0

LISTING

MACRO VC4.00

NN
S NN -

CZOHNH-CO

SEQ 1€

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

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

01754

ME
MC,MD,CND

104

119
131

148

158
167
303
339
373
520
563
595
607
652
664

691
712
743
744
745
746
747
748

TRAPS .~
749

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

CMS REPLACEMENT HISTORY

+ %9 SKONETSKI 26-APR-1985 16:23:08 ~FIXED TYPO CAUSING ASSEMBLY ERRORS”
i 88 SKONETSKI 22-APR-1985 16:48:03 “TYPO ERROR IN VECTOR CHMAMGE CODE SOURCE FIXED*”
i 7 SKONETSKI 22-APR-1985 16:26:04 *ADDED CODE YO SEY VECTORS FOR PMR FAIL. ERRURS, AND EMT

;s o6 SKONETSKI 22-APR-1985 14:22: 35 “FIXED BRANCH ERROR IN EMD OF PASS ROUTINEi 5 SKONETSKI 22-APR-1935 08:28:54 “FIXED 8UG (AN OCTASC MACRO CALL MAS WRONG) AMD ADDED A
; o4 SKONETSKI 18-APR-1985 14:20:15
20:
“ADDED SOF TMARE SUITCH REG SUPPCRT, BUT UNTESTED*
3 o3 SPONETSKI 12-APR-1985 10:34:52 "FIXED PROBLEMS MITH SPURIOUS CRALFS”
i 42 SKOMETSKI 11-APR-1985 16:00:24 “AODED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTUARE SWI

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

CZDHNH-CO

MACRO VO4.00

27-JUN 85

13:04:20 PAGE

S€EQ 17

ME
LIST
MC,MD,CNOD
-NLIST
.HEADER t/1972,1985/,t/0H11 AUTO-ECHO TEST/,t/CZOHH-CO/

1STARTING PROCEDURE
1LOAD PROGRAM
:LOAD ADDRESS 000200

;PRESS START
:PROGRAM WILL TYPE DHi1 AUTO-ECHO TEST

;PROGRAM WILL TYPE “VECTOR ADDRESS-*
:TYPE IN THE ADDRESS UF THE RECEIVER INTERRUPT VECTOR
:FOR THE DHil1 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
:PRUGRAM WILL TYPE "CONTROL REGISTER ADDRESS-”
;TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER
;FOR THE CH1) 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 * CZDHH-CO *
;AND THEN RESUM TESTING
LTITLE
CZDhri-CO
-ENABLE ABS
-NLIST
MC,.MD,CND
.LISY
ME
.SYMBOLS

00000C

6 0C0000

;SWITCH REGISTER OPTIONS

000100
000040
000020
000010
000004
0000<
000001

:=1,HALY ON ERROR
:=1,L00P ON CURRENT TEST
1*1,INHIBIT ERROR TYPEOUT
i=1.INMIBIT ITERATIONS
1=1,ESCAPE TO NEXT TEST ON ERROR
:=1,L00P WITH CURRENT DATA

+RESTARY PROGRAM AT SELECTED TESY
;RESELECT VECTOR AND CONTROL REGISTER
;ADDRCSS AFTER PROGRAM RESTARY

SH15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
5H10=2000
SH(9=1000
SHO8=400
SW06+100
SHO05=40
SHO4 =20
SW03=10
SW02=4
SHC1=2
SHOO=1

L1l

100000
040000
020000
010000
004000
002000
01000

CZDHH-CO

MACRO V04.00

SEQ 18

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

;REGISTER DEFINITIONS
1GENERAL REGISTER

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

SP%6
PC=%7

;LOCATION EQUIVALENCIES

177776
015644

;SWR=177570
;LIGHYTS=177570

1 CONSOLE SWITCH REGISTER
;PDP-11/45 DISPLAY REGISTER
PS=177776
:PROCESSOR STATUS WORD
STACK=ENDCOD
+200
sSTART OF PROCESSOR STACK
;INSTRUCTION DEFINITIONS

005746
005726
010046
012600
024646
022626

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

PUSH2SP=24646

POP2SP=22626

JMACRO HLT
LENOM

1 000000

ENT
ARLT

8I715=100000
8IT714=40000
BIT13-20000
B8I712-=10000
BIT11=4000
81710=2000
8I709=1000
BIT08=400
BIT07=200
B8IT06=100
BIT05=40
BIT04=20
BIT03=10
B8IT02=4
BIT01=2
BIT00=1
.CAICH

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

&b
W

000007

RO=%0
R1s%1
Re=%2
R3=%3
R1=54
RS=%5

000000
000001
000002
000003
000004
000005

CZDHH-CO

MACRO V04.00

000000
000200

s TRAPCATCAER FOR ILLEGAL INTERRUPTS

.=0
.REPT 200
ENOR

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

0C0042
000044
000046
000050
000052

000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134
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
0v0000
000062
000000
000066
000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
000136
000000
000142
000000
000146

SEQ 19

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

1UNEXPECTED TPAP TO THIS LOCATION

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

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 FIMD CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
sUNEXPEC(ED TRAP TO THIS LOCATION
;EXAMINE STACKX TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STATK 10 FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK 7O FIND CAUSE
IUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
iUNEXPECTED 1RAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
iEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
UNEXPECTED TRAP TO THIS LOCATION
tEXANINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
yUNEXPECTED TRAP TC THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

HALT

;EXAMINE STACK TO FIND CAUSE

CZDHH-CO

MACRO V04.00

000146
000150
0001352
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204

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

000210

000212

000214

000216

000220

000222

0C0224

000226

000206

SEQ 20

27-JUN-85 13:04:20 PAGE 17-1
HALT
.2
HALT
.2
HALT
.42
HALT
.42
HALT
.+2
HALT
.2
HAL Y

;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TQO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE

HALT
.42

:EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION

.42

sUNEXPECTED TRAP TO THIS LOCATION

000000

HALT

;EXANINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

000226

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000232

000000

HALY

sEXAMINE STACK TO FIND CAUSE

000000

HALT

;EXAMINE STACK TO FIND CAUSE

000000

HALY

000000

HALT

000252

000000

HALTY

000256

000000

HALT

000000

HALT

000000

HALT

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000276

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000302

0C0000

HALT

000306

000000

HALT

000316

000000

HALT

000000

HALT

000212

000216

000222
000230

000232

000234

000236

000240

000242

000244

000246

000236

000242
000246

000250
000254
000260

000262

000252

000256
000262

000264

000266

000270

00027c

000266

000272
000274

000300
000304

000310
000312
000334
000320

000322
000324
0003256

000276
000302
000306

000312
000000
010316
000322

000326
000000

.42

.e2

.42

o2
.+2
.+2

;UNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sFXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

:EXAMINE STACK TO FIND CAUSE

iUNEXPECTED TRAP TO THIS LOCATION

tUNEXPECTED TRAP TO THIS LOCATION
sUNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK 7O FIND CAUSE

.*2

sUNEXPECTED TRAP TO THIS LOCATION

.02

1UNEXPECTED TRAP TO THIS LOCATION

.42

.+2
.+2

. *2
.*2
.*2

.42
HALT
.*2
.e2

.2
HALT

;EXAMINE STACK TO FIND CAUSE

tEXAMINE STACK TO FIND CAUSE

UNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

SUNEXPECTED TRAP TO THIS LOCATION

sEXAMINF. STACK TO FIND CAUSE

sUNEXPECTED TRAF TO THIS LOCATION

tEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO 1HIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION
jUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK YO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

tEXAMINE STACK TO FIND CAUSE

1UNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
IUNEXPECTED 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

CZDHH-CO
000330

000332

000334
000336
000340
000342
000344
000346
000350
000352
000354
000356
000360
000362
000364

MACRO V04.00
000332

000000

000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362
000000
000366

SEQ 21

27-JUN-85 13:04:20 PAGE 17-2
.42

1UNEXPECTED TRAP TO THIS LOCATION

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

sUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FYND CAUSE
tUNEXPECTED TRAP TO THIS LOCATION

HALT

sEXAMINE STACK TO FIND CAUSE

000366

00C000

HALT

000372

000000

HALT

000000

HALT

000000

HALT

0G0000

HALT

000000

HALTY

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000000

HALT

sEXAMINE STACK TO FIND CAUSE

000426

000000

HALT

tEXAMINE STACK TO FIND CAUSE

000432

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALT

000000

HALY

sEXAMINE STACK TO FINL CAUSE

000000

HALY

1EXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALTY

000000
000502
000000
00US06
000000

HALT
.42
HALT
.42
HALT

000370
000374

000376

000372

000376

C00400

000402

000404

000406

000410

CO0O0412

000414

000416

000402

0C0406
000412

000416

000420

000422
00042%

000430

000422
000426

000432

000434

000436

000440

000442

000436
000442
000444

000446

000450

000452

000446
000452
000454

000455

000460

000462

000464

000466

000456
000462
000466

000470

000472

000474

000476

000510

000512

000476
000500
0900502
000504
000506

.42

:EXAMINE STACK TO FINU CAUSE

tUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

.42

;UNEXPECTED TRAP TO THIS LOCATION

.+2
.42

.*2

.+2
.42
.2

.+2

.42

.42
.2

.42

.+2
.42
.+2

.42

;EXAMINE STACK TO FIND CAUSE

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

;UNEXPECTED TRAP TO THIS LOCATION

;sUNEXPECTED TRAP TO THIS LOCAT1ON
sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION
1UNEXPECTED TRAP TO THIS LOCATION

sUNEXPECTED TRAP TO THIS LOCATION

sEXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

1EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

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

sUNEXPECTED TRAP TO THIS LOCATION

CZDHH-CO
000512
000514
000516
000520
000522
000324
000526
000530
000532
000534
000536
000540
00054¢
000544
000546
000550
000552

000554
000556
000560
000562

000564
000566
00570
000572
000574
000576
000600

000602
000604
000606
000610
000612
000614
000616

000620

000622
000624
000626

000630
000632
000634
000636
000640
000642
000644
000646
000650
000652
000654
000656
000660
000662
000664
000666
000670
000672

MACRO VO4.00

000000
000516
000000
000522

000566
000000

HALT
.2
HALT
.42
HALT
Y]
HALT
Y]
HALT
.+2
HALT
YHALT
Y]
HALT
.42
HALT
.2
HALT
Y
HALT
.42
HALT

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
000C 00
000666
000000
000672
000000

HALTY
.42
HALT
YHALT
Y
HALT
.2
HALT
.02
HALT
.42
HALT
.42
HALT
Y
HALT
YHALT
.02
HALY
Y]
HALT
Y
HALT
.42
HALT
.42
HALT
.02
HALY
.2
HALT

000000

000526
000000
000532

000000
000536
000000
000542
000000
000546
000000
000552
000000
000556

000000
000562
000000
000572

SEQ 22

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

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

sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK TO FIND CAUSE
IUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION

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

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

CZOHH-CO
000674
000676
000700

000702

000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000730

000732
000734
000736
000740
000742
000744
000746
000750
0007352
000754
000756
000760
000762
000764
000766
000770
000772
000774
000776
1 001000

MACRO V04.00

SEQ 23

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

000676

.42

000000
000702
000000

HALT
Le2
HALT

000000

HALT

000000

HALT

000000
000722
000000

HALT
.42
HALT

000000

HALT

000706

.42

000712

000716

.42

000726

.42

000732
000000

000736
000000
000742
000000

Y]
HALT
.42
HALT
.42
HALT

000000

HALT

000746
000000
000752

L2
HALT
.42

000756
000000
000762

000000
000766
000000

.2
HALT
.42
HALT
YHALT

000000
000776
000000

HALT
.42
HALT

000772

.SETVEC

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

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

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

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

CZoMM-CO

000200

MACRO VO4.00

000200
000167

000600

SEQ 24

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

.+200

;STANDARD INTERRUPT VECTORS
JHP

START

;GO TO START OF PROGRAM

. TRPDEF

1 000204

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

000204

000204
000204

000204
000204
000204

000204

L XV R N7 1N

000204

104400
000001
104401
000002

104402
000003
104403
000004

104404
000005
104405
000006

104406
000007
104407
000010
104410
000011

TRPDEF

SCOPE, t/SCOPE LOOP AND ITERATION HANDLER/
$COPE-TRAP0Y
;SCOPE LOOP AND ITERATION HANDLER

TRPDEF

TYPE,t/TELETYPE OUTPUT ROUTINE/
TY?E;TRAPoY
;TELETYPE QUTPUT ROUTINE
YaYe

TRPDEF
TRPDEF

=Yel

OCTASC,t/0CTAL TO ASCII CONVERSION/
0C$A§C-TRAP0Y
;OCTAL TO ASCII CONVERSION
YsYo

INSTR, t/INPUT ASCII STRING/
$N$T§-TRAP'Y
;sINPUT ASCII STRING
=Y

TRPDEF

INSTER, t/STRING INPUT ERROR/
$N$T§R-TRAP0Y
;+STRING INPUT ERROR

TRPDEF

PARAM, +/CONVERT STRING TO OCTAL, CHECK LIMITS/
$A$AT-TRAP0Y
;:CONVERT STRING TO OCTAL,

aYe

CHECK LIMITS

sYe

TRPDEF

TRPDEF
TRPDEF

SAVOSP, t/SAVE RO-RS,
SAVOSPsTRAP.Y
Y=Y+l

PC/

RESOS, t/RESTORE RO-RS/
RE?O?‘TRAPOY
Y=Ye

sSAVE RO-R5, PC
;RESTORE RO-RS

SCOPEL,t/CHECK FOR FREEZE ON CURRENT DATA/
$C$P§1'TRAPOY
iCHECK FOR FREEZE ON CURRENT DATA
sYe

.MACRO
.ENDM
.START

CODEML
MOV
éggfifll

DHSSR, DHSLR
DHSLR

;SET UP ADDRESS OF SILO
sSTATUS REGISTER HIGH BYTE

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

CZ0HH CO

MACRO V04.00

SEQ 25

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

.=1000

001000

001072
001076
001102
001106
001114
001120
001122
001122
001130
001134
001134
001136
001140

012767
005067

001130
001154

005726
005726
012667
012667
104401
005767

001160

001001

001144

001122

176670

000176
177646

177650

177660

176642
176634
014660
012452

START:

MOV
MOV
MOV
MOV
MOV
MoV
MoV
MOV
MOV
CLR

#340,PS
#STACK,SP
924 ,R2
SPFAIL,(R2)+

sLOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK
s POINT TO VECTOR AREA
1SET UP POWER FAIL TRAP
sSERVICE AT LEVEL 7
sERROR HANOLER
sSERVICE AT LEVEL 7
sGENERAL HANDLER OISPATCH SERVICE
sSERVICE AT LEVEL 7
sCLEAR TEST START FLAG
sCLEAR PASS COUNT
sCLEAR ERROR COUNT
1CLEAR ERROR FLAG
;CLEAR LAST ERROR PC
; PUSH TRAP VECTOR

2%:

IF NB

CLR
CLR
CLR
CLR
MOV
MOV
MOV
187
BR
MOV
CLR

14:
24:

6, -(SP)
401,

GSHR
24

€176, SHR
LIGHTS

1ST
(SP).
13
(SP)+
MOV
(SP)+, 6
MoV
(SP)+, 4
TYPE
JMTITLE
TST
INIFLG
<DHRVEC>
BNE
VECL

IFF

.ENDC
IF NB
SIZE:

#ERRORS, (R2)+
9340, (R2).
#TRPSRY, (R2)+
9340, (R2)
STFLG
PASCNT
ERRCNT
ERRFLG
ERRFLG

BEGIN

+ SET UP TRAP VECTOR
1 TEST SWITCH REGISTER ADDRESS
+ IF SUCCESSFUL, LEAVE IT ALONE
3 POINT TO SOFT SWITCH DHSCR
3 O MEANS WE ARE NOT GOING TO USE

: CLEAN UP STACK

sTYPE TITLE MESSAGE
;CHECK INITIALIZATION FLAG

1IF NOT O, CHECK SWITCHES
$FOR REINITIALIZATION
+IF NOT O, START TEST

CLR
MOV
TS7

BR
MOV
SUB
MoV

024,004

.
(RO)
14
RO, HCORE

#2 ,HCORE
46,004

G NNNNN

i SWITCH DHSCR ADDRESS
s LIGHTS

1SET UP TIME OUT RETURN
sWILL TRAP WHEN NO MEMORY
1LOCATION RESPONDED, CONTINUE
3RO CONTAINS ADORESS OF
iNON EXISTANT MEMORY
tRESTORE TRAPCATCHER

bhb‘wg&b..b.b

001066

012350
000340
012562
000340
012336
012512
012510
012500
012474
176702
176700

176764

177570
177570

e we

001052
001036
001062

000340
015644
000024
014510
000340

.WORD
.WORD

[Coe e v we

012767
012706
012702
012722
012722
012722
012722
012722
012712
005067
005067
003067
005067
005067
016746
016746
012767
005777
000405

SWR:
LIGHTS:

001004
001012
001016
001022
001026
001032
001036
001042
001046

177570

e oe 0w

001000
001002

LY
X

;PROGRAM INITIALIZATION
sLOCK OU T INTERRUPTS
;SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR
;CLEAR PROGRAM FLAGS AND COUNTS
sTYPE TI TLE MESSAGE
IIF NB <>,
sDETERMINE MEMORY SIZE
JIIF N8 <>,
;:SET UP TRACE TRAP RETURN

MACRO Y04.00

-ENDC
JIF N8B
TRACER:

1%:
.ENOC
.IF NB

001162

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

001232
001234
001236
001240
001242

001243
001244
001246
001230
001252
001254
001256
001260
001261

IFB8

000404

.IFF

032777
001445

000001

012701
012702
012703
010211
003012
060301
060302
020127
001371
104403
014712
104405
000300
000770
013562
003
004
104403
014734
104405

000300
000302
000004

177606

ENDC
VECL:
VEZ2:

14:

.BYTE
BYTE

000000

177776
013540
007

BYTE
BYTE
.ENDC
JF NB

010

016767
005267

012270
012264

001274
001300
001302

005767
001002
005167

012332
012324

o
MOV
SXT

012270

.ENDC

#14,9010
RO

Hov
B8R
MoV
MOV
MoV

SRTT,TRTRET
24
MRTI,TRTRET
412,9010
S#TRTRET, 9016

iSET UP ILLEGAL INSTRUCTION TRAP RETURN
;00 11/40, 11/45 INSTRUCTION
111/40,.45 RTT RETURN FROM TRACE TRAP
11105,10,20 RTI RETURN FROM TRACE TRAP
sRESTROE TRAPCATCHER
sSET UP TRACE TRAP VECTOR

o
BR

VEC2

TST
BEQ

INIFLG
VEC2

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

#5600, 8SWR

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

8IT

BEQ

BEGIN

MoV
MOV
MoV
MoV
CLR
ADD
ADD

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

ce
BNE

001000

001262
001262
001270

SEQ 26

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

INSTR
MVECTOR
PARANM
300
770
DHRVEC
3
4
INSTR
MREGAD
:MAH

R1,01000
14

1777176
DMSCR
7
10
<)
CoDENL

MOV
INC
ST

BNE
con

sRESTORE TRAPCATCHER
1IN FLOATING VECTOR AREA

s INPUT ADDRESS OF DEVICE VECTOR
sMESSAGE “VECTOR ADORESS-*
sCONVERT STRING TO OCTAL
sLOM LYIMIT
sHIGH LINIT
;s 3
sLOCATIONS TO 8E FILLED
sNUMBER OF LOCATIONS
sLSB MASK
1 INPUT ADDRESS OF DEVICE CSR
1MESSAGE “CONTROL REGISTER ADDRESS-*
sCONVERT STRING TO OCTAL
LOM LINIT
sHIGH LINIY
;LOCATIONS TO BE FILLED
INUMBER OF LOCATIONS
sLSB MASK

DHSSR, DHSLR
OMSLR

1SET UP ADDRESS OF SILO
1STATUS REGISTER MIGH BYTE

INIFLG

sIF INITIALIZATION FLAG
11IS CLEARED
sSET IT

8EGIN
INIFLG

ah
&

CZ0OHH CO

sPROGRAM START
sCHECK FOR PROGRAM START AT SELECTED ADDRESS

s 3

CZDHN-CO

001306
001314
001320
001326
001330
001332
001334
001336

001340

001342
0C1344
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

27-JUN-85 13:04:20 PAGE

176462

BEGIN:

177452

.BYTE
.BYTE
001400
012252
012244
015117
012200

012222

1%:

23%:
3s:

MOV
MOV
BIT
B8EQ
INSTR
MTSTPC
PARAM
0

17500
RETRN
1
1
B8R
MoV
18T
BNE
Con
TYPE

SEQ 27

19-2

4340,PS
#STACK,SP
:SUOi.OSHR
$

24
#T1,RETRN
STFLG

;LOCK OUT INTERRUPTS
tSET UP PROCESSOR STACK
1IF 5W01-1
1GET PC FOR PROGRAM START
1GET PC
sMESSAGE “TEST PC”
$CONVERT STRING TO OCTAL

sNORMAL START, TEST 1}

sIF LOOPING, BYPASS TYPEQUT

:TYPE "R~ TO INDICATE START
sSTART TESTING

MACRO V04.00

27-JUN-85

SEQ 28

13:04:20 PAGE 20

.MACRO

AUTO1

XLINE,XBIT,K

:ENABLE AUTO ECHO ON LINE 'XLINE'

s TRANSMIT ONE CHARACTER ON LINE

OB IOV

CZ0MH -CO

‘XLINE’

+AT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

iAFTER 64 CHARACTERS HAVE BEEN RECEIVED,

DISABLE AUTO ECHO,

sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
TS

\XN,100,4$

MOV
JSR

#B8IT11,8DHSCR
oC,.CLRALL

MoV

&' XLINE' ,8DHSCR
#-1,80H8C
OTWRD' K’ ,QDHBA
#100,R0
R1

MOV
MOV
MoV
CLR
Hov

2%:

34:

[I
K

.ENDN

MOV
TST8
8pPL
INC
MoV

Cne
BEQ
MOV
CLR
Wy
BR
DEC
867
ol
8IC
BR
SCOPE
ATOL

#133503, BOHLPR

&' XBIT' ,QDHBAR
SOHSCR
2%

R1
SDHNRC R4
R4

TURD K’

3
THRD'X* RS
SDMLPR
0
44
RO
2%
43

gooooo. SDHLPR

sMASTER CLEAR INTERFACE

sCLEAR ALL BYTE COUNT AN
18US ADDRESS REGISTERS
+SELECT LINE ' XLINE'
1SET BYTE COUNT TO 1
1SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
iSET UP TO RECEIVE 64 CHARACTERS
;COUNT OF CHARACTERS RECEIVED
1SET UP SPEED FOR 9600 BAUD
;8 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE ' XLINE:
sSEY BAR BIT FOR LINE ‘KiMAIT FOR CHARACTER TO
;:BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT

sREAD CHARACTER

;IS CHARACTER CORRECT

s (RS =EXPECTED CHARACTER

s1SHUT OFF AUTO ECHO

sCHARACTER ECHOED INCORRECTLY
iRESTARY TESY
sIF 64 CHARACTERS HAVE NOT
:BEEN RECEIVED, CONTINUE
1SHUT OFF AUTO-ECHO
:GET 1 MORE CHARACTER
;CHECK FOR ITERATIONS, LOOP

VROV
S WN I

CZOHKH-CO

HMACRO V04.00

MACRO

AUTO2

XLINE,XBIT,K

t TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE ‘K’
s TRANSMIT 1 CHARACTER ON LINE 'K' WITH AUTQO 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
TS \XN,10,5¢
MOV
JSR

1¢:

2%:

3s:

SEQ 29

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

MOV
MOV

' K' ,8D0HSCR
#TURD'K' ,8DHBA

MOV
MOV
8IC
MoV
CLR
MoV
8PL
MoV
SWA8
81C

4-1,80HBC
#133503, SDMLPR

oV
ASL
o
BEQ
o
BEQ
MOV
HY
BR
INCS
BNE
8IC
757

SNE
MOV
81C
1578
BNE

B8R
4

Ss:
.ENDM

#BIT11,8DHSCR
PC,SETALL

INC
e
BEQ
MOV
HT
SCOPE

AUTD2

¢ XBIT' ,LINACT

&-1,80HBAR
RO

;MASTER CLEAR INTERFACE
:SET UP ALL LINES TO TRANSMIT

1400 (OCTAL) CHARACTERS

sSELECT LINE XLINE FOR TESTING
;CHARACTER TO BE TRANSMITTED

;ON LINE XLINE IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE XLINE
;SET AUTU ECHO FOR LINE XLINE

;;CLEAR LINE ACTIVE BIT

:SET BAR BITS FOR ALL LINES
sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

SOMNRC R4

:GET A CHARACTER FROM SILO

sIF NOT VALID DATA,

:;-RS
#177760.R3

R3.R2
R2
RS, 9K
4%

?W(R?).R‘
$

;CLEAR STATUS BITS

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

RBUF(R2).RS
i

RBUF (R2)
13

TRY AGAIN

EXTRACT LINE NUMBER FORM CHARACTER

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

;UPDATE EXPECTED RECEIVED DATA
;CONTINUE IF NOT DONE

LINBIT(R2) ,LINACY
LINACY

;CLEAR ACTIVE BITY
:IF ALL LINES ARE DONE

X' SDNSCR

;SELECY LINE XLINE

4100000, BOHLPR

SDHSLR
ét
$

g‘.flflD'K‘
$
THRD X! RS
?

EXIT

sCLEAR AUTO ECHO FOR LINE XLINE

;GET REST OF CHARACTERS

:AND CHECX

tUPDATE ECHOED CHARACTER COUNT

;CHECK ECHOED DATA

J(RS)ISEXPECTED ECHOED DATA
;ECHOED DATA ERROR

sCHECK FOR ITERATIONS, LOOP

TemeatmTl

MACRO VO4.00

momhETARATea,

SEQ 30

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

.MACRO

SSETALL

1SET BYTE COUNT FOR ALL LINES TO 400
sSET BUS ADDRESS FOR ALL LINES TO TBUF
1CLEAR EXPECTED CHARACTER BUFFCRS
+SET LINE ACTIVE BITS FOR ALL L.LNES
SETALL :

MOV

#20.R0

CLR

"oV

4200,R2

MOV
MOV
MOV
MOV
CLRB

01.R3
4TBUF , GDHBA
#-400,80H8C
€31403,80HLPR
RBUF(RL)

MOVe

R2 .RBUF(R3)

[

QCO®LPVEWN
P

CZOHN-CO

1s:

INC
INC

SDHSCR
R2

ADD

#22.R3

ADD
Oce

BNE
MOV

2./

14
€-1,LINACT

.ENDM

RTS
PC
SSETALL

.MACRO

CCLRALL

sSET UP TO LOAD 16
sBYTE COUNT AND BUS ADDRESS
sHEMORY LOCATIONS
sSET UP TO GENERATE EXPECTED
;RECEIVED CHARACTER BUFFER
tWILL BE HWIGH BYTE
i0F EXPECTED RECEIVED CHARACTER
sOFFSET FOR HTGH BYTE
sLOAD BUS ADDRESS
sLOAD BYTE COUNT
iSET LINE SPEED TO 4800 BAUD
sRECEIVED CHARACTER
sLOAD HIGH BYTE
;AOVANCE LINE NUMBFER TG NEXT LINE
sUPDATE POINTERS

sCONTINUE IF NOT OONME
:SET ACTIVE FLAGS FOR AL
LINES
sRETURN TO CALLIMG RO.TIN

sCLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS
CLRALL:
1s:

.ENDM

MOV
CLR
CLR
INC
pEC
BNE
RTS

CCLRALL

#20,R0
SDHBA
S0MBC
SCHSCR
RO
1

iSET UP TO CLEAR i6
sCLEAR BUS ADORLSS

sCLEAR BYTE COUNTY
:ANVANCE LINE NUMBER

:CONTIMUE IF NGT DONE

sRETURN TO CALLING ROUTINE

CZDHNH-CO

MACRO VO4.00

000020
000000
000020
000000
000001
000000
000020

O~NONaWNn

SEQ 31

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

XLINE=LINE
XBIT=BITX
=KX
LINE=0O
B8ITX=1
KX=0
.REPT
20

AUT01
\LINE,\BITX,\KX
NLIST
LINE=_INE+}
BITX=BITX+BITX
KX=KXe
1
LIST

.ENDR

001400

AUTO1

\LINE,\BITX,\KX

;ENABLE AUTO ECHO ON LINE O
:TRANSMIT ONE CHARACTER ON LINE O
;AT 9600 BAUD, 8 BITS.
;:RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
:AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.

$EXE.TLY ONE MORE CHARACTER SHOULD BE RECEIVED.
0C1400
001400
001406
001414

012767
012767
012767

000340
000100
001554

176370
012172
012160

TS \XN,100.4¢

Ti:

If @

MOV
Moy
MOV

ENDC

MoV

#.FREEZL

sSET UP TO LOOP MITH DATA

MoV
JSR

MBIT11,00HSCR
PC.CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL SYTE COUNT AN

Moy
MOV
MoV
Mmov

€0, 80HSCR
#-1,80HBC
STURDO , S0MBA
#100,.R0O

"oy

#133503, SDHLPR

001422
001430
001434

001442

001450
001456
001462
001464

001472
001500
011504
701506
001510
001514
001520
001522
001526
001532
001532
001534
001536
001540
001542

000002
012777
004767

004000
011744

012110

012777
012777
012777
012700

000000
177777
014310
000100

012076
012100
012070

012777

133503

012052

012777

000001

012052

005001

105777
100375
005201
017704
020467
001406
016705

005077

104000
0C0407
005300
0C3357
100404

012034

4340,PS
€100, JCOUNT
TM8 ESCAPE

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

XN=XN+1
1s:

CLR

2%:

012026
012570
012562

MoV

$SET UP TO RECEIVE 64 CHARACTERS
{COUNT OF CHARACTERS RECEIVED
3SET UP SPEED FOR 9600 BAUD
;8 BITS PER CHARACTER,
sAUTO ECHD ENABLED ON LINE O
+SET BAR BIT FOR LINE ©
sWAIT FOR CHARACTER TO

SOHSCR
i}
R1
GDHNRC R4
R4, THRDO
34

CLR

SOHLPR

1SHUT OFF AUTO ECHO

ENT
BR
DEC
BGT
BMI

]
44
RO
24
43

1RESTART TEST
1IF 64 CHARACTERS HAVE NOT
:BEEN RECEIVED, CONTINUE

3s;

#1 ,80HBAR

1BUS ADDRESS REGISTERS
sSELECT LINE O
:SEY BYTE COUNT TO 1
1SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED

1518
ePL
INC
Moy
cre
BEQ
MOV

012012

THRDO,RS

; 3

18€ RECEIVED

sUPDATE RECEIVED CHARACTER COUNT
1READ CHARACTER
1IS CHARACTER CORRECT
1(RS)=EXPECTED CHARACTER
1CHARACTER ECHOED INCORRECTLY

——

CZDHH-CO

001544
001552
001554

001556

MACRO VO4.00

042777

000752
104400
000001
000002
000001

100000

it e

—

SEQ 32

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

011772

8IC

BR
4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX =KX+ 1
AUTOL

2100001, 8DHLPR

:SHUT OFF AUTO-ECHO

iGET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, L0OOP

\LINE,\BITX,\KX

;ENABLE AUTO ECHO ON LINE 1
s TRANSMIT ONE CHARACTER ON LINE 1
;AT 9600 BAUD, 8 BITS,
sRECEIVE AND VERIFY CHAPACTERS UNTIL 64 HAVE BEEN RECEIVED.

;AFTER 64 CHARACTERS HAVE BEEN RECEIVED,

DISABLE AUTO ECHO.

sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
001556
001556
001564
001572

012767
012767
012767

000340
000100
001732

176212
9012014
012002

TS \XN,100,4%

T2:

IF N8

Mov
MoV
MOV

ENDC

MoV

®,FREE2]

:SET UP TO LOOP WITH DATA

MOV
J5R

#BIT11,80H5CR
PC.CLRALL

sMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN

MoV
MoV
nov
MoV

#1,80HSCR
#-1,8048C
#TURDL , GOHBA
#100.R0O

0C1600
001606
001612
001620
001626
001634
001640
001642

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

001734

000003
012777
004767

(04000
011566

011732

012777
012777
012777
012700

000001
177777
014312
000100

133503

011674

000002
011656

011674

005001
012777

012777
105777
100375
005201
017704
020467
001406
016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000002
000004
000002

011650
012414
01240¢€
011634

100000

011614

XN=XN+1
1¢:

CLR
Mnov

nov
1ST8
8PL
INC
Hov
ce
BEQ
MOV
CLR
HT
EnT
BR
34:
DEC
867
gnI
BIC
B8R
4%
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX =KX+ 1

2%:

AUTOL

#340.PS
€100, ICOUNT
43 ESCAPE

;OTISABLE ALL INTERRUPTS
;SET UP FOR 100 ITERATIONS
;SET UP TO ESCAPE TO NEXT TEST

Rl
9133503, SDHLPR

$2 ,00HBAR
SOHSCR
24
R1
GDHMRC R4
R4, TURDL
3¢

TURD1 RS
SOHLPR
0
0
44
RO
24
44
4100000, SOHLPR
24

\LINE,\BITX,\KX

iBUS ADDRESS REGISTERS
sSELECT LINE §

: 3

sSET BYTE COUNT 70 1
:SET UP ADDRE:; OF CHARACTER TO 3E TRANSMITTED
;SET UP TG RECEIVE 64 CHARACTERS
1COUNT OF CHARACTERS RECEIVID
iSET UP SPEED FOR 9600 BAUD
;8 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE §
sSET BAR BIT FOR LINE 1

iMAIT FOR CHARACTER YO
:8E RECEIVED
;UPDATE RECEIVED CHARACTER COUNT
;READ CHARACTER
+1IS CHARACTER CORRECT
s (RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
:CHARACTER ECHOED INCORRECTLY

tRESTARY TESY
sIF 64 CHARACTERS HAVE NOT
1BEEN RECEIVED, CONTINUE
.
1SHUT OFF AUTO-ECHO
tGET 1 HORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

CZ0HH-CO

MACRO VO4.00 27-JUN-85 13.04:20 PAGE 23-2

Q33

;

$ENABLE AUTO ECHO ON LINE 2
1 TRANSMIT ONE CHARACTER ON LINE 2
:AT 9600 BAUD, 8 BITS.
tRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

1AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
$EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
001734
001734
001742
001750

012767
012767
012767

000340
000100
002110

176034
011636
011624

TS \XN,100,.49
T713:
MoV
MOV
IF N8
MOV
.

ENOC

001756

000004

012777

004000

004767

011410

001770
001776
002004
002012
002016
0C2020

012777
012777
012777
012700
005001
012777

000002
177777
014314
000100

0115472
011544
011534

133503

011516

002050
002054
002056
002062
002066
002066
002070

002072
002074

002076
002100
002106
002110

002112

012777
105777
100375
005201
017704

020467
001406
016705
005077

000004
011500

011516

1s:

24:

011472
012240
012232
011456

104000
000407

005300
003357

100404
042777
000752
104400
0060C3
000010
000003

3%:
100C00

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

¢ ,FREEZL

sSET UP TO LOOP WITH DATA

XN=XN+1
011554

001764

002026
002034
002040
002042
002044

MoV

011436

MOV

#8IT11,8DHSCR

sMASTER CLEAR INTERFACE

JSR

PC,.CLRALL

;CLEAR ALL BYTE COUNT AN

MOV
MOV

#2,8DHSCR
4-1,80H8C

sSELECT LINE 2
+SET BYTE COUNT T0 1

MOV
MoV
CLR
MOV

#TWRD2 , SDHBA
#100,R0
R1
#133503, SDHLPR

MOV
1578
BPL
INC
MoV

cup
BEQ
MOV
CLR
WY
ENT
8R

ODEC
B8GY

84, QDHBAR
S0HSCR
24
R1
SOHNRC R4
R4, TWRD2
3¢
TWRD2, RS
POMLPR
0
0
44

RO
24

BHI
44
BIC
#160000, SOHL¥R
BR
23
4%
SCOPE
LINE=LINE
.}
BITX=BITX+BITX
KX=KX¢1
AUTO1
A\LINE,\BITX,\KX

;BUS ADDRESS REGISTERS

+SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
+SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
sSET UP SPEED FOR 9600 BAUL

18 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 2

;SET BAR BIT FOR LINE 2
sWAIT FOR CHARACTER TO
sBE RECEIVED
iUPDATE RECEIVED CHARACTER COUNT
;RERD CHARACTER

1IS CHARACTER CORRECT

1 (RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY
sRESTART TEST

;JF 64 CHARACTERS HAVE NOT
;BEEN RECEIVED, CONTINUE
:SHUT OFF AUTO-ECHO
1GET 1 MWIRE CHARACTER
;CHECK FOR ITERATIONS. LOOP

;ENABLE AUTO ECHO ON LINE 3
s TRANSMIT ONE CHARACTER ON LINE 3

:AT 9600 BAUD,

8 BITS.

;RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
;AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
;EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

002112

TS \XN,100,4%

had

CZDHH-CO
002112
002120
002126

MACRO VO4.00

012767
012767
012767

002134
002142

000005
012777
004767

002146
002154
002162
002170
002174
002176

002204
002212
002216
0N2220
002222
0C2226
002232
002234
002240
002244
002244
00224¢€
002250
002252
002254
002256
002264
002266

002270

000340
000100
002266

TR AREETIR RS

175656
011460
011446

012777
012777
012777
012700
005001
012777

000003
177777
014316
000100

012777
105777

020467
001406
016705
005077

JIF B

XN=XN+1

13:

MOV
MOV
MOV
o
MOV

CUSTLRetEs

BUBASTIR

MOV

SEQ 34

#BIT11,80HSCR

;MASTER CLEAR INTERFACE
1CLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
1SELECT LINE 3
;SET BYTE COUNT TQ 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,
sAUTQO ECHO ENABLED ON LINE 3
;SET BAR BIT FOR LINE 3

43 ,8DHSCR
0-1,80HBC
¢TWRD3, 8DHBA
9100,R0

133503

011340

MOV

000010
011322

011340

CLR

MOV

410, BDHBAR

aPL
INC

24
R1

R4, TWRD3

18E RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
;IS CHARACTER CORRECT

1(R5)=EXPECTED CHARACTER
;SHUT OFF AUTO ECHO
;CHARACTER ECHOED INCORRECTLY

BR
DEC
86T

44
RO

MOV

011314
012064

BEQ
MOV
CLR

012056
011300

ENTY

34:

003357

Ml
8IC

011260
4%

SCOPE

€133503, 8DHLPR

SDHSCR

GOHNRC
R4

3
1MRDS,RS
SOHLPR

'1]
4100000, SDMLPR

LINE=LINE+}
BITX=BITX+BITX

KX=KX+1

ATOL

i 3

sMAIT FOR CHARACTER 70

;RESTARY TEST
1IF 64 CHARACTERS HAVE NOY
iBEEN RECEIVED, CONTINUE
iSHUT OFF AUTO-ECHO

iGET 1 MORE CHARACTER

:CHECK FOR ITERATIONS, LOOP

\LINE, \BITX, \KX

sENABLE AUTO ECHO ON LINE &
s TRANSMIT ONE CHARACTER ON LINE 4
AT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

sAFTER 64 CHARACTERS HAVE BEEM RECEIVED, DISABLE AUTO ECHO.
EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
002270
002270
002276
002304

002312

012767
012767
012767

000006
012777

000340
000100
00444

004000

175500
011302
011270

011220

TS \XN,100,.4%

15:

IFNB
.ENDC
XN=XN+1

MoV

4340,PS

€100, JICOUNT
M s ESCAPE

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

MoV

4 ,FREEZY

iSET UP TQ LOOP MITH DATA

MOV

#B1T11,90HSCR

tMASTER CLEAR INTERFACE

MOV
MoV
o

1SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

TST8

#,FREEZ21

011364
011366
011356

2%:

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

PC,CLRALL

100000

SRS

0340,PS
9100, ICOUNT
44 ,ESCAPE

JSR

104009
000407
005300
100404
042777
000752
104400
000004
000020
000004

T4:

.ENDC

011376

005201
017704

TEITERL

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

004000
011232

100375

i 3

PR A
RART

CZDHH-CO

MACRO V04.00

004767

011054

002324
002332
002340
002346
002352
002354

012777
012777
012777
012700
005001
012777

000004
1777717
014320
000100

011210
011200

133503

011162

002362
002370
002374

012777
105777

000020
011144

011162

002400
002404

002410
002412
002416
002422
002422
002424
002426
0C2430
002432
002434
002442
002444

002446

100375
005201
017704

020467
001406
016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000005
000040
000005

1%:

011206

2%:

011136
011710
011702
011122

JSR

PC,CLRALL

MOV
MOV
MOV

#4 ,80HSCR
¢-1,80H8C
4TWRDA
, 8DHBA

MOV
CLR
MOV

#100,.R0O
R1
9133503, 8OHLPR

HOV
1578
BPL
INC
MOV
CHP
BEQ
MOV

920, B0HBAR
SOHSCR
24
R1
SOHNRC
, R4
R4, TWRDA
33
TWRD4 RS

HLT
30
BR
DEC

0
0
44
RO

8MI
8IC
8R

44
#100000, SOHLPR
24

CLR

100000

SEQ 35

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

002320

002376

011102
4

B8GTY

SCOPE

SOHLPR

LINE=LINE+1
BITX=BITX.BITX

iCLEAR ALL BYTE COUNT AN
;BUS ADDRESS REGISTERS
;SELECT LINE 4
1SET BYTE COUNT T0 1
1SET UP ADDRESS OF CHARACTER TQ BE TRANSMITTED
sSET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
sSET UP SPEED FOR 9600 8AUD
18 BITS PER CHARACTER,
sAUTO ECHO ENABLED ON LINE 4
;SET BAR BIT FOR LINE 4
sWAIT FOR CHARACTER YO
:8E RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
;IS CHARACTER CORRECT

;(RS)=EXPECTED CHARACTER
iSHUT OFF AUTC ECHMO
i CHARACTER ECHOED INCORRECTLY
$RESTARY TEST

:IF 64 CHARACTERS HAVE NOT
,BEEN RECEIVED, CONTINUE

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

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

sENABLE AUTO ECHO ON LINE S
s TRANSMIT ONE CHARACTER ON LINE S
;AT 9600 BAUD, & BITS,
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
:AFTER 64 CHARACTERS HAVE BIEN RECEIVED, DISAB.E AUTC ECHO.
tEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
002446
002446
002454
002462

012767
012767
012767

002470
002476

000007
012777
004767

002502
002510
002516
002524
002530
002532

012777
012777
012777
012700
005001
012777

000340
000100
002622

175322
011124
011112

004000
010676

011042

000065
17
014322
000100

011030
011032
011022

133503

011004

TS \XN,100,4:
T6:
MOV
MoV

IF N8
.ENDC
XN=XN+1

1%:

MoV
o
MoV

MOV

4340,.PS
4100, ICOUNY
M4 ,ESCAPE

sOISABLE ALL INTERRUPTS

¢, FREEZL

;SET UP TO LOOP MITH DATA

BIT11,80H5CR

JSR

PC.CLRALL

MoV

5, 80HSCR

MOV
nov
CLR
MOV

#THROS
, SOHBA
#100,.RO
R1
€133503, SOHLPR

MoV

¢-1,80M8C

;SET UP FOR 100 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

sMASTER CLEAR INTERFACE

:CLEAR ALL BYTE COUNT AN
18US ADORESS REGISTERS
;SELECT LINE S
1SET BYTE COUNT TO
:SET UP ADDRESS OF CH'ARACTER TO BE TRANSMITTED
;SET UP TO RECEIVE 64 CHARACTERS
sCOUNT OF CHARACTERS RECEIVED
1SET UP SPEED FOR 9600 8AUD

—>

CZDHM-CO

002540
002546
002552
002554
002556
002562
002566
002570
002574
002600
002600
002602
002604
002606
002610
0602612
002620
002622

0C2624

MACRO VO4.00

012777
105777
100375
005201
017704
020467
001406
016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000006
000100
000006

000040
010766

A A—

SEQ 36

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

011004

2%:

010760
011534

011526
010744

MOV
1878
8PL

INC
MOV
CMP
BEQ

CLR
HLY

SOHLPR
0

s(RS)=EXPECTED CHARACTER
;SHUT OFF AUTO ECHO
+CHARACTER ECHOED INCORRECTLY

sRESTART TEST
iIF 64 CHARACTERS HAVE NOT
;BEEN RECEIVED, CONTINUE

MOV

010724

B8R
3s:
DEC
8GT
8MI
8iC
BR
4s:
SCOPE
LINE=LINE+L
BITX=BITX.BITX

KX=KX+
1

AUTO1

;8 BITS PER CHARACTER,
iAUTO ECHO ENABLED ON LINE S
;:SET BAR BIT FOR LINE S

940, BOHBAR
8DHSCR
24
R1
S0HNRC,R4
R4, TWRDS
3

EMT

100000

TWRDS,
RS

0
43
RO
44

glOOOOO.COHLPR
$

iWAIT FOR CHARACTER TO
:8E RECEIVED
;UPDATE RECEIVED CHARACTER COUNT
;READ CHARACTER
+IS CHARACTER CORRECY

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

\LINE, \BITX,\KX

;ENABLE AUTO ECHO ON LINE 6
: TRANSHIT ONE CHARACTER ON LINE 6
;AT 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 CHARACYIER SHOULD BE RECEIVED.
002624
002624
002632
002640

002646
002654

002660
002666
002674
002702
002706
002710

002716
002724
002730
002732
002734
002740

012767
012767
012767

000010
012777
004767

000340
000100
003000

175144
010746
010734

004000
010520

010664

000006
1777717
014324
000100

010652
010654
010644

012777

133503

010626

012777
105777
100375
005201
017704
020467

000100
010610

012777
012777
012777
012700
005001

010602
011360

010626

TS \XN,100,4%
17:
MoV
MoV
MOV
IFNB

.ENDC
XN=XN+1
1¢:

2s:

€340,PS
€100, ICOUNT
43,7 SCAPE

1SEYT UP FOR 100 ITERATIONS

MoV

¢, FREEZ1

1SET UP TO LOOP MITH DATA

"ov
JSR

BIT11,8DHSCR
PC.CLRALL

iMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNY AN

MOV
MoV
Mov
MOV
CLR
Mov

6, 0HSCR

MOV
1AL
8PL
INC
MOV
CHP

#TWRDE
, BDHBA
#100.R0
R1
#133503, 8OHLPR
100, SDHBAR

SDHSCR

29
R1

SOHNRC ,R4

R4, TWRDG

;DISABLE ALL INTERRUPTS

:SET UP TQ ESCAPE TO NEXT TEST

;BUS ADDRESS REGISTERS
;SELECY LINE 6

: 3

sSET BYTE COUNT TO 1
1SET UP ADORESS OF CHARACTER TO BE TRANSMITTED
:SEY UP TO RECEIVE 64 CHARACTERS
:COUNT OF CHMARACTERS RECEIVED

:SET UP SPEED FOR 9600 BAUD

18 BITS PEP CMARACTER,
sAUTO ECHO ENABLED ON LINE 6
sSET BAR BIT FOR LINE 6
sWAIT FOR CHARACTER TO

:BE RECEIVED
tUPDATE RECEIVED CHARACTER COUNT
sREAD CHARACTER
1IS CHARACTER CORRECT

wonn

CZDHH-CO

002744
002746
002752
002756
00756
002760
002762
002764
002766
002770
002776
003000

003002

MACRO V04.00

001406
016705
005077
104000
000407
005300
003357
100404
042777
000752
104400
000007
000200
000007

s
o

BEQ
MOV

CLR

010546

BR
OEC

43
RO

B8GT

BMI
8IC
BR
43 :
SCOPE
LINE=LINE+1
BITX=BITX+BITX

KX =KX+ 1

AUTO1

S0HLPR

HLTY

EMT

33
TWRO6,RS

43
2100000, 8OHLPR
24

[PR—

SEQ 37

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

011352
010566

100000

Awmins

:(RS)=EXPECTED CHARACTER

sSHUT OFF AUTO ECHO
1CHARACTER ECHOED INCORRECTLY

;RESTART TEST
1IF 64 CHARACTERS HAVE NOT
;BEEN RECEIVED, CONTINUE
1SHUT OFF AUTO-ECHO
sGET 1 MORE CHARACTER
sCHECK FOR I1ERATIONS, LOOP

\LINE, \BITX, \KX

;ENABLE 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 ECHO.
$EXACTLY ONE MORE CHARACTER SHOULD B8E RECEIVED.
003002
003002
003010
003016

003024
003032

003036
003044
003052
003064
003066

003074
003102
003106
003110
003112
003116
003122
003124
003130
003134
003134
003136
003140
003142

012767
012767
012767

000011
012777
004767

000340
000100
003156

174766
010570
010556

004000
010342

010506

012777
012777
012777
012700
005001
012777

000007
1777177
014326
000100

010474
010476

133503

010450

L2777
105777
100375
005201
017704
020467
001406
016705
005077

000200
010432

010450

104000
000407
005300
003357

TS \XN,100.44
T10:
MOV
nov
JFNB

.ENDC
XN=XN+1

1s:

010466

MOV

#340,PS
€100, JCOUNT
44, ESCAPE

sDISABLE ALL INTERRUPTS
sSET UP FOR 100 ITERATIONS

nov

®,FREE2L

+SET UP TO LOOP WITH DATA

MoV
JSR

BIT11.00HSCR
PC.CLRALL

1HASTER CLEAR INTERFACE
1CLEAR ALL BYTE COUNT AN

MoV
Moy
MoV
nov

47, 80MSCR

+SELECT LINE 7
;SET BYTE COUNT TO 1
15EY UP ADDRESS OF CHARACTER YO BE TRANSMITTED
iSET UP TO RECEIVE 64 CHARACTERS
1COUNT OF CHARACTERS RECEIVED
;SET UP SPEED FOR 9600 8AUD
18 BITS PER CHARACTER,

CLR
HOV

24:

010424
011204
011176
010410

3¢

MoV
15718
8PL
INC
MOY
o

8EQ
L
CLR
HY
ENY
B8R
DEC
8GT

STUR
, SOHBA
D?
:{oo.no
#133503, GDHLPR

9200, GDHBAR
SDHSCR

tSET UP TO ESCAPE TO NEXT TEST

:BUS ADODRESS REGISTERS

1AUTO ECHMO ENABLED ON LINE 7
1SET BAR BIT FOR LINE 7
iWAIT FOR CHARACTER TO

24
Ri

18E RECEIVED
1UPDATE RECEIVED CHARACTER COUNY

R4, TUWRD?
34
TWRD7,RS

s(RS)=EXPECTED CHARACTER

SOHNRC
R4

gDHLPR
0
49
RO

+READ CHARACTER
1IS CHARACTER CORRECT
1SHUT OFF AUTO ECHO

1CHARACTER ECHOED INCORRECTLY
IRESTART TEST
tIF 64 CHARACTERS HAVE NOT

tBEEN RECEIVED, CONTINUE

CZDHH-CO

003144
003146
003154
003156

003160

MACRO VO4.00

100404
042777
000752
104400
000010
000400
000010

100000

SEQ 38

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

BMI

8IC

010370

4% :

SCOPE

4100000, 8DHLPR
24

LINE=LINE+1
BITX=BITX+BITX

;SHUT OFF AUTO-ECHO

:GET 1 MORE CHARACTER

sCHECK FOR ITERATIONS, LOOP

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

1ENABLE AUTO ECHO ON LINE 10
s TRANSMIT ONE CHARACTER ON LINE 10

1AT 9600 BAUD, 8 BITS.
tRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
1AFTER 64 CHARACTERS MAVE BEEN RECEIVED, DISABLE AUTO ECMO.
sEXACTLY ONE MORE CHARACTER SHOWL.D BE RECEIVED.
003160
003160
003166
003174

012767
012767
012767

000340
000100
003334

174610
010412
010400

TS \XN,100,44

T14:

_—
.

003202
003210

000012
012777
004767

003214
003222
003230
003236
003242
003244

012777
012777
o121
012700
005001
012777

003252
003260
003264
003266
003270
003274
003300
003302
003306
003312
003312
003314
003316
003320
003322
003324
003332
003334

003336

012777

105777
100375

005201
017704
020467
001406
016705
005077

104000
000407
005300
003357
100404
042777
000752
104400
000011
001000
000011

004000
010164

010330

000010
177777
014330
000100

010316
010320
010310

131503

010272

000400
010254

010272

.ENDC
XN=XN+1

1s:

28:

MOV
MOV
MoV

#340,PS
€100, ICOUNT
44 ,ESCAPE

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

MOV

#,FREE2L

1SET UP TO LOOP MITH DATA

"oV
JSR

#81I711,80HSCR
PC.CLRALL

iMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN

MOV
MOV
MoV
Moy
CLR
MOV

€10, BDHSCR
o-1,80HBC
STURD10, SOHBA
#100.R0O
Ry
9133503, GDHLPR

:SELECT LINE 10
1SET BYTE COUNY 10 1
1SEY UP ADDRESS OF CHARACTER TO BE TRANSMITTED
1SEY UP TO RECEIVE 64 CHARACTERS
tCOUNT OF CHARACTERS RECEIVED
1SET UP SPEED FOR 9600 BAUD

MoV

1518

4400, SOMBAR

SDMSCR

1BUS ADDRESS REGISTERS

18 BITS PER CHARACTER,
+AUTO ECHO ENABLED ON LINE 10

1SET SAR BIT FOR LINE 10

sMAIT FOR CHARACTER TO

011030

PL
INC
MoV
g

28
Ri
GODMNRC R4
g:.’nmxo

18€ RECEIVED
1UPDATE RECEIVED CHARACTER COUNT
+READ CHARACTER

011022
010232

Moy
CLR

TURD10,R%
SOMLPR

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

010246

38
100000

010212

AUTOL

1CHARACTER ECHOED INCORRECTLY

tRESTART TEST

DEC

1IF 64 CHARACTERS WAVE NOT

8IC
B8R
SCOPE

#100000, BDML.PR
24

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

LINE=LINE+1
BITX=BITX+BITX

KXsKXe}

1IS CHARACTER CORRECT

\LINE,\BITX,\KX

sBEEN RECEIVED, CONTINUE

: 3

CZDHH-CO

MACRO VO4.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
sAT 9600 BAUD, 8 BITS.
tRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
tAFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHO.
sEXACTLY ONE MORE CHARACTER SHOUWLD BE RECEIVED.
003336
003336
003344
003352

003360
003366
003372
003400
003406
003414

003420
003422

003430
003436
003442
003444
003446
003452
003456
003460
003464
003470
003470
003472
003474
003476
003500
003502
003310
003512

003514

012767
012767
012767

000013
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
000012
002000
000012

000340
000100
003512

174432
010234

010222

TS \XN,100,.4%4

Ti2:

IF N8

.ENDC

004000
010006

010152

000011

010140
010142
010132

1nnnm
014332
000100
133503

010114

001000
010076

010114

XN=XN+1

1%:

F{ H

010070
010654
010646

010054

MoV
MOV
o

MOV

MoV

010034

#.FREE21

1SET UP TO LOOP WITH DATA

#81IT11,80MSCR

IHASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
1BUS ADDRESS REGISTERS
1SELECT LINE 11
1SET BYTE COUNT YO 1§
1SET UP ADORESS OF CHARACTER TQ BE TRAMCAITTED
$SET UP TO RECEIVE 64 CHARACTERS

MOV

#11,80HSCR

MOV
MoV
CLR
MOV

STWRD11, BDHBA
4100,R0
R1
€133503, BOMLPR

MoV
I1ST8
8PL
INC
Moy
cHe
8EQ
nov

#1000, SOMBAR
SOHSCR
2¢
R1
SDHNRC ,R4

CLR

R4, TWRD1L
3
TWRD11 RS
SDHLPR

13,14

Ml
81C

44
#100000, S0M.PR

DEC
BGY

44:
SCOPE
LIME=_INE+}
BITX=BITX+BITX

AUTO1

1DISABLE ALL INTERRUPTS

9100, ICOUNT
44 ESCAPE

PC.CLRALL

B8R

KXsKX+1

#340,PS

JSR

3:
100000

MoV

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

sCOUNT OF CHARACTERS RECEIVED
tSET UP SPEED FOR 9600 ®2w

18 BITS PER CHARATTC
R,
1AUTO ECHD ENABLED ON LINE 11
1SET BAR BIT FOR LINE 1t

HAIT FOR CHARACTER TO
1BE RECEIVED
1UPDATE RECEIVED CHARACTER COUNT

sREAD CHARACTER
+IS CHARACTER CORRECT

t(RY)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
+CHARACTER ECHOED INCORRECTLY

RO
24

sRESTARY TESY
1IF 64 CHARACTERS MAVE NOT
1BEEN RECEIVED, CONTINUE

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

\LINE,\BITX,\KX

1ENABLE AUTO ECHO OM LINE 12
s TRANSMIT ONE CHARACTER ON LINE 12
1AT 9600 BAUD, 8 BITS.
sRECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
IAFTER 64 CHARACTERS MAVE BEEN RECEIVED, DISABLE AUTO ECHO.
1EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

: 3

CZDHN-CO

003514
003514
003522
003530

MACRO v04.00

012767
012767
012767

000014

000340
000100
003670

174254
010056
010044

TS \XN, 100,43

T113:

JIF N8B

ENDC

XN=XN+1

MOV
MOV
MOV

#340,PS
9100, ICOUNT
043 ,ESCAPE

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

MOV

¢,FREEZ2}

$SET UP TO LOOP WITH DATA

MOV
JSR

#0IT11,8DHSCR
PC,CLRALL

sMASTER CLEAR INTERFACE
iCLEAR ALL BYTE COUNT AN
:BUS ADDRESS REGISTERS
sSELECT LINE 12
sSET BYTE COUNT Tu 1
:SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
sSET UP TO RECEIVE 64 CHARACTERS
;COUNT OF CHARACTERS RECEIVED
:SET UP SPEED FOR 9600 BAUD
:8 BITS PER CHARACTER,
sAUTQO ECHO ENABLED OWN LINE 12
:SET BAR BIT FOR LINE 12
sWAIT FOR CHARACTER TO
+BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT

012777
004767

004000
007630

007774

003550
003556
0035€4
003572
003576
003600

012777
012777
012777
012700
005001
012777

000012
177777
014334
000100

007762
007764
007754

MOV
MOV
MOV
MOV

133503

007736

MOV

€12, 80HSCR
¢-1,80MH8C
#TWRD12, SDHBA
€100,.R0O
R1
4133503, GOHLPR

003606
003614
003620
003622
0C3624
003630
003634
003636
003642

012777

002000

007736

MOV

#2000, SOHBAR

017704
020467
001406
016705

007712
010500

005077

003646
003650

104000
000407

003536
003544

003652

003654
003656
003660
003670

003672

105777
100375
005201

007720

100404

000752

1s:

CLR

es:

010472

007676

CLR
Y

3s:
100000

15718
8PL
INC

MOV
cHe
BEQ
MOV

005300
003357
042777

SEQ 40

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

007656

104400
000013
004000
000013

sREAD CHARACTER

;IS CHARACTER CORRECT

SOHLPR
0

s (RS)=EXPECTED CHARACTER
iSWUT OFF AUTO ECHO
sCHARSCTER ECHOEC INCORRECTLY

RO
24

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

1]
4%

rd]

43
SCOPE
LINE=LINE.L
BITXsBITX+BITX
AUTO1

SDHNRC R4
R4, TURD12
3s
THRD12 ,R5

EMT
B8R
DEC
867
BMI
8IC

KX=KXe1

SDHSCR
24
Ri

€100000, SOHLPR

;SHUT OFF AUTO-ECHO
:GET 1 MORE CHARACTER
;CHECK FOR ITERATIONS. LOOP

\LINE, \BITX, \KX

;ENABLE AUTO ECHO ON LINE 13

s TRANSMIT ONE CHARACTER ON LINE 13

1AT 9600 BAUD, & BITS.
;RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

tAFTER 64 CHARACTERS MAVE BEEN RECEIVED, DISABLE AUTO ECHO.

sEXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
003672
003672
003700
003706

012767
012767
012767

000015

000340
000100
004046

174076
007700
007666

TS \XN,100,.49
Ti4:
MOV

.IF NB

.ENDC

XN=XN-1

MOV
MOV

#340,PS
4100, ICOUNT
043 ,ESCAPE

:DISABLE ALL INTERRUPTS
;SET UP FOR 100 ITERATIONS
1SET UP 1O ESCAPE TO NEXT TESTY

¢, FREEZY

iSET UP TO LOOP WITH DATA

MoV

3 3

CZDOHH-CO

MACRO VO4.00

003714
003722

012777
004767

004000
007452

007616

003726
003734
003742
003750
003754
003756

012777
012777

012777
012700

000013
177777

014336
000100

012777

003764
003772
003776
004000
004002
004006
004012
004014
004020
004024
004024
004026
0C4030
004032
004034
004036
204044
004046

004050

005001

105777

100375
005201
017704
020467

001406
016705

005077

MOV
JSR

®BIT11,00HSCR
PC.CLRALL

007604
007606

MOV
MOV

13, 80HSCR
#-1,80H8C

133503

007560

MoV

004000

007560

007542

100404

000752
104400
000012
010000
000014

18:

007576

MoV
MOV

2s:

007534
010324
007520

3s:
100000

007500

MOV

#4000, SOHBAR

BPL
INC

24
R1

1578

€133503, SDHLPR

SOHSCR

MoV
cnp

SCHNRC R4
R4, TWRD13

CLR

SOHLPR

HLT
EMT
BR
DEC
8GT

BMI

8IC

BR
43
SCOPE
LINE=LINE.1
BITX=BITX+BITX
KX =KX+l
AUTOL

#TWRD13,80HBA
#100,R0

CLR

BEQ
MoV

010316

1C4000
000407
005300
003357
042777

SEQ 41

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

33
TWRD13,RS

0
0
44
RO
i

€100000, 8OHLPR

tMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
sBUS ADDRESS REGISTERS
$SELECT LINE 13
+SET BYTE COUNT T0 1
1SET UP ADDRESS GF CHARACTER TO BE TRANSHITTED
:SET UP TO RFCEIVE 64 CHARACTERS
+COUNT OF CHARACTERS RECEIVED
sSET UP SPEED FOR 9600 3AUD
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
:READ CHARACTER
+IS CHARACTER CORRECY

1 (RS)=EXPECTED CHARACTER

s SHUT OFF AUTO ECHO
:CHARACTER ECHOED INCORRECTLY

;RESTART TEST
;IF 64 CHARACTERS HAVE NOT
:BEEN RECEIVED, CONTINUE
sSHUT OFF AUTD-ECHO
:GET 1 MORE CHARACTER
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

sENABLE AUTO ECHO ON LINE 14

s TRANSMIT ONE CHARACTER ON LINE 14

;AT 9600 BAUD, 8 BITS.
;RECEIVE AND VERIFY CHARACTERS UNIIL 64 HAVE BEEN RECEIVED.

;AFTER 64 CHARACTERS HAVE BEEN RECEIVED, DISABLE AUTO ECHOC.

:EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
004050
004056
004064

004072
004100
004104
004112
00412¢C
004126
004132

012767
012767
G12767

O0CO0340
000100
004224

173720
007522
007510

JF NB

.ENDC

000016
012777
NO475T7

004000
007274

007440

012777
012777
012777
012700

000014
177777
014340
000100

007426
007430
007420

005001

TS \XN,100.4%

T1iS:

XN=XN-1
1s:

MoV
MOV
MOV

4340,PS
#100, ICOUNT
43 ESCAPE

sDISABLE ALL INTERRUPTS
+SET UP FOR 100 ITERATIONS
;SET UP TO ESCAPE TO NEXT TESY

Moy

¢ . FREEZL

:SET UP TO LOOP WITH DATA

MOV
JS5R

48IT11,00HSCR
PC.CLRALL

MOV
MOV
MOV
MOV

#14,80HSCR
¢-1,80H8C
STUWRD14, §OHBA
2100,R0

;MASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AN
;BUS ADORESS REGISTERS
1 SELECT LINE 14
;SET BYTE COUNT 10 )
:SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
1SET UP TO RECEIVE 64 CHARACTERS
;COUNT OF CHARACTZRS RECEIVED

CLR

1)1

3 3

CZLHm

MACrO VO4.00

004134

012777

133503

007402

004142
001150
004154
004156
004160
004164
004170
004172
004176
004202
004202
004204
004206
004210
004212
004214
004222
004224

012777
105777
100375
005201
017704
020467
001406

010000
007364

007402

0C4226

016705

005077

104000
000407
005300
003357
100404
042777
000752
104400
000015
020000
000015

MOV

2%:

007356
010150

010142
007342

3s:
100000

SEQ 42

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

007322
4%:

MoV

TS78
BPL
INC
MoV
cMp
8EQ
MoV
CLR
T
EMT
BR
DEC
8GY
8MI
BIC
BR

SCOPE

133503, 80HLPR

410000, 80HBAR

SDHSCR
24
R1
SOHNRC
R4
R4, TWRD1Z
3
TWRD14
RS
80HLPR
0
0
43
RO
.)
43
4100000, SOHLPR
23

LINE=LINE«1
BITX=BITX+BITX

:SET UP SPEED FOR 9600 BAUD
i8 BITS PER CHARACTER,
1AUTO ECHO ENABLED ON LINE 14
:SET BAR BIY FOR LINE 14
tWAIT FOR CHARACTER TO
1BE RECEIVED
sUPDATE RECEIVED CHARFCTER COUNT
sREAD CHARACTER
:IS CHARACTER CORRECT

;(R5)=EXPECTED CHARACTER

sSHUT OFF AUTO ECHO
sCHARACTER ECHOED INCORRECTLY

;RESTART TEST
sIF 64 CHARACTERS HAVE NOT
:BEEN RECEIVED, CONTINUE
sSHUT OFF AUTO-ECHO
;GET 1 MORE CHARACTER
sCHECK FOR ITERATIONS, LOOP

KX =KX}
AUTOL1 \LINE \BITX,\KX

;ENABLE AUTO ECHO ON LINE 15
sTRANSHMIT ONE CHARACTER ON LINE 1S
:AT 9600 BAUD, B8 BITS.
;RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.

sAFTER 64 CHARACTERS HAVE BEEN RECEIVED. DISABLE AUTO ECHO.

;EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.
004226
004226
004234
004242

012767
012767
012767

004250
004256

000017
012777
004767

004262
004270
004276
004304
004310
004312

004320
004326
004332
004334
004336

000340
000100
004402

173542
007344
007332

004000
007116

007262

012777
012777
012777
012700
005001
012777

000015
1717777
014342
000100

012777
105777
100375
005201
017704

TS \XM,100,4¢
T16:
nov
MoV
MoV
IFNB

.ENDC
XN=XN+1

Hov

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

®,FREEZL

iSET UP YO LOOP WITH DATA

BIT11,80HSCR

iMASTER CLEAR INTERFACE
sCLEAR ALL BYTE COUNT AN
;BUS ADDRESS REGISTERS
;SELECT LINE 15
:SET BYTE COUNT 13 1
:SET UP ADDRESS OF CHARACTER TG BE TRANSMITTED
sSET UP TO RECEIVE 64 CHARACTERS
;COUNT OF CHARACTERS RECEIVED
sSET UP SPEED FOR 9600 BAUD
;8 BITS PER CHARACTER,
;AUTO ECHO ENABLED ON LINE 15
;:SEY BAR BIV FOR LINE 15
;MAIT FOR CHARACTER TO
;BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT

JSR

PC.CLRALL

007250
007252
007242

MOV
MoV
MOV

€15, 8OHSCR
#-1,00H8C
#TURD1S, SOHBA
#100,R0

133503

007224

MOV

020000
007206

007224

007200

1%:

Moy

#340,PS
4100, ICOUNT
848, ESCAPE

MOV
CLR

2%:

MOV

1578
BPL
INC
MOV

9133503, S0HLPR
#20000, SOHBAR

8DHSCR
24
Ri
SOHNRC R4

;READ CHARACTER

;i 3

CZOHH-CO

004342
004346
004350
004354
004360
004360
004362
004364
004366
004370
004372
004400
004402

MACRO VO4.00

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

27-JUN 85

007774

cMpP
8EQ

007766
007164

MOV

3%:

100000

007144

040000

004404

CLR
HLT
EMT
BR
DEC
8GT
BMI
8IC
BR

§4.THR015
$
TWRD15,RS
SOMLPR

;IS CHARACTER CORRECT
s(RS)=EXPECTED CHARACTER
:SKWUT OFF AUTO ECHO
1CHARACTER ECHOED INCORRECTLY

tRESTART TEST
sIF 64 CHARACTERS HAVE NOT
;BEEN RECEIVED, CONTINUE
glOOOOO.GDHLPR
$

43:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTOL
\LINE,\BITX
\KX
,

000016

SEQ 43

13:04:20 PAGE 23-12

:SHUT OFF AUTO-ECHQ
+GET 1 MORE CHARACTER

:CHECK FOR ITERATIONS, LOGP

;ENABLE AUTO ECHO ON LINE 16
; TRANSMIT ONE CHARACTER ON LINE 16
:AT 9600 BAUD, 8 BITS.
;RECEIVE AND VERIFY CHARACTERS UNTIL 64 HAVE BEEN RECEIVED.
;AFTER 64 CHARACTERS HAVE BEEN RECEIVED., DISABLE AUTO ECHO.
;EXACTLY ONE MORE CHARACTER SHOULD 8E RECEIVED.
004404
004404
004412
004420

004426
004434

004454
004466
004470

004476
004504
004510
004512
004514
004520
004524
004526
004532
004536
004536
004540
004542

012767
012767
012767

000020

000340
000100
004560

173364
007166

007154

012777
004767

004000
006740

007104

012777
012777
012777
012700
005001
012777

000016
177777
014344
000100

007072
007074
007064

133503

0070456

012777
105777
100375
005201
017704
020467
001406
016705
005077

040000
007030

007046

104000
000407
005300

TS \XN,100,.4%
T7:
MOV

JF NB
.ENDC
XN=XN+1
1$:

2%:

007022
007620

007612
007006

3s:

MOV
MOV
<>
MoV

#340,PS
€100, ICOUNT
43, ESCAPE

;DISABLE ALL INTERRUFTS
iSET UP FOR 100 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

#,FREEZ)

sSET UP TO LOOP NITH DATA

MOV
JSH

#BIT11,80HSCR
PC.CLRALL

sMASTER CLEAR INTERFACE

MoV
nov
HOV
MoV
CLR
MOV

€16, SOHSCR
¢-1,80H8C
¢TURD16, SOHBA
#100,R0
R1
#133503, S0HLPR

MOV
1518
B8PL
INC
MoV
cHpP
8EQ
MoV
CLR
HT
enT
BR
DEC

#4000
, SOHBAR
0

gQHSCR

R1
SOHNRC ,R4

§:.THRDIG

TWRD16,RS
SOHLPR
0
0

44
RO

: 3

sCLEAR ALL BYTE COUNT AN
;8US ADDRESS REGISTERS
;SELECT LINE 16
+SET BYTE COUNT TO 1
$SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED

sSET UP TO RECEIVE 64 CHARACTERS

sCOUNT OF CHARACTERS RECEIVED
:SET UP SPEED FOR 9600 BAUD
18 BITS PER CHARACTER,
+AJTO ECHO ENABLED ON LINE 16
1SET BAR BIT FOR LINE 16
sWAIT FOR CHARACTER TO
:BE RECEIVED
sUPDATE RECEIVED CHARACTER COUNT
1READ CHARACTER
+IS CHARACTER CORRECY
1(RS)=EXPECTED CHARACTER
1SHUT OFF AUTO ECHO
iCHARACTER ECHOED INCORRECTLY
sRESTART TEST
+IF 64 CHARACTERS HAVE NOT

‘

TZ0HM-CO
004544
004546
004550
004556
004560

004562

MACRO V04.00

003357

100404

042777

000752
104400
000017
100000
000017

B8GT
100000

SEQ 44

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

006766

8MI

8IC

BR
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KXe+1
AUTOL

sBEEN RECEIVED,

100000, 8OHLPR

1SHUT OFF AUTO-ECHO

CONTINUE

:GET 1 MORE CHARACTER
;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

;ENABLE AUTO ECHO ON LINE 17
: TRANSMIT ONE CHARACTER ON LINE 17
:AT 9600 BAUD, 8 BITS.

tRECEIVE AND VERIFY CHARACTERS UNTIL €4 HAVE BEEN RECEIVED.

+AFTER 64 CHARACTERS HAVE BEEN RECEIVED,

DISABLE AUTO ECHO.

:EXACTLY ONE MORE CHARACTER SHOULD BE RECEIVED.

004562
004562
0V4a570
004576

012767

000340

000100

004736

173206

007010

TS \XN,100,4%
T20:
MOV

006776

:SET UP TO LGOP WITH DATA

MOV
JSR

#81I711,0DHSCR
PC.CLRALL

MoV
MOV
MOV
MoV

#17,80HSCR
¢-1,80HBC
#THRD17, SDHBA
#100,R0

iMASTER CLEAR INTERFACE
;CLEAR ALL BYTE COUNT AN
:BUS ADDRESS REGISTERS
sSELECT LINE 17
;SET BYTE COUNT 1O 1
:SET UP ADDRESS OF CHARACTER TO BE TRANSMITTED
:SET UP TO RECEIVE 64 CHARACTERS

Hov

4133503, GOHLPR

MoV
1518
8PL

#100000, GDHBAR
SOHSCR
2%

XN=XN+1

004616

012777
012777
012777
012700

000017
177777
014346
000100

006714
006716
006706

012777

133503

006670

012777
105777
100375

100000
006652

006670

017704
020467

006644
007444

MOV
cHe

016705
005077

007436
006630

MoV
CLR

001406

104000
000407
005300
003357
100404
042777

000752
104400
000020
000000
000020

1¢:

CLR

2%:

INC

B8EQ
WY

3%:
100000

006610

:SET UP FOR 100 ITERATIONS

¢ ,FREEZ1

006726

005201

;SET UP TO ESCAPE TO NEXT TEST

Mov

004000
006562

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

#44 ,ESCAPE

ENOC
012777
004767

004654
004662

sDISABLE ALL INTERRUPTS

MOV

004604
004612

005001

#340,PS

€100, ICOUNT

R
.

00002+

MOV

EMT
B8R
DEC
B8GT
BMI
BIC

BR
4% :
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1

:COUNT OF CHARACTERS RECEIVED

SOHNRC , R4
R4, TWRD17

+SET UP SPEED FOR 9600 BAUD
:8 BITS PER CHARACTER,
;AUTO ECHO ENABLED ON LINE 17
sSET BAR BIT FOR LINE 17
iWAIT FOR CHARACTER TO
;BE RECEIVED
;UPDATE RECEIVED CHARACTER COUNT
;READ CHARACTER
tIS CHARACTER CORRECT

TWRD17,RS
SOHLPR

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

R1
34

0
44
RO
2
43

4100000, SOMLPR

:CHARACTER ECHOED INCORRECTLY

sRESTART TEST
1IF 64 CHARACTERS HAVE NCT

:BEEN RECEIVED, CONTINUE
sSHUT OFF AUTO-ECHO

;GET 1 MORE CHARACTER
;CHECK FOR ITERATIONS, LOOP

i 3

CZDHH-CO

MACRO V04.00

27-JUN-85

000020
000000
000020
000000
000001
000000
000020

18
19

SEQ 45

13:04-20 PAGE 23-14

XLINE=LINE
XBIT=BI1X
K=KX
LINE=0
BITX»1
KX=0
AEPT
20

AUT02
\LINE,\BITX, \KX
.NLIST
LINE=l INEo1
BITX=BITX+BITX

kX=KX+1

LIST
.ENDR
AUT02

004740

\LINE,\BITX,\KX

: TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPY LINE ©
i TRANSMIT { CHARACTER ON LINE O WITH AUTO ECHO ENABLED
i TECANSMISSION SPEED FOR ALL LINES IS 9600 BAUD

;CHARACTER LENGTH IS 8 BITS
tVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
004740
0C4740
004746
004754

012767

000340

012767

005174

012767

000022

000010

173030

006632

006620

TS \XN,10,5¢

TZi:

JF NB

.ENDC

XN=XN+1

MOV

9340,PS

MOV

€54 ,ESCAPE

MOV
<>

#10, ICOUNT

4 ,FREEZY

;SET UP TO LOOP WITH DATA

MoV
JSR

#81711.,80HSCR
PC,SETALL

sMASTER CLEAR INTERFACE

004000
006432

006550

004774
005002

012777
012777

000000
014310

006536
006536

MOV
MOV

€0, 90HSCR
STWRDO , SOHBA

005010
005016
005024
005032
005040
005042

012777
012777

177777
133503

006532
006520

MoV
MOV

#-1,80H8C
2133503, 0MLPR

006512

MoV

00505C
005052
005054
005060
005062
005064
005070
005072
00507¢
005100

005104
005104
005106
005110

042767

012777

005000
017704

100375
010403
000303
042703

010302
006302
020327

001432
026204
001404
016205

104001
000423

105262

000001

177777

006474

006610

8IC

1¢:

177760

014246

8PL
MOV
SHAB

14
R4 ,R3
R3

MoV
ASL
cMp

R3,.R2
R2
R3,%0

MoV

RBUF(R2).RS

mov

2%:

#-1,80HBAR

BEQ
cnp
BEQ

014246

41 ,LINACT

CLR

81C

000000

;SET UP TO ESCAPE TO NEXT TEST

MOV

012777
004767

004762
004770

sDISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS

EMY
B8R

INCB

SOHNRC R4

#177760.R3

43
RBUF(R2),R4
24

:SET UP ALL LINES TO TRANSMIT
3400 (OCTAL) CHARACTERS
;SELECT LINE O FOR TESTING
;CHARACTER TO BE TRANSMITTED
;ON LINE 0 IN AUTO ECHO MODE
s TRANSHIT ONLY 1 CHARACTER ON LINE O

:SET AUTO ECHO FOR LINE O
sCLEAR LINE ACTIVE BIT
+SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

sGET A CHARACTER FROM SILO

sIF _NOT VALID DATA, TRY AGAIN

{EXTRACT LINE NUMBER FORM CHARACTER

+CLEAR STATUS BITS
1IF LINE NUMBER IS O
;CHECK FOR CORRECT ECHOED CHARACTER
iIF NOT LINE O, CHECK DATA

1(R3)=EXPECTED NON ECHOED DATA
;NON ECHOED DATA ERROR

RBUF(R2)

:UPDATE EXPECTED RECEIVED DATA

1
44

;i 3

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

SEQ 46

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

014450
006512

006516

000000
100000
006406

006400
006376

007124
007116

104002
104400
000001
000002
000001

BNE
8IC
3:
TST
BNE
MOV
8IC
1578
BNE
BR
4%
INC
CMP
8EQ
MOV
HLT
ENT
5%:
SCoPE
LINE=LINE+1
8ITX=BITX+BITX

14
LINBIT(R2),LINACT
LINACT
14
90, 8DHSCR
#100000, 8DHLPR
80HSLR
14
S
RO
R4, TWRDO
33
TWRD0,RS
2
2

;CONTINUE IF NOT DONE
;CLEAR ACTIVE BIT
;:IF ALL LINES ARE DONE
JEXIT
:SELECT LINE ©
;CLEAR AUTQ ECHO FOR LINE O
:GET REST OF CHARANCTERS
:AND CHECK

;UPDATE ECHOED CHARACTER COUNT
;:CHELK ECHOED DATA

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

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

; TRANSMIT A BINARY COUNT PATTERN ON ALl LINES EXCEPT LINE 1
; TRANSHIT 1 CHARACTER ON LINE 1 WITH AUTO ECHO ENABLED
; TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
;CHARACTER LENGTH 1S 8 BITS
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
005176
005176
005204
005212

0127€7
012767
012767

000340
000010
005432

172572
006374
006362

TS \XN.10,5¢
T22:
MoV
MOV
MOV

IF NB

.ENDC

#54% ,ESCAPE

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

MoV

¢.FREEZL

:SET UP TO LOOP WITH DATA

MoV
JSR

#6IT11,80HSCR
PC,SETALL
41 ,80HSCR
#TWRD1 ., SOHBA

005220
005226

000023
012777
004767

004000
006174

006312

005232
005240

012777
012777

000001
014312

006300
006300

MOV
MOV

005246
005254
005262
005270
005276

012777
012777
042767
012777
005000
017704
10€375
010403
000303
042703
010302
006302
020327
001432
026204
001404

1mn

006274
006262
006352
006254

nov
MOV

005300
005304
005306
005310
005312
005316
005320
005322
005326
005330
005334

133503

000002

1rnmnm

006236

177760

000001
014246

XN=XN+1

BIC
1$:

9340,PS

#10, ICOUNT

MoV
CLR
Hov

BPL
MoV
SWAB
BIC
MOV
ASL

cHp
BEQ
cHP
BEQ

#133303, GOHLPR
#2,LINACY
4-1,80HBAR
RO
GOHNRC R4
1
R4 .R3
R3
#177760,R3
R3,R2
R2
R3,41
44
RBUF (R2) ,R4
24

i 3

sMASTER CLEAR INTERFACE
;SET UP ALL LINES TO TRANSMIT
;400 (OCTAL) CHARACTERS
:SELECT LINE 1 FOR TESTING
sCHARACTER TO BE TRANSMITTED
sON LINE 1 IN AUTC ECHO MODE
: TRANSHIT ONLY 1 CHARACTER ON LINE 1

;SET AUTO ECHO FOR LINE 1
;CLEAR LINE ACTIVE BIT
:SEY BAR BITS FOR ALL LINES
iKEEP 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

+IF LINE NUMBER 1S 1
;CHECK FOR CORRECY ECHOED CHARACTER
:IF NOT LINE 1, CHECY DATA

CZDHH-CO

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

005434

MACRO V04.00

016205

014246

MOV

HLT

104001

000423

EMT

105262

014246

046267
005767

014450
006254

006260

012777
042777
105777

000001
100000
006150

006142
006140

020467

006670

016705

006662

001352

001344

001333
000407
005200

001757

SEQ 47

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

24:
3%

4%:

INCB

RBUF (R2)

8IC
187

LINBIT(R2),LINACT
LINACT

MOV
8IC
1578

41 ,8D0HSCR
#100000, BOHLPR
80HSLR

BNE

BNE
BR
INC
cMP

MoV

HLT
EMT
S
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX =KX+ 1
AUTO02

1 (R5)=EXPECTED NON ECHOED DATA
:NON ECHOED DATA ERROR

BEQ

104002
104400
000002
000004
000002

RBUF(R2),R5

14
13

14
1)
RO

R4, TWRD1

TWRD1,RS

4
2

;UPDATE EXPECTED RECEIVED DATA
;CONTINUE IF NOT DGNE
;CLEAR ACTIVE BIT
;IF ALL LINES ARE DONE
1EXIT
+SELECT LINE 1
;CLEAR AUTO ECHO FOR LINE 1
;GET REST OF CHARACTERS
;AND CHECK

;UPDATE ECHOED CHARACTER COUNT
:CHECK ECHOED DATA

s (RS)=EXPECTED ECHOED DATA
;:ECHOED DATA ERROR
;CHECK FOR ITERATIONS,

LOOP

\LINE,\BITX,\KX

012767
012767
012767

00034n
000010
005670

172334
006136
006124

TS \XN,10,5¢
T23:
MOV
MOV
Mov
JIFNB

.ENDC

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

MOV

& FREEZL

1SET UP TO LOOP WITH DATA

MOV
JSR

481711 . 8DHSCR
PC.SETALL

005456
005464

000024
012777
004767

004000
005736

006054

005470
005476

012777
012777

000002
014314

006042
006042

MOV
MOV

€2, 90H5CR
STHRD2 , SDHBA

005504
005512
005520

012777
012777
042767
012777
005000
017704

1777717
133503
000004
1777717

006036
006024
006114
006016

MOV
MOV
B8IC
MOV
CLR
MOV

#-1,80HBC
9133503, DHLPR
4, LINACT
4-1,8DHBAR
RO
GDHNRC . R4

042703

177760

81C

#177760,R3

005526

005534
005536
005542
005544
005546
005550
005554

100375
010403
000303

010302

006000

XN=XN+1

#340,PS
#10.ICOUNT
#58 ESCAPE

1s:

8PL
MOV
SWHAB
MOV

1
R4 .R3
R3

R3,.R2

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

005434
005434
005442
005450

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 2
i TRANSMIT 1 CHARACTER ON LINE 2 WITH AUTO ECHO ENABLED
i TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
:CHARACTER LENGTH IS 8 BITS
i VERIFY THAT CORRECT OATA IS RECEIVED ON ALL LINES

tKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
1GET A CHARACTER FROW SILO
:IF _NOT VALID DATA. TRY AGAIN
tEXTRACT LINE NUMBER FORM CHARACTER

tCLEAR STATUS BITS

005556
005560
05564
005566
005572
005574
005600
005600
005602
005604
005610
005612
005620
005624
005626
005634
005642
005646
005650
005652
005654
005660
005662
0C5666
005666
005670

005672

C06302
020327

001432

014246

016205

014246

001404

ASL
cHp

000002

026204

105262

001352

24:

014450
006016

006022

012777
042777
105777

000002
100000
005712

005704
005702

020467

006434

016705

006426

001333
000407
005200
001757

8EQ

MOV

RBUF(R2),RS

EMT

046267
005767

001344

HLT

0113246

3s:

43:

iCHECK FOR CORRECT ECHOED CHARACTER

RBUF(R2),R4

+IF NOT LINE 2,

1NON ECHOED DATA ERROR

8IC
TST

LINBIT(R2),LINACT
LINACT

MOV
8IC
1518

#2,8DHSCR
#100000, 8DHLPR
SDHSLR

cMP

R4, TWRD2

8NE

BNE
B8R
INC

MOV

EMT
5¢:
SCOPE
LINE=LINE+}1
BITX=BITX+BITX
KX=kXe1

CHECK DATA

i (RS)=EXPECTED NON ECHOED DATA

RBUF (R2)

AUTO02

+IF LINE NUMBER IS 2

INCB

BNE

BEQ

104002
104400
000003
000010
000003

R2
R3, 02

BEQ
cMP

104001

000423

SEQ 48

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

m—

MACRO VO4.00

CZDHN-Cn

;UPDATE EXPECTED RECEIVED DATA

;CONTINUE IF NOT DONE

{EXIT

1s
54
RO
3

THRO2,RS

;CLEAR ACTIVE BIT
iIF ALL LINES ARE DONE

;SELECT LINE 2
;CLEAR AUTO ECHO FOR LINE 2
;GET REST OF CHARACTERS

;AND CHECK

1UPD/TE ECHOED CHARACTER COUNT
1CHECK ECHOED DATA

s (R5)=EXPECTED ECHOED DATA

;ECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

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

s TRANSMIT 1 CHARACTER ON LINE 3 WITH AUTO ECAQ ENABLED

; TRANSHISSION SPEED FOR ALL LINES IS 9600 BAUD
sCHARACTER LENGTH IS 8 BITS
iVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES

005672
005672
005700
005706

012767

000340

012767

006126

012767

000025

005700

005666

004767

005500

005616

005726
005734

012777
012777

000003
014316

005742
005750
005756
205764
005772
005774

012777

042767

012777
C12777

005C00
017704

TS \XN,10,5¢

T24:

JFNB

-ENDC

0V4000

005714
005722

012777

000010

172076

XN=XN-1

mov
v

MOV
o

MoV
MoV

#340,PS

€10, ICOUNT

454 ,ESCAPE

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

¢,FREEZ2L

1SET UP TO LOOP WITH DATA

#81711,0DHSCR

+MASTER CLEAR INTERFACE
:SET UP ALL LINES TO TRANSMIT
1400 (OCTAL; CHARACTERS
;SELECT LINE 3 FOR TESTING

JSR

PC.SETALL

005604
005604

Mmov
Hov

93, 80HSCR
#TWRDS , SDHBA

177777

005600

Mov

#-1,80HBC

000010

005656

133503
177777

005542

005566

MOV
BTIC

005560

MOY
14:

CLR

MOV

#133503, GDHLPR
#10,LINACT

#-1,0DHBAR

SOHNRC ,R4

i 3

sCHARACTER TO BE TRANSMITTED

ON LINE 3 IN AUTO ECHO MODE

+ TRANSMIT OnLY 1 CHARACTER ON LINE 3
:SET AUTO ECHO FOR LINE 3
+CLEAR LINE ACTIVE BIT
1SET BAR BITS FOR ALL LINES
:KEEP COUNT OF NUMBER JF RECEIVED CHARACTERS
sGET A CHARACTEZR FROM SILO

CZ0HH-CO
006000
006002
006004
006006

006012

006014

006016
006022
06024
006030
006032

006036

006036
006040

MACRO VO4.00
100375
010403
000303
042703

010302

104001
000423

006042
006046

105262
001352

006056
006062
006064

005767
001344
012777

006050

006072
006100

006104
0C6106
006110
006112
006116
006120
006124
006124
006126

006130

8PL
MOV
SWAB

14
R4 ,R3
R3

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

177760

8IC
MOV

9177760,R3
R3,R2

;CLEAR STATUS BITS

000003

CHP
BEQ
cMP
BEG
MoV

R3,03
44
RBUF(R2),R4
24
RBUF(R2) ,R5

006302

020327
001432
026204
001404
016205

046267

042777
105777

001333
000407
005200
020467
001757
016705

SEQ 49

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

ASL

014246
014246

HLT

014246
014450

005560

000003

100000
005454

24%:
005564

005446

005444

006172

104002
104400

5¢:

000004

EMT
ER

1
43

INCB
BNE

RBUF (R2)
13
LINBIT(R2),LINACT
LINACT
14
#3,8DHSCR
€100000, BOHLPR
SDHSLR
14
5S¢
RO
R4, THRD3

tUPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT OONE

157
BNE
MoV
BNE
BR
INC
cHP
BEQ
nov
HT
ENY
SCOPE

34
TWROS, RS
2
2

sCLEAR ACTIVE BIT

+IF ALL LINES ARE DONE
1EXIT
sSELECT LINE 3
;CLEAR AUTO ECHO FOR LINE 3
sGET REST OF CHARACTERS

sAND CHECK

sUPDATE ECHOED CHARACTER COUNT
sCHECK ECHOED DATA

s (RS)=EXPECTED ECHOED DATA
;:ECHOED DATA ERRCR
:CHECKX FOR ITERATIONS. LOOP

LINE=LINE+1

000020
000004

i (RS)=EXPECTED NON ECHOED DATA

:NON ECHOED DATA ERROR

8IC
1518

006200

sIF LINE NUMBER IS 3
;CHECK FOR CORRECT ECHOED CMARACTER
1IF NOT LINE 3, CHECK DATA

8IC

3s:

BITX=BITX+BITX
KX KXo
AUTO2
\LINE,\BITX,\RX
sTRANSHIT A BINARY COUNT PATTERM ON ALL LINES EXCEPT LINE 4

s TRANSMIT 1 CHARACTER OM LINE 4 UITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAWD
;CHARACTER LENGTH IS 8 BITS
iVERIFY THAT CORRECY DATA IS RECEIVED ON ALL LINES
006130
006130
006136
006144

012767
012767
012767

000340
000010
096364

171640
005442
005430

TS \XN,10,5¢
T25:
MOV

000026

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

JSET UP TO LOOP MITH DATA

I %

ENOC

nov

# FREEZ}

nov
JSR

#BIT11,80HSCR
PC,SETALL

006152
006160

#340,PS
€10, ICOUNT
954 ,ESCAPE

MoV
nov
<

XN=XN+1

012777
004767

004000
005242

005360

006164
006172

012777
012777

000004
014320

005346
005346

MoV
Mov

4, Q0HSCR
#TURDA , SOHBA

006200

012777

177777

005342

MOV

#-1,80H8C

3 3

sHASTER CLEAR INTERFACE
tSET UP ALL LINES TO TRANSMIT
1400 (QCTAL) CHARACTERS
1SELECT LINE 4 FOR TESTING
;CHARACTER TO BE TRANSMITTED

tON LINE 4 IN AUTO ECHO MODE
1 TRANSHIT ONLY 1 CHARACTER ON LINE 4

CZDHH-CO

006206
006214
006222
006230
006232
006236
006240
006242
006244
006250
006252
0062354
006260
006262
006266
006270
006274
006274
006276
006300
006304
006306
006314
0C6320
006322
006330
006336
006342
006344
006346
006350

006354
006356
006362
006362
006364

006366

MACRO

012777
042767
012777
005000
01/704
100375
010403
000303
042703
010302
006302
020327
001432
026204
001404
016205

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

V04.00

133503
000020
177717

27-JUN-85

13:04:20 PAGE 23-19

005330
005420
005322

MOV
BIC

MOV

005304

177760
000004

014246
014246

014246

24:

014450
005322

005326

000004
100000
005216

0035210
005206

3s:

005736

BPL
MOV
SWAB
8IC
MOV
ASL
cHP
BEQ
cMP
BEQ
MOV
HLT
EMT
BR
INCB

14
R4 ,R3
R3
9177760,.R3
R3.R2
R2
R3. 04
44
RBUF(R2)
R4
24
RBUF(R2).RS
1
1
44
RBUF (R2)

187

LINACT

MOV

BNE
8I1C

8NE
nov
1518
BNE
B8R

14
&4, BOHSCR

€100000, SOHLPR

SDHSLR
i
S

B8EQ
MOV

K}
THRO4 RS

(3,11

{KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

sGET A CHARACTER FROM SILO
sIF _NOT VALID DATA, TRY AGAIN

iEXTRACT LINE NUMBER FORM CHARACTER

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

14
LINBITC(R2),LINACT

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

iSET AUTO ECHO FOR LINE 4
;CLEAR LINE ACTIVE BIT
;SET BAR BITS FOR ALL LINES

SOHNRC ,R4

INC

104002
104400
000005
000040
000005

€-1,80HBAR

CLR

8IC

4% ;

005744

4133503, 80OHLPR
920,LINACT

SEQ 50

s(R5)=EXPECTED NON ECHOED DATA
:NON ECHOED DATA ERROR
sUPDATE EXPECTED RECEIVEL DATA
;CONTINUE IF NOT OONE
;CLEAR ACTIVE BIT
sIF ALL LINES ARE OONE
sEXIT
sSELECT LINE 4
sCLEAR AUTO ECHO FOR LINE 4
$GEY REST OF CHARACTERS

sAMD CTHEOK

R4, THRDS

sUPDATE ECHOED CHARACTER COUNT
sCHECK ECHOED DATA

s(RS)=EXPECTED ECHOED DATA
sECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

KX=K)Xe1
AUT02
\LINE,\BITX,\XX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LIMES EXCEPT LINE S
t TRANSMIT 1 CHARACTER ON LINE 5 WITH AUTO ECMO ENABLED
s TRANSHISSION SPEED FOR ALL LINES IS 9600 BAWD
1CHARACTER LENGTH IS 8 8ITS
sVERIFY THAT CORRECY DATA IS RECEIVED ON ALL LINES
006366
006366
006374
006402

006410
006416

012767
012767
012767

000027
012777
004767

000340
000010
006622

171402
005204
005172

TS \XN,.10,54
T26:
MOV
MoV
v
JF NB

.ENDC

004000
005004

005122

XN=XN+1

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

1OISABLE ALL INTERRUPTS

MoV

4,.FREEZ}

1SET UP TO LOOP WITH DATA

MOV
JSR

08IT11,80MSCR
PC,SETALL

sMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSHIT

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

: 3

MACRO V04.00

012777
012777

000005
014322

005110
005110

MOV
MOV

05, 90HSCR
#THRDS , 8DHBA

012777
012777

177777
133503

005104
005072

MOV
MoV

#-1,80H8C
#133503, 8DHLPR

MOV

#-1,80HBAR

042767

012777

005000
017704

100375
010403
000303
042703

010302
006302
020327
001432
026204
001404
016205
104001
000423

105262
001352

000040

177777

005162

002046

1¢:

177760

000005
014246
014246

014246

24:
005070

042777
105777

000005
100000
004760

004752
004750

020467

001757
016705

005510

000006

AUTO2

+SET BAR BITS FOR ALL LINES

:KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

8PL
MOV
SWAB

1
R4 ,R3
R3

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

MOV
ASL
CcHP
B8cQ
cMpP
8EQ
MOV
HLT
13,11
BR

R3,R2
R2
R3, 85
44
RBUF(R2) R4
24
RBUF(R2).RS
1
1
44

€177760,R3

;CLEAR STATUS BITS

MOV

INCB
BNE
81C
TST

BNE
oV
BNE
BR
INC
e

BEQ
MoV
HLY
13,14
S¢:
SCOPE
LINE={INE«1
BITX=*BITX+BITX
KX=KX+1

005502

1CLEAR LINE ACTIVE BIT

81C
1518

104002
104400
000006
000100
006624

3s:

40, LINACT

;400 (OCTAL) CHARACTERS
;SELECT LINE S FOR TESTIWG
;CHARACTER TO BE TRANSMITTED
+ON LINE S IN AUTO ECHO MODE
s TRANSHMIT ONLY 1 CHARACTER ON LINE S
;SET AUTO ECHO FOR LINE S

CLR

8IC

014450
005064

001333
000407
005200

8IC

005064

046267
005767

001344
012777

SEQ 51

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

SOHNRC R4

sGET A CHARACTER FROM SILO

1IF LINE NUMBER IS S
1CHECK FOR CORRECT ECHOED CHARACTER
sIF NOT LINE S, CHECK DATA

RBUF (R2)
14
LINBITC(R2),LINACT
LINACT
14
#5,0DHSCR
#100000, SOHLPR
SOHSLR
14

S
RO

R&, TWROS

3
THROS . RS
2
2

s (RS )=EXPECTED NON ECHOED DATA
sNON ECHOED DATA ERROR
sUPDATE EXPECTED RECEIVED DATA
tCONTINUE IF NOT DONE
sCLEAR ACTIVE 817
1IF ALL LINES ARE DONE
sEXIY
$SELECY LINE S
sCLEAR AUTO ECHO FOR LINE S
sGET RESY OF CMARACTERS
1AND CHECX

sUPDATE ECHOED CHARACTER COUNT
1CHECK ECHOED DATA

1{RS)=EXPECTED ECHOED DATA
1ECHOED DATA ERROR

sCHECX FOR ITERATIONS, LOOP

\LINE, \BJITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 6
sTRANSMIT 1 CHARACTER ON LINE 6 WITH AUTO ECHO ENABLED
s TRANSHISSION SPEED FOR ALL LINES X5 9600 BAWD
1CHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECY DATA IS RECEIVED ON ALL LINES
006624

006624
006632

012767
012767
012767

000340
000010
007060

171144
004746
004734

TS \XN,10,5¢

T27:

IF e
.

MoV
MoV
HOV
<>

#340,PS
010, JCOUNT
954 ,ESCAPE

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

CZOHH-CO

MACRO VO4.00

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

ENOC
006646
006654

000030
012777

004000

004767

004546

012777
012777

000006
014324

006674
012777
006702
012777
006710
042767
006716
012777
006724 005000
006726
017704
006732
100375
006734
010403
006736 000303
006740
042703
006744
010302
006746 006302
006750
020327
006754
001432
006756
026204
006762
001404
006764
016205
006770
006770
104001
006772 000423
006774
105262
007000 001352
007002
046267
007010
005767
007014
001344
007016
012777
007024
042777
007032
105777
007036 001333
007040 000407
007042 005200
007044
020467

177777
133503
000100

005254

016705

005246

006660
006666

007050
007052
007056
007056
007060

007062

001757

104002
104400
000007
000200
000007

177777

004564

XN=XN+1

MOV

#,FREEZL

$SET UP TO LOOP WITH DATA

#8iT11,80HSCR

sMASTER CLEAR INTERFACE

JSR

PC,SETALL

004652
004652

MOV
MOV

#6,80HSCR
#TWRD6 , SOHBA

004646
004634
004724

MOV
MOV
81C

¢-1,80H8C
#133503, GDHLPR
€100, LINACT

004626

004610

14:

177760

MOV
CLR
MOV
8PL
MOV
SWAB

SOHNRC . R4
14

nov

R3.R2

8IC

000¢06
014246
014246

2%:

014450
004626

004632

000006
100000

004514
004512

3%:

AUTO2

1GET A CHARACTER FROM SILO
+IF _NOT VALIO DATA, TRY AGAIN

JEXTRACT LINE NUMBER FORM CHARACTER
1CLEAR STATUS BITS

1IF LINE NUMBER IS 6
1CNECK FOR CORRECT ECMOED CHARACTER
+IF NOT LIME 6. CMECK DATA

W (R2)
LI'.IT(IZ) LINACTY
LINACY
1

06 , BOHSCR
4100000, SOHLPR

14
3¢
RO
R4, TURDS
3

eny
358
SCOPE
LINE=LINE+}
BITX=BITX+8ITX
KX=KX+1

1SET BAR BITS FOR ALL LINES
1KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS

1578
SNE
BR
INC
Cre
B8EQ
noy

1400 (OCTAL) CHARACTERS
1SELECT LINE 6 FOR TESTING
sCHARACTER TO BE TRANSMITTED
1ON LINE 6 IN AUTO ECHO MODE
1 TRANSMIT ONLY 1 CHARACTER ON LINE 6
1SET AUTO ECHO FOR LINE 6
tCLEAR LINE ACTIVE BIT

#177760,.R3

EnY
SR
INCB
BNE
8I1c
18T
ONE

TURDG , RS

: 3

1SET UP ALL LINES YO TRANSMIT

R4 .R3
R3

R2
R3, 6
44
RBUF(R2) R4
29
RBUF(R2),RS

Hov
8IcC

4%:

#-1,80HBAR
RO

ASL
Cce
BEQ
cwp
B8EQ
nov
Y

014246

004522

MOV

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

1UPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DOME
tCLEAR ACTIVE 817
+IF ALL LINES ARE DONE
1EXIY
+SELECT LINE 6
;u.en AUTO ECHD FOR LINE 6

$GET REST OF CMARACTERS
1AND CHECXK

sUPDATE ECHOED CHARACTER COUMT
sCHECK ECHOED DATA
s (RS)=EXPECTED ECHOED DATA
tECHOED DATA ERROR

1CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

s TRANSHMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 7
sTRANSMIT 1 CHARACTER OM LINE 7 WITH AUTO ECHO ENABLED
s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAWD
sCHARACTER LENGTH IS 8 BITS
sVERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES

CZ0HH-CO
007062
007062
007070
007076

012767
012767
012767

000340
000010
007316

27-JUN-85

170706
004510
004476

004000

004426

007116
007124

012777
012777

000007
014326

007132
007140
007146
007154
007162
007164
00717C
007172
007174
0C7176
007202
007204
007206
007212
007214
007220
007222

012777
012777

1777177
133503

007226
007226
007230
007232
007236
007240
007246
007252
007254
007262

007270
007274
007276
007300
007302
007306
007310
007314
007314
007316

007320

004767

042767

012777
005000
017704
10037S
010403
000303
042703

004310

000200

177777

\YN,10 7.,

T130:
IF

XN=XNe}

MOV
MOV
MOV

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

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

MOV

4,FREE2)

1SET UP TO LOOP WITH DATA

MOV

PC,SETALL

004414
004414

MOV
MOV

®7 ,80HSCR
#TWRD7 ,8D0HBA

004410
004376

MOV
MOV

#-1,00H8C
9133503, SOHLPR

004370

MoV
CLR
MoV
8PL
MOV
SHAB

#-1,80HBAR
RO
SOHNRC
R4
i
R4 .R3
R3
R3.R2
R2
R3.#7

RBUF(R2),R4

004466

81C

1s:

177760

81C

010302
006302
020327

000007

MGV
ASL
cHp

026204

014246

cHp

016205

014246

MoV

001432
001404

BEQ

8EQ

HT
ey

10400}

000423
105262
001352

014246

2%:

046267
005767

014450
004370

004374

012777

000007

004256

105777
001333
000407
005200
020467
001757

004264

001344
042777

016705

104002
104400
000010
000400

000010

100000

005020
005012

#8IT711,80HSCR

JSR

004352

SEQ S3

13:04:20 PAGE 23 22

LENDC

000031
012777

007104
007112

MACRO VO4.00

3s:

004254

B8R
INCB
BNE
81C
187

BNE

43
RBUF (R2)
18

sCLEAR STATUS BITS
:IF LINE NUMBER IS 7
sCHECK FOR CORRECT ECHOED CHARACTER
;IF NOT LINE 7, CHECK DATA

LINBIT(R2),LINACT
LINACY

SOHSLR
1
53
RO
R4, TURD?
3

4100000, SOHLPR

THRD7 RS

2
2

TRY AGAIN

sEXTRACT LINE NUMBER FORM CHARACTER

1
1

1578
BNE
BR
INC
che
B€Q
MV

;IF NOT VALID DATA,

RBUF (R2).RS

7,90MSCR

1, B
EMY
Ss:
SCOPE
LINE=LINE+L

sMASTER CLEAR INTERFACE
$SET UP ALL LINES TO TRANSMIT
;400 (OCTAL) CHARACTERS
1SELECT LINE 7 FOR TESTING
:CHARACTER TO BE TRANSMITTED
iON LINE 7 IN AUTO ECHO MODE
sTRANSMIT ONLY 1 CHARACTER ON LINE 7
sSET AUTO ECHO FOR LINE 7
;CLEAR LINE ACTIVE BIT
sSET BAR BITS FOR ALL LINES
sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO

#177760.R3

MOV
81C

44 ;

4200, LINACT

: 3

+(R3)-EXPECTED NON ECHOED DATA

iNON ECHOED DATA ERROR

;UPDATE EXPECTED RECEIVED DATA
;CONTINUVE IF NOT DONE
;CLEAR ACTIVE BIT
;IF ALL LINES ARE OONE
EXITY
;SELECTY LINE 7

sCLEAR AUTO ECHO FOR LINE 7?7
1GET REST OF CHARACTERS
;AND CHECK

;UPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA
;(RSI=EXPECTED ECHOED DATA
1ECHOED DATA ERROR
;CHECK FOR ITERATIONS, LOOP

BITX=BITX.BITX

KX=KXel
AUTOZ
\LINE \BITX, \KX
;TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 10

CZDHH-CO

MACRO

VO4.00

27-JUN-85

SEQ 54

13:04:20 PAGE 23-23

1 TRANSMIT 1 CHARACTER ON LINE 10 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
007320
007320
007326
007334

012767
012767
012767

000340
000010
007554

170450
004252
004240

TS \XN,10,5%
T31:
MoV
MOV
MOV
IF N8B
o
MoV
.ENDC
XN=XN+1
MoV
JSR

#340,PS
910, ICOUNT
#54 ,ESCAPE

sDISABLE ALL INTERRUPTS

¢ ,FREEZL

$1SET UP TO LOOP WITH DATA

007342
007350

000032
012777
004767

004000
004052

004170

007354
007362

012777
012777

000010
014330

004156
004156

MOV
MoV

007370
007376
007404
0c7412
0C7:20
007422
007426
007430
007432
007434
007440
0u7442
007444
007450
007452
007456
007460
007464
007464
007466
007470
007474
007476
007504
007510
007512
007520
007526
007532
007534
007536
007540
007544
L7546
007552
007552
007554

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

177777
133503

004152
004140
004230
004132

MOV
MOV
81C
MOV
CLR
MOV
B8PL
MOV
SUA8
81C
MoV
ASL
cw
BEQ

R2
R3, 010
43

Moy

§8UF(R2).R5

104001
000423
105262
001352
046267

005767
001344
012777
042777
105777
001333
000407
005200
020467
001757
016705
104002

104400

000011

000400
1nnmmnm

004114

1%:

177760
000010

cre
BEQ

014246
014246

2s:

014246

014450
004132

004136

000010
100000
004026

004020
004016

3s:

004564
004556

HT
emT
B8R
INCB
BNE
BIC
187
BNE
MoV
BIC
1518
BNE
BR
INC

cHpP
BEQ
MoV
HLT
EMT
S
SCOPE
LINE=LINE+1

#BIT11,8DHSCR
PC,SETALL
#10, 8OHSCR
#TWRD10, SOHBA

€133503,
0 MLPR
#400,LINACT

$SET UP FOR 10 ITERATIONS

iSET UP TO ESCAPE TO NEXT TEST

tHASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT
s400 (OCTAL) CHARACTERS
sSELECT LINE 10 FOR TESTING
sCHARACTER TO BE TRANSMITVED
sON LINE 10 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 10
sSET AUTO ECHO FOR LINE 10
;CLEAR LINE ACTIVE BIY

;SET BAR BITS FOR ALL LINES
+KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO
sIF NOT VALID DATA, TRY AGAIN
;EXTRACT LINE NUMBER FORM CHARACTER

#177760.R3

;CLEAR STATUS BITS

R3,R2

g?UF(RZ).RQ

1
4

;IF LINE NUMBER 1S 10
sCHECX FOR CORRECY ECHOED CHARACTER
+IF NOT LINE 10, CHECX DATA

RBUF(R2)
18
LINBIT(R2),LINACT

kINfiCT
$

#10, BOHSCR
#100000, SGH.PR

SDHSLR

18
St
RO

R4, TWRC10

TWRD10,RS
2
2

1(RS)=EXPECTED NON ECHOED DATA
tNON ECHOED DATA ERROR
;UPDATE EXPECTED RECEIVED DATA

;CONTINUE IF NOT DONE
;SLEAR ACTIVE 817
:YF ALL LINES ARE DONE

SEXIY
:SELECT LINE 10
$CLEAR AUTO ECHO FOR LINE 10
1GET REST OF CHARACTERS
:AND CHECX

tUPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA
1(R5)=EXPECTED ECHOED DATA

;:ECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

CZDHKH-CO

MACRO VO4.00

27-JUN-85

001000

C07556

SEQ 55

13:04:20 PAGE 23 24

BITX*BITX+BITX

000011

KX =KX+l

AUTOR

\LINE,\BITX
\KX
,

1 TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 11
1 TRANSMIT 1 CHARACTER ON LINE 1i WITH AUTO ECHO ENABLED

s TRANSHISSION SPEED FOR ALL LINES IS 9600 BAUD

sCHARACTER LENGTH IS 8 BITS

sVERIFY 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%
T132:
MOV
MoV

.IF N8

.ENDC

#340,PS
€10, ICOUNT
54 ,ESCAPE

sOISABLE ALL INTERRUPTS
sSET UP FOR 10 ITERATIONS
sSET UP TO ESCAPE TO NEXT TEST

MoV

¢, FREEZL

1SET UP TO LOOP WITh DATA

MOV
JSR

BIT11,00HSCR
PC.SETALL

sHASTER CLEAR INTERFACE

#11,80HSCR
#TWRD11,80HBA

;SET UP ALL LINES TO TRANSMIT
1400 (OCYAL) CHARACTERS
sSELECT LINE 11 FOR TESTING
;CHARACTER TO BE TRANSMITTED

4133503, GDHLPR
#1C00,LINACY
:61.EDHBAR

s TRANSMIT ONLY 1 CHARACTER OM LINE i1
sSET AUTO ECHO FOR LINE 11
:CLEAR LINE ACTIVE BIT
;SET BAR BITS FOR ALL LINES

MOV
<>

007600
007606

000033
012777
004767

004000
003614

003732

007612
007620

012777
012777

000011
014332

003720
003720

HO\
MoV

007626
007634
007642
007650
007656
007660
007664
007666
007670
0C7672
007676
007700
007702
007706
007710
007714
007716

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

11
133503
001000
177777

003714
003702
003772
003674

MoV
Hov
8IC
MoV
CLR
MOV
8PL
v
SWAB
8IC
MoV

007722
007722
007724
007726
007732
007734
007742
007746
007750
007764

007770

007772
007774
007776
610002

104001
000423
105262
001352
046267
005767
001344
012777
042777

105777
001333
000407
005200
020467
001757

003656

XN=XN+1

1%:

177760

ASL

000011

014246

2%:

014246

014450
003674

00370C

000011
100000
003570

003562
003560

3s:

004330

sEXTRACT LINE MUMBER FORM CHARACTER

9177760,R3

R3.0n1

8EQ
nov

?\F(RZ).RS

enT
BR
INCB
BNE
81C
TS7
BNE
HOV
81C
7578
BNE
B8R
INC
Che
BEQ

sGET A CHARACTER FROM SILO
:IF NOT VALID DATA, TRY AGAIN

sCLEAR STATUS BITS

R3.R2
43

iKEEP COUNT OF NUMPER OF RECEZIVED CHARACTERS

, R4
SOHNRC
14
R4 ,R3
R3

cw
8EQ

cre

014246

;ON LINE 11 IN AUTO ECHO MODE

g%UF(R2).R4

sIF LINE NUMBER IS 11
;CHECK FOR CORRECT ECHOED CHARACTER
:IF NOT LINE 11, CHECK DATA

1
41

RBUF(R2)

1%
LINBIT(R2) ,LINACY
LINACY
1s
#11.QOHSCR
#100000, SOH.PR

SOHSLR

14
34
RO

R4, TWRDL1

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

sUPCATE EXPECTED RECEIVED OATA
;CONTINUE IF NOT DONE
;CLEAR ACTIVE BIT
sIF ALL LINES ARE OONE
1EXIT
;SELECT LINE 1%
;CLEAR AUTO ECHO FOR LINE 1t
;GEYT REST OF CHARACTERS
sAND CHECK
;UPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA

CZ0HH-CO

010004
010010
010010
010012

010014

MACRO VO4.00

016705

SEQ S6

27 JUN 85 13:04:20 PAGE 23 25

004322

MOV
TWRD11,R5
HLY
2
EMT
2
S$:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KXsKX+1
AUTO2
\LINE,\BITX,\KX

104002
104400
000012
002000
000012

; (R5)=EXPECTED ECHOED DATA
:ECHOED DATA ERROR
;CHECK FOR ITERATIONS,

LOOP

s 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
sCHARACTER LENGTH IS 8 BITS
{VERIFY THAT CORRECT DATR IS RECEIVED ON ALL LINES
010014
010014
010022
010030

012767
012757
012767

000340
000010
010250

167754
003556
003544

TS \XN,10,54
T33:
MOV
MOV
o
MoV
.

.ENDC

010036
010044

020034
012777
004767

004000
003356

003474

010050
010056

012777
012777

000012
014334

003462
003462

010064
010072
010100
010106
010114
010116
010122
010124
012126
210130
010134
010136
010140
010144
010146
010152
010154
010160
010160
010162
010164
010170
010172
610200
010204
16206
010214
010222

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

1777717
133503
002000
mnn

003456
003444
003534
003436

104001
000423
105262
001352
046267
005767
001344
012777
042777
105777

XN=XN+1

HOV

#-1,80H8C
9133503, GOHLPR

MOV
CLR

4-1,80HBAR
/0

Hov
BPL

014450
003436

003442

000012
100000
003332

003324
003322

3%:

#2000, LINACT

MoV

RBUF(R2).R5

EMT

BR
INCB
BNE
81c
75T
BNE
Mov
BIC
TS18

;SELECT LINE 12 FOR TESTING

;ON LINE 12 IN AUTO ECHO MODE

s TRANSMIYT ONLY 1 CHARACTER ON LINE 12
sSET AUTO ECHO FOR LINE 12

;CLEAR LINE ACTIVE BIT

sSET BAR BITS FOR ALL LINES
sKEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROM SILO
;IF NOT VALID DATA, TRY AGAIN

:EXTRACT LINE NUMBER FORM CHARACTER

#177760,R3

RS, 012
44

gW(RZ).RQ

1CLEAR STATUS BIYS

:IF LINE NUMBER IS 12
;CHECK FOR CORRECT ECHOEC CHARACTER

49
RBUF (R2)
14
LINBIT(R2),LINACT

LINACY
1s
#12,80HSCR
4100000, SOHLPR
SOHSLR

;CHARACYER TO BE TRANSMITTED

:;.RS

R3,R2
R2

;

:SET UP ALL LINES TO TRANSMIY
;400 (OCTAL) CHARACTERS

SOHNRC R4
14

cHp
BEQ

HLY
2%:

#THRD12,80HBA

MoV
MOV

gefé

014246

sMASTER CLEAR INTERFACE

#12,.80MSCR

8IC

014246

#B81T11,80HSCR

MOV

L)
ASL

014246

sSET UP TO LOOP WITH DATA

PC.SETALL

SHQXB

000012

¢.FREEZL

JSR

BIC

177760

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

MOV

1%:

003420

9340,PS
10, ICOUNT
53 ,ESCAPE

1IF NOT LINE 12, CHECK DATA

s(RS)=EXPECTED NON ECHOED DATA

tNON ECHOED DATA ERROR

sUPDATE EXPECTED RECEIVED DATA
;CONTINVE IF NOT OONE
1CLEAR ACTIVE BIT

+IF _ALL LINES ARE DONE
(EXIT
1SELECT LINE 12
:CLEAR AUTQO ECHO FOR LINE 12
$GET REST OF CHARACTERS

CZ0HH-CO
010226
010230
010232
010234
010240
010242
010246
0i0246
010250

010252

MACRO vV04.00

001333
000407
005200
020467
001757
016705

27-JUN-85

4% :

004074

004066

104002
1044060
000013
004000
000013

SEQ 57

13:04:20 PAGE 23 26

5%¢:

BNE
BR
INC

cMP
BEQ
MOV
HLT
EMT

SCOPE

14
St

;AND CHECK

sUPDATE ECHOED CHARACTFR COUNT

R4 ,TWRD12
3
TWRD12,R5
2
2

iCHECK ECHOED DATA

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

LINE=LINE+1
BITX=BITX+BITX

KX=sKX+1
AUTC2
\LINE,\BITX,\KX

; TRANSHMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINt 13
s TRANSMIT 1 CHARACTER ON LINE 13 WITH AUTO ECHO ENABLED
s TRANSHISSION SPEED FOR ALL LINES IS 9600 BAUD

;CHARACTER LENGTH IS 8 BITS
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
010252
010252
010260
010266

012767
012767
012767

000340
000010
010506

167516
003320
003306

010274
010302

000035
012777
004767

04000
003120

003236

010306
010314

012777
012777

000013
014336

003224
003224

10322
010330
010336
010344
010352
010354
010360
010362
010364
010366
010372
010374
010376
010402
010404
010410
010412
010416
010416
010420
010422
010426
010430

012777
012777
042767
012777
005000
017704
100375
010403
000303
042703

177777
133503

003220
003206
003276
003200

010302
006302
020327
001432
026204
001404
016205

104001
000423
105262
001352
046267

004000

177117

TS \XN,10,5%
T34:
MoV
MoV
MOV
FNB

.ENDC
XN=XN+}

177760

MOV

# . FREEZ}L

+SET UP TO LOOP WITH DATA

MoV
JSR

#8IT11,80HSCR
PC,SETALL

Hov

#13, SOHSCR

MOV

9133503, GOHLPR

014246

2¢:
003204

4TURDL13.SDHBA

8I1C
Moy

#4000, LINACT
#-1,8DHBAR

Moy

GOHMRC R4

CLR

8PL
MoV
SWAB
BIC
MOV

ASL

000013

014450

iDISABLE ALL INTERRUPTS
iSET UP FOR 10 ITERATIONS

MoV

1s:

003162

9340,PS
€10, ICOUNT
454 ESCAPE

cnp
BEQ
e
BEQ
MoV
HLT
EMY
BR
INCB
BNE

8I1C

1
R4 ,R3
R3
#177760,R3
R3.R2

RS, 013
43
RBUF(R2),R4
24
RBUF(R2).RS
1
1
43
RBUF(R2)
14

;SET UP TO ESCAPE T0 NEXT TEST
i 3

sMASTER CLEAR INTERFACE
3SET UP ALL LINES TO TRANSMIT
1400 (UCTAL) CHARACTERS
:SELECT LINE 13 FOR TESTING
sCHARACTER TO BE TRANSMITTED
sON LINE 13 IN AUTO ECHO MODE
;TRANSHMIT ONLY 1 CHARACTER ON LINE 13
;SET AUTO ECHO FOR LINE 13
1CLEAR LINE ACTIVE 81T
;SET BAR BITS FOR ALL LINES
;KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
sGET A CHARACTER FROW SILO
1IJF _NOT VALID DATA, TRY AGAIN
1EXTRACY LINE NUMBER FORM CHARACTER

;CLEAR STATUS BITS
11F LINE NUMBER IS 13
;:CHECK FOR CORRECT ECHOED CHARACTER
:IF NOT LINE 13, CHECK DATA

LINBIT(R2),LINACT

1 (R5)=EXPECTED NON ECHOED DATA

$NON ECHOED DATA ERROR

;UPDATE EXPECTED RECEIVED DATA
sCONTINUE IF NOT DONE
iCLEAR ACTIVE BIT

CZDOHH-CO
010436
010442
010444
010452
010460
010464
010466
010470
010472
010476
010500
010504
010504
010506

010510

MACRO vV04.00

005767

003200

012777
042777

000013
100000

001344

105777
001333
000407
005200

020467

001757
016705

003074

SEQ 58

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

003066
003064

4%:

003640

003632

104002

LINACT

;IF ALL LINES ARE DONE

MOV
8IC

#13,80HSCR
#100000, BDHLPR

;SELECT LINE 13
;+CLEAR AUTO ECHO FOR LINE 13

BNE

15718
BNE
B8R
INC

8DHSLR
14
5%
RC

BEQ
MOV
HLT

34
TWRD13,RS
2

CMP

EMT

104400
000014
010000

S%:
SCOPE
LINE-LINE+1
BITX=BITX+BITX

000014

KX=KX+1
AUT02

R4,TWRD13

SEXIT

:GET REST NF CHARACTERS
:AND CHECK

sUPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA

;(RS)=EXPECTED ECHOED DATA
;ECHOCD DATA ERROR

;CHECK FOR ITERATIONS, LOOP

\LINE,\BITX,\KX

s TRANSMIT A BINARY COUNT PATTERN ON ALL LIMNES EXCEPT LINE 14
s TRANSMIT 1 CHARACTER ON LINE 14 WITH AUTO ECHO ENABLED
: TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
;CHARACTER LENGTH IS 8 BITS
;VERIFY THAT CORRECT DATA IS RECEIVED ON ALL LINES
010510
010310
010516
010524

012767
012767
012767

000340
000010
010744

167260
003062
003050

TS \XN,10,5%

T35:

MOV
MOV
MOV

ENDC

MoV

#,FREEZL

;SET UP TO LOOP WITH DATA

MOV
JSR

#BIT11,8DHSCR
PC,SETALL

;MASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIT

000036
012777

#340,PS
€10, ICOUNT
954 ,ESCAPE

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

XN=XN+1

004767

004000
002662

003000

010544
010552

012777
012777

000014
014340

002766
002766

MOV
MOV

#14,80HSCR
#THRD14, SDHBA

010560
010566
010574
010602
010610
010612
010616
010620
010622
010624
010630
010632
010634
010640
010642
010646
010650
010654

012777
012777

177777
133503

002762
002750

MOV
MOV

#-1,80HBC
#133503, S0HLPR

177777

002742

MOV
CLR
MOV
8PL
MOV
SUAB
B8IC
MOV
ASL
cHP
BEQ
cHp
BEQ
Mov
HLT

#-1,80HBAR
RO
SOHNRC ,R4
1s
R4 .R3
R3
#177760,R3
R3.R2
R2
R3,. 014
44

010532
010540

042767

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

010000

002724

177760

000014
014246
014246

003040

BIC

1%:

#10000,LINACT

RBUF(R2) ,R4
24
RBUF(R2),RS
1

: 3

;400 (OCTAL) CHARACTERS

$SELECT LINE 14 FOR TESTING
sCHARACTER TO BE TRANSMITTED
;ON LINE 14 IN AUTO ECHO MODE
s TRANSMIT ONLY 1 CHARACTER ON LINE 14
sSET AUTO ECHO FOR LIME 14
;CLEAR 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

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

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

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
046267
005767
001344
012777
042777
105777
001333
000407
005200
020467
001757
016705

27-JUUN-85

014246
014450
002742

002746

000014
100000
002636

002630
002626

003404

003376

104002
104400
000015
020000
0¢0015

SEQ 59

J4:20 PAGE 23-28

EMT
1
44
BR
INCB
2%:
RBUF (R2)
BNE
14
8IC
LINBIT(R2),LINACT
ST
34
LINACT
BNE
1s
414, 8DHSCR
MOV
#100000, 8DHLPR
8IC
7578
80HSLR
BNE
14
BR
5
4%:
RO
INC
CMP
R4 ,TWRD14
BEQ
3
MOV
TWRD14 ,R5
HLT
2
EMT
2
5%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTO2
\LINE, \BITX, \KX

;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
;GET REST OF CHARACTERS
;AND CHECK

CZ0HH-CO

;UPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA

; (RS)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR
;CHECK FOR ITERATIONS

LOOP

; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 15
:TRANSMIT 1 CHARACTER ON LINE 1S 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
010746
010746
010754
010762

012767
012767
012767

000340
000010
011202

167022
002624
002612

TS \XN,10,5¢
T36:
MOV
MOV
MOV
<>
.IF NB
MOV
.ENDC
XN=XN+1
MOV
JSR

#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

010770
010776

000037
012777
004767

004000
002424

002542

011002
011010

012777
012777

000015
014342

002530
002530

MOV
MOV

#15.80HSCR
#TWRD15, 8DHBA

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

012777
012777
042767
012777
005000
017704
100375
010403
000303
042703
010302
006302
020327

177777
133503

0N2524
002512
002602
002504

MOV
MOV
BIC
MOV
CLR
Moy
BPL
MoV
SWAB
8IC
MOV

¢-1,80H8C
#133503, SOHLPR
#20000,LINACT
¢-1,80HBAR
RO
SOHNRC ,R4
14
R4 ,R3
R3
#177760,R3
R3.R2
R2
R3,415

020000

17771717

002466

177760
000015

1s:

ASL

cHp

#8IT11,80HSCR

PC,SETALL

i 3

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

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

011200
011200
011202

011204

1IACRO vO4.00

1422
026204
001404
016205

104001
000423
105262
001352
046267
005767
001344
012777
042777

105777
001373

000407
005200
020467
001757
016705

27-JUN-85

8EQ
cHP
BEQ
MOV
HLT

01424€

014246

2¢:

014450
002504

002510

000015
100000

002372
002370

002400

3%:

003150

003142

EMT
BR
INCB
BNE
JIC
T57
8NE
MOV
BIC
1578
BNE
BR
INC
CHP
BEQ
MOV

HWT

104002
104400
000016
040000
000316

SEQ 60

13:04:20 PAGE 23-29

EMT
5%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTO2

44
RBUF(R2),R4
2¢
RBUF (R2),RS
1

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

: (RS)-EXPECTED NON ECHOED DATA

1
43
RBUr (R2)
14
LINBIV(R2),LINACT
LINACY
14
#15,8DHSCR
2100000, 8OHLPR

8DHSLR
1s

S
RO
R4,TWRD1S
34
TWRD1S,RS

2
2

;NON ECHOED DATA ERROR

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

;IF ALL LINES ARE DONE
sEXIT
:SELECT LINE 1S
:CLEAR AUTO ECHO FOR LINE 15

iGET REST OF CHARACTERS
:AND CHECK

;UPDATE ECHOED CHARACTER COUNT
:CHECK ECHOED DATA

i (RS)=EXPECTED ECHOED DATA

:ECHOED DATA ERROR

;CHECK FOR ITERATIONS,

LOOP

\LINE,\BITX,\KX

; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES EXCEPT LINE 16
+ TRANSMIT 1 CHARACTER ON LINE 16 WITH AUTO ECHO ENABLED
; TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
:CHARACTER LENGTH IS 8 BITS
;VERIFY THAT CORRECT DATA IS RECEIVED CON ALL LINES
011204
011204
011212
011220

012767
012767
012767

000340
000010
011440

166564
002366
002354

TS \¥N,10,5¢
T37:
MOV
MOV
IF N
MOV
.

000040

012777

00G4000

002304

011240
011246

012777
012777

000016
014344

011254
011262
011270
011276
011304
011306
011312
011314

012777
012777
042767
012777
005000
017704
100375
010403

177777
133503
040000
177777

004767

002166

002230

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

#,FREEZL

;:SET UP 7D LOOP WITH DATA

ENOC
011226
011234

#340,PS
#10, ICOUNT
#53 ,ESCAPE

XN=XN+1

MOV

#81IT11,80HSCR

JSR

PC,SETALL

002272
002272

MOV
MOV

#16, 8OHSCR
#TWRD16,80HBA

002266
002254
002344
002246

MOV
Mov
BIC
MoV
CLR
MOV
8PL
MOV

#-1,80HBC
#133503, SOHLPR
440000, LINACT
#-1,80HBAR
RO
SOHNRC ,R4
14
R4 ,R3

1s:

;MASTER CLEAR INTERFACE

:SET 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 LINF 16
;CLEAR 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
;EXTRACT LINE NUMBER FORM CHARACTER

CZDHH-CO
011316
011320
011324
011326
011330
011334
011336
011342

011344

011350
011350
011352
011354
011360
011362
011370

011374
011376

011404
011412
011416
011420
011422
011424
011430
011432
011436
011436
011440

011442

MACRO V04.00 27-JUN-85 13:04:20 PAGE 23-30
000303
042703
010302
006302
020327
001432
026204
001404
016205
104001
000423
105262
001352
046267
005767
001344
012777
042777
135777
001333
000407
005200
020467
001757
016705

177760

000016
014246

014246

24:

014450
002246

002252

000016
100000
002142

002134
002132

SWAB
8IC
MOV
ASL
cMP
BEQ
CHP
BEQ
MOV
HLT
EMT
BR
INCB

BNE
BIC
TST
BNE
MOV
8IC
TST8
BNE
BR

R3
#177760,R3
R3,R2
R2
R3,v16
43
RBUF(R2),R4
2%
RBUF (R2) ,RS
1

002706

104002
104400
000017
100000

000017

;CLEAR STATUS BITS

:IF LINE NUMBER IS 16
:CHECK FOR CORRECT E£CHOED CHARACTER
;IF NOT LINE 36, CHECK DATA
; (RS)=EXPECTED NON ECHOEC DATA

1
44
RBUF (R2)
14
LINBIT(R2),LINACT
LINACT
14
916, BOHSCR
9100000, 8OHLPR
SDHSLR
1
5
RO
R4, TWRD16
3
TWRD16 .RS
2
2

INC
cHp
BEQ
MoV
HT
EMT
5%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
KX=KX+1
AUTO2
\LINE,\BITX,\KX

002714

SEQ 81

;NON ECHOED DATA ERROR

:UPDATE EXPECTED RECEIVED DATA
;CONTINUE IF NOT DONE
sCLEAR ACTIVE BIT
;IF ALL LINES ARE DONE
JEXIT
sSELECT LINE 16
:CLEAR AUTO ECHC FOR LIMNE .6
;GET REST OF CHARACTERS
+AND CHECK
sUPDATE ECHOED CHARACTER COUNT
;CHECK ECHOED DATA

1 (R3)=EXPECTED ECHOED DATA
;ECHOED DATA ERROR
;CHECK FOR ITERATIONS,

LOOP

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

s TRANSM1T 1 CHARACTER ON LINE 17 WITH AUTO ECHO ENABLED

s TRANSMISSION SPEED FOR ALL LINES IS 9600 BAUD
;CHARACTER LFNGTH IS 8 BITS
sVERIFY THAY CORRECT DATA IS RECEIVED ON ALL LINES
11442
011442
011450
011456

012767
012767
012767

000340
000010
011676

166326
002130
002116

TS \XN.10,5%
TA40:
MoV
MOV
IF N8
Hov
.

#340,P5
#10, ICOUNT
054 ,ESCAPE

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

nov

¢,FREEZ1

1SET UP TO LOOP MITH DATA

MOV
JSR

#BIT11,80HSCR
PC,SETALL

£r0C
AN=XN¢1

011464
011472

000041
012777
004767

004000
001730

002046

011476
011504

012777
012777

000017
014346

002034
002034

MOV
MoV

17, BDHSCR
#TURD17,80HBA

iMASTER CLEAR INTERFACE
sSET UP ALL LINES TO TRANSMIY
1400 C(OCTAL) CHARACTERS
sSELECT LINE 17 FOR TESTING
;CHARACTER TO BE TRANSMITTED

011512
011520
011526

012777
012777
042767

177777
133503
100000

002030
002016
002106

MoV
MOV
BIC

sTRANSHMIT ONLY 1 CHARACTER ON LINE 17
:SET AUTO ECHO FOR LINE 17
;CLEAR LINE ACTIVE BIT

tON LINE 17 IN AUTO ECHO MODE

CZOHH-CO

011534
011542
011544
011550
011552
911554
011556
011562
011564
011566
011572
011574
011600
011602
011606
011606
C11610
011612
011616
011620
011626
011632
011634
011642
011650

011654
011656
011660
011662
011666
011670
011674
011674
011676

MACRO VO4.00

012777
005000
017704
100375
010403
000303
042703
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

177777

002010

001772

14:

177760

000017
014246
014246

014246

2%:

014450
002010

002014

000017
100000
001704

001676
001674

002460
002452

SEQ 62

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

3s:

MOV
CLR
MoV
BPL
MOV
SWAB
8IC
MOV
ASL
cMP
6EQ
cHP
BEQ
:8¥

€-1,90HBAR
RO
SOHNRC ,R4
14
R4,R3
R3
9177760,R3
R3,R2
R2
R3,017
44
RBUF(R2),R4
24
qBUF(R2).R5

EMTY
B8R

1
43

INCB
BNE
8IC
757
8NE
M
Y.
1378
BNE
BR
INC
cne
BEQ
nov

EMT
58:
SCOPE
LINE=LINE.1
BITX=BITX+BITX
KX=KXe
3

;SET BAR BITS FOR ALL LINES
{KEEP COUNT OF NUMBER OF RECEIVED CHARACTERS
:GET A CHARACTER FROM SILO
+IF NOT VALID DATA, TRY AGAIN
;EXTRACT LINE NUMBER FORM CHARACTER

;CLEAR STATUS BITS
s IF LINE NUMBER IS 17
1CHECK FOR CORRECT ECHOED CHARACTER
:IF NOT LINE 17, CHECK DATA

RBUF(R2)
13
LINBIT(R2),LINACT
LINACT
14
#17,80HSCR
400000, SOHLPR
SDHSLR
1s
S

RO
R4, TURDLY?
3
TWRD17
RS

; (RS)=EXPECTED NON ECHOED OATA
sNON ECHOED DATA ERROR
tUPDATE EXPECTED RECEIVED DATA
;CONTINUE IF NOT DONE
sCLEAR ACTIVE B1Y
sIF ALL LINES ARE DONE
JEXIT
;SELECT LINE 17

;sCLEAR AUTO ECHO FOR LINE 17
sGEY RESY OF CHARACTERS
sAND CHECK

;UPDATE ECHOED CMARACTER COUNT
;CHECK ECHOED DATA
s (R5)=EXPECTED ECHOED DATA
:ECHOED DATA ERROR

;CHECK FOR ITERATIONS, LOOP

CZOHK-CO

MACRO V04.00

SEA 63

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

; TRANSMIT

2
S 011700
011700
011706
011714

012767
012767
012767

000340
000100
012130

166070
001672
001660

TS \XN,100,5¢
T41:
MoV
MOV
IF N
MOV
.

CHARACTER

EACH

LINE

6 011722
7 011730
8 011734
9 011740
10 011744

11 011750
12 011754
13 011762
14 011770
15 011772
16 011776
17 012002
18 012004

000042

012777
012700
012701
012702
012703

010177
012777
012777
005022
012723
062701
005300
001361

004000
000020
014310
014350
014410

0015-2
177777
131403

001610

(00100
000002

012767

177777

001630

21 012014
22 012022
23 012026
24 012030
25 012034

012777
105777
100375
017704
010403

177777
001512

001530

26 012036

27 012040
28 012044
29 012046

30 012050
31 012054
32 012060
33 012062
34 012066

012066
35 012070
36 012072
012076
012100
012102
012106

41 012114

42 012122
43 012126
44 012130

000303

042703
(10302
006302

005262
020462
001404
016205
104002
000417
005362
003351
100413
010377
042777

046267

005767
001335
104400

1$:

2%:

001506

014350
014310

1SET UP TO LOOP WITH DATA

MOV
MOV

#8IT11,80HSCR
#20,R0
#TWRDO ,R1
#RCNTO,R2
SROCTO,R3

;MASTER CLEAR INTERFACE
iSET UP PARAME [ERS FOR 16 LINES

¢-1,AEACT

sINDICATE AUTO ECHO ACTIVE

MOV
1518
8PL
Mov
MGV

4-1,80HBAR
SDHSCR
29
SOHNRC , R4
R4 .R3

:SET BAR BITS FOR ALL LINES
;WALT FOR A CHARACTER

8IC
v
ASL

#177760,R3
R3.R2
R2

JEXTRACT LINE MPBER

014310

RCNTO(R2)
R4, TWROC(R2)
34
THRDO(R2) . RS

014410

EMT
BR
DEC

2
S
ROCTO(R2)

8IC

LINBIT(R2),AEACT

001432

100000

014450

001516

001430
001522

5%:

tRECEIVED CHARACTER COUNT

R1,80HBA
¢-1,80H8C
#131403, QOHLPR
(R2)»
#100,(R3).
°2.R1
RO
14

BGY
ol
MoV
BIC
187
BNE
SCOPE

24
5S¢
R3,80MSCR
#100000, BOHLPR
AEACT
23

i 3

sCHARACTER TO BE TRANSMITTED

MoV
MoV
MOV
MoV
CLR
MOV
ADO
DEC
BNE
Hov

INC
Ce
BEQ
MOV

ENABLED

¢, FREEZL

SWAB

177760

ECHO

MoV

MOV

001566
001554

AUTO

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

MOV

19 012006

XN=XN+1

WITH

#340,PS
#4100, ICOUNT
#54 ,ESCAPE

ENOC

37
38
39
40

tRECEIVE 64 CHARACTERS ON EACH LINE

sEXPECTED NUMBER OF CHARACTERS
iLOAD BUS ADDRESS
sLOAD BYTE COUNT
$SET AUTO ECHO
1CLEAR RECEIVED CHARACTER COUNT
1*NUMBER OF CHARACTERS TO RE RECELVED
s ADVANCE POINTER
;sCONTINUE IF NOT DONE
iFOR ALL LINES

;GET CHARACTER

1UPDATE RECEIVED COUNT FOR LINE
1CHECKX EXPECTED AND RECEIVED DATA
1(RS)=EXPECTED ECHOED DATA
1AUTO ECHO ERROR

sUPDATE RECEIVED EXPECTED COUNT
tCONTINVE IF NOT O
1tEXIT JOF NEGATIVE
+SELECT LINE THAT FINISHED

sCLEAR AUTO ECHO

tCLEAR AUTO ECHO ACTIVE

1ALL LINES DONE
+IF NOT, CONTINUE
1CHECK FOR ITERATIONS, LOOP

Ritianc
il itk S

CZDHH-CO

MACRO VO4.00

SEQ 64

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

1
2 012132

.EOP

t/BEGIN/

:END OF PASS
1TYPE NAME OF TEST
sUPDATE PASS COUNT
;CHECK FOR EXIT TO ACT-11
tRESTART TEST

PASARG

016767

001376

013701
001405
000005
004711
000240
000240
000240
000167
000001
006
013574

000042

166602

2%:
33

LOGICAL:

B8R

+ CONTINUE

MOV

PASCNT ,LIGHTS

sDISPLAY PASS COUNT

MOV
BEQ
RESET

9042 .R1
RESTRT

1CHECK FOR ACT-11 OR DOP
1IF NOT, CONTINUE TESTING

NOP
NOP
NOP
RESTRT: P

167062

PASARG:

002

.SCOPE

3 PRINT PASSCOUNT

LHORD
.BYTE

.WORD

JSR

032777
001030
0327717
001021
0327717
001006
005267
026767
001007
005067
005067
011667
000002
016716
000002
005767
001745

002000

166540

040000

166530

004000

166520

001322
001316

001312

SCOPER: BIT
BNE
1s:
BIT
BNE
817
BNE
INC

cne

001306
001264
00126€

24:

001260

34:

001244

BNE
CLR
CLR
nov
RTI
MOV
RYI
TST
8EQ

BEGIN

1
6,2
PASCNT

#5410, SR
43

oSW14, BSHR
34
#5411, 85WR
24
LPCNY
LPONT, ICOUNT
34
LPCNT
ERRFLG
(SP),RETRN
RETRN, (SP)

ERRFLG
14

PC.(RY)

:CHECK FOR LOOP ON CURRENY TESY
sCHECK FOR ITERATION SUPPRESSION
012232
012240
012242
012250
012252
012260
012262
012266
012274
012276
012302
012306
012312
012314
012320
012322
012326

2AUNOCS

OCTASC

104402
012224
000403

TYPE PASCOUNT MESSAGE

bbb

PASTXT

;CLEAR LAST ERROR PC
+CLEAR ERROR FLAG
$UPDAYE PASS COUNT
s ARE ME USING LIGHMTS?
+ BRANCH IF WE ARE

LAST
ERRFLG
PASCNT
LIGHTS
24

;TYPE NAME OF TEST

001474
001424
001422
166624

TYPE

MEPASS
CLR
CLR
INC
TS7
8NE
TYPE

012200
012204
012206
012210
012212
012214
012216
012220
012224
012226
012230
3 012232

003067
005067
005267
005767
001905
104401
015077

EOP:

i PARAMETERS TO PRINT PASSCOUNT

uawn

012200

104401

015064

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

4 ; 6

CZ0HH-Co

012330

4 012332

MACRO V04.00

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

000762

.SCoP1

SEQ 65

;CHECK FOR FREEZE ON CURRENT DATA
012332
012340
012342
012346

032777
001402
016716
000002

001000

001236

166440

SCOP1R:

1%:

BIT
BEQ
MoV
RTI

#5H09, BSWR
14
FREEZ1,(SP)

CZOHH-CO

MACRO VO4.00

Jtd

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

1 012350

.ERROR

1ERROR HANDLER

012350

020000

001055
021667
001404

012372
012376

005067
104406

001174

162705

000002

012366

012400
012402

012406

011667

011605

011504

166422

ERRORS: BIT

001252

001244

HALTS
(SP),LAST
14

CLR
SAVOSP

ERRFLG

suB

02,RS

ASL
ASL

R4
R4

MOV
18:

#5W13, BSWR

BNE
e
BEQ

MOV

HOV

(SP).RS

(RS),R4

006304
006304
042704

177001

BIC

012420

062704

015216

ADD

SERRTAB,
R4

TST
BEQ
ST

ERRFLG
TYPHSG
DATABP

012424
012430

012467
011467

012434
012440
012442

005767
001403
005767

012450

104401

012446

012452
012454

001011
012554

012466
012470
012472

104401
000000
005767

001132
000040

TYPMSG:

012767

000001

001404
104401
014774

012512

005777

166262

016600

000002

104402
000000
104407

12516
012520

100095
010046

012526
012530
012532

000000
012600
005267

012544
012546

001402
016716

012522

012536
012552
013854

012556

012560

032777
000002
“0C50!

006

013630

001040

002000

001030

002

BNE

TYPE

ERRMSG:
TYPOAT:

RESREG

TST

8PL
PUSHRO

8IT

;S
;5

SSuR

EXITER

2(5P),RO
ERRCNT

#5410, SSWR

13
ESCAPE, (SP)

.BYTE

6,2

SAVPC

DATABP

8EQ
Mov
RTI
1

;3
T 5
: 5

BEQ
TYPE
MCRLF

HALT
POPRO
EXITER: INC

13:
ERTABO:

TYPDAT

#1 ERRFLG

TYPE
0
TST

MoV

166234

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

mov

OCTASC
DATABP: O
RESREG: RESOS

HALTS:

#177001,R4

MCRLF
OCTASC

ERTABO

001104

000010

012476
012500
012502
012504
012506
012510

MOV
MOV

014774
104402

012456

012460

000040
000052

. 4

(SP),LAST

012410
012412
012414

-y

032777

012356
012360
012364

: 4

CZOHH-CO

MACRO

VO4.00

27-JUN 385

012562

13:04:20 PAGE

.TRPSRV
s TRAP DISPATCH SERVICE

$ARGUMENT OF TRAF IS EXTRACTED
sAND USED AS OFFSET TO OBTAIN POINTER
;7O SELECTED SUBROUTINE
012562
012564
012570
012574
012576
012602
012606
012612
2 012614

TRPSRV:

011646

162716
017616
006316

042716
062716
017616
000136

000002
000000

TRPOK:

177001
015136

000000

.SAVREG

MOV
SuB
MOV
ASL
8IC
ADD
MOV
JHP

(SP),-(SP)
92,(SP)
8(SP),(SP)
(SP)
€177001, (SP)
ATRPTAB, (SP)
8(SP),(SP)
8(SP).

;GET PC OF RETURN
1=PC OF TRAP
:GET TRP
sMULTIPLY TRAP ARG BY 2
iCLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
s SUBROUTINE ADDRESS
;GO0 TO SUBROUTINE

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

016667

000004

001006

SVOSP:

MoV

4(SP),SAVPC

sSAVE RO-RS
012622
012626
012632
012636
012642
012646
012652
3 012654

010567
010467
010367
010267
010167
010067
000002

012654

016700
016701
016702

012660

012664
012670
012674
012700
012704

016703
016704
016705
000002

000776
000770
000762
000754
000746
000740

SV0S:

.RESREG

000732
000730
000726
000724
200722
000720

RS0S:

MOV
MoV
MoV
MOV
MOV
MOV
RTI

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

sRESTORE RO-RS
MoV
nov
MoV
MOV
MOV

MoV
RTI

SAVRO,RO
SAVR1,RL
SAVR2,R2
SAVR3,R3
SAVRA R4
SAVRS RS

CZ0mn-CO

MACRO

v04.00

otd 68

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

1 012706

.TYPER

s TELETYPE OUTPUT ROUTINE
012706
012712
012716
012722
012724
012726
012730
012732
012736
2 01274C

017605
062716

105777
100375
105715

001001
000002
112577
000757

000000
000002

TYPER:

000612

i K

200600

23:
.INSTRG

MOV
ADD

8(SP),RS
42,(5P)

BNE
RTI
MOve
BR

TST8
8PL
1518

8TPCSR
13
(RS)

(R5)+,8TPDBR
14

sASCII STRING INPUT ROUTINE
012740
012746
012752
012754
012736
012762
012766
012772
012774
013000
013004
013010
013012
013020
013024
013026
013030
013032
013034
013036
013040

017667
062716
104401
000000

01270+
012703
105777
100375
117714
142714
122427

001413
117777
105777
100375
005303
001356
104401
014770
000745
000002

000000
000002

9200006

INSTRL:
MSG:

0151560
000007
000536

1%:

000532
000200
000015
000514
000510

INSTRG:

000516

MOV
ADD
TYPE
0

MOV
MoV
1ST8
8PL
MOVB
8IC8
cHP8

BEQ
MOVe
c:
1578
8PL
DEC
BNE
INSTRE: TYPE
MQH
BR
INSTR2: RTX

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

SINBUF R4
#7,R3
OTKCSR
13
S§TKOBR, (R4)
4200,(R4)
(R&).,015

INSTR2
STKUBR,QTPDBR
STPCSR
23
R3
14

INSTR1

CZDOHH-CO

MACRO V04.00

1 013042

Jte

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

sCONVERT 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
012567
012567
112567
112567

010516
005005
012704
122714
001420
121427
002415
121427

003012
142714
152405
122714
001406
006305
006305
006305
000760
104404
000750

000146
000144
000142
000140
000135

PARAMS:

PARAM1:

015160
000015
000060

1s:

000067
000060
000015

PARERR:

MOV
MOV
MOV
MOV
MOVB
MOVB

MOV
CLR
MOV
CMPB
8EQ
CHPB
BLT
CMPB

8GT
BICB
81S8
cHPB
8EQ
ASL
ASL
ASL
BR
INSTER
BR

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

RS,(SP)
RS
@INBUF ,R4

15, (R4)
PARERR
(R4), 460
PARERR
(R4), 9867
PARERR
60, (R4)
(R4)+,RS
#15,(R4)
LIMITS
RS
RS
RS
13

PARAML

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

020567
101373
020567
103770
136705
001365

000042

LIMITS:

000032
000032

CMP
8HI
crP
8L0
8IT8
BNE

RS HILIM
PARERR
R3.L0LIM
PARERR
LOBITS RS
PARERR

;STORE NUMBER AY SPECIFIEC ADDRESS
013174
013200
013202
013206
013212
013214
013216
013220
013222
013224

016704
010524
062705
105367
001372
000002
000000
000000
000000
000000
013225

000022

000002

000013

MoV
DEVADR
R4
Mov
R5,(R&).
ADD
#2 RS
OECE
ADRCNT
BNE
13
RTI
LOLIM:
O
HILIM:
O
DEVADR: 0
LOBITS: O
ARDRCNT=L0BITS+)
1¢:

CZOHH C9

MACRO V04.00

013226

27 JUN 85 13:04:20 PAGE

oty

.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
006204
006204
006204
005305
001365
012703

114023
105367

001374
105767
001405
112723
105367
001373
105013
104401
015204
005367
001325
000002
000000
000000
013375
000000

000000

OCTASN:

000126
000123
000120
000114
000106
015172

14:

000002
000130

177770
000260

2%:

MOV
ADD
MOV

8(SP),R1
#2,(5P)
(R1)+,WRDCNT

MOVe
MOV
MOV

(R1)+,SPACNT
8(R1)+ ,BINWRD
BINWRD ,R4

MOV
MOV
8IC
ADD
MOV
ASR

4TEMP,RO
R4 ,R3

€177770,R3
4260,R3
R3,(RO)Y.
R4

DEC
BNE

RS
33

HMOVe

HMOV8

ASR
ASR

015204
000042

000035
000240
000023

000004

43 :

MoV
MOV8

DECSB

(R1)+,CHRCNT

CHRCNT
RS

R4
R4

MDATA,R3
-(RO),(R3).

CHRCNT

44
SPACNT
69
#240,(R3
).
SPACNY
5%
(R3)

WRDCNT
1

CZDHN-CO

MACRO VO4.00

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

013400

CCLRALL

sCLEAR ALL orTE COUNT AND BUS ADDRESS REGISTERS
013400
013404
013410
013414
013420
013322
013424
2 013426

012700
205077
005077
005277
005300
001370
000207

000029
000136
000134
000120

CLRALL:
1$:

MOV
CLR

CLR

INC
OEC
8NE
RTS
SSETALL

#20,R0
S0HBA
80HBC
80MSCR
RO
14
PC

sSET UP TO CLEAR 16
;CLEAR BUS ADDRESS
sCLEAR BYTE COUNT
s ANVANCE LINE NUMBER
sCONTINUE IF NOT DONE
tRETURN 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
013426

012700

013432

005001

013434

012702

000200

0.3440
013444
013452
013460
013466

012703
012777
012777
012777
105061

000001
013646
177400
031403
014246

013472
013476
013502

110263
005277
005202
062701
062703
005300
001352
012767
000207

014246
000036

013504
013510
013514
013516
013520
013526

SETALL: MOV

000020

000074
000070
000056

000002
000002

177777

000114

1$:

920,R0

CLR

MOV

#200.R2

MoV
MOV
MOV
MoV
CLR8

#1,.R3
#TBUF
, SDHIA
¢-400, 8DHBC
431403, 80HLPR

HMove
INC
INC
ADD
ADD
DEC
BNE
MOV
RTS

RBUF(R1)

R2.RBUF(R3)

SOHSCR
R2
#2.R1
#2,R3
RO

#-1,LINACY

sSET UP TO LOAD 16
;BYTE COUNT AND BUS ADDRESS
sHEMORY LOCATIONS
1SET UP TO GENERATE EXPECTED
;RECEIVED CHARACTER BUFFER
sMILL BE HIGH BYTE
:OF EXPECTED RECEIVED CHARACTER
;OFFSET FOR HIGH BYTE
;LOAD BUS ADDRESS
iLOAD BYTE COUNT

:SET LINE SPEED TO 4800 BAUD

sRECEIVED CHARACTEK
sLOAD HIGH BYTE
tADVANCE LINE NUMBER TO NEXT LINE
;UPDATE POINTERS
sCONTINVE IF NOT DONE

+SET ACTIVE FLAGS FOR ALL LINES
sRETURN TO CALLING ROUTINE

MACRO V04.00

1 013530
013530
013532

013534

013536

177560
177562
177564
177566

TLVL»

27-JUN-85 13:04:20 PAGE

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

TKCSR:
TKDBR:
TPCSR:
TPDBR:
.IRP

177560
177562

A:
.ENDM

.INDIRECT POINTERS

177566

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

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

000000
000000
000000
000000
000000

ERRFLG:
PASCNT:
ERRCNT:
RETRN:
ESCAPE:
FREEZL:
ICOUNT:
LPCNT:

013640
013642
013644

000000
000000
000000

.ENDM
ENDFLG:
LINACT:
AEACT:

OPOOOOOOO0O0OCOOOCOONOO

OO0

000000

OO0O0O0O0OOOOOO0O0CO

DHSCR:
DHNRC:
DHLPR:
DHBA:
DHBC:
DHBAR:
DHBCR:
DHSSR:
DHSLR:
DHRVEC:
DHRLVL
:
DHTVEC:
DHTLVL:
.VARIA
t/ENDFLG,LINACT ,AEACT/
;PROGRAM VARIABLES

SAVRO:
SAVR1:
SAVR2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:
INIFLG:
STFLG:
LAST:
.IRP

; 3

177564

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

000000
000000
000000
000000
000000
000000
000000

.POINT

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

000000
000000
000000
000000
000000

O©

CZOHH-CO

{ERROR FLAG
;PASS COUNT
sERROR COUNT
;SCOPE RETURN ADDRESS FOR TEST LOOPING
sADORESS FOR ERROR ESCAPE
:DATA LOOPING RETURN ADDRESS
;ITERATION COUNT FOR TEST IN PROGRESS

;NUMBER OF ITERATIONS THIS TEST
;RO SAVE AREA
iR1 SAVE AREA
iR2 SAVE AREA
sR3 SAVE ARE
;R4 SAVE AREA
1RS SAVE AREA
1STACK POINTER SAVE AREA

1CALLING ROUTINE SAVE AREA
;PROGRAM INITIALIZATION FLAG
1PROGRAM START FLAG
:LAST 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

001
000002
002
000003
003
000004
004
000005
005
000006
006
000007
007
000010
010
000011
o011
000012
012
000013
013
000014
014
000015
015
000016
016
000017
017
000020
020
000021
021
000022
022
000023
023
000024
024

000025
025
000026
026

000027

027
000030
030
000031
031

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

TDAT=1
TBUF :
.REPT

.BYTE
377
TOAT

.BYTE
.NLIST
TDAT=TDAT+1
.LIST
.ENOR
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAY
TOAT=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
TDAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1

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

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

27-JUN-85 13:04:20 PAGE 33-1
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

TOAT=TDAT+1

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

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

SEQ 74

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

HACRO VO4 00

066
900067
067
000070
070
000071
071
000072
072
000073

073
000074
074
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

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

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

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

TDAT=TDAT+1
.BYTE

TDAT

TDAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TODAT+1
.BYTE
TDAT
TDAT=TDAT+1
L.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+4
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT.1
BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TOAT+1
.BYIE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT

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 VO4.00 27-JUN-85 13:04:20 PAGE 33-3
000123
123
000124
124
000125

125
000126
126
000127
127
000130
130
000131

131
000132
132
000133
133
000134
134
000135
135
000136
136
000137
137

000140
140
000141
141
000142

142
000143
143
000144
144
000145
145
000146
146
000147
147
000150
150
000151

151
000152
152
000153
153
000154
154
000155
155
000156
156
000157

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

.BYTE
TOAT
TOAT=TOAT+1
.BYTE
TDAT
TOAT=TDA(+1
.BYTE
TDAT
TDAT=TDAT+1
.BYTE
TDAT
TDAT=TDAT+1

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

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

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

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

SEQ 76

CZ0HN-CO
014025

014026
014027
014030

014031
014032

014033
014034
014035

014036

014037
014040

014041

014042
014043

014044
014045

014046
014047
014050

014051
014052

014053
014054

014055
014056

014057
014060
014061

MACRO VO4.00

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

157
000160
160
000161
161
000162
162
000163
163
000164
164
000165
165
000166
166
000167

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

000170
170
000171
17
000172
172
000173
173
000174
174

TOAT=TDAT+4
.BYTE
TDAT
TOAT=TDAT.1
.BYTE
TDAT
TOAT=TDAT+1
.BYTE
TOAT
TOATsTOAT.1
LOYTE
TOAT
TOAT=TDAT+1
LBYTE
TOAT

175
000176
176

.BYTE
TOAY
TOAT=TDAT+1
.BYTE
TDAT

000200
200
00C201
201
000202

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

167

.BYTE_

000175

TOAT=TDAT+1

000177
177

202
000203
203
000204
204
000205
205
000206
206
000207
207
000210
210
000211
211
000212
212
000213
213

TDAY

TDAT=TDAT+1
.BYTE
TDAT

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

SEQ 77

CZDHH-CO

014062

014063
014064
014065

014066
014067
014070

014071

014072
014073
014074
014075

014076
014077
014100

014101
014102

014103
014104
014105
014106
014107
014110
014111
014112
014113
014114
014115

MACRO VO4.00

000214
214

000215
215
000216

216
000217
217
000220
220
000221
221
000222
222
000223
223
000224
224
000223
225
000226
226
000227
227
000230
230
000231
231

000232
232
000233
233
000234
234
000235
235
000236
236
000237
237
000240
240

27-JUN-85 13:04:20 PAGE 33-S
TOAT=TDAT+1
.BYTE
TDAT

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

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

TOAT=TDAT+1
LBYTE
TOAT
TDAT=TDAT.1
.BYTE
TOAT
TOAT=TDAT+1
LOYTE
TOAY
TOAT=TDAT«4
.BYTE
TOAT
TOAT=TDAT+4
.BYTE
TOAY
TOAT=TDAT»1
.BYTE
TOAY
TOAT=TDAT+1
BYTE
TOAT

000241
241
000242
242

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

0002435

TDAT=TDAT+1

000243
243
000244
244

245
000246
246
000247
247
000250

TOAT=TDAT+1
BYTE
TOAT
TOAT=TDAT+1
.BYTE
TOAT
.BYTE
TOAT
TOAT=TOAT-2
BYTE
TOAT
TOAT=TOAT.L
.BYTE
TOAY
TOAT=TDAT.1

SEQ 78

C20ome CO

014116
014117
014120
014121
014122
014123
014124

ola2s
014126

Cci412?
14130

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
251
000252
252
000253
253
000254
254
000255
235
000256
256
000257
257
000260
260
000261

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

000262
262
000263
263
000264
264
000265
265
000266
266
000267
267
000270
270

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

261

000271
271
000272

272
000273
273
000274
274
000275
275
000276
276
006=77
277
000300
300
000301
301
5302
302
000303
303
000304
304

.BYTE

TDAT

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

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

LAVUTIN -V

AALRU

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

YOS, W

€l -JUN B

13:V&:2V

FALE

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

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

.BYTE

TDAY

TOAT=TDAT-1

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

TOAT=TDAT.1

.BYTE
TDATY
TDAT=TDAT+1

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

TOAT=TDAT+1

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

J35-7

CZOHH-CO

MACRO VO4.00

341
000342
342
014210
000343
343
014211
000344
014212
344
000345
014213
345
000346
014214
346
000347
014215
347
000350
014216
350
000351
014217
351
000352
014220
352
000352
353
014221
000354
014222
354
000355
014223
355
003356
356
014224
000357
014225
357
000360
014226
360
000361
014227
361
000362
362
014230
000363
014231
363
000364
364
014232
000365
014233
365
000366
366
014234
000367
014235
367
000370
014236
370
000371
n
014237
000372
372
014240
000373
014241
373
000374
014242
374
000375
014243
375
014207

27-JUN-85

13:04:20 PAGE

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

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

.BYTE

TOAT

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

33-8

014244
014245
11
12 014246
13

¥ WP
. VYV

"WwWVINTUJd

V.V

TRUL

000376

TDAT=TDAT+1

000377

TOAT=TDAT.1

000400

TOAT=TDAT«1

376

377

000000
014310

.BYTE

TDAT

.BYTE

TDAT

.EVEN
RBUF:
.=.+40

ONOVNWN
-

C20HH-CO

MACRO VO4.00

27-JUN 85

.MACRO

WOKDS

WDNAME ,K,DATA

.ENOM

WNRDS

'WONAME ' K'

000020
000000
000000
000020

10
11

13
14
15
16
17

vhe

13:04:20 PAGE

K=KX

DATA

DATA=DATAX
KX=0

.REPT
20
.NLIST
DATAX=KX»400+100377
LIST

WORDS

.NLIST

+/TWRD
, \KX, \DATAX
/

KX2KX+
1

014310
014310

014312
"14312

014314
014314

014316
014316

014320
014320

014322
014322

014324
014324

014326
014326

014330
014330

014332
014332

014334

100377

100377
000001
100777
100777
000002
101377

LIST
.ENOR

DATAX=KX+400+100377
WORDS
t/THRD
, \KX,\DATAX
/
TWRDO:
100377

KX=KX+1

DATAX=KX+400+100377
WORDS
t/THR
, \KX, \DATAX
D/
TWROL1:
100777
KXsKXe3

DATAX=KX+400+100377
WORDS
+/THRD/Z
, \KX, \DATAX
TWRD2:
101377

101377
000003
101717

KX=sKX+1

101777
000004
102377

KX =KX+l

102377

000005
102777

102777
000006
103377

DATAX=KX+400+100377
WORDS
+/TWRD/
, \KX, \DATAX
TWRD3:
101777

DATAX=KX+400-100377
WORDS
+/THRD/,
\KX, \DATAX
TWRD4:
102377
KX=KXe}
DATAX=KX«400+100377
WORDS
t/TURD/
, \KX ,\DATAX
TWRDS:
102777
KXsKXel

DATAX=KX+400+100377
WORDS
t/THRD/
, \KX, \DATAX
TURD6:
103377

103377
000007
103777

KXsKX+1

103777
000010
104377

KX=KXe¢1

104377
000011
104777

KX=KXe
1

104777
000012

105377

DATAX=K)X+400+.100377
WORDS
+/THRD/
,\KX, \DATAX
THRD7:
103777
DATAX=KX+400+100377
WORDS
t/THRD/
, \KX, \DATAX
THR010: 104377

DATAX=KX#400+100377
WORDS
+/THRD
,\KX, \DATAX
/
TURD11: 104777
KXeKXe
4
DATAX=KX+400+100377
WORDS
t/TURD/Z
, \KX, \DATAX

CZDHH CO

014334

014336
014336

014340
014340

014342
014342

014344

014344
014346
014346

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

13:04:20 PAGE

TWRD12:

KX=KXe1

34-1

105377

DATAX=KX#400+100377
+/TWRD/ ,\KX, \DATAX
WORDS
TWRD13: 105777

KX=KX¢1

DATAX=KX#400+100377
+/TW
, \KX,
RD
\DATAX
WORDS
/
TWRD14: 106377
KX=KX+3
DATAX=KX4400+100377
t/T,HRD
\KX, \DATAX
/
WORDS
THRD1S: 106777

KX =KX+ 1

DATAX=KX+400+100377
t/THRD
\KX, \DATAX
/,
WORDS
THRD16: 107377

KX=KXe1

DATAX=KX+300+100377
*/THR
, \KX, \DATAX
WORDS
D/
TWRD17: 1077717

KX=KXel

DATA=DATAX

K=KX

DATAX=0

KX=0

.REPT
WORDS
.NLIST

t/RCNT
\KX, \DATAX
/Z

KXsKX+1
LISTY
014350
014350

014352
014352
014354
014354
014356
014356
014360
014360

014362
014362
014364
014364
014366

014366

014370

.ENDR
WORDS
RCNTO:

WORDS

;/RCNY/.\KX.\DAY&X

WORDS
RCNT2:

E/RCNT/.\KX.\DA?AX

000000
000001

KX=KX+1

000000
000002

RCNTL:
KX=KX+1

000000
000003

000004
000000

000000
000006
000000
000007

000010

t/R,\KX,
CNT
\DATAX
/

KX=KXe1
;/RCNT/.\KX.\DATAX
WORDS
RCNT3:
KX=KX+1
;/RCNTI.\KX.\DAYAX
WORDS
RCNTA:
KX=KX+1
;/RCNTI.\KX.\DATRX
WORDS

RCNTS:

KX=KXe¢4
3/RCNT/.\KX.\DATAX
WORDS
RCNTS:
KX=KX+1
;/RCNT/.\KX.\DATAX
WORDS

RCNTT:

KX=KX+1

WORDS

t/R,\KX,
CNT
\DATAX
/

AR
A R A 24

014370
014372

014372
014374
014374
014376
014376
014400
014400

014402
014402
014404
014404

014406
014406

014410
014410
014412
014412
014414
014414
014416
014416
014420
014420

014422
014422
014424
014424
014426
014426

The-

HiAWRU

000000
000011
000000
000012
000000
000013
000000
000014
000000
000015
000000
000016

000000
000017

020000
000020
000000
000020
00000
000000
000020

000000
000001

000002

000003

vyveR
. VY

[}

JUN

19:VRIcV

RCNT10:

FALLE

KX=KX+1
8/RCNT/.\KX.\DATAX
WORDS

RCNT11:
KX=KXe
1
S/RCNT/.\KX.\DATAX
WORDS
RCNTi2:
KX=KX+1
5/RCNT/.\KX.\DATAX
WORDS
RCNT13:
KX=KX+
1
SIRCNT/.\KX.\DATAX
WORDS

RCNT14:

KX=KX+1
S/RCNT/.\KX.\DATAX
WORDS
RCNT1S:
KX=KX+1
;/RCNT/.\KX.\DATAX
WORDS
RCNT16:
KX =KXed
B/RCNT/.\VX.\DATAX
WORDS
RCNT17:
KX=KX+1

DATA=DATAX
K=aKX

DATAX=0
KX=0
.REPT
20
t/7
/7 \KX,
ROC
\DATAX
WORDS
Y
.NLIST
KX=KX+1
LIST
.ENDR
S/RDCT/.\KX.\DATflX
WORDS
RDCTO:
1
KX=KX+
;/ROCT/.\KX.\QITAX
WORDS
RDCTL:
KX=KX~1
;/RDCT/,\KX.\DATAX
WORDS

RDCT2:

KX=KX+1
glflDCT/.\KX.\Dflflx
WORDS

ROCT3:

KX=KX+1

000000
000005

WORDS
ROCTA:

;/RDCY/.\KX.\DATAX

WORDS
RDCTS:

;/RDCT/.\K!.\DATAX

WORDS
RDCTé6:

;/RDCT/.\KX.\DATAX

WORDS
ROCT?:

;/ROCTI.\KX.\DAYAX

KX=KX+1

KX=KXeL

000000
000007

KX=KX+1

000000
000010

KX=KXs1

LTI - W

014430
014430
014432
014432
014434
014434
014436
014436

014440
014440
014442
014442
014444
014444
014446
014446
42 014450
43 014452
44 014454

014456

46 014460
47 014462
48 014464
014466
50 014470

51
52
53
54
S5
56

014472
014474
014476
014500
014502
014504
57 014506

TIRLAVY

003000
000011
000000
000012

000000
000013

000000
000014
000000
000915

000000
000016
000000
000017
000000
000020
000001
000002
000004
000010
000020
000040
000100
000200
000400

001000

002000
004000
010000
020000
040000
100000

VUR.VW

€/ =JUIN-00

101VURIcV

FARLL

WORDS
RDCT10:
KX=KX+1
WORDS
RDCT11:
KX=KX+1
WORDS
RDCT12:

WORDS
ROCT13:

+/RDCT/
,\KX, \DATAX
O

KX=KX+1

KXaKX+1

WORDS
t/RDCT/ ,\KX,\DATAX
RDCT14: O
KX=KX+1
WORDS
t/RDCT
/7 ,\KX, \DATAX
RDCT15: 0
KX=KX+1

WORDS
ROCT16:

KX=KXel

WORDS
ROCT17:

t/RDCT/
,\KX, \DATAX
O
t/RDCT
/7 \KX, \DATAX
0

KX=KX+3
LINBIT: 1}

10
20

40
100

200
400

1000
2000
4000
10000
20000
40000
100000

CZ0OHH CO

MACRO VO4.00

2L
-

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

1 014510

.PFAIL

;ENTER HERE ON POWER FAILURE

014510

014512

014514
014516
014520
014522
014524
014530
014534
014542
014544

010046

PFAIL:

010146

010246
010346
010446
010546
016746
010667
012767
000000
000777

163274
177072
014546

163262

MOV

RO, -(SP)

MOV
MOV
MOV
MOV
MOV
MOV

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

MOV

MOV
HALT
BR

R1,-(SP)

RS, -(SP)
24,-(SP)
SP,SAVSP

SRESTART, 24
.

;SAVE RO-RS ON PROCESSOR STACK

sSAVE STACK POINTER

:SET UP FOR POMER UP TRAP
iHALT ON POWER DOWN NORMAL

:PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

014556
014560
014562
014564
014566

016706
012605
012604

012603
012602
012601
012600
012767

014574
014602
014606
014612
014616
014620

012767
012706
005067
005267
001375
104401

014624
014626
014630
014632
014634
014640
014644
014650
014652
014656

104402
014650
104401
014777
005067
005067
000177
000001
000006
013600

014622

177054

014510
000340
015644
000360
000354

RESTAR:

163230
163174

014774

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
INC
BNE
TYPE

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

MCRLF

176732
176772
176730
000002

PFTAB:

OCTASC
PFTAB
TYPE
MPFAIL
CLR
CLR
P
1
6,2
RETRN

:RESTORE STACK POINTER
:RESTORE RO-RS

1SET UP FOR POWER FAILURE

;

ERRFLG
LAST
SRETRN

won

014546
014552
014554

CZOMH-CO
014660
014660
014663
014666
014671
014674
014677
014702
014705
014710
014712
014715
014720

014723
014726
014731
014734
014737
014742
014745
014750
014753
014756
014764
014764
014767
014770
014773
014774
014777
015002
013005
013010
015013
013016
015021
015024
015027
015032
015035

015040

015043
013046
015051
015034
015057
015062
015064

013067

015072
013075
015077
015102
015105
015110
015113

MACRO v04.00

015
104
061
123
040
110
124
124
012
013

105
117
101
122
123
015
117
122
040
107
124
040
104
123
000
040
000
015
040

117
122
109
125
054

122
122
040

123

122
101
124

124
116

122
122
123
015
132
110

060
015
101
040
125
040

012
110
040

124
105
117
105
040
000
012
103
122
104
108
055
012
116
117
122
111

Je
g

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

012
061

.MSG
MTITLE:

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

MVECTO:

.ASCIZ

<15><12>/VECTOR ADDRESS-/

MREGAD:

.ASCIZ

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

101
117
103

040
123
015

105
101
122
123

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

040

077

MQM:

.ASCIZ

012

000

MCRLF
:

.ASCIZ

120

MPFAIL
:

.ASCIZ

103
110
103

MEPASS:

.ASCIZ

<15>¢<12>/CZDHH-CO/

120
123
117

PASTXT:

.ASCI2

<15>¢<12>/PASS COUNT = /

040
127
040
111
122
040
117
101
122
124
124
124
105
040
040
117

105

000
0l2
104
055
000
012
123

103

116
075

105
106
114
105
120
107
115
105
101

<15>¢<12>
POWER FAILURE,

PROGRAM RESTART AT TEST IN PROGRESS/

040

040
123
111
120
107
123

124
040

1 S

CZDHH-CO

(71,

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
123

124
124
103

MTSTPC:

.ASCIZ

<15>¢12>/TEST PC-/

120
000

SEQ 89

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

.EVEN
.EVEN
.TRPTAB

015136

;TABLE OF POINTERS FOR TRAP DECODING
015136
013140
015142
015144
013146
015150
015152
015154
015156
015160

012232
012706
013226
012740
V13032
013042
012614
012654
012332

TRPTAB
:

.BUFFER

SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SVOsP
RSO5
SCOP1R

;BUFFERS FOR INPUT-OUTPUT
015160

015172
015204

015216

INBUF:

000000
015172
000000

.%.+10
TEMP
.=.+10

015204

000000

MOATA:
=_+10

015216

0
0

.ERRTAB
;TABLE OF POINTERS TO ERROR MESSAGES AND DATA

015216
015216
015220
015222
015224
015226
015230
015232
015235
015240
015243
015246
015251
015254
015257
015262
15265
015267
015272
015275

015232
015414
015267
015426
015343
015426
101
117
103
040
122
015
130
040
040

103
116

040
110

ERRTAB:

125

110
105
117
012
120
122
000

117
105
117

124
105
117
122
122
105

£nl:

131
DTL
eme
D12
EN3
DT2
.ASCIZ

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

EM2:

.ASCIZ

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

REC/

105
116
103
105

REC

LINE/

CZ0OHH-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
20 015424
21 015426
22 015430
23 015432
24 015434
25 015436
26 015440
27 015442
28 015444
015444
29

MACRO VO04.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
013624
006
013622
002
013620

000000
000001

040
124
105
117
012
120
040
122
040
040
111
000
103
105
104
101
122
122
105
040
040
105

110
104
101
040
122
015
130
040
040
103

040
116

114
105

040

SEQ 90

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

122
122
105
040
040
105
040
040
116

EM3:

.ASCIZ

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

REC

LINE/

040

002

.EVEN
DT1:
BYTE

000

.BYTE

002

oT12:
BYTE

002

.BYTE

002

.BYTE

2
6.2
SAVRS
6,0
SAVR4

6,2
SAVRS
6,2
SAVRA
2.2
SAVRS

.ENDCOD
ENDCOD: 0
.END

CZuHK-CO

SYMBOL TABLE

MACRO VO4.00

ADRCN:- 013225

AEACT

BEGIN
BINWRD
BITX
=
BIT00 =
8IT01 =
81702 =

ERRTAB

013644

ERTABO

001306
013376
000000
000001
000002
000004

ESCAPE
EXITER
FREEZ1
HALTS
HILIM
JICOUNT

BITO03 = 000010
BITO4 = 000020

BIT0S
B8IT06
BIT07
BIT08
BIT09
BIT10
BIT11
8IT12

INBUF
INIFLG

=
=
=
=
=
=
=
=

000040
000100
000200
000400
001000
002000
004000
010000

INSTER=
INSTR =
INSTRE
INSTRG
INSTRL
INSTR2
K
=
KX
=

BITi4 =~
8IT15 =
CHRCNT
CLRALL

040000
100000
013374
013400

LIGHTS
LIMITS
LINACT
LINBIT

8IT13 = 020000

DATA

DATABP

LAST

= 0C0000

LINE

012506

LOBITS

DATAX = 000000
DEVADR

DHBA
OHBAR
OHBC
DHBCR

ENDCOD
ENDFLG
EOP

T2
120
121

001556
004562
004740

SW06
SWO8
SW09

= 000100
= 000400
= 001000

122
123
124

005176
005434
005672

ROCT10

014430

SMil1

= 004000

126

006366

TBUF
TOAT

TENP

013646
« 000400
015472

013556
013570
013566

MISTPC 015123
MVECTC
014712
N
= 000001

014412

014432
014434
014436
014440

S$Hi10

SWi2
SH13
SHi4
SW1S

010746
011204

THRD12
THRDIS
TURD14

015136
034310
014342
014330
014332
014334
014336
014340

15
16
17
VECL
YEC2
WROCNT
X
=
XBIT =

THRD16
THRDLT?

014344
014348

XN
Y

= 000042
= 000011

——

—— E———

015444
013640
012132

OCTASC=
OCTASN
PARAM =
PARAMS
PARAML
PARERR
PASARG
PASCNT

104402
013226
104405
013042
013072

RESREG
RESTAR
RESTRT
RESOS =
RETRN

TRPTAB
THROO
TMRDL
TWRD1O
TURD11

013572
012470

PFAIL
PFTAB

015077

RSOS
SAVPC
SAYRO
SAVRL

012510
014546
012220
104407
013600
012654
013630
013812

SAVR2
SAVRI

013616
013620

015446

000000

ROCTS
ROCTE
ROCT?

014422
014424
014426

013614

006130

136
137

TCSR

TPOBR
TRPOK
TRPSRY

TURD1S

010000
020000
040000
100000

125

013532
013534

TKDBR
TPCSR

0Ol4414

=
=
=
=

004404

T34

014416
014420

RDCTZ2

= 002000

117

006624
001734
007062
007320
007556
010014
010252

ROCTS
ROCT4

014510
014650

001400
003002
003160
003336
003514
003672
004050
004226

= 000010
= 000020
= 000040

012754
014660

PASTXT

1
T10
711
112
113
T14
T1S
116

SWO03
SHO4
SWOS

MSG
MTITLE

013146
012224
013574

012706
012450

014320
014322
014324
014326
012472
104401

014356
014360
014362
014364
0143686
014410

015414
015426
015232
015267
015343

TYPER
TYPHSG

TWRD4A
THWRDS
TURD6
TWRD7
TYPDAT
TYPE
=

RCNTS
RCNT4
RONTS
RCNT6
RCNT7
ROCTO

014442
014444
014446

ERRORS DETECTED:

013530

013535
012574
012562

014342

127
13
130
31
132
133
735

T4
T40
T4L

010510

002112
011442
011700

002270
002448
002624
001164
001174
013372
000000
500000

XLINE = 000020

000

001

VIRTUAL MEMORY USED:

’

STACK = 015644
START
001004
STFLG
013634
SVoS
012622
SvVoSp
012614
SWR
001000
SHOO
= 000001
SW01
= 000002

ROCT1S
ROCT16
ROCTL7

012350

SETALL
01342¢
SPACNT= 013375

014777
014770
015117
014734

013626
104406
104400
012232
104410
012332

014314

014316

= 000004

MREGAD

MPFAIL
MM

013216

SAVSP
SAVOSP=
SCOPE =
SCOPER
SCOPEL~
SCOPIR

TWRD2

TURD3

SkH02

013562

LOLIM

013622

013624

014354

RDCT11
ROCT12
ROCTLS
ROCTI4

ERRCRS
ABS.

013224

014370
014372
014374
014376
014400
014402
014404
014406

SAVR4

SAVRS

RCNT2

013610
014774
015204
015064

013576

= 000020

014350
014352

RCNT10
RCNT11
RCNT12
RCNY13
RCNT14
RCNTIS
RCNT16
RCNT17

LPCNT
MCRLF
MOATA
MEPASS

ERRCNT

ERRFLG
ERRMSG

013636

001002
013152
013642
014450

022626
177776
010046
005746
024646
014246

RCNTO
RCNT1

013546
013552
012550
013554

013540
013560

1} 81
D12
EM1
3,74
EM3

015160
013632
104404
104403
013032
012740
012752
013040
000020
000020

POP2SP=
PS
=
PUSHRO=
PUSH1S=
PUSH2S*=
RBUF

ROCTL

013222

DHSCR
DHSLR

DHSSK
DHTLVL
DHTVEC

013602
012532
013604
012512
013220
013606

POPRO = 012600

POP15P+= 005726

012210

013544
013542
013564

DHRVEC

015216

012554

LOGICA

OHLPR
DHNRC
DHRLVL

SEQ 91

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

19200 WORDS

(

75 PAGES)

—

——

SYMBOL TABLE

MMaf®Ww

VW7

WWVIN

VJd

VTV

NYER

DYNAMIC MEMORY AVAILABLE FOR
71 PAGES
CZDHMC . BIN,CZOHHC . SEQ=CZDHMHC . DOC , DHMACA _MAC, CZOMNC P11