Digital PDFs

AH-8628E-MC

January 1979

67 pages

Original

35MB

view download

OCR Version

50MB

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

OCR Text

SEQUENCE REGISTER TEST

CZDGQGFEO

AH-8628E-MC

JAN 1979

FICHE1 OF
1

MADE
IN USA

copvricHT 7a-78

SOEOREN

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

08:38

PAGE 2

SEQ 0001

IDENTIFICATION

PRODUCT

CODE:

AC=8626F
-M(

PRODUCT NAME
:

CZDQFEQO SEQ REG TSTS

DATE:

JUNE

MAINTAINER:

DIAGNOSTIC GROUP

1978

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

EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES

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

(C)

1974,

FOLLOWING ARE

DIGITAL
DEC

1978 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION:

MAS SBUS

CZDQF
MACY11 30A(1052)
07§JLL~78
CZDQFE.PT
09-JUN-78 07:5

08:38

PAGE 3

SEQ 0002

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

CURRENTLY THERE ARE SEVEN OFF LINE DIAGNOSTICS THAT ARE
TO BE RUN IN SEQUENCE

TO INSURE

AT AN EARLY STAGE AND

INSURING THAT

THAT

ERROR SHOULD OCCUR IT WILL BE DETECTED
DIAGNOSIS OF ERROR WILL BE

NOTE:

IMMEDIATE TO PROBLEM

ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE.

THE SEVEN DIAGNOSTICS ARE:
1 . CZDQA [REV]
BASIS R/W TEST #1

" 4 . CZDQAB [REV]
3 . CZDQC [REV]
4
CZ2DQD [REV]
5
CZDQE [REV]
6 . CZDQF [REV]
7 . CZDQH [REV]

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

T HERE IS ALSO AN ONLINE TEST
1 . CZDQ0 [REV]
ONLINE TEST.

TO BE DISCUSED LATER.

(ITEP OVERLAY)

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

e
.

REQUIREMENTS

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

38?13133 (OR EQUILIVALENT)

SYNC MODEM (ONLY REQUIRED FOR ONLINE

TEST)

STORAGE
PROGRAM WILL LOAD AND RUN

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

BE NOTED AND TO BE UNTOUCHED BY CPERATOR
AFTER DQ11 TRIAL PROGRAM HAS BEEN EXECUTED.
OR AFTER THE "'AUTG SIZING'' HAS BEEN DONE.

LOADING PROCEEDURE
ME THOD
ALL

PROGRAMS ARE

IN ABSOLUTE

FORMAT

AND

CZDQF

MACY11

| (ZDQFE.P11

30A(1052)

07-JUL-78

09-JUN-78 07:58

08:38

PAGE 4

SEQ 0003

ARE LOADED USING THE ABSOLUTE LOADER.

ABSOLUTE LOADER STARTING ADDRESS

+500

MEMORY
SIZE
4K

12K

16K
20k

77
117

28k

157

137

24K

5.}

LOAD THE ADDRESS OF ABS. I ODADER (LOC.Xxx500)

3.1.2

THEN START

STARTING PROCEEDURE
A.
B.

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

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

4
SWITCH REGISTER OPERATION

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

THE PROGRAM WILL

TYPE MAINDEC NAME AND PROGRAM NAME

IF THIS WAS THE FIRST START UP OF
THE FOLLOWING:
‘MAP OF DQ11 STATUS''
1400
1 60010
1402
152300
14046
160020
1406
150310

THE PROGRAM) AND ALSGC

THE ABOVE IS ONLY AN EXAMPLE
!
THIS WOULD INDICATE THE STATUS TABLE STARTING AT ADD.
1400 IN THE PROGRAM. THE STATUS TABLE MUST BE VERIFIED BY THE

USER IF AUTO SIZING IS DONE.
TABLE SEE

#s«x]F

SECTION 8.4

FOR INFORMATION OF

STATUS

FOR HELP.

THE SOFTWARE SWITCH REGISTER IS SELECTED THEN THE FOLLOWING

WILL BE TYPED AFTER THE PROGRAM IDENTIFIES

ITSELF:

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

OUT

THE

TITLE.

ECZDOF MACY11 30A(1052) 07-JuL-78 08:38 PAGE 5
CZDQFE.P1

SEQ 0004

09-JUN-78 07:58

THE PROGRAM WILL

TYPE 'R’

AND PROCEED TO RUN THE DIAGNOSTIC
6.7

CONTROL

SWITCH SETTINGS

IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH

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

THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES

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

THEN THE SOF TWARE SWITCH

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

SWITCH

DOING THE FOLLOWING:
|

TYPE

CONTROL

G <*G>;

THIS WILL

ALLOW THE

TTY

TO ENTER DATA

LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.

INTO

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
OF

THE SOF TWARE SWIT(H REGISTER.)

3) AFTER THE
OF

Sw 15
Sw 14
SWw 13
Sw 12
Sw 11
Sw 10
SWw 09
Sw 08
Sw 07
SWw 06
Sw 05
Sw 04
Sw 03
SW 02
SwWw 01
Sw 00

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

THE FOLLOWING AT THE TTY:

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

IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WIL!

BACK TO STEP ..
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SET:
SFT:

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

LOCK ON SELECTED TEST
RESTART PROGRAM AT SELECTED TFST
RESELECT DQ?1'S DESIRED ACTI.F.

SEND YOU

MACY11 30A(1052) 70§§JUL-78

CZDQFE.P11

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

IS TYPED

OUT FOR SWITCH REGISTER BEING EQUAL TO DQ11's
ACTIVE. THIS MEANS IF THE SYSTEM HAS
FOUR DA11S; BITS 00,01,02,03 WILL

BE SET IN LOC "DQACTV' USING THIS
SWITCH ALTERS THAT LOCATION; THEREFORE
IF FOUR DQT1S ARE IN THE SYSTEM

#+xDQ NOT*++ SET SWITCHS GREATER THAN

Sw 03 IN THE UP POSITION. THIS WOULD BE

A FATAL ERROR,

METHOD:

DO NOT SELECT MORE ACTIVE

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

A:
B:
C:
D:

PROGRAM WILL TYPE MESSAGE
CONTINUE THE BINARY_
NUMBER OF DQ11S DESIRED ACTIVE

£:

NUMBER

Sw 01

EXAMPLE:

1=1 DQ11; 3=2 DQ11;

(IF VALID) WILL BE

7=3 DQ11;

17=4 DQ11

IN DATA LIGHTS

37=5 DQ11 ETC.

(EXCLUDING 11/05,

CONTINUE WITH ANY OTHER SWITCH SETTINGS DESIRED.

IT IS STRONGLY SUGGESTED THAT

AT LEAST ONE PASS HAS BEEN MADE

BEFORE

TRYING TO SELECT A TEST

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

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

SWw 09

LOOP ON CURRENT DATA:

THIS SWITCH WILL ONLY WORK

THE REASON BEING THAT MOST

TESTS

CALL ''SCOP1'' IS IN THAT TEST.

DEAL WITH BLOCKS OF DIFFERENT DATA

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

4.1.3

SINGLED QUT.

SWITCH REGISTER PRIORITYS

ERROR SWITCHES
WS WN) =

CZDQF

.
.
.

SW
SW
SW
SWw

12
13
15
08

SwWw 10

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

««*+HT (ERROR) ROUTINE SUPPORTS <“G> OPERAT]ON*#w%
SCOPE

SWITCHES

11/04,

11/34)

CZDQF
MACY11 30A(1052) O;EJUL-78
CZDQFE.P1
09-JUN-78 07

08:38

PAGE 7

SwW 09 (IF ENABLED BY '‘'SCOP1'")

Sw 11

SEQ 0006

»*++SCOPE ROUTINE WILL SUPPORT <*G> OPERATION#*#+

STARTING ADDRESS
STARTING ADDRESS IS AT 000200
THERE

ARE NO OTHER STARTING ADDRESSES

FOR THE DQ11 DIAGNOSTICS PREVIOUSLY MENTIONED
NOTE:

IF ADDRESS 000042 IS NON-ZERO

THE PROGRAM ASSUMES IT

IS UNDER

ACT11 OR DDP CONTROL AND WiLL ACT ACCORDINGLY
AFTER ~ALL* AVAILABLE DQ11°'S ARE TESTED

THE PROGRAM WILL RETURN TO 'DDP2'' OR “ACT=-11"",

OPERATING PROCEDURE
WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN SECTION
FOUR WILL BE PRINTED.

AND PROGRAM WILL BEGIN RUNNING THE
DIAGNOSTIC

5.2

PROGRAM AND/OR OPERATOR ACTION

THE

TYPICAL APPROACH SHOULD BE

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

CLEAR SW 15

W
4.
THE

SET SW 14:
SET SW 13:

(LOOP ON THIS TEST)
(INHIBIT ERROR PRINT OUT)

TEST NUMBER AND PC WILL BE

POSSIBILY AN ERROR MESSAGE

TYPED OUT AND

(THIS DEPENDS ON THE

TEST)

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

CONCERNING THE ERROR REPORT; LOOK IN THE LISTING

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

INTERPEDITED

ERRORS
AS DESCRIBED PREVIOUSLY THERE WILL ALWAY BL
A TEST NUMBER AND PC TYPED OUT AT THE TIME OF

ERROR (PROVIPING SW 13=0 AND SW 12=0). IN MOST CASES ADDITIONAL
INFORMATION WILL BE SUPPLIED THE THE ERROR MESSAGE
E’g‘l?gg IS TO GIVE THE OPERATOR AN INDICATION OF THE

(o ¥ ]

(0,)

CAN BE

ERROR RECOVERY

CZDQF
MACY1 30A\1052)
07~JUL-78
(ZDQFE.P1
09-JUN-78
07:58

08:38

PAGE 8

SEQ 0007

IF FOR_SOME REASON THE DQ11 SHOULD
"HANG THE BUS'' (GAIN CONTROL OF BUS SO THAT

CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT
OR POWER DOWN/UP IS NECESSARY FOR OPERATOR
TO REGAIN CONTROL OF

CPU.

THIS SHOULD HAPPEN:; LOOK IN LOCATION

“TSTNO'* (ADDRESS 1226)FOR THE NUMBER OF THE TEST .THAT

MEJSECSWING AT THE TIME OF THE CATASTROPHIC

IN THIS WAY THE OPERATOR WILL HAVE AN IDEA AS TO
WHAT THE DQ11 WAS DOING AT THE TIME OF THE ERROR.

6.3

v«*x*HALT RECOVERY WHEN USING SOF TWARE SWITCH REGISTER=*+ #»
IF

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

THE

FOLLOWING WILL BE

THE

OPERATOR

SWR=XXXXXX

IS REQUIRED

NEW=

RESTRICTIONS

7.1

STARTING RESTRICTIONS

TO TYPE

A <*G> BEFORE

(REFER TO SECTION 4.1

SEE SECTION 4.

TYPED:

DEPRESSING CONTINUE.

FOR OPERATOR OPTION)

(PLEASE)

OPERATING RESTRICTIONS

DQ11

TRIAL PROGRAM MUST BE RUN PRIOR TO THE

FIRST AND ONLY

NOTE:

THE

FIRST RUNNING OF

IF NO PROGRAM OTHER THAN

ANY DQ11

DQ11 DIAGNOSTIC WAS LOADED AFTER DQ11

DIAGNOSTIC(

TRIAL OR

IF CORE MEMORY HAS NOT BEEN CHANGED;OR IF THERE
IS NO DQ11 CONFIGURATION CHANGES; THE
DQ11 TRIAL PROGRAM NEED NEVER BE RUN AGAIN.
HOWEVER IF ANY OF THE ABOVE HAVE BEEN VIOLATED
THE DQ11 TRIAL PROGRAM MUST BE RUN AGAIN
BEFORE RUNNING THE DIAGNOSTICS
NOTE: AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING
THE “'AUTO SIZING'' WHEN PROGRAM IS INITIALLY STARTED
WITH SW07=0.
8.

MISCELLANEOUS

8.1

EXECUTION TIME

8.2

PASS COMPLETE
WHEN THE DIAGNOSTIC HAS COMPLETED
A PASS

THE

FOLLOWING

IS AN EXAMPLE

THE PRINT OUT TO BE EXPECTED.

END PASS AC=S626E-Mmc (SR:

NOTE :

160000 VEC:

300 PASSES: 0000C1 ERROKS: 000000

THE NUMBERS FOR CSR AND VEC ARE

NOT NECESSARILY THE VALUES FOR THE DEVICE

CZDQF

MACY11 30A(1052) OggJUL-78
09-JUN-78 07

CZDQFE.P1

08:38

PAGE 9

SEQ 0008

THEY ARE ONLY FOR THIS EXAMPLE.

8.3

(MINI MONITOR)

THE VERY FIRST "TEST'' (TST1)

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

KEY LOCATIONS

RETURN (1214)

(1216)

TSTNO

(1226)

* RUN

(1304)

DQCROO~DQCR17
DQSTO0-DQST17

CONTAINS THE ADDRESS WHERE PROGRAM WILL

RETURN WHEN ITERATION COUNT IS REACHED
OR IF LOOP ON TEST IS ASSERTED.

CONTAINS THE ADDRESS OF
TO BE PEFORMED.

THE NEXT 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 NOW
RUNNING.

(1400)=(1476)

THESE LOCATIONS CONTAIN THE

INFORMATION

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

DGACTV (1500)

DQCSR

(1506)

e
e

s
e e

BIT

O
OO =W

DQSTAT (1510)
eofesteclvelvelve)

8.4

IN THE

OF EACH DQ11.

EACH BIT SET IN THIS LOCATION INDICATES
THAT

THE ASSOCIATED DQ11

WILL BE

TESTED

IN TURN.
:
EXAMPLE
(DQACTV) 1500/0000000000011111
MEANS THAT DQ11 NO. 00,01,02.03.C4
WILL BE TESTED.
EXAMPLE
:
(DQACTV) 1500/0000000000010001
MEANS THAT DQ11 NO. 00,04
WILL BE TESTED.
CONTAINS THE RECEIVER CSR OF THC
CURRENT DQ11 UNDER TEST.
CONTAINS THE STATUS OF THE CURRENT

DQ11 UNDER TEST.
SET:
SET:
SET:
SET:
3
SET: SET:

TWO SYNC CHARS/ONE SYNC CHAR
TEST JUMPER INSTALLED/NOT INSTALLED
BB OPTION INSTALLED/NOT INSTALLED
BA OPTION INSTALLED/NOT INSTALLED
ACTIVE ON FIRST NON-SYNC/ACTIVE AFTER NO.
AB OPTION INSTALLCDM/NOT INSTALLED
ODD VRC/EVEN VRC

SYNC

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

08:38

BIT 00-08

PAGE 10

VECTOR "A’" OF DEVICE

8.5

w*xx METHOD OF AUTO SIZING w#«

8.5.1

FINDING THE

CONTROL STATUS REGISTER.

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

IS THE METHOD OF MY MADNESS FOR THIS ROUTINE.

AN ATTEMPT TO CLEAR THE MISC. REGISTER IS TRIED
IF A TIME-OUT TRAP OCCURES POINTERS ARE UPDATED
AND ATTEMPTED AGAIN. IF NO TIME-OUT; THE RECEIVER "ACTIVE BIT"' (BIT 12)
iS SET AND A «COMPARE* FOR BOTH SYNC1 AND SYNC 2 IS DONE
AT THE MISC. REGISTER. IF THEY ARE THERE THIS IS
A DQ11. THE INFORMATION IS STORED AWAY.

8.5.2

ONE SYNC BIT OR TWO?
SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE THE

PRESENTS OF ONE SYNC OR TWO.

THE PROGRAM ASSUMES TWO SYNC

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

8.5.3

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

8.5.4

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

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

2.5

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

8.5.6

JUMPER ON END OF CABLE? **#NOTE:CZDQE ONLY***
THE PROGRAM CHECKS TO SEE

SEND

AND CARRIER ARE SET;

TEST JUMPER

8.5.7

IF EITHER OR BOTH CLEAR 70

IS ON THE END OF

SO THE PROGRAM ASSUMES THE

THE

CABLE.

ACTIVE ON FIRST NON-SYNC?

SINCE TOO MUCH HARDWARE MUST BE TURNED ON TO SENSE FOR
WHEN THE DQ11 GOES ACTIVE THE PROGRAM ASSUMES ‘‘ACTIVE

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

SEQ 0009

CZDQF

MACY11

CZDQFE.P11

8.5.8

30A(1052)

09-JUN-78

07-JuL-78

07:58

08:38

PAGE 11

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

8.5.9

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

UP AND STORED AWAY. IF NO INTERUPT OCCURES THE PROGRAM
ASSUMES VECTOR =300. THIS PROBLEM WILL BE FIXED IN ONE
OF THE DIAGNOSTICS AND +AUTO SIZING* SHOULD BE REDONE 'O
GET THE CORRECT VECTOR.

PROGRAM DESCRIPTION
CONTAINED WITHIN LISTING

10.

LISTING
FOLLOWING

SEQ 0010

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

L1
08:38 PAGE 12
INTRODUCTION TO DQ11 DIAGNOSCTIC

52
%Slé

;CZDQFEQ/<377>/SEQ REG TSTS
C(PYRIGHT 1975, DIGITAL EQUIPMENT CCORP., MAYNARD, MASS. 01754

526

REVISED 16-DEC-76 BY R. BLACK

g%g

527

;

530

) SUPPORTS SOFTHARE SWITCH REGISTER

B)SMTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER
<*

;STARTING PROCEDURE

531

;LOAD PROGRAM

533

:PRESS START

535

JPROGRAM WILL TYPE ‘R'' TO INDICATE THAT TESTING HAS STARTED

532

.LOAD ADDRESS 000200

534

;PROGRAM WILL TYPE

536

100000
040000
020000
010000
004000
002000
001000
000400
000100

000640

555

000002

556

557

;SWITCH REGISTER OPTIONS

552
553
554

'‘CZDQFE0/<377>/SEQ REG TSTS

;AND THEN RESUME TESTING

g’z?

542
543
544
545
546
547
548
549 .
550

;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE

537
538
539

SEQ 0011

SwW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000
SW10=2000
Sw09=1000
Sw08=400
SW06=100

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

SW05=40

000020
000010
000004

SW04=20
Sw03=10
SW02=4

000001

SW00=1

Sw01=2

;LOCK ON TEST SELECT

RESTART PROGRAM AT SELECTED TEST

;RESELECT DQ11 DESIRED ACTIVE

sNOTE:

THIS MUST NOT EXCEED ORIGINAL COUNT

I(ZDOF
MACY11 09=JUN=7
30A(105 )070g§JUL-78 08:38GENERAL
PAGE DEF13 INATIONS AND EQUIVALENCIES
CZDQFE.P1
m1

558
553

:REGISTER DEF INITIONS

562
563

000000
000001

RO=%0
R1=%1

;GENERAL REGISTER
;GENERAL REGISTER

566
567
568
ggg

000004
000005
000006
000007

R4=%4
R5=%5
SP=%6
PC=%7

:GENERAL REGISTER
;GENERAL REGISTER
:PROCESSOR STACK POINTER
;PROGRAM COUNTER

564
565

000002
000003

g;}
573
574
575

g;g

585

ggg

588

589

590
591

592
593

594

177570
177570
177776

001200

005746
005726
010046
012600
024646

611

612

613

PUSH1SP=5746
POP1SP=5726
PUSHR0=10046
POPR0=12600
PUSH2SP=24646

100000

B81T15=100000

040000
020000

010000
000

002000

000001

609
610

STACK=1200

POP2SP=22626

604
28;7;

DSWR=
177570
DLIGHTS=177570
PS=177776

022626

001000
000400

605
606

;GENERAL REGISTER
;GENERAL REGISTER

;HARDWARE SWITCH REGISTER LOC.
;HARDWARE DISPLAY REGISTER LOC.
;PROCESSOR STATUS WORD

;START OF PROCESSOR STACK

;INSTRUCTION DEF INITIONS

595
596

597
598
596
600
601
602
603

R2=%2
R3=%3

;LOCATION EQUIVALENCIES

580
581
582
583
584

SEQ 0012

000200
000100
000040
000020
000010
000004
000002

:
002000
004000

010000

020000

040000

.EQUIYV

;DECREMENT PROCESSOR STACK 1 WORD
s INCREMENT PROCESSOR STACK 1 WORD
;SAVE RO ON STACK
;RESTORE RO FROM STACK
;DECREMENT STACK TWICE
: INCREMENT STACK TWICE

EMT,_HLT ;BASIC DEFINITICN OF ERROR CALL

BIT14=40000
BI1T13=20000

B81712=10000
BIT11=4000

BIT10=2000

BIT9=1000
BIT18=400

BIT7=200
BIT6=100
BITS5=40
BIT4=20
BIT3=10
BIT2=4
BIT1=2

BITO=1

;DQ1? GPTIONAL DEF INITIONS
ABB]T=2000
ACTBIT=4000

BABIT=10000

BBRIT=20000

JUMB] T=40000

——

CZDQF

MACY11 30A(1052)

CZDQFE.P11
614
g]l)

09-JUN-78

001000
100000

211%

07-Ju.-78

07:58

08:38

PAGE 14

GENERAL DEF INATIONS AND EQUIVALENCIES

0oDDBIT=1000
SYNBIT=100000
;DQ11 SECONDARY REGISTER DEF INATIONS

€20
621
622
623
624
625
626

000000
000001
000002
000003
000004
000005
000006

