Digital PDFs

AH-8637D-MC

January 1979

64 pages

Original

34MB

view download

OCR Version

45MB

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

OCR Text

CHAR LENGTH INTERRUPT TEST

AH-8637D-MC

CZDQHDO

JAN 1979

lEHnED

FICHE1 OF 1

MADE
IN USA

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

08:41

PAGE 2

SEQ 0001

IDENTIFICATION

PRODUCT

CODE
:

AC-8635D-MC

PRODUCT

NAME:

CZDQHDO CHAR L

DATE:

JUNE

MAINTAINER:

DIAGNOSTIC GROUP

INTR

1978

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

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY Of
SOF TWARE ON EQUIPMENT
AFFILIATED COMPANIES.

(()

1975,

FOLLOWING ARE

DIGITAL
DEC

THAT

IS NOT SUPPLIED BY DIGITAL OR ITS

1978 BY DIGITAL EQUIPMENT

TRADEMARKS OF

PDP
DECUS

DIGITAL

UNIBUS
DE CTAPE

CORPORATION

EQUIPMENT

CORPORATION:

MAS SBUS

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

08:41

PAGE 3

SEQ 0002

ABSTRACT
THE FUNCTION OF THE DQ11 DIAGNOSTICS ARE TO
VERIFY THAT THE OPTION OPERATES ACCORDING
TO SPECIFICATIONS.

CURRENTLY THERE ARE SEVEN OFF LINE DIAGNOSTI(CS THAT ARE
TO BE RUN IN SEQUENCE

TO INSURE

THAT

AT AN EARLY

INSURING THAT

IF AN

ERROR SHOULD OCCUR IT WILL BE DETECTED
STAGE AND

DIAGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM
NOTE:
ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.
THE

SEVEN DIAGNOSTICS ARE:

1. CZDQA [REV]
2. CZD@B [REV]
3. €ZDQC [REV]

4.
5.

(Z0QD [REV]
CZDQE [REV]

6. CZDQF [REV]
7. CZDQGH [REV]

BASIS R/W TEST #1
BASIC R/W TEST #2

BASIC NPR AND INTERUPT TEST

RECEJVER TRANSMITTER EXERCISER TEST
MISC. RX AND TX TESTS. PLUS BCC TESTS.
CHARACTER DETECT TESTS.

C(HARACTER LENGTH AND INTERRUPT TESTS.

T
‘THERE
IS ALSO_AN ONLINE TEST TO BE DISCUSED LATER.
1.

CZDQ0 [REV]

ONLINE TEST.

(ITEP OVERLAY)

AND A PARAMETER INPUT PROGRAM IS AVAILABLE
1. CZDQG [REV]
DQ11 TRIAL PROGRAM (PARAMETER
REQUIREMENTS

2.1

INPUT)

EQUIPMENT
ANY PDP11 FAMILY CPU (WITH MINIMUM 4K MEMORY)=WITH
OR WITHOUT A HARDWARE SWITCH REGISTER (LOC. 17757C)

33?133 (OR EQUILIVALENT)

SYNC MODEM (ONLY REQUIRED FOR ONLINE

2.2

TEST)

STORAGE
PROGRAM WILL LOAD AND RUN

IN 4K OF MEMORY.
LOCATION 1400 THRU 1600 ARE ESPECIALLY TO

BE _NOTED AND TO BE UNTOUCHED BY CPERATOR
AFTER DQ11 TRIAL PROGRAM HAS BEEN EXECUTED,

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

LOADING PROCEEDURE

ME THOD
ALL

PROGRAMS ARE

IN ABSGLUTE

FORMAT

AND

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

08:41

PAGE &

SEQ 0003

ARE LOADED USING THE ABSOLUTE LOADER.

MEMORY
SIZE

—a eI
—
VIWIW=NNNN
NNN

ABSOLUTE LOADER STARTING ADDRESS

8K
12K

16K

20K
24K
28K

+500

3.1.1

LOAD THE ADDRESS OF ABS. LOADER (LOC.XxX500)

3.1.2

THEN START

STARTING PROCEEDURE

A. LOAD LOC. 200
:
B. SET SWR TO ZERQ FOR '‘AUTO SIZING'' OR LEAVE
LEAVE SWR BIT 7=1 TO USE EXISTING PARAMETERS SET UP
BY DQ11 TRIAL PROGRAM OR A PREVIOUSLY RUN DQ171 DIAGNOSTIC
THAT USED THE '‘AUTO SIZING''.
x***REFER TO SECTION 4.1 FOR SOFTWARE
AND OPTIONS. *%%*

SWITCH REGISTER OPERATION

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

THE PROGRAM WILL

TYPE MAINDEC NAME AND PROGRAM NAME

THIS WAS THE FIRST START UP OF

THE FOLLOWING:

THE PROGRAM) AND ALSGC

‘MAP OF DQ11 STATUS'
1400
16001
60010
1402
152300
1404
160020
1406
150310

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
USER IF AUTO SIZING IS DONE.
FOR INFORMATION OF STATUS
TABLE

SEE SECTION 8.4 FOR HELP.

*x«x[F THE SOFTWARE SWITCH REGISTER IS SE LECTED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENT 1;1;5 ITSELF:
SWR=XXXXXX NEW=
(REFER TO SECTION 4
OR OPERATOR'S OPTION) *w#«
NOTE:IF USING THE SOF TWARE SWITCH REG ISTE R 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 PROCEED TO RUN THE DIAGNOSTIC

4.1

CONTROL SWITCH SETTINGS

THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

REGISTER THEN A SOF TWARE SWITCH REGIS TER 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) IS USED.
:
CONTROL

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

TYPE CONTROL G <*G>;

LOC.

THIS WILL ALLOW THE

THE MACHINE WILL THEN TYPE:

T TY TO ENTER DATA INTO

176 AT SELECTED POINTS WITHIN THE PROGRAM.

THE

SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS

SOF TWARE SWITCH REGISTER.)

3) AFTER THE ''NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF

THE FOLLOWING AT

SW 15

SW 14

SWw
SW
SW
SW
SW
SW
SW
Sw
Sw

13
12

10
09
08
07
06
05

THE

TTY:

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(CR>.
(ONLY NUMBERS BETWEEN O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOF TWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGEL.

IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILI.

BACK TO STEP 2.

SET: HALT ON ERROR

SET: LOOP ON CURRENT TEST

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

INHIZIT ERROR PRINT OUT
INHIBIT TYPE OUT/BELL ON ERROR.
INHIBIT ITERATIONS
ESCAPE TO NEXT TEST
LOOP WITH CURRENT DATA
CATCH ERROR AND LOOP ON IT
USE PREVIOUS STATUS TABLE. CLR-DO AUTO SIZE.

SW 04

SET

SW 02

SET: LOCK ON SELECTED TEST

Sw 03
Sw 01
Sw 00

SET

SET: RESTART PROGRAM AT SE!ECTED TEST
SET: RESELECT DQ11'S DESIRED ACTI.€.

SEND YOU

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

08:41

PAGE 6

SEQ 0005

SWITCH REGISTER RESTRICTIONS

Sw 00

RESELECT DQ11'S DESIRED ACTIVE,

PLEASE NOTE

THAT A MESSAGE

IS TYPED

OUT FOR SWITCH REGISTER BEING EQUAL

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

TO DA11's

BE SET IN LOC 'DQACTV' USING THIS

SWITCH ALTERS THAT LOCATION; THEREF
ORE
IF FOUR DQ11S ARE IN THE SYSTEM
*#+xDQ NOT*## SET SWITCHS GREATER THAN

Sw 03 IN THE UP POSITION. THIS WOULD BE

A FATAL ERROR.

DO NOT SELECT MORE ACTIVE

DQ11S THAN HAS BEEN GIVEN INFORMATION
ABOUT IN TRIAL PROGRAM.
LOAD ADDRESS 200
START WITH SW 00=1

METHOD: A:
8:
:

PROGRAM WILL TYPE MESSAGE
CONTINUE THE BINARY
NUMBER OF DQ11S DESIRED ACTIVE
EXAMPLE: 1=1 DQ11; 3=2 DQ11; 7=3 DQ11; 17=4 DQ11 37=5 DQ11
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05.

CONTINUE

Sw 01

WITH ANY OTHER

SWITCH

SETTINGS DESIRED.

IT IS STRONGLY SUGGESTED THAT

AT LEAST ONE PASS HAS BEEN MADE

BEFORE TRYING TO SELECT A TEST

THAT IS NOT IN THE ORDER OF SEQUENCE
THE REASON BEING IS THAT THE
PROGRAM HAS TO CLEAR AREAS AND SET

UP PARAMETERS. ALSO WHEN A TEST IS
SELECTED ALWAYS START AT THE VERY
BEGINNING OF THAT TEST.
SWw 09

LOOP ON CURRENT DATA:

THIS SWITCH WILL ONLY WORK

CALL "'SCOP1'’ IS IN THAT TEST.

THE REASON BEING THAT MOST TESTS

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

SINGLEDP OUT.

SWITCH REGISTER PRIORITYS

ERROR SWITCHES
NN
—

.
.

SW 12

4.1.3

ONE PATTERN CANN'T BE

SCOPE

DELETE ERROR PRINTOUT.
HALT ON THE ERROR.

(ERROR)

ROUTINE

SWw 08
SW 10

«#«+HLT

DELETE PRINT QUT/BELL ON ERROR.

SW 13
SW 15

SWITCHES

GOTO BEGINNING OF THE TEST.
GOTO NEXT TEST ON ERROR.
SUPPORTS <“G> OPERATI(N®*=»»+

ETC
11704,

11/34)

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

SW 09 (IF

W 11

08:41

PAGE 7

SEQ 0006

ENABLED BY "'SCOP1'",

»+x+SCOPE ROUTINE WILL SUPPORT <*G> OPERATION*#w«
4.2

STARTING ADDRESS

STARTING ADDRESS IS AT 000200
THERE

ARE NO OTHER STARTING ADDRESSES

FOR THE DQ11
NOTE:

DIAGNOSTICS PREVIOUSLY MENTIONED

IF ADDRESS 000042 IS NON-ZERO

THE PROGRAM ASSUMES IT IS UNDER
ACT11 OR DDP CONTROL AND WiLL ACT ACCORDINGL Y
AFTER *ALL* AVAILABLE DQ11'S ARE TESTED
THE FROGRAM WILL RETURN TO 'DDPZ2'‘ OR "‘ACT=11"",

OPERATING PROCEDURE
WHEN PROGRAM IS INITIALLY
FOUR WILL BE PRINTED.

STARTED MESSAGES AS DESCRIBED

IN SECTION

AND PROGRAM WILL BEGIN RUNNING THE

DIAGNOSTIC

PROGRAM AND/OR OPERATOR ACTION
THE

TYPICAL APPROACH SHOULD BE

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

2.
.

CLEAR SW 15
SET SW 14: (LOOP ON THIS TEST)

“THE

SET SW 13:

(INHIBIT ERROR PRINT OUT)

TEST NUMBER AND PC WILL BE

POSSIBILY AN ERROR MESSAGE

TYPED OUT AND

(THIS DEPENDS ON THE

TEST)

TO GIVE THE OPERATOR AN IDEA AS TO THE SOURCE OF THE
PROBLEM. IF IT IS NECESSARY TO KNOW MORE INFORMAT]ION

CONCERNING THE ERROR REPORT;

LOOK IN THE LISTING

ERRORS

(o))

FOR THAT TEST NUMBER WHICH WAS TYPED QUT
AND THEN NOTE THE PC OF THE ERROR REPORT
THIS WAY THE EXACT FUNCTIONING OF THE TEST
CAN BE INTERPEDITED

S _DESCRIBED PREVIOUSLY THERE WILL ALWAY BL
TEST NUMBER AND PC TYPED OUT AT THE TIME OF

ERROR (PROVIDING SW 13=0 AND SW 12=0).
!

6.2

IN MOST CASES ADDITIONAL

INORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE
gg‘legg IS TO GIVE THE OPERATOR AN INDICATION OF THE

ERROR RECOVERY

CZDQH

MACY11

CZDQHD.P11

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 OF

CPU.

IF THIS SHOULD HAPPEN:; LOOK IN LOCATION
"TSTNO"' (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT
\ElagogLMING AT THE TIME OF

THE CATASTROPHIC

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS TO

WHAT

6.3

THE DQ11

WAS DOING AT THE

TIME OF

THE ERROR.

w#xx«HALT RECOVERY WHEN USING SOF TWARE SWITCH REGISTER#*» »=
IF

THE SOF TWARE SWITCH REGISTER IS TO BE CHANGED AFTER A HALT

THE THE OPERATOR IS REQU.RED TO TYPE A <*G> BEFORE DEPRESSING CONTINUE.
THE FOLLOWING WILL BE TYPED:
SWR=XXXXXX
NEW=
(REFER TO SECTION 4.1 FOR OPERATOR OPTION)

RESTRICTIONS

7.1

STARTING RESTRICTIONS

SEE SECTION 4.

7.2

OPERATING RESTRICTIONS
DQ11

TRIAL PROGRAM MUST BE RUN PRIOR TO THE

FIRST AND ONLY

THE FIRST RUNNING OF

ANY DQ17

DIAGNOSTIC

NOTE:
IF NO PROGRAM OTHER THAN
A
DQ11 DIAGNOSTIC WAS LOADED AFTER DQ11 TRIAL OR
[F CORE MEMORY HAS NOT BEEN CHANGED;OR IF THERE
IS NO DQ11 CONFIGURATION CHANGES: THE
DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN.
HOWEVER IF ANY OF THE ABOVE HAVE BEEN VIOLATED
THE DQ11 TRIAL PROGRAM MUST BE RUN AGAIN
BEFORE RUNNING THE DIAGNOSTICS
NOTE: AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING
T?EH”‘S\%g (S)IZING" WHEN PROGRAM IS INITIALLY STARTED
W

(PLEASE)

=V.

MISCELLANEOUS

8.1

EXECUTION TIME

8.2

PASS COMPLETE
WHEN THE DIAGNOSTIC HAS COMPLETED

A PASS THE FOLLOWING IS AN EXAMPLE

THE PRINT OUT TO BE EXPECTED.

ENp PASS AC-8635D-MC (CSR:
NOTE:

160000 VEC:

300 PASSES: 000001 ERRORS: 000000

THE NUMBERS FOR (SR AND VEC ARE
NOT NECESSARILY THE VALUES FOR THE DEVICE

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

08:41

PAGE 9

SEQ 0008

THEY ARE ONLY FOR THIS EXAMPLE.

8.3

e IST

(MINI MONITOR)

THE VERY FIRST “TEST'' (TST1)

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

IN THE

SYSTEM THROUGH THE DIAGNOSTIC.

8.4

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

TO BE PEFORMED.
CONTAINS THE NUMBER OF

BEING PEFORMED.

THE NEXT TEST

THE

TEST NOW

THE BIT IN 'RUN'' ALWAYS POINTS ONE

PAST

THE DQ11

CURRENTLY BEING TESTED.

:
EXAMPLE
(RUN) 1304/0000000001000000

DQCROO-DQCR17
DQSTO0-DQST17

MEANS THAT DQ11
RUNNING.

NO.OS5

THE DQ11

NOW

(1400)=(1476)

THESE LOCATIONS CONTAIN THE

DQACTV (1500)

INFORMATION

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

EACH BIT SET IN THIS LOCATION INDICATES
THAT THE ASSOCIATED DQ11

WILL BE

TESTED

IN TURN.
:
EXAMPLE
(DQACTV) 1500/0000000000011111
MEANS THAT DQ11 NO. 00,01,02.,03.04
WILL BE

DQCSR

(1506)

DQSTAT

(1510)
BIT
BIT
BIT
BIT
BIT
BIT
BIT

15
14

13
12
11
10
09

TESTED.

:
EXAMPLE
(DQACTV) 1500/0000000000010001
MEANS THAT DQ11 NO. 00,04
WILL BE TESTED.
CONTAINS THE RECEIVER (SR OF THE
CURRENT DQ11 UNDER TEST.

CONTAINS THE STATUS OF THE CURRENT
DQ11 UNDER TEST.
SET
TWO SYNC CHARS/ONE SYNC CHAR
SET:
TEST JUMPER INSTALLED/NOT INSTALLED

SET:
SET:
SET:
SET:
SET:

B8 OPTION INSTALLED/NOT INSTALLED
BA OPTION INSTALLED/NOT INSTALLED
ACTIVE ON FIRST NON-SYNC/ACTIVE AFTER NO. OF
AB OPTION INSTALLCD/NOT INSTALLED
ODD VRC/EVEN VRC

SYNC

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

08:41

BIT 00-08

PAGE 10

SEQ 0009

VECTOR "A"" OF DEVICE

8.5

w**x METHOD OF AUTO SIZING %=+

8.5.1

FINDING THE

CONTROL STATUS REGISTER.

WHEN LOOKING FOR THE CSR IT

IS NECESSARY TO TAKE CARE

THAT WHEN A CSR IS FOUND THAT

INDEED A DQ11.

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE.
AN ATTEMPT TO CLEAR THE MISC. REGISTER IS TRIED
[F A TIME-QUT TRAP OCCURES POINTERS ARE UPDATED

THAT

AND ATTEMPTED AGAIN.

IF NO TIME-OUT; THE RECEIVER “ACTIVE BIT"' (BIT 12)
IS SET AND A ~COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE

THE MISC.

A DQ11.

THE

8.5.2

THEY ARE

THERE

INFORMATION IS STORED AWAY.

THIS

ONE SYNC BIT OR TwWO?
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

IS ASSUMED TO EXIST.

8.5.4

THE BB OPTION

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

ONE OR COMBINATION OF BITS ARE SET THE AB OPTION IS ASSUMED
TO EXIST.

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

CABLE?

THE PROGRAM CHECKS

*#**NOTE:CZDQE ONLY**»

TO SEE

EITHER OR BOTH CLEAR 10

SEND
AND CARRIER ARE SET; IF SO THE PROGRAM ASSUMES THE
TEST JUMPER IS ON THE END OF THE CABLE.

8.5.7

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 CHANGED BY ALTERING

BIT 11

IN THE APPRIOATE DQSTXX: AFTER AUTC SIZING

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

8.5.8

08:41

PAGE 11

SET FOR ODD OR EVEN PARITY?
AS ABOVE TOO MUCH HARDWARE IS NEED TO SENSE WHICH PARITY
WAS SELECTED.SO THE PROGRAM ASSEMES ODD PARITY.

NOTE:

8.5.9

THIS CAN BE CHANGED BY ALTERING BIT 9 IN APPRIO-

ATE DQSTXX:

LOCATION.

FINDING THE

VECTOR.

AFTER AUTO SIZING

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

AND LOOKS FOR AN INTERUPT. IF IT INTERUPTS IT IS PICKED
UP AND STORED AWAY. IF NO INTERUPT OCCURES THE PROGRAM

ASSUMES VECTOR =300. THIS PROBLEM WILL BE FIXED IN ONE
OF THE DIAGNOSTICS AND ~AUTO SIZING* SHOULD BE REDONE 7O
GET THE CORRECT VECTOR.

PROGRAM DESCRIPTION

CONTAINED WITHIN LISTING
10.

LISTING
FOLLOWING

SEQ 0010

08:41_

PAGE 12

INTRODUC TION TO DQ11 DIAGNOSCTIC

SEQ 0011

;CZDQHDO/<377>/CHAR
L & INTR
<
:COPYRIGHT 1975, DlGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
REVISED 16-DEC=76 BY R. BLACK
A) SUPPORTS SOF TWARE SWITCH REGISTER

B’§$P59§TS THE DYNAMIC LOADING OF

THE SOF TWARE sw:rcu REGISTER

: START ING +PRGCEDURE

*LOAD ADDRESS‘GDO?OO

(

*LOAD PROGRAM.-

*PRESS START

‘]

*PROGRAM WILL TYPE "'CZDQHD0/<377>/CHAR L & INTR '

‘

;PROGRAM WILL TYPE 'R'' TO INDICATE THAT TESTING HAS STARTED
:AT THE END OF A PASS, PROGRAM UILL rvpe PASS COMRLETE MESSAGE
*AND THEN RESUME TESTING

\ {n

;SWITCH

SW15=100000
SW14=400 00
SW13=200 00
SW12=100 00
SW11=400 0
SW10=2000
SwW09=1000
SW08=400
SW06=100
SW05=40
SW04=20
SW03=10
SwW02=4
SW01=2
SW00=1

:=1,HALT ON ERROR
*=1°L00P ON CURRENT TEST
:=1.INHIBIT ERROR TYPEOUT
=1.DELETE TYPEOUT/BELL ON ERROR.
121 INHIBIT ITERATIONS
*=17ESCAPE TO NEXT TEST ON ERROR
*=1°L00P WITH CURRENT DATA

*=1°L00P ON ERROR

sLOCK ON TEST SELECT

sRESTART PROGRAM AT SELECTED TEST
;RESELECT DQ11 DESIRED ACTIVE

INOTE:

.
'

THIS MUST NOT EXCEED ORIGINAL

COUNT

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

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

558
559

gg?

:REGISTER DEF INITIONS

562
563
564
565
566

000000
000001
000002
000003
000004

RO=%0
R1=X1
R2=%2
R3=%3
R4=%4

:GENERAL
:GENERAL
:GENERAL
;GENERAL
:GENERAL

568

000006

SP=%6

:PROCESSOR STACK POINTER

ggg

000005

000007

2;}
573
574
575
g;g

PC=%X7

:GENERAL REGISTER
:PROGRAM COUNTER

;LOCATION EQUIVALENCIES
177570
177570
177776
001200

g;g
580
581
582
583
584
585

RS5=%5

DSWR=
177570
DLIGHTS=177570
PS=177776
STACK=1200

;HARDWARE SWITCH REGISTER LOC.
;HARDWARE DISPLAY REGISTER LOC.
;PROCESSOR STATUS WORD
;START OF PROCESSOR STACK

;INSTRUCTION DEFINITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046
POPR0=12600
PUSH2SP=24646
POP2SP=22626
.EQUIV
EMT,HLT

;DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
:SAVE RO ON STACK
:RESTORE RO FROM STACK
:DECREMENT STACK TWICE
s INCREMENT STACK TWICE
;BASIC DEFINITICN OF ERRCR CALL

BIT15=100000

BI T10=2000
BIT9=1000
BIT8=400
BIT7=200
O —=NOWN
nhunn
—=NoH =N

567

M1
08:41
PAGE 13
GENERAL DEF INATIONS AND EQUIVALENCIES

;DQ11 OPTIONAL DEF INITIONS

ABB] T=2000
BABIT=10000

B8R T=20000

JUMB] T=40000

SEQ 0012

CZDQH
MACY11 _30A(1052)
CZDQHD.P11
09-JUN-78 07

001000
100000

;JUL*?B

08:41

oDDBIT=1000
SYNBIT=100000
:DQ11

SECONDARY REGISTER DEF INATIONS

RXBA. S=
RXWC.S
TXBA.S

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

TXWC.S=7

000010
000011
000012
000013
000014
000015
000016
000017

PAGE 14
GENERAL DEF INATIONS AND EQUIVALENCIES

CHARDT=10
SYNC.=11
MISC.=12
TX.MUX=13

SEQ.=14

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

: TRANSMITTER BUS ADDRESS PRIMARY.
s TRANSMITTER BUS ADDRESS PRIMARY.

sRECEIVER BUS ADDRESS SECONDARY.
sRECEIVER WORD COUNT SECONDARY.

s TRANSMITTER BUS ADDRESS SECONDARY.

: TRANSMITTER WORD COUNT SECONDARY.
s CHARACTER DETECT REGISTER.
s SYNC REGISTER.
sMISCELLANEOUS REGISTER.

; TRANSMITTER MUX REGISTER.

: SEQUENCE REGISTER.
sRECEIVER BCC REGIS:ER.

; TRANSMITTER BCC REGISTER.

sPOLYNOMIAL REGISTER.

SEQ 0013

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

639

640

22%

643

644
645
646
647
648
649
650
651
652
653
654
655
656
ggg

000024
000026
000030
000032
000034
000036
000046

000052

659
660
661
662
663
664
665

000056
000056
000060
000064

667
668
669
670
671

000072
000074
000102
000110
000114

666

672

673
674

675
676
677
678
679
68C
681
682
683
684
ggg

000066

000116

000122
000124

000132
000134
000136
000142
000144
000146
000150
000154
000156
000162
000164

687

L8R

689

23?

692
693

694

000174

000176

08:41
PAGE 15
TRAPCATCHER FOR UNEXPECTED INTERUPTS

000000

.=0

000024

=24

016222
000340
015672
000340
015640
000340
000046
014420
000052
000

.=46
.=52

SEQ 0014

; TRAPCATCAER FOR ILLEGAL INTERRUPTS
;STANDARD INTERRUPT VECTORS

PFAIL
340
HLT
340
. TRPSRV
40

;POWER FAIL HANDLER

;SERVICE AT LEVEL 7
:ERROR HANDLER

;SERVICE AT LEVEL 7
:GENERAL HANDLER DISPATCH SERVICE

;SERVICE AT LEVEL 7

LOGICAL

sACT HOOKS

000056

.WORD 0
;THIS ROUTINE TRIES TO FORCE THE RECEIVER TO INTERUPT
sTO ITS VECTOR WHERE I7 WILL PICK UP THE STATUS LOCATION
:FOR ITS NEW PC; AND PICK UP AN I OT INSTRUCTION FOR ITS
JNEW PS. WHEN THE NEW PC IS FETCHED AN IOT INSTRUCTION IS
EXECUTED, TRAPPING TO LOCATION 20 WHERE A ROUTINE IS EXECUTED
: Ig6TAKE THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS
.

016120
012721
022021

VECMAP:
1$:
MOV
MOV
CMP

020127
101771
012737
013737
006037
103023

005037

005722
012772

105200
001376
112712
005722
000761
051612
042712
022626
012716
000207

000174

000000

009000

000004

001000
000146
001500
001244

CMP

000020
001244

2%:

177776

000340
000300

000007

BLOS
MOV
MOV
ROR
BCC
CLR

TST
MOV

177776

3$:

4%:

000142
5%:

IN(B
BNE
MOVB
ST
BR
BIS
BIC
CMP
MOV
RT]
RTS

R1,#1000

1%
#4$, an20
DQACTV, TEMP1
TEMP1
5%

(R2)+

#340,2-2(R2)
RO
=2
#300, (R2)
(R2)+
2$
(SP). (R2)
#7,(R2)
(SP)+, (SP)+
#3$, (5P)
PC

sSTART FILLING THE VECTOR AREA

SWITH .+2;

10T (4)
;UPDATE THE POINTERS

s1S ALL FLOATING VECTOR AREA DONE
:BR IF NOT ALL DONE
;SET FOR IOT TRAP 8Y DQ11
:GET THE ACTIVE DQ11 S

:ARE YOU ACTIVE.. DQ11

:IF _CARRY CLEAR.. NO MORE DQ11S
:CLEAR PS
:PUT POINTER TO STATUS TABLE
sTRY AND SET PRI/SEC DONE AND [E
i
DELAY

NO INTERUPT ASSUME 300 FIX IN TEST C

sUPDATE POINTERS
;GO DO IT AGAIN

:ENTERD BY 10T TRAP BY DQ11
;CLEAR UNWANTED BITS
:POP 10T JUNK OFF STACK

sSET RETURN PC ON STACK
.GC HOME.
JALL SIZING IS DONE

sexxxSOFTWARE SWITCH REGISTER#w=x
=174

DISPREG:
SWREG :

;PROGRAM START

000200

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

.=200

;SOFTWARE DISPLAY REGISTER
:SOF TWARE

SWITCH REGISTER

CZDQH
MACY11 30A(1052)
07;JUL-78
CZDQHD.P11
09-Jun-78 07

000200

000137

JMP

.=220

CSRMAP:

001512

#1400,R2

;CLEAR ALL STATUS TABLE
;D0 CLEAR
sALL TABLE DONE
sBR_IF MORE TO GO
sSET NUMBER OF DQ11S TO 0
sSET TABLE POINTER
;GET FIRST FLOATING ADDRESS
;SET FOR TIME OUT TRAP--NO DEVICE=--

+
(R2)
#1512,R2
.~6

000614
000012
000006
010000
030000

458, a6
#12.5(R1)

#160000,R1

000005

6(R1)

#10000, (R1)

Szoooo.6<n1>
R1,{R2)+

100000

#SYNBIT, (R2)

(R1)
#10,5(R1)

000005
000006

#-1,6(R1)

6(R1)
+6

000005
00000¢
~,

#ABBIT,

(R2)

#1400, 2(R1)

000002
000002

c1goo.2<n1>
=

#BABIT, (R2)
032000.2(!?1)

000002

#JUMBIT, (R2)
#ACTBIT, (R2)

88 3% £8

#0DDBIT, (R2)
(R2)+
(R1)

88 88 88

WN—=O
VNV

;GO TO START OF PROGRAM

DQNUM
#1400 ,R2

160000

2(R1)
2(R1)

4(RY)

2%:

3%:

SEQ 0015

.START

001504
001400

000010
177777
000006

PAGE 16
ROUTINES USED FOR AUTO SIZING.

001512
001400

RGNS AN 3RIRIR

08: 41

6(R1)
DQNUM

#10,R1
#164000,R1
1$

DeA(TY
DQACTV

sTRY AND SEL MISC REGISTER

:TRY AND CLEAR MISC REG

sTRY 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
;CLEAR DQ ACTIVE BIT
sSEL CHAR DET REGISTER
;WRITE INTO CHAR DET REG
;WAS THE REGISTER WRITTEN?
+APPERENTLY NO B8 OPTION.
:SET FOR BB OPTION
+SEL POLYNO. REGISTER
;WRITE POLYNO.REGISTER
;WAS REG WRITTEN??
;BR _IF NO AB OPTION
sSET FOR AB OPTION

;TRY TO SET

.DTR.

.RS.

;DID ANY OF THEM SET
sBR _IF NO BA OPTION
sSET FOR BA OPTION
;DID .CS. .CO. SET
;BR_IF NO JUMPER
;SET FOR JUMPER
sSET FOR ACTIVE ON FIRST NON-SYNC
sSET FOR ODD VRC.......
:POP POINTER
:CLEAR RCSR
:CLEAR TCSR
:CLEAR AGAIN
:CLEAR ERROR REG
:CLEAR SEC REG

;UPDATE NUMBER OF DQ11S
sUFDATE CSR POINTER BY 10 (8)
JHAVE ALL FLOATING ADDRESSES BEEN CHECKED??
sBR IF NOT ALL DONE
sZERO ACTIVE DQ11S
;WERE ANY DQ11S FOUND
JHEY BUDDY. NO DQ11S FOUND IN SYSTEM
sSAVE NUMBER OF DQ11S
;SAVE NUMBER FOR ACT11
:CLEAR CARRY
:

;SETTBI

?C(T)IVE ADDRESS

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

08:41

MOV
MOV

MOV

4%:

000466

5%:

055103
177460
046040
052116

MTITLE:

.=1000

001200

.=1200

177570
177570
177560

SWR :
LIGHTS:

177562
177564
177566

TKCSR:

TKDBR:
TPCSR:
TPDBR:

R1
3$
6, N
DOACTV SAVACT

w22

TYPE

SEQ 0016

LOCK:
"ICOUNT:
LPCNT:

TSTNO:
PASCNT
:
ERRCNT:

LSTERR:

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

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

MOv

=
#2%, (SP)

.ASCiZ

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

;INDIRECT POINTERS
177570
177570

;SWITCH REGISTER POINTER
;DISPLAY REGISTER POINTER

177562
177564
177566

;TELETYPE KEYBOARD DATA BUFFER
s TELEPRINTER CONTROL REGISTER
s TELEPRINTER DATA BUFFER

177560

sTELETYPE KEYBOARD CONTROL REGISTER

PARAMETERS

OQOOOOWOOO

RETURN:
NEXT:

;DEC NUMBER OF DQ11S
*BR IF MORE TO GO
RESEY TIME OUT VECTOR
;sSAVE ACTIVE
“LET 10T TRAP PRIO: TO 7

;TYPE MESSAGE

;PROGRAM CONTRCL

;SCOPE ADDRESS FOR LOOP ON TEST
sADDRESS OF NEXT TEST TO BE EXECUTED
sADDRESS FOR LOCK ON CURRENT DATA
;NUMBER
NUMBER
NUMBER
NUMBER

OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
OF ITEREATIONS COMPLETED
OF TEST IN PROGRESS
OF PASSES COMPLETED

TOTAL NUMBER OF

ERRORS

;PC OF LAST ERROR CALL

CHAR1:
CHARZ:
CHAR3:

elelolelelsle)

;PROGRAWM VARIABLES

TMm

000000
000000
000000
000003
000000
000000
000000
000000
000000

ROUTINES USED FOR AUTO SIZING.

DEC
BNE

051101
044440
000377

PAGE 17

; TEMPORARY STORAGE

: TEMPORARY STORAGE

000000

PAGE 18

PROGRAM PARAMETERS,

TEMPS:

SAVRO:

SAVR1:

SAVRZ:
SAVR3:
SAVRS:
SAVRS:

SAVSP:
SAVP(:
SAVNUM:
CREAM:

RUNFLG:
RUN:
:
RUNCNT

lolelelelelolelelels]

001254
001256
001260

08:41

_BLkW

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

VARIABLES, AND TRAP CALLS.

; TEMPORARY STORAGE

;RO STORAGE

;R1 STORAGE

;R2 STORAGE
;R3 STORAGE
;R4 STORAGE

;R5 STORAGE

;STACK POINTER STORAGE
;PROGRAM COUNTER STORAGE
1

SEQ 0017

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

08:41

PAGE 19

PROGRAM PARAMETERS,

VARIABLES, AND

SEQ 0018

TRAP CALLS.

WhN =O

—

)

8888

;PROGRAM CONTROL FLAGS

INIFLG:
STFLG:
ERRFLG:
LOKFLG:
$v=0

.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
O

;PROGRAM INITIALIZATION FLAG

sTEST START FLAG

;ERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG

;DEFINITIONS FOR TRAP SUBROUTINE CALLS

sPOINTERS TO SUBROUTINES CAN BE FOUND

:IN THE TABLE IMMEDIATLY FOLLOWING THE DEF INITIONS
SRR

MLA ALA

AR RAR AR R A AR AR AR

AL ALALA

ARl

.TRPTAR:

SCOP1=TRAP+1

s CALL TO LOOP ON CURRENT DATA HANDLER

TYPE= TRAP;Z
YPE

sCALL

INSTR=TRAP+3
.INSTR
INSTER=TRAP04

104411

104412

013032
104413

012706
104414

016320
104415

016374

T0 TELETYPE OUTPUT ROUTINE

s CALL T0 ASCII STRING INPUT ROUTINE
s CALL

INPUT ERROR HANDLER

.INSTER
PARAM=TRAP+5
.PARAM

s CALL TO NUMERICAL DATA INPUT ROUTINE

.SAV0S
RESOS5=TRAP+7
.RESOS

s CALL TO REGISTER RESTORE ROUTINE

. CONVRT
CNVRT=TRAP+11
.CNVRT

; CALL

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

s CALL

T0 ISSUE MASTER CLEAR

SAVOS=TRAP+6

015416

AR RARARRRARRA
AR
TR AR R AR AR R
AR R hR

s CALL T0 SCOPE LOOP AND ITERATION HANDLER

.SCOP1

104410

R AN RRT

SCOPE=TRAP+0

. SCOPE

015412

Al ARl it

CONVRT=TRAP+1)

MSTCLR= TRAP012
.MSTCLR

s CALL

Tc REGISTER SAVE ROUTINE

s CALL T0 DATA OUTPUT ROUTINE

HEHCLR=7RAP¢13

s CALL T0 CLEAR ALL SCRAT(CH PAD MEMORIES

CKSWR=TRAP+14

s CALL TO ALLOW SWREG TO BE LOADED FROM TTY

.MEMCLR

.CKSWR
CNTLU=TRAP+15
.CNTLU

s CALL TO ALLOW LOADING OF

SWREG FROM TTY

:t'.'.ttQQ...""Qt.t'.t..t".'.fi'.."l'.fi.t'..lit.'t.'..'.!'.".Q"t
.'.t..ttt'tttt'..t....t."'t".'.'t".'.t.t.it'.t'fi'.'t't..t‘t..t."t'

;DQ11 VECTOR AND REGISTER INDIRECT POINTERS

000000
000000

DQRVEC:
DORLVL:
DQTVEC:
parLve:
DCRCSR:
DQR(SH:

0O
0
0
Q
0
O

sPOINTER
;POINTER
;POINTER
;POINTER
sPOINTER
sPOINTER

TO
TO
TO
TO
TO
7O

DQ11
DQ11
DQG11
DQ11
DQ11
HIGH

RECEIVER INTERRUPT VECTOR
RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
RECEIVER CONTROL REGISTER
BYTE OF DQ11 RECEIVER CONTROL REGISTER

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

877
878
879
880
881

001364
001366
001379
001372
001374

000000
000000
000000
000000
000000

DATCSR:
DQERR:
DOREG:
DASEC:
DASECH:

385

0
0
0
0
0

;POINTER
*POINTER
*POINTER
*POINTER
*POINTER

SEQ 0019

TO DQ11 TRANSMITTER CONTROL REGISTER
TO DQ11 ERROR REGISTER
TO HIGH BYTE OF ERROR REGISTER
TO DQ11 SECONDARY REGISTER
TO HIGH BYTE OF DQ11 SECONDARY REGISTER

:DQ11 STATUS TABLE AND ADDRESS ASSIGNMENTS

887
888
889
890
891
892
893
8%
895
8%
897
898
895
900
901
902
903

001400
001402
001404
001406
001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434
001436

001400
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000007
000001
000001

.=1400
DACRO0:
DASTO0:
DACRO1:
DOSTO1:
DACRO2:
DAST02:
DQCRO3:
DASTO3:
DOCRO4:
DQSTO4:
DOCROS:
DAST05:
DACRO6:
DASTO6:
DACRO7:
DQSTO7:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

;CONTROL STATUS REGISTER FOR DEVICE NO: 00
*VECTOR AND CONFIGURATION STATUS FOR DEVICE
*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 CONFIGURATION 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 CONFIGURATION STATUS FOR DEVICE

905
906
907
908
909

001442
001444
001446
001450
001452

000007
0000017
000001
000001
000001

DOST10:
DOCR11:
DAST11:
DQCR12:
DAST12:

.3LKW
.BLKW
.BLKW
.BLKW
.BLKW

1
1
1
1
1

*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 10
*CONTROL STATUS REGISTER FOR DEVICE NO: 11
VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 11
CONTROL STATUS REGISTER FOR DEVICE NO: 12
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 12

904

910
911
912

913
914
915

916
917
918
919
920
921
922

923
924

08:41
PAGE 20
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

907

001440

001454
001456
001460

001462
001464
001466

001470
001472
001474
001476
001500
001502
001504

001506
001510

000007

000001
000001
000001

000001
000001
000001
000001

000001

000001
000001
000001
000001
000001
000001
000001

DOCR10:

DACR13:
DOST13:
DQCR1%:

DAST14:
DACR1S:
DAST15:

DOCR16:
DAST16:
DACR17:
DAST17:
DOACTV:
SAVACT:
DONUM:

DOCSR:
DASTAT:

.BLKW

.BLKW
.BLKW
.BLKW

-BLKW
.BLKW
.BLKW
.BLKW

.BLKW

.BLKW
BLKW
.BLKW
.BLKW
BLKW
.BLKW
'BikW

1
1
1

1
1
1
1
1
1
1

1
1

*CONTROL STATUS REGISTER FOR DEVICE NO:

NO:
NO: 01

NO: 02
NO: 03

NO: 04
NO: 05
NO: 06

NO: 07

CONTROL STATUS REGISTER FOR DEVICE NO: 13
VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
*CONTROL STATUS REGISTER FOR DEVICE NO: 14

VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
CONTROL STATUS REGISTER FOR DEVICE NO: 15
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:

*CONTROL STATUS REGISTER FOR DEVICE NO: 16
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
CONTROL STATUS REGISTER FOR DEVICE NO: 17
*VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
MOLD ACTIVE BITS FOR TESTING
“SAVE NUMBER OF ACTIVE DQ11S
;
OCTAL NUMBER OF TOTAL NUMBER OD DQ11S

14
15
16

“CSR OF DQ11 UNDER TEST
VECTOR AND CONF IGURATION STATUS OF D@11 UNDER TEST

:PROGRAM INITIAL1ZATION

LOCK OUT INTERRUPTS

:SET UP PROCESSOR STACK

SET UP POWER FAIL VECTOR
CLEAR PROGRAM CONTROL FLAGS AND COUNIS
STYPE TITLE MESSAGE

CZDQH
MACY11 30A(1052)
_07-JuL-78
CZDQHD.P11
09=JUN-78 07:59
933
93,
935

001512
001520
001524

012737
012706
012737

000340
001200
016222

937
938
939
90

001540
001544
001550
001554

105037
005037
105037
005037

001311
001230
001312
001302

936

9%1
%2

001532

013737

001560
001566
001572
001576
001604

012737
005037

001612
001620
001626
001632

012737
012737
013746
013746

952
953
954
955
956
957

001644
001652
001654
001656
001660
001666

022777
001402
000407
022626
012737
012737

959
960
961

001700
001704
001710

012637
005737
001014

001712
001716
001720
001724
001730
001736
001740

105737
001035
104402
105137
022737
001001
104415

9%3
9%4
9%5
%6
97
9%8
%9
950

951

958

962
93
94
965
966
967
968
969

970
971
972
973
974
975

976
977
978
979

980

981
)82
983
984
985
986
987
988

001636

001674

001742
001746
001750
001754
001760
001766

001774
001776
002000
002002

002010

002012
002020
002022
002024
002026
002030
002032
002034

005037
012737
012737

012737

012637

105777
100402
004737
104402
012737
017737

001406
104410
017076
062737

000766

032777
001424
104402
014771
005000
000000
104414
027737

001504

001400
001232

001234
000001
001512

H 2
08:41
PAGE 21
PROGRAM INITIALIZATION AND START UP.

177776

000024

001276

177777

177326

001656

000004

000176
000174

.
001200
001202

000006
000042

001310
001600
001310
000176

001200

177232

001244
001246

000002

001244

000001

177160

177140

001502

:CLEAR START FLAG
*CLEAR PASS COUNT
*CLEAR ERROR FLAG

(LR
MOV
MOV

STFLG
PASCNT
ERRFLG
RUNFL
G
#1400, CREAM
ERRCNT
LSTERR
#1,TSTNO
#.START ,RE TURN

MOV
MOV
MOV
MOV

#DSWR , SWR
#DLIGHTS L IGHTS
a6, = (SP)
G - (SP)

MOV
CLR

MOV

645%:
65%:

66%:

DQNUM, SAVNUM

#64$, anG

CMP
BEQ
BR
CMP
MOV
MOV

#-1,3SWR
65%
66%
(SP)+,(SP)+
#SWREG, SWR
#D1SPREG,L IGHTS

MOV
ST
BNF

(SP)+.aké
G2
67%

ISTB
BM]

@aSWR
.+6

MOV

(SP)+,ané,

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

:SET UP FOR TIMEOUT

;REFERENCE HARDWARE SWITCH REGISTER
;ADJUST STACK
JPOINT TO SOF TWARE SWITCH REG
*POINT TO SOFT DISPLAY REG

*RESTORE VECTORS
:UNDER MONITOR

;iewwnxnaTHE NEXT 4 LINES OF CODE MOVED TG SOLVE PRA2757 (JUNE 78)xasnws
TSTR
INIFLG
JHAS INITIALIZATION BEEN PERFORMED?
BNE
128
*IF YES, BR
TYPE
MTITLE
“TYPE TITLE MESSAGE
COMB
INIFLG
:IF NOT SET FLAG AND INIT
CMP
#SWRE G , SWR
:1S SWREG USED
BNE
67%
CNTLU

67%

000220
017050
001400
177252

:LOCK OUT INTERRUPTS
“SET UP STACK
*SET UP POWER FAIL VECTOR

CLRB
CLR
CLRB
CLR

001226
001214
001200
001202

#340,PS
#STACK, SP
#.PFAIL, w24

MOV

0G1200

17757C
177570
000006
000004

000004

.START: MOV
MOV
MOV

SEQ 0020

JSR
TYPE
MOV
MOV
BEQ
CONVRT
XSTATQ
ADD

12%:

B8R

BIT
BEQ
TYPE
MNE
W
(LR
HALT
(KSWR
¢

PC, CSRMAP
,XHEAD
#1400, TEMPT
ATEMPT, TEMP?
+16
22 TEMP1

=02

#5400, aSWR
18
RO

aSWR, SAVALT

CZ0QH

MACY11 30A{1052)

CZDQHD.P11
989

990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
}88‘50

002042

002044
002046
002050
002052
002054
002062
002066
002070
002072
002076
002102
002104
002106
002110
002114

07-JuL-78

09-JUN-78 07:59

08:41

BLOS

177120
001500

001500

9000300
000302

11%:

$:
2%:

001000

}%(7)
1008
1009
1010
1011
1012

1013
1014
1015
1016
1017
1018
1019
1020

002116
002124
002130
002134
002136

012737
012706
005737
001040
104414

032777
001411
104402
012737
012737
000406
013737
013737

002214
002216
002220
002222
002224
002226
002230

001410
104403
016656
104405
002254
012040
001214

002234
002236
002244
002250

000403
012737
104402
000177

1037
1038
1039
1040
1041

002254
002262
002270
002276
002302

012737
012737
012737
105737
001010

1043
1044

002312
002320

1022
1023
1024
1025
1026
1027
1028

1029

103C
1031
1032
1033
1034
1035

002206

002232
002233

032777

000340
001200
000042

177776

000004

177032

016670
000240
000240

014504
014506

014602

014504

18%:

000002

176764

2%:

014604

014506

001
001

TYPE
MERR3
HALT
BR
MOV
MOV
HALT
CKSWR
MOV
MOV
MoV
CLR
(MP
CMP
BNE

.BEGIN: MOV
MOV
TST
BNE
CKSWR

BIT
BEQ
TYPE
MOV
MOV
BR
MOV
MOV

BIT

BYTE
BYTE
002254
016560
176740

001214

3%:
4%:
;

10“

1042

SEQ 0021

M
aSWR,DQACTV
DQACTV,RO
#300,R0
#302,R1
R1,(RO;
+
(R1)+
(RO)+, (R1)+
#1000,R0

;TEST START AND RESTART

002140
002146
002150
002154
002162
002170
002172
002200

1021

PROGRAM INITIALIZATION AND START UP.

101404

104402
016€32
Q00000
000776
017737
013700
000000
104414
012700
012701
010120
005021
022021
022700
001372

PAGE 22

#340,PS
#STACK,SP
ael
3s

sLOCK OUT INTERRUPTS
sSET UP STACK
;IS PROGRAM UNDER MONITOR CONTROL

#BI1T2,aSWR
1%
MLOCK
ANOP,TTST
#NOP,TTST+2
2%
BRW,TTST
BRX,TTST+2

;CHECK FOR LOCK ON TEST

;CHECK FOR <*G>

;SET UP TO LOCK

;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

#5w01,aSWR

;IF

2
#TST1,RETURN
MR
aRETURN

sSTART AT TEST 1
;TYPE R
sSTART TESTING

BEQ
3%
INSTR
MTSTPC
PARAM
TST1
TLAST
#RE TURN

SWO1=1, GET STARTING PC

1
1

BR
MOV
TYPE
JMP
TEST 1

."!'Qt"'t..t.‘t'.'.‘t""."fi..'t'l.."'...t.'.t‘...'.t..".'...'t.'

002304

012737

012737
105137

1
002644

002644
001302
000001

000020
(01302

001226
001214
001216
001304

001306

TST1:

MOV
MOV

MOV
TSTB
BNE
MOV

MOV
COMB

#1,TSTNO
#TST2 ,RETURN

#TST2 NEXT
RUNFLG
%
#8170 ,RUN

#.5, RUNCNT
RUNFLG

s1S THIS MY FIRST TIME HERE?
sBR IF FLAG IS SET

:SET RUN POINTER,

sSET FOR MAX OF
JSET RUN FLAG

16 DQ11'S PER SYSTEM

CZDQH
MACY11 _30A(1052)
07-JuL-78
CZDQHD.P1N
09-JUN-78 07:59

033737

001304

08: 41

001500

001304
000004
001306

001300

000020
001400
000001

001306
001300
001304

1%:

BIT

BNE
TST
BEQ
cCC
ROL
ADD

DEC
BNE

MOV
MOV
MOV
BR

RUN,DQACTV

sFIND AN ACTIVE DQ11 TO TEST.

DQACTV

*FIND OUT IF THERE ARE NO DQ11 ACTIVE.

RUN
#4 , CREAM
RUNCNT
1%
#16. ,RUNCNT

#1400, CREAM

f}'"“"

MERRZ2

NNNNNY

oo~

HALT

176632
000002
001506
001510
177007

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

RUN

001506
001300
001510
001300
001360
001350
001350

aCREAM,DQCSR
#2,CREAM
aCREAM,DQSTAT
#2 ., CREAM
DQCSR,DQRCSR
DQSTAT ,DQRVEC

#177007 ,DQRVE C

001352
001352
001354
001354
001356
001356
001362

001364
001364
001366
001356
001370
001372
001374

INC

DQRVEC
, DQRL VL
#2 ,DARL
VL
DQRLVL ,DQTVEC
#2,DQTVEC
DQTVEC,DATLVL
#2.,DQTLVL
DORCSR, DQRC SH
DQRCSH
DQRCSR,DQTCSR
#2.,DQTCSR
DQTCSR,DQERR
#2 .DOERR
DQERR,DQREG
DOREG
DQREG,DQSEC
DQSEC
DQSEC ,DQSECH
DQSECH

;BR IF I FOUND ONE TO TEST.

‘BR TO FATAL ERROR. WHY AM | HERE IF NO ACTIVE DQ11°'S2??
*CLEAR ALL THE CONDITION CODES OF CPU
sUPDATE RUN POINTER
sUPDATE ADDRESS POINTER.
;DEC NUMBER OF TIMES I LOOKED AT ACTIVE.
;BR AND KEEP LOOKING.
sSTART RESTORING MY POINTERS.
JRESTORE ADDRESS POINTER

sRESTORE RUN POINTER.

;KEEP ON TESTING.
;ALLERT OPERATOR OF FATAL ERROR
sNO DQ11 ACTIVE. WHY AM | HERE???
2YOU MUST RELOAD DQ11 DIAGNOSTIC!!
sSTICK HERE ON CONT.
sCLEAR CPU COND. CODES
sUPDATE RUN. ACTIVE DQ11 FOUND.
sPLACE _ADDRESSS OF DQ11 AT DQCSR
sUPDATE ADDRESS POINTER.
sPLACE STATUS OF DQ11 AT DQSTAT
sUPDATE ADDRESS POINTER

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

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

+GENERATE ADDRESS OF HIGH BYTE

D
D d e e
D
- ad

;DQ1T HELL RAISER!!!
sTHIS TEST WILL EXERCISE:
;DQ11 RECEIVER AND TRANSMITTER INTERUPTS
JENTER T AND EXIT T (IF AB OPTION INSTALLED)
sVRC

sTHE CA3SLE AND TURN ARCUND
s CHARACTER

TRANSFERS.

TRANSMITTER INTERRUPT SERVICE PS

:GENERATE ADDRESS OF HIGH BYTE
s GENERATE ADDRESS OF TRANSMITTER CONTROL REGISTER

D e

)

—_ -

) i

h i

&
8 3333 3 RIITRERRRRER &83 S3[oleleleolelele]
FARANIS § FERERE g

TYPE

001304
176646
000002

SEQ 0022

PROGRAM INITIALIZATION AND START UP.

(DATA ONLY)

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

g 2
08:41
PAGE 24
PROGRAM INITIALIZATION AND START UP.

1101

1102

1103
1104

002644
002652

012737
012737

000002
002734

001226
001214

1106

002666

012737

003756

001216

1109
1110
1111
1112

002674
002702
002704
002712

032737
001006
112737
005037

100000

001510

000377
013656

013052

1114

002720

112737

000026

013052

1116
1117
1118
1119
1120
1121
1122
1123
1126
1125
1126

002734
002736
002742
002746
002752
002756
002764
002770
002776
003002
003010

104413
005037
005037
005037
105077
012777
105277
012777
105277
012777
105277

014302
014274
177776
176412
013256
176400
177600
176366
013052
176354

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

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

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

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

176252
001510

052777
112777

000010
000017

176234
176224

1105

‘Hgg

1113

1115

;

1127

1141

1142
1143

002660

012737

002716

000406

002726

012737

003014

003126

003130
003136

012777

001003

000036

013026

177576

}}2§

003144

012777

1146

003152

012700

1148
1149
1150
1151
11s§
1153
1154

003162
003164
003166
003170
003174
003176
003200

110320
105303
001375
012700
005003
110320
105203

013662

1156

003204

012777

003502

1147

1155

003156

003202

012703

100375

123456

TEST 2

Aiis 2222222232222

TST2:

001222

013656

176406

MOV

1%:
2%:

SETON:

176362

176350

#2,TSTNO
#2$
,RE TURN

#30. , ICOUNT

#TSTS NEXT

BIT
BNE
MOVB
CLR

#SYNBIT ,DQSTAT
1%
#377,SYNC
XSYNC

MOVB

#26,SYNC

MOV

176324
176312

176300
176270
176264

013054

1%:

2%:

*CONT.

#13026,XSYNC

:SAME FOR DBL SYNC

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

INCB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
MOVB
MOV
INCB
MOV
BIT

@DOREG
#XRXBUF ,@DQSEC
@DOREG
#-200,aDQSEC
@DOREG
#XTXBUF ,aDQSEC
aDOREG
#-200,3DQSEC
#11,aDQREG
.SYNC,aDQSEC
@DOREG
#104000,aDQSEC
#JUMBIT ,DQSTAT

*SEL THE RX BA SEC
:LOAD RX BA SEC
*SEL RX WC SEC
;SET FOR 200(8) CHARS
*SEL THE TX BA SEC
:LOAD IT
*SEL THE TX WC SEC
-SET FOR 200 CHARS
“SEL THE SYNC REGISTER
:LOAD SYNCS
*SEL THE MISC REGISTER
;SET 8 BITS PER CHAR AND VRC ENABLL.
;IS JUMPER AT END OF CABLE?

BIS
MOVB

#]1T3,aDQSEC
#17,3DOREG

#-202,3LASEC

*CLEAR ALL REGISTERS GIVE MSTCLR
*ZERO POINTER

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

.+10

‘BR IF

MOV

#12%456,3DQSEC

:SET PLOYNOMIAL
.

MOV

#TXBFA RO

sSTART TO FILL, TX BUFFERS

MOVB
DECB
BNE
MOV
CLR
MOVB
INC(B

R3,(RO)+
R3
1%
#XTXBUF
RO
R3
R3,(RO)+
R3

MOV

8PL

MOV

#177.R$

;144D

sLOAD FOR TWO SYNC

GDCHAR
CHAR
PS
@DOREG
#RXBUFF ,aDQSEC
@DOREG
#-200,aDQSEC
@DOREG
#SYNC,aDQSEC
@DOREG

BNE

176220

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

MEMCLR
CLR
CLR
CLR
CLRB
MOV
INCB
MOV
INCB
MOV
INCB

MOV

176336

176136

3323233233333 3333232323223 233232233232322223222322223222323

;ADJUST SYNC CHARACTERS.

176374

000177

MOV
MOV

SEQ 0023

YES

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

SCOUNTER

;PRIMARY ]S BINARY COUNT BACKWARDS.
*DONE?
*NO
:SET SEC BUFFER
7
3
!
:SECONDARY IS BINARY COUNT
*DONE?

#RXISR,@DARVEC

:INO

+SET RECEIVER INTERUPT PQINTER

’.’

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

1159

003226

1161

003242

1163

003254

1165

003270

1160 -00323%

012777

11624« 003250

005037

1164

012737

1166

003262

003276

000240

176122

000051

001250

149777

000017

176072

001252

176066

1167 003302. 005777 176064

1168
1169

003306
003312

105277
005337

176056
001252

1171

003320

005237

001216 -

1170 003316 001367

1172

003324

001356

003330

000754

1173
1174

003326

1176

003332

1175

104005 ‘.
104400

(

1181

1182

1183

1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
119,
1195
1196
1197
1198
1199

100001

003346

032777

003344

104004

003354
003356
003364

001425
112_777
042777

003400
003404
003412
003420

105277
152777
012777
142777

003372

012777

000004

176010

000002
000200
013054
175764
000120
177600
000017

176004
175772
175772

003426
003430
003436
003444
003452
003456
003464
003472

003500

000002
042777
112777
012777
105277
152777
012777
142777

000100
000006
013662
175712
000060
177600
000017

1202
1203

003502
003502

005037

001246

1205
1206

003514
003516

100001
104004

1208

003520

032777

003530
003536
003542

042777
105077
012777

000002

1204 003506 017737 175654

1207
1209

1210
1211
1212

003526

001426

175756
175752
175742

175726
175724
175720

175704
175700
175670

1$:

2%:

RXISR:

-TEMP2

_#75.,TEMP3

T#16.. TEMP4
@DOREG

INCB
DEC

aDQREG
TEMP4

aDASEC
38

TEMP2

.‘SET NUMBER OF INTERUPTS WANTED
*SET FOR 16 REGISTERS

*SIT HERE AND MAKF WAVES
BT 2T o AT AT LY N A AT AT 27 2
R 27 27 27 27 27 27 27 2 2 27 27 2

* SAME

JUPDATE COUNTER
*KEEP GOING

;RX FAILED TO CONTINUSLY INTERUPT
sxxxx*STRONGLY SUGGEST SW08=1 (GOTO TOP OF
JKEEP IT GOINSG.
*SCOPE THIS TEST......

A 3

MOV

aDQERR. ERR

;ANY ERRORS

HLT

;DQ11 ERROR FLAG IS SET.

BIT

#B172,aDQTCSR

BEQ
MOVB
BIC
MOV
INCB
BISB
MOV
BICB
RTI
BIC
MOVB
MOV
INCB
BISB
MOV
BICB

1$
BR IF SEC NEEDS SERVICE
#2.,aDQREG
;SEL TX BA PRI
#IT7,aDQATCSR
JCLEAR TX PRI DONE.
#TXBFA,aDQSEC
JLOAD THE TX BA PRI
aDQREG
JSEL THE TX WC PRI.
#BIT6+BIT4,aDAREG
;SET WRITE EN. AND ENTER T
#-200,aDQSEC
:LOAD TX WC PRI.
#17.3DOREG
*CLEA
REG POINTER.
R
YEXIT
STAGE RIGHT
#B1T6.aDATCSR
-CLEAR TX SEC DONE
#6,aDOREG
“SEL THE TX BA PRI.
#XTXBUF ,aDQSEC
:LOAD THE TX BA SEC
@DOREG
“SEL THE TX WC SEC
#BIT5+BIT4,aDOREG
;SET WRITE EN. AND EXIT T
#-200, aDASEC
:LOAD THE TX WC SEC
817 ODQREG
:CLEAR REG POINTER

SCOPE

BPL

RTI]

CLR

Jxxxx*STRONGLY SUGGEST SW08=1

(GOTO TOP OF TEST OF ERROR

:U'JO SHOULD I SERVICE PRI OR SEC?

STAGE LEFT.

TEMP?2

JLET TIMER KNOW THAT RX INTERUPTED

e
i

‘BR IF NO
D@11 ERROR FLAG SET!'!!

BIT

#B1T2,3DORCSR

-WHO SERVICE

BIC
CLRB
MOV

#B177,3DORCSR
a@c7REC
#RXBUFF ,@DQSEC

MOV

aDQERR., ERR

000004

175632

000200
175626
013286

175622

L
LT

BFQ

TEST OF ERROR

BR IF NO

JEXIT

014266

175622

;SET TIMER

‘WHILE INTERUPTS GCCUR

TSTB *

HLT

ENDTS2:

;SET RX GO AND IE

TST

BNE

-SET PRIO TO 5

*SEL RX BA PRI.

INC

¢
&

#240,8DQTLVL

BICB . ~#17.8DAREG

BNE

1178

003342

MOV

:SET PRIO: TO §

#BITS+BIT3+BIT0,aDATCSR -SET TX GO AND IE AND ERROR IE

CLR

4$:

SEQ 0024

#240.3DQRLVL

#81T5+8170,3DQRCSR

MOV

1179 003334 017737 176026 014266 TXISR:
1180

#TXISR,aDATVEC -SET TX VECTOR

MOV

000113

000020

MOV

176114

001246

MOV

176116

012737
105777

—

176126

000041

08:41
PAGE 25
PROGRAM INITIALIZATION AND START UP.

F o117 003212 012777 000240 176132

,.{» 1158 003220 012777 003334

—

*ANY ERRORS

JaxxxxSTRONGLY SUGGEST SWO8=1
PRI OR SEC

BR IF SEC NEEDS SERVICE

-CLEAR RX PRI. DONE
*SEL RX BA PRI.
-LOAD IT

(GOTO TOP OF TEST OF ERROR

Y
B

= S

N Y

il axd el

—

AN IaS I 1N [ W1, 1,8 )
&)&NNNNNNNNNNNNNN INSIASIASIASIAS
o0
SRR RS VOO
NS W

axid asld

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

105277
152777

012777
012701
012702
000137
042777
112777
012777
105277
152777
012777
012701
012702
012700

142711
142712
122122
001414
112777

052777

114137
114237
104003

175614
000120

177600
073054
013256
003656
000100
000004
014064
175536
000060
177600
013662
014064
200

08:41

000012

000002

014302
014274

142777

000002

1$:
2%:

175530

175524

3$:

4$:

175464

175460

122122

005300
001354
005337
001003
5
012716

INCB
BISB

175602

000200
000200

5%:
175414

BICB
BI(B
CMPB
BEQ
mMOovB

BIS

001250
003332

MOV
MOV
MOV
JMP
BIC
MGvB
MOV
INCB
BISB
MOV
MOV
MOV
MOV

MOVB
MOvVB
HLT

7%:

000017

SEQ 0025

PROGRAM INITIALIZATION AND START UP.

175606

175546
175550
175544

PAGE 26

6%:

CMPB

DEC
BNE

DEC
BNE
RESET
MOV

BI(B

RTI

aDQREG

;SEL THE RX WC PRI.
#B1T6+B1T4 ,aDOREG
sSET WRITE EN. AND ENTER T
#-200,aDQSEC
:LOAD RX WC SEC

HTXBFA,R1

§§XBUFF.R2

:PREPARE TO CHECK DATA.
sSET RX POINTER

SET TX POINTER

:GO_AND CHECK DATA
;CLEAR RX SEC DONE
#4 ,aDAREG
:SEL RX BA SEC
#XRXBUF,aDQSEC
:LOAD IT
aDQREG
:SEL THE RX WC SEC
#B1T5+B1T4,aDAREG
;SET WRITE EN. AND EXIT T
#-200,aDQSEC
;WRITE RX WC SEC

#BIT6,aDQRCSR

#XTXBUF ,R1
#XRXBUF .R2

#200,R0

#BIT7,(R1)
#BIT7. (R2)

(R1)+. (R2) +
7%
#12 ,aDQREG
#B1T1,aDQSEC
=(R1) ,GDCHAR
;(R?),CHAR
(R1)+,(R2)+
RO
4%
TEMP3

#ENDTSZ2, (SP)
#17 ,aDQREG

:GET TX BUFFER POINTER
sGET RX POINTER
sGET NUMBER OF CHARS
s CLEAR VRC

sCLEAR VRC
;DATA 0OK?
:BR IF YES
;SEL MISC REG
;STOP_THE DQ11

CLOCK.

:STORE GOOD CHAR
:STORE BAD CHAR.
;DATA COMPARE ERROR

sxx***STRONGLY SUGGEST SWC8=1
sPOP POINTERS

sALL DATA CHECKED?
:BR IF NO
sALL INTERUPTS DONE?
sNO KEEP INTERUPTING
:STOP THE SHOW CLEAR THE WORLD

sSET FOR END TEST RETURN
:EkE?R REG POINTER
STAGE MIDDLE

(GOTO TOP OF

TEST OF ERROR

CZDQH

MACY11

CZDQHD.P11

30A(1052)

07=JUL-78

09-JUN~78 07:59

08:41

PAGE 27

SEQ 0026

PROGRAM INITIALIZATION AND START UP.

1533
1250

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

}%gz

;DATA CHECKING WILL BE PERFORMED!

1251
1252

:THIS TEST WILL XMIT AND RECV CHARACTERS
:AT 2 BITS/PER/CHAR.

1255

1256

1257
1258
1259
1260
1261
1262

003756
003764
003772
003774
004000
004002

012737
012737
104413
012700
005001
005020

1264
1265

004006
004010

100375
112777

1267

004024

1269

004040

1263

1266

1268

1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280

1281

004004

004032

143737

012370

004124

1286
1287
1288
1289
1290
1291
1292

1293

1295
1296
1297
1298
1299
1300
1301
1302
1303

105201

012737
005737

100003
000241
106037
143737
000241
106037
013737
013737
013777
105277
012777

012700

177774

001510

001246
012370

001247

001246
001246
001246

175252
000010

000016

000300
050077
052777

175234
000002

004152
004156
004164
004170
004176
004202
004210

105077
012777
105277
012777
105277
012777
105277

175212
013256
175200
177734
175166
012374
175154

004222

005277

004144

004214

004226
232
234
004240
004242
004246
004250
252
004256

042777

012777

005277
005005
105777
100404
062705
001372
104001
012700
012701

TST3:

5%:

013737

004044
004046
004050
004054
004062
004064
004070
004076
004104
004112
004116

001226
001216

013256

004016

004130
004132
004136

1294

000003
004324

000011
013052

1282
1283
1284

1285

TEST 3

;Qtttttit*ttttttttttttttttt'ttttttfittttttttttt*ttttQtttttttfittflttttt.

000002

177732

175132

175352
001246

001246

10$:

012372
012374
175260

175246

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

BPL
MOVB

5%
#11,aDOREG

:BRANCH IF NO
:SELECT THE SYNC REG

MOV

#177774 ,MASK

INCB

175220

BICB

MASK, TEMP?

:SET UP A MASK TO GET THE

BPL
CLC
RORB
BICB
cLc
RORB
MOV
MOV
MOV
INCB
MOV

108

BIC

CLRB
MOV
INCB
MOV
INCB
MOV
INCB

175206

175174
175162

175150

1%:

°%:

DQSTAT

:SINGLE SYNC CHARACTER?

:IF YES,BR.
:CORRECT SYNC CHARACTER
:FOR THIS CHARACTER LENGTH
:MANIPULATE DATA TO
:COME UP WITH THE
:PROPER SYNC CHARACTER
:LOAD THE CHARACTER
:DITTO
:LOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
;SET TEST LOOP

TEMP2
MASK,TEMP2+1

TEMP2+1

TEMP2,SYNC1
TEMP2,SYNC2
TEMP2, aDQSEC

@DQREG
#B1T3,aDQSEC

#16 R0

RO
RO, aDQSEC
#B1T1,aDQSEC

:FLIP THE BYTES
:SET CHARACTER LENGTH
:TURN CLOCK OFF...

#81T71,aDQSEC

:AND ON

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

INC

aDQRCSR

:SET RX GO

MOV
MOV

#7VBUFF ,RO
#RXBUFF ,R1

INC
CLR
TSTB
BM]
ADD
BNE
HLT

:LOAD THE MASK

@DQREG
#RXBUFF ,aDQSEC
@DQREG
#-36. ,aDQSEC
@DOREG
csv~c2 aDQSEC
a@DOR

MOV

.
K

:DONE?

:LOAD SYNCS

SWAB
BIS
BIS

175226

SYNC , TEMP?

MOV

000001
012376
013256

#RXBUFF ,RO
R1
(R0)+

TST

175132

175120

#3,TSTNO
#TST4 NEXT

MOV

012370

001247

MOV
MOV
MEMCLR
MOV
CLR
CLR

0-38 aoosec

:SET CHAR COUNT

aDQTCSR
RS
@DQRCSR
2%
#1,RS
1%
1

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

‘

:
e

J1+4D

;144D

004262
004266
66

012702
112005
005037
112137
013704
043705
020504
001401

08:

000044
001246
001246
001246
012370

104400

VB
W

NI
S SN Q9 8 Svivivivivivniwtvtviinlyth

MOV

#36. ,R2

;SET UP TO COUNT CHARACTERS

MOvB
CLR
MOVB
MOV
BI(C
CMP
BEQ
HLT
DEC
BNE
SCOPE

(RO) +,RS
TEMP?2
(R1)+,TEMP2
TEMP2 R4
MASK RS
RS .,R4
4%

;GET A CHARACTER TO COPMARE

*GET REC CHARACTER

‘MOVE TO Ré
*MASK OUT UNWANTED BITS
‘DO THE CHARACTERS MATCH?
:BR IF 0K
:ERRORaagATA DOESN'T MATCH

:NO--GO BACK FOR MORE

*SCOPE THIS TEST

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

SEQ 0027

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

TEST 4

012700
005001
005020
105201
100375
112777
013737
012737
143737

005737
100003

000241
106037
143737
000241
106037
013737

il
il

004572

nonro

104413

wvivuohuonuoauoayononaonaung

PROGRAM INITIALIZATION AND START UP.

104002
005302
001362

012737
012737

WNWNWNNWIWNWWWNWNN

PAGE 28

ol e

e ceuld

=000V
W =O

&& 3

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

013256

000011

013052
177770
012370
001510
001246
012370
001247

175004

001246
012370
001246

001247

013737
013777

012372
012374

012777
012700

000010
000015

174700

050077
052777
042777

174666
2
2

174660
174652

012777

013256

174640

012777
105277

177734
174620

174626

105077

105277

174704

174644

174632

MOV

#4,TSTNO
H#TSTS NEXT
#RXBUFF ,RO

001246
001246
001246

105277

SRS

174712

#11,3DQREG

SYNC, TEMP?2

#177770,MASK

MASK, TEMP?2
DQSTAT
108

TEMP2
MASK, TEMP2+1

TEMP2+1
TEMPZ2,SYNC1
TEMP2,SYNC2
TEMP2 ,aDQSEC

aDCREG

#81T73,aDQSEC

#15,R0

RO
RO,@DQSEC

#81T1,aDQSEC
#81T1,aDQSEC
aDQREG

#RXBUF
F ,@DQSEC

aDQREG
#- 36. ,aDQSEC
aDOREG

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
sSET UP TO CLEAR THE BUFFER
;CLEAR IT
sBRANCH IF NO
sSELECT THE SYNC REG
;LOAD SYNCS
;LOAD THE MASK
sSET UP A MASK TO GET THE
sSINGLE SYNC CHARACTER?
:IF YES,BR.
sCORRECT SYNC CHARACTER

sFOR THIS CHARACTER LENGTH

sMANIPULATE DATA TO
sCOME UP WITH THE
sPROPER SYNC CHARACTER
;LOAD THE CHARACTER

sLOAD THE SYNC REGISTER
sSEL THE MISC REGISTER
;SET TEST LOOP

*FLIP THE BYTES

*SET CHARACTER LENGTH
:LgRN cLOCK OFF...

sAND ON

:SEL
sSET
:SEL
:SET
sSEL

RX PRIMARY ADRESS
ADRESS
RX PRIMARY CHAR COUNT
CHAR COUN
TX PRIMARY ADDRESS

232323222

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

1360
1361

1362
1363
1364

1365
1366

004550
004556

004562
004570
004574

004600
004602

012777
105277

012374
174606

005005
105777

174552

012777
005277
005277

1367
1368
1369
1370
1371
1372

004606
004610
004614
004616
620
004624

%gg

012702

1375
1376
1377

004634
004636
004642

112005
005037
112137

1379
1380
1381
1382

004652
004656
004660
004662

043705
020504
001401
104002

}%;2

1378

1383
1384
}%

004664
004666
004670

100404
062705
001372
104001
012700
012701

013704

177732
174564
174564

174614

MOV
INCB

174602

MOV
INC
INC

CLR
TSTB

1%:

000001

012376
013256

2%:

000044

001246
001246

001246

005302
001362
104400

4%:

BIC
CMP
BEQ
HLT

MASK ,R5
R5.R%
4%
2

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

R2
3%

sSET UP TO COUNT CHARACTERS

GET REC CHARACTER

:MOVE TO R4

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

;DATA CHECKING WILL BE PERFORMED!

1393

;]

139‘

1408
1409
1410
1411
1412
1413
1414
1415

GET A CHARACTER TO COPMARE

TEMP2 R4

BRANCH IF YES
SWAIT
:BR_IF MORE TO GO
s ERROR==NO RX DONE
:LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER

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

}gg}

1405
1406
1407

s START TIMING
;1S DONE UP?

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

DEC
BNE
SCOPE

1387

:SET CHAR COUNT
;SET RX GO
sSET TX GO

MOVB
CLR
MOVB

#36..R2

SEQ 0028

;LOAD THE SYNC CHAR
sSEL TX PRI CHAR COUNT

#1,R5
1%
1
#TXBUFF ,RO
H#RXBUFF ,R1

MOV

012370

#SYNC2,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
aDQRCSR
2%

BMI
ADD
BNE
HLT
MOV
MOV

MOV

1388
1389
1390

1395
1396
1397
1398
1399
1400
1401
1402
1403
1404

08: 41
PAGE 29
PROGRAM INITIALIZATION AND START UP.

"i't..‘**fififitfifitti'fiiii'fitt"'!Qfi't'fififi!*t"'itt*'tt.ttfitfififit.'i""‘

004672
004700
004706
004710
004714
004716
004720
004722
004724
004732

004740
004746
004754

004760
004762
004764
004770
004776
005000
005004
005012

012737
012737
104413
012700
005001
005020
105201
100375
112777
013737

012737
143737
005737

100003
000241
106037
143737
000241
106037
013737
013737

000005
005240

001226
001216

TSTS:

013256

5%:
000011
013052

177760
012370
001510

174436
001246

012370
001246

001246
012370

001247

001247
001246
001246

012372
012374

MOV
MOV
MEMCLR
MOV
CLR
CLR
INCB
BPL
MOVB
MOV

MOV
BI(B
TST

10%:

BPL
CLC
RORB
BI(B
CLC
RORB
MOV
MOV

#5,TSTNO
HTST6 NEXT
#RXBUFF ,RO
R1
(RO) +
R1
5%
#11,aDQREG
SYNC , TEMP?

#177760 ,MASK
MASK, TEMP?2
DQSTAT
10%

TEMP?
MASK , TEMP2+1
TEMP2+1
TeMP2, SYNC]
TEMP2,SYNC?

;CLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
:SET UP TO CLEAR THE BUFFER
;CLEAR IT
sDONE?
sBRANCH IF NO
sSELECT THE SYNC REG
sLOAD SYNCS

;LOAD THE MASK
sSET UP A MASK TO GET THE
sSINGLE SYNC CHARACTER?

;IF YES,BR.
sCORRECT SYNC CHARACTER
sFOR THIS CHARACTER LENGTH
;MANIPULATE DATA TO
sCOME UP WITH THE
;PROPER SYNC CHARACTER
;LOAD THE CHARACTER
;DITTO

J:++D
ss**d

si++D

CZDQH
MACY11 30A(1052)
(ZDQHD.P11
09-JUN-78

07-JUL 78

013777
105277
012777
012700
000300

08:41

174344

MOV

174332

MOV

174272

174260

1
1

]

)

NCB

74216
74216

174234

1 74204

INC

aDQTCSR

#B81T1,aDQSEC

:SET CHARACTER LENGTH
:TURN CLOCK OFF.

sAND ON

aDARCSR

+SET RX GO

:START TIMING

;SET

TX GO

TSTB

aDORCSR

;1S DONE UP?

ADD

#1,R5

JWAIT

HLT

;ERROR=-NO RX DONE

#RXBUFF ,R1

;LOAD RX BUFFER POINTER
sSET UP TO COUNT CHARACTERS

;BRANCH IF YES

:BR IF MORE TO GO

MOV

#TXBUFF ,RO

Mev

#36. .R2

MOVB

(RO)+,RS

CLR

TEMP?2

MOV

TEMP?2 R4

MOVB
BIC
CMP
BEQ
HLT
DEC

(%:

#14 ,RO

THE MISC REGISTER

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

MOV

001246
001246
001246
012370

SET TEST LOOP

:SEL

aDQREG
#RXBUFF ,aDQSEC
aDQREG
#-36 aoossc
aDQR
lSYNC? aDQSEC
aDQR
#-38 ODQSEC

BNE

3%:

#B8I1T3,aDQSEC

CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV

BM]

2%:

;LOAD THE SYNC REGISTER

.FLIP THE BYTES

CLR

000001

TEMP2 ,aDQSEC

aDQREG

RO
RO,aDQSEC
#BIT1,aDQSEC

INC

1%:

012376
013256
000044

SEQ 0029

WAB
BIS
BIS

BIC

174246

PROGRAM | NITIALIZATION AND START UP.

174312
174304

PAGE 30

BNE

SCOPE

:LOAD BUFFER POINTER

;GET A CHARACTER TO COPMARE

(R1)+,TEMP2

MASK ,R5
RS ,R4
4%
2
R2

JGET REC CHARACTER

JMOVE TO Ré

JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCK?
‘BR IF OK
;ERROR--DATA DOESN'T MATCH
ALL DONE
?

sNO--GO BACK FOR MORE
;SCOPE

THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

sTHIS

TEST WILL

XMIT AND RECV CHARACTERS

;AT 5 BITS/PER/CHAR.

;DATA CHECKING WILL BE PERFORMED!

TEST 6

—3 —a

O=00

Rs
82 FE
8

cRAR
TR RN S AR AR A AR A A AR AR AR R R AR R AR RN AR R AR R RRARAN

000006
005606

001226
001216

Tst6:

mov

MOV

MEMCLR

013256
5%:

MOV
CLR
(LR
INCR

BPI.

AR I

AR AR SRR

#6,TSTNO

#TST7 NEXT

#RXBUFF ,RO
R1
(RO)+
R’

JCLEAR ALL

THE

DQ11

sLOAD THE BUFFER POINTER
sSET UP TO CLEAR THE BUFFER
JCLEAR IT
;DONE?

JBRANCH IF NO

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

005272
005300

1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487

005314
005322
005326
005330
005332
005336
005344
005346
005352
005360
005
005374
005400

1489
1490
1491
1492
1493
1496
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504

005412
005414
005420
005426
005434
005440
005446
005452
005460
005464
005472
005476
005504
005510
005514
005516

000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777

005524
005530

062705
001372

1474

005

1488 005406

1505

1506
1507

1508
1509

005522

112777
013737

11
013052

143737
005737
100003
000241
106037
143737
000241
106037
013737
033737
013777
105277
012777

012370
001510

012737

012700

100404

005532
005534

104001
012700

}g};

882??3

012702

1513
1514
1515
1516
1517
1518
1519
1520
1521

005550
005552
005556
005562

112005
005037
112137
013704
043705
020504
001401
104002
005302

;ggz

005604

1510

1522

1525
1526
1507

005540

005572
005574
005576
005600

005602

012701

001362

104400

177740

001246
012370

001247
001246
001246
001246
173770
000010

000013

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

173636

08:41
PAGE 31
PROGRAM INITIALIZATION AND START UP.

174070
001246

012370

#11,3DQREG
SYNC, TEMP2

;SELECT THE SYNC REG
*LOAD SYNCS

BICB
TST
BPL
cLC
RORB
BICB
cLC
RORB
MOV
MOV
MOV
INCB
MOV

MASK,TEMP?
DQSTAT
108

“SET UP A MASK TO GET THE
*SINGLE SYNC CHARACTER?
*IF YES,BR.
*CORRECT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH
-MANIPULATE DATA TO
*COME UP WITH THE
*PROPER SYNC CHARACTER
*LOAD THE CHARACTER
DITTO
:LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
-SET TEST LOOP

MOV

001246

001247

MOVB
MOV

10%:

012372
012374
173776
173764

#177740 ,MASK

TEMP?2
MASK,TEMP2+1

TEMP2+1
TEMP2, SYNC1
TEMP2 . SYNC2
TEMP2.aDQSEC

QDQREG
#BIT3,aDQSEC

MOV

173744
173736
173724

173712
173700

173666

1$:

000001

#13,R0

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
CLR
TSTB

RO
RO, aDQSEC
#B8IT1,aDQSEC
#BIT1.3DQSEC
@DQREG
#RXBUFF ,@DQSEC
@DOREG
#-36.,3DQSEC
@DOREG
#SYNC2,3DQSEC
QDQREG
#-38.,aDQSEC
aDARC SR
aDQTCSR
RS
@DORCSR

ADD
BNE

#1,RS
1%

BM]

HLT
MOV

1
#TXBUFF ,RO

:LOAD THE MASK

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

‘BRANCH IF YES

‘WAIT
*BR IF MORE TO GO
*ERROR--NO RX DONE
*LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER

012376

2%:

000044

MOV

MoV

#RXBUFF ,R1

#36. ,R2

*SET UP TO COUNT CHARACTERS

48:

MOVB
CLR
MOVB
MOV
BIC
CMP
BEQ
HLT
DEC

(RO)+.RS
TEMP?
(R1)+,TEMP?
TEMP2 R4
MASK , RS
RS,Ré
4%
2
R2

:GET A CHARACTER TO COPMARE
i
*GET REC CHARACTER
*MOVE TO Ré4
*MASK OUT UNWANTED BITS
‘DO THE CHARACTERS MATCH?
‘BR IF OK
;ERROR==DATA DOESN'T MATCH
*ALL DINE?

013256

001246
001246
001246
012370

BNE

SCOPE
JTEST GF

JTHIS

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

TRANSMITTER AND RECEIVER CHARATER LENGHTHS
XMIT AND RECV CHARACTERS

TEST WILL

SEQ 0030

;144D
fieeD
;144D

CZDQH

MACY11

CZDQHD.P11

30A(1052)

07-JuL-78

09-JuN-78 07:59

08:41

1532

005606

005614

012737

000007

006154

001226

001216

005622
005624
005630
005632
005634

104413
012700
005001
005020
105201

1541
1542

005640
005646

112777
013737

000011
013052

173522
001246

005662
005670
005674
005676

143737
005737
100003
000241

012370
001510

001246

005704
005712
005714
005720

143737
000241
106037
013737

1543

1544
1545
1546
1547

1548

1549
1550
1551
1552

005636
005654

005700

100375

012737

106037

5%:

177700

001246

001247

001247
001246

012372

013737

001246

1557

005756

012700

000012

013777
105277
012777

001246
173422
000010

1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
15720
1571
1572
1573
1574
1575
1576
1577
1578
1579

005760
005762
005766
005774
006002
006006
006014
006020
26
006032
006040
006044
006052
006056
006062
006064
006070
006072
006076
006100
006102
006106

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

012376
013256

1582
1583

006116
006120

112005
005037

001246

}ggg

