Digital PDFs

AH-8706C-MC

February 1981

90 pages

Original

4.7MB

view download

OCR Version

4.0MB

view download

Document:	CZDUQC0 DUV11 DUV11 OFLNE LGC TSTS FEB 1981 bw
Order Number:	AH-8706C-MC
Revision:	000
Pages:	90
Original Filename:	CZDUQC0__DUV11__DUV11_OFLNE_LGC_TSTS__AH-8706C-MC__FEB_1981_bw.pdf

OCR Text

DUV11

OFLNE

LGC

£2ZDUGCO

TSTS

AH=B706C-ME-

== 18!

FICHE 1 OF 1 feoravum>

Haell

(10uQ-C0

CZouQ3.m11

MACY11 30A(1052)

09-SEP-80 09:27

09-SEP-80

10:57

PAGE 2

SEQ@ 0001
.REM

IDENTIFILCATION
PRODUCT CODE:

AC-8704C-MC

PRODUCT NAME:

CZDUQCO DUV11 OFLNE LGC TSTS

PRODUCT DATE: AUGUST
MAINTAINER:

, 1980

DIAGNOSTIC ENGINEERING

-REM

COPYRIGHT (C) 1977,1980 BY DIGITAL EQUIPMENT CORPORATION
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 RELIABILTY OF SOF TWARE
ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED
COMPANIES.

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL

POP

UNIBUS

DEC

DECUS

DECTAPE

MASSBUS

CIoua=co
czouQl.m

MACY11 30A(1052)
09-SEP-80 09:27

09-SEP-80

10:57

PAGE 3

SEQ 0002
.REM

GENERAL DESCRIPTION
THIS DIAGNOSTIC CAN CHAIN 16 DUV11'S, THIS MEANS THAT
16 DEVICES CAN BE SEQUENTIALLY EXERCISED.
THE DIAGNOSTIC

MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE,
a:ETEgNTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL

THE DUV11

OFFLINE LOGIC

.REM

REQUIREMENTS

DUV11
ONE

‘ 3.

.REM

+AND ALL RESPECTIVE BITS CAN BE MASTER CLEARED, READ,
WRITTEN AND/OR READ/WRITTEN

PDF=11/03 COMPUTER

2.2

TESTS VERIFY THAT ALL REGISTERS EXIST

(LSI)

SYNCRONOUS/ISNOCRONOUS OPTION

CONSOLE

TELETYPE OR EQUIVALENT

STORAGE
THE PROGRAM LOADS

INTO 4K OF

LOADING PROCEDURE

THE STANDARD PROCEDURE
IS TO BE USED.

4K
8k
12K
16K

FOR LOADING ABSOLUTE BINARY

017500
037500
057500
077500

117500
137500
157500

STARTING PROCEDURE

CONTROL SWITCH SETTINGS
ALL SWITCHES RESIDE INTERNAL TO THE CPU AT ADDRESS
176.
THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY

MODIFYING LOC.
NOTE:

TAPES

STARTING ADDRESS
FOR ABSOLUTE LOADER

20K
24K
28K

NOTE:

MEMORY WITH 8OOTSTRAP

176.

RUNNING UNDER APT=11, THERE

IS A USER SWITCH REGISTER

CALLED "‘SUSWR''. IN ORDER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE
H315 CONNECTOR, ONE BIT PASSES STATUS TO APT-11,
BIT O IN SUSWR REFLECTS THIS STATUS, A O = CONNECTOR
PRESENT, A 1 = CONNECTOR NOT AVAILIBLE.

CI0uQ-Cco
czoua3.m

MACY11

30A(1052)

09-SEP-80 09:27

09-SEP-80

10:57

PAGE 4

SEQ 0003

THE USER CHANGES THE CONTENTS OF THIS LOCATION
WHEN BUILDING THE E TABLE, BY ANSWERING THE

PROMPT

''SWITCH 2''.

AFTER PROGRAM LOAD (INITIAL PROGRAM START)
ALL CONSOLE SWITCHES DOWN
TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES

SWon=1
TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART
SW01=1
(ONLY IN SINGLE DEVICE TESTS)
TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART
(ONLY IN SINGLE DEVICE TESTS)

SW14=1
NOTE1: IN GENERAL
SWO1 WILL BE USED WHEN SW14=1 IS USED
NOTE2: WITHOUT SW01=1
"'LOCK ON TEST'' WILL DEFAULT TO TEST 1
STARTING ADDRESS

THE STARTING ADDRESS FOR ALL TESTS IS

000200

THE RETARTING ADDRESS FOR ALL TESTS
IS
000200
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS
THE STARTING ADDRESS TO LOCK ON TEST IS
000200

000200

PROGRAM AND/OR OPERATOR ACTION

INITIAL PROGRAM START
4.3.1.1

LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER

4.3.1.2 SET SWITCH REGISTER (LOC.

176) TO ZERO.

4.3.1.3 TYPE 2006.

4.3.1.4 PROGRAM WILL START.

4.3.1.5 THE PROGRAM WILL TYPE '‘DUVIT1 (ZDUQ-C TAPE A'' (ONCE ONLY)
4.3.1.6 THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT IT IS ABOUT
TO START TESTING ,AND THEN TESTING WILL BEGIN
4.3.2

PROGRAM RESTART WITH ALL SWITCHES DOWN

4.3.2.1 THE PROGRAM WILL TYPE 'R'' AND WILL COMMENCE TESTING
4.3.3

PROGRAM RESTART WITH SW00=1

.REM

(20ua-Cco
(20UQ3.M11

MACY11 30A(1052)
09-SEP-80 09:27
4.3.3.1

09-SEP-80

10:57

SET SWITCH REGISTER (LOC.

PAGE 5

176) TO A 000001.

4.3.3.2 TYPE 2006.
4.3.3.3 PROGRAM WILL START,

4.3.3.4 THE PROGRAM WILL TYPE '' 1ST DEVICE: RECEIVER CONTROL REGISTER
ADDRESS'' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
,6.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL
REGISTER ADDRESS OF THE DUV11 TO BE TESTED
FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘"'
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4
4£.3.3. 6 THE PROGRAM WILL TYPE "'VECTOR ADDRESS-'' AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD
4£.3.3. 7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE '"?"'

AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6

4.3.3. 8 THE PROGRAM WILL TYPE ''ARE YOU RUNNING MULTIPLE DEVICES ?*'

(Y OR N)='' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.3. 9 TYPE

IN THE APPROPRIATE ANSWER

<CARRIAGE

RETURN>

YES OR NO tOLLOWED BY A

IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE '"?"

AND WILL THEN REPEAT THE MESSAGE OfF 4.3.3.8

IF A "NO'' ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12

IF A "'YES'' ANSWER IS GIVEN:THE NEXT QUESTION IS ASKED

4.3.3. 10
4.3.3. 1

THE PROGRAM WILL TYPE ''LAST DEVICE:RECEIVER CONTROL
REGISTER ADDRESS-'' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER

ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN>

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '

AND WILL THEN REPEAT THE MESSAGE Of 4.3.3.10

NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS
4.3.3. 1.4

"F AN 'OUT OF RANGE'' ADDRESS IS TYPED
IE. MORE THAN 16 (10) DEVICES AWAY (UPWARDS)..... THE
PROGRAM WILL TYPE ''OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-''

SEQ 0004

(70uQ-C0

CZ20UQ3. M1

MACY11 30A(1052)

09-SEP-80 09:27

09-SEP-80

10:57

PAGE 6

AND WAIT FOR AN INPUT FROM THE

SEQ 0005

TELETYPE KEYBOARD

4.3.3. 11.2
TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL
REGISTER ADDRESS OF THE DUV1I1 TO BE TESTED FOLLOWED
BY A <CARRIAGE RETURN>

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '"?"

AND WILL REPEAT THE MESSAGE OF

4.3.3.11.1

IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS IS TYPED...........
«...SCHOOLS OUT.........THERE IS NO PROTECTION FOR THIS.

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM
1ST DEVICE ADDRESS).THE SAME APPLIES TO IDENTICAL ADDRESSES
TYPED FOR FIRST AND LAST DEVICE.

OBSERVE LOCATION @ ACTREG:
4.5.3. 12

SELECTED

SEE SECTION 7.2

THE PROGRAM WILL TYPE ''# OF SYNC CHARS

(1 OR 2)-'" AND WAIT FOR AN INPUT FROM THE TELETYPE

ESI?gaRggs QEFER TO MANUAL FOR PROPER SWITCH SETTINGS OF

4.3.3. 13

TYPE IN THE APPROPRIATE ANSWER ''1'' OR ''2'' FOLLOWED
BY A <CARRIAGE RFTURN>.(NOTE:ALL MULTIPLE DEVICES MUST
BE THE SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ''7*’

AND WILL REPEAT THE MESSAGE OF 4.3.3.12
¢.3.3. 14
4.3.3. 15

THE PROGRAM WILL TYPE '' IS SEC XMI!

AND WAIT FOR AN INPUT FROM THE

TYPE

SWITCH ES5-2 ON?

TELETYPE KEYBOARD

(Y OR N)-''

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <CARRIAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES
MUST BE

THE

SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '"?"

AND WILL REPEAT THE MESSAGE OF 4.3.3.14
4.3.3. 16

4.3.3. 17

THE PROGRAM WILL TYPE "'IS SEC REC SWITCH E55-3 ON?

(Y OR N)-'"' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
TYPE

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

BY A <CARRIAGE RETURN>.

(NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '"?"

AND WILL REPEAT THE MESSAGE OF 4.3.3.16
, 4.3.3. 18
4.3.3. 19

THE PROGRAM WILL TYPE ''IS OPT CLR ENABLE SWITCH

£55-1 ON? (Y OR N)-'" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD
TYPE

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED

(Z0uUQ-C0
(Zoual3.m

MACY11 30A(1052)
09-SEP-80 09:27

09-SEP-80

10:57

BY A <CARRIAGE RETURN>,

PAGE 7

SEQ 0006

(NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ''?"

AND WILL REPEAT THE MESSAGE OF 4.3.3.18
4.3.3.20

THE PROGRAM WILL TYPE "'ARE YOU RUNNING IN MAINT,

MODE EXTERNAL ? AND ,.....DO YOU HAVE THE EXTERNAL MODEM

BYPASS JUMPER CONNECTOR ON ? (Y OR N)='" AND WAIT FOR AN
INPUT FROM THE TELETYPE KEYBOARD

64.3.3.1

TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME)

IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE '"?"

AND WILL REPEAT THE MESSAGE OF 4.3.3.20

4.3.3.22
4.3.4

THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT [T
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1

PROGRAM RESTART WITH SW01=1
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED

+oo1T WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED

IF MULTIPLE PEVICES WERE PREVIOUSLY SELECTED,LOAD 000200,
ggg EE%EgT SW00=1 AND ANSWER ''NO'' TO THE MULTIPLE DEVICE QUESTION
6.3.64.1 SET SW01=1

IN SWITCH REG (LOC. 176)

4.3.4.2 TYPE 2006.
4.3.4.3 PROGRAM WILL START.

4.3.4.4 THE PROGRAM WILL TYPE "'TEST PC-'' AND WAIT FOR AN INPUT
THE

TELETYPE KEYBOARD

FROM

4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM [S TO
BE STARTED FOLLOWED BY A <CARRIAGE RETURN>
4.3.4.6 THE PROGRAM WILL TYPE 'R’

TO INDICATE THAT IT HAS STARTED

TESTING AT THE SELECTED TEST

NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE 1S USED

LSINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS

THAT IS IN THE MIDDLE OF A TEST
6.3.5

PROGRAM RESTART WITH SW1é4 =1

NOTE: THIS UILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED
SEE NOTE IN 4.3.4 FOR MORE DETAILS

4.3.5.1 SET SW14=1 IN SWITCH REG. (LOC. 176)
4.3.5.2 TYPE 2006.

(IbuQ-C0
(20uQ3.M\

MACY11 30A(1052)
09-SEP-80 09:27

09-SEP-80

10:57

PAGE 8

4.3.5.3 PROGRAM WILL START,

4.3.5.4 THE PROGRAM WILL TYPE "'LOCK ON SELECTED TcST ? (Y OR N)-"
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD

4.3.5.5 TYPE

IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A

<CARRIAGE

RETURN>

IF A NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED
AND THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT IT HAS STARTED
TESTING AT TEST 1
4.3.5.6 1F A YES ANSWER WAS GIVEN:THE PROGRAM WILL ACTM AS FOLLOWS...
THE PROGRAM WILL TYPE 'R'' TO INDICATE THAT IT HAS STARTED
TESTING AT TEST 1 AND WILL REMAIN IN TEST 1 UNTIL HALTED

IF ANY KEY IS STRUCK ON THE TELETYPE ,THE PROGRAM

WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON

[T
THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SW01 =1
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO FREEZE

ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1
OPERATING PROCEDURE

OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176).
SW15 =1

HALT ON ERROR

LOOP ON CURRENT TEST
INHIBIT ERROR TYPEOUT
INHIBIT ITERATIONS
SWit =
ESCAPE TO NEXT TEST ON ERROR
SW10 =1
LOOP ON ERROR
SW09 =1
RESTART PROGRAM AT SELECTED TEST
SWwo1 =1
RESELECT VECTOR AND CONTROL REGISTER ADRESSES
SW00 =1
CLPARAMETERS AFTER A PROGRAM RESTART
TO INHIBIT ''END OF PASS'' TYPEOUT - TURN TELETYPE OFf
Swi4 =1

swi3 =1

ERRORS

ERROR HALTS (UNDER LSI ALL HALT ERRORS RETURN CONTROL TO 0.D.T.)
THERE ARE FOUR DISTINCT ERROR TYPEOUTS

6.1.1

PC+2
= ERROR PC

WHERE PC +2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2
REFER TO THE ABOVE ‘'HLT'' IN DIAGNOSTIC FOR ERROR DESCRIPTION

CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER
TEST WHEN RUNNING MULTIPLE DEVICES

6.1.2

PC +2
= REGISTER ERROR PC

EXPECTED
YYYYYY

ACTUAL
123222

WHERE 1XXXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER
WHERE YYYYYY [S THE EXPECTED CONTENTS OF THAT REGISTER

SEQ@ 0007

CIbuQ-C0

CZ0uQ3.M

MACY11 30A(1052)

WHERE 222711

6.1.3

10:57

PAGE 9

IS THE ACTUAL CONTENTS OF

PC +2 = RECEIVER ERROR P(

EXPECTED
YYYYYY

SEQ 0008

THAT REGISTER

ACTUAL
121111

WHERE 1XXXXX

IS THE ADDRESS OF

WHERE

IS THE EXPECTED DATA CONTENTS OF

YYYYYY

WHERE 227271

6.1.4

09-SEP-80

09-SEP-80 09:27

THE FAILING RECEIVER

IS THE ACTUAL DATA CONTENTS OF

PC +2 = TRANSMITTER ERROR P(

EXPECTED

1XXXXX

YYYYYY

THAT REGISTER

121112

1XXXXX

IS THE ADDRESS OF

WHERE

YYYYYY

IS THE EXPECTED CONTENTS OF

THE FAILING TRANSMITTER

1S THE ACTUAL CONTENTS OF

(TXCST)

THAT REGISTER

ERROR DESCRIPTIONS

6.2

ERROR RECOVERY

6.2.1

SW15 =0
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS

REQUIRED TO CONTINUE

6.2.2

ESTING

AFTER THE PROGRAM HAS HALTED

CONSOLE ''CONTINUE SWITCH''

6.2.3

ERRORS

SWi5 =1
IF THE PROGRAM IS RUN WITH SW15 =1

NOTE:

THAT REGISTER

6.1.5

SEE LISTINGS FOR DETAILS OF

ACTUAL

WHERE

WHERE 22212171

(RXDBUF)

,TO CONTINUE TESTING

,PRESS THE PROCESSOR

THE PC + 2 OF THE 'HLT'' WILL BE DISPLAYED IN THE DATA LIGHTS

ILLEGAL INTERRUPTS
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED
DURING PROGRAM INITIALIZATION, THE PROGRAM WILL HALT IN
THE

TRAPCATCHER.

THE ADDRESS AT WHICH THE PROGRAM

HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE

INTERRUPT

OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO
RECOVER FROM THIS ERROR.

6.2.4

ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT:
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY.
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS.

6.3

EN D OF PASS ROUTINE
TH l?

TYPEQUT IS MENTIONED HERE FOR CONVENIENCE
IS IN THE FORM:

(2buQ-C0
(20uUQ3 .M

MACY11 30A(1052)
09-SEP-80 09:27

09-SEP-B0

10:57

PAGE 10

SEa 0009

END OF PASS TAPE Y
1XXXXX = DEVICE
WHERE Y

IS THE

TAPE LOADED

WHERE 1XXXXX IS THE DEVICE'S BASE REGISTER ADDRESS
TO

INHIBIT

THIS TYPEOUT - TURN TELETYPE OFF

RESTRICTIONS
MULTIPLE DEVICES

UP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY
MUST HAVE
NOTE:

CONTIGUOUS ADDRESSES AND VECTORS

ALL DEVICES UNDER TEST HAVE

THE

SAME

YOU CAN CHANGE
''ZERO:
ADD
#10,BASEIV
(VECTORS)'' TO '‘ZERO:
ADD
#0,BASEIV'';

INTERPUPT VECTOR

+NEXT BLOCK

THEREBY THE VECTOR ADDRESSES WILL NOT BE

UPDATED AFTER EACH PASS.
7.2

DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES
WHEN RUNNING MULTIPLE DEVICES

AN ACTIVE BIT

FOR EACH DEVICE RUNNING UNDER TEST

DEVICE 0

,BIT 15 FOR DEVICE 15

IS SET

IE. BIT O FOR

TO DISQUALIFY DEVICES:

7.2.1
7.2.2

IF DEVICE O IS TO BE DISQUALIFIED ,SIMPLY RESTART

PROGRAM WITH SWOO =1

IF HOWEVER, DEVICES 1

AND OMIT THE FIRST DEVICE.

THRU 15 OR ANY COMBINATION THEREOF

ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF

ACTREG:

OBSERVE THE ACTIVE BITS (ACTIVE =1, NONACTIVE = 0)

AND DEPOSIT O WHERE THOSE DEVICES ARE TO BE DISQUALIFIFD
7.2.2.1

TO RESTART,..TYPE 2006...
THE PROGRAM WILL CONTINUE WITH THE DEVICE

7.2.2.2 .vvunnn OR ..... SET SW00=1
ANSWER THE QUESTION

IT WAS IN BEFORE HALTING.

IN SWITCH REG (LOC. 176) AND TYPE 2006G....

:1ST DEVICE

ETC...........

....THE PROGRAM WILL CONTINUE WITH DEVICE 0

7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE

WILL TYPEOUT

7.3
7.3.1

THE PROGRAM

AN ERROR MESSAGE....... TYPE 2006.

CABLE DELAYS

NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON)
TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE,

LOCATION 'HOLD:'* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES.
PRESENTLY "HOLD:'' =20 IS SUFFICIENT TIME ON AN 11/03 MACHINE.
BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS

7.4

TO USE THE ''XOR'' TESTER ,THE BRANCH AROUND THE '‘XOR"

CZouQ-C0
c2ouQ3.mi

MACY11 30A(1052)
09-SEP-80 09:27

09-SEP-80

10:57

CODt MUST BE PATCHED “J A ''NOP''.

PAGE 11

SEQ 0010

(SEE LISTINGS FOR DETAILS)

DEFAULT PARAMETERS:

1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS- RXCSR: 160010

VECTOR ADDRESS-

DURIV: 770

ARE YOU RUNNING MULTIPLE DEVICES ?- NO

MULTD: O

LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS# OF SYNC CHARS SELECTED -

LASTADD: 0

SYNCNO: 377

IS SEC XMIT SWITCH E55-2 ON?-

YES

SEXMIT: 377

IS SEC REC SWITCH E55-3 ON?-

YES

SEREC: 377

IS OPT CLR ENABLE SWITCH E55-1 ON?- YES OPTCLR: 377
D0 YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER

CONNECTOR ON (H315)-

YES

JMRBY: 377

PROGRAM DESCRIPTION
.REM

9.1

THIS PROGRAM PERFORMS THE OFFLINE LOGIC BIT BANGING

THE DEVICE

SEE LISTING FOR DETAILS
.REM

10.

FLOW CHARTS: RECEIVER FLOW,TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW

CHANGE HISTORY

NOTE: HISTORY BEGINS WITH REV. (0

REV. CO:

12.

LISTINGS

1) ALLOW OPERATOR TO SPECIFY ADDRESS > 170000
2) INCREASE DELAY VALUE 'MHOLD'' TO_COMPENSATE
FOR 11/23 EXECUTION TIME (FROM 3777 TO 6200)

——

94V ua-Co
1)) uasd .M

MACY11 30A(1052)
09-SeP-80 09:28

09-SEP-80

10:57

PAGE 13

SEQ 001

539

540
561
562

543
544
565
546
547
548

549
550
551
552
555

554

555
556

557
558
559
560
561
562
563
564
565

566
567
568

569

570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593

.SBTTL

APT COMMUNICATIONS ROUTINE

: "itQ'fitt'tttttttt'i'tt"t"t"'ttti'fit"'"Q't"'titt'tttttttt't

000000
000006
000014
000016
000024
000024
000026
000030
000034
000036
000044
000046
000054

000056
000062
000070

000074
000076
000102
000104
000106
000112
000114
000120
000126
000130
000136
000144
000150
000154
000156
000156
000162
000164
000170
000172
000176
000200
000206
000214
000220

112767
112767

000403
112767
010046
010146
105767
001450
122767
001031
132767
001425
017600
062766
005767

001375
010067
105720
001376
166700
006200
010067
012767
000413
017667
062766
016746
004767
000000
105767
001416
005767
001413

000001
000001

000236
000226

$ATY1:

000001

000220

$SATYL:
SATY(:

000206
000001

001502

000100

001473

000004
000002
001432

000004

001440

001424
000004

000004
000002
177626
012666

18:

2%:

000020

MoV
Mov
1ST8

RO,=-(SP)
R1,-(SP)
SMFLG

::PUSH RO ON STACK
;:PUSH R1 ON STACK
:;SHOULD TYPE A MESSAGE?

$MSGTYPE
1%
RO, SMSGAD

:2SEE IF DONE W/ LAST XMISSION?
::1F NOT: WAIT
;:PUT ADDR IN MAILBOX
;sFIND END OF MESSAGE

MoV
ADD

TST
BNE

MOV
1S18

BNE
sus
ASR

;:70 ONLY REPORT FATAL ERROR

;:1F NOT: BR
#APTENV, SENV
: ;OPERATING UNDER APT?
3%
::1F NOT: BR
, SENVM :;SHOULD SPOOL MESSAGES?
#APTSPOOL
BR
3$
::IF NOT:
84 (SP) RO
::GET MESSAGE ADDR.
#2,4(SP)
::BUMP RETURN ADDR,
5%

(RO)+

2%
$MSGAD ,RO

gg.SHSGTYPE

MoV
ADD
MOV

3 (SP),48

::PUT MSG ADDR IN JSR LINKAGE

Sc,srvpe

::PUSH 177776 ON STACK

JSR
.WCRD

170774.-(5¢)

10%:

1ST8

S$FFLG
12%
SENV

;s SHOULD REPORT FATAL ERROR?
IF NOT: BR
;.
: sRUNNING UNDER APT?
::1F NOT: BR
s:FINISHED LAST MESSAGE?
o 1F NOT: WALT
**GET ERROR #
. :BUMP RETURN ADDR.

MoV
MOV

38:

001356

001330

70 REPORT FATAL ERROR
;:
;:70 TYPE A MESSAGE

::SUB START OF MESSAGE
:sGET MESSAGE LNGTH IN WORDS
:sPUT LENGTH IN MAILBOX
;o TELL APT TO TAKE MSG.

5%:

000062

#1,SFFLG
#1,$MFLG
SATY(
#1,$FFLG

RO
RO,SMSGLGT

001400
000016
000004

MOovB
Move
BR
Move

BEQ
CMP8
BNE
8178
BEQ

001430

000004

105067

SATY3:

118:

001322
0000Cé

BEQ
TST

BNE

MOV
ADD

12%:

INC
CLRB

#2,4(SP)

128
SMSGTYPE
11$

84(SP) ,SFATAL
#2,4(SP)
$SMSGTYPE
$FFLG

. .BUMP RETURN ADDRESS

::CALL TYPE MACRO

;:TELL APT TO TAKE ERROR
SSCLEAR FATAL FLAG

(10uQ-C0

.M"
CZ0UQ4

000224
000230
000234
000236
000240
000242
000243
000244

MACY11

30A(1052)

09-SEP-80 09:28
067

6¥

615
616

617
618
619
620

621

622

APT

10:57

SLFLG
SMFLG
(SP)+,R1
(SP)+,RO

CLRB
CLRB

000006

SMFLG:
SLFLG:
$FFLG:

MACY11 30A(1052)
09-SEP-80 09:28

PAGE 14

MOV
MoV
RTS

.BYTE
.BYTE
.BYTE
.EVEN
APTSI12E=200
APTENV=001
APTSPOOL=100
APTCSUP=040
$TN=1

09-SEP-80
APT

SEQ 0012

COMMUNICATIONS ROUTINE

000013

000040
000001

(20uQ-CO
. M1
C20UQ4

09-SEP-80

10:57

0
0
0

PAGE 15

COMMUNICATIONS ROUTINE

;sCLEAR LOG FLAG
:sCLEAR MESSAGE FLAG
:;POP STACK INTO R
;sPOP STACK INTO RO

: sRETURN
;sMESSG. FLAG
;:L0G FLAG
;:FATAL FLAG

MACY1Y 30A(1052)
20-AUG-80 09:1

09-5EP-80

10:57

PAGE 17

SEQ 0013

APT COMMUNICATIONS ROUTINE

.ENABLE ABS

:C20UQ-CO DUVI1 TAPE A
:COPYRIGHT 1977,1980, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754
:STARTING PROCEDURE
: TYPE 2006
:PROGRAM WILL TYPE ''CZDUQ-CO DUV11

TAPE
A

:PROGRAM WILL TYPE “R'* TO INDICATE THAT TESTING HAS STARTED
;AT THE END OF
A PASS, PROGRAM WILL TYPE "END OF PASS TAPE A"
:AND THEN RESUME TESTING

.SBTTL

s*INITIAL ADDRESS OF THE STACK POINTER ##+ 1100 ww¢

001100

STACK=
.EQUIV
.EQUIV

1100
EMT,ERROR
10T,SCOPE

;;BASIC DEFINITION OF ERROR CALL
::BASIC DEFINITION OF SCOPE CALL

:'HISCEL%?NEOUS DEFINITIONS
:;CODE FOR HORIZONTAL TAB
LF=
12
. CODE FOR LINE FEED
15
CR=
;;CODE FOR CARRIAGE RETURN
CRLF=
200
:;CODE FOR CARRIAGE RETURN-LINE FEED
PS=
177776
: sPROCESSOR STATUS WORD

000011
000012
000015
000200
177776
177774
177772
177570
177570

BASIC DEFINITIONS

HT=

.EQUIV

PS,PSW

PIRQ=

177772

STKLMT= 177774

OSWR=
DDISP=

177570
177570

;s STACK LIMIT REGISTER

; ;PROGRAM INTERRUPT REQUEST REGISTER
; HARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

00000%

000001
000002
000003
000004
000005
000006
€00007
000006
000007

: *GENERAL PURPOSE REGISTER DEFINITIONS

RO=

R3=

R1=
R2=

Ré=
RS=
R6=
R7=

SP=
PC=

14
15
16
X7

X6
X7

:sGENERAL REGISTER
; sGENERAL REGISTER
;s sGENERAL REGISTER
:;GENERAL REGISTER
::GENERAL REGISTER
;s sGENERAL REGISTER
:sGENERAL REGISTER
: sGENERAL REGISTER
:3STACK POINTER
; :PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=
PR3=
PRG=
PRS=
PR6=
PR7=

100000

SW15=
Swlé=

040000

11
X2

0
40
100
140
200
240
300
340

TY
TY
TY
TY

LEVEL
LEVEL
LEVEL
LEVEL

:;PRIORITY LEVEL
;:PRIORITY LEVEL
;sPRIORITY LEVEL

;sPRIORITY LEVEL

;¢''SWITCH REGISTER' SWITCH DEFINITIONS
100000
40000

NOWES
LN — O

(70uQ-Co
czouac.mi

SW
S
S
SU

*‘U\

AGE 18
IONS

SEQ 0014

—_ ) S =N S =B NS 2RI B =P

000004
000002
000001

SIC

CCE CEC

020000
010000
004000

09- SEP80

OO OOOOO—'—'—i—'
=2 PIN SN0 N
OO 2NN

MACY11 30A(1052)
20-AUG~80 09:19

2% 1%) v

SW00, Swo0

BIT DEFINITIONS

000004
000010

: *BASIC
ERRVE(=
RESVEC=

B1T00 TO BIT15)

I
b B

O =PI N NN
O

Pumy) Gt P
P

Py oy P

-»
-»

Gy pump P

QOOOOQOOOOO
O =PI NS VNVOR N
O

umg Pueg S

Pump P

Guue) et

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

[o e XoeXooJooRaeko
o foodoedooRoo

100090

Y
b b b b e el

100000

g Pun

(20uQ-Co

czouec.m

‘CPU'’ TRAP VECTOR ADDRESSES
;TIME OUT AND OTHER ERRORS
:iRESERVED AND ;LLCGAL INSTRUCTIONS
0

—

CZouQ-Cco
czouec.m\
4
742
743
764
745
746
47
748

749
750

MACY11 30A(1052)
20-AUG-80 09:19

000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

09-SEP-80 1 0:57 PAGE 19
BASIC DEFI NITIONS
TBITVEC=14
TRTVEC= 14

BPTVEC= 14
I0TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34

TKVEC=
60
TPVEC=
64
PIRQVE(C=24 0

SEQ 0015
s+ TRACE

TRAP

; ;BREAKPOINT TRAP (BPT)
:: INPUT/OUTPUT TRAP (IOT) ««SCOPEer
;;POWER FAJL

:;EMULATOR TRAP (EMT) *+ERRORe+
::'TRAP'' TRAP

2 TTY KEYBOARD VECTOR
;2 TTY PRINTER VECTOR
: ;PROGRAM INTERRUPT REQUEST VECTOR

(20uQ-C0

czouac.m 1"

MACY11 30A(1052)
20-AUG-80 09:19

10:57
PAGE 20
BASIC DEFINITIONS

09-SEP-80

SEQ 0016

:STANDARD INTERRUPT VECTORS

000174
000176
000200

000174
000000
000000
000200
000167

001100
000000
177570

001746

=174
DISPREG:0
SWREG:0
.=200

JMP

LSTART

;60 TO START OF

PROGRAM

.=1100
.WORD 0
LIGHTS:177570

;PROGRAM (ONTROL PARAMETERS

000000
000000
000000
000000
000000
000000

RETURN:
NEXT:

0
0

PASCNT:

;ADDRESS CONTAINING PASS (COUNT

;STACK POINTER STORAGE

LOCK:

ERRCNT: 0
SAVSP:

;ADDRESS OF

NEXT TEST

TO BE EXECUTED

;ADDRESS FOR LOCK ON CURRENT DATA
;ERROR COUNT

;PROGRAM VARIABLES

000020
000000
000000
000000
000000

001140
001142
001144

000000
000000
000000
000000
000000
000000

HOLD:
SHIFT:

COUNT:
SAVPC:

HLDO:
HLD1:
HLDZ:
HLD3:
HLD&:
HLDS:
HLD6:

20
0

O
0

0
0
0
0
0
0
0

; TEMPORARY STORAGE=DELAY TIME FOR CABLES
: TEMPORARY STORAGE= # OF SHIFTS PER CHAR

: TEMPORARY STORAGE= # OF TIMES A CHAR WILL BE SENT
;PROGRAM COUNTER STORAGE

C10uQ-Co
C20UQC . M1
793

792
793
794
795
796
797
;gg
800
801
802
803
804
805
806
807
808
809

g}?

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 21
BASIC DEFINITIONS

001146
001147
001150
001151
001152
001153

377
377
377
377
000
377

SYNCNO:
SEXMIT:
SEREC:
OPTCLR:
MULTD:
JMRBY:
.EVEN

001154
001156
001160
001162
001164
001166

000000
000000
000000
000000
000000
000000

BASEADD:
KEEPADD:
LASTADD:
BASEIV:
KEEPIV:
ACTREG:

001170

000000

ROTADD:

g}%

814
815
816
817
818
819
820

SEQ 0017

:PROGRAM CONVERSATIONAL PARAMETERS

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

377
377
377
377
0
377

;# OF SYNC CHARS REQ'D FOR SYNC'ZATION
;SEC XMIT JUMPER "IN’
;SEC REC JUMPER '‘IN"
;OPTIONAL JUMPER (LR '‘IN"
:NO MULTIPLE DEVICE FLAG
;EXTERNAL MODEM BYPASS JUMPER '‘IN'’

:PROGRAM MULTIPLE DEVICE PARAMETERS
0
;PROG CONTROLLED 1ST DEVICE ADDR
0
:SAVED 1ST DEVICE ADDR
0
;LAST DEVICE RXCSR ADDR
0
;PROG CONTROLLED IV
0
;SAVED INTR VECTOR
0
;ACTIVE REGISTER ,, ,MODIFY THIS
;LOCATION TO DISQUALIFY OR QUALIFY
;DEVICES (1= RUN,,,0= DON'T RUN)
0
;ROTATING POINTER FOR ACTREG..POINTS

;7O DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES

;PROGRAM CONTROL FLAGS

001172
001173
001174

000
000
000
001176
001400

INIFLG:
STFLG:
LOKFLG:
.EVEN
.=1400

.BYTE
.BYTE
.BYTE

O
0
O

;PROGRAM INITIALIZATION FLAG
;TEST START FLAG
;LOCK ON CURRENT TEST FLAG

MACY11 30A(1052)

20-AUG-80 09:19

10:57 PAGE 22
09-SEP-80
BASIC DEFINITIONS

SEQG 0018

;INSTRUCTION DEFINITIONS
TST =(SP)
TST (SP)+

;RESTORE RO FROM STACK =MOV (SP)+, RO
;DECREMENT STACK TWICE =(MP -(SP), -(SP)

;REC ACTIVE

:SEC REC DATA
;DATA SET RDY
;STRIP SYNC
;REC DONE
;REC INTR ENABLE
;0SC INTR ENABLE
:SYNC SEARCH
;SEC XMIT DATA
:REQ TO SEND

;DATA TERM RDY
DBUF BIT DEFINITIONS

sREC ERROR
:OVERRUN

s FRAME ERROR

020000
010000

;PARITY ERROR

RCSR BIT DEFINITIONS

EVPAR=BIT8

;PARITY ENABLE
;EVEN PARITY SENSE

SYNINT=30000

:SYNC EXTERNAL MODE

:PARCSR WRD DEFINITIONS

030000
020000
000000
000000
002000
004000
006000
000000
001000
001400

SYNEXT=20000
1SYMOD=0
FIVE=0
$1X=2000
SEVEN=4000
EIGHT=6000
NOPAR=0
ODDPAR=1000
EVEPAR=1400

100000

ONA=BIT1S

040000
020000
002000
000400
000200
000100

;SAVE RO ON STACK =MOV RO,=-(SP)

;DATA SET CHANGE
;RING
:CLR TO SEND
; CARRIER DETECT

STD=BIT3

100000
040000

001000
000400

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

; INCREMENT STACK TWICE =CMP (SP)+, (SP)+
;REGISTER DEFINITIONS
O 4=t s L —b

100000

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

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

et g P

005746
005726
010046
012600
024646
022626

St B

(ZouQ-Co

czbuac.mi

s SYNC INTERNAL MODE

; 1S0C MODE

;WORD LENGTH 5 BITS
;WORD LENGTH 6 BITS
;MORD LENGTH 7 BITS
;WORD LENGTH 8 BITS
:NO PARITY
.00D PARITY
;EVEN PARITY

:TXCSR BIT DEFINITIONS

MTDATA=BIT14

;DATA NOT AVAILABLE
MAINT DATA
(LK
;BT WINDOW
;MASTER RESET
;XMIT DONE
;XMIT INTR ENABLE

(Z0uQ-Co
czouec.m

877

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-B0

10:57

PAGE 23

SEQ 0019

BASIC DEFINITIONS

000040
000020
000010
000001

DNAINTE=BITS
SEND=BIT4
HDXEN=BIT3
BREAK=BITO

;ONA INTR ENAB
; SEND
s HDX/FDX
; BREAK

000000
004000
010000
014000

USER=0
MINT=4000

;USER MODE
;MAINT INT MODE

SYSTST=14000

;SYSTEM TEST MODE

:TXCSR WRD DEFINITIONS

MEXT=10000

;MAINT EXT MODE

MACY11

cZouQ-Co

30A(1052)

20-AUG-80 09:19

czouac M

09-SEP-80

10:57

COMMON TAGS
.SBTTL
AR

PAGE 24

SEQ 0020

COMMON TAGS
A

AR LRl
AN

$*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

$AUTOB:

$INTAG:

.BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
177560
$TKS:
177562
$TKB:
177564
$TPS:
177566
$TPB:
$NULL:
.BYTE
$FILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$REGAD: .WORD

001442

001444
001446
001450
001452
001454
001455
001456
001457
001460

-l
b
el
o
il
il
—

VAVAVAWVWIWVIAA

<><>c>§h:<>§fig

001462

.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607

077
015

000377

$REGO:
.WORD
$REG1:
.WORD
SREG?:
.WORD
$REGS:
.WORD
$SREGS4:
.WORD
$REGS:
.WORD
$STMPO:
.WORD
STMPY:
+WORD
.WORD
$STMP2:
.WORD
$TMPY:
$TMP4:
-WORD
$TMPS:
.WORD
$TIMES: 0
$SESCAPE: 0
$BELL:
LASCIZ
CASCLI
$QUES:
$CRLF:
JASCHI

rdd=l=lelelolelololalal

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
SLPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

.WORD
.BYTE

SWR
DISP

::START OF COMMON TAGS

:;CONTAINS THE TEST NUMBER
: sCONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;s CONTAINS SCOPE LOOP ADDRESS
;s CONTAINS SCOPE RETURN FOR ERRORS
;s CONTAINS TOTAL ERRORS DETECTED
;s CONTAINS ITEM CONTROL BYTE
: ;CONTAINS MAX. ERRORS PER TEST
;s CONTAINS PC OF LAST ERROR INSTRUCTION
; ;CONTAINS ADDRESS OF 'GOOD' DATA
;s CONTAINS ADDRESS OF 'BAD' DATA
; ;CONTAINS 'GOOD* DATA
: ;CONTAINS °'BAD' DATA
; RESERVED-=NOT TO BE USED
; ;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

:;ADDRESS OF SWITCH REGISTER
; s ADDRESS OF DISPLAY REGISTER

;:TTY KBD STATUS

:.TTY KBD BUFFER

::TTY PRINTER STATUS REG.

[p %]

$CMTAG:

000000
000
000
000000
000000
000000
000000
000
00
000000
000000
000000

OO—-NO

001400

OO0OOO0O0OOO0OO0OO

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

Jolelelelele el

;*USED IN THE PROGRAM,

::TTY PRINTER BUFFER REG. ADDRESS
:;CONTAINS NULL CHARACTER FOR FILLS
::CONTAINS # OF FILLER CHARACTERS REGUIQED

;s INSERT FILL CHARS. AFTER A '‘LINE FEED’
;" 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
:sCONTAINS THE ADDRESS FROM
;sWHICH (SREGO) WAS OBTAINED
+()
. sCONTAINS ((SREGAD)
::CONTAINS ((SREGAD)+2)
+4)
s CONTAINS ((SREGAD)
+6)
;s CONTAINS ((SREGAD)
:CONTAINS ((SREGAD)+10)
;;CONTAINS ((SREGAD)+12)
:sUSER DEF INED
:sUSER DEF INED
JsUSER DEF INED
:sUSER DEF INED
:sUSER DEFINED
:sUSER DEFINED
;s MAX, NUMBER OF ITERATIONS
;sESCAPE ON ERROR ADDRESS

<207><377><377> ::CODE FOR BELL
/7/
<15

ADDRESS

;;QUESTION MARK
s sCARRIAGE RETURN

—

czoua-Co

MACY11

001524

000012

946

09-SEP-80

10:57

COMMON TAGS

PAGE 25

SEQ 0021

SLF

ASCIT

.SBTTL

APT MAILBOX-ETABLE

s.LINE FEED
e

::tt'tit"'t"""""""t'""'Qti"l."'.""'tQ'Q""'.t'""

947

948
949
950

000000
000000
000000
000000
000000
000000
000000
000000

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

GAGRC. o,

000
000

MS1:
YP1:

.
.

AMAMS
AMTYPA

®e S

—

\V 1V, |

[ele]
oo

l»

001554

000
000
000000
000000
000000

SMAIL:
$MSGTY: .WORD
SFATAL: .WORD
$TESTN: .WORD
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
$CPUOP: .WORD

2 BT
»
—~
>

942
943
944
945

30A(1052)

20-AUG-80 09:19

czouQc.m

000000

$MADR1:

001562
001563
001564
001566
001567
001570
001572
001573

000
000
000800

SMAMS?:
SMTYP2:
$MADR?:
3:
SMAMS
$SMTYP3:
$SMADRS:
SMAMSS:
SMTYP4:
$SMADRS:
$VECT1:
SVECT?:
$BASE:
SODEVA:
$COWY:
$COWe:

—d

)

001560

000000

.WORD

AMADR1

.BYTE
.BYTE
.WORD
.BYTE
.BYTE
.WORD

AMAMS?
AMTYP2
AMADR?
AMANS3
AMTYP3
AMADR3
AMANSL
AMTYP4
AMADR4
AVECT]
AVECT?
ABASE

$00W0:
$0DW1:
$ODW2:
$DDWY:
$DDW4:
$ODWS::

.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

ADEVM

ACOW1
ACOW?
ADDWO

;APT MAILBOX
;s sMESSAGE TYPE CODE
::FATAL ERROR NUMBER
;s TEST NUMBER
s sPASS COUNT
:sDEVICE COUNT
::1/0 UNIT NUMBER
s sMESSAGE ADDRESS
;s sMESSAGE LENGTH
;sAPT ENVIRONMENT TABLE
:;ENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
:sAPT SWITCH REGISTER

:sUSER SWITCHES
+;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11/706=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

Bl T 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
Bl T
8=MEMORY MANAGEMENT
Bl T
;HIGH ADDRESS,M.S.

:MEM. TYPE, 8LK01

: M.TYPE BYTE

BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
S00 NSEC M0S=003

:sHIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ''TYPE'' ABOVE
:sHIGH ADDRESS,M.S. BYTE
::HEH.TYPE.BLKOZ
s sMEM.LAST ADDRESS.BLK#?
:sHIGH ADDRESS ,M.S.BYTE

:;MEM.TYPE ,BLK#3
:sMEM.LAST ADDRESS,BLK#3
ssHIGH ADDRESS ,M.S.BYTE

ssMEN.TYPE ,BLKAG
s sMEM.LAST ADDRESS,BLK#G

;s INTERRUPT VECTORI1 BUS PRIORITYM
s s INTERRUPT VECTORlZBUS PRIORITYAN?

::BASE ADDRESS OF EQUIPMENT UNDER TEST
:sDEVICE MAP
:;CONTROLLER DESCRIPTION WORD#1

ADDW1

:;CONTROLLER DESCRIPTION WORDA?2
;:DEVICE DESCRIPTOR WORDA(Q
..DEVXCE DESCRIPTOR WORDA

ADDW3

..DEVICE DESCRIPTOR WORD#3

ADDW?
ADDW4

ADDWS

DEVICE DESCRIPTOR WORDA?
ICE DESCRI PTOR WORDA4
1CE DESCRI PTOR WORDAS

—

(I0ua-Co

czouac.mi
998
999
1000
1001
1002
1003
1004
1005
1006

}88;

1009

1010

001626
001630
001632
001634
001636
001640
001642
001644
001646

001650

001652

MACY11 30A(1052)

20-AUG-80 09:19
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000

09-SEP-80

10:57

PAGE 26

APT MAILBOX-ETABLE

$00W6:
$ODW7:
$ODW8:
$DOW9:
$DOWi0:
$ODW11:
$DOW12:
$ODW13:
$ODW14:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$0DW15: .WORD
SETEND:

ADDW6
ADOW?
ADDW8
ADDW9
ADDWIO
ADDW11
ADDW12
ADDW13
ADDW14

ADDW15

SEQ 0022
;;DEVICE DESCRIPTOR WORDA6
;;DEVICE DESCRIPTOR WORDA?7
;;DEVICE DESCRIPTOR WORDAS8
;;DEVICE DESCRIPTOR WORDA9
;;DEVICE DESCRIPTOR WORDA10
;:DEVICE DESCRIPTOR WORD#11
;;DEVICE DESCRIPTOR WORDA12
;;DEVICE DESCRIPTOR WORDA13
;;DEVICE DESCRIPTOR WORDA14

;;DEVICE DESCRIPTOR WORDA15

MACY11

30A(1052)

20-AUG-80 09:19

09-SEP-80

10:57

PAGE 27

SEQ 0023

APT MAILBOX-ETABLE

)

o [olalelelelololololololalalalololeledo) o
W NN AN NN NI NI NI PO NI NI NI PO N = b b - D purd
&» WA = OOV
NO VNN 2O 0V00 NN »

czouQ-C0
czouQc.mi

035

b and cnd

b ad

b ad el

D i

D e

D o

D i

: INSTRUCTION DEFINITIONS
PUSH1SP=5746
POP15P=5726
PUSHR0=10046
POPR0=12600
PUSH2SP=24646
POP2SP=22626

100000

pSC=BIT1S

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

RS ERERRRRR2222598

040000
020000
010000

=g =l
oo
Voo~

WVAVA WA

WN =2 O 00~

(=l=l=lelelal

54
55

:DECREMENT PROCESSOR STACK 1 WORD T ST =(SP)
; INCREMENT PROCESSOR STACK 1 WORD T ST (SP)+
;SAVE RO ON STACK =MOV RO,=(SP)
;RESTORE RO FROM STACK =MOV (SP)+,RO
;DECREMENT STACK TWICE =CMP -(SP),=(SP)
: INCREMENT STACK TWICE =CMP (SP)+,(SP)+
;REGISTER DEFINITIONS

005746
005726
010046
012600
024646
022626

:RXCSR BIT DEFINITIONS

RING=BIT14

DTR=BIT1

VOID=BITO

:CLR TO SEND
;CARRIER DETECT
JREC ACTIVE
:SEC REC DATA
;DATA SET RDY
;STRIP SYNC
:REC DONE
¢REC INTR ENABLE
;DSC INTR ENABLE
¢ SYNC SEARCH
sSEC XMIT DATA
;REQ TO SEND
;DOATA TERM RDY

:R X DBUF BIT DEFINITIONS
RXERR=BIT1 5
;REC ERROR
OVRRUN=BIT 14
: OVERRUN
:FRAME ERROR
FRMERR=BIT 13
;PARITY ERROR
PARER=BIT1 2

:PARCSR BIT DEFINITIONS
;PARITY ENABLE
EVPAR=B]IT8
;EVEN PARITY SENSE

001000
000400

PAREN=BIT9

030000
020000
000000
000000
002000
004000
006000
000000
001000
001400

SYNINT=30000

SYNEXT=20000
1SYMOD=0
FIVE=0
SIx=2000
SEVEN=4000
EIGHT=6000
NOPAR=0
0DDPAR=1000
EVEPAR=1400

100000

ONA=BIT1§

:PARCSR WRD DEFINITIONS

:SYNC EXTERNAL MODE
s SYNC INTERNAL MODE
: 1S0C MODE
;WORD LENGTH 5 BITS
;WORD LENGTH 6 BITS

;WORD LENGTH 7 BITS
;WORD LENGTH 8 BITS

:NO PARITY
;00D PARITY
;EVEN PARITY

:TXCSR BIT DEFINITIONS

MTDATA=B1T14

CLK=BIT13

000100

;DATA SET C(HANGE

;RING

BITv=81 T 10
MRESET BIT8
17
TXDONE 8IT
I7 ?
TXINTE=BIT
BITé

:DATA NOT AVAILABLE
¢MAINT DATA
; CLK
:B1T WINDOW
;MASTER RESET
:XMIT DONE
SXMIT

INTR ENABLE

e
—————a

CZouQ-Co

czouQc.m

1070

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80

10:5°

PAGE 28

SEQ 0024

APT MAILBIX-ETABLE

000040
000020
000010
000001

DNAI%Tc=BITS
SENL=BIT4
HDXEN-B4LT3
BREAK=BITO

;ONA [NTR ENAB
; SEND
s HOX/FDX
: BREAK

000000
004000
010000
014000

USER=0

;USER MODE

;TXCSR WRD DEFINITIONS

MINT=4000
MEXT=10000
SYSTST=14000

;MAINT INT MODE
;MAINT EXT MODE
;SYSTEM TEST MODE

C20ua-Co
c2ouac .M

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 29
ERROR POINTER TABLE

SEQ 0025

}858

.SBTTL

1081

;*THIS TABLE CONTAINS THE

1084

;*NOTE1:

1082
1083

}}}?

1112
1113
1114
1115
1116
1117

1118
1119
1120
1121
1122
1123

1124

1125
1126
1127
1128
1129
1130
1131
1132
1133
1134

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

}832
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109

ERROR POINTER TABLE

IfF SITEMB IS O THE ONLY PERTINENT DATA IS

;*NOTE2:
it
Yy
T
o

001652

001652
001654
001656
001660
001662
001664
001666
001670
001672
001674

001762
002067
002116
002132
002022
002067
002116
002132
002043
002067

001702
001704
001706
001710

001746
000000
002126
002132

001676
001700

001712
001714
001716
001720
001722
001726
001726
001730
001732

001734

- $ERRTB:

EM
DH
DT
DF

020040
020122
020040
051101
042440
067440

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

;ERROR 1

;ERROR 2

RECEIVER ERROR

;ERROR 3

TRANSMITTER ERROR

EM4
0
DT4
DF 1

;ERROR &

BIT ERROR (GENERAL)

;DEFAULT DU ADDRESSES
RXCSR:
160010
HRXCSR: 160011
RXDBUF: 160012
HRXDBUF :
160013
PARCSR: 160012
HPARCSR:
160013
TXCSR:
160014
HTXCSR: 160015
TXDBUF: 1€ 116

160017

001746
001754
001762
001770
001776
002006

TO
TO
TO
TO

EM1
DK1
0T
DF1
EM2
DH1
DT
DF1
EM3
DH1
T
DF1

160010
160011
160012
160013
160012
160013
160014
160015
160016

000770

;:POINTS
;;POINTS
::POINTS
;:POINTS

;ERROR TABLE

002116
002132

001736

001740
001742
001744

‘

HTXDBUF :

DURIV:

000772
000774
000776

DURIS:
DUTIV:
DUTIS:

051105
041520
047503
051511
051122
020116

047522
000040
050115
047117
051117
042522

(SERRPC).

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

160017

-DEFAULT DU VECTORS

270

:REC INTR VECTOR

EMé:

772
sREC INTR STATUS
774
:XRIT INTR VECTOR
776
SXMIT INTR STATUS
;ERROR MESSAGES
.ASCIZ
/ ERROR PC /

EM1:

LASCIZ /

COMPARISON ERROR ON REGISTERS/

(Z0uQ-C0

czouac.m11
002012
002020
002022
002030
002036
002043
002050
002056
002064

044507
000123
020040
053111
051122
040
051516
051105
051117

002067
002074
002102
002110

N NN NNNNNNNOOO
OPQPOI QB CBONIOD

PAGE 30

SEQ 0026

042522
051105
051117
052040
044515
042440
000

042503
042440
000
040522
052124
051122

EM2:

LASCIZ

RECEIVER ERROR/

EM3:

<ASCIZ

TRANSMITTER ERROR/

105
020040
042105
052524
002116

051122
040527
020040
046101

041520
052116
041501
000

DOH1:

;DATA HEADERS FOR ERROR MESSAGES
.ASCIZ
/ERRPC WANTED ACTUAL/

002116

001416

001130

001132

0T1:

;DATA TABLES FOR ERROR MESSAGES
.WORD
SERRPC,HLDO,HLD1.0

002126

001416

000000

DT4:

.WORD

SERRPC,0

002132
002135

000
000

000

DOF1:
EVEN

.BYTE

0,0,0,0

.SBTTL

ACT11

002124

000000

000

.EVEN

HOOKS

::Qfiiifitfitttt'ttttt'"tti'i't'tt'tttfifiltttttitt.itfit"fi't.‘tt't"

b e
b b
o
ad
b

b- o

10:57

ERROR POINTER TABLE

051105

000046

002136
000046

835823

000052 000000
002136

D il i
Dl i
e D b i D i
) ) e i ad D i
el D )
)
D
e e e
il
o
e el i
e i
— e
il

09-SEP-80

052123

P
d oD

b e e
d b D

b e e e
d D D e

VNV

D o
D o

i
o

oD e i
D D oD

b o
d
D od i

D )
D e

e e
o i

b
b

b
D

d
d

d
b

NNWIW

1135

MACY11 30A(1052)

20~AUG-80 09:19

;HOOKS REQUIRED BY ACT11
$SVPC=.
.=46
$ENDAD

;SAVE PC

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

'WORD 0
=$SVPC
.SBTTL APT PARAMETER BLOCK
BRI

::2)SET LOC.52 TO ZERO
**“RESTORE PC

2222822222020 2322220222202 22 R R RRRRRRRRRRRRRRRRRRRRRd)

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

;:"Qt't'tt'tt'i'lt""'iitt""'.'tt't'tttlt't'tt'ittt'tt'til'tt

000024
000044

002136
000024

.$X=.
=24

000200

000044
002136
002136

200

;:SAVE CURRENT LOCATION
:sSET POWER FAIL TO POINT TO START OF PROGRAM

:;FOR APT START UP

.=bb
:;POINT TO APT INDIRECT ADDRESS PNTR.
SAPTHDR ;;POINT TO APT HEADER BLOCK
.=.8X
;,RESET LOCATION COUNTER

::t'ttttttttttt""'t"ft"""tttt'it."t!t"tltt'itttt"'lt"tt

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
s INTERFACE SPEC.

002136

002136
002140
002142
002144

002146
002150

000000
001526
000010
000010

000000
000052

SAPTHD:

$HIBTS:
$SMBADR:
$TSTM:
$PASTM:

.WORD
.WORD
_WORD

0
SMAIL
10
10

WORD

SETEND-SMAIL/2 ;.LENGTH MA'LBOX-ETABLE (WORDS)

.WORD
SUNITM: _WORD

;;TW0 HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
:sRUN TIM OF LONGEST TEST
;sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)

;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNLT

Q-C0

Qc.m11

MACY11 30A(1052)

20-AUG-80 09:19

09-SEP-80

91
9?2
93

;SET UP PROCESSOR STACK
;:SET UP POWER FAIL VECTOR
:CLEAR PROGRAM CONTROL FLAGS AND COUNTS
;TYPE TITLE MESSAGE

002152

002152
002156
002160
002164
002166

012706
005026
022706
001374
012706

001400

002172
002200
002206
002214
002222
002230
002236
002244
002252
002256
002262
002270
002276

012737
012737
012737
012737
012737
012737
012737
012737
005067
005067
112767
012767
012767

016272
000340
014160
000340
016626
000340
014762
000340
177234
177232
000001
002270
002276

002304
002310
002316
002324
002332
002340

013746
012737
012767
012767
022777
001012

000004
002344
177570
177570
177777

002342
002344

000493
012716

002352

012767

000176

002366

012637

000004

38
39
40

002372
002376
002404

005067
132767
001403

43
46
4S5
46

002414
0026420
002624
002432

NN NI N

rororRNrRORRDNND RN MNINIMNVRNNIRNININLMNVRNINA NIRINI AN NN NN

09
10
11
12
13
14
15
16
17
18
19
20
21
22
3
26
25

26
27
28
29
30
31
32
33

SEQ 0027

(PR RRAM INITIALIZATION

207

PAGE 31

;LOCK OUT INTERRUPTS

95
96
97
gg

00
01
02
03
204
205
206

10:57

APT PARAMETER BLOCK

002350

002360

8852?2

000002

012767

.START:
LSBTTL
INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
:;FIRST LOCATION TO BE CLEARED
CLR
(RG)+
::CLEAR MEMORY LOCATION
CMP
#SWR,R6 ; ;DONE?
BNE
=6
::LOOP BACK IF NO

001440

001100

000174

MOV

000020
000022
000030
000032
000034
000036
000024
000026
177125
177110
177104

000004
177114
177110
177100

177060
177054

177136
000200

177143

012767

001550

177024

012706
106427
012737
105067

001100
000340
014762
176535

000024

#OSTACK, SP

;:INITIALIZE A FEW VECTORS

;:SETUP THE STACK POINTER

MOV
#$SCOPE,
AN IOTVEC ; ;10T VECTOR FOR SCOPE ROUTINE
MOV
#340,3#10TVEC+2 ;;LEVEL 7
MOV
#SERROR, S#EMTVEC ;:EMT VECTOR FOR ERROR ROUTINE
MOV
#340,3MEMTVEC+2 ;;LEVEL 7
MOV
#STRAP,3#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
MOV
#340,38TRAPVEC+2;
LEVEL 7
MOV
#SPWRDN, 3#PWRVEC ; :POWER FAILURE VECTOR
MOV
#340,3#PWRVEC+2 ;;LEVEL 7
CLR
STIMES
;> INITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
::CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
;sALLOW OMC ERROR PER TEST
MOV
#.,SLPADR
;:INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,SLPERR
:sSETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWIT(H REGISTER. IF NOT FOUND OR IT IS
::EQUAL TO A ‘'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER,
MOV
SFFRRVEC,-(SP)
;;SAVE ERROR VECTOR
MOV
#648 ,3MERRVEC
;;SET UP ERROR VECTOR

MOV
MOV
CMP
BNE

#DSWR, SWR
#DDISP,DISPLAY
#-1,3SWR
66%

648

BR
MOV

65%
2658, (SP)

::SETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REG!STER
::TRY TO REFERENCE HARDWARE SWR
: :BRANCH IF NO TIMEOUT (RAP OCCURRED
::AND THE HARDWARE SWR IS NOT = -1
::BRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

65%:

MOV

#SWUREG, SWR

:;POINT TO SOF TWARE SR

66%:

MOV

(SP)+,@#ERRVEC

;;RESTORE ERROR VECTOR

$PASS
SAPTSIZE,.SENVM
67%

:;CLEAR PASS COUNT
;:TEST USER SIZE UNDER APT
::YES,USE NON-APT SWITCH

RTI

MOV

CLR
8IT8

678

BEQ

#DISPREG,DISPLAY

MOV

#SSWREG, SWR

MOV
MTPS
MOV
CLRB

#STACK,SP
2340
#.PFALL, 3824
STFLG

::NO,USE APT SWITCH REGISTER
:SET STACK
:LOCK INTERRUPTS
:SET UP POWER FAIL VECTOR
:CLEAR START FLAG

C20UQ-C0

C20 UQC LR
1247
1248
1249
1250
1251
1252
1253

MACY11 30A1052)

20-AUG-80 09:19

09-SEP-80

002636
002442
002446
002452
002456
002464

005067
105067
005067
005067
012767
012767

176450
176735
176740
176740
000001
002152

1254
1255
1256
1257
1258
1259
1260
1261
1262

002472
002476
002502
002510
002514
002516
002524
002532
002534

013746
013746
012737
005777
000407
012767
012767
022626
012637

000006
000004
002516
176724

000004

000176
000174

176714
176710

1264
1265

002544
002552

022767
001007

000176

1263

1266
1267

1268
1269

1270
1271

002540

002554
002560
002562
002566

002572

002576

012637

005737
001402

000167
004767

105767

001004

000001

1278
1279

002626
002632

105067
000167

176321
000452

1281
1282

002644
002646

1280
1283
1284

002652
002656

032777
001002
000167

012700
012701

176666

33¢:

176374

104401
105167
105767
001410
032767

002636

2%:

000522
010154

002600
002604
002610
002614
002616

001002

015122
176362
176732

000001

ONCE:
176726

176574

000436

000300
000302

1285 002662 012702 000004
002666 010110
1287 002670 005011

1286

1288
1289

002672
002674

060200
060201

1291
1292
1293

002702
002704
002706

1296
1297
1298

002710
002712
002714
002716
002720

002771
104406
015171
104410
160000
177776
017122
001

1300
1301
1302

002722
002730
002734

016767
004767
016767

1290 002676 022701
1294
1295

1299

002721

001

1%:

000042

1272
1273
1274
1275
1276

1277 002624

176716
176412

000004

000006

10:57

CLR
CLRB
CLR
CLR
MOV
MOV

PASCNT
SERFLG
$ERTTL
SERRPC
#1,8TSTNM
#.START ,RETURN

MOV
MOV
MOV
ST
BR
MOV
MOV
CMP
MOV

a6, =(SP)
G, -(SP)
ns.an
ASWR
2%
#SWREG, SWR
#DISPREG,DISPLAY
(SP)+,(SP)+
(SP)+.al

CMP
BNE

#SWREG,
SWR
38

MOV

TSt
BEQ
JMP
JSR

1ST8

BNE

TYPE
cComMB8
TSTB
BEQ
BIT

BNE
128:

CLRB
JMP

(SP)¢+.al6

¥,
338

;CHECK FOR CHAIN

INIFLG

:HAS INITIALIZATION BEEN PERFORMED

.BEGIN
PC,CNTLU
ONCE

JATITLE
INIFLG
SENV
118
#1,3USWR

;TYPE TITLE MESSAGE
;IF NOT SET FLAG AND DO
;APT CONTROL?
BR IF NO
;EXTENAL JUMPER ON

JMRBY
.BEGIN

‘CLEAR FLAG
260 DO IT

12§

:RESELECT VECTOR & CONTROL REG?

#SW00,aSWR

1$:

MOV
MOV

#300,R0 ;RESTORE VECTOR AREA TO TRAPCATCHER
#302°R1 'START AT LOCATION 300

2%:

MOV

R1.(RO)

ADD
ADD

R2.RO
R2 R

BYTE

176212

;CLEAR PASS COUNT
*CLEAR ERROR FLAG
*CLEAR ERROR COUNT
sCLEAR LAST ERROR POINTER
*SET UP FOR TEST 1
:SET UP FOR POWER FAIL BEFORE
;TESTING STARTS

BIT

BNE
JMP

MOV
CLR

CMP

176226

SEQ 0028

11%:

001000

014174
014034
176216

PAGE 32

INITIALIZE THE COMMON TAGS

.BYTE

BLT
INSTR
MREGAD
PARAM
160000
177776
DUBASE
1

MOV
JSR
MOV

1%
.BEGIN

2 RS
(1)

#1600, R1

;END AT LOCATION 776

28
:OUTPUT MESSAGE & GET INPUT STRING
:MESSAGE
:CONVERT STRING
;LOW LIMIT
:RIGH LIMIT
;STORE AT THIS LOCATION
TMASK

:HOW MANY TIMES ¢+ 2

DUBASE ,KEEPADD ; SAVE
PC,DUADDR
KEEPADD BASEADD ;RESTORE FOR ROTATION

—

¢210uUa-Co

cZouac.M11

MACY11 30A(1052)

20-AUG-80 09:19

09-SEP-80

1303
1304
1305
1306
1307
1308
1309
1310
1311
1312

002742
002744
002746
002750
002752
002754
€02756
002757
002760
002766

104406
015156
104410
000300
000776
001736
001
004
016767
016767

1314
1315
1316
1317
1318
1319
1320
1321

002776
003000
003002
003004

015221
104414
001152
105767

003010
003012
003016
003022
003026
003026
003030
003032
003034
003036
003040
003042
003043

100406
005067
005067
000167

003044

012767

000001

176116

003056
003064
003066
003072
003074
003102
003110
003112

056767
000241
006167
103421
062767
026767
101362
056767

176106

176102

1313

1322
1323
1324

1325
1326

1327
1328
1329

1330
1331
1332
1333
1334
1355
1336
1337
1338
1339
1340
1341
1342
1343
1344

1345

002774

003052

104406

1349 003144

104406

1350
1351
1352

1353
1354
1355
1356

1357

1358

003146
003150
003152

003154
003156
003160
003161

003162

003166

176142

MMULT
SETFLG
MULTD
TSTB

176150
176146
000140

BM]
CLR
CLR
JMP

;MESSAGE
:SET FLAG BASED UPON INPUT STRING
;THIS FLAG
MULTD
;ARE THERE MULTIPLE DEVICES
:ON THE SYSTEM ?
BBB
SYES,ASK NEXT QUESTION
ACTREG
ROTADD

176752
176744

176176
176166

.BYTE
BYTE

INSTR

BBB:

016767
000414
016767

INSTR

MLASTD
PARAM

160000
177776
001160
001
001

012767

003126
003134
003136

SEQ 0029

;QUTPUT MESSAGE & GET INPUT STRING
;MESSAGE
:CONVERT STRING
;LOW LINMIT
THIGH LIMIT
:STORE AT THIS LOCATION
S MASK
*HOW MANY TIMES + 2
OURIV,KEEPIV
;SAVE
DURIV,BASELV
SET UP FOR ROTATION

015250
104410

003120

13646
1347
1348

PAGE 33

INSTR
MVECTO
PARAM
300
776
DURIV
1
&
MOV
MOV

104406

005067

10:57

INITIALIZE THE COMMON TAGS

;OUTPUT MESSAGE & GET INPUT STRING

OUTMUL

;JUMP AROUND NEXT QUESTION

;OUTPUT MESSAGE & GET

:MESSAGE
s CONVERT STRING

INPUT STRING

160000
:LOW LIMIT
177776
:HIGH LIMIT
LASTADD ;STORE AT THIS LOCATION

176110

176076

000010
176052

176052
176044

176052

176046

000001

176042

176014

176010

176024

176020

.BYTE
1
s MASK
BYTE
1
*HOW MANY TIMES + 2
;THE FOLLOWING ROUTINE SETS UP ACTREG FOR THE FIRST TIME
1$:
MOV
#1,ROTADD
;SET UP POINTER
CLR
ACTREG
:CLR ACTIVE REGISTER
2%:
BIS
ROTADD,ACTREG
;MAKE THIS DEVICE ACTIVE
cLe
ROL
ROTADD
:SET UP POINTER
BCS
33
*ARE YOU OUT OF RANGE ?
ADD
#10,BASEADD
;SET UP BASE ADDRESS
CMP
LASTADD,BASEADD :1S THIS THE LAST DEVICE ?
BHI
23
sNO DO IT AGAIN
BIS
ROTADD,ACTREG
;THIS ASSUMES THAT THERE ARE AT
SLEAST TWO DEVICES WHEN YOU ANSWER YES TO
*MULTIPLE DEVICE QUESTION

4%:

MOV

#1,ROTADD

:SET UP FOR LATER USE

MOV
BR
MOV

KEEPADD,BASEADD ;DITTO
OUTMUL
;CONTINUE QUESTIONS
KEEPADD,BASEADD ;RESTORE

015344
104410
160000

MRANGE
PARAM
160000

;MESSAGE
:CONVERT STRING
:LOW LIMIY

001160
001

LASTADD :STORE AT THIS LOCATION
1
*MASK

3$:

177776
001

000167

012767

INSTR

177776

177656

000340

JBYTE
BYTE

013570

JMP

OUTMUL: MOV

;OUTPUT MESSAGE & GET INPUT STRING
:HIGH LINIT

‘HOW MANY TIMES ¢ 2

;00 1T AGAIN

#340,DUPRT

IN END OF PASS ROUTINE

—

CZouQ-Co

czouac AN

003174

003200

MACY11 30A(1052)
20-AUG-80 09:19

004767

09-SEP-80
10:57 PAGE 34
INITIALIZE THE COMMON TAGS

013514

JSR

AAA:

122767
001004
112767
000402
104407
000757
000240

000061

012712

3%:

175726

000062

012674

177777

175706

104406

1%:

INSTR

CMPB
BNE

(% :

NOP

104414

104406

;MESSAGE

CMPB
BNE
CLRB

B8R

#'1, INBUF
1%
SYNCNO
:000

104414

001150
104406
015751

INSTR

104406

;377

:OUTPUT MESSAGE & GET

INPUT STRING

INSTR

:OUTPUT MESSAGE & GET INPUT STRING

016030

MEXTJ

001153

JMRBY

SETFLG

106414

SIS 1Tt 2

;MESSAGE
:SET FLAG BASED UPON INPUT STRING
:THIS FLAG

SETFLG
OPTCLR
INSTR

001151

#-1,SYNCNO
48
;RETRY

SIS IT 9

MWIREG
SETFLG
SEXMIT

MWIRE4

106414

#'2, INBUF
28

INSTR
MWIRES
SETFLG
SEREC

015701

INPUT

;OUTPUT MESSAGE & GET INPUT STRING

MSYNC

28:

001147

003270

;BUFFER TO THE CHARACTERS "TM'* AND "2
:1F THE CHARACTER IS "'1'" CLEAR THE FLAG
;IF THE CHARACTER IS ''2"' SET THE FLAG

MOVB
BR
INSTER

015630

003272
003274
003276
003300
003302
003304
003306

PC,DULEV

:COMPARE THE FIRST CHARACTER IN THE TELETYPE

104406

015562
122767
001003
105067
000412

SEQ 0030

:OUTPUT P SSAGE & GET INPUT STRING
;MESSAGE
:SET FLAG BASED UPON INPUT STRING
:THIS FLAG
;MESSAGE

.SET FLAG BASED UPON INPUT STRING
:THIS FLAG
;OUTPUT MESSAGE © GET INPUT STRING
;MESSAGE

:SET FLAG BASED UPON INPUT STRING
:THIS FLAG

;TEST START AND RESTART
003310
003314
003320

003326
003330
003332

012706

106427

032777
001413
104406
015514

001100
000340
000002

176112

.BEGIN: MOV
MTPS
gég

_a_o_a-.-aso
S W20V

JBYTE

o o

e
el
e
—d e

003374
017500

104401

000177

176030

175530

003374
015510

175520

175510

BYTE

3$:

SSET UP STACK
SLOCK OUT INTERRUPTS
“1F Sw01=1, GET STARTING PC

INSTR

:OUTPUT MESSAGE & GET

$TSTNM
1

:STORE AT THIS LOCATION
TMASK

MTSTPC
PARAM
38
17500

104410

#STACK,SP
#340
gguo1.asua

;MESSAGE
:CONVERT STRING
SLOW LIMIT
:HIGH LIMIT

INPUT STRING

"HOW MANY TIMES + 2

ggv

2Isrnn RE TURN

MOV

#1ST1,RETURN

SSTART AT TEST 1

JMP

aRE TURN

SSTART TESTING

TYPE

STYPE R

(=X
=,

rn;

555
W
~NON gwMMWNNNNNNNNNN—O—J—o—AJ

W) =2 OV NO VSN —=2O 000 ~NO W

~d~

o0
cCc

D D
o o
D D D e o
D D D e D d D e
D D e D e
D
PaW S W S
W
F oF 2P o W OB o o ol o o
D d
—? o

0
AN

MACY11 30A(1052)
20-AUG-80 09:19

10:57
PAGE 35
09-SEP-80
INITIALIZE THE COMMON TAGS

SEQ 0031

;s THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS

RN
003374
003376
003404
003412
003416
003420
003422
003426
003430
003432
003440

000004
012737
016737

012737
012737

000006
000000

000004
000006

003446

012767

006200

1754464

105277
000401
104004
105277
000401
104004

000004

TST1:

000006

SCOPE

TR AR RN AR RRE

SRR RO ONTE

MoV
MOV

#TRPREG, 344
PR7 ,a#6 ;

;SETUP TRAPCATCHER

B8R
ERROR

.t
&
n6,a86

;1F 0K JMP AROUND ERROR
;CHECK DEVICE REG ADDRESSES

INCB
BR
ERROR
INCB
MOV
MOV

SRXCSR
;TEST THIS REG
. th
;1F 0K JMP AROUND ERROR
4
;CHECK DEVICE REG ADDRESSES
SHRXCSR ;TEST UPPER BYTE THIS REGISTER

80,346

;RESTORE TRAPCATCHER
:

MOV
#6200,HOLD
;SET LONGER DELAY FOR TEST.
;s THIS TESY PROVES EXISTANCE OF DEVICE REGISTERS

;:REV. co

[

003454
003456
003464
003472
003476

000004
012737
016737
105277
000401

104004
105277

000401

104004

003520

012737
012737

017362

174650
176220

000004
000006

X3S X 2222222222222
2020220220022
R0RRRRRRRRRRRRRRRR )

1512:

INCB
BR

ERROR
INCB
BR
ERROR

176212

000006
000000

SCOPE
MOV
MOV

MOv
MOV

000004
000006

#TRPREG ,a¥4
PR7 346 ;

SRXDBUF
.+

&
SHRXDBUF
.+
&
r6, 304
20,376

;SETUP TRAPCATCHER

;TEST THIS REG
:IF OK JMP AROUND ERROR

:CHECK DEVICE REG ADDRESSES
;TEST UPPER BYTE THIS REGISTER
s IF OK JMP AROUND ERROR
sCHECK DEVICE REG ADDRESSES
;RESTORE TRAPCATCHER
:

;s THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS
o

003526
003530
003536
003544
003550
003552
003554
003560
003562
003564
003572

000004
012737

016737

105277
000401
104004
105277
000401
104004

012737
012737

017

174576
176

000004
000006

1513

MOV
MOV
INCB

#TRPREG, a4
PR7,a#6 ;
aPARCSR

MOV

#0,a46

BR
ERROR
INCB
BR
ERROR
MoV

176144

000006
000000

2222222 2222202222200
R RRRRRRRR0RRR R

SCOPE

000004
000006

.+
4
aHPARCSR
Tt
4
86,984

;SETUP TRAPCATCHER

:TEST THIS REG
;1F OK JMP AROUND ERROR
JCHECK DEVICE REG ADDRESSES
;TEST UPPER BYTE THIS REGISTER
;IF 0K JMP ARQUND ERROR
;CHECK DEVICE REG ADDRESSES
;RESTORE TRAPCATCHER
:

;s THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS
oo

003600
003602
003610
003616
003622
003624

000004
012737
016737
105277
000401
104004

000004
000006

2222222222322 X22222X222 2232220022222
0RRRRRRRRRRRAD)

ing:

SCOPE
MOV
MoV

INCB
BR
ERROR

#TRPREG,a¥4
PR7 386 ;

oTXCSR
.t
&

;SETUP TRAPCATCHER

;TEST THIS REG
;1F 0K JMP AROUND ERROR
;CHECK DEVICE REG ADDRESSES

[CZDUO-CO

MACY1 30A(1052)
20-AUG-80 09:1

czouec M

1471
1472
1473
14674
1475

1676
1677
14,78
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
146491
1492
1493
1494
1495
1496
1497
1498
1499

003626
003632
003634
003636
003644

105277
000401

176076

012737
012737

000006
000000

104004

10:57
PAGE 3o
09-SeP-80
INITIALIZE THE COMMON TAGS

@HTXCSR ;TEST UPPER BYTE THIS REGISTER
:1F 0K JMP AROUND ERROR
.t
;CHECK DEVICE REG ADDRESSES
&
n6,3046
;RESTORE TRAPCATCHER

INCB
BR
ERROR
MOV

000004
000006

SEQ 0032

[0}

20,386

;s THIS TEST PROVES EXISTANCE OF DEVICE REGISTERS
X

003652
003654
003662
003670
003674
003676
003700
003704
003706
003710
003716

000004
012737
016737
105277
000401

104004
105277
000401
104004

012737
012737

017362
174452
176036

000004
000006

1575:

SCOPE

000004
000006

R R R R R

X R

RRRRRA])
ARRARRR
R0
R ZRRZARRZRZZARZASRR

MOV
Mov
INCB

#TRPREG, a4
PR7,a#6 ;
8TXDBUF

;SETUP TRAPCATCHER

MOV

AN LL)

;RESTORE TRAPCATCHER

B8R
ERROR
INCB
BR
ERROR

176030

000006
000000

MoV

. b
&
aHTXDBUF
.+
&

;TEST THIS REG
;1F 0K JMP AROUND ERROR
sCHECK DEVICE REG ADDRESSES
;TEST UPPER BYTE THIS REGISTER
:1F Ok JMP AROUND ERROR
;CHECK DEVICE REG ADDRESSES

20,36

::BUS DRIVER TEST
ve

22222222222 2233 X322

003724
003726
003734

003736

000004
022777
001401

000000

175776

1576:

SCOPE

CMP
BEQ

2222222220222 22222000200

RRittRRll)

#0,3TXDBUF
.t

ERROR
&
;READING TXDBUF SHOULD BE ALL ZERO'S
;s THIS TEST PERFORMS MASTER RESET TESTING &
;;TESTING OF READ/WRITE BIT DTR

104004

e
0

—-200

000004
052777
032777
001001
104004

1S17:

000002
000002

042777
032777
001401

000002
000002

052777
052777

000002
000400

105767
100006

175127

104004

NOWNES W
O VB NN = OO

d-‘dddddddflddfl-‘_‘ddd

WYV IV IV TV VAV IV [V IV IV IV IV LV [V ]V IV 1V
PONOPVNINOPIN)
b —d b b cd e b b b =D (=]

003740
003742
003750
003756

2222222223222 222223 2222222222222 2222 2222022 RRRRRRRRRRRRRRR AR D)

032777
001401

046

004050
004052

BIS

#OTR ,@RXCSR

7STB

OPTCLR

BR
817

2%
#DTR,IRXCSR

#MRESET ,@TXCSR ;MASTER RESET
B1S
;s CHECK EXISTANCE OF OPTIONAL CLEAR JUMPER

000002

175660

000002

175644

BPL
BIT
BEQ
ERROR

104004

000405
032777
001001
104004
000240

SCOPE

;SET THIS BIT
#DTR,8RXCSR
BIS
,TEST THIS BIT
#DTR,BRXCSR
BIT
*11"
IF
;BR
4
.
BNE
;THIS BIT SHOULD BE SET
&
ERROR
BIT
THIS
;CLR
R
#DTR,RXCS
BIC
BIT
THIS
;TEST
SR
#OTR,ORXC
817
''0"
IF
:BR
.+
BEQ
;THIS BIT SHOULD BE CLR
4
ERROR
;NOW SET THIS 81T

1%:

BNE

sggon

13
#DTR,IRXCSR
.4
&

STEST FLAG

:OPTIONAL CLR JUMPER IS NOT IN
STEST THIS BIT
BR IF *'0"°
:CHECK OUT MASTER RESET LOGIC
: JMP AROUND
“TEST THIS BIT

;BR IF i

;CHECK OUT OPTIONAL CLR JUMPER

c1ouQ-Co

czouac M

MACY11 30A(1052)
20-AUG-80 09:19

10:57 PAGE 37
09-SEP-80
INITIALIZE THE COMMON TAGS

1527

D
D

VNN

)
D
D i

d D

=2 OV

D
D
el
D i
D
D e
D
D rd
D
D
D o
D
e
o
D i
D wd
D
e o e
—

;s TESTING OF READ/WRITE BIT RTS

- O0

d -

::\fl\hLfl\fl\fl\h\h\h\h\fl\fl\fl\fl\fl
8~ 55 NN NN NN N
N NN
oo

wn
(34

::THIS TEST PERFORMS MASTER RESET TESTING ¢
BRI

004054
004056
004064
004072
004074
004076
004104
004112
004114

000004
052777
032777
001001
104004
062777
032777
001401

004116
004124

052777
052777

000004
000400

004132
004136
004140
004146
004150
004152
004154
004162
004164
004166

105767
100006

175013

1$T10:

000004
000004

104004

032777
001401

175544

000004

175530

104004

:SET THIS BIT
.TEST THIS BIT

ERROR
BIC
BIT
BEQ
ERROR

&
#RTS,BRXCSR
#RTS.ARXCSR
Y2
&

;THIS BIT SHOULD BE SET
;CLR THIS BIT
“TEST THIS BIT

BIS

#RTS ,@RXCSR

L+

‘BR IF i

BIS

#MRESET,aTXCSR

1ST8

OPTCLR

‘BR IF 0"
STHIS BIT SHOULD BE CLR
;MASTER RESET

BIT
BNE
5S§OR

1%
#RTS,IRXCSR
. 4
&
2%

;TEST FLAG

;OPTIONAL CLR JUMPER [S NOT I[N
;TEST THIS BIT
;BR IF 0"
;CHECK OUT MASTER RESET LCGIC
: JMP AROUND

;TEST THIS BIT
#RTS,3RXCSR
;BR IF """
.t
;CHECK OUT OPTIONAL CLR JUMPER
4

ACCORDINGLY FOR FASTER OR SLOWER

:tttt't"""'tt'ii"'tit'.ii.tit'tt!i'

004170
004174
004176

016702
005302
001376

Mov
DEC

174724

BNE

MACHINE

HOLD,R2 ;SET DELAY TIME
R2

.=2

SWAIT THIS TIME

;0K NOW FALL THRU AND CONTINUE TESTING...........
SEXIT STAGE LEFT....CHINNNG!
;s THIS TEST PERFORMS MASTER RESET TESTING &
;s TESTING OF READ/WRITE BIT STD

#RTS,aRXCSR
#RTS.IRXCSR

;MODIFY ''HOLD:'*

RRRRRRRlll))
2223
202200000000
2222
222022202
2222
2222222222
BX222222

004200
004202

000004

000010
000010

004240

052777
032777
001001
104004
042777
032777
001401
104004

004242
004250

052777
052777

000010
000400

i
e

ODODg;

BIS
BIT

BPL
8IT
BEQ
ERROR

2%:

D e
ad
oD

XXXRRIERSARSZRRAZZRRARRRRRRRRRRRRRRRRRdRRRR
Rl

0
022200t
2222
00222
22222222

X R R R R

;WAIT FOR CABLE DELAYS

e
) md e
D
e
—

;sCHECK EXISTANCE OF OPTIONAL CLEAR JUMPER

000004

000240

SCOPE

<NOW SET THIS BIT

104004

000405
032777
001001

BNE

VLAWY
(W AV IV TV IV TV IV [V IV LV IV, L 1%, (VL IV IV IV 1V} (W IV W TV TV LU JV AV LV IV LV LV IV ]V ] VI
£
VS
NNNNNNNNNYOOr OO OO O vV NV A WAL wh
- OOV
~NO WV W
SN
=0
QNN WN—O VO ~NO NS WA = OO 00NN

SEQ@ 0033

000010
000010

?§T11:

SCOPE

BIS
BIT

#STD,3RXCSR
#STD,3RXCSR

;SET THIS BIT
TEST THIS BIT

ERROR
BIC

&
#STD,3RXCSR

;THIS BIT SHOULD BE SET
;CLR THIS BIT

BEQ
ERROR

.+
&

BNE

BIT

‘BR IF i

#5S7D,3RXCSR

STEST THIS BIT

‘BR IF 0"
STHIS BIT SHOULD BE CLR

;NOW SET THIS BIT
#STD,8RXCSR
8IS
;MASTER RESET
#MRESE LE?TXCSR
BIS
OF OPTIONAL CLEAR JUMPER
;s CHECK EXISTA

CZ0uQ-Co

czouac M

b
b

105767
100006

174667

032777
001401

104004
000405
032777

001001

000010

104004

000240

175420

175404

1$:

SEQ 0034

TSTB

OPTCLR

BEQ
ERROR
BR

4
28

BIT

BNE

ERROR

NOP

18
#STD,aRXCSR

#STD,aRXCSR

L +4

JBROIF

STEST FLAG

:OPTIONAL CLR JUMPER IS NOT IN
STEST THIS BIT

‘BR IF "0
:CHECK OUT MASTER RESET LOGIC
: JMP AROUND
‘TEST THIS BIT

;CHECK OUT OPTIONAL

CLR JUMPER

s TESTING OF READ/WRITE BIT SYNSCH

::'t"'t;;"'t""""i"""'t""'t"'t"tt't't".'tttt'tttt"Q

004314
004316
004324
004332
004334
004336
004344
004352
004354

000004
052777
032777

004356
004364
004372
004400
004402

052777
052777
032777

001001

104004

042777
032777
001401

000020
000020

TST12:

SCOPE
BIS
BIT

#SYNSCH,@RXCSR
#SYNSCH,BRXCSR

;SET THIS BIT
,TEST THIS BIT

ERROR
BIC
BIT

&
#SYNSCH,@8RXCSR
#SYNSCH,@RXCSR

;THIS BIT SHOULD BE
;CLR THIS BIT
;TEST THIS BIT

SET

ERROR

:THIS BIT SHOULD BE

CLR

BNE

000020
000020

BEQ

104004

. th

;BR IF *11"

<NOW SET THIS BIT
#SYNSCH,8RXCSR
BIS
#MRESET ,8TXCSR
BIS

000020
000400
000020

BIT

#SYNSCH,@RXCSR

ERROR

BEQ

104004

;BR IF "'0"'

;MASTER RESET

;TEST THIS BIT

:BR IF "'0"'

JCHECK OUT MASTER RESET LOGIC

::THIS TEST PERFORMS MASTER RESET TESTING §
;. TESTING OF READ/WRITE BIT DSINTE

d ad od

\fl\”g”fl}!v“fl\“
NVW NV1,8
[+RaNTe

b o

—a

1630
OO OO0

PAGE 38

8PL
BIT

2%:

':ltt't't'!.""'Q"""""i"""'tttt.'.""tt"'tt'i'ttlttit'

004404
004406

000004
052777
032777
001001
104004

000040
000040
000040
000040

104004

10:57

INITIALIZE THE COMMON TAGS

;s THIS TEST PERFORMS MASTER RESET TESTING &

042777
032777
001401

-t

09-SEP-80

004256
004262
004264
004272
004274
004276
004300
004306
004310
004312

30A(1052)

[

~N POPON) b =
W Nt OO

b
d
e
o
D
d o
b
o
b e
—d ad

ooooooccorOrOr
OO

1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607

MACY11

20-AUG-80 09:19

052777
052777
032777
001401
104004

000040
000400
000040

TST13:

SCOPE

BIS
BIT

#DSINTE,BRXCSR
#DSINTE .@RXCSR

;SET THIS BIT
:TEST THIS BIT

ERROR
BIC
BIT
BEQ
ERROR

4
#DSINTE,BRXCSR
#DSINTE.SRXCSR
.44
4

;THIS BIT SHOULD BE SET
;CLR THIS BIT
:TEST THIS BIT

8IS
81S
BIT

#OSINTE,BRXCSR
#MRESET.3TXCSR
#DSINTE.SRXCSR

BNE

:BR IF "{"

SNOW SET THIS BIT

BEQ
ERROR

.44
&

‘BR IF ‘0"

STHIS BIT SHOULD BE CLR

:MASTER RESET
:TEST THIS BIT

‘BRIF 'O
<CHECK OUT MASTER RESET LOGIC

;sTHIS TEST PERFORMS MASTER RESET TESTING ¢

;. TESTING OF READ/WRITE BIT RINTEN
oo

:;"'t.'."t...tt'"'t"t""""..t."tt"l..l.i'."'i!li"..".

c20uQ-C0

czouQc.m

MACY11 30A(1052)

20-AUG-80 09:19

1639
1660
1641

004474
004476
004504

000004
052777
Q32777

1643
1644
1645
16466
1647
1648
1649
1650
1651
1652
}ggz

004514
004516
004524
004532
004534

104004
042777
032777
001401
104004

1642

0064512

004536
004544
004552
004560
004562

001001

052777
052777
032777
001401
104004

000100
000100

000100
000400
000300

09-SEP-80 10:57 PAGE 39
INITIALIZE THE COMMON TAGS
175206
175200

TST14:

BNE

175166
175160

175146
175154
175132

000004
052777
032777

1663

004604

004606
004614
004622
004624

104004

042777
032777
001401
104004

000400
000400

175076
175070

1669
1670
1671

004626
004634
004642

052777
052777
032777

000400
000400
000400

175056
175064
175042

1672
12;2

004602

004650
004652

001001

001401
104004

000400
0006400

175116
175110

TST15:

004654
004656

000004
052777

1682

004672

001001

1683

1684
1685
1686
1687
1688
1689
1690
1691
1692
1693

;THIS BIT SHOULD BE SET
;CLR THIS BIT
;TEST THIS BIT
:BR [F ''0"
;sTHIS BIT SHOULD BE

CLR

;MASTER RESET
;TEST THIS BIT
;:BR [F ''0"
;CHECK QUT MASTER RESET LOGIC

#STPSYN,@RXCSR
#STPSYN,@RXCSR

ERROR

8IS
8IS
8IT

#STPSYN,SRXCSR
#MRESET,@TXCSR
#STPSYN,@RXCSR

.+h

;BR IF i

BIC
#STPSYN,SRXCSR
BIT
#STPSYN,SRXCSR
BEQ
4o
ERROR
4
JNOW SET THIS BI7

BEQ
ERROR

;SET THIS BIT
TEST THIS BIT

.+
4

;THIS BIT

SHOULD BE

SET

;CLR THIS BIT
;TEST Tfllg BIT
;BR IF 0’
:THIS BIT SHOULD BE CLR
;MASTER RESET
;TEST THIS BIT
;BR [F 0"

;CHECK OUT MASTER RESET LOGIC

J:THIS TEST PERFORMS MASTER RESET TESTING £
ssTESTING OF READ/WRITE BIT BREAK

1679
1680

1681

SCOPE
8IS
BIT

BNE

1675
}g;g

1678

:BR IF "{"

;;nnn;;nnt'n'ntatttcntnnnuttnunnnnnnnnnn'

004564
004566
004574

1664
1665
1666
1667
1668

.44

,;SET THIS BIT
TEST TMIS BIT

:sTHIS TEST PERFORMS MASTER RESET TESTING &
JsTESTING OF READ/WRITE BIT STPSYN

1659
1660
1661

1662

#RINTEN,@RXCSR
#RINTEN,SRXCSR

ERROR
&
B8IC
#RINTEN,SRXCSR
8IT
#RINTEN,SRXCSR
8EQ
.4
ERROR
&
JNOW SET THIS BITY
B1S
#RINTEN,SRXCSR
8IS
#MRESET,83TXCSR
BIT
#RINTEN,QRXCSR
8EQ
.+
ERROR
&

1655
}229

1658

SCOPE
8IS
BIT

SEQ 0035

004664

004674

032777
104004

.-‘-ttttQ';;tttttfitt't'tfi'ttt'tt'ttttt'ttttttttittttttfifitttfitttt'tt

000001
000001

175042
175034

004676
004704
004712
004714

042777
032777
001401
104004

000001
000001

175022
175014

004716
004724
004732

052777
052777
032777

000001
000400
000001

175002
174774
174766

004740
004742

001401
104004

TST16:

SCOPE
8IS
BIT

#BREAK ,8TXCSR
#BREAK ,3TXCSR

;SET THIS BIT
.°[ESY THIS BIT

ERROR

;THIS BIT SHOULD BE SET
;CLR THIS BIT
JTEST TH]S BIT
;BR If ''0"
;THIS BIT SHOULD BE CLR

BNE

;BR IF "Y'

81(C
#BREAK ,@TXCSR
BIT
#BREAK ,8TXCSR
BEQ
b
ERROR
&
JNOW SET THIS BIT
8IS
#BREAK ,8TXCSR
BIS
#MRESET ,8TXCSR
BIT
#BREAK ,8TXCSR
BEQ
.t
ERROR
&

;MASTER RESET
sTEST Tfil§ BIT

;BR IF

0
sCHECK QUT MASTER RESET LOGIC

CZ0uQ-C0

MACY 1Y

30A(1052)

20-AUG-80 09:1

czbuQc.mi

09-SEP-80 10:57 PAGE 40
INITIALIZE THE COMMON TAGS

1695

SEQ 0036

;s THIS TEST PERFORMS MASTER RESET TESTING &
::TESTXNG OF READ/WRITE BIT HDXEN
004744
004746
004754
004762
004764
004766
004774
005002
005004

000004
052777
032777
001001

005006
005014
005022
005030
005032

052777
052777
032777
001401

104004

0462777
032777
001401

000010
000010
000010
000010

174752
174744

16117

#HOXEN,@TXCSR
#HOXEN,@TXCSR

;SET THIS BIT
TEST THIS BIT

ERROR
BIC

&
#HDXEN,STXCSR

:THIS BIT SHOULD BE SET
;CLR THIS BIT
TEST THIS BIT

BNE

174732
174724

BIT

BEQ

104004

000010
000400
000010

SCOPE

BIS
BIT

:BR IF "

#HDXEN.TXCSR

ERROR

BIS
BIS
BIT

#HOXEN,@TXCSR
#MRESET ,@TXCSR
#HOXEN,@TXCSR

‘BR [F 0"

;THIS BIT SHOULD BE

;NOW SET THIS BIT

174712
174704
174676

BEQ
ERROR

104004

.t
&

CLR

;MASTER RESET
;TEST THIS BIT

;BR IF ''0"'
;CHECK OUT MASTER RESET LOGIC

;s THIS TEST PERFORMS MASTER RESET TESTING &

s TESTING OF READ/WRITE BIT SEND
o

005034
005036
005044
005052
005054
005056
005064

005072
005074
005076
005104
005112
005120
005122

000004
052777
032777
001001
104004

042777
032777
001401

000020
000020

174662
174654

000020
600020

174642
174634

228222220232 2222222002222 0

15120:

000020
000400
000020

RRRRRd)

ERROR

BIS
BIS
BIT

#SEND,QTXCSR
#MRESET,@TXCSR
#SEND ,8TXCSR

BEQ
ERROR

104004

30222002

;SET THIS BIT
#SEND ,@TXCSR
JTEST THIS BIT
#SEND ,8TXCSR
.+
:BR IF "1
4
;THIS BIT SHOULD BE SET
#SEND ,@TXCSR
;CLR THIS BiT
;TEST THIS BIT
#SEND ,@TXCSR

;BR IF "0’

;THIS BIT SHOULD BE CLR

;NOW SET THIS BIT

174622
1764614
174606

BIS
BIT
BNE
ERROR
8IC
BIT

BEQ

104004

052777
052777
032777
001601

SCOPE

. b

;MASTER RESET
;TEST THIS BIT

;BR IF "'0"
;CHECK OUT MASTER RESET LOGIC

;s THIS TEST PERFORMS MASTER RESET TESTING &
;. TESTING OF READ/WRITE BIT DNAINTE
X

A3 2222220202220
0000RRR2 0020200 RRRRRRRRRRRRRRRRRRD D)

000004

052777
032777
001001
"

—

104004

(%)

VAVAVIWVWA

N AN AN NN PO A PO PRI PIRININ) b b ed ek D e eid ed kb O
F oY 2 X g W L L W U
NO VNN 2OV
NO VMWW
=200
W =200 ONO VNS NN =2 OOV

b o

e e

d o

D rrd e

D e

D rd

e o

b e

b o

NNNNN SNNNNNNNNNNNVNNSNNNNNNNNSNSNNNSNNNY

1ttt"""t"'it""""""""'t"'t.""""Q""Q"Q"".'.

000040
000040

104004

052777
052777

000040
000400

17L572
174564

TsT21:

SCOPE

BIS
BIT

#ONAINTE ,@TXCSR ;SET THIS BIT
SONAINTE .@TXCSR :TEST THJS BIT

ERROR
BIC
BIT

&
s THI
SONAINTE ,@TXCSR ;CLR THIS BIT
#ONAINTE ,@TXCSR :TEST THIS BIT

ERROR

IS
BIS

#ONAINTE ,@TXCSR
;MASTER RESET
MMRESET,ATXCSR

BNE

BEQ

BROIF i

L +h

CNOW SET THIS BIT

‘BR IF 0"

:THIS

—

CI0uQa-C0

MACY11 30A(1052)
20-AUG-80 09:19

032777
001401

000040

09-SEP-80 10:57 PAGE 41
INITIALIZE THE COMMON TAGS
17451¢

BIT
BEQ
ERROR

104004

SEQ 0037

FONAINTE ,@TXCSR ;TEST THIS BIT
. th
;BR IF '0"
&
;CHECK OUT MASTER RESET LOGIC

;s THIS TEST PERFORMS MASTER RESET TESTING &
;s TESTING OF READ/WRITE BIT TXINTE
’e

005254
005256
005264
005272
005300
005302

000004
052777
032777
001001
104004
042777
032777
001401

000100
000100

174502
174474

000100
000100

174462
174454

000100
000400
000100

174442
174434
174426

222322882 2222222232222

T§122:

052777
052777
032777
001401

SCOPE

BIS
BIT

BNE

02200

#TXINTE,@TXCSR
#TXINTE,QTXCSR

BIS
BIT
BEQ
ERROR

104004

02222222

#MRESET.STXCSR
NTXINTE,@TXCSR
44
&

00000t

RRRRitiitilld)

;SET THIS BIT
:TEST THIS BIT

:BR IF "1

ERROR
&
#TXINTE,@TXCSR
BIC
#TXINTE.STXCSR
BIT
BEQ
.44
&
ERROR
SNOW SET THIS BIT
#TXINTE,@TXCSR
8IS

104004

:THIS BIT SHOULD BE SET

;CLR THIS BIT
:TEST THIS BIT

:BR IF ''0"
STHIS BIT SHOULD BE CLR
JMASTER RESET

;TEST THIS BIT

:BR

uon

sCHECK OUT MASTER RESET LOGIC

s;TEST MAINT MODE BIT 0

*ITHIS TEST PERFORMS MASTER RESET TESTING &
*'TESTING OF READ/WRITE BIT BIT11
o0

R 2222222222280
0022 22002 R 222222000 RRR00RRRRRRRRRRRRRRRd!

005304
005306
005314
005322
005324
005326
005334
005342
005344

000004
052777
032777
001001
104004
042777
032777
001401

005346
005354
005362
005370
005372

052777
052777
032777
001401

004000
004000

174412
174404

004000
004000

174372
174364

004000
000400
004000

~N~N~
&~
NNN
wHwn

15123:

SCOPE

BIS
8IT
BNE
ERROR
BIC
8IT

;SET THIS BIT
#BIT11,Q@TXCSR
;TEST THIS BIT
#BITI1,@TXCSR
.+
:BR IF 1"
;THIS BIT SHOULD BE SET
&
#B1T11,3TXCSR
;CLR THIS BIT
#BIT11,3TXCSR
;TEST THIS BIT

BIS
8IS
BIT

#B1T11,3TXCSR
#MRESET,@TXCSR
#BIT11,8TXCSR
. +4
&

.+
BEQ
ERROR
4
:NOW SET THIS BIT

104004

e
D o
D
d
d nd el
— o
el
i
il
D
)
d
cod
ek
-

QQNQNNNNNNN SNNSNNNSNSNNNNNN ~
~NsSN~N~NoorOrOr
OO O o [0 Y= JV, IV, IV IV 1V [V [V, ]V, }(¥,
W
2O O
~NO NN ~N -t O OO0 ~NOVNN o]

czouac M

BEQ
ERROR

104004

;BR [F ''0"
;THIS BIT SHOULD BE CLR
;MASTER RESET
;TEST THIS BIT
:BR IF *'0"'
sCHECK OQUT MASTER RESET LOGIC

;sTEST MAINT MODE BIT 1

*ITHIS TEST PERFORMS MASTER RESET TESTING &
*1TESTING OF READ/WRITE BIT BIT12
e

;'.'ttt"tt'..".'t'""'Q""'tt't'.i.it't'il.'ttt."'t"t!"t'l

005374
005376
005404
005412

000004
052777
032777
001001

010000
010000

Ts12¢:

SCOPE

BIS
BIT

BNE

#BIT12,8TXCSR
#BIT12.QTXCSR

;SET THIS BIT
:TEST THIS BIT

:BROIF "

czouQ-C0

CcZbuQac.m n

005414
005416
005424
005432
005434
005436
005444
005452
005460
005462

104004

0462777
03777
001401

010000
010000

052777
052777
032777
001401

010000
000400
010000

104004

;THIS BIT SHOULD BE CLR

;MASTER RESET

JTEST THIS BIT

:BR

uou

;CHECK OUT MASTER RESET LOGIC

2
R Rttt lllldl)
322
2R
222
2222222222 2222222220222
222222

005534
005542
005550
005552

020000
020000

104004

052777
052777
032777
001401

020000
000400
020000

SCOPE
8IS
8IT
BNE
ERROR
BIC
BIT
BEQ
ERROR

#CLK,3TXCSR
#CLK,3TXCSR
:BR [F
. +b
&
#CLK,@TXCSR
#CLK,3TXCSR
. b
&

BIS
BIS
BIT
BEQ
ERROR

#CLK,@TXCSR
#MRESET ,8TXCSR
#CLK,3TXCSR
. 4
&

;SET THIS BIT

;TEST THIS BIT

nin

;THIS BIT SHOULD BE SET

sCLR THIS BIT
;TEST
:BR

THIS BIT
uou

;THIS BIT SHOULD BE CLR

;NOW SET THIS BIT

O~
o

005526

042777
032777
001401

TSTe5:

020000
020000

005522
005524

000004
052777
032777
001001
104004

~~N~

005464
005466
005474
005502
005504

—

I
A S 3 9 I3 I I I3 ONO VS
N=2OVNO
NS W =2O OB NN WO uudgyngyduufluuvnnv

nou

;s TESTING OF READ/WRITE BIT CLK

e
e oD e
D e
D cd e e
e
b od e
D
e
b e

#BIT12,3TXCSR
#MRESET,@TXCSR
#BIT12,3TXCSR
.*4

ERROR

10.004

104004

bb
oo O

0o O Co O

BIS
BIS
BIT
BEQ

:BR

;sTHIS TEST PERFORMS MASTER RESET TESTING &

;MASTER RESET

;TEST THIS BIT
;BR IF ''0"
sCHECK OQUT MASTER RESET LOGIC

b d b i = D e

;sTHIS TEST PERFORMS MASTER RESET TESTING &
s;TESTING OF READ/WRITE BIT MTDATA
o

005614

(O
P
Hno

—
b

TST26:

-t N
0

b
—
b

040000
040000

~N~N
H

D e

104004

042777
032777
001401

040000
040000

—

000004
052777
032777
001001

NN
P o

22322222

e
e

;THIS BIT SHOULD BE SET
;CLR THIS BIT
;TEST THIS BIT

:NOW SET THIS BIT

104004

052777
001401
104004

040000
000400
040000

SCOPE

176102
174074
174066

- -

2 S AR R

BIS
BIT
BNE
ERRGR
BIC
BIT
BEQ
ERROR

#MTOATA ,QTXCSR
#MTDATA,STXCSR
:BR IF
. e
&
#NTDATA ,QTXCSR
#NTOATA,8TXCSR
. 4
&

BIS
BIS
BIT
BEQ
ERROR

#NTDATA,QTXCSR
#MRESET,3TXCSR
#MTDATA,STXCSR
.+
&

R R

R RRRRRlRRRidRRd))

;SET_THIS BIT

:TEST THIS BIT

;THIS BIT SHOULD BE SET

sCLR_THIS BIT

;TEST THIS BIT

:THIS BIT SHOULD BE CLR
sMASTER RESET

;TEST THIS BIT
;BR IF '0"
;CHECK OUT MASTER RESET LOGIC

;s THIS TEST VERIFYS THAT INIT (RESET) CLEARS BITS IN THE

005616
005624
005632
005640
005642

X I

<NOW SET THIS BIT

e
D e
d el e e

BIC
BIT
EQ
ERROR

#B1T12,@TXCSR
#BIT12,3TXCSR
. 4
&

;sRXCSR & TXCSR

— e

SEQ 0038

ERROR

b pury

GO Oo Ov OB OO OO OO 00 00 0o O 00 00 0o OO 0o 00 0o 0D 0 0 O 00 0O oo
POV RIPININ) =3 b od b oD e ok o o
bo
WN 2O O0ONOWVSWN
O0
LWN=20 0V~ O WV

1807
1808

09-SEP -80 10:57 PAGE 42
INITIALIZE THE COMMON TAGS

MACY11 30A(1052)
20~-AUG-80 09:19

::tlt"t'tt.tti"""t"'"'""i."'t'il'tttt.ttt"'tll.""i."

’e

C20uQ-C0

czouac.mn

MACY11 30A(1052)

20-AUG-80 09:19

1863
1864
1865
1866
1867

005644
005646
005654
005662
005664

000004
012777
012777
000005
106427

1869
1870
1871
1872

005674
005700
005704
005706

017702
105767
100402
042701

1868

005670

1873 005712
1874
1875
1876
1877
1878
1879
1880
1881

005716
005720
005722
005724
005730
005732
005734

017701

042701

005701
001401
104004
042702
005702
001401
104004

177777
177777

09-SEP-80

10:57

174036
174044

TST27:

000340

174016

174026
173245

000016

073000

1%:

002200

1903
}ggg

MOV
1618
BMI
BIC

;SET ALL POSSIBLE BITS
;DITTO

RESTORE NON INTERRUPT STATUS

SRXCSR,RY

; SAVE

#07%000, RY

;CLR ALL NON-CLEARABLE BITS

@TXCSR,R2
: SAVE
OPTCLR
;IS THE OPTIONAL CLR JUMPER ON ?
1%
;YES
#16,R1
;CLR THE NON RESETABLE BITS

BIC

TST

R1
;ARE
.t
&
:ALL
#002200,R2
R2
:ARE
R YA
&
:ALL

THEY ALL 0 ?

SPECIFIED BITS SHOULD BE CLEAR

;CLEAR ALL NON-CLEARABLE BITS
THEY ALL 0 ?
SPECIFIED BITS SHOULD BE CLEAR

;WAIT FOR CABLE DELAYS

IRARARRRAAE
LR AT AT E T RN RN RRNNNRNY

;MODIFY '"HOLD:'"
005736
005742
005744

016702
005302
001376

173156

MOV
DEC
BNE
;0K NOW

ACCORDINGLY FOR FASTER OR SLOWER

T TN RN E O

RO R RN NANN

MACHINE

HOLD,R2 ;SET DELAY TIME
R2
.2
sWALT THIS TIME
FALL THRU AND CONTINUE TESTING...........

:EXIT STAGE LEFT....CHINNNG!'

1891
}gg%
189S
1896
1897
1898
1899
1900
1901
1902

#340

BIC
TST
BEQ
ERROR

}ggg

189‘

SEQ 0039

#177777,8RXCSR
#177777,8TXCSR

8EQ
ERROR

1883
1885
1886
1887
1888

SCOPE
[0}
MOV
RESET
MTPS

MOV

1882

1884

PAGE 43

INITIALIZE THE COMMON TAGS

;:THIS TEST PERFORMS MASTER RESET TESTING &
;:TESTING OF WRITE ONLY BIT MRESET
005746
005750
005756
005764
005766
005770
005776
006004

006006

000004
052777
032777
001401
104004
052777
032777
001401

;:tttttt;;'ttttttt't'tttttt'tttttittttttttt!t'tt'ttt'ti't"t""t

000400
000400

173750
173742

000400
000400

173730
173722

7ST30:

104004

SCOPE
BIS
BIT
BEQ
ERROR
BIS
BIT
BEQ

ERROR

#MRESET,@TXCSR
#MRESET,@TXCSR
Lt
&
#MRESET,@TXCSR
#MRESET,ATXCSR
R

;TRY TO SET THIS BIT
;TEST THIS BIT
:BR If ''0"
:THIS BIT SHOULD NOT BE SET
;MASTER RESET
;TEST THIS BIT
:BR IF ''0'

:THIS BIT SHOULD NOT BE SET
;CHECK MASTER RESET LOGIC

}ggg

::THIS TEST VERIFYS THAT THE RXCSR & TXCSR CAN BE BYTE ADDRESSED (DATOB)

]908

:-Ett'tlttttittttt'tttttt""t'tttttit'!ttttittttt't.t'tt'tttttttt

1909
1910
1911
1912
1913
1914

006010
006012
006020
006024
006026
006034

000004
052777
105767
100405
012777
005777

1916

006046

017701

1918

006056

000400
173125

173706

000000
173652

173656

1915 006040 152777 000001
1917 006052

022701
001401

173640

000400

173646

TST31:

1%:

SCOPE
BIS
1STB
BM]
MOV
TST

#MRESET,@TXCSR ;MASTER RESET
OPTCLR ;IS THE OPTIONAL CLR JUMPER ON ?
18
s YES
#0,3RXCSR
:CLR OUT NON RESETABLE BITS
SRXCSR
;CLR OUT DSC BY READING RX(SR

SRXCSR,R1

8l1s8
CMP

BEQ

#BITO,aHRXCSR

;SET STRIP SYNC
:SAVE RXCSR

#600,RY ;TEST RXCSR
XY

UPPER BYTE

OO0

N =2 O0Vo0~NOoOW SNV =20OP0
o VIS

o e

D i

D e

D D

D B

ed D

O 0 0 0 0 O O OOOOVOOVOVOOV
OO
=
W PV VT TV TV NN S 1% AN

D
b

937

MACY11 30A(1052)
20-AUG~-80 09:19

006060
006062
006066
006072
006076
006100
006102
006110
006116
006122
006126
006132
00€134
006136
006142
006146
006152
006156
006160

042701

022701
001401

09-SEP-80 10:57 PAGE &4
INITIALIZE THE COMMON TAGS

ERROR
CLRB

173624
173620
000400

MOV
CMP

000400
000040
173604
002000

ERROR
BIS
8158
- MCV
BIC

BEQ

CMP

020200

BEQ

ERROR

104004

CLRB
MOV

105077
017701
042701
022701
001401

BIC

104004

&
aRXCSR

SEQ 0040

SONLY STRIP SYNC SHOULD BE SET
:CLR LOWER BYTE

:SAVE RXCSR
aRxXCSR,Ri
#600,R1 ;TEST RXCSR

.44
sONLY STRIP SYNC SHOULD BE SET
&
#MRESET,@TXCSR ;MASTER RESET
;SET MAINT (LK UPPER BYTE
#B1TS,@HTXCSR
8TXCSR,R1
; SAVE TXCSR
#B1TW,R1
;CLR BIT WINDOW (DEPENDENT
:ON H315 CONNECTOR EXISTANCE)

#20200,R1
s

;TEST TXCSR

SONLY MAINT CLK BIT & TXDONE SHOULD BE SET

@TXCSR
:CLR LOWER BYTE
SSAVE TXCSR
aTXCSR,R1

#81Tw,R1

ggg

022206.R1

ERROR

SCLR BIT WINDOW (DITTO)

‘TEST TXCSR

;ONLY MAINT CLK BIT & TXDONE SHOULD BE SET

:;THIS TEST PERFORMS MASTER RESET TESTING &

—

l ua-co
l v
M

::TESTING OF READ ONLY BIT BITW
;s sMAINT

INTERNAL

”e

:;Qt't'tti"'.t.i"""'""""Q'tt.'ti't'tttttttQ't't'it't't't'

006162
006164

000004

012777

044001

173534

006172
006200
006202
006204
006212
006216
006220
006222

032777
001001

002000

173526

062777
013702
005302
001376
032777
001401
104004

040000
001132

173514

002000

173476

052777

040000
000400
004001
001132

006274
006276

104004

001376
032777
001401

002000

TS132:

SCOPE
Mov

BIT

#BITW,RTXCSR

STEST BITW

"ERROR

:BIT WINDOW SHOULD BE SET

ERROR

BNE

r ¥
173432

104004

[NT.,BREAK,

#MTDATA @TXCSR
MoV
aN132,R2
DEC
R2
1%
BNE
#B81TW, 3TXCSR
BIT
.t
BEQ
;B8IT SHOULD BE CLR
4
ERROR
TA
MTDA
THE
SET
;NOW
#MTDATA,@TXCSR
8IS
#MRESET,@TXCSR ;MASTER RESET
8IS
#MINT!BREAK,QTXCSR
BIS
#1132 ,R2
MOV
DEC
R2
2%
BNE
#BITW,3TXCSR
BIT
.+
BEQ
BIC

1%:

JSET MAINT
#MINT!MTDATA!BREAK,@TXCSR
TA
; AMTDA

;BI1TW SHOULD BE CLR BY MASTER RESET

:;THES TEST PERFORMS MASTER RESET TESTING &
::TESTING OF READ ONLY BIT BITW
JIMAINT EXTERNAL
o0

2
00t RRRRRRRRRR])
222
02 2222020020
222
22222222222
222332

006300

000004

15133:

SCOPE

;TEST TO SEE IF EXTERNAL MODEM BYPASS CONNECTOR

;1S ON (H315)....1F ''NO"' JUMP AROUND TEST

cZ0uQa-Cco
couac .M

MACY11 30A(1052)
20-AUG~-80 09:19

1975
1976

006302
006306

006310

012777

050001

173410

1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992

006316
006324
006326
006330
006336
006344
006346

032777
001001
104004
042777
032777
001401
104004

002000

173402

040000
002000

173370
173362

006350
006356
006364
006372
006400
006402

052777
052777
052777
032777
001401
104004

040000
000400
010001
002000

173350
173342
173334
173326

}g;g

1993
1994
1995

006404

105767
100036

09-SEP-80 10:57 PAGE 45
INITIALIZE THE COMMON TAGS

172645

1578
BPL

MOV

18%:

1996
}ggg

