Digital PDFs

AH-FG25C-MC

October 1985

91 pages

Original

4.0MB

view download

OCR Version

3.8MB

view download

Document:	CZDHFC0 DH11 DH11 SINGLE LINE DATA OCT 1985 bw
Order Number:	AH-FG25C-MC
Revision:	000
Pages:	91
Original Filename:	CZDHFC0__DH11__DH11_SINGLE_LINE_DATA__AH-FG25C-MC__OCT_1985_bw.pdf

OCR Text

DH11 SINGLE LINE DATA

CZDHFCO

e 8

AH-FG25C-MC

10F1

OCT 1985

flnanuan

MADE IN USA

MACRO v04.00

27-JUN-85 12:59:01 PAGE 1

LREM

SEQ

IOV

WN-

Te2w
R20WF -CC

IDENTIFICATION

PRODUCT CODE:

RC-8464C-MC

PRODUCT

CZDHFCO DH11l

NAME:

DATE:

JUNE 1985

MAINTAINER:

NAC

AUTHOR :

MICHAEL DAVIS

SINGLC LINE DATA TEST

SOFTWARE ENMGINEERING

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS
DOCUMENT
.

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF
SOFTWARE
ON
EQU%PHENT THAT IS NOT SUPPLIED BY DIGITAL OR
ITS
AFFILIATED
COMPANIES

CIDHF-CO
1
2
3

MACRO VO4.00

SeEQ 2

27-JUN 85 12:59:01 PAGE 2

ABSTRACT
THE DH11

SINGLE

LINE

CHARACTERS (0-377),

7
8

LENGTHS (AT

ALL

SPEEDS

DATA

TEST

VERIFIES

THAT

ALL

EACH LINE CAN TRANSMIT AND RECEIVE

BITS

A SPEED OF

PER

CHARACTER)

9600 BAUD),

AND

ALL

CHARACTER

MACRO V04.00

27-JUN-85

12:59:01 PAGE

WIvy Yy

CZDHF -CO

REQUIREMENTS

RNT. YT ¥

EQUIPMENT

[

(o1

PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY
ASR-33 TELETYPE OR EQUIVALENT
DH11 ASYNCHRONOUS MULTIPLEXER
OM11 MAINTENANCE CARD INSTALLED

PO RO 1= =0 s o ot s s pa

VOOV
WN

STORAGE
THE PROGRAM LOADS INTO 4KW OF MEMORY

LOADING PROCEDURE

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

STARTING PROCEDURE

XY VY XY XY, VYY)

CONTROL SWITCH SETTINGS

AFTER PROGRAM LOAD (INITIAL PROGRAM START)

ALL CONSOLE SWITCHZS DOWN

SWO00=1

L LT Y YA R

TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART

TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART

SWol=1

STARTING ADDRESS

THE STARTING ADDRESS FOR ALL TESTS IS 000200

[7]
[47]

INITIAL PROGRAM START

h e

Pn et e

LOAD PROGRAM INTO MEMORY
LOAD ADDRESS 000200
CLEAR CONSOLE SWITCHES
PRESS START
THE PROGRAM WILL TYPE "DH11 SINGLE LINE DATA TEST*
AND WILL THEN TYPE “VECTOR ADDRESS-* AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD.

DWW

PROGRAM AND/OR OPERATOR ACTION

THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200

Phboh

THE RESTART ADDRESS FOR ALL TESTS I 0002000

SEQ 3

SEQ 4

27-JUN-85 12:59:01 PAGE 4

4.3 (CONT'D)
4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
FOR THT DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

NOTE:

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

IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM
WILL TYPE “2“ AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5
4.3.1.7 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE

DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN>

N
DWW
-

W
W

LOAD ADDRESS 000200
SE1 SW01=1
PRESS START
THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 70 4.3.1.9
PROGRAM RESTART WITH SWO1=1
LOAD ADDRESS 000200
SET SWQl=1

O NWWNGW

PROGRAM RESTART WITH SW00=1

NWWW

N
bbbHE

PERFORM 4.3.1.2 T0 4.3.1.5
THE PROGRAM WILL TYPE ‘DH1l SINGLE LINE DATA TEST*
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9

PROGRAM RESTART WITH ALL SWITCHES DOWN

YR
o R
R e

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

MACRO V04.00

bbb

V@SRV
B GIN

CZDMF -CO

PRESS START
THE PROGRAM WILL TYPE "DH11 SINGLE LINE DATA TEST*
AND WILL THEN TYPE “TEST PC-“ AND WILL WAIT FOR AN INPUT
FROM THE TELETYPE KEYBOARD
TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO
BE STARTED FOLLOWED BY <CARRIAGE RETURN>
THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED
AND WILL START TESTING AT THE SELECTED TEST.

CARE MUST BE TAKEN WHEN THS FEATURE IS USED,

SINCE

THERE IS NO PROTECTION AGAINST SELECTING AN ADDRES. THAT
IS IN THE MIDDLE OF A TEST
NOTE
:

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

MACRO V04.00

27-JUN 85

SEQ S

12:59:01 PAGE S

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS

SW15=1,
SW14=1,
SW13=1,
SWil=1,
SW10=1,
SW09=1,
SW0l=1,
SW00=1,

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

5.2

SUBROUTINE ABSTRACTS

5.2.1

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
OPLON

DA
D

LN
LV S Y VYPO STV
RO N 10 s fos b ot ot b ot s pa

n WM OOO\IOM&WNHOOG\JOM&U‘NH

CZDHF -CO

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 QOCCURED.
5.2.7

START

(PROGRAM INITIALIZATION)

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

5.2.3

BEGIN

(PROGRAM START AND RESTART)

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

VR IROND W

CZDHF -CO

MACRO V04.00

SEQ &

27-JUN-85 12:59:01 PAGE 6

5.2.4

eopP

(END OF PASS)

THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS
HAVE BEEN COMPLETED.
THIS ROUTINE TYPES THE MAINDEC

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

5.2.5

SCOPER

(SCOPE LOOP AND ITERATION HANDLER)

THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED.
THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY
A) IF SW10=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST
IN SEQUENCE, AFTER CLEARING ERROR FLAGS.
B) IF SWil=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST
SEQUENCE, AFTER CLEARING ERROR FLAGS.
C) IF SWi4=1, THE ROUTINE WILL LOOP ON THE CURRENT TEST
REGARDLESS OF THE ITERATION COUNT.
IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1
TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE
70 THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED.
IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER
TO THE NEXT TEST IN SEQUENCE.
THE THE NUMBERS ARE NOT
EQUAL, THE TEST CURRENTLY IN PROGRESS MWILL BE REPEATED.

5.2.6

SCOPIR

(FREEZE ON CURRENT DATA)

THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE
THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE
VARIABLE PARAMETERS.
THIS ROUTINE IS ALWAYS ENTERED IN
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS.
IF SW09=1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION
UNDER TEST CONTINUQUSLY WITH THE SAME DATA.
IF THIS
OPTION IS SELECTED, THE ROUTINE “SCOPER" IS NEVER ENTERED
AND ITERATION COUNTS WILL NOT BE UPDATED.

DELSECS
VLT ENY TY VYT o Pt
b ot o [ e
DA NPWN-O X« N YV IS

RNH-OOVDIRUNID
WM -

CZDHF -CO

Tttt
e
i
e

MACRO V04.00

27-JUN-85 12:59:01 PAGE 7

5.2.7

ERRORS

(ERROR HANDLER)

THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY.
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS:
R) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTIGON
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.
8) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY
DURING THIS PASS,
A COMPLETE ERROR REPORT IS MADE
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER
IS TYPED.
IF SWi3=1, NO ERROR TYPEQUT IS MADE.
C) THE ROUTINE NOW CHECKS FOR HALT ON ERROR.
IF SW15=1
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO
THE ERROR ROUTINE IN RO.
IF SW1S5=0, THE PROGRAM WILL
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST.

D) IF SW10=0, THE ROUTINE WILL RETURN
TO THE TEST IN PROGRESS.
IF SW10=1, THE ROUTINE WILL
ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT
TEST IN SEQUENCE, THRU THE ROUTINE “SCOPER”.
5.2.8

TRPSRV

(TRAP DECODE AND DISPATCH)

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

[

OVWB®-~JONDBWN
I

CZDHF -CO

MACRO V04.00

SEQ 8

27-JUN-85 12:59: 01 PAGE 8

PROGRAM AND OR OPERATOR ACTION

PROGRAM START WITH ALL SWITCHES DOWN
.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM
BEHAVIOR.

.2 AFTER "R" HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION
WILL BEGIN.
EACH TEST WILL BE REPEATED A SELECTED NUMBER
OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST)
AND THEN fHE PROGRAM WILL PROCEED TO THE NEXT TEST.
.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM
WILL TYPE "CZDHF-C” AND THEN RESTART TESTING AT TEST 1

(LOCATION T1 IN THE PROGRAM).

.4 IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS.
PROGRAM START WITH SW00=1
THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1

PROGRAM START WITH SWOi=1
5.3.3. 1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR

5.3.3. 2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2

.3 AFTER “CZOWF -C* HAS BEEN TYPED,
RESUME TESTING AT TEST

THE PROGRAM WILL

PROGRAM OPERATION WITH SWiS=1

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR,
THE PROGRAM WILL HALY AFTER THE ERROR TYPEQUT, AND
THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE
DISPLAYED IN RO.
PROGRAM OPERATION WITH SW13=1
SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEQUTS WILL OCCUR
PROGRAM OPERATION WITH SWii=1

SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE
ONLY
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.

WWWWNWWWRNDDDRON ORI M) =2 bt gt o s Pt pot ot s pa
NONBUNNFROYVENIONEW

mo—-oooqmmbum»—-oomqmmamm»

CZDHF -CO

MACRO V04.00

27-JUN-85

12:59:01 PAGE

SEQ 9

(CONT'
D)
5.3.8

PROGRAM OPERATION WITH SW14=1,

OR SW09=1

THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING.

SEE SECTION 6.3 FOR THEIR USE.

ERRORS
ERROR HALTS
THE ERROR MESSAGF FORMAT FOR ALL ERROR TYPEQUTS
IS AS FOLLOWS

PCs+2

MESSAGE

HEADER (IF APPLICABLE)

DATA

(IF APPLICABLE)

WHERE
PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLZR + 2
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FATLURE
HEARDER IS A DESCRIPTION OF THE DATA TO FOLLOW
DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE
IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME
PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY

DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS

IF NO DATA IS ASSOCIATED WITH THE ERROR
THE COMPLETE ERROR MESSAGE IS TYPED.
6.1.1

ERROR DESCRIPTIONS
SEE LISTING FOR DETAILS OF ERRORS

6.2

ERROR RECO/ERY

6.2.1

SW15=0

6.2.2

IF THE PROGRAM IS RUN MITH SW15=0, NO OPERATOT ACTION IS
REQgI?ED TO CONTINUE TESTING

SWi5=

IF THE PROGRAM 1S RUN WITH SWiS=1, TO CONTINUE TESTING
AFTER THE PROGRAM HAS HMALTED, PRESS THE PROCESSOR
CONSOLE CONTINUE SWITCH
6.2.3

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

MACRO V04.00

27-JUN-85

12:59:01 PAGE

SEQ 10

6. 3

SCOPE LOOPING

6. 3.1

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

.3.2

[

OCVBIOTVHWN
-

CZDHF -CO

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

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE)

(CONT'
D)
.3.3

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

STARTING

THE DH11 TEST CARD MUST BE INSTALLED
RUNNING
NONE

MISCELLANEQUS

EXECUTION TIME
THE TIME FOR ONE PASS OF THE PROGRAM (END OF
TYPEQUT OF CZDHF-C TGO END OF TYPEQUT OF CZDHF-C)
IS GIVEN FCR VARIQUS PROCESSORS IN THE TABLE BELOW

PROCESSOR
POP-11/05,10

POP-11/20

POP-11/40
POP-11/45

TIME

MACRO V04.00

27-JUN-85 12:59:01 PAGE 11

OVBITUIH
WM I

CZDHF -CO

PROGRAM DESCRIPTION

THE FIRST GROUP OF TESTS TRANSMITS ALL CHARACTERS (¢-377)
ONE AT A TIME AT A LINE SPEED OF 9600 BAUD AND A
CHARACTER LENGTH OF 8 BITS.
EACH LINE IS CHECKED IN AN

[

INDIVIDUAL LOOP.
EACH TEST IN THIS GROUP
CAN BE SET UP UNDER PROGRAM CONTROL TO LOOP ON A SINGLE
CHARACTER USING THE FREEZE ON DATA (SW09) OPTION.

RN o
s o o oo ot o oo
oNbWNEFO 2. RN L V. IY777V

THE NEXT GROUP OF TESTS VERIFIES THAT ALL CHARACTERS CAN
BE TRANSMITTED AT EACH STANDARD SPEED (50-9600 BAUD)
AT 8 BITS PER CHARACTER.
EACH LINE IS TESTED IN AN
INDIVIDUAL TEST LOOP, AND A PARTICULAR SPEED CAN BE

CHOSEN FOR SCOPING BY USING THE FREEZE ON DATA OPTION.

THE FINAL GROUP OF TESTS TRANSMITS ALL CHARACTERS AT
EACH CHARACTER LENGTH (5-8 BITS) AT 9600 BAUD ON A SINGLE
LINE., EACH LINE IS TESTED IN AN INDIVIDUAL TEST LOOP
AND A PARTICULAR CHARACTER LENGTH CAN BE CHOSEN FOR
SCOPING USING THE FREEZE ON DATA (SW09) OPTION.
10.

LISTING

SEQ 11

MACRO

V04.00

27-JUN-85

12:59:01 PAGE

[« X FORY.
Y NOND W

i
;

DHMAC-A - DH1i MACRO LIBRARY
COPYRIGHT 1985, DIGITAL EQUIPMENT CORP.,

LIST
.NLIST

SEQ 12

MAYNARD, MASS. 01754

ME
MC,MD,CND

NH WO

o
s s

CZDHF -CO

167
303
339
373
520
563
595
607
652
664
691

712
743
744
745
746
747
748

:
;
;

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

749
750

;
;

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

;

SKONETSKI 18-APR-1985 14: 20: 15 “ADDED SOFTWARE SWITCH REG SUPPORT, BUT UNTESTED”
*3 SKONETSKI 12-APR-1985
134 52 *FIXED PROBLEMS WITH SPURIOUS CR/LFS*
#2 SKONETSKI 11-APR-1985 16; 00: 24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI

%1 SKONETSKI 11-APR-1985 15: 49; 05 “LIBRARY FOR DH11 DIAGNOSTICS”"

TRAPS
.

CLEAN END OF PASS
MESSAGE.
751
752
753

TCH REGISTER®
754

Tia-

;

CMS REPLACEMENT HISTORY

-——

LS. X7
V)

CZDHF -CO

MACRO V04.00

27-JUN-85 12:59:01 PAGE

SEQ 13

LIST
HME
.NLIST
MTMMC,MD,CND
-HEADER +/1972, 1976,

000000

1985/,t/DHi1 SINGLE LINE DATA TEST/,t/CZDHF-CO/

:STARTING PROCEDURE
:LOAD PROGRAM
;:LOAD ADDRESS 000200
:PRESS START
;PROGRAM WILL TYPE DH1i SINGLE LINE DATA TEST

;PROGRAM
;TYPE IN
:FOR THE
:PROGRAM
:TYPE IN
;FOR THE
;PROGRAM

WILL TYPE "VECTOR ADDRESS-*
THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR
DHil TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
WILL TYPE “CONTROL REGISTER ADDRESS-*
THE ADDRESS OF THE SYSTEM CONTROL REGISTER
DHil TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN>
WILL TYPE "R” TO INDICATE THAT TESTING HAS STARTED

:AT THE END OF A PASS,

;AND THEN RESUM TESTING

PROGRAM WILL TYPE

“ CZDWF-CO

.TITLE
CZDHF-CO
.ENABLE ABS
.NLIST
MC,MD,CND
LIST
HME
.SYMBOLS

000000

6 0C0000

:SWITCH REGISTER OPTIONS
100000
040000

020000

010000
004100
002000
001000
000400
000100
000040
000020
000010
000004
000002
000001

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
SK09=1000
S¥08=400
5606+100
SW05=40
SW04=20
SW03=10
SWO2=4
SWO1=2
SWOO=1

;=1,HALT ON ERROR
+=1,L00P ON CURRENT TEST
;*1,INHIBIT ERROR TYPEOUT

;=1, INHIBIT ITERATIONS
;=1,ESCAPE TO NEXT TEST ON ERROR
;=1,L00P WITH CURREWT DATA

;RESTART PROGRAM AT SELECTED TEST
sRESELECT VECTOR AND CONTROL REGISTER

;ADDRESS AFTER PROGRAM RESTART

C204F -CO

MACRO V04.00

27-JUN-85

12:59:01 PAGE

SEQ

sREGISTER DEFINITIONS
;GENERAL REGISTER
;GENERAL REGISTER
:GENERAL REGISTER
;GENERAL REGISTER
;:GENERAL REGISTER
;GENERAL REGISTER
:PROCESSOR STACK POINTER
:PROGRAM COUNTER

;LOCATION EQUIVALENCIES

177776
20164

i SWR=177570
sLIGHTS=177570

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

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

; INSTRUCTION DEFINITIONS
005746
005726
010046

PUSH15P=5746
POP1SP=5726
PUSHRO=10046

;:DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK

024646
022626

PUSH25P=24646
POP25P 222626

;DECREMENT STACK TWICE
; INCREMENT STACK TWICE

012600

POPR0O=12600

.MACRO

LENDM

1006000

1 000000

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

HLTY
EMT
HLT

B81715=100000

8I714=40000
8I713=20000
8I712=10000
BIT11-4000
8I710=2000
8IT09=1000
8IT08~-400
BIT07=200
B8IT06=100
B8IT05=40
8IT04=20
8IT03=10
B1702=4
B8IT01=2
8IT00=1

.CATCH

sRESTORE RO FROM STACK

$A
$A

O bd
W

RO=%0
R1-¢1
R2=%2
R3=%3
R4 %4
R5=%5
SP=%6
PC=u7

000000
000001
000002
000003
000004
000005
000006
000007

CZDHF -CO
0

MACRO v04.00

000000
000200

27-JUN-85

12:59:01

000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
002114
000116
000120
000122
002124
000126
000130
000132
000134
000136
000 +0
00 132
00)144

000002
006000
000006
000000
000012

000000
000016
000000
000022
000000
000026
000000
000032
000000
000036
000000

000042
000000
000046
000000
000052
000000
000056
000000
000062
000000
000066
000000
000072
000000
000076
000000
000102
000000
000106
000000
000112
000000
000116
000000
000122
000000
000126
000000
000132
000000
000136
000000
000142
000000
000146

SEQ 15