RXBA.P=0
RXWC.P=1
TXBA.P=§
TXW(.P=
RXBA, S=
RXWC . S=5
TXBA, S=

TXWC.S=7

s TRANSMITTER WORD COUNT SECONDARY.

629
630
631
632
633
634

000010
000011
000012
000013
000014
000015

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

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

636

000017

gzzg

635

000007

000016

SEQ.=14
RX.BCC=15
TX.BCC=16
POLY.=17

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

s TRANSMITTER BCC REGISTER.

;POLYNOMIAL REGISTER.

‘

SEQ@ 0013

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

08:38

PAGE 15

SEQ 0014

TRAPCATCHER FOR UNEXPECTED INTERUPTS

s TRAPCATLAER FOR ILLEGAL INTERRUPTS
:STANDARD INTERRUPT VECTORS

=24

PFAIL

:POWER FAIL HANDLER

HLT

*ERROR HANDLER

340

*SERVICE AT LEVEL 7

340
A

'_52
.

*SERVICE AT LEVEL 7

~TRPSRV
340

:GENERAL HANDLER DISPATCH SERVICE
*SERVICE AT LEVEL 7 ’

LOGI CAL

:ACT HOOKS

.WORD 0

:THIS ROUTINE TRIES TO FORCE THE RECEIVER TGO INTERUPT
.TO ITS VECTOR WHERE IT WILL PICK UP THE STATUS LOCATION
;FOR ITS NEW PC;

AND PICK UP AN IOT INSTRUCTION FOR ITS

sNEW PS. WHEN THE NEW PC IS FETCHED AN 10T INSTRUCTION IS
;EXECUTED,

000056

010120
012721
022021
020127
101771

TRAPPING TO LOCATION 20 WHERE A ROUTINE IS EXECUTED

:T26TAKE THE PC FROM THE STACK AND US IT AS THE VECTOR ADDRESS
VECMAP:
1$:
MOV
MOV

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

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

BLOS
MOV
MOV
ROR
BCC

1%
#4S, a#20
DQACTV, TEMP1
TEMP1
13

“BR IF NOT ALL DONE
*SET FOR IOT TRAP BY DQ11
*GET THE ACTIVE D@11 §
*ARE YOU ACTIVE.. D@11
:IF CARRY CLEAR.. NO MORE DQ11S

MOV
IN(B
BNE
MOVB
ST
BR

#340,3-2(R2)
RO
s ML
T
#300, (R2)
(R2) +
2$

CMP
cMP

2%:

CLR
ST

3%
4%:

BIS

*POP ]OT JUNK OFF

RTS

SWREG:

;PROGRAM START

“TRY AND SET PRI/SEC DONE AND IE
DELAV ........
et DELAY
‘N0 INTERUPT ASSUME 300 FIX IN TEST C
*UPDATE POINTERS
*GO DO IT AGAIN

(SP)+,(SP)+

#3$, (5P)

DISPREG:

*CLEAR PS
*PUT POINTER TO STATUS TABLE

*ENTERD

MOV
RT]

:UPDATE THE POINTERS
:IS ALL FLOATING VECTOR AREA DONE

(SP), (R2)

#7.(R2)

';;'SOFTUARE

.=200

PS
(R2) +

BIC

CMP

5% :

(RO)+, (R1)+
R1,#1000

BY I0OT TRAP BY DQ11

*CLEAR UNWANTED BITS

STACK

*SET RETURN PC ON STACK

*GG HOME
.

“ALL SIZING IS DONE

SWITCH REGISTER*wws

:SOF TWARE DISPLAY REGISTER
*SOF TWARE SWITCH REGISTER

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

695
696
697
698

000137

001512

SEQ 0015

.START

;GO TO START OF PROGRAM

001512

#1400,R2
(R2)+
#1212.R2

001504
001400

DANUM
#1400 ,R2

sCLEAR ALL STATUS TABLE
DO CLEAR
sALL TABLE DONE
;BR IF MORE TO GO
;SET NUMBER OF DQ11S TO O
;SET TABLE POINTER
sGET FIRST FLOATING ADDRESS
;SET FOR TIME OUT TRAP--NO DEVICE=--

JMP

.=220

001400

160000

000614
000012
000006
010000
030000

CSRMAP:

000004
000005

#160000,R1

458, s
#12.5(R1)

1%:

6(R1)

#10000, (R1)

ggoooo,6<n1>

000006

R1,(R2)+

#SYNBIT, (R2)

(R1)
#10,5(R1)

000005
000006

—_—

SRR B NR AN AN SO BRIT IR

701
702
703

000200

c 2
08:38 PAGE 16
ROUTINES USED FOR AUTO SIZING.

#-1,6(R1)

6(R1)

000002
000002
#BABI
T

0320002 ( R1)

;SEL CHAR DET REGISTER

JWRITE INTO CHAR DET REG
JWAS THE REGISTER WRITTEN?

;APPERENTLY NO BB OPTION.

DaALTY
DQACTV

"ET°B

4(R1)

6(R1)

DQNUM
#10,R1
7164000.R1

~
3%

.RS.

R1,SAVNUM

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

2%:

.DTR.

;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
sSET FOR ACTIVE ON FIRST NON-SYNC
sSET FOR ODD VRC.......
;POP POINTER
;CLEAR RCSR
;CLEAR TCSR
;CLEAR AGAIN
;CLEAR ERROR REG
;CLEAR SEC REG
sUPDATE NUMBER OF DQ11S
sUFDATE CSR POINTER BY 10 (8)
JHAVE ALL FLOATING ADDRESSES BEEN CHECKED??
;BR IF NOT ALL DONE
:ZERO ACTIVE DQ11S
;WERE ANY DQ11S FOUND
JHEY BUDDY. NO DQ11S FOUND IN SYSTEM
:SAVE NUMBER OF DQ11S
:SAVE NUMBER FOR ACTN

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

;LOOK FOR SYNC 1 AND SYNC 2
;THIS IS NOT A DQ11 IF I BRANCH
JNOW THIS IS A DQ11 -=STORE CSR
;SET FOR TWO SYNC CHARS
JCLEAR DQ ACTIVE BIT

;TRY TO SET

000002

;sTRY AND CLEAR MISC REG

;TRY AND SET RX ACTIVE

;SET FOR BB OPTION
;SEL POLYNO. REGISTER
JWRITE POLYNO.REGISTER
;WAS REG WRITTEN??
;BR IF NO AB OPTION
;SET FOR AB OPTION

000005
00000¢

729

sTRY AND SEL MISC REGISTER

DONUM,R1

CLEAR gfi?\vlf ADDRESS

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

08:38

PAGE 17

000536

000004
001502
000022

w6, aké

DQACTV, SAVACT

4%:

000466

001000

005377
042506
020121
051524

055103

177460

042522
051524

.=1000

MTITLE:

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

#2%,(SP)

LASCIZ

sHOW CAN I TEST NO DQ11S
sDON'T LET OPR. HIT CONT. SW
sENTERED BY TIME OUT TRAP
;GO HOME.

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

000377

001200

.=1200

177570
177570
177560
177562

SWR:

177564
177566

;DEC NUMBER OF DQ11S
;BR IF MORE T0_GO
JRESET TIME OUT VECTOR
;SAVE ACTIVE
;SET IOT TRAP PRIO: TO 7
;SET TABLE POINTER
sSET VECTOR START
JSET VECTOR+2 START
;GO FIND THE VECTORS

;s TYPE MESSAGE

5%:

050504
042523
020107

SEQ 0016

ROUTINES USED FOR AUTO SIZING.

LIGHTS:
TKCSR:
TKDBR:
TPCSR:
TPDBR:

JINDIRECT POINTERS
177570
177570
177560
177562
177564
177566

;SWITCH REGISTER POINTER

;DISPLAY REGISTER POINTER
;TELETYPE KEYBOARD CONTROL REGISTER

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

RETURN:

:
NEXT
K:
LOC
ICOUNT:
LPCNT:

TSTNO:
PASCNT
:

ERRCNT:
LSTERR:

:SCOPE ADDRESS FOR LOOP ON TEST
sADDRESS OF NEXT TEST TO BE EXECUTED

sADDRESS FOR LOCK ON CURRENT DATA
sNUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED
sNUMBER OF ITEREATIONS COMPLETED
sNUMBER OF TEST IN PROGRESS
;NUMBER OF PASSES COMPLETED
:TOTAL NUMBER OF ERRORS

;PC OF LAST ERROR CALL

:PROGRAM VARIABLES

CHAR1:

CHAR?:
(HAR3:

TEMP1
:

TEMP?:
TEMP3:

TEMPS:
TEMPS:

jalelelelelelele)

000000
000000

OOOOOWOOO

;PROGRAM CONTROL PARAMETERS

; TEMPORARY STORAGE

: TEMPORARY STORAGE

; TEMPORARY STORAGE
; TEMPORARY STORAGE

SAVRO:
SAVR1:
SAVR?:
SAVR3:

SAVRS:
SAVRS:
SAVSP:

SAVP(:
SAVNUM:
CREAM:

RUNFLG:
RUN:
RUNCNT:

elelelelololelsls)

08: 38 PAGE 18
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

BLKW

CZDQF
MACY11 30A(1OS2) 0?’)UL -78
CZDQFE.PI
09-JUN-78

;RO STORAGE

;R1 STORAGE
;R2 STORAGE

;R3 STORAGE
;R4 STORAGE

;RS STORAGE

;STACK POINTER STORAGE

;PROGRAM COUNTER STORAGE

SEQ 0017

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

08:38

PAGE 19

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

WN) =O

—

) cd

8888

sPROGRAM CONTROL FLAGS

000
000
000
000000

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

.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
0

;PROGRAM INITIALIZATION FLAG
sTEST START FLAG

;ERROR OCCURED FLAG
;LOCK ON CURRENT TEST FLAG

;DEFINITIONS FOR TRAP SUBROUTINE CALLS
sPOINTERS TO SUBROUTINES CAN BE FOUND

;IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS
:Qt'ttt'.t"ttt.'t.ttttt't'tttitt.tQt.i'titfi'*ttfittfii'fi.t'tttttt'tQQQ
;Qfitltt'Qtlt.'tittttttttttitttfitttfi.Q'fitfifi.fi'fifitfi.tt'tt..tt'itt'ttfitt

001314

.TRPTAB:
SCOPE=TRAP+0

001314

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

001316

TYPE=TRAP+2
.TYPE

001320
001322

001324

INSTR=TRAP+3
. INSTR
INSTER=TRAP+4
. INSTER

;CALL

TO ASCII

;CALL

TO INPUT ERROR HANDLER

;CALL

TO NUMERICAL DATA INPUT ROUTINE

SAV0OS5=TRAP+6

;CALL TC REGISTER SAVE ROUTINE

RESO5= TRAP*?
.RESOS
CONVRT=IRAP01O
.CONVRT
CNVRT=TRAP+11
.CNVRT

;CALL

001326

PARAM=TRAP
+5
.PARAM

001330

SAV0S

001332

001334
001336
01340

010766

001342

010652

001344

015062

001346

015136

106413

104414

104415

sCALL TO TELETYPE OUTPUT ROUTINE

MSTCLR=TRAP+12

MSTCLR
MEMCLR= TRAP*13
.MEMCLR

CKSUR:TRAP+14
.CKSWR
CNTLU=TRAP+15
.CNTLU

STRING INPUT ROUTINE

TO REGISTER RESTORE ROUTINE

;CALL TO DATA OUTPUT ROUTINE
;CALL

TO DATA OUTPUT ROUNTINE WITHOUT CR/LF.

;CALL

TO ISSUE MASTER CLEAR

;CALL

TO CLEAR ALL SCRATCH PAD MEMORIES

;CALL

70 ALLOW SWREG TO BE LOADED FROM TTY

;CALL TO ALLOW LOADING OF SWREG FROM TTY

:fittfi'ttttttt'ttt.ttttti'tt"'.tit.ti"tt'ttti.i't.tt.t'fiti'fitttti't.
;tt.ttttltfitt‘i'fitl'tt't"tiittt.tlfittt'.fi‘it!t'itti'tittttt"ttt't'.

000000

DQRVEC:
:
DQRLVL
DQTVEC:
DQTLVL:
DCGRCSR:
DQR(CSH:

elelelels
la]

;D@11 VECTOR AND REGISTER INDIRECT POINTERS
;POINTER TO DQ11
;POINTER TO DQ11
;POINTER TO DC1?

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

SEQ 0018

CZDQF

~ MACY11 30A(1052)

CZDQFE.P11

876
877
878
879
gg?

001364
001366
001370
001372
001374

07-JUL-78

09-JUN-78 07:58

000000
000000
000000
000000
000000

08: 38

DQTCSR:
DQERR:
DQREG:
DQSEC:
DQSECH:

ggé

001400
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001
000001

907
908
909

001450
001452
001454

000001
000001
000001

906

910
911

912
913
914
915

916

917
918
919
920
921
922
352
925
926
927
928
929

930

0
0
0
O
0

:DQ11

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

001456
001460

001462
001464
001466
001470

001472

001474
001476
001500
001502
001504
001506
001510

000001

000001
000001

000001
000001
000001
000001

000001

000001
000001
000001
000001
000001
000001
000001

SEQ 0019

PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS.

885
886
887
888
889
890
891
892
893
8%
895
89
897
898
899
900
901
902
903
904
905

PAGE 20

;POINTER
;POINTER
;POINTER
;POINTER
:POINTER

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

STATUS TABLE AND ADDRESS ASSIGNMENTS

.=1400
DQCROO:
DQSTO0:
DQCRO1:
DQSTO1:
DQCRO2:
DQST02:
DQCRO3:
DQST03:
DQCRO4:
DUSTO4:
DQCROS:
DQST0S:
DQCRO6:
DQST06:
DQCRO7:
DQSTO7:
DOQCR10:
DQST10:
DOCR11:

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKw
.BLKW
.BLKW
.BLKW

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

;CONTROL STATUS REGISTER FOR DEVICE NO: 00
;JVECTOR 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
sVECTOR 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

DQCR12:
DQST12:
DQCR13:

.BLKW
.BLKW
.BLKW

1
1
1

;CONTROL STATUS REGISTER FOR DEVICE NO: 12
;JVECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 12
;CONTROL STATUS REGISTER FOR DEVICE NO: 13

DQST11:

DQST13:
DQCR14:

LQST14:
DQCR1S:
DQST15:
DQCR16:

DQST16:

DQCR17:
DQST17:
DCACTV:
SAVACT:
DONUM:
DQCSR:
DQSTAT:

.BLKW

.BLKW
.BLKW

.BLKW
.BLKW
.BLKW
.BLKW

.BLKW

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

1
1

1
1
1
1

1
1
1
1
1
1
1

NO: 00
NO: 01
NO: 02
NO: 03

NO: 04
NO: 05
NO: 06
NO: 07
NO:

;VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:

:VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
;CONTROL STATUS REGISTER FOR DEVICE NO: 14

;VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
;CONTROL STATUS REGISTER FOR DEVICE NO: 15
;VECTOR AND CONFIGURATION STATUS FOR DEVICE NO:
;CONTROL STATUS REGISTER FOR DEVICE NO: 16

sVECTOR AND CONF]GURATION STATUS FOR DEVICE NO:

;CONTROL STATUS REGISTER FOR DEVICE NO: 17
;VECTOR AND CONFIGURATION STATUS FOR DEVICE NO: 17
;HOLD ACTIVE BITS FOR TESTING
;SAVE NUMBER OF ACTIVE DQ11S
:OCTAL NUMSER OF TOTAL NUMBER OD DQi‘lS
:CSR OF D@11 UNDER TEST
;VECTOR AND CONF IGURATION STATUS OF DQ11 UNDER TEST.

:PROGRAM INITIALIZATION
;LOCK OUT INTERRUPTS
;SET UP PROCESSOR STACK
:SET UP POWER FAIL VECTOR
;CLEAR PROGRAM CONTROL FLAGS AND COUNTS

TYPE TITLE MESSAGE

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

000340
001200
014764
001504
001311
1230
1312
001302
001400
001232
001234
000001
001512

177776

.START: MOV

000024
001276

MOV

MOV
CLRB
CLR
CLRB
CLR

012737

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

012737
012737

012737
000004
001656

177777

000176
000174
000004
000006
000042

DQNUM, SAVNUM
STFLG
PASCNT
ERRFLG
RUNF LG

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

001200
001202

MOV

#DSWR
, SWR

000004
177326

MOV

#64$., a4

64$:
658:

BEQ
BR
CMP
MOV

658"
66$
(SP)+,(SP)+
#SWREG, SWR

66$:

MOV

(SP)+, ok

sRESTORE VECTORS

ST
BNE

;UNDER MONITOR

ISTB

INIFLG

CLR
(LR
MOV
MOV

001226
001214

001200
001202

MOV
MOV
MOV

cTMP

MOV

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

:REFERENCE HARDWARE SWITCH REGISTER

#DISPREG,LIGHTS

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

(SP)+.a#6

67%

128

coMB

INIFLG

cMP

001200
67%:

177252

000002

001244

- 000001

177160

BNE
CNTLU
TSTB

12$:

#SWREG, SWR
67%

asSwR

+6
PC, CSRMAP

MOV
MOV
BEQ
CONVRT
XSTATQ

#1400, TEMP1
ATEMPT, TEMP?
+16

XHEAD

ADD

#2,TEMP

BIT

#5400, aSWR

B8R

BEQ

TYPE

W
MNE
CLR
HALT

001502

JMTITLE

BM]
JSR

TYPE

CKSWR
CMP

:SET UP FOR TIMEOUT

#-1,3SWR

BNE

TYPE

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

#DLIGHTS,L IGHTS
aw6,-(SP)
. -(SP)

sonwwwaxTHE NEXT & LINES OF

001244
001246

177140

#.PFAIL ,an24

#1400, CREAM

177232

000220
015612
001400

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

SP
#STACK,

MOV

061300

001310
001000
001310
000176

#340,PS

SEQ 0020

=22

RO
@SWR, SAVACT

CODE MOVED

TO SOLVE PRA2757 (JUNE

78)amsanx

JHAS INITIALIZATION BEEN PERFORMED?
:IF _YES, BR

;TYPE

TITLE MESSAGE

sIF NOT SET FLAG AND INIT

;1S SWREG USED

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

988
989

990
991
992

282 $

993
995

997

015374

MERR3

000776
017737
013700
000000

000000

104414

012700
012701

HALT

001500
000300
000302

11%:

2%:

001000

\Y]
Ni

@SWR, DQACTV
DQACTV,RO

CLR
CMP

(R1)+
(RO)+, (R1)+

#302.R1
R1,(RO)+

#1000,R0
2%

;TEST START AND RESTART

D
D e
e

D e

D
d

e o P
P

D e e

P
o

D e

d
d
D

#300,R0

CMP
BNE

012737
012706
005737
001040

000340
001200
000042

032777

000004

104414

001411
104402
012737
012737
000406
013737
013737
032777

015432

177776

.BEGIN: MOV

MOV
TST

BNE

CKSWR

177032

BIT
BEQ

TYPE
MOV

013246
013250

013246
013250
176764

MOV
BR

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

;CHECK FOR <*G>

#BIT2,aSWR
1%

sCHECK FOR LOCK ON TEST

,MLOCK
ANOP, TTST

sSET UP TO LOCK

MOV

BRX.TTST+2

;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP

BEQ
INSTR

MOV

2%:

BIT

#340,PS

SP
#STACK,
w62

#NOP
. TTST+2
2%

1$:

BRW,TTST

#Sw01,aSWR

;IF SWO0T=1, GET STARTING PC

MTSTPC
PARAM

TST1

BYTE
BYTE

002254
015322

176740

001214

3g:

4$:
:

TLAST
#RE TURN

1
1
BR
MOV

TYPE

TEST

JMP
1V

#TST1,RETURN

;START AT

;TYPE

aRE TURN

;START

TEST 1

TESTING

"t.tttt'tt.""..Q'ttit.'t.tt'fit'ttttflttttt!‘.ttt"i't"t"t.tt'..t".

—‘008—0000

O==u0 OO —=—NROND
= AN

—

SEQ 0021

11%

MOV
MOV
HALT
CKSWR
MOV

MOV
MOV

O%OOOOOOOO
BOQNOWJ\WN—'O
SEECESE

TYPE

001500

PROGRAM INITIALIZATION AND START UP.

BLOS

177120

PAGE 22

101404
104402

999
1000
1001

08: 38

TsT1:

mMov

#1,TSTNO

TSTB

RUNFLG

MOV
MOV
BNE

MOV

