Digital PDFs

AH-8637D-MC

January 1979

64 pages

Original

3.7MB

view download

OCR Version

3.2MB

view download

Document:	CZDQHD0 DQ11 CHAR LENGTH INTERRUPT TEST JAN 1979 bw
Order Number:	AH-8637D-MC
Revision:	000
Pages:	64
Original Filename:	CZDQHD0__DQ11__CHAR_LENGTH_INTERRUPT_TEST__AH-8637D-MC__JAN_1979_bw.pdf

OCR Text

CHAR LENGTH INTERRUPT TEST

AH-8637D-MC

CZDQHDO

JAN 1979

lEHnED

FICHE1 OF 1

MADE
IN USA

CZ0QH
MA(Y 30A(1052)0 07=-JuL~78
CZDQHD.P11
7:59
09-JuN-78

08:41

PAGE 2

SEQ 0001

IDENT]FICATION

PRODUCT

CODE:

AC-8635D-MC(

PRODUCT

NAME:

(ZDQHDO

CHAR

DATE :

JUNE

MAINTAINER:

DIAGNGSTIC

INTR

1978
GROUP

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI AL

EQUIPMENT CORPORATION.

NG RESPONSIBILITY

DIGITAL EQUIPMENT CORPORATION ASSUMES

FOR ANY ERRORS

THAT MAY APPEAR

IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY MIGITAL OR TS
AFFILIATED COMPANIES.

(()

1975,

FOLLOWING ARE

DIGITAL
DEL

1978 BY DIGITAL EQUIPMENT

TRADEMARKS

PDP
DECUS

DIGITAL

UNIBUS
DE(TAPE

CORPORATION

EQUIPMENT

CORPORATION:

MASSBUS

(ZDQH
MACY11 30A(1052)
07-JuUL-78
(ZDQHD. P11
09-JUN-78 07:59

08:41

PAGE

SEQ 0002

ABSTRA(T
THE

FUNCTION OF

THE

DQ11

DIAGNOSTICS ARE

ARE

SEVEN OFF

VERIFY THAT THE OPTION OPERATES ACCORDING
TO SPECIFICATIONS.

CURRENTLY
70 BE

THERE

RUN

IN SEQUENCE

ERROR SHOULD OCCUR
AT

AN EARLY

STAGE

LINE DIAGNOSTI(CS THAT ARE

INSURE

THAT

IT WILL BE DETECTED

AND

INSURING

THAT

DIAGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM
NOTE:
ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE
\:o~uu\wr\)—n

THE

.
.
.
.
.
.

SEVEN DIAGNOSTICS ARE:

CZDQA
€20QB
(ZDQC
(Z5QD
CZDQE
CZDQF
(ZDQH

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

BASIS R/w TEST #1
BASIC R/W TEST #2
BASIC NPR AND INTERUPT TEST
RECEJVER TRANSMITTER [XERCISER TEST
MTMISC. RX AND Tx TESTS. PLUS BCC TESTS.
C(HARA(CTER DETECT TESTS.
CHARACTER LENGTH AND INTERRUPT TESTS.

THERE 1S ALSO AN ONLINE TEST
1. CZDQ0 [REV]
ONLINE TEST.
AND A PARAMETER

1. (ZDQG [(REV]
REQUIREMENTS

FUTURE.

TO BE DISCUSED LATER.
(ITEP OVERLAY)

INPUT PROGRAM

DQ11

TRIAL

IS AVAILABLE

PROGRAM

(PARAMETER

INPUT)

EQUIPMENT
ANY PDP11 FAMILY (PU (WITH MINIMUM 4K MEMORY)-W]TH
OR WITHOUT A HARDWARE SWITCH REGISTER (LOC. 17757C)

38?133 (OR EQUILIVALENT)
SYNC MODEM

2.2

(ONLY REQUIRED FOR ONLINE

TEST)

STORAGE
PROGRAM WILL

LOAD AND RUN

IN 4K OF MEMORY.
LOCATION 1400 THRU 1600 ARE ESPE(CJALLY TO
BE NOTED AND TO BE UNTOUCHED BY CPERATOR

AFTER DQ11

TRIAL

PROGRAM HAS BEEN EXECUTED,

OR AFTER THE '‘AUTO SIZING'' HAS SEEN DONE.

LOADING PROCEEDURE

3.1

ME THOD
ALL

PROGRAMS ARE

IN ABSGLUTE

FORMAT

AND

(ZDQH
MACY11 30A(1052)
07-JUL-78
CZDQHD.PI
09-JUN=-7 8 07:59
ARE

08:41

LOADED USING THE

ABSOLUTH

PAGE 4

ABSOLUTE

SEQ 0003

LOADER.

LOADER STARTING ADDRESS

+500

MEMORY
— o NN
—
VIW
= NININ N
NNV

SIZE

8k
12K
16K

20K
24K
28K
3.1

LOAD THE ADDRESS OF

3.1.2

THEN START

ABS.

| OADER

(LOC.XxXxx500)

STARTING PROCEEDURE

A.
B.

LOAD LOC. 200
SET SWR TO ZERQ FOR "'AUTO SIZING'' OR LEAVE
LEAVE SWR BIT 7=1 TQ USE EXISTING PARAMETERS SET UP
BY D@11 TRIAL PROGRAM OR A PREVIOUSLY RUN DQ11 DIAGNOSTIC
THAT USED THE '‘AUTO SIZING'.
«***REFER TO SECTION 4.1 FOR SOF TWARE

AND OPTIONS. *+wx

NOTE
: THE
SOF TWARE

SOF TWARE SWITCH REGISTER IS LOCATED AT
DISPLAY REGISTER IS LOCATED AT LOC.174

C.THEN START
THE

PROGRAM WILL

THIS WAS THE FIRST START UP OF

THE

TYPE

FOLLOWING:

"MAP OF DQ11
1400
1402
1404
1406

SWITCH REGISTEX OPERATION

160010
152300
160020
150310

MAINDEC

NAME

AND

LOC.176

PROGRAM NAME

THE PROGRAM)

AND ALSC

STATUS''

THE ABOVE 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
USEK IF AUTO SIZING IS DONE.
FOR INFOGRMATION OF STATUS
TABLE

SEE

SECTION 8.4

FOR HELP.

*«wx«]f THE SOF TWARE SWITCH REGISTER IS SEL ECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENT] FIES ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 4.1 1F FOR OPERATOR'S OPTION) *#x#«
NOTE:1F USING THE SOF TWARE SWITCH REGISTER
STE
WHEN A HARDWARE
SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL NOT
TYPE OUT THE TITLE.

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN-78 07:59

08:41

PAGE 5

SEQ 0004

THE PROGRAM WILL TYPE 'R'’
AND PROCFED TO RUN THE DIAGNOSTIC
d

CONTROL

SW!TCH SETTINGS

THE DIAGNOSTIC

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 DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOF TWARE SWITCH
REGISTER (LOC. 176) 1S USED.
:
CONTROL
THIS PROGRAM ALSO SUPPORTMS THE DYNAMIC LJADING OF THE SOFTWARE
REGISTER (LOC. 176) FROM THE TTY, THIS CAN BE ACCOMPL]SHED BY

DOING THE
1)

TYPE

LOC.

FOLLOWING:

CONTROL

G <*G>;

THE

MACHINE

THF

WILL

SOF TWARE

3 AFTER THE

ALLOW THE

THEN

TYPE:

SWR XXXXXXNEW

INTO

(XXXXXX

THE

OCTAL

CONTENTS

THE

TTY:

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>

THE FIRST KEY DEPRESSEN THE

A CONTROL U <*u>

BACK TO STEP (.

15
14
13
12
1M

SET:
SET:
SET:
SET:
SET:

09
08
07
06
05
04
03
02
01
00

SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SFT:

TN ENTER DATA

*'°'NEW='' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE

TTY

SWIT(H REGISTER.)

THE FOLLOWING AT

THIS WIL.

176 AT SELECTED POINTS WITHIN THE PROGRAM.

OF
OF

SWITCH

SET:

SOF TWARE

SWIT(H

CHANGEC.

IS DEPRESSED

THEN THE

HALT ON ERROR
LOOP ON CURRENT TEST
INHIBIT ERROR PRINT OUT
INHIBIT TYPE OQUT/BELL ON ERROR.
INHIBIT ITERATIONS
ESCAPE TO NEXT TEST

PROGRAM WIL:

LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON T
USE PREVIOUS STATUS TABLE. CLR-DO AUTO SIZE.

LOCK ON SELECTED TESY
RESTART PROGRAM AT SEIECTED TEST
RESELECT DQ*1'S DESIReD ACTI,C.

SEND YOU

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
0G-JUN-78 07:59
6.1.2

08:41

PAGE 6

SEQ 0005

SWITCH REGISTER RESTRICTIONS

Sw 00

RESELECT DQ11'S DESIRED ACTIVE,

PLEASE NOTE_THAT A MESSAGE

TYPED

OUT FOR SWITCH REGISTER BEING EQUAL

ACTIVE. THIS MEANS IF THE SYSTEM HAS
FOUR DQ11S: BITS 00,01,02,03 WILL

TO DG11'S

BE SET IN LOC 'DQACTV'*. USING THIS

SWITCH ALTERS THAT LOCAT
> N;THEREFORE
IF FOUR DQ11S ARE IN THL SYSTEM
«+++D0 NOT+** SET SWITCHS GREATER THAN

Sw 03 IN THE UP POSITION.

Sw 01

ERROR.

DO NOT

THIS WOULD BE

SELECT MORE

ACTIVE

DQ11S THAN HAS BEEN GIVEN INFORMATION
ABOUT IN TRIAL PROGRAM.
LOAD_ADDRESS 200
START WITH SJ 00 1

PROGRAM WILL

TYPE MESSAGE

EXAMPLE:

DQ11;

CONTINUE

NUMBER

THE BINARY_

1=1

(IF

VALID)

NUMBER OF

3=2 DQ11;

WILL BE

DQ1°S DESIRED AC1IVE

7=3 DO11;

17-4 DQ11

IN DATA LIGHTS

37=5 DQ11

(EXCLUDING

CONTINUE WITH ANY OTHER SWITCH SETTINGS DESIRED.

11/05,

IS STRONGLY SUGGESTED THAT

LEAST ONE

BEFORE

PASS HAS BEEN MADE

TRYING TO SELECT A TEST

THAT IS NOT IN THE ORDER OF SEQUENCE
THE REASON BEING [S 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.

Sw 09

LOOP ON CURRFNT DATA:
THIS

SWITCH WILL

ONLY WORK

THE

REASON BEING

THAT MOST

TESTS

CALL ''SCOP1'"
IS IN THAT TEST.

DEAL WITH BLOCKS OF DIFFERENT DATA
TO BE SENT OR RECEIVED ALL AT ONCE
THUS

IN BLCCK DATA;

ONE PATTERN CANN'T BE

SINGLZD OUT.

SWITCH REGISTER PRIORITYS

[]

NN
—

ERROR SWITCHES

[]

ME THOD :

O"NW>

A FATAL

SW 12

SW
SW
SWw
SW

13
15
08
10

weerH|T (ERROR)

SCOPE

SWITCHES

DELETE PRINT OUT/BELL ON ERROR.

DELETE ERROR PRINTOUT.
HALT ON THE ERROR.
GOTO BEGINNING OF THE TEST,
GOTO NEXT TEST ON ERROR.
ROUTINE

SUPPORTS <*G> OPERATI(ON®
=+

ET¢,

11/04,

11/34)

CZDQH
MACY11 30A(1052) OzaJUL-78
CZDQHD.P1N
09-JuN-78
0
1.

Sw 09

.
3

(IF

Sw
1
W ‘7

08:41

SEQ 0006

ENABLED BY "'SCOP1'"),

++x+SCOPE ROUTINE WILL
4.2

PAGE 7

SUPPORT <*G> OPERATIONxwee

STARTING ADDRESS
STARTING ADDRESS
THERE

FOR

IS AT 000200

AKRE NO OTHER STARTING ADDRESSES

THE DQ11

NOTE :

DIAGNOSTICS PREVIOUSLY MENT]ONED

IF _ADDRESS 000042 iS NON-ZERO

THE PROGRAM ASSUMES IT IS UNDER
ACT11 OR DDP CONTROL AND WilLL ACT ACCORDINCI
Y
AFTER

THE

*ALL*

AVAILABLE

FROGRAM WILL

DQ1''S

ARE

TESTED

RETURN TO 'DDP?*' OR "‘ACT=11'",

OPERATING PROCEDURE
WHEN PROGRAM
FOUR WILL

INITIALLY

STARTED MESSAGES AS DESFRIBED

IN SECTION

PRINTED.

AND PROGRAM WILL BEGIN RUNNING
DIAGNOSTIC

THE

PRGGRAM AND/OR OPERATCOR ACTION

THE

TYPICAL

APPROA(CH SHOULD BE

HALT ON ERROR (VIA Sw 15 1)
WHEN EVER AN ERROR OCCURS

2.
3.
4.

CLEAR SW 15
SET SW 14: (LOOP ON THIS TEST)
SET SW 13: (INHIBIT ERROR PRINT QUT)

“THE

TEST

NUMBER AND PC

WILL

TYPED OUT

AND

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

IS NECESSARY

CONCERNING THE ERROR REPORT,;

FOR

AND

THAT

THIS WAY

LOOK

TEST NUMBER WHICH WAS

THEN NOTE

CAN BE

TO KNOW MORE

THE

EXACT

PC OF

INTERPEDITED

THE

INFORMAT]ON

IN THE LISTING

TYPED OUT

ERROR REPORT

FUNCTIONING OF

THE

TEST

ERRORS

S DESCRIBED PREVIOUSLY
TEST NUMBER AND PC

THERE WILL ALWAY B{

TYPED QUT AT

THE

TIME

ERROR (PROVIDING SW 13-C AND Sw 12 0). IN MOST CASES ADDIT]ONAL
INTORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE
ggégfi IS TO GIVE THE OPERATOR AN INDICATION OF THE

6.2

ERROR RECOVERY

CZDQH

MACY11

CZDQHD.P1N

30A(1052)
07-JUL-78
09-JUN-78 07:59

08:41

PAGE 8

SEQ 0007

IF 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 OPERATOR
TO REGAIN CONTROL

CPU.

IF THIS SHOULD HAPPEN; LOOK IN LOCATION
"TSTNO"' (ADDRESS 1226)FOR THE NUMBER OF THE
gagogUNNING AT THE TIME OF THE CATASTROPHIC

TEST

THAT

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS TO
WHAT THF DQ11 WAS DOING AT THE TIME OF THE ERRCR.
wxx*HALT RECOVERY WHEN USING SOF TWARE

THE
THE

THE

SOF TWARE

SWITCH REGISTER IS TO BE

THE OPERATOR IS REQU.RED
FOLLOWING WILL BE TYPED:

SWR=XXXXXX

NEW

SWITCH REGISTER%»
%=

(REFER

TYPE

CHANGED AFTER A HALT

A <*G> BEFORE

TO SECTION 4.1

DEPRESSING

CONTINUE.

FOR OPERATOR OFTION)

RESTRICTIONS

STARTING RESTRICTIONS

SEE

SECTION 4.

(PLEASE)

OPERATING RESTRICT]ONS

DQ11 TRIAL PROGRAM MUST BE RUN PRIOR TO THE
FIRST AND ONLY THE FIRST RUNNING OF ANY DQ17
NOTE :
IF NO PROGRAM OTHER THAN
A

DQ11

DIAGNOSTIC WAS LOADED AFTER DQ11

DIAGNOSTIC

TRIAL OR

[F CORE MEMORY HAS NOT BEEN CHANGED,OR IF THERE
IS NO DQ11 CONF IGURATION CHANGES: THE
DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN.

HOWEVER IF ANY OF THE ABOVE HAVE BEEN VIOLATED
THE DQ11 TRIAL PROGRAM MUST BF RUN AGAIN

EXECUTION TIME
rO

IS ATTEMPTING
INITIALLY STARTED

MISCELLANEOUS

[§ V)

BEFORE RUNNING THE DIAGNOSTICS
NOTE: AN ALTERNATIVE TO THE ABOVE
THE "AUTO SIZING'' WHEN PROGRAM IS
WITH SW07-0.

PASS COMPLETE

WHEN THE DIAGNOSTIC HAS

COMPLETED

A PASS THE FOLLOWING IS AN EXAMPLE
OF

THE PRINT OUT TO BE EXPECTED.

END PASS AC-8635D-MC (SR:
NOTE :

160000 VEC:

300 PASSES: 00Q0C1

THE NUMBERS FOR 7SR AND VE( ARE
NOT NECESSARILY THE VALUES FOR THE LEvI‘E

ERRORS: 000000

CZDAH
MACY11 30A(1052)
07-JUL-78
. P11
CZDQrD
09-JUN-78 07:59

08:41

PAGE 9

SEQ 0008

THEY ARE ONLY FOR THIS EXAMPLE.

8.3

e 1STI

THE

(MINI

MONITOR)

VERY FIRST "TTEST'® (TST1)

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

SYSTEM THROUGH
REMEMBEFK:

8.4

IN THE

THE DIAGNOSTIC.

TST1,.IS NOT A TEST OF

DQ11

HARDWARE!!.....

KEY LOCATIONS

RETURN

(1214)

(1216)

TSTNO

(1226)

RUN

(1304)

CONTAINS THE ADDRESS WHERE PROGRAM WILL
RETURN WHEN ITERATION COUNT 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

:
EXAMPLE
(RUN) 1304/0000000001000000

DQCROO~DQCR17
LQST00-DQST17
(1400)=-(1476)

DQACTV

(1500)

MEANS THAT DQ17
RUNNING.

NO.0OS

THE

TESTED.

DQ11

NOW

THESE LOCATIONS CONTAIN THE INFORMATION
NEEDED TO TEST UP TO 16 (DECIMAL) DQ11S
SEQUENTJALY. THEY CONTAIN THE CSR,VECTCR
AND STATUS CONCERNING THE CONFIGURATION
OF EACK DQ11.
EACH BIT SET IN THIS LOCATION INDICATES
THAT

THE

ASSOCIATED

DQ11

wILL

TESTED

IN TURN.
:
EXAMPLE
(DQACTV) 1500/0000000000011111
MEANS THAT DQ11 NO. 00,01.02,03,04

WILL BE

DQCSR

(50¢)

DQSTAT

(1510)

BIT 15

BIT 14
BIT 13

BIT 12

BIT N
8IT 10
BIT 09

TESTED.

EXAMPLE:
(DQACTV) 1500/000000000001000
MEANS THAT DQ1] NO. 00,06
WILL BE TESTED.
(ONTAINS THE RECE]VER (SR OF

CURRENT DQ11 UNDER TEST.
CONTAINS

THE

STATUS OF

THE

CURRENT

DQ11 UNDER TEST.
SEi:
TWO SYNC CHARS/ONE SYNC CHAR
SET:
SET:
SET:
SET:
SET:
SET:

TEST JUMPER INSTALLED/NOT INSTALLED
B8 OPTION INSTALLED/NOT INSTALLED
BA OPTION INSTALLED/NOT INSTALLED
ACTIVE ON FIRST NON-SYNC/ACTIVE AFTER NU.
AB OPTJON INSTALLCDN/NOT INSTALLED
ODD VRC/EVEN VR(

SYNC

CZDQH
MACY11 30A(1052)
07-4uUL-78
CZDQHD.P11
09-JUN-78 07:59

08:41

BIT 00-08

8.5

wxx METHOD OF

8.5.1

FINDING THE

PAGE 10

SEQ 0009

VECTOR "A'* OF DEVICE

AUTO SIZING

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-QUT TRAP OCCURES POINTERS ARE UPDATED
,
AND ATTEMPTED AGAIN. IF NO TIME-QUT; THE RECEIVER ''ACTIVE BITM'' (BIT
IS SET AND A +«COMPARE+* FOR BOTH SYNC1 AND SYNC 2 IS DONE

THE MISC.

A DQ11.

THE

8.5.2

ONE

THEY ARE

THERE

INFORMATION IS STORED AWAY.

THIS

SYNC BIT OR TwO?

SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE THE
PRESENTS OF ONE SYNC OR TWO. THE PROGRAM ASSUMES TWO SYNC

CHARS. NOTE: THIS ASSUMPTION MAY BE ALTERED AFTER AUTO SIZING
BY ALTERING BIT 15 IN APPRIOATE DQSTXX: LOCATION.

8.5.3

"BB"' OPTION INSTALLED?
TO SENSE FOR THE 'BB'' OPTION THE PROGRAM SELECTS THE
CHARACTER DET. REGISTER AND THE LOADS IN ALL 1°'S; IF
ANY ONE OR COMBINATION OF BITS ARE SET THE B8 OPTION
IS ASSUMED TO EXIST.

8.5.4

"AB'" OPTION INSTALLED?
TO SENSE FOR THE "'AB"' OPTION THE PROGRAM SELECTS THE
O0LYNOMIAL REGISTER AND WRITES ALL 1°'S INTC IT; IF ANY
?gEEO?S$OMBINATION OF BITS ARE SET THE AB OPTIUN IS ASSUMED
X

8.5.5

"BA"" OPTION INSTALLED?

’

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

8.5.6

JUMPER ON END OF
THE

SEND

PROGRAM (HECKS

*#**NOTE:(CZDQE

TO SEE

AND CARRIER ARE

TEST JUMPER

8.5.7

CABLE?

IS ON THE

SET,;

END OF

ONLY**#

EITHER OR BOTH CLEAR

SO THE FROGRAM ASSUMES THE

THE

CABLE.

ACTIVE ON FIRST NON-SYNC?

SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE FOR
WHEN THE DQ11 GOES ACTIVE THE PROGRAM ASSUMES ‘‘ACTIVE
ON FIRST NON=SYNC''. NOTE: THIS CAN BE (HANGED BY ALTERING
BIT 11 IN THE APPRIOCATE DCSTXX: AFTER AUTC SIZING

12)

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN=-78 07:59

8.5.8

08:41

PAGE

SET FOR ODD OR EVEN PARITY?
AS ABOVF TOO MUCH HARDWARE IS NEED TO SENSE WHICH PARITY
WAS SELECTED.SO THE PROGRAM ASSEMES ODD PARITY.
NOTE: THIS CAN BE CHANGED BY ALTERING BIT 9 IN APPRIOATE DQSTXX: LOCATION. AFTER AUTO SIZING

8.5.9

CINDING 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. [F NO INTERUPT OCCURES THE PROGRAM
ASSUMES VECTOR =300. THIS PROBLEM WILL BE FIXED IN ONE
OF THE DIAGNOSTICS AND *AUTO SIZING* SHOULD BE REDONE "0
GET THE CORRECT VECTOR.

PROGRAM DESCRIPTION

CONTAINED WITHIN LISTING

10.

LISTING
FOLLOWING

SEQ 0010

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN-78 07:59

08:41
PAGE 12
INTRODUCTION TO DQ11

DIAGNOSCTIC

SEQ 0011

;C2DQHDO/<377>/CHAR L & INTR

:COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
;REVISED 16-DEC~76 BY R. BLACK
:

A) SUPPORTS SOF TWARE

<G>
: STARTING -PRGCEDURE

SWITCH REGISTER

e)gyppogrs THE DYNAMIC LOADING OF

THE SOF TWARE ew:rcu REGISTER

:LOAD PROGRAM

Ry
't

;LOAD ADDRESS noozoo
:PRESS

START

g
|

;PROGRAM WILL TYPE ''CZDQHD0/<377>/CHAR L & INTR '' 7
;PROGRAM WILL TYPE ‘R'' TO INDICATE THAT TESTING HAS STARTED
(AT THE END OF ‘A PASS. PROGRAM WILL TYPE PASS COMRLETE MESSAGE
SAND THEN RESUME TESTING
o,

;SWITCH REGISTER EPIIONS
100000

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

Sw15=100000
SW14-40000
Sw13=20000

Swi12=10000

SW11=4000
SW10=2000
Sw09=1000

SwW08=400

Sw06=100
SW05-40
SW04=20
Sw03-10
SW02=4
Sw01-2
SW00-1

;-1,HALT ON ERROR

;-1,L00P ON CURRENT TEST
;=1,INHIBIT ERROR TYPEOUT

;-1,DELETE TYPEOUT/BELL ON ERROR.

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

2=1,L00P ON ERROR

JLOCK ON TEST SELECT
JRESTART PROGRAM AT SELECTED TEST
;RESELECT DQ11 DESIRED ACT]VE
sNG'E: THIS MUST NOT EXCEED ORIGINAL

COUNT

CZDQH
MACY11 30A(1052)
07-JuL~78
CZDQHD.PI1
09-JUN-78 07:59

08:41

PAGE 13

SEQ 0012

GENERAL DEF INATIONS AND EQUIVALENCIES

;REGISTER DEFINITIONS
000000
000001
000002
000003
000004
000005
000006
000007

RO=20
R1=%1
RZ=%2
R3=X3
R4=%4
R5-X5
SP=26

;GENERAL REGISTER
sGENERAL REGISTER
:GENERAL REGISTER
;GENERAL REGISTER
sGENERAL REGISTER
- GENERAL REGISTER
;PROCESSOR STACK POINTER

PC=X7

;PROGRAM COUNTER

;LOCATION EQUIVALENCIES
177570
177570
177776

001200

DSWR-_
177570
DL IGHTS-177570

PS=177776

STACK-1200

.HARDWARE SWITCH REGISTER LOC.
;HARDWARE DISPLAY REGISTER LOC.

sPROCESSOR STATUS WORD

;START OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS

100000
040000

020000
010000
004000
002000

PUSH1SP-5746

POP1SP=5726
PUSHRO=10046
POPRO=12600
PUSH2SP-24646

POP2SP=22626
.EQUIV
EMT,HLT

BIT

;DECREMENT PROCESSOR STACK

000002
000001
;DQ11

002000
0040
010000
020000
040000

OPTIONAL DEF INITIONS

ABBIT-2000

ACTBIT=4000

BABIT=10000
8681 T1=20000
JUMB] T=40000

WORD

s INCREMENT STACK TWICE
;BASIC DEFINITICN OF ERROR CALL

BIT
BIT 1
BIT 1
1
BIT10=200
0
BIT9 1000
1

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

O-—'NWJ\U',
mann H

005746
005726
010046
012600
024646
022626

MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN-78 07:59

CZDQH

614
615
616

617
618
619

001000
100000

N1
08: 41
PAGE 14
GENERAL DEF INATIONS AND EQUIVALENCIES
0DDBIT=1000
SYNBIT=100000

;DQ11 SECONDARY REGISTER DEFINATIONS
000000
000001

000002

000003
000004
000005
000006
000007

000010
000011
000012
000013
000014
000015
000016
000017

RXBA.P=0
RXWC.P=1
TXBA.P=2
TXWC.P=3
RXBA, S=4
RXWC.S=5

sRECEIVER BUS ADDRESS PRIMARY.
;RECEIVER WORD COUNT PRIMARY.
s JRANSMITTER BUS ADDRESS PRIMARY.
s TRANSMITTER BUS ADDRESS PRIMARY.
JRECEIVER BUS ADDRESS SECONDARY.
;RECEIVER WORD COUNT SECONDARY.

TXBA,S=6
TXWC.S-7

s TRANSMITTER BUS ADDRESS SECONDARY.
: TRANSMITTER WORD COUNT SECONDARY.

CHARDT=10
SYNC.=11
MISC.=12

s CHARACTER DETECT REGISTER.
sSYNC REGISTER.
sMISCELLANEOUS REGISTER.

SEQ.-14
RX.BCC=15

; SEQUENCE REGISTER.
sRECEIVER BCC REGIS:ER,

TX.MUX=13

TX.BCC="6
POLY. 17

s TRANSMITTER MUX REGISTER.

s TRANSMITTER BCC REGISTER.
sPOLYNOMJAL REGISTER.

SEQ 0013

CZDQH
MACY11 30A(1052)
07-JuL~78
CZDQHD P11
09-JUN-78 07:59

08:41

PAGE 15

TRAPCATCHER FOR UNEXPECTED

: TRAPCA1(CAER FOR

000000

SEQ 0014

INTERUPTS

ILLEGAL

INTERRUPTS

s STANDARD INTERRUPT VECTORS

000024
016222
000340

.=24

PFAIL

:POWER FAIL HANDLER

HLT
340
TRPSRV

*ERROR HANC' ER
*SERVICE AT LEVEL 7
*GENERAL HANDLER DJSPATCH SERVICE

340

»
000052
000000

“SERVICE AT LEVEL 7

340

*SERVICE AT LEVEL 7

) >

LOGICAL

;ACT HOOKS

WORD 0

;THIS ROUTINE TRIES TO FORCE THE RECEIVER TO INTERUPT

TO ITS VECTOR WHERE 11 WILL PICK UP THE STATUS LOCATION
FOR ITS NEW PC; AND PICK UP AN 10T INSTRUCTION FOR ITS

SNEW PS. WHEN THE NEW PC IS FETCHED AN IOT INSTRUCTION IS
;EXECUTED,

:lgéTAKE

000056
016120
012721
022021
020127
101771
012737
013737
006037
103023

005037

VECMAP:
1%:

060004

001000
000146
001500
001244

000020
001244

2%:

177776

000340
000300

000007

TRAPPING TO LOCATION 20 WHERE A ROUTINE

MOV
MOV

(RO)+,(R1)+
R1.#1000
1%
#6S,an20

ROR
BCC

TEMPI
5%

MOV

4%:

5%:

JUPDATE THE POINTERS
;IS ALL FLOATING VECTOR AREA DONE
:BR IF NOT ALL DONE
JSET FOR ]OT TRAP 8Y pQmN
;GET

THE ACTIVE

DQ11

JARE YOU ACTIVE.. DQ11
;IF CARRY CLEAR.. NO MORE DQ11S

RO
.=
#300, (R2)
(R2)+
2%

JDELAY........
Deeeneneas DELAY
JNO INTERUPT ASSUME 300 FIX
JUPDATE POINTERS
;GO DO IT AGAIN

BIC

#7.,(R2)

;CLEAR UNWANTED BITS

MOV

#3%,(SP)

JSET RETURN PC ON STACK

RTS

INCR
BNE
MOVB
TST
BR

BIS

RTI]

;*;;zSOFTuARE

DISPREG:
SWREG:
;PROGRAM START

.=200

VECTOR AREA

JCLEAR PS
JPUT POINTER TO STATUS TABLE

CMP

000142

DQACTV, TEMPI

JSTART FILLING THE
JWITH (+42; 10T (4)

PS
(R2)+

MOV

3%:

R1,(RO)+
#6,(R1)+

(MP
CMP
BLOS
MOV

CLR
TST

177776

IS EXECUTED

THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS

#3460,83-2(R2)

(SP) ,(R2)

(SP)+,(SP)Y+

JTRY AND SET PRI/SEC DONE AND IE

JENTERD

IOT TRAP BY DQ11

JPOP 0T JUNK OFF STACK

;GG HOME.

JALL SIZING IS DONE

SWITCH REGISTERxwxx

0
0

.SOFTWARE DISPLAY REGISTER
;SOF TWARE SWITCH REGISTER

IN TEST C

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD P11
09-JUN-78 07:59

695
696
697
698
699
700
701
702

000200
000220
000224
000226
000232
000234
000240
000244
000250
000256
000264
000270
000274

000137
000220
012702
005022
022702
091374

JMP
.=220
CSRMAP: MOV
CLR
CMP
BNE
CLR
MOV

001400
001512

001504
001400

160000

030000

000004
000005

MOV

000006

177777

00000¢

MOV

MOVB

000005
000006

001504
001276
001500
001500

6(R1)

BEQ
BIS

+6
#ABBIT, (R2)

6(R1)

#1400,2(RT)
#1400.2(R1)

+6
#BABIT, (R2)

BIT
BEQ
8IS
8IS
BIS

#30000.2(R1)
. +6
#JUMBIT, (R2)
#ACTRIT. (R2)
#ODDBIT. (R2)

(LR
CLR
CLR
CLR
CLR
INC

(LR

(R1)
2(R1)
2(R1)
4(RY)
6(R1)
DONUM
#10.R1
#164000,R1
18
DQACTY

BEQ
MOV
MOV

48
DANUM,R1
R1, SAVNUM

ROL

DSACTY

ADD
(MP
BNE
ST

3¢ :

R1,.R2)+
#SYNBIT, (R2)
(R1)

.+6
#RRBIT, (R2)
#17.5(R1)
#-1.6(R1)

TST

001500
001504

#12.5(R1)

BEQ
BIS
MOVB
MOV

BEO
BIS

#5$. s

#10.5(R1)
#-1.5(R1)

MOV
BIT

00000¢

#160000,R1

MOVB
MOV

000002
000002

#1400.R2
+
(R2)
#1512 ,R2
.6
DONUM
#1400 ,R2

6(R1)
#10000, (R1)
#30000.6(R1)
2$

000005
00000¢

.START

CLR
MOV
WP
BNE
MOV
BIS
(LR

100000

000010

PAGE 16
ROUTINES USED FOR AUTO SIZING.

001512

000614

08:41

(LC
INC

(R2)+

DQNUM

DOACTY

SEQ 0015

:GO TO START OF PROGRAM
;CLEAR ALL STATUS TABLE

;D0 CLEAR
JALL TABLE DONE
;BR IF MORE TO GO
;SET NUMBER OF DQ11S TO O
;SET TABLE POINTER
sGET FIRST FLOATING ADDRESS

sSET FOR TIME OUT TRAP--NO DEVICE--

sTRY AND SEL MISC REGISTER
;TRY AND CLEAR MISC REG
;TRY AND SET RX ACTIVE

;LOOK FOR SYNC 1 AND SYNC 2

sTHIS

IS NOT A DQ11

I BRANCH

sNOW THIS IS A DQ11 --STORE (SR
;SET FOR TWO SYNC CHARS

sCLEAR DQ ACTIVE BIT
sSEL _CHAR DET REGISTER
;JWRITE INTO CHAR DET REG
JWAS THE REGISTER WRITTEN?
JAPPERENTLY NO BB OPTION.
;SET FOR BB OPTION
;SEL POLYNO. REGISTER
JWRITE POLYNO.REGISTER

;WAS REG WRITTEN??
:BR_IF NO AB OPTION
;SET FOR AB OPTION
;TRY TO SET .DTR. .RS.

:DID ANY OF THEM SET
;BR _IF NO BA OPTION
;SET FOR BA OPTION
.DID .CS. .CO. SET
;BR _IF NO JUMPER
;SET FOR JUMPER
JSET FOR ACTIVE ON FIRST NON-SYNC
;SET FOR ODD VRC.......
:POP POINTER
;CLEAR RCSR
;CLEAR T(SR
:CLEAR AGAIN
:CLEAR ERROR REG
sCLEAR SEC REG
;UPDATE NUMBER OF DQ11S
;UFDATE (SR POINTER BY 10 (8)

JHAVE ALL FLOATING ADDRESSES BEEN CHECKED??
:BR_IF NOT ALL DONE
;ZERO ACTIVE DQ11S
WERE ANY DQ11S FOUND

*HEY BUDDY. NO DQ11S FOUND IN SYSTEM
;SAVE NUMBER OF DQ11S
;SAVE NUMBER FOR ACT11

CLE gCTTVE
ADDRES
v
'FT-B
>

CZDQH
MACY11 30A(1052)
07-JuUL~-78
CZDQHD.PI
07-JUN-78 07:59

08:41

DEC

MOV
MOV
MOV
MOV
MOV

#6, %

BNE

000004
001502
000022

MOV

000056

JMP
TYPE
MERRZ2

CLR

000466

001000
005377
042110
051101
044440
000377

055103
177460
046040
052116

5%:

050504
044103
023040
020122

.=1000

MTITLE:

001200

.=1200

177570
177570
177560

LIGHTS:

177562
177564
177566

HALT
B8R

3¢

DQACTV, SAVACT

#340, 3422

x14ob R2
#300.R0
#302.R1
VECMAP

000000

SEQ 0016
;DEC NUMBER OF DQ11S
:BR IF MORE T0 GO
JRESET TIME OUT VECTOR
;SAVE ACTIVE
0 7
'pET 10T TRAP PRIO:

;SET TABLE POINTER
JSET VECTOR START
JSET VECTOR+2 START
;GO FIND THE VECTORS

s TYPE MESSAGE
;1 DIDN'T FIND ANY DQ11S.

MOv

#2$%, (SP)

.ASCiZ

<377><12>/C2DQHDO/<377>/CHAR L

RT]

& INTR /<377>

;INDIRECT POINTERS

SWR:

177570

sSWITCH REGISTER POINTER

TKCSR:

177560

;TELETYPE

TKDBR:
YTPCSR:
TPDBR:

177570

;DISPLAY REGISTER POINTER

RETURN:
NEXT:

O
0

TSTNO:
PASCNT:
ERRCNT:
LSTERR:

0
O

KEYBOARD

(HAR1:
(HAR?:
CHAR3:

0
C

0
(
0

TEMP1:
TEMP?2:

0
O

TEMP4:

(

TEMP3:

PARAMETERS

LOCK :
0
ICOUNT: 3
LPCNT:
O

000000
000000
0092000
000000
000000
000000
000000

CONTROL

JTELETYPE KEYBOARD DATA BUFFER
sTELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

177562
177564
177566

;SCOPE ADDRESS FOR LOOP ON “EST
;ADDRESS OF NEXT TEST TO BE EXECUTED
;ADDRESS FOR LOCK ON CURRENT DATA
sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
JNUMBER OF ITEREATIONS COMPLETED
JNUMBER OF

TEST

IN PROGRESS

s TEMPCRAKRY

STORAGE

sNUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF ERRORS
.PC OF LAST ERROR CALL

;PROGRW VARIABLES

001236
001240
001242
001244
001246
001250
001252

DON'T USE AUTO SIZE.

JHOW CAN | TEST NO DQ11S
;DON'T LET OPR HIT LONT. SW
JENTERED BY TIME OUT TRAP
.GO HOME.

;PROGRAM (ONTRCL

001214
001216
001220
001222
001224
001226
001230
001232
001234

ROUTINES USED FOR AUTO SIZING.

005301
000006
001500
000340

PAGE 17

. TEMPORARY STORAGE
; TEMPORARY STORAGE
. "EMPORARY STORAGE

OOV

~NONN S

%mmmmmm

Pt
Guir ot Pustr Putrd

810

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

000000
000000
000000
00000

PAGE 18

PROGRAM PARAMETERS,

TEMPS:

SAVRO:
SAVRY:
SAVR?:
SAVR3:

SAVR4:
SAVRS:
SAVSP:
SAVP(:
SAVNUM:
CREAM:

RUNFLG:

RUN:

RUNCNT
:

OOOOOOOOOO

807
808
809

08:41

.BLKW

CZDQH
MACY1T 30A(1052)
07-Ju.-78
CZDQHD .P11
09-JuN-78 07:59

VARIABLES,

AND

TRAP C(ALLS.

; TEMPORARY STORAGE
;RO STORAGE

JR1

STORAGE

;R2 STORAGE

;R3 STORAGE

JR4 STORAGE

;RS STORAGE

;STACK POINTER STORAGF

;PROGRAM COUNTER STORAGE

SEQ 0017

CZDQH
MACY11 30A(1052)
07-JUL~78
CZDQHD P11
09-JuN-78 O 7:59

O08: 41

PAGE

PROGRAM PARAMETERS,

VARIABLES,

ad e
D
-

W) 2O

— b
—d

INWNWWNW

;PROGRAM (ONTROL

3888

2
AND

SEQ 0018

TRAP (ALLS.

FLAGS

INIFLG:

.BYTE

;PROGRAM INITIALIZATION FLAG

ERRFLG:
%OKBLG:

.BYTE
.BYTE

O
0

JERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG

STFLG:
Y=

.BYTE

JTEST START FLAG

sDEFINITIONS FOR TRAP SUBROUTINE CALLS

;POINTERS

TO SUBROUTINES

cIN THE TABLE

CAN BE

FOUND

IMMECIATLY FOLLOWING THE DEF INITIONS

:t.'.'t'.'Q't.'.t'ttt't.'.".tv

AARANNANARAANNANANAARN TR AR A AN

AR AR

""Qt't.'..t'...'fl."'t.t'tittttttt'tttttfitttfitttt.ttittlttttfittifitli

001314
001314

104400

;CALL

S(0P1‘7RA§EEZ§

:CALL TU LOOP ON CURRENT DATA HANDLER

rvaf-rRAf;gpf

;CALL

104403

1~srn=ra§?;gTR

;CALL

TO ASCII

106404

INSTER=T??fi;¢ER

;CALL

TO INPUT ERROR HANDLER

104405

PARAM-TRAP +5

:CALL

TO NUMERICAL

014474

001320

104401
014606
104402
0146626

001322

014734

001324

015052

001326

015104
104406

001316

.TRPTARB:

. OPE=TRAP+0

001330

015320

001332

015360

001334

015412

001336

015416

C01340

013032

001342

012706

001344

016320

001346

016374

SAJOS=TR§§2§::

TO SCOPE

LOOP AND

TELETYPE

ITERATION HANDLER

OUTPUT

ROUTINE

STRING INPUT ROUTINE

DATA

INPUT

;CALL TC REGISTER SAVE ROUTINE

104407

RESOS:TR§§E§OS

;CALL

TO REGISTER RESTORE

104410

CONVRT=TRAP+1)

;CALL

TO DATA OUTPUT ROUTINE

ROUTINE

104412

NVRT=TRAB AT
NST(LR-T?&§¥E§R

;CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.
;CALL TO ISSUF MASTER CLEAR

104413

MEMCLR=TRAP+13

TO CLEAR ALL

104414

cxsun:rRéEEEE:R

;CALL

104415

CNTLu-er?L;EU

:CALL

TO ALLOW LOADING OF

104411

SCRATCH PAD MEMORIES

:CALL T) ALLOW SWREG TO BE LOADED FROM TTy
SWREG FROM TTy

".tt.'tltt'tttt.tQQ.'tt.'tt"".ttlQt..'fi."*..l..'t'l..'.t.'.'ttt...
"ttlt..ttttt".t'tt.tt""'.t.'.fi.'tfi'ttitttttfitfi"tt"'t'"Q‘t'.t‘"

;DQ1T

001350
001352
001354
001356
001360
001362

DOQRVEC:

DORLVL:
DQTVEC:
CarLvL:
DCR(SR:
DQR(SH:

Q
O
Q
0

VETTOR AND REGISTER

INDIRECT PQOINTERS

;POINTER TO DQ11

;POINTER
;POINTER
;POINTER
;POINTER
;POINTER

TO
TO
TO
TO

RECEIVER

INTERRUPT VECTOR

DQ11 RECEIVER INTERRUPT SERVICE PS
DG11 TRANSMITTER INTERRUPT VE(TOR
DQ11 TRANSMITTER INTERRUPT SERVICE PS
DQ11 RECEIVER CONTROL REGISTER

"0 HIGH BYTE OF

DQ11

RECEIVER CONTROL

PROGRAM PARAMETERS,

Q
0
O
O
O

DQACTYV:
SAVA(T:
DANUM:
DQCSR:
DQSTAT:

.BLKW
.BLKW
_BLKW
.BLKW
.BLKW

TO
TO
TO
TO
TO

SEQ 0016

TRAP CALLS.

DQ11
DQ11
HIGH
DQ11
HIGH

TRANSMITTER CONTROI REGISTER
ERROR REGISTER
BYTE OF ERROR REGISTER
SECONDARY REGISTER
BYTE OF DQ11 SECONDARY REGISTER

;CONTROL STATUS REGISTER FOR DEVICE NO: 00
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 01
:VECTOR AND CONFIGURATION STATUS FOR DEVICE
. CONTROL STATUS REGISTER FOR DEVICE NO: 02
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
. CONTROL STATUS REGISTER FOR DEVICE NO: 03
;VECTOR AND CONFJGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 04
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 05
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 06
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 07
;VECTOR AND CONFJGURATION STATJUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 10
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL

STATUS REGISTER FOR DEVICE NO:

:VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 12
,VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 13
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 14
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 15
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 16
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 17
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
JHOLD ACTIVE BITS FOR TESTING
s SAVE NUMBER OF ACTIVE DQ11S
;OCTAL NUMSER OF TOTAL NUMBER 0D DQ11S

8888888888828%8 5§88

D ad —D —d —d
d o
D oD
D ed
d
b oD
D
D
b —d D
D
D
D

. 1400
DQCROO: .BLKW
DQSTO0: .BLKW
DQCRO1: .BLKW
DQSTO1: .BLKW
DQCROZ2: .BLKW
DQSTO2: .BLKW
DQCRO3: .BLKW
DQST03: .BLKW
DQCRO4: .BLKW
DUSTO4: .BLKW
DOQCROS: .BLKW
DQSTO0S5: .BLKW
DQCRO6: .BLKW
DQST06: .BLKW
DQCRO?7: .BLKW
DQST07: .BLKw
DOCR10: .BLKW
DQST10: .3LKW
DQCR11: .BLKW
DQST11: .BLKW
DOCR12: .BLKW
DQST12: .BLKW
DQCR13: .BLKW
DQST13: .BLKW
DACR14: .BLKW
CAST14: .BLKW
DQCR1S: .BLKW
DQST1S: .BLKW
DOCR16: .BLKW
DQST16: .BLKW
DQCR17: .BRLKW
DQAST17: .BLKW

001400
000001
000001

G01400
001402
001404
001406
001410
001412
001414
001416
001420

VARIABLES, AND

STATUS TABLE AND ADDRESS ASSIGNMENTS

b md

;DQ11

;POINTER
;POINTER
JPOINTER
;POINTER
;POINTER

DQTCSR:
DQERR:
DQREG:
DQSEC:
DQSECH:

d od o

000000

PAGE 20

001364
001366
001379
001372
001374

08:41

— ed e

CZDQH
MACY11 30A(1052)
07-JUL-78
CZDQHD.P11
09-JUN-78 07:59

00
01

05
06

07
10
1M

12
13
14
15

sCSR OF DQT1 UNDER TEST
;VECTOR AND (ONFJGURATION STATUS OF DQ11 UNDER TEST

sPROGRAM INITIALIZATION
JLOCK OUT INTERRUPTS
sSET UP PROCESSOR STALK
JSET UP POWER FAIL

VECTOR

;CLEAR PROGRAM (ONTROL FLAGS AND COUNIS
JTYPE TIT.S MESSAGE

CZDQH
MACY11 30A(1052)
075JUL-78
CZDQHD.P11
09-JUN-78 07:5

933
934
935

000340
001200
016222
001504

022737
001001
104415
105777
100402

004737
104402

012737
017737
001406

177776

.START: MOV

000024
00127¢

MOV

#340,PS

MOV

#STACK,
SP

MOV
CLRB
CLR
CLRB
CLR

DANUM, SAVNUM
STFLG
DASCNT
ERRFLG
RUNFLG

#.PFAIL

sLOCK OUT INTERRUPTS
;SET UP STA(CK
JSET UP POWER FAIL VECTOR

;CLEAR START FLAG
;CLEAR PASS COUNT

.CLEAR ERROR FLAG

000001
001512

001226
001214

MOV

17757¢C
177570

001200
001202

MOV
MOV

#DSWR, SWR
#DLIGHTS ,LIGHTS

MOV

a4 . -(SP)

MP
BEQ
BR
cMP
MOV
MOV
MOV

#-1,3SWR
65$
66$
(SP)+,(SP)+
#SWREG, SWR
#DISPREG,LIGHTS
(SP)+, a4,

JRESTORE

TST

ani?

UNDER MONITOR

000176
000174
000004
000006
000042

001200
001202

MOV

645
65%:
66$:

MOV
BNF

BNE

TYPE

coM8
CMP

001200

BNE
67%:

177252

0C' 2«4
00124¢

000002

0C1244

000001

177760

CNTLU

ISTB

#1,TSTNO

#.START
,RE TURN

a#6,=(SP)

#64$, a6

108

INIFLG
#SWREG,
SWR

aSwR

#1400, TEMP1
aTEMPT, TEMP?
+16

,XHEAD

XSTATQ
ADD

82, TEMPT

BIT
BEQ

#Sw00,aSWR
1%

MNE
W

(LR

HAL
T

0015C2

128

LMTITLE

MOV
MOV
BEQ
CONVRT

B8R

(KSWR

JSET UP FOR TIMEOUT
JREFERENCE HARDWARE SWITCH REGISTER

;ADJUST STA(CK
;POINT TO SOF TWARE SWITCH REG
JPOINT TO SOFT DISPLAY REG

(SP)+.a#6

.+6
PC, CSRMAP

TYPE

;CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
JSET UP FOR TEST 1
;SET UP FOR POWER FAIL BEFORE
;TESTING STARTS
;MOV HARDWARE SWR TO SWR
MOV DISPLAY LIGHTS TO LIGHTS
. SAVE VECTORS

ERRCNT
LSTERR

BM]
JSR

TYPE

014771
005000
000000

177140

#1400, CREAM

sowxwwsxTHE NEXT & LINES OF
TSTB
INIFLG

177232

000220
017050
001400

MOV

177326

001310
001600
001310
000176

CLR
(L
MOV

0v0004

104402

104414
0277%7

SEQ 0020

PROGRAM INITJALIZATION AND START UP.

104410

017076
062737
000766
032777
001424

MOV

177777

105737
001035
104402
105137

PAGE 21

061200

000006
000004
001656

012637
005737
001014

08: 41

=22

RO
wSWR,SA
AT

FODE MOVED

VECTORS

TG SOLVE PRA2757 (JUNE 78)xanxex
JHAS INITIALIZATION BEEN PERFORMED?

;IF YES, BR

;TYPE

TITLE MESSAGE

JIF NOT SET FLAG AND INIT
;1S SWREG USED

CZ0QH
MACY1T 30A(1052)
07-JuL~-78
{ZDQHD .P1N
09~JUN-78 07:59

989

08:41

TYPE

238

177120

001500

997
998

00500

2222222222833385 88883

11%:

k¥

2%:

RV,)

)

001000

aSWR,DQACTYV
DQACTY,RO

CKSWR
MOV

#300,R0

TMwP

#1000,R0O

[0 BaNTo

;TEST

Nols RNTe QU B NVIT, S Y o)

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

BNE

START

AND RESTART

012737
012706
005737
001040

000340
001200
000042

032777
001411

000004

177032

016670
000240
000240

BIT
BEQ

#BIT2,aSWR
1%

014504
014506

MOV
MOV

#NOP ,TTST
WNOP,TTST+2

MOV
MOV
BIT

BRW,TTST
BRX,TTST+?2

104414

104402

012737
012737
000406
013737
013737
032777
001410

014602
014604
000002

177776

.BEGIN: MOV

MOV
TST

BNE

014504
014506
176764

CKSWR
TYPE

1%:

2%:

8EQ

104403

INSTR

016656

#340,PS

sLOCK OUT INTERRUPTS
;SET UP STACK
;1S PROGRAM UNDER MONITOR CONTROL

#STACK,SP
a2

;CHECK FOR <*G>

;CHECK FOR LOCK ON TEST

.MLOCK

JSET UP TO LOCK

sLOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP
JIF SW01=1, GET STARTING PC

#SW01,aSwR
33

MTSTP(
PARAM

104405

002254
012040
001214
001

TST1

.BYTE
BYTE

002254
016560

001214

176740

3¢:

TLAST
#RE TURN

1
1

MOV

4%:

TYPE

TEST

JMP
1

4 3

#TST1,RETURN

JSTART AT

:TYPE

aRE TURN

:START

TEST

TESTING

NN NONNNN

= NNONSNNN

WNANLN
= NN NN

-ACDCfig-JCNDCD

O
—
Q==
LS VTRV,
T, S 1,81, ¥

o
~nN

"t.t't.'tt'tt.flt.tltfit'i"ttttt.ttt'-'.'..ttttt"'...fitit'tt't't.t't'

)
D
D o
D
) e
D
d
d
nd

.=l

MOV
MOv

MOV
MOV
CLR
(TM

D
d e

001372

HALT

200300
000302

1000

)

8L0S
HALT

995

—

SEQ 0021

MERR3

993

oleololelelolololale)

PROGRAM INITIALIZATION AND START UP.

101404

990
991
992

PAGE 22

000001
002644
002644
001302

000001
000020
01302

001226
001214
001276

001304
001306

TST1:

MOV
MOV
MOV

#1,TSTNO
#TST2 ,RETURN
HTST2 NEXT

BNE

TSTR

MOV

MOV
COMR

RUNFLG

;1S

#3]1T0,RUN

;SE

T4, RUNCNT
RUNF LG

THIS

JBR |

;SE
;SF

POINTER,

—=O Vo ~NONWN
W

S
S
N
S
G

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

000746

001304

08: 41

001500

001300

000020
001400
000001

001306
001300
001304

[@}Ve]

016563
000000
000776
000257
006137
017737
062737
017737
062737
013737
013737
042737
013737
062737
013737
062737
013737
062737
013737
005237
013737
062737
013737
062737
013737
005237
013737
005237
013737
005237

1%:

BIT
BNE
TST

RUN,DQACTV

ROL
ADD
DEC

RUN
#4 , CREAM
RUNCNT

MOV
MOV

#16

BNE

2%:

001304
176646

INITIALIZATION AND START UP.

BEQ
CCC

001304
000004
001306

FAGE 23

PROGRAM

201500

104402

—d S
S
i S S S S S

FARAARRRER

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.PIN
09~JUN- 78 07:59

3¢:

MOV
B8R

TYPE

Ccc

001506
001300
001510
001300
001360
001350

DQACTV

,RUNCNT

#1400, CREAM

#1 RN
1%

.2
RUN

aCREAM,DQCSR
#2,CREAM
QCREAM, DQSTAT
#2.CREAM
DACSR,DORCSR
DQSTAT ,DQRVEC

#1770
. DQRVEC
07

DQRVE
DQRL
C,
VL
#2 ,DARLVL
DQRLVL ,DQTVEC

#2 ,DATVEC
DQTVEC,DQTLVL
#2.DQTLVL

001356
001362

001370
001370
001372
001372
001374

001364
001364
001366
001306
001370

MOV

001372

MOV

001374

ADD

INC

INC
MOv
INC

DORCSR, DQRC SH
DQRCSH
DQGRCSR,DQTCSR
#2,DQTCSR
DOTCSR,DQERR
#2 .DOERR
DOERR, DOREG
DOREG
DQREG,DQSEC
DOSEC

DQSEC,DQSECH
DQSECH

SEQ 0022

JFIND AN ACTIVE DQ11

JRESTORE RUN POINTER.

JKEEP ON TESTING.
;ALLERT OPERATOR OF FATAL ERROR
;NO DQ11 ACTIVE. WHY AM | HERE???
;YOU MUST RELOAD DQ11 DIAGNOSTIC!!
;STICK HERE ON CONT.
;CLEAR CPU COND. CODES
JUPDATE RUN. ACTIVE DQ11 FOUND.
;PLACE ADDRESSS OF DQ11 AT DQCSR
JUPDATE ADDRESS POINTER
;PLACE STATUS OF DQ11 AT DQSTAT
;UPDATE ADDRESS POINTER

s GENERATE ADDRESS OF RECEIVER INTERRUPT SERVICE PS
s GENERATE ADDRESS OF
;GENERATE ADDRESS

s GENERATE
s GENERATE

TRANSMITTER

INTERRUPT

VECTOR

SERVICE

OF HIGH BYTE

;GENERATE ADDRESS OF ERROR REGISTER
s GENERATE ADDRESS OF HIGH BYTE OF ERROR REGISTER

s GENERATL ADDRESS OF SECCNDARY REGISTER
s GENERATE ADDRESS CF HIGH BYTE

JVR(C

;THE CA3SLE AND TURN AROUND
TRANSFERS.

TRANSMITTER

BB OF TRANSMITTER CONTROL REGISTER

;DQ11 HELL RAISER!!!
JTHIS TEST WILL EXERCISE:
;DQ11 RECEIVER AND TRANSMITTER INTERUPTS
SENTER T AND EXIT T (IF AB OPTION INSTALLED)
s CHARA(TER

TO TEST.

;BR IF 1 FOUND ONE TO TEST.
;FIND OUT IF THERE ARE NO DQ11 ACTIVE.
;BR TO FATAL ERROR. WHY AM | HERE IF NO ACTIVE DQ11°'S???
;CLEAR ALL THE CONDITION CODES OF CPU
;UPDATE RUN POINTER
;UPDATE ADDRESS POINTER.
;DEC NUMBER OF TIMES I LOOKED AT ACTIVE.
;BR AND KEEP LOOKING.
;START RESTORING MY POINTERS.
JRESTORE ADDRESS POINTER

(DATA ONLY)

CZDQH
MACY11 30A(1052)
O07-JUL-78
CZDQHD .P11
09~JUN-78 07:59

1101

;

1102

1103
1104
1105

1106

}}85

002644
002652
002660

002666

012737
012737
012737

012737

200002
002736
000036

001226
001214
001222

#SYNBIT,DQSTAT
1
#377.SYNC
XSYNC

;ONE SYNC CHAR OR TWO?
‘BR IF TWO
*SET ONE SYNC.
:DBL SYNC SET TO ONE.

MOVR

#26,SYNC

*LOAD FOR TWO SYNC

013052

1114

002720

112737

000026

013052

1116
1117
1118
1119
1120
“121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135

002734
002736
002742
002746
002752
002756
002764
002770
002776
003002
003010
003014
003022
003026
003034
003040
003046
003052
003060
003064

104413
005037
005037
005037
105077
012777
105277
012777
105277
012777
105277
012777
105277
012777
105277
012777
105277
012777
105277
012777

003100
003106
003112
003120

002726

003072

012737

1146

003152

012700

1148
1149
1150
1151
1152
1153
1154
1155
1156

003162
003164

110320
105303
001375
012700
005003
116320
105203
100375
012777

00315¢

003166
003170
003174
003176

003200
003202
003204

012777

012703

123456

28 :

SETON:

176350

176234
176224

003144

1$:

176362

000010
000017

001003

:ADJUST SYNC CHARACTERS.

176374

052777
112777

}}zg

1147

013052
176354
177576

176406

176252
001510

003126

003130
003136

014302
014274
177776
176412
013256
176400
177600
176366

013656

013777
105277
012777
032737

1141

1142
1143

013026

176342
014064
176230
177600
176316
013662
176304
177600
000011
013050
176256
104000
0460000

112777

#2.TSTNO
#2$ ,RETURN
#30., ICOUNT

BIT
BNE
MOVB
CLR

000377
013656

000406

MOV
MOV
MOV

#TSTS NEXT

061510

002716

TST2:

MOV

100000

1137
1138
1139
1140

TEST 2

001216

032737
001006
112737
005037

1136

SEQ 0023

003756

002674
002702
002704
002712

1115

;ttttfttfitttttttttttttt"ttttt**t*tttttttttttttt*tttttttttttttfitttttt

1109
1110
1111
1112

1113

08:41
PAGE 24
PROGRAM INITIALIZATION AND START UP.

176336
176324
176312

176300
176270
176264

013662

2%:
°7+° 2

MEMCLR
CLR
CLR
CLR
C(LRB
MOV
INCB
MOV
INCB
MO\
INC
MOV
INCR
MOV
INC(R
MOV
INC(B
MOV
INCB
MOV

#13026,XSYNC
GDCHAR
CHAR
PS
@DOREG
#RXBUFF ,aDQSEC
aDQREG
#-200,3DQSEC
@DOREG

#SYNC.aDQSEC
aDOREG
#-202,8LASEC

MOV
INCB
MOV
BIT

@DOREG
#XRXBUF ,@DQSEC
@DQREG
#-200,30QSEC
@DOREG
#XTXBUF ,@DQSEC
QDOREG
#-200,3DQSEC
#11,aDQREG
.SYNC,@DQSEC
QaDOREG
#104000,30QSEC
#JUMBIT.DQSTAT

8IS
MOVB

#M]IT3,3DQSEC
#17,3DOREG

BNE

013054

003502

MOV

MOVB

176220

000177

B8R

.+10

;;++D

CONT.

-SAME FOR DBL SYNC

*CLEAR ALL REGISTERS GIVE MSTCLR
;ZERO POINTER
:
*ZERO PROC. PRIO.
*SEL THE RX BA PRI.
:LOAD RX BA PR].
*SEL RX WC PRI.
:SET FOR 200 (8) CHARS
*SEL THE TX BA PR].
-LOAD WITH SYNC POINTER
*SEL THE TX WC PRI.
:SET FOR 2 SYNC AND 200 (8) CHARS.
*SEL THE RX BA SEC
:LOAD RX BA SEC
SSEL 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 ENASLL.
1S JUMPER AT END OF CABLE>

‘BR

YES

NO CABLE

*SEL

SET

TEST LOOP FOR DATA

TURN AROUND

THE POLY REGISTER

MOV

#12%456,3DQSEC

MOV

#TXRFA RO

MOVB
DECB

R3,(R0)+
*PRIMARY IS BINARY COUNT BACKWARDS.
R3
*DONE?
13
*NO
#XTXBUF ,RO
*SET SEC BUFFER
R3
7
R3,(R()+
7
*SECONDARY IS BINARY COUNT
R3
*DONE
?
2
L
#RXISK,@DORVEC
:SET RECEIVER [NTERUPT POINTER

MOV

BNE
MOV
CLR
MOVB
INC(B
8PL
MOV

#177.RS

:SET PLOYNOMIAL
.

JSTART

TO FILL, TX BUFFERS

SCOUNTER

.
,.’

-~ ATS

= PONJWN
SONNVONY

176026

014266

003346
003354

032777
001425
112777
042777
012777

000004

176010

000002
000200

176004
175772

003502

NI
O

(0], ¥],¥]

=00
NOO
==

#75.,TEMP3

#16. ., TEMPS

4%:

#17.aDQREG
SDQREG
aDQSEC
aDQREG
TEMPS
3s
TEMP?
4$
5

001232

001226
—

104005
°

ENDTSZ:

104400

100001
104004

105277
152777

0127277
142777
000002
042777
112777
012777

013054

175764
000120
177600

TXISR:

005037
017737
100001
104004

032777
001426
042777
105077

012777

aDOERR,ERR
.+4
A

#3172,8DQTCSR

;SET PRIO: 10 5
JSET TX VECTOR
;SET PRIO TO 5

175756

$SET NUMBER OF

000100

*SEL RX BA PR].
:SIT HERE AND MAKF WAVES
SWHILE INTERUPTS LCCUR
R AT AT AT AT 47 A7 2T LY Ay LY &Y & 2
R ALAT AT AT AT AT &7 27 27 27 L) 27 3
+ SAME
*UPDATE COUNTER
‘KEEP GOING
“RX FAILED TO CONTINUSLY INTERUPT
sxxxx«STRONGLY SUGGEST SWO8-1 (GOTO TOP OF
SKEEP 1T GOING.

;ANY ERRORS
;BR IF NO
:DQ11 ERROR FLAG IS SET.
SaxxxxSTRONGLY SUGGEST SWO8-1

-WHO SHOULD I

:L.0AD THE TX BA PRI
SSEL THE TX WC PRI.

#6.,aDOREG

*SEL THE TX BA PRI.

aDQREG

SSEL

#17_aDOREG

000004

175632

000200

175622

175626
013256

TEMP?

014266

175622

aDQERR, ERR

.ty

:LOAD

THE

ERROR

TX BA SEC

TX WC

SEC

;SET WRITE EN.

;LOAD THE TX WC SEC

AND EXIT T

:CLEAR REG POINTER

STAGE LEFT.

CEXIT

;LET TIMER KNOW THAT RX
*ANY ERRORS

INTERUPTED

;BR IF NO

:DQ11

BIT

#BIT2,8DARCSR
2
#8177 ,8DAQRCSR
acREG

:WHO SERVICE
PRI OR SEC
:BR IF SEC NEEDS SERVICE
:CLEAR RX PRI. DONE
*SEL RX BA PRI.

#RXBUFF ,@DQSEC

TEST OF

AND ENTER T

HLT

BEQ
BI(
CLRR
MOV

ERROR

:CLEAR TX PRI DONE.

#BITS+BI T4, aDOREG

000017

(GOTO TOP OF

SERVICE PR] OR SEC?

NTXBFA,3DQSEC
aDQREG

#-200,aDQSEC

TEST OF

:SCOPE THIS TEST......

:BR IF SEC NEEDS SERVICE
SSEL TX BA PRI

#XTXBUF ,8DQSEC

175654

INTERUPTS WANTED

*SET FOR 16 REGISTERS

#BIT6+B1 T4, 3DAREG
;SET WRITE EN.
#-200,3DQSEC
:LOAD TX WC PR].
#17.3DQREG
:CLEAR REG POINTER.
SEXIT
STAGE RIGHT
#BIT6,aDATCSR
:CLEAR TX SEC DONE

000017

001246

sSET RX GO AND IE

1%
#2.aDOREG

#BIT7.3DQTCSR

175772

105277
152777

012777
142777
000002

#TXISR,aDQATVEC
#240 aDQTLVL

#BIT5+BIT3+BIT0,a8DATCSR :SET TX GO AND IE AND ERROR IE
TEMP2
:SET TIMER

176066
176064
176056

003324
003326

#240,aDQRLVL

SEQ 0024

#8175+8170.,3DARCSR

— )

017737

nN=O

MOV

NNNNW
o000

SRR R R e SRR TR R AR RN ININIIIRTRTREREE

003334
003342
003344

(V] RER2

000240
003334
000240

—t b2
e a

012777

000754

R
R
i

003212
003220

03330
003332

e T

JOT IS WY WU WS YOS WU W

S U

S QT W

QS W S

WS S

WY WS WU

T I WU W

WU WIS W

WU S

YD G

NONLNLNDALNL
NN N f\)f\)r\)_a_n_A_a_a_a_a_n_a_n_a_A_a_.)_a_a_;_l—a_a_-l_a_n_a_a_l_l_a_l_a_a_a..—l_a_b_a—-l__b_a—)_a

o187
4~ 1158
59

08: 41
PAGE 25
PROGRAM INITIALIZATION AND START UP.

CZDQH
MACY1 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN-7 80 7:59

SRROR FLAG SET!!!'!

taxeaxSTRONGLY SUGGEST SWO8-1

cLOAD [T

(GOTO TOP OF

TEST OF ERROR

QU SO
S
W
Y
U
S
S
G
S
S
Y S
A W
G
N
N
—_— S

nony MPONIA NNV
NI NI NIND NN
NN NN NI NN NI NI NN n)
—
SN
NN ANINI NN NN NINONIN) — = o b
[@)Ve] CONOWVNB
NN =2OVONAR
NS WOV
NN NS W

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD. P11
09-JuN-78 07 :59

003550

175614
000120

177600

073054
013256
003656
000100
000004
014064
175536
000060

2
2
2

1414

2777
2777

4
4

08: 41

INCB
BISB
MOV
MOV
MOV
JMP
BIC

175606
175602

MGvVB
MOV

INCB
BISB

MOV
MOV
MoV
MOv
BI(B
BICB
CMP8
BEQ
MOVB
BIS
MOVB
MOVB
HLT

175464
175460

7%:

001250
003740
003742
003746
003754

003332

000002

000617

5%:
175414

SEQ 0025

PROGRAM INITIALIZATION AND START UP.

177600
013662
014064
000200
000200
000200

000012
000002
014302
014274

6%:

aDQREG

;SEL

#-200,3DQSEC

THE RX WC PRI].
sSET WRITE EN.
;LOAD RX WC SEC

#RXBUFF ,R2

*SET RX POINTER

#81T6+B1T4 ,aDAREG

#TXBFA,R

3
#BIT6,8DQRCSR

#4 . aDQREG

#XRXBUF ,aDQSEC

*PREPARE TO CHECK DATA. SET TX PCINTER
:GO AND CHECK DATA
:CLEAR RX SEC DONE
*SEL RX BA SEC
:LOAD

aDQREG
“SEL THE RX WC SEC
#BIT5+BIT4 ,aDAREG
:SET WRITE EN.
#-200,3DQSEC
;WRITE RX WC SEC

#XTXBUF ,R1
#XRYBUF .R2

‘GET TX BUFFER POINTER
“GET RX POINTER

#BIT7,(R1)

SCLEAR VRC

#200,R0

#8177, (R2)

(R1)+.(R2)+

7%
#12,3DQREG
#81T1,aDASEC
-(R1).GDCHAR
-(R2) ,CHAR

(R1)+,(R2)+

AND ENTER T

*GET NUMBER OF

AND EXIT T

CHARS

:CLEAR VRC

‘DATA 0K?

‘BR IF YES
*SEL MISC REG
*STOP THE DQ11 CLOCK.
-STORE GOOC CHAR
*STORE BAD CHAR.
:DATA COMPARE ERROR

sxxxxxSTRONGLY SUGGEST SWO8-1
*POP POINTERS

“ALL DATA CHECKED?

4%
TEMP3

‘BR IF NO
“ALL INTERUPTS DONE?

HENDTS2, (SP)
#17.aDOREG

:STOP THE SHOW CLEAR THE WORLD
SSET FOR END TEST RETURN
*CLEAR REG POINTER
STAGE MIDD!
€
SJEXIT

‘NO KEEP INTERUPTING

(GOTO TOP OF TEST OF ERROR

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JuN-78 07:59

08:4"

PAGE 27

PROGRAM INITIALIZATION AND

;TEST OF

SEQ 0026

START UP.

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

sTHIS TEST WILL XMIT AND RECV CHARACTERS

;AT 2 BITS/PER/(CHAR.

;DATA CHECKING WiLL BE PERFORMED!
;07 EST

AR ES 2SSt

003756
003764
003772
003774
004000
004002
004004
004006
004010
004016

012737
012737

000003
004324

012700
005001
005020
105201
100375
112777
013737
012737
143737
005737

013256

104413

100003

000241
106037
143737
000241
106037

013737
013737
013777
105277

001226
001216

Ts13:

5%:

000011
013052
177774
012370
001510

175352

TSI
BPL

CLC

10%:

RORB
BICB
CLC
RORB
MOV
MOV
MOV
INCB
MOV
MoV

tRd

#TST4 NEXT

#RXBFUF
,RO
R1
(R0)+
R1
5%
#11,3DQREG
SYNC, TEMP?2

#177774 ,MASK

MASK, TEMP?
DQSTAT
10%

TEMP2
MASK
, TEMP2+1

TEMP2+1
TEMP2,SYNCI
TEMPZ2,SYNC?2
TEMP2,aDQSEC

aDQREG

#31T73,aDQSEC

#16,R0
RO

175226
175220
175206

#RXBUFF ,aDQSEC

aDQREG

aDQREG
#-36. ,aDQSEC
aDQ EG
#SYNC2,aDQSEC
oDQREG

175162

175150

1%:

stz

2222222333222

#3,T1STNO

RO,aDQSEC
#31T1,aDQSEC
#31T1,aDQSEC

175174

000001

INCB
BPL

BI(B

001247
001246
001246
001246
175252
000010
000016

175120

CLR
CLR

MOVB
MOV
MOV

001246
012370
001246

001246
012370

175234

MOV
MOV
MEMCLR
MOV

aDQRCSR
aDQTCSR
RS
oDQRCSR

;CLEAR ALL THE DA
;LOAD THE BUFFER POINTER
JSET UP TO CLEAR THE BUFFER
JCLEAR IT
-DONE?
;BRANCH [F NO
JSELECT THE SYNC REG

;LOAD SYNCS
;LOAD THE MASK
JSET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?
:IF YES,RR.
;CORRECT SYNC CHARACTER
;FOR THIS CHARACTER LENGTH
JMANIPULATE DATA TO
;COME UP WITH THE
JPROPER SYNC CHARA(CTER
.LOAD THE CHARACTER
;DITTO
JLOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
JSET TEST LOOP

JFLIP THE BYTES
JSET CHARACTER LENGTH
JTURN CLOCK OFF...

<AND ON

;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY (CHAR COUNT
sSET CHAR COUNT
¢SEL TX PRIMARY ADDRESS
sLOAD THE SYNC CHAR
¢SEL TX PRI CHAR COUNT
:SET CHAR COUNT
;SET RX GO

JSET TX GO
;START TIMING

.15 DONE UP?
JBRANCH [F YES

;BR IF MORE TO GO

#°VBUFF ,RO

;LOAD BUFFER POINTER
sLOAD RX BUFFER POINTER

#1,RS

,R1
#RXBUFF

JWAIT

sERROR=--NO RX DONE

244D
;144D

*+¢+D

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN=-78 07:59

13064
1305
1306

1307
1308
1309
1310
1311
1312
1313
1314
1315

}glg

004262
004266
004266

004270
004274
004300
004304
004310
004312
004314
004316
004320

004322

012702

112005

005037
112137
013704
043705
020504
001401
104002
005302
001362

000044

3¢

001246
007246
001246
012370

4%:

106400

;

1325

0043264

004572

004342

012700

013256

004350

005020

004346

1334
1335

1336

1337
1338
1339
1320
1341
1362

1343

1344
1345
1346
1347
1348
1349

1350

1351
1352
1353
1354
1355
1356
1357
1358

1359

000004

012737

1330

1332

012737

004332

004340

1333

MOVB

(RO) +,RS

;GET A CHARACTER TO COPMARE

TEMP2
(R1)+,TEMP2
TEMP2 R4
MASK RS
RS, R4
X3
2
R2
3$

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

TEST &

;t't*tttt**t*ttt*tttt*ttt'tt*ttttttttttttttt*tttttttttttttttttttttttt

1328
1331

;SET UP TO COUNT CHARACTERS

iDATA CHECKING WILL BE PERFORMED'

1324

1329

#36. .R2

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

}ggg

1326

SEQ 0027

MOV
CLR
MOVB
MOV
BIC
(MP
BEQ
HLT
DEC
BNE
SCOPE

1318
1319
1320
1321

1327

08:41
PAGE 28
PROGRAM INITIALIZATION AND START UP.

004352

004354

104413

005007
105201

100375

112777
013737

000011
013052

004400
004406
004412
004414
004416
004422

143737
005737
100003
000241
106037
143737

012370
001510

004430

004432
004436
0044446
004452
0046460
004464

004472

004476
004500
004504
004512
004520
004524
004532
004536
004544

007216

012737

000241

106037
013737
013737
013777
105277
012777

177770

001246
012370
001247
001246
001246
001246
174704
000010

012700

000015

105277

174666
000002
000002
174644
013256
174632
177734
174620

000300
050077
052777
042777
105077
012777
105277
012777

TST4:

MOV

MEMCLR
5%

004356
004364

004372

001226

A#RXBUFF ,RQO

CLR

(RO) +

CLR

INCB

175004
001246

MOVB
MOV

001246

BICB
TSI
BPL
CLC
RORB
BICB

001247

012372
012374
174712
174700

174660
174652
174640
17462¢

MOV

10$:

#TSTS NEXT

MOV

BPL

012370

#4,TSTNO

cLC

RORB
MOV
MOV
MOV
INCB
MOV

MOv

SWAB
BIS
8IS
BIC
CLRB
MOV
INCB
MOV
INCB

R1
RI

;CLEAR ALL
;LOAD

THE DpQ11

THE BUFFER PQINTER

*SET UP TO CLEAR THE BUFFER
SCLEAR IT

*DONE?

*BRANCH IF NO

#177770 ,MASK

:LOAD THE MASK

#11,aDQREG
SYNC , TEMP?

MASK, TEMF?
DQSTAT
10%

TEMP?
MASK,TEMP2+1
TEMP2+1
TEMP2,SYNC1
TEMP2, SYNC2
TEMP2 . aDQSEC
@DCREG
#8173, aDQSEC

#15 R0

:SELECT THE SYNC REG
*LOAD SYNCS

SSET UP A MASK TO GET THE
SSINGLE SYNC CHARACTER?
;1F YES.BR.
*CORRECT SYNC CHARACTER
“FOR THIS CHARACTER LENGTH
:MANIPULATE DATA TO

SCOME UP WITH THE

:PROPER SYNC CHARACTER
:LOAD THE CHARACTER
:DITTO
SLOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
SSET TEST LOOP

;

RO
RO, aDQSEC
#81T1,3DQSEC
#R1T1,3DASEC
aDQREG
#RXBUFF ,aDQSEC
@DQREG
#- 36. ,aDQSEC

SFLIP THE BYTES
*SET CHARACTER LENGTH
*TURN CLOCK OFF...
*AND ON
:SEL RX PRIMARY ADRESS
:SET ADRESS
:SEL RX PRIMARY CHAR COUNT
:SET CHAR COUNT

QDQREG

SSEL

TX PRIMARY ADDRESS

si4+D
;o++D

;44D

CZDGH
MACY11 30A(1052)
07-JUL-78
CZDQHD.P11
09-JUN-7 8 07:59

012777
105277

012777

012374

174606
177732
174564
174564

MOV

174602

S
N

A IR

012702
112005

005037

112137
013704
043705
020504
001401

2%:
s

001246
001246
001246
012370

104002

005302
001362

SEQ 0028

4$:

:SEL TX PRI CHAR COUNT
“SET CHAR COUNT
“SET RX GO
“SET TX GO
*START TIMING
*1S DONE UP?
:BRANCH IF YES
SWAIT
*BR IF MCRE TO GO
*ERROR=--NO RX DONE
:LOAD BUFFER POINTER
*LOAD RX BUFFER POINTER
*SET UP TO COUNT CHARACTERS

MOVR
CLR
MOVB
MOV
BIC

(RO) +,RS
TEMP?

(R1)+, TEMP2
TEMP2 R4
MASK ,RS

;GET A CHARACTER TO COPMARE
D
:GET REC CHARACTER
‘MOVE TO Ré
*MASK OUT UNWANTED BITS

DEC

;TEST
STHIS
:AT &
:DATA

—_ et

;

;LOAD THE SYNC CHAR

aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
@DQRCSR
2$
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF R
#36. .R2

BNE
SCOPE

104400

#SYNC2,3DQSEC

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

CMP
BEQ
HLT

b
o
d
e

D bbb
b —

WWNWNNNWN WWWWW
SNANNNNNY ~ N NN
OO~ W =00

00000?

1%:

012376
013256
000044

PROGRAM INITIALIZATION AND START UP.

174614

174552

PAGE 29

T S

$EEEIE A58

1360

08:41

RS.R%
4%
2
3%

DO THE CHARACTERS MATCH?
‘BR IF OK
:ERROR--DATA DOESN'T MATCH

*ALL DONE?

*NO~-GO BACK FOR MORE
*SCOPE THIS TEST

OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
TEST WILL XMIT AND RECV CHARACTERS
BITS/PER/CHAR.

CHECKING WILL BE PERFORMED

TEST S

.'titfii*itttt*fl'fit*tttt*tQttttit'fifi*ttt**t*ttttktt*ttttti*tfi*itt*fi'i*ti

012737
012737

000005
005240

012700
005001

013256

104413

TST5:

S$:
000011
013052

177760

012370
001510
001246
012370
013737
013737

001226
001216

001247
001246
001246

174436

001246
012370
001246

MoV
MOV
MEMCLR
MOV

;CLEAR ALL

THE

DQ11

CLR

#RXBUF F ,RO
R1

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

INCB
BPL
MGVB
MOV

RI
S$
#11,aDOREG
SYNC, TEMP?

DONE
?
*BRANCH IF NO

CLR

MOV

(RO) +

#177%60 ,MASK

BICR

MASK,TEMP2

8PL

10%

108 :

#5,TSTNO
#TST6 NEXT

cLC
RORB
BICB
CLc

RORB
MOV

MOV

DQSTAT

TEMP?

MASK,TEMP2+"

TEMP2+1
TCMP2, SYNCT

TEMP2, SYNC?2

SCLEAR IT

SSELECT THE SYNC REG
:LOAD SYNCS

:LGAD THE MASK

*SET UP A MASK TO GET

*SINGLE

;IF

THE

SYNC CHARACTER?

YES,BR.

*CORREZT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH
SMANIPULATE DATA TO
SCOME UP WITH THE

*PROPER SYNC CHARACTER
*LOAD THE CHARACTER

DITTO

;:++D

so++D

soeeD

CZDQH
MACY11 30A(1052)
07-JuL-78
{ZDQHD.PNN
09-JuUN~78 07:59

013777

105277

012777
012700
000300
050077
052777
042777

001246
176336
000010
000014
174320
000002

105077

08:41

174312
174304

012777

174260

012777

174246

105277

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

005037

112137
013704

MOV

174332

174272

105277

1%:

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

;SET ADRESS

INC
INC
CLR
TSTR

RS
aDQR(CSR

ADD

#1,RS

HLT

;ERROR--NO RX DONE

HRXBUFF ,R1

;LOAD RX BUFFER POINTER

ADQRCSR
aDQTCSR

¢SET RX GO
sSET TX GO

;BRANCH IF YES

:START TIMING
;1S DONE UP?
JWAIT

sBR IF MORE

#TXBUFF ,RO

MoV

#36..R2

MOV

MOVB

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

TEMP?2

MOvB
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

(R1)+,TEMP2
TEMP2 R4
MASK ,RS

;GET REC CHARACTER
sMOVE TO R4
;MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(k?
JBR IF OK
;ERROR-~DATA DOESN'T MAT(CH
;ALL DONE?
;NO--GO BACK FOR MORE
;SCOPE THIS TEST

RS ,R4
4%
2
R2
3%

;TEST OF

TO GO

:LOAD BUFFER POINTER

(RO) +,R5

CLR

JTHIS

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

TEST WILL

XMIT AND RECV CHARACTERS

JAT 5 BITS/PER/(CHAR.

;DATA (CHECKING WILL BE PERFORMED.
TEST 6
CAR

nonY

SNV
ONSO
N
00

R
§5888*99

1465

aDQREG
#-36.,aDQSEC
aDQREG
#SYNC2,aDQSEC
aDQREG
#-38. ,aDQSEC

N#RXBUFF ,aDQSEC

MOV

104400

1466
1467
1468
1469
1470
1471

INCB
MOV
INCB
MoV
INCB
MOV

2%:

001246
001246
001246
012370

sLOAD THE SYNC REGISTER

;SEL THE MISC REGISTER
;SET TEST LOOP
;
JFLIP THE BYTES
sSET CHARACTER LENGTH
;TURN CLOCK OFF...
+AND ON
s SEL RX PRIMARY ADRESS

BNE

1457
1458
1459
1460
1461
1462
1463
1464

TEMP2 ,aDQSEC

aDQREG
#BIT3,aDQSEC
#14 RO
RO
RO,aDQSEC
#BIT1,aDQSEC
#81T1,3DQSEC
aDQREG

BMI]

000001
012376
013256
000044

SEQ 0029

INCB
MoV
MOV
SWAB
BIS
BIS
BIC
CLRB
MoV

174234

174204

PROGRAM INITIALIZATION AND START UP.

174344

012777

PAGE 30

000006
005606

0012 26
0012 16

KRN

TST6:

AN T AR

MOV
MOV

MEMCLR

013256
5%:

MoV
CLR
CLR
INCB
BP!

AR A AR AN AR RN R

RN N AR AN RNNNENRNNANNAAANAAANNND

AN RN ANRNAEY

#6,TSTNO

#TST7 NEXT

#RXBUF F ,RO
R1
(RQ) +
R
5%

;CLEAR ALL

THE

DQ1

;LOAD THE BUFFER POINTER
JSET UP TO CLEAR THE BUFF{R
JCLEAR IT
JDONE?
JBRANCH IF NO

CZDQH
MACY11 30A(10;2)
07-JuL-78
CZDQHD
. P11
09-JUN-78 07:59

1672
1473
1474

1475
1676
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1492

112777

000011
013052

163737

012370
001510

013737
012737
005737

177740

001246

08: 41

001247
001246
001246
001246

Y 12372
0 12374

173752

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

MOVB
MOV

MOV

BICB
TST

10%:

1 73776

1 7 3764

173744
173736
173724

DQSTAT

108

CLC
RORB
?fiEB

TEMP?
MASK, TEMP2+1

RORB
MOV
MOV
MOV
INCB
MOV
MoV

TEMP2+1
TEMP2 ,SYNC1
TEMP2,SYNC2
TEMP2,3DQSEC
aDQREG
#BIT3,aDQSEC
#13,R0

BIS
BIS
BIC
CLRB

RO,aDQSEC
#BI1T1,aDQSEC
#B1T1,aDQSEC
aDQREG

173712
17370C

aDQREG
#-36.,aDQSEC
aDQREG
#SYNC2,aDQSEC
aDQREG
#-38.,aDQSEC
aDQRCSR
aDQTCSR
R5

INCB
MOV
INC
INC
CLR
TSTR

aDORCSR

BM]

ADD

#1,RS

00124€
001246
001246
012370

HLT

MOV
MOV
MOV

MOvVB

;GET A CHARACTER TM0 COPMARE

JTHIS

*GET REC CHARACTER

;MOVE T0O Ré
JMASK OQUT UNWANTED BITS
;D0 THE CHARACTERS MATCH?
.BR IF 0K

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

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

SCOPE

TIMING

;1S DONE UP?
;BRANCH IF YES

(RO) +,RS

DEC

BNE

;START

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

TEMP?2
(R1)+,TEMP?
TEMPZ2 R4
MASK RS
RS,R4
4%

HLT

;SET CHARACTER LENGTH
sTURN CLOCK OFF...
cAND ON
;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY (HAR COUNT
;SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
sSEL TX PRI CHAR COUNT
;SET CHAR COUNT
JSET RX GO
;SET TX GO

JBR IF MORE TO GO
;ERROR--NO RX DONE
sLOAD BUFFER POINTER
sLOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS

CLR
MOVR
MOV
BIC
(MP
BEQ

JTEST

‘FLIP THE BYTES

SWAIT

BNE

2%:

;SEL THE MISC REGISTER
*SET TEST LOOP

H#RXBUFF ,a@DQSEC

MOV

173666

.DI 170
;LOAD THE SYNC REGISTER

INCB
MOV
INCB

<>hhbw~fio-ac»oon~40un:\uuv-acfz oo
~N

)

D =D

NN (AL LV, LW, TV, LV, LV LV, RV, LW, IV IV, [V, 1V, |

D
b ed

LVIAY AUNOURUNINUNY
= — —d md
= a0

#177740,MASK

MOV

000001

_—

SEQ 0030

sSELECT THE SYNC REG
sLOAD SYNCS
;LOAD THE MASK
JSET UP A MASK TO GET THE
sSINGLE SYNC CHARACTER?
IF YES,BR.
sCORRECT SYNC CHARACTER
sFOR THIS CHARACTER LENGTH
sMANIJPULATE DATA TO
:COME UP WITH THE
;PROPER SYNC CHARACTER
;LOAD THE CHARACTER

MASK, TEMP?

SWASB

173636

012376
013256
000044

#11.aDOREG
SYNC, TEMP2

BPL
001247

PROGRAM INITIALIZATION AND START UP.

174070
001246
012370
001246

012370

173770
000010
000013

PAGE 31

"RANSMITTER AND RE CEIVER

TEST WILL

XMIT

(HARATER LENGHTHS

AND RE (Vv (HARA(TERS

;14D
s.++D

J+4D

CZDQH
MACY1? 30A(1052)
07-JuL~-78
CZDQHD.PI
09-uuN-78 0 7:59

08: 41

PAGE

PROGRAM INITIALIZATION AND

1528

SEQ 0031

START UP,

g?hbHU“fiLhUNfi\thULb
NN
NS W20 0 oo~ XY
HHBD
N - Eet. Svep S oR 8
NWIRBNIR:1,

;AT 6 BITS/PER/CHAR.
;DATA (HECKING WILL BE PERFORMED.

AT
ALY, IV, [V IV, IV, IV N (VLA LV ARV IV IV IV ALV RV LV, 1V, [V, (U, ] VIV

;

000007
006154

001226
001216

TEST 7

177700
012370

001510
001246
012370

001247
001246
001246
001246
173422

000010
000012
173404

73522

001246
012370
001246

001247

108:

012372
012374

173430

173416

(o]
ooomgm

SEEEE

#17770C , MASK

CLC
RORB

BICB

TEMP?2

“ASK,TEMP?

;CLEAR ALL

THE D@11

:LOAD SYNCS

*LOAD THE MASK
SSET UP A MASK

TO GET

THE

DQSTAT

*SINGLE

TEMP?

*CORRECT SYNC CHARACTER
SFOR THIS CHARACTER LENGTH

10%

MASK,TEMP2+1

“IF

SYNC

CHARACTER?

YES,RR.

*MANIPULATE DATA T0

BIS
BIC
CLRB

#B1T1,3DQSE(
#BIT1,aDCSEC
aDQREG

;TURN CLOCK OFF...
JAND ON
SEL RX PRIMARY ADRESS

SCOME UP WITH THE
*PROPER SYNC CHARACTER
:LOAD THE CHARACTER
:DITTO

*SET CHARACTER LENGTH

MOV

ARXBUFF ,aDQSEC

-SET ADRESS

MOV

#-36.,aDQSEC

:SET CHAR COUNT

aDOR(SR

SET RX GO

INCB
MOV
INCB
MOy
INC

INC
(R
TSTB

BM]

@DOREG

@DOREG
#SYNC2,aDQSEC
@DQREG
#-38,,aDOSEC

aDATCSR
RS
@DORCSR

SEL RX PRIMARY CHAR COUNT

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

‘BRANCH IF

YES

ADD

#1,RS

SWAIT

HLT

*ERROR--NO_RX_DONE

MO/

#RXBUFF .R]

1LOAD RX BUFFER POINTER

MOVB
(LR

(A7)
s RS
TEMP?

:GET A (HARACTER TO (OPMARE
e

BNE

2%:

MOV

#TXBUFF,RU

#36.,Re

;AR [F MORE

;244D
;o+¢D

*LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
:SET TEST LOOP
:
SFLIP THE BYTES

RO, 3DQSEC

RANNN R

:LOAD THE BUFFER POINTER
ISFT UP TO CLEAR THE BUFFER
“CLEAR IT
*DONE?
*BRANCH IF NO
SSELECT THE SYNC REG

TEMP2+1
TEMP2, SYNC1
TEMP2 . SYNC2
TEMP2,aDGSEC
QIDOREG
#3173 ,aDQSEC
#12,R0
RO

INCB

SYNC,

AR RRRRRARRARERANAN P AR

CLC
RORB
MOV
MOV
MOV
INCB
MOV
MOV
SWAB

BIS

173376
173370

000001

N) = s —

MOV

8PL

173320

001246

#RXBUF F ,RO
R1
(RO) +
RI
5§
#11.3DOREG

TST

1733232

012376
013256
000044

MOV
CLR
(LR
INCB
BPL
MOV

BICB

173344

006100

#7,TSTNO
#TST10,NEXT

MOV

173356

173270

RN A AN AR AR AR AR R R AR AR AR AR R

MOV
MOV

MEMCLR

013256

000011
013052

AN AR

TST7:

10 GO

:LOAD BUFFER POINTER

:SET UP TO COUNT CHARACTERS

R
)]

CZDQH
MACY1 30A(1052)
07-JUL-78
<)
CZDQHD.P11
09-JUN=-78 07:59

1584

1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602

006124
006130
006134
006140
006142
006144
006146
006150
006152

112137

013704
043705
020504
001401

D
d

NOoOWnSHWN=O

e
b
)

md ——d
d

d md

ed
—

—

[0 Yo Yo Yo Yo Yo Yo Yo !

PAGE 33

PROGRAM

001246

INITIALIZATION AND

MOVB

001246
012370

MOV
BIC
(MP
BEQ

104002
005302
001362

3
STAR!

SEQ 0032

UP.

;GET REC CHARACTER
<MOVE TO R4

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

<MASK QUT UNWANTED BITS

;DO THE CHARACTERS MAT(H?
JBR IF 0K
;ERROR-=-DATA DOESN'T MAT(CH
;ALL DONE?
;NO--GO BACK FOR MORE
;SCOPE THIS TEST

HLT
DEC
BNE

4%:

104400

SCOPE

JTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
JTHIS TEST WILL XMIT AND RECV CHARACTERS

;AT 7 BITS/PER/(HAR.

;DATA (HECKING WILL BE PERFORMED!

012737
012737

000010
006522

012700
005001
005020
105201
100375

013256

104413

1618

08:41

112777

013737
012737

143737

005737
100003
000241
106037
143737

000241
106037
013737
013737
013777

105277

012777
012700
000300
050077

OQu1226
001216

TEST

AT AT RN N

TST10:

MOV
MOV

#10,TSTNO
HTST11 NEXT

MOV
(LR
CLR
INCB
BPL

#RXBUFF ,RO

MEMCLR

5%:
000011

013052
177600

012370

001510

001246
012370

001247

173154

MOVB

001246
012370

MOV
MOV

001246

001247

)

SRR AR

BICR

10%:

TST
8PL
(LC
RORB
8I1(8B
CLC
RORS

001246
001246
001246

01237%¢
072374
173062

MOV
MOV
MOV

000010
000011

173050

MOV
MOV
SWAB
BIS

173054

173036

INCB

052777
042777

000002
000002

173030
173022

BIs
8IC

012777

013256

173010

MOV

012777

1777%

172776

MOV

012777

012374

172764

MOV

012777

177732

172752

MOV

105077
105277

105277

005277

173014

173002
172770

172756

172734

CLRB
INCB
INCB

INCB

INC

AAN AR AN

AR R

AN AN AN AN RN RA

#11,aDQREG

SYNC,TEMP?2

#177600,MASK
MASK, TEMP2
DQSTAT
108

TEMP?
MASK, TEMP2+1
TEMP2+1
TEMP2,SYNC1
TEMP2,SYN(Z2
TEMP2,aDQSE(
aDQREG

#3173, aDQSEC

#11,R0
RO
RO,aDQSEC

#M171,aDQSEC
#B1T1,aDQSEC

aDQREG

#RABUFF ,aDQSE(

aDQREG
#-36. ,aDQSEC
aDQREG

#SYN(CZ ,aDQSEC

aDQREG
#- 28, ,aDQSE”
aDQRCSR

NN RN

AR AR ANNNRRNARN RN RAERR O

;CLEAR ALL THE DO

;LOAD THE 2UFFER POINTER
;SET UP TO CLEAR THE BUFFER
JCLEAR IT
JDONE?
;BRANCH IF NO
JSELECT THE SYNC REG
.LOAD SYNCS
;LOAD THE MASK
JSET. UP A MASK TO GET THE

*SINGLE SYNC CHARACTER?
JIF

YES,BR.

*CORRECT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH
*MANIPULATE DATA TO

;COME UP WITH THE
;PROPFR SYNC

CHARACTER

;LOAD THE (HARACTER

;DITTO
;LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;SET TEST LOOP
JFLIP THE BYTES
;SET (HARACTER LENGTH
sTURN CLOCK OFF...
JAND ON
;SEL RX PRIMARY ADRESS
sSET ADRESS
:SEL RX PRIMARY (HAR (OUNT
sSET CHAR COUNT
2SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (HAR
JSEL TX PRI (HAR (OUNT
:SET CHAR COUNT

JSET RX GO

;ieeD
Jo+*D
;;eeD

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD P11
09-JUN=7 80 7:59

005277

PAGE

INC
CLR

1%:

TSTB

BM]
ADD
BNE
HLT

000001

2%:

01237¢
013256
00044

SEQ 0033

PROGRAM INITIALIZATION AND START UP.

172734
172722

MOV
MOV
MOV

3%:

MOVR
CLR

001246
001246
001246
012370

MOVR
MOv

BIC
(MP
BEQ
HLT
DEC
BNE
SCOPE

4%:

;TEST OF

aDQTCSR
RS
aDQR(CSR

#1.,RS

#TXBUFF ,RO
#RXBUFF
,R1

#36. ,R2

(RO) +,R5
TEMP?
(R1)+,TEMP2
TEMP?2 R4
MASK ,R5
R5.R4
4%
’
R2

JSET TX GO
;START

TIMING

;1S DONE UP?

;BRANCH IF

YES

JWAIT
;BR IF MORE TO GO
;ERROR--NO RX DONE
;LOAD BUFFER POINTER
JLOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS
sGET A CHARACTER TO COPMARE

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

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

TRANSMITTER AND RECEIVER (HARATER LENGHTHS

JTHIS TEST WILL XMIT AND RECV CHARACTERS
JAT 8 BITS/PER/(HAR.

;DATA (HECKING WILL BE

PERFORMED

TEST M

—

001226
001216

TST11:

MOV

MOV
MEMCLR
MOV
(LR

013256

#11,TSTNO
#TST12 NEXT
#RXBUFF ,RO

CLR
INCR

000011
007670

83
8g

~n
~

o—00o

"'fi't"tt."ifittttfi**.fit"ttt"tt!tttt'QRQ'QQ"'Q'Qltttttttttt"fit.ttt.

O==da
O
= =000

“640

08: 41

009201
013052
177400
012370
001510
001246
012370
001247
001246
001246
001246
172506
000010
000010

8PL
MOVB
MOV
MOV
BI(B

172606
001246
012370
001246

TS7

BPL

10%:

#11,3DQREG

SYNC, TEMP2

#1776400,MASK
MASK, TEMP2
DQSTAT
108

TEMP?

MASK, TEMP2+1
TEMP2+1

TEMP2, SYNC

TEM
. SYNC?2
P2
TEM
. @DQSE
P?
aDORE
G
#2713 ADGSE”

#°0,R¢

;CLEAR ALL THE DA
;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
;CLEAR [T
;DONE?
;BRANCH [F NO
sSELECT THE SYNC REG

sLOAD SYNCS
sLOAD THE MASK

sSET UP A MASK TQO GET THE
;SINGLE SYNC (HARA(TER?
;IF YES,BR.
s COGRRECT SYNC CHARA(TER

JFOR THIS CHARACTER LENGTH
MANIPULATE DATA TO

COME UP WITH THE
sPROPER SYNC

CHARA(CTER

JLOAD THE CHARACTER
;DITIO
JLOAD THE SYNC REGISTER
JSEL THE MISC REGISTER
JSET TEST LOOP

;:eD

;:%+D
;oD

CZDQH
MACY11 30A(1052)
07-JuUL-78
C2DQHD.P11
09-JUN-78 07:59

1696

1697
1698

1699
1700
1701
1702
1703

006674

006676
006702

1717

172416
]
172404

MOV
INCB
MOV

005277
005005

17236¢%

006772
006776

007000
007004
007006
007012
007014
007016

007022

007040

005277

105777
100404

172422

172366

172354

062705
001372
104001
012700

012376

012702

0000644

012701

112005
005037

112137

013704
043705
020504
001401
104002
005302
001362
104400

172442

1¢:

000001
2%:

013256

aDQREG

INC

aDORCSR

TSTR
BMI]

@ADARCSR
’s

#sv~c2 ADQSEC
aDOR
#-38 aoosec

3%:

001246

($:

ON
RX PRIMARY ADRESS
ADRESS
RX PRIMARY CHAR COUNT
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

ADC
BNE
HLT
MOV

#1,RS
1%
]
#TXBUFF ,RO

CWAIT
;BR IF MORE

MOV

#36. ,R2

MOVR
CLR

(RO)+,RS
TEMP2

:GET A CHARACTER TO COPMARE
D

MOV
BIC
CMP
BEQ
HLT
DEC
8NE
SCOPE

TEMP2 R4
MASK ,RS
RS ,R4
43
2
R2
3%

:MOVE TO R¢
:MASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(CH?

H#RXBUFF ,R1

MOVRB

00124¢
012370

;SET CHARACTER LENGTH
JTURN CLOCK OFF...

aDATCSR
RS

MOV

;1S DONE UP?
;BRANCH IF YES
TO GO

:ERROR=--NO RX DONE
:LOAD BUFFER POINTER

:LOAD RX BUFFER POINTER

JSET UP TO COUNT CHARACTERS

(R1)+,TEMP2

JTEST OF

};%2

:GET REC CHARACTER

:BRIF OK
;ERROR--DATA DOESN'T MAT(H
;ALL DONE?
;NO--GO BACK FOR MORE
:SCOPt THIS TEST

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

JTHIS TEST WILL XMIT AND RECV CHARACTERS
;AT 9 BITS/PER/(HAR.

1736
1737

;DATA CHECKING WILL BE PERFORMED.

1738

1739

1750
1751

INCB

INC
CLR

1733

1769

JAND
:SEL
;SET
:SEL
;SET

012374
172410
177732

007044
007050
007054
007056
007060
007062
007064
007066

743
1764
1745
1746
1747
17648

#8171,aDQSEC
aDAREG
N#RXBUFF ,aDQSEC
aDQREG
#-36. ,aDQSEC

012777
105277
012777

1723
1724
1725
1726
1727
1728
1729
1730

17640
1761
1742

FLIP THE BYTES

006746
006754
006760

007026
007032
007032
007034

173

172430

1718
1719
1720
1721

1722

172462

SEQ 0034

RO,aDQSEC
#3171,aDQSEC

BIC
CLRB
MOV
INCB
MOV

006766

1713
1714
1715
1716

SWASB

172454

105277

BIS
BIS

000002
172446
013256
172434
177734

1708
1711
1712

172470
000002

042777
105077
012777
105277
012777

006742

1709
1710

050077
052777

006710
006716
006722
006730
006734

1704

1705
12
1707

000300

08:41
PAGE 35
PROGRAM INITIALIZATION AND START UP.

TEST

007070
007076
007104

007106
007112
007114
007116
007120
007122

007130

007136
007144

012737
012737
104413

012700
005001
005020
105201
109375
112777

013737

012737
043737

000012
007420

001226
001216

7ST'2:

013256
5%:
000011

013052

177000
012370

172240

001246

012370
001246

12
MOV
L0}
MEM( LR

MOV
(LR
(LR
INCB
BPL
MOV

MOV

MOV
BIf

R R R R R

#12,T1STNO
lTST'3,NEXT

#RXBUFF ,RO
R1
(RO)+
R1
5$
#11,3DQREG
SYN'

TEMP?

# 77000, MASK
HASK TEMP,

JPLEAR ALL

.LOAD

THE

T ITrmNI I TImMmI

THE BUFFER PQOINTER

JSET UP TO CLEAR THE BUFFER
JOLEAR 1T

DONE
BRANCH 1F NO
JSELECT THE SYN( REG

*LOAD

SYNCS

:LOAD THE MASK
JOET UP THE MASK FOR "wt

YTM

CZDQH
MACY1 30A(1052)
07-JuL~-78
P
CZDQHD.PI1
09-JUN-7 80 7:59

1752
1753
1754

007152
007154

000241

1755

1756
1757
1758
1759

08: 41

PROGRAM INITIALIZATION AND

CLC
ROR

001246
201510

B8M]

1762
1763

1764

1765

172126
000002
000002
172104

1766

1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777

013256
172072
177734
172060

012372

172046
177732
172024

"0%:
20%:

172066

172042

S RRRPRRERE

aDQREG

N#RX
F ,aDQSEC
BUF

aDAREG

#-36. ,aDQSE(C
aDQREG
#SYNC1,aDQSEC

aDQREG
#-38.,aDQSE(
aDQRCSR
aDOT(SR
RS
aDQRCSR

INC
INC
CLR

1STR

012376
013256
000044

2%:
3%

005302
001367

#1,RS

4%:

104400

#36. ,R2

(RO)+ RS

J.¢+D

J1+4D

JFLIP THE BYTES
JSET CHARACTER LENGTH
JTURN CLOCK OFF...
JAND ON
cSEL RX PRIMARY ADRESS
+SET ADRESS
;SEL RX PRIMARY CHAR COWNT
;SET CHAR COUNT
.SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
JSEL TX PR] CHAR COUNT
JSET CHAR COUNT
JSET RX GO
JSET TX GO
;START TIMING
;1S DONE UP?
;BRANCH ]F YES

;GET ANOTHER CHAR
JGET A REC CHAR

{R1)+ R4

MASK RS

JMASK QUT UNWANTED BITS

RS R4

.DO THE CHARACTERS MAT(HW?
;BR

;ERROR--DATA DOESN'T MAT(H

;JALL DONE?

sNO--GO BA(CK FOR MORE
:SCOPE THIS TEST

JTEST OF

;AT

;CONTINUE.
;LOAD THE CHARACTER
;DITTO
JLOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;JSET TEST LOOP

J:¢¢D
J2++D

s.++D

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

#TXBUFF ,RO
#RXBUFF R

JTHIS

Jo¢4D

JWAIT

MOV
MOV
BIC
(MP
8tQ
HLT
DEC
BNE
SCOPE

012370

104002

BMI]
ADD
BNE
HLT
MOV
MOV
MOV

000001

1790

#31T1,aDQSEC

MOV

172012

012005
012104
043705
020504
001401

#8173,aDQSEC

INCB
MOV
INCB

172054

sSINGLE SYNC CHARACTER?
;; IF NO,BR.
sIF YES, MARK.

#7.R0
RO
RO,aDQSEC
#31T1,aDQSEC

MOV

172024

012702

MOV
INCB

MOV
SWAB
BIS
BIS
31C
CLRB
MOV
INCB

172100

JSHIFT IT

TEMP2,SYNC]
TEMP2,SYN(CZ
TEMPZ,aDQSE(
aDQREG

MOV

172120
172112

sCORRECT SYNC (HARA(CTER

20%

MOV
MOV

SEQ 0035

START UP.

#-1,SYNCY

MOV

001246
001246
001246
172144
00G010
000007

TEMP?
DQSTAT
108

TST

177777

1760
1761

PAGE 36

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

TEST

WILL

XMIT

10 BITS/PER/(HAR,

AND RECV

(HARACTERS

;DATA (HECKING WILL BE PERFORMED.

TEST

007420
007426

000013
007750

001226
001216

Y113,

13
AR R

MOV
MOV

87 TSTNO

o1sf14 NEXT

SRR R

g3
R[y Qi Puitr i S Suir i S i S Gt §

OV~ i S WN=2OVONONSWN—=SOY

ERRETZ

b
D
D
D
D
D
d e
e
e
e

00 00 00 00 0o 00 00 OO 00 00 00

D
d e
d o
—

b
ed md
d
—

00 00

(ZDQH
MACY11 30A(1052)
07-JuL~-78
CZDQHD P11
09-JUN-78 07 :59

007434
007436
007442
007444

007446
007450
007452
007460
007466
007474

104413

012700
005001
005020
105201
100375
112777

013737

08: 61

FROGRAM INITIALIZATION AND

013256
5%:

000011
013052
176000

012370

171710

001246
012370
001246

001246
001246
001246
171614
000010
000006
171576

000002
000002
171554

171622

0%:
20%:

171610

171570
1715€2

171550

171536
171524

77732
171474
171474

171462

171512

1%:

000001

01237¢
013256
000044

¢$:
S

5S¢

#11,aDOREG

SYNC, TEMP?

#176000 ,MASK

MOv

TEMP?
DQSTAT
108
#-1,SYNC1

20$

TEMP2,SYNC]

TEMP2,SYNC2
TEMP2,aDQSEC

aDOREG

#B1T3,3DQSEC

#6,R0
RO
RO,aDQSEC

MIT1,aDASEC
#81T1,3DQSEC

aDQREG
#RXBUFF ,aDQSEL
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38, ,aDQSEC
aDQR(SR
aDQTCSR
RS
aDQR(CSR

#1,R5
1%
1

#TXBUFF ,RC
#RXBUFF ,R1
#36. ,R?

(RO)+ RS

(R1)+,R4

012370

K K5
MA
R5 R4
4%

SEQ 0036

START UP.

(RO)+
R1

MASK, TEMP?

BR
MOV
MOV
MOV
INCB
MoV
MOV
SWAB
BIS
BIS

#RXBUFF ,RO
R1

BIC

(L
ROR
TST
B8MI

012372
012372
012374

MEMCLR
MOV
CLR
CLR
INCB
BPL
MovB

MoV
MOV

001246
001510
177777

PAGE 37

;CLEAR ALL THE D@11
sLOAD THE BUFFER PC NTER
JSET UP TO CLEAR THE BUFFER
sCLEAR IT
;DONE?
JBRANCH IF NO
;SELECT THE SYNC REG
sLOAD SYNCS
:LOAD THE MASK
sSET UP THE MASK FOR THE
sCORRECT SYNC CHARA(TER
JSHIFT

sSINGLE SYNC CHARACTER?
; IF NO,BR

sIF YES, MARK.
s CONTINUE.
;LOAD THE CHARACTER
;DITTO
sLOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
sSET

TEST LOOP

JFLIP THE BYTES

sSET CHARACTER LENGTH

;TURN CLOCK OFF...

JAND ON
:SEL RX PRIMARY ADRESS
;SET ADRESS

:SEL RX PRIMARY (HAR COUNT

:SET CHAR COUNT
sSEL TX PRIMARY ADDRESS
sLOAD THE SYNC (HAR
JSEL TX PRI CHAR COUNT
sSET CHAR COUNT
;SET RX GO

SET TX GO
;START

TIMING

;1S DONE UP?
;BRANCH [F YES
;WAIT

sBR IF MORE TO GO
;ERROR--NO RX DONE
cLOAD BUFFER POINTER
sLOAD RX BUFFER POINTER

JSET UP TO COUNT CHARACTERS

CHAR
JGET ANOTHER
JGET A REC CHAR
JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MAT(HW?
JBR IF 0K
.ERROR=-=-DATA DOESN'T MAT{H
JALL DONE?
JNO=-=GO BA(K FOR MORE
;SCOPE

THIS

TEST

244D

J.+¢D
Jo++D

Jo++D
;24D
J.+¢D

CZDQAH
MACY11 30A(1052)
07-JUL-78
CZDQHD.P1
09-JUN~-78 O 7:59

08: 41

PAGE

SEQ 0037

PROGRAM INITIALIZATION AND START UP.

1864
1865

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

;AT 11 BITS/PER/(CHAR.

;DATA CHECKING WILL BE PERFORMED!
TEST

."l’tfittfi'**t"l‘t*fifiifi*fifitti"ttfitflfiflfi*fit".tt*i*'t*t*’tfitt**fi'*fi"i'*fit

012737
012737
104413
012700
005001
005020
105201
100375
112777

013737
012737
043737

000074
010300

001226
001216

TST14:

5%:

174000

012370

001246
001246
001246

012377
012374

000010
000005

171260

171272

NV N
Nole RNTo QU P

000001

010254

012376
013256
000044

;LOAD SYNCS

;LOAD THE MASK
cSET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
JSHIFT 1T
;SINGLE

SYNC

CHARACTER?

;IF NO,BR.

JIF

TEMP2,SYNC?2

;DITTO

YES, MARK.

;CONTINUE.
;LOAD THE CHARACTER

MOV

SWAB
BIS
BIS

#5,R0

#3171,3DQSEC

;TURN CLOCK OFF...

CLRR
MOV
INCB

aDQREG
#RXBUFF ,aDQSEC
aDQREG

;SEL RX PRIMARY ADRESS
;SET ADRESS
JSEL RX PRIMARY (HAR COUNT

8IC

#8173,aDQSEC

RO
RO, aDQSEC

#81T71,3DQSEC

#-36. ,aDQSEC

JLOAD THE SYNC REGISTER
cSEL THE MISC REGISTER

JSET TEST LOOP

sFLIP THE BYTES
JSET CHARACTER LENGTH

;AND ON

JSET CHAR COUNT

INCB
MOV
INCR
MOV

aDQREG
#SYNC1,aDQSEC
aDOREG
#-38. ,aDQSE(

JSEL TX PRIMARY ADDRESS
;LOAD THE SYNC (CHAR
;SEL TX PR] CHAR COUNT
;SET CHAR COUNT

INC
CLR

aDQTCSR
RS

JSET TX GO
;START TIMING

;BRANCH IF

aDQR(CSR

;SET RX GO

TSTB

aDQRCSR

ADD

#1,RS

HLT

JERROR=--NO RX DONE

#RXBUFF ,R1
£>4. ,R2

JLOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS

8M]

BNE

2%:

DQM

.BRANCH IF NO
JSELECT THE SYNC REG

#-1,SYNCT

20%
TEMP2,SYNC1

THE

;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
JCLEAR IT
;DONE?

TEMP2 ,’DQSEC
oDAREG

INC

1%:

TEMP2

DQSTAT

JCLEAR ALL

MOV
INCR

MOV

171162

MOV

171220

171174

012701
012702

10%

MOV

171206

171132

8M]

BR
MOV

20%:

171240
171232

~o1%0%%0(%0(%0(%%!%85?8;5 2

)
) —d ——d —d
D
e
e
)
e el ad —d e e
_— —d

23332 —a-3.3-3

1901

#174000,MASK
MASK , TEMP?

MOV

10%:

5%
#11.,aDOREG
SYNC, TEMP?2

MOV
BIC
cLC
ROR
TST

012372

000002
000002
171224
013256

#RXBUFF ,RO
R1
(RO)+
R1

MOV

001246
012370
001246

177777

171246

MOV
CLR
CLR
INCR

BPL
MOVB

171360

001246
001510

171264

#14,TSTNO
RTSTT1S NEXT

MEMCLR

013256

000011
013052

MOV
MOV

MOy
MOV
MOV

#TXBUFF ,RO

1S DONE UP?

JWAIT

JBR IF MORL

YES
TCQ GO

;LOAD BUFFER POINTER

Jo4+D
2:++D

224D

so++D
J:+4D

soveD

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD .P11
09-JUN-78 07:59

4%:

;AT

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

:GET ANOTHER (CHAR
;GET A REC CHAR
¢MASK OUT UNWANTED BITS
:DO THE CHARA(CTERS MAT(CH?
JBR IF 0K
;ERROR-~-=DATA DOESN'T MAT(CH
JALL DONE?
:NO-=-GO BACK FOR MORE
;SCOPE THIS TEST

12 BITS/PER/CHAR.

;DATA CHECKING WILL BE PERFORMED!

TEST

SRR AR A AR

—

012737
012737
104413
012700

o Y]

000011
013052
170000

b
el

RRRoN

RRRRRRRRL
H g RRRS

urQurd
=D

010370

001246
001510

(@] e

012370

TST15:

013256

010354

—

Qu1226
001216

e RE

ole

d
—

000C15
010630

]

010300
010306
010314
010316
010322
010324
010326

lelelelelololelelelolololo] QOO0

FREEER &
NN
=0

—

BEQ
HLT
DEC
BNE
SCOPE

104400

010332

1962

212370

005302
001367

SEQ 0038

PROGRAM INITIALIZATION AND START UP,

MOV
MOV
BIC
CMP

104002

sTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
JTHIS TEST WILL XMIT AND RECV CHARA(CTERS

1941

012005
012104
043705
020504
001401

PAGE 39

N
o

1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940

010254
010256
010260
010264
010266
010270
010272
010274
010276

1920
1921

08:41

177777

012372

00124¢€
001246
001246
170734
000010
000004

012372
012374

170716

000002
000002
170674

10474
10502
10506

013256
170662
177734
170650

012372

005277

171030
001246
012370
001246

170636
177732
170614
170614

170742

170730

170710
170702

170670

170656
170644

170632

AR AR AR AR AN AR AN

MOV
MoV
MEMCLR

MOV
CLR
CLR
INCB
BPL
MOVB
MOV
MOV
8IC
CLC

TN AR

#15,TSTNO
ATST16 NEXT
#RXBUFF ,RO
R1
(RO)+
R1

#11,aDQREG

SYNC,TEMP2

#170000,MASK
MASK
, TEMP?
TEMP?
DQSTAT
108

#-1,SYNC!

10%:

20%:

20%
TEMP2,SYNC]
TEMP2,SYNC?
TEMP2,3DQSEC

aDQREG

#8173,3DQSEC

#4 RO
RO

RO,a@DQSEC
#3171,3DQSEC
#81T71,aDQSEC
aDQREG

MRXBUFF ,3DQSEC

aDGREG
#-36.,aDQSE"
aDQREG

#SYNC1,aDQSEC
aDQREG

#-38, ,aDQSE(
acRCSR
aDQTCSR

R NN RN AN

RN AN N

NN RANAANNNRCANRNAR

sCLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
JSET UP TO CLEAR THE BUFFER
JCLEAR IT
.DONE?
;BRANCH [F NO
sSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
JSET UP THE MASK FOR THE

JCORRECT SYNC CHARACTER
JSHIFT IT
cSINGLE SYNC (CHARACTER?
;1F NO,BR.

JIF YES, MARK.
cCONTINUE.
JLOAD THE CHARACTER

;DITTO
JLOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
JSET TEST LOOP
FLIP THE BYTES
:SET CHARACTER LENGTH
sTURN CLOCK OFF...
JAND ON
. SEL RX PRIMARY ADRESS
;SET ADRESS
JSEL RX PRIMARY (HAR COUNT
sSET CHAR COUNT
sSEL _TX PRIMARY ADDRESS
sLOAD THE SYNC (HAR
JSEL TX PRI CHAR COUNT
JSET CHAR COUNT
SET RX GO
JSET TX GO

TZ0QH
MACY11 30A(1052)
07-JuL-78
CZDQHD. P11
09~JUN-78 07:59
1976
1977

010550
010552
010556

010560
010564
010566
010570
010574
010600
010604
010604
010606
010610
010614
010616
010620
010622
010624
010626

005005
105777
100404

000001

012700
012701
012702

012376
013256
000044

012005
012104
043705
020504
001401
104002
005302
001367

PAGE 40

PROGRAM INITIALIZATION ANp START

CLR
TSTR
BM]

ADD
BNE

R5
aDQR(CSR
2%
#1,RS
1%

2%:

MOV

#TXBUFF ,RO

MOV

#36.,.R2

1%:

170602

062705
001372
104001

08: 41

HLT

Mov

012370

JWAIT
;BR IF MORE TO GO

cERROR--NO RX DONE

ARXBUFF ,R1

;LOAD RX BUFFER POINTER

JLOAD BUFFER POINTER

JSET UP TO COUNT (CHARACTERS

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

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

BEQ
HLT
DEC

(%
2
2

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

BNE

104400

JSTART TIMING
;1S DONE UP?
JBRANCH IF YES

MOV
MOV
8IC -

CMP

«%:

SEQ 0039

UP.

SCOPE

R5,R4

.DO THE CHARACTERS MAT(CH?

<NO~--G0 BACK FOR MORE
;SCOPE

THIS

TEST

JTEST OF TRANSMITTER AND RECEIVER CHARATER LENGMTHS

JTHIS TEST WILL XMIT AND RECV CHARACTERS
;AT 13 BITS/PER/(CHAR.
;DATA CHECKING WILL BE PERFORMED
TEST

:fifii.tttt*'l’*tt*ttt.fi*tfltititfifit**t**t‘*fl*itkt*tfitttitti**iifl't*fitt*tfi

000016
011160

001226
001216

1ST16:

013256

170500

127777

012372

001246
001246
001246

012372
012374

000010
000003

170400

170366

042777

000002
000002

CLR
CLR
INCB
8PL

R1
(RO +
R1
5%

JSET UP TO CLEAR THE BUFFER
JCLEAR IT
<DONE?
JBRANCH IF NO

MOV
MOV
8IC
CLC
ROR
TST

SYNC,TEMP?
#160000,MASK
MASK , TEMP?
TEMP?
DQSTAT

.LOAD SYNCS
;LOAD THE MASK
JSET UP THE MASK FOR THE
;CORRECT SYNC CHARACTER
JSHIFT IT
JSINGLE SYNC CHARACTER?

;:##D

MOV

#-1,SYNCT

;IF

MOvVB

001246
012370
001246

001246
001510

170404

#16,TSTNO
#TST17 NEXT

MOV

5%:

000011
013052
160000
012370

MOV
MOV
MEMCLR

170412

8M]

10%:

20%:

ERr
MOV

MoV
MOV

INCB
MOV
MOV
SWAR
BIS
BIS

BI(

#RXBUFF ,RO

#17 ,aDQREG

10%

20%
TEMP?2,SYNC]

TEMP2,SYN(C?2
TEIMPZ2,aDQSEC

dDQREG
#3173,aDQSEC

#3,R0
RO
RO,aDQSEC

#_'T1,8DQSEC

#BIT1,aDQOSE(

;CLEAR ALL THE D@11
;LOAD THE BUFFER POINTER

JSELECT THE SYNC REG

;1F NO,BR.
YES,

MARK.

;CONTINUE.
;LOAD THE CHARACTER

.DITIO
;LOAD THE SYNC REGISTER

JSEL
JSET

THE MISC REGISTER
TEST LOOP

:
cFLIP THL BYTES
sSET (CHARACTER LENGTH
sTURN (LOCK OFF...

.AND ON

si++D

)]

;oD
::%+D

:;OOD

CZDQH
MACY11 30A(1052)
07-JUL-78
CZDQHD.P1N
09-JUN-78 07:59

2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
ggg?

011020
011024
011032
011036
011044
011050
011056
011062
011070
011074
011100
011102
011106
011110
011114
011116
011120
0111246
8}}}%2

105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777

100404
062705
001372
104001
012700
0127017
012702

2052
2053
2054
2055
2056
2057
2058
2059
Sgg?

011134
011136
011140
011144
011146
011150
011152
011154
011156

012005
012104
043705
020504
001401
104002
005302
001367
104400

170344
013256
170332
177736
170320
012372
170306
177732
170264
170264

170340
170326

170314
170302

170252

1%:

012376
013256
000044

012370

4%:

SEQ 0040

CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
(LR
TSTR

aDQREG
NRXBUFF ,aDQSEC
aDQREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQR(SR
aDQTCSR
RS
aDQR(SR
2%
#1,R5
1%
1
4#TXBUFF ,RO
ARXBUFF ,R1
#36. ,R2

:SEL RX PRIMARY ADRESS
. SET ADRESS
¢SEL RX PRIMARY (CHAR COUNT
¢SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (HAR
;SEL TX PRI CHAR COUNT
sSET CHAR COUNT
;SET RX GO
JSET TX CO
s START TIMING
;1S DONE UP?
JBRANCH [F YES
JWAIT
;BR IF MORE TO GO
;ERROR=-NO RX DONE
sLOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
;SET UP TO COUNT CHARACTERS

MoV
MOV
BIC
(MP
BEQ
HLT
DEC
BNE
SCOPE

(RO) +,RS
(R1)+,R4
MASK ,R5
R5,R4
4%
2
RZ
3%

;GET ANOTHER CHAR
JGET A REC (CHAR
JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
JBR IF 0K
;ERROR--DATA DOESN'T MAT(CH
;ALL DONE?
;NO--GO BACK FOR MORE
;SCOPE THIS TEST

8Ml
ADD
BNE
HLT
MOV
MOV
MOV

000001

2062
2063
2064
2065
5829

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
sTHIS TEST WILL XMIT AND RECV CHARACTERS
;AT 14 BITS/PER/(CHAR.
;DATA CHECKING WILL BE PERFORMED.

2068

TEST

2069

NN AN AR R R AR R R AR AN AR R A AN R

2070
2071
2072
2072
2074
2075
2076
2077
2078
2079

011160
011166
011174
011176
011202
011204
011206
011210
011212
011220

2081
2082
2083
2084
2085
2086
2087

011234
011242
011264
011250
011254
011256
011264

2080

08:41
PAGE 41
PROGRAM INITIALIZATION AND START UP.

011226

012737
012737
104413
012700
005001
005020
105201
100375
112777
013737

012737

043737
000241
005037
005737
100404
012737
000403

000017
311510

001226
001216

TST17:

013256
5%:
000011
013052

170150
001246

012370

001246

140000

012370

001246
001510
177777

012372

MOV
MOV
MEMCLR
MOV
(LR
(LR
INCB
erPL
MOVR
MOV

MOV

BIC
CLC
ROR
TST
BM]
MOV
BR

#17.,TSTNO
#TST20 NEXT

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

#1+0000 , MASK

MASK , TEMP2
TEMP?
DQSTAT
10%
-1, SYNCT
20%

R A AR A RN RN N RN AR AN RAN R RN AR

R AR A AN RN RN

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

;L OAD THE MASK

JSET UP THE MASK FOR THE
JCORRECT SYNC CHARACTER
JSHIFT IT
;SINGLE SYNC CHARA(CTER?
;¥ NO,BR.
JIF YES, MARK,
JCONTINUE.

Joe+D
oD
Jo++D
siv+D

CZDQH
MACY11 30A(1052)
07-JUL-78
CZDQHD .P11
09-JUN-78 07:59

2088
2089
2090
2091

011266
011274
011302
011310

013737
013737
013777
105277

2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106

011322
011326
0113%0
011334
011342
011350
011354
011362
011366
011374
011400
011606
011412
011420

012700
000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277

2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126

011430
011432
011436
011440
011444
011446
011450
011454
011460
011464
011464
011466
011470
011474
011476
011500
011502
(11504
011506

2092

2107

215

011314

011424

012777

005277

005005
105777
100404
062705
001272
104001
012700
012701
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

4
cC
08:41
PAGE 42
PROGRAM INITIALIZATION AND START UP.

012372
012374
170062

10%:
20%:

MOV
MOV
MOV
INCB

170050

170010
167776

167764
167752

167734

167722

000001
012376
013256
000044

2%:
3%

012370

MOV
SWAB
BIS
BIS
BIC
(LRB
MOV
INCB
MoV
INCB
MOV
INCB
MOV
INC

#2,RO
RO
RO, aDQSEC
#81T1,aDQSEC
#B1T1,aDQSEC
aDQREG
H#RXBUFF ,aDQSEC
aDQREG
#-36.,aDQSEC
aDQREG
#SYNC1,3DQSEC
aDQREG
#-38. ,aDQSEC
aDORCSR

;
:FLIP THE BYTES
;SET CHARACTER LENGTH
;TURN CLOCK OFF...
JAND ON
;SEL RX PRIMARY ADRESS
;SET ADRESS
.SEL RX PRIMARY CHAR COUNT
:SET CHAR COUNT
:SEL TX PRIMARY ADDRESS
;LOAD THE SYNC (CHAR
JSEL TX PRI CHAR COUNT
:SET CHAR COUNT
:SET RX GO

CLR
TSTR
BM]
ADD
8NE
HLT
MCV
MOV
MOV

RS
aDQRCSR
2%
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF ,R1
#36..R2

: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
JSET UP TO COUNT CHARACTERS

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

(RO)+,RS
(R1)+,R4
MASK ,RS
RS,R4
4
2
R2
3$

;GET ANOTHER CHAR
:GET A REC CHAR
:MASK OUT UNWANTED BITS
;D0 THE CHARACTERS MAT(CH?
:BR IF OK
;ERROR~--DATA DOESN'T MAT(CH
;ALL DONE?
:NO--G0O BACK FOR MORE
;SCOPE THIS TEST

#B1T73,aDQSEC

aDQT(CSR

;SET TEST LOOP

:SET TX GO

JTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
JTHIS TEST WILL XMIT AND RECV CHARACTERS
;AT 15 BITS/PER/CHAR.

g}%%

JDATA (HECKING WILL BT PERFORMED.

2134

2135

21642
2143

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

INC

2129
2130
2131

2136
2137
2138
2139
2140
2141

TEMP2, SYNC1
TEMP2,SYNC2
TEMP2,aDQSEC
aDQREG

MOV

170030
170022

SEQ 0041

011510
011516
0171524
011526
011532
01153

01153
011540

012737
012737
104413
012700
005001
005020
105201
100375

000020
012040

001226
001216

TEST 20
AR RN R

TST20:

013256
5%:

AR R AR AN RN R R R R RN R R AR AR AR RN AR AR R AR R AR AN AR AR AN OINRA T RANARA RN

MOV
MOV
MEMCLR
MOV
CLR
CLR

INCR
8P

#2C,TSTND
#TST21 NEXT

#RXBUF F ,RO
R1
(RO)+

R
s

;CLEAR ALL THE DQ11
:LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
;CLEAR [T
:DONE?
;BRANCH [F

;144D
J:++D

CZDQH
MACY11 30A(1052)
07-JUL-78
CZDQHD.P11
09-JUN-78 07:59

21644
2145

011542
011550

112777
013737

000011
013052

2147

011564

043737

012370

2146

2148
2149
2150
2151
2152
2153
2154
2155
2156
2157

011556

012737

100000

D ¢4
08:41
PAGE 43
PROGRAM INITIALIZATION AND START UP.

167620
001246

MOVB
MOV

#11,3DQREG
SYNC, TEMP?

001246

BIC

MASK , TEMP?2

012370

011572
011574
011600
011604
011606
011614
011616
011624
011632
011640

000241
006037
005737
100404
012737
000403
013737
013737
013777
105277

2159
2160
2161
2162

011652
011656
011660
011664

012700
000300
050077
052777

000010

167520

167506
000002

167500

2164
2165
2166
2167

011700
011704
0117212
0117216

105077
012777
105277
012777

167464
013256
167452
177734

2158

2163

2168

2169
2170
2171
2172

011644

011672

011724

012777

042777

105277

011730
011736
011742
011750

012777
105277
012777
005277

2174
2175
2176
2177
2178
2179
2180
2181
S}gg

011760
011762
011766
011770
011774
011776
012000
012004
8}58}2

005005
105777
100404
062705
001372
104001
012700
012701
012702

2184
2185
2186
2187
2188
2189
2190
2191

012014
012016
012020
012024
012026
012030
012032
012034

012005
012104
043705
020504
001401
104002
005302
001367

2173

g}gg

2194
2195
2196
2197

g;gg

011754

012036

005277

104400

MOV

001246
001510
177777

012372

001246
001246
001246
167524

012372
012374
167532

000001

000002

167440

012372
167426
177732
167404

10%:
20%:

167422

167404

167372

#1,R0
RO
RO.aDQSEC
#8171,aDQSEC

:
JFLIP THE BYTES
;SET CHARACTER LENGTH
:TURN CLOCK OFF...

aDQREG
NMRXBUFF ,aDQSEC
aDQREG
#-36. ,aDQSEC

:SEL
;SET
;SEL
;SET

o%:

012370

#BI1T3,aDQSEC

“#8]1T1,aDQSEC

aDQOREG

:SET TEST LOOP

;AND ON

RX PRIMARY ADRESS
ADRESS
RX PRIMARY CHAR COUNT
CHAR COUNT

:SEL TX PRIMARY ADDRESS

MOV
INCB
MOV
INC

#SYNC1,aDQSEC
DQREG
#-38. ,3DQSEC
aDQRCSR

CLR
TSTR
BM]
ADD
BNE
HLT
MOV
MOV
MOV

RS
aDORCSR
2$
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF ,R1
#36. ,R2

: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

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE

(RO) +,RS
(R1)+,R4
MASK RS
RS,RG
X3
2
R2
3%

:GET ANOTHER CHAR
;GET A REC CHAR
:MASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
:BR IF OK
:ERROR-~DATA DOESN'T MAT(CH
JALL DONE?
:NO--GO BACK FOR MORE

INC

000001
012376
013256
000044

MOV
SWAB
BIS
8IS

INCB

167434

;SET UP THE MASK FOR THE

TEMP?
DQSTAT
108
#-1,SYNC1
208
TEMP2,SYNC1
TEMP2,SYNC2
TEMP2,aDQSEC
aDQREG

CLRB
MOV
INCB
MoV

167446

:LOAD THE MASK

:CORRECT SYNC CHARACTER
SSHIFT IT
;SINGLE SYNC CHARACTER?
;IF NO,BR.
;IF YES, MARK.
:CONTINUE.
;LOAD THE CHARACTER
:DITTO
:LOAD THE SYNC REGISTER
:SEL THE MISC REGISTER

BIC

167460

:SELECT THE SYNC REG
:LOAD SYNCS

cLC
ROR
TST
BM]
MOV
BR
MOV
MOV
MOV
INCB

MOV

167472

#100000 , MASK

SEQ 0042

SCOPE

aDQAT(SR

;LOAD THE SYNC CHAR
JSEL TX PRI CHAR COUNT
:SET CHAR COUNT
:SET RX GO

JSET TX GO

:SCOPE

THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER [ENGHTHS
JTHIS TEST WILL XMIT AND RECV CHARACTERS
JAT 1€ BITS/PER/(HAR.

JDATA CHECYING WILL BE PERFORMED.

1:++D
J:++D
Jo++D
J:++D
Jo4+¢D
Jo++¢D

CZDQH

MACY11

CZDQHD . P11

30A(1052)

O07-JuUL-78

09-JUN-78 07:59

08:41

2200

2201

2202

012737

2203
2204
2205
2206
2207
2208
2209
2210
2211

012046
012054
012056
012062
012064
012066
012070
012072
012100

012737
104413
012700
005001
005020
105201
100375
112777
013737

2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2260
2241
2242
2263
2244
2245
2246
2247
2248
2249
2250
2251
2252
2293
225%
2255

012114
012122
012124
012130
012134
012136
012144
012146
012154
012162
012170
012174
012202
012206
012210
012214
012222
012230
012234
012242
012246
012254
012260
012266
012272
012300
012304
012310
012312
012316
012320
0123264
012326
012330
012334
012340
012344
012344
012346
012350
01235
012356
012360

043737
000241
006037
005737
100404
012737
000403
013737
013737
013777
105277
012777
012700
000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705
001372
104001
012700
012701
012702

2212

012106

012737

012005
012104
043705
020504
001401
104002

200021

016306

001226
001216

TEST 21

A3 2A0223322832323 2322222222222 2233 332222822

TST21:

013256
5%:
000011
013052

167270
001246

012370

001246

000000

012370

(12372

001246
001246
001246
167174
000010
000000

012372
012374
167202

167156
000002
000002

167134
013256
167122
177734
167110
012372
167076
177732
167054
167054
167042

10%:
20%:
.

167170

167150
167142

167130
167116
167104
)
16707¢

'$:

000001
012376
013256
000044

012370

MOV

MOV
MEMCLR
MOV
CLR
CLR
INCB
BPL
MOovB
MOV

MOV

001246
001510
177777

SEQ 0043

PROGRAM INIT]ALIZATION AND START UP.

;

012040

PAGE 44

%
3%:

#21,TSTNO

#.EOP NEXT
A#RXBUF F ,RO
R1
(RO) +
R1
5%
#11,aDQREG
SYNC, TEMP?

#000000 ,MASK

MASK , TEMP2

RSN SRR RS S

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
JCLEAR IT
sDONE?
JBRANCH IF NO
JSELECT THE SYNC REG
sLOAD SYNCS

;LOAD THE MASK

BIC
cLC
ROR
TST
BMI
MOV
BR
MOV
MoV
MOV
INCB
MoV
MoV
SWAB
BIS
BIS
BIC
CLRB
MoV
INCB
MoV
INCB
MOV
INCB
MoV
INC
INC
CLR
TSTB
BM]
ADD
BNE
KLY
MOV
MOV
MOV

aDQREG
#RXBUFF ,aDQSEC
aDQREG
#-36. ,aDCSEC
aDQREG
#SYNC1,3DQSEC
aDQREG
#-38.,aDQSEC
aDQRCSR
aDQT(SR
RS
aDQR(SR
2%
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF R
#3u..R2

;SET UP THE MASK FOR THE
;CORRECT SYNC CHARACTER
JSHIFT IT
;SINGLE SYNC CHARACTER?
;IF NO,BR.
;IF YES, MARK.
- CONTINUE.
;LOAD THE C(HARACTER
;DITTO
JLOAD THE SYNC REGISTER
JSEL THE MISC REGISTER
;SET TEST LOOP
;
;FLIP THE BYTES
sSET CHARACTER LENGTH
;TURN CLOCK OFF...
JAND ON
;SEL RX PRIMARY ADRESS
;SET ADRESS
sSEL RX PRIMARY (HAR COUNT
;SET CHAR COUNT
sSEL TX PRIMARY ADDRESS
;LOAD THE SYNC (HAR
sSEL TX PRI CHAR COUNT
sSET CHAR COUNT
;SET RX GO
JSET TX GO
;START TIMING
;1S DONE UP?
JBRANCH [F YES
JWAIT
;BR IF MORE TO GO
;ERROR=--NO RX DONE
JLOAD BUFFER POINTER
sLOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS

MOv
MOv
BI(
(MP
BEQ
H T

(RO)+,RS
(R1)+ R4
MASK RS
R5,R4
4o
2

JGET ANOTHER (HAR
JGET A REC CHAR
JMASK OUT UNWANTED BITS
:DO THE CHARACTERS MAT(H?
JBR [F Ok
sERROR==DATA DOESN'T MAT(H

TEMP2
DQSTAT
10$
#-1,SYNC1
20%
TEMP2,SYNC]
TEMP2,SYNC?
TEMPZ2,aDQSEC
aDQREG
#B1T73,aDQSEC
#0.R0
RO
RO,aDQSEC
#B1T1,3DQSEC
#3I1T1,aDQSEC

;.++D
;o440
;o430
Jo++D
;.++D
;o++D

2256
2257

08:41

PROGRAM

INITIALIZATION AND

DEC
BNE

R2
3%

BYTE

26,26
26,26

012362
012364
012366

005302
001367
104400

4%:

012370
0

000000
026

:
MASK

12376
012400
012402
012404
012406
012410
012412

177777
000000
125252
052525
000007
000002
0000C4

SCOPE

SYN(C1:
SYN(C?:

026

:
TXBUFF

11
1

ZEIR 3
=
—

am'\)'\)'\)'\)'\)

JMEMCLR

166446
16644¢€
166444

000020

000140
746

105277

166424

16€47€

1664 34
16642¢

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

CLR
(LR
CLR
MOV

BISB

BI(B

(LR

INCR

01
10 1

N 0N
11 10
1n
1n
1N
n 1"
1" 1
1 11

13!

b et el d e e ek e oD —ed e (D) b b e
—b nd b d o e ad ad b md b () D i e e

il
1"
1
n
1
1

2304

START UP.

1>
1111111111
11111
“B<11111
“B8<0000000000000000>
0000
~8<1010101010101010>
“B8<0101010101010101>
~B8<0000000000000001>
*B8<0000000000000010>
“B8<0000000000000100>
“8<0000000000001000>
“B8<0000000000010000>
“B8<0000000000100000>
~B<0000000001000000>
“B8<0000000010000000>
“B<0000000100000000>
~B8<0000001000000000>
~B8<0000010000000000>
*B8<0000100000000000>
~8<0001000000000000>
“B<0010000000000000>
“B<0100000000000000>
“B8<1000000000000000>
“8<0111
1N
1>
11
“B<10 1
“B<11 01
11
11
“B<11 10
‘B<11 1
11
b

812374

PAGE 45

—d b b ed e ) b b
b e d i b wnd
s e ) i el e e ad o D wwd wd nd e
i e e ) e e b ed d —d D d b cd
b
- el O wd b wod D D e nd d D b ad md
b Q) and b d e D b b e cd o mcd d d
Q) b b ced e e e e e D D D ed d ad
VVVVVVVVVVVVVVYV

CZDQH
MACY11 30A(1052)
07-JUL-78
CZDQHD.P11
09-JuN=-7 8 07:59

SDCRCSR
8DQTCSR
SDOERR
#16. RS

#8]T4,3DAREG
#140,3DOREC

enSEC

QDQREG

SEQ 0044

CZDQH

MACY11

2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2326
2325
2326
2327
2328
2329

012752
012754
012756
012762
012766
012772
013000
013004
013012
013016
013022
013024
013026
013032
013032
013040
013046
013050

2333
2334
2335
2336
2337
2338
2339
230
2341
2342
2363
2364
23S
234¢
2%7
ggzg

013256
013256
013656
013660
013662

CZDQHD.PTIT

2330
2331
2332

013052
013054

014064

014266
014270
014272
014274
014276

014300
014302
014304

30A(1052)

07-JUL-78

09~-JUN-78 (07:59
005303
001364
105077
105077
012705
112777
005077
112777
005077
105277
005305
001362
105077
112777
012777
000002
026
026
000000
013256
000200
026
026
000000
014064
000000
014266
9D00G00
000000
000000
000000
000000
000000
000000
000000

166406
166374
000020
00001C
166366
000014
166354
16630

08:41

166370

000012
000040
026
0¢6

166330
166324

2%:

.MST(CLR:

LSYNC:
SYNC :
TXBFA:

RXBUFF:

026
0c¢

SEQ 0045

DEC
BNE
CLRB
CLRB
MOV
MOVB
CLR
MOVB
(LR
INCBR
DEC
BNE
CLRB

RS
19
aDOREG
aDQRCSH
#16. RS
#10,aDOREG
aDQSEC
#14 ,’DQREG
aDQSEC
aDQR(SH
RS
2%
aDQR(SH

MOVB
MOV
RTI
(BYTE
BYTE
O
.~.+200

M ISC. ,aDQREG
#B1TS,aDGSEC
26,26
2€,26

BLkw
200
XSYNC:
.BYTE
26,26
XSYNC2: .BYTE
26,26
XTXBUF
:0
.=.+200
XRXBUF: 0
.=.+200
ERR:
0
POLY:
O
XPOLY:
O
(HAR:
0
COUNT:
O
ADDR:
O
GDCHAR: 0
CeTCAR: O

2350
2351
2352
2352

:END OF PASS
;TYPE NAME OF TEST
JUPDATE PASS COUNT
JCHECK FOR EXIT TO A(T=-N

Sggg

2356
2357
2358
2359
2360
2361
2362
2363
2364
2%5
2366
2%7

PROGRAM INITIALIZATION AND START UP.

166356

166330

PAGE 46

JRESTART

014306
014312
014316
0146322
014324
014326
014330
014332
014334
0164336
01430
0143%Uc

005037
005037
005237
104402
016536
104402
016717
104411
(014444
1046402
016725
10441

00123
001317
001230

EOP:

(LR
CLR
INC
TYPE
MEFASS
TYPE
MCSRX
(NVRT
X! SR
TYPE
MVE
[ X
(NVRT

TEST

LSTERR
ERRFLG
PAS(NT

sCLEAR LAST ERRQOR Pr
:CLEAR ERROR FLAG
;UPDATE PASS COUNT

(ZDQH
MACY11 30A(1052)
07-JuL~78
ZDQHD. P11
09=JUN- 78 0 7:59

08: 41

PAGE 47

END OF

016452

XVEC
TYPE
MPAS SX
CNVRT
XPASS
TYPE
MERRX
CNVRT
XERR
MOV
OEC

106402

016733
104611

014460
104402

016744
1046411

014402
014410
014414
014416
014420
014420
014422
014424
014426
014430

014466
013777
005337
001013
013737
013701
001405
000005

01230
001276

164606

001504
000042

001276

002254
002254

014432
014440
014444
014446

001214

RESTRT:

XERR:

;DISPLAY PASS

DANUM, SAVNUM

62 R1
RESTRT

;CHECK FOR ACT-11 OR DDP

sIF

3.2

6.2
BYTE
ERRCNT

6.2

. SCOPE LOOP AND INTERATION HANDLER
104414

flwl\)'\)-—a.fl—a
NSO

032777

2623

040000

164474

164470

: (KSWR
.SCOPE
BIT
TIST:
8EQ
8R

#3[T14,a5eR
19

3%
aTK(SR

164464

aIXDRR RO

004000

1644l

#5W11,3SWR

001224
001224

001272

LPCNT
LPONT
, ICOUNT

001312
001224
000017

001216

()S.'

COUNT

RESTRT

6.2

XPASS:

002

SAVNUM

#TST1,RETURN
TST1

XvEC:

002

PASCNT ,aL IGHTS

PC.,(R1)

XCSR:

002

014450
014452
014454
014456
014460
014462
014464
014466
014470
014472

BNE
MOV
MOV
BEQ
LOGICAL:

004711
000240

SEQ 0046

PASS ROUTINE

ERRFLG
LPCNT

#°°., 1COUNT

NEXT
,RE TURN

NOT,

CONTINUE

TESTING

MACY
I

(ZDQHD.P11

2473

2474
2475
2476
o677
2478
2479

001000

164362

001220

3%:

Q?Y

BRW:
BRX:

1407
432

.SCOP1:

1¢:

.TYPE:

017605
062766
005737

000002
000C02
016316

N00002

777

010000

164322

1$:

Qe
0O ——
o

~N
~N
~

3008:
V!

014626
014630
014634
014642
014646
014650
014656

12777
83777
12777

105777
112577

164320

000015
164304

(KSWR
BIT
BEQ
MOV

RT]

SEQ 0047

(TYPE QUT,ERROR,SCOPE,ETC.)

RETURN, (SP)

#SW09,aSwR
1%
LOCK, (SP)

000012

164270

16476

MOV
MOV
ADD
TST

RS,=-(SP)
a2(SP) RS
#2,2(SP)
a¥eDSw

BIT
BNE
TSTR
RPL

#SW12,aSWR
b3
(RS)
2%

BNE

aTP(SR

MOV

#15,aTPDBR

164c64

1%:

-4

TSTB

QTPCSR

MOV
TSTR
BPL
MOVB
BNE

#12,8TPDBR
aTPCSR
2%
(RS) +,aTPDBK
19

BPL

2%:

3008

TSTR

BPL

144312

014732

MOV
RT1

(SP)+ RS

JASCII STRING INPUT ROUTINE

7637

062766

706
~

014734
01473%6
014740

777

Sb\l\lw

2467

2468
2469
2470
2671
2672

001214

sTELETYPE OUTPUT ROUTINE

2466

104414
032777
001402
0137216
000002

—-—

24639
24640
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
24664
24665

014606
014610
014616
014620
014624

—t k= = OO

26438

08:41
PAGE 48
GENERAL UTILITIES

JCHECK FOR FREEZE ON (CURRENT DATA

—~—b

2432
2433
2634
2435
2436
2637

013716
000002
001407
000432

N§ 38352 SIS R

2429
2430
2431

014574

014600
014602
014604

~N
PN N
P2SRV
o
PNONOCON)
~ —
AV LCTUNE
VP 0 o)

2424
2425
2426
2427
2428

30A(1052)
_07-4uL-78
09-JUN-78 07:59

—

CZDQH

000004

000002

017110

000007
164210

01475¢
000004

. INSTR: MOV
MOV
LINST1:
.MSG:
1%:

164204

TYPE
0
MoY
MOV
7STB

B8PL

MOVB

000200
000025

016476
000015

MOV
ADD

R3,-(SP)
R4 ,=(SP)

84 (SP), .MSQ
#2,4(SP)

# INBUF
R4
87 ,R3
aTkK(SR

8TKDBR, (R4

BI(B
(MPR
BNE

#200, (R&>
(RG) 425
200%

B8R

FRENE

TYPE ,M(RLF

2008:

(M8

(RG)e 41¢

CZDQH
MACY11 30A(1052)
_07=JUL-78
CZDQHD.P11
09-JUN=-78 07:59

2480
2681
2682
2483
2484
2485
2486
2487
2488
2489

2490
2491
2492

015026
015030
015036
015042
015044
015046
015050
015052
015054
015056
015060
015062
015066

016472
005737
001402

2496
2495
2496
297

015074
015076
015100
015102

000727
01260
012603
000002

2493

015070

001423
117777
105777
100375
005303
001350
000402
010346
010446
104402

104402

164152
164146

08:41
PAGE 49
GENERAL UTILITIES

166154

BEQ
MOVB
2% :
TSTB
BPL
DE
BNE
BR
.INSTE: MOV
MOV
INSTG: TYPE
MOM
TST
BEQ

016316
(16476

015104

010546

2503

015110

016605

Sg}

52%2
2535

(TYPE OUT,ERROR,SCOPE,ETC.)

INSTR2
aTKDBR,aTPDBR
alPCSR
23
R3
18
.INSTG
R3,=(SP)
R&,=(SP)
SRDSW
4008

LINST1
(SP) +,R4
(SP)+.R3

:CONVERT ASCII STRING TO OCTAL

2501

2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530

TYPE ,MCRLF

400$:
BR
INSTR2: MOV
MOV
RT]

2499
2502

015106
015114
015120
015124
015130
015134
015140
015144
015146
015152
015156
015160
015164
015166
015172
015174
015200
015202
015206
015210
015212
015214
015216
015220
0152264
015206
015232
01523

015236

015240

010446
012537
012537
012537
112537
112537
010566
005005
012704
122714
001420
121427
0026415
121427
003012
142717
152405
122714
001414
006305
006305
006305
000760
122714
001003
005737
001023
104404

000004

015310
015312
015314
015316
015317
000004
01711
000015
000060
000067
000060
000015

000015
016316

000742

020537

075312

.PARAM: MOV

RS, =(SP)

MOV

4($P) RS

MOV

MOV
MOV
MOV
MOVB
MOVB
MOV
PARAM1: CLR
MOV
cMPB
BEQ
$:
C(MPB
BLT
CMPB
BGT
BI(B
BISB
(MPB
BEQ
ASL
ASL

ASL
ER
PARERR: (MPR
BNE
TST
BNE
1208:
INSTER

LIMITS:

R4 .~ (SP)

(R5)+.LOLIM
(RS)+.HILIM
(R5) +,DE\ ADR
(R5)+.LORITS
(R5)+.ADRCNT
RS,4(5P)
RS
# INBUF R4
W15, (R&)
PARERR
(R4),#60
PARERR
(R4) 467
PARERR
#60, (R4)
(R4}+,RS
#15, (R4)
LIMITS
RS
RS
RS
1$
#15,(R&)
120$
SHRD SW
PART]

B8R

PARAM1

(MP

KS,HILIM

;IS FIRST (HARA(CTER A <(R>

;IS (KSWR ROUTINE BEING USED

;TEST TO SEE IF NUMBER !> JITHIN LIMITS

SEQ 0048

CZDQH
MACY11 30A(1052)
07-JUL~-78
C2DQHD. P11
09-JUN-78 07:59

2536
2537
2538
2539
ng?

522%

2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
gggg

Sggg
522?

015244
015246
015252
015254
015260

101365
020537
103762
133705
001357

015262
015266
015270
015274
015300
015302
015304
015306
015310
015312
015314
015316

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

0153

016637

000004

015320

08:41
PAGE 50
GENERAL UTILITIES

BHI
CMP
BLO
BITR
BNE

015310

015316

5259

SEQ 0049

PARERR
RS,LOLIM
PARERR
LOBITS,RS
PARERR

DEVADR,R&
RS, (R4) +
#2 RS
ADRCNT
1%
(SP)+,Ré
(SP)+,RS

0(0002
015217

001274

.SAVOS: MOV

4(SP) ,SAVP(

;SAVE PC OF TEST THAT FAILED AND RO=-RS

:SAVE RO-RS

015326
015332
015336
015342
015346
015352
015356

010537
010437
010337
010237
010137
010037
000002

001270
001266
001264
001262
001260
001256

SYJ5:

MOV
MOV
MOV
MOV
MOV
MOV
RT]

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

;RESTORE RO-RS5

2574
2575
2576

015360
015364
015370

2579
gggg

015404
015410

015374
015400

013700
013701
013702

00125¢
001260
001262

.RESOS: MOV
MOV
MOV

013705
000002

001270

MOV
RT]

013703
0137064

001264
001266

MOV
MOV

ggg%
2584
2585
2586
2587
2588
2589
2590

(TYPE OUT,ERROR,SCOPE,ETC.)

MOV
MOV
ADD
DECR
BNE
PART!:
MOV
MOV
RTI
LOLIM:
0
HILIM:
0
DEVADR: 0
LOBITS: 0
ADRCNT-LOB]TS+1
“$:

gggg

2577
2578

;STORE NUMBER AT SPECIFIED ADDRESS

2562

2563
2564
2565
2566
2567
2568
2569

SAVRO,R0
SAVR1.R1
SAVR?2,R2
SAVR3,R3
SAVRG R4
SAVRS RS

;CONVERT OCTAL NUMBER TO ASCI! AND QUTPUT TO TELEPRINTER
015412
015414
015416
015420
015422
015424
015426

104402
016476
010046
010146
010346
010446
010546

2597 015430 017601 000012

.CONVR:

TYPE
MCRLF
.CNVRT: MOV
MO/
MOV
MOV
MOV

MOV

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

.1?(5p> R
|

CZDQH
MACY11 30A(1052) O;SJUL
-’78
CZDQHD P11
09-JuN-78 07

2592

017152
000002
215632

(8:41

015634
015635
015636
015636

REERKEFRNSEOER

D
D
D
D
D
D
b
D
DD
b e
et ed

MOV

ADD

1%:

2% :

5500

VI
N
N
AW
NN
LA Al VAV IV LV, LW LU LV, LV [V, LV, LV, IV, |

(olelolelolololololalalololole]

GENERAL UTILITIES

001250
000012

A Y

015634
5737

015635

2723

000040
015635

ADD
MOVB
CLe

#060,R3
R3,(R0)+

6%:

015632
001250

(17152

R4
W%

RS
3%
MDATA ,R3
-(RO),(R3)+

8NE

BEQ
MOVB
DECB
BNE
CLRR

6%
#040, (R3, +
SPACNT
5%
(R3)

MDATA
DEC
BNE
MOV
MOV

WRD!NT
1%
TEMPS, TEMP
(SP)
+ RS

MOV
MOV
MOV

(SP)+ ,R3
(SP)+ ,R1
(SP)+,R0O

DE(CR

TYPE

MOV

WwRDCNT:

#177770.R3

DEC
BNE
MOV
MOVRB

TSTB

5%:

TEMP, TEMP3

#2.,12(SP)

(R1)+,WRDCNT
(R1)+.CHRCNT
(R1)+,SPACNT
a8(R1)+,BINWRD
BINWRD
. R4
CHRCNT.RS
ITEMP RO
R4 ,R3

BIC

RT]

SEQ 0050

(TYPE OUT,ERROR,SCOPE,ETC.)

MOV
MOVB
MOVR
MOV
MOV
MOVB
MOV
MOV

ROR
CLC
ROR
(LC
ROR

017214

PAGE 51

CHRCNT
SPACNT

(SP)+ R4

CHRCNT: 0

SPACNT=CHR(CNT
+1

BINWRD:

(

s TRAP DISPAT(H SERVICE

ARGUMINT OF

TRAP

IS EXTRA(TED

JAND USED AS OFFSET TO ORTAIN POINTER
;1O SELECTED SUBROUTINE

000002
000000
177001

. TRPSR:

TRPOK:

MOv

(SP) ,-(SP)

SLB

#2, (SP)

ASL

MOV

BIC

a(sp) (SP)

0177001 (SP)

JGET PC OF

:=PC OF
JGET

TRP

RETURN

TRAP

JMULTIPLY

TRAP ARG BY ¢

s CLEAR UNWANTED BITS

CZDQH
MACY11 30A(1052)
O07-JuL-78
CZDQHD.P11
09-JUN-78 07:59

2648

2649
Sggg

015660
015664
015670

062716

017616
000136

2652
2653
2656
2655
2656
2657

015672
015674
015702
015704

104414
032777
001406
105777

2659

015712

112777

2658

2660

015710

015720

100003

032777

015726
015730
015734
015736
015742
015746
015750

001074
021637
001404
011637
105037
104406
011605

2669
2670

2671
2672
2673

015756
015760
015762
015764
015766

011504
006304

061504
006304
042704

2675
2676
2677

015776
016002
016006

012437
012437
011437

2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696

016016
016020
016024
016026
016030
016032
016034
016036
016040
016042
(16044
016046
016050
016052
016060
016064
016066
016070

001403
005737
001027
104402
016755
104417
016214
104402
017043
104417
016206
104402
016476
112737
005737
001402
104402
000000

2674

2678

2697
2698
2699
2700
2701
2702
2703

001314

ADD

000000

MOV
JMP

015752

162705

010000

000207

020000

163252

001234
001312

#.TRPTAB, (SP)
Q(SP), (SP)
2(SP) +

xBX:

1%:

016102

016114

#207.aTPDBR

BNE
CMP
BEQ
MOV
CLRB
SAVOS
MOV

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

BIT

ADD
ASL
BIC

001312

#SW1%,3a5WR

(SP) ,RS

#2 RS

(R$) .R4
R4
(RS) ,R4
R4
#177001 ,R4

#.ERRTAB,
R4

TSTB

ERRFLG

BEQ
TST
BNE
TYPMSG: TYPE
MTSTN
CNVRT
XTSTN
TYPE
MERRP(
CNVRT
ERTABO
TYPE
MCRLF
MOVR
TST
BEQ
TYEE
ERRMSG: 0

WRKO. FM:

XBX

ADD
MOV
MOV
MOV

016114

177777

MOVB

MOV
ASL

016070
016102
016114

016070

#SW12,2SWR
XBX
QTPCSR

SUB

177001

001312

CKSWR
BIT
BEQ
TSTB
BPL

000002

016012

005737
001402
104402
000000
005737
00°402

163272

001234

017624

016072
016072
016076
016100
016102
016104
016110

JHLT:

163300

015772 062704

105737

163276

1T
BEQ
TYPE
DATAHD: 0
T/PDAT: TST
BEG

(TYPE OUT,ERROR,SCOPE.ETC.)

;:ERROR HANDLER

2661
2662
2663
2664
2665
2666
2667

2668

08:41
PAGE 52
GENERAL UTILITIES

(RG)+,ERRMSG
(R4 ) +.DATAHD
(R&) ,DATARP

TYPMSG
DATASP
TYPDAT

#-1.FRRFLG

ERRMSG
WRKO.FM

DATAHD
TYPDAT
DATARP
RESRE
G

;POINTER TO SUBROUTINE ADDRESS
*SUBROUTINE ADDRESS
:GO TO SUBROUTINE

SEQ 0051

07;JUL-78
MACY11 30A(71052)
CZDQH
09-JuN-78 07:5
CZDQHD PN

08: 41

000000
104407

005777

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

104410

2704
2705
2706
2707
2708
2709
2710
271
2712
2713
2714
2715
2716
2717
2718
2719

PAGE 53

DATABF: 0
RESO5

RESREG:
HALTS:

163054

PUSHRO

000002

001232

TST
8PL

000400

163024

002000

163014

001216
001200
163010

001214

MOV
HALT
POPRO
EXITER: CKSWR
INC

8IT
BNE
BIT

BEQ
MOV
MOV
JMP

RTI
2%:
ERTARQ:
.BYTE

aSWR
EXITER

2(SP) ,RO

ERRCNT
f§u08.aswn

52U10.35UR
NEXT ,RETURN
#STACK,SP

aRETURN

002

016220

016222
016222
016230
016232

XTSTN:

002

?AVPC

BYTE

TSTNO

6.2
3.2

JENTER HERE ON POWER FAILURE

012737
000000
000777

016234«

000024

PFALL:

MOV
T
HAL
BR

#RESTART,
24

JPROCESSOR WILL
4
000C.

012737
012706
005037
005237
001375

RESTAR:

MOV
MOV
(LR
INC

BNE

TYPE
MPFAIL

104402

016500

;SET UP FOR POWER UP TRAP

JHALT ON POWER DOWN NORMAL

TRAP HERE WHEN POWER IS RESTORED

# . PFAIL,24
#STACK,SP
TEMP
TEMP

JSET UP FOR POWER FAILURE

CNVRT

104411

PFTAB

01€310
005037
005037

CLR
CLR

162704

002

PFTAB:

BYTE

MSTCLR
MEMCLR
{MP

ERRFLG
LSTERR
aRETURN

3,2

TSTNO

JCHECK SWITCH REGISTER ROUTINE., CHECKS FOR “G TO ALLOW "HANGING

SEQ 0052

CZDAQH
MACY11 30A(1052)
07-JuL-78
CZDQHD P
09-JUN-78 07:59

2760
2761
2762
2763

2764

2765

2766

2767

08:41

PAGE 54
GENERAL UTILITIES

SEQ 0053

(TYPE OUT,ERROR,SCOPE,ETC.)

;OF L0C.176.

016316

000000

016320
016324
016326
016334
016336

005737
001042
022737
001036
105777

100033

017737
042737

122737
001021
104402

005137

104402
104411
104403
104405
000000
177777
000176
000
104402

;LOCATIONS USED:

000042

.CKSWR:

000176
162642

.WORD

TST
BNE
(MP
BNE

YL0
ouT
#SWREG, SWR
ouT

BPL
MOV

ouT
aTKDBR,

CMPB

#7..MSG

TSTR

162636
177600
000007

BIC
BNE

016446

016316
016452
016440
016461

LONTLU:

@TKCSR

.MSG

#177600. .MSG
ouTt

;SOFTWARE SWITCH REGISTER PRESENT
JNO, GET ouTt
JYES,WAIT FOR
JREADY,

GET CHARACTER

JAND STRIP OFF

: THF GARRAGE

JIS IT A <G>

TYPE ,$CNTG

COM
AN¥RDSW
TYPE
, SMSWR
CNVRT, SWREG(

, SMNEW
INSTP

SARAM

177777

BYTE

005037

ouT:
SWREGC:
.BYTE

002
000107
051127

047040
000

051127
042514
051505
040440
052123
042116
020123
020110
000
051120
020115
040503
047516
041511
042522
000056
051516

SWREG

0,1

TYPE ,MCRLF

(LR

RT]

a#RDSW

020075

$(NTG:
SMSWR:

6.2
SWREG
LASCIZ
LASCIZ

053505

SMNEW:

LASCIZ

NEW= /

.EVEN
MQM:
:
MCRLF

CASCIZ

MPFA]L:

ASCIZ
LASCIZ

MEPASS:

LASCIZ

<377>/END PASS DZDQH

MR:
MERR?:

LASCIZ
LASCIZ

<377>/R/
<377>/PROGRAM INCICATES NO DEVICES PRESENT./

MERR?Z:

CASCIZ

<377>7INSUFFICIENT vATA./

000077

044777

RDSW.

043040
027104
040524
020124
C00040
050040
055104
000040

043517
047111
042524
042040
051505
042523
043125

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

<377>
<377>/PWR FAILED.

RESTART AT

TEST /

CZ0QH
MACY11 30A(1052)
07-JuL-78
CZDQHD. P11
09-JUN-78 07:59

2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842

016640
016646
016654
016656
016664
016670
016676
016704
016712
016717
016724
016725
016732
016733
016740
016744
016752
016755
016762
016770
016771
016776
017004
017012
017020
017026
017034

044506
020124
000041
052377
041520
046377
047117
041505
042524
103
000
126
000
120
035123
051105
020072
377
020124
000
377
053523
051040
020117
051447
051111
052883

2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
Sggg

017043
017050
017056
017064
017072

120
046777
020106
051440
177523
017076
000002
006
001244
006
001246

2859
2860
2861
2862
2863
2864
2865

017076
017100
(17102
017104
017106

08:41
PAGE 55
GENERAL UTILITIES

SEQ 0054

(TYPE OUT,ERROR,SCOPE,ETC.)

044503
040504

047105
040524

051505
000055
041517
0516440
042524
052123
051123

020124

MTSTPC:

.ASCIZ

<377>/TEST P(C~/

020113
046105
020104
000
020072

MLOCK:

.ASCIZ

<377>/LOCK ON SELECTED TEST/

MCSRX:

.ASCIZ

/(SR:

041505

020072

MVECX:

.ASCIZ

/VEC:

051501
000040
047522
000
052377
047516

042523

MPASSX:

,ASCIZ

/PASSES:

051522

MERRX:

.ASCIZ

/ERRORS:

051505
020072

MISIN:

,ASCIZ

<377><377> /TEST NO: /

042523
052111
043505
050504
0462040
0462105
053111

020124
044103
052040
030461
051505
040440
027105

MNEW:

(ASCIZ

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

035102
050101
050504
040524
600

000040
047440
030461
052524

MERRP(:
XHEAD:

.ASCIZ
.ASCIZ

/PC: /
<377>/MAP OF

.EVEN
XSTATQ: 2
BYTE
TEMPI
BYTE
TEMP?2
.EVEN

003
002

/
/

DQ11

STATUS/<377>

6,3
6,2

;JBUFFERS FOR INPUT=QUTPUT

017110
017152

017214

017256
017317
017352
017400
0176436
017513
017541

000000
017152
000000
017214
000000
017256
005015
015
005015
005015
005015
015
015

042522
042012
050504
047516
054105
042412
042012

042503
052101
042440
051040
042520
050130
042521

INBUF:
. .+40
TEMP:
.=.+40
MDATA:
.=.+40
EMO:
EM1:
EM2:
EM3:
DHO:
DHI1:
DHc:

LASCIZ
JASCIZ
LASCIZ
LASCIZ
LASCIZ
JASCIZ
LASCIZ

<15><12>/REFEIVER DONE PRIMARY NOT SET./
<15><12>/DATA COMPARISON ERROR.../
<15><12>/DQ ERROR FLAG SET. 7/
<15><12>/NO RECEIVER INTERRUPTS!'... /
<15><12>/EXPFCTED
FOUND
RX ADDR.
Tx ADDR.
< SO<T12>/EXPECTED RECEIVED
7
<15><12,/DQERR
/

MASK /

017556
000005
006
001270
006
001266
006
001260
006
001256

.EVEN

DT0:

006

012370
000002
003
0146302
003
014274
000001

006
014266

000000

DT1:

DTZ:
.ERRTARB:

5
BYTE
SAVRS
.BYTE
SAVR4
.BYTE
SAVR1
.BYTE
SAVRO
.BYTE

MASK

BYTE
GDCHAR
.BYTE
gHAR

.BYTE
ERR

0
0
EM1

LEND

6.1

6.4
6.4

6.2

3.6
3.2
6")

0
0
0

EMO

017616
017400
000000
000000
060001

6.4

DHO
D10
EMI
DH1
pT1?
EM2
DHZ
D12
EM3
0
0

;HAL'

JHALT

~n)

2866
2867
2868
2869

017556
017560
017562

D
5
08: 41
PAGE 56
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

SHALT

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDAHD P11
09-JUN-78 07:59

JHALT

SEQ 0055

CZDQH
MACYN 30A(1052)
_07-JuL-78
CZDQHD
. P11
09-JUN-78 07:59

ABBIT =
ACTBIT=
ADDR
ADRCNT=
BABIT =
B8BIT =

002000
Q04000
014300
015317
010000
020000

BINWRD
015636
BITO
= 000001
BIT1

= 000002

BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BITZ2
BIT3

=
=
=
=
=
=
=
=

BIT4

= 000020

BIT7

= 000200

BITS
BIT6

002000
004000
010000
020000
040000
100000
000004
000010

=
0
= 000100

BIT8
= 000400
BIT9
= 001000
BRW
014602
BRX
014604
CHAR
014274
CHARDT= 000010
CHAR1
001236
CHARZ
001240
CHAR3
001242
015634
CHRCNT
CKSWR — 104414
CNTLU - 104415
CNVRT = 104471
CONVRT- 1044610
COUNT
014276
CREAM
G0130C
CSRMAP 000220
(16114
DATABP
DATAHD
016102
DETCAR
014304
DEVADR 015314
DHO
017436
DH1
017513
017541
DH2
000174
DISPRE
DLIGHT- 177570
DQACTV 001500
DQCROO 001400
00140%
DQCRC1
DACROZ 001410

DQCRO3
DQCRO4

001414

001420

609
6104
23464
2508«
olla
6124
2597+
604N
603
1630
2096

08:41

PAGE 58

CRCSS REFERENCE

SEQ 0056

TABLE =-- USER SYMBOLS

723

731

1353
1767

2228

S94LH

1354
1832

1422

1833

1898

1423

1491
1899

1492
1964

1560
1965

1561
2030

2031

1418

1487

1556

1625

1694

1762

1828

1894

2229

1629

5934

5924
591#
590#

5854
6024
601w
1960
6004
5994
SO8#
5974
S96w
595#

1019
1020
1118«

6294
800#
8014
8024
2595+
8614
8634

2308
2327

1235«

2344n

2880

2599

2615w

26354
1012

2636
2389

2407

2431

2654

2713

2363

2367

2371

2375

2684

2688

2747

2778

941>
972

1051~

1055+

1064

1065+

1066

1067

2680
2698

2702
27014

27054

2544

25544

754

9204

994 »

995

987

969

977

743

997

2704

749+

750e

1045

1047

CZDQH
MACY1T 30A(1052)
07-JUL-78
CZDQHD.P11
09-JUN-78 (07:59

DQCROS
DACRO6
DQCRO7
0QCRT0
DACR1T
DACR12
DACR13
DACR14
DQCR1S
DQCR16
DACR17
DQCSR
DQERR
DONUM
DQRCSH
DORCSR

DQREG

001424
001430
001434
001440
007444
001450
001454
001460
001464
001470
001474
001506
001366
007504
001362
001360

9234
8”8
700
8768
754

001402
001406
001412
001416
001422
001426
001432
00°436

1083
766
2315%
079

1204
936
2324e
1208

2306+
2380

1570+
1977

1179
9224
2321«
1160+

1210%

1219+

129%#

1297

1363+

1366

1432+

1573
2040+

1639+
2043

1642
2106+

17208+
2109

1711
2172+

1776*
2175

1779
2238+

1842+
2241

1845
2304s

1083+

1084+

1085

1120

1122%

1124*

1126*

1128«

1130*

1132+

1134+

1136+

2070
109¢»

12130
133G+

12740
1348+

1220%
1355+

1222+
1357+«

1223%
1359«

1232+
1387w

1245+
1403+

1265%
1417%

1279x
1424x

1286+
1426%

1288+
1428%

1290w
1430s

1626+
1768+

1631«
1770+

1633+
1772+

1635+
1774~

1637+
1814~

1679+
1827+

1693«
1834»

1700+
1836«

1702%
1838+

1704+
1840+

2036+
2170+

2038+
2210+

2078+
coz3=

2091+
2230+

2098+
2232«

2100+
2234+

2104*
2308+

2l4kx
2309+

8724
8714

1071s
1069+
1085«

1072«
1070=
1086+

1073
1071
1087

1157»
1156x
1121+

2397

_BBO

1939«
1278+«

1143+«

1486+

1904~

1742«
1280+

1906%

1744+
1283»

1964%

2035»
2158+
2231

8894
8914
8934
8954
8974
895«
9014
9034

1493+

1963

2033+
2156+
2229
1820

165«

13582
1487+
1563+
1692+
1767+

183G«

8814
92N

1504
1974s

1356+
1485+
1561+
638+
1766+

1837«

1960e

DASTO0
DASTOT
DASTO2
DOSTO3
DQSTO4
DASTOS
DAST06
DASTO7

1068
1082+
744
1078+
1077

8794

1738+

1064
1081+
739%
1077+
1068«

15CT=
1971

1354«
1431«
1560
1636+
1765«

001374
001510

SEQ 0057

TABLE == USER SYMBOLS

1435
1908

1902«

DASECH
DASTAT

9150

918n

001370

001352
001350
001372

898w
9004
9024
904N
06N
908H
910w
9128
9140

1470«

DORLVL
DARVEC
DQSEC

O08:41
PAGE 59
CROSS REFERENCE

1087+
1065+
1886

1166

1495+
1946+

1167
1284~

1497+
1959

1187+
1285+

1185+
1499+
1966+

1188+

1541+
1968+

2102*
2236+

1189x

1555«
1970+

1191+«
15622

1972+

119%=
1564%

2012«

1196+

1566

1706*
1880%

2157%
23T1s

216hr
2314x

168+
2319

T1g3+

1125«

1127+

1129

1131«

1133«

1135s

1137+

1195+
1289+

1198+
1297+

1212«
1293*

1215+
13,7«

1221x
1349x

1224»
1352+

1233»
1353

1421%
1496+
1625+
1701+
18¢6*

1422«
1498«
1628+
1703«
1828+

1423%
1500%
1629+
1705+
1831s

1425+
155k%
1630%
1707+
1832+

1965+

1967+

1969+«

1971+

1973«

2024

2026

2029+

'47€

1545

2039+
2162+
2235+

2166*
2317+

1190*
1287%

1418+
1494*
1623+
1699+
1775+

2037x
2161
2233«

1610+
1761%
1900+

2034*

1416+
1492+
1569+
1698+
1773«

1894+

1568+
1748+
1893+

1199+

2032+

1362+
1461+
1567+
1697+
1771

1892+

1197«

2025+«

1360
1490+
1565%
1694+
1769+

[84l®

1088+
1069
1952

1168+

1897*

1898+

1899+«

2090+
2163+
3237a

2092+
2165+
2310%

2095+
2167«
2318x

2096+«
169%
2320%

1109

1140

1269

1338

1407

2018

08,

2150

22°%

1901«

2097«
2171s
2327+

1903+

2099+
2002%

1427+
1556%
1632+
1760*
1833«

1429+
1559
163w
1762+
1835+

2101+
2224

2030%

2103+
2227%

2031+

€14

754

1905+

1907+

1958s

2105+
2228s

CZ0QH
MACY11 30A(1052)
07-JuUL~-78
CZDQHD.PN
09-JUN=-78 07:59

177570

017556
01760«
017616
017256
017317
017352
017400
003332
014266

001232

001312
016070
016206
016140
014302
016120
015312
001222
017110
001310

SEQ 0058

TABLE == USER SYMBOLS

9054
9074
9094
9114
Q134
9154

9174
9104

8774

1640+

B74#
8734
5734
28654
28764
2881#
28654
2865#
28654
28654
11764
1179+
7954

1079+
1709+
1075«
1073~

1080+
1777«
1076+
1074
>

1081
1843«
1159+
1075

2341a
2403
2357«

2883
2714~
2420~

2347#

2878

2418

2422+

957«

2377=

25554

2556

1193«

2107«

1295«

2173~

1502+

1571«

1448
1681+
1948~

1674
1682
1949

2893

1204+

2565+

2678

2692+

2749

1379

1405+

2146+

214

104404
104403
015076

040000
001202

2384n
2537

1480

1724

2014
2875
2493
2825#

1612«
1856

1613
1882+

FRe&

2417«
943«
1268

— 000~
&

DTO
DT1
D12

001356

001354

N)—2
- -

DQTLVL
DQTVEC
DSWR

001452
001456
001462
001466
001472
001476
00" 364

CROSS REFERENCE

O~NO-r

DQTCSR

001442

001446

PAGE 60

N) =t b —b
— Q0NN
N — Qo &

DQST10
DQST11
DQST1?2
DQST13
DQST14
DQST1S
DQST16
DQST17

08:41

2213

1874

2252

POLY
POLY. =
POPRO -

POP1SP=
POP2SP=

1534«

1603+

1672+

17419

1807+

1873«

1104+

2390+

24623

2424

2719»

2721

2753

1329
1632
1917

1372
1674

14641

1467
1769

2774

27854

25264

253%6

2377

2400

1119«

016316
16116
016234
014430

2776+

RESOS = 104407
RE TURN
001214
RUN
001304

RUNCNT
001306
RUNFLG
001302
RXBA.P= 000000
RXBA.S= 000004
RXBUF
F
013256

003502
000001
RXw( ,S= 000005
RX.B((= 000015
SAVA(T
001502
RX ISR

1327+

c703+

177776

PUSHRO= 01004¢
PUSH1S
005746
PUSHZS- 024646

RDSW
RESREG
RESTAR
RESTRTY

1258+

2137~

1465+

2719

2538

2540

2786

2205

=000

PFTAB

015144
015220
015302
001230
016310
014270
000017
012600
005726
022626

28084

SRZS

PARERR
PART]
PASCNT

SEQ 0059

TABLE == USER SYMBOLS

Palvy)

PARAM1

r) —b—a

1= 001000
0oDDB]
ouT
016432
PARAM = 104405

CROSS REFERENCE

30
*F

016563
016632
MISC. = 000012
MLOCK
016670
MNEW
016771
MPASSX
016733
MPFAIL
016500
MQM
016472
MR
016560
MSTCLR= 104417
MTITLE
001000
MTSTN
016755
MTSTPC
016656
MVE CX
016725
NEXT
001216

28044
28444
28314

PAGE 61

—

MERR?2
MERR3

016536
017043
016744

7:59

08: 41

N —s—s—
- @O\ 1N

MEFASS
MERRP~
ME RRX

07-JUL~78

c)\{zon
~

CZ0QH
MACY11 30A(1052)
CZDQHD.PI1
09~JUN~78

2247

425

1717

2007

1743

2033

2049

CZDQH
MACY11 30A(1052)
07-JUL~78
C2DQHD.P11
05-JUN=78 07:59

SAVNUM
SAVPC
SAVRO
SAVR1
SAVR2
SAVRY
SAVRG
SAVRS
SAVSP
SAVOS =
SCOPE =

001276
001274
001256
001260
001262
001264
001266
001270
001272
104406
104400

SCOP1 ~ 104401
SEQ.
- 000014
SETON
002752

SPACNT= 015635

2060

834
6230
11204

2596

STACK - 001200
STFLG
001311
SV0S
015326
SWR
001200

5764
8254
25644
7798

SWREG
SWREGC
SWO0
=
w01
=

€90
2778
5564
554

w02
w03
Sw04
SWO5
SwW06
Sw08
W09
W10
Swil
w12
swi3
SWi4

747
8154
80B¥
8094
8104
8110
B12#
8138
814a
BLO¥
8374

=
=
=
=
=
=
=
=
=
=
=

000176
016440
000001
000002

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

2632

5544
5534
55204
5514
5504
5498
5484
S47a
5468
S4SH
S44k
543

w15
= 100000
SYNBIT= 100000
SYNC
013052

542N
6154
11

SYNC.
SYNCT

6304
1276%

00011
012372

SYN(2

012374

TEMP

(017152

TEMP1
TEMP?

001244
001246

1947

1888+

2154«
1277«
1705

2592

669+
804¥

1307«
1378
16475«
1549«
1621
1697

08:41
PAGE 62
CROSS REFERENCE

8164
2560+
2569+
2568+
2567
2566+
2565+
2564+
2666
1176

936
2725
2574
2575
2576
2577
0578
2579
131¢

2378+

2380

2873
2871
2869
2867
1385

1454

2192

2258

2617

2620+

26364
2720

2741

947+«

952

956+

967

2444

956
2788«
981
1021

2715
2432
2717
2415
2444
2660
712
1M

1009

2655

987

1109
1125

2079

1345+

1474%

2169

2218+

1291
1759«

2600

670+
975+

1308«
14060
1479«
1557«
1622
1721

2660

2767

2707

2783

1523

1592

1661

1730

1796

1862

1928

1994

970

981

938

994

1013

1021

2608

2415

2717

2767

1404

1473

1542

1611

1680

1749

1815

1881

1690«

1756+

1758«

1773

1820«

1824+

1839

2730

2655

203

1890+

SEQ 0060

TABLE ~~ USER SYMBOLS

2126

934
937»

1905

1366+
1825+«

1266

1335

2145

2211

1483%

1552«

2220«

2235

1954+

1360
1891+

1956+

1415«
1957«

2330#
1621+

1971

2020~

2022+«

2037

2086+

2088+

2103

2152

1429
2023+«

1484+
2089+

1498
2155+

1553»
2221«

1567
2264w

1622«

1636

1691+

2852
1268+

1272+«

1273«

1275«

1276

1277

1278

1446

1447

1473+

1617«

1618+

1620+

‘B1%+«

1817+

1810

22630

2627+

2742+

2743+«

8034
1162+

2861a

974+
1171«

$75
1203«

979+
12A6e

1309
1406
1480+
1552
1623

1722«

13365a
1410*
1482«
1553
1652¢

1723

1337«
14611«
1483
1554
453«

1749+

1347«
1413«
1484
1583+
1654

1751«

1342+
1414
1485
1584«
1680

753«

344e
1415
1514+
1585
1682+

1748

1345
1616
1515«
16* 1
1686*

1759

1346
1645+
1516
1613«
1687+

1760

1347

1542+
1689+

1376%

1544«
1690

1377+

1548+
1691

(ZDQMN

MACY11

C2DQHD . PN

30A(1052)

07-JUL-78

09-JuN=-78 07:59

1824
1957

Sggg
TEMP3

001250

TEMPS

001254

TEMPS

001252

TKCSR

001204

TKDBR
001206
TLAST = 012040
TPCSR
001210
TPDBR
001212
TRPOK
015652
TSTNO
001226
ST

002254

TST10

006154

TST1
TST12
TST13
TST14

006522
007070
007420
007750

IST16
TST17
TST2

010630
011160
002644

IST1S

010300

1S7120

TST21

TST22

011510

TST3

8054

08:41

1825
1958

1826
2013+

1881«
2015«

1883«
2017«

2592«

2627

2145
1163

1241+

7814

2411

2471

1038

2071

2482
2481x

2657
2659«

944>
1938+«
1032

1037«
2004+
10374

1103~
2070+
2390

1257~
2136
2%91

1326»

1395»

1664

2202+

2728

2756

1019«

1020+

24094

1187

121€

2331

137°

1440

1509

1647

1716

1/84

16024

1703

2350

2136n

13264
13954
14644

TTST
TXBA.PTXBA,S=
TXBFA
TXBUFF

014504
000002
000006
C13054
(C12376

1016+
622
6264
1746
3302

1017«

TX.MUX= 000013

TYPDAT
(016106
TYPE
= 104402

TYPMSG

VECMAP
WwRDCNT

016026

000056
015632

2215+«

1949+«
2083+

1951«
2088

1956
2089

)
1633«

1602+

1671~

1740~

1806+

1850

1916

1982

2048

2114

1058

2359

2361

2365

2369

2220

2221

2222

1938#

2004n
20704
1039

1258
1327
1396

00333

2213«

1947+«
2081«

16714
17404
18064
1872#

1257#

TXISR

2211«

2454
2456%

1106

TXW(C.P= 000003
TXW(.S- 000007
Tx.8(C= Q00016

2156

2451
2453«

N03756

1533

2246
11704

22654

2681
760

2699
841#

2702#
965

2775

2?7

278S

2180
1158

1892
2079«

2771

04324
004672
005240

1465

215§

189°
2024

2481

2202#

005606

2769

2154

1890
2023

2473

2137
2203

1169+

2149«

1885+
2022

SEQ 0061

2413
2350#
2448
2450

TST4
TSTS
TST6

T1ST7

2147+«

1164~

7824
1027
7834
784k
c6L6N
7934
1872+
1026
1534
1603
1672
1741
1807
1873
1939
2005

TABLE ==~ USER SYMBOLS

8064

8074

CROSS REFERENCE

012040
xxenwn

PAGE 63

1578

623
&27n
635#

632#

2373

2679

(V4
2%

2467

2682#»

759
2625«

2677

2634w

973

2489

983

2493

990

2584

1015

2623

1033

2682

2686

2690

2695

2700

2745

(ZDQH
MACYN 30A(1052)
07-JuUL-78
CcZDQHD.PI
09-JuUN-78 07:59
XPASS
XPOLY
X]XBUF

XSTATQ
XSYNC
XSYNC2
XTSTN
XTXBUF

XVE C
$CNTG

014460
014272
014064

2372
2343w
1129

014452
016446

2368
2775

27264
1151
<3954
2791n

1534

15354

1133

= 000023

19404
2779
27’7
4
1531

19400

= 000016

8594
6404
726
8G4n
9074
9204

= 017670

.INSTE
.INSTG
CINSTR
JINSTT
LMEMCL

015052
(015056
014734
014754
012706

846
2486
844
2L678
860

MG
LMSTCL
.PARAM
PFAIL

014756
013032
015104
016222

2L65¢
858
848
644

013050
(015640

1137
648

014626

.RESOS
.SAVOS
.SCOPE
.SCOP1
.START

015360
015320
014474
(014606
001512

TRPTA

001314

. ABS.

017670

-SYNC
.TRPSR
LJTvPE

646

TABLE =--

SEQ 0062

JSER SYMBOLS

23394

23354
1225

1039

10404

1106

2005
7944
27924
1035

20064

c071

15354

2002

828+

8614
641
729
895#
9084
21x

27654
27764
2586#
2584
23564
2884

10084
862
864
856
854
2203
2674

1226

1195

23324

002116
016320
016374
(015416
015412
014306
017624
015672

2850#
1115«

23024
.BEGIN
.CKSWR
.CNTLU
.CNVRT
.CONVR
.EOP
.ERRTA
JHLT

1221

978
1112«
23364
2685

013667

23984

017076
013656
013660
016214

MNFW
016461
SWR
016452
N
= 000021
$Y

08:41
PAGE 64
CROSS REFERENCE

1603

16044

23374

11074

1258

1259#

1327

13284

20724

2137

2138¢

2203

2204#

1672

16734

174"

17420

1807

1396

18084

13974
1873

1465

14664

18744

1939

10604

1101

11074

1255

12594

1324

13284

1393

13974

1462

14664

1600

16044

1669

16734

1738

17424

1804

18084

1870

18744

1936

20064

837

8634
6434
764
8964
Y094
9224

2334m

2068

8394

8654
6504
7694
8974
9104
9234

20724

8414

6524
7764
8984
9114
904N

2338

2340

2771«

2772«

2773

27328

2740

2134

8434

5604
8174
8954
914
971

2449

21384

8454

676
8874
9004
9134
976

2452

2200

8474

688
8884
9014
914n
980

2735

22044

23504

8514

8534

8554

857«#

694A
8894
9024
9154
993

697A
8904
9034
9é6n
1061

701
8914

717
8924

722
8934

B4ON

2744

27964

904

9174
1141

28494

9054

9184
1180

28604

064

9194
1205

28624

26544

2487
24894
2463
2478
2303

2468
23254
2501
935

852
850
838
840
695

2574H
2560#
240°#
26314
933y.

8364

2648

2325#
26434

2494

945

24354

C(ZDQH

MACY11

{ZDQHD . P11

30A(1052)

07-JuL-78

09-JUN-78 07:59

ERRORS DETECTED:

08:41

PAGE 65

SEQ 0063

CROSS REFERENCE TABLE == USER SYMBOLS

DSKZ:CZDQHD,DSKZ
: CZDQHD . SEQ=DSK 7 : (ZDQXX.MA(,DSKZ:(2DQHD.P11
RUN-TIME: 7 11 .9 SECONDS

RUN-TIME

RATIO:

CORE USED:

19k

DOCUMENT PAGES:

46/19=2.3

(37 PAGES)

% {\

ten