1999

2000
2001
2002
2003
2004

%882

2014
2015
58}9

006404
006406
0064164
006422
006424

000004
052777
032777
001401
104004

000400
000200

173312
173270

TST34:

2022
2023
2024

2025
2026
58%
2029
2030

BIT
#BITW,3TXCSR
JTEST BITW
BNE
.4
ERROR
&
;81T WINDOW SHOULD BE SET
BIC
MMTDATA,@TXCSR
BIT
#B1TW,3TXCSR
BEQ
R
ERROR
&
;BIT SHOULD BE CLR
JNOW SET THE MTDATA
BIS
#MTDATA,TXCSR
8IS
#MRESET,@TXCSR
;MASTER RESET
BIS
#MEXT!BREAK,3TXCSR
BIT
#BITW, ATXCSR
BEQ
4
ERROR
&
;sBITW SHOULD BE CLR BY MASTER RESET

SCOPE
BIS
BIT
BEQ
ERROR

#MRESET,@TXCSR
#RXDONE ,aRXCSR
R
4

;MASTER RESET
TEST THIS BIT
:BR IF 'O
sCHECK MASTER RESET .0GIC

;OR SHORT ON THIS BIT

::THIS TEST PERFORMS MASTER RESET TESTING &

;TESTING OF READ ONLY BIT RECACT
006426
006430
006436