MOV
(OMB

#TST2,RE TURN
#TST2.NEXT
1%

#8170, ,RUN

#7%. RUNCNT
RUNFLG

;1S

THIS

;BR |

:SE

:SE
:SE

RST

SET

TIME HERE?

16 DQ11'S PER SYSTEM

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

1044 002324
1045 002332
1046 00233&

033737
001032
005737

1048

000257

1047

002340

1049

002344

1050
1051
1052
1053
1054
1055
1056

002342

002350
002356
002362
002364
002372
002400
002406

1057

002410

1061

002420

001423

006137

001304

001304
176646
176632

042737

1072

002514

013737

001352

002530

013737

001354

1076 002544
1077 002552
1078 002556
1079 002564
1080 002572
1081
002600

013737
005237
013737
062737
013737
062737

001360
001362
001360
000002
001364
000002

1083

005237

001370

005237
013737
005237

001372
001372
001374

013737
062737

062737

002536 062737

1082 002606 013737
108¢

1085
1086
;835

002614

002620

002626
002632
002640

001306
001300
001304

013737

001506
001300

001510
001300
001506 001360
001510 001350

002472

1075

177007

001350

1096
1097

1098

TYPE

RUN

#4, CREAM
RUNCNT
18
#16. ,RUNCNT
#1400, CREAM
#1,RUN
1$

MERR2
HAL T
BR

ROL
MOV
ADD
MOV
ADD
MOV
MOV

RUN
aCREAM,DQCSR
#2,CREAM
aCREAM,DQSTAT
#2, CREAM
DAQCSR,DORCSR
DQSTAT ,DQRVEC

cce

BIC

#177007 ,DQRVE C

001354

ADD

#2 ,DQTVEC

ADD

#2.DQTLVL

001354

MOV

001356

MOV

001356
001362

001364
001364
001366
001366

001370

MOV
INC
MOV
ADD
MOV
'ADD

001370

001372

MOV

MOV
INC

INC
MOV
INC

001374

z " TEST 2

1m1

1094
1095

ADD
DEC
BNE
MOV
MOV
MOV
B8R

MOV
ADD

1090

1093

RUN, DQACTV
3
DOACTV

001352
001352

1089

1092

ROL

001300

3$:

1069

1074

ccc

000257

006137
017737
062737
017737
062737
013737
013737

BIT
BNE
ST

BEQ

28:

1062 002422
1063 002426
1064 002434
1065 002442
1066 002450
1067 002456
1068 002464

1073 002522

18%:

104402

015325
000000
000776

002500
002506

001500

062737 000004
005337 001306
001360
012737 000020
012737 001400
012737 000001
000746

1058 002412
1059 002414
1060 002416

1070
1071

08:38 PAGE 23
PROGRAM INITIALIZATION AND START UP.

DORVEC,DQRLVL
#2 ,DARL
VL

SEQ 0022

;FIND AN ACTIVE DQ11 TO TEST.
“BR IF I FOUND ONE TO TEST.
*FIND OUT IF THERE ARE NO D@11 ACTIVE.

sBR 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.
*RESTORE ADDRESS POINTER
*RESTORE RUN POINTER.
*KEEP ON TESTING.

*ALLERT OPERATOR OF FATAL ERROR

*NO DQ11 ACTIVE. WHY AM | HERE???
“YOU MUST RELOAD DQ11 DIAGNOSTIC!!
*STICK HERE ON CONT.
*CLEAR CPU COND.

CODES

*UPDATE RUN. ACTIVE DQ11 FOUND.
-PLACE ADDRESSS OF D@11 AT DQCSR
*UPDATE ADDRESS POINTER
:PLACE STATUS OF DQ11 AT DQSTAT
*UPDATE ADDRESS POINTER
;GENERATE ADDRESS OF RECEIVER INTERRUPT SERVICE PS

DQRLVL ,DQTVEC

;GENERATE ADDRESS OF

DQTVEC,DQTLVL

;GENERATE ADDRESS

DORCSR, DQRC SH
DORCSH

;GENERATE ADDRESS OF HIGH BYTE

DQRCSR,DQTCSR
#2.,DQTCSR
DQTCSR,DQERR
#2 ,DOERR

TRANSMITTER INTERRUPT VECTOR

OF TRANSMITTER INTERRUPT SERVICE PS

-GENERATE ADDRESS OF TRANSMITTER CONTROL REGISTER

;GENERATE ADDRESS OF ERROR REGISTER

DQERR, DQREG

;GENERATE ADDRESS OF HIGH BYTE OF ERROR REGISTER

DQREG, DQSEC

;GENERATE ADDRESS OF SECONDARY REGISTER

DOREG

DQSEC
DQSEC,DQSECH
DOSE CH

sGENERATE ADDRESS OF HIGH BYTE

;THIS IS NOT A TEST!!!

"ttttt!tt'ttt.tttttit'ttt't*ttt!ttt.tt'Qtttt..'.ttttfit.ttttt'ttttttt.

002644

002652
002660

012737

012737
104400

000002

001226

002662- 001216

7ST2:

MOV

SCOPE

#2,TSTNO

#TST3 NEXT

:THE ORIGINAL TEST 2 IS
*NOW TEST 2 OF TAPE DZDQH

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

K 2
08:38 PAGE 24
PROGRAM INITIALIZATION AND START UP.

SEQ 0023

1100

;TEST TO SEE IF EVERY CHARACTER FROM

1102

:DETECT ADDRESS ZERO.

1101

20 TO 377 CAN BE DETECTED IN CHARACTER

}}82

.NOTE:

1105

11%

1107

1108
1109
1110
1111
1112
1113
1114
1115
1116
1117

:
002662

002670
002676
002704
002712
002714
002722
002726
002730
002734
002740

012737

012737
012737
032737
001005
012737
000177
104413
105037
005037
005037

000003

001216
001220
001510

013050
176266

001214

1118

002744

012737

013047
013044
013042
000010

1120
1121
1122
1123
1124
1125

002756
002762
002766
002774
003000
003006

105077
105077
012777
105277
012777
105077

176400
176402
012216
176370
000200
176350

1127
1128
1129

003020
003026
003034

112777
013777
112777

000010
013046
000014

1131

003050

112777

000012

1119

1126

1130

1132
1133

002752

003012

003042

003056
003064

1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148

003072
003100
003104
003112
003116
003122
003126
003132
003136
003142
003144
003146
003152
003154
003156

1150
1151
1;25

}}gg

1149

013702

113737

012777

012777
052777

013040

013047

120000

004012
010001

013737
105137
042777
37
013703
042703
050377
005277
005377
005302
001357
005777
100401
104002
017737

013046
015715
000200
015714
015714
177577
176240
176234
176230

003172
003176
003200

005737
001401
104002

015714

003202

104401

003164

042737

001226

003214
002744
020000

TEST 5

!ltttttttttttt.tttt.tttt'ttttt.ttttQt..ttttt't.t.ttttt'ttt'tt'..t.t't

TST3:

13%:
6$:
013040

1%:

2%:

176376

176364

013044

3$:

176342
176336
176326

176322

176306
176266

015714

4$:

176176&

015714

#TST4 NEXT
#18,L0CK
#8BB1T,DQSTAT
138
# .EOP ,RETURN
@RETURN

:DOES THIS DQ11 HAVE THE
“BR IF YES
:GOTO END PASS

o
‘BB'' OPTION INSTALLED?

MOV

.CLEAR ALL THE DA
;CLEAR THE CHARACTER STORAGE AREA
:SET FOR ERROR PRINTOUT
s SAME.
JEIGHT BITS FOR EIGHT SHIFTS.

CLRB
CLRB
MOV
INCB
MOV
CLRB

aDQRCSH
aDQREG
#RXBUFF ,aDQSEC
aDOREG
#200,aDQSEC
aDQRCSH

;GET CHAR ADDR. ZERO
:GET RX BA PRI.
;LOAD IT
:GET RX WC PRI.
;LOAD IT
*SELECT CHARACTER DET REG 0

MOVB
MOV
MOVB

#10,3DQREG
DETCAR,@DQSEC
#14. aDAREG

“SELECT THE CHARACTER DET REGISTER.
:LOAD THE CHARACTER TO BE DETECTED
;SELECT THE SEQUENCE REGISTER

MOVB

#12,aDOREG

;COMM

DETCAR, TEMP
TEMP+1
#8177 ,3DQSEC
TEMP
TEMP,R3
#°C<BIT7>,R3
R3,aDQSEC
aDQSEC
aDQSEC
R2
43
aDQRCSR
. +4
2
aDGRCSR, TEMP

:MOV CHARACTER TO WORKING AREA
*COMPLIMENT DATA FOR USE ON THE BIT WINDOW
;IF PREVIOUSLY SET; CLEAR THE BIT
WINDOW.

:PLACE DATA ON THE BIT WINDOW
:CLOCK UP
:CLOCK DOWN
;1S CHARACTER DONE YET
“BR IF NOT DONE
:WAS THE CHARACTER REALLY DETECTED?
*BR IF GOOD
;ERROR CHARACTER NOT DETECTED.
“GET THE RECEIVER CSR.

TEMP
YA
2

:WAS THE CHAR DET. IN ADDR ZERQ?
:
;CHAR NOT DETECTED IN ADDR. ZERO..

MOV

MOVB

;GET NUMBER OF SHIFTS PER CHAR.

DETCAR+1,GDCHAR
;

;SET SINGLE CHARACTER REC AND SET FLAG.

#4012, aDASEC
:SELECT EIGHT BITS TEST LOOP AND AUTO STEP
#B1T12+B170,aDORCSR
:SET RX ACTIVE AND RX GO

MOV
coms
BIC
ROR
MOV
BIC
BIS
INC
DEC
DEC
BNE
TST
BMI
HLT
MOV

TST
BEQ
HBEK

COUNT ,R2

#81715+81T13,aDQSEC

BIC

m——

#3,TSTNO

DETCAR+1
GDCHAR
ADDR
#8. ,COUNT

MOV
BIS

176206

170377

MOV

MOV
MOV
BIT
BNE
MOV
JMP
MEMCLR
CLRB
CLR
CLR

MOV

176312

176260

SW09=1 WILL FREEZE ON CURRENT DATA.

#~(<7400>,TEFMP

SCOP1

————

;SHIFT OUT THE BIT OF DATA.

:STORE CHAR

;CLEAR ALL UNWANTED BITS

:CLEAR ALL BUT THE CHARACTER DET. ADDR.

;IF SW09=1;

THEN GOTO ADDRESS IN '10CK'‘.

105237

001260

013047

INCB
BNE
SCOPE

104400

.WTE:

012737

001226

001216

TST4:

01220

012702
105077
012777
105277

012777
105077

TEST &
AR A

MOV

—Ao

A AR AR AR AR AR AR AR

R AR

AR AR AR ARk

#TSTS5 NEXT

#1%,L0CK
DETCAR
GDCHAR
ADDR

;SET CHAR TO ZERO
;SET FOR ERROR
; SAME

2%:
38:

MOV
CLRB

#16. ,R2
aDQREG

sSET COUNT FOR 16 BIT CHARS
;SEL THE RX BA PRI.

176070

MOV

#200,aDQSEC

176054
176050

MOVB
MOV

#10,aDQREG
DETCAR,@DQSEC

176034
176024
176020

MOV
MOVB
MOV

#B1T12+81T14,aDQSEC
.LOAD DBL CHAR AND SET FLAG
#12,aDQREG
;SEL MISC REG.
#B81T1+B1T3 ADOSEC
sSET TEST LOOP AND AUTO/STEP

015714

MOV

DETCAR, TEMP

176102

MOVB

176000

BIS

013044

175764

175740

MoV
INCB

CLRB

176040

AR R

#4,TSTNO

MOV
CLR
CLR
CLR

—_—

SW09=1 WILL FREEZE ON CURRENT DATA.

AR AR A AR AR

MOV

4%:

#RXBUFF ,aDQSEC
aDQREG

aDAR( SH

#14 ,aDAREG

DETCAR.GDCHAR

BIC
CLC

#3177 ,aDQSEC

BIS
INC
PEC
DEC

TEMP1,aDQSEC
aDQSE(
aDQSEC
R2

COM

CLR
ROR
RORB

TEMP

TEMP1
TEMP
TEMP1

TST

aDCGRCSR

HLT
MOV

2
aDQRCSR, TEMP

BIC

gég

;LOAD IT
:SEL THE RX WC PRI.

:LOAD IT

:GET CHAR ADD ZERO

:GET CHAR ADDRESS
:LOAD THE CHARACTER TO BE DETCETED

:GET THE SEQ REG.

#B81712+8170,aDORCSR

MOV

8M]

JHAVE I HIT MY LIMIT YET?
sNO RETURN WITH UPDATED CHAR.
;SCOPE TEST

;400 TO 177400 CAN BE DETECTED.
s IN CHACTER DETECT ADDRESS ZERO.

BNE

DETCAR+1
2%

SEQ 0024

sTEST THAT CHARACTERS FROM

e e

003204
003210
003212

L 2
08:38 PAGE 25
PROGRAM INITIALIZATION AND START UP,

e e e

) e e

e e e

) e

D e

e o

d e o

D d e

e e e

—l—l—l—‘—l—l—l—l—.-l—l—l-‘—l—l—‘—l—l—l—i—l-—'—.—.-‘—l—‘—.—l—l—.—.d—‘—.—‘;—l—.—‘_‘_‘_‘
Vi

BRLRBREC 28 BB IR RRAB 2B IFINANANIITEIFERARZE Voo~ 3

CZDQF
MACYN 30A('|()Sg)007-JuL-78
CZDQFE.P11
09=JUN=7.
7:58

#2C<7400>,TEMP
TEVP

:SET RX ACTIVE AND GO

;GET DATA CHAR.

:FOR ERROR

;PREPARE FOR BIT WINDOW

;ZERO BIT WINDOW
;CLEAR CARRY

3
:
:

;PLACE DATA ON BIT WINDOW
'CLOCK THE
pQ1
1S ALL THE CHAR DONE?

:BR IF

;DID THE FLAG SE7?

:BR IF YES

sCHARACTER DET. FLAG NOT SET FOR DBL
;GET THE RECEIVER CSR.

(HAR.

:CLEAR ALL BUT THE CHARACTER DET. ADDR.

;WAS THE CHAR DET.

IN ADDR ZERO?

*CHAR NOT DETECTED IN ADDR. ZERO..

e G
S
Y

A IASIASIASIASIASTASTAS [ \S [\ S TS S TNT N LN ST NT,N TN ) g

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

12
}2

003502

003504

003512

003510

M2
08:38 PAGE 26
PROGRAM INITIALIZATION AND START UP.
je==== % OCK*

104401

105237

001260

SCOP1

013047

INCB

BNE

104400

SCOPE

SEQ 0025

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

DETCAR+1

:UPDATE THE DATA

*ALL DONE?

;SCOPE WHEN ALL DATA DONE.

20
21
22
23
24

sTEST THAT A CHARACTER CAN
;BE DETECTED IN ALL 16 CHARACTER
sDETECT ADDRESSES

27
28
29

sTEST THAT THE CHARACTER 255
‘sCAN BE DETECTED IN CHARACTER
;DETECT ADDRESS 00

1231

;

1232

1233
1234
1235
1236
}S;g

003514
003522
003530
003536
003542

012737
012737
012737
004737
104400

000005
003544
000000
004314

001226
001216
013042

TSTS:

1239
1240
1241
1242

1243

1244

1245

1246
1247
1248
1249
}gg?

TEST 5

AR AR AR AR AR

003544
003552
003560
003566
003572

012737
012737
012737
004737
104400

No.oo3

000006
003574
000001
004314

001226
001216
013042

MOV
MOV
MOV
JSR
SCOPE

AR AR AN AR AR AN RN R AR

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

TSTé6:

AR AR

MOV
MOV
MOV
JSR
SCOPE

AR R AR

R RN AR R AR

#6,TSTNO
#TST7 NEXT
#01 ,ADDR
PC,CHK.ADD

AR R AR RRR AR

1254
1255
1256

;CAN BE DETECTED IN CHARACTER
;DETECT ADDRESS 02
.

JTEST THAT THE CHARACTER 255

1257

1259
1260
1261
1262

}ggz

1265
1266
1267

AR RARCRRANRRR AR

;SCOPE THIS TEST

1258

RRA AR AR

;LOAD THE ADDRESS
;GO AND LOAD THE CHARACTER.

1252

1253

RARARRAAARAR AR AR

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

:
_
JTEST THAT THE CHARACTER 255
;CAN BE DETECTED IN CHARACTER
;DETECT ADDRESS 01
:
TEST S
AR

AR R AR R AR

;

003574
003602

003610
003616

003622

012737
012737

012737
004737

104400

000007
003624

000002
004314

001226
001216

013042

TEST 7

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

TSI7:

MOV
MOV

MOV
JSR

SCOPE

#7,TSTNO
lTJT1O.NEXT

#02 ,ADDR
PC,CHK.ADD

;LOAD THE ADDRESS
;GO AND LOAD THE CHARACTER.

;SCOPE THIS TEST

3
JTEST THAT THE CHARACTER 255
;CAN BE DETECTED IN CHARACTER

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

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

1268
1263

1270

;

1271

1272
1273
1274
1275
}5;9
1

012737
012737
012737
004737
104400

000010
003654
000003
004314

001226
©01216
013042

1278
1279
1280
1281
1282
1283

}sgg
1

003654
003670
003676
003702

291

012737
012737
012737
004737
104400

000011
003704
000004
004314

001226
©01216
013042

T1ST11:

296

298

299

300
301
§8§

]

1
1

1
1
1
1
1

1
1
1

WN=O 000 NN
B W =2O0

MOV
MOV
MOV
JSR
SCOPE

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

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

TEST 12

003704

003712

003720
003726
003732

012737

000012

012737
004737
104400

000005
004314

012737

003734

001226

001216

TST12:

013042

MOV

#12,TSTNG

MoV
JSR
SCOPE

#05 ,ADDR
PC,CHK.ADD

MOV

#TST13,NEXT

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

:
:TEST THAT THE CHARACTER 255
;CAN BE DETECTED IN CHARACTER

1 ggg

:SCOPE THIS TEST

;ttfitttttttttttttltttlttttttQttttfitttt'ttttttttttttiittttttttti'ttttt

1 304
1 305
1 306
1

;LOAD THE ADDRESS
:GO AND LOAD THE CHARACTER.

;DETECT ADDRESS 05

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

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

2
;TEST THAT THE CHARACTER 255
;CAN BE DETECTED IN CHARACTER

293

1 297

:
sTEST THAT THE CHARACTER 255
;CAN BE DETECTED [N CHARACTER
:DETECT ADDRESS 04
4
TEST N

1 ggg

MOV
MOV
MOV
JSR
SCOPE

;ttt.Qitt!ttttttttttttttttttttttfitttttttttt.ttttt.ttttttttttttt'tfittt

1 292

WWN AWNWNWWNWWWWWWW
L aaaaa
R nonY —_—leaa

TEST 10

TST10:

;

128‘

1285
1286
1287
1288

;DETECT ADDRESS 03
.

AR AR A A AR

003624
003632
003640
003646
003652

SEQ 0026

;DETECT ADDRESS 06

003734
003742
003750
003756
003762

012737
012737
012737
004737
104400

000013
003764
000006
004314

001226
001216
013042

TEST 13
A

TST13:

A AR A A A A A AR AR AR

MOV
MOV
MOV
JSR
SCOPE

R R

#13,TSTNO
#TST14 NEXT
#06 ,ADDR
PC,CHK.ADD

A A AR A A AR R AR AR R AR AR AR R A AR R AR R AR

AN R AN

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

“TEST THAT THE CHARACTER 255

*CAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 07

TEST 14
.'Q'.t.'..'..'..t..".*'.""'l...t'tt'."t.'l'...t....l..t'l".'t't"

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.P11
09-JUN-78 07:58
1326
1325
1326
1327
}%%g

003764
003772

004000
004006
004012

012737
012737

012737
004737
104400

000014
004014

0CJ007
004314

001226
001216

TST14:

013042

1335

;

1336

004014
004022

012737
012737

004036

004737

004030

g{g

004042

012737

104400

000015
004044
000010
004314

001226
001216

TEST 15

TST15:

013042

MOV
MOV
MOV

JSR

SCOPE

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

1347

*SCOPE THIS TEST

"tttttt't*"'.Qit"'fifii"'tttitQt.fit.fit,t'fititiltttti.*tit'tt..tt**fitl'

004044
004052
004060

004066
004072

012737
012737
012737

004737
104400

000016
004074
000011

004314

001226
001216
013042

TST16:

MOV
MOV
MOV
JSR

SCOPE

1356
1357

#16,TSTNO
#TST17 NEXT
#11,ADDR
PC,CHK . ADD

;LOAD THE ADDRESS
GO AND LOAD THE CHARACTER.

*SCOPE THIS TEST

:
:TEST THAT THE CHARACTER 255

1358
1359

:CAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 12

1360

1361

TEST

’,%2

"ttttttt‘ttttttt't.tttttt"'i'fittl'tttttt..!tt"tit't'ttttt.ttt"t'tt

1363
1364
1365

004074
004102
004110

012737
012737
012737

}ggg

006122

104400

004116

004737

000017
004124
000012

004314

001226
001216
013042

TST17:

MOV
MOV
MOV

JSR

SCOPE

#17,TSTNO
#1ST20 ,NEXT
#12 ,ADDR

PC., CHK . ADD

1369

1372

:DETECT ADDRESS 13

1370
1371

;LOAD THE ADDRESS

GO AND LOAD THE CHARACTER.
*SCOPE

THIS TEST

STEST THAT THE CHARACTER 255
:CAN BE DETECTED IN CHARACTER

1373

1374

1376
1377
1378
1379

:GO AND LOAD THE CHARACTER.

TEST 16

13‘.9

1375

;LOAD THE ADDRESS

:
:TEST THAT THE CHARACTER 255
:CAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 11

1348

1366

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

:TEST THAT THE CHARACTER 255
:CAN BE DETECTED IN CHARACTER
:DETECT ADDRESS 10
:

1343
1344
1345
1346

1353
}ggg

#07 ,ADDR
PC,CHK .ADD

:tQttfiltt'.'Qt."t'..t*i""tt'fitfitt.t.fi*fi..fifittttt."ttttttt*tttit'.t

1339

1350
1351
1352

#14,TSTNO
#TST15 ,NEXT

SEQ 0027

1331
1332
1333
1334

1340

MOV
MOV

MOV
JSR
SCOPE

1330

1337
1338

08:38 PAGE 28
PROGRAM INITIALIZATION AND START UP.

;
004124
004132
004140
004146

012737
012737
012737
004737

000020
004154
000013
0046314

001226
001216
013042

TEST 20

