Digital PDFs

AH-E772A-MC

August 1978

201 pages

Original

122MB

view download

OCR Version

187MB

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

CZNCCAQ NCV11 DIAGNOSTIC TEST

DATE:

AUGUST

MAINTAINER:

DIAGNOSTIC ENGINEERING

1978

COPYRIGHT (C) 1973,1978
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOF TWARE 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 SOF TWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE INFORMATION IN THIS DOCUMENT 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 EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

SEQ 0002

—

ABSTRACT

whw—=0O

REQUIREMENTS

CONTENTS

TABLE OF

LOADING PROCEDURE

EQUIPMENT
STORAGE

W
B8

PREL IMINARY PROGRAMS

PROGRAM START

WN=O
O
W=D

MISCELLANEOUS
NCV11 BUS ADDRESS MODIFICATION
XXDP/APT NOTES
POWER FAIL

MULTIPLE NCV11

INTERFACE TESTING

O
O

RESTRICTIONS
ADDRESS MAKER TABLE

PROGRAM TEST DESCRIPTIONS

FIELD ADJUSTMENT OPTIONS
CONTROL

EXECUTION TIME

OOV

vy
OO0

ERROR REPORTING

SOF TWARE SWITCH REGISTER
LOGIC TEST OPTIONS

NNNNNNN

STARTING PROCEDURE

LISTING

1.0

ABSTRACT

SEQ 0003

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

VIA KEYBOARD TEST SELECTION AND THE PROVISIONS OF SECTION 5.

THE PROGRAM CAN BE EXECUTED ON AN LSI-=11 OR PDP-11 (OMPUTER.

2.0

REQUIREMENTS

2.1

EQUIPMENT
1.

FAMILY OR LSI-11

FAMILY COMPUTER

1/0 TERMINAL (IE: LA36)
NCV11 OPTION INCLUDING KWV11 REAL TIME CLOCK (M7952)
AQ17 SELF=TEST CONNECTOR (70-12894) (REQUIRED FOR SECTION 9.2 + 9.3)

HARDWARE TESTER AND PROM BLASTER (OPTIONAL)

2.2

PDP11

2.
3.
4.

H3060 JOYSTICK (OPTIONAL)

STORAGE
THE PROGRAM REQUIRES 16K OF MEMORY.

IF MEMORY MANAGEMENT OR ADDITIONAL MEMORY ARE SENSED, THE

PROGRAM WILL USE

PREL IMINARY PROGRAMS

THE KWV11

3.0

THOSE HARDWARE OPTIONS.

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:

VO ~NONWVNES

LSI:

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 TI'TLE.
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.

4.1

PROGRAM START

SEQ 0004

STARTING ADDRESS OF THE PROGRAM
RESTART ADDRESS OF THE PROGRAM
STARTING ADDRESS FOR THE FACTORY OPTION CHECK=QUT 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
SW14=1

100000
040000

HALT ON ERROR
LOOP ON TEST

SW10=1
SW09=1
Sw08=1

002000

BELL ON ERROR

SW13=1
SW11=1

5.2

5.3

001000
0004XxX

INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS

LOOP ON ERROR
LOOP ON TEST IN SWR <7-0>

FIELD ADJUSTMENT LOOP

SWITCH

OCTAL

FUNCTION

SW15=1
SW13=1
SW09=1
SW08=1
SW07=1
SW06=1
Sw04=1
SwW03=1
Sw02=1
SWO1=1
SW00=1

100000
020000
001200
000400
000200
000100
000020
000010
000004
000002
000001

HALT ON
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT

''INPUT VOLTAGE OUT OF RANGE'' ERROR
ERROR OR CONVERSION TYPEOUT
CONVERSIONS ON CAMERA #3 GAIN = 1
CONVERSIONS ON CAMERA #2 GAIN = 1
CONVERSIONS ON CAMERA #1 GAIN = 1
CONVERSIONS ON CAMERA #0 GAIN = 1
CONVERSIONS ON JOYSTICK
CONVERSIONS ON CAMERA #3 GAIN = 2
CONVERSIONS ON CAMERA #2 GAIN = 2
CONVERSIONS ON CAMERA #1 GAIN = 2
CONVERSIONS ON CAMERA #0 GAIN = 2

CONTROL

2.
~

LSI=11:

020000
004000

THE SOFTWARE SWITCH REGISTER 'SWREG' (LOC. 176) CAN BE
CHANGED BY USING THE ODT FACILITIES.
THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM
CONTROL BY TYPING THE °‘CONTROL & G' KEYS.
THIS
KEYBOARD OPERATION WILL PRINT
THE CURRENT CONTENTS
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED
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 REGISTER IF DESIRED BEFORE TYPING

'P* (CONTINUE).
IF THE PROGRAM IS 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.

6.0

ERROR REPORTING

SEQ 0005

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

ERROR PC OR FROM THE TEST ITSELF.
7.0

MISCELLANEOUS
NCV11 BUS ADDRESS MODIFICATION

MODIFY LOCATION "$BASE' (LOC. 1250) IF BASE NCV11 BUS ADDRESS IS NOT 772760.
MODIFY THE LOW NINE BITS 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 IS NOT LEVEL 6 ON A UNIBUS CPU.

MODIFY LOCATION '$CDW1' (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.

7.3

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).

7.4

MULTIPLE NCV11'S INTERFACE TESTING
THIS PROGRAM DOES NOT "‘AUTO-SIZE'' THE NUMBER OF NCV11'S CONNECTED.
FOR EACH ADDITIONAL NCV11, THE_OPERATOR MUST MODIFY LOCATIONS

$BASE, SVECT1 AND $CDW1
7.5

(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 AQ17.

ADDRESS MAKER TABLE

THE MB036 CONTAINS LOGIC TO CONVERT A/D DATA INTO A RELATIVE
ADDRESS.
BELOW IS A TABLE WHICH SHOWS THE ADDRESS MAKER OUTPUT
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.

RESOLUTION

ADDRESS MAKER OUTPUT BITS

RESO RES1 WORD*16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00
1
1
1
1

1
1
0
0

0
0
0
0

1
0
1
0

1
1
0

B 4
£
BB
P 0 8
'S0

1
0
1

ALWAYS

0
A
0O

8§
F
%
Y338
&
S
e
g
B8
W
62
62
6
1
9 61T
9 $°E
P EQ
V'R
E

00
B
M
R
000

31
S
6
1Y
W
0%
9

0O0BGZGZGOGIZG2ZGO
R
N O
S
87 &
=
Bros
W oE
W
0O0BGZGZGG2ZG2ZG

1 = ALWAYS A 1
G = GAIN FLOP STATE
Z = 7B ENABLE FLOP STATE

B = THE "'AND'' OF ZB ENABLE WITH ZB MAINT.
8.0

%8
AR S
6L
0
2.

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 RUNTIME.

DIFFERENTIAL LINEARITY: EXECUTION TIME

IS ABOUT 90 SECONDS.

SEQ 0006

TM~

7.6

PROGRAM TEST DESCRIPTIONS

SEQ 0007

THE PROGRAM CONSISTS OF FOUR MAIN SECTIONS PLUS THREE AUXILIARY AND

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

BELOW IS A BRIEF DESCRIPTION OF EACH SECTION AND THE KEYBOARD CHARACTER.
MAIN SECTIONS
9.1

LOGIC TEST

(M8026 + M8036)

<NO INTERVENTION> <SETUP ONLY IF SA=210>
THE TEST CONTAINS 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 WILL BE EXECUTED IF THE
PROGRAM WAS STARTED AT LOC. 210.
9.2

D (M)

DIFFERENTIAL LINEARITY

(A017)

AO017> <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 OUTPUT AN EXPANDED REPORT OF
THE 254.

STATES.

TIGHTER ERROR TOLERANCES ARE USED

IN THE OPTION CHECKOUT AREA (SA 210).

9.3

IF RUNNING

FINAL ACCEPTANCE

THE SUB-SECTION RUNS SECTION ‘L'" AND 'D'' TO VERIFY PROPER OPERATION.

5.0

9.4

ADJUSTMENT OF AO17 AT FIELD SITE

COARSE ADJUSTMENT OT THE AO17 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
Sw13=1
SW09=1
SW08=1
Sw07=1
Swo6=1
Sw04=1
Sw03=1
SW02=1
Sw01=1
Sw00=1

100000
020000

001000
000400
000200
000100
000020

000010
000004
000002
000001

FUNCTION

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 CONVERSIONS ON CAMERA #3 GAIN = 2
INHIBIT CONVERSIONS ON CAMERA #2 GAIN = 2
INHIBIT CONVERSIONS ON CAMERA #1 3AIN = 2
INHIBIT CONVERSIONS ON CAMERA #0 GAIN = 2

AUXILIARY SECTION

9.5

OTHER TERMINAL ADDRESS

IN SOME CUSTOMER SITES, THE CONSOLE TERMINAL MAY NOT BE LOCATED
WITHIN EASY ACCESS TO THE NCV11.
THIS SECTION ALLOWS THE OPERATOR
TO CHANGE THE PROGRAMS CONTROL TO ANOTHER TERMINAL.

9.6

HELP THE OPERATOR

A LIST OF THE COMMANDS WILL BE TYPED TO REFRESH THE OPERATOR'S MEMORY.
9.7

SOF TWARE SWITCH REGISTER

ENABLES THE OPSERATOR TO CHANGE THE SOF TWARE SWITCH REGISTER WHEN
NOT RUNNING ANOTHER SUB-SECTION.

FACTORY OPTION CHECK-OUT SECTION

9.8

INITIAL ADJUSTMENT OF A017

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 TEST DOES NOT ATTEMPT TO CALIBRATE
THE PRE-AMP, BUT ONLY TO FUNCTIONALLY VERIFY THE ADJUSTMENTS.

SEQ 0008

9.9

BLASTING THE LINEARITY CORRECTION PROM

THE TEST IS DESIGNED TO CREATE THE LINEARITY CORRECTION 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 AO017 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 M8036 CONTROL PROM.
THE OPERATOR
MAY (REATE SEVERAL COPIES BY REPEATELY EXECUTING THIS SECTION.
THE PROGRAM WILL

LOCATION

OCTAL

BINARY

00
01
02
03
04
05
06
07
10

215
244
116
144
215
244
116
144
215

10001101
10100100
01001110
01100100
10001101
10100100
01001110
01100100
10001101

20
21
22
23

116
144
216
244

01001110
01100100
10001110
10100100

11
12
13
14
15
16
17

10.0

LISTING

INFORM THE OPERATOR THE STEPS TO PERFORM.

244
116
144
215
244
116
144

1010010C
01001110
01100100
10001101
10100100
01001110
01100100

SEQ 0009

CZNCCA NCVIT
CZNCCA.PT
17
127
277
288
297
304
315

337
381

430

DIAGNOSTIC

MACY11 27(654)

TABLE OF CONTENTS

15:05

B8-AUG-78

SEQ 0010

BASIC DEF INITIONS
MEMORY MANAGEMENT DEF INITIONS
OPERATIONAL SWITCH SETTINGS
TRAP CATCHER

STARTING ADDRESS(ES)

ACT11 HOOKS
APT PARAMETER BLOCK

COMMON TAGS
APT MAILBOX-ETABLE
ERROR POINTER TASLE

INITIALIZE THE COMMON TAGS

TYPE PROGRAM NAME

GET VALUE FOR SOF TWARE SWITCH REGISTER

PRIME THE NCV11 ADDRESSES FROM THE DEFAULT VALUES

DIAGNOSTIC IDENTIFICATION TYPEOUT

KEYBOARD COMMAND DECODER
TEST

DESCRIPTION

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

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 "‘INIT'® CLEARS THE SFR REGISTER
VERIFY THAT ''CLEAR ALL'' CLEARS THE SFR REGISTER
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

VERIFY Z INPUTS CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGEIN MATRIX MODE
VERIFY Z 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
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
TEST THAT "WCA OVFL'' GENERATES AN INTERRUPT

VERIFY "WCA OVFL'' CLEARS "ACTIVE"
VERIFY JOYSTICK DONE FLOP SETS

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

JOYSTICK DATA PATH

JOYSTICK DATA PATH
JOYSTICK DATA PATH

RES. = 010
RES. =

JOYSTICK DATA PATH
JOYSTICK DATA PATH
JOYSTICK DATA PATH

GAIN =0

=
GAIN =
=
RES. =

7B ENABLE =0

RES. = 000

MACY11 27(654)

141
142
143
T44
145
146

THE
THE
THE
THE
THE
THE

TABLE OF CONTENTS

147
150
T51
152
153
154
T55
156
157
160
161
162
T63
T64
T65
166
167

170
171
172
173
174
175

VERIFY
VERIFY
VERIFY
VERIFY
VERIFY
VERIFY

SEQ 0011

DATA INCREMENT FUNCTION
DATA INCREMENT CARRY BIT
DATA INCREMENT FUNCTION IS INHIBITED
DATA DECREMENT FUNCTION
DATA DECREMENT BORROW
DATA DECRE"ENT FUNCTION IS INHIB;TED

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
TEST
TEST
TEST
TEST

15:05

8-AUG-78

ADDRESS MAKER
ADDRESS MAKER
ADDRESS MAKER
ADDRESS MAKER
ADDRESS MAKER

TEST ADDRESS MAKER

=
=
=~
=~
=~
=
=~
=~
=
=
=~
=
=~
=
=~

=~
=~
-

MATRIX MODE - RES = 7 GAIN = 0 ZB ENABLE = 0
MATRIX MODE - RES = 7 GAIN = 1 ZB ENABLE = 0
MATRIX MODE - RES = 7 GAIN = 0 ZB ENABLE = 1
MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 0
MATRIX MODE - RES = 6 GAIN = 1 ZB ENABLE = 0
MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 1
MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = 0
MATRIX MODE - RES = 5 GAIN = 1 ZB ENABLE = 0
MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = 1
MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE = 0
MATRIX MODE - RES = 4 GAIN = 1 ZB ENABLE = 0
MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE = 1
MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 0
MATRIX MODE - RES = 3 GAIN = 1 ZB ENABLE = 0
MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 1
MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE = 0
MATRIX MODE - RES = 2 GAIN = 1 ZB ENABLE = 0
MATRIX MODE - RES = 2 GAIN = 0
MATRIX MODE - RES = 1 GAIN = 0
MATRIX MODE - RES = 1 GAIN = 1
MATRIX MODE
- RES = 1 GAIN = 0
LIST MODE - ZB ENABLE =
LIST MODE - ZB ENABLE = 1
LIST MODE - ZB ENABLE = 0

ZB ENABLE
ZB ENABLE
ZB ENABLE
ZB ENABLE
0

222

1579

1580
1598
1617
1635
1654
1672
1690
1708
1726
1744
1762
1780
1798

DIAGNOSTIC

288

CINCCA NCVTT
CZNCCA.PT

= 1
= 0
= 0
=1

176

TEST ADDRESS MAKER

177

ENABLE A ONE WORD TRANSFER

7103

T104
T105
T106
1107
10
11
112

VERIFY
VERIFY
VERIFY
VERIFY
VERIFY
VERIFY
VERIFY
VERIFY

115
16
117

CHECK FOR LOW 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 IT
CHECK FOR ''CELL OVERFLOW'' INTERRUPT

1100
T101
1102

T113
114

1120

121
1122
T123

SECTION LIST MODE

ENABLE A 512 WORD TRANSFER
SECTION LIST MODE
VERIFY *‘TIMEOUT'® FLOP SETS AND '‘CLR ALL'' CLEARS IT
VERIFY *‘TIMEOUT'® FLOP SETS AND '‘CLR TIMEOUT'' CLEARS IT
*‘TIMEOUT'®' INTERRUPT

INCREMENTING INTO EXTENDED ADDRESS BIT 16
INCREMENTING INTO EXTENDED ADDRESS BIT 17
'‘SET EVENT'' DATA GENERATES A 177777 DATA WORD
'‘SET TIME'' DATA GENERATES A 000000 DATA WORD
*'CLOCK ST1'* GENERATES A EVENT (177777) DATA WORD
*'CLOCK OVERFLOW'' GENERATES A TIME (000000) DATA WORD
"'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

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

CZNCCA NCV11
CZNCCA.PT

2846
2868
2890
2912
2934
2956
2978

DIAGNOSTIC
TABLE OF

1124
1125
1126
1127
1130
1131
1132

1133
T134

MACY11 27(654)

B8-AUG-78

CONTENTS

VERIFY
VERIFY
VERIFY
VERIFY
VERIFY
VERIFY

A
A
A
A
A
A
VERIFY A
VERIFY A

1
1
1
1
1
1
1
1

WORD MATRIX MODE
WORD MATRIX MODE
WORD MATRIX MODE
WORD MATRIX MODE
WORD MATRIX MODE
WORD MATRIX MODE
WORD MATRIX MODE
WORD MATRIX MODE

XFR
XFR
XFR
XFR
XFR
XFR
XFR
XFR

15:05
USING
USING
USING
USING
USING
USING
USING
USING

OFFSET
OFFSET
OFFSET
OFFSET
OFFSET
OFFSET
OFFSET
OFFSET

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

SEQ 0012
=
=
=
=
=
=
=
=

10
09
08
07
06
05
04

03
= 02

T135

VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE

1137
1140
T141
1142
T143

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

1136

T144
1145
T146
1147
T150
T151
T152

T153
1154

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

USING ZB ENABLE

VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER
VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER
VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL
VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL
VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL
DYNAMIC MATRIX MODE ADDRESS
DYNAMIC LIST MODE ADDRESS

(TESTER
(TESTER
(TESTER
(TESTER
(TESTER

DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28K
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

T155
1156

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY
VERIFY BIT 15 MATRIX ADDER INPUT

T161

DETERMINE

1157
1160

VERIFY HIGH BYTE OPERATION OF THE '‘TEST X'' ¢
VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER
IF DIFLIN IS

TO BE RUN

END OF PASS ROUTINE
ERROR ASCI] MESSAGES

TTY INPUT ROUTINE
READ AN OCTAL NUMBER FROM THE

(F)

TTY

TYPE ROUT INE

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

5121
5144

SAVE AND RESTORE RO-R5 ROUTINES
INTEGER MULTIPLY ROUTINE
INTEGER DIVIDE ROUTINE

:
X

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

TRAP DECODER
TRAP TABLE
A TO D FIELD SITE

AND ADJUSTMENT LOOP

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
SCOPE HANDLER ROUTINE

5018

ONLY)
ONLY)
ONLY)
ONLY)
ONLY)

CINCCA

NCVIT

MACY11 27(654)
LIST
NLIST

167400

000001

B8-AUG=78

PAGE 1

15:05

MTME
TMD _MC,CND
ABS_,AMA
.ENABL
:?W;MNOO
N=

SEQ 0013

JMCALL
.SCATCH,.SCMTAG,.STYPE,.SEOP,.EQUAT, HEADER, . SERROR, LSTYPOCT
.MCALL
.SPARM, . SPOWER,.SREAD,.$SAVE,.SSCOPE,.SETUP, .$SPACE, .$SWDOC, .$STYPE, .$TRA
.SWRHI,.SERRTYP,.STYPDS,.STYPBIN,SOF TSWR,.$CKSWR
JMCALL
.MCALL .SRDOCT,.$SIZE,.KT11, LSDIV,.SMULT, .$SAVE, .$582D, . $DB2D
LMCALL
.SACT11,.8APTHDR,.SAPTBLS,
.SAPTYPE
DIAGNOSTIC
CZNCCA NCV11
LTITLE
;*COPYRIGHT (C) 1978
:«DIGITAL EQUIPMENT CORP.

VNP W

=0 0NN
W 2

CINCCA.PI

DIAGNOSTIC

'HAYNARD MASS. 01754

'PROGRM BY RAYMOND SHOOP

-TH]S PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMA(
tPA(KAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,
.SB”L

;*INITIAL ADDRESS OF THE STACK POINTER #x+ 1100 #w=

001100

STACK=

000011
000012
000015
000200
177776

HT=

177774
177772
177579
177570

BASIC DEF INITIONS

.EQUIV
.EQUIV

1100
EMT,ERROR
lO!,_'SCOPE

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

;*MISCELLANEOUS DEF INITIONS
11

;;CODE FOR HORIZONTAL

PS=
.EQUIV

177776
PS,PSW

; sPROCESSOR STATUS WORD

PIRQ=

177772

LF=
CR=
CRLF=

12
15
200

TAB

;;CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN~-LINE FEED

STKLMT= 177774

;:STACK LIMIT REGISTER

DSWR=
DDISP=

: ;HARDWARE SWITCH REGISTER
; ;HARDWARE DISPLAY REGISTER

177570
177570

; ;PROGRAM INTERRUPT REQUEST REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

RO=

: ;GENERAL REGISTER

R2=
R3=

y ¥4
%3

; ;GENERAL REGISTER
: ;GENERAL REGISTER

R5=
R6=

x5
%6

R1=

R4=
R7=

SP=

PC=

%6
%7

; 2GENERAL REGISTER
; sGENERAL REGISTER

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

::STACK POINTER

; ;PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=

0
40

::PRIORITY LEVEL O
::PRIORITY LEVEL 1

——
—

CZNCCA NCVI
CZNCCA.PTN

DIAGNOSTIC

MACY11 27(654)

BASIC DEFINITIONS

000100

PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

B8-AUG-78
100
140
200
240
300
340

15:05

2
PAGE 2

::PRIORITY
PRIORITY
:sPRIORITY
::PRIORITY
;sPRIORITY
:sPRIORITY

SEQ 0014
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;%' 'SWITCH REGISTER'® SWITCH DEF INITIONS
Sw15=
100000
SWi4=
40000
Sw13=
20000
Sw12=
10000
SWi1=
4000
Sw10=
2000
Sw09=
1000
Sw08=
400
sw07=
200
Swoé=
100
SW05=
40
SWo4=
20

000001

100000
040000

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

swo3=
Sw02=
Swo1=
Sw00=

.EQUIV
.EQUIV
.EQUIV

10
4
2
1
SW09,Sw9
SWO08,Sw8
SWO7,Sw7

"EQUIV

SW00.SW0

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15=
BIT14=
BIT13=
BIT12=
BIT11=
BIT10=
BIT09=
BIT08=
BITO7=
BITO6=
BITO5=
BIT04=
BIT03=
BIT02=
BITO1=
BITO0=
.EQUIV
.EQUIV

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BIT09.BIT9
BIT08,BIT8

2
3

5
6
7

CINCCA NCVIT

MACY11 27(654)

N
= DO

D
D
D
D
)
D
d

177572
177574
177576
172516

PAGE 3

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
ERRVEC= 4
;;TIME OUT AND OTHER ERRORS
RESVEC= 10
;;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
Tl
TRTVEC= 14
: : TRACE TRAP
BPTVEC= 14
; ;BREAKPOINT TRAP (BPT)
I0TVEC= 20
;. INPUT/0UTPUT TRAP (IOT) **SCOPE**
PWRVEC= 24
; ;POWER FAIL
EMTVEC= 30
;;EMULATOR TRAP (EMT) **ERROR**
TRAPVEC=34
::"'TRAP'' TRAP
TKVEC= 60
;. TTY KEYBOARD VECTOR
TPVEC= 64
;:TTY PRINTER VECTOR
PIRQVE(C=240
: ;PROGRAM INTERRUPT REQUEST VECTOR

000004
000010
000014
000014
000014
00002C
000024 000030
000034
000060
000064
000240

000250

15:05

BITO7,BIT7
BIT06.BITé
BITO5,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2
BITO1,BIT1
BIT00,BITO

.EQuUIv
.EQUIV
.EQUIV
.EQUIV
.EQUIvV
.EQUIV
.EQUIV
.EQulv

il sl il sui s il i G

) e
e
—
—_—

o
=

123

B8-AUG-78

BASIC DEFINITIONS

mVo‘Wl‘WN—'O%

CZNCCA.PT1

DIAGNOSTIC

.SBTTL

MEMORY MANAGEMENT DEF INITIONS

;*KT11

VECTOR ADDRESS

MMVEC=

250

;*KT11

STATUS REGISTER ADDRESSES

SRO=
SRis
SRe2=
SR3=

177572
177574
177576
172516

) —d )
) —d —d
—
2
—_—

(o Yo o NV, ] vivvuoawvioa oo
NN —
=00 CONONWNES

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

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDR5=
UIPDRé=
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=

177620
177622
177624
177626
177630

UDPDRS= 177632

SEQ 0015

CZNCCA NCVI
CZINCCA.PT

163

164

165

MACY11 27(654)
DIAGNOSTIC
MEMORY MANAGEMENT DEF INITIONS
177634

177636

167

169
170
17
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

15:05

PAGE &

UDPDR6= 177634
UDPDR7= 177636

s*USER "'I"" PAGE ADDRESS RFGISTERS

166

168

8-AUG-78

177640
177642
177644
177646
177650
177652
177654
177656

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=

177640
177642
177644
177646

UIPAR4= 177650

UIPARS= 177652
UIPARS= 177654
UIPAR7= 177656

0
E

{

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

UDPARQ=
UDPAR1=
UDPARZ2=
UDPAR3=
UDPAR4=
UDPARS=
UDPARG=
UDPAR7=

177660
177662
177664
177666
177670
177672
177674
177676

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

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS5=
SIPDRé=
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=
SDPDR6=
SDPDR7=

172220
172222
172224
172226
172230
172232
172234
172236

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

SIPARQ=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=

172240
172242
172244
172246
172250

SEQ 0016

CINCCA NCVIT
CZNCCA.PT

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

B8-AUG-78

15:05

£ ¢
PAGE 5

SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256

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

SDPARQ=
SDPAR1=
SDPAR2=
SDPAR3=
SDPAR4=
SDPARS=
SDPARG=
SDPAR7=

172260
172262
172264
172266
172270
172272
172274
172276

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

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

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

KDPDRO=
KDPDR1=
KDPDR2=
KDPDR3=
KDPDR4=
KDPDR5=
KDPDR6=
KDPDR7=

172320
172322
172324
172326
172330
172332
172334
172336

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

KIPARQ=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPARG=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

;*KERNEL 'D'' PAGE ADDRESS REGISTERS
172360
172362
172364
172366

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=

172360
172362
172364
172366

SEQ 0017

CZNCCA NCV1T
CZNCCA.PT

DIAGNOSTIC

MEMORY MANAGEMENT DEF INITIONS

27
272
273
274
275

172370
172372

277

172760

276

278
279

MACY11 27(654)

172374
172376

140370
170420

8-AUG-78

15:05

y
&
PAGE 6

SEQ 0018

KDPAR4=
KDPARS=
KDPAR6=
KDPAR7=

ABASE=172760
AVECT1=140370
ACDW1=170420

sNCV11 BASE ADDRESS
;BR LEVEL 6 VECTOR TO 370
sNCV11 CLOCK ADDRESS

CZNCCA NCVIT
CINCCA.PI

DIAGNOSTIC

MACY11 27(654)

MEMORY MANAGEMENT DEF INITIONS

280
281
282
283
284
285

SBTTL

B8-AUG-78

15:05

6
2

PAGE 7

SEQ 0019

OPERATIONAL SW.TCH SETTINGS

i
"

15
14

HALT ON ERROR
LOOP ON TESI

11
10
9
8

INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>

o
g
¢
'

.SBTTL

TRAP CATCHER

- -

INHIBIT ERROR TYPEOUTS

.=0

000000

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

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
s *LOCATION 04C0NTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
0000920

000210

000137
000137
000137

002032
002012
002020

000100

000100
000104

000200

USE

emeseeee

000174
000176

SWITCH

‘R

DISPREG: .WORD
0
;;SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
;. SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JMP
Q#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM
JMP
RTRT
;RESTART ADDRESS
JMP
TESTER
;STARTING ADDRESS WHEN IN THE OPTION AREA
000002

.=100

104,200,2

;B EVENT SAFE GUARD

CZNCCA NCVIT
CZNCCA.PTY

DIAGNOSTIC
ACT11 HOOKS

MACY11 27(654)
.SBTTL

8-AUG-78

15:05

2
PAGE 8

SEQ 0020

ACT11 HOOKS

DIRERRRRRARRRRAARRAAR
AR AR
AR ARR AR RRAARARRRARARRRRRRRR AR AR AR

;HOOKS REQUIRED BY ACT11
000046
002052
.SBTTL

SSZZC=.

;SAVE PC

$ENDAD

2:1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP

.=52
WORD
0
.=$SVP(
.=1000
APT PARAMETER BLOCK

;:2)SET LOC.52 TO ZERO
;; RESTORE PC

'ttttttfitl'*.tQQtittitt"titt'ittQttittitt*tttttttttttttt*tittt

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

tttttttttt***ttttttt'ttttttttttttttttttttt*tttttttttttttttttttt

000024
000044

001000
000024
000200
001000
001000

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

s sSAVE CURRENT LOCATION
;sSET POWER FAIL TO POINT TO START OF PROGRAM
:2FOR APT START UP
;sPOINT TO APT INDIRECT ADDRESS PNTR.
;:POINT TO APT HEADER BLOCK
:sRESET LOCATION COUNTER

;;ttttttttttttttttttttttttttttttttttttttttt***ttttttttttttttt.itt

:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=-PDP11 DIAGNOSTIC
;INTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

$APTHD:

$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUNITM:

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD

O
;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
$MAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
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 MAILBOX-ETABLE (WORDS)

CZNCCA NCV1T
CZNCCA.PT

DIAGNOSTIC
COMMON TAGS

MACY11 27(654)
.SBTTL

8-AUG-78

15:05

PAGE 9

SEQ 0021

COMMON TAGS

::tii'tttitt.fitt'tt.itt""ttfit.t*it"fifltttt..fittit'..ttt.t.ifi".

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

;*USED IN THE PROGRAM.

88888 8
ARXRNBFrHrnoRRECS

$CMTAG:

R
S
R
Y
sy
N
S
B

$AUTOB:
$INTAG:

001155
001156
001157
000377

000012

; ;ADDRESS OF SWITCH REGISTER
;sADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

;:TTY KBD BUFFER

;:TTY PRINTER STATUS REG. ADDRESS

$QUES:
$CRLF:
$LF:

RA R AR

.SBTTL

;;AUTOMATIC MODE INDICATOR
;- INTERRUPT MODE INDICATOR

DDISP

$ESCAPE:
$BELL:

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

SWR:
DISPLAY:
$TKS:
$TKB:
$TPS:
$TPB:
:
$NULL
$FILLS:
$FILLC:
$TPFLG:
$TIMES:

;:START OF COMMON TAGS

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

OoO-=NO

—

.WORD

$TSTNM:
$ERFLG: .BYTE
.WORD
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
$ITEMB:
$ERMAX:
$ERRPC:
$GDADR:
$8DADR:
$GDDAT:
:
$BDDAT

001136
001140
001142
001144
001146
001150
001152
001154

001160
001162
001164
001170
001171
001172

.=1100
elelelelelolelelolellelslelelelolo
o)

001100

:2INSERT FILL CHARS. AFTER A "LINE FEED''
::"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)

;:MAX. NUMBER OF ITERATIONS
;:5SCAPE ON ERROR ADDRESS
<207><377><377> 2:CODE FOR BELL
/?/
2 sQUESTION MARK
<15>
;:CARRIAGE RETURN
<12>
;sLINE FEED

AR AR AR AR AR AR RN AR

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

APT MAILBOX-ETABLE

:;t.t...tt.tttt*ttiittttttt'!ttti.tttittittfittit'tititttttitttfiti

.EVEN

:
$MAIL
$MSGTY:

$FATAL:
$TESTN:
$PASS:
$DEVCT:

AMSGTY

AFATAL
ATESTN
APASS
ADEVCT

s ;APT MAILBOX

;:MESSAGE TYPE CODE

;:FATAL ERROR NUMBER
;;TEST NUMBER
; ;PASS COUNT
;;DEVICE COUNT

CZNCCA NCV1T
|CZNCCA.P11

DIAGNOSTIC

000000

$SUNIT:

000000

$MSGLG: .WORD
SETABLE:
$ENV:
.BYTE
$ENVM:
_.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

395
%96
3"
398
399

400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415

001206
001210
001212
01214
214
00121,
001216
001220
001222

000000
000
000
00LVLL
000000
000000

.WORD

$MSGAD: .WORD

15:05
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

sTM
5%

ok
;t

001224
001225

000
000

$MAMS1:
$MTYP1:

.BYTE
.BYTE

AMAMS1
AMTYP1

- %

ix
o %
'-t

001226

/21

001754

000000

$MADR1:

001230

00172,
w123

8
< 001246
42
001250
001252
001254
001256

v
000
000000
000
000
000000
000
000
000000
140370
172760
000000
170420

$MAMS?2:
$MTYP2:
$MADRZ2:
$MAMS3:
$MTYP3:
$MADR3:
$MAMSS:
$MTYP4:

$BASE:
$DEVM:
$CDW1:

$SETEND
LMEXIT

PAGE 10

SEQ 0022

2:1/70 UNIT NUMBER
: sMESSAGE ADDRESS
s sMESSAGE LENGTH
s ;APT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
: ;ENVIRONMENT MODE BITS
:;APT SWITCH REGISTER

:sUSER SWITCHES
;:CPU TYPE ,OPTIONS
BITS 15-11=CPU TYPE
11/704=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 ,BLK#1

MEM.TYPE BYTE

(HIGH BYTE)

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

AMADR1

;sHIGH ADDRESS.,BLK#1

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

AMAMS
2
AMTYP2
AMADR2

;:HIGH ADDRESS.M.S. BYTE
: sMEM.TYPE ,BLK#2
: sMEM.LAST ADDRESS.BLK#2
:;HIGH ADDRESS ,M.S.BYTE
2 sMEM.TYPE ,BLK#3
: sMEM.LAST ADDRESS,BLK#3
;:;HIGH ADDRESS.M.S.BYTE

$MADRS: .WORD
$VECT1: .WORD

$VECT2:

.WORD

422 00" ¢35
423 201236
424 , 001240
25 001241
426 001242
427. 001244

429
430
431
432
433

APT MAILBOX-ETABLE

B8-AUG-78

416
417
418

419
420

MACY11 27(654)

.WORD

.WORD
.WORD
.WORD

AMTYP3
AMADR3
AMTYP4
AMADRé

AVECT1

AVECT2
ABASE

ADEVM

ACDW1

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

: :MEM.
TYPE ,BLK#4

2 2MEM.LAST ADDRESS .,BLK#4
::INTERRUPT VECTOR#1,BUS PRIORITY#1
: s INTERRUPT VECTOR#2BUS PRIORITY#?2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
;;CONTROLLER DESCRIPTION WORD#1

CINCCA NCV1T
CZNCCA.PT

.SBTTL

434
435
436

15:05

PAGE 11

SEQ 0023

ERROR POINTER TABLE

;» THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

:*\NE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

437
438

;*LO"ATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

;*NO1%1:

439
440
[y
442
443

:*NOTlZ:

L4464
445
446

447
448
449

8-AUG-78

MACY1" 27(654)
DIAGNOSTIC
ERROR POINTER TABLE

001256

030220

031432

$ERRTB:

EM
DH
DT
DF

;;POINTS TO THE ERROR MESSAGE

;;POINTS TO THE DATA HEADER
;;POINTS TO THE DATA
;;POINTS TO THE DATA FORMAT

E.\1,DH2,DT2,DFO

:M8026

NCV11

032730

"EM.',DH2,DT2,DFO

:M8026

COMMAND-STATUS REGISTER ERROR

032500

032730

EM3 DH2.DT2.DFO

:M8026

SPECIAL FUNCTION REGISTER ERROR

032500

032730

EM4, 'H2,DT2,DFO

:M8026

WORD COUNT REGISTER ERROR

032500

032730

EM5,1 H2,DT2,DFO

:M8026

BUS ADDRESS REGISTER ERROR

032500

032730

EM6, H2,DT2,DFO

;M8026

OFFSET REGISTER ERROR

032500

032730

EM7 DH2,DT2,DFO

:M8026

DUAL REGISTER SELECTION ERROR

032500

032730

EV (0,DH2.DT2,DF0

:M8026-M8036

LOW 16 BIT Z COUNT ERROR

032500

032730

D
2M11,DH2,DT2,D7

:M8026-M8036

HIGH 16 BIT Z COUNT ERROR

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

;M8036

JOYSTICK DATA ERROR

032500

032730

EM16,DH2,DT2,DFO

;M8036

DATA INCREMENT ERROR

032500

03273

EM17,DH2,DT2,DFO

;M8036

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

07 2730

EM22,DH2,DT2,DFO

;M8026

LIST MODE TRANSFER BUS ADDRESS ERROR

032500

0 2730

EM23,DH2.DT2,DFO

;M8026

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 NCV1T
CINCCA.PT

488
489
+y0

491

492

493

007514
wN1516
001524
001526
001534

MACY11 27(654)
DZAGNOSTIC
¢RROR POINTER TABLE

033002

494
495
496
497

032425
033002
176510
176512
176514
176516

172600
172602
172603
172604
172620
172622
172624
172630

001726
01732
LM734
00.736

176416
176420
176422
176424
176426

8-AUG-78

15:05

L 2
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 INCREMENT DATA ERROR

032500

032730

EM31,DH2,DT2,DFO

;M8026

CELL OVERFLOW STATUS ERROR

032500

032730

EM32,DH2,DT2,DFO

:M8026

CELL CVERFLOW INTERRUPT ERROR

032524

032742

EM33,DH3,DT3,DFO

;M8026

MATRIX MODE ADDRESS MUX ERROR

032500

032730

EM34 ,DH2,DT2,DFO

;MB8026

‘‘TESTX'® FUNCTION ERROR

032557

032756

EM35,DH4,.DT4,DFO

;MB026

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

EM40,DH2,DT2,DFO

; JUMPER-MB026-M7952

032465

032774

EM41,DH1,DTS5,DFO

;M7952

CLOCK TIMEOUT

032465

032722

EM42,DH1,DT1,DFO

;M8217

INTERRUPT LEVEL ERROR

"EVENT'' OR "TIME'' MARK ERROR

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

DLICSR:
DLIBD:
DLOCSR:
DLODB:

176510
176512
176514
176516

s INPUT STATUS REG.
s INPUT DATA
;OUTPUT STATUS
;OUTPUT DATA

:VSVO1 ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)

VTCHAR:
VTYPOS:

172600
172602

VICXY:
VICSR:
VIMAP:

172604
172620
172622

:CHAR. STATUS

VIXPOS: 172603

VIPX:
VTINT:

;MAP STATUS

172624
172630

;TESTER ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)

DACSR:
DACO:
DAC1:
DAC2:
DAC3:

176416
176420
176422
176424
176426

;KNOWN GOOD D/A STATUS

NCVTT
CZNCCA.PT
CZNCCA

539
540

541
542
543
544
545
546
547

DIAGNOSTIC

MACY11 27(654)

ERROR POINTER TABLE

B8-AUG-78

15:05

PAGE 13

SEQ 0025

:KWV11 PROGRAM GENERATED ADDRESSES (THE OPER. ONLY HAS TO CHANGE '$(DW1°*)
001740
001742
001744

170420
170421
170422

KWCSR:
ACDWI
KWCSR1: ACDW1+1
KWPSR:
A(CDW1+?2

;KWV11 STATUS REGISTER
;KwWV11 STATUS REG. HIGH BYTE
;KWV11 PRESET REGISTER

sNCV11 PROGRAM GENERATER ADDRESSES (THE OPER. ONLY HAS TO CHANGE ‘$BASE')
(SR:

001746
001750
001752
001754
001756
001760
001762
001764
001766
001770

OFF :
WCR:
BAR:
SFR:
ADM:
JOY:
BAR1:
(SRHB:
SFRHB:

ABASE

ABASE +2

ABASE +4
ABASE +6
ABASE+10
ABASE +12
ABASE +14
ABASE+16
ABASE+1
ABASE+11

;NCV11 PROGRAM GENERATED VECTORS (THE OPER. ONLY HAS TO CHANGE LOW 9 BITS OF "SVECT1®)
001772
001774
001776
002000

140370
140372
140374
140376

VECTAOQ: AVECTI

VECTA1: AVECT1+2
VECTBO: AVECT1+4
VECTB1: AVECT1+6

;NCV11 PROGRAM GENERATED BR LEVEL (THE OPER. ONLY HAS TO CHANGE TOP 3 BITS OF "SVECT1*)
002002

0003200

BRLEV:

002004
002006
002010

000000
000001
000020

$STEMP:
O
CPUDLO: 1
CPUDLT: 20

040000
004000
000400
000010
000004
000002
000001
000000

300

;BR LEVEL 6

CLRWCO=BIT14
CLRALL=BIT11
ENDDMA=B]I
T8
TSTDMA=BIT3
TSTCON=BIT?2
TESTZ=BIT1
REDJOY=BITO

MORTST=0

;DEFINE

TO RESTORE

TEST CODE

NCVIT
CZNCCA.PT
CZNCCA

002012

MACY11 27(654)
ERROR POINTER TABLE
DIAGNOSTIC

005237

05C116

RTRT:

005237
005037

050110
050116

TESTER:

005037
005037

050116
050110

BEGIN:

000411

000404

.SBTTL

012706
005026
022706
001374

001100

012706

001100

012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037

034106
000340
035102

000403
012716
000002
012737
012737
012637
005037
132737
001403
012737

WFMODE

B8R

RTRTA

CLR

WFMODE

(LR

2
PAGE 14

AGAN
RTRTA

INC

CLR

AGAN

INITIALIZE

CLR

SEQ 0026
;SET RESTART FLAG

;SET FLAG INDICATING OPTION AREA MODE

;CLEAR FLAG INDIC. OPTION TEST AREA MODE

THE (OMMON TAGS

(R6) +

:;CLEAR MEMORY LOCATION

MOV

#STACK,SP

;;SETUP THE STACK POINTER

MOV

MOV
MOV
MOV
MOV
(LR
CLR
MOVB
MOV
MOV

#STRAP
,a# TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#3640, 3#TRAPVEC+2;LEVEL 7
#SPWRDN ,a#PWRVEC ;.;POWER FAILURE VECTOR
#340,3PWRVEC+2 ;:LEVEL 7
::SETUP END=OF =PROGRAM COUNTER
SENDCT ,SEOPCT
$TIMES
;s INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;;CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
#1,SERMAX
#. ,SLPADR
soINITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
;:SETUP THE ERROR LOOP ADDRESS

MOV
MOV

@#ERRVEC ,-(SP)
#64S ,FERRVEC

65%

cMP
BNE

001140

#SWR,R6 ; ;DONE?
.~6
;:LO00P BACK IF NO

;INITIALIZE A FEW VECYORS
MOV
#$SCOPE ,a#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#340, ilIOTVEC02 JsLEVEL 7
MOV
MOV
lSERROR,ilEHTVEC s sEMT VECTOR FOR ERROR ROUTINE
#3640 ,QNMEMTVEC+2 ;;LEVEL 7
MOV

112737

001012

INC
BR

::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#$CMTAG,R6
;:FIRST LOCATION TO BE CLEARED

012737
012737

013746
012737
012737
012737
022777

15:05

B-AUG-78

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "*=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.

177570
177777

176702

64%:

002250

000176
000174
000004

MOV
MOV
(MP
BNE

001140
001142

001202
000200

001215

001216

001140

S?Y

65%:

MOV

66%:

MOV

67%:

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

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

#65%, (SP)

;.SETUP FOR A HARDWARE SWICH REGISTER
;;AND A HARDWARE DISPLAY REGISTER
;s TRY TO REFERENCE HARDWARE SWR
..BRANCH IF NO TIMEOUT TRAP OCCURRED
JAND
THE HARDWARE SWR IS NOT = -1
::BRANCH IF NO TIMEOUT
..SET UP FOR TRAP RETURN

#SWREG, SWR

;;POINT TO SOF TWARE SWR

MOV

#D]1SPREG,DISPLAY

(SP)+ ,a#ERRVEC

;;RESTORE ERROR VECTOR

(LR
BITB
BEQ
MOV

$PASS
#APTSIZE ,SENVM
67%
#$SWREG, SWR

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

CINCCA

NCV11

CINCCA.PTT
633
634
635
636

637

638
639
640
641
642

643

644
645
646
647
648
649
650

651
652

653
654
655
656
657
658
657
660
661
662
663
664
665
666
667
668
669
670

671
672
673
674
675
676
677

678
679
680
681

DIAGNOSTIC

TYPE PROGRAM NAME

002312
002316

005227
001044

002326
002330

001440
104401

002334
002340
002342
002350
002352

005737
001012
123727
001406
023727

002320

002360
002362
002364
002366
002374

002374

MACY11 27(654)

022737

001005
104406
000403
112737

{
177777

030154

000042

002376

001214

000001

001140

000176

000001

001134

000415

002430

002436
002444
002450
002454
002456
002462
002466

012737
012700
013701
010120
062701
022700
001372

002474
002476
002502
002506
002512
002514
002516
002522
002526
002532
002534
002536
002542
002544
002552
002560
002566
002572

005220
013710
062720
013701
010102
000302
042702
010237
042701
010120
005721
022700
001373
013737
013737
013737
005237
062737

002470

013710

000103

003210
001746
001250

#SENDAD ,a#42

;:ACT=11?

CMPB

S$ENV. 41

;sARE WE RUNNING UNDER APT?

71%
#1,8AUTOB

;:SET AUTO-MODE INDICATOR

68%
<CRLF>#CINCCA

.SBTTL
MOvVB

PRIME THE NCV11 ADDRESSES FROM THE DEFAULT VALUES
#'C _RUNIT
;LOAD ''CONTROL'' SECTION BUS TRAP FLAG
#BUSTRP ,a#ERRVE(
;LOAD BUS TRAP RETURN ADDRESS
#CSR,RO
;GET ADDRESS POINTER
$BASE ,R1
;GET DEFAULT ADDRESS
R1,(RO)+
;LOAD AN VALUE
#2 ,R1
;BUMP THE VALUE
#CSRHB,RO
;TEST IF DONE
1%
:BR IF NOT
$B8ASE, (RO)
;LOAD ODD BYTE
(RO) +
sADDRESSES
$BASE, (RO)
#11,(RO) +
:
$VECT1,R1
;GET DEFAULT VECTOR
R1.R2
;COPY R1
R2
;EXCHANGE BYTES
#177437 ,R2
;STRIP OFF ALL BUT BR LEVEL BITS

001250

MOV
MOV
MOV
MOV
ADD
CMP
BNE

MOV

001250
000011
001244

177437

001254
001740
001740
001742
000002

CMP

BEQ
68%
::BRANCH IF YES
TYPE
,69%
:TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
aws?
;;ARE WE RUNNING UNDER XXDP/ACT?
BNE
70%
s ;BRANCH IF YES

BR
_ASCIZ

1%:

2%:

002002
001740
001742
001744
001744

SEQ 0027

;:698:

71%:

000004

002002
160000

PAGE 15

70%:

052474

000002
001766

BEQ
CMP
BNE
GTSWR
BR
mMovB

68%:

112737

15:05

.SBTTL TYPE PROGRAM NAME
;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
#-1
;;FIRST TIME?
BNE
68%
; sBRANCH IF NO

.SBTTL

000042

B8-AUG-78

INC
MOV
ADD
MOV
MoV
SWAB
BIC
MOV
BIC
MOV
TST
CMP
BNE
MoV
MOV
MoV
INC
ADD

70%
SWR ,#SWREG
71%

R2 ,BRLEV
#160000,R1
R1,(RO)+
(R1)+
#VECTB1+2,R0
2%
$CDW1 ,KWCSR
KWCSR ,KWCSR1
KWCSR,KWPSR
KWCSR1
#2 ,KWPSR

: sBRANCH IF YES
;;SOFTWARE SWITCH REG SELECTED?
: ;BRANCH IF NO
;:GET SOFT-SWR SETTINGS

;.GET OVER THE ASCIZ
NCV11 DIAGNOSTICAH<CRLF>

;SAVE FOR USE LATER
;CLEAR OFF BR LEVEL
sLOAD VECTOR
;BUMP THE VALUE
sTEST IF DONE

;GET CLOCK ADDRESS
sSET CLOCK HIGH BYTE ADDR.
sSET CLOCK PRESET ADDRESS

CZNCCA NCV11
CZNCCA.PT

8-AUG-78
DIAGNOSTIC IDENTIFICATION TYPEOUT
DIAGNOSTIC

005737
001017
105737

.SBTTL

ST
BNE

050116

001134
177777

003356
050110

TSTB

BEQ

050106
3%:

(%:
.SBTTL
RBEGO:
1%:

047101
052474
000040
000042
000101

15:05

MACY11 27(654)

052474
052475
052474

003276
050110

MOV
JMP
TST

BEQ
TYPE

PAGE 16

DIAGNOSTIC IDENTIFICATION TYPEOUT

AGAN

RBEGO

$AUTOB

#-1 ,RUNDIF
LOGIC

WFMODE

TYPE

RDLIN
MOV
BI(CB
MOVB

@(SP)+ ,RUNIT
#40 ,RUNIT

#'" ' RUNIT#+1

#'A _RUNIT

TFSITE
WFMODE

000102
042322
000104

BLAST
#'D,RUNIT
4%

050106
043712
000106

052474

177777
003356
050110

050106

0C01M

052474

047106
000114

052474

4%:

6%:

POTIME
#'L.RUNIT

RUNDIF
LOGIC
#'H,RUNIT

7%:

002032
000037

052474

10%:

000124

11%:

052474

#-1 ,RUNDIF
LOGIC

WFMODE

052474

002032
050110

RUNDIF
DIFLIN
#'F ,RUNIT

5%:

050106
003356
000110

;INDICATE TO RUN DIFLIN IN CHAIN MODE
sYES; RUN LOGIC AND DIFLIN TESTS

:TEST IF OPTION CHECKOUT MODE
;BR IF YES

LIST
;TELL OPERATOR ABOUT THE TEST
KEYBOARD COMMAND DECODER
:PRINT 'DOT"*
TYPE,
LIsST1

#'B,RUNIT

3%:

sTEST IF RESTART
:BR IF YES
sTEST IF ACT/APT
:BR IF NOT

sTELL OPERATOR ABOUT OPTION AREA TESTS

LISTO

2%:

SEQ 0028

6%
#'1 ,RUNIT
6%
7$

10$
BEGIN
#37 ,RUNIT
11%
BEGIN
WFMODE
12%
#'T RUNIT

12%

;READ THE RESPONSE
;GET THE CHARACTER
;ENSURE UPPER CASE
sFIX ASCII MESSAGE
;DETERMINE IF AN A
;BR IF NOT

JRUN SITE ADJUSTMENT LOOP
;TEST IF ON THE TESTER
:BR_IF NOT
;DETERMINE IF AN B
:BR IF NOT

:RUN THE BLASTER SECTION
:DETERMINE IF AN D
;BR IF NOT
;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
;TEST IF OPTION CHECKOUT MODE

;BR IF NOT
;DETERMIN IF AN I
;BR IF NOT
;RUN IN-HOUSE ADJUSTMENT LOOP
;DETERMINE IF AN L
;BR IF NOT
;INDICATE NO DIFLIN

;DETERMINE IF AN H
;BR IF NOT
;START OVER

:DETERMINE IF AN """’
;BR IF NOT

:START OVER

sTEST IF OPTION CHECKOUT MODE

:BR_IF NOT
;DETERMINE IF AN T
:BR IF NOT

MACY11 27(654)
KEYBOARD COMMAND DECODER

8-AUG-78

000137
005737
001406
122737

JMP
TST

000103

741
742

000137
122737

043004
000117

052474

13%:

744
745
746
747
748
749
750
751
752

000137
122737

003240
000123

052474

14%:

0006
122737

000115

052474

15%:

012737
000137

000377
043712

050106

CZNCCA NCV1T
CZINCCA.P11

736
737

738
739
740
743

DIAGNOSTIC

042050
050110

12%:

052474

15:05

D 3
PAGE 17

SEQ 0029

BTALK

;KEYBOARD LOOP WITH BLASTER

13$

;BR _IF NOT
;DETERMINE IF AN C
:BR IF NOT

WFMODE
#'C ,RUNIT

13%

PBLAST
#'0,RUNIT
14%
XTTY

#'S,RUNIT
158

RBEGO
#'M,_RUNIT
FATENG

#377 ,RUNDIF
DIFLIN

;TEST IF OPTION CHECKOUT MODE

;RUN M8036 PROM BLASTING CODE

;DETERMINE IF AN O
;BR IF NOT
;CHANGE THE TTY ADDRESS
;DETERMINE IF AN S
;BR IF NOT
sGET SWITCH REGISTER VALUE
sRESTART
;DETERMINE IF AN M
;BR IF NOT
sINDICATE DIFLIN WITH EXPAND REPORT
JRUN DIF LIN

NCV1T
CZNCCA.PT
CZNCCA

MACY11 27(654)
DIAGNOSTIC
KEYBOARD COMMAND DECODER

B8-AUG-78

15:05

E 3
PAGE 18

SEQ 0030

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

104401

FATFNG:

001170
000616

TYPE
$QUES

RBEGO

;TYPE QUESTION MARK

;RETURN TO HERE UPON UNEXPECTED BUS TRAP

052424

BUSTRP: TYPE,

FATALO

;JREPORT FATAL TRAP TO THE OPERATOR

005777

175714

1%:

aSWR

JTEST IF HALT ON ERROR

000137

052514
002012

2%:

RUNITA
RTRT

JRESTART

052604

XTTY:

104401
011646
104402

100001
000000
104401

104401
104412

?3%0(

001144

104401
104401

005037

051250
041374
040410

013637
142737
122737

003350
000040
000131

WARNO

(SP)+,R0

;TELL THE OPERATOR THE RULES
JLISTEN TO THE OPERATOR
;READ THEIR INPUT

TST

(RO)

;ADDRESS THE DEVICE AND CHECK BUS TRAP

FATFNG

;BR IF JUST "'CR"’

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

001154

MOV

#$TKS ,R1

CMP

R1,4#8TKS+10

MOV
TST

BNE
JMP

002042

000002
037354

;BR IF SET
;FATAL BUS TRAP DETECTED

TYPE,
RDOCT
MOV

BEQ

012701
010021
005720
020127
001373
000137

sGET TRAP ADDRESS

;ROUTINE TO INPUT NEW TTY ADDRESS FROM THE OPERATOR

012600
001754
005710

104411

TST

BPL
HALT
TYPE,
JMP

(SP) ,-(SP)

;GET POINTER

RO, (R1)+
(RO) +

;LOAD THE VALUE
;BUMP VALUE

1%
RTRTA

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

sTEST IF DONE ALL ADDRESSES

;OPERATOR CHOSE THE FIELD ADJUSTMENT LOOP

TFSITE:

PRIM6

;TELL OPER. ABOUT A017

CLR

INOUTZ

;DEFAULT TO USER SUPPLIED Z PULSES

RDLIN
MOV

003350
003350
040410

TYPE,

TYPE.

1%:

10%:

BICB
CMPB
BNE
MOV
JMP

ADNOKT: O
NLSIT1: O

FIELDI

2(SP)+,10%
#40,10%

#'Y,108
1%
#2,INOUTZ
FSITE

;ASK THE OPERATOR FOR INPUT Z MODE
;READ OPER.
;GET CHAR

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.
sNON-ZERO INDICATES LSI-11

OR XXDP
PROCESSOR

CINCCA

NCV11

CZNCCA.PT
798

799

003356

DIAGNOSTIC

MACY11 27(654)

KEYBOARD COMMAND DECODER
000005

800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821

003360
003364
003366
003372
003374
003400
003404
003410
003416
003422
003424
003432
003440
003446
003452
003456
003460
003466
003474
003502
003510
003516

005737
001124
005737
001402
104401
005037
004737
162737
005737
001403
162737
013737
012737
004737
005737
100025
012737
012737
012737
012737
012737
012737

001202

823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843

003532
003536
003540
003544
003550
003552
003554
003556
003560
003562
003564
003566
003570
003574
003602
003610
003614
003620
003626
003630
003634

105737
001016
104401
013700
006200
006200
006200
006200
006200
005200
010046
104405
104401
013737
012737
005037
005037
013737
000403
005237
000002

001134

LOGIC:

050110

052332
036120
036062
001000
000042

5%:
036400

006200
036400
000200
036062
036120

036400
003352
036120

000200
077406
000400
077406
077406
007600

172342
172302
172344
172304
172306
172356

822 003524 012737 077406 172316

1%:

2%:

052545
036402

052565
000004
003630
003354
177776
002004

003354

002004
000004

4%:

000004

3%:

B8-AUG-78

RESET

15:05

PAGE 19

SEQ 0031

TST
BNE
TST
BEQ
TYPE,
CLR
JSR
Sus
TST
BEQ
SuB
MOV
MOV
JSR
TST
BPL
MOV
MOV
MoV
MOV
MOV
MoV

$PASS
sTEST IF FIRST PASS
TST1
;:BR _IF NOT
WFMODE
sCHECK IF ON TESTER
5%
:BR IF NOT
PRIM4
;TELL OPERATOR CABLE MUST BE CONNECTED
$KT11
s INDICATE NO KT11
PC,$SIZE
:SIZE BASIC MEMORY SIZE
#1000,$LSTAD
sPROTECT ABSLDR
ansl
sTEST IF XXDP CHAIN MODE ?
1%
:BR IF NOT CHAIN MODE
#3200. ,8$LSTAD
;LEAVE ROOM FOR XXDP MONITOR
SLSTAD ,ADNOKT
;SAVE BASIC MEMORY STACE
#BIT7,8KT11
SWITH MM,
PC,$SIZE
;DETERMINE THE AMOUNT OF MEMORY
$KT11
sTEST IF KT11 IS HERE
2%
;BR IF NOT
#200,a#KIPART
;
#77606,a#KIPDR1
#400,a#K1PAR2
#77406,a#KIPDR2
#77406,a#KIPDR3 ;4K, UP R/W FOR 60000
#7600, 34K IPAR7 :1/0 PAGE MAP

TSTB
BNE
TYPE,
MoV
ASR
ASR
ASR
ASR
ASR
INC
MoV
TYPDS
TYPE,
MOV
Mov
CLR
CLR
MoV
BR
INC
RTI

$AUTOB
43
MSGMEM
$LSTBK ,RO
RO
RO
RO
RO
RO
RO
RO,-(SP)

sTEST IF AUTO MODE
::BR IF AUTO MODE
;TELL OPERATOR THE AMOUNT OF MEMORY
;GET LAST GOOD BANK

MSGK
Q#ERRVEC ,$TEMP
#3% ,a#ERRVEC
NLSITT
PSW

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

Mov

#77406, a#KIPDR?7 14K, UP, R/W FOR 1/0 PAGE ACCESS

$TEMP ,a#ERRVEC
TST1
NLSIT

; CONVERT
;TYPE OUT DEC. VALUE

RESTORE LOC & VALUE
;:BR IF TEST
;SET AN LSI-11 FLAG
:RETURN

CZNCCA NCVIT
CZINCCA.P1T

DIAGNOSTIC
n
VERIFY

MACY11 27(654)

15:05

B8-AUG-78

THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND
L

J*TEST 1
IR

000004
012737
013737
012737
005777
005777
005777
005777
005777
005777
005777
012737
005777
005777

012737
013737
000423
022626

000100
000004
003752

176060
176056
176054
176052
176050
176046
176046

001160
004014
000004

TST1:

SCOPE

MOV
MOV
MOV

#100,8$TIMES
Q#ERRVEC,10%
#1% ,a#ERRVEC

TST

a0FF

TST

@BAR

TST

151

000001
004014

004016
000004

1
MOV

2%:
000001
004014

004016
000004

004014
030076

000004

bbbl

aCSR

aWCR

aSFR

@ADM

aBAR1

#2% ,a#ERRVEC

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

JNCV11
3

;ADDRESSES

;LOAD NEW RETURN

TST
aKWCSR
sTEST CLOCK
TST
aKWPSR
;ADDRESSES
:TEMP FIX THE DIAG TO NOT USE CLOCK JUMPERS

1%:

104001

VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND

TST

000004

SEQ 0032

L LR T

TST

003760

176010
176010

PAGE 20

MOV
MOV
BR

#1,DEADKW
108 ,2#ERRVEC
TST2

gSROR

CMP
ERROR
MOV

(SP)+,(SP)+
41
#1,DEADKW

:CLEAN THE STACK
:BUS TRAP WHEN REFERENCING THE NCV11 CLOCK
;INDICATE NCV11 CLOCK IS NOT THERE

10% ,a#ERRVEC

;RESTORE BUS TRAP VECTOR

CMP

ggv

3%:

MOV

108 :

JMP

DEADKW: 0

(SP)+,(SP)+

}g¥éa#ERRVEC

$EOP

;INDICATE NCV11 CLOCK IS NOT THERE;TEMP. FIX UNTIL ECO M
;RESTORE THE BUS TRAP VECTOR
;:BR AND TEST THE NCV11
:CLEAN THE STALK

:BUS TRAP WHEN REFERENCING THE NCV11

JRESTORE LOC 4

JEXIT

:NON=ZERO SAYS NO NCV11 CLOCK

CZNCCA

NCVIT

CZNCCA.PT

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

877
878

2222222223233 2333233233332 2333333 3232233233332 22222022233 2dsddddd)

2222223222323 3333333333323 33 3333323323333 222232232220ttt

S*TEST 2
000004
012737
012737
012737

013777
017737
013737
052737
023737
001401
104002

006237
022737
001351

000100
004044
004000

001160
001110
002004

002004

175674
001126
001124
001124
001126

175670

000200
001124

TST12:

FLOAT A4 1 ACROSS 10 BITS OF THE COMMAND/STATUS REG.

SCOPE
MOV
MOV
MOV

1%:

#100,STIMES

#1% ,SLPERR

#BIT11,$TEMP

#B1T7,8GDDAT

:FUDGE THE 'READY'' BIT

$GDDAT ,$BDDAT
2%

002004

ASR
CMP
BNE

;LOAD INITIAL REG. VALUE
:LOAD CSR REG.

oCSR,$BDDAT
$TEMP,$GDDAT

2%:

;;D0 100 ITERATIONS

;LOAD LOOP ADDRESS

$TEMP,a(SR

002004
000001

SEQ 0033

$TEMP
#1,8TEMP
1%

;READ CSR
;LOAD EXPECTED

:COMPARE THE VALUES
;:BR iF SAME

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

2222222222223 3 3333332323323 3 2223333332322

T*TEST 3

ittt sds

VERIFY THAT "'INIT'® CLEARS THE CSR REGISTER

::tttttttti'tt.tttttttt*ttt"t.fitttfitttfittit..tttttt.tfifitttittt't

000004
012737
012777

012737
017737
023737
001401

000010
007776

001160

000200
175572
001124

001124
001126
001126

TST3:

175606

SCOPE
MOV
MOV
RESET
MOV
MOV
CMP

BEQ
ERROR

104002

#10,8TIMES
#7776,3CSR

::D0O 10 ITERATIONS
;LOAD CSR REG.

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

;LOAD EXPECTED VALUE
;READ CSR REG.
:COMPARE THE VALUES
;:BR IF EQUAL

TST4

:INITILIZE THE REGISTER

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

:;tttttt.tttt'it.ttttttttttttttt.tttttititttfit.tifiittttii*ttttttt

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

;*TEST 4

::tttttttttitttttttttttittttittitfittittttfitt'ittttttti.ttitittttt

0C#004
012737
012777
012777
012737
017737

000010
007776
004000
000200
175520
023737 1001124
001401
104002

001160
175540
175542

001124
001126
001126

TST4:

SCOPE

MOV
MOV
MOV
MOV
MOV
CMP

BEQ
ERROR

#10,STIMES

»7776.,3CSR

#CLRALL ,@SFR

#BIT7.S$GDDAT

aCSR, $BDDAT
$GDDAT , SBDDAT
TSTS

::D0 10 ITERATIONS

:LOAD CSR REG.

*GENERATE ''CLR ALL L'

*LOAD EXPECTED VALUE
*READ THE CSR REG.
*COMPARE VALUES

::BR iF SAME

:"'CLR ALL L'' FAILED TO CLEAR CSR REG.

CZNCCA NCVIT
#CZNCCA.P11

MACY11 27(654)
8-AUG-78
DIAGNOST IC
15
VERIFY LOW BYTE OPERATION OF THE

15:05

I 3
PAGE 22

SEQ 0034

'‘'CSR'' REGISTER

::tttfi'tttttttttttttttttttttttttttttfitttfitt.ttttfltttt'ttttt'ttltfi

;*TEST 5

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

;:tttttttttt't'ttttttttt'tt'tttttttttQtttttilittt*tt!ltittttttttt

001160

1s15:

MOV
MOV
CLRB
MOV
CMP
BEQ

175466

001124

001126
001126
003636
000236
175434
175410
001124

175426
001124

SCOPE

MOV

1%:

ERROR

001126

#3636,aCSR
#3600, $GDDAT aCSR
aCSR,$BDDAT
$GDDAT , $BDDAT
1%

MOV
MOV

#3636,aCSR
#236,3GDDAT

BEQ
ERROR

T1ST6
3

CLRB
MOV
CMP

001126

#100,8$TIMES

aCSRHB
aCSR,$BDDAT
$GDDAT ,$BDDAT

;:D0 100 ITERATIONS

:LOAD CSR REGISTER
;LOAD EXPECTED VALUE
;CLEAR LOW BYTE
:READ STATUS REG.
;COMPARE VALUES
;:BR IF SAME

:CLEARING LOW BYTE OF THE CSR CHANGED THE HIGH B
:LOAD CSR REGISTER
;LOAD EXPECTED VALUE

;CLEAR HIGH BYTE OF THE CSR
;READ STATUS
;COMPARE VALUES

;:BR IS SAME
:CLEARING HIGH BYTE OF CSR CHANGED THE LOW BYTE

::tttttttttttttttttttttttttttfittQt“ttttfi'ttttti*t'tttttttttttttt

FLOAT A 1 ACROSS 4 wiITS OF THE SPECIAL FUNCTION REGISTER

;*TEST 6

::tttttt'tttttttfi.ttitttttt'ttt.tttQfitttttttttttttt*ttttttttttttt

000004
012737
012737

013777
017737
013737
023737

004370
000020

001110
002004

002004

175360
001126
001124
001126

175354

002004

004436

TST6:

SCOPE

MOV

#18 ,SLPERR

;LOAD LOOP ADDRESS

MOV
MOV

$TEMP,aSFR
@SFR,$BDDAT

:LOAD SFR REG.
;READ SFR

BEQ

MOV

1%:

MOV
CMP

2%:

ERROR
ASR
CMP
BNE

#BIT4L ,STEMP

S$TEMP,SGDDAT
$GDDAT , $BDDAT
3
S$TEMP
#1,8TEMP
1%

;LOAD INITIAL REG. VALUE

;LOAD EXPECTED
:COMPARE THE VALUES

;:BR IF SAME

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

;;ttttttttttttfitttttttttt"ttttttttttttttt!ttttttttttttttttttttit

J*TEST 7

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

:;tttttitttttlttttttttttt"ttttttfittt!ti'ttiitt.ttt!tttttfit'tttti

004440
004442
004450
004456

004470
004476

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
MOvY
CMP
BEQ
ERROR

#10,8TIMES
#14 ,aSFR
#14 ,$GDDAT
@SFRHB
@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.
;READ THE REGISTER
:COMPARE THE VALUES
;:BR IF SAME
:CLEARING HIGH BYTE OF CSR REG. CHANGED THE LOW

CINCCA

NCV1T

CZNCCA.PTT

MACY11 27(654)
8-AUG-78 15:05 PAGE 23
DIAGNOSTIC
THAT
“‘INIT'"
CLEARS
THE SFR REGISTER
FY
710
VERI

972

SEQ 0035

:'.tttlttt.'fi'it..itti"'itttttt'ttfi'ti"'.ttt.tittt'fittttttt'tti

S*TEST 10

973
974
975
976
977

VERIFY THAT "INIT'' CLEARS THE SFR REGISTER

':ttt'ttitttttttttittit'ttfittttttitttt.ttttttiitfi'tt'.ttttttt.*tt

000004
012737
012777
000005
005037
017737
001401

000010
000016
001124

175216

7ST10:

175230

#10,8TIMES
#16,aSFR

001126

$GDDAT
@SFR,$BDDAT

001160

TST11

104003

;:D0 10 ITERATIONS
:LOAD SFR REG.

JINITILIZE THE REGISTER
:LOAD EXPECTED

;READ SFR REG.
;:BR IF EQUAL

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

2222222232233 233 3333333233323 2233 3323333333332 3 332232233220ttt
ddd)

TRTEST 11

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

':ttfittt*tttfittfitittfittfit't.tit*fiQttttttiittt.tfit'fittti'i'ttt.ttfi

004546

000004
012737
012777

052777
005037
017737
001401
104003

000010
000016
004000
001124
175154

001160
175172
175164

001126

TST11:

SCOPE
MOV
MOV
BIS
CLR
MOV
BEQ
ERROR

#10,$TIMES
#16,aSFR

#CLRALL ,@SFR
$GDDAT
@SFR,$BDDAT
TST12

;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.

CZNCCA NCV1T
CZNCCA.PT

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

SEQ 0036

':tttt'tt.'itt't.fitttt*tt'tttt'fittttfiittfi.Qtttttttttt"tttttt'ttt

S*TEST 12

FLOAT /4 1 ACROSS THE WORD COUNT REGISTER

g
NOOWVSWN=O

23333333

oleleolelalelele]

R
——

1008

012777
013777
017737
023737
001401

004000
001124
175076
001124

006337
001357

001124

— b b
=N
O8O

g —

— o —d b
NNVO
=
oSS

000100
000001
004634

- -\ AN

000004
012737
012737
012737

OONN
08—'—'
800
OO

::tttttttttttt*tt*tt*tt'iit.tt'tttt!Qtfitfit.tfitttt.ifit*tttttttttit

TST12:

1%:

104004

2%:
e

SCOPE

MOV
MOV
MOV

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

MOV
MOV
MOV
CMP
BEQ
ERROR

#CLRALL ,aSFR

;RESET THE DEVICE

aWCR,$BDDAT
$GDDAT ,$BDDAT
2%
4

;READ WORD COUNT
;COMPARE VALUES
::BR IF SAME
;:WORD COUNT REG.

ASL

$GDDAT
1%

BNE

2222222323322

T*TEST 13

$GDDAT ,aWCR

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

:LOAD WORD COUNT "A"’

IN ERROR

;CHANGE THE DATA
;BR IF MORE DATA TO LOAD

3233333333233 3 2332222323223 33232232t isddsdddds

FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER

';ttttttititt*ttttittitttttt.ttittt.ttttttti'tttt*t.tttttittfitttt

000004
012737
012737
012737

000100
000001
004722

001160
001124
001110

012777
013777
017737
023737
001401

004000
001124
175012
001124

175026
175016

006337
001357

001124

TST13:

SCOPE
MOV
MOV
MOV

1%:

MOV
MOV
MOV
CMP
BEQ
ERROR

#CLRALL ,a@SFR

;RESET THE DEVICE

aBAR, $BDDAT
$GDDAT ,$BDDAT
2%
5

;READ BUS ADDRESS
;COMPARE VALUES
::BR IF SAME
;BUS ADDRESS REG. IN ERROR

ASL

$GDDAT
1%

001126
001126

104005

2%:

BNE

$GDDAT ,aBAR

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

:LOAD BUS ADDRESS 'A'’

;CHANGE THE DATA
:BR IF MORE DATA TO LOAD

2232223222332 33 3333333333233 3332332333233 232233

S*TEST 14
e

000004
012737
012737
012737

#100,8TIMES
#81T0,$GDDAT
#1%,$LPERR

000100
000001
005010

001160
001124
001110

012777
013777
017737
023737
001401

004000
001124

174740
174724
001126
001126

006337
001357

001124

174720
001124

104006

]

2222222232222 3 3332332222333
ittt ittt

TST14:

1%:

232ttt dstl

FLOAT A 1 ACROSS THE OFFSET REGISTER

SCOPE

MOV
MOV
MOV

#100,$TIMES
#BITO,$GDDAT
#18,SLPERR

#CLRALL ,@SFR

$GDDAT ,a0F F

a0FF ,$BDDAT
$GDDAT , $BDDAT
2%
6

$GDDAT
1%

;:D0 100 ITERATIONS
;LOAD EXPECTED VALUE

;LOAD LOOP ADDRESS ON ERROR
sJRESET THE DEVICE

;LOAD OFFSET "A"'

sREAD OFFSET
; COMPARE VALUES
::BR IF SAME
;OFFSET REG. IN ERROR

;CHANGE THE DATA
;BR IF MORE DATA TO LOAD

CZNCCA NCVIT
CZNCCA.PT

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

1047

1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076

a1 3 2333333332222

TRTEST 15

SEQ 0037

2222203022333 2222223223222
22d20dddddd

VERIFY NO DUAL REGISTER SELECTION

::Qttttttttfi'tttttttt.l'titi'tQ..fitttQtttttit.'.tlttt'ttt'ttt'ttt

005052
005054

TST15:

000010

001160

004000
011111
022222

033333
000036
007636

174666
174652
174646
174642
174636
174620

012737
017737
023737
001401

011
174610
001124

001124
001126
001126

012737
017737
023737
001401

022222
174564
001124

001124
001126
001126

1%:

012737
017737
023737

033333

001124
001126
001126

2%:

005062

012777

104007

1077

1078
1079
1080
1081
1082
1083
1084
1085

L 3
PAGE 25

012777

174540

001124

SCOPE
MOV

#10,STIMES

MOV
MOV

#CLRALL ,aSFR
#11111,90FF

MOV

#7636,aCSR

;LOAD DIFFERENT NUMBERS INTO THE
MOV
MOV
MOV

#22222 ,aWCR
#33333 ,aBAR
#36,aSFR

::D0 10 ITERATIONS

WCR, BAR AND OFF REGISTERS
;CLEAR THE DEVICE

;LOAD
;LOAD
;LOAD
;LOAD

OFFSET REGISTER
W.C. REGISTER
B.A. REGISTER
SPECIAL FUNCTION REGISTER

;LOAD COMMAND/STATUS REGISTER

;NOW READ EACH REGISTER AND CHECK THE VALUE

B
33:

000036
174514
001124

001124
001126
001126

007636
174456

4%:

001124

001124
001126
001126

004000

174444

5%:

MOV
MOV
CMP
BEQ
ERROR
MOV
MOV
CMP
BEQ
ERROR

#11111,8GDDAT
a0FF ,$BDDAT
$GDDAT ,$BDDAT
1%
7
#22222 ,$GDDAT
aWCR,$BDDAT
$GDDAT ,$BDDAT
2%
7

MOV
CMP

aBAR, $BDDAT
$GDDAT , $BDDAT

MOV

#33333,8GDDAT

;LOAD EXPECTED VALUE
:READ A OFFSET REG.
; COMPARE
::BR IF SAME
:DUAL ADDRESS ERROR
;LOAD EXPECTED VALUE
JREAD W.C. REG.
; COMPARE
;:BR IF SAME
;DUAL ADDRESS ERROR

;LOAD EXPECTED VLAUE
;READ B.A. REG.
: COMPARE

BEQ
ERROR
MOV

3%
7
#36,8GDDAT

;:BR IF SAME
;DUAL ADDRESS ERROR
;LOAD EXPECTED VALUE

ERROR
MOV
MOV
CMP
BEQ
ERROR
MOV

7
#7636,8GDDAT
aCSR,$BDDAT
$GDDAT ,$BDDAT
5%
7
#CLRALL ,@SFR

;DUAL ADDRESS ERROR
;LOAD EXPECTED VALUE
:READ COMMAND/STATUS REGISTER
: COMPARE
;:BR IF SAME
;DUAL ADDRESS ERROR
:CLEAR THE DEVICE

MOV
CMP
BEQ

@SFR,$BDDAT
$GDDAT ,$BDDAT
4%

JREAD SPECIAL FUNCTION REG
; COMPARE
;:BR IF SAME

CZINCCA

NCVIT

CZNCCA.P11

DIAGNOSTIC

T16

MACY11 27(654)

SEQ 0038

. R

1088

::tttttttQtt'ttttttttttttttttttttt'ttttt'ttfittttt!t.!ttttttttttt'

22 8222332333333 3 3333333333233 33323333332332333332333333333333332333]

S*TEST 16
005312

000004

1091

005322

005037

}83:73

005360

104006

:;itttttt.tttttttfitttttttttttttttttttttttt.lttttttitt'tttttttt."
S*TEST 17
TEST THE "'ACTIVE'' FLOP CAN SET AND CLEAR

000004

§717:

! 1099
1100

005326
005334
005342
005350
005356

001124

012777 004000 174422
012777 000003 174406
012777 004000 174406
017737 174374 001126
001401

1101

005362

1104

005372

1103 005364

012777 004000

1105
1106
1107

000240
000240
000240

005400
005402
005404

052777

000010

1108 005406 052777 000022

174364

174332

005414
005422
005430
005436

012737 000022 001124
052777 000001 174316
017737 174312 001126
023737 001124 001126

1115

005446

052777

1114 005444 001404
1117
1118

005454

104001

005456

052777

005506

001401

000400

1123

1124

1125

1126
1127
1128
1129
1130
1131
1132

::D0' 10 ITERATIONS

MOV
MOV
MOV
MOV
BEQ

#CLRALL ,@SFR
#3,30FF
#CLRALL ,aSFR
Q0FF , SBODAT
TST17

*CLEAR THE DEVICE
*LOAD EXTENDED OFFSET REGISTER
*CLEAR THE EXTENDED OFFSET REG.'S
*READ EXTENDED OFFSET REG.
::BR IF CLEARED

ERROR

000400

174272

005510

104001

005512 012737 000200
005520 052777 000001
005526 052777 004000
005534 017737 174206
005542 023737 001124
005550
005552

001401
104001

SCOPE

MOV
BIS

NOP
NOP
NOP

$GDDAT

:CLEAR EXPECTED VALUE

;CLEAR ALL FAILED TO CLEAR EXTENDED OFFSET REGIS

#CLRALL ,@SFR

:CLEAR THE DEVICE

#TSTDMA.@SFR

:SET THE '‘'TEST DMA"' TO PREVNT DATA TRANSFERS

BIS

#B1T4'BIT1,aCSR

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

MOV
BIS
MOV
cMP

#B1T4'BIT1,$GDDAT
#81T0.aCSR
aCSR, $BDDAT
$GDDAT , SBDDAT

:LOAD EXPECTED VALUE
“SET "ACTIVE"
TO A 1
*READ STATUS
:COMPARE VALUES

BIS

#ENDDMA, @SFR

;STOP DMA IF POSSIBLE

:NOW SET THE "ACTIVE'® FLOP AND VERIFY "'INTERFACE IDLE'' GOES LOW

BEQ

174302

1119 005464 012737 000222 001124
1120 005472 017737 174250 001126
1121 005500 023737 001124 001126
1122

#10,$TIMES

CLR

174356

1110
1111
1112
1113
1116

SCOPE

MOV

222323332333 3333 2333333333333 3333233333333333333333333333333332333]

1102

1109

7ST16:

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

1089

1092
1093
1094
1095
1096

3
PAGE 26

10“

1090 005314 012737 000010 001160

15:05

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

1087

B8-AUG-78

ERROR

::BR IF EXPECTED

STACTIVE'* FLOP FAILED TO SET

:POKE THE 'END DMA'' SIGNAL AND VERIFY "ACTIVE“ CLEARS
1%:

BIS

#ENDDMA, aSFR

BEQ

MOV
MOV
cMP
ERROR

"END DMA'* SIGNAL

#B1T7'BIT4'BIT1,$GDDAT
aCSR, $BDDAT
$GDDAT , SBDDAT

ser “'INTERFACE IDLE'' INTO EXPECTED
*READ STATUS
* COMPARE

S"END DMA'* AGAIN FAILED TO CLEAR

;:BR IF SAME

;POKE 'ENABLE DMA'* AND THEN ISSUE ‘'CLR ALL" SIGNAL TO

001124
174220
174222
001126
001126

;

2%:

ENSURE THE 'ACTIVE'®

MOV
BIS
BIS
MOV
CMP

BEQ
ERROR

#B1T7,$GDDAT
#B1T0.aCSR
#CLRALL ,@SFR
aCSR, $SBDDAT
$GDDAT , SBDDAT
1ST20
1

FLOP CLEARS

::BR IF

:LOAD EXPECTED
*POKE "ENABLE DMA''
*GENERATE ''CLR ALL''
*READ STATUS
* COMPARE

;

"‘ACTIVE''

SAME
,
S'CLR ALL'' FAILED TO CLEAR “‘ACTIVE'® FLOPS

FLOP

CINCCA

NCVIT

CINCCA.P11

DIAGNOSTIC

120

MACY11 27(654)

15:05

B-AUG-78

_PAGE 27

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

1133

; .'tt.t...'ttt.ttfittttt."t'ttt.Qtflt'.tt'lt.t....ttttfittttttt.t.t.

1 1 35

. .'ttttttttQQttt.Q.tttt"'ttt.t.tttttt.tt.t.ttttttflt..t.t'ttttttt.

1134

S*TEST 20

1136
1137
1138
1139
1140
1141

005554
005556
005564
005572
005600
005606

000004
012737
012777
012777
012777
012777

000100
004000
000010
000000
000000

001160
174164
174156
174144
174140

1143
1144
1145

005622
005630
005636

052777
052777
042777

000001
000002
000002

174116
174120
174112

75120:

1142 005614 012777 000022 174124
1146
1147
1148

1149

1150
1151
1152
1153
1154
1155

1156

1157

1158

1159

005644
005652
005660

005662

012737
017737
001002

000420
017737
001401
104011
012737
017737

005722

001401

005724

001124
001126

032737

174060

001126

1%:

000020
174034

001124
001126

2$%:

040000

001126

104012

005726

000004

001160
174012

1166

005752

012777

000000

173772

005744

012777

000010

1167 005760 012777 000376
012777
052777
052777

000022
000001
000002

1172
1173
1174
1175
1176
1177
1178

006016
006024
006032
006036
006040
006042
006044

012737
017737
105737
001002
104010
000423
012737

000400
173724
001127

001124
001126

000000

001124

1180

006060

042777

1179 006052 017737

1186

TST21
@ /CR, SBDDAT
2%
11
#B1T4,$GDDAT
aCSR, $BDDAT

BEQ

1ST21

::BR IF CORRECT

#B1T14,$BDDAT
12

-7 INPUT FAILED TO CAUSE THE LOW BYTE OF 32 BIT
:READ HIGH 16 BITS

::BR IF CLEARED
sHIGH 16 BIS CHANGED IN ERROR
:LOAD EXPECTED
*READ STATUS

STEST IF ''CELL OVERFLOW''

:"'CELL OVERFLOW'' FLOP SET IN ERROR

VERIFY Z INPUTS CAUSE THE LOW 16 BITS OF 32 BIT COUNTER TO CHANGE

006062
006064

001401

006072

104011
012737
017737

006106

001401

006100
006110

032737
104012

000002

173674

000020
173650

040000

001126

MOV

#0,aWCR

MOV
BIS
BIS

173740

001124
001126

#100,$TIMES
#CLRALL ,@SFR

MOV

173752
173744
173746

001126

SCOPE

MOV
MOV

MOV

173766

005766
005774
006002

006010

7ST21:

174004

1168
1169
1170

1185

BR
MOV
BEQ
ERROR
MOV
MOV

: .' 222222222322 232332223333232223333332333333333333333333333333333233333]

000100
004000

1184

“GO "ACTIVE'
*ENABLE '‘TEST 2'* PULSES
*DISABLE ‘‘TEST 2'‘ PULSES

:LOAD EXPECTED
*READ LOW 16 BITS
::BR IF NON-ZERO

SATEST 21
012737
012777

1183

*ENTER MATRIX MODE

#1,$GDDAT
@BAR, SBDDAT
1%

ERROR

005730
005736

1181
1182

#BIT4!'BIT1,aCSR

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

;: 22222323223 22322323332323323333333333333323333333333233333333233333333)]

1163
1164

1171

#81T0,aCSR
#TESTZ,aSFR
#TESTZ.aSFR

BIT

1161

1165

BIS
BIS
BIC

ERROR

1160
1162

#100,$TIMES
#CLRALL ,@SFR
#TSTDMA.@SFR
#0,3WCR
#0.aBAR

MOV
MOV
BNE

104010

005664
005666
005674
005676
005700
005706

005714

000001
174076

VERIFY 2 INPUTS CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGEIN VATRI

SCOPE
MOV
MOV
MOV
MOV
MOV

MOV

SEQ 0039

BIC

1%:

MOV
MOV
TSTB
BNE
ERROR
BR
MOV

MOV

BEQ

2%:

ERROR
MOV
MOV

BIT

BEQ

ERROR

#TSTDMA.aSFR

::D0 100 ITERATIONS
:CLEAR THE DEVICE

*SET TEST DMA FLOP

:LOAD W.C. REG

#376,3BAR

*LOAD B.A.

#B1T4'BIT1,aCSR
#81T0,aCSR
#TESTZ,aSFR

#TESTZ.aSFR

#8178, $GDDAT
aBAR, SBDDAT
$BDDAT+1
1%
10
TST22
#0,SGDDAT

awWCR, $BDDAT
2%

11
#B1T4, SGDDAT
aCSR, $BDDAT

#81T14,$BDDAT
1ST22

REG

*ENTER MATRIX MODE
2GO "ACTIVE'
“ENABLE ‘‘TEST 2'' PULSES

:DISABLE "‘TEST Z'* PULSES

*LOAD EXPECTED
*READ LOW 16 BITS
*TEST HIGH BYTE
:BR IF NON-ZERO
*Z INPUT FAILED TO CAUSE THE HIGH BYTE OF THE LO

:LOAD EXPECTED

*READ HIGH 16 BITS

::BR IF CLEARED

;HIGH 16 BITS CHANGED IN ERROR
*LOAD EXPECTED
*READ STATUS

STEST IF "‘CELL OVERFLOW''

::BR IF CORRECT

:"'CELL OVERFLOW'' FLOP SET IN ERROR

CZNCCA

NCV1T

382

—t

888LXR

N_a_n..n_a_n_a_a_as.a_a_n
OOV
OO

b il

b il o

) i

) o

—

CZNCCA.PT

B 4
MACYT1 27(654) B8-AUG-78 15:05 PAGE 28
DIAGNOSTIC
T22
VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE
DIRRRRRRARANARARRA
AR AR
AR
RRRARNRRRAREAARNRRARRAARRRRRRE AR

s*TEST 22
R

000004
012737
012777
012777
012777
012777
012777
052777
052777
042777
012737
017737
001002

001160
173626

TST22:

173620

173536

173606
173602
173566
173560
173562
173554
001124
001126

000020
173510
040000

001124
001126
001126

000001

1%:

104011

000413
012737
017737
032737

OV~ [« XV, B YWY N

i
il
sk
sl

n bl ch cosd cashh

b
i
i
b
b anld cnld
il
b
il

INSLASLSTST
S LSS TN ST ,N )

001401
104012

1221

SEQ 0040

2%:

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

LR D
T

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
BNE
ggROR

#100,$TIMES
;:D0 100 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
sSET TEST DMA FLOP
#TSTDMA,aSFR
#0,aWwCR
;LOAD W.C. REG
#-2,aBAR
;LOAD B.A.
REG
#B8IT4!BIT1,aCSR
JENTER MATRIX MODE
#81T0,aCSR
;GO "'ACTIVE"'
#TESTZ,aSFR
;ENABLE "‘TEST 2'' PULSES
HTESTZ ,aSFR
;DISABLE ‘'‘TEST 2'' PULSES
#1,8GDDAT
;LOAD EXPECTED
aWCR,$BDDAT
;READ HIGH 16 BITS
;BR IF SET
2%
};723
;LOW BYTE OF THE HIGH 16 BITS FAILED TO CHANGE

MOV
MOV

#B1T4 ,SGDDAT
aCSR,$BDDAT

BIT
BEQ
ERROR

#B1T14,8BDDAT
TST23
12

;LOAD EXPECTED
sREAD STATUS

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

: ttttttttt'tttt'ttttttttt"tttttfittfitttttttttttttitt'ttttttttttt

$*TEST 23

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

2222222232222 3223 3323332323233 3233333333333 23332232282

000004

012737
012777
012777
012777
012777
012777
052777
052777
042777
012737
017737
105737
001001
104012

000100
004000
000010
000377
177776
000022

000400
173376
001127

001160
173466

TSTZ3

173460

173446
173442

173426

173420
173422
173414
001124
001126

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
BIS

#100,8TIMES
;:DO 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTDMA ,aSFR
;SET TEST DMA FLOP
#377 ,RWCR
;LOAD W.C. REG
#-2 ,aBAR
;LOAD B.A.
REG
#3174 'BIT1,aCSR
sENTER MATRIX MODE
#BITO,aCSR
;GO "'ACTIVE"'

BIC

#TESTZ ,aSFR

BIS

1%:

22322t

MOV
MOV
TSTB
BNE

ERROR

HTESTZ,aSFR

#B1T8,8GDDAT
aWCR,$BDDAT
$BDDAT +1
TST24

dd)

sENABLE '‘TEST Z'' PULSES

;DISABLE ''TEST Z'' PULSES

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

*HIGH 8 BITS OF THE 32 BIT COUNTER FAILED TO CHANGE

CZNCCA NCVTIT
CINCCA.PI
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1262
1243
1264
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255

1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278

DIAGNOSTIC

T24

MACY11 27(654)

B8-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

:;ttfiittttttfitttfitfitttt"t'fiti'ttfitfitfiQ'tttIfi.tttltt*"ttttttttt*

SRTEST 24

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

::*tt'tttit'fil!t*t't.tt."'fitfi*Q'Q.Qt'tit*'*tt.fi*""tfitfiitfifi't.t

000004

012737
012777
012777

000100
004000
000000

001160
173352
173340

052777
042777

000002
000002

173324
173316

012777
005077
012737
017737
001401
104010

000000
173322

000000
173302

T§T24:

173334

SCOPE

MOV
MOV
MOV

#100,$TIMES
#CLRALL ,@SFR
#0,WCR

BIS
BIC

#TESTZ,aSFR
#TESTZ ,aSFR

MOV
CLR

001124
001126

MOV
MOV
BEQ
ERROR

#0,38AR
aCSR

#0,$GDDAT
@BAR , $BDDAT
TST25
10

;D0 100 ITERATIONS
:CLEAR THE DEVICE
*LOAD W.C. REG

:LOAD B.A. REG
:ENSURE LIST MODE

:ENABLE "TEST 2 PULSES
*DISABLE ''TEST Z'* PULSES

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

::'ttti'tt'fi.fit*itttt'tt't'tQt't.fiit.iit*i'fit'lt.i*'tttt.'tt't'ti

S*TEST 25

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

::ttt*t'tttttt.ttttt*tttttttititttttti'tt.!fifit*i‘tifi'.iltttt*ttt'

000004
012737
012777
012777
012777
012777
012777
052777

000010
004000
000010
177777
177776
000022
000001

001160
173260
173252
173240
173234
173220
173212

052777
042777

000002
000002

173214
173206

012737

040020

001124

032777
001011
005301
001372
005300
001370
012777
104012

040000

173154

000400

173144

052777
012737

004000
000200

173132
001124

023737
001401
104012

001124

001126

013700

005001

017737

002006

173110

001126

TST25:

SCOPE
MOV
#10,STIMES
;;D0 10 ITERATIONS
MOV
#CLRALL ,aSFR
;CLEAR DEVICE
MOV
#TSTDMA ,aSFR
sSET TEST DMA FLOP
MOV
#-1,3WCR
;LOAD Z COUNTER
MOV
#-2,3BAR
;LOAD Z COUNTER
MOV
#BIT4!BIT1,aCSR
JENTER "MATRIX'' MODE
BIS
#B1T0,aCSR
sENABLE NCV11
;NOW ENABLE '‘TEST Z'' INPUTS
BIS
#TESTZ,aSFR
;ENABLE "‘TEST Z'' PULSES
BIC
#TESTZ ,aSFR
:DISABLE '‘TEST Z'* PULSES
'
MoV
CPUDLO,RO
;LOAD GROSS TIMER
CLR

#BI1T14!B1T4,8GDDAT

;LOAD EXPECTED STATUS

BIT
BNE
DEC
BNE
DEC
BNE
MOV
ERROR

#BIT14 ,aCSR
2%
R1
1%
RO
1%
#ENDDMA ,aSFR
12

sTEST FOR Z/WC OVERFLOW
;BR IF SET
sDELAY

MOV
1%:

:DELAY

;STOP DMA TRANSFERS
AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SE

;NOW GENERATE '‘CLR ALL'' TO CLEAR Z/WC OVERFLOW BIT
28:
BIS
#CLRALL ,aSFR
;CLEAR Z/WC FLOP
MOV
#8177 ,$GDDAT
:LOAD EXPECTED

MOV

CMP
BEQ
ERROR

aCSR, $BDDAT

$GDDAT , $BDDAT
TST26
12

:READ STATUS

. COMPARE
::BR IF SAME

:"'CLR ALL'' FAILED TO CLEAR "Z/WC'' FLOP

NCVIT
CINCCA.PT
CZNCCA

1279
1280
1281

tTEST 26

000010
004000
000010
177777
177776
000022
000001

001160
173066
173060
173046
173042
173026
173020

052777
042777

000002
000002

173022
173014

013700
005001
012737

002006

040020

001124

032777

040000

172762

001014

FIREREE

005301
001372
005300
001370
012777
042777

VB WN=0000~N

000004
012737
012777
012777
012777
01c777
012777
052777

104012
000416

007016

007050

052777
012737
017737
023737
001401
104012

000400
000002

172752
172744

040000
000022
172710
001124

172732
001124
001126
001126

TST26:

SCOPE
#10,8TIMES
;:D0 10 ITERATIONS
MOV
#CLRALL ,aSFR
;CLEAR DEVICE
Mov
#TSTDMA,aSFR
:SET TEST DMA FLOP
MOV
#-1,aWCR
;LOAD
Z COUNTER
MOV
#-2,aBAR
;LOAD
Z COUNTER
MOV
#BIT4!'BIT1,aCSR
;ENABLE "MATRIX'' MODE
MO
#81T0,aCSR
:SET NCV11 ACTIVE
BIS
;NOW ENABLE '‘TES T Z'" INPUTS
#TESTZ ,aSFR
:ENABLE '‘TEST Z'' PULSES
BIS
#TESTZ
,aSFR
:DISABLE "‘TEST Z'' PULSES
BIC
MOV
CLR
MoV
1%:

BIT
BNE

DEC
BNE
DEC
BNE
MOV
BIC

ERROR
BR

SEQ 0042

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

2222222232223 3233323333 333333 2333333233333 232233 3323222220222t dssdl

P
—g——
U
N
N

2222233332333 3333332332233 3 3232323333323 2222022332ttt dddddstdds

&8
b
cd
-

U N

b cd

N—p— Y

TWWWWWW

MACY11 27(654) 8-AUG-78 15:05 PAGE 30
?5QGNOST1C
TEST THAT "WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND '‘CLR WC OVFL'' CLEARS IT

g?UDLO.RO

:LOAD GROSS TIMER

#BIT14'BIT4,$GDDAT

;LOAD EXPECTED STATUS

#BIT14 ,aCSR
2%

:TEST FOR Z/WC OVERFLOW
;BR IF SET

;DELAY

#ENDDMA ,aSFR

:STOP DAM TRANSFERS

R1
1%

;DELAY

#TESTZ ,aSFR
:STOP "'7'" INPUTS
}§T27
:AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SET

2§0U GENERATE ''CLR WC OVFL'' TO CLEAR Z/WC OVERFLOW BIT
#CLRWCO,aSFR
;CLEAR Z/WC FLOP
BIS
#B1T4'BIT1,$GDDAT
;LOAD EXPECTED
MOV
aCSR, $BDDAT
MOV
:READ STATUS
, $BDDAT
$GDDAT
; COMPARE
cMP
13727
::BR IF SAME
BEQ
ERROR
:"'CLR WC OVFL'' FAILED TO CLEAR "Z/WC'' FLOP

CINCCA

NCV11

CINCCA.PT

DIAGNOSTIC

127

MACY11 27(654)

B8-AUG-78

15:05

PAGE 31

TEST THAT “MCA OVFL'' GENERATES AN INTERRUPT

SEQ 0043

1316

;:tttiti'tfit"tttififit"'t'ti..tfitlt.tt*tttt'tQfifiitttttttfitttfitttt

1318

: .'iQQt.tt*i*itfiti'.i*.tttfiti*fii'fifi*ttt*tfi..itltt'.i.!t*t'fi"tti't

1317

J*TEST 27

1319
1320
1321
1322

007052
007054
007062
007070

000004
012737
012777
012777

000010
004000
000010

001160
172666
172660

1326
1325

007104
007112

012777
012777

177776
000022

172642
172626

1323
1326

1327

007076

007120

012777

177777

052777

000001

172646
172620

1328
1329

007126
007134

052777
042777

000002
000002

172622
172614

}%%%

007150

012737

040020

001124

1334
1335
1336
1337
1338
1339
1340

007156
007164
007166
007170
007172
007174
007176

032777
001014
005301
001372
005300
001370
012777

040000

172562

}gzz

007214

000430

1330
1331

1341
1342
1345

1346

007142
007146

007204
007212

007216

1347

007222

1349
1350
1351

007230
007236
007244

1348

1352
1353
1354

1355
1356
1357
};gg
1360
1361
1362
1363
}ggg

013700
005001

042777
104012

012746

007226

000002

007246
007250
007252
007254

000240
000240
000240

002006

000400
000002

007262
007270
007272

017737
012777
104013
000401

172466
004000

007274
007276
007302
007310
007316

022626
005077
012777
013777
005077

172444
004000
001774
172452

#10,8TIMES
#CLRALL ,@SFR
#TSTDMA ,aSFR

MOV
MOV

#-2 ,aBAR
#81T4!BIT1,aCSR

BIS

#-1,3aWCR

;:D0 10 ITERATIONS
sCLEAR DEVICE
sSET TEST DMA FLOP

;LOAD Z COUNTER

;LOAD Z COUNTER
;SET MATRIX MODE

#BI1T0,aCSR

sSET NCV11 ACTIVE

;NOW ENABLE ''TEST Z'' INPUTS

BIS
BIC

#TESTZ ,aSFR
#TESTZ,aSFR

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

MoV

#BI1T14!B1T4,$GDDAT

;LOAD EXPECTED STATUS

BIT
BNE
DEC
BNE
DEC
BNE
MOV

#BIT14,aCSR
2%
R1
1%
RO
1%
#ENDDMA ,aSFR

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

MOV
CLR
1%:

BIC
ERROR

CPUDLO,RO
R1

;LOAD GROSS TIMER

:DELAY

;STOP DMA TRANSFERS
HTESTZ ,aSFR
:STOP ''7'' INPUTS
12
JAFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SET
;:BR TO CLEAN UP

;NOW ENABLE THE WC/Z OVERFLOW INTERRUPT BIT AND WAIT FOR AN INTERRUPT

2%:

007230
007274
(000100

SCOPE
MOV
MOV
MOV

MOV

172552
172544

000000

012777
052777
000240

TST27:

TEST THAT "WCA OVFL'® GENERATES AN INTERRUPT

172534
172502

MOV

;LSI=11 HACK

MOV
BIS
NOP

#4% ,aVECTAO
#BIT6,aCSR

;LOAD INTR. VECTOR
;ENABLE INTERRUPT

MOV
MoV
ERROR
BR

aCSR,$BDDAT
#CLRALL ,aSFR
13
5%

cMP
(LR
MOV
MOV
CLR

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

NOP
NOP
NOP

001126
172466

172446
172454

#3%,-(SP)

RTI

3%:

4%:
5¢:

#0,=(SP)

;READ STATUS
;CLEAR THE DEVICE
sWC/Z OVERFLOW FAILED TO GENERATE INTERRUPT
;:BR TO CLEAN UP

:CLEAR THE DEVICE

CZINCCA

NCV11

CZNCCA.P11

DIAGNOSTIC

T30

MACY11 27(654)

8-AUG-78

VERIFY "WCA OVFL'' CLEARS "‘ACTIVE"

15:05

PAGE 32

SEQ 0044

1366

.':ttttitttttttt.t'ttt't't'tttit.tttttflttttt*ttt.tfitttttt*tttttt't

“368

.-.-*tttttttt'tttttttttttt'*ttttttttttttttttttttttttitttttt"nt'ltt

1367

1369

:«TEST 30
007322

000004

007332

012777

1370

007324

1372

007340

1371

1373
1374
1375
1376

1377
1378
1379

1380

1381
1382
1383

1384
}ggg

007346
007354
007362
007366

007374
007402
007410

007416

007424
007432
007440

007442
007444

012737

000010

001160

012777

000014

172419

012777
012777
005077
012777

052777
052777
042777
017737

012737
023737
001402

007446

005037

1389
1390
1391

007460
007462

001401
104012

007452

177777
177776
172362
000022

000001
000002
000002
172324
040022
001124

172416

017737

SCOPE

MOV

#10,8$TIMES

MOV

#TSTDMA'!TSTCON,aSFR

MOV

172376
172372
172352

MOV
MOV
CLR
MOV

001126

MOV

172344
172346
172340

BIS
BIS
BIC

001124
001126

MOV
CMP
BEQ

104012
000407

1387

1388

004000

TST30:

ERROR
BR
001124

172272

001126

1%:

VERIFY "WCA OVFL'' CLEARS "ACTIVE''

#CLRALL ,aSFR

;CLEAR DEVICE

;SET TEST DMA

#-1,aWCR
#-2 ,aBAR
aOF F
#BIT4'BIT1,aCSR

:LOAD W.C. REG.
;LOAD BAR REG.
;CLEAR OFFSET REG.
:ENABLE MATRIX MODE

aCSR,$BDDAT
#BIT14'BIT4!BIT1,$GDDAT
$GDDAT , $BDDAT
1%
;:BR IF

;READ STATUS

#BIT0,aCSR
#TESTZ,aSFR
#TESTZ ,aSFR

12
TST31

CLR

$GDDAT

BEQ
ERROR

TST31
12

MOV

::D0 10 ITERATIONS

@0FF ,$BDDAT

:SET "ACTIVE''
:ENABLE '‘TEST Z'' PULSES
:DISABLE '‘TEST Z'' PULSES
;LOAD EXPECTED
: COMPARE
SAME

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

;READ THE ACTUAL
;:BR IF CLEARED
:"WCA INC X OFF'" IN MATRIX MODE CHANGED
;THE OFFSET REGISTER

CZNCCA NCVIT
CINCCA.P1T
1392
1393
1394
1395
1396
1397
1398
1399

1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414

1415

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

PAGE 33

SEQ 0045

:.'ltQitttttt*i."ifittt'ttt'lttfittittfifi**tt"'Qttt*t."ttitfittt.fi'

S*TEST 31

VERIFY JOYSTICK DONE FLOP SETS

.' "ttttt.ttt'tt*tt't**ttt'tt't.ti.tfitttfittttti'ttt..t'tt.t'tflQtttt

000004
012737
012777
052777
013700
105777
100411

000040
004000
000001
002010

001160

1%:

172236

005300
001373
017737
012737

172224
000200

001126
001124

005777
017737

172212
172202

001126

104014

105737
100003

005037
104014

001126

TS$T31:

172254
172¢4%

SCOPE

MOV
MOV
BIS
MOV
TSTB
BM]
DEC
BNE
MOV

MOV

001373
017737
012737
104014
052777
017737
012737
023737
001401
104014
000005
017737

012737
017737
001401

104014

1%
aSFR, $BDDAT

#B1T7,SGDDAT

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

:LOAD EXPECTED

aJOY

BPL
CLR
ERROR

TST32
$GDDAT
14

aSFR, SBDDAT
$BDDAT

:ADDRESS THE REGISTER

*READ STATUS
“TEST IF THE BIT CLEARED

::BR IF YES
:LOAD EXPECTED
*ADDRESSING THE JOYSTICK ADDRESS FAILED TO CLEAR

tt*ttttttttttttfitttttttttttttQt*'ttttttfittttttfitttitttfitt't't.fi
R

105777

MOV
TSTB

SRTEST 32
000004
012737
012777
052777
013700

#40,$TIMES
#CLRALL ,@SFR
#REDJOY ,aSFR
CPUDL1,RO
@SFR
2$

ERROR
14
L"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''

001124

1416

1417

15:05

000040
004000
000001
002010

172130

172116

001126

004000

172076
001126

000200

172072

000200
001124

001124

2222228322333

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

333322333232333333333332333333333333333333332323332323223223]

T§732:

- SCOPE

2%:

BIS

#CLRALL ,@SFR

MOV

#BIT7,$GDDAT

MOV
#40,$TIMES
::DO 40 ITERATIONS
MOV
#CLRALL ,@SFR
:CLEAR THE DEVICE
BIS
#REDJOY .aSFR
*REQUEST JOYSTICK DATA
MOV
CPUDL1,RO
:LOAD DELAY
1%:
TSTB
@SFR
*WAIT FOR JOYSTICK READY
:BR IF SET
2%
BMI
DEC
RO
*DELAY
BNE
1%
:BR IF NOT EXHAUSTED
MOV
aSFR, $BDDAT
*READ STATUS
MOV
#BI1T7,$GDDAT
*LOAD EXPECTED VALUE
*JOY READY FAILED TO SET
14
ERROR
:NOW ISSUE A ''CLR ALL'* AND VERIFY THE '‘JOY READY'' DOES NOT CLEAR

001124
001126

MOV

CMP
BEQ

aSFR, SBODAT

$GDDAT, $BDDAT
3%

:GENERATE ‘‘CLR ALL"'
*READ STATUS

;LOAD EXPECTED VALUE

: COMPARE
;:BR IF SAME

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

172042

000000

172026

001126
001124
001126

RESET

MOV
MOV
MOV

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

ERROR

BEQ

TST33

:BUS "INIT"'

*READ STATUS
*LOAD EXPECTED
*READ STATUS

::BR IF CLEARED

;BUS INIT FAILED TO CLEAR JOY READY

H &4
MACY11 27(654) B8-AUG-78 15:05 PAGE 34
DIAGNOSTIC
132
VERIFY THAT "RESET'' INSTRUCTION CLEARS THE JOY READY FLOP

1444

1445

1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461

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

3223222

Rd2222 22222202222ttt
t
)

JOYSTICK DATA PATH

GAIN =0

2B ENABLE =0

RES. = 000

':tttttti'tttttfitititti'ttt'tfit*tQtifitttt'tt'ttttt.t'ttttt'tt't.t

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

000004
012737

012777
012777
012777
052777
105777
100375

017737
012737
023737
001401

000010
004000
000014
000000
000001
171754

001160

171752
000000
001124

001126
001124
001126

172002
171774
171756
171760

TS133:

SCOPE

1%:

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,@SFR
;SET TEST CONTROLLER FLOP
#0,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
sREQUEST JOYSTICE DATA
?gFR
sWAIT FOR JOYSTICE READY

aJOY,$BDDAT

cMP
BEQ
ERROR

104015

1462
1463

1464
1465
1466
1467
1468

2322333322222

T*TEST 33

1446

SEQ 0046

#0,8GDDAT
$GDDAT , $BDDAT

TST34
15

;READ THE REGISTER
;LOAD EXPECTED
. COMPARE

::BR IF SAME
;JOYSTICK DATA PATH BIT SET

::Q.itttt..tttQfifittt*titttfifittiifitt"tittti.tt'tt'*tttttttittttti

s*TEST 34

JOYSTICK DATA PATH

GAIN =1

';ttttttttttt.itt'QQ.tt"ttttlfitt."l*'ttt.'t't'ttfitti'tttttt*itt

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

000004

012737
012777
012777
012777
052777
105777

000010
004000
000014
002000
000001

001160
171706
171700
171662
171664

017737
012737
023737
001401

171656
124250
001124

001126
001124
001126

100375

171660

TST34:

1%:

104015

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

#10,STIMES

;:D0 10 ITERATIONS

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

;CLEAR THE DEVICE
sSET TEST CONTROLLER FLOP
;LOAD CSR REGISTER
sREQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

a@JOY,$BDDAT
#124250,8$GDDAT

;READ THE REGISTER
sLOAD EXPECTED

$GDDAT , $BDDAT
TST35
15

. COMPARE
::BR IF SAME
;JOYSTICK DATA PATH ERROR

';tttt.t'tt'tttttfi.t'tt'ttifitttttittfit.ittfi..*ttti*tltfittttiiifitt

S*TEST 35

JOYSTICK DATA PATH

7B ENABLF =1

:;itttfi.tttttfittt*Qfifittt'ttttttfiittlfitt.ttttitfitt'ttt'fiifitttttitt

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
TSTB
BPL
MOV
MOV
CMP
BEQ
ERROR

#10,8TIMES
#CLRALL ,aSFR

;:D0 10 ITERATIONS
;CLEAR THE DEVICE

#TSTCON!TSTDMA,aSFR

sSET

#REDJOY ,aSFR

sREQUEST JOYSTICE DATA

#4000,aCSR
?gFR

a@JOY,$SBDDAT

#050120,$GDDAT
$GDDAT , $BDDAT
TST36
15

TEST CONTROLLER FLOP

;LOAD CSR REGISTER

;WAIT FOR JOYSTICE READY

;READ THE REGISTER

;LOAD EXPECTED
: COMPARE
;:BR IF SAME
s JOYSTICK DATA PATH ERROR

CZNCCA NCV11
CZNCCA.PT1T

Uufl\hU“fl\hU“fl&hth“fl\h
-‘—‘-‘-.—‘-‘-‘—.-‘-%3
oS WO
oV~

D e

1495
1496
1497

MACY11 27(654) B8-AUG-78
DIAGNOSTIC
136
JOYSTICK DATA PATH RES. = 00
L

15:05

1 &
PAGE 35

SEQ 0047

2222222232323 3333333333223 3333 3333323323333 32323 22322

T*TEST 36

JOYSTICK DATA PATH

2ttddtdd)

RES. = 001

';'Q'ttttttt‘fi‘fittittttt".t'.ttttittttttt*tttt.ttit"'t..tfittttt

010222
010224
010232
010240
010246
010254

010314

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

TST36:

000010

000001
171470
171466

000401
001124

SCOPE

1%:

001126
001124
001126

#10,S$TIMES
#CLRALL ,aSFR

#TSTCON!TSTDMA,aSFR
#23,aCSR
#REDJOY ,aSFR
?gFR

;SET TEST CONTROLLER FLOP
:LOAD CSR REGISTER
;REQUEST JOYSTICE DATA
JWAIT FOR JOYSTICE READY

aJOY,$BDDAT

;READ THE REGISTER

#4601 ,8GDDAT
BEQ
ERROR

104015

;:D0 10 ITERATIONS
:CLEAR THE DEVICE

$GDDAT ,$BDDAT
TST37

;LOAD EXPECTED

; COMPARE
;:BR IF SAME

:JOYSTICK DATA PATH ERROR

2222222322222 2233333323333 223 333323323322 222232

L%TEST 37

JOYSTICK DATA PATH

223

dddd

RES. = 001

)

RES. = 010

::tttfiQttfititfiitttttitt'itttiitt.ifittfitttfl'tttt.tfitttittt.fittttfi'

010316

010320
010326
010334
010342
010350
010356

000004
012737
012777
012777
012777
052777

105777
100375

017737
012737
023737
001401

000010
004000
000014
000025
000001
171374

001160
171422
171414
171376

171372

001126
001124
001126

001002
001124

171400

TST37:

1%:

SCOPE

MOV
MOV
MOV
MOV

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,QSFR
sSET TEST CONTROLLER FLOP
#25,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
sREQUEST JOYSTICE DATA
?EFR
;WAIT FOR JOYSTICE READY

MOV
MOV
CMP

aJOY,$SBDDAT

BIS
TSTB
BPL

BEQ
ERROR

104015

#1002, $GDDAT
$GDDAT , $BDDAT
TST40

;READ THE REGISTER

;LOAD EXPECTED
. COMPARE
;:BR IF SAME

;JOYSTICK DATA PATH ERROR

RES. = 010

';tttttfi'tittttittifit'tttt'.tttii.tttttttt'tti.ttttfittitti'ttttit

L*TEST 40

JOYSTICK DATA PATH

RES. = 100

:;ttttt*tttfitttttttttt'tftttt'fifitttt.tifiti"t.*tttfit.itttQtitt'tt

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737
023737
001401
104015

TST40:

000010
004000
000014

1%:

171276
002004
001124

001126
001124
001126

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
sSET TEST CONTROLLER FLOP
#31,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
sREQUEST JOYSTICE DATA
?gFR
;WAIT FOR JOYSTICE READY

;READ THE REGISTER

aJOY, $BDDAT

#2004 , $GDDAT
$GDDAT , $BDDAT
TST41

;:BR IF

;LOAD EXPECTED
: COMPARE
S AME

;JOY STICK DATA PATH ERROR

RES. = 100

o
|

CZNCCA NCV1T
CZNCCA.PT

CZNCCA NCVIT
CZNCCA.PT

J &
PAGE 36

SEQ 0048

::'titit.ttttii'fittttfitt'iti.ttttfitfi*tt'itt*tttt*tttt..titttfit'tt

s*TEST 41

VERIFY THE DATA INCREMENT FUNCTION

::tttt*tttttttfittttttttt't'tttttttQfittfittttiitfittttt.fi*tt*.t'ttt'

010506
010510
010516
010524

010532
010540
010546
010552
010554
010562
010570
010576
010600

000004
012737
012777
012777
012777

TST41:

000010

052777
105777
100375
017737

012737
023737
001401

1%:

171202
000401

001124

104016

SCOPE

MOV
MOV
MOV
MOV
BIS
TSTB
BPL

#10,8STIMES
#CLRALL ,aSFR

CMP
BEQ

$GDDAT , $BDDAT
TST42

;:D0 10 ITERATIONS
:CLEAR THE DEVICE

#TSTCON!TSTDMA,aSFR
#421,aCSR
#REDJOY ,aSFR
?qu

;SET TEST CONTROLLER FLOP
:LOAD CSR REGISTER
;REQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

MOV
MOV

aJO0Y,$BDDAT
#4601 ,8GDDAT

;READ THE REGISTER
;LOAD EXPECTED

ERROR

; COMPARE
;:BR IF SAME

:MAINT. CAMO1 FAILED TO INCREMENT DATA REGISTER

:;tttttttttfit'*tittt*tittt'iittttt.tttfii*..*itflttttt'*tt*tttttti.

J*TEST &2

VERIFY THE DATA INCREMENT CARRY BIT

010672
010674

105777
100375

017737
012737
023737
001401

171106
130260
001124

- WWO
HfNOONO

—_—

)

b
b

052777

000010
004000
000014
002437
000001
171110

NNNNO

010634
010642
010646
010650
010656

000004
012737
012777
012777
012777

-l

010602
010604
010612
010620
010626

b O

;;tttttfifiittfitfitfitttttti'ttttttfi.tttfifitttfitttfi'.fiittt’.i*.i*ittl'

_—

1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560

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

15:05

TST42:

SCOPE

1$:

TSTB

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
sSET TEST CONTROLLER FLOP
#2437 ,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
;REQUEST JOYSTICE DATA
?EFR
;WAIT FOR JOYSTICE READY

;READ THE REGISTER

aJOY,SBDDAT

001126
001124
001126

#130260,8GDDAT

BEQ
ERROR

104016

$GDDAT, $BDDAT
TST43

;LOAD EXPECTED

: COMPARE
;:BR IF SAME

;sMAINT. CAMO1 WITH RES.=7, G=1, ZB =0

;FAILED TO CAUSE DATA INCREMENT CARRY PROPERLY

:;t'ttttttttttttttttttttt"tttt'fitfitt'itt.tt'ttttfifittt..tittttttt

J*TEST 43

VERIFY THE DATA INCREMENT FUNCTION IS INHIBITED

:;ttttttttitttt'ttiitttt't*iittltttt*fittttttttttittttiittfi*tttttt

000004
012737
012777
012777
012777
052777
105777
100375

010766
010770

017737
012737
023737
001401
104016

TST43:

00000
171014
171012

177777
001124

1%:

001126
001124
001126

SCOPE

MOV
MOV
MOV
MOV
BIS
TSTB

#10,$STIMES

::D0 10 ITERATIONS

#CLRALL ,@SFR
#TSTCON' TSTDMA,aSFR
#6437 ,aCSR
#REDJOY ,aSFR
?fi’“

:CLEAR THE DEVICE
“SET TEST CONTROLLER FLOP
*LOAD CSR REGISTER
*REQUEST JOYSTICE DATA
*WAIT FOR JOYSTICE READY

aJoY, $BDDAT

:READ THE REGISTER

#177777 .$GDDAT
$GDDAT, $BDDAT
TST44
16

*LOAD EXPECTED

* COMPARE
::BR IS SAME
*FAILED TO INHIBIT DATA INCREMENT FUNCTION

;IF THE BAD DATA WAS 0

CZNCCA NCV11
CZNCCA.PT

PAGE 37

SEQ 0049

VERIFY THE DATA DECREMENT FUNCTION

IERRRRARRRRARARRARRARAE
R AR
RRRARERRAARARRARRRRRRRRRAARRRA AR AR

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

170716

001126
001124
001126

000000

001124

170746
170740
170722
170724

TST44:

1%:

SCOPE

MOV
MOV
MOV
MOV
BIS
ggle

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

MoV

a@JOY,$BDDAT

ERROR

MOV
CMP
BEQ

#0,SGDDAT
SGDDAT , $BDDAT
TST45

sREAD THE REGISTER

;LOAD EXPECTED
. COMPARE
;:BR IF SAME

;IF DATA WAS 401, THE DATA DECREMENT FUNCTION FAILED
;OTHERWISE DECREMENTED DATA ERROR

::ttttttttfittt*tt'ttttttttt'ttfit..Q'.tfitttt"tit.tfitt.!t.tifi't.t'

VERIFY THE DATA DECREMENT BORROW

S*TEST 45

b
b cub
wsd aud
b
b
b
-

000004
012737
012777
012777
012777
052777
105777
100375

017737
012737
023737
001401

000010
004000
000014
007037
000001
170624

001160

170622
177376
001124

001126
001124
001126

170652
170644
170626
170630

7ST45:

1$:

SCOPE
MOV
MOV
MOV
MOV
BIS
gg’fl

#10,STIMES
::DO 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
#TSTCON' TSTDMA,aSFR
*SET TEST CONTROLLER FLOP
#7037 .aCSR
*LOAD CSR REGISTER
*REQUEST JOYSTICE DATA
#REDJOY ,aSFR
?i’“
*WAIT FOR JOYSTICE READY

MOV

aJ0Y, SBDDAT

CMP
BEQ
ERROR

$GDDAT ,$BDDAT
TST46
17

MOV

104017

#177376,$GDDAT

:READ THE REGISTER

*LOAD EXPECTED

; COMPARE
;:BR IF SAME
;DECREMENTED DATA ERROR

:;tfittttttttttttttttttttttttttfitttttttttttttttttttttfitttt'ttttttt

;*TEST 46
N = =3 —a
o
n

e
g

S
Y
Y

L I

e
S

3538
SMM“%WNN-‘
oo NOON?OO

::tttttttttttttttttt'ttttttttttttttttttttittttttitttttttttttt'ttt

1603

s*TEST 44

1600
1601
1602

DIERRRERRRRARAARRRA
A AR
R R AARRAARARRRRRRRRRAARRRRARARRRARRRRR AR

[elelelelelelelelelelelele]

1597
1598
1599

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

000004

012737
012777
012777
012777
052777
105777

000010
004000
000014
001021
000001
170530

001160
170556
170550

017737
012737
023737
001401
104017

170526
000000
001124

001126
001124
001126

100375

TST46:

170532

170534

1%:

SCOPE

VERIFY THE DATA DECREMENT FUNCTION IS INHIBITED
T

MOV
MoV
MOV
MOV
BIS
;g{fl

#10,STIMES
:;D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
sSET TEST CONTROLLER FLOP
#1021,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
sJREQUEST JOYSTICE DATA
?gFR
;WAIT FOR JOYSTICE READY

MOV
MOV

a@JOY,$BDDAT
#0,8GDDAT

CMP
BEQ
ERROR

$GDDAT, $BDDAT
TST47

;READ THE REGISTER
;LOAD EXPECTED

: COMPARE
;:BR IF SAME
; INHIBIT DECREMENT FUNCTION ERROR

:IF DATA WAS 177777

CZINCCA

NCV11

CZNCCA.P11

DIAGNOSTIC

MACY11 27(654)

TEST ADDRESS MAKER

16‘9

1652

PAGE 38

MATRIX MODE = RES = 7 GAIN = 0 ZB ENABLE = 0

SATEST 47

011256

000004

TEST ADDRESS MAKER

MATRIX MODE = RES
= 7 GAIN= 0 ZB ENABLE = C

I 2222322323282 32333332332323333333333333333333333333333333333332232323%3233;}

1653
1654
1655
1656
1657
1658
1659
1660

011260
011266
011274
011302
011310
011316
011324
011332

012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
000036
000002
000001
000002
170422

001160
170462
170454
170436
170440
170422
170424
001126

1662
1663
1664
1665

011346
011354
011356

023737
001401
104020

001124

001126

1661

15:05

2 2222232283333 3332323333333333333333333333333333333333332333223232323233]

1650
1651

B8-AUG-78

t§747:

011340 012737 003407 001124

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DEVICE
:
#TSTDMA! TSTCON,@SFR
*SET "‘TEST DMA AND CONTROL''
#36,3CSR
:LOAD RESOLUTION, GAIN, 2B ENABLE VALUE
#TESTZ ,@SFR
*ENABLE '‘TEST 2'* PULSES
#B1T0,3CSR
*SET ENABLE NCV11
#TESTZ,8SFR
*DISABLE '‘TEST Z'* PULSES
@ADM, SBDDAT
*READ THE ADDRESS DATA MAKER

CMP
BEQ
ERROR

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

MOV

;

#3407, $GDDAT

*LOAD EXPECTED VALUE

1666

::ttttttlitttttttttttt"tttt'tt*tttt'itt.tttttt.tt'ttt.tttttttttt

1668

;:tttt.'tttttt.t't'tt*tt'tt'Qttt.tttifitttfittilttit.fittt*fiii'ttfiit

1667

S*TEST S0

1669
1670
1671

011360
011362
011370

000004
012737
012777

000010
004000

001160
170360

1673

011404

012777

002036

170334

1672

1674
1675
1676
1677
1678
1679
1680
1681
1682

011376
011412
011420
011426
011434

011442
011450
011456
011460

012777

052777
052777
042777
017737
012737
023737
001401
104020

000014

000002
000001
000002
170320

127657
001124

170352

ZCOPE
MOV
MOV

#10,STIMES
#CLRALL ,@SFR

MOV

#2036,3CSR

MOV

170336
170320
170322
001126

BIS
BIS
BIC
MOV

001124
001126

;

1683

MOV
CMP
BEQ
ERROR

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

::00 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA! TSTCON,@SFR

*SET '‘TEST DMA AND CONTROL''

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

*ENABLE ''TEST. Z'* PULSES
:SET ENABLE NCV11
:DISABLE 'TEST Z'* PULSES
*READ THE ADDRESS DATA MAKER

#127657 ,$GDDAT
$GDDAT , $8DDAT
TSTS1
20

:LOAD RESOLUTION, GAIN, 7B ENABLE VALUE

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

RESOLUTION
= 7

GAIN = 1

2B ENABLE
= 0

> t.tt!Itfifit.t'ttfitttt'tt"tttfittiQtt.tttttt.t'.t..'titt.ti.tfi.tt

1684

S*TEST 51

1685

1686

TST50:

TEST ADDRESS MAKER

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

::ttttti.ifitttttfittt'ttttt.ttilt.'.liit.t.tt.tttfitt.i'ttt"itfittt

011462

000004

1687
1688
1689
1690
1691
1692
1693
169

011464
011472
011500
011506
011514
011522
011530
0i1536

012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
004036
000002
000001
000002
170216

001160
170256
170250
170232
170234
170216
170220
001126

1696

011552

023737

001124

001126

1698
1699

011562

1695 011544

TST51:

012737 053527 001124

1697 011560 001401

104020

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,STIMES
;::D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR DEVICE
#TSTDMA! TSTCON,@SFR
*SET "‘TEST DMA AND CONTROL''
#4036,3CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ ,@SFR
*ENABLE '‘TEST 2'*'PULSES
#B1T0,aCSR
#SET ENABLE NCV11
#TESTZ ,3SFR
*DISABLE 'TEST Z'* PULSES
@ADM, SBDDAT
*READ THE ADDRESS DATA MAKER

CMP

$GDDAT, $BDDAT

MOV

BEQ
:

ERROR

#053527,$GDDAT

T1ST52

:LOAD EXPECTED VALUE

:COMPARE EXPECTED TO READ

;:BR IF SAME

RESOLUTION = 7

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

SEQ 0050

CZNCCA

NCVI

CZNCCA.P1T

DIAGNOSTIC

152

MACY11 27(654)

bbb deidubinduiotdainiaiaiiebebdobdedobdobairisiniaiuiuioboiobsbaiiabodabobodode

R L

1702

;;ttttttttnttttttntttttttttttntttt-ttttttttntttttttt.ttttttttttt-

1701

1703

;*TEST 52

011564

011566
011574
011602
011610
011616
011624
011632
011640
011646
011654
011662
011664

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

000010
004000
000014
000034
000002
000001
000002
170114
9001406
001124

001160
170154
170146
170130
170132
170114
170116
001126
001124
001126

TST52:

SCOPE

1719

;*TEST 53

1720
1721
1722

011666
011670
011676

000004
012737
012777

1725
1726
1727
1728

011720
011726
011734
011742

052777
052777
042777
017737

1723
1724

011704
011712

012777
012777

000010
004000
000014
002034
000002
000001
000002
170012

001160
170052
170044
170026
170030
170012
170014
001126

001124

001126

TST53:

011756
011764
011766

023737
001401
104020

BIS
BIS
BIC
MOV

MOV
:

1736

PIRAAAAAARA AR

1737

1738
1739
1740
1741
1742
1743
1744
1745

;*TEST 54

011770

011772
012000
012006
012014
012022
012030
012036
012044

000004

012737
012777
012777
012777
052777
052777
042777

017737

1746 012052 012737
1747

012060

023737

1749
1750

012070

104020

1748

012066

001401

000010
004000
000014
004034
000002
000001
000002

167710

001160
167750
167742
167724
167726
167710
167712

TSTS4:

001126

001124

SCOPE

001126

R RRARN AR

L L i b deideiaiuiniuieiaidabainindaboiadododode

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

AR AR RN

RRRAAA AR

AR AR

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA!TSTCON,aSFR
;SET "'TEST DMA AND CONTROL''
#2034 ,aCSR
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ ,aSFR
;ENABLE ‘‘TEST Z'' PULSES
#BI1T0,aCSR
:SET ENABLE NCV11
#TESTZ ,aSFR
;DISABLE ‘‘TEST 2'' PULSES
@ADM, SBDDAT
;READ THE ADDRESS DATA MAKER

#53656.$GDDAT

;COMPARE EXPECTED TO READ
SAME

TEST ADDRESS MAKER

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

;LOAD EXPECTED VALUE

$GDDAT , $BDDAT
TSTS54
;:BR IF
20
RESOLUTION = 6
L

:INCORRECT ADDRESS MAKER DATA

GAIN = 1

7B ENABLE = 0

e dededebiubsiaiatuinidedobaiubuodododobodode

AR AR AR R RRRAARAANNARARRRRRAAAAAARAR
AR AR RS

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA'!TSTCON,aSFR
;SET "'TEST DMA AND CONTROL''
#4034 ,8CSR
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ ,aSFR
;ENABLE ‘‘TEST Z'' PULSES
#81T0,aCSR
sSET ENAB;.E NCV11
#TESTZ ,aSFR
:DISABLE "‘TEST 2'' PULSES

MOV

l125526.SGDDAT

CMP

BEQ

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

MOV
MOV
MOV
MOV
8IS
BIS
BIC

MOV

125526 001124

R AR

CMP
BEQ
ERROR

1734

1735

TEST ADDRESS MAKER

R AR

SCOPE
MOV
MOV

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,a@SFR
;sCLEAR DEVICE
=
#TSTDMA!TSTCON,aSFR
;SET "'TEST DMA AND CONTROL
;LOAD RESOLUTIW“. GAIN, ZB ENABLE VALUE
#34 ,aCSR
;ENABLE '‘TEST 2'' PULSES
#TESTZ ,aSFR
;SET ENABLE NCV11.
#8I1T0,aCSR
#TESTZ,aSFR
:DISABLE "‘TEST Z2'' PULSES
JREAD THE ADDRESS DATA MAKER
@ADM, SBDDAT
#1406 ,$GDDAT
;LOAD EXPECTED VALUE
$GDDAT ,$BDDAT
:COMPARE EXPECTED TO READ
TSTS52
;:BR IF SAME
:INCORRECT ADDRESS MAKER DATA
20
RESOLUTION = 6 GAIN = 0 2ZB ENABLE = 0
L L

MOV
MOV

1729 011750 012737 053656 001124
1730
1731
1732
1733

TEST ADDRESS MAKER

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
CMP
BEQ
ERROR

1717

1718

SEQ 0051

1700

1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
|

PAGE 39

TEST ADDRESS MAKER = MATRIX MODE = RES = 6 GAIN = 0 ZB ENABLE = 0

15:05

8-AUG-78

ERROR

-=‘.‘

@ADM, SBDDAT

$GDDAT , $SBDDAT
TSTSS

JREAD THE ADDRESS DATA MAKER

;LOAD EXPECTED VALUE

:COMPARE EXPECTED TO READ

;:BR IF SAME

;
RESOLUTION = 6

:INCORRECT ADDRESS MAKER DATA
GAIN = 0 ZB ENABLE = 1

‘

CZNCCA NCVI
CZNCCA.PT

DIAGNOSTIC
155

MACY11 27(%54)

TEST ADDRESS MAKER

B8-AUG-78

15:05

PAGE 40

SEQ 0052

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

::Q..!.t'ttt'.tfifi"'ii."t.'.tfit't!t.fiQt.tt...Q..t*'ii'tt"titt"

I*TEST 55

TEST ADDRESS MAKER

MATRIX MODE = RES = 5 GAIN = 0 2B ENABLE =

::.Qt.tt.tt.ttt.tittttttttttttttttttltit!fitttfifitttt!ttt.'.t.".lt

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

000004
012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
000032
000002
000001
000002

167606

001160
167646
167640
167622
167624
167606
167610

TS7T55:

001126

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DEVICE
#TSTDMA | TSTCON,@SFR
*SET ''TEST DMA AND CONTROL'’
#32,3CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
*ENABLE '‘TEST Z'* PULSES
#81T0,aCSR
:SET ENABLE NCV11
#TEST,aSFR
:DISABLE "‘TEST Z2'* PULSES

MOV
CMP
BEQ

#4602, SGDDAT
$GDDAT , SBDDAT
TSTS56

MOV

012737 000402 001124
023737 001124 001126
001401
104020

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC

ERROR

@ADM, SBDDAT

*READ THE ADDRESS DATA MAKER

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

RESOLUTION = 5

: INCORRECT ADDRESS MAKER DATA

GAIN = 0

ZB ENABLE = 0

:;ti*tttttttttttttttfifittt"tt'tQtttttitt.'Qfi'fitt'*."tfifitti.ttttt

S*TEST 56

TEST ADDRESS MAKER

o RAARAR AR AR AR AN A AR AR

000010
004000
000014
002032

001160
167544
167536
167520

017737

167504

001126

052777
052777
042777

000002
000001
000002

BIS
BIS
BIC

001401

MATRIX MODE - RES = 5 GAIN = 1 2B ENABLE = 0
AR

AR AR AR

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

MOV
CMP

#25526 ., SGDDAT
$GDDAT . SBDDAT

:LOAD EXPECTED VALUE
*COMPARE EXPECTED TO READ

ERROR

BEQ

104020

AN AR A AR AR AR

#TESTZ,aSFR
#8IT0,aCSR
#TESTZ,aSFR

MOV

012737 025526 001124
023737 001126 001126

R AR

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR DEVICE
#TSTDMA! TSTCON,3SFR
“SET ‘TEST DMA AND CONTROL'’
#2032,aCSR
*LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

@ADM, SBDDAT

TSTS57

AR RARA AR AR A AR RAARAAAA AR

S*TEST 57

*READ THE ADDRESS DATA MAKER

;:BR IF SAME

RESOLUTION = 5
AR TR ARARAAR AR

TEST ADDRESS MAKER

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

A AR

AR A AR AR

ARk

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

:;tttfittttttttttttfittt."t't'tttttt.titt!tttt."ttifi.'ttttfitfitit'

012276

QI QI R

e S

SCOPE
MOV
MOV
MOV
MOV

000004
012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
004032
000002
000001
000002
167402

001160
167442
167434
167416
167420
167402
167404
001126

001124

001126

012737 052452

N
R

7ST56:

167522
167504
167506

VIS

012272
012274

000004
012737
012777
012777
012777

e R

e I

)

8 P RF R ERLEL
LIRIIFFINY

1776

012174
012176
012204
012212
012220

012376

023737
001401
104020

TS$T57:

001124

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,STIMES
;D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DEVICE
#TSTDMA | TSTCON,@SFR
*SET '‘TEST DMA AND CONTROL'‘
#4032 ,3CSR
:LOAD RESOLUTION, GAIN, 7B ENABLE VAL
#TESTZ,3SFR
*ENABLE '‘TEST 2'*'PULSES
#B1T0,aCSR
$SET ENABLE NCV11
#TESTZ,3SFR
:DISABLE "‘TEST Z'* PULSES
SADM, SBDDAT
*READ THE ADDRESS DATA MAKER

CMP
BEQ

$GDDAT , $BDDAT
TST60

MOV

ERROR

#52452 ,$GDDAT
20

:LOAD EXPECTED VALUE

:COMPARE EXPECTED TO READ
::BR IF SAME

RESOLUTION = 5

: INCORRECT ADDRESS MAKER DATA

GAIN = 0

ZB ENABLE = 1

CZNCCA NCVI
CZNCCA.PT

MACY11 27(654) B-AUG-78 15:05 PAGE 41
DIAGNOSTIC
160
TEST ADDRESS MAKER = MATRIX MODE - RES = &4 GAIN = 0 ZB ENABLE = 0

SEQ 0053

itttt'tttttt*Q'tttitt'tt"itQQt*ttttifit't.ttttt.i.i't'ttt'iQQQQ

'TEST 60

3
CONONVISWN—=O

b e
sl
b
il

axb aud cuib atd
b

anil
b

b
b
b

00 00 00 00 00 0o 0o OO 0o

1808

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

000004

012737
012777

012777

000010
004000

000014

001160
167340

TST60

167332

017737
012737
023737
001401
104020

000002
000001
000002

167300
000202
001124

SCOPE

MOV
MOV

#10,$TIMES
#CLRALL ,aSFR

MOV

#30,aCSR

MOV

012777 000030 167314
052777
052777
042777

TEST ADDRESS MAKER

MATRIX MODE - RES
= 4 GAIN= 0 ZB ENABLE = ¢

2222322223333 23333333 33332333333333333123
3223333332323 2232223d%22d2 2]

167316
167300
167302

BIS
BIS
BIC

001126
001124
001126

MOV
MOV
CMP
BEQ
ERROR

#TSTDMA!TSTCON,aSFR

:SET "‘TEST DMA AND CONTROL''

#TESTZ ,aSFR
#BI1T0,aCSR
#TESTZ ,aSFR

*ENABLE '‘TEST 2'*'PULSES
;SET ENABLE NCVI11
:DISABLE "TEST Z'* PULSES

@ADM, $BDDAT
#202,$GDDAT
$GDDAT , $BDDAT
TST61
20

:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

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

RESOLUTION = 4

1819

;:D0 10 ITERATIONS
;CLEAR DEVICE

GAIN = 0

ZB ENABLE = 0

:;ttfitttt**t**tttittitttttittttfitttt*Qtl*ifitttittt*tfitt*t.'t't*tfi

S*TEST 61
R

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

000004

012737
012777
012777
012777
052777

000010
004000
000014
002030
000002

001160
167236
167230
167212
167214

042777
017737
012737
023737

000002
167176
012726
001124

167200
001126
001124
001126

052777 000001

001401
104020

TEST ADDRESS MAKER

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

2232222222323 8233233222322 2233333233 3333333333233333333333323323323233
3]

t8761:

167176

SCOPE

MOV
MOV
MOV
MOV
BIS

#10,$TIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR DEVICE
#TSTDMA'TSTCON,aSFR
:SET "TEST DMA AND CONTROL''
#2030,aCSR
*LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
*ENABLE '‘TEST Z'' PULSES

BIC
MOV
MOV
CMP

#TESTZ,aSFR
@ADM, SBDDAT
#012726 ,$GDDAT
$GDDAT , $BDDAT

BIS

BEQ
ERROR

#BITO0,aCSR

1ST62
20

*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 = 4

GAIN = 1

2B ENABLE = 0

::ttttt**fitttttttttfitttttfitt'ttQfittitttttfitt*ttttitttttttittttttt

L*TEST 62

TEST ADDRESS MAKER

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

::tttttltttt*tt*tttttttttitttt.tt.tttttt'ittt.tltfi'ttifi'fittttttt*

000004

012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
004030
000002
000001
000002
167074

001160
167134
167126
167110
167112
167074
167076
001126

023737
001407

001124

001126

012737

104020

025252

TST62:

001124

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,$TIMES
::DO 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR DEVICE
#TSTDMA | TSTCON,aSFR
*SET '‘TEST DMA AND CONTROL'®
#4030,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
“ENABLE '°TEST 2'' PULSES
#BITO,aCSR
:SET ENABLE NCV11
#TESTZ,aSFR
*DISABLE 'TEST Z'* PULSES
DADM, SBDDAT
*READ THE ADDRESS DATA MAKER

CMP
BEQ

$GDDAT, $BDDAT
TST63

MOV

ERROR

#025252,$GDDAT
20

*LOAD EXPECTED VALUE

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

RESOLUTION = 4

GAIN = 0

7B ENABLE = 1

CZNCCA NCV11
CZNCCA.PT

MACY11 27(654)

DIAGNOSTIC
TEST ADDRESS MAKER
763

1853

2222322323333 233333323 332332323223333 2323332222322

T*TEST 63

1854

1864
1865
1866

1867

1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878

1879
1880
1881
1882
1883

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
167032
167024
167006

TEST ADDRESS MAKER

SEQ 0054
2ttt d

lddd

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

222222222222 223322233333 2223 333333233222 222 2233333ttt Rdtdsdss

T$T63:

167010
166772
166774
001126
001124
001126

104020

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
CMP
BEQ
ERROR

#10,$TIMES
#CLRALL ,aSFR

;:D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA!TSTCON,aSFR
#26,aCSR
#TESTZ ,aSFR
#81T0,aCSR
#TESTZ,aSFR
@ADM, $BDDAT
#0,$GDDAT

$GDDAT , $BDDAT
TST64

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

; COMPARE EXPECTED TO READ
;:BR IF SAME

RESOLUTION
= 3

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

ttttttt*tttfififittttttittttti.tfitttttt*ttttt*ttt*tttQ'tii'ttt'.t*

*TEST 64
2

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

166670
005252
001124

001160
166730
166722
166704
166706
166670
166672
001126
001124
001126

TEST ADDRESS MAKER

i22 2322222223332

75764:

SCOPE

MOV
MOV
MOV
MOV

BIS
BIS
BIC
MOV
MOV
CMP
BEQ
ERROR

104020

#10,8TIMES
#CLRALL ,@SFR

ittt

;:D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA'!TSTCON,aSFR
#2026 ,aCSR
#TESTZ ,aSFR
#B1T0,aCSR
#TESTZ ,aSFR
@ADM, $BDDAT

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

#5252 ,8GDDAT
$GDDAT , $BDDAT

TST65
20

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

23333223232223333 3323322223322

:LOAD EXPECTED VALUE
;COMPARE EXPECTED TO READ

;:BR IF SAME
:INCORRECT ADDRESS MAKER DATA
RESOLUTION = 3 GAIN = 1
7B ENABLE = 0

;:*tttfitttfi*ttt*tfi*tttttttttttt*tfifi'ttifitt'ttt*tfittti**tttttttfitt

tTEST 65

TEST ADDRESS MAKER

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

2223232222232 3333333333333 22323333 3223322333333 3322

000004

013212

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,8TIMES

2Rttt td]

::D0 10 ITERATIONS

#CLRALL ,a@SFR
#TSTDMA!TSTCON,aSFR
#4026 ,aCSR
#TESTZ ,aSFR
#BIT0,aCSR
#TESTZ,aSFR
@ADM, SBDDAT

: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

$GDDAT. SBDDAT

*COMPARE. EXPECTED TO READ

#12424,$GDDAT
TST66

::BR IF

RESOLUTION = 3

*LOAD EXPECTED VALUE

1855
1856
1857
1858
1859
1860
1861
1862
1863

C §
8-AUG-78 15:05 PAGE 42
MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 0

SAME

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

CZNCCA

NCV1T

CINCCA.PT

CONOWVISWN=O

il
il
il
i anl) i
ol
b

s
i
)
il ald
b

VOV VOV VOO0

cld cod

1904
1905
1906
1907

MACY11 27(654) B8-AUG-78 15:05 PAGE 43
DIAGNOSTIC
T66
TEST ADDRESS MAKER = MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE = 0
::.fittti't.fifi*".tI'Qfi"'tt't'..it..fifi.tfit..'..'.'l'it"".'t'...

S*TEST 66

TEST ADDRESS MAKER

MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE = (

;:t't'fifitfi.ti.*t't.Q*"i"t"fitfii*fit'.it'."i'tt'i"li.tii'.'i"'

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
104020

000010
004000
000014
000024
000002
000001
000002
166464
000000
001124

001160
166524
166516
166500
166502
166464
166466
001126
001124
001126

T§T66:

;

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
CMP

BEQ
ERROR

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
_
#TSTDMA | TSTCON,@SFR
*SET "‘TEST DMA AND CONTROL'
#24 ,aCSR
*LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
*ENABLE ''TEST 2'*'PULSES
#B1T0,aCSR
:SET ENABLE NCV11
#TESTZ,aSFR
:DISABLE 'TEST Z'* PULSES
@ADM, $BDDAT
*READ THE ADDRESS DATA MAKER
#0,$GDDAT
:LOAD EXPECTED VALUE
$GDDAT , SBDDAT
:COMPARE EXPECTED TO READ
TST67
20

::BR IF SAME
: INCORRECT ADDRESS MAKER DATA
RESOLUTION = 2 GAIN = 0 ZB ENABLE = 0

::tlttt*tt*'ttt"tit'i'tit'fiiti'*ifittfiitiQ'it't.fi*t*t't*ttttittt’

TXTEST 67

TEST ADDRESS MAKER

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

:;QttQQ**ti*t*itfit..t*tti"t'ifittittt'l'*lt'.tfittiififi*'itt'ttfi'lt

013316
013320
013326
013334
013342
013350
013356
013364

000004
012737
012777

000010
004000

001160
166422

012777
052777
052777
042777
017737
012737
023737

002024
000002
000001
000002
166362
002552
001124

166376
166400
166362
166364
001126
001124
001126

012777

001401
104020

000014

T§767:

166414

SCOPE
MOV
MOV

#10,STIMES
#CLRALL ,@SFR

MOV
BIS
BIS
BIC
MOV
MOV
CMP

#2024 ,aCSR
#TESTZ ,@SFR
#B1T0,aCSR
#TESTZ,8SFR
@ADM, $BDDAT
#2552, $GDDAT
$GDDAT , SBDDAT

MOV

;

BEQ
ERROR

::D0 10 ITERATIONS
: CLEAR DEVICE

#TSTDMA! TSTCON,aSFR

TST70
20

*SET "‘TEST DMA AND CONTROL''

:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
*ENABLE ''TEST Z'* 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 = 2

GAIN = 1

2B ENABLE = 0

::tttt*ttittttttttttfitttttttttttitfitQQtttiitttittt'ttitt't*ttt'ti

*TEST 70

TEST ADDRESS MAKER

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

:;t'tti*tfi.ti*tfitfi*ttfiti'tfii**t*i.tt'fifi*fii.fififitt*tififi**fiii'tt'tti

000004
012737
012777

012777

1953
1954

013502
013510
013516
013520

012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000

001160
166320

004024
000002
000001
000002
166260
005224
001124

166274
166276
166260
166262
001126
001124
001126

000014

T$T70:

166312

SCOPE
MOV
MOV

#10,STIMES
#CLRALL ,@SFR

::D0 10 ITERATIONS
:CLEAR DEVICE

MOV
BIS
BIS
BIC
MOV
MOV
CMP
BEQ
ERROR

#4024 ,aCSR
#TESTZ ,@SFR
#BIT0,ACSR
#TESTZ,aSFR
@ADM, $BDDAT
#5224 ,$GDDAT
$GDDAT , SBDDAT
1ST71
20

*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

MOV

#TSTDMA! TSTCON,asFR

RESOLUTION = 2

*SET '‘TEST DMA AND CONTROL''

GAIN = 0

7B ENABLE = 1

SEQ 0055

CZNCCA NCVI
CZNCCA PN
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975

E 5
MACY11 27(654) B8-AUG-78 15:05 PAGE 44
TEST ADDRESS MAKER = MATRIX MODE - RES = 1 GAIN = 0 ZB ENABLE = 0

DIAGNOSTIC

TM7

::ti'Qt.t'....t.'.'fi.ii"'tiit.ltQfit'fi"*Q.'.fi'fi'i..it.i.'t..'t"

S*TEST 71

TEST ADDRESS MAKER

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

;:t'.lfi.Qi'ti"‘"i'."t""iQt"fiitfi.Qit...fi'ltttt.tit.t'.i'tt.'

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

000004
012737
012777

000010
004000

001160
166216

052777
042777
017737
012737
023737

000001
000002
166156
000000
001124

166156
166160
001126
001124
001126

012777
012777
052777

001401
104020

000014
000022
000002

T§T71:

166210
166172
166174

SCOPE
MOV
MOV

#10,$TIMES
#CLRALL ,@SFR

BIS
BIC
MOV
MOV
CMP

#B1T0,3CSR
#TESTZ,aSFR
@ADM, SBDDAT
#0,$GDDAT
$GDDAT , SBDDAT

MOV
MOV
BIS

BEQ
ERROR

;

::D0 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA ' TSTCON,aSFR
#22 ,8CSR
#TESTZ ,@SFR

1ST72
20

*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

2B ENABLE = 0

;:t.it'tfi.Qt.tifittt..it't"'iit.ttt.tttt*it*ti'fittt.t‘t*ttitttifi'

PXTEST 72

TEST ADDRESS MAKER

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

;;'ttQ‘itQttfitfii.l"t'fi".'..'t‘t..ittfififiQtfi'tfi..ifi.tt"'.ittttt'

013624
013626
013634

013642
013650
013656

013664

013672

013700
013706
013714
013722
013724

000004

012737
012777

000010
004000

001160
166114

012777
052777
052777
042777
017737
012737
023737
001401

002022
000002
000001
000002
166054
001265
001124

166070
166072
166054
166056
001126
001124
001126

012777

000014

T§172:

166106

104020

SCOPE

MOV
MOV

#10,$TIMES
#CLRALL ,@SFR

::D0 10 ITERATIONS
;CLEAR DEVICE

MOV
BIS
BIS
BIC
MOV
MOV
CMP
BEQ

#2022,3CSR
#TESTZ,aSFR
#31T0,3CSR
HTESTZ,aSFR
@ADM, SBDDAT
#1265 ,$GDDAT
$GDDAT, $BDDAT
18173

*LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
*ENABLE ''TEST Z'' PULSES
*SET ENABLE NCV11
:DISABLE 'TEST Z'* PULSES
*READ THE ADDRESS DATA MAKER
*LOAD EXPECTED VALUE
*COMPARE EXPECTED TO READ
::BR IF SAME

MOV

ERROR

#TSTDMA | TSTCON,@SFR

*SET "‘TEST DMA AND CONTROL''

RESOLUTION = 1

: INCORRECT ADDRESS MAKER DATA

GAIN = 1

2B ENABLE = 0

::ttfii*ttt'titfi..t'.'fiti't*ttfi.tittfifi.Qfitttfifii.."t.ttt"t*ttfitfi'

S*TEST 73

TEST ADDRESS MAKER

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

:;fittttt*t.fii'fitttt'tt"'.'Qt'ttt.'i*‘tfit‘tifiiitfitt"t*ttttttfiit'

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

000004
012737
012777

000010
004000

001160
166012

012777
052777
052777

004022
000002
000001

165766
165770
165752

012777

042777

000014

000002

TST73:

166004

104020

002512
001124

#10,STIMES
#CLRALL ,aSFR

MOV
BIS
BIS

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

MOV

165754

017737 165752 001126
012737
023737
001401

SCOPE
MOV
MOV

001124
001126

MOV

MOV
CMP
BEQ

ERROR

::D0 10 ITERATIONS
:CLEAR DEVICE

#TSTDMA | TSTCON,@SFR

*SET ''TEST DMA AND CONTROL'’

#TESTZ,@SFR

*DISABLE ''TEST Z'* PULSES

@ADM, $SBDDAT

#2512 ,$GDDAT
$GDDAT , SBDDAT
1ST74
20

*LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
*ENABLE ''TEST 2'"'PULSES
*SET ENABLE NCV11

*READ THE ADDRESS DATA MAKER

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

RESOLUTION = 1

: INCORRECT ADDRESS MAKER DATA

GAIN = 0

ZB ENABLE = 1

SEQ 0056

CZNCCA NCVTT
CZNCCA.PT

2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036

MACY11 27(654)

DIAGNOSTIC

174

TEST ADDRESS MAKER

15:05

B8-AUG-78

)

PAGE 45

SEQ 0057

GAIN = 0

LIST MODE - ZB ENABLE = 0

:;t"tttfi'fit'.t.fi'ifi*'itt"t'.i'.ttfitfit.*ttfiitifitt'tt'i*t't.'.t'.

;*TEST 74

TEST ADDRESS MAKER

LIST MODE - ZB ENABLE = 0

::"t'Qtt'fitfit*.tttitttfi"i"tt‘tifi...*fifi*ttt.'t'.'tti'tittfl.!t.t

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

000004

012737
012777
012777
012777
052777
052777
0462777
017737

000010
004000
000014
000000
000002
000001
000002
165650

001160
165710
165702
165664
165666
165650
165652
001126

023737
001401
104021

001124

001126

TST74:

012737 003407 001124

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DEVICE
#TSTDMA | TSTCON,aSFR
*SET TEST 'DMA AND CONTROL''
#0,aCSR
:ENSURE LIST MODE
#TESTZ,aSFR
:ENABLE "“TEST 2'' PULSES
#BIT0,aCSR
:SET ENABLE NCV11
#TESTZ,aSFR
:DISABLE "‘TEST Z'* PULSES
@ADM, SBDDAT
:READ THE ADDRESS MAKER VALUE

CMP
BEQ
ERROR

$GDDAT, $BDDAT
1ST75
21

MOV

#3407 ,$GDDAT

:LOAD EXPECTED VALUE

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

JRESOLUTION 7 <DEFAULT WHEN ZB IS NOT ENABLED>

:;tttitktttttittttRtttit't'tttttt*tt*itl*titt*tt.fi'.t'fittttt'it't

S*TEST 75

TEST ADDRESS MAKER

LIST MODE - ZB ENABLE = 1

:;ttttfifiit.tt*lttfittttt‘it'ttt*i'*ttttiitttfi.t'ttfiliitt'ttttfifit!*

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

000004

012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401
104021

000010
004000
000014
004000
000002
000001
000002
165546
052452
001124

001160
165606
165600
165562
165564
165546
165550
001126
001124
001126

T§775:

GAIN = 0

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
CMP
BEQ
ERROR

#10,$TIMES
::D0 10 ITERATIONS
#CLRALL ,aSFR
; CLEAR DEVICE
#TSTDMA! TSTCON,@SFR
*SET TEST ‘DMA AND CONTROL''
#4000,aCSR
*ENSURE LIST MODE AND ZB ENABLED
HTESTZ,aSFR
*ENABLE "TEST Z'' PULSES
#B1T0,aCSR
:SET ENABLE NCV11
#TESTZ,aSFR
:DISABLE "‘TEST Z'* PULSES
RADM, SBDDAT
:READ THE ADDRESS MAKER VALUE
#52452 , SGDDAT
:LOAD EXPECTED VALUE
$GDDAT , SBDDAT
:COMPARE EXPECTED TO READ
TST76
::BR IF SAME
21
- INCORRECT ADDRESS MAKER DATA
;JRESOLUTION 5 <DEFAULT WHEN ZB IS ENABLED>

;;ttltttttfittlttttttittiIt"tiitttIt.t.ttitttttttiifit'ttt!ttt'ttt

S*TEST 76

GAIN = 0

TEST ADDRESS MAKER

LIST MODE - ZB ENABLE = 0

GAIN = 1

::tttttt.ttQfitfit't.titttt'i't'fi.t*iki*lttilttfi"fittfi!.titi'tt't"

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

000004

012737
012777
012777
012777
052777
052777

000010
004000
000014
002000
000002
000001

001160
165504
165476
165460
165462
165444

017737
012737
023737
001401

165444
127657
001124

001126
001124
001126

042777

104021

000002

165446

T§776:

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS-

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
ATSTDMA!TSTCON,@SFR
*SET TEST 'DMA AND CONTROL''
%2000,aCSR
:SET GAIN FLOP
#TESTZ,@SFR
*ENABLE ''TEST 2'' PULSES
#BITO,aCSR
*ENABLE THE NCV11

MOV
MOV
CMP
BEQ

@ADM, SBDDAT
#127657 ,$GDDAT
$GDDAT , $BDDAT
1177

BIC

ERROR

HTESTZ,@SFR

*DISABLE THE ''TEST 2'' 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

G 5
15:05
PAGE 46
27(654)
8-AUG-78
MACY11
DIAGNOSTIC
SECTION
LIST
MODE
TRANSFER
WORD
177
ONE
A
ENABLE

SEQ 0058

':tttttt'ti.ttfi"fifitt't"t't'lfit't'.iit'tttt'ttt.tfit'.tt"'tii't*

S*TEST 77
e

014336
014340
014346
014354
014362
014370
014376
014404
014412
014420
014426
014434
014436
014440
014442
014450

185177:

000040

ENABLE A ONE WORD TRANSFER

SECTION LIST MODE

2222222222323 2233333333233 33333 3333323233333 2323222323 2222 d00dRnddd

SCOPE

#40,$TIMES
#CLRALL ,@SFR

#125252.BUF0
#11110,30FF

;:D0 40 ITERATIONS
;CLEAR THE DEVICE

;PRIME TARGET BUFFER

;LOAD THE OFFSET VALUE WITH A NUMBER
sSET UP 1 WORD TRANSFER

#BIT0,aCSR

;LOAD BUS ADDRESS FOR RESULT
sJENABLE TEST CONTROL AND DMA FLOPS
;ENABLE DEVICE

F
0, aBAR
#BU

#TSTDMA!TSTCON,aSFR
#TESTZ ,aSFR
#TESTZ ,aSFR

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

010000

165306

#BIT12,aSFR

JALLOW 1 DMA TRANSFER

165264
004000
040200
001124

001126

aCSR,$BDDAT

001124
001126

#40200, SGDDAT
AT
, $BDDAT
$GDD
4%

;READ STATUS
JRESET THE DEVICE

014452

014454
014456
014464
014472
014500
014506
014510
014512
014514
014522
014530
014536
014540

165234

060002
001124

#CLRALL ,aSFR

165264

001126
001124
001126

4%:

36
TST100

@aBAR, $BDDAT
#BUF0+2,$GDDAT
AT
, $BDDAT
$GDD
1$

014542
014550
014556
014564
014566

017737
012737
023737

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

001401
104023

104037

165204

000000
001124

001126
001124
001126

1%:

aWCR, $BDDAT

#0,8GDDAT

3EDDAT.SBDDAT

23
001126

2%:

$GDDAT
a0FF ,$BDDAT
3%

001126
001124
001122
001126

3%:

0, SBDDAT
BUF

#3407, $GDDAT

0 . $BDADR
#BUF
$GDDAT, SBDDAT
§§r1oo

;LOAD EXPECTED
;TEST STATUS

;:BR IF EXPECTED

JUNEXPECTED STATUS AFTER A 1 WORD TRANSFER

;READ BUS ADDRESS
;LOAD EXPECTED
;COMPARE VALUES
;:BR IF SAME
:INCORRECT BUS ADDRESS VALUE
JAFTER A 1 WORD TRANSFER

;READ W.C. REGISTER
;LOAD EXPECTED VALUE
;COMPARE VALUES
;:BR IF SAME
;INCCRRECT WORD COUNT REGISTER VALUE
;AFTER A 1 WORD TRANSFER
:CLEAR THE EXPECTED VALUE
;READ 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
::BR IF SAME
:STATUS WAS OK BUT DATA WAS INCORRECT

[
Vol

CZNCCA NCVIT
CZNCCA.PT

CZNCCA

NCV11

CINCCA.PTT

DIAGNOSTIC

7100

MACY11 27(654)

ENABLE A 512 WORD TRANSFER

2111

014642
014644
014652
014660

012737
012777
012700

000040
004000
060000

2119
2120

014670
014674

020027
001373

062000

2123
2124
S}gg

014712
014720
8}2;%2

012777
052777
012737

001160
165076

2118 014664 012720 125252

2127
2128
2129
2130

014676
014704

012777
012777

177000
060000
000014
000001
001000

165036
165020
002004

000002
000002
010000
002004

165014
165006
165000

014764
014772
015000
015006

017737
012737
023737
001402

164756
040200
001124

001126
001124
001126

2138
2139
2140
2141
2142

015012
015014
015020
015026
015030

000465
005037
017737
001401
104006

2150
2151
2152
2153
2154
2155
2156

2158
2159
2160

2143
2144
2145
2146
2147
g}zg

2157

2161

2162
2163

014762

015010

#40,8TIMES
#CLRALL ,aSFR
#BUFQ,RO

001364

104036

ERROR

164716
001126
001124
001126

4%:

015066
015074
015102
015110
015112
015114
015122

017737
012737
023737
001401
104023
012737
012737

164660
000000
001124

001126
001124
001126

5%:

003407
060000

001124
001122

6%:

015136
015144
015146

023737
001401
104037

001124

001126

022737
001361

062000

015156
015164

062737

MOV
BIS
MOV

163766

000002

3$:

001126

7%:

001122

10%:

001122

#125252, (RO) +

RRAR

A RAAR AR RAAR AR

SECTION LIST MODE

;:D0 40 ITERATIONS
;CLEAR THE DEVICE
;LOAD BUFFER POINTER

;PRESET THE BUFFER WITH DATA

RO, #BUF 1
1%

;TEST IF DONE
;BR_IF NOT

#-512. ,aWCR
#BUF 0, aBAR

#TSTDMA!TSTCON,aSFR
#BIT0,aCSR
#512. ,$TEMP

WTESTZ,aSFR
#TESTZ,aSFR
#BIT12,aSFR
$STEMP

BNE
2%
;THE TRANSFER IS NOW COMPLETE
MOV
aCSR,$BDDAT
MOV
#40200, $GDDAT
cMP
$GDDAT , $BDDAT
BEQ
3%

004000
164710
062000
001124

015150

CMP
BNE

BIS
BIC
BIS
DEC

012777
017737
012737
023737
001401
104022

017737

MOV

MOV
MOV

001126

015130

R AR AR AR AR R

TST100: SCOPE
MOV
MOV
MOV

001124
164724

015032
015040
015046
015054
015062
015064

SEQ 0059

ENABLE A 512 WORD TRANSFER

165046
165042

052777
042777
052777
005337

2137

SECTION LIST MODE

;*TEST 100

1%:

014734
014742
014750
014756

2131
2132
2133
2134
2135
2136

H 5
PAGE 47

AR RRAA RN RRAR A AR
RRAR
AR KRR RRAR
AR AR RER ARRAR
IRRERRAE

2114
2115
2116
2117

2121
2122

15:05

IRRER AR R AR AR AR AR

2112

2113

8-AUG-78

;BR UNTILL DONE

;READ STATUS
;LOAD EXPECTED STATUS
: COMPARE DATA
;:BR IF EXPECTED STATUS

TST101
$GDDAT
a0F F ,$BDDAT
4%
6

MOV
MOV
CMP
BEQ
ERROR
MOV
MOV

aWCR, $BDDAT
#0,$GDDAT
$GDDAT, $BDDAT
6%
;:BR IF
23
: INCORRECT WORD
#3407, $GDDAT
#BUF 0, $BDADR

cMP
BEQ
ERROR

$GDDAT , $BDDAT
108
37

MOV

ADD

CMP
BNE

sENABLE TEST CONTROL AND DMA FLOPS
;ENABLE DEVICE
.
;LOAD THE COUNTER

;ENABLE "TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;ALLOW 1 DMA TRANSFER
sFINISHED ALL WORDS?

BR
CLR
MOV
BEQ
ERROR

MOV
MOV
MOV
cMP
BEQ
ERROR

sSET UP 512. WORD TRANSFER
;LOAD BUS ADDRESS FOR RESULT

JUNEXPECTED STATUS AFTER 512 WORD TRANSFER

;CLEAR EXPECTED
sREAD OFFSET REG.
;:BR IF CLEARED
JUNEXPECTED OFFSET REGISTER BIT SET
#CLRALL ,aSFR
;CLEAR THE DEVICE
@BAR, $BDDAT
;READ BUS ADDRESS
#BUF 1,8GDDAT
;LOAD EXPECTED BAR VALUE
$GDDAT , $BDDAT
; COMPARE VALUES
5%
. :BR IF SAME
22
s INCORRECT BUS ADDRESS VALUE AFTER A 1 WORD TRANSFER

@$B8DADR, $BDDAT

#2,$B8DADR

;JREAD W.C. REGISTER
;LOAD EXPECTED W.C. VALUE
: COMPARE VALUES
SAME
COUNT REGISTER VALUE AFTER A 1 WORD TRANSFER
;LOAD EXPECTED DATA
;LOAD STARTING ADDRESS

sREAD DATA WORD

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

;UPDATE POINTER

#BUF 0+1024. ,$BDADR
;TEST IF END OF BUFFER
$
;:BR IF NOT DONE

NCVIT
CZNCCA.PT
CINCCA

2164
2165

VERIFY "‘TIMEOUT'' FLOP SETS AND "‘CLR ALL'' CLEARS

:;Qtt!ttfittttitt'tt'ttttt"t'ttttttl.tttttt.ttttttttt!tttl'.t'ttt

2167
2168
2169
2170
217N

001160

TST101:

164552
164540

164526

010000

2186

2187

001124

NOP
NOP

001124

001126

Bég
N

NOP
NOP

001126

2189

004000
000200
164364
001124

164406
001124
001126
001126

015374

1%:

2%:

sCLEAR DEVICE
JLOAD W.C. REGISTER

;LOAD EXTENDED ADDRESS BITS

#160000,aBAR

;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE

#TSTCON'!TSTDMA ,aSFR
#16,9CSR

;SET TEST CONTROL AND DMA
:LOAD RESOLUTION TO VERIFY "'SFR INIT'' CLEARS

#81T0,aCSR
#TESTZ ,aSFR
#TESTZ ,aSFR

;ENABLE THE DEVICE
JENABLE "‘TEST Z2'' PULSES
;DISABLE "‘TEST Z'' PULSES

#BIT12,aSFR

;ALLOW

#BITI1S!BIT14!'BIT7,$GDDAT

BMI
ERROR
BR

1%
25
TST102

CMP
BEQ

aCSR,$BDDAT

$GDDAT ,$BDDAT
2%

ERROR
BIS
MOV

25
#CLRALL ,aSFR
#B1T7,8GDDAT

ERROR

MOV
CMP
BEQ

aCSR,$BDDAT
$GDDAT ,$BDDAT
1ST102

DMA TRANSFER

;LOAD EXPECTED

;READ STATUS REG.

;BR IF "‘TIMEOUT'® FLOP IS SET
"'TIMEOUT'' FLOP FAILED TO SET

;COMPARE VALUES
;:BR IF SAME

:"'TIMEOUT'' FLOP DID SET BUT FAILED TO GENERATE '
:GENERATE AN "'CLR ALL'® TO CLEAR TIMEOUT FLOP
;LOAD EXPECTED

JREAD STATUS
;s COMPARE VALUE
:;BR IF SAME

;"'CLR ALL'' FAILED TO CLEAR TIMEOUT FLOP

:;ttt.ttttttttttttttt.tt't't.ttfifitfifiitttiiitfitttt'.tt'.tti.ifit'it

s*TEST 102
SRR

015376
015400
015406
015414
015422
015430
015436
015444
015452
015460

;:D0 40 ITERATIONS

#CLRALL ,aSFR
#-1,aWCR

MOV
MOV

2188
2190
2191
2192

#3,390FF

BIS
BIS
Ség

164456

140200
164426

MOV

MOV
MOV

164476
164500
164472

2181
2182
2183
2184
2185

#40,8TIMES

MOV

164522
164504

2180

SCOPE

MOV

MOV
MOV

164530

2172
2173
2174
2175
2176
2177
2178
2179

2199
2200
2201

SEQ 0060

':Qt.tt.."l"ittifi'tfi"'t.tt'tt'tt.'iQtlttt'ttl.t.tttt'fl."'.."

;*TEST 101

2166

2193
2194
2195
2196
2197
2198

MACY11 27(654)
B8-AUG-78 15:05 PAGE 48
DIAGNOSTIC
o
VERIFY "'TIMEOUT"" FLOP SETS AND "'CLR ALL'' CLEARS IT

001160

164342
164330
164320
164316
164312

164274

164276
164270

164254

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

R A A AR A AR AR AN A AR

TST102: SCOPE
MOV

MOV
MoV
MoV
MOV
MOV

BIS

BIS
ség

NOP
NOP

2&;

A AR

#40,8TIMES

ARAR

AR AR AR AR AR AR AR AR AR

AR AR

::DO 40 ITERATIONS

#CLRALL ,aSFR
#-1,aWCR
#3,a0FF
#160000,aBAR
#TSTCON!TSTDMA,aSFR

;CLEAR DEVICE
;LOAD W.C. REGISTER
sLOAD EXTENDED ADDRESS BITS

#TESTZ ,aSFR
#TESTZ ,@SFR

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

#BI1T0,aCSR

#B1T12,aSFR
-

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

sENABLE THE DEVICE

;JALLOW 1 DMA TRANSFER

CINCCA

NCV11

CINCCA.PT

DIAGNOSTIC

1102

2218 015506 000240

2219
2220
2221
2222
2223
2224
2225
2226

015510
015516
015524
015526
015530
015532
015540
015542

012737
017737
100402
104025
000423
023737
001401
104025

2228
2229
2230
2231
2232

015552
015560
015566
015574
01557¢

012737
017737
023737
001401
104025

2227

2233

015544

052777

MACY11 27(654)

001124
001126

001124

001126

1%:

164204

2%:

100000

040200
164162
001124

015600
015602
015610
015616

000004
012737
012777
012777

000040
004000
177777

2243
2244

015646
015652

012746
012746

000000
015660

015660
015666
015670
015672
015674
015676

000002
012777
000240
000240
000240
000240
052777

2254
2255
2256
2257
2258
2259
2260
2261

015720
015722
015724
015726
015734
015736
015740
015742

000240
000240
000240
052777
000240
000240
000240
005077

gggz

015750

000401

015752
015754
015760
015766
015774

022626
005077
012777
013777
005077

2252
2253

2262

2265
2266
2267
2268
2269

015656

015704
015712

015746

052777
042777

104026

PAGE 49

001124
001126
001126

SEQ 0061

MOV
MOV
BMI
ERROR
BR
CMP
BEQ
ERROR

#BIT15.BIT14!BIT7,$GDDAT
;LOAD EXPECTED
aCSR,$BDDAT
;READ STATUS REG.
13
:BR IF 'TIMEOUT'*'FLOP IS SET
25
;"'TIMEOUT'® FLOP FAILED TO SET
TST103
HH
$GDDAT , $BDDAT
; COMPARE VALUES
2%
::BR IF SAME
2
25
;"'TIMEOUT'® FLOP DID SET BUT FAILED TO GENERATE

MOV
MoV
CMP
BEQ
ERROR

#BIT14!BIT7,$GDDAT
;LOAD EXPECTED
aCSR,$BDDAT
;READ STATUS
$GDDAT, $BDDAT
; COMPARE VALUE
TST103
:;BR IF SAME
25
;"'CLR TIMEOUT'' FAILED TO CLEAR TIMEOUT FLOP

BIS

#8I1T15,aSFR

;GENERATE AN ''CLR TIMEOUT'' TO CLEAR TIMEOUT FLOP

s*TEST 103

VERIFY "‘TIMEOUT'' INTERRUPT

TST103: SCOPE
MOV
MOV
MOV

#40,STIMES
#CLRALL ,aSFR
#-1,aWCR

012777
012777
012777

IRERRARAARARRERARR
AR AR AR AR AR AR RRAARRRRARRRR AR AR RERRRR AR AR R

2236
2237
2238
2239

2245
2246
2247
2248
2249
2250
2251

NOP

140200
164224

2234

015624
015632
015640

15:05

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

2235

2240
2241
2242

B-AUG-78

000003
160000
000014

001160
164140
164126

164116
164114
164110

015752

164104

000101

164042

000002
000002

010000

MOV
MOV
MOV

18:

164044
164036

164022

BIS
BIC

164000

163766
004000
001774
163774

163770
163776

MOV
MOV
RTI
MoV
NOP
NOP
NOP
NOP
BIS

2%:
3%:

NOP
NOP
NOP
BIS
NOP
NOP
NOP
CLR

Le
Lt

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

#3,90FF
#160000,aBAR
#TSTCON!TSTDMA,QSFR
#0,-(SP)
#1%,-(SP)

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

#2% ,aVECTAO

#BIT6!BITO,aCSR

;ENABLE THE DEVICE

#BIT12,aSFR

;ALLOW 1 DMA TRANSGFER

#TESTZ ,aSFR
#TESTZ ,aSFR

ERROR

aCSR
26
3%

cMP
CLR
MoV
MOV
CLR

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

;ENABLE "‘TEST 2'' PULSES
;DISABLE '‘TEST Z2'' PULSES

;CLEAR ENABLE
;"'TIMEOUT'' FAILED TO INTERRUPT
;:BR TO CLEAN UP
;CLEAN THE STACK

;CLEAR THE DEVICE
;RESET VECTOR

CZNCCA NCV1T
CZNCCA.PT

D IAGNOSTIC
T 104

MACY11 27(654)

8-AUG-78

15:05

PAGE 50

SEQ 0062

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

':tttttit"tt.t.titt.ti'ttItttt.t'Qt'it.tit"ltfi!l.'ttt*fittt.ittt

;*TEST 104
e

000004
012737
012777
023727
103450
012777

000040
004000
036402

001160
163740
002140

177777

163716

012777 177776 163712
005077

012777
012777
052777

052777
042777
052777

000240
000240
000240

016142
016144

012737
017737
023737
001401
104006

163702

000014
000016
000001

000002
000002
010000

000001
163616
001124

163702
163664
163656

163660
163652
163644

001124
001126
001126

2222222222223

T$T104: SCOPE

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16
333333 3332333333332

MOV

#40,STIMES

MOV

#177776,3BAR

MOV
CMP
BLO
MOV

CLR

MOV
MOV
BIS

BIS
BIC
BIS

NOP
NOP
NOP

MOV
MOV
CMP
BEQ
ERROR

#CLRALL ,@SFR
$LSTBK, #2140
TST105
#-1,3WCR

332322222ttt

ld)

::D0 40 ITERATIONS

;CLEAR THE DEVICE
:TEST IF ENOUGH MEMORY
::BR IF NOT ENOUGH MEMORY
;LOAD 1 WORD XFR

:LOAD LAST ADDRESS

A0FF

#TSTCON' TSTDMA,@SFR
#16,3CSR
#8170,aCSR

#TESTZ,aSFR
#TESTZ.@SFR
#B1T12,aSFR

#1,$GDDAT
®0FF , $BDDAT
$GDDAT , SBDDAT
TST105
6

222223

*ENSURE CLEARED EXTENDED ADDRESS BITS
:ENABLE CONTROLER
:ENABLE THE MODE
*ENABLE THE NCV11

*ENABLE "‘TEST Z'' PULSES
*DISABLE '‘TEST Z'* PULSES
:ALLOW 1 DMA TRANSFER

:LOAD EXPECTED VALUE
*READ ACUTAL VALUE
: COMPARE
::BR IF SAME
:EXTENDED ADDRESS BIT 16 FAILED TO SET

::tttfittt*.'filfit'.*lfi'tit'Qtt!it'.l*fi*'*t.tt.itfii'.*t*"fitt'fifittt

**TEST 105

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 17

::*tt'.tfittt.fi'fi.Qt*t't't."itfi*fi.t.itfitttfii't"fitfii*fii*t.tifitifii

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

016254

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

163550

000001
000014
000016
000001
000002
000002

163532
163532
163514
163506
163510
163502

177776

163544

010000

163466

000002
163440
001124

001124
001126
001126

T§T105: SCOPE

MOV
MOV
CMP

BLO

MOV

MOV
MOV
MOV
BIS
BIS
BIC
NOP
NOP
NOP
BIS
NOP
NOP
NOP
MOV
MOV
CMP
BEQ
ERROR

#40,STIMES
#CLRALL ,@SFR
$LSTBK , #6140
TST106
#-1,3WCR

#177776,3BAR

;:D0 40 ITERATIONS
;CLEAR THE DEVICE
*TEST MEMORY SPACE >100K
::BR IF NOT ENOUGH MEMORY

;LOAD 1 WORD XFR

#1,30FF
#TSTDMA! TSTCON,aSFR
#16,3CSR
#8170,3CSR
#TESTZ,@SFR
#TESTZ.@SFR

#B1T12,@SFR

#2,$GDDAT
20FF , $BDDAT
$GDDAT , SBDDAT
1ST106
6

:LOAD LAST ADDRESS

:LOAD EXTENDED ADDRESS BIT
:ENABLE TEST CONTROL
*ENABLE THE MODE
*ENAVLE THE DEVICE
*ENABLE '‘TEST 2'* PULSES
*DISABLE ''TEST 2'* PULSES

;ALLOW 1 DMA TRANSFER

:LOAD EXPECTED
:READ ACTUAL
: COMPARE
::BR IF SAME
;EXTENDED ADDRESS BIT 17 FAILED TO SET

CZNCCA

NCV1T

CZNCCA.PT

DIAGNOSTIC
1106
VERIFY

MACY11 27(654)

L 5
15:05__PAGE 51

B8-AUG-78

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

SEQ 0063

IRRRRRRARARRAERRRNRE
AR
R R RRARRRRRRRARRRARRRRRRRRARRRRRARARRR AR

*TEST 106

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

L
I
L T
T T T T T

016324
016326
016334
016342
016350
016356

001160

TST106: SCOPE
MOV

163414
163402
163376
163372
060000
163346

MOV
MOV
MOV
MOV
MOV
8IS
NOP
NOP

163342
163334

BIS
8IS
NOP
NOP

001126
001124
001126

MOV
MOV
CMP
BEQ

ERROR

#40,STIMES

;:D0 40 ITERATIONS

#CLRALL ,aSFR
#-1,aWCR
#BUF 0, 3BAR
#TSTDMA' TSTCON,@SFR
#7070,BUF0
#81T0,aCSR

;CLEAR THE DEVICE
;SET UP 1 WORD TRANSFER
:LOAD BUS ADDRESS FOR RESULT
“ENABLE TEST CONTROL AND DMA FLOPS
*PRESET DATA
:ENABLE DEVICE

#31T10,aSFR
#31712.8SFR

;SET "EVENT'' FLOP
:ALLOW 1 DMA TRANSFER

BUF0, $BDDAT
#-1,$GDDAT
$GDDAT , SBDDAT
157107

:READ DATA
:LOAD EXPECTED
:COMPARE VALUES
::BR IF SAME

: INCORRECT DATA VALUE FOR ‘EVENT'' MARK

;AFTER A"1 WORD TRANSFER

.Qt.ttttttt..t.t.t".""'.t.QtQfi..'.ttfitttfifitttfifl'fi."iittiiii

SATEST 107
2

016456

016474
016502
016510
016516
016524
016532
016534

016536
016540
016546
016554
016556
016560

016562

016570
016576
016606

000040

004000
177777
000014
007070
000001

001000
010000

060000
000000
001124

001160
163262
163250
163244
163240
060000
163214

163210
163202

001126
001124
001126

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

222233223323222323333233323333332333333233333333333333333332322323223323%}

157107: SCOPE

MOV
MOV
MOV
MOV
MOV
MOV

BIS
NOP
NOP
NOP

BIS
ség
NOP
NOP

MOV
MOV
CMP
BEQ

ERROR

#60,STIMES
::D0 40
#CLRALL ,aSFR
#-1,3WCR
#BUF 0, aBAR
#TSTDMA' TSTCON,@SFR
#7070 ,BUFQ

;CLEAR THE DEVICE
*SET UP 1 WORD TRANSFER
*LOAD BUS ADDRESS FOR RESULT
*ENABLE TEST CONTROL AND DMA FLOPS
*PRESET THE DATA

#31T9,aSFR
#81T12,@SFR

;SET "'TIME'* FLOP
:ALLOW 1 DMA TRANSFER

#31T0.3CSR

BUF 0, SBDDAT
#0,$GDDAT
$GDDAT , SBDDAT
1ST110

ITERATIONS

:ENABLE DEVICE

:READ DATA
*LOAD EXPECTED
:COMPARE VALUES
;:BR IF SAME

: INCORRECT DATA VALUE FOR "‘TIME'* MARK

JAFTER A 1 WORD TRANSFER

NCVIT
CINCCA.P11
CZNCCA

DIAGNOSTIC

T110

MACY11 27(654)

8-AUG-78

M5
15:05__PAGE 52

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

SEQ 0064

.-:Qtttttttt.ttt'tttitt'tt'ttttttttttttttlttttttttttttttttttttittt

:*TEST 110

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

.-:Qt'fittttt'ttttttttttttttttttttttttttttttttttttttttttttttttttttt

012737
012777
005737
001044
012777
012777
012777
012737

000040
004000
004016

001160
163130

177777
060000
000014
007070

163110
163104
163100
060000

052777 000001
000240

016712

016714
016716
016724
016732
016740
016742

000240
052777
052777
000240

000240
013737

012737
023737
001401
104040

000400

010000

060000
177777
001124

TST110: SCOPE

MOV
MOV
TST
BNE
MOV
MOV
MOV
MOV

163054

BIS

NOP

» NOP;
BIS
BIS.

163034

163044

NOP -

‘NOP ¢
MOV

001126
001124
001126

- MOV
CMP
BEQ
ERROR

#40,8TIMES
::D0 40 ITERATIONS
#CLRALL ,aSFR
:CLEAR THE DEVICE
DEADKW
sTEST IF NCV11 CLOCK IS PRESENT
TST111
::BR IF NOT
#-1,3WCR
:SET UP 1 WORD TRANSFER
:LOAD BUS ADDRESS FOR RESULT
0, aBAR
#BUF
#TSTDMA' TSTCON,@SFR
*ENABLE TEST CONTROL AND DMA FLOPS
#7070,BUF0
:PRESET THE DATA

#BIT0.aCSR

:ENABLE THE DEVICE

#B1T8,aKWCSR

:GENERATE CLOCK ST1 TO SET "EVENT'' FLOP

BUF 0, $BDDAT
#-1,8GDDAT
$GDDAT, $BDDAT
TST111
40

:READ BUFFER DATA
:LOAD EXPECTED DATA
: COMPARE
::BR IF EXPECTED
;CLOCK ST1 FAILED TO GENERATE EVENT FLAG
:CHECK THE M8026 TO M7952 JUMPERS

#81T12,3SFR

:ALLOW 1 DMA TRANSFER

::ttttttttttttttttttt.tit't't'ttttttttttttttttttt.t.fittttttttttti

S*TEST 1m

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

l'tttlttttttttt.tttttttttttttttttt'ttttttt.ttittt.lttttttttttttt

016744
016746.
016754
016762
016766
016770

012737

000040

012777

060000

012727
005737
L
012777

012777

012737

052777

005077

004000
004016
R
177777

16275 .. ..

000014

162744

007070
000001

162706

162774

162750

060000

162720

012777
012777
105777

177776
000011
162666

162704
162672

052777
000240
000240

010000

162674

012737
023737
001401
104040

060000

000000
001124

001126

100375

017066
017074
017102
017110
017112

001160

013737

rsr111

001124
001126

SCOPE

MOV

#40,STIMES . * ,;:DO 40 ITERATIONS

~MOV

#BUF0, 3BAR

MOV
TST
BNE
MOV
MOV~ . .

#CLRALL ,@SFR
DEADKW
TST112
#-1,3WCR

¥7070,BUFO

CLR

aKWCSR

MOV
MOV
TSTB
BPL

BIS
NOP
NOP

MOV

MOV
CMP
BEQ
ERROR

:CLEAR THE DEVICE
:TEST IF NCV11 CLOCK IS PRESENT
::BR IF NOT
< SET UP 1 WORD TRNSFER

#TSTDMA'TSTCON, asrn

MOV
BIS

#81T0,aCSR

#-2 ,3KWPSR
#11,3KWCSR
aKWCSR
1%

_«

"2LOAD 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

#BIT12,3SFR

:ALLOW 1 DMA TRANSFER

BUF0, $SBDDAT

:READ DATA

#0,8GDDAT
$GDDAT, SBDDAT
TST112
40

:LOAD EXPECTED
:COMPARE VALUES
::BR IF SAME
:CLOCK OVERFLOW FAILED TO GENERATE ‘‘TIME MARKS''
:CHECK THE M8026 TO M7952 JUMPERS

NCVIT
CINCCA.P11
CZNCCA

STIC
VERIFY

MACY11 27(654)

8-AUG-78

15:05

J*TEST 112
L

000040
004000
177777
000014
007070
000001

003000
010000

060000
000000
001124

SEQ 0065

"'SET TIME'' OVERRIDES ''SET EVENT'' DATA
DIRRERRRRRARRAAAARRAREARR

2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441

PAGE 53

001160
162624
162612
162606
162602
060000
162556

TST1i2: SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
Ség
NOP
NOP

162552

BIS

Bég

162544

NOP
NOP

MOV
MOV
CMP
BEQ

001126
001124
001126

ERROR

017244

VERIFY *'SET TIME'' OVERRIDES ''SET EVENT'' DATA
T

#40,STIMES
;:D0 40
#CLRALL ,aSFR
#-1,aWCR
#BUF0,aBAR
#TSTDMA!TSTCON,@SFR
#7070 ,BUF0
#BI1T0,aCSR

ITERATIONS
;CLEAR THE DEVICE
sSET UP 1 WORD TRANSFER
;LOAD BUS ADDRESS FOR RESULT
JENABLE TEST CONTROL AND DMA FLOPS
sPRESET THE DATA
;ENABLE DEVICE

#B8IT10!BIT9,aSFR

;SET "‘TIME AND EVENT'® FLOPS
sALLOW 1 DMA TRANSFER

#BIT12,aSFR

BUFO,$BDDAT
#0,SGDDAT
$GDDAT , $BDDAT
TST113

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

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

".'tttltltttfitt.'.t.titt'it‘titt*t.t.it"..Qfit.fi'ttt'*i'i'.fi.fitfi"

;*TEST 113

DO A ONE WORD MATRIX MODE TRANSFER

=CHECK FOR INCREMENT FUNCTION

22 1222322222233 22233233 2232322333333 3333333333233 33 2232 dd ittt itddd)

017246
017250
017256
017264
017270

017342
017350
017352
017354
017356
017364
017372
017400
017402

001160
162472
162452
162442
162444
162426
162430
162422

010000

060000
000001
001124

162406

001126
001124
001126

TST113: SCOPE

;

;:D0 40
#40,STIMES
#CLRALL ,@SFR
BUFO
#BUF 0, a0F F
#BI1T4!BIT1,aCSR
#TSTDMA!TSTCON,aSFR
#B1T0,aCSR
#TESTZ ,aSFR
#TESTZ ,aSFR

ITERATIONS
;CLEAR THE DEVICE
;CLEAR INITIAL INREMENT LOCATION
;LOAD INITIAL OFFSET REGISTER
;ENABLE MATRIX MODE
sSET TEST DMA AND CONTROL
;JENABLE THE DEVICE
;ENABLE ‘‘TEST 2'' PULSES
;DISABLE '‘TEST 2'' PULSES

zég

#BIT12,aSFR

;JALLOW 1 TRANSFER

NOP
NOP

MOV
MOV
CLR
MOV
MoV
MOV
BIS
BIS
Bég
N

NOP
NOP

MOV
MOV
CMP

BUF0,$BDDAT
#1,8GDDAT
$GDDAT , $BDDAT

ERROR

BEQ

TST114

;READ THE BUFO LOCATION
;LOAD EXPECTED VALUE
; COMPARE VALUES

;:BR IF SAME

; INCORRECT DATA IN MATRIX MODE
;IF DATA WAS 0O, THE ADDRESS ACCESSED WAS PROBLY WRONG
;IF DATA WAS NON ZERO, THE "‘INCR'' REGISTER IS STUCK TO A 1

CZNCCA NCVIT
CZNCCA.PT

2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490

8-AUG-78 15:05 PAGE 54
MACY11 27(654)
DI AGNOSTIC
114
VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH

SEQ 0066

:;'Qfitt'fittitfifififiifiittt"tttitttttttt.fi*fiti"tttttti'tttt'!.."t'

S*TEST 114

VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH

ttt'tQitQ*"t*tiitit*t"itttttii*i'fiQtt'tttttttttttttt.'tiitt'.

017404
017406

000004
012737

000040

001160

TST114

SCOPE

MOV

#40,$TIMES

;:D0O 40 ITERATIONS

CHECK F?g A "'CARRY’' INTO EACH BIT
000002-000001
000004-000003
000010-000007
000020-000017

000040-000037
000100-000077
g?g200-000177
017414
017422

012737
012737

017430
000002

001110
002004

017430
017436
017444
017452
017460
017466
017474
017500
017506
017514
017522
017530
017536
017544
017546
017550
017556
017564
017566
017574
017576
017604
017610

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

004000
060000
000024
000014
000001
002004
060000
000002
000002
010000

162320
162304
162274
162276
162260
060000

002004
060000
001124

001124
001126
001126

017737
032737
001407
012737

162172
020000

001126
001126

000024

001124

020000
002004

162152

104030

104031

1%:

162250
162242
162234

MOV
MOV

#1% ,SLPERR
#2 ,STEMP

;LOAD RETURN ADDRESS IF ERROR
;LOAD INITIAL VALUE

MOV

#CLRALL ,aSFR

;CLEAR THE DEVICE
;LOAD INITIAL OFFSET REGISTER
;ENABLE WORD MATRIX MODE
sSET TEST DMA AND CONTROL
;ENABLE THE DEVICE
;LOAD PRESET VALUE

MOV
MOV

F
F
O, 0F
#BU
#BIT4!BIT2,aCSR

BIS
MOV
DEC
BIS
BIC
BIS
MOV

#B8IT0,aCSR
$TEMP,BUFO
BUFO

3$:

:TO EXPECTED -1
;ENABLE '‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES

HTESTZ,aSFR

#TESTZ ,aSFR

sALLOW 1 TRANSFER
;LOAD TYPEOUT EXPECTED

BIT
BEQ

#BIT12,aSFR
$TEMP, $GDDAT
BUFO,$BDDAT
, $BDDAT
$GDDAT
2%
30
dCSR, $BDDAT
#B1T13,$BDDAT
3%

ERROR
BIS

;?IT&!BITZ.SGDDAT

sTEST FOR UNEXPECTED CELL OVERFLOW
;BR IF NOT
;LOAD THE EXPECTED TYPEOUT

#BI1T13,3SFR

;TRY TO CLEAR THE FLAG

MOV

2%:

#TSTDMA!TSTCON,aSFR

CMP
BEQ
ERROR

MOV

ASL

BNE

STEMP
1%

;JREAD THE BUFO LOCATION

; COMPARE VALUES
;08 IF SAME

s INCORRECT DATA IN THE INCREMENT REGISTER
sREAD STATUS

JUNEXPECTED ''CELL OVERFLOW'®

;CHANGE THE EXPCTED
;BR IF MORE DATA BITS

STATUS

CZNCCA NCVIT
CINCCA.PT

DIAGNOSTIC

T115

MACY11 27(654)

15:05

8-AUG-78

PAGE 55

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

SEQ 0067

":I’i'titttitt.fi'tttitti'ttifittt'.tt'tttt.tttiti.'*it!*it"fi'*itt'i

;*TEST 115

CHECK FOR LOW BYTE ‘‘INC OVFL'' TO SET CELL OVERFLOW AND ‘‘CLR CELL'" 7O CLE

.'.'ttttt'tQtt."'!*t.tttt"'ttttttil'i*fittttttitfiit*tttti.i"it*.t'

017612
017614
017622
017630
017634
017640
017646
017654
017662
017670
017676
017704
017706
01771C
017712
017720
017726
017734
017736
017740
017742
017750
017756
017764
017766

TST115: SCOPE

162072
162074

MOV
MOV
CLR
CLR
MOV
MOV
MOV

;:D0 40 ITERATIONS
#40,8TIMES
;CLEAR THE DEVICE
#CLRALL ,aSFR
sCLEAR WC
aWCR
:CLEAR BAR
aBAR
:LOAD INITIAL OFFSET REGISTER
#BUF 0, a0F F
#BIT4!BIT1,aCSR
:ENABLE BYTE MATRIX MODE
sSET TEST DMA AND CONTROL
#TSTDMA!TSTCON,aSFR

000002

162052

BIC

#TESTZ ,aSFR

000377
000200

060000
060001

012737
012777
005077
005077
012777
012777
012777

000040
004000
162116
162114
06
000022
000014

001160
162126

042777

112737
112737

162102

BIS
BIS

052777 000001 162056
052777 000002 162060

000240
000240
000240

052777
000240
000240
000240

017737
012737
023737
001401

010000

162000
020022
001124

NOP
NOP
NOP

MovB
MovB
BIS

162022

NOP
NOP
NOP

001126
001124
001126

017770
017776
020004
020012
020020
020022

052777

020024
020032
020040
020046
020050

017737

020000

161760

161744

001126

023737
00" 01

001124

001126

013737

060000

001126

023737
001401
104031

001124

001126

1%:

;SET LOW BYTE OF BUFO LOC. TO BYTE =1
;SET HIGH BYTE OF BUFO TO KNOWN VALUE
sJALLOW 1 TRANSFER

#BIT12,aSFR

sREAD STATUS
aCSR, $BDDAT
#BIT13!BIT4!BIT1,$GODAT ;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

BIS

#B1T13,aSFR

;GENERATE ''CLR CELL"'

MOV

#8174 'BIT1,$GDDAT

:LOAD EXPECTED

MOV

CMP
BEQ

104031

ERROR

100377 001124

#377 ,BUFQ
#200,BUF0+1

:DISABLE *‘TEST Z'* PULSES

;NOW GENERATE ‘''CLR CELL'' TO CLEAR CELL OVERFLOW FLOP

012737 000022 001124

012737

:ENABLE THE DEVICE
:ENABLE "TEST Z'' PULSES

MOV
MOV
CMP
BEQ

104031

#BI1T0,aCSR
HTESTZ ,aSFR

aCSR, SBDDAT

$GDDAT , $BDDAT
2%

;NOW VERIFY THE BYTE DATA CELL

2%:

MOV

BUFQ,$BDDAT

CMP
BEQ
ERROR

$GDDAT, $BDDAT
TST116
31

MOV

#100377,$GDDAT

:READ STATUS

: COMPARE VALUES
;:BR IF SAME

;"'CLR CELL'' FAILED TO CLEAR '‘CELL OVFL'' FLOP
sREAD DATA

LOAD EXPECTED

COMPARE
;:BR IF SAME

;OVERFLOW FROM INC. REG. FAILED TO INHIBIT

:"'INC CNT'' FROM CHANGING THE DATA OR

:"'CSR BYTE CELLS'* FAILED TO INHIBIT ''INC ENA HI''

CZNCCA

NCVIT

CINCCA.PT

2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583

259%

2597
2598
2599
2600
2601
2602
2603

T116

MACY11 27(654)

B-AUG-78

222222228232333232333333332333333333333333333333333333333322323223323)]

SCOPE

012777
012777
012777

060000
000024
000014

161642
161632
161634

MOV
MOV
MOV

052777
vec 7?7

000002
000002

161620
161612

BIS
BIC

177777

060000

161660
161652

052777 000001

052777

073000

017737
012737

161546
020024

000240
000240
000240

020216
020220

TST116

001160
161666

012737

023737
001401

001124

161616

052777

004000

161526

012737
023737

000200
001124

001124
001126

020256
020264
020272
020300
020302

013737

001401

161512 001126

104031

012737
023737
001401
104031

BIS

#BIT0,aCSR

NOP
NOP
NOP

001126

177777
001124

001126

001124
001126

;:D0 40 ITERATIONS
:CLEAR THE DEVICE

#BUF 0, a0FF
#BIT4'BIT2,aCSR
#TSTDMA' TSTCON,aSFR

:LOAD INITIAL OFFSET REGISTER
:ENABLE MATRIX MODE
:SET TEST DMA AND CONTROL

#TESTZ,aSFR
#TESTZ,aSFR

;ENABLE “'TEST Z'' PULSES
*DISABLE '‘TEST 2'' PULSES

#-1,BUFO

#BIT12,aSFR

*ENABLE THE DEVICE

:SET BUFO LOC. TO WORD =1
;ALLOW 1 TRANSFER

MoV
MOV

aCSR, $BDDAT
:READ STATUS
#BIT13'BIT4'BIT2,$8GDDAT :LOAD EXPECTED STATUS

BEQ

CMP

$GDDAT, $BDDAT

:COMPARE VALUES

::BR IF SAME

ERROR

:"'CELL OVERFLOW'' FLOP FAILED TO SET

BIS

#CLRALL ,@SFR

:GENERATE '‘CLR ALL''

MOV
CMP

#81T7,$GDDAT
$GDDAT, $BDDAT

*LOAD EXPECTED
:COMPARE VALUES

:NOW GENERATE '‘CLR ALL'' TO CLEAR CELL OVERFLOW FLOP

18%:

MOV
BEQ

ERROR

060000

#.0,8TIMES
#CLRALL ,@SFR

@ABAR
awCtR

BIS

aCSR, $BDDAT
2%

:NOW VERIFY THE WORD CELL DATA

2%:

MoV

BUF 0, $SBDDAT

ERROR

MoV
CMP
BEQ

SEQ 0068

CHECK FOR WORD "'INC OVFL'' TO SET CELL OVERFLOW AND ‘‘CLR ALL'' TO CLEAR IT

CLR
CLR

MoV

001126
001124

020222
020230
020236
020244
020252
020254

MOV
MOV

NOP
NOP
NOP

161570

104031

017737

PAGE 56

2222222223233 3333333323332333323232333333232333333232333333332332323232232322]

000040
004000

000240
000240
000240

012737
012777

005077
005077

15:05

CHECK FOR WORD “'INC OVFL'' TO SET CELL OVERFLOW AND '‘CLR ALL'' TO CLEAR IT
'TEST 116

2584
2585
2586

2587
2588
2589
2590
2591
2592
2593
259
2595

DIAGNOSTIC

#-1,8GDDAT
$GDDAT , $BDDAT
TST117

*READ STATUS
::BR IF SAME

:"'CLR ALL'' FAILED TO CLEAR ''CELL OVFL'' FLOP

:READ DATA

:LOAD EXPECTED
: COMPARE
::BR IF SAME

“CZNCCA

NCVIT
CZNCCA.PT

8-AUG-78 15:05
MACY11 27(654)
DIAGNOSTIC
Tz
CHECK FOR "'CELL OVERFLOW'' INTERRUPT
R

E 6
PAGE 57

SEQ 0069

2222233333333 3333333323332 23 222332333232 232322323232322 222220220 Rdsdd

S*TEST 117

CHECK FOR "'CELL OVERFLOW'' INTERRUPT

223233322333 3333233 3323333233333 3332333332332 33322323220R0 2R

000040
004000
161426
161420
060000

012737
012746
012746

177777
000000
020424

060000

012777
052777
000240
000240
000240

020452
010000

161344
161316

000240
000240
000240

104032
000414
022626
017737
012737
023737
001401

020502
020510
020516

001160
161434

012737
012777
005077
005077
012777
012777
012777
052777
052777
042777

104031

012777
013777
005077

000014
000001
000002
000002

161266
020264
0011246
004000
002000
161256

7ST117: SCOPE
MOV
MOV
CLR

CLR

161410
161400
161402
161364
161366
161360

001126
001124
001126
161246
161260

MOV
MOV
MOV
BIS
BIS
BIC
NOP
NOP
NOP
MOV
MOV
MOV
1%:

2%:

3%:

RTI

MOV
BIS
NOP
NOP
NOP
ERROR
BR
CMP
MOV
MOV
CMP
BEQ
ERROR
MOV
MOV

CLR

#40,8TIMES
#CLRALL ,aSFR
aBAR
aWwCR

2R 2

;:D0 40 ITERATIONS
;CLEAR THE DEVICE

F
F
0, a0F
#BU

#B1T5!B1T14!BIT2,aCSR
#TSTDMA!TSTCON,aSFR

#BIT0,3CSR

#TESTZ,aSFR
#TESTZ ,aSFR

;LOAD INITIAL OFFSET REGISTER
sENABLE INTR. AND MATRIX MODE
sSET TEST DMA AND CONTROL
;ENABLE THE DEVICE
;ENABLE ''TEST Z'' PULSES
;DISABLE ''TEST Z'' PULSES

#-1,BUF0
#0,-(SP)
#1%,-(SP)

;SET BUFO LOC. TO WORD =1

#2% ,avVECTBO

;LOAD RETURN VECTOR
JALLOW 1 TRANSFER

#BIT12,aSFR

32
3%

(SP)+,(SP)+
aCSR, $BDDAT

:"'CELL OVERFLOW'®' FAILED TO CAUES AN INTERRUPT

;:BR TO CLEAN UP

;READ STATUS

IT2,
#81T13'BIT7!'BITS!BIT4!B$GDDAT
ggooAr.saooAr
31

#CLRALL ,aSFR

VECTB1,aVECTBO
aVvECTB1

::BR IF

; COMPARE VALUE

:LOAD EXPECTED

“ACTIVETM CLEARED

:"ACTIVE'' FAILED TO CLEAR

:CLEAR THE DEVICE
:RESET THE VECTORS

2641
2642
2643
2644
2645
2646
2647
2648
2649
2650

MACY11 27(654) B8-AUG-78 15:05
DIAGNO STIC
7120
VERIFY CORRECT BR LEVEL THE NCv=11
e

2222223333323 32233233

;*TEST 120

PAGE 58

SEQ 0070

32323333323232 2333323223222 222322222

2Rt RR

)

VERIFY CORRECT BR LEVEL THE NCv=11

::t'QQtttittttttttttttti't'ttt't!ttttttttt'li't.tttt.tttt'ttt.ttt

020522

000040
002002
020544

001160

004000
020746
000340

161204
161216
161212

060000
000064
000014

161144
161134
161136

161162
161154

177777
000001
000002
000002

010000

TST120:

1%:

060000
161112
161114
161106

020754

MOV
RTI
MOV
MOV
MOV
CLR
CLR
MOV
MOV
MOV

MOV
BIS
BIS
Eég

161072

020736
3%:

JENABLE 1

MOV
SuB
TST
BEQ
CLR

BRLEV,RO
#40,R0
NLSIT1
2%
RO

:GET CURRENT BR LEVEL
:AND MAKE IT 1 LEVEL LOWER
sTEST IF LSI-11 CPU
;BR IF NOT
;LOAD BR LEVEL 0

MOV
MOV

RO,-(SP)
#3%,-(SP)

;PUSH ADJUSTED BR LEVEL
;PUSH RETURN ADDRESS

MOV

RTI
zgg

ERROR
B8R

020746
020750
020752

022626

020754
020756
020764
020772

022626

#20% ,aVECTBO

42
21%

TRANSFER

:RELOAD TO EXPECTED VECTOR

;LOWER CPU BR LEVEL

:NCV11 FAILED TO INTERRUPT = INCORRECT NCV11 BR LEVEL?
;:BR TO CLEAN-UP

JUNEXPECTED INTERRUPT WITH BR LEVEL INDICATED
10%:

104042

000401

012777
013777
005077

JINIT THE LOW Z COUNT
aBAR
aWCR
sINIT THE HIGH Z COUNT
#BUFO,Q0FF
:PRIME THE OFFSET REGISTER
#64 ,9CSR
:SELECT INTR. AND MATRIX MODE
#TSTDMA'TSTCON,aSFR
;MAINT. MODE

#BIT12,aSFR

ség

2%:

#340,aVECTB1

;PRIME THE TARGET LOCATION
JENABLE THE NCV-=11
:ENABLE "‘TEST Z2'' PULSES
:DISABLE "‘TEST Z'' PULSES

NOP
NOP
NOP
NOP
NOP

161050

#40,8TIMES
;:D0 40 ITERATIONS
BRLEV,=(SP)
;PUSH THE EXPECTED BR LEVEL ON STACK
#1%,-(SP)
:PUST THE RETURN ADDRESS ON STACK
:FAKE AN INTERRUPT TO BE LSI=11 AND PDP-11 COMPATABLE
#CLRALL ,aSFR
;CLEAR THE DEVICE
#10%,avECTBO
;LOAD UNEXPECTED INTERRUPT RETURN

#-1,BUF0
#BI1T0,aCSR
#TESTZ ,aSFR
#TESTZ ,aSFR

NOP
NOP

002002
000040
003354

020710
020714
020716
020720
020726
020730
020734
020736
020740
020742
020744

SCOPE

MOV
MOV

004000
002000
161002

160772
161004

CMP

ERROR
BR

(SP)+,(SP)+

42
21%

JEXPECTED INTERRUPT DID OCCUR
CMP
(SP)+,(SP)+

20%:

21%:

MOV
MOV

(LR

#CLRALL ,aSFR
VECTB1,aVECTBO

aVECTB1

:CLEAN THE STACK

:NCV11 INTERRUPTED ON AN INCORRECT BR LEVEL
;:BR TO CLEANUP
sCLEAN THE STACK

;CLEAN THE DEVICE
;RESET THE VECTOR

TMTM

CZNCCA NCVIT
CINCCA.PT

2695
2696
2697
2698
2699
2700
2701
2702
2703
2704

2705

2706

2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725

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

001160
160742
160726
160726
160710
160702
160704
160676

2222222333332 3223323323333 232333 3333223332223 322222220

2222222323233 3333323332323 32323233333

T$1121: sceps

160010

001124

#100,$TIMES
#CLRALL ,aSFR

#BIT4!BIT2,aCSR

#B1T7T0,aCSR

;:DO 100 ITERATIONS
;CLEAR THE DEVICE

sSET 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

@$83DADR, $BDDAT

;READ THE ACTUAL DATA

$GDDAT ,$BDDAT
TST122

222222233223 323333333 3333323232333

LRTEST 122

;LOAD THE OFFSET REG.

#TESTZ,aSFR
#TESTZ ,aSFR
a#60000
#BIT12,aSFR
#60000, $BDADR
#1,8GDDAT

BEQ
ERROR

= 13

2323333232233 23322282222233RRRdRl

#TSTDMA!TSTCON,aSFR

001122
001124
001126
001126

2222 2dddd

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

#60000, a0F F

160664

000001

SEQ 0071

TRTEST 121
020776
021000
021006
021014
021022
021030
021036
021044
021052
021060
021064
021072
021100
021106
021114
021122
021124

8-AUG-78 15:05 PAGE 59
MACY11 27(654)
DIAGNOSTIC
= 13
mai
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

;LOAD EXPECTED DATA

; COMPARE

;:BR IF SAME

:OFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 60000
3333222332223 3222232 23

sttt dtddd

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 12

2222222232323 2332333323333 3333 3333323323223 3332323233233 222223 dddd)

021126
021130
021136
021144
021152
021160
021166
021174
021202
021210
021214
021222
021230
021236
021244
021252
021254

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

TST122:

SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

#100,$TIMES
::D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#70000,a0F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
sSET TEST DMA AND CONTROL

#BI1T4!BIT2,aCSR
#B1T0,aCSR
H#TESTZ ,aSFR
#TESTZ ,aSFR
a#70000
#BIT12,aSFR
#70000, $BDADR
#1,8GDDAT

@$8DADR , $BDDAT
$GDDAT ,$BDDAT
TST123
33

sSELECT MATRIX WORD MODE
;ENABLE NCV11
;ENABLE "TEST 2'' PULSES
;DISABLE '‘TEST Z'' PULSES

;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

sREAD THE ACTUAL DATA
: COMPARE
::BR IF SAME
;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 70000
-

CZNCCA NCVT1T
CZNCCA.PT

CZNCCA NCVIT
CZNCCA.PI

2737
2738
2739
2740
2741

MACY11 27(654)
B8-AUG-78 15:05 PAGE 60
DIAGNOS TIC
T12 3
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 11
e

SEQ 0072

2222232332323 2332233333333 23232322323333 3223322232232 233223 2Rt ddttddl

LRTEST 123

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 11

;:ttttttt.*"'*lttt.ttit"'ttttfittttfit.'tfitttt*ttt't.tttttttt*.*'

021256
021260
021266
021274
021302
021310
021316
021324
021332
021340

000100

001160
160462

TST123: SCOPE

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

160446
160446
160430
160422
160424
160416
160404

001122
001124
001126
001126

#100,$STIMES

;:D0 100 ITERATIONS

#CLRALL ,aSFR
#64000,a0F F
#TSTDMA!TSTCON,aSFR

;CLEAR THE DEVICE
;LOAD THE OFFSET REG.
sSET TEST DMA AND CONTROL

#TESTZ ,aSFR
#TESTZ,aSFR
a#64000
#BIT12,3SFR

;ENABLE '‘TEST Z'' PULSES
;DISABLE '‘TEST 2'' PULSES
;CLEAR THE TARGET LOCATION
sALLOW 1 WORD TRANSFER

#BI1T4!BIT2,a(SR
#BI1T0,aCSR

#64000, $BDADR
#1,$GDDAT

@$8DADR, $BDDAT
$GDDAT , $BDDAT
TST124

;SELECT MATRIX WORD MODE
;ENABLE NCV11

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

sREAD THE ACTUAL DATA

: COMPARE
;:BR IF SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 64000

::QttIttfittttttfitttttQit'titfiltfi'.i'tttQtt.fifiltt*ttt'ttfiittt.*fiit

;*TEST 124

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 10

::tit'tttttttttttttttttt'tt'ttt**tfitfifit*tt'.itt'tfit!ittfittittttt*

000100
004000
062000
000014

001401
104033

001124

001160

160332
160316
160316
160300
160272
160274
160266

160254
001122
001124
001126
001126

TST124:

SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

#100,STIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#62000, a0F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
sSET TEST DMA AND CONTROL

#BIT4!BIT2,aCSR
#81T0,aCSR
#TESTZ ,aSFR
#TESTZ ,aSFR
a#62000
#81T12,aSFR

sSELECT MATRIX WORD MODE
;ENABLE NCV11
;ENABLE '‘TEST Z'' PULSES
:DISABLE "‘TEST Z'' PULSES
:CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER

@$BDADR , $BDDAT

;READ THE ACTUAL DATA

#62000, $BDADR
#1,8GDDAT
$GDDAT , $BDDAT
TST125

:LOAD EXPECTED ADDRESS
:LOAD EXPECTED DATA

; COMPARE
;:BR IF SAME

:OFFSET INPUT TO MATRIX MUX. SELECTED
:THE WRONG ADDRESS - EXPECTED ADR. WAS 62000

NCV11
CZNCCA.PTT
CZNCCA

2779
2780
2781
2782
2783

MACY11 27(654) B8-AUG-78 15:05 PAGE 61
DIAGNOSTIC
1125
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 09
e

SEQ 0073

2222283322332 232333333 23233333223233333 2322333222333 2323223322222222ddRRd
s

s*TEST 125

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 09

TST125: SCOPE
MOV
MOV
MOV
MOV

#100,$TIMES
;:DO 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#61000,a0F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
sSET TEST DMA AND CONTROL

;:t't'tt'ttt..t'l'tititt'tititt.titttQtitfit..t*t..'ilt.tfi"tfi'ttt

000004
012737
012777
012777
012777

000100
004000
061000
000014

001160
160202
160166
160166

005037
052777
012737
012737
017737

061000
010000
061000
000001
157250

160124
001122
001124
001126

012777
052777
052777
042777

023737
001401
104033

000024
000001
000002
000002

001124

160150
160142
160144
160136

001126

MOV
BIS
BIS
BIC

CLR
BIS
MOV
MOV
MOV

CMP
BEQ
ERROR

#BI1T4!BIT2,aCSR
#8I1T0,aCSR
#TESTZ ,aSFR
#TESTZ,aSFR
a#61000
#BIT12,aSFR
#61000, $BDADR
#1,8GDDAT
@$BDADR, $BDDAT
$GDDAT , $BDDAT
TST126
33

sSELECT MATRIX WORD MODE
;ENABLE NCV11
;ENABLE '‘TEST 2'' PULSES
;DISABLE '‘TEST Z'' PULSES

;CLEAR THE TARGET LOCATION
sALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
sREAD THE ACTUAL DATA

. COMPARE
;:BR IF SAME
;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 61000

::tt'itt.tttfitttttt*t'tt"tttfififitfi'tt'fittifi.fitt'tt'ti.tt'it.tQti'

;*TEST 126

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 08

::*ttttt..fit*tttt**ttttt'ttitttfitfiit'ttti*fi!.'*fitt*itt.tittt'tttt

000004

012737
012777

000100
004000

001160
160052

012777
012777

000014
000024

160036
160020

012777

052777
052777
042777
005037

052777

012737
012737
017737
023737
022014

001401

104033

060400
000001
000002
000002

060400

010000

060400
000001
157120
001124

160036
160012
160014
160006
157774

001122
001124
001126
001126

TST126: SCOPE

MOV
MOV

#100,$TIMES
#CLRALL ,aSFR

MoV
MOV

#TSTDMA!TSTCON,aSFR
#B1T4!BIT2,aCSR

MOV
BIS
BIS
BIC

CLR

BIS

#60400,0F F

;LOAD THE OFFSET REG.

sSET TEST DMA AND CONTROL
sSELECT MATRIX WORD MODE

#BI1T0,aCSR
#TESTZ,aSFR
#TESTZ ,aSFR

;ENABLE NCV11
sENABLE "‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES

#BI1T12,aSFR

;ALLOW 1 WORD TRANSFER

a#60400

MOV
MOV
MOV
CMP

#60400, $BDADR
#1,8GDDAT
@$8DADR, $BDDAT
$GDDAT , $BDDAT

ERROR

BEQ

::D0 100 ITERATIONS
;CLEAR THE DEVICE

T1ST127

;CLEAR THE TARGET LOCATION
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
sREAD THE ACTUAL DATA
. COMPARE

;:BR IF SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS = EXPECTED ADR. WAS 60400

J 6
8-AUG-78 15:05 PAGE 62
MACY11 27(654)
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 07

CZNCCA NCVI
CZNCCA.PI

STIC

2222223232333

TRTEST 127

SEQ 0074

3332333323233 2332332333 3232222332323 23223322 2

2dddddtl

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 07

':tttttfit'ti..*tttttttt"'tttttttittttlttfitttttttttittttittt..t"

022016
022020
022026
022034

001160
157722
157706
157706
157670
157662
157664

7S$T127: SCOPE
MOV

MOV
MOV
MOV
MOV

BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

157656

022142
022144

052777
012737
012737
017737
023737
001401
104033

157644

001124

001122
001124
001126
001126

#100,$TIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#60200,a0F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
;SET TEST DMA AND CONTROL
#BIT4!BIT2,aCSR
sSELECT MATRIX WORD MODE

#BI1T0,aCSR

#TESTZ,aSFR
#TESTZ ,aSFR
a#60200
#BIT12,aSFR

#60200, $BDADR
#1,8GDDAT
2$8DADR, $BDDAT
$GDDAT , $BDDAT
TST130

JENABLE 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

:OFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 60200

2222323232233 3333333333 3233323233 3333233332332 333232323

L*TEST 130

223 2ddds s

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 06

':titttttttttttttititt'ttt‘ittttt*Qt'fittfifi*tt**t.iiitt*ttt'tttlt'

022146
022150
022156
022164
022172

022274

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

001160
157572
157556
157556
157540
157532
157534
157526
157514

001124

001122
001124
001126
001126

TST130: SCOPE

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

#100,$TIMES
;:DO 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#60100,a0F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
sSET TEST DMA AND CONTROL

#B1T4!BIT2,aCSR

sSELECT MATRIX WORD MODE

#81T7T0,aCSR

;ENABLE NCV11

#BIT12,aSFR

;ALLOW 1 WORD TRANSFER

@$8DADR, $BDDAT

:READ THE ACTUAL DATA

#TESTZ ,aSFR
#TESTZ ,aSFR
a#60100

#60100, $BDADR
#1,8GDDAT
$GDDAT , $BDDAT
TST131

;ENABLE "‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
:CLEAR THE TARGET LOCATION
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

; COMPARE
;:BR IF SAME

:OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS = EXPECTED ADR. WAS 60100

2863
2864
2865

CZNCCA NCVIT
CZNCCA.PT

K 6
8-AUG-78 15:05 PAGE 63
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 05

STIC

MACY11 27(654)
e

2323222332322

TRTEST 131
(a2

3332223332323 3223222323223222322320
22

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

2223333322223

TST131: SCOPE

022276
022300
022306

22 2223232202223

222222232 3223323232323

#100,$TIMES

#CLRALL ,@SFR

#BIT4!BIT2,aCSR

022426
022430
022436
022444
022452
022460
022466
022474
022502
022510

022554

001160

157312
157276
157276
157260
157252
157254
157246

052777
052777
012737
012737
017737
023737
001401
104033

010000
060020
000001
156360

001124

157234

001122
001124
001126
001126

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC

sSET TEST DMA AND CONTROL
.

sSELECT MATRIX WORD MODE

a#60040

“CLEAR THE TARGET LOCATION

*ENABLE ''TEST 2'' PULSES
*DISABLE 'TEST Z'* PULSES

#60040 . $BDADR
#1,$GDDAT
aSBDADR, SBDDAT
$GDDAT , SBDDAT

TST132
33

*ALLOW 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 60040
Ak

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

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

TST132: SCOPE

]

:LOAD THE OFFSET REG.

AR AR AR A A A AR AR AR A AR A AR AR AR A A AR AR AR AR A A AR AR AR A AR

SRR

= 05

*ENABLE NCV11

#BIT12,aSFR

S*TEST 132

2R00 0203

#BITO0.CSR

#TESTZ,aSFR
#TESTZ.aSFR

022424

2322

:CLEAR THE DEVICE

#TSTDMA!TSTCON,aSFR

BEQ
ERROR

::D0 100 ‘ITERATIONS

#60040, 0F F

001126

SEQ 0075

#100,$TIMES

#CLRALL ,aSFR
#60020,a0F F

- 04

::D0 100 ITERATIONS

;CLEAR THE DEVICE

;LOAD THE OFFSET REG.

#TSTDMA!TSTCON,aSFR

sSET TEST DMA AND CONTROL

#TESTZ ,aSFR
#TESTZ ,aSFR
a#60020
#BIT12,aSFR
#60020, $BDADR

;ENABLE "‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS

#BIT4!BIT2,aCSR
#81T0,aCSR

#1,8GDDAT

@$8DADR , $BDDAT
$GDDAT , $BDDAT
TST133
33

sSELECT MATRIX WORD MODE
;ENABLE NCV11

;LOAD EXPECTED DATA

sREAD THE ACTUAL DATA
: COMPARE
;:BR IF SAME
sOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS = EXPECTED ADR. WAS 60020

C2
4

CZNCCA NCV11
CZNCCA.PT

2905

2907

8-AUG-78 15:05 PAGE 64
MACY11 27(654)
DIAGNOSTIC
T133
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 03
B

SEQ 0076

2222222323222 2222332323322 3333 32332333233 23323 3232323232232 332 22230232

TRTEST 133

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 03

':t't"tt'fittQit.ttifittttttt**ti't.tttttitttttil'*tfi't't.'tt'tttt

022556

TST133: SCOPE

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

#60010,a0F F

#TESTZ,aSFR
#TESTZ ,aSFR
a#60010

;ENABLE '‘TEST 2'' PULSES
;DISABLE ‘‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION

#60010, $BDADR
#1,8GDDAT

2222222233222

TRTEST 134
R

;ENABLE NCVT

@$BDADR, $BDDAT
$GDDAT , $BDDAT
TST134

sALLOW 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 60010

22 3333332323323 2233t

ittt

s sy

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 02

222222233233 33 3333333333333 3333233232232ttt
ddssdds

TST134:

156766

SCOPE
MOV
MOV
MOV
MOV
MOV
3Is
BIS
BIC

156754
001122
001124
001126
001126

BIS
MOV
MOV
MOV
CMP

000004
012737

sSET TEST DMA AND CONTROL

;SELECT MATRIX WORD MODE

#BI1T12,aSFR

BEQ
ERROR

;LOAD THE OFFSET REG.

#BIT4!BIT2,aCSR

#BI1T0,aCSR

104033

;:D0 100 ITERATIONS
;CLEAR THE DEVICE

#TSTDMA!TSTCON,aSFR

104033

012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401

#100,$TIMES
#CLRALL ,aSFR

CLR

BEQ
ERROR

#100,$TIMES

::D0 100 ITERATIONS

#CLRALL ,aSFR
#40004 , Q0F F
#TSTDMA!TSTCON,aSFR

;CLEAR THE DEVICE
;LOAD THE OFFSET REG.
;SET TEST DMA AND CONTROL

#BIT0,aCSR
#TESTZ ,aSFR
#TESTZ ,aSFR
a#40004
#B1T12,aSFR

;ENABLE NCV11
;ENABLE "‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
sALLOW 1 WORD TRANSFER

@$8DADR , $SBDDAT

sREAD THE ACTUAL DATA

#BI1T4!BIT2,aCSR

#40004 , $BDADR
#1,8GDDAT

$GDDAT , $BDDAT
TST135

sSELECT MATRIX WORD MODE

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

. COMPARE
::BR IF SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED ADR. WAS 40004

NCVTIT
CZNCCA.P11
CZNCCA

IAGNO STIC
1135
VERIFY

MACY11 27(654)

8-AUG-78

15:05

PAGE 65

THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE

SEQ 0077

::ttttttttttttt'tttttfit'ttttttttttttttttttttttttttttt'*ti'ttttttt

;*TEST 135

VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE

.- :tfit.ttifitttttttltttttit'tttttttttttttttttttttttt.t..ttttttttttt

023176
023202
023204

023206
023210
023216
023222

012777
012777
012777
012777
052777
052777
042777
005037
005037
052777
000240
000240
000240
012737
012737
017737
023737
001413

000010

001160

004000

156702

000014
002024
000001

156666
156650
156642

000002
000002
065322

062722

156620

065322
000001
155736
001124

001122
001124
001126
001126

062722

000406
013737
005037

062722
001124

104033

001126

#10,$TIMES

MOV

#CLRALL ,aSFR

:CLEAR THE DEVICE

MOV
MOV
BIS

#TSTDMA'TSTCON,aSFR
#2024 ,aCSR
#BIT0,aCSR

;SET TEST DMA AND CONTROL
*ENABLE GAIN, WORD MATRIX MODE
:ENABLE THE NCV11

MOV

156644
156636

010000

MOV

::D0 10 ITERATIONS

:WITH GAIN SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 250
:WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS '%2552'
:VERIFY THAT THE MATRIX MUX CAN ADD 62550 AND 2552 CORRECTLY

062550 156666

005737

001002
104033

75T135: SCOPE

BIS
BIC

CLR

gég

1%:

#BUF 0+2550, 90FF
#TESTZ,3SFR
#TESTZ.aSFR
A#BUF0+5322

*LOAD THE OFFSET REG.

*ENABLE "‘TEST Z'' PULSES
*DISABLE '‘TEST 2'' PULSES

:CLEAR THE TARGET ADDRESS

AMBUF0+2722

:CLEAR THE TARGET ADDRESS IF "‘TESTX'' FAILS

#BIT12,aSFR

;ALLOW 1 TRANSFER

MOV
MOV
MOV
CMP
BEQ
TST
BNE
ERROR
-

#BUF0+5322,$BDADR
;LOAD THE EXPECTED ADDRESS
#1,8GDDAT
;LOAD THE EXPECTED DATA
9$8DADR, $BDDAT
;READ THE ACTUAL DATA
$GDDAT , $BDDAT
; COMPARE
TST136
;:BR IF SAME
AMBUF0+2722
;TEST OTHER ADDRESS
1%
:BR IF NON-ZERO
33
:MATRIX MODE ADDER ERROR
%gi%gg GAIN AND WORD MATRIX MODE, THE ADDRESSES SELECTED WAS INCORRECT

MOV
CLR
ERROR

NBUF 0+2722 ,$BDDAT
$GDDAT
33

;LOAD INCORRECT DATA
*CLEAR THE EXPECTED DATA
:MATRIX MODE ADDER ERROR DUE TO

LOGIC SET IN ERROR
;UTES" TX'

NCVT?
CINCCA.PT
CZNCCA

DIAGNOSTIC

T136

MACY11 27(654)

B8-AUG-78

15:05

PAGE 66

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

USING ZB ENABLE

DIRRRRRRRRRRR AR AARARAR R TR AR AR AR

s*TEST 136
023224
023226

000004

USING ZB ENABLE

T
T
e e

012737

000010

001160

012777

004000

156514

012777

000014

156500

052777
052777
042777
005037
052777
012737
012737
017737
023737
001401

000002
000001
000001
072450
010000
072450
000001
155562
001124

012777 065224

156500

012777 004024 156462

023352

AR R RRARRRRRRR AR RRRRRRRR

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

SEQ 0078

156464
156446
156450

156436
001122

001124
001126
001126

104033

TST136 SCOPE

MOV
#10,STIMES
::D0 10 ITERATIONS
;WITH 2B ENABLE SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 224
:WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS 12450
;VERIFY THAT THE MATRIX MUX CAN ADD CORRECTLY

MoV

#CLRALL ,aSFR

;CLEAR THE DEVICE

#TSTDMA' TSTCON,@SFR

sSET TEST DMA AND CONTROL

MOV

#BUF 0+5224 , 30FF

MOV

#4024 ,aCSR

MOV

BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ

ERROR

#TESTZ,aSFR
#BIT0,aCSR
#81T0,aSFR
a#BUF0+12450
#BIT12,3SFR
#BUF 0+12450, $BDADR
#1,SGDDAT
@$B8DADR, $BDDAT
$GDDAT , $BDDAT
1ST137
:;BR IF
33

:LOAD THE OFFSET REGISTER

:ENABLE ZB AND WORD MATRIX MODE
;ENABLE '‘TEST 2'' PULSES
;ENABLE NCV11
:DISABLE “‘TEST Z'* PULSES
;CLEAR THE TARGET LOCATION
;ALLOW 1 TRANSFER
;LOAD THE EXPECTED ADDRESS
;LOAD THE EXPECTED DATA
sREAD THE ACTUAL DATA
; COMPARE
SAME

:ADM INPUT TO THE MATRIX MUX SELECTED
;WRONG ADDRESS =~ EXPECTED ADDRESS WAS BUFQ + 2450

ttttttt*Qttt*tl’fit'tt*.ttittfitttfittltttfitt.t*'t*tt't'titittttit.

*TEST 137

VERIFY LOW BYTE OPERATION OF THE "‘TESTX'' FLOP

2222223222223

023354

023524
023526
023534
023540

000004
012737
012777
012777
012777
012777
052777
052777
042777
052777
005037
005037
052777
000240
000240
000240
012737
013737
023737
001413
005737
001002
104034
000406
013737
005037
104034

090010

001160

000001
000002
000002
000020
062552
060152
010000

156324
156326
156320
156312

004000
060000
000014
002024

000001
060152
001124

156364
156350
156350
156332

156274

001124
001126
001126

062552

062552
001124
»

001126

TST137 SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
BIS
CLR
CLR
BIS
NOP
NOP
NOP
MOV
MOV
CMP
BEQ
TST
BNE
ERROR
BR
1%:
MOV
CLR
ERROR

3 3333333332333

#10,$TIMES

2222333232322222ttt
ddsddddd

;:D0 10 ITERATIONS

#CLRALL ,aSFR
#BUF 0, a0F F
#TSTDMA!TSTCON,@SFR
#2024 ,aCSR

#BI1T0,aCSR
#TESTZ,aSFR
HTESTZ ,aSFR
#BIT4 ,aSFR
a#BUF0+2552
a#BUF 0+0152
#BI1T12 ,aSFR

;CLEAR THE DEVICE
;LOAD OFFSET REG.
;LOAD TEST DMA AND CONTROL
:SET "'GAIN'' AND WORD MATRIX MODE

sSET NCV11 ACTIVE
;ENABLE "TEST Z'' PULSES
DISABLE "TEST Z'' PULSES
sSET "‘TESTX'' FLOP
;CLEAR THE TEST FAILED LOCATION
:CLEAR THE TESTX WORKED LOCATION
;ALLOW 1 TRANSFER

#1,8GDDAT
;LOAD EXPECTED DATA
a#BUF 0+0152,$BDDAT
sREAD THE ACTUAL DATA
$GDDAT , $BDDAT
; COMPARE DATA
TST140
::BR IF SAME
MBUF 042552
;TEST TESTX FAILED LOCATION
1%
;:BR _IF YES
34
'TESTX FAILED TO INHIBIT BITS 8-15 OF THE "'SUM ADDER'’
TST140
MBUF 042552, $BDDAT
sGET ACTUAL DATA
$GDDAT
34

;CLEAR EXPECTED
sTESTX FAILED TO INHIBIT BITS 8-15 OF THE "'SUM A

c2)
c2

CZNCCA NCVIT
CZNCCA.P1T

B 7
MACY11
27(654)
B8-AUG-78
15:05
PAGE 67
DIAGNOSTIC
T140
VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX

SEQ 0079

:"Qt't'*tt'.'.t.'t*.'QQ"'"Qi.l'tl'.".Q'Qti'.fi..'.t.fi.. L3222 22 2 2]

S*TEST 140

VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX

;:tttttttfi'Qtttttfii'tt""'tfit't'ttQfii'i'fi..'t (323332333 3322323222 222 2]

023542

012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104033

000100
004000
050000
000014
002030
000001
000002
000002
062726
010000
062726
000001
155244
001124

001160
156176
156162
156162
156144
156136
156140
156132
156120
001122
001124
001126
001126

7§7T140: SCOPE

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP

BEQ
ERROR

#100,$TIMES
::D0 100 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
#50000, 3OF F
:LOAD THE OFFSET REG.
#TSTDMA! TSTCON,@SFR
*SET TEST DMA AND CONTROL
#2030,aCSR
*SELECT GAIN MATRIX BYTE MODE
#81T0,aCSR
:ENABLE NCV11
#TESTZ,@SFR
:ENABLE ''TEST 2'* PULSES
#TESTZ.@SFR
:DISABLE ‘‘TEST Z'* PULSES
WBUF 0+2726
*CLEAR THE TARGET LOCATION
#81712,8SFR
:ALLOW 1 WORD TRANSFER
#BUF 0+2726 , $BDADR
:LOAD EXPECTED ADDRESS
#1,$GDDAT
:LOAD EXPECTED DATA
a$BDADR , SBDDAT
:READ THE ACTUAL DATA
$GDDAT , $BDDAT
: COMPARE
1ST141
33

;:BR IF SAME
:MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

;THE WRONG ADDRESS = EXPECTED ADR. WAS BUF0+2726

32 1 2333233333333 33333323323333323233333333232333333333333333333323332232323]

TRTEST 141

VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MUX

22 1233233333 333233333233332333323232333233333332333332333332333333233323232323323231

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

000100
004000
037774
000014
002032
000001
000002
000002
065522

001160
156046
156032
156032
156014
156006
156010
156002

065522
000001
155114
001124

001122
001124
001126
001126

052777 010000
012737
012737
017737
023737
001401
104033

155770

T§T141: SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
CLR

#100,$TIMES
;:D0 100 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
#37774 ,30FF
:LOAD THE OFFSET REG.
#TSTDMA' TSTCON,aSFR
*SET TEST DMA AND CONTROL
#2032,3CSR
*SELECT GAIN MATRIX BYTE MODE
#8170,aCSR
:ENABLE NCV11
#TESTZ,@SFR
:ENABLE '‘TEST 2'' PULSES
HTESTZ.@SFR
:DISABLE ''TEST Z'' PULSES
MBUF 045522
*CLEAR THE TARGET LOCATION

MOV
MOV
MOV
CMP
BEQ

#BUF 0+5522, $BDADR
#1,$GDDAT
aSBDADR , $BDDAT
$GDDAT , $BDDAT
1ST142
::BR IF

BIC

BIS

ERROR

#81T712,8SFR

*ALLOW 1 WORD TRANSFER

:LOAD EXPECTED ADDRESS
*LOAD EXPECTED DATA
:READ THE ACTUAL DATA
: COMPARE
SAME

:MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

;THE WRONG ADDRESS - EXPECTED ADR. WAS BUF(0+5522

NCVT
CZNCCA.P1
CZNCCA

DIAGNOSTIC
1142
VERIF

024022
024024

024032
024040
024045
024050
024056

024106
024114
024120
024126
024134
024142
024150
024156
024160

000004
012737 000100 001160
012777

023727

103445
012777
012777
012777
052777

052777
042777

005037
052777
012737
012737
017737
023737
001401
104033

MACY11 27(654) B8-AUG-78 15:05 PAGE 68
31T 14 ADDER INPUT TO MATRIX MODE MuUX

SEQ 0080

2222322332333 3333323332323 2323232333 3323223222233 22223222

222

Rttt ddd

;*TEST 142

VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX

TS$T142: SCOPE
MOV

'5'3886’”"55

':'ttttttttt'itt'tittt't't""'titit.'t.tttt.'ttttit..ttttiti'*it

::DO 100 ITERATIONS

036402

001340

155716

;OFFSET =
;ADM OQUTPUT
s TARGET
MOV

050000
000014
002034
000001

155672
155672
155654
155646

BLO
MOV
MOV
MOV
BIS

TST143
;:;BR IF NO ROOM
#50000,30F F
;LOAD THE OFFSET REG.
#TSTDMA!TSTCON,aSFR
;SET TEST DMA AND CONTROL
#2034 ,aCSR
;SELECT GAIN MATRIX BYTE MODE
#BIT0,aCSR
;ENABLE NCV11

123656
010000
123656
000001
154754
001124

155630
001122
001124
001126
001126

CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

a#BUF 0+43656
;CLEAR THE TARGET LOCATION
#BIT12,aSFR
sALLOW 1 WORD TRANSFER
#BUF 0443656 , SBDADR
;LOAD EXPECTED ADDRESS
#1,8GDDAT
;LOAD EXPECTED DATA
@$8DADR , $BDDAT
;READ THE ACTUAL DATA
$GDDAT, $BDDAT
; COMPARE
TST143
;:BR IF SAME
33
sMATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

004000

000002
000002

155650
155642

CMP

BIS
BIC

=
=

53656
123656

#CLRALL ,aSFR

$LSTBK, #1340

#TESTZ,aSFR
#TESTZ ,aSFR

;CLEAR THE DEVICE

;TEST IF ENOUGH MEMORY >20K

sENABLE '‘TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES

;THE WRONG ADDRESS - EXPECTED ADR. WAS BUF(0+43656

CZNCCA

D 7
8-AUG-78 15:05 PAGE 69
CHECK FOR HIGH BYTE "INC OVFL'' TO SET CELL OVERFLOW

NCV11

STIC

CZNCCA.PT

MACY11 27(654)
e

SEQ 0081

2222222332232 323 2333233232333 2232232 2322223233232 223 222222

S*TEST 143

dRdRRRRtdd)

CHECK MOR HIGH BYTE ''INC OVFL'' TO SET CELL OVERFLOW

';tt't't!.t.'tttfit.i.tt"'."'..'ittfi'..."..tt..'.t'.'tt"..".'

024162
024164
024172
024200
024204
024210
024216
024224

000010
004000
155546
155544

042777
000240
000240
000240

112737
112737

052777
000240
000240
000240
012737
017737
023737
001401

001160
155556

TS§T143: SCOPE
MOV
MOV

CLR
CLR

060000
002022
000014
000001
000002
000002

000100
000377
010000

061264
061265
155452

022022

001124

155422

001124

MOV
MOV
MOV
BIS
BIS
BIC
NOP
NOP
NOP
MOovB
MOvB
BIS
NOP
NOP
NOP
MOV
MOV
CMP
BEQ
ERROR

001126
001126

104030

013737
012737
023737
001401
104030

061264

177500
001124

001126
001124
001126

1%:

MOV
MOV
CMP

BEQ
ERROR

#10,STIMES
#CLRALL ,aSFR
awCR
aBAR

;:D0 10 ITERATIONS
;CLEAR THE DEVICE
;CLEAR W.C.
;CLEAR B.A.

#BUF 0, a0F F
#81T10!B1T4!BIT1,a8CSR

;LOAD INITIAL OFFSET REGISTER
;ENABLE MATRIX MODE BYTE AND SET GAIN

#BITO,aCSR
WTESTZ ,aSFR
#TESTZ,aSFR

;ENABLE THE DEVICE
JENABLE "'TEST Z'' PULSES
;DISABLE "'TEST Z'' PULSES

#TSTDMA!TSTCON,aSFR

sSET TEST DMA AND (ONTROL

#100,BUF0+1264

;LOAD LOW BYTE

#377 ,BUF0+1265
#BIT12,3SFR

TO A KNOWN VALUE

;SET HIGH BYTE TO 377
JALLOW 1 TRANSFER

#B1T13!BIT10!BIT4!BIT1,$GDDAT
;LOAD EXPECTED STATUS
9CSR,$BDDAT
;READ THE ACTUAL STATUS
$GDDAT ,$BDDAT
1%

BUF0+1264,$8DDAT

::BR IF

TST144

?0
B

;CELL OVERFLOW FAILED TO SET

;WHEN INCREMENTTM ~ THE HIGH BYTE

;READ 1 _ SUFQ LOCATION

#177500,8GDDAT

$GDDAT ,$BDDAT

; COMPARE
SAME

;LOAD EXPECTED VALUE

;:BR

. COMPARE VALUES

SAME

sTARGET LOC. DATA WAS INCORRECT

CINCCA

NCVY1

CINCCA.PT

DIAGNOSTIC

1144

MACY11 27(654)
IR

2140

000004

3142
3143
3144
3145
%}29

024370
024376
024402
024404
024412

012737
005737
001454
012737
012737

000400
050110

001160

000001
024420

001124
001110

3148
3149
3150

024420
024426
024434

012777
012777
012777

004000
000010
000000

155330
155322
155310

3152
3153
3154
3155
3156

024450
024454
024462
024470
024476

005377
012777
052777
052777
105777

155300
000022
000001
000001
155224

155264
155256
155230

3151

3157

024442

024502

013777

100375

3158

024504

017737

3161
3162
3163
3164

024522
024524
024526
024532

104010
000403
006337
001332

3159
3160

3165

024512
024520

023737
001402

001124

155244

001124

001126

024534
024536
024544
024550
024552
024560

000004
012737
005737
001454
012737
012737

3175
3176

024566
024574

3178
3179
3180
3181
3182
3183

024610
024614
024622
024630
024636
024644

3184

3185

3186
3187
3188
3189
319C
3191

024602

024650

024652

024660
024666
024670
024672
024674
024700

001160

000001
024566

001124
001110

012777
012777

004000
000010

155162
155154

005377
012777
012777
052777
052777
105777

155136
177777
000022
000001
000001
155056

100375

017737

023737
001402
104011
000403
006337
001332

R AR

AR AR

(TESTER ONLY)

RAR AR RN RR RN AR AR AR

;:D0 400 ITERATIONS
;TEST IF TESTER MODE
NOT
IF
;:BR
;LOAD EXPECTED VALUE
;LOAD LOOP ADDRESS

MOV
MoV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,aWCR

;CLEAR THE DEVICE
;SET TEST DMA FLOP
;LOAD UPPER 16 BITS

DEC
MOV
BIS
BIS
TSTB

aBAR
#BIT4!BITT,aCSR
#B1T0,aCSR
#BI1T0,aDACSR
aDACSR

sLOAD INITIAL COUNTER VALUE
;ENTER MATRIX MODE
;ENABLE THE DEVICE
;GENERATE '7'' PULSE
;WAIT FOR Z PULSE COMPLETION

MOV

@BAR, $SBDDAT

sJREAD EXPECTED REGISTER VALUE

ERROR
BR
ASL
BNE

10
TST145
$GDDAT
1%

BPL

$GDDAT ,aBAR

$GDDAT , $BDDAT
3%

. COMPARE
;;BR _IF SAME

;LOWER 16 BITS OF THE Z COUNTER IN ERROR
Y
;CHANGE THE DATA BIT
:BR AND TRY NEXT BIT

IRRARRRARR AR R ARR AR AR KR RRAA KRR KRR RARRARARRARR AR AR AR

000400
050110

013777

RRA AR AR

#400,$TIMES
WFMODE
TST145
#1,3GDDAT
#1%,SLPERR

CMP
BEQ

3%:

(TESTER ONLY)

MOV
TST
BEQ
MOV
MOV

MOV

2%:

;

SEQ 0082

VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER

RN AR AR R RN AR RN AR AR R

S*TEST 145

3168
3169
3170
3171
3172
%};2

3177

1%:

001126

001124

TST144: SCOPE

155304

3166

3167

PAGE 70

AR AR AR AR AR AR AR R AR AR RN AR R RN AR RN AR AR AR AR

J*TEST 144

3139
024366

VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER

3138

3141

15:05

B8-AUG-78

001124

155074

001124

TST145: SCOPE
MOV
TST
BEQ
MOV

1%:

155142

155062

2%:

001126
001126

3%:

(TESTER ONLY)

MOV

#400,$TIMES
WFMODE
TST146
#1,8$GDDAT
#1%8,SLPERR

MOV
MOV

#CLRALL ,aSFR
#TSTDMA,aSFR

;CLEAR THE DEVICE
;SET TEST DMA FLOP

DEC
MOV
MOV
BIS
BIS
7STB

awCR
#-1,3BAR
#BIT4!BIT1,aCSR
#BIT0,aCSR
#B170,aDACSR
aDACSR

;LOAD INITIAL COUNTER VALUE
;LOAD LOWER 16 BITS
sENTER MATRIX MODE
sENABLE THE DEVICE
:GENERATE '2'' PULSE
;WAIT FOR Z PULSE COMPLETION

MOV

aWCR, $BDDAT

MOV

155132
155116
155110

VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER

AREARARR AR AR R RRRRARRRAAREARRAA
AR RARRRRA AR AR AR R AR

BPL

CMP
BEQ
ERROR
BR
ASL
BNE

;:D0 400 ITERATIONS
;TEST IF TESTER MODE
;:BR IF NOT
;LOAD EXPECTED VALUE
;LOAD LOOP ADDRESS

$GDDAT ,aWCR

$GDDAT , 3BDDAT
3%
11
TST146
$GDDAT
1%

;READ EXPECTED REGISTER VALUE

; COMPARE
::BR IF SAME

JHIGHER 16 BITS OF THE Z COUNTER IN ERROR
i

;CHANGE THE DATA BIT
;BR AND TRY NEXT BIT

CZNCCA NCVIT
CZNCCA.PT

A
8-AUG-78 15:05 PAGE 71
MACY11 27(654)
DIAGNOSTIC
(TESTER ONLY)
T146
VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL

3192
3193

3194

3195

2222232223323 2223322332233 3232333 3332322332332 223232223222222 222 2sn

2222222223223 3233223332333 23233

TRTEST 146
024702
024704
024712
024716
024720

000004
012737
005737
001443
012737

024726
024734
024742
024750
024756
024764

012777
012777
012777
012777
012777
052777
052777

025006
025014
025022
025024

105777
100375
017737

023737
001401
104010

000400
050110

001160

000001

001124

004000
000010
000000
000000
000422
000001
000001
154722

155022
155014
155002
154776
154762
154754
154726

154742
001124

001126
001126

TS$T146: SCOPE

#400,8TIMES

;:DO 400 ITERATIONS

BEQ
MOV

TST147
#1,8GDDAT

;:BR IF

MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA,aSFR
#0,aWCR

BIS
BIS
TSTB
BPL.

#BIT0,aCSR
#B1T0,aDACSR
aDACSR
2%

BEQ
ERROR

TST147
10

MOV
MOV
2%:

WFMODE

MOV
CMP

(TESTER ONLY)

§6$ST IF TESTER MODE

;LOAD EXPECTED VALUE
sCLEAR THE DEVICE

;SET TEST DMA FLOP

#0,aBAR
#BIT8!BIT4!'BIT1,aCSR

@BAR, $BDDAT
, $BDDAT
$GDDAT

3332323333233322222332222t
dnd

MOV
TST

1%:

VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL

SEQ 0083

;LOAD UPPER 16 BITS
;LOAD LOWER 16 BITS
;ENTER MATRIX MODE ON CAMERA 01
sENABLE THE DEVICE
;GENERATE 'Z7'' PULSE
sWAIT FOR Z PULSE COMPLETION
;READ EXPECTED REGISTER VALUE

; COMPARE
28R ¥ SAME

:LOWER 16 BITS OF THE Z COUNTER
WHEN USING CAMERA 01
ERROR
;IN

':tfi'ttttttttt'ttQfi'ttt'tt'QttttfiQitttttifitfitt*ttfititlt.t*tti'tt'

LRTEST 147

VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL

(TESTER ONLY)

;:'t't.tittitttt'ttttttttitt'tttt.tt*ttttititt'tittfitttii"ttt'.t

025026
025030
025036
025042
025044

000004
012737
005737
001443
012737

025052

000100
050110

001160

000001

001124

012777
012777
012777
012777
012777
052777
052777

004000
000010
000000
000000
001022
000001
000001

154676
154670
154656
154652
154636
154630
154602

017737
023737
001401

154616
001124

001126
001126

105777
100375

104010

154576

TST147:

SCOPE

MOV

2%:

;:D0 100 ITERATIONS

TST150

;:BR IF

WFMODE

MOV

#1,8GDDAT

MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,awCR
#0 ,aBAR

BEQ

1%:

#100,8TIMES

TST

MOV
MOV
MOV
BIS
BIS
TSTB
BPL
MoV
CMP

BEQ
ERROR

#IT9'BIT4!'BIT1,aCSR
#BI1T0,aCSR
#BI1T0,aDACSR
aDACSR
2%
@BAR, $BDDAT
$GDDAT ,$BDDAT

TST150
10

QBEST IF TESTER MODE

;LOAD EXPECTED VALUE
;CLEAR THE DEVICE
;SET TEST DMA FLOP
:LOAD UPPER 16 BITS
;LOAD LOWER 16 BITS
sENTER MATRIX MODE
sENABLE THE DEVICE

;GENERATE ''Z'' PULSE

;WAIT FOR Z PULSE COMPLETION

sREAD EXPECTED REGISTER VALUE
. COMPARE

;:BR IF SAME
:LOWER 16 BITS OF THE Z COUNTER

;IN ERROR WHEN USING CAMERA 10

3239
3240
3241
3242
3243
3244
3245

DIAGNOSTIC
MACY11 27(654) B8-AUG-78 15:05
1150
VERIFY THAT CAMERA 171 CHANNEL IS OPERATIONAL
L

s*TEST 150

(TESTER ONLY)
L

025176
025204
025212

000004

012737
005737
001443
012737

000100
050110

001160

000001

001124

012777
012777
012777
012777
012777

004000
000010
000000
000000
001422

154552
154544
154532
154526
154512

105777
100375
017737
023737
001401
104010

154452

052777
052777

025274

000001
000001

154472
001124

154504
154456

001126
001126

TST150: SCOPE

1%:

2%:

VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL

-4 1232222323232 2333333333233 22323332332333

025152
025154
025162
025166
025170

SEQ 0084

2332323232333 223230323 0

R0ttt

(TESTER ONLY)
illd)

MOV

TST
BEQ
MOV

#100,8TIMES
WFMODE
TST151
#1,$GDDAT

MOV
MOV
MOV
MOV
MOV

#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTDMA ,aSFR
;SET TEST DMA FLOP
#0,aWCR
;LOAD UPPER 16 BITS
#0,aBAR
:LOAD LOWER 16 BITS
#BIT9!BIT8!BIT4!BIT1,aCSR
;ENTER MATRIX MODE

TSTB
BPL

aDACSR
2%
@BAR, $BDDAT
$GDDAT , $BDDAT
TST151
10

BIS
BIS

MOV
CMP
BEQ
ERROR

#BI1T0,aCSR
#B1T0,aDACSR

;:D0 100 ITERATIONS
;TEST IF TESTER MODE
;:BR IF NOT
;LOAD EXPECTED VALUE

sENABLE THE DEVICE
;GENERATE '2'' PULSE

sWAIT FOR Z PULSE COMPLETION

sREAD EXPECTED REGISTER VALUE
: COMPARE
::BR IF SAME
;LOWER 16 BITS OF THE Z COUNTER
;IN ERROR WHEN USING CAMERA 11

[Tl

CINCCA NCVIT
CINCCA.PT

G 7
PAGE 72

CINCCA

NCV11

CZNCCA.PTT

DIAGNO STIC

151

MACY11 27(654)

B8-AUG-78

DYNAMIC MATRIX MODE ADDRESS

15:05

PAGE 73

SEQ 0085

3262

".'Qt't'.i'.'i'ti.Qtitt"'tit't.tt."fit'fitt'.'.itttt'titi'.t".Qtt

3263

;*TEST 151

326‘

3265

3266
3267

025276

025300

000004

012737

000002

001160

3268

3269
3270
3271
3272
3273

DYNAMIC MATRIX MODE ADDRESS

p.'Q".'ifit..'t'*ifi'fifi.'t."ti'tfii.*.fi.tfififit.!fitttt.l'.ttt'ttt'..

TST151: SCOPE

MOV
#2,$TIMES
;DO 2 ITERATIONS
;CELL INCREMENT OF A FLOATING LOCATION (60000, 70000,64000,62000,61000)

:FILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)

025306

012737

060000

050114

3275
3276

025322

012737

025330

001110

3277 025330 012700
3278

025334

012701

060000

3279 025340 013702
3280

025344

010120

1903352

3274 025314 012737 020000 025662

;COLLECT DATA OF O AND INCREMENT A TARGET LOCATION
:VERIFY THAT NO OTHER ADDRESS IS CHANGED
CAFTER VERIFYING THE WHOLE BUFFER = UPDATE THE OFFSET REGISTER
:
AND INCREMENT ANOTHER LOCATION
MOV
#BUF0, CURENT
sPRIME THE CURRENT TARGET LOC.

#31T15,1008

:LOAD FORCE BIT

MOV

#BUF0,RO

;LOAD POINTER TO BUFFER

MOV

ADNOKT ,R2

:LOAD BUFFER END ADDRESS

RO,R2
33
#-10,aCURENT

;TEST FOR END

MOV
#2$,SLPERR
:LOAD RETURN ADDRESS
:PRIME THE BUFFER WITH A 125252 PATTERN

2%:

125252

MOV

3$:

MOV

MoV

#125252 ,R1

R1.,(RO)+

3281
3282
%%gz

025346
025350
025352

020002
001375
012777

)
177770

022534

CMP
BNE
MoV

3285

025360

012777

004000

154370

MOV

#CLRALL ,aSFR

3288
3289
3290
3291
%Sg%

025402
025406
025414
025422
025430

005077
012777
012777
052777
052777

154346
000004
000024
000002
000001

154342
154324
154326
154310

CLR
MOV
MOV
BIS
BIS

aBAR
#TSTCON,aSFR
#24 ,aCSR
#TESTZ ,aSFR
#81T0,aCSR

3286
3287

3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315

025366
025374

025436
025442
025444
025452
025454
025456
025460
025462
025464
025472
025500
025502
025504
025510
025514
025516
025522
025526
025534
025542
025544
025546

013777
012777

012700
005001
032777
001014
005301
001372
005300
001370
017737
012737
104002
000470
012700
023700
001415
010037
011037
012737
023737
001417
104033
000446

050114
177777

154354
154350

MOV
MOV

000004
060000

154274

154256
060224

001126
001124

060000
050114

001122
001126
125252
001124

4%:

5%:
6%:

001124
001126

MoV
CLR
BIT
BNE
DEC
BNE
DEC
BNE
MOV
MOV
ERROR
BR
MOV
CMP
BEQ
MOV
MOV
MOV
CMP
BEQ
ERROR
BR

CURENT ,aOF F
#-1,aWCR

;LOAD VALUE

;LOAD BUFFER WITH DATA

;PRIME THE TARGET LOCATION
sINIT THE DEVICE

;LOAD OFFSET TO TARGET
;PRIME THE HIGH 16 BIT Z COUNTER
;CLEAR LOW 16 BIT COUNTER
;ENABLE TEST CONNECTOR
;LOAD MATRIX WORD MODE
sSET TEST Z FLOP
;ENABLE THE NCV11

#4 RO
;PRIME THE DELAY
R1
#BIT14!BIT1.,3CSR
;TEST FOR CELL OR Z OVERFLOW
5%
;:BR IF EITHER IS SET
R1
;DELAY
4%
RO
;DELAY
4%
aCSR, $BDDAT
;READ BAD STATUS
#BIT14!BIT13+4224 ,3GDDAT ;LCAD EXPECTED STATUS
2
sDYNAMIT MATRIX MODE STATUS ERROR
TST152
i
#BUF0,RO
;GET BUFFER POINER
CURENT RO
;TEST IF TARGET ADDRESS
7$
;:BR IF YES
RO, $BDADR
:GET BAD ADDRESS FOR TYPE-QUT
(RO) ,$BDDAT
;GET BAD DATA
#125252 ,8GDDAT ;LOAD EXPECTED DATA
$GDDAT ,$BDDAT ; COMPARE
108
;.BR IF SAME
33
;CHANGED AN INCORRECT TARGET LOCATION
TST152

NCVTT
CINCCA.PT
CZNCCA

025550
025556

B8-AUG-78
MACY11 27(654)
DIAGNOSTIC
T151
DYNAMIC MATRIX MODE ADDRESS
013737
017737
012737
023737
001400

025602
025604
025610

005720
023700
001337

025612
025616
025620
025626
025630

005737
001422
032777
001016
006237
022737

001410
012737

050114

022332
003407
001124

001122
001126
001124
001126

7%:

10%:

003352
001202

004000

153312

025662
000002

025662

060000
025662

050114
050114

- 4
PAGE 74

SEQ 0086

MOV
MOV
MOV
CMP
BEQ

CURENT ,$BDADR
;LOAD EXPECTED ADDRESS
@CUREN” ,$8DDAT ;LOAD ACTUAL DATA
;LOAD EXPECTED DATA
#3407 ,$GDDAT
$GDDAT ,$BDDAT ; COMPARE
108
;:BR IF SAME

TST
CMP
BNE

(RO)+
ADNOKT ,RO
6%

:BUMP THE POINTER INTO THE BUFFER
:TEST IF FINISHED THE BUFFER
:BR AND RETEST THE REST OF THE BUFFER

TST

$PASS

TEST IF FIRST PASS

100%

;CHANGE THE FORCED ADDR. BIT

BEQ
BIT
BNE

TST152
#SW11,aSWR
TST152

CMP
BEQ
MOV
BIS
BR

#2,100%
TST152
#8UF0, CURENT
1008, CURENT
2%

ASR

1008:

15:05

BIT13

;:BR IF YES
TEST INHIBIT INTER.
:BR IF SET

;TEST IF FINISHED
::BR IF FINISHED
;MAKE UP NEW ADDRESS
:

;;t*Qtttttt*ttfi.tt*tttt'it"Qtt't.*fi*fi'tfii'titttt.'il'tttttt.ittt

*TEST 152
R

000004

012737

000002

001160

025674
025702
025710

012737
012737
012737

060000
020000
025716

050114

025716
025722
025726
025732
025734
025736

012700
012701
013702

060000
125252

025740
025746
025754
025762
025770
025776
026004

012777
012777
013777
012777
052777
052777
042777

026012
026016
026020
026026
026030

003352

004000
177777
050114
000004
000001
000002
000002

7§7152:

;AFTER VERIFYING BUMP THE BUS ADDRESS AND DO SUB-TEST AGAIN

MOV

005301

#BUFO,CURENT

:PRIME THE CURRENT TARGET LOC.

#2%, SLPERR

*LOAD RETURN ADDRESS

#81713,1008

*LOAD FORCE BIT

:PRIME THE BUFFER WITH A 125252 PATTERN

2%:

MOV

#BUF 0, RO

:LOAD POINTER TO BUFFER

3$:

MOV

R1, (RO)+

*LOAD BUFFER WITH DATA

MOV
MOV

CMP
BNE

#125252 .R1
ADNOKT ,R2
RO.R2
38

*LOAD VALUE
*LOAD BUFFER END ADDRESS
“TEST FOR END

154010
153776

MOV
MOV

#CLRALL,@SFR
#-1,aWCR

;INIT THE DEVICE
*PRIME THE WORD COUNT

153766

MOV

#TSTCON,@SFR

-ENABLE MAINT. MODE

BIS
BIC

#TESTZ,aSFR
#TESTZ.@SFR

153772

MOV

153750

BIS

153752
153744

000004
060000

SCOPE

MOV
#2,$TIMES
;:D0 2 ITERATIONS
;FILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)
;DO A 1 WORD TRANSFER TO A TAGET LOCATION
:VERIFY THAT NO OTHER LOCATION IN THE BUFFER IS CHANGED

026242

001110

DYNAMIC LIST MODE ADDRESS

2222222233333 33323332333333333333
3333333323333 3332232223R20223 32323

153720

4$:

CURENT , auAR

#B1T0,aCSR

*LOAD TARGET LOCATION POINTER
ENABLE THE NCV11

;ENABLE "‘TEST 2'' PULSES
*DISABLE ''TEST 2'' PULSES

?OX

;?.RO

BIT
BNE
DEC

#BIT14'BIT13,aCSR
;TEST FOR CELL OR Z OVERFLOW
2:BR IF EITHER IS SET
5%
R1
;DELAY

:PRIME THE DELAY

CZNCCA NCV1T
CZNCCA.PT

153702

060224

001122
001126
125252
001124

050114
021756
003407
001124

026140
026146
026154
026156
026160
026162
026164
026170

026240
026242

BNE
DEC
BNE

001126
001124

MOV
MOV

5%:
6%:

060000
050114

026172
026176
026200
026206
026210
026214
026222
026224
026232

15:05

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
T152
C LIST MODE ADDRESS
DYNAMI

001124
001126

001122
001126
001124
001126

7%:

10%:

003352
001202

000626
020000

004000

152732

026242
000002

026242

060000
026242

050114
050114

ERROR
BR
MOV
CMP
BEQ
MOV
MOV
MOV
CMP .
BEQ
ERROR
BR
MOV
MOV
MOV

CMP
BEQ
ERROR
BR
TST
CMP
BNE
TST
BEQ

BIT
BNE
ASR

CMP
BEQ

100%:

MOV
BIS
BR

BIT13

J 7
PAGE 75

SEQ 0087

:DELAY

aCSR,$BDDAT

;READ BAD STATUS

%2T153

DYNAMIC LIST MODE STATUS ERRCR

#BUFO,RO
CURENT RO
7%
RO, $8DADR
(RO) , $BDDAT

GET BUFFER POINER
TEST IF TARGET ADDRESS
;:BR IF YES
GET BAD ADDRESS FOR TYPE=-OUT
*GET BAD DATA

ITIT14'B1T13+4224 ,9GDDAT ;LOAD EXPECTED STATUS

#125252 ,$GDDAT
$GDDAT,$BDDAT
10%

%;7153

:LOAD EXPECTED DATA

: COMPARE
::BR IF SAME

:CHANGED AN INCORRECT TARGET LOCATION

CURENT ,$8DADR

:LOAD EXPECTED ADDRESS

#3407 ,$GDDAT

;LOAD EXPECTED DATA

SCURENT ,SBDDAT
$GDDAT , $BDDAT
108
37
TST153
(RO) +
ADNOKT ,RO
6%
$PASS
TST153
#SW11,aSWR
TST153
1008
#2.100%
TST153
#BUFO, CURENT
ggos,cuneur

:GET ACTUAL DATA

COMPARE
;:BR IF SAME
LIST MODE DATA ERROR
.BUMP THE POINTER INTO THE BUFFER
;TEST IF FINISHED THE BUFFER
:BR AND RETEST THE REST OF THE BUFFER
;TEST IF FIRST PASS
;:BR IF FIRST PASS
JTEST INHIBIT INTER.
::BR IF SET
:CHANGE THE FORCE ADDRESS
JTEST IF END
;:BR IF FINISHED
;MAKE NEW ADDRESS
:

K 7
8-AUG-78 15:05 PAGE 76
LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28K

MACY11 27(654)

CZNCCA NCV1T
CZNCCA.P1T

':ttttfitt'i.*.fit"ttt'fi'ttttit..tt'.fit.tt'tt.tt.ttifitfitt"..t..it

VONONN
WA =

FELLELEER ®
o

3409

026244
026246
026254
026260
026264
026266

000040
003352
060000

026270

001160

SR
026310

001375

026312
026320
026324
026332
026340

012777
010077
012777
012777
052777
052777
012700
032777

000004
000001
000002
000004
060000

153342

060200
060000
001122
001126
003407
001124

023700
001357

T$T153: SCOPE
MOV
MOV
sus

003352

#40,STIMES
ADNOKT ,RO
#BUF0,RO

;:D0 40 ITERATIONS
sGET LAST ADDRESS
;DETERMINE THE WORD COUNT VALUE

3%:

MOV

4125252R1

:LOAD VALUE

MOV

R1, (R3)+

*LOAD BUFFER WITH DATA

MOV

CMP

BNE

004000
153426

DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28K

222222322223233323332333333323233333
3233232233233 33 2232323233322 33 dtsddd)

RO
2:RIME THE BUFFER UITH A 125252 PATTERN
:LOAD POINTER TO BUFFER
#BUF0
MOV

060000
125252
003352

3420

;*TEST 153

153436
153422
153416
153400
153402
153360

ADNOKT ,R2
gg.nz

sNOW COLLET THE LIST MODE DATA
MOV
#CLRALL ,aSFR
MOV
RO,aWCR
MOV
#BUF0,aBAR
MOV
#TSTCON,aSFR
#BIT0,aCSR
BIS
BIS
#TESTZ ,aSFR
MOV
#4 RO

4%:

001126
001124
5%:
6%:

10%:

*LOAD BUFFER END ADDRESS
“TEST FOR END

sINIT THE DEVICE
;PRIME THE WORD COUNT
;LOAD TARGET LOCATION POINTER
;ENABLE MAINT. MODE

;ENABLE THE NCV11
;ENABLE MAINT. Z
:PRIME THE DELAY

BIT

#31714!BIT13, BCSR

DEC
BNE
DEC
BNE
MOV

R1
4%
RO
4%
aCSR,$BDDAT

BNE

MOV
ERROR
BR
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
BR
TST
CMP
BNE

;TEST FOR CELL OR Z OVERFLOW

:BR IF EITHER IS SET

:DELAY

;READ BAD STATUS
#B81T7T14!B81713+200,$GDDAT ;LOAD EXPECTED STATUS
36
sDYNAMIC LIST MODE STATUS ERROR = NO WORD COUNT OVERFLOW
TST154
::
;GET BUFFER POINER
#BUF0 RO
RO, $BDADR
;GET BAD ADDRESS FOR TYPE-OUT
(RO) ,$BDDAT
;GET BAD DATA
#3407 ,$GDDAT
;LOAD EXPECTED DATA
$GDDAT , $BDDAT
COMPARE
108
;:BR_IF SAME
37
LIST MODE DATA ERROR
TST154
(RO) +
.BU"P THE POINTER INTO THE BUFFER
ADNOKT ,RO
;TEST IF FINISHED THE BUFFER
6%
;BR AND RETEST THE REST OF THE BUFFER

SEQ 0088

NCVIT
CZNCCA.PT
CZNCCA

L 7
8-AUG-78 15:05 PAGE 77
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

STIC

MACY11 27(654)

SEQ 0089

::ifit.ttt'lfitt!ttttttQt.'tttttfi!ttttttt'ttfi!ttt'fitt'fi'tfit.ttt.tti

S*TEST 154

ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

::ttttttttttiitQittfi.tt't'ttttfitti'..'t!tt.'.ttt'.ttl.tttttlttttt

026466
026470
026476
026502

000002
036120

001160

TST154: SCOPE

MOV
ST
8PL

::DO 2 ITERATIONS
*TEST IF KT=11 INSTALLED
*:BR IF NONE

;DO A BYTE MATRIX MODE TRANSFER TO A 1 BYTE LOCATION IN EACH 4K EXTENDED
000600
041772
060000
125252
001400
000370
001400
041772

026504

041772
172346

MEMORY BANK

1$:

177572

MOV

#600, 0UT

;LOAD INITIAL BANK VALUE

MOV

#BUF 0

*LOAD BUFFER POINTER.

MOV

MOV
BIC

#1400, a#SRO

MOV
CLR
ASL
ASL
ASL
ASL
ASL
ROL
ROL
MOV
MOV
ADD

041756
001122

012777
010177
012777
012777
052777
052777

004000
153126
000022
000014

153140
153116
153120
153102
153104
153076
177572

177572
001126

101254

000200
036402

041772
041772

:PRIME BAD TARGET LOC. IF EXT ADD FAILS

“ENABLE MAINT. MODE KT-11

*LOAD TARGET LOCATION DATA VALUE
*DISABLE MAINT. MODE KT=11

ouT,R1
R2
R1
R1
R1
R1
R1
R2

*GET BANK VALUE
:CLEAR EXT. ADD.
*MOVE LEFT
“MOVE LEFT
*MOVE LEFT
*MOVE LEFT

R2
R2 ,NARROW
R1.$BDADR
R2.R1

:SAVE
*SAVE
*SAVE
*MAKE

TEMPORARY

;SAVE EA BITS

EA BITS
EA BITS FOR TYPEOUT
ADDRESS BITS FOR TYPEOUT
COMPLETE ADDRESS

MOV
BIS
BIS
BIC
MOV
BIS
BIS
MOV
BIC

#TSTDMA! TSTCON,aSFR
:ENABLE MAINT NCV11 MODE
#BIT0,aCSR
;ENABLE THE NCV11
#TESTZ,aSFR
;ENABLE "'TEST 2" PULSES
#TESTZ.aSFR
*DISABLE '‘TEST Z'' PULSES
#371,$GDDAT
;LOAD EXPECTED DATA
#B1T12,aSFR
“ENABLE 1 BYTE TRANSFER
*ENABLE KT=11
#BITO, a#SRO
(RO) , $8DDAT
“GET ACTUAL DATA
#8170, a#SRO
:DISABLE KT=11

ERROR
ST
BEQ
BIT

35
$PASS
TST155
#5W11,aSWR

CMP
BEQ

28:
152176

#370, (RO)

“LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>

:NOW GET READY TO DO THE TRANSFER
MOV
#CLRALL,@SFR
;INIT THE NCV11
MOV
R1,30FF
*LOAD COMBINED BUFFER ADDRESS
MOV
#BIT4'BIT1,3CSR ;ENABLE THE NCV11

001124
153062

004000

0125252 (RO)

#1400, a#SRO

MOV

177572

ouT, a#xpras

BIS

ASL

026760

#2,STIMES
$kT11
TST155

BNE

SGDDAT,$BDDAT
2$

TST155

:COMPARE DATA
1:BR IF SAME

*DATA TRANSFER ERROR TO EXTENDED MEMORY
:TEST PASS COUNTER
“:BR IF FIRST PASS
rssr IF INHIBIT INTER.

:BR IF SET

ADD

#200,0UT

“UPDATE BANK VALUE

BHI

*BR IF NOT

CMP

$LSTBK,0UT

*TEST IF DONE

CZNCCA NCV1T
CZNCCA.P1T

MACY11 27(654) 8-AUG=78 15:05 PAGE 78
DIAGNO STIC
T155
ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

SEQ 0090

ttttt'titttttt.fittttt"ttt"t'fittttttttt'.ttfi't'it'tttt".itttt

arssr 155

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

2222233323333 3333333333333 233 3333232223233 23222t

026762
026764
026772
026776

000002 001160
036120

000600
041772

052525

001400
125252
001400
041772

041772
172346

t47155: SCOPE

MOV

177572

MOV

#52525, (RO)

ASL
ASL
ASL
ASL

R1
R1
R1
R1

BIS
MOV
BIC
MOV
CLR

177572

ASL

027066
027070

027072
027100
027104
027112
027116
027124
027132
027140

027212
027220
027222
027224
027230
027232
027240
027242
027250
027256

ROL
ASL
ROL

006102

012777
010277
012777
010177
012777
052777
052777
042777
010137
010237
052777
012737
052737

004000

152644

152656

177777 152640

152636
000014
000001
000002
000002

001122

041756

010000
003407
1

001126
1

001124

152632
152614
152616
152610

023737
101253

#B1T12,aSFR
#3407, $GDDAT

R2 . NARROW

#BITO.a#SRO

(RO) , $BDDAT

BIC

#8170, a#SRO

ERROR
ST
BEQ
BIT
BNE
ADD
5:7

35
$PASS
TST156
#5W11,aSWR
TST156
#200,0UT
?ksrax.our

CMP
BEQ
28:

041772
041772

BIS
MOV

MOV

001126

000200
036402

R2
R1
R2

R1,$8DADR

BIS

177572

151700

MOV

177572

004000

#1400, 3#SR0O
#125252, (RO)
#1400, a#SRO
OUT ,R1
R2

)

;:D0 2 ITERATIONS

TEST 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
;ENABLE MAINT. MODE KT-11
sPRESET THE TARGET LOCATION
;DISABLE MAINT. MODE KT=11
sGET BANK VALUE
;CLEAR EXT. ADD TEMPORARY

;SAVE EXT. ADDRESS BITS
;SAVE EXT. ADDRESS BITS

:NOW GET READY TO DO THE TRANSFER
sINIT THE NCVT1
MOV
#CLRALL ,aSFR
:LOAD THE EXTENDED ADDRESS BITS
MOV
R2,a0FF
MOV
#-1,3WCR
;LOAD WORD COUNT
MOV
R1,aBAR
;LOAD BUS ADDRESS
;ENABLE MAINT NCV11 MODE
MOV
#TSTDMA! TSTCON,aSFR
;ENABLE THE NCV1]
BIS
#8170,aCSR
;ENABLE 'TEST Z'° PULSES
BIS
#TESTZ,SFR
;DISABLE '‘TEST Z'' PULSES
BIC
#TESTZ.aSFR

152572
001124

001202

#2,$TIMES

$KT11
ST
TST156
BPL
:DO A 1 WORD MODE TRANSFER TO A
#600,0UT
MOV
1%:
MOV
OUT, a#KIPAR3
MOV
#8UF0, RO

ittt

$GDDAT, SBDDAT
28

:SAVE TARGET ADDRESS
;SAVE EA BITS FOR ERROR TYPEOUT
;ENABLE 1 BYTE TRANSFER
;LOAD EXPECTED DATA
;ENABLE KT-11
sGET ACTUAL DATA
;DISABLE KT=11
C OMPARE DATA
::BR_IF SAME

:LIST MODE DATA TRANSFER ERROR TO EXTENDED MEMORY
TEST PASS COUNTER

::BR _IF FIRST PASS

TEST INHIBIT INTER.
;BR IF SET

:UPDATE BANK VALUE

;TEST IF DONE

;BR IF NOT

cZ
czl

CZINCCA

NCVI1

CZNCCA.P11

DIAGNOSTIC

T156

MACY11 27(654)

8-AUG=78

VERIFY BIT 15 MATRIX ADDER INPUT

15:05

3559

R R RN

3561

AR R AR AR R R AR

3560
3562

s*TEST 156
027260

000004

3563
3564
3565
3566
3567
3568

027262

012737

000100

001160

027270
027276

023727
103476

036402

003140

3570
3571
3572
3573
gg;g

027306
027312
027316
027324
027326

012700
012710
052737
005010
042737

002676

060056
125252
001400

172346

3569

3576

027300

012737

001400

177572
177572

3577
3578
3579
3580
3581
3582
3583

027334
027342
027350
027356
027364
027372
027400

012777
012777
012777
012777
052777
052777
042777

004000
140000
002036
000014
000001
000002
000002

152414
152400
152370
152372
152354
152356
152350

3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597

027412
027420
027422
027424
027426
027434
027442
027450
027454
027462
027470
027472

052777
000240
000240
000240
012737
012737
052737
011037
042737
023737
001401
104020

010000

152336

000001
000400
000001
001126
000001
001124

041756
001124
177572

3584
3585

027406
027410

000240
000240

177572
001126

TST156: SCOPE

MOV
;ADM QUTPUT
sOFFSET
; TARGET
CMP
BLO

Mov

MOV
MoV
BIS
CLR
BIC

R AR

N 7

PAGE 79
R

R AR

SEQ 0091

AR AR AR AR AR

RR AR AR AR R

VERIFY BIT 15 MATRIX ADDER INPUT
R R AR

RN AR AR

R AR AR R

R RS

AR AR R

#100,STIMES
=
127657
=
140000
=
267657
$LSTBK , #3140
TST157

;:D0 100 ITERATIONS

#BUF 0+56,R0
#125252, (RO)
#1400,a#SRO
(RO)
#1400,a#SRO

;LOAD BUFFER POINTER
;LOAD BAD TARGET LOC. IF EXT ADD FAILS
;ENABLE MAINT. MODE KT=11
;LOAD TARGET LOCATION DATA VALUE
;DISABLE MAINT. MODE KT=11

#2676 ,a#KIPAR3

sTEST IF >52K IS AVAILABLE
:;BR IF NO MORE MEMORY

;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>

;NOW GET READY TO DO THE TRANSFER

MOV
MoV
MOV
MOV
BIS
BIS
BIC

#CLRALL ,aSFR
;INIT THE NCVI1
#140000,30FF
;LOAD COMBINED BUFFER ADDRESS
#2036 ,aCSR
;ENABLE THE NCV11
#TSTDMA!TSTCON,aSFR
;ENABLE MAINT NCV11 MODE
#B1T0,aCSR
;ENABLE THE NCV11
#TESTZ ,@SFR
;ENABLE '‘TEST 2'' PULSES
#TESTZ ,aSFR
;DISABLE '‘TEST Z'' PULSES

BIS
NOP
NOP
NOP
MOV
MOV
BIS
MOV
BIC
CMP
BEQ
ERROR

#BIT12 ,@SFR

;ENABLE 1 BYTE TRANSFER

#1 ,NARROW
#400,$GDDAT
#B1T0,a#SRO
(RO) ,$BDDAT
#81T0,a#SRO
$GDDAT ,$BDDAT
TST157
20

;SAVE EA BITS FOR ERROR TYPEOUT
;LOAD EXPECTED DATA
;ENABLE KT-11
;SAVE ACTUAL DATA
;DISABLE KT=11
;COMPARE DATA
;:BR IF SAME
;BIT 15 INPUT TO MATRIX MODE ADDER FAILED

NOP
NOP

CZNCCA NCVTT
CINCCA.PN

2322332323323

LRTEST 157

et 223232323322

027474
027476

000004
012737

000040

001160

T$T157:

JTEST X

SCOPE
MOV

sOFFSET

;ADM OUTPUT

027504
027512
027520
027522
027530
027536
027544
027552
027560
027566
027572
027600
027606
027614
027622

027630
027632

MACY11 27(654)
8-AUG-78 15:05 PAGE 80
DIAGNO STIC
1157
VERIFY HIGH BYTE OPERATION OF THE ''TEST X'’

004000
036402

152244

001140
152220
152220

sTARGET

MOV
CMP
BLO
MOV
MOV
MOV

BIS
BIS
BIC
CLR
BIS
MOV
MOV

001124

MOV

CMP
BEQ
ERROR

SEQ 0092

2322223222223 3322222232232
2R ddddd

VERIFY HIGH BYTE OPERATION OF THE ‘‘TEST X'

22222 2233222220222
22202 2d02dd ]

#40.$TIH§S

;:D0 40 ITERATIONS

=100000
=127657
=100257
#CLRALL ,aSFR
$LSTBK, #1140
TST160
#100000,30F F

;CLEAR THE DEVICE

#BITO,aCSR
H#TESTZ,aSFR
H#TESTZ ,aSFR
AABUF 0+20256

sENABLE THE NCV11
;ENABLE "TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;CLEAR THE TARGET LOC.

sTEST IF LEAST 20K
:.BR IF NOT

;SET BIT 15 OF OFFSET
#TSTDMA!TSTCON!BIT4 ,aSFR
;SET TEST DMA,
#2036,aCSR
;ENABLE THE NCV11

#BI1T12,aSFR

;ALLOW 1 DMA TRANSFER

#BUF 0+20256 , $BDADR

;LOAD EXPECTED ADDRESSES VALUE

#400,$GDDAT
;LOAD EXPECTED VALUE READ
@$8DADR,$BDDAT
;READ ACTUAL DATA
$GDDAT ,$BDDAT ; COMPARE
TST160
;;BR IF SAME

;FAILED

CONTROL AND TESTX

:MATRIX ADDER INPUT OF ADM15 AND TESTX L
TO BE

INHIBITED

c 8
8-AUG-78 15:05 PAGE 81
VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

CZNCCA NCVIT
CZNCCA.PT

TIC

MACY11 27(654)

SEQ 0093

':ttt'*t'.fi*..t'*'ttt.i'itttt'i'.tttttttQttttfltt'ttttfi!t.ti'tt't.

s*TEST 160

VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

2232222322332 3333333333323 233332333333223 3322222322332

027702
027710
027716
027724
027732
027740
027746
027754
027762
027764
027766
027774
027776
030000
030002
030010
030016
030024

012777
012777
012777
012777
052777
052777
042777
000240
000240
052777
000240

000100

001160

036402

005140

004635
060026

172346

125252
001400

177572

001400

177572

000002
000400
000001
001126
000001
001126
001124

2ttt

dtdds

MOV

#100,$TIMES

;:D0 100 ITERATIONS

CMP

SLSTBK, #5140
TST161
#4635, a#KIPAR3
#BUF0+26,R0
#125252, (RO)
#1400,3#SRO
(RO)
#1400,a#SRO

TEST IF ENOUGH MEMORY >84K
::BR IF NOT
:LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
;LOAD BUFFER POINTER
:LOAD BAD TARGET LOC.
;ENABLE MAINT. MODE KT-11
sJPRESET THE TARGET LOCATION
;DISABLE MAINT. MODE KT=-11

;ADM OUTPUT
sOFFSET
; TARGET

BLO

MOV

MOV
MOV

BIS
CLR
BIC

B
=
=

253527
210000
463527

sNOW GET READY TO DO THE TRANSFER

004000
010001
000014
004036
000001
000002
000002
010000

TST160 SCOPE

MOV
MOV

#CLRALL ,aSFR
#10001,0FF

sINIT THE NCV11
;LOAD THE EXTENDED ADDRESS BITS

MOV
BIS

#4036 ,aCSR
#BIT0,aCSR

;LOAD MATRIX MODE AND ZB ENABLE
;ENABLE THE NCV11

MOV
BIS

ség
151762

041756
001124
177572
177572

001126

NOP

#TSTDMA ! TSTCON,aSFR
HTESTZ ,aSFR

HTESTZ,aSFR

;ENABLE MAINT NCV11 MODE
;ENABLE "‘TEST 2'' PULSES

;DISABLE '‘TEST Z'' PULSES

#BIT12,aSFR

;ENABLE 1 BYTE TRANSFER

MOV

#2 ,NARROW

;SAVE EA BITS FOR ERROR TYPEOUT

BIS
MOvB

#31T0,a#SRO
(RO) ,$BDDAT

;ENABLE KT-11
;SAVE ACTUAL DATA

$BDDAT
$GDDAT ,$BDDAT
TST161
20

sMASK OFF LOW BYTE
;COMPARE DATA
;:BR IF SAME
;BIT 16 INPUT TO MATRIX MODE ADDER FAILED

ség
NOP
NOP

MOV

BIC

CLRB
CMP
BEQ
ERROR

#400,$GDDAT

#BI1T0,a#SRO

;LOAD EXPECTED DATA

;DISABLE KT=11

CZNCCA NCV1T
CZNCCA. P11

3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677

MACY11 27(654) B-AUG-78 15:05
DETERMINE IF DIFLIN IS TO BE RUN (F)

STIC

PAGE 82

SEQ 0094

1222222222223 232233223323 323233 3333232233232

'TEST 161

2222 2Rt

DETERMINE IF DIFLIN IS TO BE RUN (F)

ittt

e
T
T T

030054
030056

000001
050106

030070
030072

001160

043712

TST161:

.SBTTL

SCOPE

#1,8TIMES
MOV
TST
RUNDIF
BEQ
$EOP
JMP
DIFLIN
END OF PASS ROUTINE

;:D0 1 ITERATION
sTEST IF DIFLIN IS TO BE RUN
;:BR IF NOT TO BE RUN
sJUMP AND RUN DIFLIN

2222322222223 3 2332223333233 23333333333 32222333 322322ttt

ldd

'INCQEMENT THE PASS NUMBER ($PASS)
'INDICATE END-OF ~PROGRAM AFTER 1 PASSES THRU THE PROGRAM
i«TYPE "END PASS AXXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
:«IF THERES A MONITOR GO TO IT
“«IF THERE ISN'T JUMP TO LOGIC

$EOP:

005037

001102
001160
001202
100000

SCOPE

CLR

001202

CLR
INC
BIC

DEC
.WORD
BGT
MOV
$ENDCT: .WORD

$EOPCT:

030200
000042

(PC)+
1

;:ZERO THE TEST NUMBER

::ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
2:L00P?

$DOAGN
(PC)+,a(PO)+
1

$:7C8
;;RESTORE COUNTER

TYPE
MOV
TYPDS
TYPE
$GET42: MOV
BEQ

. SENDMG
$PASS,-(SP)
LSENULL
awé2 RO
$DOAGN

::TYPE "END PASS #''
::SAVE $PASS FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN
;:TYPE A NULL CHARACTER
::GET MONITOR ADDRESS
:;BRANCH IF NO MONITOR

$ENDAD: JSR

PC., (RO)

;:G0 TO MONITOR

$EOPCT

030203
001202

$TSTNM
STIMES
$PASS
#100000, $PASS

RESET

NOP
NOP

$DOAGN:

$RTNAD:

2 :SAVE ROOM
2:FOR

J:ACTI

NOP
JMP
.WORD

;sCLEAR THE WORLD

a(PC)+
LOGIC
=1,- .0

; sRETURN

042412 042116 $ENDMG: .ASCIZ <1§><12>/EN0 PASS” #/
030216

000043

377

000

051501

020123

$ENULL:

.BYTE

sNULL CHARACTER STRING

CZNCCA NCVTT
CZNCCA.PT

3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729

030220

MACY11 27(654)
ERROR ASCII MESSAGES
DIAGNOSTIC

034115
041516
052502
051104
044524
000124

3730
3731
3732

3733
3734

3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755

034115

8-AUG-78

15:05

E 8
PAGE 83

SEC 0095

.SBTTL

ERROR ASCII MESSAGES

031060
030526
020123
051505
042515

004466
020061
042101
020123
052517

EM1:

LASCIZ

/M8026

NCV11 BUS ADDRESS TIMEOUT/

031060
046515
052123
051040
042524
047522
031060
041505
052506
047117
051511
051105

004466
047101
052101

EM2:

LASCIZ

/M8026

COMMAND-STATUS REGISTER ERROR/

004466
040511

EM3:

LASCIZ

/M8026

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

/M8026

BUS ADDRESS REGISTER ERROR/

033062
042523
044507
042440
000
033062
020114
052123
046105
047117
051117

EM6:

LASCIZ

/M8026

OFFSET REGISTER ERROR/

EM7:

LASCIZ

/M8026

DUAL REGISTER SELECTION ERROR/

030070
030070
053517
044502
047503
051105

033062
033063
030440
020124
047125
047522

EM10:

.ASCIZ

/M8026-M8036

LOW 16 BIT Z COUNT ERROR/

031060
031460

026466
004466

EM11:

LASCIZ

/M8026-M8036

HIGH 16 BIT Z COUNT ERROR/

043505
020122
000122

041516
051040
042524
047522

CZNCCA NCV11
CZNCCA.PT

044510
020066
020132
020124
000122
034115
020132

3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783

3814

BEERE
Fole (RaNTo AV, }

MACY11 27(654)
DIAGNOSTIC
ERROR ASCII MESSAGES

031312

8-AUG-78

15:05

F
8
PAGE 84

SEQ 0096

044107
044502
047503
051105

030440
020124
047125
047522

031060
047503
052123
042440
000
030070
041440
044440
052522
051122

004466
047125
052101
051122

EM12:

LASCIZ

/M8026

Z COUNT STATUS ERROR/

033062
052517
052116
052120
051117

EM13:

LASCIZ

/M8026

7 COUNT

030070
054517
020113
051525
051117
030070
054517
020113
042440
000
030070
052101
051103
020124
000122
031460
040524
042522
042440
000
030070
030070
052101
047515
042104
046440
042040
051105

033063
052123
052123
042440
000
033063
052123
040504
051122

EM14:

LASCIZ

/M8036

JOYSTICK STATUS ERROR/

EM15:

LASCIZ

/M8036

JOYSTICK DATA ERROR/

033063
020101
046505
051105

EM16:

LASCIZ

/M8036

DATA INCREMENT ERROR/

004466
042040
042515
051122

EM17:

LASCIZ

/M8036

DATA DECREMENT ERROR/

033062
033063
044522
042504
042522
045501
052101
047522

EM20:

LASCIZ

/M8026-M8036

031060
052123
020105
051505
042513
040524
051117
030070
051511

004466
046440
042101
020123
020122
042440
000
033062
020124

EM21:

LASCIZ

/M8026

LIST MODE ADDRESS MAKER DATA ERROR/

EM22:

LASCIZ

/M8026

LIST MODE

INTERRUPT ERROR/

MATRIX MODE ADDRESS MAKER DATA ERROR/

TRANSFER BUS ADDRESS ERROR/

031320
031326
031334
031342
031350
031356
031360
031366
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

MACY11 27(654)
DIAGNOSTIC
ERROR ASCII MESSAGES

047515

8-AUG-78

15:05

PAGE 85

SEQ 0097

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

LASCIZ

/MB8026

LIST MODE TRANSFER WORD COUNT ERROR/

EM24:

LASCIZ

/MB8026

LIST MODE TRANSFER OFFSET ERROR/

031060
042515
052123
042440

004466
052517
052101

EM25:

LASCIZ

/M8026

TIMEOUT

STATUS ERROR/

033062
047505
052116
052120
051117

EM26:

LASCIZ

/M8026

TIMEOUT

INTERRUPT ERROR/

030070
052105
047105
020122
021105
020101
000122
031060
046114
042522
042040
051105

033062
021040
021124
052042
042040
051105

EM27:

LASCIZ

/MB026

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

004466
044440
042515
052101
047522

EM30:

.ASCIZ

/M8026

CELL INCREMENT DATA ERROR/

031060
046114
043122
052123
042440
000

004466
047440
047514
052101
051122

EM31:

.ASCIZ

/M8026

CELL OVERFLOW STATUS ERROR/

033062
020114
046106
052116

EM32:

LASCIZ

/M8026

CELL OVERFLOW INTERRUPT ERROR/

000
030070

046511
044440
052522
051122

030070
046105
051105
044440

051122

TM~

CINCCA NCVTT
CINCCA.PT

031770

MACY11 27(654)
ERROR ASCII MESSAGES
DIAGNOSTIC

15:05

PAGE 86

SEQ 0098

052522
051122

052120
051117

115
046411

0309070
052101
047515
042104
046440
051122

033062
044522
042504
042522
054125
051117

EM33:

LASCIZ

/M8026

MATRIX MODE ADDRESS MuX ERROR/

115

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

EM34:

LASCIZ

/M8026

"TESTX"" FUNCTION ERROR/

EM35:

LASCIZ

/M8026

DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY/

033062
020124
052040
042506
052101
051122

EM36:

.ASCIZ

/M8026

LIST MODE TRANSFLR STATUS ERROR/

030070
05151
042504
051516
040504
051122

033062
020124
052040
042506
040524
051117

EM37:

.ASCIZ

/M8026

LIST MODE TRANSFER DATA ERROR/

046525
034115
033515
042442
020042
044524
040515
051122

042520
031060
032471
042526
051117
042515
045522
051117

EM4O:

.ASCIZ

/JUMPER-MB026-M7952

034467
047574
051525
042522
046511
000
031070

031065
045503
040440
051523
047505

EM4T:

.ASCIZ

/M7952

CLOCK BUS ADDRESS TIMEOUT/

033461

EM42:

LASCIZ

/M8217

INCORRECT INTERRUPT LEVEL/

051105
042440
000
020130
040440
051523
042440
000
021011
021130
052103
051105
034115

000

032406
032414
032422
032425

B8-AUG-78

000

"EVENT'' OR ''TIME'' MARK ERROR/

(e Tan

CINCCA NCV1T
CINCCA.PT

CZNCCA NCVIT
CINCCA.PTT

3928
3929
3930
3931
3932
3933
3934
3935

032432
032440
032446
032454
032462
032465
032472
032500

MACY11 27(654)
ERROR ASCII MESSAGES
DIAGNOSTIC

8-AUG-78

15:05

PAGE 87

SEQ 0099

044411 ‘041516
042522 052103
052116 051105
052120 046040
000
046105
105

040411
051105
042101
047517
000104
051105
042101
047517
004504
051104
105
040411
047507
042101
042101
040504
015
047516
050040
020123

DH1:

JASCIZ| /ERRPC

ADDR/

DH2:

JASCIZ

/ERRPC

ADDR

GOOD

BAD/

004503
043411
040502
040504

DH3:

JASCIZ

/ERRPC

ADDR

GOOD

BAD

BADADR/

041520
004522
041011
020101
040502

DH4 :

JASCIZ

/ERRPC

ADDR

GOOD

BAD

EA ADR

OUTRNG:

.BYTE
LASCII

/NO *‘7'" PULSES OR /

LASCII

/INPUT VOLTAGE OUT OF RANGE ON CHANNEL #/

.BYTE

60,15,12,7.0

.EVEN
.WORD

$ERRPC, $BASE .0

051122

050122
051104
004504
040502
000

053040
042507
047440
043516
041440

BADADR/

15,12.7

047116

032714
032717

012

032722
032730
032736
032742
032750
032756
032764
032772
032774
033002

001250

000000
001124

DT1:
DT2:

DT3:

.WORD

$ERRP(C , $BASE , $GDDAT ,$BDDAT , $BDADR, 0

041756

001124
000000
001124
001122

DT4:

.WORD

$ERRP(, $BASE ,$GDDAT , $BDDAT ,NARROW, $BDADR, 0

001254

000000

DTS:
DFO:

.WORD
.WORD

3ERRPC,$CDU1.0

OUTCHN:

.WORD

$ERRPC , $BASE ,$GDDAT, $BDDAT,0

DIAGNOSTIC
TTY INPUT ROUTINE

LSBTTL

3975
3976
3977
3978

15:05

8-AUG-78

PAGE 88

SEQ 0100

TTY INPUT ROUTINE

':titttfitfit*tt!t'fiiit'tt'tittt!t'fittitfifitttttitt'k't.tttt'tfliti'.

" ENABL

LSB

;:fittttttt'Q'tQ.ttttt'i""tt*tQttttttttittttit't.tttQtttt".tttfi

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
022737
001074

105777
100071
117746

000176

001140

146124

000001

033531
033536
000176
033547
146042

2218 IT A CONTROL-U?
s sBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;. IGNORE PREVIOUS INPUT
;.LET'S TRY IT AGAIN

a$TKS

000025

9%:

033524
000006

20%:

TYPE
ADD

033134
033140
033142
033146
033150
033156
033162
033166
033174
033176
033204

021627
001022
005766
001403
016677

000015

10%:

CMP

000004
A

TST
BEQ
——

000100

(SP) ,#25

. SMNEW

021627

145740

;:PICK UP CHAR
;;MAKE IT 7-BIT ASCII

=(SP)
=(SP)

033114
033120
033122
033126
033132

000001

a$TKB,~(SP)
#4C177,(SP)

19%:

146036
177600

145762

. SMSWR
SWREG,~(SP)

117746

15%:

ADD
TYPE
CMPB
MOV
RTI

;;1S THE SOFT=SWR SELECTED?
: ;BRANCH IF NO
;s CHAR THERE?
;:IF NO, DON'T WAIT AROUND
;;SAVE THE CHAR
;:STRIP-OFF THE ASCII
;:IS IT A CONTROL G?
;:NO, RETURN TO USER
;;ARE WE RUNNING IN AUTO-MODE?
; sBRANCH IF YES
;;ECHO THE CONTROL-G (*G)
;s TYPE CURRENT CONTENTS
;;SAVE SWREG FOR TYPEOUT
;:GO TYPE--OCTAL ASCIICALL DIGITS)
; ;PROMPT FOR NEW SWR
;sCLEAR COUNTER
;s THE NEW SWR
; ;CHAR THERE?
;:1F NOT TRY AGAIN

.SCNTLG

7%:

000002
000006
001171
001135

15%
a$TKS
15%

$GTSWR:

042716

033104
033110

#SWREG, SWR

a$TKB,-(SP)
#~C177,(SP)
#7,(SP)+
15%
#1
$SAUTOB,
15%

146120
177600
000007

001134

033050
033054
033060
033064
033066
033072
033074
033076
033102

:*WHEN OPERATING IN TTY FLAG MODE.

$CKSWR: CMP

108

LSCNTLU

19%

(SP) 415

2(SP) ,aSWR
#6,SP
LSCRLF
#1
$INTAG,
15%
#100,28TKS

;IS IT A <CR>?
:;BRANCH IF NO
::YES, IS IT THE FIRST CHAR?
:sBRANCH IF YES

2 :SAVE MEW SWR

2 :CLEAR UP STACK
::ECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
;:BRANCH IF NOT
:;RE=ENABLE TTY KBD INTERRUPTS
2 JRETURN

alal

CZNCCA NCVTT
CINCCA.PT

MACY11 27(654)

NCVIT
CINCCA.PT
CZNCCA

4029

4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041

033206
033212
033216
033220

MACY11 27(654)
DIAGNOSTIC
TTY INPUT ROUTINE

004737
021627
002420
021627
003015

16%:

034604
000060
000067

17%:

001170

18%:
.DSABL

4047

4061
4062
4063
4064
4065

4066

4067
4068
4069
4070
4071
4072
4073
4074
4075
4076

SEQ 0101

;;ECHO CHAR
;:CHAR < 0?
;JBRANCH IF YES
::CHAR > 7?
;sBRANCH IF YES

TST

2(SP)

::1S THIS THE FIRST CHAR

BEQ
ASL

000002
177776

K 8
PAGE 89

PC,S$TYPEC
(SP) ,#00
18%
(SP) ,#67
18%

BIC

000060
000002

15:05

JSR
CMP
BLT
CMP
BGT

ASL

4042
4043
4044
4045
4046

4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060

8-AUG-78

ASL
INC
BIS
BR
TYPE
BR
LSB

#60, (SP) +
17%
(SP)
(SP)

(SP)
2(SP)
=2(SP), (SP)
7%
,SQUES
20%

;:STRIP-OFF ASCII

;sBRANCH IF YES
:2NO, SHIFT PRESENT
o8

CHAR OVER TO MAKE

23
ROOM FOR NEW ONE.
;;KEEP COUNT OF CHAR
::SET IN NEW CHAR
::GET THE NEXT ONE
;:TYPE ?2<CR><LF>
; sSIMULATE CONTROL=-U

::ttt'tttttfitttfitttttt'tttfiitttfit.fiiitfi'iitittttfiti'tttttttitfiti'

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*CALL:

;v
ge
o

011646
016€66
105777
100375
117766

042766
026627
001013
105777
100375
117746
042716

022627
001366
000750
026627

000004
145642

000002

145636
177600
000004

000004
000004
000023

$RDCHR: MOV
MOV
1$:

2%:

145610

RDCHR
RETURN HERE

145604
177600

TSTB
BPL
MOVB

000004

000140

000004

000175

000040

000004

3%:

4%:

a$TKS
1%
a$TKB,4 (SP)

BIC

#~C<177>,4(SP)

BIC

#~C177,(SP)

CMP
BNE
TSTB
BPL
MOVB
CMP

000021

(SP) ,~(SP)
4(SP) ,2(SP)

BNE
BR
CMP
BLT
CMP
BGT
BIC
RTI

;o INPUT A SINGLE CHARACTER FROM THE TTY
;s CHARACTER IS ON THE STACK
;;WITH PARITY BIT STRIPPED OFF
::PUSH DOWN THE PC
;;SAVE THE PS
ssWAIT FOR
;:A CHARACTER
;;READ THE TTY

::GET RID OF JUNK IF ANY

4(SP) 423
3%
a$TKS
2%
a$TKB,-(SP)

2:1S IT A CONTROL=-S?
; ;BRANCH IF NO
;sWAIT FOR A CHARACTER
;.LOOP UNTIL ITS THERE
;:GET CHARACTER

(SP)+ 421

::1S IT A CONTROL-Q?
;:IF NOT DISCARD IT
;. YES, RESUME
::1S IT UPPER CASE?
; ;BRANCH IF YES
2:1S IT A SPECIAL CHAR?
; ;BRANCH IF YES
;sMAKE IT UPPER CASE

2%
1%
4(SP) ,#140
4%
4(SP) ,m175
4%
#40,4(SP)

;;MAKE IT 7-BIT ASCII

;.G0 BACK TO USER

::Qttttttttttttttttttttttttttttfititttttit'tttifiittttitttttttitttt

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

oW
L
e

RDLIN
RETURN HERE

;2INPUT A STRING FROM THE TTY
:;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;sTERMINATOR WILL BE A BYTE OF ALL 0'S

CZNCCA NCV1T
CZINCCA.PT
4083

4084

4085
4,086
4087

4088
4089
4090

4091
4092
4093
4094
4095
4096

4097

<098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4112
4113

033406
033410
033414
033420
033422
033424
033426
033432
033434
033440
033442
033446
033452

MACY11 27(654)
DIAGNOSTIC
TTY INPUT ROUTINE

010346
012703
022703

101405
104410
112613

122713

000177

$RDLIN: MOV
1%:
MOV
CMP
2%:
BLOS
RDCHR
MovB
10%:

001170

4%:

033512
033512
000015

3%:

033514
033524

033502
033510
033512
033513
033514
033524
033531
033536
033544
033547
033554

PAGE 90

R3,<(SP)
#STTYIN,R3
z:TTYIN*B..R3

(SP)+, (R3)
#177,(R3)
38

. $SQUES

(R3),9%
.98

#15,(R3)+

2%
=-1(R3)
.SLF
(SP)+,R3

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

000002

#STTYIN,4 (SP)

000004

9%:

005015
006507
053523
000
047040
000040

177777
001172
000004
033514

15:05

8-AUG-78

RTI

000
000012
020122

$TTYIN:
$CNTLU:
$CNTLG:
$MSWR:

.BYTE
.BLKB
.ASCIZ
LASCIZ
.ASCIZ

053505

SMNEW:

LASCIZ

0
0
8.
/2U/<15><12>
/2G/<15><12>

<15><12>/SWR =
/

NEW =

SEQ 0102

;:SAVE R3

::GET ADDRESS
;:BUFFER FULL?
;:BR IF YES

;:G0 READ ONE CHARACTER FROM THE TTY
;sGET CHARACTER
;1S IT A RUBOUT
::SKIP IF NOT
;:TYPE A '?2°

;:CLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER
;;CHECK FOR RETURN
;:LOOP IF NOT RETURN

;;CLEAR RETURN (THE 15)

;:TYPE A LINE FEED
; ;RESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF THE
33

2 JRETURN

FIRST ASCII CHARACTER ON IT

;2STORAGE FOR ASCII CHAR. TO TYPE
; :TERMINATOR
s cRESERVE 8 BYTES FOR TTY INPUT
:2CONTROL 'V
;;CONTROL ''G"'

CZNCCA

NCV11

CZNCCA.PT

DIAGNOSTIC

MACY11 27(654)

B8-AUG-78

READ AN OCTAL NUMBER FROM THE TTY

.SBTTL

L114
4115
4116
4117
4118
4119

PAGE 91

SEQ 0103

READ AN OCTAL NUMBER FROM THE TTY

Qtt*tttit't"Qttl.t.tti.tttt..tttt'tttttt.Qlttltttt.ttt"ttt*t'

*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
:*CHANGE IT TO BINARY.

:'CALL:
RDOCT
I
'8
RETURN HERE

4120

4121
4122

4123
4124
4125
4126
4127
4128
4129
4130
413
4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148
4149
4150
4151

15:05

011646

016666
010046
010146
010246

000004

104411

012600
005001
005002
112046
001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726
010166
010237
012602
012601
012600
000002
000000

000002

$RDOCT: MOV

1%:

2%:

177770

000012
033660

3%:

(SP) ,=(SP)

MOV
MOV
MOV
MOV

4(SP) ,2(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)

MOV
CLR
CLR
MOVR
BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV
MOV
MOV
MOV

(SP)+,R0O
R1
R2
(RO)+,=(SP)
3%
R1
R2
R1
R2
R1
R2
#*C7,(SP)
(SP)+,R1
2%
(SP)
+
R1,12(SP)
R2,SHIOCT
(SP)+ _,R2
(SP)+ ,R1
(SP)+,R0O

RDLIN

RTI
$HIOCT: .WORD

;;READ AN OCTAL NUMBER
;.LOW ORDER BITS ARE ON TOP OF THE STACK
;;HIGH ORDER BITS ARE IN SHIOCT
;;PROVIDE SPACE FOR THE
;s INPUT NUMBER
;:PUSH RO ON STACK
;:PUSH R1 ON STACK
::PUSH R2 ON STACK
:;READ AN ASCIZ LINE
;;GET ADDRESS OF 1ST CHARACTER
;;CLEAR DATA WORD

;;PI1CKUP THIS CHARACTER
IF ZERO GET OUT
;.
2Ty,

;.8
::STRIP THE ASCII JUNK

;;ADD IN THIS DIGIT
. .LOOP
;;CLEAN TERMINATOR FROM STACK
;sSAVE THE RESULT

;:POP STACK INTO R2
;;POP STACK INTO R1

;;POP STACK INTO RO

2 JRETURN

;:HIGH ORDER BITS GO HERE

NCVI
CINCCA.P11
CZNCCA

8-AUG-78 15:05
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

DIAGNOSTIC

MACY11 27(654)

.SBTTL

4152

4153
4154
4155

N 8
PAGE 92

SEQ 0104

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

...Q.t"'.'t.t'.'t.t.t"."'.t.fi'.'...tt...tt....i'Q..Qt...t...

'THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGiT
:#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TY?ED
:+BEFORE THE FIRST DIGIT OF THE NUMBER. LEADINC 2£°0S WILL ALWAYS Ef

4156
4157
4158
4159
4160

s *REPLACED WITH SPACES.
:'CALL:
. &
(SP)
NU-M,
MOV
- *
TYPDS

4161

4162
4163

$TYPDS:

4164
4165
4166

4167

4168
4169
4170
4171

020200
000020

4172
4173
4174
4175

000055

000001

034076
000040

1%:

2%:

034066

3%:

4%:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MovB
CLR
MOV
MovB

CLR

MOV

RO,=(SP)
R1,=(SP)
R2,={SP)
R3,=(SP)
R5,-(SP)
#20200,-(SP)

20(SP) ,RS

1%
RS
#'-,1(SP)
RO
#$DBLK ,R3

#' L(R3)+

R2
$DTBL (RO) ,R1

R1.R5

4%
R2

R1,R5

105013
012605

9%:

::;ADD BACK THE CONSTANT

;:CHECK IF BCD DIGIT=0
:2FALL THROUGH IF 0
;2STILL DOING LEADING 0'S?
22:BR IF NO

7%:

177776

:BR IF DONE

..INCREASE THE BCD DIGIT BY 1

;:BR IF YES

177777

;2PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
;:PUSH R3 ON STACK
;:PUSH R5 ON STACK
;2SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;:MAKE THE BINARY NUMBER POS.
;JMAKE THE ASCII NUMBER NEG.
;2ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;2SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
;2GET THE CONSTANT
::FORM THIS BCD DIGIT

2:MSD?

5%:

8%:

:;PUT THE BINARY NUMBER OM THE STACK
;:G0 TO THE ROUTINE

(SP)+

9%
=1(SP) ,=2(R3)
(R3)
(SP)+,R5

;sYES=-=-SET THE SIGN
;:MAKE THE BCD DIGIT ASCII
;2MAKE IT A SPACE IF NOT ALREADY A DIG IT
;:PUT THIS CHARACTER IN THE OUTPUT BUF FER
;2 JUST INCREMENTING
;;CHECK THE TABLE INDEX
;GO DO THE NEXT DIGIT
;:G0 TO EXIT
2:GET THE LSD
;:G0 CHANGE TO ASCII
..UAS THE LSD THE FIRST NON-ZEROQ?
;BR IF NO

..YES--SET THE SIGN FOR TYPING

:2SET THE TERMINATOR

::POP STACK INTO RS

CZNCCA

NCV1T

CZNCCA.PT
4206
4207
4208
4209

MACY11 27(654) 8-AUG-78 15:05
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

DIAGNOSTIC

034076
000002

4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222

000004

4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259

$DBLK:

.BLKW

PAGE 93

(SP)+,R3
(SP)+,Nn2
(SP) +,R1
(SP)+,RO
. $DBLK
2(SP) ,4(SP)
(SP)+, (SP)

SEQ 0105
;;POP STACK INTO R3

;;POP STACK INTO R2
:;POP STACK INTO R1
;;POP STACK INTO RO
;sNOW TYPE THE NUMBER
;;ADJUST THE STACK
;;RETURN TO USER

SCOPE HANDLER ROUTINE

IRRRARRRARRAARRAAARA
AR ARARARRRARRRAARRARRRARRRERRRRRRRK AR
AR

*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT

:*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)

**«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

4224
4225

4235
4236

$DTBL:

MOV
RTI
10000.

.SBTTL

4223

4226
4227
4228
4229
4230
4231
4232
4233
4234

MOV
MOV
MOV
MOV
TYPE
MOV

012603

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
*SH14 1
LOOP ON TEST

INHIBIT ITERATIONS

:*SU11=1
; *SW09=1

LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

s *SW08=1
;*CALL

X
104407

004737
032777
001114

$SCOPE:

046042
040000

145016

000004
034152

177060

000004

032777
001404

000400

144750

144742

001102

127737

PC,CTRLCG
#BI1T14,aSWR
$OVER

FOR CHANGE IN SOFT-SWR
;TEST FOR CTRL C OR G
::LOOP ON PRESENT TEST?
::YES IF SW14=1

::TEST

;AHRRRSTART OF CODE FOR THE XOR TESTER#####

012637
000463
022626
012637
000423

001465
105737
001421
123737
101015
032777
001404

CKSWR
JSR
BIT
BNE

$XTSTR: BR

000416
013746
012737
005737

1%:

;:SCOPE=IOT

SCOPE

000004

001103

001115

001103

001000

144712

MOV
MOV
TST
MOV
BR
5%:
CMP
MOV
BR
6%: : MHHRHEND OF
BIT
BEQ
CMPB
BEQ
2%:
TSTB
BEQ
CMPB
BHI
BIT
BEQ

;2
IF RUNNING ON THE XOR" TESTER CHANGE

;2THIS INSTRUCTION TO A 'NOP'‘ (NOP=240)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
@#ERRVEC,-(SP)
;:SET FOR TIMEOUT
#5% ,a#ERRVEC
a#177060
;:TIME OUT ON XOR?
(SP)+ ,@#ERRVEC ;;RESTORE THE ERROR VECTOR
;.G0 TO THF NEXT TEST
$SVLAD
(SP)+,(SP)+
;:CLEAR THE STACK AFTER A TIME OUT
..RESTORE THE ERROR VECTOR
(SP)+ ,a#ERRVEC
;LOOP ON THE PRESENT TEST
7$
CODE FOR THE XOR TESTERAA##A
..LOOP ON SPEC. TEST?
#B1T08,aSWR
2%
:BR IF NO
SWR<7:0>
::ON THE RIGHT TEST?
aSWR,STSTNM
$OVER
;:BR _IF YES
$ERFLG
..HAS AN ERROR OCCURRED?
3%
;BR IF NO
$ERMAX, SERFLG
..MAX ERRORS FOR THIS TEST OCCURRED?
3%
:BR IF NO
::LOOP ON ERROR?
#B1T709,aSWR
4%
;:BR IF NO

NCV1T
CZNCCA.PT
CZNCCA

4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284
4285
4286
4287
4,288

MACY11 27(654)
SCOPE HANDLER ROUTINE

8-AUG-78

013737

MOV
BR

DIAGNOSTIC

000446
105037

005037
000415
032777
001011
005737

001110

001106

001103
001160
004000

4%:

144660

001104
001160
000001
034370
001102
001102
001106
001110
001162
000001
001102
001106

001200

001115

144560

PAGE 94

SLPERR, SLPADR
$OVER
$ERFLG
$TIMES
#81T11,aSWR
1%
$PASS

1%
SICNT
$TIMES,SICNT
$OVER

001104

001104
001160

3%:

001202

$SVLAD:

$OVER:
RTI

003720

SEQ 0106

;;SET LOOP ADDRESS TO LAST SCOPE
;:ZERO THE ERROR FLAG
;;CLEAR THE NUMBER OF ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
;o INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

: :INCREMENT ITERATION COUNT
..CHECK THE NUMBER OF ITERATIONS MADE
;BR IF MORE ITERATION REQUIRED

..REINITIALIZE THE ITERATION COUNTER
SMXCNT ,$TIMES
;:SET NUMBER OF ITERATIONS TO DO
NM
$TST
;s COUNT TEST NUMBERS
N
$TSTNM,STEST
;;SET TEST NUMBER IN APT MAILBOX
(SP) ,$LPADR
;:SAVE SCOPE LOOP ADDRESS
(SP) ,$SLPERR
;;SAVE ERROR LOOP ADDRESS
$ESCAPE
;;CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER
$LPADR, (SP)
;;FUDGE RETURN ADDRESS

#1,81CNT

18:

: 2000.
$MXCNT
.SBTTL
TYPE ROUTINE

:;FIXES PS
;:MAX. NUMBER OF ITERATIONS

AR RRARARRR AR RRRRRRARRARRRRRRARRRRIARRRRRRAR
AR
ARRARRAR AR

*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
+*NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
+*NOTE2:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.
;*NOTE3:

4289
4290

4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313

7%:

15:05

s*=CALL

:*1) USING A TRAP INSTRUCTION
%
TYPE
.MESADR
**OR
i
TYPE
i
ME SADR

;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

* %

105737
100002
000000
000430
010046

017600
122737
001011
132737

001405
010037
004737
000000

001157

$TYPE:

1%:

000002
000001

001214

000100

001215

034442
035444

61%:

TSTB
8PL
HALT

MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR

.WORD

;1S THERE A TERMINAL?
2:BR IF YES
;sHALT HERE IF NO TERMINAL
3%
s :LEAVE
RO,=(SP)
;:SAVE RO
a2(SP) ,RO
:;GET ADDRESS OF ASCIZ STRING
#APTENV, SENV
;JRUNNING IN APT MODE
62%
:2NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM 2 :SPOOL MESSAGE TO APT
62%
:2NO,GO CHECK FOR CONSOLE
RO,61%
:2SETUP MESSAGE ADDRESS FOR APT
SC.SATYS
::SPOOL MESSAGE TO APT
; ;MESSAGE ADDRESS
$TPFLG
1%

D 9
PAGE 95

CZINCCA

NCV11

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

4314
4315
4316
4317
4318

034444
034452
034454
034456
034460

132737
001003
112046
001005
005726

000040

001215

BITB
BNE
MOVB
BNE
TST

#APTCSUP,SENVM
60%
(RO)+,=(SP)
43
(SP)+

;:APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
::;PUSH CHARACTER TO BE TYPED ONTO STACK
::BR IF IT ISN'T THE TERMINATOR
::IF TERMINATOR POP IT OFF THE STACK

4320

034464

062716

000002

ADD

#2,(SP)

::ADJUST RETURN PC

CINCCA.P1T

4319

034462

TYPE ROUTINE

012600

2%:

4321
4322
4323
4324

034470
034472
034476
034500

000002
122716
001430
122716

4326
4327

034506
034510

005726
104401

4329

034514

105037

034650

4331
4332
4333
4334
4335
4336
4337
4338
4339
222?

034522
034526
034532
034534

004737
123726
001350
013746

034604
001156

105366
002770
004737
105337
000770

000001

4325

4328

4330

034504

034512

034520

034540
034544
034546
034552
034556

001006
001171

000755

60%:
3%:

000011

4%:

000200

RTI
CMPB
BEQ
CMPB
TST
TYPE

001154
7%:

034604
034650

#HT, (SP)
8%
#CRLF, (SP)

: ;RESTORE RO

: ;RETURN
::BRANCH IF <HT>

::BRANCH IF NOT <CRLF>

(SP)+

::POP <CR><LF> EQUIV
::TYPE A CR AND LF

CLRB

$CHARCNT

::CLEAR CHARACTER COUNT

JSR
CMPR
BNE
MOV

PC,$TYPEC
$FILLC,(SP)+
2%
$NULL = (SP)

DECB
BLT
JSR
DECB
BR

1(SP)
6%
PC,$TYPEC
$CHARCNT
7%

::G0 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?
;:IF NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK
::G0 TYPE A NULL
::DO NOT COUNT AS A COUNT
::LOOP

$CRLF

5%:
6%:

(SP)+,R0O

SEQ 0107

B8R

::GET NEXT CHARACTER

:HORIZONTAL TAB PROCESSOR

4344
4345
4346
4347
4348
4349
4350
4351
4352
4353

034560
034564
034570
034576
034600
034602
034604
034610
034612
034620

4355

4357
4358
4359
4360
4361

4356

MOV

BNE

2;2%

4354

62%:

15:05

000040
034604
000007

034630

112716
004737
132737
001372
005726
000724
105777
100375
116677
122766
001003
105037

034636
034644
034646
034650
034652

122766
001402
105227
000000
000207

000012

034626

034634

000406

034650

144340
000002
000015

144332
000002

8%:
9%:

MOVR
JSR
BITB
BNE
TST
BR
$TYPEC: TSTB
BPL
MOVB
CMPB
BNE

034650

CLRB

000002

1%:

B8R

CMPB
BEQ
INCB
$CHARCNT: .WORD
$TYPEX: RTS

#' ,(SP)
PC,$TYPEC
#7 ,$CHARCNT
9%
(SP)+
2%
asTPS
$TYPEC
2(SP) ,a$TPB
#CR,2(SP)

::REPLACE TAB WITH SPACE
::TYPE A SPACE
::BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
::GET NEXT CHARACTER
::WAIT UNTIL PRINTER IS READY

$CHARCNT

::YES=-CLEAR CHARACTER COUNT

::LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?

::BRANCH IF NO

$TYPEX

J2EXIT

#LF ,2(SP)
$TYPEX
(PC)+
0
PC

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

CZNCCA

NCV11

CINCCA.PT

8-AUG-78
MACY11 27(654)
BINARY TO OCTAL (ASCII) AND TYPE
.SBTTL

4363
4364
4365
4366
4367
4368
4369
4370
437
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384

4390
4391
4392

4393
4394
4395
4396
4397
4398
4399

4400
4401
4402

4403
4404
4405
4406
4407
4408
4409
4410
44611
44612
4413
4414
4415
4416

PAGE 96

SEQ 0108

BINARY TO OCTAL (ASCII) AND TYPE

2222232232322 2333333232333233323332333333233323233323322332222RR
22t Raddd

tTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
:#OCTAL (ASCII) NUMBER AND TYPE IT.

:*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

s*CALL:
MOV
:'
i
TYPOS

TM
Hi

BYTE
BYTE

NUM,=(SP)
N
M

,-t
I %

;sNUMBER 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

;*$TYPON=---=ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC

;*CALL:
3%
MOV
%
TYPON

NUM,=(SP)

. %

s sNUMBER TO BE TYPED
;;CALL FOR TYPEOUT

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s*CALL:
o*
MOV

4385
4386

4387
4388
4389

15:05

DIAGNOSTIC

034654
034660
034666

034672
034676
034700

034706
034714
034722
034724
034726
034730

034734
034736
034742
034746
034752
034756
034760
034762
034764
034766
034770
034772
034774
034776
035002
035004
035010

000000
000001
035101
000002
000001
000006
000005

035077

035077
035101
035076

$TYPOS: MOV
MOVB
MOVB
ADD
BR

$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV

035101

000006
035100
035077
000012
1%:

2%:

035100
177770

TYPOC

3%:

MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
ROL
BR

- (SP)
NUM,

;sNUMBER TO BE TYPED
;s CALL FOR TYPEOUT

a(SP) ,=(SP)
1(SP) ,$OF ILL
(SP) +, $OMODE
+1

;;PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

#2,(SP)
$TYPON
#1,80FILL
#6,$0MODE
+1
#5,80CNT

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

RS5,=(SP)
+1 R4
$OMODE
R4
#6 ,R4

R4 , $OMODE
$OFILL R4
12(SP) ,RS

ROL

ROL
ROL

MOV

;;SUBTRACT IT FOR MAX. ALLOWED
;2SAVE IT FOR USE
;:GET THE ZERO FJLL SWITCH
;:PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
: ;ROTATE MSB INTO "C*'
::G0 DO MSB
;.FORM THIS DIGIT

::GET LSB OF THIS DIGIT

ROL
DECB

BPL
BIC
BNE

:2SET THE ZERO FILL SWITCH
::SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT
;2SAVE R3
:2SAVE R4
;;SAVE RS
:2GET THE NUMBER OF DIGITS TO TYPE

::TYPE

#177770,R3
4%

THIS DIGIT?

;:BR IF NO
::GET RID OF JUNK
;:TEST FOR O

CINCCA

NCVI

4417
4418
6419
4420
4421

035012
035014
035016
035020
035024

005704
001403
005204
052703
052703

442%
4624
4425
4626
4427
4428

035034
035040
035044
035046
035050
035052

104401
105337
003347
002402
005204
000744

035056
035060
035062
035070
035072
035074
035075
035076
035077
035100

012604
012603
016666
012616
000002
000
000
000
000
000000

CINCCA.PT

4422

4429

4430
4431
44632
4433
4434
4435
4436
4437
4438
4228
[A

035030

035054

DIAGNOSTIC

MACY11 27(654)

BINARY TO OCTAL (ASCII) AND TYPE

110337

000060
000040

5%:

035074

035074
035076

7%:

012605

6%:
000002

000004

2’22‘1?
L6443

F
9
PAGE 97

SEQ 0109

TST
BEQ
INC
BIS
BIS

R4
5%
R4
#'0,R3
#' ,R3

; sSUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0'S
;JMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY

TYPE
DECB
BGT
BLT
INC
BR

,8%
$OCNT
2%
6%
R4
2%

;:GO TYPE THIS DIGIT
s ;COUNT BY 1
;:BR IF MORE TO DO
;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT

MOVB

MOV

MOV
MOV
MOV
MOV
RTI
8%:
BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD
.SBTTL

15:05

B8-AUG-78

R3,8%

;:SAVE FOR TYPING

(SP)+,RS5

;JRESTORE RS

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

;sRESTORE R4
;;RESTORE R3
;:SET THE STACK FOR RETURNING
s ;RETURN
;;STORAGE FOR ASCII DIGIT
;;TERMINATOR FOR TYPE ROUTINE

0
0
0
0
O

;;OCTAL DIGIT COUNTER
;sZERO FILL SWITCH
;sNUMBER OF DIGITS TO TYPE

ERROR HANDLER ROUTINE

AR R AR AR AR AR AR AR AR R AN AR R

R AR AR

AR NN R AR RARRRRRARAN T ANRA R R

4444

'THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

L4646

."AND GO TO SERRTYP ON ERROR

4451

s *SW09=1

4445

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF

4447
4448
4449
4450
4452

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
HALT ON ERROR
;*SW13=1
INHIBIT ERROR TYPEOUTS
;*SW10=1
BELL ON ERROR
s*CALL

222(3’

4455

035102

4457
4458
4459

035104
035110
035112

105237
001775
013777

035126

001402

4456

4660
4461

4462
4463
4464
4465
4466

4467
4468
4469
447G

THE ERROR CALL

035102

035120

035130
035134
035140
035144
035152

035160

035166
035170
035174

104407

032777

104401
005237
011637
162737
117737

032777

001004
004737
104401

$ERROR :

001103
001102

002000
001164
001112
001116
000002
143740

020000
035302
001171

7%:
144022

144012

143752

ERROR

CKSWR

; ;ERROR=EMT AND N=ERROR ITEM NUMBER

;TEST FOR CHANGE IN SOF T-SWR

INCB
BEQ
MOV

$ERFLG
;:SET THE ERROR FLAG
7%
;;DON'T LET THE FLAG GC TO ZERO
$TSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

BEQ

BIT

1%:

001116
001114

LOOP ON ERROR

#81710,aSwR

::BELL ON ERROR?

TYPE
INC
MOV
SuB
MOVB

LIBELL
$ERTTL
(SP) ,$ERRPC
#2 ,3ERRP(
@$ERRP(,$ITEMB

..RING BELL
;COUNT THE NUMBER OF ERRORS
::GET ADDRESS OF ERROR INSTRUCTION

BNE
JSR

208
PC,$ERRTYP

BIT

TYPE

#81713,aSWR
LSCRLF

;:NO - SKIP

;;STRIP AND SAVE THE ERROR ITEM CCDE

;:SKIP TYPEOUT IF SET

;:SKIP TYPEOUTS
::G0 TO USER ERROR ROUTINE

NCVTT
CZNCCA.PTT
CZNCCA

471
4472

035200

4473

MACY11 27(654)
DIAGNOSTIC
ERROR HANDLER ROUTINE
122737

4474

4475
4476
4477
4478
4479

4503
4504
4505
4506

4507
4508
4509
4510
4511
4512

4513
4514

4515
4516
4517
4518
4519
4520
4521
4522
4523
4524

001214

001114
035454

035222

104407

001000

022737

030164

143672

001110

3%:

001162

4%:

001162

5¢

JSR
BYTE

PC,$8ATYS
O

000002

0
22%
aSWR
3%

:;APT ERROR LOOP
;2HALT ON ERROR
::SKIP IF CONTINUE

CKSWR
BIT

#B1T09,aSWR

;:TEST FOR CHANGE IN SOFT-SWR
;:LOOP ON ERROR SWITCH SET?

MOV

$ESCAPE, (SP)

,,FUDGE RETURN ADDRESS FOR ESCAPE

CMP

HALT

4%
$LPERR, (SP)
$ESCAPE
5%

#SENDAD ,a#4?2
6%

RTI

.SBTTL
2

;RUNNING IN APT MODE

;:NO,SKIP APT ERROR REPORT
:2SET ITEM NUMBER AS ERROR NUMBER

BNE
6%:

SEQ 0110

2%
$ITEMB,21%

BEQ
MOV
TST
BEQ

000042

PAGE 98

RAPTEN. ,$ENV

.BYTE
BR
TST
BPL

22%:
2%:

CMPB

BNE
MOVB

HALT

032777
001402
013716
005737
001402
013716
001001
000000

20%:

21%:

143706

4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501

4502

000001

15:05

8-AUG-78

;;REPORT FATAL ERROR TO APT

;HALT ON ERROR!

;:BR IF
;sFUDGE
::CHECK
;BR IF

NO
RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE

::ACT=11 AUTO-ACCEPT?
;JBRANCH IF NO
:JYES

2 ;RETURN

ERROR MESSAGE TYPEOUT ROUTINE

22222322 2322233332232323223332323233333333333333333333332333323222222
3222}

“XTHIS ROUTINE USES THE "‘ITEM CONTROL BYTE'' ($ITEMB) TO DETERMINE WHICH

“«ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' (SERRTB),
**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:

001114

1%:

001256
035354

012037

::IF ITEM NUMBER IS ZERO, JUST

MOV

$ERRPC,~(SP)

;:;SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS

TYPOC

104402

00000

.SCRLF
RO,-(SP)
RO
a#$ITEMB,RO

BNE

001116

000426
005300

104401

TYPE
MOV
CLR
BISB

001171
035372

B8R

DEC
ASL
ASL
AS!.
ADD

2%:

MOV
BEQ
TYPE
.WORD

3%:

MOV

TYPE

;:''"CARRIAGE RETURN'® & "‘LINE FEED''
;;SAVE RO
;:PICKUP THE ITEM INDEX
;:TYPE

THE PC OF

THE ERROR

::G0 TYPE=--OCTAL ASCIICALL DIGITS)

..GET ouT

#$ERRTB,RO

;FORM TABLE POINTER
::PICKUP 'ERROR MESSAGE'' POINTER
:SKIP TYPEOUT IF NO POINTER
,,TYPE THE 'ERROR MESSAGE''
;2" ERROR MESSAGE'' POINTER GOES HERE

(RO)+,4%

::PICKUP ‘DATA HEADER'' POINTER

RO
RO
RO
RO

(RO)+,2%
3%

L,$CRLF

;;ADJUST THE INDEX SO THAT IT WILL
WORK FOR THE ERROR TABLE

:.'TARRIAGE RETURN'' & "LINE FEED''

CINCCA NCVTT
CZNCCA.PTT

4525

4526
6527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542

035366
035370
035372
035374
035400
035402
035404
035406
035412
035414
035414
035416
035420
035422
035424
035430
035432

MACY11 27(654)

DIAGNOSTIC

ERROR MESSAGE TYPEOUT ROUTINE
001404
104401

000000
104401

011000
001004
012600
104401

000207

001171

(%:

5%:

6%:
7%:

013046

104401

035432

020040

000

000771

035436

MOV
BNE

(RO) ,RO
7%

TYPE
RTS

LSCRLF
PC

MOV

a(R0O)+,=(SP)

BEQ

BEt

143

MOV

JASLE
EVEN

SEQ 0111

::SKIP TYPEOUT IF O

.WORD

TYPE

PAGE 99

TYPE

8%:

15:05

BEW

TYPOC
TST

104402

005710
001770

B8-AUG-78

:;TYPE THE 'DATA HEADER''

LSCRLF

(SP)+,R0

(RO)

,8%

;:"DATA HEADER'' POINTER GOES HERE
::"'CARRJAGE RETURN'' & "LINE FEED''
::PICKUP "DATA TABLE'' POINTER

;.GO TYPE THE DATA
:;RESTORE RO

& "LINE FEED''
::"'CARRJAGE RETURN''
; sRETURN

;:SAVE @(RO)+ FOR TYPEOUT
::G0 TYPE=-=OCTAL ASCIIC(ALL DIGITS)
;:1S THERE ANOTHER NUMBER?
;+:BR IF NO
::TYPE TWO(2)
. :LOO0OP

SPACES

::TWO(2) SPACES

4543
4564
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556
4557
4558

DIAGNOSTIC

APT COMMUNICATIONS ROUTINE

.SBTTL

8-AUG-78

15:05

PAGE 100

SEQ 0112

APT COMMUNICATIONS ROUTINE

.':tifi't'ttt'fitt.".itQt".".ttfititit'.'Q.l'i"ttt'.'tttt"ttttti

035436
035444
035452
035454
035462
035462
035464
035466
035472
035474
035502
035504
035512

112737
112737
000403
112737

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737

001375

000001
000001

035702
035700

$ATY1:
S$ATY3:

000001

035702

000001

001214

000100

001215

000004
000002
001174

000004

001210

001212
000004

001174

017637
062766

000004
000002

035612
000004

004737
000000

034372

105737
001416

035702

177776

001214

035701
035702

105037

035701

000

035704
000200

RO,=(SP)
R1.-(SP)
SMFLG
5§
WAPTENV,SENV
3$
#APTSPOOL,$ENVM
3$
34 (SP) ,RO
#2.4(SP)
$MSGTYPE

::PUSH RO ON STACK
*:PUSH R1 ON STACK
*:SHOULD TYPE A MESSAGE?
“:IF NOT: BR
::OPERATING UNDER APT?
::IF NOT: BR
::SHOULD SPOOL MESSAGES?
*:IF NOT: BR
*:GET MESSAGE ADDR.
::BUMP RETURN ADDR.
::SEE IF DONE W/ LAST XMISSION?

MOV
TSTB
BAE
SuB
ASR
MOV
SSV

RO, SMSGAD
(R0O)+
2%
$MSGAD , RO
RO
RO, SMSGLGT
gg.smscrvpe

“:PUT ADDR IN MAILBOX
“:FIND END OF MESSAGE

MOV
ADD

34 (SP) 4%
#2.4(SP)

::PUT MSG ADDR IN JSR LINKAGE
- :BUMP RETURN ADDRESS

JSR
.WORD

PC,STYPE
O

*:CALL TYPE MACRO

ISTB
BEQ

$FFLG
12%

::SHOULD REPORT FATAL ERROR?
“:IF NOT:
BR

$FFLG

S:CLEAR FATAL FLAG

2%:

000004
000002
001174

3$:

BNE

MOV
§§‘
108 :

001174

105037 035702

012601
012600
000207
000

1%:

MOV
MOV
TSTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
TST

001210

005737
001413
005737
001375
017637
062766
005237

105037

#1,$FFLG
#1.$MFLG
SATYC
#1,$FFLG

::TO REPORT FATAL ERROR
2370 TYPE A MESSAGE

§2{Yé’

MOVB
MOVB
BR
MOVB

035700

010037
105720
001376
163700
006200
010037
o127§§

013746

4593
4594

MACY11 27(654)

11$:

ST
BEQ
ST

128%:

CLRB

001176
000004

035700

$FFLG:

177776 ,=(SP)

BNE
MOV
ADD
INC

SENV
12%
$MSGTYPE
11%
@4 (SP) ,$FATAL
#2.4(SP)
$MSGTYPE

C(LRB

SLFLG

MOV
MOV
RTS
.BYTE

(SP) +,R1
(SP)+.R0
PC
0

.BYTE

CLRB

$SMFLG:
$LFLG:

.BYTE

-EVEN
APTSIZE=200

SMFLG

::TO ONLY REPORT FATAL ERROR

STF NOT:

WAIT

::SUB START OF MESSAGE

::GET MESSAGE LNGTH IN WORDS
“:PUT LENGTH IN MAILBOX
STELL APT TO TAKE MSG.

::PUSH 177776 ON STACK

**RUNNING UNDER APT?
;:IF NOT: BR
S:FINISHED LAST MESSAGE?
SIIF NOT:
WAIT
::GET ERROR #
- :BUMP RETURN ADDR.
::TELL APT TO TAKE ERROR
*:CLEAR LOG FLAG

*:CLEAR MESSAGE FLAG

S:POP STACK INTO R1
*:POP STACK INTO RO
**RETURN
1 :MESSG. FLAG
2:L0G FLAG

::FATAL FLAG

CINCCA NCV1T
CZNCCA.PTT

4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608
4609

4610
4611

4612
4613

4614
4615
4616

4617
4618
4619

MACY11 27(654)
APT COMMUNICATIONS ROUTINE
DIAGNOSTIC

15:05

8-AUG-78

J 9
PAGE 101

SEQ 0113

APTENV=001
APTSPOOL=100
APTCSUP=040
.SBTTL POWER DOWN AND UP ROUTINES

000001
000100
000040

':.ttttiitfi.tiiilitttt"'t"t'Qt'.'t!titttttttttii'ttiti'tttfi"t'

035704
035712
035720
035722
035724
035726
035730
035732
035734
035740
035744
035752
035754

012737
012737

036044
000340

000024
000026

*POWER DOWN ROUTINE

$PWRDN: MOV

036050
035756

MOV
MOV

;;PRIO:7
:2PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH R4 ON STACK
::PUSH R5 ON STACK
;:PUSH aSWR ON STACK
2 :SAVE SP

HALT
BR

;JHANG UP

MOV

143200

000024

#SILLUP,Q#PWRVEC ;,;SET FOR FAST UP

#340,a#PWRVEC+2
RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
R5,=(SP)
aSWR,~(SP)
SP,$SAVR6

MOV
MOV
MOV
MOV
MOV
MOV

MOV

#SPWRUP ,#PWRVEC ;.SET UP VECTOR

;:*t*ttt*tttfit'*tittt*tttt'i'tttfittifititfit'tt*tttittttttttttt'tit

035756
035764
035770
035774

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

036044
036050
036050
036050

000024

:POWER UP ROUTINE

$PWRUP: MOV

MOV

1%:

143132

035704
000340

CLR
INC
BNE

MOV
MOV
MOV

$PWRMG:

.WORD

$ILLUP: HALT

047520

042527

$SAVR6,SP
$SAVR6
$SAVR6

;;GET SP
:2WAIT LOOP FOR THE TTY
;:WAIT FOR THE INC

(SP) +,aSWR

::POP STACK INTO aSwR

(SP)+,R5
(SP)+,R4
(SP)+ ,RZ
(SP)+,R2
(SP) +,R1
(SP)+,R0

;:0F

WORD

:;POP
::POP
:;POP
:;POP
:;POP
: :POP

STACK
STACK
STACK
STACK
STACK
STACK

INTO R5
INTO R4

INTO R3
INTO R2
INTO R1
INTO RO

#SPWRDN
, a#PWRVEC ::SET UP THE POWER DOWN VECTOR

000024
000026

036052

#SILLUP ,@#PWRVEC ;.SET FOR FAST DOWN

$SAVRG:

$POWER:

.ASCIZ
.EVEN

#340,34PWRVEC+2 ; -PRIO:7
‘REPORT THE POWER FAILURE
$POWER
;;POWER FAIL MESSAGE POINTER

=2
<15><12>''POWER"’

;.THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE

;sPUT THE SP HERE

CZNCCA NCVIT
CINCCA.P11

MACY11 27(654)
DIAGNOSTIC
ROUTINE TO SIZE MEMORY

B8-AUG-78

15:05

PAGE 102

SEQ 0114

ROUTINE TO SIZE MEMORY

4643

.SBTTL

4645

.'.'tttttt'fifittfi.fittQttt*t'tttttittifitt'tt"fitfltlitttt'!tttttti'fit't

Lou7
4L64L8
4649

JSR

WITH KT11 OPTION

$SIZE:

MOV
MOV

4644

s*CALL:

4646

PC,$SIZE

RETURN
:*
;*SLSTAD WILL CONTAIN:

4650
4651

== LAST VIRTUAL ADDRESS OF THE LAST BANK

o
WITHOUT KT11 OPTION
== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
;*$KT11 IS THE HEMORY MANAGEMENT KEY
'BITO? = 0 DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL
'BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION
DETERMINED BY ROUTINE
:

4652
4653
4654
4655
4656
4657
4658
4659
4660

MOV
MOV
MOV

4661

4662
4663

000004
000006

MOV

$KT11:
000004

100000
036404
000340

036120
000250
000252

172340
000010
077406

177740

1$:

023712
101371

000040
172356

000004

::SAVE THE PSW IN @#ERRVEC+2

.WORD
BPL
MOV

200
;2SET TO USE MEMORY MANAGEMENT
$CORE
;:BR IF NO
#SKTNEX ,@#ERRVEC ;;SET FOR TIMEOUT

BIS
MOV
MOV
CLR
MOV

#100000,$KT11
#KTERR ,#MMVEC
#340,34MMVEC+2
-(SP)
#K1PARQ,R2

TSTB

MOV

MOV
ADD

S08
CLR

28$:
38:

MOV
MOV
BR
CMP
INC

4%:

TST

000004
172516

(SP) +, a#ERRVEC+2

#3776 ,R1

MOV

177600

177572

RO ON THE STACK
R1 ON THE STACK
R2 ON THE STACK
R3 ON THE STACK
PRESENT ERROR VECTOR PS & PC

MOV

TST

000200

036234
000020

R2.,=(SP)
R3,-(SP)
@#ERRVEC,-(SP)

::SAVE
;2SAVE
;sSAVE
:2SAVE
::SAVE

a#ERRVEC+2,-(SP)
MOV
;SAVE THE STACK POINTER
SP.RO
MOV
PS
PRESENT
THE
TO
PS
ERRVEC
THE
;:SET
TRAP
;PUSH OLD PSW AND PC ON STACK

000006
003776

036276
177572

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

MOV

ADD
CMP
BHI

;:SETUP ADDRESS

(PC)+

;sUSE MEMORY MANAGEMENT?

a#SRO

:2KT11 ARE YOU THERE?

#“D8,R3

;;INITIALIZE FOR 'PAR'’ LOADING
..ADDRESS OF FIRST 'PAR"
;LOAD EIGHT 'PAR."'S'' AND EIGHT "PDR.'S"’

(SP), (R2)+
#200 (SP)

::LOAD ‘PAR'’
..UPDATE FOR NEXT ‘'PAR'’

#77406,-40(R2)

01?7600 -(R2)
-(R2)

#2% ,3#ERRVEC
#20 . 4SR3
3$
(SP)+,(SP)+
a#SRO

#SKTOUT, ANERRVEC

143776

#40, (R2)
alKIPAR7,(R2)
4%

;2YES==-SET KT11 KEY
;;SET IN CASE OF ERROR

::PDR
= 4K, UP, READ/WRITE

:LOOP UNTIL ALL EIGHT ARE LOADED

..SETLP KIPAR7 FOR 1/0

“SETUP KIPAR6 FOR TESTING

:-CATCH TIMEOUT IF NO SR3
::ENABLE 22 BIT MODE
*:THIS PDP-11 HAS A SR3 REGISTER
..CLEAN OFF THE STACK--NO SR3
TURN ON MEMORY MANAGEMENT
..SET FOR TIME OUT

TRAP ON NON-EX-MEM

..MAKE A 1K STEP
::LAST ONE?
2:NO==TRY IT

CZNCCA NCV1T
CINCCA.PI

CZNCCA NCVTT
CINCCA.P1T

4697

4698
4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723

036266
036270
036274

MACY11 27(654)
DIAGNOSTIC
ROUTINE TO SIZE MEMORY

011202
005037
000421
042737
012737

177572

100000
036334
004009
000040

036120
000004

$KTOUT: MOV
CLR
BR
$KTNEX: BIC
: MOV
$CORE
CLR
ADD
1%:

177776

004000
000040

:
$CROUT
$SIZEX:

L ¥
PAGE 103

(R2) ,R2

22???

SEQ 0115

::GET LAST BANK+1

::TURN OFF MEMORY MANAGEMENT

#100000,8KT11

;;KT11 NON-EXISTENT

(R1)

;:TRAP ON TiIME OuT

#40,R2

; :DROP BACK

#$CROUT ,@#ERRVEC ;,SET FOR TIMEOUT
R2
2:SET UP BANK
#4000,R1
:; INCREMENT BY 1K
#40 ,R2
;21K STEP
#177776 ,R1
1%
#4000 ,R1

RO,SP

;:LAST ONE
;:NO==TRY AGAIN

;:RESTORE THE STACK

(SP)+ ,#ERRVEC+2 ::RESTORE ERROR VECTOR

000006
000004
036400
036402
012601
012600
000207
000000
000000
000000
000776

15:05

8-AUG-78

(SP)+ ,a#ERRVEC
R1,$LSTAD
R2,$LSTBK

2 sLAST ADDRESS
:;LAST BANK

(SP)+,R1
;EP)*.RO

; :RESTORE R1
;sRESTORE RO

(SP)+ ,R3
(SP)+ ,R2

$LSTAD:
$LSTBK:

KTERR:

0
0
KTERR

:;RESTORE R3
:;RESTORE R2

;sCONTAINS THE LAST ADDRESS
;:CONTAINS THE LAST BANK

;KT11

FAILURE

4768

.SBTTL
e

15:05

M9
PAGE 104

SAVE AND RESTORE RO-R5 ROUTINES

2222223333233 3333 3333333233223 3

**SAVE RO-RS

xCALL:

;®

SEQ 0116

3322323233332 2232

Rttt

SAVREG

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
. %

;*TOP===(+16)

;% 42===(+18)

;% +4==-R5
;% +6-==R4
;* +8-==R3
;*+10---R2
;*+12-==R1
: x414===R0
036410
036410
036412
036414

010046
010146
010246

036434
036440
036444

010546
016646
016646
016646
016646
000002

036416
036420
036422
036424
036430

$SAVREG:

010346
010446

MOV
MOV
MOV

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

R2,=(SP)
R3,-(SP)
R4 ,-(SP)

R5,=(SP)

22(SP) ,=(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,=(SP)

;2PUSH RO ON STACK
STACK
;:PUSH R1
STACK
;:PUSH R2
STACK
::PUSH R3
STACK
2 sPUSH R4
STACK
;:PUSH RS
;sSAVE PS OF MAIN FLOW
;+SAVE PC OF MAIN FLOW
;+SAVE PS OF CALL
;:SAVE PC OF CALL

22222

4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767

8-AUG-78
MACY11 27(654)
SAVE AND RESTORE RO-R5 ROUTINES

DIAGNOSTIC

;*RESTORE RO-RS5

s*=CALL:
. %

036446
036446
036452
036456
036462
036466
036470
036472
036474
036476
036500
036502

$RESREG:

RESREG

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS5
(SP)+ R4

(SP)+ ,R3

(SP) +,R2
(SP)+ ,R1
(SP)+,R0O

; ;RESTORE PC OF CALL
; ;RESTORE PS OF CALL
s sRESTORE PC OF MAIN FLOW
; ;RESTORE PS OF MAIN FLOW
:;POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

I la)

CINCCA NCVI
CZNCCA.PT

—————

MACY11 27(654)
DIAGNOSTIC
INTEGER MULTIPLY ROUTINE

4769
4770
477
4772
4773

.SBTTL

B8-AUG-78

15:05

N 9
PAGE 105

INTEGER MULTIPLY ROUTINE

~
-

»
o

.'."'QQQ...QQ.tt.'...ttt"""'.tt'.t.QQQQQ..Q.Q.QQ..QQ..Q.'..'...

JSR

MULTIPLER,=(SP)
MULTIPLICAND,=(SP)
PC,a#SMULT

STACK

PRODUCT

MOV

RETURN

;sPRODUCT IS ON THE STACK

4775
4776
4777
4778
4779
4780
4781

MOV

4774

CZNCCA NCVIT
CZNCCA.PT

$MULT:

000012

000014

000021

2%:

3%:
4%:

TOP

MSB'S

MOV
MOV
MOV
CLR
MOV
BPL
INC
NEG
MOV
BPL

RO,=(SP)
R1,=(SP)
R2,=(SP)
-(SP)
12(SP) ,R1
1%
(SP)
R1
14(SP) ,R2
2%

MOV
CLR
BC(C

#17.,-(SP)
RO
4%

DEC
NEG

ADD
ROR
ROR
DEC

BNE

CMP

000012
000010

5%:

LSB'S

(SP)
R2

R2.RO
RO
R1
(SP)

;;POSITION THE PARITIAL PRODUCT AND
;s THE MULTIPLICAND
::gaslpLhoBITS OF THE MULTIPLICAND BEEN DONE?

(SP)
+

;sCLEAR SIGN INFO. OFF OF STACK
::PUT THE PRODUCT ON THE STACK (MSB'S)

(SP)+,R1

SPOP STACK INTO R1

MOV
MOV
MOV

RO,12(SP)
R1,10(SP}
(SP)+ ,R2

MOV

(SP) +,R0

RTS

:2DON'T ADD IF MULTIPLICAND = 0

;;SHOULD PRODUCT BE NEGATIVE?
;:G0 TO EXIT IF NO
;:YES==SO MAKE IT SO

5%
RO
R1
RO

MOV

::PUSH R1 ON STACK
;:PUSH R2 ON STACK
;sCLEAR THE SIGN KEY
;sGET THE MULTIPLICAND
;:BR IF PLUS
;2SET THE SIGN KEY
;2MAKE THE MULTIPLICAND POSTIVE
;2GET THE MULTIPLIER
;:8R IF PLUS
:2UPDATE THE SIGN KEY
;2MAKE THE MULTIPLIER POSTIVE
;sSET THE LOOP COUNT
;:SETUP FOR THE MULTIPLY LOOP

(SP)+,(SP)

BEQ
NEG
NEG
SBC
TST

;:PUSH RO ON STACK

S:POP STACK INTO R2
:;POP STACK INTO RO

SEQ 0117

CINCCA NCVI
CINCCA.P1

MACY11 27(654)
INTEGER DIVIDE ROUTINE

DIAGNOSTIC

.SBTTL

4816
4817

MOV

MOV
MOV

B
B

Sewen,.

AS LARGE AS THE DIVISOR

JSR

PC,$DIV

'Y =0
‘Vi=1

IMPLIES
IMPLIES
'€’ =0
*'C"'=1

STACK

NO ERROR

OVERFLOW

DIVIDE BY ZERO

TOP

REMAINDER

ALL ZEROS

ALL ONES

TRAP
BIC
MOV
MOV
MOV
MOV
CLR
MoV
MOV
MOV
BPL
DECB
NEG

#17,(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
-(SP)
#17..,-(SP)
24(SP) ,R1
22(SP) ,RO
1%
3(SP)
RO

BLT

:;PICKUP THE DIVISOR
;2CHECK THE SIGN

-1.R0
7%
g;SP)

..SET REMAINDER TO ALL ONES
JEXIT
..KEEP TRACK OF DIVISORS SIGN

RETURN

IR B

LOW DIVIDEND,=(SP) ;;THE HIGH DIVIDEND MUST BE < 1/2

HIGH DIVIDEND,=(SP);
DIVISOR,=(SP)

:2QUOTIENT & REMAINDER ARE ON THE STACK

NO ERROR
ERROR OCCURRED
DIVIDE OVERFLOW OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

036616
036616
036620
036624
036626

036630
036632
036634
036636
036642

036646

104400

042716
010046
010146
010246
010346
005046
012746
016601

036652

4835

4853
4854
4855

INTEGER DIVIDE ROUTINE

:*SAVE SIGN AS THE DIVIDEND.

:*CALL:

4833
4834

4852

SEQ 0118

:«DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
;%A 16=BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT _REMAINDER.
:+DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE

4829
4830
4831
4832

4851

8 10
PAGE 106

'THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER

4,823
4824
4825
4826
4827
4828

4846
4847
4,848
4849
4850

15:05

Qtt'ttttttti.t'tttiQt"'tttifltttttfi.tit.tt'.tttt.t'fitfittt'ti."

4818
4819
4820
4821
4822

4836
4,837
4,838
4839
4840
4841
4842
4843
4844
4845

8-AUG-78

$DIV:

000017

000021
000024
000022
000003

036654
036660
036662

1%:

000020
000003
177777
000002

NEG
SBC
MOV

QUOTIENT

R1
RO
20(SP) ,R2

BGT
BIS
2%:

MOV
BR
ézc

3%
#3,14(SP)

3%:

NEG

ROL

6%
RO

000014

4%:

010003

5%:

CLC
BR

MOV

RO,R3

ALL ZEROS

ALL ONES

::PUSH OLD PSW AND PC ON STACK

;: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
:2;SETUP THE ITERATION COUNTER
::PICKUP THE DIVIDEND
::CHECK THE SIGN
:;KEEP TRACK OF THE SIGN
;2AND NEGATE THE ORIGINAL
; sNUMBER

..DIVISOR OF 0 IS A NO-NO
::SET ‘'V'*'
R°

::NEGATE THE ORIGINAL NUMBER

::CLEAR "'C"'
::START FORMING QUOTIENT
;;POSITION MSB'S
:;COPY

CINCCA

NCV11

DIAGNOSTIC

4870

036732

060203

CINCCA.PIT
4871
4872
4873
4874
4875
4876
4877
4878
4879
4880
4881
4882

4883
4884
4885
4886
4887
4888
4889
4890
4891

4892
4893
4894
4895

4896
4897

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%%

MACY11 27(654)

INTEGER DIVIDE ROUTINE

103001
010300
006101
005316
001370
005701
100005
052766
005000
010001
005726
005716

002004
005400
105066
005316

6%:
:

000002

7$:
8%:

000001

005726

001401
005401
010166
010066

012603
012602
012601
012600

012666
000002

000014

9%:
000020
000016

000002

108:

B8-AUG-78

15:05

c 10

PAGE 107

SEQ 0119

ADD

R2,R3

..COMPARE DIVIDEND & DIVISOR

BGE
NEG
CLRB
DEC

9%
RO
1(SP)
(SP)
(SP)+
108
R1
R1,20(SP)
RO,16(SP)

:BR IF NO
: :NEGATE REMAINDER
;:CLEAR SIGN
;:BUT DON'T FORGET QUOTIENT
;;QUOTIENT SIGN CORRECTION NEEDED?
;:BR IF NO
;;NEGATE QUOTIENT
;;RETURN QUOTIENT AND
; cREMAINDER TO USER

BCC
MOV
ROL
DEC
BNE
TST
BPL
BIS
CLR
MOV
TST
TST

TST

BEQ
NEG
MOV
MOV

MOV
MoV
MOV
MOV

MOV
RTI

6%
R3,RO
R1
(SP)
5%
R1
8%
#2,14(SP)
RO
RO,R1
(SP) +
(SP)

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP) +,R0O

(SP)+,2(SP)

;BR IF DIVIDEND > DIVISOR
: :REMAINDER AFTER THIS LOOP
;;QUOTIENT BIT ENTERS HERE
::DONE’
;BR _IF NO
,.OVERFLOU’
;BR _IF NO
$:SET 'V'' IN RETURN STATUS WORD
;;SET REMAINDER TO ALL ZEROS
;;COPY REMAINDER INTO QUOTIENT
;;CLEAR COUNTER FROM STACK
..REMAINDER SIGN CORRECTION NEEDED?

,.POP STACK
;POP STACK
::POP STACK
;;POP STACK

INTO R3
INTO R2
INTO R1
INTO RO

°
..SETUP TO RETURN CONDITION CODES
sRETURN

CZNCCA NCV11
CINCCA.PTT

DIAGNOSTIC

MACY11 27(654)

15:05

8-AUG-78

D 10
PAGE 108

SEQ 0120

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

.SBTTL

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

tt"fiit'.fittfi'tt.ttfit'""QQlt."tt'tfitfit'.'ltfiQ't'ttt'!.ttt"'

*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
';D:(E)g{??\L/E(Asc”) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
-

:'CALL

037036
037040
037044
037050

SAVREG

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000002
037216
000002
000012
037146
037150

037134

3%:

#PNTR,=(SP)
PC.a#$DB2D

2(SP) ,R2

#SDECVL ,RO
RO,2(SP)
(R2)+,R1

(R2)+,R2

#10.,4%
#$TNPWR ,R4
#STNPWR+2
,R5
R3
(R4) ,R1
R2

(RS) ,R2
3%
R3
2%
(R4)+ ,R1

R2
(R4)+,R2

(RS)+,(R5)+
#'0,R3
R3,(R0O)+

000060
4%:

4937
$TNPWR:

4939

MOV
JSR
RE TURN

(PC)+

1%
(RO)
+

;;POINTER TO LOW WORD OF BINARY NUMBER
::THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK
;sSAVE REGISTERS
::PICKUP THE DATA POINTER

::GET ADDRESS OF "'SDECVL'' STRING

::PUT ADDRESS OF ASCIZ STRING ON STACK

::;PICKUP THE BINARY NUMBER

;;SET UP TO DO 10 CONVERSIONS
; ;ADDRESS OF TEN POWER
;s CLEAR PARTIAL
s ;SUBTRACT TEN POWER

;;BR IF TEN POWER TO LARGE
;:ADD 1 TO PARTIAL
:.LOOP

;;RESTORE SUBTRACTED VALUE

:;MOVE TO NEXT TEN POWER
;;CHANGE PARTIAL TO ASCII
::SAVE IT
. :DONE?
;:BR IF NO

::TERMINATOR

;RESTORE REGISTERS
.,RETURN

::1.0E09

;:1.0E08

::1.0E07
;1.0E06

4950
4951

037176

103240
000001
023420
000000
001750

::1.0€E05

;:1.0E04

;:1.0€E03

CZNCCA NCVTT
CINCCA.PI
4952
4953
4954
4955
4956

4957
4958
4959
4960

037200
037202
037204
037206
037210
037212
037214
037216

E 10
15:05
PAGE 109
8-AUG-78
DIAGNOSTIC
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
MACY11 27(654)

000000
000144
000000
000012
000000
000001
000000
000014

.SBTTL

4974
4975
4976
4977

::1.0e01

::1.0€00

;;RESERVE STORAGE FOR ASCIZ STRING

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

2222323333223

2223332232222

222 3222222222

Rdii

Rttt

)

'THIJ ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

:*UNSIGNED DECIMAL ASCIZ NUMBER.

4967
4968
4969

4973

0
$DECVL: .BLKB

4966

4970

::1.0E02

4962
4963
4964
4965

4971
4972

144

4961

SEQ 0121

:'CALL
o>
3®

MOV
JSR

$SB2D:

MOV

;®

037232
037240
037244
037250
037254
037260

037262

016637
012746
004737
062716
012666
000207
000000

000002
037262
037036
000005
000002
0006000

037262

RETURN

MOV

JSR

ADD
MOV
1%:

RTS
.WORD

,
- (SP)
NUMBER
PC.,a#$5B2D

::?HT BINARY NUMBER ON THE STACK

2(SP) 1%

;;SAVE BINARY NUMBER
;:SET POINTER
;:CALL DOUBLE LENGTH CONVERT
;;ONLY ALLOW FIVE CHARACTERS
;;PICKUP POINTER

#1%8,-(SP)
PC,a#$DB2D
#5,(SP)
(SP)+,2(SP)

o.o

CALL

;;ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

2 JRETURN

CINCCA NCVTTY
CINCCA.PTT

DIAGNOSTIC

TRAP DECODER

MACY11 27(654)
.SBTTL

4978
4979
4980
49581
4982
4983

4997

15:05

PAGE 110

SEQ 0122

TRAP DECODER

2222222322232 233322322223 2222222

22222222222

RRd

d})

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

4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
L9396

B-AUG-78

010046
016600
005740

$TRAP:

000002

TST

MCVB

111000

016000
000200

MOV
MOV
ASL

RTS

;;THIS IS USE

037310
037312
037320

011646
016666
000002

000004

000002

$TRPAD (RO) ,RO

;:INDEX TO TABLE

; ;BACKUP BY 2

;:GET RIGHT BYTE OF TRAP

TO HANDLE

$TRAP2: MOV
MOV
RTI

.SBTTL

;:SAVE RO
;:GET TRAP ADDRESS

MOV

037322

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

;:POSITION FOR INDEXING
;:GO TO ROUTINE

THE "'GETPRI'" MACRO

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

;;MOVE THE PC DOWN
;;MOVE THE PSW DOWN
;;RESTORE

THE PSwW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE "'TRAP'" INSTRUCTION.

;

037322
037324
037326
037330
037332
037334

037310
034372

037336

033054

037340
037342
037344
037346
037350
037352

033004
033266

03470C
034654
034714
033662

THE ROUTINES CALLED

ROUT INE

$TRPAD: .WORD
$TYPE

$TRAP2

;. CALL=TYPOC
;. CALL=TYPOS
;:CALL=TYPON
;. CALL=TYPDS

TRAP+1(104401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE

$GTSWR

;. CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$CKSWR
$RDCHR
$RDLIN
$RDOCT
$SAVREG
SRESREG

;. CALL=CKSWR
; ; CALL=RDCHR
;:CALL=RDLIN
;. CALL=RDOCT
;;CALL=SAVREG
;;CALL=RESREG

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 CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-R5 ROUTINE
RESTORE RO-R5 ROUTINE

$TYPOC
$TYPOS
$TYPON
$TYPDS

;:CALL=TYPE

TYPE
TYPE
TYPE
TYPE

OCTAL NUMBER (WITH LEADING ZERCS)
OCTAL NUMBER (NO LEADING ZEROS)
OCTAL NUMBER (AS PER LAST CALL)
DECIMAL NUMBER (WITH SIGN)

CINCCA NCV1T
CINCCA.PTT
5024
5025
5026
5027

DIAGNOSTIC

MACY11 27(654)

15:05

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

037354

004737

046042

037360
037366
037370
037374
037376
037400
037406
037410
037414
037416

032777

000100

004537
000000

040102

037420
037426
037430
037434
037436
037440
037446
037450
037454
037456

032777
001004
004537
000400
040500
032777

037460
037466
037470
037474
037476
037500
037506
037510
037514
037516

032777
001004

001004

0460474
032777
001004
004537
002000
040476

001004
004537

002400

000001

141532

040102

001000
040504

000200

141512

000002

141472

BIT

#SW06 ,aSwWR

;TEST IF CAM 0 G=1

JSR
0

RS5,CONVRT

; CONVERT
;CAMERA 0

CAMCGY
BIT
BNE
JSR
BIT10

#5W00,aSWR
2%
RS, CONVRT

3%:

000400

141452

4%:

BIT
BNE

JSR

BIT9

040102

037520
037526
037530
037534
037536
037540
037546
037550
037554
037556

032777
001004
004537
001400
040510
032777
001004
004537
003400
040512

001000

141432

037560
037566
037570
037576
037602
037604

032777
001011
052777

000020

141352

000001

142160

017737

142152

040514

141412

040102
141372

040102

142154

BNF
JSR

CAM1G2
:CAMERA #2

040102

000010

BIT
BNE
JSR
BIT8
CAM1G1
BIT

#5W7 ,aSWR
3%
RS, CONVRT
#SW01,aSwR
4%
RS,CONVRT

BIT10!'BIT8

004537

105777
100375

2%:

040102

000004

003000
040506

:TEST FOR CTRL C OR G

; CAMERA #1

040102

032777
001004

PC,CTRLCG

CAMOG2

040502

004537

A TO D FIELD SITE AND ADJUSTMENT LOOP

BNE

1%:

PAGE 111

.SBTTL

FEA;EQA :8R

141552

G 10

5%:

CAM2G1

#SW8,aSWR
5%

RS.,CONVRT

BIT

#SW2,aSWR

JSR

RS5,CONVRT

BNE

BIT10'BIT9
CAM2G2
;CAMERA #3
6%:
BIT
#SW9,aSWR
BNE
7%

JSR
RS.,CONVRT
BIT9!BIT8
CAM3G1
7%:
BIT
#SW3,aSWR
BNE
10%
JSR
RS, CONVRT
BIT10!BIT9!BITS
CAM3G2
:JOYSTICK
10%:
BIT
#SW4 ,aSWR
11%:

BNE
BIS

CALRPT
#BIT0,aSFR

MOV

aJoY,JOYG1

TSTB
BPL

aSFR
1%

;STORE RESULTS
:TEST IF CAM 0 G=2

; CONVERT
;GAIN = 2
;TEST IF CAM 1 G=1
s CONVERT
;CAMERA 1
:STORE RESULTS
:TEST IF CAM 1 G=2
; CONVERT

;CAMERA 1 GAIN =2
JRESULTS

;TEST IF CAM 2 G=1

;CONVERT

;CAMERA #2
JRESULTS

;TEST IF CAM 2 G=2

; CONVERT

;GAIN = 2
JRESULTS

;TEST IF CAM 3 G=1

; CONVERT
;CAMERA #3
JRESULTS

;TEST IF CAM 3 G=2
; CONVERT
;GAIN = 2
JRESULTS

:TEST IF JOYSTICK
;ASK FOR JOYSTICK

JWAIT FOR JOY DONE

;SAVE THE RESULT

SEQ 0123

CZNCCA

NCVTT

CZNCCA.PT
5077
5078
5079
5080
5081

037612
037616
037620
037622
037626
037632

037642
037644
037650
037654

WNN=O
VNN
v SBWN=0O

b
b
s
i
b
b wd i
b
i
b
cad cd ad
o
s

w R
a
DD g
N NN

15:05

PAGE 112

SEQ 0124

sNOW TEST IS TYPEOUT IS ENABLED

037634
037640

(W LV IV TV LW LV IV AF LV RV LW LV LV SV, AV, IV, ]

MACY11 27(654)
B-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

H 10

004537
000100
000405

040060

004537
040474
004537

040412

104401

040516

040060

1%:

040060

037722
037726
037730
037732
037736
037742
037744
037750
037752
037754
037760
037764

040060

037766
037772
037774
037776
040002
040006
040010

040060

2%:

3%:

040573
040412
4%:

5%:

040631
040412

040667
040412

;BR IF SET
;REPORT CAMERA #0

JSR

RS5.,CKTSWR

;TEST BIT O

2%
CAMOTW

;REPORT G=2

R5,CKTSWR

;TEST BIT 7

3%
CAMTTX
R5, CAMUNP

;BR IF SET

R5,CKTSWR

;TEST BIT 1

CAMOG1

BITO
BR

JSR
BIT7
BR
TYPE,

JSR
CAM1G1
JSR

BIT1

;REPORT VALUES

CAM1TW
RS, CAMUNP

;REPORT CAM 1

JSR

RS, CKTSWR

;TEST BIT 8

BR
TYPE,
JSR

5%
CAM2TX

;BR IF SET

R5, CAMUNP

JSR

R5,CKTSWR

;TEST BIT 2

6%
CAM2TW

BIT8

CAM2G1

BITZ2

G=2

;REPORT CAMERA #2
sREPORT VALUES

R5, CAMUNP

;REPORT CAMERA #2 G=2

JSR

R5,CKTSWR

;TEST BIT 9

JSR

CAM3TX

RS, CAMUNP

;BR IF SET
;REPORT CAMERA #3
JREPORT VLAUES

JSR

R5,CKTSWR

;TEST BIT 3

BIT9
TYPE,

7%:

;REPORT CAMERA #1

CAM2G2

6%:

RS, CAMUNP

;REPORT VALUES

BR
TYPE,
JSR

JSR

040650
040412
040060

1%
CAMOTX
RS, CAMUNP

CAM1G2

040612
040412
040060

BR
TYPE,
JSR

CAMOG2

040554
040412
040060

sTEST BIT 6

TYPE,
JSR

040535
040412

037656
037662
037664
037666
037672
037676
037700
037704
037706
037710
037714
037720

R5,CKTSWR

CALRPT: JSR
BIT6

CAM3G1

BIT3

108

CAM3TW

RS, CAMUNP

JREPORT CAMERA #3 G=2

CZINCCA

NCV1T

CINCCA.PT
5131

5132

040032

040036

DIAGNOSTIC
004537

040060

000020

040040
040042

000405
104407

5136
g}%g

040052
040054

040514
000137

5139
5140
5141
5142
5143
5144

040046

040060
040064
040066
040074
040076
040100

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

5133
5134

5135

MACY11 27(654)

004537

032577
001005
032777
007001
005725
000205

108:

15:05

JSR

R5,CKTSWR

040706

BR
TYPE,

1%
JOYTW

037354

11%:

JOYG1
JMP

141054

(KTSWR: BIT
BNE
BIT
BNE
TST

0406412

020000

BIT4

JSR

141044

1%:

RTS

110

PAGE 113

RS, CAMUNP

SEQ 0125

;TEST BIT 4

;REPORT JOYSTICK

FSITE

(R5)+,aSWR
1%
#SW13,aSWR
1%
(RS) +
RS

sTEST IF INHIBIT THIS CAMERA
;BR IF YES
;TEST INHIBIT TYPE-OUT
;BR IF YES
;BUMP EXIT POINTER
SEXIT

CZINCCA

NCV1T

5145
5146
5147
5148
5149
5150

040102
040106
040114
040122
040130

012537
012777
013777
012777
012777

040406
004000
040406
060000
177770

141642
141624
141624
141614

040146

013777

040410

141602

012700
005001

000004

CZNCCA.P11

5151
5152
5153
5154

040136
040140
040142
040144

5156
5157

040154
040156

5155

5158
5159
5160

040160
040164

040166

DIAGNOSTIC

000240
000240
000240
000240
000240
000240
000240

5162
5163
5164
5165
5166
5167
5168
5169
5170
5171
5172
5173
5174
5175
5176

040176
040202
040204
040206
040210
040214
040216
040220
040226
040230
040234
040240
040244
040250
040256

105777
100430
005301
001373
004737
005300
001367
032777
001010
113700
062700
110037
104401
032777
901401

5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198

040262
040264
040270
040272
040274
040302
040304
040306
040312
040316
040320
040322
040326
040330
040332
040334
040336
040340
040342
040344
040346

000711
012700
005003
005004
012737
112002
112001
042702
042701
060104
060203
005337
001365
006203
006203
000240
000240
006204
006204
000240
000240

040260

8-AUG-78

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

5161 040170 052777 000001

5177

MACY11 27(654)

141544

141550

140712

040407
000060
032714
032621
100000

140662

000000

NOP
NOP
NOP
NOP

000004

177400
177400
040404

INOUTZ,@SFR

;SET Z INPUTS IF ENABLED

MOV
LR

#4. RO
R1

:LOAD COUNTER
*FOR OUT OF RANGE VOLTAGE

BIS

#B81T0,aCSR

:ENABLE THE DEVICE

NOP

18:

58:

38:

040404

SEQ 0126

MOV

NOP
NOP

6$:

060000

PAGE 114

;SUBROUTINE TO TAKE 8 CONVERSIONS AND AVERAGE FOUR OF THEM
CONVRT: MOV
(RS)+,71%
:SAVE CAMERA CHANNEL
4$:
MOV
#CLRALL ,@SFR
;CLEAR THE DEVICE
MOV
11$,aCSR
*SELECT CAMERA AND GAIN
MOV
#8UF 0, 3BAR
:LOAD BUS ADDRESS
MOV
#-10,aWCR
*LOAD WORD COUNT

_
046042

020000

J 10

2%:

TSTB
BM]
DEC
BNE
JSR
DEC
BNE.
BIT
BNE
MOVB
ADD
MOVB
TYPE,
BIT
BEQ

HALT

BR
MOV
CLR
CLR
MOV
MOVB
MOVB
BIC
BIC
ADD
ADD
DEC
BNE
ASR
ASR
NOP
NOP
ASR
ASR
NOP
NOP

aCSR
38
R1
18
PC,CTRLCG
RO
1%
#5W13,aSWR
5%
11$+1,RO
#60,R0
RO,OUTCHN
OUTRNG
#SW15,aSWR
53

‘WAIT FOR IDLE

:DELAY
:TEST FOR CTRL G OR C
*FINISHED OUT OF RANGE TIMER

:TEST IF INMIBIT TYPEOUT
:BR IF INHIBIT
:GET CAMERA #
:MAKE INTO ASCII
*INSERT INTO ASCII ERROR MESSAGE
TELL OPERATOR
*TEST IF HALT ON NO CONVERSION ERROR
*BR IF CLEARED

:NO CONVERT FLAG - INPUT VOLTAGE WAS OUT OF RANGE OR NO ‘7' PULSES

#BUF0,RO
R3
R4
#4,108
(R0)+,R2
(RO)+.R1
#177400,R2
#177400.R1
R1,R4
R2,R3
10§
2%
R3
R3
R4
R4

:LOAD POINTER
*CLEAR RESULT
:LOAD COUNTER
:GET LOW BYTE
*GET HIGH BYTE
:UPDATE RESULT
UPDATE RESULT
*FINISHED 2

CZNCCA.

5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219

DIAGNOSTIC

MACYi1 27(654)

8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

000240
010437
105037
110337
013735
000240
000240
000240
000240

NOP
MoV
CLRB
MOvB
MOV
NOP
NOP
NOP
NOP
RTS
10%:
0
118:
0
INOUTZ: TESTZ

040404
040405
040405
040404

000205
000000
000000
000002

013537
113737
105037
105037
013746

040470
040471
040471
040473
040470

003

001

104403
104401

013746
104403

003
000240
000240
000240
000205
000000
000000
000000
000000
000000
000000

040472

PAGE 115

R4,108
108+1
R3,108+1
108,3(R5)+

.BYTE

040724

TYPE,

0460472

MOV

TYPOS

001

108:
118:

CAMOG1:

CAMOG2:
CAM1G1:
CAM1G2:

BYTE
NOP
NOP
NOP
RTS
0
0
0
0
0
0

3,1

;TYPE 3 DIGIT NUMBER

JEXIT

CAM3G2: 0
0

012
030115
020061

020060
036530

015
103
043440
000075
015
040503
036386

012
046501

030060

012
030115
020061

020061
036530

031075

CAMOTX:

.BYTE
.ASCIZ

15,12
/CAMOO G=1 X=/

CAMOTW:

.BYTE
LASCIZ

15,12
/CAMOO G=2 X=/

CAM1TX:

.BYTE
LASCIZ

15,12
/CAMOT G=1 X=/

054040

RESULT

3,1

11%$,-(SP)

JOYG1:

015
040503
036386

JGET

GIB

CAM3G1: 0

000000
000000

;SAVE THE RESULT

;TYPE 3 DIGIT NUMBER
;AND TRALING ASCII

CAM2G2: 0

000000

sSAVE IT
;CLEAR HIGH BYTE
;LOAD HIGH BYTE

;0= USE CUSTOMER Z PULSES, 1= MAINT Z PULSES

CAM2G1: 0

000000

SEQ 0127

;SUBROUTINE TO TYPE THE CAMERA MESSAGE
CAMUNP: MOV
a(R5)+,10%
MOvB
108+1,11%
CLRB
108+1
CLRB
118+1
108,-(SP)
MOV
TYPOS

000000

K 10

15:05

ICZN(CA

CZINCCA

NCV11

5253
5254

040573
040575

CINCCA.PT
5255
5256

5257
5258
5259

040602
040610

040612
040614
040622

DIAGNOSTIC

MACY11 27(654)

015
103

012
046501

030460

015
040503
036507

012
030115
020061

020062
036530

015
103

031060
054040

043440
000075

031075

054040

5261
5262

040631
040633

040640

043440

012
046501
031075

5266
5267

040652
040660

040503
036507

012
030115
020061

020063
036530

5269
5270

040667
040671

015
103

012
046501

031460

5273

040706

5275
5276
5277

040710
040716
040724

015

047512
045503
054440

012

051531
054040
000075

044524
000075

5279
5280
5281

040736
0744
0752

051105
046101
040505

047105
046040
044522

044524
047111
054524

5263

5271

040676

5274 * 040706

5278

040730

B-AUG-78

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

043440

005015

031075

15,12
/CAMOT1 G=2 X=/

CAM2TX: .BYTE
LASCIZ

15,12
/CAMO2 G=1 Xx=/

CAM2TW: .BYTE
LASCIZ

15,12
/CAMO2 G=2 X=/

CAM3TX: .BYTE
.ASCIZ

15,12
/CAMO3 G=1 X=/

CAM3TwW:

15,12
/CAMO3 G=2 X=/

JOYTX:

043106

PAGE 116

CAM1TW: .BYTE
LASCIZ

054040

044504

L 10

.BYTE
LASCIZ

JOYTWw:

.BYTE

LASCIZ

/JOYSTICK X=/

G1B:

LASCIZ

/ Y=/

GAIN:

.ASCII

15,12

<15><12>/DIFFERENTIAL LINEARITY:/

5283
5284
5285

040761
040766
040773

040
047111
061

020040
036440
040

040507
040
040

GAINX:

.ASCII

GAIN1:

.BYTE

61,40,40,0

5287
5288

040777
041004

040
046888

026455
041123

000040
005015

DASH:
LSBMSG:

.ASCIZ
.ASCIZ

/ ==/
/ LSB/<15><12>

5290
5291
5292

041013
041020
041026

040
042520
052101

045523
020104
024583

050111
052123
024523

SKPMSG:

.ASCIZ

/ SKIPPED STATE(S)/<15><12>

5294
5295

041037
041044

040
047522

025052
025122

051105
006452

ERMSG:

.ASCIZ

/ *+*ERROR**/<15><12>

5297
5298
5299
5300
5301
5302
5303
5304
5305
5306

041054
041062
041066
041074
041102
041110
041111
041116
041124
041132

020040
006513
047040
020127
024105
000
040
051440
051450
052123

020040
000012
051101
052123
024523

047440

OKMSG:

.ASCIZ

047522
052101
005015

NARMSG: .ASCIZ

# NARROW STATE(S)#<15><12>

044527
040524
006451
052101

042504
042524
000012
026505

WIDMSG: .ASCIZ

# WIDE STATE(S)#<15><12>

STATE:

/STATE=-- WIDTH/<15><12>

.ASCIZ

GAIN =/

0K/<15><12>

SEQ 0128

e
e
D ad
i
d ed
d
o

PNONINININ
= b
d e b
o
N=S=O~N~N

RRRRRRERRRRRR

)

i aud

VONOWVSWN=0O

WWWWWWWWWW

wvivyviviaoaviauun

5307
5308

5320

DIAGNOSTIC

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP
020055
006510
046040
054101
040440
122

053111
052503
006472
005015
046102
043516
046120
000
015
047505
047522
051501
020040
020113
044103
020116
015
051040
042503
044440
051501

044527
000012
041123
046511
020124
000
046105

020105
040522
000012
047522
051501
041440
052105

052012
052125
020115
042524
044103
053523
051505
046102

122
020012
050105
051040
020116
042524

042524

047522
051501
040440

020122
000
012
020115
044524
047502

M 10

PAGE 117

SEQ 0129

052104
LINEA:

LASCIZ

/ LSB MAXIMUS AT /

SLASH:
MSG21:

LASCIZ
LASCIZ

020115
044524
066517
042105

COMP:

LASCIZ

<15><12>/ROM BLASTING COMPLETED/

046511
043040
046102
020122
041505
052111
047440
051501

TIMEO:

LASCII

<15><12>/TIMEOUT FROM BLASTER

LASCIZ

<15><12>/ OR REPLACE ROM IN BLASTER/<15><12>

FIELDI:

.BYTE
LASCIZ

15,12
/INTERNAL MAINT. Z PULSES <Y FOR YES> ? /

051105
043117
051440
020123

AVRGO:

LASCIZ

<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

15,12,7
/ROM BLASTING ABORTED/

046440
051525
000
052101
041501
054503

051117
040514
046517
046102
006522
047122
044501
020132
051505
047506
037123

1501

15:05

/RELATIVE ACCURACY:/<15><12>

CHECK SWITCHES ON BLASTER/

128 STATES = /

NCVIT
CZNCCA.PT
CZNCCA

MACY11 27(654)

041572
041574
041577

042105
015
000
020040
053
060
060
000
015
000
040
020127
006526
047040
020114
051505
040
020105
006524
050040
006504
043040
006504

CINCCA.PT

000000
000000
000000
000000
000C00
042162
027340

041756
041762

041770
0461772
041774

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

N 10

15:05

PAGE 118

.BYTE

15,12.7.0

:
SGNVAL

SGNVL1:
LSBTXT:

LASCII
.BYTE
.BYTE

53,40
60,60,52,60,15,12,0

RTN:

.BYTE

15,12.0,0

047514
044515

BELMSG:

LASCIZ

/ BELOW LIMIT/<15><12>

040515
052101
000
053117
044515

NORMSG:

LASCIZ

/ NORMAL STATES/<15><12>

042523

PASMSG:

LASCIZ

/ PASSED/<15><12>

042514

FAIMSG:

LASCIZ

/ FAILED/<15><12>

012

007

026455
040
060
015

020040

012

000

042502
044514
000012
051117
052123
005015
041101
044514
000012
051501
000012
044501
000012

052
012

ABOMSG: LASCIZ

/ ABOVE LIMIT/<15><12>

LSBAVG:
LSBSVQ:
LSBSVR:
LSBSVW:
DIFEX1:

:
ROMPNT
:
NOMIAL

sAVERAGE COUNT

; THESE LOC."'S CLEARED BY DIFLIN
:
AVGVAL

DIFERR:
BELOW:
ABOVE:

SEQ 0130

NCVTT

eolelelelelelelelelele]lele)

CINCCA

MACY11 27(654) 8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

S
e

CZNCCA NCV1T
CINCCA.P1T

MACY11 27(654) B8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

5407

5408
54609
5410
5611
5412
5413
5414
5415
5416
5417
5418
5419
5420
5421
5422

5423
5424
5425

5426
5427
5428
5429
5430
5431

15:05

B 1
PAGE 119

;KEYBOARD CONVERSATION TO THE BLASTER

SEQ 0131

SELECT TEST ''T"

;APPLY POWER TO BLASTER AND DEPRESS 1/0 AND EXECUTE BUTTONS

sALL INDICATORS SHOULD LIGHT

THE BLASTER SHOULD SEND A ‘"' CHARACTER

;TYPE THE COMMANDS FOLLOWED BY A ''CR'’, SOME WILL ECHO THE CR AND OTHERS

sWILL NOT
;TYPE
;TYPE
;TYPE

TYPE "ESC''/"'ALT'' KEYS TO ABORT CURRNET COMMAND

KF2/2
FM30
SPL0037/8]

3TV
LD
:TYPE
D00/37
4G,
. S

041776

105777
100007
000240
000240
000240
017720

005237
105777
100363

LOOPC:

137674

NOP
NOP
NOP

MOV

137662
042160

LOOPD:

137122

005737
001413
012177
005337
001353
012700
010001
005037
000745

042160

105777
100342
017702
042702
022702
001413
022702
001412
020227
103402
042702
010277
000720
000137
012777
012777
000707
000000

137054

TSTB

BPL

042160

BTALK:

060000
042160

;THIS READS THE PROM INTO THE RAM
;THIS OUTPUTS THE RAM CONTENTS
TO THE TTY
;THIS EXITS COMPUTER CONTROL TO THE BUTTON MODE

aDLICSR
LOOPD

abLIBD, (RO) +

;BLASTER INPUT ?
:NO

;SAVE THE CHARACTER

INC

BLTCNT

;UPDATE COUNTER

TSTB

a$TPS

;PRINTER READY ?

(R1)+,38$TPB

;PRINT THE CHAR.

BPL
TST
BEQ

LOOPC
BLICNT
LOOPE

DEC

BLICNT

RO,R1
BLICNT
LOOPC

BPL
MOV
BIC
CMP
BEQ

LOOPC
a$TKB,R2
#177600,R2
#3.R2
2%

MOV

137110

;THIS SETS OCTAL COMMAND MODE
;THIS SET OCTAL INPUT/OUTPUT
;THIS SIZES THE PROM -- 0037/8 IS REPORTED BY THE BLASTER

BNE
MOV
MOV
CLR

LOOPC
#B8UF0,RO

;BR IF NOT
‘
;ANY CHARACTERS
;BR IF NOT

;BR IF MORE DATA

;COME HERE IS NO BLASTER DATA TO BE TYPED
TSTB
a$TKS
;KEYBOARD INPUT

LOOFE:

137050
177600
000003

000177

CMP

137550

1%$:

BEQ
CMP
8LO
BIC
MOV

002644
000033
000134

2%:
LOOPF:

JMP
MOV

000140
000040

137534
136774

MOV
BR
BLICNT: O

;BR IF NOT
:READ CHAR
;MASK THE DATA
sTEST FOR CTRL C
;BR IF CTRL C

#177 ,R2
LOOPF
R2,#140
.
1%
#40,R2
R2,aDLODB

;TEST FOR RUBOUT
:BR IF ESC
;TEST IF LOWER CASE
;BR IF NOT
sMAKE UPPER CASE
;LOAD BLASTER DATA OUT

RBEGO
#33,aDLODB

;JUMP TO RESTART
;LOAD ESC <CANCLE>

LOOPC

#'\,a$TPB
LOOPC

. ’NCCA NCV1T
( 'NCCA P11

8-AUG-78
MACY11 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP
DIAGNOSTIC

5458
5459

cNn
PAGE 120

15:05

;A017 CORRECTION PROM 'VALUES

.BYTE

200,200,200,200,200,200,200,200 ;GAIN = 1 VALUE

200
200

.BYTE

200,200,200,200,200,200,200,200

200
200

.BYTE

200,200,200,206,200,200,200,200 ;GAIN = 2 VALUE

200
200

.BYTE

200
200

:
ROMVAL

)

200,200,200,200,200,200,200,200

<RAM MEMORY>
;A017 CORRECTION PRAM VALUES
;ROMVAL MUST BE IN COMPLEMENTED AND REVERSED ORDER <LSB=MSB>
.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

042222

042242
042245

042260

:
RAMVAL

:M8036 PROGRAM PROM VALUES
042262
042265
042270
042272
042275
042300
042302
042305
042310
042312
042315
042320

244
215
144

244
215
144
144

377

377
377
377
377
377

.BYTE

215,244 ,116,144,215,244,116,144 ;M8036 PROGRAM PROM

116

.BYTE

215,244,116,144,215,2644,116,144

216
377

.BYTE

,377,377
,377 ,377
116,164 ,216,244

377
377

.BYTE

,377
7,377
,377
377,377,377,377,37

116

244

PROROM:

SEQ 0132

NCVI1

DIAGNOSTIC

5506
5507
SS08
5509
5510
5511

042322
042326
042332
042340
042344
042346

104401
104401
042777
004537
052644
004537

051046
051460
000001
043112

5513

042354

042362
042366
042372
042376
042400
042406
042412
042414
042416
042424
042432
042436
042444
042450
042452
042454
042462
042470

CZINCCA

CINCCA.PTT
5505

5512

5514
5515
5516
5517
5518
5519

5520
5521
5522
5523
5524
5525

042352

042360

5526
5527
5528
5529
5530
5531
5532
5533
5534 042474
5535 042476
5536 042504
5537 042512
5538 042520
5539

5540
5541
5542

5543
5544
5545
5546
5547
5548
5549
5550

042524
042530
042534

042540
042542
042546
042550
042554
042560
042564
042570

MACY11 27(654)

B-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

;BLASTER SECTION

D 1

PAGE 121

PRIMO
PRIMS
#81T0,aDLICSR
R5,RDBLST

043112

TYPE,
TYPE,
BIC
JSR
ESCP
JSR

R5,RDBLST

;TELL OPERATOR ABOUT THE CABLE
sAND SWITCHES
;ENSURE INIT. ROM CONTROL LINE
sTELL THE BLASTER TO INITILIZE
JREALLY WE ARE WAITING FOR THE OPERATOR
;TELL THE BLASTER THE KEYBOARD INPUT MODE

004537

043112

JSR

RS ,RDBLST

;TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>

012700
112720
022700
001373
012737
004537
046216
046226
112737
012737
004737
012737
004537
046236
046246
112737
012737
004737

042162
000200
042222

052646
052655

BLAST:

15:05

137336

KFO

000036
046152

046146

000061
042163
0462476
002036
046152

040773
041740

000062
042203
042476

040773
041740

012737
012737
004737

000003
000001
042530
042650

042646
041736
046150

000137
004737
005337

044064
043422
042646

000436
012737

001361
005737
001410
104401
104401
104401
000137
000207

FMO
;PRIME THE MEMORY RAM BUFFER
#ROMVAL ,RO
MOV
#200, (RO) +
MovB
1%:
(MP
#ROMVAL+40,R0
BNE
1%

MOV
JSR
GI1LIMC
GILIMI
MOvVB
MOV

JSR
MOV
JSR
G2L IMO
G2L IM?
MOvB
MOV
JSR

046146

4%:
5%:

6%:

041746
041501
040761
041545
002644

7%:

8%:

BR
MOV

;GET POINTER
;LOAD THE BUFFER
;TEST IF DONE
:BR IF BUFFER NOT PRIMED
#36,PRIME1
;LOAD GAIN AND RESOL. VALUES
RS,LIMITS
;LOAD DIFLIN ERROR LIMIT VALUES
;G1 LIMIT - USERS
;G1 LIMIT = OPTION CHECKOUT
#'1,GAIN]
;LOAD GAIN TYPEOUT VALUE
#ROMVAL +1,ROMPNT
;LOAD RAM POINTER
PC,48
sTEST THAT GAIN
#2036 ,PRIME
;LOAD GAIN AND RESOL. VALUES
R5,LIMITS
;LOAD DIFLIN ERROR LIMIT VALUES
;G2 LIMIT - USERS
;G2 LIMIT - OPTION CHECKOUT
#'2,GAIN1
;LOAD GAIN TYPEOUT VALUE
#ROMVAL +21 .ROMPNT
:LOAD RAM POINTER
PC,48
;TEST GAIN OF 2

MGV
MOV
JSR

108
#3,100%
#1,DIFEX]
#6$ ,DIFEXO
PC,ZAPRAM

JMP
JSR
DEC

DIFLNO
PC,ADJF IX
100%

BNE
TST
BEQ
TYPE,
TYPE,
TYPE,
JMP
RTS

5%
DIFERR
8$
UNFIX
GAINX
ABORTB
RBEGO
PC

;LOAD LOOP COUNTER
;LOAD DIFLIN EXIT FLAG
;LOAD DIFLIN EXIT RETURN
;ENSURE BLASTER RAM HAS BEEN LOADED WITH
;THE 'RAMVAL'' VALUE

;RUN "DIFLIN''
JADJUST AND FIX THE CORRECTION WEIGHTS
JHAS THIS SECTION BEEN EXECITED N TIMES
;BR IF NOT
;TEST IF ERROR OCCURRED?
;BR IF NOT
;TELL THE OPERATOR
JABOUT IT
;TELL OPER. THE BLASTING IS ABORTED
JRESTART
JEXIT

SEQ 0133

CINCCA

NCV11

DIAGNOSTIC

5552

042572

004537

043112

5554

042600

004537

043112

CINCCA.PT
5551

5553

5555
5556
5557

5558

5559
5560
5561

042576

042604
042606
042612

042614

042620
042624

053075

053105
004537
053110

005237

043274

004537
053120

052051

5564
5565
5566
gggg

042634
042636
042642
042646

012600
104401
000137
000000

041222
002644

104411

042650
042654

012703
012700

5577
5578
5579

042670
042672
042674

006102
006001
006102

5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595

042660
042662
042664
042666

042676

042700
042702
042704
042706
042710
042712
042714
042716
042720
042722
042724
042726
042730
042734

112001
105101
005002
006001

006102
006001
006102
006001
006102
006001
006102
006001
006102
006001
006102
110223
020027
001351

042736

004537

5599

042752

004537

5600
5601
5602

5603
5604

sTELL THE BLASTER TO COMP. THE DATA

JSR

RS5.RDBLST

;TELL THE BLASTER TO CHECK=SUM DATA

RS ,RDBLST

sTELL THE BLASTER TO BLAST THE ROM

INC

NOEXIT

;SET FLAG TO EXIT WITHOUT RECPT OF *>'* CHAR FROM BLASTER

TYPE,

PRIM1

MOV
TYPE,
JMP
O

(SP)+,RO
(OMP
RBEGO

RDLIN

1008:

042742
042744
042756
042760
042764

042766
042772

042222
042162

ZAPRAM: MOV
MOV
1%:

042222
052777

052663
004537
053105

004537
053110

MOvB
coms
CLR
ROR

ROL
ROR
ROL

006001

5596

5597
5598

R5,RDBLST

;TELL OPERATOR TO REMOVE RAM CABLE AND INSTERT ROM INTO AO17
;CLEAN STACK
s COMPLETED

;SUBROUTINE TO CONVERT THE MEMORY RAM VALUE INTO RAM MEMORY VALUE

5571
5572

5580

SEQ 0134

JSR
R5,RDBLST
sTELL THE BLASTER TO RETURN TO KEYPAD MODE
ZP0
;INFORM THE OPERATOR ABOUT THE BLASTER ROM

gggg

5573
5574
5575
5576

PAGE 122

JSR

cco
JSR
PGO

043112

104401

15:05

:THE RAM DATA S NOW CORRECT = BLAST THE BLANK ROM

i0s:

043112

042626

042632

B-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

5562

5563

MACY1T 27(654)

ROR

ROL
ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL
MOVR
CMP
BNE

042222

043172
043112

043112

;LOAD OUTPUT POINTER
;LOAD INPUT POINTER

R2
R1
R2

;MOVE CARRY INTO BIT 0
;MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT 0

(RO) +,R1
R1
R2
R1

R2
R1
R2
R1
R2
R1
R2
R1
R2
R1
R2
R2,(R3)+
RO,#ROMVAL+40
1%

;GET A BYTE
s INVERT VALUE
;CLEAR RESULT
;MOVE INTO CARRY BIT

;MOVE INTO CARRY BIT

;MOVE CARRY INTO BIT
sMOVE INTO CARRY BIT
;MOVE CARRY INTO BIT
sMOVE INTO CARRY BIT
sMOVE CARRY INTO BIT
sMOVE INTO CARRY BIT
sMOVE CARRY INTO BIT
sMOVE INTO CARRY BIT
sMOVE CARRY INTO BIT
;MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT
:SAVE OUTPUT BYTE
;TEST IF END
:BR IF NOT

0
0
0
0
0

;SUBROUTINE TO LOAD MEMORY RAM INTO RAM MEMORY

043276
000001

#RAMVAL ,R3
#ROMVAL ,RO

JSR

136724

RAMVAL
BIS

JSR

DIO
JSR
cco

JSR

PGO

RS, CONROM

;CONVERT "ROMVAL'' TABLE INTO BLASTER FORMAT

#31T0,aDLICSR

;ENABLE RAM MEMORY TO BE LOADED

RS ,RDBLST

sTELL THE BLASTER TO CHECKSUM THE DATA

RS ,RDBLST

;TELL THE BLASTER TO PROGRAM THE RAM-PAK

R5,.RDBLST

;TELL THE BLASTER THE NEW RAM DATA

CINCCA

NCVIT

CINCCA. PN

S605

5606

042774

043002

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

042777

136674

BIC

15:05

A TO D FIELD SITE AND ADJUSTMENT LOOP

000207

000001

RTS

F1
PAGE

#8170,aDLICSR
PC

123
JRE-ENTER EMMULATE MODE
JEXIT

SEQ 0135

NCV11

DIAGNOSTIC

MACY11 27(654)

5609
5610
5611

043004
043010
043016

104401
042777
004537

051622
000001
043112

5613
5614
5615

043024 - 004537
043030 052646
043032 004537

043112

5617

043040

004537

043276

5619
5620
5621
5622
5623

043046
043052
043054
043060
043062

004537
052663
004537
053105
004537

043112
043112

5625

043070

005237

043274

5616
5618

5624

5626
5627
5628
5629

15:05

PAGE 124

:BLASTING THE PROGRAM PROM (M8036)

gggg

5612

B8-AUG-78

A TOD FIELD SITE AND ADJUSTMENT LOOP

043022

052644

043036

052655

043044

042262

043066

043074
043100
043102
043106

053110

004537
053120
104401
000137

043112

043112
043112

041222
002644

136660

PBLAST: TYPE,
BIC
JSR

PRIM3
#BITO,aDLICSR
RS,RDBLST

:INFORM THE OPERATOR
;ENSURE ROM MODE
:TE-L THE BLASTER TO INITILIZE

JSR
KFO
JSR

RS,RDBLST

:T:LL THE BLASTER THE KEYBOARD INPUT MODE

RS,RDBLST

:TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>

JSR

RS, CONROM

:CONVERT THE 'PROROM'‘' TABLE INTO BLASTER FORMAT

JSR
DIO
JSR
cco
JSR

RS,RDBLST

:TELL THE BLASTER THE PROM DATA

RS,RDBLST

:TELL THE BLASTER TO CHECKSUM THE DATA

RS,RDBLST

:TELL THE BLASTER TO BLAST THE PROM

INC

NOEXIT

:SET FLAG TO EXIT WITHOUT RECPT OF 'S'' FROM BLASTER

COMP
RBEGO

:INFORM THE OPERATOR IT'S DONE

ESCP

FMO

PROROM

PGO

JSR
ZP0
TYPE,
JMP

RS,RDBLST

:TELL THE BLASTER TO RETURN TO KEYPAD MODE

—

CINCCA

CINCCA.P1T

G 1N

SEQ 0136

LINCCA

NCV1T

ICZNCCA.P11

DIAGNOSTIC

MACY11 27(654)

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

15:05

PAGE 125

;COME THERE TO OUTPUT .\ MESSAGE TO THE BLASTER

043112

010046

043116

012737

000012

043272

043130
043136
043142
043144
043150
043152
043156
043160
043166
043172
043174
043200
043202

017737
105777
100375
105737
001406
112037
001403
113777
105777
100416
005337
001372
005337

136544
136540

043266

043210

005737

043114

043124

043206

5658
5659
5660
5661
5662
gggz

043214
043216
043222
043226
043230
043236
043244
043252
043254
043256
043262

5665
5666
5667
5668
5669

043264
043266
043270
043272
043274

5656
5657

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

H 11

012500
111037

001367

001017
104401
000137
000240
017737
042737
022737
001331
012600
005037
000205
000000
000000
000000
000000
000000

043264

JEXIT ONLY WHEN THE BLASTER HAS ECHOED AN '>''
;REPORT AN ERROR UPON TIMEOUT UNLESS 'NOEXIT'' IS NON-ZERO
RDBLST: MOV
RO,=(SP)
;SAVE RO
MOV
(R5)+,R0O
;GET ARG.
MOV
#10.,13%
;LOAD DELAY FOR ERROR COUNTER
MovB
(R0O),10%
;LOAD A CHAR
MOV
aDLIBD,11%
;FALSE READ TO CLEAR READY
1%:

043264

043264
043264
136504

136516

2%:

043270
043272

043274
041253
002644
136444
177600
000076

043274

043266
043266
043266

4%:

5%:

108:
11%:
12%:
13%:
NOEXIT:

TSTB
BPL
TSTB
BEQ
MOovB
BEQ
MOVB
TSTB
BMI
DEC
BNE
DEC
BNE
TST
BNE
TYPE,
JMP
NOP
MOV

BIC
CMP
BNE
MOV
CLR
RTS
0
0
0
0
O

aDLOCSR
1%
10%
2%
(RO)+,10%
2%
10$,aDLODB
aDLICSR
4%
12%
2%
13%
2%
NOEXIT
5%
TIMEO
RBEGO

;WAIT FOR OUTPUT READY

aDLIBD,11%
#177600,11%
#'>,11%
1%

;READ CHAR
sMASK OFF BITS
sTEST FOR >
: TRY NEXT CHAR.

(SP) +,R0
NOEXIT
RS

;TEST IF FINISHED ?

;GET A CHAR.
;BR IF TERM
;OUTPUT THE CHARACTER
sWAIT FOR INPUT
;BR IF INPUT
;DELAY
;DELAY

sTEST IF EXIT IS ALLOWED WITHOUT "
;BR IF YES

sRESTORE RO
JEXIT

SEQ 0137

8-AU G-78
MACY11 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP

CZNCCA
CZNCCA

15:05

DIAGNOSTIC

5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682

012700
012501
010137
062737

043402

;CONVERT ROM DATA INTO PROM BLASTER FORMAT
#DIDATA+3,R0
;LOAD RESULT POINTER
(R5)+,R1
MOV
;LOAD INITIAL VALUE POINTER

043360

1%:

043374

ADD
NOP
NOP
CMP

043360

BNE

10%:

177477

177770

000060

043416
043420

RTS

R1,10%
#40,10%

(R1) ,R2

PC,SHUFO
(R1) ,R2
PC,SHUF3
(R1)+,R2
PC,SHUF6
#7.R0

R1,10%
1%
RS

;COPY THE START
sMAKE THE END ADDRESS
;GET A BYTE OF DATA
;CONVERT IT TO ASCII
;GET SAME BYTE AGAIN
;CONVERT 2ND DIGIT
;GET MSD
;CONVERT IT
;UPDATE RESULT POINTER
;TEST

THE DATA RIGHT AND MAKE ASCI1

SHUF6:

BIC
ASR
ASR
ASR
ASR
ASR
ASR
BIC
ADD
MOVB
NOP
NOP
RTS

SHUFO:

DONE

JEXIT

:ROTATE

SHUF 3:

043376

MOV
ADD
mMovB
JSR
mMovB
JSR
MOvB

JSR

043362
000007

5683

SEQ 0138

CONROM: MOV

052676

043360
000040

I 1
PAGE 126

CHARACTER

#177477
,R2

;MASK OFF BITS

#177770,R2

:MASK OFF BITS

R2.=(R0O)

;LOAD RESULT BYTE

#60 ,R2

JMAKE ASCII

JEXIT

DIAGNOSTIC

MACY11 27(654)

B-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

012700
013702
010204

062036
041740

062704 000017
012001
061001

163701

010137

000240
000240
000240
000240
000240
000240
000240
000240
000240
000240
000240
000240

108:

041744
041734

:GET BUFFER POINTER
;GET ROM POINTER

(RO)+,R1
(RO) ,R1

“GET LSB (17) M=1
:ADD LSB (00) M

#17 R4

:MAKE END VALUE

SuB

AVGVAL ,R1

MOV

R1,LSBSWW

:SAVE FOR LATER USAGE

MOV

R1,-(SP)

;SAVE ON STACK

JSR
MOV

MOV

PC.,SMULT
(SP)+,100%
(SP)+.101$

:SAVE LSW

MOV
MOV
MOV

1008, = (SP)
1018.~(SP)
AVGVAL ,=(SP)

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP

MOV

000316

013746
013746
013746

043706
043710
041744

012637
012637

MOV
ADD

#BUF 1436 ,R0
ROMPNT ,R2
R2,R4

AVGVAL ,R1

*SUB 2 LSB AVG.

NOP
NOP
NOP

036504
043706

000240

PAGE 127

NOP

004737
012637
(12637

004737
102004
000000
000000
000240

“ADD

SuB

041744

000240
000240
000240

012746

J 1

;SUBROUTINE TO ADJUST THE LSB VALUES

ADJFIX: MOV
MOV
MOV

000240

010146

15:05

043710

036616

041732
041730

JSR
BVC
HALT
HALT
NOP

1$:

NOP

MOV
MOV

#316,-(SP)

*MULTI BY 316 (8)
*SAVE MSW

;

PC,$DIV
1%

:BR IF NO ERROR

(SP)+_,LSBSVR
(SP)+,LSBSvVQ

:SAVE INTGR. REMAINDER
:SAVE QUOTIENT

:NOW ADD THE QUOTIENT TO THE MEMORY RAM VALUE
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

CZNCCA NCVIT
CINCCA.PT

NCV11

5760

5761
5762
5763
5764
5765

g;gg

043624

043630
043632
043634
043636
043640

043642

DIAGNOSTIC
163703

000240
000240
000240
000240
000240

041730

15:05

PAGE 128

SuB

LSBSVQ,R3

;ADD THE QUOTIENT

movBs

R3,(R2)+

;RELOAD MEMORY RAM VALUE

;NOW UPDATE 'M'' VALUE POINTER

5770

043644

5776

043662

5777
5778
5779
5780
5781
5782
g;gz

8-AUG-78

NOP
NOP
NOP
NOP
NOP

110322

2;23
5771
5772
5773
5774
5775

MACY11 27(654)

A TO D FIELD SITE AND ADJUSTMENT LOOP

062700

000036

063701

041734

043650
043652
043654
043656
043660

011001
000240
000240
000240
000240

043666
043670
043672
043674
043676
043700
043702

000240
000240
000240
000240
010110
020204
001256

g;gg

043704

000207

5787
5788

043706
043710

000000
000C00

ADD

#36,R0O

;UPDATE POINTER

ADD

LSBSVW,R1

;CORRECT THE VALUE (#10)

R1, (RO)
R2 R4
10%

sRESTORE FOR NEXT USAGE
sTEST WHEN FINISHED
;BR UNTIL DONE

SEXIT

MOV
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
MOV
CMP
BNE
RTS

1008:
1018:

O
0

(RO) ,R1

;GET VALUE

SEQ 0140

als

CZNCCA

CZNCCA.P

K 11

5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803

043712
043716
043724
043730

005037
112737
105737

001007
104401

005737
100402

046246

012737
105737
001002
104401

000410
022737
001002
000137
000137

041736
000061
001134

040773

MOVB
TSTB

BNE

046146

043776

046150

000062
002036
046152

040773
046146

044044
001134

046150

108:

1$:

050106

TYPE,

PRIMO

MOV
JSR
G1LIMO
GILIMI
MOV
BR
MOVB
MOV
JSR
G2L IMO
GoL IM1
MOV
TSTB

030076

11$:
28:

108

GAIN
DIFLIN

BNE

040730

$AUTOB

TYPE,
ST

BMI

051046
000036
046152

DIFEXT
#'1,GAINT

TYPE,

108

;LOAD GAIN MESSAGE VALUE
:LOAD RESOLUTION AND GAIN
sLOAD DIFLIN TOLERANCE

#2% ,DIFEXO
$AUTOB

GAIN

JMP

RBEGO

$EOP

3s:

041744
041776

DIFLNO: MOV
DIFLNX: CLR
CMP

060000

MOV

#BUFO0,RO

044112

012700
005020
022700
001374
012700
005020
022700
001374

CMP
BNE

#BUF
2 RO
1%

044114

004737

045774

044120
044126

012777
012777

000000
000025

044134
044140
044144
044146
044152
044160

004737
022702
001773

045640
000000

017737

BNE

1$:

064000

135570
000002
135560

CLR

#AVGVAL ,RO
(RO)+
#FIRST+2,R0
DIFLNX

(RO)
+

:LOOK FOR THE DATA REGION FOR TO
135616
135604

135562

046032

;TEST BIT 15
;DONT TELL OPER. ABOUT AQ17
sTELL OPERATOR ABOUT A017

#18,DIFEX0
DIFLNO
#'2,GAIN1
#2036 ,PRIME1
RS,LIMITS

DIFLNO
#-1,RUNDIF
3s

:DIFLIN ROUTINE

;CLEAR EXIT FLAG
;LOAD GAIN MESSAGE VALUE
;TEST IF UNDER MONITOR
sBR IF YES

;LOAD RESOLUTION AND GAIN
;LOAD DIFLIN TOLERANCE

BR
CMP
BNE

JMP

SEQ 0141

#36,PRIME1
RS,LIMITS

002644

105077
152777

LN
PAGE 129

EIFFERENTIAL LINEARITY

b LIN: CLR

040730
043712

177777

15:05

MACY11 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SI'E AND ADJUSTMENT LOOP

;G1 USER LIMIT
:G1 OPTION AREA
;LOAD RETURN ADDRESS

;G2 USER LIMIT
;G2 OPTION AREA
;LOAD RETURN ADDRESS

JRUNNING UNDER MONITOR
;BR IF YES

;ENTER VIA "¥'' SELECTION ?
:BR IF NOT
;YES REPORT END OF PASS

;LOAD CLEARING POINTER
sFINISHED ?
:BR IF NOT DONE
:LOAD BUFFER POINTER
;CLEAR THE DATA BUFFER
:TEST 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
sINIT THE CLOCK PRESET

MOV

#25, aKWCSR

:NOW TIME ''T1'* LENGTH
PC,LISTDT
JSR
5%:
CMP
#0_R2
BEQ
2%
aKWCSR1
CLRB
#BIT1,aKWCSR1
BISB

MOV

aKWPSR,DIFT1

:NOW TIME ''T2'* LENGTH

sENABLE THE CLOCK

;GET CURRENT DATA VALUE
sTEST FOR EXIT OF O DATA REGION
:BR UNTILL DONE

*FIRE ST2

*SAVE COUNTER VALUE

—

CZNCCA NCV1T
CZNCCA.PM

CZNCCA NCVI
CINCCA.PT

044166

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

A TOD FIELD SITE AND ADJUSTMENT LOOP

004737

045640

105077

135536

3$:

022702 000377
001373
152777
017737

000002
135526

004737

045640

135530
046034

022702 000377
001773
105077

152777
017737
005077

135504

000002
135474
135462

045774

013700
005400
010077
012777
012777
012777
005077
005077
013777
052777
052777
052777

046040
135432
000020
004000
135412
135410
046146
000022
000001
000001

105777

100375

135340

MmN
PAGE 130

SEQ 0142

:GET CURRENT DATA VALUE

JSR

PC,LISTDT

CLRB

@KWCSR1

cMP
BEQ

#377 .R2
48

“TEST FOR EXIT OF MAX DATA REGION
*BR IF NOT

BISB
nov

#BIT1,aKWCSR1
aKWPSR,DIFT3
aKWCSR

:FIRE ST2
*SAVE COUNTER VALUE
:STOP_CLOCK

ROR
MOV

RO
RO,HT2T3

272
“SAVE FOR LATER USE

MOV
NEG
MOV
MOV
MOV
MOV
CLR
CLR
MOV
BIS
BIS
BIS

HT2T3.R0
RO
RO, aKWPSR
#20 ., aKWCSR
#CLRALL ,aSFR
#BUF 0, 30F F
aWCR
aBAR
PRIME1,aCSR
#TESTZBIT4,@SFR
#8170.3CSR
#8170, 3KWCSR

:GET AVG CLOCK
“FIX FOR CLOCK PRESET REG
:LOAD CLOCK PRESET
:PRIME CLOCK
SINIT THE NCV11
SLOAD OFFSET
*CLEAR 2 COUNTER
:
*SET MODE AND RES.
“SET TESTZ AND TESTX
SENABLE NCV11
SENABLE CLOCK

8PL

CMP
BNE

#377 .R>
3s

BISB
#BIT1,aKWCSR1
@KWPSR,DIFT2
MOV _
TH
LENG
'‘T3'*
TIME
:NOW
PC,LISTDT
JSR
48 :
CLRB

135476
046036

@aKWCSR1

“TEST FOR ENTRY INTO MAX DATA REGION
“BR IF NOT
:FIRE ST2
*SAVE COUNTER VALUE

:GET CURRENT DATA VALUE

:NOW oersmme THE AVG TIME (T3+72)/2 AM) SAVE IN 'WT2T3"
MOV
DIFT2.RO
GET T2 VALUE
ADD
DIFT3.RO
ZADD T3 VALUE

013700 046034
063700 046036
006000
010037 046040
004737

15:05

:NOW RETURN TO LIST MODE AND LOOK FOR THE NON=-2ERO TO ZERO EDGE AGAIN
DIFLNT: JSR
PC,STDATO
:FIND THE EDGE
TIME
AVG
THE
USING
CLOCK
THE
START
:NOW
“AND DO AN MATRIX MODE COLLECTION

135420
135430
135414

135374
135376
135360
135344

052777 000400 135346

18:

TSTB

BIS

@KWCSR

#ENDDMA ,aSFR

‘WAIT FOR CLOCK FLAG

:STOP DMA XFR

NCVTT
CINCCA.P1T
CZNCCA

DIAGNOSTIC

MACY11 27(654)

15:05

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

PAGE 131

SEQ 0143

;THE MATRIX MODE XFR IF NOw COMPLETED

044410
0444 14
044420
044424
044430
044432
044436
044440
044442
044446
044452
044454
044460
044462
044464
044466
044470
044472

005037

050100

012701

062000

060200

:NOW ADD THE CURRENT B.TE DATA COLLECTION INTO A TOTAL INCREMENT BUFFER
STEMP
CLR
#8UF0 RO
MOV

111037
105020

050100

2$:

012700

063721

050100

012721

177777

103003
005741

3s:

062100

4%:

103001

022700

001372
000241
006002
006001
000241
006002
006001
000241
006002
006001
000241
006002
006001
000241
006002
006001
000241
006002

006001

010137
004737
023737
103644

5%:

062300

041744
046042
041744

(RO) ,STEMP
(RO)+

;GET THE WORD
;CLEAR THE BYTE TABLE ENTRY

3s
-(R1)

Ul IF NO OVERFLOW
;POSITON POINTER

MOV

STEMP1,(R1)+
#-1,(R1)+

:UPDATE THE LIST
:SET 10 177777

*F INISHED?

TMwP

#8UF 2 R1

CLR
CLR

e
R2

BCC

:BR IF NO CARRY OVERFLOW

,R0
#MBUF1+192.

;FINISHED THE BUFFER

:U IF NOT
2%
BNE
STATES
CENTER
128
THE
OF
AVERAGE
:GET THE
;GET INITIAL POINTER
#8UF 1+64. RO
MOV

062001

005202

MOVB
CLRB

ADD

001364
005001
005002

#BUF 1 .Rl

BCC
TST

022701 064000

012700

MOV

0461742

ADD
INC

(MP

BNE
cLc
ROR
ROR
cLc
ROR
ROR
cLc
ROR
ROR
cLC
ROR
ROR
cLC
ROR
ROR
cLc
ROR

(RO)+,R1

;GET A VALUE

JUPDATE MSW

:BR IF NOT DONE AVERAGE

R2
=1

;ROTATE MSW
JINTO LSW

R2
R1

;ROTATE MSwW
2INTO LSW

RZ
R1

;ROTATE MSW
JINTO LSW

R2
R1

;ROTATE MSwW
JINTO LSW

:ROTATE MSW

ROR

R2
R1

:ROTATE MSwW
JINTO LSW

BLO

DIFLNI

BR IF NOT

MOV
JSR
cMpP

R1,AVGVAL
PC,CTRLCG
AVGVAL ,NOM]AL

JINTO LSW

;SAVE THE AVERAGE
:TEST FOR “C OR “G
TESY IF AVG. IF >

CZNCCA NCV11
CZNCCA.PN

DIAGNOSTIC
MACY11 27(654)
B8-AUG-78
A TO D FIELD SITE AND ADJUSTMENT LOOP

gggg

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
5958
5959

ggg?

5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5077
5978
5979
5980

;READ THE

044564
044572
044576
044602
044606
044614
044616
044622
044630
044632
044640
044644
044650
044654
044660

044664
044670
044674
044700

044704

013737
012700
012701
012137
163737
100006
005137
112737
000403
112737
013746
012746
004737
012637
012637
013746
013746
013746
004737

102003

044706
044710
044712
044714
044720
044724
044730
044732
044736
044740
044744

000000
000240
000240
012637
012637
013702
006202
023702
002402
005237
000240

044746
044754
044756
044764
044766
044774
044776
045004
045006
045012
045014
045020
045022
045030
045032
045036
045040
045044
045046

123737
103446
123737
103416
123737
103424
122737
001403
005237
000435
005237
000432
122737
001403
005237
000423
005237
000420
122737

041744
000901
062002
045256
045260
045256

045260

045256

000055

041606

000053

041606

045256
001750
036504
045274
045276
045274
045276

READ1:
1%:

2%:

3%:

TOTAL

MOV
MOV
MOv
MoV
SuB
BPL
COM
mMovB
BR
mMovBs
MOV
MoV
JSR
MOV
MOV
MoV
MOV
MoV
JSR

045260
036616

Bv(C

045266
045270
045260

4%:

045266
045270

5%:

HALT
NOP
NOP
MOV
"ov
MOV
ASR
CMP
BLT
INC
NOP

15:05

B 12
PAGE 132

SEQ 0144

INCREMENT BUFFER AND DETERMINE

AVGVAL,101$
#1,R0
#BUF1+2 ,R1
(R1)+,100%
101$,100%
2%
100%
#'=,SGNVL1
3%
#'+,SGNVL1
1008 ,~(SP)
#1000. ,-(SP)
PC,SMULT
(SP)+,107%
(SP)+,110%
107%,-(SP)
1108,-(SP)
101$,-(SP)
PC,$DIV

IF ANY VALUES OUT OF RANGE

;GET AVERAGE
;GET A WORD
;REMOVE THE AVERAGE

s INSERT "*="* SIGN
s INSERT "'+

SIGN

sMULTIPLY NUM-AVG BY 1000.
;GET RESULT
;DIVIDE RESULT
;DIVIDE AGAIN

;FATAL ERROR DURING CAL. OF ERROR TOLERANCES

(SP)+,104%
(SP)+,105%
101$,R2
R2
104%,R2
5%
105%

;GET REMAINDER
;GET Qour
;ROUND UP IF NEEDED
;COMPARE RESULT
;ROUND UP

;DIFLIN ERROR CHECK

045270

046207

045270

046211

045270

046213

000053

041606

6%:

041750
041752
000053

7%:
041606

20%:

041762
041766
000053

22%:
041606

21%:

CMPB
BLO
CMPB
BLO
CMPB
BLO
CMPB
BEQ
INC
BR
INC
BR
CMPB
BEQ
INC
BR
INC
BR
(MPB

105% .NORTOL
50%
105% ,NARTOL
20%
1058 ,NURTOL
21%
#'+,SGNVL1
- 7%
BELOW
51%
ABOVE
51%
#'+,SGNVL1
22%
NARB
51%
WwIDB
51%
#'+,SGNVL1

sTEST AGAINST NORMAL
;BR IF OK
;TEST AGAINST WIDE/NARROW TOLERANCE
;BR IF OK
sTEST AGAINST LARGE/SMALL TOLERANCE
;BR IF OK
STEST IF +

;COUNT THE LOWER VALUE
;COUNT THE HICHER VALUE
JTEST IF +
;COUNT THE LOWER
;COUNT THE HIGHER
JTEST IF +

CINCCA NCVTT
CZNCCA.PT

5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009

045054
045056
045062
045064
045070
045072
045076
045104
045106
045112
045114
045120
045122
045126
045132
045136
045140
045144
045150
045152
045154
045156
045164
045166
045172
045176
045200
045204

DIAGNOSTIC

MACY11 27(654)

8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

001403
005237
000411

005237
000406
005237

122737
001054
105737
001051

005737
001013
005237
104401
013746
104405
104401
104401

010046
104403
003
122737
001005
104401
013746
104405

013746
004737
012602
062702

041760

041754

000115

;REPORT

041774
041446
041744
041617
041132
001
000115

10%:
052474

040777
045256

045270
037232

004737

046042

000000
000000
000000

50%:
51%:

041774

112237
112237
112237
104401

000000
000000
000000
000000
000000
000000
000000

052474

001134

000002
041610
041611
041613
041600

005200
022700
001414
000137

23%:

041764

11%:

BEQ
INC
BR

INC
BR
INC

CMPB
BNE
TSTB
BNE

000377
044602
1008:
1018:
102%:
1038:
104%:
105%:
1068:

107%:
1108:
111%:

c 12
PAGE 133

23%

TYPE
MOV
TYPDS
TYPE,
TYPE,
MoV
TYPOS
.BYTE
(MPB
BNE
TYPE,
MOV

TYPDS

MOV
JSR
MoV
ADD

JSR

INC
cMP
BEQ
JMP

O
O
O
O
O
O
0

O
O
0

SEQ 0145

NARA

;COUNT THE LOWER

WIDA

;COUNT THE HIGHER

NORMAL
#'M,RUNIT
77%
$AUTOB
77%

;COUNT THE NORMAL
sTEST IF FORCE REPORT

51%

THE STAT E INFORMATION
FIRST
TST
108
BNE
FIRST
INC

MOVB
MOVB
MOVB
by
P

77%:

15:05

.AVRGO

AVGVAL ,=(SP)
RTN

;TEST

IF MONITOR ?

;BR IF YES

sFIRST TYPEOUT ?

;BR IF YES
:SET FLAG

;TELL THE OPERATOR THE AVERG.

STATE
RO,=(SP)

;ADD HEADER INFO
;LOAD STATE #

3.1
#'M,RUNIT
11%

sTEST IF EXPAND OUTPUT SELECTED

DASH
100%,-(SP)

105%,-(SP)
PC,$SB2D
(SP)+,R2
#2,R2
(R2)+,LSBTXT
(R2)+,LSBTXT+1

s INSERT SPACING
;REPORT DIFFERENCE
s CONVERT TO ASCII

;GET RESULT POINTER TO MESSAGE
;ADJUST POINTER

(R2)+,LSBTXT+3

SGNVAL

PC,CTRLCG
RO
#255. ,RC
READ
1%

;TEST

sTEST IF

CTRL C/G
DONE

;BR IF DONE

;TRY NEXT VALUE

CZNCCA

NCV11

CINCCA.PT

DIAGNOSTIC

MACY11 27(654)

A TO D FIELD SITE AND ADJUSTMENT LOOP

6033

6034
6035

045302

005037

041746

6037

045312

063702

041750

6036
6038

6039
6040
6041
6042

6043
6044
6045

6046

6047

6048

6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059

045306

045316
045322
0453246
045330
045334

045340
045342
045346

045352

045356

045360

013702

120237

101026
013702
063702
120237

101017
013702
063702

046214

046206

041754

041702

045516

041714
041746
041750

045516

104401
013746

041066
041754

6064
6065
6066
6067

045452
045456
045462
045466

104401
013702
063702
010246

041642
041764
041766

6069
6070

045472
045476

104401
013746

045504

104401

6063

6068

6071

28;%

045450

045470

045502

104405

sJTEST IF EXCEEDS LIMIT <OBEASE ABOVE/BELOW>

BHI

CMPB

18:

BHI
MOV
BR

1%
NARA ,R2
WIDA,R2
R2 ,NURCNT
1%
NARB,R2
wiDB,R2

R2 .NARCNT
1%

NORCNT ,NORMAL

1%
#PASMSG,READ7
2%
#FAIMSG,READ7
DIFERR
BELOW,=(SP)

;ADD LOW

;BR IF ERRORS
;GET LOW VALUE
;ADD HIGH

sTEST IF EXCEEDS LIMIT <LARGE ABOVE/BELOW>
;GET LOW VALUE
sADD HIGH

sTEST IF EXCEEDS LIMIT <SMALL ABOVE/BELOW>
;TEST IF MIN. NORMAL COUNT HAS BEEN HIT
;LOAD MESSAGE POINTER

.BELMSG
NARA,R2
NARB,R2
R2,=(SP)

TYPE
MOV

. NARMSG
NORMAL ,=(SP)

: TYPE MESSAGE
;GET NORMAL COUNT

TYPE,
MOV
ADD
MoV

NORMSG
WIDA,R2
wiDB,R2
R2,=(SP)

sJREPORT NORMAL TEXT
;GET WIDE LOW
;ADD WIDE HIGH

041111
041752

TYPE
MOV

.WIDMSG
ABOVE ,~(SP)

; TYPE MESSAGE

041663

TYPE

.ABOMSG

2%:

041623
041760
041762

MOV
INC
MoV
TYPDS
TYPE
MOV
ADD
MoV

BELOW,R2

;LOAD MESSAGE POINTER
;SET ERROR FLAG
;sGET NO. OF STATES BELOW LIMITS
;REPORT VALUE
: TYPE MESSAGE
;GET NARROW LOW
;ADD NARROW HIGH
;JGET NO. OF NARROW STATES

28;2

TYPDS

;TYPE NO. OF STATES ABOVE LIMIT
; TYPE MESSAGE

;REPORT PASS/FAIL MESSAGE

6076

045510

104401

6078

045516

041702

6077

R2,0BSCNT

CMPB

123737

045440
045444

CMPB
CMPB

046210

104405

;GET HIGH VALUE

BHI
MOV
ADD

041762
041766

6061
6062

045436

ABCVE ,R2

BHI
MOV
ADD

041760
041764
046212

101004
012737
000405
012737
005237
013746
104405
104401
013702
063702
010246

PAGE 134

MOV

ADD

120237
101010

D 12

;NOW ACCOUNT FOR ALL THE ERRORS
READ:
(LR
DIFERR
;CLEAR FLAG

041752

045366
045370
045376
045400
045406
045412
045416
045420
0454246
045430
045434

6060

15:05

8-AUG-78

045514

104401

040730

TYPE,
READ7:

TYPE

PASMSG

GAIN

;RE-TYPE THE GAIN MESSAGE
JREPORT PASS/FAIL

SEQ 0146

NCVIT
CINCCA.PT
CZNCCA

6081

DIAGNOSTIC

MACY11 27(654)

15:05

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

045520
045526
045530
045534

032777
001440
005737
001435

004000

045536
045542

012700

042162

104401
104401
104401

041617
041617
041617

004737
022700
001373

000417

012701

104401
112002

0461736

045572
042262

000020

041617

042702
010246

177400

003
104401
005301
001366
000207

001
041002

005037
000177

041736
000310

104403

133412

E 12

PAGE 135

;TYPE OUT MEMORY RAM AlD RAM MEMORY VALUES IF SELECTED

READXX: BIT
BEQ
TST
BEQ

#SW11,aSWR
4$
DIFEX1
4%

;TEST IF THIS IS WANTED
;BR IF NOT
;TEST IF BLASTING MODE
;BR IF NOT

MOV

#ROMVAL ,RO

;LOAD INITIAL POINTER

TYPE,
TYPE,
TYPE,

RIN
RIN
RIN

1%:

JSR
CMP
BNE

2%:
3%:

;TYPE OUT LINE
;TEST IF ALL DONE
;BR IF NOT

MoV

#16. .R1

;LOAD WIDE COUNTER

BIC
MoV

#177400,R2
R2.=(SP)

sMASK OFF HIGHER BITS
;LOAD VALUE

TYPE,
DEC
BNE
RTS

5.7
DASH+3
R1
3%
PC

sFINISHED ?

CLR
JMP

DIFEX1
aDIFEXO

TYPE,
MOVB
TYPOS

4%:

PC,2%
#ROMVAL+100,RO
1%

RIN
(RO)+,R2

;GET A BYTE

SEXIT

SEXIT THIS CRAZYNESS

SEQ 0147

NCV11
CINCCA.PT
CZNCCA

F 12
PAGE 136

15:05

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

SEQ 0148

;DIF LIN SUBROUTINE LIST MODE DATA COLLECTOR

6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124

6125
6126
6127
6128

012777
005077
012777
012777
012777
032737
001403
052777
052777
052777

004000
134976
177770
060000
000000
002000

105777
100375
012700

134014

002000
000002
000001

LISTDT: MOV

134072
134066
134052
046146

MOV
MOV
MOV
BIT
BEQ
BIS
BIS
BIS

#-8. ,aWCR
#8UF0,aBAR
#0,aCSR
#2000,PRIME1
3%
#2000,aCSR
#TESTZ ,aSFR
#B1T0,aCSR

TSTB

aCSR

134034
134036
134020

CLR

3%:
1%:

060000
000010

2%:

177400

045772

046010
046012
046016

012737
004737
005702
001403
005037
000771

177777
045640

046020
046024

005737
001366

046030

000207
000000
000000
000000
000000
000000

046030

a0FF

1%
#BUFO,RO
R2

DEC

RTS

STDATO: MOV

R1,R2
2%
R2
R2
R2

1%:

JSR
TST

#-1,10%

sLOAD WC.
;LOAD BUS ADDR.
;SET RES. AND MODE
;TEST GAIN BIT

:BR IF CLEARED
;SELECT GAIN = 2
sSET Z PULSES
;ENABLE THE DEVICE

;LOAD POINTER TO NEW DATA

MOV
CLR
BIC

; SUBROUT
INE TO FIND THE

;CLEAR THE DEVICE

;PRIME OFFSET REG.

;WAIT FOR IDLE

(RO) ,R1
+
(RO)
#177400,R1

BNE
ASR
ASR
ASR

045766

046026
046030
046032
046034
046036
046040

BPL
MOV
CLR

ADD

045762

045774
046002

#CLRALL ,aSFR

134110

;LOAD COUNTER
;GET DATA WORD
;CLR BUFFER WORD
;MAKE OFF BITS
;UPDATE TOTAL
sFINISHED ?
;BR IF NOT

JEXIT

TRUE EDGE OF

PC,LISTDT
R2

ZERO DATA

;SET ENTRY FLAG
;GET DATA
;CHECK DATA
;:BR IF ZERO
;CLEAR ALREADY NON-ZERO DATA FLAG

BEQ
2%
CLR
10%
1%
BR
;DATA WAS ZERO - CHECK IF WE STARTED IN O DATA REGION
2%:
TST
108
;TEST FLAG
:;BR IF NOT A GOOD TIME TO EXIT
1%
BNE

:DATA HAS NOW GONE TO A GOOD ZERO DATA REGION

JNOW EXIT
10%:

DIFT1:
DIFT2:

DIFTS:

HT2T3:

RTS

O
O

;BYEBYE

CZNCCA NCV11
CZNCCA P11

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
6191
6192
6193
6194

046042
046046
046050
046056
046064
046072
046074
046102
046104
046106
046110
046116
046120
046124
046132
046134
046136
046140
046142
046144
046146
046150
046152
046154
046160
046162
046164
046166
046170
046174
046176
046200
046202
046204

15:05

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP
105777
100033

017737
042737
022737
001014
052777
000240
000240
000240
052777
005726

G 12

PAGE 137

;SUBROUTINE TO TEST IF OPERATOR TYPED CTRL C OR G

CTRLCG: TSTB

133076
133072
177600

000003

046140
046140
046140

000400

133654

004000

133640

002012
000007

046140

BPL

MOV

BIS
TST

1%:

JMP
CMP
BNE
GTSWR

RTS
2%:
CTRCHA: 0

PRIME:
PRIMEQ:

a$TKS
2%
a$TKB,CTRCHA
#177600,CTRCHA
#3,CTRCHA
1%
#ENDDMA ,aSFR

s INPUT FLAG
;BR _IF NON
;GET CHARACTER
;MASK OFF BITS
sTEST IF CTRL C
;BR IF NOT *C
;STOP NPR'S

#CLRALL ,aSFR
(SP) +
RTRT
#7,CTRCHA

;CLEAR THE DEVICE
;CLEAN STACK
;RE=-START
:TEST IF CTRL G

:BR IF NOT

JEXIT

;GET SWR VALUE

=1.
177400

PRIME1: 36

DIFEXO: 0O

012500
005737
001402
012500
000401
005725
012701
012021
012021
012021
012021
000205

;SUBROUTINE TO DETERMINE ERROR LIMITS FOR DIFLIN

050110

046206

LIMITS: MOV
TST
BEQ
MOV
BR
1%:

2%:

TST

MOV
MOV
MOV
MOV
MOV
RTS

(R5)+,R0O

;GET 1ST ARG.

WFMODE
1%

:TEST IF ON TESTER
;BR IF NOT

(R5)+
#NORCNT ,R1
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+.(R1)+

;BUMP ADDRESS
:GET POINTER
:GET VALUE

5?5)+.R0

:GET TESTER LIMITS

JEXIT

SEQ 0149

MACY11 27(654) B8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

6199

PAGE 138

SEQ 0150

sJACTUAL VALUES FOR DIF LIN ERROR TOLERANCE

6195

6196

6197
6198

15:05

046206
046207
046210
046211
046212
046213
046214
046215

NORCNT:
NORTOL:
NARCNT:
NARTOL:
NURCNT:
NURTOL:
OBSCNT:
0OBSTOL:

322
013
036
032
016
145

377

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

:"NORMAL'* MIN COUNT VALUE
:"NORMAL'' TOLERANCE VALUE
:"NARROW/WIDE'* MAX. COUNT VALUE
:"NARROW/WIDE'' TOLERANCE VALUE

377

;DIFLIN ERROR TOLERANCE
046216
046220
046222
046224

342
024
010
000

025

GI1LIMO:

145

377

.BYTE

.BYTE
.BYTE
.BYTE

226.,21.
20.,51.
8..101.
0.,377

;DIFLIN ERROR TOLERANCE
046226
046230
046232
046234

342
024
010
000

024

GILIM1:

140

377

.BYTE
.BYTE
.BYTE
.BYTE

226.,20.
20.,49.
8..96.
0,377

;DIFLIN ERROR TOLERANCE
046236
046240
046242
046244

330
036
010
000

031
073

G2LIMO:

171

377

330
010
000

025
063
145

377

G2LIM1:

GAIN = 1

USER

:226 MIN. COUNT, =<2.0%
:20 MAX. COUNT, =<5.0%
;8 MAX. COUNT, =<10.%
:0 MAX COUNT, >10%
GAIN = 1

OPTION AREA

;226 MIN COUNT, =<1.9%
:20 MAX. COUNT, =<4.8%

:8 MAX COUNT, =<9.5%
;0 MAX COUNT, >9.5%
GAIN = 2

USER

.BYTE

216.,25.
30.,59

:216. MIN COUNT, =<2.4%
:30. MAX COUNT, =<6.0%

.BYTE

0..277

:0 MAX COUNT, >12.0%

8..121.

;DIFLIN ERROR TOLERANCE
046246
046250
046252
046254

:"LARGE/SMALL'' MAX. COUNT VALUE
:"LARGE/SMALL'' TOLERANCE VALUE
:"OBESITY'' MAX. COUNT VALUE
:"OBESITY'" TOLERANCE VALUE

.BYTE
.BYTE
.BYTE
.BYTE

216.,21.

30.,51.
8..101.
0..377

:14. MAX COUNT, =<12.0%

GAIN = 2

OPTION AREA

;216. MIN COUNT, =<2.0%

:30. MAX COUNT, =<5.0%
:8. MAX COUNT, =<10.0%
:0 MAX COUNT, >10.0%

TM~

CZNCCA NCV1T
CINCCA.PIT

H 12

042524
020106
020066
034115

6283

046641

015

6285
6286
6287
6288

046650
046656
046664
046672

045104
047105
040440
052101

6284

046643

101

032

036440

051525
020124
030460
043040

/C = CONTROL PROGRAM PROM BLASTING/

042040
042522
020114
051101
043117
040440

043040
040440
040524
046050
042040

040440

046524
043117
020067
042511

BYVE

15.1¢2

/L = LOGIC TEST OF M8026 AND M8036/

BYTE
LASCII

15 2
DIFFERENTIAL LINEARITY OF THE A017/
/D

BYTE
LASCII

15,12
/F = FINAL ACCEPTANCE (L AND D)/

el
e

LASCII

LIST:

047514

15,12

047101
031460
015
104
043111
052116
044514
052111
052040
030460
015
106
047111
041503
041516
040440

047503
020114
040522
046517
052123

bR
S-B-B-B-B-B-B-B-B-B-DB D_B-D 5 D D D _D_D-D D _D_ 5 5

020103
047440
031060
020104
066
012
036440
042506
040511
042516
020131
042510
067
012
036440
046101
050105
020105
042116

BYTE
LASCIZ

052040
047111
054524
042522
020116

046520
046526
046531
046533
046540
046546
046554
046562
046570
046576
046601
046603
046610
046616
046624
046632

044507

052123
034115

15,12
/B = BLASTING OF THE LINEARITY CORRECTION PROM/

6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281

046476

020075

BYTE
LASCI1

046504
046512

6263

020114

041040
047111

e T

6264
6265

020114
040440
046524
051525
044124
046101
051505

046470

040511
033461
051525
020124
020107
047101
052040
122
012
036440
052123
043117
046040
044522
051117
047511
046517
012
020075
047522
043517
051120
040514
000107
012

15,12
/1 = INITIAL AO17 ADJUSTMENT USING THE ANALOG TESTER/

6262

052111
030101
045104
047105
047111
020105
043517
042524
015
102
040514
020107
042510
040505
041440
052103
051120
015
020103
052116
051120
020115
041040
047111
015

.BYTE
LASCII

6237 046266
6238 046274
6239 046302
6240 046310
6241
046316
6242 046326
6243 046332
6244 046340
6245 046343
6246 046345
6247 046352
6248 046360
6249 046366
6250 046374
6251
046402
6252 046410
6253 046416
6254 046422
6255 046424
6256 046432
6257- 046440
6258 046446
6259 046454
6260 046462
6261
046466

LISTO:

047111

012
020075

015
020111

e T

046256
046260

SEQ 0151

BYTE

LASCII

13,12

/A = ADJUSTMENT OF AO17 AT FIELD SITE/

e T

6235
6236

A TO D FIELD SITE AND ADJUSTMENT LOOP

112
PAGE 139

DIAGNOSTIC

15:05

NCV11

CINCCA.PT

B-AUG-78

e T

CZINCCA

MACY11 27(654)

047100
047101
047103

040522
052111

047101
012
020075
052040
042520
020122
042522
052040
044514
056
047106

012

000

SEQ 0152

052111

047440
042524
020110
052101
042522
047116
051440
051101
052111
043505
020122
042507
042510
042510
040522
047101
054524
044510
052123
LISTL:
DOT:

.BYTE
LASCII

15,12
/0 = OPERATE WITH TTY AT ADDRESS NNNNNN/

.BYTE
LASCII

15,12
/S = SOFTWARE

.BYTE
.ASCIZ

15,12
/H = HELP THE OPERATOR AND RETYPE

.BYTE
LASCIZ

15,12
/.7

SWITCH REGISTER CHANGE/

OOM

PAGE 140

D222l

012
036440

J 12

THIS LIST/

.EVEN

mmmrammmmmmm

051440

046700
046706
046707
046711
046716
046724
046732
046740
046746
046754
046757
046761
046766
046774
047002
047010
047016
047024
047026
047034
047042
047050
047056
047064
047072

15:05

mmmmm

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

mermm

CZNCCA NCVIT
CZNCCA.PT

000005
104401

052242
006935
132562
046140

047132
047136
047140
047146
047152
047154

105777
100375
052777
105777
100375

132560

012777
005077
005037

132564

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

28:

004000

48:

000040

5%:

050044

TSTB

BIC

#RIT9,aVICSR

:CLEAR THE ERASE BIT

MOV
MOV
JSR
INC
(MP
BNE

#10421,R1
#3740 ,R0
PC.DISPLY
RO
#4000,R0
3s

:LOAD THE PIXEL VALUE
*LOAD THE PIXEL ADDRESS
*LOAD THE DATA
“UPDATE THE ADDRESS
*FINISHED ?
‘BR UNTIL DONE

MOV
JSR

#0,R0
PC.DISPLY

:LOAD PIXEL ADDRESS
*LOAD THE DATA

MOV
JSR
INC

#7740,R0
PC,DISPLY
RO

:LOAD PIXEL ADDRESS
*LOAD THE DATA
‘UPDATE THE PIXEL ADDRESS

INC
CMP
BNE

RO
#40,R0
4$

#10000,R0O
5%

*UPDATE THE PIXEL ADDRESS
*TEST IF DONE
‘BR IF DONE THE VERTICAL

*TEST IF DONE
‘BR IF DONE

:POSITION THE MAP AND DISPLAY
047246
047254
047262
047270

012777
012777
012777
052777

000005
000060
000463
000400

132442
132442
132434
132420

MOV
MOV

#5,aVTCSR
#60,aVTINT

BIS

#BIT8,AaVICSR

MOV

#4635, aVTINT

:WAIT FOR READY

a
:CLEAR THE MAP
‘WAIT FOR READY AGAIN

CMP
BNE

010000

aVvTCSR

1%
#BIT9,AVICSR
gxrcsn

BPL
BIS
ggre

SEQ 0153

;CLEAR THE WORLD
*TELL OPERATOR ABOUT CABLES
:HOME AND ERASE SCREEN
*CLEAR THE MAP P.C.
“CLEAR TTY CHARACTER

:NOW LOAD THE REF. PATTERN INTO THE MAP
3$:

007740
022700
001372

PRIM?
#6035,aVTCHAR
avTYPOS
CTRCHA

:ERASE THE SCREEN MAP

i$:

001000
132544

047226
047232
047236
047240
047244

POTIME: RESET
TYPE,
MOV
CLR
CLR

K 12
PAGE 141

:LOAD ORGIN VALUE
*LOAD LUT 0

*L0AD LUT 1

:ENABLE THE MAP

@©DD

047106
047110
047114
047122
047126

15:05

DODODPoo®

MACY11 27(654)
8-AUG-78
A TO D FIELD SITE AND ADJUSTMENT LOOP
DIAGNOSTIC

OOOOOOOOOOOOOOOAMAOO
DD

CZNCCA NCViT
CZNCCA.PT

SEQ 0154

;NOW SAMPLE THE CAMERA CHANNELS

SAMCAM:

047276
047302
047304
047306

004537
050126
001730

047422

000

047310
047314
047316
047320

004537
050312
001732
001

047422

047322
047326
047330
047332

004537
050476
001734

047422

002

000

047334
047340
047342
047344

004537
050662
001736
003

047422

047346
047352
047354
047356

004537
050220
001732

047422

000

001

004537
050404
001730
001

047422

004537
050570
001736

047422

001

001
047422

6401
6402

004537
050754
001734
003

6404

000137

002644

001

;CAMERA 0, X INPUT
R5,ADJCAM
JSR
ADMSGO
DACO
.BYTE
0,0
INPUT
X
1,
;DO CAMERA
R5,ADJCAM
JSR
ADMSG2
DAC1
OYIE
1.0
;DO CAMERA 2, X INPUT
RS ,ADJCAM
JSR
ADMSG4

DAC2
BYTE

2,0

JSR

R5,ADJCAM

DAC3
BYTE

3,0

;DO CAMERA 3, X INPUT
ADMSG6

*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

:NOW SAMPLE THE Y CAMERA CHANNELS
;DO CAMERA 0 Y INPUT
JSR
ADMSG1
DAC1
.BYTE

;DO CAMERA 1,
JSR

ADMSG3
DACO

R5,ADJCAM

0.1

;CAM 0 Y MESSAGE
;DAC ADDRESS
;CAMERA 0, Y AXIS

;CAM 1, Y MESSAGE
;DAC ADDRESS
;CAMERA 1, Y AXIS

INPUT
R5,ADJCAM

;DO CAMERA 2, Y INPUT
JSR
ADMSG5

DAC3

R5,ADJCAM

2.1

;DO CAMERA 3, Y INPUT
JSR
ADMSG7
DAC2
.BYTE

R5,ADJCAM

JMP

RBEGO

3.1

;CAM 2, Y MESSAGE
;DAC ADDRESS
;CAMERA 2, Y AXIS

;CAM 3, Y MESSAGE

—

047276

002

6403

PAGE 142

:DAC ADDRESS

;CAMERA 3 Y AXIS

oMM

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

L 12

—

15:05

jelvlivieieielolele)

CZNCCA NCVIT
] CZNCCA.PT

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

CINCCA NCV1T
CINCCA.PT

MACY11 27(654) 8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

15:05

Mm12

PAGE 143

SEQ 0155

sREPORT THE MESSAGE FIRST

047422
047424
047430
047432
047440
047444
047446
047452
047454

012500
005777
100375

012777
005777

ADJCAM: MOV
TST
3%:

132256

012000
132242

100375
112077
105710

132234

047456
047462

013537
012537

050104
050112

047466
047474
047500
047504

012777

002315
047576
050120
050022
004000
047576
050122
050022
005463
047576
050124
050022
046042
000103

132254

1%:

047510

047516
047522

000410

2%:

#12000,avTCXY

BPL
MovB

1%
(RO)
+ ,aVTCHAR

;POSITION THE CAHRACTERS
READY

;WAIT FOR CHAR.

BNE

(RO)

;TEST IF

MOV
MOV

@(R5)+ ,DACADR
(R5)+, CAMVAL

;SAVE ADDRESS
:SAVE CAMERA DATA

#2315 ,3DACADR

;PRESET DAC TO - GAIN INPUT

R1,VALO

;SAVE RESULTS
JPOSITION THE CROSS HAIR LINE

MOV

JSR

PC,SAMDAT

JSR

PC,FIXLIN

000366

MOV
JSR
MOV

000344

MOV

JSR

MOV
JSR

#4000 ,aDACADR
PC,SAMDAT
R1,VAL1
PC,FIXLIN

#5463 ,aDACADR

PC,SAMDAT

JSR

R1,VAL2
PC.FIXLIN
PC,CTRLCG

CLR
RTS

CTRCHA
RS

M8
BNE

046140

;GET ASCII POINTER
sWAIT FOR READY

aVTCHAR

TST

MOV

046140

BPL
MOV

TSTB

001371

(R5)+,R0O
aVTCHAR

#°'C.CTRCHA
2%

;LOAD THE CHAR.
TERM.

;BR IF NOT

JPRESET DAC TO OFFSET

;SAMPLE THE DATA
:SAVE AVERAGE RESULTS
JPOSITION THE CROSS HAIR LINE
JPRESET DAC TO + GAIN INPUT
;SAMPLE THE DATA
;SAVE AVERAGE RESULTS

JPOSITION THE CROSS HAIR LINE
JTEST FOR CTRL C/G

;CHECK IF CHARACTER WAS A \(C\
:BR IF NOT
;CLEAR CHAR
JEXIT

;COLLECT 64 SAMPLES FROM THE SELECTED CAMERA

sR1

012700
012701
005020
020001
001375

060000
062000

012777
012777
113777
052777
052777

177700

SAMDAT: MOV
MOV
1$:

060000
050112
000002
000001

105777
100375

132070

012777
005037
005037

004000
050100

050102

CONTAINS THE AVERAGE

2%:
132070

CLR

#BUFO,RO
1 ,R1
#8UF
(RO)
+

;CLEAR THE BUFFER

cMP
BNE

RO.R?
18

sFINISHED

MOV
MOV
MOvB
BIS
BIS

#-100,aWCR
#BUF0,aBAR
CAMVAL ,a(SRHB
#TESTZ ,aSFR
#8170,aCSR

;LOAD WORD COUNT
:LOAD ADDRESS
sSELECT THE CAMERA

TSTB

a(SR

sJWAIT UNTIL DONE

MOV
CLR
CLR

#CLRALL ,aSFR
STEMP]
STEMP2

;CLEAR THE DEVICE

BPL

;BR IF NOT

sSET TEST Z ENABLE

sENABLE NCVTI

CINCCA

NCV11

DIAGNOSTIC

6459

047676

005001

6463
646k

047712
0647716

012037
113737

050100
050101

050102

6469
6470

047740
047744

012037
113737

050100
050100

050102

022700

060200

CINCCA.PTT

MACY11 27(654)

CLR

6471

6472

047726
047730
04773%
047736
047752

047756

063701 050102
022700 060200
001366
000412
063701

6473 047762 001366

6474
6475

047764
047766

000240
000240

6477
6478
6479

047772
047774
047776

000240
006201
000240

050102

6485

050006

000240

050012

000240

050010

6487
6488

050016
050020

000240
000207

6492
6493
6494

050022
050026
050026
050030

006201
000240
000240
000240

6496
g:g;

050036
050042

110177
000207

6490
6491

(RO)+,STEMP
STEMPT, STEMP2

#BUF0+200,R0

ADD

BNE

NOP
NOP

050076

000207

6508
6509
6510
6511
6512

050100
050102
050106
050106
050110

000000
000000
000000
000000
000000

STEMP2 R

JUPDATE THE AVERAGE

BR IF NOT

:FINISHED DATA ?

:AVERAGE THE DATA

;AVERAGE THE DATA

ASR
ASK

R1
R1

:AVERAGE THE DATA
:AVERAGE THE DATA

ASR

:AVERAGE THE DATA

ASR

-AVERAGE THE DATA

SEXIT

;SUBROUTINE TO LOAD X OR Y CROSSHAIRS
FIXLIN: ASR
R1
NOP
NOP
NOP

ADD

131650

050070 052777 000400

;GET DATA

NOP
RTS

6505

(RO)+,STEMP
;GET THE DATA
STEMPI+1 STEMP2 :GET HIGH BYTE DATA

MOV
MOVB

NOP

6495 050032 062701 000100

2558(7:

STEMP2 R1
*UPDATE AVERAGE
#BUF0+200,R0O :F INISHED DATA ?
3
‘BR IF NOT
108

NOP

6499
i
6500 050064 062777 000400
6501 050052 010077 131642
6502 050056 105777 131634
6503 050062 100375
6506 050064 010177 131632

.owsumn POINTER
“TEST IF X OR Y DATA
‘BR IF X

ADD
CMP
BNE
B8R

MOV
MOVB

NOP

6486 050014 006201

#BUF0, RO
CAMVAL+1
Ss

NOP
ASR
NOP

006201

PAGE 144

MOV
TSTB
BEQ

ASR

6480 050000 006201
6481
050002 000240
6482 050006 006201
6483

5%:

108:

6476 047770 006201

6484

3%:

N 12

15:05

A TOD FIELD SITE AND ADJUSTMENT LOOP

6460 047700 012700 060000
6461 047706 105737 050113
6462 047710 001413
6465
6466
6467
6468

B8-AUG-78

MOVB
RTS

#100,R1

R1.,avIXPOS
P(

:SUBROUTINE TO LOAD PIXEL DATA
#400,aVTCSR
;DISABLE MAP
MOV
RO.aVTMAP
*LOAD
MAP PC
1%:
TST18
aVvTCSR
;WAIT FOR MAP READY
BPL
1%
MOV
R1,aVIPX
:LOAD PIXEL DATA

131644

DISPLV 8IC

131620

8IS

RTS

STEMP1: 0
STEMP2: 0
DACADR: 0
RUNDIF: 0
WwFMODE: 0

#400,aVTCSR
PC

SENABLE MAP

:WF OPTION AREA FLAG

SEQ 0156

CZNCCA NCV1T
CZNCCA.PT

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

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

000000

B-AUG-78

000000
000000
000000
040503
015
101

042313
012

045104

040522

030122
020122
051506
012
052512
032062
054040

020071
020130
052105

040503

042515

040522

015
101
020124
047506
043117
015
042101
051040
051117

012
045104
030522

051525
020063

040503

042515

101

015
101

020124
047506
043117
015
042101
051040
051117
044501

020122
051506
012
052512
030062
054440

012

045104

030522
020122
051506
012
052512
031462
054040
042515

012

045104

030522
020122
051506
012
052512
034461
054440
000116

CURENT:
AGAN:
VALO:
VAL1:
VAL2:
ADMSGO:

B 13

PAGE 145

052123
043040
043440
ADMSG1:

020131
052105

052123
043040
043440
040522

ADMSG2:

020060
020130
052105

052123
043040
043440

051525

020064
020131
052105
052123
043040
043440

0
O
0
.ASCII

ADMSG3:

/CAMERA 00/
15,12

LASCII

/ADJUST RO9 FOR X OFFSET/

BYTE
.ASCIZ

15,12
/ADJUST R24 FOR X GAIN/

.ASCII

/CAMERA 00/

.BYTE
LASCII

15,12
/ADJUST R13 FOR Y OFFSET/

BYTE
LASCIZ

15,12
/ADJUST R20 FOR Y GAIN/

.ASCII

/CAMERA 01/

AYTE

051525

040522

0
0

BYTE

051525

020124
047506
043117
015
042101
051040
051117

015

15:05

CAMVAL: 0

000000
000000

040503

050456
050464
050472

MACY11 27(654)

A TO D FIELD SITE _AND ADJUSTMENT LOOP

020124
047506
043117
015
042101
051040
051117

. 6562

6563
6564
6565
6566

DIAGNOSTIC

15,12

LASCII

/ADJUST R10 FOR X OFFSET/

BYTE
.ASCIZ

15,12
/ADJUST R23 FOR X GAIN/

.ASCII

/CAMERA 01/

BYTE

15,12

.ASCI1

/ADJUST R14 FOR Y OFFSET/

MYTE
.ASCIZ

13,12
/ADJUST R19 FOR Y GAIN/

SEQ 0157

CZNCCA

NCVIT

CINCCA.P11

6567
6568
6569
6570
6571
6572

8-AUG-78
MACY11 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP
DIAGNOSTIC

040503

6573
6574
6575
6576
6577

042515
062

040522

012
045104
030522
020122
051506

051525
020061
020130
052105

052512
031062
054040

052123
043040
043440

012

040522

ADMSGé:

ADMSG5:

051525
020065
020131
052105
052123

043040
043440

040522

ADMSG6:

051525
020062
020130
052105

050702
050710
050716
050724
050726
050734
050742
050750
050754
050762
050765
050767
050774
051002
051010
051016
051020
051026
051034
051042

044501

051046
051050
051056
051064
051072

015
044124
043114
020124
041505

052123
043040
043440
040522

12
052512

033461
054440
000116
012

020105
052055
047503
047524

ADMSG7:

051525
020066
020131
052105

052123
043040
043440

042523
051505
047116
020122

PRIMO:

15:05

c 13

PAGE 146

LASCII

/CAMERA 02/

.BYTE
LASCII

/ADJUST R11

.BYTE
LASCIZ

15,12
/ADJUST R22 FOR X GAIN/

LASCII

/CAMERA 02/

.BYTE
LASCII

15,12
/ADJUST R15 FOR Y OFFSET/

.BYTE
LASCIZ

/ADJUST R18 FOR Y GAIN/

LASCII

/CAMERA 03/

.BYTE
.ASCII

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
.ASCI1Z

/ADJUST R17 FOR Y GAIN/

.BYTE
LASCII

/THE SELF=TEST CONNECTOR MUST BE INSTALLED ON AQ017/

15,12

FOR X OFFSET/

15,12

FOR X GAIN/

15,12

SEQ 0158

.BYTE
LASCII

000

042523
051505
047116
020122
041040
047515
051106
042510
067

PRIMG:

051440
020110
030460
052123
047111
051105
051517
020116
020131
052040
047457
042516
PRIMS:

044124
033461

\THE SWITCH ON A017 MUST BE IN "MAINT.'" POSITION (TOWARD THE I/0 CONNECT

051440
020110
030460
052123
047111
047111
047520
047117
040527
042510
041440
052103

15,12

052515
020105
040515
020042
044524
047524

041040
052123
020104
030460

012
042510
041524
040440

SEQ 0159

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

052123
047111
042514
040440

D 13
PAGE 147

.BYTE

052515
020105
046101
047117
067
015
124
044527
047117

15:05

-TETITITITITITITITITIT
T,

8-AUG-78
MACY11 27(654)
A TO D FIELD SITE AND ADJUSTMENT LOOP

LASCII

/THE SELF=TEST CONNECTOR MUST BE REMOVED FROM THE A017/

.BYTE
.ASCII

15,12

CINCCA.PIT

DIAGNOSTIC

NCVTT

CINCCA

\THE SWITCH ON A017 MUST BE IN 'OPER.'' POSITION (AWAY FROM THE 1/0 CONNE

15,12,0

.BYTE
.ASCII

/INSERT RAM-PAK CABLE INTO THE SOCKET ON THE AQ17/

.BYTE

15,12

NCV1T

6675
6676
6677

051542
051550
051556
051564
051572

042523
026515
053523
051505
044442
047042
040440
043117

] CZINCCA.PTT

020124
040520

040522
020113
044103
020117
020054
021115
021040
052122
045516
044440
047522
051501
047523

051516
052105

042523
042522
042510
021117
021040
052125
052125
052040
042510

012
042510
047522
046040
044527
043511
042510
042516
042522

032040
042503
042105
046114
052110
020116
041440
052103

012
012

052170

050055
041101
015
040440
051516
044124
051501
047522
047524
042513
040440
047515

042514
042522
051040
045501
042514

012
042116
051105
020105
042524
020115

051440
020124
030460
052504

000
051501
047515
046501
041440

044440
020124
046102
020104
047111
041517
047117
020067
042514

PRIM3:

PRIM1:

15:05

E 13

PAGE 148

LASCII

/SET RAM=PAK SWITCHES TO ‘‘IN'‘, "NORM'' AND 'OFF'/

.BYTE
LASCII

15,12
/INSERT BLANK ROM INTO ROM BLASTER SOCKET/

.BYTE
LASCII

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 ''1/0'* AND "EXECUTE'' BUTTONS TOGE THER\

\THE & PROCESS LEDS WILL LIGHT WHEN DONE CORRECTLY\

15,12

SEQ 0160

(e ¥

CZNCCA

8-AUG-78
MACY11 27(654)
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
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

015

042504

020123
041442
054505
020116
131
015
015
050042
040503
052515
020105
041505
047524
040440
047503
047524
015
015
050042
040503
052515

012
051120
044124
021122
053440
042522
012
012
030512
046102
052123

047503
042524

052420
052424
052427
052434
052442
052450
052456
052464

052472
052474
052502
052510
052514
052522
052530

047524
046440
041440
052103

030070
047117
051117

020042
020105
041040
047116
020104
042510
020067
041505

020042
020105
041040
047116
020104
042510
033063
042516

PRIMS:

.BYTE
.BYTE
LASCII

.BYTE
LASCII

** CABLE MUST BE CONNECTED TQO THE AO17 CONNECTOR/

FATALO:

.BYTE
.ASCII

15,12,7 ;"RUNIT'' MUST BE ON A WORD BOUNDRY
/FATAL BUS TRAP WHEN PERFORMING TEST "/

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>

012
052101
051525
020120
050040
046522
042524

007
046101
052040
044127
051105
047111
052123

040411
040503
000040
051120
020115
051101
000
012

5 12 .0
5 12
P J3 "* CABLE MUST BE CONNECTED TO THE M8036 CONNECTOR/

15,12.0

000

047125
053440
000
020113
046505

PRIM?2:

15,12
/DEPRESS THE "'CR'' KEY WHEN READY/

.BYTE

012

052572

000

020105
041505

.BYTE
LASCII

051505
020105
045440
042510
042101

SEQ 0161

nmuwununnuununuuuununnnnm

052176
052200
052206

F13
PAGE 149

AT LOCATION /

;'RUNIT"' MUST BE A WORD BOUNDRY
"RUNIT"" MUST BE A WORD BOUNDRY

tntAinIntA
LA

6729
6730

] CZINCCA.PI

15:05

MACY11 27(654)
8-AUG-78
DIAGNOSTIC
A TO D FIELD SITE AND ADJUSTMENT LOOP

NCVTT

CZNCCA

6783

6784
6785
6786
6787
6788
6789

6790
6791
6792
6793
6794
6795

6796

6797

052600

052604
052607
052614

052622
052630
052636

052644
052646
052653
052655
052661
052663

052670

006531

015
117
040440

012
052103
042104
047440
046522
036440
000
027462
0
031515

007
046101
042522
020106
047111
000040

WARNO:

.BYTE
.ASCIZ

15,12,7
/OCTAL ADDRESS OF TERMINAL = /

051523
042524
046101

033
043113
015
106
015
106

062

ESCP:
KFO:

060

FMO:

030111

031457

DIO:

.BYTE
LASCI1
BYTE
LASCIT
.BYTE
LASCII

33,0
\KF2/2\
15,0
\FM30\
15,0
\DIO/37\

067

BYTE

15,2

.BYTE

60,60,60,40

000012

PAGE 150

052671

015

002

6799

052673

060

6801
6802
6803

052677
052702
052703

060
040
060

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

6805

052707

060

.BYTE

60,60,60,40

6807

052713

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

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

060

.BYTE

60,60,60,40

6798
6800

6804

6806

6808
6809
6810
6811
6812

6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832
6833
6834
6835
6836

052673
052676

052706
052712

052716
052717
052722
052723
052726

052727
052732
052733
052736
052737
052742
052743
052746
052747
052752
052753
052756
052757
052762
052763
052766
052767
052772
052773
052776
052777
053002
053003
053006

040

040
040

040
060
040
C60
040

060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040

DIDATA:

SEQ 0162

B8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

15:05

G 13

MACY11 27(654)

nuuuunuuunuunuvuuuvLLULLLLWMEWKn

CZNCCA.PT

DIAGNOSTIC

NCV11

(AnintAatnnnnn

CZNCCA

CZINCCA

NCV11

.CZNCCA.P11
6837

6838

MACY11 27(654)

8-AUG-78

A TO D FIELD SITE AND ADJUSTMENT LOOP

15:05

H13

PAGE 151

060

.BYTE

60,60,60,40

040

6839

053013

060

.BYTE

60,60,60,40

6841
6842
6843

053017
053022
053023

060
040
060

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

6845

053027

060

.BYTE

60,60,60,40

6847

053033

060

.BYTE

60,60,60,40

6849

053037

060

.BYTE

60,60,60,40

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
040
060
040
003
103
Cc67
015
103
043520
015
050132
015

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

000
030115

031457

(MO:

AVIE
LASCII

3.0
\CMO/37\

033463

CCO:
PGO:

BYTE
LASCIZ
LASCII
.BYTE
LASCII
BYTE
.EVEN

15,0
/CC/
\PGO/37\
15,0
/2ZP/
15,0

6840

6844

053007

053012

DIAGNOSTIC

6846
6848
6850

053016

053026
053032

053036
053042

6851
6852
6853
6854
6855

053043
053046
053047
053052
053053

6857

053057

6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872

053063
053066
053067
053072
053073
053075
053102
053103
053105
053110
053116
053120
053122

6856
6858

053056
053062

6873
6874
6875

6876
6877

6878
6879
6880
6881

040

040
040

000
000103
027460
000
000

ZP0:

SEQ 0163

;BUFFER AREA

060000

062000
064000

060000
001000

001000
000240

000001

BUFO:

BUF1:
BUF2:

.=60000
.BLKW
512.

.BLKW
NOP

.END

512.

I
T
Tl
;
Tl

CZNCCA NCVTT
CZNCCA.PT

172760
041663
041545
041752
170420

2774
53774
53574
53974

388

6072
5548
5972+
388

8-AUG-78

15:05

113

PAGE

SEQ 0164
550

551

552

6389

6394

6399

64074

1694
1915

1711
1932

1728
1949

1745

1966

1762
1983

3323

3352

3395

3414

3421

3452

683

65154

548

549

541

542

543

6373

6378

6384

1660
1881

1677
1898

3279

587«

429

547

6036

6070

431

152

553

554

1779
2000

2017

555

556

403

ABASE =
ABOMSG
ABORTB
ABOVE
ACDW1 =
ACDW2 =

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

000000

g g g

003352
000000
000000
000000
050116
000000
= 000000

1830

2053

050126
050220
050312
050404
050476
050570
050662
050754

1796

PRI

047422
043422
001760

BRIV E BB

000000

000000
000000
000000
000000
000000
000040
000001
000200
000100
000000

BAR1

001764

BITO

= 000001

4599

BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

4555

L5974

427

560

561

562

563

5714

5741

5822

5922+«

5924

5929

5996

1022*
1287%

1023
1324

1056+
1374
2408*

1071

1141%

1147

2356
3204
6448«

2383«
3210

3228+

2068+
2433
3234

2087
2524
3251

2122«
2570*
3257

1167%
2144
2610%
3288+

1035
1692
1913

1111
1709
1930

1127
1726

1143
1743
1964

1169
1760
1981

1173

1195+

1218+

1235%

2172+
2652*
3359+

2207+
3111+
3428+

2241%
3151+
3537+

2279*
3152+*
5149

1197
1777
1998
2386

1220
1794

1254
1811

1289
1828

728

6037

1001
1658
1879

102#

1014
100#

984
974

1154
1376

3487

954

9Lk

2466

2855
3544

2334
2746
3015
3253

2359
2767
3045
3254
3613
6123

2251
2658
2959
3207
3548
5605

2283
2704
2995
3230
3581

1119

1142
2551

1196

3127

3153

1219

1253
3180

5876

3594
5877

2788
3066
3292
3647
6451

2033
2436
2830
3115
3430
3660

2051
2460
2851
3154
3489
5073

1288

3205

1311
3229

1325
3252

2390
2792
3096

2617
2813
3123

2441

5610

2309
2725
2996
3231
3592

2015
2411
2809
3092
3361
3658

d od od

1054
1044

2175
2575
2914
3182
3539
5508

1947

5086

d e

81707 = 000200
BITO8 = 000400
BITO9 = 001000
BIT1
= 000002

SEQ 0165

4598#

002032
041623
041750

000001
000002
000004
000010
000020
000040
000100

J 13
PAGE 153

393

NOOO
=
aaaa
CONOOVO—=NWHNO

BITOO =
BITO1 =
BIT02 =
BITO3 =
BITO4 =
BITO5 =
BITO6 =

15:05

619
622
425

V) =t

BEGIN
BELMSG
BELOW

8-AUG-78

1381

4250
4258
1108

2458
5840
2440

2129
2536
2897
3617

4483
1110

2526
5847
3113

2541
5854
3127

4460

5046

5057

5068

2181
2582
2918
3652

2215
2626
2939

2257
2664
2964

2315
2729
3021

2339
2750
3049

2364
2771
3070

4265

3493

e e o e e o

AMTYP2=
AMTYP3=
AMTYP4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ASWREG=

CZNCCA.PT

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

CZNCCA

NCV1T

]
n

BIT14

100000

BIT1S
BIT?

000004

BIT3

000010
000020

BIT4

000040
000100
000200

BITS
BIT6
BIT7

000400
001000
BLAST
042322
BLICNT
042160
BPTVEC= 000014
BRLEV
002002
BTALK
042050
060000
BUFO
nn

BIT8
BIT9

040000

934

3367
92#
2219
914
1144

2808
1134
112#
1260
2551
2871
3611

1114
1104
1094

2219

108#
1074
708
5426+
1234

S67#4
736
2065+
2358«

2510
3374
573
2228
2185
577
2829
576
947
1288

2573
2892
5132
2613
1350
812

SEQ 0166

2541
3433

2549
3440

2634

3274

3296

3303

3336

3347

3367

3433

1298
4236

1332

1334

1381

3303
2227
2512
2871

1262

2185

2573
2892

2613
2934

2703

2724

2745

2766

2787

1110
1311

1119
1325

1154
1376

1182

1196

1205

1219

1253

1184

2613
2934

1207

2496
2787
3205

2512
2808
3229

2526
2829
3252

2541
2850

2634
3018

2724
3127

2458
2766
3180

917

1126

1405

1428

1433

2185

2194

3252
5057

5046
5068

5063
5119

5068

6330

5106

6333

6359

2117
2408
2525
2963
3048«
3333
3618
6466
5902

2122
2410%
2534%
2968
3050
3346
3636
6472
5931

2162

2331
2435+
2572
2N
3095«
3405
5435

2333«
2445
2581+
2997
3097
3415
5826

2343
2456%
2599
2999
3112

2356
2457
2612
3012
3121+
3428
5884

5115

5122

5135

5080
904
2634
1223
3229

5093
2389
3252

5437+

54574

3487

2671

2105
2385«
2500«
2956
3029
3277
3570
6448
5885

5102
65134

CAM3TW
CAM3TX

154

15:05

R L

020000

8-AUG-78

2107

2433
2557
2978
3071
3377
5179
68784

52144

3419
5871

= A F =

BIT13

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

o o

NCVIT

CINCCA.PT

el el =l el e d o o] ] il ] o < ol o] ]l ] = o o o

CZNCCA

053105

CKSWR = 104407
CKTSWR 040060
CLRALL= 004000

040000
053075
041222
043276
040102
002010
000015
000200
001746

5555
4234
5079
S74m

5602
4456
5085

1431
1654
1875
2116
2431
2763
3062
3577
S73#
5553
5317#
5596
5029
S70#4
S71#
3
324
S4L7H#
938

1450
1671
1892

1164

916
1192

8-AUG-78

2143
2455
2784
3086
3607

050104

5051

5056

5062

5067

VA
VA
VA

2081

3485

2742
3041
3534

51464

928+
1142«
1254
1376~
1622+
1743
1860+
1964«

DASH

2380

2405

930+
1143

1262

1377
1639+
1758+
1862+
1979+

931
1155
1275
1380
1656*
1760%
1877«
1981+«

935+
1168*
1288+
1452%
1658+*
1775%
1879+
1996+

2124»
2283
2526+
2703+
2830+
2993+
3153«

2133
2308+
2528+
2704+
2850+
2995+
3154+

2174
2309+
2540
2724+
2851+

3361+
3646+

3014+
3180+
3367
3647+

2175+
2334+
2550
2725+
2871+

3359

3378

3387

3388

3254+

3255

3302
3613+
6453

DACO
DAC1
DAC2
DAC3

DDISP = 177570
DEADKW 004016

VTl

2186
2359«
2573%
2745%

DACADR
DACSR

1138
1420
1637
1858

1103
1371
1602
1824

2047
2354
2700
2990
3426

1310
68644
5565
5617

[:;

Ul
ull

1469%
1673«
1777
1894«
1998+

001766
046140
046042
050114

SEQ 0167

68674
50174
5098

1169%
1289+

CSRHB
CTRCHA
CTRLCG
CURENT

155

15:05

3015+
3181+«
3373
5148+

BRLLLLLLLIONEEE

cco

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

ool

NCVIT
CINCCA.P1T
CZNCCA

DH1

032465

IDHZ

032500

DH3
DH4
DIDATA
DIF
DIFERR
DIFEXO
IDIFEX1
DIFLIN
DIFLNX

032524
032557
052673
041770
041746
046150
041736
043712
044070

DIFT3S

046036

DIFLNO
DIFLN1
DIFT1
DIFTZ
DISPLA
DISPLY
DISPRE

DIO
pLIBD
DLICSR
DLOCSR
pLODB
DOT
DSWR =
DT

D12
DT3

DT4
DTS
EMTVEC=
EM
EM10
EM11
EM12
EM13
EM14
EM15
EM16
EM?7
EM2
EM20

| EM21
EM22
EmM23
EM24

032756

032774
000030
030220
030573
030640

030706
030741
030777
031033
031065
031120
030260
031153

031234
031305
031360
03143

469
495

471
497

473
(99

465
9N

467
493

469
495

471
497

473
499

465
&N

467
493

469
495

471
497

473
499

461
487
513

463

465

507

459
485
5N

515

39744

451
477

455
481

457
483

459
485

461
487

463
489

6053+
6110
6084
57914

61804
€109+
5796

5605+

5610+

5646

457
483

459
485

4LB7

463
4«89

503
515

507
509
39454
67984

39364

4280+
65004

032742

467
493

457
483
509

001142
050044
000174

032730

SEQ 0168

455
481

58224

032722

M3
PAGE 156

451
477

044064
044274
046032
046034

052663
001700
001676
001702
001704
047103
177570

15:05

5657
5598+

4459«

033002

8-AUG-78

DFO

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

5645+

455
481
39664

461

g o

NCVIT
CINCCA.P1T

td L kg bbb bt d g dpddad g

ICZNCCA

———————————

EM31
EM32
EM33
EM3%4
EM35
EM36
EM37
EM.
EMe0
EMel
EMG2
EMS
EM6
EM7

031700
031741
032005
032051
032106
032173
032241
030372
032305
032365
030425
030432
030473
030527

ENDOMA= 000400
ERMSG

041037

ERRVEC= 000004

489
491
493
¢S3
495

297
499
501
503
505
307
509
255
511
513
515
457
459
461

s7s#

52944

1108

052644

5510

003202
041374
041774
050022

750
785
54068
6423

FSITE
[cain
GAINX

037354
040730
040761

793
52784
583

GNS

= sssses U

FAIMSG
FATALO

FATENG
FIELDI
FIRST
FIXLIN

{em0

GAINY

041714
052624

052655

040773

N 13

PAGE 157

SEQ 0169

38408
3845#
WS1A
37264
38584

ESCP

15:05

538208
760

3512

35854

298

3864w
3870%
3877
3884#
3889
3898#
39054
3733
39124
3921a
39078
3739
3745#
37508

1115

1118

1268

13064

1340

5880

6165

614

615

626+

656+

837

840+

Gode

5612

$790#

754k
53374
5824
6427

773

6052
67604

8616

3025#
5795
5547

5992
6431

5994»
64914

5137
5813

4076

67934

009

5531s

5792+

SOISH

6174

5524s

GTSWR = 104406
040724
G1B
GILIMO 046216
GILIMI 046226
CoLIMO 046236
GoLIMI 046246
WT
= 000011
046040
HT2T3
INOUTZ 040410
10TVEC= 000020

001762

647
5221
5652
5528
5359
5530
208
5861+
786+
1248

747
52774
5801
5802
5808
5809
4322
SB66
792+«
598+

JOYG!
JOYTW

040514
040706

5076
5134

5136
5274#

Zlde

1409

010

849

850+

858+

863+

871e

4692+

4701%

4711w

4663

deel

4ess

4673

4687+

So1

so2

so13

so1s

5017

5018

5019

5020

5021

ws0

1506

1523

1540

1556

1573

1591

1608

1626

G27e

5805e

62094
62164
62234
62304
4363
61574

5155
599

Wse

5239

S211

w73

88
=

031500
031533
031577
03032
031640

CROSS REFERENCE TABLE

B8-AUG=78

PRPARARANNATETER

EM25
EM6
EMo7
eMS
EM30

CINCCA.P11

MACY11 27(654)

DIAGNOSTIC

COLLLLLLLRLRLY

CINCCA

NCVI1

CZNCCA NCVTT
CINCCA.PT
KDPAR1=
KDPAR2=
KDPAR3=

KDPAR4=

KDPARS=

KDPAR6=
KDPAR7=
KDPDRO=

KDPDR1=
KDPDR2=
KDPDR3=
KDPDR4=

KDPDRS5=
KDPDR6=
KDPDR7=

KFO
KIPARO=
KIPAR1=

KIPAR2=
KIPAR3=

KIPAR4= 172350

KIPARS= 172352

KIPAR6= 172354

KIPAR7= 172356
KIPDRO= 172300
KIPDR1= 172302
KIPDR2= 172304
KIPDR3= 172306
KIPDR4= 172310
KIPDR5= 172312
KIPDR6= 172314
KIPDR7= 172316
KTERR
036404
KWCSR
001740

001742
001744
LF
= 000012
046152
LIMITS
L INEA
041152
046466
LIST
LISTDT
045640
LISTO
046256
047101
LIST1
LOGIC
003356
041776
LOOPC
LOOPD
042022
042064
LOOPE
042142
LOOPF
LSBAVG 041726
LSBMSG
041004
041730
LSBSvVQ
LSBSVR
041732
LSBSW 041734

KWCSR1
KWPSR

MACY11
DIAGNOSTIC
CROSS REFERENCE TABLE

27(654)

B 14
PAGE 158

8-AUG-78

15:05

3569«

3635+

679

859

2389+

2412%

2414+

2415

5834*

5846
5833«

5847%
5841

5853«
5848

5854*
5855

5868+

5452

5456

SEQ 0170

2684

269#
270#

ral
2724
273
2744
2454
2464

24L7H
2484
2494
2504
251#
252#
5512
2564
2574
258#

2594
2604
2614
2624
2634
234m
2354
2364
2374

5614

4649
816%

67914
4679

818+
34,64+

3516

821+

4695

817x
819«
820+

822

L7224

677%

4723
678

678*
679
4357
5528

680*
681+
4363
5800

5839x
860

5840«
2413~

5807

61834

5850

61144

6142

716

725
5434

799
5438

3707
5441

5749
5748«
5715+

5760

62614
5843
62354
63154
5429
54284
54404
54544

5776

5856*

5869+

5877+

CZNCCA NCV1
CZNCCA.PT

LSBTXT

041610

MMVEC =
MORTST=
MZGK
MSGEM
MSG21
NARA
NARB
NARCNT
NARMSG
NARROW
NARTOL

000259
000000
052565
(052545
C41175
041760
041762
046210
041066
041756
046211

NOEXIT
NOMIAL
NORCNT
NORMAL
NORMSG
NORTOL
NURCNT

043274
041742
046206
041754
041642
046207
046212

NLSIT1

NURTOL
OBSCNT
0BSTOL
OFF

003354

046213
046214
046215
001750

041054
041772
032714
032621
PASMSG
041702
PBLAST 043004
PC
=%000007

OKMSG
ouT
OUTCHN
OUTRNG

PGO
PIRQ

053110
= 177772

POTIME

047106

PIRQVE= 000240

PRIME
PRIMEO
PRIME1

PRIMO
PRIM1
PRIM2
PRIM3
PRIM4
PRIM5S
PRIM6

046142
046144
046146

051046
052051
052242
051622
052332
051460
051250

MACY11 27(654)
DIAGNOSTIC
REFERENCE TABLE

8-AUG-78

6013+

6014+

3975

5023

5982+
5976+
6200#
6061
3543«
62014
838«
5625+
5924
6189
5986+

6040
6044

6057
6058

3590+

3656

842+
5652

2673

852
2206*
2722%
3012%

1039+

3464
5173«
5174
6050
56094
806+
4361
5025+
5742%
6106+
6431
5604

6012«

L676%

L677%

877
67814
67774

6064
61994
62024
62034
62044

61984
6048

5662+

15:05

3970

C 14

PAGE 159

SEQ 0171

53954

5669#

6062

66844
67484
66664
66414

1388

2743%
3042+

2291
2785+
3089~

2306~
2806«
3112«

2457
2848+
3486%

2495+
2869*
3535«

2525*
2890+
3578«

2066+
2572+
2911+
3610+

3470

3504~

3505

3515«

3522

3556+

3557

54054

3688«
4475%
5526%
5831~
6142*
6488+
68684

3691«
4533
5533«
5836«
6152«
6497

3701

4029*
4670
5550%
5863%

4235+
4719«
5606+
5923«
6349

4312«

1371

5677
5941«
6421%

5679*
5947%
6423+

5806+

5874

1040

1054~

1095

1061

2101
2612+
2932+
3644+

2140
2654
2956+

4338«
4938«
5681«
6009+
6425+

4345+
4973
5704+
6017+
6427+

5871«

6078
813«

4469%

5166+
5785
6139«
6432
5624

4574~

5538«
5843«
6175«
6506*

3706

4591«

5541«
5850%
6337

63214

5527+
5798
67134
67374

1375+

2280~
2764*
3063«

2240

5799
66164

6119

6179

6343%

4815+«

L33

CZINCCA NCVIM
CINCCA.PI
PROROM
PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=
PSW
=
PWRVEC=
RAMVAL
RBEGO

RDBLST

042262
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
000024
042222
002644

043112

RDCHR = 104410
RDLIN = 104411
RDOCT = 104412

READ

READXX
READ1
READ7
REDJOY=

045302

045520
044564
045516
000001

RESREG=
RESVEC=
ROMPNT
ROMVAL
RTN
RTRT
RTRTA
RUNDIF
RUNIT

104414
000010
041740
042162
041617
002012
002042
050106
052474

RUNITA

052514

=%000000

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
54934
534

8-AUG-78

15:05

D 14
PAGE 160

SEQ 0172

5618

S4n
554
S56#
S7#

S58#
SO#
60#
334
344

125#

54778
684
5509
5619

4088

€97
771

6020
6082#
56294
6050+
5794
1623

34
839+

*
604
5571
6964
5511
5621
5018#

50204
60354

6052+
1398
1640

4604~

4605+

%
4614

4632+

4633~

5513
5623

748

756
5552
5626

5453
5554
5634/

5549
5556

5629
5599

5655
5601

5818
5603

6404
5611

5613

5615

4129

50194

5563

6078#
1421

1453

1470

1487

1520

1537

1553

1570

1588

1605

5708
5518
6092

5525
6093

5532
6097

5593

6087

6089

724%
700«
749

751«
701
5987

3670

65114

719

722

726

729

661

663+
829+

673

675

772%
1266+

774
1294%

605+
5597

50224

5525+
54614
5998
5824
711
698+
742

67714
657+
826+
1338«

3280«
3365+
3432«
3520«

4130+
4319+
4535
4665+
4844
4913+
5171

5572+
5712
5861
6019

5532«

5516
6091

5894
715+
699+
745

659+
827+
1399«
3281
3371«
3437«
3547

4133
4505
4537
4710
4851+
4914

5172~
5573
5770%
5866+
6087«

6171

781

828«

1402%

3294~
3377«
3443
3570~
4149+

4506%
4551
4718+
4854
4932+

5173
5593
5771
5867+
6089

1422+
3300+

3378
3444
3571

4165
4507+
4559%
4742
4856*
4936%

5179+
5634
5781+
5868
6098

6003
664*
830~
1425+
3306+
3380

3445
3573

4175~
4514+
4563
L4767
4861«
4986
5183

5635+
5822+
5884«
6127+

666*
832«
2118«
3309
3394
3452
3636+
6195
4516%

4566
4797
4869
4988

5425*
5643
5824
5888~
6131«

2119
3310
3395
3465+
3637+

4196

4517
4567
4799+
4872+
4989+

5435+
5661+
5826+
5896+
6183+

1258+

2671
3322
3414
3466+
3639«

4209+
4518%
4568
4800+
4879+
4990+

5436
5672+
5827+
5899
6186+

2672+
3323
3415«
3468+
3659

4305
4519
4590+
4806+
4880
4991

2675+
3350~
3416%
3495
3698+
4306+
4524
4606
4808+
4884+
4992+

5517+
5701«
5858+
5930+
6191

777

CZNCCA NCVTT
CINCCA.PTT

=%000001

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

6193
6441

Lon
12564>
3420
3522%
4139«
4660
4801+
4915+

=%000002

5578+
5711=
5893
6104+
6442
6496
L3
34,79
4146
4661
4716%
4912+
5446

=%000003

5592
5701
5911+
6037
6067

Lon

4168

4420%
4869+

=%000004

=%000005

RS
=%000006
R7
=%000007
SAMCAM 047276
SAMDAT
047576
SAVREG= 104413
SDPARO= 172260
SDPAR1= 172262
SDPAR2= 172264
SDPAR3= 172266
SDPAR4= 172270

5571

454
4746

5782

L6H

4410%
5045+
5105+
5146
5559«
5635
6378

L7K

L84
63614
6421
4917

2234
224LM
2254
2264
2274

6336*
6443
658+
1295+

3422
3524

L142*
4669+
4807+
4921~

5580+
5712%
5897«
6130*
6444
6504
668+
3480
4147+
4679
4744
4915

5448
5676%
5708%
%
5914
6038
6098+
3419%
4176+
%
4421
4870*
5592
4397
4763~
4169
44611

5051«
5109+
5203«
5596+
5663«
6384+
592«

6425
5021#

6338+
64bb
659
1300+
3435«
3525+
4145
4703+
4811
4927+

8-AUG-78
6339
6460+
660+
1331~
3470
3526+

4148+
4705
4813~

15:05

6342+
6463
667+

1336+

3472%
3527+

4166
4706

5899+
6132+
6459+

5159+
5584
5714
5906+
6133
6465%

4845
- 5164+
- 5586*
5715
5909+
€189+
6471

669+
3482

670+
3523«

671
3529

5582+
5713«

4167
4681%
L4765
4916%

5450
5678+
5709
5917«
6040+
6099
3422+

4178~
4682+
4786
4922+
5451
5680«
5753
5920«
6041~
6100

4182+
L685*
4792*
4923

4191

5575+
5692+
5766+
5954*
6042
6128«
4084
4194

5755+

5760

3423

4177
4422
4,872

4431
4892«

4399«
4918+

4400«
4921

4401+
4927

4171
4429
5056+
5111+
5208+

4173«

4180~
4626+

5753«

4611

5599
5673
6389«
593«

5062
5115«
5214
5601«
5687+
6394
594

6429

64414

4609
4920%

*
5067
5118«
5228%
5603«
5800«
6399~

E 14
PAGE

6344
6466

668
3278+
3473
3528+

4179+
4708+
4850%
5184~

5588+
5733
5912«
6190+
6476
3279+
3531
4185

4686+
L4795«
4928~

5577+
5693+
5782
5955+
6044>
6133~

4085«
4203«
4628+
4925
5766
4402
4929

4184~
4747
5079
5122%
5509«
5611+
5807*
6407

161

SEQ 0173
6345
6469
672+
3280
3474
3530+

6348+
6472
673
3295+
3475+
3537

4713
4855+

4717+
4873
5187
5673
5776+
5918+
6192+
6480~

4180

5186+
5590+
5771
5915«
6191+
6478+
3281
3535
4192
4694

4799
4929+

4184

3352«
3543

4193«
4695
4812+

5183«
5581+

5579«
5694~
5837
5956
6045+
6136

5695+
5844
6010«
6046

6129*
4403~
5181«

6134%
4417
5187+

4086
4204%
4662
4931

4199
4762%
5083

5124*
5511«
5613«
6183
6417

6137%
4089+
4206
4680*
4932

4205%
4919«
5085+

5128«
5513«
5615+
6186
6418

6350
6501
674
3298+
3476
3542

4208+
4743
4876
5432
5674
5781
5921+
6193«
6482+

3354
4128
4194
L4697
4846
5185+
5583«
5696+
5851
6011~
6057«

6138«

6407+
777

3353
3481
4131

4589%
4785
4889+

5573«
5678
5889+
5931«
6422
6486+
3423

4136+
4207
4704
*
4865+

5442+
5587+
5698+
5901«
6013
6059

6413

6414

779

1259+

3366+
3482+
4135+
4607

4788+
4890

5574~
5680
5891
5932
6426

6491+

3471

4138+
4608
4709+
4870

5443+
5589+

3369+

3486
4137
4630+
L4791=
4894>
5576+
5685
5892+
6096+

6430
6495+

34,77+

4140+
4629+
4714
4893+
5444

5591+

5700+
5908+

5699+
5905+
6014
6065+

6036+
6066+

4090
4396
L684%

4096
4411~
4745

4098+
4412%
4764*

4100+
4415+
4847

4419+
5195+

4430+
5200

4610

4627+

4398
4923
5089+
5131«
5521«
5617+
6188
6436

4406%

4408+

4409+

5180«

5191«

5029+
5096+
5139
5552+
5621+
6363~

5192+

5709+

5034+
5098+
5143
5554+
5623+
6368+

5202

5710+

5040+
5102+
5144
5556
5626+

6373«

i SDPARS= 172272
SDPAR6=
SCPAR7=
SDPDRO=
SDPDR1=
SDPDR2=

SDPDR3=

SDPDR4=

SDPDRS=

SDPDR6=
SDPDR7=
SFR

172274
172276
172220
172222
172224
172226
172230
172232
172234
172236
001756

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

228#
2294
2304
2014
202#
2034
204#
205#
2064
207#
2084

551#

1021
%
1138«
1216%
1285«
1362+
1427
1484%
1535+«
1588+
1641

1705+
1757+
1810%
1863+
1926%
1978«

SFRHB
SGNVAL

SGNVL1
SHUFOQ
3
SHUF
6
SHUF

001770
041600
041606
043402
043374
043362

2032«
2123«
2210%
2285+
2363+
2459«
2530
2626*
2721%
2769*
2828+«
2876+
2936+
3011«
3067*
3148«
3357«
3538«
3617«
6114%
5564
53644
53654
5677
5679
5681

8-AUG-78

15:05

F 14
PAGE 162

SEQ 0174

AmMsmamen

CZNCCA NCVIT
CIZNCCA.PTT

855
1038«
1139+

1221+
1291«
1371
1431«
1485+
1537
1589
1654
1706%
1759«
1812
1875%
1927«
1980*

2034»
2127
2211x%
2286
2364*
%
2461
2536%
2638«
2723«
2771%
2831
2889«
2937%
3013«
3068«
3149«
3360«
3540~
3643
6122%

966«
6015
5936«
56994
56964
56924

916+
1053«
1144~
1222%
1292+

1372+
1432
1487
1538
1602+
1655+
1708+
1761+
1824+
1876+
1929+

1982«

2047
2128«
2215«
2301«
2379
2462
2549
2649*
2726
2784
2832«
2891«
2939«
3016*
3070+
3175~
3362
3541~
3645
6165+
5938«

949«
1057%
1145%
1233«
1304~
1378
1439
1488
1550%
1603«
1657«
1710«
1773
1825+
1878«
1931«
1994

2048*
2129*
2227
2307
2384*
2466
2569
2656
2727%
2786*
2834»
2894»
2955*
3017«
3086«
3176~
3363«
3544%
3648%
6169
5968

950
1076

*
1164

1237
1305+«
1379«
1441
1500+
1551+«
1605*
1659«
1722*
1774x%
1827«
1880+
1943«
1995«

2050~
2143%
2238
2310*
2390
2494%
2574%
2659%
2729%
2789%
2847%
2895*
2957%
3018+
3090+
3201~
3426*
3577«
3649
6450*
5974

964
*
1085+
1165*
1238+«
1310%

1397«
1450*
1501«
1553

160¢€

167"=
1723%
1776%
1829*
1892%
1944
1997
2052«
2169*
2242%
2311%
2404%
2497
2576%
2660*
2742%
2790
2849%
2897%
2960
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~
2409%
%
2501
7
257
*
2664
4
274 %
2792
2852«%
2910x
%
2961
3041>
3094>
3225+
3431
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

980
1103+
1192+
1256+
1328«
1404
1454
1517
1568+
1623«
1676
1739«
1791«
1844+
1897
1960«

2012«
2071«
2177«
2257
2332«
2431~
2503«
2592%
2700+
2748%
2807*
2855«
2915«
2990«
3046~
3109+
3248«
3488«
3586+
5147

989+

*
1104
1193«
1257*
1329*
1410
%
1467
1518%
1570%
1624
1688+
1740%
1793«
1846%
190G+
1961

2014%

2072%
2181«
2267%
2338
2434%
2514*
2609+
2702*
2750%
2810«
2868+*
2916*
2992+
3047«
3114+
3249%
3490*
3607
5155*

990+
1115+
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«
2994+
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+
2281+
2354+
2441
2527+
2616+
2706+

2765+

2813+
2373+
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+
2116+
2208+
2284+

2357«
2455+
2529+
2617+
2708+
2768*
2826+
2874+
2933«
2998«
3064+
3123«
3291
3534«
3615+
5880+

NCV11
CZNCCA.PT
CZNCCA

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

SIPARO= 172240
SIPAR1= 172242
SIPAR2= 172244
SIPAR3= 172246
SIPAR4= 172250
SIPARS= 172252
SIPARG= 172254
SIPAR7= 172256
SIPDRO= 172200
SIPDR1= 172202
SIPDRZ2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDR5= 172212
SIPDR6= 172214
SIPDR7= 172216
SKPMSG
041013
041173
SLASH
SP
=%000006

4745%
4764
4802+
4848~
4,886+
L974%

SRO

177572

SR1
SR2
SR3

177574
177576
172516

STACK
STATE

STDATO

001100
041132

045774

STKLMT= 177774
001140
SWR

5736
5946+
6100+

1394

3638«

1404
1414
1424

24H
53064
5831

3684
4022+
5032

596+
1360
3695+
4022
4060+
4102+
4147
4191
4247
4332
4397
4531
4606+
4629
L683«
4746
4765
4804
4849
4887
4975+
5737
5952

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+~

8-AUG-78

622+
224k
3990+

4030
4062
4124+
4149
4203
4277
4336+
4404

15:05

626
2265
3991

4032
4066+
4125+
4165%
4205
4281%

5996+

4344
4429
4552*
4609+
4659%
4711
4749+
4784
4811«
4853«
4892
4997
5741«
6000+

3494*
3660*

3496
4674

4551%

4608+
4631
4710%
4748+
4767
4810+
4851
4891+
4987
5740%

G 14
PAGE 163

698

2622*
3998+

4034
4067
4126+
4166%
4206
4305
4348
4430
4559
4610*
4660*
4712
4750
4785%
4812
4857
4893
4998«

5748
6006+

3519«

SEQ 0175

761

2623

4001«
4035
4068
4127%

4167
4207
4306
4352
4431
4560
4611%
4661

4715
4751«
4786*
4813
4860
4894
5218«
5749
6008+

772

2632

4002+
4037*
4071
4128*
4168%
4208
4316%
4353
4432+
4571
4612+
4662+
4716

4758%

4787%
4814
4863%
4895
5222+

5939%
6010

788

2646%
4006+

4038«
4073
4130
4169
4209
4318
4357

833«
2647%
4007+
4039«
4075«
4133=
4170=
*
4211
4319
4388«

865
2677

40N
4040%
4084*
4141%

4433«
4572%
4613
4663«
4717
4759
4788
4843«
LB74
4896+
5564
5940+

4464
4573~
4621+
4664
4718
4760*
4790
4844
4878
4912

6054*

%
5634
5942
6059+

4171
4212%
4320%
4389
4485«
4583
4625
4665
4742%
4761~
4792
4845«
4881
4914%
5661
5943
6062+

3572«

3574~

L4691

4698+

3521+«

3546+

3548+

631+

645
4460

763
4467
5071

4479

868
2678%

4014%
4041*
4089
4142
4174%
4241+
4322
4390
4488*
4584
4626
4668
4743
4762
4794
4846+
4882
4971

5733+

1346%
2686
4018
4056+
4100

4144
4187
4244
4324
4391+
4505+
4589
4627
4678+
4744

4763

4796+
4847+
4885+
4972+
5734»

6067

5945+
6070+

3592+«

3594+

3554

3985
5027
6082

5944*

4688«

5999

5863
594

4236

5038

61414
616+

4250

5043

618
4252

5049

624>

4258
5054

4265
5060

5065

3328

5139

3400

4483

5141

3502

4612
5169

4625+
5175

000176

300#

624

645

Sw00
Sw01

= 000001
= 000002

8%
778

88
87

5032
5043

Sw07

= 000200

[4LJ

SWwO0

Sw02
Sw03
Sw04
SWO5
Swo6

Sw08
Sw09
SW1
Sw10

SW11

= 000001

=
=
=
=
=

000004
000010
000020
000040
000100

88#

764
754
748
734
728

= 000400
= 001000
= 000002
= 002000

704
6o
874
684

= 010000

66#

Sw12

= 004000

86
85
84
83
82

3328

3400
5169

654

5141

Sw15
Sw2
Sw3
Sw4é
SwS
Swé6
Sw7
Sw8
Sw9

= 100000
= 000004
= 000010
= 000020
= 000040
= 000100
= 000200
= 000400
= 001000

634
86#
854
844
834
824
81#
80#
79%

5175
5054
5065
5071

TBITVE= 000014

TESTER

002020

TFSITE

003276

TESTZ = 000002

041253
TIMEO
TKVEC = 000060
TPVEC = 000064
TRAPVE= 000034
TRTVEC= 000014

TSTCON= 000004

64#

1214

304

5844

1144
1292
1708
1812
1929
2034
2284
2617
2810
2937
3117

703

7844

5322#
128#

1294
1274
1224

577#
1638
1859
2123
2527
2891
3488

SEQ 0176

3985

3998

3502

3554

6082

1170
1328
1725
1829
1946
2052
2310
2660
2831
2961
3362

1171
1329
1727
1844
1948
2071
2311
2705
2832
2994
3363

1198
1341
1742
1846
1963
2072
2461
2706
2852
3016
3431

1199
1378
1744
1861
1965
2127
2462
2726
2853
3017
3490

1221
1379
1759
1863
1980
2128
2501
2727
2873
3046
3491

1222
1657
1761
1878
1982
2176
2502
2747
2874
3047
3540

1237
1659
1776
1880
1997
2177
2529
2748
2894
3067
3541

1238
1674
1778
1895
1999
2210
2530
2768
2895
3068
3582

1256
1676
1793
1897
2014
2211
2576
2769
2915
3093
3583

1257
1691
1795
1912
2016
2252
2577
2789
2916
3094
3614

1568
1791

1586
1808

1603
1825
2048
2459
2849
3360

1621
1842

5038
5049
5060

5784
1291
1693
1819
1914
2032
2253
2616
2790
2936
3116
3615

PAGE 164

5027

67#

= 020000
= 040000

H 14

80
79

sw13
SW14

15:05

SWREG

CROSS REFERENCE TABLE

B8-AUG-78

CZNCCA.PT

MACY11 27(654)

DIAGNOSTIC

3648

1145
1305
1710
1827
1931
2050
2285
2659
2811
2960
3291

3649

5211

5875

6122

6450

5654

602+

603~

1372
1655

1451
1672

1468
1689

1485
1706

1501
1723

1518
1740

1535
1757

1551
1774

2208
2614
2933

2242
2656
2957

2281
2702
2992

2307
2723
3013

2332
2744
3043

2357
2765
3064

2384
2786
3090

1876

2173
2574
2912
3538

1893

3580

1910

3611

1927

3645

1944

1961

1978

1995

2012

2409
2807
3114

2030

2434
2828
3289

2069

2497
2870
3429

mmMmm

NCV11

CZINCCA

TST1

TST10
TST100
TSTiN
TST102
TST103
TST104
TST105
TST106
T1ST107
ST
TST110
TST111

TST112
TST113
TST114
TST115
TST116
TST117
TST12
TST120
TST121
TST122
TST123
TST124
TSTi25
TST126
TST127
TST13
TST130
TST131
TST132
TST133
TST134
TST135
TST136
TST137
TST14
TST140
TST141

10334

TST145

025026

1216

1586
1808

2030
2434
2828
3149

SEQ 0177
1250
1603
1825

2048
2459
2849
3176

1285
1621
1842

2069
2497
2870
3202

1322
1638
1859

2123
2527
2891
3226

1468
1689
1910

1372

1655

1876

2173
2574
2912
3249

3488

2242
2656
2957
3538

1485
1726
1927

2281
2702

2992
3580

165

2012
2409
2807
3114

29854

30394
3107#

TST144

TST147

1193
1568
1791

1104
1518
1740
1961

10164

2839
2860
2881
2902
2923
2944
2972
3003

TST142
TST143

TST146

5764
1501
1723
1944
2307
2723
3013
3611
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
2818

8-AUG-78

ODo@mom®dD

TSTDMA= 00C010

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

1 14

PAGE

MSrMm

CZNCCA NCV11
CINCCA.PTT

15:05

3168#
31954
32154

TST15
TST150
TST151
TST152
TST153
TST154
TST155
TST156
TST157
TST16_
TST160
TST161
TST17
TST2
TST20
TST21
TST22
TST23
TST24
TST25
TST26
TST27
TST3
TST30
TST31
T1ST32
TST33
TST34
TST35
TST36
TST37
TST4

005052
025152
025276
025664
026244
026466
026762
027260
027474
005312
027634
030054
005362
004020
005554
005726
006112
006252
006
006460
006652
007052
004122
007322
007464
007572
007736
010032
010126
010222
010316
004170

CZNCCA.PT

TST40
TST41

TST42
TST43
TST44
TST45
TST46
TST47
TSTS
TST50
TST51
TST52
TST53
TST54
TSTSS
TSTS6
TST57
TST6
TST60
TST61
TST62
TST63

010412
010506
010602
010676

010772

011066
011162

011256
004242
011360
011462
011564
011666
011770
012072
012174
012276
004352
012400

012502
012604
012706

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
10504

32424
32654
3327

8-AUG-78

3329
3399
35104
3562#

1307
9004
13694
1385
1412
1442
1459
1476
1493
1509
907
1526

1543
1559
1576
1594
1611
1629
1646

1663
1680
1697
1714
1731
1748

1765
1782
1799
1816
1833
1850

15:05

3332
3401

J 14
PAGE

33404
3404

166

SEQ 0178

34124

ale

CZNCCA

NCVI

CZNCCA NCVIT
CZNCCA.PT
TST64

TST65

TST66

TST67
TST7
1ST70
1ST71
1ST172
TS173
1ST74
TST175
1S176
1S177
TYPDS
TYPE

013010
013112
013214
013316
004440
013420
013522
013624
013726
014030
014132
014234
014336

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
1867
1884
1901

1918

9624
1935

104405
104401

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
177606
177610
177612

182#
1834
1844
1854
1864
1574
1584
1594
1604
1614
1624
1634
1644

168#
1694
1704
1714
1724
1734
1744
1754
1464

1474
1484
1494
1504
1514

8-AUG-78

15:05

K 14
PAGE 167

SEQ 0179

18734
1890#
19074
19244
19414

1958#
19754
19924
20054
2027#
20454
20624
3696
691
3697
4462
5095
5548
6015
6322
3999
5219

50134

5997

3996
4470
5101
5562
6056

3997
4504
5108
5565
6061

4512

4536

50104

5223

6001

6101

€007

754
4000
4521

5114
5609
6064

6055

760
4013
4523
5121

5628
6069

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
6097

041764
041766
041111
003240
042650
053120

001000

w
Ak

035462
035436
035444
035454
001134
001250
001122

001126

5546
65164
65174

1363
1364+
2639«

2639
6408
6330+

528#

5274
5314

2246
2268
2650+
2640
6411
6331

2268+
2269+
2676%
2651«
6413
6333«

1006
1286+

2693~
2693

2694=

6356+

6359+

6500+

6502

6505+

6358+

529#

530#

5264
525#
770
5494
1224

2330«
3185

2355«
3203«

1055%
1323«
2382«
3227+

689

704

717

6041
6045

6065
6066

1005+
1251%

2278
3177
6447

584«
6184
54024
5403#
53034

1179

1217+

2407
3250+

2067
2432+
3287+

2094
2523«
3358«

2121«
2571~
3427

2150
2611=
3536«

1194+
2170+
2653
5150+

2205+
3110+
5872+

6116+

732

737

802

3143

3170

3197

3221

3244

2751«
2879
3071+
3968

2753
2898+
3073
3970

1066
1373~

1140#

1151

1166+

1201

2239+
3150+

050110

SEQ 0180

744

5538

68704

5560
328
4577
4548
45464
4312
4475
3654
Lo

823

2157
2814«
2942
3380«

3604
2774
2919+
3099
3624
967%
1067
1130
1224
1411
1508
1626+

1730
1847+

1523«

1745+
1849

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+

052604
001752

PAGE 168

5989

2730+

950+

1121
1206+
1404+
1492
1608+
1713
1830+
1934

WCR

53504
6422*
6426*
6430*
5604
5614
562#
5634
5244

L 14

WARNO

152#
1534

15:05

UIPDR6= 177614
UIPDR7= 177616
UNF IX
041501
VALO
050120
VAL1
050122
VALZ2
050124
VECTAO 001772
VECTA1
001774
VECTBO 001776
002000
VECTB1
VTCHAR
001706
001716
VTCSR
VTCXY
001714
001724
VTINT
VTMAP
001720
VTPX
001722
VTXPOS
001712
VTYPOS
001710

8-AUG-78

-y

CZNCCA NCVIT
CZNCCA.PT

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

[

CINCCA

NCV1I1

CZNCCA.PT

MACY11 27(654)

DIAGNOSTIC

CRCSS REFERENCE TABLE
1951
2080+

1966+
2083

1968
2087+«

B8-AUG-78

15:05

1983+«
2089

2157«
2321
2505+
2595
2795+
2922
3073«
321
3388+

1985
2094+
2158
2343«
2506
2599+
2796
2942%
3074
3234+
3390

M 14

PAGE 169

2000+
2096

2186+
2345
2509+«
2601
2816~
2943
3099«
3235
3439«

SEQ 0181
2002
2101~

2190
2368+
2510
2633«
2817
2970«
3100

2017«
2105+«
2195«
2370
2540
2635
2837«
2971
3128«
3258
3447

2019
2108
2196
2393«
2542
2711~
2838
2978+
3129
3302«
3495+

2035+«
2133«

2220%
2395
2550
2712
2858+
3001+
3133«
3310«
3497

2037
2135
22264
2420+
2552
2732+
2859
3002
3135
3312
3547«

4523

4528

4532

4466

4495

4510

2146
2291«
2447
2586+
2754
2900*
3033«
3185«
3373«

2150
2292
2470%
2588
2774+
2901
3052+
3186
3381«

2152
2320
2472
2593«
2775
2921
3053
3210«
3383

001164
001254
034650
033004

3804
“314
4329+
39854

4462
677
4339+
5017

4495
3973
4346

6355«

43604

$CM3 = 000000
SCNTLG 033531
SCNTLU 033524
036304
$CORE
$CPUOP 001222

3784
3996
4013
4672
4034

592

600

606

607

608

41094
41084
47014

SCROIT

4701

47084

4328

4363

4470

4495

4504

$BELL
$COW1
SCHARC
SCKSWR

$CMTAG

001100

SCRLF

001171

$DBLK
$DB2D
SDECVL
$DEVCT
$DEVM
$DIV
$DOAGN
$DTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV
SFNVM
$EOP
SEOPCT

3595

3484

3620

591

3621

3824

4024

4108

034076
037036
037216
001204
001252
036616
030174
034066
030164
030132
030203
030200
001214
001215
030076
030124

4176
4911
4913
3944
4304
L841x
3690
4179
314
606
3694
3697
3994
4004
874
6N6*

4210
4973
49594

42184

5742
3699
42144
637
36924
37094
3708#
643
629
3671
36894

5947
37054

SERMAX
$ERROR

001115
035102

3574
600

609
44554

SERRTB
S$ERRTY
SERTTL
SESCAP
SETABL
SETEND
SFATAL
$FFLG
$FILLC
$FILLS

001256
035302
001112
001162
001214
001256
001176
035702
001156
001155

4482
4469
3554
3754
3984
340
3914
4546%
3764
3754

SERFLG

SERRPC

036334

001103

001116

3514

358#

4224

3965

4518
45034
4463
608+
4324
4583«
4549
4332
4363

3659+

3661+

3662

3257«
3445+
3966

3968

3701#

4490

4307
4309
36824
3693
4254
4256

4472
4314
5817

4555
4557

4579

4256

4262«

4284

4457+

4495

3966

3968

3970

3973

4464

4465

4495
4278+

4486

4488

4495

4586%

45944

4577
4363

4279«

4284

3970

2053+
2140%
2229+
2422
2557«
2733
2879«
3026
3158«
3317«
3549

2055
2744+
2230
2445+
2559
2753+
2880
3027
3159
3319
3593«

NCV11

CZNCCA

| CZINCCA.P1T
$GDADR

001120

001124

$GDDAT

MACY11 27(654)

DIAGNOSTIC

CROSS REFERENCE TABLE
3594

3614

952
1035«
1082
1200
1387+«

965+
1039
1091«
1205+
1405+

1729+«

1730

17646

$GTSWR
$HD

$HIBTS
$HIOCT

1848«
1951
2082«
2146
2290+
2647
2588
2773«
2901
3051+
3163«
33712
3545+«

033054

3997#

5015

001000
033660

3354
4146

41514

= 000000

SICNT
SILLUP
S$INTAG
SITEMB
SKTNEX
$KTOUT
$KT11
SLF
SLFLG
SLPADR

SLPERR

001104
036044
001135
001114
036276
036266
036120
001172
035701
001106

001110

36984
21

}

1747

1763«

1764

1525
1644

1«

917+

919

121

1024
1077
1178«

1028+
1080+
1182+

434

16440

1457+«

1458

16474

1475

1491«

1492

1780«

1781

1797«

1798

} 274~

1276

1296+

1882«
1985
2095«
2158
2344
2506
2601
2815«
2943
3098+«
3190«
3382«
3619«

1883
2001+

2096
2185«
2345
2512+
2634+
2817
2969«
3100
3199«
3383

2100«
2190
2369«
2541~
2635
2836+
2971
3127«
3211
3389«

4675«

4700+

1019«

1036

3621

1558
1678«

3657«

3662

3968

3570

L7214

4283

4485

826

2276

2302

4713«

4720

3505

3557

3567

3608

340

3854

628

643

6275

4307

4472

336

3966

2134+
2219+
2395
2552
2731«
2859
3002
3135
3246
3446

Q714

4277«

4264

1933«
2037

3633

4283

001174

1917
2036+

3275+

4281

3087

1916
2019

1814

3173«

4276+

810+

1592«
1696

3146+

4260+

1381«

1575
1695«

2491+

46718

807+

1332«

2108
2196
2394+
2551«
2712
2857«
3000+«
3134«
3235
3440+

3512
4495

1002«

1313

2106+«
2194«
2370
2542
2710
2838
2979+
3129
3223«
3390

3459
4363

9%6c

1574«
1679

1900
2018«

814
4108

882+

1311«

1899+
2002

4507

611+

051«

1022
1075«
1172«

4495

3544

939

1018+
1072
1154«

1557«
1662

1866
1984«
2089
2155«
2321
2504~
2600«
2796
2941+
3074
3186
3374«
3595

936+

1011«
1070«
1146

1541+
1645

1865«
1968
2088+
2152
2319«
2472
2595
2794~
2922
3072«
3177
3319
3591«

932

1007
1067
1130

1 542
1 661+

1849
1967+«
2083
2151«
2292
2471%
259+
2775
2920%
3053
3172«
3318«
3549

929+

1005
1065«
1126«

4283

4164
“ 204
W23

001242

991«
1060+
1119«
1260+
1433+

4272+

001226
001232
001236

SMAIL

906

979+
10645«
1113
1239+
1428+

SEQ 0182

4270
L6378
4114
4474

SMADR1
$MADR2
SMADR3

SMADRSG

904 *

PAGE 170

4269+
4620
4025
4466%
47004
46974
812+
4099
45934
610

036400

036402

1524
1628

889

N 14

3528
4604
3664
3568
4673
4692
805+
3834
4587«
3534

SLSTAD

SLSTBK

1508
1627«

1832
1950«
2055
2145«
2230
2646
2587+«
2754
2899+
3034
3159
3311«
3497

030154

888+

968
1041
1110«
1223+
1413«

1507+«
1610

$GET42

887+

B8-AUG-78

15:05

1593
1712«
1815

1382

1609+
1713

1831+

1934
2054+

2135
2224
2421+
2558«
2733
2878«
3025«
3145«
3258
3447

2139+
2228+
2622
2559
2752+
2880
3027
3151
3303+
3492+

3348

4260

———"

NCV1T
CINCCA.PT

001210
001212
001174
033536
001225
001231
001235
001241
036504
034370
001154
000001

035076
035100
034354
001202
001006
036052
035704
036040
035756
001170
033266
LA 2

——

3964
3974
390#
3997

4563+
4568+
4561

4566

4273

42834
4334

5735

5941

6363

10994
14624
16834
19044

11334
14794
17004
19214

4118
4194
Lo2H
4Lo5#
L7834

3744
CIAA

10864
14454
16664
1887#

2199#
26044
29264
32624
4395«

41104

8774

22334
26414
29474
33374

4424
»
4394
4253
628+

4569+

8974

——

8-AUG-78

15:05

4581

4585+

9104
1159
14954
17174
19384

9234
11874
15124
17344
19554

B 15
PAGE

9424
12104
15294
17514
19724

171

SEQ 0183

9594
12284
15454
17684
19894

1597#
18194

10134
13664
16154
18364

32164

3708

4267

4284

610

637

640

3684

378
963
1232
1549
1772

379
976
1248
1566
1789

380
98¢
1283
1584

607

3686+

3687+

3695

608

4261

4402+
4271

44394

3326

4413~
42804
3398

3500

3552

4353

4495

4632

46204
755

4043

4092

4108

L622*

4623

L6394

598
4234
46594

600

4456

602
4482

604

4490

606

607

286

287

288

289

1090
1449
1670

1103

1137
1483
1704

290
927

31384
36654

10474
14154
16494
18704

21644
25644
29054
32394

23744
27794
30784
35984

23494
27584
30574
35594

10304
13924
16324
1853#
21114

25174
28844

20594
24778
28634
31924

L6404
46044

5018

9964
13164

20424
24504
28424
3165#

2324M
27374
30364
35074

800

12444
15624
17854

9844
12794
15804
18024

20244
24264
28214

22964
27164
30064
34544

L4374
4399

9724

20064
23994
28004
31044
36254

22704
26954
29824
34094

033406
033560
000010
036446
030176

5019
5020
5022

Khkkhhk

036410
036050
037232
034106
000137
036062
036340
177777
034320
000106
167400

5021
4621
6009
42334
597
4114
47094

L2744
317
610
1034
1396
1636

SMTYPS
SMULT
SMXCNT
SNULL
SNWTST

—
.

—_—

SMTYP2
SMTYP3

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

CINCCA

$MSGAD
$MSGLG
$MSGTY
SMSWR
SMTYPT

——

(o,
@ To MoV}
N — U1 — 00
WO
= =\

1466
1687

914
1163
1499
1721

1516

1738

1806

1320
1601
1823

CINCCA NCVTT
CINCCA.PT

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
1840

2063
2481
2867
3196

3685

$SWREG
101216
$SWRMr= C)0000
STEMF
002004
$TEMP1
$TEMP2
$TESTN
$TIMES

050100
050102
001200
001160

4254
4451
4014
291
5694

3784

848+
1137+
1483«
1704
*
1925«

2125+
5883«
6458+
3924
1051«

1670*
1891«

2203+
2608+
2930+
001146
001144
= 000162

2168
2568
2909
3243
3706

4256
4467

1449%

$TkB
$TKS
$TN

1874

3266*
4283
3714
3704
SH
910
981

10904
1187

1277
1412
1495
15664
1646

1717
17894
1867
1938
20104

21154
2274M
2374
2473
2695
27834
2881
2977
3075
31694
3245
3393

4229
840
2492+
5889
6465

2274
2699+
2986+
3413~

8-AUG-78

15:05
1908

2237
2645
2951
3341

172

SEQ 0184
1976

4283

2010

2046

3108
3629

2454
2846
3169
3679

951

956

1000+
1370«
1619*
1840+

1034+
1419+

2403

4248
4448

2063+
2481+
2867
3196+
4263+

6159
897

969
1047
11634
1244
1389
1479
15494
1629

17724

1850
1921

19934
2086
2233
2349
2448
26084
27624
2860
2947
3054
3144
3236
33414
3460

4251
4450

1653+

1874+

2168+
2568+
3243+
4273+

907
Q764
108¢
118
1270
13964
1493
1562
1636#
1714
1785
1857#
1935

211
2270
2371
24544
26454
2779
28674
2972
3061#
3165
32434
3386
3503

NCV11

CINCCA

CINCCA.PI

MACY11 27(654)

DIAGNOSTIC

CROSS REFERENCE TABLE
3507

STNPWR
$TPB
$TPFLG
$TPS

037146
001152
001157
001150

$TRP

= 000015

STRAP
$TRAP2

STRPAD
$TSTM

$TSTNM

STTYIN

037266
037310
037322
001004

001102

033514

STYPBN= sxxxax U
STYPDS 033662

STYPE
STYPEC
STYPEX

$TYPOC
$STYPON
$TYPOS
SUNIT
SUNITM
SUSWR

SVECT1
SVECT2

034372
034604
034652

034700
034714
034654
001206
001010
001220

001244

LBASTA= sawwxn |
.$x
= 001000

5432%

5455+

3665

SEQ 0185

3559

35634

3568

3596

3598

36024

3609

3622

50194

50204

50214

36694

3663

3001

5010¢

50114

5012#

SO13#

S014#

5015

SO16#4

5017

5018%4

4224

4252

4274x

4275

4280

4284

4459

4495

5001
4338
43614

5009
4345

43504

4351

602
4997#
.

4991
3374

3508

49864
5008

3684%

4085

43014
4029
4356

4574
4331
4358

5014
4164#

4393#
4392
43884
3954
3304
4024

5013

5010
4395#
5011

WM
4Lo8H

667

4389+

4393%

294

2984

384
4284

4547
3244

5428

50084

4086

4236

= 064002

3555

PAGE 173

3634
4939
4363
4363
4363

$LOCAT= sxxxxs U

;

3553

D 15

3629%
4919
4352%
4301
4350

4239
37004

035077

3513

15:05

3625
4918
3730
3774
3720

001246
$XTSTR 034124
$$GET4= 000000

SOFILL

35114

B8-AUG-78

4469

595
4363

4550
329

4103

41074

5012

4403

3064

610
4495

44384

312

611
L5428

3134

3708
4595

3154

3712
4616

3174

39644
4638

3184

3978
49594

324

41074
63184

3254

4108
67594

327

4114
68764

32M

42184
68778

34TH

4283
68784

CZNCCA NCVTT
CINCCA.P1T
COMMEN
ENDCOM
ERROR

131%
131#

25#

1064

1203
1436
1681
1936
2148

ESCAPE
GETPRI
GE TSWR
JOYMA(C
MULT
NEWTST

OFFBIT
POP
PUSH

REPORT
RESLM

SCOPE

2424
2714
3031
3385

1314
131#

MACY11 27(654)
CROSS REFERENCE TABLE

DIAGNOSTIC

866
1069

1209

1443

1698

1953

2154
2449
2735
3035
3392

SKIP

1074
1227
1460
1715
1970
2160

2474
2756
3055
3441

2508
2777
3076
3449

2004
2192
2513
2798
3102
3499

921
1097
1278
1510
1766
2021
2198
2544
2819
3131
3551

891

1079
1242
1477
1732
1987
2188

908
1084
1269
1494
1749

4667

4841

1450

1467

1484

1500

1517

844
1133
1512
1768
2024

1159
1529
1785

877

897
1187
1545
1802

910
1210
1562
1819

923
1228

640#

2477
2905
3337
2716

2042
2517
2926

3409
2737
4205

2059
2564
2947
3454
2758
4589

4147
4126

4164

4550

1666
1921

1683
1938

1700
1955
900
1190
1548
1805

847
1136
1515
1771

1162
1532
1788

21
2604
2982
3507
2779

1580
1836
2164
2641
3006
3559

2199
2695
3036
3598
2821

2737
3078
3665
2863

1602

1620

1637

984
1366
1649
1904

996
1392
1666
1921

1013
1415
1683
1938

1030
1445
1700
1955

2374
2821
3192

1047
1462
1717
1972
2399
2842
3216

2426
2863
3239

2296
2758
3104

2324
2779
3138

2349
2800
3165

2905

2926

1785

1802

1819

1836

1853

1870

1887

945
1247
1600
1856

975

987

999
1395
1669
1924

1016
1418
1686
1941

1448
1703
1958

1033

1050
1465
1720
1975

1089
1482
1737
1992
2429

1213
1565
1822
2114
2607

2252
2831
3582

953
113
1314
1559
1816

969
1148
1343
1576
1833
2086

981
1150
1358
1594
1850

993
1152
1383
1611
1867

2747
3116

907
1083
1241
1493
1748

940
1122
1307
1543
1799

1237

1256
2616
3016

2659
3046

872
1073
1208
1459
1714
1969

890
1078
1226
1476
1731
1986
2153

2147

2210
2810
3540

2071

5017

2141

2176
2789
3490

1291

5015

1204
1442
1697
1952

2126
2768
3362

5022

5013

864
1068

3242

5021

3628

841
1063
1185
1435
1680
1935

3219

5018

2985
3510

2576
2960

2402
2845

2352
2803
3168

2202
2698
3039
3601

1221

2377
2824
3195

2327
2782
3141

2167
2644
3009
3562

2529
2936

2138

1853

1086
1479
1734
1989

1585

1751

2501
2915

2136

1316
1632
1887
2270

3004
337¢

1734
1989
926
1231
1583
1839

1170
2461
2894

2109

1244
1597

2142
2397
2687

1717
1972

1144

1663
1918

1567

2137
2372
2682
2980
3314

4844

5012

1042
1180
1412

1534

1043

1186
1429
1664
1919

2884
4892
4783

5011

1025
1177
1389
1646
1901

2110
2347
2637
2975
3304

2091
2262
2597
2903
3213

1026
1181
1414
1647

4812
4742

5010

824

1009
1176
1406
1630
1885

970
1149
1357
1577
1834

4626
4606

3340

1198

SEQ 0186

4625
4573

2800

2062
2567
2950
3457

2310
2873
3648

174

15:05

4590
4552

2045
2520
2929
3412

2027
2480
SETPRI
SETTRA
SETUP
SETZ

869

8-AUG-78

2003
2159

2056
2191

2084
2197

2223

2225

2097
2231

2277
2560
2860
3130
3305
3399
3568

2293
2589
2881
3136
3308
3401
3596

2303
2596
2902
3144
3313
3404
3609

2346
2631
2944
3162
3320
3442
3634

2371

310
923

321
925

323

343
959

384

1032
1228
1447
1580
1702
1836
1957
2164

2199
2401
2695
2844
3036
3218
3598

3998

4510

4534

844

877

4221

$SCMRE
$SCMTM
$SESCA
SENEWT

$SSET
$$SETM
$$SKIP

4286

1088
1279
1481
1615
1736
1870
1991

2233
2428
2716
2865
3057
3241
3625

4498

4365

1099
1281
1495
1617
1751
1872

877

387

1497
1632
1753
1887

2006
2235
2450
2718
2884
3059
3262
3627

2008
2270
2452
2737
2886
3078
3264
3665

942

959
1279
1615
1870

4545

SEQ 0187

3977

4726

2507
2797
3075
3245

3513

3550

897

899
1013
1189
1415
1547
1683

998
1187
1394
1545
1668
1802
1923

1785
1906

4602

2473
2776
3054
3236

2059
2326
2564
2781
2947
3140
3454
4771

1804
1938

2061
2349
2566

2949
3165
3456

4048
4818

4077
4900

1030
1445
1700
1955

1462
1717
1972

612#
3695
633

1133
1512
1768

1159
1529
1785

897

1187
1545
1802

2024
2477
2905
3337

2042
2517
2926
3409

2059
2564
2947
3454
5012

801
1185

841
1204

864
1208
1526
1782

5010

1493
1748

5017

1509
1765

910
1210
1562
1819

2111
2604
2982
3507
5013
1226
1543
1799

872

1244

2695

972

1316
1632
1887

2233
2716
3057
3625
5018

2270
2737
3078
3665
5019

940
1277
1594
1850

969
1307
1611
1867

984
1366
1649
1904

996
1392

1666

1921

2296
2758
3104

2324
2779
3138

5020

5021

981

993
1385
1646
1901

1314
1629
1884

1918

1047

2374
2821
3192

2842
3216

1150
1442
1697
1952

SWRSU

942
1049
1244
1464
1597
1719
1853
1974

2399
2643
2842
3008
3216
3561

2376
2641
2823
3006
3194
3559

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

1047
1230
1462
1582
1717
1838
1972
2166

175

15:05

il o

1314
8#

8-AUG-78

OO
—
W00 —WN
VIO
N) —

SLASH
SOF TSW
SPACE
STARS

2263
2553
2839
3101
3297
3393
3555

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

CZNCCA NCV1T
CINCCA.PN

2543
2218
3088
3259
3391
3553

1417
1562
1685
1819
1940

2111
2351
2604
2802
2982
3167
3507

4116
49¢€2

CINCCA NCVIT
CINCCA.PI

1986

.EQUAT
.HEADE
KT11
.SETUP

. SWRHI
. SWRLO
.SACT1
.SAPTB
.$APTH

.SAPTY
.SCATC
.SCKSW
.SCMTA
.$DBZD
.SDIV
.SEOP
.SERRO
.SERRT
LSMULT
. SPARM
. SPOWE
. $RDOC
. SREAD
.$SAVE
.$582D
.$SCOP

.$SI1ZE
. $SPAC
. $SWDO
.$TRAP
.$TYPB
.$TYPD

.STYPE
.$TYPO

2322
2797
3088
3327
3553

&
o
S#
14

8#
2924
10#
104
10#

10#
o
8#
o
bd
S#
o
o
84
bd
4
I
i
I
I
o#
I

bd
I
78
I
8#
84

6#
64

MACY11 27(654)
TABLE
REFERENCE
CROSS
DIAGNOSTIC

2038
2381
2860
3144
3376
3596

2003
2346
2818

281

308
385#
319

4543

292
341

4898
4816

3673

4441
4496
4769

4600
4114

3975

S#
4960
4219
4643

4724

4978
4152
74

4363

4284

2056
2396
2881
3162
3386
3609

8-AUG-78

15:05

G 15
PAGE

2138

2448
2944
3198
3401
3663

176

SEQ 0188

2189
2473
2972
3212
3404

2197
2560
2977
3222
3442

2231
2713
3028
3245
3460

2277
3032
3259
3501

2293
2755
3054
3305
3503

CINCCA NCVIT
CZNCCA.PTT
ADC
ADD

ASL

4528
660

MACY11 27(654)
DIAGNOSTIC
TABLE
REFERENCE
CROSS

4190
630

4023
4870
5889

4142
4527
5899

4184
4929

4320
4974

4391

4401

5187
6045

418
5188
6058

3190
4039

4135

3472

3474
4139

4515

4516

4517

4990

3524

3525

3526

829
5695

830
5696

893
5698

955
5955

3402
6137

3417
6138

4567

5191
6478

5192
6480

5195
6482

5196

705

718

738
1042

773

803

809
1073
1383

890
1078
1389
1663
1918
2141

907
1083

828
5694
6491

€81

4584
1045

4798

4871

1122

1131

1731
1986

1748
2003

638
940

4525
5838
4883
4033

644
953

1493

2197
2560
2902
3198
3404

4251

4538
5852

4257
1145

2530
2937
3574

2577
2951
3583

6132

6162

1710
1965

789
990
1221
1431
1674
1794
1929

2051
2251
2386
2528
2705
2810
2915
3045
3182
3467

4694

5712

993

1180
1543
1799

2056
2293
2602
2972
3236
3501

1008
1185
1559
1816

6020

1063
1611

1867

2084
2322
2636
3003
3245

3550
4268
4580

3475

6011

3476

6476

6037
3478

1646
1901

2136
2448
2776
3130
3327
3671
4458

6085

6120

6185

5172
6041

2473
2797
3136
3332
3699

4461
5447

6462

4074

3558
672

4415

699
888

3556
47064
5776

2515

4134

BICB
BIS

3504
4703
5770

4037

21N
2553-+
2881
3187
3399

4271
3690
3506
670

SEQ 0189

3530

1476

BGE
BGT
BHI
BIC

177

3528

1028

BCC
BEQ

PAGE

5790
6465

1011

4189
827

H 15

5682
6133

4572

ASLB
ASR

15:05

2161
4683
5710
6471

666

4560

5675
6066

3482

8-AUG-78

1379

1727
1982

4700

1104
1237
1453
1675
1810
1930

2070
2252
2389
2529
2708
2813
2918
3046
3206
3489

5692

1435

1680
1935

2147
2507
2818

3144
3379
3994

5545

6484

920
1096
1442
1697
1952

2153
2511

CZNCCA NCV1T
CZNCCA.PT

3592

4860

BISB
BIT
BITB
BLO
BLOS
BLT
BMI

6330
4507
1156

4250
5139
629

2277

730
1148

735
1175

740
1202

595

619

2131
3355

4012
4347
4875

2416

5170
5825
6340
815
3157

6126
583
1307
3189

6160
586
1343
3305

764

4351

4143
4428

cMP

1207
4265
5169 °
4314
3088
4181
2187

6173

CLRB

1184
4258
5141
4309
2303

3614
4931
6450
5847

4072
1424

3992
4333
4803
5168
5816

BvC
cLC
CLR

3613
4878
6359
5840

4087
4031
1401

2120
3329

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

5081
5814

4414

4183
4478
5087

5937

5948

636

2163
3368

4019
4354
4935

5190
5829
6346
1412
3184
4480

6329
621
1358
3315
4200
4513
5094

5971

5904
587

5907
588

2412
2749
3020
3684

2456
2770
3034
3685

1236

1259

4698
5827

4702
5856

937
5217

966
5839

6435

618

956
1360
1662
1917

2146
2395

6443

637

963
1382
1679
1934

2152
2422

3617
5073
6451
5854

1262
4460

5175

4346

3568

4197
2221
642
743
1226
2381
3370
4026

8-AUG-78

4041

5880

4192
6121

4193
6122

4420

4421

4675

1334
4483

3296
5032

3328
5038

3367
5043

3400
5049

3433
5054

3502
5060

5065

3554

4236
5071

3634

5925

5963

5965

5967

4426

4924
5797

5957
723
1029
1403

727
1046
1426

1298

746

2406
3372

2516
3396

4416

5028
5434
5845
6352

3648
5875

6119

5163
662
750

1263

1265

4069
4473
5039

1299
4091
4491

5543
5903
6434

1489

1455

3256

3209

4793

4672

6332
648
1385
3335

6412

6503

2138
3386
4248

2223
3407

748

4239
4540
5100

4570

5973

5113
5979

4264
4638
5126
5985

5910
593
1295

5916
608
1361

711
1375

2523
2791
3048

4001

4787
5872
6457

SEQ 0190

3658
5877

3647
5598

4337
4188
646

115

PAGE 178

3652
5876

3638
5161
6505
4467
6082
4557
3609

15:05

702

801
1301
3164
3434
4186
4530
5055
5651
5993
6473
1539
3988
5075
864

2263
3442

4304
4689

6051

720

707

824

1012
1339

1303
3191
3436
4237
4556
5061
5653
6004

3299
3503

5873

2472

2559

3301
3555

6159

3324
4325

6135

4317
4624
5142
5794
6149

4004

1607
4172
5640

1625
4202
5879

1642
4302
5934

867
2631
3450

2977

1555

5421

1177

4330
4699
5178
6094

6187

786

838

4044
4356
4864
5456

6468
839
2261
2675

1204

3032

4070
4392
4867
5534

979

2266
2694
2979
3573

4707

5165
5812

6164

1270

3162
4093

4407
4926
5804

991

2269
2707
2997
3616

6131

4622
5662

6145

4678
5791

4885

4936

5201

919
1121

932
1130

2632

2108
2321
2635

939
1276
1628
1883

5575

4797

6165

4315
4582
5140
5783

2963
3523

3661
5846
645
1007
1434
1696
1951

2158
2447

6123

1593
1849
2096
2302

1610
1866

6324

2119
2686

CINCCA

NCV11

DIAGNOSTIC

2691
3027
3319

2712
3053
3323

CZNCCA.PT

CMPB
o

MACY11 27(654)

CROSS KREFERENCE TABLE
2733
3074
3331

2754
3087
3354

2775
3100
3378

6172

6339

3557
4071
5518

3567
4073
5593

3595
4086
5659

3608
4196
5685

643
3993
gggé

701
4025
5966

706
4090
5968

709
4096
5974

6019

6089

6163

6345

6351

6444

6466

3621
4246
5782

3633
4270
5815

713
4252
5980

719
4256
5987

3662
4490
5824

3985
4690
5828

722
4307
6003

726
4322
6038

1338
4794

1402
4802

1425
4874

4481

4492

4615

4637

4722

5994

6018

6053

6338

4339

44613

6104

6134

HALT

298

765

INC

582
4623

584
4691

fg%B

4252

4359

4457

JMP

302

303

304

688

703

JSR

806

813

3701

4029

MOV

592

596

598

1000
1038
1071
1120
1164
1195
1233
1275
1323
1372
1422
1467
1506
1550

1001
1039
1075
1126
1165
1196
1234
1283
1324
1373
1427
1468
1507
1551

1002
1040
1076
1129
1166
1200
1235
1284
1325
1374
1428
1469
1516
1552

5986

2859
3186
3403

4303

4336

5984

2838
3159
3395

4853

DECB

2817
3135
3390

4424

1266
3435

EMT

2796
3129
3383

1336
4514

1264
3371

5650

PAGE 179

15:05

1302
3688

1300
3437

DEC

5648

J 15

B8-AUG-78

635
4790

664
4863

680
4925

832
5426

842
5558

SEQ 0191
2880
3211
3423

3002
3212
3549

4030
4930
5893

2943
3281
3497

4032
5444
5902

2971
3307
3505
4062
5446
5924

4068
5448
5956

2901
3235
3447

2922
3258
3452

3991
4695
5837

4011
4706
5844

4018
4804
5851

729
4324
6042

734
4332
6046

739
4353
6048

742
4357
6433

745
4472

749
4555

790
5962

2500
4933

3152
5164

3178
5167

3298
5189

3300
5433

3369
5542

2130
4886
5177

6472

5744

5745

5949

6344

3686
5625

6350

4040
5901

4182
5958

4269
5970

4419
5972

4427
5976

4463
5978

4585
5982

708

712

716

721

725

728

731

736

741

744

4235

4312

4331

4338

4345

4469

4475

574

4973

5025

5029

599

600

601

602

603

604

605

606

610

611

614

615

1004
1051
1080
1137
1167
1201
1239
1285
1330
1376
1432
1473
1517
1556

1005
1053
1081
1138
1168
1205
1240
1286
1332
1380
1433
1474
1518
1557

1006
1054
1085
1139
1172
1206
1248
1287
1340
1381
1439
1483
1519
1566

1017
1055
1090
1140
1173
1214
1249
1288
1346
1388
1440
1484
1523
1567

1018
1056
1092
1141
1178
1215
1250
1294
1347
1396
1441
1485
1524
1568

1019
1057
1093
1142
1179
1216
1251
1296
1349
1397
1449
1486
1533
1569

1021
1058
1094
1146
1182
1217
1252
1304
1355
1399
1450
1490
1534
1573

1022
1060
1095
1147
1183
1218
1253
1311
1356
1404
1451
1491
1535
1574

1023
1061
1103
1151
11N
1219
1258
1312
1362
1405
1452
1499
1536
1584

1034
1065
1110
1154
1192
1223
1260
1320
1363
1410
1456
1500
1540
1585

1035
1066
1112
1155
1193
1224
1268
1321
1370
1419
1457
1501
1541
1586

1036
1070
1119
1163
1194
1232
1274
1322
1371
1420
1466
1502
1549
1587

CZINCCA NCV11
CINCCA.PTT
1591
1637
1677
1722
1762

1807
1847

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
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
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

1603
1644
1689
1729
1774
1814
1859
1899
1944

8-AUG-78
1604
1653
1690
1738
1775
1823
1860
1908
1945
1993

15:05
1608
1654
1694
1739
1779
1824
1864
1909
1949

180

SEQ 0192
1636
1€73
1721
1758
1806

1843

1891

1928
1976

2013
2063
2105
2144
2186

2239
2290
2332
2383
2430
2481
2526
2587
2634
2677
2723
2764
2805

CINCCA NCVTT
CZNCCA.PT

4679
4715
4759
4810
4872
4918

5150
5451
5635

MOvB

609

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE
4680
4716

4760
4811
4880
4919

5155
5454
5636
5737
5834
5896
5954
6065
€183
6407
6460
649
4174

4399
5202
5766
4173
1106

2182
2256
2337
2419
2533
2629
3022
3651
5194
5683

5727
5764
6168
903
3479
5581

4801
5912
843
4636
4533
5785
4856

4681
4717
4761
4812
4890
4971

5158
5455
5638
5739
5841
5922
5996
6067
6186
6410
6463
655

4177

4402
5215
5792

4400
1107

2183
2258
2340
2437
2537
2661
3023
3653

5197
5684

5728
5765
6474
978
3529
5583

5576
5914
1348
4752
4591
6106
4922

4682
4718
4762
4813
4891
4972
5179
5516
5657
5740
5848
5929
6000
6070
6189
6417
6469
700
4191
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

8-AUG-78
4687
4743
4764
4844
4893

15:05

4688
4744
4765
4845
4894
4987

L 15
PAGE

4692

181

SEQ 0193
4711
4749
4786
4851
4914
5146
5432
5564
5711
5806
5871
5944
6052
6127
6342
6441

4712

4060
4389
4989
5676

4066

4889

2078
2248
2316
2387
2467
2618
2680
3585
5154
5227
5722
5758
5950
6493

5867
2079
2249
2317
2388
2468
2619
2681
3587
5156
5422
5723
5759
5951
6494

4412

6413

4713
4751
4792
4861
4916

5148
5572
5733
5822

4714
4758
4796
4869
4917
5149
5442

5884
5946

6442

5678
6449

6057
6130
6356
6447
4089

4393
5173
5680
6464

2178
2250
2318
2391
2469
2620

2179
2254

2627

3588
5157
5423
5724
5761
5959
6879

5160
5424
5725
5762
6166

4868

4873

5577

5905

5906

5908

5909

4213

4282

431

4434

4768
4719

5550

5606

5663

5687

5933

6139

810

2672

3415

5713

5714

5760

4842
674
852

5001
683
853

£010
689
854

5020

5021

5022

2405

2673

2973

814
3029

3170

4020
4579
5796
685
1589

4035
4581

LASCII

381

LASCIZ

380

382
6300
6603
6749
383
3787
3884

1606
4254
5793

4541

4959

6877
351

421
4592

5337
5493
6210
6235
6387
6586
6712
6794
6825
6855

1411

4553
5989
5278

3952
6519
6606
6761
653
3792
3889

6531
6627
6793
3714
3802
3905
5246
5303
6255
6785

4640

5297
5380
6778

6878
356

6534

3451

3326
4267

4348
4887

4876

6408

6170
1423
3183
4577
6159
5322
6543
6652
6864
3726
3818
3921
5254
5309
6316

1488

6212

3459

44617
4988

6411

5143

3745
3840
3936

3750
3845
3940
5270
5331
6563

3757
3851
3945
5275
5338
6575

399
4435
5257
5467
6201

400
4436

377

5253
5464
6200
6224
6299
6545
6641
6758
6811
6841

6225

6550
6651
6760
6813
6843

1571
4187
5641

1521
4003

3255
5162
6414
6236
6558
6684

4106

3670
4551
5652

3500

4479

3987
5420
6453
6246
6567
6692

5317
6551

374
3951
5241
5366
6102
6218
6276
6526
6616
6737
6805
6835
6866

422
4593

5350
5496
6211
6245
6392
6593
6713
6797
6827
6857

3156

4564
6125
5283

SEQ 0194

5428
6461
6262
6570
6703

6284
6591
6730
3776

3870
4310

5288
5371
6611

418
4476

5274
5483
6205
6232
6376
6574
6691
6790
6821
6851

5261
5470
6202
6226
6315
6557

6775
6815
6845

3978

2
O S oownn
-

b
b
b

NN
— -

00 W ~NMN) -0

SEER3E3

o
v

b wnd
s
b
b
s
e
b
b

A
1
R

)
I

607
847
902
943
977
1015
1052
1103
1162
1213
1271
1359
1416
1465

606
846
901
941
976
1014
1051
1102
1161
1212
1249
1344
1413
1464

421

418

117
317

25
315

4107
4218
350

1400

6148

15:05

.BLKB
.BLKW
.BYTE

5
5377
6771

4809

2415

1624
4301
5811

3322
4243

4195
4705

6143

5992
1174

8-AUG-78

[

4201

4144
4674

b
e
i

1STB

5891
823

3244

3197

g_a
N =N
- —_
NN
H NSO

3143

MACY11 27(654)
CROSS REFERENCE TABLE
DIAGNOSTIC

b
-2
S

CINCCA NCVI
CZNCCA.PT

3449
3512
3602

3451
3514
3603

2455
3551
3610

3456
3554
3623

3457
3556
3626

4772

4819

4843

4901

4963

4981

107

108

289 .

290

582

3461
3562

3410
99
3563

4526

4636

4643

gggg

LEQUIV
EVEN
15

110

5009

653
3

31964
89

387

596

S010

301

598

N
3502
3

3412
3504
3569

son

5012

113

114

)]

5013

11§

4722
5014

S01S

8¢

116

5016

5017

S018

4595
143

4642
154

5384
176

6318
187

6759
198

6872
ifl

fiz

264

«10

418

&24

&27

&29

430

310

313

31§

321

323

349

¢3

S019

378

5020

379

638

5021

380

640

RC=IOTMOND

3402
3459
3561

T OO AMEZ R

3400
3458
3

TOMMMOMNDZ BT R

IOT"TMONADZ R

—

3443
N
3601

RC~=IOMTMONDZ R

1873

1544
1€83
1630
1669
1715
1754
1800
1839
1885
0

1834

1534
1582
1620
1668
1705
1753
1790
1838
1875

— —

1788

1533
1581
1619
1667
1704
1752
1789
1837
1874

O
N
-

1532
1577
1618
1664
1703
1749

1531
1567
1617
1654
1702
1739
1787
1824
}872

3414
3509
3599

1530
1566
1616
1653
1701
1738
1786
1823
1871

2n
o~

—

3413
3508
3597

1527
1565
1612
1652

n——
0O
vN
0N

1855

1517
1564
1602
1651
1688
1736
1773
1821
1858

Qo O

1807

1516
1563
1601
1650
1687
1735
1772
1820
1857

1936
1975

1890

1770

1515
1560
1600
1647
1686
1732
1771
1817
}853

1926
1974

1889

1514
1550
1599
1637
1685
1722

1925
1973

1888

1513
1549
1598
1636
1684
1721
1769
1806
1854

SEQ 0195

s —

1510
1548
1595
1635
1681
1720
1766
1805
1851

PAGE 183

1500
1547
1585
1634
1671
1719
1756
1804
1841

15:05

1499
1546
1584
1633
1670
1718
1755
1803
1840

B8-AUG-78

MACY11 27(654)

CROSS REFERENCE TABLE

DIAGNOSTIC

NCV11T

CINCCA

CINCCA.PT

—

-—e.

'CZNCCA NCV11T

—

8 16

MACY11 27(654) B-AUG-78 15:05 PAGE 184

890
933
981
1025
1086

897
940
984
1030
1088

899
942
986
1032
1090

901
944
988
1034
1091

902
946
989
1035
1096

907
953
993
1042
1099

910
959
996
1047
1101

912
961
298
1049
1103

914
963
1000
1051
1114

915
964
1001
1052
1122

920
969
1008
1063
1131

923
972
1013
1068
1133

4962

4980

4986

4990

5001

5010

5011

5012

5013

5014

5015

5017

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
. IFDF

- -

DIAGNOSTIC

CINCCA.PTT

- §FF

5021
877

23
385

CROSS REFERENCE TABLE

1150
1208
1270
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
4049
4229
4283
4490
4625
5022

288
388

1152
1210
1277
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
4077
4235
4284
4494
4626
5023

290
596

1157
1212
1279
1371
1445
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
4085
4236
4286
4495
4634

291
636

1159
1214
1281
1383
1447
1497
1547
1599
1651
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
4086
4248
4307
4498
4636

292
638

1161
1215
1283
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
4090
4250
4365
4513
4640

311
802

1163
1226
1284
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
4091
4251
4443
4529
4645

315
824

1164
1228
1307
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
4107
4252
4446
4545
4649

317
842

SEQ 0196

1177
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
3671
3708
4108
4254
4457
4547
4668

322
845

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

324
846

1185
1233
1318
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
3511
3603
3676
3977
4116
4256
4467
4577
4726

331
847

925
974
1015
1073
1135

927
N
1017
1078
1137

928
T
1018
1083
1138

5018

5019

5020

1187
1241
1320
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
4119
4265
4469
4592
4771

1189
1244
1321
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
30m
3080
3144
3212
3266
3368
3442
3513
3622
3678
3980
613
4267
4470
4602
4818

344
848

347
865

1191
1246
1343
1417
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
4154
4275
4472
4612
4843

350
873

1192
1248
1358
1419
1481
1531
1582
1634
1685
1736
1787
1838
1889
1940
1991
2044
2113
219
2272
2346
2404
2481
2596
2697
2760
2823
2886
2949
3030
3083
3162
3218
3297
3379
3450
3553
3627
3680
4009
4221
4277
4479
4613
4900

378
878

880
926
974

1015

1073
1134

1188
1242
1319
1413
1466
1516
1566
1619
1670
1721
1772
1823
1874
1925
1976

Y|
WWww

oNOMNO

278

—_—TTTMT
-——

2028
2102
2167
2237
2326
2400
2474
2567
2683
2741
2804
2867
2930
3009
3079
3142
3199
3264
3341
3434
3511
3610
3680

4117
4495
4963

5023
4051
3996
16
608
4225
4449

8-AUG-78

15:05

185

SEQ 0197
914

908

881
927
975

1050
1103

1016

1078
1135

1163

1229
1308
1393
1460
1510
1560
1612
1664
1715
1766
1817
1868
1919
1970

1189
1245
1320
1416
1477
1527
1577
1630
1681
1732
1783
1834
1885
1936
1987

1718

202

2039
2110
2168
2263
2327
2401
2478
2568
2688
2756
2819
2882
2945
3010
3080
3145
3213
3265
3368
3443
3514
3623
3684

2159
2232
2377
2451
2553
2642
2735
2798
2861
2924
- 2986
3059
3137
3193
3243
3333
3410
3504
3669

4155
4499
4981

4056
4049
21
610
4226
4450

§2FATHAN=

-~
& NN §OO
SN

—

)

——d —d

—

879
925

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

=3
3
D 2

CINCCA NCV1T
CINCCA.PT

4078
Lidn
4727

4636
4152

4482

4661

451

5010

4717
597
3999
4284
501

4772

600

4100

4363
5012

924
070
1008
1063
1122
1180
1231
1317
1395
1464

1514

CZNCCA

NCV11

CINCCA.PTT
.IRP

.NLIST

.SBTTL

SEQ 0198

5020

5021

5022

1495
1751
2006

1512
1768
2024

1529
1785
2042

1545
1802
2059

1562
1819
21

1580
1836
2164

1597
1853
2199

1615
1870
2233

1632
1887
2270

1649
1904
2296

1666
1921
2324

1683
1938
2349

4552

4573

4589

4590

4606

4612

4625

4626

4742

4762

4784

4812

881
996
1163
1392
1533

4077

897
1000
1187
1396
1545
1670
1802
1925
2059
2328
2564
2783
2947
3142
3454
4229

901
1013
1191
1415
1549
1683
1806
1938
2063
2349
2568
2800
2951
3165
3458
4490

910
1017
1210
1419
1562
1687
1819
1942
2111
2353
2604
2804
2982
3169
3507
5001

914
1030
1214
1445
1566
1700
1823
1955
2115
2374
2608
2821
2986
3192
351
5009

923
1034
1228
1449
1580
1704
1836
1959
2164
2378
2641
2825
3006
3196
3559
5010

927
1047
1232
1462
1584
1717
1840
1972
2168
2399
2645
2842
3010
3216
3563
5011

942
1051
1244
1466
1597
1721
1853
1976
2199
2403
2695
2846
3036
3220
3598
5012

946
1086
1248
1479
1601
1734
1857
1989
2203
2426
2699
2863
3040
3239
3602
5013

292
.

341
7

582
8

628
9

1444
10

1649
13

2695
385

5001
612

640

298
910
1017

378
914
1030
1214
1445
1566

385
923
1034
1228
1449
1580

388
927
1047
1232
1462
1584

582
942
1051
1244
1466
1597

5020

844
1133

2477
2905
3337

131

5021

877
1159

2517
2926
3409

291

5022

897
1187

2564
2947
3454

298

5023

910
1210

2604
2982
3507

378

923
1228

2641
3006
3559

385

942
1244

2695
3036
3598

388

959
1279

2716
3057
3625

582

972
1316

2737
3078
3665

612

2758
3104
4126

637

640
963
1099

653
972
1103

2063
2349
2568

2111
2353
2604

2115
2374
2608

2164
2378
2641

2168
2399
2645

2199
2403
2695

2203
2426
2699

2233
2430
2716

<930
3138
3413
4077

2947
3142
3454
4229

2951
3165
3458
4490

2982
3169
3507
5001

2986
3192
3511
5009

3006
3196
3559
5010

3010
3216
3563
5011

3036
3220
3598
5012

3040
3239
3602
5013

3057
3243
3625
5014

5020
341

2783

5021
434

298

3472

1099

1133

21
695

131
844

2800

5022
2270

2804

5023

2821

1704
1836
1959

2825

1717
1840
1972

2842

1721
1853
1976

2846

3524

5576

5716

5904

6476

6799

1159

1187

1210

1228

1244

1279

281
877

292
897

301
910

308
923

319
942

341
959

2863

385
972

1316

653

637
959
1090

2059
2328
2564

1700
1823
1955

640

2800
3165
4165

972
1103
1316
1499
1632
1755
1887
2010
2270
2454
2737
2888
3078
3266
3665
5016

2046
2324
2521

1670
1802
1925

1248
1479
1601
1734
1857
1989

2779
3138
4147

1013
1415

963
1099
1283
1495
1619
1751
1874
2006
2237
2450
2720
2884
3061
3262
3629
5015

291
901
1013

1210
1419
1562
1687
1819
1942

996
1392

959
1090
1279
1483
1615
1738
1870
1993
2233
2430
2716
2867
3057
3243
3625
5014

131
897
1000
1187
1396
1545

1191
1415
1549
1683
1806
1938

612
946
1086

984
1366

2
881
996
1163
1392
1533

2779

.REPT

PAGE 186

5019

1666
1789
1921

.PAGE

15:05

5018

2046
2324
2521
2779
2930
3138
3413

-MEX

B8-AUG-78

5017

582
1099

1666
1789
1921

-MACRO
.:EA%%

MACY11 27(654)

CROSS REFERENCE TABLE

5015

2450
2884
3262

LIST

DIAGNOSTIC

1279
1483
1615
1738
1870
1993

1283
1495
1619
1751
1874
2006

2867

2884

434
984

1366

3061
3262
3629
5015

1316
1499
1632
1755
1887
2010
2270
2454
2737
2888
3078
3266
3665
5016

590
996

633
1013

2237
2450
¢/720

1392

1415

1030
1445

1047
1462

1086
1479

1700
1955
2374

1717
1972
2399

1734
1989
2426

1133
1320
1512
1636
1768
1891
2024
2274
2477
2741
2905
3082
3337
3669
5017

1137
1366
1516
1649
1772
1904
2028
2296
2481
2758
2909
3104
3341
3684
5018

1159
1370
1529
1653
1785

2821
3192
4205
4844
844
976

844
976
119

2842
3216
4235
4892
848
984

848
984
1137
1366
1516
1649

2863
3239
4551
877
988

1908
2042

2300
2517
2762
2926
3108
3409
3700
5019

877
988
1159

1320
1512
1636
1768
1891
2024

1772
1904
2028

1370
1529
1653
1785
1908
2042

2905

2909

2926

2274
2477
2741
3082
3337
3669
5017

640
1030
1445

2296
2481
2758

3104
3341
3684
5018

654
1047

1462

2300
2517
2762

3108
3409
3700
5019

682
1086

1479

CZNCCA NCV11
CINCCA.PT

MACY11 27(654)
DIAGNOSTIC
CROSS REFERENCE TABLE

1495
1751

2006
2450
2884
3262

LTITLE
.WORD

4284
11
298
358

395
3689

4575

ERRORS DETECTED:

1512
1768

2024
2477
2905
3337

1529
1785

2042
2517
2926
3409

1545

1802

2059
2564
2947
3454

1562
1819

2111

8-AUG-78
1580
1836

2164
2641
3006
3559

15:05
1597
1853

2199
2695
3036
3598

187

SEQ 0199
1649
1904
2296

27°?
3104
3673

1666

1921

2324
2779
3138
3712

1683
1938

2349
2800
3165
3975

4363

44641

449€

4600

4643

4816

4898

4960

299
359
3%
3692
4635

300
360
397
3707
4671

316
361

336
363

337
364

340

349
390

352
391

401

3965

4720

403

3968

4934

416

3970

4977

369

426
4151

4313

428
4360

1717
1972

1734
1089

4114

4152
5001

4219

353

354
393

355
394

1700

1955
2374
2821
3192
4978
392
429
4439

2399
2842
3216

4522

2426
2863
3239
5024

431
4527

CINCCA NCV11
CZNCCA.PIT

DIAGNOSTIC

*CINCCA,CZNCCA/CRF /SOL=CZNCCA
RUN-TIME: 43 31 6 SECONDS

CORE USED:

30k

MACY11 27(654)

B-AUG-78

15:05

PAGE 188

SEQ 0200