Digital PDFs

AH-8628E-MC

January 1979

67 pages

Original

3.8MB

view download

OCR Version

3.2MB

view download

Document:	CZDQFE0 DQ11 SEQUENCE REGISTER TEST JAN 1979 bw
Order Number:	AH-8628E-MC
Revision:	000
Pages:	67
Original Filename:	CZDQFE0__DQ11__SEQUENCE_REGISTER_TEST__AH-8628E-MC__JAN_1979_bw.pdf

OCR Text

SEQUENCE REGISTER TEST

CZDGQGFEO

AH-8628E-MC

JAN 1979

FICHE1 OF
1

MADE
IN USA

copvricHT 7a-78

SOEOREN

CZDAF
MACY11 30A(10 32)
_07-JuL-78
78
CZDQFE.PIN
09-JuN-78
0 07:58

08:38

PAGE 2

SEQ 0001

IDENTIFICATION

PRODUCT

CODE
:

AC~8626F
-MC

PRODUCT

NAME:

C(ZDQFEQ

SEQ REG

DATE :

JUNE 1978

MAINTAINER:

DIAGNOSTIC

TSTS

GROUP

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

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAK IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF
SOF TWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AFFILIATED

COMPANIES.

((C)

THE

1974,

FOLLOWING ARE

DIGITAL
DEC

1978 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS

PDP
DECUS

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION:

MASSBUS

CZDQF

MACY11

CZDQFE .P11
1.

30A(1052)

O07-JuL-78

08:38

09-JUN-78 07:58

PAGE 3

SEQ 0002

ABSTRA(CT
THE

FUNCTION OF

THE

DQ11

DJAGNOSTICS ARE

VERIFY THAT THE OPTION OPERATES ACCORDING
TO SPECIFICATIONS.

CURRENTLY THERE ARE SEVEN OFF
TO BE

RUN

IN SEQUENCE

LINE DIAGNOSTI(CS THAT ARE

INSURE

THAT

ERROR SHOULD OCCUR IT WILL BE DETECTED
AT

AN EARLY

STAGE

AND

INSURING

THAT

DIAGNOSIS OF ERROR WILL BE IMMEDIATE TO PROBLEM
NOTE:
ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE
\lo\kfll\wf\.}—'

THE

.
.
.
.
.
.

SEVEN DIAGNOSTICS ARE:

(ZDQA
(20QB
€Z0QC
C7DQD
CZDQE
CZDQF
CZDQH

L[REV]
[REV]
[REV]
[REV]
[REV]
[REV]
[REV]

BASIS R/W TEST #]
BASIC R/W TEST #2
BASIC NPR AND INTERUPT TEST
RECEIVER TRANSMITTER CXERCISER TEST
MISC. RX AND TX TESTS. PLUS BCC TESTS.
CHARACTER DETECT TESTS.
CHARACTER LENGTH AND INTERRUPT TESTS.

THERE 1S ALSO_AN ONLINE TEST
1. €ZDQO [REV]
ONLINE TEST.

TO BE DISCUSED LATER.
(ITEP OVERLAY)

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

REQUIREMENTS

FUTURE.

INPUT)

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

88?133 (OR EQUILIVALENT)
SYNC MODEM

(ONLY REQUIRED FOR ONL INE

TEST)

STORAGE
PROGRAM WIL_

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 ''AUTG SIZING'' HAS BEEN DONE.

LOADING PROCEEDURE

z,”

ME THOD
Al¢ PROGRAMS ARE

IN ABSOLUTE

FORMAT

AND

C(ZDQF
MACY11 30A(1052)
07-JuL-78
C2DQFE.PM
09-JUN-78 (07:58
ARE

LOADED USING THE

MEMORY

SI7¢

8k
12K
16K

20k
24K
28k

PAGE &

ABSOLUTE

3.1

LOAD THE ADDRESS OF ARS.

3.1.2

THEN START

SEQ 0003

LOADER.

LOADER STARTING ADDRESS

—b 0 3 NJUN—
VIN
=
NN N
SNNN

ABSOLUTH

(8:38

{ OADER

+500

(LOC.xXXxx500)

STARTING PROCEEDURE
A.
B.

LOAD LOC. 200
,
SET SWR TO ZERQ FOR "AUTO SIZING'' OR LEAVE

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

+«*x+REFER TO SECTION 4.1 FOR SOF TWARE SWITCH REGISTER OPERATION
AND OPTIONS. »+x*
)
NOTE
: THE SOF TWARE SWITCH REGISTER [S LOCATED AT LOC.176
SOF TWARE DISPLAY REGISTER IS LOCATED AT LOC.174
C.THEN START
THE

PROGRAM WILL

THIS WAS THE FIRST START UP OF

THE

TYPE

FOLLOWING:

‘MAP OF DQ11
1400
1402
1404

1406

160010
152300
160020

MAINDEC

NAME

AND PROGRAM NAME

THE PROGRAM)

AND ALSC

STATUS"'

150310

THE ABOVE IS ONLY AN EXAMPLE.
THIS WOULD INDICATE THE STATUS

TABLE

STARTING

ADD.

"400 IN THE PROGRAM. THE STATUS TABLE MUST BE VERIFIED BY
USER IF AUTO SIZING IS DONE.
FOR INFORMATION OF STATUS
TABLE

SEE

SECTION 8.4

THE

FOR HELP.

«vev]f THE SOF TWARE SWITCH REGISTER S SE LECT ED THEN THE FOLLOWING
WILL BE TYPED AFTER THE PROGRAM IDENT IFIES ITSELF:
.
SWR=XXXXXX NEW=
(REFER TO SECTION 4.1 1F FOR OPERATOR'S OPTION)#*»+«
NOTE:IF USING THE SOF TWARE SWITCH REGISTER
WHEN A HARDWARE
STE
SWITCH REGISTER IS AVAILABLE THE PROGRAM WILL NOT
TYPE

OUT

THE

TITLE.

(ZDQF

MACYIT

<JDQFE.P11

30A(1052)
07-uuL-78
09-JUN-78 07:58
THE

PROGRAM WILL

08:38

TYPE

PAGE 5

SEQ 0004

'R’

AND PROCEED TO RUN THE DIAGNOSTIC

TONTROL

SW!TCH SETTINGS

THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

REGISTER THEN A SOF TWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

AND 1T CONTAINS ALL ONES (177777)
REGISTER (LOC. 176) IS USED.

THEN THE

SOFTWARE SWITCH

:
"ONTROL
THIS PROGRAM ALSO SUPPORTMS

THE

¢)

TYPE

LOC.

CONTRCGL

G <*G>;

THIS WILL

LOADING OF

ALLOW THE

TTY

THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW=
OF THE SOFTWARE SWIT(H REGISTER.)
OF

"HE

Sw 15

13
12
1
10
09

Sw 08

Sw 07
SW 06
Sw 05
Sw 04
SWw 03
Sw Q2
SW 01
Sw 00

(XXXXXX

INTO

THE OCTAL

CONTENTS

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(R>.
(ONLY NUMBERS BETWEEN O-7 wilLL BE ACCEPTED AND ONLY 6 NUMBERS
WwiLL BE ALLOWED)

Sw 14

TN ENTER DATA

SWITCH

TTY:

A <CR>

IS THE FIRST KEY DEPRESSEN THE

B8)

SOF TWARE

°°'NEw='" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE

THE FOLLOWING AT

THE

THIS CAN BE ACCOMPL]SHED BY

176 ATM SELECTED POINTS WITHIN THE PROGRAM.

3 AFTER THE

Sw
Sw
SWw
Sw
Sw

DYNAMIC

TTY,

A CONTROL U <*U>

BACK

TO STEP (.

SET: HALT ON ERROR

SET:

LOOP ON CURRENT

NOT BE

SOf TWARE

IS DEPRESSED THEN THE PROGRAM WwIL!

TEST

SET: INHIBIT ERROR PRINT OUT
SET: INHIBIT TYPE OUT/BELL ON ERROR.
SET: INHIBIT ITERATIONS
SET: ESCAPE TO NEXT TEST
SET: LOOP WITH CURKENT DATA
SET:

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

SWIT(H

CHANGED.

CATCH ERROR AND LOOP ON T

USE PREVIOUS STATUS TABLE.

CLR=-DO AUTO SIZE.

LOCK ON SELECTED TEST
RESTART PROGRAM AT SELE(TED TEST
RESELECT DQ?1'S DESIRED A(CT].C.

SEND YOU

(,OQF
MACY11 30A(1052) 70§5JUL-78
JJDQFE . P
09-JUN-78 0

4.1.2

08:38

PAGE 6

SEQ 0005

SWITCH REGISTER RESTRICTIONS

Sw 00

RESELECT DQ11°'S DESIRED ACTIVE.
PLEASE NOTE

THAT A MESSAGE

TYPED

OUT FOR SWITCH REGISTER BEING EQUAL TO DQ11°S
ACTIVE. THIS MEANS If THE SYSTEM HAS
FOUR DQ11S; BITS 00,01,02,03 WILL

BE SET IN LCCT 'DQACTV''. USING THIS

SWITCH ALTERS THAT LOCATION, THEREFORE
If FOUR DQ11S ARE IN THE SYSTEM
**«DO NOT=+x SET SWITCHS GREATER THAN

SWw 03 IN THE UP POSITION.

A FATAL ERROR.

METHOD:

A
8:
(:
D:
£
F

DQG11S THAN HAS BEEN GIVEN INFORMATION
ABOUT IN TRIAL PROGRAM.
LOAD ADDRESS 200
START WITH Sw 00 1
PROGRAM WILL TYPE MESSAGE
CONTINUE THE BINARY
NUMBER Of DQ11S DESIRED AC1IVE
EXAMPLE: 1-1 DQ11.; 3 2 DQ11,; 7=3 DQ11; 17=4 DQ11 37=5 DQ11 ETC.
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05, 11/064,
CONTINUE

Sw 01

THIS WOULD BE

DO NOT SELECT MORE A(TIVE

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.

Sw 09

LOOP ON CURRENT DATA:
THIS

SWITCH WILL

ONLY WORK

THE REASON BEING

THAT MQOST

TESTS

CALL "'SCOP1'' IS IN THAT TEST.

DEAL WITH BLOCKS OF DIFFERENT DATA

TO BE SENT OR RECEIVED ALL AT ONCE
THUS IN BLOCK DATA; ONE PATTERN CANN'T

SING.ED QUT.

SWITCH REGISTER PRIOURITYS

AR
=
.
[

ERROR SWITCHES

«.".3

SW
SW
SW
SWw
Sw

12
13
15
08
10

veseHT (ERROR)
SCOPE

SWITCHES

DELETE PRINT QUT/BELL ON ERROK.
DELETE ERROR PRINTOUT.
HALT ON THE ERROR.
GOTO BEGINNING OF THE TEST,
GOTO NEXT TEST ON ERROR.
ROUTINE

SUPPORTS

<G> OPERAT](ONt
=«

11/34)

CJDQF

MACYTT

CIDQFE.PI

30A€1052)

_07-JuL-78

08:38

09-JuN=-78 07:58
;:

g:
09 (IF

SW 11

SEQ 0006

ENABLED BY "'SCOP1'")

»ex«SC(OPE ROUTINE WILL
.

PAGE 7

SUPPOURT <*G> OPERATIONwwe+

STARTING ADDRESS
STARTING ADDRESS IS AT 000200
THERE

ARE NO OTHER STARTING ADDRESSES

FOR THE DQ11

NOTE :

DIAGNOSTICS PREVIOUSLY MENTIONED

ADDRESS 000042 IS NON-ZERO

THE PROGRAM ASSUMES IT IS UNDER
ACT11 OR DDP CONTROL AND WilLL ACT ACCORDINGI
Y
AFTER «ALL* AVAILABLE DQ11'S ARE TESTED
THE PROGRAM WILL RETURN TO 'DDP2''
OR "‘ACT-11"",

OPERATING PROCEDURE
WHEN PROGRAM IS
FOUR WILL

INITIALLY STARTED MESSAGES AS DESFRIBED

IN SECTION

PRINTED.

AND PROGRAM WILL BEGIN RUNNING
DIAGNOSTIC

THE

PROGRAM AND/OR OPEFRATOR ACTION

THE

TYPICAL

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

CLEAR SW

SET SW 14:

THE

APPROACH SHOULD BF

SET SW 13:
TEST

(LOOP ON THIS TEST)

(INHIBIT ERROR PRINT 0UT)

NUMBER AND

WILL

POSSIBILY AN ERROR MESSAGE

TO GIVE THE
PROBLEM. IF

CONCERNING THE ERROR REPORT;
THAT

AND

THEN NOTE

THIS WAY

LOOK

TEST NUMBER WHI(H WAS
THE

TYPED

OUT

AND

TEST)

OPERATOR AN IDEA AS TO THE SOURCE OF THE
IT IS NECESSARY TO KNOW MORE INFORMATION

FOR

(AN BE

(THIS DEPENDS ON THE

THE

EXACT

INTERPEDITED

THE

IN THE LISTING

TYPED

OUT

ERROR REPORT

FUNCTIONING OF

THE

TEST

ERRORS
AS DESCRIBED PREVIOUSLY THERE willLL ALWAY B{
A TEST NUMBER AND PC TYPED OQUT AT THE TIME OF

ERROR (PROVIDING SW 13=0 AND Sw 12=0). IN MOST (ASES ADD]T]ONAL
INFORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE
ggéég IS TO GIVE THE OPERATOR AN INDICATION OF THE

ERROR RE(COVERY

(ZDQF
MACY11 30A1052) 70§5JUL-78
CZDQFE.PN
09-JUN-78 O

08:28

SEQ 0007

PAGE 8

If FOR SOME REASON THE DQ1' SHOULD
"HANG THE BUS'' (GAIN CONTROL OF BUS SO THAT
CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT
OR POWER DOWN/UP IS NECESSARY FOR OPERATOR
TO REGAIN CONTROL

CPU.

[F THIS SHOULD HAPPEN; LOOK IN LOCATION
"TSTNO'' (ADDRESS 1226)FOR THE NUMBER OF THE TEST .THAT
?AS RUNNING AT
RROR.

THE

TIME OF

THE

CATASTROPHIC

[

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS T0
WHAT THF DQ11 wAS DOING AT THE TIME OF THE ERROR.
vxxeHALT

THE
THE

THE

RECOVERY

SOF TWARE

WHEN USING SOF TWARE

SWITCH REGISTER IS TO BE CHANGED AFTER A HALT

THE OPERATOR IS REQU.RED
FOLLOWING WiLL BE TYPED:

SWR=XXXXXX

SWITCH REGISTER®r
%«

NEW

TYPE

A <*G> BEFORE

(REFFR TO SECTION 4.1

DEPRESSING

CONTINUE.

FOR OPERATOR OFTION)

RESTRICTIONS

STARTING RESTRICTIONS

AN}

SEE

SECTION 4.

(PLEASE?®

OPERATING RESTRICTIONS

DQ11

FIRST

TRIAL PROGRAM MUST BE RUN PRIOR TO THE
AND ONLY

NOTE :

THE

FIRST

RUNNING OF

IF NO PROGRAM OTHER THAN

ANY DQ1°

DJAGNOSTI(

DQ11 DIAGNOSTIC WAS LOADEC AFTER DQ11 TRIAL OR
[F CORE MEMORY HAS NOT BEEN CHANGED;OR IF THERE
IS NC DQ11 CONFIGURATION CHANGES; THE
DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN,
HOWEVER

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 ATTEMFTING
THE "'AUTQ SIZING'' WHEN PROGRAM IS INITIALLY STARTED

wITH SW07-0.

MISCELLANEOUS
EXECUTION
PASS

TIME

(COMPLETE

WHEN THE DIAGNOSTIC HAS
A

PASS

THE

FOLLOWING

COMPLETED

IS AN EXAMPLE

THE PRINT OUT TO BE EXPECTED.

END PASS AC-80c¢6E-Mu (SR:
NOTE :

THE NUMBERS FOR
NOT NECESSARILY

160000 VEC:

300 PASSES: 0000C! ERROKS: 000000

7SR AND VEC ARE
THE VALUES FOR THE

DEVI(E

(¢DQAF - MACY1T 30A(1052)
07-JuL-78
CZDQFE.PI
09-JUN-78 07:58

08:38

PAGE 9

SEQ 0008

THEY ARE ONLY FOR THIS EXAMPLE.

8.3

TsT
THE

(MINI

MONITOR)

vERY FIRST "TEST'' (7ST1)

[S *NOT~ A TEST OF THE DQ11 HARDWARE
IT IS A MINI-MONITOR USED TO CYCLE DQ11
SYSTEM THROUGH THE DIAGNOSTIC.
REMEMBEK:

8.4

TST1

IS NOT A TEST OF

DQ11

IN THE

HARDWARE!!!!!!!

KEY LOCATIONS

RETURN

(1214)

(1216)

TSTNO

(1226)

RUN

(1304)

(ONTAINS THE ADDRESS WHERE PROGRAM WIL.
RETURN WHEN ITERATION COUNT IS REACHED

OR IF LOOP ON TEST IS ASSERTED.
CONTAINS THE ADDRESS OF THE NEXT
TO BE PEFORMED.

TEST

CONTAINS THE NUMBER OF THE TEST NOW
BEING PEFORMED.
THE BIT IN ‘RUN'’ ALWAYS POINTS ONE
PAST

THE DQ11

CURRENTLY BEING

TESTED.

:
EXAMPLE
(RUN) 1304/0000000001000000
MEANS THAT DQ11 NO.0O5 IS THE DQ11
DQCROO-DQCRI7
DAST00-DQST17

NOW

RUNNING.

(1400)=(1476)

THESE LOCATIONS CONTAIN THE

INFORMATION

NEEDED TO TEST UP TO 16 (DECIMAL) DQ11S
SEQUENTIALY. THEY (ONTAIN THE (SR,VECTCR
AND STATUS CONCERNING THE CONFIGURATION

DQACTV (1500)

GF EACH DQ11.
EACH BIT SET IN THIS LOCATION INDICATES
THAT

THE

ASSOCIATED

DQ11

WwILL

IN TURN.
:
EXAMPLE
(DQACTV) 1500/0000000000011111

DQCSR

(1506)

TESTED

MEANS THAT DQ11 NO. 00,01.,02.03.C4
WILL BE TESTED.
EXAMPLE
:
(DQACTV) 1500/0000000000010001
MEANS THAT DQ11 NO. 00,04
WILL BE TESTED.

BIT 15
BIT 14

CONTAINS THE RECE]JVER CSR OF THC
CURRENT DQ11 UNDER TEST.
CONTAINS THE STATUS OF THE CURRENT
DQ11 UNDER TEST.
SET:
TWO SYNC CHARS/ONE SYNC (HAR
SET:
TEST JUMPER INSTALLED/NOT INSTALLED

BIT
BIT
BIT
BIT

SET:
SET:
SET:
SET:

DQSTAT (1510)

BIT 13

12
11
10
09

SET:

B8 OPTION INSTALLED/NOT INSTALLED

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

SYN(C

(ZDQF

MACY11

CZDQFE.PN

30A(1052)

07-JuL-78

09-JUN-78 07:58

08:38

BIT 00-08

PAGE 10

SEQ 0009

VECTOR *‘A"" OF DEVICE

8.5

eve METHOD OF AUTO SIZING %e=

8.5.17

FINDING THE CONTROL STATUS REGISTER.
WHEN LOOKING FOR THE CSR IT IS NECESSARY TO TAKE CARE
THAT WHEN A CSR IS FOUND THAT IT IS INDEED A DQ11. THAT

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE.
AN ATTEMPT TO CLEAR THE MISC. REGISTER IS TRIED
[F A TIME-OUT TRAP OCCURES POINTERS ARE UPDATED
AND ATTEMPTED AGAIN. IF NO TIME-QUT; THE RECEIVER '‘ACTIVE BITM'' (BIT 12)
1S SET AND A «COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE

AT THE MISC. REGISTER. IF THEY ARE THERE
A DQ11. THE INFORMATION IS STORED AWAY.

8.5.2

THIS

ONE SYNC BIT OR TwO?
SINCE

TOO MUCH HARDWARE MUST BE

PRESENTS OF

ONE

SYNC

TWO.

THE

TURNED ON TO SENSE
PROGRAM ASSUMES

THE

TWO SYN(

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

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

8.5.4

"'AB'' OPTION INSTALLED?
TO SENSE FOR THE ''AB'' OPTION THE PROGRAM SELECTS THE

POLYNOMIAL

ALL

1°'S

INTO

IT.;

ANY

%EEO?S$G‘BINATION OF BITS ARE SET THE AB OPTION IS ASSUMED
X

8.5.5

"BA" OPTION INSTALLED?
TO SENSE FOR "BA'' OPTION REQUEST TO SEND AND DATA TERMINAL
READY ARE SET; IF EITHER ONE OR BOTH ARE SET THE PROGRAM

ASSUMES

8.5.6

THE BA OPTION EXISTES

JUMPER ON END OF
THE

CABLE? ***NOTE:(CZDQE ONLY*w«

PROGRAM (HECKS

TO SEE

E]THER OR BOTH

CLEAR

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

8.5.7

THE

ACTIVE ON FIRST NON-SYN(C?
SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE FOR
WHEN THE DQ11 GOES ACTIVE THE PROGRAM ASSUMES '‘ACTIVE

ON FIRST NON=SYNC''. NOTE: THIS CAN BE CHANGED BY ALTERING
BIT 1 IN THE APPRIOATE DCSTXX: AFTER AUTC SIZING

(ZDQF
MACY11 30A(1052)
_07-JuL-78
CZDQFE.PIY
09-JUN-78 07:58

8.5.8

08:38

PAGE

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:
ATE

8.5.9

THIS CAN BE CHANGED BY ALTERING BIT 9 IN APPR]O-

DQSTXX:

FINDING

THE

LOCATION.

AFTER AUTO SIZING

VECTOR.

THE PROGRAM SETS ‘PRIMARY DONE’’,''SECONDAY DONE'', AND ‘'INTERUPT ENABLE"'
AND LOOKS FOR AN INTERUPT. IF IT INTERUPTS IT IS PICKED

UP AND STORED AWAY. [F NO INTERUPT OCCURES THE PROGRAM
ASSUMES VECTOR =300. THIS PROBLEM WILL BE FIXED IN ONE
OF THE DIAGNOSTICS AND *AUTO SIZING* SHOULD BE REDONE "Q
GET THE (ORRECT VECTOR.

PROGRAM DESCRIPTION

CONTAINED WITHIN LISTING
10.

L ISTING
FOLLOWING

SEQ 0010

(Z0QF
MACY11 30A(1052)
07-JUL 78
(ZDQFE.PI
09-JUN-78 07:58

08:38
PAGE 12
INTRODUCTION TO DQ11

522
523
gsg

;CIDQFEQ/<377>/SEQ REG TSTS
;COPYRIGHT 1975, DIGITAL EQUIPMENT CCRP., MAYNARD, MASS. 01754

926
527

JREVISED 16-DEC-76 BY R. BLACK
;
A)SUPPORTS SOF TWARE SWITCH REGISTER

g%g

;

530
531
532
533
534
535
536

537

562
563
544
545
546
547
548
549
550
551

552
553
554

555
556
567

<46

:STARTING PROCEDURE
;LOAD PROGRAM
;LOAD ADDRESS 000200
;PRESS START
;PROGRAM WILL TYPE '‘CZDQFEQ/<377>/SEQ REG TSTS'’
;PROGRAM WILL TYPE 'R’ TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF A PASS, PROGRAM WILL TYPt PASS COMPLETE MESSAGE
TESTING

sSWITCH REGISTER OPTIONS
100000
040000
020000
010000
004000
002000
001000
000400
000100
000040
000020
000010
000004
000002
000001

SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
SW09=1000
Sw08=400
SW06=100
SW05=40

SW04=20
Sw03=10
SwW02=4

SwW01-2
SW00=1

B)gePPOETS THE DYNAMIC LOADING OF THE SOF TWARE SWITCH REGISTER

;AND THEN RESUME

538
539
22?

SEQ 0011

DIAGNOSCTIC

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

;LOCK ON TEST SELECT
.RESTART PROGRAM AT SELECTED TEST
JRESELECT DQ11 DESIRED ACTIVE
;NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.PIN
09-JLN- 8 07:58

558
553

560
561
362
563
564
565
566
567
568
569

08:38

PAGE 13

SEQ 0012

GENERAL DEF INATIONS AND EQUIVALENCIES

JREGISTER DEFINITIONS
RO=20
R1=%1
R2=%2

R3=23
R&-%4
R5=%5

SP=26

PC=%7

;GENERAL REGISTER
;GENERAL REGISTER
sGENERAL REGISTER

;GENERAL REGISTER

sGENERAL REGISTER
;GENERAL REGISTER

;PROCESSOR STACK POINTER

;PROGRAM COUNTER

;LOCATION EQUIVALENCIES
177570
177570

1777276
001200

DSWR=
177570
DLIGHTS=177570

PS=177776

STACK-17200

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

;PROCESSOR STATUS WORD

;START OF PROCESSOR STACK

s INSTRUCTION DEF INITIONS
005746
005726
010046
012600
024646
022626

PUSH1SP=5746
POP1SP=5726

PUSHR0=10046

POPR0O=12600

PUSH2SP=24646
POP2SP=22626
LEQUIV
EMT_HLT

;DECREMENT PROCESSOR STACK
s INCREMENT PROCESSOR STACK

;SAVE RO ON STA(K

JRESTORE RO FROM STA(K

B179=1000

000002
000001

;D01 GPTIONAL DEF INITIONS
ABB]T=2000

ACTBIT-4000

BABIT=10000
88R1T1=20000
JUMBIT=40000

WORD
WORD

;DECREMENT STACK TWICE
s INCREMENT STACK TWICE
;BASIC DEFINITICN OF ERROR CALL

B1T11=4000
BI710=2000

002000
004000
010000
020000
040000

1
1

(ZDQF

MACY11 30A(1052)
07-JuL-78
CZDQFE.PM
09-JUN-78 07:58

614

001000
100000

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

;DQ11 SECONDARY REGISTER DEF INATIONS
RXBA.P=0
RXWC.P=1

TXBA . P=2

TXW(C.P=3

RXBA.S=4

000014
000015
000016
000017

JRECEIVER BUS ADDRESS PRIMARY,
;RECEIVER WORD COUNT PRIMARY.
;TRANSMITTER BUS ADDRESS PRIMARY.

; TRANSMITTER BUS ADDRESS PRIMARY.
sRECEIVER BUS ADDRESS SECONDARY.

RXWC.S=5
TXBA.S=6
TXWC.S=7

;RECEIVER WORD COUNT SECONDARY,
:TRANSMITTER BUS ADDRESS SECONDARY.
STRANSMITTER WORD COUNT SECONDARY.

CHARDT=10
SYNC.=11
MISC.=12

s CHARACTER DETECT REGISTER.
sSYNC REGISTER.
sMISCELLANEOQUS REGISTER.

SEQ.-14
RX.BCC=15

s SEQUENCE REGISTER.
;REL' IVER BCC REGISTER.

POLY.=17

;POLYNOMIAL REGISTER.

TX.MUX=13

TX.BCC-"6

s TRANSMITTER MUX REGISTER.

:TRANSMITTER BCC REGISTER.

SEQ 0013

CZDQF
MACY11 3CA(1052)
07-JuL-78
CZDQFE.P1
09-JUN-78 07:58

639
64)

225

643
6644

645
646
647
648
649
650
651
652

653

654
655
656
657
658
659
22?
662
663
664
665
666
667
668
669
670
671
672

000026
000026
000030
000032
000034
000036
000046

000052

673
674
675
676
677
678
579
68(C

000122
000126
000132
000134
000136
000142
000144
000146

682
683

000154
000156

681

684
222

687
688

689

23?

0G0000

.=0

000024
014764

.=24

000340
014434
000340
014402
000340
000046
013162
000052

.52

000000

000150
000162
000164

000774

000176

010120
012721
022021

020127

101771
012737
013737
006037
103023
005037
005722
012772
105200
001376
112712
005722
000761
051612
042712
022626
012716
000002
000207
000174

000000

002000

692

693
694

.46

; TRAPCATLAER FOR ILLEGAL INTERRUPTS
s STANDARD

INTERRUPT VECTORS

PEAIL
340
LHLT
340
. TRPSRV
340

JPOWER FAIL HANDLER
JSERVICE AT LEVEL 7
;ERROR HANDLER
sSERVICE AT LEVEL 7
s GENERAL HANDLER DISPATCH SERVICE
;SERVICE AT LEVEL 7

LOGICAL

JACT HOOKS

.WORD 0

000004
001000

000146
001500
001244

000020
001244

177776
000340

00030C

000007

VECMAP:
1%:
MOV
MOV
CMP
CMP
BLOS
MoV
MOV
2%:
ROR
BCC
CLR

177776

3%:
4%:

000142
5%:

TST
MOV
INCB
BNE
MOVR
TST
BR
8IS
BIC
(MP
MOV
RTI
RTS

R1,(RO) ¢
#6,(R1)+
(RO)+, (R1)+
R1,#1000
1%
#6S,ax20
DQACTV, TEMP]
TEMP1
5%
PS

(R2) +
#340,3-2(R2)
RO
=2
#300, (R2)
(R2)+
2%
(SP),(R2)
#7,(R2)
(SP)+, (SP)+
#3%,(SP)
PC

;START FILLING THE VECTOR AREA
SWITH .+2; 10T (4)
;JUPDATE THE POINTERS

;1S ALL FLOATING VECTOR AREA DONE

;BR IF NOT ALL DONE
;SET FOR IOT TRAP BY DQ1
;GET THE ACTIVE DQ11 S
JARE YOU ACTIVE.. DQN
;IF _CARRY CLEAR.. NO MORE DQ11S
;CLEAR PS
JPUT POINTER TO STATUS TABLE
JTRY AND SET PRI/SEC DONE AND |E
,DELAV ........
liiesesass DELAY
;NO INTERUPT ASSUME 300 FIX IN TEST C
;UPDATE POINTERS
:GO DO IT_AGAIN
JENTERD BY IOT TRAP BY DQ1!
sCLEAR UNWANTED BITS
;POP JOT JUNK OFF STACK
;SET RETURN PC ON STACK
. GG HOME.
JALL SIZING 1S DONE

sx***SOFTWARE SWITLH REGISTER#*w~=a
174

DISPREG:
SWREG:

sPROGRAM START
000200

:THIS ROUTINE TRIES TO FORCE THE RECEIVER TG INTERUPT
.TO ITS VECTOR WHERE IT WILL PICK UP THE STATUS LOCATION
:FOR ITS NEW PC; AND PICK UP AN 10T INSTRUCTION FOR ITS
:NEW PS. WHEN THE NEW PC IS FETCHED AN 10T INSTRUCTION IS
:EXECUTED, TRAPPING TO LOCATION 20 WHERE A ROUTINE IS EXECUTED
;10 TAKE THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS
. 56

000056
000056
000056
000060
000064
000066
000072
000074
000102
000110
000114
000116

08:38
PAGE 15
TRAPCATCHER FOR UNEXPECTED INTERUPTS

.=20C

9
0

;SOF TWARE DISPLAY REGISTER
:SOF TWARE SWITCH REGISTER

SEQ 0014

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE. P11
09-JUN~7 80 7:58

695

696
697

000200

060137
000220
012702
005022
022702
001374

O08: 38

PAGE 16

SEQ 0015

ROUTINES USED FOR AUTO SIZING.

001512

JMP

.START

;GO TO START OF PROGRAM

001512

#1400,R2
(R2)+
o1g12,n2

001504
001400

DANUM
#1400 ,R2

cCLEAR ALL STATUS TABLE
.DO CLEAR
;ALL TABLE DONE
:BR ]F MORE T0 GO
;SET NUMBER OF DQ11S TO O
;SET TABLE POINTER
:GET FIRST FLOATING ADDRESS
;SET FOR TIME OUT TRAP--NO DEVICE--

.=220

001400

160000

010000
030000

(SRMAP:

#160000,R1

000004
000005

#5S, akh
#12.5(R1)

6(R1)

#10000, (R1)

000006

ggoooo,6<a1>
R1,(R2)+

100000

000010
177777
000006

020000
000017
177777
000006

#SYNBIT, (R2)

(R1)
#10,5(R1)

000005
000006

#~1,56(R1)

6(R1)

000002
000002

010000
030000

000002

001500
001504
001504
001276

001500
001500

cLOOK FOR SYNC 1 AND SYNC 2
cTHIS IS NOT A DQ11

] BRANCH

JNOW THIS IS A DQ11 --STORE (SR
JSET FOR TWO SYNC CHARS
JCLEAR DQ ACTIVE BIT
;SEL CHAR DET REGISTER

JWRITE

INTO CHAR DET REG

JWAS THE REGISTER WRITTEN?

JAPPERENTLY NO BB OPTION.

;WRITE POLYNO.REGISTER

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

#MBABIT, (R2)
032000.2 R1)
.4

164000

;TRY AND SET RX ACTIVE

;WAS REG WRITTEN??

002009
001400
001400

000002
OOOOOE
00000
000006
001504
000010

;TRY AND SEL MISC REGISTER

;TRY AND CLEAR MISC REG

.SET FOR BB OPTION
cSEL POLYNO. REGISTER

000005
00000¢

040000
004000
001000

006137
005237

#JUMBIT, (R2)

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

(R2)+
(R1)

2(R1)
2(R1)

4L(RY)

2%:

6(R1)
DANUM
#10,R1
1;64000,R1
DQACTV
DONUM
4%

R
DQNUM,
R1,SAVNUM
DTV
DQACTV

TO SET

.DTR.

.RS.

;DID ANY OF THEM SET
;BR IF NO BA OPTION
;SET FOR BA OPTION
.DID .CS. .CO. SET
.BR IF NO JUMPER
;SET FOR JUMPER
cSET FOR ACTIVE ON FIRST NON-SYNC
;SET FOR ODD VRC.......

;POP POINTER

;CLEAR RCSR
. CLEAR T(CSR
;CLEAR AGAIN
.CLEAR ERROR REG
;CLEAR SEC REG
JUPDATE NUMBER OF DQ11S
<UFDATE CSR POINTER BY 10 (8)
cHAVE ALL FLOATING ADDRESSES BEEN CHECKED??
;BR IF NOT ALL DONE
;ZERO ACTIVE DQ11S
;WERE ANY DQ11S FOUND
JHEY BUDDY. NO DQ11S FOUND [N SYSTEM
. SAVE NUMBER OF DQ11S
. SAVE NUMBER FOR ACT
;CLEAR CARRY
.
__ ACTIVE ADDRESS

JSETTBIT O

CZDQF
MACY11 30A(1052)
07-JuL~-78
CZDQFE. P
09-JUN-7 8 07:58

000534

005301
00137
012737
013737
012737

000006
001500
000340
001400
000300
000302
000056

08:38

DEC
BNE

000004
001502
000022

MOV

001000
005377
042506
020121
051524
001200
177570
177570
177560
177562
177564
177566

055103

177460

042522
051524

050504
042523
020107
000377

#6. 6

DQACTV SAVACT
#3400, 3422

#1400 ,R2

4%:

000466

SEQ 0016

ROUTINES USED FOR AUTO SIZING.

TYPE

MERRZ

.=1000

MTITLE:

.=1200
SWR:

LIGHTS:
TKCSR:
TKDBR:

TPCSR:
TPDRR:

#300,R0
#302.R1
VECMAP

CLR

.=2

HALT

000002

PAGE 17

;DEC NUMBER OF DQ11S
;BR IF MORE TO GO
JRESET

TIME OUT VECTOR

s SAVE ACTIVE
;SET IOT TRAP PRIO:
;SET TABLE POINTER
;SET VECTOR START

TO 7

;SET VECTOR+2 START

;60 FIND THE VECTORS

s TYPE MESSAGE

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

JHOW CAN I TEST NO DQ11S
JDON'T LET OPR HIT CONT. SW
JENTERED BY TIME OUT TRAP
. GO HOME.

MOv
RTI

#2%, (SP)

LASCIZ

<377><12>/CIDQFEN/<377>/SEQ REG TSTS/<377>

JINDIRECT POINTERS
17757C
177570
177560
177562
177564
17756¢€

JSWITCH REGISTER POINTER

;DISPLAY REGISTER POINTER
JTELETYPE KEYBOARD CONTROL REGISTER
;TELETYPE KEYBOARD DATA BUFFER
;TELEPRINTER CONTROL REGISTER
;TELEPRINTER DATA BUFFER

001214
001216
001220
001222
001224
001226
001230
001232
001234

000000

RETURN:
NEXT:
LOCK:
ICOUNT:
LPCNT:

TSTNO:
PASCNT:

EPRCNT:
LSTERR:

OOOQOOOWOOO

;PROGRAM (ONTRUL PARAMETERS

;SCOPF ADDRESS FOR LOOP ON TEST
JADDRESS OF NEXT TEST TO BE EXECUTED
JADDRESS FOR LOCK ON CURRENT DATA
JNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
JNUMBER OF ITEREATIONS COMPLETED
JNUMBER OF TEST IN PROGRESS
;NUMBER OF PASSES COMPLETED
;TOTAL NUMBER OF

ERRORS

.PC OF LAST ERROR CALL

001236
001240
001242
001244
001252
001254

{HAR1:
(HAR?Z:
(HAR3:

TEMPI
:
TEMP?:

000000
000000

TEMP3:

TEMPS:
TEMPS
:

[plslelelelelele)

s PROGKAM VARIABLES

; TEMPORARY
s TEMPORARY
. TEMPORARY
; TEMPORARY

STORAGE
STORAGE
STORAGE
STORAGE

; "EMPORARY STORAGE

000000
000000

000001
000009
000000
000000

PAGE 18

PROGRAM PARAMETERS,

SAVRO:
SAVR1:
SAVR?:
SAVR3:
SAVRS:
SAVRS:

SAVSP:
SAVPC(:
SAVNUM:
CREAM:

RUNFLG:
RUN:
RUNCNT:

OOOOOOOOOO

001256
001260

08:38

BLKWw

OO0

CZDQF
MACY 11 30A(1052)
07-xL-78
CZDQFE.PIT
09-JUN-78 07:5§

VARIABLES,

AND

TRAP (ALLS.

;RO STORAGE
;R1 STORAGE

;R2 STORAGE

;R3 STORAGE
;R4 STORAGE
;RS STORAGE
s STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

SEQ 0017

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.P1T
09~JUN-78 (07:58

834
835
836
837
838
839
840
841
842
843
844
845
846
847
848

849
850
851
852
853

854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870

871
872
873
874
875

PAGE 19

PROGRAM PARAMETFRS,

VARIABLES,

AND

SEQ 0018

TRAP C(CALLS.

;PROGRAM CONTROL FLAGS
00130
001311
001312
001313

000
000
000
000
000000

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

.BYTE
.BYTE
.BYTE
.BYTE

;PROGRAM INITIALIZATION FLAG
JTEST START FLAG

;ERROR OCCURED FLAG

;LOCK ON CURRENT TEST FLAG

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
;POINTERS TO SUBROUTINES CAN BE FOUND
JIN THE TABLE IMMEDIATLY FOLLOWING THE DE"INITIONS
.-ttttfitthttttttt**ttt'ttttt't*v AANRNRAARANRRAARRNANRRAANAN RN AN

A AARNN RN AR

:ttttfittt't*tttttt*tttt*t'it*tttttt*tttt*ti‘t*tittittt*tttflti*ttt‘tti

001314
001314
001316
001320
001322
001324
001326

0C1330
001332

001334
001336
C€01340
001342
001344

00136

1044060
013236
104401
013350
104402
013370
104403
013476
104404
013614
104405
013646
104406

014062
104407
014122
104410
014154

104411
014160
104412
010766
104413
010652
104414
015062
104415
015136

.TRPTAB:
L COPE=TRAP+(
.SCOPE
SCOP1=TRAP+1
. SCOP1

;CALL

TO SCOPE

LOOP AND

ITERATION HANDLER

;CALL TO LOOP ON CURRENT DATA HANDLER

TYPE-TRAP+?2

JrALL

INSTR=TRAP+3

;CALL

TO ASCII

;CALL

TO INPUT ERROR HANDLER

;CAL.

TO NUMERICAL DATA INPUT ROUTINE

SAV(OS=TRAP+6

JCALL

TC REGISTER SAVE ROUTINE

RESOS=TRAP+7

;CALL

TO REGISTER RESTORE ROUTINE

CONVRT=TRAP+1)
.CONVRT
(NVRT=TRAP+11
.CNVRT

;CALL

TO DATA OUTPUT ROUT INE

.CALL

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

;CALL

TO ISSUF MASTER CLEAR

;CALL

TO CLEAR ALL

.TYPE

.INSTR
INSTER-TRAP
+4
.INSTER

PARAM=TRAP+5
.PARAM

.RESQS

MSTCLR= TRAP*12
.MSTCLR
MEMCLR=TRAP+13

.MEMCLR
(KSWR=TRAP+14
.CKSWR
CNTLU=TRAP+15
LCNTLU

TELETYPE

OUTPUT ROUTINE

STRING

INPUT ROUTINE

SCRAT(CH PAD MEMORIES

;CALL 70 ALLOW SWREG TO BE LOADED FROM TTY
;CALL TO ALLOW LOADING OF

SWREG FROM TTY

"tttt'tttt'ttt*'tfltfitttt'tt'tifit*'li"‘"ttttttt!*l’t"‘!tttti.itttttttl
.'ttt.t'tt*tfi‘tt*tttl'fitt"t*‘tttfi!fl.fl'Ql’tiitttttittt"fifiiittt'fitt'it.

;DQ11

001350
001352
00135
001356
001360
001362

000000
009000
000000
000000
000000
000000

DQRVEC:
DQRLVL:
DQTVEC(:

DQTLVL:
DCRCSR:
DQR(SH:

elelelale
la)

820
821
822
823
824
825
826
827
828
829
830
831
832
833

08:38

VECTOR AND REGISTER INDIRECT POINTERS

sPOINTER TO DQ11 RECEIVER INTERRUPT VECTOR

JPOINTER TO DQ11
;JPOINTER TO DC1?
JPOINTER TO DG11

RECEIVER INTERRUPT SERVICE PS
TRANSMITTER INTERRUPT VECTOR
TRANSMITTER INTERRUPT SERVICE PS
RECEIVER CONTROL REGISTER

;POINTER TO DQ11
;POINTER "0 HIGH BYTE OF DO11 RECEIVER CONTROL REGISTER

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.PW
09-JUN-78 0 7:58

876

877

878

001364
001366
001370
001372
001374

000000
000000
000000
000000
000000

08:38

SEQ 0019

PROGRAM PARAMETERS, VARIABLES, AND TRAP (ALLS.

DQTCSR:
DQERR:
DQREG:
DQSEC:
DQSECH:

0
0
0
0
0

;DQ11

001400
000001
000001
000001

PAGE 20

.=1400
DQCROQ:
DQSTOO0:
DQCRO1:
DQSTO1:
DQCROZ:
DQSTO?2:
DQCRO3:
DQSTO3:
DQCRO4:
DUSTO4:
DQCROS:
DQSTOS:
DQCRO6:
DQSTO6:
DQCRO7:
DQSTO7:
DQCR10:
DQST10:
DOCR11:
DQST11:
DQCR12:
DQAST1?2:
DQCR13:
DQST13:
DQCR14:
CQST14:
DQCR15:
DAST15:
DQCRI16:
DQST16:
DQLRI17:
DQAST17:

DCACTV:
SAVAC(T:
DANUM:
DQCSR:
DQSTAT:

BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
.BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
.BLKW
BLKW
BLKW
BLKW
.BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLKW
BLkW

BLKw
BLKw
.BLKW

BLKW
BLkW
BLKW
BLKW
BLKW

;POINTER
;POINTER
JPOINTER
;POINTER
;POINTER

TO
TO
TO
TO
TO

DQ11
DQ11
HIGH
DQ11
HIGH

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

STATUS TABLE AND ADDRESS ASSIGNMENTS
1
1
1
1
i
1
1
1
1
1
1
1
1
1]
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

1
1
1
1
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
sVECTOR 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
.CONTROL STATUS REGISTER FOR DEVICE NO: 10
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
. CONTROL STATUS REGISTER FOR DEVICE NO: 11
:VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 12
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 13
:VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 14
;VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: 15
.VECTOR AND CONFIGURATION STATUS FOR DEVICE
;CONTROL STATUS REGISTER FOR DEVICE NO: i6

NO: 00
NO:

NO: 02
NO:

NO:

;VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
;CONTROL STATUS REGISTER FOR DEVICE NO: 17
;VECTOR AND CONF]IGURATION STATUS FOR DEVICE NO:

JHOLD ACTIVE BITS FOR TESTING
. SAVE NUMBER OF ACTIVE DQ11S
;OCTAL NUMSER OF TOTAL NUMBER OD DQTM 'S
;CSR OF DQT1 UNDER TEST
;VECTOR AND CONFIGURATION STATUS OF DQ11

sPROGRAM INITIALIZATION

;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
;SET UP POWER FAIL VECTOR
;CLEAR PROGRAM (ONTROL FLAGS AND
JTYPE TITLE MESSAGE

CUNT~

UNDER TEST.

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.PY
09-JUN-78 07 :58

932
933

012737

934
935

105037

005037
012737
005037
005037
012737
012737
012737
012737
013746
013746
012737
022777
001402
000407
022626
012737
012737
012637
012637
005737
001014
105737

000340
001200
014764
001504
001311
001230
001312
001302
001400
201232
001234
000001
001512
177570
177570
000006

000004
001656

177777

000176
000174
000004
000006
000042

177776

177252

000766
032777
001424

001200
001202

MOv

MOV

#DSWR, SWR

#DLIGHTS ,LIGHTS

CC0004
177326

MOV

A
1A

BEQ

65%

104474

MOV

001226
001214

001200
001202

MOV
MOV

CMP

669
65%:
66%:

W6,~(SP)
w6 ,-(SP)

#D]SPREG,LIGHTS

67%:

;ADJUST STA(K
sPOINT TO SOFTWARE

(SP)+ ,a#4
(SP)+_a#6

JRESTORE

12%

coMB
CMP

INIFLG
#SWREG, SWR

TISTR

aSWR

001244

000001

177160

12%:

67%

.+6
PC.,CSRMAP

MOV
MOV
BEQ

#1400, TEMP1
QTEMPT, TEMP?
.+16

. XHEAD

CONVRT
XSTATQ
ADD

H2,TEMPT

BIT

#5w00,aSWR

B8R

BEQ

TYPE

MNEW

=22

(LR

(KSWR
(MP

9SWR, SAVA(T

HALT

001502

JMTITLE

aM]
JSR

TYPE

001244
001246

JTESTING STARTS
MOV HARDWARE SWR TO SWR
sMOV DISPLAY LIGHTS TO LIGHTS
;SAVE VECTORS

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

BNE

BNE
CNTLU

;SET UP FOR POWER FAIL BEFORE

JREFERENCE HARDWARE

MOV

MOV
MOV

:CLEAR ERROR COUNT
;CLEAR LAST ERROR POINTER
cSET UP FOR TEST 1

SET UP FOR TIMEOUT

#-1,a3SWR

663

TYPE

000002

177140

#1400, CREAM

TST
a2
BNE
67%
semwnenTHE NEXT 4 LIgES OF
1SR
INIF

001200

;CLEAR START FLAG
;CLEAR PASS COUNT
;CLEAR ERROR FLAG

B8R

CMP
MOV

SEQ 0020

sLOCK OUT INTERRUPTS
;SET UP STACK
;SET UP POWER FAIL VECTOR

ERRCNT
LSTERR
#1,TSTNO
#.START
,RE TURN

061300

015533
005000
00000C
027737

#340,PS

CLR
(LR
MOV
MOV

000024
001276

104402

002034

.START: MOV

#STACK,SP
#_PFAIL ,a#24
DANUM, SAVNUM
STFLG
PASCNT
ERRFLG
RUNFLG

177232

000220
015612
001400

MOV
MOV
MOV
CLRB
CLR
CLRB
(LR

001310
0010600
001310
000176

08:38 PAGE 21
PROGRAM INITIALIZATION AND START UP.

SWITCH REGISTER

SWITCH REG

JPOINT TO SOFT DISPLAY REG
VECTORS

JUNDER MONITOR

CODE MOVED TO SOLVE PRA2757 (JUNE 78) sawwax
JHAS

.IF

INITIALIZATION BEEN PERFORMED?

YES, BR

STYPE

TITLE MESSAGE

JIF NOT SET FLAG AND INIT
;1S SWREG USED

CZDQF
MACY11 30A{10 52)
_07-JuL-78
CZDQFE.P11
09-JUN-78 07:58

O08: 38

BLOS
TYPE

015374

001500

.=
@SWR,DQACTV
DQACTV,RO

CKSWR
MOV
MOV
MOV
CLR
(P
cMP
BNE

#300,R0
#302,R
R1, (RO)+
(Ri)+
(RO)
¢+, (R1)+
#1000,RO0
2%

001000

012737
012706
005737
001040

000340
001200
000042

177776

.BEGIN: MOV

032777
001411

000004

177032

015432
000240
000240

BiT
BEQ

#B1T2,aSWR
1$

013246
013250

MOV
MOV

#NOP,TTST
WNOP.TTST+2

:SET UP TO LOCK

MOV
MOV

BRW,TTST
BRX,TTST+2

:LOCK NOT SELECTED,

104414

104402

012737
012737
0004 26
013737
013737
032777
001410

013344
013345
000002

013246
013250
176764

MOV
IsT
CKSWR

TYPE

18:

2s:

BIT
BEQ
INSTR

104403

015420

MTSTP(

002254
010214

1ST1

104405

#340,PS

:LOCK OUT INTERRUPTS

ASTALK,SP
9462

:SET UP STACK
;IS PROGRAM UNDER MONITOR CONTROL
:CHECK FOR <*G>

:CHECK FOR LOCK ON TEST

_MLOCK

#SWOT,aSWR
38

:IF

SET UP FOR NORMAL

SW01=1, GET STARTING PC

PARAM

BYTE
BYTE

002254
015322

001214

000001
002644
002644
001302

001226
001214
001216

000001
000020
001302

001304
001306

176740

38 :

48:

TLAST
#RE TURN

1
|
BR

MOV

TYPE
gy I

#TST1,RETURN

;START AT TEST 1

MR
ORETLRN

:TYPE R
:START TESTING

NNNO NNNIN

"'.!’Qt"'*'.*"".Rt"’""".i't.t".!'fitttit't'!’i"fitfit'ttt'ttt"."

\WWWNIN
= NN

002116

22283222

800000000000

11$:

:TEST START AND RESTART

O
Qod
et 2
(L LSSV,
[ N1, 81,8}
— NNONNNN

eS8 g

D
d
D
D
)
)
d —d e
)
)
e
N
I S
—

11%

HAL
T
BR
MOV
MOV
HALT

000300
000302

OOOOOO0OO000O
WAL
f\)—l—l_}—d—l—l—l_‘—l_fl
OV
NN S WD — OV
O N WN—O

SEQ 0021

MERR3

177120

001372

PROGRAM INITIALIZATION AND START UP.

101404
104402

002110
002114

PAGE 22

TST1:

MOV

#1,TSTNO

TSTB

RUNFLG

MOV
MOV
BNE
MOV
MOV

(OMB

#TST2,RETURN
#TSTQ NEXT

1$
#3]T0,RUN
¥4, RUNCNT
RUNFLG

:1S

THIS MY

FIRST

TIME

HERE:

:BR_IF FLAG 1S SET
:SET RUN POINTER,
;SET FOR MAX OF 16 DQ11'S PER SYSTEM
:SET RUN FLAG

SCOPE LOOP

CZDQF
MACY11 30A(i0 52)
07-J4uL-78
CZDQFE.PN
09-JUN-78 07:58
1044
1045
1046
1047
1048
1049
1050

033737

001304

005737
001423
000257
006137
062737
005337
00

001500

001032

001304

08: 38

001500

001300

000020
0C1400
000001

001306
001300
001304

1%:

176646

CEEFSRERER R

001370
001372
001372
001374

RUN_DQACTV

BEQ
CCC

DEC
BNE
MOV

MOV

MOV
BR

TYPE

MERR?
HALT
BR
ccc

3%:

ROL
MOV
ADD
MGV
ADD
MOV
MoV

001506
001300
001510
001300
001360
001350
001350
001352
001352
001354
001354
001356
001356
001362

BIC
MOV
ADD
MOV
ADD
MOV
ADD
MOV
INC
MOV

001364
001364
001366
001366
001370
1084

BIT
BNE

ROL
ADD

2%:

001304

SEQ 0022

PROGRAM INITIALIZATION AND START UP,

TST

000004
001306

PAGE 23

ADD
Mov
ADD

MOV
INC
MOV
INC
MOV
INC

001372
001374

TEST 2

sFIND AN ACTIVE DQ11 TO TEST.
;BR IF I FOUND ONE TO TEST.

DQACTV

;FIND OUT IF

RUN
#4, CREAM
RUNCNT

18
#16.

RUNCNT

#1400, CREAM

e
=2

RUN
SCREAM,DQCSR
#2,CREAM
aCREAM,DQSTAT

#2,CREAM
DQCSR,DORCSR
DQSTAT,DQRVE
C

#177.007
DQRVEC

DQRVEC
, DQRL VL
#2 ,DORL
VL
DQRLVL ,DQTVEC
#2 ,DQTVEC
DQTVEC,DQTLVL
#2.DATLVL
DORCSR, DQRCSH
DORCSH
DQRCSR,DATCSR
#2,DATCSR
DQTCSR,DQERR
#2 .DOERR
DQERR, DOREG
DQREG
DQREG, DQSEC
DQSEC
DQSEC,DQASECH
DOSECH
JTHIS

IS NOT

THERE ARE NO DQ11

s GENERATE ADDRESS OF RECEIVER INTERRUPT SERVICE PS

s GENERATE ADDRESS OF

s GENERATE ADDRESS
s GENERATE
;GENERATE

TRANSMITTER

TST2:

MOV

SCOPE

INTERRUPT VECTOR

TRANSMITTER INTERRUPT SERVICE PS

ADDRESS OF TRANSMITTER CONTROL REGISTER
OF HIGH BYTE

SS OF ERROR REGISTER
s GENERATE ADDRE

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

s GENERATE ADDRESS OF HIGH BYTE
TEST...

CHARR A AT A AR AR AN AN R RN NN RN AR AR ARAI AN RA RN RARR A ANNRANANARARRRNA AR

000002
0026€2-

ACTIVE.

;BR TO FATAL ERROR. WHY AM [ HERE IF NO ACTIVE DQ11°'S???
;CLEAR ALL THE CONDITION CODES OF CPU
;UPDATE RUN POINTER
;UPDATE ADDRESS POINTER.
;DEC NUMBER OF TIMES I LOOKED AT ACTIVE.
;BR AND KEEP LOOKING.
;START RESTORING MY POINTERS.
JRESTORE ADDRESS POINTER
JRESTORE RUN POINTER.
JKEEP ON TESTING.
;ALLERT OPERATOR OF FATAL ERROR
sNO DQ11 ACTIVE. WHY AM | HERE???
2YOU MUST RELOAD DQ11 DIAGNOSTIC!!
;STICK HERE ON CONT.
;CLEAR CPU COND. CODES
;UPDATE RUN. ACTIVE DQ11 FOUND.
;PLACE ADDRESSS OF DQ11 AT DQCSR
;UPDATE ADDRESS POINTER
;PLACE STATUS OfF DQ11 AT DQSTAT
;UPDATE ADDRESS POINTER

#2,TSTNO
#TST3 NEXT
;THE ORIGINAL TEST 2 IS
JNOW TEST 2 OF TAPE DZDQH

R &S

08: 38

COQPOODOOO

Y
S
S

WS
O
S
U

;

O
G
S
i G

NNV
B = s DD

G
S
SN
S
S
S
S
G
T G
S
W
S
S
S

IF EVERY CHARACTER FROM

SWO09=1 WILL FREEZE ON CURRENT DATA.

TEST %

:"ttti&ttfitfifi'ttttt*tfi""'.tt.ttttt..itttttttt.'il"t'tttt'QQ."'Q.

012737
012737
012737
032737

000003
003214
002744
020000

001226
001216
001220
001510

013050
176266

001214

013047
013044
013042
000010
013040
176400
176402
012216

176370
000200
176350

013047
000010
013046
000014

INWNIN

120000

TsT3:

013044
176342

aRE TURN

CLRB

DETCAR*1

#.EOP,RETURN

#8_, COUNT

*EIGHT BITS FOR EIGHT SHIFTS.

CLRB
CLRB
MOV
INCB

aDQRCSH
@DOREG
#RXBUFF ,@DQSEC
@DOREG

*GET CHAR ADDR.
*GET RX BA PRI.
:LOAD IT
*GET RX WwC PR].

2%:

MOV

3¢

MOV
CLRB

GDCHAR
ADDR

COUNT ,R2

#200, aDQSEC
@DORCSH

MOVB

*SELECT THE SEQUENCE REGISTER

MOVB
MOV

#12.aDOREG
#4012, aDASEC

; COMM
:SELECT EIGHT BITS TEST LOOP AND AUTO STEP

MOV
COMB
BIC
ROR

DETCAR, TEMP
TEMP+1
#8177 ,3DQSEC
TEMP

sMOV CHARACTER TO WORKING AREA
:COMPLIMENT DATA FOR USE ON THE BIT WINDOW
:IF PREVIOUSLY SET; CLEAR THE BIT
WINDOW.
“SHIFT OUT THE BIT OF DATA.

BIC

#-CBIT?7>,R3

INC
DEC
DEC

aDQSEC
aDQSEC
R2

SCLOCK UP
*CLOCK DOWN
*IS CHARACTER DONE

TST

aDORCSR

:WAS

*ERROR CHARACTER NOT DETECTED.

#81T12+8170,aDORCSR

sSET RX ACTIVE AND RX GO

TEMP,R3

*STORE CHAR

R3.,aDQSEC

*PLACE DATA ON THE BIT WINDOW

aDGRCSR,TEMP

BIC

#4C<7600>,
TEMP

525

rsrp
’

TBEK
*

SCOP1

:CLEAR ALL UNWANTED BITS

*BR IF NOT DONE
THE

YET

CHARACTER REALLY DFTECTED?

*BR IF GOOD
-GET

THE RECEIVER CSR.

:CLEAR ALL BUT THE CHARACTER DET. ADDR.
:WAS THE

CHAR DET.

IN ADDR ZERQ?

2
»

CHARACTER TO BE DETECTED

:SET SINGLE CHARACTER REC AND SET FLAG.

MOV

:LOAD THE

#B81T15+81T13,aDQSEC

BM]

......

SLOAD IT
SSELECT CHARACTER DET REG 0

#14.aDOREG

BNE

104002

ZERO

MOVR

BIS

042737
005737
001401

*GET NUMBER OF SHIFTS FER CHAR.

*SELECT THE CHARACTER DET REGISTER.

DETCAR,@DQSEC

BIS

176206

*SET FOR ERROR PRINTOUT
SSAME.

DETCAR+1.GDCHAR -

MOV

176230

THE DQM

:CLEAR THE CHARACTER STORAGE AREA

#10.aDOREG

MOV

4$:

:CLEAR ALL

MOVB

MOV

104401

:GOTO END PASS

CLR
CLR
MOV

176336
176326
176322
176312
176306
176266

176260

JMP

:DOES THIS DQ11 HAVE THE ‘BB8'‘ OPTION INSTALLED?
‘BR IF YES

MEMCLR

176376
176364

#3,TSTNO
#TST4 NEXT
#1$,L0CK
#9RRIT,DASTAT
138

138:

6$:

013040

MOV
MOV
MOV
BIT
BNE
MOV

015714

NUAN

VVINNVNNES SN

TO_SEE

INOTE:

SEQ 0023

;0 TO 377 CAN BE DETECTED IN CHARACTER
sDETECT ADDRESS ZERO.

g
O
VU
S S

PROGRAM INITIALIZATION AND START UP.

sTEST

NN
N
S
e S
e S
Y
S
T
O
B

PAGE 24

CZDQF
MACY11 30A(1052)
07-JUL~78
CZDQFE PN
09-JUN-78 0 7:58

*CHAR NOT DETECTED IN ADDR. ZERO..
e e

- ep o

- e . o

;IF

SW09=1;

THEN GOTO ADDRESS IN '10CK''.

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.P11
09-JUN-78 07:58
1156
1157

}}gg

003204
003210

003212

105237
001260

08:38 PAGE 25
PROGRAM INITIALIZATION AND START UP.

013047

INCB
BNE

104400

SCOPE

DETCAR+1
2%

SEQ 0024

JHAVE | HIT MY LIMIT YET?
;NO RETURN WITH UPDATED CHAR.

.SCOPE TEST

1160
1161
1162

1163
1164
1165
1166

:
JTEST THAT (CHARACTERS FROM
;6400 TO 177400 CAN BE DETECTED.
;IN CHACTER DETECT ADDRESS ZERO.

}}gg

JNOTE:

1169

TEST &

1170

"ttttttttfitt't*ttttt*ttttttttttt*tttt*tttttttt*t*tttt*fitttttttttttttt

1171
1172
1173
1176
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189

003214
003222
003230
003236
003242
003246
003252
003252
003256
003262
003270
003274
003302
003306
003314
003322
003330
003336
003344

1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201

003360
3366
003374
003400
003406
003410
003414
003420
003424
003432
003436

1190

003352

012737
012737
012737
005037
005037
005037

000004
003514
003252
013046
013044
013042

012702
105077

000020
176106

105077
112777
013777
112777
012777
112777
012777

176054
000010
013046
000014
050000
000012
000012

013737
013737
005137
042777
000241
005037
006037
106037
053777
005277
005377

013046
013046
015714
000200

012777
105277
012777

052777

1202
1203
1206
1205
1206

003442
003444
003446
003452
003454

005302
001355
005777
100401
104002

1208

3464

042737

1207

1209
1210
1211

SW09=1 WILL FREEZE ON CURRENT DATA.

003456

003472
003476
003500

017737

005737
001401
104002

012216
176074
000200

0100017

001244
015714
001244
001244
175734
175730

001226
001216
(01220

176102

175676

015714

1%:
2%:
3%:

176070

176000

175740

015714

#4,TSTNO
#TSTS NEXT
#1%,L0CK
DETCAR
GDCHAR
ADDR

MOV
CLRB

#16. ,R2
JSET COUNT FOR 16 BIT CHARS
oDQREG
;SEL THE RX BA PRI].
#RXBUFF ,aDQSEC
;LOAD IT
aDQREG
JSEL THE RX W(C PR].
#200,aDQSEC
JLOAD IT
aDQRCSH
;GET CHAR ADD ZERO
#10,3DQREG
;GET CHAR ADDRESS
DETCAR,aDQSEC
;LOAD THE CHARACTER TO BE DETCETED
#14 ,3DQREG
.GET THE SEQ REG.
#MIT12+B1T14 ,aDQSEC
<LOAD DBL CHAR AND SET FLAG
#12,3DQREG
;SEL MISC REG.
#BIT1+BIT3 aDQASEC
;SET TEST LOOP AND AUTOQ/STEP

MOV
IN(B
MOV

61S

015714
013044
75764

MOV
MOV
MOV
CLR
CLR
CLR

CLRB
MOVB
MOV
MOVB
MOV
MOVR
MOV

176054
176050
176040
176034
176024
176020

175706

170377

7TST4:

MOV
MOV
(oM
8IC
CLC
CLR
ROR
RORB
BIS
INC
DEC

DEC
BNE
TST
8M]
HLT

MOV

8JC

TST
BEQ
He T

;SET CHAR TO ZERO
;SET FOR ERROR
; SAME

lBIT12+BIT6.QDQRCSR

DETCAR,TEMP
DETCAR,GDCHAR
TEMP
#81T7,aDQSEC
TEMP1
TEMP
TEMP
TEMP1 ,aDQSEC(
aDQSE(
aDQSEC

JSET RX ACTIVE AND GO

+GET DATA (CHAR.
;FOR ERROR
;JPREPARE FOR BIT WINDOW
;ZERO BIT WINDOW
:CLEAR CARRY
:

:
;PLACE DATA ON BIT WINDOW
. CLOCK THE
;
DQ11

R2
4%
aDGRCSR
.+
2

;1S ALL THE CHAR DONE?
:BR IF NO
;DID THE FLAG SET?
;BR IF YES
;CHARACTER DET. FLAG NOT SET FOR DBL (HAR.

4‘C<7406>,TEMP

JCLEAR ALL BUT THE CHARACTER DET. ADDR.

aDQR(SR, TEMP

TEMP
.
P4

;GET THE RECEIVER CSR.

;WAS THE (HAR DET. IN ADDR ZERO?
;
o CHAR NOT DETECTED IN ADDR. ZEROQ..

CZDQF

MACY11

CZDQFE.P11
1212

30A(1052)

09-JUN-78 07:58

}%}2

003502

104401

1215
1216

003504
003510

105237
001260

}S}g

003512

07-JUL-78

08:38

SCOP1

013047

INCB
BNE

104400

SCOPE

1231

;

1232

;UPDATE THE DATA
;ALL DONE?

:SCOPE WHEN ALL DATA DONE.

TEST §

"t*it"fifiifi*fi*.fifil*fi't'"Q'it'fittittitt'tfihtt'itt'Qfifi'!ttttfifiti'itttt

003514
003522
003530
003536
003542

012737
012737
012737
004737
104400

000005
003544
000000
004314

001226
001216
013042

T1STS:

MOV
MOV
MOV
JSR
SCOPE

#5,TSTNO
#TST6 NEXT
#00,ADDR
PC,CHK.ADD

;LOAD THE ADDRESS
.GO AND LOAD THE rHARA(TER.
;SCOPE THIS TEST

:
;TEST THAT THE CHARACTER 255

12641

sCAN BE DETECTED IN CHARACTER

1242

;DETECT ADDRESS 01

12643

1244

;

1245

1249
}Sg?

DETCAR+1
1%

;IF SW09=1; THEN GOTO ADDRESS IN 'L0CK''.

JTEST THAT A CHARACTER CAN
JBE DETECTED IN ALL 16 CHARA(TER
;DETECT ADDRESSES
;
:
JTEST THAT THE CHARACTER 255
;CAN BE DETECTED IN CHARACTER
;DETECT ADDRESS 00
:

1239
1240

12646
1247
12648

PROGRAM INITIALIZATION AND START UP.
Jo—==- *LO(K#* ===mccccccoee

1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230

1233
1234
1235
1236
}Sgg

PAGE 26

TEST 6

"fitfififi**fi*ttttt.*tfitttt*"""*tfitttfit*tQ'*fifittQtfifitfi't".*fitlfifi'i.fifit

003544
003552
003560

003566
003572

012737
012737
012737

004737
104400

000006
003574
000001

004314

001226
001216
013042

T1ST6:

MOV
MOV
MOV

JSR
SCOPE

#6,TSTNO
#TST7 NEXT
#01,ALDR

PC,CHK.ADD

;LOAD THE ADDRESS

.GO AND LOAD THE CHARACTER.
;SCOPE THIS TEST

1252

1254
1255
1256

;CAN BE DETECTED IN CHARACTER
;DETECT ADDRESS 02
.

1252

JTEST THAT THE CHARACTER 255

1257

;

1258

1259
1260

1261
1262

}ggz

1265
1266
1267

TEST 7

l'*fit*t*t*t*‘tttttt*ttttttifi*fiQ.tt.i‘.tfi*tl’tt"tt.ttt'tttti'it'.ti’it

003574
003602

003610
003616

003622

012737
012737

012737
004737

104400

000007
003624

000002
004314

001226
001216

013042

71S17:

MOV
MOV
MOV
JSR

SCOPE

#7,TSINO
#T3T10,NEXT
#02 ,ADDR
PC,CHK.ADD

;LOAD THE ADDRESS
;GO AND LOAD THE (HARACTER.

;SCOPE THIS TEST

:
JTEST THAT THE CHARACTER 255
cCAN BE DETECTED IN CHARA(TER

SEQ 0025

CZDQF
MACY11 30A(1052)
0O7-JuL~-78
CZDQFE.PIM
09-JUN~78 07:58

1268
1263
1270

;

1271

1272
1273
1276
1275

15;9

00365¢

012737
012737
012737
004737

104400

000010
003654
000003
004314

001226
001216
013042

;

1291
1292
1293
1294
1295
1296

012737
012737
012737
004737
104400

000011
003704
000004
004314

001226
(0126
013042

371
312
313

314

§}
31
34
31

ASLISLNTS]

D
—

WO 000N

W= OOV

3
3

003704

003720
003726
003732

012737

000012

001226

012737
004737
104400

000005
004314

013042

012737

003734

001216

SEQ 0026

AR R AT AN R A AN AN N RN A A RN RN NN RARARA AN

#10,TSTNO
#TST11 NEXT
#03,ADDR
PC,CHK.ADD

TST12:

#11,TSTNO
#TST12 NEXT
#04 ,ADDR
PC,CHK.ADD

MOV

MOV
JSR
SCOPE

A AN RARR KRR RN RAANRRR AN

;LOAD THE ADDRESS
oGO AND LOAD THE (HARACTER.

;SCOPE THIS TEST

P AN A A AN R R AN AN A A A A AN RN AR A AR AR AR N RN

MOV

RAAN R

;SCOPE THIS TEST

:
JTEST THAT THE (HARACTER 255
;CAN BE DETECTED IN CHARACTER
;DETECT ADDRESS 05
:
12

AR RRN AN

;LOAD THE ADDRESS
;GO AND LOAD THE (CHARACTER.

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

MOV
MOV
MOV
JSR
SCOPE

TEST

SRR

003712

AR R

:
JTEST THAT THE (HARACTER 255
;CAN BE DETECTED [N CHARA(CTER
;DETECT ADDRESS 04
;
TEST N

T1ST11:

ARR NI AN RRRRARARRR AR AR RS

#12,TSTNG

#TST13 NEXT
#05 ,ADDR
PC,THK.ADPD

;LOAD THE ADDRESS
;GO AND LOAD THE CHARACTER.
;SCOPt THIS TEST

“TEST THAT THE CHARACTER 255

<DCMDS§2

300
301
%8%

AN NN

) ad e

)

) md md

) e

o) md e

)

299

MOV
MOV
MOV
JSR

1297

1298

TST10:

SCOPE

1284

003654
003662
003670
003676
003702

;DETECT ADDRESS 03
:
TEST 10

NN AR AR AR

0036264
003632
003640
003646

1278
1279
1280
1281
1282
1283
1285
1286
1287
1288
}Sgg

08:38
PAGE 27
PROGRAM INITIALIZATION AND START UP,

“CAN BE DETECTED IN CHARACTER

*DETECT ADDRESS 06

TEST 13

"ttttttt'ttttttttttttttttttttttttfi!ttttttttttttttfitttttittt..tit'tt't

003734
003742
003750

012737
012737
012737

003762

104400

003756

004737

000013
003764
000006

0046314

001226
001216
013042

TST13:

MOV
MOV
MOV

JSR

SCOPE

#13,TSTNO
#TST14 NEXT
#06 ,ADDR

PC.,CHK .ADD

;LCAD THE ADDRESS

:GO AND LOAD THE CHARACTER.

“SCOPE THIS TEST

*TEST THAT THE CHARACTER 255

:CAN BE DETECTED [N CHARACTER
*DETECT ADDRESS 07

TEST 14

""'.tii.t.t.'fi'...'...""t""tt.tt'.t'...QQ'-t.".'Q...'.'.'tt""

CZDQF
MACY11 30A(105¢2)
07-JuL-78
CZDQFE P11
09-JUN-78 07:58

003764
003772
004000
004006
004012

012737
012737
012737

004737

104400

000014
004014
0C)007

004314

B 3
08:38 PAGE 28
PROGRAM INITIALIZATION AND START UP.

001226
001216
013042

TST14:

MOV
MOV
MOV

JSR

SCOPE

#14_,TSTNO
#TST15,NEXT
#07 ,ADDR

PC.,CHK .ADD

SEQ 0027

:LOAD THE ADDRESS

:GO AND LOAD THE CHARACTER.

*SCOPE THIS TEST

STEST THAT THE CHARACTER 255

*CAN BE DETECTED IN CHARACTER

:DETECT ADDRESS 10

TEST 15

:tttttttttttttttit*ttttttt'tttttttltttt*tttttttttttttttttttittt*tttt'

338 B
R R e

D
D
D ed e
D
D
)
b
) e
D
)
D e
e
e
D e
D
D e
d
) ed
D
D

104400

000015
004044
000010
006314

001226
001216
013042

TST15:

MOV
MOV
MOV
JSR

SCOPE

#15,TSTNO
#TST16 NEXT
#10,ADDR
PC, CHK.ADD

;LOAD THE ADDRESS
.
GO AND LOAD THE CHARACTER.
SSCOPE

THIS

TEST

“TEST THAT THE CHARACTER 255

SCAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 11

;

TEST 16

;ttt*tt'tttttttltttt*ttttttttfifi.ttt'tt'Qttfi*t'tt*tttt*fi'tttfitttttitt'

012737
012737
012737

004737
104400

000016
004074
000011

004314

0C122¢
001216
013042

TST16:

MOV
MOV
MOV

JSR

SCOPE

#16,TSTNO
#TST17 NEXT
#11,ADDR

PC., CHK . ADD

:LOAD THE ADDRESS

GO AND LOAD THE CHARACTER.

SSCOPE

THIS

TEST

STEST THAT THE CHARACTER 255

:CAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 12

;

TEST 17

:ttttttt‘ttttt"*ttttttt'tt'it'tttfitltttttttttt'ttt't"tttt.tttt!tttt

012737
012737
012737
004737
104400

000017
004124
000012
004314

001226
001216
013042

TST17:

MOV
MOV
MOV
JSR

SCOPE

#17,TSTNO
#TST20 NEXT
#12 ,ADDR
PC, CHK.ADD

;LOAD THE ADDRESS
©GO AND LOAD THE CHARACTER.
*SCOPE

THIS

TEST

STEST THAT THE CHARACTER 255

*CAN BE DETECTED IN CHARACTER
:DETECT ADDRESS 13

—

ed md ed

012737
012737
012737
004737

WWNAN

)

1339

004014
004022
004030
004036
004042

TEST 20

."tttQ't'il..t..’tt"itt'l'tt'tfi'.tt".ttt"'t'fltttt."Q'tt"t.'tttl.

012737
012737
012737
004737

000020
004156
000013
006314

001226
001216
(13042

1S120:

MOV
MOV
MOV
ISR

#20,TSTNO
#TST21 NEXT
#° T _ADCR
PC,CHK.ADD

;LOAD THE ADDRESS
:GO AND LOAD THE CHARA(TER.

MACY11 30A(1052)
07-JuL-78
P11
09-JUN=-78 07:58

WWWWW&
?‘0008
W=
O0 BERERERE

004152

PAGE 2 9

SEQ 0028

PROGRAM INITIALIZATION AND START UP.

104400

SCOPE

;SCOPE THIS “EST

::TEST THAT THE (HARA(CTER 255

“CAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 14

TEST 21

'-'QQt't..'t...'.t...tt0.'.".'.tt"Q'Qt"t.'.....'.Q..tt"..'."'...'

006154

012737

012737
072737
004737
104400

200021

004204
000014
J0a314

001226

001216
07302

*ST2':

004162
004170
004176
004202

I S
S
S
S
i S
S

1380

08:38

MOV

MOV
TMoV
ISR
>COPE

#21

TSTNO

#TsF22 NEXT
#14 ADDR
PC. CHK . ADD

;LOAD THE ADDRESS
GO AND LOAD THE CHARACTER.
:SCOPE THIS TEST

“TEST THAT THE (HARACTER 255

SCAN BE DETECTED [N CHARACTER

SDETECT ALDRESS 15

TEST 22

004204

004212
004220
0046226
004232

012737

012737
012737
006737
104400

700022

00423
0000°S
006314

001226

0C'2'6
(713042

'.QQ.t.'...'...'.'.............QQ'......Q.....'.....Q.............'..

t5722:

MOV
Oy
JSR
SCOPE

822,7S5TNC

8TST2Y wexT
815, ADDR
P{. JWK . ADD

:LOAD THE ADDRESS
;GO AMD LUAD TME CMARACTER.
1SCOME THIS TEST

frgqr THAT THE (MARATTER 2SS

SCAN BE DETECTED IN (HARACTER
SDETECT ADDRESS "6

TEsT 23

:
00423
004242
004250

V12737
012737
012737

006262

106400

004¢25¢

004737

000023
006266
00006
006314

OC1226
001276
0'30ec

-"'...O..'........Q...................................'...0..'....0.

‘Ys123:

mpy
mOy
Oy

ISR

SCOPE

0231580
815F20 rgn”
816 _ADOR
oy (e

::'fSI TrA? "6

SCAN BE DE°t
. TED

Y 3

*T0000C0OOROO?’

006266
006272

012737
012737

006312

106400

004300
004306

0046314
094314

012737
004737

106,417

000026
0045¢2

000017
00631

001226
(012%¢

%Y<roen:

230«

wpm
-,

o\
Rw

Cog

[

ol N . OAN Te€ (rMRA TER,

TTT TelS TES!

wAAA "ER

DETELT OORESS

. ON "»€ ADDAESS

ADU

@”

DOOOOOO0O00O

85<,75"
8t
N

PIRIF YIS
- L.

200000000

0000000000000 0C0CCOCQCQOOCS

:WOAD o€ ADDRE
L NS 0N g

1. wE TeelS TES
.

tNe &

(HARALTER,

TE DQTY RELISTERS,

MACY11 30A(1052) OgEJUL-78
CZDQFE.P11
09-JUN- 78 07

CZDQF

1137727

175036

VNN

013047
013044

2777
5277

175610

o =HOO—OLO-200—
— and
—ad ek =D B (O
) b D

005037

noN)
NN
NN ~ NN NN
NN ~ NN NN
~NN ~ NN NN

1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451

[AV1pV]

001401

1471
1472
1473
1474
1475
1476

104002

1489
1490
1491

;LOAD FOR ERROR PRINTOUT
SEIGHT SHIFTS FOR EIGHT BITS
TSEL rne RX BA PRI.

(NO VRC)

NRXBUFF ,@DQSEC

:LOAD

MOV
MOVB
MOV
MOVB
MOV
MOVB
MOv
BIS
MOv
(OMB
BIC
ROR
MOV
BIC
BIS
INC
DEC
DEC
BNE
TST
BM]
HLT
MOV
BI(C
(M8

#-1.3DQSEC
#10.3DAREG
DETCAR,@DQSEC
#14, ADAREG

*SET FOR ONE CHAR.
“SELECT THE CHARACTER DET REGISTER.
:SET THE CHARACTER TO BE DETECTED INTO DQ11
*SELECT THE SEQUENCE REGISTER.

2, aoonec
#4072, DQSEC

SSELECT THE MISC REGISTER.
“SET EIGHT BITS TEST LOOP AND AUTO STEP

DETCAR, TEMP
TEMP+1

:MOVE THE CHAR TO BE DET TO WORKING AREA
*COMPLEMENT CHAR FOR USE ON BIT WINDOW.

TEMP

SSHIFT OUT BIT

BEQ

@DQREG

“SEL

#BIT15+8170,3DORE
SR

SSET RX ACTIVE AND RX GO.

SIF BIT WINDOW SET ON LAST PASS
OF

DATA.

TEMP.R3
# CRIT?>.,R3
R3,aDASEC
aDASEC
aDQSEC
R2

SSAVE IT
:CLEAR ALL UNWANTED BITS
*PLACE DATA ON BIT WINDOW.
SCLOCK UP
*CLOCK DOWN
*IS CHARACTER DONE YET?

aDQRCSR
.+

*WAS CHAR REALLY DETECTED?
‘BR IF GOOD

CLEAR IT.

*BR IF NOT DONE

;CHARACTER DETECT FAILED.

aDQRCSR, TEMP
#*(<7400>,TEMP
ADDR, TEMP+1

;GET THE RECEIVER CSR.
;CLEAR ALL BUT CHARACTER DET. ADDR.
sWAS THE CHARACTER REALLY DETECTED

s IN ADDRESS $A 7?

;WRONG ADDRESS.

RECEIVER AND

TRANSMITTER ''SET 'T°'* ‘'

sTEST OF BIT ONE OF SEQUENCE REGISTER.
JTHIS

TEST WILL

"'SET

T'' AND THEN WILL

JSEND A CHAR WHICH WILL ''SET DONE CLEAR GO''; IF
JREALLY IN TRANSPARENT MODE THE (HAR WILL NOT BE DETECTED
JAND THE WORD COUNTS WILL GOTO ZEROC.

TEST 25

2RSS

200202802

RS2

000025
004722

MoV
MOV

#25,1STNO
HT5T26, NEXT

004737
012777

011024
040002

2%:

JSR
MOV

#81T1464+BIT1,aDASEC

105377
112777

174546

012737
012737

004576

004610
004614
004622

004602

SRRl

1s725:

004562
004570

012777

000010
164400

DECB

MOVR
MOV

CHAR DET REG

;SET SINGLE CHAR DET AND SINGLE CHAR DET FLAG SE

3¢

JTEST OF

THE RX WC PR].

#M]T15+81T13,D0SEC

#81T7,3DQSEC

HLT
RTS

000207

1477
1478
1479
1480
1481

1488

(VP
o o

013042

NN
N

174622
170377

—_

123737

174632
—_——

017737
042737

1466
1467
1468
1469
1470

SEQ 0029

JLOAD THE (HAR DET ADDRESS TO BE USED.
;CLEAR WORKING LOC.
;LOAD THE CHARACTER TO BE DETECTED IN WORKING AREA.

#255,GDCHAR
COUNT ,R2
SDOREG

INCB

174654

VALV LRV, ]

1465

174704

QOO

100401
104002

1464

ADDR , @DQR( SH
DETCAR
#255,DETCAR+1

MOV
CLRB
MOV

174776
174766
174762
174752
174746
1764736
174732
174712

042777
006037
013703
042703
050377
005277
005377
005302
001357
005777

1454
1455
1456
1457
1458
1459
1460
1461
1462
1463

1482
1483
1484
1485
1486
1487

MOVB
(LR
MOVE
MOV

015714

1452
1453

PAGE 30

PROGRAM INITIALIZATION AND START UP,

ONNN
NOWW
NN

“436
1437
1438
1439
1440

08:38

PC,SET.UP

aDQRC SH
&7, ADQREG
#351+400,aDQSEC

2222X2220

;SET UP ALL NECESSARY FOR

RRXRRS

TEST.

JSET DBL. (HAR AND SET T

JSELECT ADD 16 (8)
JSELECT CHAR DET., ADDRESS

;LOAD THE (HARA(CTER.

SET DONE

(LEAR 6O.

CZDQF
MACY 1T 30A(1052)
07-JuL-78
CZDQFE PN
09-JUN-78 07:58
1492
1493
1494

ATXBUFF ,RO
(PC)+,(RO)+

MOV

(PC3+,

BYTE

174476

174460

(RO)
+

351,200

;PREPARE TX BUFFER
;LOAD THE BUFFER WITH DATA

‘DATA

*LOAD THE BUFFER WITH DATA

:DATA

PC,ENABLE
#1.aDQREG
aDQSEC
R A
3

JSET GO BITS FOR RX AND TX:
*GET THE RX WC PRI.
JRX WC PR]. SHOULD =0
;BR IF RX WC PRI
O
JRX PRI WC NOT =0

TST

aDQSEC

JTX WC PRI

BEQ
HLT
SCOPE

104003
104400

000,350

;SET FUNCTION. CLEAR GC SET DONE.

JSR
MOVB
TST
BEQ
HLT

MOvVB

MOV
MOV

#3,3DQREG
.t
3

JGET TX WC PRI.

SHOULD

JBRIF TX WwC =0
sTX WC PRI NOT -0

WAIT FOR RX DONE.

;TEST OF RECEIVER ''CLEAR ''T''
"
sTEST OF BIT TWO OF SEQUENCE REGISTER.
JTHIS TEST WILL ENTER BOTH THE RECEIVER AND
;TRANSMITTER INTO TRANSPARENCY; THEN A (HARA(CTER

JWHICH SAYS "‘CLEAR RX

T'' WILL BE SENT FOLLOWED

;BY A CHARACTER WHICH SAYS ''SET RX (HAR FLAG''.
sTHE

TEST

THEN CHECKS

THAT

THE

CHARACTER FLAG

sWHICH MEANS THAT rHARACTER WAS DETECTED.
;

SET

TEST 26

NN =200

:ttttttttQtt!ttt*tttitttttttlt'tttfittttttfittttttttttttt.tfittfit'Qtt'tt

004750
004754
004762
004770
004776

105377
112777

012777

1764406
000010
165000
000014
040004

NO NS WNI 2OV

)
b
b
e
) e
D e
) e
)
D
D

#14 ,aDQREG
JSELECT THE SEQ REGISTER.
#81715+B1T7,aDQSEC

BYTE

350

200
011620
112777 - 000001
005777
1764474
001401
104003
112777
000003
174456
005777
001401

MOVR
MOV

005004

105377

174352

DECB

#14.aDOREG
SSELECT THE SEQ REGISTER.
#BIT14+BIT2,aDASEC
;SET FOR DBL CHAR AND CLEAR T
@aDORCSH
SGET NEXT ADDR

I3 aE P
BB WNWN
SN OV~

012014

174532
174526

000026
005072
011024
040002

005010
005016
005024
005032

112777

000010

MOVB

#10.aDQREG

112777

000074

MOVB
MOV

#14.aDOREG
*SELECT THE SEQ REGISTER.
#;T15+B]713,aD0S8EC

012700
012720
350
012720

012014

MOV
MCv

#TXBUFF ,RO
(PC)+, (RO)+

:GET POINTER
‘LOAD THE BUFFER W]TH DATA

MOV

(PCi+,

*LOAD THE BUFFER WITH DATA

) e

012700
012720
000
012720
351
004737

100200

SEQ 0030

PROGRAM INITIALIZATION AND START UP.

R
D

001226
001216

TST26:

1746422

MOV
MOV
JSR
MOV

174406

DECB
MOVB

D ed md
D
D
b
D ed ed
=D
—d e
2 e
s —d

000014

012737
012737
004737
012777

VNV AU
IV, IV, IV, TV, L, LY Al

004644
004650
004652
004654
004656
004660
004664
004672
004676
004700
004702
004710
004714
004716
004720

112777

012777

PAGE 31

004722
004730
004736
004742

LA L

IV, LV, VL TV, [V, LV, LV, LW AV, RV, LV, [V, |

1495

004630
004636

08: 38

005040
005044
005046

005050
005052
005054

012777
112777

012777

352

00473%7

166400

120000

351

355
11620

1746402
174372
174366

MOV

MOVB
MOV

MOV

LRYTE

BYTE
JSR

826, TSTNO
#TST27 NEXT
PC,SET.UP
;SET UP ALL NECESSARY FOR TEST.
#IT14+BIT,aDQSEC
;SET FUNCTION: DBL CHAR AND SET
@DORCSH
“SELECT CHAR ADDRESS 16 (8)

#10.aDOREG

*SELECT CHAR DET ADDRESS.

#352+400,30QSEC LOAD CHARACTER

*GET NEXT ADDRESS

“SELECT CHAR DET ADDRESS

#355+400,3DQSEC -LOAD CHARACTER.

350,351

(RO)+

323,365

PC,ENABLE

;SET FOR SINGLE CHAR AND SET FLAG.

*DATA

‘DATA

JS5ET GO BITS FOR RX AND "X wA]TM FOR Rx DONE.

005777
10040

08:38 PAGE 3¢
PROGRAM INITIALIZATION AND START UP,

174274

TST

aDQR(SR

HLT

BM]

04004

164400

SEQ 0031

JCHECK CHAR DET FLAG

. +4

SCOPt

JBR IS SET

. CHARACTER DET

;SCOPE

FLAG NOT

THIS TEST

SET

;TEST OF RECEIVER AND TRANSMITTER 'B((C/CLEAR START''
;TEST OF BIT THREE OF SEQUENCE REGISTER.
;THE TEST STARTS UP THE TRANSMITTER AND RECEJVER BC((

JAND DEPOSITS ONE CHARACTER INTO IT.

DONE FLAG COMES UP AND THE DQ11

THE RECEIVER

CLOCK IS STOPPED.

;IHE BCC'S OF BOTH THE TX AND RX ARE THEN '‘GRABBED''
JAND SHIFTED LOOKING FOR THAT ONE CHARA(CTER TO BE PRESENT

JIN THE BCC OF EACH RX AND TX BCC REGISTER.

TEST 27

012737
012737
004737
012777
112777

012777
112777

012777
012700
105020
022700
001374
012700
012720

000027

005350

011024
100010

000017
000200
000003
177576

012014

00122¢
001216

AR AN

N AN

Tsr27:

MOV

174252

174242
174236

17422€
174222

1¢:

012215

012014
225
000225
000010
174154

013036
013040
1746156
4140
134

011674
013040

120

01303¢

005312
005314
005316
005320
005324

013042

8¢

AN RA R RNRRANPANNAARRANNARANNTAACANN
SR

#17.aDQREG
#200,aDQSEC
#3,aDOREG
#-202 ,aDQSEC
#TXBUFF ,RO
(RO’ +
NTXBUFF+201,RO
1%

JSET SNGL

CHAR AND B((/START (LEAR

SSEL THE POLY REG.
‘SET FOR LRC 8
“SEL THE TX WC PRI.
*SET FOR 202 (8)
*GET TX BUFFER
“CLEAR ALL THE TX BUFFER
:ALL CLEAR?
‘BR IF NO

MOV

#TXBUFF ,RO

SGET

.BYTE
MOV

350,225
#225. CHAK

*DATA
SSET EXPECTED BCC CHAR.

#-5,3D0SEC

SSET CHAR COUNT

(PC)+,

(RO)
+

TX BUFFER

‘LOAD THE BUFFER WITH DATA

MOV
CLRB
MOV
MOVB

#8., COUNT
QDOREG
#RXBUFF ,@DQSEC
#1,aDOREG

MOVB
MOV
MOVB

#4, 3DQREG
;SEL REC SECONDARY
#RXBUF
F +20,3DQSEC
;SET WITH SEC ADRS
#5,aDOREG
;SEL REC CHAR COUNT

JSR

PC,NEWENA

?og

“SET
*SEL
:SET
:SEL

FOR 8 BITS
REC PRIMARY
WITH START ADRS
REC CHAR COUNT

#-201,aDQSEC

“SET CHAR COUNT

COUNT ,R3

‘GET CHAR SIZE

“SET GO BITS FOR RX AND

L
ROLB
AD?

RO
RO

:
“SHIFT RX BCC [MAGE
*PICK UP CARRY

BEQ
DEC
BNE

3¢
R3
6%

*BCC OK.
SALL SHIFTS DONE>
‘BR IF NO.

MOV

(SN ,R3

:SAVE COUNTER

MOVB
MOV
MOVE
MOV
MOV
CLRB
(MP
BNE

MOV

IR AR AN

427 ,TSTNO

#TST30,NEXT
PC,SET.UP
;SET UP ALL NECESSARY FOR TEST.
#31T15+B173,aDQSEC

MOV

1
“10
176104

AR AR AR RN R AR

MOV
JSR
MOV

MOV

NONNNNSY
[ ol 2P SN SN

[

QT S

NIANTN
NN N NN NN SN

Yo ¥o S, IV, IV, IV, IV, IV IV, IV TV, | N A
' (0,50
WA 2O V0O~V HWRL—DO woo

MACY11 30A(1052)
O?-JUL 78
ZDQFE P11
09-JUN-78 0 7:58

HLY

(HAR R0

“(HECK BCC

*RX BCC HAS WRONG DATA,

TX:

WAIT

FOR RX DONE.

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE. P11
09-JUN=7 8 07:58

08:38

PROGRAM

INITIALIZATION AND

9%:

ROLB
AD(C

R1
R1

BNE
HLT

5%
R3
8%
5

106101

005507
023701
001403
005303
001370
1 0400¢
044l

713036

PAGE 33

(Mp
BEQ
DEC

SCOPE

CHAR,R1

SEQ 0032

START UP.

JSHIFT

TX BCC

IMAGE

;PICK UP CARRY
;1S BCC OK?
;BR IF 0K
JALL SHIFTS DONE?
:BR IF NO

;TX BCC HAS WRONG DATA,
;SCOPE THE TEST

CZDQF

MACY11 30A(1052) 07-JuUL-78 08:38 PAGE 36

CZDQFE.PY

SEQ 0033

PROGRAM INITIALIZATION AND START UP.

09-JUN-78 07:58

1612

1613
1614

TEST OF RECEIVER ''CLEAR ACTIVE''
STEST OF BIT SIX OF SEQUENCE REGISTER.

1616
1617

:HE PROGRAM WAITS FOR TX DONE THEN LOOKS AT RX A(TIVE
*WHICH SHOULD BE EQUAL TO ZERO; THEN THE PROGRAM LOOKS

STHIS TEST WILL SEND A CHARACTER WHICH SAYS "‘CLEAR RX ACTIVETM

1615

;FOR RX GG TO BE SET AND RX PRI DONE TO BE CLEAR.
SALSO THE RX WC PRI SHOULD BE NOT EQUAL TO ZERO.

1618
12;8
1622

1623
1624

1625

TEST %0

;

1621

005350
005356

005364

012737
012737

004737

000030
005532

0110264

001226
001216

RN AR

TST30:

005376
005404

112737
004737

000350
005446

1631

005416

004737

011236

1633
1634
1635

005430
005436

012737
004737

R
003721
005446

12%; 005442

104407

005444
005446
005452
005456
005462
005464
005466
005474
005476
005500
005506
005512
005514

104400
005277
00577
105777
100375
021616
032777
1601
104006
112777
005777
001001
104006

005524

001401

005530

000207

1632

1636

1639
1660
1641
1642
1643
166446
1645
1646
1647
1648
1649
1650
1651

1652

1654
1655

1656
1657

1658

005422

005516

005526

012777

122777
104006

040100

173742

AN AR AR

#30,TSTNO
NTST31 NEXT

0106000

73664

000001
173660

173662

73634

RN RNt

MovB
JSR

#350,TXBUFF+2
PC,X.ABG

SET SNGL (HAR AND CLEAR A(TV
:SET DATA IN TX BUFFER
:GO AND WORK THE DQ17

JSR

PC,EXT.UP

;SET THING UP FOR DOUBLE (HAR. (16 BITS)

MOV

#1%,L0CK

:SET FOR RETURN IF SW09 1

#31T14+8176,3D0QSEC

#3721 XTXBUF+2
PC.X.ABG

;SET DBL CHAR AND CLEAR A(TV
;LOAD THE DATA
*WORK DG11

SCOP1

;IF SW09=1; THEN GOTO ADDRESS IN "10CK'.

SCOPE
INC
INC
TST8B
BPL
(MP
817
8tQ
HLT
MovR
TST
BNE
HLT

;SCOPE THIS TEST
;SET RX GO.
SSET TX GO
*HANG HERE FOR TX PRI DONE''!
:BR IF NOT DONE.
JWAIST TIME.
;IS RX ACTIVE CLEARED?
:BR I+ YES
JRX ACTIVE NOT CLEARED
:GET THE RX WC PRI.
;1T SHOULD BE NON-ZERO..
:BR IF OK
;RX PR] WC =0

aDOR(SR
aDQT(SR

aDATCSR
.4

(SP), (SP)
#81712,30QRCSR
.+
6
#1,aDCQREG
aDQSE(C
.t

(MP

6
#001,3DPQRCSR

HLT

BEQ
RTS

. GO SHOULD BE SET AND DONE NPT SET.
:BR IF OK!

;LOW BYTE RXCSR NOT =001
:

TEST OF RFCEIVER AND TRANSMITTER ''CLEAR GO/SET DONE"'

1659

STEST OF BIT SEVEN OF SEQUENCE REGISTER.

1663
;22?

:EQUAL TO 2ERO AND THAT PR] DONE SET,GO IS CLEARED,
SAND PRI/SEC BIT IS CLEARED.

1660
1661
1662

1666

1667

#BIT15+B1T6, aoossc

jm——— « O(K#* ==—=—ee——cee-

X.ABG:

AR AR A RN E AN R AR RO

JSET UP ALL NECESSARY FOR TEST.

MOV
JSR

012426

1737906
173706
173702

000001

1%:

RAN R

PC,SET.UP

MOv

012016

1630 005410 012737 005416 001220

MOV
MOV

AR R

JSR

1626 005370 012777 1003100 173774

1627
1628
1629

AR R

:CHARACTER "'SET DONE/CLEAR GO'' IS SENT AND IS DETCETED
:BY BOTH THE TX AND RX. WHEN RX DONE SETS: THE PROGRAM
SJVERIFIES THAT BOTH THE TX AND RX w( (PR]) ARE NOT

o TEST %1

R
TR
I
AR RN RN AT
R AR A EN RNR
R
LTI
NS

CZDQF

MACY11 30A(1052)
07-4uL-78
CZDQFE.PI
09-JUN~78 07:58
1668
1663
1670

005532
005540

1671

1672
1673
1674

1675
1676
1677
1678
1679

1680
1681
1682
1683

000031
005726
011024

012700
012710
350
004737
012737
004737
012777

012016

352
005640
005602
011236
040200

012737
012737
004737

003721
012525
005640

100200

001226
001216

TST31:

MoV
MOV

#31,TSTNO
#TST32 NEXT

MOV
MOV
MOV

#BI1T15+B117,aD0SEC
sSET SNGL CHAR AND SET DONE CLEAR GO
NTXBUFF+2
RO
:SET TX BUFFER
(PC)+, (RO}
*LOAD WITH DATA

JSR

PC.X.ABF

JSR

PCEXT.UP

MOV

#IT14+B1T7,aD0SEC

MOV

#3721 ,XTXBUF
+2

JSR

.BYTE

173556

SEQ 0034

PROGRAM INITIALIZATION AND START UP,

173612

00122C

PAGE 35

MOV

1%:

012426
012430

MOV
------

JSR

*LOCK~

PC,SET.UP

;SET UP ALL NECESSARY FOR TEST.

350,352

*DATA

*WORK DQ11

#1$,10CK

*SET FOR RETURN IF SW09=1

:SET

THING UP FOR DOUBLE

:LOAD DATA

#12525 XTXBUF +4 > SAME
PC,X.ABF

STURN ON DQ11

ceccceccemecaea

SCOP1

;IF

104400

SCOPE

:SCOPE

004737

112777

173516

005777
001001
104007
112777

005777
001001

104607
122777
001401
104007
122777
001401

000003
173476

X.ABF:

JSR

PC.ENABLE

aDQSEC

MOVE
BNE
HLT

173500

MOVB
TST

000200

173452

000200

173444

BNE
HLT
CMPB
BEQ
HLT
(MPB
BEQ
HLT
RTS

CHAR. (16 BITS)

:SET DBL CHAR AND SET DONE CLEAR GO

104401

= b b
b
2 2
O
\Q\WV‘Q\PV‘Q\VN‘Q\FV‘Q\J\QB
kNNP*ChOGFVOHh’WNN%*CfiSG’ ~
PO

—

)

D pary

1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706

012737
012737
004737
012777

08: 38

SW09=1;

THEN GOTC ADDRESS IN 'LOCK''.

THIS TEST.

:SET GO BITS FOR RX AND

#1.3DOREG

“SEL RX WC PRI

*1T

. +4
7

TX:

WAIT FOR RX DONE.

SB NON-ZERO.

‘BR IF OK
*RX PRI WC =0

#3,aDOREG

“SEL THE TX WC PRI

aDASEC

SIT

. +4
7
#200.3DQRCSR
. +4
7
#200,aDQTCSR
. +4
7

SB NON-ZERO

‘BR IF OK.
“TX WC PRI IS =0
:DONE=1; P/S=0: G0=0?
‘BR IF OK.
*:RX CSR NOT =200 (PRI DONE)
:DONE=1; P/S=0; GO-0
BRI+ OK.
“TX PRI DONE SET? (TX CSR-200)

*TEST OF RECEIVER ''CHARACTER STRIP'
*TEST OF BIT EIGHT OF SECUENCE REGISTER.

:THE

CHARACTER

THAT

IS SENT AS ''CHARACTER STRIP''
IS

*LOOKED FOR IN THE RX BUFFER: IF IT IS NOT FOUND [T
$IS ASSUMED THAT THE CHARACTER WAS INDEED ''STRIPPED''.

TEST %2

"l'tttttfitttttfi.tfitii*'t'tttt'i.tttttt't!ttttttttfi!ttt't'ttt.ttttt"tt

005726
005734
005742
005746

000032
006104
011024

005754
005760
005762
005764

001226
001216

1S732:

MOV
MOV
JSR
MOV

#32,1STNO
#T5733,NEXT
PC.SET.UP
;SET U° ALL NECESSARY FOR TEST.
#BIT15+BIT8,aD0SEC

012016

MOV

NTXBUFF+2
RO

321
011620

BYTE

379,341

100400

173416

MOV
JSR

(PC)+,

(ROS

PC,ENABLE

;SET SNGL CHAR AND CHAR STRIP.
:SET POINTER

*LOAD THE

DATA

SSET GO BITS FOR RX AND Tx:

wAlT FOR RX DONE.

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE P11
09-JUN-78 07:58

005770
005774

012700
012701

122720

001001

08:38

012216
000010
000350

001220

012777

040400

173336

012737
012737

003721
005672
011620
012216
000010
003721

012430
012432

011236

#RXBUF
F ,RO

:GET THE RX BUFFER

CMPB

:356 (RO) +

*WAS THE CHAR STRIPPED?

BNE
HLT

2%:

“SET FOR 10(8) CHARS

*BR IF NOT FOUND YET.
*CHARACTER NOT STRIPPED FROM CORE.

MOV

#2%.L0CK

*SET FOR RETURN IF

MOV

#RI1T14+B1T8,aDQSEC

MOV
MOV

#3721,XTXBUF
+4
#5672
. XTXBUF +6

JSR

JSR
MOV

- MOV.

R1
1%

:ADJUST CHAR COUNTER
*ALL DONE?

PC,EXT.UP

PC.ENABLE
#RXBUFF, RO

#10,R1

:SET DBL CHAR AND CHAR STRIP.
-LOAD DATA
- SAME

*SET GO BITS FOR RX AND TX: WAIT FOR RX DONE.
“GET POINTER

‘SET CHAR COUNT.

43721 (RO) +

*CHAR STRIPPED?

DEC
BNE

R1
3¢

*ALL DONE
*BR IF NO.

QLOCKQ

1046401

SCOP?

104400

SCOPE

SWO09=1

:SET THING UP FOR DOUBLE CHAR. (16 BITS)

)

BNE
HLT

------

#10.R1
10

DEC
BNE

(¥

005301
00137¢

MOV

006022

SEQ 0035

PROGRAM INITIALIZATION AND START UP.

104010

005301
001372

PAGE 36

]
1c

B TR

2SO FAR SO GOOD
*CHARACTER NOT STRIPPED FROM CORE

;IF

SW09=1;

THEN GOTO ADDRESS IN ‘10CK''.

“TEST OF '‘TRANS PAD'

STEST OF BIT TEN OF SEQUENCE REGISTER
*THE PAD CHARACTER IS SENT IN THE MIDDLE OF THE MESSAGE
SAND THE PROGRAM VERIFTES THAT THE PAD WASN'T INSERTED

*IN THE MIDDLE OF

RENIFRIBILERNSEK RISR

D
e ——d
d

1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779

b e

1765
1766
1767
1768

md et

1763
1764

—

1761

TEST 33

t.ittttl’*ttttttfi‘tfittQ*'t'tfi.'l!t!fittitttttt"i.ti'ttfitfit.t.‘i‘tt.t.

sR88EEERERnss 558

1759

THE RX BUFFER.

012737
012737
004737
012777

000033
006260
011024
102000

001226
001276

TST33:

MoV

#33,TSTNO

JSR

PC,SET.UP

MOV

173240

012016

1%:

#TXBUFF
+2 RO
(PC)+, (RO)

JSR
MOV
MOV

PC.ENABLE
#RXBUF
F ,RO
#10.R1

(MPR

BNE

HLT

006172
011236
042000

001220
173160

2% :

DE(
BNE

SET UP ALL NECESSARY FOR TEST.

#MBITIS+BITI10, aDaSEC

MOV
MOV

BYTE

101
011620
012216

#TST34 NEXT

350,101

SSET SNGL
:LOAD THE

DATA

TX PAD

INTO THE TX BUFFER

ssr GO BITS FOR RX AND
*GET POINTER
*SET CHAR COUNT

TX;

x377 (RO) +

:PAD PRESENT?

*PAD CYARACTER IS IN BUFFER.

R1
1%

SALL CHAR DONE?
‘BR IF NO.
*SET FOR RETURN IF

#2%,L0CK

MOV

#2TT14+81110,aD0SEC

PC,EXT.UP

WAIT FOR RX DONE.

‘BR IF NO

MOV

JSR

CHAR AND

“SET

SW0$-1

THING UP FOR DOUBLE

;SET DBL

(HAR AND Tx PAD

(HAR.(16 BITS)

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE PN
09-JUN-7 8 07:58

1780
1781
1782
1783
1784
1785
1786
1787

001001

003721
054321
211620
012216
000010

SEQ 0036

MOV
MOV

#3721 XTXBUF+2
:LOAD DATA
#54327 XTXBUF +4 :SAME

MOV

#10.R1

BNE

:BR IF NO

R1
3s

*ALL CHARS DONE?
*BR IF NC.

JSR
MOV

3¢

PC,ENABLE
#RXBUF F ,RO

cMP

104011

DEC
BNE

4%:

*SET GO BITS FOR RX AND TX;
*GET POINTER

#177777,(RO)+

HLT

005301
001372
104400

PROGRAM INITIALIZATION AND START UP.

012426
012430

177777

PAGE 37

SCOPE

WAIT FOR RX DONE.

*GET CHAR COUNTER

-TX PAD IN BUFFER?
*PAD CHARACTER

IN BUFFER.

;

D e

)

CHR
R R R, 333

1788
1789
1790

012737
012737
004737
012700
012701
022720

08: 38

)

STEST OF 'BCC EXCLUDE'

STEST

BIT

SEQUENCE REGISTER

D
)

)

:*BCC EXCLUDE'* 1S EXERCIZED ON BOTH THE RX AND TX TOGETHER

STHE BCC IS TURNED ON AND THEN A CHARACTER IS EXCLUDED
STHE

:FROM THE BCC:

D e

COMES UP THE BCC'S

SHIFTED AROUND

TO SEE

THE

BOTH

TEST $4
.'tt'tt’ttttt*tt*ttt*t*tttt'ttttttttttttttttt*tttfittttttttttttkttttttt

012737
012737
004737
012777

000034
006600
011024

105377

173050

100010

112777

000010

112777

000014

112777

012777

00122¢
00121¢

173044

104000

173030

000017
000200
000003
177576
012014

173020
1730°4
173004
173C00

~
~

f\)'\)"\)’\)l\)gl\)'\)l\) nN

777

000361
000010
000107
172724
012216
000001

012016
013040
013036

000004
012236

172674
17267C

177775

172720
172710
172704

#TST35, NEXT

MOV

#BITIS+BIT3,aDQSEC

PC.SET.UP
aDQRCSH

sSET UP ALL NECESSARY FOR TEST.

;SET SNGL CHAR AND BCC START CLEAR
SSEL CHAR ADD 16(8)

MOVB
MOV
MOVE
MOV

#10.a3DOREG
*GET CHAR DET ADDRESS
#3612400,3DQSEC -LOAD CHAR.
#14,aDQREG
*SEL SEQ REG
#a1715+81T11,aDQSEC

MOVB

#17,aDOREG

SSET SNGL CHAR AND BCC EXCLUDE
*SEL POLY REG.

MOV

#200,aDQSEC

*SET LRC 8

MOV

#-202,aDQSEC

:SET BIG NUMBER

MOVB
1.

#34,TSTNO

MOV

DECB

173034

012014

MOV
JSR

173050

170400

107

TST34:

173064

012215

O=20O=0=200—=
el
& Lt B I Y

N—=OVONOANEBWN—=O

goaoooooooaoooomoooooooo
f\)r\)_.\_a_n_l_.a_;_a_a_l_)

WHEN DONE

TX ARE

ICHARACTER WAS REALLY EXCLUDED.

D
)
d
D
d
b
d
b
b
d
D
b
b ed
b ced el e
—

1823

RX AND

MOV
CLRB
P
BNE
MOV
MOV

#3,3.0REG

SSEL

TX WC PRI.

#TXBUFF .RO
(RO)+
#TXBUFF +201,R0
18
ATXBUFE ,RO
(PC)+, (RO)

*SET POINTER
*LOAD DATA 000
:CLEAR BUFFER!'
‘B8R IF NOT ALL CLEAR.
*SET POINTER
*LCAD THE

MOVB
MOV

#3671, TXBUFF+2
#8. ,COUNT

:
:

CLRB
MOV
MOVB

aDQREG
#RXBUFF ,aDQSEC
#1,aDOREG

.BYTE

MOV
MOV

MOV

350,107

#107, CHAR

#-%.3DQSEC

#< aDOREG

#RXBUF F +20,aDQSE

;

DATA

INTO

THE

TX BUFFER.

SSET FOR 8 BITS AND 107 AS THE (HAR IN BCC.

*SEL REC PRIMARY
-SET WITH START ADRS
*SEL REC CHAR COUNT

“SET CHAR COUNT
*SET REC

SECONDARY

SSET WiTH SEC ADRS

CZDQF
MACY11 30A(1052)
07-JUL-78
CZDQFE.P11
09-JUN-78 07:58
183

006502

1838

006516

1837

1839

112777

006510

012777

006522

013703

004737

1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851

006526
006530
006532
006534
006540
006542
006544
006546
006550
006554
006556
006560

000241
106100
005500
023700
007403
005303
001370
104012
013703
000241
106101
005501

1853
1854
1855
1856

006566
006570
006572
006574

001403
005303
001370
104012

1852

}ggg

006562

006576

023701

000005

177577

911674

172660

172654

013040

5§

013036

013040

3¢
£$:

013036

104400

;

1%8

006600
006606
006614
006620

012737
012737
004737
012777

000035
007054
011024
040002

006626
006632
006640
006644

105377
112777
013700
012710

172530
000010
001372

1879

006650

112777

000014

105377
112777
012777

172472
000010
166000

1887
1888

1889

1890

1891

“SET GO BITS FOR RX AND TX: WAIT FOR RX DONE.

:SAVE COUNTER

cLC
ROLB
ADC
M
BEQ
DEC
BNE
HLT
MOV
CLC
ROLB
ADC

RI1
R1

:CLEAR CARRY
SSHIFT TX BCC IMAGE
‘PICK UP CARRY

BEQ
DEC
BNE
HLT

7%
R2
6$
12

:BR IF
SALL snxrrs DONE?
‘BR IF NO
STX BCC HAS WRONG DATA.

SCOPE

RO
RO
CHAR,RO
33
R3
48
12
COUNT,R3

"HAR,R"

:
SSHIFT RX BCC IMAGE
*SAVE CARRY
*BCC OK?
‘BR IF 0K
*ALL SHIFTS DONE?
:BR IF NO
*RX BCC HAS WRONG DATA.

[:1da oxv

‘SCOPE THIS TEST

TEST 35

'°tttl'i'tfitt*t.fi'tt*ifi!t'ittttt.ttttttt"ttttfitttt.t'tlt.tttttttli'ttt

1869
1870
1871
1872
1873
1874
1875
1876
1877

1886

PC ,NEWENA

CCUNT.R3

CHAR COUNT

*SET CHAR COUNT

STEST OF SET TRANSPARENCY FOR TRANSMITTER.
*TEST THAT THE SEQ FUNCTIONS ARE ALLOWED IF
STHEY ARE PRECEEDED BY *DLE*.
STHIS TEST THAT WHEN THE TRANSMITTER FLIPS FROM PRI TO SEC
SAND "EXIT T'' IS ASSERTED THAT THE TX SENDS A 'DLE'"
*CHARACTER,

1866

1885

JSR

#-201,aDQSEC

1867

1881
1882
1883
1884

:SEL

TMMP

1860
1861
1862
1863
1864
1865

1880

#5,aDQREG

MOV

4$:

SEQ 0037

MOVB

MOV

1859

1878

08:38 PAGE 38
PROGRAM INITIALIZATION AND START UP.

006646
006656

006670
006676
006704

352

012777

352

101000

01226
001216

172544
172530

172512

172506

006712

012777

112777

000014

172472
172466
172456

006720
006726

112777
012777

000003
177772

172442
172436

006742

112737

006734

112737

100200

000350
000357

172452

012075

012020

TST35:

MOV
MOV
JSR
MOV
DECB
MOVB
MOV
MOV

#35,TSTNG
#TST36 NEXT
PC,SET.UP
;SET
#IT16+81T1,aDQSEC
SSET
aDQRCSH
*SEL
#10,aDOREG
*GET

UP ALL NECESSARY FOR TEST.

DBL CHAR AND SET
CHAR ADD 16
CHAR DET REG

DQSEC.RO
(PC)+ . (RO)

;
:LOAD THE REGISTER

MOVB

#14.aDOREG

:SEL

DECR
MOVB
MOV

@DORCSH
#10,aDQREG
#354%400,3DQSEC

MOV

#R1T15+B1T7,aD0SEC

BYTE

MOV

MOVB

MOVR
MOV

MOVB
MOVB

352,352

*WITH THIS DATA

#B1T15+BIT9,aD0SEC

#14,3DOREG
#3,aDOREG
#=-6,aDQSEC

#250,IxBUFF+1

#357 TXBUFF+4

THE

SEQ REG.

sSET SNGL CHAR AND DLE
*SEL CHAR ADD 15(8)
:GET CHAR ADDRESS
:LOAD WITH DATA

*SEL THE SEQ REGISTER

:SET SNGL CHAR AND SET DONE CLEAR GO
“SEL THE TX WC PR].
SSET FOR 6 CHARS

:LOAD
-

DATA

MACY11 30A(1052) OggJUL
~78
CZDQFE.PI
09-JUN-7 8 07

CZDQF

006750
006756
006764
006772
006776

012054

007004
007012
007016
007024

172360

#-10,3DQSEC

172344

#7 ,aDQREG
aDQSEC
R

172326

#1,3DQREG

172342

NOVN
IS WWNN —_ OV NRANEWN—O

NN NN\ b b = 2 2 b D D 2 D

S
QI Y
(N
W
- PR

G
S
P

OO0

O O 000V
O OO0 OO

T SN

U S

000001
172324

SEQ 0038

PROGRAM INITIALIZATION AND START UP.

#354, TXBUFF +40

1724604
172400

#6, aDQREG

JEXIT T SHOULD SEND DLE TTIS SHOULD SET DONE
;SEL TX BA SEC.

172362

aDAR

JBIT13+BIT12 aDOERR

L OAD BA AND SEL WC SEC.

lTXBUFF*kO aDQSEC

JSET WRITE ENABLE AND EXIT T

SSET SEC. FOR 10(8) CHARS
JSET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
sSEL THE TX WC SEC.

PC,ENABLE

W'Y

ZRIR32 2822

1895
1896
1897
1898
1899

PAGE 39

ggO?%D
BE NON-ZERO.

:TX DID NOT DET ‘‘SET DONE CLEAR GO''
:SEL THE RX WC PRI.
:RX WC PRI S/B NOT=0
:BR IF OK

aDQSEC

.+
3

TEST

THAT

;RX NOT DET

CHAR SET DONE

;SCOPE THE TEST.

THE

TRANSMITTER WILL

WHEN ENTERED BY 'SET T

EXIT

(LEAR GO.

TEST %6

"tfifittt'itttfi*fit't't'ti'i't"tfi'tltktttttt'ttttt.tttttttfittttfittt'ttt

012737

000036
007260
011024
040002
1722564
000010
166000
000014
100200

1928

172254
172250
172240
172234

172224
172220

177770
000350

172200

012017
012055

000100

172144

000003

172740

000007

172122

172120

MOV
MOV

JSR
MOV

#36,TSTNO
#TST37 NEXT
PC,SET.UP
;SET UP ALL NECESSARY FOR
#81T14+B1T1,3DQSEC

DECB
MOVB
MOV
MOVB

aDQRCSH
;GET CHAR ADDR 16(8)
#10,aDQREG
;GET CHAR REG.
#354*400 aDQSEC ,LOAD (HARA(CTER
14 ,3DOREG
;SEL THE SEQ REG.

MoV

MOVB
MOV
INCB
BIS

172202

000354

142136

TST36:

172270

000006
012054
172212
030000

172152

005777
001001

001226
001216

MoV
MOVB
MOV

1¢:

INC
BIT
BEQ

MOVB
TST
BEQ
HLT
MOVB
TST
BNE

TEST.

;SET DBL CHAR AND SET T

‘BITlS*BIT? aDQSEC

sSET SNGL (HAR AND SET DONE
#6,aDAREG
:SEL TX BA SEC.
#TXBU
F +40,aDQSE
F
C
aDQREG
JSEL TX WC SEC.

#3]T13+B1712,aD0ERR
#-10,aDQSEC

#350, TXBUFF +3

#354
, TXBUFF +41
aDQT(CSR
:gITé.BDQTCSR

#3,3DQREG
aDQSEC
R

#7 ,3DQREG
acSEC
R

JSET WRITE ENABLE AND EXIT

:SET FOR 10((8) CHARS

CLEAR GO.

;LOAD DATA
; SAME

JSET TX GO.

sHANG HERE FOR TX SEC.
:BR IF NOT DONE

JGET TX WC PRI.
(IS IT =
OK
; BR
JTX

s SEL
IS
BR

TO~YTTM

1893
1894

08:38

PRI NOT-0

¥
w(

-0?

SEC

DONE
.

THEN!!

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.PI
09-JUN-78 07:58

007254
007256

08:38

PAGE 40

SEQ 0039

PROGRAM INITIALIZATION AND START UP,

104003
104400

HLT
SCOPE

JTX SEC WC

S/B NON-ZERO.

;SCOPE THIS TEST.

STEST THAT THE RECEIVER STRIP SYNC IS
SINHIBITED WHEN IN TRANSPARENT MODE.

TEST %7

22222020t
ddlddntisddili
il
s
i
20220222 2222222382202

007260

012737

001372

TST37:

MOV

172064

#37,TSTNO
#TSTLO
, NEXT
PC,SET.UP

sSET UP ALL NECESSARY FOR

oDQR(CSH

;SET DBL CHAR AND SET T
;SEL CHAR ADD 16(8)

MIT14+B81T1,a8DQSEC

172050

#10,aDAREG

DOSEC RO
(PC)+,(RO)

:
;LOAD THE CHAR

101,101

*DATA

172032
172026

#14 ,3DQREG

<SEL

000350
012016
000101
000026
012026

012015

#350,TXBUFF +1
HTXBUFF +2 ,R0

;LOAD BUFFER
:

1;XBUFF*12.RO

KEEP STUFF ING

000003

171756

N)=d

000014
101000

171756

#101,(RO) +
#26,(R0)+

1%:

#3,3DQRCSR

171746

aDQTCSR
aochsn

012216
000000

ARXBUFF ,RO
#OZ(RO)+

000350
000103
000026

012226
104400

THE SEQ REG -

#BIT15*BIT9,GDQSEC
JSET SNGL CHAR AND DLE

007466

;SEL. CHAR REG

101

001226
001216

e
no

FEREXR
‘OO‘O‘O&

172050
000010

SNNNN
WA —=O0

QU
T
S

1962

000037
007470
011024
040002

HLT
(MPS

BEN
HL!

CMP8
BEQ
HLT
CMP

BNE
SCOPE

.SET STRIP SYNC AND GO(RX)
JSET 1X GO
JHANG HERE FOR RX DONE
:GET RX POINTER
JFIRST CHAR S/B=0

;FIRST DATA CHAR WRONG

#181,(R0)+
.t

:NEXT CHAR S/B=350

JRX BUFFER WRONG
;DLE PRESENT?
;

#22.(R0)*
.t

;DLE NOT THERE

;SYNC PRESENT?
;

cLCOKS LIKE SYNC STRIPPED?

;BR IF NO
;SCOPE THIS TEST

HRXBUFF+10,R0

JBUFFER DONE?

SVERIFY THAT BIT 8 OF THE SEQUENCE

*REGISTER STRIPS (HARS FROM CORE BUT NOT

“FROM

(P)

#320,(R0)+

2%:

sDLE
:SYNC

THE

Q(C.

TEST.

1T 30A(1052) OgéJUL
CZDQF
MACY
-78
C2DQFE.PNN
09-JUN-7 8 07

08:38

PAGE 41

SEQ 0040

PROGRAM INITIALIZATION AND START UP,

TEST 40
CARNRNIAARARAR

007470
007476
007504
007510

012737
012737
004737
012777

200040
010002
011024

007516
007522
007530

105377
112777

171640

001226
001216

TST40:

N AN RAARNRANRNA

MOV
MOV

R RN RRARRNRARRRRARRANNANNAARRANANN
AR
RN RN

#40,TSTNO

#TST4T NEXT
PC,SET.UP

JSET UP ALL NECESSARY FOR

000010

aDQRCSH
#10, aDQREG

JSET BCC START CLEAR AND SNGL CHAR
*SEL CHAR ADD 16(8)
*SEL CHAR REG

112777

000014

#14,3DQREG

*SEL

012700

012014

#TXBUFF ,RO

012777
012777
105020

100010

#BIT15+BIT3,300SEC

171654

#225+400,30QSEC :LOAD CHAR

112400

#B1T15+81T8,aDASEL

100400

012215

TEST.

1%:

000350

THE SEQ REG

(RO)+
#TXBUFF+201,R0
1
#350, TXBUFF
+1

sSET SNGL CHAR AND (CHAR STRIP.
JGET TX POINTER
JCLEAR IT QUT
:ALL DONE?
‘BR IF NO
;LOAD CHAR

#17,3DAREG

*SEL POLY REG

#8.

*SET FOR 8 BIT CHAR

#225,TXBUFF+3

#200,aDQSEC
COUNT

#225 CHAR

#3,3D0REG

#-202,aDQSEC
aDOREG

;SAME

*SET FOR LRC 8

*SET EXPECTED BCC CHAR
*SEL THE TX WC PRI.

:SET BIG
SEL REC PRIMARY

#RXBUFF SDQSEC

-SET WITH START ADRS

#4, 3DOREG

*SEL REC

aDOREG

c-i aDQSEC

:SEL REC CHAR CNT

SSET CHAR COUNT

SECONDARY

#RXBUF
F +20,aDQSE(
;SET WITH SEC ADRS
#5 , aDAREG
SSEL CHAR COUNT

011674
01304C

013036

6%:

AN
7%:

022701
001371

8%:

104400

SSET CHAR COUNT

COUNT,R3

*SAVE COUNT

RO
RO
CHAR,RO
43
R3
5%
13

“SHIFT RX BCC IMAGE
*SAVE CARRY
+G0OOD BCC?
‘BR IF YES
“ALL SHIFTS DONE?
‘BR IF NO
*RX BCC WRONG..

CH?R.(Q1)*

“CHAR STRIPPED

PC,NEWENA

012701
123721
001001

106013

#-201,aDQSEC

#RXBUF F ,R1
’

#RXBUFF +10,R1
7%

*SET GO BITS FOR RX AND

TX;

*GET RX BUFFER
.

*8 BIT CHAR NOT
-ALL DONE?
NOT YET

JTEST OF BCC TEST/ APPEND
JTEST OF * BCC'S TESTED/APPENDED

STRIPPED.

WAIT

FOR RX DONE.

CZDQF
MACY11 30A(1052)
07-JuL-78
CIDQFE. P11
09-JUN=-7 80 7:58

08: 38

PAGE 42

SEQ 0041

PROGRAM INITIALIZATION AND START UP.

TEST 41

900041

MOV
MOV
MOV
Mov
MOV

—

SO0

2838

;tttttttttttttttttttt*ttt'ttttttttttttttttttttttttttttttttttttttttttt

010032
010040
010044
010052
010054
010056

JSR
MOV
BPL
HLT
SCOPE

#41,TSTNO
#TSTL2 NEXT
ABITIS+BITS+BIT4 ,FUNCT.
#000,XPOLY
JSET EXTENDED POLY.
#255,POLY
PC,BCC.TA
aDQERR,ERR
.+
15

;SET 00-15 POLY
.GOTO SURROU'TINE
;1S THE AN ERROR CONDITION?
;BR IF NC ERRORS
;THE DQ11 ERROR FLAG IS SET!!
:SCOPE THIS TEST

JTEST OF BCC TEST/ APPEND
;TEST OF 2 BCC'S TESTED/APPENDED

TEST 42

gpflunhrd
OO

Ganrd
e Gt
s
panr

G
Qaner Ghur G
P

QOO0

[eolelelels)

AR AR A RN AR AN AN AR RN RA A AR

112001

001226
001216
011022
013034
013032

171240

013030

011454

1S5142:

MOV
MoV
MOV
MOV
MoV

JSR
MOV
BPL
HLT
SCOPE
;TEST OF

AN RRNAANR AR A AN AR

ANNRAANNANRRAARRA AR RN AR RNRRE R

#42,TSTNO
HTST43 NEXT
#BIT15+BI7T4 ,FUNCT.
#000,XPOL Y
;SET EXTENDED POLY.
#112001,POLY
;SET 00-15 POLY
PC,BCC.TA
aDQERR,ERR

.+
15

BCC

.GOTO SUBROUT INE
;1S THE AN ERROR CONDITION?

;BR_IF NO ERRORS
;THE DQ11 ERROR FLAG IS SET..
;SCOPE

THIS

TEST

TEST/ APPEND

;TEST OF 3 BCC'S TESTED/APPENDED

TEST 43

o
~
rgiird

e Y
B
eI

COOO0O0O0OODOO

OOODOO0OOVCO
PORNUMNDON)
—
e

:ttitttfit*tti'tttt‘*tti‘t'itfitttiittlt&tRttiti'tttttttt'fiifiti.tfiitt'.

000043
010214

100040

001226
001216
011022

112001

013032

000225

011454
171162

013034

013C30

IST43:

MOV
MOV

MOV
MOV
MOV

JSR
MOV
BPL
HLT
SCOPE

#63,TSTNO
RTSTL4 NEXT

#BITIS+BITS,FUNCT.

#8225 ,XPOLY

#112001,POLY
PC.BCC.TA
aDQERR,ERR

A
15

;SET EXTENDED POLY.

JSET 00-15 POLY

. GOTO SUBROUT INE
;IS THE AN ERROR CONDITION?

;BR IF NO ERRORS
;THE DQ11 ERROR FLAG [S SET..

;SCOPE THIS TEST

CZDQF
MACY!N 30A(1052)
07-JuUL-78
CZDQFE.PiY
09-JUN~78 07:58

08:38

PAGE 43

SEQ 0042

PROGRAM INITIALIZATION AND START UP,

JMULTIPLE FUNCTION..
..

*FUNCTIONS EXERCISED

1START CHAR (350)
OOO——
= NODNIIN
SN

Ve lo R NTo SV, ¥ YUY ST o)

;

010214
010222
010230
010234
010242
010246
010254

012737
012737
004737
012777
105377

171114

112777

000014

171100

105377
112777

17106V
000010

112777

012777

1711°C

TST44:

MOV
MOV
JSR

MOV
DECB
MOVB

A R AN AR

RN A RN AR

AR A RN N AN NN RARARANRRRA

#44 ,TSTNO
#.EOP NEXT
PC,SET.UP

JSET UP ALL NECESSARY FOR

aDQRCSH
#10,3DQREG

*GET CHAR ADD 16(8)
*GET CHAR REG.

#14 ,3DQREG

*SEL

aDQR(CSH

#170412,30QSEC

:LOAD THE SEQ FUNCTIONS

#10,aDAREG

000014

171044

#14, aDAREG

*SEL SEQ REG

112777

000006

171030

#6 ., IDOREG

SSEL TX SEC ADRS

112777

#172516,3DQSEC

-SET *WILD* POLYNOMIAL

#17,aDOREG

SWRITE POLY 16=23

012777

010020
101000

012064

177600

171054

171040

171024

1721014

171010

112777

000067

171000

112777

000017

170764

012777

012777
112777
052777
112777

177776

172516
000012
000100

000017

170774

170760
170750
170744

17073

TEST.

SEQ REG

171060

120¢/°

RN RN NN R AR

#225+400,aDQSEC :LOAD CHAR.

#120644 ,8DQSEC

012777
o

112400

(20)

SNGL CHAR MAT(H
DLE STRIP/ADD

*71074

012777

Gr Gonr Sur
Ghuy Ghur G
Qs GGG
Paur Qi

NoleJaNTe JV PoYVIN]

171130

000010

012777

elelelolelelelelelolololele)

=2
=2
b
b
ek
D b

001226
001216

112777

012777

(VA RVALV LV [V, LV, 1V, 1V,

0
&
013050
011024
170412
171114

STRIP/ADD

(3 BCC'S)

TEST 44

SHN AR RN R

NORLNLALNLNLNLNL
N

RX STRIP
BCC START (CLEAR
RX/TX TRANS

OOOO
=

(e U P HV N E T

ed
i
e
e
d
—_ —d

nN
~

2128

2150

SNGL CHAR MAT(H
DBL CHAR MATCH
SNGI. CHAR FLAG
DBL CHAR FLG

ND
CHAR (225)
N
p)
SNGL CHAR MAT(H
SNGL CHAR FLAG
3
RX STRIP
8
7
CLEAR GO/SET DONE
5
BCC TEST /APPEND
2
CLR X TRANS

d e

)

d mnd

ANV ALAL AL NN NININININLNINI
NN NN N NI NONIN)

2106

#10020,@DQSEC

#101000,8DQSEC

:LOAD SEQ FUNCTIONS
*SEL CHAR DET

:LOAD FUNCTIONS

:LOAD DLE (20)

#TXBUFF +50,aDQSEC
#1,3DQREG
;SEL
#-200,aDQSE C
*SET
#67 ,3DQREG
*SEL
#-2.3DQSEC
*SET
#17.3DOREG
*SEL

;SET SEC ADRS
REC PRI SHAR CNT
CHAR CNT
TXSEC CHAR CNT
CHAR CNT
POLY REG

#12.3DQREG
#2'76,aDQSEC

THE MISC REG
THE "EXT POLY'

*SEL
“SET

MACY11 30A(1052) 707-JUL-78
CZDQFE.PIT
09-JUN-78 07:58

CZDQF

010434

R®

012777
012700
012720
000
012720

[0 ¥XN

NN~

RRE

—

b —

b et

010442
010446

(ol [eleleololelslale] o

AN
S

4
i
-S
v Qir Sy

o
O

AONINININLINI
N

2160

000275
012014

08: 38

170730

#275,3DQSEC
#TXBUFF ,RO
(PC)+, (RO)+

JGET POINTER
;LOAD THE BUFFER WITH DATA

311,224

.DATA

201

107,201

;DATA

251
012064

371,261

(PCS+.

(RO)+

(PCS+,

(RO)+

#TXB
F +50,R0
UF
(PC)+,(RO)+

JLCAD RO
;LOAD BUFFER WITH DATA

225,377

aDQR(CSR

170650

013030

14
aDQERR,ERR
.+4

000200

170626

170610

000003
170572

012216
000010
000350
000225

000020

170574

;LOAD THE BUFFER WITH DATA

PC,ENABLE

170612

;LOAD THE BUFFER WITH DATA

(PC)+,(RO)+

170652

000001

104400

MOV

224

170620

SEQ 0043

PROGRAM INITIALIZATION AND START UP,

;DATA

000300

005302
001362

000,350

350

377
011620

104021

PAGE 44

17
#200,aDQR7SR
.+
14
#300,aDQTCSR

. +4
14

#1,3DOREG
aDASEC

.+
14
#3,3DOREG
aDOSEC
R
14

#RXBUFF ,RO
#10,R2

#350, (RO)
+4

14
8225, (RO)+
.4
14
#20,(R0O)+
_+4

R2
k3

;DATA

.DATA
;SET GO BITS FOR RX AND

;DID RX CHAR FLAG SET?
;BR IF YES
;CHAR DET FLAG NOT SET.
JANY t£RRORS?
;BR IF NO ERRORS

TX;

WAIT FOR RX DONE.

;DQ11 ERROR FLAG SET!
:DggE(P)=1; P/S=0; GO-0?
JY

;RX CSR WRONG DATA
;Dggf(P):I;

P/S 0;

GO=0?

;TX CSR WRONG DATA
;GET RX WC PRI.
;S/B NOT=0

;BR IF 0K

sRX WC PRI S/B NON-ZERO!'.
JSEL THE TX WC PRI.

;S/B

;TX WC PRI S/B NON-ZERO
JGET RX BUFFER POINTER
;SET CHAR (OUNT
JARE

THE

TWO CHARS

STRIPPED?

*CHAR ‘"350'* NOT STRIPPED FROM ¢ORE

*CHAR '225'' NOT STRIPPED
*IS DLE STRIPPED?

JDLE STUCK -- REFER TO M7817 ECO

;ChECK EB4 ONE-SHOT
JALL DONE?
:NO
;SCOPE THE

TEST

MACY1T 30a(1052)
07-JuL-78
1
09-JUN-78 0 7:58

105077
012705
152777
142777

005077
105277

005305
001364

105077
105077

012705

08: 38

000020
000020
000140
170470
170462

170452
170440

1%
aDQREG
aDQR(SH

000020
000019

170636

112777

000074

170422

005077
105277

005305

001362

170620
170404

105077

170374

112777

000012
000040

012777
000240

112777

012777
000002

#MIT4,aDAREG

#140,aDQREG
aDQSEC
aDQREG

170432

SEQ 0044

aDQREG
#16. RS

170500
170472

112777

005077

PROGRAM INITIALIZATION AND START UP.

MEMCLR:

170512

PAGE 45

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

2%:

aDQRCSH

MST(CLR:

#MISC. ,aDOREG

#81T5,aDQSEC

000012
000040

#M1SC. ,aDQREG
RTI]

#BITS,aDOSEL

000000
104413

105020

MEMCLR
MOV
MOV
CLRB

000010
012014

005302
001375

105077
012777

170314

012777

*703v2

105277

005737
100404
112737

000403

012012

112737
12777

012012
170244

12777
12777
13777

170232
170222
170216

QO=2O=0—=20

— e

d D ek b b D

22 OO

FIFRRR
go\\hbl\wf\)'\)—'—‘og\l\l
OHrOOrVOrOMNLON
HONOOEHNVO

012702
012700

05277

05277
12777

32737

170204

Q0181

#10,R2
#TXBUFF ,RO
+
(RO)
R2
.~b
aDQREG
#RXB
F ,aDQSE
UF
(
aDQREG
#-10,aDQSE(
aDQREG

DQSTAT
10%
#377,SYNC

20%

#26,SYNC

#S NC,aDQSEC

aDOREG
#-12,a3DOSEC
#11,aDQREG
. SYNC,aDQSE(
oDQREG
#.700,aDQSEC

#JUMBIT, DCSTAT

JCLEAR ALL THE DQ11 REGISTERS
JPREPARE

CLEAR

THE

TX BUFFER

;GET THE BUFFERS ADDRESS
+START CLEARING

;ALL CLEAR?
;BR IF NOT DONE.

;SELECT THE RX BA PRI.
;LOAD RX BA PRI].
.GET RX WC PR].

;SET FOR 8. (CHARS.
JGET

THE

TX BA PR].

;ONE SYNC CHARA(TER?
;IF NO, BR.
;SET MARK,
.
:CONTINUE

JRESTORE

SYN(C

Joeek

Joe+E
ek
;"OOE

(HARA(CTER.

'-'-QOE

;SET ADDRESS
JSEL THE TX WC PR].
:SET FOR 8. (HARS AND 2 SYN(C'S
:SEL THE SYNC REGISTER
;LOAD WITH SYN(
JSELECT THE M]SC REGISTER
JSET FOR EIGHT BITS.
s F TEST 'UMPER AT END OF

(AB(E;

J1eF

CZDQF

MACY11 30A(1052)

SEQ 0045

PROGRAM INITIALIZATION AND START UP.

09-JUN-78 07:58

CZDQFE.P1T

07-JuL-78 08:38 PAGE 46

2265 011176
2266 011176
2267 011204
2268 011212

007003
052777
112777
112777

000010
200017
900010

170166
170150
170150

BNE
BIS
MOVB
MOVRB

.+10
#8]T73,aDASEC
#17,aDQR(SH
#10,aDQREG

:RUN DATA THROUGH [T.
:NO TEST JUMPER; SET TEST LOOP
:GET LAST CHAR DET ADDRESS.
:SEL CHAR DET REGISTER

011226

112777

000014

170136

MOVB

#14,aDOREG

*GET THE SEQ REGISTER

MEMCLR
MOV
MOV

#20,R2
#XTXBUF ,RO

:CLEAR ALL THE DO
"PREPARE TO CLEAR THF TX BUFFER
:GET THE TX BUFFER ADDRESS.

ST
BM]
MOV

DQSTAT
108
#-1,XSYN(C

:ONE SYNC CHARACTER?
*IF NO. BR.
;SET MARK.

so++E
sieoF
,.++E

:DITTO

TieoE

MOV

2269 011220 012777 16000 170144
2270

2271

2272

2273
2274
2275

2276
2277
2278

011234

000207

01123%6
011240
011244

1044613
012702
012700

011236

011250
011252
011254

005020
005302
001375

EXT.UP:

900020
Q124264

CLR
DEC
BNE

2279 011256 005737 001510
2280 011262 100404
2281 011264 012737 177777

012420

013026

012622

2282 011272 000403
2283 011274 012737 013026 £126420 10%
2284

011302

2285
2286
2287
2288
2289
2290
2291

011310
011314
011322
011326
011334
011340
011346

2294
2295
2296
2297
2298

011366
011374
011400
011404
011412

2292
2293

2299
2300
2301

011352
011360

011414

012777
112777

013777
105277
005077
032737
001003

052777
112777
112777

112777
000207

2303
gggg
c

105077
012777
105277
012777
105277
012777
105277

170054
012216
170047
177770
179030
012420
170016

177766
000011

11454

170036
170024
167776

000010
000017
000010

167750
167732
167732

B8R
MOV

MOV

CLRB
MOV
INCB
MOV
INCB
MOV
INCB

MOV
MOVB
MOV
INCB
CLR
BIT
BNE
BIS
MOVR
MOV

170012
170002
001510

000014

20%

170050

012010
167777
1677¢6
040000

012777 003721

2302

23%0¢

012737

RTS

MOV

167726

2312

105377
112777

167670
000010

167670

2312

011500 012777 176400 167664

DECR
MOVR

11506

112777

164

167654

MOVB

2317
2318
231G

011536
011544
011552

000012
000100
000017

167624
167620
16761C
167604

2320

11860

013777

0'30%

aDQREG
#RXBUFF ,aDQSEC
aDQREG
#-10,aD0QSEC
oDQREG
#XSYNC,aDQSEC
aDQREG

#-12.aDQSEC
#11,aDOREG
.SYNC,@DQSEC
@aDOREG
oDQSEC
#JUMBIT DQSTAT
.40
#M]1T73,aDASEC
#17,a8DQARCSH
#10,aDQREG

#3721, aDQSEC

JSEL THE RX BA PRI].
;LOAD THE ADDRESS
JSEL THE RX WC PRI].
;SET FOR TEN (HARS
;SEL THE TX BA PR].
:LOAD THE ADDRESS.
JSEL THE TX W(C PRI].

“SET FOR TWO SYNC AND 8. (HARS
*SEL THE SYNC REGISTER
*LOAD SYNC
;SEL THE MISC REGISTER.
;SEL 16 BITS PER (CHAR,
;IF TEST JUMPER INSTALLED;
:RUN DATA THROUGH CABLE.

JNO JUMPER; SET TEST LOOP!
:GET LAST CHAR DET ADDRESS
;GET CHAR DET REGISTER

*LOAD CHARACTER

;SEL THE SEQ REGISTER
;LEAVE THE ROUTINE.

:SET UP ALL NECESSARY FOR TEST,
PC,SET.UP
#MIT15+B1713,aDQSEC
:SET SNGL (HAR AND B(( STAKT (LEAR

011466
11472

112777
052777
112777

#13026.XSYNC2

“CONTINUE.
*LOAD SYNCS

JSR
MOV

2310
2311

Q11022
17
013032

208
#13026., XSYNC

*START CLEARING
*DONE?
*BR IF NO

167704

B((.TA:

004737 011024
012777 190010

013777
112777
013777

(RO) +
R2
.~

:LEAVE ROUTINE POINTING TO SEQ REGISTER.

MOVRB
RTS

167716

011454
11460

11814
011522
011530

#1464 ,aDQREG
P(

2307
2308
2309

2314
2315
2316

lBSO*AOO,aDQSEC :LOAD THE (HARACTER

167650
167640
167634

@DQRCSH
#10 ,aDOREG

“GET NEXT ADDR
;SEL CHAR DET ADDK

MOV

#375+400,3D0SEC :LOAD CHAR

MOV
MOVE
MOV

FUNCT. ,aDQSF(C
#17.@3DQREG
POLY,aDQSE(

JSET TYE TEST APPEND FUNCTIONS
‘SEL THE POLY REG.
SLOAD THE POLYNOMIAL.

MOV

XPOLY,aDQSE(

JOBT '6=23 POLY

MOVE
BIS
MOVR

#14,aDQREG

#12,3DQREG
#8176 ,aDASEC
#°7,aDOREG

JSEL THE SEQ REG.

“SEL THE MISC REG
“SEL EXT POLY REG
SRESEL. THE POLY REG

tieeE
sieok

30A(1052)

07-JuL-78

SEIITT
oo
— b D
oo RROUSH RN
WNN
NN %iO*O‘O*O*
ON*NJ\O

.BYTE

365

“LOAD THE BUFFER WITH DATA

:LEAVE

:SET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
;
:SET DELAY
*SET RX GO.
SSET TX GO.

*RX PRI. DONE?
:BR Ir YES

1$
/AS
1%

*DATA

‘DATA

aDQRCSR
2%
3s

011€72

"LOAD THE BUFFER WITH DATA

377,377

aDQRCSR
aDQTCSR

167512

012004
000005
167446

:JI\J\J\J\I\J\I\I\J\J\J\I\J\J\J\J
3]
N&O"JJ\Y\)OO*’\)Ol\NO\N

b —d 2 D b b
D e =
b

:DATA
“LOAD THE BUFFER WITH DATA

‘DATA

:DELAY....c0v..
:

:RX PR] DONE NOT SET.
JLFAVE

A ¥

012006

NEWENA:

012004

167400
167372
167370

POPNUNY =t =

012420

:SET DELAY

3%
1s

“SET RX GO
SSET 1X GO
*RX PRIMARY DONE’
:BR IF YES
;DELAY
K]

012006

000012
000010
000015

#5,48

aDQRCSR
aDQTCSR
aDQR( SR
2%

167446
167436

b b

(PC)+,(RO)+
360,365
(PC)+, (RO)+

3%
£5,49

:
ENABLE

;SET TX POINTER

(PC)+, (RO)+

350, 355

P(C.ENABLE

017672

SEQ 0046

“LOAD THE BUFFER WITH DATA

(PC)+, (RO)+

377
211620

167522
167522

#TXBUFF ,RO

370,375

37¢

~N N

rnONSO

MOV
MOV

2%:

D WNWNWWNNIN)
— =

D e

105777
100407

QAN

d
d ed rd

i —nd wmd
d
—

D e ed e

D e

d md i md

D e cd

d ok

b —D

(eolololololololelololololololololalelale
el

012720
377
004737
000207

PROGRAM INITIALIZATION AND START UP.

355

D
d e
d e

d ad e h

d
D i
b
-

b
d
D

011670

)

ed e

005237
001372
005337

D e

011670
000005

d e

005037
012737
005277
005277

370

PAGE 47

012014

012700
012720
350
012720
360
012720

e —d

ololololololalalalalololels)

b
b ed md e

(oleolololelalelolalslo]

MACY11
09-JUN-78 07:58
C2DQFE.PN

08:38

1674616
167412
167402

1
5¢%

“RX PR] DONE FAILED TO SET
JLEAVE

#8]T73,aDQSEC

:STOP DATA

aDQSEC,RO

SREAD INTO RO

#12,3DOREG

2%:

#15,aDQREG

aDOREG

:SEL

aDQSE( ,R1
PC

LSYNC:

SYN(:
TXBUFF:

.BYTE
BYTE

KABJFF: 0

-.+200

2€,26
26,26

SSEL

THE MISC REG

SSEL RX BCC

TX B(C

:READ INTO R1
*RETURN

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.P1N
09~JUN~7 80 7:58

2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2600
2601
2402
2403
2604
2405
2606
2607
2408

24609
2610

2411
26412
26413
2614
2415
2616
2617
2618
2619
2620
2621
2622
26423
24624
2425
2426
2427
2428
24629
2630
2431
2432

012420
012422
012424
012626

013030
013032
013034
013C36
013040
013042
013044
013046

026
026
000000
012626
000000
013030
000000

026
026

XSYNC:

SEQ 0047

BYTE 26,26

XSYNC2: BYTE 26,26
XTXBUF: 00000

XRXBUF : (
ERR:

POLY:

XPOLY:

(HAR:
:
COUNT

ADDR:

GDTHAR:
DETCAR:

COOOOO0O0O0O

2377
2378
2379

4
I
PAGE 48
PROGRAM INITIALIZATION AND START UP.

08: 38

END OF PASS
;TYPE

NAME

TEST

JUPDATE PASS COUNT

sCHECK FOR EXIT TO ACT-11

cRESTART

013050
013054
012060
013064
013066
013070
013072
013074
013076
013100
013102

LEOP:

TYPE
MEPASS

LSTERR
ERRFLG
PASCNT

;CLEAR LAST ERROR PC
:CLEAR ERROR FLAG

PASCNT
8L IGHTS
SAVNUM
RESTRT

;DISPLAY PASS COUNT

JUPDATE PASS COUNT

TYPE

MCSRX
CNVRT
XCSR
TYPE

MVE CX

013104
013106

013110
013112
013114
(013116
013120
013122
013124
(013126
013130
013136
013142
013144
013152
013156
013160
013162
013162
013164
013166
013170
013172
013174

CLR
(LR
INC

TEST

CNVRT

XVEC
TYPE

MPASSX
CNVRT
XPASS
TYPE

MERRX
CNVRT
XERR

166044

MOV
DEC
BNE

001276

LOGICAL:

002¢56

OL'274

RESTRT:

MOV
MOV
BEQ

DGAUM, SAVNUM
a6l ,R1
RESTRT

JSR

PC, (R

MOV

#TST1 _RETURN

sCHECK FOR ACT=11 OR DDP

J1F NOT, CONTINUE TESTING

CZDQF
MACY11 30A(10 ;2)
07-JuL~78
CZDQFE.PW
09-JUN-78 07:58

2633
2434
2435

2636

2437
2438
2439
2440
2641
2642
2443
2444
2445
24646
2647
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2663

013202
013206
013210
013212
013214
013216
013220
013222
013224
013226
013230
013232
013234

00013 q
00000
206
001360
00000 1
003
001350
000001
006
001230
00000
006
001232

08: 38

002254

XCSR:

002

XVE(:

002

XPASS:

002

]

XERR:

002

004000

165704

013276
013302

005237
023737

001224
001224

001222

2464

013316
013322

7
005037
012737

001312
001224
000113

2466

013336

013716
00000

001214

2468

BYTE
DQRCSR

é.2

DQRVE(C
1

BYTE

PASCNT

BYTE

6.2
6,2

]

006

040000

#5732

.SCOPE:

TTIST:

165726

:%IT14.&SH9

BPL
MOV
BR
BIT
BNE

3
aTKDBR,RO
2%
#SW11,aSwR
2%
LPCNT
LPCNT,
I COUNTY
3%

TSTR

165722

001216

(KSWR

BIT
B8EQ
BR

INC
CMP

2%:
001222
001214

BNE
CLRR

CLR
MOV
MOV

3%:

L [01Y)

BRW:
BRX :

1407
(32

RTI

aTK(SR

ERRFLG

LPCNT
#75.,1COUNT
NEXT
,RE TURN

RETHRN, (SP;

;CHECK FOR FREEZE ON CURRENT DATA
350
352

l
366

104414

03277 7
001402
013716
000002

001000

165620

001220

.SCOPT:

1%:

(KSWR
BIT
BEQ
MOV
RT]

7%UO9.QSUR
LOCK, (SP)

PO
— —
nNONO

JYPE:

000002
000002
015060

000002

010000

165560

(%,

~
N
~

017605
062766

? KOO
NN

JTELETYPE OUTPUT ROUTINE
leolelolololelole)

2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488

;SCOPE LOOP AND INTFRATION HANDLER
10441
03277
00140
00043
7
2
017700
000412
032777

2467

JMP

ERRCNT

013236
013240
013246
013250
013252
013256
013260
013264
013266

2465

PAGE 49
END OF PASS ROUTINE

1%:

300%:

MOV
MOV
ADD

#2,2(SP)

BNE
i

3008
#SW12,a5wR

TST1R

(RS)

BNE

RS,=-(SP)
@2 (SP) ,R5

¥RD SW

SEQ 0048

CZOQF
MACY11 30A(1052)
07-JuL-78
CZDQFE P
09-JUN-78 07:58

2489
249)
26491

100014
105777

100375
012777
105777
100375

012777
105777
100375
112577

013472
013474

001345

08:38

GENERAL UTILITIES

BPL

165556

900015
165542

16555C

000012

165534

165526

2%:

3%:

TSTB

aTPCSR

013522
013526
013532

013536
013540
013544
013550

013554
013556

010346
010446
017637
062766
104402

000000
012704
012703
105777
100375
117714
142714

121427

BPL
MOvB
BNE
MOV

2%
(R5) +,aTPDBR
1%
(SP)+,RS

TSTB

RTI

165442

ERERRRR
o RNSarRS

STRING

INPUT

ROUTINE

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

# INBUF R4
#7,R3
aTK(SR
1%

8I(B
CMP8
BNE

#200, (R4,
(R&) 425
200%

B8R

.INST1

aTKDBR, (R&)

TYPE ,MCRLF

200$:
165417

(MPR
8EQ

(RG)+,#15
INSTR?

MOVR

aTKDBR,aTPDBR

BPL
DEC
BNE
BR

2%
R3
18
INSTG

015060

TYPE
MQoM
TST

a#RDSW

015240

TYPE ,MCRLF

’%:

LINSTG:

aTPCSR

MOV
MOV
TSTRB
BPL
MOVB

000200
000025

.INSTE:

Gair Gard
G
Qs G
S

015652

000007
165446

165410
165404

JINSTY: BYPE

.MSG:

000015

Sur G

g1352¢C
000004

.~4

#12,aTPDBR

.INSTR: MOV
MOV
MOV
ADD

015240

013562
013564
013570
013572
013600
013604
013606
QOQOOOOOOOOOO

000004
000002

.<~4

#15,aTPDBR

MOV

sASCII

013476
013500
013502
013510
013516
013520

aTPCSR

BPL

(TYPE OUT,ERROR,SCOPE,ETC.)

TSTB
8PL

MOV

165522

012605
000002

PAGE 50

TSTR

BEQ

:
4008
BR
INSTRZ: MOV
MOV
RTI

aTP(SR

4«C0s

LINSTI
(SF)+ R4

(SP)+,R3

sCONVERT ASCII STRING TC C(TAL
01054¢
010446

.FARAM: MOV
MOV

Ro,=(SP)

Ré&.=(SP)

JIS IT <¢*6>

SEQ 0049

MACY11 30A(1052)
07-yuL-78
CZDQFE P
09-JuN-7 8 07:58

013742
013744
013750
013752
013754
013756
013760
013762
013766
013770
013774
013776
014000

el
d el
d e
d

SHBRuBN2S O—= 20000

3666

013662

714

013652
013656

PNV
N — ) = NN oA
VAN lon
NWNINNN o
NNNVNN v

CZ0QF

000"
014052
714054
014056
014060
0146061
000004
015652
000015
000060

08: 38

GENERAL UTILITIES

PARAM1:

1%:

000067
000060

000015

PAGE 51

PARERR:

015060

120%:

MOV
MOV
MUV
MOV
MOvB
MOVB
MOV
(LR

MOV
(MPB
8EQ
C(MPB
BLT
{MPB
8GT
BICB
8IS
CMPB
BEQ

¢4

(TYPE OUT,ERROR,SCOPE,ETC.)

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

# INBUF R4
#15,(R&)
PARERR
(RG) ,#60
PARERR
(R4G) 467
PARERR
#60, (R4)
(R4)
+ RS
#15,(RS4)
LIMITS

ASL
ASL
ASL

RS
RS
RS

CMPS

#15,(R4)

;1S FIRST CHARACTER A <(CR>

TST
BNE

a#RDSW
PART]

;1S CKSWR ROUTINE BEING USED

PARAM1

B8R

BNE

INSTER

120%

JTEST TO SEE IF NUMBER IS WITHIN LIMITS
014002
014006
014010
014014
014016
014022

020537

014054

020537

014052

101365

103762
133705

001357

LIMITS:

(MP
BHI

CMP

RS,HILIM
PARERR
RS,LOLIM

BITR
8NE

LOBITS,RS
PARERR

BLO

014060

PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
014024
014030
014032
014036
014042
014044
014046
014050
014052
014054
014056
014060

013704

01405¢
000002
014061

1%:

PART]:

LoLim:

HILIM:

MOV
MOV
ADD
DE(R

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

MOV

(SP)+ R4

BNE

MOV

RT]

{SP)+ RS

DEVADR: 0
LOB]T1S: O

ADRCNT=LOB]TS+1

;SAVE PC OF

TEST

THAT FAI_ED AND RO=RS

SEQ 0050

CZDQF
MACY11 30A(1052) OggJUL
-78
CZDQFE.P11
09-uUN-78 07

2601
2602
2603
2604

2605
2606

2607

014062

014070

010537

001270

014100
014104
014110
0141146
014120

010337
010237
010137
010037
000002

001264
001262
001249
001256

014074

014154
014156
014160
014162

2632

014170

2635
2634
2635
2636
2637
2638

2639
2640
2641
2642

2643
2644
2645
2646
2647

2648
2649
2650

2651
2652
2653
2654
2655
2656

000004

001274

PAGE 52

GENERAL UTILITIES

.SAVOS: MOV

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

4(SP) ,SAVPC

;SAVE RO-R5

2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629

2630
2631

016637

08:38

010437

Sv05:

001266

MOV
MOV
MOV
MOV
MOV
MOV

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

JRESTORE RO-R5

014122
014126
014132
014136
014142
014146
014152

013700
013701
013702
013703
013704
013705
000002

001256
001260
001262
001264
001266
001270

.RESO5: MOV
MOV
MOV
MOV
MOV
MOV

RTI

SAVRO,RO
SAVR1 ,R1
SAVR? ,R2
SAVR3,R3
SAVR4 R4
SAVRS RS

;CONVERT OCTAL NUMBER TO ASCII AND QUTPUT TO TELEPRINTER

014164
014166
014172
014176
014204
014212
014216
014222

014226
014232
014236
014242

014246
014250
014254
014260
014262

014264
014266
014270

014272
014274
014276
014300
014302
014306

104402
015240
010046
010146
010346
010446
010546
017601
013737
062766
012137
112137
112137
013137
013704
113705
012700
010403
042703
062703
110320
000241
006004
000241
006004
000241
005

005305
001362
012703
114023

.CONVR:

TYPE

MCRLF

.CNVRT: MOv
MOV

000612
015714
000002
0146374
014376
014377

014400
014400
014376
015714

177770
000060

2%:
3%:

R3.-(5P)
R4 -(SP)
R5.-(SP)

MOV
ADD
MOV
MOVB
MOVB
MOV
MOV
MOVB
MOV
MOV

TEMP. TEMP3
#2,12(SP)
(R1) +_WRDCNT
(R1)+.CHRCNT
(R1)+.SPACNT
@(R1)+,BINWRD
BINWRD
R4

ADD

#060,R3

BIC

MOVB
CLC

CHRCNT.RS

#TEMP RO
R4 .R3

#177770.R3

R3, (RO)+
R4

ROR

CL(C
ROR

6%:

@12(SP) ,R1

ROR

(LC

(°575¢%

R1,-(SP)

MOV
MOV
MOV

MOV

00125C
000612

RO,-(SP)

DEC
BNE
MOV
MCVR

RS
33
#°DATA
R3
-(ROY, (R3)

SEQ 0051

CZ0QF

MACY11 30A(1052)

CZDQFE.P11

2657
2658
2659
2660
2661
2662
2663
2664
2665
2666

2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677

2678
2679

2680
2681
2682
2683
2684

2685
2686
2687
2688
2689
2690
2691
2692

2693
2694
2695

09-JUN~78 07:58

014310
014314
014316
014322
016326
014330
014334
014336
014340
014342

014344
014350
014352
014360
014362
014364
014366
014370
014372
014374
014376

014400

105337
1374
105737
001405
112723
105337
001373
105013
104402
015756

005337
001322
013737
012605
012604
012603
012601
012600
000002
000000
000009

014376
014377
000040
014377

014374

001250

014377
000000

08:38

PAGE 53

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

CHRCNT
DECB
43
BNE
SPACNT
1ST8
6%
BEQ
#040,(R3)+
MOVB
5%:
SPACNT
DECB
5%
BNE
(R3)
CLRB
6%:
TYPE
MDATA
¥§DCNT
DEC
BNE
TEMP3,TEMP
MOV
015774
(SP)+,RS
MOV
i
(SP)+ R4
MOv
(SP)+ ,R3
MOV
(SP)+ ,R1
MOV
(SP)+ R0
MOV
RTI
WRDCNT: Q
CHRCNT: O
+1
SPACNT=CHRCNT
BINWRD: 0

;TRAP DISPATCH SERVICE

;ARGUMENT OF TRAP IS EXTRACTED

;AND USED AS OFFSET TO OBTAIN POINTER
;TO SELECTED SUBROUTINE

014402
0144046
014410
014414
014416
014422
014426
014432

011646
162716
017616
006316
042716
062716
017616
000136

.TRPSR: MOV
SuB
MOV
ASL
TRPOK:
BIC
ADD
MOV
JMP

000002
000000
177001
001314
000000

(SP) ,~(SP)
#2,(SP)

;GET PC OF RETURN
;-PC OF TRAP

(SP)
#177001, (SP)
#.TRPTAB, (SP)

;MULTIPLY TRAP ARG BY 2

?(SP), (SP)

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

;ERROR HANDLER

2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707

014434
014436
014444
014446
014452
014454
016462
014470
014472
014476
014500
014504

104414
032777
001406
105777
100003
112777
032777
001074
021637
001404
011637
105037

2709
2710
2711
2712

014512
014514
014520
014522

011605
162705
011504
006304

2708

07-JuL-78

014510

104406

010000

164534

LHLT:

164536

000207
020000

164530
164510

XBX:

00123
001234
001312
000002

1%:

CKSWR
BIT
BEQ
TSTB
BPL
MOVR
BIT
BNE
CMp
BEQ
MoV
CLRB
SAV05
MOV
SUB
MOV
ASl

#SW12,aSWR
XBX
aTPCSR
XBX

#207,aTPDBR

#5W15, ASWR

HALTS
%EP).LSTERR
(SP) ,LSTERR
ERRFLG

(SP) ,RS

#2 RS
(~&) R4
Ré

;GET TRP

;CLEAR UNWANTED BITS
;POINTER TO SUBROUTINE ADDRESS
INE ADDRESS
; SUBROUT
;GO TO SUBROUT INE

SEQ 0052

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE PN
09-JUN-78 07:58

014 524
014 526
014 530
014 534
014 540
014 544
01 4550
014554
014560
014562
014566
014570
014572
014574
014576
014600
014602
014604
014606
014610
014612
014614
014622
014626
014630
014632
014634
014634
014640
014642
014644
014646
014652
014654

B 5
08:38 PAGE 54
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

061504

ADD
ASL
BIC
ADD
MOV
MOV
MOV
7STB
BEQ
TST

*77001
016020

014632

014644
014656
001312

014656
TYPMSG:

TYPE
MTSTN

# .ERRTAB,R4

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

DATARP
TYPDAT

CNVRT

XTSTN
TYPE
MERRP(C
CNVRT

ERTABO

177777

014632

TYPE
MCRLF
MOVB
TST

001312

BEQ

TYPE

ERRMSG: 0
WRKO.FM:
TST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ
CONVRT
DATARP: 0
RESREG: RES05
TST
HALTS:
BPL
PUSHRO

014644

014656

164312

000002

ERRMSG
WRKO.FM

DATAHD
TYPDAT

DATABP

RESREG

aSwR
EXITER

2(SP) RO

164262

ERRCNT
qguOB,asz

002000

166252

#SW10,aSwR

001216
001200

001214

NEAT ,RETURN
#STACK,
SP
aRETURN

002
000001

EXITER:

#-1,ERRFLG

001232
000400

164246

014756

BNE

(R5) ,R4

R4
#177001,R4

2%:
ERTARO:
XTSTN:

6.2

SEQ 0053

5
c
08:38 PAGE 55
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE.ETC.)

MACY1 30A(1052)
07-JUL 78
CZDQFE.PI1
09-JUN-78
7:58

014760
014762

003
001226

002

014764
014764
014772
014774

012737
000000
000777

01477¢

.BYTE

TSTND

3,2

JENTER HERE ON POWER FAILURE

000G24

" MOV

#RESTART, 24

gQLT

sPROCESSOR WILL

014776
014776
015004
015010
015014
015020

015022
015024
015026
015030
015032
015036
015042
015044
015046
015052
015054
015056

012737
012706
005037
005237
001375

MOV

104402

104411

104412
104413

000177
000001
003
001226

001312
001234

#.PFAIL, 264

#STACK,SP
TEMP
TEMP
.4

CLR

ERRFLG
LSTERR

MSTCLR
MEMCLR
#MP

164142

002

SSET UP FOR POWER UP TRAP

“HALT ON POWER DOWN NORMAL

TRAP HERE

MOv
CLR
INC
BNE

TYPE
MPFA]IL
INVRT
PFTAB
(LR

015242

015052
005037
005037

SEQ 0054

WHEN POWER

IS RESTORED

;SET UP FOR POWER FAILURE

aRETURN

3.2

TSTNO

:S?ECSCS¥;gCH REGISTER ROUTINE. CHECKS FOR “G TO ALLOW CHANGING
.OF

SR
ERENRERSled@le 1)¥)

005737
001042
022737
001036
105777

000042

017737
042737
122737
001021

164074
177600

104402

005137
104402
104411
104403
104405

000000

177777

000176

RDSW:

.WORD

TST

BNE
CMP
BNE

LY,V

TSTB
BPL
MOV

ronuny
QOO

cd
ek

lelele)

000007

WNN

164100

——

d —a
b
b —d
h
b mh
D
b
d —d

[0,Ye SV, 1V, ¥ ¥
NOONNLONN

urGG

Gur G

Ghur Gy

Gy @ar S

iur G

s —

jelelelolololelelolololololeole) QOO

000000

(S ALV LRV, LV, LV [V, LV, [V, IV, IV, IV, IV, IV, ]V, NN

015060

100033

LOC.

;LOCATIONS USED:

BIC

C(MPB
BNE
:

ouT
#SWREG, SWR
ouv
aTKCSR
out
STKDBR, .MSG

#177600. .MSG
#7,.MSG
ouT

TYPE ,$CNTG
(OM
a#RDSW
TYPE
, SMSwR
CNVRT, SWREGC

INSTR, SMNEW

PARAM

177777

;SOFTWARE SWITCH REGISTER PRESENT
JNO, GET OuT
JYES,_WAIT FOR
;READY, GET CHARACTER
"AND STRIP OFF

*ThE GARBAGE

YIS IT A <AG>

(ZDQF
MACY11 30A(1052)
07-JuL-78
CZDAFE.PI
09-JUN-78 07:58

2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837

2838
2839
2840
2841
2842
2843
cB4s
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854

015164
015166
015170
0151746
015200
015202
015204
015206
015210
015214
015222
015223
015230

000176
000
104402
005037
000002
000001
006
000176
057377
051777
000
040
020075

015234
020040
000377
050377
044501
051040
052122
042524
042777
051501
050504
051377
377
040522
044504
020123
053105

08:38 PAGE 56
GENERAL UTILITIES

001
115240
015060

.BYTE

(TYPE OUT,ERROR,SCOPE,ETC.)

SWREG

020075

0,1
TYPE ,MCRLF
ouT:
CLR
a#RDSW
RTI
SWREGC: 1
BYTE
6,2
SWREG
$CNTG:
.ASCIZ
<377>/°G/
S$MSWR:
(ASCIZ <377>/SWR= /

053505

SMNEW:

L.ASCIZ

.EVEN
MQM:
MCRLF:
MPFAIL:

ASCIZ
.ASCIZ
.ASCIZ

MEPASS:

_ASCIZ

<377>/END PASS DZDQF

MR:
MERRZ2:

LASCIZ
.ASCIZ

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

043125
047105
040524

MERR3:

_ASCIZ

<377>/INSUFFILIENT DATA./

051505
000055
041517
051440
042524
052123
051123

020124

MISTP(C:

_ASCIZ

<377>/TEST PC~/

020113
046105
020704
000
020072

MLOCK:

.ASCIZ

<377>/L0CK ON SELECTED TEST/

MCSRXx:

.ASCIZ

002
000107
051127

047040
000

2858
2859

015234
015240
015242
015250
015256
015264
015272
015300
015306
015314
015322
015325
015332
015340
015346
015354
015362
015370
015374
015402
015410

2861
2862
2863
2864
2865
2866
2867

015420
015426
015432
015440
015446
015454
015461

044506
020124
00004
052377
041520
046377
047117
041505
042524
103

2869

015467

126

041505

020072

MVECX:

.ASCIZ

/VEC:

2871
2872
2873
2874
2875
2876
2877

015475
015502
015506
015514
015517
015524
015532

120
035123
051105
020072
377
020124
000
377
053523
051040

051501
000040
047522
c0o0
052377
047516

042523

MPASSX:

.ASCIZ

/PASSES:

051522

MERRX:

.ASCIZ

/ERRORS: /

051505
020072

MTSTN:

_ASCIZ

<377><377> /TEST NO:

042523
052111
043505

020124
044103
052040

MNEw:

_AS(]Z

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

2855
2856
2857

2878
2879
2880

015533
015540
015546

050040
052116
044777

000077

NEW= /

051127
042514
051505
040440
052123
042116
020123
020106
000
051120
020115
040503
047516
041511

042522
000056
051516

044503
040504

043040
027104
040524
020124
000040
050040
055104
000040

043517
047111
042524
062040
051505
042523

Y/
<377>
<377>/PWR FAILED.

/CSR:

RESTART AT TEST /

/
/
/

SEQ 0055

015554
015562
015570
015576
015604
015605
015612
015620
015626
015634
015640
015642
015644

015646

015650

020117
051447
05111
052103
000
120
046777
020106
051440
177523
015640
000002
006
001244
006
001246

08:38

050504
042040
042105
053111

030461
051505
040440
027105

035103
050101
050504
040524

000040
047440
030461
052524

000

003

PAGE 57

GENERAL UTILITIES

MERRP(C:
XHEAD:

.EVEN
XSTATQ:

.AS(CI

,AS(C]

2
.BYTE
TEMP1

002
FVEN

.BYTE
1EMP?

C DQF
MACY11 30A(1052)
OggJUL
~78
¢ DQFE. P11
09-JUN-78 07:

(TYPE OUT,ERROR,SCOPE,ETC.)

/PC:

INBUF:
.—.+40

TEMP:

015756

MDATA:
0
=, +40
ERRTA: O

016020
016022
016024
016026
016030
016632
016034
016036
016040

6.2

DHO
DT1
EM?

DH1
0
EM?2
DHZ
0
EM2
DH3
0
EM2

)

emd el

) —d —d

DH4

INPUT=-QUTPUT

0
0
EmMC
0
0
EM

0
EM?
DHS
0
EM2
DHO
C
EM?
DH7

CQ11

6.3

015714

=.+40

<377>/MAP Of

;BUFFERS FOR

015652

JHALT O

JHALT 1
JHALT 2

JHALT 3

SHALT &
JHALT

JHALT 6

JHALT 7
JHALT

STATUS/<377>

SEQ 0056

CZDQF
MACY11 30A(1052) OgéJUL
-78
CZDQFE. P11
09~JUN-7 8 07

EM2
DH10
0
EmM2
DH11
0
DH12
0
0
EM3
DH14
D13
EMS
DH13
D12
EMS
DH14
D13

000000
016403

017203
017254

016462
017160
017242
016506
017203
017254
016533

Jihr G

002

JHALT 15
JHALT 16

JHALT 17

]
ey Sy oy
e
e
e
e
e e
o
el e Y e
R
el e
e
e

NININNNPN
N N N NN NN NN AN N N NN NN

alnlalalalalalslalielialalelelaleYa
e oY e el

JHALT 21

.
.
.

JHALT 20

.BYTE
GDCHAR
.BYTE

ADDR

JHALT 14

XX T X T X T X XY,
VX

(]
.
.
.
L]

Y
X

.
.
L[]

LX X

L)
.

ASC

(TYPE OQUT,ERROR,SCOPE,ETC.)

JHALT

01
~
o

Gy GharGar
G d

052111
044502
052111
044502
044502
044502
052111
052111
044502
046125
050130
050504
042514

030521
047516
044103

044505
041440
040522
052123
020103
020101
020061
051040
051101
030460
030124
031460
030124
030124
030124
030061
030461
030124
044524
041505
051105
051440

041505
042510
040510
042524
041502
052101

JHALT 12

EM6

0
0
DH12
DH15
0

16134

GENERAL UTILITIES

130

016361
017050
000000
016361
017075
000000
017124
000000

PAGE S8

2937

08:38

.BYTE
GD(HAR
BYIE

<377>/RECEIVER DONE NOT SET./
<377>/THE CHARACTER DETECT OPTION <BB> IS NOT INSTALLED!'!'.!''/
<377>/CHARACTER DETECTION TEST <SET FLAG>/
<377>/TEST OF SEQ REG /
<377>/BCC TEST~APPEND FAILURE. DQ11 ERROR FLAG SET./

<377>/DATA COMPARE ERROR/

<377>/DQ11

ERROR FLAG SET/

<377>/NO RECIEVER INTERUPTS./
<377>/CHAR RECEIVED
EXPECTED ADDRESS/
<377>/BIT01 ~SET T~/
<377>/B1702 -CLEAR T~/
<377>/BI1T03 -BCC START CLEAR-/
<377>/BIT06 -CLEAR ACTIVE-/
<377>/B1T107 -SET DONE: CLEAR GO-/
<377>/B1T108 -CHARACTER STRIP-/
<377>/BIT10 ~TX PAD~/
<377>/BI1T11 -BCC EXCLUDE=-/

<377>/B]1T08 -RX CHAR STRIP-/

<377>/MULTIPLE FUNCTIONS FAILURE/
<377>/EXPECTED RECEIVED/
<377>/DQERR
/
<377>/DLE STUCK /

SEQ 0057

(Z0QF

“IDQFE PN

2970
2971
2972
2973

MACYM

2974

017252
017254
017256
01726(

30A(1052)
07=-JuL~78
09-JUN-78 07:58

013036
00000"
006
0°303C
N0

P40

oC2

08:38 PAGE 59
GENERAL UTILITIES

D13:
LEND

(TYPE OUT,ERROR,SCOPE
ETC.)

(HAR

1
BYTF

ERR

6.2

SEQ 0058

CKSWR
CNTLU CNVRT =
CONVRTCOUNT

CREAM
CSRMAP
DATABP
DATAHD
DETCAR

DEVADR
DHO
DH1
DH10
DH11
DH12
DH13
DH14
DH15

014376

104414
104415
1064411
104410
013040

007300
000220
014656
(014644
013046

014056
016563
016624
017050
017075
017124
017160
017203
(117214

5894

1886

b —d

1041

1326+

1300+

23884

1339+

1352+

1365+

1961
1896

1933

1679
1626

2450

2080

1733
1671
2096

2308

2299

2308

2361

1493

1671

1679

1886

1928

852

2026+

2042

2048

2386#

2970

1275
14344

1301

1314

1327

134C

1353

1366

1379

1392

1843

1262
143

1468

1922
1808

1778
1718

502#
5914
5904

2083
640

604Ln
603
594w
5934

727

1287+

—

718

6124

1274+
1436

NOWYO

2589+

2067
26309+

SEQ 0059

CHRCNT

2350«

611a

=
BIT2
BIT3
= 000010
BIT4
= 000020
BITS
= 000040
BIT6 = 000100
BIT?7 = 000200
000400
BIT8
BIT9 - 001000
013344
BRW
013346
BRX
CHAR
013036
CHARDT= 000010
001236
(HAR1
001240
(HAR2
001242
(HAR3
CHK.AD 004314

1176+
1391«

b —ad

ADRCNT= 014061
BABIT = 010000
8BBIT = 020000
BCC.TA 011454
BINWRD 014400
BITO = Q00O
BIT1
= 000002
1110 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 - 040000
BIT1S = 100000

1117«
1378+

013042

723
731

ADDR

6094
6104

CO=—2—=2—-200N—
NINODINWN—
00
NOOC
NO WS N0

ABBIT = 002000

ACTBIT= 004000

08:38 PAGE 61
CROSS REFERENCE TABLE -- USER SYMBOLS

00H00

~78
MACY11 304(1052) O;EJUL
{ZDQF
IN
09-2UN-78
CIDQFE.P

2657+

26774
101

2449

24673

2696

2755

2409
2746

24613

2726

2730

2789

2820

1440
1050+

1583«
1054+

1602

1064+

1828+

1065

1839
1066+

1848

2025+

2038

23874

2744
2743

27474
1174+

1185

1191

1192

1275

1437~

1438+

996

1128

25964

a
291
961

1734

1880

1446

1 30A(1052)
CZDQF
MACY
07-JuL-78
CZDQFE.P1T
09-JUN=-7 8 07 :58

1083+
1443%
1573«

1084
1445+«
1584x

1°21~
1447+
1586+

1925+

1927+

1930«

1932+

8994

4
Q0

NyV)

%8
%
%

»
%

RVe R o o Yo e

B
¥

61+

8«

36+

v, a1V Te

2
2
2
2

1935«

203%+
2187
2266+
2%6x

1931«

1
1
1
1
1
1

2032«
2160+
2263
2314

1928+

1122+
1189~
1460+
1574x
1733~
1876

2030+«
2158+
2261x
2312«
1087s

1926%

2028+
2156
2259+
2308+
08¢

2439

1086
1187+
1459+
1572«
1718+
1872+

1072
1070

2012+
2151~
2225+
2289+
2364+

2147+
2220+
2285+
2360+

1085+«
1185+
1458+
1569+
1695
1837«

1071~
1069+

2
2
2
2

1084+
1182«
1454%
1540+
1691
1835«

1070~
1068+

2140«
2214
2262+
2315~

2035+«
2212+
2260«
2313«

1179+
1505+
1694+
1888«

ONIPNIN)
b =
ed a2
ANNIN =D 0000
NI —
o NOWS
OO —=NVC &~

880«

2033«
2190%
2258%
2311«

1129+
1492+
1648+
1883«
1964«

1207

OSSO0
2 OVOOW
WO ONWWNDON)
=)

2257«
2302+

2031~
2186*
2251%
2303«

1836*

2335+

PONOMNVORN)
= —db D e b e e
WNINY
=000 00NN —

2024+
2154«

1834«

2174

1180«
1450«
1538«

1832+«

2300+

2029+
2159«
2249+
2301«
8714
8704
8794

1830«

1
1
1

1188~
1539«
1818«
1904*

1535«

2230+

1190+

24636
878#

2177

1489+

874m

1548

2
1

NOO
NOOO

875#

1924«

2084

702

9034
9054
9074
9054
9114
9134
9154
Q174
9224
8774

1833%
1922+

J0* 374

1082+«
1641
1571«

8974

1679+

DQSE(H

9214
1125+«
2144«
1133«
1698

1046

1044

001352
001350
001372

746
1120«
2139«
1078
1652

994

NN
WAWNUNY
=0 0000V SN N —»
[0,Y0
1pW R o
00O
OO W
—
— 00
*OOWOO

DARL VL
C
DQRVE
DQSEC

744
1077+«
2011+«
1076
1645

993+

001370

739
1076
1963«
1067+
1640*

9164

DQREG

754

*»

001360

750«

= NS
OO

DQRCSR

749«

DQCSR
DQERR
DONUM
DQRCSH

001404
001410
001414
001420
001424
001430
001434
001440
001444
001450
001454
001460
001464
001470
001474
001506
001366
001504
001362

956
947
743>

DQCROT
DQCROZ
DQCRO3
DQCRO4
DQCROS
DQCRO6
DQCRO?7
DQCR10
DQCR
DQCR12
DQCR13
DQCR14
DQCR1S
DQCR16
DQCR17

6894
S744
669
887#
8864
8914
8934
8954

29614
29614
29614
29614
29614
29614

DH?7

DISPRE
DLIGHT= 177570
DQACTV
001500
DQCROQ 001400

SEQ 0060

r\;oo—awbt‘:\o\:oooom
[@Te

DHO

2920
2923
2926
2929
2932
2935

PNOPNONINY
— = = 2 —2
WM
=\ O 00wV &

DH4

DHS

016643

016664
016715
016743
016777
017030
000174

OOV
D
ANNUND
=000
W & = —

DHZ
DH3

5
I
08:38 PAGE 62
CROSS REFERENCE TABLE == USER SYMBOLS

CZDQF
MACY11 I0A(1052)
07-JuL-78
CZDQFE.PI1
09-JUN-78 07:58

DQSTAT

DQSTOd
DQSTO1
DQSTO?
DQSTO3
DQSTO4
DQSTOS
DQSTO06
0QSTO7
DQST10
DQST1
DQST1?2
DQST13

001510
00140¢

001406
001412
001416
001422
001426
001432
001436
001442
001446
001452
001456

001462
DQST1S
001466
DQST16
001472
DQST17 001476
DQTCSR
001364
DQTLVL
001356
DQTVEC
001354
- 177570
DSWR
DAST14

D12
DT3
EMO
EMl
EM2
EM3
EML

EMS

EM6
ENABLE
ERR

ERRCNT
ERRFLG
ERRMSG

ERTABO
EXITER
EXT.UP
FUNCT,

GDCHAR

HALTS
HILIM

017230
017242
017254
016174
016314
016361
016403
016462
016506
016533
011620
013030
001232
001312
014632
014750
014702
011236
011022
013044
014662
014054
001222
015652
001310

ICOUNT
INBUF
INIFLG
INSTER= 104404

INSTR =
INSTR?

JUMBIT=
LIGHTS
LIMITS
LOBITS
LOCK
LOGICA
LOKFLG

08: I8

PAGE 63

CROSS REFERENCE

SEQ 0061

TABLE == USER SYMBOLS

1065+

1068

1110

22%2

2264

2279

2297

8764
8734
8724
573
2915
2951
2948
2910
2913
2916
2946

1078«
1074w
1072«
946
29614
29664
2954
2961
29614
2919
2961

1079«
1075+

1080

1641

1642

1701

1938+

2952
2955

296 1#
29614

2068«

2084+

8254
2717«
273
2750

938+
2735
27654
27554

2064~

2080+

2703
2547+

27494
2577

9234
888+
8904
862
894Ln
8964
8984

9004
902#
904s
906

908~

9104
9124

9144

9164
918#

2949
1500

7944

1631

1116+

7608
251

823
844w
8424
252¢
6134
779

2563
2549+
789
651
I

1073»

1978«

2183

1074

29714
2922

1939

)

2925

2928

29%1

2934

29%7

2940

29614

1768

1782

1899

2173

2330

2720

27%

2791+

2385«

29¢3

2968

1731

1776+

o47¢

2961a
1547

941

1678

1126+

2460
2553

962
2572
1022
2537
730
947+
25774
2581
1109«
2626

1689

2100
2445
2399
2738#
1732

2096
1175+

1723

2177~
2756+
2462+

2973

17727

2239
1192«

25954

2464
2901#
965+

2821

2264

2297

25974

2568

956«

1173

2610

1630

.6’7'

2333+

2336+

2351»

1T 30A(1052)
CZDQF
MACY
07-JUiL-78
CZDQFE.PI
09-JUN=-78 0 7:58
LOL IM
LPCNT
LSTERR

MCRLF
MCSRX

MDATA
MEMCLR=
MEPASS
MERRP(
MERRX
MERR?2

014052
001224
001234
015240
015461
015756
104413

015300
015605
015506
015325
MERR3
015374
MISC. = 000012
MLOCK
015432
MNEW
015533
MPASSX
015475
MPFAIL
015242
MQM
015234
MR
015322
MSG13
016224

MSTCLR= 104412
MTITLE
001000

015517
015420

MTSTN
MTSTPC

2546

7914

7954

2519
2404
2655
8584
2602
2729
2416

2579
2459+
9420+

2535
28674
2666
1114

6314

PF TAB
POLY
POLY,

RETURN

RUN
RUNCNT
RUNFLG

104407

001214

00" 30¢

2241

2273

2794

1032

2961
8564
7704

2725

2037
1093«

23484
1108«

1806«

1870«

1364~

1377~

1234+
1403+
1959

2007«

2580

2582

2812
2822

2816

2559

2568#

26400«

2419

2098+

2316

932+

1007+

2533
27484
2781
2424
2748

2570

2804

2818~

2828+

944«

1027

1031«

1033

1037+

1041+
1042+
935e

1044
1051«
1039

1049+
1053«
1043

1055+

1062+

= 000017

RESOS5 -

2792+
28404

2532

013762
014044
001230
015052
013032

PUSH2S- 024646
015060
014660
014776
013172

1435

2706+
2827

983
2412
2788

POPR) = 012600
POP1SP= 005726
- 022626
POP2SP
PS
- 177776
PUSHRO= 010046
PUSH1S- 005746
RDSW
RESREG
RESTAR
RESTRT

29054

2463+
2704
2733

2235

1014

ODDBIT= 001000
out
015174
PARAM - 104405
PARAM1
013706

PARERR
PART
]
PASCNT

2594n
2460
2398+
2627

SEQ 0062

2850#

761
990

015467
011674
001216

MVECX
NEWENA
NEXT

K 5
PAGE 64
CROSS REFERENCE TABLE == USER SYMBOLS

08: 38

12647«

1616

1260%

1429+

1273«

1484

1286+
1525+«

1299+
1567«

1312+
1624+

1325+
1669+

2063+

2079+

2095+

2136«

2465

2761

1113

2432+

2665+

2466

2761+

2763

24314

1112«

CZ0QF
MACY11 30A(1052)
07-JuL~-78
(ZDQFE.P1?
09-JUN-78 07:58
RXKA.P= 000000
RXBA.S= 000004
RXBUFF
(012216
RXWC.P=
RXWC.S=
RX.BCC=
SAVACT
SAVNUM

000001
000005
000015
001502
001276

SAVP(
001274
SAVRO
001256
SAVR1
001260
SAVRZ2
001262
SAVR3
001264
SAVRS
001266
SAVRS
001270
SAVSP
001272
SAVOS = 104406
SCOPE - 104400
SCOFTM = 104401
SEQ.
= 000014
SET.UP 011024

SPACNT= 014377
STACK - 001200
STFLG
001311

Sv05S
SWR

SWREG

SWREGC

5Ww00
=
SW01
=
Sw02
=
SWw03
=
SW04
SWO5
SWwO6
SW08
=
SW09
Sw10
SW11
=
SW12
Sw13
SW14
Sw15
=
SYNBIT=
SYNC
SYNC. -

TEMP

TEMP
TEMP?

TEMPZ

014070

08:38

1180

2034

PAGE 65

CROSS REFERENCE

1442

2047

9204
815#
2602+
2611«
2610~
2609+
2608+
2607«
2606+

1526

2307
2659

933
936+

001244
001246

101250

2422+

SEQ 0063

1724

2248

1738
2286

1769

1783

1831

1276

1289
1551

1302

23754

1237
1406
1995
1685

1509
2087

2103

2208

1625

1670

1807

1871

1921

26784
2762

2783
987
2809

993

1012

965+

000176

015714

2420+

2702
2809

015202

1589

2194

1096
1367
1857
1154

TABLE =-- USER SYMBOLS

2051

2708

001200

000001
000002
000004
000010
000020
000040
000100
000400
001000
002000
0046000
010000
020000
040000
100000
100000
012012
00001

1585

966

969
2757
2832

1148+

1149
1467+
Q78+

2749
2825

980

2759

1835

1981

1994

1020

2450

2457

1207+

1208+
2785+

2903«

1611

2697

2257

2372

1137«
1455+

1656

802#
<896
2669

1138

973

1666+
974

1193«

2642

1199

1197«

2669+
2894

2784

1209

CZDQF
MACY11 30A(10 52)
_07-JuL-78
CZDQFE.PIN
09-JuUN-78 07:58

TKCSR
001204
TKDBR
001206
TLAST = 010214
TPCSR
001210
TPDBR
001212
TRPOK
04414
TSTNC
007226

TST40

TST4]
TST42
TST43
TST46
TSTLS

007470

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

010002
010060
010136
010214
weanne

003514
003544
003574
013246
(000002
000006
012014

TXWC.P- 000003

SEQ 0064

2811
2523

2813

2496
2498+

2524
2523«

2699
2701»

1092+
1303
1805+

1107«
1376«
1869

1171
1389+
1919+

1233+
1402+
1958«

2006+

2062+

2078+

2094+

2135+«

2770

2432

2433

1016+

1019+

24514

1542
1891+«

1577

1579
1931

1628«
1936+

1673
1937+

1720
1971«

1765
1972

1820
1975

1822
2017

1824
2019

1827+
2021+

1259+
1428«

1272«
1483«

1285+«
1524+

1298+
1566+

1311«
1623+

o84

Q00 NWONHAND
R MY OO
O 00
§§§§§\§g§§g§ Rk

I
S
S
S
R
U
S
QO
U
Y

B DD WWO WANWWNWINN NN

N
S N\
N

12646%
1415+«

10924

G000 N NN = NN

D
d
)
D
D
)
D
d

BN WW O WINIWNINPN
NOWWNIAWN
— O

e
e

)
)
ed

QO
N\J&O‘—'OR)O\\O'\J@N—'O
-‘O\\OJ\\JWV\‘\OC’*Wg\IJ\ N—=00WVNN O

002662
005350
005532
005726
006104
006260
006600
007054
007260
003214

)

005072

TST3
1ST30
TST31
T1S132
TST33
T1ST34
T1ST35
1ST36
T1ST37
TST4

—d

TS127

004234

004264
004562
004722

TST23

TST24
TST2S
TST26

1286

002254
003624
003654
003704
003734
003764
004014
004044
004074
002644
004124
004154
004204

CROSS REFERENCE TABLE ~- USER SYMBOLS

780#
7814

—d eed

ST
TST10
TST1
T1ST12
TST13
TST14
TST1S5
TST16
TST17
TST2
TST20
1S721
TST22

PAGE 66

8054
8064

001252
001254

=0 0000 NNOONNO NS

TEMPSG
TEMPS

08: 38

19194
1958#
11714

20064
20624
2078#
20944
21354

2392

12334

12464

12594

2150

1894

2170

2243

2321

2373

MACY11 30A(1052)
07-JUL-78
CZDQFE.PI
09-JUN-7 8 07:58

CZDQF

TXWC.S=
TX.BCC=
TX
. MUX=
TYPDAT
TYPE
=

000007
000016
000013
014646

TYPMSG

014570
000056
014374
014634
014462
013206
013230

VECMAP

WRDCNT
WRKO.F

XBX
XCSR
XERR
XHEAD
XPASS
XPOLY
XRXBUF
XSTATQ
XSYNC

XSYNC?2

XTSTN
XTXBUF
XVEC
X .ABF
X.ABG
$CNTG
$E

104402

015612
013222

013034
012626
015640
012420
012422
014756
012424
013214
005640
005446
015210
000046

6274
6354
o324
2723
760

26415
281/
2721

6624
2636w
2736
2698

08:38

114

015223
015214
000044

CROSS REFERENCE

TABLE =-- USER SYMBOLS

2741
8404
2509
2819
2724

27440
964
2519
2827

972
2531

982
2535

2667+
2734
2700
2434n
24434
28874
2440
2081+

26764

2097+«

2320

23854

2283«

2290

23774

1681~

1682+

1735«

1683
1635

16894
16404

1038
12614

10394
1273

14304
1761
2064#
1034
12614
1348
14304
1758

759

28924
23784
27684
24374
28334

1351

SMNEW
SMSWR

PAGE 67

28364
2834w

SEQ 0C65

989
2626

1014
2665

1032
2724

2728

1736+

1780«

1781+

2275

23794

1093
127644

10944
1286

1108
1287#

11104
1299

1172
13004

1484
17624
2079

14854
1806
20804

1525
1807#
2095

15264
1870
20964

1567
18714
2136

1568#
1920
21374

2007

10394
1270
13524
1481
17624

1090
12744
1361
14854
1803

10944
1283
13654
1522
18074

1105
12874#
1374
15264
1867

11104
1296
13784
1564
18714

1169
13004
1387
15684
1917

1264
13264
1413
16704

1057

2401
2732

2403
2737

27024

13524

1364

13654

1377

13784

1247
13264
1416
16704

1390

2004

000016

8544

017262

717

8914

1464
1727

228

2049
2246
.BEGIN
. CKSWR
| .(NTLU

2407
2742

1470
1741

2069
2265

1503
1772

2085
2278

1507
1786

2101
2298

1549
1902

2175
2374k

1643
1906

2178
23764

9044
9174
1151

1646
1943

2181
23804

1696
1986

2494

2197
2777

2611
2787

CZDQF
MACY11 30A(1052) OggJUL 78
CZDQFE. P11
09-JUN-78 0
.CNVRT
. CONVR
.EOP
.ERRTA
CHLT
. INSTE
. INSTG
. INSTR

INST

-MEMCL
.MSG
MSTCL
. PARAM
PFAIL

014160
014154
013050
016020
014434
013614
013620
013476
013516
010652
013520

013370

017262

ABS.

PAGE 68

CROSS REFERENCE

2813«

2B14x

27744

2782

2815

944

23714

ERRORS DETECTED:

000
O

DSKZ : CZDQFE ,DSKZ : CZDQFE . SEQ-DSKZ : CZDQAXX .MAC,DSKZ:CZDQFE.P11
RUN-"IME: 7 10 1 _SECONDS
RUN-TIME RATIO: 38/19 2.0
CORE USED:
19k
(37 PAGES)
DOCUMENT PAGES:

TABLE =-- USER SYMBOLS

2536

.RESO5
.SAVOS

.SCOPE
.SCOP1
.START
. SYNC
. TRPSR
.TRPTA
.TYPE

08:38

SEQ 0066