."."t't'.tt".."...t""""tt"lt'.'ttl'.tt't.t"l"'t'."'.t.tt.'
T1ST20:

MOV
MOV
MOV
JSR

#20,TSTNOC
#TST21 NEXT
#° % _ADDR
PC,CHK.ADD

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

004152

08:38 PAGE 29
PROGRAM INITIALIZATION AND START UP,

104400

SCOPE

SEQ 0028

;SCOPE THIS TEST

& $EILIRIEILGEERERILES 3

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

STEST THAT THE CMARACTER 255

:
004154
004162

004170
004176

004202

012737
012737

012737
004737

104400

000021
004204

000014
004314

001226
001216

TEST 21

MAAAA AL L

AR A

tsT21:

AR A

MOV
MOV

013042

#21,TSTNO
#15722 NEXT

MOV
JSR

' ATA ADDR
P(.CH&.ADD

5COPE

2222 2

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

:SCOPE THIS TEST

D e

SCAN BE DETECTED IN CHARACTER
*DETECT ADDRESS 14

STEST THAT THE CHARACTER 255

) e

JCAN BE DETECTED IN CHARACTER
:DETECT ADDRESS !

—

1402

1403
1404
1405

}28(7’

l 1408

004204

004212
004220
004226

004232

012737

012737
012737
004737

104400

ooooif

00423
000075
006314

001226

001276
013040

TEST 22

MUAA A

ts122:

:
00423

012737

1416
1417

0064262
004250

012737
012737

1419

004262

104400

004256

TMoV

TMMoy
TM0y
JSR

#22,7STNO

875723 nExT
#75 ADDR
P, Iv . ADD

22s222XX2

:LOAD THE ADDRESS
;GO AND LUAD THE CMARACTER,
SSCOPE THIS TEST

0064737

000023

004264
000016
006214

001226

001276
07304,

cm BE DETECTED IN (HARA(TER
SDETECT ADDRESS 6
>

TEST 2%

SAAE

1s712%:

L XL

AL L

moy

23,1580

",
"),

875708 sEnt
816 A0

ISR

SCoPe

JLOAD TeE oooats

(e _ADD

oL AN ..

S7re

To€

191S TEST

(WARA[TER,

STEST THAT THE | mARATER
ICAN BE DFTeCTED [N
DETELT DDRESS !

TEST 3¢

FENT
N

004

—

00«
004
004
004
004

i...........'...........

WWN

1418

1413

1415

7(97 THAT THE (HARATTER 2S5

1410
1411
1412

SCOPE

1409

1414

ST24:

TMy

.y,?:z.\

-,
SR
Sroet

Tew JADD:

MEw

LA R

LR R

75"

o7 ois
Pr.bwm

QA0

W€ agonts
e
ug CHARAC TER
‘f

-ols TES

BRR AL

TR DO RBGISTERS,

)

08:

ZDQF
MACY11 30A(1052)
07-JuL-78
ZDQFE.P11
09=-JUN07:

ADDR
, @DQR( SH
TC AR

2§ss.oe TCAR+1

013047
013044

#255° GDCHAR

counfénz

aDQRE

175010

#RXBUF
F ,8DQSE C
aDORE

174776
174766
174762
174752
174746
174736
174732
174712
015714

né

#12,aDOREG

#4012, aDQSEC
TEMP+1

#8177 ,aDQSEC

TEMP
TEMP,R3
#4C<BIT7>,R3
R3,aDQSEC
aDQSE(
aDQSEC
R2

;CLEAR ALL BUT CHARACTER DET. ADDR.

Wi~

NNN

b
e

ADDR, TEMP+1

HLT
RTS

;PLACE DATA ON BIT WINDOW.

#~C<7600>, TEMP

aDQRCSR, TEMP

BEQ

s COMPLEMENT (CHAR FOR USE ON BIT WINDOW.
JIF BIT WINDOW SET ON LAST PASS CLEAR IT!
JSHIFT OUT BIT OF DATA.
sSAVE IT
sCLEAR ALL UNWANTED BITS

JSET EIGHT BITS TEST LOOP AND AUTO STEP

;CLOCK UP
;CLOCK DOWN
;1S CHARACTER DONE YET?
;BR IF NOT DONE
;WAS CHAR REALLY DETECTED?
:BR IF GOOD
;CHARACTER DETECT FAILED.

aDQRCSR
wviwvwon

sSET SINGLE CHAR DET AND SINGLE CHAR DET FLAG SE

JSELECT THE MISC REGISTER.

#B]T12+8170,3D0R CSR
:SET RX ACTIVE AND RX GO.
DETCAR, TEMP
:MOVE THE CHAR TO BE DET TO WORKING AREA

174632
OOO

SEQ 0029

;LOAD THE CMAR DET ADDRESS TO BE USED.
sCLEAR WORKING LOC.
JLOAD THE CHARACTER TO BE DETECTED IN WORKING AREA.
;LOAD FOR ERROR PRINTOUT
JEIGHT SHIFTS FOR EIGHT BITS (NO VR(C)
;SEL THE RX BA PRI.
JLOAD IT
;SEL THE RX WC PRI].
;SET FOR ONE CHAR.
sSELECT THE CHARACTER DET REGISTER.
;SET THE CHARACTER TO BE DETECTED INTO DQ11 CHAR DET REG
sSELECT THE SEQUENCE REGISTER.

#8]T15+81T13,aDQ SEC

174704

013042

PROGRAM INITIALIZATION AND START UP,

175036

174622
170377

PAGE 30

;GET THE RECEIVER CSR.
;WAS THE

CHARACTER REALLY DETECTED

;IN ADDRESS $A 7?

*WRONG ADDRESS.

;TEST OF RECEIVER AND TRANSMITTER ''SET 'T'"*'

sTEST OF BIT ONE OF SEQUENCE REGISTER.
sTHIS TEST WILL "'SET T'' AND THEN WILL

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

TEST 25

AR AR

004562

004570

012737
012737

000025
004722

004576
004602

004737
012777

011024
040002

004610
004614

105377
112777

174546

004622

012777

174562
174546
174542

AR A AR AR AR AR AR A AR

AR A AR R AR AR AR AR AR R AR

MOV
MOV

#25,TSTNO
#T5T26 ,NEXT

JSR
MOV

PC,SET.UP

DE(B

MOVR
MOV

R AR R AR R AR

;SET UP ALL NECESSARY FOR

#BIT14+BIT1,aDOSEC
aDQR( SH
&7 ,aDQREG

#351%400,aDQSEC

AR AR R AR A&

TEST.

sSET DBL. CHAR AND SET T

sSELECT ADD 16 (8)
sSELECT CHAR DET. ADDRESS

;LOAD THE CHARACTER. SET DONE CLEAR GO.

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

1492
1493

112777
012777

000014
100200

012700
012720

012014

08: 38

174532
174526

#14,3DOREG
;SELECT THE SEQ REGISTER.
#B1T15+8177,aDQSEC

MOV
MOV

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

MOV

(PCS+, (RO)+

.BYTE

174476

351,200

PC,ENABLE

MOVB
TST

#1.3DQREG
aDASEC

aDASEC

BEQ
HLT
MOVB

174460

BEC
HLT
SCOPE

w—aoom\:omawm—-os

SIS ST,N]

IV SRR Nolo
(R NTo 8

KXYXKY W
XXX

NOOWN
B WN—=OO

lh
d
h
d
i

JSR

000,350

sSET FUNCTION. CLEAR GC SET DONE.
*PREPARE TX BUFFER
*LOAD THE BUFFER WITH DATA

*DATA

*LOAD THE BUFFER WITH DATA

*DATA

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

*GET THE RX WC PRI.
*RX WC PRI. SHOULD =0

L+
3
#3,3DOREG

*BR IF RX WC PRI =0
*RX PRI WC NOT =0
“GET TX WC PRI.

.+
3

‘BR IF TX WC =0
“TX WC PRI NOT =0

“TX WC PRI

SHOULD =0

*TEST OF RECEIVER ''CLEAR 'T'*
"'

*TEST OF BIT TWO OF SEQUENCE REGISTER.
*THIS TEST WILL ENTER BOTH THE RECEIVER AND
*TRANSMITTER INTO TRANSPARENCY: THEN A CHARACTER

*WHICH SAYS "'CLEAR RX

T'' WILL BE SENT FOLLOWED

*BY A CHARACTER WHICH SAYS '‘SET RX CHAR FLAG''.
*THE

TEST

THEN CHECKS

THAT

THE

CHARACTER FLAG

*WHICH MEANS THAT CHARACTER WAS DETECTED.

;

i
o
i
i
i
i
i
e
i
il
il
i
)
D
e
i
i
i

)
i
o
i
d il

vivvorocvoa

)

D i

NN
N NN NN NN NN WD
NN NN
=L DD
a

174456

SEQ 0030

MOVB
MOV

.BYTE

000003

PROGRAM INITIALIZATION AND START UP.

350

174474

PAGE 31

001226

012737
012737

001216
174422
174406
174402
174372

TEST 26

AR R

T1ST26:

22223223232222222232332232222222228

MOV
MOV
JSR
MOV

#26,TSTNO
#TST27 NEXT

DECB
MOVB

@DQRCSH
#10,aDOREG

MOVB
MOV

#14 ,aDQREG
;SELECT THE SEQ REGISTER.
#BIT14+BIT2,aDQSEC

MOV

PC,SET.UP
;SET UP ALL NECESSARY FOR TEST.
#81T14+BI1T1,aDQSEC

;SET FUNCTION: DBL CHAR AND SET T

*SELECT CHAR ADDRESS 16 (8)
“SELECT CHAR DET ADDRESS.

#352+400,aDQSEC -LOAD CHARACTER

012777

040004

105377

174352

DECB

aDQRCSH

112777

000010

MOVB

#10 aDQREG

112777

000014

120000

MOV

#8;T15+BIT13,aD0QSEC

012014

MOV
MCV

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

MOV

(PC3+_

012777
012777

012700
012720
350
012720
352
00473%7

166400

351

355
011620

174366

IS SET

MOV

LRYTE
¥

1SR

sSET FOR DBL CHAR AND CLEAR T
sGET NEXT ADDR

sGET NEXT ADDRESS

sSELECT CHAR DET ADDRESS

#355+400,3DQSEC :LOAD CHARACTER.

#14,aDQREG

350,351

(RO)+

3-5 368

PCLENABLE

“SELECT

THE SEQ REGISTER.

:SET FOR SINGLE CHAR AND SET FLAG.
“GET POINTER
“LOAD THE BUFFER WITH DATA

‘DATA

*LOAD THE BUFFER WITH DATA
‘DATA
:D

JS5ET GO BITS FOR RX AND TX; wAlT FOR Rx DONE.

¢
3
08:38 PAGE 32
PROGRAM INITIALIZATION AND START UP.

TST
B8M]

174274

HLT

SCOPE

— e

aDQR(CSR
.+

SEQ 0031

;CHECK CHAR DET FLAG
:BR IS SET

s CHARACTER DET FLAG NOT SET

:SCOPE THIS TEST

:TEST OF RECEIVER AND TRANSMITTER ‘BCC/CLEAR START''

;TEST OF BIT THREE OF SEQUENCE REGISTER.
;THE TEST STARTS UP THE TRANSMITTER AND RECEIVER BC(C
JAND DEPOSITS ONE CHARACTER INTO IT. THE RECEIVER
-DONE FLAG COMES UP AND THE DQ11 CLOCK IS STOPPED.

;IHE BCC'S OF BOTH THE TX AND RX ARE THEN ‘''GRABBED''
sAND SHIFTED LOOKING FOR THAT ONE CHARACTER TO BE PRESENT

;IN THE BCC OF EACH RX AND TX BCC REGISTER.

TEST 27
'Q*ttfittttttt"!.l'tt'ttt'i‘fifiitittt..itt.tt't.tt."*fi't...tt".tttt

000027

005350

001226
001216

100010

174252

MOV

000017
000200
000003

174242
174236
17422¢
174222

MOVB
MOV
MOVB
MOV
MOV

011024

177576

012014
012215

Tsro7:

1%:

MOV

#27 ,TSTNO

JSR

PC,SET.U

;SET UP ALL NECESSARY FOR TEST.

#17.aDQREG
#200,aDQSEC
#3,aDQREG
#-202,3DQSEC
#TXBUF F ,RO

*SEL
*SET
*SEL
-SET
*GET

MOV

174154

000004

#TXBUFF ,RO

*GET

.BYTE
MOV

350,225
#225, CHAR

*DATA
*SET EXPECTED BCC CHAR.

QDOREG
#RXBUFF ,@DQSEC

*SEL REC PRIMARY
:SET WITH START ADRS

#-5,aDQSEC

*SET CHAR COUNT

&$:

(RO)+

MOVB

#1,aDOREG

TX BUFFER

*LOAD THE BUFFER WITH DATA

*SET FOR 8 BITS

*SEL REC CHAR COUNT

#4.aDOREG
4Rxeurr+2o aDQSEC

MOV

#=-201, aoosec

?0¥

COUNT,R3

TX BUFFER

*BR IF NO

MOVB
MOV

:SEL REC SECONDARY
*SET WITH SEC ADRS

#5,aDORE

;SEL REC CHAR COUNT

PC,NEWENA

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

*SET CHAR COUNT
:GET CHAR SIZE
.

ROLB

JSHIFT RX BCC

BEQ
DEC

BNE

3%
R3
6%

:BCC OK.
JALL SHIFTS DONE?

:BR IF NO.

MOv

(C'NT,R3

s SAVE COUNTER

AD(
(MP

(PC)+,

#8. , COUNT

JSR

013040

MOV

MOVB

:
6%

CHAR AND B(C(/START (CLEAR

THE POLY REG.
FOR LRC 8
THE TX WC PRI.
FOR 202 (8)
TX BUFFER

MOV

177775

sSET SNGL

*CLEAR ALL THE
:ALL CLEAR?

CLRB
MOV

012216
000001

#BIT15*BITS aDQSEC

(RO
+
#TXBUFF+201,R0

MOV

225
000225
000010

#1S730, NEXT

CLRB
CMP

BNE

012014

W OV~

005777
0040

—_

O\
NN NN NI VAl
RERZ
4] 3333
3@\[0* JIIILIR
VIS WN=OVO ZLEOREL = OV
NOWV WA — o

DD —
D
D
D
D
D D
D
D
D
D
D
D
D
D
D
D
D
D
e
D e
D e
D e
d

D e

e e

D e

viviviunuivivioaviwvauv
0o

VNN
NN NN
N Ni

005060

—Y

CZDQFE.PN

30A(1052)
07-JUL 78
09-JUN-78 0 7:58

[

MACY11

HLT

RO
(HAR RO

;PICK UP (ARRY
< CHECK BCC

IMAGE

JRX BCC HAS WRONG DATA,

)

(o Yo

-0

283IR3R

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

005326
005330
005332
005336
005340
005342
005344
005346

106101
005501
023701
001403
005303
001370
104005
104400

113036

08:38 PAGE 33
PROGRAM INITIALIZATION AND START UP.

9%:

5%:

ROLB
ADC
CMP
BEQ
DEC
BNE
HLT
SCOPE

R1
R1
(HAR ,R1
5%
R3
8%
5

JSHIFT TX BCC IMAGE
;PICK UP CARRY
. 1S BCC OK?
;BR IF OK
JALL SHIFTS DONE?
;BR IF NO
;TX BCC _HAS WRONG DATA,
;SCOPE THE TEST

SEQ 0032

07-JUL-78
MACY11 30A(1052)
CZDQF
09-JUN=-78 07:58
ZDQFE.P1

Nolo JoNTo
MV P o

TEST OF RECEIVER ''CLEAR ACTIVE''

*TEST OF BIT SIX OF SEQUENCE REGISTER.

*THIS TEST WILL SEND A CHARACTER WHICH SAYS '‘CLEAR RX ACTIVE''
:THE PROGRAM WAITS FOR TX DONE THEN LOOKS AT RX ACTIVE
*WHICH SHOULD BE EQUAL TO ZERO; THEN THE PROGRAM LOOKS
:FOR RX GO TO BE SET AND RX PRI DONE TO BE CLEAR.
*ALSO THE RX WC PRI SHOULD BE NOT EQUAL TO ZERO.

;O TEST %02 2122222222222 22223232 3322222223333 2322232222220t ild it

FOSSHRORIRR BRR

D i

oo
On

SEQ 0033

08:38 PAGE 34
PROGRAM INITIALIZATION AND START UP.

1612
1613

—

000030
005532

001226
001216

7s730:

MOV

#30,TSTNO

MOV

#TST31,NEXT

173774

MOv

#31T15+8176,aDQSEC

000350
005446
005416
011236
040100

012016

003721

012426

011024
100100

005446

001220
173742

;SET UP ALL NECESSARY FOR TEST.

mMovB
JSR

#350,TXBUFF+2
PC,X.ABG

;SET SNGL CHAR AND CLEAR ACTV
;SET DATA IN TX BUFFER
GO AND WORK THE D@11

JSR

PC,EXT.UP

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

#3721 ,XTXBUF+2
PC,X.ABG

SSET DBL CHAR AND CLEAR ACTV
:LOAD THE DATA
*WORK DG11

MOV

1%:

MOV

MOV
JSR

------ «LOCK*

X.ABG:

173706
173706
173702

010000

173664

000001

173662

000001

173634

173660

PC,SET.UP

JSR

#1$,L0CK

“SET FOR RETURN IF SW09=1

#BI1T14+B176,aDQSEC

SCOP1

:IF SWO9=1; THEN GOTO ADDRESS IN ‘10CK''.

SCOPE

:SCOPE THIS TEST

INC

aDORCSR

BPL

INC
TSTB

cMP

aDATCSR
@DQTCSR

“SET RX GO.
“SET TX GO
"HANG HERE FOR TX PRI DONE''

(SP), (SP)

‘WAIST TIME!

*BR IF NOT DONE.

BIT
BEQ

#B]1712,3DQRCSR
.+

IS RX ACTIVE CLEARED?
‘BR IF YES

MOVB
ST
BNE
HLT

#1,aDOREG
aDOSEC
. +4
é

“GET THE RX WC PRI.
“IT SHOULD BE NON-ZERO''
*BR IF OK
“RX PRI WC =0

BEQ
HLT

L+
€

HLT

(MPB

RTS

“RX ACTIVE NOT CLEARED

#001,aDORCSR

GO SHOULD BE SET AND DONE NPT SET.

“BR IF OK!
“LOW BYTE RXCSR NOT =001

TEST OF RECEIVER AND TRANSMITTER ‘‘CLEAR GO/SET DONE''
:TEST OF BIT SEVEN OF SEQUENCE REGISTER

*CHARACTER ''SET DONE/CLEAR GO'* IS SENT AND IS DETCETED
‘BY BOTH THE TX AND RX. WHEN RX DONE SETS; THE PROGRAM
“VERIFIES THAT BOTH THE TX AND RX WC (PRI) ARE NOT
“EQUAL TO ZERO AND THAT PRI DONE SET,GO IS CLEARED,
SAND PRI/SEC BIT IS CLEARED.

TEST %1

".'.'....'.."'...."Q‘""".'.'-.Q'..!.".Q".'.l'...'.."'l..'..!'

CZDQF
MACY11 30A(10 52)
07-JuL-78
CZDQFE.P1
09-JUN-78 07:58

005532

012737
012737
004737
012777

000031
005726
011024

012700
012710

012016

100200

08: 38

001226
001216

TST31:

012737
012737
004737

012426
012430

104401

1%:

173516

005777
001001
104007
112777

001401

104007
122777
001401

PC,EXT.UP

:SET SNGL CHAR AND SET DONE CLEAR GO
:SET TX BUFFER
*LOAD WITH DATA

350,352

*DATA

#1$,L0Ck

*SET FOR RETURN IF SW09=1

*WORK DQ11
:SET

THING UP FOR DOUBLE

CHAR. (16 BITS)

MOV

#BI1T14+B177,aD0SEC

MOV

#3721 XTXBUF+2

:SET DBL CHAR AND SET DONE CLEAR GO
:LOAD DATA

PC,X.ABF

“TURN ON DQ11

#12525
, XTXBUF +4 :SAME

SCOP1

;IF SW09=1;

SCOPE

:SCOPE THIS TEST.

JSR

THEN GOTC ADDRESS IN ‘10CK'‘.

PC,ENABLE

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

aDASEC

*IT SB NON-ZERO.

MOVB

#1.3DOREG

BNE
HLT

.+
7

*BR IF OK
JRX PRI WC =0

aDQSEC

*IT SB NON-ZERO

HLT

“TX WC PRI

7
#200,aDQTCSR
L+
7

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

HLT
(MPB
BEQ
HLT
RTS

173444

B&EIK
Nole RNTe NV P Y VI,N} W
—

D
D
d
D
D

wdb e

)
D
D
)
D
D
D
—
e

NINDN SNNIIINVNIIISNNN

JSR

CMPB
BEQ

104007

PC,X.ABF

MOVB

000207

—

JSR

173452

:SET UP ALL NECESSARY FOR TEST.

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

BNE

104007
122777

PC,SET.UP

MOV
MOV

JSR
——— *LOCK*

173500

005777
001001

#TST32 NEXT

#BIT15+B1T17,aDQSEC

MOV

X.ABF:

#31,TSTNO

MOV

104400

112777

MOV

BYTE

173556

004737

MOV
JSR

352

012777

SEQ 0034

PROGRAM INITIALIZATION AND START UP.

173612

001220

PAGE 35

*SEL RX WC PRI

#3.3DOREG

*SEL THE TX WC PRI

. +4

;BR IF OK.

#200,3DQRCSR
.+

IS =0

:DONE=1; P/S=0: G0=0?
*BR IF OK.