006444
006446

000004
052777
032777

001401
104004

;;nnn;'tn.nnnnnnnnnnnnnnnnnnnnnnnnnn-

000400
004000

173270
173246

TST35:

SCOPE
8IS
BIT

BEQ
ERROR

2018
5858

2021

17T 1S NOT ON
IHEXT!HTDATA!BREAK.GTXCSRz"TDATA;SET MAINT EXT.,BREAK,

-;tttttt;;ttttttt'ttt"tt'tt"ttttttttttt'ttfitttfi'tt'tttttt'titfi'

%883
2011
2012
2013

JMRBY
1%

::;THIS TEST PERFORMS MASTER RESET TESTING &
;s TESTING OF READ ONLY BIT RXDONE

2007

2010

#MRESET,@TXCSR
#RECACT,@RXCSR

RIA
4

;MASTER RESET
;TEST THIS BIT

:BR [F 0"
sCHECK MASTER RESET LOGIC
;OR SHORT ON THIS BIT

;:THIS TEST PERFORMS MASTER RESET TESTING &
;:TESTING OF READ ONLY BIT DSC
006450
006452
006460

006466
006470

000004
052777
032777

001401
104004

;;nnn;;nnntnnntnnnnnnnnnnnnnnnnnnn-n

000400
100000

173246
173224

TST36:

SCOPE
BIS
8IT

BEQ
ERROR

FMRESET,8TXCSR
#0SC,8RXCSR
R
4

;MASTER RESETY
;TEST THIS BIT
:BR IF *'0
sCHECK MASTER RESET LOGIC

;OR SHORT ON THIS BIT

::THIS TEST PERFORMS MASTER RESET TESTING ©
;s TESTING OF READ ONLY BIT TXDONE

SEQ 0041

(20ua-C0
czouQc.m

MACY11 30AC1052)
20-AUG-80 09:19

09-SEP-80
10:57 PAGE 46
INITIALIZE THE COMMON TAGS

203

2032

2033
2034
2035
2036
2037
2038
2039
582?

2042

2043
2044
2045
2046
2047

%823

006472
006474
006502
006510
006512

006514
006516
006524
006532
006534

000004
052777
032777
001001
104004

000004
052777
032777
001401
104004

000400
000200

173224
173216

TST37:

000400
100000

173202
173174

TST40:

2055

2056
2057
2058
2059
2060
2061
2062

2066
2067
2068

2069
207C

58;;

006536

000004

006546
006552
006556
006562
006564
006566

016703
012700
017701
120CN
001401
104002

006570
006572
006600

000004
052777
032777

006540

052777

000400

173144
000377
173134

173160

ggg%
2084
2085
2086

PR R A AN LR RN

PR RN R ANN NPT RN RO RNY

SIOPE
BIS
BIT
BNF
ERROR

#MRESET,8TXCSR
;MASTER RESET
#TXDONE ,8TXCSR
;TEST THIS BIT
.+
;BR [F 1"
&
sCHECK MASTER RESET LOGIC
;OR SHORT ON THIS BIT
o THIS TEST PERFORMS MASTER RESET TESTING ¢
ssTESTING OF READ ONLY BIT DNA

SCOPE
BIS
BIT
BEQ
ERROR

#MRESET ,8TXCSR
#DNA aTXCSR
.+
4

;MASTER RESET
JTEST TMIS BIT
;BR IF '0"
sCHECK MASTER RESET LOGIC

;OR SHORT ON THIS BIT

006606
006610

001401
104004

ONLY WORD RECEIVE DATA

SCOPE

8IS

#MRESET ,8TXCSR

;MASTER RESET

MOV
RXDBUF ,R3
;FOR ERROR MESSAGE
MOV
#377,R0
JEXPECTED
MOV
aRXDBUF ,R1
sACTUAL
cMPB
RO,R1
BEQ
.t
;BR IF 0"
ERROR
2
sREC DATA SHOULD BE ALL 1°'S
::THIS TEST PERFORMS MASTER RESET TESTING &

JsTESTING OF READ ONLY BIT PARER

;;t'tttt;;tQ't't'ttttttt'ttt'tfifitttttttttttttttttt't'ittitttt't"

000400
010000

173126
173110

TST42:

SCOPE
BIS
8IT

BEQ
ERROR

#MRESET ,@TXCSR
#PARER,3RXDBUF

.+
4

;MASTER RESET
;TEST THIS BIT

;B8R IF 0"
JCHECK MASTER RESET LOGIC

;OR SHORT ON THIS BIT

s THIS TEST PERFORMS MASTER RESET TESTING ¢

58;2

2077
2078
2079
2080
2081

.-;tttttt;;t'tk'ttt"ttt'tt'tttttfitttttttt'tttt'.ttt'tlffittttQttt'

TST41:

2073

2076

R R

;s TESTING OF READ

5822

2065

;s THIS TEST PERFORMS MASTER RESET TESTING &

3825

2054

;:ttttQ';;tt"tttt"'it'ttt'tt'ttltt't'tttttt'tt'tttttt'ttfit't'tt

2050

2053

SEQ 0042

ssTESTING OF READ ONLY BIT FRMERR

006612
006614
006622
006630
006632

000004
052777
032777
001401
104004

.-;tQtttt;;tttfit'Q"'t"Q"'t"'ttttlt"tttttt'!ttt.itttttttttt'ti
000400
020000

173104
173066

TST43:

SCOPE
BIS
BIT
BEQ
ERROR

#MRESET ,@8TXCSR ;MASTER RESET
#FRMERR ,SRXDBUF ;TEST IHIQ 8lt
.44
:BR IF *0'
&
sCHECK MASTER RESEY LOGIC

sOR SHORT ON THIS BIT

J:THIS TEST PERFORMS MASTER RESET TESTING ¢
sTESTING OF READ ONLY BIT OVRRUN
H

(Z0uQ-C0o

czouac.mi

MACY11 30A(1052)

20-AUG-80 09:19

O09-SEP-80

006634
006636
006644
006652
006654

000004
052777
032777
001401
104004

000400
040000

173062
173044

2099
2100
2101
2102
2103
%}82

RN R AR TR PR C AN

SCOPE
8IS
8IT
BEQ
ERROR

006656
006660
006666
006674
006676

000004
052777
032777
001401
104004

000400
100000

173040
173022

000004
012777
052777

2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132

006722
006726
006732
006734

017701
105767
100010
042701

172764
172217

006740
006744
006746
006750
006752
006754

012700
020001
001401
104001
000407
042701

000000

006760
006764
006766
006770

012700
020001
001401
104001

000016

006716

016703

177777
000400

172770

173002
173010

173000

006772

SCOPE
8IS
BIT
BEQ
ERROR

SCOPE
MOV
BIS

MOV

MOV
1518
BPL
BIC

1%:

MOV
(MP
BEQ
ERROR
BR

8IC

MOV
cMP
BEQ
ERROR
2%:

#MRESET,@3TXCSR
#RXERR,3RXDBUF
.+
4

;MASTER RESET
,;TEST THIS BIT
;BR IF 0"
sCHECK MASTER RESET LOGIC

;OR SHORT ON THIS BIT

ssTHIS TEST VERIFYS THAT THE DEVICE REGISTER RXCSR
;31S CLEARED BY MASTER RESET

R AN

TST46:

173000

2133

N OO0
~NO W

TST45:

006700
006702
006710

214

#MRESET,@TXCSR
;MASTER RESET
#OVRRUN,@RXDBUF ;TEST TH]S BIT
b
:BR IF "0"
&
sCHECK MASTER RESET LOGIC
;OR SHORT ON TMIS BIT

;;ttQ'tt;;ttt't"'t"t""'t"t'ttttt't'tttttttt't'tt'tt'ttt'ttt'

2109
2110
2111

214

E RN RN RN EERRRARNNNCOONORRANNY

sTESTING OF READ ONLY BIT RXERR

2108

2134
213
213
213
213
213
214

AN AN

s THIS TEST PERFORMS MASTER RESET TESTING ¢

2106
2107

2112

SEQ 0043

TST44:

2095

%839
2098

PAGE 47

INITIALIZE THE COMMON TAGS

2087

2088
2089
2090
2091
2092
%832

10:57

AN A

RPN R R R R R R RN NN AN

#177777 ,@RXCSR
#MRESET ,@TXCSR

E AR E PR RNNNN RN

;SET ALL POSSIBLE BITS
;MASTER RESET

RXCSR.R?

;FOR ERROR MESSAGE

aRXCSR,R1
s SAVE ACTUAL
OPTCLR
sTEST THE OPT CLR JUMPER FLAG
1%
JNO ,ITS NOT IN
#173000,R1
sCLR NON-MASTER RESETTABLE
sBITS(SINCE THESE ARE DEPENDENT ON H315 CONNECTORS EXISTANCE)
#0,R0
;EXPECTED
RO,R1
JEXPECTED VS ACTUAL
R4
1
sALL MASTER RESETABLE BITS SHOULD BE CLR
8
:JUMP AROUND
#173000,R1
sCLR NON-MASTER RESETABLE
;BITS(SINCE THESE ARE DEPENDENT ON H315 CONNECTORS EXISTANCE)
£16,R0
SEXPECTED
RO,R1
;EXPECTED VS ACTUAL
R
1
;ONLY STD,RTS,DTR BITS SHOULD BE SET
sNOTE THAT STD IS READ =1 INDEPENDENT OFf
JSEC XMIT #6 STRAP

WAIT FOR CABLE DELAYS

IRRREANEER RN LR R TR RO R EECRANNRRERERRANY

sMODIFY ""HCLD:''"

006772
006776
007000

016702
005302
001376

172122

ACCORDINGLY FOR FASTER OR SLOWER

MOV
DEC
BNE

HOLD,R2 ;SET DELAY TIME
R2
.=
;WALT THIS TIME

;0K NOW FALL THRU AND CONTINUE TESTING...........

SEXIT STAGE LEFT....CHINNNG!

MACHINE

[

C20Ua-¢0
CZOUQC.M11

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 48
INITIALIZE THE COMMON TAGS

2143
OO0 NNNNN NNNNNOOOOOOONONON
O NN NN WAV
WS
2 OOV NOWVE NN = OOV NO WV
W
2O O NS WA =0 VO ~Or W

UD S
O
D D d

T NY.NYL.NT N NY ST S LN ST N —SToSIS) TN
SN NST NN
o i d o o i

ST D
N el
SIS
T ST NSNSD ST
S LSS TN
SISD LN
LS LS
D D D D o
D d D e
D e
D D D

1
1

1
1
1

*11S CLEARED BY MASTER RESET

007002

000004

;;'Qt't';;t'tt"t't't""'Q'Qtt'".tQ'Qt'"Q!".t."i"'t"t""'

007004
007012

012777
052777

177777
000400

007024

017701

172676

007020

016703

172702

172714
172706

1ST47:

MOV
BIS

#177777,8TXCSR
FMRESET @TXCSR

:SET ALL POSSIBLE BITS
:MASTER RESET

MOV

aTX(SR,R1

:SAVE ACTUAL

CMP

RO,R1
.+
1

MOV

007030 012700 000200
007034
007036
007040

SCOPE

TXCSR,RS

MOV

020001
001401
104001

BEQ
ERROR

sEXPECTED VS ACTUAL
:ONLY TXDONE SHOULD BE SET

;s THIS TEST VERIFYS THAT THE DEVICE REGISTER RXDBUF

::1S CLEARED BY MASTER RESET
X}

;;tit'i'fitt'i'ii't"""'t""""tt"t.lit"tt'i'."t'tQ"QQQttt

007042
007044
007052
007056
007062
007066
007070
007072

000004
052777
016703
017701
012700
020001
001401
104002

000400
172640
172634
000377

172654

1ST50:

SCOPE
8IS
MoV
MoV
MoV
CMP
BEQ
ERROR

#MRESET,@TXCSR
;MASTER RESET
RXDBUF ,R3
;FOR_ERROR MESSAGE
aRXDBUF ,R1
; SAVE
#377,R0 ;EXPECTED
RO,R1
;EXPECTED VS ACTUAL
. b
2
;ONLY REC DATA BITS SHOULD BE SET

:sTHIS TEST VERIFYS BITS RING,CTS,CARDET,SRD,DSR

;sALSO DSC IS GENERATED WHEN ANY OF THESE BITS ARE SET
;:O0R CLEARED..... IT ALSO CHECKS THE MODEM BYPASS
:;JUMPER AND THAT THESE BITS CAN BE READ

;:NOTE: THE MODEM BYPASS JUMPER MUST BE ON (H315)
oo

007074

000004

007102

052777

007076

005077

172610

000400

222X

TST51:
172616

2222222222032 222 2220222222020

SCOPE

CLR

BIS

SRXCSR

;TEST THAT A "'YES'' ANSWER WAS GIVEN TO QUESTION IN
;THIS TEST WILL BE BYPASSED
;JUMPER IS NOT INSTALLED

105767
100402

172037

1518
BMI

JMRBY

}g?

007116

000167

000652

JMP

ouT1

188
189

007122
007126

016703
017701

172564
172560

MOov
MoV

RXCSR,R3
SRXCSR,R1

191

007134

005701

TST

[T, SN,V VY VY N VTN N

192

193
194
195

196

197

198

;MASTER RESET

:THE MONITOR OR BY DEFAULT

007132

007136

007140
007142

005000

CLR

001401

104001
052777

BEO

000002

172542

RRRRRRRRtRRRRRRRR])

;70 GET RID OF STD ,RTS,DTR IF OPTCLR JUMPER #4 IS NOT ON

#MRESET ,8TXCSR

007114

190

:FOR ERROR MESSAGE

#200,R0 ;EXPECTED

007110

1
18

SEQ 0044

::THIS TEST VERIFYS THAT THE DEVICE REGISTER TXCSR

2124

F 4

.46

IF THE EXTERNAL BYPASS

; THE ANSWER WAS YES.....
; PERFORM THIS TEST

;dggPNSROUND THIS TEST IF THE ANSWER

;SET UP FOR ERROR MESSAGE
s ACTUAL

;EXPECTED

JAS 1T =072

ERROR
1
;RXCSR SHOULD BE CLR
BIS
#OTR,IRXCSR
;SET DTR
;WAIT FOR CABLE DELAYS
R

;MODIFY "HOLD:'"

A Rl

ACCORDINGLY FOR FASTER OR SLOWER

JRREEEREEEERRRLERONNRIRRARANRTROARACENLGY

MACHINE

’

(zoua-co
czouac A

BNV

SOV

NO VS WA

2O 000NN

W pury

NOALNI NN NI NN NN NI NI NI NN NN A NN NI NN NININI N ~N
NIAIRNIALRNI N NINI N PN NN AN NI NI R NI NI NI NI NI NINI NI nNJ
NININININIMNINININ
= b b ek Dk b b OO OOOO0OO o

2199
2200

MACY11 30A(1052)
20-AUG-80 09:19

007150
007154
007156

016702
005302
001376

171744

007160
007164
007170
007172
007174
007176
007202
007206
007210
007212

017701
012700
020001
001401

172526
130002

017701
012700
020001
001401

172510
030002

007214

052777

104001

10:57
PAGE 49
09-SEP-80
INITIALIZE THE COMMON TAGS

SEQ 0045

MOV
DEC
BNE

HOLD,R2 :SET DELAY TIME
R2
)
sWALT THIS TIME

MOV

3RXCSR,R1

:0K NOW FALL THRU AND CONTINUE TESTING...........
TEXIT STAGE LEFT....CHINNNG'

MOV

CMP
BEQ
ERROR

MOV

MOV
ggg

#130002, RO
RO,R1
.+
1

s ACTUAL

:DSC,CTS,CARDET,DTR

EXPECTED VS ACTUAL

: CHECK BYPASS CONNECTOR

aRXCSR,RY

:ACTUAL

#30002 .RO
1CTS,CARDET,DTR
aoza1
;EXPECTED VS ArTUAL
I

ERROR

104001

000004

:PREVIOUS READING OF RXCSR SHOULD

*HAVE

#RTS,aRXCSR
B1S
:WAIT FOR CABLE DELAYS

172470

2223222222222

CLEARED DSC

RARRRRRRRRRRD}

;MODIFY '"HOLD:'*

ACCORDINGLY FOR FASTER OR SLOWER

MOV

;SET DELAY TIME

MACHINE

:tt'i.""'""i""""""fiiitt'fitt't

007222
007226
007230

016702
005302
001376

171672

007232

017701
012700
020001
001401

1724564
170006

017701
012700

172436
070006

007236
007242
007244

007246
007250
007254
007260
007262
007264

104001

DEC
BNE

HOLD ,R2

R2
.=2

;WALT THIS TIME
;0K NOW FALL THRU AND CONTINUE TESTING...........

JEXIT STAGE LEFT....CHINNNG!
aRXCSR,R1
MOV
MOV
#170006,R0
;DSC,RING,CTS,CARDET ,RTS,DTR
CMP
RO,R1
;EXPECTED VS ACTUAL

BEQ
ERROR
MOV
MOV
ggg

. th
; CHECX BYPASS CONNECTOR
1
aRXCSR,R1
+RING,CTS,CARDET ,RTS,DTR
#70006,R0
R0£R1
W

171655

007266
007272
007274
007300
007302

000010

ERROR

;PREVIOUS READING OF RXCSR SHOULD

1ST8

SEXMIT

;1S SEC XMIT JUMPER IN ?

BPL

ouT2

8PL

ouY3

1ST8

171650

;EXPECTED VS ACTUAL

SEREC

+HAVE CLEARED DSC

:NO

;1S SEC REC JUMPER IN ?

:NO

#STD,3RXCSR
BIS
;WAIT FOR CABLE DELAYS

172402

:t"!tt"i""""""'tt'tt'."ttt"iI

;MODIFY '*HOLD:''

ACCORDINGLY FOR FASTER OR SLOWER

L
R LR R R T T T I T TR P
I Y

007310
007314
007316

016702
005302
001376

007320
007324

017701
012700

007330
007332

020001
001/M

MOV
DEC

171604

BNE

MACHINE

HOLD,R2 ;SET DELAY TIME
R2

JWALT THIS TIME

;0K NOW FALL THRU AND CONTINUE TESTING...........
SEXIT STAGE LEFT,...CHINNNG!

MASK1:

MoV

SRXCSR,R1

CMP

RO,R1

MOV

BEQ

2173016, R0

:DSC,RING,CTS,CARDET,SRD,DSR
SSTD.RTS,DTR

;EXPECTED VS ACTUAL

CZ0uQ-C0
czouac . min

MACY11 30A(1052)
20-AUG-80 09:19

2255

00733&

104001

%%gg

007342

012700

2259

007346

020001

2261
2262
2263
2264

007352

104001

007354

042777

2256

007336 017701

09-SEP-80 10:57 PAGE SO
INITIALIZE THE COMMON TAGS

ERROR

172350

073016

MASKZ:

2260 007350 001401

172330

RO,R1

ERROR

#73016,R0

007362
007366
007370

016702
005302
001376

171532

007372
007376
007402
007404
007406
007410

017701
012700
020001
001401
104000
042777

172314
143014

000004

LR LR AT AR

172274

JMODIFY '"HOLD:'"
016702
005302
001376

171476

007426

017701

172260

2290
2291
2292
2293
2294

007436
007440
007442
007444

020001
001401
104001
042777

2289 007432 012700

2295

RN E AR R R AR RN

R RO RNNNY

ACCORDINGLY FOR FASTER OR SLOWER

JRNNEEEA AR ERTE R ENREPEONRRONNRRIR
N RREY

103010
000010

R R RNNORY

MASK3:
172240

MOV

0103016.R0

;DSC,SRD,DSR,STD

cMp
RO,R1
JEXPECTED VS ACTUAL
.+
BEQ
ERROR
1
;DSC SHOULD BE SET
81C
#ST0 ,8RXCSR
JWAIT FOR CABLE DELAYS

JMODIFY "HOLD:'"

2297

INEEREAE

2298
2299
2300
23501
2302
2303

007452
007456
007460

016702
005302
001376

171442

007462

017701

172224

2309
2310

007504
007506

005000
005701

2304 007466 012700 100000
2305 007472 020001
2306 007474 001401
2307 007476 104001
2308 007500 017701 172206

MACHINE

MOV
HOLD,R2 ;SET DELAY TIME
DEC
R2
BNE
-2
JWALT THIS TIME
;0K NOW FALL THRU AND CONTINUE TESTING...........
JEXIT STAGE LEFT....CHINNNG!
MOV
aRXCSR R

IRERCAAALLLLNEETLARTTLRCONRROORNNNONNNRER

2296

MACHINE

MOV
HOLD,R2 ;SET DELAY TIME
DEC
R2
BNE
.2
sWALT THIS TIME
:0K NOW FALL THRU AND CONTINUE TESTING....evvvves
JEXIT STAGE LEFY....CHINNNG!
MOV
SRXCSR,
R
MoV
#143014,R0
:DSC,RING,SRD ,DSR,STD ,RTS
CMP
RO,R1
JEXPECTED VS ACTUAL
BEQ
.+4
ERROR
1
:DSC SHOULD BE SET
BIC
#RTS ,ARXCSR
JWAIT FOR CABLE DELAYS

2281

007416
007422
007424

ACCORDINGLY FOR FASTER OR SLOWER

NN LA LR ER LR R LR ANNRRNRRRERRANE

IR RN

2283
2284
2285
2286
2287
2288

::%gG;g;S.CARDET.SRD,DSR,STD

JEXPECTED VS ACTUAL

. +4

:MODIFY ""HOLD:'"

2280

2282

CMP

MOV

2266

2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

arXCSR,R]

:PREVIOUS READING OF RXCSR SHOULD
sHAVE CLEARED DSC
BIC
#DTR,RXCSR
JWAIT FOR CABLE DELAYS

2265

2267

:CHECK BYPASS CONNECTOR

MOV

BEQ
000002

SEQ 0046

ACCORDINGLY FOR FASTER OR SLOWER

LR RLTLRERRERRONRANNNNROREY

Mov
HOLD,RZ ;SET DELAY TIME
DEC
R2
BNE
Y
sWUALT THIS TIME
;0K NOW FALL THRU AND CONTINUE TESTING...........
SEXIT STAGE LEFTY....CHINNNG!
SRXCSR, R
MoV

MOV
(mpP
BEQ
ERROR
MOV
CLR
TST

#100000, RO
;DSC
RO, R
JEXPECTED VS ACTUAL
Y
:DSC SHOULD BE SET
1
R
aRXCSR,
RO
R1

; NONE

MACHINE

N=2OVOONOVNIS
NN =

b
D
d el e o
b
PORIND) —d ed

MNIRNININI NN NN NI PO

cCc
(=
=
M)

€0
M

MACY11 30A(1052)
20-AUG-80 09:19

007510
007512

001401
104001

007514

000167

007520

052777

09-SEP-80
10:57 PAGE 51
INITIALIZE THE COMMON TAGS

000254
000010

BEQ
ERROR

R
1

;0SC SHOULD BE CLEARED FROM PREVIOUS

JMP

oum

. JUMP AROUND

016702
005302
001376

171366

007536
007542
007546
007550
007552
007554

017701
012700
020001
001401
104001
042777

172150
070016

000004

;READING OF

RXCSR

¢THE FOLLOWING ROUTINE HANDLES THE SITUATION WHERE SEC XMIT

172164

AND

O0OuT2:

SEC

REC

BIS

JUMPERS ARE NOT ON

#STD,ARXCSR

;WAIT FOR CABLE DELAYS
RN RPN

;MODIFY "'HOLD:'"

ACCORDINGLY FOR FASTER OR SLOWER

007526
007532
007534

SEQ 0047

MOV
DEC
BNE
;0K NOW

I IR

RERTRERENR NN

MACHINE

R RRRNERRRINOIRNTETOLY

HOLD,R2 ;SET DELAY TIME
R2
.=2
;WALT THIS TIME
FALL THRU AND CONTINUE TESTING...........

:SXIT STAGE LEFT....CHINNNG!
MoV
SRXCSR,R1
sACTUAL
MoV
#70016,R0
SEXPECTED: RING ,CTS,CARDET,STD,RTS,DTR
cMP
RO,RY
;EXPECTED VS ACTUAL
8tQ
. +h
ERROR
1
;CHECK SEC XMIT & SEC REC JUMPERS
BIC
#RTS,IRXCSR

172130

;WAIT

FOR CABLE DELAYS

:'ii'liQ'Q'ttt"'t""""ttl'ttt"tt'l

;MODIFY "'HOLD:'"

ACCORDINGLY FOR FASTER OR SLOWER

MACHINE

;t"t"t"'t""t""""tt'tfi".t"t"

007562
007566
007570

016702
005302
001376

171332

007572

017701

172114

007576

007602
007604
007606
007610

012700
0200V1
001401
104001
042777

HOLD,R2 ;SET DELAY TIME
R2
=2
;WALT THIS TIME

MoV

SRXCSR,R1

;0K NOW FALL THRU AND CONTINUE TESTING...........
SEXIT STAGE LEFT....CHINNNG!

130012

000002

MoV
DEC
BNE

MoV

#130012,R0

sACTUAL

sDSC,CTS,CARDET,DTR,STD

¢NOTE THAT DSC STILL ASSERTS EVEN THO THE SEC XMIT JUMPER # 6 IS NOT ON

CMP
BEQ
ERROR
8IC

172074

RO,R1
;EXPECTED VS ACTUAL
.+
1
. CHECK BYPASS CONNECTOR
#DTR,8RXCSR

sWAIT FOR CABLE DELAYS
S

2223220222002

0R200000R0RdRRRRRRRRRD

IMODIFY "'WOLD:'' ACCORDINGLY FOR FASTER OR SLOWER MACHINE

=200~
OO
OV
WWN

AN AN

[QSLST ST NI ST N1, N1,01,81,8)

;t"i.tt"'t"'tt"""'t'l.."t.itfitt'

007616
007622
007624

016702
005302
001376

171276

007626

017701

172060

007636

020001

007632

012700

MoV
HOLD,R2 ;SET DELAY TIME
DEC
R2
BNE
.=2
;WALT THIS TIME
;0K NOW FALL THRU AND CONTINUE TESTING...........
YEXIT STAGE LEFT....CHINNNG'
MOV
3RXCSR, R
s ACTUAL

100010

104001
000167
052777

000124
000010

#100010, RO

BtQ

. +4

CMP

007640 001401

007642
007644
007650

MOV

172034

o0uT3:

RO, R

:DSC.STD

JEXPECTED VS ACTUAL

ERROR
1
;ONLY DSC & STD
JMP
ouT?
: JUMP AROUND
BIS
#STD,3RXCSR
;WAIT FOR CABLE DELAYS

SHOULD BE SET

MAAALIAAARAAAAAARAAAAAAARARARARARARARR
D)

—

C20ue-C0
CZDbuQC.M 1"

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 52
INITIALIZE THE COMMON TAGS

;MODIFY ''HOLD:'"
AR

007656
007662
007664

016702
005302
001376

007666
007672
007676
007700
007702
007704

017701
012700
020001
0014601

171236

MOV

SEQ 0048

ACCORDINGLY FOR FASTER OR SLOWER

LTI

R N TR T RN RN

RNRNRNY

MACHINE

HOLD,R2 ;SET DELAY TIME

DEC
BNE

R2
.=

;WALT THIS TIME
AND CONTINUE TESTIWG...........
THRU
;0K NOW FALL
NG!
LEFT....CHINN
JEXIT STAGE

MoV

aRXCSR,R1

CMP
BEQ
ERROR
BIC

RO,R1
;EXPECTED VS ACTUAL
.
1
. CHECK SEC REC JUMPER
#RTS,ARXCSR

MoV

104001

062777

172000

+ACTUAL

#171016,R0

;EXPECTED: DSC,RING,CTS,CARDET,DSR,STD,RTS,DTR

¢WAIT FOR CABLE DELAYS

MALLAAALAALAAAAAALMAARAALARAARR
R RSA!

;MODIFY '""MOLD:''

007712
007716
007720

016702
005302
001376

007722
007726
007732
007734
007736
007740

017701
012700
020001
001401

042777

000002

104001

ACCORDINGLY FOR FASTER OR SLOWER

MOV
DEC
BNE

HOLD,R2 ;SET DELAY TIME
Re
.=2
;WALT THIS TIME

MOV

SRXCSR,R1

CMP
BEQ

RO,R1
.t

MoV
ERROR

171744

BIC

sACTUAL

#131012,R0
1

;EXPECTED: DSC,CTS,CARDET,DSR,STD,DTR

EXPECTED VS ACTUAL

;CHECK H315 CONNECTOR

#DTR,IRXCSR

sWAIT FOR CABLE DELAYS

;ii'.tt""t"'i""'i"tt'ttittt"tt't

ACCORDINGLY FOR FASTER OR SLOWER

sMODIFY '*HOLD:'*
T

MACHINE

MOV
DEC
BNE
;0K NOW

HOLD,R2 ;SET DELAY TIME
R2
.=
;WALT THIS TIME
FALL THRU AND CONTINUE TESTING...........

MOV

SRXCSR R

CMP

RO,R1

:EXPECTED VS ACTUAL

:CHECK H315 CONNECTOR

SEXIT STAGE LEFT,....CHINNNG!

017701
012700
020001
001401

—d

007756
007762
007766
007770
007772
007774

171146

016702
005302
001376

007746
007752
007754

MACHINE

;0K NOW FALL THRU AND CONTINUE TESTING...........
SEXIT STAGE LEFT....CHINNNG!

—
—

171202

MOV

BEQ

104001

ouT1:

ERROR

#101010, R0

sACTUAL

*EXPECTED: DSC.DSR,STD

soTHIS TEST VERIFYS THAT RECACT

(REC ACTIVE)

s IMMED. WHEN SYNC EXTERNAL MODE IS SELECTED
:sAND SYNC SEARCH IS SET

ASSERTS

I SE 2381232223223 2223322332232222302233222220220R2222222380RUiRRR2RRARRRRR

007774
007776
010004
010012

000004
052777
012777
052777

000400
020000
000400

010020

012777

064001

fs152:

SCOPE

BIS

#MRESEY,@TXCSR

;MASTER RESET

8IS

#MRESET,QTXCSR

;MASTER RESET

MOV

171700

#SYNEXT,QPARCSR ;SET THE MODE

;SET MAINT DATA,CLK,BREAK,CMAINTENANCE MODE
MOV

FMTDATA!CLK!MINT!BREAK,@TXCSR

(20UQ-C0
€20uac .M

2466

24667
2468
2469
2470
2471
2472
473
2474
2475
2476
24677
2478

20-AUG-80 09:19

SEQ 0049

;SET HODEOVI OF BITS,PARITY SENSE,LLOAD SYNC REG

026026
004000

010026
010034
010042
010044
010046
010054
010062
010064
010066
010074
010102
010104

000020
004000

#RECACT ,@RXCSR
. *4

BIT
BNE

#RECACT ,@RXCSR
.t

ERROR
BIC
BIT

000020
004000

FSYNEXT'EIGHT {NOPAR! 26, aPARCSR

BIT
BEQ

ERROR
BIS

BEQ

ERROR

&
#SYNSCH,BRXCSR

;RECACT SHOULD NOT BE SET
;SET SYNC SEARCH

&
#SYNSCH,aRXCSR
#RECACT ,BRXCSR

sRECACT DID NOT ASSERT
;DROP SEARCH SYNC
;IS IT =0?

;RECACT SHOULD BE 0

;sTHIS TEST VERIFYS THAT RECACT (REC ACTIVE) ASSERTS
;s IMMED. WHEN ISOCRONOUS MODE IS SELECTED
;sAND SYNC SEARCH IS SET
(X

042777
032777
001401
104004

000020
004000

—

b
o
—

(9, 1V, To
~N
N —
&S00
W

O~ &

[o %

—

b
—

(U LV,]

~N~

TST153:

SCOPE

BIS
MOV
BIS

R R

R0 RRRtRRRRR

;MASTER RESET
#MRESET ,@TXCSR
#1SYMOD,@PARCSR ;SET THE MODE
;MASTER RESET
#MRESET,3TXCSR

JSET HAINB DATA,CLK,BREAK,LMAINTENANCE MODE

#MTOATA'CLK'MINT !BREAK,@TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG

MOV

SR
OD
' EIGHT {NOPAR!26,3PARC
#1SYM

ERROR
BIS
8IT

&
#SYNSCH ,8RXCSR
#RECACT ,@RXCSR

;RECACT SHOULD NOT BE SET
;SET SYNC SEARCH

ERROR
BIC
817

&
#SYNSCH,8RXCSR
#RECACT,@RXCSR

;RECACT DID NOT ASSERT
;DROP SEARCH SYNC
;IS IT =0?

ERROR

BIT
BEQ

BNE
[o % o

104004

000020
004000

&Hun

032777
001001

006026
004000

—

010176
010200
010206
010214
010216

012777
032777
001401
104004
052777

[
—ry

010140
010146
010154
010156
010160
010160
010174

064001

171566

~N~N

010132

012777

000400
000000
000400

— b

000004
052777
012777
052777

~N~

010106
010110
010116
010124

X222 2222222222222 2322222222 2222020000

—b b

2423
2424
2425
2626
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2446
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465

09-SEP-80 10:57 PAGE 53
INITIALIZE THE COMMON TAGS

MACY11 30A(1052)

BEQ

#RECACT ,8RXCSR
.+

;RECACT SHOULD BE 0

;sVERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING
:oIN TWO « SYNC CHARS THRU MAINT DATA BIT
;sWATCH THE RECACY BIT

..ON THE THIRD « CHARACTER IT SHOULD SET RXDONE
DEPENDENT ON MONITOR........ sens

..IF ONE SYNC STRAP IS SELECTED TMEN IT WILL ONLY
:TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT

:sON THE SECOND CHARACTER
;sALSO CHECK THIS CHARACTER IN RXDBUF
:sAND CHECK OPERATION OF SYNSCH
:sMODE: SYNC INTERNAL
;s LENGTH:FIVE
L

;;tttt't'tt.'t't"'"t""'t't"i'll't".".......Q'...'...'..Q'.

——

10:57

PAGE S&

010244

012777

064001

171454

010252
010260
010264

012777
016703
052777

030026
171432
000020

171442

171420

MOV
BIS

010272
010300

062777
05277/

v<0000
020000

171426
171420

010306
010314
010322
010330
010336
010344
010350
010354

042777
052777
012767
012767
012767
004767
005367
001403

020000
020000
000002
000005
000026
006554

171412
171404
170574

010356

105767
100762
105777

oo Quasr Qer G

[elolole

171476
171464

(olelele

000400
030000
000400

100001
104004
032777

001001

104004

PR AN AR R R RRRRRRRRRRR
NormoRSINIERNSS~ER

D o

O0O0O0OOO0OCL

D e

D d

MOOO0O0O0O

010426
32

012767
012767
004767
105777
100401
104004
032777
001001
1046004

062777
032777
001401
104004
105777
100401
104004

012700
017701
020001
001401
104002
105777
100001

SEQ 0050

INITIALIZE THE COMMON TAGS

(W IV 1 V1,8
OO

09-SEP-80

000004
052777
012777
052777

OO0

FUKSLS OO NN P AN SO OB NN UWN~-OO

(ST NT ST NT N1 T NT ST NT ST ST N ST N LS N LS Lt Lat s L L

WAHA VAT VAW
VA VA VAW VA VA VIAWVIVITA W VNV NN
PNOAINIPONNVAD
NININ) = b b b D b b b ) =2 =4

2479
2480
2481
2482
2483
2484
2485

MACY 1 30A(1052)
20-AUG-80 09:1

b o

CZ0uQ-C0

czouec.m

TST54:

171462

SCOPE
BIS
MOV
BIS

#MRESET,ATXCSR
;MASTER RESET
#SYNINT.@PARCSR :SET THE MODE
#MRESET,QTXCSR

:MASTER RESET

;SET MAINT DATA,CLK,BREAK,SMAINTENANCE MODE
MOV

SMTOATA! CLK'MINT 'BREAK,3TXCSR

;SET MODE ,# OF BITS,PARITY SENSE,ELOAD SYNC REG
MOV

#SYNINT'FIVE 'NOPAR'26,3PARCSR

RXDBUF ,R3
#SYNSCH,@RXCSR

:SET UP FOR ERROR MESSAGE
;SET SYNC SEARCH

BIC
BIS

#CLK,ATXCSR
#CLK,3TXCSR

:POKE CLK DOWN
:POKE CLK UP

BIC
BIS
MOV

#CLK,3TXCSR
#CLK.ATXCSR
#2.COUNT

;POKE CLK DOWN
‘POKE CLK UP

#26,$TMPY
PC,RPOKE
COUNT

:SYNC CHARACTER

170550

MOV
JSR
DEC

170564

STEST SYNCNO TO SEE
TSTB
SYNCNO

170564

171134

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION

1$:

MOV
BEQ

171322

2%:

004000

171310

000005
000021
006476
171260

170506

004000

171246

000020
004000

171234
171226

171216

:POKE CLK TO GET KECEIVER INTO SYNCROIZATION....

171056

#5.SHIFTY
2

;8 OF SHIFTS

HOW MANY SYNC

CHARS WERE

BMI
ggle

1%
aazcsa

ERROR
BIT
BNE

&
#RECACT,aRXCSR
.44

:RXDONE

MOV

221 s1mP1

:ANY CHARACTER

ERROR
MOV
JSR

:TWO SYNC CHARS
:CHECK REC DONE BIT

&
#5,SHIFT

PC,RPOKE

TSTB

@RXCSR

BIT

#RECACT,aRXCSR

BM]
ERROR
BNE
ERROR
BIC
BIT

BEQ
ERROR
TSTB

BM]

. +4
&

ORECACT.SRXCSR

.44

;RXDONE

ERROR

MOV

aRXDBUF ,R1

000021
171206

MOV

171170

ggre

SHOULD NOT BE ASSERTED

;RECACT SHOULD BE ASSERTED

:CHECK RXDONE

.44
&
#SYNSCH,@RXCSR
L+
&
@RXCSR

;RXDONE SHOULD BE ASSERTED
;RECACT SHOULD STILL BE ASSERTED
:CLR SYNC SEARCH
SIT SHOULD DROP IMMEDIATELY
;RECACT SHOULD BE

EXPECTED DATA

nola1

; COMPARE EXP VS ACT

ERROR

:DATA CHARS SHOULD COMPARE

L+

aazcsa

CLR

:RXDONE SHOULD STILL BE ASSERTED

#21,R0

ggg

SELECTED

:ACTUAL DATA

*CHECK RXDONE

—

CZ0UQ-C0

czouac.m

10:57

104004

ERROR

..ON THE THIRD * CHARACTER IT SHOULD SET RXDONE
DEPENDENT ON MONITOR...vcvcvevees

..IF ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY
::TAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT
20N THE SECOND CHARACTER
::ALSO CHECK THIS CHARACTER IN RXDBUF
::AND CHECK OPERATION OF SYNSCH
JsMODE: SYNC INTERNAL
:sLENGTH:SIX

010526
010530
010536
010544

000004
052777
012777
052777

000400
030000
000400

171170
171156
171154

557
Zggg

010552

012777

064001

171146

010560
010566

012777
016703

032026
171124

171134

000020

171112

010600
010606

042777
052777

020000
020000

171120
171112

010614
010622
010630
010636
010644
010652
010656
010662

042777
052777
012767
012767
012767
004767
005367
001403

020000
020000
000002
000006
000026
006246
170242

171104
171076
170266
170256
170626

2577
2578
2579
2580

010664
010670
010672
010676

105767
100762
105777
100001

170256

2582
2583

010702
010710

032777
001001

004000

171002

000006

170200

2576

2581

2584
2585

010572

010700

010712
010714

052777

104004

104004
012767

2590

010730
010734
010740

010742

004767
105777
100401

104004

006170
170752

TST155:

SCOPE
BIS
MOV
BIS

R AR

C AR

CR AN RN A R

AR AR TR

RO ENRE RN RO

NREN

#MRESEY,@TXCSR ;MASTER RESET
#SYNINT ,@PARCSR ;SET THE MODE
#MRESET,@TXCSR ;MASTER RESET

sSET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
#MTDATA!CLK!MINT!BREAK ,@TXCSR
MOV

:SET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG
OSYNINT'SIX'NOPAR'Zb @PARCSR
HOV
:SET UP FOR ERROR MESSAGE
RXDBUF ,R3
MOV
#SYNSCH,RXCSR :SET SYNC SEARCH
BIS
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
;POKE CLK DOWN
#CLK,8TXCSR
BIC
:POKE (LK UP
#CLK,@TXCSR
BIS
sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION
sPOKE CLK DOWN
#CLK,3TXCSR
BIC
POKE CLK UP
#CLK,8TXCSR
BIS
lZ.COUNT
Mov
8 OF SHIFTS
#6,SHIFY
MOV
1§$:
CHARACTER
*SYNC
#26,$TMP1
MOV
JSR
PC,RPOKE
COUNT
DEC
28
BEQ

:TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED

2%:

171014

2586 010722 012767 000021
2587
2588
2589

;RXDONE SHOULD BE CLR FROM

;PREVIOUS READING OF RXDBUF

;sWATCH THE RECACT BIT

552
553
554
222

2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575

SEQ 0051

;:VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING
:;IN TWO = SYNC CHARS THRU MAINT DATA BIT

550

591

PAGE 55

INITIALIZE THE COMMON TAGS

Vo0~ O

VNS WA= O V00~

010524

09-SEP-80

P ad 2k

(O LV, V]

MIMNR NN NI NN A NIN N NI NN A NN ~N

[¥,)

\:mwmmwwmmm
Pl oW oW o o YV TV [V w

2535

MACY11 30A(1052)

20-AUG-80 09:19

170550

SYNCNO
19

1578
8MI
18718
8PL

SRXCSR

BIT
BNE

#RECACT,8RXCSR
4

ERROR

ERROR
MOV

06 SHIFT

MOV

JSR
1518
BMI

ERROR

;TWO SYNC CHARS
;CHECK REC DONE BIT

sRXDONE SHOULD NOT BE ASSERTED
sRECACT SHOULD BE ASSERTED

221, 87MP1

;ANY CHARACTER

JRXDONE SHOULD BE ASSERTED

PC,RPOKE
@RXCSR ; CHECK RXDONE
R

C20UQ-¢9
CI0OUQC.M11

2591
2592
2593
2594
2595
2596
2697
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608

%2?8

MACY11 30A(1052)
20-AUG-80 09:19

010744
010752
010754
010756
010764
010772
010774
010776
011002
011004
011006
011012
011016
011020
011022
011024
011030
011032

032777
001001
104004
042777
032777
001401
104004
105777
100401
104004
012700
017701
020001
001401
104002
105777
100001
104004

09-SEP-80 10:57 PAGE Sé
INITIALIZE 1HE COMMON TAGS

004000

170740

000020
004000

170726
170720

BIT
BNE
ERROR
BIC
BIT
BEQ
ERROR
TSTB
BM]
ERROR
MOV
MOV
CMP
BEQ
ERROR
TSTB
BPL
ERROR

170710

000021
170700

170662

SEQ 0052

FRECACT,aRXCSR
.44
&
:RECACT SHOULD STILL BE ASSERTED
FSYNSCH,aRXCSR
:CLR SYNC SEARCH
FRECACT.@RXCSR
:IT SHOULD DROP IMMEDIATELY
.44
4
;RECACT SHOULD BE CLR
@RXCSR
;RXDONE
. +h
&
;RXDONE SHOULD STILL BE ASSERTED
#21,R0 EXPECTED DATA
aRXDBUF ,R1
sACTUAL DATA
RO,R1
:COMPARE EXP VS ACT
.+
2
:DATA CHARS SHOULD COMPARE
SRXCSR
:CHECK RXDONE
.+
&
;RXDONE SHOULD BE CLR FROM

;PREVIOUS READING OF RXDBUF

2611
2612
2613

:VERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING
SLIN TWO * SYNC CHARS THRU MAINT DATA BIT
“:WATCH THE RECACT BIT

2615
2616
2617
2618
2619
2620
2621
ggzg

Sia: DEPENDENT ON MONITOR.....0c000n..
S*IF ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY
$:TAKE ONE SYNC CHARACTER FOR RXDONE 0 ASSERT
::ON THE SECOND CHARACTER
1:ALSO CHECK THIS CHARACTER IN RXDBUF
$:AND CHECK OPERATION OF SYNSCH
1:MODE: SYNC INTERNAL
s :LENGTH:SEVEN

262‘.

:.'tt'ttttttt"itt't't"'Q""'ittt"t't'tt'tttttt'tttttt""t'ttt

2614

::ON THE THIRD « CHARACTER IT SHOULD SET RXDONE

2625
2626
2627
gggg

011034
011036
011044
011052

000004
052777
012777
052777

000400
030000
000400

170662
170650
170646

2630
gggg

011060

012777

064001

170640

2634 011066 012777 034026

170626

2633

2635
2636

011074
011300

016703
052777

170616
000020

2637
2638 011106 042777 020000
2639

01111«

052777

020000

2641
2662
2643
2664

011122
011130
011136
011144

042777
052777
012767
012767

020000
020000
000002
000007

2646

011160

004767

005740

2640

2645 011152

012767 000026

75T56:

:SET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG

MOV

MOV
BIS

170320

#SYNINT!SEVEN'NOPAR!
26,aPARCSR
RXDBUF ,R3
#SYNSCH,aRXCSR

:SET UP FOR ERROR MESSAGE
:SET SYNC SEARCH

BIS

#CLK.STXCSR

*POKE CLK UP

BiC
BIS
MOV
MoV

#CLK,TXCSR
#CLK QTXCSR
22, COUNT
BT SHIFT

:POKE CLK DOWN
‘POKE CLK UP

JSR

PC,RPOKE

:POKE CLK TO GET RECEIVER INTO SYNCROIZATION..
BIC
#CLK,STXCSR
:POKE CLK DOMWN

170612
170576
170570
167760
167750

#MRESET,ATXCSR
;MASTER RESET
#SYNINT.@PARCSR :SET THE MODE
FMRESET.@TXCSR
:MASTER RESET

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV
#MTOATA!
CLK 'MINT 'BREAK ,3TXCSR

170604
170604

SCOPE
BIS
MOV
BIS

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
1%:

MOV

226.81mP1

:# OF SHIFTS

SSYNC CHARACTER

CI0ua-Co

czouac.m

MACY11 30A(1052)

20-AUG-80 09:19

2647
2648
2649
2650
2651
2652
2653
2654
2655

011164
011170

005367
001403

167734

011172
011176
011200
011204
011206
011210

105767
100762
105777
100001
104004
032777

167750

2657
2658
2659

011220
011222
011230

2656

2660
2661
2662
2663
2664
2665

2666
2667
2668
2669
2670

2671

2672
2673
2674
2675
2676
2677
2678
2679
2680
2681

gggg

01121¢

011236
011242
011246
011250
011252
011260

011262
011264
011272
011300
011302

011304

011310
011312
011314
011320
011324
011326
011330
011332
011336
011340

001001

104004
012767
012767

004767
105777
100401
104004
032777
001001

104004
042777
032777
001401
104004

105777

100401
104004
012700
017701
020001
001401
104002
105777
100001
104004

(09-SEP-8G

10:57

170474

000007
000021
005662
170444

167672
170242

ERROR
MOV
MOV

&
#7,SHIFTY
#21,8TMP1

;RECACT SHOULD BE ASSERTED

004000

170432

000020
004000

170420
170412

ERROR
BIC
BITY
BEQ
ERROR

&
#SYNSCH,@RXCSR
#RECACT ,@RXCSR
. +b
4

;RECACT SHOULD STILL BE ASSERTED
;CLR SYNC SEARCH
;IT SHOULD DROP IMMEDIATELY

170506
004000

2%:

BNE

JSR
1518
BMI
ERROR
BIT
BNE

170402

1578

BM]
ERROR
MOV
MOV
CMP
BEQ
ERROR
1578
BPL
ERROR

000021
170372

170354

;ANY CHARACTER
PC,RPOKE
aRXCSR
; CHECK RXDONt
. +h
&
;RXDONE SHOULD BE ASSERTED
#RECACT ,aRXCSR
.+

aRXCSR

;RXDONE

;RECACT SHOULD BE CLR

. +h
4
sRXDONE SHOULD STIL. BE ASCERTED
#21,R0 ;EXPECTED DATA
;ACTUAL DATA
aRXDBUF ,R1
RO,R1
;COMPARE EXP VS ACT
.+
2
:DATA CHARS SHOULD COMPARE
RXCSR ;CHECK RXDONE
. +6
&
:RXDONE SHOULD BE CLR FROM

;PREVIOUS READING OF RXDBUF

¢sIN TWO ¢ SYNC CHARS THRU MAINT DATA BIT
s sWATCH THE RECACT BIT
ssON THE THIRD = CHARACTER IT SHOULD SET RXDONE
ssv: DEPENDENT ON MONITOR......cco....

:;1F ONE SYNC STRAP IS SELECTED THEN IT WILL ONLY

2689

:sTAKE ONE SYNC CHARACTER FOR RXDONE TO ASSERT
:sON_THE SECOND CHARACTER
$sALSO CHECK THIS CHARACTER IN RXDBUF
:sAND CHECK OPERATION OF SYNSCH
ssMODE: SYNC INTERNAL

2690
2691
2692
2693
2694

;s LENGTH:E1GHT

%ggg

2701

;sVERIFY THE MATCH DETECT & DATA RDY FLAGS BY PUMPING

2685
2686
2687
2688

2698
2699
2700

SEQ "0053

DEC
COUNT
BEQ
2%
;TEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED
1578
SYNCNO
BM]
1%
;TWO SYNC CHARS
1STB
aRXCSR ; CHECK REC DONE BIT
BPL
L +h
:
ERROR
&
;RXDONE SHOULD NOT BE ASSERTED
BIT
#RECACT ,@RXCSR

2684

2697

PAGE 57

INITIALIZE THE COMMON TAGS

011342
011344
011352

011360

000004
052777
012777
052777

;;nnn;;tn'nn'nnttnnnnnnnnnnnnnnnnnnnn

000400
030000

000400

170354
170342

170340

TST57:

SCOPE
8IS
MoV
BIS

IMRESET ,@TXCSR ;MASTER RESET
#SYNINT,@PARCSR ;SET THE MODE
#MRESET,@TXCSR

;MASTER RESET

CZ0UQ-Co
CZDURC .M
2703
gggg

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 58
INITIALIZE THE COMMON TAGS

SEQ 0054

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV
MMTDATA!CLK'MINT!BREAK,ATX(SR

011366

012777

064001

170332

011374
011402
011406

012777
016703
052777

036026
170310
000020

170320

2711
2712
2713
2714
715

011414
011422

042777
052777

020000
020000

170304
170276

011430
011436

0642777
052777

020000
020000

170270
170262

BIC
#CLK,@TXCSR
;POKE CLK DOWN
BIS
#CLK,3TXCSR
;POKE CLK UP
;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,@TXCSR
;POKE CLK DOWN
BIS
#CLK,@TXCSR
;POKE CLK UP

2717

011452

012767

000010

167442

18:

2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2755
2736
2737
2738
2739
2740
27641
2762
2743

011466
011472
011476

2706
2707
2708
2709
2710

2716
2718

2744

2745

011444

011460

011536
011544
011550
011554
011556
011560
011566
011570
011572

012767
004767
105777
100401
104004
032777
001001
104004
042777

011612

105777

011530

011600
011606
011610

011616

2748

011626

2754

g;gg

2757

2758

012767

032777
001401
104004
100401

104004

011622

012700

011632

020001

2750 011634

2751
2752
2753

004767
005367
001403
105767
100762
105777
100001
104004
032777
001001
104004

011620

749

012767

011500
011504
011506
011512
011514
011516
011524
011526

27646

2747

012767

011636
011640
011644
011646

017701

000002

000026

005432
167426

104004

167452

170012

167442
170200

28:

004000

170166

000010
000021
005354
170136

167364
167734

004000

170124

000020
004000

170112
170104

170074
000021

170064

001401

104002
105777
100001

170276

;SET MODE ,# OF BITS,PARITY SENSE,LLOAD SYNC REG
MOV
#SYNINT'EIGHT !NOPAR!26,8PARCSR
MOV
RXDBUF ,R3
;SET UP FOR ERROR MESSAGE
BIS
#SYNSCH,@RXCSR
;SET SYNC SEARCH
;POKE CLK TO GET RECEIVER INTO SYNCROIZATION....

MOV.

#2,COUNT

MOV

#26,8TMP1

MOV

;¥ OF SHIFTS

:SYNC CHARACTER

JSR
PC,RPOKE
DEC
COUNT
BEQ
23
STEST SYNCNO TO SEE HOW MANY SYNC CHARS WERE SELECTED
X SYNCNO
BM]
1$
:TWO SYNC CHARS
TSTB
aRXCSR
;CHECK REC DONE BIT
BPL
R
ERROR
&
;RXDONE SHOULD NOT BE ASSERTED
BIT
#RECACT,aRXCSR
BNE
YA
ERROR
&
;RECACT SHOULD BE ASSERTED
MOV
#8.,SHIFT
MOV
#21,8TMP1
:ANY CHARACTER
JSR
PC,RPOKE
TST8
SRXCSR
;CHECK RXDONE
BMI
YA
ERROR
&
;RXDONE SHOULD BE ASSERTED
BIT
#RECACT,aRX(SR
BNE
RY
ERROR
&
;RECACT SHOULD STILL BF ASSERTED
BIC
#SYNSCH,@RXCSR
:CLR SYNC SEARCH
BIT
#RECACT,aRXCSR
;1T SHOULD DROP IMMEDIATELY
BEQ
YA
ERROR
&
;RECACT SHOULD BE CLR

15718

SRXCSR

ERROR

MOV

SRXDBUF ,R1

8M]

MOV

CMP

BEQ
170046

#8.,SHIFT

ERROR
TST8
BPL

ERROR

;RXDONE

:RXDONE SHOULD STILL BE ASSERTED

#21,R0

;EXPECTED DATA

RO,R1

;COMPARE EXP VS ACT

2
SRXCSR
Y

:DATA CHARS SHOULD COMPARE
;CHECK RXDONE

;ACTUAL DATA

;RXDONE SHOULD BE CLR FROM

;PREVIOUS READING OF RXDBUF

::THIS TEST VERIFYS WORD LENGTH SELECT OF

;:RECEIVER SECTION,IT USES THE ERROR FLAGS

THE

MACY11

C10uQ-C0
CZ0UQC.M "

30A(1052)

20-AUG-80 09:19

10:57
PAGE 59
09-SEP-80
INITIALIZE THE COMMON TAGS
;.70 DETERMINE THAT
+ s COVRRUN,RXERR)

SE@ 0055
[T WAS SELECTED CORRECTLY

DE
: 1SYMOD
; ;MO
;o LENGTH:FIVE
:;CHAR: 25

S 22232202l
R
Rttt
R
R
R RRRRRRARRARRRD]

012777

064001

170024

000000
000020

170012

020000
020000

170002
167774

020000
020000
167744
000025
000007

167766
167760

042777
052777

062777
052777
016703
012700
012767
012767
004767
105777
017701
020001
001401

167704

012020
012026
012034

012767
012767
004767

000007
000152
005064

167074

012040
012046
012054
012060

012767
012767
004767
012700

000007
000152
005044

167054

012064
012070
012072
012074

017701
020001
001401

167626

167506

167710

MOV

;SET MODE

;POKE

#MTDATA!CLK!MINT!BREAK ,8TXCSR

,# OF BITS,PARITY SENSE,LLOAD SYNC REG

MOV

#1SYMOD
' F IVE 'NOPAR' 0, aPARCSR

MOV

#152,8TmP1

BIS
#SYNSCH,ARXCSR
:SET SYNC SEARCH
:POKE CLK TO GET RECEIVER INTO SYNCROIZATION....
BIC
#CLK,ATXCSR
;POKE CLK DOWN
BIS
#CLK,ATXCSR
:POKE CLK UP
CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
#CLK,BTXCSR
:POKE CLK DOWN
BIS
#CLK.STXCSR
:POKE CLK UP
MOV
RXDBUF ,R3
*SET UP FOR ERROR MESSAGE
MOV
#25,R0°
EXPECTED
MOV
87 SHIFT
¥ OF SHIFTS

JSR

PC. RPOKE

BM]
ERROR

44
&

TSTB

MOV
gg:

@RXCSR

IN THIS CHAR

ACTUAL

:RECEIVED DATA DID NOT MATCH
SEXPECTED DATA = CHECK MAINT DATA

ERROR

MOV

87, SHIFT

:# OF SHIFTS

JSR

PC,RPOKE

SSHIFT IN THIS CHAR

MOV

:OR RECEIVER LOGIC

1152,81mpP1

:DATA CHAR

:NOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF
MOV

#7 SHIFT

;# OF

JSR
MOV

PC, RPOKE
#140000!25,R0

sSHIFT IN THIS CHAR
:EXPECTED DATA PLUS

MOV

052,811

SHIFTS

:DATA CHAR

:RXERR € OVRRUN

MOV
g?z

SRXDBUF ,R1
sACTUAL
ROLR1
; COMPARE EXP VS. ACT

ERROR

;SPECIFICALLY LOOK AT RXERR &
;OVRRUN BITS...THEY BOTH SHOULD BE SET
e

RIFYS WORD LENGTH SELECT OF THE
TION,IT USES THE ERROR FLAGS
HAT [T WAS SELECTED CORRECTLY
—— Gt

167424

;RXDONE SHOULD BE SET

EM«

140025

167444

;RXDONE

:DATA CHAR

YSHIFT

afXDBUF , R
*ACTUAL
n0£n1
:COMPARE EXPECTED VS.
I

104002

;MASTER RESET
#MRESET,ATXCSR
#1SYMOD,@PARCSR ;SET THE MODE
;MASTER RESET
#MRESET ,@TXCSR

;SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE

167774

167136

SCOPE
BIS
Mov
8IS

meoeom

100401
104004

000152
005126

15160:

— (Y

— b
d d d

—d

snh

D el

POPNIPORININD b cd ed ed e

)

P Qg

=lelelalelelelelelelelolale Nel

-—

BNele)

012777
052777

—d b

=220
O

170046
170034
170032

NN
=
SH~00

000400
000000
000400

(=] OOOO NN SNSNSNSNSNSN
—
=2 OO
O N~ O~ NS
S W
o [L8 T W
N Y. ¥, X ~ oo ONY

000004
052777
012777
052777

PION)
b b ed b >

-2 OO 00~ fi(L

OO0
cCc
00O

lala)

MACY11

30A(C1052)

20~AUG-80 09:1 9

09-SEP-BO

10:57

PAGE 60

INITIALIZE THE COMMON TAGS

SEQ 0056

:: (OVRRUN ,RXERR)
DE
: ISYMOD
¢ sMO
;s LENGTH:FIVE
::CHAR:
12

;;ttttt"';tttttt"t't"'t""'t""'tQt'.'ttttt't"ttt"ttt't'ttt

012076
012100
012106
012114

000004
052777
012777
052777

000400
000000
000400

167620
167606
167604

012122

012777

064001

167576

012130
012136

012777
052777

000000
000020

167564
167546

012144
012152

042777
052777

020000
020000

167554
167546

012160
012166

042777
052777

020000
020000

167540
167532

012174
012200
012206

012212

016703
012700
012767

012767

167519

000012
000007

000124

012220
012224
012230
012232
012234
012240
012242
012244

004767
105777
100401
104004
017701
020001
001401
104002

004700
167462

012246

012767

000007

012262

004767

004636

012266

012767

000007

012302

004767

004616

012306
012312
012316
012320
012322

012767 000124
012700
017701
020001
001401
104002

167260

167456

012254 012767 000124
012274

166710

166646

167216

166626

167176

7$161:

SCOPE
BIS
MOV
8IS

#MRESET,3TXCSR
:MASTER RESET
#1SYMOD.SPARCSR :SET THE MODE
#MRESET.STXCSR
:MASTER RESET

:SET MAINT DATA,CLK,BREAK,EMAINTENANCE MODE
MOV
SMTDATA'CLK'MINT !BREAK,aTXCSR

:SET MODE ,# OF BITS,PARLITY SENSE,LLOAD SYNC REG
MOV
BIS

:POKE

BIC
BIS

#1SYMOD ' F IVE 'NOPAR'0,aPARCSR
#SYNSCH.BRXCSR
;SET SYNC SEARCH

CLK TO GET RECEIVER INTO SYNCROIZATION....

#CLK,aTXCSR
#CLK.QTXCSR

:POKE CLK DOWN
‘POKE CLK UP

#CLK,STXCSR
#CLK,BTXCSR

:POKE CLK DOWN
‘POKE CLK UP

;POKE CLK TO GET LOGIC INTO SYNCRONIZATION
BIC
BIS

MOV
MOV
MOV

RXDBUF ,R3

;SET UP FOR ERROR MESSAGE

#12,R0°
EXPECTED
#7,SHIFT
8 OF SHIFTS

MOV

JSR
TSTB
BMI
ERROR
MOV
CMP
BEO
ERROR

#154,8TMP1

‘DATA CHAR

#1124,3THPY

:DATA CHAR

MOV

PC,RPOKE
:SHIFT IN THIS (CHAR
@RXCSR
;RXDONE ?
.44
4
;RXDONE SHOULD BE SET
aRXDBUF ,R1
ACTUAL
RO,R1
:COMPARE EXPECTED VS. ACTUAL
.+
2
;RECEIVED DATA DID NOT MAT(CH
JEXPECTED DATA = CHECK MAINT DATA
:OR RECEIVER LOGIC
87 ,SHIFT
;4 OF SHIFTS

JSR

PC ,RPOKE

MOV
JNOW SHIFT

MOV

JSHIFT IN THIS CRAR

IN A SECOND CHARACTER WITHOUT READING RXDBUF

MOV
JSR

140012

MOV

167400

MOV
CMP
BEQ
ERROR

#7,SHIFT

;& OF SHIFTS

PC,RPOKE

JSHIFT IN THIS CHAR

#124,$THP1
#140000'12,R0

:DATA CHAR

:EXPECTED DATA PLUS
JRXERR £ OVRRUN

aRXDBUF ,R1
*ACTUAL
RO, R
;COMPARE EXP VS. ACT
.+
2
;SPECIFICALLY LOOK AT RXERR §

sEND OF PASS

sTYPE NAME OF

;OVRRUN BITS...THEY BOTH SHOULD BF

TEST

SET

C20UQ=C0

cZbuac . M1

MACY11 30A(1052)

20-AUG-80 09:19

09-SEP-80

10:57

:CHECK FOR EXIT TO ACT-11
;RESTART TEST

012324
012326

012332
012336
012336
012342
012346
012352
012354
012360
012362

2886 012366
2887
2888
2889
2890
2891
2892
2893

012372
012374
012400
012406

012414
012416

000004
004767

104401
015463
104413
104401
105767
001511
005767
001007
104401

016700

000000
000167
062767
062767
000241
006167

2894 012422 103410

2895
2896
2897
2898
2899
2900
2901
2902
29U3
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
gg}g

015314

167552
000010
000010

HALT
SSELECT
JMP
ADD
ADD

012570
015302
166600

166606

166574

016767
016767
004767
000441
016767
004767
016767
062767
016767
062767
016767
062767
016767
016767

2918
2919
gggg

012570
012572
012574

000001
006
001712

002

2922

012576

005067
005067
005067
005267

166600
166610
1665
166274

012576
012602
012606
012612

MOV

166546
166546

RUNIT:
2ERO:

166546

012452
012460
012466
012472
012474
012502
012506
012514
012522
012530
012536
012544
012552
012560

000207

SCOPE
JSR

TYPE
MEPASS
CONVRT
TYPE
1818
BEQ
TST
BNE
TYPE

036767
001762
004767
000167
012767

012566

LEOP:

000340

012424
012432
012434
012440
012444

2923
2924
2925
2926

SEQ 0057

;UPDATE PASS COUNT

2871

2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885

PAGE 61

INITIALIZE THE COMMON TAGS

cLe
ROL

B8CS

166540

166534

000034
000210
000001

166516

2%:

166500
166500
000002

166474
166474

166454
004262
166450
000002
166434
000002
166420
000002
166404
167152

004420

MOV
MoV
JSR
B8R
REPLAY: MOV
JSR
MOV
ADD
MoV
ADD
MOV
ADD
MOV
MOV

167222
166440
167210
166424
167176
166410
167164
166374

BIT
BEQ
JSR
JMP
MOV

RTS

OUTCRY: 1
LBYTE
RXCSR
cee:

CLR
CLR
(LR
INC

PC,CKSWR

,OUTCRY
DEVICE
MULTD
(CC
ACTREG
RUNIT
JACOW

:TYPE NAME OF TEST

;ARE YOU RUNNING MULTIPLE DEVICES ?
:NO,JUMP AROUND
ARE ANY DEVICES ACTIVE ?
:YES
:NO

ACTREG,RD

:DISPLAY ACTREG

;SELECT SOMETHING TO RUN @ ACTREG:
SWITCHES & HIT CONTINUE (PUT SWO0 =1)
LSTART :START OVER AGAIN...... YOU DESELECTED EVERYTHING
#10,BASEADD
sNEXT BLOCK (ADDRESSES)
#10,BASEIV
:NEXT BLOCK (VECTORS)
ROTADD

;UP DATE ROTATING POINTER

1S 1T THE LAST DEVICE

170 BE TESTED IN THIS PASS ?
ROTADD ,ACTREG
sTEST THIS DEVICE FOR ACTIVE STATUS
RUNIT
:1F NOT ACTIVE, TRY NEXT ADDRESS
PC,REPLAY
:CALCULATE NEW PARAMETERS
RESTRT ;YES IT WAS ACTIVE,TEST THIS DEVICE
#1,ROTADD
:0K!,NOW SET UP ROTATING
;POINTER FOR NEXT MULTIPLE PASS
KEEPADD,BASEADD ;RESTORE BASE ADDRESS
KEEPIV,BASELV
:RESTORE BASE INTERRUPT VECTORS
PC,REPLAY
*CALC NEW PARAMETERS
ccc
;JUMP AROUND REPLAY
BASEADD ,DUBASE ;SET UP FOR NEW ADDRESSES
PC,DUADDR
*CREATE NEW ADDRESSES
BASEIV,DURIV
;CREATE DURLV
#2,BASELV
BASEIV,DURIS
;CREATE DURIS
#2,BASELV
BASEIV,DUTIV
;CREATE DUTIV
#2,BASEIV
;CREATE DUTIS
BASEIV,DUTIS
DURIV,BASEIV
:RESTORE
PC

6.2

$TSTNM
$ERRPC
SERFLG
PASCNT

;CLEAR TEST NUMBER
;CLEAR LAST ERROR P(C
:CLEAR ERROR FLAG
*UPDATE PASS COUNT

MACY11 30A(1052)
20-AUG-80 09:19

F
~N

D
D
D D
D o

h D

[elalelelelalololale]

(20uQ-C0
czouac.m1

016767
016767
013701
001406
000005
000005
004711
000240
000240
000240
012767
004767
000167

10:57
PAGE 62
09-SEP-80
INITIALIZE THE COMMON TAGS

166270
166262

PASCNT,LIGHTS
PASCNT . $PASS

BEQ

RESTRT

MOV

00004¢

$ENDAD:

003376
000004

MOV
MOV

166524

RESTRT:

170416

RESET
RESET

ani ,ri

JSR

PC, (R1)

MOV
JSR
JMP

#T1S1142 ,SLPADR
PC,CKSWR
.BEGIN

NOP
NOP
NOP

SEQ 0058

;DISPLAY PASS COUNT

;PASS COUNT TO APT

;CHECK FOR ACT-11 OR DDP
;1F NO CONTINUE TESTING

;LOAD LAST ADDR

;CHECK SWITCH REGISTER ROUTINE.
;CHECKS TO ALLOW FOR <*G> TO ALLOW
;THE CHANGING OF LOCATION 176
012672
012676
012700
012706
012710
012714
012716
012724
012732
012740
012742
012746
012752
012756
012760
012762
012766

005737
001040
022767
001034

000042

017767
042767

166524
177600
000007

105777
100031

122767

001017
104401

005137
104401
104413
013010

104406
104410

000000
177777
000176
000
005037
000207
000000
000001
006
000176

000176

CKSWR:

166532

C1LY
out

BNE
1ST18
BPL
MOV

ouT
a$TKS
out
S TKB, . MSG

CMP

166530

000422
000414
000406

016070
013006
016100

IS8T
BNE

BIC

CNTLU:

2177600, .MSG

C(MPB
BNE

#7,.MSG
out

COM

FRDSW

TYPE

CONVRT
SWRE GL

016111

#SUREG, SWR

:SOF TWARE SWR PRESENT?
sNO=--LEAVE
:CHECK TTY READY
;NO-=-LEAVE

:GET CHARACTER
;STRIP JUNK
IS IT <G> ?

;NO

JACNTG

,MMSWR

INSTR, MMNEW
PARAM

0
177777

001
013006

0.1
CLR

a#RDSW

RDSM:

iUORD

.BYTE

6,2

:
SWREGL

002

SWREG

.BYTE
out:

RTS

SWREG

000005

;CHECK FOR FREEZE ON CURRENT DATA
004767
032777
001402
016716
00000¢

177646

001000
166050

166406

.SCOP1:

1%:

JSR

BIT
BEQ

MoV
RTI

PC,CKSWR

#5W09,35uR
1%
LOCK, (SP)

CZ0ua-Co
M1
C20uQC.

MACY 11

30A(1052)

20-AUG-80 09:1

09-SEP-80

10:57

TYPE ROUTINE

.SBTTL

PAGE 63

TYPE

SEQ 0059

ROUTINE

N ;'t'.t"t"'t".i"""""""'Q"Q'tlt".""'t""""t"""

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE

ROUTINE

;¢*NOTEY:
:*NOTE2:

;*NOTEZ:
1

WILL

INSERT A NUMBER OF

NULL

CHARACTERS AFTER A LINE

FEED.

S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE

CHARACTER TO FILL AFTER.

]

;*CALL:
:*1) USING A TRAP INSTRUCTION
+MESADR
X
TYPE
.'OR
v
TYPE
o
MESADR

:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

013042
013046
013050
013052

013054
013056

e e
[ Y

FRNONOSTNOOSOONOSNOO
SO
NSO

e
o
e
i
b
d
d
D
b
d
b

R e P

PORNININD

Nt et

b
b
e
i
ol i
e

= = O
OO NNNOOO
N NN BB BN NATNININ)

A
A

D e
d

Ll U

D
D
e

Ul U
L

) e

Ll A
W

) ol cnd

L Ll W

—
—

QOO0

)

[eYoY=Yelolelalelelelelelelelalelolalalalalels)

N N AN N N NN N

013102

105767
100002

000000
000430
010046
017600

122767

001011
132767
001405
010067
004767
000000
132767
001003

166411

122716

001430
122716
001006
005726

1%:

000002
000001

166456

000100

166447

000004
164674

BITB

61%:
62%:

105067

000755
004767

126726

000002

60%:
3%:

[0}
ADD

000011

4%:

000200

000130

000056
166254

001350
016746

166244

105366

000001

105367

000032
000072

002770
004767

BEQ
MOV
JSR

2s:

166425

104401

001523

1578
BPL
HALT
BR
MOV
MOV
(MPB
BNE

.WORD
BIT8B
BNE
MOVB

000040

112046

001005
005726
012600
062716
000002

$TYPE

5%:
6% :

14 ¥

BNE
TST

RTI
CMPB

BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
B8R
JSR
(MPB
BNE
[0}

De(B

BLT
JSR
DECB

$ PFLG
1%

;. 1S THERE A TERMINAL?
;:BR IF YES
.,HALT HERE

NO TERMINAL

RO,-(SP)

::GET ADDRESS OF ASCIZ STRING
s ;RUNNING IN APT MODE
62%
;:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ;:SPOOL MESSAGE TO APT
629
::NO,GO CHECK FOR CONSOLE
RO,61%
:;SETUP MESSAGE ADDRESS FOR APT
SC,SATYB
::SPOOL MESSAGE TO APT
: sMESSAGE ADDRESS
a2(sP) RO

#APTENV,SENV

#APTCSUP,SENVM

60%
(RO)+,=(SP)
4
(SP)+
(SP)+,RO
#2,(SP)
#HT, (SP)

s +APT CONSOLE SUPPRESSED
:2YES,SKIP TYPE OQUT

;;PUSH CHARACTER TO BE TYPED ONTO STA(CK
::BR IF IT ISN'T THE TERMINATOR
:;1F TERMINATOR POP IT OFF THE STACK
. sRESTORE RO
::ADJUST RETURN PC
; sRETURN
; ;BRANCH IF

<HT>

#CRLF, (SP)

; ;BRANCH IF NOT <(CRLF>

(SP)+

::POP

SCHARCNT

;s CLEAR CHARACTER COUNT
;.GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
:o1S 1T TIME FOR FILLER (HARS.?
1F NO GO GET NEXT CHAR.
;o
::GET # OF FILLER CHARS. NEEDED

PC,STYPEC
SFILLC,(SP)+

$NULL ,=(SP)
1(SP)

63
PC,STYPEC
$CHARCNT

;;TYPE

<CR><LF> EQUIV

A CR AND LF

;AND THE NULL

CHAR.

;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STA(K
;.60 TYPE A NULL
..D0 NOT COUNT AS A COUNT

MACY11 30A(1052)
20-AUG-80 09:19

cZouQ-~Co

czouac M

013226

TYPE

10:57

PAGE 64

ROUTINE

000770

SEQ 0060

;. LOOP

NN
S BN (NN

r,rNO0O
SO

;HORIZONTAL TAB PROCESSOR
112716
004767
132767
001372
005726
000724
105777
100375
116677
122766
001003
105067
000406
122766
001402

000040
000014
000007

8s:
000052

166170

000002
000015

166162
000002

000014

000012

9%:

$TYPEC:

000002

105227
000000

000297

MOVB

BlT18

#7 SCHARCNT
9%

JSR

BNE
TST
BR
TSTB
BPL
move

CMPB
BNE
CLRB
BR
1%:
(MPB
8EQ
INCB
$CHARCNT
: .WORD
$TYPEX: RTS

(SP)

PC.STYPEC
(SP)+

as1PS
$TYPEC
2(SP),a$TPB
#CR,2(SP)
1$

$CHARCNT
$STYPEX

#LF,2(SP)

$STYPEX
(PC)+

:REPLACE TAB WITH SPAC(E
;s TYPE A SPACE
; ;BRANCH JF NOT AT
;. TAB STOP

;;POP SPACE OFF STACK
::GET NEXT CHARACTER
;:WAIT UNTIL PRINTER IS READY
;.LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
:;BRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT
s

::1S CHARACTER A LINE FEED?
:;BRANCH IF YES
;;COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

;ASCII STRING INPUT ROUTINE

13342

017667
062716
105767

001036

000014

m—nm—ozmwo

i
i
b e
s O
O
-t e

714

0375

LINSTR:

1%:

166054

000200
000025

166032

013430
013432
013434
013436
013440

MOV
MOV
1878

# INBUF ,R&
:GET STARTING LOC OF
#7,R3
:MAX ¥ OF CHARS
?:txs
;TTY FLAG

ADD

2%:
166024

;PICK UP MESSAGE
: JUMP AROUND MESSAGE
:APT CONTROL
:YES NO TYPE

BPL
MOVB

837KB, (R4)

; TAKE CHAR

CMPB

(R4) ,#25

JIS IT <At

BICB

000015

166022

1578
BNE

a(sP), .MSG
#2,(SP)
SENV
INSTR2

MOV

JINSTY: TYPE
.MSG:
0

016124
000007
166060

OOONONES =00

o
O

2 —

¥
[V

b
b

000000
000002
166204

104401

13350

—

3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052

09-SEP-80

BEQ
(MPB
BEQ
1S718
BPL
MOVB

DEC
BNE
JINSTE: TYPE
MQM

INSTR2: RT]

#200, (R&)

LINSTA
(R&)+ 115

INSTRS

g:rps

JINSTY1

INBUF

;STRIP

:CHECK FOR (R

:TEST FLAG

837xB,as1PB

FOR RT]

:ECHO CHARACTER

:DID YOU TYPE TOO MANY (HARS ?

;RETRY

;CONVERT ASCII STRING TO OCTAL
013442
013444

000162

.PARAM: MOV
MOV

(SP),RS ;PUT CONTENTS OF SP INTO RS
(RS)+,LOLIM
:PUT LOW LIMIT INTO LOLIM

—-

013450
013454

S8
N WINMNOININ)
= =2 O
SN0 SsrO0NNO SN0

VIV VIV

b
D el
D
D el o
D
i
D
D i
D

D el

W AN U U U

)
D

W O

i
ed e

U U Ul A U A

-t -—d

U A

W WHNANNOININA NOPNIPONIPININ)
b = b b b b b D D 2 O
w N=2OWO NN
LN =200V
NO WV WIN—~-OY

N N N N N N RN NN

504

b B DO PO
OOO == O (=]
NIV ONOMNON
=) — b b b PINIPI N =2 N = =2 PR
O NN ~No
NENO S LB NNOWVIWNWNAWL wn
B Qb A PN = PIN) =2 OO
OO o
SN NONWNMNO
S
VNON NN N

MACY11 30A(1052)
20-AUG-80 09:19

c1bua-co
czouac M

001414

(O P W
¥
W
¥ X af ¥
[@XVeTe
R NTe YU P YV | 8]

PAGE 65

PARAM1:

016124
000015

1%:

000060

000067

(RS)+,HIL n

Move
Movse
MoV

(R5)+,LOBITS
;PUT MASK INTO LOBITS
(R5)+,ADRCNT
sPUT COUNT INTO ADRCNT
R5,(SP) ;RESTORE RETURN ADDR ON STACK FOR RTI

(mpP8
BEQ
(MPB
BLT
CMPB

15, (R4)
;CR ?
PARERR
;YOU TYPED CR TOO SOON !
(R4) ,#60
;LOW LIMIT ASCITI O

(LR
MOV

BGT

81(8
81S8
(MPB
BEQ

000060

000015

ASL
ASL
ASL
BR
PARERR: (MPB

BNE

120%:

000742

SEQ 0061

MoV

MOV

013006

TST
BNE
INSTER
BR

(R5)¢+,DEVADR

;PUT HIGH LIMIT INTO HILIM

;PUT STORE LOC INTO DEVADR

b)
# INBUF ,R&

PARERR

(R&L) ,#67

;HIGH LIMIT ASCII 7

PARERR

#60, (R4)
s CONVERT TO OCTAL
(RG)+,RS
;STORE AWAY [TS AN OK (HAR
#15,(R4)
;CR ?
LIMITS
;NOW CHECK FOR HIGH RLOW LIMIT CONDS
RS
;ALLOCATE ROOM FOR NEXT CHAR
RS
RS
1%
#15,(R&)
;CR?

120%

a#RDSW
PART]
,RETRY
PARAM1

;CK SWR USED

;TEST TO SEE IF NUMBER IS WITHIN LIMITS
020567
101365
020567
103762
136705
001357

LIMITS: CMP
BHI
CMP
BLO

000042

000032

BITB

000032

BNE

RS,HILIM
;THE # IS TOO HIGH
PARERR
RS,LOLIM
:THE # IS TOO LOW
PARERR

LOBITS,RS
PARERR

“TEST BY MASKINGTHE #

;STORE NUMBER AT SPECIFIEC ADDRESS

001372
000002
000000
000000
000000
060000
013641

l
ol
D

L AN LN AN AN
L

vl el e
—

10:57

TYPE ROUTINE

000015

016704
010524
062705
105367

09-SEP-80

000022

1%:

000002
000013

MOV
MoV
ADD

DEVADR,R4
RS, (RL)+
#2 RS

BNE

DECB

PART]:

RTI

ADRCNT

JGET STARTING ADDR OF
:STORE AT THIS ADDR

:HOW MANY TIMES + 2 ?

LOLIM:
0
HILIM:
0
DEVADR: 0
LOBITS: 0
ADRCNT=LOBITS#1

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

016667

000004

165256

.SAV05: MOV

4(SP),SAVPC

;SAVE RO-RS

C20ua-Co
cZouac . M1

3151
3152
3153
3154
3155
3156
3157
%}gg

MACY11 30A(1052)
20-AUG-80 09:19

013650
013654
013660
013664
013670
013674
013700

010567
010467
010367
010267
010167
010067
000002

165620
165612
165604
165576
165570
165562

09-SEP-80
10:57 PAGE 66
TYPE ROUTINE
Sv0S:

%12?
3162
3163
3164
3165
3166
3167
%}23

013702
013706
013712
013716
013722
013726
013732

016700
016701
016702
016703
016704
016705
000002

165554
165552
165550
165546
165544
165542

.RESOS: MOV
MOV
MoV
MOV
MOV
MOV
RTI

3178
3179
3180
3181
3182
3183
3184

013760
013764

104401
015414
017601
062716
012167
112167
112167
013167

013770
013774
014000
014004

016704
116705
012700
010403

000114
000106
016166

.CONVR:

3186
3187
3188
3189
3190
3191
3192

014012
014016
014020
014022
0140246
014026
014030

062703
110320
006204
006204
006204
005305
001365

000260

3194

014036

114023

000000
000002
000130
000126

000123
000120

3185 014006 042703 177770

3193 014032

3199

3200
3201
3202
3203
32064

3205
3206

$REGO,RO
$REG1,R1
$REG2,R2
$REG3,R3
$REG4L
, R4
$REGS,RS

;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT 70O TELEPRINTER
013734
013736
013740
013744
013750
013754

3195
3196
3197
3198

RS,$REGS
R4 ,$REG4
R3,$REG3
R2,$REG2
R1,S$REGI
RO,$REGO

;RESTORE RO-RS

%};2
3172
3173
3174
3175
3176
3177

MOV
MOV
MOV
MOV
MOV
MOV
RTI

SEQ 0062

012703

016230

014040
014044
014046
014052

105367
001374
105767
001405

000042

014060
014064
014066
014070
014072

105367
001373
105013
104401
016230

000023

014054

014074
014100

112723

005367
001325

1$:

2%:
3%:

43:

000035

000240

5%:
6$:

000004

TYPE
MCRLF
MOV
ADD
MOV
MOVB
MOV8
MOV

:CR LF
a(sP) R
:PICK UP DATA POINTER
#2,(SP) ;SET UP SP FOR RTI
(R1)+,WRDCNT
;PICK UP # OF WORDS FROM TABLE
(R1)+,CHRCNT
;PICK UP # OF CHARS FROM TABLE

(R1)+,SPACNT
8(R1)¢,BINWRD

;P1CK UP # OF SPACES FROM TABLE
;PICK UP ADDRESS OF
MSG
;FROM TABLE
; SAVE
:SAVE
:STARTING ADDRESS OF TEMP BLOCK
: SAVE

MOV
MOVB
MOv
MOV

BINWRD,R4
CHRCNT,RS
#TEMP,RO
R4 ,R3

ADD
MOVB
ASR
ASR
ASR
DEC
BNE

#260,R3 ;CONVERT TO ASCII
R3, (RO)+
;STORE AWAY
R4
;SHIFT FOR NEXT #
R4
:DITTO
R4
;01770
RS
:DEC CHAR COUNT
18
00 1T AGAIN ?

BIC

MoV

MOV8

£$197770,R3

#MDATA,RS

=(R0O),(R3)+

:CLR OUT UPPER BITS .. SAVE CHAR

;STARTING ADDRESS OF MDATA BLOCK
;REVERSE THE ORDER OF NUMBERS

DECB
BNE
TSTB
BEQ

CHRCNT
‘8
SPACNT
6%

;DEC CHAR COUNT
:00 IT AGAIN ?
;HOW MANY SPACES ?
-TYPE # IF BR =0

DECB
BNE
CLRB
TYPE
MDATA

SPACNT
5%
(R3)

:DEC # OF SPACE COUNT
:00 IT AGAIN ?
;INSERT *'0'* FOR TTY OUTPUT ROUTINE

MOVB

DEC
BNE

2240, (R3}+

J"SPACE'' IN ASCII

;THIS MESSAGE
WRDCNT ;HOW MANY #°'S ?
1%
;D0 THIS ROUTINE AGAIN IF NOT EQUAL TO O

CZouQ-co
czouQc ..M

3207
3208
3209
3210
3211
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
325¢

3253
3254
3255
3256
3257
3258
3259
3260
3261
3262

MACY11

30A(1852)

20-AUG-80 09:1

014102
014104
0146106
0146110

09-SEP-80

10:57

TYPE ROUTINE

000002
000000
000000
014107
000000

PAGE 67

RTI

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

SEQ 0063

sRETURN TO PROGRAM

:COMPARE THE FIRST CHARACTER IN THE TELETYPE I[NPUT
:BUFFER TO THE CHARACTERS ''N'' AND "Y',
;IF THE CHARACTER IS ''N'' CLEAR THE FLAG
;IF THE CHARACTER IS ''Y'' SET THE FLAG
014112
014116
014124
014126
0146130
0146132
014140
014142
014146
014152
014154
014156

017605

122767

001002

000000
000116

002000

105015

000406
122767
001005
112715

062716
000002

000131

001764

177777
000002

LSETFLG:MOV
(MPB
SNE
CLRB
BR

1%:

000755

(RS)

SIS IT N ?

,000

SIS 1T 'yt 2

ADD

#-1,(RS)
#2,(SP)

;377

INSTER

sRETRY

Move

RTI

3%:

104407

#'N, INBUF
1%

#'Y, INBUF

CMPB
BNE

2%:

a(SP),RS

.SETFLG
BR
ERROR HANDLER ROUTINE

.SBTTL

""ttt'ttttlttt't"""t""""tt'tfitt"tt'tt.'ttt""'ti't't"tt

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
;*AND GO TO SAVIT ON ERROR

s*THE

SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR

;eSW15=1
:*SW13=1
;*SW10=1
2 *CW09=1
JeCALL
ERROR
.

014160
014160
014164
014166
014174
014202
014204
014210
014214

014220
014226
014234
014242
014244
014250
014254
014254
014262
014264

105267

001775
016777
032777
001402
104401

005267
011667
162767
117767
032777
001004
004767
104401
122767
001007
116767

$ERROR:
7%:

165217
165210
002000

18:

165176
165176

INC

SERTTL

TYPE

MOV

BIT

BNE
JSR

000072
001523
000001

165264

165124

000004

20$:

: ;ERROR= EMT AND N=ERROR

8IT
BEQ

SuB
MOVB

020000

SERFLG
7%
STSTNM,QDISPLAY
#B1T10,35WR
1%

INCB
BEQ
MOV

001516

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

TYPE

(MPB
BNE
MOov8

L $BELL

(5P) ,SERRP(
#2 ,$ERRPC

SSERRPC,SITEMB
#8IT13,3SWR
2)%
PC,SAVIT

+SCRLF

SQPTENV.$ENV

SITEMB,21S

ITEM NUMBER

::SET THE ERROR FLAG
::DON'T LET THE FLAG GO TO ZERO
::DISPLAY TEST NUMBER AND ERROR FLAG
;:BELL ON ERROR?
;:NO - SKIP
:RING BELL
:: COUNT THE NUMBER OF ERRORS
:;GET ADDRESS OF ERROR INSTRUCTION

:;STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT [F SET
;. SKIP TYPEOUTS
::60 TO USER ERROR ROUTINE
:;RUNNING !N APT MODE
*oNO,SKIP APT ERROR REPORT
:.SET ITEM NUMBER AS ERROR NUMBER

165132

001000

165120

165062
165162

ol cnd cud

1651564

000002
010067
010167
010267
010367
010467
010567
016767

218:
22$:
2%:

62
60
56
54
52
50
04

NSNS
[« 3V IV IV IV 1V 1V |

014372

001402
016716

09-SEP-80 10:57 PAGE 68
ERROR HANDLER ROUTINE

163520

—

014340

004767
00

oooororO
~

pooruerSunr-Quur-QuurSy Qour Qunr- Quur Guur-Gur-Guur-Guur PP

MACY11 30A(1052)
20-AUG-80 09:19

[elolelelelelelelelelolele]

CI0UQ-Co
czouac M

5%:
SAVIT:

164544

.SBTTL

JSR
.BYTE
.BYTE
BR
IST
BPL
HALT
BIT
BEQ

PC,ATYL

BEQ

5%
SESCAPE, (SP)

MOV
TST

MOV
RTI
MoV
MOV
MoV
MOV
MOV
MOV
Mov

0
0
229

SEQ 0064

; sREPORT FATAL ERROR TO APT
;;APT ERROR LOOP

;sHALT ON ERROR
::SKIP IF CONTINUE

l21T09.SSHR

;:LOOP ON ERROR SWITCH SET?

asSWR

SLPERR, (SP)
SESCAPE

RO,HLDO
R1,HLDY
R2,HLD?
R3,HLD3

;s sHALT ON ERROR!
;:BR JF NO

::FUDGE
:;CHECK
:sBR IF
;:FUDGE

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE

:;RETURN

R4, HLD&
RS,HLDS

$TSTNM, HLD6

ERROR MESSAGE TYPEOUT ROUTINE

;;tti'Q.ttttttt*"""i".'t"'it'"l'tt"t't'tii'tt"'t'ii't""

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
014400
014400
014404
014406
014410
014414

b
b
cud
el

XV ¥ JV T N

el
el
—

[ 2 T

(VT TV TV T [TV TV 1V )
N
U U U Ul W AN AN

3309

104401
010046

001523

S$SERRTYP:

TYPE
MoV

005000
153700
001004

001414

CLR
8158
BNE

014416

016746

164774

MoV

014422
014424
014426
014430
014432
014434
014436
014442

104402

104401
000000
104401
012067
001404
104401
000000
106401

$ERRPC,-(SP)

TYPOC

000426
005300
006300
006300

012067
001404

. SCRLF

:0,-(5?)
0
a#SITEMB,RO

1%:

001652
000004

001523
000004

001523

2s:

3s:
4%:

BR
DEC

ASL
ASL
ASL
ADD
MOV

::"'CARRIAGE RETURN'' & ''LINE FEED''
; :SAVE RO
s:PICKUP THE ITEM INDEX

1F ITEM NUMBER IS ZERO, JUST
;s
;:TYPE THE PC OF THE ERROR
:;SAVE SERRPC FOR TYPEOUT
: ;ERROR ADDRESS
::60 TYPE--OCTAL ASCII(ALL DIGITS)
::GET OUT
;sADJUST THE INDEX SO THAT [T WILL
WORK FOR THE ERROR TABLE
N

#SERRTB, RO

:;FORM TABLE POINTER

BEQ

.WORD

::SKIP TYPEQOUT IF NO POINTER
::TYPE THE ''ERROR MESSAGE''

BEQ

:"'ERROR MESSAGE'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & ''LINE FEED"
::PICKUP '"DATA HEADER'' POINTER
::SKIP TYPEOUT IF 0

0
. SCRLF

::"DATA HEADER'' POINTER GOES HERE
::"'CARRIAGE RETURN'' & ''LINE FEED"

TYPE

TYPE
MOV

TYPE
.WORD
TYPE

(RO)+,2%
. SCRLF

(RO)+,48

::PICKUP "‘ERROR MESSAGE'® POINTER

::TYPE THE 'DATA HEADER'

C20UQ-C0
cZbuac .M11

MACY11 30A(1052)
20-AUG-80 09:19

3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329

014476
014500
014502
014504
014510
014512
014512
014514
014516
014520
014522

011000
001004
012600
104401
000207

3331
3332
§§§2

014530

020040
014534

3330

014526

013046
104402
005710
001770
104401

000771

N §
09-SEP-80
10:57 PAGE 69
ERROR MESSAGE TYPEOUT ROUTINE
1 ¥
6%:

001523

7%:

014530

000

8s:
.SBTTL

SEQ 0065

MOV
BNE
MOV
TYPE
RTS

(RO),RO
7%
(SP)+,RO
,SCRLF
PC

::PICKUP "‘DATA TABLE'' POINTER
;:60 TYPE THE DATA
: :RESTORE RO
;:"'CARRIAGE RETURN'' & ''LINE FEED''
; :RETURN

MOV
TYPOC
TST
BEQ
TYPE

3(RO)+,=(SP)

::SAVE @8(R0)+ FOR TYPEOUT
::60 TYPE=-=0CTAL ASCII(ALL DIGITS)
::1S THERE ANOTHER NUMBER?
::BR IF NO
;:TYPE TWO(2) SPACES

(RO)
6%
8s

::LOOP

ASCIZ 7/
::TWO(2) SPACES
.EVEN
BINARY TO OCTAL (ASCII) AND TYPE

3335
3336
3337

;;tt'ittttttttt"'t"t'ttttt"tttttt'ttfit'tt'ttttttttttttttttt'tt
;«THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
;*OCTAL (ASCII) NUMBER AND TYPE [T,

3340
3341
3342
3343

sCALL:
i
MOV
ie
TYPOS
o
.BYTE
‘w
.BYTE

ggzg

g%gg

:-ngpos---eurea HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

3344

NUM,=(SP)

N
TM

::1=TYPE LEADING ZEROS

:;0=SUPPRESS LEADING ZEROS

3347
3348
3349
3350

; :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
::M=1 0RO

;*$TYPON--=-=-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
;*CALL:
it
MOV
NUM, = (SP)
::NUMBER TO BE TYPED

gg;;

TYPON

;:CALL FOR TYPEOUT

.-t

3353
3354
3355

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
;eCALL:
I
MOV
NUM, - (SP)
; :NUMBER TO BE TYPED

gggg

3358
3359
3360

3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374

014534
014540
014546

014552
014556
014560
014566
014574
014602
014604
014606
014610
014614
014616
014622
014626
014632

017646
116667
112667

062716
000406
112767
112767
112767
010346
010446
010546
116704
005404
062704
110467
116704
016605

000000
000001
000207

000211

000001
000006
000005

000171
000165
000154

000002

000145
000006
000732
000125
000012

TYPOC

$TYPOS: MOV
MOVB
MOVB

ADD
BR
$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV

::CALL FOR TYPEOUT

8(SP),-(SP)
1(SP),S0FILL
(SP)+,S0MODE+1

#2,(SP)
$TYPON
#1,80FILL
#6, SOMODE +1
#5,80CNT
R3,-(SP)
R4 ,-(SP)
RS,-(SP)
$OMODE +1,R4
R4
#6,R4
R4, $OMODE
$OFILL R4
12(SP),RS

;:PICKUP THE MODE
::LOAD 2ERO FILL SWiTCH
:;NUMBER OF DIGITS TO TYPE

:sADJUST RETURN ADDRESS
;:SET THE
;:SET FOR
;:SET THE
::SAVE R3
: :SAVE R4
::SAVE RS
;:GET THE

2ERO FILL SWITCH
SIX(6) DIGITS
ITERATION COUNT

NUMBFR OF DIGITS TO TYPE

::SUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE
::GET THE 2ERO FILL SWITCH
;:PICKUP THE INPUT NUMRER

C20uQ-C0

czouac.m

MACY11

20-AUG-80 09:19
005003
006105
000404
006105
006105
006105
010503
006103
105367

100016

042703
001002
005704
001403
005204
052703
052703
110367
104401
105367

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
014760

W =200
~NOW
OV

AIRINIRIRIAIN
— — — —

RERPRRLRRRLRR

3414

30A(1052)

8 6

09-SeP-80 10:57 PAGE 70
BINARY TO OCTAL (ASCII) AND TYPE
1%:

2%:

3$:

000076
177770

000060
000040
000040

5%:

014754
000032

7%:

6%:

000002

000004

ROL
ROL
ROL
MOV
ROL
DECB

BPL
BIC
BNE
TST
BEQ
INC
BIS
8IS

MOVB
TYPE

DECB
BGT
BLY
INC
B8R
MOV
Mov
MOV
MOV
MOV
RTI

R3
RS
1%
RS

RS
RS
RS,R3
R3

$OMODE
7%
#177770,R3

48
R4
5%

R&
#'0,R3
LR}
#

R3,8$
.89

s CLEAR THE OUTPUT WORD
:;ROTATE MSB INTO ‘''C"’
;:G0 DO MSB
:;FORM THIS DIGIT

;:GET LSB OF THIS DIGIY
:;TYPE THIS DIGIT?

::BR IF NO
J:GET RID OF JUNK
::;TEST FOR O
:sSUPFRESS THIS 07
;:BR JF YES
::DON'T SUPPRESS ANYMORE 0°'S
;sMAKE THIS DIGIT ASCII
;:MAKE ASCII IF NOT ALREADY

*:SAVE FOR TYPING
::60 TYPE

THIS DIGIT

$SOCNT
2%

:;COUNT BY 1
::BR IF MORE T0 DO

2%
(SP)+,RS

::60 DO THE LAST DIGIT
;sRESTORE RS

(SP)+,R3
2(SP),4(SP)

::RESTORE R3
;:SET THE STACK FOR RETURNING

6%
R4

(SP)+ R4

(SP)+,(SP)

::BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
::RESTORE R4

:;RETURN

::STORAGE FOR ASCII DIGITY
0
.BYTE
.BYTE
0
;:TERMINATOR FOR TYPE ROUTINE
:;0CTAL DIGIT COUNTER
0
.BYTE
$OCNT:
;;1ERO FILL SWITCH
0
$OFILL: .BYTE
: WORD
$OMODE
O
. ;NUMBER OF DIGITS TO TYPt
;ENTER HERE ON POWER FAILURE
8%:

000000

0146762
014762
014764
014766
014770
014772

014774
0146776
015002
015006
015014
015016

CLR
ROL
BR

SEQ 0066

$PWRDN:
PFAIL: Mov
MOV
MOV

R1,-(SP)
R2,=(SP)

MOV
MOV
MOV

R4 ,-(SP)
RS,=(SP)
24 ,-(SP)

MOV

015020

MOV
MOV
HALT

163010

RO,-(SP)

; SAVE RO-RS5 ON PROCESSOR STA(CK

R3,-(SP)

SP,SAVSP
#RESTART 24
.

:SAVE STACK POINTER
;SET UP FOR POWER UP TRAP
;HALT ON POWER DOWN NORMAL

;PROCESSOR WILL TRAP HERE WHEN POWER S RESTORED
164072

RESTAR:

MOV

SAVSP,SP

MOV

(SP)+,R4

MoV

(SP)+,RS

;RESTORE STACK POINTER

;RESTORE RO-RS

CZouQ-C0
czouac.m1

MACY11

20-AUG-80 09:19

014762
000340

5067
005267

001104
001100

706

MOV
MoV
MoV
Mov
Mov
MTPS
Mov

162756

001100

CLR
INC
BNE
CONVRT

SEQ 0067

(SP)+,R3Y
(SP)+,R?
(SP)+,R1
(SP)+,RO

;SET UP FOR POWER FAILURE

#.PFAIL,24
#340
#STACK,SP
TEMP
TEMP
A

PFTAB

TYPE
MPFAIL
CLR

052

~
~B

o [=lelelelelelele)
Sy VP
)
o (W IV Y
O
o - =2 PO NN
(=

~ OMNIMNLN)
— = O N
(=] Y V¥ J L NIV [V 1,8

052103

NS OMNINNIOOWMO
W

PFTAB:

o
o

Nbowbgombgowbowowboowbo-aowbo-abowaONOObOb oo

el
S e
e
D
D
D
d e
D el
D
D e
D e
S
D e
D e
D
el
s
D el
D
D
D
D
D i el
—

ol ol cd ol

WA
VA WA WA WA AL A
B B 8~ B
N A M AN
-t
= O~
ONN
S

(54

67
27

015074

C
6
10:57 PAGE TM
09-SEP-80
BINARY TO OCTAL (ASCII) AND TYPE

012603

3443

A
A AT A WA AR AT DAAA VAV AT W WAWIA WA VTV VLA AT N
AN N
N WD RV AU RO NI RO PV PO RO NIND b b b o b e b cd b b b acd ad b b o
o~
NN
= —

015030
015032
015034
015036
015040
015046
015052

[elelalolalelalelalalololelolelelalalalilelalalaleladelalalalelelelelelelalolalalalw
o)

3431
36432
3433
3434
3435
3436
3437

w
~

30A(1052)

062132
020060
020061
040440

MTITLE:

020103
000
052123
020072
051503
026504

CLR
JMP
1
.BYTE

RETURN

SERFLG
SERRPC
dRETURN

6.2

.ASCIZ

<15><12><12>/C20UQ=-C0 DUVTT

MVECTO:

.ASCIZ

<15><12>/VEC ADD=/

:
MREGAD

LASCIZ

<15><12>/1ST DEV:

046125
020126
047440
000055
052123
020072
051503
051104

MMULT:

.ASCIZ

<15><12>/MULT DEV ?

MLASTD:

LASCI2

<15><12>/LAST

041511

DEVICE:

CASCIZ

/=DEVICE

042514

MCOW:

LASCIZ

<15><12>/SELECT

:
MRANGE

LASCI2

<15><12>/0VFLO:RETYPE

MQM:
MCRLF:
MPFAIL:

/
.

REC

DEV:

TAPE

A /<15><12>

CSR ADD-/

(Y OR N)=/

REC

CSR ADDR-/

/
TO RUN @ACTREG/

LAST DEV RXCSR ADDS~/

/PFAIL,

RESTART AT

TEST

IN PROGRESS/

020054

200000

oo
&0
OOWVINSES
oo NNOONION
— B OV
2O =8~

15462

052123
000
061517
020040
020077
020122
043117

020103
020123
052103
030440
024462

051511
054040
053523

042440

g
047440
000055
005015
000040
051440

6
SEQ 0068

AND TYPE

MEPASS:

LASCIZ

<15><12>/END OF

MR:
MTSTPC:

LASCIZ
LASCIZ

<15><12>/R/
<15><12>/TEST PC=/

MLOCK:

ASCIZ

<15><12>/L0CK ON

MSYNC:

.ASCIZ

<15><12>/# OF

MWIREG:

LASCIZ

<15><12>/1S SEC

MWIRES:

LASCIZ

<15><12>/1S SEC REC

MWIRES:

LASCIZ

<15><12>/1S OPT CLR ENABLE

MEXTJ:

LASCIZ

<15><12><12>/H315

037

057040

020107

MCNTG:

LASCIZ

A5<12>/ *6

051127

020075

MMSWR:

LASCIZ

/ SuWR=

PASS TAPE

TEST?

SYNC

(Y OR N)=/

CHARS SELECTED

XMIT

SWITCH ESS=2

SWITCH ESS5-3

(

IN?

OR 2)=/

(Y OR N)=/

(V|

044440
020131
026451
044412
020103
053523
062440
044440
020131
026451
044412
020124
047105
051440
020110
020061
054450
024516
044012
047503
047524
037440
020122

[= B

[=]

b
el
d el
)
d
e
i
b and
-l

16014

Vit 2 2 O AN
2 N
O =N
ONNOONO
= =ON=2NNO = =20~
VN =N NO NO N = RN O
O N —

024040
020122

oooooooooocgccoooooooooo

gurwu

[aX 2
g V. IV IV ]
N OO~

At AN A U

VAN ANV

M N

NN
N NN Wl Ul AN Uk A Lol L A U AN U AN N
AN AN
WA VAN VIRV (U LV TV IV NV TV VW AN AV AV IV AV, IV TV IV, IV, )
=
b e omd d ed o ad d
(VI
LS 1,81, 8]POPVIPIPINININD
WIN = OO0
NO NS (NN =
W —-=O0oo~ OV

NNO VNS NNIN = =20

470

SN2 2ONVNVOLS O =
O
NNWES
=00

015424

10:57
PAGE 72
BINARY TO OCTAL (ASCIL)

09-SEP-80

5¢)

[=leoleelolalels]
(U I o
RV IV IV
PV,]
OOMN)
=200
AN
=
NN
ON—
POV
O
=SSO0
WLOWLWOW

3487

(

——
VO

20-AUG-80

oSV
NOMNIN)
—
NN
O
NI
NSO

MACY11

(IbuQ-Co
czouac M

[elelolale BN O
e le)

046

024516

SWITCH ES5-1

IN?

CONNECTOR ON ?(Y OR N)-/

(Y OR N)=/

CZouQ-Co
|czouoc.n11

3543
3544
3545
3546
3547

016106
016111
016116

3550

016124

%223
3551
3552
3553
3554
3555
%ggg

MACY11 30A(1052)
20-AUG-80 09:19

016166

016230

020040
040
036527
016124

000
020040
020040

E
6
09-SEP-80
10:57 PAGE 73
BINARY TO OCTAL (ASCII) AND TYPE

042516
000

000000

MMNEW:
.EVEN

INBUF:

016166
000000
016230
000000
016272

.=, 440
TEMP:
.=.+40
MDATA:
=, +40
"SBTTL

.ASCIZ

NEW=

SEQ 0069

;:BUFFERS FOR INPUT=-QUTPUT
0

0
SCOPE HANDLER ROUTINE

3558
3559

;:"'tt'tt'tttQt"tt"tt"i't'tttttfiQttttititttttt"tttt'tt'tttt'
;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

3562
3563
3564
3565
3566
3567
3568
3569

;«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;eSW14=1
LOOP ON TEST
LeSW11=1
INHIBI
ITERATIONS
s *SW09=1
LOOP ON ERROR
;*SW08=1
LOOP ON TEST IN SWR<7:0>
~eCALL
i*
SCOPE
::SCOPE=10T

3560
3561

gg;g

:*AND LOAD THE TEST NUMBER(STSTNM)
;*AND LOAD THE ERROR FLAG (SERFLG)

016272

$SCOPE :

%g;g

:SCOPE LOOP AND INTERATION HANDLER

3674
355

016272
016272

004767

174374

3577
gg;g

016302
016306

022716
001422

003376

3576

016276

005067

.SCOPE:

163114

016310
016316
016320
016326
016330
016334

032777
001412
016767
000406
105777
100123

040000

163122

163056

163060

3587

016344

032777

040000

3588

3589

016336

016352

017766

001114

016354

000416

3593

016356
016362

013746
012737

000004
016402

3595

016374

012637

000004

3597
3598

016402
016404

022626
012637

3594 016370 005737

3506 016400 000463

PC,CKSWR

CMP
BEQ

#TST1+2,(SP)
$XTSTR

177776

163066

1%:

$SERRP(

;CLEAR LAST ERROR P(

;1S SCOPE AT BEGINING OF TEST 1?

:YES NO LOOP.

BIT
BEQ
MOV
BR
TST8
8PL

#BIT14,35WR
1%
$TSTNM,SLPADR
13
FI3ES
$OVER

:THIS CODE 1S FOR TESTING FOR BIT 14
;ON LSI WHICH SYSMAC CANNOT HANDLE

BIT

#B1T14,35WR

;;LOOP ON PRESENT TEST?

MOV

BNE

as$1kB,-2(SP)

$SOVER

:KEYBOARD DONE?
:BR If NO

;CLEAR DONE BIT

;YES IF SWié4=1

;MARNNSTART OF CODE FOR THE XOR TESTERNNNNN

3590

3591
3592

7T1ST:

163110

163104

JSR

CLR

3580
3581
3582
3583
3584
3585

3586

INTO THE DISPLAY REG.(DISPI.AY<7:0>)
INTO DISPLAY<15:08>

$XTSTR: BR

177060

000004

:;1F RUNNING ON THE ''XOR'' TESTER CHANGE

MOV
MOV

SFPERRVEC,-(SP)
#5% , QNERRVEC

::SET FOR TIMEOQUT

MOV

(SP)+,3#ERRVEC

CMP
MOV

ar1$7060

$SVLAD

(SP)+,(SP)¢
(SP)+,3#ERRVEC

;:THIS INSTRUCTION TO A "NOP'' (NOP=240)
;:SAVE THE CONTENTS OF THE ERROR VECTOR

S TIME OUT ON XOR?

;:RESTORE THE ERROR VECTOR

::60 TO THE NEXT TEST

;;CLEAR THE STACK AFTER A TIME OUT
;;RESTORE THE ERROR VECTOR

CZ0UQ-C0
CZ0uQC.M "

MACY11 30A(1952)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 74
SCOPE HANDLER ROUTINE

000423
032777
001404
127767
001465
105767
001421
126767
101015
032777
001404
016767
000446
105067
005067
000415
032777
001011
005767
001406
005267
026767

7%
::LO0P ON THE PRESENT TEST
TESTERANAAA
XOR
THE
OF
FOR
CODE
6% :; #NNRREND
#81708,3SWR
T
BI
::LOOP ON SPEC. TEST?
;;BR IF NO
Q
2%
BE
SWR<7:0>
TSTNM
SSWR,S
(MPB
::ON THE RIGHT TEST?
SOVER
BEQ
J:BR IF YES
: :HAS AN ERROR OCCURRED?
1578
SERFLG
2s:
3%
BEQ
::BR IF NO
::MAX. ERRORS FOR THIS TEST OCCURRED?
gERHAX,iERFLG
(MPB
BR

000400

163020

163012

162752

162745
162751

162735

001000

162762

162724

162720

004000

7%:
4%

162707
163012
162730

163016
162660
162762

000001

BHI
BIT
BEQ
MOv
BR
CLRB
CLR
BR

BIT

BNE
TST

8EQ

162652
162642
162742
162750

016572
016576
016604
016612
016616
016620
016622
016624

SEG 0070

1%:

$SVLAD:

INC
CMP
BGE
MOV
MOV

INCB
MovB
MoV
MOV

CLR

$OVER:
4%
BRW:
BRX:
SMXCNT:
.SBTTL

000005

Move
Mov
MOV
RTI

#B1709,aSWR
3

SLPERR,SLPADR
$OVER
SERFLG
$TIMES
1%
#B1T11,aSWR

;:;BR IF NO

;:LOOP ON ERROR?

;:BR IF NO

;:SET LOOP ADDRESS TO LAST SCOPE
.. ZERO THE ERROR FLAG

;;CLEAR THE NUMBER OF JTERATIONS TO MAKE
;sESCAPE TO THE NEXT TEST

;s INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
:

*:INCREMENT ITERATION COUNT
;;CHECK THE NUMBER OF ITERATIONS MADE
;;BR IF MORE ITERATION REQUIRED
#1,81ONT
;;REINITIALIZE THE ITERATION COUNTER
SMXCNT,STIMES
;s SET NUMBER OF ITERATIONS TO DO
$TSTNM
;s COUNT TEST NUMBERS
$STSTNM, STESTN
;;SET TEST NUMBER IN APT MAILBOX
(SP) ,SLPADR
:;SAVE SCOPE LOOP ADDRESS
(SP) ,SLPERR
; ;SAVE ERROR LOOP ADDRESS
$ESCAPE
;sCLEAR THE ESCAPE FROM ERROR ADDRESS
#1,9ERMAX
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
aDISPLAY
$STSTNM,
::DISPLAY TEST NUMBER
(SP)
SLPADR,
:;FUDGE RETURN ADDRESS

$ICNT
$TIMES,SICNT
$OVER

1407
432
5
TRAP DECODER

;sMAX. NUMBER OF

ITERATIONS

t"t'.tt"it"""'i'i"'i"""ttt'i'it S22 S2X2ERA2RARARRRRE AR

'TH]S ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:'GO TO THAT ROUTINE.

010046
016600
005740

000002

006300
016000
000200

016662

111000

$TRAP:

Mov
MOV
TST
move
ASL
MOV
RTS

RO,-(SP)

2(SP) RO
-(R0O)
(RO) ,RO
R0

)
,RO
$TRPAD(RO
RO

;s SAVE RO
;:GET TRAP ADDRESS
; :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;:INDEX TO TABLE
::60 TO ROUTINE

;sTHIS IS USE TO HANDLE THE "'GETPRI'' MACRO

CI0UQ-C0
CZbuacC.M11

MACY11

30A(1052)

011646
016666
000002

000004

20-AUG-80 09:19

09-SEP-80

10:57

TRAP DECODER

000002

AP2:

PAGE 75

MOV
MOV

(SP),=-(SP)
4(SP),2(SP)

RTI

.SBTTL

SEQ 0071
;;MOVE THE PC DOWN
;;MOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
;*BY THE "'TRAP'' INSTRUCTION.
ROUT INE

$TRPAD: .WORD

016662
016664
016663
016670
016672

$STYPE

STYPON

$TRAP?

;s CALL=TYPE

s CALL=TYPOC
;s CALL=TYPOS
;;CALL=TYPON

s CALL=SCOP
;s CALL=INSTR
.INSTER ;s CALL=INSTER
.PARAM
;s CALL=PARAM
.SAV0S
s s CALL=SAVOS

016674
016676
016700
016702
016704
016706
016710
016712

.SCOP1
.INSTR

.RESOS

;;CALL=RESOS

.CONVRT ;:CALL=CONVRT
LSETFLG ;;CALL=SETFLG

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST (CALL)

TRAP+5(104405)
TRAP+6(104406)
TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

:'Qttti't't"tt"i"'t"'Q""'tt"tt'i"it'tt"ttttt"tttttt

JUTILITIES

:tlttfi!Qtt'.tQ't'i"t""""i"'t"'tIittttt.t'tli'tt‘

016714
016720
016724
016730
016734
016740
016746
016754
016762

006367
006367
006367
006367
006367
016767
162767
042767
000207
000240
000200

000044
000040
000034
000030
000024
000020
000001
000037

016767
005267
016767
005267
016767
016767
005267
016767
016767
005267
016767

000126
000120
000114
000106
000102
000074
000066
000062
000054
000046
000042

sTHIS UTILITY

DULEV:

ASL

DUPRT:
LESS1:

DUPRT

ASL
ASL
ASL
ASL

DUPRT
DUPRT
DUPRT
DUPRT

SUB

#1,LESST

MOV

000020
000012
000004

CALCULATES PRIORITY LEVEL

;SHIFT LEFT

DUPRT,LESS?

;MOVE

BIC

#3%,LESST

PRS
PR&

SLEVEL TO ALLOW INTERRUPTS

RTS

;NEW DU ADDRESSES

OUBASE ,RXCSR
DUBASE
DUBASE ,HRXCSR

JXXX0

162704

DUADDR: MOV
INC
MOV

162674
162672

MOV
MOV

, RXDBUF
DUBASE
DUBASE
. PARCSR

S XXX2
I XXX2

162656
162654

MOV
MOV

DUBASE
, HRXDBUF
DUBASE
. HPARCSR

s XXX3
SXXX3

162714

162644

THIS

INC

INC
MOV

DUBASE

DUBASE
, TXCSR
DUBASE

TO LESSI

;CREATE LESSY
;CLEAR TNZVC

saXx

S XXX&

LA AN R

€20UQ-C0

cZpuac.m11

3711
3712
3713
3714
3715
3716
37117
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
1739
3740
3741
3742
3743
3744
3745
3766
37647
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760

3761
3762
3763
3764
3765
3766

MACY11

30A(1052)

005267
016767
005267
016767

000034
000030
000022
000016
000010
000004

20-AUG-80 0 9:19

017062
017066
017074
017100
017106
017112
017120
017122

005267
016767
000207
000000

09-SEP-80

162634

1626264

DUBASE:

062777
005067
006067
006067
006267
042767
056777
062777
052777
005367
001346
000207

1625764

017212
017220
017224
017230
017232
017236
017242
017246
017250
017254
017256
017264
017266

016767
005067

162262

103404

052767
000403
042767

017274

000207

017276
017304
017310
017314
017316
017322
017326
017332
017334
017340
017342
017350
017352

016767

RPOKE:

162322
162540

162532

INC
MOV
INC

DUBASE
DUBASE ,HTXCSR
DUBASE

INC
MO

DUBASE
DUBASE ,HTXDBUF

RTS

162230

000400

162214

000400

162204

162176
162174

162176

$TMP1
sFORCE CARRY
$TMP2
sP1CK UP CARRY IN BIT 15
$TMP2
sSHIFT INTO BIT 14
#BIT15,8TMP2
sCLR BIT 15
$TMP2,aTXCSR
;POKE MAINT DATA

000400
000400

162120

$TMP2

#CLK,a8TXCSR

#CLK,8TXCSR
SHIFT
RPOKE

sPOKE (LK
:

:THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT
MOV
$TMP1,8TMP?
;SAVE TEMPI

CLR
MOV

$STMP?2
$TMP3
43
1%
$TMP3

gés

gngB,‘THP1

:SET ODD PARITY

#B8178,8TMPY

;CLR EVEN PARITY

BIC

RTS

;9TMP1

(HAR

$TMP3
#8.,(PC)

0
ROR
ADC
DEC
BNE
ROR

2%:

NOW HAS ODD PARITY CHARACTER

:THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARA(CTER

EVENB:

162144

162130

; XXX7

ROR
ROR
ASR
BIC
BIS

BCS

4%:
1%:

162160
162156
177762

s XXXE

#MTDATA,QTXCSR

(LR

RTS

4%:
1%:

;xXX5

BIC

BIS
DEC
BNE

0DD8:

DUBASE , TXDBUF

SEQ 0072

;THIS UTILITY POXKES THE MAINT DATA BASED UPON THE
;INFORMATION CONTAINED IN STMPT AND IT IS
JSHIFTED IN BY THE CONTENTS OF SHIFT

BIC

162524

000010

0462767

PAGE 76

MOV

162614

017124
017132
017136
017142
017146
017152
017160
017166
017174
017202
017206
017210

012727
000000
006067
005567
005367
001371
006067

10:57

TRAP TABLE

MOV

$TMPY,81MP2

ROR

$TRP2

CLR
MOV
0

:SAVE

TEMP1

ADC
DEC
BNE
ROR

$TMP3
49
1%
$TMP3

gés

;21‘8,$THP1

:SET EVEN PAR]TY

BIC

#B118,9TMP1

;CLR ODD PARITY

BC(C
2%:

$TMPY
#8.,(PC)e

(10uQ-C0

C20ouQC .M
3767
3768

3769

3770
3771
3772

MACY11 30A(1052)

20-AUG~-80 09:19

017360

000207

017366

000002
000001

017362

062716

00000¢

09-SEP-80

10:57

TRAP TABLE
3%:

SEG 0073

:$TMP1 NOW HAS EVEN PARITY (HARACTER
RTS
PC

TRPREG: ADD
.END

PAGE 77

RTI

#2,(SP)

;ALLOW IT TO ''CRUNCH'' INTO ERROR BA(CK
; IN MAIN PART OF

THE PROGRAM

CZ0uQ-C0
czouac.mi

003200
000000
ACDW1
000000
ACDW?2
000000
ACPUOP= 000000
ACTREG
001166
ADDWO
000000
ADDW1
000000
ADDW1
000000
ADDW1
000000
ADDW1
000000
ADDW1
000000
ADDW1
000000
ADDW1
000000
ADDW?
000000
VIS
NN = O

AAA
ABASE

ADDW3
ADDW4

ADDWS
ADDW6
ADDW7
ADDW8
ADDW9
ADEVCT

MACY11

30A(1052)

20-AUG-80 09:19

13644
947
947
947
947
8064
947
947
947
947
947
947
947
947
947
947
947
947
947
947
947
947
947
947

ADEVM
ADRCNT
AENV

3098«
947
947
947
947
947
947
947
947
947
947
947
947
947
947
947
947

947
947
947
947
6064
562

6034
564
947
947

BASEAD

001154

947
947
947
947
80'#

09-SEP-80

10:57

PAGE 79

CROSS REFERENCE

988
990
991
962
1320+
992
993
1002
1003

1334+

1335+«

SEQ 0074

TABLE == USER SYMBOLS

1342«

2883

2886

2896

1346¢

1348¢

2890+

2902+

1004
1005
1006
1007
994
995
996
997
998
999
1000
1001

953
989
3137«
958
959
950
975
979
982

31444

985

969
977

980

983
955
956

949
970
978
981
984
952

3013
6044
1239
6054
960
951
954
961
986
987
1302+

3006

3260

3008

1339«

1340

2906

—

CZbuQ-Co

czouac.m1i

20~-AUG-80 09:19

001162

BASEIV

MACY11 30A(1052)

804N

09-SEP-80

1312+

1319
3179«

13234
Y

81710 = 000001
81700 = 000001
BI1T01 = 000002

1364
1264
7254

849
736
735

BITW

= 002000

8734

10664

B1102 = 000004
81703 = 000010
81704 = 000020
81705 = 000040
81106 = 000100
BIT07 = 000200
BI1708 = 000400
81709 = 001000
= 000002
B8IT1

1240
1234
7224
7214
7204
7194
7184
7174
7354

734
733
732
73
730
729
728
727
848

B8IT11 = 004000
BI1T12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000

7154
7140
7134
7124
7114

838
837
836
835
834

BIT10 = 002000

B8IT2
BIT3
BIT4
BITS
BIT6
BIT7

= 000004
= 000010
= 000020
= 000040
= 000100
= 000200

BIT9

= 001000

BIT8

= 000400

BPTVEC= 000014

BREAK = 000001
BRW
BRX
CARDET=
ccc

CHRCNT
CKSWR

016620
016622
010000
012576

01410
01267

= 020000

CNTLU

012746

COUNT

001124

7164

7340
7334
7324
7314
7304

7294

7284

7274

7430

8804

2449

36340
36354
8374
2882

3177«
2876

8724
2495
2711
2837
1269

839

847
846
845
844
843

842

841

840

10734

3730
29574

2497+

2910

2911+

2912

2913«

1935

1947

1954

1964

1979

1983

1990

1066

3248

1787
1805
1065
1064
1063

1791
1808
3255
3580
3728

1793
1809

3616
1813

1815

1067

3747

3749

3764

3766

1042

1073

1915

1032

1072
1071
1070
1069
1068

1926

875

1039
1038
1037
1036
1035

856

1033

1049

1680

29464

3731

34641

2501+
3062
3062

874

1034

1050

1235

1260

1235+

3587

2772

2827

1689

1691

1945

1960

1977

1989

2622

1828
2566
2772

1829
2568
2778

1833
2569
2779

1835
2631
2781

2422
2638
2782

24649
2639
2827

2485
2641
2833

2492
2642
2834

2493
2704
2836

2570+

2574+

2643+

2647+

2716+

2720+

110
11454
1260¢

11564

1681

1684

2631

2704

32094
2978

3210
3575

1825
2565
2715

36804

1685

1227
31420

1106
1104

2915+

3609

1786
1804
1046
1045
1044

1102
1100

1227+

2909«

1783
1047
1029
1028
1027

857

2914

2908

1782
1030
872
871
870

1040
879
878
877
876

SEQ 0075

2903+

1031
854
853
852
851

1824
2558
2714

3052
3023
10294
914
3134
34720

7554

3601
3270
1041
873

10654
2496
2712

2939

6514
6524
8364
6584
3096+
2880

914

880

25224
3195«

CR
= 000015
CRLF = 000200
= 020000
C1s
DDISP = 177570
DEVADR 013636
DEVICE 015302

1098
1096

1928

10304
2905
3182

2959

002132
002067
001442
000174

3211n

2558

2879

DF1
DH1
DISPLA
DISPRE

2891+

2485

CONVRT= 104413

7818

PAGE 80

CROSS REFERENCE TABLE =-- USER SYMBOLS

003026
014110

888
BINWRD

10:57

3247+

3631e

czoua-C0

czouac.mil

MACY11 30A(1052)

20-AUG-80 09:19

09-SEP-80

8704
8774
834N
844x
8404
6574

10634
10704
10274
10374
10334
913

2045
1740
2024
1620

0T
D14
DUADDR

017122

1097
1109
1301

1N
11540
2907

1105

DUBASE

002116
002126
016770

DULEV
DUPRT
DURIS
DURIV
DUTIS
DUT
EIGH: =
EMTVEC=
Em
EM2
EM3
EM&
ERRCNT

016714
016764
001740
001736
001744
/001742
006000
000030
001762
002022
002043
001746
001114

1359
1358+«
11254
11244
11278
11264
8654
76464
1095
1099
1103
1107
1740

36874
3687+«
2910+
1308
2914x
2912+
10584
1211
11314
11374
11404
11294

EVEN8
EVEPAR=
EVPAR =
FIVE =
FRMERR=

017276
001400
000400
000000
020000

37540
8684
8574
8624
8534

HOXEN = 000010
HILIM
013634
HLDO
001130

879%
3095«
7834

= 000002

ERRVEC= 000004

GNS

= wtexer |

HLD1
HLD2

001132
001134

HOLD

001120

HLD3
HLD4
HLDS
HLD6
HPARCS

001136
001140
001142
001144
001724

HRXCSR 001714
HRXDBU 001720
HT
= 000011
HTXCSR 001730
HTXDBU 001734

016124
INBUF
INIFLG 001172
INSTER= 104407

INSTR = 104406

INSTR2 013440
JOTVEC= 000020

1SYmod= 000000

PAGE 81

L 6

CROSS REFERENCE TABLE -- USER SYMBOLS

ONA
= 100000
ONAINT= 000040
DSC
= 100000
DSINTE= 000040
DSR
= 001000
DSWR = 177570

DTR

10:57

SEQ 0076

1761

1744

1745

1749

1751

1621

1624

1625

1629

1631

1505

1508

1509

1513

1519

1523

2194

2263

2348

2394

2906+
3712

3700
3713«

3701
3714

3702
3715«

3703+«
3716

3704
37184

3705

3706

3707

3708

3709+

3688+

3689+

3690«

3691+

3692

36964

13N

1312

2908+

2915

2425
1212+

2452

2707

1225+«

1236+

3592

3593«

3595+«

3598«

10504
10554

2488

2775

2830

3668

3669

3670

3671

3674

3675

3676

3677

3678

3679

3680

3681

7844
7854

1151
3280+

1885

2136

2199

2220

2245

2268

2283

2298

2322

2337

3219

3223

35504

1324

1349

1365

1378

1382

1386

1390

1401

2961

36754

2452

2768

275

2823

2830

8484

1297
3710

7394

7864
7874
7884
7894

7798

2353
11184
11148
11168
6492
11204
11220

1367
8142
1375

1292

3068
76460

8614

10414
1300
3711«

1224

1226

1504

37004

11514

10614
10464

10728
3125
1151
3281+
3282+
3283+
3284+

1431

2369
1456
1425«
14461
3021
14671
1486+

1371
1270
3120

1303

3080
1209+

10540

2079

1700
31414
3278+

1701

1704

1705

1709

3279«

1561

2384
3708+
1915+
3707¢
3062
1926
3716+

3071
1273¢
3228

1313

30894
1210+

2445

2399

3702+
3712¢

3101
36764

—

(20Ua-C0

LsI0Uac.
11
JMRBY

KEEPAD
KEEPIV
LASTAD

LESST
LF
=
LIGHTS
LIMITS
LOBITS
LOCk
LOKFLG
LOLIM

MASK1
MASK2
MASK3
MCNTG
MCOw
MCRLF
MDATA
MEPASS
MEXT
=
MEXTJ

20-AUG-80 09:19

001153

001156
001164
001160

016766
000012
001102
013566
013640
001110
001174
013632

007324
007342
007432
016070
015314
015414
016230
015463
010000
016030

MINT
= 004000
MLASTD
015250

MLOCK
MANEW
MMSWR
MMULT
MPFAIL
MM
MR
MRANGE
MREGAD

MACY11 30A(1052)

015527
016111
016100
015221
015417
015410
015510
015344
015171

MRESET= 000400

1278+

3692¢
650
7648
3111
3097«
7728
8164
3094«

3693+
3056
2927+
31254
3120
2981

22514
2257H
22894
2956
2885
3173
3193
2878
884#
1391

BB3#
1325

35004
2061
2958
1314
3444
3087
1412
1350
1293

874¢
1770

MSYNC

015562

2767
1366

MTITLE
WTSTPC

015122
015514

1272
1402

MULTD
MVECTO
MJIREL
MJIRES
MJIRES
NEXT

001152
015156
015751
015701
015630
001106

NOPAR = 000000
0DDPAR= 001000
017212
0008
ONCE
002610
OPTCLR 001151
ouT
013000
OUTCRY 012570

8714
1987
7964
1306
1387
1383
1379
70

8668
867Y
37374
1271
7954
2947
2879

10:57

PAGE 82

CROSS REFERENCE TABLE -- USER SYMBOLS

7974

802#
805#
803#

2001
2178
MTDATA= 040000

09-SEP-80

1300+
1311+
1329

1393

1302
2903
1340

3694+
3062
3143¢

3127

31404

35404
3474M
34854
3204
34934
10774
35344

35544

1975

1346

2183

1348

2902

SEQ 0077

1354
36974

3144

1977

1989

1945

1960

2422

2449

2485

2558

2631

2704

2772

2827

10674
1792
2012
2617
2769

1514
1814
2023
2419
2822

1543
1834
2034
24k4
2824

1581
1854
2044
2446

1610
1896
2055
24B0

1630
1897
2067
2482

1650
1900
2078
2553

1670
1901
2089
2555

1690
1910
2100
2626

1710
1925
2111
2628

1730
1959
2149
2699

1750
1988
2162
2701

1064#
2422
351N

1844
2449

1845
2485

1848
2558

1849
2631

1853
2704

1855
2772

1945
2827

1950
3723

1958

1977

1982

1316
34564
35264
35194
35120

1317

288

10594
10604

2625

2452

2488

2561

634

2707

2775

2830

1517
2951

1546
2955

1584
29674

1870

1911

2114

10768
34674

35444
35424
3i634
34864
34844
34974
34784
34584

35054

34984

12748

1389
2049
2918¢

]

CZ0uQ-C0
czouac.mi

MACY11 30A(1052)
20-AUG-80 09:19

09-SEP-80 10:57 PAGE 83
CROSS REFERENCE TABLE =-- USER SYMBOLS

OuTMUL
ouTl
ouT?
ouT3
OVRRUN=

003166
007774
007520
007650
040000

1322
2186
2237
2239
8524

1347
2314
23174
23644
10454

1358#
2363

1326

1351

1403

2962

36774

PARCSR

001722

11178
2707+«
8564

14530
2768+
10494

2618«
2775+

2425+
2823+«

2445+
2830+

2452+«
3705+

2481+

2068
3107

31164

3126

3128

3130

2926+

2927

2928

1437

1452

1467

1482

2426
2664

2430
2668

2434
2728

PARAM = 104410
PARAMY
013472

1294
31004

PAREN = 001000
PARER = 010000
PARERR
013546

PARTI
PASCNT

PFTAB
PIRQ
=
PIRQVE=
POPRO =
POP1SP=
POP2SP=
PRO
=
PR1
=
PRZ
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=
PSW
=
PUSHRO=
PUSH1S=
PUSH¢S=
PWRVEC=

ROSW

013006

BS44
3103
3119
T30
3442
6564
7504
8294
8274
8314
6734
674N
6754
6764
6774
6784
6794
6804
6534
6544
8284
8264
8304
7654
2957«

012474
015020
012654
000010
104412
001104
040000

2898
3422
2899
7400
36794
7704
8354

013630
001112

015114
177772
000240
012600
005726
022626
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
010046
005746
024646
000024

RECACT= 004000
REPLAY
RESTAR
RESTRT
RESVEC=
RESOS =
RETURN
RING
=

8384
2591

RINTEN= 000100
ROTADD 001170

8434
8094

1305
3121

10474
3105
31394
1247+«
34484

2090

24094

2488e

2554+

2561

2627«

2634+

2700+

2453
2737

2457
2741

2461

2509

2518

2522

2582

1649
1345«

1651
2893+

2896

2900+

2799

2803

2862

2854

1548

1552

2215

2278

2332

2379

10224
10204
10244

3697
3696
14
654

1021«
10194
10234
1215«
2967+

10314
2595

2904
34284
2930

1216+

29694

2013
2655

29064

3118

29374

1252+«
10284
10364

1409+

1411+

1413

34647

1640
1333«

1641
1335

1644
1337«

1645
1342

1321«

RPOKE

017124

Sggg

%;;g'

%;;g

2587

2646

2660

2719

RTS

= 000004

8474

10404

1533

1534

1537

1538

1542

RUNA
RUNB
RUNC
RUND
RUNE
RUNF
RUNIT

=
=
=
=
=
=

000000
teeeee
seeeee
se¢eeee
seeeee
eeecee
012400

|
|
|
|

1
21
21
21
21
21
288¢

SEQ 0078

54
59
59
59
59
59
28904

143
146
146
146
146
146
2897

516
521
521
521
521
521

2733

2787

RXDONE= 000200
RXERR = 100000

SAVPC
001126
SAVSP
001116
SAVOS = 104411

SAVIT

014342

SCOP1 =
SEND
=
SEREC
SETFLG=
SEVEN =
SEXMIT
SHIFT
104405
000020
001150
104414
004000
001147
001122

SIX
=
SPACNT=
SRD
=
STACK =
STD
=
W

£~ O~ 00 O NN —2 -2 0O 00N

NOMNLNORNIPNOMNOMNONORNY)
— —b — —b
Q0 —
O \N SN — OOV
WO
OTM NN NOMM NN
[¢ W Te Yo .1 N1 P JVIE NP L
Te YV 1]

PNOROMNONOIN)
— — 2 —a
N SN
— OO O NN
OO N ~NOOO
2~ O

2801+
2840

1397
1572

3437
1575
1576
1580

1586
1590

2240

2293
2317
2364

1660
1661
1664

1665

1669

167

1226+

1228

1241

1257

1259+
1264
1280

1399

2948
2979

1259
1264

1234+
3580

3267

1280
1399

2979
3270

NNV
— —

1508+
1572

2948
3587
2965

1721
1724

1725

1388

1392

34814

2571«

2585+

3601
2972

3603

3609

3616

=»

0 OO

NS*DN\I‘\I‘U‘N—'OOO‘\A
o
rOVO OO0 —

N O NS WN =000

ANNIPNONININNININ)
—2 b —d
—D

O
=2 O

WO‘*JWWOO?\J\J\WO

OO NS ONWNES
N0 N NO

NONLROPONOIRONOIMNOIA)
— —b —2 —
NONO NN
20OV N

NONOWVSS WO
OB
VNNOW S
OO
000D = NN
NO S5~ =

NO NS
LN O OO NN
OV NNVWNWW
20NN NO
COOOONININNIOWN
2O =W

POV
— — — —>

2797+

2785+

2731+

2717«

2658+

2644

1731

[aS 101 N1, N1,N 1,8 1,81,81,8 P X
B
T4
OO — YO N SN
— OO NN
OO NONWVNOOr
=~
—

NNV NONINITNVPNOIN)
= —2 — s

2 OO NS LINOOON WY AV,]
QO NWVHANWNIWNNN
OO — Wo
= PNOVNONNON
=2 O NWVINO
— N &~

NN Q0

—_ N
=2
VININIRNIN)
= b b s
o [0 W 2B NTa SV, P JV 1,8 elo Yo SV N ]
WinN WIND
A = =2 PO NO
N

POPLMNLRLNLNININOND
= —d —2 —
NONO NN
=2 OO N \¥,]
O ONOCO\WNNN =200 vy
= O SWOCDONND
OO (V]

SWREG
000176
SWREGL 013010
sw0
= 000001
Sw00 = 000001
sw01
= 000002
sw02 = 000004
sw03 = 000010
sWw04 = 000020
SW05 = 000040
Sw06 = 000100
Sw07 = 000200
SWw08 = 000400
sw09 = 001000
sWl
= 000002
w10 = 002000
sWwil
= 004000
sW12 = 010000
W13 = 020000
1729

-k
WVIRD
NS
-

002000
014107
002000
001100
000010
001173
STFLL.
STKLMT= 177774
STPSYN= 000400
SV05
013650
001440
SWR
8514

OONN—=
NN
NN
O—=rONONS SO

001716

f
~nN

RXDBUF

37«

N2 ey

O >

Lol

—

52)

[V,

001712

(

ANNINNN
— PN —
NOWVINWVINDON
IO

RXCSR

MACY11 3
20-AUG-80

czouQ-Cco
czouac.mi

N =2 PIMPOMNVMNIPNINY)
=t 2
d
OO = NN
NN O OO N>
£, O—=2MNO=2NVNOONI
SO H—
NN AWNC0 00 N0 00 0 O OWVNNON

———

B 7
09-SEP-80 10:57 PAGE 84
CROSS REFERENCE TABLE =-- USER SYMBOLS
SEQ 0079

32104

C20uUa-¢0

czouac.m

sSWwi4
SWw15
SWwe
SWw3
sw4
SWwS
sw6
sw?
sw8
SWw9

=
=
=
=
=
=
=
=
=

=
SYNCNO
SYNEXT=
SYNINT=
SYNSCH=

20-AUG-80 09:19

0460000
100000
000004
000010
000020
000040
000100
000200
000400

001000

001146
020000
030000
000020

SYSTST= 014000

TBITVE=
TEMP
TKVEC =
TPVEC =
TRAPVE=

000014
016166
000060
000064
000034

TST10
TST11
TST12
1ST13

004054
004200
004314
004404

TRPREG 017362
TRTVEC= 000014
003374
ST

TST14
1ST15
TST16

004474
004564
004654

1ST2
157120
1ST21
15122
TST23
TST24
TST25
15126
1ST27
TST3
TST30
1ST31
1ST32

003454
005034
005124
005214
005304
005374
005464
005554
005644
003526
005746
006010
006162

TST17

TST33
1ST34
TST35
15136
TST37
TST4
1ST40
TST41
15142
TST43
1ST44

MACY11 30A(1052)

004744

006300
006404
006426
006450
006472
003600
006514
006536
006570
006612
006634

7
c
09-SEP-80 10:57 PAGE 85
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0080

6840
6834
1064
7054
7044

7034
7024
7014
7004

6994
7924
8604
8594
845#
2521
8854
7610

3183

7484
74690
4678

2577

2650

2723

2554

1604

2667

2561
1605
2709

2627
1609
2740

1466

1481

37694

2938

3577

2504
2425
2488
1601

2636
35524

2634
1611
2776

2700

2429

2831

2707
2433

2456

2460

2490

CI0uQ-C0
czouac.m1
1ST45
1ST46
1ST147
1STS
1ST50
1ST51
15152
15153
1ST54
1ST55
TST56
TST57
1516
1ST60
TST61
1517

MACY11 30A(1052)
20-AUG-80 09:19

006656
006700
007002
003652
007042
007074
007774
010106
010220
010526
011034
011342
003724
011650
012076
003740

17187
TXCSR

016310
001726

D 7
09-SEP-B0
10:57
PAGE 86
CROSS REFERENCE TABLE =-- USER SYMBOLS

SEQ 0081

20994
21094
2146TH
1
2
2
2
2
5
5524
26254
26984
14954
27664
28214
15034

35804
11194
1689+
1725
1764
1805
1844
1910«
1977«

1668+
1690+
1729«
1765

1514«
1691
1730«
1769«

1543«
1700«
1731
1770«

1581«
701
1740«
177

1610«
1704+
1741
1782+«

1630+
1705
1744
1783

1650+
1709«
1745
1786+

1670+
1710«
1749«
1787

1680+
17N
1750«
1791«

1681
1720«
1751
1792«

1684+
1721
1760«
1793

1685
1724+
1761
1804+

2044
2178c
2696
2641+
%;;8'

2045
2417«
2553%
2642«
%;g}'

2055«
2419¢
2555+
2699+
2782«

2067+«
2422«
2558+
2701+«
2822+«

2078+
2444+
2565t
2704t
2824+

2089+
2446+
2566+
2711«
2B27+

2100«
2649+
2568+
2712«
2833+«

2111+«
2480+
2569+
2714w
2834+

2148+«
2482«
2626
2715+
2836+

2149+
2485+
2628+
2767+
2837+

2150
2492+
2631+
2769+
3710+

2151
2493+
2638+
2772+«
3723+

2162+
2495+
2639+
2778+
3729

TXDBUF
001732
TXDONE= 000200
TXINTE= 000100

11214
8754
8764

1483«
10684
10694

1496
2035
1760

3714+

TYPOC = 104402
TYPON = 104404
TYPOS = 104403

3302
36714
36704

3326

36694

3086
3443

3172
36684

TYPE

= 104401

USER
=
voilD =
WRDCNT
ZERO
SAPTHD
SASTAT=
SATYC

SATY1
SATY3
$ATY4
SAUTOB
$BASE
$8DADR
$BDODAT
$BELL
$COW1
$Cow2

000000
000001
014104
012406
002136
eeeeee |
000024

000000
000006
000016
(001434
001692
001422
001426
001516
001606
001610

1272
3258

8824
8494
3176+
28914
1178
584
955

5534
5544
5568
9104
9884
9054
9074
9394
9904
9914

1808+«
1845
1925«
1979

1412
3294

10754
10424
3205+

1809
1848+
1927
1982+

2877
3311

32084

11844
599
5574

3011
3263

3250

3278

1813«
1849
1933«
1983

1761

2880
3313

1814
1853«
1934
1987«

1764

2885
3316

1815
1854+
1945«
1988+

1765

2956
3318

1824+
1855
1947
1989+«

1769

2958
3322

1825
1865+
1950«
1990

1771

3026
3329

1828+«
1869
1954
2001«

3069
3393

1829
1896«
1958«
2012+

1833«
1897
1959«
2023+

1834+
1900«
1960«
2034+

3203

1835
1901
1964
2035

3250

CZ0ouQ-Co
czouac.mi
$CHARC
$CKSWR=
SCMTAG
scm
$CM2
$CM3
$CM4
$CPUOP
SCRLF
$OOW0
$ODW1
$OOMW10
$OOW11
$ODW12
$ODW13
$ODW14
$ODW15
$ODW?
$ODW3

20-AUG-80

013320
tettee

001400
000006
000014
000006
000006
001554

001523
001612

3
3

52)

09-SEP-80

10:57

PAGE 87

7
SEQ 0082

CROSS REFERENCE TABLE =-- USER SYMBOLS

3038+«

3045

3054«

3059#

1202
9264
g%gl

1203
9274
9274

1211
9284
9284

1217
9294
929#

1218
9304
9304

9314
9314

9324

9334

9344

9354

9364

9374

3027

3062

3258

3278

3294

3313

586
9594
1248+
1219+«

9584
1239
2925+
3607

1274
3008
3245+
3630«

3006
3013
3278
3637

3067

3260

34450

151
3308

1154

1250

2924+

3252+

1249+«
1218+«

3251«
3273

3278
3275

3278

3629+

556+
3031
3062

584
3062

593+

6014

3620«

3621

3623+

3636

3254+
3062

3262
3278

3278

3297

2938«
3272

3582«
3611

3611
3628¢

3318

3322

3561

3605

3607

3613+

3637

3253«

3254

3278

3300

34460

3632

3636

001614

001636
001640
001642
001644
001646
001650
001616
001620
$DDOWL
001622
$O0WS
001624
001626
$ODW6
$00W7
001630
$DOW8
001632
$ODOW9
001634
$DEVCT
001536
SDEVM
001604
13
= 000002
$ENDAD
012644
SENV
001546
SENVM
001547
SERFLG
001403
SERMAX
001415
$ERROR
014160
$ERRPC
0014616
001652
SLRRTB
$ERRTY
014400
$ERTTL
001412
AP
SESC
001514
$SETABL
001546
SETEND
001652
001530
SFATAL
SFFLG
000244
$FILLC
001456
$FILLS 001455
$GDADR
001420
001424
$GDDAT
$GTSUR=
$HIBTS
$ICNT
$INTAG
$ITEMB
SLF
$LFLG
$LPADR
$LPERR

MACY11 3 A (

29334

32440

1190
9504

tedede

002136
001404
001435
001414
001524
000243
001406
001410

6004
1220
1221«

3627+
3636

3576

C70uQ-C0
czouac.m1

MACY11 30A(1052)
20-AUG-80 09:19

$MADR1
$MADRZ
$MADR3
S$MADRGL
SMAIL
SMAMS1
$MAMS?
$MAMS3
SMAMSSL
$MBADR
SMFLG
S$MSGAD

001560
001564
001570
001574
001526
001556
001562
001566
001572
002140
000242
001542

9754
9794
9824
9854
9484
9694
9774
980#
9834
11864
554+
570

SMSGTY
SMTYP1
SMTYP2
SMTYP3
$MTYP4
SMXCNT
SN
=
SNULL

001526
001557
001563
001567
001573
016624
000000
001454

568
9704
9784
9814
9844
3624
54BN
9194

SMSGLG

001544

$NWTST= 000000

575¢

14184
16784
19714

$OCNT
$OMODE
SOVER
$PASS
SPASTM
SPWRON
$QUES
SROCHR=
SRODEC=
SROLIN=
SRDOCT=
SREGAD
SREGO
SREG1
SREG2
SREG3
SREG4

SREGS
SR2A =
$SAVRE=
$SCOPE

014756
014760
016604
001534
002144
014762
001522
etevee |
eeeeer |
weeeee
seever |
001460
001462
001464
001466
001470
001472

001474
eeeeer
teeeee |
016272

$SETUP= 000017

$STUP = 177777
$SVLAD 016550
$SVPC = 002136

$SWR

= 177400

21604
3365«
3360

3585
9524

11884
1215
9404
3674
3674
3674
3674
9234
9254

9264
9274
9284
9294
9304
3674
3674
1209

11914

11914
3596
11634

5394

1496
1782

2044
2553
3270

F
7
09-SEP-8)
10:57 PAGE 88
CROSS REFERENCE TABLE =-- USER SYMBOLS

1186

1190

560
573

595
9554

5994

576+

588

592+

9494

363¢n
28694
3033

3062

19994

20104

14648
17384

20214

14798
17584

20324

20424

3394+
3364c
3588
1238+

34074
3369
3604
2928+

3372+
3612
3618

3383«
3622
3637

34094
36314

34134
3062

3278

3157«
3156+
3155+«
3154+
3153+

3162
3163
3164
3165
3166

1211

1213

939

2078
2767
3563

9564

146344
16984

21750

3152«

35704

1208

36254
1168

937

1504
1804

2055
2626
3278

14494
17184

24154

1238

2442K

3006

3260

3626

14944
17804

15024
18024

SEQ 0083

1531k
18224

15694
18424

15984
18624

16184
18944

16384
19084

16584
19434

20534

20654

20764

20874

20984

21084

214t

1215

1217

1218

1220

3245

3270

3277

3571

1217

1218

1220

1221

1420

1436

1451

1466

1481

2089
2822
3564

2100
3236
3565

2110
3237
3566

2148
3238
3587

2162
3239
3599

2478BN

25514

2624k

2697H

27654

2B20#

3167

1209

938

1533
1824

2067
2699
3562

1571
1844

1600
1864

1620
1896

1640
1910

1669
1945

1680
1973

1700
2001

Q177
3240
3601

1720
2012

2617
3248
3602

1740
2023

2644
3255
3605

1760
2034

2480
3267
3606

CIoua-co

czouQc.mi

MACY11 30A(1052)

20-AUG-80 09:19
3607

09-SEP-80

3614

3614+
3075
3073

3621
3083
3584

3624
3586

3636

2499+
2BS57«
3724«
3738+

2513«
3725«
3726+
3742+

2572+«
3737
3727+
3745+

2586t
3747«
3728
3755+«

2645+
3749«
3729
3759+

2659«
3754
3737«
3762+

2718«
3764+
3741+

2732«
3766+
3754+

2786+

1418
15044
1678
18044
19N
20554
2160

14204
1531
16804
1822
19734
2065
21628

1434
15334
1698
18244
1999
20674
2175

164360
1569
17004
1842
20014
2076
21778

2765

1449
15714
1718
18440
2010
20784
2415

27674

14518
1598
17204
1862
2012¢
2087
26178

1464
16004
1738
1864»
2021
20894
2442

14664
1618
176400
1894
2023»
2098
2644

$TMP1

9324
2853+
9334
9344

6074
1502
16604
1802
19454
2053

$TMP2
$TMP3

001502
001504

$TN

= 000062

$TMPL
$TMPS

001506
001510

9354
9364

2148¢
$1PB
STPFLG
$TPS
STRAP
$TRAP2

2624
9184

$TRP

001452
001457
001450
016626
016650

= 000015

9224
9174
1213
36564

$TRPAD
$TSTM

016662
002142

3650
11874

STYPBN= tetreer
STYPDS= seeeer

3672
3672

$TSTNM

001402

$TYPE
013042
STYPEC 013254
STYPEX 013322
$TYPOC 014560
STYPON 014574
$TYPOS 014534
001540
SUNIT
SUNITM 002146
SUSWR
001552
001576
SVECT1
SVECT2 001600
$XTSTR 016354
SOFILL 014757
$40CAT= eeseee

= 017370

%ggg:
32%?!

581
3030
3055
33634
3362
33584
9544
1189#
9614
9864
9874
3578
3359«
3257

6024
1168¢
1457
1553
1646
1732
1826

26260
3051+
3000
3049
36454
3667

36694

3615

SEQ 0084

3631

1217«
2952
2950

001500

3628

1241
3567
3626+

9374
9164
9154
9314

3616

9604
3566
9514

001512
001446
001444
001476

PAGE 89

CROSS REFERENCE TABLE =-- USER SYMBOLS

$SWREG 001550
$SWRMK= 000000
STESTN 001532

S$TIMES
$1k8B
$TKS
$TMPO

10:57

3636

3603

2697
3062
3062
3062

26994
3083

2820

28224

2798+

2B02+

2841+

1479
16204
1758
1896#
2032
21004
2478

14814
1638
17604
1908
20344
2108

1494
16404
1780
19104
2042
21104

2551

14964
1658
17824
1943
20440
2146
25534

3758¢

24804

3081

36704

36714

36728

3674

36754

36764

36774

36784

36794

36804

36814

;gg;'

1406

1409

2923+

3¢47

3278

3284

3561

3582

3603

3625+

3626

30004
3037
3057
3669
33654
3670

3660
3044
30604

3668
30494

3050

817#
1206
1497
1591
1682
1766
1856

818#
1220
1506
1602
1686
1772
1875

892«
1221
1519
1606
1692
1784
1879

943
1423
1520
1612
1702
1788
1887

11494
1426
1524
1622
1706
1794
1898

1163
1439
1535
1626
1712
1806
1902

11648
1442
1539
1632
1722
1810
1918

116624
1454
1549
1642
1726
1816
1923

36674

367

1276

35904
3363«
3587

641n
1174
1469
1563
1652
1742
1830

3373

3408#

7540
M7
1472
1573
1662
1746
1836

7574
1776
1484
1577
1666
1752
1846

7624
11790
1487
1587
1672
1762
1850

czouae-co
czouac.m

MACY11 30A(1052)
20-AUG-80 09:19
1931

003310
013734
012324
013432
013324
013344
013346
013442
014762
013702
013642
016272
013020
014112
002152
eeveer |
002136

1937

1948

1955

1965

2060
2207

2069
2212

2080
2222

2091
2228

2102
2233

35534
1268
31720
28754
30864
30654
30694
2952
30934
1245
31624
31484
3574n
29784
3218¢
758
554
11740

35554
1279
3680

3636
1282

3637
13974

2940

2306
2407
2531
2665
2789

.BEGIN
.CONVR
.EOP
LINSTE
JINSTR
JINSTYT
.MSG
.PARAM
LPFAIL
.RESO5
.SAVOS
.SCOPE
.SCOPT
LSETFL
.START
SASTA=
=
.8X

09-SEP-80 10:57 PAGE 90
CROSS REFERENCE TABLE =-- USER SYMBOLS

23
¢wd?
2534
2669
2793

3676
3675
3078
2953+
3677
361460
3679
3678
3674
3229
12004
557
1179

2324
2431
2580
2672
2808

3088
2954

2330
2435
2583
2677
2844

3065+«

3435

3681
1252

2889

2339
2454
2589
2680
2848

3070«

1980

2120
2247

2346
2458
2592
2726
2863

1984

2127
2254

2355
2462
2596
2729
306¢

SEQ 0085
199

2003

2014

2025

2361
2507
2599
2735
3278

237
2510
2604
2738
33324

2377
2516
2607
2742
3424

2386
2519
2653
2745
3440

2138
2260

21564
2270

2167
2276

2184
2285

2036

2046

2392
2523
2656
2750
35464

2401
2526
2662
2753
35514

2192
229N

2201
2300

(20uQ-C0o
czouac.m
COMMEN
ENDCOM

ERROR

MACY11 30A(1052)
20-AUG-80 09:19
1#
1

6LSH
1525
1643
1743
1847
1985

1424
1536
1647
1747
1851
1992

2849
"
1
1#

2864
751#
751
751

1»
1678

2168
2378
2532
2673
ESCAPE
GETPRI
GETSWR

MULT

NEWTST

POP
PRGEND
PRGFRT
PUSH
PUSSYF
REPORTY

gEETUP

SCOPE

1473
1592
1693
1795
1924
2070

1485
1603
1703
1807
1932
2081

1488
1607
1707
1811
1938
2092

1498
1613
1713
1817
1949
2103

1507
1623
1723
1827
1956
2121

1511
1627
1727
1831
1966
2128

1521
1633
1733
1837
1981
2155

7514
1698

1418
1718

1434
1738

1449
1758

1464
1780

1479
1802

1494
1822

1502
1842

1531
1862

1569
1894

1598
1908

1618
1943

1638
1971

1658
1999

2551

2624

2697

2765

2193
2393
2535
2678

213:

%g;;

646X

2208
2408
2581
2681

2032

597

2042

7514

2229
2632
2590
2730

2053

2234
2436
2593
2736

2065

2820

2255
2455
2597
2739

2261
2459
2600
2743

2277
2463
2605
2746

2076

2087

2098

2292
2508
2608
2751

2307
2511
2654
2754

2312
2517
2657
2790

2331
2520
2663
2794

2108

2°46

2160

2175

2480

2553

2626

2699

2767

2822

1419

1435

1450

1465

1480

1495

1503

1532

1570

1599

1619

1639

2022

2033

2043

2054

2066

2077

2088

2099

2109

2147

2161

2176

2416

S39#

36604

3669

3670

3671

3674

3675

3676

3677

3678

3679

3680

3681

552

751#

888

943

946

1161

1173

1180

1418

1434

1449

2175

2415

2442

1699

1494
1822

3232
1%

36604
6148

TYPDEC

1K J

539«

1719

2625
3633
751

7514
7514
7514

1502
1842

2098

3288
7514

[ ]

751#

12
14
1

751
7514
751#

1%
14
5688

559

2213
2428
2584
2727

2444

TRMTRP
TSETUP

TYPOCT
TYPTXT
$BEGIN

1470
1588
1687
1789
1919
2061

7510

2087

TYPNAM
TYPNUM
TYPOCS

1458
1578
1683
1785
1903
2047

580

Y
"
1
7514

TYPBIN

1455
1574
1673
1773
1899
2037

596
2868
630
557

SETL?
SKIP
SLASH
SPACE

SWRSU

SEQ 0086

1443
1554
1667
1767
1880
2026

1
6294
608#
"
6260

2552
5484
14

STARS

09-SEP-60 10:57 PAGE 92
CROSS REFERENCE TABLE == MACRO NAMES

1440
1550
1663
1763
1876
2015

2021

2478

1427
1540
1653
1753
1857
2004

2010

SC1
SETPRI

SETTRA

7514
7514

7514

1739

2698

1200

1531
1862

1759

2766

1569
1894

2108

2146

3300

3324

3335
12224

3558

7514

751
751#
1394

1781

2821

1598
1908

2160

3639

1803

2875

1618
1943

1823

1638
1971

1843

1658
1999

1863

1678
2010

2478

1895

1698
2021

2551

1909

1718
2032

2624

1944

1738
2042

2697

1972

1758
2053

2765

2347
2524
2666
2809

2415

1659

2000

2362
2527
2670
2845

24L42

1679

201

2443

2479

1464

1479

1780
2065

2820

1802
2076

2985

C20uUQ-C0
czouQc.mi

SMRW

641
2941
1274
3169

1%18’

}ggg

6120

2494

2567

2640

2713

2780

2835

2465
3145

2538

2611

2684

SRESET

2628
6154
5488

2699
2411
3556
2975
3212
751
1192

1543
1900
21

2701
2438

1581
1910
2149

1610
1925
2162

1630
1959
2178

1650
1988
2417

SRXACT
$SCOPE
$SCOP1
$SETFL
$SETVE
$START
$STRIP
$SYMBO

$SYNCR

6184

2490

2563

$TRPAR

2636

2709

2776

2831

$TSTNO

5488
1698
2021

1418
1718
2032

1434
1738
2042

1449
1758
2053

1464
1780
2065

1479
1802
2076

1494
1822
2087

SUNIBU

6088

1416

1432

14647

SVARIA
SWORDF
$WORDO
$WORDP
$SCMRE
SSCHTN
$SESCA

1462

1477

6074

6174
6284
6168
6074

609#
1834
2089

568
5484
543N
54808
6224
5394
6244

2551

5464
6194
6184
6204
8864
8864
4

2279

2294

2318

2333

2349

2365

2380

2073

6114

2264

SEQ 0087

137
130

2062

6164

$REG

224

2039

$POKE

$POKER
$RCNET
S$RECAC

2216

2018

6074
6284
6074

1996

2195

2007

$MSG
SNEED
SPARAM

SPFAJIL

2868
1313
1292
1360
630
3062

2132

1528

1566

1595

1615

1635

2084

2095

1675

1695

1715

1735

1755

1777

1799

1670
2001
24619

1690
2012
2444

1710
2023
2646

1730
2034
2480

1750
2044
2482

1770
2055
2553

1792
2067
2555

1814
2078
2626

1502
1842
2098

1531
1862
2108

1569
1894
2146

1598
1908
2160

1618
1943
2175

1638
1971
2415

1658
1999
2442

1678
2010
2478

1655

189

3451
3278
3090

3410

1514
1854
2100

819

2624
761

1012

2697

2757

2812

925
931
7514

926
932

2767

2765

2769

2820

SMRRY

5420
5698
56484
6078
6234
5494
5484
5488
5484
5394
6074
6218
6184

1881

]

S$MRR

1557

$CATCH
$CK
$CLRVE
SCONVR
SUNA
$EOP
SGETFL
$GETPA
$GETSY
SHEADE
$INSTR
$1508
SMATCH

6274

2395

3547

S$CABLE

6254
6074

09-SEP-80 10:57 PAGE 93
CROSS REFERENCE TABLE -~ MACRO NAMES

$BINAR
$BUFFE

MACY11 30A(1052)
20-AUG-80 09:19

2822

935

2824

936

14
14
4

7518

5394
5394

641

.SETUP
.SWRH1
AT
.SAPTB
.SAPTH
SAPTY
.SASTA
+SCATC
SCMTA
.$0820
.$0B20
.SD1V
.SEOP
.$ERRO
.SERRY
LSMULT
.SPOWE
«SRAND
.SRDDE
.$RDOC
.SREAD
.SR2AZ
.$SAVE
.$5820
.$5820
.$SCOP
.$SIZE
.$SUPR
.STRAP
.$TYPB

14
AL/
14
1L
4
1L
1L
1L
%
1L
1L
1L
1L
.
14
1L
14
14
14
14
14
14
14
1
12
14
1
4
14
1Y

S39#

119N

5394
5394
S39#
5394

1159
944N
1169
550

5394
5394

886

5394
5394
5394

3230
3286

.STYPE
.$TYPO
.$40CA
1170

4
4
1L
1Y

5394
5394

017370

000

X111

.S$TYPD

. ABS.

ERRORS DETECTED:

675

3678

3679

5394

S394

C20UQC, C2DUQC/CRF/SOL/NL: TOC=CZDUQC.SML,C20UQ3/EQ:RUNA,CZDUGSL,CZDURC.
MY

3680

3681

Ll
o1

3677

—a

3676

2160

1598
1908

2098

2087

S39#

RUN-TIME: 50 63 & SECONDS
RUN-TIME RATIO: 229/119=1.9
3K
(85 PAGES)
CORE USED:

—2

2076

1502
1842

i
el

065
820

1494
1822

1479
1802

20D

2053
2765
3674

1464
780

— OO~
~N
S =
WViNCD

2042
2697
3671

1449
1758

2032
2624
3670

1434
1738

H 00
[o e]

2021
2551
3669

1618
1718

)
— —

2010
2478
36604
12384

7514
1698

SEQ 0088

$$SET
$SSETM
$$SKIP
.EQUAT
-HEADE

14
1678

SINEWT

10:57
PAGE 94
CROSS REFERENCE TABLE == MACRO NAMES

09-SEP-80

—Qowvn
[=Te
JV ]
apry
—

czouaC.m1?

(==

(
3 AC10
52)
20-AUG-80 9:19

MACY11

cZoua-co

1658
1999

2442

(Z0uQ~C0
czouac.m1

MACY11 30A(1052)
20-AUG-80 09:19

L 7
09-SEP-B0
10:57 PAGE 95
CROSS REFERENCE TABLE =-- MACRO NAMES

SEQ 0089