: TRAPCATCAER FOR ILLEGAL INTERRUPTS
.=0
.REPT 200
.+2
{UNEXPECTED TRAP TO THIS LOCATION
ENDR

000000
000002
000004
000006
000020
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
0C0042
0C0044
000046
000050
000052

PAGE

HALT

{EXAMINE

.*2
HALY
.2
HALT
.+2

tUNEXPECTED 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
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EYAMINE STACK TO FIND CAUSE
sUNEXPECTED 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
sUNEXPECTED TRAP TO THIS LOCATION
1EXAMINE STACK 7O FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK 7O FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
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
sEXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TG THIS LOCATION
$EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
tEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO 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 TG THIS LOCATION

HALT
.+2
HALT
.2
HALT
.+2
HALT
.+2
HALT
.e2
HALT

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

STACK TO FIND CAUSE

CZDHF -CO

MACRO V04.00

000146
030150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210

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

000214
000216
000220
000222
0C0224
000226
000230
000232
000234
000236
000240

000216
000000
000222
000000
000226
000000
000232
000000
000236
000000
000242

000244

000246

000250

000252

000212

000242
000246
000252
000254

000256

000000

27-JUN-85

SEQ 16

12:59:01 PAGE 15-1

HALT
4

.+2
HALT
.+2
HALT
.e2
HALT
.2
HALT
. +2
HALT
.*2
HALT
.42

;EXAMINE STACK TO FIND CAUSE
tUNEXPECTED TRAP TO THIS 1 OCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS '.OCATION
sEXAMINE STACK 7O FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
{UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
sUNEXPECTED TRAP TGO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION

.2
HALT
.2
HALT
.+2
HALT
. *2
HALY
.+2
HALT
.*2

sUNEXPECTED TRAP TO THIS LOCATIOM
;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
;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

.+2

sUNEXPECTED TRAP TO THIS LOCATION

HALT
.+2
HALT

HALTY

;EXAMINE STACK TO FIND CAUSE

000000

HALT

000000

HALT

000000

HALT

000000

HALY

sEXAMINE STACK TO FIND CAUSE

HALT

sEXAMINE STACK TC FIND CAUSE

000256

.+2

sEXAMINE STACK TO FIND CAUSE
:EXAMINE STACK TO FIND CAUSE

sUNEXPECTED TRAP TO THIS LOCATION

;EXAMINE STACK YO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION

000260
000262
000264
000266
000270

000262
000000
000266
000000
000272

R
HALT
.2
HALT
.e2

000274
000276
0C0300
000302
000304
000306
000310
000312
000314

000276
000000
000302
000000
000306
000000
000312
000000
000316

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

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

000320
000322
000324
000326

000322
000000
000326
000000

.42
HALT
.+2
HALT

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

000272

000316

000000

HALTY

;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

;EXAMINE STACK TO FIND CAUSE

CZOHF -CO

000330
000332
000334
000336
000340
000342
000344
000346
000350
000352

000354
000356
000360
000362

000364
000366
000370
000372
000374
000376
000400
000402
000404
0C0406
000410
000412
000414
000416
000420
000422
000424
000426
000430
000432
000434
000436
000440
000442
000444
000446
000450
000452
000454
000456
000460
000462
000464
000466
000470
000472
000474
000476
000500
000502
000504
000506
000510

MACRO V04.00

000332
000000
000336
000000
000342
000000
000346
000000
000352
000000
000356
000000
000362
000000
000366
000000
000372
000000
000376
000000
000402
000000
000306
000000
000412
000000
000416
000000
000422
000000
000426
000000
000432
000000
000436
000000
000442
000000
000446
000000
000452
000000
000456
000000
000462
000000
000466
000000
000472
000000
000476
000000
000502
000000
000506
000000
000512

SEQ 17

27-JUN-85 12:59:01 PAGE 15 2

)

.2
HALT
.2
HALT
.42
HALT
.+2
HALT
.42
HALT
.42
HALT
.*2
HALT
.*2
HALT
.42
HALT
.2
HALT
.+2
HALT
.42
HALT
.e2
HALT
.+2
HALT
.+2
HALT
.2
HALT
.+2
HALT
.42
HALT
.+2
HALT
.+2
HALT
.2
HALT
.+2
HALT
L2
HALT
.42
HALT
.+2
HALT
.*2
HALT
.42
HALT
.42
HALT
.42

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

CZDMF -CO
000512
000514
000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542
000544
000546
000550
000552
000554
000556
000560
000562
000564
000566
0C0570
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 V04.00
000000
000516
000000
(00522
000000
000526
000000
000532
000000
000536
000000
000542
000000
000546
000000
000552
000000
000556
000000
000562
000000
000566
000000
000572
000000
000576
000000

000602
000000
003606
000000
000612
000000
000616
000000
000622
000000
000626
000000
000632

000000
000636
000000
000642
000000
000646
000000
000652

000000
000656
000000
000662
000000
000666
000000
000672
000000

SEQ 18

27-JUN-85 12:59:01 PAGE 15-3
HALT
.e2
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.42
HALT
.v2
HALT
.+2
HALT
.42
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.+2
HALT
.+2
HALT

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

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

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

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

: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 LQCATION
;EXAMINE STACK TO FIND CAUSS
;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

CZDHF -CO

000674
000676
000700
000702
000704
000706
000710
003712
000714
000716
000720
000722
000724
000726
000730
000732
000734
000736
000740
000742
000744
000746
20750
0€0752
000754
000756
000760
000762
000764
000766

000770

000772
000774
000776
1 001000

MACRO Vv04.00

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

27-JUN-85

12:59:01 PAGE

.SETVEC

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

SEQ 19

15 4

;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 7/USE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSZ
tUNEXPECTED TRAP TO THIS LOCATION
sEXAMINE STACK 7O FIND CAUSE
:UNEXPECTED TRAP TO THIS LOCATION
:EXAMINE STACK TO FIND CAUSE
;UNEXPECTEC TRAP TO THIS LOCATION

{EXAMINE STACK TO FIND CAUSE

;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TGO 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
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
s INEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE S/ACK TG FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE
;UNEXPECTED TRAP TO THIS LOCATION
;EXAMINE STACK TO FIND CAUSE

CZOHF -CO

MACRO V04.00

27 JUN-85 12:59-01 PAGE

SEQ 20

;STANDARD

000200

000200
000167

1 000204

000600

.=200

JMP

INTERRUPT

START

VECTORS

;GO TO START OF PROGRAM

. TRPDEF

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;:POINTERS TO SUBROUTINES CAN BE FOUHD STARTING
;AT LOCATION “TRPTAB"
000204

000204

0C0204

000204

0C¢ 2204
2
3 000046
4
5 000052
6

104400
000001
104401
000002
104402
000003
104403
000004
104404

000005
104405
000006

104406
000007

104407

000010
104410
000011
000046
015056
000052
040000

TRPDEF

SCOPE, t/SCOPE LOOP AND ITERATION HANDLER/
SCOPE=TRAP+Y
:SCOPE LOOP AND ITERATION HANDLER
Y=Yel
TRPOEF
TYPE,t/TELETYPE QUTPUT ROUTINE/
TYPE=TRAP+Y
;TELETYPE OQUTPUT ROUTINE
YsYel
TRPDEF
QCTASC, +/0CTAL TO ASCII CONVERSION/
OCTASC=TRAP+Y
;OCTAL TO ASCII CONVERSION
YaYel
TRPDEF INSTR, +/INPUT ASCII STRING/
INSTR=TRAP+Y
s INPUT ASCII STRING
Y=Yel
TRPDEF
INSTER,t/STRING INPUT ERROR/
INSTER=TRAP«Y
;:STRING INPUT ERROR
Y=Y+l
TRPDEF
PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/
PARAM=TRAP +Y
;CONVERT STRING TO OCTAL, CHECK LIMITS
YsYel
TRPDEF
SAVOSP,t/SAVE RO-RS, PG/
SAVOSP=TRAP+Y
;SAVE RO-RS, PC
Y=Ys]
TRPDEF
RESOS, t/RESTORE RO-R5/

RESOS5=TRAP «Y

TRPDEF

Y=Yel

;RESTORE RO-RS

SCOPE1,t/CHECK FOR FREEZE ON CURRENT DATA/
SCOPEL=TRAP+Y
Y=Yel

;CHECK FOR FREEZE ON CURRENT DATA

.=46
LOGICAL
.=52
40000
.M"CRO
CODEM1

MOV

DHSSR, DHSLR

sSET UP ADDRESS OF SILQ

INC

DHSLR

;STATUS REGISTER HIGH BYTE

10 000054

.ENDM

.START

CODEM1

DHRVEC,3,4,DHSCR,0,177776.7.10,,.1

CZDKF -CO

MACRO V04.00

27-JUN-85

001000

12:59:01 PAGE

SEQ ? 1

.=1000

015430
000340
015274
015230
015226
015216
015212

176702
176700
001122
177660
000176
177646

CLR
LR
CLR
CLR
CLR

MOV

176670

177650

1s:

2$:
176642

176634

017134
015170

.IF N8

IFF
.ENDC
.IF NB
SIZE:
1¢:
2$:

424 ,R2
PFAIL,(R2).

340, (R2).
¢ERRORS, (R2).
€340, (R2)-+
ATRPSRV, (R2).
2340, (R2)
STFLG
PHSCNT
ERRCNT
ERRFLG
ERRFLG

MOV
MOV
I87T
BR

SSWR
24

MOV
CLR

4176, SWR
LIGHTS

e1s,

ST
(SP)+
ST
(5P«
MOV
(S5P)s, 6
MOV
(SP)+, 4
TYPE
MMTITLE
187
INIFLG
<DHRVEC>
VEC1
B8NE
BNE

BEGIN

SET UP TRAP VECTOR
: TEST SWITCH REGISTER ADDRESS
i IF SUCCESSFUL, LEAVE IT ALONE
POINT TO SOFT SWITCH DHSCR

: O MEANS WE ARE NOT GOING 10 USE
CLEAN UP STACK

:TYPE TITLE MESSAGE
;CHECK INITIALIZATION FLAG
:IF NOT O,

CHECK SWITCHES

;FOR REINITIALIZATION
:IF NOT O, START TEST

CLR

MOV
TS7

B8R
MOV
suB

MOV

RO
924,804

(RO)+

1
RO, HCORE
#2 ,HCORE
#€,064

;SET UP TIME QUT RETURN
;WILL TRAP WHEN NO MEMORY
;LOCATION RESPONDED, CONTINUE
;RO CONTALNS ADDRESS OF
:NON EXISTANT MEMORY
;RESTORE TRAPCATCHER

;LOCK OUT INTERRUPTS
:SET UP PROCESSOR STACK
; POINT TO VECTOR AREA
;SET UP POWER FAIL TRAP
;SERVICE AT LEVEL 7
;ERROR HANDLER
:SERVICE AT LEVEL 7
;GENERAL HANDLER DISPATCH SERVICE
;:SERVICE AT LEVEL 7
sCLFAR TEST START FLAG
;CLEAR PASS COUNT
;CLEAR ERROR COUNT
;:CLEAR ERROR FLAG
;CLEAR LAST ERROR PC
; PUSH TRAP VECTOR

#340,PS
#STACK,
SP

WA WA B

MOV
MOV
MOV
oV
MOV
MOV
MOV
H1ov
MoV

®s

001001

START:

WO ~NNNNN

0Giigd

176764

; SWITCH DHSCR ADDRESS
; LIGHTS

005726
005726
012667
012667
104401
005767

012767
005067

000340
020164
000023
016764
000340
015216
000340

177570
177570

v @ wo @ W zgc w w1 W we w0 e
b&&hmgh&bh#‘#

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

.WORD
.WORD

001004
001012
001016
001022
001026
001032
001C36
001042
001046
0C1052
001056
0C1062
001066
001072
001076
001102
0021106
001114
001120
001122
001122
001130
001134
001134
001136
001140
001144
001150
001154

SWR:
LIGHTS:

177570
177570

001000
001002

s
b

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

CZOHF -CO

MACRO V04.00

27-JUN 85

12:59:01

.ENDC

JIFNB

TRACER:

MOV
SXT
MOV

1$:

001162

001164
001172
001174
001174
001200
001204
0C1210
0c1212
001214
001216
001220
001224
001226

001230

001232
001234
001236
001240
001242
001243
001244
001246
001250
001252
001254
001256
001260
001261

.ENDC
.IF NB
JIF 8

000404

JIFF

032777
001445

000001

0127¢C1
012702
012703
010211
005012
060301
060302
020127
001371
104403

000300
000302
000004

177606

.ENDC
VEC1:
VEC2:

1¢:

001000

017175
104405

000300
000770
016300
003
004
104403
017217
104405
000000
177776
016256
007
010

.BYTE
.BYTE

.BYTE
.BYTE
.ENDC
IF N8

001262
001262
00127¢

016767
005267

015006
015002

001274
001300
001302

005767
001002
005167

015050

015042

FAGE

015006

.ENDC

SEQ 22

17-1

MOV
MOV
MOV

#14,8¢10
RO
#RTT,TRTRET
23
#RTI,TRTRET
#12,8010
4TRTRET, 8416

iSET UP ILLEGAL INSTRUCTION TRAP RETURN
;D0 11/40, 11/45 INSTRUCTION
i11/40,45 RTT RETURN FROM TRACE TRAP

+1105,10,20 RTI RETURN FROM TRACE TRAP
;RESTROE TRAPCATCHER
:SCT UP TRACE TRAP VECTOR

<DHRVEC>
<>
VEC2
BR
TST
BEQ

INIFLG
VEC?2

;IF INITIALIZE FLLAG=0
;GET VECTOR AND CSR ADDRESS

BIT
BEQ

#5W00, BSWR
BEGIN

;IF SW00=1,

MOV
MOV
MOV

€300,R1
#302,R2
44 ,R3
R2,(R1)

MOV
CLR
ADD
ADD
CcMP
BNE
INSTR
MVECTOR
PARANM
300
770
DHRVEC
3
4
INSTR
MREGAD
PARAM
0
177776
DHSCR
7
10

(R2)

R3.RL
R3,R2
R1,41000
1s

:AND CSR

GET NEW VECTOR

i
;

4
4

;RESTORE TRAPCATCHER
:IN FLOARTING VECTOR AREA

i INPUT ADDRESS OF DEVICE VECTOR
;MESSAGE “VECTOR ADDRESS *
;CONVERT STRING 10 OCTAL
;LOW LIMIT
sHIGH LIMIY

: 3
;LOCATIONS TO BE FILLED
sNUMBER OF {QOCATIONS
1L SB MASK
:INPUT ADDRESS OF DEVICE CSR
;MESSAGE “CONTROL REGISTER ADDRESS-*
sCONVERT STRING TO OCTAL
;LOW LIMIT
sHIGH LIMIT
;:LOCATIONS TO BE FILLED
;NUMBER OF LOCATIONS
:LSB MASK

<>
CODEM1
MOV
INC

DHSSR, DHSLR
DHSLR

;SET UP ADDRESS OF SILO
:STATUS REGISTER HIGH BYTE

TST
BNE
CcoM

INIFLG
BEGIN
INIFLG

:IF INITIALIZATION FLAG
+IS CLEARED
;SET IT

:PROGRAM START
;CHECK FOR PROGRAM START AT SELECTED ADDRESS

CZOHF -CO

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

*¥ CRO V04.00

012767
012706
032777
001410

104403
017406
104405
000000
017500
016316
001
001
000410
012767
005767
001004
005167
104401
000177

000340
020164
000002

SEQ 23

27-JUN-BS 12.59:01 PAGE 17-2

176462

BEGIN:

177452

MOV
MOV
BIT
BEQ
INSTR
MTSTPC
PARAM
0

#340,PS
9STACK,SP
#SWO01, ASWR
1s

;LOCK OUT INTERRUPTS
;SET UP PROCESSGR STACK
;IF SWO1=1

:GET PC FOR PROGRAM START
;GET PC
;MESSAGE "TEST PC”
;CONVERT STRING TO OCTAL

17500

.BY1E
.BYTE
001400
014770

014762
017402
014716

014740

1$:

2%:
3

RETRN

MOV
TS7
BNE

coM

TYPE
JMP

a8
#T1,RETRN
STFLG
3s
STFLG
MR
SRETRN

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

;TYPE “R” TC TNDICATE START
;START TESTING

CZDHF -CO

MACRO

v04.00

JUN 85

000000
000000
000001
000001
000020

12:59:01

PAGE

SEQ 24

LINE=O
XLINE=LINE
B8ITX=1
XBIT=BITX
.REPT
20
SDATALl
\LINE.\BITX
.NLIST
LINE=LINE+1
BITX=BITX+BITX

LIST
.ENDR
SDATAL

001400

\LINE,\BITX
; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE O.

;CHARACTER LENGTH IS 8 BITS.
:LINE SPEED IS5 9600 BAUD.

001400
001400
001406
001414

012767
012767
012767

000340
000010
001540

176370
014710
014676

0C1422

012767

001464

014672

001430
001436
001442

000002
012777
012703
012767

004000
000000
100000

014620

001450
001456

012777
012777

000000
033503

TS \XN,10,44,1$
T1:
MOV
9340,PS
MOV
€10, ICOUNT
IF N
H0¥
@45 ESCAPE
.
<1$>

ENDC

XN=XN+1

014706

014600
014576

:DISABLE ALL INTERRUPTS
;SET UP FOR 10 ITERATIO
S
:SET UP TO ESCAPE TO NEAT TEST

MOV

#1¢,FREEZ2L

MOV
MOV
MOV

oBIT11,80HSCR
sMASTER CLEAR INTERFACE
¢0,R3
;SET UP LINE NUMBER
©04400+100000,
TOATA

MOV
MOV

90, B0HSCR
33503 ,8DHLPR

;SET UP TO L70P WITH DATA

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;SELECT LINE O
sSELECT 8 BITS CHARATER

iLENGTH,
001464
001472
001500
001506
001512
001514
001520
001524
001526
001526
001530
001532
001536
001540

001542

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
000001
014544

105267

001352
104400
000001
000002

1%:

2%:

014540
014632

104000

104410

014574
014564
0145862

014620

3s:

MOV
MOV
MoV
1578
8PL
MOV
cHp
BEQ
HLT

emnT

S5COPE}

INCB

¢-1,80HBC
4TOATA ,SDHBA
#1,80HBAR
BOHSCR
23
BOHNRC R4
R4,TDATA
3¢
0

TDATA

BNE
is
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA1
\LINE,\BITX

9600 BAUD SPEED

;FOR LINE O

sTRANSMIT
1 CHARACTER
:ADDRESS OF TRANSMIT DATA
:STARY TRANSMITTER
sHAIT FOR CHARACTER
: 710 BE RECEIVED
:GET RECEIVED CHARACTER
sCOMPARE EXPECTED AND
;RECEIVED DATA
;DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
{UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS,

;TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 1.
;CHARACTER LENGTH IS 8 BITS,
;LINE SPEED IS 9600 BAUD.

LOOP

CZDHF -CO

MACRO V04.00

27-JUN-85

001542
001542
001550
001556

012767
012767
012767

000340
000010
001702

176226
014546
014534

001564

012767

001626

014530

001572
001600
001604

000003
012777
012703
012767

004000
000001
100400

014456

12:59:01

001626
001634
001642
001650
0C1654
001656
001662
001666
001670
001670
001672
001674
001700
001702

001704

012777
012777

012777
012777
012777
105777
100375
017704
020467
001401
104000
104410
105267
001352
104400
000002
000004

000001
033503

177777
016356
000002
014402

19-1

TS \XN,10,4%,1$
7T2:
MOV
MOV
IF B
Hg!
.

001612
001620

PAGE

#340,PS
€10, ICOUNT
#4$ ,ESCAPE

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

MOV

414 ,FREEZL

iSET UP TO LOOP WITH DATA

MOV
MoV
MoV

#8IT11,8DHSCR
:MASTER CLEAR INTERFACE
#1,R3
:SET UP LINE NUMBER
#1+400+100000,
TDATA

<1$>

ENDC
XN=XN+1

014544

014436
014434

014432
014422
014420

MOV
MOV

1§
2%:

014376
014470

014456

MOV
MOV
HOV
1578
BPL
MOV
cHP
BEQ
HLT
EMT

SCOPEL

@1 ,80HSCR
933503, 8DHLPR

4-1,80HBC
@TDATA, 8DHBA
@2 ,8DHBAR
SOHSCR
2%
SOHNRC R4
R4, TOATA
3s
0
0

INCB
TDATA
BNE
1s
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA
:SELECTY LINE 1
:SELECT 8 BITS CHARATER

;LENGTH, 9600 BAUD SPEED
;FOR LINE 1

TRANSMIT
1 CHARACTER
sADDRESS OF TRANSMIT DATA
;START TRANSMITTER
;WALIT FOR CHARACTER
+70 BE RECEIVED
sGET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;sRECEIVED DATA
;DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA

;UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS,

LOOP

i TRANSHMIT ALL CHARACTERS ONE AT A TIME ON LINE 2.

;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
001704
001704
001712
001720

012767
012767
012767

000340
000010
002044

176064
014404
014372

TS \XN,10,48,1¢

T713:

IF N8
.

001726

012767

001770

014366

001734
001742
001746

000004
012771
012702
012767

004000
000002
101000

014314

001754
001762

012777
012777

000002
033503

014402

014274
014272

MOV
MOV
H?!

#340,PS
410, ICOUNT

944 ,ESCAPE

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

MOV

¢1% ,FREEZL

:SET UP TO LOOP MWITH DATA

MOV
MoV
MoV

@BIT11,Q0HSCR
sMASTER CLEAR INTERFACE
42,R3
;SET UP LINE NUMBER
9#24400+100000,
TDATA

<1$>

ENDC
XN=XN+1

MOV
MOV

¢2,8DHSCR
433503, 80HLPR

$SET EXPECTED LINE NUMBER
3AND VALID DATR FLAG
;EXPECTED DATA

:SELECT LINE 2
iSELECT 8 BITS CHARATER

CZDHF -CO

001770
001776
002004
002012
002016
002020
002024
002030
002032
002032
002034
002036
002042
002044

002046

MACRO V04.00

012777
012777
012777
105777
100375
017704
020467
001401

104000
104410
105267
001352
104400
000003
000010

177777
016356
000004
014240

SEQ 26

27-JUN 85 12:59:01 PAGE 19-2

014270
014260
014256

014234
014326

014314

1$:

MOV
#-1,80H8C
MOV
#TDATA,8DHBA
MOV
44 ,8DHBAR
24:
TST8
8DHSCR
8PL
24
MOV
S0HNRC ,R4
cMP
R4, TDATA
BEQ
33
HLT
0
EMT
0
3%
SCOPE1
INCB
TOATA
BNE
13
4%:
SCOPE
LINE=LINE.L
BITX=BITX+BITX
SDATA1
\LINE,\BITX

iLENGTH, 9600 BAUD SPEED
;FOR LINE 2

: TRANSMIT
1 CHARACTER
; ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
:WAIT FOR CHARACTER
;70 BE RECEIVED
$GET RECEIVED CHARACTER
:COMPARE EXPECTED AND
;sRECEIVED DATA
+DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA
:UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS,
=

LOOP

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 3.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
002046
002046
002054
002062

012767
012767
012767

000340
000010
002206

175722
014242
014230

002070

012767

002132

014224

004000

014152

TS \XN,10,44,14
T4:
MOV
#340,PS
Mov
910, ICOUNT
IF e
Hgg
94$ ,ESCAPE
.

002076

002104
002110

002116
002124

000005

012777

012703
012767

012777
012777

000003
101400

000003
033503

002132
002140
002146
002154
002160

012777
012777
012777
105777
100375

177777
016356
000010
014076

002166

020467

014164

002162

017704

002172
002174
002174
002176

001401

002204
002206

001352
104400
000004

002200

104000
104410

105267

ENDC
XN=XNe1

014132
014130

MoV

MOV
MOV

1$:
2s:

014072

014152

MOV

MoV
MoV

014240

014126
014116
014114

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

$SET UP TO LOOP WITH DATA

#81I711,090HSCR

tMASTER CLEAR INTERFACE

43,83
sSET UP LINE NUMBER
#3+400+100000,
TDATA

3, 8DHSCR
#33503,8DHLPR

MoV
MOV
MoV
1578
8PL

¢-1,80H8C
#TDATA, SDHBA
$10, GOHBAR
S0HSCR
24

cHp

R4 ,TDATA

INCB

TDATA

MOV

3s:

013 ,FREEZ)

BEQ
T
EMT
SCOPE1

BNE
44
SCOPE
LINE=LINE+1

1SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
JEXPECTED DATA
;SELECT LINE 3
;SELECT 8 BITS CHARATER

sLENGTH, 9600 BAUD SPEED
sFOR LINE 3

;TRANSMIT
1 CHARACTER
:ADDRESS OF TRANSMIT DATA
:START TRANSMITTER
;WAIT FOR CHARACTER
;70 BE RECEIVED

BOHNRC ,R4

;GET RECEIVED CHARACTER

34
0
0

sRECEIVED DATA
;DATA ERROR

;COMPARE EXPECTED AND

;CHECK FOR LOOP WITH CURRENT DATA

;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS,

LOOP

: 3

<OMF -CO

MACRO V04.00

032210

27-JUN 85 12:59:01 PAGE

000020

S5EQ 27

19 3

8ITX=BITX+BITX
SOATAL
\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE &,
;:CHARACTER LENGTH IS 8 BITS,
:LINE SPEED IS 9600 BAUD.
002210
002210
02216
002224

012767
012767
012767

002232

012767

002240
002246
002252

012777
012703
012767

000340
000010
002350

175560
014100
014066

TS \XN,10,4%,1¢
TS:
MOV
#340,PS
MOV
€10, ICOUNT
IF N8
H?V
043 ,ESCAPE
.

002260
002266
002274
002302
002310
002316
002322
002324
002330
002334
002336
002336
002340
002342
002346
002350

002352

000006

012777
012777
012777
012777
012777
105777
100375
017704
020467
001401
104000
1C4410
105267
001352
104400
000005

002274

014062

004000
000004
102000

014010

000004
033503
177777
016356
30020
013734

<1$>

ENOC

;OISABLE ALL INTERRUPTS

:SET UP FOR 10 ITERATIONS
:SET UP TO £SCAPE TO NEXT TEST

MOV

€18 FREEZ1

MOV
MOV
MOV

#8IT11,8DHSCR
sMASTER CLEAR INTERFACE
84 ,R3
sSET UP LINE NUMBER
£4+400.100000,
TDATA

sSET UP TO LOOP WITH DATA

XN=XN+1
014076

013770
013766
013764
013754
013752

013730
014022

014010

000040

MOV
MOV
is:

MOV
MOV
MOV
2%:
1878
BPL
MOV
cMP
BEQ
HLT
EMT
3
SCOPEL
INCB
BNE
44:
SCOPE
LINE=LINE+1

04 ,8DHSCR
#33503,3DHLPR
€-1,80M8C
2TDATA,8DHBA
#20, 3DHBAR
8DHSCR
2
S0HNRC ,R4
R4, TDATA
3s
0
0
TDATA
13

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE 4
;SELECT 8 BITS CHARATER

;LENGTH, 9600 BAUD SPEED
;FOR LINE 4
;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
sWAIT FOR CHARACTER
;70 BE RECEIVED
:GET RECEIVED CHARACTER
; COMPARE EXPECTED AND
sRECEIVED DATA
;DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS,

LOOP

BITX=BITX+BITX

SDATAL

\LINE,\BITX

;TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE S.
sCHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
002352
002352
002360
002366

012767
012767
012767

000340
000010
002512

175416
013736
013724

002374

012767

002436

013720

TS5 \XN,10,43,1¢
T6:
MOV
#340,PS
MOV
910, ICOUNT
IF N8
H2¥
#43 ,ESCAPE
.

002402
002410

000007
012777
012793

004000
000005

013646

.ENDC
AN=XN+1

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

<i$>

MOV

#18,FREEZ1

MOV
MOV

98I711,3DHSCR
#5,R3

;SET UP TO LOOP WITH DATR

sMASTER CLEAR INTERFACE
;SET UP LINE NUMBER

CZ0WF CO

MACRO V04.00

032414

012767

102400

27-JUN-85

12:59:01 PAGE 19 4

013734

MOV

SEQ 28

#54400+100000,
TDATA

sSET EXPECTED LINE NUMBER

;AND VALID DATA FLAG

002422
002430

012777
012777

000005
033503

013626
013624

002436
002444
002452
002460
002464
002466
002472
002476
002500
002500
002502

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356

013622
013612
013610

002504
00251C
002512

0C2514

000040
013572

2%:

013566
013660

45,8DHSCR
#33503,8DHLPR

MOV
MOV
MoV
TST8

9-1,3D0HBC
#TODATA,BDHBA
940, 3DHBAR
8DHSCR

B8PL

MOV
cMp

BEQ

HLT

104000

104410
105267
001352
104400
000006
000100

MOV
MOV

3s:

013646

EMT
SCOPE1L
INCB
BNE

43:
SCOPE
LINE=LINE.1

S80HNRC,R4
R4, TDATA

TOATA
1s

;EXPECTED DATA
1SELECT LINE 5
:SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
;FOR LINE 5
;TRANSMIT
1 CHARACTER
;ADORESS OF TRANSMIT DATA
:START TRANSMITTER
:WAIT FOR CHARACTER

;70 BE RECEIVED

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

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;sCHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
SDATA1
\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 6.
sCHARACTER LENGTH IS 8 BITS.
;:LINE SPEED IS 9600 BAUD.
002514
002514
002522
0¢2530

012767
012767
012767

000340
000010
002654

175254
013574
013562

002536

012767

002600

013556

002544
002552
002556

000010
012777
012703
012767

004000
000006
103000

013504

JOF N8B

-ENDC

XN=XN-1

013572

002564
002572

012777
012777

000006
033503

013464
013462

002600
002606
002614
002622
002626
002630
002634
002640
002642

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
000100
013430

013460
013450
013446

013424
01351¢

TS \XN,10,4%,1¢
T7:
MoV
#340.PS

1s:

2%:

MOV
MOV
<1$>
MOV

€10, ICOUNT
o4 ESCAPE

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

818 ,FREE2L

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV

MBIT11,80HSCR
sMASTER CLEAR INTERFACE
&6 ,R3
1 SET UP LINE NUMBER
264400100000,
TDATA
sSET EXPECTED LINE NUMBER

MOV
MOV

96, 80HSCR
33503, ADHLPR

MOV
MOV
MOV
518
BPL
MOV
CHP
8EQ

4-1,80H8C
®TDATA, SDHBA
#100,8DHBAR
SOHSCR
24
S0HNRC R4
R4, TDATA
3

HLT

sAND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE 6
;SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
sFOR LINE 6
;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;:START TRANSMITTER
;WAIT FOR CHARACTER
:T0 BE RECEIVED
:GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
sDATA CRROR

s 3

CZOWF -CO
002642
002644
002646
002652
002654

002656

MACRO V04.00

104000
104410
105267
001352
104400
000007
000200

27-JUN-85

12:59:01

013504

PAGE

19 S

EMT
SCOPEL
INCB
BNE

SEQ 29

;CHECK FOR LOOP WITH CURKENT DATA

TDATA
1s

;UPDATE TRANSMIT DATA

SCOPE

;CHECK FOR ITERATIONS,

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

LOOP

; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 7.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
002656
002656

002664
002672

012767

012767
012767

000340
000010
003016

002700

012767

002742

002706
002714
0€2720

000011
012777
012703
012767

004000
000007
102400

002726
002734

002742
002750
002756
002764
002770
002772
002776
003002
003004
003004
003006
003010
003014
003016

003020

012777
012777

000007

033503

012777
012777
012777
105777

177777
016356
000200
013266

017704
020467
001401

013262
013354

100375

104000
104410
105267
001352
104400
000010
000400

175112
013432
013420
013414

013342

TS \XN,10,48,1$
T7T10:
MOV
4340,PS
MOV
MOV

JIF NB
.ENDC

013322

MOV

&18 ,FREEZ1

MOV
MOV
MOV

48IT11,8DHSCR
&7,R3

MOV

013320

MOV

1%:

2%:

3s:

013342

;SET UP TO ESCAPE TO NEXT TEST

<18

;SET UP TO LOOP WITH DATA

XN=XN+1

013430

013316
013306
013304

;DISABLE ALL INTERRUPTS
;SET UP FOR 10 ITERATIONS

€10, ICOUNT
043 ESCAPE

MOV
MOV
MOV
7578
BPL
MOV
cHP
BEQ
HLT
EMT
SCOPEL
g:ga

sMASTER CLEAR INTERFACE
;:SET UP LINE NUMBER

47+400+100000,
TDATA

97 ,9D0HSCR

233503, 30HLPR

¢-1,80H8C
OTDATA,8DHBA
2200 ,8DHBAR
SDHSCR
23
SDHNRC R4
R4 ,TDATA
3
0
0
TDATA

;SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
:EXPECTED UATA
;SELECT LINE 7
;SELECT 8 BITS CHARATER

:LENGTH, 9600 BAUD SPEED
sFOR LINE 7
:TRANSMIT
1 CHARACTER
;ADDRESS O TRANSMIT DATA
;START TRANSMITTER
sWAIT FOR CHARACTER
:T0 BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED ANO
sRECEIVED DATA
;DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA

4s:;

SCOPE

LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

;CHECK FOR YTERATIONS, LOOP

;TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 10.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.

003020
003020
003026
003034

012767
12767
012767

000340
000010
003160

174750
013270
013256

TS \XN,10,45,1$
Ti1:
MOV
#340,PS
MOV
#10, ICOUNT
MOV
#4% ,ESCAPE

;iDISABLE ALL INTERRUPTS

:SET UP FOR 10 ITERATIONS

;SET UP TO ESCAPE TGO NEXT TEST

CZDHF -CO

003042

003050
003056
003062

MACRO V04.00

012767

003104

013252

00¢012
012777
012703
012767

004000
000010
104000

013200

012777
012777

000010
033503

013160
013156

003104
003112
003120
003126
003132
003134
003140
003144
003146
0C3146
003150
003152
003156
003160

012777
012777
012777
105777

177777
016356
000400
013124

013154
013144
013142

017704
020467
001401

013120
013212

003162

104000
104410
105267
001352
104400

JF NB
.ENDC
XN=XN+1

013266

003070
003076

100375

SEQ 30

27-JUN-85 12:59:01 PAGE 19-6

1s:

2%:

3s:

013200

013 ,FREEZL

MOV
MOV
MOV

#BIT11,8DHSCR
sMASTER CLEAR INTERFACE
#10.R3
sSET UP LINE NUMBER
#104400+100000,
TDATA

MOV
MOV

#10,8DHSCR
#33503,8DHLPR

MOV
MOV
MOV
1578
BPL
MOV
cMP
BEQ
HLT
EMT
SCOPE1L
INCB

#-1,80HBC
#TDATA ,8DHBA
#400,30HBAR
8DHSCR
2$
S8DHNRC ,R4
R4 ,TDATA
3
0
0

BNE

as:

000011
001000

<18
MOV

SCOPE

TDATA
1$

LINE=LT (E+1
BITY. oITX+BITX
SDATA1
\LINE,\BITX

;SET UP TO LCOP WITH DATA

iSET EXPECTED LINE NUMBER
tAND VALID DATA FLAG
;EXPECTED DATA
;SELECT LINE 10
;SELECT 8 BITS CHARATER
:LENGTH, 9600 BAUD SPEED
;FOR LINE 10
;TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;:START TRANSMITTER
;WAIT FOR CHARACTER
:TO BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
:RECEIVED DATA
:DATA ERROR
:CHECK FOR LOOP WITH CURRENT DATA

;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS, LOOP

; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 11.
;CHARACTER LENGTH IS 8 BITS.
:LINE SPEED IS 9600 BAUD.
003162
003162
003170
003176

012767
012767
012767

000340
000010
003322

174606
013126
013114

003204

012767

003246

013110

000013
012777
012703
012767

004000
000011
104400

003212
003220
003224

013036

TS \XN,10,4%,1¢
Ti2:
Hov
$340,PS
MOV
£10, ICOUNT
MOV
443 ESCAPE
JIF

.ENDC

XN=XN+1

013124

003232
003240

012777
012777

000011
033503

013016
013014

003246
003254
003262

012777
012777
012777

177777
016356
001000

013012
013002
013000

1$:

<1$>

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

MOV

#18 ,FREEZY

MOV
MOV
MOV

#B8IT11,8DHSCR
sMASTER CLEAR INTERFACE
€11,R3
:SET UpP LINE NUMBER
#114400+100000,TDATA

MOV
MOV

#11,8DHSCR
#33503,80HLPR

MOV
MOV
MOV

#-1,80HBC
#TDATA,8DHBA
#1000, 3DHBAR

;SET UP TO LOOP WITH DATA

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
:EXPECTED DATA
;SELECT LINE 11
;SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
;FOR LINE 11
;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
:START TRANSMITTER

CZDHF -Co
003270
003274
003276
003302
003306
003310
003310
003312
003314
003320
003322

003324

MACRO V04.00

105777
100375
017704
020467
001401
104000
104410
105267
001352
104400
000012
002000

27-JUN-85

24:

012762
0127506
013050

15718

8PL
MOV
CMP
BEQ

HLT

3s:

013036

SEQ 31

12:59:01 PAGE 19-7

EMT
SCOPE1
INCB
BNE

4% :
SCOPE
LINE=LINE+1

8DHSCR

24
&9CHNRC ,R4
R4,TDATA
3
0

0
TDATA
1

{WAIT FOR CHARACTER
;70 BE RECEIVED
:GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;:DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
SDATAL1
\LINE,\BITX

; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 12.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
003324
003324
003332
003340

012767
012767
012767

000340
000010
003464

174444
012764
012752

003346

012767

003410

012746

003354
003362
003366

000014
012777
012703
012767

004000
000012
105000

012674

TS \XN,10,4%,1$
T13:
MOV
#340,PS
MOV
€10, ICOUNT
MOV
4% ,ESCAPE
JIFNB
<1s>
MOV
818 ,FREEZL
.ENDC
XN=XN+1
MCV
®8IT11,8DHSCR

MOV
MOV

012762

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

;MASTER CLEAR INTERFACE
312.R3
;SET uP LINE NUMBER
£€124400+ 100000, TDATA

;SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
003374
003402

012777
012777

000012

003410
003416
003424
003432
003436
003440
003444
003450
003452
003452
003454
003456
03462
003464

012777
012777
012777
105777
100375
017704
020467
001401

1777717
016356
002000
012620

003466

104000
104410
105267
001352
104400
000013
004000

033503

012614
012706

012674

012654
012652

012650
012640
012636

MOV
MOV

1¢:

412, 80HSCR
€33503.,8DHLPR

MOV
#-1,80H8C
MOV
#TOATA,BDHBA
MOV
22000, 30HBAR
2%:
1818
S0HSCR
2%
BPL
MOV
SOHNRC
R4
cHP
R4, TDATA
BEQ
34
HLT
4]
EMT
0
3s:
SCOPEL
INCB
TDATA
BNE
1
4
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA1
\LINE,\BITX

;EXPECTED DATA
sSELECT LINE 12
sSELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
sFOR LINE 12
;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
sWAIT FOR CHARACTER
;70 BE RECEIVED
;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;:DATA ERROR

:CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 13.
; CHARACTER LENGTH IS 8 BITS.

————————

CZOHF -CO

MACRO V04.00

SEQ 32

27-JUN-85 12:59:01 PAGE 19-8

:LINE SPEED IS 9600 BAUD.
003466
003466
003474
003502

012767
012767
012767

000340
000010
003626

012622
012610

003510

012767

003552

012604

003516
003524
003530

000015
012777
012703
012767

004000
000013
105400

012532

174302

012620

003536
003544

012777
012777

000013
033503

012512
012510

003552
003560
003566
0C3574
003600
003602
003606
003612
003614
003614
003616
003620
003624
003626

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
004000
012456

012476
012474

003630

104000
104410
105267
001352
10-400

012506

TS \XN,10,4$,1$
T14:
MOV
MOV
MOV
JOF NB
<18
MOV
.ENDC
XN=XN+1
MOV
MOV
MOV

1¢:

2%:

012452
012544

012532

#1¢ ,FREEZ1

;SET UP TO LCOP WITH DATA

MOV
MOV
MOV

#-1,80HBC
4TDATA
. 8DHSA
24000, 8DHBAR

8PL
MOV
cMP
BEQ

24
8DHNRC
R4
R4 . TDATA
3

18718

EMT
SCOPEL
INCB
BNE

;DISABLE ALL INTERRUPTS

iSET UP TQ ESCAPE TO NEXT TEST
;

4B8IT11,8DHSCR
;MASTER CLEAR INTERFACE
#13,R3
:SET UP LINE NUMBER
#134400+1000TDATA
00,

#13, 8DHSCR
433503 ,8DHLPR

4 :
SCOPE
LINE=LINE.1

002014
010000

;SET UP FOR 1C ITERATIONS

MOV
MOV

HLT

3$:

#340,PS
#10, ICOUNT
#43% ,ESCAPE

SDHSCR

TOATA
1

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;SELECT LINE 13
:SELECT 8 BITS CHARATER
sLENGTH, 9600 BAUD SPEED
;FOR LINE 13
s TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
;WAIT FOR CHARACTER
;TO BE RECEIVED
:GET RECEIVED CHARACTER
:COMPARE EXPECTED AND
;sRECEIVED DATA
;:DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS, LOOP

BITX=BITX+BITX
SDATAL
\LINE,\BITX

:TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 14.
;CHARRCTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
003630
003630
003636
003644

012767
012767
012767

000340

000010

003770

174140
012460

012446

003652

012767

003714

012442

003660
003666
003672

000016
012777
012703
012767

004000
000014
106000

012370

012777

000014

003700

TS \XN,10,4%.1%
T15:
MOV
4340,P5
MOV
#10, ICOUNT
JIF NB

.ENDC
XN=XN+1

MoV

<1$>
MOV

4 $ ESCAPE

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

#1$,FREEZ21

:SET UP TO LOOP WITH DATA

012456

MOV
MOV
MOV

#BIT11,30HSCR
;MASTER CLEAR INTERFACE
#14,R3
$SET UP LINE NUMBER
14440041000TDATA
00,

012350

MoV

#14,8DHSCR

+SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG

;EXPECTED DATA
:SELECT LINE 14

i 3

CZDHF-CO

MACRO

003706

012777

003714
003722
003730
003736
003742
002744
003750
003754
003756
003756
003760
003762
003766
003770

012777
012777
012777
105777

003772

100375
017704
020467

001401

104000
104410
105267
001352
104400
000015
020000

V04.00

27-JUN-85

033503

012346

177777

012344
012334
012332

016356

010000
012314

12:59:01

PAGE

MOV

#33503,9DHLPR

1$:

MOV

#-1,8DHBC

2s:

MOV
MOV
7518
BPL
MOV

012310
012402

CcMP

3s:
012370
4 :

SEQ 33

19-9

BEQ
HLT
EMT
SCOPEL
INCB
BNE
SCOPE

;SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED
;FOR LINE 14
;TRANSMIT
1 CHARACTER
;ADDRESS OF TRANSMIT DATA
sSTART TRANSMITTER

#TDATA,9DHBA
#10000, 9DHBAR
8DHSCR
2$
8DHNRC ,R4

:WAIT FOR CHARACTER

;70 BE RECEIVED
;GET RECEIVED CHARACTER
:COMPARE EXPECTED AND
;RECEIVED DATA
;DATA ERROR

R4 ,TDATA
3
0
0

;CHECK FOR LOOP WITH CURRENT DATA

TDATA
14

;UPDATE TRANSMIT DATA

;CHECK FOR ITERATIONS, LOOP

LINE=LINE+1
BITX=BITX+BITX
SDATAL1
\LINE,\BITX

; TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 15.
;CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAULD.
003772
003772
004000
004006

012767
012767
012767

000340
000010
004132

173776
012316
012304

004014

012767

004056

012300

004022
004030
004034

000017
012777
012703
012767

004000
000015
106400

012226

XN=XN+1

012777
012777

000015
033503

012206
012204

004056
004064
004072
004100
004104
004106
004112
004116
004120
004120
004122
004124
004130
004132

012777
012777
012777
105777
100375
017704
020467
001401

177777
016356
020000
012152

012202
012172
012170

1s:

2%:

012146
012240

012226

3s.

4% ;

#340,PS
410, ICOQUNT
24$ ,ESCAPE

;DISABLE ALL INTERRUPTS

#1$ ,FREEZL

;SET UP TO LOOP WITH DATA

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

MOV

0BIT11,8DHSCR

MOV

#152400-1000TDATA
00,

MOV

012314

04042
004050

104000
104410
105267
001352
104400

TS \XN,10,4%,1$
T16:
MOV
MOV
MOV
IF NB
<1$>
MOV
.ENDC

#15,R3

MOV
MOV

415, 30HSCR
#33503,30HLPR

MOV
MOV
MOV
7578
BPL
MOV
CMP
BEQ
HLT
EMT
SCOPEL
INCB

¢-1,80H8C
OTDATA,8DHBA
220000, 3DHBAR
8DHSCR
24
B0HNRC
R4
R4,TDATA
33
0
0

BNE

SCOPE

TDATA
1s

sMASTER CLEAR INTERFACE
;SET UP LINE NUMBER

:SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
;EXPECTED DATA
sSELECT LINE 15
:SELECT 8 BITS CHARATER
;LENGTH, 9600 BAUD SPEED

;FOR LINE 15
;TRANSMIT 1 CHARACTER
;ADDRESS OF TRANSMIT DATA

;START TRANSMITTER
;WAIT FOR CHARACTER
;10 BE RECEIVED
:GET RECEIVED CHARACTER

;COMPARE EXPECTED AND
;RECEIVED DATA
:DATA ERROR

;CHECK FOR LOOP WITH CURRENT DATA
:UPDRTE TRANSMIT DATA
;CHECK FOR ITERATIONS, LOOP

CZ0HF -CO

004134

MACRO V04.00

SEQ 34

27-JUN-85 12:59:01 PAGE 19-10

000016
0£0000

LINE=LINE+1
BITX=BITX+BITX
SOATAL1
\LINE,\BITX

s TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 16.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 BAUD.
004134
004134
004142
004150

012767
012767
012767

000340
000010
004274

173634
012154
012142

\XN,10,4¢,1%

T17:
IF N8

MOV
MoV
H?¥

ENDC

MoV

#1$,FREEZ1

MOV
MOV
MOV

#8IT11,80HSCR
;MASTER CLEAR INTERFACE
¢16,R3
;SET UP LINE NUMBER
#16+400.100000,
TDATA

004156

012767

004220

012136

004164
004172
004176

000020
012777
012703
012767

004000
000016
107000

012064

004204
0C4212

004220
004226
004234
004242
004246

004250
004254

004260
004262
004262
004264
004266
004272
004274

004276

012777
012777

012777
012777
012777
105777
100375

017704
(20467

001401

104000
104410
105267
001352
104400
000017
100000

000016
033503

177777
016356
040000
012010

#340,PS
#10, ICOUNT
#4$ ,ESCAPE

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

<1$>

XN=XN+1

012152

012044
012042

012040
012030
012026

MOV
MOV

1¢$:

2%:

MOV
MOV
MoV
TST8

916, 3DHSCR
#33503,3DHLPR

#-1,30HBC
FTDATA ,8DHBA
#40000, 3DHBAR
8DHSCR

BPL
24
MoV
SDHNRC R4
cHp
R4,TDATA
BEQ
3
HLT
0
EMY
o
3s:
SCOPEL
INCB
TDATA
BNE
1s
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATAL
\LINE,\BITX

012004
012076

012004

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
:EXPECTED DATA
;SELECT LINE 16
;SELECT 8 BITS CHARATER

;LENGTH, 9600 BAUD SPESD
;FOR LINE 16

;TRANSMIT
1 CHARACTER
sADCRESS OF TRANSMIT DATA
;START TRANSMITTER
;WAIT FOR CHARACTER

;7O BE RECEIVED
:GET RECEIVED CHARACTER
:COMPARE EXPECTED AND
sRECEIVED DATA
;:DATA ERROR
;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA
;:CHECK FOR ITERATIONS.

LOOP

: TRANSMIT ALL CHARACTERS ONE AT A TIME ON LINE 17.
:CHARACTER LENGTH IS 8 BITS.
;LINE SPEED IS 9600 8AUD.
004276
004276
204304
004312

012767
012767
012767

000340
000010
004436

173472
012012
012000

004320

012767

004362

011774

004326

000021
012777

004000

011722

TS \XN,10,4%,1¢
T20:
MOV
MOV
IF
NE
MoV
<1$>
Nt
.

.ENDC
XN=XN+1

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

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

MoV

#1%,FREEZ2L

s;SET U2 TO LOOP WITH DATA

Mav

#BIT11,30HSCR

iMASTER CLEAR INTERFACE

CZDHF -CO

004334
004340

004346
004354

004362
004370
004376
004404
004410
004412
004416
004422
004424
004424
004426
004430
004434
004436

MACRO V04.00

012703
012767

012777
012777

012777
012777
012777
105777
100375

017704
020467
001401

104000
104410
105267
001352
104400
000020
000000
000000
000000
000001
000001
000020

000017
107400

000017
033503

17/777
016356
100000
011646

27-JUN-85

12:59:01 PAGE 19-11

012010

MOV
MOV

011702
011700

011676
011666
011664

MOV
MIV

1s$:
2%:

011642
011734

3%
011722

MOV

#17,R3
;SET UP LINE NUMBER
#17+400+100000,
TDATA

#17,8DHSCR
#33503, 9DHLPR

#-1,30HBC

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
{EXPECTED DATA

:SELECT LINE 17
;SELECT 8 BITS CHARATER

i TRANSMIT

1 CHARACTER

#TDATA, 8DHBA
100000, DHBAR
8DHSCR

;ADDRESS OF TRANSMIT DATA
;START TRANSMITTER
;WAIT FOR CHARACTER

MOV
cMP
BEQ
HLT
EMT
SCOPE1
g:ga

8DHNRC R4
R4,TDATA
3
0
0

;GET RECEIVED CHARACTER
;COMPARE EXPECTED AND
;RECEIVED DATA
;DATA ERROR

BPL

TgATA
1

;LENGTH, 9600 BAUD SPEED
;FOR LINE 17

MoV
MOV
TST8

4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
LINE=0
XLINE=LINE
BITX=1
XBIT=BITX
.REPT
20
SDATA2
\LINE,\BITX
.NLIST
LINE=LINE+1
BITX=BITX+BITX
LIST
.ENDR
SDATA2
\LINE,\BITX

004440

SFQ 35

;70 BE RECEIVED

;CHECK FOR LOOP WITH CURRENT DATA
;UPDATE TRANSMIT DATA

;:CHECK FOR ITERATIONS,

LOOP

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE O
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
004440
0044490
004446
004454

012767
012767
012767

000340
000001
004634

173330
011650
011636

004462

012767

004524

011632

000022
012777
012702
012705

004000
0C0001
000000

011560

004470
004476
004502

TS \XN,1,48,1%
T21:
MoV

JIF NB

.ENDC
XN=XN-1

#340,P5
81, ICOUNT
943, ESCAPE

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

MoV

914 ,FREEZY

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#8IT11,80HSCR
&1 ,Re
40.RS

MOV
MOV
<1$>

;MASTER CLEAR INTERFACE
:FIRST SPEED CODE
;LINE O WILL BE TESTED

;

CZDHF -CO
004506

MACRO V04.00

12767

100000

004514
004520

012700
012701

000015
002103

004524
004530

010577
010177

011526
011526

004534

012777

016364

004542

012777

004550
004556
004562
004564
004570
004574
004576
004602
004602
0C4604
004606
004614
004620
004622
004626
004639
004632
004634

012777
105777
100375
017703
020367
001407
005077

004636

104001
104410
012777
105267
001356
062701
005202
005300
001234
104400
000001
000002

011644

MOV

#0+400+100000,RDATA

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

RS, 9DHSCR
R1,8DHLPR

011522

MOV

#TBUF
, 8DHBA

177400

011516

MOV

#-400,8DHBC

000001
011474

011512

MOV
TSTB

#1 ,9DHBAR
8DHSCR

1$:

2%:

BPL

011470
011564

MOV

cMP

011466

000001
011540

SEQ 36

27-JUN-85 12:59:01 PAGE 19-12

011454

002100

BEQ
CLR
HLT
EMT
SCOPEL
MOV
3$:
INCB
BNE
ADD
INC
DEC
BNE
4s:
SCOPE
LINE=LINE.1

ADHNRC ,R3

R3,RDATA
3s
SDHBAR
1
1

&1 ,3DHBAR
RDATA

23
42100,R1
Re
RO
18

;SET EXPECTED LINE NUMBER
.AND VALID DATA FLAG
sEXPECTED DATA
;13 SPEEDS WILL BE TESTED
;:FIRST SPECD =50 BAUD,
;8 BITS PER CHARACTER
:SELECT LINE O
;SET LINE SPEED AND
;CHARACTER L ENGTH
;ADDRESS OF TRANSMITTER
;DOATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
:STOP TRANSMITTER
;DOATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA

;UPDATE LINE SPEED
;UPDATE SPEED CODE

BITX=BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 1

;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
;70 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
004636
004636
004644
004652

012767
012767
012767

000340
000001
005032

173132
011452
011440

004660

012767

004722

011434

003666
004674
004700
004704

000023
012777
012702
012705
012767

004000
000001
000001
170400

011362

011446

\XN,1,4%,1%

T22:

JIF N8B
.ENDC
XN=XN+1

;:DISABLE ALL INTERRUPTS

MOV

4340,PS
€1, ICOUNT
043, ESCAPE

MOV

218 ,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MoV
MoV
MoV

#8IT11,80HSCR
tMASTER CLEAR INTERFACE
¢1,R2
;FIRST SPEED CODE
&1 ,RS
;LINE 1 WILL BE TESTED
#1+400.100000,RDATA

MOV
MOV

<18

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

1SET EXPECTED LINE NUMBER

i 3

CZDHF -CO

MACRO V04.00

004712
004716

012700
012701

000015
002103

004722
004726

010577
010177

011330
011330

004732

012777

016364

004740

012777

004746
004754
004760
004762
004766
004772
004774
005000

012777
105777
100375
017703
020367
001407
005077

005000
005002
005004
0C5012
005016
005020
005024
005026
035030
005032

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000002

27-JUN-85 12:59:01 PAGE

SEQ 37

19-13

:AND VALID DATA FLAG
;EXPECTED DATA

MOV
MoV

#15,R0
#2103,R1

MOV
MOV

R5,8DHSCR
R1,8DHLPR

;SELECT LINE 1
:SET LINE SPEED AND

011324

MOV

#TBUF , 8DHBA

:ADDRESS OF TRANSMITTER

177400

011320

MOV

#-400,90HBC

:400 (OCTAL) BYTES

000002
011276

011314

MOV
;gTB
L
MOV

42 ,8DHBAR
ggHSCR

;START TRANSMITTER
;WAIT FOR DATA 10 BE RECEIVED

ggg

gz.RDATA

80HNRC,R3

;GET RECEIVED DATA

CLR

S8DHBAR

1¢:

2%:

011272
011366

011270

000002
011342

HLT
EMT

011256

SCOPE1L

3¢:

002100

MOV
gNEB
N
ADD
INC
DEC

BNE

SCOPE

1
1

#2,8DHBAR
gDATA
$
#2100, R1
R2
RO

;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

;8 BITS PER CHARACTER

iCHARACTER LENGTH
;DATA BUFFER

;WILL BE TRANSMITTED

;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
:DATA ERROR

sCHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;UPDATE LINE SPEED
:UPDATE SPEED CODE

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

000004

205034

;SINGLE LLINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 2
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT S0 BAUD AND BE INCREMENTED
;70 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

005034
005034
005042
005050

012767
012767
012767

000340
000001
005230

172734
11254
011242

005056

012767

005120

011236

005064
005072
005076
3102

000024
012777
012702
012705
012767

004000
000001
000002

Cil164

101000

011250

TS \XN,1,4%,1$
T23:
MOV
MOV
11
IF N8B
1>
MOV
-ENDC
XN=XN+1
MOV
MOV
MOV
MOV

4340,PS
#1 . ICOUNT
&3 ESCAPE

+DISABLE ALL INTERRUPTS
sSET UP FOR 1 ITERATTIONS
:SET UP TO ESCAPE TO NEXT TEST

¢13,FREEZ)

;SEY UP TO LOOP WITH DATA

eBIT11,aDHSCR
sMASTER CLEAR INTERFACE
&1.R2
;FIRSTY SPEED CODE
#2,RS
sLINE 2 WILL BE TYESTED
#24400+100000,RDATA

:SET EXPECTED LINE NUMBER
;AND VALID OATA FLAG
sEXPECTED DATA

;AT EACH SPEED

CZDHF CO

005110
005114

MACRO V04.00

012700
012701

12:59:01 PAGE

000015
002103

005120
005124

010577
010177

011132

005130

012777

016364

005136

012777

005144
005152
005156
005160
005164
005170
005172
005176
005176
005200
005202
005210
005214
0€5216
005222
005224
005226
005230

005232

27-JUN-85

MOV
MOV

011132

1¢:

#15,R0
#2103,R1

MOV
MoV

RS ,8DHSCR
R1,3DHLPR

011126

MOV

#TBUF
, 8DHBA

177400

011122

MOV

#-400, 80HBC

012777
105777

000004
011100

011116

MOV
1ST8

44 ,30HBAR
8DHSCR

017703
020367
001407
005077

011074

100375

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000003
000010

2%:

011170

011072

000004
011144

011060

38:

002100

BPL
MOV
CMP
BEQ
CLR
HLT
EMT
SCOPE1L
MOV

:13 SPEEDS WILL BE TESTED
;FIRST

BNE
ADD
INC
DEC
BNE

2
#2100,R1
R2
RO
1s

=50 BAUD,

;SELECT LINE 2
:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
:STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED

44 ,8DHBAR

RDATA

SPEED

:8 BITS PER CHARACTER

2%
@DHNRC,R3
R3,RDATA
3
8DHBAR
1
1

INCB

4%:
SCOPE
LINE=LINE.1

SEQ 38

19 14

;RESTART TRANSHMITTER
;UPDATA EXPECTED DATA
;UPDATE LINE SPEED
:UPDATE SPEED CODE

BITX=BITX+BITX
SOATA2
\LINE,\BITX

;SINGLE LINE DATAR TEST
: TRANSHMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 3
;CHARATER LENGTH IS 8 8ITS
;:LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED

;7O 9600 BAUD.

;A BLOCK OF 400 CHARACTER, WILL BE TRANSMITTED

;AT EACH SPEED
005232
005232
005240
005246

012767
012767
012767

000340
000001
005426

172536
011056
011044

005254

012767

005316

011040

000025
012777
012702
012705
012767

004000
000001
000003
101400

010766

005262

005270
005274
005300

TS \XN.1.4%,1%
T24:
HOV

JIF N8
.ENDC
XN=XN+1

MOV
MoV
<18
MoV

#1,ICOUNT
43 ESCAPE

0340,PS

;OISABLE ALL INTERRUPTS
;SEY UP FOR 1 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

214 ,FREEZL

1SET UP TO LOOP WITH DATA

MOV

oB8IT11,80HSCR

MOV
MOV

#3,.RS
03+400+100000,RDATA

MoV

011052

®1.R2

;HASTER CLEAR INTERFACE
;FIRST SPEED CODE
;LINE 3 WILL BE TESTED
;SET EXPECTED LINE NUMBER

;AND VALID DATA FLAG
005306
005312

012700
012701

000015
002103

MOV

#15,R0

#2103,R1

;EXPECTED DATA

;13 SPEEDS MWILL BE TESTED

;FIRST SPEED =50 BAUD,

CZDHF -CO

MACRO V04.00

005316
005322

010577
010177

010734
010734

005326

012777

016364

005334

012777

005342

005350
005354
005356
005362
005366
005370
005374
005374
005376
005400
005406
005412
005414
005420
0C5422
005424
005426

005430

27-JUN-85 12:59:01 PAGE

MOV
MCV

R5,8DHSCR
R1,80HLPR

010730

MOV

#TBUF
, 8DHBA

177400

010724

MOV

#-400,80HBC

012777
105777

000010
010702

010720

017703
020367
001407
005077

010676
010772

MOV
TST8
8PL
MOV
cHP
BEQ

#10, 80HBAR
8DHSCR
24
SDHNRC ,R3
R3,RDATA
3

HLT
EMT

1
1

100375

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000004
000020

1s:

24:

010674

000010
010746

CLR

010662

002100

SCOPEL
MOV
3s:
INCd
BNE
ADD
INC
OEC
8NE
4%:
SCOPE
LINE=LINE.1

SEQ 39

19 15

:8 BITS PER CHARACTER
;SELECT LINE 3
:SET LINE SPEED AND

;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;OATA BUFFER
:400 (OCTAL) BYTES
;WILL BE TRANSMITTED
sSTART TRANSMITTER
sWAIT FOR DATA TC BE RECEIVED
:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

8DHBAR

;STOP TRANSMITTER
:DATA ERROR

@10, 8DHBAR
RDATA
44
92100,R1
R2
RO
1s

;RESTART TRANSMITTER

:CHECK FOR LOOP AT CURRENT SPEED

;UPDATA EXPECTED DATA

;UPDATE LINE SPEED
;sUPDATE SPEED CODE

BITX=BITX+B8ITX
SDATA2

\LINE,\BITX

sSINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT S50 BAUD AND BE INCREMENTED
;TG 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
005430
005430

005436
005444

012767
012767
012767

000340
000001
005624

172340
010660
010646

LIF NB

005452

012767

005514

010642

005460
005466
005472
005476

000026
012777
012702
012705
012767

0040300
000001
000004
102000

010570

005504
005510

012700
012701

000015
002103

005514

010577

010536

TS \XN,1,4%,1¢
T25:
MOV
MOV
MOV

LENDC
XN=XN+1

010654

1%:

#340,PS
@1, ICOUNT
#43 ,ESCAPE

;:DISABLE ALL INTERRUPTS
iSET UP FOR 1 ITERATIONS

MOV

918 ,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

#8IT11,00HSCR
sHASTER CLEAR INTERFACE
¢#1,R2
;FIRST SPEED CODE
04 RS
;sLINE 4 WILL BE TESTED
#44400+100000,RDATA

MOV
MOV

#15,R0
#2103.R1

MOV

RS,.8DHSCR

;SET UP TO ESCAPE TO NEXT TEST

:SET EXPECTED LINE NUMBER
iAND VALID DATA FLAG
{EXPECTED DATA
;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
sSELECT LINE 4

; 3

CI0WF CO
005520

MACRO v04.00

010177

27-JUN-85

12:59:01 PAGE

010536

MOV

R1,3DHLPR

005524

012777

016364

010532

MOV

#TB
, 83DHBA
UF

005532

012777

177400

010526

MOV

#-400,8DHBC

005540
005546
005552
005554
005560
005564
005566
005572
005572
005574
005576
005604
005610
005612
00561¢€
005620
005622
0C5624

012777
105777
100375
017703
020367
0014C7
005077

000020
010504

010522

104001
104410

012777

105267

001356
062701
005202
005300
001334
104400
000005

2s:

010500
010574
010476

000020
010550

010464

3s:

002100

48 :

MOV

€20, 80HBAR

7518
BPL
MOV
e
8EQ
CLR
HLT
EMT
SCOPEL
MOV
INCB
BNE
ADD
INC
DEC
BNE

SOHSCR
2%
S0HNRC ,R3
R3,RDATA
3
3DHBAR
1
1

SCOPE

SEQ 40

19 16

20, 3DHBAR
RDATA
23
92100,R1
R2
RO
1s

;SET LINE SPEED AND

iCHARACTER LENGTH
:ADDRESS OF TRANSMITTER
;:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED

;START TRANSMITTER
{WAIT FOR DATA TO BE RECEIVED

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;OATA ERROR
:CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;UPDATE LINE SPEED
:UPDATE SPEED CODE

LINE=LINE+1
BITX=BITX+BITX
SOATAR2
\LINE,\BITX

000C40

005626

;SINGLE LINE DATA TEST
;TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 5
;:CHARATER LENGTH IS5 8 BITS

;LINE SPEED WILL START AT S50 BAUD AND BE INCREMENTED
;70 9600 BAUD,

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED

005626
005626
005634
005642

012767
012767
012767

000340
000001
006022

010462
010450

005650

012767

005712

010444

005656
005664
005670
0C5674

000027
012777
012702
012705
012767

0040006
000001
000205
102400

010372

005706

005702

012700
012701

000015
002103

005712
005716

010577
010177

010340
010340

172142

TS \XN,1,4%,1%
126:
MOV
MOV
MOV

IF N

HOV

4340,PS
@1, ICOUNT
48 ,ESCAPE

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

918 ,FREEZ}

sSET UP TO LOOP WITH DATA

#BIT11,8DHSCR

:MASTER CLEAR INTERFACE

#1,R2
:FIRST SPEED CODE
#3,R5
;LINE S WILL BE TESTED
#5+400+100000,RDATA

010456

1s:

MOV
MOV

#15,R0
#2103,R1

MoV
MOV

RS, 8DHSCR
R1,8DHLPR

;SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;:EXPECTED DATA

;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

;8 BITS PER CHARACTER

sSELECT LINE S
;SET LINE SPEED AND

;CHARACTLR LENGTH

JOWF-CO
005722

MACRO Vv04.00

012777

016364

27 JUN-85

12:59:01

010334

PAGE

MOV

SEQ 41

4TBUF , 8DHBA

; ADDRESS

;DATA BUFFER

TRANSMITTER

005730

012777

177400

010330

MOV

#-400, 8DHBC

;400 (OCTAL) BYTES

005736
005744
005750
003752
005756
005762
005764
005770
005770
005772
005774
006002

012777
105777
100375
017703
020367
001407
005077

000040
010306

010324

MOV
;gTB
L
Mav
ggg

940, 80HBAR
SDHSCR
23
SDHNRC ,R3
gi.RDATA

sSTART TRANSMITTER
{WAIT FOR DATA TO BE RECEIVED

CLR

SDHBAR

006006
006010
006014
006016
006020
006022

006024

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000006
000100

2%:

010302
010376
010300

HLT

000040
010352

010266

3s:

002100

43:

EMT
SCOPEL
MoV
éNEB
N
ADD
INC
DEC
BNE

;WILL BE TRANSMITTED

:GET RECEIVED Ca A
:COMPER EXPECTED AND RECEIVED DATA

;:STOP TRANSMITTER

;:DATA ERROR

1
240, 8DHBAR
RDATA
2%
92100,R1
R2
RO

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
:UPDATA EXPECTED DATA

;UPDATE LINE SPEED
;UPDATE SPEED CODE

SCOPE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 6
:CHARATER LENGTH IS 8 BITS
;LINE SPEED MWILL START AT SO BAUD AND BE INCREMENTED
;70 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED

006024
006024
006032
006040

012767
012767
012767

000340
000001
006220

010252

006046

012767

006110

010246

006054
006062
005066
006072

000030
012777
012702
012765
012767

171744

010264

TS \XN,1,48,1$
127:
MOV
MOV
MOV

IF NB

.ENDC

004000
000001
000006

103000

006100
006104

012700
012701

000015
002103

005116
0056114

010577
010177

010142
010142

006120

wi2777

016364

010174

XN=XN+1

010260

<1
MOV

MoV
MOV
MoV
MoV

MOV

1s:

010136

4340,PS
#1,ICOUNT
948 ESCAPE

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

918 ,FREEZ1

;SET UP TO LOOP WITH DATA

eBIT11,80HSCR
sMASTER CLEAR INTERFACE
#1,R2
sFIRST SPEED CODE
06 RS
;LINE 6 WILL BE TESTED
#64400+100000,ROATA

¢15,.R0

MOV

#2103,R1

MoV

R5,80HSCR

MOV

R1,30DHLPR

MoV

#TBUF, 30HBA

:SET EXPECTED LINE NUMBER
;:AND VALID DATA FLAG
sEXPECTED DATA
:13 SPEEDS WILL BE TESTED

;FIRST SPEED =50 BAUD,

:8 BITS PER CHARACTER
;SELECT LINE 6

sSET LINE SPEED AND
;CHARACTER LENGTH

; ADDRESS OF TRANSMITTER

;:DATA BUFFER

C2DMF -CO

MACRO v04.00

27-JUN 85

006124

012777

177400

01013¢

006134
306142
006146
006150
006154
006160
006162
006166
006166
006170
006172
006200
006204
006206
006212
006214
006216
006220

012777

000100
010t10

010126

006222

105777
100375

017703
020367

001407
005077
104001
104410
012777

105267
001356
062701
005202
005300
001334
104400
000007
000200

12:59:01 PAGE

2%:

010104
010200

MOV

& 400,80HBC

MOV

€100, 8DHBAR
@DHSCR
2%
JOHNRC ,R3
R3,RDATA
3s
8DHBAR
1
1

1578
8PL
MOV

CMP
BEQ
CLR

010102

HLT
EMT

000100
010154

SCOPEL

010070

3s:

002100

MoV

INCB
BNE
ADD
INC
OEC

BNE

4% :
SCOPE
LINE=LINE.1

SEQ 42

19-18

2100,30HBAR
RDATA
23
92100,R1
R2
RO
1s

:400 (OCTAL) BYTES
;WILL BE TRANSMITTED
;START TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR

.CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA
;UPDATE LINE SPEED
:UPDATE SPEED CODE

BITX=BITX+BITX
SDATA2
\LINE,\BITX

;:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT S0 BAUD AND BE INCREMENTED
:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED
006222
006222
006230
006236

012767
012767
012767

000340
000001
006416

171546
010066
010054

006244

012767

006306

010050

006252

006260
006264
006270

000031
012777
012702
012705
012767

004000
000001
000007
163400

006276
006302

012700
012701

000015
002103

006306
005312

010577
010177

007744
007744

006316

012777

016364

0065324

012777

177400

007776

TS \XN,1,48,1$
730:
MoV
MoV
MOV

JIF NB
.ENDC

XN=XN+1

010062

<1$>
MOV

4340,PS
41, ICOUNT
443 ESCAPE

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

#1¢,FREEZL

;SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

#1,.R2
#7,RS
#7+400+100000,RDATA

#BIT11,8DHSCR

:MASTER CLEAR INTERFACE
:FIRST SPEED CODE

MoV
MOV

15,R0
#2103,R1

MOV
MOV

RS, 8DHSCR
R1,3DHLPR

007740

MOV

TBUF
, 3DHBA

007734

MOV

#-400,3DHBC

1s:

WILL BE TESTED

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
:8 BITS PER CHARACTER
:SELECT LINE 7
;SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
:WILL BE TRANSMITTED

C2OMF -CO
006332
006340
006344
006346
006352
006356
006360
006364
006364
006366
006370
006376
006402
006404
006410
00641C
006414
006416

006420

MACRO V04.00

012777
105777
100375
017703
20367
001407
005077
104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000010
000400

000200
00/712

27-JUN 85 12:59:01 PAGE

007730

2%:

007706
010002
007704

MOV

1578
8PL
Mov
cHe
BEQ
CLR
HLT
EMT

000200
007756

007672

3s:

002100

4% :

SCOPEL
MOV
INCB
BNE
ADD
INC
DEC
BNE

SEQ 43

19 19

#2090, 8DHBAR

8DHSCR
23
80HNRC,R3
R3,RDATA
3
GDHBAR
1
1

#200, 8DHBAR
RDATA
28
4#2100,R1
R2
RO
13

;START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED
:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
;:OATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA

iUPDATE LINE SPEED
:UPDATE SPEED CODE

SCOPE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

006420

006420
006426
006434

012767
012767
012767

000001
006614

007670
007656

006442

012767

006504

007652

006450
006456
006462

000032
012777
012702
012705
012767

004000
000001
000010
104000

007600

]

006466

000340

006474
006500

012700
012701

000015
002103

006504
006510

010577
010177

007546
007546

006514

012777

016364

006522

012777

006530
006536

012777
105777

171350

TS \XN.1,4%,1$
T31:
MOV
MoV
MOV
IF N8B
<1$>
MOV
.ENOC

XN=XNe1

007664

MoV
MOV
MoV
MoV

#340,PS
@1, ICOUNT
943 ,ESCAPE

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

21$,FREEZY

:SET UP TO LOOP WITH DATA

#8I711,8DHSCR
sMASTER CLEAR INTERFACE
41,R2
;FIRST SPEED CODE
#10.R5
;LINE 10 WILL BE TESTED
#104400+100000,RDATA

MOV
MOV

#15,R0
#2103,R1

MOV
Hav

R5,8DHSCR
R1,80HLPR

007542

MOV

#TBUF
, 90HBA

177400

007536

MOV

#-400, 830HBC

000400
007514

007532

MoV
7578

#400,30HBAR
80HSCR

1s:

2%:

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA
:13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,
;8 BITS PER CHARACTER
;SELECT LINE 10
:SET LINE SPEED AND
:CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
:400 (QCTAL) BYTES
;WILL BE TRANSMITTED
:START TRANSMITTER
{WAIT FOR DATA TO BE RECEIVED

:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTFRS ON LINE 10
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT S0 BAUD AND BE INCREMENTED
;TG 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

ZDHF -CO

006342
006544
006550
006554
006556
006562
006562
006564
006566
006574
006600
006602
006606
006610
006612
006614

006616

MACRO v04.00

100375
017703
020367
001407
005077

104001
104410
012777
105267
001356
062701
005202

8PL

007510
007604

007506

§DHNRC ,R3
gz.RDATA

CLR

9DHBAR

EMT
SCOPEL

007474

3s:

002100

005300

001334
104400
000011
001000

Hov
ggz

HLT

000400
007560

SEQ 44

27-JUUN 85 12:59:01 PAGE 19-20

MoV

INCB
BRE
ADD
INC
DEC
BNE

44 :
SCOPE
LINE=LINE+1

1
#400,3DHBAR

RDATA
24
#2100,R1
R2
RO
1s

iGET RECEIVED DATA
;COMPER EXPECTED AND RECEIVEC DATA

;STOP TRANSMITTER

;:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
:RESTART

TRANSMITTER

;UPDATA EXPECTED DATA

:UPDATE L INE SPEED
:UPDATE SPEED CODE

BITX=BITX+BITX
SOATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 11
;CHARATER LENGTH IS 8 BITS

;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED

:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
006616
006616
006624
005632

012767
012767
012767

00¢540
000001
007012

171152
007472
007460

006640

012767

006702

007454

006646
006654
006660
006664

000033
012777
012702
012705
012767

004000
000001
000011
104400

0074¢2

006672
005676

012700
012701

002103

006702
006705

010577
010177

007350
007350

006712

012777

016364

006720

012777

006726
006734
005740
006742

012777
105777
100375
017703

007466

TS \XN,1,45,1$
T32:
MOV
MOV
MoV
JIF N8B
<1$>
MoV
.ENDC

XN=XN+1

000015

MOV
MOV
MOV
MOV

€340,PS
1 ,ICOUNT
@44 ,ESCAPE

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

14 ,FREEZL

;:SET UP TO LOOP WITH DATA

#8IT11,8DHSCR
&1.R2

;MASTER CLEAR INTERFACE
;FIRST SPEED CODE

11,R5
sLINE 11 WILL BE TESTED
#11+400+100000,RDATA

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA

MOV
MoV

#15,R0
42103 ,R1

+13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

MOV
MOV

RS, 8CHSCR
R1,8DHLPR

sSELECT LINE 11
:SET LINE SPEED AND

007344

MOV

4TBUF , BDHBA

177400

007340

MOV

#-400, 80HBC

1400 (OCTAL) BYTES

001000
007316

007334

MOV
TSTB

#1000, SDHBAR
B0HSCR

sSTART TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

8DHNRC ,R3

:GET RECEIVED DATA

007312

1s:

2%:

BPL

MoV

;8 BITS PER CHARACTER

;CHARACTER LENGTH
:ADDRESS OF TRANSMITTER
:DATA BUFFER
;WILL BE TRANSMITTED

CZ0HF CO

006746
006752
006754
006760
006760
006762
006764
006772
006776
007000

007004
007006
007010
007012
007014

MACRO V04.00

020367
001407
005077

104001
104410
012777
105267
001356
062701
005202
005300
001334

007406

007310

001000
007362

SEQ 45

Z7-JUN-85 12:59:01 PAGE 19 21

007276
I

002100

CMP
BEQ
CLR
HLT
EMT
SCOPE1L
MOV
INCB
8NE

R3,RDATA
34
8DHBAR

1
1

#1000, 3DHBAR
RDATA
24

ADD
#2100,R1
INC
R2
DEC
RO
BNE
1
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

104400

000012
002000

;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
;:DATA ERROR

;CHECK FOR LOOP AT CURREN'
;RESTART TRANSMI1TER
:UPDATA EXPECTED DATA

SPEED

iUPDATE LINE SPEED
;UPDATE SPEED CODE

:SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED

;70 9600 BAUD.

;i BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED

007014
007014
007022
007030

012767
012767
012767

000340
000001
007210

007036

012767

007100

9¢7256

007044
007052

000034
012777
012702

0904000
000001

007204

170754
007274
007262

TS \XN,1,4%,1$
T7133:
MOV
MoV
IF N8
Hgg
.

007056
007062

007070
007074

012705
012767

012700
012701

4340,PS
@1, ICOUNT
#4¢ ,ESCAPE

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

MoV

#1$,FREEZL

sSET UP TO LOOP WITH DATA

MOV
MOV

¥BIT11,8DHSCR
41,R2

sMASTER CLEAR INTERFACE
sFIRST SPEED CODE

<1$>

ENDC

XN=XN+1

000012
105000

MoV
MOV

007270

000015
002103

MoV

#15,R0

MoV

42103,R1 ==

MOV
MOV

RS, 8DHSCR
R1,8DHLPR

;:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
1EXPECTED DATA

;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

:8 BITS PER CHARACTER

007100
007104

010577
010177

007152
007152

007110

012777

016364

007146

MOV

#7BUF , 3DHBA

:ggggEgaFgERTRANSHITTER

007116

012777

177400

007142

MOV

#-400, 8DHBC

;400 (OCTAL) BYTES

007124
007132
007136
007140
007144
007150

012777
105777
100375
017703
020367
001407

002000
007120

007136

MOV
T5TB
BPL
MOV
CHP
BEQ

#2000, 8DHBAR
80HSCR
24
8DHNRC,R3
R3,RDATA
3%

;START TRANSMITTER

007114
007210

1s:

#12,R5
;LINE 12 WILL BE TESTED
#12%400+100000,RDATA

2%:

;SELECT LINE 12
:SET LINE SPEED AND

:CHARACTER LENGTH

{WILL BE TRANSMITTED

;WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;

CZDHF -CO

007152
007156
007156
007160
007162
007170
007174
007176
007202
007204
007206
007210

007212

MACRO v04.00

005077
104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000013
004000

27 JUN-85

12:59:01 PAGE

007112

CLR

4LT
EMT

002000
007164

007100

002100

SCOPE1
MOV
3%:
gNEB
N
ADD
INC
DEC
BNE
44:
SCOPE
LINE=LINE+1

SEQ 46

19-22

80HBAR
1
1

#2000, 8DHBAR
RDATA
2%
#2100,R1
R2
RO
1s

;STOP TRANSMITTER
;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
:RESTART TRANSMITTER
;UPDATA EXPECTED DATA
:UPDATE LINE SPEED
;UPDATE SPEED CODE

BITX=BITX+BITX
SDATA2

\LINE,\BITX

:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 13

;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD ANN BE INCREMENTED
;70 9600 RAUD.
;A BLOCK GF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED
007212
007212
007220
007226

012767
012767

012767

000340
000001
007406

170556
007076
007064

007234

012767

007276

007060

000035
012777
012702
012705
012767

004000
000001
000013
105400

007006

007242
007250
007254
007260

007266
007272

012700
012701

000015
002103

007276
007302

010577
010177

006754
006754

007306

012777

016364

007314

012777

007322
007330
007324
007336
007342
007346
007350
007354

012777
105777
100375
017703
020367

001407
005077

TS \XN,1,4%,1¢
MOV
MOV
MoV

T134:

.IF N8

.ENDC

XN=XN+1

007072

#340,PS
#1,ICOUNT
#4¢ ,ESCAPE

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

MOV

#1%,FREEZL

;SET UP TO LOOP WITH DATA

MOV
MOV
MOV
MOV

#BIT11,80HSCR
sMASTER CLEAR INTERFACE
#1.R2
;FIRST SPEED CODE
#13.R5
;LINE 13 WILL BE TESTED
#13+400+100000,RDATA

<14%>

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;EXPECTED DATA

MOV
MoV

#15.R0
#2103,R1

MOV
MOV

R5,3DHSCR
R1,80HLPR

006750

MOV

#TBUF, 3DHBA

177400

006744

MoV

#-400,80HBC

;400 (OCTAL) BYTES

004000
006722

006740

Hov
7578
ePL

#4000, SDHBAR
9DHSCR
24

;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

BEQ
CLR

R3.RDATA
3
8DHBAR

006716
007012
006714

1$:

2%:

cHP
chb

HLT

313 SPEEDS WILL BE TESTED
sFIRST SPEED =50 BAUD,

;8 BITS PER CHARACTER

;SELECT LINE 13
:SET LINE SPEED AND

;CHARACTER LENGTH

;ADDRESS OF TRANSMITTER

;:DATAR BUFFER

;WILL BE TRANSMITTED

DATA

R3 R

;GET RECEIVED
;:COMPER
EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER
;DATA ERROR

CZDHF -CO
007354
007356
007360
007366
007372
007374
007400
007402
007404
007406

007410

MACRO V04.00

104001
104410
012777
105267
001356
062701
005202
005300
001334
104400
000014
010000

004000
006766

SEQ 47

27-JUN-85 12:59:01 PAGE 19-23

006702
38

EMT
SCOPE1
MOV
INCB

BNE

002100

ADD
INC

DEC
BNE
4%
.
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2

1
#4000, 9DHBAR
ggATA

#2100,R1
R2
RO
13

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;UPDATE LINE SPEED
;UPDATE SPEED CODE

\LINE,\BITX

:SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 14
;CHARATER |.ENGTH IS 8 BITS

;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
;70 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED
007410
0C7410
007416
007424

012767
012767
012767

000340
000001
007604

170360
006700
006666

007432

012767

007474

006662

000036
012777
012702
012705
012767

004000

000001
000014
106000

006610

007440

007446

007452
007456

007464
007470

012700
012701

000015
002103

007474
007500

010577
010177

006556
006556

007504

012777

016364

007512

012777

007520
007526

012777

007532
007534

007550
007544
007546
007552
007552
007554

105777
100375
017703
020367
001407
005077

104001
104410

1S \XN,1,4%,1$
T35:
MOV
MOV
MOV
<1$>
.IF NB
MOV
.ENDC
XN=XN+1

9340,PS
&1, ICOUNT
443 ,ESCAPE

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

418 ,FREEZS

;SET UP TO LOOP WITH DATA

#BIT11,80HSCR
;MASTER CLEAR INTERFACE
#1.R2
;FIRST SPEED CODE
#14,R5
sLINE 14 WILL BE TESTED
9#144400+100000,RDATA

00u674

sSET EXPECTED LINE NUMBER
;:AND VALID DATA FLAG
sEXPECTED DATA

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

RS ,ADHSCR

R1i,3DHLPR

006552

MoV

¢ {BUF , 3DHBA

:ADORESS OF TRANSMITTER

177400

006546

MoV

#-400, 90HBC

:400 (OTTAL) BYTES

010000
006524

006542

MOV
1578
8PL
Mov
CcMP
BEQ
CLR
HLT

410000, 3DHBAR
gDHSCR

;START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED

006520
006614
006516

1$:

2%:

EMT
SCOPEL

JDHNRC,R3
§3.RDATA
$

I0DHBAR
1
1

;13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

;8 BITS PER CHARACTER

;SELECT LINE 14

:SET LINE SPEED AND
;CHARACTER LENGTH

;DATA BUFFER

sWILL BE TRANSMITTED

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER

;DATA ERROR

:CHECK FOR LOOP AT CURRENT SPEED

CZDKHF -CO
007556
007564
007570
007572
007576
007600
007602
007604

007606

MACRO V04.00

012777
105267
001356
062701
005202
005300
001334
104400
000015
020000

010000
006570

27-JUN-85

006504

002100

12:59:01 PAGE

SEQ 48

19-24

MOV
£€10000,30HBAR
INCB
RDATA
BNE
2%
ADD
#2100,R1
INC
R2
DEC
RO
BNE
1
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

;RESTART TRANSMITTER
:UPDATA EXPECTED DATA

3s:

;UPDATE LINE SPEED
;UPDATE SPEED CODE

;:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 15
;:CHARATER LENGTH IS 8 BITS

;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED

:TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
007606
007606
007614
0C7622

012767
012767
012767

000340
000001
010002

170162
006502
006470

007630

012767

007672

006464

007636

012777
012702
012705

004000
060001
000015

006412

TS \XN,1,4%,1$
T36:
MOV
MOV
e
ngg
.

007644
007650
007654

000037

012767

106400

007662
007666

012700
012701

000015
002103

007672
007676

010577
010177

006360
006360

007702

012777

016364

007710

012777

007716
007724
007730
007732
007736
007742
007744
007750
007750
007752
007754
007762

012777
105777
100375
017703

020367

001407
005077

104410

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

MOV

218 ,FREEZL

:SET UP TO LOOP WITH DATA

MOV
MOV
MOV

#BIT11,8DHSCR
#1,R2
#15,RS

ErDC

XN=XN+1

006476

MOV

;MASTER CLEAR INTERFACE
;FIRST SPEED CODE
;LINE 15 WILL BE TESTED

#15+400+100000,RDATA

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA

MOV
MOV

#15,R0
#2103,R1

:13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 BAUD,

MoV
MOV

R5,8DHSCR
R1,8DHLPR

sSELECT LINE 15
;SET LINE SPEED AND

006354

MOV

#TBUF , 9DHBA

177400

006350

MOV

€-400, 80HBC

020000
006326

006344

MOV
7578
8PL
MOV

20000, 8DHBAR
8DHSCR
3
SOHNRC ,R3

1s:

2%:

006322

006416

CcHp

BEQ
CLR
HLY
EMT

006320

104001

012777
105267

9340,PS
21, ICOUNT
244, ESCAPE

020000
006372

006306

SCOPE1L

3s:

MOV
INCB

R3,RDATA

;8 BITS PER CHARACTER

;CHARACTER LENGTH

:ADDRESS OF TRANSMITTER

:DATA BUFFER

;400 (OCTAL) BYTES

:MILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
sGET RECEIVED DATA

;COMPER EXPECTED AND RECEIVED DATA

3%
SDHBAR
1
1

:STOP TRANSMITTER
:DATA ERROR

#20000, 3DHBAR
RDATA

;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;CHECK FOR LOOP AT CURRENT SPEED

;

CZ0HF CO
007766
007770
007774
007776
010000
010002

010004

MACRC V04.00

001356
062701
005202
005300
001334
104400
000016
040000

27-JUN 85 12:59:01 PAGE

BNE
ADD
INC
DEC
BNE

002100

SEQ 49

19-25

s
#2100,R1
R2
RO
1s

;UPDATE | INE SPEED
;UPDATE SPEED CODE

4s:
SCOPE
LINE=LINE+1
BITX*BITX+BITX
SDATA2
\LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 16
:CHARATER LENGTH IS 8 BITS
:LINE SPEED WILL START AT S50 BAUD AND BE INCREMENTED
;TO 9600 BAUD.
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH SPEED

010004
010004
010012
010020

012767
012767
012767

000340
000001
010200

167764
006304
006272

010026

012767

010070

006266

004000
000001
000016
107000

006214

000040

010034
010042
010046
010052

012777
012702
012705
012767

010060
010064

012700
012701

000015
002103

010070
010074

010577
010177

006162
006162

010100

012777

016364

010106

012777

010114
010122
010126
010130
010134
010140
010142
010146
010146
010150
010152

012777
105777
100375
017703
020367
001407
005077

010160
010164
013166

104001
104410
012777
105267
001356
062701

006300

TS \XN,1,4%,1$
T37:
MoV
MOV
MOV
JIF NB
<1$>
MOV
.ENDC
XN=XN+1
MOV
MOV
MOV
Mov

#340,PS
@1, ICOUNT
#4$ ,ESCAPE

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

#1¢,FREEZ1

:SET UP TO LOOP WITH DATA

#8IT11,8DHSCR
;MASTER CLEAR INTERFACE
¢1,R2
;FIRST SPEED CODE
#16,R5
;LINE 16 WILL BE TESTED
#164400+100000,RDATA

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA

MOV
MOV

#15,R0
#2103,R1

MOV
MOV

R5,80HSCR
R1,3DHLPR

;SELECT LINE 16
;SET LINE SPEED AND

006156

MoV

#TBUF , 3DHBA

;ADDRESS OF TRANSMITTER

177400

006152

MoV

#-400,30HBC

;400 (QCTAL) BYTES

040000
006130

006146

MOV

€40000, 3DHBAR

1s:

2¢:

006124
€06220

006122

040000
006174
002100

006110

3s:

7578
BPL
MOV
cHp

BEQ
CLR
HLT
EMT
SCOPE1
MOV
INCB
BNE
ADD

SDHSCR
24
@OHNRC ,R3
§3.RDATA

$
SDHBAR
1
1

940000, aDHBAR
RDATA
2%
#2100,R1

:13 SPEEDS WILL BE TESTED
;FIRST SPEED =50 RAUD,

:8 BITS PER CHARACTER

;CHARACTER LENGTH

:DATA BUFFER

sWILL BE TRANSMITTED
sSTART TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

;:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER
;DATA ERROR

{CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
iUPDATA EXPECTED DATA
;UPDATE LINE SPEED

CZDHF -CO
010172
010174
010176
010200

010202

MACRO Vv04.00

27-JUN-8S5

005202
005300
001334
104400
000017
100000

SEQ 50

12:59:01 PAGE 19 26

INC
DEC
BNE
43

R2
RO
1s

;UPDATE SPEED CODE

SCOPE

LINE=LINE+1
BITX=BITX+BITX
SDATA2
\LINE,\BITX

-t

:SINGLE LINE DATA TEST
i TRANSMIT A BLOCK OF 400 (OC(AL) CHARACTERS ON LINE 17
;CHARATER LENGTH IS 8 BITS
;LINE SPEED WILL START AT 50 BAUD AND BE INCREMENTED
;TO 9600 BAUD.
+A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH SPEED
010202
010202
010210
010216

012767
012767
012767

000340
000001
010376

006106
006074

010224

012767

010266

006070

010232
010240
010244
010250

000041
012777
012702
012705
012767

004000
0C0001
000017
107400

006016

010256
010262

012700
012701

000015
002103

010266
010272

010577
010177

005764
005764

010276

012777

016364

010304

012777

010312
010320
010324
010326
010332
010336
010340
010344
010344
010346
010350
010356
010362
010364
010370
010372

012777
105777
100375
017703
020367
001407
005077

104001
104410
012777
105267
001356
062701
005202
005300

167566

006102

TS \XN,1,4%,1"
T40:
MOV

MOV
MOV
JIF NB O 18>
MOV
.ENDC
XN=XN+1
MOV
MOV
MOV
MOV

#340,PS
91, ICOUNT
943 ,ESCAPE

;:DISABLE ALL INTERRUPTS
:SET UP FOR 1 ITERATICONS
;SET UP TC ESCAPE TO NEXT TEST

218 ,FREEZL

;SET UP TO LOOP WITH DATA

#BIT11,3DHSCR
sMASTER CLEAR INTERFACE
#1,R2
sFIRST SPEED CODE
#17,R5
;LINE 17 WILL BE TESTED
4174400+ 100000,RDATA

MOV
MOV

¢15,R0
92103,R1

MOV

RS ,8DHSCR

005760

MoV

#TBUF
, 3DHBA

177400

005754

MOV

€-400,30H8C

100000
005732

005750

MoV
TS18

4100000, 3DHBAR
SDHSCR

MOV

S0HNRC ,R3

1$%:

2%:

005726
006022

MOV

B8PL

CcHp

BEQ

005724

CLR

HLT
EMT

100000
005776
002100

005712

SCOPEL

3s:

MOV
INCB

BNE
ADD
INC
DEC

R1,3DHLPR

R3,RDATA
33

S0HBAR
1
1

100000, 3DHBAR
RDATA

2%
#2100,R1
R2
RO

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;13 SPEEDS NILL BE TESTED
;FIRST SPEED =50 BAUD,

:8 BITS PER CHARACTER
sSELECT LINE 17
;SET LINE SPEED AND
sCHARACTER LENGTH

;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES

;WILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
:STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED

:RESTART TRANSMITTER
;:UPDATA EXPECTED DATA
;UPUATE LINE SPEED
;UPDATE SPEED CODE

: 3

CZ0MF -CO

010374
010376

MACRO V04.00

27-JUN 85

001334
104400
000020
000000
000000
000000
000001
000001
000020

12:59:01 PAGE

BNE

4%
SCOPE
LINE=LINE.]

SEQ 51

19-27

BITX=BITX+BITX
LINE=O
XLINE=LINE
BITX=1
XBIT=BITX
.REPT
20
SDATA3
\LINE,\BITX
.NLIST
LINE=LINE+1
BITX=BITX+BITX
.LIST

.ENDR
SDATA3

010400

\LINE \BITX

sSINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 0
;LINE SPEED IS 9600 BAUD
;$SA§ASI$§ LENGTH WILL START AT S BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
:AT EACH CHARACTER LENGTH
010400
010400
010406
01041s

012767
012767
012767

000340
000001
010616

167370
005710
005676

010422

012767

010470

005672

004000

005620

000000
100000

005706

010430
010436
010440
010444

he-

000042
012777
005004
012705
012767

TS \XN,1.4%,1%
T41:
MOV
MOV
MOV
JIF N8B
«<1$>

.ENDC

AN=XN+1

9340,PS
@1, ICOUNT
4% ESCAPE

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

MOV

91$ ,FREEZ1

:SET UP TO LOOP WITH DATA

MoV
CLR
MOV
MOV

®BIT11,80HSCR
;MASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (S BITS)
¥0,RS
;LINE O WILL BE TESTED
404400 .100000,RDATA

010452

012700

000004

&4 ,RO

010456

012701

033500

#33500,R1

010462
010470
010474
010500
010502

012767
010577
016702
005402
010177

177740
005562
005662

005554

010506

012777

016364

005550

¢TBUF
, 30HBA

010514

016777

005642

005544

BYTCNT, 3DHBC

010522
010530
010534

012777
105777
100375

000001
005522

005540

005672
1%:

2%:

MOV

TS18

#-40,BYTCNT
R5,80HSCR

BYTCNT ,R2
R2
R1,8DHLPR

41, 3DHBAR

8DHSCR
24

;SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
sEXPECTED DATA
;4CHRARACTER LENGTHS
;WILL BE TESTED
;FIRST CHARACTER LENGTH =5 BITS,,

sLINE SPEED =9600 BAUD

;40 CHARACTERS AT 5 B8ITS
;SELECT LINE O

:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
sDATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
:START TRANSMITTER
sWAIT FOR DATA TO BE RECEIVED

CZDHF -CO

010536
010542
010546
010550
010554
010554
010556
010560
010566

MACRO V04.00

017703
020367
001407
005077

104002
104410

012777
105267

010572
010574
010576

005302
001355
105067

010602
010604
010606
010612
010614
010616

005201
005204
006367
005300
001325
104400
000001
000002

010620

27-JUN-85 12:59:01 PAGE

005516
005612

MOV

ggg

005514

CLR

SDHNRC ,R3

005556

MOV
INCB
DEC
BNE
CLRB

#1,80HBAR
RDATA
R2
24
RDATA

005550

INC
INC
ASL

R1
R4
BYTCNT

005566

SCOPE1L

3s:

DEC
BNE

;COMPER EXPECTED AND RECEIVED DATA

8DHBAR

4
2

005502

;GET RECEIVED DATA

g?.RDATA

HLT
EMT

000001

SEQ 52

19-28

;STOP TRANSMITTER
;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPLED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

s INITIALIZE EXPECTED

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

RO
1s

4% :
SCOPE
LINE=LINE«1
BITX=BITX+BITX
\LINE.\BITX
SDATA3

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 1
;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;70 8 BITS
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
010620
010620
010626
010634

012767
012767
012767

000340
000001
011036

167150
005470
005456

010642

012767

010710

005452

004000

005400

010650
010656
010660
010664

000043
012777
005004
012705
012767

000001
100400

TS \XN,1,4%,1$

T42:

JOIF N8B
LENDC

XN=XN+1

MOV

:DISABLE ALL INTERRUPTS

€1, ICOUNT
043, ESCAPE

;SET UP FOR 1 ITERATIONS
:SET UP TO ESCAPE TC NEXT TEST

MOV

#13 ,FREEZ2Y

+SET UP TO LOOP MWITH DATA

MOV

#BIT11,8DHSCR

sMASTER CLEAR INTERFACE

CLR

MOV

¢1+400+100000,RDATA

MOV

005466

#340,PS

MOV
MOV

#1,R5

tFIRST CHARACTER LENGTH CODE (S BITS)

;LINE 1 WILL BE TESTED

010672

012700

000004

MoV

#4 ,RO

;SET EXPECTED LINE NUMBER
tAND VALID OATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS

010676

012701

033500

MOV

#33500,R1

;FIRST CHARACTER LENGTH =5 BITS,,

010702
010710
010714
010720
010722

012767
010577
016702
005402
010177

177740
005342
005442

MoV
HOV
MOV
NEG
MoV

#-40,8YTCNT
R5,80HSCR
BYTCNT ,R2
R2
R1.80HLPR

010726

012777

016364

MOV

4TBUF
, SDHBA

005452

1s:

005334
005330

; 3

sWILL BE TESTED

sLINE SPEED =9600 BAUD
;40 CHARACTERS AT S5 BITS
;:SELECT LINE

;SET LINE SPEED AND
sCHARACTER LENGTH
:ADORESS OF TRANSMITTER

CIDMF -CO

010734

010742
010750
010754
010756
010762
010766
010770
010774
010774
010776
011000
011006
011012
011014

011016

011022
011024

011026
011032
011034
011036

011040

MACRO V04.00

016777
012777
105777
100375
017703
020367
001407
005077

104002
104410
012777
105267
005302
001355
105067
005201
005204
006367
005300
001325
104400
000002
000004

005422
000002
005302

27-JUN-85

12:59:01 PAGF

005324

005320

MOV

2%:

SEQ 53

19 29

BYTCNT,80HBC

42 ,3DHBAR

;:DATA BUFFER
;400

(OCTAL) BYTES

;WILL BE TRANSMITTED

:START

TRANSMITTER

;gIB

gOHSCR

sWAIT FOR DATA TO BE RECEIVED

005276
005372

MOV
ggg

SOHNRC ,R3
§3.RDATA

;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

005274

CLR

@0HBAR

000002
005346

MLT
EM7

005262

3s:

005336

005330

4%:

2
2

SCOPE1
')
INCB
DEC
BNE
CLRB

42 ,9DHBAR
RDATA
R2
28
RDATA

INC
INC
ASL
DEC
BNE

R1
R4
BYTCNT
RO
18

:STOP TRANSMITTER

;:DATA ERROR

:CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

:INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

SCOPE

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

sSINGLE LINE DATA TEST

s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 2

;LINE SPEED IS 9600 BAUD
:$2A§ASI$§ LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH

011040
011040
011046

011054

012767
012767
012767

000340
000001
011256

166730
005250
005236

011062

012767

011130

005232

011070
011076
011100
011104

000044
012777
005004
012705
012767

004000

005160

000002
101000

005246

011112

012700

000004

011116

012701

033500

011122

012767

177740

TS \XN,1,4%,1$
T43:
MOV
MOV
MOV
JIF

.ENDC

XN=XN+1

4340,PS
@1, ICOUNT
€43 ,ESCAPE

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

HOV

13 ,FREEZL

:SET UP TO LOOP WITH DATA

MOV
CLR
MOV
MoV

MBIT11,3DHSCR
;MASTER CLEAR INTERFACE
R4
sFIRST CHARACTER LENGTH CODE (5 BITS)
#2.RS
;LINE 2 WILL BE TESTED
424400+100000,RDATA

<18>

MOV

005232

#4,R0

MOV

#33500,R1

MOV

4 40,8YTCNT

;SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
sEXPECTED DATA
:4CHARACTER LENGTHS

sWILL BE TESTED

;:FIRST CHARACTER LENGTH =5 BITS,,

:LINE SPEED =9600 BAUD
;40 CHARACTERS AT

5 BITS

C2DMF -CO
11130

011134

011140
011142
011146

011154
011162
021170
011174
0l1176
011202

011206

011210
011214

MACRO V04.00

005122
005222

010577
016702
005402
910177

016364

016777

005202

012777

000004
005062

105777
100375

017703
020367
001407
005077
104002
104410
012777
105267
005302
001355

011242
011244
011246
011252
011258
011256

005201
005204
006367
005300
001325
104400
000003
000010

1$:

005114

012777

011214
011216
011220
01122¢
011232
011234
011236

27-JUN-85 12:59:01 PAGE

005110

MOV
MOV
NEG
MOV
MOV

005104

MOV

005100

RS ,aDHSCR
BYTCNT ,R2
R2
R1,9DHLPR
¢TBUF ,3DHBA

BYTCNT,8DHBC

MOV
ggle

44 ,9DHBAR
gOHSCR

005056
005152

MOV
ggg

SDHNRC ,R3
§3.RD&TA

005054

CLR
HLY
EMT
SCOPEL
MOV
INCB
DEC
BNE
CLRB

aDHB AR
e
4

RDATA
R2
2%
RDATA

INC
INC

R1
R4

28:

000004
005126

105067

005042

3s:

005116

005110

ASL

43 :

DEC
BNE

SEQ 5S4

19 30

¥4 ,3DHBAR

:SELECT LINE 2

;SET LINE

SPEED AND

;CHARACTER LENGTH

;ADDRESS OF

;DATA BUFFER

TRANSMITTER

;400 (OCTAL) BYTES

;sWILL BE TRANSMITTED

;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
;DATA ERROR

sCHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

sINITIALIZE EXPECTED

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

BYTCNT

RO
1s

SCOPE

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

011260

;SINGLE LINE DATA TESY
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 3
;LINE SPEED IS 9600 BAUD

:$8A:Ag;$§ LENGTH WILL START AT S5 BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
sAT EACH CHARACTER LENGTH
011260
011260
011266
011274
011302

011310
011316
C11320
011324

012767
012767
012767
012767
000045
012777
005004
012705
012767

000340
000001
011476

166510
005030
005018

011350

005012

004000

004740

000003
201400

005026

TS \¥N,1,4%,13
T44:;
MoV
MOV

.IF NB
.ENDC
XN=XN+1

MOV

8340,PS
€1,ICOUNT
943 ESCAPE

;DISABLE ALL INTERRUPTS
sSET UP FOR 1 ITERATIONS

MoV

013 ,FREEZ1

;SET UP TO LOOP WITH DATA

#81711,8DHSCR

sMASTER CLEAR INTERFACE
iFIRST CHARACTER LENGTH CODE (S BITS®

<1$>

MOV

CLR

MOV
MOV

;:SET UP TO ESCAPE TO NEXT TEST

43.R5
;LINE 3 WILL BE TESTED
#34400+100000,RDATA

;SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG

i 3

CZ0HF CO

“1CRO V04.00

27-JUN-85

12:59:01 PAGE

011332

012700

000004

MOV

%4 ,RO

011336

012701

033500

MoV

¢33500,R1

011342
011350
011354
011360
011362

012767
010577
016702
005402
010177

005002

MOV
MOV
MOV
NEG
MoV

9-40,8YTCNT
RS ,80HSCR
BYTCNT R
R2
R1,80HLPR

011366

012777

016364

004670

MOV

#TBUF
, 8DHBA

011374

016777

004762

004664

MOV

BYTCNT,8DHBC

011402
011410
011414
Cll4ale
011422
011426

012777
105777
100375
017703
020367
001407
005077

000010
004642

004660

011430
011434
011434
011436
011440

011446

011452
011454
011456
011462
011464
011466
011472
011474
011476

104002
104410
012777
105267
005302
001355
105067

005201
005204
000367
005300
001325
104400
000004

177740

004702

005012

1$:

004674

2%:

004636
004732

004622

3s:

004670

8DHSCR
23

CcHp

R3,RDATA

BEQ
CLR
HLT
EMT
SCOPE1
MOV
INCB
OEC
BNE
CLRB

INC

INC
ASL
DEC

004670

410, 8DHBAR

T7S18
B8PL
MoV

004634

000010
004706

MoV

BNE

SEQ 55

19 31

S0HNRC,R3

34
S80HBAR
2
2

210, 3DHBAR
RDATA
R2
23
RDATA

R4
BYTCNT
RO

;EXPECTED DATA
s4CHARACTER LENGTHS
sWILL BE TESTED
;FIRST CHARACTFR LENGTH =5 BITS,,
;LINE SPEED =4o00 BAUD
;40 CHARACTERS AT S BITS
;SELECT LINE 3

:SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
;START TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED

;:GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR
:CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

:INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

4% :
SCOPE
LINE=LINE-1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

000020

011500

:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 4
;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED

;70 8 BITS
:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH

011500
011500
011506
011514

012767
012767
012767

000340
000001
011716

166270
004610
004576

011522

012767

011570

004572

000046

he-

TS \XN,1,4%,1s
T45:
MOV
MOV
MoV
.IF N8B
<1$>
MOV
.ENDC
XN=XN+1

¢340,PS
&1, ICOUNT
#4$ ,ESCAPE

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

#1$ ,FREEZYL

;SET UP TO LOOP WITH DATA

i 3

CZ0MF -CO
011530
011536
011540
011544

011552
011556

MACRO V04.00

012777
005004
012705
012767

012700
012701

004000
000004
102000

011606

012777

016364

011614

016777

011622
011630

011646

011650
011654
011654
011656
011660
011666
011672
011674
011676
011702
011704
011706
011712
011714
011716

011720

MOV

CLR

MOV
MOV

004606

MOV

033500

005402
010177

011634
011636
011642

004520

000004

011562
011570
011574
011600
011602

012767

27-JUN-85 12:59:01 PAGE

177740
004462
004562

MOV

004572

SEQ 56

19-32

$BIT11,8DHSCR

;MASTER CLEAR INTERFACE

sFIRST CHARACTER LENGTH CODE (S5 BITS)

#4 ,RS
;LINE 4 WILL BE TESTED
#44400+10000v,
RDATA

#4 ,R0O
#33500,R1

:SET EXPECTED LINE NUMBEPR
;AND VALID DATA FLAG
;EXPECTED DATA

;4CHARACTER LENGTHS

sWILL BE TESTED

;FIRST CHARACTER LENGTH

;:LINE SPEED =9600 BAUD

=5 BITS.,

MOV
MOV
MOV
NEG
MOV

# 40,BYTCNT
RS ,8DHSCR
BYTCNT,R2
R2
R1,8DHLPR

;40 ChARACTERS AT S BITS
sSELECT LINE 4

004450

MOV

&TBUF , aDHBA

;ADDRESS OF TRANSMITTER

004542

004444

MOV

BYTCNT,80HBC

;400 (OCTAL) BYTES

012777
105777

000020
004422

004440

MOV
;glfi

#20, 8DHBAR
g?HSCR

;START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED

017703
020367
001407
005077

004416
004512

MOV

@DHNRC ,R3

;GET RECEIVED DATA

004414

CLR
HLT
EMT
SCOPEL
MOV

8DHBAR
2
2

;STOP TRANSMITTER
;DATA ERROR

010577
016702

100375

104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000005
000040

1s:

004454

000020
004466

2%:

gg:

004402

3s$:

004456

004450

;CHARACTER LENGTH
;DATA BUFFER

+WILL BE TRANSMITTED

;COMPER EXPECTED AND RECEIVED DATA

920, 80HBAR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER

DEC
BNE
CLRB

R2
24
RDATA

;INITIALIZE EXPECTED

INC
INC
ASL
DEC
BNE

R1
R4
BYTCNT
RO
13

INCB

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

SDATA3

g?-RDATA

;SET LINE SPEED AND

RDATA

;UPDATA EXPECTED DATA

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

\LINE,\BITX

:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE S
;LINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED
;70 8 BITS
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
211720

011720

012767

000340

166050

TS \XN,1,48,1%
T46:
MOV

#340,PS

;+DISABLE ALL INTERRUPTS

CZOHF -CO

MACRO V04.00

011726
011734

012767
012767

000001
012136

004370
004356

011742

012767

012010

004352

004000

004300

000005
102400

004366

011750
011756
011760
011764

000047
012777
005004
012705
012767

JIF N8
.ENDC

XN=XN+1

MOV
MoV
<1$>
MOV

91, ICOUNT
443 ,ESCAPE

:SET UP FOR 1 ITERATIOUNS
sSET UP TO ESCAPE TO NEXT TEST

414 ,FREEZY

;SET UP TQ LOOP WITH DATA

MOV
CLR
MoV
MOV

#8IT11,30HSCR
iMASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (S BITS)
#5,R5
;LINE 5 WILL BE TESTED
#5+400+100000,RDATA

011772

012700

000004

MOV

#4 ,R0

011776

012701

033500

MOV

#33500,R1

012002
012010
012014
012020
012022

012767
010577
016702
005402
010177

177740
004242
004342
004234

MOV
MOV
MOV
NEG
MoV

#-40,BYTCNT
R5,3DHSCR
BYTCNT ,R2
R2
R1,90HLPR

012026

012777

016364

004230

MOV

#TBUF, 8DHBA

012034

016777

004322

004224

MOV

BYTCNT, 8DHBC

012042
012050
012054
012056
012062
012066
012070
012074
012074
012076
012100
012106
012112
012114
012116

012777
105777
100375
017703

000040
004202

004220

004176

MOV
TST8
BPL
MOV

#40, 3DHBAR
S0HSCR
23
30HNRC ,R3

001407
005077

004174

012122
012124

012126
012132
012134
012136
012140

020367

104002
104410

012777

105267

005302
001355
105067
005201
005204
006367
005300
001325
104400
000006
000100

004352

1$:

2%:

004272

000040

004246

CHP

004162

BEQ
CLR
HLT
EMT
SCOPEL

3s:

004236

004230

SEQ 57

27-JUN-85 12:59:01 PAGE 19-33

MOV

INCB

DEC
BNE
CLRB

R3,RDATA
3$
8DHBAR
2
2

€440, 30HBAR

RDATA

R2
2%
RDATA

INC
R1
INC
R4
ASL
BYTCNT
DEC
RO
BNE
1s
45:
SCOPE
LIME=LINE«1
BITX=BITX+BITX
SDATA3
\LINE,\BITX
-

;SET CAPECTED LINE NUMBER
;AND VALID DATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS
sWILL BE TESTED
:FIRST CHARACTER LENGTH =5 BITS,,
iLINE SPEED =9600 BAUD
;40 CHARACTERS AT S BITS
:SELECT LINE 5

:SET LINE SPEED AND
;CHARACTER LENGTH
:ADDRESS OF TRANSMITTER
;OATA BUFFER
;400 C(OCTAL) BYTES
;WILL BE TRANSMITTED
:START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
:GET RECEIVED DATA
;:COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
:UPDATA EXPECTED DATA

;INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

;SINGLE LINE DATA TEST
;sTRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 6
;LINE SPEED IS 9600 BAUD

;CHARACTER LENGTH WILL START AT S BITS AND BE INCREMENTED

CZDHF -CO

MACRO V04.00

27-JUN-85

12:59:01 PAGE

SEQ 58

19-34

;70 8 BITS
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH CHARACTER LENGTH

012140
012140
012146
012154

012767
012767
012767

000001
012356

165630
004150
004136

012162

012767

012230

004132

012170
012176
012200
012204

000050
012777
005004
012705
012767

004000

004060

000340

000006
103000

004146

TS \XN,1,45,1$
T47:
MOV
MOV
MOV
IF NB O <18
MOV
.ENDC
XN=XN+1
MOV
CLR
MOV
MoV

#340,PS
#1,ICOUNT
#44% ,ESCAPE

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

#1$ ,FREEZL

;SET UP 7O LOOP WITH DATA

gEITll.BDHSCR
#6,R5
#62+400+100000,RDATA

012700

000004

MOV

#4 RO

012216

012701

033500

MoV

#33500,R1

012222
012230
012234
012240
012242

012767
010577
016702
005402
010177

177740
004022
004122
004014

MOV
MOV
MOV
NEG
MOV

¢-40,BYTCNT
R5,8DHSCR
BYTCNT ,R2
R2
R1,8DHLPR

012246

012777

016364

004010

MOV

#TBUF
, 3DHBA

012254

016777

004102

004004

MOV

BYTCNT,80HBC

012262
012270
012274
012276
012302
012306
012310
012314
012314
012316

012777
105777
100375
017703
020367
001407
005077

000100
003762

004000

MOV
TSTB

#100,30HBAR

012320

012326
012332
012334
012336
012342
012344
012346
012352
012354
012356

104002
104410
012777
105267
005302
001355
105067
005201
005204
006367
005300
001325
104400
000007
000200

004132
1s:

2%:

003756
004052

MOV
CHp

003754

000100
004026

004016

004010

BPL

003742

3$:

BEQ
CLR
HLY
EMT
SCOPEL
MOV
NCB
DEC
BNE
CLRB

INC
INC
ASL
DEC
BNE
4%:
SCOPE
LINE=LINE«1
BITX=BITX+BITX

@0OHSCR
2%
SOHNRC ,R3
R3 ,RDATA
33
8DHBAR
2
2
#100,80HBAR

ROATA

R2
a4
RDATA

sMASTER CLEAR INTERFACE

;FIRST CHARACTER LENGTH CODE
sLINE 6 WILL BE TESTED

012212

(5 BITS)

;SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
:EXPECTED DATA

;4CHARACTER LENGTHS
:WILL BE TESTED
;FIRST CHARACTER LENGTH =5 BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT 5 BITS
sSELECT LINE 6

:SET LINE SPEED AND
;CHARACTER LENGTH

;ADDRESS OF TRANSMITTER
;DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;:START TRANSMITTER
:WAIT FOR DATA TO BE RECEIVED

;GET RECEIVED DATA
:COMPER EXPECTED AND RECEIVED DATA
;:STOP TRANSMITTER
;DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER

;UPDATA EXPECTED DATA

;INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

CZDHF -CO

MACRO V04.00

SEQ 59

27-JUN-85 12:59:01 PAGE 19-35

012360

SDATA3

\LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 7
:LINE SPEED IS 9600 BAUD

;%HARAg§$R LENGTH WILL START AT 5 BITS AND BE INCREMENTED

S
;70 8
:A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
012360
012360
012366
012374

012767
012767
012767

000340
000001
012576

165410
003730
003716

012402

012767

012450

003712

0040C0

003640

012410
012416
012420
012424

00051
012777
005004
012705
012767

000007
103400

TS \XN,1,4%,1$
150:
MOV
MOV
MOV

JIF NB

.ENDC

XN=XN+1

#340,PS
#1 ,ICOUNT
#4$ ESCAPE

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

MOV

#14$ ,FREEZL

;SET UP TO LOOP WITH DATA

MoV

#BIT11,8DHSCR
R4

:MASTER CLEAR TINTERFACE
sFIRST CHARACTER LENGTH CODE (S BITS)

«<i$»>

CLR

MOV
MoV

003726

27,R5

012432

012700

000004

MOV

#4 ,R0

012436

012701

033500

MOV

#33500,R1

012442
012450
012454
012460
012462

012767
010577
016702
005402
010177

177740
003602
003702

MOV
MOV
MOV
MOV

#-40,BYTCNT
R5,80HSCR
BYTCNT ,R2
R2
R1.8DHLPR

012466

012777

016364

003570

MoV

¢TBUF, DHBA

012474

016777

003662

003564

MOV

BYTCNT,80HBC

012502

012777
105777
100375
017703
020367
001407
005077

000200
003542

003560

012510
012514
012516

012522

012526

012530
012534
012534
012536
012540
012546
012552
012554
012556

105267
005302
001355
105067

012562
012564

005201
005204

104002
104410
012777

003712

1%:

003574

2%:

003536
003632

MoV
1578
BPL
MOV

cne
8EQ
CLR
HLY

003534

EMT

000200

003606
003576

003522

SCOPEL

3s:

MOV
INC8
DEC
BNE

;LINE 7 WILL BE TESTED

#74400+100000,RDATA

9200, 9DHBAR

S0HSCR
2%

S0HNRC ,R3
R3,RDATA
3
SOHBAR
2
2
#200, 8DHBAR

CLRB

RDATA
R2
2%
RDATA

INC
INC

Ri
R4

;SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
;EXPECTED DATA
;4CHARACTER LENGTHS
;WILL BE TESTED
sFIRST CHARACTER LENGTH =S BITS,,
sLINE SPEED =9600 BAUD
;40 CHARACTERS AT S BITS
;SELECT LINE 7
sSET LINE SPEED AND
;:CHARACTER LENGTH
;:ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 (OCTAL) BYTES
sWILL BE TRANSMITTED
;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA

;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER

sDATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA
s INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

;

CZDH~ -CO
012566
012572

012574

012576

012600

MACRO v04.00

006367
005300
001325
104400

27-JUN-85

003570

SEQ 60

12:59:01 PAGE 19-36

ASL
BYTCNT
DEC
RO
BNE
14
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

000010
000400

;SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 10
;LINE SPEED IS 9600 BAUD
:$3ARA§I$§ LENGTH WILL START AT 5 BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
:AT EACH CHARACTER LENGTH
012500
012600
012606
012614

012767
012767
012767

000340
000001
013016

165170
003510
003476

012622

012767

012670

003472

004000

003420

000010
104000

003506

012630
012636
012640
012644

000052
012777
005004
012705
012767

TS \XN,1,4%,1$
T51:
MOV
MOV
MOV
JF NB O <1$>
MOV

.ENDC

XN=XN+1

MOV

CLR
MOV
MoV

#340,PS
91, ICOUNT
448 ,ESCAPE

;DISABLE ALL INTERRUPTS
;SET UP FOR 1 ITERATIONS
:SET UP (0 ESCAPE TO NEXT TEST

#1$ ,FREEZ]

;SET UP TO LOOP WITH DATA

012700

000004

MOV

€4 ,R0

012656

012701

033500

MoV

012662
012670
012674
012700
012702

012767
010577
016702
005402
010177

MoV
MOV
MOV
NEG
MOV

#-40,BYTCNT
R5,8DHSCR
SYTCNT.RE
2
R1,BDHLPR

177740

003472

003462

1¢:

003354

:SET EXPECTED LINE NUMBER
;AND VALID DATA FLAG
sEXPECTED DATA
;4CHARACTER LENGTHS

sMILL BE TESTED

;FIRST CHARACTER LENGTH =5 BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT 5 BITS
;SELECT LINE 10

;:SET LINE SPEED AND

;CHARACTER LENGTH

012706

012777

016364

03350

MOV

4TBUF , 8DHBA

012714

016777

003442

003344

MoV

BYTCNT, 8DHBC

;400 (OCTAL) BYTES

012722
012730
012734
012736
012742
012746
012750
012754
012754
012756
012760
012766

012777
105777

000400
003322

003340

MoV
TSTB
BPL
MOV
cMp
BEQ
CLR
HLY
EMT
SCOPE1L
MOV
INCB

2400, 8DHBAR
g?HSCR

;START TRANSMITTER
;MALT FOR DATA TO BE RECEIVED

100375
017703
020367
001407
005077
104002
104410
012777

105267

2¢:

003316
003412
003314

000400
003366

003302

3%:

4BIT11,8DHSCR
;MASTER CLEAR INTERFACE
R4
;FIRST CHARACTER LENGTH CODE (5 BITS)
410,R5
;LINE 10 WILL BE TESTED
210+400+100000,RDATA

012652

003362

SDHNRC ,R3

gS.RDATk
$
SDHBAR
2
2

#400, 3DHBAR
RDATA

;ADDRESS OF TRANSMITVER

;:DATR BUFFER

;W1LL BE TRANSHMITTED

:GET RECEIVED DATA

sCOMPER EXPECTED AND RECEIVED DATA

:STOP TRANSMITTER
;:DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED

;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

CZDNF -CO

MACRO v04.00

012772
012774
012776

005302
001355

213002
013004
013006
013012

005201
005204
006367
005300
001325
104400
000011
001200

013014
013016
013020

105067

27-JUN 85

12:59:C1

003356

003350

PAGE

DEC
BNE
CLR8

R2
2%
RDATA

INC
INC

R1
R4

ASL

SEQ 61

19 37

s INITIALIZE EXPECTED

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

BYTCNT

DEC
RO
BNE
14
44 :
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 11
;LINE SPEED IS 9600 BAUD
;$3A3A§}$g LENGTH WILL START AT S5 BITS AND BE INCREMENTED
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH CHARACTER LENGTH

013020
013020
013026
013034

012767
012767
012767

000340
000001
013236

003256

013042

012767

013110

003252

004000

003200

000011
104400

003266

013050
013056

013060
013064

000053
012777
005004
012705
012767

164750
003270

TS \XN,1,4%,1¢
152:
MOV
MOV
H2¥
<i$>
.IF N8B
MoV
.ENDC
XN=XN+1
MOV
CLR

MOV
MoV

9340,PS
&1, ICOUNT
#4$ ,ESCAPE

;0ISABLE ALL INTERRUPTS
;SET UP FOR 1 ITERATIONS
:SET UP TO ESCAPE TO MNEXT

#1$ ,FREEZ!

;SET UP TO LOOP WITH DATA

012700

000004

MOV

3 RO

013076

012701

033500

MOV

#33500,R1

012767
010577
016702
305402
010177

177740
003142
002242

013126

012777

016364

013134

016777

013142
013150
013154
013156

012777
105777
100375
017703
020367
001407

013162
013166

003252

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
:EXPECTED DATA
;4CHARACTER LENGTHS

sWILL BE TESTED

;FIRST CHARACTER LENGTH =5 BITS,,

;LINE SPEED =9600 BAUD

MOV
MOV
MoV
NEG
HOV

#-40,BYTCNT
RS ,8DHSCR
BYTCNT ,R2
R2
R1,8DHLPR

;40 CHARACTERS AT 5 BITS
sSELECT LINE 11

003130

MoV

¢TBUF , 8DHBA

;ADDRESS OF TRANSMITTER

003222

G03124

Mov

BYTCNT ,3DHBC

001000
003102

003120

MOV

#1000, 3D0HBAR

sWILL BE TRANSMITTED
iSTART TRANSMITTER

R3,ROATA

;COMPER EXPECTED AND RECEIVED DATA

1s:

003134

003076

003172

2%:

TST8
BPL
MOV

BOHSCR
2%
8DHNRC ,R3

BEQ

CcMp

9BIT11,8DHSCR
sMASTER CLEAR INTERFACE
R4
iFIRST CHARACTER LENGTH CODE (S BITS)
#11.R3
;LINE 11 WILL BE TESTED
2114400+ 1G0000,RDATA

013072

013102
013110
013114
013120
013122

(EST

:SET LINE SPEED AND

;CHARACTER LENCTH
;DATA BUFFER

1400 (OCTAL) BYTES

;WAIT FOR DATA TO BE RECEIVED
:GET RECEIVED DATA

CZDHWF -CO
013170
013174
013174
013176
013200
01320¢
013212
013214
013216

013222
013224
013226
013232
013234
013236

013240

MACRO V04.00

005077
104002
104410
017777
105267
005302

001355
105067

005201
005204
006367
005300
001325
104400
000012
002000

003074

001000
003146

SEQ 62

27-JUN-85 12:59:01 PAGE 19 38

003062

3s:

CLR
HLT
EMT
SCOPEL
MOV

aDHBAR
2
2

;STOP TRANSMITTER
;:DATA ERROR

INCB
DEC

#1000, BDHBAR
RDATA
R2

;RESTART TRANSMITTER
:UPDATA EXPECTED DATA

CLRB

RDATA

;sINITIALIZE EXPECTED

BNE

003136

INC
R1
INC
R4
ASL
BYTCNT
VEC
RO
BNE
1¢
4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

003130

;CHECK FOR LOOP AT CURRENT SPEED

;RECEIVED DATA
;UPDATA CHARACTER LENGTH

;:SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 12

:LINE SPEED IS 9600 BAUD
:%gAgAg}gg LENGTH WILL START AT S BITS AND BE INCREMENTED
;A _BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH

013254

013262

013270
013276
013300
013304

012767
012767
012767
012767
000054
012777
005004
012705
012767

000340
000001
013456

164530
003050
003036

013330

003032

004000

002760

000012
105000

003046

TS \XN,1,4%,1¢

T753:

IF N8

.ENDC
XN=XN+1

MOV
MOV
MoV
<18>
MOV

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

;SET UP TO ESCAPE TO NEXT TEST

#1$,FREEZ]

sSET UP TO LOOP WITH DATA

MoV
CLR
MOV
MOV

98IT11,3DHSCR
:MASTER CLEAR INTERFACE
R4
iFIRST CHARACTER LENGTH CODE (S BITS)
#12,.R5
;LINE 12 WILL BE TESTED
412+400+100000 ,RDATA

013312

012700

000004

MOV

#4 RO

013316

012701

033500

MOV

#33500,R1

013322
013330
013334
013340
013342

012767
010577
016702
005402
010177

177740
002722
003022

MOV
MOV
MOV
NEG
MoV

9-40,BYTCNT
RS, 8DHSCR
BYTCNT R
R2
R1,8DHLPR

013346

012777

016354

002710

MOV

@TBUF
, 8DHBA

013354

016777

003002

002704

MOV

BYTCNT, aDHBC

003032

00714

1%:

;:DISABLE ALL INTERRUPTS
:SET UP FOR 1 ITERATIONS

:SET EXPECTED LINE NUMBEQ
;AND VALID DATA FLAG
;EXPECTED DATA

s4CHARACTER LENGTHS

sWILL BE TESTED
sFIRST CHARACTER LENGTH =5 BITS.,
;sLINE SPEED =9600 BAUD
140 CHARACTERS AT S BITS
sSELECT LINE 12

;SET LINE SPEED AND

;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
:DATA BUFFER
;400 COCTAL) BYTES

—

sWILL BE TRANSMITTED

(7]

013240
013240
013246

CZ0R* CO

013362
013370
013374
013376
013402

013406
013410
013414
013414
013416
013420
013426
013432
013434
013436
013442

013444
013446
013452
013454
013456

013460

MACRO

012777
105777
100375
017703
020367
001407
005077
104002
104410
012777

102267
005302
001355
105067
005201
005204
006367
005300
001325
10440C
000013
004000

V04.00

002000
002662

JUN-85

12:59:01

002700
2%:

002656
002752

002654

002000
002726

002642
3s:

002716

002710

PAGE

SEQ 63

19-39

MOV
TST8

#2000, 3DHBAR
8DHSCR

8PL
MOV
CHP
BEQ
CLR
HLY
EMT
SCOPE1L

2%
SDHNRC,R3
R3,RDATA
3s
aDHBAR
2
2

MOV
INCB

#2000, 3DHBAR
RDATA

DEC
BNE
CLRB

R2
23
RDATA

INC
INC
ASL
DEC
BNE

R1
R4
BYTCNT
RO
1¢

;START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
:COMPER EXPECTED AND RECEIVED DATA
:STOP TRANSMITTER
:DATA ERROR

sCHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA
; INITIALIZE EXPECTED
:RECEIVED DATA

sUPDATA CHARACTER LENGTH

4%:
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

;SINGLE LINE DATA TEST

; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 13

:LINE SPEED IS 9600 BAUD
:$3A§A§I$§ LENGTH WILL START AT S BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
;AT EACH CHARACTER LENGTH
013460
013460
013466
013474

012767
012767
012767

000340
000001
013676

164310
02630
L2616

013502

012767

013550

002612

013510
013516
013520
013524

000055
012777
005004
012705
012767

004000

002540

000013
105400

002626

TS \XN.1,4%,1¢
154:
MOV
MOV
MOV
<1%>
.IF N8
MOV
.ENDC
XN=XN«1
MOV
CLR
MOV
MOV

4340,PS
&1, JCOUNT
¥4 4 ,ESCAPE

:SEY UP FOR 1 ITERATIONS

414 ,FREEZL

$SET UP TO LOOP WITH DATA

sDISABLE ALL INTERRUPTS

:SET UP TO ESCAPE TO NEXT TEST

®BIT11,B0HSCR
sMASTER CLEAR INTERFACE
R4
:FIRST CHARACTER LENGTH CODE (S BITS)
¢13.RS
;LINE 13 WILL BE TESTED
4134400+ 100000, ,RDATA

;SET EXPECTED LINE NUMBER
1AND VALID DATA FLAG
sEXPECTED DATA

013532

012700

000004

MOV

#4,RO

;4CHARACTER LENGTHS

013536

012701

033500

MOV

#33500,R1

;FIRST CHARACTER LENGTH =5 BITS,,

013542
013550
013554
013560

012767
010577
016702
005402

177740
002502
002602

rov
MOV
MOV
NEG

9-40,BYTCNT
R3,3DHSCR
g;TCNT.RZ

140 CHARACTERS AT S BITS
;SELECT LINE 13

002612
1s:

;WILL BE TESTED

:LINE SPEED =9600 BAUD

CZDHF -CO

MACRO

V04.00

013562

010177

002474

013566

012777

016364

013574

016777

013602
013610
013614
013616
013622
013626
013630
013634
013634
013636
013640
013646
013652
013654

012777

013656

013662
013664
013666
013672
013674
013676

013700

105777
100375
017702
020367

001407
005077
104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000014
010000

27-JUN-85

12:59:01

PAGE

SEQ 64

19 40

MOV

R1,90HLPR

;SET LINE SPEED AND

002470

MOV

#TBUF , 8DHBA

;ADDRESS OF TRANSMITTER

002562

002464

MOV

BYTCNT, 8DHBC

;400 (OCTAL) BYTES

004000

002460

MOV

#4000, 8DHBAR

;START TRANSMITTER

002442

002436
002532
002434

004000
002506

002422

3s:

002476

TSTB
BPL
MOV
cMP

BEQ
CLR
HLT
EMT
SCOPE1
MOV
INCB
DEC
BNE

CLRB

@DHSCR
2
80HNRC ,R3
R3,RDATA

3s
SDHBAR
2
2

94000, BDHBAR
RDATA
R?
28
RDATA

INC
R1
INC
R4
ASL
BYTCNT
DEC
RO
BNE
1$
4.
SCOPE
LINE=LINE+1
BITX=BITX+BITX
SDOATA3
\LINE,\BITX

002470

;CHARACTER LENGTH
;DATA BUFFER

;WILL BE TRANSMITTED

{WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA

;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR

;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;INITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH
|

;SINGLE LINE DATA TEST
: TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 14
;LINE SPEED IS 9600 BAUD
:?gAgAgI$g LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
:AT EACH CHARACTER LENGTH
013700
013700
013706
013714

012767
012767
012767

000340
000001
014116

164070
002410
002376

013722

012767

013770

002372

004000

002320

000014
106000

002406

TS \XN,1,4%,1$
T55:
MOV
MOV
F e
ng:
R

013730
013736
013740
013744

000056

012777
005004
012705
012767

#340,PS
01, ICOUNT
044, ESCAPE

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

HOV

01%,FREEZ)

:SET UP TO LOOP MITH DATA

MOV
CLR
MOV
MOV

#BIT11,80HSCR
:MASTER CLEAR INTERFACE
R4
iFIRST CHARACTER LENGTH CODE (S BITS)
014,RS
{LINE 14 WILL BE TESTED
0144400100000 ,RDATA

EroC

XN=XN-+1

iSET EXPECTED LINE NUMBER
;AND VALID DAT. FLAG
013752

012700

000004

MOV

4 RO

{EXPECTED DATA

;8CHARACTER LENGTHS
sWILL BE TESTED

CZOHF -CO

MACRO V04.00

013756

012701

033500

013762
013770
013774
014000
014002

012767
010577
016702
005402
010177

177740
002262
002362

002254

014006

012777

016364

014014

016777

014022
014030

012777

014034
014036
014042
014046
014050
014054
014054
014056
014060
014066
014072

014074

014076

014102
014104
014106
014112
014114
014116

014120

105777

100375
017703
020367
001407
005077

27-JUN 85 12:59:01 PAGE

MOV

#33500,R1

MOV
MOV
MOV
NEG
MOV

#-40,BYTCNT
RS, 8DHSCR
BYTCNT ,R2
R2
R1,8DHLPR

002250

MOV

#TBUF
, 80HBA

002342

002244

MOV

BYTCNT
, 80HBC

010000
002222

002240

MOV

#10000, 80HBAR

002372
1s:

24:

002216

MOV

002312

002214

104002

104410
012777
105267
005302
001355
105067

005201
005204
006367
005300
001325
104400
000015
020000

010000
002266

1578
BPL

002202

3%:

cMp
BEQ
CLR
HLT
EMT
SCOPEL
MOV
INCB

DEC
BNE
CLRB

002256

002250

44 :

INC
INC
ASL
DEC
BNE

SCOPE

SEQ 65

19 41

8DHSCR
24
80HNRC ,R3
R3,RDATA
34
80HBAR
2
2

910000, 3DHBAR
RDATA
R2
24

ROATA

Rl
R4
BYTCONT
RO
1

iFIRST CHARACTER L_NGTH =5 BITS,,

iLINE SPEED =9600 BAUD
;40 CHARACTERS AT S5 BITS
;SELECT LINE 14

iSET LINE SPEED AND
iCHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;DATA BUFFER
;400 (OCTAL) BYTES
iWILL BE TRANSMITTED
;:START TRANSHMITTER
;WAIT FOR DATA TO BE RECEIVED
;GET RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR

:CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATR EXPECTED DATA
; INITIALIZE EXPECTED
iRECEIVED DATA
sUPDATA CHARACTER LENGTH

LINE=LINE+1
BITX=BITX+BITX
SDATA3
\LINE,\BITX

;SINGLE LINE DATA TEST

: TRANSMIT A BLOCK OF 400 (CCYAL) CHARACTERS ON LINE 15

sLINE SPEED IS 9600 BAUD
:CHARACTER LENGTH WILL SYARY AT 5 BITS AND BE INCREMENTED
;70 8 BITS
iA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
tAT EACH CHARACTER LENGTH
014120
014120
014126
014134

014142

014150
014156
014160

012767
012767
012767

000340
000001
014336

163650
002170
002156

012767

014210

002152

000057
012777

005004
012705

004000

000015

002100

TS \XN,1.4%,1%
156:
MOV

MOV

.IJF N8
.ENDC
XN=XN«1

MoV
«1%>
mov

MOV
CLR

MoV

v340 ,PS
€1, ICOUNT
44, ESCAPE

1SET UP FOR 1 ITERATIONS
+SET UP TO ESCAPE 7O NEXT TEST

#14,FREEZL

$SET UP TO LOOP WITH DATA

#BIT11,8DHSCR
R4
#15,R5

;:DISABLE ALL INTERRUPTS

i ¥

;MASTER CLEAR INTERFACE
;FIRST CHARACTER LENGTH CODE (S BITS)
;LINE 15 WILL BE TESTED

CI0mMF CO
014164

MACRO v04.00

012767

106400

27 JUN 85 12:59:01 PAGE

002166

MOV

9154400.100000,RDATA

014872

012700

000004

MoV

¥4 R0

014176

012701

033500

MOV

433500,R1

014202
014210
0.4214
014220
014222

012767
010577
016702
005402
010177

177740
002042
002142

MoV
MOV
MOV
NEG
MoV

€-40,8YTCNT
RS,8DHSCR
BYTCNT ,R2
R2
R1.80HLPR

014226

012777

016364

002030

MOV

&TBUF
, SDHBA

014234

016777

002122

002024

MOV

BYTCN
, 30HBC
T

014242
014250
014254
014256

012777

020000
002002

002020

MOV
1578

017703
020367
001407
005077

001776
002072

420000, 30HBAR
@DHSCR
28
SDHNRC ,R3
R3 ,RDATA
3s
3DHBAR
2

014262
014266
014270
014274
014274

014276
014300
0143C6
014312
014314
014316
014322
014324
014326
014332

014334
014336

014340

105777
100375

104002
104410
012777
105267
005302
001355
105067

005201
005204
006367
0035300
001325
104400
000016
040000

002152

1%:

002034

2%:

ePL

MoV
cMP

BEQ
CLR

001774

HLT

EmMT

020000
002046

001762

002036

002030

SCOPEL

3s:

MoV

#20000,30HBAR

INCB
DEC
BNE
CLRB

RDATA
R2
2s
RDATA

INC
INC
ASL
DEC
BNE

Rl
R4
BYTCNT
RO
1s

4%
SCOPE
LINE=LINE.1

SEQ 66

19 42

:SET EXPECTED LINE NUMBER
sAND VALID DATA FLAG
;EXPECTED DATA
:4CHARACTER LENGTHS
sWILL BE TESTED
;FIRST CHARACTER LENGTH =S BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT

:SELECT LINE 15

S BITS

;SET LINE SPEED AND
;CHARACTER LENGTH
;ADDRESS OF TRANSMITTER
;DATA BUFFER
;400 (OCTAL) BYTES
;WILL BE TRANSMITTED
:START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED
:GET RECEIVED DATA
;:COMPER EXPECTED AND RECEIVED DATA

;STOP TRANSMITTER
:DATA ERROR
;CHECK FOR LOOP AT CURRENT SPEED
;RESTART TRANSMITTER
;UPDATA EXPECTED DATA

sINITIALIZE EXPECTED
;RECEIVED DATA
;UPDATA CHARACTER LENGTH

BITX=BITX.BITX
SDATA3
“LINE,\BITX

;SINGLE LINE DATA TEST
; TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 16
sLINE SPEED IS 9600 BAUD
;CHARACTER LENGTH WILL START AT 5 BITS AND BE INCREMENTED
;70 8 BITS
sA BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED

;AT EACH CHARACTER LENGTH
014340
014240
014346
014353

012767
012767
012767

000340
000001
014556

163430
001750
001736

TS \XN,1,4%,1$
T7157:
MOV
MoV
MOV
IF NB
<18

4340,PS

@1, ICOUNT
448 ,ESCAPE

;0OISABLE ALL INTERRUPTS
;SET UP FOR 1 ITERATIONS
:SET UP TO ESCAPE TO NEXT TEST

C:JH’ '\:0

MACRO v04.00

014362

012767

014370
014376
014400
014404

000060
012777
005004
0127C5
012767

27-JUN-85

014430

001732

004000

001660

000016
107000

001746

12:59:01 PAGE

ENDC

SEQ 67

19-43

MOV

013 ,FREEZi

MOV
CLR
MOV
MOV

®81T11,8DHSCR
;MASTER CLEAR INTERFACE
R4
:FIRST CHARACTER LENGTH CODE (S BITS)
16,R5
;LINE 16 WILL BE TESTED
#164400+100000,RDATA

;SET UP TO LOOP WITH DATA

:SET EXPECTED LINE NUMBER
:AND VALID DATA FLAG
sEXPECTED DATA

012700

000004

MOV

44 ,RO

014416

012701

033500

MOV

#33500,R1

014422
014430
014434
014440
014442

012767
010577
016702
005402
010177

177740
001622
001722
001614

MOV
MOV
MoV
NEG
MOV

& 40,BYTCNT
RS, 8DHSCR
BYTCNT ,R2
R2
R1,80HLPR

01444¢

012777

016364

001610

MoV

9TBUF , 8DHBA

: ADDRESS OF TRANSMITTER

014454

016777

001702

001604

MoV

BYTCNT, 30HBC

;400 (OCTAL) BYTES

014462
014470
014474
014476
014502
014506
014510
014514

012777
105777
100375
017703

040000
001562

001600

MoV
7578
8PL
MOV

440000, 3DHBAR
S0HSCR
2%
SOHNRC ,R3

:START TRANSMITTER
;WAIT FOR DATA TO BE RECEIVED

BEQ
CLR
HLT
€Mt
SCOPEL
MOV
INCB
DEC
BNE
CLRB

3s
S0HBAR
2
2

001407
005077

014514
014516
014520
014526
014532
014534
014536

104002
104410
012777
105267
005302
001355
105067

014542

005201
005204
006367
005300
001325
104400
000017

014544
014546
014552
014554

014556
013560

100000

001732

1s:

2s:

001556

001652

cMp

001554

040000
001626

001542

3s:

001616

001610

XN=XN-1

14412

020367

INC
INC
ASL
DEC
BNE
4s:
SCOPE
LINE=LINE+1

R3,RDATA

40000, 3DHBAR
RDATA
R2
23
RDATA

R1
R4
BYTCNT
RO
1s

s4CHARACTER LENGTHS

sWILL BE TESTED

iFIRST CHARACTER LENGTH =S BITS,,
;LINE SPEED =9600 BAUD
;40 CHARACTERS AT 5 BITS
:SELECT LINE 16

;SET LINE SPEED AND

;CHARACTER LENGTH
;:DATA BUFFER

;WILL BE TRANSMITTED

;:GET RECEIVED DATA

;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMITTER
;DATA ERROR

:CHECK FOR LOOP AT CURRENT SPEED
sRESTART TRANSMITTER
;UPDATA EXPECTED DATA
:INITIALIZE EXPECTED

sRECEIVED DATA

;UPDATA CHARACTER LENGTH

BITX=BITX+BITX

SDATA3

\LINE,\BITX

;SINGLE LINE DATA TEST
s TRANSMIT A BLOCK OF 400 (OCTAL) CHARACTERS ON LINE 17
;LINE SPEED IS 9600 BAUD
;ggkgkg}%g LENGTH WILL START AT 5 BITS AND BE INCREMENTED

;A BLOCK OF 400 CHARACTERS WILL BE TRANSMITTED
sAT EACH CHARACTER LENGTH

CI0WF CO

MACRO V04.00

27-JUN 85

12:59:01 PAGE

TS \XN,1,43,1%
T160:
MOV
MOV
e
"?¥

014560
014560
014566
014574

012767
012767
012767

000340
000001
014776

163210
00153C
001516

014602

012767

014650

001512

014610
014616
014620
014624

012777
005004
012705
012767

004000

001440

000017
107400

001526

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

MOV

818 ,FREEZ1

;SET UP TO LOOP WITH DATA

XN=XN+1

MOV
CLR
MOV
MOV

#31T11,80HSCR
;MASTER CLEAR INTERFACE
Fa
;sFIRST CHARACTER LENGTH CODE (5 BITS)
217,R5
sLINE 17 WILL BE TESTED
2174400+ 100000 ,RDATA

iSET EXPECTED LINE NUMBER
;:AND VALID DATA FLAG
sEXPECTED DATA

014632

012730

000004

MoV

@4 ,R0

014636

012701

033500

MOV

433500,R1

;FIRST CHARACTER LENGTH =5 BITS,,

014642
014650
014654
014660
014662

012767
010577
016702
005402
010177

177740
001402
001502

MOV
MOV
MOV
NEG
MOV

2-40,8YTCNT
R5,80HSCR
BYTCNT ,R2
R2
R1,8DHLPR

;40 CHARACTERS AT 5 BITS
sSELECT LINE 17

014666

012777

016364

001370

MOV

#TBUF , 3DHBA

;ADDRESS OF TRANSMITTER

014674

016777

001462

001364

MOV

BYTCNT , 8DHBC

014702
014710
014714
014716
014722
014726
0147320
014734
014734
014736
014740
014746
014752

012777

100000

001360

014754

014756
014762
014764
014766
0:4772
014774
014776

000061

2340,PS
#1,ICOUNT
043, ESCAPE

<1$>

ENpC

SEQ 68

19 44

105777
100375

017703
020367
001407
005077
104002
104410
012777
105267
005302
001355

105067

005201
005204
006367
005300
001325
104400
000020
00000
000000

001512

1%:

001374

001342

2%:

001336
001432

001376

001370

1ST8
BPL

MoV
cHp
BEQ

001334

100000
001406

Mov

CLR

001322

34:

HLT
EnT
SCOPEL
MOV
INCB
DEC
BNE
CLRA

INC
INC
ASL
DEC
BNE
44:
SCOPE
LINE=LINE+1
BITX=BITX«BITX
XDATA=0

4100000, 3DHBAR

S80HSCR
23

FOHNRC ,R3
R3,RDATA
3
SOHBAR
2
2
#100000, SDHBAR
RDATA
R2
23
RDATA
R1
R4
BYTCNY
RO
1s

:4CHARACTER LENGTHS

sWILL BE TESTED

;LINE SPEED =9600 BAUD

:SET LINE SPEED AND

iCHARACTER LENGTH

sDATA BUFFER
;400 (OCTAL) BYTES
:WILL BE TRANSMITTED
sSTART TRANSMITTER

;WAIT FOR DATA TO BE RECEIVED
;GEY RECEIVED DATA
;COMPER EXPECTED AND RECEIVED DATA
;STOP TRANSMIITER

;OATA ERROR
sCHECK FOR LOOP AT CURRENT SPEED
:RESTART TRANSMITTER
;UPDATA EXPECTED DATA

;INITIALIZE EXPECTED

;RECEIVED DATA

;UPDATA CHARACTER LENGTH

CZOHF -CO

MACRO V04.00

27-JUN-85

1
2 015000

SEQ 69

12:59.01 PAGE 20

.EoP

t/BEGIN/

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

:TYPE NAME OF TEST
LAST
ERRFLG
PASCNT
LIGHTS
2

LOGICAL:

RESTRT:
PASARG:

164214
002

.SCOPE

MOV

PASCNT ,LIGHTS

;:DISPLAY PASS COUNT

MOV
BEQ
RESET

a¢42,R1
RESTRT

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

NOP
NOP
NOP
JMP

.WORD
.BYTE
.WORD

JSR

032777
001030
032777
001021
032777
001006
005267
026767
001007
005067
005067

011667

000002
016716
000002
005767
001745

002000

163672

SCOPER:

040000

1636¢€2

1$:

004000

163652

001172
001166

001162

BEGIN

1
6,2
PASCNT

BIT
BNE
BIT
BNE
BIT
BNE
INC

#5410, 8SHR
43
25414, ISWR
34
45W11,85WR
2%
LPCNT

BNE
CLR
CLR
MOV
RTI
MoV
RTI
TST
BEQ

3s
LPCNT
ERRFLG
(SP),RETRN

cHMP

001156
001134
001136

2%:

001130

3s:

001114

4%
:

PC,(R1)

;CHECK FOR LOOP ON CURRENT TEST
sCHECK FOR ITERATION SUPPRESSION
015100
015106
015110
015116
015120
015126
015130
015134
015142
015144
015150
015154
015160
015162
015166
015170
015174

000042

3s:

; CONTINUE

LPCNT, ICOUNT

RETRN, (SP)

ERRFLG
13

PARAME (¢S TO PRINT PASSCOUNT

[, RV, )V, ]

013701
001405
000005
004711
000240
000240
000240
000167
000001
006
016312

163734

)

001246

016767

2%:

; PRINT PASSCOUNT

bUNVONSL

PASARG

PASTXT
OCTASC

: ARE WE USING LIGHTS?
; BRANCH IF WE ARE
; TYPE PASCOUNT MESSAGE

;CLEAR LAST ERROR PC
:CLEAR ERROR FLAG
;UPDATE PASS COUNT

001344
001274
001272
163756

TYPE
MEPASS
CLR
CLR
INC
TST
BNE
TYPE

EOP:

L T

015072
015074
015076
3 015100

104401
017347
005067
005067
005267
005767
001005
104401
017362
104402
015072
000403

015000
015002
015004
015010
015014
015020
015024
015026
015030
015032
015034
015036
015040
013040
015046
015046
015052
015054
015056
015060
015062
015064
015066

CZOHWF CO
015176
4 015200

MACRO v04.00

27-JUN-85 12:59:01 PAGE 20 1

000762

.SCOP1

SEQ 70

;CHECK FOR FREEZE ON CURRENT DATA
015200
015206
015210
015214

032777
001402
016716
000002

001000
001106

163572

SCOP1R:
1¢:

BIT
B8EQ
MOV
RTI

#SW09, ASWR
1$
FREEZ1,(SP)

;

CZOHF -CO

MACRO V04.00

SEQ 71

27 JUN-85 12:59:01 PAGE 21

1 015216

.ERROR

;ERROR HANDLER
015216
015224
015226
015232

015234

015240
025244
015246
015250
015254
015256
015260
015262
015266
015272
015276
015302
015306
015310
015314
015316
015320
015322
015324

032777
001055
021667
001404

011667

005067
104406
011605
162705
011504
006304
006304
042704
062704
012467
011467
005767
001403
005767
001011
104401
017257
104402
015422

015326
015334
015336
015340

000000
005767

015346
015350
015352
015354
015356
015360
015364
015366
015370
015374
015376
015400
015404
015412
015414
015420
015422
015424
015426

104401
017257
104402
000000
104407
005777
100005
010046
016600
000000
012600
005267
032777
001402
016716
000002
000001
006
016346

015344

012767
104401

001404

020000

163554

ERRORS:

001122

001114

1%:

000002

177001
017502
000040
000052
001002
000040
TYPMSG:

000754
ERRMSG:
TYPDAT:

000010

163414

000002

000710
002000
000700

002

#5uW13, SWR
HALTS
(SP),LAST
1s

CLR
SAVOSP
MoV
sue
MOV
ASL
ASL
8IC
ADD
MOV
MOV
TST
8EQ
781
BNE
TYPE
MCRLF
OCTASC
ERTABO

ERRFLG

MOV

001044

000001

BIT
BNE
cMp
BEQ

163366

MOV
TYPE

O
TST

BEGQ

TYPE
MCRLF
OCTASC
DATABP: 0
RESREG: RESOS
HALTS:
TST
BPL
PUSHRO
MOV
HALT
POPRO
EXITER: INC
81T
BEQ
MOV
1s:
RTI
ERTABO: 1
.BYTE
SAVPC

;

:
:
:
:

3
5
S
S

:
:

S
S

(SP),LAST

(SP),RS
#2,R5
(R5),R4
R4
R4
#177001,R4
®ERRTAB,R4
(R4)+,ERRMSG
(R4),DATABP
ERRFLG
TYPMSG
DATABP
TYPDAT

#1 ,ERRFLG
DATABP

RESREG

8SWR
EXITER

: 4

2(SP).RO

ERRCNT
#5H10, 8SWR
13
ESCAPE, (SP)

6,2

)

CZDWF -CO

HACRO vV04.00

SEQ 72

27-JUN-85 12:59:01 PAGE 22

015430

.TRPSRV

: TRAP DISPATCH SERVICE

; ARGUMENT OF TRAP IS EXTRACTED
:AND USED AS OFFSET TO OBTAIN POINTER

:TO SELECTED SUBROUTINE

015430
015432
015436
015442
015444
015450
015454
015460
2 015462

011646
162716
017616

006316
042716
062716
017616
000136

RPSRV:

MOV
SuB
MOV
TRPOK:
ASL
BIC
ADD
MOV
SAVREG JMP

000002
000000

177001
017422
000000

(SP),-(SP)
#2,(SP)
a(sP),{sP)
(SP)
#177001, (SP)
#TRPTAB, (SP)
8(SP), (SP)
8(SP)+

;GET PC OF RETURN
;2PC OF TRAP
;GET TRP

;MULTIPLY TRAP ARG BY 2
;CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
; SUBROUTINE ADDRESS
;GO TO SUBROUTINE

sSAVE PC OF TEST THAT FAILED AND RO-RS
015462

016667

000504

000656

SVO5P:

MOV

4(SP),SAVPC

sSAVE RO-R5
015470
015474
015500
015504
015510
015514
015520
3 015522

015522

015526
015532
015536
015542
015546
015552

010567
010467
010367
010267
010167
010067
000002

016700
016701
016702
016703
016704
016705
000002

000646
000640
000632
000623
000616
000610

Sv0s:

.RESREG

000602
000600
000576
000574
000572
000570

RSO5:

MoV
MOV
MOV
MOV
MOV
MOV
RTI

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

:RESTORE RO-RS
MOV
MOV
MoV
MOV
MOV
MOV
RTI

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

CZOMF CO

MACRO V04.00

SEQ 73

27-JUN-85 12:59:01 PAGE 23

1 015554

.TYPER

;sTELETYPE OUTPUT ROUTINE
015554
015560
015564
015570
015572
015574
015576
015600
015604
2 015606

017605
062716
105777
100375
105715
001001
000002

112577
000767

000000
000002
000462

TYPER:

000450

2%:

1¢:

MOV
ADD
1578
BPL
TST8
BNE
RTI

MOvVB
B8R

8(SP),R5
#2,(SP)
8TPCSR
1¢
(RS)
24

(R5)+,8TPDBR
13

.INSTRG

;ASCII SiPING INPUT ROUTINE
015606
015614
015620
015622

015624
015630
015634
015640
015642
015646
015652
015656
015660
015666
015672
015674
015676
015700
015702
015704
015706

017667
062716
104401
000000
012704
012703
105777
100375
117714

142714

122427
001413
117777
105777
100375
005303
001356
104401
017253
000745
000002

000000
000002

000006

INSTRG:

INSTR1:
MSG:

017444
000007
000406

1$:

000402

000200

B8ICB

000015

000364
000360

MOV
ADD
TYPE
0
MOV
MOV
1578
8PL
Move

000366

2%:

INSTRE:

INSTR2:

CHPB
BEQ
MOVB
1578
BPL
DEC
BNE
TYPE
MQM
BR
RTI

9(sP),MSG
#*2,(5P)
#INBUF ,R4
#7.R3
8TKCSR
1
9TKGER, (R4)

@200,(R4)

(R4)+,015
INSTR2
8TKOBR,8TPDBR

8TPCSR
24
R3
1s

INSTR1

;

CZDHF -CO

MACRO V04.00

1 015710

27 JUN-85 12:59:01

SEQ

PAGE 24

.PARAMS

:CONVERT ASCII STRING TO OCTAL
015710
015712
015716
015722
015726
015732
015736
015740
015742
015746
015752
015754
015760
015762
015766
015770
015774
015776
016002
016004
016006
016010
016012
016014
016016

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

017444
000015
000060

PARAMS:

MOV
MOV
MOV
MOV
Move

MOve

PARAML:

1s:

000067
000060

000015

PARERR:

MoV
CLR
MOV
CMPB

BEQ
cMPB
BLT
CMPB
8GT
8ICB
8ISB
cMPB
BEQ
ASL

ASL
ASL
BR
INSTER
BR

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

(R3)+,ADRCNT
R5,(SP)
RS
#INBUF ,R4
215.(R4)

PARERR
(R4),460
PARERR
(R4),467
PARERR
€60, (R4)
(R4)+,RS
415, (R4)
LIMITS
RS
RS
RS
14

PARAML

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
016020
016024
016026
016032
016034
016040

020567
101373

020567
103770
136705
001365

000042

LIMITS:

000032

CMP

BHI
CMP
BLO

B8ITB

000032

BNE

RS HILIM

PARERR
R5.LOLIM
PARERR

LOBIYS,RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
016042
016046
016050
015054
016060
016062
016064
018066
016070
016072

016704
010524
062705
105367
001372
000002
000000
000000
000000
000000
016073

000022
000002
000013

MOV
MoV
ADD
DECB
BNE
RTI
LOLIM:
O
HILIM:
O
DEVADR: 0
LOBITS: O
ADRCNT=L0OBITS+1

1s:

DEVADR,R4
R5,(R4).
42,R5
ADRCNT
13

;

CZDHF -CO

MACRO V04.00

01€074

27 JUN 85

SEQ 75

12:59:01 PAGE 25

.0CTASC

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
016074
016100
016104
016110
016114
016120

016124
016130
016134
016140
016142
016146
016152

016154
016156
016160
016162
016164
016166
016172
016174
016200
016202
016206
016210
016214
016220
016222

016224

016226
016230
016234
01623€
016240
016242

016244

017601
062716
012167
112167
112167
013167
016704

116705

012700
010403
042703
062703
110320
006204
006204
006204
005305
901365
012703
114023
105367
001374
105767
001405
112723
105367
001373
105013
104401
017470
005367
001325
000002
000000
000000
016243
000000

000000
000002
000130
000126
200123
000120
000114
000106
017456

177770
000260

017470
000042

000035
000240
000023

000004

OCTASN:

1¢:

28:

MOV
ADD
MOV
MOVB
MOVB
MOV
MOV
MOVE
MOV
MOV
BIC
ADD
MOVB
ASR
ASR
ASR

DEC
BNE

43 :

MOV

MOV8

a(sP),R1
#2,(SP)

(R1)+,WROCNT
(R1)+,CHRCNT
(R1)+,SPACNT
8(R1)+ ,BINWRD

BINWRD
R4
CHRCNT RS
4TEMP,RO
R4,R3
#177770,R3
#260,R3
R3,(RO)+

MDATA ,R3

-(RO), (R3).
CHRCNT

#240,(R3).
SPACNT
58

(R3)

WROCNT
1

: 5

; 3

CZOHF - CO

MACRO V04.00

016246

016246
016250
016252
016254

177560
177562
177564
177566

TLVL>

016256
016260
016262
216264

016266
016270
016272
016274
016276
016300
016302
016304
016306
016310

016310
016312
016314
016316
016320
016322
016323
016326
016330
016332
016334
016336
016340
016342
016344
016346
016350
016352
016354

000000
000000

000000
060000
000000
000000
000000
000000
000000
000000
000000

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

27 JUN 85

.POINT

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

TKCSR:
TKDBR:
TPCSR:
TPDBR:

177560
177562
177564
177566

.IRP

.ENDM
DHSCR:
DHNRC:

DHLPR:
DHBA:

DHBC :
DHBAR:
OHBCR:
DHSSR:
OHSLR:
DHRVEC:
DHRLVL:
OHTVEC:
DHTLVL:
.VARIA

ERRFLG:
PASCNT:
ERRCNT:
RETRN:
ESCAPE:
FREEZ1:
JCOUNT:
LPCNT:
SAVRO:
SAVRi:
SAVR2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:
INIFLG:
STFLG:
CAST:

.IRP

016356
016360
016362

000000
000000
000000

SEQ 76

12:59:01 PAGE 26

.ENDM
TDATA:
RDATA:
BYTCNT:

;INDIRECT POINTERS

; 3

<DHSCR,DHNRC ,DHLPR ,DHBA , DHBC . DHBAR ,DHBCR , DHS SR, DHSLR , DHRVEC , DHRLVL ,DHTVEC
, DH

0
O

O
©
©
©
O

+/TDATA,RDATA,BYTCNT/

;PROGRAM VARIABLES

O
O
0

;ERROR FLAG
;PASS COUNT
;ERROR COUNT

:SCOPE RETURN ADDRESS FOR TEST LOOPING
;:ADDRESS FOR ERROR ESCAPE
;iOATA LOOPING RETUKN ADDRESS
sITERATION COUNT FOR TEST IN PROGRESS
sNUMBER OF ITERATIONS THIS TEST
;RO SAVE AREA
;R1 SAVE AREA
;R2 SAVE AREA
;R3 SAVE ARE
;R4 SAVE ARER
;RS SAVE ARER
;STACK POINTER SAVE AREA
sCALLING ROUTINE SAVE AREA
;PROGRAM INITIALIZATION FLAG
;PROGRAM START FLAGL
:LAST ERROR PC

<TDATR,RDATA ,BYTCNT>»

CZ0HF -CO

1 016364
2
3

MACRO V04.00 27-JUN-85 12:59:01 PAGLC 27
000400

S
6

016364
016365
016366

016367

016370
016371

016372
016373

016374
016375
016376

016377
016400
016401

016402
016403

016404
016405
016406
016407
016410

016411

016412
016413

016414
016415

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

010
000011
011
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

TBUF ;
.REPT
.BYTE
XDATA
.NLIST
XDATA=XDATA+1

.LIST
.ENDR
.BYTE
XDATA
XDATA=YXDATA+1
.BYTE
XDATA
XDATA=XDATA+]
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+L
.BYTE
XDATA
XDATA=XDATA.}
.BYTE
XDATA
XDATA=XDATA.1
BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
BYTE
XDATA
XDATA=XDATA+1
BYTE
XDATA
XDATA=XDATA.}
.BYTE
XDATA
XDATA=XDATA+L
.BYTE
XDATA
XOATA=XDATA.L
.BYTE
XDATA
XDATA=XDATA.L
.BYTE
XDATA
XDATA=XDATA.+1
BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+}
.BYTE
XDATA

SeQ 77
400

CZ0HF CO

016416

016417
016420
0l6421

016422
016423

016424
016425
016426

016427

016430
016431
016432
016433

016434
016435
016436
016437

016440
016441

016442
016443

016444
016445
016446

016447
015450
016451

MACRO VO4.00

27-JUN-85 12:59:01 PAGE 27-1

000032
032
000033
033
000034
034
000035
035
000036
036
000037
037
000040
040
000041
041
000042
042
000043
043
000044
044
000045
045
000046
046
000047
047
000050

XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XOATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

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

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+3
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+{
.BYTE
XDATA
XDATA=XDATA.+1

0S50

BYTE

XDATA

SEQ 78

C20MF
- CO
016452

16453
016454

016455
016456

016457

0:6460
016461
016462

016463
016464
016465
016466

016467
016470
016471

016472
016473
016474

010475
016476
016477

015500

016501
016502
016503
015504

016505
016506

MACRO vO4.00 27 JUN 85 12:59:01 PAGE 27-2
066
000067
067
000070
07
00007
074
000072
072

000073
073
000074
074
000075
075
000076
076
000077
077

.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

XDATA=XDATA.1
.BYTE
XDATA
YOATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA

000100
100
000101

XDATA=XDATA.1
.BYTE
XDAfA
XDATA=xUATA+1

000102
102
000103
103
000104
104
000105

XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1

101

.BYTE

XDATA

105
000106

.BYTE
XDATA
XDATA=XDATA-1

000107
107
000110
110
000111
111
000112
112
000113

XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

000114
114
000115

XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA-1

106

113

.BYTE

XDATA

.BYTE

XDATA

115
000116
116
000117

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+L

000120
120
000121
121
000122
122

XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA

117

.BYTE

XDATA

5979

016507

016510
016511
016512

016513
016514

016515
016516
016517
016520

016521
016522
016523
016524

016525
016526

016527
016530
016531

016532
016533

016534
016535
016536

016537
015540
015541

016542

MACRO vO4.00

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
00015¢%
155
000156
156
000157

27-JUN-85

12,59:01 PAGE 27

XDATA=XDATA.1
.BYTE
XDATA

XDATA=XDATA.
1

.BYTE

XDATA

.BYTE

XDATA

XDATA=XDATA.1

XDATA=XDATA.
1

.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XOATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA.1

.BYTE

XDATA

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1

.BYTE
XDATA
XDATA=XDATA.1

BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XDATA

.BYTE

XJATA

.BYTE

XDATA

.BYTE

XDATA

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1

XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA«1
XDATA=XDATA.S

XDATA=XDATA+1

XDATA=XDATA-1

XDATA=XDi TA+1
.BYTE
' DATA
XDATA=XDATA.1
XDATA=XDATA«1

XDATA=XDATA.1

.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

C20MF -CO
016543
016544

016545
016546

016547
016550
026551
016552
016553
016554
016555
016556

016557
016560

016561
016562
016563
016564
016565
016566
015567

016570
015571
01&572

015573
016574
0156575
016576

016577

MACRO

157

000160
160
000161
161
000162
162
000163
163
000164
164
000165
165
000166
166
000157
167
000170
170
000171
171
000172
172
000173
173
000174
174
000175
175
000176
176
000177
177
000200
200
000201
201
600202
202
000203
203
000204
204
000205
205
000206
206
000207
207
000210
210
000211
211
000212
212
000213
213

V04.00

27-JUN-85

12:59:01 PAGE 27 4

.BYTE

XDATA

XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA:1
.BYTE
XDATA
XDATA=XDATA.1
.BYYE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

20"

016600

016601
016602

016603
016604

016605
016606
016607

016610

016611
016612
016613
016614
016615

016616

016617
016620

016621

016622
016623
016624

016625
016626

016627
016630

016631

016632

016633

MACRO v04.00

000214
214
000215
215
000216
216
000217
217
001220
220
000221
221
000222
222
000223
222
000224
224
000225
225
000226
226
000227
227
000230
230
000231
231
000232

232
000233
233
000234
234
000235
235
000236
236
000237
237
000240
240
000241
241
000242
242
000243

243
000244
244
000245
245
000246
246
000247
247
000250

27-JUN-85

12:59:01 PAGE 27-5

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA»1
.BY1E
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XOATA+1

.BYTE
XDATA
XDATA=XOATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

otd 82

CZOHF -CO

MACRO V04.00

016634
016635

016636

016637
016640
016641

016642
016643

016644
016645
016646
0

5347

016650

016u51
016652

016653
016654

016655
016656

016657
016660
016661

015662
016663

016664

016665
016666

016667
016670

250
000251
251
000252
252
009253
253
000254
254
000255
255
000256
256
000257

257
000260
260
000261
261
000262
262
000263
263
000264
264
000265
265

000266

266
000267
267
000270
270
000271
271
000272
272
000273
273

000274
274

000275
275
000276
276
000277
277
000300
300
000301
301
000302
302
000303
303
000304
304

27-JUN-8S 12:59:01 PAGE 27-6

.BYTE
XDATA
XDATA=XDATA.+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA.1
.BYTE
XDATA
XCATA=XDATA+1
.EYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE

XDATA

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA«1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATAR=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

SEQ 83

TIRLRY

000305
305
000306
016672
306
000307
016673
307
000310
016674
310
000311
016675
311
000312
016676
312
000313
016677
313
000314
016700
314
000315
016701
315
000316
016702
316
000317
016703
317
000320
016704
320
000321
016705
321
000322
016706
322
060323
016707
323
000324
016710
324
000325
016711
325
000326
016712
326
000327
016713
327
000330
016714
330
000331
016715
231
000332
016671

016716
016717

016720
016721
016722
016723

016724

332

000333
333
000334
334
000335
335
000336
336
000337
337
000340
340
000341

VUK. VUV

¢/ =-JUN-0D

L1cC:iI7:VL

FRLL

/-1

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA-1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1

.BYTE

XDATA

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XOATA=XDATA+1

CZDHF -CO
016725
016726

016727

016730

016731
016732

016733

016734
016735

016736
016737
016740
016741

016742

016743
016744

016745
016746
016747
016750
016751
016752

016753
016754

016755
016756

016757
016760

016761

MACRO V04.00

341
000342
342
000343
343
000344
344
000345
345
000326
346
000347
247
000350
350
000351
351
000352
352
000353
353
000354
354
200355
355
000356
356
000357
357
000360
360
000361
361
000362
362
000363
363
000364
364
000365
365
000366
366
000367
367
000370
370
000371
37
000372
372
000373
373
000374
374
000375
375

27-JUN-85 12:59:01 PAGE 27-8

.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA

SEQ 85

CZONF -CO

016762

016763

MACRO V04.00

27-JUN-85

000376
376
000377
377
000400

oty

12:59:01 PAGE 27-9

XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.BYTE
XDATA
XDATA=XDATA+1
.EVEN
PFAIL

8 016764

:ENTER HERE ON POWER FAILURE

016764
016766
016770
016772
016774
016776
017000
017004

017010
017016
017020

010046
010146
010246
010346
010446
010546
016746
010667
012767
000000
000777

PFAIL:

161020
177334
017022

161006

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV

SSLT

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

;SAVE RO R5 ON PROCESSOR STACK

;:SAVE STACK POINTER

;:SET UP FOR POWER UP TRAP

;HALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
017022
017026
017030
017032
017034
017036
017040
017042
017050
017056
017062
017066
N17072
017074
017076
017100
017102
017104
017106
027110
017114
017120
017124
017126
017132

016706
012605
012604
012603
012602
012601
012600
012767
012767
012706
005067
005267
001375
104401
017257
104402
017124
104401
017262
005067
005067
000177
000001
000006
016316

017134
017137
017142
017145
017150
017153
017156

015
104
061
111
114
114
105

9 017134

177316

016764
000340
020164
000370
000364

RESTAR:

160754
160720

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
CLR
INC

BNE

TYPE
MCRLF

SAVSP, 5P
(SP)«,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,Rt
(5P)+,RO
SPFAIL ,24
#340,PS
#5TACK,SP
TEMP
TEMP

sRESTORE STACK POINTER
:RESTORE RO-RS

1SET UP FOR POWER FAILURE

.-4

OCTASC

FFTA8
TYPE
MPFAIL

177174
177234
177172

CLR
CLR

PFTAB:

000002

012
110
040
116
105
111
040

012
061
123
107
040
116
104

.MSG
MTITLE:

JMP
1

ERRFLG
LAST

SRETRN

6.2
RETRN
t/DH11 SINGLE LINE DATA TEST/,t/CZDHF-CO/
.ASCIZ
<15><12><12>/DH11 SINGLE LINE DATA TEST /¢15>¢12>

017262
017265
017270
017273
C17276
017301
017304
017307
017312
017315
017320
017323
017326
017331
017334
017337
017342
017345
017347
017352
017355
017360
017362
017365
017370
017373
017376
017401
017402
017405
017406
017411
017414

101

040

124

101
105

123
015
015
105
117
101
122
123
015
117
122
040

124
012
012
103
122
104
105
055
012
116
117
122

124
040
104
123
000
040
000
015

105
101
122
123

122
104
105
055

040

107

040
117
122
101
125
054
122
122
040
123
122
101
124
124
116
122
122
123
015
132
106
060
015
101
040
125

040

000
015
000
015
105
040

SEQ 87

27-JUN-85 12:59:01 PAGE 27-10

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

MVECTO:

.ASCIZ

<15><12>/VECTOR ADDRESS-/

MREGAD:

.ASCIZ

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

077

MQM:

.ASCIZ

012

000

MCRLF:

.ASCIZ

040
127
040
111
122
040
117
101
122
124
124
124
105
040
040
117
105
000
012
104
055
000
012
123
103
116

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

MPFAIL:

.ASCIZ

103
110
103

MEPASS:

.ASCIZ

<15><12>/CZDHF
-CO/

PASTXT:

.ASCIZ

«<15><12>/PASS COUNT

075

120
123
117
124
040

012

122

MR:

.ASCIZ

<15><12>/R/

012
123

124
124

MTSTPC:

.ASCIZ

<15><12>/TEST PC-/

120

103

111

123

¥/
<i5»><12>
POWER FAILURE,

PROGRAM RESTART AT TEST IN PROGRESS/

= /

017161
017164
017167
017172
017175
017200
017203
017206
017211
017214
017217
017222
017225
017230
017233
017236
017241
017244
017247
017252
017253
017256
017257

MACRO V04.00

CZDHF -CO

CZDHF -CO
017417

MACRO V04.00

055

SEQ 88

27-JUN B85 12:59:01 PAGE 27-11

000

.EVEN
.EVEN
.TRPTAB

10
11 017422

; TARBLE OF POINTERS FOR TRAP DECODING
017422
017424
017426
017430
017432
017434
017436
017440
017442
12 017444

015100
015554
016074
015606
015700
015710
015462
015522
015200

TRPTAB:

.BUFFER

SCOPER
TYPER
OCTASN
INSTRG
INSTRE
PARAMS
SVOSP
RS0S
SCOP1R

;BUFFERS FOR INPUT-QUTPUT
017444
017456

017470

13 017502

000000
017456
000000
017470

INBUF:
.=.+10
TEMP:
.=.+10

000000
017502

MDATA:
.=.+10

.ERRTAB

;TABLE OF POINTERS TO ERROR MESSAGES AND OATA
017502

017502
017504
017506
017510
017512
017514
017516
017521
017524
017527
017532
017535
017540
017543
017546
017551
017554
21 017557
017562
017565
017570

017573
017576
017601
017604

017516
017702
017557
017720
017630
017742
104
101
122
122
105
040
040

105
040
040
116
104
101
122
122
105
040
040
105

ERRTAB:

EML
DT1

bty

101
040
122
015
130
040
040
103
040
114
105
101
040
122
015
130
040
040

103

124
105
117
012
120
040
122

EML:

pT2
EM3
D13
.ASCIZ

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

REC

LINE/

EM2:

.ASCIZ

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

REC

SPEED

040
040

111
000
124
105
117
012
120
040
122
040

LINE/

CZDHF -CO
017607
017612
017615
017620
017623
017626
22 017630
017633
017636
017641
017644
017647
017652
017655
017660
017663
017666
017671
017674
017677

017702
017724
017706
017710
017712
017714
017716
017720
017722
017724
017726
017730
017732
017734
017736
017740
017742
017744
017746
017750
017752
017754
017756
017760
017762
017764
017764

MACRO V04.00

040
040

105

040
114

105
104
101
122
122
105

040
040

105

040
040

116
110
114

105
000003
006
016356
006
016340
002
016336
000004

002
016342
000000
000001

040

123
105

040
111
000
101
040
122
015

130
040
040
103
040
114
107
040
111
000

27-JUN-85

12:59:01 PAGE 27

SEQ 89

040
120
104
040
116
124
105
117
012
120

EM3:

.ASCIZ

040

122
040
040

105
124

040
116

002

.EVEN
DT1:
.BYTE

002

.BYTE

000

.BYTE

002

DT2:
.BYTE

002

.BYTE

005

.BYTE

000

BYTE

002

D13:
.BYTE

002

.BYTE

006

.BYTE

000

.BYTE

ENDCOD

6,2
RDATA
6,2
SAVR3
2,6

SAVRA

2.0
SAVRS

ENDCOD: 0
.END

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

REC

LENGTH

LINE/

CZDHF -CO
SYMBOL TABLE
ADRCNT=

BEGIN
BINWRD
B8ITX
8IT00
81701
8IT02
BITO3
B8IT04
BITOS
BITO06
BITO7
B8ITO8
8IT09
8IT1C
BIT11
B8IT12
BIT13
B8IT14
81715
BY iCNT
CHRCNT
DATABP
OEVADR
OHBA
DHBAR
DHBC
DHBCR
DHLPR
DHNRC
DHR. VL
OHRVEC
DH3CR
DHSLR
DHESR
DHTLVL
DHTVEC
071
D712
D73
EM1
EM2
EM3
ENDCOD

016073
001306
016244
000000
000001
000002
000004
000010
000020
UN0040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
016362
016242

EQP
ERRCNT
ERRFLG
ERRMSG
ERRORS
ERRTAB
ERTABO
ESCAPE
EXITER

ABS.

SEQ 90

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

015000
016314
016310
015336

015216
017502
015422

016320
015400
FREEZ1
016322
HALTS
015360
HILIM
016066
ICOUNT
016324
INBLF
017444
016350
INIFLG
INSTER= 104404
INSTR = 104403
INSTRE
015700
015606
INSTRG
INSTR1
015620
INSTR2
015706
LAST
016354
LIGHTS
001002
LIMITS
016020
LINE
= 000020
016072
LOBITS
015056
LOGICA
LOLIM
016064
LPCNT
016326
MCRLF
017257
MDATA
017470
MEPASS
017347
MPFAIL
017262
MQM
017253
MR
017402
MREGAD
017217
MSG
015622
MTITLE
017134
MTSTPC
017406
MVECTO
017175
N
=
G00001
OCTASC= 104402
OCTASN
016074

015354
016070
016264
016270
016266
016272
016262
016260
016302
016300
016256
016276
016274
016306
016304
017702
017720
017742
017516
017557
017630
017764

017766
000000
ERRORS DETECTED:
.

MACRC V04.00

PARAM =
PARAMS
PARAM1
PARERR
PASARG
PASCNT
PASTXT

PFAIL
PFTAB
POPRO =
POPLSP=
POP2SP
=
PS
=
PUSHRO=
PUSH1S=
PUSH2S=

RDATA
RESREG
RESTAR
RESTRT
RESOS =
RETRN
RSOS

SAVPC

SAVRO

SAVR1
SAVR2
SAVR3
SAVR4
SAVRS
SAVSP
SAVOSP=
SCOPE =
SCOPER
SCOPEL=
SCOP1IR
SPACNT=
STACK =
START
STFLG
SVOS
SVo5P
SHR

000
001

VIRTUAL MEMORY USED:
19200 WORDS
( 7S PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES
CZDHFC .BIN,CZDHFC.SEQ=CZDHFC,DOC,DHMACA.MAC,CZDHFC.P1L

104405
015710
015740
016014
015072
016312
017362
016764
017124
012600
005726
022626
171776
01v046
005746
024646
016360
015356
017022
015066
104407
016316
015522
016346

016330
016332
016334
016336
016340
016342
016344
104406
104400
015100
104410
015200
016243
020164
001004
016352
015470
015462
001000

SWoo
SWO1
SWo2
SW03
SWO4
SWO5
SW06
SWo8

SW09
SW10
SW1l
SW12
SW13
SWi4
SW15
TBUF
TDATA
TEMP
TKCSR
TKOBR
TPCSR
TPOBR
TRPOK
TRPSRV
TRPTAB
TYPDAT
TYPE
=
TYPER
TYPMSG
11
110
T11
Ti2
113

114
115
116
T17
12
120

121
122
123

000001
000002
000004
000010
000020
000040
000100
000400
001000
002000
004000

010000
020000
040000
100000
016364
016356
017456
016246
016250
016252
016254

015442
015430
017427
015540
104401
015554
015316
001400
002656
003020
003162
003324
003466
003630
003772
004134
001542
004276
004440
004636
005034

T24
125
126
127
T3
730
731
T32
733
T34
T35
136
737
T4
T40
T41
T42
T43
T44
145
T46
T47
15

150
751
152
153
154

155
156
157
T6
160
L
VEC1

VEC2

WROCNT
X
XB1T
XDATA
XLINE
AN
Y

005232
005430
005626
006024
001704
006222
006420
006616
007014
007212
007410
007606
010004
002046
010202
010400
010620
011040
011260
011500
011720
012140
002210
012360
012600
013020
013240
013460
013700
014120
014340
002352
014560
002514
001164
001174
016240
000000
000001
000400
000000
000061
000011