STEST OF RECEIVER '‘CHARACTER STRIP''
STEST 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 IT
:IS ASSUMED THAT THE CHARACTER WAS INDEED '‘STRIPPED''.

TEST %2

:ttttttt.titfit'ttttt*.tfi""..it.fil"'ttt"'t"ttt.ttttt.ttttt..'.t!t

000032
006104
011024

100400

012016

321
011620

001226
001216

173416

Ts132:

Mov

#32,TSTNO

JSR
MOV

PC.SET.UP
;SET U® ALL NECESSARY FOR TEST.
#81T15+B1T8,aDQSEC

MOV

BYTE

ISR

#T5733, NEXT

ATXBUFF+2
RO

(PC)+,

(RO}

379,391

PC.ENABLE

sSET SNGL CHAR AND CHAR STRIP.
-SET POINTER

*LOAD THE

DATA

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

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

08: 38

1724
1725
1726
1727

005770
005774
006000
006004

1731
1732
1733
1734
1735
1736
1737

006014
006022
006026

001220

006034
006042
006050
006054
006060

012430
012432

1728
1729
1730

1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750

012700

006006
006010
006012

012216
000010
000350

MOV
MOV

cmPe

BNE
HLT
DEC

BNE
2%:

006074
006076

:GET THE RX BUFFER
*SET FOR 10(8) CHARS

#350, (RO) +

*WAS THE CHAR STRIPPED?

. +4
10
R1

*BR IF NOT FOUND YET.
“CHARACTER NOT STRIPPED FROM CORE.
:ADJUST CHAR COUNTER

*ALL DONE?

MOV
MOV

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

“MOV,

#10,R1

CMP

BNE
HLT
DEC

BNE

006102

#RXBUFF ,RO
#10,R1

#2%,L0CK
:SET FOR RETURN IF SW09=1
PC,EXT.UP
:SET THING UP FOR DOUBLE CHAR. (16 BITS)
#81T14+B1T8,aDQSEC