882135

012702

173404
000002
000002
173362
013256
173350
177734
173336
012374
173324
177732
173302

108:

012374

MEMCLR
MOV
CLR
(LR
INCB

#RXBUFF ,RO
R1
(RO)+
RI

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

MOVB
MOV

#11,aDOREG
SYNC, TEMP2

*SELECT THE SYNC REG
*LOAD SYNCS

BICB
TST
BPL
cLe

MASK,TEMP?
DQSTAT
108

BICB
cLC
RORB
MOV

TEMP2

MASK.TEMP2+1

*SET UP A MASK TO GET THE
;SINGLE SYNC CHARACTER?
*IF YES.BR.
*CORRECT SYNC CHARACTER
sFOR THIS CHARACTER LENGTH

TEMP2+1
TEMP2, SYNC1

-MANIPULATE DATA TO
“COME UP WITH THE
*PROPER SYNC CHARACTER
*LOAD THE CHARACTER

MOV
INCB
MOV

TEMP2.aDQSEC
@DOREG
#B]T3,aDQSEC

RORB

MOV

173430

173416

MOV

173376
173370

173356
173344
173332
173320

1$:

000001

000044

#7.,TSTNO

MOV

173302

173270

MOV

BPL

012370

005726
005734
005742
005746

TST7:

013256

1553

1556
1555
1556

TEST 7

:tttttttttti'tlttitt.tt'tttt'ttttttfltt.t.tttt't*tifitfittttt'tttttttttt

1535
1536
1537
1538
1539

1540

SEQ 0031

:AT 6 BITS/PER/CHAR.
*DATA CHECKING WILL BE PERFORMED'

1531

1533

PROGRAM INITIALIZATION AND START UP.

1528
}ggg

