Digital PDFs

AH-8637E-MC

August 1981

65 pages

Original

34MB

view download

OCR Version

48MB

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

OCR Text

CHAR L &
CZDQHEO

INTR

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

v'°

TOAC1052)

DR
| -DE

03-DEC-B0

(=80O08 OR-

08:29

PAGE 2

SEQ 0007

(DINTIFICATION

PRODUCT CODE:

AC=8635E-M(

PRODUCT NAME:

CZDQHEO CHAR L & INTR

DATE :

NOV 1980

DIAGNOSTIC GROUP

MAINTAINER:

THE 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 IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
" SOF TWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED COMPANIES.

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

O03-DEC-B0

wa *11 30A(1052)
"

(3-DEC-B0 08:27

08:29

PAGE 3

ABSTRACT

THE FUNCTION OF THE DQ11 DIAGNOSTICS ARE TO
JERIFY THAT THE OPTION OPERATES ACCORDING
YO SPECIFICATIONS.

CURRENTLY THERE ARE SEVEN OFF LINE DIAGNOSTICS THAT ARE

TC BE RUN IN SEQUENCE TO INSURE THAT IF AN
ERROR SHOULD OCCUR IT WILL BE DETECTED
AT AN EARLY STAGE AND INSURING THAT
DIAGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM

NOTE:

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE SEVEN DIAGNOSIJCS ARE:

1. (2DQA [REV]
2. D08 [REV]
5. (ZDQC [REV]

BASIS R/W TEST #1
BASIC R/W TEST #2
BASIC NPR AND INTERUPT TEST

5. CZDQE [REV]

MISC. RX AND TX TESTS. PLUS BCC TESTS.

7. CIDOH [REV]

(HARACTER LENGTH AND INTERRUPT TESTS.

&, (2D0GD [REV]

6. (ZDQF [REV]

RECEIVER TRANSMITTER EXERCISER TEST

C(HARACTER DETECT TESTS.

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

1. (200G [REV]

REGUIREMENTS

DQ11 TRIAL PROGRAM (PARAMETER INPUT)

EQUIPMENT

ANY PDP11 FAMILY CPU (WITH MINIMUM 4K MEMORY)=WITH

OR WITHOUT A HARDWARE SWITCH REGISTER (LOC. 177570)

33?133 (OR EQUILIVALENT)

SYNC MODEM (ONLY REQUIRED FOR ONLINE TEST)
STORAGE
PROGRAM WILL

LOAD AND RUN

IN 4K CF MEMORY.

{ OCATION 1400 THRU 1600 ARE ESPECIALLY TO
8E NOTED AND TO BE UNTOUCHED BY OPERATOR
AFTER DQ11

TRIAL PROGRAM HAS BEEN EXECUTED.

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

LOADING PROCEEDURE
ME THOD

ALl PROGRAMS ARE IN ABSOLUTE FORMAT AND

SEQ 0002

03-DEC-B0
MACYT] 30A(1052)
JUAW
03-DEC-B0 08:27
JDGmE P

08:¢2

PAGE 4

SEQ 0003

ARE LOADED USING THE ABSOLU'E LOADER.

MEMORY
SIZE

4K
8K

17
37

12K
16K

20k

24K

28k

57
77
11
13
15

+500

NNN

ABSCLUTE LCADER STARTING ADDRESS

5.1.1

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

5.1.2

THEN START

STARTING PROCEEDURE
A. LOAD LOC. 200

B. SET SWR 10 ZERQ FOR “‘AUTO SIZING'' OR LEAVE
LEAVE SWR BIT 7=1 TO USE EXISTING PARAMETERS SET UP
BY D11 TRIAL PROGRAM OR A PREVIOUSLY RUN D@11 DIAGNOSTIC
THAT USED THE '‘AUTO SIZING''.

+«++«REFER TO SECTION 4.1 FOR SOF TWARE SWITCH REGISTER OPERATION
AND OPTIONS.*#w#

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

THE PROGRAM WILL TYPE MAINDEC NAME AND PROGRAM NAME

IF THIS WAS THE FIRST START UP OF THE PROGRAM) AND ALSO

THE

FOLLOWING:

"MAP OF DQ11 STATUS"
1400
1402
1404
1406

THE ABCVE

160010
152200
160020
150310

IS ONLY AN EXAMPLE!

THIS WOULD INDICATE THE STATUS TABLE STARTING AT ADD.
1400 IN THE PROGRAM. THE STATUS TABLE MUST BE VERIFIED BY THE

USER IF AUTO SIZING IS DONE.

FOR INFORMATION OF STATUS

TABLE SEE SECTION 8.4 FOR HELP.

sses]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)*=*»
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.

J0QW

MACYTY 30A(1052>

200+t P11

03-DEC-80

C3-DEC=B0 08:27

08:29

PAGE 5

SEQ 0004

{HE PROGRAM WILL “TYPE 'R’

AND PROCEED TO RUN THE DIAGNOSTIC
.

(ONTROL SWITCH SETTINGS

If THE [ _NOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOF TWARE SWITCH REGISTER 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 IT CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWIT(H
REGISTER (LOC.

176)

IS USED.

:
(ONTROL

THIS PROGRAM ALSQ SUPPORTS THE DYNAMIC LOADING OF THE SOF TWARE SWITCH

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
OF THE SOF 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 <(R>.
(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

B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU
BACK TO STEP 2.

Sw 15

SET: HALT ON ERROR

Sw 14
SwWw 13
Sw 12
Sw 11
Sw 10
Sw 09
Sw 08

SET:
SET:
SET:
SET:
SET:
SET:
SET:

Sw 06
Sw 05
Sw Q4

SET:
SET:
SET:
SET:

Sw 07

Sw 03
Sw 02

Sw 01

5w 00

LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUuT
INHIBIT TYPE OUT/BELL ON ERROR.
INHIBIT ITERATIONS
ESCAPE TO NEXT TEST
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT

SET: USE PREVIOUS STATUS TABLE. CLR=DO AUTO SIZE.
o
'

SET: LOCK ON SELECTED TEST

SET: RESTART PROGRAM AT SEL!

TED TESIT

SET: RESELECT DQ11°'S DESIRED A(TIVE.

vMa v |

e
-

“e

30A(1052)

03=-DEC-B0

(3=DEC=B0 08:27

08:29

PAGE 6

SEQ 0005

SWiTCH REGISTER RESTRICTIONS

RESELECT DQ11'S DESIRED ACTIVE.

w 00

PLEASE NOTE THAT A MESSAGE IS TYPED

OUT 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 "DOQACTV''. USING THIS
SWITCH ALTERS THAT LOCATION; THEREFORE
IF FOUR DQ11S ARE IN THE SYSTEM
#+«D0 NOT+*+ 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
(el
o

ABOUT IN TRIAL PROGRAM.
LOAD ADDRESS 200

START WITH SW 00=1

PROGRAM WILL TYPE MESSAGE

CONTINUE THE BINARY_ NUMBER OF DQ11S DESIRED ACTIVE
EXAMPLE: 1=1 DQ11; 3=2 DQ11; 7=3 DQ11; 17=4 DQ11 37=5 DQ11 ETC.

NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05, 11/04, 11/34)

ME THOD:

CONTINUE WITH ANY OTHER SWITCH SETTINGS DESIRED.

IT IS STRONGLY SUGGESTED THAT

Sw 01

AT LEAST ONE PASS HAS BEEN MADE

BEFORE TRYING TO SELECT A TEST

THAT IS NOT IN THE ORDER OF SEQUENCE

THE REASON BEING 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.
LOOP ON CURRENT DATA:

‘W 0%

THIS SWITCH WILL ONLY WORK

CALL ‘'SCOP1'" IS IN THA

TEST.

THE REASON BEING THAT muST TESTS

DEAL WITH BLOCKS OF DIFFERENT DATA
TO BE

SENT OR RECEIVED ALL AT ONCE

THUS IN BLOCK DATA: ONE PATTERN CANN'T BE SINGLED OUT.

weop

SwITCH REGISTER PRIORITYS
ERROR SWITCHES

Y,
Ce
2.,
e

Sw 12
Sw 13
SW 15
Sw 08

Sw 10

DELETE PRINT OUT/BELL ON ERROR.
DELETE ERROR PRINTOUT.
HALT ON THE ERROR.
GOTO BEGINNING OF THE TEST.
GOTO NEXT TEST ON ERROR.

eesstiiT (FRROR) ROUTINE SUPPORTS <*G> OPERATION*®*»
COPE

SWITCHES

WACY1

B
-R

304(1052)

03-DEC-BC

03-peC=-80 08:27

08:29

PAGE 7

Sw 09 (IF FNABLED BY ''SCOP1'"

Sw 14
Sw 11

i.
n

eessSCOPE ROUTINE WILL SUPPORT <*G> OPERATION##w+
STARTING ADDRESS

STARTING ADDRESS 1S AT 000200

*HERE ARE NO OTHER STARTING ADDRESSES

#0R THE DQ11 DIAGNOSTICS PREVIOUSLY MENTIONED
NOTE :

IF ADDRESS 000042 IS NON-ZERO

THE PROGRAM ASSUMES IT IS UNDER

ACT11°0OR DDP CONTROL AND WJLL ACT ACCORDINGLY
AFTER *ALL* AVAILABLE DQ11°'S ARE TESTED
THE PROGRAM WILL RETURN TO ‘DDP2'' OR "‘ACT=11"".
OPERATING PROCEDURE

WwHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION
FOUR WliL BE PRINTED.

AND PROGRAM WILL BEGIN RUNNING THE
DIAGNOSTIC

PROGRAM AND/OR OPERATOR ACTION
THE

TYP]CAL APPROA(CH SHOULD BE

1.
S

3.
“.

HALT ON ERROR (VIA SW 15=1)

WHEN EVER AN ERROR OCCURS

CLEAR SwW 15

SET SW 14: (LOOP ON THIS TEST)
SET Sw 13: (INHIBIT ERROR PRINT OUT)

THE TEST NUMBER AND PC WILL BE TYPED OUT AND

POSSIBILY AN ERROR MESSAGE (THIS DEPENDS ON THE TEST)
T0O GIVE THE OPERATOR AN IDEA AS TO THE SOURCE OF THE
PROBLEM. IF IT IS NECESSARY TO KNOW MORE INFORMATION

CONCERNING THE ERROR REPORT; LOOK IN THE LISTING

FOR THAT TEST NUMBER WHICH WAS TYPED OUT
AND THEN NOTE THE PC OF THE ERROR REPORT
THIS WAY THE EXACT FUNCTIONING CF THE TEST
(AN BE INTERPEDITED

FRRORS

AS DESCRIBED PREVIOUSLY THERE WILL ALWAY BE

A TEST NUMBER AND PC TYPED OUT AT THE TIME OF AN

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

SEQ 0006

03-DEC-BO

03-DEC=-B0 08:27

08:29

PAGE 8

SEQ 0007

1¥ FOR SOME REASON THE DQ11 SHOULD
"HANG THE BUS'' (GAIN CONTROL OF BUS SO THAT:
CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT
OR POWER DOWN/UP IS NECESSARY FOR OPERATCR
TO REGAIN CONTROL OF CPU.

[F THIS SHOULD HAPPEN; LOOK IN LOCATION
“'TSTNO'' (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT
:;gOSUNNING AT THE TIME OF THE CATASTROPHIC

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS T0

WHAT THE DQ11 WAS DOING AT THE TIME OF THE ERROR.
sve2HALT RECOVERY WHEN USING SOF TWARE SWITCH REGISTER***+

If THE SOFTWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT
THE THE OPERATOR IS REQUIRED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE.
THE FOLLOWING WILL BE

SWR=XXXXXX

NEW=

TYPED:

(REFER TO SECTION 4.1 FOR OPERATOR OPTION)

RESTRICTIONS

STARTING RESTRICTIONS

SEE SECTION &.

(PLEASE)

OPERATING RESTRICTIONS

DG11 TRIAL PROGRAM MUST BE RUN PRIOR TO THE

FIRST AND ONLY THE FIRST RUNNING OF ANY DQ11 DIAGNOSTIC

NOTE :

IF NO PROGRAM OTHER THAN

D@11 DIAGNOSTIC WAS LOADED AFTER DQ11 TRIAL OR
If CORE MEMORY HAS NOT BEEN CHANGED;OR IF THERE
1S NO DQ11 CONFIGURATION CHANGES; THE
D@11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN.
HOWEVER IF ANY OF THE ABOVE HAVE BEEN VIOLATED

THE DQ11 TRIAL PROGRAM MUST BE RUN AGAIN
BEFORE RUNNING THE DIAGNOSTICS
NOTE: AN ALTERNATIVE TO.THE ABOVE IS ATTEMPTING

THE '"AUTO SIZING'' WHEN PROGRAM IS INITIALLY STARTED

w!TH SW07=0.

MISCELLANEOUS

EXECUTION TIME
o

IDA(1052)

PASS

COMPLETE

WwHEN THE DIAGNOSTIC 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 VEC ARE .
NOT NECESSARILY THE VALUES FOR THE DEVICE

WAY1T

30A(1052)

(3=DEC=B0 O

O3-DEC-BO

08:29

PAGE

SEQ 0008

THEY ARE ONLY FOR THIS EXAMPLE.
8.5

(MINI MONITOR)

THE VERY FIRST "TEST'' (TSTD)

[S *NOT+ A TEST OF THE DQ11 HARDWARE
IT IS A MINI-MONITOR USED TO CYCLE DQ11

SYSTEM THROUGH THE DIAGNOSTIC.

REMEMBER:

IS NOT A TEST OF DQ11

HARDWARE!!!!!!!

xEy LOCATIONS
RETURN

(1214)

CONTAINS THE ADDRESS WHERE PROGRAM WILL

RETURN WHEN ITERATION COUNT

(1216)

TSINO

(1226)

RUN

(1304)

IS 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
BEING PEFORMED.
THE BIT IN "RUN'' ALWAYS POINTS ONE
PAST

THE

DQ11

CURRENTLY BEING

TESTED.

:
EXAMPLE
(RUN) 130470000000001000000
MEANS THAT DQ11 NO.OS IS THE DQ11

NOW

RUNNING.

DGCROO-DQCR17
DQST0U=DQST17
(1400)=(1476)

THESE

LOCATIONS

CONTAIN THE

INFORMATION

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

OF EACH DQ11.

DQACTY (1500)

EACH BIT SET
THAT

THE

IN THIS LOCATION INDICATES

ASSOCIATED DQ11

WILL RE

IN TURN.
:
EXAMPLE
(DQACTV) 1500/0000000000011111

MEANS THAT DQ11
WILL BE TESTED.

EXAMPLE
:
(DQACTV)

DQSTAT

(1510)
— = —

O omm®

BIT

00,01,02.,03,04

NO.

00,04

CONTAINS THE RECEIVER CSR OF

CURRENT DQ11 UNDER TEST.

VO —=owHwv

(1506)

NO.

TESTED

1500/0000000000010001

MEANS THAT DQ11
wILL BE TESTED.

Lan T

DQCSR

e
e
e
e

TST1

IN THE

THE

CONTAINS THE STATUS OF THE CURRENT
DQ11 UNDER TEST.
SET:
TWO SYNC CHARS/ONE SYNC CHAR
SET:
TEST JUMPER INSTALLED/NOT INSTALLED
SET:
BB 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 VRC/EVEN VRC

SYNC
.

IDAM
bdale

MACYTT
11

‘c”s-b‘ '

30A(1052)

03-DEC-B0

03-DEC-B0 08:27

08:29

81T 00-08

PAGE 10

VECTOR "A"" OF DEVICE

s+« METHOD OF AUTO SIZING %=+
FINDING THE CONTROL STATUS REGISTER.

WHEN LOOKING FOR THE CSR IT IS NECESSARY TO TAKE CARE

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

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE.

AN ATTEMPT TO CLEAR THE MISC. 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)
1S SET AND A *COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE
AT THE MISC. REGISTER. IF THEY ARE THERE THIS IS
A DQ11. THE INFORMATION IS STORED AWAY.

ONE SYNC BIT OR TwWO?

SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE THE

PRESENTS COF 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.
"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 88 OPTION
&

IS ASSUMED TO EXIST.

“

"'AB'* OPTION INSTALLED?

TO SENSE FOR THE '‘AB'' OPTION THE PROGRAM SELECTS THE
POLYNOMIAL REGISTER AND WRITES ALL 1°'S INTO IT; IF ANY

CY%IEES?S$U'BINATIW OF BITS ARE SET THE AB OPTION IS ASSUMED
"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.6

JUMPER ON END OF CABLE? ***NOTE:(CZDQE ONLY***

THE PROGRAM (CHECKS TO SEE IF EITHER OR BOTH CLEAR TO

SEND

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-SYN(C?

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

SEQ 0009

J0aW

MACY1Y 30A(1052)

IDQHE P11

8.5.8

03-DEC-80

03-DEC-B0 08:27

08:29

PAGE 11

SET FOR ODD OR EVEN PARITY?

AS ABOVE TOO MUCH HARDWARE IS NEED TO SENSE WHICH PARITY
WAS SELECTED.SQ THE PROGRAM ASSEMES ODD PARITY.

NOTE: THIS CAN BE CHANGED BY ALTERING BIT 9 IN APPRIOATE DQSTXX: LOCATION. AFTER AUTO SIZING

5.9

FINDING THE VECTOR.

THE PROGRAM SETS 'PRIMARY DONE'',''SECONDAY DONE'‘, AND ''INTERUPT ENABLE'

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

OF THE DIAGNOSTICS AND *AUTO SIZING* SHOULD BE REDONE TO
GET THE CORRECT VECTOR.

PROGRAM DESCRIPTION

CONTAINED WITHIN LISTING
L ISTING
FOLLOWING

SEQ 0010

JRun &N

ol ol o XV ]
NN
=2 OO

4 333

NN NN

548

549
550
551
55¢

553

555

556

§57

SEQ 0611

:CZDQHEQ/<377>/(HAR L & INTR

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

B)gUPPOZTS THE DYNAMIC LOADING OF THE SOF TWARE SWITCH REGISTER
Y <*G>.
;STARTING PROCEDURE
;LOAD PROGRAM

;LOAD ADDRESS 000200
;PRESS START
:PROGRAM WILL TYPE ‘‘CZDQHE0/<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

N NN N N NEO OTM

LA VWIWAWAN
NN NN NSV aunvum

Lg¥ 1a¥ LYY

k1Y
12
PAGE
vi?
08:29
B0
03-DEC[
MA
30A4(1052)
"~ DA
INTRODUCTION TO DQ11 DIAGNOSCTIC
03-DE(-80 08:27
2DGME P11

-3

:SWITCH REGISTER OPTIONS
:=1,HALT ON ERROR
:=1,LO0P ON CURRENT TEST
:=1,INHIBIT ERROR TYPEOUT
:=1,DELETE TYPEOUT/BELL ON ERROR.
:=1,INHIBIT ITERATIONS
,:=1,ESCAPE TO NEXT TEST ON ERROR
:=1,.00P WITH CURRENT DATA

SW15=100000
SW14=40000
Sw13=20000
SW12=10000
SW11=4000
SwW10=2000
SW09=1000

:=1,L00P ON ERROR

SW08=400

SW06=100

SW05=40
Sw04=20
Sw03=10

SW02=4

SwW01=2
SW00=1

:LOCK ON TEST SELECT

:RESTART PROGRAM AT SELECTED TEST
:RESELECT DQ11 DESIRED ACTIVE

;NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT

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

“20QM

TIDQHE .P1Y
558
$59
560
5¢1

562
563
564
565
566
567
568
569
570
571
572

573

574
575
576
577
578
579
580
581
582
583

584
585
586
587
588
589
590

591
592
593

594
595
596
597
598

1
1

W
= O

599
600
601
607
603
604
60%
606
607
608
609

08:29 PAGE 13
GENERAL DEF INATIONS AND EQUIVALENCIES

JREGISTER DEF INITIONS

000000
000001

000002

0CQ003
000004
000005

00006

000007

.«

RO=X0
R1=%1
R2=%2
R3=X3
R&4=%4
R5=X5

;GENERAL
;GENERAL
;GENERAL
;GENERAL
;GENERAL
sGENERAL

PC=%7

;PROGRAM COUNTER

sPROCESSOR STACK POINTER

SP=%6

;LOCATION EQUIVALENCIES
177570
177570

177570
DSWR=
DLIGHTS=177570

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

001200

STACK=1200

;START OF PROCESSOR STACK

177776

PS=177776

sPROCESSOR STATUS WORD

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

100000

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

PUSH1SP=5746
POP1SP=5726

;DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD

POPR0O=12600

;RESTORE RO FROM STACK

PUSHRO=10046

PUSH2SP=24646
POP2SP=22626

L.EQUIV

;SAVE RO ON STACK

;DECREMENT STACK TWICE
s INCREMENT STACK TWICE

EMT,HLT ;BASIC DEFINITION OF ERROR CALL

BIT15=1 00000
BIT14=40000
B1713=20000
BIT12=10000
BIT11=4000
BI1T710=2000
BI179=1000
BIT8=400
BIT77=200
BIT6=100
BIT5=40
BIT4=20
BIT3=10
BIT2=4
BIT1=2
BITO0=1

;DQ11 OPTIONAL DEFINITIONS
002000
000

010000
020000
040000

ABB1T=2000
ACTBIT=4000
BABIT=10000

BBBIT=20000

JUMBIT=40000

SEQ 0012

CIDQW
MACY11 30A(1052)
03;DEC-80
"IDANE P
C3-DEC=-B0 08:2
64
615

3L
617
b:g
6

;DQ11 SECONDARY REGISTER DEF INATIONS

;RECEIVER BUS ADDRESS PRIMARY.
;RECEIVER WORD COUNT PRIMARY.
: TRANSMITTER BUS ADDRESS PRIMARY.

626
625
!6)5§

000004
000005
000006

RXBA.S=4
RXWC.S=5
1XBA.S=6

sRECEIVER BUS ADDRESS SECONDARY.
sJRECEIVER WORD COUNT SECONDARY.
; TRANSMITTER BUS ADDRESS SECONDARY.

CHARDT=10
SYNC.=11
MISC.=12
TX.MUX=13
SEQ.=14
RX.BCC=15
TX.B(C=16
POLY.=17

s CHARACTER DETECT REGISTER.
sSYNC REGISTER.
sMISCELLANEOUS REGISTER.
s TRANSMITTER MUX REGISTER.
; SEQUENCE REGISTER.
sRECEIVER BCC REGISTER.
s TRANSMITTER BCC REGISTER.
;POLYNOMIAL REGISTER.

Rty

s“ u’ >

oDDBIT=1000
SYNBIT=100000

RXBA.P=0
RXWC.P=1
TXBA.P=2

629
630
631
632
¢33
34
635

08:29 PAGE 14
GENERAL DEF INATIONS AND EQUIVALENCIES

0000
000001
00000

b?é

—————————

620
62!
622
623

001000
100000

00000

000007

000010
000011
000012
000013
000014
000015
000016
000017

TXWC.P=3

TXWC.S=7

; TRANSMITTER BUS ADDRESS PRIMARY.

s TRANSMITTER WORD COUNT SECONDARY.

SEQ 0013

MACY11 30A(1052) 03-DEC-80
CZDQM
.P11
03-DEC-80 08:27
CZDQKE

PAGE 15

08:29

TRAPCATCHER FOR UNEXPECTED INTERUPTS
;TRAPCATCAER FOR ILLEGAL INTERRUPTS

000000

;STANDARD INTERRUPT VECTORS

PFAIL
340
CHLT
340

“TRPSRV
340

:POWER FAIL HANDLER
“SERVICE AT LEVEL 7
"ERROR MANDLER
“SERVICE AT LEVEL 7

'-52

LOGI CAL

:ACT HOOKS

]

.WORD 0

"GENERAL HANDLER DISPATCH SERVICE
“SERVICE AT LEVEL 7

THIS ROUTINE TRIES TO FORCE TH" RECEIVER TO INTERUPT
TO ITS VECTOR WHERE IT WILL PICK UP THE STATUS LOCATION

:FOR ITS NEW PC; AND PICK UP AN 10T INSTRUCTION FOR ITS
:NEW PS. WHEN THE NEW PC IS FETCHED AN IOT INSTRUCTION IS
;EXECUTED, TRAPPING TO LOCATION 20 WHERE A ROUTINE IS EXECUTED
Tg6TAKE THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS

000056
000056

000056

000072
000074
000102
000110
000114
000116
000122

000124
000132
000134
000142
000144
000146
000150
000154
000156
000162
000164

000174
000176

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

105200

001376
112712

005722
000761
051612
042712
022626
012716
000002
000207

000174
000000
000000

VECMAP:

18:

000004
001000
000146
001500
001244

000020
001244

2%:

177776

000340
000300

000007

177776

MOV
MOV
CMP
CMP
BLOS
MOV
MOV

R1,(RO)+
#4,(R1)+
(RO)+,(R1)+
R1,#1000
1%
#4$,an20
DQACTV,TEMP1

:START FILLING THE VECTOR AREA
JWITH . +42; 10T (4)
:UPDATE THE POINTERS
:1S ALL FLOATING VECTOR AREA DONE
:BR IF NOT ALL DONE
:SET FOR IOT TRAP BY DO11
:GET THE ACTIVE DQ11 S

CLR
TST

PS
(R2)+

;CLEAR PS
:PUT POINTER TO STATUS TABLE

ROR
BCC

MOV

#340,9-2(R2)

MOVR

#300, (R2)

INCB
BNE

3%:

4%:

000142

5%:

157
BR
BIS
BIC
CMP
MOV
RTI

RTS

:ARE YOU ACTIVE.. DQ11
:1F CARRY CLEAR.. NO MORE DQ11S

:TRY AND SET PRI/SEC DONE AND IE

RO
=2

SDELMY . o643 5in
Enabdsands ELAY

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

:UPDATE POINTERS
;GO DO IT AGAIN
*ENTERD BY IOT TRAP BY DQ11
:CLEAR UNWANTED BITS
:POP I0OT JUNK OFF STACK
:SET RETURN PC ON STACK

:ALL SIZING IS DONE

:NO INTERUPT ASSUME 300 FIX IN TEST C

;GO HOME.

:';;ZSOFTHARE SWITCH REGISTER*#x«

DISPREG:
SWREG:
;PROGRAM START

000200

TEMP1
5%

.=200

0
0

:SOFTWARE DISPLAY REGISTER
:SOF TWARE SWITCH REGISTER

SEQ 0014

|
|

z
'

MACY11 30A(1052) 03-DEC-80
CZDQM
03-DEC-8 0 08:27
CZDQHE .P11
695

696
697
698
699

000200

000137
000220

700
701
702
703

08:29

JMP

.=220

CSRMAP:

.START
#1400,R2

(R2)+

001512

01212.R2

001504
001400
160000
000614
000012
000006

DQNUM
#1400,R2
#150000,R1
#5844
#12,5(R1)
6(R1)

010000

030000

000004
000005

#10000, (R1)
#30000,6(R1)
2%
R1,(R2)+
#SYNBIT, (R2)
(R1)

000006

100000

000010
177777
000006

020000
000006
002000
001400
001400

010000
030000

#10,5(R1)
#-1,6(R1)

000005
000006

6(R1)

000005
000006

000002
000002

#ABBIT, (R2)
#1400,2(R1)
#1400,2(R1)
. +6

000002

#30000,2(R1)

#BABIT, (R2)

#JUMBIT, (R2)
#ACTBIT, (R2)
#0DDBIT, (R2)
+
(R2)

040000
004000
001000

(R1)

2(R1)
2(R1)
4(R1)

6{(R1)

000010

164000

2%:

010137
005237

001500
001500

DQNUM
#10,R1

1164000.R1

SEG 0015

;CLEAR ALL STATUS TABLE

;DO CLEAR
;ALL TABLE DONE
;BR _IF MORE TO GO

;SET NUMBER OF DQ11S TO 0

sSET TABLE POINTER

:GET 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 IF I BRANCH
NOW THIS IS A DQ11 -=STORE (SR
SET FOR TWO SYNC (HARS
:CLEAR DQ ACTIVE BIT
;SEL CHAR DET REGISTER
:WRITE INTO CHAR DET REG
;WAS THE REGISTER WRITTEN?
*APPERENTLY NO BB OPTION.

:SET FOR BB OPTION
;SEL POLYNO. REGISTER
JWRITE POLYNO.REGISTER
JWAS REG WRITTEN??
;BR IF NO AB OPTION
;SET FOR AB OPTION
sTRY TO SET .DTR. .RS.
;DID ANY OF THEM SET
:BR IF NO BA OPTION
;SET FOR BA OPTION
;DID .CS. .CO. SET

:BR_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
*UPDATE NUMBER OF DQ11S

:UPDATE CSR POINTER BY 10 (8)
*HAVE ALL FLOATING ADDRESSES BEEN CHECKED??

R1,SAVNUM

DQACTV
DQACTV

SET'B

DQNUM,R1

3%:

;GO TO START OF PROGRAM

:BR IF NOT ALL DONE
;ZERO ACTIVE DQ11S
*WERE ANY DQ11S FOUND
sHEY BUDDY. NO DQ11S FOUND IN SYSTEM
;SAVE NUMBER OF DQ11S
;SAVE NUMBER FOR ACT11

DQACTV
DQANUM
4

001500
001504
001504
001276

ROUTINES USED FOR AUTO SIZING.

001512
001400

PAGE 16

Vv
CLEAR fi???YE
ADDRESS

MACY11 30A(1052) 03-DEC-80
03-DEC-80 08:27
000534
000536
000540
000546
000554
000562
000566
000572

005301
001371
012737
013737

012716
000002

01000
001014
001022
001030

001200
001202
001204
001206
001210
001212

001000

005377
042510
051101
044440
000377

000006
001500

000340
001400
000300
000302
000056

055103

177460

046040
052116

DEC
BNE

MOV
MOV
MOV
MOV

MOV
MOV

4%:

5%:

050504
044103
023040
020122

2
SEQ 0016

ROUTINES USED FOR AUTO SIZING.

000004
001502
000022

000466

PAGE 17

.=1000

MTITLE:

001200

.=1200

177570
177570
177560
177562
177564
177566

SWR:

JMP
TYPE

MERR2
CLR
HALT
BR
MOV
RTI

LASCIZ

86, Nt

DQACTV SAVAC(CT

#340,a#22

#1400,R2

#300,R0
1302.R1
VECMAP
RO

+=¢

#2%, (SP)

;DEC NUMBER OF DQ11S

:BR IF MORE TO GO
JRESET TIME OUT VECTOR
sSAVE ACTIVE

*SET 10T TRAP PRIO: TO 7

:SET TABLE POINTER
sSET VECTOR START
:SET VECTOR+2 START
;GO FIND THE VECTORS
;TYPE MESSAGE

I DIDN'T FIND ANY DQ11S. DON'T USE AUTO SIZE.
HOU CAN I TEST NO DQ11S
;DON'T LET OPR HIT CONT. SW
;ENTERED BY TIME OUT TRAP
;GO HOME.

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

sINDIRECT POINTERS

177570
LIGHTS: 177570
177560
TKCSR:
TKDBR:
177562
177564
TPCSR:
TPDBR:
177566

;SWITCH REGISTER POINTER
;DISPLAY REGISTER POINTER
;TELETYPE KEYBOARD CONTROL REGISTER
:TELETYPE KEYBOARD DATA BUFFER
STELEPRINTER CONTROL REGISTER
:TELEPRINTER DATA BUFFER

001214
001216
001220

001222
C01224
001226
001230
001232
001234

000000
000000
000000
000008
00000
000000
000000
000000
000000

RETURN:

NEXT:
LOCK:
ICOUNT:
LPCNT:

TSTNO:
PASCNT:

ERRCNT:
LSTERR:

QOOOOWOOO

;PROGRAM (ONTROL PARAMETERS

;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 WILL BE EXECUTED

*NUMBER OF ITEREATIONS COMPLETED
*NUMBER OF TEST IN PROGRESS
*NUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS
:PC OF LAST ERROR CALL

;PROGRAM VARIABLES

001236
001240
001242
001244
001246
001250
001252

000009
000000

(HAR1:
CHARZ:
CHAR3:
TEMP1:
TEMP2:
TEMP3:

TEMPS:

(olelelelelels

———————
e

CZDOH

CZDQHE .P11

08:29

; TEMPORARY
: TEMPORARY
: TEMPORARY
: TEMPORARY

STORAGE
STORAGE
STORAGE
STORAGE

CZDQM

03-DEC-B0

MACY11 30A(1052)

CZDQHE.P11

03-DEC-80 08:27

807 001254 000000
808 001256 000000
809 001260 000000
810 001262 000000
811 001264 000000
812 001266 000000
813 001270 000000
814 001272 000000
815 001274 000000
816
817
818
819
82C

001276
001300
001302
001304
001306

000000
000001
000000
000000
000000

A
.
-

08:29

PAGE 18

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.
TEMPS:
SAVRO:
SAVR1:
SAVRZ2:
SAVR3:
SAVR4:
SAVRS:
SAVSP:
SAVPC:

; TEMPORARY STORAGE
;RO STORAGE
;R1 STORAGE
;R2 STORAGE
;R3 STORAGE
;R4 STORAGE
;RS STORAGE
;STACK POINTER STORAGE
;PROGRAM (COUNTER STORAGE

0
9
0
0
0
0
0
0
0

SAVNUM: 0
CREAM: .BLKW
RUNFLG: Q
0
RUN:
RUNCNT: 0

SEQ 0017

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

PAGE 19

821
822

SEQ 0018

;PROGRAM CONTROL FLAGS
it
—

INIFLG:

WN) —=O

[

WWN
N W

823

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

STFLG:
ERRFLG:
LOKFLG:
$Y=0

;PROGRAM INITIALIZATION FLAG

.BYTE
.BYTE
.BYTE
.BYTE

sTEST 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 DEF INITIONS

t'tt'Q.t".ttfit't*tfi"i't"'fi't'.ttt'ttt'tfi'.'i'fittt.ttttttt"."..t

t"'t.t'.'*t'tt*'Qfit"*""'ttt.'tt.tittttfi"tfl"'tt"t"'t""i'tt'
001314

- TRPTAB:

104400

001314

014474

001316

C14606

001320
001322

001324

001326
001330
001332

001334

001336

104402
014626
104403

TYPE= TRAF*Z

;CALL TO TELETYPE OUTPUT ROUTINE

INSTR=TRAP+3

;CALL TO ASCII STRING INPUT ROUTINE

104404

INSTER=TRAP+4

;CALL TO INPUT ERROR HANDLER

014734

015052

104405
015104
104406

015320
104407
015360
104410

015412

104411
015416

001344

001346

016374

001342

;CALL TO SCOPE LOOP AND ITERATION HANDLER
;CALL TO LOOP ON CURRENT DATA HANDLER

104401

104412
013032
104413
012706
104414
016320

001340

SCOPE=TRAP+0

104415

.TYPE

.INSTR

.INSTER
PARAM=TRAP+5
.PARAM

SAVOS5=TRAP+6
.SAVO0S
RESOS=TRAP+7
.RESOS5

;CALL TO NUMERICAL DATA INPUT ROUTINE
;CALL TO REGISTER SAVE ROUTINE

;CALL TO REGISTER RESTORE ROUTINE
TO DATA OUTPUT ROUTINE

CONVRT=TRAP+10

;CALL

CNVRT=TRAP+11

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

. CONVRT

.CNVRT
MSTCLR=TRAP+12
.MSTCLR

;CALL

ISSUE MASTER CLEAR

MEMCLR=TRAP+13

:CALL TO CLEAR ALL SCRATCH PAD MEMORIES

(KSWR=TRAP+14

;CALL TO ALLOW SWREG TO BE LOADED FROM TTY

CNTLU=TRAP+15

;CALL TO ALLOW LOADING OF SWREG FROM TTY

.MEMCLR
.CKSWR
LCNTLU

'Ql"'Q‘Q'tt'tt'."t'"""t‘.fi."t..fi".'."ttt..tt't'tttt't.'t't'tt

i.tltti.t"!tittQ'tt'.t""'ttQ'ti'tttt't""ifi.'..t'it".I'."'t."

:DQ11 VECTOR AND REGISTER INDIRECT POINTERS
001350
001352
001354
001356
001360
001362

000000
000000
000000
000000
000000
000000

DQRVEC:
:
DQRLVL
DQTVEC:
DQTLVL:
DQRCSR:

DQR(SH:

OCOOO0O

C2DQH

CIDQHE.P1

8388

08:29

;POINTER TO DQ11 RECEIVER INTERRUPT VECTOR
;JPOINTER TO DQ11 RECEIVER INTERRUPT SERVICE PS
;POINTER TO DQ11 TRANSMITTER INTERRUPT VECTOR
sPOINTER TO DQ11 TRANSMITTER INTERRUPT SERVICE PS
;POINTER TO DQ11 RECEIVER CONTROL REGISTER
;POINTER TO HIGH BYTE OF DQ11 RECEIVER CONTROL REGISTER

CZDQH

MACY11 30A(1052)

CZDQHE .P11
877
878
879
880
gg;

03-DEC-BO

03-DEC-80 08:27

001364
001366
001370
001372
001374

000000
000000
000000
000000
000000

08: 29

PAGE 20

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

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

DQTCSR: 0
DQERR: 0
DQREG: 0
DQSEC: O
DQSECH: O

883

884

;DQ11 STATUS TABLE AND ADDRESS ASSIGNMENTS

ggz
001400

887

.=1400

888 001400 000001
889 001402 000001
890 001404 000001
891 001406 000001
892 001410 000001
893 001412 000001
89 001414 000001
895 001416 000001
8% (001420 000001
897 001422 000001
898 001424 009001
899 001426 000001
900 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 000001
909 001452 9000001
910 001454 000001
911 001456 000001

DQCROO: .BLKW
DQSTO0: .BLKW
DQCRO1: .BLKW
DQSTO1: .BLKW
DQCRO2: .BLKW
DQSTO2: .BLKW
DQCRO3: .BLKW
DQST03: .BLKW
DQCRO4: .BLKW
DQSTO4: .BLKW
DQCROS: .BLKW
DQSTOS: .BLKW
DQCRO6: .BLKW
DQST06: .BLKW
DQCRO7: .BLKW
DQSTO7: .BLKW
DQCR10: .BLKW
DQST10: .BLKW
DQCR1%: .BLKW
DQST11: .BLKW
DQCR12: .BLKW
DQST12: .BLKW
DQCR13: .BLKW
DQST13: .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

:CONTROL STATUS REGISTER FOR DEVICE NO: 00
*VECTOR AND CONFIGURATION 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
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 03
;CONTROL STATUS REGISTER FOR DEVICE NO: 04
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 04
;CONTROL STATUS REGISTER FOR DEVICE NO: 05
:VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 05
:CONTROL STATUS REGISTER FOR DEVICE NO: 06
:VECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 06
;CONTROL STATUS REGISTER FOR DEVICE NO: 07
*VECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 07
;:CONTROL STATUS REGISTER FOR DEVICE NO: 10
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 10
;CONTROL STATUS REGISTER FOR DEVICE NO: 11
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 11
:CONTROL STATUS REGISTER FOR DEVICE NO: 12
SVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 12
:CONTROL STATUS REGISTER FOR DEVICE NO: 13
*VECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 13

001464
001466
001470
001472
(01474
001476

000001
000001
000001
000001
000001
000001

DQCR15: .BLKW
DQST15: .BLKW
DQCR16: .BLKW
DQST16: .BLKW
DQCR17: .BLKW
DQST17: .BLKW

1
1
1
1
1
1

*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 17

922 001504

000001

12 001460 000001
13 001462 000001

914
915
916
917
918
919

920
921
923

001500
001502
001506

000001
000001
000001

g%g 001510 000001
926
927
928
929

930
§31

DQCR14: .BLKW
DQST14: .BLKW

DQACTV: .BLKW
SAVACT: .BLKW

DONUM:
DQCSR:

.BLKW

.BLkW

DQSTAT: .BLKW

1
1

:CONTROL STATUS REGISTER FOR DEVICE NO: 14
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 14
;CONTROL STATUS REGISTER FOR DEVICE NO: 15
:VECTOR AND CONF]GURATION STATUS FOR DEVICE NO: 15
;CONTROL STATUS REGISTER FOR DEVICE NO: 16
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 16
:CONTROL STATUS REGISTER FOR DEVICE NO: 17
;HOLD ACTIVE BITS FOR TESTING
;SAVE NUMBER OF ACTIVE DQ11S

:OCTAL NUMBER OF TOTAL NUMBER OD DQ11S
SVECTOR AND CONFIGURATION STATUS OF DQ11 UNDER TEST
;CSR OF DQ11 UNDER TEST

;PROGRAM INITIALIZATION
sLOCK OUT INTERRUPTS
SET UP PROCESSOR STACK
SET UP POWER FAIL VECTOR

:CLEAR PROGRAM CONTROL FLAGS AND COUNTS
sTYPE TITLE MESSAGE

SEQ 0019

MACY11 30A(1052) 03-DEC~-B0
{IDOH
03-DEC-80 08:27
CZDQHE .P11
933
934
935
936
937

001512
001520
001524
001532
001540
001544
001550
001554
001560

012737
012706
012737
013737
105037
005037
105037

005037
012737
005037
005037
012737
012737

012737
012737
013746
013746
012737
022777

001402
000407
022626
012737
012737
012637
012637
005737
001014

000340
001200
016222
001504
001311
001230
001312
001302
001400
001232
001234
000001
001512
177570
177570
000006
000004
001656
177777

000176
000174
000004
000006
000042

105737

001310

104402
105137

001000
001310
000176

001035

022737
007001
104415
105777
100402

004737
104402
012737
017737
001406
104410
017076

08:2%

177776

177252

.START: MOV

MOV
MOV

MOV
CLRB

001276

CLR
(LRB
CLR
MOV
CLR
CLR
MOV
MOV

001300
001226
001214
001200
001202
000004
177326

64%:
65%:
66%:

MOV
MOV
MOV
MOV
MOV
CMP
BEQ
BR

CMP
MOV
MOV
MOV
MOV
TST

#STACK,SP
#.PFAIL ,a#24

DQONUM, SAVNUM
STFLG

PASCNT
ERRFLG
RUNFLG
#1400, CREAM
ERRCNT
LSTERR
#1,TSTNO
#.START ,RETURN
#DSWR, SWR
#DLIGHTS ,LIGHTS
a#6,~(SP)
4
- (SP)
a#é
NG
#ELS
#-1,3SWR
65%
66%

(SP)+,(SP)+
#SWREG, SWR
#D1SPREG,LIGHTS
(SP) +,a#4

BNE

TSTB

INIFLG

BNE

TYPE

001200
67%:

000002

001244

000001

177160

TSTB
BMI
JSR

aSwR
.+6
PC, (SRMAP

MOV
MOV
BEQ

#1400, TEMP1
ATEMP1, TEMP?
.+16

CNTLU

XSTATQ

ADD

12%:

BR
BIT
BEQ

MNEW

. XHEAD

#2,TEMP1

#SW00,aSwR

(LR

(KSWR
(MP

aSWR, SAVACT

HALT

001502

JMTITLE

INIFLG
#SWREG, SWR
67%

TYPE

001244
001246

12%

comM3
CMP
BNE

CONVRT

177140

#340,PS

(SP) +,a#6
ALl
67%

TYPE

027737

SEQ 0020

;LOCK OUT INTERRUPTS
JSET UP STACK

;SET UP POWER FAIL VECTOR
sCLEAR START FLAG
;CLEAR PASS COUNT
;CLEAR ERROR FLAG

;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
;SET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE
sTESTING STARTS

JMOV HARDWARE SWR TO SWR
;MOV DISPLAY LIGHTS TO LIGHTS
;SAVE VECTORS

;SET UP FOR TIMEOUT

;REFERENCE HARDWARE SWITCH REGISTER
;ADJUST STACK

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

sJRESTORE VECTORS

JUNDER MONITOR

s:asxsasxTHE NEXT 4 LINES OF CODE MOVED TO SOLVE PRA2757 (JUNE 78)xwwwx«

177232

000220
017050
001400

PROGRAM INITIALIZATION AND START UP.

000024

001200
001202

PAGE 21

JHAS INITIALIZATION BEEN PERFORMED?
;IF YES, BR

;TYPE TITLE MESSAGE

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

002042

PROGRAM

INITIALIZATION AND

HALT

177120

012700
012701
010120
005021
022021
022700
001372

000300
000302

001500

11%:

g a -

~NOWN S W
OV

R0
SN

) —d

)

[oleoleolelalololelelele]

21
2

1025
1026
1027
1028

CKSWR
MOV

1%:

1035
1036
1037

000004

177032

gég

104402

016670

000240
000240

014504
014506

014602
014604
000002

014504
014506

MOV
MOV
BR
MOV
MOV
BIT
BEQ
INSTR

1039
1040
1041
1042
1043
1044

000177

176764

#1000,R0
2%
START

MOV
ézg

CKSWR
TYPE

1$:

28:

AND RESTART

#340,PS

;LOCK OUT INTERRUPTS

#STACK,SP
§:42

JSET UP STACK
2 1S PROGRAM UNDER MONITOR (ONTROL
JCHECK FOR <*G>

:gITZ.aSUR

JCHECK FOR LOCK ON TEST

MLOCK

#NOP, TTST
#NOP, TTST+2
23
BRW,TTST
BRX,TTST+2
#5w01,aSWR
38

;SET UP TO LOCK
;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
:IF SW01=1, GET STARTING PC

MTSTPC
PARAM

TST1

002254

016560

001214

176740

000001
002644
002644
(001302

001226
001214
001216

012
012737

000001
000020

001304
001306

001302

BYTE
BYTE
_
3$:

4$:

TLAST
#RE TURN

1
1
BR
MOV

4$
#TST1,RETURN

;START AT TEST

Jme

ARE TURN

*START

TYPE

STYPE R

TESTING

:'tt'."t't""."tt""""‘Q.'""tt".fi.Qi-t.t.'."'..".""'t'l.'

012737
012737
012737
105737

105137

(RO)+,(R1)+

CMP
BNE

032777

104402

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

CMP

001000

.BEGIN: MOV

0004
012737

#300,R0

MOV
MOV
CLR

2%:

1029

1031
1032
1033

DQACTV,RO

HALT

177776

001410
104403
016656
104405
002254
012040

SEQ 0021

aSWR,DQACTV

MOV

000340
001200
000042

012737
012737
000406
013737
013737
032777

UP.

MOV

012737
012706
005737
001040
001411

START

MERR3

001500

104414

11%

TYPE

;TEST

C02116

PAGE 22

BLOS

013700
000000
104414

002110
002114

08:29

101404
104402

016632
000000
000776
017737

el —

MACY11 30A(1052)
03-DEC-80
CZDQHE.P11
03-DE(-BO 08:27
CZDQH

-t

TsT1:

mov

#1,TSTNO

TST8

RUNFLG

MOV
MOV

BNE
MOV
MOV
COMB

#TST2
,RE TURN
#TST2 NEXT
1$
#BITO,RUN
#16. ,RUNCNT
RUNFLG

;1S

THIS MY FIRST

TIME

HERE?

:BR IF FLAG IS SET
:SET RUN POINTER,
:SET FOR MAX OF 16 DQ11°*S PER SYSTEM
:SET RUN FLAG

| CZDQM

MACY11 30A(1052)

CZDQHE.P11
1045
1046

002324
002332

1047 002334

033737
001032

005737

1048 002340 001423
1049 002342

1050
1051

1052

03-DEC-80

03-DEC-80 08:27

002344
002350

002356

000257

006137
062737

005337

001304

001306

18:

BIT
BNE

RUN,DQACTV
3$

8EQ

DQACTV

SFIND AN ACTIVE DQ11 TO TEST.
“BR IF 1 FOUND ONE TO TEST.
“FIND OUT IF THERE ARE NO D@11 ACTIVE.

ROL
ADD

RUN
#4, CREAM

*UPDATE RUN POINTER
"UPDATE ADDRESS POINTER.

BNE
MOV
MOV
MOV
BR
TYPE
MERR2
HAL T
BR
cce

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

‘BR AND KEEP LOOKING.
*START RESTORING MY POINTERS.
“RESTORE ADDRESS POINTER
*RESTORE RUN POINTER.
*KEEP ON TESTING.
"ALLERT OPERATOR OF FATAL ERROR
"NO DQ11 ACTIVE. WHY AM I HERE???
*YOU MUST RELOAD DQ11 DIAGNOSTIC!'

ACREAM.DGCSR
#2, CREAM
ACREAM.DQSTAT
#2, CREAM

001500

cce

001300

DEC

001360
012737
012737
012737
000776
104402
016563
000000
000776
000257

1066
1065
1066
1067

002426
002434
002442
002450

017737
062737
017737
062737

176646
000002
176632
000002

001506
001300
001510
001300

MOV
ADD
MOV
ADD

1070

002472

042737

177007

001350

000020
001400
000001

1068
1069

1071

1072

002456
002464

002500

002506

013737
013737

062737

1073

002514

1075

002530

013737

1074

002522

001506
001510

013737 001350
013737

062737

001306
001300
001304
2%:

1063 002422 006137 001304

000002

3$:

001360
001350

001352

BIC

ADD

#2.DQRLVL

ADD

#2,DQTVEC

ADD
MOV

#2.DQTLVL
DQRCSR, DARCSH

MOV

001354

001356

MOV

001364

MOV

001366

MOV

000002
001360

001356
001362

062737
013737

1079

002556

013737

001360

1081

002572

013737

001364

1083

002606

013737

001366

001370

MOV

1085

002620

013737

001370

001372

1087

002632

013737

001372

001374

1078 002552 005237 001362
1080
1082

1084

1086

}833

1092
1093

1094
}832
1097

1098

1099
1100

002564

002600

002614

002626

002640

062737
062737

005237

000002

001370
001372

001374

INC

001364

001366

"UPDATE RUN. ACTIVE DQ11 FOUND.

-PLACE ADDRESSS OF DQ11 AT DQCSR
"UPDATE ADDRESS POINTER
:PLACE STATUS OF DQ11 AT DQSTAT
"UPDATE ADDRESS POINTER

DORLVL .DGTVEC

:GENERATE ADDRESS OF RECEIVER INTERRUPT SERVICE PS
:GENERATE ADDRESS OF TRANSMITTER INTERRUPT VECTOR

DQTVEC.DATLVL

:GENERATE ADDRESS

DQRC SH

OF HIGH BYTE
ADDRESSRATE
:GENE

DORVEC.DQRLVL

DORCSR.DQTCSR

ADD

#2.DQTCSR

ADD

#2 .DQERR

OF TRANSMITTER INTERRUPT SERVICE PS

-GENERATE ADDRESS OF TRANSMITTER CONTROL REGISTER

DQTCSR.DQERR

:GENERATE ADDRESS OF ERROR REGISTER

DQERR, DQREG

-GENERATE ADDRESS OF HIGH BYTE OF ERROR REGISTER

MOV

DQREG , DQSEC

-GENERATE ADDRESS OF SECONDARY REGISTER

MOV

DQSEC.DQSECH

:GENERATE ADDRESS OF HIGH BYTE

INC

‘e

“STICK HERE ON CONT.
*CLEAR CPU COND. CODES

DQCSR,DARCSR
DQSTAT,DQRVEC
#177007 .DQRVEC

002536
002544

1076
1077

*DEC NUMBER OF TIMES I LOOKED AT ACTIVE.

RUNCNT

MOV
MOV

001354

“CLEAR ALL THE CONDITION CODES OF CPU

RUN

MOV

001352

BR TO FATAL ERROR. WHY AM I HERE IF NO ACTIVE DQ@11°'S2??

ROL

001352

000002

SEQ 0022

PROGRAM INITIALIZATION AND START UP.

002362
002364
002372
002400
002406
002410
002412
002414
002416
002420

1053
1054
1055
1056
1057
1058
1059
1060
1061
1062

PAGE 23

001500
001304
000004

08:29

DQREG
DQSEC

DQSECH

S,
L

)

HELL RAPSER"'
:DQ11
“THIS TEST WILL EXERCISE:

D011 RECEIVER AND TRANSMITTER INTERUPTS
EgEER AND EXIT T-CIF AB OPTIGN INSTALLED)
;V

“THE CABLE AND TURN AROUND
* CHARACTER TRANSFERS.

(DATA ONLY)

—————————tn
e

CZDQH

MACY11 30A(1052)

CZDQHE .P11

03;DEC'-_'80

03-DEC=-80 08:2

08:29

1103

002644

012737

000002

001226

1104 002652 012737 002734 001214
1105 002660 012737 000036 001222
1106 002666 012737 003756 001216
1111

1112
1113
1114
1115
1116
1117
1118

1119
1120
1121
1122
1123
1124
1125
1126

1127

1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141

1142

1143

002674
002702

002704

032737
001006

112737

002712
002716
002720
002726
002734
002736

005037
000406
112737
012737
104413
005037

002746
002752
002756
002764
002770
002776
003002
003010

005037
105077
012777
105277
012777
105277
012777
105277

002742

003014

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

TMN3130

003136

005037

012777

100000

001510

000377

013052

000026
013026

013052
013656

013656

014302

TEST 2

TST2:

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
040000

112777

000017

052777

000010

012700

003152

1148

003162° 110320

18$:

28:
SETON:

176374

176362

1151

003170

1149
1150
1152

105303
001375

003174

005003

1153

003176

1155

003202

1154

1156

003200

003204

012700

176336

176324
176312

176300
176270
176264

176252
001510

013054

1%:

013662

28:

003502

;ONE SYNC CHAR OR TWO?
‘BR IF TWO

CLR
BR
MOVB
MOV
MEMCLR
CLR

XSYNC
2%
#26,SYNC
#13026,XSYNC
GDCHAR

*DBL SYNC SET TO ONE.
< CONT.
“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 ,@DQSEC
@DQREG
#-200,aDQSEC~
@DQREG
#SYNC,aDQSEC
@DQREG

*ZERO 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
INCB
MOV
MOVB
MOV
INCB
MOV
BIT
BNE

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

MOVB

176224

105203
100375

#SYNBIT,DQSTAT
1%

BIS

176234

110320

012777

BIT
BNE

MOV

176350

1147 003156 012703 000177
003164
003166

#2$ ,RETURN
#TSTS NEXT

CLR

176406

176136

#2,TSTNO.

MOV
MOV
MOV

MOVB

}}2§ 003144 012777 123456 176220
1146

MOV

#30. , ICOUNT

:ADJUST SYNC CHARACTERS.

014274

177776
176412
013256
176400
177600
176366
013052
176354

SEQ 0023

.'tttt'tttt"tt*"tttt'tt't"tttt.tttiQtttt't'tt'ttttttttt"'ttt'tttt'

Hgg

1109
1110

PROGRAM INITIALIZATION AND START UP.
;

1101

1102

PAGE 24

#377.SYNC

CHAR

#-202,9DQSEC~

#BIT3.3DQSEC
#17,aDQREG

*SET ONE SYNC.

;

: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
:LOAD SYNCS
*SEL THE MISC REGISTER
-SET 8 BITS PER CHAR AND VRC ENABLE.
:1S JUMPER AT END OF CABLE?
‘BR IF YES

-NO CABLE SET TEST LOOP FOR DATA TURN AROUND
*SEL THE POLY REGISTER

MOV

#123456,8DQSEC :SET PLOYNOMIAL.

MOV

#TXBFA,RO

MOVB

R3.(RO)+

MOV

DECB
BNE .

: COUNTER

R3
1%

*DONE?
:NO

;

#XTXBUF ,RO

MOVB

R3,(RO)+

CLR

INCB

BPL

MOV

:START TO FILL TX BUFFERS

#177.R%

MOV .

:PRIMARY IS BINARY COUNT BACKWARDS.

*SET SEC BUFFER

*SECONDARY IS BINARY COUNT

*DONE?

#RXISR,ADQRVEC

+SET RECEIVER INTERUPT POINTER

;:+4D

*NO

= =NONVW
SO

NNNNN

NV
oo

oo
—_— 2 —2 .

000240
003334
000240
000041
000051
001246
000113
000020
000017

(%:

003342
003344

104400

003346

100001
104004

032777
001425
112777
042777
012777
105277
152777

012777
142777
000002
042777
112777
012777

014266

000004

176010

000002
000200
013054
175764
000120
177600
000017

176004
175772
175772

000100

032777

003542

012777

MOV
MOV

#75.,TEMP3

BICB
TSTB
TST

001246
175654

000004

175632

000200

175622

013256

175622

175626

#BITS+BIT3+BITO,aDATCSR :SET TX GO AND IE AND ERROR IE
TEMP2

:SET TIMER

#16. . TEMP4

*SET FOR 16 REGISTERS

#17 . 3DAREG

aDAREG
aDQSEC
aDQREG
TEMP4

TEMP?2

“SET NUMBER OF INTERUPTS WANTED
*SEL RX BA PRI.

‘SIT HERE AND MAKE WAVES
‘WHILE INTERUPTS OCCUR
R 27 a7 27 a0 A7 Al AT Al AL A AT Al Al

& Y a7 a7 27 AT AT AT 27 a7 27 27 2 27 44
: SAME

‘UPDATE COUNTER
‘KEEP IT GOING.

TXISR:

MOV
BPL
HLT

aDOERR,ERR
44
A

:ANY ERRORS
‘BR IF NO
‘D11 ERROR FLAG IS SET.

BIT
BEQ
MOvB
BIC
MOV
INCB
BISB

#BIT2.3DQTCSR
1%

-WHO SHOULD I SERVICE PRI OR SEC?
‘BR IF SEC NEEDS SERVICE

MOV

1%:

2%:
RXISR:

014266

:SET RX GO AND IE

BI(B
RTI
BIC
MOVB

INCB
BISB

5670

#B1T5+BIT0,aDARCSR

BR
ENDTS2: SCOPE

175756

5726

+SET TX VECTOR

‘KEEP GOING

MOV

012777
142777
000002

100001
104004

+SET PRIO TO 5

#TXISR,aDATVEC

105277
152777

005037
017737

#240,aDQTLVL

BNE
INC
BNE
HLT

000754

176026

;SET PRIO: TO 5

INCB

001246

003334 017737

SEQ 0024

#240,8DORLVL

DEC

001252

003330
003332

MOV
MOV
MOV
MOV
MOV

CLR

3%:

176066
176064
176056

003320
003324
003326

PAGE 25

PROGRAM INITIALIZATION AND START UP.

==
ONN

012777
012777
012777
012777
012777

—_——
-

003212
003220

2888 ~N B8R EOC 8RR RAERRBRBIFIFANANIITEIFSLARZS

SO SO N S SO R

g p———————
P L [T YT (U

J—————

NN—A—A—L—Q-‘—A—.-.—A.J—;—;—A—!.J—._.—.—!—A—I —l—d—‘_‘—l—‘d—l_‘.‘—l_—l—l—l_‘-—l_l—l-—l—l

CZDQHE.P11

-0
NOO

| CZDQH

08:29

03-DEC-80
03-DEC-80 08:27

MACY11 30A(1052)

#2,aDQREG

#BIT7,aDQTCSR
#TXBFA,aDQSEC

*RX FAILED TO CONTINUSLY INTERUPT
TexxxxSTRONGLY SUGGEST SWO08=1 (GOTO TOP OF TEST OF ERROR
*SCOPE THIS TEST......

TexxxxSTRONGLY SUGGEST SWO08=1 (GOTO TOP OF TEST OF ERROR
*SEL TX BA PRI

+CLEAR TX PRI DONE.

:LOAD THE TX BA PRI

*SEL THE TX WC PRI.
aDQREG
:SET WRITE EN. AND ENTER T
#81T6+BIT4,aDOREG
#-200,aDQSEC
#17.3DQREG

#BIT6,aDATCSR
#6 ,aDQREG
#XTXBUF ,aDQSEC
aDQREG

;LOAD TX WC PRI.
*CLEAR REG POINTER.

‘EXIT STAGE RIGHT
+CLEAR TX SEC DONE

‘SEL THE TX BA PRI.
:LOAD THE TX BA SEC

*SEL THE TX WC SEC

#BIT5+BIT4,aDOREG

:SET WRITE EN. AND EXIT T

#-200,aDQSEC
#17.3DQREG

;LOAD THE TX WC SEC
*CLEAR REG POINTER

TEMP2

:LET TIMER KNOW THAT RX INTERUPTED

BPL

HLT

aDQERR,ERR
. +4
A

BIT
BEQ
BIC
CLRB

#BIT2.3DQRCSR
2%
#B1T7,3DQRCSR
aDQRE G

‘DQ11 ERROR FLAG SET!!!!
TeexxsSTRONGLY SUGGEST SWO8=1 (GOTO TOP OF TEST OF ERROR
-WHO SERVICE PRI OR SEC
‘BR IF SEC NEEDS SERVICE
:CLEAR RX PRI. DONE
*SEL RX BA PRI.

MOV

BICB
RTI

CLR
MOV

MOV

#RXBUFF ,aDQSEC

‘EXIT

STAGE LEFT.

*ANY ERRORS
*BR IF NO

:LOAD IT

—

| CZDQH

MACY11 30A(1052)

CZDQHE .P11
1213

1214

1215

03-DEC-80 08:27

003550

003554

003562

1216 003570
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227

003574
003600
003604
003612
003620
003626
003632
003640
003646
003652
003656

1229

003666

1232
1233
1234
1235
1236

003676
003704
003712
003716
003722

105277

1237

1238
1239
1240
1241
1242
1243
1244
1245
1246

003672
003674

003724
003726
003730
003732
003736
003740
003742
003746
003754

175614

152777

000120

012701

013054

012777

177600

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

013256
003656
000100
000004
014064
175536
000060
177600
013662
014064
000200

142712

000200

112777
052777
114137
114237
104003

000012
000002
014302
014274

1228 003662 142711
1230
1231

03-DEC-80

122122
001414

122122
005300
001354
005337
001003
000005
012716
142777
000002

08:29

INCB

1$:
28%:

175530
175524
3$:

4%:

7%:
001250.

003332

000017

5%:
175414

6%:

;SEL THE RX WC PRI.

;SET WRITE EN. AND ENTER T

#BI1T6+B1T4 ,aDAREG

MOV

#TXBFA,R1

;PREPARE TO CHECK DATA. SET TX PUINTER

#BIT7,(R1)

s CLEAR VRC

(R1)+,(R2)+
7$

;DATA 0OK?
;BR IF YES

MOV
JMP
BIC
MOVB
MOV
INCB
BISB
MOV
MOV
MOV
MOV

BI(B

#-200,aDQSEC

sLOAD RX WC SEC

sSET RX POINTER
#RXBUFF ,R2
;GO AND CHECK DATA
3%
;CLEAR RX SEC DONE
#B1T6,aDAQRCSR
sSEL RX BA SEC
#4 ,aDQREG
#XRABUF ,aDQSEC ;LOAD IT
sSEL THE RX WC SEC
aDAREG
;SET WRITE EN. AND EXIT 7
#B1T5+B1T4 ,aDQREG
sWRITE RX WC SEC
#-200,aDQSEC
JGET TX BUFFER POINTER
#XTXBUF ,R1
sGET RX PQINTER
#XRXBUF ,R2
;GET NUMBER OF CHARS
#200,R0

BICB

#BI1T7,(R2)

MOVB
BIS
MOVB
mMovB
HLT

#12 ,aDQREG
#81T1,aDQSEC
-=(R1) ,GDCHAR
=(R2) ,CHAR
3

CMPB
DEC
BNE
DEC
BNE
RESET
MOV
BI(B
RTI

(R1)+,(R2)+
RO
4%
TEMP3
6%

CMPB
BEQ

175464
175460

aDQREG

BISB
MOV

175602

000200

SEQ 0025

PROGRAM INITIALIZATION AND START UP.

175606

175546
175550
175544

PAGE 26

#ENDTSZ2, (SP)
#17 ,aDQREG

;CLEAR VRC

;SEL MISC REG
;STOP THE DQ11 CLOCK.
:STORE GOOD CHAR
;STORE BAD CHAR.
;DATA COMPARE ERROR

;xxxxxSTRONGLY SUGGEST SW08=1 (GOTO TOP OF TEST OF ERROR
;POP PCINTERS
JALL DATA CHECKED?
;BR IF NO
sALL INTERUPTS DONE?
:NO KEEP INTERUPT ING
;STOP THE SHOW CLEAR THE WORLD
;SET FOR END TEST RETURN
;CLEAR REG POINTER
JEXIT STAGE MIDDLE

[————

————

i
|

|
|

(ZDQH
MACY11 30A(1052)
O03-DEC-B0
CZDQHE.P11
03-DEC-B0 08:27

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

1569

1250
51

SEQ 0026

sTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
sTHIS TEST WILL XMIT AND RECV CHARACTERS
;AT 2 BITS/PER/CHAR.

;DATA CHECKING WILL BE PERFORMED!

;

003756

012737

1258
1259
1260
1261
1262
1263
1264

003764
003772
003774
004000
004002
004004
004006

012737
104413
012700
005001
005020
105201
100375

1267

004024

012737

1265
1266

004010
004016

001246

004136
004144
004152
004156
004164
004170
004176
004202
004210
004214
004222
004226
004232
004234
004240
004242
004246

052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705
001372

004256

012701

050077

104001

TST3:

5¢:

012370
001510

1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300

TEST 3
AAAALAL

013256

175352
001246

143737
005737
100003
000241
106037
143737
000241
106037
013737
013737
013777
105277
012777
012700
000300

004250

001216

000011
013052

004032
004040
004044
004046
004050
004054
004062
004064
004070
004076
004104
004112
004116
004124
004130

004132

004324

001226

112777
013737

1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282

1283

000003

177774

001246
012370
001247
001246
001246
001246
175252
000010
000016

175234

000002
000002
175212
013256
175200
177734
175166
012374
175154
177732
175132
175132
175120

012370

108:

012372
012374
175260
175246

175206

175162

175150

18:

000001

012376
013256

2%:

dtiiiisi

#3,TSTNO

#TST4 NEXT

#177774 ,MASK

SLOAD THE MASK

BICB
ST
BPL
cLC
RORB
BICB
CLC
RORB
MOV
MOV
MO\
INCB
MOV
MOV
SWAB

MASK,TEMP2
DOSTAT
.
108
‘

HLT
MOV
MOV

s222233222 3222222

(RO) +
R1
5

#11.aDQREG
SYNS, TEMP?2

BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
CLR
TSTB
BM]
ADD
BNE

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

#RXBUF F ,RO
R1

MOVB
MOV

BIS

175226
175220

175174

MOV
MEMCLR
MOV
CLR
CLR
INCB
BPL

MOV

.
001247

MOV

TEMP2
MASK, TEMP2+1
TEMP2+1
TEMP2, SYNC1
TEMP2,SYNC2
TEMP2.3DQSEC
@DQREG
#81T3,aDQSEC
#16.R0
RO

RO, @aDQSEC

#81T1,aDQSEC
#81T1.3DQSEC
@DOREG
#RXBUFF ,@DQSEC
aDQREG
#-36.,aDQSEC
aDOREG
#SYNC2,aDQSEC
aDQREG
#-38. ,8DQSEC
aDORC SR
aDQTCSR
RS
@DORCSR
2%
#1.RS
1%

1
#TXBUFF ,RO
#RXBUFF ,R1

*SELECT THE SYNC REG
*LOAD SYNCS

*SET UP A MASK TO GET THE
:SINGLE SYNC CHARACTER?
:IF YES.BR.
*CORRECT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH
:MANIPULATE DATA TO
*COME UP WITH THE
*PROPER SYNC CHARACTER
:LOAD THE CHARACTER
:DITTO
: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 CHAR
:SEL TX PRI CHAR COUNT
;SET CHAR COUNT
*SET RX GO
SSET TX GO
*START TIMING
*1S DONE UP?
*BRANCH IF YES
TWAIT

:BR IF MORE TO GO
*ERROR==NO RX DONE
. sLOAD BUFFER POINTER
sLOAD RX BUFFER POINTER

)
iie4D
;144D

| CZDQH_

MACY11 30A(1052)

| CZDQHE.P11

03-DEC-80 08:2

004262

012702

1306 004266

112005

1304

1305

004266

1307

004270

005037

1312

004312

001401

1314
1315

004316
004320

005302
001362

1308 004274 112137
1309 004300 013704
1310 004304 043705
1311 004310 020504

1313

os;oec-ao

004314

}%}9 004322

08:29

000044

MOV

#36.,R2

;SET UP TO COUNT CHARACTERS

MOvVB

(RO) +,R5

;GET A CHARACTER TO COPMARE

MOVB
MOV
BIC
CMP

(R1)+,TEMP?
TEMPZ R4
MASK RS
RS.R&

;GET REC CHARACTER
sMOVE TO R4
;MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?

HLT

CLR

001246

001246
001246
012370

BEQ

DEC
BNE

6%:

SCOPE

104400

1318

TEMP?

R2
3%

;BR IF OK

;ERROR--DATA DOESN'T MATCH
;ALL DONE?
;NO--GO BACK FOR MORE

;SCOPE THIS TEST

1319

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

1321

;AT 3 BITS/PER/CHAR.

:THIS TEST WILL XMIT AND RECV CHARACTERS

1320

;DATA CHECKING WILL BE PERFORMED!

}%S%
;

1324

1325

1326
1327

004324
004332

012737
012737

1328 004340 104413
1329 004342 012700
1530 004346 005001
1331
1332
1333

004350
004352
004354

005020
105201
100375

1335
1336

004364
004372

013737
012737

1334

1337

004356

004400

000004
004672

1340 004414
1341 004416

1342 004422
1346

004430
004432
004436
004444

1347 004452
1348 (14460
1349 (4464
1350
1351

004472
004476

1354

004512

1352
1353
1355

1356

004500
004504
004520
004524

1357 004532
1358 004536
1359 004544

001226
001216

000011

143737

012370

013052
177770

013777
105277
012777
012700
000300

050077
052777

042777

105077

012777

105277
012777
105277

001246

001246
174704
000010
000015

174666
000002

000002

174644

013256

174632
177734
174620

#4,TSTNO
#TSTS NEXT

:CLEAR ALL THE D@11
;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER

MOVB

#11,aDQREG

sSELECT THE SYNC REG

BICB

MASK , TEMP2

(LC
RORB

TEMP?2

sCORRECT SYNC CHARACTER
;FOR THIS CHARACTER LENGTH

TEMP2+1
TEMP2,SYNC1

;COME UP WITH THE
.PROPER SYNC CHARACTER
;LOAD THE CHARACTER

174700

MoV
INCB
MOV

TEMPZ2 ,aDQSEC
aDQREG
#B1T3,@DASEC

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

174660

BIS
BIS

RO,aDQSEC
#B1T1,aDQSEC

:
;FLIP THE BYTES
;SET CHARACTER LENGTH
sTURN CLOCK OFF...

aDQREG

;SEL RX PRIMARY ADRESS

175004

001246

012372
012374

174712

174652

174640

174626

MEMCLR
MOV
CLR
CLR
INCB
BPL
MOV
MOV

001246
012370

143737 012370 001247
001247
001246

MOV
MOV

#RXBUFF ,RO
R1

000241
106037 001246

013737

TST4:

5%:

112777

000241
106037
013737

TEST &

:'tQt'itfifitflttttt'fi'tQ"t'fitfltQt.ttfi'ttt'.fi't'ttti't't'i.tttt'."tt'

013256

1338 004406 005737 001510
1339 004412 100003
1343
1344
1345

SEQ 0027

PROGRAM INITIALIZATION AND START UP.
3%:

104002

B 3

PAGE 28

TST
BPL

10%:

BICB

CLC
RORB
MOV
MOV

MoV
SWAB
BIC

CLRB

MOV

INCB
MOV
INCB

(RO) +
R1
5%

SYNC,TEMP?
#177770 ,MASK

DQSTAT
108

MASK , TEMP2+1
TEMP2,SYNC?

#15,R0
RO

#8171,aDQSEC

#RXBUFF ,@DQSEC

aDQREG
#-36. ,aDQSEC
aDQREG

;CLEAR IT
;DONE?
;BRANCH IF NO

;LOAD SYNCS
;LOAD THE MASK

;SET UP A MASK TO GET THE

sSINGLE SYNC CHARACTER?
:IF _YES,BR.

;:+4D
s:++D

sMANIPULATE DATA TO

i:4+D

;DITTO

sAND ON

;SET ADRESS

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

——
e

CZDQH

MACY11 30A(1052)

03-DEC-80 08:27

CZDQHE.P11
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371

1372
1373
1374
1375
1376
1377
1378
1379
1380
1381"
1382
1383
1384,
1385
1386
1387

03=DEC-80

004550
004556
004562
004570
004574
004600
004602
004606
004610
004614
004616
004620

004624
004630
004634
004634
004636
004642
004646
004652
004656
004660
004662
004664
004666
004670

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

012701
012702

112005
005037
112137
013704
043705
020504
0C1401
104002
005302
001362
104400

012374
174606
177732
174564
174564

08:29

MOV
INCB
MOV
INC
INC
CLR
TSTB
BM]
ADD
BNE
HLT
MOV

174602

18:

000001
28:

012376
013256
000044

MOV
MOV

3$:

MOVB
CLR
MOVB
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

001246
001246
001246
012370

4$:

1389
1390
1391
1392

1393

1395
1396

1397
1398
1399
1400
1401
1402

1403
1404
1405
1406
1407

1408
1409
1410
1411
1412
1413
1414
1415

SEQ 0028

#SYNC2,aDQSEC
aDQREG
"38-aaDQSEC
aDQRCSR
aDQTCSR
R5
aDQRCSR
2%
#1,R5
1%
-

#TXBUFF ,RO
#RXBUFF ,R1

#36. ,R2

;LOAD THE SYNC CHAR
;SEL TX PRI (HAR COUNT
sSET CHAR COUNT
sSET RX GO
;SET TX GO
;START TIMING
;1S DONE UP?
;BRANCH IF YES
JWAIT

;BR IF MORE TO GO
;ERROR==NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
sSET UP TO COUNT CHARACTERS

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

:GET A CHARACTER TO COPMARE

;ERROR--DATA DOESN'T MATCH

:NO--GO BACK FOR MORE

*GET REC CHARACTER

;MOVE TO R4
JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
:BR IF OK

;ALL DONE?

;SCOPE THIS TEST

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

1388

1394

PROGRAM INITIALIZATION AND START UP.

174614

174552

PAGE 29

‘AT & BITS/PER/CHAR.

.
:

004672
004700

004706
004710
004714
004716
004720
004722

004724
004732
004740
004746
004754

004760
004762
004764
004770
004776
005000
005004
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

;DATA CHECKING WILL BE PERFORMED!

TEST S

TSTS:

013256

5%:

000011
013052
177760
012370
001510
001246
012370

001247
001246
001246

012372
012374

MOV
MOV

MEMCLR
MOV
CLR
CLR
INCB
BPL

MOVB
MOV
MOV
BI(CB
TST

174436
001246
012370
001246

001247

bl d
323

R0ttt
32232
3222
23232
333333333
:233222222222232222222223322

10$:

BPL
CLC
RORB
BICB
CLC
RORB
MOV
MOV

#5,TSTNO
HTST6 NEXT

#RXBUFF ,RO

#11,aDQREG

SYNC , TEMP2

#177760 ,MASK

MASK, TEMP2
DOSTAT
108
TEMP2

MASK, TEMP2+1
TEMP2+1
TEMP2,SYNC1

TEMP2,SYNC2

;CLEAR ALL THE DQ11

;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
;CLEAR IT
: DONE?
sBRANCH IF NO
;SELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
;SET UP A MASK TO GET THE
sSINGLE SYNC CHARACTER?
:1F YES,BR.
*CORRECT SYNC CHARACTER
:FOR THIS CHARACTER LENGTH
:MANIPULATE DATA TO
*COME UP WITH THE
;PROPER SYNC CHARACTER

;LOAD THE CHARACTER
;DITTO

s:*+D
s:++D
i:++D

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

1421
1422
1423
14624
1425

1426

1427
1428
1429
1430
1431
1432
1433
144

1435

1436

1437
1438
1439
1440
1441

1442

1443

1444

1445

1446

1447
1448
1449
145C
1451

1452
1453

1454
1455
1456
1457
1458

005020
005026
005032
005040
005044
005046
005052
005060
005066

005072
005100
005104
005112

005116
005124

005130
005136
005142

005146
005150
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

001246
174336
000010
000014
174320
000002
000002
174276

013256
174264
177734
174252

012374
174240

177732
174216

000001

012700
012701
012702

012376
013256

112005
005037
112137
013704
043705
020504
001401
104002

MOV

174332

MOV

INCB

MOV

174312
174304

174246

174234

1%:

#1,R5
}S

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

2%:
3%:

MOvVB
(LR
MOVB
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

001246
001246
001246

012370

4%:

005302
001362

104400

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

;FLIP THE BYTES
sSET CHARACTER LENGTH
sTURN CLOCK OFF...
;AND ON

;SEL RX PRIMARY ADRESS
sSET 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
JWAIT

:BR IF MORE T0 GO
;ERROR==-NO RX DONE
;LOAD BUFFER POINTER

:LOAD RX BUFFER POINTER
;SET UP TO COUNT CHARACTERS

;GET A CHARACTER TO COPMARE

(RO) +,R5
TEMP2
(R1)+,TEMP2

:GET REC CHARACTER

MASK ,R5
R5.R4

JMASK OUT UNWANTED BITS
;DU THE CHARACTERS MATCH?

TEMP2 ,R4

:MOVE TO R4
;BR IF OK

;ERROR--DATA DOESN'T MAT(H

:NO--GO BACK FOR MORE

sALL DONE?

;SCOPE THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
“THIS TEST WILL XMIT AND RECV CHARACTERS
‘AT 5 BITS/PER/CHAR.

:DATA CHECKING WILL BE PERFORMED!

1461

1462
1463

TEST &

't"t.t*i'tfltttttt*ttt'i.'t"t't.*!'.'lt!""tt""t.'.tt'l'..'t.t."

000006
005606

1464

1465
1466
1467
1468
1471

#B1T73,aDASEC

l14.R0
RO
RO,aDQSEC
#B1T1,aDQSEC
#BIT1,aDQSEC
aDQREG

#-36. ,aDQSEC
aDQREG
#SYNC2,aDQSEC
aDQREG
#-38. ,@DQSEC
ADQRCSR
aDQTCSR
R5
aDQRCSR
2%

174260

1459
1460

1469
1470

TEMPZ2,aDQSEC
aDQREG

#RXBUF
F ,@DQSEC
aDQREG

174272

0u0044

PROGRAM INITIALIZATION AND START UP.

174344

174204

PAGE 30

174216

062705
001372
104001

08:29

001226
001216

?576:

#6,TSTNO

#TST7 NEXT

#RXBUFF ,RO

013256
5%:

005270

MOV

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
JCLEAR IT
- DONEE‘)

JBRANCH 1F NO

SEQ 0029

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

CZDQH

CZDQHE.P11

L1472
1473
|
1474
L1475
1476
|
1477
|
1478
|
1479
1480
1481
1482

1483
1484
1485
1486

1487
1488
1489
1490
1491
1492

1493

1494
1495
1496

1497

1498

005272
005300
005306
005314
005322
005326
005330

005332
005336
005344

112777

013737

000241
143737

005352
005360
005366
005374

000013
173752

005434

005460
005464

001246
012370

173770
000010

005400
005406
005412
005414
005420
005426
005440
005446
005452

000911
013052
177740
012370
001510

001247
001246
001246
001246

005346

105277

012370
001246

173700

173636

#11,3aDQREG

BICB
TST

MASK
, TEMP2

BPL
CLC
RORB

BICB
CLC
RORB
MGV
MOV
MOV

INCB

MOV
MOV

173764

012374
173672

173704

10%:

012372
012374
173776

173744
173736

MOvB

MOV
MOV

001246

001247

SWAB
BIS

—D-l_a_aog
VLN E Y @ LVe )

P RWYLVE
@ Rele N(o XY, P
~e B

= = e =
no NINVRNUNUNUNOND

—

b e

e o

b e

D e

b =

vV
i
i vVivvwovonaonwn

012702

005552
005556

005566
005572
005576
005600

112005

005037
112137
013704
043705
020504
001401
104002
005302
001362

104400

000044

SYNC , TEMP2

#177740 ,MASK
DQSTAT
108

TEMP2

K
, TEMP2+1
MAS
TEMP2+1

TEMP2,SYNC1
TEMP2,SYN(2

TEMP2,aDQSEC
aDQREG

#B1T3,aDQSEC

#13,R0
RO
RO,aDQASEC

#BI1T1,aDASEC
#BIT1,aDQSEC

aDQREG
#RXBUF
F ,aDQSEC
aDQREG
#-36.,aDQSEC
aDQREG
#SYNC2,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
aDQRCSR

173724
173712

173666

1%:

2%:

3%:

001246
001246
001246
012370

MOV
MOV

mMovB
CLR
MOvB
MOV

BIC
CMP
BEQ
4%:

HLT

DEC
BNE
SCOPE

;SELECT THE SYNC REG
sLOAD SYNCS
sLOAD THE MASK
;SET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?
;IF YES,BR.

sCORRECT SYNC CHARACTER
;FOR THIS CHARACTER LENGTH
;JMANIPULATE DATA TO
;COME UP WITH THE

;PROPER SYNC CHARACTER
;LOAD THE CHARACTER

;DITTO
;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
sSET ADRESS
;SEL RX PRIMARY CHAR COUNT
sSET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
;SEL TX PRI CHAR COUNT
;SET CHAR COUNT
;SET RX GO
JSET TX GO

:START TIMING
;1S DONE UP?
;BRANCH IF YES

#TXBUFF ,RO
#RXBUFF ,R1

;BR IF MORE TO GO
;ERROR=-NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER

#1,R5
}S

000001

012376
013256

PAGE 31

SEQ 0030

PROGRAM INITIALIZATION AND START UP.

174070

000002
000002
173730
013256
173716
177734

177732
173650
173650

v
AV,
N

08:29

(RO) +,RS
TEMP2
(R1)+,TEMP2
TEMP2 ,R4
MASK ,R5
R5.R4

JWAIT

;SET UP TO COUNT CHARACTERS
:GET A CHARACTER TO COPMARE

*GET REC CHARACTER

sMOVE TO R4
sMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATC(H?
BR IF OK

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

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

:THIS TEST WILL XMIT AND RECV CHARACTERS

;:++D

;;00[)

.-.'OOD

| CZDQH

MACY11 30A(1052)

. CZDQHE.P11

03-DEC-B0

03-DEC-80 08:27

;DATA (CHECKING WILL BE PERFORMEC!

005606
005614

1535 005622
1536 005624
1537 005630

1541
1542

005632
005634
005636

012737
012737

104413
012700
005001

005020
105201
100375

000007
006154

001226
001216

"t"'.fi'."""'Qffi'.""."'t"'..QQ'.Q.Q"'Q"'..""...."'Q...'Q.

T7ST7:

013256
5%:

112777
013737

000011
013052

173522
001246

005662

143737

012370

001246

005676
005700

000241
106037

005640
005646

1545 005670 005737 001510
1546 005674 100003
1547
1548

1549 005704

001246

143737 012370 001247

1550 005712 000241
1551 005714 106037 001247
1552 005720 013737 001246
1553 005726 013737 001246
1554 005734 013777 001246
1555 005742 105277 173422
1556 005746 012777 000010
1557

005754

012700

000012

042777

173404
000002
000002
173362
013256

005760
005762
005766

000300
050077
052777

1562 006002
1563 006006
1564 006014
1565 006020
1566 006026
1567 006032
1568 006040
1569 006044

105077
012777
105277
012777
105277
012777
105277
012777

1558
1559
1560
1561

1570
1571
1572
1573
1574
1575
1576

1577
1578
1579

1580
1581

1582

1583

005774

006052
006056
006062
006064
006070
006072
006076

006100
006102
006106

006112

006116

006120

005277
005277
005005
105777
100404
062705
001372

104001
012700
012701

012702
112005

005(37

173350
177734
173336
012374
173324
177732

173302
173302

173270

00(044

001246

MEMCLR
MOV
CLR

10%:

012372
012374
173430
173416

BI(B

MASK , TEMP?

CLC
RORB

BICB

CLC
RORB
MOV
MOV
MOV
INCB
MOV
SWAB
BIS
BIS
BIC

CLRB
MoV
INCB
MOV
INCB
MOV
INCB
MoV

173356

173344

173332
173320
1%:

2%:
3%:

#RXBUF F ,RO

MOv3
MOV

MOV

173376
173370

#7,TSTNO
#TST10,NEXT

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

CLR
INCB
BPL

TST
BPL

000001

012376
012256

MOV
MOV

MOV

1543 005654 012737 177700 012370
1544

TEST 7

;

1531

1538
1539
1540

SEQ 0031

;AT € BITS/PER/(HAR.

}2%3

1533
1534

PROGRAM INITIALIZATION AND START UP.

1528

1532

PAGE 32

08:29

INC
INC
CLR
T5TB
BMI
ADD
BNE

HLT
MOV
MOV

MOV
MOvB
CLR

#177700,MASK
DQSTAT
108

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTFR
JSET UP TO CLEAR THE BUFFER
;CLEAR IT
;DONE?
sBRANCH IF NO

JSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
JSET UP A MASK TO GET THE
;SINGLE SYNC CHARA(CTER?

;1F YES,BR.

;:v*D
3%

;MANIPULATE DATA TO

;%D

TEMP2

;CORRECT SYNC CHARACTER
;FOR THIS CHARACTFR LENGTH

TEMP2+1
TEMP2,SYNC1
TEMP2,SYNC?2
TEMP2,aDQSE(C
aDQREG
#8173,aDQSEC

;COME UP WITH THE
;PROPER SYNC C(HARACTER
;LOAD THE CHARACTER
;DITTO
;LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;SET TEST LOOP

RO
RO,aDQSEC
#81T1,aDASEC

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

aDQREG
#RXBUFF ,@DQSEC
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC2,aDQSEC
aDQREG
#-38. ,aDQSEC

;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY (HAR COUNT
sSET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
;SEL TX PRI CHAR COUNT
sSET CHAR COUNT

MASK , TEMP2+1

#12.R0

#8171,aDQSEC

aDQRCSR
aDQTCSR
RS
aDQRCSR
2%
#1,RS
1%

1
#TXBUFF ,RO
#RXBUFF ,R1

#36. ,R2

(RO) + RS

TEMP?

sAND ON

;SET RX GO
;SET TX GO
;START TIMING
;1S DONE UP?
;BRANCH IF YES
JWAIT
;BR IF MORE TO GO
;ERROR-=-NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER

;SET UP TO COUNT CHARACTERS
;GET A CHARACTER TO (OPMARE
:s

CZDQH

MACY11 30A(1052)

(ZDQHE .P11
1584
1585
1586
1587

1588

1589

1590
1591
1592

03-DEC-BO

03-DEC-80 08:27

0061264
006130
006134
006140
006142

006144

006146
006150
006152

112137
013704
043705
020504

08:29

MOVB
MOV
BIC
CMP

(R1)+,TEMP2
TEMP2 R4
MASK ,RS
RS.R4

;GET REC (HARA(TER
:MOVE TO Ré4
JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?

HLT

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

BEQ

001401

104002

PROGRAM [NITIALIZATION AND START UP,

001246
(01246
012370

DEC
BNE
SCOPE

L$:

005302
001362
104400

PAGE 33

R2
3%

:BR_IF OK

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

1595

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

1597

*AT 7 BITS/PER/CHAR.

sTHIS TEST WILL XMIT AND RECV CHARACTERS

1596

:DATA CHECKING WILL BE PERFORMED!

}283
¥

1600
1601

1602
1603

006154
C06162

1604 006170
1605 006172
1606 006176
1607 006200
1608
1609

006202
006204

012737
012737

104413
012700
005001
005020
105201
100375

006206
006214
006222
006230
006236

112777
013737
(12737
143737
005737

1616
1617

006244
006246

000241
106037

1619
1620
1621

006260
006262
006266

000241
106037
013737

1610
1611
1612
1613
1614

1615

006242

1618 006252

100003

000010
006522

001226
001216

1625

000011
013052
177600
012370
001510

173154
001246
012370
001246

001246

001247
001246

1626

1627
1628
1629

1630

1631

1632

1633
1634

1635
1636
1637
1638
1639

013777
105277

001246
173054

006322

012700

000011

006326
006330
006334
006342

006350

300
050077
052777

042777

105077

000010

173036
000002

012372

173062
173050

173030

002

173022

173014

MOV
MOV

10%:

;CLEAR ALL THE DQ11
:LOAD THE BUFFER POINTER
JSET UP TO CLEAR THE BUFFER
:CLEAR IT

MOVB
MOV
MOV
BICB
TST

#11,3DQREG
SYNC, TEMP?
#177600 ,MASK
MASK , TEMP?
DQSTAT

;SELECT THE SYNC REG
:LOAD SYNCS
sLOAD THE MASK
JSET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?

CLC
RORB

TEMP?2

CORRECT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH

TEMP2+1
TEMP2,SYNC1

;COME UP WITH THE
"PROPER SYNC CHARACTER
:LOAD THE CHARACTER

MOV
INCB

TEMP2,aDQSEC
aDQREG

MOV

#B1T3,aDQSEC
#11,R0

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

RO
RO,aDQSEC
#BI1T1,aDQSEC

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

aDQREG

;SEL RX PRIMARY ADRESS

aDQREG

:SEL RX PRIMARY CHAR COUNT

aDQREG
#SYNC2,@DQSEC
aDQREG
#-38, ,aDQSEC
aDQRCSR

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

INCB
BPL

BI(B

CLC
RORB
MOV

MOV

SWAB
BIS
BIS
BIC

(LRB

006354

012777

013256

173010

MOV

006366

012777

177734

172776

MOV

006362

006374
006400
006406
006412
006420

105277

105277
012777
105277
012777
005277

173002

172770
012374
172756
177732
172734

172764

172752

#10,TSTNO
#TST11 NEXT

#RXBUFF ,RO
R1
(RO) +

MEMCLR
MOV
CLR
CLR

BPL

143737 012370 001247

012777

TST10:

5%:

006302
006310
006314

W' W

""'l"'t'tt"'t"'."Q"'.Q".'QiQti"..'tt'..'tt"".""""Q"'Q'

013256

1622 006274 013737 001246 012374

1623
1624

INCB

INCB
MOV
INCB
MOV
INC

R1
5%

108

MASK , TEMP2+1

TEMP2,SYN(2

#31T1,aDQSEC

#RXBUFF ,@DQSEC
#-36. ,aDQSEC

;DONE?
;BRANCH IF NO

;IF YES,BR.

so*+D
siv*p

*MANIPULATE DATA TO

ss*%d

:DITTO
:

;AND ON

;SET ADRESS

:SET CHAR COUNT

SEQ 0C3¢

03-DEC~-B0
MACY11 30A(1052)
(2004
03-DEC-8 0 08:27
CZDQHE.P11
1640
1641
1642
1643
1644

1645

1646
1647
1648
1649
1650
1651

005277
005005

172734

062705
001372

000001

105777
100404

(08:29

ADD

1655

1656

1661

MOV

re ¥

MOV

3%:

1657
1658
1€59

1662

HLT

MOVB
CLR
MOVB
MOV
BIC
CMP
BEQ

001246
001246
001246
012370

1652
1653
1654

1660

INC
(LR
1STB
BM]
BNE

01237¢
013256
000044

HLT
DEC

4%:

BNE
SCOPE

104400

1663

aDQTCSR
RS
aDQRCSR
2%
#1,RS
1%

:SET TX GO

;START TIMING

;1S DONE UP?
:BRANCH IF VYES

JWAIT

#RXBUFF
,R1
#35. ,R2

;BR IF MORE TO GO
:ERROR==NO RX DONE
;LOAD BUFFER POINTER
:LOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS

(RO) +,R5

JGET A CHARACTER TO (OPMARE

(R1)+,TEMF?2

;GET REC CHARA(TER
;MOVE TO R4
;MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?
;BR IF OK
;ERROR=--DATA DOESN'T MAT(CH
JALL DONE?
;NO--GO BACK FOR MORE
;SCOPE THIS TEST

1
#TXBUFF ,RO

TEMP2

TEMP2 R4
MASK ,R5
R5.R&
4%

1665

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

1667

:DATA CHECKING WILL BE PERFORMED!

1664

:AT 8 BITS/PER/CHAR.

1666

1668
1669
1670
1671
1672
1673
1674
1675
1676

SEQ 0033

PROGRAM INITIALIZATION AND START UP.

1%:

172722

PAGE Jsé

TEST

oy
3
Al
AR R R R A R32233
%3322
222 AR
22223
23232332322
Y22322232322222222

012737
012737
104413

TST11:

000011

007070
013256

5%:

000011
013052
177400
012370
001510

001246

012370

013737
013737
013777
105277
012777
012700

MoV

001247
001246
001246
001246
172506
000010
000010

(LR

#11,TSTNO
#TST12 NEXT

#RXBUFF ,RO
R1
(RO)+
R1

172606

#11,3DQREG

012370
001246

MASK
, TEMP?2

SYNC, TEMP?2

001246

#1776400,MASK

DQSTAT
10%
TEMP?2

MASK, TEMP2+1

10%:

TEMP2+1
TEMP2,SYNC]

TEMP2,SYNC?

INCB
MGV

TEMPZ2,aDQSEC
aDQREG

08173 aDQSE(

0.R0

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

;LOAD SYNCS
:LOAD THE MASK

JSET UP A MASK TO GET THE

sSINGLE SYNC CHARA(TER?
;1F YES,BR.
CORRECT SYNC CHARACTER
FOR THIS CHARACTER LENGTH
;COME UP WITH THE

;PROPER SYNC CHARACTER
;LOAD THE CHARACTER

;DITTO
;.OAD THE SYNC REGISTER
,SEL THE MISC REGISTER
sSET TEST LOOP

s:++D
si**D

MACY11

CZDQHE. P11
1696
1697
1658
1699
1700
1701

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

006674
006676
006702
006710
006716
006722

172470

006730

il oo
)
il
il
il
i
i
il
D
D cal)
il ail)
el aild wald
il
i

NNNNNNNNNYNNNNNNNNNY
NNV
D DD
Ld Do
WONOWNSWN
20O VOOV
WA —

172462
172654

013256

172442

172434
177734
172422

012374

172410
177732
172366
172366

006766
105777
100404

000001

012700
012701
012702

012376
013256
000044

112005

005037
112137

013704
043705
020504
001401

PROGRAM

TSTB

ADD
BNE
HLT

MOV
MOV
MOV
MOVB

(LR

001246
001246
001246
012370

104002

MOVB
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

4$:

104400

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

aDORC SR

BMi

@DQREG
:-36 ,@DQSEC
@DQREG
nsv~c2 @DQSEC
@DORE
#-38. aoosec

INC

CLR

2%:

FLIP THE BYTES
sSET CHARACTER LENGTH
*TURN CLOCK OFF...
*AND ON
:SEL RX PRIMARY ADRESS

#RXBUFF ,@DQSEC

INC

1$:

SEQ 0034

RO
RO,aDQSEC
#B1T1,aDQSEC
#B1T1,aDQSEC
@DQREG

MOV

INCB
MOV
INCB
MOV
INCB
MOV

172404

INITIALIZATION AND START UP.

SWAB
BIS
BIS
BIC
CLRB

172416

005302
001362

PAGE 35

172430

172354

062705
001372
104001

08:29

000002
000002

172446

006734
006742
006746
006754

CZDQH

aDATCSR

:SET ADRESS

“SET RX GO
“SET

TX GO

*START TIMING

*BRANCH IF

@DORCSR
#1,RS
1%
1

#TXBUFF ,RO
#RXBUF F .R1
#36. .R2
(RO)+,RS

TEMP?2

(R1)+,TEMP2
TEMP2 R4
MASK ,RS
RS ,R4
43
2
R2

:1S DONE UP?

YES

TWAIT
*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

*GET REC CHARACTER
*MOVE TO R4
*MASK OUT UNWANTED BITS
DO THE CHARACTERS MATCH?
:BR IF OK
*ERROR==DATA DOESN'T MATCH
*ALL DONE?
*NO=--GO BACK FOR MORE
“SCOPE THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
STHIS TEST~WILL XMIT AND RECY CHARACTERS

*AT 9 BITS/PER/CHAR.

‘DATA CHECKING WILL BE PERFORMED'

TEST

A2 2222222322203
2233323232332 23333332223232322322222223

000012
007420

TsT12:

MEMCLR

013256

177000

001246

#12,TSTNO

#TST13, NEXT

MOV

#RXBUF F ,RO

(LR

(RO) +

CLR

;CLEAR ALL

THE

D@11

:LOAD THE BUFFER POINTER

:SET UP TO CLEAR THE BUFFER

INCB

*DONE
?

MOVB
MOV

#11,aDQREG
SYNC , TEMP?

BIC

MASK. TEMP2

BPL

000011
013052

012370

MoV

MOV

#177000 MASK

“CLEAR [T

*BRANCH IF NO

SSELECT THE SYNC REG
*LOAD SYNCS

:LOAD THE MASK

SSET UP THE MASK FOR THE

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

1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763

007152
007154

007160

007164
007166
007174
007176

000241

006037
005737
100404
012737
000403
013737
013737
013777
105277

ROR

001246
001510

012372

001246
001246
001246

012372
012374

000010
000007

172140

172144

172126

013256

172072
177734
172060

012372

172046
177732
172024
172024

172152

20%:

aDAREG

#B173,aDQSEC

#7 RO

RO
RO,aDQSEC
#81T1,aDQSEC
#BIT1,aDQSEC
aDQOREG

#RXBUF
F ,aDQSEC
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC

172100
172066

172054
172042

aDQRCSR
aDQTCSR
RS
aDQRCSR
2%

1%:

#1,R5
}S

000001

012702
012005
012104
043705
020504
001401
104002
005302
001367
104400

ST ERRRFRRERER

1789

TEMP2
DQSTAT
108
#-1,SYNCT

208
TEMP2,SYNC1
TEMP2,SYN(C?2
TEMP2,aDQSEC

10%:

172120
172112

172012

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

012376
013256
000044

3
SEQ 0035

PROGRAM INITIALIZATION AND START UP.
CLC

177777

PAGE 36

08:29

3%:

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

012370

CMP
BEQ

MASK ,R5
R5,.R4

JSHIFT IT

SINGLE SYNC CHARACTER?
CONTINUE

:LOAD THE CHARACTER

SDITTO

sLOAD THE SYNC REGISTER
sSEL THE MISC REGISTER
sSET TEST LOOP
:FLIP THE BYTES
JSET CHARACTER LENGTH
;TURN CLOCK OFF...
;AND ON

;SEL
:SET
:SEL
.,ET

RX PRIMARY ADRESS
ADRESS
RX PRIMARY (CHAR COUNT
CHAR COUNT

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

;BRANCH IF YES
JWAIT

;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
:MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(CH?
:BR IF OK

;ERROR--DATA DOESN'T MAT(H

HLT
DEC
BNE
SCOPE

(%:

;CORRECT SYNC CHARACTER

sALL DONE?

:NO--GO BACK FOR MORE
sSCOPE THIS TEST

;TEST OF TRANSMITTER AND RECEIVER (HARATER LENGHTHS
sTHIS TEST WILL XMIT AND RECV CHARACTERS
*AT 10 BITS/PER/CHAR.

:DATA CHECKING WILL BE PERFORMED!

TEST 13

22222222222 22222222223222232333223233233 223222220200l

007420
007426

012737
012737

000013
007750

001226
001216

TSt 13:

MOV
MOV

#13,7STNO
#1ST14 ,NEXT

l
l
|

I
i

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

104413

012700

MEMCLR
MOV

013256

007446

007450
007452

000011
013052
176000
012370

001246
012370
001246

001246
001246
001246

012372
012374
171622

171576
000002
000002
171554
013256
171542

177734
171530

012372
171516
177732
171474

BMI
108:

20%:

171610

012701
012702
012005
012104
043705
020504

000044

MOV
BR
MOV
MOV

MOV
INCB
MOV
MOV

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB

171570
171562
171550

171536

MOV

INCB
MOV
INCB

171524
171512

MoV

INC

1%:

INC
CLR

TSTB

BMI

ADD

000001

012376
015256

BIC
CLC

MASK
, TEMP2

MOV

171474

171462

#11,3DQREG

TST

012372

BNE
2%:
3%:

012370

4%:

#RXBUFF ,RO

MovB
MOV

ROR

177777

171614
000010
000006

CLR
CLR
INCB

BPL

171710

001246
001510

1822

PAGE

3
SEQ 0036

PROGRAM INITIALIZATION AND START UP.

5%:

i)
il
D

S W =
—= OV~ AN

D aild
) il
ol
il

b add

i aai cad cad cacld

00 00 00 0o 0o 0o Co 0o Co

007434
007436
007442
007444

08:29

HLT

SYNC, TEMP2

#176000,MASK

TEMP2
DQSTAT
108
#-1,SYNCT
20%
TEMP2,SYNC]
TEMP2,SYNC2
TEMP2,aDQSEC

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

:SINGLE SYNC CHARACTER?
s 1F NO,BR.

;IF YES, MARK.
CONTINUE

:LOAD THE CHARACTER
:DITTO

RO
RO,aDQSEC
#81T1,aDASEC

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

#6,R0O

#31T1,aDQSEC
aDQREG

#RXBUF
F ,@DQSEC

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

#1,R5
1%
]

MOV
MOV
BIC
CMP
BEQ
HLT
DEC

(RO) +,R5

SCOPE

;SELECT THE SYNC REG

:LOAD SYNCS
;LOAD THE MASK

#B173,aDQSEC

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

BNE

:DONE?
:BRANCH IF NO

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

aDQREG

MOV
MOV

MOV

;CLEAR ALL THE DQ11
:LOAD THE BUFFER POINTER
sSET UP TO CLEAR THE BUFFER
:CLEAR IT

(R1)+,R4

MASK ,R5
RS .R4

;AND ON

;SEL RX PRIMARY ADRESS
sSET ADRESS
:SEL RX PRIMARY CHAR COUNT
;SET CHAR COUNT
sSEL TX PRIMARY ADDRESS
sLOAD THE SYNC CHAR
:SEL TX PRI CHAR COUNT
sSET CHAR COUNT
:SET RX GO
;SET TX GO
;START TIMING

;1S DONE. UP?
sBRANCH IF YES

SWAIT

;BR IF MORE TO GO
;ERROR=-NO RX DONE
:LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
sSET UP TO COUNT CHARACTERS

;GET ANOTHER CHAR
;GET A REC CHAR
:MASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
:BR IF OK

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

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

so++D
s:++D
ss++D

;:++D

;:4+D

1:+4D

——————————
S

(ZDQH

MACY11 30A(1052)

CZDQHE .P11

03-DEC°80

C3-DEC-80 08:27

E'Y

PAGE 38

08:29

1864

1865

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

1867

:AT 11 BITS/PER/CHAR.

$THIS TEST WILL XMIT AND RECV CHARACTERS

1866

:DATA CHECKING WILL BE PERFORMED!

}ggg
1872

007750

012737

1873
1874
1875
1876
1877

007756
007764
007766
007772
007774

012737
104413
012700
005001
005020

1879
1880
1881
1882

010000
010002
010010
010016

100375
112777
013737
012737

1885

010034

006037

000014

010300

001226

001216

1886
1887
1888
1889
1890
1891

1892
1893
1894
1895

1896
1897
1898

1899

1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911

1912
1913
1914
1915
1916

1917
}3}8

(10024
010032

010040
010044
010046
010054
010056
010064

010072
010100
010104
010112

010116
010120
010124
010132

010140
010144
010152
010156
010164
C€10170
010176
010202
010210

010214
010220
010222

010226
010230
010234
010236
010240

010244
8}8522

043737
000241

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
062705
001372
104001
012700

012701
012702

.'t"ttfi'fi‘t"t*'fi*.""'t't"i.t."..'....Q."QQ"Q.Q'..""'.Q"""

TST14:

013256
5%:

1878 007776 105201
1883
1884

TEST 14

;

1870

18?1

SEQ 0037

PROGRAM INITIALIZATION AND START UP.

000011
013052
174000
012370

171360
001246
012370

ROR

177777

012372

001246
001246
001246
171264

012372
012374

171272

10%:
20%:

171260

000044

MOV
INCB
MoV

SWAB
BIS
BIS

171240
171232

BIC

CLRB
MOV
INCB
MoV
INCB
MOV
INCB
MOV
INC

171220

171206
171174

171162
1$:

000001

012376
013256

TST
BMI
MOV
BR
MOV
MoV

MoV

171144

171132

INCB

BIC
CLC

001246

001510

171246
000002
000002
171224
013256
171212
177734
171200
012372
171166
177732
171144

MOV
MEMCLR
MOV
CLR
CLR
BPL
MOVB
MOV
MOV

001246

000010
000005

MOV

2%:

INC
CLR
TSTB
B8M]
ADD
BNE
HLT
mMov

MOV
MOV

#14,TSTNO

#TST15 ,NEXT

#RXBUFF ,RO
R1

;CLEAR ALL THE DQ11
:LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER

:DONE?

(RO) +

5%
#11,aDQREG
SYNC, TEMP2
#774000,MASK

MASK . TEMP2
TEMP2

DQSTAT
108
#-1,SYNCT
20%
TEMP2,SYNC
TEMP2, SYNC2

TEMPZ ,@DQSEC
ADGREG

#3173 ,3DQSEC
#5.R0
RO
RO,aDQSEC
#81T1,aDQSEC
#B1T1,aDQSEC
aDQREG
#RXBUFF ,@DQSEC
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
aDQRCSR
2%
#1,RS
1%
1
#TXBUFF ,RO

#RXBUFF ,R1
#36..R2

;CLEAR IT

sBRANCH IF NO
sSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK

;SET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
SSHIFT IT

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

: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
sSEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
sSEL TX PRI CHAR COUNT
sSET CHAR COUNT
;SET RX GO
;SET TX GO
;START TIMING
;1S DONE UP?

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

;LOAD RX BUFFER POINTER
:SET UP TO COUNT CHARACTERS

ii++D
s:+4D
si++D
si++D
ss**D
s:++D

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

08:29

1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930

010254

010256
010260
010264
010266

010270
010272
010274
010276

012005
012104
043705
020504
001401

PROGRAM INITIALIZATION AND START UP.
MOV
MOV

BIC
CMP
BEQ
HLT
DEC

012370

104002

4%:

005302
001367

BNE

;

104400

SCOPE

(RO)+,RS

(R1)+,R4

MASK ,RS
RS5.R4
43

2
R2

:GET ANOTHER CHAR
;GET A REC CHAR
:MASK OUT UNWANTED BITS
:DO THE CHARACTERS MAT(CH?
:BR IF 0K
:ERROR=-=DATA DOESN'T MATCH
sALL DONE?

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

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

1931

PAGE 39

1932
1933
1934

;AT 12 BITS/PER/CHAR.

;DATA CHECKING WILL BE PERFORMED'!

1935

1936
1937
1938
1939
1940
1941
1942
1943
1944
1945

012737
012737
104413
012700
005001
005020

105201
100375
112777

013737
012737
043737
000241
006037
005737

000015
010630

58:

000011
013052
170000
012370

010532
010540
010544

MOV
BIC
cLC
ROR
TST
BMI

001246
001510

001246
001246
001246
170734
000010
000004

012372
012374
170742

170650
012372
170636
177732
170614
170614

170730

170710
170702
170670
170656

170644

170632

CLR
CLR
INCB

MOV

012370
001246

012372

MOV

MOV
MEMCLR
MOV

BPL
MOVB

171030
001246

177777

l
3323
2233ittt
32 32222220
3322
23333323333
222222332232222222223

TST15:

013256

170716
000002
000002
170674

010502
010506
010514
010520
010526

001226
001216

TEST 15

10%:
20%:

MOV
BR
MOV
MOV
MOV

INCB

[0)")
MOV
SWAB
BIS

BIS

#15,TSTNO
HTST16 NEXT
#RXBUFF ,RO
R1

(RO)+
R1
5%

#11,aDQREG

SYNC, TEMP2

#170000,MASK

MASK
, TEMP2
TEMP2
DQSTAT
108

#-1,SYNCT

20%
TEMP2,SYNC1
TEMP2,SYNC2
TEMP2,aDQSEC
aDQREG

#B173,aDQSEC
#4 RO

RO
RO,aDQSEC
#81T1,aDQSEC

#B1T1,aDQSEC

aDQREG
#RXBUF
F ,aDQSEC
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
sCLEAR IT
:DONE?
sBRANCH IF NO
sSELECT THE SYNC REG
sLOAD SYNCS
;LOAD THE MASK
;SET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
SSHIFT IT
sSINGLE SYNC CHARACTER?
:IF NO,BR.
;IF YES, MARK.
s CONTINUE.
;LOAD THE CHARACTER
;DITTO
;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 CHAR
:SEL TX PRI CHAR COUNT

:SET CHAR COUNT
:SET RX GO

:SET TX GO

SEQ €038

|
|

CZDQH
MACY11 3CA(1052) 8OS-DEC-BO
CZDQHE.P11
03-DEC-80 0
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995

010550
010552
010556
010560
010564
010566
010570
010574
010600

005005
105777
100404

170602

062705
001372

000001

012700
012701
012702

012376

104001

08:29

CLR

ADD

#1.RS

MOV

#TXBUFF ,RO

MOV
MOV

3%:

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

012370

4%:

SEQ 0039

sSTART TIMING

820RCSR

BNE
HLT

2%:

TSTB

BMI

012005

PROGRAM INITIALIZATION AND START UP.

1%:

013256
000044

PAGE 40

1$
1

#RXBUFF
,R1

(RO) +,R5

;1S DONE UP?
;BRANCH IF YES
SWAIT
sBR IF MORE TO GO
;ERROR==NO _RX DONE
;LOAD BUFFER POINTER
:LOAD RX BUFFER POINTER

sSET UP TO COUNT CHARA(CTERS

;GET ANOTHER (HAR
;GET A REC CHAR
sMASK OUT UNWANTED BITS

(R1)+ ,R4

MASK RS
R5.R4

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

:ERROR==DATA DOESN'T MATCH
ALL

DONE?

:NO=--GO BACK FOR MORE

;SCOPE THIS TEST

1996

1997
1998

;TEST OF

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

sTHIS TEST WILL XMIT AND RECV CHARACTERS

;AT 13 BITS/PER/CHAR.
;DATA (CHECKING WILL BE PERFORMED!

TEST 16

;tt'."""i"“ AR

012737
012737

000016
011160

012700
005001
005020
105201
100375
112777
013737
012737
043737
000241

013256

104413

001226
001216

TST16:

5%:

000011
013052

160000

012370

MOV

CLR

170500

170404
000010
000003

000002

012374

170412

170400

170360
170352

R R AR AT AR AR AR AR R AR A AR

#16,TSTNO
#TST17 NEXT

#RXBUFF ,RO
R1

SYNC, TEMP2

#160000,MASK
MASK, TEMP2
TEMP2
DQSTAT
10%

1777
- 32372
77

012372

R R

#11,3DQREG

001246
012370
001246

001246
001510

001246
001246
001246

#-1,SYNCT

10%:

20%:

MOV

208

TEMP2 ,SYNC1
TEMP2,SYN(C?2
TEMP2,aDQSEC
aDQREG

#81T3,aDQSEC

#3,R0
RO
RC,aDQSEC
#B1T1,aDQSEC
#BIT1,aDQSEC

TR R AR AR AR AR

;CLEAR ALL THE D@1
;LOAD THE BUFFER POINTER
sSET UP TO CLEAR THE BUFFER
JCLEAR IT
;DONE?
;BRANCH IF NO
sSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
;SET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER

JSHIFT IT
sSINGLE SYNC CHARACTER?

J1++D

;I1F NO,BR.
d 4 YES MARK
.

s 294p

:LOAD THE CHARACTER
;DITTO
JLOAD THE SYNC REGISTER
;SEL THE MISC REGISTER

Ji++D

CON INUE

sSET TEST LOOP

:FLIP THE BYTES

sSET CHARACTER LENGTH

sTURN CLOCK OFF...
JAND ON

J:++D

so++D

:;OOD

fr_.,fi____fiw

| CZDQH

MACY11 30A(1052)

| CZDQHE .P11
u

3
:
|

2032
2033
2034

011020
011024
011032

105077
012777
105277

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

011134
011136
011140
011144

012005
012104
043705
020504

2051

2056

2057

2058
2059
582?

C11134

011146

011150

011152
011154
011156

03-DEC~80

03-DEC=-80 08:27

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 011124
2050 011130
2052
2053
2054
2055

170344
013256
170332

177734
170320
012372
170306
177732
170264
170264

08:29

170314

170302
1%:

000001

2%:
3%:

012370

104092

2079

2080
2081

2082
2083
2084
2085

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

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

HLT

:ERROR=-=DATA DOESN'T MATCH

R2
3%

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

;BR IF OK

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

;AT 14 BITS/PER/CHAR.
:DATA CHECKING WILL BE PERFORMED!

2068

2076
2077
2078

SEQ 0040

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

2065
5829

2072
2073
2074
2075

MOV
MOV
BIC
CMP
DEC
BNE
SCOPE

4%:

005302
001367
104400

2062

2070
2071

#-36.,DQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDATCSR
RS
aDQRCSR
2%
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF ,R1
#36. ,R2

;SEL RX PRIMARY ADRESS
;SET ADRESS
:SEL RX PRIMARY CHAR COUNT

BEQ

001401

2063
2064

2%9

MOV
INCB
MOV
INCB
MOV
INC
INC
CLR
1STB
BMI
ADD
BNE
HLT
MOV
MOV
MOV

oDQREG
#RXBUFF ,@DQSEC
aDQREG

CLRB
MOV
INCB

170326

012376
013256
000044

PROGRAM INITIALIZATION AND START UP.

170340

170252

PAGE 41

011160
011166

011174
011176
011202
011204

011206
011210
011212

011220

011226
011234
011242
011244
011250
011254

2086 011256
2087 011264

012737
012737

104413
012700
005001
005020

105201
100375
112777

013737

012737
043737

000241
006037
005737
100404

012737
000403

000017
011510

001226
001216

T1ST17:

013256
5%:
000011
013052
140000
012370

170150
001246

012370
001246

001246
001510

177777

012372

TEST 17

."i'tQ'tttttt'tt'flfii't"'*"*lfii.ii."*fi"'it.'fifi'.t."'t.i't"fi"tti

MOV
MOV

MEMCLR
MOV
CLR
CLR
INCB
BPL
MOVB
MOV
MOV
BIC
cLC
ROR
TST
BM]

MOV
BR

#17,TSTNO
#TST20 NEXT

#RXBUFF ,RO
R1
(RO) +

R1
5%
#11,aDQREG

SYNC, TEMP?2

#140000,MASK
MASK , TEMP2

TEMP?2
DQSTAT
10%
#-1,SYNCT

20%

:CLEAR ALL THE DQ11
:LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER
JCLEAR IT
;DONE?
:BRANCH IF NO
:SELECT THE SYNC REG
:LOAD SYNCS
;LOAD THE MASK
:SET UP THE MASK FOR THE
:CORRECT SYNC CHARACTER
JSHIFT IT
:SINGLE SYNC CHARACTER?
:IF NO.BR.

:1F YES, MARK.
:CONTINUE .

1:++D
s:++D
1i4+D

1:++D

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

2088
2089
2090
2091
2092
2093
2094
2055
2096
2097
2098
2099
2100
2101
2102

2103
2106
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116

2117

2118
2119
2120
2121
2122
2123
2124
2125
2126

2127
2128
2129
2130

2131
2132
2133
2134
2135

2136
2137
2138
2139
2140
2141
2142
2143

011266
011274
011302
011310
011314
011322
011326
011330
011334
011342
011350
011354
011362
011366
011374

011400
011406
011412
011420
011424
011430
011432
011436
011440
011444
011446
011450
011454
011460
011464

011464
011466
011470
011474
011476
011500
011502
011504
011506

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
(12701
012702
012005
012104
043705
020504
001401
104002
005302
001367
104400

001246
001246
001246
170054
000010
000002
170036
000002
000002
170014
013256
170002
177734
167770
012372
167756
177732
167734
167734

08:29 PAGE 42
PROGRAM INITIALIZATION AND START UP.

012372
012374

170062

10%:

MOV

20%:

MOV
MOV

INTB

170050

MOV
MOV

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB

170030
170022

170010

167776

167722

012376
013256
000044

3%:

4%:

aDQREG

#RXBUFF ,aDQSEC

aDQREG

;AND ON

:SEL RX PRIMARY ADRESS
;SET ADRESS

:SEL RX PRIMARY CHAR COUNT
;SET CHAR COUNT

MOV

#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS

:SET CHAR COUNT
;SET RX GO
;SET TX GO
:START TIMING

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

012370

#BiT1,aDQSEC

:SET CHARACTER LENGTH
;TURN CLOCK OFF...

;LOAD THE SYNC CHAR

8MI
ADD
BNE
HLT
MOV
MOV
MOV

2%:

RO,aDQSEC
#BIT1,aDQSEC

#SYNC1,aDQSEC

TSTB

000007

3
;FLIP THE BYTES

aDQREG

aDQRCSR
2%

#1.RS

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

:SEL TX PRIMARY ADDRESS
:SEL TX PRI CHAR COUNT

;1S DONE UP?
;BRANCH IF YES
WAIT

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

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

:GET ANOTHER CHAR
:GET A REC CHAR
:MASK OUT UNWANTED BITS
:DO THE CHARACTERS MATC(CH?

:ERROR=-=DATA DOESN'T MATCH

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

A ]

3%
3599

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

MOV

iNC
INC
CLR

1%:

#2,R0O
RO

TEMP2 ,aDQSEC
aDQREG
#B173,aDQSEC

MOV

INCB

167752

;LOAD THE CHARACTER
;DITTO

#-36. ,aDQSEC

INCB

167764

TEMP2,SYNC1
TEMP2,SYN(C2

SEQ 0041

;BR IF 0K

;ALL DONE?

:TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
;THIS TEST WiLL XMIT AND RECV CHARACTERS
;AT 15 BITS/PER/CHAR.

:DATA (HECKING WILL BE PERFORMED!

;

TEST 20

S T

011510
011516
011524
011526
011532
011534
011536
011540

012737 000020
012737 012040
104413
012700 013256
005001
005020
105201
100375

001226
001216

7s120:

2222222222223 222222272233332323 3332333222220 0002 AR

MOV

#20,TSTNO
#TST21 NEXT

#RXBUFF ,RO
5%:

;CLEAR ALL THE D@11

;LOAD THE BUFFER POINTER

R1
(RO) +

;SET UP TO CLEAR THE BUFFER
;CLEAR IT

*BRANCH IF NO

; DONE?

n
~

g 8
o

n
~
W
~

o
Vi
s

28 NS oo

il
il

)
s
)

anld

)

100000

012370

001246
001246
001246

012372
012374

000010
000001

167520

167532

SYNC, TEMP?2

MOV
MOV
BIC

#100000,MASK

, TEMP2
MASK

CLC
ROR
TST

TEMP?
DQSTAT
108
#-1,SYNCT

203
TEMP2,SYNC1
TEMP2,SYNC2

10%:

20%:

TEMP2,aDQSEC
aDOREG

#B81T3,aDQSEC

#1.RO
RO
RO,aDQSEC
#B171,aDQSEC
#BI1T1,aDQSEC
aDQREG

167500
167472

#RXBUF
F ,aDQSEC

012014
012014
012016
012020
012024
012026
012030
012032
012034
012036

167446

n
~
~N

o—
-0
row
NN
NN
NN
»H

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

167434
167404
167404

167372

167422

1%:

#1,R5
}S

000001

(o 2

=% S35

V NNNN NNNNN
v
W
N
»H
or
o

) —d
D

) e
e
—

—d
D —

)
b —

——

b -

001246
012370
001246

012372

#11,3aDCREG

MOvB

167620

177777

PAGE 43

012702

012005
012104
043705
020504
001401

104002

005302
001367
104400

012376
013256
000044

SEQ 0042

PROGRAM [NITIALIZATION AND START UP.

001246
001510

i cnld ald

il o

el il

gooooooooooooo

013052

167524

noro N

e — —d

28SRIRE0SLBRIRAR

2183

013737
012737
043737

000011

08:29

167460

ole] OO0 [elolelelelolalololelele)

W
=0 Voo~ VIS WN—=O
ST&I& %Ooog\flmm

d
D
d
)
)
b —
acd
b cald
i
i
i
-l

VIV, IV, IV, IV, IV, 1V,

oo SLSTSTST.NT,NT,S1,¥}

n oo

2165

112777

167506

)

2145

D e

2144

|
I

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

ASLSLSLNLS
NSNS LSS NSNS 1=

2%:
3%:

MOV
MOV

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

MOV
MOV

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

MASK RS

BIC
CMP
BEQ

012370

4%:

R5.R&

HLT
DEC

BNE
SCOPE

:SELECT THE SYNC REG
:LOAD SYNCS
;LOAD THE MASK

:SET UP THE MASK FOR THE
:CORRECT SYNC CHARACTER
JSHIFT IT
:SINGLE SYNC CHARACTER?
;IF NO,BR.

;IF YES, MARK.
s CONTINUE.
;LOAD THE CHARACTER
: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 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
JWAIT

: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
*MASK OUT UNWANTED BITS
‘DO THE CHARACTERS MAT(CH?
:BR IF OK
*ERROR==DATA DOESN'T MATCH
ALL DONE?
*NO--GO BACK FOR MORE
*SCOPE THIS TEST

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

16 BITS/PER/CHAR,

;DATA CHECKING wILL BE PERFORMED:

2 399)
8Ll

;;000
3299
;;40[)

2290

MACY11 30A(1052) 03-DEC-B0
| CZDQH
11
03-DEC-80 08:27
© CZDOME.P

08:29 PAGE 44
PROGRAM INITIALIZATION AND START UP.

TEST 21

2200

SEQ 0043

'.'Q'ttt"t""'t...Q""'t"..QQ.Q".'.....QQQ.'.QQ.'t'.t""""..'

012040
012046
012054
012056
012062
012064
012066
012070
012072
012100
012106
012114
012122
012126
012130
012134
012136

012737
012737
104413
012700
005001
005020
105201
100375
112777
013737
012737
043737
000241
006037
005737
100404
012737

000021
014306

177777

012372

012146
012154
012162
012170
012174
012202

013737
013737
013777
105277
012777
012700

001246
001246
001246
167174

012372
012374

050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705

167156

[slelelelelelolelolelelolalelsle]

012210
012214
012222
012230
012234
012242
012246
012254
012260
012266
012272
012300
012304
0
2
6
0

012005
012104
043705
020504

i
b

001372

2344
2346
2350
5354

b
D
o
d e
d
—d

000300

104001
012700
012701
012702

6
30
334

000403

356
l 360

001401
104002

001226
001216

Ts121:

5%:

000000

MOV
MOV

BIC
CLC

ROR
TST

167202

013256
167122

167130

012372

167104

167076
177732
167054
167054
167042

BMI

10%:

20%:

000044

012370

MOV

#11,aDQAREG

SYNC, TEMP?2

#G00000,MASK

MASK
, TEMPZ
TEMP?2
DQSTAT
108

#-1,SYNCT

20%
TEMP2,SYNC1

TEMP2,SYN(C2

TEMP2,aDQSEC
aDQREG

#B173,aDQSEC

#0.R0
RO
RO,aDQSEC
#3171,aDQSEC

#RXBUF
F ,@DQSEC

aDQREG
#-36. ,aDQSEC
aDQREG

167116

1€7072

1%:

#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
aDQRCSR

#1,R5
15

2%:
3%:

;CLEAR ALL THE D@11
:LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER
JCLEAR IT

#BI1T1,aDQSEC
aDQREG

000001

012376
013256

MOV
BR
MOV

INCB

167170

167150
167142

177734
167110

#RXBUF
F ,RO

CLR
CLR
INCB

MOVB

167270
001246
012370
001246

000002
000002
167134

MOV

BPL

001246
001510

0000

#21,TSTNO
#.EOP NEXT

MEMCLR

013256

000011
013052
000000
012370

MOV
MoV

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

(RO) +,R5
(R1)+ R4

RS,R4
48

: DONE?
sBRANCH IF NO
JSELECT THE SYNC REG
;LOAD SYNCS
:LOAD THE MASK

;SET UP THE MASK FOR THE
;CORRECT SYNC CHARACTER

SSHIFT IT

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

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

“FLIP THE BYTES

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

;SEL RY PRIMARY ADRESS
:SET ADRESS

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

;JSEL
SET
:SET
:SET

TX PRI CHAR COUNT
CHAR COUNT
RX GO
TX GO

:START TIMING

;1S DONE UP?
;BRANCH IF YES
JWAIT

;BR IF MORE TO GO

sERROR=-NO RX DONE

;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
sSET UP TO COUNT CHARACTERS
;GET ANOTHER (HAR
JGET A REC CHAR
*MASK QUT UNWANTED BITS
;DO THE CHARACTERS MAT(H?
:BR IF

;ERROR==DATA DOESN'T MATCH

".'QOD
Ji+4D
';OOD
J.++D

so++D
Ji++D

CZDQH

MACY11 30A(1052)

CZDQHE.P11

03-DEC-80

03-DEC-80 08:27

08:29

2256 012362 005302
2257 012364 001367
2258 012366 104400

2259
2260
226!

2262

012370

2265

012376

2263
2264

012372
012374

2266
2267
2268
2269
2270
2271
2272
2273
22764
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292

012376
012400
012402
012404
012406
012410
012412
012414
012416
(012420
012422
012424
012426
012430
012432
012434
012436
012440
012442
012444
012446
012450
012452
012454
012456
012460
012462

2303

012706

2293
2294
2295
2296
2297
2298
2299
2300
2301
2302

2304
2305
306

2307
2308
2309
2310
2311

012464
012466
012470
012472
012474
012476
012500
012502
012504
0122

012706
012712
012716

012722
012726
012734

012742
012746

000000

026
026

177377
177577
177677
177737
177757
177767
177773
177775
177776
000100

(012705
152777
142777
005077
105277

166424
166416

DEC
BNE
SCOPE

MASK:

.BYTE
.BYTE

166434
166426

18%:

R
3%

26,26
26,26

*B<11111711111111111>
~B<0000000000000000>
~8<1010101010101010>
~B<0101010101010101>
~B<0000000000000001>
~B<0000000000000010>
~B<C000000000000100>
~B<0000000000001000>
~B<0000000000010000>
~B<0000000000100000>
~8<0000000001000000>
~B<0000000010000000>
~8<0000000100000000>
~B<0000001000000000>
~8<0000010000000000>
~8<000010000¢000000>
~B<0001000000000000>
~8<0010000000000000>
~8<0100000000000000>
~B<1000000000000000>
*B<0111111111111111>
*B<1011111111111111>
*B<1101111111111111>
*B<1110111111111111>
“B<1111011111111111>
*B<11111011117111111>
*B<1111110111111111>

MEMCLR:

166446
166446
166444

0000720
000020
000140

TXBUFF:

177777
000000
125252
052525
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
(040000
100000
077777
137777
157777
167777
172777
175/77
176777

005077
005077
005077

PAGE 45

PROGRAM INITIALIZATION AND START UP.

SYNC1:
SYNC2:

026
02¢

*B<1111111011111111>
*B<111111110111111171>
*B<1111111110111111>
*B<1111111111011111>
*B<1111111111101111>
*B<1111111111110111>
*B<1111111111111011>
*B<1111111111117101>
AB8<1111111111111110>
100
.BLkW
(LR
(LR
(LR

aDQRCSR
aDQTCSR
aDQERR

(LR
INCB

aDQSEC
aDQREG

MOV
BISB
BI(B

#16. ,R5
#3174 ,aDAREG
#140,aDQREG

;ALL DONE?
sNO==GO BA(CK FOR MORE
;SCOPE THIS TEST

SEQ 0044

03-DEC-80
MACY11 30A(1052)
CZDQH
7
:2
08
CZDQHE.P11
03-DEC-80

2312
2313

012752
012754

005305
001364

012762

105077

16
17
18
19

2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
233,
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348

012756

012766
012772
013000
013004

013012
013016
013022
013024
013026
013032
013032
013040
013046
013050
013052
€13054
013256
013256
013656
013660
013662
014064
014266
014270
014272
014274
014276
014300
014302
014304

105077

012705
112777
005077
112777

005077
105277
005305
001362
105077

112777
012777
000002
026
026
000000
013256

166406
166374

000020
000010
166366
000014
166354
166340

166370

026
026

2%:

166330

MSTCLR:

166324

.SYNC:
SYNC:

TXBFA:

:
RXBUFF

000200
026
026
000000
014064
000000
014266
000000
000000
000000
000000
000000
000000
000000
000000

026
026

aDREG
@DQRC(CSH

MOVB
(LR

#10,aDQREG
aDQSEC

CLR
INCB

aDQSEC
@DAIRCSH

#14 ,aDQREG

RS
2%
aDQR(CSH

DEC
8NE
CLRB
MOVRB
:9Y

#MISC. ,aDAREG
#B1T5,aDQSEC

.BYTE
.BYTE

26,26
26,26

SEQ 0045

RS
1%

DEC
BNE
CLRB
CLRB

MOVR

166356

166330

000012
000040

PAGE 46
PROGRAM INITIALIZATION AND START UP.

08:29

.=.+200

BLKkW

200

XSYNC:
.BYTE
26,26
XSYNC2: .BYTE
26,26
XTXBUF
:0
.=.+200
XRXBUF: 0
.=.+200
ERR:
0
:

POLY:

ADDR:

XPOLY:
CHAR:
COUNT:

O
0
O

GDCHAR: 0
DETCAR: 0
;END OF PASS
;TYPE

NAME

TEST

:UPDATE PASS COUNT
:CHECK FOR EXIT 10 ACT=-11

364

365
366
367

014334
014336
014340
0146342

014444

104402
016725
104411

W
— W

[ 1, WP o

b
)

005037
005037
005237
104402
016536
104402
016717
104411

—

014306
014312
014316
014322
014324
014326
014330
014332

S IVILN)

2356
2357
2358
2359
2360
2361
2362
2363

883

:RESTART TEST

.EOP:

(LR
(LR
INC

TYPE

MEPASS

TYPE
MCSRX

CNVRT
XCSR
TYPE

MVE (X

(NVR?Y

LSTERR

ERRFLG
PASCNT

;CLEAR LAST ERRCR PC

sCLEAR ERROR FLAG
:UPDATE PASS COUNT

2004

MACY11 30A(1052)

{ZDQHE.P11

2368
2369
2370
2371
2372
2273
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383

2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
239%
2395
239
2397
2398
2399
2400
26401
2602
5403

03-DEC-B0O

03-DEC-BO 08:27

014344
014366
014350
014352
014354
014356
014360
014362
014364
014366
014374
014400
014402
014410
014414
014416

614420
014420
014422
(14424
014426
014430
014432
014440
014444
014446
014450
014452
014454
014456
014460
014462
014464
014466
014470
014472

014452
104402
016733
104411
014460
104402
016744
104411
014466
013777
005337
001013
013737
013701
001405
000005
004711
000240
000240
000240
104414
012737
000137
000001
006
001360
000001
003
001350
000001
006
001230
000001
006
001232

08:29

PAGE 47

SEQ 0046

END OF PASS ROUTINE
XVE(
TYPE
MPASSX

CNVRT

XPASS
TYPE
MERRX

CNVRT

001230
001276

164606

001504
000042

001276

XERR
MOV

DEC
BNE

LOGICAL:

002254
002254

001214

RESTRT:

XCSR:

002

XVEC:
XPASS:

002

a#s? ,R1
RESTRT

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

DQNUM, SAVNUM

JSR
NOP
NOP

PC,(RT)

BEQ
RESET

NOP
(KSWR
MOV
{MP

#TST1,RETURN
TST1

.BYTE

6.2

BYTE

3.2

.BYTE

6.2

?QRVEC
?ASCNT

XERR:

002

;DISPLAY PASS (OUNT

MOV
MOV

?QRCSR

002

PASCNT
,@L IGHTS
SAVNUM
RESTRT

ERRCNT

6.2

: SCOPE LOOP AND INTERATION HANDLER
26407
2408

26409
2470
2«11
26412
2413
2414
26415
2416
2417
2618
2419
26420
2421

2422

2623

014474
014476

014504
014506
014510
014514
014516
014522
014524
014532
014534
014540
(014546
014550
014554

014560
014566

104474
032777

001407
000432
105777
100027
017700
000412
032777
001006
005237
023737
001012
105037
005037

012737

013737

040000

164474

: CKSWR
.SCOPE
BIT
T18T1:
BEQ
BR
TSTB

164470
164464

004000

164446

1%:

001224
001224

001312

BPL
MOV
BR

BIT

BNE
INC
(MP
BNE
CLRB
(LR
MOV
MOV

#B1T14,aSWR
1%

3%
aTK(SR

aTKDBR,RO

#SwW11,aSwR

2%
LPCNT

LPCNT, ICOUNT
3%

ERRFLG
LPCNT
#15,, 1COUNT
T
,RE TURN
NEX

(ZDQH

MACY1T

CZDQHE .P11

2624
2425

2426

2627
2428
2429
24630
2431
24632
2433
2634
2435
2436
2437
2438
2439
2640
2441
2442

2443

24644

24645
2446
2447
2L4LB

014574
014600
014602
014604

30A(1052)

03-DEC-B0
03-DEC-80 08:27
013776
000002
001407
000432

&
I
08:29 PAGE 48
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

001214

3%:

MOV

BRW:
BRX:

1407
632

RTI

RETURN, (SP)

;CHECK FOR FREEZE ON CURRENT DATA
014606
014610
014616
014620
014624

104414

032777
001402
013716
000002

001000

164362 TM

001220

.SCOP1:

1%:

(KSWR
BIT
BEQ
MOV
RTI

#SW09,aSwR
1%
LOCK, (SP)

sTELETYPE QUTPUT ROUTINE
014626
014630
014634
014642
014646
014650
014656
014660
014662
014664
014670
014672
014700
014704
014706
014714
014720
014722
014726
014730
014732

010546
017605
062766
005737
001004
032777
001024
105715
100014
105777
100375

012777
105777
100375

012777

105777
100375
112577
001345
012605
000002

.TYPE:

000002
000002
016316

000002

010000

164322

1%:

:
3008
164320

000015
164304

164312

000012

164276

164270

MOV
MOV
ADD

R5,=(SP)
al (SP) ,RS
#2,2(SP)

BNE
BIT
BNE

3008
#SW12,aSwR

BPL

iST

TSTB

MOV

#15,aTPDBR

BPL

000004
000002

017110

014756
000004

.~4

BPL

TSTB

BNE
MOV

RTI

.INSTR: MOV
MOV
MOV
ADD
< JNSTY: BVPE
.MSG:
MOV

1%:

aTP(SR

#12,3TPDBR

sASCII

014734
014736
014740
014746
014754
014756
014760
014764
014770
014774
014776

-4

MOV

mMOvB

(RS)

aTPCSR

ISTB

164264

TSTB

BPL

2%:

a#RDSW

aTPCSR

(R5)+,aTPDBR

1%
(SP)+ RS
STRING

R3,-(SP)
R4 ,=(SP)
@4 (SP), .MSG
#2,4(SP)

# INBUF
R4

MOV

#7 ,R3

BPL
MOvB
BI(B
(MPB
BNE

1%
aTKDBR, (R4)

#200, (R4)
(R4)
, 425
200¢

BR
(MPB

<INSTT
(RG)+ 415

TSTB

aTKCSR

TYPE ,MCRLF

015022

2008:

INPUT ROUTINE

JIS

IT <*G>

SEQ 0047

CZDQH
MACY11 30A(1052)
03-DEC-B0
CZDOHE.P11
03-DEC-BO 08:27
164152
164146

08:29

1646154

PAGE 49

GENERAL UTILITIES
BEQ

2%:

MOVB
TSTB

BPL
DEC
BNE

BR
< INSTE: MOV
MOV
«INSTG: TYPE

015066
015070

2%
R3

1%
. INSTG
R3,-(SP)

R&,=(SP)

016476

TYPE ,MCRLF

4008%:

BR
INSTR2: MOV
MOV

(TYPE OUT,ERROR,SCOPE,ETC.)

INSTR2

MQM
TST

BEQ

aTKDBR,aTPDBR
aTP(CSR

016316

RTI

A#RDSW

400%

.INST1

(SP)
+ ,R4

(SP)+,R3

)
d
dh
e
—

D D
D

QAN
= SO0
orOosrO

s CONVERT ASCII STRING TO OCTAL

2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501

105777

015052
015054
015056
015060
015062

2487

2488

001423
117777

015050

—

2486

015026
015030
015036
015042
015044
015046

2480
2481
2482
2483
2484
2485

(elelelalelolole!

.PARAM: MOV

R5,=(SP)

PARAM1
:

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

MOV

000004

015310
015312
015314
015316
015317
000004
017110
000015
000060

R4 ,=(SP)

# INBUF ,R4

#15,(R4)
PARERR

1%:

(R4) ,#60

PARERR

000067

(RG) 867

PARERR
#60, (R4)

000060

(R4)+ RS
#15,(R4)
LIMITS

000015

ASL

000015

PARERR:

016316

TST

1208
:

BNE
INSTER
BR
sTEST

020537

015312

;1S FIRST CHARACTER A <CR>

CMPB

BNE

LIMITS:

(MP

;1S CKSWR ROUTINE BEING USED

PART]

PARAM1
TO SEE

RS ,HILIM

NUMBER

IS WITHIN LIMITS

SEQ 0048

r
|

CZDQH

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

| CZDQHE .P11

|
|
|

2536
2537
2538
2539
2540
25641
2542
2543
2544
2545
2546
2547

015244

015246
015252
015254
015260

101365

020537
103762
133705
001357

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

015310

BITB

015316

BNE

PARERR
R5,LOLIM
PARERR
LOBITS,RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
015262

013704

015314

105337

000002
015317

1$:

PARTI:
LoLim:

015314
C15316

HILIM:

MOV
MOV
ADD
DECB
BNE
MOV
MOV
RTI

DEVADR,R4
R5, (R4)+
#2 ,R5
ADRCNT
1%
+ R4
(SP)
(SP) +.,RS

DEVADR: 0
LOBITS: O
ADRCNT=LOBITS+1

000000
000000
015317

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

016637

000004

001274

.SAV0S: MOV

4(SP) ,SAVPC

:SAVE RO-RS

015326
015332
015336
015342
015346
015352
015356

010537
010437
010337
010237
010137
010037
000002

001270
001266
001264
001262
001260
001256

sv0S:

MOV

MOV .
MOV

MOV
MOV
MOV
RTI

RS,SAVRS

R4,SAVR4
R3,SAVR3

R2,SAVR2

R1,SAVR1

RO, SAVRO

;RESTORE RO-R5

015400

013700
013701
013702
013703
013704

015410

000002

015360
015370

015412
015414
015416
015420
015422
015424
015426
015430

001256

.RESO5: MOV

001262
001264

MOV
MOV

MOV

013705

104402
016476
010046
010146
010346
010446
010546
017601

RTI

SAVRO,RO

SAVR1,R1

SAVR2,R2
SAVR3,R3
SAVR4 R4

SAVRS5 ,R5

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

000012

TYPE

MCRLF

.CNVRT: MOV
MOV
MOV
MOV
MOV

MOV

RO,=(SP)
R1.=(SP)
R3.=(SP)
Ré4.~(SP)
RS . =(SP)

,R1
212(SP)

SEQ 0049

—

(ZDQH

MACY11 30A(1052)

CZDQHE .P11

03-DEC-80

03-DEC-80 08:27

2592 015434

013737 017152

2594 015450
2595 015454
2596 015460
2597 015464
2598 015470
2599 015474
2600 015500
2601 015504

012137
112137
112137
013137
013704
113705
012700
010403

08:29

2603
2604
2605

015512
015516

015520

062703
110320

1%:
2%:

2613
2614

2615
2616
2617
2618

2619

2620
2621
2622
2623
2624
2625

2626
2627
2628
2629
2630
2631
2632

2633
2634
2635
2636
2637

2638
2639

015524
015526
015530
015532
C15534
015536

000060

015540
015544

015546
015552
015554
015560

015562

015566
015572
015574

015576
015600
015602

015606
015610
015616
015620
015622
015624
015626

015630
015632
015634

015636

012703
114023

017214

105337
001373
105013

015635

001322
013737
012605
012604
012603
012601
012600

4$:

015635

000040

6$:
015632

001250

BNE
MOV
MOVB
DECB
BNE
TSTB
BEQ
MOVB
DECB
BNE
CLRB

#060,R3
R3,(R0O)+

R4
Ré

R&4
RS
33

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

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

000002
000000
000000
015635
000000

CHRCNT
43
SPACNT
6$

#040, (R3)+

TYPE
MDATA
DEC
BNE

MOV
MOV
MOV
MOV
MOV
MOV

017152

SPACNT
5%
(R3)

WRDCNT
1%

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

:TRAP DISPAT(H SERVICE
"ARGUMENT OF TRAP IS EXTRACTED

“AND USED AS OFFSET TO OBTAIN POINTER

2640

Sfi;
2643

#177770.R3

cLC
ROR
CLC
ROR
DEC

015634

104402
017214
005337

BIC

(R1)+,WRDCNT
(R1)+,CHRCNT
(R1)+.SPACNT
a(R1)+,BINWRD
D
, R4
BINWR
CHRCNT.RS
#TEMP,RO
R4 .R3

MOV
MOVB
MOVB
MOV
MOV
MOVB
MOV
MOV

ROR

105337
001374
105737
001405

112723

#2,12(SP)

cLC

000241

000241
006004
000241
006004
005305
001362

ADD

ADD
MOVB

2606 015522 006004
2607
2608
2609
2610
2611
2612

TEMP, TEMP3

MOV

001250

2602 015506 042703 177770

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

2593 015442 062766 000002 000012
015632
015634
015635
015636
015636
015634
017152

PAGE 51

:TO SELECTED SUBROUTINE

2644
2645

015640 011646
015642 162716
015646 017616

000002
000000

2647

015654

042716

177001

2646 015652 006316

.TRPSR: MOV
SUB
MOV

TRPOK:

ASL

BIC

(SP) ,=(SP)
#2.(SP)
a(SP), (SP)

:GET PC OF RETURN
*=PC OF TRAP
“GET TRP

#177001, (SP)

“CLEAR UNWANTED BITS

(SP)

MULTIPLY TRAP ARG BY 2

SEQ 0050

r—

CZDQM

2650

03-DEC-80

MACY11 30A(1052)

CZDQHE.P11

03-DEC-80 08:27

015670

062716
017616
000136

08:29

PAGE 52

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

001314
000000

ADD
MOV
JMP

#.TRPTAB, (SP)

a(SP),(SP)
a(SP)+

;ERROR HANDLER

2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
12675
2676

015672
015674
015702
015704
015710
015712
015720
015726
015730
015734
015736
015742
015746
(15750
015752
015756
015760
015762
015764
015766
015772
015776
016002

104414

032777

010000

163276

CHLT:

CKSWR
BIT

BEQ

TSTB
BPL

163300

MOVB

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
TST
BNE
TYPMSG: TYPE
MTSTN

177001

017624
016070
016102
016114

001312
016114
e

#SW12,aSWR
XBX

aT”CSR
XBX
#207,2TPDBR

#5W15, aSWR

HALTS
siP).LSTERR

(SP) ,LSTERR
ERRFLG

(SP) ,RS

#2.R5
(RS) ,R4

R4
#177001

#.ERRTAB
R4
+ ,ERRMSG
(R4)
)
+ ,DATAHD
(R4
(R4) ,DATABP
ERRFLG
TYPMSG

DATABP
TYPDAT

CNVRT
XTSTN

TYPE
MERRP(

CNVRT

ERTABO

269¢
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703

016052
016060
016064
016066
016070
016072
016072
016076
016100
016102
016104
016110

005737
001402

177777
016070

001312

BEQ

#-1,ERRFLG
ERRMSG
WRKO.FM

ERRMSG: 0

000000

005737
001402
104402
000000
005737
001402

TYPE
MCRLF
MOvVB
TST
TYPE

104402

016102

016114

WRKO.FM:

TST

BEQ
TYPE

DATAHD: 0
TYPDAT: TST
BEQ

DATAHD
TYPDAT
DATABP

RESREG

;POINTER TO SUBROUTINE ADDRESS
s SUBROUTINE ADDRESS

;GO TO SUBROUTINE

SEQ 0051

|
|

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

2704

2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716

016112

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

104410

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

N &

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

CONVRT

163054
000002

001232
000400

163024

2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736

016156
016164
016166
016174
016200
016204
(016206
016210
016212
016214
016216
016220

032777
001407
013737
012706
000177
000002
000001
006
001274
000001
003
001226

002000

163014

001216
001200
163010

001214

016222
016222
016230
016232

012737
000000
000777

016234

2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758

016234
016234
016242
016246
016252
016256
016260
016262
016264
016266
016270
016274
016300
016302
016304
016310
016312
016314

002
002

000024

DATABP: 0
RESREG: RESOS
HALTS:
TST
BPL
PUSHRO
MOV
HALT
POPRO
EXITER: CKSWR
INC
BIT
BNE

ASWR
EXITER
2(SP) ,RO
ERRCNT
#SWO8, ASWR
1%
#SW10,aSWR
2%
NEXT
,RE TURN
#STACK,SP
aRE TURN

BIT
BEQ
MOV
1$:
MOV
JMP
2% :
RTI
ERTABO: 1
BYTE
6,2
SAVPC
XTSTN:
1
BYTE
3,2
TSTNO
:ENTER HERE ON POWER FAILURE

PFAIL:

Sggg

2759

SEQ 0052

MOV
HAL T
BR

#RESTART, 24

:SET UP FOR POWER UP TRAP
“HALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED
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
CLR
INC
BNE
TYPE
MPFAIL
CNVRT
PF TAB
CLR
(LR
MSTCLR
MEMCLR
JMP
1
3,2
TSTNO

#.PFAIL,24
#STACK,
SP
TEMP
TEMP
.4
;

- 1{»

“:SET UP FOR POWER FAILURE

o
a

ERRFLG
LSTERR
ARETURN

sCHECK SWITCH REGISTER ROUYINE,‘(HE(KS FOR “G TO ALLOW CHANGING

[

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

2760
2761
2762
2763
2764
2765
2766

;OF LOC.176.
;LOCATIONS USED:

016316
.CKSWR:

000042

016320
016324
016326

000176

001200

000007

2DSW:

WORD

TST
BNE
(MP
3NE

x4l
ouT
SWR
#SWREG,
ouT

8PL
MOV

ouT
aTKDBR, .MSG

TSTB

162642
162636
177600

014756
014756
014756

016446
016316

B8I1C
CMPB
BNE
.CNTLU:

016452
016440

PAGE 54
GENERAL UTILITIES (TYPE OUT,ERRCR,SCOPE,ETC.)

08:29

aTxCSR

#177600, .MSG
#7,.M56
ouT

;SOF TWARE SWITCH REGISTER PRESENT

;NO, GET OUT

JYES,WAIT FOR

READY GET CHARACTER

:AND STRIP OFF
; THE GARBAGE
:18 11T A <"®

TYPE,$CNTG

A#RDSW

COM

, $SMSWR
TYPE

RT
, SWREGC
CNV
INSTR, SMNEW

016461

PARAM

0
177777

001
016476
016316

.BYTE
ouT:

SWREG

0.1

TYPE ,MCRLF

a#RDSW

CLR

RTJ

020075

SWREGC
6’2
.BYTE
SWREG
LASCIZ
$CNTG:
LASCIZ
$MSWR:

053505

$MNEW:

002

000107
051127
047040
000

000077
051127
042514
051505
040440

052116
044777

052123
042116
020123
020110
000
051120
020115
040503
247516
041511
042522
00005%
051516

043040
027104
040524
020124
000040
050040
055104
000040

<377>/%G/

<377>/SWR= /

LASCIZ

NEW= /

.EVEN
MQM:
:
MCRLF
MPFA]L:

ASCIZ

ASCIZ
LASCIZ

MEPASS:

<377>/END PASS DZDQH

043517
047111
042524
042040
051505

MEXRZ:

043125

MERR3:

C1Z
clz

<377>
<377>/PWR FAILED. RESTART AT TEST /

<377>/R/
<377>/PROGRAM INDICATES NO DEVICES PRECSENT./

042523
LASCIZ

<377>/INSUFF ICIENT DATA!/

SEQ 0053

ey
———
———— e

CZDQH

MACY11 30A(1052)

CZDQHE .P11

03-DEC-80 08:27

2816
2817

016640
016646

5819

016656

5851

016670

2825

016717

2818

2820

5802
282%
2804
2806

03-DEC-80

044503
040504

047105
(40524

052377

051505

020124

MTSTPC: .ASCIZ

046377

041517

020113

MLOCK:

.ASCIZ

<377>/LOCK ON SELECTED TEST/

000041

016664

041520

000055

020072

MCSRX:

.ASCIZ

/CSR: /

126

041505

020072

MVECX:

.ASCIZ

/VEC: /

120

051501

042523

MPASSX: .ASCIZ

/PASSES: /

051105

047522

051522

MERRX:

.ASCIZ

/ERRORS: /

377

052377

051505

MISTN:

.ASCIZ

<377><377> /TEST NO: /

377 042523

020124

MNEW:

.ASCIZ

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

MERRPC: .ASC1Z

103

016724

000

016732

000

016740

035123

016752

020072

051123

016733

5831

016744

2833

016755

2835

C16770

2837
2838
2839
2840
2841
2842

016776
017004
017012
017020
017026
017034

053523
051040
020117
051447
051111
052103

052111
043505
050504
042040
042105
053111

3844

017043

120

035103

000040

020106
051440
177523
017076

050504
040524
000

030461
052524

2834,

016762

2836 016771

2843

5845

2846
2847
2848
2849

2850
2851
2852
2853
2854
2855

017042

020124

000

017050 046777

017056
017064
017072

017076
017100
017102
017104
017106

000002
006
0017244
006
001246

000040

000

047516

050101

020072
,

044103
052040
030461
051505
040440
027105

047440

XHEAD:

XSTATQ: 2
.BYTE
TEMP1
BYTE
TEMP2

003
0c2

/PC: /

377>
MAP
DQ11 STATUS/<
7>/
<37Of

6.3
6.2

EVEN

2856

2865

.ASCiZ

.EVEN

:BUFFERS FOR INPUT=OUTPUT

gggg
2859
2860
2861
2862
2863
2864

<377>/TEST PC=/

046105
020104
_ 000

2829

2832

SEQ 0054

051440
042524
052123

047117
041505
042524

016725

2830

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

2827

2808

PAGE 55

044506
020124

016654

016676
016704
016712

08:29

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

8}2

042012
050504
047516
042412
042012

052101
042440
051040

050130
042521

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

EM1:
EM2:
EM3:

LASCIZ
LASCIZ
LASCIZ

EMO:

.AS Clz

<15><12>/RECE[VER DONE PRIMARY NOT SET!/

DHO:

LASCIZ

<15><12>/EXPECTED

DHI1:
DHZ:

.ASE}%
.AS

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

FOUND

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

RX ADDR.
/

TX ADDR.

MASK /

——

(ZDAH

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

CZDQKE .P11

2866
2867
2868
2869

2870
2871
2872
2873
2874
2875

2876

2877
2878

2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
28%
2895
28%
2897
2898
2899
2900
2901
2902
2903

017556
017560
017562
017564
017566
017570
017572
017574
017576
017600
017602
017604
017606
017610
017612
017614
017616
017620
C17622
017624
017624
017626
017630
017632
017634
017636
017640
017642
017644
017646
017650
017652
017654
017656
017660
017662
017664
017666

017556

000005
206
001270
006
001266
006
001260
006
001256

006

012370
000002
003
014302
003
014274

000001
006
014266

000001

004

.EVEN
DTO:

004

PT1:

002
DT2:
.ERRTARB:

.END

6.1

6.4

.BYTE

6.4

.BYTE

6.2

SAVRO

002

6,4

.BYTE

SAVR1

004

002

SAVR5
.BYTE
SAVR4

001

006

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

MASK

2
.BYTE
GDCHAR
.BYTE
gHAR

.BYTE
ERR
0
0
0
EMO
0
0
EM1
DHO
DTO
EM1
DH1
DT1
EM2
DH2
DT2
EmM3
0
0

3,6
3.2
6.2

JHALT

JHALT
JHALT

SEQ 0055

MACY11 30A(1052) 03-DEC~B0
' CZDQH
| CZDQME.P11
03-DEC-80 08:27

= 000010

BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
8IT9 = 001000
014602
BRW
014604
BRX
CHAR
014274
CHARDT= 000010
001236
CHART
001240
CHAR2
001242
CHARS
CHRCNT 015634
CKSWR = 104414
CNTLU = 104415
CNVRT = 104411
CONVRT= 104410
014276
COUNT
001300
CREAM
CSRMAP 000220
DATABP 016114
DATAHD 016102
DETCAR 014304
DEVADR 015314
017436
DHO
017513
DH1
017541
DH2
DISPRE 000174
DLIGHT= 177570
DOACTV 001500
DQCROO 001400
DQCROT 001404
DQCRO2 001410
DQCRO3 001414
DQCRO4 (001420

1042
1233
1698

2097

5934
5924
5914
5904
5894
602#
6014

2162

1353
1767

2228

1423
1898

1491
1899

1492
1964

1560
1965

2030

2031

1418

1487

1556

1625

1694

1762

1828

1894

2229

2615+

26354
1012

2636
2389

2407

2431

2654

2713

2363

2367
2704

2371

2375

2684

2688

2747

2778

941+
972
2680
2698

1051+

1055+

1064

1065+

1066

1067+

2702
27014

2705#

754

9204

994+

995

969

977

2544
2892
2895
2898
957

948
743+

997

2308
2327

25544

749+

750+

1629

1422
1833

2880

2599

1561

1354
1832

23444

1960

6004
5994
5984
5974
5964
5954
1019
1020
1118+
6294
800#
801#
8024
2595+
8614
8634
855#
8534
23454
g17#
6984
2677+
2676+
23484
2506+
28654
28654
28654
6894
5744
669
8884
890#
8924

1160
1284
1699

=3 =2

26374

2598

727
718

—_—
N —
(o Yo o To 0
WO
—

25564

2547+

—l—l.—‘—hm—a—l

= 004000
= 010000
= 020000
= 040000
= 100000
= 000004

5944

SEQ 0056

723
731

S LS ECIAS
i oS 18
nN—=\0—=NO
N NSH0O 0o

BIT11
BIT12
BIT13
BIT14
BIT15
BIT2
BIT3

1630
2096

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

=0
ON\O OO 0o
OW—=NN—=W

8IT10 = 002000

609#
6104
27464
2508+
6114
6124
2597+
604#
6034

—_——d
D A ) Nt
d O = =

ABBIT = 002000
ACTBIT= 004000
ADDR
014300
ADRCNT= 015317
BABIT = 010000
8BBIT = 020000
BINWRD 015636
BITO = 000001
= 000002
BIT1

1045

1047

08:29

MACY11 30A(1052)

DACROS
DQCRO6
DQCRO?
DQCRI0
DACR11
DQCR12
DQCR13
DQCR14

001424
001430
001434
001440
001444
001450
001454
001460

8984
9004
9024
904
9064
9084
910#
9124

| DOCR16
DQCR17
DACSR

001470
001474
001506

9164
9184
923#

1064

1068

875#

1068+

1077

' CZDQH

CZDQHE.P11

'
.
'
|

DQCR15

DQERR
CQNUM
DQRCSH

03-DEC-B80 08:27

001464

001366
001504
001362

DQRCSR 001360
DQREG

DQRLVL
DQRVEC

DQSEC

DQSECH

C01370

001352
001350

001372

001374

DQSTAT

001510

DQSTO0
DQSTO1

001402
001406

DQST02
DQRSTO3
DQST04
DASTOS
DQSTO6
DQSTO7

001412
001416
001422
001426
001432
001436

PAGE 59

03-DEC-80

SEQ 0057

(ROSS REFERENCE TABLE == USER SYMBOLS

9144

g78#
702«
g76#

1435
5%82'

1081+«
739%
1077*
1501+
1911

879#

1083+

1082+
744
1078+

1083
746
2315+

1079

1179
922#
2321+

1160*

1708+
2109

1711
2172+

1776%
2175

1084

1085

1120%

1122«

1124+

1126*

1128+

1130+

1132+

2100*
2234+

2102«
2236

2104*
2308+

1127+

1168+
1222+
1357%
1497+
1637+
1814+
1959+

2098+
2232+

872#
8714

1071~
1069+

1072«
1070«

1073
1071

1157+
1156+

881#

924k

1820
889#
8914

8934
8954
8974
899#
9014
9034

1087+«

1066+
1886

1363+

1642
2106*

2091
2230%

1142+
1280+
1356+%
1485+
1561*
1638+«
1766
1839+
1963*
2035+
2158+
2231x

1297

1639+
2043

2038+
2210%

1139«
1278«
1354%
1431«
1560*
1636
1765«
1837+
1960%
2033«
2156
2229+

12%=

1573
2040+

2036«
2170

1085+«

1219+

1570%
1977
1166
1220%
1355%
1495
1635%
1774+
1946%

880#

1210%

1504
1974%
1165+
1214»
1348+
1493%
1633*
1772%
1906*

2326+

1208

2306+
2380
1779
2238+

1143%
1213%
1334*
1486%
1631%
1770%
1904*

1738«
1211
1292+
1472«
1626+
1768+
1902*

1204
936
2324»

2078+
2223

1086

1144«
1283
1358+«
1487+
1563*
1692+
1767*
1841+
1964*
2037+«
2161+
2233
1088+

1069
1952

1087

1167
1284*
1360*
16490%
1565+
169~
1769«
1892+
1965+
2039+
2162+«
2235«

1109

2018

1121+

1187+«
1285+
1362+
1491+
1567%
1697+«
1771
1894+
1967+
2090+
2163+
2237+«

1140

2084

1185+
1223*
1350«
1499%
1679
1827+
1966*

2397

1188+
1232%
1361+
1541%
1693*
1834+
1968+

1189+
1245+
1403*
1555%
1700*
1836+
1970%

1134+

1136+

2144+
2309+

2157+
2311+

1197+
1288+
1428+
1568+
1748+
1893+
2032«

1199«
1290+
1430+
1610+
1761+
1900+
2034+

1129+

1131«

1215+«
1347+
1423+
1500*
1629
1705+
1831+
1903+
2026*
2099+
2222+

1133«

1221+
1349+
1425+
1554+
1630+
1707+
1832+
1905+
2029+
2101+
2224+

1135«

1224+
1352+«
1427+
1556+
1632+
1760+
1833«
1907+
2030+
2103+
2227+

1137«

1233«
1353«
1429+
1559
1634+
1762+
1835
1958
2031+
2105+
2228+

1545

1614

1683

1754

1191+
1265+
1417*
1562%
1702+
1838+
1972+

1195+«
1289*
1418+
1494+
1623*
1699+
1775«
1898+
1971«
2095«
2167+
2318+

1198+
1291+
1421~
1496+
1625+
1701~
1826
1899+
1973+
2096+
2169+
2320+

1212+«
1293*
1422«
1498+
1628+
1703+
1828+
1901+
2024+
2097+
2171
2327+

1269

1338

1407

1476

2216

1845
2304*

1196+
1286+
1426%
1566+
1706+
1880+
2025+

1125+

2150

1432+

1842+
2241

119%+
1279+
1424x
1564%
1704
1840+
2012+

1123

1190+
1287+
1416%
1492%
1569%
1698+
1773+
1897~
1969+
2092*
2165%
2310+

1366

2164+
2314+

2166+
2317+

2168+
2379+

03-DEC~80C
MACY1? 30A(1052)
08:27
C-80
CZDQHE.P1
03-DE
CZDQH

LOCK
LOGICA
LOKFLG

LOLIM
LPCNT
LSTERR
MASK

MCRLF
M(SRX

MDATA
MEM(LR=

001220
014420
001313
015310
001224
001234
012370

2896
2899
2888
2891
2897
2900

1244
1204
942«
939«

2693
27234
27134

2661
2505+

2707#
2535

2469
8244
B45S#
8434
2480
6134

2511

2521
2507+

25354
2539
2434
23844

7914

7804
790#

651

827#
2504+
7924
7964

1267+
1475
1687
1988

22624
2477
2362
2613
85«4
2006

O —
~ 00

1379

1433+

1502+

1405+

1406
1618

- BN
PONU
W —

ICOUNT
INBUF
INIFLG
INSTER= 104404
INSTR = 104403
INSTR2 015076
JUMBIT= 940000
001202
LIGHTS
015240
LIMITS
LOBITS 015316

2749+

2305+

1448
1681+
1948+

1474
1682
1945

1295+

1364+

1158+

2893

2675%
2689
2708
1117=

2692+

2239+

1571«

2173

2894

23414
¢403
2357+
26964

2883

2714

2665+

2678

2664+
1336+
1544

2750+
1337
1549

2054

2080+

2081

2691

2785

27984

1328
2204

1397

1466

2420+

1234*

23474

2878

1105+

25534
2418
28594

2422+

2530
1023

24954
730
948+

2537
2417

943«
1268
1480
1724
2014+

2875
2493
2825#
2624
1116

2072

966+

2779
1140

957+

2377«

25554

2556

2585

28634
1259

2138

2421+
2662

1310
1543+
1751

1790

2752

1816+

2146+

1882+
2147

1883
2186

1535

1604

167%

1742

1612+
1856

1613

HALTS
HILIM

11764
1179+«
7954
8264

2107«

EXITER
GDCHAR

017352
C17400
003332

2865#
2865#
28654
28654

1193~

2041

ERTABO

017604
017616
017256
017317

1075+
1073«
947

1186+

014266
001232
001312
016070
016206
016140
014302
016120
015312
001222
017110
001310

017556

8744
B734
5734
28654
28764
2881#

1161+
1709+

Ny — Qo »
OOV

ERR
ERRCNT
ERRFLG
ERRMSG

EM3
ENDTS2

177570

1640+

1079«
1709+

001356
001354

8774

RS-

DQTLVL
DQTVEC
=
DSWR
eT10
DT1
DT?2
EMO
EM1
EM2

9154
917%
919#

O=000
~NwW
00
N0 W

001472
001476
001364

G134

MY — ~d —
~ 00 NN

DQTCSR

001466

9114

N — W=

DQST14
DQST1S
DAST16
DQST17

SEQ 0058

S05#
S07#
9094

moww?oom
L

| DQST13

001442
001446
001452
001456
001462

—

DAST10
DASTI
DQST12

N == =P
O NNV
W SN

.
.

G 5
08:29 PAGE 60
CROSS REFERENCE TABLE == USER SYMBOLS

1808

2213

1874

2252

08:29

CZDQM

MACY11 30A(1052)

03-DEC-80

MEPASS
MERRPC
MERRX

016536
017043
016744

MISC. =
| MLOCK
| MNEW
. MPASSX

000012
016670
016771
016733

2360
2687
2374
761
961
6214
1015
984
2370

2804#
2844um
2831#
1059
2815~
2326
26214
28364
28294

016472

2490

2797#

001216

7894

C2DQHE P11

- MERR?2
MERR3

MPFAIL

| MQM

MR
. MSTCLR=
MTITLE
| MISTN
MISTPC
MVECX

03-DEC=B0 08:27

016563
016632

016500

016560
104412
001000
016755
016656
016725

ODDBIT= C01000

ouT

016432

PARERR

015220

PASCNT

001230

PARAM = 104405
PARAM1
015144
PARTI

PFTAB

001214

RUNCNT
RUNFLG

001306
001302

001304

RXBA.P= 000000
RXBA.S= 000004

RXISR
RXW( .P=
Rxw(.S=
RX.BCC=

SAVACT

013256
003502
000001
000005
000015

001502

(ROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0059

28084

2795#

2807#
2751
965
28334
28194
2827#»

1039+

1196'

1258+

1327+

2005+
732

2071«

2137~

2203+

1025
25%

2780

2770

2774

27864

1396+

1465+

2423

2719

2538

2540

1534+

1603+

1672+

1741+

1807+«

1873+

2768

2513

2515

2517

25264

2536

938+«

2358+«

2377

2400

672%
2709

933«

1008+

1119+

249"
27064

2528

27628

2776+

2786+

1034

1038+

1104~

2390+

2423

2424

2719+

2721

275%

1303
1605

1329
1632

1356
1648

1372
1674

1398
1701

1425
1717

1441
1743

1467
1769

8478
25104

2748

216316
016116

2766

016310

RETURN

RXBUFF

1939«
614k

2529

RESTAR 016234
RESTRT 014430
RESOS = 104407

RUN

1033
8578
770%
2683
1024
2366

015302

014270
POLY
POLY. = 000017
POPRO = 012600
POP1SP= 005726
POP2SP= 022626
= 77776
PS
PUSHRO= 010046
PUSH1S= 005746
PUSHZ2S= 024646

RDSW
RESREG

2746

PAGE 6!

7944

23428
6364
583
581#
5854
575#
5828
580#
5844

2442
2703

2733
2379
851#

788#

8194

8204
8184

620#
624H

1121
1494

25494
2754m

2712

2735
2382
2706

23894

945«

1028

1032+

1043«
940+«

1052+
1040

1054+
1044+

1042+«

1212
1510

1045

1217
1536

1785
2073

1809
2099

1835
2115

754w

Go'#s

588

1156
(yal
6254
6344

1202#

1050+

1260
1563

1851
2139

1056«

1287
1579

1875
2165

1063+

1901
2181

1917
2205

1941
2231

1967
2247

1983
23334

2007

2033

2049

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

SAVNUM
SAVPC
SAVRO
SAVR
SAVR?
SAVR3
SAVRG

001276
001274
001256
001260
001262
001264
001266

SAVRS
001270
SAVSP
001272
SAVOS = 104406
|

SCOPE = 104400

fSCOPT
SEQ.

= 104401
= 000014

SETON
SPACNT=
STACK =
STFLG

Sv0S

002752
015635
001200
001317

01532¢6

SWR

C01200

SWREG
SWREGC
SwO00
=
SW01
=
SwQ2
=
Sw03
=
Sw04
=
SW0S5
=
Sw0é6
=
Sw08
=
Sw09 =
SW10
=
SW11
=
Sw12
=
Sw13 =
SWi4
=
SW15
=
5YNBIT=

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

SYNC

936«
2725
2574
2575
2576
2577
2578
2579

2867

837#

2060

2666
1176
2126

1316

2192

1385

2258

1454

1120%
2596
5764
825#

2617
G34
937«

2620
1009

26364
2720

2741

947+
2444
956
27884
981
1021

952
2655
567

956+
2660
2767

967
2707
2783

8304
6334

25644

779
2432
690#
2778
5564
5554
5544
SS53#
552#
5514
5504
5494
5484
5478
5464
545#

S44n
543#
5424

6154

2715
2432
2717
2415
2444
2660

1109

1947
6304

2013

2079

1888«

1345+«

1414+«

2154«
1277=

1890+

2169
1291

2218+
1346+

2592
669+
8044

2600
670%
975«

SYNC. = 000011
SYNC1
012372

1276*

SYNC2

012374

TEMP
TEMP1

017152
001244

1705

1307«
1378
1475+
1549«
1621
1692

1114«

1759«

1308«
1404«
1479+
1551«
1622
1721+

SEQ 0060

2380+

2873
2871

2869

1523

1592

1661

1730

1796

1862

B
1928

1994

970
271§
2790

981
2717

988
2767

994

1013

1021

2408

2415

2655

712

17111

001246

2564«

TABLE == USER SYMBOLS

81e#
2560+
2569+
2568«
2567«
2566+«
2565«

8134
B14m
8494

2378+

747
B15#
BOB®
BOS#
B10#
8114
B12#

013052

TEMP?

08:29 PAGE 62
(ROSS REFERENCE

1125

22N

23304

1404

1473

1542

1611

1680

1749

1815

1881

1552«

1621«

1690

1756+

1758«

1773

1822«

1824+

1839

2220+
1360

2235
1415«

22634
1429

1971

2020

2022+«

2037

2086

2088+«

2103

2152+

2742+«

2743«

28614

2089+

1691«

2627

2023+«

8034

974

975

979+

2852

1341+«
1413«
1484
1583«
1654
1751«

1342+
1414
1485
1584+
1680
1753

1905

1825+«

1162«

1309
1406~
1480+
1552
1623
1722

1266

2145

1483

1954«

1891+«

1171«

1335«
1410«
1482+
1553
1652«
1723

1335

1956+

1957+

1203«

1337«
1417«
1483
1554
1653+«
1749+

1266

1484+

1268+

2155+

1498

2221«

2264#

1567

1622+

1636

1272«

1273«

1275«

1276

1277

1344
1415
1514+
1585
1682+
1758

1553«

1345
1416
1515«
1611
1686
1759

1346
1445
1516
1613
1687+
1760

1347
1446
1542+
1617«
1689+
1815«

1376
1447
1544
1618+
1690
1817~

1278

1377«
1473
1548+
1620
1697
1819

CZDQH

MACYT?

CZDQHE P11

30A(1052)

O03-DEC-B0

03-DEC-BO 08:27

1824

1957

5822
|

TEMP3

001250

8054

001254

807#

TLAST = 012040
TPCSR
001210

1027
7834

TEMP4

TEMPS

001252

08:29

1825

1958

2147+

1163«

1241+

2592«

2627

7814
78624

24N
2413

2471
2473

2769
2481

2771

784k

2450%

2451

2454

2482

002254
006154
006522
007070

1534
1603
1672

1602#
16714
17404

1807
1873
1939
2005
1038
2071
2137

1872#
19384
20044
20704
1039
21364
2202#

1872+«
1026

1741

2203
1106
1258
1327

004324
004672
005240
005606
014504

1396

1465

1016
6224
6264
1146
1302

TXBA.P= 000002

TXBA.S= 000006
TXBFA
013054
TXBUFF
012376

TXISR

003334

TX.BCC=
TX.MUX=
TYPDAT
TYPE
=

000016
000013
016104
104402

TXwWC.P= 000003
TxwC.S= 000007

TYPMSG

016026

23504
2448
944%

1938+
1032

1037+«

2004+
10374

1019+«

1020

24094

1187
1371

1216
1440

23314
1509

1578

2702#
965

2679

26824

11794

2467
2777

6624
2594+
2694
2656
2364

759
2625+
26974
2658
23924

XHEAD

017050

973

28454

2376

2136+
239N

13264
13954
14644
15334
1017+«

2699
8414

2373
2775

1257+«

2070+
2390

2155

1890

2023

2156

18917

1892

1947+«

1949+

1951«

1956

2024

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

2350

6354
6324
2681
760

6234
6274

1103«

2481+

1885+«

2022

SEQ 0061

11034

22654

1158

2456%

== USER SYMBOLS

12574

000056
015632
016072
015720
014444
014466

2453%

18064

VECMAP
WRDCNT
WRKO.F
XBX
XCSR
XERR

1169+

2246

2180

2154

1164

TST1
TST1I0
TST11
TST12

TST4
TSTS
1ST6
TST7
TTST

2149+

8064

26464
7934

TST22 = wwxwsxn |
TST3
003756

1883+

2145+

001212
015652
001226

007750
010300
010630
011160
002644
011510
012040

1881~

2017+«

TPDBR
TRPOK
TSTNO

007420

1826

TABLE

2015«

001204
001206

TST14
TST1S
TST16
1ST17
TST2
T1ST20
TST21

(ROSS REFERENCE

2013~

TKCSR
TKDBR

1ST13

PAGE €3

24014

2477
2785

26344
26604

973

2489

983

2493

990

2584

1015

2623

1033

2682

2686

2690

2695

2700

2745

——

| CZDQH

O03-DEC-80

014460
014272

2372
2343n

2398#

017076
013656
013660
016214

978
1112«
23364
2685

28504
1115+«

2368
2775

23954
27914

| CZDQHE.P11
XPASS
XPOLY

XSTATQ
XSYNC_
XSYNC2
XTSTN

013662

XTXBUF

XVEC
SCNTG

SMNEW
$MSWR

03-DEC-80 08:27

1129

014064

XRXBUF

014452
016446

= 000023

016461
016452

= 000021

$Y
.

= 000016
= 017670

.BEGIN

.CKSWR
.CNTLU
.CNVRT
.CONVR
.EOP
.ERRTA
LHLT
.INSTE
.INSTG
LINSTR
LINST1
.MEMCL

.MSG

.MSTCL
.PARAM

PFAIL

.RESO5
.SAVOS
.SCOPE
.SCOP1
.START
.SYNC
.TRPSR
.TRPTA
LTYPE

08:29

MACY11 30A(1052)

002116

1133

1534

1221

27264

2335#

23374

1039

1040

1106

1107#

1603

16048

1672

1258

16734

1396

22044

1808#

1397#

2203

1807

1324

13284

1393

139748

12594

1327

13284

1741

1742#

2005

20064

2071

2072#

2137

2138#

1035

1040#

1101

1107#

1255

12594

19404

2002

20064

2068

2072#

2134

21384

2200

22044

23504

726
8944
9074
9204
2302#

729
895#
908#
9214
23324

764
8964
909#
9224
2334w

7694
8974
9104
9234
23384

7764
898#
9114
924M
23404

8174
8994
9124
971
2449

8874
9004
9134
976
2452

8884
9014
9144
980
2735

8894
9024
9154
993
2744

8904
9034
9164
1061
27964

2773

19404

2779
2777

1531

1#
855#
6404

1008#

27944
27924

1535#

828#
8614
641

27654
27764
25864
25844
23564
28844
26544
24L87H
24894
24634
2478
23034

013032
015104

858
848

23254
2501#

015360
015320
014474
014606
001512
013050
015640
001314
014626

SEQ 0062

23394

1225

862
864
856
854
2203
2674
646
846
2486
844
24678
860

016222

1226

1195

15354

CROSS REFERENCE TABLE == USER SYMBOLS

1151

016320
016374
015416
015412
014306
017624
015672
015052
015056
014734
014754
012706

014756

PAGE 64

2465+
644

852
850
838
840
695
1137
648
8364
842

1600

837
8634
6434

1604#

8394
8654
6504

8414
6524

2494

24684

2771x

2772+

935

27324

2740

25744
25604
24074
24314
9334
23294
26434
2648
24394

1669

945

16734

8434
6604

1738

8454
676

1742#

8474
688#

1804

8494
6944

18084

8514
6974

1873

1465

1874#

1462

14664
1939

14664

1870

1874#

1936

8534
701

8554
717

8574
722

891#
904#
9174
1141
28494

892#
9054
9184
1180
28604

8934
906#
9194
1205
28624

CZDQH

MACY11 30A(1052)

03-DEC=-80 08:27

l CZDQHE .P11
i DQEND

| DQFRNT

| HLY

IDENT
ORANGE
TESTAY
TESTB1
TESTC1
TESTD
TESTE"
TESTF1
TESTH1

TESTHZ2
$BEGIN
$BUFFE
$CATCH
$CLRVE
$CONVR

$DQCHR
$EOP

$GETFL

$GETPA
$HEADE
SHLT
$INSTR

$INTNP
SMAINT

$MSG
$PARAM
$PFAIL
$REG
$SCOPE
$SCOP1
$SETFL

$SETVE
$START
$SYMBO
$TRAPS

2349

1173

w522

1646

2123

1%
1#

%
1%
1%
1%
4%
1%
1%

1658

2179

4
%
1#
14
1%
1#

1005
2856
639
970
2581

2349

1
%
1#

1023
522
2651
2460

1%
1#
1%
1#
#
1#

2797
2498
2729
2557
2404
2428

%
1%
#
14

641
925
536
828

5238#
1%

1%
1%

08:29

PAGE 66

1301

1313

1370

1382

1439

1451

1508
1991

1456

1525

1594

1663

1732

1798

1864

843
1324

845
1393

847
1462

849
1531

851
1600

853
1669

855
1738

1206

1236

2189

2245

2255

1318

1387

839
1101

841
1255

1181

1727

1715

SEQ 0063

CROSS REFERENCE TABLE == MACRO NAMES
1783

1793

1849

1859

1915

1925

1981

1520

1577

1589

2047

2057

2113

1930

1996

2062

2128

857
1804

859
1870

861
1936

863
2002

1035

1249

1%
1#
1#

$TYPE
$VARIA

2068
1w
1%

837
2638
1035

. ABS.

017670

000

$TRPDE
$TRPSR
$TSTN

03-DEC-B0

ERRORS DETECTED:

2134
2436
768

2200

CZDQHE .BIN,CZDQHE .LST/CRF/SOL/NL : TOC=CZDQXX.MAC, CZDQHE .P11

RUN-TIME: 19 28 2 SECONDS

CZDQH

MACY11 30A(1052)

CZDQKE .P11

03-DEC-80

03-DEC-80 08:27

RUN=TIME RATIO: 78/50=1.5
CORE USED: 19k (37 PAGES)

08:29

PAGE 67

CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0064