jmm=== %[ OCK*

006100

SEQ 0035

MOV
JSR
MOV

JSR
MOV

006064
006070
006072

PROGRAM INITIALIZATION AND START UP.

1%:

173336

PAGE 36

PC,ENABLE
#RXBUF F ,RO

#3721, (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.
*CHAR STRIPPED?

:SO FAR SO GOOD
*CHARACTER NOT STRIPPED FROM CORE
*ALL DONE

*BR IF NO.

SCOP1

;IF SW09=1;

SCOPE

;

THEN GOTO ADDRESS IN '10CK'‘.

1751

;
006104
006112
006120
006124

1766
1767
1768
1770

006152

1771
1772
1773
1774
1775
1776
1777
1778
1779

SEQUENCE REGISTER

TEST %3

:'.fi".Q'.*."'fifi'..'...‘*'Q'."..t."fi'fi'.".t'Q“.'.."t.fi."'.'.'..‘

006132
006136
006140
006142

1769

TEN OF

s THE PAD CHARACTER IS SENT IN THE MIDDLE OF THE MESSAGE
;AND THE PROGRAM VERIFIES THAT THE PAD WASN'T INSERTED
;IN THE MIDDLE OF THE RX BUFFER.

006146

006156
006162
006164
006166
006170
006172
006200
006204

012737

001226
001216

TST33:

MOV

MOV
JSR

173240

1%:

173160

2%:

#TST34 NEXT

#81T15+81T10,aDQSEC

PC,SET.UP

;SET UP ALL NECESSARY FOR TEST.

MOV
MOV

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

:LOAD THE
:
DATA

JSR
MOV
MOV

PC,ENABLE
#RXBUFF ,RO
#10.R1

:SET GO BITS FOR RX AND TX:; WAIT FOR RX DONE.
:GET POINTER
SSET CHAR COUNT

BNE

. te

(MPB

HLT

001220

#33,TSTNO

MOV

.BYTE

1763
1764
1765

sTEST OF BIT

SERSoRS

1760
1761
1762

sTEST OF '‘TRANS PAD''

=00
N
=2 —a

1752
1753
1754
1755
1756
1757
1758
1759

DE(
BNE

350,101

:SET SNGL CHAR AND TX PAD

#377,(RO)+

:PAD PRESENT?

:PAD CHARACTER

:BR IF NO

R1
1%

:ALL CHAR DONE?
*BR IF NO.

PCEXT.UP

:SET

MOV

#2%,L0CK

MOV

#27T14+B1710,aD0QSEC

JSR

INTO THE TX BUFFER

IN BUFFER.

SSET FOR RETURN IF SW09=1
THING UP FOR DOUBLE

;SET DBL (HAR AND TX PAD

CHAR.(16 BITS)

CZDQF

MACY11

07-JUL-78

09-JUN-78 07:58

006212

012737

003721

782
783
784

006226
006232
006236

004737
012700
012701

011620
012216
000010

786

006246

006256

781

785

787
788
789

006220
006242

006250
006252
006254

012737
022720
001001

054321

08:38

012430

SEQ 0036

MOV

#3721 ,XTXBUF+2

:LOAD DATA

JSR
MOV
MOV

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

JSET GO BITS FOR RX AND TX:; WAIT FOR RX DONE.
*GET POINTER
*GET CHAR COUNTER

*BR IF NO

MOV

104011
005301
001372
104400

PROGRAM INITIALIZATION AND START UP.

012426

177777

PAGE 37

CMP

BNE

HLT
DEC
BNE

4%:

SCOPE

#54327 XTXBUF +4 : SAME
#177777,(R0)+
1
R1
3$

:TX PAD IN BUFFER?

;PAD CHARACTER IS IN BUFFER.
*ALL CHARS DONE?
‘BR IF NC.
:

DD DD

1780

PRSP SR

CIDQFE.P11

30A(1052)

;TEST OF "BCC EXCLUDE''

D e

;TEST OF BIT

D D
D

;FROM THE BCC; WHEN DONE COMES UP THE BCC'S OF BOTH
sTHE RX AND TX ARE SHIFTED AROUND TO SEE IF THE

;CHARACTER WAS REALLY EXCLUDED.

SEERER SRR A R

:
006260
006266
006274
006300

012737
012737
004737
012777

000034
006600
011024
100010

006306
006312
006320
006326

105377
112777
012777
112777

006342

006334

173064

MOV
MOV
JSR
MOV

173050
000010
170400
000014

173050
173044
173034

173030

DECB
MOVB
MOV
MOVB

MOV

#34,TSTNO
#TST35 NEXT
PC,SET.UP
;SET UP ALL NECESSARY FOR TEST.
#BIT15+BIT3,aDQSEC
sSET SNGL CHAR AND BCC START CLEAR
@DQRCSH
*SEL CHAR ADD 16(8)
#10,3DQREG
“GET CHAR DET ADDRESS
#3612400,aDQSEC :LOAD CHAR.
#14,aDOREG
*SEL SEQ REG

112777

000017

173020

MOVB

#17,3DOREG

SSET SNGL CHAR AND BCC EXCLUDE
*SEL POLY REG.

112777

000003

173004

MOVB

#3,aL0REG

*SEL TX WC PRI.

012700

012014

MOV

#TXBUFF ,RO

022700
001374
012700
012710

012215

012777

006350

012777

006364

012777

006376

105020

006356
006372

006400
006404
006406
006412

006414
006416

1829

006432

000200
177576

TST34:

173074

MOV

173000

MOV
1$:

CLRB

172720
172710

CLRB
MOV
MOVB

@DQREG
#RXBUFF ,aDQSEC
#1,aDOREG

172674
172670

MOVB
MOV

000107

013036

MOV

1834
1835

006466
006474

112777
012777

012777

172724
012216
1

177775

4
012236

*SET POINTER

*LOAD DATA 000

#8.

012737

105077
012777
112777

(RO)+

-SET BIG NUMBER

MOV

.BYTE
MOVB

006440
006444
006452

#-202,aDQSEC

*SET LRC 8

:CLEAR BUFFER!''
“BR IF NOT ALL CLEAR.
*SET POINTER
*LCAD THE

012016

1830
1831
1832

#200,aDQSEC

#TXBUFF +201,R0
1$
#TXBUF € ,RO
(PC)+, (RO)

012014

000010

#B1T15+81T11,aDQSEC

CMP
BNE
MOV
MOV

107
000361

012737

006460

104000

001226
001216

350
112737

006424

1833

TEST %4

.'ttttt"tfit'*fitfitttfitfi.t't"'tfiti*ttttt'*'ttttttttt'ttt.tfittt.ttt."i

1826
1827
1828

SEQUENCE REGISTER

:"BCC EXCLUDE'' IS EXERCIZED ON BOTH THE RX AND TX TOGE THER

1822
1823
1824
1825

sTHE BCC IS TURNED ON AND THEN A CHARACTER IS EXCLUDED

D d
D
D
D o
D e
e
D
D
d e
D
e
—

1821

013040

172704

MOV

350,107
#361,TXBUFF+2
COUNT

#107, CHAR

#-5,aDQSEC

:
-

DATA

INTO

THE

TX BUFFER!

*SET FOR 8 BITS AND 107 AS THE CHAR IN BCC.
*SEL REC PRIMARY
-SET WITH START ADRS
*SEL REC CHAR COUNT

*SET CHAR COUNT

#<.aDOREG
*SET REC SECONDARY
#RXBUF F +20, aDOSE ¢
:SET WITH SEC ADRS

CZDQF
MACY11 30A(1052)
07-JuL-78
CZDQFE.P11
09-JUN-78 07:58
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858

006502
006510
006516
006522
006526
0065
006532
006534
006540
006542
006544
006546
006550
006554
006556
006
006562
006566
006570
006572
006574
006576

112777
012777

004737
013703
000241
106100
005500
023700
001403

005303
001370
104012
013703
000241
106101
005501
023701
001403
005303
001370
104012
104400

000005
177577
011674
013040

08: 38

013040

SEQ 0037

PROGRAM INITIALIZATION AND START UP.

172660
172654

013036

PAGE 38

MOVB

#5,aDQREG

;SEL CHAR COUNT

JSR
?Eg

PC ,NEWENA
COUNT ,R3

*SET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
*SAVE COUNTER

5% :

ADC

3$:
6$:

MOV

*SHIFT RX BCC IMAGE

CMP
BEQ
DEC
BNE

CHAR,RO
3s
R3
4$

*BCC OK?
*BR IF OK
*ALL SHIFTS DONE?
*BR IF NO

MOV
cLC

COUNT,R3

ROLB
ADC
MP

R1
R1
CHAR,R'

HLT
SCOPE

BEQ
DEC
BNE
7%:

-SET CHAR COUNT

ROLB

HLT

013036

#-201,3DQSEC

7$
R3
6%

*SAVE CARRY

*RX BCC HAS WRONG DATA.

;CLEAR CARRY

*SHIFT TX BCC IMAGE
*PICK UP CARRY
*BCC OK?

BR IF OK.
*ALL SHIFTS DONE?
‘BR IF NO

*TX BCC HAS WRONG DATA.
“SCOPE THIS TEST

1859

1860
1861
1862
1863

sTEST OF SET TRANSPARENCY FOR TRANSMITTER.
sTEST THAT THE SEQ FUNCTIONS ARE ALLOWED IF

;THEY ARE PRECEEDED BY *DLE~*.
sTHIS TEST THAT WHEN THE TRANSMITTER FLIPS FROM PRI

1864
1865
1866

:?ND 'E¥é; T'" IS ASSERTED THAT THE TX SENDS A ‘DLE"’

1867
1868
1869
1870
1871

006600
006606
006614

012737
012737
004737

000035
007054
011024

1874
1875
1876
1877
1878
1879

006626
006632
006640
006644
006646
006650

105377
112777
013700
012710
352
112777

172530
000010
001372

012777

352
000014
101000

1882
1883
1884
1885

006670
006676
006704

105377
112777
012777
112777

172472
000010
166000
000014

1888

006720

112777

}g;%

}gg?

TEST 35

:QtttttttttttQtttt'ttt'tt.ti.'...tttt'.tlttQttttt.t"ifi.ttt‘ttt..t.tQ

006620

006656

006712

012777

1889

006726

012777

1891

006742

112737

1890

TO SEC

006734

112737

040002

100200

177772

000350

000357

(001226
001216

TST35:

Mov

#35, TSTNO

MOV

#TST36,NEXT

DECB
MOVB
MOV
MOV

@DQRCSH
#10,3DOREG
DQSEC,RO
(PC)+ . (RO)

*SEL CHAR ADD 16
*GET CHAR DET REG
;
*LOAD THE REGISTER

172512
172506

MOVB

#14.3DOREG

“SEL THE SEQ REG.

172472
172466
172456

DECB
MOVB
MOV
MOVB

aDQR(SH
#10,aDQREG
#354%400,aDQSEC
#14 ,aDQREG

172442

MOVB

#3,3DOREG

MOVB

#250,TXBUFF+1

172544
172530

172452

JSR
MOV

BYTE

MOV

172436

MOV

012020

MOVB

012015

PC,SET.UP
:SET UP ALL NECESSARY FOR TEST.
#BI1T14+BIT1,aDQSEC

352,352

:SET DBL CHAR AND SET T

‘WITH THIS DATA

#B]1T15+BIT9,aDQSEC.

sSET SNGL CHAR AND DLE

;SEL CHAR ADD 15(8)
;GET CHAR ADDRESS
;LOAD WITH DATA
;SEL THE SEQ REGISTER
#B1715+B1T7,aD0SEC
#~6 ,aDQSE

#357.TXBUFF+4

sSET SNGL CHAR AND SET DONE CLEAR GO
“SEL THE TX WC PRI.
“SET FOR 6 CHARS

:LOAD
:

DATA

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

006750
006756

1895

006772

189%

112737
112777

000354
000006

105277

172372

006764

012777

007004

012777

012054

08:38 PAGE 39
PROGRAM INITIALIZATION AND START UP.

012054
172404

1898

1899
1900

007012
007016

004737
112777

1901
1902

007024
007030

005777
001001

1905
1906

007042
007046

005777
001001

}% 007052

104400

1903
1904

1907

007032
007034

007050

1910
1911
1912
1913
1914

104003
112777

177770

011620
000007

172342

000001

172324

INCB

BIS

cem +BIT12, aooéaa

172360

MOV

#-10,3DQSEC

ST
BNE

aDASEC
.+

*SHOULD BE NON-ZERO.
*BR IF OK.

ST
BNE

aDASEC
. +4

*RX WC PRI S/B ~or-o
*BR IF OK

172326

HLT

SCOPE

TEST

;
007054

012737

000036

004737

011024

007074

012777

007070

1924
1925

007102
007106

1927

007122

1929
1930

1931

040002

112777

000014

172240

012777

007136

112777

012777

166000

“TX DID NOT DET ‘‘SET DONE CLEAR GO
SEL THE RX WC PRI.

sRX NOT DET CHAR SET DONE CLEAR GO.

*SCOPE THE TEST.

THAT

THE

TRANSMITTER WILL EXIT T

DECB
MOVB

@DQRCSH
#10,aDQREG

MOVB

#14,aDOREG

;SET DBL CHAR AND SET T
*GET CHAR ADDR 16(8)
*GET CHAR REG.

aDQR
JSEL TX WC SEC.
4ems+smz aDOERR

172200

MOV

#-10,aDQSEC

005277

007230

005777

172220

000350
000354

012017
012055

032777
001774
112777

000100

172144

000003

172140

001001

sSET UP ALL NECESSARY FOR TEST.

#BIT14+81T1,aDQSEC

INC8
BIS

007206

007252

PC,SET.UP

MOV

#TST37 NEXT

172202

012054

112737
112737

001401
104003
112777
005777

JSR

MOVB

177770

00723.
007236
007240
007246

#36, TSTNO

172224

012777

1943
1944
1945
1946

MOV

000006

007164

007212
007220
007222

TST36:

MOV

1935

1939
1940
1941

TEST %6

172234

100200

172212
030000

1947

;SET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
*SEL THE TX WC SEC.

MOV

105277
052777

1942

“SET SEC. FOR 10(8) CHARS

172250

00715¢
007156

1938

3
#1,3aDQREG

;SET WRITE ENABLE AND EXIT T

2232232223232 222323222323 232233 33823223323 333323323 2333232233322 2332223222232322323

172270
172254

007130

007172
007200

001216

172254
000010

012777

1936
1937

001226

105377
112777

007114

007144

007260

1932
1932

1934,

PC ,ENABLE
#7.3DQREG

LOAD BA AND SEL WC SEC.

“WHEN ENTERED BY '‘SET

1922

1928

012737

1926

nxeurm.o aDQSEC

007062

1923

HLT
MOVB

104003

1920
1921

JSR
MOVB

172344

1917
1919

:EXIT T SHOULD SEND DLE TTIS SHOULD SET DONE THEN!''
*SEL TX BA SEC.

MOV

1915
1916

1918

#354,TXBUFF+40
#6,aDQREG

172400

189 006776 052777 030000 172362

1897

MOVB
MOVB

SEQ 0038

172152

172136

000007
172120

172122

MOV

1%:

#354x400,aDQSEC -LOAD CHARACTER

*SEL THE SEQ REG.

#B1T15+8177,aDQSEC
#6.3DOREG

JSET SNGL CHAR AND- SET DONE CLEAR GO.
“SEL TX BA SEC.

nxeurmo aDQSEC

sSET WRITE ENABLE AND EXIT T
“SET FOR 10((8) CHARS

MOVB
MOVB

#350.TXBUFF+3
#354.TXBUFF+41

BIT
BEQ
MOVB

#BIT6,aDQATCSR
1%
#3,3DQREG

+HANG HERE FOR TX SEC. DONE.
;BR IF NOT DONE
JGET TX WC PRI.

L+
3
#7.3DOREG
acASEC

‘BR IF
;TX WC PRI NOT=0
“SEL TX WC SEC
*1S NOT =0?

INC

aDATCSR

TST

aDASEC

BNF

BEQ
HLT
MOVE
ST

:LOAD DATA
:SAME

*SET TX GO.

YIS IT =0

‘BR If OK

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

007254
007256

HLT

Wh)
=

SCOPE

D
D

;

;TX SEC WC S/B NON-ZERO.
:SCOPE THIS TEST.

TEST %7

: L2 3322232322233 23332333323 232323233 323333333 3333332332323 3 2223333232232 232222222%23

)

TsT37:

MoV

MOV
JSR

#7740, NEXT
PC,SET.UP

:SET UP ALL NECESSARY FOR TEST.

MOV

#BIT14+B1T1,aDQSEC

DECB

@DQRCSH

;SET DBL CHAR AND SET T

O0-==
_—

172064

#37,TSTNO

172050

MOVB
MOV
MOV

#10,aDOREG
DQSEC,RO
(PC)+. (RO)

o=
—_

001226
001216

000014
101000

172032
172026

MOVB
MOV

#14.3DOREG
*SEL THE SEQ REG °
#BIT15+81T79,aDQSEC

N.‘-‘-—I—l

000037
007470
011024
040002
172050
000010
001372

000350
012016
000101
000026
012026

012015

MOVB

#350, TXBUFF +1

O=mO—

VIS W

“INHIBITED WHEN IN TRANSPARENT MODE.

D e
D
d
D
D e

SEQ 0039

STEST THAT THE RECEIVER STRIP SYNC IS

d
e
d

2001
2002
2003

PROGRAM INITIALIZATION AND START UP.

104003
104400

_ —

2 =
_—

2000

PAGE 40

$333 $3
38838388885 8858858 :: $3333
SERE
33 £888
F3E32335953 3393

1948
1949

08: 38

101

000003

171756

BYTE

1%:

*SEL CHAR REG
:
:LOAD THE CHAR

*DATA

;SET SNGL CHAR AND DLE
;LOAD BUFFER

MOV

#TXBUFF +2 ,RO

MOVB

#26,(R0O)+

JSYNC

MOVB

#101, (RO) +

CMP

:TXBUFF*12.RO

MOV

#3,aDQRCSR

BNE

171756

101,101

*SEL CHAR ADD 16(8)

JKEEP STUFF ING

;

“SET STRIP SYNC AND GO(RX)

171746

INC
;gle

012216
000000

gggs

MOV

#RXBUFF ,RO

*GET RX POINTER

000350

HLT
g?ge

3
0320.(R0)*

“FIRST DATA CHAR WRONG
*NEXT CHAR S/B=350

*RX BUFFER WRONG

BEN
HL i
ggge

. +4
3
l22.(R0)*

3
*DLE NOT THERE
*SYNC PRESENT?

HLT
CMP
BNE
SCOPE

3
#RXBUFF+10,R0
2%

*LCOKS LIKE SYNC STRIPPED?
-BUFFER DONE?
‘BR IF NO
*SCOPE THIS TEST

000107
000026

012226

2%:

HLT

CMPB

aDATCSR
aozacsn

sDLE

voz(no>+

#1017, (RO)+

“SET TX GO
*HANG HERE FOR RX DONE
*FIRST CHAR $/B=0

*DLE PRESENT?

“VERIFY THAT BIT 8 OF THE SEQUENCE

"REGISTER STRIPS CHARS FROM CORE BUT NOT

“FROM THE 3(C.

(P)

08: 38

PAGE 41

;

TEST 40

SEQ 0040

PROGRAM INITIALIZATION AND START UP.

MoV

MOV
JSR

MOV

171654

2OHrNO

283
S3Z 8238
=R
gy

- OO

—

TsT40:

DECB
MOVB

MOV

—-

~
~
~N

001226
001216

MOVB
MOV

1%:

013036

8%:

#225+400,3DQSEC :LOAD CHAR

#14,aDQREG
*SEL THE SEQ REG
#BI1T15+81T8,aDQSEC

MOV

#8. . COUNT

(RO)+

;SET SNGL CHAR AND CHAR STRIP.
*GET TX POINTER
*CLEAR IT OUT

ALL DONE?

*BR IF NO

#200,aDQSEC

*SET FOR LRC 8

#225 . CHAR

:LOAD CHAR
:SAME
*SEL POLY REG

*SET FOR 8 BIT CHAR

*SET EXPECTED BCC CHAR

#3,3DOREG

#-202,aDQSEC

*SEL THE TX WC PRI.

-SET BIG

CLRB
MOV
MOVB

@DQREG
#RXBUFF ,@DQSEC
#1,aDOREG

MOVB
MOV
MOVB

#4.3DQREG
*SEL REC SECONDARY
#RXBUF F +20, aDQSE ¢
;SET WITH SEC ADRS
#5,aDOREG
;SEL CHAR COUNT

JSR
??g

PC ,NEWENA
COUNT,R3

*SET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
*SAVE COUNT

ROLB

*SHIFT RX BCC

DEC
BNE
HLT

R3
5%

MOV

48:
7%:

*SEL CHAR ADD 16(8)
*SEL CHAR REG

#350,TXBUFF+1
#225.TXBUFF+3
#17,3DQREG

MOV

6%:

@DQRCSH
#10,3DQREG

MOVB
MOVB
MOVB

MOV

:SET UP ALL NECESSARY FOR TEST.

#TXBUFF +201,R0

MOVB

000001
177775
000004
012236
000005
177577
011674
013040

PC,SET.UP

#BIT15+8173,aDQSEC
;SET BCC START CLEAR AND SNGL CHAR

CMP

CLRB

MOV

077

#1741 NEXT

#TXBUFF ,RO

MOV

777

#40,TSTNO

MOV

BNE

NNMNN%NNNNN—'
W

O=0

O-—=0—==

N~
WW
NN

8'\)0—. norororown
—ed 2 O o
- §o°
nonY
e P le e le Tm PP
lel

007470

b
b

"t't"ttttt'ittfit*t'**t.*i"i'fitt'ttfit.t.t'tttttttt'.'t.tt."Q.QQ".Q

SISSS
NS0 oO~NOWVESWN=O

2005

P le

SEEEEELEERrer g

CZDQF
MACY11 30A(1052)
07EJUL-78
CZDQFE.P1
09-JUN-78 07:5

ADC
CMP
BEQ

#-3,aDQSEC

#-201,aDQSEC

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

*SET CHAR COUNT
*SET CHAR COUNT

IMAGE

RO
CHAR,RO
4

*SAVE CARRY
*GOOD BCC?
*BR IF YES

*RX BCC WRONG'!

*ALL SHIFTS DONE?
*BR IF NO

MOV
gnge

#RXBUFF ,R1
CHQR,(Q1)*

*GET RX BUFFER
*CHAR STRIPPED

HLT

s &

#RXBUFF +10,R1
7%

-ALL DONE?
NOT YET

CMP
BNE

SCOPE

sTEST OF BCC

JTEST OF

*8 BIT CHAR NOT

TEST/ APPEND

BCC'S

TESTED/APPENDED

STRIPPED.

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

W)
—

-t

PORONONUT
)

010002
010010
0310016
010024
010032
010040
010044
010052
010054
010056

012737
012737
012737
012737
012737
004737
017737
1
1
104015
104400

000041
010060
100060
000000
000255
011454
171316

001226
001216
011022

SEQ 0041

TEST 41

INAE

A AR AR A AR A

AR AR AR

AR AR AR AR AR AR

AR AR AR AR

AR AR AR

AR AR,

#41,TSTNO

MOV

#TST42 NEXT

#BIT15+BIT5+BIT4 FUNCT.

13034
013032

#255,POLY

013030

QDEERR.ERR

EEFEREREEEE
L BRSNS
R RO R R

2060
2061

C 4
08:38 PAGE 42
PROGRAM INITIALIZATION AND START UP.

#000,XPOLY
PC,BCC.TA
-

sSET EXTENDED POLY.

:SET 00-15 POLY

:GOTO SUBROUT INE
;1S THE AN ERROR CONDITION?
:BR_IF NC ERRORS
;THE DQ11 ERROR FLAG IS SET!!
:SCOPE THIS TEST

s TEST OF BCC TEST/ APPEND

;TEST OF 2 BCC'S TESTED/APPENDED
.

TEST 42

010060
010066
010074
010102
010110
010116
010122
010130
010132
010134

012737
012737
012737
012737
012737
004737
017737
100001
104015
104400

000042
010136
100020

A A AR

TsT42:

A AR AR AR AR A

MOV

AR AR R AR AR A AR AR R AR AR

AR AR ARk ®

#TST43 NEXT
#BIT15481T4 FUNCT,

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

HLT
SCOPE

#42,TSTNO

#000 ,XPOLY

112001
011454
171240

AR AR R AR

.’4
15

;SET EXTENDED POLY.
;SET 00-15 POLY

;GOTO SUBROUT INE
;1S THE AN ERROR CONDITION?
:BR IF NO ERRORS

;THE DQ11 ERROR FLAG IS SET!!
:SCOPE THIS TEST

sTEST OF BCC TEST/ APPEND

;TEST OF

3 BCC'S TESTED/APPENDED

TEST 43
;ttfitttfittttitt!ttttfittt'ttiit.'..ttttttttiti'tttt.itt*tittt".'.t.fit

010136
010144
010152
010160
010166
010174
010200
010206
010210
010212

012737
012737
012737
012737
012737
004737
017737
1
1
104015
104400

000043
010214
100040
000225
112001
011454
171162

IST43:

MOV

#43,TSTNO
HTST44 NEXT

#BIT15+BITS FUNCT,
#225 ,XPOL
Y
SET EXTENDED POLY.
#112001.POLY
;SET 00-15 POLY

PC.BCC.TA
aDEERR.ERR
.+

:GOTO SUBROUT INE
:IS THE AN ERROR CONDITION?
:BR IF NO ERRORS
;THE DQ11

:SCOPE

ERROR FLAG IS SET!!

THIS TEST

CZDQF
MACYN 30A(1052)
_07-JuL-78
CZDQFE.Pi
09-JUN-78 07:58

08: 38

PAGE 43

SEQ 0042

PROGRAM INITIALIZATION AND START UP.

2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129

JMULTIPLE FUNCTION!!!!

*FUNCTIONS EXERCISED
START CHAR (350)

;15

;14
3k
;12
;08
;03
;01

SNGL CHAR MATC(CH

DBL CHAR MATCH
SNGL CHAR FLAG
DBL CHAR FLG
RX STRIP
BCC _START CLEAR
RX/TX TRANS

JEND CHAR (225)
SNGL CHAR MAT(H
215

213

;08
;07
;05
;02

SNGL CHAR FLAG

RX STRIP
CLEAR GO/SET DONE
BCC TEST /APPEND (3 BCC'S)
CLR RX TRANS

;DLE STRIP/ADD (20)
SNGL CHAR MAT(CH
213
.09
DLE STRIP/ADD

2130

2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159

:
A

010214
010222
010230
010234
010242
010246
(010254
010262
010270
010276
010302
010310
010316
010324
010332
010340
010346
010354
010362
010370
010376
010404
010412
010420
010426

012737

012737
004737
012777

000044

013050
011024
170412

105377
112777

171114
000010

112777

000014

105377
112777

17106V
000010

112777

000014

012777
012777

112777

112400
1206/°

010020
101000

001226

001216

171130

171060
171044

#14 ,aDQREG

:SEL SEQ REG

171030

#6.3DOREG
“SEL TX SEC ADRS
#TXBUFF +50,aDQSE
:SET SEC ADRS
#1,3DQREG
;SEL REC PRI SHAR CNT
#-200,aDQSEC ~ -SET CHAR CNT

171054

171040

012777

177776

170774

171024

171010
171000

112777

000017

170764

112777

000012

170750

000017

170734

000100

;SET UP ALL NECESSARY FOR TEST.

-LOAD THE SEQ FUNCTIONS

:
*SEL CHAR DET

171014

112777

#170412,3DQSEC

aDORCSH
#10,aDQREG

052777

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

*SEL SEQ REG

*71074

177600

172516

MOV

#14 ,aDOREG

171110

171100

012777

TST44:

RS ARSI
22233232222222222 22

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

012064

112777

aDQRCSH
#10,aDQREG

171114

012777

112777

TEST 44
A

170760

170744

#225+400,3DQSEC :LOAD CHAR.

#120644 ,3DQSEC
#10020,3DQSEC

c1oioooéaoossc

#67,aDQREG

:LOAD SEQ FUNCTIONS

LOAD FUNCTIONS

:LOAD DLE (20)

*SEL TXSEC CHAR CNT

#-2.aDQSEC
#17 . aDOREG

*SET CHAR CNT
*SEL POLY REG

#12,3DQREG
#1T6,aDQSEC

“SEL THE MISC REG
JSET THE "EXT POLY'' BIT

#172516,aDQSEC
#17 ,aDQREG

-SET *WILD* POLYNOMIAL

JWRITE POLY 16-23

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

2160
2161
2162

2163
2164
2165
2166
2167

010434
010642
010446

010450
010452
010454
010456
010460

012777
012700
012720

000275
012014

004737
005777
100401
104014
017737
100001
104017
122777
001401
104014
122777
001401
104014
112777
005777
001001

011620
170652

010564
010566

225

104014
112777

2191
2192
2193
2194
2195

010574
010600
010602
010604
010610

005777
007401
104014
012700
012702

2197
2198
2199
2200
2201
2202

010620
010622
010624
010630
010632
010634

001001
104014
122720
001001
104014
122720

2204
2205
2206

010642

104021

010644

005302

2208

010650

104400

2196

2203

2207

010614

010640
010646

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

:LGAD RO
;LOAD BUFFER WITH DATA

JSR
TST
BM]
HLT
MOV
BPL
HLT
(MPB
BEQ
HLT
C(MPB
BEQ
HLT
MOVB
ST
BNE

PC,ENABLE
aDQRCSR
. +4
14
aDQERR, ERR
.t
i7
#200,aDQRCSR
A
14
#300,aDOTCSR
.+
14
#1.3DOREG
aDASEC
. +4

BYTE

010476
010502
010506
010510
010512
010520
010522
010524
010532
010534
010536
010544
010546
010550
010556
010562

2189
2190

MOV
MOV

251

012064

010474

*LOAD THE BUFFER WITH DATA

371

012700
012720

2172

(PC)+, (RO)+

201

010466
010472

122710

001001

001362

MOV

377

.BYTE

170650

013030

000200

170626

000300

170620

000001
170610

170612

000003
170572

170574

012216
000010

000350

1%:

000225

000020

SEQ 0043

;
*GET POINTER
;LOAD THE BUFFER WITH DATA

224

2170
2171

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

.BYTE
MOV
BYTE
MOV
.BYTE

012720

2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188

MOV
MOV
MOV

350

010462

010464

170730

000
012720
311
012720
107

2168

2169

08:38 PAGE 44
PROGRAM INITIALIZATION AND START UP.

000,350
(PCS+, (RO)+
311,204
(PCI+, (RO)+
107,201
371,251

225,377

HLT
MOVB
TST
BEQ
HLT
MOV
MOV

14
#3,3DOREG
aDQSEC
.+
14
#RXBUFF ,RO
#10,R2

BNE
HLT
(MPB
BNE
HLT
(MPB

.+
14’
#4225, (R0O)+
L +4
14
420, (RO)+

CMPB

BNE

0356.(R0)

. +4

HLT

DEC

BNE

SCOPE

*DATA
*LOAD THE BUFFER WITH DATA
*DATA
:LOAD THE BUFFER WITH DATA
*DATA
*DATA

*DATA

;SET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
;:DID RX CHAR FLAG SET?
‘BR IF YES
;CHAR DET FLAG NOT SET.
*ANY ERRORS?
;BR IF NO ERRORS
:DQ11 ERROR FLAG SET!
-DONE(P)=1; P/S$=0: G0=0?
;YES
JRX CSR WRONG DATA
-DONE(P)=1; P/S$=0: GO=0?
:YES
;TX CSR WRONG DATA
“GET RX WC PRI.
*S/B NOT=0
*BR IF OK
JRX WC PRI S/B NON-ZERO!'!
*SEL THE TX WC PRI.

:S/B =0
:
;TX WC PRI S/B NON-ZERO
;GET RX BUFFER POINTER
“SET CHAR COUNT

;ARE THE TWO CHARS STRIPPED?

;
:CHAR "350'' NOT STRIPPED FROM CORE
:
;
*CHAR '7225'' NOT STRIPPED
*IS DLE STRIPPED?

:DLE STUCK =-- REFER TO M7817 ECO
;CHECK E84 ONE=SHOT
JALL DONE?

*NO

"SCOPE

THE TEST

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

2209
221)
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224

2225
2226
2227
2228
2229
2230
2231
2232

2233
2234
2235
2236
gg%g

2239
2240
22641
2242
2243
2244
2245
2246
2247
2248
2249
225C
2251
2252
2253
225
2255
225
2257
2258
2259
2260
2261
2262
2263
2264

010652
010652
010656
010662
010670
010676
010702
010706
010710
010712
010716
010722
010726
010734

010740
010746
010752
010756
010760
010762
010766
010766

010774
011002
011004
011012
011020

011022
011024
011024
011026
011032
011036
011040
(011042
011044
011050
011056
011062
011070
011074
011100
011102
011110
011112
011120
011126
011132
011140
011146
011154
011160
011166

105077
012705
152777
142777
005077
105277
005305
001364
105077
105077
012705
112777
005077

170512
000020
000020
000140
170470
170462
170452
170440
000020
000010
170432

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

MEMCLR:
170500
170472

1%:

170434

2%:

112777
005077
105277
005305
001362
105077

000014
170420
170404

170422

112777
012777
000240
112777
012777
000002

000012
000040

170374
170370

000012
000040

170356
170352

170374

000000
104413
012702
012700
105020
005302
001375
105077
012777
105277
012777
105277
005737

100404
112737
000403
112737
012777
105277
012777
112777
013777
105277
012777
032737

000010
012014

170320
012216
170306
177770
170274
001510

170314

170302

000377

012012

000026
012012
170236
177766
000011
012010
170210
004000
040000

012012
170244
170232
170222
170216

170204
001570

CLRB
MOV
BISB
BI(B
CLR
INCB
DEC
BNE
CLRB
CLRB
MOV
MOvB
(LR

aDQREG
#16. ,R5
#B1T4 ,aDAREG
#140,aDQREG
aDQSEC
aDQREG
R5
1%
aDQREG
aDQR(SH
#16. ,R5
#10,aDAREG
aDQSEC(

BNE
CLRB

2%
aDQRCSH

MOvVB
CLR
INCB
DEC

.MSTCLR:

MOVB
MOV
NOP
MOVB
MOV
RT]

FUNCT.: O
SET.UP:
MEMCLR
MOV
MOV
(LRB
DEC
BNE CLRB
MOV
INCB
MOv
INCB
TST
BM!
MOVB
BR
10%:
MOVB
20%:
MOV
INCB
MOV
MOVB
MoV
INCB
MOV
BIT

SEQ 0044

#14 ,aDQREG
aDQSEC
aDARCSH
RS

#MISC. ,aDQREG
#B81T5,aDQSEC
#MISC. ,aDQREG
#B1T5,aDQSEC

#10,R2
#TXBUFF ,RO
(RO) +
R2
.4
aDQREG
#RXBUFF ,aDQSEC
aDQREG
#-10,aDQSEC
aDQREG
DQSTAT

108
#377,SYNC
208
#26,SYNC
#S NC,aDQSEC
aDQREG
#-12,aD0SEC
#11,aDQREG
- SYNC,aDQSE(
aDQREG
#.700,aDQSE ¢
#JUMBIT DQSTAT

sCLEAR ALL THE DQ11 REGISTERS
;PREPARE TO CLEAR THE TX BUFFER
;GET THE BUFFERS ADDRESS
sSTART CLEARING
JALL CLEAR?
sBR IF NOT DONE.
;SELECT THE RX BA PRI.
;LOAD RX BA PRI.
;GET RX WC PRI.
;SET FOR 8. CHARS.
;GET THE TX BA PRI.
;ONE SYNC CHARACTER?
:IF NO, BR.
:SET MARK.
s CONTINUE.
RESTORE SYNC C(HARACTER.
;SET ADDRESS
JSEL THE TX WC PRI,
sSET FOR 8. (HARS AND 2 SYNC'S
;SEL THE SYNC REGISTER
sLOAD WITH SYNC
JSELECT THE MISC REGISTER
JSET FOR EIGHT BITS.
;IF TEST 'UMPER AT END OF C(ARLE;

S0
8
EF S isveg
F¥Sl#3L

JRUN DATA THROUGH IT.
:NO TEST JUMPER; SET TEST LOOP
“GET LAST CHAR DET ADDRESS.
*SEL CHAR DET REGISTER

112777

MOVB

#14,aDOREG

“GET THE SEQ REGISTER

MEMCLR
MOV
MOV

#20,R2
#XTXBUF ,RO

;CLEAR ALL THE DQ11
:PREPARE TO CLEAR THF TX BUFFER
“GET THE TX BUFFER ADDRESS.

DEC
BNE
ST
BM]
MOV
BR
MOV
MOV
CLRB
MOV
INCB
MOV
INCB
MOV
INCR

R2
.~
DQSTAT
108
#-1,XSYNC
208
#13026, XSYNC
#13026.XSYNC2
@DOREG
#RXBUFF ,@DQSEC
@DQREG
#-10,aDQSEC
@DQREG
#XSYNC,@DQSEC
@DQREG

*DONE?
‘BR IF NO
:ONE SYNC CHARACTER?
:IF NO, BR.
“SET MARK.
* CONTINUE.
*LOAD SYNCS
:DITTO
“SEL THE RX BA PRI.
:LOAD THE ADDRESS
“SEL THE RX WC PRI.
“SET FOR TEN CHARS
“SEL THE TX BA PRI.
:LOAD THE ADDRESS.
“SEL THE TX WC PRI.

.SYNC ,@aDQSE(

*LOAD SYNC

000207

XT.

RTS

CLR

012420

012420
012422

108
20%:

170050

170036

170024

MOV
MOVB

170012
170002
167776

MOV

INCB

167750

TM ]

—

\NNNNWQWNNNM
n
~N

167704

167650
167640
167634
167624

167670
167664
167654

N —

777

167620
167610

167604

#-12,aDQSEC
#11,3DOREG
@DQREG

#8]173,aDQSEC

MOVB
RTS

B(C.TA:

(RO) +

BIS

MOV

167726
167716

aDQSE C

MOVB
MOVB

167732
167732

#350+400,aDQSEC :LOAD THE CHARACTER

CLR

BIT
BNE

001510

77
777

SEQ 0045

JSR

MOV

DECB
MOVR

MOV

MOVB
MOV
MOVB
MOV
MOVB
BIS
MOVR
MOV

#JUMBIT.DOSTAT
.+10

*LEAVE ROUTINE POINTING TO SEQ REGISTER.

*START CLEARING

“SET FOR TWO SYNC AND 8. CHARS
“SEL THE SYNC REGISTER
*SEL THE MISC REGISTER.

“SEL 16 BITS PER CHAR.

:IF TEST JUMPER INSTALLED;
“RUN DATA THROUGH CABLE.

*NO JUMPER; SET TEST LOOP!

#17.aDORCSH
#10.aDOREG

“GET LAST CHAR DET ADDRESS
“GET CHAR DET REGISTER

#14,aDOREG

“SEL THE SEQ REGISTER

PC,SET.UP

:SET UP ALL NECESSARY FOR TEST,

#3721 ,aDQSEC
PC

*LOAD CHARACTER

*LEAVE THE ROUTINE.

#BIT15+B113,aDQSEC

@DQRCSH
#10,aDOREG

SSET SNGL CHAR AND BCC START C(LEAR
“GET NEXT ADDR
*SEL CHAR DET ADDR

#376+400,3DQSEC :LOAD CHAR
#14.aDOREG
FUNCT..@DQSFC
#17.aDOREG
POLY,aDQSEC
#12,aDOREG
#8176,aDQSEC
& 7.aDOREG
XPOL Y, aDQSE

“SEL THE SEQ REG.
-SET THE TEST APPEND FUNCTIONS
*SEL THE POLY REG.
*LOAD THE POLYNOMIAL.
“SEL THE MISC REG
“SEL EXT POLY REG
“RESEL. THE POLY REG

SGET 16=23 POLY

T
Y

MOV

012777

011466
011472
011500
011506
011514
011522
011530
011536
011544
011552
011560

.+10
#BIT3,aDQSEC
#17.3DORCSH
#10.aDQREG

011454
011454
011460

112777
112777

BNE
BIS
MOVB
MOVB

1003

052777

O—=O=O—=0O=0O==

011174
011176
011204
011212
011220
011226
011234
011236
011236
011240
011244
011250
011252
011254
011256
011262
011264
011272
011274
011302
011310
011314
011322
011326
011334
011340
011346
011352
011360
011366
011374
011400
011404
011412
011414
011422
011430
011436
011444
011452

2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320

¢4

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

CZDQF

08:38 PAGE 46
PROGRAM INITIALIZATION AND START UP.

47
PAGE INITIALIZAT
08:38
8
07-JuL-7
)
30A(1052
MACY11
ICZDQF
ION AND START UP.
PROGRAM
09-JUN-78 07:58
CZDQFE.P11
H

2321
2322

011566
011572

012700
012720

2324

011576

012720

2323 011574

2325 011600

012014

350

355

360

365

2326 011602 012720
370
2327 011604
2328 011606 012720
377
2329 011610
2330

011612

004737

211620

2333
233,
2335
2336
2337
2338
2339
2340
231

011620
011624
011632
011636
011642
011646
011650
011654
011656

005037
012737
005277
005277
105777
100407
005237
001372
005337

011670
000005
167522
167522
167512

233

011664

011666
011670
011672

104001

000207
000000
000000

2348
239

011674
011700

005037
012737

3%%’

011616

000207

232 011662 001367

2344
235
5229

2350
2351
2352
2353

2354
2355
2356
2357
2358
2359
2360
2361
2362

011706
011712
011716
011722

011724
011730
011732
011736
011740
011742
011744
011752
011760

005277
005277
105777
100410

012004

105277
017701
000207
000000
000000

167372
167370

233 011766 017700 167400

2364
235
2366
2367
2368

2369
2370

2371
2372

2373

237
2375
2376

011772
011776
012002
012004
012006

012010
012072

026
026

012216

012216
000000
012420

012014

026
026

*LOAD THE BUFFER WITH DATA

(PC)+, (RO)+
370,375
(PCS+, (RO)+
377,377

*LOAD THE BUFFER WITH DATA

ENABLE: CLR
MOV
INC
INC
TSTB
$:
BM]
INC
BNE
DEC

BNE

012006

i%:

167416
167412
167402

HLT

RTS
000
000

NEWENA: CLR
MOV

012006

000012
000010
000015

(PCS+. (RO)+

RTS

2%:
3%
i$:

005237
001372
005337
001367
104001
000417
112777
042777
112777

MOV

JSR

011672

167446
167446
167436

:SET TX POINTER
:52?2 THE BUFFER WITH DATA

MOV
.BYTE
MOV
BYTE

011670

012004
000005

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

.BYTE

011672

2%:

SEQ 0046

MOV
MOV

BYTE

375
377

INC
INC
TSTB
BM]

INC
BNE
DEC
BNE
HLT
BR
MOVB
BIC
MOVB

MOV

350,355
360,365

PC.ENABLE
PC

3$
25,49

*DATA

:52?2 THE BUFFER WITH DATA

“SET GO BITS FOR RX AND TX; WAIT FOR RX DONE.
*LEAVE

:SET DELAY

aDORCSR
aDQTCSR
aDARCSR
2%
3¢
1%
4$

:SET RX GO.

“RX PRI DONE NOT SET.

3g
#5,48

;SET DELAY

aDQRCSR
aDQTCSR
aDQRCSR
2%

33
1%
43
1%
1
5%
#12,aDQREG
#B1T3,aDQSEC
#15,aDQREG

aDQSEC,RO

;SET TX GO.

;RX PRI. DONE?
:BR IF YES

B DELAY o suwiinniied

LEAVE

:SET RX GO

:SET TX GO

;RX PRIMARY DONE?

;BR IF YES

;D?}AY

JRX PRI DONE FAILED TO SET

sLEAVE

;SEL THE MISC REG

:STOP DATA
sSEL RX BCC
:READ

INTO RO

5§:
2$:
i$:

@DOREG ;SEL TX BCC
INCB
;READ INTO R1
R
aDQSEC
MOV
sRETURN
PC
RTS
.WORD 0
"WORD

LSYNC:
SYNC:

.BYTE
.BYTE

TXBUFF: 0

.=.+200
RXBUFF: 0
.=.+200

26,26
26.26

026
026

08:38

026
026

PAGE 48

SEQ 0047

PROGRAM INITIALIZATION AND START UP,

.BYTE 26,26
BYTE 26,26
XTXBUF: 000000
.=, +200

XSYNC:

XSYNC2:

012626

XRXBUF: 000000

013030

ERR:

.=.+200

COOOQOOO

012420
012422
012424

;END OF PASS

s TYPE NAME OF

TEST

;UPDATE PASS COUNT

sCHECK FOR EXIT
csRESTART

EOP:

(LR
(LR
INC

TEST

TO ACT=11

LSTERR
ERRFLG
PASCNT

;CLEAR LAST ERROR PC
;CLEAR ERROR FLAG
;UPDATE PASS COUNT

MOV
DEC
BNE

PASCNT
,aL IGHTS
SAVNUM
RESTRT

;DISPLAY PASS COUNT

MOV
BEQ

a#é2 R
RESTRT

sCHECK FOR ACT=11 OR DDP
s1F NOT, CONTINUE TESTING

JSR

PC,(R1)

MOV

ATST1,RETURN

TYPE

MEPASS
TYPE

MCSRX

CNVRT

XCSR

MVE (X

CNVRT
XVEC
TYPE

MPASSX
CNVRT
XPASS
TYPE

MERRX

S 88

NN N
Wi
bNO&%%&S&NbN&SObNBObNO??

—d —d —d
e
)

N NN W

) —d
)

) —d

) e

NN
NN

)
)

NN
N N
N

e
—

N NN NN

TYPE

AN U

A IAN (AN TS T ST NI NI ST NT,NT. 8

888% FREELLEIIS =

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

elelelelelelelelelelelolelelolelolelololololele]

CZDQF
CZDQF

CNVRT
XERR

166044

001276

MOV

LOGICAL:

012737

002254

001214

RESTRT:

DGNUM, SAVNUM

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

2433
2434
2635
2636
2437
2638
24639
2640
2641
2642
2643
2644
2445
2446
2447
2448

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

000137
000001
006
001360
000001
003
001350
000001
006
001230
000001
006
001232

08:38

002254

PAGE 49

END OF PASS ROUTINE
XCSR:

002

XVEC(:

002

:
XPASS

002

XERR:

002

.{H’

sTm

BYTE

6,2

BYTE

3,2

BYTE

6,2

BYTE
ERRCNT

6,2

QQRCSR

QORVEC
7ASCNT

;SCOPE LOOP AND INTFRATION HANDLER
165732

. SCOPE: CKSWR
BIT
1781
BEQ

TSTB

165704

2460
2461
2462
2463
2464

2465
2466
2467
2468
2469
2470
2471
2472
2473
2u74
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488

0
013310
013312
013316
013322

013330
013336
01332
013344
013346

1%:

INC
CMP

001222

001012
105037
005037
012737
013737
013716
000002
001407
000432

2%:
001222
001214

BPL
MOV
BR
BIT
BNE
BNE

3%:

CLRB
CLR
MOV
MOV
MOV

BRW:
BRX:

632

#81T14,aSWR
1%
3%
aTK(SR

3%
@TKDBR,RO
2%
#SW11,aSWR
2%
LPCNT
LPCNT, ICOUNT
3%
ERRFLG
LPCNT

#75.,1COUNT

NEXT
,RE TURN
RETURN, (SP)

;CHECK FOR FREEZE ON CURRENT DATA
013350
013352
013360
013362
013366

104414
032777
001402
013716
000002

165620

001220

.SCOP1:

(KSWR
BIT
BEQ

1%:

RTI

MOV

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

;TELETYPE OUTPUT ROUTINE
013370
013372
013376
013404
013410
013412
013420
013422

010546
017605
062766
005737
001004
032777
0010624
105715

.TYPE:

000002
000002
015060

000002

010000

165560

1%:

300%:

MOV
MOV
ADD

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

BNE
BIT
BNE

300%
#SW12,aSWR
33

TST

TSTR

a#RDSW

(RS)

SEQ 0048

013424
013426
013432
013434
013442

100014
105777
100375
012777
105777

08: 38

BPL

165556

arzcsn

165550

MOV

#15,3TPDBR

000012
165526

165534

MOV

#12,aTPDBR

BPL
MOVB
BNE
MOV

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

TSTB
TSTB

3%:

RTI

sASCII

000004
000002

013520
000004

.INSTR: MOV
MOV
MOV
ADD

LINST1: AYPE

.MSG:

015652

000007
165446

1%:

165442

QTP(SR

STRING INPUT ROUTINE

R3,-(SP)

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

#7 ,R3

BPL

1$
aTKDBR, (R&)

TSTB

aTKCSR

#200, (R4

000200

8I1(8B

015240

TYPE ,MCRLF

165410
165404

333888
R5ERES
&H
o
no

—

B
fiESRERY

s I

leolelelelelelelelelolelelels]

arzcsn

MOV

MOVB

CMPB
BNE

000015

100375

MOV

200%:
165412

2%:

(R4) 425
200%

B8R

.INST1

BEQ

INSTR2

(MPB

QTKDBR,aTPDBR

BPL
DEC
BNE
BR

2%
R3
3 ]

. INSTE: MOV
MOV
.INSTG: TYPE

@TP(SR

. INSTG

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

015060

MQM
TST

015240

TYPE ,MCRLF

BEQ
4008
:

BR
INSTR2: MOV
MOV
RT]

a#RDSW

4«C0s

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

-l b

lole)

sCONVERT ASCII STRING TO CQCTAL
010546
010446

.FPARAM: MOV
MOV

JIS IT <*6>

(R4)+ 415

MOVB

TSTB

SEQ 0049

TSTB

000015

165542

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

165522

3600
013604

PAGE 50

R>,=(SP)

Ré.=(SP)

R
AT TR AR
BRI SRR I

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

015652
000015
000060

NNV

PAGE 51

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

0000
014052
014054

VIO

o Smw\nmmm
gwwwww

08:38

PARAM1:

MOV
MOV
MOV
MOV
MOVB
MOVB
MOV

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

(LR

CMPB

(R4) ,#60

ASL
ASL
ASL
BR

RS
RS
RS
1%

000067

000060
000015

s22

SN HSENOSH S
O==N)=NN)
SN VHNONVINO
S

8383 8-;-.—. SuSrndnad

O==20000

— d d
) d e d
row
s
N NININ
=N = = NOPNOVNOMNINONNON

CZDQF
MACY11 30A(105 )070;§JUL-78
CZDQFE.P11
09=-JUN=-7

000015

PARERR:

015060
120%8:

(MPB

#15,(R4)

BNE

PART]

PARAM1

BNE

INSTER

1208

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

sTEST TO SEE IF NUMBER IS WITHIN LIMITS
020537

014054

020537

014052

101365

014016
014022

103762
133705

001357

LIMITS:

014060

(MP
BHI
CMP
BLO
BITB
BNE

RS HILIM
PARERR
R5,LOLIM
PARERR
LOBITS,RS
PARERR

;STORE NUMBER AT SPECIFIED ADDRESS
014024

013704
010524
062705
105337

014056

000002
014061

1%:

PART]:

LoLim:

HILIM:

MOV
MOV

R4
DEVADR

RS, (R4)+

ADD
DECB

#2,RS5
ADRCNT

MOV

(SP)
+ R4

BNE

MOV

RTI

(SP)+,RS

DEVADR: 0
LOBITS: O

ADRCNT=LOBITS+1

:SAVE PC OF TEST

THAT FAILED AND RO-RS

SEQ 0050

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

2601
528%

014062

016637

000004

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

001274

.SAVOS: MOV

2"':‘026065
2606
2607
2608
2609
2610
2611
gg}g

;SAVE RO-RS
014070
014074
014100
014104
014110
014114
014120

010537
010437
010337
010237
010137
010037
000002

001270
001266
001264
001262
001240
001256

SV0S:

gg}§

H
J

2616
2617
2618

001256
001260
001262

.RESO5: MOV
MOV
MOV

2620 014142

013704

001266

MOV

2619 014136 013705 001264
014146
014152

013705
000002

2626
2627
2628
2629

014154
014156
014160
014162

104402
015240
010046
010146

2631
2632

014166
014170

010446
010546

2630

014164

001270

010346

014204
014212

062766 000002
012137 014374

014232

013704

014216
014222
014226

2641
2642

014236
014242

2640

013737

112137
112137
013137

113705
012700

2643 014246 010403

2644

014250

2648

014264

2645
2646
2647

2649
2650
2651
2652
2653
2654
2655
2656

042703

014254
014260
014262

062703
110320
000241

014266
014270
014272
014274
014276
014300
014302
014306

000241

MOV
RTI

SAVRS RS

000012
015714

014376
014377
014400

014400
014376
015714

177770

MOV
MOV

001250

SAVRS R4

000012

1%:

R3.=(5P)
R&.=(SP)
RS5.=(SP)

@12(SP)
,R1

ADD
MOV

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

MOVB
MOVB
MOV

TEMP, TEMP3

(R1)+.CHRCNT
(R1)+.SPACNT
@(R1)+,BINWRD

2%:

MOV

BINWRD
. R4

38:

MOV

R4 R3

ADD
MOVB
cLC

#060,R3
R3,(RO)+

000060

MOVB
MOV

BIC

ROR

000241

015756

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

MOV
MOV

006004

005305
001362
012703
114023

SAVRS RS

MOV

2635
2636

2637
2638
2639

017601

MOV

.CONVR: TYPE
MCRLF
.CNVRT: MOV
MOV

014172

014176

SAVRO,R0
SAVR1 .R1
SAVR2 R2

s CONVERT OCTAL NUMBER TO ASCII AND OQUTPUT TO TELEPRINTER

2633
263,

RS, SAVRS
R& . SAVR4
R3.SAVR3
R2.SAVR2
R1.SAVR1
RO, SAVRO

;RESTORE RO-RS
013700
013701
013702

%‘%

MOV
MOV
MOV
MOV
MOV
MOV
RTI

014122
014126
014132

2621
525%

4(SP) , SAVPC

4$:

CLC
ROR
CLC
ROR
DEC
BNE
MOV
MOVB

CHRCNT.RS
#TEMP,RO

#177770.R3

A
R4

Ré
RS
38
#°PATA,R3
=(R0),(R3)+

SEQ 0051

CZDQF

MACY11 30A(1052) 07-JuL-78 08:38 PAGE 53

CZDQFE.P11
2657

09-JUN=78 07:58

014310

105337

2658 014314 001374
2660 014322 001405
014324

2662

014330

2664

014336

112723
105337

2663 01433 001373
2665
2666
2667

DECB

014376

2668
2669
2670
2671
2672
2673
2674
2675

104402
015756
005337

014372

000002

014350
014352
014360
014362
014364
014366
014370

014377

6$:
014374

006316

2691
ggg;;

014426
014432

017616
000136

000002
000000

TRPOK:

(R3)

WRDCNT

1%
TEMP3, TEMP
(SP)+.RS
(SP)+.R&
(SP)+.R3
(SP)+.R1
(SP) +.RO

ASL

BIC
ADD

(SP) ,=(SP)

:GET PC OF RETURN

(SP)

“CLEAR UNWANTED BITS
*POINTER TO SUBROUTINE ADDRESS

#2,(SP)
a(SP), (SP)

#177001, (SP)
#.TRPTAB, (SP)
a(SP),(SP)
2(SP)+

:=PC OF TRAP
:GET TRP

:MULTIPLY TRAP ARG BY 2
:SUBROUTINE ADDRESS
:GO TO SUBROUT INE

:ERROR HANDLER
104414

JHLT:

014434

2698

014444

2700
2701
2702
2703
2704
2705
2706

014452 100003
014454 112777 000207 164530
014462 032777 020000 164510 xBX:
014470 001074
014472 021637 001234
014476 001404
014500 011637 001234

014436
014446

032777
001406

105777

014504
014510

105037
104406

014522

006304

010000

164534

001312

CKSWR

BIT

#SW12,aSWR

TSTB

@TPCSR

BEQ

164536

2709 014512 011605
2710 014514 162705 000002
2711 014520 011504
2712

SUB
MOV

MOV
JMP

000000

269

2707
2708

TYPE
MDATA
DEC

SPACNT

.TRPSR: MOV

014414

2699

CLRB

RTI

2694

BNE

#040, (R3)+

011646

2687

2697

DECB

CHRCNT

014402

162716
017616

SEQ 0052

48
SPACNT
6%

WRDCNT: 0
CHRCNT: 0
SPACNT=CHRCNT+1
BINWRD: 0
:TRAP DISPATCH SERVICE
:ARGUMENT OF TRAP IS EXTRACTED
:AND USED AS OFFSET TO OBTAIN POINTER
“TO SELECTED SUBROUTINE

2689 014416 042716 177001
2690 014422 062716 001314

MOVB

BNE
MOV
MOV
MOV
MOV
MOV
MOV

001322
013737 001250 015714
:
012605
012604
012603
012601
012600

014404
014410

2695

BNE
TSTB
BEQ

000000
000000
014377
000000

2676 014374
2677 014376
2678
2679 014400
2680
2681
2682
5&3

2685

5%:

000040

105013

014340
014342
014344

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

2659 ouge 105737 014377
2661

1%:

BPL
MOVB
BIT
BNE
CMP
BEQ
MOV

CLRB
SAVOS

MOV
SUB
MOV
AS|

XBX

XBX
#5W1%, aSWR
HALTS
(SP) ,LSTERR
1%
(SP) ,LSTERR

#207,3TPDBR

ERRFLG

(SP) ,RS
#2 RS
R4
(R&)
Ré

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

2713
2714
2715
2716
2717

2718
2719
2720
2721
2722
2723
2724
2725

2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768

014524
014526
014530
014534

014540

014544
014550
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
014656
014660
014662
014666
014670
014672
014676
014700
014702
014704
014710
014716
014720
014726
014730
014736
014742
014746
014750
014752
014754
014756

061504
006304
042704
062704

012437

177001
(16020

014632

012437 014644
011437 014656
105737 001312
001403
005737- 014656
001027
104402
015517

104411
014756
104402
015605
104411
014750
104402
015240
112737
005737
001402
104402
000000

005737
001402
104402
000000
005737
001402
104410
000000
104407
005777
100005
010046
016600
000000
012600
104414
005237
032777
001007
032777
001407
013737
012706
000177
000002
000001
006
001274
000001

177777
014632

014644

014656

164312
000002

001232
000400
002000
001216
001200
164246

002

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

ADD
ASL
BIC
ADD

MOV

MOV
MOV
TSTB
BEQ
TST
BNE
TYPMSG: TYPE
MTSTN

CNVRT
XTSTN
TYPE
MERRP(
CNVRT
ERTABQ
TYPE
MCRLF
001312
MOVB
TST
BEQ
TYPE
ERRMSG: 0
WRKO.FM:
TST
BEQ
TYPE
DATAHD: 0
TYPDAT: TST
BEQ
CONVRT
DATABP: 0
RESREG: RESO5
HALTS:
TST
BPL
PUSHRO
MOV
HALT
)
POPRO
EXITER: CKSWR
INC
164262
BIT
BNE
164252
BIT
BEQ
001214
MOV
.
1%:
MOV
JMP
2%:
RT]
ERTABO: 1
BYTE
SAVP(
XTSTN:
1

(RS) ,R4
R4
#177001
,R4
# .ERRTAB
R4

(R4)
+ ,ERRMSG

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

#-1,ERRFLG
ERRMSG
WRKO.FM
3
DATAHD
TYPDAT
DATARP
RESREG

aSWR
EXITER
2(SP) ,RO

ERRCNT
#SW08,3aSWR
1%
#SW10,aSwR
2%
NEAT
,RE TURN
#STACK,SP
aRETURN

6,2

SEQ 0053

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

2769
2770
2771
2772
2773
2774

014764

g;;g

014774

2775
2776

014760
014762

014764
014772

003
001226

002

012737
000

014776

000777

BYTE
3,2
STNO
ENTER HERE ON POWER FAILURE

000024
:

PFAIL:

2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798

#RESTART ,24

;SET _UP FOR POWER UP TRAP
JHALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED

014776
014776
015004
015010
015014
015020
015022
015024
015026
015030
015032
015036
015042
015044
015046
015052
015054
015056

012737
012706
005037

005237
001375
104402
015242
104411
015052
005037
005037
104412
104413
000177
000001
003
001226

014764
001200
015714

164142

PFTAB:
BYTE

002

000000

015062
015066
015070
015076
015100
015104
015106

005737
1042
022737
001036
105777
100033
017737

000042

2815
2816
2817
2818
2819
2820
2821
2822
2823
2824

015122
015130
015132
015136
015142
015146
015152
015156
015160
015162

122737
001021
104402
005137
104402
104411
104403
104405
000000
177777

000007

042737

RESTAR:

001312
001234

015060

015114

000024

015714

2801
2802
2803
2804
2805
2806
2807
2808
2809
281C
2811
2812
2813

2814

MOV
HALT

%;gg

2781
2782
2783
2784

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

MOV
MOv
CLR

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

#.PFAIL ,24
#STACK,SP
TEMP

;SET UP FOR POWER FAILURE

TEMP
.~4

ERRFLG
LSTERR

aRETURN

;CHECK SWITCH REGISTER ROUTINE. (HECKS FOR “G TO ALLOW CHANGING
;0F LOC.176.
;LOCATIONS USED:
RDSW:
.WORD
O

000176

.CKSWR:
001200

164100
164074

177600

015210
015060
015214
015202
015223

013520

TST
BNE
(MP
BNE
TSTB
B8PL
MOV

BIC

ans?
ouT
#SWREG, SWR
ouT
aTKCSR
ouT
aTKDBR, .MSG

#177600, .MSG

(MPR
#7,.MSG
BNE
ouf
TYPE ,$CNTG
LCNTLU: COM
a¥RDSW
TYPE
, SMSWR
CNVRT, SWREGC
INSTR, SMNEW
PARAM
0
177777

SOFTUARE SWITCH REGISTER PRESENT
GET Our
VES WAIT FOR
READY, GET CHARACTER
SAND STRIP OFF

: THE GARBAGE

IS IT A <*G>

SEQ 0054

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

2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848

015164
015166
015170
015174
015200
015202
015204
015206
015210
015214
015222
015223
015230
015234
015240
015242
015250
015256
015264
015272
015300
015306
015314

000176
000
104402
005037
000002
000001
006
000176
057377
051777
000
040
020075
015234
020040
000377
050377
044501
051040
052122
042524
042777
051501
050504

2850

015325

377

2857
2858
2859

015374
015402
015410

2861

015420

044777
044506
020124
000041
052377

2863
2864
2865
2866
2867

015432
015440
015446
015454
015461

2869

015467

046377
047117
041505
042524
103
000
688

2871
2872
2873
2874
2875
2876

015475
015502
015506
015514
015517
015524

2879
2880

015540
015546

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

001
015240
015060

.BYTE

SWREG

020075

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

053505

SMNEW:

.ASCIZ

.EVEN
MQM :
MCRLF:
MPFAIL:

ASCIZ
LASCIZ
.ASCIZ

MEPASS:

.ASCIZ

<377>/END PASS DZDQF

MR:
MERR2:

LASCIZ
.ASCIZ

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

043125
047105
040524

MERR3:

.ASCIZ

<377>/INSUFFICIENT DATA!/

051505
0000
041517
051440
042524
052123
051123

020124

MISTPC:

.ASCIZ

<377>/TEST PC~/

020113
046105
020104
000
020072

MLOCK:

.ASCIZ

<377>/LOCK ON SELECTED TEST/

MCSRX:

.ASCIZ

/CSR:

041505

020072

MVECX:

.ASCIZ

/VEC:

1
035123
051105
020072
377
020124

051501
000040
047522
000
052377
047516

042523

MPASSX:

.ASCIZ

/PASSES:

051522

MERRX:

.ASCIZ

/ERRORS: /

051505
020072

MTSTN:

_ASCIZ

<377><377> /TEST NO:

053523
051040

052111
043505

044103
052040

MNEW:

LASCIZ

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

002
000107
051127
047040
000
000077
051127
042514
051505
040440
052123
042116
020123
020106
00 0
051120

000056
051516
044503
040504

043040
027104
040524
020124
000040
050040
055104
000040
043517

NEW= /

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

/
/
/

SEQ 0055

CZDQF
MACY11 30A(1052)
97§JUL-78
CZDQFE.P1T
09-JUN-78 07:5

2881

015554

020117
051447
05111
052103
000

08: 38 PAGE 57
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

000040
047440
030461
052524

MERRPC:
XHEAD:

.ASCIZ
.ASCIZ

/PC: /
<377>/MAP OF [Q11 STATUS/<377>

.EVEN
XSTATQ: 2
TEMP1

015650

BYTE

.FVEN

TEMP?2

6.2

JBUFFERS FOR [NPUT=QUTPUT

ELE

015652

— OV NON VB WN=O

BBBY
N
= = ¥y YYBYY

2907

INBUF:
.=.+40

015714

TEMP:

015756

MDATA:
O
=.+40
ERRTA: 0
0
0
EMO

016020

=,+40

JHALT O

JHALT 1

0
0
EM?
DHO

JHALT 2

8H1

JHALT

EM2
8H2

JHALT &

EM2
8H3

JHALT

DHS

JHALT

8H6

JHALT

DT1
EM2

EM2

8H4

EM2

0
EM?

EM?

DH7

SEQ 0056

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

2962
2963
2964
2965
2966
2967
2968
2969

042777
377
042377

017230
017232
01723
01723
017240
017242
017244
017246
O 7250

000002
0
013044
00
013042
2
003
013044
003

046777

046125

050130
050504
042514

044524

041505
051105
051440

DH12:

DH13:
DH14:
0?12:

DT1:

002
006

002

DT2:

SHALT 14
;HALT 15
:HALT 16

:HALT 17
SHALT 20

g Bt

:HALT 21

g g gB B B B B B

EMO:
MSG13:
EM1:
EM?2:
EM3:
EM4:
EMS:
EM6:
DHO:
DH1:
DH2:
DH3:

:HALT 13

g gB

044505
041440
040522
052123
020103
020101
020061
051040
051101
030460
030124
031460

.EVEN

;HALT 12

NNNNNNNNNNNNNNNNNNNNNN

0 17124
017160
017203
017214

041505
042510
040510
042524
041502
052101
030521
047516
044103
052111
044502
052111

DT3
EMG
DH13
DT2
EMS
DH14
DT3
EMG
0
0
DH12
DHIS
0

alnlalalalalzlialatalalnlalalal

01725
016462
017160
017242
016506
017203
01725
016533
000000
000000
017124
017214
000000
051377
052377
041777
377
377
042377
042377
377
377
041377
377
041377

EM?
DHIO
0
EM?
DHI1
0
DH12
0
0
EM3
DH14

DO nnhuvuvunhnhuvunmnunununounn

016142
016144
016146
016150
016152
016154
016156
016160
016162
016164
016166
016170
016172
016174
016224
016314
016361
016403
016462
016506
016533
016563
016624
016643
016664

016361
017050
000000
016361
017075
000000
017124
000000
000000
016403
017203

S St e (g g B

298
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961

016114
016116
016120
016122
016124
016126
016130
016132
016134
016136
016140

>>>>p>PBEEBEBBBDD

2937
2938
2939
2940
2941
2942
2943
2%4
2945
296
2947

08:38 PAGE 58
GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.)

:ASE

.AS
.AS C
.AS ¢

2
.BYTE
GDCHAR
BYTE
ADDR
2
BYTE
GDCHAR
AYTE

<377>/RECEIVER DONE NOT SET!/
<377>/THE CHARACTER DETECT OPTION <BB8> 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>/BIT02 -CLEAR T~/
<377>/BIT03 -BCC START CLEAR-/
<377>/BI1T06 -CLEAR ACTIVE-/
<377>/B1707 -SET DONE; CLEAR GO-/
<377>/BIT08 -CHARACTER STRIP-/
<377>/BIT10 =TX PAD-/
<377>/BIT11 -BCC EXCLUDE=-/

<377>/BIT08 =-RX CHAR STRIP=/
<377>/MULTIPLE FUNCTIONS FAILURE/
<377>/EXPECTED RECEIVED/
<377>/DQERR
/
<377>/DLE STUCK /

.3
2,2
3,6

5,2

SEQ 0057

| CZDQF
\CZDQF

2970
2971
2972
2973

2974

Pfic\m
017252
01725¢
017256
017260

Z0A(1052)
07=JUL=-78
09-JUN-78 07:58
Q13036
000001
006
01303C

002

08:38

PAGE 59

GENERAL UTILITIES

DTS
LEND

(TYPE OUT,ERROR,SCOPE,ETC.)

(HAR

1
BYTE

ERR

6.2

SEQ 0058

MACY11 30A(1052) 07-JuL-78
(ZDQ
09-JUN-78 07:5 8
CZDQFE.P1

013042

1235+

014061

25984

BiT2 =
BIT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
013344
BRW
013346
BRX
CHAR
013036
CHARDT= 000010
001236
CHAR1
001240
CHARZ
CHAR3
001242
CHK.AD 004314

CHRCNT 014376
CKSWR = 104414
CNTLU = 104415
CNVRT = 104411
104410
CONVRT=
013040
COUNT
0071300
CREAM
CSRMAP 000220
DATABP 014656

DATAHD

(014644

DEVADR
DHO
DH1
DH10
DH11
DH12
DH13
DH14
DH15

014056
016563
016624
017050
017075
017124
017160
017203
017214

DETCAR

013046

D
b
)
D ad el
)

BABIT = 010000
20000
88817
BCC.TA 011454
BINWRD 014400
BITO = 000001
= 000002
BIT1
iT10 = 002000
BIT11 =
000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT1S = 100000

1274+
14 36

1404+

)

ADRCNT=

002000
004000

—

ADDR

CO==—=—=00N=O
S AN
NN —ON00
&
NGO
NO N
N0 —

ABE |
ACTBIT=

SEQ 0059

08:38 PAGE 61
CROSS REFERENCE TABLE == USER SYMBOLS
1287+
1468

1326+

1300+

23884

1339+

1352«

1365+

1922
1808

1961
1814

2450
1880

1392

1961
1896

1933

1679
1626
2080

1733
1671
2096

2308

2299

2308

2361

1493

1671

1679

1886

1928

1852

2026+

2042

2048

23864

2970

1275
14344

1301

1314

1327

134C

1353

1366

1379

1843

1262
1431

1778
1718

2657

26774
1011

2449

2473

2696

2755

2409
2746

2413

2726

2730

2789

2820

1440
1050+

1583«
1054+

1602

1064+

1828+

1065

1839
1066+

1848

2025+

2038

23874

2744
27434

27474k
1174+

1185

1191

1192

1215+

1437+

1438+

996

1128

25964

2914
29614

1134

1446

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

DHZ
DH3

DH4
DHS
DH6
DH7
DISPRE

016643
016664

016715
016743
016777
017030
000174

DLIGHT= 177570
DQACTV 001500
DQCROO 001400

DQCRO1
DAQCROZ
DQCRO3
DQCRO4
DACRO5
DQCRO6
DQCRO7
DACR10
DQCR11
DQCR12
DQCR13
DQCR14
DQCR1S
DACR16
DQCR17
DQCSR
DQERR
DANUM
DQRCSH

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

DQRCSR
DQREG

2920
2923

2926
2929
2932
2935
6894

5744
669
8874
8894
8914
8934
895#
8974
8954
9014
9034

29614
29614
29614
29614
956

947
743>

1063+
1080~

875#

1076*

001360
001370

702+

1924+

001374

749+

750«

754

9164

993«

994

1044

1046

739«

1067
1081~
744
1077+

1082

1896+

1933~

2068

2084

2100

2177

746

1120

9214

1125+«

935

1183«

2422

1436+

1489+

1529«

874%
;zgg

1963+

1067«
1640%

2011=

2139%

2144x

2221+

2227«

2230%

2267+

878#

1082«

1083+

1084

1121*

1123«

1127+«

1129«

1188%
1539«
1818+«

1441+
1571=
1830+
1925+

1076
1645

1078
1652

1443
1573«
1832+

1445+
1584*
1834~

1927+

1930+

1133«
1698

1490+
1590
1879+

2140%
2214
2262%
2315+

2142+%
2215+
2268*
2317«
1124«
1194x
1487+
1585+
1763%
1880«
1942

1932+«

2033x«
2190*
2258+
2311+
1071~
1069+
1085+

2035«
2212
2260+
2313«
1072
1070
1086

2439
1122«

1679«
1833«

1691
1835«

1695
1837+

1718+
1872«

1733~
1876

1182+«
145%*
1540+
1926+

1185
1458+
1569«
1928+«

20264+
2154+
2257+

2028+
2156+
2259+

2030+
2158+
2261%

880#

1086«

1087+

2302+

2308+

2312«

1187
1459+
1572«
1931+«

2032+«
2160+
2263%
2314«

1148
1979

1449%
1588+
1875+

2031~
2186+
2251+
2303«
1070~
1068+
1084

1180+
1650%
1538+

1145
1977«

1447+
1586
1836

2029+
2159«
2249
2301«
871#
8704
8794

1922«

DQSECH

SEQ 0060

29614
29614

9054
9114
9134
915#
9174
9224
877#

001352
001350
001372

9054
9074

1904+

DORLVL
DQRVEC
DQSEC

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

1189*
1460*
1574~
1935+«

2034+
2187
2266%
%6+

1941+

2036%
2191
2269+
2318+

1190«
2174

1535«

1810«

1874+

1882+

1451
2337

1463
2350+

1466
2352

1181«

1184+

1186+

1204
2180

2300*

1207
2335«

2310+

1131«

1179+«

1968+

1492+
1648+
1883+

1501+
1690+
1885+«

2145+
2217%
2270%
2319x

2147+
2220%
2285«
2360%

2149+
2223«
2287x
2362*

2012+

2151+
2225«
2289x
2364+

2014+

2023+

2027+

1128+
1199+
1491+
1587+
1778~
1884
1946

1130+
1200*
1493+
1589*
1808+
1886+
1961~

1132+
1201+
1502
1591+

1136+
1442+
1506
1626%
1814+
1894~
1969+

1140+
1444*
1527+
1632+
1817+
1898+
2009+

1141+
1446%
1531«
1649

1142+
1448+
1533«
1671+

1945%

2138+
2216+
2286%
2320+

1964*

2141+
2224%
2288+
2361+

1812«
1889+
1965

2143+
2226+
2290%
2363

1505«
169+
1888+

2146+
2233x
2292*
2365

1530*
1811+
1893+

2153«
2232+
2291%

2148+
2236
2294+

1532«
1813+
1895+

2155«
2235+«
2293x

1819+
1901
2013+«

2150+
2248+
2296x

1537+
1816+
1900+

2157«
2247+
2295+

1831«
1905

2015+

2152+
2250+
2299+

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

DQSTOO
DQSTO1
DQSTO2

DQSTO3

DQSTO4
DQSTOS
DQST06
DQSTO?7
DQST10
DAST1
DQST12
DQST13
DAST14

DQST15

DQST16

DQST17

DQTCSR
DATLVL
DQTVEC
DSWR
DT

DT2
DT3
EMO
EMI
EmM2
EM3

9234
888#
8904
8524

08: 38

PAGE 63

CROSS REFERENCE

SEQ 0061

TABLE == USER SYMBOLS

1068

1110

2264

2279

2297

1079«

1080

1642

1701

1638+

8944
8964
8984

9004
902#
904s
9064
908#
910#
9124
9144
9164

9184
8764

1075«
1073+

1689

2100

2445

2399
27384
17%2

2096+
1175+

2925

29%1

2934

2937

2940

29614

1723

2173

2330

2177«

1768

1782

2973

1899

2462+

2720

2734w

2791+

23854

29¢3

2968

1737«

)

26’6

2756+

1777

2239
1192+«

29014

965+

2821
2264

2297

25574

25GE

1173

2183

25954
2464

956

1978«

107¢

29714

2922

1939

2419«

1630

";’C'

23334

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

MCSRX
MDATA
MEMCLR=
MEPASS
MERRPC
MERRX

MERR2
MERR3

MISC.

_n_a_a_.?_a_a_n

MCRLF

OCOO0O=2000

2546+

LOLIM
LPCNT
LSTERR

7914
7954

2519
2404
2655
8584
2402
2729
2416

08: 38

2579
2459
942

2535
28674

SEQ 0062

CROSS REFERENCE TABLE == USER SYMBOLS

2594#
2460
2398+
2627
29054
1435

2463
2704
2733

2706+
2827

2792
28404

2241

2273

2794

28504

761
990

6314

PAGE 64

2235

1014

983

2037

1093«
1364
1806+«

2533
013172

104407

27814

23484
1108«
1377«
1870«

1172+

2812
2822

2816

28284

2559

25684

2578

26400«

2419

2442

2098+

2316

23844

932+

1007+

2570

28044

2818~

2828+

1390+
1920~

1234

1403+
1959+

1247«

1260*

2007«

2063+

2079+

2095~

2136

2465

2761

2580

2582

1113

2432+

2465+

2466

2761+

2763

1416

1429+

1273«

1484~

1286+
1525+

1299+
1567+

1312«
1624+

1325+
1669+

24314

001214

944

1027

1031«

1033

1037+

1044
1051~
1039

1049+
1053«

1055+

1062+

001302

1041=
1042+
G309«

1043

1112«

CZDQF
MACY11 30A(1052)
07-JUL-78
CZDQFE.P1?
09-JUN-78 07:

08:38

1589
2194

RXWC.P= 000001
RXWC.S= 000005
RX.BCC= 000015

SAVSP

001502
001276
001274
001256
001260
001262
001264
001266
001270

2420*

1625

1670

26784
2762

2783

TEMP

TEMP1
TEMP?
TEMP3Z

014377
001200
001311
014070
001200

955+

2702

000176

2809

015202

000001
000002
000004
000010
000020
000040
000100
000400
001000
002000
004000
010000
020000
040000
100000
100000
012012
000011

015714

001244
001246
1001250

1685

Sw00 =
Sw01
=
Sw02 =
SW03 =
SW04
=
SW0S =
Swdé6 =
SW08 =
SW09 =
SW10 =
SW11
=
SWw12 =
SWw13 =
SW14
=
SW15 =
SYNBIT=
SYNC
SYNC. =

1738

2286

O HO
VOW
O\

1637

Owh
&£0—=
NONN

3
2

SCOPT = 104401
SEQ.
= 000014
SET.UP 011024

SWREG

1724

2248

1769

1783

1276

1289
1551

23754

1831

1835

1981

1994

1012

1020

2450

2457

2422%

SCOPE = 104400

SWREGC

SEQ 0063

001272

SAVOS = 104406

SPACNT=
STACK =
STFLG
SV05
SWR

CROSS REFERENCE TABLE == USER SYMBOLS

RXBA.P= 000000
RXBA.S= 000004
RXBUFF
012216

SAVACT
SAVNUM
SAVPC
SAVRO
SAVR1
SAVR2
SAVR3
SAVRS
SAVRS

PAGE 65

966

969
2757
2832

1148+
1466+

1149+
1467+
978+

2749
2825

980

2759

1509
2087

2103

1807

1871

987

993

2809

2697

2257
1137«
1455+

802#
2896
2669

23724
1138

1456
973

974

1197«

2669+
2894

1207+

2784+

1208+

2785+

1209

29034

08: 38

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

VIND=

2% R

1107+
1376«
1869+

1171=
1389
1919+

1233+
1402+
1958+«

2432

2433

1019«

24514

1577

1579
19%1

162
1936+«

1673
1937

1246
1415 *

1259+
1428+

2006 ®

2062+

1765
1972

1272+
1483+
2078+

1285+
1524+
2094+

O0o
—-ND
~Nn

1298+
1566+

2135+

1311+
1623+

2770

1092#

894

24LH

074
Tax

D )

D e e D D D ) D D e e

D D D d D D D —d

O
mwwgo—av\mb BB WNOWWWWWNINN
=0 CO~NW
88—0

— e

o > o RUANRIFIEIRLZERVERINS

d
D
D
D
D
D
D
D
D
D
d
D
D
D —d
D
D
d

1092+
1363+
1805+

wwwnnn

003514
003544
003574
013246

TXBA.S= 000006
012014

2392

1894

—

TXWC.P= 000003

2170

o043

232

2373

—_—

010060
010136
010214

TXBA.P= 00000

TXBUFF

2699
2701+

1STS
TST6
TST7
TTST

2524
2523«

TSTLS

2496
2498+

003214
007470
010002

TST40
TST41

T1ST42
TST43
TST44

2813

hele
~NND
o

007054
007260

003654

003704
003734
003764
004014
004044
004074
002644
004124
004154
004204
004234
004264
004562
004722
005072
002662
005350
005532
005726
0061
006260

—d —d —d —d

TSTI

TST12
TST13
TST14
TST1S
TST16
TST17
TST2
TST20
TST21
TST22
TST23
TST24
TST25
TST26
TST27
TST3
TST30
TST31
T1ST32
TST33
TST34
TST35
T1ST36
T1ST37
TST4

—

002254
003624

000 N~NOONW OWVE BB B WWWOWWWWNIN
NN
NONONON —=O
NN
—

ST
TST10

2811
2523

SPH%
»»

001210
001212
014414
001226

—

TPCSR
TPDBR
TRPOK
TSTNC

001252
001254
001204
001206
010214

SEQ 0064

CROSS REFERENCE TABLE == USER SYMBOLS

W
=W

TEMPS
TEMPS
TKCSR
TKDBR
TLAST =

mS5

PAGE 66

1824

2019

1827+

2021+

| TX.MUX= 00001

TYPDAT
014646
TYPE
= 104402

Irvpnsc 014570
VECMAP
WRDCNT
WRKO.F
XBX
XCSR
XERR
XHEAD
XPASS
XPOLY
XRXBUF

XSTATQ
XSYNC
1 XSYNC2
XTSTN
XTXBUF
XVEC
X.ABF
X.ABG
$CNTG
$E

000056
014374
014634
014462
013206
013230
015612
013222
13034
012626

015640
012420
012422
014756
012424
013214
005640
005446
015210

$MNEW
015223
$MSWR
015214
N
=
4

= 000016

017262

N 5
08:38 PAGE 67
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0C65

2744M
964

2519
2827

972

WwGoo
wino

TXWC.S= 000007
TX.BCC= 00001

07§JUL-78

CZDQF
MACY11 _30A(1052)
CZDQFE.P11
09=JUN=7

2531

2320

23854

989
2626

1014
2665

1032
2724

2728

1780+

1781

2275

23794

1057

26764
27024

2097«

23774
1735«

1736+

2401
2732

2403
2737

2407
2742

2411
2787

.RESOS
.SAVOS
SCOPE
.SCOP1T
.START
.SYNC

014122
014062
013236
013350
001512
012010

PFAIL

N —

014160
014154
013050
0160%2
0144
013614
013620
013476
013516
010652
013520
010766
(013646

% o ~N—0000
ROR S =2

.CNVRT
.CONVR
.EOP
.ERRTA
HLT
INSTE
JINSTG
JINSTR
LINST1T
MEMCL
.MSG
MSTCL
PARAM

TYPE

014402
001314
013370

. ABS.

017262

ERRORS DETECTED:

08:38

PAGE 68

23984

2813«

2814+

27748

2782

2815

944

23714

000
O

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

CROSS REFERENCE TABLE == USER SYMBOLS

2536

014764

TRPSR
TRPTA

WOoOWVORONNOWWY

\I!

CZDQF
MACY! 30A(1052)
07-JUL-78
CZDQFE.P1
09-JUN-78 07:

SEQ 0066