1534

PAGE 32

2%:

#TST10,NEXT

#17770C ,MASK

TEMP2.SYNC2

#12 R0

*BRANCH IF NO

-LOAD THE MASK

DITTO

-LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
:SET TEST LOOP

;

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
(LR
TSTB
BM]
ADD
BNE
HLT
MOV
MOV

RO
RO, @DQSEC
#B8I1T1,aDQSEC
#BI1T1.3DCSEC
@DQREG
#RXBUFF ,aDQSEC
@DQREG
#-36.,aDQSEC
@DOREG
#SYNC2,aDQSEC
aDOREG
#-38.,aDQSEC
aDORC SR
aDQTCSR
RS
@aDORCSR
2$
#1.RS
1%
1
#TXBUFF ,RU
#RXBUF F R

*FLIP THE BYTES
*SET CHARACTER LENGTH
:TURN CLOCK OFF...
-AND ON
*SEL RX PRIMARY ADRESS
-SET ADRESS
*SEL RX PRIMARY CHAR COUNT
-SET CHAR COUNT
*SEL TX PRIMARY ADDRESS
:LOAD THE SYNC CHAR
*SEL TX PRI CHAR COUNT
:SET CHAR COUNT
*SET RX GO
*SET TX GO
“START TIMING
*1S DONE UP?
‘BRANCH IF YES
“WALT
‘BR IF MORE TO GO
:ERROR--NO RX DONE
*LOAD BUFFER POINTER
*LOAD RX BUFFER POINTER

