Digital PDFs

AH-E772A-MC

August 1978

201 pages

Original

12MB

view download

OCR Version

10MB

view download

Document:	CZNCCA0 NCV-11 DIAGNOSTIC DEC 1978 bw
Order Number:	AH-E772A-MC
Revision:	000
Pages:	201
Original Filename:	CZNCCA0__NCV-11__DIAGNOSTIC__AH-E772A-MC__DEC_1978_bw.pdf

OCR Text

DIAGNOSTIC

CZNCCAO

AH-E772A-MC

DEC 1978

FICHE 1 OF
1

MADE IN USA

EIMII

IDENTIFICATION

SEQ 0001

PRODUCT CODE:

AC-E771A-MC

PRODUCT NAME:

CINCCAQ NCV11

DATE:

AUGUST

MAINTAINER:

DIAGNOSTIC ENGINEERING

DIAGNOSTIC TESTM

1978

IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE

COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE
COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND OWNERSHIP OF
THE

THE SOF TWARE SHALL AT ALL

INFORMATION [N THIS DOCUMENT

TIMES REMAIN IN DEC.

IS SUBJECT TO CHANGE WITHOUT NOTICE AND

SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS SOF TWARE

ON EQUIPMFNT WHICH IS NOT SUPPLIED BY DEC.

SEQ 0002

O
Wh=O
O

LOADING PROCEDURE

—-O

PROGRAM START

PREL IMINARY PROGRAMS

WN-=O

SOF TWARE SWITCH REGISTER
LOGIC TEST OPTIONS

ERROR REPORTING

OWVNEBWMN~SO

MISCELLANEOUS
NCV11 BUS ADDRESS MODIFICATION
XXDP/APT NOTES
POWER FAIL

STARTING PROCEDURE

EXECUTION TIME

ovvvninang
OO0
O

NNNNSNNN

—

REQUJREMENTS
EQUIPMENT
STORAGE

ABSTRACT

CONTENTS

TABLE

PROGRAM TEST DESCRIPTIONS

10.0

FIELD ADJUSTMENT OPTIONS
CONTROL

MULTIPLE NCV11

INTERFACE TESTING

RESTRICTIONS
ADDRESS MAKER TABLE

LISTING

1.0

ABSTRACY

SEQ 0003

THE NCV11 DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED
TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE ON THE
MB8026 AND M8036.
THE M795¢ DIAGNOSTIC SHOULD HAVE BtEN EXECUTED.
TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL

VIA KEYBOARD TEST SELECTION AND THE PROVISIONS OF SECTION 5.
THF PROGRAM CAN BE EXECUTED ON AN LSI-11

OR PDP-11

C[OMPUTER.

REQUIREMENTS

AN =

EQUIPMENT
PDP11

FAMILY OR LSI-11

1/0 TERMINAL (IE: LA36)

NCV11 OPTION INCLUDING KWV11 REAL TIME CLOCK (M7952)
A017 SELF~TEST CONNECTOR (70-12894) (REQUIRED FOR SECTION 9.2 + 9.3)
H3060 JOYSTICK

FAMILY COMPUTER

(OPTIONAL)

HARDWARE TESTER AND PROM BLASTER (OPTIONAL)

STORAGE
THE PROGRAM REQUIRES 16K OF MEMORY.

IF MEMORY MANAGEMENT OR ADDITIONAL MEMORY ARE SENSED,

PROGRAM WILL USE

THOSE HARDWARE OPTIONS.

THE

PREL IMINARY PROGRAMS

THE KWV11

3.0

DIAGNOSTIC

(MD-11-DVKWA)

SHOULD HAVE BEEN RUN.

LOADING PROCEDURE

NORMAL PROCEDURE FOR LOADING A BINARY PROGRAM INTO MEMORY
SHOULD BE FOLLOWED.
4.0

STARTING PROCEDURE

LSI1:

NN\

LSI1T:

MAKE SURE THE NCV11 DEVICE BUS ADDRESS, INTERRUPT VECTOR ON THE
M8026 AGREE WITH THE DEFAULT VALUES DEFINED IN SECTION 7.1.
MAKE SURE THE NCV11 CLOCK BUS ADDRESS ON THE M7952 AGREE
WITH THE DEFAULT VALUE DEFINED IN SECTION 7.1.
MAKE SURE THE NCV11 INTERRUPT PRIORITY LEVEL ON THE M8217
AGREE WITH THE DEFAULT VALUE DEFINED IN SECTION 7.1.
INSURE THAT THE HALT SWITCH IS DISABLED (IF ANY).
TYPE THE STARTING ADDRESS OF 200 AND THE CHARACTER G.
THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE.
THE PROGRAM WILL REQUEST SWITCH REGISTER VALUE.
THE PROGRAM WILL TYPE THE TEST SELECTION MENU FOR THE OPERATOR.

THE OPERATOR SELECT'S THE APPROPRIATE TEST BY TYPING THE TEST LETTER AND "‘CR"’

IF THE PROGRAM IS EXECUTED ON A CPU WITH A SWITCH REGISTER AND THE
OPERATOR SETS ALL SWITCHES TO A 1, THE SOFTWARE S.R. WILL BE USED.

If THE HARDWARE SWITCH REGISTER IS USED, THE SOFTWARE S.R. HAS NO EFFECT.

PROGRAM START

SEQ 0004

STARTING ADDRESS OF THE PROGRAM
RESTART ADDRESS OF THE PROGRAM
STARTING ADDRESS FOR THE FACTORY OPTION CHECK-OUT AREA.
(INFORMS THE PROGRAM THE TESTER AND BLASTER ARE CONNECTED)

200
204
210
5.0

SOF TWARE SWITCH REGISTER

5.1

LOGIC TEST OPTIONS

SWITCH

OCTAL

FUNCTION

SW15=1

100000

HALT ON ERROR

020000
004000

INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS

SW14=1

040000

SW10=1
SW09=1

002000
001000

SW13=1
SW11=1

Sw08=1
5.2

BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR <7-0>

0004XX

FIELD ADJUSTMENT LOOP

SWITCH

SW15=1

Sw13=1

SwW09=1
SW08=1
Swo7=1
SW06=1
Sw04=1
Sw03=1
SW02-1
Swo1=1
SW00=1

5.3

LOOP ON TEST

OCTAL

FUNCTION

100000

HALT ON '‘INPUT VOLTAGE OUT OF RANGE'' ERROR

020000

INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT

001200
000400
000200
000100
000020
000010
000004
000002
000001

ERROR OR CONVERSION TYPEOUT

CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS

ON
ON
ON
ON
ON
ON
ON
ON
ON

CAMERA #3
CAMERA #2
CAMERA #1
CAMERA #0
JOYSTICK
CAMERA #3
CAMERA #2
CAMERA #1
CAMERA #0

CONTROL
1.

THE SOFTWARE SWITCH REGISTER 'SWREG'
CHANGED BY USING THE ODT FACILITIES.
THE

SOF TWARE SWITCH REGISTER CAN BE

CONTROL BY TYPING THE

(LOC.

176)

CAN BE

CHANGED UNDER PROGRAM

‘'CONTROL & G' KEYS.

THIS

KEYBOARD OPERATION WILL PRINT
THE CURRENT CONTENTS
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED

LSI-11:

WITH A CARRIAGE RETURN.

ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN

ERROR CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE
SOF TWARE SWITCH RFGISTER IF DESIRED BEFORE TYPING
'P*'

(CONTINUE).

[F THE PROGRAM 1S PERFORMING RESET INSTRUCTIONS, SEVERAL
*CONTROL & C' OR 'CONTROL & G' COMMANDS MAY BE NECESSARY TO

BE ACKNOWLEDGE BY THE PROGRAM.
TESTING CAN BE ABORTED BY TYPING THE

°'CONTROL & C'

KEYS.

GAIN
GAIN
GAIN
GAIN

=
=

1
1
1
1

GAIN
GAIN
GAIN
GAIN

=
=
=
-

2
2
2
2

ERROR REPORTING

SEQ 0005

ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OFf
THE ERROR CAN BE OSTAINED IF NEEDED FROM THE COMMENT AT THE

ERROR PC OR FROM THE

TEST

ITSELF.

MISCELLANEOUS
NCV11

BUS ADDRESS MODIFICATION

MODIFY LOCATION '$BASE' (LOC. 1250) IF BASE NCV11 BUS ADDRESS IS NOT 772760.
MODIFY THE LOW NINE B1rS OF LOCATION ‘SVECT1' (LOC. 1244) IF
BASE NCV11 INTERRUPT VECTOR IS NOT 370.
MODIFY THE HIGH THREE BITS OF LOCATION 'SVECT1' (LOC. 1244) IF
THE

INTERRUPT PRIORITY LEVEL

MODIFY LOCATION '$CDW1®'

IS NOT LEVEL 6 ON A UNIBUS CPU.

(LOC. 1254) IF BASE NCV11 CLOCK BUS ADDRESS IS NOT 770420.

XXDP/APT NOTES

THIS DIAGNOSTIC

IS CHAINABLE UNDER XXDP (REQUIRES 16K OR MORE).

IF RUNNING UNDER XXDP/ACT/APT,

THE LOGIC AND DIFLIN TESTS WILL BE RUN.

POWER FAIL

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE).

MULTIPLE NCV11°'S INTERFACE TESTING
THIS PROGRAM DOES NOT '‘AUTO-SIZE'' THE NUMBER OF NCV11'S CONNECTED.

FOR EACH ADDITIONAL NCV11,

$BASE, SVECT1 AND $(DW1

THE OPERATOR MUST MODIFY LOCATIONS

(REF.

7.1).

RESTRICTIONS

KWV11 REAL TIME CLOCK (M7952) MUST NOT BE CONNECTED TO M8C26 'FAST-ON'' TABS.
UNLESS OTHERWISE STATED, NO EXTERNAL CONNECTIONS TO M8036 OR A017.

ADDRESS MAKER

TABLE

THE M8036 CONTAINS LOGIC TO CONVERT A/D DATA INTO A RELATIVE
ADDRESS.
BELOW IS A TABLE WHICH SHOWS THE ADDRESS MAKER OJTPUT
WITH THE ''TEST CONTROL'' MAINT. BIT SET.
SETTING THIS BIT ENABLES
THE STATES OF THE ''GAIN, ZB ENABLE AND RESOLUTION'' BITS SIMULATE
THE

CONVERTED A/D DATA.

8.0

n
o
woa

ONO =0

00
[elolelele
b g

NOGONNOO

OCOONNOO

NOOOONN

COYNOING)
— —

DONONO
=

OWAaNONO

QOmMAONON

OOOmMAOND

QOOOmMON

elolelolelfnl

leolelelelelale)

=S O—=O—=0O—

OO0

Q== 00—

—-—a-

RESOLUTION
ADDRESS MAKER OUTPUT BITS
RESO RES1 WORD*16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01

ALWAYS A 0

ALWAYS A 1
GAIN FLOP STATE
B ENABLE FLOP STATE
THE "'AND’' OF ZB ENABLE WITH ZB MAINT.

INPUT

EXECUTION TIME

LOGIC:

EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS
TO ABOUT 70 SECONDS WITH ITERATIONS ENABLED.
AN END PASS MESSAGE INDICATES ALL SUB-TESTS HAVE

COMPLETED.

EACH ADDITIONAL 4K OF MEMORY WILL ADD ABOUT 10 SECONDS
TO

THE

LOGIC

TEST

DIFFERENTIAL LINEARITY:

RUNTIME.

EXECUTION TIME

IS ABOUT 90 SECONDS.

SEQ 0006

7.6

PROGRAM TEST DESCRIPTIONS

SEQ 0007

THE PROGRAM CONSISTS OF FOUR MAIN SECTIONS PLUS THREE AUXILIARY AND

THREE FACTORY OPTION CHECK-OUT SECTIONS.
THE OPERATOR SELECTS EACH SECTION VIA THE CONSOLE KEYBOARD.

BELOW IS A BRIEF DESCRIPTION OF EACH SECTION AND THE KEYBOARD CHARA(TER.
MAIN SECTIONS
9.1

LOGIC TEST

(MB026 + MBO36)

<NO INTERVENTION> <SETUP ONLY IF SA=210>
THE

TEST (ONTAINS A SERIES OF

INDEPENDENT SUB-~TESTS DESIGNED

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE NCV11 GAMMA CAMERA INTERFACE.
A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS
AT THE BEGINNING OF THE LISTING.
THE COMMENT FIELD WITHIN

EACH SUB-TEST TITLE CAN BE BENEFICIAL TO UNDERSTANDING THE LOGIC TESTED.
ADDITIONAL LOGIC TESTS OF THE AO17 WwILL BE EXECUTED IF THE
PROGRAM WAS STARTED AT LOC.
9.2

D (M)

210.

DIFFERENTIAL LINEARITY

(AD17)

AQ017> <SETUP INTERVENTION ONLY>

A FINITE VARIATION OF INPUT VOLTAGE EQUALS A GIVEN CONVERTED
VALUE OR STATE.
THE TEST IS TO VERIFY THE WIDTH OF EACH POSSIBLE

STATE.

AN INPUT VOLTAGE IS RAMPED AND THE NCV11 SAMPLES THE RESULT.

THE NCV11 INCREMENTS THE RESPECTIVE MEMORY LOCATION CORRESPONDING
TO THE INPUT VALUE.
THE PROGRAM THEN DETERMINES IF ANY STATE HAS

BEEN SKIPPED, IS EXCESSIVELY WIDE OR NARROW. WHEN 'M'’ IS USED TO
SELECT THE SECTION, THE PROGRAM QUTPUT AN EXPANDED REPORT OF
THE 254. STATES. TIGHTER ERROR TOLERANCES ARE USED IF RUNNING

IN THE OPTION CHECKOUT AREA (SA 210).

9.3

FINAL ACCEPTANCE

INTERVENTION ONLY>

THE SUB~SECTION RUNS SECTION 'L'' AND ‘1°' TO VERIFY PROPER OPERATION.

5.0

5.4

ADJUSTMENT OF A017 AT FIELD SITE

SEQ 0008

COARSE ADJUSTMENT OT THE AQ17 CAN BE PERFORMED USING THIS SUB-SECTION.
THE OPERATOR MAY SELECT THE CAMERA AND GAIN TO BE SAMPLED USING THE
SWITCH REGISTER.
A SERIES OF CONVERSIONS ARE TAKEN ON EACH CAMERA
AND THE OPERATOR IS INFORMED OF THE RESULTS.
SWITCH

OCTAL

SW15=1
SwW13=1
SW09=1
SW08=1
SW07=1
Sw06=1

100000
020000
001000
000400
000200
000100

SW03=1
SW02=1
Sw01=1
SW00=1

000010
000004
000002
000001

SW04=1

G.5

FUNCTION

000020

HALT ON ‘‘INPUT VOLTAGE OUT OF RANGE'' ERROR
INHIBIT ERROR OR CONVERTED VALUE TYPE-OUT
INHIBIT CONVERSIONS ON CAMERA #3 GAIN - 1
INHIBIT CONVERSIONS ON CAMERA #2 GAIN - 1
INHIBIT CONVERSIONS ON CAMERA #1 GAIN
1
INHIBIT CONVERSIONS ON CAMERA #0 GAIN
1
INHIBIT CONVERSIONS ON JOYSTICK

INHIBIT
INHIBIT
INHIBIT
INHIBIT

CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS

ON
ON
ON
ON

CAMERA #3
CAMERA #2
CAMERA #1
CAMERA #0

OTHER TERMINAL ADDRESS

IN SOME CUSTOMER SITES, THE CONSOLE TERMINAL MAY NOT BE LOCATED

WITHIN EASY ACCESS TO THE NCV11.
TO CHANGE

9.6

HELP

A LIST OF
5.7

THE PROGRAMS CONTROL

THIS SECTION ALLOWS THE OPERATOR

TO ANOTHER

TERMINAL.

THE OPERATOR

THE COMMANDS WILL BE TYPED TO REFRESH THE OPERATOR'S MEMORY.

SOF TWARE SWITCH REGISTER

ENABLES THE OPSRATOR TO (CHANGE THE SOFTWARE
NOT RUNNING ANOTHER SUB-SECTION.

FACTORY OPTION CHECK-OUT

5.8

SWITCH REGISTER WHEN

SECTION

INITIAL ADJUSTMENT OF A017

TESTER>

A KNOWN GOOD DIGITAL TO ANALOG (D/A) SUPPLIES A REFERENCE INPUT
VOLTAGE. THE OPERATOR IS INFORMED WHICH ADJUSTMENT TO PERFORM.
THE PURPOSE OF THE TEST IS TO VERIFY THAT THE ADJUSTMENT TO THE PRE-AMP

SECTION CAN BE PREFORMED.
THE PRE-AMP, BUT ONLY

THE TEST DOES NOT ATTEMPT TO CALIBRATE

TO FUNCTIONALLY VERIFY

THE ADJUSTMENTS.

GAIN
2
GAIN = 2
SAIN
2
GAIN
2

9.9

BLASTING THE LINEARITY CORRECTION PROM

SEQ 0009
TESTER>

THE TEST IS DESIGNED TO CREATE THE LINEARITY CORRLCTION PROM (LCP).
THE TESTER HARDWARE CONTAINS RAM STORAGE TO EMULATE THE LCP.
THE
PROGRAM WILL RUN DIFFERENTIAL LINEARITY. THE PROGRAM WILL THEN

USE THE RESULTS TO DETERMINE THE CORRECT VALUE TO BE PLACED IN THE
LCP.
THE PROGRAM WILL THEN INFORM THE PROM BLASTER TO GENERATE A
CORRECTED LINEARITY PROM FOR THE AO17 MODULE. UPON COMPLETION
OF GENERATION AND VERIFICATION STAGE, THE OPERATOR IS INSTRUCTED
TO REMOVE THE EMULATOR CABLE FROM THE AO17 AND INSERT THE NEWLY
CREATED LCP.
THE PROGRAM WILL RE-EXECUTE DIFFERENTIAL LINEARITY.
9.10

CONTROL PROGRAM PROM

<MANUAL

INTERVENTION> <SETUP INTERVENTION> <HARDWARE

TESTER>

THE ROUTINE WILL CREATE THE MB036 CONTROL PROM.
THE OPERATOR
MAY (REATE SEVERAL COPJES BY REPEATELY EXECUTING THIS SECTION.
THE PROGRAM WILL

OCTAL

BINARY

00
01
02
03
04
05
06
07

215
244
116
144
215
244
116
144

10001101
10100100
01001110
01100100
10001101
10100100
01001110
01100100

116

01001110

20
21
22
23
LISTING

STEPS TO PERFORM.

LOCATION

10
11
12
13
14
15

10.0

INFORM THE OPERATOR THE

215
244
116
144
215
244
144

116
144
216
244

10001101
10100100
01001110
01100100
10001101
10100100
01100100

01001110
01100100
10001110
10100100

CINCCA NCV11
CINCCA.P11
17
127
277
288
297
304
315
337
381

430
586

629
636
650
678
691
840
841

DIAGNOSTI(
TABLE OF

15:05

B8-AUG-78

MACY11 27(654)

CONTENTS

SEQ 0010

BASIC DEFINITIONS
MEMORY MANAGEMENT DEF INITIONS
OPERATIONAL SWITCH SETTINGS
TRAP CAT(CHER

STARTING ADDRESS(ES)

ACT11 HOOKS
APT PARAMETER BLOCK
COMMON TAGS
APT MAILBOX-ETABLE
ERROR POINTER TA3LE
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME

GET VALUE FOR SOFTWARE SWITCH REGISTER
PRIME THE NCV11

ADDRESSES FROM THE DEFAULT VALUES

DIAGNOSTIC IDENTIFICATION TYPEOUT
KEYBOARD COMMAND DECODER
TEST

DESCRIPTION

11
T2
13
T4

VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND
FLOAT A 1 ACROSS 10 BITS OF THE COMMAND/STATUS REG.
VERIFY THAT °''INIT'® CLEARS THE CSR REGISTER
VERIFY THAT °"‘CLEAR ALL'' CLEARS THE CSR REGISTER

110

VERIFY THAT ''INIT'® CLEARS THE SFR REGISTER

TS
16
17

112
113
T14

VERIFY LOW BYTE OPERATION OF THE ‘'CSR'' REGISTER
FLOAT A 1 ACROSS 4 BITS OF THE SPECIAL FUNCTION REGISTER
VERIFY THAT CLEARING HIGH BYTE OF SFR DOES NOT CLEAR LOW BYTE
VERIFY THAT ''CLEAR ALL'' CLEARS THE SFR REGISTER

T16
117

FLOAT A 1 ACROSS THE WORD COUNT REGISTER
FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER
FLOAT A 1 ACROSS THE OFFSET REGISTER
VERIFY NO DUAL REGISTER SELECTION
VERIFY '‘CLR ALL'' CLEARS THE EXTENDED OFFSET BITS
TEST THE ''ACTIVE'' FLOP CAN SET AND CLEAR

120
121
122

VERIFY Z INPUTS CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGEIN MATRIX MODE
VERIFY 2 INPUTS CAUSE THE LOW 16 BITS OF 32 BIT COUNTER TO CHANGE
VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE

127
130

TEST THAT "WCA OVFL'' GENERATES AN INTERRUPT
VERIFY "WCA OVFL'' CLEARS ''ACTIVE"'

T15

123
124
125
126

131

132

733

VERIFY Z INPUTS CAUSE THE HIGH 8 BITS OF THE 32 BIT COUNTER TO_ CHANGE
VERIFY Z INPUTS DO NOT CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE IN LIST MODE
TEST THAT ‘WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND ''CLR ALL'' CLEARS IT
TEST THAT ‘WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND '‘CLR WC OVFL'' CLEARS IT

VERIFY JOYSTICK DONE FLOP SETS

VERIFY THAT "RESET'' INSTRUCTION CLEARS THE JOY READY FLOP

JOYSTICK DATA PATH

GAIN =0

JOYSTICK DATA PATH
JOYSTICK DATA PATH

=
I8 ENABLE =
RES. = 001

JOYSTICK DATA PATH

RES.

134

JOYSTICK DATA PATH = GAIN =

137

JOYSTICK DATA PATH RES. = 010

135
136

140

7B ENABLE =0

RES. = 000

CZINCCA NCVIT
CINCCA.PI
1579

1580
1598
1617
1635
1654
1672
1690

DIAGNOSTIC
TABLE OF

141
142
743
T44

145

146

147
150
751
152
153
154
155
156

157
160

161
162
163
T64
165
166
167
170
171
172
173
174
175
176
177

1100
T101
1102
1103
1104
7105
1106
1107
71110
111
1112
1113

T114
T115
1116
1117
1120

1121
1122
T123

MACY*1 27(654)

CONTENTS

VERIFY
VERIFY
VERIFY
VERIFY
VERIFY
VERIFY

THE
THE
THE
THE
THE
THE

DATA
DATA
DATA
DATA
DATA
DATA

INCREMENT
INCREMENT
INCREMENT
DECREMENT
DECREMENT
DECREMENT

TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER

TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER

=
=
=~
=

=~
=~
-~
~
=
~
=
~-~
=
-

15:05

8-AUG-78

SEQ 0011

FUNCTION
CARRY BIT

FUNCTION IS INHIBITED
FUNCTION

BORROW

FUNCTION IS INHIBITED

MATRIX MODE
MATRIX MODE
MATRIX MODE
MATRIX MODE

- RES
- RES
- RES
- RES

= 7 GAIN = 0 ZB ENABLE
= 7 GAIN = 1 ZB ENABLE
= 7 GAIN = 0 ZB ENABLE
= 6 GAIN = 0 ZB ENABLE

MATRIX MODE - RES = 6 GAIN = 1 ZB ENABLE
MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 5 GAIN = 1 ZB ENABLE
MATRIX MODE - RES = 5 GAIN = Q0 ZB ENABLE
MATRIX MODE -~ RES = & GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 4 GAIN = 1 ZB ENABLE
MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 3 GAIN = 1 ZB ENABLE
MATRIX MODE -~ RES = 3 GAIN = Q0 ZB ENABLE
MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 2 GAIN = 1 ZB ENABLE
MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 1 GAIN = 0 ZB ENABLE
MATRIX MODE - RES = 1 GAIN = 1 ZB ENABLE
MATRIX MODE - RES - 1 GAIN = 0 ZB ENABLE
LIST MODE - ZB ENABLE = 0 GAIN =0
LIST MODE - ZB ENABLE = 1
GAIN = 0
LIST MODE - ZB FNABLE = 0 GAIN =1

ENABLE A ONE WORD TRANSFER
ENABLE A 512 WORD TRANSFER

= 0
= 0
= 1
= 0

= 0
=1
= 0
= 0
= 1
= 0
= 0
= 1
= 0
= 0
= 1
= 0
= 0
= 1
= 0
= 0
= 1

SECTION LIST MODE
SECTION LIST MODE

VERIFY "TIMEOUT'® FLOP SETS AND ''CLR ALL'' CLEARS IT
VERIFY "‘TIMEOUT'' FLOP SETS AND ''CLR TIMEOUT'' CLEARS IT
VERIFY "‘TIMEOUT'' INTERRUPT
VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16
VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 17
VERIFY ‘'SET EVENT'' DATA GENERATES A 177777 DATA WORD
VERIFY ''SET TIME'' DATA GENERATES A 000000 DATA WORD
VERIFY *°CLOCK ST1'' GENERATES A EVENT (177777) DATA WORD
VERIFY '‘CLOCK OVERFLOW'' GENERATES A TIME (000000) DATA WORD
VERIFY °*'SET TIME'' OVERRIDES ‘‘SET EVENT'' DATA
DO A ONE WORD MATRIX MODE TRANSFER
-CHECK FOR INCREMENT FUNCTION
VERIFY EACH BiT OF

THE

INCREMENT REG.

DATA PATH

CHECK FOR L0 BYTE ''INC OVFL'' TO SET CELL OVERFLOW AND '‘CLR CELL'' TO CLEAR IT
CHECK FOR WORD '‘INC OVFL'' TO SET CELL OVERFLOW AND '‘CLR ALL'' TO CLEAR [T
CHECK FOR '‘CELL GVERFLOW'' INTERRUPT
VERIFY CORRECT BR LEVEL

THE NCV-11

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 13
- 12
=~ 11

3106
3137
3159
3181
3208
3243
327
3299
3324
3348
3372
3448
3521
3567
3621
3674

3714
3742

3783
3792
3831
4094
4233
4271
4338
4404
4483
4561
4616

4663
4720
4763
4844
4889
4936
5018

5080
5098
5121
5144

1135
1136
1137
1140
1141
1142
7143
1144
7145
1146
1147
1150
7151
1152
7153
1154
T155
1156
1157

WORD MATRIX MODE XFR USING OFFSET

)
B
I
B

VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE
VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER
USING ZB ENABLE
VERIFY LOW BYTE OPERATION OF THE '‘TESTX'' FLOP
VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX
VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MUX
VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX
CHECK FOR HIGH BYTE ''INC OVFL'' TO SET CELL OVERFLOW
(TESTER ONLY)
VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER
VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER
(TESTER ONLY)
(TESTER ONLY)
VERIFY THAT CAMERA 01 CHANNEL IS OPERAT]ONAL
VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL
(TESTER ONLY)
VERIFY THAT CAMERA 11 CHANNEL IS OPERAT]ONAL
(TESTER ONLY)
DYNAMIC MATRIX MODE ADDRESS
DYNAMIC LIST MODE ADDRESS
DYNAMIC LIST MODE TRANSFER - MAXIMUM BUFFER LENGTH IN LOWER 28K
ONE MATRIX DATA TRANSFER TO EA(CH 4K EXTENDED MEMORY
ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY
VERIFY BIT 15 MATRIX ADDER INPUT
VERIFY HIGH BYTE OPERATION OF THE "‘TEST X'’

1160
VERIFY BIT 16 INPUT TO THE MATRIX MODE
T161
DETERMINE IF DIFLIN IS TO BE RUN (F)
END OF PASS ROUTINE
ERROR ASCI] MESSAGES
TTY INPUT ROUTINE
READ AN OCTAL NUMBER FROM THE
CONVERT BINARY TO DECIMAL AND

SCOPE HANDLER ROUTINE
TYPE

OFFSET
OFFSET
OFFSET
OFFSET
OFFSET
OFFSET
OFFSET
OFFSET

USING
USING
USING
USING
USING
USING
USING
USING

(=]
o

XFR
XFR
XFR
XFR
XFR
XFR
XFR
XFR

SEQ 0012

d
d ad o

MODE
MODE
MODE
MODE
MODE
MODE
MODE
MODE

15:05

IO I

8-AUG-78

VERIFY

MATRIX
MATRIX
MATRIX
MATRIX
MATRIX
WORD MATRIX
WORD MATRIX
WORD MATRIX
WORD
WORD
WORD
WORD

VERIFY
VERIFY
VERIFY
VERIFY

VERIFY
VERIFY

1126
1127
1130
1131
1132
7133
T134

VERIFY

1124

1125

MACY11 27(654)

CONTENTS

TABLE OF

2B46
2868
2890
2912
2934
2956
2978
3000
3022
3044
3045
3081

DIAGNOSTIC

>
>

CZINCCA NCVIM
CINCCA.PI

TTY
TYPE

ADDER

ROUTINE

BINARY TO OCTAL (ASCII) AND TYPE
ERROR HANDLER ROUT INE
ERROR MESSAGE TYPEOUT ROUTINE
APT COMMUNICATIONS ROUTINE
POWER DOWN AND UP ROUTINES
ROUTINE TO SIZE MEMORY

SAVE AND RESTORE RO-RS5 ROUTINES
INTEGER MULTIPLY ROUTINE
INTEGER DIVIDE ROUTINE
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
SINGLE LENGTI{ BINARY TO DECIMAL AS(CIZ ROUTINE
TRAP DECODER
TRAP TABLE
A TO D FIELD

SITE

AND ADJUSTMENT

L OOP

CINCCA

NCVI1

CINCCA.PN

DIAGNOSTIC

2
3
4

5
6
7
8
9

LIST

NLIST
167400

15:05

PAGE 1

SEQ 0013

TMMD _MC,CND
ABS,AMA
.ENABL
$SWR-167400

MCALL

.SACT11,.SAPTHDR,.SAPTRLS,.SAPTYPE

o
12
13

TITLE
CINCCA NCV11
DIAGNOSTIC
:«COPYRIGHT (C) 1978
;*DIGITAL EQUIPMENT CORP.

; *PROGRAM BY RAYMOND SHOOP

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDFC SYSMA(

:*MAYNARD, MASS. 01754

B8-AUG-78

$IN 1
LMCALL
.S$CATCH,.S$CMTAG,.STYPE,.SEOP,
.EQUAT, .HEADER, . $ERROR, . $TYPO( T
.MCALL
.SPARM, _SPOWER,.SREAD,.$SAVE,.$SCOPE,.SETUP,
. $SPA(CE,.$SWDOC,.STYPE, . STRA
.MCALL
.SWRHI,.SERRTYP,.$TYPDS,.STYPBIN,SOF
TSWR, . $(KSWR
.MCALL .SRDOCT,.$SIZE..KT11,.8DIv,.SMUL",
. $SAVE,.$SB2D,.$DB2D

000001

MACYT1 27(654)

;wPACKAGE
s

gs
23
26
25
gg
28

29
30
31
32
33
34
25

36
37

.SBTTL

001100

000011
000012
000015
000200
177776
177774

(MAINDEC-11-DZQAC-C3), JAN 19,

1977.

BASIC DEFINITIONS

;«INITIAL ADDRESS OF THE STACK POINTER ewe 1100 swe
STACK
1100
.EQUIV EMT,ERROR
;:BASIC DEFINITION OF ERROR CALL
.EQUIV ]OT,SCOPE
::BASIC DEFINITION OF SCOPE CALL
; *MISCELLANEOUS DEF INITIONS
HT
1M
::CODE FOR HORIZONTAL TAB
LF=
12
:;CODE FOR LINE FEED
CR15
;:CODE FOR CARRIAGE RETURN
CRLF=
200
;:CODE FOR CARRIAGE RETURN-L
INE FEED
PS177776
: ;PROCESSOR STATUS WORD
.EQUIV PS,PSW
STKLMT- 177774

;:STACK LIMIT REGISTER

DDISP-

: :HARDWARE DISPLAY REGISTER

177772
177579

PIRQ
DSWR-

000000
000001
000002
000003

; *GENERAL PURPOSE REGISTER DEF INITIONS
ROX0
: ;GENERAL REGISTER
R1=
21
: ;GENERAL REGISTER
R2%2
: :GENERAL REGISTER
R3%3
: :GENERAL REGISTER

46
47
48

000005
000006
000007

RSR6R7

40
41
42

g?
52

53
54

177570

000004

000006

Ré-

SP-

000007

PC=

000000
000040

PRO=
PR1-

177772
177570

177570

. *PROGRAM INTERRUPT REQUEST REGISTER
: :HARDWARE SWITCH REGISTER

y 73

::GENERAL REGISTER

::STACK POINTER

15
26
17

' ¥4

; :GENERAL REGISTER
: :GENERAL REGISTER
: :GENERAL REGISTER

; :PROGRAM COUNTER

:*PRIORITY LEVEL DEFINITIONS

0
40

;:PRIORITY LEVEL O
;;PRIORITY LEVEL 1

DIAGNOSTIC

MACY1T 27(654)

BASIC DEFINITIONS

8-AUG-78

B 2
PAGE 2

PR2=
PR3=
PR =
PRS=
PR6=
PR7=

100000
040000

;%' 'SWITCH REGISTER'' SWITCH DEF INITIONS
SWi5=
100000
Swi4é=
40000

SWw13=

010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
J00001

Swi2=
SWll=
Sw10=
sw09=
Sw08=
swo7=
Swo6=
SW05=
Swo4swo3=
SwWo2=
swo1=
sSw0o=
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

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

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BIT07=
BIT06=
BITO5=
BIT04=
BIT03=
BITO2=
BITO1=
BITO0=
.EQUIV
.EQUlv

;.PRIORITY
;;PRIORITY
;;PRIORITY
;;PRIORITY
s:PRIORITY
;;PRIORITY

SEQ 0014

000100
000140
000200
000240
000300
000340

020000

100
140
200
240
300
340

15:05

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

20000

10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
SW09,Sw9
SW08,Sw8
SWO7,Sw?7
SWO06,SW6
SWO05,SW5
SW04,SwW4
SWO03,Sw3
SW02,Sw?
SWO?,SW1
SWOO0,Sw0

:*DATA BIT DEFINITIONS (BITO0 TO BIT15)
100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BIT09,BIT9
BIT08,BIT8

NON
NS NN

CINCCA NCVT
CINCCA.°1

CINCCA

NCVI1

CINCCA.PIT

DIAGNOSTIC

MACY11 27(654)

BASIC DEF INITIONS

109
110
11
112
113
114
115
119

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIv
.EQUIV
.EQUIV
.EQulv

B8-AUG-78

15:05

PAGE 3

BITO7,BIT7
BIT06,BIT6
BITO05,BITS
BIT04,BITS
BIT03,BIT3
BIT02,BITZ
BITO1,BIT1
BIT00,BITO

118
119
120

000004
000010

;*BASIC ''CPU"" TRAP VECTOR ADDRESSES
ERRVEC= &
;. TIME OUT AND OTHER ERRORS
RESVEC= 10
:;RESERVED AND ILLEGAL INSTRUCTIONS

122
123

000014
000014

TRTVEC= 14
BPTVEC= 14

YUY
S
S
U
N
G
NS

D NANWWWWNWWNWNWWNI
NN NN
=2OVONOWVIS WSOV
NN NS

121

;2§

000014

000020
000024
000030
000034
000060
000064
000240

;. TRACE TRAP
; ;BREAKPQINT TRAP (BPT)

IOTVEC= 20
;s INPUT/0UTPUT TRAP (IOT) *xSCOPEx*
PWRVEC= 24
;. POWER FAIL
EMTVEC= 30
; ;EMULATOR TRAP (EMT) *xERROR**
TRAPVE (=34
;. 'TRAP'' TRAP
TKVEC= 60
;. TTY KEYBOARD VECTOR
TPVEC= 64
;:TTY PRINTER VECTOR
PIRQVE(=240
; :PROGRAM INTERRUPT REQUEST VECTOR
.SBTTL MEMORY MANAGEMENT DEFINITIONS

000250

MMVEC=
;*KT11

177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=

250
STATUS REGISTER ADDRESSES

177572
177574
177576

172516

:*USER "‘I'' PAGE DESCRIPTOR REGISTERS
177600
177602
177604
177606
177610
177612
177614
177616

}gg
157
158
159
160
161
162

;T BIT

;*KT11 VECTOR ADDRESS

122
146
147
148
149
150
151
152
}gz

TBITVEC=14

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDR6=
UIPDR7=

177600
177602
177604
177606
177610
177612
177614
177616

:*USER ‘D'’ PAGE DESCRIPTOR REGISTORS
177620
177622
177624
177626
177630
177632

UDPDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=

177620
177622
177624
177626
177630
177632

SEQ 0015

CINCCA NCVIT
CINCCA.PTT
163
164
165

MACYTT 27(654)
DIAGNOSTIC
MEMORY MANAGEMENT DEF INITIONS
177634
177636

168
169
170
7
172
173
174

175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195

196
197
198
199
200

201
202
203
204
205
206
207
208
209
210
21
212
213
214
215
216

15:05

D 2
PAGE 4

UDPDRé6= 177634
UDPDR7= 177636

J*USER ''I'' PAGE ADDRESS REGISTERS

166

167

8-AUG-78

177640
177642
177644
177646
177650
177652
177654
177656

UIPAROQ=
UIPAR1=
UIPARZ2=
UIPAR3=
UIPAR4=
UIPARS=

177640
177642
177644
177646

177650

177652
UIPARS= 177654

UIPAR7= 177656

‘

;*USER 'D'' PAGE ADDRESS REGISTERS
177660
177662
177664
177666
177670
177672
177674
177676

UDPARO= 177660
UDPAR1= 177662
UDPARZ2= 177664
UDPAR3= 177666
UDPAR4= 177670
UDPARS= 177672
UDPARG= 177674
UDPAR?7= 177676

;*SUPERVISOR ''I'* PAGE DESCRIPTOR REGISTERS
172200
172202
172204
172206
172210
172212
172214
172216

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
SIPDR7=

172200
172202
172204
172206
172210
172212
172214
172216

;*SUPERVISOR 'D'' PAGE DESCRIPTOR REGISTERS
172220
172222
172224
172226
172230
172232
172234
172236

SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS=
SDPDRé6=
SDPDR7=

172220
172222
172224
172226
172230
172232
172234
172236

;*SUPERVISOR '‘I'' PAGE ADDRESS REGISTERS
172240
172242
172244
172246
172250

172240
172242
172244
172246
SIPAR4= 172250

SIPARQ=
SIPAR1=
SIPARZ2=
SIPAR3=

SEQ 0016

CZINCCA NCVIT
CINCCA.PN

217

218
219

220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240

241
242
243
244
245
246
247
248
249

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270

MACY11 27(654)
DIAGNOSTIC
MEMORY MANAGEMENT DEF INITIONS
172252
172254
172256

8-AUG-78

15:05

E
2
PAGE 5

SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256

;*SUPERVISOR ‘D'’ PAGE ADDRESS REGISTERS
172260
172262
172264
172266
172270
172272
172274
172276

SDPARQ=
SDPAR1=
SDPAR?Z=
SDPAR3=
SDPAR4=
SDPARS=
SDPAR6=
SDPAR7=

172260
172262
172264
172266
172270
172272
172274
172276

J*KERNEL °'I'' PAGE DESCRIPTOR REGISTERS
172300
172302
172304
172306
172310
172312
172314
172316

KIPDRO= 172300
KIPDR1= 172302
K1PDR2= 172304

KIPDR3= 172306
KIPDR4= 172310
KIPDR5= 172312
KIPDR6= 172314
KIPDR7= 172316

;*KERNEL 'D'' PAGE DESCRIPTOR REGISTERS
172220
172322
172324
172326
172330
172332
172334
172336

KDPDRO= 172320
KDPDR1= 172322
KDPDR?2= 172324
KDPDR3= 172326
KDPDR&= 172330
KDPDR5= 172332
KDPDR6= 172334
KDPDR7= 172336

;*KERNEL °'I'" PAGE ADDRESS REGISTERS
172340
172342
172344
172346
172350
172352
172354
172356

KIPARO=
KIPAR1=
K]PARZ2=
KIPAR3=
KI1PAR4=
KIPARS=
K1PAR6=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

J*KERNEL D'’ PAGE ADDRESS REGISTERS
172360
172362
172364
172366

KDPARQ=
KDPAR1=
KDPARZ2=
KDPAR3=

SEQ 0017

CZNCCA NCV1T
CINCCA.PT1

271
272
273
274
275
276
277
278
279

MACY11 27(654)
DIAGNOSTIC
MEMORY MANAGEMENT DEF INITIONS

8-AUG-78

172370
172372
172374
172376

172370
172372
172374

172760
140370
170420

KDPAR4=
KDPARS=
KDPAR6=
KDPAR?7=

15:05

PAGE 6

SEQ 0018

172376

ABASE=172760

AVECT1=140370
ACDW1=170420

;NCv11

BASE ADDRESS

;BR LEVEL 6 VECTOR TO 370
sNCV11 CLOCK ADDRESS

NCVI
CZNCCA
CINCCA.P11

280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297

298
299
300
301
302
303
304
305
306
307

MACY11 27(654)
DIAGNOSTIC
MEMORY MANAGEMENT DEF INITIONS
.SBTTL
.

[

]
.

[]
.

]

»
-

]

15:05

8-AUG-78

G 2
PAGE 7

SEQ 0019

OPERATIONAL SW.TCH SETTINGS

x
*

SWITCH

USE

HALT ON ERROR
LOOP ON TESI

INHIBIT

ITERATIONS

BELL ON ERROR

LOOP ON TEST IN SWR<7:0>

.SBTTL

INHIBIT ERROR TYPEOUTS

TRAP

LOOP ON ERROR

CATCHER

.=0

000000

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A '".+2 HALT"'

s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION194CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000176

00C174
000000
0000620

000200
000204
000210

000137
000137
000137

002032
002012
002020

000100

000100
000104

000200

DISPREG: .WORD
SWREG:
.SBTTL

000002

2 ;SOFTWARE DISPLAY REGISTER

104,200,2

:B EVENT SAFE GUARD

.WORD
O
;;SOF TWARE SWITCH REGISTER
STARTING ADDRESS(ES)
JMP
A#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM
JMP
RTRT
sRESTART ADDRESS
JMP
TESTER
;STARTING ADDRESS WHEN IN THE OPTION AREA
=100

308
309
310
3N
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335

336

337
338

339
3«0

DIAGNOSTIC
ACT11 HOOKS

MACY11 27(654)

B8-AUG-78

.SBTTL
N

000046

002052

000106
000046
030164
000052
000000
000106
001000

15:05

SEQ 0020

ACT11 HOOKS
2

23322222222332222223232833223332323
222222322232 22222222 2822 £ 1

"HOOKS REQUIRED BY ACT11
ssxzc

: SAVE PC

iEgBAD

JWORD

_SBTTL
SR

PAGE 8

::1)SET LOC.46 TO ADDRESS NF SENDAD IN .$EOP

T=$SVPC
121000
APT PARAMETER BLOCK

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

2222222222323 233232322232222222232222222822222202Z3222222222222R2Z2ZR2RHR,|

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
; AR A NRRA AR AR TR A RARRARRAARRRRRARRRNRKRRANRARRRRRRE AR RN Rk
000024
000044

LEX=.
.=24
200
.44
$APTHDR
=.8X

001000
000024
000200
000044
001000
001000
KRR

s SAVE CURRENT LOCATION
;;SET POWER FAIL TO POINT TO START OF PROGRAM
;;FOR APT START UP
;;POINT TO APT INDIRECT ADDRESS PNTR.
;.POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER

AAR R AR

RA R RN AR

AN RN

RE AR AR

RN RN AR AR AN N RN R

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

001002
001004
001006

001010
001012

000000
001174
000030
000010
000030
000031

$APTHD:

$HIBTS:

.WORD

$TSTM:
$PASTM:
SUNITM:

_WORD
_WORD
.WORD
.WORD

30
;;RUN TIM OF LONGEST TEST
10
::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
30
:;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND-SMAIL/2 ::LENGTH MA]JLBOX-ETABLE (WORDS)

SMBADR:

.WORD

SMA]L

:;TWO HIGH BITS OF

18 BIT MAILBOX ADDR.

: ;ADDRESS OF APT MAILBOX (BITS 0-15)

CINCCA NCVI
CINCCA.PV?

DIAGNOSTIC
COMMON TAGS

MACY11 27(654)
.SBTTL

B-AUG-78

15:05

PAGE 9

SEQ 0021

COMMON TAGS

':itttt*tt**fititttttttitttittfititkfiitt*fitt**tttttl'ttttttttiittit

T*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PROGRAM.

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$ERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$8DADR: .WORD
$GDDAT: .WORD
$8DDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
.WORD
SWR:
DISPLAY: .WORD

177570

177570
177560
177562
177564
177566
000
002
012
009
000000
000000
177607
077
015
000012

$TKS:
$TKB:
$TPS:
$TPR:

000377

177560
177562
177564
177566

$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TIMES: O
$ESCAPE:
0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
L.ASCII
$LF:
.ASCIZ

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

;sADDRESS OF SWITCH REGISTER
. ;ADDRESS OF DISPLAY REGISTER

€
P

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000

.=1100
=4 QOO OOO0OOCO—-OOOOOOOOO

SCMTAG:

ODISP

;:TTY KBD STATUS

;s TTY KBD BUFFER

;:TTY PRINTER STATUS REG.

ADDRESS

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

001100

:;INSERT FILL CHARS. AFTER A "LINE FEED"
;o 'TERMINAL AVAILABLE'® FLAG (BIT<07>=0-YES)
;sMAX. NUMBER OF ITERATIONS
; :“SCAPE ON ERROR ADDRESS

<207><377><377> -:CODE FOR BELL

;s QUESTION MARK
;- CARRIAGE RETURN
;;LINE FEED

/?/
<15>
<12>

;;fi'tt*ttttt*t*tt!tttttt'ttttitfitfitfitfi**ttfi*it*t*tt*ttttttttttitt

.SBTTL

APT MA]ILBOX-ETABLE

:;ttttttttfittt*t**fit*titttttfit*tttfifittt*tttttttttttfitttttttittfitt

001174
001174
001176
001200
001202
001204

000000
000000
000000
000000
000000

.EVEN
SMA]L:
$MSGTY:
:
$FATAL
$TESTN:
$PASS:
$DEVCT:

.WORD
.WORD
.WORD
.WORD
.WORD

AMSGTY

AFATAL
ATESTN
APASS
ADEVCT

::APT MAILBOX
;;MESSAGE TYPE (CODE

::FATAL ERROR NUMBER
;3 TEST NUMBER

;. PASS COUNT
;:DEVICE COUNT

CZNCCA NCV11
CINCCA.P11

CINCCA NCVIT
CINCCA.P1Y

001206
001210
001212
701214
0214
001216
001220
001222

DIAGNOSTIC

MACY11 27(654)

APT MAILBOX-ETABLE

B-AUG-78

15:05

000000
000000
000000

$SUNIT:
$MSGAD:
$MSGLG:

_WORD
.WORD
.WORD

AUNIT

000
000
00VULL

$ENV:
$ENVM:
$SWREG:

.BYTE
_BYTE
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

000000
000000

SETABLE:

$USWR:
$CPUOP:

.WORD
.WORD

AMSGAD

AMSGLG

Tx
"t
:t

:t
:t

001224
001225

000
000

$MAMS1:
$MTYP1:

_BYTE
.BYTE

AMAMS
AMTYP1

.WORD

AMADR1

.BYTE
.BYTE
.WORD
_BYTE
.BYTE
.WORD

AMAMS
2
AMTYP?2
AMADR?2
AMAMS
3

- %

“x

"t
"t

001226

000000

$MADR1:
. %

001230
00120
w1237
00124
00235

>J1236

. 001240

" 001241
001242
001244
001246
001250
001252
001254
001256

Tov
0
000000
000
000
000000

000
000
000000
140370
000000
172760
000000
170420

$MAMS?:
MTYP2:
$MADR2:
$MAMS3:
$MTYP3:
$MADR3:

$MAMSS:
$MTYPS:
$MADRS:
$VECT1:
$SVECT2:
$BASE:
$DEVM:
$CDW1:
$ETEND

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

AMTYP3
AMADR3

AMAMSS
AMTYP4
AMADRY
AVECT1
AVE(CT?
ABASE
ADEVM

ACDW1

PAGE 10

;. 1/0 UNIT NUMBER
2 ;MESSAGE ADDRESS
;s MESSAGE LENGTH
;:APT ENVIRONMENT TABLE
;;ENVIRONMENT BYTE
: ;ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER

::USER SWITCHES
;:CPU TYPE ,OPTIONS
BITS 15-11=CPU TYPE
11704=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT

;;HIGH ADDRESS.M.S. BYTE

;;MEM.

TYPE ,BLKA1

(HIGH BYTE)
~MEM.TYPE BYTE
900 NSEC CORE=001
300 NSEC BIPOLAR=00?
500 NSEC M0S=003

;:HIGH ADDRESS.BLKA#1

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF 'TYPE'' ABOVE

;:HIGH ADDRESS.M.S. BYTE
::MEM.TYPE ,BLKNZ2
; JMEM.LAST ADDRESS.BLK#?
ESS
. M.S.BYTE
:;HIGH ADDR
.
,BLKA3
EM
TYPE
: :M

; :MEM.LAST ADDRESS.BLK#3
;:HIGH ADDRESS.M.S.BYTE
:;MEM.TYPE ,BLK#4
::MEM.LAST ADDRESS,BLK#4

:: INTERRUPT VECTORA1,BUS PRIORITY#
:: INTERRUPT VECTOR#2BUS PRIORITY#?
:;BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
: :CONTROLLER DESCRIPTION WORD#1

SEQ@ 0022

CINCCA NCV1T
CINCCA P11

MACY1" 27(654)
DIAGNOSTIC
ERROR POINTER TABLE

.SBTTL

434

435
436

483
484
485
486
487

15:05

PAGE

SEQ 0023

ERROR POINTER TABLE

;- THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*1NE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

437
438
439
440
461
442
443

;*LO"ATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEMB IS O THE ONLY PERTINENT DATA IS (S$ERRP().

001256
001256
001264
001266
001274
001276
001304
001306
001314
001316
001324
001326
001334
001336

001344

001346
001354
001356
001364
001366
001374
001376
001404
001406
001414
001416
001424
001426

001434
001436
001444
001446
001454
001456
001464
001466
001474
001476
001504
001506

030220
033002
030260
033002
030324
033002
030372
033002
030432
033002
030473
033002
030527
033002
030573
033002
030640
033002
030706
033002
030741
033002
030777
033002
031033
033002
031065
033002
031120
033002
031153
033002
031234
033002
031305
033002
031360
033002
031432

;*NO1 <1
J*NOTL
2:
Sovew.n,

444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
L6k
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482

8-AUG-78

$ERRTB:

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
EM
DH
DT
DF

;:POINTS TO
;;POINTS TO
; ;POINTS TO
;;POINTS TO

THE ERROR MESSAGE
THE DATA HEADER
THE DATA
THE DATA FORMAT

E.11,DH2,DT2,DFO

:M8026

NCV11

032730

EM.",DH2,DT2,DFO

:M8026

COMMAND-~STATUS REGISTER ERROR

032500

032730

EM3 DH2,DTZ2,DFO

:M8026

SPECIAL FUNCTION REGISTER ERROR

032500

032730

EM&4, 'H2,DT2,DFO

:MB026

WORD COUNT REGISTER ERROR

032500

032730

EMS,I H2.DT2,DFO

:M8026

BUS ADDRESS REGISTER ERROR

032500

032730

EM6, H2,DT2,DFO

;M8026

OFFSET REGISTER ERROR

032500

032730

EM7 DH2.DTZ2,.DFO

;MB026

DUAL REGISTER SELECTION ERROR

032500

032739

E¥0,DH2.DT2,0FO

:M8026-M8036

LOW 16 BIT Z COUNT ERROR

032500

032730

:M11,DH2.DT2.D J

:M8026-M8036

HIGH 16 BIT Z COUNT ERRCR

032500

032730

EM12,DH2,DT2,DFO

:M8026

Z COUNT STATUS ERROR

032500

032730

EM13,DH2,DT2,DFO

;M8026

Z COUNT INTERRUPT ERROR

032500

032730

EM14,DH2,DT2,DFO

:M8036

JOYSTICK STATUS ERROR

032500

032730

EM15,DH2,DT2,DFO

;MB036

JOYSTICK DATA ERROR

032500

032730

EM16,DH2,DT2,DFO

;M8036

DATA INCREMENT ERROR

032500

0327%2)

EM17,DH2.DT2,DFO

;MB036

DATA DECREMENT ERROR

032500

032730

EM20,DH2,.DT2,DFO

;M8026-M8036

032500

03" 730

EM21,DH2.DT2,DFO

;M8026

LIST MODE ADDRESS MAKER DATA ERROR

032500

0:2730

EM22,DH2,DT2,DFO

:M8026

LIST MODE TRANSFER BUS ADDRESS ERROR

032500

02730

EM23,DH2,DT2,DFO

:MB026

LIST MODE TRANSFER WORD COUNT ERROR

032500

0 2730

EM24 ,DH2,DT2,DFO

:M8026

LIST MODE TRANSFER OFFSET ERROR

032500

032730

032500

TIMEOUT

MATRIX MODE ADDRESS MAKER DATA ERROR

CZNCCA NCVIT
CZNCCA P11
488
489
e

W9
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525

00°514
w1516
001524
001526
001534
001536
001544
001546
001554
001556

MACY11 27(654)
DIAGNOSTIC
c¢RROR POINTER TABLE

001564
001566
001574
001576
001604
001606
001614
001616
001624
001626
001634
001636
001644
001646
001654
001656
001664
001666
001674

033002
031500
033002
031533
033002
031571
033002
031640
033002
031700
033002
031761
033002
032005
033002
032051
033002
032106
033002
032173
033002
032241
033002
032305
033002
032365
033002
032425
033002

001676
001700
001702
001704

176510
176512
176514
176516

8-AUG-78

15:05

PAGE 12

SEQ 0024

032500

032730

EM25,DH2.,DT2,Dr0

:M8026

TIMEOUT STATUS ERROR

032500

032730

EM26,DH2,DT2,DFO

:M8026

TIMEOUT INTERRUPT ERROR

032500

032730

EM27,DH2,DT2,DFO

:M8026

SET "EVENT'' OR 'TIME'' DATA ERROR

032500

032730

EM30,DH2.DT2,DFO

:M8026

CELL

032500

032730

EM31,DHZ,DT2,DFO

;MB026

CELL OVERFLOW STATUS ERROR

032500

032730

EM32,DH2,DT2,DFO

:M8026

CELL CVERFLOW INTERRUPT ERROR

032524

032742

EM33,DH3,.DT3,DFO

;MB8026

MATRIX MODE ADDRESS MUX ERROR

032500

032730

EM34,DH2,DT2,DFO

:MB026

"TESTX"* FUNCTION ERROR

032557

032756

EM35,DH4 ,DT4,DFO

;M8026

DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY

032500

032730

EM36.DH2.DT2,DFO

:M8026

LIST MODE TRANSFER STATUS ERROR

032524

032742

EM37.,DH3,DT3,DFO

:M8026

LIST MODE TRANSFER DATA ERROR

032500

032730

EM4O,DH2,DT2,DFO

; JUMPER-MB026-M7952

032465

032774

EM41,DH1,DT5,DFO

:M7952

CLOCK TIMEOUT

032465

032722

EM42,DH1,DT1,DFO

;M8217

INTERRUPT LEVEL ERROR

INCREMENT DATA ERROR

"EVENT'' OR '‘TIME'' MARK ERROR

;DL11 BLASTER COMM. ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)

DLICSR:
DLIBD:
DLOCSR:
DLODB:

176510
176512
176514
176516

; INPUT STATUS REG.

;INPUT DATA
;OUTPUT STATUS

;OUTPUT DATA

;VSVO1 ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)
STATUS

172600
172602

;CHAR.

172620
172622
172624
172630

:MAP STATUS

001706
001710
001712
001714
001716
001720
001722
001724

172600
172602
172603
172604
172620
172622
172624
172630

VI(CHAR:
VvIYPOS:
VIXPOS:
VICXY:
VICSR:
VIMAP:
VIPX:
VTINT:

001726
001730
01732
LM734
00.736

176416
176420
176422
176424
176426

;TESTER ADDRESSES
176416
DACSR:
176420
DACO:
176422
DAC1:
2:
176424
DA(C
176426
DAC3:

172603
172604

(THE OPERATOR MUST CHANGE IF DIFFERENT)
;KNOWN GOOD D/A STATUS

CINCCA NCV11
CINCCA.PW

DIAGNOSTIC

ERROR POINTER TABLE

JKWV11

539

540
561
562
543
544
545
546
547
548
549
550
551
552
553
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

MACY1T1 27(654)

001740
001742
001744

170420

170421

170422

8-AUG~78

15:05

PAGE

SEQ 0025

PROGRAM GENERATED ADDRESSES (THE OPER. ONLY HAS TO CHANGE

ACDW
I
KWCSR1: ACDW+1
ACDW1+?2
KWPSR:
KWCSR:

;KWV11
;KwWwV11

")
'$CDW1

STATUS REGISTER
STATUS REG. HIGH BYTE

;KWV11 PRESET REGISTER

')
JNCVIT PROGRAM GENERATER ADDRESSES (THE OPER. ONLY HAS TO CHANGE '$BASE

001746
001750
001752
001754
001756
001760
001762
001764
001766
001770

172760
172762
172764
172766
172770
122772
172774

172776
172761
172771

(SR:
F:
OF
WCR:
BAR:
SFR:
ADM:
JOY:

BAR1:
(SRHB:
SFRHB:

ABASE

ABASE +2

+4
ABASE
ABASE
+6
ABASE+10

ABASE+1?2
ABASE+14
ABASE+16
+1
ABASE
ABASE+11

JNCVI PROGRAM GENERATED VECTORS (THE OPER. ONLY HAS TO CHANGE LOW 9 BITS OF
001772
001774
001776
002000

140370
140372
140374
140376

VECTAO:
VECTAY:
VECTBO:
VECTBI1:

AVECT1
AVECT1+2
AVECT1+4
AVECT1+6

JNCVIT PROGRAM GENERATED BR LEVEL
002002

000200

RRLEV:

002004
002006
002010

000000
000001
000020

STEMP:
0
CPUDLO: 1
CPUDL1: 20

040000
004000
000400
000010
000004
000002
000001
000000

°*SVECT1'")

300

(THE OPER. ONLY HAS TO CHANGE TOP 3 BITS OF

;BR LEVEL 6

CLRW(CO=BIT14
CLRALL=BITI
ENDDMA=B]
T8
TSTDMA=BIT3
TSTCON=BITZ2

TFS12=8IT1
REDJOY-BITO
MORTST O

;DEFINE TO RESTORE TEST CODE

°*SVECT1'")

NCVIT
CINCCA.P1T
CINCCA

582
583
584
585
586
587

002012
002016
002020
002024
002030
002032
002036
002042

MACY1T 27(654)
ERROR POINTER TABLE
DIAGNOSTIC

005237

05C116

005237
005037

050110
050116

000411

000404
005037
005037

AGAN
RTRTA
WFMODE

B8R

RTRTA

CLR

WFMODE

(LR

BEGIN:
RTRTA:

LSBTTL

002042
002046
002050
002054
002056

012706

002062
002070
002076
002104
002112
002120
002126
002134
002142
002150
002154
002160
002166
002174

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
012737

034106
000340
035102
000340
037266
000340
035704
000340
030132
001160
001162
000001
002166
002174

002202
002206
002214
002222

002230

013746
012737
012737
012737
022777

000004
002242
177570
177570
177777

002240
002242
002246
002250
002256
002264

000403
012716
000002
012737
012737
012637

002270
002274
002302
002304
002312

002236

INC
B8R
TESTER: INC

RTRT:

050116
050110

005026
022706

001374
012706

001012

AGAN

INITIALIZE

(MpP

001140

001100

SEQ 0026
;JSET RESTART FLAG

JSET FLAG INDICATING OPTION AREA MODE

;JCLEAR FLAG INDIC. OPTION TEST AREA MODE

THE (OMMON TAGS

#SWR,R6 ; ;DONE?

BNE
MOV

=6
#STACK ,SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV

#3$SCOPE ,a#JOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,3M]0TVEC+2 ;.LEVEL 7
#SERROR ,aNEMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
#340,QNEMTVEC+2 ;.LEVEL 7
N#STRAP ,¥TRAPVEC ;;TRAP VECTOR FOR TRAP (ALLS
+2; LEVEL 7
N340, a8 TRAPVEC
#SPWURDN ,a#PWRVEC :;POWER FAJLURE VECTOR
#340,30PWRVEC+2 ;.LEVEL 7
2:SETUP END-OF =PROGRAM (OUNTER
SENDCT,SEOPCT

J2INITIALIZE A FEW VECTORS

;:L00P BACK [F NO
;;SETUP THE STACK POINTER

(LR
$STIMES
;2 INITIALIZE NUMBER OF ITERATIONS
(LR
$ESCAPE
;:CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
#1,SERMAX
MovB
MOV
#.,SLPADR
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#. SLPERR
;2SETUP THE ERROR LOOP ADDRESS
IF NOT FOUND OR [T IS
REGISTER.
SWITCH
HARDWARE
;:SIZE FOR A

. JEQUAL

001142
176702

64%:

002250

000176
000174

001140
001142

005037

001202
000200

001215

012737

001216

001140

132737
001403

(LR

N 2
PAGE 14

;. CLEAR THE COMMON TAGS (SCMTAG) AREA
MoV
#S(MTAG,R6
;2FIRST LOCATION TO BE CLEARED
(LR
(R6)+
;;CLEAR MEMORY LOCATION

001100

000004

15:05

8-AUG-78

65%:
66%:

67%:

TO A ""=1"', SETUP FOR A SOF TWARE SWITCH REGISTER.
MOV
S#ERRVEC,-(SP)
;,SAVE ERROR VECTOR
MOV
#4648 ,INERRVEC
;;SET UP ERROR VECTOR
MOV
#DSWR, SWR
;:SETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP .DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
MP
#-1,aSWR
;2TRY TO REFERENCE HARDWARE SWR
BNE
663
;BRANCH IF NO TIMEOUT TRAP OCCURRED

;;AND

THE HARDWARE SWR IS NOT

;.BRANCH IF NO TIMEOUT

65%

MOV
MOV
MOV

#SWREG, SWR
;.POINT TO SOF TWARE SWR
#D]SPREG,DISPLAY
(SP)+ ,a#ERRVEC
;;RESTORE ERROR VECTOR

(LR
BITB
BEQ

$PASS
HAPTSIZE ,$ENVM
67%

Q?Y

MOV

#65%, (SP)

#$SWREG, SWR

;.SET UP FOR TRAP RETURN

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

2JNO,USE APT SWITCH REGISTER

-1

CZNCCA NCVT
CINCCA P

633
634
635
636
637

DIAGNOSTIC

MACY11 27(654)

TYPE PROGRAM NAME

002312
002316
002320
002326

005227

002334
002340
002342
002350
002352
002360
002362
002364
002366
002374
002374

005737
001012

000042

001214

000001

023727
001005

001140

000176

002330

001044
022737
001440
104401

123727
001406

177777

030164

000042

002376

112737

.SBTTL

001134

000415

681

002430
002436
002444
002450
002454
002456
002462
002466
002470
002474
002476
002502
002506
002512
002514
002516
002522
002526
002532
002534
002536
002542
002544
002552
002560
002566
002572

112737

012737
012700
013701
010120
062701
022700
001372
013710
005220
013719
062720
013701
010102
000302
042702
010237
042701
010120
005721
022700
001373
013737
013737
013737
005237
062737

000103
003210
001746
001250

70%:
71%:

052474

000004
1%:

000002
001766

ak4?l

CMP
BNE

SWR,#SWREG
71%

001250
001250
000011
001244

001254
001740
001740
001742
000002

68%

.SBTTL

PRIME THE NCV11 ADDRESSES FROM THE DEFAULT VALUES
#'CRUNIT
;LOAD ''CONTROL'" SECTION BUS TRAP fLAG
#BUSTRP ,a#ERRVEC(
;LOAD BUS TRAP RETURN ADDRESS
S POINTER
#CSR,RO
ADDRES
;GET
T ADDRESS
$8ASE ,R1
DEFAUL
;GET
R1,(RO)+
;LOAD AN VALUE
#2 ,R1
;BUMP THE VALUE

ASCIZ

MOVB
MOV
MOV
MOV
MOV
ADD

BIC

177437
002002

MOV

2%:

001740
001742
001744

001744

70%
., #1
SENV
70%

;,ARE WE RUNNING UNDER XXDP/A(CT?
s ;BRANCH IF YES
;;ARE WE RUNNING UNDER APT?
;;BRANCH IF YES
;;SOFTWARE SWITCH REG SELECTED?
s ;BRANCH IF NO
2;GET SOFT~SWR SETTINGS

71%
#1,8AUTOB

ADD
MOV
MOV
SWAB

002002

SEQ 0027

BR
mMovB

cMP
BNE
MOV
INC
MOV

160000

PAGE 15

TST

BNE
CMPS
BEQ

;:69%:
68%:

002430

(Mp
#SENDAD
, a#4?2
JACT=112?
68%
BEQ
; ;BRANCH IF YES
;s TYPE ASCIZ STRING
TYPE
,69%
GET VALUE FOR SOF TWARE SWITCH REGISTER

GTSWR

000001

15:05

TYPE PROGRAM NAME
.SBTTL
;:TYPE THE NAME OF THE PROGRAM IF FIRST PASS
J:FIRST TIME?
#-1
INC
68%
BNE
:;BRANCH [F NO

104406

000403

8-AUG-78

<CRLF>#CZNCCA

#(SRHB,RO
1%

$BASE, (RO)
+
(RO)
$BASE, (RO)
#11,(RO)+
$VECT1,R1
R1,R2
R2

#177437
,R2
RZ2,BRLEV

BIC
MOV

#160000,R1
R1,(RO)+

CMP
BNE
MOV
MOV

#VECTB1+2,R0
2%
$CDW1,.KWCSR
KWCSR,KWCSR1

TST

MOV
INC
ADD

(R1)+

KWCSR,KWPSR
KWCSR1
#2 ,KWPSR

;;SET AUTO-MODE INDICATOR

::GET OVER THE ASCIZ

NCV11

JTEST

DIAGNOSTICH<CRLF>

DONE

sBR IF NOT
;LOAD 0ODD BYTE
;ADDRESSES

JGET DEFAULT VECTOR
.COPY R1
JEXCHANGE BYTES
;STRIP OFF ALL BUT BR LEVEL BITS
;SAVE FOR USE LATER
;CLEAR OFF BR LEVEL
;LOAD VECTOR
;BUMP THE VALUE
;TEST IF DONE

;GET CLOCK ADDRESS
;SET CLOCK HIGH BYTE ADDR.
JSET CLOCK PRESET ADDRESS

NCVI1
CINCCA
CINCCA.PI

8-AUG-78
MACY11 27(654)
DIAGNOSTIC IDENTIFICATION TYPEOUT

002600
002604
002606
002612
002614
002622
002626
002632
002634
002636
002640
002642

005737
001017

002644
002650
002652
002656

104401
104411

002664
002672
002700
002702

002706
002712
002714
002722
002724
002730
002736
002740
002744
002750
002756
002760
002766
002772
002776
003000
003006
003010
003014
003022
003024

105737

001405
012737
000137
005737
001402

.SBTTL

TST
BNE

050116

001134
177777
003356
050110

T1STB

BEQ

050106

MOV

3%:

104401
046466

013637
142737
112737
122737
001002
000137
005737
001406

122737
001002
000137
122737
001004
005037
000137
122737
0010065
012737
000137
005737
001406
122737
001002
000137
122737
001004

005037
000137
122737
001002
000137

005737
001406
122737
001002

JMP
TST
BEQ

TYPE

104401

046256

122737
001002
000137

003070
003072
0031C0

15:05

DIAGNOSTIC

LSBTTL
RBEGO:
1%:

04710

052474
000040
000042
000101

052474
052475
052474

003276
050110

2%:

000102
042322
000104

050106
043712
000106

052474

177777
003356
050110

050106

0C0111

052474

047106
000114

052474

RDLIN
MOV

81C(8B
MovB
(MPB
BNE
JMP
TST
BEQ
CMPB
BNE
JMP
CMPB
BNE
CLR
JMP
CMPB

a(SP)+ ,RUNIT
#40,RUNIT

#'"',RUNIT+1
#'A_RUNIT

TFSITE
wFMODE

#'B,RUNIT

BLAST
#'D,RUNIT
4%
RUNDIF
DIFLIN
#'F ,RUNIT

LOGIC

WFMODE

POT IME
#'L,RUNIT

RUNDIF
LOGIC
#'H,RUNIT

002032
000037

052474

10%:

11%:

052474

TYPE

LIST
;TELL OPERATOR ABOUT THE
KEYBOARD COMMAND DECODER
;PRINT 'DOT"’
TYPE,
LIsT

6%:

7%:

000124

;TELL OPERATOR ABOUT OPTION AREA TESTS

LISTO

052474

SEQ 0028

DIAGNOSTIC IDENTIFICATION TYPEQUT
AGAN
JTEST IF RESTART
RBEGO
:BR IF YES
$AUTOB
:TEST IF ACT/APT
3$
;BR IF NOT
#-1,RUNDIF
;INDICATE TO RUN DIFLIN IN CHAIN MODE
LOGIC
JYES; RUN LOGIC AND DIFLIN TESTS
WFMODE
;TEST IF OPTION CHECKOUT MODE
4%
;BR JF YES

#'1,RUNIT

050106
003356
000110

PAGE 16

#-1,RUNDIF

5%:

002032
050110

;READ THE RESPONSE
;GET THE CHARACTER
JENSURE UPPER (ASE
;FIX ASCII MESSAGE
;DETERMINE IF AN A
;BR IF NOT
;RUN SITE ADJUSTMENT LOOP
;TEST IF

ON THE

;INDICATE DIFLIN IS NOT TO BE RUN

JAND RUN IT

;DETERMINE IF AN F
;BR IF NOT
;INDICATE RUN DIFLIN AFTER THE LOGIC TEST
;AND RUN LOGIC TEST
JTEST IF OPTION CHECKOUT MODE

:BR IF NOT

;DETERMIN IF AN ]
:BR IF NOT

JRUN IN-HOUSE ADJUSTMENT LOOP

;DETERMINE IF AN L
;BR IF NOT
;INDICATE NO DIFLIN

:DETERMINE IF AN H

;BR IF NOT
:START OVER

12%

JBR IF NOT

#'T RUNIT
12%

TESTER

;BR IF NOT
:DETERMINE IfF AN B
;BR IF NOT
;RUN THE BLASTER SECTION
;DETERMINE IF AN D
;BR IF NOT

10%
BEGIN
#37 ,RUNIT
11%
BEGIN
WFMODE

TEST

;DETERMINE IF AN TM"
;BR IF NOT
;START OVER
;TEST

OPTION CHECKQUT MODE

;DETERMINE IF AN T

:BR IF NOT

NCVIT
CINCCA.P11
CZNCCA

736

737
738
739

740
741
762
763
744
745
766
767
748
769
750
751
752

003102
003106
003112
003114
003122
003124
003130
003136
003140
003144
003152
003154
003156
003160
003166

003170
003176

15:05

PAGE 17

MACY11 27(654)
DIAGNOSTIC
KEYBOARD COMMAND DECODER

8-AUG-78

000137
005737
001406

JMP
TST
BEQ
CMPB
BNE
JMP
CMPB
BNE
JMP

BTALK

BNE
GTSWR
BR
(MPS
BNE

15%

;BR IF NOT

RBEGO

JRESTART

122737
001002
000137

122737

001002
000137
122737
001002

042050
050110

12%:

000103

052474

043004
000117

052474

13%:

003240
000123

052474

14%:

104406

000632
122737
001005
012737
000137

000115

052474

000377
043712

050106

15%:

CMPB

MOV
JMP

WFMODE

13%

#'C,RUNIT

13%
PBLAST

#'0,RUNIT

14%
XTTY
#'S,RUNIT

#'M_RUNIT
FATFNG
#377 ,RUNDIF
DIFLIN

SEQ 0029

:KEYBOARD LOOP WITH BLASTER

JTEST

OPTION CHECKOUT MODE

;BR IF NOT
;DETERMINE IF AN C
;BR IF NOT
;RUN M8036 PROM BLASTING CODE
;DETERMINE IF AN O
:BR IF NOT

;CHANGE THE TTY ADDRESS

;DETERMINE IF AN S

;GET SWITCH REGISTER VALUE
;DETERMINE IF AN M
;BR IF NOT

:INDICATE DIFLIN WITH EXPAND REPORT
JRUN DIF

LIN

CINCCA NCVIT
CINCCA.PI

753
754
755
756
757

003202
003204
003206

MACY11 27(654)
DIAGNOSTIC
KEYBOARD COMMAND DECODER
FATENG:

001170
000616

770
771
772
773
774

003240
003244
003246
003250
003252

104401
104412
012600

003254
003260

012701
010021
005720
020127
001373
000137

001144

104401
104401

051250
041374
040410

767
768
769

775
776

777
778

779
780
781
782

783
784
785
786
787
788
789
790
791
792
793
794
795
796
797

003262
003264

003270
003272

005777
100001
000000
104401
000137

BUSTRP:

175714

1%:

052514
002012

2%:

052604

XTTY:

013637
142737
122737
001003
012737
000137
000000

003352
003354

000000
000000

005037
104411

TYPE,

MOgOC
TY

TST

B8PL

HALT

TYPE,
JMP
TYPE,

RDOCT

MOV

BEQ
TST

1$:

FATALO

(SP) ,~(SP)

aSWR

JREPORT FATAL TRAP TO THE OPERATOR
;GET TRAP ADDRESS
SJTEST

HALT ON ERROR

;BR IF SET

RUNITA
RTRT

JRESTART

;FATAL BUS TRAP DETECTED

WARNO

sTELL

(SP)+,R0

csREAD THEIR INPUT

FATFNG
(RO)

THE OPERATOR THE RULES

;LISTEN TO THE OPERATOR

;BR IF JUST ''CR"’

;ADDRESS THE DEVICE AND CHECK BUS

#$TKS ,R1
RO, (R1)+
(RO) +

;GET POINTER
;LOAD THE VALUE
;BUMP VALUE

BNE
JMP

1%
RTRTA

;BR IF NOT
JRETYPE THE HEADER AGAIN ON THE NEW TERMINAL

.OPERATOR (HOSE

TFSITE:

040410

10%:
ADNOKT:

NLSIT11:

;sTEST IF DONE ALL ADDRESSES

THE FIELD ADJUSTMENT LOOP

PRIM6

;TELL OPER. ABOUT A017

CLR

INOUTZ

;DEFAULT TO USER SUPPLIED Z PULSES

TYPE,

FIELDI

MOV

2(SP)+,10%

CMPB
BNE
L [01Y)

#'Y,10%
1%
#2,INOUTZ

BICB

1%:

R1,4#8TKS+10

TYPE,

RDLIN

003350
005350

TRAP

MOV
MoV
TST

CMP

002042

000002
037354

sTYPE QUESTION MARK

;IF NO BUS TRAP - THEY MUST KNOW WHAT THEY ARE DOING !

001154

003350
000040
000131

RBEGO

JROUTINE TO INPUT NEW TTY ADDRESS FROM THE OPERATOR

001754
005710

003276
003302
003306
003312
003314
003320
003326
003334
003336
003344
003350

SEQ 0030

;RETURN TO HERE UPON UNEXPECTED BUS TRAP

052424

003210
003214
003216
003220
003224
003226
003230
003234

011646
104402

E
3
PAGE 18

TYPE

$QUES

760
761
762
763
764
765
766

104401

15:05

;THE OPERATOR SELECTED THE WRONG THING - THEY SOMETIME HAVE ‘FAT FINGERS'

104401

758

759

8-AUG-78

JMP

0
0

#40,109%

FSITE

;ASK THE OPERATOR FOR
;READ OPER.

;GET CHAR

INPUT Z MODE

INPUT

;ENSURE UPPER CASE

:TEST FOR "Y' INPUT
;BR IF NOT 'Y'
JSET MAINT Z CONSTANT
;NOW DO THE

LOOP

;LAST ADDRESS WITHOUT M.M.

;NON-ZERO INDICATES LSI-11

OR XXDP

PROCESSOR

CINCCA

NCVI1

CINCCA.PTT
798

799

800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834

003356

003360
003364
003366
003372
003374
003400
003404
003410
003416
003422
003424
003432
003440
003446
003452
003456
003460
003466
003474
003502
003510
003516
003524
003532
003536
003540
003544
003550
003552
003554
003556
003560
003562
003564

003566

DIAGNOSTIC

KEYBOARD COMMAND DECODER
000005

005737
001124
005737
001402
104401
005037
004737
162737
005737
001403
162737
013737
012737
004737
005737
100025
012737
012737
012737
012737
012737
012737
012737
105737
001016
104401
013700
006200

050110

052332
036120
036062
001000
000042

5%:
036400

006200
036400
000200
036062
036120

036400
003352
036120

000200
077406
000400
077406
077406
007600
077406
001134

172342
172302
172344
172304
172306
172356
172316

18:

2%:

052545
036402

006200
006200
006200
006200
005200
010046
104405

003570
003574
003602
003610
003614

104401
013737
012737
005037
005037

052565
000004
003630
003354
177776

842
843

003630
003634

005237
000002

003354

003620
003626

LOGIC:

001202

835
836
837
838
839
840
841

MACY11 27(654)

013737
000403

002004

B8-AUG-78

RESET

TST
BNE
TST
BEQ
TYPE,
CLR

JSR

SuB
TST
BEQ
Su8
MoV
MoV
JSR
TST
BPL
MOV
MOV
MOV
MOV
MoV
MOV
MoV
TSTB
BNE
TYPE,
MOV
ASR
ASR

ASR
ASR
ASR
INC
MoV
TYPDS

002004
000004

4%:

000004

3%:

TYPE,
MoV
MoV
CLR
CLR
Mov
BR
INC
RTI

15:05

PAGE 19

SEQ 0031

$PASS
JTEST IF FIRST PASS
TST1
;;BR IF NOT
WFMODE
sCHECK IF ON TESTER
5%
;BR IF NOT
PRIM&4
;TELL OPERATOR CABLE MUST BE CONNECTED
$kT11
;INDICATE NO KT11
PC,$SI1ZE
;SIZE BASIC MEMORY SIZE
#1000,$LSTAD
sPROTECT ABSLDR
L0
;TEST IF XXDP CHAIN MODE ?
1$
;BR IF NOT CHAIN MODE
#3200.,8LSTAD
;LEAVE ROOM FOR XXDP MONITOR
SLSTAD ,ADNOKT
;SAVE BASIC MEMORY STACE
#B1T7,8KT11
JWITH MM,
PC,$SI1ZE
;DETERMINE THE AMOUNT OF MEMORY
KT
sJTEST IF KT11 IS HERE
2%
:BR IF NOT
#200,3#K1PART
;
477406 ,a#K1PDR1
#400,I¥KIPAR2
#77406,#K1PDR?
#77406,a#KIPDR3 ;4K, UP R/W FOR 60000
#7600,a#KIPAR7 ;1/0 PAGE MAP
#77406,a#KIPDR7 ;4K, UP, R/W FOR 1/0 PAGE ACCESS
$AUTOB
sTEST IF AUTO MODE
4%
;:BR IF AUTO MODE
MSGMEM
JTELL OPERATOR THE AMOUNT OF MEMORY
$LSTBK,RO
;GET LAST GOOD BANK
RO
RO
RO
RO
RO
RO
RO,-(SP)

s CONVERT
;TYPE OUT DEC. VALUE

MSGK
®#ERRVEC,STEMP
#3% ,a#ERRVEC
NLSIT
PSW

JAND THEN TYPE OUT THE REMAINDER OF MEMORY MESSAGE
;SAVE LOC & VALUE
;LOAD LOC 4
JINDICATE NOT A LSI-11 CPU
;SHOULD FAIL IF LSI-11

$TEMP ,Q#ERRVEC
TST1

NLSIT

RESTORE LOC & VALUE
;:BR IF TEST

;SET AN LSI-=11 FLAG
JRETURN

NCVIT
CZNCCA
CINCCA P11

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

15:05

G 3
PAGE 20

VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND

SEQ 0032

:"ttttt*titfi*ttt*tfiQt'i'tttQttfitttfifitt*tittitfifittfittitttt**'ttttt

S*TEST 1

VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND

:"tttttttttttitttfiittttii**l"l'itttttfiQtttttttfifiit*tfitltttttttttttt

003636
003640
003646
003654
003662
003666
003672
003676
003702
003706
003712
003716
003724
003730

003734
003742
003750
003752
003754
003756
003760
003762
003764
003772
004000
004002
004010
004014
004016

000004

012737
013737
012737
005777

000100
000004
003752
176060

005777
005777
005777
012737
005777
005777

176050
176046
176046
003760
176010
176010

012737
013737
000423

000001
004014

005777
005777
005777

001160
004014
000004

000004

004016
000004

000411
022626

000000

#100,$TIMES
HERRVEC,10%
#1% ,Q#ERRVEC
aCSR

TST
TST
TST
MoV
TST
TST

aSFR
aADM
aBAR1
#2% ,dNERRVEC
akKW(SR
akKWPSR

2%:

000001
004014

004016
000004

004014
030076

000004

a0F F
aW(R
aBAR

;TEMP FIX THE DIAG TO NOT USE

1%:

104001

000137

SCOPE

MOV
MOV
MOV
TST
TST
TST
1ST

176056
176054
176052

022626

104041
012737
013737
000407
013737

TST1:

MOV
MOV
BR

#1,DEADKW
108, a#ERRVEC
TST?Z

ERROR

CMP

BR
cMP

3$:

ERROR
MOV
MOV
BR
MOV

10%:

JMP

DEADKW: 0

(SP)+,(SP)+

;:DO 100 ITERATIONS
;SAVE BUS TRAP VECTOR
;LOAD BUS TRAP VECTOR
;ADDRESS
;
;THE
;

JNCVIT
:
;ADDRESSES
;LOAD NEW RETURN
;TEST CLOCK
;ADDRESSES

CLOCK JUMPERS

;INDICATE NCV11 CLOCK IS NOT THERE,TEMP. FIX UNTIL ECO M
JRESTORE THE BUS TRAP VECTOR
;;BR AND TEST THE NCV1
;CLEAN THE STACK

;BUS TRAP WHEN REFERENCING THE NCV11

3%
(SP)+,(SP)+

41
#1,DEADKW
108, Q#ERRVEC
TST?
108 ,3#ERRVEC
$EOP

;CLEAN THE STACK
;BUS TRAP WHEN REFERENCING THE NCV11 CLOCK
;INDICATE NCV11 CLOCK IS NOT THERE
;RESTORE LOC ¢

JRESTORE BUS TRAP VECTOR

SEXIT

sNON-ZERO SAYS NO NCV11 CLOCK

NCV1T
CINCCA.PT
CINCCA

877
878

879

8-AUG~78 15:05 PAGE 21
MACY11 27(654)
DIAGNOSTIC
FLOAT A 1 ACROSS 10 BITS OF THE COMMAND/STATUS REG.
T2

SEQ 0033

':tttttfittttt'*tttt*t*t'ttitttfitt*ttt*tttttttt*tttttit*tttttttttt

T*TEST 2

FLOAT .+ 1 ACROSS 10 BITS OF

SR 22222333223 3232823222328 832323233222222

004020
004022
004030
004036

000004

012737
012737
012737

000100
004044
004000

001160
001110
002004

004044
004052
004060
004066
004074
004102
004104

013777
017737
013737
052737
023737

002004
175670
002004
000200
001124

001126
001124
001124
001126

004106
004112
004120

006237
022737
001351

001401

175674

T$T12:

1%:

SCOPE

MOV
MOV
MoV

#100,STIMES

MOV
MOV
MoV

$TEMP,a(SR
aCSR,$BDDAT

BIS
CMP
BEQ
ERROR

104002

002004
000001

002004

2%:

ASR
cMp
BNE

SR 2222222232223

SATEST 3

000ttt adRRal Al

;:D0 100 ITERATIONS

#4183 ,SLPERR

;LOAD LOOP ADDRESS

#BIT11,$TEMP

;LOAD INITIAL REG. VALUE

;LOAD CSR REG.
;READ (SR

S$TEMP,$GDDAT
#B1T7,$GDDAT

;LOAD EXPECTED
;FUDGE THE 'READY'' BIT

$GDDAT , $BDDAT
2%

. COMPARE THE VALUES
;:BR if SAME

JUNEXPECTED VALUE IN THE CSR REGISTER

$STEMP

;TRY THE NEXT DATA BIT

#1,8TEMP
1%
2332223222323

THE COMMAND/STATUS REG.

382323803080

;TEST IF NOW BIT 0
;BR IF NOT
2232 8223382222222

22280t

adtdRddd]

VERIFY THAT ''INIT'' CLEARS THE CSR REGISTER

':tt*tttitttfittttttttttitttt’tt*tfitttt**tt*ttt*tfittttt*t*tt*ttttt

000004
012737
012777
000005
012737
017737
023737
001401

000010
007776

001160

000200
175572
001124

001124

TST3:

175606

001126
001126

SCOPE

MOV
MOV
RESET
MOV
MOV

CMP
B8EQ
ERROR

104002

#10,STIMES
#7776 ,3CSR

#B1T7,3GDDAT
aCSR,$BDDAT
$GDDAT, $BDDAT
TST4

;.D0

10 ITERATIONS
;LOAD CSR REG.

JINITILIZE THE REGISTER

JLOAD EXPECTED VALUE
;READ (SR REG.
: COMPARE THE VALUES

;:BR IF EQUAL

;"BUS INIT'' FAILED TO CLEAR CSR REG.

':*ttttt*t*tfittt*ttttttttttti*fitt*ttttt*t*t*t*ttttttit***ttt*tttt

SATEST 4

VERIFY THAT "'CLEAR ALL'' CLEARS THE CSR REGISTER

;:*tttttt*ti*ti*ttttttttttitttttttt*fi**ttittfittifl**ttt*tttttttttt

004004

004240

012737
012777
012777
012737
017737
023737
001601
104002

000010
007776
004000
000200
175520
001124

001160
175540
175542

001124
001126
001126

TST4:

SCOPE

MOV
MOV
MOV
MOV
MOV
CMP
BEQ

ERROR

#10,8TIMES
#7776,aCSR

:.D0 10 ITERATIONS
;LOAD CSR REG.

$GDDAT , $BDDAT
TSTS

;;BR F

#CLRALL ,3SFR
#B1T7,8GDDAT
adCSR,$BDDAT

;GENERATE ''CLR ALL L'’
;LOAD EXPECTED VALUE
JREAD THE (SR REG.

. COMPARE VALUES
SAME

;"'CLR ALL L'' FAILED TO CLEAR (SR REG.

CZNCCA NCVI
CINCCA.PY

923
924
925
926
927
928
929

MACY11 27(654)
8-AUG-78
DI AGNOSTI(
5
VERIFY LOW BYTE OPERATION OF THE

15:05

I
3
PAGE 22

SEQ 0034

''CSR'' REGISTER

::ttttttttttttttttt*tttttttttttttttttttttttt*tttttttt't*ttttttttt

J«TEST S

VERIFY LOW BYTE OPERATION OF THE ''CSR'' REGISTER

:;tttttttttttttttttt**tttttttt*tttttttttttttttttt*ttttttttttttttt

000004

012737
012777
012737
105077

930
931
932
933
934
935

017737
023737

001401
104002
012777
012737
105077

017737
023737
001401
104003

000100
003636
003600
175454
175450
001124

001160

003636
000236

175426

175434
175410
001124

TSTS:

SCOPE
MOV
MOV
MOV
CLRB
MoV
mpP
BEQ

#100,$TIMES
#3636,aCSR
#3600, 8GDDAT
aCSR
a(SR,$BDDAT
$GDDAT , $BDDAT
1%

;:D0 100 JTERATIONS
:LOAD CSR REGISTER
JLOAD EXPECTED VALUE
JCLEAR LOW BYTE
JREAD STATUS REG.
; COMPARE VALUES
;:BR IF SAME

1%:

MOV
MoV
CLRB
MOV
CMP
BEQ

#3636,3CSR
#236,8GDDAT
8(SRHB
aCSR,$BDDAT
$GDDAT , $8DDAT
TST6

JLOAD CSR REGISTER
;LOAD EXPECTED VALUE
;CLEAR HIGH BYTE OF THE CSR
;READ STATUS
; COMPARE VALUES
J:BR IS SAME

175466

001124

001126
001126

001124

001126
001126

ERROR

;CLEARING LOW BYTE OF THE CSR CHANGED THE HIGH B

:CLEARING HIGH BYTE OF (SR CHANGED THE LOW BYTE

;;tt*ttttttttfitttttttttttttttttttt"lttttttttttttttttttttt*tttttt

FLOAT A 1 ACROSS 4 oITS OF THE SPECIAL FUNCTION REGISTER

;*TEST 6

:;tttttttttttttttttttttitttttttfittttttfitttttttttttt*ttttttttttttt

000004

012737
012737

004370
000020

001110
002004

013777
017737
013737
023737

002004
175354
002004
001124

175360
001126
001124
001126

006237
022737
001354

002004
000001

001401
104003

004436

002004

TST6:

SCOPE

MOV

#18%,8LPERR

;LOAD LOOP ADDRESS

MOV
MOV
MOV

$TEMP ,aSFR
aSFR,$BDDAT
$TEMP,$GDDAT

;LOAD SFR REG.
;READ SFR
;LOAD EXPECTED

ERROR
ASR
CMP
BNE

3
$STEMP
#1,$TEMP
1%

MOV
1%:

MP
8EQ

2%:

ABITL ,STEMP

$GDDAT ,$BDDAT
2%

;LOAD INITIAL REG.

VALUE

;COMPARE THE VALUES
::BR IF SAME

JUNEXPECTED VALUE IN THE SFR REGISTER
;TRY THE NEXT DATA BIT
;TEST IF NOW BIT O
:BR IF NOT

;:tt'ttttttttttttttttttttttttttttttttifitt*tttttttt*tt*ttttttttitt

JxTEST 7

VERIFY THAT CLEARING HIGH BYTE OF SFR DOES NOT CLEAR LOwW BYTE

;;ttttttttt!tflttktttttt'ttttittttttttttitttt*ttfittttttttttttttttt

004440
004442
004450
004456
004464
004470
004476
004504
004506

000004
012737
012777
012737
105077

017737
023737
001401
104003

000010
000014
000014
175300
175262

001124

001160
175300
001124
001126
001126

TST7:

SCOPE
MOV
MOV
MoV

CLRB
MOY
(MP
BEQ
ERROR

#10,8TIMES
#14 ,aSFR
#14 ,3GDDAT
aSFRHB

@SFR.,$BDDAT
$GDDAT ,$BDDAT
TST10
3

;:D0 10 ITERATIONS
:LOAD THE S.F. REGISTER
;LOAD THE EXPECTED VALUE

:CLEAR HIGH BYTE OF S.F. REG.
JREAD THE REGISTER
:COMPARE THE VALUES
::BR IF SAME
;CLEARING HIGH BYTE OF CSR REG. CHANGED THE LOW

972
973
974
975
976
977
Q78
979
980
981

SEQ 0035

';Qttttt.*'tttfittfi*tt."ttttittitt.t*ttt*itttittittttttt*tttittt.

S#TEST 10

VERIFY THAT "'INIT'' CLEARS THE SFR REGISTER

';itttttt*t.tiiitttfittttt*fifitfi'ttittifiitt*tttfi*tt'ttlttitfittttttt

004510
006512
004520
004526

004530
004534
004542
004544

000004
012737

012777
000005
005037
017737
001401
104003

000010
000016
001124

175216

001160

1$T10:

175230

001126

SCOPE
MOV
MoV
RESET
CLR
MoV

BEQ
ERROR

BEZTEX2222X222

TRTEST 11

#10,8TIMES
#16,aSFR

$GDDAT
aSFR,$BDDAT
ST

2222323222222

;.D0 10 ITERATIONS
;LOAD SFR REG.

JINITILIZE THE REGISTER

;:BR IF

;LOAD EXPECTED
-READ SFR REG.

EQUAL

;"BUS INIT'' FAILED TO CLEAR SFR REG.

2820232282220

2202

RRdaddl]

VERIFY THAT ''CLEAR ALL'' CLEARS THE SFR REGISTER

':ttttti*ttt**tttfitt*tttt't*tttitttttt*ttt*tttiittt**tttttttttttt

004546
004550
004556
004564
004572
004576
004604
004606

000004
012737
012777
052777
005037
017737
001401
104003

000010
000016
004000
001124
175154

TST11:

175164

SCOPE
MOV
MOV
BIS

001126

MOV

001160
175172

CLR

BEQ
ERROR

#10,$TIMES
#16,aSFR

#CLRALL ,aSFR
$GDDAT
@SFR, $BDDAT
1ST12

;;D0 10 ITERATIONS

;LOAD SFR REG.

;GENERATE "'CLR ALL L'’
;LOAD EXPECTED VALUE
;READ THE SFR REG.

;:BR IF SAME

;"'CLR ALL L'’ FAILED TO CLEAR SFR REG.

CINCCA NCVIT
CINCCA.PT

J 3
15:05
PAGE 23
8-AUG-78
DIAGNOSTIC
REGISTER
SFR
THE
CLEARS
110
"'INIT"'
THAT
VERIFY
MACY11 27(654)

CINCCA NCV11T
CINCCA PN

S*TEST 12
001160
001124
001110

004634
004642
004650
004656
004664
004666

012777
013777
017737
023737

004000
001124
175076
001124

175114

004670
004674

006337
001357

1033

004764
004766

S
U
S
N

QU —_ J

001401
104004

175102
001126
001126

oS00
AR

TST12:

FLOAT /1 1 ACROSS THE WORD COUNT REGISTER

SCOPE

MOV
MOV
MOV

#100,8TIMES
#8170,8GDDAT
#1% ,$LPERR

;D0 100 ITERATIONS
;LOAD EXPECTED VALUE
;LOAD LOOP ADDRESS ON ERROR

MoV

#CLRALL ,aSFR

JRESET THE DEVICE

BEQ

MOV
MOV
CMP
ERROR

2%:

001124

ASL
BNE

$GDDAT ,aWCR
aWwCR,$8DDAT
$GDDAT ,$BDDAT
4

;LOAD WORD COUNT '‘A*"
;READ WORD COUNT
;COMPARE VALUES

::BR IF SAME

::WORD COUNT REG.

IN ERROR

;CHANGE THE DATA
;BR IF MORE DATA TO LOAD

$GDDAT
1%

:;tttt**tttttttttttttttttttt**kttttt*ttt**tttt*tttttt*ttitttttttt

;*TEST 13

FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER

;:t*ttt*fit*ttttt*tttfittttttttttttttttitttttttttt**tttittt*tttttt*

004676
004700
004706
004714

000004
012737
012737
012737

004722
004730
004736
004744
004752
004754
004756
004762

000100
000001
004722

001160
001124
001110

012777
013777
017737
023737
001401

004000
001124
175012
001124

175026

006337
001357

001124

175016
001126
001126

TST13:

1%:

104005

2%:

SCOPE

MoV
MOV
MOV

#100,8TIMES
#B1T0,8GDDAT
#1%,$LPERR

MOV

#CLRALL ,?SFR

ERROR

MOV
MOV
CMP
B8EQ
ASL
BNE

$GDDAT,®RAR
@RAR, $8DDAT
$GDDAT , $8DDAT
2%

::D0 100 ITERATIONS
;LOAD EXPECTED VALUE
;LOAD LOOP ADDRESS ON ERROR
JRESET THE DEVICE

:LOAD BUS ADDRESS 'A"'
:READ BUS ADDRESS
; COMPARE VALUES
::BR IF SAME
:;BUS ADDRESS REG.

$GDDAT
1%

IN ERROR

; CHANGE THE DATA
;BR IF MORE DATA TO LOAD

;;ttttt*ttt*tt*ttttt*tttttttttt*tttttttttttttt*t*tttttttttttttttt

;*«TEST 14

FLOAT A 1 ACROSS THE OFFSET REGISTER

:;ttttttt*tttt*tt*t*ttttttttttttttttttttttittttttttttt*ttttttttit

000100
000001
004634

000004
012737
012737
012737

1037
1038
1039
1040
1041
1042
1043
1044
1045
1046

SEQ 0036

;:tttttttt*it*tttfit*tfiittttttttQtfittififittt*tt*ttfi*ttttttttttttttt

004610
004612
004620
004626

1035

';fit!t*tttfitt**tttttttttt'tttittttttfitt*ttitttttt*tt*tt*tttittttt

(ololelolololalole]
[elelololololeololololoe o
puur nar Qanr S Gan Ghuur Puur Ghnr G
WWWWAINAONONIAININ
-0
VOO NN
WA =
N = OV NN
W

996
997
998
999
1000
1001
1002
1003

B8-AUG-78 15:05 PAGE 24
MACY11 27(654)
DIAGNOSTIC
FLOAT A 1 ACROSS THE WORD COUNT REGISTER
112

004774
005002

000004
012737
012737
012737

000100
000001
005010

001160

174740

005010
005016
005024
005032
005040
005042

012777
013777
017737
023737
001401

004000
001124

005044
005050

006337
001357

001124

174720

001124

TST14:

001124

#100,8TIMES

MOV

#1% ,SLPERR

;LOAD LOOP ADDRESS ON ERROR

MOV

#CLRALL ,@SFR

:RESET THE DEVICE

8EQ
ERROR

P 3
6

MOV

001170

174724
001126
001126

SCOPE

MOV

1%:

104006

’$:

MOV
MOV
CMP

ASL
BNE

#B81T0,8GDDAT

$GDDAT ,Q0F F
a0F F ,$BDDAT
$GDDAT ,$BDDAT

$GDDAT
1%

::D0 100 ITERATIONS

;LOAD EXPECTED VALUE

JIBR IF

;LOAD OFFSET "'A''
;READ OFFSET
; COMPARE VALUES

SAME
;OFFSET REG.

IN ERROR

;CHANGE THE DATA
sBR IF MORE DATA TO LOAD

CINCCA NCV11
CINCCA.PT
1047
1048
1049

1050
1051
1052
1053
1054

1055

1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068

1049

1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085

MACYT1 27(654)
8-AUG-78 15:05
DIAGNOSTIC
115
VERIFY NO DUAL REGISTER SELECTION
SR 338323222332

TRTEST 15

8223222022232

PAGE 25

SEQ 0037

2043322022338823222323 2823328322202

RidR8dRsdd2)

VERIFY NG DUAL REGISTER SELECTION

SR 2382222323323 2382328323202 23222323233323 2333223283823 2823323 20020802222/

005052
005054

000004
012737

000010

001160

005062
005070
005076
005104
005112
005120

012777
012777
012777
012777
012777
012777

004000
01
022222
033333
000036
007636

174666
174652
174646
174642
174636
174620

005126
005134
005142
005150
005152
005154
005162
005170
005176
005200
095202
005210
005216
005224
005226
005230
005236
005244
005252
005254

012737
017737
023737

011111
174610
001124

001124
001126
001126

022222

001124

005256
005264

005272
005300
005302
005304

001401
104007
012737

017737
023737
001601
104007

174564

001124

012737
17737
023737
001401

033333

012737
017737
023737

000036

104007

001401
104007
012737
017737
023737
001401
104007
012777

174540

01124

174514
001124

001126
001126

001124
001126
001126

T§7T15:

#10,STIMES
;.D0 10 ITERATIONS
:LOAD DIFFERENT NUMBERS INTO THE WCR, BAR AND OFF REGISTERS
#CLRALL ,aSFR
MOV
;CLEAR THE DEVICE
#11111,30FF
MOV
;LOAD OFFSET REGISTER
MOV
#22222 .3WCR
;LOAD W.C. REGISTER
MOV
#33333. 3BAR
;LOAD B.A. REGISTER
MOV
#36,aSFR
;LOAD SPECIAL FUNCTION REGISTER
MOV
#7636 ,aCSR
;LOAD COMMAND/STATUS REGISTER
;NOW READ EACH REGISTER AND CHECK THE VALUE
MOV
#11111, $GDDAT
;LOAD EXPECTED VALUE

1$:

2%:

N
35

48:

001124

001124
001126
001126

004000

174444

007636
174456

SCOPE

MOV

MOV
CMP
BEQ

A0FF
, SBDDAT
SGDDAT, $BDDAT
1$

MOV

#22222
, $GDDAT

BEQ
ERROR

2%
7

ERROR

MOV
CMP

AWCR, $BDDAT
$GDDAT, $BDDAT

MOV

#33333, $GDDAT

ERROR
MOV

7
#36,$GDDAT

MOV
CMP
BEQ

MOV

SBAR, $BDDAT
$GDDAT, $BDDAT
38
aSFR, $BDDAT

CMP
BEQ
ERROR
MOV

7
#7636, $GDDAT

CMP

$GDDAT
, SBDDAT

MOV

BEQ
ERROR
MOV

$GDDAT, SBDDAT
4$
aCSR, $BDDAT

5%
7
#CLRALL ,aSFR

JREAD A OFFSET REG.

; COMPARE
;:BR IF SAME
;DUAL ADDRESS ERROR
;LOAD EXPECTED VALUE
JREAD W.C. REG.
; COMPARE
;:BR 1F SAME
;DUAL ADDRESS ERROR
;LOAD EXPECTED VLAUE
;READ B.A. REG.
; COMPARE
;:BR IF SAME
:DUAL ADDRESS ERROR
;LOAD EXPECTED VALUE
;READ SPECIAL FUNCTION REG
; COMPARE
J:BR IF SAME
;DUAL ADDRESS ERROR
;LOAD EXPECTED VALUE
;READ COMMAND/STATUS REGISTER
; COMPARE
::BR IF SAME
;DUAL ADDRESS ERROR
:CLEAR THE DEVICE

CINCCA NCVIY
CINCCA.PT

DIA GNOSTIC
T16
VERIFY

MACY11 27(654)

;«TEST 16

000004
012737
005037
012777
012777
012777
017737
001401

000010
001124
004000
000003
004000
174374

001160

TST16:

MOV

#CLRALL ,aSFR

BEQ
ERROR

TST17
6

MOV
MOV
MOV

001126

104006

#10,$TIMES

(LR

174422
174406
174406

d =D

SCOPE

MOV

;:D0 10 ITERATIONS

$GDDAT

JCLEAR EXPECTED VALUE
;CLEAR THE DEVICE

#3,30FF
#CLRALL ,aSFR
a0FF ,$BDDAT

;LOAD EXTENDED OFFSET REGISTER
;CLEAR THE EXTENDED OFFSET REG.'S
JREAD EXTENDED OFFSET REG.

;eBR IF CLEARED
JCLEAR ALL FAILED TO CLEAR EXTENDED OFFSET REGIS

:;ttttttttfit*ttttttfi*tttttttttttttttttttttttfittttttttttttfittttttt

;«TEST 17

TEST THE ‘‘ACTIVE'' FLOP CAN SET AND CLEAR

::ttttttttttttttttttttttttttttttlttitttttkttttttttttttttttttttttt

D e

005362

)

) oed

005372

Nrflégggurwcrxhb.Aflu-*ChOCD"uowfil\uuv-dCD(H”‘i

D —d
D o

D wd
cd

) e

d
b e

D —d md cad D e

d Ced
b

D md

D
d i

b oed i cnd
il oud

VERIFY "'CLR ALL'' CLEARS THE EXTENDED OFFSET BITS

:;ttttttttttttttttttttttttttttttt*tttttttttttttt*ttfitttttttfitt*tt

005312
005314
005322
005326
005334
005342
005350
005356
005360

) e

SEQ 0038

::fitttttttfittittttttitttttttfitt*tfittttitttttfittttttttt**ttttttttt

1087

— ad

15:05

*‘CLR ALL'' CLEARS THE EXTENDED OFFSET BITS

1086

el ol wnd e o

8-AUG-78

M 3
PAGE 26

005400
005402
005404
005406

005414
005422
005430
005436

005444

005446
005454

000004

012777

052777
000240
000240
000240
052777

012737
052777
017737
023737
001404
052777
104001

004000
000010

000200
000001
004000

001401
104001

NOP
NOP

BIS
MOV
(MP

#81T70,aCSR
aCSR,$8BDDAT
$GDDAT , $BDDAT

;SET *ACTIVE'' TO A 1
JREAD STATUS
; COMPARE VALUES

174302

BIS

#ENDDMA ,aSFR

000400

012737
052777

;CLEAR THE DEVICE
;SET THE °*'TEST DMA'' TO PREVNT DATA TRANSFERS

001126
001126

001124

005512
005520
005526
005534
005542
005550
005552

#CLRALL ,dSFR
#TSTDMA ,aSFR

;SET "MATRIX MODE'' AND ‘BYTE'' MODE

000022
000001
174312
001124

000400
000222
174250
001124

SCOPE
MOV
Bég

#31T4!8IT1,38CSR

174332

052777
012737
017737
023737
001401
104001

TST17:

BIS

000022

005456
005464
005472
005500
005506
005510

052777
017737
023737

174364
174356

174316

174272
001124
001126
001126

;NOW SET THE "‘ACTIVE'' FLOP AND VERIFY ''INTERFACE IDLE'’' GOES LOW
MoV
#B1T4'81T1,8GDDAT
JLOAD EXPECTED VALUE

BEQ

:POKE
1%:

ERROR

;:BR IF EXPECTED

;STOP DMA [F POSSIBLE

;"ACTIVE'' FLOP FAILED TO SET

THE "END DMA'' SIGNAL AND VERIFY "'ACTIVE'' CLEARS
8IS
#ENDDMA ,aSFR
;SEND "END DMA'’ SIGNAL

MoV

#BIT7'BIT4'BIT1,$GDDAT

ERROR

MOV
MP
BEQ

o(SR,$BDDAT
$GDDAT , $BDDAT
2%

;:BR IF

;SET ''INTERFACE IDLE'' INTO EXPECTED

;READ STATUS
: COMPARE
SAME

;"END DMA’'' AGAIN FAILED TO CLEAR '‘ACTIVE'' fFLOP

:POKE "ENABLE DMA'' AND THEN ISSUE ‘‘CLR ALL'® SIGNAL TO

174206

001124

174220
174222

001126
001126

2%:

ENSURE THE 'ACTIVE'®

Mov

#8177 ,8GDDAT

MOV

oCSR,$BDDAT

BIS
8IS

(mMpP

BEQ

ERROR

FLOP CLEARS

#B170,a8CSR
ACLRALL ,aSFR
$GDDAT, $BDDAT
15120

;LOAD EXPECTED

;POKE ‘‘ENABLE DMA'’
;GENERATE ''CLR ALL''

;READ STATUS

J:BR JF

; COMPARE

SAME

;"'CLR ALL'' FAILED TO CLEAR *‘ACTIVE'' FLOPS

NCVTT
ICZN((A
CINCCA.P1Y

27
PAGE
15:05
VERIFY Z INPUTS CAUSE THF LOW 8 BITS OF 32 BIT (OUNTER TO CHANGEIN MATRIX MODE

DIAGNOSTIC(

120

B8-AUG-78

MACY11 27(654)

SEQ 0039

]133

.-'-tttt.tfil.t'tttttttttttt'itt.ttttttttttttttfittttttttttttttttt.tfi

1135

.-.-t.'Qtttlttttt'tttttttttttttttttttttttttttfittttttttfitttttttttttt

113

1136
1137
1138
1139
1140
1141
1142
11643
1144
1145

005554
005556
005564
005572
005600
005606
005614
005622
005630
005636

000004
012737
012777
012777
012777
012777
012777
052777
052777
042777

1147
1148

005652
005660

017737
001002

1146

1149

1150

1151

1152
1153
1154
1155

1156

1157

1158

1159

005644

005662

005664

005666

005674
005676
005700
005706

005714

005722

005724

012737

000100
004000
000010
000000
000000
000022
000001
000002
000002
000001

174076

001160
174164
174156
1746144
174140
174124
174116
174120
174112

017737

001601
104011
012737
017737

032737
001401

000020
174034

001124
001126

2%:

0460000

001126

104012

000004

1166
1167
1168

005752
005760
005766

012777
012777
012777

000000
000376
000022

173772
173766
173752

005744

005774
006002
006010
006016
006024
006032

012777

052777
052777
042777

006042
006044
006052

012737
017737
105737
001002
104010
000423
012737
017737

1183

006072

017737

1185

006106

006036

006040

006060
006062

006100
006110

001401
104011
012737

032737
001401

104012

000010

000001
000002
000002

000400
173724
001127

TST21:

174004

#BIT14,$8DDAT

ERROR

001124
001126

000000
173674

001124
001126

1$:

000020

001124

2%:

040000

001126

173650

001126

;:BR IF CORRECT

;"'CELL OVERFLOW'' FLOP SET IN ERROR
R AR AR

VERIFY Z INPUTS CAUSE THE LOW 16 BITS OF 32 BIT COUNTER TO CHANGE
RN AR RARARARARANARAARARRARNARAARA
KRR AN A RAS

MOV
MOV
MOV

#0,aW(R
#376,3BAR
#]T4!BIT1,aCSR

#TSTDMA ,aSFR

;:;D0 100 ITERAT]IONS
;CLEAR THE DEVICE

JSET TEST DMA FLOP

;LOAD W.C. REG
;LOAD B.A.
REG
JENTER MATRIX MODE

#3170,aCSR
#TESTZ,aSFR
NTESTZ ,aSFR
#3178 ,8GDDAT
aBAR, $8DDAT
$8DDAT+1

;GO "ACTIVE''
JENABLE “°TEST Z'' PULSES
;DISABLE "‘TEST Z'' PULSES
;LOAD EXPECTED
JREAD LOW 16 BITS
JTEST HIGH BYTE

TST22
#0,$GDDAT
aWCR, $BDDAT

BEQ
ERROR
MOV

P4 3
1
#MB1T4,$GDDAT

BIT

#B1T14,$BDDAT

ERROR

BEQ

JTEST IF "'CELL OVERFLOW''

A RN RANARARRA RN R RAAR AN AR

#100,8TIMES
#CLRALL ,aSFR

MOV

JREAD HIGH 16 BITS

IST21

MOV
MOV

MOV
MOV
TSTB
BNE
ERROR
BR
MOV
MOV

:Z INPUT FAILED TO CAUSE THE LOW BYTE OF 32 BIT

;:BR IF CLEARED
JHIGH 16 BIS CHANGED IN ERROR
;LOAD EXPECTED
JREAD STATUS

AR AR R AR AR RN AR AN RN

BIS
BIS
BIC

JREAD LOW 16 BITS

;:BR IF NON-ZERO

7y
[R
#8174 ,3GDDAT
aCSR,$8DDAT

AR AR AR AN RN AR N

SCOPE

;LOAD EXPECTED

TST21

BIT

MOV

173744
173746
173740

@' 'CR,$8DDAT

;*TEST 21
005726

#1,8GDDAT

MOV

B8EQ
ERROR
MOV
MOV
BEQ

001160
174012

1186

aBAR, $8DDAT
19

1%:

000100
004000

1184

MOV
BNE

MOV

001126

012737
012777

1180
1181
1182

_
#100,8TIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTDMA ,aSFR
JSET TEST DMA FLOP
#0,aWCR
;LOAD W.C. REG
#0,aBAR
;LOAD B.A.
REG
#MIT4!81T1,aCSR
JENTER MATRIX MODE
#3170,3CSR
;GO "ACTIVE''
NTESTZ ,aSFR
JENABLE “'TEST Z'' PULSES
HTESTZ ,aSFR
;DISABLE ‘“‘TEST Z'' PULSES

1764060

005730
005736

1172
1173
1176
1175
1176
1177
1178
1179

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC

ERROR

1163
1164

1169
1170
1171

T1ST20:

104010

000420

1161

1165

VERIFY 2 INPUTS CAUSE THE LOW 8 BITS OF 32 BIT (OUNTER TO CHANGEIN MATRI

001124
001126

1160
1162

J*TEST 20

a(SR,$BDDAT

1ST22

JBR IF NON-ZERO

;2 INPUT FAILED TO CAUSE THE HIGH BYTE OF
;LOAD EXPECTED
JREAD HIGH 16 BITS

;:BR IF CLEARED
JHIGH 16 BITS CHANGED IN ERROR
;LOAD EXPECTED
;READ STATUS

;:BR IF

sTEST IF ''CELL OVERFLOW''

CORRECT

''CELL OVERFLOW'' FLOP SET IN ERROR

THE LO

122

*TEST 22
R

000004
012737
012777
012777
012777
012777

000100
004000
000010
000000
177776

042777

000002

012777
052777
052777

012737
017737
001002
104011
000413

G- i
S
S
e il S
P

Nelo B NTo NV P YV, S

Ut W
U
U

SEQ 0040

173566
173560
173562
173554

012737

000020

001124

2%:

032737

040000

001126

173510

001126

SCOPE
MOV
MOV
MOV
(01
MOV

#100,8TIMES
#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,3WCR
#-2,aBAR

8IC

#TESTZ ,aSFR

MOV
8IS
BIS

1%:

MOV
MOV
BNE
ERROR
BR

MOV
MOV

BIT

BEQ
ERROR

006270
006276
006304
006312
006320
006326
006334
006342
006350
006356
006362
006364

012737
012777
012777

000100
004000
000010

001160
173466
173460

012777

177776

173442

012777

012777
052777
052777
042777
012737

017737
105737
001001
104012

#31T4!'BIT1,aCSR
#81T70,aCSR
#TESTZ,aSFR
#1,8GDDAT
IWCR, $BDDAT
2%
11
TST23

#B1T4 ,8$GDDAT
o(SR,$BDDAT

#B1T14,%8BDDAT
TST23
12

2322222

2232322222222 2 222

;:DO 100 ITERATIONS
;CLEAR THE DEVICE
:SET TEST DMA FLOP
;LOAD W.C. REG
:LOAD B.A. REG

;ENTER MATRIX MODE
;G0 "ACTIVE''
;ENABLE ‘‘TEST Z'' PULSES

:DISABLE ‘‘TEST 2°'' PULSES

;LOAD EXPECTED
JREAD HIGH 16 BITS
:BR IF SET
;LOW BYTE OF THE HIGH 16 BITS FAILED TO CHANGE

:LOAD EXPECTED
;READ STATUS

JTEST IF '"'CELL OVERFLOW'

;2BR IF CORRECT
;"'CELL OVERFLOW'' FLOP SET IN ERROR

tttttttttttttttttt.tttttttttttittt*t!ttttfitttttt*ttti*ttttfitttt

tTEST 23
000004

VERIFY 2 INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE

2282322328323 2323F2222 2222222323322

TST22:

001124
001126

0016401
104012

000022
000001
000002

001160
173626
173620
173606
173602

000001
173536

017737

MACY11 27(654)
B8-AUG-78 15:05 PAGE 28
VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE

DIAGNOSTIC

2222222222223 3232322332222322322303322322222¢88323223
283222283 8822232%2}

SYBLRERIS 28BS

D —
D
)
b
D
D
D
D
e
cmd
i
)
)

N—J—J-J_._)-J-J_I—J_J—J—‘ —
oo
~

CINCCA NCVIY
CINCCA.PIT

000377

000022
000001
000002
000002
000400
173376
001127

TST23:

173446

173426
173420
173422
173414
001124

001126

SCOPE

MOV
MOV
MOV

#100,8TIMES
#CLRALL ,aSFR
#TSTDMA ,aSFR

MOV

#-2 ,aBAR

MOV

1%:

VERIFY 27 INPUTS CAUSE THE HIGH 8 BITS OF THE 32 BIT COUNTER TO CHANGE

2222222222223 222323232Z223232323232230323322232322222322343233323323222232332]

MOV
BIS
8IS
BIC
MOV

MOV
TSTRB
B8NE
ERROR

#377,”R4CR

#MIT4&!BITT,aCSR
#B1T0,aCSR
#TESTZ ,aSFR
#TESTZ ,aSFR
#8]178,8GDDAT
aWCR, $BDDAT
$8DDAT +1
TST24
12

::D0 100 ITERATIONS
:CLEAR THE DEVICE
;SET TEST DMA FLOP

:LOAD W.C. REG
;LOAD B.A.

REG

;ENTER MATRIX MODE
;GO "'ACTIVE"
;ENABLE '‘TEST Z'' PULSES
:DISABLE ‘‘TEST Z'' PULSES
;LOAD EXPECTED

:READ HIGH 16 BITS
;TEST HIGH BYTE
;:BR IF SET

JHIGH 8 BITS OF THE 32 BIT COUNTER FAILED TO CHANGE

NCV1T
CINCCA.P1
CINCCA

1228
1229
1230
1231
1232
1233
1234
1235

1236
1237

1238
1239
1240

1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255

1256
1257
1258
1259
1260
1261
1262
1263

1265
1267

1278

DIAGNOSTIC

T24

MACY11 27(654)

8-AUG-78

15:05

PAGE 29

VERIFY Z INPUTS DO NOT CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE IN LIST MODE

SEQ 0041

R 2222222322222
2228 3222 2222332222322 3322222222222 22

-resr 24
R

006366
006370
006376
006404
006412
006420
006424
006440
006446
006454
006456

000004

012737

000100

001160

052777
042777

000002
000002

173324
173316

012777
012777
012777
005077
012737
017737
0014601
104010

004000
000000
000000
173322

000000
173302

TST24:

173352
173340
173334

SCOPE

MOV

#100,8$TIMES

BIS
BIC

#TESTZ,aSFR
#TESTZ,aSFR

MOV
MOV
MOV
CLR

001124
001126

MOV
MOV
BEQ
ERROR
N
R

000004
012737
012777
012777
012777
012777
012777
052777

000010
004000
000010
177777
177776
000022
000001

001160
173260
173252
173240
173234
173220
173212

006534
006542
006550

052777
042777

000002
000002

173214
173206

013700

002006

006554
006556

005001

012737

040020

001124

006564
006572
006574
006576
006600
006602
006604
006612
006614

032777
001011

040000

173154

012777
104012
000 16

000400

173144

006616
006624
006632
006640
006646
006650

052777
012737
017737
023737
001601

004000
000200
173110
001124

173132
001124
001126
001126

005301
001372
005300
001370

104012

1222333333333

;:D0 100 ITERATIONS

#CLRALL ,aSFR
#0,9WCR
#0,aBAR
aCSR

;CLEAR THE DEVICE
;LOAD W.C. REG
;LOAD B.A. REG
JENSURE LIST MODE

JENABLE ''TEST Z2'' PULSES
;DISABLE '‘TEST Z'' PULSES

#0,$GDDAT
aBAR, $8DDAT
TST2S
10

2222223322223 3323%X23232223

*TEST 25
006460
006462
006470
006476
006504
006512
006520
006526

VERIFY Z INPUTS DO NOT CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO C}AaNGE

2232223223322 3X22332232232323333222323232223232322233232222832223232¢8;

;LOAD EXPECTED
;READ LOW 16 BITS
::BR IF ZERO
:Z INPUT CAUSE THE 32 BIT COUNTER TO CHANGE IN LIST MODE
3332238222222

2232

2022232883223 02 8280334 /|

TEST THAT 'WCA OVFL'® SETS Z/WC OVERFLOW FLOP AND ''CLR ALL'' CLEARS IT
33X33 3323222238323

2232222238222

28222220 0ZC22aRdRdssld]

TSTZS:

SCOPE
MOV
#10,8TIMES
::D0 10 ITERATIONS
MOV
#CLRALL ,@SFR
:CLEAR DEVICE
MOV
#TSTDMA ,aSFR
;SET TEST DMA FLOP
MOV
#-1,aWCR
;LOAD Z COUNTER
MOV
#-2 ,aBAR
;LOAD Z COUNTER
MOV
#BIT4!'BITT ,aCSR
SENTER "MATRIX'' MODE
BIS
#3170,aCSR
;ENABLE NCV11
:NOW ENABLE '‘TEST Z'' INPUTS
BIS
#TESTZ,aSFR
JENABLE “‘TEST 2'' PULSES
BIC
#TESTZ ,aSFR
;DISABLE "‘TEST Z'' PULSES
MOV
CPUDLO,RO
;LOAD GROSS TIMER
CLR

1%:

MOV

#BIT14!B1T4,8GDDAT

;LOAD EXPECTED STATUS

B8IT
8NE

#1714 ,aCSR
2%

JTEST FOR Z/WC OVERFLOW
JBR IF SET

DEC
BNE
DEC
BNE
MOV
ERROR
BR

R1
1%
RO
1%

#ENDDMA ,aSFR
12
TST26

.DELAY

:DELAY

:STOP DMA TRANSFERS
:AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILFD TO SE
32

NOW GENERATE ''CLR ALL'' TO CLEAR Z/WC OVERFLOW BIT
2$
8IS
#CLRALL ,®SFR
;CLEAR Z2/WC FLOP
MOV
#BIT7, SGDDAT
;LOAD EXPECTED
MOV
aCSR.SBDDAT
:READ STATUS
CMP
$GDDAT , $BDDAT
: COMPARE
BEQ
TST26
::BR IF SAME

ERROR

;"'CLR ALL"' FAILED TO CLEAR "'Z/w(’'’' FLOP

CZNCCA NCVIT
CINCCA.PIY

P
e Lol ele)
VIS WN=20O000N

WWWVJWWWWW§

[

1279
1280
1281
1282
1283

MACY11 27(654)
8-AUG-78 15:05
DIAGNOSTIC
TEST THAT 'WCA OVFL'' SETS Z/WC OVERFLOW
126
AR

J*TEST 26

R RN

PAGE 30

SEQ 0042

FLOP AND '‘CLR WC OVFL'' CLEARS IT

R AR

R AR AN

TEST THAT 'WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND '‘CLR WC OVFL'' CLEARS IT

';tt*Qtt**t*t*tttt*ittttt.ti*tttfit*fi*ttttttt*ttttitttt*ttttt***tt

000004
012737

012777
012777
012777
Qlcr /7
012777
052777

000010
004000
000010
177777
177776
000022
000001

001160
173066

052777
042777

000002
000002

173022
173014

006742
006746
006750

013700
005001
012737

002006
040020

001124

006756
006764
006766
006770
006772
006774
006776
007004
007012
007014

032777

040000

172762

007016
007024
007032
007040
007046
007050

052777
012737
017737
023737

001014
005301
001372
005300
001370
012777
042777
104012
000416

001401
104012

173060
173046
173042
173026
173020

T$T26:

SCOPE

MOV

MOV
MOV
MOV
MOV

MO'

172752
172744

040000
000022

172732
001124
001126
001126

172710

001124

#CLRALL ,aSFR
#TSTDMA ,aSFR
#-1,WCR
#-2,aBAR

;.D0O 10 ITERATIONS

#B1T4'BIT1,aCSR

#81T70,aCSR
BIS
JNOW ENABLE '‘TEST Z'' INPUTS
HTESTZ ,aSFR
BIS

JENABLE 'MATRIX'' MODE
JSET NCV11 ACTIVE

B8IC

HTESTZ ,@SFR

?OX

E?UDLO.RO

;LOAD GROSS TIMER

MOV

#BIT14:!BIT4,$GDDAT

JLOAD EXPECTED STATUS

BIT
BNE

H#BIT14,aCSR
2%

1$:

s CLEAR DEVICE
;SET TEST DMA FLOP
;LOAD Z COUNIER
JLOAD Z COUNTER

;ENABLE "TEST Z'' PULSES
;DISABLE 'TEST Z'' PULSES

BNE

R1
1%
RO
1%

BIC

HTESTZ ,aSFR

DEC
BNE
DEC

000400
000002

#10,8$TIMES

MOV

ERROR
BR

:DELAY

#ENDDMA ,aSFR

12
TST127

;TEST FOR Z/WC OVERFLOW

;BR IF SET
;DELAY

:STOP DAM TRANSFERS

2CTOP *'7'" INPUTS
;AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SET
;e

;NOW GENERATE ‘'CLR WC OVFL'' TO CLEAR Z/WC OVERFLOW BIT

2%:

BIS
MOV
MOV
CMP
BEQ

ERROR

#CLRWCO,aSFR
#8174!81T1,$GDDAT
aCSR, $BDDAT
$GDDAT, $BDDAT
1ST27
;:BR IF

;CLEAR Z/WC FLOP
;LOAD EXPECTED
sREAD STATUS
. COMPARE
SAME

;"'CLR WC OVFL'' FAILED TO CLEAR ''Z/WC'' FLOP

NCVTN
CINCCA.PI
CZNCCA

127

B8-AUG-78 15:05 PAGE 31
MACY1T 27(654)
TEST THAT 'WCA OVFL'' GENERATES AN INTERRUPT

DI AGNOSTIC

SEQ 0043

Y
T
P

WINWILNWINWN
PONIAIN)
- 2

.' .'ttt**ttttttttt*ttt*tt'ttttttttttttttttttttttttttttttt*ttttitttt

WN 2OV~

VIVIVIVIN
S S

—_ e

1345

1354

TEST THAT 'WCA OVFL'' GENERATES AN INTERRUPT

:*TEST 27

'- '-ttttttt*tttttttttfitttttttttttttttttt*tltttt**tttttttttttitttttt

TST27:

SCOPE

007052
007054
007062
007070
007076
007104
007112
007120

000004
012737
012777
012777
012777
012777
012777
052777

007126
007134
007142
007146
007150

052777
042777
013700
005001
012737

000002
000002
002006

172622
172614

:NOW ENABLE
BIS
BIC

040020

001124

MoV

#BIT14 .BIT4,$GDDAT

;LOAD EXPECTED STATUS

007156
007164
007166
007170
007172
007174
007176
007204
007212
007214

032777
001014
005301
001372
005300
001370
012777
042777

040000

172562

BIT
BNE
DEC
BNE
DEC

#BIT14,2CSR
2%
R1
1%
RO

;TEST FOR Z/WC OVERFLOW
;:BR IF SET
;DELAY

MOV

#ENDDMA ,aSFR

;STOP DMA TRANSFERS

007216
007222
007226
007230
007236
007244
007246
007250
007252
007254
007262
007270
007272

012746
012746
000002
012777
052777
000240
000240
000240
000240
017737
012777

007274
007276
007302
007310
007316

022626
005077
012777
013777
005077

104012
000430

104013

000010

004000
000010
177777
177776
000022
000001

000400
000002

001160

172666
172660

172646
172642
172626
172620

172534
172502

172466
004000

001126

#-1,3WCR
#-2 ,3BAR

MOV
BIS

?OX
L

1%:

#TSTDMA ,aSFR

:SET TEST DMA FLOP

;LOAD Z COUNTER
JLOAD Z COUNTER

#B1T4!'BITT1,aCSR
#81T0,aCSR
'"'TEST Z'° INPUTS
#TESTZ.aSFR
RTESTZ.,aSIR
g:UDLO.RO

B8NE

B8IC
ERROR

3s:

172466

:SET MATRIX MODE
;SET NCV11 ACTIVE

;ENABLE "'TEST Z'' PULSES
:DISABLE '‘TEST Z2'' PULSES

;LOAD GROSS TIMER

;DELAY

#TEST2,aSFR
;STOP '"2'" INPUTS
;AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SET
12
;:BR 7O CLEAN UP

172454

5¢%:

#4643 ,9VECTAOD

:LOAD INTR. VECTOR

BIS

#BIT6,aCSR

;ENABLE INTERRUPT

MoV
MOV

@CSR,$BDDAT
#CLRALL ,aSFR

;READ STATUS
:CLEAR THE DEVICE

ERROR

4%:
172446

MOV
NOP
NOP
NOP
NOP

000401

172452

MOV
Mov

;:D0 10 ITERATIONS
:CLEAR DEVICE

:NOW ENABLE THE WC/Z OVERFLOW INTERRUPT BIT AND WAIT FOR AN INTERRUPT
#0,-(SP)
MOV
2%:
B?Y
#3%,-(SP)
;LSI-11 HACK

007274
000100

004000
001774

#10,8TIMES
#CLRALL ,aSFR

MOV

172552
172544

000000
007230

172444

MOV
MoV

CMP

CLR

MOV
MOV
CLR

;WC/Z OVERFLOW FAILED TO GENERATE INTERRUPT

::BR TO CLEAN UP

(SP)+,(SP)+

aCSR

#CLRALL ,85FR
VECTA1,aVECTAQD
aVECTA1

:CLEAR THE DEVICE

CINCCA

NCVN

CINCCA. P11

DIA GNOSTIC

130

MACY11 27(654)

VERIFY "WCA OVFL'' CLEARS "‘ACTIVE"'

1366

1368

1367

1369

007322

000004

007366
007374

012777
052777

007324
007332
007340
007346
007354
007362

1378
1379

007402
007410

1380
1381
1382
1383

1384
}%gz

007416
007424
007432
007440

007442
007444

012737
012777
012777
012777
012777
005077

000010
004000
000014
177777
177776
172362

001160
172416
172419
172376
172372

052777
042777

000002
000002

172346
172340

017737
012737
023737
001402

007446

005037

1389

007460

001401

1390
1391

007452

007462

172352
172344

172324
040022
001124

001126
001124
001126

017737

104012

R AR

TST30:

172272

001126

SCOPE

SEQ 0044

R AR AR AR AR

AR AN AN

AR AR AR R RN RRA NN

AR R

RN AR

R R AN RRR AR RAAN RN

#10,8TIMES
;D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA!TSTCON,aSFR
JSET TEST DMA
#-1,3WCR
:LOAD W.C. REG.
#-2 ,aBAR
:LOAD BAR REG.
o0FF
:CLEAR OFFSET REG.

BIS
BIC

#TESTZ ,aSFR
#TESTZ,aSFR

MoV
MoV
CMP
BEQ

1%:

PAGE 32

MOV
MOV
MOV
MOV
MOV
CLR

ERROR
BR
001124

VERIFY 'WCA OVFL'' CLEARS '‘ACTIVE"

AR AR RN A NN RN R R

MOV
BIS

104012
000407

1387

1388

000022
000001

15:05

RN NN AN

:*TEST 30

1370
1371
1372
1373
1374
1375

1376
1377

8-AUG-78

#BIT4L!'BIT1,aCSR
#81T70,aCSR

12
TST3
$GDDAT

BEQ

TST3

ERROR

:ENABLE MATRIX MODE
;SET "ACTIVE''

;ENABLE ‘'TEST Z'' PULSES
:DISABLE ''TEST 2'' PULSES

@CSR,$BDDAT
JREAD STATUS
A#BITI4!'BITS4'BITT,$GDDAT ;LOAD EXPECTED
$GDDAT ,$BDDAT
; COMPARE

(LR

MOV

R AR,

Q0FF ,$8DDAT

;:BR IF SAME

:'WCA OVFL'' FAILED TO CLEAR "ACTIVE''
;CLEAR THE EXPECTED
;READ THE ACTUAL

;iBR IF CLEARED

J"WCA INC X OFF'' IN MATRIX MODE CHANGED

;THE OFFSET REGISTER

1392
1393
1394
1395
1396
1397
1398
1399
1400
1601
1402

1403
1404
1405

1406
1407
1408
1409
1410

1411
1412
1413

1414
1415
1416

1417
1418
1419
1420
1421
1622
1423
1424

1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1437
1438
1439
1440
1441
1442
1443

MACY11 27(654)
B8-AUG-78
DIAGNOSTIC
3
VERIFY JOYSTICK DONE FLOP SETS
R

2 2228232332222

tTEST 31
R

007464
007466
007474
007502
007510
007514
007520
007522
007524
007526
007534
007542

000004
012737
012777
052777
013700

007544
007550
007556
007562
007564
007570

005777
017737
105737

172212
172202
001126

005037

001124

105777
100411

005300
001373
017737
012737
104014

100003
104014

000040
004000
000001
002010
172236

001160

172224
000200

001126
001124

T5731:

007610

007616
007622
007626
007630
007632
007634
007642
007650

105777
100411

005300
001373
017737
012737
104014

007652
007660
007666
007674
007702
007704

052777
017737
012737
023737
001401

007706
007710
007716
007724
007732
007734

000005
017737
012737
017737
001401

833X

BIS

#REDJOY .aSFR

MOV
TSTB
BM]
DEC
BNE
MOV
MOV

1%:

2222222222222 2222

X222 2R RR2RER Q]

ERROR

#CLRALL ,aSFR

CPUDL1.RO
aSFR
2$
RO
1%

aSFR, $BDDAT
#B1T7.$GDDAT

;D0 40 ITERATIONS

:CLEAR THE DEVICE

*REQUEST JOYSTICK DATA

*LOAD DELAY COUNTER
‘WAIT FOR JOYSTICK READY
‘BR IF SET
*DELAY
‘BR IF NOT EXHAUSTED
*READ STATUS
SLOAD EXPECTED

L7 JOYSTICK READY'' FAILED TO SET

:NOW PERFORM A ‘TST'* INSTRUCTION TO THE JOYSTICK REGISTER
:
THE ACCESS OF THIS BUS ADDRESS SHOULD CLEAR JOY READY FLOP''
-ADDRESS THE REGISTER
aJoY
ST
2%:
MOV
TSTB

aSFR,$BDDAT
$BDDAT

ERROR

BPL
CLR

TST32
$GDDAT

“READ STATUS
“TEST IF THE BIT CLEARED

::BR IF YES
;LOAD EXPECTED

*ADDRESSING THE JOYSTICK ADDRESS FAILED TO CLEAR

***t*tt*iitt*tt*ttfi*itttttt*tt**tttfiti***fififitfikt***t*il’*t*fifittfi

000040
004000
000001
002010

001160

1%:

172130

172116

001126

004000

172076
001126
001124
001126

000200

172072

000200
001124

SCOPE
MOV
MOV

#40,$TIMES
#CLRALL ,aSFR

MOV
TSTB

CPUDLT,RO
@SFR

BIS

172140

001124

VERIFY THAT "RESET'' INSTRUCTION CLEARS THE JOY READY FLOP

2222333233322 3323323 3222223332223 2223322338322 223432423¢48338022220221

1§732:

172146

#REDJOY .aSFR

;:DO 40 ITERATIONS
:CLEAR THE DEVICE

*REQUEST JOYSTICK DATA

*LOAD DELAY
‘WAIT FOR JOYSTICK READY

2%
RO
1%
aSFR, $BDDAT
#B1T7,$GDDAT
14

‘BR IF SET
*DELAY
‘BR IF NOT EXHAUSTED
*READ STATUS
*LOAD EXPECTED VALUE
1JOY READY FAILED TO SET

BIS

#CLRALL ,aSFR

:GENERATE '‘CLR ALL'"

CMP

$GDDAT, SBDDAT

BMI
DEC
BNE
MOV
MOV
ERROR

:NOW ISSUE A ‘‘CLR ALL'® AND VERIFY THE ''JOY READY'' DOES NOT CLEAR

MOV
MOV
BEQ

aSFR, $BDDAT
#B81T7,$GDDAT

*READ STATUS
:LOAD EXPECTED VALUE

;:BR IF SAME

: COMPARE

ERROR
14
SU'CLR ALL'* CLEARED THE '‘JOY READY'' FLOP IN ERROR
:NOW ISSUE A BUS 'RESET'' AND VERIFY THE JOY READY'' CLEARS

104014

23322

SEQ 0045

VERIFY JOYSTICK DONE FLOP SETS

#40,8TIMES

MOV

000004
012737
012777
052777
013700

PAGE 33

SCOPE
MOV

JATEST 32
007572
007574
007602

222322222228232322323333223323223223233233032333232222233¢322323333282282¢22%23]

172254
172¢40

001126

15:05

172042

000000

172026

001126
001124
001126

RESET

MOV
MOV
MOV

aSFR, $BDDAT
#0,$GDDAT
aSFR, $BDDAT

ERROR

BEQ

TST35%

SBUS TINIT"

*READ STATUS
*LOAD EXPECTED
*READ STATUS

::BR IF CLEARED

;BUS INIT FAILED TO CLEAR J10Y READY

[anNan

CINCCA NCV11
CINCCA.P1T

1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462

H
4
15:05 PAGE 34
MACY11 27(654)
8-AUG-78
DIAGNOSTIC
132
VERIFY THAT 'RESET"' INSTRUCTION CLEARS THE JOY READY FLOP
':fiitt!tttttt*fi*ttttti

TRTEST 33

1467

1468

1469
1470
1471
1472

1473

1474
1475
1476

1477
1478
1479
1480
1481
1482
1483

1484
1485
1486

1487

1488
1489
1490
1491
1492
1493
1494

208

GAIN =0

0REARESAEREERDSEA

7B ENABLE -0

RES.

';tttttfiittttttttititt*tfittttt*fittttfi*ttfittt*tttttttitttttt*tittt

007736
007740
007746
007754
007762
007770
007776
010002
010004
010012
010020
010026

010030

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737
023737
001401
104015

000010
004000
000014
000000
000001
171754

001160

171752

001126
001124
001126

000000
001124

TST33:

172002

171774
171756
171760

1$:

SCOPE

MOV
MOV
MOV
MOV

#10,8TIMES

;:D0 10 ITERATIONS

BIS
TSTB

#CLRALL ,aSFR
ATSTCON!TSTDMA,aSFR
#0,3CSR
;LOAD
#REDJOY ,aSFR
?gFR

cMp
BEQ
ERROR

aJ0Y,$BDDAT
#0,8GDDAT
$GDDAT ,$BDDAT
TST34
15

BPL
MOV
MOV

;CLEAR THE DEVICE
JSET TEST CONTROLLER FlLOP
CSR REGISTER
JREQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

::BR IF

JREAD THE REGISTER
;LOAD EXPECTED
; COMPARE
SAME
;JOYSTICK DATA PATH BIT SET

':tttttttt'tttt*‘fit.ttit*tttt*fitttfitttt*ttttt*it*t*lt*ttttttttttl

TRTEST 34

1463

1464
1465
1466

1882232220220 0¢82R20 0

JOYSTICK DATA PATH

SEQ 0046

JOYSTICK DATA PATH

GAIN =1

':ttfitt*ttttt.tttt*ttt*ii'ttt.*fi*it*fi*tfiktt*ifltttttttttttttt*tt**

010032
010034
010042
010050
010056
010064
010072
010076
010100
010106
010114
010122
010724

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737
023737
001401
104015

000010
004000
000014
002000
000001

001160
171706
171700
171662
171664

171656
124250
001124

001126
001124

171660

TST34:

1$:

SCOPE

MOV
MOV
MOV
MOV

BIS
T1STB
BPL
MOV
Mov
cMP
BEQ

001126

ERROR

#10,8TIMES

:.D0 10 ITERATIONS

#CLRALL ,aSFR
#TSTCON!TSTDMA ,aSFR
#2000,aCSR
#REDJOY ,aSFR
?EFR

;CLEAR THE DEVICE
JSET TEST CONTROLLER FLOP
;LOAD CSR REGISTER
JREQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

aJOY,$8DDAT

JREAD THE REGISTER

#124250,8GDDAT

$GDDAT , $BDDAT
TST35
15

;LOAD EXPECTED

;:BR IF

. COMPARE
SAME
;JOYSTICK DATA PATH ERROR

;;ttttt*tttttttt*ttt't*tfitittttQttttttttttt'ttt**ittl**t*tttt*fitfi

;*xTEST 35

JOYSTICK DATA PATH

7B ENABLF =1

::tt*tttitttttttttt**lt*it*'ttfittttttttt***t*ttt*ttt*ti*ttttttttt

010126
010130
010136
010144
010152
010160
010166
010172
010174
010202
010210
010216
010220

000004
012737
012777
012777
012777

052777
105777
100375

017737
012737
023737
001401
104015

TST35:

000010
004000
000014
004000
000001
171564
171562

050120
001124

1%:

001126
001124
001126

SCOPE

MoV
MOV
MOV
MOV

BIS
1S18
BPL
MOV
MoV

CMP
BEQ
ERROR

#10,STIMES
#CLRALL ,aSFR

:.D0 10 ITERATION.
;CLEAR THE DEVICE

HTSTCON!TSTDMA,aSFR

sSET

#REDJOY ,aSFR

JREQUEST JOYSTICE

#4000,aCSR
?EFR

aJ0Y,$BDDAT
4050120, $GDDAT
$GDDAT , $8DDAT
1ST36
15

TEST

CONTROLLER FLOP

;LOAD CSR REGISTER

DATA

;WAIT FOR JOYSTICE READY

;;BR IF

;JREAD THE REGISTER
;LOAD EXPECTED
. COMPARE
SAME
;JOYSTICK DATA PATH ERROR

= 000

NCVIY
CINCCA.PIT
CZNCCA

N=2OVONTWVB WSO

Krn\n\nununn\n\n\n\n\nun
NN = b b =d e D e b ed =

—

)

d e

)

100375

017737
012737
023737
001401
104015

001126
001124
001126

000401
001124

b —d

171466

HHnn=

012777
012777
052777
105777

000010
004000
000014
000023
000001
171470

—_

000004
012737
012777

SO0

SR 223222323 22332233

010222
010224
010232
010240
010246
010254
010262
010266
010270
010276
010304
010312
010314

6
1

7
7

TST36:

1%:

15:05

SCOPE

MOV
MOV
MOV
MOV
BIS
TSTB
BPL
MOV
MoV
CMP
BEQ
ERROR

PAGE 35

2222232232228 222322323222

TRTEST 36
—
b b O
NNNNO

1495
1496
1497
1498
1499
1500
1501

MACY11 27(654) 8-AUG-78
DIAGNOSTIC
136
JOYSTICK DATA PATH RES. = 001

SEQ 0047

222883 2232202223202

JOYSTICK DATA PATH

RES. = 001

800000ttt itadnt A

2323283222232 32238232302223 2380228823200
RdRtRRE

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,SFR
:SET TEST CONTROLLER FLOP
#23,aCSR
:LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
?gFR
;WAIT FOR JOYSTICE READY

;READ THE REGISTER

8J0Y,$8DDAT
#401,8GDDAT

$GDDAT ,$8DDAT
TST37

;LOAD EXPECTED

;. COMPARE
::BR IF SAME

:JOYSTICK DATA PATH ERROR

RES. = 001

22222222322232232223222323223223232232332222232322222232222382R38220R%
R0

TRTEST 37

JOYSTICK DATA PATH

RES. = 010

';ttttttttfifi*i*tt***ttttiitttfittttttfitttt***lfittfitt*t*tt*ttttttt'

010316
010320
010326
010334
010342
010350
010356
010362
010364
010372
010400
010406
010410

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737

023737
001401

T1ST37:

000010
004000
000014
000025
000001
171374
171372
001002
001124

1%:

001126
001124
001126

SCOPE

MOV
MOV
MOV
MOV

#10,8TIMES
;.00 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
HTSTCON!TSTDMA,aSFR
sSET TEST CONTROLLER FLOP
#25,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
?gFR
;WAIT FOR JOYSTICE READY

MOV

#1002, $GDDAT
$GDDAT , $BDDAT
TST40

BIS
1ST8
BPL
MOV

CMP

BEQ

104015

ERROR

;READ THE REGISTER

aJ0OY, $8DDAT

::BR IF

;LOAD EXPECTED
. COMPARE
SAME

;JOYSTICK DATA PATH ERROR

RES. = 010

';ttttt*ttt*ttt*ttttt'tttttttttttttttttitttttittttttttttt*itttt*t

LATEST 40

JOYSTICK DATA PATH

RES. = 100

':t*tt*ttttttt*t*tttitttttttttttktittittttt*fitt*tttttttt*tttt*t*t

1540
1541

1543
1544

010412
010414
010422
010430
010436
010444
010452
010456
010460
010466
010474
010502
010504

000004
012737
012777
012777
012777
052777
105777
100375
017737
012737
023737
001401
104015

TST40:

000010
004000
000014
000031
000001
171300
171276

002004
001124

1%:

001126
001124
001126

SCOPE

MOV
MoV
MOV
MoV
8IS
1STB
BPL
MOV
MOV
(MP
BEQ

ERROR

#10,$TIMES

;.D0 10 ITERATIONS

#CLRALL ,aSFR
#TSTCON!TSTDMA,aSFR
#31,aCSR

;CLEAR THE DEVICE
JSET TEST CONTROLLER FLOP
;LOAD CSR REGISTER

aJOY ,$BDDAT
#2004, $GDDAT
$GDDAT ,$BDDAT

JREAD THE REGISTER
;LOAD EXPECTED

H#REDJOY ,aSFR
?EFR

TST41

;.BR

JREQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

. COMPARE
SAME

;JOY STICK DATA PATH ERROR

RES. = 100

NCVIT
CINCCA.PT
CINCCA

PAGE 36

SEQ 0048

::tttttttifitttttttttfiittit*ttttt't*tfi*ttt*ttttttttttt*tt*titttttt

TXTEST 41

VERIFY THE DATA INCREMENT FUNCTION

;:ittttttt*t*tfitt*t'tt'tttttittttti*t**fitfittttt*tt*ttt*tttttttttt

010506
010510
010516
010524

010532
010540

010546
010552
010554
010562
010570
010576
010600

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737
023737
001401

T8T41:

000010
004000
000014
000421
000001
171204
171202
000401

001124

1$:

SCOPE
MOV
MOV
MOV
MOV
BIS
éSTB
L

MOV

001126
001124
001126

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
ATSTCON! TSTDMA,aSFR
*SET TEST CONTROLLER FLOP
#421,3CSR
:LOAD CSR REGISTER
*REQUEST JOYSTICE DATA
#REDJOY ,aSFR
?irq
‘WAIT FOR JOYSTICE READY
aJOY, $BDDAT

MOV

#401,$GDDAT

BEQ

TST42

CMP

ERROR

104016

;READ THE REGISTER

$GDDAT , $8DDAT
16

:LOAD EXPECTED

: COMPARE

::BR IF SAME

:MAINT. CAMO1 FAILED TO INCREMENT DATA REGISTER

;:tttttttttfittk*lttttttt*tii**tfitttttit**tttt***fittttt***ttttt*tt

TRTEST 42

010672
010674

105777
100375
017737
012737
023737
001401
104016

— 2 WWNWO
HSKNOONO

—d

171106
130260
001124

001126
001124
001126

000010
004000
000014
002437
000001
171110

012737
012777
012777
012777
052777

000004

—_—

010602
010604
010612
010620
010626
010634
010642
010646
010650
010656

—

1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579

MACY11 27(654)
8-AUG-78 15:05
DIAGNOSTIC
T41
VERIFY THE DATA INCREMENT FUNCTION

TST42:

1$:

VERIFY THE DATA INCREMENT CARRY BIT

AR AR AR REAE A RN AR R

SCOPE

AR AANAR AR A A RN AR RRANRN AN RN AR AN RN RR AR AR A

MOV
MOV
MOV
MOV
BIS
T;TB

#10,8TIMES
;D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA ,aSFR
;JSET TEST CONTROLLER FLOP
#2437 ,aCSR
;LOAD CSR REGISTER
JREQUEST JOYSTICE DATA
#REDJOY ,dSFR
?gFR
;JWAIT FOR JOYSTICE READY

1 (0)%
MOV
CMP
BEQ

aJOY, $8DDAT
#130260,$GDDAT
$GDDAT, $BDDAT
TST43

8PL

ERROR

JREAD THE REGISTER
;LOAD EXPECTED
. COMPARE
;:BR IF SAME

;MAINT. CAMO1 WITH RES.=7, G-1, 728 =0
JFAILED TO CAUSE DATA INCREMENT CARRY PROPERLY

';tttttttt*ttttttttifittttttttt*tit*tQ***tit***t*tfiti*tttit*iititt

T*TEST 43

VERIFY THE DATA INCREMENT FUNCTION IS INHIBITED

::tittitfi*i**fit*t*t***ttit**t**fit**t*t**tt*'*tttitttfi'tt*i*itttt*

010676
010700
010706
010714
010722
010730
010736
010742
010744
010752
010760
010766
010770

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737
023737
001401
104016

TST43:

00000
004000
000014
006437
000001
171014

171012
177777
001124

1$:

001126
001124
001126

SCOPE
MOV
MOV
MOV
MOV
BIS
égTB

#10,$TIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
ATSTCON' TSTDMA, aSFR
*SET TEST CONTROLLER FLOP
#6437 ,aCSR
:LOAD CSR REGISTER
#REDJOY ,aSFR
*REQUEST JOYSTICE DATA
?2FR
;WAIT FOR JOYSTICE READY

MoV
MOV
cMP
BEQ
ERROR

aJ0Y, $8DDAT
#177777 ,$GDDAT
$GDDAT , $BDDAT
TST44
16

;READ THE REGISTER
;LOAD EXPECTED
. COMPARE
;.BR IS SAME
JFAILED TO INHIBIT DATA INCREMENT FUNCTION

;1F THE BAD DATA WAS 0

NCV1T

— —d d b O
NNNNO

CZNCCA

CINCCA.PI

CINCCA

NCVIT

CINCCA.PT

DIAGNOSTIC

T44

VERIFY THE DATA DECREMENT FUNCTION

1597

1598
1600

}g}z

RN AR

J*TEST 44

1599

1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612

8-AUG-78

MACY11 27(654)

010772

010774
011002
011010
011016
011024
011032
011036
011040
011046
011054
011062
011064

000004

012737
012777
012777
012777
052777
105777
100375
017737
012737
023737
001401
104017

000010
004000
000014
001023
000001
170720

001160
170746
170740
170722
170724

170716
000000
001124

001126
001124
001126

TST44:

1616

J«TEST 45

1617

1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
}gg?

011066
011070
011076
011104
011112
011120
011126
011132
011134
011142
011150
011156
011160

000004
012737
012777
012777
012777
052777
105777
100375
017737
012737
023737
001401
104017

000010
004000
000014
007037
000001
170624

001160
170652
170644
170626
170630

170622
177376
001124

001126
001124
001126

1%:

J«TEST 46

1634

1635

011162

000004

1636
1637
1638
1639
1640
1641

011164
011172
011200
011206
011214
011222

012737
012777
012777
012777
052777
105777

000010
004000
000014
001021
000001
170530

001160
170556
170550
170532
170534

1643
1644
1645
1646
1647

011230
011236
011244
011252
011256

017737
012737
023737
001401
104017

170526
000000
001124

001126
001124
001126

1642

1648

011226

100375

1%:

R AR AR

AR ANARNRR AR AR

SCOPE

AN AR

AR AR AN R AR AR TR R

RARR

AN AR R RN AR RN AR AN RN R AAAA AR

AARAANRRA A RANS

VERIFY THE DATA DECREMENT BORROW

RRAR R AR

AR AR

AN AR A AN A AN

A AR AR AN AR RARAAARARRNRRRAR

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
JSET TEST CONTROLLER FLOP
#7037 ,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
;REQUEST JOYSTICE DATA
aSFR
JWAIT FOR JOYSTICE READY
1%
aJOY ,$BDDAT
JREAD THE REGISTER
#177376,8GDDAT
;LOAD EXPECTED
$GDDAT , $BDDAT
; COMPARE
T1ST46
;:BR IF SAME
17
;DECREMENTED DATA ERROR

RN AR RN AR

TST46:

;OTHERWISE DECREMENTED DATA ERRUR

SCOPE
MOV
MOV
MOV
MOV
BIS
TSTB
BPL
MOV
MOV
CMP
BEQ
ERROR

1633

RANNAN AR

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON'TSTDMA,aSFR
JSET TEST CONTROLLER FLOP
#1023,3CSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
;REQUEST JOYSTICE DATA
aSFR
JWAIT FOR JOYSTICE READY
1%
aJOY,$BDDAT
JREAD THE REGISTER
#0,$GDDAT
;LOAD EXPECTED
$GDDAT ,$BDDAT
; COMPARE
TST4S
;:BR IF SAME
17
;IF DATA WAS 401, THE DATA DECREMENT FUNCTION FAILED

AR R

1632

SEQ 0049

VERIFY THE DATA DECREMENT FUNCTION

TST45:

PAGE 37

AR R AR AR R R AR RN RN AN RN

SCOPE

1615

AR AR AR RN R R R AR AR

MOV
MOV
MOV
MOV
BIS
TST8
BPL
MOV
MOV
(MpP
BEQ
ERROR

1%:

15:05

AR RN

AR RNNRNE AR RAAAR AR

RANNS

VERIFY THE DATA DECREMENT FUNCTION IS INHIBITED
AA R

AR RN AR AR

AR RARR A ANAR AR NRAARRARNRARRNAAR

MOV
MOV
MOV
MOV
BIS
1518

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA ,aSFR
;SET TEST CONTROLLER FLOP
#1021,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
oSFR
JWAIT FOR JOYSTICE READY

MOV
MOV
CMP
BEQ
ERROR

aJOY,$BDDAT
#0,8GDDAT
$GDDAT ,$BDDAT
1ST47
17

BPL

;READ THE REGISTER
;LOAD EXPECTED
; COMPARE
;:BR IF SAME
JINHIBIT DECREMENT FUNCTION ERROR

;1F DATA WAS 177777

CZNCCA

NCVIT

CINCCA.P11
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664

1665

1666
1667
1668

1669
1670
1671
1672
1673
1674
1675
1676

8-AUG-78 15:05 PAGE 38
MACY11 27(654)
DIAGNOSTIC
MATRIX MODE - RES = 7 GAIN
= 0 ZB ENABLE
= 0
147
TEST ADDRESS MAKER
-

SEQ 0050

':tttttttttti**fiittfiti'ttttttittt*ti*tttttttttttttttt*ttttttttttt

I*TEST 47

TEST ADDRESS MAKER

MATRIX MODE - RES = 7 GAIN - O ZB ENABLE

:;tttttttfittttttfi*fitfittttttttttttttfit*fittttttitittttl*tttttttittt

011256
011260
011266
011274
011302
011310
011316
011324
011332
011340
011346
011354
011356

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737

000010
004000
000014
000036
000002

001160

TST47:

MoV
MOV
MOV

170462
170454
170436
170440

001126

:.D0 10 ITERATIONS
W#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA!TSTCON,aSFR
JSET "‘TEST DMA AND CONTROL''
#36,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

BIS
BIC
MOV

#81T0,aCSR
#TESTZ ,aSFR
@ADM, SBDDAT

CMP
8EQ
ERROR

$GDDAT, SBDDAT
TSTSO

MOV

001124
001126

#10,8TIMES

“ENABLE "‘TEST Z'* PULSES
*SET ENABLE NCV11
*DISABLE '‘TEST 2'' PULSES
*READ THE ADDRESS DATA MAKER

ATESTZ ,aSFR

BIS

170422

170424

001401
104020

SCOPE

MOV

#3407, $GDDAT
20

“LOAD EXPECTED VALUE

*COMPARE EXPECTED TO READ
::BR IF SAME
*INCORRECT ADDRESS MAKER DATA
RESOLUTION = 7 GAIN = 0 2B ENABLE = 0

;;tttttttttfi't*ttfittt*ittfititt*ttttt**tttfifit*ktttittfi*ttfitttttttt

J*TEST 50
AR

011360
011362
011370
011376
011404
011412
011420
011426
011434
011442
011450
011456
011460

000004
012737
012777
012777
012777
052777
052777
042777

017737
012737
023737
001401
104020

000010
004000
000014

127657

001124

001160
170360
170352
170334
170336
170320
170322
001126
001124
001126

TSTSO

TEST ADDRESS MAKER

AR R R AR RN NN

ZCCPE

MOV

#10,STIMES

MOV

#TSTDMA! TSTCON,aSFR

MOV

MOV
8IS

BIS

BIC
MOV
MOV

cMp
BEQ
ERROR

MATRJX MODE - RES
= 7 GAIN
= 1 ZB ENABLE

R AR R RN RRARARARA R

#CLRALL ,aSFR

:CLEAR DEVICE

JSET *'TEST DMA AND CONTROL''
$LOAD RESOLUTION. GAIN, ZB ENABLE VALUE
JENABLE ''TEST Z'' PULSES
;SET ENABLE NCV11
;DISABLE '‘TEST Z'' PULSES

#81T70,aCSR

$GDDAT , $8BDDAT
TSTS51
20

AR AR

;:D0 10 ITERATIONS

#2036,aCSR
#TESTZ,aSFR

HTESTZ,aSFR
dADM, $BDDAT
#127657 ,8GDDAT

RRRANNNNRNNAAR AR

JREAD THE ADDRESS DATA MAKER

;LOAD EXPECTED VALUE

;COMPARE EXPECTED TO READ
;:BR IF SAME
;INCORRECT ADDRESS MAKER DATA

RESOLUTION
= 7

GAIN= 1

B ENABLE
= 0

2232323223 232322322233 2233222423233 232323282232328030¢R200002328200R8RRRsn

SATEST S

TEST ADDRESS MAKER

MATRIX MODE - RES
= 7 GAIN= 0 ZB ENABLE

X2 E2XZSZIZTITIISR2ZES22223
2222223022222 2302332332800 4888 38202888041

011462

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
004036
000002
000001
000002
170216

053527
001124

001160
170256
170250
170232
170234
170216
170220

001126
001124
001126

TST51

SCOPE

MOV
MOV

#10,STIMES
#CLRALL ,@SFR

MOV
BIS

#4036 ,3CSR
WNTESTZ,aSFR

MOV
BIS

BIC
MOV
MOV

CMP
BEQ
ERROR

;:D0 10 ITERATIONS
:CLEAR DEVICE

#TSTDMA! TSTCON,@SFR
#8170,aCSR

WNTESTZ,aSFR
aADM, $BDDAT
#053527,$GDDAT

$GDDAT , $BDDAT
TSTS2
20

SET ''TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE "‘TEST Z'° PULSES
#SET ENABLE NCV11
;DISABLE ‘‘TEST Z'' PULSES
JREAD THE ADDRESS DATA MAKER
;LOAD EXPECTED VALUE

. COMPARE EXPECTED TO READ
;;BR IF SAME
. INCORRECT ADDRESS MAKER DATA

RESOLUTION = 7

GAIN = 0

ZB ENABLE =1

CZNCCA NCVIT
CINCCA.P1T

MACY11 27(654) 8-AUG-78 15:05 PAGE 39
DIAGNOSTIC
TEST ADDRESS MAKER = MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 0
152
B2

1700

2222222322222 3 2223232233223 3282323222222 223 2222222008 sit

T*TEST 52

TEST ADDRESS MAKER

SEQ 0051
Rttt Rl

=~ MATRIX MODE - RES - 6 GAIN = 0 ZB ENABLE

h).a_ha.a.a.a_a_a_a_wz
OV
~NONW S WO

b e

d d

NN NN NNNNNNNN

;:ttttttfittt'fitttfiitttt'ttt'ttttttiititttt*tttttitttt*ttttt‘ttttt

011564
011566
011574
011602
011610
011616
011624
011632

011640
011646

011654
011662
011664

000004

012737
012777

000010
004000

001160
1701564

052777
042777
017237

000001
000002
170114

170114
170116
001126

012777
012777
052777

012737
023737
001401

000014
000034
000002
001406
0011264

TST52:

#10,8TIMES
#CLRALL ,@SFR

BIS
BIC
MOV

#81T0,aCSR
#TESTZ,aSFR
RADM, SBDDAT

ERROR

MOV
MOV
BIS

170146
170130
170132

MOV
CMP
BEQ

001124
001126

1046020

SCOPE

MOV
MOV

::D0O 10 ITERATIONS
:CLEAR DEVICE

“SET '"TEST DMA AND CONTROL'
"LOAD RESOLUTION. GAIN, 2B ENABLE VALUE
“ENABLE "‘TEST Z'" PULSES

#TSTDMA | TSTCON,aSFR
#34 ,3CSR
#TESTZ . aSFR
#1406, $GDDAT
$GDDAT , S8DDAT
TST52

“SET ENABLE NCV11
*DISABLE '‘TEST Z'* PULSES
“READ THE ADDRESS DATA MAKER

*LOAD EXPECTED VALUE
*COMPARE EXPECTED TO READ
;;BR IF SAME

RESOLUTION = 6

*INCORRECT ADDRESS MAKER DATA

GAIN = 0

2B ENABLE - 0

;;ttttttttt'ttttttttttttttttttttttttttttttttttttttttttttttttttttt

T*TEST 53

TEST ADDRESS MAKER

MATRIX MODE - RES = 6 GAIN = 1 ZB ENABLE

::tttfitttttttttttttttttttttttttttfitt*tttttttttttttttttttttt*ttttt

011666
011670
011676
011704
011712
011720
011726
011734
011742
011750
011756
011764
011766

000004

012737
012777

000010
004000

001160
170052

017737
012737
023737

170012
053656
001124

001126
001124
001126

012777
012777
052777
052777
042777
001401
104020

000014
002034
000002
000001
000002

7ST53:

SCOPE

MOV
MOV

#10,$TIMES
#CLRALL ,@SFR

MOV
MOV
CMP

SADM, SBDDAT
#53656, $GDDAT
SGDDAT . $BDDAT

MOV
MOV
BIS
BIS
BIC

170044
170026
170030
170012
170014

;

BEQ
ERROR

::D0 10 ITERATIONS
:CLEAR DEVICE

"SET '"TEST DMA AND CONTROL'®
*LOAD RESOLUTION. GAIN, ZB ENABLE VALUE
*ENABLE "‘TEST 2''PULSES
*SET ENABLE NCV11
:DISABLE '‘TEST 2'' PULSES

#TSTDMA ! TSTCON,aSFR
#2034 ,aCSR
#TESTZ,aSFR
#8170,3CSR
ATESTZ.3SFR

TSTS4
20

"READ THE ADDRESS DATA MAKER
*LOAD EXPECTED VALUE
*COMPARE EXPECTED TO READ

;:BR IF SAME
S INCORRECT ADDRESS MAKER DATA

RESOLUTION = 6

GAIN = 1

7B ENABLE = 0

;;tittttttt*ttttttt*tttttttttttttttttttttttttttttttttttttt*tttttt

S*TEST 564

TEST ADDRESS MAKER

MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE

;:t**ttttfitttttttttttttttttttttttttfitt*ttttttittttttttttfitfitttttt

1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750

011770
011772
012000
012006
012014
012022
012030
012036
012044
012052
012060
012066
012070

000004

012737
012777

000010
004000

001160
167750

052777

000001

167710

012777
012777
052777
042777

017737

012737

023737
001401
104020

000014
004034
000002
000002

TSTS54:

167742
167724
167726

MOV
MOV
815

001126

001124

001126

CMP
BEQ
ERROR

$GDDAT, SDDAT
TSTSS
20

MOV

::D0 10 ITERATIONS
;CLEAR DEVICE

MOV

BIC

125526 001124

#10.$TIMES
#CLRALL ,aSFR

TSTDMA! TSTCON, aSFR
#4034 ,3CSR
ATESTZ.aSFR
#B1T0,aCSR
#TESTZ,3SFR
SADM, $BDDAT

BIS

167712

167710

SCOPE

MOV
MOV

#125526,$GDDAT

“SET *'TEST DMA AND CONTROL''
*LOAD RESOLUTION. GAIN. ZB ENABLE VALUE
*ENABLE '‘TEST 2'* PULSES
*SET ENABLE NCVNI

:DISABLE '‘TEST 2'' PULSES

*READ THE ADDRESS DATA MAKER

:LOAD EXPECTED VALUE

*COMPARE EXPECTED TO READ
;;BR IF SAME
“INCORRECT ADDRESS MAKER DATA

RESOLUTION = 6

GAIN = O

ZB ENABLE = 1

CINCCA NCVIT
CINCCA.PI
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778

1779

1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792

1793

1794
1795
1796
1797
1798
1799
1800
1801

DIAGNOSTIC
MACY11 27(454)
B-AUG-78 15:05 PAGE 40
155
TEST ADDRESS MAKER =~ MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = 0

SEQ 0052

T T

J*TEST 55
IR AR RN

012072
012074
012102
012110
012116
012124
012132
012140
012146
012154
012162
012170
012172

000004

012737

000010

001160

012777
012777
052777
052777
042777

000014
000032
000002
000001
000002

167640
167622
167624
167606
167610

012777

017737
012737
023737

0014601

004000

167606
000402
001124

TST55:

SCOPE

167646

oV
MOV
8IS
BIS
8I1C

#TSTDMA!TSTCON,aSFR
#32,aCSR
#TESTZ ,aSFR
#8170,a(CSR
MTESTZ,aSFR

#CLRALL ,@SFR

aADM, $8DDAT
#402,8GDDAT
$GDDAT , $BDDAT

BEQ
IR

TST56

ERROR

AR AN RN

#10,8$TIMES

MOV
MoV
CMP

RN RN RN R AR AR

MOV

001126
001124
001126

104020

TEST ADDRESS MAKER
AR RN RN

J*TEST 56

20
R R

RS AR

AR R

MATRIX MODE - RES
RN RN AR

5 GAIN - 0 ZB ENABLE = C

RN AN R AR AN RN

;:D0 10 ITERATIONS

;CLEAR DEVICE

;SET ''TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, 7B ENABLE VALUE
JENABLE '‘TEST 2'' PULSES
sSET ENABLE NCV11
;DISABLE '‘TEST Z'' PULSES
;READ THE ADDRESS DATA MAKER
;LOAD EXPECTED VALUE
; COMPARE EXPECTED TO READ

;;BR IF SAME

RESOLUTION = 5

s INCORRECT ADDRESS MAKER DATA

GAIN = 0

7B ENABLE = 0

AR RN AR AR AR AR RANRNRR RN AR AN RR RN AARRAAREA AN

TEST ADDRESS MAKER

MATRIX MODE - RES = 5 GAIN =

ZB ENABLE - 0

';tt*!tttttttttttfitttfifittttttt\ttttttttfi*fi.tfittttttfittttitttt*t*'

012174
012176
012204
012212
012220
012226
012234
012242
012250
012256
012264
012272
012274

000004
012737
012777

000010
004000

001160
167544

012777
052777
052777

002032
000002
000001

167520
167522
167504

012777

042777
017737
012737
023737
001401

000014

000002

167504
025526
001124

T1STS6:

167536

#10,STIMES
#CLRALL ,aSFR

MOV
BIS
BIS

#2032 ,3CSR
#TESTZ ,aSFR
#8170,aCSR

MOV

167506

BIC

001126
001124
001126

104020

SCOPE
MOV
MOV

MOV
MOV
cMP
BEQ

ERROR

::D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA'!'TSTCON,aSFR

:SET °‘TEST DMA AND CONTROL''

#TESTZ,a8SFR

;DISABLE ‘TEST Z'' PULSES

@ADM, SBDDAT
#25526,8GDDAT
$GDDAT ,$BDDAT
1STS7
20

:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE °"‘TEST Z'' PULSES
:SET ENABLE NCVN

:READ THE ADDRESS DATA MAKER
:LOAD EXPECTED VAL UE
;COMPARE EXPECTED TO READ
;:BR IF SAME

RESOLUTION = S

:INCORRECT ADDRESS MAKER DATA

GAIN = 1

ZB ENABLE = 0

;;tttttttttttttttttatttttfitittttttttttttttttttttttttttttttt*ttttt

J*TEST 57

TCST ADDRESS MAKER

MATRIX MODE - RES = 5 GAIN - 0 7B ENABLE

;;tttttttttttttttttttttttttttttttttttittttlwttttttttttttttttttttt

012276
012300
012306
012314
012322
012330
012336
012344
012352

012376

000004
012737
012777
012777
012777
052777

000010
004000
000014
004032
000002

001160
167442
167434
167416
167420

042777
017777
012737
023737

052452
001124

001124
001126

052777

001401
104020

000001
000002
167402

T1STS57:

167402
167404
001126

SCOPE
MOV
MOV
MOV
MOV
8IS

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA!TSTCON,aSFR
;SET "TEST DMA AND CONTROL''
#4032 ,aCSR
;LOAD RESOLUTION, GAIN, /B ENABLE VvALU
#TESTZ,aSFR
:ENABLE "‘TEST Z'' PULSES

MOV
CMP
BEQ

#52452 ,8GDDAT
$GDDAT ,$8DDAT
TST60

BIS
BIC
MOV

;

ERROR

#8I1T0,aCSR
#TESTZ,aSFR
®ADM, $BDDAT

JSET ENABLE NCV11
:DISABLE 'TEST 2'° PULSES
;READ THE ADDRESS DATA MAKER

;LOAD EXPECTED VALUE
. COMPARE EXPECTED TO READ
;:BR IF SAME

RESOLUTION = 5

:INCORRECT ADDRESS MAKER DATA

GAIN = O

7B ENABLE =1

€2
4

NCVIT
CZNCCA
CINCCA.P11
1802
1803
1804

MACY11 27(654)

DIAGNOSTIC
160
TEST ADDRESS MAKER
R

B 5
8~-AUG-78 15:05 PAGE 41
MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE = 0

22232233223 3232323282323223232232 3233232238223

S*TEST 60

TEST ADDRESS MAKER

SEQ 0053

20228020 0R30dRRRtRdtitatlsdl]

MATRIX MODE - RES

& GAIN - 0 ZB ENABLE

;;ttttitt*ttttt*fitttt*tt"ttt*kttttfittttttttttttttttttttttttfitttt

012400
012402
012410
012416
012424
012432
012440
012446
012454
012462
012470
012476
012500

000004

012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
000030
000002
000001
000002

167300
000202
001124

001160
167340
167332
167314
167316
167300

TST60:

SCOPE

MOV
MOV

#10.$TIMES
#CLRALL .aSFR

MOV
BIS
BIS
BIC

#30,3CSR
HTESTZ ,aSFR
#B170,aCSR
HTESTZ,aSFR

MOV
CMP
BEQ

#202,8GDDAT
$GDDAT , $BDDAT
TST61

MOV

167302

MOV

001126
001124
V01126

ERROR

;:DO 10 ITERATIONS
:CLEAR DEVICE

#TSTDMA i TSTCON,aSFR

;ENABLE ''TEST Z'' PULSES
;SET ENABLE NCV11
;DISABLE '‘TEST Z'' PULSES

@ADM, $8DDAT

“SET ''TEST DMA AND CONTROL''
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

;JREAD THE ADDRESS DATA MAKER

;LOAD EXPECTED VALUE
:COMPARE EXPECTED TO READ
;;BR IF SAME

RESOLUTION = 4

; INCORRECT ADDRESS MAKER DATA
GAIN = 0 7B ENABLE = 0

':ttttttt**tt*t*ttt*ttttttt****t*ttfititt****tt*ttt*t*ttt*t*tt*ttt

T*TEST 61

TEST ADDRESS MAKER

MATRIX MODE - RES = 4 GAIN = 1 7B ENABLE

';tttttt*tttt*t**ttt*tfitttt***fi*it*tttttttfitttt*t*ttittt***tt*itt

012502
012504
012512
012520
012526
012534
012542
012550
012556
012564
012572
012600
012602

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014
002030
000002
000001
000002
167176
012726
001124

001160
167236
167230
167212
167214
167176
167200
001126
001124
001126

T8T61:

SCOPE

MoV

#10,8TIMES

MOV

#TSTDMA!TSTCON,aSFR

MOV

MOV
BIS

BIS

BIC
MOV
MOV

CMP
BEQ
ERROR

104020

;*TEST 62
KRR

1850
1851
1852

012604
012606
012614
012622
012630
012636
012644
012652
012660
012666
012674
012702
012704

000004
012737

012777
012777
012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
004030
000002
000001
000002
167074

025252
001124

001160
167134
167126
167110
167112
167074
167076
001126
001124
001126

TST62:

#CLRALL ,aSFR

;SET ""TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE '‘TEST Z'' PULSES
#B81T0,aCSR
;SET ENABLE NCV11
HTESTZ ,aSFR
;DISABLE ‘‘TEST Z'' PULSES
aADM, $B8DDAT
JREAD THE ADDRESS DATA MAKER
#012726,3GDDAT
;LOAD EXPECTED VALUE
$GDDAT
, $BDDAT
;. COMPARE EXPECTED TO READ
TST62
;:BR IF SAME
20
; INCORRECT ADDRESS MAKER DATA
RESOLUTION = &
GAIN = 1
7B ENABLE = 0
e

TEST ADDRESS MAKER
RN AN

#10,$TIMES

MOV

#TSTDMA!TSTCON,aSFR

#CLRALL ,aSFR

MoV
8IS

#4030,aCSR
HTESTZ ,aSFR

BIC
MOV
MOV

W#TESTZ,aSFR
@ADM, $BDDAT
#025252, $GDDAT

BIS

cMP
BEQ
ERROR

#B170,aCSR

MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE

AN RN SRR AR RN RO

MOV

;CLEAR DEVICE

#2030,aCSR
HTESTZ ,aSFR

AR RN AR

SCOPE

;.D0 10 ITERATIONS

AR RN AN AR RN RRR RN RR R RS

;:D00 10 ITERATIONS

;CLEAR DEVICE

;SET "TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

;ENABLE '‘TEST 2'' PULSES
;SET ENABLE NCV11
;DISABLE 'TEST Z'' PULSES

JREAD THE ADDRESS DATA MAKER
;LOAD EXPECTED VALUE
$GDDAT, $BDDAT
. COMPARE EXPECTED TO READ
TST63
;;BR IF SAME
- INCORRECT ADDRESS MAKER DATA
20
RESOLUTION - 4
GAIN = 0 ZB ENABLE = 1

-C

CZNCCA NCVIN
CINCCA.PIT
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876

1877
1878
1879
1880
1881

1882
1883

MACY11 27(654)

DIAGNOSTIC
TEST ADDRESS MAKER
763

5
C
PAGE 42

15:05

8-AUG-78

SEQ 0054

MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 0

':ttt**tttttfitiifi*t*tit'tt'i*ttttfitlttt*tttttit*tttttt*tttttfitttt

S*TEST 63

SR s 2222222323232

012706
012710
012716
012724
012732
012740
012746
012754
012762
012770
012776
013004
013006

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014
000026
000002
000001
000002
166772
000000
001124

001160

T$T63:

167032
167024
167006
167010
166772
166774
001126
001124
001126

104020

SCOPE

#CLRALL ,3SFR

013010
013012
013020
013026
013034
013042
013050
013056
013064
013072
013100
013106
013110

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014
002026
000002
000001
000002
166670

005252
001124

001160
166730
166722
166704
166706
166670
166672
001126
001124
001126

2222232322222

TST64:

SCOPE

MOV
Mov
MOV
MOV
BIS

8IS
BIC

MOV
MOV

(MP
BEQ
ERROR

104020

;LOAD EXPECTED VALUE

;:BR

2223223232322 2223 2822288

TEST ADDRESS MAKER

. COMPARE EXPECTED TO READ

SAME

2 INCORRECT ADDRESS MAKER DATA
GAIN = 0
7B ENABLE = 0

d20R8R

2222323 2222232338822 22222

RRRRat

tallt

MATRIX MODE - RES = 3 GAIN = 1 ZB ENABLE
0222022

02t

RdtdRt

;D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA!TSTCON,aSFR
#2026,aCSR
HTESTZ ,aSFR

;SET “TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE '‘TEST Z'' PULSES

#81T70,aCSR

;SET ENABLE NCV11

@aADM, $BDDAT

;READ THE ADDRESS DATA MAKER

#TESTZ ,aSFR
#5252 ,9GDDAT
$GDDAT , $BDDAT
TST65

SR 2222222323332 3

TXTEST 65

;SET ENABLE NCV11
;DISABLE 'TEST Z'' PULSES
JREAD THE ADDRESS DATA MAKER

RESOLUTION = 3

#10,8TIMES
#CLRALL ,aSFR

0 /B ENABLE -C

;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
;ENABLE ''TEST Z'' PULSES

#0,$GDDAT

3 GAIN

20 220808220

;SET "‘TEST DMA AND CONTROL''

#8170,aCSR
HTESTZ ,aSFR
@aADM, $BDDAT
TST64

2322323222322

. CLEAR DEVICE

#26,3CSR
#TESTZ,aSFR

$GDDAT ,$8DDAT

MATRIX MODE - RES

:.D0 10 ITERATIONS

#TSTDMA!TSTCON,ISFR

SR 2222232323322
X

3322223 2222223833222

#10,8$TIMES

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
(MP
BEQ
ERROR

TRTEST 64

TEST ADUDRESS MAKER

;DISABLE 'TEST Z'' PULSES

;LOAD EXPECTED VALUE
. COMPARE EXPECTED TO READ
;:BR IF SAME

RESOLUTION = 3

2333232822222 0482828R

TEST ADDRESS MAKER

2 INCORRECT ADDRESS MAKER DATA
GAIN = 1
7B ENABLE = 0

222022t

MATRIX MODE - RES = 3 GAIN = 0 7B ENABLE

';t*ttttt*tfitt***ttitt*tttt*it*tt*tttttfittt**t**ittt*ttt*tttttttt

013112
013114
013122
013130

013136
013144
013152
013160
013166
013174

013202
013210
013212

000004
012737

012777
012777
012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
004026
000002
000001
000002
166566
012424
001124

001160
166626
166620
166602
166604
166566
166570
001126
001124
001126

TST6S:

SCOPE

MoV
MOV
MOV
MOV
BIS

BIS
BIC

MOV
MOV

CMP
BEQ
ERROR

#10,$TIMES
#CLRALL ,aSFR

2.D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA!TSTCON,aSFR

;SET ''TEST DMA AND CONTROL''

#TESTZ ,aSFR

#B8170,aCSR
NHTESTZ ,aSFR

;ENABLE ''TEST Z'' PULSES
;SET ENABLE NCV11
;DISABLE '‘TEST Z'' PULSES

#12624 ,9GDDAT

;LOAD EXPECTED VALUE

#4026,3CSR

@ADM, $BDDAT

;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

;JREAD THE ADDRESS DATA MAKER

$GDDAT ,$BDDAT
. COMPARE EXPECTED TO READ
T1ST66
;.BR IF SAME
20
o INCORRECT ADDRESS MAKER DATA
RESOLUTION - 3 GAIN = O
ZB ENABLE
1

NCVIT
CINCCA.PIT
CZNCCA

1904
1905
1906

1907
233233033 —

CO~NOWNEBWN—O

G Sy —
G
P

LellolNelo
el olVe LN e) 0

1908
1909

MACY11 27(654) 8-AUG-78 15:05 PAGE 43
DIAGNOSTIC
166
TEST ADDRESS MAKER = MATRIX MODE - RES = 2 GAIN = 0 7B ENABLE - 0
R

22222322333 23232322322222338323332233
22222 0d2300
R RRRRRtRRRl it

T*TEST 66

TEST ADDRESS MAKER

MATRIX MODE - RES - 2 GAIN

::ttlfitttt*.tttittttttti'tt'tittttt*ttitfitttttttttttttt*ittitttfit

013214
013216
013224
013232
013240
013246
013254
013262
013270
013276
013304
013312
013314

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014
000024
000002
000001
000002
166464

000000
001124

001160
166524
166516

TST66:

#10,8TIMES

MOV

#TSTDMA!TSTCON,3SFR

MOV

MOV
BIS
BIS
B8IC
MOV
MoV
CMP
BEQ

166500
166502
166464
166466

001126
001124
001126

104020

SCOPE

MOV

;

ERROR

#CLRALL ,aSFR

#24 ,3CSR
#TESTZ ,aSFR
#8170,aCSR
#TESTZ ,aSFR
®ADM, $BDDAT
#0,$GDDAT
$GDDAT, $BDDAT
1ST67

SEQ 0055

0 ZB ENABLE

;.D0 10 ITERATIONS

;CLEAR DEVICE

;SET "'TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE '‘TEST Z'' PULSES
;SET ENABLE NCV11
;DISABLE '‘TEST Z'' PULSES
JREAD THE ADDRESS DATA MAKER

JLOAD EXPECTED VALUE

. COMPARE EXPECTED TO READ

::BR if SAME
- INCORRECT ADDRESS MAKER DATA

RESOLUTION = 2

GAIN = 0

ZB ENABLE - 0

:;tt*tt*t'tfittttt*tt***ttttttt*ttitt**titttfifit**ttfitttt**tttttttt

SXTEST 67

TEST ADDRESS MAKER

MATRIX MODE - RES = 2 GAIN - 1 7B ENABLE

;:tttt*t**tt*ttttt*ttttt*itti*tfitttttt*ttt*tttttfitt*t*ttti*tttttt

013316
013320
013326
013334
013342
013350
013356
013364
013372
013400
013406
013414
013416

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014
002024
000002
000001
000002
166362

002552
001124

001160
166422
166414
166376
166400
166362
166364
001126
001124
001126

104020

1§767:

SCOPE

MOV
MOV
MOV

#10,$TIMES
::DO 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DFVICE
#TSTDMA' TSTCON,aSFR
*SET ''TEST DMA AND CONTROL''

BIS

#B1T0,aCSR

MoV
BIS

BIC
MOV

MOV
CMP
BEQ
ERROR

;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE ''TEST Z'' PULSES
JSET ENABLE NCV11
;DISABLE 'TEST Z'' PULSES

#2024 ,3CSR
HTESTZ,aSFR
#TESTZ ,aSFR
@aADM, $BDDAT

#2552 ,8GDDAT
, $BDDAT
$GDDAT
TST70
20

;READ

THE ADDRESS DATA MAKER

;LOAD EXPECTED VALUE
;. COMPARE EXPECTED TO READ

;:BR IF SAME
: INCORRECT ADDRESS MAKER DATA

RESOLUTION = 2

GAIN = 1

2B ENABLE = 0

::**tt**fit*tttttttttfitttfi**t*ti*Q*t*t**fifi*it*titfitfi*ittt*tt**ti*t

S*TEST 70

TEST ADDRESS MAKER

MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE

';tttttt*tttti**ttttttt**tt*t**fit*tttttttttfittt*ttiiifi**titttt*tt

013420
013422
013430
013436
013444
013452
013460
013466
013474
013502
013510
013516
013520

000004
012737
012777

012777
012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
004024
000002
000001
000002
166260
005224
001124

001160
166320
166312
166274
166276
166260
166262
001126
001124
001126

TST70:

SCOPE

MoV
MOV

#10,STIMES
#CLRALL ,@SFR

MOV
BIS

#4024 ,aCSR
HTESTZ ,aSFR

MOV

BIS
B81C

MOV

MOV
cMP
8EQ
ERROR

;.D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA!TSTCON,aSFR

;SET "TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE ''TEST 2'' PULSES
;SET ENABLE NCVT1
:DISABLE "TTEST Z'’ PULSES

#B1T0,aCSR
HTESTZ ,aSFR
@dADM, $BDDAT

#5224 ,$GDDAT
$GDDAT , $BDDAT
TST71
20

;READ THE ADDRESS DATA MAKER

;LOAD EXPECTED VALUE
; COMPARE EXPECTED TO READ
;;BR IF SAME
:INCORRECT ADDRESS MAKER DATA

RESOLUTION

GAIN = O

ZB ENABLE - 1

NCV1Y
CINCCA.PT
CINCCA

1955
1956
1957
1958
1959
1960
1961
1962
1963

1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983

MACYT1 27(654)
8-AUG-78 15:05 PAGE 44
DIAGNOSTIC
MATRIX MODE - RES = 1 GAIN = 0 ZB ENABLE = 0
TEST ADDRESS MAKER
171

SEQ 0056

':t‘ttttitttttt‘*'tittitit'ti'tttttlt*titt*tttttttttttttttttttttfi

J*TEST 71

TEST ADDRESS MAKER

MATRIX MODE - RES - 1 GAIN

;;ttttttt.tttififi*tttii'tt't't*tttiittiitfittttttttttttfitt*tttttttt

013522
013524
013532
013540
013546
013554
013562
013570
013576
013604
013612
013620
013622

000004
012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014

000022
000002
000001

000002
166156
0€0000
001124

001160

T§171:

#10,STIMES

MOV
MOV
BIS
BIS
BIC

#TSTDMA i TSTCON,aSFR
#22 ,aCSR
#TESTZ,aSFR
#81T0,aCSR
#TESTZ ,aSFR

MOV

166216
166210
166177
166174
166156
166160

MOV
MOV
CMP

001126
001124
001126

104020

SCOPE

MOV

;

BEQ
ERROR

#CLRALL ,@SFR

2ADM, SBDDAT
#0,$GDDAT
$GODAT , SBDDAT

1ST72
20

0 7B ENABLE - C

:;D0 10 ITERATIONS

;CLEAR DEVICE

:SET ""TEST DMA AND CONTROL''
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
*ENABLE TEST 2'"'PULSES
:SET ENABLE NCV11
:DISABLE "‘TEST Z'* PULSES
*READ THE ADDRESS DATA MAKER
:LOAD EXPECTED VALUE
: COMPARE EXPECTED TO READ

;:BR IF SAME
; INCORRECT ADDRESS MAKER DATA

RESOLUTION = 1

GAIN = 0

ZB ENABLE - 0

::tttttttttttt'ti*tttttQttt'Qi**tttt*tfitfi*titfifittt*t*tii*t'ttttti

IxTEST 72

TEST ADDRESS MAKER

MATRIX MODE - RES - 1

GAIN = 1 7B ENABLE

';tt*tt*t*'fitttttttt*it*t"tt*t!t*t'*ttfifiR***ttfi*tt'tttttfiitttti'

013624
013626
013634

013642

013650
013656
013664
013672

013700
013706
013714
013722
013724

000004
012737
012777
012777
012777
052777
052777
042777
017737

012737
023737
001401

000010
004000
000014
002022
000002
000001
000002
166054

001265
001124

001160
166114
166106
166070
166072
166054
166056
001126
001124
001126

104020

1§772:

SCOPE

MOV

#10,STIMES

MOV

#TSTDMAi TSTCON,@SFR

MOV

8IS
BIS
BIC

MOV
MOV
CMP

BEQ
ERROR

#CLRALL ,aSFR

;:D0 10 ITERATIONS

;CLEAR DEVICE

*SET *'TEST DMA AND CONTROL'’

#2022,aCSR

:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

#TESTZ ,aSFR
#81T0,3CSR
#TESTZ,aSFR

@ADM, $BDDAT
#1265 ,$GDDAT
$GDDAT, $BDDAT

18173
20

ENABLE 'TEST 2'“PULSES
:SET ENABLE NCV11
:DISABLE "TEST Z'* PULSES

:READ THE ADDRESS DATA MAKER
:LOAD EXPECTED VALUE
:COMPARE EXPECTED TO READ

::BR IF SAME
: INCORRECT ADDRESS MAKER DATA

RESOLUTION = 1

GAIN = 1

2B ENABLE = 0

::t*ttttfitfitt'ttttttltttt**tttt*ti*ttt*ttfitfi*ttt‘fitttttttt*fifititt

SRTEST 73

TEST ADDRESS MAKER

MATRIX MODE - RES = 1 GAIN = 0 ZB ENABLE -1

::**it*tt*fit*tittttttttttt'tt**t*'tttfifiiiitfit*ttfitfitt*ttttttt*iti

013726
013730
013736
013744
013752
013760
013766
013774
014002
014010
014016
014024
014026

000004
012737
012777
012777
012777
052777

052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
004022
000002
000001
000002
165752
002512
001124

001160
166012
166004
165766

165770

165752
165754
001126
001124
001126

T$173:

SCOPE
MOV
MOV

#10,STIMES
#CLRALL ,@SFR

BIC

#TESTZ,a3SFR

MOV
MOV
8IS
BIS

MOV
MOV

CMP

BEQ
ERROR

;D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA | TSTCON,aSFR
#4022,3CSR
#TESTZ,aSFR
#81T0,8CSR

:SET "TEST DMA AND CONTROL''
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUF
*ENABLE "TEST 2''PULSES
:SET ENABLE NCV11

RADM, SBDDAT
#2512, $GDDAT

:READ THE ADDRESS DATA MAKER
:LOAD EXPECTED VALUE

:DISABLE "TEST Z'' PULSES

$GDDAT , SBDDAT
:COMPARE EXPECTED TO READ
TST74
;:BR IF SAME
2 INCORRECT ADDRESS MAKER DATA
20
1
GAIN = 0 7B ENABLE
RESOLUTION - 1

CINCCA NCVIT
CINCCA.PN

DIAGNOSTIC

T74

MACY11 27(654)

TEST ADDRESS MAKER

2006

15:05

B8-AUG-78

PAGE 45

GAIN

LIST MODE ~ 28 ENABLE = 0

SEQ 0057

::titttitfittiitttti*ttit*tiiit*ttifittttt*ttttt'ttttttfittittttttt.

T*TEST 74

TEST ADDRESS MAKER

LIST MODE - 2B ENABLE = 0

;:tt*'fii*'t*t*t'fit***ttiti'tifi'**fifi'fitttfi*itttti'tttktititfiitt‘tt

014030
014032
014040
014046
014054
014062
014070
014076
014104
014112
014120
014126
014130

000094
012737
012777

000010
004000

001160
165710

012777

000000

165664

012777

052777
052777
042777
017737
012737
023737

001401

000014

000002
000001
000002
165650

003407
0011264

T§T74:

165702

SCOPE
MOV
MOV

#10,$TIMES
#CLRALL ,@SFR

MOV

#0,aCSR

MOV

165666
165650
165652
001126

BIS
BIS
BIC
MOV

001124
001126

MOV
CMP

BEQ

104021

ERROR

GAIN - 0

::D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA | TSTCON,@SFR

“SET TEST ‘DMA AND CONTROL''

#TESTZ,aSFR
#81T0,aCSR
ATESTZ ,aSFR
RADM, SBDDAT

*ENABLE ''TEST 2"’ PULSES
*SET ENABLE NCV11
:DISABLE '‘TEST Z'' PULSES
*READ THE ADDRESS MAKER VALUE

#3407, $GDDAT
$GDDAT , SBDDAT

T1ST75

*ENSURE LIST MODE

*LOAD EXPECTED VALUE
COMPARE EXPECTED TO READ

::BR IF SAME

- INCORRECT ADDRESS MAKER DATA
JRESOLUTION 7 <DEFAULT WHEN B IS NOT ENABLED>

':tttt*ktit****ttttt*t*t*tt*tt*ttt*tttfifiit*t*itti*tttttttt*tt*tti

s*TEST 75

TEST ADDRESS MAKER

LIST MODE - ZB ENABLE = 1

:;t*t**ttttittii*fifiti*i**'ttttt***t*tttttttitttttt't*ttfittttttttt

014132
014134
014142
014150
014156
014164
014172
014200
014206
014214
014222
014230
014232

000004

012737
012777
012777

000010
004000
000014

001160
165606
165600

017737
012737
023737
001401
104021

165546
052452
001124

001126
001124
001126

012777
052777
052777
042777

004000
000002
000001
000002

TST75:

165562
165564
165546
165550

GAIN - 0

SCOPE
MOV
MOV
MoV

#10,8TIMES
:.D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA!TSTCON,aSFR
;SET TEST 'DMA AND CONTROL''

MOV
MOV
cMP
BEQ
ERROR

@ADM, $BDDAT
#52452,%GDDAT
$GDDAT , $BDDAT
1ST76
21

MoV
BIS
BIS
BIC

#4000,3aCSR
HTESTZ ,aSFR
#81T70,aCSR
HTESTZ ,aSFR

JENSURE LIST MODE AND 7B ENABLED
JENABLE '‘TEST Z'' PULSES
sSET ENABLE NCV11
;DISABLE 'TEST Z'' PULSES

JREAD THE ADDRESS MAKER VALUE
sLOAD EXPECTED VALUE
. COMPARE EXPECTED TO READ
;:BR IF SAME
;INCORRECT ADDRESS MAKER DATA
JRESOLUTION 5 <DEFAULT WHEN ZB 1S ENABLED>

;:t*t******t*tttttt*tttttitit*ttfitfitt*itfi*itkttfittfifittittt*ti*t*t

J*TEST 76

TEST ADDRESS MAKER

LIST MODE - ZB ENABLE - 0

::*tttt*tttt*t*t'fifit*tit*tttitfi*i**tttit*t‘fititttt**ti*tttttittifi

014234
014236
014244
014252
014260
014266
014274
014302
014310
014316
014324
014332
014334

000004

012737
012777
012777
012777
052777

052777
042777
017737

012737
023737
001401
104021

000010
004000
000014
002000
000002

001160
165504
165476
165460
165462

127657

001124
001126

000001
000002
165444
001124

165444
165446
001126

TST76:

GAIN =1

SCOPE
MOV
MoV
MOV
MOV
BIS

#10,STIMES
::DO 10 ITERATIONS
#CLRALL ,a@SFR
;CLEAR THE DEVICE
#TSTDMA!TSTCON,aSFR
JSET TEST 'DMA AND CONTROL''
#2000,aCSR
;SET GAIN FLOP
#TESTZ ,aSFR
JENABLE ''TEST Z'' PULSES

MOV
CMP
BEQ
ERROR

#127657 ,8GDDAT
$GDDAT, $BDDAT
1S177
21

BIS
BIC
MOV

#BI1T0,aCSR
NTESTZ,aSFR
@ADM, $B8DDAT

JENABLE THE NCV11
;DISABLE THE °TEST Z'' PULSES
;READ THE ADDRESS MAKER VALUE

;LOAD THE EXPECTED
. COMPARE
;:BR IF SAME
:INCORRECT ADDRESS MAKER DATA
JRESOLUTION 7 - GAIN FLOP SET

2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079

MACY11 27(654)

8-AUG-78

DIAGNOSTIC
177
ENABLE A ONE WORD TRANSFER

15:05
PAGF 46
SECTION LIST MODE

SEQ 0058

';ttttttttlitt*.ttfi*it'ii*ttitfittttttifitttttt*tttttt'fit*tt*ttfittfi

SaTEST 77
014336
014340
014346
014354
014362
014370
014376
014404
014412
014420

014426

014434
014436

014440
014442
014450
014452

014454
014456
014464
014472
014500
014506
014510
014512
014514

014522
014530
014536
014540

000004
012737
012777
012737
012777
012777
012777
012777
052777
052777
042777
000240
000240
000240
052777
000240
000240
000240
017737
012777
012737
023737
001402

000040
004000
125252

011110
177777
060000
000014
000001
000002

001160
165402
060000
165360
165354
165350
165344
165326

000002

165330
165322

010000

165306

165264
004000
040200
001124

001126

18177:

165234

060002
001124

165264

MOV
MOV

001124
001126

001126
001124
001126

¥
A

104022

014542
014550
014556
014564
014566

017737
012737
023737
001401
104023

014570
014574
014602
014604

005037
017737
001401
104024

001124
165150

014606
014614
014622
014630
014636
014640

013737
012737
012737
023737
001401

060000
003407
060000
001124

104037

165204

000000
001124

001126
001124
001126

001126

MOV
MOV
MOV
MOV
MOV
MOV
MOV

BIS
BIS
BIC
NOP
NOP
NOP
BIS
NOP
NOP
NOP
MOV

104036

000453
017737
012737
023737
001401

SCOPE

1%:

2$:

CMP
BEQ
ERROR
B8R

MOV
MOV
(MP
BEQ
ERROR

MOV
MoV

3%:

#40,8TIMES
#CLRALL ,aSFR
#125252 ,BUF0
#11110,30FF
#-1,aWCR

0RRRRtRd

::D0 40 ITERATIONS
;CLEAR THE DEVICE
;PRIME

TARGET BUFFER

#81T12,aSFR

JALLOW 1 DMA TRANSFER

aCSR,$BDDAT

JREAD STATUS
JRESET THE DEVICE

#TSTDMA!TSTCON,aSFR

#81T0,aCSR

#CLRALL ,aSFR

#40200,$GDDAT
$GDDAT, $BDDAT

;LOAD EXPECTED
;TEST STATUS

;:BR IF EXPECTED

JUNEXPECTED STATUS AFTER A 1 WORD TRANSFER

aBAR, $8DDAT

#BUF0+2,$GDDAT
, $BDDAT
$GDDAT
1%

awCR, $BDDAT
#0,$GDDAT

$GDDAT
a0F F ,$BDDAT

(MP
BEQ
ERROR

0220

HTESTZ ,aSFR
WHTESTZ,aSFR

#BUF 0,aBAR

CLR

017
MOV
MOV

2222282220222

:LOAD THE OFFSET VALUE WITH A NUMBER
:SET UP 1 WORD TRANSFER
;LOAD BUS ADDRESS FOR RESULT
JENABLE TEST CONTROL AND DMA FLOPS
;ENABLE DEVICE
JENABLE "'TEST 2'' PULSES
:DISABLE '‘TEST Z'' PULSES

ggDDAT,SBDDAT

ERROR

001126
001124
001122
001126

23222820

CMP
BEQ
ERROR
MOV
BEQ

SECTION LIST MODE

ENABLE A ONE WORD TRANSFER

SR 2222322222223 2232233823323

3%
24

BUF 0, $BDDAT

#3407 ,9GDDAT
#BUF
0, $BDADR
$GDDAT ,$BDDAT
T1ST100
37

;READ BUS ADDRESS

;LOAD EXPECTED

; COMPARE VALUES
;:BR IF SAME
: INCORRECT BUS ADDRESS VALUE
JAFTER A 1

WORD TRANSFER

JREAD W.C. REGISTER
;LOAD EXPECTED VALUE
. COMPARE VALUES
;;BR IF SAME
;INCCRRECT WORD COUNT REGISTER VALUE

JAFTER A 1 WORD TRANSFER

;CLEAR THE EXPECTED VALUE

JREAD THE OFFSET REGISTER

;.BR IF CLEARED

;OFFSET REG. FAILED TO CLEAR AFTER
;1 LIST MODE XFR.
:GET BUFFER DATA
;LOAD EXPECTED
;LOAD BAD ADDRESS
:COMPARE DATA
SAME
. :BR IF

;STATUS WAS OK BUT DATA WAS INCORRECT

[an V)

CINCCA NCVTT
CINCCA.P11

DIAGNOSTIC

T100

MACY11 27(654)

8~AUG-78

ENABLE A 512 WORD TRANSFER

15:05

PAGE 47

SECTION LIST MODE

SEQ 0059

OOV

ek
d

NONES W

D
)

S
YT W

d ed
—

[ Y

T Qe ¥

":i‘tfiit*it**tl’tl’tfittt*'t'*tl’*ltttttit*t**ittfittttt*ttt*tttt*ttti

S*TEST 100
R

014642
014644
014652
014660
014664
014670
014674
014676
014704
014712
014720
014726

014734
014734
014742

014750
014756
014762

014764
014772
015000
015006
015010
015012
015014
015020
015026
015030
015032
015040
015046
015054

015062

015064

015066
015074
015102

000004
012737
012777
012700
012720
020027
001373
012777
012777
012777
052777
012737

001160
165076

177000
060000
000014
000001
001000

165046
165042
165036

165020
002004

052777
042777

000002
000002

165014
165006

017737
012737
023737
001402
104036
000465
005037
017737
001401
104006
012777
017737
012737
023737
001401
104022

164756
040200
001124

001126
001124
001126

001124
164726

001126

004000
164710
062000
001126

164716
001126
001124
001126

4$:

017737
012737
023737
001401
104023

164660
000000
001124

001126
001124
001126

58:

012737
017737

060000
163766

003407

001124

6$:

052777
005337
001364

012737

2158
2159

2163

157100: SCOPE
MOV
MOV
MOV
MOV
1$:
CMP
BNE

000040
004000
060000
125252
062000

010000
002004

023737 001124
001401
104037

062737
022737
001361

000002
062000

165000

001122
001126

001126
001122
001122

ENABLE A 512 WORD TRANSFER

SECTION LIST MODE

2222223322223 3 3322232322223
2323882222222
AR RRRRRs R

;THE

3$:

7$:

108:

MOV
MOV
MOV
BIS
MOV

#40,$TIMES
;:DO 40
#CLRALL ,@SFR
0 ,RO
#B8UF
#125252, (RO)+
RO, #BUF1
1$
#-512.,aWCR
#BUF 0, 3BAR
#TSTDMA' TSTCON,aSFR
#3170,aCSR
#512..STEMP

ITERATIONS
:CLEAR THE DEVICE
*LOAD BUFFER POINTER
*PRESET THE BUFFER WITH DATA
*TEST IF DONE
*BR IF NOT
*SET UP 512. WORD TRANSFER
*LOAD BUS ADDRESS FOR RESULT
*ENABLE TEST CONTROL AND DMA FLOPS
*ENABLE DEVICE
:LOAD THE COUNTER

BIS
BIC

NTESTZ,aSFR
ATESTZ.3SFR

;ENABLE "'TEST 2'' PULSES
:DISABLE '‘TEST Z'' PULSES

TRANSFER

IS NOW COMPLETE

BIS
DEC
BNE

MOV
MOV
CMP
BEQ
ERROR
BR
CLR
MOV
BEQ
ERROR
MOV
MOV
MOV
CMP
BEQ
ERROR

#B1T12.aSFR
STEMP
28

TALLOW 1 DMA TRANSFER
*FINISHED ALL WORDS?
:BR UNTILL DONE

aCSR, $8DDAT
;READ STATUS
#40200, SGDDAT
:LOAD EXPECTED STATUS
$GDDAT , $BDDAT
: COMPARE DATA
3s
;:BR IF EXPECTED STATUS
36
SUNEXPECTED STATUS AFTER 512 WORD TRANSFER
TST101
i
$GDDAT
;CLEAR EXPECTED
a0FF , $BDDAT
*READ OFFSET REG.
48
::BR IF CLEARED
6
*UNEXPECTED OFFSET REGISTER BIT SET
#CLRALL ,@SFR
;CLEAR THE DEVICE
aBAR, SBDDAT
*READ BUS ADDRESS
#BUF 1, $GDDAT
;LOAD EXPECTED BAR VALUE
$GDDAT, SBDDAT
: COMPARE VALUES
5%
;BR IF SAME
22
- INCORRECT BUS ADDRESS VALUE AFTER A 1 WORD TRANSFER

MOV
MOV
CMP
BEQ
ERROR

aWCR, $BDDAT
#0,SGDDAT
$GDDAT, SBDDAT
6%
;BR IF
23
- INCORRECT WORD

;READ W.C. REGISTER
*LOAD EXPECTED W.C. VALUE
: COMPARE VALUES
SAME
COUNT REGISTER VALUE AFTER A 1 WORD TRANSFER

MOV
MOV

#BUF 0, SBDADR
2$8DADR , SBDDAT

*LOAD STARTING ADDRESS
*READ DATA WORD

MOV

CMP

BEQ
ERROR

ADD
CMP
BNE

#3407, $GDDAT

$GDDAT, $BDDAT
108
37

:LOAD EXPECTED DATA

: COMPARE DATA

::BR IF EXPECTED
; INCORRECT DATA IN LIST MODE XFER.

#2,$8DADR
:UPDATE POINTER
#BUF 0+1024. , $BDADR
STEST IF END OF BUFFER
7$
::BR IF NOT DONE

(Y]

CINCCA NCVI
CINCCA.PYT

NCV11
CINCCA.PIY
TINCCA

2164

2167
2168
2169
2170
21N
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188

2189

2190
2191
2192

2193

2194
2195

2196
2197

2198

2199

2200
2201
2202
2203
2204
2205
2206

SEQ 0060

a2 222222202202
SRR
RR2RRRRRiRRRARRRRR iRt dldd

S*TEST 101

2165

2166

15:05
PAGE 48
MACY11 27(654)
8-AUG-78
DIA ?NOSTIC
710
VERIFY "‘TIMEQUT'® FLOP SETS AND ''CLR ALL'' CLEARS IT

VERIFY ‘'TIMEOUT'' FLOP SE TS AND ''CLR ALL'" CLEARS IT

';Qttttttt*itttt't*ttt‘t"ttttitttttfittt!tittttttttt!'ttfitth'*tt.

015166
015170
015176
015204
015212
015220
015226
015234
015242
015250
015256
015264
015266
015270
015272

015300
015302
015304

015306
015314
015322
015324

015326

015330
015336
015340
015342
015350
015356

015364
015372
015374

000004
012737
012777
012777
012777
012777
012777
012777
052777
052777
042777
000240
000240
000240
052777
000240
000240
000240
012737
017737
100402

104025
000423
02373%7
001401
104025
052777
012737
017737
023737
001401
104025

000040
004000
177777

000003

160000
000014

000016
000001
000002
000002

001160
164552
164540
164530
1646526
164522
164504

T$T101: SCOPE
MOV

#40,8TIMES

MOV
MoV
MOV

#3,a0FF
#160000,aBAR
#TSTCON!TSTDMA,QSFR

MOV
MOV

MOV
BIS

#CLRALL ,aSFR
#-1,aWCR

;.D0 40 ITERATIONS

#16,aCSR

#BITO,aCSR

;CLEAR DEVICE
JLOAD W.C. REGISTER

;LOAD EXTENDED ADDRESS BITS
;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE
sSET TEST CONTROL AND DMA

;LOAD RESOLUTION TO VERIFY ''SFR INIT'' CLEARS
SJENABLE THE DEVICE

164476
164500
164472

BIS
BIC

010000

164456

BIS

#BIT12,aSFR

140200
164426

001124
001126

MoV
MoV

#BIT15!BIT14.BIT7,8GDDAT
;LOAD EXPECTED
aCSR,$BDDAT
JREAD STATUS REG.

001124

001126

1%:

004000
000200
164364
001124

164406
001124
001126
001126

2%:

NOP
NOP
NOP
NOP
NOP
NOP

BMI]
ERROR
BR

CMP

BEQ

ERROR
BIS
MOV
MoV
CMP

BEQ
ERROR

HTESTZ ,aSFR
HTESTZ,aSFR

JENABLE ''TEST Z°' PULSES
;DISABLE ''TEST Z'' PULSES

JALLOW

1%
25

1 DMA TRANSFER

JBR IF "TIMEOUT'' FLOP IS SET
;'TIMEOUT'' FLOP FAILED TO SET

T1ST102

$GDDAT , $8DDAT

25
#CLRALL ,aSFR

.:BR IF

#BI1T7,$GDDAT

aCSR,$8DDAT
$GDDAT , $BDDAT

T1ST102

. COMPARE

SAME

VALUES

;'TIMEOUT'' FLOP DID SET BUT FAILED TO GENERATE "'
;GENERATE AN °''CLR ALL'' TO CLEAR TIMEOUT FLOP

:LOAD EXPECTED
;READ STATUS
. COMPARE VALUE

;;BR IF SAME
;"'CLR ALL'' FAILED TO CLEAR TIMEOUT FLOP

;:tttttttitttttt*t*ttttfittt‘fitiitl*tttttkit*'ttfitttttt'ifittttitti

J*TEST 102

VERIFY °TIMEOUT'' FLOP SETS AND ‘‘CLR TIMEOUT'' CLEARS IT

';tt*ttt'*tttt*ttfitt*tttttttttt*ttttttttifittttt*ittitttttttt'titt

015376 000004
015400 012737
015406 012777
015414 012777
015422 012777
015430 012777
015436 012777
015444 ‘§§§777
777
015452
42777
015460

000040
004000
177777
000003
160000
000014
000001
000002
000002

001160
164342
164330
164320
164316
164312
164274
164276
164270

184254

015504

TST102:

SCOPE

MOV
MoV

#40,STIMES
#CLRALL ,aSFR

MoV
MoV
MOV
BIS

#3,a0FF
#160000,3BAR
#TSTCON!TSTDMA,aSFR
#8IT0,aCSR

MOV

BIS
8IC

NOP
NOP
NOP

815

NOP
NOF

#-1,aWCR

NTESTZ,aSFR
#TESTZ,aSFR

#BIT12,aSFR
-

:.D0 40 ITERATIONS
;CLEAR DEVICE
;LOAD W.C.

;LOAD EXTENDED ADDRESS BITS

;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE
;SET TEST CONTROL AND DMA
JENABLE THE DEVICE

SENABLE ''TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES

JALLOW 1

DMA TRANSFER

CINCCA

NCV11

CINCCA.P1Y
2218

2219
2220
2221
2222

2223
2224
2225

2226
2227
2228

2229
2230
2231

2232

2233

015506

015510
015516
015524
015526

015530
015532
015540

015542
015544

015552

015560

015566
015574

01557¢

DIAGNOSTIC

1102

000240

012737
017737
100402
104025
000423
023737
001401

104025
052777

MACY11 27(654)

B-AUG-78

140200
164226

001124
001126

MOV
MOV
8MI
ERROR

001124

001126

18:

100000

164204

2%:

040200

001124

023737
001401

0011264

001126

164162

104025

015600
015602
015610
015616
015624
015632
015640
015646
015652

2254
2255
2256

015720
015722
015724

2265
2266
2267
2268
2269

MoV

015704
015712

015726
015734
015736
015740
015742
015746
015750
015752
015754
015760
015766
015774

000004
012737
012777
012777
012777
012777
012777
012746
012746
000002

012777
000240
000240
000240
000240
052777

052777
042777

000240
000240
000240

052777
000240
000240
000240
005077
104026
000401
022626
005077
012777
013777
005077

PAGE 49

ERROR

AR AR AR

000040
004000
177777
000003
160000
000014
000000
015660

001160
164140
164126
164116
164114
164110

015752

164104

000101

164042

000002
000002

010000

164044
164036

163766
004000
001774
163774

163770
163776

2%:
3s:

. COMPARE VALUES
;:BR IF SAME

;' 'TIMEOUT'® FLOP DID SET BUT FAILED TO GENERATE '’
;GENERATE AN '‘CLR TIMEOUT'' TO CLEAR TIMEOUT FLOP

#B1T14!B177,$GDDAT
$GDDAT , $BDDAT
TST103

:LOAD EXPECTED

;READ STATUS

. COMPARE VALUE
;:BR IF SAME
;"'CLR TIMEOUT'' FAILED TO CLEAR TIMEOUT FLOP

R AR AR RN AR AR R AR AR ANRRARRRR AR AR AR RN NAARAANRAR

VERIFY "‘TIMEOUT'' INTERRUPT
AR AR AR

AN NN AR

ARN AR AR

#40,STIMES
::D0 40
#CLRALL ,aSFR
#-1,aWCR
#3,30FF
#160000,3BAR
#TSTCON!TSTDMA,QSFR
#0,~(SP)
#1$,-(SP)

RRARRARRA AR AN AN

ITERATIONS
;CLEAR DEVICE
;LOAD W.C. REGISTER
;LOAD EXTENDED ADDRESS BITS
;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE
;SET TEST CONTROL AND DMA

#2% ,aVECTAD

;ENABLE THE DEVICE

BIS
NOP
NOP
NOP
CLR
ERROR
BR

#BIT12,3SFR

JALLOW 1 DMA TRANSGFER

aCSR

;CLEAR ENABLE

(MP
(LR
MOV
MOV
CLR

(SP)+,(SP)+
aCSR
#CLRALL ,aSFR
VECTAT,aVECTAQ
aVECTA1

NOP
NOP
NOP

164000

25
#BI1T15,aSFR

#B1T6!B1T0,aCSR

8IS
BIC

164022

TST103
$GDDAT, $BDDAT
2%

NRA AR AR

TST103: SCOPE
MOV
MOV
MOV
MoV
MOV
MoV
MOV
MOV
RTI
1%:
MOV
NOP
NOP
NOP
NOP
BIS

SEQ 0061

#81T15.BIT14!BIT7 ,$GDDAT
;LOAD EXPECTED
(SR, $8DDAT
JREAD STATUS REG.
1%
;BR IF '‘TIMEOUT'' FLOP IS SET
25
;"'TIMEOUT'' FLOP FAILED TO SET

adCSR, $BDDAT

Mp
BEQ

015656
015660
015666
015670
015672
015674
015676

2257
2258
2259
2260
2261
2262
gggz

ERROR
BIS

;*TEST 103

2246
2247
2248
2249
2250
2251

2252
2253

BR
CMP
BEQ

MoV

2234

2245

NOP

001126

2235

2236
2237
2238
2239
2240
2241
2242
2243
2244

VERIFY 'TIMEOUT'® FLOP SETS AND "‘CLR TIMEOUT'' CLEARS IT

012737

017737

15:05

#TESTZ ,aSFR
HTESTZ,aSFR

JENABLE "°TEST Z'' PULSES
;DISABLE °'TEST Z'' PULSES

:"TIMEOUT'® FAILED TO INTERRUPT

;:BR TO CLEAN UP

;CLEAN THE STACK

;CLEAR THE DEVICE
JRESET VECTOR

CINCCA NCVIT
CINCCA P11

2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292

2293

2294
2295
2296
2297
2298

DIAGNOSTIC
1104
VERIFY

15:05

PAGE 50

8-AUG-78
INCREMENTING INTO EXTENDED ADDRESS BIT 16
MACY11 27(654)

SEQ 0062

;;t*t*it*tfi**Qit'*fitititit.'tt*!ttktt*ttttttfit.ttttti*tttt*'tttkt

;*TEST 106

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

':tttttttilttt*t.ittitittt'ttfitttiitttittttttt*tttttl*ttttttt*ttt

016000
016002
016010
016016
016024
016026

016034
016042
016046

016054
016062
016070
016076
016104
016112
016114
016116
016120
016126
016134
016142
016144

000004
012737

012777
023727

103450

012777
012777
005077
012777
012777
052777
052777
042777
052777
000240
000240
000240
012737
017737
023737
001401

TST104:

SCOPE

MOV
MOV

#40,8TIMES
#CLRALL ,@SFR

177776 ,3BAR

000040
004000
036402

001160

177777
177776
163702
000014
000016
000001
000002
000002
010000

163716
163712

MOV
MOV

163702
163664
163656
163660
163652
163644

MOV
MOV

000001

001124
001126
001126

MOV
MOV
(MP

163616

001124

163740
002140

CMP
BLO
CLR

BIS
BIS
BIC
8IS
NOP
NOP
NGP

BEQ
ERROR

104006

$LSTBK, #2140
TST105
#-1,aW(CR

;;D0O 40 ITERATIONS
;CLEAR THE DEVICE

;TEST IF ENOUGH MEMORY
;:BR IF NOT ENOUGH MEMORY

;LOAD 1 WORD XFR

;LOAD LAST ADDRESS

aOF F

JENSURE CLEARED EXTENDED ADDRESS BITS

#TSTCON!TSTDMA,aSFR
#16,aCSR

JENABLE CONTROLER
;ENABLE THE MODE

#8170,3CSR
#TESTZ,aSFR
H#TESTZ ,aSFR
#BIT12,aSFR

;ENABLE THE NCV11
JENABLE '‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
JALLOW 1 DMA TRANSFER

#1,3GDDAT

;LOAD EXPECTED VALUE

a0FF ,$BDDAT
$GDDAT , $BDDAT
TST105

;READ ACUTAL VALUE
. COMPARE
;.BR IF SAME

SJEXTENDED ADDRESS BIT 16 FAILED TO SET

';tttttttt**ttfitt*itttttttttttt*!tttfi*fittfittttit**ttttttittt*fittt

S*TEST 105

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 17

SR 2232233232323 2323 2232222323223 223

016146
016150
016156
016164
016172
016174
016202
016210
016216
016224
016232
016240
016246

016254
016256
016260
016262
016270
016272
016274
016276
016304
016312
016320
016322

000004
012737
012777
023727
103454

012777
012777
012777
012777
012777
052777
052777
042777
000240
000240
000240
052777
000240
000240
000240
012737
017737
023737
001401
104006

000040
004000
036402

001160
163572
006140

177777
177776
000001
000014
000016
000001
000002
000002

163550
163544
163532
163532
163514
163506

010000

163466

000002
163440
001124

001124
001126
001126

163510
163502

TST105:

SCOPE

MOV
MOV

CMP
BLO
MOV
MOV
MoV
MOV
MOV
BIS
BIS
BIC
NOP
NOP
NOP
BIS
NOP
NOP
NOP
MOV
MOV
CMP
BEQ

ERROR

#40,STIMES

#CLRALL ,aSFR

$LSTBK #6140
TST106

#-1,a3WCR
177776 ,8BAR

#1,30FF

3222323222022

20000202200

2dRdatat Rt

;.D0 40 ITERATIONS
;CLEAR THE DEVICE
;TEST MEMORY SPACE >100K
;:BR IF NOT ENOUGH MEMORY
;LOAD 1 WORD XFR
;LOAD LAST ADDRESS
;LOAD EXTENDED ADDRESS BIT

#TSTDMA!TSTCON,aSFR

JENABLE TEST CONTROL

;ENABLE THE MODE
JENAVLE THE DEVICE

#16,3CSR

#81T0,3CSR

#TESTZ,aSFR
#TESTZ,aSFR

JENABLE ''TEST Z'' PULSES
;DISABLE °‘TEST Z'' PULSES

#BIT12,aSFR

JALLOW 1 DMA TRANSFER

#2,3GDDAT

;LOAD EXPECTED
sREAD ACTUAL
. COMPARE

a0F F ,$BDDAT
$GDDAT, $BDDAT
gST106

::BR

SAME

JEXTENDED ADDRESS BIT 17 FAILED TO SET

CINCCA NCVIT
CINCCA.PT

2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345

DIA GNOSTIC
1106
VERIFY

MACY11 27(654)

L 5
15:05__PAGE 51

8-AUG-78

"'SET EVENT'' DATA GENERATES A 177777 DATA WORD
SR

2222232322223 23

S+TEST 106

2222322222323

SEQ 0063

X2322321223 222332222220

8222003 RAR2Rd RS

VERIFY ‘‘SET EVENT'' DATA GENERATES A 177777 DATA WORD

';ttttittttttittfitttttit'.tttfitfifittit*fittttttt*titttttttttttttttt

016324
016326
016334
016342
016350
016356
016364
016372
016400
016402
016404
016406
016414
016422
016424

016426
016430
016436
016444
016452
016454

000004

012737
012777
012777
012777
012777
012737
052777

000240
000240
000240
052777
052777
000240
000240
000240

013737

012737
023737
001401

TST106: SCOPE

000040
004000
177777
060000
000014
007070
000001

001160

MOV

002000
010000

163342
163334

865

#31T12,aSFR

060000
177777
001124

001126
001124
001126

MOV
MOV
(mP
BEQ

BUF O, $BDDAT
#-1,8GDDAT
$GDDAT ,$8DDAT
1ST107

163414

163402

#CLRALL ,aSFR

MOV

#B8UF 0, aBAR

MOV

163376

163372
060000
163346

MOV
MOV
BIS

NOP
NOP
NOP

BIS

NOP
NOP
NOP

ERROR

104027

;*TEST 107
IR

016456
016460
016466
016474
016502
016510
016516
016524

016532
016534
016536

016540
016546
016554
016556
016560
016562

016570
016576
016604
016606

000004
012737
012777
012777
012777
012777
012737
052777
000240
000240
000240

052777
052777
000240

000240
000240
013737
012737
023737
001401
104027

000040
004000
177777
060000
000014
007070
000001

001160

001000
010000

163210
163202

060000
000000
001124

163262
163250
163244
163240
060000

163214

001126
001124
001126

TST107:

#40 ,STIMES

MoV

AR AR R

SCOPE

#81T710,aSFR

NOP
NOP

Moy
MOV
cMP

BEQ
ERROR

JENABLE TEST CONTROL AND DMA FLOPS
;JPRESET DATA
JENABLE DEVICE

JSET "EVENT'' FLOP

JALLOW 1 DMA TRANSFER

JREAD DATA
;LOAD EXPECTED
. COMPARE VALUES
;:BR IF SAME

; INCORRECT DATA VALUE FOR "EVENT'' MARK
WORD TRANSFER

bbb

VERIFY "'SET TIME'' DATA GENERATES A 000000 DATA WORD

RN N

R AN AN AR

A NN AR AR AN RN AN R R

#3]1T70,aCSR

;LOAD BUS ADDRESS FOR RESULT

JAFTER A 1

BIS

BIS
Bég

JSET UP 1 WORD TRANSFER

#TSTDMA!TSTCON,aSFR
#7070,8UF0
#3170,aCSR

#6.0,8TIMES

NOP
NOP
NOP

;CLEAR THE DEVICE

#-1,aWCR

MOV

MOV
MOV
MOV
MOV
MOV

;.DO 40 ITERATIONS

RAR KRR R AR

RN RRRAR

;:D0 40 ITERATIONS

#CLRALL ,aSFR
#-1,3WCR
#8UF 0, aBAR
#TSTDMA!TSTCON,aSFR
#7070,BUF0

;CLEAR THE DEVICE
JSET UP 1 WORD TRANSFER
;LOAD BUS ADDRESS FOR RESULT
JENABLE TEST CONTROL AND DMA FLOPS
JPRESET THE DATA

#B1T9,aSFR
#BI1T12,aSFR

;SET "'TIME'' FLOP
JALLOW 1 DMA TRANSFER

BUFO, $BDDAT
#0,$GDDAT
$GDDAT , $BDDAT

JREAD DATA
;LOAD EXPECTED
. COMPARE VALUES

T1ST110
27

JENABLE DEVICE

;;BR IF SAME
;INCORRECT DATA VALUE FOR "‘TIME'' MARK
JAFTER A 1

WORD TRANSFER

NCVI
CINCCA.PI
CINCCA

DIAGNOSTIC

1110

MACY11 27(654)

B8-AUG-78

15:05

PAGE 52

VERIFY "'CLOCK ST1'* GENERATES A EVENT (177777) DATA WORD

2374
2375

SEQ 0064

:.-tttttfitttttttttttttt'tttt'tttttttttttttttttttttttttttttttfittttt

;«TEST 110

VERIFY ''CLOCK ST1'' GENERATES A EVENT (177777) DATA WORD

;;tttttttttttttttttitt'ttttttttttttttttfittttttttttttitttttttttttt

016610
016612
016620
016626
016632
016634
016642
016650
016656
016664
016672
016674
016676
016704
016712
016714
016716
016724
016732
016740
016742

000004

012737
012777
005737

001044
012777
012777
012777
012737
052777

000240
000240

052777

052777
000240

000240

013737

012737
023737
001401
104040

TST110: SCOPE

000040
004000
004016

001160
163130

177777
060000
000014
007070
000001

163110
163104
163100
060000
163054

BNE
MOV
MOV
MOV
MOV
BIS

000400

163034

BIS

010000

060000

177777
001124

MOV
MOV
TST

#40,8TIMES
#CLRALL ,aSFR
DEADKW

TSTIN
::BR IF NOT
#-1,3WCR
:SET UP 1 WORD TRANSFER
#BUFO,3BAR
:LOAD BUS ADDRESS FOR RESULT
#TSTDMA' TSTCON,aSFR
ENABLE TEST CONTROL AND DMA FLOPS
#7070,BUF0
PRESET THE DATA
#3170,3CSR
:ENABLE THE DEVICE

NOP
NOP,

163044

BIS.

‘NOP ¢

MOV

001124
001126

#B]T8,3KWCSR

:GENERATE CLOCK ST1 TO SET "EVENT'' FLOP

BUFO, $SBDDAT

sREAD BUFFER DATA

#B81T12,aSFR

NOP -

001126

::D0 40 ITERATIONS
:CLEAR THE DEVICE
sTEST IF NCV11 CLOCK 1S PRESENT

MOV
cMP
BEQ
ERROR

ALLOW 1 DMA TRANSFER

#-1,3GDDAT
$GDDAT, $BDDAT
TST11
40

:LOAD EXPECTED DATA
: COMPARE
::BR IF EXPECTED
:CLOCK ST1 FAILED TO GENERATE EVENT FLAG

;CHECK THE M8026 TO M7952 JUMPERS

.'.-ttttttttttttttttttttttttttttttttfittttttttfittttttttttttttttttttt

VERIFY ‘‘CLOCK OVERFLOW'' GENERATES A TIME (000000) DATA WORD

*TEST 111

'-.-ttttttttt*tttt.tttttttttttttfittttttttttttttttttttttttttttfitttit

016744

016746
016754
016762
016766
016770
016776
017004
017012
017020

2425

017026
017032
017040
017046
017052
017054
017062
017064
017066
017074
017102
017110
017112

000004

012737

000040

005737
001052
012777

(04016
177777

162754 ..

000014

162744

012777

012777
012777

012737

004000

060000
007070

001160
152774

162750

000001
162706
177776
000011

052777

010000

162674

013737
012737
023737
001401

060000
000000
001124

001126
001124
001126

000240
000240

104040

162666

#40,8TIMES

TST
BNE
MOV

DEADKW
TST112
#-1,aWCR

-MOV

MOV

162720
162704
162672

MOV
MOV

060000

052777
005077
012777
012777

105777
100375

TST111: SCOPE

1%:

#CLRALL ,aSFR

BIS
CLR
MOV
MOV

TSTB
8PL

BIS

NOP
NOP

MOV
MOV
CMP
BEQ

ERROR

#BUF 0, aBAR

,.DO 40 ITERATIONS

:CLEAR THE DEVICE

STEST IF NCV11 CLOCK IS PRESENT

::BR IF NOT
2SET UP 1 WORD TRNSFER

#TSTDMA'TSTCON,aSFR

#7070,8UF0
#B1T0,aCSR
aKWCSR
#-2,3KWPSR
#11,aKWCSR
aKWCSR
1%

#BIT12,3SFR
BUF 0, SBDDAT
#0,8GDDAT
$GDDAT , $BDDAT
TST112

":LOAD BUS ADDRESS FOR RESULT

:ENABLE TEST CONTROL AND DMA FLOPS

:PRESET THE DATA

:ENABLE THE DEVICE
:CLEAR STATUS
:LOAD COUNTER PRESET
;ENABLE 1 MHZ. RATE AND CLOCK GO
:WAIT FOR CLOCK

ALLOW 1 DMA TRANSFER
:READ DATA
:LOAD EXPECTED
:COMPARE VALUES
::BR IF SAME

:CLOCK OVERFLOW FAILED TO GENERATE ‘‘'TIME MARKS''
;CHECK THE M8026 TO M7952 JUMPERS

CINCCA NCVIN
CINCCA.P1

2426
2627
2428
2429
2430
2431
2432

2433

2434

2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445

2446

2647
2448
2449
2450
2651
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464

2465

2466

2467
2468
2469
2470
2471
2472
2473
2474
2475
2476

DIAGNOSTIC
T2
VERIFY

MACY11 27(654)

8-AUG-78

15:05

PAGE 53

SEQ 0065

“'SET TIME'* OVERRIDES ‘'SET EVENT'' DATA
B

22228 8223222222238 333 3323222322388 3222332232332 8323 0030022232820t dRR Rl

SHTEST 112

VERIFY *‘SET TIME'' OVERRIDES ''SET EVENT'' DATZ

';tttttttfitttittttt'ttt'ti"t*tttttt!t.tltttt'ittttl'tttt"tttttt

017114

017116
017124
017132
017140

017146
017154

017162
017170
017172
017174
017176
017204
017212
017214
017216
017220
017226
017234
017242
017244

000004
012737
012777
012777
012777
012777
012737
052777
000240
000240
000240
052777
052777
000240
000240
000240
013737
012737
023737
001401

000040
004000
177777
060000
000014
007070
000001

003000
010000

060000
000000
001124

001160
162624

TST1i2: SCOPE
MOV
MOV

162612

Mov

162556

Bég

MOV
MOV
MOV

162606
162602
060000

NOP
NOP

8IS
Bég

162552
162544

NOP
NOP

MOV
MOV
CMP
BEQ

001126
001124
001126

ERROR

104027

#40,STIMES
N#CLRALL ,aSFR
#-1,3WCR

::D0 40 ITERATIONS
;CLEAR THE DEVICE

;SET UP 1 WORD TRANSFER

#BUF0,aBAR
#TSTDMA!TSTCON,aSFR
#7070 ,BUFO

;LOAD BUS ADDRESS FOR RESULT
JENABLE TEST CONTROL AND DMA FLOPS
JPRESET THE DATA

#81T10!BI79,aSFR
H#BIT12,3SFR

JSET "‘TIME AND EVENT'' FLOPS
JALLOW 1 DMA TRANSFER

#8170,aCSR

BUF0,$BDDAT
#0,3GDDAT
$GDDAT , $BDDAT
TST113

JENABLE DEVICE

;READ DATA
;LOAD EXPECTED
;.COMPARE VALUES
;.BR IF SAME

;''TIME'® MARK FAILED TO OVERIDE "EVENT'® OR DATA M

;;ttt*k*ttttttfittttt*Qt**t*ttt*tttik*itttt*'tttt*fit'ttt*tt**ttfitt

;*TEST 113

DO A ONE WORD MATRIX MODE TRANSFER

~CHECK FOR INCREMENT FUNCTION

;;ttttttt&tttttttt*t*ittt*ttt.itittt*t**ttttt'tktttttfitttfittttttt

017246
017250
017256
017264
017270
017276
017304
017312
017320
017326
017334
017336
017340
017342
017350
017352
017354
017356

017364
017372
017400
017402

000004

162452
162442
162444
162426
162430
162422

;DO 40 ITERATIONS
#40,STIMES
#CLRALL ,aSFR
;CLEAR THE DEVICE
;CLEAR INITIAL INREMENT LOCATION
BUFO
#BUF 0 ,a0Ff F
;LOAD INITIAL OFFSET REGISTER
#81T4!BIT1,a(CSR
JENABLE MATRIX MODE
#TSTDMA!TSTCON,aSFR
;SET TEST DMA AND CONTROL
#B8170,aCSR
JENABLE THE DEVICE
HTESTZ ,aSFR
JENABLE '‘TEST 2'' PULSES
HTESTZ ,aSFR
:DISABLE ‘‘TEST Z'' PULSES

162406

Bég

#BIT12,aSFR

000040
004000
060000
060000
000022
000014
000001
000002
000002

001160
162472

052777
000240
000240
000240
013737
012737
023737
001401

(10000

104030

060000
000001
001124

SCOPE

MOV
MOV
CLR
MOV
MOV
MOV
BIS
BIS
BIC

012737
012777
005037
012777
012777
012777
052777
052777
042777
000240
000240
000240

TST113:

001126
001124
001126

NGF
NOP
NGCP

JALLOW 1 TRANSFER

NOP
NOP

MOV
MOV
CMP
8EQ
ERROR

BUFQ, $BDDAT
JREAD THE BUFQ LOCATION
#1,$GDDAT
JLOAD EXPECTED VALUE
$GDDAT , $BDDAT
. COMPARE VALUES
T1ST114
;:BR IF SAME
;INCORRECT DATA IN MATRIX MODE
30
;IF DATA WAS 0, THE ADDRESS ACCESSED WAS PROBLY WRONG
;1F DATA WAS NON ZERO, THE "'INCR'' REGISTER IS STUCK TO A 1

2496

2497
2498
2499
2500
2501
2502
2503
2504

2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516

MACY11 27(654)
DIAGNOSTIC
T114
VERIFY EACH BIT OF THE

B 6
8~AUG-78 15:05 PAGE 54
INCREMENT REG. DATA PATH

SEQ 0066

SR 2232323232322 3222232328282 223032323 3822323323082

CRTEST 114

RSR00atRRRiRl

VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH

SR2222232332322322322383323232323
2333822223223
08300202d0dtdtRRiitl it

017404
017406

000004

012737

000040

001160

T8T114: SCOPE

#40,$TIMES
..DO 40 ITERATIONS
; CHECK r?g A 'C ARRY‘' INTO EACH BIT
000002-000001
MOV

000004-000003
000010-000007
000020-000017
000040-000037
000100-000077
8?3200-00017?

017414
017422

012737
012737

017430
000002

001110
002004

017430
017436
017444
017452
017460
017466
017474
017500
017506
017514
017522
017530
017536

012777
012777
012777
012777
052777
013737
005337
052777
042777
052777
013737
013737
023737
001401

004000
060000
000024
000014
000001
002004
060000
000002
000002
010000
002004
060000
001124

162320

017737
032737
001407
012737

162172
020000

001126
001126

000024

001124

052777
006337
001307

020000
002004

162152

017544

017546
017550
017556
017564
017566
017574
017576
017604
017610

104030

104031

—

2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495

NCVTT

CZNCCA
CZNCCA

162304

162274
162276
162260
060000

MOV
MOV

#18,$LPERR
#2,$TEMP

;LOAD RETURN ADDRESS IF ERROR
;LOAD INITIAL VALUE

MOV
MOV
MOV
MOV

#CLRALL ,aSFR

;CLEAR THE DEVICE
;LOAD INITIAL OFFSET REGISTER
JENABLE WORD MATRIX MODE
;SET TEST DMA AND CONTROL
JENABLE THE DEVICE
;LOAD PRESET VALUE
;10 EXPECTED -1
SENABLE "‘TEST Z'' PULSES
;DISABLE ‘‘TEST Z'' PULSES
JALLOW 1 TRANSFER
sLOAD TYPEOUT EXPECTED

BIS

MOV
DEC

162250
162242
162234

BIS
BIC
8IS

001124
001126
001126

MOV
MOV

2%:

CMP
BEQ
ERROR

MOV

BIT
BEQ

MoV

3%:

ERROR
BIS

ASL

BNE

#BUFO,a0Ff
MBIT4!BIT2,aCSR

#TSTDMA!TSTCON,
aSFR

#81T0,aCSR
$TEMP ,BUFO
BUFO

#TESTZ,aSFR
#TESTZ,aSFR

#BIT12,aSFR

$TEMP,$GDDAT

BUFO, $BDDAT
, $BDDAT
$GDDAT
’%
30
aCSR,$BDDAT
§21T13,$BDDAT

;READ THE BUFQ LOCATION

g?IT4!BIT2.SGDDAT
#BI1T13,3SFR
STEMP
1%

. COMPARE VALUES

:;BR IF SAME

;INCORRECT DATA IN THE INCREMENT REGISTER
JREAD STATUS

;JTEST FOR UNEXPECTED CELL OVERFLOW
;BR IF NOT
JLOAD THE EXPECTED TYPEOUT
JUNEXPECTED ''CELL OVERFLOW'' STATUS
:TRY TO CLEAR THE FLAG

;CHANGE THE EXPCTED
;BR IF MORE DATA BITS

CINCCA NCVIN
CINCCA.P11

2517
2518
2519
2520
2521
2522

DIAGN 0STIC

T115

MACY11 27(654)

15:05

B8-AUG-78

PAGE 55

CHECK FOR LOW BYTE "'INC OVFL'' TO SET CELL OVERFLOW AND °'‘CLR CELL'' TO CLEAR IT
2232222323322

*TEST 115

SEQ 0067

3328232233 2233232328 2322232833222 220022200222ttt

CHECK FOR LOW BYTE ‘‘INC OVFL'' TO SET CELL OVERFLOW AND ‘‘CLR CELL'" "D CLE

" "tttttttfitititfi*tfitttfi"tttt*l"**ttti*ttfii'fi*ttt*fltl*tt*fittttttt

017612

000004

162102
162072
162074
162056
162060
162052

::D0 40 ITERATIONS
#40,STIMES
#CLRALL ,aSFR
;CLEAR THE DEVICE
;CLEAR W(
aW(R
;CLEAR BAR
aBAR
;LOAD INITIAL OFFSET REGISTER
#BUF 0, a0FF
;ENABLE BYTE MATRIX MODE
#8174!BIT1,3CSR
;SET TEST DMA AND CONTROL
#TSTDMA!TSTCON,aSFR
;ENABLE THE DEVICE
#BITO0,aCSR
;ENABLE "'TEST Z'' PULSES
HTESTZ,QSFR
:DISABLE '‘TEST Z'* PULSES
HTESTZ,aSFR

060000
060001

MOVB
MovB

#377 ,BUFQ
#200,BUF0+1

012737
012777
005077
005077
012777
012777
012777
052777
052777
042777

000040
004000
162116
162114
060000
000022
000014
000001
000002
000002

001160
162126

112737
112737

000377
000200

017770
017776
020004
020012
020020
020022

052777
023737
00" 01

0011246

020024
020032
020040
020046
020050

013737
012737
023737
001401
104031

060000
100377
001124

017766

000240
000240
000240

052777

000240
000240
000240

017737
012737
023737
001401

010000

162000
020022
001124

TST115: SCOPE

MOV
Mov
CLR
CLR
MOV
MoV
MoV
BIS
BIS
BIC

017614
017622
017630
017634
017640
017646
017654
017662
017670
017676
017704
017706
01771C
017712
017720
017726
017734
017736
017740
017742
017750
017756
017764

NOP
NOP
NOP

BIS

162022

NOP
NOP
NOP

001126
001124
001126

017737

020000
161744

012737 000022

161760

001126

;READ STATUS
aCSR, $BDDAT
#81T13!BIT4!BIT1,8G.
DAT ;LOAD EXPECTED STATUS
$GDDAT , $BDDAT
. COMPARE VALUES

ERROR

;;BR IF SAME

;"'CELL OVERFLOW'' FLOP FAILED TO SET
;IN BYTE MODE FROM A LOW BYTE OVERFLOW

;NOW GENERATE ‘‘CLR CELL'' TO CLEAR CELL OVERFLOW FLOP

1$:

001124

001126

BIS

#BIT13,aSFR

;GENERATE '‘CLR CELL"

MOV

#81T4!BIT1,$GDDAT

:LOAD EXPECTED

ERROR

MoV

cMP
BEQ

104U31

001126
001124
001126

;JALLOW 1 TRANSFER

#81T12,3SFR

MOV
MOV
CMP
BEQ

104031

;SET LOW BYTE OF BUFO LOC. TO BYTE -1
JSET HIGH BYTE OF BUFO TO KNOWN VALUE

aCSR, SBDDAT

$GDDAT ,$BDDAT
2%

:NOW VERIFY THE BYTE DATA CELL

2$:

MOV
MOV
cMP
BEQ
ERROR

JREAD STATUS

. COMPARE VALUES
;:BR IF SAME

;''CLR CELL'® FAILED TO CLEAR "‘CELL OVFL'' FLOP

BUFO,$BDDAT
;READ DATA
#100377 ,8GDDAT
;LOAD EXPECTED
$GDDAT , $BDDAT
. COMPARE
TST116
;:BR IF SAME
31
;OVERFLOW FROM INC. REG. FAILED TO INHIBIT
;"'INC CNT'' FROM CHANGING THE DATA OR
:"'CSR BYTE CELLS'' FAILED TO INHIBIT "'INC ENA HI"’

NCVIT
CINCCA.PI
CINCCA

2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583

2584
2585
2586
2587
2588

2589
2590
2591

2592
2593
2594
2595

2596

2597
2598
2599
2600
2601
2602
2603

DIAGNOSTIC

T116

MACY11 27(654)

8-AUG-78

15:05

PAGE 56

CHECK FOR WORD ‘'INC OVFL'' TO SET CELL OVERFLOW AND °''CLR ALL'' TO CLEAR IT
K :tt't*fitfi'ttfiifi*'tl'tfiittiQQ't*tttti'titt*ttttttttifitt*tttttfitttfi

J*TEST 116

CHECK TOR WORD ‘INC OVFL'' TO SET CELL OVERFLOW AND '‘CLR ALL'' TO CLEAR IT

;.'t‘t"t'tt"‘*.Qi*"fi*."i"t'fi'tfifi'it'*fittt*fittttfi.t'tti*fi'fi'itit

020052
020054
020062
020070
020074
020100
020106
020114
020122
020130
020136
020144
020146
020150
020152
020160
020166
020170
020172
020174
020202
020210
020216
020220
020222

020230
020236

020244
020252
020254

020256
020264
020272
020300
020302

000004

012737
012777

000040
004000

005077
012777
012777
012777
052777
052777
vac. 77

161652
060000
000024
000014
000001
000002
000002

005077

00040

161660

001160
161666

TST116: SCOPE

161642

161632
161634

161616
161620
161612

012737

177777

073000

017737
012737
023737
001401
104031

161546
020024
001124

001126
001124
001126

052777
017737
012737
023737

004000
161512
000200
001124

161526
001126
001124
001126

001401

012737
023737
001401
104031

aWwCR
:
#BUFO,aOFF
#B8174!81712,aCSR
#TSTDMA!TSTCON,aSFR
#BI1T0,aCSR
NMTESTZ,aSFR
NTESTZ ,aSFR

060000

177777
001124

NOP

MoV

161570

104031

013737

CLR
MOV
MOV
MOV
BIS
BIS
BIC

NOP

060000

052777

000240
000240
000240

#.0,8TIMES
#CLRALL ,aSFR
aBAR

JLOAD INITIAL OFFSET REGISTER

JENABLE MATRIX MODE

sSET TEST DMA AND CONTROL

JENABLE THE DEVICE
JENABLE “'TEST Z2'' PULSES
;DISABLE '‘TEST Z'' PULSES

NOP

00024¢C
000240

;D0 40 ITERATIONS
;CLEAR THE DEVICE

MOV
MOV
CLR

001126

001124
001126

BIS

NOP
NOP
NOP

#-1,BUF0

#B1T12,aSFR

JSET BUFO LOC. TO WORD -1
sJALLOW 1 TRANSFER

MOV
aCSR,$BDDAT
;READ STATUS
mov
#31713!B1T4!B1T2,8GDDAT ;LOAD EXPECTED STATUS
cMP
$GDDAT , $8DDAT
. COMPARE VALUES
BEQ
1$
;:BR IF SAME
ERROR
31
;''CELL OVERFLOW'' FLOP FAILED TO SET
;NOW GENERATE '‘CLR ALL'' TO CLEAR CELL OVERFLOW FLOP
1%:
BIS
#CLRALL ,aSFR
;GENERATE ''CLR ALL"'
MOV
aCSR,$BDDAT
JREAD STATUS
MoV
#B1T7,$GDDAT
;LOAD EXPECTED
CMP
$GDDAT , $8DDAT
. COMPARE VALUES
BEQ
2%
;:BR IF SAME

ERROR

;"'CLR ALL'' FAILED TO CLEAR ''CELL OVFL'' FLOP

MOV

BUF O, $BDDAT

;READ DATA

ERROR

;NOW VERIFY THE WORD CELL DATA

2%:

MOV
cMP
BEQ

SEQ 0068

#-1,8GDDAT
$GDDAT , $8DDAT
TST*17

;LOAD EXPECTED
. COMPARE
;:BR IF SAME

NCVIN
CINCCA.P11
CINCCA

2604
2605
2606
2607
2608
2609
2610
261
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632

2633
2634
2635
2636
2637
2638
2639
2640

MACY11 27(654)
8~-AUG-78 15:05
DIAGNOSTIC
1117
CHECK FOR ‘‘CELL OVERFLOW'' INTERRUPT

E 6
PAGE 57

SEQ 0069

[ ER 2282323332223
3 3222222232223 2222232222323 23232222RX2R 222221

SATEST 117
T

020304
020306
020314
020322
020326
020332
020340
020346
020354
020362
020370
020376
020400
020402
020404
020412
020416
020422
020424

020432
020440
020442

02044/
020446
020450
020452

020454
020462

020470
020476
020500
020502
020510
020516

000004

7$T117: SCOPE

012737
012777
005077
005077
012777
012777
012777
052777
052777
042777
000240
000240

000040
004000
161426

012737
012746

177777
000000
020424

060000

012777
052777

020452
010000

161344
161316

000240
012746
000002

000240
000240
000240
104032
000414
022626

MOV

Mov

CLR

161420

CLR

060000
000064
000014
000001
000002

MOV
MOV
MOV

BIS
BIS
BIC
NOP
NOP

000002

017737
012737
023737
001401

161266
020264

001124

001124
001126

012777

004000
002000

161246
1612690

104031

013777
005C77

161256

001126

NOP
MOV
MOV
MOV

1%:

2%:

CHECK TOR "'CELL OVERFLOW'' INTERRUPT

222222222233333 3222323223322 3 2232322232322 033233233232323232280¢% 2223/

RT1I

MoV
BIS
NOP
NOP
NOP
ERROR
BR
cMP
MOV
MOV
CMP
BEQ
ERROR
MOV
MOV

CLR

#60,S$TIMES

#CLRALL ,aSFR
aBAR

::D0 40 ITERATIONS

;CLEAR THE DEVICE

aWCR

#BUFQ,Q0FF
#BITS!BITL!BIT2,8CSR

:LOAD INITIAL OFFSET REGISTER
JENABLE INTR. AND MATRIX MODE

#81T0,3CSR
#TESTZ.,aSFR
#TESTZ,aSFR

JENABLE THE DEVICE
;ENABLE “'TEST Z'' PULSES
:DISABLE ''TEST Z'' PULSES

#TSTDMA'TSTCON,aSFR

#-1.BUFO

#0,-(SP)
#18,-(SP)

#2%,aVECTBO

#B1T12,aSFR

3s
(SP)+,(SP)+

;SET TEST DMA AND CONTROL

;SET BUFO LOC.

:LOAD RETURN VECTOR

:ALLOW 1

TRANSFER

;''CELL OVERFLOW'' FAILED TO CAUES AN INTERRUPT

::BR TO CLEAN UP

a(SR,$BDDAT

JREAD STATUS
#81T13'BIT7!BITS!BIT4!BIT2,$GDDAT
$GDDAT, $8DDAT

3s
31

#CLRALL ,aSFR

VECTB1,aVvVECTBO
aVvECTB1

TO WORD -1

: COMPARE VALUE

:LOAD EXPECTED

;:BR IF “'ACTIVE'' CLEARED
;'ACTIVE'' FAILED TO CLEAR
:CLEAR THE DEVICE
JRESET THE VECTORS

2670
2671
2672
2673
2674
2675
2676
2677
2678

2679
2680

2694

PAGE 58

SEQ 0070

.'.'Qitt‘.""t‘*'*fifi".""Qi...t..tfi.'fi'fi'l"'ifi.!ittifififiii."fi'i

;=TEST 120

VERIFY CORRECT BR LEVEL THE NCvV-11

.'.'t."t'fifi*fi'tt"fittt'iit"t."'.ittfi."l’t*'*tfi..fiifi'fi.it'tfifiitt'

020664
020666
020670
020672
020674
020676
020700
020704
020710
020714
020716
020720
020726
020730
020734
020736
020740
020742
020744

000240
000240
000240

052777
000240
000240
000240
000240
000240
000~
013700

162700

005737
001401
005000
012777
010046
012746
000002
000240
0002490

010000

O
S

oud
e

norON

1%:

161144
161134

022626

020754
020756
020764

022626
012777
013777
005077

MOV
MOV
CLR
CLR
1 [01Y)

#10%,avECTBO
#340,aVECTBY
aBAR
aWCR
#BUFQ,Q0FF

MOV

H#TSTDMA!TSTCON,aSFR

MOV

020736
3%:

.CLEAR THE DEVICE

#64,aCSR

#-1,BUF0

JLOAD UNEXPECTED INTERRUPT RETURN

JINIT THE LOW Z COUNT
JINIT THE HIGH Z COUNT
:PRIME THE OFFSET REGISTER

JSELECT INTR. AND MATRIX MODE
;PRIME

;MAINT. MODE

THE TARGET LOCATION

#BIT12,dSFR

JENABLE 1

NOP
MOV

BRLEV,RO

TST
BEQ

NLSI
2%

NOP
NOP
NOP
NOP
NOP

2%:

#CLRALL ,aSFR

BIS

SuB

161050

::D0 40 ITERATIONS

JENABLE THE NCv=-11
;ENABLE '"'TEST Z'' PULSES
:DISABLE ‘"‘TEST Z'' PULSES

NOP
NOP

161072

#L0,8TIMES

#81T0,aCSR
#TESTZ ,aSFR
#TESTZ,aSFR

8IS
8IS
Eég

O —
[ %

BRLEV,-(SP)
;PUSH THE EXPECTED BR LEVEL ON STACK
#s,-(SP)
;PUST THE RETURN ADDRESS ON STA(K
:FAKE AN INTERRUPT TO BE LSI-11 AND PDP-11 (OMPATABLE

MOV

002002
000040
(03354
020754

SCOPE

MOV
MOV
MOV
RTI

MOV

161136
060000
161112
-

060000
000064
000014
177777
000001
000002
000002

—

161162
161154

TST120:

CLR

MOV
MOV

MOV
RTI
NOP

NOP

ERROR

104042
000404

020746
020750
020752

020772

004000
020746
000340

001160

—

000002
012777
012777
012777
005077
005077
012777
012777
012777
012737
052777
052777
042777

000040
002002
020544

(e Yo Yo )

000004
0127357
013746
012746

020522
020524
020532
020536
020542
020544
020552
020560
020566
020572
020576
020604
020612
020620
020626
020634
020642
020650
020652
020654
020656

[0
Y0}

2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2002
2663
2664
2665
2666
2667
2668
2669

MACY11 27(654)
8-AUG-78 15:05
VIA GNOSTIC
112 0
VERIFY CORRECT BR LEVEL THE NCv-11

:GET CURRENT BR LEVEL

JAND MAKE IT 1 LEVEL LOWER

#40,R0

;TEST IF LSI-11
;BR IF NOT

#20%,aVECTBO
RO,-(SP)
#3%,-(SP)

219

TRANSFER

CPU

;LOAD BR LEVEL 0
;RELOAD TO EXPECTED VECTOR
JPUSH ADJUSTED BR LEVEL
;PUSH RETURN ADDRESS
;LOWER CPU BR LEVEL

:NCV11 FAILED TO INTERRUPT -~ INCORRECT NCV11 BR LEVEL?
;sBR TO CLEAN-UP

JUNEXPECTED INTERRUPT WITH BR LEVEL INDICATED
10%:

104042

000401

004000
002000
161002

160772
161004

CMP

ERROR
BR

(SP)+,(SP)+

42
21%

;EXPECTED INTERRUPT DID OCCUR
20%:
CMP
(SP)+,(SP)+
21%:
MOV
#CLRALL ,@SFR
MOV
VECTB1,aVECTBO
QVECTB1
CLR

;CLEAN THE STACK

:NCV11

INTERRUPTED ON AN INCORRECT BR LEVEL

;:BR TO CLEANULP

:CLEAN THE STACK
;CLEAN THE DEVICE
RESET THE VECTOR

(e
Y an

CINCCA NCV11
CINCCA. P11

2695
2696
2697
2698
2699

G 6
PAGE 59

A 1 WORD MATRIX MODE XFR USING OFFSET
1223222233222

2223232332822

SEQ 0071

- 13

2323222 3280220022000ttt
iRt dll ]

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 13

SR 22322232232323323222323222222
2222232302232
2230022 RddRdRtRd ]

020776

2704

2705

2734
2735
2736

15:05

8-AUG-78

SeTEST 121

2702
2703

2724
2725
2726
2727
2728
2729
2730
2731
2732
2733

MACY11 27(654)
B

2700
270

2706
2707
2708
2709
2710
271
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723

DIAGNO STIC
21
VERIFY

021124

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
060000
000014
000024
000001
000002
000002
060000
10000
060000
000001
160010

001124

001160
160742
160726
160726

TST121:

SCOPE

MOV
Mov

MoV
MOV
MOV

160710
160702
160704
160676

BIS
BIS
BIC
CLR
BIS

160664

001122
001124
001126
001126

MOV
MoV
MOV

CMP
BEQ
ERROR

000004
012737

012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
070000
000014
000024
000001
000002
000002
070000
010000
070000
000001
157660

001124

001160
160612
160576
160576
160560
160552
160554
160546

160534
001122
001124
001126
001126

#B81T4!BIT2,aCSR

sSELECT MATRIX WORD MODE

#31T712,aSFR

;ALLOW 1 WORL TRANSFER

#B170,3CSR
HTESTZ,aSFR
#TESTZ,aSFR
a#60000

;ENABLE NCV11
JENABLE "‘TEST Z'' PULSES
;DISABLE ‘‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION

#60000, $BDADR

;LOAD EXPECTED ADDRESS

#1,8GDDAT

@$8DADR, $8DDAT
$GDDAT , $BDDAT
TST122

sLOAD EXPECTED DATA
;;BR

JREAD THE ACTUAL DATA
. COMPARE

SAME

JOFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 60000

22222223222323223233232232322222223232
2223222322223 208322 2 8R880R0 00 RE

EI22Z222 2223232232223 3228222282822

TRTEST 122
021126
021130
021136
021144
021152
021160
021166
021174
021202
021210
021214
021222
021230
021236
021244
021252
021254

#100,$TIMES
;:D0O 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#60000,a0FF
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
sSET TEST DMA AND CONTROL

TST122:

SCOPE

MOV
MOV
MOV
MOV
MOV

BIS
BIS
BIC
CLR
BIS

MOV
MOV
MoV

CMP
BEQ
ERROR

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
202 022

002t

t0ddRRt

=~ 12

#100,$TIMES
;.D0O 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#70000,a0F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
;SET TEST DMA AND CONTROL

#BIT4L!BIT2,aCSR

#8170,aCSR
NTESTZ ,aSFR
#TESTZ ,aSFR
a#70000
#BIT12,aSFR

#70000,$BDADR

#1_,3GDDAT
d$BDADR, $BDDAT
$GDDAT , $BDDAT
TST123

;SELECT MATRIX WORD MODE

JENABLE NCV11
;ENABLE '‘TEST Z'' PULSES
;DISABLE ''TEST 2'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS

;LOAD EXPECTED DATA
JREAD THE ACTUAL DATA
. COMPARE
;;BR IF SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 70000

NCV11
CINCCA.P1T
CINCCA

NCVIT

CINCCA
CZNCCA. P11

2737
2738
2739
2740
27461
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764

2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778

H 6
15:05
PAGE 60
MACY11
27(654)
8-AUG-78
A
GNOSTIC
DI
- 11
112 3
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

SEQ 0072

2820000 dddaltsdll
;:ttttttt*tttttt 1222222323232 282323322323232282222222

;*TEST 123

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

3 3382223222282
] L 3282223332222

021256
021260
021266
021274
021302
021310
021316
021324
021332
021340
021344
021352
021360
021366
021374
021402
021404

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
064000
000014
000024
000001
000002
000002
064000
010000
064000
000001
157530
001124

001160
160462

TST123

160446
160446
160430
160422
160424
160416
160404

001122
001124

001126
001126

SCOPE

= 11

2322233 222022822000 2R2R02RR0tdRdRsRll
st

MOV
MOV
MoV
MOV
MOV
BIS

#100,$TIMES
:.D0 100 ITERATIONS
#CLRALL ,aSFR
sCLEAR THE DEVICE
#64000,a0FF
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
;SET TEST DMA AND CONTROL

MOV
MOV
MOV

#64000,$8DADR
#1,$GDDAT
9$8DADR, $8DDAT
$GDDAT , $BDDAT
TST124

#B1T74!BIT2,3CSR

8IS
BIC
CLR
BIS

#B170,aCSR
#TESTZ,aSFR
#TESTZ ,aSFR
a#64000
#81T12,aSFR

cMP
BEQ
ERROR

;SELECT MATRIX WORD MODE

;ENABLE NCVII
JENABLE ‘‘TEST Z'' PULSES
;DISABLE 'TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
;JALLOW 1 WORD TRANSFER

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
JREAD THE ACTUAL DATA
. COMPARE
;.BR IF SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 64000

RN ARANR AN AN AN *ttt*tttt**t*ttttttttttttkitttitttt*tttttttttt*tt

SXTEST 124

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 10

382282222223 020222 R 2R 2t ddsls sl
E 234223222822
1|3222238022338

021406
021410
021416
021424
021432
021440
021446
021454
021462
021470
021474
021502
021510
021516
021524
021532
021534

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
062000
000014
000024
000001
000002
000002
062000
070000
062000
000001
157400
001124

001160
160332
160316
160316
160300
160272
160274
160266
160254
001122
001124
001126
001126

TST124:

SCOPE

MOV
MOV
MOV
MOV
MOV
BIS

#100,$TIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#62000,a0FF
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
JSET TEST DMA AND CONTROL

MOV
MOV
MOV

#62000, $BDADR

BIS
BIC
CLR
BIS

CMP
BEQ
ERROR

#BIT4!BIT2,aCSR

;SELECT MATRIX WORD MODE

H#TESTZ,aSFR
#TESTZ ,aSFR
a#62000
#B1T12,aSFR

JENABLE '‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER

#1,$GDDAT

;LOAD EXPECTED DATA

#B81T70,aCSR

a$8DADR, $8DDAT
$GDDAT , $BDDAT
TST125

;ENABLE NCV11

sLOAD EXPECTED ADDRESS

;;BR IF

JREAD THE ACTUAL DATA
. COMPARE
SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED
; THE WRONG ADDRESS - EXPECTED ADR. WAS 62000

CINCCA NCV11
CINCCA.PTY

2779
2780
2781
2782
2783

MACY11 27(654) B8-AUG=78 15:05 PAGE 61
DIAGNOSTIC
Y125
VERIiFY A 1 WORD MATRIX MODE XFR USING OFFSET = 09

SEQ 0073

:.'tfitt*\fit'ii*tttl’t*‘fi"'Q'i'fi*ttt*itititttfitttt'ttittttt'*ltttti

SATEST 125

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 09

:"ttt‘*ttittQ'*ttt*fit*ttttttt*tti*l'lit*ti**t.it*t*.*!itt'fiii*tfitt

021536
021540
021546
021554
021562
021570
021576

021604
021612
021620
021624
021632
021640
021646
021654
021662
021664

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737

017737
023737
001401
104033

000100
004000
061000
000014
000024
000001
000002
000002
061000
010000
061000
000001

157250
001124

001160
160202
160166
160166
160150
160142
160144
160136

T§7125: SCOPE
MOV
MOV
MOV
MOV
MOV
BIS

BIS
BIC

CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

160124
001122
001124
001126
001126

#100,$TIMES
::D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#61000 , 30F F
*LOAD THE OFFSET REG.
#TSTDMA! TSTCON,aSFR
*SET TEST DMA AND CONTROL
#B174'Bi12,aCSR
*SELECT MATRIX WORD MODE
#8170,3CSR
*ENABLE NCV11
#TESTZ,aSFR
*ENABLE 'TEST 2'' PULSES
#TESTZ.aSFR
*DISABLE "'TEST Z'' PULSES
ar61000
*CLEAR THE TARGET LOCATION
#81T12,aSFR
‘ALLOW 1 WORD TRANSFER
#61000 . SBDADR
*LOAD EXPECTED ADDRESS
#1,$GDDAT
*LOAD EXPECTED DATA
2$BDADR , SBDDAT
$GDDAT , $BDDAT
TST126
33

*READ THE ACTUAL DATA
- COMPARE
::BR IF SAME
COFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 61000

,'.'t*tittt*Qt*titttt*tti*"'itttti*tt***titttfit*tt*itfit*t*kt.ti'*tt

TATEST 126

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 08

:"tt*tt*tt'ttt*fit*tfi*t**ttt*tl'**fifittttitttt*tl‘*ttittt'tl‘*tttitttt

021666
021670
021676
021704
021712
021720
021726
021734
021742
021750
021754
021762
021770
021776
022004
022012
022014

000004
012737

000100

001160

012777
012777
012777
052777

060400
000014
000024
000001

160036
160036
160020
160012

005037
052777
012737
012737
017737
023737
001401
104033

060400
010000
060400
000001
157120
001124

157774
001122
001124
001126
001126

012777 004000 160052

052777
042777

000002
000002

160014
160006

T$7126:

SCOPE
MOV

#100,$TIMES

MOV
MOV
MOV
BIS

#60400, 30F F
ATSTDMA ' TSTCON,@SFR
#B1T4'BIT2,aCSR
#81T0,aCSR

MOV

BIS
BIC

CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

#CLRALL ,a@SFR

#TESTZ,8SFR
#TESTZ.aSFR

60400
#81712,3SFR
#60400 . SBDADR
#1,SGDDAT
3$BDADR, $BDDAT
$GDDAT , $8DDAT
1$T127
33

::D0 100 ITERATIONS

;CLEAR THE DEVICE

*LOAD THE OFFSET REG.
*SET TEST DMA AND CONTROL
*SELECT MATRIX WORD MODE
*ENABLE NCV11

*ENABLE 'TEST Z'' PULSES
DISABLE '‘TEST Z'' PULSES

*CLEAR THE TARGET LOCATION
ALLOW 1 WORD TRANSFER
*LOAD EXPECTED ADDRESS
*LOAD EXPECTED DATA
*READ THE ACTUAL DATA
* COMPARE
;:BR IF SAME
SOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 60400

CINCCA

NCVI

CINCCA.PIT
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858

2859
2860
2861
2862

MACY11 27(654)
8-AUG-78 15:05 PAGE 62
DIA GNOSTIC
=~ 07
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
112 7
R

SEQ 0074

2222222232328 2222222222222 83%28 2332220222230
s iRttt llld

TRTEST 127

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

=~ 07

';tt*ttttt*ttfi***itttttttt*t'*'ttittittti*fititttttttfi*tfit'ttttttt

022016
022020
022026
022034
022042
022050
022056

022104
022112
022120
022126
022134
022142
022144

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
060200
000014
000024
000001
000002
000002
060200
010000
060200
000001
156770

001124

001160
157722
157706
157706
157670
157662
157664
157656

TST127:

SCOPE

MOV
MOV
MOV
MOV
MOV

#100,$TIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#60200,a0FF
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
JSET TEST DMA AND CONTROL

MOV
MOV
MOV
CMP
BEQ

#60200, $8DADR
#1,$GDDAT

BIS
B1S
BIC
CLR
BIS

157644
001122
001124
001126
001126

ERROR

#BIT4!BIT2,aCSR
#B1T0,aCSR
HTESTZ ,aSFR
HTESTZ ,aSFR
a#60200
#B1T12,aSFR

;SELECT MATRIX WORD MODE
JENABLE NCV11
;ENABLE "‘TEST Z'' PULSES
;DISABLE 'TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER

a@$8DADR, $8DDAT

JREAD THE ACTUAL DATA

$GDDAT , $BDDAT
1ST130

222222322333 2232332223 2322222228

SXTEST 130

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

. COMPARE
;:BR IF SAME

sOFFSET INPUT TO MATRIX MUX.

SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 60200

222322000282

R 0ttt

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 06

SE$2222223232323323323
2322223842222 3282282808833 82222 f2R20RsRtdt Sl

022146
022150
022156
022164
022172

022200
022206

022214
022222
022230
022234
022242
022250
022256
022264
022272
022274

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
060100
000014

000024

000001
000002
000002
060100
010000
060100
000001

156640

001124

001160
157572
157556
157556
157540
157532
157534
157526
157514

001122
001124
001126
001126

TST130:

SCOPE

MOV
MOV

MoV
MoV

MOV
BIS
8IS
BIC
CLR
8IS
MOV
MOV
Mov
CMP
BEQ
ERROR

#100,$TIMES
#CLRALL ,aSFR
#60100,a0FF

;:DO 100 ITERATIONS
;CLEAR THE DEVICE
;LOAD THE OFFSET REG.

#TSTDMA!TSTCON,aSFR

sSET TEST DMA AND CONTROL

#BIT4!BIT2,aCSR
#8170,aCSR
HTESTZ ,aSFR
HTESTZ ,aSFR
a#60100
#BI1T12,aSFR

;SELECT MATRIX WORD MODE
JENABLE NCV11
;ENABLE "‘TEST Z'' PULSES
;DISABLE '‘TEST 2'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER

a$BDADR, $BDDAT

JREAD THE ACTUAL DATA

#60100,$8DADR
#1,3GDDAT

$GDDAT, $BDDAT

TIST13
33

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
. COMPARE

;:BR IF SAME
;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 60100

CINCCA NCV1T
CINCCA P11

K 6
MACY11 27(654)
8-AUG-78 15:05 PAGE 63
DIAGNOSTIC
"3
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET - 05

2863

2864
2865
2866
2867
2868
2869
2870
2871

2872
2873
2874
2875

2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891

2892
2893

2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904

2223232232282

2322388283020

LRTEST 131
022276
022300
022306

022314
022322
022330
022336
022344
022352
022360
022364
022372
022400
022406

022414

022422
022424

000004
012737
012777
012777
012777
012777
052777
052777
062777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
060040
000014
000024
000001
000002
000002
060040
010000
060040
000001
156510
001124

TST131:

157364
001122
001124
001126
001126

SCOPE

MOV
MOV
MOV
MUV
Mov
BIS
BIS
BIC
CLR
BIS
MOV
MoV
MOV

CMP
BEQ
ERROR

2222822222223 020

SEQ 0075

2202232022822

2222232332223 2232223]

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
8202203020202

#100,$TIMES

#CLRALL ,aSFR
#60040,30FF

303082320

#BIT4!B172,3CSR
#BIT0,aCSR
#TESTZ ,aSFR

$GDDAT , $BDDAT
TST132
33

::D0 100 ITERATIONS

HTSTDMA!TSTCON,aSFR

#TESTZ,aSFR
a#60040
#BIT12,aSFR
#60040,$8DADR
#1,8GDDAT
a$8DADR , $BDDAT

= 05

2823020 00R 0202202221

:CLEAR THE DEVICE
*LOAD THE OFFSET REG.

JSET TEST DMA AND CONTROL

;SELECT MATRIX WORD MODE
JENABLE NCV11
;ENABLE ''TEST 2'' PULSES

;DISABLE 'TEST 2'' PULSES
;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
JLOAD EXPECTED DATA
;READ THE ACTUAL DATA

; COMPARE
::BR IF SAME
JOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 60040

';tttttttt*t*fit*.*fi**tttt*t*tt***tt**ttt*fitt**i*tfi***fi*tttttttttt

TRTEST 132

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 04

';tttt*'*ttfitt*ttfitfititttt*ttttitttt*t**fitfit*tt*tttttttttttfi*ttit

022426
022430
022436
022444
022452
022460
022466
022474
022502
022510
022514
022522
022530
022536
022544
022552
022554

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
060020
000014
000024
000001
000002
000002
060020
010000
060020
000001
156360

001124

001160
157312
157276
157276
157260
157252
157254
157246
157234
001122
001124
001126
001126

TST132:

SCOPE

MOV
MOV
MOV
MOV

MOV
BIS
BIS
B8IC
CLR
BIS
MOV
MOV
Mov

CMP
BEQ
ERROR

#100,$TIMES
;.D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#60020,a0FF
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
cSET TEST DMA AND CONTROL

#B1T4!81T2,aCSR

;SELECT MATRIX WORD MODE

H#TESTZ,aSFR
H#TESTZ ,aSFR
a#60020

JENABLE '‘TEST Z'' PULSES
;DISABLE 'TEST Z'' PULSES
;CLEAR THE TARGET LOCATION

A#B8I1TO,aCSR

JENABLE NCV11

#BIT12,aSFR
#60020,$BDADR
#1,$GDDAT

a$8DADR, $8DDAT
$GDDAT, $BDDAT
TST133

;.BR IF

;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
JREAD THE ACTUAL DATA
. COMPARE
SAME

sOFFSET INPUT TO MATRIX MUX.

SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 60020

CZNCCA NCVIN
CINCCA.PT

7133

000004

012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737

22231333323232322223332232323232323223232232323
3328222222322 232320232323223822¢%%332‘4

2222222223323 23233333332333323323232232333232232222222232222302328023ddRsntd

001401
104033

TST133: SCOPE
MOV
MOV

000100
004000
060010
000014
000024

SEQ 0076

S*TEST 133
022556
022560
022566
022574
022602
022610
022616
022624
022632
022640
022644
022652

MACY11 27(654)
8-AUG-78 15:05 PAGE 64
- 03
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

DIAGNO STIC

MOV
MOV
MOV

BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV

001124

CMP
BEQ
ERROR

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

#100,S$TIMES

;:DO 100 ITERATIONS

#CLRALL ,aSFR
#60010,a0FF
#TSTDMA!TSTCON,aSFR

#8174!B1T2,3CSR
#BIT0,aCSR
HTESTZ,aSFR
#TESTZ ,aSFR
a#60010
#BI1T12,aSFR
#60010,$8DADR
#1,$GDDAT

@$BDADR, $8DDAT
$GDDAT ,$BDDAT
TST134

=~ 03

:CLEAR THE DEVICE
;LOAD THE OFFSET REG.
JSET TEST DMA AND CONTROL

;SELECT MATRIX WORD MODE
JENABLE NCVI
;ENABLE '‘TEST Z'' PULSES
;DISABLE °‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

JREAD THE ACTUAL DATA
. COMPARE
::BR IF SAME

JOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 60010

':ttttttitttttttttt*ittttttt*tfitt*tttttt*t*tttt*tt*ttttitt*fit*t*t

S*TEST 134

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 02

SR 2232223223223 23232323 3222232322333 222232222322232022032302223¢8282832028230dsd

000004
012737
012777
012777
012777

023034

012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
040004
000014
000024
000001
000002
000002
040004
010000
040004
000001
156100
001124

001160
157032
157016
157016
157000
156772
156774
156766
156754
001122
001124

001126
001126

TST134:

SCOPE

MOV
MOV
MoV
MOV
MOV

#100,8$TIMES

:CLEAR THE DEVICE
JLOAD THE OFFSET REG.
;SET TEST DMA AND CONTROL

#81T0,aCSR
#TESTZ ,dSFR
#TESTZ ,aSFR

JENABLE NCV11
JENABLE "'TEST 2'' PULSES
:DISABLE ‘‘TEST Z2'' PULSES

#BIT4L!'BIT2,a(SR

31S
BIS
BIC
CLR
8IS

#81T12,3SFR

CMP
BEQ
ERROR

332

MoV
MOV
MOV

;D0 100 ITERATIONS

#CLRALL ,aSFR
#40004 ,Q0FF
#TSTDMA! TSTCON,QSFR

a#40004

#60004 , $8DADR
#1,8GDDAT
a$8DADR, $BDDAT
$GDDAT ,$BDDAT
TST135

:SELECT MATRIX WORD MODE

;CLEAR THE TARGET LOCATION

JALLOW 1 WORD TRANSFER

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
;READ THE ACTUAL DATA
; COMPARE
::BR IF SAME

:OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 40004

€Z
w4

NCVIT
CINCCA.P1T
CZNCCA

DIAGNOSTIC

T135

MACY11 27(654)

2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974

2975
2976
2977
2978
2979
2980

2981

15:05

PAGE 65

VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE

2947
2948

2949
2950
2951

8-AUG-78

SEQ 0077

".‘t*ttttttttttttittttttttttt'tfitt*tittttttttttttttttttt*ttttttttt

S*TEST 135

VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE

001160

7ST135: SCOPE
MOV

#10,$TIMES

"WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS '?552"
"VERIFY THAT THE MATRIX MUX CAN ADD 62550 AND 2552 CORRECTLY
MOV
#CLRALL ,@SFR
:CLEAR THE DEVICE

.','tttittt.tttt*ttt*ttttttttttttfitttttttt***t**tttttttttttttttt*tfi

023036
023040

000004
012737

000010

023046

012777

004000

156702

023062
023070
023076
023104
023112
023120
023124
023130
023136
023140
023142
023144
023152
023160
023166
023174
023176
023202
023204

012777
012777
052777

000014
002024
000001

156666
156650
156642

005037

065322

023054

023206
023210
023216
023222

012777 062550
052777
042777
005037

052777

000240
000240
000240

012737
012737
017737
023737
001413
005737
001002
104033

000406
013737

005037
104033

000002
000002
062722

156666

MOV

#BUF 0+2550, 30F F

*LOAD THE OFFSET REG.

BIS
BIC

#TESTZ,3SFR
#TESTZ.3SFR

*ENABLE ‘'TEST 2'' PULSES
‘DISABLE ‘TEST Z'' PULSES

MOV
MOV
BIS

156644
156636

CLR

010000

156620

BIS

065322
000001
155736
001124

001122
001124
001126
001126

[ [0)Y)
MOV
MOV
cMP
BEQ
TST
BNE
ERROR

NOP
NOP
NOP

062722

062722
001124

001126

::D0 10 ITERATIONS

:WITH GAIN SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 250

1%:

B8R
MOV

CLR
ERROR

ATSTDMA! TSTCON, aSFR
#2024 ,3CSR
#81T0.aCSR
AHBUF 0+5322

aABUF 0+2722
#81T12,3SFR

“SET TEST DMA AND CONTROL
*ENABLE GAIN, WORD MATRIX MODE
‘ENABLE THE NCV11
*CLEAR THE TARGET ADDRESS

:CLEAR THE TARGET ADDRESS IF ‘'‘TESTX'' FAILS
*ALLOW 1 TRANSFER

#BUF0+5322,$8DADR
;LOAD THE EXPECTED ADDRESS
#1,$GDDAT
*LOAD THE EXPECTED DATA
a$BDADR , $8DDAT
*READ THE ACTUAL DATA
$GDDAT , $BDDAT
- COMPARE
TST136
::BR IF SAME
RHBUF 0+2722
“TEST OTHER ADDRESS
1%
‘BR IF NON-ZERO
33
*MATRIX MODE ADDER ERROR

TUSING GAIN AND WORD MATRIX MODE, THE ADDRESSES SELECTED WAS INCORRECT
TST136
o

SHBUF 0+2722, $8DDAT
:LOAD INCORRECT DATA
$GDDAT
*CLEAR THE EXPECTED DATA
33
JMATRIX MODE ADDER ERROR DUE TO
JTESTX'' LOGIC SET IN ERROR

CZ
4

CINCCA NCVIY
CINCCA. P11

DIAGNOSTIC

1136

MACY11 27(654)

B8-AUG-78

15:05

PAGE 66

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

2982
2983

USING ZB ENABLE

SEQ 0078

SR23222232232232822322
2228223223223 228233303380222302038030 3208022 Zd8E2R 4]

;*TEST 136
AR R

023224
023226

000004
012737

000010

001160

023234
023242

012777
012777
012777
012777

004000
0652264
000014
004024

156514
156500
156500
156462

005037
052777
012737
012737
017737
023737
001401

072450
010000
072450
000001
155562
001124

156436
001122
001124
001126
001126

052777
052777
042777

023352

000002
000001
000001

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER
R AR

R AN

AN RN

R AN R RN

R RN

RARRA R

USING ZB ENABLE

ARRR AN

TST136: SCOPE
MOV

#10,8TIMES
;DO 10 ITERATIONS
;WITH 7B ENABLE SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 224
JWHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS 12450
JVERIFY THAT THE MATRIX MUX CAN ADD CORRECTLY

156464
156446
156450

MOV
MOV
MOV
MOV

#CLRALL ,@SFR
#BUF 0+5224 , a0F F
#TSTDMA'TSTCON,aSFR
#4024 ,3CSR

;CLEAR THE DEVICE
*LOAD THE OFFSET REGISTER
*SET TEST DMA AND CONTROL
*ENABLE ZB AND WORD MATRIX MODE

CLR
BIS
MOV
MOV
MOV
(MP
BEQ
ERROR

SMBUF0+12450
#81T12,aSFR
#BUF 0+12450, $BDADR
#1,$GDDAT
aSBDADR , SBDDAT
$GDDAT , $BDDAT
TST137
::BR IF

*CLEAR THE TARGET LOCATION
SALLOW 1 TRANSFER
:LOAD THE EXPECTED ADDRESS
SLOAD THE EXPECTED DATA
sREAD THE ACTUAL DATA
: COMPARE
SAME

BIS
BIS
BIC

104033

NTESTZ ,aSFR
#BIT0,3CSR
#31T0.aSFR

*ENABLE 'TEST 2'* PULSES
TENABLE NCVT1
:DISABLE ‘‘TEST Z'* PULSES

*ADM INPUT TO THE MATRIX MUX SELECTED

*WRONG ADDRESS

EXPECTED ADDRESS WAS BUFO + 2450

tt*tt**t*tttt**t*ttt*tt**tt**tttfitt't*t*tttttl*fit*i*tfittttttttfi

SXTEST 137
BRI

023354
023356
023364
023372

000004
612737
012777
012777
012777
012777
052777
052777
042777
052777
005037
005037
052777
000240
000240
000240

023504
023512
023514
023520
023522
023524
023526
023534
023540

012737
013737
023737
001413
005737
001002
104034
000406
013737
005037
104034

001160
156364
156350
156350
156332
156324
156326
156320
156312

000001
060152
001124

001124
001126
001126

7ST137: SCOPE

156274

062552
001124

001126

18:

2233223 233323223333 2223332233232232333 333232322323 ¢28282%3%2%1

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
BIS
CLR
CLR
BIS

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
#8UF 0, 30F F
*LOAD OFFSET REG.
#TSTDMA'TSTCON,aSFR
*LOAD TEST DMA AND CONTROL
#2024 ,3CSR
*SET "'GAIN'' AND WORD MATRIX MODE
#31T0,aCSR
*SET NCV11 ACTIVE
#TESTZ,aSFR
*ENABLE 'TEST 2'' PULSES
#TESTZ ,aSFR
:DISABLE '‘TEST Z°'* PULSES
#BIT4,3SFR
SSET "TESTX"' FLOP
RMBUF 0+2552
*CLEAR THE TEST FAILED LOCATION
a48UF 0+0152
*CLEAR THE TESTX WORKED LOCATION
#B1T12,aSFR
*ALLOW 1 TRANSFER

MOV
MOV
CMP
BEQ
TST
BNE
ERROR
BR
MOV
CLR
ERROR

#1,$GDDAT
;LOAD EXPECTED DATA
Q4BUF0+0152, $BDDAT
:READ THE ACTUAL DATA
SGDDAT , SBDDAT
: COMPARE DATA
TST140
::BR IF SAME
HBUF 0+2552
STEST TESTX FAILED LOCATION
1$
::BR IF YES
34
TESTX FAILED TO INHIBIT BITS 8=15 OF THE ‘‘SUM ADDER''
TST149
HBUF 0+2552, $BDDAT
:GET ACTUAL DATA
$GDDAT
:CLEAR EXPECTED
34
*TESTX FAILED TO INHIBIT BITS 8-15 OF THE ''SUM A

NOP
NOP
NOP

062552

VERIFY LOW BYTE OPERATION OF THE '‘TESTX'' FLOP

T332 22 333232233333

cz!
c2

CINCCA NCVIT
CINCCA.PN

MACY11 27(654)
B8-AUG-78 15:05 PAGE 67
DIAGNOSTIC
1140
VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX

SEQ 0079

:'t'tfitttti*tfi'fifii*itt"ii'tttttittfittQitt"tittttttttt*‘Qt'tflttt

$*TEST 140

VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MuX

';tt*itttitt'tttttttitt"'t'i*tttfittttttttt'*lfifitflttttttttttttt't

023542
023544
023552
023560
023566
023574
023602
023610
023616
023624
023630
023636
023644
023652
023660
023666
023670

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401

000100
004000
050000
000014
002030
000001
000002
000002
062726
010000
062726
000001
155244
001124

001160
156176
156162
156162
156144

TST140: SCOPE
MOV

MOV
MOV
MOV
MOV

BIS

156136
156140
156132

BIS
8IC

CLR

BIS

156120
001122
001124
001126
001126

MOV

CMP

BEQ
ERROR

104033

#100,$TIMES

;:DO 100 ITERATIONS

#CLRALL ,aSFR
#50000,a0FF
#TSTDMA!TSTCON,aSFR
#2030,aCSR

;CLEAR THE DEVICE
cLOAD THE OFFSET REG.

H#TESTZ ,aSFR
#TESTZ,QSFR

JENABLE '‘TEST Z'' PULSES
;DISABLE ''TEST Z'' PULSES

;SET TEST DMA AND CONTRO_

#B170,aCSR

sSELECT GAIN MATRIX BYTE MODE
SENABLE NCV11

AMBUFQ+2726

;CLEAR THE TARGET LOCATION

#B81T712,aSFR

#BUF 042726, $BDADR
#1,8GDDAT

@$B8DADR, $BDDAT
$GDDAT ,$BDDAT

I1ST141
33

JALLOW 1 WORD TRANSFER

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

sREAD THE ACTUAL DATA
. COWPARE

::BR IF SAME
JMATRIX ADDER FAILED TO SELECT CORRECT ADDRESS
;THE WRONG ADDRESS - EXPECTED ADR. WAS BUF(0+2726

;:*t*tt*t*tt***t*tt*tfitt**tt'fitt*fifi*k*fit*tttfi*fitttt*t*t*t*t*t*tt*

J*TEST 141

VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MuUX

::***t***t***tttt*ti*tt**titt*fitt*tt*ittttt****fi'i*fifitttttt***t*t

023672
023674
023702
023710
023716
023724
023732
023740
023746
023754
023760
023766
023774
024002
024010
024016
024020

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
037774
000014
002032

000001

000002
000002
065522
010000
065522
000001
155114
001124

001160
156046
156032
156032
156014
156006
156010
156002
155770
001122
001124
001126
001126

TST141:

SCOPE

MOV

#100,$TIMES

MOV

#37774 ,Q0FF

MOV

Mov

MOV

BIS
BIS
BIC
CLR
BIS
MOV

MOV
MOV

CMP
BEQ
ERROR

#CLRALL ,aSFR

;.DO 100 ITERATIONS

;CLEAR THE DEVICE

#TSTDMA!TSTCON,QSFR

#2032,aCSR

#B170,3CSR
HTESTZ ,dSFR
HTESTZ,aSFR
a#BUF0+5522
#BIT12,aSFR
#BUF 0+5522, $BDADR
#1,8GDDAT
a$8DADR, $BDDAT

$GDDAT, $BDDAT
TST142
33

;LOAD THE OFFSET REG.

;SET TEST DMA AND CONTROL

;SELECT GAIN MATRIX BYTE MODE

;ENABLE NCVTI
;ENABLE °'‘TEST Z'' PULSES
;DISABLE 'TEST 2'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
JREAD THE ACTUAL DATA

. COMPARE
;.BR IF SAME
JMATRIX ADDER FAILED TO SELECT CORRECT ADDRESS
;THE WRONG ADDRESS - EXPECTED ADR.

WAS BUF0+5522

NCV11
CINCCA.PT
CINCCA

3078
3079
3080
3081
3082
3083
3084
3085
3086

DIAGNOSTIC
T142
VERIF

MACY11 27(654)
8-AUG-78 15:05 PAGE 68
31T 14 ADDER INPUT TO MATRIX MODE MUX

SEQ 0080

: .'ttt.‘Q'Q’*tfifi**fififi.'i*'tttt.t*fiQ*tfi"fifi*tttttt*ifitfifitkittttt'it

;*TEST 142

VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX

.'.'t't.fififit*tt'tttfifitfit""."ttttfittt*ttltt'tfit*ttfitt*titttttttti

024022
024024

024032
024040
024044
024050
024056
024064
024072
024100
024106
024114
024120
024126
024134
024142
024150
024156
024160

000004
012737

012777
023727
103445
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100

004000

001169

155716

TST142:

SCOPE
MOV

#100,8TIMES

MoV

53656
=
123656
#CLRALL ,@SFR

TST143
;;BR IF NO ROOM
#50000,a0FF
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
;SET TEST DMA AND CONTROL
#2034 ,3CSR
;SELECT GAIN MATRIX BYTE MODE
#81T0,aCSR
JENABLE NCV11
a#BUF 0+4 3656
#BIT12,aSFR
#BUF 0+43656 , $8DADR
#1,8GDDAT
a$8DADR, $BDDAT

JOFFSET =
;ADM QUTPUT
s TARGET

036402

001340

050000
000014
002034
000001
000002
000002

155672
155672
155654
155646

BLO
MoV
Mov
MoV
BIS

155630
001122
001124
001126

CLR
BIS
MOV
MOV
MOV

123656
010000
123656
000001
154754
001124

155650
155642

001126

CMP

BIS
BIC

CMP

BEQ

ERROR

50000
=

;:D0 100 ITERATIONS

;CLEAR THE DEVICE

$LSTBK, #1340

HTESTZ ,aSFR
#TESTZ ,aSFR

$GDDAT ,$BDDAT

TST143

;TEST IF ENOUGH MEMORY >20K

JENABLE ''TEST Z'' PULSES
;DISABLE 'TEST Z'' PULSES

;CLEAR THE TARGET LOCATION
;JALLOW 1 WORD TRANSFER
:LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
JREAD THE ACTUAL DATA
. COMPARE

;:BR IF SAME

JMATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

;THE WRONG ADDRESS - EXPECTED ADR. WAS BUF(0+43656

CINCCA

NCV11

CINCCA.PN

15:05
PAGE 69
8-AUG-78
MACY11 27(654)
Dl AGNOSTIC
T 63
CHECK FOR HIGH BYTE ''INC OVFL'' TO SET CELL OVERFLOW
BRI 233Z3 3223333222322

3104

STEST 143

SEQ 0081

2222223222223

2220222220 RRdRRtRRAd)

CHECK TOR HIGH BYTE ''INC OVFL'' TO SET CELL OVERFLOW

':ttt'ttttttttti.*fitttt"'ittitfi'fltt.t.'t.......QQ...Q'.."..".'

024162
024164
024172
024200
024204
024210
024216
024224
024232
024240
024246
024254
024256
024260
024262
024270
024276
024304
024306
024310
024312
024320
024326
024334
024336

000004
012737
012777
005077
005077
012777

024340
024346
024354

013737
012737

024362
024364

TST143: SCOPE

012777
012777
052777
052777
042777

000010
004000
155546
155544
060000
002022
000014
000001
000002
000002

112737

000100
000377

061264
061265
155452

022022

001124
001126
001126

000240
000240
000240
112737

052777
000240
000240
000240
012737
017737
023737
001401

010000

155422

001124

MOV
MOV

CLR
CLR

Mov

Mov
MOV

BIS
BIS
BIC
NOP
NOP
NOP
MOVB

023737
001401
104030

061264

177500
001124

001126
001124
001126

;CLEAR W.C.
;CLEAR B.A.
JLOAD INITIAL OFFSET REGISTER

;ENABLE MATRIX MODE BYTE AND SET GAIN

#MIT10'81T4'8BIT1,8(SR
#TSTDMA'! TSTCON,aSFR

;SET TEST DMA AND (CONTROL

#BI1T0,aCSR

;ENABLE THE DEVI]CE

#100,BUF0+1264

;LOAD LOW BYTE

#TESTZ.aSFR
#TESTZ,8SFR

;ENABLE ‘'TEST Z'' PULSES
:DISABLE '‘TEST 2'° PULSES

TO A KNOWN VALUE

#377 ,BUF0+1265
#MIT12,aSFR

MOV
MOV

#3]T13!B1T10!BIT4!BIT1,$GDDAT
;LOAD EXPECTED STATUS
a(SR.,$BDDAT
;READ THE ACTUAL STATUS

(MP
8t0Q
ERROR

1%:

aW(CR
aBAR
#BUFO,a0FF

;D0 10 ITERATIONS
:CLEAR THE DEVICE

MOvB

BIS
NOP
NOP
NOP

104030

#10,$TIMES
#CLRALL ,aSFR

MOV
MOV

CMP
BEQ
ERROR

$GDDAT , $BDDAT
1%

:SET HIGH BYTE TO 377
;ALLOW 1 TRANSFER

::BR [F

: COMPARE
SAME

:CELL OVERFLOW FAILED TO SET
:WHEN INCREMENTTM ~ THE HIGH BYTE
BUF 0+ 1264 ,$8DDAT
JREAD 1 _ SUFQ LOCATION
30

#177500,8GDDAT

$GDDAT ,$BDDAT
TST144

30
}

;LOAD EXPECTED VALUE

;:BR

. COMPARE VALUES

SAME

JTARGET LOC. DATA WAS INCORRECT

CINCCA NCVIY
CINCCALFT

3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164

3165

MACY11 27(654)
DIAGNOST(
1144
VERIFY EA(H BT OF THE

3185

3186

3187
3188
3189

3190
3191

PAGE 70

LOWER 16 BIT Z COUNTER

SRTEST 144
R

024366
024370
024376
024402
024404
0246412

024420
024426
024434
024442
024450
024454
024462
024470
024476
024502
024504
024512
024520
024522
024524
024526
024532

000004

000400
050110

012777
012777
012777
013777
005377
012777
052777
052777

004000
000010
000000
001124

017737
023737
001402

155244

105777
100375

104010
000403

006337
001332

TST*44:

012737
005737
001454
012737
012737

SEQ 0082

(TESTER ONLY)

000001
026420

1%:

000022
000001
000001

2%:

155224

001126
001126

;.00 400 ITERATIONS

BEQ
MOV
MOV

TST145
#1,3GDDAT
#1% ,SLPERR

:;BR IF NOT
JLOAD EXPECTED VALUE
;LOAD LOOP ADDRESS

WFMODE

;TEST IF

(TESTER ONLY)

TESTER MODE

MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,3W(R

:CLEAR THE DEVICE
;SET TEST DMA FLOP
:LOAD UPPER 16 BITS

DEC
MOV
8IS
BIS
égTB

aBAR
#BIT4!BITT,aCSR
#1T0,aCSR
#8170 ,aDACSR
ggACSR

;LOAD INITIAL COUNTER VALUE
;ENTER MATRIX MODE
JENABLE THE DEVICE
:GENERATE *'7'' PULSE
:WAIT FOR Z PULSE COMPLETION

MOV
tmMP

@BAR, $BDDAT
$GDDAT , $8DDAT

FRROR
BR
ASL
BNE

10
TST145
$GDDAT
1%

BEQ

3%:

001124

#600,STIMES

MOV

155300

001124

SCOPE

VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER

MOV
TST

$GDDAT ,aBAR

;READ EXPECTED REGISTER VALUE
; COMPARE

::BR IF SAME

:LOWER 16 BiTS OF THE Z COUNTER IN ERROR
1
;CHANGE THE DATA BIT
;BR AND TRY NEXT BIT

;;ttttttttfifit*tttttt**ttt*ttttt*tt*t*i**ttttti*ttttt*ttttttitt*t*

s*TEST 145

VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER

(TESTER ONLY)

;:ktttt*ttttttt**ttttt*tit*tittt*ttt*tfi*tti**fittttt*k*ttitttttttt

000004
012737
005737
001454
012737
012737

024566
024574
024602
024610
024614
024622
024630
024636
024644

012777
012777
013777
005377
012777
012777
052777
052777

004000
000010
001124
155136
177777
000022
000001
000001
155056

017737
023737
001402

155074
001124

024650
024652
024660
024666
024670
024672
024674
024700

105777
100375

—_ ek

TST145:

1%:

2%:

001126
001126

104011

000403
006337
001332

001124

SCOPE

MoV
TST
BEQ
MOV
MOV

#400,8TIMES
WFMODE
TST146
#1,8GDDAT
#1%,8LPERR

MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR

;CLEAR THE DEVICE
;SET TEST DMA FLOP

#81T0,aDACSR
ggACSR

:GENERATE ‘‘2'* PULSE
JWAIT FOR Z PULSE COMPLETION

MoV
DEC
MOV
MOV
8IS

O~ —a—a

[0 e
s B 20 AL A
RO
SN

000001
024566

001160

000400
050110

o0
OO

024534
024536
024544
024550
024552
024560

[
NN

3168
3169
3170
nn
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184

15:05

';Qtttt't"ttifi't!titfi't""tQtti'it'fitfitlt*"'tt'fit.'tt'.t"t.ti

3166

3167

8-AUG-78

3%:

8IS
;gTB
L

:
:LOAD INITIAL COUNTER VALUE
;LOAD LOWER 16 BITS
:ENTER MATRIX MODE
JENABLE THE DEVICE

$GDDAT ,aW(CR
aWw(CR
#-1,aBAR
#BIT4!BITT1,aCSR
#BIT0,aCSR

MOV
CMP
BEQ
ERROR

aWCR, $BDDAT
$GDDAT, 3BDDAT
3%
1

ASL
BNE

$GDDAT
1%

::D0 400 ITERATIONS
:TEST IF TESTER MODE
;:BR IF NOT
JLOAD EXPECTED VALUE
:LOAD LOOP ADDRESS

TST146

;READ EXPECTED REGISTER VALUE
; COMPARE
::;BR IF SAME

*HIGHER 16 BITS OF THE Z COUNTER IN ERROR
b

;CHANGE THE DATA BIT
;BR AND TRY NEXT BIT

NCVIT

CINCCA.PN

DIAGNOSTIC

1146

MACY11 27(654)

8-AUG-78

VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL

2192

3193

J*TEST 146

3194

3195

A R

RN AR AR RN

RN AR R AR

024702

3196
3197
3198
%}38

0264704
024712
024716
024720

3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
%g}g

024726
024734
024742
024750
024756
024764
024772
025000
025004
025006
025014
025022
025024

000004

012737
005737
001443
012737

000400
050110

001160

000001

001124

012777
012777
012777
012777
012777
052777
052777
105777
100375
017737
023737
001401
104010

004000
000010
000000
000000
000422
000001
000001
154722

155022
155014
155002
154776
154762
154754
154726

154742
001124

001126
001126

1%:

2%:

000004
012737
005737
001443
012737

3225
3226
3227
3228
3229

025052
025060
025066
025074
025102

3232

025124

3230
3231

3233

3234
3235
3236
3237
3238

025110
025116
025130

025132
025140
025146
025150

000100
050110

001160

000001

001124

012777
012777
012777
012777
012777

004000
000010
000000
000000
001022

154676
154670
154656
154652
154636

105777

154576

052777
052777
100375

017737
023737
001401
104010

000001
000001

154616
001124

154630
154602

001126
001126

A N AN AN R R R AR

RARAN AR AR AR AR AR AN

SEQ 0083
AN AN

VERIFY THAT CAMERA 01 CHANNEL IS OPERAT]ONAL
AR AN R AR AR RN R R AR R RN

(TESTER ONLY)

RN NRARAAR RN R AR AR RRNAANR

MOV
MOV
MOV
MOV
MOV
8IS
BIS
TSTR
BPI
MOV
CMP
BEQ
ERROR

#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTOMA ,aSFR
JSET TEST DMA FLOP
#0,aWCR
;LOAD UPPER 16 BITS
#0,38AR
;LOAD LOWER 16 BITS
#RIT8!BIT4!BITT,aCSR
:ENTER MATRIX MODE ON CAMERA 01
#1T0,aCSR
JENABLE THE DEVICE
#3170,aDACSR
;GENERATE ''Z'' PULSE
aDACSR
JWAIT FOR Z PULSE COMPLETION
é3
@BAR, $8DDAT
;READ EXPECTED REGISTER VALUE
$GDDAT , $BDDAT
; COMPARE
TST147
;:BR IF SAME
10
;LOWER 16 BITS OF THE Z COUNTER
;IN ERROR WHEN USING CAMERA 01

;«TEST 147
025026
025030
025036
025042
025044

(TESTER ONLY)

#400,8TIMES
WFMODE
TST147
#1,3GDDAT

MOV
TST
BEQ
MOV

3217

3218

R R

TST146: SCOPE

3216

3219
3220
3221
3222
gggz

PAGE

R R AR

A AN R

R RN

R AR

;:D0 400 ITERATIONS
;TEST IF TESTER MODE
;.BR IF NOT
;LOAD EXPECTED VALUE

AR R RN R AR AR RN A NN RN

NR AR AR AARA RN

VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL

AR AR AR RN

R AR R

AN R AR R AR R

AR R NRR R R ANNN KR ANRA RN

(TESTER ONLY)

AN N

TST147:

SCOPE
MOV
TST
BEQ
MOV

#100,8TIMES
WFMODE
TST150
#1,3GDDAT

1%:

MOV
MOV
MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,aW(R
#0,3BAR
#BIT9'BIT4!BITT,aCSR

;CLEAR THE DEVICE
JSET TEST DMA FLOP
;LOAD UPPER 16 BITS
;LOAD LOWER 16 BITS
JENTER MATRIX MODE

TST8

aDACSR

JWAIT FOR Z PULSE COMPLETION

2%:

BIS
BIS
B8PL

MOV
CMP
B8EQ
ERROR

#81T70,a(SR
#81T0,’DACSR
’3

aBAR, $BDDAT
$GDDAT, $BDDAT
TST150
10

;:D0 100 ITERATIONS
;TEST IF TESTER MODE
;:BR IF NOT
;LOAD EXPECTED VALUE

;ENABLE THE DEVICE
;GENERATE '‘7'" PULSE

JREAD EXPECTED REGISTER VALUE
; COMPARE
;:BR IF SAME
;LOWER 16 BITS OF THE Z COUNTER
;IN ERROR WHEN USING CAMERA 10

[on ¥en)

CINCCA

15:05

3239
3240
32641
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261

DIAGNOSTIC
MACY11 27(654) B8-AUG-78
7150
VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL

PAGE

(TESTER ONLY)

SEQ 0084

;"ttQttt"t!fi'tittttt'tttt"titt'ttfitQtttkfi*tttttt'tittt'ttttt'tfi

;*TEST

150

VERIFY

THAT CAMERA 11

CHANNEL

IS OPERATIONAL

(TESTER ONLY)

.'.'tt'tiQttfilii"tt'tttfi*'tttttttittttttttl‘tttttttfi'itttfitttittttt

025152
025154
025162
025166
025170

000004
012737
005737
001443
012737

025176
025204
025212
025220

025234
025242
025250
025254
025256
025264
025272
025274

025226

000100
050110

001160

000001

001124

012777
012777
012777
012777

004000
000010
000000
000000

154552
154544
154532
154526

052777

000001

154504

012777
052777

105777
100375

017737
023737
001401
104010

001422
000001

156452

154472
001126

TST150: SCOPE
MOV
TST
BEQ
MoV

1%:

154512

154456
001126
001126

#100,$TIMES
WFMODE
TST151
#1,8GDDAT

;.DO 100 ITERATIONS
sJTEST IF TESTER MODE
;:BR IF NOT
;LOAD EXPECTED VALUE

MOV
MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,3WCR
#0,aBAR

;CLEAR THE DEVICE
;JSET TEST DMA FLOP
;LOAD UPPER 16 BITS
;LOAD LOWER 16 BITS

BIS

#3170,aCSR

JENABLE THE DEVICE

aDACSR

JWAIT FOR Z PULSE COMPLETION

MOV
2%:

BIS

T1STB

BPL

MOV
cMP
BEQ
ERROR

#B1T9!BIT8!BIT4!BIT1,a(CSR
#B1T0,’DACSR
2%

@BAR, $BDDAT
$GDDAT , $BDDAT
TST151
10

;ENTER MATRIX MODE

;GENERATE "'2'" PULSE

;JREAD EXPECTED REGISTER VALUE
. COMPARE
;:BR IF SAME
JLOWER 16 BITS OF THE Z COUNTER

;IN ERROR WHEN USING CAMERA 11

[ Y]

CINCCA NCVIT
CINCCA.PN

15:05

3262
3263
3264

3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297

e
—

NOSTIC

D
-

—~CO

NCVIT
CINCCA.PTT
CINCCA

MACY11 27(654)

8-AuG-78

DYNAMIC MATRIX MODE ADDRESS

15:05

H
7
PAGE 73

SEQ 0085

::tfiitt!tttlitttfl*fit't'*titttttttttt*tt*fitttfitfititttt'tttttttitifl

J*TEST 151
SR 223

025276
025300

000004

012737

000002

001160

DYNAMIC MATRIX MODE ADDRESS

32232232323232232323222232823222238223
22822222222 2000R0¢%28R2dtd]

tST151: SCOPE

#2,8TIMES
MOV
;.DO 2 ITERATIONS
;CELL INCREMENT OF A FLOATING LOCATION (60000,70000,64000,62000,61000)

JFILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)

;COLLECT DATA OF O AND INCREMENT A TARGET LOCATION
sJVERIFY THAT NO OTHER ADDRESS IS CHANGED
AFTER VERIFYING THE WHOLE BUFFER -~ UPDATE THE OFFSET REGISTER
050114
025662
001110

025306
025314
025322

012737
012737
012737

025330
025334
025340
025344
025346
025350
025352

012700
012701
013702
010120
020002
001375
012777

060000
125252
303352

177770

022534

025360
025366
025374
025402
025406
025414
025422
025430

012777
013777
012777
005077
012777
012777
052777
052777

004000
050114
177777
154346
000004
000024
000002
000001

154370
154354
154350

025436
025442
025444
025452
025454
025456
025460
025462
025464
025472
025500
025502
025504
025510
025514
025516
025522
025526

012700
005001
032777
001014
005301
001372
005300
001370
017737
012737
104002
000470
012700
023700
001415
010037
011037
012737
023737
001417

000004

025534
025542
025544
025546

104033
000446

060000
020000

025330

154274

154256
060224

001126
001124

125252

001124

001124
001126

#81713,1008

:LOAD FORCE BIT

MOV
MOV
MOV
CLR
MOV

#CLRALL ,@SFR
CURENT
, a0F F
#-1,aWCR
aBAR
#TSTCON,aSFR

JINIT THE DEVICE
;LOAD OFFSET TO TARGET

MOV
CLR
BIT
BNE
DEC
BNE
DEC
BNE
MOV

#4 RO
;PRIME THE DELAY
R1
#BIT14'BIT1.,aCSR
sTEST FOR CELL OR Z OVERFLOW
R IS SET
5%
EITHE
;;BR IF
AY
R1
EL
sD
4%
RO
sDELAY
4%

MOV
BIS
BIS

48:

MOV

5%
6$:

060000
050114

MOV

MOV
#2%. SLPERR
:LOAD RETURN ADDRESS
:PRIME THE BUFFER WITH A 125252 PATTERN
;LOAD POINTER TO BUFFER
28:
MOV
#BUFO0,RO
;LOAD VALUE
MOV
#125252 .R1
MOV
ADNOKT
. R2
*LOAD BUFFER END ADDRESS
R1, (RO} +
MOV
3%:
;LOAD BUFFER WITH DATA
;JTEST FOR END
CMP
RO,R2
BNE
38
MOV
#-10,aCURENT
;PRIME THE TARGET LOCATION

154342
154324
154326
154310

060000

001122
001126

AND INCREMENT ANOTHER LOCATION
;PRIME THE CURRENT TARGET LOC.
MOV
#BUFQ, CURENT

ERROR
BR
MOV
cMP
BEQ
MOV
MOV

MOV
CMP
BEQ
ERROR
BR

#24 ,3CSR
#TESTZ,aSFR
#8170,aCSR

;JPRIME

THE HIGH 16 BIT Z COUNTER

;CLEAR LOW 16 BIT COUNTER
cENABLE TEST CONNECTOR
;LOAD MATRIX WORD MODE
;JSET TEST Z FLOP
;ENABLE THE NCVI

aCSR, $BDDAT

JREAD BAD

STATUS

RO, $8DADR
(RO)
., SBDDAT

:GET BAD ADDRESS FOR TYPE-QUT
;GET BAD DATA
;LOAD EXPECTED DATA
; COMPARE

#BIT14!BIT134224 ,8GDDAT ;LCAD EXPECTED STATUS
2
;DYNAMIT MATRIX MODE STATUS ERROR
TST152
#BUFO,RO
;GET BUFFER POINER
CURENT RO
:TEST IF TARGET ADDRESS
7¢
;:BR IF YES
#125252,$GDDAT
, $BDDAT
$GDDAT
108
33
TST152

::BR IF

SAME

CHANGED AN INCORRECT TARGET LOCATION

CINCCA NCVIT
CINCCA.P11

3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
2347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369

025550
025556
025564
025572
025600

013737
017737
012737
023737

050114
022332
003407
001124

025602
025604
025610

005720
023700
001337

003352

025612
025616
025620
025626
025630
025634
025642
025644
025652

005737
001422
032777

025660
025662

15:05

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
1151
DYNAMIC MATRIX MODE ADDRESS

001400

001016
006237
022737
001410
012737
053737
000623
020000

001122
001126
001124
001126

7%:

001202
004000

153312

025662
000002

025662

060000
025662

050114
050114

CURENT,$BDADR
8CUREN",$BDDAT
#3407 ,$GDDAT
$GDDAT,$BDDAT

;LOAD EXPECTED ADDRESS
L OAD ACTUAL DATA
:LOAD EXPECTED DATA
- COMPARE

TST
CMP
BNE

(RO)+
ADNOK T ,RO
6%

;BUMP THE POINTER INTO THE BUFFER
STEST IF FINISHED THE BUFFER
:BR AND RETEST THE REST OF THE BUFFER

TST

$PASS

;TEST IF

BIT

#5W11,aSWR

BEQ

108

TST152

:;BR IF SAME

FIRST PASS

::BR IF YES

STEST INHIBIT INTER.

1S7152

::BR IF SET

cMP

#2.100%

STEST IF FINISHED

MOV
BIS
BR

#BUFO,CURENT
1008 CURENT
23

BNE

ASR

BEQ

1008:

SEQ 0086

MOV
MOV
MOV
CMP

BEQ

108:

7
I
PAGE 74

BIT13

1008

T1S7152

:CHANGE THE FORCED ADDR. BIT

::BR IF FINISHED

:MAKE UP NEW ADDRESS
:

""i*t**tt*fit*'*t**..ttttit'Qt**"t'*fi**ktti*tfi'*tlt*t*tt*t*'kt'ti'

SNTEST 152

DYNAMIC LIST MODE ADDRESS

.':ttttttfittt*itt**ttttttttttttt***'l**tktt*fitt*fifitiittttttttttttt

025664
025666

000004

012737

000002

001160

T87152:

SCOPE

MOV

#2,$TIMES

;:DO 2 ITERATIONS

;FILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)

;DO A 1 WORD TRANSFER TO A TAGET LOCATION
JVERIFY THAT NO OTHER LOCATION IN THE BUFFER IS CHANGED
025674
025702
025710

012737
012737
012737

060000
020000
025716

025716
025722
025726
025732
025734
025736

012700
012701
013702
010120
020002
001375

060000

025740
025746
025754
025762
025770
025776
026004

012777
012777
013777
012777
052777
052777
042777

004000

026012
026016
026020
026026
026030

012700
005001
032777
001014
005301

000004

050114

026242

001110

125252

003352

177777

050114
000004
000001
000002
000002

060000

JAFTER VERIFYING BUMP THE BUS ADDRESS AND DO SUB-TEST AGAIN
MOV
#8UFO,CURENT
:PRIME THE CURRENT TARGET LOC.

MOV

#31T13.1008

MOV
#2% . SLPERR
:PRIME THE BUFFER WITH A 125252
2%
MOV
#8UF0, RO
MOV
#125252 .R1
MOV
ADNOKT ,R2
3%
MOV
R1, (RO)+
CMP
RO .R2
3
BNE

*LOAD FORCE BIT

*LOAD RETURN ADDRESS
PATTERN

:LOAD
*LOAD
*LOAD
“LOAD
“TEST

POINTER TO BUFFER
VALUE
BUFFER END ADDRESS
BUFFER WITH DATA
FOR END

154010
153776

MOV
MOV

#CLRALL ,@SFR
#-1,aWCR

;INIT THE DEVICE
*PRIME THE WORD COUNT

153766

MOV

#TSTCON,aSFR

-ENABLE MAINT. MODE

BIS
BIC

ATESTZ,aSFR
#TESTZ.aSFR

153772

MOV

153750

BIS

153752
153744

153720

4$:

CURENT , aUAR

#B1T0,aCSR

*LOAD TARGET LOCATION POINTER
*ENABLE THE NCV11

CENABLE '‘TEST Z'' PULSES
*DISABLE "‘TEST Z'* PULSES

:PRIME THE DELAY

?og

x?.no

BIT
BNE
DEC

#BIT14!BIT13,aCSR
;TEST FOR CELL OR Z OVERFLOW
2:BR IF EITHER IS SET
5%
R1
;DELAY

CINCCA NCVIT
CZNCCA P11

3370
3371
3372
3373
3374
3375
3376
3377

BNE

026032
026034
026036
026040
026046
026054
026056
026060
026064
026070
026072
026076
026102
026110
026116
026120
026122
026124
026132
026140
026146
026154
026156
026160
026162
026164
026170

001372
005300
001370
017737
012737

153702
060224

000472
012700
023700

060000
050114

023700
001335

003352

026172

005737
001422
032777
001016
006237
022737
001410
012737
053737
000626
020000

001202

026176

026200
026206
026210
026214
026222
026224
026232
026240
026242

15:05

MACYT1 27(654)
8~AUG-78
DIAGNOSTIC
1152
C LIST MODE ADDRESS
DYNAMI

104036

001415
010037
011037
012737
023737
001421

001122
001126

5%:
6%:

125252
001124

001124
001126

050114
021756
003407
001124

001122
001126
001124
001126

104037
000431
005720

004000

7%:

10%:

026242
000002

026242

060000
026242

050114
050114

“LiT14.81713+4224 ,3GDDAT ;LOAD EXPECTED STATUS
3
JDYNAMIC LIST MODE STATUS ERROR
TST153
#8UF0,RO
;GET BUFFER POINER
RO
CURENT
;TEST IF TARGET ADDRESS
7$
;:;BR IF YES

CMP
BEQ
ERROR
BR

$GDDAT, $BDDAT
10%
21
TST153

MOV
MOV
MOV
cMp

BEQ
ERROR
BR
TST

aCSR, $BDDAT

JREAD BAD STATUS

RO, $8DADR
(RO)
, $BDDAT
4125252 ,8GDDAT

;GET BAD ADDRESS FOR TYPE-QUT
:GET BAD DATA
;LOAD EXPECTED DATA
; COMPARE
::BR IF SAME
:CHANGED AN INCORRECT TARGET LOCATION

CURENT ,$BDADR
, $8DDAT
aCURENT

#3407, 8GDDAT
T
, $BDDAT
$GDDA
10%
37

JLOAD EXPECTED ADDRESS
J;GET ACTUAL DATA
;LOAD EXPECTED DATA
; COMPARE
;;BR IF SAME
;LIST MODE DATA ERROR

(RO)
+

'BUMP THE POINTER INTO THE BUFFER

TST153

CMP
BNE

ADNOKT ,RO
6%

TST

$PASS

BIT

#SW11,aSWR

ASR
cMP

1008
#2,1008

MOV
BIS

O, CURENT
#BUF
;20$.CURENT

BNE

BEQ

100%:

;DELAY

ERROR
BR
MOV
CMP
BEQ

BEQ

152732

SEQ 0087

RO
43

MOV
MOV
MOV

104021

000450
013737
017737
012737
023737
001402

PAGE 75

DEC
BNE

MOV
MOV

001126
001124

BIT13

TST153
TST153

TST153

“TEST IF FINISHED THE BUFFER
"BR AND RETEST THE REST OF THE BUFFER
;TEST

FIRST PASS

::BR IF FIRST PASS
JTEST INHIBIT INTER.
;:BR IF SET
:CHANGE THE FORCE ADDRESS
JTEST IF END
;:8BR IF FINISHED
;MAKE NEW ADDRESS
4

NoJo RNTs SV, W YV 1,6 P}

3409
3410

R
N

R
pS
RRERY
I
gl
&
K283
3 S o N
I
bN

3420

3453

MACY11 27(654)
8-AUG-78 15:05 PAGE 76
LIST MODE TRANSFER - MAXIMUM BUFFER LENGTH IN LOWER 28K

CINCCA NCVIT
CZNCCA. P11

2223222223323 2332233 2222232222232 23 22222

'TEST 153
AR

026244
026246
026254
026260
026264
026266

006200

026270
026274
026300
026304
026306
026310

012703
012701
013702
010123
020302
001375

026312
026320
026324
026332
026340
026346
026354
026360
026366
026370
026372
026374
026376
026400
026406
026414
026416
026420
026424
026430
026434
026442
026450
026452
026454
026456
026460
026464

012777

000040
003352
060000

005200
001370
017737
012737

060200

104036

000423
012700
010037
011037
012737
023737
001402

153342

060000
001122
001126
003407
001124

003352

R0ttt dal

DYNAMIC LIST MODE TRANSFER - MAXIMUM BUFFER LENGTH IN LOWER 28K

AR RRAR AR NRARR A AR

#40,$TIMES
ADNOKT ,RO

#8UF0,RO
RO

R AR AR R RNRNNRNRA AR AR AR R

RN RAAANAR

:.DO 40 ITERATIONS

;GET LAST ADDRESS
;DETERMINE THE WORD COUNT VALUE

;PRIME THE BUFFER WITH A 125252 PATTERN

2%:

3%:

153436
153422
153416
153400
153402
153360

MOV
MoV

#BUFO.R3
#125252 R

;LOAD POINTER TO BUFFER
:LOAD VALUE

MOV
CMP
BNE

R1,(R3)+
R3,R2
3$

;LOAD BUFFER WITH DATA
;TEST FOR END

MOV

ADNOKT ,R2

;NOW COLLET THE LIST MODE DATA
MOV
#CLRALL ,aSFR

4%:

001126
001124

5$:
6%:

10%:

;LOAD BUFFER END ADDRESS

JINIT THE DEVICE

MOV
MoV
MOV

RO,aWCR
#BUF0,3BAR
#TSTCON,aSFR

BIS
MOV
BIT
BNE
DEC
BNE
DEC
BNE
MOV
MOV
ggROR

HTESTZ ,aSFR
JENABLE MAINT. Z
#4 RO
:PRIME THE DELAY
#31T14 BIT13,aCSR
;TEST FOR CELL OR Z OVERFLOW
5%
:;BR IF EITHER IS SET
:DELAY
R1
4%
;DELAY
RO
4%
aCSR, $BDDAT
JREAD BAD STATUS
#81T146!81713+200,8GDDAT ;LOAD EXPECTED STATUS
%gT1S4
sDYNAMIC LIST MODE STATUS ERROR = NO WORD COUNT OVERFLOW

BIS

104037

000404
005720
023700
001357

SCOPE
MOV
MOV

suB
NEG

060000
125252
003352

012777
012777
052777
052777
012700
032777
001014
005301
001372

TST153:

ASR

004000
153426
060000
000004
000001
000002
000004
060000

010077

001160

22200

SEQ 0088

#B1T0,aCSR

JPRIME THE WORD COUNT
;LOAD TARGET LOCATION POINTER
JENABLE MAINT. MODE

JENABLE THE NCVIM

MOV
MOV

#8UFO,RO
RO, $BDADR

;GET BUFFER POINER
;GET BAD ADDRESS FOR TYPE-~OUT

MoV
CMP
BEQ
ERROR
BR
TST
CMP

#3407 ,$GDDAT
$GDDAT , $BDDAT
10%
37
TST154
(RO) +
ADNOKT ,RO

;LOAD EXPECTED DATA
COMPARE
; ;BR IF SAME
LIST MODE DATA ERROR

MOV

BNE

(RO) ,$BDDAT

;GET BAD DATA

,BUMP THE POINTER INTO THE BUFFER
;TEST IF FINISHED THE BUFFER

;BR AND RETEST THE REST OF

THE BUFFER

CINCCA NCVIT
CINCCA P

PAGE 77
15:05
8-AUG-78
MACY11 27(654)
DIAGNOSTIC
4
T1¢
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

SEQ 0089

RS2 2223323223232232222322222222
2322323220222 20288200t stRtatdldl

S*TEST 154

ONE M.TRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

SR 2222223232323 322232232233032303222223
822282 828222
2R dRRdRRRd ]

026466
026470
026476
026502

000004
012737
005737

026504
026512
026520
026524
026530
026536
026542
026550
026554
026556
026560
026562
026564
026566
026570
026572
026574
026576
026602
026606
026610
026616
026622
026630
026636
026644
026652
026660
026666

026674
026702
026706
026714
026722
026724
026726
026732
026734
026742
026744
026752
026760

000002
036120

001160

012737
013737
012700
012710
052737
012710
042737
013701
005002
006301
006301
006301
006301
006301
006102
006301
006102
010237
010137
060201

000600
041772
060000
125252
001400
000370
001400
041772

0461772

012777
010177
012777
012777
052777
052777
042777
012737
052777
052737
011037
042737
023737
001401
104035
005737
001413
032777
001007
062737
023737
101254

004000
153126
000022
000014
000001
000002
000002
000371
010000
000001
001126
000001
001124

100127

T$T154: SCOPE
MOV
TST

#2,8TIMES
$KT11

2.D0 2 ITERATIONS

JTEST

IF KT=11

INSTALLED

TST155
8PL
. .BR IF NONE
;DO A BYTE MATRIX MODE TRANSFER TO A 1 BYTE LOCATION IN EACH 4K EXTENDED
172346

177572

1%:

MEMORY BANK

MOV
MOV
MoV
MOV
BIS
MOV
BIC
MoV
CLR

ASL
ASL
ASL
ASL
ASL
ROL
ASL
ROL
MOV
MOV
ADD

041756
001122

153140
153116
153120
153102
153104
153076
001124
153062
177572
177572

001126

001202

004000

152176

000200
036402

041772
061772

#600,0UT
OUT,a#K IPAR3
#BUFQ,RO
#125252, (RO)
#1400,34SRO
#4370, (RO)
#1400,a#SRO
OUT,R1
R2
R1
R1
R1
R1
R1
R2
R1
R2
R2,NARROW
R1,$8DADR
RZ.R1

sLOAD INITIAL BANK VALUE

;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>

;LOAD BUFFER POINTER
;PRIME BAD TARGET LOC. IF EXT ADD FAILS
JENABLE MAINT. MODE KT-11
;LOAD TARGET LOCATION DATA VALUE
;DISABLE MAINT. MODE KT-11
;GET BANK VALUE
;CLEAR EXT. ADD. TEMPORARY
sMOVE LEFT

;MOVE LEFT

;MOVE LEFT
sMOVE LEFT

;SAVE EA BITS

;SAVE EA BITS
;SAVE EA BITS FOR TYPEOUT
;SAVE ADDRESS BITS FOR TYPEQUT
;MAKE COMPLETE ADDRESS

;JNOW GET READY TO DO THE TRANSFER
MOV
#CLRALL ,aSFR
JINIT THE NCVIM
R1,90FF
MOV
;LOAD COMBINED BUFFER ADDRESS
MOV
#B1T4!BIT1,aCSR ;ENABLE THE NCV11
MOV
#TSTDMA!TSTCON,aSFR
cENABLE MAINT NCV11 MODE
BIS
#B81T70,aCSR
SJENABLE THE NCV11
H#TESTZ ,aSFR
81S
JENABLE "'TEST Z'' PULSES
#TESTZ,aSFR
BIC
;DISABLE '‘TEST Z'' PULSES
MOV
#371,3GDDAT
;LOAD EXPECTED DATA
#BIT12 ,aSFR
BIS
JENABLE 1 BYTE TRANSFER
BIS
#B1T0,a#SRO
JENABLE KT-11
MOV
(RO) ,$BDDAT
;GET ACTUAL DATA
8I1C
#B1T0,a#SRO
;DISABLE KT-11
, $8DDAT
$GDDAT
CMP
; COMPARE DATA
BEQ
2%
:;BR IF SAME
35
ERROR
;DATA TRANSFER ERROR TO EXTENDED MEMORY
2%:
TST
$PASS
sTEST PASS COUNTER
TST155
BEQ
;.BR _IF FIRST PASS
BIT
#SW11,aSWR
sTEST IF INHIBIT INTER.
TST155
BNE
;;BR IF SET
#200,0uUT
ADD
;UPDATE BANK VALUE
CMP

BHI

$LSTBK,0UT

;TEST

IF DONE

;BR IF NOT

CINCCA NCVIT
CINCCA P11

3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529

3530
3531
3532
3533
3534
3535
3536
3537

3538
3539
3540
3541
3542

3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553

DIAGNOSTIC
1155

MACY11 27(654)

B-AUG-78

15:05

PAGE 78

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY
:.'tttt*ttfititttt*t**ttt*tttttttttttttttttttttttttttt*tt*tttt*ttit

J*TEST 155
I

026762
026764
026772
026776

000004

012737
005737

000002
036120

001160

027000
027006
027014
027020
027024
027032
027036
027044
027050
027052
027054
027056
027060
027062
027064
027066
027070

012737
013737
012700
012710
052737

000600
041772
060000
052525
001400

041772
172346

027072
027100
027104
027112
027116
027124
027132
027140
027146
027152
027156
027164
027172
027200
027204
027212
027220
027222
027224
027230
027232
027240
027242
027250

012777
010277
012777
010177
012777
052777
052777
042777
010137
010237
052777
012737
052737

027256

100130

012710
042737
013701
005002
006301
006301
006301
006301
006301
006102
006301
006102

011037

042737
023737
001401
104035
005737
001413
032777
001007
062737
023737
101253

125252
001400
041772

004000
152644
177777
152636
000014
000001
000002
000002
001122
041756
010000
003407
000001
001126
000001
001124

177572
177572

152656

TST155: SCOPE

MOV
TST

MOV
CLR
ASL
ASL
ASL
ASL
ASL
ROL
ASL
ROL

MOV
MoV
MOV
MOV
MoV
BIS
8IS
BIC
MOV
MOV
BIS
MoV
BIS

152572
001124
177572

MoV

177572
001126
2%:
151700

000200
036402

041772
041772

OUT ,R1
R2
R1
R1
R1
R1
R1
R2
R1
R2

;.D0 2 ITERATIONS
JTEST IF KT=11 INSTALLED

. ;BR IF NONE
1 WORD BUFFER IN EACH 4K EXTENDED MEMORY BANK

;LOAD INITIAL BANK VALUE <60000>
;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
;LOAD BUFFER POINTER
;LOAD BAD TARGET LOC. IF EXT ADD FAILS
JENABLE MAINT. MODE KT-11
JPRESET THE TARGET LOCATION
;DISABLE MAINT. MODE KT-11
2GET BANK VALUE
;CLEAR EXT. ADD TEMPORARY

;SAVE EXT. ADDRESS BITS
;SAVE EXT. ADDRESS BITS

;JNOW GET READY TO DO THE TRANSFER

152632
152614
152616
152610

004000

#2,8TIMES
$KT11

BPL
TST156
;DO A 1 WORD MODE TRANSFER TO A
#600,0UT
MOV
18:
MOV
OUT ,a#K]PAR3
#8UF0,RO
MOV
MOV
#52525, (RO)
#1400,a#SRO
BIS
MOV
#125252, (RO)
BIC
#1400,a#SRO

152640

001202

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

RL
T P
A L

BIC
CMP
BEQ
ERROR
TST
BEQ
BIT
BNE
ADD
CMP
BHI

#CLRALL ,aSFR
JINIT THE NCV11
R2,a0FF
;LOAD THE EXTENDED ADDRESS BITS
#-1,aWCR
;LOAD WORD COUNT
R1,aBAR
.LOAD BUS ADDRESS
#TS'OMA!TSTCON,aSFR
;ENABLE MAINT NCV11 MODE
#8]:,aCSR
JENABLE THE NCV11
HTESTZ,aSFR
JENABLE '‘TEST 2'' PULSES
HTESTZ ,aSFR
:DISABLE °'TEST Z'' PULSES
R1,$8DADR
;SAVE TARGET ADDRESS
R2,NARROW
;SAVE EA BITS FOR ERROR TYPEOUT
#BIT12,aSFR
JENABLE 1 BYTE TRANSFER
#3407 ,8GDDAT
;LOAD EXPECTED DATA
#8170,3#SRO
;ENABLE KT-11
(RO) ,$BDDAT
#8170,3#SR0
$GDDAT ,$BDDAT
2%
35
$PASS
TST156
#SW11,aSWR
TST156
#200,0UT
$LSTBK,0UT
1%

JGET ACTUAL DATA

;DISABLE KT-11
; COMPARE DATA
;.BR_IF SAME
;LIST MODE DATA TRANSFER ERROR TO EXTENDED MEMORY
sTEST PASS COUNTER
;.BR _IF FIRST PASS
;TEST INHIBIT INTER.
;;BR IF SET
;UPDATE BANK VALUE
STEST IF DONE
;BR IF NOT

SEQ 0090

€z
z

CINCCA NCV11
CINCCA P11

3559
3560
3561

3562
3563
3564
3565
3566
3567
3568
3569
3570

3571
3572
3573
3574
3575
3576
3577
3578
3579
3580

MACY11 27(654)
B8-AUG-78
DIAGNOSTIC
7156
VERIFY BIT 15 MATRIX ADDER INPUT

15:05

PAGE 79

SEQ 0091

':tfi.tttttfii'tttttfiittt'tttitttlittQtt.tfil'tttt'tt.'i.'...t.t'...

TRTEST 156
R

027260
027262

000004
012737

000100

001160

L2 I 2

TST156:

SCOPE
MOV

;ADM QUTPUT

JOFFSET

036402

G03140

012737
012700
012710
052737
005010
042737

002676
060056
125252
001400

172346

001400

177572

012777
012777
012777
012777
052777
052777
042777
000240
000240
052777
000240
000240
000240
012737
012737
052737
011037
042737
023737
001401

004000

027270
027276
027300
027306
027312
027316
027324
027326

023727

027334
027342
027350
027356

027472

103476

104020

177572

CMP
BLO
MOV
MOV
MOV

BIS
CLR
BIC

#100,8TIMES

127657

;:D0 100 ITERATIONS

140000

267657

$LSTBK #3140
TST157
#2676 ,a#K1PAR3
#B8UF0+56
RO
#125252, (RO)
#14600,a#SRO
(RO)
#1400,a#SRO

JTEST IF >52K 1S AVAILABLE

;;BR IF NO MORE MEMORY

;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
;LOAD BUFFER POINTER
;LOAD BAD TARGET LOC. IF EXT ADD FAILS
sJENABLE MAINT. MODE KT-11
;LOAD TARGET LOCATION DATA VALUE
:DISABLE MAINT. MODE KT-11

;NOW GET READY TO DO THE TRANSFER
MOV
MOV
MOV
MOV

1460000

002036
000014
000001
000002
000002
010000

152336

000001
000400
000001
001126
000001

041756
001124
177572

001124

:TARGET

VERIFY BIT 15 MATRIX ADDER INPUT

Y222 2322322382233 2223333222232 22 3222222228222 22 2222}

177572
001126

#CLRALL ,aSFR
#140000, a0F F

JINIT THE NCVIM

;LOAD COMBINED BUFFER ADDRESS

#2036,aCSR
sENABLE
#TSTDMA!TSTCON,aSFR
JENABLE
#81T0,aCSR
H#TESTZ ,aSFR
HTESTZ,aSFR

THE NCV11
;ENABLE MAINT NCV11 MODE
THE NCV11
JENABLE "‘TEST Z'' PULSES
;DISABLE 'TEST 2'' PULSES

#81T12,aSFR

JENABLE

MOV
MOV

#1 ,NARROW
#400,$GDDAT

;SAVE EA BITS FOR ERROR TYPEOUT
JLOAD EXPECTED DATA

MOV

(RO) ,$8DDAT

:SAVE ACTUAL DATA

$GDDAT,$BDDAT
TST157

;COMPARE DATA
;.BR IF SAME

BIS
BIS
BIC
NOP
NOP
BIS
NOP
NOP
NOP
BIS

8IC
CMP
BEQ
ERROR

#B1T0,a#SRO
#B1T0,a#SRO

BYTE

TRANSFER

;ENABLE KT-11

;DISABLE KT="1

;BIT 15 INPUT TO MATRIX MODE ADDER FAILED

€2
2

CINCCA NCVIT
CINCCA.PN

B 8
?%égNOSTIC
MACY11 27(654)
8-AUG-78 15:05 PAGE 80
VERIFY HIGH BYTE OPERATION OF THE '‘TEST X'’

7598

3599

J*TEST 157

3600

3601

3602

3603
3604

3605
3606

3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624

027474

027476

027504
027512
027520
027522
027530
027536
027544
027552
027560
027566
027572
027600
027606
027614
027622
027630
027632

000004

072737

012777
023727
103445
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
Q23737
001401
104034

000040

001160

AN AR

R AN R R

TST157:

SCOPE

sTEST X
;OFFSET

MOV

004000
036402

152244
001140

100000

152220

;ADM QUTPUT
s TARGET
MoV
CMP
BLO
MoV

152170

BIC

000034
002036
000001
000002

152220
152202
152174
152176

100256
010000
100256
000400
151302
001124

152156
001122
001124
001126
001126

000002

MOV
MOV
BIS
BIS
CLR
BIS
MOV
MOV
MOV
cMP
BEQ
ERROR

SEQ 0092

R AR AR AR AR R AR RN

R RN AN AR RN AR R RNNRR R RAR

VERIFY HIGH BYTE OPERATION OF THE ‘‘TEST X'’

AR R AR RN NN AR RN AR AR AR RO R R AR RN NN ANRRRARAA AR R

#640,$TIMES
=
1
=100000

=127657
=100257

;:D0 40 ITERATIONS

#CLRALL ,3SFR
;CLEAR THE DEVICE
$LSTBK #1140
;TEST IF LEAST 20K
TST160
:.BR IF NOT
#100000,30F F
JSET BIT 15 OF OFFSET
#TSTDMA!TSTCON!BIT4 ,aSFR
;SET TEST DMA, CONTROL AND TESTX
#2036,aCSR
;ENABLE THE NCV11
#8170,aCSR
;ENABLE THE NCV11
HTESTZ,aSFR
JENABLE "TEST 2'' PULSES
HTESTZ ,aSFR
;DISABLE "'TEST Z'' PULSES
MBUF 0+20256
;CLEAR THE TARGET LOC.
#BIT12,aSFR
;ALLOW 1 DMA TRANSFER
#BUF 0+20256 , $BDADR
;LOAD EXPECTED ADDRESSES VALUE
#400,$GDDAT
;LOAD EXPECTED VALUE READ
@$BDADR,$BDDAT
;READ A(TUAL DATA
$GDDAT,$BDDAT ; COMPARE
TST160
;:BR IF SAME
34
;MATRIX ADDER INPUT OF ADM15 AND TESTX L
;FAILED TO BE INHIBITED

NCV1T

CZNCCA
CZNCCA P11

15:05
PAGE 81
8-AUG~78
MACY11 27(654)
DIAGNCSTIC
71160
VERIFY BI1T 16 INPUT TO THE MATRIX MODE ADDER

SEQ 0093

':ttti*ttfiitt*fitttt*ttttttt*it*lttittt'ttttttttttitttttttt**tt*tt

S*TEST 160

VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

(EXZT2T2T222233322233223223222232223223
3232238233223 32222223t ataRdR sl

027634
027636

000004
012737

000100

001160

027644
027652
027654
027662

023727

036402

005140

005010
042737

004635
060026
125252
001400

172346

027700
027702

012737
012700
012710
052737

001400

177572

027710
027716
027724
027732
027740
027746
027754
027762
027764
027766
027774
027776
030000
030002
030010
030016
030024
030030
030036
030042
030050
030052

103500

012777
012777
012777
012777
052777
052777
042777

000240
000240
052777
000240
000240
000240
012737
012737
052737
111037
42737
105037
023737
001401
104020

177572

TST160:

SCOPE

MoV

;ADM QUTPUT

JOFFSET
:TARGET

CMP
BLO
MOV
MOV
MOV

BIS
(LR
BIC

#100,$TIMES

2:D0 100 ITERATIONS

=
$LSTBK
, #5140

;TEST IF ENOUGH MEMORY >84K

253527
210000
463527

TST161
#4635 ,a#KIPAR3
#BUF0+26,R0
#125252, (RO)
#1400,3#SR0O
(RD)
#16400,a#SR0O

;;BR IF NOT

;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>

;LOAD BUFFER POINTER
;LOAD BAD TARGET LOC.

JENABLE MAINT. MODE KT-11
JPRESET THE

TARGET LOCATION

;DISABLE MAINT. MODE KT-11

sNOW GET READY TO DO THE TRANSFER
#CLRALL ,aSFR
MOV
JINIT THE NCV11
#10001,30FF
MOV
.LOAD THE EXTENDED ADDRESS BITS
#TSTDMA!TSTCON,aSFR
MOV
JENABLE MAINT NCV11 MODE
#4036,aCSR
MOV
;LOAD MATRIX MODE AND ZB ENABLE
#B1T0,aCSR
BIS
JENABLE THE NCVTI
HTESTZ ,aSFR
BIS
JENABLE "TEST Z'' PULSES
HTESTZ
,aSFR
BIC
:DISABLE "‘TEST Z'' PULSES

004000
010001
000014
004036
000001
000002
000002
010000

151762

000002
000400
000001
001126
000001
001126
001124

041756
001124
177572
177572
001126

NOP
NOP

BIS
NOP
NOP
NOP
MOV
MOV

BIS

mMovs

8IC
CLRB
CMP
BEQ
ERROR

#BIT12,aSFR

JENABLE 1 BYTE TRANSFER

#2 ,NARROW
#400,$GDDAT

:SAVE EA BITS FOR ERROR TYPEOUT

;LOAD EXPECTED DATA

$8DDAT
, $BDDAT
$GDDAT
TST161

;:BR IF SAME

#B1T0,a#SRO
(RO) ,$BDDAT
#B170,3#SRO

;ENABLE KT-11
:SAVE ACTUAL DATA
;DISABLE KT-11
;MASK OFF LOW BYTE
;COMPARE DATA

JBIT 16 INPUT TO MATRIX MODE ADDER FAILED

CINCCA NCVIY
CINCCA.PI

3665
3666
3667
3668
3669
3670
3671

3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711

15:05

8-AuUG-78
IF DIFLIN IS TO BE RUN (F)

MACY1T 27(654)

DIAGNOSTIC
1161
DETERMINE

D 8
PAGE 82

SEQ 0094

';ttliitttfi'tttt"fifitt""'ififit'fitt‘tttii"t*iitttit'tt*fittttttti

TRTEST 161
B

030054
030056
030064
030070
030072

000004
012737
005737
001402
000137

000001
050106

001160

DETERMINE IF DIFLIN IS TO BE RUN (F)

2222223223323 3223 232323223222 22222223 2222222

T8T161:

SCOPE
MOV
TST

BEQ

043712

.SBTTL

JMP

#1,$TIMES
RUNDIF

$EOP
DIFLIN

END OF PASS ROUTINE

AR AR

AR RN

RR00iitRtRts

it ld]

;.00 1 ITERATION
JTEST IF DIFLIN IS TO BE RUN
;:BR IF NOT TO BE RUN
;JUMP AND RUN DIFLIN

TR RN AR AR AN

RN R AR AR AR

AR AR AN

AR RN R AR A

;*INCREMENT THE PASS NUMBER ($PASS)
:*INDICATE END=-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM

;*TYPE "END PASS AXXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

;«IF THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO LOGIC
030076
030076
030100
030104
030110
030114

030122
030124
030126
030130
030132
030134
030136
030142
030146
030150
030154
030160
030162
030164
030166
030170
030172
030174
030174
030176
030200
030203
030210
030216

000004
005037
005037
005237
042737
005327
000001
003022
012737
000001
030124
104401

013746
104405
104401

013700
001405
00005
004710
000240
000240
000240
000137
003356
377
015
050040
000043

$EOP:

001102
001160
001202
100000

001202

CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT

$ENDCT:

030203
001202
030200
000042

SCOPE
CLR

$GET42:

MOV

. WORD
$EOPCT

TYPE
MOV
TYPDS
TYPE
MOV

051501

000

042116
020123

$DOAGN
%PC)+,&(PC)*

::YES
;sRESTORE COUNTER

. SENDMG
(SP)
.~SS
$PA

::TYPE "END PASS #'°

. SENULL

a#él RO

$DOAGN

$SENDAD: JSR
NOP
NOP

PC. (RO)

$DOAGN:

377

;. ZERO THE TEST NUMBER
;;ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER

BEQ

RESET

042412

$TSTNM
$TIMES
$PASS
#100000, $PASS
§PC)*

$RTINAD:
:
$ENULL

SENDMG:

.ASCIZ

;:SAVE $PASS FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN
::TYPE A NULL CHARACTER
::GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR
::CLEAR THE WORLD
;:;G0O TO MONITOR
; :SAVE ROOM
. 2FOR

s cACTNM

NOP

JMP
.WORD
.BYTE

. .LOOP?

AP+
LOGIC
-1,-1,0

; sRETURN

2 sNULL CHARACTER STRING

<155<12>/END PASS #/

CINCCA

NCVIY

CINCCA.P11

DIAGNOSTIC

MACY11 27(654)

ERROR ASCI1 MESSAGES

;;g
3714

3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
37640
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765

030220

030226
030234
030242
030250
030256
030260
030266
030274
030302
030310
030316
03032¢
030332
030340
030346
030354
030362
030370
030372
030400
030406
030414
030422
030430
030432
030440
030446
030454
030462
030470
030473
0305N0
030506
030514
030522
030527
030534
030542
030550
030556
030564
030572
030573
030600
030606
030614
030622
030630
030636
030640
030646

036115

041516
052502
051104
044524
000124
034115
047503
026504
051525
051511
051105
034115
(50123
0201146
044524
043505
020122
000122
034115
047527
052517
043505
020122
000122
034115
052502
051104
042522
051105
051117
115
047411
020124
052123
051122
115
042011
042522
051105
041505
042440
000
115
046455
046011
020066
020132
020124
000122
034115
034115

8-AUG-78

15:05

PAGE 83

SEC 0095

_SBTTL

ERROR ASCII MESSAGES

030526
020123
051505
042515

004466

020061
042101
020123
052517

EM1:

.ASCIZ

/MB026

NCV11 BUS ADDRESS TIMEOUT/

031060
046515
052123
051040
042524
047522
031060
041505
052506
047117
051511

004466
047107
052101
043505
020122
000122
004466
040511
041516
051040
042524

EMZ:

LASCIZ

/MB026

COMMAND-STATUS REGISTER ERROR/

EM3:

LASCIZ

/MB026

SPECIAL FUNCTION REGISTER ERROR/

031060
042122
052116
051511
051105

004466
041440
051040
042524
047522

EMS:

LASCIZ

/M8026

WORD COUNT REGISTER ERROR/

031060
020123
051505
044507
042440
000
030070
043106
042522
051105
051117
030070
040525
044507
051440
044524
051122

004466
042101
020123
052123
051122

EMS:

LASCIZ

/MB0O26

BUS ADDRESS REGISTER ERROR/

033062
042523
044507
042440
000
033062
020114
052123
046105
047117
C51117

EM6:

LASCIZ

/MB026

OFFSET REGISTER ERROR/

EM?7:

LASCIZ

/MB026

DUAL REGISTER SELECTION ERROR/

030070
030070
053517
044502
047503
051105

033062
033063
030440
020124
047125
047522

EM10:

.ASCIZ

/MB026-M8036

LOw 16 BIT Z COUNT ERROR/

031060
031460

026466
0044066

EM11:

_ASCIZ

/MB026-M8036

HIGH 16 BIT Z COUNT ERROR/

031060

051105

047522

CINCCA

NCVI1

MACY11 27(654)

3766
3767
3768
3769
3770

030654
030662
030670
030676
030704

044510
020066
020132
020124
000122

044107
044502
047503
051105

030440
020124
047125
047522

3771
3772
3773
3774

004466
047125
052101
051122

_ASCIZ

/MB026

I COUNT STATUS ERROR/

051117

031060
047503
052123
042440

EM12:

030736

034115
020132
020124
051525

3775

115
055011
052116
051105
042440

030070
041440
0464440
052522
051122

033062
052517
052116
052120
051117

EM13:

_ASCIZ

/MB026

7 COUNT INTERRUPT ERROR/

115

030070
054517
020113
051525

033063
052123
052123
042440

EM14:

.ASCIZ

/MB036

JOYSTICK STATUS ERROR/

030070
054517
020113
042440

033063
052123
040504
051122

EM15:

_ASCIZ

/M8036

JOYSTICK DATA ERROR/

033063
020101
046505
051105

EM16:

LASCIZ

/M8036

DATA INCREMENT ERROR/

004466
042040
042515
051122

EM17:

_ASCIZ

/MB036

DATA DECREMENT ERROR/

033062
033063
044522
042504
042522
045501
052101
047522

EM20:

.ASCIZ

/M8026-M8036

004466
046440
042101
020123
020122
042440
000
033062
020124

EM21:

_ASCIZ

/M8026

LIST MODE ADDRESS MAKER DATA ERROR/

EM22:

.ASCIZ

/MB026

LIST MODE TRANSFER BUS ADDRESS ERROR/

030706
030714
030722
030730

3776
3777
3778
3779
3780

030741
030746
030754
030762
030770

3782
3783
3784
37685

030777
031004
031012
031020

3781

3786

3787
3788
3789
3790
3791

3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819

030776

031026

031033
031040
031046
031054

031062
031065
031072
031100
031106
031114
031120
031126
031134
031142
031150
031153
031160
031166
031174
031202
031210
031216
031224
031232
031234
031242
031250
031256
031264
031272
031300
031305
031312

ERROR ASCII MESSAGES

000

045011
041511
052101
051122

115
045011
041511
040524

051117

115
042011
047111
047105
047522
034115
040504
041505
052116
051117
115
046455
046411
020130
040440
051523
051105
020101
000122
034115
044514
042117
051104
040515
040504
051122
115
046011

000

051117

000
030070
052101
051103
020124
000122
031460
0405246
042522
042440
000
030070
030070
052101
047515
042104
046440
042040
051105

031060
052123
020105
051505
042513
040524
051117
030070
051511

000

15:05

DIAGNOSTIC

CZNCCA.P11

B8-AUG-78

PAGE 84

SEQ 0096

MATRIX MODE ADDRESS MAKER DATA ERROR/

NCVIT

MACY11
ERROR ASCI] MESSAGES

031320
031326
031334
031342
031350
031356
031360
021366
031374
031402
031410
031416
031424
031432
031440
031446
031454
031462
031470
031476
031500
031506
031514
031522
031530
031533
031540
031546
031554
031562
031570
031571
031576
031604
031612
031620
031626
031634
031640
031646
031654
031662
031670
031676
031700
031706
031714
031722
031730
031736
031741
031746
031754
031762

047515
040522
020122
042101
020123
000122
034115
044514
042117
047101
053440
047503
051105
034115
044514
042117
047101
047440
020124
000122
034115
044524
020124
051525
051117

CINCCA LN

3820

3821

3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833

DIAGNOSTIC

115
052011

052125
051105
042440

27(654)

8-AUG-78

15:05

PAGE

SEQ 0097

062506
051516
052502
051104
051105

052040
042506
020123
051505
047522

031060
052123
020105
043123
051117
047125
047522
031060
052123
020105
043123
043106
051105

004466
046440
051124
051105
020104
020124
000122
004466
046440
051124
051105
042523
047522

EM23:

LASCI2Z

/M8026

LIST MODE

THANSFER WORD (OUNT ERROR/

EM26:

LASCIZ

/M8026

LIST MODE

TRANSFER OFFSET ERROR/

031060
042515
052123
042440
000
030070
046511
044440
052522
051122

004466

EM2S:

LASCIZ

/MB026

TIMEQUT

STATUS ERROR/

033062
047505
052116
052120

EM26:

LASCIZ

/MB026

TIMEOUT

INTERRUPT

030070
052105
047105
020122
021105
020101
000122
031060
046114
042522
042040
051105

033062
021040
021124
052042
042040
051105

EM27:

LASCIZ

/M8026

SET "EVENT'' OR "'TIME'' DATA ERROR/

004466
044440
042515
052101
047522

EM30:

.ASCIZ

/MB026

CELL

031060
046114

004466
047440
047514
052101
051122

EM31:

LASCIZ

/M8026

CELL OVERFLOW STATUS ERROR/

033062
020114
046106
052116

EM32:

LASCIZ

/M8026

CELL OVERFLOW INTERRUPT ERROR/

043122
052123
042440
000

030070
046105
051105
044440

052517
052101
051122

ERROR/

051117

INCREMENT DATA ERROR/

[anRan

CZNCCA

3874
3875
3876
3877

031770
031776
032004
032005
032012
032020
032026
032034

MACY11 27(654)
DIAGNOSTIC
ERROR ASCII MESSAGES

SEQ 0098

052522
051122

052120
051117

030970
052101
047515
042104
066440
051122

033062
044522
042504
042522
056125
051117

Em33:

LASCIZ

/MB026

MATRIX MODE ADDRESS MuX ERROR/

030070
042524
043040
047511
047522
031060
040524
051117
020116
043123
020107
052130
020104
054522
030070
051511
042504
051516
052123
042440

033062
052123
047125
020116
000122
004466
042440
053440
051124
051105
047524
047105
042515
000
033062
020124
052040
042506
052101
051122

EM34:

LASCIZ

/M8026

TESTX'' FUNCTION ERROR/

EM35:

.ASCIZ

/MB026

DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY/

EM36:

LASCIZ

/M8026

LIST MODE

TRANSFLR STATUS ERROR/

115
046011

030070
05151
042504
051516
040504
051122

033062
020124
052040
042506
040524
051117

EM37:

.ASCIZ

/M8026

LIST MODE

TRANSFER DATA ERROR/

112

046525
034115
033515
042442
020042
044524
040515
051122

042520
031060
032471
042526
051117
042515
045522
051117

EM4O:

LASCIZ

/JUMPER-MB026-M795?2

115
0414611

034467
047574
051525
042522
046511
000
031070

031065
045503
040440
051523
047505

:
EM4T

LASCIZ

/M7952

CLOCK BUS ADDRESS TIMEOULT/

033461

EM4L2:

LASCIZ

/M8217

INCORRECT

051105
042440
000
115
046411
020130
040440

051523
042440

000
115
021011
021130
052103
051105
034115
040504
051122
042510
047101
047111
042440
042504
047515
115

046011
047515
040522
020122

051525

051117
047515
040522
020122
042440
000

026522
026466
004462
052116
021040
020042
042440
000

032425

8-AJG-78

H
8
PAGE 86

041040
042104
052040
052125
115

000

OR "TIME'' MARK ERROR/
"EVENT''

INTERRUPT LEVEL/

NCVIT
CINCCA
CINCCA PN

15:05

3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945

3946
3947
3948
3949
3950
3951

3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974

MACY11
ERROR ASCII MESSAGES
DIAGNOSTIC

15:05

PAGE 87

27(654)

8-AUG-78

DH1:

LASCIZ

/ERRPC

ADDR/

DH2:

LASCIZ

/ERRPC

ADDR

GOOoD

BAD/

SEQ 0099

032432
032440
032446
032454
032462

044411
042522
052116
052120
046105

-061516
052103
051105
046240
000

051117
* 40
04/
>
05
05.

032465
032472
32500
032506
032514
032522
032524
032532
032540
032546
032554
032557
032564
032572
032600
032606
032614
032621
032624
032632
032640
032645
032652
032660
032666
032674
032702
032710
032714
032717

105
040411
051105
042101
047517
000104
051105
042101
047517
004504
051104
105
040411
047507
042101
042101
040504
015
047516
050040
020123

051122
042104
050122
051104

041520
000122
004503
043411
040502

050122
051104
004504
040502
000
051122
042104
042117
042411
004522
051104
012
021040
046125
051117
050116
046117

004503
043411
040502
040504

DH3:

LASCIZ

/ERRPC

ADDR

GO0D

BAD

BADADR/

041520
004522
041011
020101
040502

DH6:

LASCIZ

/ERRPC

ADDR

G0O0dD

BAD

EA ADR

OUTRNG:

.BYTE
LASCII

15,12.,7
/NO *‘7°'" PULSES OR /

LASCII

/INPUT VOLTAGE OUT

OUTCHN:

.BYTE

60,15,12,7.0

032722
032730
032736
032742
032750
032756
032764
032772
032774
033002

111

053040
042507
047440
043516
041440
046105
060
007
032722
001116
001116
001126
001116
001126
001116

001126
000000
001116
000000

004504

RANGE ON CHANNEL

BADADR/

047440
020106
020105
040510
021440
015
000

047116
012

001250
001250
000000
001250
001122
001250

000000
001124

DT1:
DT2:

.EVEN
.WORD
.WORD

$ERRP(C, $BASE ,0
$ERRPC, $BASE , $GDDAT ,$BDDAT,0

DT3:

.WORD

$ERRP(, $BASE , $GDDAT ,$BDDAT, $8DADR, 0

041756

001124
000000
001124
001122

DT4:

.WORD

$ERRP(, $BASE ,$GDDAT ,$BDDAT ,NARROW , $BDADR, 0

001254

000000

.WORD
.WORD

8ERRPC,SCDW1.0

CINCCA NCV1T
CINCCA P11

CINCCA NCVIT
CINCCA.P1N

DIAGNOSTIC
TTY

MACY11

INPUT ROUTINE

3975
3976
3977
3978

3998
3999

4000
4001
4002
4003
4004
4005
4006

4007

4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023

4024

4025
4026

4027
4028

.ENABL

TTY

15:05

PAGE 88

SEQ 0100

INPUT ROUTINE

LSB

323232223223 22323 2232322322222 2323322233242242233283
82230 dR 00 RRSd0tRlss)

1 *SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL

$*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP CALL
: *WHEN OPERATING IN TTY FLAG MODE.

$CKSWR:

033004
033012
033014
033020
033022
033026
033032
033036
033040
033046

022737
001074

123727

001134

033050
033054
033060
033064
033066
033072
033074
033076
033102

104401
104401
013746
104402
104401
005046
005046
105777
100375

033531
033536
000176

033104
033110

042716

117746

146036
177600

033114
033120
033122
033126
033132

021627
001005

000025

9%:

104401

033524
000006

20%:

033134
033140
033142
033146
033150
033156
033162
033166
033174
033176
033204

021627
001022
005766
001403
016677

000015

10%:

105777
100071
117746

042716
022726
001062

001456

062706
000757

062706

104401
123727

001003
012777
000002

000176

001140

146120
177600

000007

CMP
BNE
CMPB
BEQ

000001

$GTSWR:

033547

19%:

146042

7%:

000004
000007
000006
001171

CMP

BNE

T1ST8B
BPL
mMovs
BIC

166124

145762

001135

000001

000100

145740

TYPE
TYPE
MOV
TYPOC
TYPE

15%
a$TKS
15%
a$TKB,-(SP)
#~C177,(SP)
#7,(SP)+
15%
#1
SAUTOB,
15%

LSCNTLG
. SMSWR

SWREG,~(SP)

::1S THE SOFT-SWR SELECTED?
:JBRANCH IF NO

;s CHAR THERE?
;:1F NO, DON'T WAIT AROUND
::SAVE THE CHAR
;:STRIP=-OFF

THE ASCI!

;1S IT A CONTROL G?
;;NO, RETURN TO USER
:;ARE WE RUNNING IN AUTO-MODE?
;sBRANCH IF YES
;;ECHO THE CONTROL-G (*G)

::TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEOUT

;GO TYPE--OCTAL ASCIIC(ALL DIGITS)
;;PROMPT FOR NEW SWR
;:CLEAR COUNTER

BPL
MOvVB
BIC

a$TKB,~(SP)
#~C177,(SP)

;:PICK UP CHAR

(SP) 425

;1S 1T A CONTROL-U?
s ;BRANCH IF NOT

CLR
CLR

TSTB

CMP
BNE
TYPE
ADD
BR

10%

LSCNTLU

#6,SP

;s THE NEW SWR
;;CHAR THERE?

::1F NOT TRY AGAIN
J:MAKE

;. YES,

IT 7-BIT ASCII

ECHO CONTROL=-U (*U)

;. IGNORE PREVIOUS INPUT
;;LET'S TRY IT AGAIN

cMP

;2IS IT A <CR>?

TST

2(SP) ,aSWR

:oYES, IS IT THE FIRST CHAR?
;sBRANCH IF YES
;. SAVE MEW SWR

.SCRLF

;:ECHO <CR> AND <LF>

#100,2%TKS

:;RE~ENABLE

MOV
ADD
TYPE

CMPB
BNE

15%:

#SWREG, SWR

-SMWNEW
=(SP)
=(SP)
a$TKS
7%

BEQ
N

3989
3990
3991
3992
3993
3994
3995
3996
3997

8-AUG-78

;:tit*fit*fitt'tit**fififi*tttiitt*.ittttttttttttttttitttlttttttttttit

3988

LSBTTL

—

3979
3980
3981
3982
3983
3984
3985
3986
3987

27(654)

MOV
RTI

:;BRANCH IF NO

#6,SP

#1
$INTAG,
15%

;:CLEAR UP STAC(CK

:;RE-ENABLE TTY KBD INTERRUPTS?
::BRANCH [F NOT
;RETURN

TTY KBD

INTERRUPTS

CINCCA NCVIT
CINCCA.P11
4029
4030
4031

033206
033212
033216
033220
033224
033226

MACY11 27(654)

DIAGNOSTIC
TTY INPUT ROUTINE

034604
000060

000002
177776

17%:

104401

001170

18%:

005266
056616
000707

033264

16%:

004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316

000720

000067
000060
000002

8-AUG-78
JSR

(SP) 400
18%
(SP) ,#67
18%
#60, (SP)+

BEQ

17%

ASL
ASL
ASL
INC
BIS

TYPE

LSB

K 8
PAGE 89

PC,STYPEC

CMP
BLT
CMP
BGT
BIC
TST

.DSABL

15:05

SEQ 0101
;.ECHO (CHAR
;;CHAR < 0?

;sBRANCH IF YES
;:CHAR > 7?
;:BRANCH IF YES

;oSTRIP=-OFF ASClI

::1S THIS THE FIRST CHAR
;:BRANCH IF YES
;;NO, SHIFT PRESENT
CHAR OVER TO MAKE
HN
FOR NEW ONE.
ROOM
o
OF CHAR
COUNT
P
;:KEE
:3SET IN NEW CHAR
::GET THE NEXT ONE

20%

;;SIMULATE CONTROL-U

2(SP)

(SP)
(SP)
(SP)
2(SP)
=2(SP), (SP)
. SQUES

:3TYPE

72<CR><LF>

;:tttt*t*t*Qttttt*tt*fi*tttt**fitt 12223232234222323222222222222222223%32232};

;*THIS ROUTINE WILL INPUT A SING LE CHARACTER FROM THE TTY
;«CALL:

o%
%

033266
033270
033276
033302
033304
033312
033320
033326
033330
033334
033336
033342
033346
033352
033354
033356
033364
033366
033374
033376
033404

011646
016€66

105777

100375
117766

042766
026627
001013
105777
100375
117746

042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004
145642

000002

145636
177600
000004

000004
000004
000023

$RDCHR: MOV
1%:

2%:

145610

RDCHR
RETURN HERE

145604
177600

000004

000140

000004

000175

000040

000004

3%:

4$:

;;WITH PARITY BIT STRIPPED OFF

(SP) ,-(SP)

;sPUSH DOWN THE PC

TSTR
BPL
MOVB
BIC

A$TKS
1%
a$TKB,4 (SP)
#C<177>,4(SP)

;:WAIT FOR
::A CHARACTER
;:READ THE TTY
;:GET RID OF JUNK IF ANY

MOVB

o%TKB,-(SP)

MOV

CMP
BNE
TSTB
BPL

BIC
CMP
BNE

000021

;o INPUT A SINGLE CHARACTER FROM THE TTY
:;CHARACTER IS ON THE STACK

4L (SP) ,2(SP)

L(SP) 423
3%
asTKS
2%

#2C177,(SP)
(SP)+ 421
2%
1%

CMP

4(SP) 4140

cMP

4L(SP) ,R175

8LT

BGT
BIC
RT]

4%
#60,4(SP)

;:SAVE THE PS

;:1S IT A CONTROL-S?
;;BRANCH [F NO
;:WAIT FOR A CHARA(CTER
;cLOOP UNTIL ITS THERE
::GET CHARACTER

:;MAKE IT 7-BIT ASCII
;1S IT A CONTROL-Q?
::IF NOT DISCARD IT
JcYES, RESUME

;1S IT UPPER CASE?
;;BRANCH [F YES

:31S IT A SPECIAL CHAR?
; ;BRANCH IF YES
::MAKE IT UPPER CASE
;G0 BACK TO USER

2222232332323
233 2222322228833 2384832333333 323323232332308032¢82R8202 22

tEHIS ROUTINE WILL
;«CALL:

J*
. %

RDL IN

RETURN HERE

INPUT A STRING FROM THE TTY

;2 INPUT A STRING FROM THE TTY

::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
:;TERMINATOR WILL BE A BYTE OF ALL 0'S

CINCCA

NCV1Y

DIAGNOSTIC

40B4
4085
4086

033406
033410
033414

010346
012703
022703

4088

033422

104410

CINCCA.PIT
4083

4087

4089
4090
4091
4092
4093
4094
4095
409
4097

4098

4099
4100
4101
4102
4103
4104

4105

4106

033420

033464
033470
033472
033474
033502

104401
012603
011646
016666
012766

033512

000

033510
033513

033514
033524
033531

4112

033547

4113

101405

112613
122713
001003
104401
000763
111337
104401
122723
001356

4107
4108
4109

4110
4111

TTY INPUT ROUTINE

033424
033426
033432
033434
033440
033442
033446
033452
033456

033460

033536
033544
033554

MACY11 27(654)

105063

000002

$RDLIN MOV
1%:
MOV
2%:
cMP

033514
03352¢

BLOS

RDCHR

000177

108:

001170

4%:

033512
033512
000015

3%:

177777

000004
033514

000002
000004
9%:

000010
052536
136

005015
006507

036440

000040

053523
000
047040

000
000012

$TTYIN:
SCNTLU:
SCNTLG:

053505

SMNEW:

020122

$MSWR:

15:05

PAGE 90

R3,-(SP)
#STTYIN,R3
#STTYIN+8.,R3
4%

movB
C(MPB
BNE
TYPE
BR
MOVB
TYPE
CMPB
BNE

(SP)+, (R3)
#177,(R3)
3%
. SQUES
1%
(R3),9%
.98
#15,(R3)+
2%

TYPE
MoV
MoV
MOV
MOV

SLF
(SP) +,R3
(SP) ,~(SP)
4(SP) ,2(SP)
#STTYIN,4(SP)

CLRB

001172

000

005015
020075
040

8-AUG-78

RTI

BYTE

-1(R3)

.ASCIZ

<15><12>/SWR =

.ASCIZ

8.
/*U/<15><12>
/°G/<15><12>
/

;. SAVE R3
;.GET ADDRESS
;.BUFFER FULL?
;:BR IF YES

;:G0 READ ONE CHARACTER FROM THE TTY
;. GET CHARA(CTER
;218 IT A RUBOUT
;:SKIP IF NOT
;.TYPE A '2°
;;CLEAR THE BUFFER AND LOOP
;.ECHO THE CHARACTER
;s CHECK FOR RETURN
;.LOOP IF NOT RETURN

;s CLEAR RETURN (THE 15)

JoTYPE A LINE FEED
;;RESTORE R3
;;ADJUST THE STACK AND PUT ADDRESS OF THE
3
FIRST ASCII CHARACTER ON IT
; ;RETURN

:.STORAGE FOR ASCII CHAR. TO TYPE

BYTE

.BLKB
.ASCIZ
.ASCIZ

SEQ 0102

NEW =

;s TERMINATOR

;RESERVE 8 BYTES FOR TTY INPUT
;. CONTROL 'V’
;. CONTROL ''G"'

NCVIT

CINCCA
CINCCA.PI
4114
6115
6116
4117
4118
4119
4120
621
4122
<123
4124

4125
4126
4127
4128
4129
4130
413
4132
4133
4134
4135
4136
6137
4138
4139
4140
4141
4142

4143
4144

4145

4146
4147

4148
4149
4150
415

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
TTY
THE
FROM
NUMBER
READ AN OCTAL

M 8
PAGE N

SEQ 0103

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL
SR

15:05

2X2ZE22 2222222222022

**THIS ROUTINE WILL READ AN OCTAL
;*CHANGE IT TO BINARY.

:«CALL:
« K

[

RDOCT
RETURN HERE

033560
033562
033570
033572
033574
033576
033600
033602
033604
033606
033610
033612
033614
033616
033620
033622
033624
033626
033632
033634
033636
033640
033644
033650
033652
033654
033656
033660

011646
016666
010046
010146
010246

000004

104411

1%:

012600
005001
005002

2%:

112046

001412
006301
006102
006301
006102
006301
006102
042716
062€01
000764
005726
010166
010237
012602
012601
012600
000002
000000

000002

$RDOCT:

MOV
MOV
MOV
MOV
MOV
RDLIN
MOV

CLR
CLR
MOVR
BEQ
ASL

ROL
ASL
ROL
ASL
ROL

177770

000012
033660

BIC

ADD

3%:

$HIOCT:

TST
MOV
MOV
MOV
MOV
MOV
RTI

.WORD

(SP) ,~(SP)
4(SP),2(SP)
RO,~(SP)
R1,-(SP)
R2,-(SP)

(SP)+,RO
R1
R2
(RO) +,-(SP)

R1
R2
R1
R2
#*C7,(SP)
(SP) +,R1

(SP)
+

R1,12(SP)
R2,$HIOCT
(SP)+ ,R2
(SP)+,R1
(SP) +,R0
0

200ttt

2 R

0220

R0t

s sl

(ASCII) NUMBER FROM THE TTY AND

;.READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;;HIGH ORDER BITS ARE IN $HIOCT

;:PROVIDE SPACE FOR THE
;o INPUT NUMBER
;cPUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
;:READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
;;CLEAR DATA WORD

;.,PICKUP THIS CHARACTER
IF ZERO GET OUT
;.
L

;%8
;:STRIP THE ASCII JUNK

;;ADD IN THIS DIGIT
.. LOOP
;;CLEAN TERMINATOR FROM STACK

;sSAVE

THE RESULT

;;POP STACK INTO R?
;:POP STACK INTO R1
;;POP STACK

. JRETURN

INTO RO

;:HIGH ORDER BITS GO HERE

CZNCCA NCV1T
CINCCA.P1

8-AUG-78 15:05
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

DIAGNOSTIC

MACYT1 27(654)

.SBTTL

4152
4153
4154
4155
4156
4157

4158
4159
4160
4161
4162
4163
4164
4165
4166

4167
4168
4169
4170
4171

4172
4173
6174
4175
4176
4177
4178
4179
4180
4181
4182
4183

4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194

4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205

PAGE 92

SEQ 0104

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2222222222223 322332 322322323282

ZX22 2222222232

RARRRRRRRRRRRdl Al

-THXS ROUTINE IS USED TO (HANGE A 16-BIT BINARY NUMBER TO A 5-DIGuT
**SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENI ING ON WHETHER THE
;*NUMBER S POSITIVE OR NEGATIVE A SPACE OR A MINU, SIGN WILL BE TY3ED
:«BEFORE THE FIRST DIGIT OF THE NUMBER. LEADIMC 2FOnS WILL ALWAYS Ef
;*REPLACED WITH SPACES.
s*CALL:

033662

033662
033664

033666
033670
033672
033674
033700
033704
033706
033710
033716
033720
033724
033730
033732
033736
033740
033742
033744
033746
033750
033752
033754
033756
033760
033762
033764
033772

010046
010146
010246
010346
010546
012746
016605
100004

005405
112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
00570¢
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605

$TYPDS:

020200
000020
000055

000001

034076
000040

1%:

2%:

034066

3%:

5%:

000001
000060
000040

177777

6%:
7%:

000010

8%:

177777

177776

6% :

MOV

,
- (5P)
NUM

:;PUT THE BINARY NUMBER OM THE STA(K
;260 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
B8PL
NEG
MOvVB
CLR
MOV
MOVB

RO,=(SP)
R1,-(SP)
R2,={SP)
R3,-(SP)
RS,=(SP)
#20200,=(SP)

;;PUSH RO ON STACK
;;PUSH R1 ON STA(CK

MOV

$DTBL (RO) ,R1
R1,R5
4%

TYPDS

CLR

SUB
BLT
INC

20(SP) RS

1%
RS
#'-,1(SP)
RO
#$DBLK ,R3
#' ,(R3)+
R2

BR
ADD
TST
BNE
TSTR
BMI

ASLB
B(CC

MOVB

BIS
BIS

MOVR
TST
cmp
BLT
BGT
MOV
BR

TST8B

BPL
MOvR
CLRB
MOV

;;PUSH R2 ON STACK
;;PUSH R3 ON STACK

;;PUSH RS ON STACK
;;SET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
;:BR IF INPUT [S POS.
;:MAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.
;,ZERO THE CONSTANTS INDEX
;. SETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
;;CLEAR THE BCD NUMBER
;.GET THE CONSTANT
;.FORM THIS BCD DIGIT
;.BR IF DONE
;. INCREASE THE BCD DIGIT BY 1
::ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
;J:FALL

THROUGH
IF O

;2STILL DOING LEADING 0°'S?

6
1(SP) ,=1(R3)
#'0,R2
# ,R2
R2,(R3)+
(RO)
+
RO,#10

9
=1(SP) ,=2(R3)
(R3)
(SP)+,RS

;:BR IF YES
; sMSD?

;:BR IF NO
::YES~-=SET THE

SIGN

;:MAKE THE BCD DIGIT ASCII
::MAKE IT A SPACE IF NOT ALREADY A DIGIT

:2PUT THIS CHARACTER IN THE OUTPUT BUFFER

;:JUST INCREMENTING
;;CHECK THE TABLE INDEX
;:G0 DO THE NEXT DIGIT
;260 TO EXIT
;:;GET THE LSD
; ;G0 CHANGE TO ASCII

::WAS THE LSD THE FIRST NON-ZERQ?

;.BR IF NO
JJYES==SET THt SIGN +OR TYPING
;;SET THE TERMINATOR

;:POP STACK INTO RS

CZNCCA NCVIT
CINCCA.PW
4206
4207
4208
4209
4210
4«21
4212
6213
4214
4215
4216
6217

4218
4219
4220
4221
4222
4223
4224
4225
4226

4227
4228
4229
4230
423
4232
4233
4234

4235
4236

4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259

034040
034042
034044

8-AUG-78
MACY1T 27(654)
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

DIAGNOSTIC

012603
012602
012601
012600

104601
016666
012616
000002

034076

034076
(000002

MOV
MOV
MOV
MOV
000004

023420
001750
000144
000012
000004

$DTRL:

$DBLK:
.SBTTL
R

TYPE
MOV
MOV
RTI

15:05

9
PAGE 93

SEQ 0105

::POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK INTO R1
::POP STACK INTO RO

(SP)+,R3
(SP) +,12
(SP) +,R1
(SP)+ R0

,SDRLK
2(SP),4(SP)
(SP)+,(SP)

;:NOW TYPE THE NUMBER
:;ADJUST THE STACK

10000.
1000.
100.
10.
&
.BLKW
ROUTINE
HANDLER
SCOPE

::RETURN TO USER

2 222322228222
SSRXTR LSRR
2222222222222 2382 2RRR2 4R R

tTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL INCREMENT

:*AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:~AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08>
*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
*SU14 1
*SU11 1
*SU09 1

LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

*SUOB 1
;+CALL

:*
034106
034106

034110
034114
034122

104407
004737

032777
001114

$SCOPE:

046042

040000

145016

000416

034126
034132
034140
034144
034150
034152
034154
034160
034162
034162
034170
034172
034200
034202
034206
034210
034216
034220
034226

013746
012737
005737
012637
000463
022626
012637
000423

000004
034152
177060
000004

032777
001404
127737
001465
105737
001421
123737

000400

144750

144742

001102

001115

032777

001000

001404

CKSWR
JSR

PC,CTRLCG

BNE

$OVER

BIT

MRHHRSTART OF

034124

101015

1%:

::SCOPE-I0T

SCOPE

$XTSTR: BR

::TEST

#BI1T14,aSWR
CODE FOR THE

::LO0OP ON PRESENT TEST?

a#ERRVEC,-(SP)
#5% ,a¥ERRVEC
a#177060
(SP)+ Q#ERRVEC
$SVLAD
(SP)+,(SP)+
(SP)+ ,a#ERRVEC
7%

001103

BIT
BEQ
(MPB
BEQ
TSTB
BEQ
(MPB

#B1T08,aSWR
2%
ASWR,$TSTNM
$OVER
$ERFLG
3%
$ERMAX ,$ERFLG

144712

BIT

#BI1T09,asSWR

5%:

000004

001103

::YES IF SW14=1

XOR TESTERAAARA

MOV
MOV
TST
MOV
BR
CMP
MOV
BR

000004

FOR CHANGE IN SOFT-SWR
:TEST FOR CTRL C OR G

::1F RUNNING ON THE XOR” TESTER CHANGE
::THIS INSTRUCTION TO A ‘NOP'' (NOP=240)

;;SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
::TIME OUT ON XOR?
:;RESTORE THE ERROR VECTOR
::G0 TO THF NEXT TEST
::CLEAR THt STACK AFTER A TIME OUT
;.;RESTORE THE ERROR VECTOR
:;LOOP ON THE PRESENT TEST

6%: -HHRAREND OF CODE FOR THE XOR TESTER&##AR

2$:

BHI

BEQ

3¢

::LOOP ON SPEC. TEST?
;:BR IF NO
SWR<7:0>
;;ON THE RIGHT TEST?
::BR IF YES
::HAS AN ERROR OCCURRED?
::BR IF NO
;;MAX. ERRORS FOR THIS TEST OCCURRED?
::BR IF NO

:;LOOP ON ERROR?

;:BR IF NO

CINCCA

NCVI1

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

034230

013737

001106

MOV

034244
034250

005037
000415

034260

0010

CINCCA.PI
4260

4261
4262

4263
4264

4265

4266

4267
4268
4269
4270
4271
4272
4273
4274
6275
4276
4277
4278
4279
4280
4281
4282
4283
2Sgg

034236
034240

034252

034262
034266
034270
034274
034302
034304
034312
034320
034324
034332
034336
034342
034346
034354
034362
034366
034370

SCOPE HANDLER ROUTINE

000446
105037

001110
001103
001160

032777

004000

005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

001202

001104
001160
000001
034370
001102
001102
001106
001110
001162
000001
001102
001106

144660

001104
001104
001160
001200

001115
144560

7%:

15:05

;:;SET LOOP ADDRESS TO LAST SCOPE

$TIMES
1%

;. ZERO THE ERROR FLAG
::CLEAR THE NUMBER OF ITERATIONS TO MAKE
:;ESCAPE TO THE NEXT TEST

AR ]

;:BR IF YES

4%:

$OVER
$ERFLG

3%:

BIT

#R17T11,aSWR

BNE

SEQ 0106

$LPERR,SLPADR

BR
CLRB

CLR
BR

PAGE 94

ST
$PASS
BEQ
1%
INC
SICNT
CMP
$TIMES,SICNT
BGE
$OVER
1%:
MOV
#1,$1CNT
MOV
SMXCNT,$TIMES
$SVLAD: INCB
$TSTNM
MOVB
$TSTNM,$TESTN
MOV
(SP) ,$LPADR
MOV
(SP) ,$LPERR
CLR
$ESCAPE
MOVR
#1, SERMAX
$OVER:
MOV
$TSTNM,aDISPLAY
MOV
$LPADR, (SP)
RTI
$MXCNT: 2000.
.SBTTL
TYPE ROUTINE

:;INHIBIT ITERATIONS?

::1F FIRST PASS OF PROGRAM
B
INHIBIT ITERATIONS
:; INCREMENT ITERATION COUNT
::CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
;:REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
;;COUNT TEST NUMBERS
;:SET TEST NUMBER IN APT MAILBOX
::SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FRNM ERROR ADDRESS
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
: :FUDGE RETURN ADDRESS
;;FIXES PS
::MAX. NUMBER OF ITERATIONS

1,286

"R 2228222228232 232323233222222223323223 2832322323222 223234223 8322238322333/

4288

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

4,287

“«ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINAIE WITH A O BYTE.

4289

4290

SaNOTET:

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

:*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

:*NOTE2:

zggg

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

> %

4293
4294

s~CALL:
:*1) USING A TRAP INSTRUCTION

4296
4297
4298
4299
4300
4301
4302
4303

L %0R
ox
Jx
I

4295

4304
4305
4306

4307
4308
4309
4310

4311

4312
4313

: %

034372
034376
034400
034402

034404
034406

034412
034420
034422
034430

034432

034436
034442

105737
100002
000000
000430

010046
017600

122737
001011
132737
001405

010037

004737
000000

001157

1%:
001214

000100

001215

61$:

. MESADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG
1%

;:1S THERE A TERMINAL?
;:BR IF YES
JJHALT HERE IF NO TERMINAL
.. LEAVE

TYPE
ME SADR

’

TSTR
BPL
HALT
BR

MOV
MOV

3%
RO,~(SP)
a2 (SP) ,RO

MOV

R0O,61%

CMPB
BNE
BITB
BEQ

034442
035444

TYPE

$TYPE:

000002
000001

JSR
LWORD

#APTENV, SENV
62%
#APTSPOOL
, SENVM
62%
PC,$ATY3
O

;:SAVE RO
::GET ADDRESS OF ASCIZ STRING
:;RUNNING IN APT MODE
::NO,GO CHECK FOR APT CONSOLE
; ; SPOOL MESSAGE TO APT
::NO,GO CHECK FOR CONSOLE

::SETUP MESSAGE ADDRESS FOR APT
:;SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS

CINCCA

NCVI1

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

6314
4315
4316
6317
4318

034444
034452
034454
034456
034460

132737
001003
112046
001005
005726

000040

001215

BITH
BNE
MOVRB
BNE
TST

HAPTCSUP,SENVM
608
(RO)+,-(SP)
4%
(SP)+

;;APT (ONSOLE SUPPRESSED
:IYES,SKIP TYPE 0OUT
2 :PUSH CHARACTER TO BE TYPED ONTO STACK
;2BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK

(320
4321
4322
4323
4324
4325
4326
4327

034464
034470
034472
034476
034500
034504
034506
034510

062716
000002
122715
001430
122716
001006
005726
104401

00002

ADD
RTI
CMPB
BEQ
CMPB
BNE
TST
TYPE

#2,(SP)

::ADJUST RETURN PC
: :RETURN
::BRANCH [F <HT>

4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
2%2?

034514
034520
034522
034526
034532
034534

105037
000755
004737
123726
001350
013746

034650

105366
002770
004737
105337
000770

000001

CINCCA.P11

4319

4328

034462

034512

034540
034544
034546
034552
034556

TYPE ROUTINE

012600

001171

2%:

60%:
3%:

000011

4%:

000200

4345
4346
4347
4348
4349

4350
4351

034604
001156

5%.
6%:

001154

7%:

034604

034650

034560

004737
132737
001372
005726
000724

034610

100375

034604

4355

034630

4357

4358
4359
4360
4361
4362

112716

034564
034570
034576
034600
034602

034612
034620

4356

PAGE 95

(SP)+,R0O

#HT , (SP)
8%
#CRLF, (SP)
5%
(SP) +

CLRB
BR
JSR
CMPR
BNE
MOV

$CHARCNT
2%
PC,$TYPEC
SFILLC,(SP)+
2%
$NULL ,~(SP)

DE(CB
BLT
JSR
DECB
BR

1(SP)
6%
PC.STYPEC
$CHARCNT
7%

SEQ 0107

;JRESTORE RO

;IBRANCH IF NOT <CRLF>
::POP <CR><LF> EQUIV
;:;TYPE A CR AND LF
::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
:2G0 TYPE THIS CHARACTER
;2]S IT TIME FOR FILLER CHARS.?
::IF NO GO GET NEXT CHAR.
;2GET # OF FILLER CHARS. NEEDED
;JAND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;:;BR IF NO--GO POP THE NULL OFF OF STA(CK
;:GO TYPE A NULL
::D0 NOT COUNT AS A COUNT
::LOOP

:HORIZONTAL TAB PROCESSOR

4352
4353
4354

MOV

$CRLF

233?3
4344

62%:

15:05

034604
000007

105777

144340

116677
122766

000002
000015

105037

034650

122766

000012

034626

001003

034634

000406

034644
034646
034650
034652

001402
105227
000000
000207

034636

000040

8%:
034650

9% :

$TYPEC:
144332
000002

000002

MOVR

TSTB

2% TPS

JSR
BITR
BNE
TST
BR
BPL

MOVR
CMPR

$TYPEC

CLRB

2(SP) ,a%7PB
#CR,2(SP)
1%
$CHARCNT

CMPB

#LF ,2(SP)

BNE

1%:

,(SP)

PC,$TYPEC
#7 ,$CHARCNT
9%
(SP)+
2%

B8R

BEQ
INCB
$CHARCNT:
. WORD
$TYPEX: RTS

$TYPEX

$TYPEX
(PC)+
O
PC

;:REPLACE TAB WITH SPACE
;2 TYPE A SPACE
:;BRANCH IF NOT AT
;;TAB STOP
;;POP SPACE OFF STACK
:2GET NEXT CHARACTER

JIWAIT UNTIL PRINTER IS READY
;;.0AD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?

;2BRANCH IF NO

::YES==CLEAR CHARACTER COUNT

JIEXIT

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

CINCCA

NCV11

CINCCA.P11

DIAGNOSTIC

MACY11 27(654)

BINARY TO OCTAL (ASCII) AND TYPE

4%22

.SBTTL

4365

4367

:*0CTAL

4366

B8-AUG-78

15:05

PAGE 96

SEQ 0108

BINARY TO OCTAL (ASCII) AND TYPE
AN AR AN AN

AR RN N AR RN R

RRRRA AR AR

AN AR RN

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6=DIGIT

4%23

(ASCII) NUMBER AND TYPE IT.

; *$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

s*CALL:

4370
4371
4372
4373
4374
4%;2

i
i
J*
I*
o
i

MOV
TYPOS
.BYTE
.BYTE

NUM, - (SP)
N
M

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

4377

:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

4379

:*CALL:

zgg;

4383

;«$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

4385
2%29

ox
I

4378

;*$TYPOS OR $TYPOC

4380

MoV

TYPON

NUM, - (SP)

::NUMBER TO BE TYPED

::;CALL FOR TYPEOUT

- N

4384

:*CALL:

MOV
TYPOC

NUM, - (SP)

: ;NUMBER TO BE TYPED
:;CALL FOR TYPEOUT

$TYPOS: MOV
MOVB
MOVB
ADD

a(SP) ,-(SP)
1(SP) ,$0F ILL
(SP)+,$0MODE+1
#2,(SP)

::PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
; :ADJUST RETURN ADDRESS

4388
4389
4390
4391

034654
034660
034666
034672

017646
116637
112637
062716

000000
000001
035101
000002

4393

034700

112737

000001

035077

S$TYPOC: MOVB

#1,80FILL

:;SET THE ZERO FILL SWITCH

4395

034714

112737

000005

035076

$STYPON: MOVB

#5,80CNT

;:SET THE ITERATION COUNT

4392

(394

4396

034676

034706

000406

112737

034722

010346

034726

010546

4400
4401
L4602
4403
4404
4405

034734
034736
034742
034746
034752
034756

005404
062704
110437
113704
016605
005003

4607

034762

000404

4397

4398

4399

4406

034724

034730

034760

113704

MOVR
MOV

MOV

035101
000006
035100
035077
000012

1%:
2%:

006105
006105
006105
010503
006103
105337

4415
4616

035004
035010

042703
001002

100016

035100
177770

3%:

$TYPON

#6,$0OMODE +1
R3,-(SP)
R4 ,~(SP)

:;SET FOR SIX(6) DIGITS
::SAVE R3
:;SAVE Ré

RS5,~-(SP)

;:SAVE RS

NEG
ADD
MOVB
MOVB
MOV
CLR

R4
#6,R4
R4 , $OMODE
$OFILL ,R4
12(SP) RS
R3

::;SUBTRACT IT FOR MAX. ALLOWED
;;SAVE IT FOR USE
;:GET THE ZERO FJILL SWITCH
::PICKUP THE INPUT NUMBER
:;CLEAR THE OUTPUT WORD

B8R

MOVB

006105

034764
034766
034770
034772
034774
034776

035002

035101

010446

4408
4409
L4410
4611
4412
4413

4414

000006

035077

ROL

$OMODE +1,R4

ROL
ROL
ROL
MOV
ROL
DECR

RS
RS
RS
RS5.R3
R3
$OMODE

BIC
BNE

#177770,R3
4%

B8PL

::GET THE NUMBER OF DIGITS TO TYPE

:;ROTATE MSB INTO ‘C"'

::G0 DO MSB

::FORM THIS DIGIT

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

;:BR IF NO

;:GET RID OF JUNK
;;TEST FOR O

CINCCA NCVIY
CINCCA. P
L4617
4618
4419
4420
6621
4422
46423
44624

4425
6426
64627

4428

4429
4430
4631
4432
4433
4634
4435
4436
4637
4438
4439
4440

035012
035014
035016
035020
035024
035030
035034
035040
035044
035046
035050
035052
035054
035056
035060
035062
035070
035072
035074
035075
035076
035077
035100

005704
001403

005204
052703
052703

110337
106601
105337
003347

002402
005204
000744
012605
012604
012603
016666

012616
000002

5%:

035074
035074
035076

6%:
000002

000004

000
000
000
000
000000

4465

4467
4468
4469
4476

::BR IF DONE
;2 INSURE LAST DIGIT [SN'T A BLANK
;:G0O DO THE tAST DIGIT
:;RESTORE RS
:JRESTORE R4
:;RESTORE R3
J:SET THE STACK FOR RETURNING

::SAVE FOR TYPING
::G0 TYPE THIS DIGIT
;:COUNT BY 1
::BR IF MORE T0 DO

(SP)+,(SP)

: RETURN
::STORAGE FOR ASCII DIGIT

0
0
0
0
0

;:TERMINATOR FOR TYPE ROUTINE
;;OCTAL DIGIT COUNTER
;s IERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

ERROR HANDLER ROUTINE
INCREMENT

THE ERROR FLAG AND THE ERROR (OUNT,

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF
J*AND GO TO $ERRTYP ON ERROR

4446

4466

63
R4
P 3
(SP)+,R5
(SP)+ R4
(SP)+,R3
2(SP) ,4(SP)

;*xTHIS ROUTINE WILL

4445

4461

BLT
INC
BR
MOV
MOV
MOV
MOV

R3,8%
.8%
$OCNT
23

;"tfii.'.l’i"*tk.tfifi.."'*ttfl'tt'!Qfittt'tt"tfittt.'tti'.t.tfitt.lQ'

4644

4462
4463
4464

SEQ 0109

INC
BIS
BIS

BYTE
BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD
.SBTTL

PAGE 97

;s SUPPRESS THIS 0?
::BR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
JoMAKE THIS DIGIT ASCII
;JMAKE ASCII IF NOT ALREADY

MOV
RT]

8%:

R4
5%
R4
#'0,R3
#' R3

MOVB
TYPE
DECR
BGT

7%:

4442
4443

4456
4457
4458
4459
4460

IST
BEQ

000060
000040

44641

4447
4448
4449
4450
44651
4452
4453
4454
4455

15:05

B8-AUG-78
MACYT1 27(654)
BINARY TO OCTAL (ASCII) AND TYPE
DIAGNOSTIC

;*THE

SWITCH OPTIONS PROVIDED BY

:*SW15-1

HALT ON ERROR

;*SW10=1
;*SW09=1

PELL ON ERROR
LOOP ON ERROR

:*SW13-1
s *CALL

o
035102
035102
035104
035110
035112
035120
035126
035130
035134
035140
035144
035152
035160
035166
035170
035174

104407
105237

001775
013777
032777
001402

$ERROR:

001103

001102
002000

104401

001164

162737
117737

000002
143740

005237
011637

032777
001004

004737
104401

001112
001116

020000

035302
001171

7%:

144022
144012

001116
001114

14375°

THIS ROUTINE ARE:

INHIBIT ERROR TYPEOQUTS

: ;ERROR-EMT AND N-ERROR ITEM NUMRER

ERROR

CKSWR
INCB

$ERFLG

;:TEST FOR CHANGE IN SOFT-SWR
;:SET THE ERROR FLAG

;:NO = SKIP

INC
MOV

$ERTTL
(SP) ,$ERRPC

;2COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

BIT

#B]1T13,aSWR

8EQ
MOov
BIT

7%
;:DON'T LET THE FLAG GO TO ZERO
$TSTNM, aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG
#BIT10,aSWR
;:BELL ON ERROR?

TYPE

JSBELL

BEQ

1%:

THE ERROR CALL

SUB
MOVB

BNE

JSR

TYPE

#2,8ERRPC
Q$ERRP(,SITEMB

20%

PC.,$ERRTYP
LSCRLF

;cRING BELL

;;STRIP AND SAVE

THE ERROR ITEM (CDE

:SKIP TYPEQUT IF SET
;:SKIP TYPEOUTS

::G0 TO USER ERROR ROUTINE

CINCCA

NCV1Y

&7
4472
4473

035200
035200
035206
035210
03526
035222

CINCCA. P

L4676

4475
4676
4677
4478
4479

4480
4481
4482
4483
44846
4485
4486
4487
4488
4489
4490
4491
4492

4493

4494
4495
44696
4497
4498
4499

4500
4501
4502

4503
4504
4505
4506
4507
4508
4509
4510

4511
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
4524

035223
035224
035226
035232
035234
035236
035240
035246
035250
035254
035260
035262
035266
035266
035274
035276
035300
035300

MACYTT
DIAGNOSTIC
ERROR HANDLER ROUTINE
122737
001007
113737
004737

000001

001214

001114
035454

035222

27(654)
20%:

2's:

22%:
2$:

143706

001402
013716

022737
001001
000000

143672

001110
001162

4(%:

001162
030164

3%:

000042

3 ¥

6%:

000002

.SBTTL

PAGE 98

SEQ 0110

;JRUNNING IN APT MODE

(MPR
BNE
MOVR
JSR
BYTE
.BYTE

RAPTEN, ,$ENV
2%
$ITEMB,21S
PC,SATYS

TST

DSWR

JJHALT ON ERROR

#B1709,aSWR

JsHALT ON ERROR!
;:TEST FOR CHANGE [N SOFT=-SwR
;:LOOP ON ERROR SWITCH SET?

B8R

BPL

HALT

001000

15:05

8-AUG=-78

(KSWR

8IT

BEQ
MOV
TST

BEQ

0
0

22%

;:SET ITEM NUMBER AS ERROR NUMBER
; REPORT

FATAL

ERROR

TO APT

::APT ERROR LOOP

::SKIP IF CONTINUE

$LPERR, (SP)
$ESCAPE

MOV

, (SP)
$ESCAPE

(MP
8NE

#SENDAD
, a#4 2
6%

HALT

2 sNO,SKIP APT ERROR REPORT

;:BR

[F NO

;;FUDGE RETURN FOR LOOPING
;;CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE

::FUDGE RETURN ADDRESS FOR ESCAPE

;:ACT=11 AUTO-ACCEPT?
;:BRANCH IF NO
:IYES
;. ;RETURN

RT]

ERROR MESSAGE

TYPEOUT ROUTINE

. (3222822222322 2232332333232

023802380

222

RSt tRtRtRRnRRlll]

;*THIS ROUTINE USES THE ''ITEM CONTROL BYTE'" ($ITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' ($ERRTR),
;'AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
035302
035302
035306
035310
035312
035316

010046
005000
153700
001004

035320

013746

035324
035326
035330
035332
035334
035336
035340
035344
035350
035352
035354
035356
035362

104401

001171

$ERRTYP:

CLR
BISB
BNE

001114

001116

MoV

104407

104401
000000
104401

012057

.SCRLF

RO,-(SP)
RO

a#$
[ TEMB,RO

1%:

001256
035354

001171
035372

BEQ

2%:

3%:

TYPE

.WORD

TYPE
MOV

::SAVE RO
;;PICKUP THE ITEM INDEX

ITEM NUMBER IS ZERO, JUST

;.IF

(,
- (SP)
$ERRP

;;SAVE SERRPC FOR TYPEOUT
;;ERROR ADDRESS
2:G0 TYPE--OCTAL ASCIICALL DIGITS)

;;TYPE

THE

PC OF

..GET ouT
JADJUST THE

BR
DEC

ASL
ASL
ATl
ADD
Mov

::"'CARRJAGE RETURN'' & 'LINE FEED''

TYPOC(

000426
005300
006300
006300

006300
062700
012037
001404

TYPE
MOV

‘e

THE

INDEX

ERROR

SO THAT

IT WILL

WORK FOR THE ERROR TABLE

#$ERRTB,RO
(RO)+,2%

..FORM TABLE POINTER

;. ERROR MESSAGE’' POINTER GOES HERE

+SCRLF

(RO)+,4%

;;PICKUP ‘ERROR MESSAGE'' POINTER
;;SKIP TYPEQUT IF NO POINTER
;s TYPE THE ‘ERROR MESSAGE''

;:"'CARRJAGE RETURN'' & "LINE FEED"'

;:PICKUP 'DATA HEADER'' POINTER

CINCCA

NCV11

MACY1T 27(654)
DIAGNOSTIC
ERROR MESSAGE TYPEOUT ROUTINE

8-AUG-78

4525
6526
6527

035366
035370
035372
035374
035400
035402
035404
035406
035412
035414
035414
035416

001404

BEUW

CINCCA.PY

4528
4529
4530
4531
4532

4533
4534

4535
4536
6537
4538
4539
4540
4541
4562

035420
035422
035424
035430
035432

104401

000000
104401
011000
001004
012600
104401
000207

001171

¥
A

005710
001770
104401
000771
020040

035436

000

;:SKIP TYPEOUT [F O
;:TYPE THE 'DATA HEADER''

RTS

;. sRETURN

MOV
TYPO(
TST

a(RO) +,-(SP)

;;SAVE a(RO)+ FOR TYPEOUT
::GO TYPE--OCTAL ASCII(ALL DIGITS)
;1S THERE ANOTHER NUMBER?

MOV
TYPE

BEQ

TYPE

8%:

SEQ 0111

(RO) ,RO
7%
(SP)+,R0O

6%:

035432

PAGE 99

BNE

MOV

104402

::"DATA HEADER'' POINTER GOES HERE
;2 'CARRJAGE RETURN'' & 'LINE FEED"'
;:PICKUP ‘DATA TABLE'' POINTER
::GO TYPE THE DATA
;:RESTORE RO

5%:

7%:

013046

TYPE
.WORD
TYPE

15:05

BR
LASCIZ
.EVEN

.SCRLF

LSCRLF

(RO)

6%
.8%
’$

;' 'CARRJAGE RETURN'' & "LINE FEED'’

;:BR

::TYPE TWO(2) SPACES
..LOOP

;:TWO(2)

SPACES

4543
4544
4565
4546
4547

4548
4549
4550
4551
4552

4553
4554
4555

4556
4557

4558
4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569
4570
4571
4572

4573

4574
4575
4576
4577
4578
4579
4580
4581
4582

4583

4584
4585
4586
4587
4588
4589
4590

4591
4592
4593
4594
4595
4596

MACY11 27(654)
DIAGNOSTIC
APT COMMUNICATIONS ROUTINE

.SBTTL

8-AUG-78

15:05

PAGE

100

SEQ 0112

APT COMMUNICATIONS ROUTINE

'"ttfittt*tttttttttfitl’tttttitlttfitiitt*fittitfi*.tttttttttti'tittfltt

035436
035444
035452
035454
035462
035462
035464
035466
035472
035474
035502
035504
035512
035514
035520
035526
035532
035534
035540
035542
035544

035550

035552
035556
035564
035566
035574
035602

035606
035612
035614
035614
035620

035622
035626
035630
035634
035636
035644
035652
035656
035662
035666
035672
035674
035676
035700
035701
035702

112737
112737

000901
000001

035702
035700

$ATY1:
$ATY3:

112737

000001

035702

$ATYSL:

000403

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720

001376
163700

006200
010037
012737
000413
017637
062766
013746
004737
000000
105737
001416

005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207
000
000
000
035704
000200

$ATY(:

035700
000001

001214

000100

001215

000004
000002
001174

000004

001210

1%:

2%:

001210

001212
000004
000004
000002
177776
034372

001174

035€12
000004

3%:

5%:

10%:

001214
001174

000004
000002
001174
035702
035701
035700

BR
MOVB
MOV
MOV

TSTR
BEQ
CMPR
BNE
BITB
BEQ
MOV
ADD
TST
BNE
MOV

TSTB

BNE
SUB
ASR

11%:

001176
000004
12%:

$MFLG:
$LFLG:
$FFLG:

#1,8FFLG
#1,8MFLG
SATY(
#1,8FFLG

::TO REPORT FAYAL ERROR
::70 TYPE A MESSAGE

RO,~(SP)
R1,-(SP)
SMFLG
5%

J;PUSH RO ON STACK
;;PUSH R1 ON STACK
:2SHOULD TYPE A MESSAGE?
;:IF NOT:
BR

;0IF NOT:

#APTENV , $ENV

;27O ONLY REPORT FATAL

#APTSPOOL ,$ENVM ; ;SHOULD SPOOL MESSAGES?

3%
24 (SP) ,RO

;:1F NOT:
BR
;GET MESSAGE ADDR.

$MSGTYPE
1%

;:SEE IF DONE W/ LAST XMISSION?
;2IF NOT:
WAIT

520)+

;;FIND END OF MESSAGE

#2.46(SP)

RO, $SMSGAD
$MSGAD ,RO
RO
RO, $MSGLGT

;:BUMP RETURN ADDR.

:;PUT ADDR IN MAILBOX

;:SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
J:PUT LENGTH IN MAILBOX

gg.$MSGTYPE

J:TELL APT TO TAKE MSG.

MOV

a4 (SP) ,4%

;:PUT MSG ADDR

SC.STYPE

;:CALL

ADD

JSR
.WORD

TSTR
BEQ
TST
BEQ
TST
BNE
Mov
ADD

INC
CLRB
CLRRB
CLRB
MOV
MOV
RTS

.BYTE
.BYTE
.BYTE
.EVEN

APTSI1ZE=200

ERROR

;JOPERATING UNDER APT?

MOV
MOV

MOV

035702

MOVB
MOVB

#2.,4(SP)
177776,-(SP)

$FFLG
12%
$ENV
12%
$MSGTYPE
11%
@4 (SP) ,$FATAL
#2.4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+ ,R1
(SP)+_RO
PC
0
0
0

[N JSR L INKAGE

::BUMP RETURN ADDRESS
::PUSH 177776 ON STACK
TYPE MACRO

;:SHOULD REPORT FATAL ERROR?
;:IF NOT:
BR
;;RUNNING UNDER APT?
;:IF NOT:
BR
;:FINISHED LAST MESSAGE?
;o
IF NOT:
WAIT
;.GET ERROR #
;:BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
;;CLEAR FATAL FLAG
;:CLEAR LOG FLAG
:;CLEAR MESSAGE FLAG
2;POP STACK INTO R
;;POP STACK INTO RO
;JRETURN
:IMESSG. FLAG
;:LOG FLAG
;;FATAL FLAG

[gn
X an

CINCCA NCVT
CINCCA P11

4597
4598
4599
4600
4601
4602
4603
4604
4605
4606

4607

4608

4609
4610

4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624

4625
4626
4627
4628
4629
4630
4631

4632
4633
4634
4635
4636
4637
4638

4639
4640
4641
4642

DIAGNOSTIC

MACY11 27(654)

APT COMMUNICATIONS ROUTINE

8-AUG-78

15:05

J
9
PAGE 101

SEQ 0113

APTENV=001
APTSPOOL-100
APTCSUP=040
POWER DOWN AND UP ROUTINES
.SBTTL

000001
000100
000040

;;itttt**fitttt*tttt**tiit*ttifitttttttittttttttttttttttt'tttitttlt

035704
035712
035720
035722
035724
035726
035730
035732
035734
035740
035744
035752
035754

012737
012737
010046
010146

010246
010346
010446
010546
017746
010637
012737
000000
000776

036044
000340

143200
036050
035756

000024
000026

;POWER DOWN ROUTINE
#SILLUP,a#PWRVEC

$PWRDN: MOV
MoV
MoV
MoV

MOV
MOV
MoV
MOV
MOV
MoV
MoV
HALT
BR

000024

;;SET FOR FAST UP

#340,9#PWRVEC+2 ;;PRIO:7
;:PUSH RO ON STACK
RO,-(SP)

R1.,-(SP)

R2,=(SP)
R3,-(SP)
R4 ,-(SP)
R5,-(SP)
aSWR,-(SP)
SP,$SAVR6

#SPWRUP ,a#PWRVEC

.~2

;:PUSH R1 ON STACK
;:PUSH
22PUSH
:sPUSH
:;PUSH
2 ;PUSH
2 :SAVE

R2 ON STACK
R3 ON STACK
R4 ON STACK
RS ON STACK
9SWR ON STACK
SP

;,SET UP VECTOR

: JHANG JP

::**ttttfit*tt*****tttttt*t't***ttttttttt**t*tttfittttti*tttttitttt

035756
035764
035770
035774
036000
036002
036006
036010
036012
036014
036016
036020
036022
036030
036036
036040
036042
036044
026046
036050
036052
036060

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

036052
000002
000000
000776
000000
005015
000122

036044
036050
036050
036050

000024

143132

035704
000340

000024
000026

;POWER UP ROUTINE
H#SILLUP,#PWRVEC ;.SET FOR FAST DOWN
S$PWRUP: MOV
::GET SP
$SAVR6, SP
MoV
$SAVR6
;:WAIT LOOP FOR THE TTY
CLR
$SAVR6
;;WAIT FOR THE INC
1$:
INC
1%
.:0F
WORD
BNE
(SP)+,QSWR
:2POP
STACK INTO aSWR
MoV
(SP)
+,R5
;.POP
STACK INTO R5
MOV
(SP)
+,R4
:.POP
STACK
INTO R4
MoV
(SP)+
,R?
;;POP
STACK
INTO R3
MoV
(SP)+,R2
;.POP
STACK
INTO RZ2
MoV
(SP) +,R1
2.POP STACK INTO R1
MOV
(SP) +,R0
;.POP STACK INTO RO
MoV
#SPWRDN
,d#PWRVEC
;.;SET UP THE POWER DOWN VECTOR
MOV
#340,a#PWRVEC+2 ;;PRIO:7
MOV
$PWRMG:

047520

042527

TYPE

.WORD
RTI
$ILLUP: HALT
BR
$SAVR6: 0
$POWER: .ASCIZ
.EVEN

$POWER

.~2
<15><12>''POWER"’

;REPORT THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER
;. THE POWER UP SEQUENCE WAS

STARTED

;. BEFORE THE POWER DOWN WAS COMPLETE
;:PUT

THE

SP HERE

[on
¥ an

NCVTT
CINCCA
CZNCCA LN

MACY11 27(654)
DIAGNOSTIC
ROUTINE TO SIZE MEMORY
.SBTTL

L643

6644
4645
L646
L6467
4648
L649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662

L663
4664

4665

4666

4667
4668
4669

4670
4671

4672
4673
4674
4675

B8-AUG-78

15:05

PAGE 102

SEQ 0114

ROUTINE TO SIZE MEMORY

2222322223223 2233323232322323228222032282220Z22
82 00220 2R0dRRRdRt

*CALL

PC,$SIZE

JSR

WITH KT11 OPTION

o
RETURN
J*SLSTAD WILL CONTAIN:

WITHOUT KT11 OPTION

-- LAST VIRTUAL ADDRESS OF THE LAST BANK

-- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

;*8LSTBK WILL CONTAIN THE LAST BANK AS A SAF

;*$KT11 IS THE MEMORY MANAGEMENT KEY
'BITO? O DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL
*BIT15
= 0 DON'T HAVE MEMORY MANAGEMENT OPTMION
010046
010146
010246
010346
013746
013746
010600
104400

012637
012701

105727
000200
160070
012737
005737
052737
012737
012737
005046
012702
012703
012762
011622
062716
077307
012742
005042
012737

012737
000401

022626
005237
012737
005737
062712
023712
101371

;

DETERMINED BY ROUTINE

$SI1ZE:

MOV

RO,-(SP)

;.SAVE RO ON THE STACK

MOV
MoV

R2,=-(SP)
R3,-(SP)

;:SAVE R2 ON THE STA(K
;o SAVE R3 ON THE STA(CK

MOV

MOV
0%
MOV

000004
000006

R1,-(SP)

;.SAVE R1

ON THE STA(K

@¥ERRVEC,~(SP)
;.SAVE PRESENT ERROR VECTOR PS & PC
@#ERRVEC+2,-(SP)
SP,RO
;SAVE THE STACK POINTER

::SET THE ERRVEC PS TO THE PRESENT PS
TRAP

MOV

000006
003776

$KT11:
036276

000004

036404
000340

036120
000250
000252

172340
000010
077406

177740

177572
100000

000200
177600

036234

000020
177572

036266
143776
000040
172356

000004
172516

2%:
000004

MOV
TSTR
.WORD

#3776 ,R1
(PC)+
200

Mov

A#SKTNEX ,a#ERRVEC

MOV
MOV

HKTERR,Q#MMVEC
#340,34MMVEC+2

B8PL

TST
BIS

1%:

3s:

4%:

(SP)+, a#ERRVEC+2

CLR
MOV
MOV
MOV

MOV
ADD
SOB
MOV
CLR
MoV
MoV
BR
cMp
INC
MOV
TST

ADD

CMP
BHI

$CORE

;PUSH OLD PSW AND PC ON STACK

::SAVE THE PSW IN Q#ERRVEC+?

::SETUP ADDRESS
: ;USE MEMORY MANAGEMENT?
;;SET TO USE MEMORY MANAGEMENT

;:BR IF NO

;.SET FOR TIMEOQUT

a#SR0O
#100000,8KT11

;:KT11 ARE YOU THERE?
s2YES==SET KT11 KEY

-(SP)
#KI1PARQ ,R2
#°D8,R3

;s INITIALIZE FOR "PAR"' LOADING
: :ADDRESS OF FIRST 'PAR'
;:LOAD EIGHT 'PAR.'S'' AND EIGHT 'PDR.'S"’

(SP), (R2)+
#200, (SP)
R3,1$
#177600,~(R2)
-(R2)
#2% ,a#ERRVEC
#20,#SR3
3%
(SP)+,(SP) +
a#SRO

::LOAD 'PAR"’
;:UPDATE FOR NEXT ‘PAR"’
;oLOOP UNTIL ALL EIGHT ARE LOADED
;:SETUP KIPAR7 FOR 1/0
;;SETUP KIPARG FOR TESTING
;s CATCH TIMEOUT IF NO SR3
; sENABLE 22 BIT MODE
;;THIS PDP-11 HAS A SR3 REGISTER
;;CLEAN OFF THE STACK--NO SR3
;- TURN ON MEMORY MANAGEMENT

#776406,-40(R2)

;.SET IN CASE OF ERROR

;:PDR
= 4K, UP, READ/WRITE

#SKTOUT ,@#ERRVEC ;;SET FOR TIME OUT
143776
;. TRAP ON NON-EX-MEM

#40, (R2)

A#KIPAR7, (R2)
4%

:;MAKE A 1K STEP
;. LAST ONE?
2 :NO==TRY [T

NCVIT
CINCCA
CINCCA. P11

NCVT
CINCCA.P11
CINCCA

4697
4698
4699
4700
470
4702
4703
4704
4705
4706
4707
4708
4709
4710
7N
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723

036266
036270
036274
036276
036304
036312
036314
036320
036324

036406

MACY11 27(654)
DIAGNOSTIC
ROUTINE TO SIZE MEMORY

011202
005037
000421
042737
012737

005002
062701
062702
005711
022701
001370
162701
162702
010006
012637
012637
010137
010237
012603
012602
012601
012600
000207
000000
000000
000000
000776

177572

100000
036334
0040090
000040

036120
000004

$KTOUT: MoV
CLR
BR
$KTNEX: BIC
MOV
$CORE:
CLR
ADD
1%:

177776

004000
000040

15:05

8-AUG-78

L 9
PAGE 103

(R2) ,R2

a#SR0O

$SI1ZEX
#100000,$KT11

#$CROUT ,@#ERRVEC

;:GET LAST BANK+1

;. TURN OFF MEMORY MANAGEMENT
s.KT11 NON-EXISTENT
;.SET FOR TIMEOUT

R2
#4000 ,R1

:SET UP BANK
;- INCREMENT BY 1K

(R1)
8177776 .R1
1%

Z:TRAP ON TiME OUT
SSLAST ONE
2 :NO=-=TRY AGAIN

#40.R2

: :DROP BACK

#4640 ,R2

#4000,R1

$CROUT:
$SIZEX:

SEQ 0115

RO, SP

;21K STEP

L RESTORE

THE

STACK

(SP)+ ,Q#ERRVEC+2 ;,;RESTORE ERROR VECTOR

000006
000004
036400
036402

(SP) + ,a#ERRVEC
R1,8LSTAD
R2,$LSTBK

(SP) +,R3
(SP)+,R2
(SP)+ ,R1
(SP)+,R0

$LSTAD:
$LSTBK:

KTERR:

.
.

0
0

KTERR

: sLAST ADDRESS
;s LAST BANK

;;RESTORE
;;RESTORE
; RESTORE
;;RESTORE

R3
R2
R1
RO

;- CONTAINS THE LAST ADDRESS
22CONTAINS THE LAST BANK

;KT11

FAILURE

CINCCA NCVIY
CINCCA P

8-AUG-78
MACY11 27(654)
SAVE AND RESTORE RO-R5 ROUTINES

DIAGNOSTIC

.SBTTL

(724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739

4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762

4763

4764
4765
4766
4767
4768

M9
PAGE 104

SEQ 0116

SAVE AND RESTORE RO-RS ROUTINES

2222332323233223332332323238223322232232222222R02RRR
iR 22ttt Rdd

S *SAVE RO-RS
JwCALL:
bl{

SAVREG

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
1

IATOP===(+16)

;% $2===(+18)
;% +4===RS
sx +6=-==R4

;% +8-=-R3

t%410~===R2
;%+12--<R1
;%+14-==R0

036410
036410
036412
036414
036416
036420
036422
036424
036430
036434
036440
036444

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
Mov
MOV
MOV
MOV
MOV
MOV
RTI

RO,-(SP)

R1,-(SP)

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

R5,-(SP)

22(SP) ,~(SP)
22(SP) ,~(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

2 :PUSH RO
;sPUSH R1
:;PUSH R2

STACK
STACK
STACK
STACK
::PUSH R3
;:PUSH R4
STACK
STACK
;:PUSH RS
;sSAVE PS OF MAIN FLOW
:3SAVE PC OF MAIN FLOW
;:SAVE PS OF CALL
;s SAVE PC
CALL

222222

4740
4761
4762
4743
4764

15:05

;*RESTORE RO-R5

;«CALL:
. %

036446
036446
036452
036456
036462
036466
036470
036472
036474
036476
036500
036502

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022‘

$RESREG:

RESREG
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

; RESTORE PC OF CALL
; ;RESTORE PS OF CALL
. sRESTORE PC OF MAIN FLOW

:;RESTORE PS OF MAIN FLOW

;;POP STACK INTO RS

;:POP STACK INTO R4
;;POP
::POP
::POP
;;POP

STACK INTO R3
STACK INTO R?
STACK INTO R1
STACK INTO RO

CINCCA

LSAR

CINCCA.PIT

.SBTTL

15:05

8-AUG-78

PAGE

105

SEQ 0117

INTEGER MULTIPLY ROUTINE

':'ttfi't.ttlififii*fittttt‘i'itttl't.t!fi'fi.!t.t.tttt.t.ttttt"tt't't

MOV
MOV

JSR

RE TURN

MULTIPLER,=-(SP)
MULTIPLICAND,~(SP)
PC,a#SMULT

;sPRODUCT IS ON THE STA(K

tecALL

PRODUCT

4769
4770
&7
6772
677%
4774
4775
4776
6777
4778
W779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4,801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815

MACY1T 27(654)
DIAGNOSTIC
INTEGER MULTIPLY ROUTINE

036504
036504
036506
036510
036512
036514
036520
036522
036524
036526
036532
036534
036536
036540
036544
036546
036550
036552
036554
036556
036560
036562
036564
036566
036570
036572

036574
036576

036602
036606
036610
036612
036614

PMULT:

010046
010146
010246

005046
016601
100002

005216
005401
016602
100002

005316
005402
012746
005000

000012

000014

000021

14(SP) ,R2

1%:

(SP)
R2
#17.,-(SP)
RO

2%:
3%:

103001
060200
006000
006001

005316
001372
022616
001403
005400
005401
005600
005726
010066
010166
012602
012601
012600
000207

RO,=(SP)
R1,-(SP)
R2.-(SP)
=-(SP)
12(SP) ,R1
1%
(SP)
R1

;:BR IF PLUS

..SET THE SIGN KEY

::MAKE THE MULTIPLICAND POSTIVE
;oGET THE MULTIPLIER
;<8R IF PLUS
:JUPDATE THE SIGN KEY
::MAKE THE MULTIPLIER POSTIVE
;oSET THE LOOP COUNT

;oSETUP FOR THE MULTIPLY LOOP

;;DON'T ADD IF MULTIPLICAND = 0

TST
MOV
MOV
MOV
MOV
MOV
RTS

;:BR

IF NO

;s SHOULD PRODUCT BE NEGATIVE?
;GO TO EXIT IF NO
;s YES==-SO MAKE IT SO

RO,12(SP)
R1,10(SP}
(SP)+,R2
(SP)+,R1

;;CLEAR SIGN INFO. OFF OF STACK
::PUT THE PRODUCT ON THE STACK (MSB'S)
;:LSB'S
:;POP STACK INTO RZ
::POP STACK INTO R1
;:POP STACK INTO RO

(SP)+,(SP)

5¢:

;sPUSH R2 ON STACK
;s CLEAR THE SIGN KEY
;.GET THE MULTIPLICAND

J;POSITION THE PARITIAL PRODUCT AND
;s THE MULTIPLICAND
J:HAS ALL BITS OF THE MULTIPLICAND BEEN DONE?

4%:

000012
000010

::PUSH RO ON STACK
::PUSH R1 ON STACK

RO
R1
RO
+
(SP)

(SP)+,RO

CINCCA NCVIT
CINCCA.P1T

DIAGNOSTIC

MACY11 27(654)

INTEGER DIVIDE ROUTINE

.SBTTL

4816
4817
4818
4819
4820
4821
4822
4,823
4824
4825
4826
4827
4828

PAGE 106

SEQ 0118

INTEGER DIVIDE ROUTINE

22222242223 223233 2233233223222

3323232328222 2822

it tsltld)

**THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER

;*DIVIDEND BY
A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
;*A 16=B]IT TWO'S (OMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER.
;*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE
;*SAVE SIGN AS THE DIVIDEND.

;'CALL:

M
S

MOV
MoV

it
I
S
M
S
o*

JSR
RE TURN
V0
V'

4829
4830

4831
4832
4833
4834
4835

MOV

LOW DIVIDEND,-(SP) ;:THE HIGH DIVIDEND MUST BE < 1/2
AS LARGE AS THE DIVISOR
HIGH DIVIDEND,-(SP);

DIVISOR,=-(SP)

PC,8DIV
IMPLIES
IMPLIES
'¢'-0
=1

;;QUOTIENT & REMAINDER ARE ON THE STACK
NO ERROR
ERROR OCCURRED
DIVIDE OVERFLOW OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

4836
4837
4838

4839
4840
4841
4842
4843
4844
4845

036616
036616
036620
036624
036626

4847
4,848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4,866
4867
4868
4869

036632
036634
036636
036642
036646
036652
036654
036660
036662
036664
036666
036672
036674
036676
036704
036710
036712
036716
036720
036722
0367264
036726
036730

6846

8-AUG-78

8 10

15:05

036630

104400

042716
010046
010146

STACK

NO ERROR

OVERFLOW

DIVIDE BY ZERO

S*
o

TOP
+2

REMAINDER
QUOTIENT

ALL ZEROS
ALL ZEROS

ALL ONES
ALL ONES

8IC
MOV
MOV
MOV
Mov
CLR

#17,(SP)
RO.,~-(SP)
R1,~(SP)
R2.~(SP)
R3,-(SP)
-(SP)

;:STRIP AWAY CONDITION CODES
;:PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
:;PUSH R3 ON STACK
:;SAVE A PLACE FOR SIGNS

MoV

24(SP) ,R1

:;PICKUP THE DIVIDEND

$D]V:

000017

010246

010346
005046
012746
016601

016600
100005

105366
005400
005401
005600

016602
002407
003011
052766
012700
000424
005266
000401
005402
000241
000405
006100
010003

Mov

000021
000024
000022

MOV

BPL
DECB
NEG

000003

1%:

000020
000003
177777
000002

TRAP

000014

NEG
SBC
MOV
BLT

3%:
4%:
5%:

22(SP)
RO

1%
3(SP)
RO

R1
RO
20(SP) ,R2
2%

BGT
8IS

38
#3,14(SP)

MOV

2%:

#17..,-(SP)

#-1,R0

::PUSH OLD PSW AND PC ON STACK

:;SETUP THE ITERATION COUNTER
::CHECK THE SIGN
;;KEEP TRACK OF THE SIGN
;;AND NEGATE THE ORIGINAL
. sNUMBER

:;PICKUP THE DIVISOR
;;CHECK THE SIGN

..DIVISOR OF 0 IS A NO-NO
JSET 'V R T

,.SET REMAINDER TO ALL ONES
SEXIT

égc

§£SP)

,.KEEP TRACK OF DIVISORS SIGN

NEG
cLC
B8R
ROL

::NEGATE THE ORIGINAL NUMBER
::CLEAR ‘'C"’
;:START FORMING QUOTIENT
;;POSITION MSB'S

MOV

6%
RO

RO,R3

;. COPY

NCVIN
CINCCA.P1T
CINCCA

4870
4871
4872
4873
4874
4875
4876
4877
4,878
4879
4880
4881
4,882
4883
4884
4885

4886

4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897

036732
036734
036736
036740
036742
036744
036746
036750
036752
036760
036762
036764
036766
036770
036772
036774

037000
037002
037004
037006
037010
037014
037020
037022
037024
037026
037030
0370%

DIAGNOSTIC

MACY11 27(654)
INTEGER DIVIDE ROUTINE

8-AUG-78

060203

ADD
BCC
MOV

103001

010300
006101
005316
001370
005701
100005
052766
005000

6%:

000002

005726
005716
002004
005400

105066

005316
005726

001401
005401
010166
010066

012603
012602
012601

012600
012666
000002

DEC
BNE

TST
BPL

000014
7%:
8%:

010001

ROL

BIS
CLR
MOV
TST
TST

BGE

000001
9%:

000020
000016

000002

10%:

NEG
CLRB
DEC
TST
BEQ
NEG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

15:05

c 10

PAGE 107

6%
R3,RO
R1

SEQ 0119

;:COMPARE DIVIDEND & DIVISOR

;:BR IF DIVIDEND > DIVISOR

:;REMAINDER AFTER THIS LOOP

:;QUOTIENT BIT ENTERS HERE
s ;DONE?

;:BR IF NO

; ;OVERFLOW?

#2,14(SP)
RO
RO,R1
+
(SP)
(SP)

9%
RO
1(SP)
(SP)

(SP)+

10%
R1
R1,20(SP)
RO,16(SP)
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,R0O
(SP)+,2(SP)

;sBR IF NO

JJSET "V'' IN RETURN STATUS WORD
;.SET REMAINDER TO ALL ZEROS
;. COPY REMAINDER INTO QUOTIENT
;;CLEAR COUNTER FROM STA(CK
;;REMAINDER SIGN CORRECTION NEEDED?
:sBR IF NO
;JNEGATE REMAINDER
;s CLEAR SIGN

;:BUT DON'T FORGET QUOTIENT
;2QUOTIENT SIGN CORRECTION NEEDED?
;:BR IF NO
::NEGATE QUOTIENT
;;RETURN QUOTIENT AND
;JREMAINDER TO USER

;;POP STACK INTO R3
;:POP STACK INTO RZ
;;POP STACK INTO R1
;;POP STACK

INTO RO

J:SETUP TO RETURN CONDITION CODES
. sRETURN

CINCCA

NCVM

DIAGNOSTIC

MACY11 27(654)

15:05

8-AUG-78

D 10

PAGE 108

CINCCA.PI

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

zggg

.SBTTL

4900

";ttttttttl'tiitt*l‘fittttttttttittfitttttfittttttttttttttttttttttt'tt

4903
4904

;*POSITIVE.
;*CALL

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

4901
4902

:*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
:*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

4905

MOV

4907

RE TURN

$DR2D:

SAVREG
MOV

4906

4908

4909
4910

4911
4912

4913
(914
4915

(916

4977
4918
4919

4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931

4932

4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944

4945

4946

037036
037040

037044
037050
037054

012700
010066
012201

037060
037066
037072

012737
012704
012705

037056

037076
037100
C37102
037104
037106
037110
037112
037114
037116
037120
037122
037124

037130

110320

000012
037146
037150

1%:
2%:

3%:

000060

MOV
(017
MOV

#$DECVL RO
RO,2(SP)
(R2)+,R1

MOV
oV
MOV

#10.,4%
#STNPWR ,R4
#STNPWR+2
,RS

MOV

037134

2(SP) ,R2

CLR
SUB
SBC
SUR
BLT
INC
BR
ADD
ADC(
ADD
CMP
BIS

MOVB

(R2)+,R2

::SAVE REGISTERS
;:PICKUP THE DATA POINTER

::GET ADDRESS OF ''$DECVL'' STRING
:;PUT ADDRESS OF ASCIZ STRING ON STA(K
::PICKUP THE BINARY NUMBER
::SET UP TO DO 10 CONVERSIONS
; :ADDRESS OF TEN POWER

R3
(R4) ,R1
RZ
(RS) ,R2
3%
R3
2%
(R4) + ,R1
R2
(R4)+,R2
(RS)+,(RS)+
#'0,R3

::CLEAR PARTIAL
;:SUBTRACT TEN POWER

(PC)+
O
1%
(RO) +

2 sDONE?

R3,(R0O)+

::BR IF TEN POWER TO LARGE
::ADD 1 TO PARTIAL
;. LOOP

:;RESTORE SUBTRACTED VALUE
;;MOVE TO NEXT TEN POWER
;2 CHANGE PARTIAL TO ASCI!

J:SAVE IT

DEC
4%:
.WORD
BNE
CLRB
RESREG
RTS
$INPWR: 145000
35632
160400
2765
113200

037162

041100

::21.0E06

103240

::1.0€05

023420

23420

::1.0€04

001750

1750

;:1.0E03

037160

037164

4949

037172

4951

005003
161401
005602
161502
002402
005203
000772
0624601
005502
062402
022525
052703

037216
000002

::THE FIRST ADDRESS OF ASCIZ

;1S ON THE STACK

005327
000000
001357
105020
1044174
000207
145000
035632
160400
002765
113200

037166

4950

012202

000002

PC.,a#$DB2D

::POINTER TO LOW WORD OF BINARY NUMBER

037132
037134
037136
037140
037142
037144
037146
037150
037152
037154
037156

4947

4948

104413
016602

JSR

#PNTR,~(SP)

000230

000017

037170

000001

037174

000000

037176

230

17
1

::BR IF NO
; : TERMINATOR

;;RESTORE REGISTERS
; :RETURN
::1.0E09

::1.0E08
::1.0E07

SEQ 0120

NCVI
CINCCA
CINCCA.PI
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965

037200
037202

037204
037206
037210
037212
037214
037216

£ 10

MACY11 27(654)
B8-AUG-78
15:05
PAGE
DIAGNOSTIC
DOuUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

000000
000144
000000
000012
000000
000001
000000

;:1.0E02

;21,0801

;:1.0€00

: R2Z2ZXEXXX2XXZIXAZARZAZZAZAZARARRS222 2222222222

R RRRdRRRRRlld)

«THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN
*UNSICNED DECIMAL ASCIZ NUMBER.

;=CALL

MOV

RE TURN

$SR2D:

MOV

64967
4968
4969

4970

0
844

SEQ 0121

$DECVL: .BLKkB
12.
;;RESERVE STORAGE FOR ASCIZ STRING
SBTTL
SINGLz LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

000014

4966

49771
4972
4973
4974
4975
4976
4977

109

037232
037240
037244
037250
037254
037260
037262

016637
012746
004737
062716
012666
000207
000000

000002
037262
037036
000005
000002
006000

037262

JSR

PC.a#$582D

;:PUT BINARY NUMBER ON THE STA(K

;. CALL

:;ADDRESS OF

THE

ST AS(CIZ CHAR.IS ON THE STACK

2(SP) 1%

::SAVE BINARY NUMBER

#5,(SP)
(SP)+,2(SP)

;:ONLY ALLOW FIVE (HARA(CTERS
J;PICKUP POINTER

MOV
JSR

#18%,-(SP)
PC.a#s$DB2D

RTS
.WORD

PC
0,0

ADD
MOV
1%:

NUMBER, - (SP)

;:SET POINTER
;oCALL DOUBLE LENGTH CONVERT
:sRETURN

CINCCA

NCVIY

CINCCA,. P

DIAGNOSTIC

TRAP DECODER

MACYTY 27(654)
.SBTTL

L4978
4979
4980
4981
4982
4983
4985

4989
4990
4991

4992

4993

499
4995
4996
(997

15:05

PAGE 110

SEQ 0122

TRAP DECODER

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

THE "TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRES>
;*OF

THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED [T WILL

;*GO TO THAT ROUTINE.

(984

4986
4987
4988

B8-AUG-78

037266
037270
037274
037276
037300
037302
037306

010046
016600
005740

000002

006300
016000
000200

037322

$TRAP:

111000

017646
016666
000002

000004

RO,-(SP)
2(SP) RO

TST
MCvR
ASL
MOV
RTS
;o THIS

037310
037332
037320

MOV
MOV

0000C2

-(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

IS USE

TO HANDLE

$TRAPZ2: MOV
MOV

;*THIS

:.BACKUP BY 2
;;GET RIGHT BYTE COF TRAP
;;POSITION FOR INDEXING
;. INDEX TO TABLE
2:GO TO ROUTINE

"'GETPRI'' MACRO

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

RT]

.SBTTL

THE

;:SAVE RO
;;GET TRAP ADDRESS

;;MOVE
;;MOVE

THE PC DOWN
THE PSW DOWN

JJRESTORE

THE

PSW

TRAP TABLE
TABLE

CONTAINS THE

STARTING ADDRESSES OF

;*BY THE "'TRAP’' INSTRUCTION.

ROUTINES CALLED

ROUT INE

$TRPAD: .WORD

$TRAP2

037322
037324
037326
037330
037332
037334

037310
034372

037336

033054

$GTSWR

037340
037342
037344
037346
037350
037352

033004
033266
033406
033560
036410
036446

;. CALL=CKSWR
$CKSWR
$RDCHR ; ; CALL=RDCHR
$RDLIN ;;CALL=RDLIN
$RDOCT
;. CALL=RDOCT
$SAVREG ;;CALL=SAVREG
$RESREG ;;CALL=RESREG

03470C
034654
034714
033662

THE

$TYPE

$TYPGC
$TYPOS
$TYPON
$TYPDS

;:CALL=TYPE

;;CALL=TYPOC
;;CALL=TYPOS
;. CALL=TYPON
. ;CALL=TYPDS

TRAP+1(106401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4 (104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

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

TEST FOR CHANGE IN SOF T=SWR
TTY TYPEIN (HARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-R5 ROUTINE
RESTORE RO-RS ROUTINE

TYPE
TYPE
TYPE
TYPE

OCTAL NUMBER (WITH LEADING ZEROS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

CINCCA

N(CVIT

CINCCA. PN

5024
5025
5026
5027
5028

MACY11 27(654) B8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP
.SBTTL
F?i;géA JgR

004737

046042

037360
037366
037370
037374
037376
037400
037406
037410
037414
037416

032777
001004
004537
000000

000100

037420
037426
037430
037434
037436
037440
037446
037450
037454
037456

032777
001004
004537
000400
040500
032777
001004
004537
002400
040502

000200

037460
037466
037470
037474
037476
037500
037506
037510
037514
037516

032777
001004
004537
001000
0460504
032777
001004

000400

004537
003000

040102

037520
037526
037530
037534
037536
037540
037546
037550
037554
037556

032777
001004

001000

037560
037566
037570
037576

032777

000020

141352

052777

000001

142160

017737

142152

040514

0373564

037602
037604

0460474

032777

001004
004537
002000
0460476

141552

040102

000001

141532

001400
040510
032777
001004
004537
003400
040512
001011

105777
100375

1%:

040102

141512

040102

000002

141472

040102

141452

040102
000004

141432

141412

040102

000010

A TO D FIELD SITE AND ADJUSTMENT LOOP
PC.CTR.CG
JTEST FOR CTRL COR G

8IT
BNE
JSR
0

#SW06,aSWR
1%
RS,CONVRT

817

#5W00,aSwR

CAMOG)

BNE
JSR
BIT10
CAMOG?2

23
RS,CONVRT

;CAMERA #1

2%:

141372

;TEST IF CAM 0 G=1
. CONVERT
;CAMERA O
;STORE RESULTS
;TEST IF CAM O G=2
; CONVERT
JGAIN = 2

BIT
#SW7 ,dSWR
BNE
3%
JSR
RS, CONVRT
BIT8
CAM1G]
3%:
BIT
#SW01,aSwR
BNF
4%
JSR
RS5,CONVRT
BIT10'BIT8
CAM1G2
;CAMERA #2
4%:
BIT
#SW8,dSWR
BNE
5%
JSR
RS5.CONVRT
8IT9
CAM2G1
5%:
8IT
#SW2 ,aSWR
B8NE
6%

;TEST IF CAM 1 G=1

CAM2G?2
:CAMERA #3
6%:
8IT
BNE

JRESULTS

JSR

040102

142154

G 10
PAGE 111

JSR
RS, CONVRT
BIT10.BIT9

040506

004537

15:05

#SW9,aSWR
7%
RS, CONVRT

BIT9'BIT8
CAM3G1
7%.
BIT
#SW3,aSWR
BNE
108
JSR
RS.,CONVRT
BIT10.BI1T9!BIT8
CAM3GZ
;JOYSTICK
10s$:
BIT
#SW4 ,aSWR
BNE

11%:

CALRPT

; CONVERT
; CAMERA 1
;STORE RESULTS
:TEST IF CAM 1 G=¢

. CONVERT
:CAMERA 1 GAIN - 2
JRESULTS

JTEST IF CAM 2 G=1

; CONVERT
;CAMERA #2
JRESULTS
;TEST IF CAM 2 G-2
; CONVERT
;GAIN - 2

;TEST IF CAM 3 G=1
; CONVERT

;CAMERA #3

JRESULTS

;TEST 1IF CAM 3 G=¢

; CONVERT
;GAIN = 2
JRESULTS

JTEST IF JOYSTICK

BIS

#B]T0,aSFR

;ASK FOR JOYSTICK

MOV

aJoy,JoYG

;SAVE THE RESULT

ISTR
BPL

aSFR
11%

;WAIT FOR JOY DONE

SEQ 0123

NCV11
CZNCCA
CINCCA.P11

W= O V00NN
NN —

b
ek
D
wed
e
d e
b
e
b v
b vd od

PNOPNOPNIND)
e = ed b e b b b

(VL IV LV TV, AV, TV LV, AL T RV LV, LV RV, AV, |

5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5C87
5088
5089
5090
5091
5092
5093

15:05

MACYTT 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

H 10
PAGE 112

SEQ 0124

;NOW TEST IS TYPEOUT IS ENABLED
037612
037616
037620
037622
037626
037632

037634
037640
037642
037644
037650
037654

004537
000100
000405
104401

004537
040474
004537
000001
000405

040060

040516
0460412
040060

104401

040535
040412

037656
037662
037664
037666
037672
037676
037700
037704
037706
037710
037714
037720

004537
000200
000405

040060

037722
037726
037730
037732
037736
037742
037744
037750
037752
037754
037760
037764

004537
000400
000405

004537

040412

037766
037772
037774
037776
040002
040006
040010
040014
0460016
040020
040024
040030

004537
001000
000405

040060

004537
040476

104401

004537
040500
004537
000002
000405
104401

004537
040502

104401

004537
040504
004537
000004
000405
104401

040506

104401

004537
040510
004537
000010
000405
104401

004537
040512

CALRPT:

1%:

2%:

3%:

A
¥

5%:

040631

6%:

040667
040412

R5, CAMUNP

CAMOTX

;BR IF SET
;REPORT CAMERA #0

JSR

RS5,CKTSWR

JTEST BIT O

2%
CAMOTW

;REPORT G-2

RS,CKTSWR

JTEST BIT 7

3%
CAM1TX
R5, CAMUNP

;BR IF SET

R5,CKTSWR

;TEST BIT 1

CAMOGY

BITO

7%:

;REPORT

VALUES

;REPORT CAMERA #1
;REPORT VALUES

CAM1TW
RS, CAMUNP

JREPORT CAM 1 G=¢

RS,CKTSWR

;TEST BIT 8

;JBR IF SET

RS, CAMUNP

sREPORT

JREPORT CAMERA #/
VALUES

RS,CKTSWR

;TEST BIT 2

6%
CAM2TW
RS, CAMUNP

;REPORT CAMERA #2 G=2

RS, CKTSWR

;TEST BIT 9

;JBR IF SET

RS, CAMUNP

JREPORT VLAUES

CAM3TX

040650
040412
040060

BR
TYPE,
JSR

BIT6

CAM2TX

040612
040412
040060

JTEST BIT 6

A 3

040573
0460412
040060

RS,CKTSWR

RS, CAMUNP

040554
040412
040060

JSR

RS,CKTSWR
108

CAM3TW

RS, CAMUNP

JREPORT CAMERA #3
;TEST BIT 3

JREPORT CAMERA #3 G-2

CINCCA N v
CINCCA P11

5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144

040032
040036
040040
040042
040046
040052

004537
000020
000405

040060
040064
040066
040074

040054

040076
040100

MACYT11 27(6564)

8-AUG-78
A TO D FIELD SITE AND ADJUSTMENT LOOP

DIAGNOSTIC

10%:

040060

1'$
JOYTW
R5, CAMUNP

JREPORT JOYSTICK

JMP

FSITE

037354

11¢%:

032577
001005
032777

141054

(KTSWR: BIT
BNE
BIT

007001
005725
000205

141044

1%:

SEQ 0125

TYPE,

000137

020000

113

JTEST BIT 4

040706

040612

110

PAGE

RS,CKTSWR

JSR
BIT4
BR

1064407

004537
040514

15:05

JSR
JOvYG1

BNE
TST
RTS

(RS) +,aSWR

1%
#SW13,aSWR
1%
(RS)+
RS

JTEST

INHIBIT

JTEST

INHIBIT

:BR IF YES

THIS CAMERA

TYPE-OUT

:BR IF YES
;BUMP EXIT POINTER

SJEXIT

CINCCA NCVI
CINCCA.PI

DIAGNOSTIC

MACY11 27(654)

A TO D FIELD SITE AND ADJUSTMENT LOOP

5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165

040102
040106
040114
040122
040130
040136
040140
040142
040144
040146
040154
040156
040160
040164
0460166
040170
040176
040202
040204
040206

012537
012777
013777
012777
012777

040406
004000
040406
060000
177770

141642
141624
141624

013777

040410

1461602

012700
005001

000004

052777

000001

5167
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189

040214
040216
040220
040226
040230
040234
040240
040244
040250
040256
040260
040262
040264
040270
040272
040274
040302
040304
040306
040312
040316
040320
040322

005300
001367
032777
001010

5166

o»ogo
oo ~NONW

wmd

—d

) —

191
92
93
94

—

[V IV IV TV IV, [V 1V, TV ]

5190

040210

040326

040330
040332
040334
040336
040340
040342
040344
040346

15:05

B8-AUG-78

000240
000240
000240
000240
000240
000240

000240

105777
1004 30
005301
001373
004737

113700

062700
110037
104401
032777
201401

141544

141614

141550

012700
005003

060000

012737
112002

000004

042702
042701
060104
060203
005337
001365
006203
006203

177400
177400

005004
112001

000240
000240
006204
006204
000240
000240

040404

MOV

INOUTZ ,@SFR

;SET Z INPUTS IF ENABLED

MoV
CLR

#4. RO
R1

;LOAD COUNTER
:FOR OUT OF RANGE VOLTAGE

BIS

#BI170,aCSR

JENABLE THE DEVICE

NOP
NOP

NOP

1%:

TSTB
BMI
DEC
BNE
JSR

DEC
BNE
BIT
BNE

140712

MOvB

140662

000000
000711

NOP
NOP
NOP
NOP

040407

000060
032714
032621
100000

5%:

aCSR
3%
R1
1%
PC.CTRLCG

RO
1%
#SW13.aSWR
5%
11$+1,R0

;WAIT FOR IDLE
;DELAY

sTEST FOR CTRL G OR C
;FINISHED OUT OF RANGE TIMER

JTEST IF INHIBIT TYPEQUT
;BR IF INHIBIT
;GET CAMERA #

ADD
MOVB
TYPE,
BIT

#60,R0
RO,OUTCHN
OUTRNG
#SW15,aSWR

HALT

;NO CONVERT FLAG - INPUT VOLTAGE WAS OUT OF RANGE OR NO ''Z'' PULSES

BEQ

;BR IF CLEARED

MOV
CLR

#BUFO,RO
R3

;LOAD POINTER
;CLEAR RESULT

2%:

MoV
mMovB

#4,10%
(RO) +,R2

;LOAD COUNTER
;GET LOW BYTE

CLR

MOvB

BIC
BIC
ADD
ADD
DEC
BNE
ASR
ASR

NOP
NOP
ASR
ASR
NOP
NOP

sMAKE INTO ASCII
;INSERT INTO ASCII ERROR MESSAGE
;TELL OPERATOR
JTEST IF HALT ON NO CONVERSION ERROR

6%:

3$:

040404

SEQ 0126

;SUBROUTINE TO TAKE 8 CONVERSIONS AND AVERAGE FOUR OF THEM
CONVRT: MOV
(R5)+,°1%
JSAVE CAMERA CHANNEL
4$:
MOV
#CLRALL ,aSFR
;CLEAR THE DEVICE
MOV
118 ,aCSR
JSELECT CAMERA AND GAIN
MOV
#BUF0,aBAR
;LOAD BUS ADDRESS
MOV
#-10,aWCR
;LOAD WORD COUNT

046042

020000

J 10
PAGE 114

(RO)+,R1

#177400,R2
#177400,R1
R1,R4
RZ,R3
10%
2%
R3
R3
R4
R&4

JGET HIGH BYTE

JUPDATE RESULT
JUPDATE RESULT
;FINISHED ?

CINCCA NCVIT
CZNCCA P11

5199

5200
5201
5202
5203
5204

5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215

040350
040352
040356
040362
040366
040372
040374
040376
040400
040402
0460404
040406
040410
040412
040416
040424
040430
040434
040440
040442
040444
040450
040454
040456
040460
040462
040464
040466
040470
0460472
0460474
040476
040500
040502
040504
040506
040510
040512
040514

040516
040520
040526
040534
040535

040537
040544
040552
040554
040556
040564
040572

MACY:1 27(654)

DIAGNOSTIC

A TO D FIELD SITE AND ADJUSTMENT LOOP

000240

010437
105037
110337
013735

000240
000240
000240
000240

NOP

040404
040405
040405
040404

013537
113737
105037

040470
040471
040471

013746

040470

105037
104403

003

104401

013746
104403

003

000240
000240
000240

R4,10%
108+1
R3,108+1
108.a(RS)+

RTS

10%:
0
118:
0
INOUTZ: TEST2

000002

PAGE 115

MOV
CLRB
MOVB
MOV
NOP
NOP
NOP
NOP

000205
000000
000000

K 10

15:05

B8-AUG-78

JSAVE

040472

040473

CLRB

MOV

TYPOS

001

;0= USE CUSTOMER Z PULSES, 1= MAINT Z PULSES

11841

108,-(SP)

3,1

;TYPE 3 DIGIT NUMBER

RTS
0
0

JEXIT

TYPOS

NOP
NOP
NOP

000205
000000
000000

3,1

11%,-(SP)

000000
000000
000000

10%:
118:
CAMOG1:
CAMOGZ2:
CAM1G1:

000000
000000
000000
000000

CAM2G2:
CAM3G1:
CAM3G2:
JOoyGl:

0
0
0
O

CAMOTX:

.BYTE
LASCIZ

CAMOTW:

.BYTE

LASCIZ

/CAMOO G=2 X=/

CAMITX:

BYTE
LASCIZ

15,12
/CAMOT G=1

000000
000000

015
040503
036386

015

103

043440
000075
015
040503
036386

0
0
0

CAM1GZ2: 0
CAM2G1: O

012
030115
020061

012

020060
036530

046501

030060

012
030115
020061

020061
036530

031075

054040

RESULT

BYTE

MOV

001

JGET

;TYPE 3 DIGIT NUMBER
SJAND TRALING ASCII

TYPE,

0460472

a(R5)+,10%
108+1,11%
108+1

GIB

.BYTE

040724

;CLEAR HIGH BYTE
;LOAD HIGH BYTE
;SAVE THE RESULT

:SUBROUTINE TO TYPE THE CAMERA MESSAGE

CAMUNP: MOV
MOVB
cLR8

SEQ 0127

15,12
/CAMOO G=1 X=/

15,12

X=/

NCV11

DIAGNOSTIC

5253
5254

040573
040575

015
103

012
046501

015
040503
036507

012
030115
020061

020062
036530

015
103

012
046501

031060

015
040503
036507

012
030115
020061

020063
036530

015
103

012
046501

031460

015

012

5255
5256

040602
040610

5257
5258
5259

040612
040614
040622

5261
5262

040631
040633

5260

5263
5264

5265
5266
5267
5268

5269
5270
5271
5272
5273

040630

040640
040646

040650
040652
040660
040666

040667
040671

MACY11 27(654)

043440
000075

000

043440
000075

000

031075

054040

043440
000075

5275
5276
5277

040710
040716
040724

047512
045503
054440

051531
054040
000075

044524
000075

5279
5280
5281
5282
5283
5284
5285
5286
5287

040736
0744
0752
040760
040761
040766
040773
040776
040777

051105
046101
040505
072
040
047111
061
000
040

047105
046040
044522

044524
047111
054524

5278

5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
5306

040730

041004
041012
041013
041020
041026
041034
041037
041044
041052
041054
041062
041066
041074
041102
041110
041111
041116
041124
041132

005015

046040
000
040
042520
052101
005015
040
047522
000012
020040
006513
047040
020127
024105
000
040
051440
051450
052123

031075

030460

0460676
040704
040706

5274 * 040706

B8-AUG-78

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

PAGE 116

CAMITW: .BYTE
LASCIZ

15,12
/CAMO1 G=2 X-/

CAM2TX:

.BYTE
LASCIZ

15,12
/CAMOZ 6=1 X=/

CAM2TW: .BYTE
LASCIZ

15,12
/CAMOZ G=2 X=/

CAM3TX:

.BYTE
LASCIZ

15,12
/CAMO3 G=1 X=/

CAM3Tw:

.BYTE
LASCIZ

15,12
/CAMO3 G=2 X=/

054040
JOYTX:

JOYTW:

.BYTE

LASCIZ

/7JOYSTICK X=/

G1B:

.ASCIZ

043106

020040
036440
040

040507
040
040

GAINX:

.ASCII

GAINY:

.BYTE

61,40,40.0

026455
041123

000040
005015

DASH:
LSBMSG:

.ASCIZ
.ASCIZ

/ ==/
/ LSB/<15><12>

045523
020104
024105

050111
052123
024523

SKPMSG:

.ASCIZ

/ SKIPPED STATE(S)/<15><12>

025052
025122

051105
006452

ERMSG:

.ASCIZ

/ *«ERROR+*+/<15><12>

020040
000012
051101
052123
024523

(047440

OKMSG:

L.ASCIZ

047522

NARMSG: .ASCIZ

# NARROW STATE(S)#<15><12>

044527
040524
006451
052101

042504
042524
000012
026505

WIDMSG:

.ASCIZ

# WIDE STATE(S)A<15><12>

STATE:

_ASCIZ

/STATE=-- WIDTH/<15><12>

052101
005015

_ASCII

Y=/

0644504

000

GAIN:

15,12

<15><12>/DIFFERENTIAL LINEARITY:/

GAIN =/

0K/<15><12>

SEQ 0128

CINCCA

CINCCA.PT

L 10

CINCCA NCVI
CINCCA.P1T

5307

5308
5309
5310
5311

5312
5313
5314
5315
5316
5317
5318
5319
5320

5321
5322
5323
5326
5325
5326
5327

5328
5329
5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360

041140

061146
041152
041160
041166

041173
041175
041202
041210
041216
041222
041230
041236
041244

041252
041253
041260
041266
041274
061302
041310

041316
041324
041332
041335
041342
041350
0641356
041364
041372
041374
041376
041404
041412
041420
041426
061434
041442
041446
041454
041462
041470
041476
041501
041504
041512
041520
041526
041534
041542
041545
041550
041556
041564

8~AUG-78
MACY11 27(654)
DIAGNOSTIC
LOOP
T
ADJUSTMEN
AND
SITE
FIELD
D
A TO
020055
006510
046040
054101
040440
057
122

053111
052503
006472
005015
046102
043516
046120

000
015
047505
047522
051501
020040
020113
044103
020116
042524
015
051040
042503
044440
051501
000012
015
047111
046101
052116

040440

044527
000012
041123
046511
020124
000
046105
020105
040522
000012
047522
051501
041440
052105

052104

15:05

m10
PAGE 117

SEQ 0129

L INEA:

LASCIZ

/ LSB MAXIMUS AT /

SLASH:
MSG21:

LASCIZ
LASCIZ

'V4.4

020115
044524
046517
042105

C(OMP:

LASCIZ

<15><12>/ROM BLASTING COMPLETED/

052012
052125
020115
042524
044103
053523
051505
046102

046511
043040
046102
020122
041505
052111
047440
051501

TIMEO:

LASCII

<15><12>/TIMEQUT FROM BLASTER

020012
050105
051040
020116
042524

051117
040514
046517

.ASCIZ

<15><12>/ OR REPLACE ROM [N BLASTER/<15><12>

FIELDI:

.BYTE
LASCIZ

/INTERNAL MAINT.

051105
043117
051440
020123

AVRGO:

LASCI2Z

<15><12>/AVERAGE OF

007
042105
051117
047511
047125
047506

UNF IX:

.BYTE
LASCIZ

15,12.7
/EXCEEDED CORRECTION COUNTER FOR /

007
046102
043516
052122

ABORTB:

.BYTE
LASCII

/ROM BLASTING ABORTED/

122

012

042524
046440

020056
051514
020131
042531
000040
053101
020105
034062

047502

046440
051525
000

052101
041501
054503

/RELATIVE ACCURACY:/<15><12>

(HECK SWITCHES ON BLASTER/

046102
006522

047122
044501
020132
051505
047506
037123

15,12

15,12.7

Z PULSES <Y FOR YES> ? /

128 STATES = /

020127
006524
047040

5374
5375
5376
5377
5378
5379
5380
5381
5382

020114

051503
04

020105
006524
050040
006504
043040
006504

000000
000000
000000
000000
000C00
042162
027340

5405

5406

0617464
061746
041750
0461752
041754
041756
0461760
041762
0461764
0461766
041770
061772
061774

000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000
000000

PAGE 118

SEQ 0130

.BYTE

15,12.7.0

:
SGNVAL

LASCII
.BYTE
.BYTE

/==

052

SGNVL1:
LSBIXT:

53,40
60,60,52.60,15,12.,9

012

000

RTN:

.BYTE

15.,12.0,0

042502
0464514
000012
051117
052123
005015

047514
044515

BELMSG:

LASCIZ

/ BELOW LIMIT/<15><12>

040515
052101

NORMSG:

LASCIZ

/ NORMAL STATES/<15><12>

053117
044515

ABOMSG:

.ASCIZ

/ ABOVE LIMIT/<15><12>

042523

PASMSG:

LASCIZ

/ PASSED/<15><12>

042514

FAIMSG:

.ASCIZ

/ FAILED/<15><12>

012

007

026455
040
060
015

020040

041101
044514
000012
051501

000012
044501
000012

012

000

EVEN
LSBAVG:
LSBSVQ:
LSBSVR:
LSBSVW:
DIFEX:
: ROMVAL
ROMPNT
: 12000.
NOMIAL

QOO0

042105
015
000
0200?0

5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373

;THESE LOC.'S
:
AVGVAL

DIFERR:
BELOW:
:
ABOVE

:
NORMAL
NARROW:
NARA:
:
NARRB
WIDA:
WwiDB:
DIF:
ourt:

FIRST:

OQOOOOOOOOCCOOOO

CINCCA
CINCCA.

N 10

15:05

;AVERAGE

CLEARED BY DIFLIN

COUNT

([aXa)

MACY11 27(654) B8-AUG-78
DIAGNOSTIC
AND ADJUSTMENT LOOP
SITE
FIELD
D
A TO

CINCCA NCVIY
CINCCA.PIT

5407
5408
5409
5410
5411
5412
5413
5414
5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436

5437

5438
56439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
5453
5454
5455
5456
5457

15:05

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

8 N

PAGE 119

;KEYBOARD CONVERSATION TO THE BLASTER

SEQ 0131

SELECT TEST 'T"

JAPPLY POWER TO BLASTER AND DEPRESS I/0 AND EXECUTE BUTTONS

JALL INDICATORS SHOULD LIGHT

THE BLASTER SHOULD SEND A “'>'' CHARACTER

;TYPE THE COMMANDS FOLLOWED BY A ‘‘CR'’, SOME WILL ECHO THE CR AND OTHERS
TYPE "ESC''/"ALT'®
KEYS TO ABORT CURRNET (OMMAND
JWILL NOT
:TYPE
KF2/2
:THIS SETS OCTAL COMMAND MODE
;TYPE
FM30
;THIS SET OCTAL INPUT/QUTPUT
:TYPE

061776
042002
042004
042006
042010

042012
042016

042022
042026
042030
042034
042036
042042
042046
042050
042054
042056
042062

042064
042070
042072
042076
042102
042106
042110
042114
042116
042122
042124
042130
042134
042136
042142
042150
042156
042160

105777
100007

000240
000240
000240
017720
005237
105777
100363

137674

137054

017702
042702
022702
001413
022702
001412
020227
103402
042702

137050
177600
000003

010277
000720
000137
012777
012777
000707
000000

TST8B
BPL

aDLICSR
LOOPD

JBLASTER INPUT ?
;NO

MOV
INC

aDLIRY, (RO) +
BLTLNT

;SAVE THE CHARA(CTER
JUPDATE COUNTER

NOP
NOP
NOP

1STB
a$TPS
;PRINTER READY ?
;BR IF NOT
LOOPC
BPL
TST
BLICNT
;ANY CHARACTERS
;BR IF NOT
LOOPE
BEQ
MOV
(R1)+,a%TPB
JPRINT THE (HAR.
BLICNT
DEC
;BR [F MORE DATA
LOOPC
BNE
MOV
#8UF0 RO
BTALK:
RO R
MOV
BLICNT
CLR
BR
LOOPC
HERE
IS
NO
BLASTER DATA TO BE TYPED
E
. COM
T1ST8B
A$TKS
;KEYBOARD INPUT
LOOFPE:
;BR IF NOT
LOOPC
BPL
MoV
a$TKB,R2
;READ CHAR

137110

042160

060000

042160

000177

000140
000040
137550

002644
000033
000134

READS THE PROM INTO THE RAM
OUTPUTS THE RAM CONTENTS
TO THE TTY
EXITS COMPUTER CONTROL TO THE BUTTON MODE

LOOPD:

137122

105777

100342

SIZES THE PROM -- 0037/8 IS REPORTED BY THE BLASTER

LOOPC:

137662

042160

;THIS
;THIS
;THIS
;THIS

LD
D00/37
P

042160

005737
001413
012177
005337
001353
012700
010001
005037
000745

SPL0037/8]

:TYPE
:TYPE
:TYPE

1%:

137534
136774

2%:

:
L OOPF

B8I1C
CMP
BEQ
CMP
BEQ
CMP
8L0
BIC
MOV

BR
JMP
MOV
MOV
BR

BLICNT: O

#177600,R2
#3,R2
2%
#177 ,R2
LOOPF
R2,4140
1%
#40,R2
R2,aDLODB

LOOPC
RBEGO
#33,aDL0DB
#'\,a8TPB
LOOPC

;MASK THE DATA
sTEST FOR CTRL C
JBR IF CTRL C
JTEST FOR RUBOUT
;BR IF ESC
JTEST IF LOWER CASE
;BR IF NOT
;MAKE UPPER CASE
;LOAD BLASTER DATA OUT
;JUMP TO RESTART
;JLOAD ESC <CANCLE>

NCVI

( NCCA P11

5503
5504

200
200
200
200

200
200
200
200
200

.BYTE

200,200,200,200,200,200,200,200 JGAIN - 1 VALUE

200
200

.BYTE

200,200,200,200,200,200,200,200

200
200

.BYTE

200,200,200,20G,200,200,200,200 ;GAIN = 2 VALUE

200
200

.BYTE

200
200

:
ROMVAL

)

200,200,200,200,200,200,200,200

;A017 CORRECTION PRAM VALUES

;JROMVAL MUST BE IN (OMPLEMENTED AND REVERSED ORDER <LSB=MSB>

042222
042225
042230
042232
042235
042240
042242
042245
042250
042252
042255
042260

376
376
376
376
376
376
376
376
376
376
376
376

.BYTE

376,376,376 ,376,376,376,376,376 ;GAIN = 1 VALUE

376
376

.BYTE

376.376,376,376,376,376,376,376

376
376

.BYTE

376,376,376 ,376,376,376,376,376 ;GAIN = 2 VALUE

376
376

.BYTE

376,376,376.,376,376,376,376,376

376
376

:
RAMVAL

ARV, |
NV, To
[0 Yo W

042262
042265
042270
042272
042275
042300
042302
042305
042310
042312
042315
042320

)

;MB036 PROGRAM PROM VALUES
N

5473

5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502

200

R ) =

5465

5466
5467
5468
5469
5470
5471
5472

0462162
042165
042170
042172
042175
042200
042202
042205
042210
0642212
042215
042220

5464

cn
PAGE 120

15:05

;A017 CORRECTION PROM ALUES

—_— e

5458
5459
5460
5461
5462
5463

8-AUG-78
MACY11 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP
DIAGNOSTIC

_— e

{ 'NCCA

244
215
144

144

377
377
377
377
377

.BYTE

215,246 ,116,144,215,244,116,144 ;MB036 PROGRAM PROM

116

.BYTE

215,264,116,144,215,264,116,144

216
377

.BYTE

116,164 ,216,244,377,377,377,377

377

.BYTE

377,377,377 ,377.,377,377,377,377

116

244

377

PROROM:

SEQ 0132

CINCCA NCVI
CINCCA. P

5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
9522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550

042322
042326
042332
042340
042344
042346
042352
042354
042360

DIAGNQOSTIC

MACYT1 27(654)

B-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

104401
104401

042777
004537
052644
8?322;

0046537
052655

051046
051460

;BLASTER SECTION
BLAST:
TYPE,
PRIMO
TYPE,
PRIMS

SEQ 0133

;TELL OPERATOR ABOUT THE CABLE
JAND SWITCHES

0463112

RS ,RDBLST

;ENSURE INIT. ROM CONTROL LINE
;TELL THE BLASTER TO INITILIZE
JREALLY WE ARE WAITING FOR THE OPERATOR
;TELL THE BLASTER THE KEYBOARD INPUT MODE

043112

JSR

R5,RDBLST

;TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>

042162
000200
042222

042524
042530
042534
042540
0425642
042546
042550
042554
042560
042564
042570

000137
004737
005337

044064
043422
042646

106401
000137
000207

PAGE 121

#3170,aDLICSR
RS ,RDBLST

012700
112720
022700
001373
012737
004537
046216
066226
112737
012737
004737
012737
004537
046236
046246
112737
012737
004737
000436
012737
012737
012737
004737

104401

D 1

8IC
JSR
ESCP
JSS

000001
043112

042362
042366
042372
042376
042400
042406
042412
042414
0426416
042424
042432
042436
042444
042450
042452
0462454
042462
042470
042474
042476
042504
042512
042520

001361
005737
001410
104401

15:05

137336

;PRIME

1%:

000036
046152

046146

000061

040773

042163
042476
002036
046152

000003
000001
042530
042650

Q42646
041736
046150

041545
002644

JMP
JSR
DEC

DIFLNO
PC ,ADJF IX
100%

TYPE,

UNFIX
GAINX

JSR
G2L IMO
G2L IM?

041740
4$:
S%:

6%:

7$:

BNE
TST
8tQ
TYPE,

8%:

TYPE,
JMP
RTS

061746
041501
040761

MOVB
MOV
JSR
BR
MOV
MGV
MOV
JSR

JSR

066146

040773

042203
042476

;GET POINTER
;LOAD THE BUFFER
;TEST IF DONE
;BR [F BUFFER NOT PRIMED
;LOAD GAIN AND RESOL. VALUES
JLOAD DIFLIN ERROR LIMIT VALUES
;G LIMIT -~ USERS
;61 LIMIT - OPTION CHECKOUT
#'1,GAINI
;LOAD GAIN TYPEOUT VALUE
;LOAD RAM POINTER
#ROMVAL +1 ,ROMPNT
JTEST THAT GAIN
PC,48
#2036 ,PRIME1
;LOAD GAIN AND RESOL. VALUES
R5,LIMITS
;LOAD DIFLIN ERROR LIMIT VALUES
;G2 LIMIT - USERS
;G2 LIMIT - OPTION CHECKOUT
#'2,GAINT
;LOAD GAIN TYPEOUT VALUE
;LOAD RAM POINTER
#ROMVAL +21 .ROMPNT
PC,48
;TEST GAIN OF 2
10%
;LOAD LOOP COUNTER
#3,100%
#1,DIFEX]
;LOAD DIFLIN EXIT FLAG
JLOAD DIFLIN EXIT RETURN
#6% ,DIFEXO
JENSURE BLASTER RAM HAS BEEN LOADED WITH
PC,ZAPRAM

MOV
mMovBe
CMP
BNE
MOV

GILIMC
GILIM
MOVB
MOV
JSR
MOV

041740

000062

FMO

THE MEMORY RAM BUFFER

#ROMVAL ,RO
#200, (RO) +
#ROMVAL +40,RO
1%
#36 ,PRIME
RS,LIMITS

5%
DIFERR
8%

ABORIB
RBEGO
PC

;THE "RAMVAL'' VALUE

JRUN ‘DIFLIN''
;ADJUST AND FIX THE CORRECTION WEIGHTS
;HAS THIS SECTION BEEN EXECITED N TIMES
;BR IF NOT
;TEST IF ERROR OCCURRED?
;BR IF NOT
;TELL THE OPERATOR
JABOUT

;TELL OPER. THE BLASTING IS ABORTED
JRESTART
JEXIT

CINCCA NCVIT
CINCCA.P1I

MACYTi 27(654)
8-AUG~78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

042572
042576
042600
042604
042606
042612
042614

004537
053075
004537
053105
004537
053110
005237
004537
053120

063112

042626
042632
042634
042636
042642
042646

104401
104411

052051

104401

041222
002644

042620
042624

012600

000137
000000

E 1
PAGE 122

15:05

SEQ 0134

;THE RAM DATA [S NOW CORRECT - BLAST THE BLANK ROM
10%:

043112
043112

JSR

Sgg
éég
;gé

CHIE

JTELL THE BLASTER TO COMP.

zgfgééLST

JSET FLAG TO EXIT WITHOUT RECPT OF '>'' (HAR FROM BLASTER

RS ,RDBLST
R5,RDBLST

100%:

Mov
TYPE,
8MP

PRIMI

;TELL

(SP)+,RO
coMP

RBEGO

THE

;TELL THE BLASTER TO CHECK-SUM DATA
sTELL THE BLASTER TO BLAST THE ROM
sTELL THE BLASTER TO RETURN TO KEYPAD MODE

; INFORM THE OPERATOR ABOUT THE BLASTER ROM
TYPE,
RDLIN

DATA

R5,RDB.ST

OPERATOR

TO REMOVE

RAM CABLE AND

INSTERT ROM INTO AQ17

;CLEAN STACK
; COMPLETED

;SUBROUTINE TO CONVERT THE MEMORY RAM VALUE INTO RAM MEMORY VALUE

5603
5604

042752
042756
042760
042764
042766
042772

#RAMVAL ,R3

;LOAD OUTPUT POINTER

1%:

mMovB
coms

(RO)+,R1
R1

;GET A BYTE
s INVERT VALUE

ROR

ROL
ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL
MOVR

cMp

042222

BNE

043112
043112

R2
R1
R2
R1
R2
R1
R2
R1
R2
R1
R2
R2,(R3)+

RO,#ROMVAL+40
1%

;MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT
;MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT

;MOVE
;MOVE
sMOVE
;MOVE
;MOVE
;MOVE
;MOVE
;MOVE
JMOVE
;MOVE
;JMOVE
;MOVE
:SAVE

INTO CARRY BIT

CARRY INTO BIT
INTO CARRY BIT
CARRY INTO BIT
INTO CARRY BIT
CARRY INTO BIT
INTO CARRY BIT
CARRY INTO BIT
INTO CARRY BIT
CARRY INTO BIT
INTO CARRY BIT
CARRY INTO BIT
OUTPUT BYTE

sCLEAR RESULT

R1
R2
R1
R2

;TEST IF END
;BR

NOT

;SUBROUTINE TO LOAD MEMORY RAM INTO RAM MEMORY
gifiVAL
RS, CONROM
;CONVERT "ROMVAL'' TABLE

043276
000001
043172

.LOAD INPUT POINTER

ROR
ROL
ROR
ROL

#ROMVAL ,RO

MOV

004537
042222
052777
004537
0526£€3
004537
053105
004537
053110

042742
0462744

MOV

CLR

005002
006001
006102
006001
006102
006001
006102
006001
006102
006001
006102
006001
006102

001351

ZAPRAM:

042736

112001
105101

042222
062162

012703
012700

042650
042654
042660
042662
042664
042666
042670
042672
062674
042676
042700
042702
042704
042706
042710
042712
042714
042716
042720
042722
042724
042726
042730
042734

136724

ST
8%8
Sgg

PGO

IR
R5,RDBLST
R5,RDBLST

INTO BLASTER FORMAT

T M2 B
JTELL THE BLASTER TO CHECKSUM THE DATA
;TELL THE BLASTER 10
PROGRAM

THE

RAM-PAK

CINCCA

NCVIY

5605
5606

04c774
0430C2

CINCCA. PN

DIAGNOSTIC

MACY11 27(654)

B8-AUG-78

062777
000207

36674

BIC
RTS

A TO D FIELD SITE

000001

AND ADJUSTMENT LOOP

15:05

PAGE 123

#BITO,aDLICSR
PC

JRE-ENTER EMMULATE MODE

JEX]T

SEQ 0135

NCVTT
CINCCA
FINCCA. P
5607
5608
5609
9610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
LOOP
ADJUSTMENT
AND
SITE
FIELD
A TO D

15:05

G 11
PAGE 124

SEQ 0136

;BLASTING THE PROGRAM PROM (M8036)
043004
043010
043016
043022
043024
043030
043032
043036
043040
043044
043046
043052
043054
043060
043062
043066
043070
043074
043100
043102
04310¢

104401

062777
004537
052644
004537
052646
004537
052655
004537
042262
004537
052663
004537
053105
004537
053110
005237
004537
053120
104401

000137

051622

S5
063112

043112
043276
043112
043172

0463112
0463274
043112

041222
002644

136660

PBLAST:

TYPE,
BIC
JSR

ESCP
JSR
KFO
JSR

FMO
JSR
PROROM
JSR

DIO
JSR
cco
JSR

PGO
INC
JSR
ZPO

TVDE

JMP

PRIM3
#B170,aDLICSR
R5,RDBLST

s INFORM THE OPERATOR

R5,RDBLST

;T.LL THE BLASTER THE KEYBOARD INPUT MODE

R5,RDBLST

;TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>

RS, CONROM

;CONVERT THE 'PROROM'’ TABLE INTO BLASTER FORMAT

RS5.,RDBLST

JTELL THE BLASTER THE PROM DATA

R5,RDBLST

;TELL THE BLASTER TO CHECKSUM THE DATA

R5,RDBLST

;TELL THE BLASTER TO BLAST THE PROM

NOEXIT

R5,RDBLST

JSET FLAG TO EXIT WITHOUT RECPT OF '>"' FROM BLASTER
;TELL THE BLASTER TO RETURN TO KEYPAD MODE

COMP

:INFORM THE OPERATOR IT'S DONE

RBEGO

;ENSURE ROM MODE
;TE L

THE BLASTER TO INITILIZE

NCVI

CINCCA.P
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639

5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669

H 11
PAGE

125

SEQ 0137

;COME THERE TO OUTPUT .\ MESSAGE TO THE BLASTER
;EXIT ONLY WHEN THE BLASTER HAS ECHOED AN '>"'
043112
043114
043116
043124
043130
043136
043142
043144
043150
043152
043156
043160
043166
043172
043174
043200
043202
043206
043210
043214
043216
043222
043226
043230
043236
043244
043252
043254
043256
043262

010046
012500
012737

043264
043266
043270
043272
043274

000000
000000
000000
000000
000000

111037

017737

;REPORT AN ERROR UPON TIMEOUT UNLESS "NOEXIT'' IS NON-ZERO

RDBLST:

000012
043264

136544
136540

105777
100375
105737

043264

112C37

043264

113777
105777
100416

043264
136504

001406
001403

005337
001372
005337
001367
005737
001017
104401

000137
000240
017737
042737
022737
001331
012600
005037
000205

043272
043266

136516

MOV
MovB
MOV
TSTB
BPL
TSTB

1%:

BEQ
MOVB
BEQ

MovB
TSTB
B8MI
DEC

2%:

043270

BNE
DEC
BNE

043272
043274

000076
043274

043266
043266
043266

5%:

(RO),10%
abLIBD,11%
aDLOCSR
1%
10%

2%
(RO)+,10%
2%

10$,aDLODB
aDLICSR
4%

12%
2%

;SAVE RO
;GET ARG.
;LOAD DELAY FOR ERROR COUNTER
;LOAD A (HAR

;FALSE READ TO CLEAR READY
:WAIT FOR QUTPUT READY
;TEST

FINISHED

;WAIT FOR

INPUT

:BR IF INPUT
;DELAY

;BR IF

JTEST IF EXIT IS ALLOWED WITHOUT *5*'*
YES

RBEGO

abDLIBD,11%

#177600,11%
#'>,11%
1%
(SP)+,R0O
NOEXIT
RS

;OUTPUT THE CHARACTER

:DELAY

TIMEO

;GET A CHAR.
;BR IF TERM

13%
2%

TYPE,

RTS

iIT:

#10.,13%

NOEXIT

JMP
NOP
MOV
BIC
CMP
BNE
MOV
CLR

4%:

RO,=(SP)
(R5)+,RO

TST

BNE

041253
002644
136444
177600

MOV

QOOOO

LINCCA

15:05

MACYT1 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

;READ (HAR
JMASK OFF BITS

JTEST FOR >

s TRY NEXT (CHAR.
;RESTORE RO

JEXIT

NCV11

DIAGNOSTIC

043276
043302
043304
043310
043316
043320
043324
043326
043332
043334
043340

012700
012501
010137
062737
111102
004737
111102
004737
112102
004737
062700

052676

043350
043354
043356
043360

020137
001360
000205
000000

043360

CINCCA.P1T
5670
5671
5672
5673
5674
5675

5676
5677
5678
5679

5680
5681
5682
5683
5684
5685
5686
5687
gggg

043344
043346

5703
5704
5705

B-AUG-78

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

000240
000240

043360
000040

063402

043374
043362
000007

043360

I 1

PAGE 126

;CONVERT ROM DATA INTO PROM BLASTER FORMAT
CONROM: MOV
#DIDATA+3,RO
;LOAD RESULT POINTER
MOV
(RS) +,R1
JLOAD INITIAL VALUE POINTER
MOV
R1,10%
;COPY THE START
ADD
#40,10%
;MAKE THE END ADDRESS
1%:
MOvVB
(R1) ,R2
;GET1 A BYTE OF DATA
JSR
PC,SHUFO
;CONVERT IT TO ASCII
MOVB
(R1) ,R2
;GET SAME BYTE AGAIN
JSR
PC,SHUF3
;CONVERT 2ND DIGIT
MOVB
(R1) +,R2
;GET MSD
JSR
PC,SHUF6
;CONVERT IT
ADD
#7,RO
JUPDATE RESULT POINTER
NOP
NOP

10%:

ggg?

5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702

MACY11 27(654)

CMP
BNE
RTS
0

R1,10%
1%
RS

;TEST IF DONE
JEXIT

;JROTATE THE DATA RIGHT AND MAKE ASCII CHARACTER

043362
043366
043370
063372
043374
043376
043400
043402
043406
043412
043414
043416
043420

042702
006202
006202
006202
006202
006202
006202
042702
062702
110240
00024C
000240
000207

177477

SHUF6:

SHUF3:

177770

000060

SHUFO:

BIC
ASR
ASR
ASR
ASR
ASR
ASR
BIC
ADD
MOVB
NOP
NOP
RTS

#177477 ,R2
R2
R2
R2
R2
R2
R2
#177770,RC
#60,R2
R2.-(RO)

;MASK OFF BITS

JEXIT

;MASK OFF BITS

JMAKE ASCII
;LOAD RESULT BYTE

SEQ 0138

CINCCA

5706
5707
5708
5709
5710
571
5712

013702
010204
062704
012001
061001
163701

5753

5754
5755
5756
5757
5758
5759

043464
043466
043470
043472
043474
043476
043500
043502
043504
043506
043510
043512
043514
043516

MACY1? 27(654)

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

012700

5713

5714
5715
5716
5717
5718
5719
5720
5721
5722
5723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752

DIAGNOSTIC

163701
010137
000240
000240

062036

041740

000017

15:05

J N

PAGE 127

;SUBROUTINE TO ADJUST THE SB VALUES

ADJFIX: MOV
10%:

041744
041744
041734

MOV
MoV
ADD
MOV
ADD
su8

SuB
MOV
NOP
NOP

#BUF 1+356,R0
ROMPNT ,R2
RZ,R4
#17 R4
(RO) + ,R1
(RO) ,R1
AVGVAL ,R1

AVGVAL ,R1
R1,LSBSVW

;GET BUFFER POINTER
;GET ROM POINTER

JMAKE END VALUE
;GET LSB (17) M-1
;ADD LSB (00) M
;SUB 2 LSB AVG.

;SAVE FOR LATER USAGE

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP

000240
000240
000240
000240
000240
000240
000240
000240
000240
000240
000240
000240
000240
000240

043520
043522
043526
043532
043536

010146

004737
012637
(12637

036504
043706
043710

JSR
MOV
MOV

043542
043546
043552
043556
043562
043564
043566
043570

013746
013746
013746
004737
102004

043706
043710
041744
036616

MOV
MOV
MOV
JSR
8v(

1008, ~(SP)
101$,-(SP)
AVGVAL ,=(SP)
PC,8DIV
1%

043574
043600

012637
012637

041732
041730

MoV
MoV

(SP)+, _SBS\R
(SP)+,LSBSVQ

;SAVE INTGR. REMAINDER
;SAVE QUOTIENT

043572

012746

000000
000000
000240
000240

MCV

MoV

000316

1%:

HALT
HALT
NOP
NOP

R1,~(SP)

#316,-(SP)

PC.SMULT
(SP)+,100%
(SP)+,101%

. SAVE ON STACK

JMULTI BY 316 (8)
;SAVE LSW
;SAVE MSW

;BR IF NO ERROR

;NOW ADD THE QUOTIENT TO THE MEMORY RAM VALUE
043604
043606
043610
043614
043616
043620
043622

111203

000240

042703

000240
000240
000240
000240

177400

MOVB

(R2) ,R3

;GET CURRENT MEMORY RAM VALUE

BIC

#177400,R3

;CLEAR OFF UPPER BITS

NOP
NOP
NOP
NOP
NOP

SEQ 0139

CINCCA NCVIT
CINCCA.PN

5760

5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
577
5772

5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788

043624
043630
043632
043634
043636
043640
043642

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

163703
000240
000240
000240
000240
000240
110322

041730

Sus
NOP
NOP
NOP
NOP
NOP
MOVB

PAGE 128

LSBSVQ,R3

;ADD THE QUOTIENT

R3,(R2)+

;RELOAD MEMORY RAM VALUE

;NOW UPDATE 'TM'' VALUE POINTER

043644
043650
043652
043654
043656
043660

043662
043666

043670
043672
043674
043676
043700
043702

062700
011001

000036

063701

041734

000240
000240
000240
000240
000240
000240
000240
000240
010110

ADD

000207

0463706
043710

000000
000C00

#36,R0
(RO) ,R1

;UPDATE POINTER
;GET VALUE

ADD

LSBSVW,R1

;CORRECT THE VALUE (#10)

CMP
BNE

R1,(RO)
RZ R4
108

JRESTORE FOR NEXT USAGE
JTEST WHEN FINISHED
;BR UNTIL DONE

RTS

JEXIT

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
MOV

020204
001256

043704

MOV

1008:
1018:

O
0

SEQ 0140

(ea Yen ]

CINCCA NCVIT
CINCCA.PI

K 11

CINCCA

NCVI

MACY11 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SI’ £ AND ADJUSTMENT LOOP

063712
043716
043724
043730
043732
063736
043742
043744
043750
043756
043762
043764
043766
043774
043776
044004
044012
044016
044020
044022
044030
044034
044036
044042
044044
044052
044054
044060

005037

CINCCA.PMY
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798

112737
105737
001007
104401

005737
100402
104401

012737
004537
046216
046226
012737
000433
112737
012737
004537
046236
046246
012737
105737
001002
104401

000410
022737
001002
000137

000137

041736
000061
001134

044044
001134

046150

040730

004737

045774

044120
044126

012777
012777

000000
000025

0464134

004737
022702
001773

045640
000000

017737

050106

030076
002644

044114

TST

DIFLIN

10%:

BM]
TYPE,
MoV
JSR

GILIMI

1%:

108
PRIMO

#36,PRIME1
RS.LIMITS

MoV
BR
MOVB
MoV
JSR

#1$,DIFEXO
DIFLNO
#'2,GAINT
#2036 ,PRIME
R5,LIMITS

MOV

#2%8,DIFEXO

BNE

118

G2L IMO
G2LIMI
TSTB

$AUTOB

TYPE,

GAIN

CMP

#-1,RUNDIF

11%:

3$:

BNE
JMP
JMP

2%:

GAIN

DIFLNO

3%
$EOP
RBEGO

:DIFLIN ROUTINE
DIFLNO: MOV
#AVGVAL ,RO
+
(RO)
DIFLNX: CLR
cMP
#F IRST+2,RO
BNE
DIFLNX

041776
060000

1$:

064000

135570
000002
135560

#'1,GAINI
$AUTOB
108

GI1LIMO

040773
046146

041744

105077
152777

046146

000062
002036
046152

012700
005020
022700
001374
012700
005020
022700
001374

PAGE 129

DIFEXT

Movs
TSTB
BNE

TYPE,

046150

044064
044070
044072
044076
044100
044104
044106
044112

044140
044144
044146
064152
044160

040773

043776

177777

L 11

;.DIFFERENTIAL LINEARITY

DIFLIN: CLR

040730
043712
051046
000036
046152

15:05

Mov

CLR
cMp
BNE

#B8UF0,RO
(RO) +
#8UF 2 ,RO
1%

;LOOK FOR THE DATA REGION FOR TO
135616
135604

sCLEAR EXIT FLAG

;LOAD GAIN MESSAGE VALUE
;TEST IF UNDER MONITOR
:BR IF
YES

;TEST BIT 15

;DONT TELL OPER. ABOUT AQ17
;TELL OPERATOR ABOUT A017
;LOAD RESOLUTION AND GAIN
;LOAD DIFLIN TOLERANCE

;G1 USER LIMIT

;G1 OPTION AREA

;LOAD RETURN ADDRESS

sLOAD GAIN MESSAGE VALUE
;LOAD RESOLUTION AND GAIN
;LOAD DIFLIN TOLER”NCE
;G2 USER LIMIT
;G2 OPTION AREA

;LOAD RETURN ADDRESS

JRUNNING UNDER MONITOR

;BR IF YES

JENTER VIA "F'' SELECTION ?
;BR IF NOT
;YES REPORT END OF PASS

;LOAD CLEARING POINTER
JFINISHED ?
;BR IF NOT DONE

;LOAD BUFFER POINTER

;CLEAR THE DATA BUFFER
sJTEST IF FINISHED
;BR IF NOT

JSR
PC,STDATO
;FIND THE NON-ZERO TO ZERO TRANS. DATA
:DATA HAS NOW GONE INTO THE GOOD O DATA REGION
MOV
#0,aKWPSR
JINIT THE CLOCK PRESET
MOV
#25,3KWCSR
JENABLE THE CLOCK

;NOW TIME "‘T1"" LENGTH

2%:

135562
046032

SEQ 0141

JSR

PC,LISTDT

;GET CURRENT DATA VALUE

8tQ
CLRB

2%
aKWCSR1

;BR UNTILL DONE
:

aKWPSR,DIFT1

:SAVE COUNTER VALUE

CMP

BISB
MoV

#0,R2

#BIT1,aKWCSRY

JNOW TIME "'T2'" LENGTH

;TEST FOR EXIT OF O DATA REGION
JFIRE ST?

CINCCA NCVIT
CINCCA. P11

5843
95844
SB84S

044166

0464172
0464176
044200
044204
044212

DIAGNOSTIC

A TO D FIELD SITE AND ADJUSTMENT LOOP

004737

022702 000377

135536
000002

044220
044224
044230
044232
044236
044244
044252

004737

045640

044256
044262
044266
044270

013700
063700

046034
046036

010037

046040

5863
5864

044274

004737

045774

585
5867
5868
5869
5870
5871

044300
044304
044306
044312
044320
044326
044334
044340
044344
044352
044360
044366
044374
044400
044402

013700
005400
010077
012777

046040

5853
5854
5855
5856
5857
5858
5859
5860
5861
5862

586"

5872
5873
5874

5875
5876
5877
5878
5879
5880

3¢

045640

001373
105077
152777
017737

5846
5847
5848
5849
5850
5851
5852

MACY11 27(654)

15:05

8-AUG-78

135526

135530

046034

105077
152777

135504
000002

005077

135462

017737

006000

012777

012777
005077
005077
013777
052777
052777
052777
105777

100375
052777

135474

135432
000020
004000
060000
135412
135410
046146
000022
000001
000001

135340

000400

PAGE 130

PC,LISTDT

;JGET CURRENT DATA VALUE

BNE
CLRB
BISB
MOV

13
@KWCSR1
#BIT1,3KWCSR1
aKWPSR,DIFT2

JFIRE ST2
;SAVE COUNTER VALUE

JSR

PC,LISTDT

BEQ

CMP

cMP

CLRB
BISB

135476

Mov

046036

SEQ 0142

JSR

#3727 R

:NOW TIME "‘T3'' LENGTH

($:

022702 000377

001773

LJRA

#377.R2

aKW(SR1
#1771 ,akW(SR1

aKWPSR,DIFT3
aKWCSR

JTEST FOR ENTRY
;BR IF NOT

[NTO MAX DATA REGION

;GET CURRENT DATA VALUE
JTEST FOR EXIT OF
BR [F NOT

MAX DATA REGION

JFIRE ST?

;SAVE COUNTER VALUE
:STOP CLOCK

sNOW DETERM]NE THE AVG TIME (T3+72)/2 AND SAVE IN "HWI2T3"
;GET T2 VALUE
DIFT2,RO
MOV
SADD T3 VALUE
oxrrs.no
ADD

ROR

;/2

;SAVE FOR LATER USE
RO,HT2T3
MOV
;NOW RETURN TO LIST MODE AND LOOK FUR THE NON-ZERO TO ZERO EDGE AGAIN
;FIND THE EDGE
DIFLNT: JSR
PC,STDATO
;JNOW START THE CLOCK USING THE AVG TIME
JAND DO AN MATRIX MODE COLLECTION

135420
135430
1356414
135374
135376
135360
135344
135346

MOV
NEG
MOV
MOV

HT2T3,R0
RO
RO, aKWPSR
#20,aKWCSR

MOV
CLR
CLR
MOV
BIS
BIS
BIS

#BUFO0,a0FF
awW(R
aBAR
PRIMET,a(SR
RTESTZ!BIT4,aSFR
#MI1T0.aCSR
#3]170,aKw(SR

B8PL
BIS

1%
#ENDDMA ,aSFR

MOV

1%:

1STR

#CLRALL ,aSFR

aKW(SR

;GET AVG CLOCK

JFIX FOR CLOCK PRESET REG

;LOAD CLOCK PRESET
;PRIME

CLOCK

JINIT THE NCV1T
;LOAD OFFSET
;CLEAR Z COUNTER
JSET MODE AND RES.

JSET TESTZ AND TESTX

JENABLE NCVT
JENABLE (LOCK

JWAIT FOR CLOCK FLAG

;STOP DMA XFR

NCVTT
CINCCA
CINCCA.PT

5881
5882
5883
5884
5885

5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903

DIAGNOSTIC

MACY11 27(654)

15:05

B~AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

;THE MATRIX MODE XFR

044410
044414
044420

050100
060000
062000

044426
0464430
044432
0464436
044440
044442

111037
105020

050100

063721

103003
0057461

01272y

044452

001364

044454
044460
044462

012700
005001
005002
062001
103001
005202
022700
001372

062100

044464

044466
044470
044472
044476
044500
044502
044506
044506
044510

044512
044514
064516

044520
044522
064524
044526
064530
044532

04645%
044536
044540
044542
044544
044550
044554
064562

s ¥

SEQ 0143

[F NOw COMPLETED

(LR
MOV
MOV

STEMPY
#8UFQ,RO
1 R
#BUF

MOVR
CLRB

(RO) ,$TEMPI
(RO)+

:GET THE WORD
;CLEAR THE BYTE TABLE ENTRY

33
-(R1)

:BR If NO OVERFLOW
;POSITON POINTER

ADD

STEMP1,(R1)

MOV

#-1,(R1)+

B8NE

B(C
TST

177777

064000

PAGE 131

SNOW ADD THE CURRENT B TE DATA COLLECTION INTO A TOTAL INCREMENT BUFFER

050100

022701

044446

3%:

', o

JUPDATE THE LIST

JSET 10 177777

#BUF 2 R

cFIN]ISHED?

:BR [F NOT

:GET THE AVERAGE OF

MOV
CLR
CLR
ADD
BC(
INC
(MP
BNE

THE 128 CENTER STATES
:GET INITIAL POINTER
#BUF 1+64. RO
R1
R2
(RO) +,R1
;GET A VALUE
5%
;BR IF NO CARRY OVERFLOW
RZ2
JUPDATE MSW
, R0 ;FINISHED THE BUFFER
MBUF1+4192,
43
:BR IF NOT DONE AVERAGE

006002

ROR

R?2

;ROTATE MSW

000241

A ¥

5%:

062300

000241

cLc

006001

ROR

JINTO LSW

000002
006CON

ROR
ROR

R2
R1

;ROTATE MSw
JINTO LSW

006002
006001

ROR
ROR

RZ
R1

;ROTATE MSW
JINTO LSW

006002
006001

ROR
ROR

R2
R1

JROTATE MSW
JINTO LSW

006002
006001

ROR
ROR

R2
R1

:ROTATE MSW
JINTO LSW

006002
006001

ROR
ROR

R2
K1

;ROTATE MSW
JINTO LSW

8LO

DIFLNT

:BR

000241

cLc

000241

cLe

000241

010137
004737
023737
103644

041744
046042
061744

0461742

MOV
JSR
(P

R1,AVGVAL
PC,CTRLCG
AVGVAL ,NOM]AL

:SAVE THE AVERAGE
JTEST FOR “C OR “G
STEST IF AVG. JF >
]f

NOT

CINCCA NCVIY
CINCCA.PIT

5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942

5943
5944
5945

5946

5947

5948
5949
5950
5951
5952
5953
5954
5955
5956
5957

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

15:05

8 12

PAGE 132

SEQ 0144

JREAD THE TOTAL INCREMENT BUFFER AND DETERMINE IF ANY VALUES OUT OF RANGE
044564
044572
044576
044602
044606
044614
044616
044622
044630
044632
044640
044644
044650
044654
044660
044664

044670
044674
0464700
044704
044706
044710
044712
044714
044720
044724
044730
044732
044736
044740
044744
044746
064754

044756

0464764
044766
044774
044776
045004
045006

045012
045014
045020
045022
045030
045032
045036
045040
045044

045046

013737
012700
012701
012137

163737
100006
005137
112737
000403
112737
013746
012746
004737
012637
012637
013746
013746
013746
004737
102003
000000
000240
000240
012637
012637
013702
006202
023702
002402
005237
000240

041744
000001
062002
045256

045260

045256

045260

045256

000055

041606

000053
045256
001750
036504
045274
045276
045274
045276
045260
036616

041606

045266
045270
045260
045266
045270

046207

045270

046211

045270

046213

000053

041606

122737
001403
005237
000423

000053

000420
122737

BPL

COM

MOvB

2%:
3s:

6%:

041750

041752

7%:
041606

20%:

041762

041766
000053

MOV
MoV
MOv
MOV
SuB

BR
MovB
MoV
MoV
JSR
MOV
MOV
MOV
MOV
MOV
JSR
Bv(
HALT
NOP
NOP

AVGVAL ,101$
#1,RO

#BUF1+2,R1
(R1)+,100%
;213,1005
100%

22%:
041606

21%:

CMPB
BLO
CMPB
BLO
CMPB
BLO
CMPB
BEQ
INC
BR

INC
BR

CMPB
BEQ
INC
BR

INC

BR
CMPB

;GET AVERAGE

;GET A WORD
JREMOVE THE AVERAGE

§;°.SGNVL1

JINSERT **='" SIGN

#'+,SGNVL1

JINSERT "'+'" SIGN

- (SP)
1008,

#1000. ,-(SP)
PC,SMULT

(SP)+,107%
(SP)+,110%
107%,-(SP)
1108,~(SP)
1018,-(SP)

zg.SDIV
;FATAL

SMULTIPLY NUM-AVG BY
;GET RESULT

1052 .NORTOL
50%
105% .NARTOL
20%
105% ,NURTOL
21%

1000.

;DIVIDE RESULT
;DIVIDE AGAIN

ERROR DURING

(SP)+,104%
MOV
(SP)+,105%
110V
1g1$.R2
MOV
R
ASR
;gLS.RZ
CMP
BLT
105%
INC
5%:
NOP
;DIFLIN ERROR CH £CK

045270

005237

1%:

4%:

123737
103446
123737
103416
123737
103424
122737
001403
005237
000435

005237
000432

READ1:

CAL.

ERROR

TOLERANCES

;GET REMAINDER
;GET QOuT
JROUND UP [F NEEDED
; COMPARE RESULT
JROUND UP

;TEST AGAINST NORMAL
:BR IF OK
:TEST AGAINST WIDE/NARROW TOLERANCE

:RR IF OK
JTEST AGAINST LLARGE/SMALL
;BR IF OK

g;*.SGNVL1

JTEST IF +

gggow

;COUNT

THE LOWER VALUE

??gVE

;COUNT

THE HIGHER VALUE

#'+,SGNVL1

JTEST

¢+

22%
g?gB

;COUNT THE LOWER

g%gB

:COUNT

THE HIGHER

#'+,SGNVLI

JTEST

TOLERANCE

CINCCA
CZNCCA

5981
5982
5983
5984
5985
5986

5987
5988
S989
5990
59N
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032

NCVIY

DIAGNOSTIC

045054
045056
045062
045064
045070
045072
045076
045104
045106
045112

001403

8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

005237
000411
005237
000406
005237
122737
001054
105737
001051

041760

045114
045120
045122
045126
045132
045136
045140
045144
045150
045152
045154
045156
045164
065166
045172
045176
045200
045204
045210
045212
045216
045222
045226
045232

005737
001013
005237
104401
013746

061774

045236
045242
045244
045250

004737

046042

022700

000377

000137

044602

045256
045260
045262
045264
045266
045270
045272
045274
045276
045300

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

045252

MACY11 27(654)

104405
104401
104401

010046

104403
003
122737
001005
104401
013746
104405
013746
004737
012602
062702
112237
112237
112237
104401
005200
001414

23%:

041764
041754
000115

052474

001134

50%:
51%:
JREPORT

041774
041446
041744
041617
041132
001
000115

10%:
052474

040777
045256

045270
037232

11%:

000002

041610
041611
041613

THE

1ST
BNE
INC
TYPE
MOV

77%:

w]DA

;COUNT THE HIGHER

NORMAL
#'M_RUNIT

;COUNT THE NORMAL
JTEST IF FORCE REPORY

77%
$AUTOB
77%

STAT £ INFORMAT]ON
FIRST
108
FIRST

TYPDS

MoV
JSR
MoV
ADD

LAVRGO
AVGVAL ,~(SP)
RTN

STATE
RO,-(SP)

3.1

#'M,RUNIT
11%
DASH
1008,-(SP)

105%,-(SP)
PC,$SB2D
(SP)+,R2
#2 ,R2
(R2)+,LSBTXT
SGNVAL

JSR

PC.CTRLCG
RO
#255. ,RC

INC

CMP

JMP

O
0
0
O
O
O
0
0
0
0

:TEST

MONITOR

;BR IF YES
:FIRST

TYPEOUT

READ
1%

;BR IF YES
:SET FLAG

:TELL THE OPERATOR THE AVERG.

;ADD HEADER INFO
;LOAD STATE #
;TEST

IF EXPAND QUTPUT SELECTED

s INSERT SPACING
JREPORT DIFFERENCE

;CONVERT TO ASCII
;GFT RESULT POINTER TO MESSAGE
;ADJUST POINTER

(R2)+,LSBTXT+1
(R2)+,LSBTXT+3

TYPE,

BEQ

1008:
1018:
1028:
1038:
1048:
105%:
1068:
1078:
1108:
1118:

;COUNT THE LOWER

51%

TYPDS
TYPE,
TYPE,
MoV
TYPOS
.BYTE
(MPB
BNE
TYPE,
Mov

SEQ 0145

NARA

51%

MovB
MOVB
MovB

041600

c 12
PAGE 133

23%

BEQ

INC
BR
INC
BR
INC
(MP8B
BNE
1STR
BNE

15:05

;TEST

CTRL

JTEST

DONE

;BR IF DONE

C/G

;TRY NEXT VALUE

CINCCA

NCVI1

CINCCA.P11

DIAGNOSTIC

MACY11 27(654)

A TOD FIELD SITE AND ADJUSTMENT LOOP

6033

6034
6035

045302

005037

041746

6039
6040
6041

045322
045324
045330

101026
013702
063702

041760
041764

6036
6037
6038

6042

045306
045312
045316

045334

013702
063702
120237

120237

6043
6064

045340
045342

101017
013702

6047

045356

101010

6045
6046

6048

045346
045352

045360

123737

041702

045516

041714

045516

104401

6063

045450

6062

013746

104405
104401
013702
063702
010246
1.4405

R2.,NURCNT

STEST IF EXCEEDS LIMIT <LARGE ABOVE/BELOW>

ADD
CMPB

WwIDR,R?
R2,NARCNT

:GET LOW VALUE
JADD HIGH
STEST IF EXCEEDS LIMIT <SMALL ABOVE/BELOW>

CMPB

NORCNT ,NORMAL

;TEST IF MIN. NORMAL COUNT HAS BEEN HIT

BHI

1%:

2%:

041623
0461760
041762

BHI
MOV
BR
MOV
INC

MOV

TYPDS
TYPE
MOV
ADD
MOV

TYPDS

1%
#PASMSG,READ7
2%
#FAIMSG,READ7
DIFERR

BELOW,-(SP)

;LOAD MESSAGE POINTER

;LOAD MESSAGE POINTER
:SET ERROR FLAG

:GET NO. OF STATES BELOW LIMITS

,BELMSG
NARA ,R?
NARB,R2
R2,-(SP)

:REPORT VALUE
: TYPE MESSAGE
JGET NARROW LOW
:ADD NARROW HIGH
:GET NO. OF NARROW STATES

: TYPE MESSAGE

045466

104401
013702
063702
010246

041642
041764
041766

TYPE.,
MOV
ADD
MOV

NORMSG
WIDA,R2
WIDB,R2

:REPORT NORMAL TEXT
:GET WIDE LOW
JADD WIDE HIGH

045472
045476

104401
013746

041111
041752

TYPE
MoV

,WIDMSG
ABOVE ,~(SP)

:TYPE MESSAGE

045452
045456
045462

6068

045470

6071
285%

045502
045504

104405

104405
104401

TYPE

,NARMSG

104405

041066

1%
NARB,R?

:BR IF ERRORS
:GET LOW VALUE
;ADD HIGH

NORMAL ,-(SP)

6064
6065
5066

TYPDS

TYPDS
TYPE

041663

R2,-(SP)

,ABOMSG

;GET NORMAL COUNT

:TYPE NO. OF STATES ABCVE LIMIT
: TYPE MESSAGE

:REPORT PASS/FAIL MESSAGE

28;?
6076

045510

104401

6078

045516

0641702

6077

CMPB

1%
NARA ,R2
WIDA,R2

MOV

013746

6069
6070

;GET HIGH VALUE
;ADD LOW
STESTM IF EXCEEDS LIMIT <OBEASE ABOVE/BELOW>

041754

045444

6067

041750

ABCVE ,R?2
BELOW,R?Z
R2,0RSCNT

BHI
MOV

041754

045440

045436

046212

041746

PAGE 134

MOV
ADD
(MPR
BHI
MOV
ADD

046206

6061

6060

061752
0641750
046214

041762
041766
046210

045366
045370
045376
045400
045406
045412
045416
045420
045424
045430
045434

D 12

:NOW ACCOUNT FOR ALL THE ERRORS
READ:
(LR
DIFERR
;CLEAR FLAG

063702
120237

101004
012737
000405
012737
005237

6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059

15:05

8-AUG-78

045514

104407

040730

TYPE,
READ7:

TYPE

PASMSG

GAIN

:RE-TYPE THE GAIN MESSAGE
:REPORT PASS/FAIL

SEQ 0146

NCV1?
CINCCA
CINCCA.PTT

DIAGNCSTIC

MACY11 27(654)

A TO D FIELD SITE AND ADJUSTMENT LOOP

6080

6081
6082
6083
6084
6085
6086

6087
6088
6089

6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108

6109

6110
611

15:05

8-AUG-78

045520
045526
045530
045534

032777
001440
005737
001435

004000

045536
045542
045546
045552
045554
045560
045564
045570

012700
004737
022700
001373

042162
045572
042262

1044071
104401
104401

041617
041617
041617

045572
045576
045602
045604
045610
045612
045614
045616
045622
045624
045626

012701

000020

112002
042702
010246

177400

003
104401
005301
001366
000207

001
041002

045630
045634

005037
000177

041736
000310

000417
104401

104403

061736

041617

133412

E 12

PAGE 135

;TYPE OUT MEMORY RAM AlD RAM MEMORY VALUES IF

SELECTED

#SW11,aSWR
4%
DIFEXT
4%

JTEST IF THIS IS WANTED
;BR IF NOT
;TEST IF BLASTING MODE
;BR [F NOT

MOV
JSR
CMP
BNE

HROMVAL ,RO
PC,2%
#ROMVAL+100,RO
1%

;LOAD INITIAL POINTER
sTYPE OUT _INE
;TEST IF ALL DONE
;BR IF NOT

READXX: BIT
BEQ
TST
BEQ
1%:

SEQ 0147

TYPE,
TYPE,
TYPE,

RIN
RIN
RIN

°%:

MOV

#16. .R1

;LOAD WIDE COUNTER

3$:

MOVB

(RO)+,R2
#177400,R2
R2,-(SP)

;GET A BYTE

TYPE,

BIC
MoV

TYPOS

BYTE

TYPE,
DEC

BNE
RTS
6%:

CLR
JMP

RIN

;JMASK OFF HIGHER BITS
JLOAD VALUE

3,1

DASH+3
R1

3%
PC

DIFEX1
aDIFEXO

JFINISHED ?
JEXIT

JEXIT THIS CRAZYNESS

CINCCA

NCVIY

CINCCA.P11

DIAGNOSTIC

MACY11 27(654)

045640
045646
045652
045660
045666
045674
0645702
045704
045712

012777
005077
012777
012777
012777
032737
001403
052777
052777

004000
134076
177770
060000
000000
002000

134072
134066
134052
046146

002000

134034

000001

134020

6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139

045726
045732
045734
045740
045742
045746
045750
045752
045756
045760
045762
045764
045766
045770
045772

105777
100375
012700
005002
012703
011001
005020
042701
060102
005303
001371
006202
006202
006202
000207

134014

6141
61462
6143
6144
6145

045774
046002
046006
046010
046012

012737
004737
005702
001403
005037

177777
045640

6148
6149
6150
6151
6152
6153
6154
6155
6156
6157

046020
046024

005737
001366

046030

046026
046030
046032
046034
046036
046040

000207
000000
000000
000000
000000
000000

6146
6147

PAGE 136

:DIF LIN SUBROUTINE LIST MODE DATA COLLECTOR

6114
6115
6116
6117
6118
6119
6120
6121
6122

6140

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

g}}%

2152

8-AUG-78

045720

046016

052777

000771

000002

134110

134036

LISTDT: MOV
CLR
MOV
MOV
MOV
BIT
BEQ
BIS
3%:
BIS

#CLRALL,?SFR
Q0FF
#-8. ,aWCR
#BUF 0, aBAR
#0,aCSR
#2000,PRIME1
3s
#2000,8CSR
#TESTZ,aSFR

;CLEAR THE DEVICE
:PRIME OFFSET REG.
:LOAD WC.
:LOAD BUS ADDR.
JSET RES. AND MODE
:TEST GAIN BIT
:BR IF CLEARED
:SELECT GAIN = 2
:SET 2 PULSES

1%:

TSTR
BPL
MOV
CLR
MOV
MOV
CLR
BIC
ADD
DEC
BNE
ASR
ASR
ASR
RTS

aCSR
1%
#BUFO RO
R2
#8..R3
(RO) ,R1
(RO)+
#177400,R1
R1.R2
R3
2%
RZ
R2
R2
PC

:WAIT FOR IDLE

STDATO: MOV
%:
JSR
TST
BEQ
CLR

#-1,10%
PC,LISTDT
R2
2%
10%

:SET ENTRY FLAG
JGET DATA
;CHECK DATA
:BR IF ZERO
;CLEAR ALREADY NON-ZERO DATA FLAG

;BYEBYE

BIS

060000
000010

2%:

177400

046030

#81T70,aCSR

;SUBROUTINE TO FIND THE

:ENABLE THE DEVICE
;LOAD POINTER TO NEW DATA
:LOAD COUNTER
:GET DATA WORD
;CLR BUFFER WORD
:MAKE OFF BITS
;UPDATE TOTAL
FINISHED ?
:BR If NOT

JEXIT
TRUE EDGE OF ZERO DATA

B8R
1%
:DATA WAS ZERO ~ CHECK IF WE STARTED IN O DATA REGION
°$:
TST
10%
:TEST FLAG
BNE
1%
:BR IF NOT A GOOD TIME TO EXIT
:DATA HAS NOW GONE TO A GOOD ZERO DATA REGION
:NOW EXIT
RTS
10%:
0
DIFT1:
O
DIFT2:
O

DIFT3:
HT2T3:

O
0

SEQ 0148

NCVIT
CINCCA.PT1
CINCCA

6158
6159
6160
6161
6162

6163

6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186

6187
6188
6189
6190
619

6192
6193
6194

046042
046046
046050
046056
046064
046072
046074
046102
046104
046106
046110

046116
046120
046124

046132
046134
046136
046140
046142
0466144
046146
046150
046152
046154
046160
046162
046164
046166
046170
046174
046176
046200
046202
046204

15:05

8-AUG-78
MACY1T 27(654)
DIAGNOSTIC
LOOP
ADJUSTMENT
AND
SITE
FIELD
D
A TO
105777
100033

017737
042737
022737
001014
052777
000240
000240
000240
052777
005726
000137
022737
001001

133072
177600

000003

046140
046140
046140

000400

133654

004000

133640

002012
000007

046140

104406

PRIME:
PRIMEQ:

PRIME1:

000036
000000

012500
005737
001402
012500
000401
005725
012701
012021
012021
012021
012021
000205

1%:

2%:
CTRCHA:

177400

PAGE 137

SEQ 0149

;SUBROUTINE TO TEST IF OPERATOR TYPED CTRL C OR G

CTRLCG:

133076

000207
000000
177777

G 12

TSTR

BPL
MOV
BIC
CMP
B8NE
B1S
NOP
NOP
NOP
BIS
TST
JMP
CMP
8NE
GTSWR

RTS
0

?$TKS
2%

s INPUT FLAG
;BR IF NON

#177600,CTRCHA
#3,CTRCHA

;MASK OFF BITS
JTEST IF CTRL C

d$TKB, CTRCHA
1$
HENDDMA ,aSFR

#CLRALL ,aSFR
(SP)+

;GET CHARA(CTER
;BR IF NOT “C
;STOP NPR'S

;CLEAR THE DEVICE
;CLEAN STACK

RTIRT

;RE=-START

;BR IF NOT
;GET SWR VALUE

#7,CTRCHA

;TEST

CTRL

JEXIT

-1.
177400

DIFEXO: O

:SUBROUTINE TO DETERMINE ERROR LIMITS FOR DIFLIN

050110

LIMITS:

MOV
TST
BEQ
MOV

1%:

046206

2%:

TST

MOV

MoV
MOV
MOV
MOV
RTS

(R5)+,R0
WFMODE
1%
525)+,R0

:GET 1ST ARG.
JTEST IF ON TESTER
;BR IF NOT
;GET TESTER LIMITS

(R5)+
#NORCNT ,R1
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+ (R1)+
R5

:BUMP ADDRESS
:GET POINTER
;GET VALUE

JEXIT

MACY11 27(654)

DIAGNOSTIC

15:05

PAGE 138

SEQ 0150

;ACTUAL VALUES FOR DIF LIN ERROR TOLERANCE

6195

6196

6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234

8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

046206
046207
046210
046211
046212
046213
046214
046215

NORCNT:
:
NORTOL
NARCNT:
:
NARTOL
:
NURCNT
:
NURTOL

322
013
036
032
016
145

OBSCNT:
:
0BSTOL

000
377

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

:'NORMAL'' MIN COUNT VALUE

:"NORMAL'' TOLERANCE VALUE
:*NARROW/WIDE'' MAX. COUNT VALUE

377

;DIFLIN ERROR TOLERANCE
046216
046220
046222
046224

046226
046230
046237
046234

342
024
010
000

362
024
010
000

025
063

G1LIMO:

145

377

024
061

.BYTE
.BYTE
.BYTE
.BYTE

226.,21.
20.,51.
8..101.
0.,377

046246
046250
046252
046254

230
€36

010
000

330
010
000

G2LIMO:

171

145

OPTION AREA

;226 MIN COUNT, =<1.9%

377

;226 MIN. COUNT, -<2.0%
;20 MAX. COUNT, =<5.0%
;8 MAX. COUNT, =<10.%
;0 MAX COUNT, >10%

GILIMT:

377

025
063

USER

GAIN =1

140

031
073

GAIN =1

;DIFLIN ERROR TOLERANCE
.BYTE
.BYTE
.BYTE
.BYTE

226.,20.
20.,49.
8.,96.
0,377

;DIFLIN ERROR TOLERANCE
046236
046240
046242
046244

:*NARROW/WIDE'' TOLERANCE VALUE
:*LARGE/SMALL’' MAX. COUNT VALUE
:"LARGE/SMALL"' TOLERANCE VALUE
:"OBESITY'' MAX. COUNT VALUE
:"OBESITY'' TOLERANCE VALUE

BYTE

.BYTE
.BYTE
.BYTE

216.,25.
30..59.
8.,121.
0..%77

;20 MAX. COUNT,
<4.8%
;8 MAX COUNT, =<9.5%

;0 MAX COUNT, >9.5%

GAIN = 2

USER

:216. MIN COUNT, =<2.4%
:30. MAX COUNT, =<6.0%

;14 MAX COUNT, =<12.0%
;0 MAX COUNT, >12.0%
OPTION AREA

JDIFLIN ERROR TOLERANCE

GAIN = 2

G2LIM1:

:216. MIN COUNT, =<2.0%
:30. MAX COUNT, =<5.0%
;8. MAX COUNT, =<10.0%
;0 MAX COUNT, >10.0%

.BYTE
.BYTE
.BYTE
.BYTE

216.,21.

30.,51.
8..101.
0..377

NCV11
CINCCA
CINCCA P11

046424

046432

046440
046446
046454

046462

046466
0466470
0466476

046504
046512
046520
046526
046531
046533

046540
046546
046554
046562
046570
046576
046601
046603
046610
046616
046624
046632
046640
046641
046643
046650
046656
046664
046672

015
020111
052111
030101
045104
0467105

047111
020105

043517
042524
015
102
040514

020107
042510
040505
041440
052103
051120
015
020103
052116
051120
020115
0461040
047111

015
020114
044507
052123
034115
047101
031460
015
104

043111
052116
044514
052111
052040
030460
015
106

047111
041503
041516
0460440
051
015
101

045104
047105
040440
052101

012
020075
040511
033461
051525
020124
020107
047107
052040

122
012
036440
052123
043117
046040
044522
051117
047511
046517
012
020075
047522
043517
051120
040514
000107
012
020075
020103

047440

031060
020104
066
012
036440
042506
040511
042516
020131
042510
067
012
036440
046101
050105
020105
042116

046711
020114
040440
046524

.BYTE
LASCII

15 .12
/1 - INITIAL AO17 ADJUSTMENT USING THE ANALOG TESTER/

.BYTE
LASCII

BYTE
LASCIZ

051525
0464124
046101
051505

041040
047111
052040
047111
054524
042522
020116

047503
020114
0460522
046517
052123
047514
042524

LIST:

.BYTE

15 .12

BLASTING OF

THE LINEARITY (ORRECTION PROM/

15 .12

- CONTROL PROGRAM PROM BLASTING/

15 .12

LASCII

.BYTE
LASCII

- LOGIC TEST OF MB8026 AND MB8036/

020106
020066
034115

042040
042522
020114
051101
043117
040440
043040
040440
040524
046050
042040

036440
051525
020124
030460
043040

LISTO:

SEQ 0151

040440
046524
043117
020067
042511

.BYTE
LASCII

15 L2

DIFFERENTIAL LINEARITY OF THE AQ17/

.12

= FINAL ACCEPTANCE

12 .12

/A - ADJUSTMENT OF

(L AND D)/

AQ17 AT FIELD SITE/

1
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288

046256
046260
0466266
046274
046302
046310
046316
046324
046332
046340
046343
046345
046352
046360
0466366
046374
066402
046410
0466416
0466422

112

PAGE 139

BB
BD

6235
6236
6237
6238
6239

15:05

MACY11 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

ThrEhaEEEEEEEETETEEEDDE
DD
DD D DD e

NCV1Y
CINCCA
CINCCA P11

015
117
042520
053440
052124
040440
051523
047116
015
123
043117
020105
044103
05151
044103
015
020110
050114
047440
047524
020104
042520
020123

012
036440
040522
052111
020131
042104
047040

000
015
056

047106

116

012
036440
053524
053523
051040
042524
047101
012
020075
052040
042520
020122
042522
052040
044514
012

000

SEQ 0152

052111
.BYTE
LASCII

047440
042524
020110
052101
042522
047116

.BYTE
LASCII

051440
051101
052111
043505
020122
042507

.BYTE

042510
042510
040522
047101
054524
044510
052123
LISTT:
DOT:

15.12

/0= OPERATE WITH TTY AT ADDRESS NNNNNN/

15,12

/S = SOF TWARE

SWITCH REGISTER CHANGE/

.ASCIZ

/H = HELP THE OPERATOR AND RETYPE

.BYTE
.ASCI2

15,12
/.7

(OM

051440

105

PAGE 140

De>>P>P>D>PPPPPPPPDB

042114

J 12

THIS LIST/

mm M mm

046700
046706
046707
046711
046716
046724
046732
046740
0466746
046754
046757
046761
046766
046774
047002
047010
047016
047024
047026
047034
047042
047050
047056
047064
047072
047100
047101
047103

15:05

.EVEN

mmMmMmMriMmmrmmmmm

6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319

MACY11 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

mmm

NCV11
CZNCCA
CINCCA PN

B-AUG=78

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

K 12

PAGE 141

SEQ 0153

MACY11 27(654)

005037

006335
132562
046140

132564

CLR

#6035,aVTICHAR
aVvTYPOS
CTRCHA

105777
100375
052777
103777

132560

1%:

001000
132544

132550

042777

001000

132534

047162
047166

047172
047176
047200
047204

012701
012700
004737
005200
022700
001372

010421
003740
050044

047206
047212
047216
047220
047224

012700
004737
005200
022700
001372

000000
050044

047226
047232
047236
047240
047244

012700
004737
005200
022700
001372

007740
050044

004000

71ST8
aVTCSR
BPL
1%
81S
#8IT9,aVICSR
2%:
TST8B
aVTCSR
BPL
2%
BIC
#B1T9,aVICSR
;NOW LOAD THE REF. PATTERN INTO
MoV
#10421,R1
MOV
#3740 ,R0
38:
JSR
PC.DISPLY
INC
RO

000040

5%:

010000

;HOME AND ERASE SCREEN
;CLEAR THE MAP P.C.
;CLEAR TTY (CHARA(TER
JWAIT FOR READY
;
;CLEAR THE MAP
JWAIT FOR READY AGAIN

cMp

#4000,R0O
3%

;CLEAR THE ERASE BIT
THE MAP
;LOAD THE PIXEL VALUE
;LOAD THE PIXEL ADDRESS
;LOAD THE DATA
;UPDATE THE ADDRESS
JFINISHED ?
;BR UNTIL DONE

MOV
JSR
INC
CMP
BNE

#0,RO
PC,DISPLY
RO
#40,R0
4%

;LOAD PIXEL ADDRESS
;LOAD THE DATA
JUPDATE THE PIXEL ADDRESS
JTEST IF DONE
;BR IF DONE THE VERTICAL

MOV
JSR
INC
CMP
BNE

#7740 RO
PC.DISPLY
RO
#10000,RO
5%

;LOAD PIXEL ADDRESS
;LOAD THE DATA
;UPDATE THE PIXEL ADDRESS
;TEST IF DONE
;BR IF DONE

BNE
6%:

;CLEAR THE WORLD
sTELL OPERATOR ABOUT CABLES

;POSITION THE MAP AND DISPLAY
047246
047254
047262
047270

012777
012777
012777
052777

000005
000060
000463
000400

132442
1324472
132434
132420

MOV
MOV
MOV
BIS

#5,aVTCSR
#60 ,aVTINT
#+63,aVTINT
#81T8.aVTCSR

;LOAD ORGIN VALUE
;LOAD LUT O
JL0AD LUT 1
;ENABLE THE MAP

PRIM

.ERASE THE SCREEN MAP

047132
047136
047140
047146
047152
0467154

100375

POTIME: RESET
TYPE,
MOV

005077

052242

000005
104401
012777

047110
047114
047122
047126

ODODDPo®

047106

[ainlnlinininininininininininininlnininlt
decks

6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
€335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359

DIAGNOSTIC

CINCCA NCVi1
CINCCA.PIT

6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404

DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP
:NOW SAMPLE
SAMCAM:

047276
047276
047302
047304
047306

004537
050126
001730
000

047522

047310
047314
047316
047320

004537
050312
001732
001

047422

047322
047326
047330
047332

004537
050476
001734
002

047422

047334
047340
047342
047344

004537
050662
001736
003

047422

000

047346
047352
047354
047356

004537
050220
001732
000

047422

047360
047364
047366

004537
050404
001730

047422

001

047372
047376
047400
047402

004537
050570
001736
002

047422

047404
047410
047412
047414

004537
050754
001734
003

047422

047416

000137

002644

047370

B-AUG-78

001

15:05

L 12
PAGE

142

SEQ 0154

THE CAMERA CHANNELS

;CAMERA 0, X INPUT
R5,ADJCAM
JSR
ADMSGO
DACO
0,0
.BYTE
INPUT
X
1,
CAMERA
;DO
R5,ADJCAM
JSR
ADMSG?
DAC1
.BYTE
1,0

;DO CAMERA 2, X INPUT
R5,ADJCAM
JSR
ADMSG4

DAC2
BYTE

2.0

JSR

R5.,ADJCAM

BYTE

3,0

;DO CAMERA 3, X INPUT
ADMSG6
DAC3

:NOW SAMPLE THE Y CAMERA CHANNEL

*CAM 0 MESSAGE
*DAC ADDRESS

*CAMERA 0, X AXIS
;CAM 1, X MESSAGE

:DAC ADDRESS

;CAMERA 1, X AXIS

;CAM 2, X MESSAGE
;DAC ADDRESS
;CAMERA 2, X AXIS

:CAM 3, X MESSAGE

;DAC ADDRESS
éCAMERA 3. X AXIS

;DO CAMERA O Y I NPUT
JSR
ADMSG1

R5,ADJCAM

DAC

.BYTE
0.1
;DO CAMERA 1, Y INPUT
R5,ADJCAM
JSR
ADMSG3
DACO
1.1
.BYTE
;DO CAMERA 2, Y INPUT
RS,ADJCAM
JSR
ADMSG5

DAC3

.BYTE

2.1

JSR
ADMSG7
DA(C?2
.BYTE

R5,ADJCAM

JMP

RBEGO

;DO CAMERA 3, Y INPUT

3.1

;CAM 0 Y MESSAGE
;DAC ADDRESS
;CAMERA 0, Y AXIS
;CAM 1, Y MESSAGE
sDAC ADDRESS
;CAMERA 1, Y AXIS

;CAM 2, Y MESSAGE
;DAC ADDRESS
JCAMERA 2, Y AXIS

;CAM 3, Y MESSAGE
:DAC ADDRESS

;CAMERA 3 Y AXIS

lvlvivivivlololvio BN e Yo Yo Yl

CINCCA NCV1T
CINCCA.PIT

MACY11 27(654)

CINCCA NCVIT
CINCCA. P

MACY11 27(654)
B8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP
JREPORT

6405

6406

6407

6408
6409
6410
661
64612
6413
64614
6415
6416

64617

6418

6419

6420
6421
6422
6423
6424
6425

6426

6427

6428
6429
6430
6431
64632
6433
6434
6435
6436
6437
6438
6439
6440
6441
64462
6443
644
6445
6446

6447
6448

6449
6450
6451
6452
6453
6454
6455
6456
6457
6458

0467422
0474624
047430
047432
067440
047444
0474646
047452
0467454

012500
005777
100375

132256

012777
005777

012000

112077
105710

132234

047456
047462

013537
012537

050104
050112

047466
047474
047500
047504
047510
047516
047522
047526
047532
047540
0467544
047550
047554
047560
047566
047570
0467574

012777
004737
010137
004737
012777
004737
010137
004737
012777
004737
010137
004737
004737

002315
047576
050120
050022

100375

132242

132254

2%:

000344

001337
005037

JPOSITION THE CAHRA(CTERS
READY

MOV

@(RS5)+ DACADR
(RS5)+, CAMVAL

;SAVE ADDRESS
;SAVE CAMERA DATA

#2315 ,aDACADR

JPRESET

MOV

19
(RO) +,aVT(HAR

JSR
MOV
JSR

PC,SAMDAT
R1,VALO
PC,FIXLIN

JSR
MOV
JSR

PC,SAMDAT
R1,VAL1
PCFIXLIN

JSR

;LOAD THE (CHAR.
IF

TERM.,

:BR IF NOT

DAC

TO - GAIN

;SAVE RESULTS

;POSITION THE CROSS HAIR LINE
JPRESET DAC TO OFFSET

#5463 ,3DACADR

;POSITION THE CROSS HAIR LINE
JPRESET DAC TO + GAIN INPUT

R1,VAL?2

;SAVE AVERAGE RESULTS

P(C,SAMDAT

PC,FIXLIN
PC,CTRLCG
#'C,CTRCHA

CLR
RTS

(TRCHA
RS

;SAMPLE THE DATA
:SAVE AVERAGE RESULTS
;SAMPLE THE DATA
;POSITION THE

CROSS HAIR LINE

;TEST FOR CTRL C/G
JCHECK IF CHARACTER WAS A \(\

;BR 1F NOT

;CLEAR (HAR
JEXIT

;COLLECT 64 SAMPLES FROM THE SELECTED CAMERA

;JR1

047576
047602
047606
047610
047612

012700
012701
005020
020001
001375

060000
062000

047614
0467622
047630
047636
047644

012777
012777

177700

047652
047656

105777
100375

132070

047660
047666
047672

012777
005037
005037

004000
050100
050102

113777

052777
052777

CONTAINS

SAMDAT: MOV
MOV
18:

(LR

060000
050112
000002
000001
2$:
132070

THE AVERAGE

#8UFO,RO
#8UF1 R1
(RO)
+

;CLEAR THE BUFFER
sFINISHED ?

(€

RO.R!
18

:sBR [F NOT

MOV
MOV
MOv8
BIS
8IS

#-100,aWCR
0, aBAR
#8UF

;LOAD WORD COUNT
;LOAD ADDRESS
JSELECT THE CAMERA
JSET TEST 7 ENABLE
SENABLE NCVT!

TST8
8PL

a(SR
2%

JWAIT UNTIL DONE

MOV

#CLRALL ,aSFR

;CLEAR THE DEVICE

BNE

(LR
(LR

INPUT

#4000, aDACADR

JSR
JSR
(M8

BNE

000205

;WAIT FOR READY

BNE

MOV

046140

JGET ASCI! POINTER

JTEST

MOV

122737

(R5)+,RO
aVTCHAR
3s
#12000,3VTCXY

CAMVAL ,a(SRHB
#TESTZ ,aSIR

#3]170,aCSR

STEMP]
STEMP2

Ci
of

(RO)

BPL
mMovB8

MOV

000366

SEQ 0155

JWAIT FOR (HAR.

MOV

000410

PAGE 143

aVT(HAR

TST

TST8B

001371

M 12

THE MESSAGE FIRST

ADJCAM: MOV
TST
3$:
BPL
MOV
1%:

15:05

6465

6466

6467

6468
6469
6470
64671
6472
6473
6474
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486

6487

6488
6489
6490
64N
64692
6493
6494
6495
6496

047730

0467734
047736
047740
0467744
047752
047756
047762
047764

0467766

047770
047772
047774
047776

050000
050002
050004
050006
050010
050012
050014

050016
050020
050022
050024
050026
050030

6497

050032
050036
050042

6500

050044

6498
6499

6501
6502

6503

6504
6505
6506
6507
6508
6509
6510
6511
6512

050052

15:05

B8-AUG-78

A TOD FIELD SITE AND ADJUSTMENT LOOP
005001
012700
105737
001413
012037
113737
063701
022700

001366
000412

060000
050113
050100
050101

050102
060200

050102

(LR
MOV
1ST8
B8EQ
MOV
MOVB
ADD
4, o

BNE
B8R

N 12

PAGE 144

R1
#MUFO . N0
(AMVAL +1
5%
(RO)+,STEMP)
STEMP1+1 STEMP?
STEMP2 R
#BUF0+200,R0

3s
108

:LOAD BUFFER POINTER
JTEST JF X OR Y DATA
:BR IF X

:GET THE DATA

GET HIGH BYTE DATA

JUPDATE AVERAGE
:FINISHED DATA ?

:BR IF NOT

(RO)+,STEMPI

;GET DATA

STEMP? R
#RUF0+200,R0

:UPDATE THE AVERAGE
:FINISHED DATA ?

ASR

;AVERAGE THE DATA

ASR

;AVERAGE THE DATA

ASR

:AVERAGE THE DATA

;AVERAGE THE DATA

000240

ASk
NOP
ASR
NOP

;AVERAGE THE DATA

000240

NOP

ASR

;AVERAGE THE DATA

RTS

SEXIT

012037

050100

063701
022700

050102
060200

113737

001366

0S0100

050102

000240
000240
000240

000240
000240

NOP
NOP

NOP

006201
000240
006201

006201

000207

STEMPY STEMP?

b} 3

;BR IF NOT

JSUBROUTINE TO LOAD X OR Y (ROSSHAIRS
R?
FIXLIN: ASR
NOP

006201
000240

000240
000240
062701
110177
000207

000100

042777
010077
105777

000400
131642
131634

010177
052777

131632
000400

000000

8ME

NOP

006201

000000
000000
000000
000000

MOVB

NOP

006201

000207

MOV

ADD
4, o

108 :

006201

100375

5%:

NOP
NOP
ADD
Mmov8
RTS

131650

131644

131620

#100,R1

R1,aVIXPOS

:SUBROUTINE TO LOAD PIXEL DATA
DISPLY: BIC
#400,8VT(SR
MOV
RO, @V TMAP
1%:
T<I8B
avT(SR
8PL

MOV
BIS
RTS

R1,8VTIPX
#600,8VvI(SR
P

;DISABLE MAP
;LOAD MAP P1

JWAIT FOR MAP READY
JLOAD PIXEL DATA
JENABLE MAP

STEMPY: O

STEMP?2: 0
DACADR: 0
RUNDIF: O
wfMODE:

SEQ 0156

6464

067676
047700
047704
047710
047712
067716
047724

MACY1T 27(654)

;uf OPT]ON AREA FLAG

C=IIODNOOO.

6459
6460
6461
6462
6463

DIAGNOSTI(

xoCo

CINCCA NCVTY
CINCCA. P

6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531

6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542

6543
6544
6545

6546
6547
6548
6549
6550
6551
6552
6553

6554
6555
6556
6557
6558
6559
6560
6561
6562
6563
6564

6565
6566

050112
050114
050116
050120
050122
050124
050126
050134
050137
050141
050146
050154
050162
050170
050172
050200

050206
050214
050220
050226
050231

050233
050240
050246
050254
050262
050264
050272
050300
050306

050312
050320
050323
050325
050332
050340
050346

050354
050356
050364
050372

050400
050404
050412

050415
050417
050424
050432
050440
050446
050450
050456
050464
050472

MACY11 27(654)
8-AUG-78
DIAGNOSTIC
A TO O FIELD SITE AND ADJUSTMENT LOOP

000000
00v000
900000
000000
000000
000000
040503
030040
015
101

020124
047506
043117
015
042101
051040
051117
044501
040503
030040
015
101
020124
047506
043117
615
042101
051040
051117
044501
040503
030040
015
101
0c0124
047506
043117
015
042101
051040
051117
044501
040503
030040
015

:
CAMVAL
:
ENT
CUR

AGAN:

042515
060
012
045104
030122
020122
051506
012
052512
032062
054040
000116

052123
043040
043440
040522

042515

040522

030522
020122
051596

051525
020060
020130
052105

030062
054440
000116

061
012
045104

012

052512
031462
054040
000116
042515

ADMSG1:

051525
020063
020131
052105

052123
043040
043440

ADMSG2:

052123
043040
043440
040522

051525
020064
020131
052105

000116

ADMSGO:

051525
020071
020130
052105

042515
060
012
045104
030522
020122
051506
012
052512

101

020124
047506
043117
015
042101
051040
051117
044501

040522

VALOQ:
VALT:
VALZ:

052123
043040
043440

ADMSG3:

15:05

B 13
PAGE

145

SEQ 0157

lelelolelale]

NCVIT
CINCCA.PIT
CINCCA

LASCII

/CAMERA 00/

.BYTE
LASCI1

/ADJUST RO9 FOR

.BYTE
.ASCIZ

/ADJUST

LASCII

/CAMERA 00/

.BYTE
LASCII

/ADJUST R13 FOR

.BYTE
.ASCIZ

/ADJUST R20 FOR

LASCII

/CAMERA 01/

.BYTE
-ASCII

/ADJUST R10 FOR

OFFSET/

BYTE
LASCIZ

/ADJUST R23 FOR

GAIN/

LASCII

/CAMERA 01/

.BYTE
.ASCI1

/ADJUST R14 FOR

.BYTE
.ASCIZ

/ADJUST R19 FOR

15,12

R24 FOR

15,12

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

GAIN/

15,12
/ADJUST R11

052123

.BYTE
LASCIZ

15,12
/ADJUST R22 FOR X GAIN/

LASCII

/CAMERA 02/

.BYTE
.ASCII

15,12
/ADJUST R15 FOR Y OFFSET/

.BYTE
.ASCIZ

/ADJUST R18 FOR Y GAIN/

.ASCII

/CAMERA 03/

.BYTE
.ASCI]

15,12
/ADJUST R12 FOR X OFFSET/

.BYTE
.ASCIZ

15,12
/ADJUST R21

LASCIi

/CAMERA 03/

.BYTE
LASCII

15,12
/ADJUST R16 FOR Y OFFSET/

.BYTE
.ASCIZ

/ADJUST R17 FOR Y GAIN/

.BYTE
LASCII

/THE SELF-TEST CONNECTOR MUST BE INSTALLED ON A017/

020131
052105

052123
043040

15,12

043440

044501

040522

040503
030040
015

ADMSGS:

051525
020062
020130
052105

101
020126

047506
043117
015
042101
051040
051117
044501
040503
030040
015

052123
043040
043440
040522

ADMSG7:

051525
020066
020131
052105

101

000116

012

020105
052055
047503
047524

052123
043040
043440

042523
051505

047116
020122

eI~
cem
TER
WD
=

051525
020065

ADMSG5:

——

040522

FOR X OFFSET/

-AF

.BYTE
LASCII

043440

020124
047506
043117
015
042101
051040
051117

020124
041505

051525

043040

101

043114

/CAMERA 02/

ADMSG4:

020061
020130
052105

020124
047506
043117
015
042101
051040
051117
044501
040503
030040
015

020124
047506
043117
015
042101
051040
051117
044501

LASCII

040522

SEQ 0158

——

015
044124

101

146

051046
051050
051056
051064
051072

042515

PAGE

——

6575
6576
6577
6578
6579
6580
6581

040503
030040
015

c13

6571
6572
6573
6574

050476
050504
050507
050511
050516
050524
050532
050540
050542
050550
050556
050564
050570
050576
050601
050603
050610
050616
050624
050632
050634
050642
050650
050656
050662
050670
050673
050675
050702
050710
050716
050724
050726
050734
050742
050750
050754
050762
050765
050767
050774
051002
051010
051016
051020
051026
051034
051042

15:05

m—m

6567
6568
6569
6570

8-AUG-78
MACYT1 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP
DIAGNOSTIC

-—

NCVIT
CINCCA
CZNCCA P11

PRIMO:

FOR X GAIN/

15,12

124

044527
047117
020067
041040
021040
021056
052111
040450
051106
042510
041440
052103
015
047111
051040
045501
042514
020117
047523
047440
020105
015

012
012

020105
052055
047503
047524
052123
042522
020104
052040
030460
012
042510
041524
040440
052515
020105
050117
050040
047511
040527
046517
044440
047117
051117
012
042523
046501
041440
044440
044124
045503
020116
030101
012

\THE SWITCH ON A017 MUST BE IN 'MAINT.'' POSITION (TOWARD THE /0 CONNECT

047111
047520
047117

040527

042523
051505
047116
020122
041040
047515
051106
042510

o B

042510
041440
052103

000

PRIMG:

067

BYTE
.BYTE
LASCII

.BYTE
.ASCI1

051440
020110
030460
052123
047111
051105
051517
020116
020131
052040
047457

15.1 2.0
15.1 2

/THE SELF-TEST CONNECTOR MUST BE REMOVED FROM THE AQ17/

15,12

\THE SWITCH ON A017 MUST BE IN 'OPER.'' POSITION (AWAY FROM THE /0 CONNE

042516

051
000
052122
050055
041101
052116
020105
052105

044124
033461

T N M

.BYTE
LASCI1

051440
020110
030460
052123
047111

T TITITTTITTTITTTT

041040
052123
020104
030460

o B

012
042510
041524
040440
052515
020105
040515
020042
044524
047524
052040
047457
042516
051

SEQ 0159

052123
047111
042514
040440

D 13
PAGE 147

o lie o B

052515
020105
046101
047117
067
015
124
044527
047117
020067
041040
021040
027124
044523
024040
042122
044440
047117
051117
015
015
044124
043114
020124
041505
052515
020105
042526
046517
040440
015

15:05

051100
051106
051114
051122
051130
051131
051133
051140
051146
051154
051162
051170
051176
051204
051212
051220
051226
051234
051242
051245
051250
051252
051260
051266
051274
051302
051310
051316
051324
051332
051337
051341
051346
051354
051362
051370
051376
051404
051412
051420
051426
051434
051442
051450
051455
051460
051466
051474
051502
051510
051516
051524
051532
051540

8-AUG-~78
MACY11 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP
DIAGNOSTIC

e o

NCV1T
CZNCCA
CZNCCA P11

PRIMS:

15,12,0

.BYTE
LASCII

/INSERT RAM-PAK CABLE INTO THE SOCKET ON THE AQ17/

.BYTE

15,12

6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722

6723
6724
6725

6726
6727

5728

051542
051550
051556
051564
051572

051600
051606
051614
051620
051622
051630
051636
051644
051652
051660
051666
051672
051674
051702
051710
051716
051724
051732
051740
051746
051754
051762
051763
051765

051772

052000
052006
052014
052022
052030
052036
052044
052046
052051

052053
052060
052066

052074
052102
052106
052110
052116
052124

052132
052140
052146
052154

052162
052170

042523
026515
053523
051505
044442
047042

040440
043117
015
047111
041040
051040
052116
020115

042524
045503

015
046120
042040

051523
021040

040440
054105
021105
047524
043517
122
015
124

050040
051523
020123
046040

053440
047504
051117
054514
015

015
120

020105
042526
050055
041101
015

040440
051516
044124
051501
047522
047524
042513
040440

047515

020124
040520
05211
052040
021116
051117
042116
021106
012
042523
040514
046517
020117
046102
020122
052105
012
040505
050105
052040
027511
042116
041505
041040
051516
052105
012
042510

047522
046040
044527
04351
042510
042516
042522
012
012

042514
042522
051040
045501
042514
012
042116
051105
020105
042524
020115
051440
020124
030460
052504

040522

020113
044103
020117
020054
021115
021040
052122
045516
044440
047522
051501
047523

PRIM3:

042523
042522
042510
021117
021040
052125
052125
052040
042510
032040
042503
042105
046114
052110
020116
041440
052103

000
051501
047515
046501
041440

044440
020124
046102
020104
047111

041517
047117
020067
042514

PRIM1:

E 13
PAGE

148

.ASCII

/SET RAM-PAK SWITCHES TO "‘IN'', "NORM'' AND ‘OFF'Y/

.BYTE
LASCII

/INSERT BLANK ROM INTO ROM BLASTER SOCKET/

15,12

.BYTE
.ASCII

15,12

.BYTE
LASCII

15,12

.BYTE
.BYTE
LASCII

15,12.0
15,12
/PLEASE
REMOVE RAM-PAK CABLE/
[

.BYTE
LASCII

/ AND INSERT THE BLASTED ROM INTO SOCKET ON AO17 MODULE/

\PLEASE DEPRESS THE ‘'I/0'' AND 'EXECUTE'' BUTTONS TOGE THER\

\THE & PROCESS LEDS WILL LIGHT WHEN DONE CORRECTLY\

15,12

SEQ 0160

' Xan)

15:05

M
- -

NCVIY
CINCCA
CINCCA PN

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757

6758
6759
6760
6761

6762
6763

6764

6765

6766
6767
6768
6769
6770
6771

6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782

052176
052200
052206
052214
052222
052230
052236
052237
052242
052244
052252
052260
052266
052274
052302
052310
052316
052324
052327
052332
052334
052342
052350
052356
052364
052372
052400
052406
052414
052420
052424
052427
052434
052442
052450
052456
052464
052472
052474
052502
052510
052514
052522
052530
052536
052541
052544
052545
052547
052554

052562
052565
052572

015
042504

020123

0461442
054505
020116
131
015
015
050042
040503
052515
020105
041505
047524
040440
047503
047524
015
015
050042
040503
052515
020105
041505
047524
046440
041440
052103
015
052424

015
106
041040
040522

047105
047506
020107
021040
021103
047514
047117
005015

012
051120
044124
021122
053440
042522
012
012
030512
046102

052123
047503
042524
052040
030460
047116
122
012
012

.BYTE
LASCII

051505
020105
045440
042510
062101
000

020042
020105
041040
047116
020104
042510
020067
041505
000

F13
PAGE 149

SEQ 0161

15,12
/DEPRESS THE "'CR'" KEY WHEN READY/

PRIM?:

.BYTE
BYTE
LASCII

" CABLE MUST BE CONNECTED TQ THE AO17 CONNECTOR/

PRIMG
:

.BYTE
.BYTE
LASCII

" CABLE MUST BE CONNECTED TO THE M8036 CONNECTOR/

15,12,7 ;"RUNIT'' MUST BE ON A WORD BOUNDRY
/FATAL BUS TRAP WHEN PERFORMING TEST 'Y/

031512
046102
052123
047503
042524
052040
030070
047117
051117
012

020042
020105
041040
047116
020104
042510
033063
042516

012
052101
051525
020120
050040
046522
042524

007
046101
052040
044127
051105
047111
052123

FATALO:

.EVEN
.BYTE
LASCII

040411

020124
044524

RUNIT:

LASCIZ

/c’

043517
042522
044524

RUNITA:

LASCIZ

<15><12>/PROGRAM RESTARTING/

.BYTE

15.,12.7.0

MSGMEM:

.BYTE
LASCIZ

15,12
/RUNNING WITH /

MSGK:

LASCIZ

/ K OF MEMORY/<15><12>

040503

000040
051120
020115
051101
000
012

032
04712
053440
000
020113
046505

000

007
044516
052111
043117
051117

15:05

NNV

6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743

8-AUG-78
MACYT1 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

15,12.0

AT LOCATION /

;"RUNIT'' MUST BE A WORD BOUNDRY
;"RUNIT'" MUST BE A WORD BOUNDRY

INRtAIATATALA

NCV1
CZNCCA
CINCCA P

006531

000012

6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795

052607
052614
052622
052630
052636
052644
052646
052653
052655
052661
052663

117
040440
051523
042524
046101
033
043113
015
106
015
104

052103
042104
047440
046522
036440
000
027462
000
031515
000
030111

6797

052671

015

002

6799

052673

060

6801
6802
6803

052677
052702
052703

060
040
060

060

6805

052707

6807

052713

6783

6784

6796

6798
6800

6804

6806
6308

052604

052670
052673
052676

052706
052712

052716

6809

052717

6811
6812
6813

052723
052726
052727

6815

052733

6810

6814

6816

6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836

052722

052732
052736

052737
052742
052743
052746
052747
052752
052753
052756
052757
052762
052763
052766
052767
052772
052773
052776
052777
053002
053003
053006

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP
015

G 13

PAGE 150

007

WARNO:

.BYTE

LASCIZ

/OCTAL ADDRESS OF TERMINAL = /

062

ESCP:
KFO:

060

FMO:

031457

DIO:

.BYTE
LASCID
BYTE
LASCIT
.BYTE
LASCII

33,0
\KF2/2\
15,0
\FM30\
15,0
\DIO/37\

BYTE

15,2

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

C60
040
060

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60C,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

067

040

040
040
040

040

012

15:05

046101
042522
020106
047111
000040

DIDATA:

15,12,7

SEQ 0162

O N

052600

CINCCA.PYT

MACY11 27(654)

NN NNV

DIAGNOSTIC

[¥a]

NCV1T

(NN NININ (N

CINCCA

CINCCA NCV11
CINCCA PN

15:05

B-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

H13
PAGE

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060
040
060
040
060
040
060
040
060

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60.,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060
040
060
040
003

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

BYTE

3.0
\CMO/ 37\

060
040
060
040
060
040
060
040
060
040
060
040

040

ég;
015

103

043520
015
050132
015

000

030115

031457

000

000103

027460
000
000

033463

(MO:
€CO:

PGO:
ZP0:

.ASCI1I
.BYTE

.ASCIZ

LASCII
.BYTE
LASCII
.BYTE
.EVEN

151

SEQ 0163

15,0

/CC/

\PGO/ 37\
15,0

/IP/

15.0

= =~y

.END

.=60000
.BLKW
.BLKW
NOP

—~N

000001

BUFO:
BUF 1:
BUF2:

—

060000
001000
001000
000240

060000
062000
064000

;BUFFER AREA
nonY

6840
6841

053007
053012
053013
053016
053017
053022
053023
053026
053027
053032
053033
053036
053037
053042
053043
053046
053047
053052
053053
053056
053057
053062
053063
053066
053067
053072
053073
053075
053102
053103
053105
053110
0531156
053120
053122

MACY11 27(654)

(9,19,

6837
6838
6839

DIAGNOSTIC

551

552

6389

6394

6399

64074

1694
1915

1711
1932

1728
1949

1745
1966

1762
1983

3323

3352

3395

3414

3421

3452

683

65154

547

548

549

6036
43

6070
561

542

543

6373

6378

6384

1660
1881

1677
1898

3279

587+

553

554

1779
2000

2017

555

556

e B R

e e Boa B T

o R

o B Bne Roon B

403

65194
65314
65434
65554
65674
65794
65914
66034
811»
399

416
420

423

1813

20 4
k4

1830

2053

400

391
585+

1796

57074
856
1864

6368

394

430

1
T I
B
I
T
I
O
L

050126
050220
050312
050404
050476
ADMSGS
050570
ADMSG6
050662
ADMSG7 050754
ADNOKT
003352
AENV
- 000000
AENVM = 000000
AFATAL= 000000
AGAN
050116
AMADR 1= 000000
AMADR2= 000000
AMADR
3= 000000
= 000000
AMADR4
AMAMS 1= 000000
AMAMS
2= 000000
AMAMS
3= 000000
AMAMSS= 000000
AMSGAD= 000000
AMSGL G= 000000
AMSGTY- 000000
AMTYP1
000000
ADMSGO

ADMSG1
ADMSG2
ADMSG3
ADMSG4

550

429

000000
000000
ADDWO
000000
ADDW1
000000
ADDW10
000000
ADDW1 1= 000000
000000
000000
000000
ADDW15
000000
ADDW?2
000000
ADDW3
000000
ADDW4
000000
ADDWS
000000
ADDW6
000000
ADDW/
000000
ADDW8
000000
ADDW9
000000
ADEVCT
000000
000000
047422
043422
001760
ACPUOP

53374
2794
388
388
388
388
388
388
388
388
388
388
388
388
288
388
388
388

SEQ 0164

p—p————

170420

388
6072
5548
5972+
388

152

041663
0461545
041752

2774
S5377#
5357#

113

PAGE

172760

15:05

ABASE =
ABOMSG
ABORTB
ABOVE
ACDW1
ACDW2

8-AUG-78

426
410

418

421
424
396
397
390
41

CINCCA NCVTT
CINCCA.PN

MACYTT 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

MACY1T 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

45994
4472
45964
4557
401

L5974

45984

627

561

562

563

5714

5822

5922+

5924

5929

5996

1022+
1287+

1056+
1374«

1071
2068+

1141»

2433«
3234

2087
2524+
3251+

1147

2122+
2570
3257

1167+
2144
2610
3288«

2172~
2652+
3359+

2207+

1035
1692
1913

111
1709

1127
1726

1143
1743
1964

1169
1760
1981

1197
1777
1998

2356+«
3204«
6448~

001764

2408«
3228~

BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

3487

2466
3544

NOO VO =NIWH NN

b —d
b w—d
b

1154

d md
wnd el
—

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

1235+

3111+
3428+

1218+
2241«
3151«
3537«

2279
3152+
5149+

1220
1794

1254
1811

1289
1828

2251
2658
2959
3207

3182
3539
5508

4250
4258
1108

2458
5840
2440

2129
2536
2897
3617

3548
5605

4483
1110

2526
5847
3113
4265
2181
2582
2918
3652

1930

2283
2704
2995
3230
3581
5610

1947

2309
2725
2996
3231
3592
5876

2334

2746
3015

3253

3594
5877

2359
2767
3045
3254
3613
6123

2386
2788

3066
3292
3647
6451

1142

1196

3127

3153

1219

1253
3180

4460

5046

5057

5068

2257
2664
2964

2315
2729
3021

2339
2750
3049

2364
277
3070

2551

2015
24611
2809
3092
3361
3658

2033
2436
2830
3115
3430
3660

2051
2460
2851
3154
3489
5073

1288

3205

1311
3229

3252

2390
2792
3096

2417
2813
3123

2441
2834
3493

et =y

1001
1658
1879

OO0

=
=
=
=
=
=

1195+

1325
o

6037

000001

2175
2575
2914

BITOO
BITO1
BIT02
BI1T03
81704
BITOS
BIT06
31707
BITO8
8IT09
BIT1

1173

728

002032
041623
041750

BITO

4555

392
395

001754

BAR1

SEQ 0165

393

000000
000040
000001
000200
000100
000000
000000
000000
000000
140370

AVECT2= 000000
041744
AVGVAL
AVRGO
041446

BEGIN
BELMSG
BELOW

J 13
PAGE 153

425

APASS = 000000

BAR

15:05

619
622

AMTYP2= 000000
AMTYP3= 000000
AMTYP4= 000000

APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ASWREG=
ATESTN=
AUNIT =
AUSWR =
AVECT1=

8-AUG-78

bt e e

CINCCA NCVT
CINCCA.PI1T

020000

BIT14

040000

BIT3
BIT4

I
"Hn

BIT15
BITZ

BIT13

BITS
BIT6
BIT7

100000

000004

000010
000020

000040
000100
000200

BIT8
BIT9

000400
001000
BLAST
042322
BLICNT
042160
BPTVEC= 000014
BRLEV
002002
BTALK
042050
BUFO
060000

1
BUF
BUF
2
BUSTRP

CALRPY
CAMUNP
CAMVAL

CAMOG1
CAMOGZ2
CAMOTW
CAMOTX
CAM1G1
CAM1G2
CAM1TW
CAM1TX
CAM2G1

CAM2G2
CAM2TW
CAM2TX
CAM3G1
CAM3G2
CAM3TW
CAM3TX

062000
064000
003210
037612
040412
050112
040474
040476
040535
040516
040500
040502
040573
040554
040504
040506
040631
040612
040510
040512
040667
040650

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

934
3367
9
2219
91#
1144

2808

1134
1124

1260
2551
2871
3611

1118
1108
1094

2219

1084
1074
708
5426
1234

5674
736
2065+
2358+
2470
2621+
3019+
3122+
3443
6117
2119
5828
656
5072
5083
6418+
5031
5036
5088
5082

5058
5114
5108
5127
5121

8-AUG-78

2510
3374

2514
3408

2541
3433

2228
2185

3296
2219
2496
2850
5125

3303
2227
2512
2871
1110
1311

573

577
2829
576
947
1288
2573
2892
5132
2613
1350
812

2228
575

2363
55064
5430
671«
54354
2068
2368
2495
2654
3020«
3133
3465
6127
2145
5893

7604
50794
5089
6449
5084
5090

52454
52414
5097
5103
52534
52494
5110
5116
52614
52574
5123
5129
52694
52654

1156

1108
1296

2587
2913
5875
2634
2251

1184

2613
2934

15:05

K13
PAGE

154

SEQ 0166

2634

3274

3296

3303

3336

3347

3374

1262

3433

1298
4236

1332

1334

1381

2185

2573
2892

2587
2913

2613
2934

2703

2724

2745

2766

2787

1119
1325

1142
1332

1154
1376

1182

1196

1205

1219

2549
3440
1207
3367

2587

4467
1260

2634

3018

2703
3113

2724
3127

2458
2766
3180

2496
2787
3205

2512
2808
3229

2526
2829
3252

917

1119

1126

1405

1428

1433

2185

2194

3205
5052

3252
5057

5046
5068

5063

5119

5068
6330

5106
6333

6359

2156
2420

2162
2433
2557
2978
3071
3377
5179

2331
2435+
2572
29N
3095~
3405
5435

2333«
2445
2581+«
2997+
3097
3415
5826

2343
2456
2599
2999
3112
3419
5871

2356
2457
2612
3012
3121«
3428
5884

5128

888
2594
1172
2440

5080
904
2634
1223
3229

5093
2389
3252

5433«

5637~

54574

2646

2671

2088
2383
2499*
2657«
3026
3273
3517
6441
5707
68794

2105
2385«
2500+
2956
3029
3277
3570
6448

2107
2393
2505
2962+
3033
3306
3616+
6460
5896

2117
2408
2525
2963«
3048«
3618
6466
5902

2122
2410%
2534
2968
3050
3346
3636
6472
5931

5096
6461
52314
52324

5102
65134

5109

5115

5122

52334
52344
52354
52364
52374
5238#

5885

1253

2541
2850
3487

3333

2535+
2973
3069+
3350

5149
68774
6442

68784

5135

52144

cccccccccccccc

NCVIT
CZNCCA
.PN
CINCCA

053105

CKSWR = 104407
CKTSWR
040060
CLRALL= 004000

5555
4234
5079
S74LN
1164
1431
1654

1875
2116

CLRWCO= 040000

MO
COMP

CONROM
CONVRT

CPUDLO
CPUDL1

CSRHB
CTRCHA
CTRLCG
CURENT

053075
041222
043276
040102
002006
002010
000015
000200
001746

001766
046140
046042
050114

050104
001726
DACO
001730
001732
DAC1
001734
DAC2
001736
DAC3
040777
DASH
DDISP - 177570
004016
DEADKW
DACADR
DACSR

2431
2763
3062
3577

S734
5553
53174
5596
5029
5704

5602
4456
5085
916
1192

1450
1671
1892

2143
2455
2784

3086
3607
1310

68644
5565
5617
5034
1258
1399
4353
653
657
1058+«
1183
1298
1486+
1675%
1792%
1896+
2013«
2195
2386+
2575«
2746*
2892«
3045+
3206+
3433
5162
€51
6162+
5025
3083«
3406+
6420+
3155+
6365
6370
6375
6380
6005
369
870+

5622
4482
5092
990
1215
1467
1688
1909
2169
2494
2805
3109

3643

5628
56724
5040
1294
1422

4363
4324
851

1081
1196x%

1312
1502+
1690
1794=
1911+
2015+«
2209+«
2411x
2586
2766%
2893«
3065«
3229«

3439

5874*
937+
6163
5166
3286
65144
6424>
3156
6391
6386
6401
6396
6103
617
8764

8-AUG-78
68674
50174
5098
1004
1233
1484
1705
1926
2193
2522
2826
3148
5147

5045
1330

SEQ 0167

5131

5105

1092
1356
1567
1790

1021
1249
1500
1722
1943

2011
2301
2649
2931
3285

2204
2569
2847
3175
5870

5051

5056

5062

5067

51394
1094
1362
1585
1807

2029
2329
2692
2955
3357

CZ
€z
ul
Ul

1103
1371
1602
1824

2047
2354
2700
2990
3426

1128
1397
1620
1841

2064
2379
2721
3011
3485

1138

1420
1637

1858
2081
2404
2742
3041
3534

51464

VA
VA
VA
VE
VE
VE
VE
Al
Al
Al
vT
vT
VT
Al
vT
w(

4363

885«

905
1120
1220+
1350%
1569+
1724
1828+

1108
1197«
1325«
1519
1692%
1809«
1913«

1945+
2057
2261*
2496+
2633
2808+
2935
3113#

=
2031
2220
2436~
2593
2767
2913+
3066+
3230~
3487~
5876%
6449
6172
5923
3307

3290+
3579+
6123+

6428+
3182«

2380

155

15:05

2405

915«
1127+

1236+
1355

1587
1726%
1843+
1947

2070+
2266+
2498+
2655
2809«
2958«
3115«
3292«
3581~
6125

928«
1142+
1254«
1376%
1622%
1743
1860«
1964«

930«
1143«

1262

1377«
1639«
1758+
1862+
197G«

931
1155
1275
1380
1656+
1760+
1877«
1981+«

935«
1168+
1288+
1452+«
1658+
1775+
1879+
1996+

2124~
2283+
2526~
2703«
2830+
2993~
3153+
3302
3613+
6453

2133
2308«
2528+
2704«
2850«
2995+
3154+
3361+
3646+

2174
2309~
2540
2724
2851+
3014+
3180+
3367
3647+

2175«
2334
2550
2725%
2871«
3015«
3181
3373
5148+

3387

3388

6433
6432
3333«

6435+
3334

3359

3378

3208

3231«

3254+

3255

cco

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

BRLLLLYLLYLISEEEE

CINCCA NCVIT
CINCCA.PI

CINCCA

NCVIT

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

27(654)

DfF O

033002

449
475

453
479

455
481

032465

513
449
475
503
501
505

457
483
509

459
485
511

461

DH1

651
6«77
503
515
451
477
507
509
39454
67984

4/9

455
481

457

459

461
487

CINCCA.PN

DHZ2

032500

DM3
DH&
DIDATA
DIF
DIFERR
DIFEXO
DIFEXT
DIFLIN
DIFLNX

032524
032557
052673
041770
041746
046150
041736
043712
044070

DIFLNO
DIFLNY
DIFT]
DIFT?

DIFT3

DISPLA
DISPLY
DISPRE
DIO
pLIBD
DLICSR
DLOCSR

e’ ]
DOoT

DSWR
rve
D12
L13

044064
044274
0466032
046034

046036

001142
050044
000174
052663
001700
001676
001702

001704
047103

= 177570
032722
032730
032742

DT4

032756

EM
EM10
EM11
EM12
EM13
EM14
EMI5
EM16
Emz
Em2

030220
020573
030640
030706
030741
030777
031033
031065
031120
030260

032774
DTS
EMTVEC= 000030

EM20
EM21
EM2?
EM23
EM24

031153
031234
031305
031360
03143°

501

5672
YAVA
53954
5537«
53894
712

58234
5540
58634

5841+
5848+

5855+
3694
6337
299«
5600
S194
5184
5204
524

63164
374
515
449
475

503
501
505
513
1264

449
463
465

467
469
471
473

475
477

457
479
481
483
485
487

5544
5803«

505
39344
453

8-AUG-78

507

S1
39404

39364

6035+
5810+
5791«
3672

6053
6110
6084

5814

58224

61554
61564
625+
6349

4280+
65004

67954
5638
5508+

5657
5598+

5654+

5645

57914

15:05

483

PAGE

485

156

SEQ 0168
487
513

515

3974m

467
493

469
495

471
497

473
(99

463
489

465
491

467
493

469
495

471
497

473
499

463

465

489

61804
€109+
5796

$C
$C
$C
$C
$C
$C
$C
$C
$C
$C
$C
$0

L4509

5605

5610

5646

$0
$0

616

453
479
511
3968#

601+

455
481

39664

457
483

94
4

459
485

461

487

463
489

465
491

467

493

469
495

&N
497

473
499

$D
$0
$E
$E
$E
$E
$E
St
$E
$E

$E
$E
$E
st
$E
$E
$E
<F

EM32

031741

£EM30
gEmM3

031640
031700

032005

EmM33

032051
EM34
EM3S
032106
032173
EM36
032241
Em3?
EM4
030372
032305
EMe0
032365
EML
032425
EMLce
EMS
030432
030473
EM6
030527
EM”
ENDDMA= 000400
041037
ERMSG
ERRVEC= 000004
ESCP

052644

FATALO
FATFNG
FIELDI
FIRST
FIXLIN
FMO
FSITE

052424
003202
061374
041774
050022
052655
037354

FAIMSG

GAIN
GAINX
GAIN?

GNS

041714

0460730

040761

040773

= atanee

GTSWR =
]}
GILIMO
GILIM
G2LIMO
GoL IM1

104406
040724
046216
046226
046236
046246

HT2TS

046040

= 000011

INOUTZ 040410
[0TVEC= 000020
JOv
0J1762

JOvG1
JOYTW
JOvVIX

KDPARO=

040514
040706
040706
177360

FROSS REFERENCE

489
N
4«93
453
695
497

MACY11 27(654)
TABLE

8’A \.,'G- 78

15:05

N 13
PAGE

157

SEQ 0169

38408
38454
IRS1A
37264
3858+

czl
$GI

38644
3870#
38774
38844
38894
3898«

39054
3733«
3912#
39214
39274
37394
37454
37504
1118

1118

614
4241

615+
62420

5612
6052
67604

$7904

1268

1304

1340

626+

656+

836

4264+

5880

837«

6165
840+

858+

863+

871«

849

850«
4687+

6692

4701+

47110

4247+

4663

4664

4668

4673

5805+
5011

5012

5013

5015

5017

5018

5019

5020

5021

1490

1506

1523

1540

1556

1573

1591

1608

1626

7544

53374
5824

6427

5616
50254
5795
5547
5524+

652

747
52774
5801
5802
5808
5809
4322
5866
792«
598+
1409

5076
5136
52748

5994«
64914

6076

5792+
5010

6174

52114
1473

L1 4344444 4444

EM2S
Em26
M7
cM3

DIAGNOSTIC

CINCCA NCV1T
CINCCA.PTT

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

NCVIT
CINCCA.P11

KDPDR4
=
KDPDRS=
KDPDR6=

AENOONS
P

d
e
D e
d
d
)

NININI NN
AV

KDPDR2=
KDPDR3=

KDPAR7=

KDPDRO=
KDPDR1=

72362

NNNSNNNSNNSNN
nONINON)
WWWW WWNWNWIWNW
ONINON)
n
NNSN N
AENVO

KDPARG=

— o

KDPAR1=
KDPAR?=
KDPAR3=
KDPAR4L
=
KDPARS=

CZNCCA

KDPDR7=
KFO
K IPARO=

KIPAR1=

K IPAR2=
KIPAR3=

K IPAR4
=

KIPARS=

KIPARG=
KIPAR7=
K IPDRO=
KIPDR1=
KIPDR2=

KIPDR3=

K IPDR4=

KIPDRS=
K IPDR6=
KIPDR7=
KTERR
KWCSR

036404
001740

KWCSR1

001742

LINEA
LIST
LISTDT

041152
046466
045640
046256
047101
003356
041776
042022
042064
042142
041726
041004
041730
041732
041734

KWPSR
001744
LF
= 000012
LIMITS
046152

LISTO
LIST1

LOGIC
LOOPC
LOOPD
LOOPE
LOOPF
LSBAVG
L SBMSG
LSBSVQ
LSBSVR
LSBSW

27(654)

8-AUG-78

15:05

B 14
PAGE 158

SEQ 0170

268#
2694
270
271
2724
273
274m
2454
2464

2L7#
2484
249N
2504
2514
2524
5512
2564
2574
2584
2594
260#
2614
2624
2634
234H
2354
2364
2374
2384
2394
2404

2414
4676
5414

5878
5424
5434
304
5521
5309#
694
5836
692
696

688
54204
5421
5431
5447
53854
5288#
53864
5387#
5388#

5614

67914

3464+

3516

821+

4695

4649
816+
818«

4679

3569+

3635+

679

859

2389«

2612+

2414»

2415

5834+

5846+
5833«

5847«
5841

5853~
5848

5854«
5855

5868+

5452

5456

817+
819+
820«

822+

L7224
677+«

4723
678

678+
679%
4357
5528

680*
681+
4363
5800

5839%
860

5840~
2413~

5807

61834

5850

61148

6142

716

725
5434

799#
5438

3707
5441

5749%
5748«
5715«

5760

62614
5843
62354
63154
5429
5428#
54404
54544

5776

5856+

5869+

5877+

NCVTT
CINCCA.PTT

MACYT1
DIAGNOSTIC
CROSS REFERENCE TABLE

LSBTXT
041610
MMVEC = 000259
MORTST= 000000

53664
1354

CINCCA

MZGK

MSG %M
MSG2!
NARA
NARB

NARCNT
NARMSG

NARROW
NARTOL

NLSINT
NOEXIT

NOMIAL
NORCNT
NORMAL
NORMSG
NORTOL
NURCNT
NURTOL
OBSCNT
0BSTOL
OFF

052€65
052545
041175
041760
041762
046210
041066
0461756
046211
003354
043274
061742
046206
0461754
041642
046207
046212
046213
046214
046215
001750

041054
041772
032714
032621
PASMSG
041702
PBLAST
043004
-X000007
PC

OKMSG
ouT
OUTCHN
OUTRNG

PGO

053110

POT IME

047106
046142
046144
046146
051046
052051
052242

- 177772
PIRQ
PIRQVE
- 000240
PRIME

PRIMEOD
PRIME1
PRIMO
PRIM1

PRIMZ
PRIM3
PRIM4

PRIMS

PRIM6

051622
052332
051460
051250

5804

835
825
53134
54,004

54014
6046
52994
3480*
5964
7974
5558+
53914
6048
53984
53744
5962
6042
5966
6038
62054
5484

2171+
2701+
2991+
6115+
52974
3463
39624
39514
53804
741

504
4359+
4976+
5735+
6088+
6429+
5557
364
1304
721

61774
61784
5520
5506

5562
6322

5609

5507
784

6012+

27(654)

6013+

8-AUG-78

L4677
3975

5982«
5976+
62004
6061
3543
62014
838+
5625«
5924
6189
5986+
6064

6040
6044

6057
6058

3590+

3656+

842+

2673

61984
6048

6062

5652

C 14

PAGE 159

SEQ 0171

6014+

L4676

877
67814
67774

15:05

5023

5662+

3970

53994

56694

61994

62024
62034
62044
852
2206+
2722%
3012«

3464
5173«
5174
6050
56094
806«
4361«
5025+
5742«
6106+
6431x
5604

1040

3042+

10564+
2291
2785+
3089~

2306
2806+
3112+

2320
2827~
3286«

2457
2848«
3486~

2495+
2869+
3535«

1388

2743«

2280~
>
2764
3063+

2525+«
2890+
3578«

2066+
2572+
2911+
3610+

3470

3504+

3505

3515«

3516

3522

3556+

3557

5405#

3688«
4475
5526
5831«
6142+
6488+
68684

3691«
4533«
5533«
5836+
6152+
6497

3701~

3706
4591«
5541«
5850~
6337«

4029+«
4670
5550~
5863«

4235+

4312+
(815«
567~
5941
6421+

7371

5806+

5874

1039«

2240%

1061

1093~

1375«

2101
2612+
2932+
3644

2140
2654«
2956+
5871+

4338+
4938«
5681«
6009+
6425+

4345+
4973«
5704+

6078
813«
4469+

5166+
5785
6139+
6432+
5624

4574>

5538«
5843
6175
6506+

63214
5527+
5798
67134
67374
66844
67484
66664
66414

1095

5799«
66164

6119

61794

6543«

4719%

5606+
5923+
6349+

Li%3a

5679%
5947+
6423+

6017+
6427+

CINCCA NCVIT
CINCCA.PIY
PROROM
PRO
=
PR1
=
PR2
=
PR3
=

042262
000000
000040
000100
000140

PRS
=
PR6
=
PR7
=
PS
=
PSW
=
PWRVEC=
RAMVAL
RBEGO

000240
000300
000340
177776
177776
000024
042222
002644

RDCHR =
ROLIN =
RDOCT =
READ
RFADXX
READT
READ7
REDJOY=

104410
104411
104412
045302
045520
044564
045516
000001

RESREG=
RESVEC=
ROMPNT
ROMVAL
RTN
RTRT
RTRTA
RUNDIF
RUNIT

104414
000010
(41740
042162
0461617
002012
002042
050106
052474

PR4

= 000200

RDBLST

043112

RUNITA
052514
RO
%00G000

MACYI1
DIAGNOSTIC
CROSS REFERENCE TABLE

54934
534
544
554
564
S74
584
5%
60#
334
3Lk
1254

SL774
684
5509
5619

4088

697
771

6020
60824
56294
6050+«
S79#4

1623
4937
1204

53904
5390
53694
303
583
687«
655«

739
766
AY|
778
1330~

3277«
3354
3427
3518«

4126
4316

4537+

4659
L4314~
4895«

5167~
5564
5711
5860+

6018«

27(654)

8-AUG-78

15:05

D 14
PAGE

160

SEQ 0172

5618

34
839+

606+
5571
6964
5511
5621
5018#
787
50204
60354

6052~
1398
1640

605+
5597

4604~

4605+

4614+

L620*

4632+

4633

5513
5623

5552
5626

756

5453
5554
5634/

5549
5556

5566
5559

5629
5599

5655
5601

5818
5603

6404
5611

5613

5615

4129

50154

5563

1621

1453

1470

1487

1503

1520

1537

1553

1570

1588

1605

5532«
5516
6091

5708
5518
6092
6171
781

6093

6097

5532

5572

5593

6087

6089

751«
701

3670

5815

65114

67684

722

726

729

734

6003

719

673
833

675
1258+
2671
3322
3414+
3466+
3639«

772%
1266+*

774
1294~

777

748

60784

50224

5525
54614
5998
5824
586
711+
698+
742

67714
657+
826+
1338+

3280+
3365+
3430+
3520+

4130«
4319+
4535
4665+
4864
4913«

5171»
5572+
5712
5861
6019

767
5894
715
699«
745

659+
827+
1399«
3281
3371«
3437+
3547

4133

4505
4537

4710
4851+
4914

5172+
5573
5770+
5866+
6087+

5525

724
700*
749

5987

661
828+

663*
829+

1402+

3294+
3377«
3443
3570«

4149
4506%

4551
4718
4854+
4932«
5173

5593
5771
5867+
6086

1422+

3300~
3378
3444
3571«

6165
4507+
4559~
4742
4856+
4936+
5179+
5634
5781«
5868

6098

706

664

830+

1425+

3306«
3380
3445
3573
4175
4514«
4563
L4767+
4861+
4986

5183
5635+
5822+
5884«
6127+

665
831+
2117«
3307
3381
3451
3593

4179
4515+
4564
4784
4868+
4987«

5184
5637
5823«
5887
6130

666*
832«

2118«
3309
3394
3452
3636+

2119
3310
3395
3465+
3637+

4195
4516+
4566*

4196
L517x

5425«
5643
5824
5888«
6131«

5635+
5661+

L4797
4869
4988

4567«
4799«
4872+
4989«

5826+
5896+
6183+

4209+
4578«
4568
4800+
4879+
4990+

5436
5672+
5827+
5899
6186+

2672*
3323
3415+
3468+
3659

4305
4519
4590+
4806+
4880
4991+

5516+
5682+
5828
5902
6190

2675+
3350+

3416+
3495
3698+
4306+
4524
4606
4808+
4884
4992+
5517+
5701«
5858+

5930+
6191

1302+

2677
3353«
3417+
3517«
3701

4311
4529+
4631+
4810
4891
5158+
5518
5707+
5859+
6000
6192

CINCCA NCV11
CINCCA. PN

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
6193

=%000001

64641
W2
1254

3420+
3522+«
4139«
4660
4801«
4915»

-%000002

5578+
=
5711
5893
61064~
64642
6496
W34
34,79«
4146
4661
L716%
(912«
5446

-%000003

~%000004

%000005

RS
R7

%000006
-%000007

SAMCAM
SAMDAT
SAVREG=
SDPAROSDPAR1=
SDPAR2=
SDPAR3=
SDPAR4=

047276
047576
104413
172260
172262
172264
172266
172270

5592
5701
5911«
6037
6067

LaH
4168
4420~
4869

5571«

454
4746

5782

LON
4410~
5045+
5105+
5146

5559+«
5635
6378«

LN
L84

63614
6421
491°

2234
224Ln
2254
2264
2274

6336+
6443
658+

6338+

3422
3524

3435+
3525+

1295+%

4142
4669+
4807«
4921~

5580+
5712+
5897«
6130«
6444

6504
668+
3480

L1647

4679
4744
4915
5448
5676«
5708«
5914«
6038
6098+
3419«
4176*
4421«
4870
5592«
4397
L763%
4169
4611

5051«
5109~
5203+
5596
5663«
6384»
592«

6425
50214

6444

659

1300+

4145
4703+
4811
4927

5582
5713«
5899«
6132+
6459+
669+
3482

6167
4681«
4765+«
4916+

5450*
5678
5709
5917«
6040~
6099+
3422+
4177~
6422
4872

5753«

8-AUG-78
6339
6460
660+

1331«
3470+
3526
6148+
4705
4813+
5159«
5584+
5714+
5906+

6133
6465+
670~

3523«

4178
4682~
4786

4922~
5451
5680+
5753
5920~
6041«
6100
3423
4191«
44637
4892«

5755«

4399+
4918+

4400+
4921

4171%
L4209+
5056+
5111+
5208~
5599«
5673
6389«
593«

4173«
4611
5062+
S115»
5214
5601*
5687
6394«
594

6429

644614

15:05

6342+
6463
667
1336+

3,72+
3527

4166

4706
4845
5164+

E 14
PAGE

6344
6466

668
3278+
3473
3528+

4179
4708~

4850+

5184~
5588+

5586+
5715
5909+«
€189+
6471»

5912«
6190~
6476+

671
3529
4182+

3279+
3537«
4185

4685+
4792+
4923

5575«
5692+
5766+
5954
6042
6128+
4084
4194
4609

4920+
5760%
4401«
4927
4180«
4626*
5067

5118«
5228*
5603«
5800~
6399+

5733

4686+
4795«
4928+

5577+
5693«
5782
5955«
*
6044
6133«

4085+

4203«
4628+
4925+
5766
4402
4929

4184+
4747
5079+
5122+

5509+
5611+
5807+
6407

SEQ 0173
6345
6469
672+
3280
3474+
3530+

6348+
6472
3295+
3475«
3537

6350+
6501
674
3298+
3476%
3542

4713

4855+
5186+
5590+
5771+
5915+
6191+
6478

4717~
(873
5187
5673
5776+
5918«
6192+
6480+

4743
4876
5432
5674
5781
5921+
6193~
6482+

3281
3535

3352+
3543

4180

4192«
4694~
4799
4929+
5579«
5694«
5837
5956

6045
6136%

4184

4193«
4695
4812«

5183«
5581«
5695«
5844

6010~
6046

6129~*
4403«
5181«

6137«
4089+
4206
4680*
4932
6134=
4417
5187~

4199
L4762

4205«
6919~

4086
42064~
4662
4931«

5083«
5124%
5511«
5613«
6183
6417

5085~
5128«
5513«
5615+
6186
6418

4208+

3354

6351
776»

3357
3478+

4127
4552
4766+
4880+

5436«
5676
5885+%
5922
6335+
6484
3421«

6407+
777

3353
3481
4131

4589+
4785
4889+

5573«
5678
5889+
5931+
6422
6486+

3423

6413
779

3366+
3482+
4135+«
4607

4788+
4890

5574~
5680
5891
5932
6426
6491

3471+

4138~
4608
4709+
4870

6414
1259+

3369+

3486
L4137«
4630+
L7911+
4894
5576+
5685
5892+
6096+

6430
6495+
3477+

4140~
4629+
4714
4893
5444

4128
6194
4697+
4846
5185+
5583«
5696*
5851
6011
6057+

4132+
4199+
4702+
4857+
5188
5585«
5697+
5898+
6012
6058+

4136+
4207
4704*
4865+

4090

4094
4405+
4715+«
5188+

4096

4419+

4427
5196+

44630
5200

4610

L4627+
5710+

4398
4923
5089
5131«
5521+«
5617+
6188
6436+

4404+
4930
5092«

4406~
5029+
5096+
5139
5552«
5621+
6363«

4408+
5034+
5098+

4409+
5040+
5102+
5144

6138+

4396
4684«
5180«
5195«

6143

5135
5528~
5619+
6194*

5442+
5587*
5698+
5901«
6013
6059
4411»
4745
5197

5443
5589«

5699+
5905+
6014
6065+
4098+

44104
4764*
5192+

5709+

5143
5554+«
5623«
6368+

5591+«
5700+
5908+

6036+

6066+

4100+
4415+
4847

5202

5556+
5626+
6373+

NCV11

CINCCA.PY

SDPDR3=

SDPDR4=

SDPDRS=
SDPDR6=

001756

2064
2074
208#
551

1021«
1138«
1216%
1285+«
1362+
1427
1484«
1535«

1588«
1641

1735+
1757«
1810+
1863«
1926+
1978+
2032«

2123«

SGNVL1
SHUFQ
3
SHUF
6
SHUF

F 14

PAGE 162

SEQ 0174

001770
041600
041606
043402
043374
043362

2210+
2285%
2363«
2459«
2530«
2626*
2721
2769
2828+
2876«
2936«
3011
3067«
3148+
3357«
3538«
3617«
6114~
5564
53644
53654
5677
5679
5681

SDPDR1=
SDPDR?=

SFRHB
SGNVAL

15:05

Amcm

SCPAR7=
SDPDRO=

SDPDR7=

CROSS REFERENCE TABLE

B-AUG-78

22834
229
2304
201a
202#
2034
204n
2054

SDPARS=

SDPAR6=

SFR

MACY11 27(654)

DIAGNOSTIC

CZNCCA

916+

1053+

1146~
1222+

1292+
1372+
1432
1487
1538
1602+
1655%
1708+
1761+

1824
1876+
1929+

1982+

949«
1057
1145%
1233~
1304«
1378«
1439

1488
1550~
1603+

1657«
1710
1773«
1825+
1878~
1931«
1994«

950
1076

1164

1237«
1305+
1379
1441
1500«
1551«
1605«
1659«
1722%
1774x%
1827«
1880«
1943«
1995+

2047%
2128+
2215%
*
2301
2379%
24,62%
2549%
2649%
2726+
2784*
2832+
2891»
2939+
3016*
3070+
3175+
3362+
3541x
3645+
6165+

2048+
2129«
2227%
2307«
%
2384
2466%
2569«
2656%
2727«
2786%
%
2834
2894
2955«
3017«
3086«

3176%
3363«
3544%
3648«
6169%

2050~
2143~
2238+
2310+
2390~
2494>
2574«
2659%
2729x%
2789x
%
2847
2895~
2957
3018+
3090
3201«
3426%
3577«
3649«
6450%

5938+

5968

5974

964*
1085+*
1165*
1238+«
1310=
1397x
1450*
1501«
1553
160¢
167°»
1723«
1776
1829+*
1892«
1944%
1997

2052«
2169x
2242%
2311»
24604+
2497
2576*
2660%
2742%
2790«
2849
2897«
2960x
3021«
3093«
3202«
3429«
3580«
3652+
6456%
5980

967
1092+
1170
1249~
1321
1398«
1451«
1503~
1554
1620*
1672+
1725%
1778%
1841~

1893«

1946%
1999%

2064~

2173
2252*
2315«
24609+«
2501«
2577

%
2664
44
27
2792x%
2852«
2910x%
2961«
3041%
3094*
3225«
343«
3582+
5073~

977

1094+
1171«
1250~
1322*
1400
1453«
1504
1567
1621%
1674%
1727
1790«
1842%
1895+
1948

2011=
2069+

2176%
2253
2329«
2417~

2502+
2582%
2692%
2747
2805«
2853~

2912%
2964*
3043+
3096+«
3226+
3485«
3583«
5074

989«

990+
17115+
1198+
1268+
1340+
1420+
1468+
1520
1571
1637+
1689+
1742%
1795+
1858+
1910+
1963+
2016+

2076+
2193+
2275+
2339+
2440+
2522+
2614+
2705+
2763+
2811+
2870+
2918+
299+
3049+
3116
3285+
3491«
3611
5870

992
1118+
1199+
1273+
1341
1421+
1470«
1521
1585+
1638+
1691«
1744
1807«
1859+
1912+
1965
2029+
2081«

2204~
2281x
2354+
2441+
2527+
2616%
2706*
2765%
2813~
2073
2931+
2996+
3062+
3117
3289%
3493«
3614
5875«

1004+
1128+
1215«
1284«
1356+
1423
1471

1534
1586+
1640+
1693»
1756+
1808+
1861«
1914«
1977+«

2030+
2116x
2208x
2284«
2357«
2455+
2529%
2617«
2708+
2768%
2826+
2874
2933x
2998
3064«
3123«
3291«
3534«
3615«
5880«

CINCCA NCVIT
CINCCA.PI

SIPARO=
SIPAR1=
SIPAR?=
SIPAR3=
SIPAR4=

SIPARS=
SIPAR6=
SIPAR7=
SIPDRO=
SIPDR1=
SIPDR?2=
SIPDR3=
SIPDR4=

SIPDRS=

MACY1T 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

8-AUG-78

15:05

G 14
PAGE 163

SEQ 0175

172240
172242
172264
172246
172250
172252
172254
172256
172200
172202
172204
172206
172210
172212
172214
172216

SIPDR6=
SIPDR7=
041013
SKPMSG
SLASH

0461173
-%000006

596
1360

3695+
4022

4060+
4102+
4147
4191
4247
4332
4397+

4531

4L606%
4629
4L683%
4746%
4765
4804
4849+
4887
4975%
5737
5952

SRO

177572

SR1
SR2
SR3

177574
177576
172516

STACK
STATE

STDATO

001100
041132
045774

STKLMT= 177774
001140
SWR

6170
3467*
3640*

614

2243
3989«
4023+

4061
4103«
4148
4201
4276
4334«
4398+
4535«
4607+
4630
4690
4747
4766
4809
4850
4890~
4986+

5739«
5953

3469«
3658+

622+
2244+
3990+
4030

4062
4124
4149
4203
6277
4336+
4404

626
2265
3991

4032
4066+
4125
4165%
4205
4281+

698

2622+
3998«

40342
4067
4126~
4166%
4206
4305%
4348
4430
4559
4610~
4660*
4712
4750«
4785«
4812
4857
4893
4998+«

5996+

4344+
4429
4552+
4609+
4659*
4711
4749+
4784
4811
4853%
4892
4997+
5741%
6000+

3494*
3660~

3496«
4674

4691~

624~
4258
5054

4265
5060

4551+

4608+
4631
4710+
4748+
4767
4810~
4851
4891«
4987
5740%

5748
6006+

3519«

761%

2623%

772

2632

788

2646+
4006*

4431

4002+
4037+
4071
4128+
4168+
4208
4316+
4353
4432

4611%
4661%
4715

4612+
4662+
4716

4613

4787*
4814
4863+
4895
5222+

4007+

4035

4068
4127*

4167%
4207
4306
4352

4038«
4073
4130
4169+
4209
4318
4357

4433
4572

833«
2647

4007«

4039+
4075«
4133
4170«
4211«
4319
4388«

865
2677%

4011
4040%
4084
4141%
4171
4212+«
4320+
4389
4485+

868
2678«

L4014~
L4041
4089
46142
L174%
4241
4322
4390
4488«

1346%

2686

4018
4056+
4100
4144
4187
4244
4324
4391+
4505+
4589
4627
4678+
4744+
4763
4796*
4847+

4788
4843+
4874
4896+

4665
4742+
4761%
4792
4845+
4881
4914

4743x%
4762
4794
4846%
4882
4971

5939+
6010

5564
5940+
6054+

4464
4573«
4621>
6664~
4718
4760*
4790
4B44x
4878~
4912

3521«
4698+

3546+

3548«

3572«

3574+

3592+

3594+

645

763
4467
5071

4479

3554

3985
5027
6082

4560%

4751%
4786*
4813
4860+
4894
5218+
5749
6008+

4571

4758+

L663*
4717

L4759+

5634+
5942
6059+

4583
4625

5661
5943
6062+

4584

4626
4668

5733
5944«
6067«

4885+

4972+

%
5734
5945+
6070+

4688+

5999
5863

594

4236

5038

61414
616+
4250

5043

631+

4460
5065

3328

5139

3400

4483

5141

3502

4612

51€9

4625+
5175

000176

3004

624

645

SwO0
SwO1
Sw02
Sw03
Swo4
SwO05
Sw06

= 000001
= 000002
= 000004
= 000010
= 000020
= 000040
= 000100

784
774
764
754
744
734
728

88
87
86
85
84
83
82

5032
5043

Sw1l

= 004000

674

3328

3400

654

5141

5169

634
86#
854
84
834
824
814
804
79%

5175
5054
5065
507

S78%4
1291
1693
1819
1914

1144
1292
1708
1812
1929

3615

3648

Sw0

SwO7
Sw08
Sw09
Swl
SwW10
Swl2

= 000001

000200
000400
001000
000002
002000

714
704
694
874
684

= 010000

664

= 040000

64#

=
=
=
=
=

Sw13

= 020000

Sw15
Sw2
sw3
Swé
SwS
Sw6
Sw?
Sw8
Sw9

=
=
=
=
=
=
-

Swi4

884

100000
000004
000010
000020
000040
000100
000200
000400
001000

TBITVE= 000014
TESTER
002020

TESTZ - 000002

1214
304

2032
2253
2616
2790
2936
3116
TFSITE
TIMEO
TKVEC =
TPVEC =

003276
041253
000060
000064

703
53228
1284
1294

TSTCON= 000004

TRAPVE= 000034
TRTVEC= 000014

1274
1224

81
80
79

3985

3998

3502

3554

6082

1 170
1328
1725
1829
1946

1171
1329
1727
1844
1948

1198
1341
1742
1846
1963

5027

5038
5049
5060
5844

2034
2284
2617
2810
2937
3117
7844
5654

1145
1305
1710
1827
1931

2050
2285
2659
2811
2960
3291

3649

1256
1676
1793
1897
2014

1257
169N
1795
1912
2016

2176 '
2502
2747
2874
3047
3540

2177
2529
2748
2894
3067
3541

2210
2530
2768
2895
3068
3582

221
2576
2769
2915
3093
3583

2252
2577
2789
2916
3094
3614

1518

1535

1551

1568
1791

1586
1808

1603
1825

1621
1842

5211

5875

6122

1468
1689

1485
1706

1501
1723

2123
2527
2891

2173
2574
2912

2208
2614
2933

2242
2656
2957

2281
2702
2992

2307
2723
3013

3580

1238
1674
1778
1895
1999

2128
2501
2727
2873
3046
3491

1451
1672

3538

1237
1659
1776
1880
1997

2127
2462
2726
2853
3017
3490

1372
1655

3488

1222
1657
1761
1878
1982 .

2072
2461
2706
2852
3016
3431

5778
1633

1893

1221
1379
1759
1863
1980

2071
2311
2705
2832
2994
3363

603~

1876

1199
1378
1744
1861
1965

2052
2310
2660
2831
2961
3362

602+

1859

SEQ 0176

[4n a1

PAGE 164

15:05

SWREG

CROSS REFERENCE TABLE

H 14

B8-AUG-78

1910

3611

1927

3645

1944

6450

1740
1961
2332
2744
3043

1757
1978
2357
2765
3064

1774
1995
2384
2786
3090

2012

2409
2807
3114

2030

2434
2828
3289

2048

2459
2849
3360

2069

2497
2870
3429

mmMmMmm

CINCCA.P1

MACY11 27(654)

DIAGNOSTIC

NCV11

CINCCA

TST135
TST136
151137

TST14

T1ST140
TST141
TST142
TST143
TST144

TST145

TST146

TST147

003636
004510
014642
015166
015376

015600
016000
016146

016324
016456
004546
016610
016744
017114

017246
017404
017612
020052
020304
004610
020522
020776
021126
021256
021406
021536
021666

022016
004676
022746
022276
022426
022556

022706
023036
023224
023354
004764
023542
023672
024022
024162
024366
024534
024702
025026

801
969
2086
2138
2189

2223
22734
2277
2303
2346
981

2371
2381
2406
2448
2473
25204
2560
2602

993
26444

26984
2713
2734
2755
2776
2797

2384
2786
3090

841
9754

2109
21674
2197
2231

2012

2409
2807
3114

1216
1586
1808

2030
2434
2828
3149

1250
1603
1825

2048
2459
2849
3176

1285
1621

1322
1638

2069
2497
2870

2123
2527
2891

1842

3202

1859

3226

1372

1655

1876

2173
2574
2912

3249

14651

1672
1893
2208
2614

2933
3488

1468
1689
1910

224¢2
2656
2957
3538

1485
1726
1927

2281
2702
2992
3580

2293
2322
23524

9874
23774
2396
2423
24534
24804

25674
26074
9954

27194
27404

2818

2839
2860
2881
2902
2923
2944
2972
3003

28454
28664
28874
29084
29294
29504
2977
30094

10334
3028
3054
3075
3088
3136
3144
3N
3198

1995

2332
2744
3043
3645

27614
27824
28034
28244

10164

1774

1193
1568
1791

SEQ 0177

@®m

2307
2723
3013
3611

1165
1551

1104
1518
1740
1961

165

oo @DD

TST1

1ST10
1ST100
TSTiN
TST102
TST103
TST104
TST105
TST106
1ST107
TSTI
TST110
TSTIN
TST112
TST113
TST114
TST115
TST116
TST147
TST12
TST120
TST121
TST122
TST123
TST124
TSTi25
TST126
TST127
TST13
T1ST130
TST131
TST132
TST133
TST134

S764
1501
1723
1944

8-AUG-78

3032
30604
30814
3101
31414
3162
3189
3212

TSTDMA= 00G010

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

1 14

PAGE

NCVIT
CINCCA.PIT
CINCCA

15:05

29854

30394

31074
31684
31954
32154

TST15
TST150
TST151
TST152
TST153%
TST154
TST155
TST156
TST157
TST16
TST160
TST161

TST17
TST2
1S720
TST2T
TST22
1ST123
TST24
TST25
TST26
TST27

TST3

TST30
ST
TST32
1ST733
TST34
TST3S
TST36
TST37
1ST6
TST40
TST41
TST42

TST43

TST44
TST4S
TST46
TST47

TSTS
TST50
TSTS1
1STS2
TSTS3
TST54
TSTSS
TST56
1ST57
TST6
T1ST60

T1ST61
TST62
TST63

005052
025152
025276
025664
026244

026466
026762
027260
027474
005312
027634
030054
005362
004020
005554
005726
006112
006252
006366
006460
006652
007052
004122
007322
007464
007572
007736
010032
010126
010222
010316
004170
010412
010506
010€02
010676

010772

011066
011162
011256
004242
011360
011462
011564
011666
011770
012072
012174

012276
004352
012400
012502
012604
012706

10504

3222
3245
3305
3376
3442

27(654)

3236
3259
3315
3386
3450
3501
3553
3596

32424
32654
3327
3393
34574
3503
3555
36014

3622
3663

36284
36684

872

8804

1102#

11364
1157
1185
1208
12314
12474
1277
1314

1389
1418#%
14484
14654
1482#
14984
15154

9134
15324
15484
15654
15834
16004
1618#

16354
16524

9264
16694
16864
17034
17204
17374
17544
17714
1788#

9454
18054
18224
18394
18564

8-AUG-78

3329
3399

15:05

3332
3401

J 14
PAGE

33404
3404

166

SEQ 0178

MACYT1
DIAGNOSTIC
CROSS REFERENCE TABLE

34124

35104
35624

1162#
11904
12134

NCV11
CZNCCA
CINCCA P11

CINCCA NCVIY
CINCCA.PY
TST64
TST6S
TST66
T1ST67
TS17
1S170
71ST171
1ST172
TS173
1ST74
TST75
T1S176
1ST77

013010
013112
013214
013316
004440
013420
013522
013624
013726
014030
014132
014234
014336

TYPDS - 104405
TYPE
= 104401

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
1867
1884
1901
1918
9624
1935
1952
1969
1986

2003
2020
2038
2056
834
639
3694

4423
5088
5547
6005

TYPOC
TYPON
TYPOS =

UDPARC=
UDPAR1=
UDPAR2=
UDPAR3=

=
UDPAR4

UDPARS=
UDPARG=
UDPAR7=
UDPDRO=
UDPDR1=
UDPDRZ2=
UDPDR3=
=
UDPDR4
UDPDR5=
UDPDR6=
UDPDR7=
UIPARO=
UIPAR1=
UIPARZ2=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=

104402
104404
104403
177660
177662
177664
177666
177670
177672
177674
177676
177620
177622
177624
177626
177630
177632
177634

177636
177640
177642
177644

177646
177650
177652
177654
177656
177600
177602
177604

UIPAR?7=
UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3= 177606

UIPDR4= 177610
UIPDRS= 177612

6103
762

50124
50114

1794
180#
181#
182#
1834
184#
185#
186#
157#
158#
1594
160#
1614
1624
1634
1644
168#
1694
170#
1714
1724
1734
1744
1754
1404

1474
148#

1494
1504
1514

8-AUG~78

15:05

K 14
PAGE 167

SEQ 0179

18734

189C#
19074
19244

19414
19584
19754
19924
20094

20274
20454
20624
3696
691
3697
4462
5095
5548

6015
6322
3999
5219

50134

5997

3996

3997

696

€007

6055

5114
5609
6064

4013
4523
5121
5628
6069

754
4000
4521

4470
5101
5562
6056

4504
5108
5565
6061

6512

4536

50104

5223

6001

6101

760

6060

766
4024
4526

5127
5654
6072

6063

770
4043
4528

5134
5795
6076

6068
784
4092
4532
5174
5798
6077

6071
785

4095
4539

5221
5813
6091

804
4099

4634
5506
5995
6092

825

4210
50094
5507
5998

6093

835
4327
5082
5546
5999
6097

WFMODE

050110

WIDA
wiD8
WIDMSG
XT1Y

041764
0461766
04111
003240
042650
053120
001000

ZAPRAM
2P0
$APTHD
2]
$ASTAT= L2 2 82
SATYC
035462
$ATY1
035436

$ATY3

$ATY4
$AUTOB
$BASE
$8DADR

$BDDAT

035444
035454
001134
001250
001122

001126

1524
153#
53504
6422

6626+
6430+

5604
5614
5628
5634
52Uk
5284
So7H
5314
5294
5304
5264
5254

770
5498
1224

2278+
3177+
6447

584
6184
54024
54034
53034
744

5538
5560
328

4577
4548
45460
4312
4475

3654

429

3604
2774
2919
3099
3624
967+
1067
1130
1224+
1411
1508
1626+
1730
1847+

5546
65164
65174
65184
1349«
1363
2625
675
6323«
6328
6410~
6357+
6501+
6504+

1363«
1366+

2639«
2639

6408
6330+

15:05

L 14

PAGE 168

SEQ 0180

2246+
2268
2650
2640~
6411
6331

2268+
2269+
2676~
2651«
6413
6333~

2693+
2693

=
2694

6356+

6359~

1006
1286+

1055+
1323«

1066
1373

6502

6505+

1166+

6358+

6496+

6324

67844

853

1005+
1251+

1140«

2304+
3178«

2330+

2355+«

2382«
3227+

2407«
3250+

2067+
2432+
3287«

588«
65124
5984«
5978«
6069
7704
55714
5627
3344
4592
45504

689

704

717

732

737

6041

6065
6066

1234«

45474
45494
649«

658
2107+
2793
2921
3309«
886+

968
1071+
1147
1225
1427+
1523+
1628
1745+
1849

3185

6045

3203+

1201

1217+

2121«
2571+
3427«

1179
2150
2611+
3536+

2170+
2653+

2239+

5150~

2205+
3110+
5872+

3143

3170

3197

3221

3244

2751~
2879
3071~
3968
939

2753
2898+
3073

2772+
2900
3097«

1194+

3150~
6116+

UIPDR6= 177614
UIPDR7= 177616
IX
UNF
041501
VALO
050120
VAL
050122
VALZ2
050124
VECTAO
001772
VECTA1
001774
VECTBO 001776
VECTBI
002000
VTCHAR
001706
VTCSR
001716
VICXY
001714
001724
VTINT
VIMAP
001720
VTPX
001722
VTXPOS
001712
VTYPOS
001710
WARNO
052604
WCR
001752

8-AUG-78

68704

685
663
2156«
2795
2940+
3316~
889
980+
1072
1151«
1240+
1432+
1525

1643
1747
1864+

823
2157
2814«
2942
3380«

905
992
*
1076+
1155+
1275«
1434
1540+
1645
1762«
1866

3993
3965
2161«
2816
2968+
3387+
1006+
1077
1156
1276
1439+
1542
1660+
1764
1881+

5989

2730~

1061+
1120+
1201+

3970
950+
1062
1121
1206+

1604+

1492
1608+
1713
1830+

1934

952
1066+
1129+
1207
1410+
1506+
1610
1728+
1832
1949+

~—nYawy

CINCCA NCVIT
CIZNCCA.P11

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

NCVIT
CINCCA.PIT
CINCCA

MACY11 27(654)
DIAGNOSTIC
CRCSS REFERENCE TABLE
1951

2080+
2146

2291~
2447
2586+
2754

2900+
3033«
3185«

$BELL
$CDwW1
$CHARC
$CKSWR
S$CMTAG

001164

001254
034650
033004
001100
$(M3
= 000000
$CNTLG
033531
$CNTLU
033524
$CORE
036304
$CPUOP
001222
SCRLF
001171
$CROIT
036334
$0BLK
034076
$082D
037036
$DECVL
$DEVCT
$DEVM
01V
$DOAGN
$DTBL

$ENDAD
SENDCT
$SENDMG
SENULL
SENV
SFNWM
$EOP
$EOPCT
$ERFLG
$SERMAX
$ERROR
$SERRPC
$ERRTB
$ERRTY
SERTTL
$ESCAP
$E TABL
SETEND
SFATAL
$HILG
$FILLC

$FILLS

037216
001204

001252

036616
030174
034066
030164
030132
030203
030200
001214
001215
030076
030124
001103

001115
035102

001116
001256

035302
001112
001162
001214
001256
001176
035702
001156
001155

3373«
3595
3804
431
4329«
39854
3484
3784
3996
4013
4672
4034
3824
4701
4176

49114

4913
3044
4304
(8414
3690
4179
314
606
3694
3697
3994
4004
874
6N5x
3514

3574
600
358#

448N
4469

3554
3794
3984

340
3914
4546«
3764
3754

1966+

1968

2087«
2152
2320+
2472
2593«
2775
2921+
3053
3210~
3383

8-AUG-78
1983+

15:05
1985

M 14
PAGE 169

SEQ 0181

2000+
2096
2186
2345
2509«
2601
2816*
2943
3099+
3235
3439
3662

2002
2101+
2190
2368+
2510
2633+
0817
2970+
3100
3257«
3445w
3966

6346

4355+

L3604

592

600

606

607

608

4024
47084
4210
4973
L9594

4108

4328

4363

4670

4495

4504

5742
3699

5947
37054

637
36924
37094
37084
643
629
3671
36894
4224
609+
44554
3965
4518
45034

37014

4490

4307
4309
36824
3693
4254
4256

4472
4314
5817

4555
4557

4579

4256
4279«

4262+
4284

4286

L4S5T7%

6495

3966

3968

3970

3973

4464+

4465

4495
4278+

4486

4488

4495

6577

4586

L5944

27764

2901
3052+
3186
3381«
3620+

4462

677

4339+
5017
591

3621
6495

3973

2795+
2922
3073«
3211
3388+

2711+

2037
2135
2226
2420+
2552
2732+
2859
3002
3135
3312
3547+

4523

4528

6532

4466

4495

4510

2019
2108
2196
2393«
2542

3659+

2083
2150
2292
2470+
2588

2035+
2133«
2220+
2395
2550+
2712
2858+
3001+
3133«
3310+
3497

2017+
2105+
2195+
2370
2540w
2635
2837+
2971
3128+
3258
3447
3968

2094«
2158
2343«
2506
2599+
2796
2942+
3074
3234»
3390
3661«

2089
2157«
2321
2505
2595

2838
2978+
3129
3302+
3495+
3970

41094
41084
47014

421464

4663+

608+

L34
4583«
4549
4332
4363

4218#

4363

K
.

2053+
2140n
2229+
2422
2557+
2733
2879+
3026+
3158+
3317+
3549

2055

2" vl

2230
2645+
2559
2753+
2880
3027
3159
3319
3593«

CINCCA NCV11
CINCCA.PY

$GDADR
$GDDAT

001120
001124

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

3504
361

952
1035+
1082
1200+
1387+
1507+«
1610
1729+
1832
1950+

2055

2145

2230
2446
2587+
2754

$GE 142

$GTSWR
$HD
$HIBTS
$SHIOCT
$ICNT

$ILLUP

$INTAG
$ITEMB
$K TNE X
$KTOUT

T
$LF

$LFLG
$LPADR
$LPERR

$LSTAD
$LSTBK
$MADR1
$MADR?

$MADR3

$MADR4
SMAIL
SMAMS1

SMAMS?2
SMAMS3

4
SMAMS
$MBADR
$MF LG

W
SMNE

030154
033054
000000
001000
033660
001104
036044
001135
001114
036276
036266

036120
001172
035701
001106
001110
036400
036402
001226
001232
001236
001242
001174
001224
001230

035700
033547

2899+
3034«
3159
3311
3497
3698#
39974
21
335#

L146n

3524

4604

3664
3564

4673
4692

805+
383#

4587

3534
3544

4277

307+
826

4164

887«
965+
1039

8-AUG-78

15:05

889

904»

979+
1045+

113
1239+«
16428+
1525

1091«
1205+
1405«
1508
1627+
1730
1848+
1951

1644
1747
1865+

1968

2082+
2146
2290+
2447
2588
2773
2901
3051+
3163+
3312
3545+

991«
1060+«
1119«
1260+
1433
1541
1645

1763~

1866
1984
»

2088+«
2152
2319=
2472
2595
2794+
2922
3072+
3177
3319
3591«

2089
2155«
2321
2504w
2600+

4272+

4283

44695

4507

2796
291
3074
3186
3374
3595

N 14
PAGE 170

906
1001+
1062
1121
1276
1434
1542
1661¢
1764
1882+
1985

SEQ 0182
917+

1005

1065+
1126+
1276
14640+
1557«
1662
1780+
1883

919
1007
1067
1130

1296+
1457«
1558
1678+
1781
1899+

2095+
2158
2344n
2506
2601
2815+
2943
3098+«
3190«
3380«
3619«

2001=
2096
2185«
2345
2512+
2634+
2817
2969+
3100
3199«
3383
3621

2002
2100+
2190

2369+
2541+
2635
2836+
2971
3127«

3N
3389«
36570

4108
IART
2.

Lo4LN
3364
(547
4000

2U18+
2106+
2194
2370
2542
2710«
2838

2979+

3129
3223+
3390
3662

939

932
1018«
1072
1154»
1313
1474
1575
1695+
1798

1024
1077
1178+
1381«
14912
1593
1712w
1815
1933«

1916+

2019
2108
2196
2394
2551
2712
2857+
3000
3134«
323¢
3440+
3966

051
1028«
1080+

1182+

1382
1492

1609+

17213

1831«
1934

2037
2135
2224
2421
2558+
2733
2878«
3025+
31450
3258
3447

2054+
2139e
2228+
2622
2559
2752+
2880
3027
3151
3303»
36492+

3348+

4260

3970

5015
41514
4269+
4620
4025

4270
46374

812+
4099
45934

4108

4363

4495

3512

L6714

4675+

4700+

610

4260+

4283
1019«

1036+

2491

31460

327Se

4485

4281
1002+

3173

4283

4276+
946+
4713n

47204

3505

3557

3567

3608

3633

4714

K728

3894

628

643

6275

4307

4£588¢

45928

4466+
47004
46974

611

810+
2276

4114
4474

814

882«

2302

3459

3087

420

L2
L264
336

929+

1011
1070+
1146+
1311«
1458
1574«
1679
1797«
1900

340

SMSWR
SMTYP1
SMTYP?

SMTYP3
MTYPS
SMULT
SMXCNT
SNULL
ENWTST

$OCNT
$OVER
$PASS
$PASTM
$POWER
$PWRDN
$PWRMG
$PWRUP
$QUE
S
$RDCHR
$RDDEC=
$ROL IN
$RDOCT
$RDSZ =
$RESRE
SRTNAD
=
$R2A
$SAVRE
$SAVR6
$582D
$SCOPE
$SE TUP=

$SIZE
$SI1ZEX
$STUP =
$SVLAD
$SVPC =
$SWR

001210
001212
001174
033536
001225
001231
001235
001241
036504
034370
001154
000001

035C76
035100
034354
001202
001006
036052
035704
036040
035756
001170

033266
AXARAY

033406
033560
000010
036446
030176
&
L2482

036410
036050
037232
034106
000137
036062
036340
177777

034320
000106

167400

P—

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
3964
3974
3904
3997
L1

4192
4228
4254
4783

6563
4568+
4561
41104

10864
14454
16664
1887#

5735
42834
4334
8774
10994
14624
i683#4
19044

4390+
4237

4424«
4394
4253

4273

374H
L TAA

21994
26044
29264
32624
4395«
3934
3384
4635
604

46354
4614

384
L0564
5021

40844
41244
40774
47574

37074
5023

L7414
4613»
49714
598
582#
3980
806

—

8-AUG~78

15:05

8 15
PAGE

171

SEQ 0183

4566
4569+

4581

4585+

9104
11594
164954
17174

9234
11874
15124
17344
19554

5941
4363

8974

11334
14794
17004
19214

19384
22964
27164
30064
34544

942

12104
15294
17514
19724

2374n
277
3078~
35984

20064
2399#
28004
3104m
36254

20244
26264
28214
31384
36654

20428
24504
28428
31654

20594
L77H
28634
3192#

3686+

3687+

3695

3708

4267

4284

608

610

637

640

3684

378

379
976

380

607
1000
1320
1601
1823

9724
12440
15624
17854

23494
2758%4
30574
35594

4402%
427
3326

4413
42804

44394

3398

3500

3552

4043

4092

4108

4363

4495

4621

4622

4623+

46394

4114

598
4234
46594

600

602

604

606

607

289

290
927

2270
26954
29824
34094

628+

L4378
4399
4261
800

L6404
46044

4632

46204

5018

35074

10474
14154
16494
18704

10304
13924
16324
18534
2111»
2517~
2884#
32164

9594
1228#
15454
17684
1989#

23244
27374
30364

22334
26414
29474
33374

9844
12794
15804
18024

9964
13164

10134
13664
16154

1597
1815#

21644
25644
29054
32394

5019
5020

5022

5021

6009
42334
597

813
47094
L2744
37

610
1034
1396
1636

tMSGAD
MSGLG
TMSGTY

—

NCVIT
CINCCA.PT
CINCCA

A
OONN
N =\
— 00
WO
= =N

4456

4482

4490

286

287

288

1090
1449
1670

1103

1137
1483
1704

1466
1687

914
1163
1499
1721

1191
1516
1738

1232
1549
1772

1248

1566
1789

1283
1584
1806

NCVIN
CINCCA
CINCCA P

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

27(654)

1857

1874

1840

2063
2481
2867

$SWREC
$SWRMY
STEMF

0L21216
€ Y0000
102004

STEMPI

050100
056102
001200
001160

$TEMP?
$TESTN

$TIMES

3196
3685
4254
4451

4014

29
S69#
2125~
5883«
6458*
3924
378#
1051«
1449«
1670
1891+«

2203*
2608+
2930*
3266*
$TkB
$TKS
$TN

001146
001144
= 000162

4283
3714

3704

54
910
981
10904
1187
1277
1412
1495
15664
1646

1717
1785#
1867
1938
20104

21154
22744
2374
2473
2695
27834
2881
2977
3075
31694
3245
3393

2115
2521
2888
3220
3700

4255
4460

631

292
836«

2130+

5887«
6464
4275~
607+
1090+

1466*
1687*
1908*

2168
2568
2909
3243

3706
4256
4467

8-AUG-78
1891

2203
2608
2930
3266
3708

4263
4479

4229
840
2492+
5889
6465

4230

848«
1137+«
1483+
=
1704
1925+

881«
1163+
1699«
1721~
1942+

883«
2499
6457
6470*

2645«
2951«
3341«

2274x
2699
2986+
3413

2300~
2720«
3010+
3458~

3978

3989

4006

2237

776

9144
984
1096
11914
1279
1415
16994
1576
1649
17214
1799
1870
19424

2020
2138
2277
23784
2477
26994
2797
2884
2982
3078
3171
3259
3399

779

801
920
9884

1099
1204
12834
14194
1509
1580

16534
1731
1802
18744
1952

2024
2164
2293
2381
24814
2713
2800
28884
29864
30824
3189
3262
3401

3978
841
923
993

11034
1208
1307
1442
1512
15844

15:05

1908

2237
2645
2951
3341

PAGE

1925

172

SEQ 0184
1942

1959

2328
2741
3040
3511

4228
4280

1976

2353
2762
3061
3563

4229
4283

947

1993

2378
2783 °
3082
3602
4236
4447

949

2010
2403
2804
3108
3629

2028
2430
2825
3142
3669

2046
2L 54
2846
3169
3679

4448

4250
4449

4251
4450

951

955+

956

1000+
1370«
1619+
1840+

1017«
1396
1636+«
1857+

1034+
1419+
1653+
1874+

4248

65084
976«
1283«
1584«
1806+

2028+
2430«
2825+«
3142+«
3669+

2063+
2481~
2867+
3196+

4064
877
959
1030
1157

6159
897

12324
13704
14664
1543
1615
16874
1765
1836
19084
1986
2059
2223
23284
2426
2602
2755

4263+

969
1047
11634
1244
1389
1479
15454
1629
1700
17724
1850
1921
19934

2115«
2521
2888+
3220*

2168+
2568+
2909+
3243+
4273+

9014
972
1051
1177
12484

907
9764
108¢

4270

14834
1559
17044

2086

2233
2349
2448
26084
27624
2860
2947
3054
3144
3236
33414
3460

29514

3501

CINCCA NCV11
CINCCA.PI1

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

$TRPAD 037322
$TSTM
001004
$TSTNM 001102
STTYIN 033514
STYPBN= axraxs U
STYPDS 033662
STYPE
034372
STYPEC
034604
$TYPEX 034652
$TYPOC 034700
STYPON 034714
$TYPOS 034654
001206
SUNIT
SUNITM 001010
001220
SUSWR
001244
SVECT1
SVECT2 001246
$XTSTR 034124
$$GET4= 000000
$OF ILL 035077
$L0CAT= sxewex U
= 064002
)

3507
3625
4918
3730
3774
3724
602
4997#
50014
50228
4991
A37n
‘3500
4085
5014
L1648
43014
4029
4356
4393%
4392
4388¢
3954
3304
4024
W78
4284
42394
37004
4389%
4236
2964

35114
36294
4919
4352+
4301
4350
49864
5008
50104
50234
50084

JSASTAS sexsss U
“$X
001000

4547
3260

4550
329

SINPWR
$TPB
$TPFLG
$TPS
STRAP
$STRAP2
$TRP =

037146
001152
001157
001150
037266
037310
000015

384
4284

3684+
4086
5013
4574
4331
4358
5010
43954
5011

3513
3634

649394
6363
6363
4363

8-AUG-78

15:05

3553
3663

3555
3665

5632+

5455+

D 15

PAGE 173

SEQ 0185

3559
36694

35634

3568

3596

3598

36024

3609

3622

50194

50204

50214

327#

3294
42188
6877#

3474
4283
68784

5428

50114

5012#

50134

S0144

5015

50164

5017

50184

4224
4103

4252
61074

6274+

4275

4280

4284

4459

6495

5001
4338
63614

5009
4345

43504

4351

3134

3154
3712
L4616

3174
#
2064
4638

3184
3978

41074

324

3254
4108
6755

5012

667

4393«
4469
2984
595
4363

4403

44384

3064
610
4495

312
611
L5424

3708

L5954

49594

63184

4114

68764

CINCCA

NCVTT

CINCCA.PT
COMMEN
ENDCOM
ERROR

ESCAPE
GETPRI
GE TSWR
JOYMA(C
MULT
NEWTST

OFFBIT
POP
PUSH
REPORT
RESLM

SCOPE

SETPRI]
SETTRA
SETUP
SETZ

SKIP

131»
1314

25#

1064
1203
1436
1687
1936

2148
2424
2714
3021
3385

131#
1314
1314
14444
1314
1314
1099
1495
1751

2006
2450
2884
3262
26954

1314
1314
1314
16494
1904
26#
1102
1498
1754

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

27(654)

891

908
1084
1269
1494
1749

2154
2449
2735
3035
3392

869
1074
1227
1460
1715
1970
2160
2474
2756
3055
3441

L4667

4847

1450

1467

866
1069

1209

14643

1698

1653

6404
844

1133
1512
1768
2024

2477
2905
3337
2716

6147
4126
1666
1921

877

1159
1529
1785

2042
2517
2925
3409
2737

4205
4164

1079
1242
1477
1732
1987

8-AUG-78

1510
1766

3102
3499

2021
2198
2544
2819
3131
3551

1484

1500

1517

897

910
1210
1562
1819

923
1228
1580
1836
2164
2641

1187
1545
1802

2059
2564
2947
3454
2758
4589

2111
2604
2982
3507
2779

4550

4590
4552

1700
1955
900
1190
1548
1805

1717
1972
913
1213
1565
1822

SEQ 0186

982

954
1132
1342
1560
1817

1097
1278

2004
2192
2513
2798

2188
2508
2777
3076
3449

174

15:05

1153
1384
1595
1851

2085
2232
2590
2882
3188
3664

1534

1244
1597

1853

1567

1585

972
1316
1632
1887
2270

984
1366
1649
1904
2296

2884

2905

2926

4844

1751

1768

1785

1802

1819

1836

1853

1870

1887

945
1247

962
1282
1618
1873

975
1319
1635
1890

999
1395
1669

1016
1418
1686
1941

1033

1050
1465
1720
1975

1089
1482
1737
1992

2273
2740
3081
3668

50014
1314
5824
2284
2852
3614
1314

5010
589

5012

5013

5017

5018

5019

2310
2873
3648
801

2501
2915

2529
2936

1221

1256
2616
3016

2659
3046

2705
3067

2726
3093

841
1063
1185
1435
1680
1935

864

890

907
1083
1241
1493
1748

920
1096
1270
1509
17€5
2020

933
1114
1277
1526
1782

1385
1629
1884

2102

1389
1646
1901

2109

2138

1068
1204
1442
1697
1952

2141

1013
1415
1683
1938

4892
4783

2236
2719
3060
3628

1025
1177

996

2980
3314

4812
4742

2202
2698
3039
3607

1157

2426
2863
3239

1637

2349
2800
3165

2114
2607
2985
3510

1008

1086
1479
1734
1989

1620

2758
3104

2062
2567
2950
3457

1198

2374
2821
3192

1047
1462
1717
1972
2399
2842
3216

1602

3304

4762
4612

2737
3078
3665
2863

2027
2480
2908
3340

1144

1030
1445
1700
1955

3237

2110
2347
2637
2975

1921

1043

1186
1429
1664
1919

2142
2397
2687
3004
337¢

2103
2323
2630
2945
3260

1392
1666

1026
1187
1414
1647
1902

2137
2372
2682

2098
2294
2603
2924

2324
2779
3138

2009
2453
2887
3265

1314

1009
1176
1406
1630
1885

2199
2695
3036
3598
2821
4626
4606

987
1369
1652
1907
2299
2761
3107
3683

847

1136
1515
1771

994
1158
1390
1612
1868

1600
1856

1078

1226
1476

1731
1986

2153

1291

2003
2159

1328

2163

1924

2402
2845
3219

2429
2866
3242

3116

2126
2768
3362

2210
2810
3540

2252
2831
3582

940
1122
1307
1543
1799

953
113
1314
1559
1816

981
1150
1358
1594
1850
2090

993
1152
1383
1611
1867

2327
2782
3141

2352
2803
3168

5020

5021

5022

1378

2071

2747

2038
2189

1448
1703
1958

2056
2191

2084
2197

2377
2824
3195

2223

2225

2097
2231

CINCCA

DIAGNOSTIC

2263
2553
2839
3101
3297
3393

2277
2560
2860
3130
3305
3399

2293
2589
2881
3136
3308
3401

2303
2596
2902
3144
3313
3404

310

321

323

CINCCA.PYY

SLASH
SOF TSW

SPA(CE

STARS

3555

1314
8#

1314

912
1030
1212
1445
1564
1700
1821
1955

SWRSU

2164
2376
2641
2823
3006
3194
3559

1314

6124

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS

5001#
1314
1314
1314
1314
1314

TYPTXT
$SCMRE
$ECMTM
$SESCA

1314
3614
3414
1314

TYPOCT

SENEWT

923
1032
1228
1447
1580
1702
1836
1957

2113
2374
2606
2821
2984
3192
3509

2;38

1314

1099
1495
1751

4221

3998

844

1133
1512
1768

2024

2884

2905

3262

3596

925
1047
1230
1462
1582
1717
1838
1972

3609

42
1049
1244
1464
1597
1719
1853
1974

2166
2399
2643
2842
3008
3216
3561

2199
2401
2695
2844
3036
3218
3598

4510

4534

4286

877

1159
1529
1785

2322
2602
2923
3160
3315
3434

2346
2631
2944
3162
3320
3642

2371
2636
2972
3171
3327
3448

2381
2683
2977
3187
3329
3450

2396
2688
3003
3189
3332
3460

2406
2713
3028
3198
3368
3498

2423
2734
3030
3212
3376
3501

2448
2755
3032
3222
3379
3503

2473
2776
3054
3236
3384
3513

330

343

384

387

844

846

877

879

897

4365

3622

944
1086
1246
1479
1599
1734
1855
1989

2201
2426
2697
2863
3038
3239
3600
4443

3634

3663

3671

SEQ 0187

959
1088
1279
1481
1615
1736
1870
1991

961
1099
1281
1495
1617
1751
1872
2006

972
1101
1316
1497
1632
1753
1887
2008

974
1133
1318
1512
1634
1768
1889
2024

4498

4545

4602

4618

2233
2428
2716
2865
3057
3241
3625

2235
2450
2718
2884
3059
3262
3627

2270
2452
2737
2886
3078
3264
3665

2272
2477
2739
2905
3080
3337
3667

2507
2797
3075
3245
3386
3550

2543
2818
3088
3259
3391
3553

984
1135
1366
1514
1649
1770
1904
2026

986
1159
1368
1529
1651
1785
1906
2042

996
1161
1392
1531
1666
1787
1921
2044

998
1187
1394
1545
1668
1802
1923
2059

1
1
1
1547
1683
1804
1938
2061

4645

4726

477

4818

4500

1685
1819
1940
2111
2351
2604
2802
2982
3167
3507
4116
49¢2

1047

1086

2296
2479
2758
2907
3104
3339
3675

2298
2517
2760
2926
3106
3409
3977

2324
2519
2779
2928
3138
3411
3980

2326
2564
2781
2947
3140
3454
4048

2349
2566
2800
2949
3165
3456
4077

1314
1177

801
1185

1493
1748

942

1244
1597
1853

959

1279
1615
1870

972

1316
1632
1887

984

1366
1649
1904

996

1013

1030

1392
1666
1921

1415
1683
1938

1445
1700
1955

1462
1717
1972

1479
1734
1989

2164

2199

2233

2270

2296

2324

2349

2374

2399

2426

2926

2947

2982

3006

3036

3057

3078

3104

3138

3165

3192

3216

3239

3409

$$SKIP

923

1228
1580
1836

2111

3337

5010

910

121C
1562
1819

2059

2517

528;:

897

1187
1545
1802

2042

2477

gggg}n

1476
1731

PAGE 175

3695
633

2006

2450

15:05

CROSS REFERENCE TABLE

3568

8-AUG-78

MACY11 27(654)

NCVI1

2564

3454

5017

5012

841
1204

864
1208

1509
1765

1526
1782

2604

3507

5013

872
1226

1543
1799

2641

3559

5015

907
1241

1559
1816

2695

3598

5017

920
1270

1576
1833

2716
3625

5018

940
1277

1594
1850

2737
3665

2758

2779

2800

5019

5020

5021

5022

969
1307

981
1314

993
1385

1096
1389

1611
18¢7

1629
1884

1646
1901

1663
1918

2821

1131
1412

1680
1935

28472

1150
14642

1697
1952

2863

1157
1459
1714
1969

CINCCA NCV11
CINCCA.PT
1986

2322
2797
3088

3327

.EQUAT
.HEADE
KT11
.SETUP
. SWRHI
. SWRLO
.SACT]
.$APTB
.$APTH
.BAPTY
.$CAT(
. $CKSW
.SCMTA
.$082D
8DV
.$EOP
. $ERRO
.$ERRT
SSMULT
. $PARM
. SPOWE
. $RDOC
. SREAD

.$SAVE
.$582D

.$5COP
.$SIZE
. $SPA(
. $SWDO
.STRAP
.$TYPB
.$TYPD
.$TYPE
.$TYPO

MACY1T 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

2003
2346
2818
3101
3329
3555

3553
én
o#
S4
4
84
2924
104
104
104
10#

4543

4898
4816

6#
84
6H
o4

64
6#
84

ox
74
74
94
7
I
o#
74
on
7H
74
74
84
84

b#
%4

2020
2371
2839

3596

21
1

13
582

281

308
3854
319

292
341

3673

446461
4496
4769

4600
4114

3975

o4
4560
4219
4643

4724

4978
4152
Il4

4363

2038
2381
2860
3144
3376

4284

2056
2396
2881
3162
3386

3609

8-AUG-78

15:05

2109
2423
2923

3189
3399
3634

G 15
PAGE

2138
2448
2944
3198

3401
3663

176

SEQ 0188
2189
2473
2972
3212
3404

2197
2560
2977
3222
3442

2223
2602

3003
3236
3450

2231
2713
3028
3245

3460

2277
2734
3032
3259
3501

2293
2755
3054
3305
3503

CINCCA NCVIT
CINCCA.PT
ADC
ADD

ASL

ASLB
ASR

4528

660

27(654)

8-AUG-78

2161

3482

3504
4703
5770

4704

666

€81

4560
5675

6572

6584

1011

1028

1045

4929
6011

4137

3473

3474
4139

4391

4401

5187
6045

418
5188
6058

6037

5172
6041

4516

3476

3478
6517

4990

3524

3525

3526

4974

829
5695

830
5696

831
5697

893
5698

955

5955

3330
6136

3402
6137

4567
6476

519N
6478

5192
6480

5195
6482

5196
6484

4798

4871

5900
690

718
1008
1185
1559
1816

738
1042

803

809

113
1493
1748
2003

705
993
1180
1543
1799

733
1025

1122
1476
1731
1986

5890
686
969
1152
1509
1765
2020

890
1078
1389
1663
1918
2141

907
1083
1435
1680
1935

920
1096
1442
1697
1952

828
5694
6491

4525
5838
4883
4033
3558

672

1710
1965

2530
2937
3574

4415
6132
789
990
1221
143
1674
1794
1929

3181
3431

5889

4320

3472
6135

4134

2227
2364

5776

4023
4870

3190
4039

2191
2553
2881
3187
3399

BICB
BIS

4184

4014
4799
5859

3556

4038

638
940

BHI
BIC

SEQ 0189

4037

3528

BGT

177

3530

3527

BGE

L694

PAGE

6471
2515

6066

BCC
BEQ

4683
5710

H 15

5712
6495
3163

5682
6133

4189

15:05

MACYT1
DIAGNOSTIC
CROSS REFERENCE TABLE

2051
2251
2386
2528
2705
2810
2915
3045
3182
3467

5730
6465

644
953

2197
2560
2902
3198
3404

4251

4538
5852

4074

4257
1145

1727
1982

2577
2951
3583
4700
6162

1104
1237
1453
1675

1810
1930

2070
2252
2389
2529
2708
2813
2918
3046
3206
3489

2225
2589
2923
3212
3448

4253
4554
5969
4198
4696
17N
1744
1999

2617
2996
3594
4843
6333
1108
1254
1470
1691
1811
1946

2071
2257
2390
2536
2725
2830
2935
3049
3207
3490

981
1157
1526
1782

2038
2231
2596
2944
3222

3498
4255
4558
5975

2056
2293
2602
2972
3236
3501

4259
4578
5981

1068
1314
1629
1884

2109

2084
2322

6083

6085

1646

1901

2473
2797
3136
3332
3699

2147
2507
2818
3144

3379
3994

2153
2511
2839
3160
3384

4021
4487
5642

4461

4484
5545

1379

1659

2285
2853
4061

2311
2874
3521

5692

4067
5699

2462
2895
3541
4075
5755

1170
1377
1623
1760
1895

1197
1378
1640
1776
1896

1198
1398
1657
1777
1912

5447
6462

4425

6039
1199
1761

2016
2660
3017
3615
5185
6500
1111

1256
1487
1692
1827
1947

2076
2283
2411
2549
2726
2831
2936
3066
3230
3493

1897

3496

2015
2209
2339
2498
2658
2788
2893
3015
3123
3362
3581

1914

2032
2210
2359
2501
2659
2789
2894
3016
3154
3400
3582

1676
1931

2033
2215
2363
2503
2664
2792
2897
3018
3155
3430
3586

CINCCA NCVI
CINCCA.PT

3592

BITB
8LO
BLOS
BLT
8M]
BNE

1298

4197

730
1148

735
1175

740
1202

743

5139
629
2277

595

2303

619

213
3355

4012
4347
4875

2416

5170
5825
6340
815
3157

6126
583

6160
586

6173
764

1307

3189

5081
5814
5743

4414

1343

3305

4183
4478
5087

585

5937
5948
5904
587

2280
2728
3019
3639

2412
2749
3020
3684

4866
109

4686

(MP

3647

4181
2187

4250

4143
4428

CLRB

3638
5161
6505

3617
5073
6451
5854

4072
1424

1156

435

Bv(
cLc
CLR

3614

3613

4087
4031
1401

6330

4507

4803
5168
5816

8-AUG-78

4931
6450
5847
1207
4265
5169 *
(314

2120
3329
3992
4333

BPL

27(654)

4878
6359
5840
1184
4258
5141
4309

4860
BISB
BIT

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

5823
6325
930
5216
594
952
1313

1645
1600

2135
2370

1236

4698
5827

6435
937
5217
618
956

1360
1662
1917

2146
2395

3088

1262
4460

5175
4346
3568

636

2221
642

2163
3368

1226
2381
3370

4019
6354
4935

5190
5829
6346
1412
3184
4480

6329
621
1358

3315

4200
4513
5094

5971

5907
588

1259

2456
2770
3034
3685

4702
5856

6443
966
5839
637
963

1382
1679
1934

2152
2422

4026
4416

5028
5434
5845
6352
1455

3209

4672

6332

648
1385
333>
4239
4540
5100
5973

5910
593
1295

2523
2791
3048
4001
4787
5872
6457
3661
5846
645
1007
1434
1696
1951

2158
2447

4467
6082
4557
3609
4337
4188
646
746
1263

2406

3372
4063
4468
5033
5519
5894
6415
1472
3233

15:05

SEQ 0190

3658
5877

4041

6192

4193

4420

4421

4675

1334
4483

3296
5032

3328
5038

3367
5043

3400
5049

3433

3502
5060

3554
5065

4236
5071

3634

5925

5963

5965

5967

4426
5163
662
750

4924
5797

5957

684

702

801

2516
3396
4069

791
1299

3030
3424
4097
4508
5050
5649
5990
6467

3164
3434
4186
4530
5055
5651
5993
6473
1539
3988
5075

714
957
1337
3297

720
1012
1339

727
1046
1426

4325
4707
5165
5812
6164
1642
4302
5934

3648
5875

6119

1265

4473

1522

3513

4877
6503
841

6409
651
2086
3376

4548

5107
5977

5913
607
1331
2524
2812
3069
4002

1301

2223
3407

864
2263
3442

5126
5985

4689
5133
6051

711
1375

724
1387

4264
4638

4245

5873
6458
4098
5853
661
1024
1458
1713
1968
2162
2472

178

3652
5876

5598

4789

4797

115

PAGE

4304

5880

707
824
1303
3191
3436
4237
4556
5061
5653
6004
1555

4004

5421

867
2631
3450

4330
4699
5178
6094

6121

6122

5054

6123

6165

4308
4565
5072
5686
6105

4315
4582
5140

5783
6135

723
1029
1403
3301
3555
4317
4624
5142
5794
6149

1590
4065

1607
4172
5640

1625
4202
5879

1177

1204
3032
4070
4392
4867
5534

3453

5441

1150

2688

3299
3503

2977

4042
4349
4862
5452
6187

4044
4356
4864

838
2139
2653
2962
3471

839
2261
2675
2963
3523

5456
6468

659

3324
3986

1270

3162
4093
4407
4926
5804

4920

4178
5159

4506

6035

4405
5437
6128

5575
6131

979
2266
2694
2979
3573
4622
5662
6145

4262

4329

4355

4588

4885

4936

5201

779
1062
1492
1747

865

868

906
1113
1575
1832

919
1121
1593
1849

932
1130

939
1276
1628
1883
2119

2610
2875
31
4175
5897

2002
2196
2542

5898

1067
1508
1764

2019
2224
2552

2611
2896
3288

1072
1525
1781

2037
2230
2559

786

2089
2292
2601

2096
2302
2632

1610
1866

2108
2321
2635

991

2269
2707
2997
3616

4678

S791
6324

2345
2686

745
4472

790

5962

2130

4886

2500

4933

3152
5164

3298
5189

3300
5433

3369
5542

5177

5744
4182

5745
4269
5970

4427
5976

4463
5978

4585

d
h ed

NN SN IS S INANI
N = 2

6466
729
4324

4040
5901

5844
6472

5958

6048

712

3706

)

—

oo»ou:—aalmomou\
o
- N0
— 00~

o
I
o
b
e L
e
e
N

NN
S NWNNIN) = =

S ONONOWVNONI
00O = — N -

b
e
D i
d
b
d
e
b
d
b
h
b

NW O WNO W — 00
SN = 2 NON—=WNOOW

b
b
i
D
o

1017

VNS S BNIWNNON)
= —
o
QWO WNOON = \N=—-=0OWNO o

4331
5067
5124
5554
5677
6009
6421
602
631
698
820
871
917
964

1284

1325
1374
1428
1469
1516
1552

1168

739
4353

749
4555

6042

734
6332
6046

5837

NWND
NG N O W - 00 o~
WHOO
VWM
PNN o

1324
1373
1427
1468
1507
1551

1081

1138

6350

5851

4695

1235

4029
5051

703

874
6404
4235
5056
5118
5541
5623
5941
6394
600
625
679
818
863
915
951
1005
1053

6338

4068

1234

1166
1200

688
793
6171

4722

3002
3712
3549

4062
5446
5924

304
781
6110
3701
5045
5111
5533
5619
5863
6384
598
622
677
816
858
905
949
1002
1040
1076
1129

4637
842
5558
6344

2971
3307
3505

4032
5444
5902

303
767
6021
813
5040
5109
5528
5617
5850
6378
596
617
673
812
850
904
947
1001
1039
1075
1126

6053

4615
832
5426

4794

2943
3281
3497

4018
4804

5994
4457

1425
4874

2922

BN IANNINND
RN — —

4790

1402
4802

2901
3235
3447

40N
4706

[

4691

1338

2880
3211
3423

AN 8

4492
680
4925

4322
6038

5987

726

2859
3186
3403
3991

ONWNCO
0 H O \WN =&
NN
O NV OO

4481
664
4863
6018

635

3688
6134

6003

722
4307

SEQ 019N

N
P
U
U G

4853

4303

1283

1550

4424

3437

765

1165
1196

1467

1336
6514

5974

719
4256

179

VWSS
B NN NN — —

MOV

1302

6104
4413

5986
4359

JSR

1300

5650
4339

584

INCB
107
JMP

713
6252
5980

—d =D

3435

709
4096

4690
5828
6444

4490

5815
6345

D e

1266

6339

706
4090

5824
6351

4270

5968

6172

5782

2838
3159
3395
3985

HALT
INC

4336
25

5966

701
4025

4246

2817
3135
3390
3662

EMT

3371
5648

5659
6163

3621

2796
3129
3383
3633

d cnd

DECB

1264

4086

5593
6089

3608
4196
5685

2775
3100
3378

PAGE

com
com8
DEC

4073

2754
3087
3354

J 15

(MPB

5518
6019
643
3993
5964
5935
5574

2733
3074
3331
3595

15:05

4071

2712
3053
3323
3567

8-AUG-78

VNS BN
= = O
ONNVO0
SO HOWN—= NSO
OHN=ONNHOVI0—N)

2691
3027
3319
3557

MACY11 27(654)
(ROSS KEFERENCE TABLE

DIAGNOSTIC

—

CINCCA NCVIN
CINCCA.PW

5448
5956

5982

CINCCA NCVI
CINCCA.PIT
1591
1637
1677
1722

1762
1807
1847

1892
1932
1977

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTI(
1592
1638
1678
1723
1763
1808
1848
1893
1933
1978

2018
2065
2107
2150
2195
2241
2300
2343
2385
2432
2492
2540
2594
2639
2692
2730
2766
2807
2848
2889
2930

2970
3025

3635
4027
4145
4205
4277
4430
4551
4608
4631

3065
3113
3169
3205
3251
3289
3347
3381
3429
3480
3534
3579
3636
4056
4146
4206
4280
4431
4552
4609
4632

1601
1639
1687
1724
1772
1809
1857
1894
1942
1979

2028
2066
2115
2151
2203
2242
2301
2344
2393
2433
2494
2541
2599
2645
2693
2731
2772
2808
2849
2890
2931

2978
3026

3071
3114
3172
3210
3252
3290
3348
3382
3432
3481
3535
3580
3637
4057
4147
4207
4281
4432
4559
4610
4633

1602
1643
1688
1728
1773
1813
1858
1898
1943
1983

2029
2067
2116
2155
2204
2243
2304
2353
2394
2434
2495
2550
2600
2646
2699
2732
2773
2814
2850
2891
2932
2986
3033
3072
3127
3173
3220
3257
3294
3350
3387
3439
3485
3536
3590
3643

4084
4148
4208
4305
4433
4563
4611
4659

1603
1644
1689
1729
1774
1814
1859
1899
1944
1984

2030
2068
2117
2156
2205
2244
2305
2354
2403
2435
2496
2551
2608
2647
2700
2741
2774
2815
2856
2892
2933
2990
3040
3073
3128
3175
3223
3266
3302
3351
3388
3440
3486
3537
3591
3644
4085

4149
4209
4306
4459
4568
4612
4660

8-AUG-78
1604
1653
1690
1738
1775
1823
1860
1908

1945
1993
2031
2069
2118

2157

2206
2246
2306
2355
2404
2445
2497
2557
2609
2649
2701
2742
2783
2816

2857

2898
2934
2991
3041
3082
3133
3176
3225
3273
3303
3352
2389

3443
3487
3538
3593

3645
4100
4165
4211
431
4464
4569
4613
4661

15:05
1608
1654
1694

1739
1779
1824
1864
1909
1949
1994

2035

2080

2121
2168
2207
2267
2307
2356
2407
2446
2499
2558
2612
2650
2702
2743
2784
2825
2858
2899
2940
2992
3042
3086
3134
3177
3226
3274
3306
3353
3405
3444
3488
3542
3602
3646

4101
4166
4212
4319
4485
4571
4614
4662

K 15
PAGE

1609
1655

180

SEQ 0192
1620

1695
1740
1780
1825
1865
1910
1950
1995
2036
2081
2122
2169
2208
2268
2308

2357
2408
2454
2504
2568

2613
2651
2703

2744
2785
2826

2867
2900

2941
2993
3043
3089
3142
3179
3227
3275
3309
3357
3413
3445
3492
3543
3607
3656
4102
4167
4241
4334
4488
4573
4620
4663

2910
2951
3091
3146
3185
3229
3278
3311
3359
3419
3458
3511

3547
3611
3669

4124
4169
4244
4396
4510
4589
4625
4665

1626

1621
1661
1706
1746
1791
1831
1876
1916
101

2001
2048
2088
2133
2172
2228
2278
2328
2369
2413
2458
2512
2573
2622
2656
2711
2752
2793
2829
2870
2911
2955
3001
3051
3097
3148
3196
3234
3279
3316
3360
3420
3463
3515
3563
3612
3691
4125

4170
4247
4397
4519
4590
4626
4668

1711
1756

1636
1€73
1721
1758

1806

1843

1891
1928
1976

2378
2414
2459

2379
2420

2013
2063
2105
2144
2186
2239
2290
2332
2383
2430
2481
2526
2587
2634
2677
2723
2764
2805
2846
2879
2920
2968
3013
3063
3109
3153
3203
3249
3286

3341
3377
3427
3468
3520
3577
3629

4627
4669

4673

4022
4130
4199
427
4429
4535
4607
4630
4677

CINCCA NCVIT
CINCCA.P11
4679
6715
4759
4810
4,872
4918

movB

5150
5451
5635
5736
5833
5892
5953
6062
6161
6358
6456
€09
4133
4395
5184

NEG

RESET
ROL

ROR
RT1

RTS

SB(
suB
SWAB
TRAP

TST

5753
6496
3416
1105

2180
2255
2336
2418
2532
2628
2967
3650
5193
5656
5726
5763
6167
3477
5579
4800
5911
4494
4361
5704
4808
4684

807
669
4667
641
851

MACYT1 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC
4680
4716
4760

4681
4717
4761

4880
4919
5155
5454
5636
5737
5834
5896
5954
6065
€183
6407
6460

4890
4971
5158
5455
5638
5739
5841
5922
5996
6067
6186
6410
6463

4811

649

4174
4399

5202
5766

4173
1106

2182
2256
2337
2419
2533
2629
3022

3651
5194
5683
5727
5764
6168
903

3479

4812

655

6177
4402

5215
5792

4400
1107

2183
2258
2340
2437
2537
2661
3023
3653
5197
5684
5728
5765
6474
978

3529

4682
4718
4762
4813
4891
4972
5179
5516
5657
5740
5848
5929
6000
6070
6189
6417
6469
700
419N
4403

5517
5805

4791
1351

2184
2259
2341
2438
2538
2662
3024
3654
5198
5702
5729
5772
6475
1438
3531
5585
5578
5915
2245

4685
4742
4763
4814
4892
4975
5182
5520
5661
5761

5855

5930
6006
6087
6190
6418
6501
2534
4194

4422
5524
5887

8-AUG-78
4687
4743
4764
4844
4893
4986

5200
5525
5672
5748
5858
5931
6008
6096
6191
6420
6504
2535
4203

4466

5531
5936

4795
1352
2212
2260
2342

4806
1353

5199
5703
5730
5773
6477
3700

5204
5716

2439
2539
2663
3118
3655

2213
2287
2360
2442
2578
2665
3119
3702

5731
5774
6479
6321

15:05
4688
4744
4765
4845
4894
4987

5203
5527
5673
5749
5861
5932
6010
6100
6192
6422
3121
4275
4474

5573
5938

4807
1354
2214

L 15

PAGE

181

SEQ 0193
4701
6747
4784
4849
4912
4998

4692
4745
4766
4846
4895
4991
5214

4710
4748
4785

4711
4749
4786
4851
4914
5146

5432
5564
5711
5806
5871
5944

4712
4750
4788
4857
4915

5147
5435
5571
5715
5810
5874
5945
6054
6129
6348
6442

5222
5536
5708
5799
5869
5942
6044
6117
6335
6428

6430

6127
6342
6441

4279
4546
5592

4006
4352
4932
5645
6098

4060
4389
4589
5676
6413

4066
4390
5171

6012

3989
4344
4549
5643
6014

4854

4865

4884

4£889
2078

5867
2079
2249
2317
2388
2468
2619
2681
3587
5156

5532
5674
5771
5866
5939
6036
6114
6193

6424

3122

5537
5709

6052

2077
2247
2314
2367
2465
2585
2670
3584
5153
5226
5721
5757
5780
6492

5206
5718
5747
5777
6483

6485

2075
2218
2313
2366
2464
2584
2669
3126
5152
5225
5720
5756
5779
6487

4406

4408

4409

4410

64612

5586
5921
4028

5588

5590

5860

4076

6104

4992

6436

5144
6488

2073

2216
2289

2362
2444
2580
2667
3124
3704

2248
2316
2387
2467
2618
2680
3585
5154
5227
5722
5758
5950
6493

5678
6449

5422

5723
5759
5951
6494

4713
4751
4792
4861
4916
5148

6714
4758
4796
4869
4917
5149

4089

4094

2178
2250
2318
2391
2469
2620
2965
3588
5157
5423
5724
5761

2179
2254
2335
2392
2531
2627
2966
3589

5436
5572
5733
5822
5884
5946
6057
6130
6356
6447
4393
5173
5680
6464

4873

5577

5905

5906

5908

5909

4150

6213

4282

4321

4434

556

5550

5606

5663

5687

5933

4897
4815

4999
4938

2672

3415

4180

4465

4708

4709

4921

4923

5713

5714

5760

5001
683
853

€010
689
854

5011
704
855

5012
717
856

5015

5017

5018

5019

5020

5021

5022

859

860

2380

2405

2673

2973

810

4,842
674
852

6139

2624

6152

6175

737

5762

4868

6879

4768
4719

5582
5918
2648

5160
5424
5725

6166

4138
5589

5583
5576
5914
1348
4752
4591
6106
4922

4394
5183
5701
6470

5959

4136
5587
5580
5917

5581
4801
5912
843
4636
4533
5785
4856

5442
5634
5734
5826
5885
5952
6059
6141
6357
6448

774
1409

778

814

3029

419
4477
5285
5486

6209
6233

6381

6581
6702
6792

.DSABL

677

4959

6877
351

621
4592

5337
5493
6210
6235

6387
6586
6712
6794
6825
6855

.ENABL

3978

"ENDC

25
315

418

606
846
901
941
976

1014
1051
1102
1161
1212
1249
1344
1413
1464

6778

6878
356

357

4640
5297
5380

622
4593

5350
5496
6211
6245

6392
6593
6713
6797
6827
6857

424
459

5357
5499
6212
6254

6397
6598

6719
6799
6829
6859

117
317

1015
1052
1103
1162
1213
1271
1359
16416
1465

1400

2615

4553
5989
5278

6531
6627
6793
3714
3802
3905
5246
5303
6255
6785

365

425

5220
5362

5502

6216
6261
6402
6605
6729
6801
6831
6861

324
427
610
849

421

607
847
902
943
977

3244
4195
4705
6143

165

350

4541
5294
5377

6791
3709
3797
3898
5242
5299
5382
6781

o
g\l\lmbuu‘ EO

4112
5290
5374
6768
4107
4218

6617

.BLKB
.BLKW
.BYTE

6594
6738
380
3782
3877

4350
5878
3955
6522

LASCIZ

5646
381
6292

1225
1641

LASClI

5992
1174
1624
4301
5811
3952
6519
6606
6761
653
3792
3889

1589

5891
823
1606
4254
5793
382
6300
6603
6749
383
3787
3884

6144
L4674

3221
4185
4693
6084

685

4035
4581

3197

1ST8

4020
4579
5796

3170

S EWNNIN)
= =
—ON
N = ON —

3143

MACY1T 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

CINCCA NCVN
CINCCA.PT1

945
985
1017
1069
1123
1164
1215
1280
1368
16418
1467

8-AUG-78
3322
4243

15:05

3326

PAGE

3394

4809

4267
4876

(318
4881

1611

1423

145/

6148

3156

4564

6125
5283
6534
6642
6795
3720
3811
3912

5250
5306
6307
6867

6170

3183

6577

6159
5322

6543
6652

6864
3726
3818
3921
5254
5309
6316

6521
6610
6736
6803
6833
6863

374
3951
52641
5366
6102
6218
6276
6526
6616
6737
6805
6835
6866

187

209

366
3708
5224
5365
6002
6217
6268

SEQ 0194

3398

6184

3451

3208

6328
5358

6546
6666

6868
3733
3826
3927
5258

912
946
986
1018
1074

1480

6277
6582
6720

6284
6591
6730

3764
3858

3771
3864

3776
3870

1538
4058
5440

3255
5162
6414
6236
6558
6684
3745
3840
3936

3750
3845
3940
5270
5331
6563

375
3962

376
4105

4106

377

5253
56464
6200
6224
6299

6545

6641
6758
6811
6841

275
378

645
880
921

612
865

6502
6269
6579
6714

1521

3987
5620
6453
6246
6567
6692

6539

6871

1571
4187

1504

6527

6869

1554
4064

1488

5266

5249
5461

4<51

4486

6411

962
994
1033
1088
1137
1189
1232
1308
1386
1446
1483

399

4435

5257
5467
6201
6225
6306
6550
6651
6760
6813
6843

5143

6703

3757

5430

4108

6575

3670

3552
4537
5544

3512

4479

5317
6551

5312

3500

44617
4988

6408

4670

3459

6348
4887

634

428

1132
1178
1227
1281
1369
1419
1477

182

5277
5345
6587

410
4437

5265
5477
6203
6230
6366
6562
6674
6777
6817
6847

5639

4109
5287

5351
6599

4438
5269
5480
6204
6231
6371
6569

6683
6784
6819
6849

5652

5641

4310

5288
5371
6611

418

4476

5274
5483
6205
6232
6376
6574
6691
6790
6821
6851

303
388
602
842
928
974
1001
1049
1100
1158
1209
1247
1320
1396
1460
1498

1854
1891
1939

2805
2865
2910
2983

3037
3143
3196
3244
3330
3402
3459
3561
3628
3681

.EVEN
.1f

3038
3083
3145
3197
3246
3333
3405
3461
3562
3629
3684

4009
6222
4280
4494
6526
4990

4045
&225
4283
£495
4636
S009

5023

110

653
23
292
385
596
652

3964
89
301
387
598
801

1907
1953

m A

>
()] —d

2025
2063
2142
2202

2301
2375

22764

2329
2400
2653
2564
20609

2714

1533
1581

1619

1667

1704
1752
1789
1837
1874
1922
1959

2007

2046
2113
2169
2237

2376
2429
2508
2597
2689
2798

2761
2819
2866
2924
2984
3039
3089
3161

3512

4108

4256
4664

4592
4819

S017

1544
183
1630
1669
1715
1754
1800
1839
1885
1924
1970

2009
2057
2115
2192
2264
2325
2378
2431
2519
2605
2697
2742
2802
2847
2907
2952
3031
3080
31461
3194
3242
33N
3394
3457
3556
3626
3678
3979
4152
K276
4479
4619
4981

5021

108

2804
2864
2909
2978

2760

1976

1822

20N
2061
2137
2200
2272
2327
2382
2651
2521
2607
2699

2021
2062
2139
2201
2273
2328
2397
2452
2522
2608
2700

275y

.EQulv

1890
1936
1975

1703
1749
1788
1834
1873
1919
1958

KR
roa atL

1889
1926
1974

1721
1763
1806

1577
1678
1664

290
380

582
640

382

IO T"MONADZ R RC—~IOTMONDZERNC—IOYMOND

1851

1805

1684

1532

1527
1565
1612
1652
1698
1737
1783

18461

1804

1598
1636

SEQ 0195

AC—~IONMONDL B

1513
1549

183

W~ T OAMMONMEZ R

1510
1548
1595
1635
1681
1720
1766

15:05

wwoagmm
FRIRE ~

1500
1547
1585
1634
1671
1719
1756

8-AUG-78

1499

MACYIT 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

—d —d & §.«u-‘§—l
OOVNNz

CINCCA NCVIT
CINCCA.PT

CINCCA

—

W-‘W.{—"F

NCVIY

CINCCA.P11

890
933
981
1025
1086

1148
1204
1249
1366
1420
1483
1533
1584
1636
1687
1738
1789
1840
1891
1942
1993
2046
2115
2197
2274
2349
2406
2482
2602
2699
2762
2825
2888
2951
3032
3088
3165
3220
3305
3384
3454
3555
3629
3681
4048
4224
4282
4483
4618
4962

. 1FDF

.IFF

5021
877

23
385

e ceddBRET

T T

MACYTT 27(654)

B8-AUG-78

15:05

867
940
984
1030
1088
1150
1208
1270

899
942
986
1032
1090
1152
1210
1277

901
944
988
1034
1091

902
946
989
1035
1096
1159
1214
1281

907
953
993
1042
1099
1161
1215
1283

910
959
996
1047
1101
1163
1226
1284

912
961
998
1049
1103
1164
1228
1307

914
963
1000
1051
1114

4049
4229
4283
4490
4625
4980

4077
4235
4284
4494
4620
4986

4085
4236
4286
4495
4634
4990

4086
4248
4307
4498
4636
5001

4090
4250
4365
4513
4640
5010

40N
4251
4443
4529
4645
501

4107
4252
4446
4545
4649
5012

4108
4254
4457
4547
4668
5013

1368
1435
1484
1534
1585
1637
1688
1739
1790
1841
1892
1943
1994
2047
2116
2199
2275
2351
2423
2507
2604
2700
2763
2826
2889
2952
3036
3101
3167
3221
3308
3386
3456
3559
3630
3683

5022

288
388

1370
1442
1493
1543
1594
1646
1697
1748
1799
1850
1901
1952
2003
2056
2136
2201
2277
2353
2426
2517
2606
2713
2776
2839
2902
2972
3038
3104
3169
3222
3313
3391
3458
3561
3634
3689

5023

290
596

1157
1212
1279
1371
1645
1495
1545
1597
1649
1700
1751
1802
1853
1904
1955
2006
2059
2138
2203
2293
2354
2428
2519
2608
2716
2779
2842
2905
2977
3040
3106
3170
3236
3315
3393
3459
3563
3663
3692

291
636

1382
1647
1497
1547
1599
1657
1702
1753
1804
1855
1906
1957
2008
2061
2141
2204
2296
2371
2430
2521
2609
2718
2781
2844
2907
2982
3041
3108
3171
3239
3320
3399
3460
3564
3665
3694

292
638

1385
1449
1499
1549
1601
1653
1704
1755
1806
1857
1908
1959
2010
2063
2147
2223
2298
2374
2431
2522
2631
2720
2783
2846
2909
2984
3054
3109
3187
3241
3327
3401
3498
3568
3667
3698

311
802

1389
1450
1500
1550
1602
1654
1705
1756
1807
1858
1909
1960
2011
2064
2153
2225
2300
2376
2448
2543
2636
2721
2784
2847
2910
2986
2057
3130
3189
3243
3329
3404
3501
3596
3669
3700

315
824

Sy SR

G-

Ry N

SRRV

DIAGNOSTIC

CROSS REFERENCE TABLE

PAGE 184

SEQ 0196

1392
1459
1509
1559
1611
1663
1714
1765
1816
1867
1918
1969
2020
2084
2159
2231
2301
2378
2450
2553
2641
2734
2797
2860
2923
2987
3059
3136
3192
3244
3332
3409
3503
3598
3670
3706

177
1230
1314
1394
1462
1512
1562
1615
1666
1717
1768
1819
1870
1921
1972
2024
2086
2163
2233
2303
2379
2452
2560
2643
2737
2800
2863
2926
3003
3061
3138
3194
3245
3337
3411
3507
3600
2671
3708

317
842

322
845

915
964
1001
1052
1122

1180
1232
1316
1396
1464
1514
1564
1617
1668
1719
1770
1821
1872
1923
1974
2026
2090
2164
2235
2322
2381
2454
2564
2645
2739
2802
2865
2928
3006
3062
3140
3196
3259
3339
3413
3509
3602
3675
3709
4114
4255
4460
4550
4676
5014

324
846

920
969
1008
1063
1131
1185
1233
1318

923
972
1013
1068
1133
1187
1241
1320

925
974
1015
1073
1135
1189
1244
1321

927
976
1017
1078
1137
1191
1246
1343

928
077
1018
1083
1138

4116
4256
4467
4577
4726
5015

4119
4265
4469
4592
477
5017

4131
4267
4470
4602
4818
5018

4154
4275
6472
4612
4843
5019

4221
64277
4479
4613
4900
5020

1397
1466
1516
1566
1619
1670
1721
1772
1823
1874
1925
1976
2028
2097
2166
2237
2324
2396
2455
2566
2646
2741
2804
2867
2930
3008
3075
3142
3197
3262
3341
3414
3N
3603
3676
3977

33
847

1412
1467
1517
1567
1620
1671
1722
1773
1824
1875
1926
1977
2029
2102
2168
2238
2326
2399
2473
2568
2683
2742
2805
2868
2931
3010
3078
3143
3198
3264
3342
3434
3512
3609
3677
3979

344
848

1415
1476
1526
1576
1629
1680
1731
1782
1833
1884
1935
1986
2038
2109
2169
2263
2328
2401
2477
2569
2688
2755
2818
2881
2944
3011
3080
3144
3212
3266
3368
3442
3513
3622
3678
3980

347
865

1617
1479
1529
1580
1632
1683
1734
1785
1836
1887
1938
1989
2042
2111
2189
2270
2329
2403
2479
2589
2695
2758
2821
2884
2947
3028
3082
3160
3216
3267
3376
3448
3550
3625
3679
3981

1192
1248
1358
1419
1481
1531
1582
1634
1685
1736
1787
1838
1889
1940
1991
2044
2113
219N
2272
2346
2404
2481
2596
2697
2760
2823
2886
2949
3030
3083
3162
3218
3297
3379
3450
3553
3627
3680
4009

350
873

378
378

T——

1618

2740
2803
2929
3008
3076
3141
3196
3263
3340
3413
3510
3602
3676

. IFNDF
JFT
JFTF
LIIF

4108
4490
4901

3975
653
653

607

4114
4448

1566

1619
1670
1721
1772
1823
1874
1925
1976

2028
2102
2167
2237
2326
2400
2474
2567
2683
2741
2804
2867
2930
3009
3079
3142
3199
3264
3341
3434
351
3610
3680

4117
4495
4963
5023
4051
3996
16

608

4225
4449

1577

1630
1681
1732
1783
1834
1885
1936
1987

4155
4499
4981

4056

4049
21
610
4226
4450

2596
2697
2760

2045
2114
2198
2273
2350
2407
2481
2603
2698

2010
2063
2153
2225
2299
2376
2449
2543
2636
2720
2783
2846
2909
2985
3058
3130
3190
3242
3330
3405
3502
3597
3668

2718
2781
2844

2761
2824
2887
2950

3033

4987

4135
4052

285

611
4227
44651

3089
3166
3219
3306
3384
3455
3556
3528
3 08
4252
4546
6152
4135

4646

4658

4669

4714

287
3678

4229
4482

?—Au\‘—l\[‘

1806
1857
1908
1959

1890
1941
1992

2039
2110
2168
2263
2327
2401
2478
2568
2688
2756
2819
2882
2945
3010
3080
3145
3213
3265
3368
3443
3514
3623
3684

1189
1245
1320
1616
1477
1527

1078
1135

1188
1242
1319
1413
1466
1516

1073
1134

1031
1088
1148
1205
1248
1367
1419
1482
1532
1583
1635
1686
1737
1788
1839

1016

913
961
998
1049
1102
1162
1227
1283
1390
1449
1499
1549
1601
1653
1704
1755

900
944

1015

941

899
943
985

SEQ 0197

d od

898

881
927
975

185

15:05

830

880
926
974

8-AUG-78

27(654)

—

§O

N Qo
&~

WO
—

(VL 1V,
1V Te Yo

1)V

= =

e
) wid
d cd
)

VNS NN

d cd

879
925
973

MACYT1
DIAGNOSTIC
CROSS REFERENCE TABLE

OO\
S NN = = o
o) ~
O =0
WVNOO00
& —
~ ONNWWWN

CINCCA NCVT
CINCCA.P11

4077
4366
4710
4721

4710

3978

4495

4511

4536

5009

4283
5010

924
070
1008
1063
1122
1180
1231
1317
1395
1464

1514
1564
1617
1668
1719
1770
1821
1872

1923
1974

2026
2090
2165
2235
2323
2382
2453
2565
2644
2739
2802
2865
2928
3007
3061
3140
3195
3260
3339
3412
3509
3601
3671

3599
3669

40N
4460
4819

4444
4727

4717
597
3999
4284
5011

600
5012

606
4108
6447
5013

8-AUG-78

5019
897

5020

5021
923
1228

2024
2477
2905
3337

2059
2328
2564
2783
2947
3142
3454

2063
2349
2568
2800
2951
3165
3458

5021
341

5022
582

131

1533

1666

1921

2046

.PAGE
-REPT
.SBTTL

5020

1806
1938

4490

291

897
1000
1187
1396
1545
1670

901
1013
1191
1415
1549
1683

2059
2328
2564
2783
2947
3142
3454

2063
2349
2568
2800
2951
3165
3458

3472

3524

1802
1925

4229
5021
434
13

1099

2111
2604
2982
3507

2115
2374
2608
2821
2986

4229

1163

1562
1819

4589
N
901
1013
1191
1415
1549
1683

1802
1925

-MACRO
MCALL
MEXIT
.NLIST

2042
2517
2926
3409

1187
1545
1802

4606

4573
131
897
1000
1187
1396
1545
1670

LLIST

1159
1529
1785

910
1210

844

1133

1806
1938

4490
5022
2270
281

877

1159

1580
1836

378

914
1030
1214
1445
1566
1700
1823
1955

959
1279
1615
1870

2233
2716
3057
3625

4626

582

942
1051
1244
1466
1597
1721
1853
1976

2199
2403
2695
2846
3036
3220
3598
5012

SEQ 0198
972
1316
1632
1887

2270
2737
3078
3665
4742
612

1086
1479
1601

984
1366
1649
1904

2296
2758
3104

4126
4762
959
1090
1279
1483
1615
1738
1870
1993

2233
2430
2716
2867
3057
3243
5013

3625
5014

996
1392

1013

2324
2779
3138

2349
2800
3165

1099
1283
1495
1619
1751
1874

972
1103
1316
1499
1632
1755
1887

1666
1921

4147
4784
640

1415
1683
1938

4165
4812

653

2006
2237
2450
2720
2884
3061
3262
3629
5015

2010
2270
2454
2737
2888
3078
3266
3665
5016

640
963
1099
1283
1495
1619
1751
1874

653

1030
1445
1700
1955

2374
2821
3192

4205
4844
844
976
1133
1320
1512
1636
1768
1891

2024
2274
2477
2741
2905
3082
3337
3669
5017

1047
1462
1717
1972

2842

3216
4235
4892
848

1137
1366
1516

1649
1772
1904

2028
2296
2481
2758
2909
3104
3341
3684
5018

1086
1479
1734
1989

2426
2863
3239
4551

877

988
1159
1370
1529
1653
1785
1908

2042
2300
2517
2762
2926
3108
3409
3700
5019

5001
612

582

378

942
1051
1244
1466
1597
1721
1853
1976

914
1030
1214
1445
1566
1700
1823

910
1210

2199
2695
3036
3598
4625
388
927
1047

2168
2399
2645
2842
3010

1444

5716
301

942
12644
1597
1853

1232
1462
1584
1717
1840
1972

3192
3511
5009

1955
2115
2374
2608
2821
2986
3192
3511
5009

5022

186

2199
2403

2695
2846
3036
3220
3598

5010

5012

5904

6799
341
959

923

1228

1279

637
959

1090

1279

1483

1615
1738
1870
1993

2233
2430
2716
2867
3057
3243
3625

972
1103
1316
1499
1632

1755

1887

2010
2270
2454

2737

5014

5015

2888
3078
3266
3665
5016

434
984
1366

590
996
1392

1133
1512
1768

5018
877

D 16

PAGE

— =

5017
844

15:05

VNN

1495
1751

27(654)

—_——

.IRP

5015
582
1099

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

Lyl eTo

CINCCA NCV1T
CINCCA.P11

848
984
1137
1366
1516
1649
1772
1904
2028

2296
2481
2758
2909
3104
3341
3684
5018

654

1047
1462

877

988
1159
1370
1529
1653
1785
1908

2042

2517
2762
2926
3108
3409
3700
5019

682

1086

1479

CINCCA NCVI1
CINCCA.P11

MACY1T 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

1495
175

2006
2450
2884
3262

LTITLE

.WCRD

1512
1768

2024
2477
2905
3337

1529
1785

2042
2517
2926
3409

1545

1802

2059
2564
2947
3454

4284
11

4363

6441

L49¢

298

358

299

300

316

395
3689

359

396
3692

397
3707

401

4575

ERRORS DETECTED:

6635

360

4671

361

3965

4720

1562

1819

2111
2604

8-AUG-78
1580
1836

2164
2641
3006
3559
4600

336
363

403

3968

6934

15:05

1597
1853

E 16
PAGE

1615

1870

187

SEQ 0199
1632
1887

1649
1904
2296

1666

1921

2324
2779
3138
3712

2270

4643

2233
2716
3057
3625

4724

4769

4816

4898

337
364

338
367

339
368

340

349
390

3973

3974

2199
2695
3036
3598

416

3970

4977

420

5008

2737
3078
3665

272
3104
3673

369

426
4151

42/
6313

1683
1938

2349
2800
3165
3975

1700

1955
2374

2821
3192

1717
1972

2399
2842
3216

1734

1089

2426

2863
3239

4960

4114

4978

4152
5001

4219
5024

352
391

353

354
393

355

428
4360

392

429
4439

430
4522

364
631
4527

CINCCA

NCV1T

DJAGNOSTIC

CINCCA.PN

*«(CINCCA,CZINCCA/CRF /SOL=CINCCA

RUN-TIME:

CORE USED:

43 31

30k

6 SECONDS

MACY11 27(654)

8-AUG-78

15:05

PAGE 188

SEQ 0200