Digital PDFs

AH-8637E-MC

August 2001

65 pages

Original

3.8MB

view download

OCR Version

3.4MB

view download

Document:	CZDQHE0 DQ11 CHAR L INTR AUG 1981 bw
Order Number:	AH-8637E-MC
Revision:	000
Pages:	65
Original Filename:	CZDQHE0__DQ11__CHAR_L__INTR__AH-8637E-MC__AUG_1981_bw.pdf

OCR Text

CHAR L &
CZDQHEO

INTR

AH=BEI7E
- MC o & COPYRIG
alclodl
HTE 75-81
FICHE 1 OF 1 waoe
v ose

L3N

SRR P

-l

08:29

C3=DEC-80

<8 08:27

PAGE ¢

SEQ 000"

(DINTIFICATION

FwOlCul” (CDE:

AC-8635E-M(

PRODUCT NAME:

C/DQHEO (HAR L & IN'R

DATE :

NOV 1980

MAINTAINER:

DIAGNOSTIC GROUP

TME INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NCT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR [N THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED

COMPANIES.

*ME FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT C(ORPORATON:
DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MAS SBUS

OA(1052) 03-DEC-BO
MATYY?
C3=-DEC-80 08:27
AR

08:29

PAGE 3

SEQ 000<

ABSTRA(T

*HE FUNCTION OF THE DQ11 DIAGNOSTMICS ARE TO
JERIFY THAT THE OPTION OPERATES ACCORDING
TC SPECIFICATIONS.

(URREN'LY THERE ARE SEVEN OFF LINE DIAGNOSTICS THAT ARE

TC BE RUN IN SEQUENCE TO INSURE THAT IF AN
ERROR SHOULD OCCUR T WILL BE DETECTED
AT AN EARLY STAGE AND INSURING THAT
D;AGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM
ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.
NOTE :
(S ARE:
"HE SEVEN DIAGNOSJJ

[REV]
[REV]
[REV]
[REV]
[REV]

BASIS R/W TEST #1
BASIC R/W TEST #2
BASIC NPR AND INTERUPT TEST
RECEIVER TRANSMITTER EXERCISER TEST
MISC. RX AND TX TESTS. PLUS BCC TESTS.

. (ZDan [REV]

CHARACTER LENGTH AND INTERRUPT TESTS.

. (IZDGA
2008
77D0C
(200D
CZDOE
[]

[]

FTe V. N SRV LN

cuQe
Ml

.IDQF [REV]

CHARACTER DETECT TESTS.

THERE IS ALSC AN ONLINE TEST TO BE DISCUSED LATER.
1. (2DQGC [REV] ONLINE TEST. (ITEP QOVERLAY)
AND A PARAMETER INPUT PROGRAM IS AVAILABLE

1, (ZDQG [REV]

REGUIREMENTS

DQ11 TRIAL PROGRAM (PARAMETER INPUT)

£ QU IPMENT

ANY PDP11 FAMILY (PU (WITH MINIMUM 4K MEMORY)-=WITH

OR WITHOUT A HARDWARE SWITCH REGISTER (LOC. 177570)

527133 (OR EQUILIVALENT)

SYNC MODEM (ONLY REQJIRED FOR ONLINE

TEST)

S TORAGE
PROGRAM WILL

LOAD AND RUN

IN 4K CF MEMORY.

L OCATION 16400 THRU 1600 ARE ESPECIALLY 10
8t NOTED AND TO BE UNTOUCHED BY OPERATOR
AFTER DQ11

TRIAL PROGRAM HAS BEEN EXECUTED.

OR AFTER THE ""AUTO SIZING'® HAS BEEN DONE.

L OADING PROCEEDURE
ME THOD

ALl

PROGRAMS ARE

IN ABSOLUTE FORMAT AND

O03-DEC-80
MA v1? 30A(1052)
N L
C3~-DEC~80 08:27
Joamt DY

08:¢>

PAGE 4

SEQ 0003

ARE LOADED USING THE ABSOLU'E LOADER.

MEMORY
SI1ZE

— b b NN
—
WV — NN NN
NNN

ABSCLUTE LOADER STARTING ADDRESS

8k
12K
16K

20K
24K
28k

+500

3.1

LOAD THE ADDRESS OF ARS. LOADER (LOC.XXX500)

3.1.2

THEN START

STARTING PROCEEDURE
A. LOAD LOC.

200

B. SET SWR TO ZERQ FOR '‘AUTO SIZING'' OR LEAVE
LEAVE SWR BIT 7=1 TO USE EXISTING PARAMETERS SET UP
8Y DQ11 TRIAL PROGRAM OR A PREVIOUSLY RUN DG11 DIAGNOSTIC
THAT USED THE '‘AUTO SIZING''.

««s+REFER TO SECTION 4.1 FOR SOF TWARE SWITCH REGISTER OPERATION
AND OPTIONS,wwwx

: THE SOF TWARE SWITCH REGISTER IS LOCATED AT LOC.176
NOTE
SOF TWARE DISPLAY REGISTER IS LOCATED AT LOC.174
(.THEN START

THE PROGRAM WILL TYPE MAINDEC NAME AND PROGRAM NAME

iF THIS WAS THE FIRST START UP OF THE PROGRAM) AND ALSO
"HE

FOLLOWING:

"MAP OF DQ11 STATUS'"
1400
1402

16404
1466
THE ABCVE

160010
152700

160020
150310

IS5 ONLY AN EXAMPLE!

THIS WOULD INDICATE THE STATUS TABLE STARTING AT ADD.

1400 IN THE PROGRAM. THE STATUS TABLE MUST BE VERIFIED BY THE
JSER IF AUTO SIZING IS DONE. FOR INFORMATION OF STATUS
TABLE SEE SECTION 8.4 FOR HELP.

esee]f THE SOFTWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING
wiLL BE TYPED AFTER THE PROGRAM IDENTIFIES ITSELF:

(REFER TO SECTION 4.1 FOR OPERATOR'S OPTION) x=*»
SWR=XXXXXX NEW=
NOTE:IF USING THE SOF TWARE SWITCH REGISTER WHEN A HARDWARE
SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL NOT
TYPE

OUT

THE

TITLE.

IO - “
~

30A(1052>

O3-DEC~8C

C3-DEC-BO 08:27

08:29

PAGE 5

SEQ 0004

fHE PROGRAM WILL “TYPE 'R"’

AND PROCEED YO RUN THE DIAGNOSTIC
TONTROL SWITCH SETTINGS

_JOSTIC IS RUN ON A CPU WITHOUT A SWITCH
IfF THE [
REGISTER THEN A SOFTWARE SWITCH REGIiSTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.
If THE HARDWARE SWITCH REGISTER DO:S NOT EXIST OR IF ONE DOES
AND 1T CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWIT(H
REGISTER (LOC.

176)

1S USED.

:
(ONTROL

THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE SWITCH
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY

DOING THE FOLLOWING:

1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
THE 5OF TWARE SWITCH REGISTER.)

3) AFTER THE ‘°'NEw=''" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
THE FOLLOWING AT THE TTY:

A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(CR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
wiLL BE ALLOWED)

IF A <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWITCH

MA vl

IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU

BACK TO STEP 2.
Sw 15
Sw 14

SET: HALT ON ERROR
SET: LOOP ON CURRENT TEST

Sw 11
Sw '0
Sw 09

SET: INHIBIT ITERATIONS
SET: ESCAPE TO NEXT TEST
SET: LOOP WITH CURRENT DATA

SwWw 13
Sw 12

Sw 08

Sw 07
SW 06

SET:
SET:

INHIBIT ERROR PRINT QUT
INHIBIT TYPE QUT/BELL ON ERROR.

SET: CAT(H ERROR AND LOOP ON IT7

SET: USE PREVIOUS STATUS TABLE. CLR-DO AUTO SIZE.
SET:

sw 05

SET:

Sw 03
Sw 02

SET:
SET: LOCK ON SELECTED TEST

Sw Ob

Sw 01

Sw 00

SET:

SET: RESTART PROGRAM AT SEL:

°ED TEST

SET: RESELECT DO11°S DESIRED ~.TIVE.

WA YT

ST et BT

3CA(1052) O3-DEC-80
(3=DE(~B0 08:27

08:29

PAGE 6

Sea 0005

SWITCH REGISTER RESTRICTIONS

W 00

RESELECT DQ11'S DESIRED ACTIVE.

PLEASE NOTE THAT A MESSAGE IS TYPED
OQUT FOR SWITCH REGISTER BEING EQUAL TO DQ11°S
ACTIVE. THIS MEANS IF THE SYSTEM HAS
FOUR DQ11S; BITS 00,01,02,03 WILL

BE SET IN LOC 'DQACTV''. USING THIS
SWITCH ALTERS THAT LOCATION; THEREFORE
If FOUR DQ11S ARE IN THE SYSTEM
veeD0Q NOTx*+ SET SWITCHS GREATER THAN
Sw 03 IN THE UP POSITION. THIS WOULD BE

A FATAL ERROR. DO NOT SELECT MORE ACTIVE
DQ11S THAN HAS BEEN GIVEN INFORMATION
START WITH SW 00=1

PROGRAM WILL TYPE MESSAGE

CONTINUE THE BINARY

oY@
»

ABOUT IN TRIAL PROGRAM.
LOAD ADDRESS 200

Sw O1

NUMBER Of DQ11S DESIRED ACTIVE

EXAMPLE: 1=1 DQ11; 3=2 DO11; 7=3 DQ11; 17=4 DQ11 37=5 DQ11
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05,
CONTINUE WITH ANY OTHER SWITCH SETTINGS DESIRED.
IT IS STRONGLY SUGGESTED THAT

AT LEAST ONE PASS HAS BEEN MADE

BEFORE TRYING TO SELECT A TEST
THAT IS NOT IN THE ORDER OF SEQUENCE
THE REASON SEING IS THAT THE
PROGRAM HAS TO CLEAR AREAS AND SET
UP PARAMETERS. ALSO WHEN A TEST IS
SELECTED ALWAYS START AT THE VERY
BEGINNING OF THAT TEST.

W 1%

LOOP ON CURRENT DATA:

THIS SWITCH WILL ONLY WORK [F

CALL *'SCOP1'" IS IN THA

TEST.

THE REASON BEING THAT muST TESTS

DEAL W]TH BLOCKS OF DIFFERENT DATA
TO BE SENT OR RECEIVED ALL AT ONCE

THUS N BLOCK DATA; ONE PATTERN CANN'T BE SINGLED OUT.
SWIT{H REGISTER PRIORITYS

'
3

ERROR SWIT(HES

Wt THQD

*«

Jae

‘.

Sw 12
Sw 13

DELETE PRINT QUT/BELL ON ERROR.
DELETL ERROR PRINTOUT.

Sw 08

GOTO BEGINNING OF THE TEST.

Sw 15

3w 10

HALT ON THE ERROR.

GOTO NEXT TEST ON ERROR.

=+
ceseri,T (FRROR) ROUTINE SUPPORTS <*G> OPERATION®s
IPE O SWITCHES

E T C.
1 1 /04,

11/34)

WAV 3CA(1052)

03-DEC-8C

(3=-DpeC~80 08:27

08:29

PAGE 7

SEQ 0006

Sw 09 (IF FNABLED BY ''sCOP1'"

w14
Sw 11

i.
.

eeseSCOPE ROUTINE WILL SUPPORT <*G> OPERATION#we+
LTARYING ADDRESS

s"AR”ING ADDRESS iS AT 000200
*wExE ARE NO OTHER STARTING ADDRESSES

# Rk THE DQ11 DIAGNOSTICS PREVIOUSLY MENTIONED
ot

IF ADDRESS 000042 IS NON-ZERO
THE PROGRAM ASSUMES IT IS UNDER
ACT11°OR DDP CONTROL AMD WJLL ACT ACCORDINGLY
AFTER +ALL* AVAJLABLE DQ11'S ARE TESTED
TME PROGRAM WILL RETURN TO 'DDP2‘'" OR "‘ACT=11"".

.PERATING PROCEDURE

wHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION
fOUR WliL BE PRINTED.

AND PROGRAM WILL BEGIN RUNNING THE
CIAGNOSTIC

PROGRAM AND/OR OPERATOR ACTION
"HE

TYPICAL APPROA(CH SHOULD BE

3.
“.

HALT ON ERROR (VIA SW 15-1)
WwHEN EVER AN ERROR OCCURS

CLEAR SwW 15

SET Sw 14: (LOOP ON THIS TEST)
SET Sw 13: (INHIBIT ERROR PRINT 0QUT)

THE TEST NUMBER AND PC WILL BE TYPED QUT AND

POSSIBILY AN ERROR MESSAGE (THIS DEPENDS ON THE TEST)
10 GIVE THE OPERATOR AN IDEA AS TO THE SOURCE OF THE

PROBLEM. IF IT IS NECESSARY TO KNOW MORE INFORMATION

(ONCERNING THE ERROR REPORT; LOOK IN THE LISTING

FOR THAT TEST NUMBER WHICH WAS TYPED QUT
AND THEN NOTE THE PC OF THE ERROR REPORT
*HIS WAY THE EXACT FUNCTIONING CF
AN BE INTERPEDITED

THE

TEST

FRRORS

AS DESCRIBED PREVIOUSLY THERE WILL ALWAY 3E
A TEST NUMBER AND PC TYPED OUT AT THE TIME OF AN

ERROR (PROVIDING SW 13 0 AND SW 12=0). iN MOST CASES ADDITIONAL
INFORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE
:géé: !S TO GIVE THE OPERATOR AN INDICATION OF THE
ERROR RECOVERY

wA
ey

c“& ."

X0AC1052)

03=-DEC-BC

C3-DE(~80 08:27

08:29

PAGE 8

SEQ- 0007

1f FOR SUME REASON THE DQ11 SHOULD
"HANG THE BUS'' (GAIN CONTROL OF BUS SO THAT

TONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT
OR POWER DOWN/UP IS NECESSARY FOR OPERATCR
TO REGAIN CONTROL OF CPU.

16 THIS SHOULD HAPPEN; LOOK IN LOCATION

“TSTNO'® (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT
:A302UNNING AT THE TIME OF THE CATASTROPHIC
RROR.
IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS T0
wHAT THE DQ11 WAS DOING AT THE TIME OF THE ERROR.

eeesHALT RECOVERY WHEN USING SOF TWARE SWITCH REGISTER~*#«

1F THE SOF TWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT
THE “HE OPERATOR IS REQUIRED TO TYFE A <*G> BEFORE DEPRESSING CONTINUE.
THE FOLLOWING WILL BE TYPED:
(REFER TO SECTION 4.1 FOR OPERATOR OPTION)
SWR-XXXXXX NEW=
RESTRICTIONS

STARTING RESTRICTIONS

SEE SECTION &,
-

(PLEASE)

OPERATING RESTRICTIONS

DQ11 TRIAL PROGRAM MUST BE RUN PRIOR TO THE
FIRST AND ONLY THE FIRST KUNNING OF ANY DQ11 DIAGNOSTIC
NOTE :

If NO PROGRAM OTHER THAN

DQ11 DIAGNOSTIC WAS LOADED AFTER DQ11 TRJAL OR
IF CORE MEMORY HAS NOT BEEN (HANGED;UR IF THERE
1S NO DQ11 CONFIGURATION CHANGES, THE
DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN.
HOWEVER 1F ANY OF THE ABOVE HAVE BEEN VIOLATED
THE DQ11 TRIA_ PROGRAM MUST BE RUN AGAIN
S8EFORE RUNNING THE DIAGNOSTICS

NOTE: AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING
THE “'AUTO SIZING'' WHEN PROGRAM [S INITIALLY STARTED
wlTH SW07-0.

MISCELLANEOUS

EXECUTION TIME
PASS COMPLETE

wHEN YHE DJAGNOSTIC HAS COMPLETED
A PASS THE FOLLOWING IS AN EXAMPLE
OF THE PRINT QUT TO BE EXPECTED.

END PASS AC-8635E-MC (SR: 160000 VEC: 300 PASSES: 000001 ERRORS: 000000
NCTE :

THE NUMBERS FOR (SR AND VE( ARE
NCT NECESSARILY THE VALUES FOR THE DEVI(E

Jiw
ML

WA v

T A(INSQ)
OS;DEC-BO
{3=0t =80 08:¢
THEY

“.t

ARE

08:29

ONLY

PAGE 9

SEQ 0008

FOR THIS EXAMPLE.

(MIN] MONITOR)

THE VERY FIRST 'TEST'® (TST1)
[S «NOTe A TEST OF THE JQ11 HARDWARE
IT IS A MIN]-MONITOR USED TO CYCLE DQ11

SYSTEM THROUGH THE
REMEMBER:

R.e

TST1

DIAGNOSTIC.

NOT

TEST

DQ11

IN THE

HARDWARE!!!!!.!

KEY LOCAT]IONS
RETURN

(1214)

(12'6)

TSINO

(1226)

(1304)

CONTAINS

THE

ADDRESS WHERE

PROGRAM WILL

RETURN WHEN ITERATION COUNT 1S REACHED
OR IF LOOP ON TEST IS ASSERTED.
CONTAINS THE ADDRESS OF THE NEXT TEST
TO BE

PEFORMED.

CONTAINS THE NUMBER OF THE TEST NOW
BE ING PEFORMED.
THE 81T IN ‘RUN'' ALWAYS POINTS ONE
PAST

THE

DQ11

CURRENTLY

BEING

:
EXAMPLE
(RUN) 1304/70000000001000000
MEANS THAT DQ171 NO.OS IS THE

GQCROO-DCCR17

RUNNING.

TESTED.

DG11

NOW

DASTOV=DAST17
(1600)=(1476)

THESE

LOCATIONS

CONTAIN

THE

INFORMATION

NEEDED TO TEST UP TO 16 (DECIMAL) DO11S
SEQUENTIALY. THEY CONTAIN THE CSR,VECTOR
AND STATUS CONCERNING THE CONFIGURATION

DQACTY

(1500)

EACH DQ11.

EACH BIT SET IN THIS LOCATION INDICATES
THAT THE ASSOCIATED DQ11 WILL BE TESTED

IN TURN.
:
EXAMPLE
(DQACTV) 1500/0000000000011111
MEANS THAT DQ171 NO. 00,01,02.03,04

wilLL

ODQCSR

(1506)

DQSTAT

(151(C)
BIT 15
BIT 14
BIT 13
BIT 12
BIT N
81T 10
BIT 09

TESTED.

:
EXAMPLE
(DQACTV) 1500/0000000000010001
MEANS THAT DQ11 NO. 00,04
wlLL BE TESTED.
CONTAINS THE RECEIVER CSR OF THE
CURRENT DQ11 UNDER TEST.
CONTAINS THE STATUS OF THE CURRENT
DQ11 UNDER TEST.
SET:
TWO SYNC CHARS/ONE SYNC (CHAR
SET:
TEST JUMPER INSTALLED/NOT INSTALLED
SET:
B8 OPTION INSTALLED/NOT INSTALLED
SET:
BA OPTION INSTALLED/NOT INSTALLED
SET:
ACTIVE ON FIRST NON-SYNC/ACTIVE AFTER NO.
SET:
AB OPTION INSTALLED/NOT INSTALLED
SET:
ODD VR(/EVEN VR(

SYNC(

“rTaw

03-DEC-80

MATYYT 30A(1052)

03-DEC~-80 08:27

INGnE P

08:29

8!7 00-08

PAGE 10

SEQ 0009

GF DEVICE
VECTOR "A""

2¢

see METHOD OF AUTO SIZING #==

“.5

FINDING THE CONTROL STATUS REGISTER.

WHEN LOOKING FOR THE CSR IT IS NECESSARY TO TAKE CARE

THAT WHEN A CSR 15 FOUND THAT IT IS INDEED A DQ11. THAT

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE.

AN ATTEMPT TO CLEAR THE M]SC. REGISTER IS TRIED

IF A TIME-OUT TRAP OCCURES POINTERS ARE UPDATED

AND ATTEMPTED AGAIN. IF NO TIME-QUT, THE RECEIVER '‘'ACTIVE BIT'' (BIT 12)
IS SET AND A *COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE
AT THE MISC. REGISTER. IF THEY ARE THERE THIS IS

(% ¢

A DQ'1.

THE

INFORMATION IS STORED AWAY.

ONE SYNC BIT OR TWO?

SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE THE
PRESENTS Cf ONE SYNC OR TWO. THE PROGRAM ASSUMES TWO SYNC
(HARS. NOTE: THIS ASSUMPTION MAY BE ALTERED AFTER AUTO SIZING
8Y ALTERING BIT 15 IN APPRIOATE DQSTXX: LOCATION.
#,5.3

"BB' OPTION INSTALLED?

TO SENSE FOR THE 'BB'' OPTION THE PROGRAM SELECTS THE
CHARACTER DET. REGISTER AND THE LOADS IN ALL 1'S; IF
ANY ONE OR COMBINATION OF BITS ARE SET THE 8B OPTION
IS ASSUMED TO EXIST.
£.5.4

°"'AB'" OPTION INSTALLED?

TO SENSE FOR THE ''AB'* OPTION THE PROGRAM SELECTS THE

POLYNOMIAL REGISTER AND WRITES ALL 1°'S INTO IT;

[F ANY

?gEEO?S$OMBINATION OF BITS ARE SET THE AB UPTION IS ASSUMED
X

.5.5

"BA'"' OPTION INSTALLED?

TO SENSE FOR 'BA'' OPTION REQUEST TO SEND AND DATA TERMINAL
READY ARE SET. IF EITHER ONE OR BOTH ARE SET THE PROGRAM
ASSUMES THE BA OPTION EXISTES

8.5.€

JUMPER ON ENP OF CABLE? =*«NOTE:(ZDQE ONLY*<*+
THE PROGRAM (HECKS TO SEE

SEND

IF EITHER OR BOTH CLEAR TO

AND CARRIER ARE SET; IF SO THE PROGRAM ASSUMES THE

TEST JUMPER IS ON THE END OF

8.5.7

THE CABLE.

ACTIVE ON FIRST NON-SYNC?

SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE FOR
WHEN THE DQ11 GOES ACTIVE THE PROGRAM ASSUMES '‘ACTIVE
ON FJRST NON=SYNC''. NOTE: THIS CAN BE CHANGED BY ALTERING
BIT 11 IN THE APPRJOATE DQSTXX: AFTER AUTO SIZING

JooM

WMACYYY 3CA(1052)

Jh3nt P

£.5.8

03-DEC-80

C3-DEC~80 08:27

08:29

PAGE "1

SET FOR ODD OR EVEN PARITY?

AS ABOVE TOO MUCH HARDWARE 1S NEED TO SENSE WHICH PARITY
wAS SELECTED.SOQ THE PROGRAM ASSEMES ODD PARITY,
NOTE: THIS CAN BE CHANGED BY ALTERING BIT 9 IN APPRIOATE DGSTXX: LOCATION. AFTER AUTO SIZING

R_5.,9

FINDING THE VECTOR.

THE PROGRAM SETS ‘PRIMARY DONE'',"'SECONDAY DONE'’, AND ''INTERUPT ENABLETM

AND LOOKS FOR AN INTERUPT, IF IT INTERUPTS IT IS PICKED
UP AND STORED AWAY. IF NO INTERUPT OCCURES THE PROGRAM
L BE FIXED IN ONE
ASSUMES VECTOR =300. THIS PROBLEM W]

OF THE DIAGNOSTICS AND ~AUTO SIZING* SHCULD BE REDONE TO
GET THE (ORRECT VECTOR.

PROGRAM DESCRIPTION
CONTAINED WITHIN LISTING

‘2.

LISTING
FOLLOWING

SEQ 0010

Ive* SCA(1052)

03=DEC-80 + 08:29

F ol o

ANDNASN
AN NN Nar 8
\vau\f A
N
AN
N NEORUD FONING"
P,
AF WA O oD RN N
£ AW -2 O 3%
~

03-DE(-80 08:27

PAGE 12

SEQ 0011

INTRODUCTION TO DQ11 DIAGNOSCTIC

:CZDQHEQ/<377>/CHAR L & INTR

:COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
;REVISED 16-DEC-76 BY R. BLACK
A)SUPPORTS SOF TWARE SWITCH REGISTER
:

B)gUPPOETS THE DYNAMIC LOADING OF THE SOFTWARE SWIT(CH REGISTER
Y <*G>.
;STARTING PROCEDURE

;LOAD PROGRAM

;LOAD ADDRESS 000200

;PRESS START

:PROGRAM WILL TYPE '‘CZDQHEQ/<377>/CHAR L & INTR '"
:PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE
JAND THEN RESUME TESTING
Teo

;SWITCH REGISTER OPTIONS
100000

040000
020000
010000
04000
00200C
001000
000400
000100
000040
000020
000010
000004
000002
000001

:=1.,HALT ON ERROR
:=1,L00P ON CURRENT TEST
; 1,INHIBIT ERROR TYPEOUT
;=1,DELETE TYPEQUT/BELL ON ERROR.
;=1,INHIBIT ITERATIONS
,:-1,ESCAPE TO NEXT TEST ON ERROR
;-1, O0OP WITH CURRENT DATA

SW15=100000
SW14=40000
Sw13-20000
Sw12=10000
SW11-4000
Sw10=2000
SwW09=1000

:=1,L00P ON ERROR

Sw08=400

Sw06=100
SW05=40
Sw04=20
Sw03=10
SwW02=4

Sw01-2
SwW00-1

;LOCK ON TEST SELECT
;RESTART PROGRAM AT SELECTED TEST
SRESELECT DQ11 DESIRED ACTIVE
sNOTE: THIS MUST NOT EXCEED ORIGINAL COUNT

03-DEC~-80
MACY11 3DA(1052)
03-DEC-80 08:27

20QuHt P
$58
£59
560

000009
000001

57%
S7¢

575
576

577

578
579
580
581
582
583

SB4
585
586
587
588
589
590
591
592
593
594
595
596
597
598

:GENERAL
;GENERAL
;GENERAL
;GENERAL
;GENERAL

PC=%7

:PROGRAM COUNTER

;GENERAL REGISTER
sPROCESSOR STACK POINTER

RS5=%5
SP=%6

570

57
572

RO=%0
R1=%1
R2=X2
R3-%3
R4G=24

JLOCATION EQUIVALENCIES
177570
177570

DSWR=
177570
DLIGHTS=177570

HARDWARE SWITCH REGISTER LOC.
AY REGISTER LOC.
;HARDWARE DISPI

001200

STA(K=1200

;START OF PROCESSOR STACK

177776

PS=177776

;PROCESSOR STATUS WORD

;INSTRUCTION DEF INITIONS
005746
005726
C10046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726

PUSHRO=10046
POPR0=12600
PUSH2SP=24646
POP2SP=22626

LEQUIV

;DECREMENT PROCESSOR STACK 1 WORD
; INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
JRESTORE RO FROM STA(CK
;DECREMENT STACK TWICE
s INCREMENT STACK TWICE

EMT,HLT ;BASIC DEFINITION OF ERROR CALL

100000

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

BIT

BIT11=4000
B81710=2000
B8179=1000

—_r0 SN

5¢°
562
563
564
565
566
567
568
569

JREGISTER DEFINITIONS

O — NI

2004

08:29 PAGE 13
GENERAL DEF INATIONS AND EQUIVALENCIES

:DQ11 OPTIONAL DEFINITIONS
002000
004000
010000
020009
040000

ABB]T=2000

ACTB]IT=4000

BABIT=10000
8881 T=20000
JUMBIT-40000

SEQ 0012

“IDQm

MA(YYT

JDanE PN
t'e

Ad b

Z0A(1052)

C3-DEC-B0

C3~-DEC~B0 (8:27
001000

08:29

PAGE 14

GENERAL DEFINATIONS AND EQUIVALENCIES
oDDBIT=1000

100000

SYNB1T=100000

b‘g

;DQ11

é'

620
6!
€22
el
6le
62>
52t
322!

000(R A
000001
000002
000003
000004
000005
000006
000007

629
¢.30
s
532
e 32
- 34
e 3<
‘gt;

002010
200011
000012
000013
000014
000015
000016
000017

SECONDARY REGISTER DEFINATIONS

RXBA.P=0
RXWC.P=1
TXBA.P=2
TXWC.P=3
RXBA.S=4
RXWC.S=5
1XBA.S-6
TXW(C.S=7

JRECEIVER BUS ADDRESS PRIMARY.
sRECEIVER WORD COUNT PRIMARY.
: TRANSMITTER BUS ADDRESS PRIMARY,
; TRANSMITTER BUS ADDRESS PRIMARY.
sRECEIVER BUS ADDRESS SECONDARY.
JRECEIVER WORD COUNT SECONDARY.
; TRANSMITTER BUS ADDRESS SECONDARY,
; TRANSMITTER WORD COUNT SECONDARY.

(HARDT=10
SYNC.=11
MISC.-12
“X.MUX=13
SEQ.=14
RX.B(C=15
TX.BLC=16
POLY.-17

:CHARACTER DETECT REGISTER.
:SYNC REGISTER.
sMISCELLANEOUS REGISTER.
s TRANSMITTER MUX REGISTER.
s SEQUENCE REGISTER.
;RECEJVER BCC REGISTER.
s TRANSMITTER BCC REGISTER.
;POLYNOMIAL REGISTER.

SEQ 0013

03-DEC~80
MACY11 30A(1052)
CZDQHE P11
03-DEC~80 08:27
CZDQM

PAGE 15

08:29

;TRAPCATCAER FOR

000034
000036
000046

000052

SEQ 0014

"RAPCATCHER FOR UNEXPECTED INTERUPTS

000000

000024

ILLEGAL

INTERRUPTS

;STANDARD INTERRUPT VECTORS
.~24

000024
016222
000340
015672
000340
015640
000340
000046
014420
000052
000000

.=46

PFAIL
340
LHLT
340
. TRPSRV
340

;POWER FAIL HANDLER

LOGICAL

;ACT

JSERVICE AT LEVEL 7
*ERROR HANDLER

;SERVICE AT LEVEL 7
GENERAL HANDLER DISPAT(CH SERVICE
SERVICE AT LEVEL 7
HOOKS

.WORD C

s THIS ROUTINE TRIES TO FORCE TH" RECEIVER TO INTERUPT

;7O ITS VECTOR WHERE IT WILL PICK UP THE STATUS LOCATION
*FOR ITS NEW PC; AND PICK UP AN [ OT INSTRUCTION FOR ITS

*NEW PS. WHEN THE NEw PC IS FETCHED AN 10T INSTRUCTION IS
JEXECUTED,

;70 TAKE THF PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS
‘50

000056
000056
000056
000060
000064
000066

000072
000074
000102
000110
000114
000116
000122

000124
000132
000134
000136
000142

000144
00146
000150
000154
000156
000162
000164

010120
012721
022021
020127
101771
012737
013737
006037
103023
005037
005722
012772

105200
001376
112712
005722
000761

051612
042712
022626
012716
000002
0000207

TRAPPING TO LOCATION 20 WHERE A ROUTINE IS EXECUTED

VECMAP:

1%:

000004
001000
000146
001500
001244

000020
001244

2%:

177776

000340

000300

000007

R1,(R0O)+
26, (R1)+
(RO)+,(R1)+
R1,#1000
1%
448 ,an20
DQACTV,TEMPI

BCC

;1S ALL FLOATING VECTOR AREA DONE
:BR IF NOT ALL DONE
:SET FOR 10T TRAP BY DO11
;GET THE ACTIVE DQ11 S
:ARE YOU ACTIVE.. D@
;IF CARRY CLEAR.. NO MORE DQ11S

(R2)+

:PUT POINTER TO STATUS TABLE

ROR

7%:
A ¥

000142
5%:

000174
000000
000000

MOV
INCB
BNE
MOVR
TST

#340,3-2(R2)
RO
.~2
#300, (R2)
(R2)+

:gngCND SET PRI/SEC DONE AND IE

8IS

;ENTERD BY 0T TRAP BY DQ11
;CLEAR UNWANTED BITS
*POP IOT JUNK OFF STACK
;SET RETURN PC ON STACK

BIC
(MP
MOV

(SP), (R2)
#7,(R2)
(SP)+,(SP)+
#3%,(SP)

RTS

;GO HOME.
TALL SIZING IS DONE

B8R

RTI

DISPREG:
SWREG:

.~200

......... DELAY

INO INTERUPT ASSUME 300 FIX IN TEST C
;UPDATE POINTERS
;GO DO IT AGAIN

;PROGRAM START

000200

;CLEAR PS

;¢+54SOF TWARE

00C174
000176

TEMP]

:UPDATE THE POINTERS

CLR

TST

177776

:START FILLING THE VECTOR AREA
IWITH L +2; 10T (4)

MOV
MOV
CMP
(mp
BLOS
MOV
MOV

SWITCH

;SOF TWARE DISPLAY REGISTER
;SOF TWARE SWITCH REGISTFR

03-DEC-8C
MACY11 30A(1052)
7
08:2
C~-80
.P11
03-DE
E
ZDQH
(
CZOQH

695
696
697
698
699
700

701

702

703
704
705

706

707
708
709

710
711
712

713

714
715
716
717
718
719
720

721
722

723
724
725

726

727
728
729
730
731
732
733
734
735
736
737
738
739
740
741

742
743

744
745
746
747
748
749
750

000200

000137

000220
000224
000226

000220
012702
005022
022702

000232
000234

000240
000244

000250
000256
000264
000270
000274
000302
000304
000306
000312
000314
000322
000330
000334
000336
000342
000350
000356
000362
000364
000370
000376
000404

000406

000412
000420
000422
000426
000432
000436
000440
000442
C00446
000452
000456
000462
000466
000472
000476
000500
000504
000510
000512
000516
000522
000524
000530

001374
005037
012702
012701
012737
112761

005061
012711
022761
001071
010122
052712

005011
112761
012761
005761
001402
052712
112761
012761
005761
001402

052712

012761
032761
001402
052712
032761
001402
052712
052712
052712
005722
005011
005061
005061
005061
005061
005237
062701
022701
001267
005037

005737
001434
013701

016137
000241
006137
005237

08:29

PAGE 16

JMP

001400

CSRMAP: MOV
CLR
CMP
BNE
CLR

.=220

001504
001400
160000
000614

000012
000006
010000
030000

MOV
MOV
MOV

000004

000005

MOvB
CLR
MOV

CMP
BNE

000006

MOV

8IS
(LR
MOvVB

100000

0C0010

177777
000006

020000
000017
177777
000006

002000
001400
001400
010000
030000

000005

MOV
TST

000006

BEQ
BIS
MOvVB

000005
000006

MoV
TST

BEQ
BIS

000002
000002

MOV

BIT

BEQ
BIS

BIT

000002

040000
004000
001000
000002
000002
000004
000006
001504
000010

164000

2%:

001500
001504

001504
001276

001500
001500

2
SEQ 0015

ROUTINES USED FOR AUTO SIZING.

001512

3%:

BEQ
BIS
BIS
BIS
TST
CLR
CLR
CLR
CLR
CLR
INC
ADD
CMP
BNE
CLR
1ST
BEQ
MOV
MOV

CLC

ROL

INC

.START

;GO TO START OF PROGRAM

#1400 ,R2
+
(R2)
l1g12,R2

;CLEAR ALL STATUS TABLE

DANUM
#1400 ,R2
#150000,R1
458,46
#12.5(R1)

6(R1)
#10000, (R1)
#30000,6(R1)
2%
R1,(R2)+
ASYNBIT, (R2)
(R1)
#10,5(R1)
#-1,6(R1)
6(R1)
L+
(R 2)
#BRRIT,
#17,5(R1)
#-1,6(R1)

6(R1)
.+6
#ARBIT, (R2)
#1400,2(R1)
#1200.2(R1)
+

#BABIT, (R2)

#30000.2(R1)
.+6
#JUMBIT, (R2)
#ACTBIT, (R2)
#0DDBIT, (R2)
+
(R2)
(R1)

2(R1)
2(R1)

4(R1)
6{R1)
DANUM
#10,R1
#164000,R1
1%

;DO CLEAR

;ALL TABLE DONE

;BR IF MORE TO GO

;SET NUMBER OF DQ11S TO 0

;SET TABLE POINTER
JGET FIRST FLOATING ADDRESS
;SET FOR TIME OUT TRAP--NO DEVICE-;TRY AND SEL MISC REGISTER
;TRY AND CLEAR MISC REG
;TRY AND SET RX ACTIVE

;LOOK FOR SYNC 1 AND SYNC 2

;THIS IS NOT A DQ11

;WRITE INTO CHAR DET REG
;WAS THE REGISTER WRITTEN?
;APPERENTLY NO B8 OPTION.

;SET FOR BB OPTION
;SEL ©OLYNO. REGISTER

;WRITE POLYNO.REGISTER
;WAS REG WRITTEN??

;BR IF NO AB OPTION
;SET FOR AB OPTION
;TRY TO SET

.DTR.

.RS.

;DID ANY OF THEM SET

;BR IF NO BA OPTION

;SET FOR BA OPTION
;DID .CS. .CO. SET

;JBR IF NO JUMPER

;SET FOR JUMPER
;SET FOR ACTIVE ON FIRST NON-SYNC

;SET FOR ODD VRC.......
;POP POINTER

:CLEAR RCSR
;CLEAR TCSR
;CLEAR AGAIN

;CLEAR ERROR REG
;CLEAR SEC REG
JUPDATE NUMBER OF DQ11S

;UPDATE (SR POINTER BY 10 (8)
;HAVE ALL FLOATING ADDRESSES BEEN CHECKED??
;BR IF NOT ALL DONE
;ZERO ACTIVE DQ11S

DQACTV
DONUM

JWERE ANY DQ11S FOUND

R1
DGNUM,

:SAVE NUMBER OF DQ11S
; SAVE NUMBER FOR A(T11

R1,SAVNUM

DQA(CTV
DQACTV

I BRANCH

JNOW THIS IS A DQ11 =-STORE (SR
;SET FOR TWO SYNC (HARS
;CLEAR DQ ACTIVE BIT
;SEL CHAR DET REGISTER

;HEY BUDDY. NO DQ11S FOUND [N SYSTEM
:CLEAR CARRY
;_____

ACTIVE ADDRESS

;SEYT"BIT O

03-DEC-80
MACY11 30A(1052)
CZDQH
(ZDQHE .P11
03-DEC~-B0 08:27
751
752
753
754
755
756

000534
00C536
000540
000546

757
758
759

104402

760
761
762

000614
000620

016563
005000
000000
000776
012716
000002

01000
001006
001014
001022
001030

001000
005377
042510
051101
044440
000377

763

764
765
766

767
768
769
770
771
772

773
774
775
776
777

778

779

780
78
782
783
784
785
786
787
788
789
790
791
792

793
794

795
796
797
798
799

800
801
802
803
804
805
806

005301
001371
012737
013737
012737
012702
012700
012701
000137

061200
001202

001204
001206
001210
001212

00 0006
00 1500
00 0340
00 1400
000300
000302
000056

08:29

DEC
BNE
01V
MOV
MOV
MOV
MOV
MOV
4%

JMP
TYPE
MERR?2

17 7460

046040
052116

050504
044103
023040
020122

R1
3%
86,44
DQACTV,SAVACT
#340,a422
#1400,R2
#300,R0

#302,R1
VE CMAP

;DEC NUMBER OF DQ11S
;BR [F MORE T0 GO
;RESET TIME OUT VECTOR
;SAVE ACTIVE
;SET 10T TRAP PRIO: T0 7
;SET TABLE POINTER
;SET VECTOR START
;SET VECIOR+2 START
GO FIND THE VECTORS
s TYPE MESSAGE

“1 DIDN'T FIND ANY DQ11S. DON'T USE AUTO SIZE.

5%:

BR
MOV

.~2
#2%, (SP)

.=1000
MTITLE:

.ASCI2

<377><12>/C2DQHEQ/<377>/CHAR L & INTR /<377>

RT1

001200

.=1200

177570
177570
177560
177562

177570
SWR:
LIGHTS: 177570
177560
TKCSR:

177564
177566

SEQ 0016

(LR

HALT

05 5103

ROUTINES USED FOR AUTO SIZING.

000004
001502
000022

000466

PAGE 17

TKDBR:
TPCSR:
TPDBR:

;HOW CAN I TEST NO DQ11S
JDON'T LET OPR HIT CONT. Sw
;ENTERED BY TIME OUT TRAP
;GO HOME.

;INDIRECT POINTERS

177562
177564
177566

;SWITCH REGISTER POINTER
;DISPLAY REGISTER POINTER
;TELETYPE KEYBOARD (ONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER

;TELEPRINTER DATA BUFFER

;PROGRAM (ONTROL PARAMETERS
001214
001216
001220

001222
01224
001226
001230
001232
001234

000000
000000
000000
000003
000000
000000
000000
000000
000000

RETURN: O
NEXT:
0

LOCK:
0
ICOUNT: 3
O
LPCNT:
TSTNG:
PASCNT:

O
O

ERRCNT: O
LSTERR: O

:SCOPE ADDRESS FOR LOOP ON TEST
*ADDRESS OF N.XT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA

:NUMBER OF ITERATIONS THAT CURRENT TEST wltLlL BE EXECUTED
*NUMBER OF ITEREATIONS COMPLETED
;NUMBER OF TEST IN PROGRESS
JNUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF

ERRORS

;PC OF LAST ERROR CALL

:PROGRAM VARIABLES
001236
001240
001242
001244
001246
001250
00125¢

000000
000000
000000
000000
000000
000009
000000

(HAR1:
(HAR2:
CHAR3:
TEMPI:

TEMP2:
TEMP3:
TEMPL:

O
O
0
O

0
O
O

; TEMPORARY STORAGE
; TEMPORARY STORAGE
: TEMPORARY STORAGE
; TEMPORARY

STORAGE

CIDQH

MACY1T

(ZDQHE .P11

807
808
809
810
811
812
813
814
815

816
817
818
819
82C

30A(1052)

03=-DEC-B0

03-DEC-80 08:27

00125¢4
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000001
000000
0C0000
000000

08:29

PAGE 18

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

TEMPS:
SAVRO:

SAVR1:
SAVRZ2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVP(C:

O
9

RUNFLG:

:R1 STNRAGE
:R2 STORAGE
:R3 STORAGE
;R4 STORAGE
;RS STORAGE
:STACK POINTER STORAGE
;PROGRAM (OUNTER STORAGE

0
O
0
O
O
O
O

SAVNUM: 0O
.BLKW
CREAM:

RUN:
RUNCNT:

; TEMPORARY STORAGE
;RO STORAGE

0
O

SEQ 0017

MACY11 30A(1052) 03-DEC-B0
03-Dt(~80 08:27

832
833
834
835
836

837

$Y-0

SEQ 0018

e
ol e
—

.BYTE
.BYTE
.BYTE
.BY'E

;PROGRAM INITIALIZATION FLAG
;TEST

START

FLAG

ERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG

:DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND

;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS

t'.ttl'*itit**t'tt'it't'"'Qttttfitti*tttfittttttttttfitt'tt'ttt'tt."'

t'fi"'*tt'tfi*'t"ttttti'"Qttttfitktt'ittt*‘tt&'*ttt‘ttfit*tt.tttt"‘t
001314

104400

838
839
840

001314

014474

C01316

14606

842
843

001320

014626

001322

014734

001324

015052

841

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

INIFLG:
STFLG:
ERRFLG:
LOKFLG:

W)
= O

)
el

OQO

827
828
829
830
831

8080

826

;PROGRAM (ONTROL FLAGS

——t

821
822
823
824
825

PAGE 19

OOOO

C2DQH

CZDQHE P11

08:29

001326

001330

104401

104402

104403
104404

104405
015104
104406

015320

001332

104407
015360

001334

015412

001336
001340

015416
104412
013032

001342

012706

C01344

016320

001346

016374

104410
104411

104413

1046414

1046415

écgzgg?RAP*O
scop1=rRAgE?PE
rvPE-TRA#§50P1
INSTR-TRAgrgf
1~575R=réig§lR
pARAM:tRAéTETER
SAVOS:TRAzeZAM
qssos=TRAg€¥os

co~vnr=ré§£§?3
CNVRT-TRA597¥RT
MSTCLR-TéggYBE
MEMCLR-TfiggIggR
cxsun:rRAgETELR
CNTLU—TRA%E?%S

;CALL TO SCOPE LOOP AND ITERATION HANDLER
:CALL TO LOOP ON CURRENT DATA HANDLER
:CALL TO TELETYPE OUTPUT ROUTINE
:CALL TO ASCII STRING INPUT ROUTINE
;CALL TO INPUT ERROR HANDLER
:CALL TO NUMERICAL DATA INPUT ROUTINE
:CALL TO REGISTER SAVE ROUTINE
:CALL TO REGISTER RESTORE ROUTINE

:CALL TO DATA OUTPUT ROUTINE
:CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.
:CALL TO ISSUE MASTER (LEAR
:CALL TO CLEAR ALL SCRATCH PAD MEMORIES
:CALL TO ALLOW SWREG TO BE LOADED FROM TTY
;CALL TO ALLOW LOADING OF SWREG FROM TTY

't!'tttttttitt'!"'t""tt"it."*"'t"t't!ttt't't'lQ'tfit'tl""t"

Q'tktttttttttttttittti""'.Q'Qt'!'iifit.tt.tt.t"‘ttt'fi'itt."t'tt.'

001350
001352
001354
001356
001360
001362

000000
000000

000000

;:DQ11 VECTOR AND REGISTER INDIRECT POINTERS
;POINTER TO DQ11 RECEIVER INTERRUPT VECTOR
DORVEC: 0
;POINTER TO DQ11 RECEIVER INTERRUPT SERVICE PS
DQRLVL: 0
;POINTER TO DQ11 TRANSMITTER INTERRUPT VE(TOR
DQTVEC: O
:POINTER TO DQ11 TRANSMITTER INTERRUPT SERVICE PS
DQTLVL: O
;POINTER TO DQ11 RECEIVER CONTROL REGISTER
DAGRCSR: 0

DQR(SH: 0

;POINTFR TO HIGH BYTE OF DQG11 RECEIVER CONTROL REGISTER

CZDOH

MACY11 30A(1052)

(ZDQKHE.P1
877
878
879
880
gg}

03-DEC-B0

03-DEC~80 08:27

001364
001366
001370
001372
001374

000000
000000
000000
000000
000000

08:29

PAGE 20

PROGRAM PARAME TERS, VARIABLES, AND TRAP (ALLS.

;POINTER TO DQ11 TRANSMITTER CONTROL REGISTER
:POINTER TO DQ11 ERRCR REGISTER
*POINTER TO HIGH BYTE OF ERROR REGISTER
;POINTER TO DQ11 SECONDARY REGISTER
SPOINTER TO HIGH BYTE OF DQ11 SECONDARY REGISTER

DQTCSR: O
DQERR: 0
DQREG: O
DAQSEC: O
DQSECH: O

883
884

;:DQ11 STATUS TABLE AND ADDRESS ASSiGNMENTS

ggz
001400

887

.=1400

883 001400 000001
889 001402 000001
890 001404 000001
891 001406 000001
892 001410 000GO1
893 001412 000001
8% 001414 000001
895 001416 000001
89 (01420 000001
897 001422 000001
898 001424 000001
899 001426 000001
300 001430 000001
901 001432 000001
902 001434 000001
903 001436 000001
904 001440 000001
905 001442 000001
906 001444 000001
907 001446 000001
908 001450 0000017
909 001452 9000001
910 001454 000001
911 001456 000001
92 001460 000001
13 001462 000001
914 001464 000001
915 001466 000001

DQCROO: .BLKkW
DQSTO0: .BLkw
DQCRO1: .BLKW
DQSTO1: .BLKW
DQCROZ: .BLKW
DQST02: .BLKW
DACRO3: .BLKW
DQST03: .BLKW
DQCRO4: .BLKW
DQSTO4: .BLKW
DQCROS: .BLKW
DQSTOS5: .BLKW
DQCRO6: .BLKW
DQSTO06: .BLKW
DQCRO7: .BLKW
DQST07: .BLKW
DQCR10: .BLKW
DQST10: .BLKW
DQCR1": .BLKW
DQST11: .BLKW
DQCR12: .BLKW
DQST12: .BLKW
DQCR13: .BLKW
DQST13: .BLKW
DQCR14: .BLKW
DQST14: .BLKW
DQCR1S5: .BLKW
DQST15: .BLkW

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1]
1
1]
1
1
1
1
1
1
1
1
1

; CONTROL STATUS REGISTER FOR DEVICE NO: 00
*VECTOR AND CONFJGURATION STATUS FOR DEVICE NO: 00
: CONTROL STATUS REGISTER FOR DEVICE NO: 01
“VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 01
:CONTROL STATUS REGISTER FOR DEVICE NO: 02
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 02
:CONTROL STATUS REGISTER FOR DEVICE NO: 03
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 03
: CONTROL STATUS REGISTER FOR DEVICE NO: 04
SVECTOR AND CONF]GURATJON STATUS FOR DEVICE NO: 04
; CONTROL STATUS REGISTER FOR DEVICE NO: 05
*VECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 05
:CONTROL STATUS REGISTER FOR DEVICE NO: 06
:VECTOR AND CONFJGURATION STATUS FOR DEVICE NO: 06
; CONTROL STATUS REGISTER FOR DEVICE NO: 07
SVECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 07
;CONTROL STATUS REGISTER FOR DEVICE NO: 10
:VECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 10
; CONTROL STATUS REGISTER FOR DEVICE NO: 11
:VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 17
; CONTROL STATUS REGISTER FOR DEVICE NO: 12
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 12
; CONTROL STATUS REGISTER FOR DEVICE NO: 13
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 13
; CONTROL STATUS REGISTER FOR DEVICE NO: 14
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 16
;CONTROL STATUS REGISTER FOR DEVICE MO: 15
SVECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 15

000001
000001

DQACTV: .BLKW
SAVA(CT: .BLkW

1
1

;HOLD ACTIVE BITS FOR TESTING
; SAVE NUMBER OF ACTIVE DQ11S

001470
001472
C01474
001476

000001
000001
000001
000001

922 001504

000001

916
917
918
919
920
921
923

001500
001502
001506

000001

35% 001510 000001
926
927
928
929

930
931

DQCR16:
DQST16:
DQCR17:
DQST17:

.BLKW
.BLKW
.BLKW
.BLKW

DONUM:

.BLKW

DQ(SR:

.BLkw

DQSTAT: .BLkW

1
1
1
1

;CONTROL STATUS REGISTER FOR DEVICE NO: 16
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 16
; CONTROL STATUS REGISTER FOR DEVICE NO: 17
SVECTOR AND CONF JGURATION STATUS FOR DEVICE NO: 17
SOCTAL NUMBER OF TOTAL NUMBER OD DQ11S
SVECTOR AND CONFIGURATION STATUS OF DQ11 UNDER TEST
;CSR OF DQ11 UNDER TEST

;PROGRAM INJT]ALIZATION
;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR

:CLEAR PROGRAM (ONTROL FLAGS AND COUNTS
sTYPE TITLE MESSAGE

SEQ 0019

CIDOH

MACY11 30A(1052)

( ZDQHE .P11

Q33

934
935
936
937
938
939

OS;DEC-BO

03-DEC-80 08:2

001540
001544

012737
012706
012737
013737
105037
005037

001554
001560
001566
001572
001576
061604

005037
012737
005037
005037
012737
012737

001512
001520
001524

001532

001550

001612
001620
001626
001632
001636
001644

001652
001654
001656
001660
001666
001674
001700
001704
001710
001712
001716
001720
001724
001730
001736
001740
001742
001746
001750
001754
001760
001766
001774
001776
002000
002002
002010
002012
002020

105037

012737
012737
013746
013746
012737
022777
001402
000407
022626
012737
12737
012637
012637
005737
001014
105737
001035

104402
105137

022737
0071001
104415
105777
100402

004737
104402

012737
017737
001406

104410
017076
062737
000766

032777
001424

000340
(01200
016222
001504
001311
001230
001312
001302
001400
001232
001234
000001

001512
177570
177570

0009006
00004
001656
1727777

000176
000174
000904
000006
000042

177776

000024
001276

177252

104414

RUNFLG
#1600, CREAM
ERICNT

MOV
MOV
MOV
MOV

#DSWR, SWR
ADLIGHTS ,LIGHTS
- (SP)
6,
,-(SP)
a4

CLR
MOV
MoV

001200
001202
000004

177326

001200
001202

64%:
65%:
66%:

MOV
(MP
BEQ
BR

CMP
MOV

MOV

MOV
MOV
TST

;LOCK OUT INTERRUPTS
JSET 4P STA(CK
;SET UP POWER FAIL VECTOR

ERRFLG

;CLEAR START FLAG
;CLEAR PASS (OUN~
;CLEAR ERROR FLAG

LSTERR
#1,TSTNO
#.START ,RETURN

;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORF

, aNs
H64S
#-1,3SWR
659
663%

JTESTING STARTS
;MOV HARDWARE SWR TO SWR

JMOV DISPLAY LIGHTS TO LiGHTS

;SAVE VECTORS

;SET UP FOR TIMEOUT

;REFERENCE HARDWARE SWITCH REGISTER

(SP)+,(SP)+
SWR
#SWREG,

sJADJUST

(SP)+ ,a#4

JRESTORE VECTORS

#D]SPREG,LIGHTS

STACK

;POINT TO SOF TWARE SWITCH REG
;POINT TO SOFT DISPLAY REG

BNE

(SP) +,a#6
.14
67%

JUNDER MONITOR

TSTR

INIFLG

sHAS INITIALIZATION BEEN PERFORMED?
:IF YES, BR

BNE

TYPE

001200

67%:

000002

001244

000001

177160

TSTR
B8M]
JSR

aSwR
.+6
PC, CSRMAP

MOV
MOV
BEQ

#1400, TEMP1
ATEMP1, TEMP?
.+16

(NTLU

XSTATQ

1c$:

. XHEAD

ADD

#2, TEMP1

Bl7

#SW00 ,aSWR

BEQ

TYPE
MNEW

001502

JTITLE

INIFLG
#SWREG, SWR
67%

TYPE

001244
001246

12%

coms
(mp
BNE

CONVYRT

177140

SEQ 0020

c:eewaexTHE NEXT & LINES OF CODE MOVED TO SOLVE PRA2757 (JUNE 78)wawwxs

104402

027737

CLR
MoV
CLR

001226
001214

016771
005000
000000
002034

#340,PS
#STACK,SP
N PFAIL ,a#24
DQONUM, SAVNUM
STFLG
PASCNT

001300

177232

000220
017050
001400

LSTART: MQV
MOV
MOV
MOV
CLRB
CLR

(LRB

001310
001000
001310
000176

08: 26 PAGE 21
PROGRAM INITIALIZATION AND START UP.

.=22

(LR

(MP

aSWR, SAVA(T

HALT
(KSWR

JTYPE

TITLE MESSAGE

;1F NOT SET FLAG AND INIT
;1S SWREG USED

CIDQH
MACY11 30A(1052)
O03-DEC-B0
FZOQHE P11
03-DE(~80 08:27
G89
990
991
992
993
994
995
996
997
998
999
1000

002042
002044
002046
002050
002052
002054
002062
002066
002070
002072
002076
002102

101404
104402
016632
000000
000776
017737
013700
000000
104414
012700
012701
Q10120

100¢

002106

022021

;882

002114

1001

1003

002104

002110

001372

177120
001500

001500

000300
000302

118:

1$:

2%:

1010
1011
1012
1013
1014
1015
1016

C€02116
002124

1019
1020
1021
1022

1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
}8;?

002220
002222
002224
002226
002230
002232
002233
002234
002236
002244
002250

1023

001000

10643
1044

.=2
aSWR,DQACTV
DQACTV,RO

MOV
MoV
Mov
CLR

CMP

BNE

002216

012737
012706

005737
001040
104414
032777
001411
104402
012737
012737
000406
013737
013737
03¢777
001410

0QC0340
001200

177776

000004

177032

016670
000240

000240

014504
014506

014602
014604
000002

014504
014506
176764

104403

016656
104405
002254
012040
001214
001
001
000403
012737
104402
000177

.BEGIN:

000042

002254
016560
176740

18:

2$:

001214

(R1)+

(RO)+, (R1)+

#1000,R0

START

AND

RESTART

#340,PS
#STACK,SP

MOV
BR

#RITZ,aSWR
1%
LMLOCK
#NOP, TTST
#NOP,TTST+?2
2%
BRW,TTST
BRX,TTST+2
#SW01,aSwR
3$

TST
BNE
CKSWR
BIT
BEQ
TYPE
MOV
MOV
MOV
BIT
BEQ

SEQ 0021

#320,RO
#302,R1
R1,(RO)+

MOV
MoV

INSTR

1036
1037
1038
1039
1040
1041
1042

B8R
MOV
MoV
HALT
CKSWR

;JTEST

002130
002134
002136
002140
002146
002150
002154
002162
002170
002172
002200
002206
002214

1017
1018

118

CMP

}88?

1008
1009

BLOS
TYPE
MERR3
HALT

005021

022700

08:29
PAGE 22
PROGRAM INITIALIZATION AND START UP,

62
3%

MTSTPC
PARAM
TST1
TLAST
#RETURN
BYTE
1
BYTE
1
BR
43
S$$:
MoV
#TST1,RETURN
4%:
TYPE
MR
rEST #MP
aRETURN

JLOCK QUT INTERRUPTS
JSET UP STA(K

;IS PROGRAM UNDER MONITOR (ONTROL
;CHECK FOR <*G>
;CHECK FOR LOCK ON

TEST

JSET UP TO LOCK
sLOCK NOT SELECTED, SET UP FOR NORMAL
;IF SW01=1, GET STARTING P(

;START AT TEST
;TYPE R
:START TESTING

:'tttt'tt'ttt.t.lifi'.l’t"""t't'fi"ttt't*t"t.'t'tt"t"t'!t'.".i.t'
002254
002262
002270
002276
002302
002304

002312
002320

012737
012737
012737
105737
001010
012737

012737
105137

000001
002644
002644
(001302

001226
001214
001216

000001

001304

000020
001302

001306

T1ST1:

MOV
MOV
MoV
TST8
BNE
MCV

MOV
comMs

#1,TSTNO
#TST2,RETURN
#TST2 NEXT
RUNFLG
1$
#B1T0,RUN

#16. ,RUNCNT
RUNFLG

;IS THIS MY FIRST TIME HERE?
;BR IF FLAG IS SET
sSET RUN POINTER.
;SET FOR MAX OF 16 DQ11°S PER SYSTEM
;SET RUN FLAG

SCOPE

OOP

03-DEC~80
MACY11 30A(1052)
CZDQH
(ZDQHE .P11
03-DEC-80 08:27
1045
1046

1047

1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058

1059

1060

1061
1062
1063
1064

1065
1066
1067
1068

1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079

002324
002332
002334
002340
002342
002344
002350
002356
002362
002364
002372

002400
002406
002410
002412
002414
002416
002420
002422
002426
002434
002442
002450
002456
002464
002472
002500
002506

002514
002522
002530
002536

002544
002552
002556
002564
202572
002600
002606
002614
002620
02626
002632
002640

033737
001032
005737
001423
000257
006137
062737
005337
001360
012737
012737
012737

0007 .6
1046402
016563
000000
000776
000257

006137
017737
062737
017737
062737
013737
013737
042737
013737
062737
013737
062737
013737
062737
013737
005237
013737
062737
013737
062737
013737
005237
013737
005237
013737
005237

001304

08:29

001500

000004

001306
000020
001400
000001

1%:

176646

000002
176632
000002
001506
001510

177007

001350
000002
001352
000002
001354
000002
001360
001362
001360
000002
001364
000002
001366
001370
001370
001372
001372
001374

BIT
BNE
TST
BEQ
ccC
ROL
ADD

001300

DEC
BNE

001306
001300
001304

MOV
MOV
MOV

2%:

001304

2
SEQ 0022

PROGRAM INITIALIZATION AND START UP.

001500
001304

PAGE ¢ 3

3%:

001506
001300
001510
001300
001360
001350

001350
001352
001352
001354
001354
001356
001356
001362

BR
TYPE

RUN,DQACTV

DQACTV

*BR TO FATAL ERROR. WHY AM | HERE IF NO ACTIVE DQ11°'S???

;CLEAR ALL THE CONDITION CODES OF (PU

*UPDATE RUN POINTER
{UPDATE ADDRESS POINTER.

RUN
44 ,CREAM
RUNCNT

1%
#15. ,RUNCNT
#1400, CREAM
41,RUN
1%

ccc

ROL
MOV
ADD
MOV
ADD
MOV
MoV

BIC

MOV
ADD
MoV
ADD
MOV
ADD
MOV

INC

001364
001364
001366
001366
001370

MOV
ADD
MOV
ADD
MOV

001372

MOV

001374

MCV

INC

INC
INC

;DEC NUMBER OF TIMES I LOOKED AT ACTIVE.
:BR AND KEEP LOOKING.

;START RESTORING MY POINTERS.

JRESTORE

ADDRESS POINTER

JRESTORE RUN POINTER.

JKEEP ON TESTING.
JALLERT OPERATOR OF FATAL ERROR

JNO DQ11 ACTIVE. WHY AM | HERE???

MERR?2
HALT
BR

JFIND AN ACTIVE DQ11 TO TEST.
*BR IF | FOUND ONE TO TEST.
JFIND OUT IF THERE ARE NO DQ11 ACTIVE.

;YOU MUST RELOAD DQ11 DIAGNOSTIC!.
;STICK HERE ON CONT.
;CLEAR CPU COND. CODES

.2
RUN

@CREAM,DQCSR
#2,CREAM

aCREAM,DQSTAT

#2,CREAM
DQCSK,DQRCSR

*UPDATE RUN. ACTIVE DQ11 FOUND.

*PLACE ADDRESSS OF DQ11 AT DQCSR
JUPDATE ADDRESS POINTER

tPLACE STATUS OF DQ11 AT DQSTAT
;UPDATE ADDRESS POINTER

DQSTAT ,DQRVEC

#177007 ,DQRVEC
DQRVEC ,DQRLVL
#2.DQRLVL

;GENERATE ADDRESS OF RECEIVER INTERRUPT SERVICE PS

DQRLVL ,DQTVEC

:GENERATE ADDRESS OF TRANSMITTER INTERRUPT VECTOR

DQTVEC,DQTLVL

;GENERATE ADDRESS

#2,DQTVEC

#2,DQTLVL

DQRCSR,DQRCSH

DQRCSR,DQTCSR

;GENERATE ADDRESS OF HIGH BYTE
;GENERATE ADDRESS OF TRANSMITTER CONTROL REGISTER

DQTCSR,DQERR

;GENERATE ADDRESS OF ERROR REGISTER

DQERR,DQREG

;GENERATE ADDRESS OF HIGH BYTE OF ERROR REGISTER

DQRCSH

#2.DQTCSR
#2.DQERR

DQREG
DQREG,DQSEC
DQSEC
DQSEC,DQSECH
DQSECH

;GENERATE ADDRESS OF SECONDARY REGISTER

; GENERATE ADDRESS OF HIGH BYTE
L]

HELL RAFSER"'
:DQ11
STHIS TEST WILL EXERCJSE:
‘a

:p011 RECEIVER AND TRENSFITTER INTERUPTS
;ENTER T AND EXIT T CIF’ AB OPTIGN INSTALLED)
:VRC

TRANSMITTER INTERRUPT SERVICE PS

;THE CABLE AND TURN AROUND
s CHARA(CTER TRANSFERS.

(DATA ONLY)

MACY11 30A(1052)

C2DQM

CZDQHE .P11

03-DEC-80

03-DEC-80 08:27

08:29

103

106
105

002644

002652
002660

012737

012737
012737

000002

002734
000036

001226

001214
001222

:tt'tttitt'ttt*tt*tttttl'tttttit'tt'fiQtttt'ttttttttttt'fin'tt'titttt't

TST2:

112

113

114
115
116
117

118

119
120
121
122
123
124
125
126

127

128
129
130
131
132
133
134
135
136
137
138
139
120
141

142

143
}24
b)

002674
002702

002704

002712

002716

002720
002726
002734
002736
002742

002746
002752
002756
002764
002770
002776
003002
003010

003014

003022
003026
003034
003040
003046
003052
003060
003064
003072
003100
003106
003112
003120
003126

~N3130

003136
003144

146

003152

148

003162

032737
001006

112737

005037

000406

112737
012737
104413
005037

005037

005037
105077
012777
105277
012777
105277
012777
105277

012777

100000

001510

000377

013052

013656

000026
013026

013052
013656

014302

177576

105277
012777
105277
012777
105277
012777
105277
012777
112777
013777
105277
012777
032737
001003

176342
014064
176330
177600
176316
013662
176304
177600
000011
013050
176256
104000
040006

112777
012777

000017
123456

052777

000010

012700

013054

176406

153
154
155

156

105303
001375
012700
005003

003200
003202

105203
100375

003176
003204

2% :
SETON:

176362

176336

176324
176312

176300
176270
176264

176252
001510

BIT
BNE

#SYNBIT,DQSTAT
1%

;ONE SYNC CHAR OR TWO?
‘BR IF TWO

CLR

XSYNC

‘DBL SYNC SET TO ONE.

1$:

#377.SYNC
2%

“SET ONE SYNC.

GDCHAR

“LOAD FOR TWO SYNC
“SAME FOR DBL SYNC
‘CLEAR ALL REGISTERS GIVE MSTCLR
“ZERO POINTER

CLR
CLRB
MOV
INCB
MOV
INCB
MOV
INCB

PS
@DOREG
#RXBUFF ,aDQSEC
QDQREG
#-200,3DQSEC
@DQREG
#SYNC,aDQSEC
aDQREG

1ZERO PROC. PRIO.
"SEL THE RX BA PRI.
:LOAD RX BA PRI.
*SEL RX WC PRI.
“SET FOR 200 (8) CHARS
"SEL THE TX BA PRI.
"LOAD WITH SYNC POINTER
‘SEL THE TX WC PRI.

INCB
MOV
INCB
MOV
INCB
MOV
INC8
MOV
MOVB
MOV
INCB
MOV
BIT
BNE

@DQREG
AXRXCJF ,@DQSEC
@DQREG
#-200,3DQSEC
aDQREG
#XTXBUF ,aDQSEC
QDQREG
#-200,3DQSEC
#11.aDQREG
.SYNC,aDQSEC
aDQREG
#104000,aDQSEC
#JUMBIT DQSTAT
.+10

CHAR

#-202 ,aDQSEC

#81T3,3DQSEC

#17.aDQREG
#123456,3DQSEC

MOV

#TXBFA RO

MOVB

R3,(RO)+

MGV

DECR
BNE
MOV
CLR

MOVB
INCB
BPL

MOV

“SET FOR 2 SYNC AND 200 (8) CHARS.

“SEL THE RX BA SEC
:LOAD RX BA SEC
*SEL RX WC SEC
“SET FOR 200(8) CHARS
"SEL THE TX BA SEC
:LOAD IT
'SEL THE TX WC SEC
*SET FOR 200 CHARS
*SEL THE SYNC REGISTER
SLOAD SYNCS
*SEL THE MISC REGISTER
-SET 8 BITS PER CHAR AND VRC ENABLE.
IS JUMPER AT END OF CABLE?
‘BR IF YES

'NO CABLE SET TEST LOOP FOR DATA TURN AROUND
*SEL THE POLY REGISTER
:SET PLOYNOMIAL.

:START TO FILL TX BUFFERS

#177.RS

- COUNTER

R3
1%
#XTXBUF ,RO
R3

DONE?
*NO
*SET SEC BUFFER
;

R3
28

*DONE?
*NO

R3,(RO)+

#RXISR,ADQRVEC

so44D

“CONT.

#26,SYNC
#13026, XSYNC

MOVB
MOV

176224
176220

176136

. RETURN
#2$
#30., ICOUNT

MOVB
MOV
MEMCLR
CLR

BIS

176234

013662

003502

#TSTS, NEXT

MOV

176350

110320

012777

1$:

176374

110320

003164
003166
003170
003174

MOV

CLR

147 003156 012703 000177

149
150
151
152

#2,TSTNO

MOVB

014274

177776
176412
013256
17640C
177600
176366
013052
176354

MOV

MOV
MOV

:ADJUST SYNC CHARACTERS.

}8;

117

SEQ 0023

PROGRAM INITIALIZATION AND START UP.

106 002666 012737 003756 001216

109
110

TEST 2

1101

102

PAGE 24

"PRIMARY IS BINARY COUNT BACKWARDS.

*SECONDARY IS BINARY COUNT
-SET RECEIVER INTERUPT POINTER

(ZDQH

MACY11

000240
003334
000240
000041
000051
001246
000113
000020
000017

005337
001367
005237
001356

001252

003330
C03332

000754

003334
003342
003344

017737

NN
—b

b e

D e

b =D —

-—)—l—l—l-—l—l—l—l—l—l—)—l—l—l.—l—l—h—d—l—l—-fl—l—h—l—l —

D e ed

WS W

d e

T I

b e

o .%0 Yo pYo X o Yo 2V,

CDGN»GKDGYN\$V‘J\FM\FV‘J\K)OW)g:
NS WN=00
(hO(%O(MDGMDgE
VIS NN — OVONANEWN=OVRONR
R CHDCDE%B(%O&?O
WA —
0O
NONEWN—=O
V00N

D —D
e B

012777
012777
012777
012777
012777
005037
012737
012737
142777
105777
005777

D e
D d
QU W
U
WU S

003212
003220
003226
003234
003242
003250
003254
003262
003270
003276
003302
003306
003312
003316
003320
003324
003326

)
T WS W

(ZDQHE P11

03;DEC-80
30A(1052)
03-DEC-8 0 08:2

003346
003354

003356
003364
003372

003400
003404
003412
003420
003426

003430
003436
003444

003452

003456
03464
003472
003500

003502
003502
003506
003514
003516

003520
003526
003530
003536

003542

105277

08: 29

L% :

104005

100001
104004

032777
001425
112777
042777
012777

105277
152777

012777

162777
000002
042777
112777
012777

105277
152777

012777
162777
000002

005037
017737
100001
104004

032777
001426
042777
105077

012777

MOV

#RITS+BIT3+BIT0O,aDQTCSR ;SET TX GO AND ]E AND ERROR IE

CLR
MOV
MOV
BI(B
TSTR
TST
INCB

000004

176010

000002
000200

176004
175772
175772

013054
175764
000120
177600
000017

TXISR:

000017

2%:

001246
175654

RXISR:

014260

MOV
BPL
HLT

aDQERR,ERR
.+4
4

8I7
BEQ
MOVB
BIC

#B1T2,aDQTCSR
1%
#2,3DQREG
#8177,aDQTCSR

MOV
BICB
RT]
8IC
MOVB
MOV
INCB
MOV

BICB
RTI

CLR

MOV
B8PL

HLT

000004

175632

000200
175626
013256

175622
175622

BISB

177600

TEMP4

BISB

1%:

TEMP2
#75.,TEMP3
”16. ,TEMPS
#17 ,aDQREG
aD3IREG
aDQSEC
aDQREG
TEMP2
4%
5

MOV
INCB

000100
000006
013662
175712
000060

#8175+8170,3DQRCSR

INC
BNE
HLT

ENDTS2: SCOPE
014266

:SET PRIO: TO 5
,SET TX VECTOR
:SET PRIO TO 5

#240,8D0QRL VL
#TXISR,aDQTVEC
#240,aDQTLVL

BNE

001246

176026

SEQ 0024

MOV
MOV
MOV

DEC

104400

PROGRAM INITIALIZATION AND START UP.

MOV

176066
176064
176056

PAGE 25

BIT
8EQ
BIC
CLRB
MOV

:SET RX GO AND IE

;SET TIMER
;SET NUMBER OF INTERUPTS WANTED
:SET FOR 16 REGISTERS
JSEL RX BA PRI.
;SIT HERE AND MAKE WAVES
;WHILE INTERUPTS OCCUR
R T 2T AT AT 27 AT A AT AT AL A0 A AT A
: Y 2T 2T 2T 2Y 2T 2729 27 & F a¥ 20 2 Y 4

; SAME

;UPDATE COUNTER
JKEEP GOING
:RX FAILED TO CONTINUSLY INTERUPT
;*xxxxxSTRONGLY SUGGEST SW08 1 (GOTO TOP OFf TEST OF ERROR
JKEEP IT GOING.
:SCOPE THIS TEST......
;ANY ERRORS
;BR IF NO
:DQ11 ERROR FLAG IS SET.

:xxxxxSTRONGLY SUGGEST SW08=1 (GOTO TOP OF TEST OF ERROR
:WHO SHOULD ] SERVICE PRI OR SEC?

:BR IF SEC NEFDS SERVICE
;SEL TX BA PRI
:CLEAR TX PRI DONE.
:LOAD THE TX BA PRI
#TXBFA,aDQSE(C
:SEL THE TX WC PRI.
aDAREG
;SET WRITE EN. AND ENTER T
#BIT6+B1T4 ,aDAREG

#81T6,aDQTCSR
#6,3DQREG
#XTXBUF ,aDQSEC
aDQREG

:LOAD TX WC PRI.
:CLEAR REG POINTER.
JEXIT STAGE RIGHT
:CLEAR TX SEC DONE
;SEL THE TX BA PRI.
;LOAD THE TX BA SEC
;SEL THE TX WC SEC

#-200,aDQSEC

:LOAD THE TX WC SEC

TEMP?

sLET TIMER KNOW THAT RX INTERUI'TED

#-200,aDQSEC
#17.3DQREG

#R1T15+B114,aDQREG
#17,3DQREG

aDQERR,ERR
.t

#8172,3DARCSR
2%
#3177 ,aDAR(SR
aDQREG

#RXBUFF ,aDQSEC

:SET WRITE EN. AND EXIT T

;CLEAR REG POINTER
STAGE LEFT.
JEXIT

;ANY ERRORS
;BR IF NO
:DQ11 ERROR FLAG SET!'!!!!
;wexxxSTRONGLY SUGGEST SW08=1
:WHO SERVICE PRI OR SEC
:BR IF SEC NEEDS SERVICE
:CLEAR RX PRI. DONE
JSEL RX BA PR].
,;LOAD IT

(GOTO TOP OF TEST OF ERROR

CZDQH

MACY11 30A(1052)

(ZDQHE .P11
1213

03-DEC~80 08:27

003550

1214

003554

1216

003570

1215

1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227

03-DEC-80

003562

003574
003600
003604
003612
003620
003626
003632
003640
003646
003652
003656

105277

175614

152777

(00120

012701

013054

012777

012702
0001..
042777
112777
012777
105277
152777
012777
012701
012702
012700

177600

013256
003656
000100
000006
014064
175536
000060
177600
013662
014064
000200

08:29

1229
1230
1231
1232
1233
1234
1235
1236

003666
003672
003674
C03676
003704
003712
003716
003722

142712
122122
001414
112777
052777
114137
114237
104003

1238
1239
1240
1241
1242
1263
1244
1245
1246

003724
003726
003730
003732
003736
003740
003742
003746
003754

122122
005300
001354
005337
001003
000005
012716
142777
000002

1237

MoV

18:
28:

175530
175524
3$:

4%:

000200
000012
000002
014302
014274

INCB

BISB

175602

1228 003662 142711 000200

175464
175460

7%:

001250
003332
000017

5%:
175414

SEQ 0025

PROGRAM INITIALIZATION AND START UP.

175606

175546
175550
175544

PAGE 26

68:

aDQREG

sSEL THE RX WC PRI.

#3176+8]74 ,aDQREG

#-200,3DQSEC

;SET WRITE EN. AND ENTER T

;LOAD RX WC SEC

MoV

#TXBFA,R1

;PREPARE TQ CHECK DATA. SET Tx PUINTER

BICB

#3I1T7, (R1)

;CLEAR VR(

MoV
JMP
BIC
MOVB
MoV
INCB
BISB
MOV
MoV
MOV
MoV

BICR
CMPS
BEQ
MovB
BIS
MOVB
mMovB
HLT
(MPB
DEC
BNE
DEC
BNE
RESET
MOV
BI(B
RTI

;SET RX POINTER
#RXBUFF ,R2
;GO AND CHECK DATA
3%
;CLEAR RX SEC DONE
#3176,3DQRCSR
;SEL RX BA SEC
#4 ,’DQREG
#XRABUF ,aDQSEC ;LOAD IT
;SEL THE RX WC SEC
aD3IREG
;SET WRITE EN. AND EXIT 7
#3]175+B1T4,aDQREG
JWRITE RX WC SEC
#-200,aDQSEC
JGET TX BUFFER POINTER
#XTXBUF ,R1
;GET RX POINTER
#XRXBUF ,R2
;GET NUMBER OF C(HARS
#200,R0
#B1T7,(R2)
(R1)+,(R2)+
7$
#12,aDQREG
#31T1,aDASEC
-(R1) ,GDCHAR
-(R2) ,CHAR
3
(R1)+,(R2)+
RO
4%
TEMP3
6%

HENDTSZ, (SP)
#17 ,aDQREG

sCLEAR VRC
;DATA 0K?
sBR IF YES
;SEL MISC REG
:STOP THE DQ1? CLOCK.
:STORE GOOD CHAR
;STORE BAD (HAR.
;DATA COMPARE ERROR

;wxxxxSTRONGLY SUGGEST SWO8 1 (GOTO TOP OF TEST OF ERROR
;POP PCINTERS
;ALL DATA CHECKED?
JBR IF NO
JALL INTERUPTS DONE?
;NO KEEP INTERUPTING
;STOP THE SHOW CLEAR THE WORLD
JSET FOR END TEST RETURN
;CLEAR REG POINTER
JEXIT STAGE MIDDLE

(Z0QH
MACY11 30A(1052)
O03-DEC-BO
CZDQKE P11
03-DEC~80 08:27

N 2
08:29 PAGE 27
PROGRAM INITIALIZATION AND START UP.

1248
1249
1250
1251
1252

;TEST OF
STHIS

;

1256

1266

1267
1268
1269
1270
1271

1272
1273
1274
1275

1276
1277

1278
1279
1280
1281
1282

1283
1284

1285

1284
1287
1288
1289
1290
1291
1292
1293
1296
1295

1296
1297

1298
1299

1300
1301
1302
1303

XMIT AND RECV CHARACTERS

:DATA CHECKING WILL BE PERFORMED!

1255

1264
1265

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

TEST WILL

*AT 2 BITS/PER/CHAR.

%ng

1257
1258
1259
1260
1261
1262
1263

SEQ 0026

003756
003764
003772
003774
004000
004002
006006

004006
004010

012737
012737
104413
012700
005001
005020
105201

100375
112777

004016

013737

004032
004040
004044
004046

143737
005737
100003
000241

004024

004050
004054
004062
0064064

004070
004076

004104
004112
004116
004124
004130

004132
004136

004144

0047152
004156
004164
004170
004176
004202
004210
004214
004222
004226

004232
004234

004240
004242

004246
004250
004252
004256

012737

000003
004324

5¢:
000011
013052

175352
001246

012370
001510

001246

177774

001246
012370

013737
013737

001246
001246

106037

001247

013777
105277
012777
012700
000300

001246
175252
000010
000016

050077
052777

175234
000002

105077
012777
105277
012777

175212
013256
175200
177734

105277
012777
105277
012777
005277
005277

005005
105777

100404
062705
001372
104001
012700
012701

000002

175166
012374
175154
177732
175132
175132

175120

A A A

MOV

BICB
TST
BPL
CLC

10%:

175260

175226

175220

175174

175150

1%:

2%:

AT A AR AR R AR A RN R AR AN AR R AN AR AN AR T RN

#RXBUFF ,RO
R1
(RO) +
RI
5
#11,aDQREG
SYNT, TEMP2

#177774 ,MASK

MASK, TEMP?
DOSTAT
108

*LOAD THE MASK

*SET UP A MASK TO GET ThE
SSINGLE SYNC CHARACTER?
*IF YES.RR.
;CORRECT SYNC CHARACTER

BIS
BIS

:
SFLIP THE BYTES
SSET CHARACTER LENGTH
STURN CLOCK OFF...

CLRB
MOV
INCB
MOV

aDOREG
#RXBUFF ,@DQSEC
aDOREG
#-36. ,3DQSEC

SSEL
:SET
*SEL
*SET

CLR
TSTB

RS
@aDQRCSR

BM]
ADD

BNE
HLT

MoV
Mov

TEMP2+1

#8I1T1,aDQSEC

QDQREG
#SYNC2,aDQSEC
aDQREG
#-38. ,aDQSEC
aDORCSR
aDQTCSR
2s
#1,RS
18
1
#TXBUFF ,RO
#RXBUFF ,R1

RO NN

;CLEAR ALL THE Dpa11
:LOAD THE BUFFER POJNTER
$SET UP TO CLEAR THE BUFFER
*CLEAR IT
*DONE?
*BRANCH IF NO
“SELECT THE SYNC REG
SLOAD SYNCS

TEMP2,SYNC1
TEMP2 , SYNC2
TEMP2,aDQSEC
@DQREG
#8173, aDASEC
#16,R0
RO
RO, aDQSEC
#31T1,aDQSEC

INCB
MOV
INCB
MOV
INC
INC

175162

MOV
MOV

BIC

175206

R A AR

#3,TSTNO
#TST4 NEXT

TEMP?
MASK , TEMPZ2+1

MO\
INCB
MOV
MOV
SWAB

175246

RORRB
BICBR
CLC

RORB

012372
012374

MOV
MOV
MEMCLR
MOV
CLR
CLR
INCB

MOV

000001
012376
013256

BPL
MOVB

012370

001247

TST3:

013256

106037
143737
000241

042777

001226
001216

TEST 3

JFOR THIS CHARACTER LENGTH
;MAN]JPULATE DATA T0
“COME UP WITH THE
;PROPER SYNC CHARACTER

:LOAD THE CHARACTER
SDITTO

SLOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
:SET TEST LOOP

*AND ON

RX PRIMARY ADRESS
ADRESS
RX PRIMARY CHAR COUNT
CHAR COUNT

$SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
YSEL TX PRI CHAR COUNT
*SET CHAR COUNT
SSET RX GO
SSET TX GO

*START TIMING
*1S DONE UP?
*BRANCH IF YES
SWAIT
*BR IF MORE T0 GO
*ERROR=-NO RX DONE
. +LOAD BUFFER POINTER
;LOAD RX BUFFER ~QINTER

Jo++D
JieeD

so++D

OVONOWVIS
W 2OLC NI WO

b md b

h b

WRURUNOADNINDMNOMNOMNINY 2

b ed

o 22
D

1\ AN NN NN N AN N NN NN N N NN NN N

b D b —D

OB;DEC-SO
MACY11 30A(1052)
“ZDAH
(ZDQHE .P11
08:2
03-DEC-80

004262
004266
004266
004270
004274
004300
004 304
004310
004312
904314
004316
004320
004322

RRRRY

WN—=O VNV

VLTV, LU RN RV

VOO NARA N

VARV LV IV TV

U
U
P G OINr G R ST

(NN AN N AN AN AN NN N

112005

005037
112137

013704
043705
020504
001401

000044

MoV

#36. R

;SET UP TO COUNT CHARA(TERS

MovB

(RO) +,R5
TEMP?2
(R1)+,TEMP2

;GET A (HARACTER TO COPMARE

BIC
(MP

MASK RS

JMASK QUT UNWANTED BITS
;DO THE CHARA(CTERS MAT(CH?

HLT
DEC
BNE
SCOPE

(LR

001246
001246
001246
012370

MOVR
MOV

GEQ

104002

4%:

005302
001362

104400

SEQ 0027

;GET REC CHARACTER
TO Ré

TEMP? R4

;MOVE

RS ,R&
4%

;BR IF OK

;ERROR--DATA DOESN'T MAT(CH

JALL DONE?
;NO--GO BACK FOR MORE
;SCOPE THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
:THIS TEST WILL XMIT AND RECV CHARACTERS
;AT 3 BITS/PER/(CHAR.

;DATA CHECKING WILL BE PERFORMED.
;

004324
004332
004340
004342
004346
004350
004352
004354
004356
004364
004372
004400
004406
004412

004414
004416
004422

1344

012702

B 3
08: 29 PAGE 28
PROGRAM INITIALIZATION AND START UP,

004430
004432
004436
004444
004452

(r 460

012737
012737
104413
012700
005001
005020
105201
100375
112777
013737
012737
1643737
005737
100003
000241
106037
143737
000241
106037
013737
013737
013777
105277
012777
012700
000300
050077
052777

042777
105077

012777
105277

000004
004672

001226
001216

TEST &

'Qttttit*fitfit*ttfittt*?t't'fittt.ttt*ttttttt*t'ttttifittttt‘tttttttiti'
#4,TSTNO
TST4:
MOV
#TSTS NEXT
MOV

013256
5%:

000011
013052
177770
012370
001510
001246
012370

001247
001246
001246
001246
174704

000010
000015
174666
000002
000002
174644
013256
174632
177734
174620

001246
012370
001246

012372
012374

174712
174700

174660

174652

174640
174626

CLR
INCRB

BPL
MOVB
MOV
MOV

175004

001247

MEMCLR
MOV
CLR

BICB

10%:

TST
BPL
cLc
RORB

8ICB
cLC
RORR
MOV
MOV
MOV

INCB

MOV
MOV

SWAB
BIS
BIS
BIC
CLRB
1017
INCB
MOV
INCB

H#RXBUFF ,RO
R1
+
(RO)
R1

:CLEAR ALL THE DG11
;LOAD THE BUFFER POINTER

;SET UP TO CLEAR THE BUFFER

DQSTAT
10%

;CLEAR IT
;DONE?
;BRANCH IF NO
;SELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
;SET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?
;IF YES,BR.

TEMP?

;FOR THIS CHARACTER LENGTH

#11,aDQREG

SYNC,TEMP?

#177770 ,MASK

, TEMP2
MASK

SK
, TEMP2+1
MA
TEMP2+1

TEMP2 ,SYNC1
TEMP2,SYNC?

TEMP2,aDQSEC
aDQREG

#3173,aDQSEC
RO
RO,aDQSEC

#81T1,aDQSEC
#8171,aDQSEC
aDQREG

#RXBUFF ,aDQSEC
aDOREG
#-36. ,aPQSEC
aDQREG

;CORRECT SYNC CHARACTER
JMANIPULATE DATA TO
;(OME UP WITH THE
;PROPER SYNC CHARACTER
;LOAD THE CHARACTER
:DITTO

;LOAD THE SYNC REGISTER
JSEL THE MISC REGISTER
JSET TEST LOOP

JFLIP THE BYTES
;SET CHARACTER LENGTH
;TURN CLOCK OFF...
;AND ON
;SEL RX PRIMARY ADRESS
;SET ADRESS

;SEL RX PRIMARY CHAR COUNT
JSET (HAR COUNT
;SEL TX PRIMARY ADDRESS

;.++D

;_-¢¢D

;144D

CZDQH

MACY11 30A(1052)

(ZDQKHE.P
1360
1361
1362

1363
1364
1365
1366
1367
1368
1369
1370
1371
1372

1373

1374

03-DEC-B0 08:27

004550
004556
006562

004570
004574
004600
004602
004606
004610
004614
004616
004620
004624

QU4630
004634

1375

004634

1377
1378
1379
1380

004642
004646
(04652
004656

1376

004636

1381% 004660

1382

1383
1384
1385

1386
1387

03-DEC-80

004662

004664
004666
004670

012777
105277
012777

005277
005277
005005
105777
100404
062705
001372
104007
012700
012701

012702
112005

005037

112137
013704
043705
020504

012374
174606
177732
174564
174564

08:29

MOV
INCB
MoV

174602

000001

2%:

001246

#36.,R2

MOvVB

(RO) +,RS

;GET A CHARACTER TO COPMARE

(R1)+,TEMP2
TEMP2 ,R4
MASK ,R5
R5,R&

;GET REC CHARACTER
;MOVE TO R4
JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(CH?

CLR

BEQ

0C1401

104002

HLT

DEC
BNE
SCOPE

JSET RX GO
JSET TX GO
;START TIMING

:LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
;SET UP TO COUNT CHARACTERS

MovB
MOV
BIC
CMP

001246
001246
012370

005302
001362
104400

TEMP?

R2
3%

;1S DONE UP?
;BRANCH IF YES

JWAIT
;BR IF MORE TO GO
;ERROR=-NO RX DONE

;BR IF OK

;ERROR--DATA DOESN'T MAT(H
JALL DONE?
;NO--GO BACK FOR MORE
;SCOPE THIS TEST

1388
1389

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
STHIS TEST WILL XMIT AND RECV CHARACTERS

}gg;

:DATA CHECKING WILL BE PERFORMED.

AT & BITS/PER/CHAR.

1390

1393
1394

1395
1396

1397
1398
1399
16400
1401
1602
1403
1404
1405

1406
1407
1408
14609
1410
1411
1412
1413
1414
1415

SEQ 0028

;LOAD THE SYNC (CHAR
;SEL TX PRI CHAR COUNT
;SET CHAR COUNT

TSTB
BMI
ADD
BNE
HLT
MOV
MoV

MOV

3$:

#SYNC2,aDQSEC
aDQREG
#-38,,aDQSEC
adDQRCSR
aDQTCSR
R5
aDQR(SR
2%
#1,R5
1%
1
#TXBUFF ,RO
HRXBUFF ,R1

TMC
INC
CLR

1%:

012376
013256
000044

PROGRAM INITIALIZATIOM AND START UP.

174614

174552

PAGE 29

004672
004700

004706
004710
004714
004716

004720
004722
004724
004732
004740

004766
004754
004760
004762
004764
004770
004776
005000
005006
005012

012737
012737

104413
012700
005001
005020

105201
100375
112777
013737
012737

143737
005737
100003
000241
106037
143737

000241
106037
013737
013737

000005
005240

001226
001216

TEST S

"'tt'.t*tifi*fitt'*.tttitt'*'t'tt'*'i*t*it'ttttititttfi.tttttttttt'ti'tt

TST5:

5%:

MEMCLR
MoV
CLR
CLR

10$:

BI(B
TST
BPL
CLC
RORB
BICR

013256

000011
013052
177760

012370
001510

174436
001246
012370

001246

001246
012370

001247

001247
001246
001246

012372
012374

MOV
MOV

INCB
BPL
MovB
MOV
MOV

CLC
RORB
MOV
MOV

#5,TSTNO
HTSTE NEXT

ARXBUFF ,RO
R1
(RO) +
R1
5%
#11,aDQREG
SYNC, TEMP?
#177760,MASK
MASK , TEMP?2

DQSTAT
108

TEMP?
MASK , TEMP2+1
TEMP2+1
TEMP2,SYN(]
TEMPZ2,SYNCZ

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
JSET UP TO CLEAR THE BUFFER
JCLEAR IT
;DONE?
JBRANCH IF NO
JSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK

;SET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?
;IF YES,BR.
;CORRECT SYNC CHARACTER
;FOR THIS CHARACTER LENGTH
JMANIPULATE DATA TO
;COME UP WITH THE
;PROPER SYNC CHARA(TER
;LOAD THE (HARA(TER
DITTO

;o++D
so+D
;:++D

03-DEC-80
MACYi1 30A(1052)
(ZDQH
08:27
03-DEC-80
CZDQHE .P11
1416
1417

1418

1419

“420
1621
1422
1423
1624

1425

1626

1627
1428
1429
1430
143
1632
1433
14 .4

1435

1436
1437

1438

1430
1440
1441
1442
1443
1444
1445
1446

1447
1448
1449
145C
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460

005020
005026
005032
005040
005044
005046
005052
005060
005066
005072
005100
005104
0051142

005116
005124
005130
005136
005142
005146
05150
005154
005156
005162
005164
005166
005172
005176
005202

005202

005204
005210
005214
005220
005224
005226

005230
005232
005234
005236

013777
105277

012777
012700
000300
050077
052777
042777
105077
012777
105277

012777
105277

012777
105277
012777
005277
005277

005005
105777
100404

062705
001372

104001
012700
012701
012702

112005
005037
112137

013704
043705
020504
061401
104002
005302
001362

001246
174336
000010
000014
174320

000002
000002

174276
013256
174264
177734
174252
012374
174240
177732
174216
176216

08:29

MOV

176332

174312
174304

MOV
MOV
SWAB
BIS
BIS
BIC

174272

MOV

174260

mMov

174246

MOV

174234

MOV

1465

1466

1467
1468

1469

1470
1471

INCB

INCB
INCB

INC
INC
(LR

TSTR

8MI]

ADD

BNE
HLT

2%:

0u0044

MoV
MOV
MOV

3%:

MOVB
CLR

001246
001246
001246

MOovB
MOV

BIC
CMP
BEQ
HLT
DE(
BNE
SCOPE

012370

A ¥

104400

SEQ 0029

TCMP2,aDQSEC
aDQREG

#8173,3DQSEC

#14 ,RO
RO
RO,aDQSEC
#81T1,3DQASEC

#81T1,aDASEC
aDQREG

#RXBUFF ,aDQSEC
aDQREG

#-36.,aDQSEC
aDQREG
#SYNCZ2,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDATCSR
RS
aDQRCSR

#1,RS
1%
1
#TXBUFF ,RC
H#RXBUFF
,R1
#36.,.R2

;LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;SET TEST LOOP
;FLIP THE BYTES

;SET CHARACTER LENGTH
;TURN CLOCK OFF...

;AND ON
:SEL RX PRIMARY ADRESS
:SET ADRESS
:SEL RX PRIMARY (CHAR COUNT
;SET CHAR COUNT
:SEL TX PRIMARY ADDRESS
:LOAD THE SYNC (HAR
;SEL TX PRI CHAR (COUNT
;SET CHAR COUNT
JSET RX GO
JSET TX GO
:START TIMING
:1S DONE UP?
:RRANCH
JWAIT

YES

;BR IF MORE T0 GO
;ERROR=--NO RX DONE
:LOAD BUFFER POINTER
:LOAD RX BUFFFR POINTER
;SET UP TO COUNT CHARACTEKS

(RO)+,R5

SGET A CHARACTER TO COPMARE

(R1)+,TEMP2

“GET REC CHARACTER

MASK RS

JMASK OQUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?

TEMP?2

TEMP?2 R4

R5,R&
4%

;MOVE

TO R4

;BR IF OK

;ERROR--DATA DOESN'T MAT(H

JALL DONE?

:NO--GO BACK FOR MORE

JSCOPE THIS TEST

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
sTHIS TEST WILL XMIT AND RECV (HARACTERS
TAT 5 BITS/PER/CHAR,

JDATA (HECKING WILL BE PERFORMED!

14¢°

1464

CLRB

000001

;

1462

1463

INCB

1%:

012376
0" 3256

PROGRAM INITIALIZATION AND START UP,

1743464

174204

PAGE 30

TEST 6

‘ttt'ittt'it'iititl’tfiQitttt'tttfi.tt"tttt!fii‘ttfi"tttt.tl.t't"'tt't.

005240
005246
005254
005256
005262
005264
005266
005270

000006
005606

001226
001216

1576:

MOV

MEMCLR
MOV

013256
5%:

100375

MOV

CLR
CLR
INCB

BPL

#6,TSTNO

#TST7 NEXT

#RXBUFF ,RO
R1
+
(RO)

R1
5%

;CLEAR ALL THE DQ11
:LOAD THE BUFFER POINTER
;SET UP TO (LEAR THE BUFFER
JCLEAR IT
*DONE?

JBRANCH 1F

03-DEC-80
MACY11 30A(1052)
03-DEC-80 08:27

(ZDQH

CZDQHE .P11

005272
005300

1472
1473
1474

005306
005314

1475

005322
005326
005330
005332
005336

1476
1477
1478
1479
1480
1481
1482

1483
1484
1485

1486
1487
1488
1489
1490
1491
1492

1493

1494
1495
1496
1497
1498
1499

1500

NN W00
~

VB WN 2OV

= D
b =P
~no NOPNOPLNURNLIVND

—‘—.-—.—J—‘—l—.—l—h—l——‘—.—l—l — el e

WYV TV NV, TV TV TV TV, RO, IV TE RV RV RO RV AV AV IV

. TM)

1501

005344
005346
005352
005360
005366
005374

005400
005406
005412
005414
005420
005426

005434

005440
005446
005452
005460
005464
005472

005476

005504
005510
005514
005516
005522
005524
005530

005532
005534
005540

005544
005550
005550
005552

005556
005562

005566

005572
005574
005576
005600
005602
005604

112777

013737
012737
163737
005737
100003

000241
106037

143737
000241
106037

013737
013737
013777
105277
012777

012700
000300
050077
052777
042777
105077
012777

105277

012777
105277
012777
105277

012777
005277
005277
005005

105777
100404

062705
001372
104001
012700
012701
012702
112005

005037
112137
013704
043705
020504
001401
104002
005302
001362

104400

0009011
013052
177740
012370
001510

08:29

MOVB

001246
012370
001246

MOV
MOV

BICRB
TST
8PL

10%:

INCB

173770
000010

MOV
mov

000013

173636

SWAB
BIS
BIS
BIC
CLRB

173744
173736

MOV

173724

INCB

173712

MoV

173700

MOV

173666

MOV
INC

INCB

1%:

000001

012376
013256
000044

CLC
RORB
BI(CB
cLC
RORB
MGV
MOV
MoV

001247
001246
001246
001246

173752
000002
000002
173730
013256
173716
177734
173704
012374
173672
177732
173650
173650

3
SEQ 0030

PROGRAM INITIALIZATION AND START UP.

174070

001246
012370

PAGE 31

2%:
3%

001246
001246
001246

INC
CLR

1STR
BM]
ADD
BNE
HLT
4(0)%

#177740,MASK

MASK, TEMP2
DQSTAT
10%

;LOAD SYNCS
;LOAD THE MASK
JSET UP A MASK TO GET THE

SINGLE SYNC CHARACTER?
:IF YES,BR.

;CORRECT SYNC CHARACTER

;FOR THIS (HARACTER LENGTH

TEMP2+1
TEMP2,SYN(C1
TEMP2,SYN(2

;PROPER SYNC C(HARACTER

MASK, TEMP2+1

TEMP?2,aDQSEC
aDQREG

#8173,aDQSEC

#13,R
RO
RO,aDQSEC

#B1T71,aDASEC
#81T1,aDQSEC

aDQREG
H#RXBUFF ,aDQSEC
aDQREG
#-36.,aDQSE(
aDQREG
#SYN(C2,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
ADORCSR

#1,RS
1%
1

#TXBUFF ,RO

MovB
(LR

(RO) +,RS
TEMP?2
(R1)+,TEMP?2
TEMP? R4
MASK ,R5

BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

;SELECT THE SYNC REG

TEMP2

HRXBUFF
,R1
#36..R2

MOV

SYNC , TEMP2

MoV
MoV

MovB

012370

#11,3DQREG

RS .,R4
48

2
RZ
3%

:MANIPULATE DATA TO
JCOME LP WITH THE
;LOAD THE CHARACTER
;DITTO

;LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;SET TEST LOOP
:FLIP THE BYTES
:SET CHARACTER LENGTH
:TURN CLGCK OFf...
;AND ON
*SEL RX PRIMARY ADRESS
:SET ADRESS
:SEL RX PRIMARY (CHAR COUNT
:SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (HAR
;SEL TX PRI CHAR (COUNT
:SET CHAR COUNT
JSET RX GO
JSET TX GO
:START TIMING

;1S DONE UP?

;BRANCH IF YES

JWAIT

:BR [F MORE TO GO
:ERROR=~=NO RX DONE
;LOAD BUFFER POINTER
:LOAD RX BUFFER POINTER

;SET UP TO COUNT CHARACTERS

:GET A CHARACTER TO COPMARE

SGET REC CHARACTER

JMOVE TO R4
*MASK OUT UNWANTED BITS

;DO THE CHARACTERS MAT(H?
:BR IF OK

; ERROR~~DATA DOESN'T MAT(H
;ALL DONE?

:NO--GO BACK FOR MORE
;SCOPE THIS TEST

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
sTHIS TEST WILL XMIT AND RECV CHARACTERS

;ie+eD
;oD

;144D

03-DEC-8C
MACY11 30A(1052)
(ZDQH
03-DEC~80 08:27
{ZDQHE P11
1528
1529
1530
1531
1532

1533
1534
1535
1536
1537

1538

1539

1540
15641
1542
1543
1544
1545
1546
1547
1548

1549
1550
1551
1552

1553

1554

1555
1556
1557
1558

1559
1560
“561
1562
1563
1564
1565
1566

1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578

1579

1580
1581
1582
1583

PAGE 32

(8:29

SEQ 0031

PROGRAM INITIALJZATION AND START UP.
;AT € BITS/PER/(HAR.

;DATA CHECKING WILL BE PERFORMEC.
TEST 7

012737
012737

104413
012700
005001
005020
105201
100375
112777

013737
012737
143737

005737
100003

000241

106037
143737
000241
106037

13737
013737
013777
105277

012777

012700
000300
050077
052777
042777
105077
012777

000007
006154

001226
001216

013256
5%:

000011

013052

177700

012370
001510
001246
012370

001247
001246
001246
001246
173422

000010
000012
173404

173522
001246
012370
001246

001247

17335¢

105277

173324

012777
012777
005277
005277
005005
105777
100404

BIS
BIS
BIC
cLRB

173370

MOV

IN(B

012374

173332

MOV

17773¢
173302
173302

173320

MoV

173270

012700
012701
012702

012376
012256
00( 044

005(37

INCB

MOV
MOV
SWAR

MoV

000001

112CV5

BPL
MOv3
MOV
MOV
BI(R
TST
BPL
cLC
RORB
BICR
cLC
RORB
MoV

173344

062705
001372
104001

CLR
CLR
INCB

MOV
MOV

1734616

013256
173350
177734
173336

173362

10%:

012372
012374
173430

173376

105277

MEMCLR
MOV

000002
000002

012777

‘"'Q""fi'i.t"'t"'"""tt".'t"t'.'ttl".t""'t"."'lt"'.".".
#7,TSTNO
MOV
to17:
#TST10,NEXT
MOV

001246

INCB
INCB

1%:

INC
INC
CLR

“STB
BM]
ADD

BNE

2%:
3%:

HLT
MOV
MOV

#RXBUFF ,RO
R1
+
(RO)
R1

#11,aDQREG

SYNC, TEMP?

#177700,MASK

MASK
, TEMP?
DQSTAT
10%

TEMP?

MASK, TEMP2+1
TEMP2+1
TEMP2,SYNC1
TEMP2,SYN(?2

TEMP2 ,aDQSEC
aDQREG

#31T73,3DQSEC
#12,R0

RO
RO,aDQSEC

#31T71,a0QSEC
#3171,aDQSEC
aDAQREG

#RXBUF
F ,aDQSEC

aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC2,aDQSEC
aDQREG
aDQRCSR
aDQTCSR
RS
aDQRCSR

#1,RS
1%
1

#TXBUFF ,RO

MOV

#RXBUFF ,R1
#36. ,R2

MOVR
(LR

(RO)+ RS
TEMP?

;CLEAR ALL THE DQ1
;LOAD THE BUFFER POINTFR
;SET UP TO CLEAR THE BUFFER
;CLEAR T
;DONE?
JBRANCH IF NO
JSELECT THE SYNC REG
sLOAD SYNCS
;LOAD THE MASK

JSET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?

;:OQD

;CORRECT SYNC C(HARACTER
;FOR THIS (HARA(CTFR LENGTH
;MANIPULATE DATA TO
;COME UP WITH THE

;oD

;1F

YES,RR.

;JPROPER SYNC {HARACTER

;LOAD THE C(HARACTER
:DITTO

;LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
*SET TEST LOOP

“FLIP THE BYTES

;SET CHARACTER LENGTH
:TURN CLOCK OFF ...
sAND ON

;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY (HAR COUNT
;SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
JSEL TX PRI (HAR COUNT
:SET CHAR COUNT
;SET RX GO
;SET TX GO
;START

TIMING

;1S DONE UP?
:BRANCH [F

YES

JWALT
;BR IF MORE TO GO

;ERROR--NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER

JSET UP TO COUNT (HARA(TERS

;GET A (HARACTER TO (OPMARE

24D

(ZLaK

03-DpE(-~80
MACY11 3CA(1052)
03-DEC~B0 08:27

{ ZDQHE .P11

1584
1585

*586

1587

1588

1589
1590
1591
1592

1593

006124

006130
006134
006140
006142
006144

112137
013704

043705
020504
001401

08:29

PAGE 33

BIC

104002

(MP
BEQ
HLT
DEC
BNE
SCOPE

Ls:

104400

1612
1613

1614

1615
1616

1617
1618
1679

1620
1621
1622

1623
1624

1625
1626
1627
1628
1629
1630
1631

;AT

;

7 BITS/PER/(HAR.

TEST 10

""'t'tt'tt.'t‘t‘ttt'tt't't'tt.t'*fit'tt.t'ttt't'tt'.tt"..t"‘t't't"

012737
012737
104413

012700
005001
005020

105201
100375
112777

013737
12737
13737

005737
100003
000241

106037

163737
000241
106037

013737
013737
013777
105277

012777

000010
006522

001226
001216

1ST10:

013256

5¢:
000011
013052
177600
012370
001510

001246
012370

001247
001246
001246
001246
173054

000010
000011
173036

173154

001247

012372
012374

173062

173050

172776

1635

177734
172770

012374

172756
177732
172734

BI(B
1ST

BPL

173010

173002

MEMCLR
MOV
CLR
CLR
INCB
BPL
MOVB
MOV

001246

013256

173014

MOV
MOV

MOV

00:°46
012570

1632

1637
1¢38
1639

RS .R4
3
2
R2
s

;DATA (HECKING WILL BE PERFORMED!

173030
173022

1636

MASK RS

JGET REC (HARA(TER
;MOVE TO Ré
;MASK OUT UNWANTED BITS
;DO THE CHARA(TERS MAT(H?
;BR IF OK
;ERROR~-~DATA DOESN'T MAT(H
;ALL DONE?
;NO--G0 BA(CK FOR MORE
;SCOPE THIS TEST

:THIS TEST WILL XMIT AND RECV CHARACTERS

000002
002002

1633
1634

SEQ 0C3¢

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

1597

1607
1608
1609
1610
1611

(R1)+,TEMP?2
TEMPZ2 R4

MOvB
MOV

001246
001246
012370

005302
001362

PROGRAM INITIALIZATION AND START UP,

1594
1595
1596

1598
1599
1600
1601
1602
1603
1604
1605
1606

172764
172752

10%:

cLe
RORB
BICR
cLc
RORB
MOV
MOV

MOV
INCB
MOV

MOV

#10,TSTNO
#TST11 NEXT

#RXBUFF ,RO
R1
(RO) +

R1
5%
#11,3DQREG
SYNC, TEMP?
#177600,MASK

TEMP?2
MASK , TEMP2+1

:CORRECT SYNC CHARACTER
:FOR THIS CHARACTER LENGTH
:MANIPULATE DATA TO
:COME UP WITH THE
.PROPER SYNC CHARA(TER

108

TEMP2+1
TEMP2 ,SYNC1
TEMP2,SYN(2
TEMP?2 ,aDQSEC
aDQREG
#3]73,aDASEC
#11,R0

INCB

aDQREG

MOV
INCB
MOV
INCB
MOV
INC

:LOAD THE MASK

:SET UP A MASK TO GET THE
:SINGLE SYNC CHARA(CTER?

BIC
(LRB
MOV

:LOAD SYNCS

MASK , TEMP?2
DQSTAT

RO
RO,aDQSEC
#3]1T7T1,aDASEC
#3]171,aDQSEC
aDQOREG

SWAB
BIS
BIS

;CLEAR ALL THE DQN
:LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER
:CLEAR IT
:DONE?
:BRANCH IF NO
:SELECT THE SYNC REG

#RXBUFF ,aDQSEC

#-36. ,8DQSEC
aDOREG
#SYNC2,aDQSEC
aDOREG
#-38, ,aDQSEC
aDQRCSR

:IF YES.BRR.

;LOAD THE CHARA(CTER
:DITTO

;LOAD THE SYNC REGISTER
:SEL THE MISC REGISTER
:SET TEST LOOP

;

sFLIP THE BYTES
:SET CHARACTER LENGTH
:TURN CLOCK OFF...
:AND ON
:SEL RX PRIMARY ADRESS
;SET ADRESS

:SEL RX PRIMARY (HAR (OUNT
:SET CHAR COUNT
:SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (KAR
;SEL TX PR] CHAR (OUNT
sSET (HAR COUNT
JSET RX GO

:eD

JieeD
:eeD

(8:29

03-DE(~-B0
MACY11 30A(1052)
(20QH
Y
03-DEC-8 0 08:27
“IDQHE .P1
1640

1641
1642
1643
1644

1645

1646
1647

1648
1649

1650
1651

1652

1653
1654
1655
1656
1657

006424

006430
006432
006436
006440

006444
006446
006450

006454

006460
006464
006464
006466
006472
006476
006502
006506
006510
006512
006514
006516
006520

005277
005005

172722

062705
001372

000001

012700
012701
012702

01237¢
013256
000044

100404

104001

112005

005037

112137

013704
043705
020504
001401

SEQ 0033

PROGRAM INITIALIZATION AND START UP.

172734

105777

PAGE Jé

INC
(LR
1STB
BM]

L ¥

ADD

BNE
HLT

MOV

2 ¥

MOV

3%:

mMOovB

00124¢
001246
001246

aDQTCSR
RS
aDQR(SR
2%
#1,RS
1%

DEC

001362
104400

SCOPE

VES

;BR IF MORE TO GO

(RO)+,R5

JGET A (HARA(CTER TO (OPMARE

TEMP?

MASK ,R5
R5.R4

005302

JBRANCH IF

JWALT

;ERROR-=NO RX DONE

(R1)+,TEMF?

104002

TX GO

;START TIMING
;1S DONE UP?

1
NTXRUFF ,R0O
#RXBUFF ,R1
#35. ,R2

TEMPZ2 R4

012370

JSET

:L0AD BUFFER POINTER
JLOAD RX BUFFER POINTER
JSET UP TO COUNT (HARA(TERS

;GET REC (HARACTER

;MOVE TO R4
:MASK OUT UNWANTED BITS

;D0 THE CHARALTERS MAT(RH?
OK

;BR IF

R2
3

;JALL DONE?
:NO--G0O BACK FOR MORE
:SCOPE THIS TEST

:ERROR~--DATA DOESN'T MAT(H

;TEST OF TRANSMITTER AND RECEiVER CHARATER LENGHTHS
:THIS TEST WILL XMIT AND RECV CHARA(TERS
:AT 8 BITS/PER/CHAR.

:DATA CHECKING WILL BE PERFORMED.

TEST M

012737
012737

000011
007070

012700
005001
005020

013256

112777
013737
012737

000011
013052
177400
012370
001510

106037

1691
1692

1693
1694
1695

013737
013737
013777

105277
012777
012700

001246

012370
001247
001246
001246
001246
172506

000010
000010

012370

001247

172502

(LR
(LR

INCR

MOV
BI(B

001246

HerY

100003
000241
106037
143737
000241

MOV
MOV
MEMCLR
MOV

MOVB
MOV

001246

005737

RSd
2
AR AR R RS
222
R AR R AR RN
222
222 AR
322222322222222222

B8PL

172606

\NIANN

143737

TST11:

5%:

—_OO

105201
100375

~N — —
(V1 V1, V)

104413

001226
001216

2 3

TST

10%:

BPL
(LC
RORR

BI(B
CLc

RORR
MOV
MOV
MOV

INCB

MOV
M{V

#°1,TSTNO
#TST12 NEXT

#RXBUFF ,RO
R1

JCLEAR ALL THE DA
;LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER

#177400,MASK

;CLEAR [T
;DONE?
;BRANCH [F NO
JSELECT ThE SYNC REG
;LOAD SYNCS
;LOAD THE MASK

DQSTAT
10%

;1F

+
(RO)
R1
5%

#11,aDQREG

SYNC, TEMP?

MASK
, TEMP?2

TEMP?

MASK, TEMP2+1
TEMP2+1
TEMP2,SYNC]
TEMP2,SYN(C?
TEMP2,aDQSEC(

ADOREG

#BITS aDQSEC

0.RO

:SET UP A MASK TO GET "HE
:SINGLE SYNC CHARA(TER?

Sieed

:CORRECT SYNC CHARACTER
:FOR THIS (HARACTER LENGTH
:MANIPULATE DATA TO
;COME UP WITH THE

Sieels

YES.RR.

;PROPER SYNC C(HARA(TER

;LOAD THE "HARA(TER
;DITTO
:_.OAD THE SYNC REGISTER
,SEL THE M]ISC REGISTER
JSET TEST LOOP

soeeD

MACY11 30A(1052)
03-DEC~-B0
(ZDQRE .P1
03-DEC-B0 08:27
T20hAM

1696

1697

'€98

1699

1700

1701

1702
1703
1704

OO NN
NN —
(W) SW 2O

b
D =d
D
D
D
D
=
ek
e
e
—
—

~ ~ NNSINNN NNNNNN N
~nN) ron NN
= 2
2.0

1705

~
no
~

—

1726

1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738

1739
1740
1741
1742
1743
1744

1745
1746
1747
1748
1749
1750
1751

006674
006676
006702
006710
006716
006722
006730
006734
006742
006746
006754
006760
006766
006772
006776
007000
007004
007006
007012
3507014
007016
007022
007026
007032
007032
007034
007040
007044
007050
007054
007056
007060
007062
007064
007066

08:29

000300
050077
052777
042777

000002
000002

1724662

012777

013256

1724472

105077

105277

012777
105277

012777
005277
005277
005005
105777
100404

062705
001372
104001

012700
012701

012702
112005

005037
112137

013704
043705
020504
001401

172470

172446

1726434
177734
172422

012374

172410
177732
172366
172366

PAGE

PROGRAM

MOV

INCB
MOV
INCB

172430
172416

172404

1723564

INITIALIZATION AND

SWAB
8IS
BIS
BIC
CLRB

“7246454

2%:

00.246
001246
001246
012370

005302
001362

A Y

;SET ADRESS

:SEL RX PRIMARY (HAR (OUNT

:SET

(HAR (OUNT

JSET

aDQR(CSR

CLR

BM;

aDQRCSR

ADD

#1,RS

HLT

;SET RX GO
TX GO

;START

TIMING

1S DONE

UP?

;BRANCH IF
JWAIT

JBR [F MORE

YES
T0 GO

JERROR=-=-NO RX DONE

MOV

#TXBUFF RO

MOV

#36. ,R2

;SET UP TO COUNT (HARACTERS

MovRB
(LR
MOVR
MOV
BIC

(RO)+ RS
TEMP2
(R1)+,TEMP?
TEMPZ,R4
MASK ,RS

;GET A CHARA(CTER TO (COPMARE
s
JGET REC CHARACTER
<MOVE TO R4
JMASK OUT UNWANTED BITS

BEQ
HLT

43
2

;BR IF 0K
. ERROR=--DATA DOESN'T MATCH
sALL DONE?

DEC

B8NE

104400

aDQREG
#-36.,aDQSEC
aDOREG

aDATCSR

(MP

104002

#RXBUF
F ,@DQSEC

JFLIP THE BYTES
sSET (HARA(CTER LENGTH
sTURN CLOCK OFF...
JAND ON
;SEL RX PRIMARY ADRESS

INC

MoV

RO
RO,aDQSEC
#31T1,3DQSEC
#B1T1,aDASEC
aDQREG

SEQ 0034

UP.

sSEL TX PRIMARY ADDRESS
;LOAD THE SYN(C (HAR
sSEL TX PRI (HAR COUNT
:SET (HAR COUNT

BNE

012376
013256
000044

START

#SYNC2,aDQSEC
aDQREG
#-38. ,aDQSEC

TSTR

000001

MOV
INCB
MOV

INC

1%:

SCOPE

#RXBUFF ,R1

RS5.R4

;LOAD BUFFER POINTER

;LOAD RX BUFFER POINTER

;DO THE CHARACTERS MAT(CH?

+NO=-=-GO BACK FQR MORE
;SCOPE

THIS

TEST

cTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
cTHIS TEST~WILL XMIT AND RECY CHARA(CTERS
;AT 9 BITS/PER/CHAR.

JDATA (HECKING WILL BE PERFORMED.

TEST

:.tQ'Q'tttttt"'tt'tt".'!ttfitttttQt.ttt'.'.tt'tt"t't'..ttt'.tttt!'t

007070
00707¢
007104
007106
007112
007114
007116
007120
007122
007130
007136
007144

012737
012737

000C12
007420

012700
005001
005020

013256

104413

105201
100375
112777

013737
012737
043737

001226
001216

TST12:

MEMCLR
MOV

5%:

000011
013052
177000

012370

172240

001246
012370
001246

MOV
MOV

(LR
(LR
INCR
BPL
MOVR

MOV
MOV
BI(

#12,TSTNO
NTSTI3, NEXT
#RXBUFF ,RO

R1
(RO) +
R1
5$

#11,aDQREG

SYNC, TEMP?
#177000,MASK
MASK, TEMP?

;CLEAR ALL THE DQ11
JLOAD THE BUFFER POINTER

cSET UP T0O CLEAR THE BUFFEK
JCLEAR IT
;DONE?
JBRANCH IFf NO
JSELECT

THE

SYNC

REG

<LOAD SYNC(S
;LOAD THE MASK
JSET UP THE MASK FOk

"HE

CZDQH

MACY11 30A(1052)

CIZDQHE.P11
1752
1753

1754
1755
1756
1757
1758
1759
1760
1761
1762

1763
1764

1765
1766

1767
1768

1769
1770
1771
1772
1773
1776
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786

1787

1788
1789
1790
1791
1792
1793
1794
1795
};39

03-DEC-B80

03-DEC-80 08:27

007152
007154

000241
006037

007160 005737
007164 100404
007166 012737
607174 000403
007176 013737
007204 013737

012372

001246
001246

012372
012374

001246
172144
000010

007240
007244

050077
052777

172126
000002

012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705
001372
104001
012700
012701
012702

013256
172072
177734
172060
012372
172046
177732
172024
172024

007252
007260

007264
007272
C07276
0073064
007310
007316
007322
007330
007334
007340
007342
007346
007350
007354
007356
007360
007364
007370
007374

007374
007376
007400
007404
007406
07410
007412
007414
007416

012700
000300

042777
105077

912005
012104
043705
020504
001401
104002
005302
001367
104400

cLc
ROR

177777

000007
000002
172104

10%:
20%:

#7,RO
RO

172120

MOV
iN(B
MOV
IN(B
MOV
INCB
MOV
INC
INC
CLR
TSTB
BMI
ADD
BNE
HLT
MOV
MOV
MOV

172054
172042

1%:

172012
000001

28:

012376
013256
000044

SEQ 0035

3$:

012370
48

1798

:
SFLIP THE BYTES

“SET CHARACTER LENGTH
. TURN CLOCK OFF...

#RXBUFF ,@DQSEC
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG

SSEL RX PRIMARY (HAR COUNT
:SET CHAR COUNT
*SEL TX PRIMARY ADDRESS
:LOAD THE SYNC CHAR
*SEL TX PRI CHAR COUNT

#-38,,aDQSEC
aDORCSR
aDQTCSR
RS
@DORCSR
2%
#1.RS
18
1
#TXBUFF ,RO

#RXBUFF ,R1
#36. ,R2

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

sieeD
;oD
i
;ieeD
1ieeD
sieeD

*SINGLE SYNC CHARACTER?
:1F NO,BR.
SIF YES, MARK.
CONTINUE.
*LOAD THE CHARACTER
:DITTO

RO, @DQSEC
#3171,aDQSEC
#81T1.3DQSEC
@DOREG

BIC
CLRB

172066

:LOAD THE SYNC REGISTER
:SEL THE MISC REGISTER
;SET TEST LOOP

MOV
SWAB

BIS
BIS

172100

TEMP2.aDQSEC
QDIREG
#B1T3,aDQSEC

DASTAT
108
#-1,SYNC1
208
TEMP2,SYNC1
TEMP2 , SYNC2

172140

172112

TEMP?2

;CORRECT SYNC (HARA(TER
JSHIFT IT

TST
BM]
MOV
BR
MOV
MOV

MOV
INCB
MOV

172152

PROGRAM INITIALIZATION AND START UP.

001510

013777
105277
012777

PAGE 36

(01246

007212
007220
007224

007232
007236

08:29

(RO) +,RS
(R1)+.R4
MASK ,RS
RS,R4
43
2
R2
3s

:AND ON
*SEL RX PRIMARY ADRESS
:SET ADRESS

;SET CHAR COUNT
*SET RX GO
*SET TX GO
*START TIMING
:1S DONE UP?
;BRANCH IF YES
TWAIT
*BR IF MORE TO GO
*ERROR~=NO RX DONE
*LOAD BUFFER POINTER

*LOAD RX BUFFER POINTER
“SET UP TM0 COUNT CHARACTERS
;GET ANOTHER CHAR
SGET A REC CHAR
*MASK OUT UNWANTED BITS
*DO THE CHARACTERS MATCH?
:BR IF OK
*ERROR~=DATA DOESN'T MAT(CH
*ALL DONE?
*NO--GO BACK FOR MORE
*SCOPE THIS TEST

1799
1800

STEST OF TRANSMITTER AND RECEIVER (HARATER LENGHTHS
“THIS TEST WILL XMIT AND RECV CHARACTERS

128%

*DATA CHECKING WILL BE PERFORMED'

*AT 10 BITS/PER/CHAR.

1801

;

1804

1805

1806
1807

007420
007426

012737
012737

000013
007750

001226
001276

TEST 13

AR AR AR

TST13:

MOV
MOV

AN TR AR AR N ER P E A AN R AR P AR R R AN NN R AN RN NP RN

#13,TSTNO
#TST14 NEXT

R AN G RO NN RIS NNy

b ad D

NRANE WO

D —d od e

D
D
md
ed
D
d
D
e
e
— amd

00 00 00 00 00 00 0o 0o 0o 0o 00

03-DEC-80
MACY1? 30A(1052)
CZDQH
03-DEC-80 08:27
(ZDQHE .P11

1821

1843
1846

1848
1849
1850
1851
1852

1853

1854

1855
1856
1857
1858
1859
1860
1861
1862

1863

007434
007436
007442

007444
007446
007450
007452
007460
007466
007474
007502
007504
007510
007514
007516
007524
007526
007534
007542
C07550
007554
007562
007566
007570
007574
007602
007610
007614
007622
007626
007634
007640
007646
007652
007660
007664
007670
007672
007676
007700
007704
007706
007710
007714
007720
007724
007724
007726
007730

104413

012700
005001
005020

105201
100375
112777

013737
012737
043737

000241
006037
005737
100404

012737
000403
013737
013737
013777
105277
012777
012700
000300
050077
052777
042777

105077

012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404

BIC
CLC

ROR
TST

012372

001246
001246
001246

012372
012374

000010
000006

171610

171576
000002
000002
171554
013256
171542
177734

171530

012372
171516
177732
171474

171622

BMI
108:

20%:

171462

012376
013256
000044

MoV
BR
MOV
MOV
MoV

INCB

MOV
MOV
SWAB
BIS

171570
171562

BIS
BIC
CLRB

171550

MoV

INCB

171536

MOV

171524

MoV

171512

MoV

INCB
INCB

171474

012700
012701
012702

007734
007736
007740.
007742. 005302
007744 001367
134400
007746

171710
001246
012370
001246

177777

171614

CLR
CLR
INCB

BPL
MOVB
MOV
MOV

001246
001510

000001

012005
012104
043705
020504
001401
104002

MEMCLR

MOV

5%:

000011
013052
176000
012370

3
SEQ 0036

PROGRAM INITIALIZATION AND START UP.

013256

062705
001372
104001

08:29

PAGE 37

1%:

INC
INC
CLR

TSTR

B8M]

ADD

2%:
3%:

012370

BNE
HLT
MOV

MOV
MOV
MOV
MOV

BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

#RXBUFF ,RO
R1
(RO)+
R1

#11,aDQREG

SYNC,TEMP2

#176000,MASK

MASK, TEMP?2

TEMP?
DQSTAT
10%
#-1,SYNCT
2 0%
TEMPZ2,SYNC]
TEMP2,SYN(CZ
TEMPZ2,aDQSEC
aDQREG
#8173,aDQSEC
#6 ,RC
RO
RO,aDQSEC

#81T1,aDQSEC
#81T71,aDQASEC
aDQREG

HRXBUF
F ,a0QSEC

aDQREG

;CLEAR ALL THE DQ11
*LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
;CLEAR IT
:DONE?

;BRANCH IF NO
JSELECT THE SYNC REG
;LOAD SYNCS
sLOAD THE MASK

;SET UP THE MASK FOR THE
;CORRECT SYNC CHARA(CTER
:SHIFT IT
:SINGLE SYNC CHARA(TER?
;1F NO,RR.

JIF YES, MARK.
; CONTINUE.
;LOAD THE CHARACTER
;DITTO
:LOAD THE SYNC REGISTER
:SEL THE M]ISC REGISTER
JSET TEST LOGP

;FLIP THE BYTES
JSET CHARACTER LENGTH
;TURN CLOCK OFF...

;AND ON

;SEL RX PRIMARY ADRESS
;SET ADRESS

;SEL RX PRIMARY CHAR COUNT

#-36, ,aDast C
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38.,aDQSEC
aDQRCSR
aDQTCSR
RS
aDQRCSR

;SET CHAR COUNT

#1,RS
19

JWAIT

2%
]

#TXBUFF ,RO
#RXBUFF ,R1
#36. ,R2

(RO)+,RS5
(R1)+,R4

MASK RS
RS .R4

;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
;SEL TX PRI CHAR COUNT
:SET CHAR COUNT
:SET RX GO

:SET TX GO
:START TIMING
;IS DONE UP?
:BRANCH IF YES
;BR IF MORE TO GO
:ERROR--NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
;SET UP TO COUNT CHARACTERS

;GET ANOTHER CHAR
;GET A REC CHAR
IMASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?
sBR IF OK

;ERROR--DATA DOESN'T MAT(H
;ALL DONE?

:NO--GO BACK FOR MORE
;SCOPE THIS TEST

J.¢4D
::OOD

so¢+D

2.4+

s:++D
2:++D

03-DEC~B0
MACY11 30A(1052)
C3-DEC~80 08:27
CZDQHE .P11
CZDQH

1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885

1886
1887

1888
1889
1890
1891

1892
1893
1894
1895

=
b

b e

d cmd

U
S
P U
P

OO NOWNES
WL —=O V00N

NelleNoloR
el oloR o} ¢ 0]

1896
1897
1898
1899
1900
1901
1902
1903
1904

PAGE 38

08:29

3
SEQ 0037

PROGRAM INITIALIZATION AND START UP.

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
;THIS TEST WILL XMIT AND RECV CHARACTERS
;AT

BITS/PER/CHAR,

;DATA (HECKING WILL BE PERFORMED!
:

TEST

"tt'tittt‘t'*tfl'l*tltt""tttt'ttl‘fifl'Qfifitt'tfii‘*'ttt‘il't""tt'ltt.'tt

007750
007756
007764
007766
007772
007774
007776
010000
010002
010010
010016
C10C24
010032
010034
010040
010044
010046

010054
010056

010064
010072
010100
010104
010112
010116
010120
010124
010132
010140
010144
010152
010156
010154
10170
010176
010202
010210
010214
010220
010222
010226

010230
010234
010236
010240
010244
010250
010254

012737
012737
104413

012700
005001
005020

105201
100375
112777

013737
012737
043737
000241
006037
005737
100404
012737
000403
013737
013737
013777

105277

012777
012700
000300
050077
052777
042777

000014
010300

001226
001216

013256

5%:
000011
013052

174000

012370

001246
001246

001246

171264
000010
000005
171246

012372
012374
171272

171174

012777
005277
005277
005005

177732
171144
171144

171162

062705
001372

000001

012700
012701
012702

012376
013256
000044

012777
105277
012777

105277

105777
100404
104001

171200

171166

171132

108:

20$:

171260

012372

105277

CLR
CLR
INCB
BPL

cLC

012372

171240
171232

105077

MOV
MEMCLR
MOV

ROR

001246
001510
177777

MoV

MOVB
MOV
MOV
BIC

171360
001246
012370
001246

000002
000002
171224
013256
171212
177734

012777

TST14:

171206

1$:

3%:

#RXBUF F ,RO
R1
(RO) +
RI
5%
#11,aDOREG
SYNC, TEMP2

#1764000 MASK

MASY TEMP2
TEMP?

;CLEAR ALL THE DQ11
*LOAD THE BUFFER POINTER
*SET UP TO CLEAR THE BUFFER
SCLEAR IT
DONE?
*BRANCH IF NO
*SELECT THE SYNC REG
*LOAD SYNCS
:LOAD THE MASK

*SET UP THE MASK FOR THE
*CORRECT SYNC CHARACTER
SSHIFT IT

*SINGLE SYNC CHARACTER?
*IF NO,BR.
11F YES, MARK.
*CONTINUE.
:LOAD THE CHARACTER
:DITTO
:LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
:SET TEST LOOP

DQSTAT
108
#=1,SYN(
208
TEMP2, SYNC1
TEMP2 . SYNC2
TEMPZ.aDQSEC
ACUREG
#BIT3,aDQSEC

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
CLR
TSTB
8M]

RO
RO, aDQSEC
#3171,aDQSEC
#BIT1.3DQSEC
@DQREG
NRXBUFF ,@DQSEC
aDQREG
#-36.,3DQSEC
QDQREG
#SYNC1,aDQSEC
aDQREG
#-38.,aDQSEC
aDORCSR
aDQTCSR
RS
@aDORCSR
2$

*FLIP THE BYTES
*SET CHARACTER LENGTH
:TURN CLOCK OFF...
:AND ON
*SEL RX PRIMARY ADRESS
:SET ADRESS
*SEL RX PRIMARY CHAR COUNT
:SET CHAR COUNT
*SEL TX PRIMARY ADDRESS
:LOAD THE SYNC CHAR
*SEL TX PRI CHAR COUNT
;SET CHAR COUNT
*SET RX GO
*SET TX GO
*START TIMING
1S DONE UP?
*BRANCH IF YES

1$
1

*BR IF MORE TO GO
*ERROR=-NO RX DONE

ADD

2%:

#7515 ,NEXT

TST
BMI
MOV
BR
MOV
MOV
MOV
INCB
MOV
MOV

171220

#14,TSTNO

BNE
HLT

MOV
MOV
MOV

#5,R0

#1,RS

#TXBUFF ,RO
#RXBJFF .R
#36. ,R2

;

TWAIT

*LOAD BUFFER POINTER
*LOAD RX BUFFER POINTER
*SET UP TO COUNT CHARACTERS

J:++D
J:+4D

244D
J:44D

;;OOD
s:++D

03-DEC-80
MACY11 30A(1052)
CZDQHE.P1
03-DEC~80 08:27
(ZDQH

1920
1921
1922
1923
1924

1925
1926
1927
1928
1929
1930
1933
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943

1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
196R
1969
1970
1971

1972
1973
1974
1975

010254
010256
010260
010264
010266
010270
010272
010274
010276

012005
012104
043705
020504
001401

08:29

BIC
CMP
BEQ
HLT

012370

4%:

005302
001367

SEQ (038

PROGRAM INITIALIZATION AND START UP.
MOV
MOV

104002

PAGE 39

DEC

BNE
SCOPE

104400

(RO)+,RS
(R1)+,R4
MASK RS
R5.,R4
4%

:GET ANCTHER CHAR
:GET A REC (HAR
;MASK OUT UNWANTED BITS
:DO THE CHARACTERS MAT(CH?

;BR IF OK

:ERROR=--DATA DOESN'T MAT(H
;JALL DONE?
;NO--GO BACK FOR MORE
:SCOPE THIS TeST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
:THIS TEST WILL XMIT AND RECV CHARA(CTERS
;AT 12 BITS/PER/(CHAR.

;DATA (HECKING WILL BE PERFORMED!

;

TEST 15

AR RN
AR A AN R AR AR AR AR AR AR AR AN AR RANRAAAR RN AN RANRAARATANARNAASAAARAC

010300
C10306
010314
010316
010322
010324
010326
010330
010332
010340

010346
010354
010362

010364
010370
010374
010376
010404
010406
010414
010422
010430
010434
010442
010446
010450
010454
010462
010470
010474
010502
010506
010514
010520
010526

010532
010540
010544

012737
012737
104413
012700
005001

000015
010630

001226
001216

013256
5%:

005020

105201
100375
112777

013737
012737
043737
000241
006037
005737
100404

012737
000403
013737
013737
013777
105277

012777
012700
000300
050077
052777
042777

105077
012777
105277

012777

105277

012777

105277

012777
005277
005277

TST15:

000011
013052
170000
012370

012370
001246

001246
001510

012372

001246
001246
001246
170734
000010
000004

012372
012374
170742

170716

170730

MOV
MEMCLR
MOV

CLR
CLR
INCB

B8PL
MOVB
MoV
MOV
BIC
cec
ROR
TST
BMI

171030
001246

177777

MOV

10%:
20%:

BR
MOV

MOV
MOV

INCB

MOV
MOV

SWAR
BIS
BIS
BIC
CLRB

170710
170702

177734
170650

170656

MOV

170644

MOV

177732
170614
170614

170632

MOV
INC

170662

012372
170636

ARXBUFF ,RO
R1

+
(RO)
R1
5%
#11,3DQREG

SYNC, TEMP2

#170000,MASK

MASK, TEMP2
TEMP?2
DQSTAT

MOV

000002
000002
170674
013256

170670

#15,TSTNO
HTST16 NEXT

MOV

INCB
INCBR

INCB

INC

TEMP2,SYNC1
TEMP2,SYNC?
TEMP2,aDQSEC

aDQREG

#B173,aDQSEC

#4 ,RO
RO
RO,aDQSEC
#3171,aDASEC
#81T1,aDASEC
aDQREG

HRXBUF
F ,@DQSE(

aDQREG
#-36.,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38.,aDQSEC
aDQR(SR
aDQTCSR

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
;SET UP TO (I EAR THE BUFFER
;CLEAR IT
sDONE?
;BRANCH IF NO

;SELECT THE SYNC REG
sLOAD SYNCS
;LOAD THE MASK
;SET UP THE MASK FOR THE
;JCORRECT SYNC CHARACTER

JSHIFT IT

;SINGLE SYNC CHARACTER?

;244D

;IF YES, MARK.
s CONTINUE.

;r++D

;IF NO,BR.

;JLOAD THE CHARACTER
:DITTO
;LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;SET TEST LOOP

JFLIP THE BYTES
;SET CHARACTER LENGTH
sTURN CLOCK OFF...

;AND ON

;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY CHAR COUNT
;SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
;JSEL TX PRI CHAR COUNT
;SET CHAR COUNT

;SET RX GO
JSET TX GO

;44D

so++D

;:++D

;;¢+D

MACY11 3CA(1052)
(ZDQH
03;DEC-80
CZDQHE .P11
03-DEC-80 08:2
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1590
1991
1992
1993
1994
1995
1996
1997
1998

010550
010552
010556
010560
010564
010566
010570
010574
010600
010604
010604
010606
010610
010614
010616
010620
(10622
010624
010626

005005
105777
100404

170602

062705
001372

000001

012700
012701
012702

012376
013256

104001

012005
012104
043705
020504
001401

08: 25

PROGRAM

TSTB
BM]
ADD
BNE
HLT

2%:
.

104002

005302
001367

48:

2017
2018

:START TIMING

a@DORCSR
28
#1,RS
18
1

:1S DONE UP?
:BRANCH IF YES
SWAIT

:BR IF MORE

TO GO

:ERROR--NO RX DONE

#RXBUF F ,R1
#36. ,R2

*LOAD RX BUFFER POINTER
:SET UP TO COUNT CHARATTERS

MOV

(RO)+,RS

:GET ANOTHER CHAR

BIC
CMP
BEQ
HLT

MASK RS
RS.R&
43
2

IMASK OUT UNWANTED BITS
:DO THE CHARACTERS MATCH?
:BR IF OK
:ERROR--DATA DOESN'T MATCH

BNE
SCOPE

:NO--GO BACK FOR MORE
:SCOPE THIS TEST

DEC

104400

SEQ 0039

START UP.

#TXBUFF ,RO

MOV

012370

MOV

MOV
MOV

(R1)+,Ré4

:LOAD BUFFER POINTER

:GET A REC CHAR

:ALL

DONE?

;TEST OF TRANSMITTER AND RECEIVER (HARATER LENGHTHS
cTHIS TEST WILL XMIT AND RECV (HARACTERS

1999

2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016

INITIALIZATION AND

CLR

1$:

000044

PAGE 40

;AT 13 BITS/PER/(HAR.
sDATA (HECKING WILL BE
TEST

PERFORMED!

:t"t""'tt"“ttt"'t"'t'fitttltttt**'t'tt'ittfitltt't't'ttttt'ttt't

010630

010636
010644
010646
010652
010654
010656

010660
310662
010670
010676
010704
010712
C10714
010720
010724
010726
010734
010736
010744
010752
010760
010764
010772
010776
011000
011004
011012

012737
012737
104413
012700
005001
005020
105201
100375
112777

013737
012737
043737
000241
006037
005737
100404

012737
000403
013737
013737
013777
105277

012777
012700
000300
050077
052777
042777

000016
011160

001226
001216

TST16:

013256
5%:

000011
013052
160000

012370

170500

001246
001246
001246
170404
000010
000003
170366

000002
000002

#TST17 NEXT

(LR

;SET UP TO CLEAR

#11,3DQREG
SYNC,TEMP?
#160000,MASK

JSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK

TEMP2

s CORRECT SYNC
JSHIFT 1T

108
#-1,SYNCI

;1F
JIF

1 [01Y)

#RXBUFF ,RO

(LR
INCB
8PL

(RO) +
R1
5%

BIC

CLC
ROR
TST

BMI
MOV

D3¥2372

012372
012374

170412

170400

10%:

20%:

#16,TSTND

MOV
MEMCLR

MOVB
MoV
MoV

001246
012370
001246

001246
001510
177777

MOV

BR
MOV
MOV

MOV

INCB
MOV
MOV
SWAB
BIS
8IS

BI(C

MASK , TEMP?2
DQSTAT

;CLEAR ALL

;LOAD

THE

DQ11

THE RUFFER POINTER

;JCLEAR [T
.DONE?
;BRANCH IF NO

THE

BUFFER

JSET UP THE MASK FOR THE

JSINGLE

SYNC

(CHARA(CTER

CHARA(CTER?

NO,BR.
YES, MARK.

208
TEMP2 ,SYN(C1
TEMP2,SYN(2

s CONTINUE.
;LOAD THE CHARA(TER
JDITTIO

aDQREG
#8173 ,aDQSE(
#3,R0
RO
RC.aDQSEC
#3171,8DQSEC

;SEL THE MISC REGISTER
JSET TEST LOOP
:
:FLIP THE BYTES
JSET CHARACTER LENGTH
JTURN CLOCK OFF.,..

TEMP?2 ,aDQSEC

#31T1,a8DQSEC

JLOAD THE SYNC REGISTER

JAND ON

1:e¢D

s:++D
2:¢%D

Joe¢D
2:4¢D
JoveD

CZDOH

MACY11 30A(1052)

CZDQHt P11

2032 011020
2033 011026
2034 011032
2035 011036
2036 011044
2037 011050
2038 011056
2039 011062
2040 011070
2041 011074
2042 011100
2043 011102
2044 011106
2045 011110
2046 011114
2047 011116
2048 011120
2049 0111246
2050 011130

105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705
001372
104001
012700
012701
012702

011134
011136
01'140
011144
011146
011150
011152
011154
011156

012005
012104
043705
020504
001401
104092
005302
001367
104400

2051

2052
2053
2054
2055
2056
2057
2058
2059
582?

0§;DEC-80

03-DEC~80 08:¢

C11134

170344
(13256
170332
177734
170320
012372
170306
177732
170264
170264

08:29

170326
170314

170302
1%:

000001

2%:

012376
013256
000044

3s:

012370
4%:

2062

CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
CLR
1STB
BM]
ADD
BNE
HLT
MoV
MoV
MoV

aDQREG
H#RXBUFF ,@DQSEC

;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY (HAR COUNT
;SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (HAR
;SEL TX PRI (HAR COUNT
;SET CHAR COUNT
;SET RX GO
JSET TX GO
s START TIMING
;1S DONE UP?
;BRANCH IF YES
JWAIT
;BR IF MORE TO GO
;ERROR-=NO RX DONE
;LOAD BUFFER POINTER
;JLOAD RX BUFFER POINTER
;SET UP TO COUNT CHARACTERS

MoV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

(RQ) +,R5
(R1)+ R4
MASK RS
RS,R4
4%
2
R2
3%

;GET ANOTHER (CHAR
;GET A REC (HAR
JMASK OQUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?
;BR IF 0K
;ERROR--DATA DOESN'T MATCH
JALL DONE?
;NO--GO BACK FOR MDRE
;SCOPE THIS TEST

aDQREG
#-36.,3DQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38, ,aDASEC
aDQRCSR
aDITCSR
RS
aDQRCSR
2%
#1,R5
1%
1
#TXBUFF ,RO
H#RXBUFF ,R1
#36. R

2063
2064

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
;THIS TEST WILL XMIT AND RECV CHARACTERS

5829

;DATA CHECKING WILL BE PERFORMED.

;AT 14 BITS/PER/CHAR.

2065

;

2068

2069

2070
2071

2072
2073
2074

2075
2076
2077
2078

2079

2080

2081
2082
2083
2086

2085
2086
2087

SEQ 0040

PROGRAM INITIALIZATION AND START UP.

170340

170252

PAGE 41

011160
011166

011774
C11176
011202

011204
011206
011210
011212

011220
011226

011234
011242
011244
011250

011254
011256
011264

012737
012737

104413
012700
005001

005020
105201
100375
112777

013737

012737

043737
000241
006037
005737

100404
012737
000403

000017
011510

001226
001216

TST17:

013256
5%:

000011
013052
140000

012370

170150
001246

012370

001246

001246
001510

177777

012372

TEST 17

"it'fiittt**ttitfitttfittttititt*tit*iitt*tl'fitt'tfik"fitt'tt'tit'iit't"

MOV
MOV

MEMCLR
MoV
CLR
CLR
INCB
BPL
MOvB

MOV
MOV

BIC
CLC
ROR
TST

BMI!
MOV
BR

#17 ,TSTNO
#TST20 NEXT

ARXBUFF ,RO
R1
(RO) +
R1
5%

#11,3DQREG
SYNC, TEMP?2

#140000,MASK

MASK, TEMP2
TEMP?2
DQSTAT

10%
#-1,SYN(1
20%

;CLEAR ALL THE DQ11
;LOAD TSE BUFFER POINTER
;SET UP 7O CLEAR THE BUFFER
;CLEAR IT
;DONE?
;BRANCH IF NO
;SELECT THE SYNC REG

sLOAD SYNCS

JLOAD THE MASK

;SET UP THE MASK FOR THE
;CORRECT SYNC CHARACTER
JSHIFT 17
;SINGLE SYNC CHARACTER?

;1F NO.BR.
IF YES, MARK.
s CONTINUE.

;oD
so49D
s.¢eD
;%D

MACY11 30A(1052)

03;DEC-80

08:29

PAGE 42

CZDQH
PROGRAM INITIALIZATION AND START UP.
03-DEC~80 08:2
¢ ZDQHE . P11
:LOAD THE CHARACTER
TEMP2,SYNC1
MOV
2088 011266 013757 001246 012372 10%:
:DITTO
TEMP2,SYN(C2
MOV
2089 011274 013737 (001246 012374 20%:
:LOAD THE SYNC REGISTER
,aDQSEC

2090 011302 013777 001246
2091 011310 105277 170054
2092 011314 012777 000010

2093

011322

2094
2065
2096
2097
2098
2099
2100

011326
011330
011334
011342
011350
011354
011362

21064
2105

011406
011412

2101
2102
2103

2106
2107
2108
2109

C11366
011374
011400

011420
C11424
011430
011432

2110 011436

012700

000002

000300
050077 170036
052777 000002
042777 000002
105077 170014
012777 013256
105277 170002
012777
105277
012777

105277
012777

005277
005277
005005
105777

100404

177734
167770
012372

167756
177732
167734
167734

062705
001372
104001

000007

2115 011454

(012701

013256

2114

2116

2117

011450
011460
011464

012700
012702

2118 011464
2119 011466
2120 011470
2121 011474
2122 011476

012005
012104
043705
020504
001401

011502
011504
011506

005302
001367
104400

2123 011500
2124
2125
S]Sg

170050

170010
167764

RO
RO, aDQSEC
#BIT1,aDQSEC
#B8iT1,aDQSEC
aDQREG
#RXBUFF ,dDQSEC
aDQREG

INC
INC
CLR
TSTB

1¢:

BMI]

012370

2128

aDQREG
#-38. ,3DQSEC

:BRANCH IF YES

#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQRCSR
aDQTCSR
RS
aDORCSR

MOV

H#RXBUFF ,R1

#TXBUFF ,RO
#36. ,R2

:SET RX GO
:SET TX GO
;START TIMING
;1S DONE UP?

TWALT
:BR IF MORE TO GO
:ERROR--NO RX DONE

:LOAD BUFFER POINTER

:LOAD RX BUFFER POINTER

:SET UP TO COUNT CHARACTERS
:GET ANOTHER CHAR
:GET A REC CHAR

MOV
MOV
BIC
CMP
BEQ

(RO)+,RS
(R1)+,R4
MASK RS
RS ,R4
A

:MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?

DE(
BNE
SCOPE

R2
3%

;ALL DONE?
:NO--G0 BACK FOR MORE
:SCOPE THIS TEST

HLT

4%:

:SEL THE MISC REGISTER
;SET TEST LOOP

:FLIP THE RYTES
;SET CHARACTER LENGTH
:TURN CLOCK OFF...
;AND ON
:SEL RX PRIMARY ADRESS
;SET ADRESS
:SEL RX PRIMARY CHAR COUNT
:SET CHAR COUNT
:SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (CHAR
:SEL TX PR] CHAR COUNT
:SET CHAR COUNT

ADD
BNE
HLT

MOV

#2,R0

#1,RS
1%
1

MOV

2%:

104002

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
INCB
MOV

167752

000044

TEMPZ2
aDQREG
#BI1T3,3DQSEC

MOV
INCB
MOV

167776

012376

MOV
INTB
MOV
MOV

170030
170022

167722

011440
011444
011446

2111
2112
2113

170062

:BR IF 0K

:ERROR=-=DATA DOESN'T MAT(H

2129

TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

2131

;AT 15 BITS/PER/CHAR,

STHIS TEST WiLL XMIT AND RECV CHARACTERS

2130

:DATA CHECKING WILL BE PERFORMED!

S}%%
;

2134

2135

2136
2137

011510
011516

2138

011524

2141

011534

2139
2140
2142

2143

012737
012737

104413

000020
012040

011526
011532

012700 013256
005001

011536

105201

011540

005020

100375

001226
001216

TEST 20

"t'tttttfitttttittttttt'ttttttttttttttttt*ttttt'ttt.!fi"Qttttnfitt"ttt

T1S120:

MOV
MOV

#20,TSTNO
#TST21 ,NEXT

MOV
fLR

#RXBUFF ,RO
R1

INCB

MEMCLR
5%:

CLR

BPL

(RO) +

:CLEAR ALL THE DQ11

:LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER
CLEAR IT

:DONE?

:BRANCH IF NO

SEQ 0041
1o4¢D
Jo¢+D

MACY11 3CA(1052)

CZDQH

CZDQHE .P11

03-DEC-80 08:27

2144 011542
21645 011550
2146 011556
2147 011564
2148 011572
2149 011574

2150
2151
2152
2153
2154
2155

011600
011604
011606
011614
011616
011624

2159

011652

2156
2157
2158

2160
2161
2162
2163
21646
2165
2166
2167
2168
2169
2170
2171
2172
2173

2176

2175

2176
2177
2178

2179

2180
2181
2182
84

NNV

D =D

=OV00
N NN

011632
011640
011644
011656
011660
011664
(11672
011700
011704
011712
011716
0117246
011730
011736
011742
011750
011754

011760
011762

011766
011770
011774

011776

112777
013737
012737
043737
000241
006037

013777
105277
012777
012700

005277

005005

105777

100404
062705
001372
104001

012014
012016
012020
012024

012005
012104
043705
020504

012030

012032
012034
012036

000091

000300
050077 167506
052777 000002
042777 000002
105077 167464
012777 013256
105277 167452
012777 177734
105277 167440
012777 01237¢
105277 167426
012777 177732
005277 167404

012700
012701
012702

012026

001246

001246
167524
000010

167532

10%:
20%:

167520
167500
167472
167460

167446

167434
167422
1%:

005302
001367
104400

#11,aDCREG
SYNC, TEMP?2
#100000,MASK
MASK , TEMP?2
TEMP?

;SELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
;SET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
JSHIFT IT

MOV
INCB
MOV

TEMP2,aDQSEC
aDQREG
#81T3,aDQSEC

;LOAD THE SYNf REGISTER
JSEL THE MISC REGISTER
;SET TEST LOOP

TST
BM]
MOV
BR
MOV
MOV

DQSTAT
108
-1,SYNC1
20%
TEMP2,SYNC1
TEMP2,SYNCZ

MoV

#1,RO

;SINGLE SYNC CHARACTER?
;IF NO,BR.
;IF YES, MARK.
s CONTINUE.
;LOAD THE CHARACTER
;DITTO
;

SWAB
BIS
BIS
BIC
CLRB
MoV
INCB
MoV
INCB
MoV
INCB
MOV
INC

RO
RO, aDQSEC
#B1T1,3DASEC
#8171,aDASEC
ADQREG
H#RXBUFF ,@DQSEC
aDQREG
#-36.,aDQSEC
aDQREG
#SYNC1,3DQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR

JFLIP THE BYTES
;SET CHARACTER LENGTH
;TURN CLOCK OFF...
JAND ON
;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY (HAR COUNT
;SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (HAR
;SEL TX PRl CHAR COUNT
*SET CHAR COUNT
;SET RX GO

CLR

;START TIMING

aDQTCSR

aDQRCSR

TSTB

;SET TX GO

;1S DONE UP?

;BRANCH IF YES
JWAIT
;BR IF MORE TO GO
;ERROR--NO RX DONE
;LOAD BUFFER POINTER

000001

BM]
ADD
BNE

2%
#1,RS
1%

012376
013256
000044

MoV
MOV
MoV

#TXBUFF ,RO
#RXBUFf ,R1
#36.,R2

MOV
MOV
BIC
(MP

(RO) +,R5
(R1)+,R4

MASK RS
R5.R4

;GET ANOTHER CHAR
JGET A REC (HAR

HLT

:BR IF OK

2%:
3%:

012370

HLT

BEQ

001401

104002

MOVB
MOV
MOV
BIC
cLC
ROR

INC

167404

167372

PAGE 43

SEQ 0047

PROGRAM INITIALIZATION AND START UP.

167620
001246
012370
001246

005737 001510
100404
012737 177777 012372
000403
013737 001246 012372
013737 001246 012374

012000
012004
(12010
012014

000011
(013052
100000
012370

08:29

4%:

DEC
BNE
SCOPE

R2
3%

;LOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS
;MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?
:ERRDR--DATA DOESN'T MAT(H
JALL DONE?
:NO--GO BACK FOR MORE
;SCOPE THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
;THIS TEST WILL XMIT AND RECV CHARA(TERS

OONOR

ed cd oo o

)

LY S LN LN 1at LN LN LN, ¥, V12 ST, W1, ST, N1, 14 V)

2183

03-DEC-80

tAT

16 BITS/PER/CHAR,

‘DATA (HECKING WILL BE PERFORMED.

J:++D
;o++D
;.++D
;oD
J.++D
J.+4D

MACY11 30A(1052) 03-DEC-80
CZ0QH
03-DEC-80 08:27
(ZDQHE P11

SEQ 0043

PROGRAM INITIALIZATION AND START UP,

TEST

"Q"'ttti'ttt'tt.tt!t"tt't""ttt'tQ"t't'ttifi'.tttitt'tt.'..tt'tt"

b md

114
22

24
30

W
»H

unr GGGGl

(ololololelololols

012040
012046
012054
012056
012062
012064
012066
012070
012072
012100
012106

—

36
44
46
154
012162
012170
paur our G

2200
2201

PAGE 44

08:29

012174
012202
012206
012210
012214
012222
012230
012234
012242
012246
012254
012260
012266
012272
012300
012304
012310
12312
012316
012320
012324
012326
012330
12334
1

2340

012737
012737
104413
012700
005001
005020
105201
100375
112777
013737
012737

000021
014306

006037
005737

001246
001510

012737
000403
013737
013737
013777
105277

1727777

012372

001246
001246
001246
167174

012372
012374

043737
000241
100404

(C12777
012700
000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705
001372
104001
012700
012701

012702

12344
12346

012005
012104

1 2356

001401
104002

}2350
2354
1 2360

043705
020504

001226
001216

TST21:

013256

5¢%:
000011
013052
000000
012370

000" "0
001000

167156

167270

001246
012370
001246

167202

167150

013256

167130

167134

167122
177734
167110

012372

167076
177732
167054
167054
167042

10%:

20%:

167142

167116
167104

1€7072

1%:

012370

2%:

#21,TSTNO
# . EOP _NEXT

#RXBUF F ,RO

R1
(RC) +

:CLEAR ALL THE D@1
:LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER
;CLEAR T
;DONE?
JBRANCH IF NO
;SELECT THE SYNC REG

MOV
MOV

R1
5%
#11,3DQAREG
SYNC,TEMP?
#G00000,MASK

ROR
TST
BM]
MoV
B8R
MOV

TEMP?2
DQSTAT
10%
#-1,SYNC1
20%
TEMPZ2,SYN(]

JSHIFT IT
:SINGLE SYNC CHARA(TER?
;1F NO,RR.
JIF YES, MARK,
;CONTINUE.
JLOAD THE (CHARACTER

MOV
INCR
MOV
MOV
SWAR
BIS
BIS
BIC
CLRR

TEMP2 ,aDQSEC
aDQREG
#B113,aDQSEC
#0,R0O
RO
RO,aDQSEC
MIT1,aDQSEC
#3171 ,aDQSEC
aDQREG

;LOAD THE SYNC REGISTER
:SEL THE MISC REGISTER

aDQREG
#-36. ,aDQSEC
aDOREG

:SEL RX PRIMARY CHAR COUNT
;SET CHAR COUNT
:SEL TX PRIMARY ADDRESS

MOV

000001

012376
013256
000044

MEMCLR
MOV
(LR
CLR
INCR
BPL
MOVR

B1C
CLC

167170

000002
000002

MOV
MOV

INCR
| (01Y)
INCR
MOV
INCB
MOV
INC
INC
CLR

TSTR

BM]

MASK , TEMPZ

TEMP2,SYN(?2

#RXBUFF ,aDQSEC

#SYNC1,aDQSEC
aDQREG
#~-38. ,aDQSE(
aDQR(CSR
aDQT(CSR
RS
aDQRCSR

;LOAD SYNCS
;LOAD THE MASK

;SET UP THE MASK FOR THE
:CORRELT SYNC (CHARA(TEIR

:DITTO

;SET TEST LOOP
:
;FLIP THE BYTES
:SET CHARACTER LENGTH
:TURN CLOCK OFF...
;AND ON

:SEL R¥ PRIMARY ADRESS
;SET ADRESS

;LOAD THE SYNC (HAR
:SEL TX PRI CHAR COUNT
:SET CHAR COUNT
:SET RX GO
JSET TX GO
:START TIMING
;1S DONE UP?

JBRANCH IF YES

ADD

#1,RS

SWALT

MOV
MOV
MOV

#TXBUFF ,RO
#RXBUFF ,R1
#36. .R2

:LOAD BUFFER POINTER
:LOAD RX BUFFER POINTER
JSET UP TO COUNT (HARACTERS

MOV
MOV

(RO) +,R5
(R1)+ R4

:GET ANOTHER (HAR
:GET A REC (HAR

A3
l

;BR IF Ok
;ERROR==DATA DOESN'T MATIH

BNE
HLT

BIC
CMP

BEQ
HLT

1%
1

MASK ,RS
R5,R4

:BR IF MORE 10 GO
:ERROR=-=NO RX DONE

;MASK QUT UNWANTFD BITS
:D0 THE CHARACTERS MAT(H?

,','”D
;;00[)

°"0«OD
Jo++D

;:+*D
;;0#0

03-DE~80
MACY1T 3CA(1052)
CZDAH
03-DEC-80 08:27
CZDQHE .P11

MASK
:

SYN(C1:
SYN(Z:

026
02¢

TXBUFF:

125252

052525
006001
000002

2269

2270

2271
2272
2273
2276
2275
2276
2277
2278
2279
2280
2281
2282

000004
000010
000020
000040
000100
000<00
0004CO
001000
002000
004000
010000
020000

2283
2284
2285
2286
2287
2288

040000
100000

BYTE
BYTE

137777
157777
167777

NNNN

£ WNON
AT
3N o NV}

b —d
b
d
D
D
e
b od

1727767
177773
1727775
177776
000100
[ESTaN1,N
1 V1,01, 8 1,01, V]

[oleleolololelole
e

177757

712
716

746

005077
005077
005077
612705
152777
142777
005077
105277

26,26
26,26

AB<11111T11 1111111 >
~B<0000000000000000>
~B<1010101010101010>
~B8<0101010101010101>
~B<0000000000000001>
~B<0000000000000010>
~B<C000000000000100>
~B<0000000000001000>
~B<0000000000010000>
~B<0000000000100000>
~8<0000000001000000>
~R<0000000010000000>
~B<0000000100000000>
~B<0000001000000000>
~8<0000010000000000>
~B<000010000C000000>
~B<0001000000000000>
~R<0010000000000000>
~B<0100000000000000>
~B<1000000000000000>
I
ABKOTIIIIIIIINIINI>

173777
175 77
176777
177377
177577
177677
177737

2293
2294
2295
2296

;ALL DONE?
;NO=-=GO BA(K FOR MORE
;SCOPE THIS TEST

R2
3%

— (D)
b d d b d D b
o b
- (D D b b D d d e b —h b —b b —D

077777

2289
2290
2291
2292

——

SCOPE

177777
000000

2267
2268

———

DEC
BNE

104400

000000
026
026

2264
2265
2266

A ¥

005302
001367

MEMCLR:

166446
166446

166444

000120
000020
000140
166426

166416

1664 34
166426

1$:

CLR
(LR
(LR

aDQRCSR
aDQTCSR

CLR
INCB

aDQSE(
aDQREG

MOV
BISB
8I(8

aDQERR

O =t b md b b b b b = e b b D b
VVVVVVVVVVVVVVYV

012362
012364
012366

PAGE 45

PROGRAM INITIALIZATION AND START UP.

o
o — el e e e e o d ) b b d D D b
—
b b wd D e () D e b o b D b
—d d o e v e () b D D D b b
e
—b e e el B ) D e d D =D =D =Dk d
— e d ed ) b b d b
md d b D D
b b mad () b d d e e ek cnd D D d D

2256
2257
2258
2259
2260
2¢61
2262
2263

(08:29

#16.,R5
#3174 ,3DQREG
#140,8DQREG

SEQ (044

—

no
ANOPORUNOAIN)
= md —d ad b ed b
bt WA
NOWVNE
W SOV
NN [aV)
[@RVéleRaNTo

AONININDNVRNTFUNIND
AN NI NN ny
n rorurnONINY
W NWINWW
N N NN NN N
A NN NN NN W

03-DEC-8C
MACY11 30A(1052)
rIDQH
7
08:2
O
EC~B
.P1
HE
03-D
CZDQ
012752
012754
012756
012762
012766
012772
013000
013004
013012

013016

013022
013024

013026
013032
013032
013040
013046
013050
013052
C1305¢4

013256
013256

013656
013660
013662
014064
014266
014270
014272
014274
014276

014300
014302
014304

005305
001364

105077
105077

012705

112777

005077
112777
005077
105277
005305
001362

166406

166374
000020
000010
166366
000014
166354
16634C

105077

166330

112777

000012
000040

012777
000002
026
026
000000
013256
000200
026
026
000000

026
026

DEC
BNE
C.RB

RS
1%
aDAREG

MOV
MOVB
CLR
MOvVB
CLR

#16..R5
#10,aDQREG
aDQSEC(
#14 ,aDQREG
aDQSEC

CLRB

166370

2%:

166356

INCB

DEC
8NE
166330

MSTCLR:

CLRB

MOVB

MOV

1663264

.SYNC:

SYN(:
TXBFA:

RT1

.BYTE
6BYTE

:
RXBUFF

026
026

014064

XSYNC:

XSYN(Z2:
XTXBUF
:0
:
XRXBUF

000000
014266
000000
000000
000000
000000
000000
000000
000000
000000

PAGE 46
PROGRAM INITIALIZATION AND START UP.

08:29

ERR:
POLY:

XPOLY:
(HAR:

(OUNT:

SEQ 0045

aDQR(SH

aDJIRCSH

RS
2%

aDQR(SH
#MISC.,aDAREG

#31T5,3DQSEC

26,26
26,26

.—.+200

BLKW
BYTE
BYTE

200
26,26
26,26

.=.+200
0

.=.+200
0
0
0
0
0

0
GD(HAR: 0
DETCAR: 0

ADDR:

JEND OF PASS
;TYPE NAME

TEST

JUPDATE PASS COUNT

;CHECK FOR EXIT 10 ACT-11

JRESTART

014306
014312
014316
014322
014324
014326
014330
014332
014334
014336
014340
014342

005037
005037
005237
104402

001234
001312
001230

.EOP:

(LR
(LR
INC

TYPE

104402

MEPASS
1YPE

104417

CNVRT

016536

016717
014444
104402

016725
104411

MCSRX

XCSR
TYPE
MVE (X

(NVRY

TEST

LSTERR
ERRFLG
PASCNT

;CLEAR LAST ERRCR P(

;sCLEAR ERROR FfLAG
JUPDATE PASS C(OUNT

08:29

03-DE(=-B0
MACY11 30A(1052)
CI0AH
03-DEC-B0 08:27
CIDQKE.P

2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392

014454
014456
014460

014462
014464
014466
014470
014472

XVEC
TYPE

001230

164606

001504
000042

001276

MPASSX
CNVRT
XPASS
TYPE
MERRX
CNVRT
XERR
MOV
DEC
BNE
MOV
MOV

LOGICAL:

B8EQ
RESET
JSR
NOP

PASCNT
,aL IGHTS
SAVNUM
RESTRT
DQNUM, SAVNUM

axs2,R1
RESTRT

;DISPLAY PASS (OUNT

J(HECK FOR A(CT=11 OR DDP
;1F NOT, (ONTINUE TESTING

PC,(RD)

NOP

00225¢
002254

001214

002

006

000001

003

XVEC:

002

001350
000001
006
001230
000001
006
001232

RESTRY:

XCSR:

xPASS:

002

XERR:

002

NOP

(CKSWR
MOV
#MP

.BYTE
DQRCSR
1
.BYTE
DQRVE(
1
BYTE
PASCNT

1
.BYTE
ERRCNT

26419

2420

2622
2423

—_——

004000

164446

001224
001224

001222

001312
001224
000017

#T7ST1,RETURN
ST

6.2

3.2
6.2
6.2

T1ST:

BEQ

A ¥

BIT

001216

—_—

M31T14,385WR
19

33
aTK(SR
3$
a8TKDBR,RO
2%

#5W11,85WR

2%
LPCNT

LPCNT, 1COUNT
3s
ERRFLG

--fN)
"o

2617
2418

(KSWR

164464

)

2416

014510
014514
014516
014522
014524
014532
014534
014540
014546
014550
014554
014560
014566

2612
2613
2614
2415

.SCOPE:

164470

a1,
V]

2«11

105777
100027
017700
000412
032777
001006
005237
023737
001032
105037
005037
012737
013737

040000

164474

2410

104414
032777
001407
000432

014474
0146476
14504
014566

2609

— e

SEQ 0046

: SCOPE LOOP AND INTERATION HANDLER

2408

001360

014452

<606
2607

24621

014450

014446

2396
2397
2398
2399
2400
2601
2402
2403
24604
2405

‘

014440
014444

004711
000240
000240
000240
104474
012737
000137
000001

014420
014420
014422
014424
014426
0164430
014432

2393
2394
2395

014350
014352
014354
014356
014360
014362
0146364
016366
014374
014406
014402
014410
014414
014416

014452
1046402
016733
10447
014460
104402
016744
104411
014466
013777
005337
001013
013737
013701
001405
000005

014344
0143646

2368
2369
2370
2371
2372
2173
2374
2375

PAGE 47

END OF PASS ROUTINE

LPCNT

#15,, 1COUNT

,RE TURN
NEXT

(ZDQH

MAlY11

C2DQaHt PN

2424
2625
2426
2627
2428
2429
2630
2431

2632
24633
2634
2635
243%¢
2437
2638
24639
2640
244
2642

24643

PIYAA

24645
2446
2L4L7
24648
2449
2450
24651

2452
2453
24654
2455

2456
2457
2458
2459
2460
24661
2462
2463
2464
24665
2466
2467
2468

2469

2470
2471
2472
2473
24674
2475
2476
2477
2478
2479

014574
014600
014602
0164604

03-DEC-BC
03-DE(~B0 08:27
3CA(1052)
013776

000002
001407
000432

08:29

PAGE 48

MOV
RT]

001214

GENERAL UTILITIES

BRW:

BRX:

(TYPE OUT,ERROR,SCOPE,ETC.)

RETURN, (SP)

1407
632

sCHECK FOR FREEZE ON CURRENT DATA
014606
014610
014616
014620
014624

104414

032777
001402
013716
000002

001000

164862 "

001220

.SCOP1:

1%:

(KSwWR

BIT
BEQ

MO/
RT]

#5wW09,aSWR
1%
LOCK, (SP)

sTELETYPE

014626

014630
014634

014642
014646
014650

014656
014660
014662
014664

014670
014672
014700
014704
014706
014714
014720
014722
014726
014730
014732

016734
014736
014740
014746

014754
014756
014760
014764

010546
017605
062766
005737
001004
032777
001024

105715
100014
105777
100375

012777

105777
100375
012777

105777
100375
112577
001345
012605
000002

000002

010000

164322

164320

QCOD1S

164312

000012

164276

164304

164270

000000
012704
012703

017110
000007

001003

104402
000755

122427

.INSTR:

164210

1646204

a#RDSw

300%

#SW12,a5WR

TSTR

(RS)

BNE
BPL

1STB

aTP(SR

MOV

#15,aTPDBR

BPL
MOV
T1STB
BPL
MOvVB
BNE

=4
#12,aTPDBR
alPCSR
2%
(R5)+,8TPDBR
19

MOV

RTI

aTP(SR

(SP)+ RS

cASCI1

STRING INPUT ROUTINE

MOV

R3,-(SP)

MOV

Ré4 ,-(SP)

#2,4(SP)

MOV
MOV
TST8B
BPL

# INSBUF
R4
#7,R3
aTKCSR
1%

(MPS
BNE

(R&4)
, 425
200%

8TKDBR, (R4)
#200, (R4)

TYPE ,MCRLF

200$:

(SP), .M5G

ADD

MOov8
81(8B

016476

RS,=-(SP)
a2 (SP) RS
#2,2(SP)

BIT

LINSTY: SVPE
.MSG:

000200
000025

000015

7ST

BNE

TSTR

3%:

014756
000004

MOv
MOV
ADD

BPL

164264

000004
000002

105777
100375
117714
142714
121427

1%:

:
3008

010346
010446
017637
062766
104402

LTYPE:

000002
000002
016316

OQUTPUT RGUTINE

BR
(MPB

. INST
(R&)
s+, #15

JIS

1T <*6>

SEQ 0047

(ZDQH

MACY11

C2DQNHE . P11
2480
2681
2482
2483
2684
26485
2486
2487
2688
2489
2490
2491
2692
2493
2694
2495
2696
Szgg

015026
015030
015036
015042
015044
015046
015050
015052
015054
015056
015060
015062
015066
015070
015074
015076
015100
015102

30A(1052)

O03-DEC~B0

03-DEC-80 08:27
001423
117777
105777
100375
005303
001350
000402
010346
010446
104402
016472
005737
001402
1064402
000727
(012604
012603
GO0002

164152
164146

01636
016476

08:29

164754

BEQ
INSTR?2
MOVB
aTKDBR,aTPPBR
2%:
TSTR
aTPCSR
BPL
3
DEC
R3
BNE
1%
BR
.INSTG
.INSTE: MOV
R3,-(SP)
MOV
P& ,-(5P)
JINSTG: TYPE
MQM
TST
S#RDSW
BEQ
400%
TYPE ,MCRLF
4008:
B8R
JINST
INSTR2: MOV
(SP)
+ R4
MOV
(SP)+_R3
RT]

;CONVERT ASCII STRING TO OCTAL
015104
GC15106
015110
015114
015120
015124
015130

015134
015140
015144

010546
010446
016605
012537
012537
012537
112537

2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
25¢0
2521
2522
2523
2524
2525

015212
015214
015216

112537
010566
005005
012704
122714
001420
121427
002415
121427
003012
142714
152405
122714
001414
006305
006305
(06305
000760

2527
2528
2529
2530
Sg;}

015224
015226
015232
015234
015236

001003
005737
001023
104404
(000742

2526

015146
015152
015156
015160
015164
015166
015172
015174
015200
015202
015206
015210

015220

122714

000004
015310
015312
015314
015316
015317
000004
017110
000015

000060
000067
000060
000015

000015

.PARAM: MQV
MOV
MOV
MOV
MOV
MOV
MOVB

MOVB
MOV
PARAM1: (LR
MOV
CMPR
BEQ
1%:
CMPR
BLT
CMPR
B8GT
BICB
BISB
CMPR
BEQ
ASL
ASL
ASL
B8R

PARERR: CMPB

016316
120$:

2533
2535

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

gggg
2501
2502
2503
2504
2505
2506
2507

PAGE 49

BNE
TST
BNE
INSTER
B8R

RS,-(SP)
R4 ,-(SP)
4 (SP) RS
(RS)+,LOLIM
(RS)+ HILIM
(RS)+,DEVADR
(R5)+,LOBITS

(RS5)
+ ,ADRCNT
RS,4(SP)
RS
# INBUF
, R4
#15,(RG)
PARERR
(R&4) ,#60
PARERR
(RG) ,#67
PARERR
#60, (R4)
(R4)
+ RS
#15,(R4G)
LIMITS
RS
RS
RS
1%

#15, (R4G)
1208
aFRDSW
PART]

020537

015312

LIMITS:

(MP

;1S CKSWR ROUTINE BEING USED

PARAM1

JTEST TO SEE
015240

;1S FIRST (HARACTER A <CR>

IF NUMBER IS WITHIN LIMITS

RS,HILIM

SEQ 0048

CZDQH

03-DEC-80
MACY11 30A(1052)
03-DEC-80 08:27

C20QHE .P11

2536
2537
2538
2539
2540
2561
2542
2543
2544
2545
2546
2547
2548

2549
2550
2551
2552

2553
25564

2555
2556
2557
2558
2559

015244
015246
015252
015254
015260

015262
015266
015270
015274

015300
015302
015304
015306
015310
015312
015314

C15316

2564
2565
2566
2567
2568
2569
2570
2571

015326
015332
015336
015342
015346
015352
015356

2584

2585
2586
2587
2588
2589
2590
2591

103762
133705

001357

BHI
CMP
BLO
BITB
BNE

015310

015316

PARERR

R5,LOLIM
PARERR

LOBITS,RS
PARERR

013704
010524
062705
105337
001372
012604
012605
000002
000000
000000
000000
000000
015317

015314

1%:

000002
015317

PART]I:

LoLIm:
HILIM:

MOV

MOV
ADD

DE(CB
BNE
MOV
MOV
RT]

DEVADR R4

R5,(R4)+
#2 ,R5
ADRCNT
1%

)
+ R4
(SP
(SP)+.RS

DEVADR: 0
LOBITS: O
ADRCNT=LOBITS+1

:SAVE PC OF TEST THAT FAILED AND RO-R5
015320

2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583

020537

:STORE NUMBER AT SPECIFIED ADDRESS

2560
2561
2562

2563

101365

08:29 PAGE 50
GENERAL UTILITIES (TYPE QUT,ERROR,SCOPE,ETC.)

016637

000004

001274

.SAV0S: MOV

4L(SP) ,SAVP(C

:SAVE RO=RS
010537
010437
010337
010237
010137
010037
000002

001270
001266
001264
001262
001260
001256

Sv05:

MOV

MOV
MOV
MOV
RTI

RS.,SAVRS

R4 ,SAVR4
R3,SAVR3
R2.SAVR?Z2
R1,SAVRI1
RO, SAVRO

;RESTORE RO-RS
015360
015364
015370
015374
015400
015404
015410

013700
013701
013702
013703
013704
013705
000002

015412
015414
015416
015420
015422
015424
015426
015430

016476
010046
010146
010346
010446
010546
017601

001256
001260
001262
001264
001266
001270

.RESOS5: MOV

MOV
MOV
MOV
MOV
MOv
RTI

SAVRO,R0O
SAVR1,R1
SAVRZ,R?2
SAVR3,R3
SAYR4 R4

SAVRS,RS

:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER
.CONVR:

104402

TYPE

MCRLF

.CNVRT: MOV

000012

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R3,-(SP)
R4 ,~(SP)
RS,=(SP)

@12(SP) ,R1

SEQ 0049

CZDAH

MACY11 30A(1052)

~ CZDQHE.P11
2592
2593
2594

2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605

2606

2607
2608
2609
2610

2611
2612
2613
2614

03-DEC-80 08:27

015434
015442
015450

015454
015460
015464
015470
015474
015500
015504
015506
015512
015516
015520

015522

015524
015526
015530
015532

C15534
015536
015540
015544

2615 015546

2616
2617
2618

2619

2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635

2636
2637
2638
2639

03-DEC-BC

015552
015554
015560

015562

013737
062766
012137

112137
112137
013137
013704
113705
012700
010403
042703
062703
110320

1¢:
2%:

i ¥

177770
000060

cLC
ROR
cLC
ROR

017214

4%:

105337 015634
112723

105337
001373
105013
104402
017214
005337
001322
013737
012605
012604
012603
012601
012600

015636

015635
000000

015635

5%:

000040
015635

6%:
015632

001250

017152

DEC
BNE
MOV
MOVB

DECBR

TEMP, TEMP3
#2.,12(SP)
(R1)+,WRDCNT

(R1)+,CHRCNT
(R1)+,SPACNT
a(R1)+,BINWRD
BINWRD ,R4
CHRCNT,RS
#TEMP,RO
R4 ,R3
#177770,R3
#060,R3
R3, (RO)+
Ré
Ré
R&
RS
3$

#MDATA ,R3
-(RO),(R3)+

CHRCNT

BNE
TSTR
BEQ

43
SPACNT
63

DECB
BNE
CLRB
TYPE
MDATA
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV

SPACNT
5%
(R3)

MOVB

RTI
WRDCNT: 0
CHRCNT: 0
SPACNT=CHRCNT+1
BINWRD: 0

000002
000000
000000

#040, (R3) +

WRDCNT
1%

TEMP3, TEMP
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R1
(SP) +,RO

:TRAF DISPATCH SERVICE
*ARGUMENT OF TRAP IS EXTRACTED

AND USED AS OFFSET TO OBTAIN POINTER

2640

:TO SELECTED SUBROUTINE

5225

011646

2643

015640

2645

015646

017616

000000

26467

015654

042716

177001

2644

MOVB
MOVB
MOV
MOV
MOVR
MOV
MOV
BIC
ADD
MOVR
CLC

000241
006004
000241
006004

001374
105737
001405

MOV
ADD
MOV

ROR

006004

005305
001362
012703
114023

GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

001250
000012

015634
015635
015636
015636
015634
017152

PAGE 51

000241

015566
015572
015574
015576
015600
015602
015606
015610
015616
015620
015622
015624
015626
015630
015632
015634

017152
(00002
015632

08:29

015642

162716

2646 015652 006316

000002

.TRPSR: MOV

SuUR

TRPOK:

MOV

ASL

BIC

(SP) ,=(SP)

:GET PC OF RETURN

a(SP), (SP)

:GET TRP

#177001, (SP)

;CLEAR UNWANTED BITS

#2,(SP)
(SP)

:=PC OF TRAP
CMULTIPLY TRAP ARG BY 2

SEQ 0050

03-DEC-80
MACY11 30A(1052)
(ZDQH
03-DEC~BO 08:27
(ZDQHE P11
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661

2662
2663

2664
2665
2666
2667
2668
2669

2670
2671
2672
2673
2674
2675
2676
2677
2678
2679

2680
2681
2682
2683
2684
2685
2686

2687

2688
2689
2690
2691
269¢
2693
2694
2695
2696
2697
2698
2699
2700
2701

2702
2703

015660
015664
015670

062716
017616
000136

08:29 PAGE 52
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

001314
¢00000

ADD
MOV

JMP

#.TRPTAB, (SP)

;POINTER TO SUBROUTINE ADDRESS

Q(SP)Y+

;GO TO SUBROUTINE

2(SP), (SP)

JERROR HANDLER
015672

015674

01,702
015704
015710
015712

015720
015726

015730
015734
015736

015742
015746
C15750
015752
015756
015760
015762
015764
015766
015772
015776
016002
016006
016012
016016
016020
016024
016026
016030
016032
016034
016036
016040
016042
016044
016046
016050
016052
016060
016064
016066
016070
016072
016072
016076
016100
016102
016104
016110

104414

032777
001406
105777
100003
112777
032777
001074
021637

001404
011637
105037
104406

011605

162705
011504

006304
061504
006304
042704

062704
012437

012437
011437

105737

001403
005737
001027
104402
016755

010000

163276

JHLT:

CKSWR

BIT

#SW12,aSWR

BPL
MOVB

aT>CSR
XBX
#207,2TPDBR

163300

BEQ
TSTB

000207
020000

BIT

BNE
CMP
BEQ

001234
001234
001312

MOV

1%:

CLRB

SAV05

MOV

SuB

000002

MOV
ASL
ADD

ASL
BIC
ADD
MOV
MOV
MoV
TSTB
BEQ
1ST

177001

017624
016070
016102
01614

001312
016114
TYPMSG:

HALTS
(SP).LSTERR
1%
(SP) ,LSTERR

ERRFLG

(SP) ,RS

#2 ,R5

(RS) ,R4

,R4
4177001

# _.ERRTAB,R4
+ ,ERRMSG
(R4)

+ ,DATAHD
(R4)
(R4) ,DATABP
ERRFLG
TYPMSG

DATABP
TYPDAT

TYPE
MTSTN

ERTABRO

177777

016070

TYPE
MCRLF
MovBe
TST

001312

ERRMSG:

016102

104402

000000
005737
001402

#5w1%, aSWR

TYPE
MERRP(
CNVRT

017043

005737
001402

BNE

XBX

CNVRT
XTSIN

104411
016214
104402

104411
016206
104402
016476
112737
005737
001402
104402
000000

016114

WRKOD.FM:

DATAHD:
TYPDAT:

#-1,ERRFLG

ERRMSG

BEQ

WRKO.FM

BEQ

TST

DATAHD
TYPDAT

TST
BEQ

RESREG

TYPE

DATABP

INE ADDRESS
s SUBROUT

SEQ 0051

CZDQH
MACY11 30A(1052)
O03-DEC-80
CZDQHE P
03-DEC-B0 08:27

2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721

2722
2723
2724
2725
2726
2727
2728
2729

2730
2731
2732
2733
2734
2735
2736

016112
016114
016116
016120
016124
016126
016130
016134
016136
016140
016142
016146
016154
016156
016164

016166
016174
016200

016204
€16206
016210
016212
016214
016216
016220

016222
016222
016230
016232

10440
000000
104407
005777
100005
010046
016600
000000
012600
104414
005237
032777
001007
032777
001407

013737
012706
000177

000002
000001
006
001274
000001
003
001226

012737
000000
000777

08:29
PAGE 53
GENERAL UTILITIES

163054
000002

001232
000400

163024

002000

163014

001216
001200
163010

001214

1$:

002

(TYPE OUT,ERROR,SCOPE
ETC.)

SEQ 0052

@SwR
EXITER
2(SP),RO

ERRCNT
#SW08.aswR
18
#5W10,aSwR
2§
NEXT,RETURN
WSTAIK,CP
BRETURN
6,2

3,2
7STNO
sENTER HERE ON POWER FAILURE

000024

PEAIL:

%;%g
2739
27640
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

MOV
MOV
JMP

2$:
RII
ERTABO: 1
BYTE
SAVPC
XTSTN:
1
BYTE

002

016234

CONVRT
DATABP: 0
RESREG: RESOS
HALTS:
TST
BPL
PUSHRO
MOV
HAL
T
POPRO
EXITER: CKSWR
INC
BIT
RNE
BIT
BEQ

MOV
HALT
BR

WRESTART,24

:SET LP FOR POWER UP TRAP
JHALT ON POWER DOWN NORMAL

‘

sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
016234
016234
016242
016246
016252
016256
016260
016262
016264
016266
016270
016274
016300
016302
016304
016310
016312
016314

012737
012706
005037
005237
001375
104402
016500
104411
016310
005037
005037
104412
104413
000177
000001
003
001226

016222
001200
017152
017152

000024

RESTAR:

001312
001234
162704
002

PFTAB:
BYTE

MOV
MOV
(LR
INC
BNE
TYPE
MPFA]L
CNVRT
PFTAB
(LR
(LR
MSTCLR
MEMCLR
JMP
1
3,2
TSTNO

#_PFAIL,24
#STACK.SP
TEMP
TEMP
.4

’zb

;SET UP FOR POWER FAILURE

.
S
“

ERRFLG
LSTERR
aRETURN

4
sCHECK SWITCH REGISTER ROUTINE,

(HECKS FOR *G TO ALLOW CHANGING

03-DEC~80
MACY11 30A(1052)
7
08:2
0
1
EC-8
.P1
03-D
rZDQKE
(ZDQH

2760
2761
2762

2763

2764

2765

2766

2767
2768
2769

2770
2771
2772
2773
2774
2775
2776
2777
2778
2779

2780
2781
2782
2783
2784
2785
2786
2787

2788

2789
2790
2791
2792
2793
279%
2795
279%
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812

2813
2814
2815

016316

000000

016320
016324
016326
016334
016336
016342
016344
016352
016360
016366
016370
016374
016400

005737
001042
022737
001036

016404
C16410
016414
016416

016420
016422
016624
016426
016432
016436
016440
016442

016444
016446

016452
016460
016461
016466

105777

100033
017737
042737
122737
001021
104402

005137

104402
104411
104403
104405
000000
177777
000176
000
104402
005037
000002
000001
006
000176

057377
051777

016563
016570
016576
016604
016612
016620
016626
016632

;0F LOC.176.
;LOCATIONS USED:

.CKSWR:

000042

162642
162636
177600

.WORD

TST
SNE

ansl
ouT

#177600, .MSG
#7,.M56

000007
016446

TYPE ,$CNTG

BNE
LCNTLU:

016316
016452
016440
016461

COM

#SWREG, SWR
ouTt
aT(CSR
ouT
aTKDBR, .MSG

BIC
CMPS

out

;SOF TWARE SWIT(H REGISTER PRESENT
sNO, GET our
.YES,WAIT FOR
JREADY, GET CHARA(TER
JAND STRIP OFF
: THE GARBAGE

* <*6>

JIS IT

I#RDSW

TYPE ,$MSWR
CNVRT, SWREGC
INSTR, SMNEW

PARAM

001
016476

BYTE
ouT:

016316

0
177777
SWREG

0,1

TYPE ,MCRLF

CLR

RT]

HRDSW

)

020075

SWREGC.BYTE
6.2
SWREG
LASCIZ
$CNTG:
LASCIZ
SMSWR:

053505

SMNEW:

002
000107
051127

051127
042514
051505
040440
052123
042116
020123
020110

043040
027104
040524
020124
(00040
050040
055104

051120

043517
047111
042524
042040
051505
042523

000

000040

043125

<377>/%G/
<377>/SWR= /
NEW= /

LASCIZ

MQM:
:
MCRLF
MPFAJL:

LASCIZ
ASCIZ

LASCIZ

<377>/PWR FAILED. RESTART AT TEST /

MEPASS:

LASCIZ

<377>/END PASS DZDQH

JASCIZ

<377>/R/

MERR3:

LASCIZ

<377>/INSUFFICIENT DATA!/

.EVEN

000077

052116
044777

2DSW:

(MP
3NE
TSTB
8PL
MOv

000176

047040
000

016472
016476
016500
016506
016514
076522
016530
016536
016544
016552
016560

B 5
PAGE 56
GENERAL JTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

18:29

ME IRZ:

LASCIZ

2/
<377>

<377>/PROGRAM INDICATES NO DEVICES PRE 'NI./

SEQ 0053

(IDQH

MACY11 30A{1052)

(ZDQKE.°11

O03-DEC-80

03-DEC-80 08:27

08:29

PAGE 55

2816
2817

016640
016646

064506
020124

044503
(40504

047105
(40524

2819

016656

052377

051505

020124

MTISTPC: .ASCIZ

041517

020113

MLOCK:

.ASCIZ

<377>/L0OCK OM SELECTED TEST/

051123

020072

MCSRx:

.ASCIZ

/lSR: /

.ASCIZ

/VEC: /

2818

2820

016654

016664

2821

016670

2825

016717

2822
282%
2826
2826

2827

2828

016676
016706
016712

000041

041520

000055

047117
041505
042524

051440
042524
052123

046377

103

016724

000

016732

000

016725

046105
020104
000

041505

020072

MVECX:

120

051501

042523

MPASSX: .AS(IZ

/PASSES: /

07522

051522

MERRX:

.AS(C1Z

/ERRORS: /

052377

051505

MTSTN:

ASCIZ

<377><377> /TEST NO: /

042523

02012«

MNEW:

.ASCIZ

<377>/SET SWITCH REG TO DG11'S DESIRED ACTIVE./

MERRPC: .ASC.Z

016733

2831

016744

051105

2833

016755

377

2835

(C16770

2837
2838
2839
2840
2841
2842

016776
017006
017012
017020
017026
017034

053523
051040
020117
051447
051111
052103

017043

120

035103

0C0040

020106
051440
177523
017076
000002

050504
040524
000

030461
052524

2832

2834

2836

843

2844

2845

2846
2847
2848
2849
2850

016740
016752

016771

377

017050
017056
017064
017072

017076

017100

2853
2854

017104
017106

2855

020072

020124

2851

2852

035123

016762

017042

017102

000

046777

002040

000

047516
052111
043505
050504
042040
042105
053111

050101

006

003

006
0C1246

0c2

0017244

020072
044103
052040
030461
051505
04C440
027105

047440

XHEAD:

.EVEN

/PC: /

<377>/MAP 0OF DQ11 STATUS/<377>

BYTE

6,3

.BYTE
TEMP2

6,2

TEMP1

2856

2865

.ASCiZ

.EVEN
XSTATQ: 2

;BUFFERS FOR INPUT=QUTPUT

gggg
2859
2860
2861
2862
2863
2864

<377>/TEST PC-/

126

2829

2830

SEQ 0054

GENERAL UTILITIES (TYPE QUT,ERROR,SCOPE,ETC.)

(017110

017152
017214

017256

017317
017352
017400

017436
017513
017541

(020000
017152
000000
17214
(000000
017256

005015

042522

042503

005015

054105

042520

015
005015
005015

015
015

042072
050504
047516
042412
042012

052101
042440
051040
050130
042521

INBUF:
.—.+40
TEMP:
.. +40
MDATA:
.=, +40

£EM1:
EM2:
EM3:

LASCIZ
LASCIZ
LASCIZ

DH1:
DHZ:

LASCIZ
LASCIZ

EMO:

DHO:

O
O

LASCIZ

<15><12>/RECEIVER DONE PRIMARY NCT SET./

LASCIZ

<15><12>/EXPECTED

<15><12>/DATA COMPARISON ERROR.../
<15><12>/DQ ERROR FLAG SET. /
<15><12>/NO RECEIVER INTERRUPIS.!.! /

FOUND

<15><12>/EXPECTED RECEIVED
/
<15><12>/DQERR

RX ADDR.
/

Tx ADDR.

MASK /

’

CZDAH

MACY11 30A(1052)

(ZDAKF .P11

017556
017560

2866
2867
2868
2869
2870
2871
2872
2873
2874

017562
017564
017566
017570
017572
017574
017576
017600

2877

017606

2875
2876

03-DEC-B0

03-DEC~-80 08:¢7

017602
017604

001270
006
001266
006
001260
006
001256
006

012370
000002

PAGE 56

004

DTO:

004

002
006

003

002

006

002

b)
BYTE

SAVRS
BYTE
SAVR&
BYTE
SAVR1
BYTE
SAVRO
BYTE

003

DT1:

MASK
2

6,2

2883
2884
2885
2886
2887
2888

(17622
017624
017624
017626
017630
017632

014266

017636
017640

000000
017317

0
EM1

017317

EM1

2889

2890
2891

2892
2893
2894

2895

017634

017642
017644

017646

017650

2896
2897
2898
2899
2900

017652
017654
017656
017660
017662

2902

017666

2901

2903

017664

000000
000000
000000

DTZ:
.ERRTAR:

000000

017436
017556

017513

0
0
0

JHALT

DHO
DTO

JHALT

DH1

JHALT

000000

ERR

DT1
EM2
DHZ
DT2
EM3

017604
017352
017541
01766
017400
000001

CHAR
1

017256

END

6,2

BYTE

014274
000001

017620

6,4

3,2

017614
017616

2882

6,4

BYTE

2880
2881

017612

6,1

3,6

014302

2879

6,4

BYTE

GDCHAR

017610

2878

GENERAL UTILITIES (TYPE OUT,ERRDR,SCOPE,ETC.)
.EVEN

017556

000005
906

08:29

SEQ 0055

03-DEC~-B0
MACY11 30A(1052)
03-DEC~80 08:27

81719
B8RW

001000
014602

014604
BRX
014274
(HAR
(HARDT= 000010
001236
(HAR1
001240
CHAR2
001242
CHAR3Z
015634
(HRCNT
CKSWR - 104414
CNTLU = 104415
(NVRT = 104411
CONVRT- 104410
COUNT
014276
001300
C(REAM
CSRMAP 000220
DATABF (016114
DATAHD 0156102

DETCAR
DEVADR
DHO
DH1
DHZ2
DISPRE
DLIGHTDQACTV
DQCROO
DQCROT
DAQCRO2
DQCRO3
DOCRO4

014304
015314
017436
017513
017541
000174
177570
001500
001400
001404
001410
001414
(001420

1698

2097

1160
1284
1699

2162

1161
1285
1766

2163

1561

1629

2229

1422
1833

1423
1898

14691
1899

1492
1964

1560
1965

2030

2031

2228

1354
1832

1349
2224
1223

1418

1487

1556

1625

1694

1762

1828

1894

1353
17¢7

5914
5904
5894
602#
601

1960

600#
599#
5984

S97#
5964
595#
1019
1020

2348#
2506+
2865#
28654
28654

6894
S574m
669
888#
8904
892w

894#

8964

1223
1219

2308
2327

1229

2344n

2880

2615+

26354
1012

2636
2389

2407

2431

2654

2713

2367
2704

2371

2375

2684

2688

2r4?7

2778

1051+«

1055~

1064

1065+

1066

1067+

2680
2658

2702
27014

2705~

2544
2892
2895
2898
957

2554w

754

9204

1118«

629
8004
801#
8024
2595+«
8614
8634
8554
8534
23454
8174
698#
2677«
2676%

N = \O =000
00 &S~
00O 00

593
5924

_—d
= —A) — —

000020
000040
000100
000200
000400

1042
1233

2637

NSLSEL
AN EtaS 1))

BIT7
BIT8

000004
000010

5944

718

2598

|
B
¥ R
[T
!

100000

.Nr\)_a_a_.s_a_l__g
VIS
AW
— O

oW
e

Y
e N

OODDOOED

ey ey

—f =gt
e — —4 —

——

002000
004000
010000
020000
040000

727

25564

2 O —

000001
000002

0
1

2547+

= \OONMO
OO 00

015636

BINWRD

Pt
P
S

014300

ADRCNT= 015317
BABIT = 010000
B88BIT - 020000

5EQ 0056

723
731

—d
D A ) — —

ADDR

6094
610
22464
2508«
611a
6124
2597«
604n
603
1630
2096

= 002000

ACTBIT= 004000

08:29 PAGE 58
(ROSS REFERENCE TABLE =-- USER SYMBOLS

O W=
NN =W

CIDQH

(ZDQHE .P11

2599
969

2363

977
941+
972

948
7463+

997

749

750+

994 »

995

1045

1047

03-DEC~-80
MACY1? 30A(1052)
CZDQM
P11
03-DEC-80 08:27
CZDQ.HE

DQCROS
DQCROG
DQCRO?
DACR10
DQCR1]
DACR1?
DQCR13
DQCR14
DQCR1S
DQCR16
DQCR1?7

DQCSR
DQERR
CQNUM
DQR(SH
DQRCSR

DQREG

001424
0014630
001434
001440
001444

001450
001454
001460
001464
001470
001474
001506
001366
001504
001362
001360

€01370

910#

9124
914m

9164
918+
923
]78#
702+

8764
8754

1435
1908+

2394
8794
1138+

2036+«
2170+
2326+

8724
8714
8804

1139«
1278«
1354+
1437
1560+

1636+

1765«

1837+

DQSECH
DQSTAT

00" 374
001510

DQST00
DQS101
DOST02
DQST03
DQST04
DQASTO5
0QST106
DQSTO7

001402
001406
001412
001416
001422
001426

001432
001436

SEQ 0057

900#
902#
904
9064
9084

1292+
1472~
1624+
1768+
1902+

001352
001350
001372

PAGE 59

CROSS REFERENCE TABLE == USER SYMBOLS

8984

1211+

DQRL VL
DQRvEC
DQSEC

(08:29

2306+
2380
1210+
1642

2106
24

1366

1842+

2241

1134
1197+
1288+
1428+

1568+

1748+
1893+

2032+
2166+

2317+

1135+
1224+
1352+
1427+

1556+
1632+
1760+

1833«
1907+

1960
=

2030+
2103+
2227+

QoLN

1683

2033«
2156+
2229+
8814
1820

8894
891#

893
895#
8974
8995#
9014

903

CZDQH

MACY1' 30A(1052)

03-DEC-BC

001442
001446
001452
001456
001462
001466
001472
001476

905#
907#
9094
911m
913
9154
917%
9194

(ZDQKE P11
DASTI0
DAST11
DQST12
DQST13
DASTi6
DAST1S
DAST16
- DQST17

03-DEC~80 08:27

8774

1079«

= 177570
017556
017604

573
28654
28764

947
2893
2896

017256
017317
017352
C17400
003332

28654
28654
28654
28654
117648

2888
2891
2897
2900
1244

001312

8264

DOTCSR 001364
DATLVL
DATVEC

DSWR
CT0
DT1

| pr2

EMO
EM1
EM2
EM3
ENDTS2

ERR
ERRCNT

ERRFLG

001356
001354

017616

014266
001232

ERRMSG 016070
ERTABO 016206
EXITER 016140
GDCHAR 014302
016120
HALTS
015312
HILIM
ICOUNT 001222
017110
INBUF
INIFLG 001310
INSTER= 104404
INSTR = 104403
INSTR2 015076
JUMBIT= 040000

LIGHTS 001202

16640%
8744
8734

28814

1709«
1075
1073«

26964

MCSRX

MDATA

2678

2692+

2749+

23474

2662

2664

2750+
1549
1816+
2081

1342

1379

1909+

2553

2418
28594
966+
1140

2552#
2418

2621+

1268

1273

1310

943«

2356%

1336

1337

1517
1750«
2015

1543«
1751
2054

016476

2477

2493

2585

2691

2785

2798#

(017214

2613

2624

28634

2072

2138

1328

1397

1466

MEMCLR- 104413

853«

2006

1502+

1405

1406
1618

1611
1655

1448
1681+
1948+

14740

2779

1480
1724
2014

2362

1433

1364

2422+

1475
1687
1988

016717

2305+

1571«

2239

1158+

1544
1790
2080«

22624

1295«

2173«

2878

2537
2417+

1267+«

MCRLF

1193+

2665+

2420%

2556

2434
2384w

012370

2357+«

2883
2714+

25554

7904
651
8274
2504+
7924

MASK

1186

20«1+

2539

001220
014420
001313
015310
001224

7964

1183

1975+

1843+
1159+
1075

2377«

LOCK
LOGICA
LOKFLG
LOLIM
LPCNT

001234

1161+

2107+

957+«

94,8+

25354

2507+

1081

SEQ 0058

2894

2693
2723
2713
1234x
2707#»
2535
1105+
251
963
2530
1023
26954
730

2521

LSTERR

1777+
1076+
1074+

2675+
2689
2708
1117
2661
2505+
7914
2469
824N
8454
8434
2480
6134

939

015240

015316

1080+

23414
(403

7804

(ROSS REFERENCE TABLE == USER SYMBOLS

1204+
942«

1179«
7954

PAGE 60

2899

LIMITS

LOBITS

08:29

2875

28254

1116

1259

2204

2752

1586
1817
2120

1612«
1856
21660

1613
1882+
2147

1883
2186

2212

2213

225¢

1535

1604

1673

1742

'808

187¢

‘66,

1922

1682

1949

CIDQH

MACY1Y 3DAC1052)

03-DEC~-80

MEPASS
MERRPC

016536
(017043

2360
2687

rIDQKE P11
MERRX

MERR?

016744

016563

MERR3
MISC. =
MLOCK
MNE W
MPASSX

016632
000012
016670
016771
016733

MQM
MR

016472
016560

MPFAIL

03-DEC=B0 08:27

016500

001000

MISTPC

016656

001216

MISTN

MVE (X

2768

2513

7854

6l14m

8478
25104

015302

2529

016310

2748

001230

016316

016116
01623%

RESTRY 014430
RESOS = 104407

RETURN

001214

RUNCNT
RUNFLG

001306
001302

RXBUFF

013256

001304

RXBA.P 000000
RXBA.S= 000004

965

2766

102%

003502
RXISR
RXW(.P= 000001

Rxw(.S= 000005

RX.B((= 000015
SAVACT 001502

7944

23428
6364
S83
5814
SBS#
575#
582#
580#
584

24642

2703
2733

2379
8514

2808~

2833

2005

014270
POLY
000017
=
POLY.
POPRO = 012600
POP1SP= 005726
POP2SP- 022626
- 177776
PS
PUSHRO= 010046
PUSH1S= 005746
PUSH2S= 024646

2751

770

28194

1039«

11060

1258+

2515

2517

25264

2536

938+«

2358+«

2377

2400

672
2709

933

1008«

1119+

249"

2528

27628

2776

2786w

2382
2706

2389#

1034

1038+

1287

1303

25494
2754

1534+

1603«

1672+

1741«

1807+

1873

2390+

2423+

2424

2719+

2721

2753

1398

1425

14641

1467

271°

27064
2735«

1052«
1040

1054+
1046+

1121

1212

1217

1260

1042+

1045

1510
1809
2099

1536
1835
2115

92'#

988

1202#

6254

634n
75

2540

27864

1043+
940

1156
(yal

2538

2774

2780

8204
818#

14694
1785
2073

2719

2770

1025
2531

1465+

24723

2203+

1032

620#
6o4n

1396c

2137+

1028

B19#

1327+

2071+

732

945«

788#

SEQ 0059

CROSS REFERENCE TABLE =~= USER SYMBOLS

27994
2797
28074

1939«

015220

RUN

8578

2746
2490
1033

016725

PARERR

RESRFG
RESTAR

28154
2326
2821
28364
2829

2827#»

016432

RDSW

1059

991
62w
1015
984
2370

2366

PARAM = 104405
PARAMT
015144

PFTAB

2831a

016755

cobBIT= C01000

PASCNT

761

PAGE 6!

2804#
2B4un

2683

ouT

PART]I

2374

08:29

1050»

1563
1851
2139

1056+

1579
1875
2165

1063+

1605
1901
2181

1104

1329

1632
1617
2205

1356

1648
1941
223

1372

1674
1967
2247

1701
1983
2333

1717
2007

1743
2033

1769
2049

TIDQH
MACY1! 30A(1052)
O03-DEC-B0
(2DQHE P11
03-DEC~BO 08:27

SAVNUM
SAVPC
SAVRO
SAVR1
SAVR2
SAVRY
SAVRG
SAVRS

(01276
001276
001256
001260
001262
001264
001266
001270

747
8154
BOBA
809#
B10#
8114
B12#
B13m

SCOPE = 104400

8374
2060

SAVSP
001272
SAVOS = 104406

8144
BLON

SCOPY =
SEQ.
=
SETON
SPACNT=
STACK =

104401
000014
002752
015635
001200

8394
6334
11204
2596
S764

Sv05S

015326

25644

000176

2432
69504

STFLG

SWR

001311

01200

SWREG

825#
7794

SWREGC
Sw00
=
SwC1
=
Sw02
=
Sw03
=
SwOé
SwO5
=
Sw06
SwQ8
=
Sw09
=
Swi0
SW11
=

016440
000001
000002
000004
000010
000020
000040
000100
000400
001000
002000
004000

2778
S56#
5554
5544
5534
5524
5514
5504
5494
5484
5478
5664

sw13
=
Swi4
=
Sw15
=
>YNBIT=

020000
040000
100000
100000
013052

5444
5434
5424
6154
1511
1947

Sw12

SYNC

SYNC.

SYNCT

= 010000

= 000011

012372

5654

6304

1276+

1888+

08:29
PAGE 62
(ROSS REFERENCE

81o#
2560+
2569+
2568+
2567+
2566+
2565+
2564«

93¢~
2725
2574
2575
2576
2577
2578
2579

2869
2867

1176
2126

1316
2192

1385
2258

2617
G34
937+

2620
1009

26364
2720

2666

947

2444
956

2788#
981
1021

2715
2432
2717
2415

2444

2655

712

1109

2660

1114+«
2013

1125
2079

1345+«

1474+

1890+«

SYNCZ2

012374

2154+
1277«

TEMP
TEMP1

017152
001244

2592
669+

2600

1307+
1378
1675+
1549«

1308+«
1404
1479+
1551«

TEMPZ2

001246

1705

8044

1621
1692

952

2655
967

1905

2378+

|
TABLE == USER SYMBOLS
2380+

2873
2871

956+

1454

1523

994

1013

1021

2408

24615

1266
2145

1335
22N

1404
23304

1473

1542

1680

1749

1815

1881

1552«

1621+

1690

1756+

1758+

1773

1822+

1824+

1836

1971

2020+

2022+

2037

2086+

2088+

2103

2152+

2023+

2089+

1691+

979+

2852

1341«
1413«
1484
1583«

1342+
1414
1485
1584+

1956+

2742+

2743«

286N

974+

975

16.3
1722«

1994

988

803#

1622
1721«

19:8

2767

2627+

1309
1406
1480+
1552

1862

2717

1483+«

970

22634
1429

1162

1796

2715
2790

1954«

967

2235
1615+

975+

1730

2707
2783

2220+
1360

670+

1661

2660
2767

2218+
1346
1825+«

1592

274"

2169
1291

1759«

SEQ 0060

1891+«

1171+

1335«
1470«
1482+
1553

1652«
1723

1957+

1203«

1337«
1411x
1483
1554

1653«
1749«

1266+

1654
1751«

981

1484

1268+

1680*
1753«

2155«

1498

2221«

2264#

1567

1622«

1636

1272«

1273«

1275«

1276

1277

1344+
16415
1514+
1585
1682+
1758

1553«

1345
1616
1515«
1611»

1686+
1759

1346
1465
1516
1613«

1687+
‘760

13247
1446
1542
1617+
1689+
1815«

1376
1447
1544
1618+
1690
1817«

1278

1377+
1473
1548
1620+
1691
1819s

(ZDQH

MACYiI1

(ZDQKE P11

30A(1052)

03-DEC-80

03-DEC~BO 08:27

1824

1825

1957

TEMPY

001250

08:29

PAGE 63

CROSS REFERENCE

1826

1881+

2015

J
TABLE

1883+

gg?g

1958

2145«

2013~

2017+«

2147+

2149«

2154

B0OSA#

2592«

2627

001252
001254
001204

8064
8074
7814

1163+

1241«

241

2471

2473

2481

2771

TLAST = 012040
TPCSR
001210

1027
7834

2350#
2448

2451

2454

2482

TEMPS
TEMPS
TKCSP

TkDBR

001206

TPDBR
TRPOK

001212
015652

TSINO

001226

ST
TST10
IST11
TSTY2

002254
006154
006522
007070

IST14
TST1S
TST16
IST17
TST2

7624

784k
2646

7934

1164+

2413

2450

944«

1872«
1026
1534
603
1672

1938«
1032
16024
1671#
17404

007750
010300
010630
011160
002644

1807
1873
1939
2005
1038

18724
1938#
20044
2C70#
1039

TST22 = weewnw

2203

TST4
7STS
1ST6

1258
1327
1396

13264
13954
14644

1016+~

1017»
1187
1371

T1ST13

C07420

TST120
T1ST21

011510
012040

TST3

003756

TST17

005606

006324
004672
005240

TTST

TXBA.P=

014504

000002

TXBA.S= 000006
TXBF A
TXBUFF

TXISR

013054
012376

TXWC.P=
TXWC.S=
TX.8CC=
TX.MUX=
TYPDAT

TYPE

TYPMSG

VECMAP
WRDCNT
WwRKO.F
XBX
XCSR
XERR
XHEAD

003334

000003
000007
000016
000013
(016104

= 104402
01602¢

000056
015632
016072
015720
014444
014466
017050

17461

2071
2137
1106

1465

622N

6264

1146
1302

1169+

2453

1037«

2004+
10374

1019»

1020~

24094

1216
1440

23314
1509

1578

21364
22024

1892

1947+

1949+

1951«

1956

2079+«

2081«

2083«

2088

2089

2211+

2213«

2215+«

2220

2221

2222

2657

2659+

2202

1326+

2728

1395«

2756

1464+

1533+

1602+

1671»

1740«

1806+

1647

1716

1784

1850

1916

1982

2048

2114

1058

2359

2361

2365

2369

1257#

15334

2679

26824

2376
973

2156

189"

2024

2350

2702#
965

6624
2594
2694
2656
2364

2155

1890

2023

SEQ 0061

11034

2699
8414

2373
2775

17257+«

1885+

2022

SYMBOLS

18064

760

623
6274
6354
6324
2081

1103«

2481+

2136+
2391

22654

1158

2456

2070«
2390

2246

2180

2769

==~ USER

11794

2467
2777

759
2625+
26974
2658
23924
24014
28454

2477
2785

2634n
26604

973

2489

983

2493

999

2584

1015

2623

1033

2682

2686

2690

2695

2700

2745

014460
014272

XSYNC2
XTSTN
X T XBUF
XVE(C

$CNTG
$E
SMNEW
$MSWR
N

014064
017076

013656
013660
016214
013662
014452
016446

000023
016461
016452
000021

000016
017670

2372
2343
1129
978
1112~

LINST1

MEMCL
-MSG
MSTCL
.PARAM
PFAIL

.RESOS
.SAVO5
.SCOPE

.SCOP1

.START
. SYNC
. TRPSR
.TRPTA
.TYPE

002116

016320
016374
015416
015412
014306
017624
015672
015052
315056

014734
014754
012706
014756
013032
015104

016222
015360
015320
014474
014606
001512
013050
015640
001314
014626

1115«

23354

23954
27914

1531

1940#
14

8594
6404
726

8944
9074
9204
23024
.BEGIN
.CKSWR
.CNTLU
.CNVRT
. CONVR
.EOP
.ERRTA
CHLT
. INSTE
.INSTG
.INSTR

1226

2368
2775

1534
19404
2779
2777

SEQ 0067

CROSS REFERENCE TABLE -- USER SYMBOLS

1221

28504

27264

1»

2398#

23364
2685
1133

PAGE 64

23394

1151

1165

1225

23374

1039
15354
2005
2794k

10404

1106
16044

2071

11074
1672

2072#

1035
15354

10404
1600
20064

1101

11074

1255

837
8634
6434

2068
8394
8654
6504

<0724
8414

909#
9224

8974
9104
9234

898#

27924

2002
8284
861#

641
729
895#
908#
9214

23324
28654

1603
20064

764
8964

1604#

7694

1669

6524

7764

9114

23384

Q24LM
23404

2771

2772+

2773

27324

2740

23344

27654

27764
25864
25844
23564
28844
26544
24874
24894
24634

2478
23034

24684
23254
2501#
935
2574H
2560#
24074

24314
933
2329
26434
2648
24394

2494

945

—= O

XPASS
XPOLY
YRXBUF
XSTATQ
XSYNC

03-DEC-80 08:27

08:29

NNV

MACY11

03-DEC-80

n)
— —

(ZDQMH

(ZDQHE .P11

30A(1052)

16734
2134
8434

12594
1741

1327
17424

1396
1808#

13974
1873

1465
18744

14664

1393

13974

23504
8514

1462
18744

164664
1936

8534

8554

857#

21384

2203

22044

12594
1738

1324
17424

13284
1804
220644
8494

21384
8454

2200
8474

6604
8174
8994
9124

676
8874

6884
888#

2449

2452

971

13284
1807

9004
9134
976

9014
9144
980

2735

6944
8894
9024
9154
993
2744

1808#

6974
890#
9034

9164
1061

27964

1870

701
891#
9044
9174
1141
28494

717

8924
9054

9184
1180

28604

1939

722

893«
9194
1205

28624

03-DEC~80
MACY11 30A(1052)
03-DEC-80 08:27

TESTDT
TESTES
TESTF
TESTH
TESTHZ

1%
14
14
1%
1w

$BEGIN

$EOP

$GETFL

$GETPA
$HEADE
SHLT
$INSTR
$INTNP
SMAINT
$MSG
$PARAM
$PFAIL
$REG
$SCOPE

$£SCOP1

14
iF 4
14
14
10904
2194
14
4
N
8
14
4
14
IX4
14
14
I¥ 4
14
14

853

1531

1600

1669

847

1324

1393

1462

841

1101

1255

_—

845

839

- Q0

851

843

1456

—

849

1663

1387

1864

1594

1318

2255

O &

1798

1525

1236
1783

1520

1577

2047

2057

1930

1996

2062

2128

855

857

859

861

863

1738

1804

1870

1936

2002

1035

1005

$TYPE
$VARIA

14
14
14
14
14
14
»
1
2068
4
4

. ABS.

017670

$SETFL
$SETVE
$START
$SYMBO
$TRAPS
$TRPDE
$TRPSR
$TSTN

1732

1370
1859

1206
1727
2245

TESTCT

SBUFFE
$CATCH
$CLRVE
$CONVR
$DQCHR

—

TESTB1

1»
1%
14

2179

NOW

2123
1

1439
1925

13
49

1181
1715
2189

00 \N

1646

522

1173
1658

—_——

IDENT
ORANGE
TESTA1

5864

2349
W —

HLY

1
»

—_

DQEND
DQFRNT

~NW

CZDQH

C2DQHE.P11

08:29 PAGE 66
CROSS REFERENCE TABLE == MACRO NAMES

ERRORS DETECTED:

2200

CZDOHE .BIN,CZDQHE .LST/CRF/SOL/NL : TOC=C2DAXX.MA(, CZDQHE P11

RUN=-TIME:

19 28 2 SECONDS

CZDQH

MACY11 30A(1052)

- (IDQHE.P11

O03~DEC-B0

03-DEC~-80 08:27

RUN-TIME RATIO: 78/50=1.%
(37 PAGES)
19k
(CRE USED:

08:29

PAGE 67

(ROSS REFERENCE TABLE == MACRO NAMES

SEQ 0064