MOVR
CLR

(n?)+ RS

;GET A (HARACTER

TEMP?

MOV

#36. .R?

*SET UP TO COUNT CHARACTERS
TC (QOPMARE

32990
pieeD

;144D

CZDAH
MACY!N 30A(1052)
07-JUL-78
CZDQHD.P1
09-JUN-78 07:59
1584
1585
1586

1587

1588
1589
1590
1591

006124
006130
006134
006140
006142
006144
006146
006150
006152

112137

08:41

PAGE 33

SEQ 0032

PROGRAM INITIALIZATION AND STARI UP.

001246
001246
012370

MOVB
MOV
BIC

(MP
BEQ
HLT
DEC
BNE
SCOPE

4%:

104400

(R1)+,TEMP2
TEMP2 R4
MASK ,R5
R5,R4
4%

;GET REC CHARACTER
sMOVE TO R4
sMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
;BR IF OK

;ERROR==DATA DOESN'T MATCH
sALL DONE?
sNO--GO BACK FOR MORE
;SCOPE THIS TEST

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

;AT 7 BITS/PER/CHAR.
sDATA CHECKING WILL BE PERFORMED!
TEST 10

Qttttfittii'tttt'..fittitt'ttittttiittt.ittttfi*'.tt"tit"'.t'ittt'tt'

000010
006522

001226
001216

TST10:

5%:

3
O ONOVNS WO

b
s

b
wd cnd

MONMCONON

S
i

b
i

il
i

ol auld

b
o
-

— b

o oo

1620

000011
013052

177600

012370
001510
001246
012370

001247
001246
001246
001246
173054

000010
000011
173036
000002
000002
173014

013256
173002
17773

172770
012374

172756

177732

17273%

#10,TSTNO
#TST11,NEXT

MOV
CLR

#RXBUFF ,RO

MOVB
MOV

#11,aDQREG

MEMCLR

013256
1608

MOV
MOV

173154
001246

012370

CLR
INCB
BPL
MOV

001246

BICR
TST
BPL
CLC

001247

S
012372
012374
173062
¢
173050

10%:

RORB
?IEB

TEMP2
MASK
, TEMP2+1

RORS
MOV
MOV
MOV
INCB
MOV
MOV

TEMP2+1
TEMP2,SYNC1

SWAB

173030
173022

173010
172776

SYNC, TEMP?

#177600 ,MASK
MASK
, TEMP?2
DQSTAT
108

BIS
BIS
BIC
CLRB

MOV

INCB
MOV

172764

INCB
MOV

172752

MOV

INCB

INC

TEMP2,SYN(C2
TEHPZ aDOSEC
aDOR

n81r3 aDQSEC

1.RO

RO aDQSEC

#3171,aDASEC
#81T1,aDQSEC
aDOREG

#RggUFF.iDOSEC

aDQRE
G
#-36. ,aDQSEC
aDQRE
G

#SYNCZ,aDQSE

aDQRE
G
#- 28, ,aDQSEC
aDOR( SR

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

*SINGLE SYNC CHARACTER?
*IF

YES.BR.

*CORRECT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH
*MANIPULATE DATA TO
“COME UP WITH THE
*PROPER SYNC CHARACTER
*LOAD THE CHARACTER
;DITTO
*LOAD THE SYNC REGISTER
sSEL THE MISC REGISTER
;SET TEST LOOP

*FLIP THE BYTES

sSET CHARACTER LENGTH

sTURN CLOCK OFF...

sAND ON
sSEL RX PRIMARY ADRESS
;SET ADRESS
:SEL RX PRIMARY (CHAR COUNT
sSET CHAR COUNT
sSEL _TX PRIMARY ADDRESS
sLOAD THE SYNC CHAR
JSEL TX PRI CHAR COUNT

+SET CHAR COUNT

JS5ET RX GO

so++D

Ji++D

2.++D

CZDQH
MACY11 30A(1052)
07-JUL=78
CZDQHD.P11
09-JUN-78 07:59
1640
1641
1642
1643

006424
006430
006432
006436

005277
005005
105777
100404

1645

006444

001372

1647
1648
1649

006450
006454
006460

012700
012701
012702

1651

006464

112005

1644

1646

1650

1652
1653
1654
1655
1656
1657
1658
1659

1660
1661

1665

006440

006446

006464

062705
104001

006466
006472
006476
006502
006506
006510
006512
006514

005037
112137
013704
043705
020504
001401
104002
005302

006520

104400

006516

08:41
PAGE 34
PROGRAM INITIALIZATION AND START UP.

172734
172722

INC
CLR
TSTB
BM]

1$:

000007

28:

#1,RS

SWAIT

HLT

*ERROR--NO RX DONE

MOVB

(RO)+,RS

;GET A CHARACTER TO COPMARE

CLR
MOVB
MOV
BIC
CMP
BEQ
HLT
DEC

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

i
;GET REC CHARACTER

MOV
MOV
MOV

3%:

001246
001246
001246
012370

4$:

001362

;SET TX GO
*START TIMING
*1S DONE UP?
*BRANCH IF YES

ADD

BNE

012376
013256
000044

aDATCSR
RS
@DORCSR
2%

SEQ 0033

BNE

SCOPE

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

*BR IF MORE TO GO

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

*MOVE TO R4
*MASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
‘BR IF OK
JERROR=-=DATA DOESN'T MATCH
*ALL DONE?

*NO--GO BACK FOR MORE
“SCOPE

THIS TEST

1664

JTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

1666

;AT 8 BITS/PER/(CHAR.

1665

“THIS TEST WILL XMIT AND RECV CHARACTERS

}22;

*DATA (HECKING WILL BE PERFORMED!

1669

1670

1671
1672

1673
16764
1675

1676

1677
1678
1679
1680
1681

1682

1683
1684
1685
1686
1687
1688
1689
1691
1692
1693
1696

1690

1695

TEST 1

"ttt'tttit'ttt.tttttfi.tt'ttt.'tt!Q'ttttttt'tt't&tt'.t.ttt.t.t'."t"'

006522
006530

006536
006540
006544

006546

006550
006552
006554
006562
006570

006576

012737
012737

104413
012700
005001

000011
007670

005020

105201
100375
112777
013737
012737

143737

<$:

000011
013052
177400

012370

006626
006630

001247

006642
006650
006656
006662

013737
013777
105277
012777

001246
001246
172506
000010

006634

006670

013737

012700

T1ST11:

013256

005737
100003
000241
106037
143737
000241
106037

006610
006612
006614
006620

001226
001216

001510

001246
012370

001246

000010

172606
001246
012370

001246

001247

012372

012374
172514

172502

MOV
MOV

MEMCLR
MOV
CLR
CLR

INCB
8P
MOVB
MOV
MOV

BICB

10$:

ST
BPL
cLC
RORB
BICB
CL(
RORB

MOV

MOV
MOV
INCB
MOV

MOV

#11,TSTNO
#TST12 ,NEXT
#RXBUF F ,RO
R1
(RO)+

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

R1
5%
#11.3DOREG
SYNC , TEMP?
#177400 MASK

*DONE?
*BRANCH IF NO
*SELECT THE SYNC REG
*LOAD SYNCS
:LOAD THE MASK

DQSTAT
108

TEMP2+1

*SINGLE SYNC CHARACTER?
*IF YES.BR.
*CORRECT SYNC CHARACTER
*FOR THIS CHARACTER LENGTH
-MANIPULATE DATA TO
‘COME UP WITH THE
*PROPER SYNC CHARACTER

TEMP2 . SYNC2
TEMP2.3DQSEC
@DOREG
#2'T3,aDGSEC

DITTO
:LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
:SET TEST LOOP

MASK,TEMP?

TEMP?
MASK,TEMP2+1

TEMP2, SYNC1

#70.R0

“SET UP A MASK TQ GET THE

*LOAD THE CHARACTER

sreeD
tieeD
s1eeD

CZDQH

MACY11

CZDQHD.P11

006674
006676
006702
006710
006716
006722
006730
006734
006742

000300
050077
052777
042777
105077
012777
105277
012777
105277

1706
1707
1708
1709
1710
1711
1712
1713
1714

006754
006760
006766
006772
006776
007000
007004
007006
007012

105277
012777
005277
005277
005005
105777
100404
062705
001372

1715
1716
1717

};}g

1720
1721
1722
1723
1724
1725
1726
1727
1728
1729

;l;%?

006746

007014
007016
007022

%;8%3

007032
007034
007040
007044
007050
007054
007056
007060
007062
007064

007066

07-JuUL-78

09-JUN-78 07:59

1696
1697
1698
1699
1700
1701
1702
1703
1704

1705

30A(1052)

012777

104001
012700
012701

012702

112005
005037
112137
013704
043705
020504
001401
104002
005302

172470
000002
000002
172446
013256
172434
177734
172422

012374

172410
177732
172366
172366

08:41

172442
172430

172416

000001
2%:

000044

4%:

104400

INCB
MOV
INC
INC
CLR
TSTB
BMI
ADD
BNE

HLT
MOV
MOV

aDQREG
#-38. ,aDQSEC
aDQR(CSR
aDQTCSR
RS
aDQRCSR
’$
#1,RS5
1%

sSEL TX PRI CHAR COUNT
sSET CHAR COUNT
sSET RX GO
sSET TX GO
sSTART TIMING
. 1S DONE UP?
sBRANCH IF YES
JWAIT
:BR IF MORE TO GO

1
#TXBUFF ,R0O
#RXBUFF ,R1

sERROR=-NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER

MOVB
CLR
MOVB
MOV
BIC
(MP
BEQ
HLT
DEC
BNE

(RO)+,RS
TEMP?
(R1)+,TEMP2
TEMP2 R4
MASK RS
R5.R4
43
P
R2
3%

sGET A CHARACTER TO COPMARE
H
sGET REC CHARACTER
sMOVE TO R4
JMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
;BR IF 0K
sERROR=-DATA DOESN'T MAT(H
sALL DONE?
;sNO--GO BACK FOR MORE

#SYNC2,aDQSEC

#36..R2

1732
1733

sTEST OF

1735

;AT 9 BITS/PER/CHAR.

173

sSET UP TO COUNT CHARACTERS

;SCOPE THIS TEST

TRANSMITTER AND RECEIVER CHARATER LENGHTHS

:DATA CHECKING WILL BE PERFORMED'

1739

1740
1741
1742
1743
1744
1745
1746
1747
1748
1749

007070
007076
007104
007106
007112
007114
007116
007120
007122
007130

1751

007144

1750

;LOAD THE SYNC CHAR

sTHIS TEST WILL XMIT AND RECV CHARACTERS

1738

JFLIP THE BYTES
sSET CHARACTER LENGTH
sTURN CLOCK OFF...
sAND ON
;SEL RX PRIMARY ADRESS
;SET ADRESS
sSEL RX PRIMARY CHAR COUNT
;SET CHAR COUNT
:SEL TX PRIMARY ADDRESS

SCOPE

1734

RO
RO,aDQSEC
#81T1,aDQSEC
#81T1,aDQSEC
aDQREG
#RXBUFF ,aDQSEC
aDQREG
#-36. ,aDQSEC
aDQREG

MOV

001246
001246
001246
012370

001362

SEQ 0034

SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB

MOV

J
172404

012376
013256

PROGRAM INITIALIZATION AND START UP.

172462
172454

172354

PAGE 35

007136

012737
012737
104413
012700
005001
005020
105201
109375
112777
013737

012737
043737

000012
007420

001226
001216

TEST 12

71ST12:

R AR AR R R R R R R

013052

001246

MOV
MOV
MEMCLR
MOV
(LR
(LR
INCB
BPL
MOVE
MOV

012370

001246

BIC

013256
5%:

000011

177000

172240

012370

MOV

R RN AR RN AR R A AR R

#12,TSTNO
#TSTT13,NEXT

#RXBUFF ,RO
R1
(RO)+
R1
5%
#11,aDQREG

AR R AR RN AR AN R AR IR RN AR R

JCLEAR ALL THE DM
+LOAD THE BUFFER POINTER
JSET UP TO CLEAR THE BUFFER
JCLEAR IT

+DONE?
JBRANCH IF NO
JSELECT THE SYNC REG

SYNC , TEMP?

sLOAD SYNCS

MASK , TEMP/

JOET UP THE MASK FOR THE

#:77000 MASK

:LOAD THE MASK

R O RO RRRR

CZDQH

MACY11 30A(1052)

CZDQHD.P11
1752

000241

007164

100404

007154
007160

1756
1757
1758

007166
007174
007176

1755

1759

1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
}7789

09-JUN-78 07:59

007152

1753
1754

007204

007212
007220
007224
007232
007236
007240
007244
007252
007260
007264
007272
007276
007304
007310
007316
007322
007330
007334
007340
007342
007346
007350
007354
007356
007360
007364
007370
007374
007374
007376
007400
007404
007406
007410
007412
007414
007416

07-JuL-78

08:41

001246
0201510

012737
000403
013737

177777

012372

001246

012372

001246
172144
000010
000007

172152

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

012005
012104
043705
020504
001401
104002
005302
001367
104400

001246

172126
000002
000002
172104
013256
172072
177734
172060
012372
172046
177732
172024
172024

012374

10%:

208:

172120
172112
172100
172066

172054
172042

1$:

000001
012376
013256
4

2%:

3%:

012370

4%:

1798

1799
1800
1801
}ggg
1w5

1806
1807

TEMP?
DQSTAT

MOV
BR
MOV

#-1,SYNC1
208
TEMP2,SYNC1

MOV
INCB
MOV
MOV
SWAB
BIS
BIS
3IC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC
CLR
TSTB
BM]
ADD
BNE
HLT
MOV
MOV
MOV

TEMPZ2 ,aDQSEC
aDQREG
#1T3,aDQSEC
#7 RO
RO
RO, aDQSEC
#BIT1,aDQSEC
#81T1,aDQSEC
@DQREG
#RXBUFF ,aDQSEC
@DOREG
#-36. ,aDQSEC
aDQREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDQRCSR
aDQTCSR
RS
@DGRCSR
2%
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF ,R1
#36. ,R2

;LOAD THE SYNC REGISTER
sSEL THE MISC REGISTER
JSET TEST LOOP
:
JFLIP THE BYTES
*SET CHARACTER LENGTH
JTURN CLOCK OFF...
*AND ON
:SEL RX PRIMARY ADRESS
:SET ADRESS
*SEL RX PRIMARY CHAR COUNT
*SET CHAR COUNT
sSEL TX PRIMARY ADDRESS
:LOAD THE SYNC CHAR
JSEL TX PRI CHAR COUNT
SSET CHAR COUNT
“SET RX GO
:SET TX GO
*START TIMING
:1S DONE UP?
*BRANCH IF YES
SWAIT
:BR IF MORE TO GO
;ERROR==-NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
JSET UP TO COUNT CHARACTERS

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

(RO) +,RS
(R1) +.Ré
MASK ,RS
RS.Ré
A
2
R2
3%

:GET ANOTHER CHAR
*GET A REC CHAR
:MASK OUT UNWANTED BITS
DO THE CHARACTERS MAT(CH?
:BR IF 0K
sERROR=-=DATA DOESN'T MAT(H
sALL DONE?
JNO=-=-GO BACK FOR MORE
;SCOPE THIS TEST

MOV

108

TEMP2,SYNC?2

SSHIFT IT
JSINGLE SYNC CHARACTER?

;

007420
007426

012737
012737

000913
007750

001226
001216

TEST

Ji44D

:DITTO

Ji+4D

*IF YES, MARK.
:CONT INUE .
:LOAD THE CHARACTER

'.'t..'...'tttt'..'tt."'.'.'.'t.t.t'.tt.tt.tt.Q."'tt'tt'..'t'.tttt'

T5113:

Moy
MOV

#:2,TSTNO
#1514 NEXT

;%9

:IF NO,BR.

JTEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS
JTHIS TEST WILL XMIT AND RECV CHARACTERS
JAT 10 BITS/PER/CHAR.
:DATA (HECKING WILL BE PERFORMED
'

1804

SEQ 0035

JCORRECT SYNC CHARACTER

ROR
TST

BMI

172140

172012

PROGRAM INITIALIZATION AND START UP.
CLC

006037
005737

PAGE 36

)
sieeD
iie4D

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

1808

1809

1810

1811

007434

104413

007436

012700

007444

005020

007442

005001

1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822

007446
007450
007452
007460
007466
007474
007502
007504
007510
007514
007516

1826
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834

007526 013737
007534 013737
007542 . 013777
007550
105277
007554 012777
007562
012700
007566
300
007570 050077
007574 052777
007602
042777
007610
105077

1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847

007622
007626
007634
007640
007646
007652
007660
-007664
007670
007672
007676
007700

1823

1835

1848

007524

007614

105201
100375
112777
013737
012737
043737
000241
006037
005737
100404
012737

000403

012777

105277
012777
105277
012777
105277
012777
005277
005277
005005
175777
700404
262705

007704

001372

1850
1851
1852
1853
1854
1855

007710
067714
007720
007724
007724
007726

012700
012701
012702

012005
012104

1857
1858
1859
1860

007734
007736
007740
007742

020504
001401
104002
00530

1849

1856

1861

1862

007706

007744

007746

104001

043705

00136

104400

08: 41

PAGE 37

MEMCLR
MOV

013256

#RXBUFF ,RO

5%:

000011
013052
176000
012370

SYNC, TEMP?2

#1760
, 00
MASK

MASK, TEMP2
TEMP2
DQSTAT
108
#-1,SYNC1

177777

171576
000002
000002
171554

013256

171542
177734
171530
012372
171516
177732
171474
171474

171462

171622

0%:
20%:

TEMP2,SYNC1

TEMP2 ,SYNC2
TEMP2,aDQSEC

#B1T3,3DQSEC

#6.R0
RO
RO,@DQSEC

171570
1715€2

#B1T1,aDQSEC
#B1T1,aDQSEC

171550
171536

171524
171512

1%:

000001

012376
013256
000044

208

aDQREG

171610

’%:
3s:

012370

4%:

;CLEAR ALL THE DQ11
;LOAD THE BUFFER PC NTER
sSET UP TO CLEAR THE BUFFER
sCLEAR IT
; DONE?

#11,3DOREG

001246
001510

001246
001246
001246
171614
000010

SEQ 0036

FROGRAM INITIALIZATION AND START UP.

#-36. ,aDQSEC
aDQRE
#SYNC1,aDQSEC
aD QREG
#-38. ,aDQSEC
aDQR(CSR
aDQTCSR
RS
aDQR(SR

#1,R5
1%
1

sBRANCH IF NO
sSELECT THE SYNC REG
sLOAD SYNCS
;LOAD THE MASK
;SET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
SSHIFT IT
sSINGLE SYNC CHARACTER?
; IF NO,BR
.IF YES, MARK.

s CONTINUE.
sLOAD THE CHARA(CTER
;DITTO
sLOAD THE SYNC REGISTER
;SEL THE MISC REGISTER
sSET TEST LOOP

*FLIP THE BYTES

*SET CHARACTER LENGTH
:ngN CLOCK OFF...
:

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

;1S DONE UP?
sBRANCH IF YES
;WAIT

sBR IF MORE TO GO

s ERROR=-NO RX DONE

#TXBUFF ,RC
#RXBUFF
,R1

:LOAD BUFFER POINTER
sLOAD RX BUFFER POINTER

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

;GET ANOTHER CHAR
:GET A REC CHAR

sALL DONE?

sSET UP TO COUNT CHARACTERS

sMASK OUT UNWANTED BITS

;DO THE CHARACTERS MAT(H?
;BR IF 0K
. ERROR=~DATA DOESN'T MAT(H

sNO==GO BA(CK FOR MORE

;SCOPE THIS TEST

J:+4D

L:49)
Ji+¢D
Ji+4D
2999
Ji+4D

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

08:41

1864

sTHIS TEST WILL XMIT AND RECV CHARACTERS
;AT 11 BITS/PER/(CHAR.

;DATA (CHECKING WILL BE PERFORMED!

1869

;

1914

010234

001372

1919

010230

010236
010240
010244
010250
010254

062705

104001
012700
012701
012702

000014
010300

001226
1216

1885
1886
1887
1888
1889
1890
1891
1892
1893
1896
1895
189
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912

012737
012737
104413
012700
005001
005020
105201
100375
112777
013737
012737
043737
000241
006037
005737
100404
012737
000403
013737
013737
013777
105277
012777
012700
000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404

1915
1916
1917
1918

TEST 14

SRR A

007750
007756
007764
007766
007772
007774
007776
010000
010002
010010
010016
010024
010032
010034
010040
010044
010046
010054
010056
010064
010072
010100
010104
010112
010116
010120
010124
010132
010140
010144
010152
010156
010164
010170
010176
010202
01010
010214
010220
010222
010226

1913

SEQ 0037

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

1866
1867
1868

1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884

PAGE 38
PROGRAM INITIALIZATION AND START UP.

TST14:

013256

AR AR A AR

MOV

AR R AR AR AR

AR AR R AR AR AR AR AR AR AR AR AR AR

#TST15, NEXT

#RXBUFF ,RO

5%:

000011
013052
174000
012370

SYNC, TEMP2

#174000,MASK

MASK, TEMP?2

177777

012372

001246
001246
001246

012372
012374

171264
000010
000005

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

171272

TEMP2
DQSTAT
108
#-1,SYNC1

10%:

20%:

TEMP2,SYNC1
TEMP2,SYNC2
TEMP2,aDQSEC
-

#81T73,aDQSEC

#5,RO
RO
RO,aDQSEC
#31T1,aDQSEC
#B1T1,aDQSEC
aDQREG

171240
171232

171220

#RXB
F ,aDQSEC
UF
aDQREG

171206

171174
171162

1%:

000001
012376
013256
4

208

aDQREG

171260

2%:
3%

sCLEAR ALL THE DQ11
sLOAD THE BUFFER POINTER
sSET UP TO CLEAR THE BUFFER
sCLEAR IT
s DONE
?

#11,aDOREG

001246
001510

A ®

#14,TSTNO

#-36. ,aDQSEC
ADQRE G
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
SR
aDQRC
aDQTCSR
RS
aDQRCSR
2%
#1,RS
}5
#TXBUFF ,RO
#RXBUFF ,R1

#24. .R2

sBRANCH IF NO
sSELECT THE SYNC REG
sLOAD SYNCS
:LOAD THE MASK
sSET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
JSHIFT IT

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

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

*FLIP THE BYTES

*SET CHARACTER LENGTH
*TURN CLOCK OFF...

sAND ON

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

s START TIMING
;1S DONE UP?
BR?NCH IF YES

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

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

22999
Ji+4D
-”D
.

J++D

;-000
s++D

CZDQH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN-78 07:59
1920
1921
1922
1923
1926
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950

010254
010256
010260
010264
010266
010270
010272
010274
010276

PAGE 39

SEQ 0038

PROGRAM INITIALIZATION AND START UP.

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

012370

4%:

;GET ANOTHER CHAR

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

sMASK QUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
:BR IF OK

:ALL DONE?

;GET A REC CHAR

;ERROR==DATA DOESN'T MAT(CH

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

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

AT 12 BITS/PER/CHAR,
:DATA CHECKING WILL BE PERFORMED'

010300
010306
010314
010316
010322
010324
010326
010330
010332
010340
010346
010354
010362

1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967

010364
010370
010374
010376
010404
010406
C10414
010422
010430
010434
010442
010446
010450
010454
010462
010470
010474

1969
1970
1971

010506
010514
010520

1968

012005
012104
043705
020504
001401
104002
005302
001367
104400

08:41

010502

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

100404
012737
03
013737
013737
013777
105277
012777
012700

000015
010630

TEST 1S

000011
013052
170000
012370

171030
001246
012370
001246

001246
001510

012372

001246
001246
001246
170734
000010
000004

012372
012374
170742

012777
105277
012777

177734
170650
012372

17066

1
1
1

AR AR AR AR AR A A

MOV
MOV
MEMCLR
MOV
CLR
CLR
INCB
BPL
MOVB
MOV
MOV
BIC
CLC
ROR
TST

177777

170716
2

A A A A

TST15:

5%:

170674
013256

013256

050077
052777
042777
105077
012777

105277

;
001226
001216

170730

170710
170702
170670
170656

170644
170632

10%:
20%:

BMI
MOV
BR
MOV
MOV
MOV
INCB
MOV
MOV
SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV
INC
INC

AR AR AR A AR AR AR AR R AR RA R AR AR AR AR AR AR R AR

#15,TSTNO
#TST16,NEXT
#RXBUFF ,RO

;CLEAR ALL THE D@11
;LOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
sCLEAR IT
; DONE?

#11,3DOREG

SYNC, TEMP?

#170000 ,MASK

MASK, TEMP?2
TEMP?2
DQSTAT
10%
#-1,SYNC!

208
TEMP2,SYNC1
TEMP2,SYNC?
TEMPZ2 ,aDQSEC

aDOREG

sBRANCH IF NO
sSELECT THE SYNC REG
:LOAD SYNCS
;LOAD THE MASK
sSET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
SSHIFT IT

'SgNGLEBgYNC CHARACTER?
MARK.
NUE.

B??DOYHE CHARACTER

:LOAD THE SYNC REGISTER
sSEL THE MISC REGISTER

08173 aDQSEC

sSET TEST LOOP

RO’

FLIP THE BYTES
sSET CHARACTER LENGTH
sTURN CLOCK OFF...
sAND ON
:SEL RX PRIMARY ADRESS
sSET ADRESS

#4 RO

RO,aDQSEC
#31T1,3aDQSEC

l83;1.aDQSEC
GRE
#-36. ,aDQSEC

aDORE G
#SYNC1,aDQSEC
aDQREG

#-38, ,aDQSEC
acRCSR
aDQTCSR

sSEL RX PRIMARY (HAR COUNT
sSET CHAR COUNT

sSEL _TX PRIMARY ADDRESS
sLOAD THE SYNC (CHAR
sSEL TX PRI CHAR COUNT
sSET CHAR COUNT
;SET RX GO
JS5ET TX GO

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

005005

105777
100404

000001

012700
012701
012702

012376
013256
000044

104001

012005
012104
043705

-t

PAGE 40
08:41
PROGRAM INITIALIZATION ANP START UP.

170602

062705
001372

CLR

SEQ 0039

:START TIMING

2%:

BMI
ADD
BNE
HLT
MOV

2$
#1,RS
1%
1
#TXBUFF ,RO

BRANCH IF YES
WAIT
BR IF MORE TO GO
*ERROR--NO RX DONE
*LOAD BUFFER POINTER

MOV

#36. ,R2

*SET UP TO COUNT CHARACTERS

MOV
MOV
BIC»

(RO)+,RS
(R1)+.R&
MASK,RS

:GET ANOTHER CHAR
*GET A REC CHAR
*MASK OUT UNWANTED BITS

BEQ

‘BR IF OK

1%:

TSTB

MOV

012370

CMP

HLT
DEC

“$:

BNE

SCOPE

@DORCSR

#RXBUFF-R1

RS5.R4
2
R2

:1S DONE UP?

*LOAD RX BUFFER POINTER

:DO THE CHARACTERS MATCH?
*ERROR==DATA DOESN'T MATCH
“ALL DONE?

*NO=-GO BACK FOR MORE
*SCOPE

THIS TEST

;TEST OF TRANSMITTER AND RECEIVER CHARATER LENGHTHS

*THIS TEST WILL XMIT AND RECV CHARACTERS
*AT 13 BITS/PER/CHAR.
*DATA CHECKING WILL BE PERFORMED'
TEST 16
OW~N
-

O=00

82 883322
WY
Vi SN

At 22222

—_—
)

010550
010552
010556
010560
010564

OO ==

=00 o~
S

o 33333 EREELEL PR SRR

ERERE R

1976
1977
1978
1979

000016
011160

001226
001216

TST16:

5%:

160000

012370

170500

001246
012370
001246

012372
012374
170412

170400

108:

208:

#TST17 NEXT
#RXBUFF ,RO

;CLEAR ALL THE DQ11
*LOAD THE BUFFER POINTER

R1
(RO)+
Rl
5%
#11,aDOREG
SYNC, TEMP2

“SET UP TO CLEAR THE BUFFER
*CLEAR IT
*DONE?
*BRANCH IF NO
*SELECT THE SYNC REG
*LOAD SYNCS

BIC
cLC
ROR

MASK, TEMP2

#160000,MASK

:LOAD THE MASK

DQSTAT

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

MOV
BR
MOV

#=1,SYNC1
208
TEMP2,SYNC1

SIF YES, MARK.
co~r1~us
:LOAD THE CHARACTER

MOV
INCB
MOV

TEMP2.3DQSEC
QDQREG
#BIT3,aDQSEC

SWAB
BIS
BIS
BIC

RO
RO, aDQSEC
#27T1,aDQSEC
#B1T1,aDQSE(

BM]

012372

222233332332332332333232333232232222322222232222222222;

#16,TSTNO

CLR
CLR
INCB
BPL
MOVB
MOV

MOV

001246
001510
177777

MOV

MEMCLR
MOV

013256

000011
013052

MoV

MOV

TEMP?

108

TEMP2 . SYNC2

#3,R0

*IF NO,BR.

oxr 0

:LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
-SET TEST LOOP

SFLIP THE BYTES
SSET CHARACTER LENGTH
:TURN CLOCK OFF...
SAND ON

CZDQH

MACY11 30A(1052)

CZDQHD.P11

07=JUL=78

09-JUN-78 07:59

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

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

105077
012777
105277
012777
105277
012777
105277
012777

170344
013256
170332
177734
170320
012372
170306
177732

105777
100404
062705
001372
104001
012700
012701
012702

170252

2052
2053
2054
2055
2056
2057
2058
2059
2060

011134
011136
011140
011144
011146
011150
011152
011154
011156

012005
012104
043705
020504
001401
104002
005302
001367
104400

5062

005277
005277
005005

08:41

CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV

170326

170314
170302

INC
INC
(LR

1%:

TSTR
BMI
ADD
BNE
HLT
MOV
MOV
MOV

000001
012376
013256
000044

’%:

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

012370

2063
2064
2065
5829
;

2%9

2075
2076
2077
2078
2079

2080

2081
2082
2083
2084
2085
2086
2087

SEQ 0040

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

;SEL RX PRIMARY ADRESS
,;SET ADRESS
+SEL RX PRIMARY CHAR COUNT
;SET CHAR COUNT
;SEL TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
;SEL TX PRI CHAR COUNT
;SET CHAR COUNT
+SET RX GO
;SET TX GO
:START TIMING
;1S DONE UP?
sBRANCH IF YES
JWAIT
;BR IF MORE TO GO
;ERROR=-NO RX DONE
.LOAD BUFFER POINTER
sLOAD RX BUFFER POINTER
sSET UP TO COUNT CHARACTERS

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

;GET ANOTHER CHAR
;GET A REC CHAR
sMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
;BR IF 0K
;ERROR--=DATA DOESN'T MATCH
sALL DONE?
sNO--GO BACK FOR MORE
;SCOPE THIS TEST

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

2068

2070
2071
2072
2073
2074

PROGRAM INITIALIZATION AND START UP.

170340

170264
170264

PAGE 41

TEST 17

.'tttQQ"ttt'fitt.ifi'tt.titt'ittttttfittttttttt.Q'fi.'itttt"'t.t.tittt‘t

011160
011166
011174
011176
011202

012737
012737
104413
012700
005001

011204
011206
011210
011212
011220

005020
105201
100375
112777
013737

011234
011242
011244
011250
011254
011256
011264

043737
000241
37
005737
100404
012737
000403

011226

012737

000017
011510

001226
001216

TST17:

013256

5%:
000011
013052

170150
001246

012370

001246

140000

012370

001246
001510
177777

012372

MOV
MOV
MEMCLR
MOV
CLR

CLR
INCB
BPL
MOVR
MOV

MOV

BIC
CLC
ROR
TST
BM]
MOV
BR

#17,TSTNO
#TST20,NEXT

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

#140000, MASK

MASK , TEMP2

TEMP2
DQSTAT
10%
#-7,SYNCT
20%

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

;LOAD THE MASK

JSET UP THE MASK FOR THE
JCORRECT SYNC CHARACTER
JSHIFT IT
JSINGLE SYNC CHARACTER?
;1F NO,BR.
JIF YES, MARK.
s CONTINUE.

3244
s.vD
s++D
Ji++D

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

2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
g}}g

011266
011274
011302
011310
011314
011322
011326
0113;2
0113
011342
011350
011354
011362
011366
011374
011400
011406
011412
011420
011424
011430
011432
011436
011440
011444
011446
011450
011454
8}}222

013737
013737
013777
105277
012777
012700
000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777
005277
005277
005005
105777
100404
062705
001272
104001
012700
012701
012702

2118
2119
2120
2121
2122
2123
2124
2125
S}Sg

011464
011466
011470
011474
011476
011500
011502
(011504
011506

012005
012104
043705
020504
001401
104002
005302
001367
104400

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

08:41
PAGE 42
PROGRAM INITIALIZATION AND START UP.

012372
012374
170062

10%:
20%:

170050

170030
170022
170010
167776

167764
167752

167722

1%:

000001
012376
013256
000044

2%:
3

012370

4%:

MOV
MOV
MOV
INCB
MOV
MOV
SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MoV
INCB
MOV
INC
INC
CLR
TSTB
BMI
ADD
BNE
HLT
MCV
MOV
MOV

TEMP2,SYNC]
TEMP2,SYNC2
TEMPZ2,aDQSEC
aDQREG
#B81T3,aDQSEC
#2.,R0O
RO
RO,aDQSEC
#B1T1,aDQSEC
#81T1,aDQSEC
aDQREG
#RXBUFF ,aDQSEC
aDQREG
#-36. ,aDQSEC
aDOREG
#SYNC1,aDQSEC
aDQREG
#-38. ,aDQSEC
aDORCSR
aDQTCSR
R5
aDQRCSR
2%
#1,R5
1%
1
#TXBUFF ,RO
#RXBUFF ,R1
#36. .R2

;LOAD THE CHARACTER
;DITTO
sLOAD THE SYNC REGISTER
sSEL THE MISC REGISTER
sSET TEST LOOP
;
sFLIP THE BYTES
sSET CHARACTER LENGTH
sTURN CLOCK OFF...
sAND ON
sSEL RX PRIMARY ADRESS
;SET ADRESS
<SEL RX PRIMARY CHAR COUNT
sSET CHAR COUNT
:SEL_TX PRIMARY ADDRESS
;LOAD THE SYNC CHAR
sSEL TX PRI CHAR COUNT
:SET CHAR COUNT
:SET RX GO
sSET TX GO
;START TIMING
;1S DONE UP?
sBRANCH IF YES
JWAIT
sBR IF MORE TO GO
:ERROR==NO RX DONE
;LOAD BUFFER POINTER
;LOAD RX BUFFER POINTER
sSET UP TO COUNT CHARACTERS

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE
SCOPE

(RO)+,RS
(R1)+,R4
MASK ,R5
R5,R4
3]
2
R
3%

;GET ANOTHER CHAR
;GET A REC CHAR
sMASK OUT UNWANTED BITS
;DO THE CHARACTERS MATCH?
;BR IF OK
;ERROR--DATA DOESN'T MATCH
;ALL DONE?
;NO--GO BACK FOR MORE
:SCOPE THIS TEST

2128
2129
2130

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

S}gg

;DATA (CHECKING WILL BE PERFORMED!

213

;AT 15 BITS/PER/CHAR.

2134

;

2135

2136
2137
2138
2139
2140
2141
2142
2143

TEST 20

:'tttfi."'.ttttttt!fi..tt'."Qtttt.'iti"fitttttt.tt.i."tt.."tt.fitt‘t

011510
011516
011524
011526
011532
011534
011536
011540

012737
012737
104413
012700
005001
005020
105201
100375

000020
012040

001226
001216

TST20:

013256
5%:

MOV
MOV
MEMCLR
MOV
CLR
CLR
INCB
BPL.

#20,TSTNO
#TST21 NEXT
#RXBUF F ,RO
R1
(RO)+
R:
5%

;CLEAR ALL THE DQ11
sLOAD THE BUFFER POINTER
;SET UP TO CLEAR THE BUFFER
JCLEAR [T
sDONE?
<BRANCH [F NO

SEQ 0041

so4+D
;o++D

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

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

2144
2145

011542
011550

112777
013737

000011
013052

2148
2149
2150

011572
011574
011600

000241
006037
005737

001246
001510

2152

011606

012737

177777

012372

2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171

011616
011624
011632
011640
011644
011652
011656
011660
011664
011672
011700
011704
011712
011716
011724
011730
011736
011742

013737
013737
013777
105277
012777
012700
000300
050077
052777
042777
105077
012777
105277
012777
105277
012777
105277
012777

001246
001246
001246
167524
000010
000001

012372
012374
167532

2173
2174
2175
2176
2177
2178
2179
2180
2181
g}gg

011754
011760
011762
011766
011770
011774
011776
012000
01
8}58}2

005277
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

2146
2147

2151

2153

2172

S}gg

2194
2195
2196
2197

g;gg

011556
011564

011604
011614

011750

012036

012737
043737

100404

000403

005277

104400

100000
012370

167506
000002

000002
167464
013256
167452
177734
167440
012372
167426
177732

167404

167620
001246

MOVB
MOV

cLC
ROR
TST

012370
001246

MOV
BIC

167520

167500

167472

167460
167446

167434
167422

167372
000001
012376
013256
000044

$:
:
2%:

012370

4$:

TEMP2
DQSTAT

*CORRECT SYNC CHARACTER
SSHIFT IT
JSINGLE SYNC CHARACTER?

#-1,SYNC1

“IF YES,

#100000,MASK
MASK, TEMP2

108

208

:LOAD THE MASK
*SET UP THE MASK FOR THE

iieeD

*CONT 1~ue

iieeD

TEMP2,SYNC1
TEMP?2. SYNC2
TEMP2.aDQSEC
QDQREG
asxrs aDQSEC
#1,R0
RO’
RO,@DQSEC
#31T1,aDQSEC
- #BIT1.aDQSEC
@DQREG
#RXBUFF ,@DQSEC
@DQREG
#—36 LaDQSEC
@DQREG
#SYNC1,3DQSEC
@DQREG
#-38. ,aDOSEC

“FLIP THE BYTES
*SET CHARACTER LENGTH
:TURN CLOCK OFF...
:AND ON
*SEL RX PRIMARY ADRESS
-SET ADRESS
*SEL RX PRIMARY CHAR COUNT
:SET CHAR COUNT
*SEL TX PRIMARY ADDRESS
:LOAD THE SYNC CHAR
*SEL TX PRI CHAR COUNT
:SET CHAR COUNT

INC
CLR
TSTB
BM]
ADD
BNE
HLT
MOV
MOV
MOV

aDATCSR
RS
@DORCSR
2$
#1,RS
1%
1
#TXBUFF ,RO
#RXBUFF _R1
#36. ,R2

*SET TX GO
*START TIMING
*1S DONE UP?
BRANCH IF YES
WAIT
*BR IF MORE TO GO
*ERROR--NO RX DONE
*LOAD BUFFER POINTER
*LOAD RX BUFFER POINTER
*SET UP TO COUNT CHARACTERS

MOV
MOV
BIC
CMP
BEQ
HLT
DEC
BNE

(RO)+,RS
(R1)+ R
MASK ,RS
RS, R4
4%
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 MATCH
*ALL DONE?
*NO--GO BACK FOR MORE

SCOPE

aDQRCSR

e, '

-nmm.

MOV
MOV
MOV
INCB
MOV
MOV
SWAB
BIS
BIS
BIC
CLRB
MOV
INCB
MOV
INCB
MOV
INCB
MOV

INC

167404

;SELECT THE SYNC REG
*LOAD SYNCS

BMI

MOV

10%:
208:

#11,aDQREG
SYNC , TEMP?

SEQ 0042

*LOAD THE CHARACTER
:DITTO
:LOAD THE SYNC REGISTER
*SEL THE MISC REGISTER
ser TEST LOOP

*SET RX GO

“SCOPE THIS TEST

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

*DATA CHECYING WILL BE PERFORMED'

tieeD
tieeD
tieeD

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

08:41

;
—_—

O—=00

5%:

3
NO

OO
P
o

006037
005737
00404
01273;
00040
013737
013737
013777

T
e

gav53832 R

R
—

Y —

043737

013256

020

2777
3737

SN Y.

—

S
-

o
N

413
700

Tst21:

000021
014306

012285

2227
2228

012210
012214

012700
000300
050077
052777

2230
2231

012230
012234

105077
012777

MASK , TEMP2

TEMP2

012372
012374

000000

167202

DQSTAT
108
#=1,SYNC1
10%:

20%:

167170

167150
167142

#31T1,aDQSEC
#B1T1,aDQSEC
aDQREG

167130

#RXB
F ,aDQSE
UF
C
aDQREG

#-36. ,aDQSEC

16707¢

012304

005867

167054

2241

012312

167042

2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
225
2255

01 2320
012324
012326
012330
012334
012340
012344
012344
012346
012350
012354
012356
012360

105777
00404
062705
001372
104001
012700
012701
012702

012005
012104
043705
020504
001401
104002

1%:

000001
012376
013256
000044

012370

TEMP2,SYNC]
TEMP2,SYNC2
TEMP2 ,aDQSEC
aDQREG

#B1T3,aDQSEC

167104

2239

208

#0,RO
RO
RO,aDQSEC

167116

12300

(RO)+
R1

SYNC , TEMP?

001246
001246
001246

167156
000002
000002
167134
013256

2225

#RXBUFF ,RO
R1

#000000
, MASK

012372

167174
000010

MOV
MOV
MEMCLR

#21,TSTNO
# .EOP NEXT

#11,3DOREG

001246
001510

105277
012777

AR A A AR AR A AR A A A A AR R AP R AR A AR AR AR AR AR AR AR R AR AR A ARk

000011
013052
000000
012370

177777

°%:
3%:

SEQ 0043

TEST 21

737
737

PAGE 44
PROGRAM INITIALIZATION AND START UP.

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

#1,R5
1%
1

#TXBUFF ,RO

sCLEAR ALL THE DQ11
;LOAD THE BUFFER POINTER
sSET UP TO CLEAR THE BUFFER
sCLEAR IT
sDONE?
¢BRANCH IF NO
sSELECT THE SYNC REG
sLOAD SYNCS
sLOAD THE MASK
sSET UP THE MASK FOR THE
sCORRECT SYNC CHARACTER
JSHIFT IT
sSINGLE SYNC CHARACTER?
:IF NO,BR.
s CONTINUE.
;LOAD THE CHARACTER
;DITTO
;LOAD THE SYNC REGISTER
sSEL THE MISC REGISTER
;SET TEST LOOP

‘FLIP THE BYTES

*SET CHARACTER LENGTH
:LgSN CLOCK OFF...
ON
3
;SEL RX PRIMARY ADRESS
;SET ADRESS
;SEL RX PRIMARY CHAR COUNT
JSET CHAR COUNT

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

JSTART TIMING

;1S DONE UP?
JBRANCH IF
SWAIT

YES

sBR IF MORE TO GO
:ERROR==NO RX DONE
;LOAD BUFFER POINTER
sLOAD RX BUFFER POINTER

#RXBUFF ,R1
#30. ,R2

sSET UP TO COUNT CHARACTERS

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

;GET ANOTHER CHAR
;GET A REC CHAR

MASK RS
R5,R4

sMASK QUT UNWANTED BITS

:DO THE CHARACTERS MAT(H?
JBR IF OK

. ERROR==DATA DOESN'T MAT(H

Ak ke

s:++D

Ji++D

L:99)
239D
299D
si++D

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

2256
2257
gggg

012362
012364
012366

005302
001367
104400

000000
026
026

2297
2298
2299
2300
2301
2302
2303
2304
2305
2306

012370
012372
012374
012376
012376
012400
012402
012404
012406
012410
012412
012414
012416
012420
012422
012424
012426
012430
012432
012434
012436
012440
012442
012444
012446
012450
012452
012454
012456
012460
012462
012464
012466
012470
012472
012474
012476
012500
012502
012504
012506
012706
012706
012712
012716

2308
2309
2310

012726
01273
012742

2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281

2283
2284
2285
2287
2288
2289
2290
2291
2292
2293
2294
2295

2307

2311

012722

012746

F
&4
08:41
PAGE 45
PROGRAM INITIALIZATION AND START UP.

4%:

000100
000200
0004
001000
002000
010000
020000
04
1
077777
137777
157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177775

000100

105277

166446
166446
166444
000020
000020
000140
166424
166416

R2
3%

MASK:
O
SYNC1:
.BYTE
26,26
SYNC2:
.BYTE
26,26
TXBUFF:
*B<111111111111111
1>
“B8<0000000000000000>
“B<1010101010101010>
“B<0101010101010101>
“8<0000000000000001>
“B8<0000000000000010>
~B8<0000000000000100>
“8<0000000000001000>
“8<0000000000010000>
“B<0000000000100000>
~B8<0000000001000000>
~B8<000000001
>
~B8<0000000100000000>
“B<0000001
>
“8<0000010000000000>
“B8<0000100000000000>
~B8<0001000000000000>
~8<0010000000000000
“B<0100000000000000>
“B8<1000000000
>
*B<011111111111111
1>
“B<1071111111111111
1>
*B<110111111111111
1>
“B<111011111111111
1>
*B<1111011111111111>
*B<1i1110111111111
1>
“B<1111110111111111>
*B<1111111011111111>
“B<1111111101111111>
“B<1111111110111111>
*B<1111111111011111>
*B<1111111111101111>
*B<1111111111110111>
*B<1111111111111011>
AB<TT1TI11111111101>
AB<TTI1111111111110>
BLkw
100
MEMCLR(LR
aDGRCSR
(LR
aDQTCSR
(LR
aDQERR

026
026

177777
000000
125252
052525
000001
000002
000004
000010
000020

005077
005077
005077
012705
152777
142777
005077

DEC
BNE
SCOPE

1664%
16642¢

1%:

MOV
BISB
BI(R
(LR
INCR

#16. RS
08114 aDQREG
8140, aDQRE
G
acSEC
aDQREG

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

SEQ 0044

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

2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
230

2341
232
233
234
2345
236
2347
gg:g

012752
012754
012756
012762
012766
012772
013000
013004
013012
013016
013022
013024
013026
013032
013032
013040
013046
013050
013052
013054
013256
013256
013656
013660
013662
014064
014266
014270
014272
014274
014276
014300
014302
014304

005305
001364
105077
105077
012705
112777
005077
112777
005077
105277
005305
001362
105077
112777
012777
000002
026
026
000000
013256
000200
026
026
000000
014064
000000
014266
000000
000000
000000
000000
000000
000000
000000
000000

166406
166374
000020
000010
166366
000014
166354
166340

166370

026
026

2%:

166356

166330
000012
000040

166330
166324

.MSTCLR:

LSYNC:
SYNC :
TXBFA:
RXBUFF:

026
e6

2365
2366
2367

DEC
BNE
CLRB
CLRB
MOV
MOVB
(LR
MOVR
CLR
INCB
DEC
BNE
CLRB

RS
1%
aDOREG
aDQRCSH
#16. RS
#10,aDOREG
aDQSEC
#14 ,aDQREG
aDQSEC
aDQR(CSH
RS
2%
aDQR(
SH

MOVR
MOV
RTI
.BYTE
BYTE
(
.=.+200

#M]ISC. ,aDQREG
#B1TS5,aDASEC

SEQ 0045

26,26
26,26

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

2350
2351
2352
2353
Sggé
2356
2357
2358
2359
2360
2361
2362
2363
2364

08:41
PAGE 46
PROGRAM INITIALIZATION AND START UP.

:END OF PASS
;TYPE NAME OF TEST
JUPDATE PASS COUNT
JCHECK FOR EXIT TO ACT=-1
:RESTART TEST
014306
014312
014316
014322
014324
014326
014330
014332
014334

014336
014340
014347

005037
005037
005237
104402
016536
104402
016717
104411
014444

104402
016725
104417

00123
001312
001230

LEOP:

(LR
(LR
INC
TYPE
MEFASS
TYPE
MCSRX
(NVRT
X( SR

TYPE
MVE
(X
(NVRT

LSTERR
ERRFLG
PASCNT

;CLEAR LAST ERROR P(
;CLEAR ERROR FLAG
JUPDATE PASS COUNT

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

2368
2369
2370
2371
2372
2373
2376
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389

2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
5282

014344
014346
014350
014352
014354
014356
014360
014362
014364
014366
014374
014400
014402
014410
014414
014416
014420
014420
014422
014424
014426
014430

014432
014440
014444
014446
014450
014452
014454
014456
014460
014462
014464
014466
014470
014472

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

O08:41
PAGE 47
END OF PASS ROUTINE

0201230
001276

164606

001504
000042

001276

LOGICAL:

002254
002254

001214

002
002
002

JSR
NOP
NOP
NOP
RESTRT: CKSWR
MOV
JMP
XCSR:
1
BYTE
DQR( SR
XVEC:
1
BYTE
DQRVE
(
XPASS:
1
BYTE
XERR:

002

5282

PASCNT
1
BYTE
ERRCNT

PASCNT ,aL IGHTS
SAVNUM
RESTRT
DQNUM, SAVNUM
a4l ,R1
RESTRT

SEQ 0046

:DISPLAY PASS COUNT

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

PC,(R1)

#TST1,RETURN
TST1

6,2
3,2
6,2
6,2

;SCOPE LOOP AND INTERATION HANDLER

2407

014474

2409
26410
2411
26412
2413
2414
2415
2416
2617
26418
2419
26420
2621
2622
2642%

014504
014506
014510
014514

2408

XVEC
TYPE
MPAS SX
CNVRT
XPASS
TYPE
MERRX
CNVRT
XERR
MOV
DEC
BNE
MOV
MOV
BEQ
RESET

014476

014516

014522
014524
014532

014534
014540
014546
014550
014554
014560
014566

104414

032777

001407
000432
105777
100027

017700

000412
032777
001

005237
023737
001012
105037
005037
012737
013737

040000

164474

.SCOPE:
T1IST:

164470

164464
004000

164446

001224
001224

001222

001312
001224
000017
001216

e
(01222
001214

1%:

’%:

CKSWR

BIT

#RIT14,a5WR

MOV

aTKDBR,RO

BEQ
B
1STR
BPL
BR
BIT
BNE

INC
CMP
BNE
(LRB
(LR
MOV
MOV

1%
3
aTK(SR
3%

2%
#SW11,aSWR
2%
LPCNT
LPCNT, ICOUNT
i
ERRFLG
LPCNT
#' %, ,1COUNT
NEXT
,RE TURN

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

2624

2425
2426
Sfi%

014574

014600
014602
014604

013716
000002
001407
000432

001214

3%:
BRW:
BRX:

52%3

014606
014610
014616

532

014624

014620

104414
032777
001402

013716
000002

001000

164362

001220

1$:

014626

010546

2441
2442

014634
014642

062766
005737

000002
016316

000002

014650

032777

010000

164322

2444

2445

2446

2447

014630
014646
014656

014660

017605

001004
001024

000002

2449
2450

014670
014672

100375
012777

2452
2453

014704
014706

100375
012777

000012

2455

014720

100375

2451

2454

2456

2457
2458

5228

014700

014714

014722

014726
014730

014732

105777

105777
112577

001345
012605

1%:

3008:

100014

014664

TYPE:

105715

014662

2448

164320

01473

000015

164304
164270

RS,=(SP)

ADD
TST

#2,2(SP)
RDSW

BIT

#SW12,aSWR

BNE
BNE

TSTB

RPL

a2(SP) ,RS
3008
3%

(RS)

aTPCSR

=4
#15,aTPDBR

164276

BPL
MOV

=4
#12,aTPDBR

BPL

TSTB

2%:

TSTR

MOVB

2467
2468

014754
014756

104402
000000

2470
2471

014764
014770

000004

=
014756

2466 014746 062766 000002 000004
014760

012704

012703
105777

2472
2673

014774
014776

2475
2476

015006
015012

121427
001003

015020
015022

000755
122427

2477

MOV

164312

164264

010346

010446
017637

2478
2479

LOCK, (SP)

BNE
MOV
RTI

aTP(SR

(RS) +,aTPDBK

1%
(SP)
+ RS

;ASCII STRING INPUT ROUTINE

014736
014740

2474

RTI

ISTR

000002

2664
2665

2469

MOV

#SW09, ASWR
1%

BPL
MOV

5225
2463

RETURN, (SP)

;TELETYPE OUTPUT ROUTINE

2439

2443

RT]
1407
432

.SCOP1: CKSWR
BIT
BEQ

ggg

2440

MOV

;CHECK FOR FREEZE ON CURRENT DATA

2431
2432
2633

26434

08:41
PAGE 48
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ,ETC.)

015002

015014

100375
117714
142714

104402

017110

000007
164210

LINSTR: MOV

MOV
MOV

ADD

JINST1: TYPE
MSG:
0

MoV

1$:

164204

000200

000025

016476

000015

R4 ,=(SP)
?%(SP),.MSG . .

#2.4(SP)
#7.,R3
aTK(SR

BI(B

#200, (R&)

BPL
MOVR

1%
ATKDBR,
(R4 /

(R4 ) .#25
200%

TYPE ,MCRLF

e
(MPB

# INBUF R4

MOV
7STB

CMPR
BNE
.
2008:

R3,=(SP)

LN
(R&)+ 415

215 17 <G>

SEQ 0047

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

2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497

2498

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

001423
117777
105777
100375
005303
001350
000402
010346
010446
104402
016472
005737
001402
104402
000727
012604
012603

164152
164146

016216
016476

,
164154

BEQ
INSTR2
MOVR
@TKDBR,aTPDBR
2%:
TSTB
aTP(CSR
BPL
2%
DEC
R3
BNE
1%
BR
.INSTG
LINSTE: MOV
R3,=(SP)
MOV
R4 ,=(SP)
LINSTG: TYPE
MaM
TST
SHRDSW
BEQ
400%
TYPE ,MCRLF
400%:
BR
LINST1
INSTR2: MOV
(SP)
+ R4
MOV
(SP)+,R3
RTI

sggg

;CONVERT ASCII STRING TO OCTAL

2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526

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

010546
010446
016605
012537
012537
012537
112537
112537
010566
005005
012704
122714
001420
121427
002415
121427
003012
142717
152405
122714
001414
006305
006305
006305
000760
122714

2528
2529
2530
ggg}

015226
015232
015234
015236

005737
001023
104404
000742

016316

015240

020537

015312

2527

5?%2
2535

08:41
PAGE 49
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

015224

001003

000004
015310
015312
015314
015316
015317
000004
017110
00001
000060
000067
000060
000015

000015

.PARAM: MOV
MOV
MOV
MOV
MOV
MOV
MOVR
MOVR
MOV
PARAM1: CLR
MOV
CMPR
BEQ
1$:
CMPR
BLT
CMPR
BGT
BICR
BISR
CMPR
BEQ
ASL
ASL
ASL
BR
PARERR: CMPR

BNE

120%:

TST
BNE
INSTER
i

RS,=(SP)
R4 ,=(SP)
4(SP) ,RS
(RS)+,LOLIM
(RS)+ HILIM
(RS) +,DEVADR
(RS)+,LOBITS
(RS)+,ADRCNT
RS,4(SP)
RS
# INBUF ,R4
#15, (R4)
PARERR
(RG) ,#60
PARERR
(R4) 467
PARERR
#60, (R4)
(R4)+,RS
#15, (R4)
LIMITS
RS
RS
RS
1%
#15, (R&)

120§

RD SW
PART]

PARAM1

;1S FIRST CHARACTER A <(R>
;1S CKSWR ROUTINE BEING USED

JTEST TO SEE IF NUMBER 15 WITHIN LIMITS

LIM]TS: (MP

KS,HILIM

SEQ 0048

CZDQH

MACY11 30A(1052)

CZDQHD.P11
2536
2537
2538
2539
522?

015244
015246
015252
015254
015260

07-JUL-78

09-JUN-78 07:59
101365
020537
103762
133705
001357

08:41

BHI
CMP
BLO
BITB
BNE

015310
015316

015262
015266
015270
015274

2549
2550
2551
2552

015302
015304
015306
015310

2555
5229

013704
010524
062705
105337

015300

001372

015312
015314

000000
000000

015316

015374

000002
015217

012604
012605
000002
000000

PARTI:

000000
015317

015320

016637

0000064

010537
010437
010337
010237
010137
010037
000002

001270
001266
001264
001262
001260
001256

2574
2575
2576
2577
2578

015360
015364
015370
015374
015400

013700
013701
013702
013703
013704

001256
001260
001262
001264
001266

ggg?

015410

000002

001274

.SAVOS: MOV

015404

4(SP) , SAVPC

013705

SV0S:

MOV
MOV
MOV
MOV
MOV
MOV
RT]

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

.RES0S: MOV
MOV
MOV
MOV
MOV

SAVRO,RO
SAVR1 .R1
SAVR2.R2
SAVR3.R3
SAVR4 .Ré4

001270

MOV
RT]

SAVRS RS

JCONVERT OCTAL NUMBER TC ASCI! AND OQUTPUT TO TELEPRINTER

2584
2585
2586
2587

015412
015414
015416
015420

2589
2590

015424
015426

2591

TEST THAT FAILED AND RO=RS

;RESTORE RO=RS

%553_25

2588

(SP)+,Ré
(SP)+.RS

;SAVE RO-RS
015326
015332
015336
015342
015346
015352
015356

2579

MOV
MOV
RTI
0

BNE

JSAVE PC OF

2564
2565
2566
2567
2568
2569
52;9

i ‘32;%

DEVADR,
R4
RS, (R4) +
#2.RS
ADRCNT

LOBITS: 0
ADRCNT=LOBITS+1

2562

2563

MOV
MOV
ADD
DECB

LoLIm:
HILIM:
0
DEVADR: 0

%ggg

5229

PARERR
RS,LOLIM
PARERR
LOBITS.RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS

2544
2545
2546
2547

2553
2554

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

5%2%

2548

PAGE 50

104402
016476
010046
010146

015422

010346

015430

017601

010446
010546

LCONVR: TYPE
MCRLF
LCNVRT: MOV
MOV

MOV

000012

MOV
MOV

MOV

RO, =(SP)
R1.=(SP)

R3.=(SP)

R4 ,=(SP)
R- =(SP)

@a12(SP)
R

SEQ 0049

2636

ENCOOOOSNANANE
N
=S OWWWO
WM
NYINININONN

= D s ay~N
YNNI
NWNINB

—

YO R

—

-—

§§a§?oo~oo~ao§o
o N?NWWWNNN W

MOV

3%:

MOVB
MOV

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

MOVB

(R1)+.CHRCNT

MOVB
MOV
MOV

DEC
BNE

017214

4%:

015635
5%:

6%:

015632

:FFEXX

001250

017152

R&
R4
R&

RS
3%

MOV

#MDATA R3

BNE

BEQ
MOVB
DE(B
BNE
CLRB

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

MDATA
DEC
BNE

WRDCNT
1%

MOV
MOV
MOV
MOV

+ ,R4
(SP)
(SP)+ ,R3
(SP)
+ ,R1
(SP)+ RO

MOvB
DECB
TSTB

000040
015635

#177770.R3

#060,R3
R3, (RO)+

ROR
CLC
ROR
CLC
ROR

015634

#2,12(SP)
(R1)+,WRDCNT

BIC

SEQ 0050

TEMP, TEMP3

ADD
MOV

ADD
MOVB

405

N'\JNNNW-‘\AVE

~N
n

x
R

001250
000012
1%:

2703

—_—

VIV
S S O
SNOONSO

vivvoavovvoa

SEETESS SEEE
LV]

)
D
d
)
D
e
e

v Vi

—
b

—
—

015576

017152
000002

L &
PAGE 51
08: 41
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE ,ETC.)

004
000241
006004

—_— 2
—a
292929282
o3
O - 8—.8—.-.0
OO0 ==
N =2 NN = N =2\ I

23332
FROEFRNVSFRERE S
R

D
—

e
d e
D
) e
)
)
)
)
)

elRNTo NV, P
YWI,N)

2611

XY X
R
&
5" RRRE

vv
i

olelelalelelolelelelolalololololololelolololelele]

33
W

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

TYPE

MOV
MOV

=(R0),(R3)+
CHRCNT
SPACNT

TEMP3, TEMP
(SP)+,RS

WRDCNT: 0

000000
015635
000000

CHRCNT: 0

SPACNT=CHRCNT+1

BINWRD: C

JTRAP DISPATCH SERVICE

JARGUMENT OF

TRAP IS EXTRACTED

JAND USED AS OFFSET TO OBTAIN POINTER
sTO SELECTED SUBROUTINE

000002
000000
177001

.TRPSR: MOV
st

TRPOK:

MOV
ASL

BIC

(SP) ,=(SP)

:GET PC OF RETURN

a8, (sP)

:GET

#2,(5P)
b

#177001,(SP)

1=PC OF

TRP

TRAP

sMULTIPLY TRAP ARG BY ¢
;CLEAR UNWANTED BITS

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

015664
015670

062716

017616
000136

M 4
PAGE 52
08:41
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

001314
000000

ADD

MOV
JMP

#.TRPTAB, (SP)

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

;ERROR HANDLER
1
032
00;

010000

NWN

015672
015674
015702

CKSWR

163276

163272
163252

TSTB

STPCSR

MOvB

#207 aTPDBR

BNE
CMP

HALTS
%gP).LSTERR

BPL
XBX:

001234
001234
001312

#SW12,aSWR

BEQ

163300

000207
020000

BIT

1%:

000002

BIT

MOV
CLRB
SAVOS
MOV

177001

016114

001312

(SP) ,RS

ADD
ASL
BIC
ADD
MOV
MOV
MOV

(RS) ,Ré4
R
#177001
R4
# .ERRTAB
R4
(R4)
+ ,ERRMSG
(R4)+ ,DATAHD
(R4) ,DATABP

TSTB

ERRFLG

TST

DATABP

MOVB

#-1,ERRFLG

BEQ

WRKO.FM

TST

DATAHD

BNE

TYPMSG

TYPDAT

o
n

-t

177777

016070

001312

TST

ERRMSG

W~
~N

ERRMSG:

D
D
) —d
)
D
D
D

SRR8 oo

d —d e

b ad abd

_—

ooonon

olelelelelelelolelelelele]

gessesse S

TYPMSG:

(SP) ,LSTERR
ERRFLG

#2 RS
(R5) R4

BEQ

016114

#SW1%5,a5WR

SUB
MOV
ASL

017624
016070
016102

XBX

016102

016114

WRKO.FM:

BEQ
DATAHD:
TYPDAT:

TYPE
TST

BEG

TYPDAT

DATABP

RESREG

;POINTER TO SUBROUTINE ADDRESS
< SUBROUTINE ADDRESS
;GO TO SUBROUTINE

SEQ 0051

CZDQH

MACY11 30A(1052)

CZDQHD.P11
2704
2705

2706
2707
2708
2709
2710
|
|

2711
2712
2713
2714

2715

2716

2717
2718
2719
2720
2721
2722
2723

2724

2725
2726

2727

2728

2729
|

07-JUL-78 08:41

016116
016120
016124
016126
016130

016134
016136
016140
016142

016146
016154

016156
016164
016166
016174

016200
016204
016206

016210

000002

032777

0QC1232
000400

163026

032777
001407
013737
012706

002000

163014

001216
001200
163010

001214

006

002

003

002

000177
000002
000001

016212
016214

001274
000001

016220

001226

016216

RESREG: RESOS
HALTS: TST
BPL
PUSHRO
MOV

104407
005777
100005
010046
016600

001007

163054

016222

2733

016222

012737

2735

016232

000777

2734 016230 000000

2740

27641
2762
2743

#SWOB,aswR

‘$:

BIT
BEQ
MOV
MOV

#SW10,aswR
28
NEXT,RETURN
ASTACK,SP

BYTE

6,2

XTSTN:

SAVP(
1

BYTE

3,2

JMP
RTI
28:
1
ERTABO:

fSTNO

016234

016242
016246
016252

012737

012706
005037
005237

2745
2746
2747
2748

016260
016262
016064
016266

104402
016500
104411
016310

2751

016300

10441

2752
2753
2754
2755
2756

5738

2759

QRETURN

;ENTER HERE ON POWER FAILURE
016234

000024

PFAIL:

MOV

WRESTART,24

HAL T

;SET_UP FOR POWER UP TRAP

ON POWER DOWN NORMAL
HALT

:PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

2764 016256 001375
2749
2750

2(SP),RO

BIT

BNE

ez
2739

@SWR
EXITER

.
HALT
POPRO
EXITER: CKSWR
ERRCNT
INC

2730

2731
2732

SEQ 0052

CONVRT
DATABP: 0

104410
000000

000000
012600
104414
005237

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

09-JUN-78 07:59 .

016112
016114

PAGE 53

016270
016274
016302
016304
016310
016312
016314

016222

001200
017152
017152

005037
005037

001312
001234

10441
000177
000001

|
162704

003
001226

002

000024

RESTAR:

MOV

MOV
(LR
INC

BNE

TYPE
MPFA]L
CNVRT
PF TAB

(LR
(LR

MSTCLR

PFTAB:
BYTE

MEMCLR
JMP
1
3,2
T4TNO

#.PFAIL,24

#STACK,SP
TEMP
TEMP

;SET UP FOR POWER FAILURE

ERRFLG
LSTERR
QRETURN

;CHECK SWITCH REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING

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

2760
2761
2762
2763
2764
2065
2766
2767
2768
2769

2771
2772
2773
2775
2776
2777
2778

5779

000000

016320
016324
016326
016334
016336

005737
001042
022737
0010 36
105777

000042

016344
016352
016360
366
016370
016374
016400
016404

017737
042737
122737

162636
177600
000007

104402
005137
104402
104411

016446
016316
016452
016440

104403

RDSW:

. CKSWR: TST

000176

BNE
CMP

001200

162642

TSTB

BPL
MOV

01
014756
O1

BIC

C(MPB

BNE

(TYPE OUT,ERROR,SCOPE,ETC.)

;OF LOC.176.
;LOCATIONS USED:

016316

016410

08:41
PAGE 54
GENERAL UTILITIES

.WORD

el
ouT
lS?REG.SUR
oU
@TKCSR

ouT
aTKDBR, .MSG

#177600. .MSG
#7,.MSG
ouT

;SOFTWARE SWITCH REGISTER PRESENT
:NO, GET OUT
$YES,WAIT FOR
:READY,

GET CHARACTER

:AND STRIP OFF

: THE GARBAGE
JIS IT A <*G>

TYPE ,$CNTG

.CNTLU: COM

A#RDSW
TYPE
, SMSWR
CNVRT
, SWREGC

016461

INSTR, SMNEW

PARAM

0
177777

2784
2785
2786
2787
2788
2789
2790
2791
2792

016424
016426
016432
016436
016440
016442
016444
016446
016452

104402
005037
000002
000001
006
000176
057377
051656

000107
051127

020075

$CNTG:
$MSWR:

2794

016461

040

047888

053505

2797
2798
2799

016472
016476
016500

016472
020040
000377
050377

051127

2801
2802
2803
2804

016514
016522
016530
016536

051505
040440
052123
042116

2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815

016544
016552
016
016563
016570
016576
016604
016612
016620
016626
016632

051040
052122
042524
042777
051501
050504
051377
377
040522
044504
029123
053105

050040
052116
044777

001
016476
016316

.BYTE
ouT:

SWREG

0,1

TYPE ,MCRLF

CLR

RTI

a#RDSW

SWREGC:
.BYTE
6.2
)

002

ASCIZ
LASCIZ

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

S$MNEW:

ASCIZ

NEW= /

ASCIZ

043040

.EVEN
MQM:
MCRLF:
MPFAIL:

040524
020124
000040
050040

MEPASS:

LASCIZ

<377>/5END PASS DZDQH

MR:
MERR2:

LASCIZ
LASCIZ

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

MERR3:

CASCIZ

<377>/INSUFFICIENT DATA:/

000077

020123
020110
000
051120
020115
040503
047516
041511
042522
000056
051516

055104
000040
043517
047111
042524
042040
051505
-

SWREG

ASCIZ
.ASCIZ

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

042523
043125

SEQ 0053

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

08:41
PAGE 55
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

SEQ 0054

2816
2817
2818
2819
2820
2821
2822
2823
2824
2825

016640
016646
016654
016656
016664
016670
016676
016704
016712
016717

044506
02012?

044503
040504

047105
040524

052377
041520
046377
047117
041505
042524
103

051505
000055
041517
051440
042524
052123
051123

020124

MTSTPC:

.ASCIZ

<377>/TEST P(C=/

020113
046105
020104
000
020072

MLOCK:

.ASCIZ

<377>/LOCK ON SELECTED TEST/

MCSRX:

.ASCIZ

/CSR: /

2827

016725

126

041505

020072

MVECX:

.ASCIZ

/VEC: /

2830
2831

016733
016740
016744

120
035123
051105

042523

MPASSX:

.ASCIZ

/PASSES: /

051522

MERRX:

.ASCIZ

/ERRORS:

2833
2834

016755
016762

377
020888

051501
000040
047522
000
052377
047516

051505
020072

MTSTN:

.ASCIZ

<377><377> /TEST NO: /

2836
2837
2838
2839

016771
016776
017004
017012

377
053523
051040
020117

042523
052111
043505
050504

020124
044103
052040
030461

MNEW:

.ASCIZ

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

2842

017034

052688

053111

027105

2844
2845
2846
2847

017043
017050
017056
017064

120
046777
020106
051440

035102
050101
050504
040888

000040
047440
030461
052524

MERRPC:
XHEAD:

.ASCIZ
.ASCIZ

/PC: /
<377>/MAP OF DQ11

2849
2850
2851
2852

2853

2854
2855
2856
Sggg

2859
2860
2861
2862
2863
2865

017076
017100
(17102
017104
017106

017076
000002
006
001244

006

001246

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

003

002

STATUS/<377>

6,3

6,2

;BUFFERS FOR INPUT=QUTPUT

017110
017152

017214
017256
017317
017352
017400
017436
017513
017541

000000
017152
000000
017214
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:
EMI1:
EM2:
EM3:
DHO:
DH1:
DHc:

0
C

0
ASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ
ASCIZ
ASCIZ

<15><12>/RECEIVER DONE PRIMARY NOT SET!/
<15><12>/DATA COMPARISON ERROR.../
<15><12>/DQ ERROR FLAG SET. /
<15><12>/NO RECEIVER INTERRUPTS!'!'! /
<15><12>/EXPECTED FOUND RX ADDR.
TX ADDR.
< 5><12>/EXPECTED RECEIVED /
<15><12>/DQERR
/

MASK /

.EVEN

004

DTO:

001

SAVR4
.BYTE

004

SAVR1

004
002

006

DT1:

DT?:
.ERRTAR:

?_a_am&
WNON

NNNNNN

6.4
6.1
6.4

6.4

6.2

2
.BYTE

3.6

MASK

gHAR

3.2

.BYTE
ERR

JHALT

SHALT
JHALT

JHALT
.END

(TYPE OUT,ERROR,SCOPE,ETC.)

SAVRO
.BYTE

GDCHAR
.BYTE

002
002

5
.BYTE
SAVRS

017556

000005
006
001270
006
001266
006
001260
006
001256
006
012370
000002
003
014302
003
014274
000001
006
014266

PAGE 56
GENERAL UTILITIES

NN
W

i
s b i
b

2
o

i d

(elelelolelslolelelols]

017556

08:41

CZDAH
MACYN 30A(1052)
07-JuL-78
CZDAHD.P1
07:59
09-JUN-78 0

SEQ 0055

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

SEQ 0056

CROSS REFERENCE TABLE == USER SYMBOLS

723
731

1353
1767
2228

BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

—_——

6054

PAGE S8

oo &~

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

08:41

1491
1899

1492
1964

1560
1965

2030

2031

1694

1762

1828

1894

1561

1629

BIT13 = 020000

BIT14
BIT15
BIT2
BIT3

=
=
=
=

040000
100000
000004
000010

BIT4

= 000020

BITS
BIT6
BIT7
BIT8
BIT9
BRW
BRX

= 000040
= 000100
= 000200
= 000400
= 001000
014602
014604

CHAR3

001242

1487

1556

1625

2308
2327

23444

2880

CHRCNT 015634
CKSWR = 104414
CNTLU = 104415
CNVRT = 104471
CONVRT= 104410
COUNT
014276
001
CREAM
CSRMAP 000220
DATABP (016114
DATAHD 016102
DETCAR 014304
DEVADR 015314
DHO
017436
DH1
017513
DH2
017541
DISPRE
000174
DLIGHT= 177570
DQACTV
00
DQCROO
00

2615+

26354
1012

2636
2389

2407

2431

2654

2713

2367
2704

2371

2375

2684

2688

2747

2778

1051~

1055+

1064

1065+

1066

1067+

2702
27014

27054

754

9204

994~

995

838888

SE2858

014274
000010
001236
001240

E
3

CHAR
CHARDT=
CHAR1
CHAR2

1418

997

25544

749+

750

1045

1047

CZ0QH
MACY11 30A(1052)
07-JuL-78
CZDQHD.P11
09-JUN-78 07:59
DQCRO5
DQCRO6
DQCRO7
DQCR10
DQCR11
DQCR12
DACR13
DQCR14
DQCR1S
DQCR16
DQCR17
DQCSR
DQERR
DONUM
DQRCSH
DQRCSR

DQREG

001424
001430
001434
001440
001444
001450
001454
001460
001464
001470
001474
001506
001366
001504
001362
001360

898#
9004
9024
904#
064
9084
S10#
9124
9144
9164
9184
9234
8784
702+
8764
8754

1435

001370

8794
1138+«
1211«

1083«
1143+«
1213+«

16472+«

| DQSECH
DQSTAT

001374
001510

DQSTO0
DQSTO1
DASTO2
DASTO3
DQST04
DASTOS
DASTO6
DASTO7

001402
001406
001412
001416
001422
001426
001432
001436

1334+«

14686+

1631+
1770+
1904+

1068
1082«
744
1078+
1077
15

1083
7646
2315+
1079

1570«

1179
9224
2321x
1160+
1573

2306+
2380
1210

1219+

1294x

1297

1639«

1642

1708+

1711

1776

2106+

2109

2172«

2175

2238+

2241

2304+

1084+
1165«
1274+

1085
1166
1220%

1120*
1168+
1222+

1122«
1185+
1223

1124+
1188+
1232+

1126
1189+
1245+«

1128+
1191+
1265+«

1130+
119%+
1279+

1132+
1196+
1286*

1134+
1197«

1136+
1199«

1348+

1493+

1633+
1772«
1906*

1355+«

1495+

1635+
1774~
1966+

1357«

1497+

1637+
1814
1959«

1359+

1499+

1679
1827+
1966*

2100%
2234*

8724
8714

8804

1071«
1069+
1085+

1072«
1070
1086+

1073
1071
1087

1157+
1156~
1121«

2397

1278«

1280+

1283+

1284+

1285+

1287+«

1837«
1960
2033+

2156%
2229

8814
9244
1820
8854
8914

8934
8954
8974
8954
9014
9034

1144+

1167

1358+
1487+
1563+«
1692+

1360+
1490%
1565+
1694+

1833«
1963+«
2035+

[84l*
1964+
2037+

1892+
1965+
2039+

1087+«
1066«

1088+
1069

1766+

2158+
2231+
1886

1845

2043

2098+
2232«

1356+
1485+
1561+
1638+

1842«

1432+

2040%

2091+
2230%

1354+
16431+
1560+
1636+

1779

1366

1977

2078+
2223+

1142«

1363«

1974

2038+
2210%

1139«

SEQ 0057

1204
936
2324«
1208

c036+
S%Sg.

1765+

1501«

191

1626+
1768«
1902«

001352
001350
001372

1064+
1081«
739
1077+«
1068+

;ggsfi

1292+

DORLVL
DORVEC
DQSEC

F
5
08:41
PAGE 59
CROSS REFERENCE TABLE == USER SYMBOLS

1767+

2161+
2233»
1952

1769*

1187+

1362+
14G1x
1567+
1697+«

1771

1123

1190+

1416%
1492«
1569+
1698+

1773«

1361+

1541+

1693«
1834+
1968+

1403«

1555+«

1700+
1836+
1970«

1417%
1562+

1424%

1564*

1426*
1566*

1706*
1880+
2025+

1748+
1893«
2032+«

2166*
2317+

2168+
2310

1129

1131+

1133«

1135«

1137«

1349%

1352+

2144
2309+

1195+«

1125«

1127+

1289+

1418+
1494
1623+
1699+

1291+

1212«

1421+
1496+
1625+
1701«

1422+
1498+
1628+
1703+«

1423%
1500*
1629+
1705«

1425+
1554%
1630+
1707+

1898+
1971+
2095+«

1899+
1973«
2096+

1901+
2024+
2097+

1903+
2026*
2099+

1407

147¢

1545

1775+

2162+
2235+«

2163+
2237«

1897+
1969+
2092+

2165+
2310+

2167+
2318+

1109
2018

1140
2084

1269
2150

1338
2216

1826«

2169
2320%

1610+

1704+
1840+
2012+

2104*
2308+

1894+
1967+
2090%

1568+

1290

1430%

1702+
1838+«
1972+

2102+«
2236+

1198+

1288+

1428+

1293+

1828+

2171x
2327+

2157+
2311x

1215+«

1347+

1831+

2222+«

2164*
2314*

1221=

1224+

1761*
1900+
2034+

1233«

1353

1427+
1556+
1632+
1760*

1429+
1559+
1634+
1762+

1905+
2029+
2101+

1907+
2030
2103+

1958+
2031+
2105+

1614

1683

1754

1832+«

2224»

1833+«

2227+

1835+

2228+

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

DQTCSR

001462

001466
001472
001476
001364

DQTLVL
001356
DQTVEC
001354
DSWR
= 177570

DTO
DT1
DT2
EMO
EM1
EM2

EM3
ENDTS2

ERR

9054

9074
9054
9114
9134
9154
9174

9194
8774

1640*

1186+

2692+

2749+

2041+~

8744

DAST1S
DAST16
DQST17

SEQ 0058

oo
NW

DAST14

001442
001446
001452
001456

n) —

DASTI0
DAST11
DAST12
DAST13

08: 41
PAGE 60
CROSS REFERENCE TABLE == USER SYMBOLS

1295+

2173+

1364+

2239+

1433+

2305+

1502+

1571«

017556
01760«
017616
017256
017317
017352

017400
003332

014266

2883
2714+
2420+

2665+

2678

2878

MCRLF

Q16476

MDATA

017214

MCSRX

=R o

(AW P
p—

meg

012370

— 000N
&

MASK

001220
014420
001313
015310
001224
001234

N =3 —d 20

LOCK
LOGICA
LOKFLG
LoLIm
LPCNT
LSTERR

W00
— 00

2422+

1474
1682
1949

2252

016717

MEMCLR= 104413

1535

1604

1673

1742

1808

1874

1940

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

MEPASS
MERRPC
MERRX
MERR2
MERR3

MISC. =
MLOCK
MNEW
MPASSX
MPFAIL
MQM
MR
MSTCLR=
MTITLE
MISTN
MTSTPC
MVECX
NEXT

016536
017043
016744
016563
016632

2360
2687
2374
761
991

000012
016670
016771
016733
016500
016472
016560
104412
001000
016755
016656
016725
001216

6314
1015
984
2370

2746
2490
1033
8574
7708
2683
1024
2366
7894
1939+
6len

0DDBIT= 001000
ouT
016432

2766

PARAM1

25104

PARAM = 104405

PARERR
PARTI
PASCNT
PFTAB

POLY
POLY. =
POPRO =
POP1SP=
POP2SP=
PS
=
PUSHRO=
PUSH1S=
| PUSH2S=
RDSW
RESREG
RESTAR

015220
015302
001230
016310

014270
000017
012600
005726
022626
177776
010046
005746
024646
016316
(016116
016234

RESTRT 014430
RESOS = 104407
RETURN 001214

| RN

RUNCNT
RUNFLG

847w

015144

001304

001306
001302

2513
2529
794
2748

2362n
6364
5834
5814
5854
575#
5824
5804
5844
2462
2703
2733

08:41
PAGE 61
CROSS REFERENCE

2804#
2B44H
28314
1059
2815#

TABLE == USER SYMBOLS

SEQ 0059

28084

2326
2821«
2836#
829

279%
27974
28074
2751
965
28334
2815#
28274
1039+
2005+
732

2768

1106+
2071+

1258+
2137«

1327+
2203«

2770

2774

27864

1025

2780

2515
2549#
938+
2754#

2517

2526

2536

2358«

2377

2400

933«

1008

1115«

2528

27¢2m

2776%

1034

2531

1396+
2423

1465«
2719

2538

2540

1534»

1603*

1672+

1741x«

1807+

1873+

2390«

2423+

2624

2719+

2721

2753

2712
672+

2709
2691

2379
8514
7884

27064
273
2382
2706
945«

238
1028

i
103c+

8204
8184

1043+
940+

1052+
1040

1054+
1044+

8194

1042+

1045

1050+

1056+

2786~

1038«

1063s

1104+

1467
1769

2049

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

SAVNUM
SAVPC
SAVRO
SAVR1
SAVRZ2
SAVRS
SAVRSG
SAVRS
SAVSP
SAVOS =

001276
001274
001256
001260
001262

001264

001266
001270
001272
104406
SCOPE = 104400

747
8154
808
8094
8104

8114

B12#
8134
8144
B4O#
8374
2060
8394
6334
11204
2596+
5764
8254

8164
2560+
2569+
2568+«
2567+

936«
2725
2574
2575
2576

2565+
2564+

2578
2579

2566+

1454

2617
934

2620
1009

_
26364
2720

2741

001200

774

SWREG
SWREGC

000176
016440

690#
2778

956
2788#

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

5554
554#
5534
5524
5514
5S04
549#
5484
5478
5464
5454
544k

1021

SW00

= 000001

SWw01
SW02
Sw03
Sw04
SW05
SW06
SW08
SW09
SW10
SW11
SWw12
SW13

=
=
=
=
=
=
=
=
=
=
=
=

SW15

= 100000

SW14

= 040000

SYNBIT= 100000
SYNC
013052

SYNC.
SYNCT

= 000011
012372

SYNCZ2

012374

TEMP

017152

TEMP1

TEMP?

001244

001246

2432

SS56#4

5434

5428

6154
1111«
1947
6304
1276*
1888+«

2154«
1277«
1705

2592

669+

804#
1307«

1378
1475«
1549«

1621

2869
2867
1385

SWR

25644

2873
2871

2258

937~
947+

2444

131¢

952

2655

967

SEQ 0060

2380+

2192

104640
000014
002752
015635
001200
001311

015326

2577

2378+

2666
1176
2126

SCOP1 =
SEQ.
=
SETON
SPACNT=
STACK =
STFLG

SV05S

08:41
PAGE 62
CROSS REFERENCE TABLE == USER SYMBOLS

956w

2660

967

2707

1523

970

1592

1730

1796

1862

1928

1994

2715

2717

2767

988

994

1013

1021

2408

2415

1473

_
1542

1611

1680

1749

1815

1881

2767

2783

2730

1266

2145

1335

1404 -

2211

2330#

1483+

1552+«

981

1661

981

2715
2432
2717
2415
2444
2660
712
1114+

2013

1345+

1890+

2169

129
1759«

2600

670+

975«
1308«

1404+
1479«
1551+«

1622

2655

1109
1125

2079

1414+

1905

2218+

1346«
1825+«

2627«

8034

1162+
1309

1406+
1480
1552

1623

1722«

1954«

2220+
1360
1891+

1956+

2235

1415«
1957+«

1621+

1690+

1756+

1758+«

177%

1822

1824+

1839

1971

2020«

2022«

2037

2086

2088+

2103

2152+

1429
2023+«

1484
2089+

1498
2155+

1553
2221+

1567
22644

1622

1636

1691+

1272«
1344+

1273«
1345
1416

1275+
1346

1276
1347

1277
1376
1447

1278
1377+

22634

2742+

2743«

28614

1171«
1335«

1%%3'
1337«

1266*
1341«

974

1410+
1482+«

375

979+

2852

1413
1484

1414
1485

1654

1680

155

1411 »
1483
1554

1583+

1723

1749

1751«

1652

1453«

1268+
1342+«

1584«

1415
1514«
1585

1515«

1445+
1516

1682+

1686+

1687+

1613+

1446+
1542+
1617«

1689+

1690

1618+

1473
1548+
1620+

1753«

1758

1759

1760

1815«

1817«

18109«

1611

1544+

1691

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

Sggg

2145«

1826
2013+

2147+

2149«

2154

1163

1241«

2592«

2627

2411
¢413
2350%
2448
2450%

2471
2473

2769
2481

2771

2451
2453+

2454
2456%

2482
2481x

2657
2659«

944+
1938+
1032
1602#
16714
17404
18064
1872#
1938#
2004#
20704

1037«
2004+
10374

1103«
2070
2390

1257«
2136«
2391

1019«

1020+

2409#

1216

23314

001250

805#

TEMPS

001254

807#

001252

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

8064

TST12
007070
TST13 - 007420
TST14
007750
TST1S
010300
TST16
010630
TST17 ~ 011160

7814
782#
1027
7838
784k
26464
7934
1872«
1026
1534
1603
1672
1741
1807
1873
1939
2005

1ST20
TST21
TST22 =
IST3 °
TST4
TSTS

2071
2137
2203
1106
1258
1327

TST1I0
TST11

TST2

002254

006154
006522

002644

011510
012040
wxnsnx |
003756
004324
004672

TST6
1ST7
TTST
TXBA.P=
TXBA.S=

005240
005606
014504
000002
000006

TXBUFF

(C12376

TXBFA
TXISR

TXWC.P=
TXW(C.S=
TX.BCC=
TX.Mux=
TYPDAT
TYPE
=

013054

003334

000003
000007
000016
000013
016104
104402

1825
1958

TEMP3
TEMPS

08:41
PAGE 63
CROSS REFERENCE TABLE == USER SYMBOLS

1038

1396
1465
1016
6224
6264

1146

1302

1164*

1169+

1039

1103

21364
22024

2350

14644
1533#
1017«

1187

137°

1440

2246

2265#

6234
€278
6354
632#
2681
760

2699
8414

2702#
965

2373

1883«
2017«

1885+
2022

1890
2023

1897
2024

1326
2202+«

1395«
2728

1464*
2756

1647

1716

1784

2155

2156

2211«

1892
2079«

1947+«
2081+«

1949+
2083+«

1951«
2088

1956
2089

§
1533«

1602«

1671«

1740+«

1806+

1850

1916

1982

2048

2114

1058

2359

2361

2365

2369

2213«

2215+«

2220

2221

2222

1257#
13264
13954

2180
1158

1881«
2015+«

SEQ 0061

11764

2467

2477

1509

973

248S

1578

583

2493

990

2584

101§

2623

1033

2682

2686

2690

2695

2700

2745

HACVH SOA(‘IOS?)

xPASS
XPOLY

014460
014272
014064

LZDQHD PN

XRXBUF
XSTATQ
XSYNC
XSYNC2
XTSTN
XTXBUF
XVEC
SCNTG

0S=JUN=-78 07:59

017076
013656
013660
016214
013662
014452
016446

= 000023

SMNEW
016461
SMSWR
016452
N
= 000021
3

= 000016

= 017670

BEGIN
(KSWR
CNTLU
CNVRT
.CONVR
EOP
ERRTA

002116
016320
016374
015416
015412
014306
017624

.INSTE
.INSTG

015052
015056

JHLT

07=JUL=78

015672

237%'
23
1129

978
1112«
2336#
2685
1133

2368
2775

1534
19404
2779
2777
1%
1531
19404

1225

1039

10404

1106

1603
20064
10404

16044
2071
1101

23374

1107#

16734
2137

1107#

1397#
1873

1465

18744

14664
1939

13284

1393

1397#

1462

14664

1808#
23504

1870

18744

1936

8514

8534

855#

8574

6524
7764
8984
9114
924M

65604
8174
8994
9124
971

676
8874
9004
9134
976

6884
888#
9014
9144
980

6944
88%#
9024
9154
993

6974
8904
9034
9164
1061

701
8914
904#
9174
1141

717
8924
905#
9184
1180

722
8934
064
9194
1205

2740

84?2

18084

1804
22044

27328

648

1396

1324

2773

646

1807
22044

17428
2200

2772«

854
2203
2674

13284

12594

2771

856

17428
2203

1738
21384

23404

7694

1327

1673#
2134

8974
9104
9234
23384

764

8354

174"
21384

1255

8964
9094
9224
2334m

729

837

1259%

1669
20724

8954
S08#
9214
2332&
28654

8284

1258

1672
20724

8944
9074
9204
23028
2864
10084
862
864

B36#

1195

8654
6504

001314

27264
1151

1535#
2005
27944
27924
1035

23394

8634
6434

TRPTA

014626

23354

<3954
27914

1226

8614
641

014734
014754
012706
014756
013032
015104
016222
015360
015320
014474
014606
001512
013050

TYPE

1221
2850#
1115«

8594
6404
726

SEQ 0062

2398#

1604#
2068

CROSS REFERENCE TABLE == JSER SYMBOLS

1600
2006#

JINSTR
LINSTT
MEMCL
MG
MSTCL
PARAM
LPFAIL
RESOS
SAVOS
SCOPE
SCOP1
.START
LSYNC

015640

PAGE 64

15354
2002

2486
844
24674
860
2465+
858
848
644
852
850
838
840
695
1137

.TRPSR

08:41

R414

8434

2449

8454

2452

8474

2735

8494

2744

27964

28494

28604

28624

27654
27764
25864
2584n
23564
28844

26544
24874
24894

24634
2478
23034
24684
23254
25014
935
2574w
25604
2407#
24314
933x232%#
2648

2494

645

26438

24358

CZDQH

MACY11

CZDQHD .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=DSKZ : (ZDQXX .MA( ,DSKZ:CZDGHD.P11
RUN-TIME: 7 11 .9 SECONDS
RUN=-TIME RATIO: 46/19=2.3%
CORE USED:
19k
(37 PAGES)
DOCUMENT PAGES:

i 9
>

.‘\

”

(