Digital PDFs

AH-E772B-MC

January 1980

183 pages

Original

10MB

view download

OCR Version

8.2MB

view download

Document:	CZNCCB0 NCV11 NCV-11 DIAG JAN 1980 bw
Order Number:	AH-E772B-MC
Revision:	000
Pages:	183
Original Filename:	CZNCCB0__NCV11__NCV-11_DIAG__AH-E772B-MC__JAN_1980_bw.pdf

OCR Text

NCV-11 DIAG

CZNCCBO

AH-E772B-MC

JAN 1980

FICHE 1 OF1 _

IN USA
MADE

IDENTIF ICATION

PRODUCT (ODE:

AC~E?71B-M(

PRODUCT NAME:

CINC(BO NCv=11

DATE :

AUGUST

MAINTAINER:

DIAGNOSTIC ENGINEERING

(OPYRIGHT () 1978, 1679
DIGITAL EQUIPMENT CORPORATION,
THIS

SOF TWARE

SEQ 0001

MAYNARD,

DJAGNOSTIC TEST

1979

MASS,

[S FURNISHED UNDER A LICENSE

FOR USE

ONLY

ON A SINGLE

(QMPUTER SYSTEM AND MAY BE COPJED ONLY WITH THE INCLUSION OF THE ABOVE
(OPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT
BE PROVIDED OR OTHFRWICT MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE _ICENSE TERMS.
TITLE
TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICF AND
SHOULD NOT BE C(ONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DEC

ASSUMES NC RESPONSIBILITY FOR

N EQUIPMENT

WwHICH

IS NOT

THE

SUPPLIED BY

USE

DEC.

OR RELIABILITY OF

ITS

SOF TWARE

SEQ 0002

TABLE

O
O

ABSTRACT

whu—-O

REQUIREMENTS

L OADING PROCEDURE

-0

EQUIPMENT
STORAGE

PREL IMINARY PROGRAMS

STARTING PROCEDURE

PROGRAM START

WO
O

NNNNNYWVWWN

OWVME WSO

MISCELLANEOUS

EXECUTION TIME

PROGRAM TEST DESCRIPTIONS

(@]

[]

norSn

ERROR REPORTING

SOF TWARE SWITCH REGISTER
LOGIC TEST OPTIONS

[]

HISTORY

CONTENTS

FIELD ADJUSTMENT OPTIONS

CONTROL

NCV11

BUS ADDRESS MODIF ICATION

XXDP/APT NOTES

POWER FAIL

MULTIPLE NCV11
RESTRICTIONS
ADDRESS MAKER

INTERFACE

TESTING

TABLE

LISTING
HISTORY

VERSION 'B'' wAS (REATED

T0:

INSTALL

A 2 LOCATION PATCH

CORRECT

A DEFECT

THE

LOGIC

TEST.

#2 INSTALL A 3 BYTE PATCH TO THE M8036 M]CRO-CODE.
#3 (HANGE THE OQUTPUT REPORT OF DIFFERENTIAL LINEAR]ITY,
IN ACCOUNTING ENORMOUS ERRORS

ERROR COUNTER.
#5 CORRECT ERROR (ODES FOR

TwO

TESTS.

TOTAL

—

ABSTRA(T

SEQ 0003

"HE NCV11 DIAGNOST]IC PROGRAM IS A SFRIES OF TESTS DESIGNED
TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE ON THE

MB026 AND M8(G36.

THE M7952 DIAGNOSTIC SHOULD HAVE BEEN EXECUTED.

TOTAL PROGRAM (ONTROL

IS ACCOMPLISHED

THRU THE

CONSOLE

TERMINAL

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

OR PDP-11

(OMPUTER.

REQUIREMENTS

EQUIPMENT

PDP11

NCV11 OPTION INCLUDING Kwv1l REAL TIME CLOCK (M7952)
AQ17 SELF~TEST CONNECTOR :70-12894) (REQUIRED FOR S[CTION 9.2 + 9.3

AV}

5.
6.

FAMILY OR LSI-11

170 TERMINAL

(JE: LA36)

FAMILY COMPUTER

H3060 JOYSTICK (OPTIONAL)
HARDWARE TESTER AND PROM BLASTER

(OPT]ONAL)

STORAGE
THE

PROGRAM REQUIRES

16K OF

MEMORY.

MEMORY MANAGEMENT OR ADDITIONAL MEMORY ARE SENSED,

PROGRAM WILL

USE

THOSE

HARDWARE

OPTIONS.

THE

PREL IMINARY PROGRAMS

THE

KWV11

DIAGNOSTIC

(MD-11~{VKWA)

SHOULD HAVE BEEN RUN.

L OADING PROCEDURE
NORMAL PROCEDURE
SHOULD BE

FOR LOADING A BINARY PROGRAM INTO MEMORY

fOLLOWED.

STARTING PROCEDURE
1.

LSI11:

0o NON
N G

LSI:

MAKE

SURE

THE

NCV11

DEVICE

BUS

ADDRESS,

INTERRUPT

VECTOR ON

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

THE

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 C(HARACTER G.

THE PROGRAM WILL RESPOND BY TYPING THE PROGRA* TITLE.
THE PROGRAM WILL REQUEST SWITCH REGISTER VALUE.
THE PROGRAM WILL TYPE THE TEST SELFCTION MENU FOR THE

THE OPERATTMR SELECT'S THE APPROPRIATE

OPERATOR.

TEST BY TYPING THE

TEST LETVTER AND ''rR"’

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 SWIT(H REGISTER IS USED, THE SOFTWARE S.R. HAS NO EFFECT.

PROGRAM START

SEQ 0004

STARTINC ADDRESS OF THE PROGRAM
RESTART ADDRESS OF THE PROGRAM
STARTING ADDRESS FOR THE FACTORY OPTION C(HECK-QUT AREA.

200
204
210

(INFORMS

THE PROGRAM THE

TESTER AND BLASTER ARE

(ONNECTED)

5.0

SWITCH

OCTAL

FUNCT]ON

SW15=1
SW14=1
SW13=1

100000
040000
020000

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOQUTS

002000

BELL ON ERRTM -

Swi11=1

004000

Sw09=1
SWO8=1

001000
0004 XX

Sw10=1

INHIBIT ITERAT]ONS

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

FIELD ADJUSTMENT LOOP
SWITCH

SW15=1

SW13=1

Sw01 1
SWO0 1

100000

HALT CN "'INPUT VOLTAGE OUT OF RANGE'® ERROR

001000
000400
000200
000100
000020
000010
000004

INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT

INHIBIT ERROR OR CONVERSION TYPEOQUT

000002
000001

CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS

ON
ON
ON
ON
ON
ON
ON

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

THE

SOF TWARE

SWIT(H REGISTER

THE

SOF TWARE

SWITCH REGISTER CAN BE

CHANGED BY USING THE

CONTROL BY TYPING THE

ODT

'SWREG'

FACILITIES.

°CONTROL & G'

(LOC.

176)

(AN BE

CHANGED UNDER

KEYS.

THIS

PROGRAM

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

ABOVE 1S OfF NO VALUE, SO RESORT TO STEP #1
SOF TWARE SWITCH REGISTER I[F DESIRED BEFORE
‘P

(CONTINUE).

STEP #2

TO ALTER
TYPING

THE

IF THE PROGRAM [S PERFORMING RESET INSTRUCTIONS, SEVERAL
‘CONTROL & (' OR "CONTROL & G' C(OMMANDS MAY BE NECESSARY

Bf ACKNOWLEDGE

TESTING (AN BE

GAIN
GAIN
GAIN
GAIN

1
1
1
1

GAIN = 2
GAIN = 2

INHIBIT CONVERSIONS ON (AMERA #1 GAIN = 2
INHIBIT CONVERSIONS ON (AMERA #0 GAIN - 2

CONTROL
1.

LSI-11i:

FUNCTION

020000

SW09=1
SwW08=1
Sw07-1
SW06-1
SW04-1
SWw03=1
Sw02=1

5.3

OCTAL

THE

PROGRAM.

ABORTED BY

TYPING THE

‘CONTROL

& ('

KEYS.

6.0

E~ROR REPORTING

SEQ 0005

ALL ERRORS ARE A(COMPANIED w]TH AN ENGLISH LANGUAGE DESCRIPTIVE
"OMMENT AS TO THE TYPE OF FAJLJRE. FURTHER QUALIFICATION OF
THE ERROR (AN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE

ERROR P(

OR FROM THE

TEST

ITSELF.

MISCELLANEOUS
NCVTM1

BUS ADDRESS MOCIFICAT]ON

MODIFY LOCATION 'SBASE' (LOC. 1250) If BASE NCV11 BUS ADDRESS IS NOT 772760.
MODIFY THE LOW NINE BITS OF LOCATION °'SVECT1® (LOC. 1244) IF
BASE NCV11 INTERRUPT VECIOR IS NOT 370.
MLDIFY THE HIGH THREE BITS OF LOCATION °"SVECT1® (LOC. 1244) IF
THE

INTERRUPT

PRIORITY

MODIFY LOCATION 'SCDw1'
7.2

XXDP/APT

LEVEL

(10C.

IS NOT

1254)

LEVEL

6 ON A UN]IBUS

(CPU.

If BASE NCV11 CLOCK BUS ADDRESS IS NOT 770420.

NOTES

THIS DIAGNOSTIC IS CHAINABLE UNDER ¥XDP (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 (AUSE A Rz START MESSAGE ON POWER UF AT
WHICH TIME THE PROGRAM S RESTARTED (ONLY ON SYSTEMS WITH
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE).

MULTIPLE

NCVI1'S

INTERFACE

TESTING

THIS PROGRAM DOES NOT ""AUTO-SIZE'' THE NUMBER OF N(Cv11'S CONNECTED.
FOR EACH ADDJTIONAL NCV11
THE OPERATOR MUST MODIFY LOCAT]IONS

$BASE, SVECT1
75

AND $(DW'

(REF.

7.1).

RESTRICTIONS

KWV11 REAL TIME CLOCK (M7952) MUST NOT BE (ONNECTED TO MBC26 'FAST-ON'' TABS.
JNLESS OTHERWISE STATED, NO EXTERNAL (ONNECTIONS TO M8036 OR AQ17.

ADDRESS MAKER

TABLE

THE MB8036 C(ONTAINS LOGIC

TO CONVERT A/D DATA

SEQ 0006

INTO A RELATIVE

ADDRESS.
BELOW IS A TABLE WHI(H SHOWS THE ADDRESS MAKER OUTPUT
WITH THE "TEST CONTROL'' MAINT, BIT SET.
SETTING THIS BIT ENABLES
THE STATES OF THE 'GAIN, 7B ENABLE AND RESOLUTION'' BITS SIMULATE
(ONVERTED A/D DATA,

[

00
ODOOOOO—

NOONNOO

OINNOONN

OOONNOO

NOOOONN

DoONOMNO
—

o@oONONGD

CcComMOaNON

OCOO@DMAOANGD

(eololelolelr
fal

ADDRESS MAKER OUTPUT BITS
14 13 12 11 10 09 08 07 06 05 04 03 02 01

ALWAYS A O
ALWAYS A 1
GAIN FLOP STATE

B ENABLE
THE

8.0

(eolelolelalels)

D QO O
—

RE SOLUTION
RESO REST WORD+16 15

OCOoOOoOmMon~N

THE

FLOP STATE

''AND'' OF

2B ENABLE

WITMH 7B MAINT.

INPUT

EXECUTION TIMC

LOGIC:

EXECUTION TIME RANGES FROM ABOUT S SECONDS WITH NO ITERAT]ONS
TO ABOUT

SECONDS WITH

ITERATIONS ENABLED.

AN END PASS MESSAGE INDICATES ALL SUB-TESTS HAVE COMPLETED.
EACH ADDITIONAL 4K OF MEMORY WIL. ADD ABOUT 10 SECONDS
TO THE LOGIC TEST RUNTIME.
DIFFERENTIAL LINEARITY: EXECUTION TIME 1S ABOUT 90 SECONDS.

5.0

PROGRAM

TEST

DESCRIPTIONS

THE PROGRAM CONSISTS OF

THREE

FACTORY

SEQ 0007

FOUR MAIN SECTIONS PLUS THREE AUXILIARY AND

OPTION CHECK-OUT

SECTIONS.

THE OPERATOR SELECTS EACH SECTION VIA THE CONSOLE KEYBOARD.
BELOW IS A BRIEF DESCRIPTION OF EACH SECTION AND THE KEYBOARD (HARACTER.
MAIN SECTIONS

(MB026 + MB036)

LOGIC TEST

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

TEST

(ONTAINS A SERIES OF

INDEPENDENT

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF

A COMPLETE

LISY OF

TESTS

IS AVAILABLE

SUB-TESTS DESIUNED

THE NCV11 GAMMA CAMERA INTERFA(E.

IN THE

TABLE

CONTENTS

AT THE BEGINNING OF THE LISTING.
THE COMMENT FIELD WITHIN
EACH SUB-TFST TiTLE CAN BE BENEFICIAL TO UNDERSTANDING THE LOGIC
ADDITIONAL LOGIC TESTS OF THE AO17 wilLL BE EXECUTED IF THE
PROGRAM WAS STARTED AT LOC. 210.

D (M

DIFFERENTIAL LINEARITY

(A017)

<REQUIRES SELF-TEST CONNECTOR IN J1 ON
<AQ017 SWITCH SET TO "MAINT.'" POSITION>
A FINITE

VARIATION OF

INPUT

TESTED.

VOLTAGE

THE

AQ17>

<SETUP

INTERVENTION ONLY>

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
TO THE INPUT VALUE.

BEEN SKIPPED,

THE
THE

RESPECTIVE MEMORY LOCATION CORRESPONDING
PROGRAM THEN DETERMINES ]F ANY STATE HAS

IS EXCESSIVELY WIDE OR NARROW.

WHEN 'M'" IS USED TO

SELECT THE SECTION, THE PROGRAM QUTPUT AN EXPANDED REPORT OF
THE 254. STATES. TIGHTER ERROR TOLERANCES ARE USED IF RUNNING

IN THE OPTION CHECKOUT AREA (SA 210).

6.3

FINAL

ACCEPTANCE

<REQUIRES SELF-TEST
<AQ17

THE

SWITCH

SET

CONNECTOR

TO 'MAINT."" POSITION>

THE

AQ17> <SETUP INTERVENTION ONLY>

SUB=-SECTION RUNS SECTION "L'" AND ‘D' TO VERIFY PROPER OPERAT]ON.

9.4

ADJUSTMENT OF

<MANUAL

INTERVENTION> <SETUP

<AQ17 SWITCH SE

AQ17 AT

FIELD SITE

SEQ 0008

INTERVENTION>

TC "OPER.'' POSITION>

(OARSE ADJUSTMENT OT THE AO17 CAN BE PERFORMED USING THIS SUB=-SECTION.
THE OPERATOR MAY

SELECT

THE

CAMERA AND GAIN TO BE

SWITCH REGISTER.
A SERIES OF CONVERSIONS ARE
AND THE OPERATCR IS INFORMED OF THE RESULTS.
SWITCH

SW15-1
Sw13-1
SW09=1
Sw08-=1
SW07=1
Swi6-1

FUNCTION

100000

HALT ON
INHIBIT
INHIBIT
INHIBIT
INHIBIT
INHIBIT

''INPUT VOLTAGE OUT OF RANGE'' ERROR
ERROR OR CONVERTED VALUE TYPE-QUT
CONVERSIONS ON CAMERA #3 GAIN = 1
CONVERSIONS ON CAMERA #2 GAIN
1
CONVERSIONS ON CAMERA #1 GAIN = 1
CONVERSIONS ON CAMERA #0 GAIN = 1

INHIBIT
INHIBIT
INHIBIT
INHIBIT

CONVERSIONS
CONVERSIONS
CONVERSIONS
CONVERSIONS

000400
000200

000100
000020

Sw03-1
SW02=1
SW01-1
SWO0 1

9.5

OCTAL

020000
001000

SW04-1

INHIBIT CONVERSIONS ON JOYSTICK

000010
000004
000002
000001

OTHER TERMINAL

SAMPLED USING THE

TAKEN ON EACH CAMERA

IN SOME CUSTOMER SITES,

HELP

A LIST OF

9.7

THE

CONSOLE

TERMINAL MAY NOT BE

TYPED

tACTORY OPTION

CHECK=OIUT

OPERATOR

TO REFRESH THE

OPERATOR'S MEMORY.

SOF TWARE

SWITCH REGISTER WHIN

SECTION

INITIAL ADJUSTMENT OF AO17

<MANUAL

INTERVENTION> <SETUP

<AQ17 SWITCH SET

LOCATED

THE

SWITCH REGISTER

gg?BEESNI:g gzgfifiggRsag-g????gNrHE

9.8

#3
#2
#1
#0

OPERATOR

COMMANDS WILL BE

SOF TWARE

CAMERA
CAMERA
CAMERA
CAMERA

ADDRESS

WiTHIN EASY ACCESS TO THF NCV11.
THIS SECTION ALLOWS
TO CHANGE THE PROGRAMS CONTROL TO ANOTHER TERMINAL.
9.6

ON
ON
ON
ON

INTERVENTION> <HARDWARE

TO 'OPER.'' POSITION>

A KNOWN GOOD DIGITAL

TO ANALOG

(D/A)

TESTER>

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

THr

ADJUSTMENTS.

GAIN
GAIN
GAIN
GAIN

=
=
=
-

2
2
2
¢

9.9

BLASTING THE LINEARITY CORRECTION PROM

<MANUAL

INTERVENT]ION> <SETUP INTERVENTION> <HARDWARE

THE

IS DESIGNED TO CREATE

<AO17 SWITCH SET

TEST

TO "MAINT.'' PCSITION>

TESTER>

THE LINEARITY CORRECTION PROM (L(P).

THE TESTER HARDWARE (ONTAINS RAM STORAGE
PROGRAM WILL RUN DIFFERENTIAL LINEARITY.,

TO EMULATE THE LCP.
THE
THE PROGRAM WILL THEN

USE THE RESULTS TO DETERMINE THE CORRECT VALUE TO BE PLACED IN THE
LCP.
THE PROGRAM WILL THEN INFORM THE PROM BLASTER TO GENERATE A

CORRECTED LINEARITY PROM FOR THE AO17 MODULE. UPON COMPLETION
THE_OPERATOR IS INSTRUCTED

OF GENERATION AND VERIFICATION STAGE,

TO REMOVE THE EMULATOR CABLE FROM THE AO017 AND INSERT THE NEWLY
(REATED 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 CREATE SEVERAL (COPIES BY REPEATELY EXECUTING THIS SECTION.
THE

PROGRAM WILL

LISTING

THE

STEPS

PERFORM,

BINARY

00
01
02
03
04
05
06
07

215
244
116
144
215
244
116
144

10001101
10100100
01001110
01100100
10001101
10100100
01001110
01100100

106 (116)

01000110 (01001110)

22
23

16.0

OPERATOR

OCTAL

()

THE

LOCATION

10
11
12
13
14
15
16
17

NOTE:

INFORM

215
244
116
144
215
244
116
144
144

314 (216)
304 (244)

10001101
10100100
01001110
01100100
10001101
10100100
01001110
01100100
01100100

11001100 (10001119)
11000100 (10100100)

INDICATES OLD CONTENTS OF M8036 ROM.

SEQ 0009

CINCCB NCVI
CINCCB.PIT

DIAGNQSTIC

31-AUG-79 11:21

MACY11 30G(1063)
31-AUG=79
TABLE OF CONTENTS

13:10

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

STARTING ADDRESS(ES)
ACT11 HOOKS
APT PARAMETER BLOCK
COMMON TAGS
APT MAILBOX-ETABLE
ERROR POINTER TABLE
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME

GET VALUE FOR SOFTWARE SWITCH REGISTER

PRIME THE NCV11 ADDRESSES FROM THE DEFAULT VALUES
DIAGNOSTIC IDENTIFICATION TYPEOUT
KEYBOARD COMMAND DECODER
TEST

DESCRIPTION

T
T2
13
T4
TS
16
17
110
TN
712
713

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

116
117

VERIFY 'CLR ALL'' CLEARS THE EXTENDED OFFSET BITS
TEST THE ''ACTIVE'® FLOP CAN SET AND CLEAR

T14
115

FLOAT A 1 ACROSS THE OFFSET REGISTER
VERIFY NO DUAL REGISTER SELECTION

120

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

130

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

121
122
123
124
125
126
127

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 0; ¥ HE 3 2 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

131
132
133

VERIFY JOYSTICK DONE FLOP SETS
VERIFY THAT "RESET'' INSTRUCTION CLEARS THE JOY READY FLOP
JOYSTICK DATA PATH =
GAIN =0
2B ENABLE =0 RES. = 000

T35

JOYSTICK DATA PATH

134

JOYSTICK DATA PATH

JOYSTICK DATA PATh

RES. =

140

JOYSTICK DATA PATH

RES.

VERIFY THE DATA INCRcMENT FUNCTION

136

137

JOYSTICK DATA PATH

GAIN =

RES.

= 010

SEQ 0010

31-AUG=79 11: 21

145
146
147

TABLE OF CONTENTS

QEIRAN
N

N
PG
PO
PP

SEQ 0011

VERIFY THE DATA INCREMENT CARRY BI1
VERIFY THE DATA INCREMENT FUNCTION iS INMIBITED
VERIFY THE DATA DECREMENT FUNCTION
VERIFY THE DATA DECREMENT BORROW
VERIFY THE DATA DECRERNT FUNCTION IS INMIBITED
TEST ADDRESS MAKER
MATRIX MODE
- RES = 7 GAIN = 0 ZB ENABLE = 0
TEST ADDRESS MAKER - MATRIX MODE
-~ RES = 7 GAIN = 1 2B ENABLE = 0
TEST ADDRESS MAKER = MATRIX MODE - RES = 7 GAIN = 0 ZB ENABLE
= 1
TEST ADDRESS MAKER <~ MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 0
TEST ADDRESS MAKER - MATRIX MODE -~ RES = 6 GAIN = 1 2B ENABLE = 0
TEST ADDRESS MAKER -~ MATRIX MODE - RES = g GAIN = 0 2B ENABLE = 1
TEST ADDRESS MAKER ~ MATRIX MODE - RES = 5 GAIN = 0 2B ENABLE = 0
TEST ADDRESS MAKER -~ MATRIX MODE - RES = 5 GAIN = 1 7B ENABLE = 0
TEST ADDRESS MAKER - MATRIX MODE = RES = 5 GAIN = 0 ZB ENABLE = i
TEST ADDRESS MAKER -~ MATRIX MODE - RES = 4 GAIN = 0 2B ENABLE
= 0
TEST ADDRESS MAKER ~ MATRIX MODE - RES = 4 GAIN = 1 2B ENABLE = 0
TEST ADDRESS MAKER <~ MATRIX MODE - RES = 4 GAIN = 0 2B ENABLE = 1
TEST ADDRESS MAKER =~ MATRIX MODE - RES = 3 GAIN = 0 2B ENABLE = 0
TEST ADDRESS MAKER =~ MATRIX MODE - RES = 3 GAIN = 1 2B ENABLE = 0
TEST ADDRESS MAKER =~ MATRIX MODE - RES = 3 GAIN = Q 2B ENABLE = 1
TEST ADDRESS MAKER - MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE = 0
TEST ADDRESS MAKER -~ MATRIX MODE - RES = 2 GAIN = 1 2B ENABLE = 0
TEST ADDRESS MAKER ~ MATRIX MODE -~ RES = 2 GAIN = 0 ZB ENABLE = 1
TEST ADDRESS MAKER =~ MATRIX MODE - RES = 1 GAIN = 0 2B ENABLE = 0
TEST ADDRESS MAKER - MATRIX MODE - RES = 1 GAIN = 1 7B ENABLE = 0
TEST ADDRESS MAKER =~ MATRIX MODE = RES = 1 GAIN = 0 ZB ENABLE = 1
TEST ADDRESS MAKER =~ LIST MODE - ZB ENABLE = 0 GAIN = 0
TEST ADDRESS MAKER
TEST ADDRESS MAKER

LIST MODE - ZB ENABLE =
LIST MODE - ZB ENABLE

ENABLE A ONE WORD TRANSFER
SECTION LIST MODE
ENABLE A 512 WORD TRANSFER
SECTION LIST
VERIFY *TIMEQUT'' FLOP SETS AND 'TLR ALL'' CLEARS IT
VERIFY ‘TIMEOUT'* FLOP SETS AND 'TLR TIMEOUT'' CLEARS IT
VERIFY *TIMEQUT'' INTERRUPT
VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

1077

13:10

144

31-AUG=79

g Pumg

142
143

MACY11 30G(1063)

912

918
924
930
935
956
957

DIAGNOSTIC

O -

CINCCB NCVIM
CINCCB.P1T

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 17
VERIFY 'SET EVENT'' DATA GENERATES A 177777 DATA WORD
VERIFY 'SET TIME'' DATA GENERATES A
DATA WORD
VERIFY 'TLOCK ST1'*
GENERATES A EVENT (177777)
DATA WORD
VERIFY ‘TLOCK OVERFLOW'
GENERATES A TIME (000000) DATA WORD
VERIFY 'SET TIMETM' OVERRIDES 'SET EVENT'' DATA

DO A ONE WORD MATRIX MODE TRANSFER
~CHECK FOR INCREMENT FUNCTION
VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH
.

CHECK FOR 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

VERIFY CORRECT BR LEVEL THE NCV-11

VERIFY A
VERIFY A
VERIFY A
VERIFY A
VERIFY A
VERIFY A
VERIFY A

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

XFR USING OFFSET
XFR USING OFFSET
XFR USING OFFSET
XFR USING OFFSET
XFR USING OFFSET
XFR USING OFFSET
XFR USING OFFSET

=~
-~
-

13
12
11
10
09
08
07

CINCCB NCVIM
DIAGNOSTIC
CINCCB.PN
31-AUG-79 11:21

7130

SeBR IR g

=2 OO\ N
=
nNoOWNNWONO

b
b
wud
b e
ed
i
—d and

31-AUG=79

TABLE OF CONTENTS

13:10

SEQ 0012

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 06

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 02

1131
1132
7133

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

1135

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

T134

1664

MACY11 30G(1063)

1136
1137
71140
14
1142

7143
1144
T145
1146
1147
1150

1151
1152
7153
T154
T155
T156
1157

1160

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

VERIFY LOW BYTE OPERATION OF THE '‘TESTX'' FLOP
VERIFY BIT 1% ADDER INPUT TO MATRIX MODE MUX

=~ 05
- 04
- 03

USING ZB ENABLE

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
VERIFY EACH BIT OF THE LOWER 16 BIT 7 COUNTER
(TESTER
VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER
(TESTER
VERIFY THAT CAMERA 0' CHANNEL 1S OPERATIONAL
(TESTER
VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL
(TESTER
VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL
(TESTER

ONLY)
ONLY)
ONLY)
ONLY)
ONLY)

DYNAMIC MATRIX MODE ADDRESS
DYNAMIC LIST MODE ADDRESS
DYNAMIC LIST MODE TRANSFER - MAXIMUM BUFFER LENGTH IN LOWER 28K
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY
ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY
VERIFY BIT 15 MATRIX ADDER INPUT
VERIFY HIGH BYTE OPERATION OF THE ‘‘TEST X

VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

1161
DETERMINE IF DIFLIN IS TO BE RN (F)
END OF PASS ROUTINE
ERROR ASCI] MESSAGES
TTY INPUT ROUTINE
READ AN OCTAL NUMBER FROM THE TTY
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
SCOPE HANDLER ROUTINE
TYPE ROUTINE
BINARY TO OCTAL "ASCII) AND TYPE
ERROR HANDLER ROUTINE

ERROR MESSAGE TYPEOUT ROUTINE
APT COMMUNICATIONS ROUT INE
POWER DOWN AND UP ROUTINES
ROUTINE TO SIZE MEMORY

SAVE AND RESTORE RO-R5 ROUTINES
INTEGER MULTIPLY ROUTINE

INTEGER DIVIDE ROUTINE
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

DIAOOSTIC
CINCCB NCV11
CINCCB.PN
31-AUG=79 11:21

MACY11

30G(1063)

31-AUG-79

13:10

1
PAGE
1

SEQ 0013

LIST
.NLIST

167400
000001

.‘*PROG!AH B8Y RAYMOND SHOOP

D e

d D ed D d D ad e

e 1 Ll 2

DIAGNOSTIC

'THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC

tPACKAGE
SBTTL

001100

D b

$SWR=167400
STN=1
CINCCB NCV11

;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754

D b

s s W W W W W W W W (NN W W W N N e
W

—

N M

d e

d e e

o W o A

W W e W N

b cod e e

D et b

W W W M M

d b

b oD

b e

b e e

W W W N W W W A W W A

e Y e e et eatetetatetateteta e ta e e ta e ta e Yo te 1o o t e L e Lo 1 L

LTITLE

TMMD MC,CND
.ENABL ABS,

PN NN NN NN

eh D

2 e NI ON N SN NN

:DEVELU’ESD USING SYSMAC.(C3

000011
000012
000015
000200
177776
177774
177772

177570
177570

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

1977,

BASIC DEFINITIONS

:*INITIAL ADDRESS OF THE STACK POINTER s#a 1100 e«
1100
STACK=
.EQUIV EMT,ERROR
;:BASIC DEFINITION OF ERROR CALL
.EQUIV
IOT.SCOPE
SBASIC DEFINITION OF SCOPE CALL
:*MISCELLANEOUS DEF INITIONS

HT=

;2CODE FOR HORIZONTAL TAB

PS=
.EQUIV

177776
PS, PSW

: ;PROCESSOR STATUS WORD

PIRQ=

177772

LF=
CR=
CRLF=

12
15
200

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

STKLMT= 177774

;sSTACK LIMIT REGISTER

DSWR=
DDISP=

: SHARDWARE SWITCH REGISTER
: HARDWARE DISPLAY REGISTER

177570
177570

*PROGRAM INTERRUPT REQUEST REGISTER

: *GENERAL PURPOSE REGISTER DEF INITIONS

RO=

R3=

R1=
R2=
R4 =
RS=

Ré=

R7=
SP=
PC=

NERAL REGISTER

1
12

..GE?&RAL REGISTER
: :GENERAL REGISTER

24
15

: :GENERAL REGISTER
: GENERAL REGISTER

17
16
17

- GENERAL REGISTER

: :GENERAL REGISTER
: GENERAL REGISTER
< :STACK POINTER
: :PROGRAM COUNTER

;*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=

0
40
100

;2PRIORITY LEVEL O
;:PRIORITY LEVEL 1
;;PRIORITY LEVEL 2

PRG=

200

S:PRIORITY LEVEL &

PR7=

340

PR3=

PRS=
PR6=

140

240
300

SPRIORITY LEVEL 3
<:PRIORITY LEVEL S
SPRIORITY LEVEL 6

;:PRIORITY LEVEL 7

DIAGNOSTIC
21
31-AUG=79 11:

o S
S
N
N

040000
020000

30G(1063)

31-AUG=79

BASIC DEF INITIONS

13-10

2
PAGE 1-1

;%' 'SWITCH REGISTER'' SWITCH DEF INITIONS
100000
Swis=
40000
SWilé=
Sw13=
Sw12=
Swll=
SW10=

Nl S

100000

MACY'T

SW09, Sw9
Sw08, sw8

SW07, Sw7

SWO6, Swé
SWO5, SW5
SW04, Swé
SW03, Sw3
SW02, Sw?
SW01, SW]
SW00, Sw0

v
e
ol N
e N
Ve
W

BIT DEFINITIONS (BITO0 TO BIT1S)

100000
40000

e N

20000

10000
4000

2090

N
N
N
Nl Nl e
Nt N’ N

Nl Nl

il Nl N

ol e

D e

e o

d cd

D ek

h oo

e
e
N

e T e

b od

D e

e o

e e

e T

D e

d e

D e

e N

CINCCB NCV1Y
CINCCB.PY

BITO7=

B81T05=
B8I1T04=
81T03B81102=
BIT01=
81T100-

.EQUlV
.EQUlV
.EQUIYV
.EQUIV
.EQUIV
.EQUlV
.EQUIV
LEQUIV
LEQUIV
EQUIYV

1000
400

200

100
40

20
10

BIT09.BIT9
BIT08,BIT8
81707.8117

SEQ 0014

e
N N

000004
000010
000074
000014
000014
000020
000024
000030
000034
000060
000064
000240

3'-AUG=79

BASIC DEFINITIONS

13:10

2
PAGE 1=

SEQ 0015

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS
;:fi$§figY$D AND ILLEGAL INSTRUCTIONS

ERRVE(C= 4
RESVEC= 10

;. TRACE

TRAPVE
(=34
TKVEC=
60
TPVEC=
64

PIRQVEC= 240

.SBTTL

TRAP

; ;BREAKPOINT TRAP (BPT’
DD INPUT/OUTPUT TRAP (JOT) wxSCOPEws
;:POWER FAIL
;cEMULATOR TRAP (EMT) «+ERRORt*
;:"'TRAP'' TRAP

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

MEMORY MANAGEMENT DEF INITIONS

S
N

000250

e N

W
W

D e

30G(1063)

;*KT71 VECTOR ADDRESS
MMVE (=
J*KT11

250
STATUS REGISTER ADDRESSES

177572
177574
177576
172516

SRO=
SR1=

SR2=

SR3=

177572
177574
177576
172516

;*USER ''I'" PAGE DESCRIPTOR REGISTERS
177600

177602
177604
177606
177610
177612
177614

177616

UIPDRO=
UIPDR1=
UIPDRZ2=
UIPDR3=
UIPDRé4=
UIPDRS=
UIPDR6=
UIPDR?7=

177600
177602
177604
177606
177610
177612
177614
177616

N N

o Nl e N N

Nl N

J*USER ‘D'’ PAGE DESCRIPTOR REGISTORS
177620
177622
177624
177626

177630
177632
177634

177636

UDFDRO=
UDPDR1=
UDPDRZ2=
UDPDR 3=
UDPDRé4=
UDPDRS=
UDPDR6=
JDPDR7=

177620
177622
177624
177626
177630
177632
177634
177636

Nt N

N
W
N

d
D

e W

d
X

d
)

e R

D
R

b
d

e R

b
e R
X

D nd e
d

e T

)

J*USER "°'I'' PAGF ADDRESS REGISTERS

e N
e N
N N
N

b e
md
D e

el et
e

D rd
b

D
h md

e med

e
e

MACY11

21
31-AUG-79 11:

N N

i N

o N

b
Vd e

2
D
D

NN
N PN SN

ed
D
d

DIAGNOSTIC

d e

TN SN

N SN PN

CINCCB NCVIN
(INC(B.PY?

177640
177642
177644
177646
177650

UIPARQUIPAR1
UIPARZUIPAR3JIPAR4

177640
177642
177644
177646
177650

VECTOR

W
N

31-AUG=79

13:10

2
PAGE 1-3

MEMORY MANAGEMENT DeF INITIONS

UIPARS= 177652
UIPARG= 177656
UIPAR7= 177656

W
N

s N

;*USER 'D'' PAGE ADDRESS REGISTERS

177660
177662
177664
177666
177670
177672
177674

177676

177660
177662

177664
177666
177670
177672
177674
177676

e
W
N
N
W
S
e W

172216

SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDRé4=
SIPDRS=
SIPDR6=
SIPDR7=

172200
172202
172204
172206
172210
172212
172214
172216

UDPARQ=
UDPAR1=
UDPARZ=
UDPAR3=
=
UDPAR&
UDPARS=
UDPARG=
UDPAR?=

;*SUPERVISOR "'I'* PAGE DESCRIPTOk REGISTERS

s S

e
D

~
o
N

172220
172222
172224
172226
172230
72232
—t
b ol

;*SUPERVISOR 'D’" PAGE DESCRIPTOR REGISTERS
SDPDR1= 172222
SDPDR2= 172224
SDPDR3= 172226
SDPDR4= 172230
SDPDRS= 172232
SDPDR6= 172234
SDPDR?7= 172236

s M

SIPARQ=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=
SIPARG=
SIPAR7=

s M
v N
W
W
N
N
"
N

SDPDRO= 172220

;*SUPERVISOR "‘I'' PAGE ADDRESS REGISTERS

e W

N
N
W
e

e W

D e

e N e

d od
h

et a

d
D

) ——d
D

el et e

) i

et e

)

el el e

e
D e

ety

D rd
e

ey e

D e
d

e Y el e

)

e
N

D
)
d e
d

e cd
e
—ld e

MACY11 30G(10€3)

177652
177656
177656

e ket

d e

) e

D e

ta ta

D e

CINCCB NCVIN
DIAGNOSTIC
21
CINCCB.F1
31-AUG-79 11:

172240
172242
172244
172246
172250
172252
172254
172256

:*SUPERVISOR 'D’'' PAGE ADDRESS REGISTERS
172260

172262
172264
172266
172270
172272

SDPARQO=
SDPAR1SDPAR2=
SDPAR3SDPAR4SDPARS-

172260
172262
172264
172266
172270
172272

SEQ 0016

CINCCB

NCV1T _ DIAGNOSTIC

CINCCB.P1T
(1)
(})
1)

31-AUG-79 11:21
172274
172276

ab)

(1)

1)
1)
(1)
)
&P
)
1)
(})

(1)

(1)
(N
(1)
(1
(1)
(M
(M
(})
(1)

172300
172302
172304
172306
172310
172312
172314
172316

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

172320
172322
172324
172326
172330
172332
172334
172336

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

172320
172322
172324
172326
172330
172332
172334
172336

;*KERNEL ''l"' PAGE ADDRESS REGISTERS

(1)

172352

KIPARS= 172352

(

172350

172354

172756

(})

(1)

(1)
(1
(1M
()
1)
1)
1)
(})

(1)

KIPAR4=

172340
172342
172344
172346

172350

KIPAR6= 172354

KIPAR7= 172356
;*KERNEL ‘D'’ PAGE ADDRESS REGISTERS

172360
172362
172364
172366
172370
172372
172374
172376

KDPARQO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG=
KDPAR?-

172360
172362
172364
172366
172370
172372
172374
172376

172760

ABASE=-172760

170420

A(DWI-170420

SEQ 0017

172300
172302
172304
172306
172310
172312
172314
172316

kK IPARO=
KIPAR1=
KIPAR2=
K]PAR3=

(};

2
PAGE 1-4

SDPARG= 172274
SDPAR7= 172276

172340
172342
172344
17236

(1)

MEMORY MANAGEMENT DEF NI TIONS

(1)
ap
(1)
(1

(1)

13:10

;*KERNEL ‘D’' PAGE DESCRIPTOR REGISTERS

(1)

()

31-AUG=79

;*KERNEL "‘I'" PAGE DESCRIPTOR REGISTERS

(})

)

MACY11 30G(1063)

140370

AVECT1

140370

:NCVY1 BASE ADDRESS

;BR LEVEL
JNCVIY

6 VECTOR TO 370

(LOCk ADDRESS

MACY'1

30G(1063)
31-AUG=79 13:10 PAGE 2
MEMORY MANAGEMENT DEF INITIONS

SEQ 0018

(INC(B NCVIT
DIAGNOSTIC
(INCCB.P1Y
31-AUG=79 11:21

N2
% 2 % % 9

S N
o N
o W
N\ N e N N

.SBT"L

000174
000176

SWITCH SETTINGS

INHIBIT ERROR TYPEOUTS
INHIBIT JTERATIONS

10
9

BELL ON ERROR
LOOP ON ERROR

TRAP (AT(HER

LOOP ON TEST IN SWR<7:0>

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A "', +2 HALT"
;~SEQUENCE TO CATCH JLLEGAL TRAPS AND INTERRUPTS
s *LOCATION 9‘CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

000210

000137
000137
000137

002034
002014
002022

000100

000100
000104

000200

OPERATIONAL

.=0

000000

e W N
o
~)

R
Wl

NV
NN
. R
WY

Rl
N
Rt

e N

.SBTTL

DISPREG: .WORD
0
;s SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
;s SOFTWARE SWITCH REGISTER
STARTING ADDRESS(ES)
.SBTTL
JMP
aMBEGIN ., JUMP TO STARTING ADDRESS OF PROGRAM
JMP
JMP

000002

RTRT
TESTER

.~100
104,200,2

JRESTART ADDRESS
JSTARTING ADDRESS WHEN IN THE

;B EVENT

SAFE

GUARD

OPTION AREA

(INCCB NCVIT _ DIAGNOSTIC
CINC(B.PTT
31=-AUG=79 11:21
12?

JSRTTL

?2)

13:10

2
FAGE &

ACTT1 HOOKS

ab!

(1
(1
(1)
1
(1)
(1)

MACY'1 30G(1063)
31-AUG=79
ACT11 HOOKS

000046

000052

001000

$SVYP(~=,
.46
SENDAD
.=52
.WORD
O
.=$SVP(

LSBTTL

.=1000

R R R R
;SAVE P(C
J:V)SET LOC.46 TO ADDRESS OF

SENDAD IN .S$EOP

;:2)SET LOC.S2 TO ZERO
;. RESTORE PC(

APT PARAMETER BLOCK

T
B
Y
AN AN

000106
000046
030166
000052
000000
000106

;HOOKS REQUIRED BY A(CT !

SFQ 0019

N
T
N

“SCT LOCATIONS 24 AND 44 AS REQUIRED FOR APT
000024

S
A
D D

""".tttttQ'.'fi'fitt"'.tt.'t.tttfi'.tfi'lt.ttl'QQ.'Q'..'Q'QQQ'..Q‘.

000044

001000
000024

R )
.=24

;o SAVE CURRENT LOCATION
;.SET POWER FAIL TO POINT TO START OF PROGRAM

.=44

;;POINT TO APT INDIRECT ADDRESS PNITR.

000200

200

001000

$SAPTHDR ;;POINT TO APT HEADER BLOCK

000044

001000

e N

—
S
e PN ST SN
e
R N
o
b ed D D D B PN D

32322322322232323232232323230222232202222323222200%R22dRisRRaRitRilldRn]

.~.8X

;;FOR APT START UP

;;RESET LOCATION COUNTER

""Q‘ttttittitt'tt.'tfi!Q'Q'QQQi.i’t""!tQitt't.tttttt't".tt't".'

e N

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DJAGNOSTIC
JINTERFACE SPEC.
001000
00100C
001002
001004

000000
001174
000230

001012

000031

001006
001010

000010
000030

$APTHD:
$HIBTS:
SMBADR:
$T7STM:
$PASTM:
SUNITM:

.WORD
.WORD
_WORD

O
SMAIL
30

.WORD

SETEND-SMAIL/2 ;;LENGTH MAILBOX-E
TABLE (WORDS)

_WORD
_WORD

10
30

;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
;;ADDRESS OF APT MAILBOX (BITS 0-15)
:RUM TIM OF LONGEST TEST

;.RUN TIME [N SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT

CINCCB

NCV1T

CZNCEB.PI

DIAGNOST IC

31-AUG-79 11:21

31-AUL=79

30G(1063)

COMMON TAGS

.SBTTL

13:10

PAGE

3-1

SEQ 0020

COMMON TAGS

ot o

RFGrREs
NN 2P0 2580085

888888888888888888388

b
—

N N
N

R
Y

N
N
N

TP NP

N
N

e T

N
N

N e T

el N

N
N

e S
T

N
N

——t

177607

N
N

000012

CONTAINS

000377

VARIOUS

COMMON STORAGE

.=1100

(OMMON TAGS

0
0
0
0
0
0
0
1
0
0

;JCONTAINS
;s CONTAINS
;JCONTAINS
:;CONTAINS
;CONTAINS
;s CONTAINS
::CONTAINS
:JCONTAINS
;2 CONTAINS
;;CONTAINS

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS QOF °'GOOD' DATA

0
8

;;AUTOMATIC MODE
;o INTERRUPT MODE

DSWR
DDISP

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

0
2

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

.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.Bégg

0
0
0
0
0

_BYTE
.BYTE
.WwORD
.WORD
.WORD
.WORD
.BYTE
_BYTE
.WORD
.WORD

177560

177562
177564
177566
L.BYTE
.BYTE

.BYTE
.BYTE

LOCATIONS

;:START OF

.WORD

$TIMES: O
$ESCAPE : 0

;:CONTAINS ADDRESS CF 'BAD'
;s CONTAINS 'GOOD' DATA
;;CONTAINS 'BAD' DATA
:JRESERVED--NOT TO BE USED

12
0

J:MAX. NUMBER OF ITERATIONS
;:ESCAPE ON ERROR ADDRESS

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

$CRLF:
$LF:

L(ASCII
ASCIZ

<15
<12

.ASCII

72/

2222324222330

INDICATOR
INDICATOR

;o INSERT FILL CHARS. AFTER A 'LINE FEED''
;" TERMINAL AVAILABLE'® FLAG (BIT<07>=0-YES)

.ASCIZ

$QUES:

DATA

;:TTY KBD STATUS

$BELL:

TSBTTL

;. ;QUESTION MARK

; ;CARRIAGE RETURN
JJUINE FEED

dRRdRRRARRdRRRtRR2RRRRStRRRlNARARRRRRRR)

APT MAILBOX-ETABLE

";tttitttttttttttttttttttttttttttttttttlttntnfitnn.tttfit'ttttt‘tt.

KROSINR
—

QS
g
i

PNV —
= —

38238883

N
Nt N
N
N
N

TABLE

SWR:
. WORD
DISPLAY: .WORD

$AUTOB:
$INTAG:

o N

$BDADR:
$GDDAT:
$8DDAT:

e N

$TSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
SITEMB:
$SERMAX:
$SERRP(C:
$GDADR:

e
el o N

000000
000

SFILLC:
$TPFLG:

e N N

SCMTAG:

$TKB:
$TPS:
$TPR:
$NULL:
$FILLS:

001100

$TKS:

e
late e tatala

(2)

2222323322223 23028222222022222RZ2R
2 RRRR2RRRRRRRRRRRRRRR RN

J*USED IN THE PROGRAM.

SEx

1*THIS

o N

WP N

LASLAS LN LN N1 U LN 1 N1V}flumflv-&—d—a—hfl.J_J—LJ_J-J—J—LJ_J—J—J—MJ-J—J—J_LJ.4_J—LJ.J_J_J—LJ-J.“J—J—J.J—"V—J

MACY1T

.EVEN
SMAIL:
$MSGTY:
$FATAL:
$TESTN:
$PASS:
$DEVCT:
SUNIT:
$MSGAD:

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
. JORD

AMSGTY

AFATAL
ATESTN
APASS
ADEVCT
AUNIT
AMSGAD

:;APT MAILBOX

: :MESSAGE TYPE (ODE
;;FATAL

ERROR NUMBER

;2 TEST NUMBER
;;PASS COUNT
;sDEVICE COUNT
;2170 UNIT NUMBER
: ;MESSAGE ADDRESS

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
{2)
(2)

3338383

CZNC(B NCV1T
CINCCB.P1N

DIAGNOSTIC

21
31-AUG=79 11:
000000
000
000
000000
000000
000000

MACY11

30G(1063)

31-AUG-79

APT MAILBOX-ETABLE
$MSGLG: .WORD
SETABLF:

SENV:
$ENVM:
$SWREG:
SUSWR:
$CPUOP:
-

.BYTE
_BYTE
.WORD
.WORD

.WORD

13:10

AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

(2)
(2)

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

(2)
(2)
(2)
(2)
(2)

(2)

(2)
(2)

(2)
(2)
(2)
(2)
(?)

‘-t

001224
001225

SMAMST:
SMTYP1:

_BYTE
.BYTE

X
W

[

. W

001226

$MADR1:

.WORD

001230
001231
001232
001234
001235
001236
001240
001241
001242
001244
001246
001250
001252
001254
001256

sMaMS?2:
SMTYP2:
SMADR?2:

sMms3:
sMTYP3:
SMADR3:

BYTE
.BYTE
.WORD

.BYTE
.BYTE
.WORD

SMAMSS: BYTE
MTYP4: .BYTE

SMADRS:
SVECT1:
$SVECTZ2:
$8BASE:
$SDEVM:
$CDW1:
SETEND:
CMEXIT

,WORD
.WORD
.WORD
.WORD
_WORD
.WORD

AMAMS1
AMTYPI]

2
PAGE 3-2

SEQ 0021

JJMESSAGE LENGTH
;JAPT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
JsAPT SWITCH REGISTER

;;USER SWITCHES
;. CPU TYPE ,OPTIONS
BITS 15-11=CPU TYPE
11/706=01,11705=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
8=MEMORY MANAGEMENT
BIT
;sHIGH ADDRESS.M.S. BYTE

;:MEM,

TYPE ,BLKAH

MEM.TYPE BYTE

-=-

(HIGH BYTE)

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

;sHIGH ADDRESS .BLKA#
MEM.LAST ADDR.=3 BYTES.THIS WORD AND LOW OF '‘TYPE'' ABOVE
. M.S. BYTE
;:HIGH ADDRESS
;s MEM, TYPE ,.BLKA?2
;:MEM.LAST ADDRESS,BLK¥?
;HIGH ADDRESS M.S.BYTE
,BLKA3
EM.
TYPE
:;M
;MEM_LAST ADDRESS.BLKA3
;HIGH ADDRESS ,M.S.BYTE
,
,BLKAG
EM
: JMTYPE
JJMEM.LAST ADDRESS ,BLK#G
;2 INTERRUPT VECTORH1.,BUS PRIORITYM
2 INTERRUPT VECTORAZ2BUS PRIORITYN?
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;. :DEVICE MAP
;;CONTROLLER DESCRIPTION WORD#1

A
d

MACY11

30G(1063)
31-AUG=79
ERROR POINTER TABLE
.SBTTL

13:10

2
PAGE 3-3

SEQ 0022

ERROR POINTER TABLE

;*THIS TABLE

e o d e eed —d ed d e i d =D
" "t "t " " N N N Nt N N o

CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

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

2
»

0w,
Sev.

NN
NN

SERRTB:

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

EM
DH
DT
DF

; ;POINTS
; JPOINTS
;s POINTS
;. POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR ME SSAGE
DATA HEADER
DATA
DATA FORMAT

NCV11

032732

EM2,DH2,DT2,DFO

;M8026

COMMAND-STATUS REGISTER ERROR

032502

032732

EM3,DH2,DT2,DFO

;M8026

SPECIAL FUNCTION REGISTER ERROR

032502

032732

EM4 ,DH2,DT2.DFO

;M8026

WORD COUNT REGISTER ERROR

032502

032732

EMS,DH2.DT2.DFO

;M8026

BUS ADDRESS REGISTER ERROR

032502

032732

DH2
. DT2,DFO
EM6.,

;M8026

OFFSET REGISTER ERROR

032502

032732

EM7,DH2.DT2,DFO

;M8026

DUAL REGISTER SELECTION ERROR

032502

032732

EM10,DH2.DT2,DFO

:M8026-M8036

LOW 16 BIT Z COUNT ERROR

032502

032732

EM11,DH2,DT2,DFO

;M8026-M8036

HIGH 16 BIT Z COUNT ERROR

032502

032732

EM12,DH2,DT2,DFO

;M8026

Z COUNT STATUS ERROR

032502

032732

EM13,DH2,DT2,DFO

;M8026

Z COUNT INTERRUPT ERROR

032502

032732

EM14,DH2,DT2,DFO

:M8036

JOYSTICK STATUS ERROR

032502

032732

EM15,DH2,DT2,DFO

;M8036

JOYSTICK DATA ERROR

032502

032732

EM16,DH2,DT2,DFO

:M8036

DATA INCREMENT ERROR

032502

032732

EM17 ,DH2.DT2,DFO

:M8036

DATA DECREMENT ERROR

032502

032732

EM20,DH2,DT2,DFO

;M8026-MB8036

032502

032732

EM21,DH2,DT2,DFO

;M8026

LIST MODE ADDRESS MAKER DATA ERROR

032502

032732

EM22.DH2,DT2,DFO

;M8026

LIST MODE TRANSFER BUS ADDRESS ERROR

032502

032732

EM23,DH2,DT2,DFO

;M8026

LIST MODE TRANSFER WORD COUNT ERROR

032502

032732

,DFO
EM24 ,DH2,DT2

;M8026

LIST MODE TRANSFER OFFSET ERROR

032502

032732

EM25,DH2,DT2,DFO

;M8026

TIMEOUT STATUS ERROR

N
(AN

:M8026

032732

EM1,DH2,DT2,DFO

032502

031434
03
031502

N TN TN

J*NOTE1 :
;*NOTEZ2:

N ~

CINCCB NCV1T
DIAGNOSTIC
CZNCCB.PN
31-AUG=79 1 1:21

TIMEOUT

MATRIX MODE ADDRESS MAKER DATA ERROR

CINC(CB NCV1I
CINCCB.PIN

001524

DIAGNOSTIC
31-AUG=79 11:21

MACY11 30G(1063)

31-AUG-79

ERROR POINTER TABLE

13:10

2
PAGE 3-4

SEQ 0023

831535

032502

032732

EM26,DH2,DT2,DFO

;M8026

TIMEOUT INTERRUPT ERROR

031573
0

032502

032732

EM27,DHZ,DT2,DFO

;MB8026

SET 'EVENT'' OR '‘TIME'' DATA ERROR

032502

032732

EM30,DH2,DT2,DFO

;M8026

CELL INCREMENT DATA ERROR

032502

032732

EM31,DH2.DT2,DFO

;MB8026

CELL OVERFLOW STATUS ERROR

032502

032732

EM32,DH2,DT2,DFO

;M8026

CELL OVERFLOW INTERRUPT ERROR

032526

032744

EM33,DH3,DT3,DFO

;M8026

MATRIX MODE ADDRESS MUX ERROR

032502

032732

EM34,DH2,DT2,DFO

;M8026

“TESTX'' FUNCTION ERROR

032561

032760

EM35 ,DH4 ,DT4,DFO

;MB026

DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY

032502

032732

EM36,DH2,DT2,DF0

;MB8026

LIST MODE TRANSFER STATUS ERROR

032526

032744

EM37,DH3,DT3,DF0

:M8026

LIST MODE TRANSFER DATA ERROR

032502

032732

EM40,DH2,DT2,DFO

; JUMPER-MB026-M7952

032467

032776

EM41,DH1,DTS5,DFO

;M7952

CLOCK TIMeouT

032467

032724

EM42,DH1,DT1,DFO

;MB217

INTERRUPT LEVEL ERROR

54
55
56

OR "TIME'' MARK ERROR
"EVENT''

176510
176512
176514
176516

:DL11 BLASTER COMM. ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)
DLICSR: 176510
;INPUT STATUS REG.
DLIBD:
176512
:INPUT DATA
DLOCSR: 176514
;OUTPUT STATUS
DLODB:
176516
;OUTPUT DATA

172600
172602
172603
172604
172620
172622
172624
172630

VICHAR:
VIYPOS:
VIXPOS:
VICXY:
VICSR:
VIMAP:
VIPX:
VTINT:

176416
176420
176422
176424
176426

DACSR:
DACO:
DAC1:
DAC2:
DAC3:

;VSVO1 ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)
172600
;CHAR. STATUS
172602
172603
172604
172620
172622
17262
172630

JMAP STATUS

:TESTER ADDRESSES (THE OPERATOR MUST CHANGE I1F DIFFERENT)
176416
176420
176422
176424
176426

JKNOWN GOOD D/A STATUS

CINCCB NCV11
ouenosv{c
CINCCB.P11
31-AUG=79 11:21

6”%
92
93
3§

106

}8;

001740
001742
001744

170420
170421
170422

KWCSR:
ACDW1
KWCSR1: ACDW1+1
KWPSR:
ACDW1+2

001746
001750

172760

CSR:

001760
001762
001764

172762
172764
172766
172770
172772
172774
172776

OFF :
WCR:
BAR:
SFR:
ADM:
JOy:
BAR1:

001770

172771

SFRHB:

001752
001754
001756

001766

172761

CSRHB:

ABASE+]

ABASE+11

:NCV11 PROGRAM GENERATED VECTORS (THE OPER. ONLY HAS TO CHANGE LOW 9 BITS OF 'SVECT1')
AVECT1
AVECT1+2
AVECT1+4
AVECT1+6

002002

000300

BRLEV:

300

120
121
122
}gz

002004
002006
002010
002012

000000
000001
000020

STEMP:
O
CPUDLO: 1
CPUDL1: 20
CPUDL2: 4

128

129
130
131
%%

;RWV11 STATUS REGISTER
:KWV11 STATUS REG. HIGH BYTE
;KWV11 PRESET REGISTER

ABASE +12
ABASE +14
ABASE+16

VECTAO:
VECTA1:
VECTBO:
VECTB1:

126
127

SEQ 0024

ABASE +4
ABASE +6
ABASE +10

140370
140372
140374
140376

125

PAGE &

ABASE
ABASE +2

001772
001774
001776
002000

‘%‘!'67

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

]‘(1)3
111
112
113
Hlso

13:10

;KWV11 PROGRAM GENERATED ADDRESSES (THE OPER. ONLY HAS TO CHANGE °'$CDW1°')

367)
99
100
101
102
103
106
105

MACY11 30G6(1063) 31-AUG=79
ERROR POINTER TABLE

000004

040000

:NCV11 PROGRAM GENERATED BR LEVEL (THE OPER. ONLY HAS TO CHANGE TOP 3 BITS OF ‘SVECT1')

CLRWCO=BIT14

004000
000400

CLRALL=BITI
ENDDMA=B]T8

000004
000002
000001
000000

TSTCON=BIT?
TESTZ=8BIT
REDJOY=8BIT0
MORTST=0

000010

;BR LEVEL 6

TSTDMA=BIT3

;DEFINE TO RESTORE TEST CODE

NCVI1
DIAGNOSTIC
CZNCCB.PI
31-AUG=79 11:21

~~ o~ P
Y
Y
Y e Yt ta e Yate tate tate Y e ta e e 2o le ko
hralratr et
NN —d d b e wd d e e d D d D ) D d D D ad el b i b P
N N
Nt N N Nt N N N N N N N N N N N N N N Nt Nt N N

NV
N

CZNCCB

002014
002020
002022
002026
002032
002034
002040

005237
0004 n
005237
005037
000404
005037
005037

MACY11 30G(1063)

31-AUG-79

ERROR POINTER TABLE

050032

RTRT:

INC
BR
TESTER: INC
CLR
B8R
BEGIN:
CLR
CLR

050024
050032
050032
050024

RTRTA:

13:10

PAGE S

SEQ 0025

Q%A

sSET RESTART FLAG

WFMODE

sSET FLAG INDICATING OPTION AREA MODE

WFMODE

;CLEAR FLAG INDIC. OPTION TEST AREA MODE

INITIALIZE THE COMMON TAGS
THE
COMMON TAGS (SCMTAG) AREA
AR
CLE
;s
.SBTTL

012706

005026
02

MOV
#SCMTAG.R6
;:FIRST LOCATION TO BE CLEARED
CLR
(R6) +
S:CLEAR MEMORY LOCATION
TM
#SWR,R6 ; ;DONE?
ane
=6
;:LOOP BACK IF NO
#STACK, SP
SSSETUP THE STACK POINTER
..INITIAUZE A FEW VECTORS
MOV
#$SCOPE ,aFIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE
MOV
0340 aoiorvsc+2 s;LEVEL 7
MOV
em vscroa FOR ERROR ROUTINE
MOV
cuo
uémvsuz ..LE
MOV
FSTRAP, aFTRAPVEC nw vecroa FOR TRAP CALLS
MOV
#340 fimwecoz (EvEL 7

001100
001140
001100

034110
340
035104

MOV

FSPURDN , SWPWRVE

340, uhnvsuz

..Pouea FAILURE VECTOR

MOV
SENDCT, SECPCT
senp ew-or-moam COUNTER
CLR
STIMES
SINITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
:CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
*ALLOW ONE ERROR PER TEST
MOV
#. .SLPADR
..mnm.xze THE LOOP ADDRESS FOR SCOPE
MOV
#. . SLPERR
*SETUP THE ERROR LOOP ADDRESS
;:SIZE FOR A HARDWARE SWITCH REGiSYER IF NOT FOUND OR IT IS

:;EQUAL TO A *=1°°, SETUP FOR A SGTHQRE SWITCH REGISTER.
SFERRVEC,-(SP)

..ser UP ERROR VECTOR
..ssru' FOR A MARDWARE SWICH REGISTER

#-1,a5WR

S:TRY TO REFERENCE MARDWARE SWR

658

*BRANCH IF NO TIMEOUT

#DDISP.DISPLAY

668

002252

000176
000174
000004

001140
001142

001202
000200

001215

001216

001140

;:;SAVE ERROR VECTOR

#64S, IFERRVEC
DSWR, SWR

::AND
A HARDWARE DISPLAY REGISTER

S:BRANCH IF NO TIMEOUT TRAP OCCURRED
SSAND

= -1
RE
SWR IS NOT
THE HARDWA

643:

#65$, (SP)

65$:

#SWREG, SWR
::POINT TO SOFTWARE SWR
#DISPREG, DISPLAY

(SP)+,a#ERRVEC

$SPASS

;:RESTORE ERROR VECTOR
: s CLEAR PASS COUNT

#APTSIZE ,SENVM

;. TEST USER SIZE UNDER APT

#SSWREG, SWR

s sNO,USE APT SWITCH REGISTER

67%

67%:

*:SET UP FOR TRAP RETURN

s YES,USE NON-APT SWITCH

CINCCB NCVI1
DIAGNOSTIC
CINCCB.PIT
31-AUG=79 11:21

MACY11 306(1063) 31-AUG=79
TYPE PROGRAM NAME

149
(1)
(1)

002314

005227

177777

(1)

002322

022737

030166

002332

104401

002400

(2)

002336

005737

000042

(2)

002344

123727

001214

000001

112737

000001

001134

(1)
(1)
(1)

(2)

(2)
(2)
(2)
(2)
(2)

002320 001044

002330 001440
002342 001012

002352
002354
002362
002364
002366

88225;2

(1)

002376 000415

(1)

002432

(1)

150
151

152
153
154
155
156
157
158
159
160
161
162
163
164
165

002432

002440
002446
002452
002456
002460
002464
002470
002472
002476
002500
002506
002510
002514

002516

000042

.SBTTL

012737
012700
013701
010120
062701
022700
001372
013710
005220
013710
062720
013701
010102

;gg:

052410

003212 000004
001746
001250

000002
001766

1%:

001250

001250
000011
001244

000302

002530

042701

160000

171

002540

022700

002002

169 002534 010120
170 002536 005721

S:BRANCH IF NO

BEQ

68$

S BRANCH
IF YES

TYPE

2s:

CMPB

SENV.M1

MOVB

#1,SAUTOB

B8R

68$

.SBTTL
MOVB

PRIME THE NCV11 ADDRESSES FROM THE DEFAULT VALUES
#'C.RINIT
:LOAD ‘CONTROL'' SECTION BUS TRAP FLAG

BEQ
cmP
BNE
GTSWR
B8R
.ASCIZ

001742

001744

..enmcu IF YES

708
SWR, #SWREG
718
718

..amxux YES
*SOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO
*3GET SOFT-SWR SETTINGS

<CRLF>#CINCCB

*ARE
WE RUNNING UNDER APT?

::SET AUTO-MODE INDICATOR

::GET OVER THE ASCIZ

NCV11 DIAGNOSTICAH<CRLF>

MBUSTRP,WERRVEC
-: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
STEST IF DONE
18
*BR IF NOT
$BASE , (R0)
:LOAD 0DD BYTE
(RO)+
- ADDRESSES
$BASE, (RO)
211, (RO) +
:
SVECT1.R1
“GET DEFAULT VECTOR
R1.R2
:COPY R1

BIC
MOV

#177437.R2
R2.BRLEV

BIC

MOV
TST

ADD

005237

:ARE WE RUNNING UNDER XXDP/ACT?

708

MOV
MOV
MOV
MOV
ADD
P
BNE
MOV
INC
MOV
ADD
MOV
MOV

177 002574

062737 000002

TYPE ASCIZ STRING

w62

BNE
MOV
MOV
MOV

002570

,698

::ACT=112

TST

172 002544 001373
173 002546 013737 001254 001740
174 002554 013737 001740 001742
175 002562 013737 001740 001744
176

NSENDAD w62

GET VALUE FOR SOF TWARE suircu REGISTER

SWAB

166 002520 0462702 177437
167 0025264 010237 002002
168

68$

BNE

::698:

000103

PAGE 6

BNE

688:
112737

.SBTTL
TYPE PROGRAM NAME
SSTYPE THE NAME OF THE PROGRAM IF FIRST PASS
INC
~1
::FIRST TIME?

001406
023727 001140 000176
001005
104406
000403

13:10

INC

*EXCHANGE BYTES

#160000.R1

*CLEAR OFF BR LEVEL

R1, (RO)+
(R1)+

#VECTB1+42,RO

2s
$CDW1 . KWCSR
KWCSR.KWCSR1
KWCSR .KWPSR
KWCSR1

#2.KWPSR

*STRIP OFF ALL BUT BR LEVEL BITS
*SAVE FOR USE LATER
:LOAD VECTOR
:BUMP THE VALUE
-TEST IF DONE

:GET CLOCK ADDRESS
*SET CLOCK HIGH BYTE ADDR.
*SET CLOCK PRESET ADDRESS

SEQ 0026

(INCCB

NCVI1

(INC(B.P11

179
180
181
182
183
184
185
186

002602
002606
002610
002614
002616
002624
002630

_ DIAGNOST
STIC

31-AUG=79 11: 21

005737
001017
105737
001405
012737
000137
005737

187
188
189
190
191
192

002634
002636
002640
002642
002644

195
196
197

002654
002660
002666

013637
142737
112737

002702

001002

002710

005737

193
194

198
199

200

201

202

203
204
205
206
207
208
209
210
211

212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234

002646
002652

002674
002704
002714

002716
002724
002726
002732
002740
002742
002746
002752
002760

002762
002770
002774
003000
003002
003010
003012
003016
003024
003026
003032
003036
003044
003046
003052
003060
003062
003066
003072
003074
003102
003104
003110

001602
104401
046172
104401
046402

104401
104411

122737

000137
001406

B8 32
PAGE 7
13:10
31-AUG=79
30G(1063)
MACY1T
DIAGNOSTIC IDENTIFICATION TYPEOUT

05003¢
001134
177777
003360

050022

050024

3%:

6%
.SBTTL

047015

052410
000040
000042
000101

RBEGO:
1%:

052410
052411
052410

003300

050024

2%:

052410

042272
000104

052410

3%:

05002°
043546
000106

052410

4§:

012737
000137
005737
001406
122737
001002
000137
122737
001004
005037
000137
122737
001092
000137
122737
001002
000137
005737
001406
122737
001002
090137
005737

177777
003360
050024

050022

000111

052410

047022
000114

052410

6%:

050022
003360
000110

052410

7%:

052410

10%:

000037

5%:

002034
050024

000124
042020
050024

TYPE,
RODL IN

LIST

BEQ
48
JBR IF YES
TYPE
LISTO
;TELL OPERATOR ABOUT OPTION AREA TESTS
TYPE
LIST
;TELL OPERATOR ABOUT THE TEST
KEYBOARD COMMAND DECODER

MOV
B81(8B
mMovBe
CMP8

000102

002034

DIAGNOSTIC IDENTIFICATION TYPEQUT
AGAN
;TEST IF RESTART
RBE GO
;BR IF YES
$SAUTOB
JTEST IF ACT/AP)
3$
;BR IF NOT
#-1,RUNDIF
JINDICATE TO RUN DIFLIN IN CHAIN MODE
LOGIC
JYES; RUN LOGIC AND DIFLIN TESTS
WFMODE
JTEST IF OPTION CHECKOUT MODE

BNE

122737
001002
000137
122737
001004
005037
000137
122737
001005

.SBTTL
TST
BNE
1ST8
BEQ
MOV
JMP
TST

11%:

052410
12%:

3(SP)+ ,RUNIT
#40 ,RUNI T
A
RUNIT+1
#'ARUNIT
2%

TST

TFSITE
WFMODE

CMPB
BNE
JMP
(MP8
BNE
CLR
JMP
CMPB

#'8B,RUNIT
3s
BLAST
#'D,RUNIT
3
RUNDF
DIFLIN
#'t RUNIT

BEQ

BNE

MOV
JMP
TST
BEQ
CMPB
BNE
JMP
(MPB
BNE
CLR
JMP
(MPB
BNE
JMP
CMPB
BNE
JMP
TST
BEQ
CMPS
BNE
JMP
TST

5%
#-1 ,RUNDIF
LOGIC
WFMODE
a3 3
#'1,RUNIT
6%
POTIME
#'L,RUNIT
7%
RUNDIF
LOGIC
#'H RUNIT
108
BEGIN
#37 ,RUN]T
118
BEGIN
WFMODE
12%
#'T,RUNIT
12%
BTALK
WFMODE

;PRINT "DOT"’
JREAD THE RESPONSE

JGET THE CHARACTER
;ENSURE UPPER CASE
JFIX 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
JRUN THE BLASTER SECTION
JDETERMINE IF AN D
;BR IF NOT
;INDICATE DIFLIN IS NOT TO BE RUN
JAND RUN IT
JDETERMINE IF AN F
JBR IF NOT

;INDICATE RUN DIFLIN AFI1ER THE LOGiIiC TEST
JAND RUN LOGIC TEST
;TEST IF OPTION CHECKOUT MODE
;BR IF NOT
JDETERMIN IF AN |
;BR IF NOT
JRUN IN-HOUSE ADJUSTMENT LOOP
JDETERMINE IF AN L
JBR IF NOT
;INDICATE NO DIFLIN
;DETERMINE IF AN H
JBR IF NOT
;START OVER

DETERMINE 'F AN "7

JBR IF NOT
;START OVER
JTEST 1F OPTION (HECKOUT MODE
sBR IF NOT

JDETERMINE IF AN T
JBR IF NOT
;KEYBOARD LOOP WITH BLASTER
;TEST IF OPTION CHE(KOUT MODE

SEQ 0027

CZNC(B NCVTY
(INCCB PN

235
236
237
238
239
240

241
242
243
244
245
246

247

248
249

003114
003116
003124
003126
003132
003140
003142
003146
003154
003156
003160
003162
003170
003172
003200

DIAGNOSTIC

31-AUG-79 11:21
000103

MACY11

30G(1063)

13:10
KEYBOARD COMMAND DECODER

052410

042754
000117

052410

13%:

003242
000123

052410

14%:

000115

052410

000377
043546

050022

31-AUG=79

15%:

8EQ
CMPB
BNE
JMP
CMPH
BNE

133
#'C,RUNIT
13%

PBLAST
#'0,QUN]T
149
XTTY
#'S,RUNIT
i5%

RBE GO

#'M_RUNIT
FATENG

#377 RUNDIF
DIFLIN

T
3

PAGE

7-1

SEQ 0028

JBR IF NOT
JDETERMINE IF AN (

;BR IF NOT

:RUN MB8036 PROM BLASTING (ODE

;DETERMINE IF AN O
;BR IF NOT
;CHANGE THE TTY ADDRESS
;DETERMINE IF AN S

;BR

[F NOT

JGET SWITCH REGISTER VALUE
JRESTART
JDETERMINE IF AN M
;BR IF NOT
;INDICATE DIFLIN WITH EXPAND REPORT
cRUN DIF LIN

CZNCCB NCVIT
C(INCCB.PIT

DIAGNQSTIC

21
31-AUG=79 11:

MACY11

30G(1063)
31-AUG-79
13:10
KEYBOARD COMMAND DECODER
FATFNG:

001170

JRETURN TO HERE

104401

052340

BUSTRP:

005777

175712

1%:

104401

052430

2%:

106401

052520

XTTY:

000000
000137

104412
012600
001754
005710

002014

051164
041342
040356

000000

000000
000000

TST
8PL

HALT
TYPE,
JMP
TO

SEQ 0029

1%:

RDOCT

UPON UNEXPECTEC BUS

TRAP

FATALO

JREPORT FATAL

aSWR
2%

JTEST IF HALT ON ERROR
;JBR IF SET

(SP) ,-(SP)

RUNITA
RTRT

;GET

TRAP TO THE OPERATOR

TRAP ADDRESS

sFATAL BUS

TRAP DETECTED

JRESTART

FROM THE

OPERATOR

WARNO

JTELL THE OPERATOR THE PULES

(SP)+,R0

JREAD THEIR INPUT

FATFNG

JLISTEN TO

THE OPERATOR

;BR IF JUST '"‘(R"

(RO)

;ADDRESS

MOV

#$TKS ,R1

;GET POINTER

(MP

R1,#8$TkS+10

;TEST IF DONE ALL ADDRESSES

MOV
TST

BNE

JMWP

002044

000002
037356

;TYPE QUESTION MARK

THE DEVICE AND (HECK BUS

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

001154

003352
000040
000131

RBEGO

INPUT NEW TTY ADDRESS

TYPE,

TST

104401
104401

000137

?OXOC

MoV

001144

104411
013637
142737
122737
001003
012737

JROUTINE

TYPE,

BEQ

012701
010021
005720
020127
001373
000137

005037

TYPE

$QUES

000616

100001

PAGE 8

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

104401

011646
104402

RO, (R1)+
(RO) +

RTRTA

TRAP

sLOAD THE VALUE
;JBUMP VALUE

JBR IF NOT

JRETYPE THE HEADER AGAIN ON THE NEW TERMINAL

;OPERATOR (HOSE THE FIELD ADJUSTMENT LOOP
TESITE:

TYPE,

PRIM6

;TELL OPER. ABOUT A017

CLR

INOUT2

JDEFAULT TO USER SUPPLIED 2 PULSES

TYPE,

RDLIN

040356

MOV

a(SP)+,10%

CMPB
BNE
MOV

#'Y,10%
13
#2,INOUTZ

B8I(B

003352
003352
1%:
10%:

ADNOKT:

NLSITT:

FIELD!

JMP
0

;ASK THE OPERATOR FOR
;READ OPER.

;GET CHAR

INPUT 7 MODE

INPUT

#40,10%

;ENSURE UPPER CASE

FSITE

;NOW DO

;TEST FOR ‘'Y' INPUT
;BR IF NOT 'Y’
;SET MAINT Z CONSTANT
THE

LOOP

;LAST ADDRESS WITHOUT

M M,

JNON=ZERO INDICATES LSI=11

XxXDP

PROCESSOR

NCVT
CZNCCB
(ZNCCB L1

297
298

BRERER

301
302
303

003360
003362
003366
003370
003374

DIAGNOST
S IC
31-AUG-7 9 1M:21

V00005
005737
001124
005737
001402
10440

305

050024
052246
036122
036064
001000
000042

=
—b
d
b
b

5%:

03640

036402
003354
036122

b
b
—

177776
002004

000002

003356

002004
000004

TYPE,

1%:

$PASS
TST1
WFMODE
5%
PR IM4

$KT11

PC,$SIZE
#1000,$LSTAD

BEQ
SUB

1%
#3200. ,$LSTAD

MOV
MOV
JSR
TST
BPL
MOV
MOV

a6l

$LSTAD ,ADNOKT
#IT7,8KT11
PC,$SIZE

$KT11
2%

#200, 3K
] PAR1

:TEST IF FIRST PASS

;.BR IF NOT

;CHECK IF ON TESTER

;BR IF NOT

;TELL OPERATOR CABLE MUST BE CONNECTED
;INDICATE NO KT
;SIZE BASIC MEMORY SIZE
;PROTECT ABSLDR

;TEST

XXDP CHAIN MODE

:BR IF NOT CHAIN MODE
;LEAVE ROOM FOR XXDP MONJTOR
;SAVE BASIC MEMORY STACE
JWITH MM,

;DETERMINE THE AMOUNT OF MEMORY
:TEST IF KT11 IS HERE
:BR If NOT

:4K, UP R/W FOR 60000
;170 PAGE MAP
J6K, UP, R/W FOR 1/0 PAGE
STEST

AUTO MODE

s CONVERT

;TYPE

OUT

MSGK

;AND

THEN TYPE

S¥ERRVE(C,STEMP

#38 ,a#ERRVEC

S$TEMP ,a#ERRVEC
TST1

NLSIT?

ACCESS

;;BR IF AUTO MODE
JTELL OPERATOR THE AMOUNT OF MEMORY
;GET LAST GOOD BANK

RO,-(SP)

PSwW

SEQ 0030

#77606,a#K1PDRT

#400, IMKIPAR2
#77406,a#K1PDR2
#776406,34#KIPDR3
#7600,
a#K IPAR7
#77406,3#K1PDR?
$AUTOB
4%
MSGMEM
$LSTBK,RO

NLSIMN

000004

PAGE 9

CLR
JSR
su8
TST

052461
036404

003356

RESET
TST
BNE
TST

8EQ

000200
077406
000400
077406
077406
007600
077406
001134

052501
000004
003632

31-AUG=79

13:10
KEYBOARD COMMAND DECODER

30G(1063)

LOGIC:

001202

006200
036402
000200
036064
036122

N N NN N N NN

MACY1T1

DEC.

VALUE

OUT

cSAVE LOC & VALUE
.LCAD LOC 4

THE

REMAINDER OF

JINDICATE NOT A LSI=11 CPU
;SHOULD FAIL IF LSI-11
JRESTORE LOC & VALUE
;;BR IF TEST

JSET AN LSI=11 FLAG

;RETURN

MEMORY TMME SSAGE

CINCCB NCVY
(ZNC(B P11

350
(3)
(3)
(2)
(1)

351
352
353

DIAGNOSTIC

21
31-AUG-79 11.

MACYT

3??(1063)

3
31-AUG=79
13:10 PAGE 19
VERIFY THE 8 NCV11 AND 2 NCV11

CLOCK BUS ADDRESSES RESPOND

SEQ 0031

';'.Qtt't."t"‘tt'tt'ttt'tt't"t"'tfiQ'QQQQQQ'.Q"Q..'.Q"Q.'tt.

SeTEST 1

VERIFY THE 8 NCV11 AND 2 NCV11

CLOCK BUS ADDRESSES RESPOND

':t'filtt'."..'t'.QQQQ..Q"ttttltQQ'Q'Qt.Q'Qt'.'..'t""'.'t'..'.

003640

000004

012737

003650
003656
003664
003670
003674
003700
003704
003710
003714
003720
003726
003732

013737
012737
005777
005777
005777
005777

003736
003744
003752
003754
003756
003760
003762
003764
003766
003774
004002

012737
013737
000423
022626

004012
004016
004020

005777
005777
005777
012737
005777
005777

000100
000004
003754
176056
176054
176052
176050
176046
176044
176044

001160
004016
000004

SCOPE

MOV
MOV
MOV

000004

000001
004016

004020
000004

aCSR
aOF F
aWCR
aBAR

ST
ST

SADM
aBAR1

ST
ST

aKWCSR
aKWPSR

MOV

000001
004016

004020
000004

004016
030100

000004

aSFR

#2$ , a¥ERRVE (

;:D0 100 ITERATIONS
:SAVE BUS TRAP VECTOR
*LOAD BUS TRAP VECTOR
*ADDRESS
:
LTHE
:

INCVT

:
*ADDRESSCS

"LOAD NEW RETURN

STEST CLOCK
*ADDRESSES

STEMP FIX THE DIAG TO NOT USE CLOCK JUMPERS
MOV
#1,DEADKW
SINDICATE NCV11 CLOCK IS NOT THFRE
1%:

104001

#100,STIMES
SNERRVEC , 108
#1$, SMERRVE C

TST
1ST
1T
1ST

003762

176006
176006

T§T1:

TMP
ggnoa

TMP

10%:

(SP)+, (SP)+
%s

(SP)+,(SP)+

SRESTORE THE BUS TRAP VECTOR

;:BR AND TEST THE NCV1

:CLEAN THE STACK
'BUS TRAP WHEN REFERENCING THE NCV1

:CLEAN THE STACK

ERROR
MOV

41
#1,DEADKW

‘BUS TRAP WHEN REFERENCING THE NCV11
“INDICATE NCY11 CLOCK IS NOT THERE

MOV
JMP

108, SFERRVE C
SEOP

:RESTORE BUS TRAP VE(TOR
JEX]IT

ggv
3$:

108 ,SERRVE
(

1ST2

DEADKW: O

}g¥éa~fnkvec

SRESTORE LOC &

:NON-ZERO SAYS NO NCV11 CLOCK

CLOCK

DIAGNOST IC
31-AUG~79 1M1

(INC(B NCVT?
(INC(B.P11

MACYN

381
(3)

s?g(1oes>

31-AUG=79

FLOAT

13:10

ACROSS

PAGE 11

10 BITS OF

THE

SEQ 0032

(OMMAND/STATUS REG.

'"'..Q"..Q"""...'.'.'.'QQQ'...'..QQ"."Q't"'t'tt!QQtt't.tt'

TeTEST 2

(3)
(2)

FLOAT A 1

ACROSS

10 BITS OF

THE

COMMAND/STATUS REG.

.'".'Q't"l'!'.Q"..'...'.'...'t"...t.'."""..t.ttQtt'."'.t"'

000004
012737
012737
012737

000100
004046
004000

012777
017737
013737
052737
023737

002004
175666
002004
000200
001124

001401

001160
001110
002004
175672

001126

1ST2:

SCOPE

1%:

001124
001124
001126

002004
000001

0C2004

#100,$TIMES

MOV
MOV

$TEMP (SR
o(SR,$BDDAT
STEMP,SGDDAT
#8177 ,8GDDAT
$GDDAT ,$BDDAT
g 3
2

#18 ,SLPERR

#MIT11,STEMP

MOV
BIS
(MP
BEQ
ERROR

104002

006237
022737
001351

MOV
MOV
MOV

ASR

2%:

?Ob
o

)
—

)

—d

SRR

~ [o Yo 3% P 2 ¥ 21V LS1,N}

MP
BNE

000010
007776

001160

012737
017737
023737
001601

000200

001124
001126
001126

175570

001124

175604

104002

012777
012777
012737
017737
023737
001401
104002

000010
007776
004000
000200
175516
001124

;:RR IF

VALUE

,LOAD (SR REG.
;READ (SR
;LOAD EXYPECTED
JFUDGE THE 'READY'
" BIT
;COMPARE THE ,ALUES
SAME
JUNEXPECTED VALUE IN THE

(SR REGISTER

;TRY THE NEXT DATA BIT
:TEST IF NOW BIT O
;BR IF NOT

2R RdRRRRRRddRRRRRRtRRRRRRRSRtRRRRRRR/

VERIFY THAT "'INIi'' CLEARS THE (SR REGISTER
SCOPE
MOV
MOV
RESET
MOV
MOV
(TMP
BEQ
ERROR

X222 X2 R

SeTEST &
000004
012737

;LOAD INITIAL REG.

i3 2222222322222
R 2l
0t
RR iRl

TST3:

012737
012777

:LOAD LOOP ADDRESS

STEMP
”,STEMP
18

TeTEST 3
000004

;.D0 100 ITERATIONS

TSTé:

#10,$TIMES

#77%6,3CSR

#8177, SGDDAT
aCSR, $8DDAT
SGDDAT, $BDDAT
TST4

2SR

;:DO 10 ITERATIONS

:LOAD CSR REG.

VINITILIZE THE REGISTER
*LOAD EXPECTED VALUE
::BR

22222228020

*READ CSR REG.
"COMPARE THE VALUES

EQUAL

S'BUS INIT'' FAILED TO CLEAR (SR REG.

222020

220

ARRRSRRR

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

ER L2220 22222022222
RRd
R
R
R ARRRRRRR AR

SCOPE

MOV
MOV
MOV
MOV
MOV
(MP
BEQ
ERROR

#10,$TIMES

#7776.8CSR

::DO

#CLRALL ,@SFR

:GENERATE ‘'CLR ALL L'"

#8177, $GDDAT

aCSR,$BDDAT
$GDDAT, $8DDAT
TSTS

ITERATIONS

:LOAD CSR REG.

*LOAD EXPECTED VALUE

J:BR IF

*READ THE CSR REG.
:COMPARE VALUES
SAME

SUCLR ALL L'' FAILED TO CLEAR CSR REG.

CINCCB NCVIT _ DIAGNOSTIC
CZNCCB.P1Y
31-AUG-79 11 :21

MACY11 30G(1063)
31-AJUG=79 13:10 PAGE 12
VERIFY LOW BYTE OPERATION OF THE ‘‘CSR'’ REGISTER
TS

SEQ 0033

416

::t'."t'tt"t.'fi.tfiQ'.t"'t'.'Q."..Q"Qfi'..fi.'.Q.'.Qt."tt"i"

(3)

IRTEST S

(3)

(2)
(1)
417
418

419
420
421
422
423

424
425

004244
004246
004254
004262

004270
004274
004302
004310
004312

004314
004322

426
427

004330
004334

429
430

004350
004352

000004
012737
012777
012737
105077
017737

023737
001401
104002

012777
012737

105077
017737

000100
003636
003600
175452
175446
001124

003636
000236

175432
175406

428 004342 023737 001124
‘31

001401
104002

001160
175464
001124

175424
001124

18%:

#100,$TIMES
#3636 ,aC SR
#3600, SGDDAT

::D0 100 ITERATIONS
:LOAD CSR REGISTER
:LOAD EXPECTED VALUE

#3636 ,aCSR
#236,$GDDAT

*LOAD CSR REGISTER
:LOAD EXPECTED VALUE

CMP
BEQ
ERROR

aCSR
9CSR, $BDDAT
$GDDAT, $8DDAT
18
2

CLRB
MOV

a(SRHB
aCSR, $BDDAT

001126

MOV
MOV

CMP

BEQ
ERROR

$GDDAT,$BDDAT
1ST6
2

$CLEAR LOW BYTE
*READ STATUS REG.
: COMPARE VALUES
;:BR IF SAME
;CLEARING LOW BYTE OF
:CLEAR HIGH BYTE OF
:READ STATUS

THE (SR CHANGED THE HIGH B

THE (SR

: COMPARE VALUES

::BR IS SAME
;CLEARING HIGH BYTE OF

CSR CHANGED THE LOW BYTE

;:Qttttitt'."!Qfiit'fitfi."'fifiIQt'fififi'ttt.ttttfiitt'..'"'tttfit't.l

S*TEST 6

FLOAT A 1

ACROSS & BITS OF

THE SPECIAL FUNCTION REGISTER

:;t.t'ittt'tttfi‘tttt.t'i'tt*fi‘Qtttt*i..'QQfifififlfiii'ttfitfifiifit'tfifltt

(2)
432

004354
004356

000004
012737

004372

001110

435
436
437

004372
004400
004406

013777
017737
013737

002006
175352
002004

175356
001126
001124

439
440
441
462

004422
004424
006426
004432

001401
104003
006237
022737

222

SCOPE
MOV
MOV
MOV
CLRB
MOV

001126

(3)

438

T§15:

001126

(3)

2;2

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

;;t't'.t"'tfi.t.!'Qfi'Qt.t..'.'.Qt.tt'.'fi.'Q..fi"."..t.'.""i"'

004364

004414

004440

012737 000020

023737

007354

001126
002004
000001

TST6:

002004

#1$,SLPERR

:LOAD LOOP ADDRESS

MOV
MOV
MOV

STEMP,aSFR
aSFR,$BDDAT
STEMP, SGDDAT

;LOAD SFR REG.
READ SFR
:LOAD EXPECTED

BEQ
ERROR
ASR
CMP

28
3
STEMP
N1, STEMP

MOV
18%:

001126
002004

SCOPE
MOV

(MP

2%:

BNE

#BIT4, STEMP

$GDDAT, SBDDAT

*LOAD INITIAL REG. VALUE

::BR

:COMPARE THE VALUES

SAME
;UNEXPECTED VALUE IN THE
:TRY THE NEXT DATA BIT
“TEST IF NOW BIT 0

:BR IF NOT

445

;;t't*fit'fi*"fit'fiiiti.t.Q'.t'tfi.tQfi.ttttfitt.'ifi'Qtttl't'fi.ttti"t

(3)

S*TEST 7

(3)

(2)
(1)
46
4,7
48
449
450
451
452

SFR REGISTER

VERIFY THAT CLEARING HIGH BYTE OF

SFR DOES NOT CLEAR LOW BYTE

;;ttitfit.'itt'tfit't.ttti"ttfiQttfiQfitttt'ltt'tttt"'fifitttt'fit't'tt

004442
004444
004452
004460
004466
004472
004500
004506
004510

000004
012737
012777
012737
105077
017737
023737
001401
104003

000010
000014
000014
175276
175260
001124

001160
175276
001124
001126
001126

TS17:

scoee
MOV
MOV
MOV
CLRB
MOV
CMP
BEQ
ERROR

#10,$TIMES
#14 ,aSFR
#14 ,$GDDAT
@SFRHB
aSFR,SBDDAT
$GDDAT, $8DDAT
1ST10
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 (SR REG.

CHANGED THE LOW

CINCCB NCV11
DIAGNOSTIC
CINCCB.P11
31-AUG-79 11:21

3
I
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 13
710
VERIFY THAT “‘INIT'' CLEARS THE SFR REGISTER

SEQ 003

l.SS

::ttttt".ttt.tttttttt.t't.tttttflt.tt't.tt.ttt.'itfit't'.tt"ttttt

(3)

SwTEST 10

(2)
(1)
456
457
458
459

004512
004514
004522
004530
004532
004536

000004
012737
012777
000005
005037
017737

zg;

004546

104003

460 004544

001401

000010
000016

001160
175226

001124
175214

001126

T8§110:

SCOPE
MOV
MOV
RESET
CLR
MOV

BEQ

ERROR

VERIFY THAT "‘INIT'' CLEARS THE SFR REGISTER

RN RN A AR AR AN AR RN N N AR RN RRA N A AR AN RN

#10,$TIMES
#16.3SFR
$GDDAT
@SFR,$BDDAT

1sT1]
3

C AN

;:DO 10 ITERATIONS
:LOAD SFR REG.
“INITILIZE THE REGISTER
:LOAD EXPECTED
*READ SFR REG.

;:BR IF EQUAL

S'BUS INIT'' FAILED TO CLEAR SFR REG.

1.63

.'"ttltttfittttttt'tt.t.tt't.'ttttttfi'tttttt.tttttfi'tttttttttttttt'

TATEST 11

(3)

(2)

004550

000004

(1)
464

004552
004560

012737
012777

000010
000016

466

004574

005037

001124

465

467

468
469

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

.-.'tttttt.ttitttttt"ttt.fit.tt.ttt'tt.tt'i.‘tfittfitittt.ttfitttttttt

004566

004600

006606

004610

052777

017737

001401

104003

004000
175152

001160
175170

175162

001126

T$T11:

SCOPE

MOV
MOV

#10.8TIMES
#16.aSFR

CLR

$GDDAT

8IS

MOV

BEQ

ERROR

#CLRALL ,@SFR
aSFR,$RDDAT

TST12

;:DO 10 ITERATIONS
;LOAD SFR REG.

;GENERATE "‘CLR ALL L'’
*LOAD EXPECTED VALUE

*READ THE SFR REG.

;:BR IF SAME

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

CINCCB NCV11
DIAGNOSTIC
CINCCB.P1T
31-AUG=79 11:21

MACY11 3??51063)

31-AUG=-79 13:10 PAGE 14
FLOAT A 1 ACROSS THE WORD COUNT REGISTER

SEQ 0035

472

"."t'tttQt.ttttttQttt.t"tttttt.tt'.ttt.tttt'tttttt'tttttttt't'tt

LaTEST 12

(3)

(2)
(1)

004612
004614

000004
012737

000100

001160

2;§

004630

012737

004636

001110

476
477
478

004636
004644
004652

012777
013777
017737

480
23}

004666
004670

001401
104004

483
484,

004672
004676

006337
001357

473 004622

012737

000001

004000
001124
175074

T8112:

001124

175112
175100
001126

001124

18:

#18,SLPERR

MOV
MOV
MOV

#CLRALL ,@SFR
$GDDAT, WCR
aWCR, SBDDAT

BEQ
ERROR

2%
4

ASL

$SGDDAT
1s

BNE

J*TEST 13

$GDDAT , $8DDAT

::D0 100 ITERATIONS

;LOAD EXPECTED VALUE

*LOAD LOOP ADDRESS ON ERROR
:RESET THE DEVICE
*LOAD WORD COUNT ‘A"’
*READ WORD COUNT

COMPARE VALUES

;B8R IF SAME
;;WORD COUNT REG.

IN ERROR

;CHANGE THE DATA
‘BR IF MORE DATA TO LOAD

FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER

.','ttttttfitt'tttttttttt'tt"ttt!tttttittttfitfittfittttttttttttfittttt

(2)
(1)

004700
004702

000004
012737

000100

001160

zgg

004716

012737

004724

001110

004710

012737

489
490
491

004724
004732
004740

012777
013777
017737

493
232

0047546
004756

001401
104005

496
497

004760
004764

006337
001357

000001

004000
001124
175010

492 004746 023737 001124

TST13:

001124

175024
175014
001126

001124

SCOPE
MOV

#100,STIMES

MOV

#18,$LPERR

MOV

18:

001126

#8170, SGDDAT

MOV
MOV
MOV

#CLRALL ,3SFR
$GDDAT , aBAR
aBAR, SBDDAT

BEQ
ERROR

28
S

2s:

ASL
BNE

$GDDAT , $8DDAT
$GDDAT
1s

::DO 100 ITERATIONS

;LOAD EXPECTED VALUE

*LOAD LOOP ADDRESS ON ERROR
:RESET THE DEVICE
*LOAD BUS ADDRESS ‘A"’
*READ BUS ADDRESS

{COMPARE VALUES

::BR IF SAME
:BUS ADDRESS REG.

IN ERROR

; CHANGE THE DATA
‘BR IF MORE DATA TO LOAD

""'ttfiifiltttt'ttttttttttttt'tlt'.fit'.fi.lfi.tt."t.titfi'.'ttttit!tt

JaTEST 14

(3)

FLOAT A 1

ACROSS THE OFFSET REGISTER

:;tttttttttttit'tt.tttt'ttttttttifi.tfitit.t'itfi'.'ttt't'tttttttttt

(2)
(1)

004766
004770

000004
012737

000100

001160

28?

005004

012737

005012

001110

499

MOV

#8170, SGDDAT

'-'-t"'ttttlfi'tt'ttttt'tfitt'tttfititttttttitfittttttt'tt't'tt'tttttt

(3)

498

#100,STIMES

TMP

e ¥

486

SCOPE
MOV

MOV

479 004660 023737 001124 001126

485

FLOAT A 1 ACROSS THE WORD COUNT REGISTER

:"t't"t'tQtt't'tfi.'fi.'t.fit.ttt'ttttt'..tttt'ttt.t.ttt'ttttttt'tt

004776

012737

502
503
504

005012
005020
005026

012777
013777
017737

506
ggg

005042
005044

001401
104006

509
510

005046
005052

006337
001357

000001

004000
001124
174716

TST14:

001124

174736
174722
001126

#100,$TIMES

MOV

#18,${PERR

MOV
18:

505 005034 023737 001124 001126
001124

SCOPE
MOV

MOV
MOV
MOV

#CLRALL ,@SFR
$GDDAT , 9OFF
@OFF , SBDDAT

BEQ
ERROR

23
6

cTMP

28:

#8170, $GDDAT

ASL
BNE

$GDDAT , $8DDAT
$GDDAT
1%

;:D0 100 ITERATIONS

;LOAD EXPECTED VALUE

*LOAD LOOP ADDRESS ON ERROR
:RESET THE DEVICE
*LOAD OFFSET ‘A"
'READ OFFSET

" COMPARE VALUES

::BR IF SAME
COFFSET REG.

IN ERROR

:CHANGE THE DATA
;BR IF MORE DATA TO LOAD

CZNCCB NCVT
CZNCCB.PI

DIAGNOST IC
31-AUG-79 1M:2

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 15
T15
VERIFY NO DUAL REGISTER SELECTION

SEQ 0036

::tttt'."tt'tt't"t.'fi""Qtt'.'tttt't'tt'tiittttttttttfihttttttt

S«TEST 15

VERIFY NO DUAL REGISTER SELECTION

;:ttttttttttt.tttttttttflttttttttt.tttt'ttttttttttttitttttttttatn-

000004
012737

001160
1746664
174650
174644
174640
174634
174616

TST1S:

MOV
MOV
MOV
MOV
MOV

#CLRALL ,@SFR
#11111,30FF
czzgg
LWCR
#36 asrR

:CLEAR THE DEVICE
:LOAD OFFSET REGISTER
*LOAD W.C. REGISTER
:LOAD B.A. REGISTER
;LOAD SPECIAL FUNCTION REGISTER

MOV
MOV

#11111,8GDDAT
@0FF,SBDDAT

;LOAD EXPECTED VALUE
*READ A OFFSET REG.

MOV

#7636, aC

;:D0 10 ITERATIONS

WCR., BAR AND OFF REGISTERS

LOAD COMMANC/STATUS REGISTER

:NOW READ EACH Resxsrén mo CHECK THE VALUE

001124
001126
001126

022222

18:

001124

001124
001126
001126

033333
174536
001124

001124
001126
001126

2s:

cMP

$GDDAT , SBDDAT

MOV
MOV

#22222.3GDDAT
WCR, SBDDAT

BEQ

BEQ
ERROR
P

ERROR

3s:

001124

007636
174454
001124

001124
001126
001126

48:

004000

174442

5$:

13
7

$GDDAT , S8DDAT

MOV
MOV
cMP

#33333,$GDDAT
@BAR, SBDDAT
SGDDAT ,$8DDAT

ERROR

B8EQ

000036
174512
001124

001126
001126

#10,$TIMES

:LOAD DIFFERENT NUMBERS INTO THE

011111
174606
001124

174562

SCOPE

MOV

MOV
MOV
cMP

#36,8GDDAT
@SFR,$BDDATY
SGDDAT ,$8DDAT

MOV
MOV

#7636,8GDDAT
@CSR,$BDDAT

B8EQ
ERROR

- COMPARE

::BR ]1F SAME
:DUAL ADDRESS ERROR

*LOAD EXPECTED VALUE
*READ W.C. REG.
* COMPARE

;:BR IF SAME

:DUAL ADDRESS ERROR

:LOAD EXPECTED VLAUE
*READ B.A. REG.
- COMPARE

::BR IF SAME

:DUAL ADDRESS ERROR

:LOAD EXPECTED VALUE
SREAD SPECIAL FUNCTION REG
: COMPARE

X 3
7

;:BR IF SAME
*DUAL ADDRESS ERROR

cMP
BEQ

$GDDAT , $8DDAT
5$

: COMPARE
::BR IF SAME

MOV

#CLRALL ,3SFR

ERROR

:LOAD EXPECTED VALUE
“READ COMMAND/STATUS REGISTER
-DUAL ADDRESS ERROR

*CLEAR THE DEVICE

CINCCB NCVI1
DIAGNOSTI
CINCCB.P11
31-AUG-79 11:21

MACY11 3$?é1063)

5‘8

31-AUG=79 13:10 PAGE 16
VERIFY ‘‘CLR ALL'' CLEARS THE EXTENDED OFFSET BITS

SEQ 0037

.'.'Q'."'t.'.'ittt.ittttttt"llttttt.tfi'fit"tt.t'tfit'ttt"ttt'tttt

(3)

SwTEST 16

(3)

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

::"t"fifi".ifi.t'ttttttt"tttttttQQQt'tttttt'titttt"tt'tttt'ttt.

(2)
(1)
549
550
551
552
553

005314
005316
005326
005330
005336
005344
005352

000004
012737
005037
012777
012777
012777
017737

ggg

005362

104006

554 005360 001401

000010
001124
004000
000003
004000
174372

001160

TST16:

174420
174404
174404
001126

557

SCOPE
MOV
CLR
MOV
MOV
MOV
MOV

#10,STIMES
$GDDAT
#CLRALL ,@SFR
#3,90FF
#CLRALL ,aSFR
a0FF , $BDDAT

ERROR

BEQ

TST17

;:D0 10 ITERATIONS
:CLEAR EXPECTED VALUE
:CLEAR THE DEVICE
*LOAD EXTENDED OFFSET REGISTER
*CLEAR THE EXTENDED OFFSET REG.'S
*READ EXTENDED OFFSET REG.

;:BR IF CLEARED

SCLEAR ALL FAILED TO CLEAR EXTENDED OFFSET REGIS

tt"t.t'it.*ttfitfitfit*ttttttfittitttfittttfittttttttttttttt.tttttQt

(3)

~rssr 17

(3)

(2)
SS8
559
560
561
562
563
564

005364
005366
005374
005402
005404
005406
005410

000004
012777
052777
000240
000240
000240
052777

566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581

005426
005432
005440
005646
005450
005456

052777
017737
023737
0014604
052777
104002

000001
174310
001126

174314
001126
001126

000400

174300

0056460
005666
005474
005502
005510
005512

052777
012737
017737
023737
001401
104002

000400
000222
174246
001124

174270
001124
001126
001126

005514

012737

000200

001124

583
584
585
586
587

005530
005536
005544
005552
005554

052777
017737
023737
001401
104001

004000
174204
001126

174220
001126
001126

004000
000010

174362
174354

000022

174330

565 005416 012737 000022 001124

582

005522

052777

000001

174216

TEST THE "ACTIVE'' FLOP CAN SET AND CLEAR

23223233338 4323223232323433222323322223323238222334232332323223223228223232223X232232]

18717:

SCOPE
MOV
#CLRALL ,aSFR
:CLEAR THE DEVICE
BIS
#TSTDMA 3SFR
;SET THE ''TEST DMATM TO PREVNT DATA TRANSFERS
NOP
NOP
NOP
BIS
#BIT4'BIT1,aCSR
:SET "MATRIX MODE'' AND 'BYTE'' MODE
:NOW SET THE "ACTIVE'' FLOP AND VERIFY '‘INTERFACE IDLE'' GOES LOW

MOV

#BIT4!'BIT1,$GDDAT

:LOAD EXPECTED VALUE

BIS

#31T0.aCSR

‘POKE "ENABLE DMA'’

BIS
#81T0.3CSR
SSET "ACTIVE' TO A 1
MOV
aCSR, $8DDAT
*READ STATUS
P
$GDDAT , $8DDAT
*COMPARE VALUES
BEQ
1%
;:BR IF EXPECTED
BIS
#ENDDMA, 3SFR
;STOP DMA IF POSSIBLE
ERROR
2
“ACTIVE'' FLOP FAILED TO SET
:POKE THE 'END DMA'' SIGNAL AND VERIFY ACTIVE"CLEARS
1$:
BIS
#ENDDMA, aSFR
SEND "END DMA'‘ SIGNAL
MOV
#BIT7'BIT4'BIT1,$GDDAT
-SET ''INTERFACE IDLE'' INTO EXPECTED
MOV
aCSR,$8DDAT
SREAD STATUS
P
$GDDAT , S8DDAT
* COMPARE
BEQ
2$
::BR IF SAME
ERROR
2
:'"END DMA’'' AGAIN FAILED TO CLEAR ‘"ACTIVE'® FLOP
:POKE "ENABLE DMA'* AND THEN ISSUE ‘‘CLR ALLTM' SIGNAL TO
:
ENSURE THE "ACTIVE'' FLOP CLEARS
2%:
MOV
#BIT7.SGDDAT
:LOAD EXPECTED
BIS
MOV
TM
BEQ
ERROR

#CLRALL ,aSFR
aCSR,$BDDAT
$CDDAT, SBDDAT
15120
1

*GENERATE "'CLR ALL'"
“READ STATUS
* COMPARE
;:BR IF SAME
;'CLR ALL'" FAILFD TO CLEAR “'ACTIVE'' FLOPS

CINCCB NCVI1 _ DIAGNOST 1€
CINCCB.PI
31-AUG=79 11:21

MACY1T

592

23002300002

2232322330320

383030223

O
e

N N

D
d

= NOWSNONON
EHNONNVESNVO

1$7120:

1%:

000020

001124
001126
001126

2%:

174032
040000

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV

BIS
BIS

001126

PAGE 17

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

2223282223223

174056

302

dR8R R220RRSRRR2RRRRRR2RRR2]
2R

INPUTS CAUSE

VERIFY Z

THE LOw 8 BITS OF 32 BIT COUNTER TO CHANGEIN MATRI

302283202222 022022322222223222222222222323¢22]

#100,STIMES

#CLRALL ,@SFR
#TSTDMA
. aSFR

#0,3WCR
#0
., 3BAR

#81T4!BIT1,aCSR
#8170,3CSR

;:DO 100 ITERATIONS
;CLEAR THE DEVICE
JSET TEST DMA FLOP
JLOAD W.(. REG
REG
JLOAD B.A.
JENTER MATRIX MODE

;GO "ACTIVE"'

JENABLE "‘TEST 2'' PULSES
;DISABLE '‘TEST 2'' PULSES
sLOAD EXPECTED

#TESTZ,aSFR
#TESTZ.aSFR
#1,$GDDAT

@BAR, $BDDAT
13
10
TS721
WCR, SBDDAT

BEQ
ERROR

SEQ 0038

1
#8174, $GDDAT
aCSR, $BDDAT
#B1Ti4, SBDDAT
STl
l

JREAD LOW 16 BITS

;.BR [F NON-ZERO

;2 INPUT FAILED TO CAUSE THE LOw BYTE OF 32 BIT
READ HIGH 16 BITS

;;BR IF CLEARED

JHIGH 16 BIS (HANGED IN ERROR
;LOAD EXPECTED
;READ STATUS
STEST IF "'CELL OVERFLOW''

;:BR IF CORRECT

;"'CELL OVERFLOW'' FLOP SET IN ERROR

':tttttttittitttttt't**tttttfitttttttt*tlttfi.*t.fit'ttfi.fittttttQ'Qt

T*TEST 21

VERIFY Z

INPUTS CAUSE

THE LOW 16 BITS OF 32 BIT COUNTER TO CHANGE

':tfittttt.tttfitttttttli*ttt*tttt'tiitfi.t*fiitfitt"fit!fi"fi'ttttQ't.

O—
O
oo

18T121:

&Mh\hgfiv

4002

=~ NNNNN
NN
&S00 SO0

—d
b
b md
b
b
b

012777
012777
012777
052777
052777
2777
012737
017737
105737
001002
104010
000423
012737
017737
001401
104011
012737
017737
032737
001401
104012

—d

005754
005762
005770
005776
006004
006012
006020
006026
006034
006040
006042
006044
006046
006054
006062
006064
006066
006074
006102
006110
006112

012737
012777
012777

Sflg~4\rv*q~q~4\rvgg
PLY
W INWN
- NN

616
617
618
619
620
(1)
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635

N N

005730
005732
005740
005746

174074

(2)
(1)
614
615

012777
052777
052777
042777
012737
017737
001002
104010
0004
017737
001401
104011
012737
017737
032737
001401
104012

b o

005616
005624
005632
005640
00.%6
005054
005662
005664
005666
005670
005676
005700
005702
005710
005716
005724
005726

)

597
598
599
(1)
600
601
602
603
604
605
606
607
608
609
610
611
612
613
(3)

PSRy Y

005566

012737
012777

13:10

NN ==
RSO

005556
005560

596 8822?8 012777

120

31-AUG=79

T*TEST 20
oo_._._._._a_._._ag
OO NNNNNNNY

(3
(3)
(2)
(1)
593

30G6(1063)

173672

000020

173646

040000

#100,$TIMES
#CLRALL ,aSFR
#TSTDMA ,aSFR

#81T0,aCSR

1%:

;CLEAR THE DEVICE
;SET TEST DMA FLOP
;LOAD W.C. REG
REG
sLOAD B.A.

;ENTER MATRIX MODE
;GO "ACTIVE''

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

aBAR, $8DDAT

JREAD LOW 16 BITS
sTEST HIGH BYTE

$BDDAT+1
18
10
TST22

#0.$GDDAT

aWCR, $BDDAT

2%:

;.00 100 ITERATIONS

#TEST2,@SFR
NTESTZ.@SFR

#81T8,$GDDAT

1126

000000

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV

11
#8174, SGDDAT
aCSR, $BDDAT
#81T14,$BDDAT
{3122

;LOAD EXPECTED

;B8R IF NON-ZERO
;2 INPUT FAILED TO CAUSE THE HIGH BYTE OF
:LOAD EXPECTED

:READ HIGH 16 BITS

;:BR IF CLEARED

;HIGH 16 BITS CHANGED IN ERROR

:LOAD EXPECTED
:READ STATUS

TEST IF "'CELL OVERFLOW''

CORRECT

:'CELL OVERFLOW'® FLOP SET IN ERROR

THE LO

NCVIT
CINLB.P1
CZNCCB

DIAGNQSTIC

21
31-AUG-79 11:

MACYN

306(1063)
31-AUG-79 13:10 PAGE 18
122
VERIFY 7 INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO (HANGE

SEQ 0039

M ""lQ't'.'t'!ti'tfiQt.t""'fi'.t*'.fit."fi'fi'.Q.tfi'fifitfi'*'t.i't.'.

;=TEST 22

VERIFY 7 INPUTS CAUSE THE LOW 24 BITS OF 32 BIT (OUNTER TO CHANGE

SRRRRUSORASRER &EKRER

d sREsRREpesesasers

.' ."tfi't't'..'t.‘fit"fifi'*t"fi‘QQ"fi'fi.Qfi".."..'fi'.'fi.*.'t'fit't.t

006250

001160
173624

173534

173616
173604
173600
173564
173556
173560
173552
001124
001126

000020
173506
040000

001124
001126
001126

TST22:

SCOPE

MOV
MOV
MOV
MOV

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

MOV
BIS
BIS
BIC

#MIT4!BITT,a8CSR
#170,3CSR
#TESTZ ,8SFR
#TESTZ ,aSFR

MOV

1%:

2%:

MOV
MOV
BNE
ggROR

#-2

,8BAR

MIT4L ,SGDDAT

BIT
BEQ

MI1T14,88DDAT
TST23

ERROR

;LOAD B.A.

;LOAD EXPECTED
JREAD HIGH 16 BITS
JBR IF SET
:LOW BYTE OF THE HIGH 16 BITS FAILED TO (HANGE

;LOAD EXPECTED

aCSR,$8DDAT

REG

JENTER MATRIX MODE
;G0 "ACTIVE''
JENABLE ‘‘TEST 2'' PULSES
:DISABLE '‘TEST 2'' PULSES

#1,8GDDAT
WCR,SBDDAT
P 3
};TZB

MOV

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

;READ STATUS

JTEST IF ''CELL OVERFLOW''

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

.'.'tt'tQQt'**.fitQfi*l"fifififi"‘fi'fit..fifi.'fi'Qfi"ttfi't.Q't.'fiifii"'ttt*t

*TEST 23

VERIFY 7

INPUTS CAUSE

THE HIGH 8 BITS OF

THE

32 BIT COUNTER

TO CHANGE

"""Q'Qtfi‘fi"*""t"'.fi"tfitflt'*fifi"'fiQtt!'fiifi".t't"it"""i'

173374
001127

001160
173464
173456
173444
173440
173424
173416
173420
173412
001124
001126

TST23:

SCOPE

MOV

#100,8TIMES

MOV

#TCTIDMA ,aSFR

MOV

#377 ,aWCR

;.00 100 ITERATIONS

;CLEAR THE DEVICE

;SET TEST DMA FLOP
JLOAD W.C. REG

MOV
MOV

#-2.,aBAR
#MIT4!BITT1,aCSR

;LOAD B.A.
REG
SENTER MATRIX MODE

8IS
BIC

#TESTZ ,aSFR
#TESTZ ,aSFR

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

BIS

1%:

#CLRAI L a@SFR

MOV

MOV
TSTR

BNE
ERROR

#8170,aCSR

#BI1T8,8GDDAT
aWCR,SBDDAT
$BDDAT +1

TST24
11

;G0 "ACTIVE''

;LOAD EXPECTED

;READ HIGH 16 BITS
;TEST HIGH BYTE

;;BR IF SET
JHIGH 8 BITS OF THE 32 BIT COUNTER FAILED TO (HANGE

CINC(B
CINC(CB. P11

669
(3)
(3)
(2)
(1)

670
671
672
673
674
(1)

675
676
677
678
679
680
3)
&)
(2)

(1)

DIAGNOST |

31-AUG-79

—Jh

NCV*

MACY11

306(1063)
124

31-AUG-79

VERIFY 7

13:10
PAGE 19
INPUTS DO NOT CAUSE

THE LOW 8 BITS OF

32 BIT COUNTER TO CHAAGE

SEQ 0040

:;QQtttttt'..tfit'.tt'tt't"Qt.tfi't.ifitttttttitt!.tttttitt't't't"

TeTEST 26
A

t$124:

000004

012737
012777
012777
012777
005077
052777
042777
012737
017737
001401

2223222222023

SCOPE

THE LOW 8 BITS OF

#100,8TIMES

MOV
MOV
CLR
BIS

#0.3WCR
#0 . 3BAR
aCSR
#TESTZ,aSFR

‘LOAD W.C. REG
*LOAD B.A.
REG
*ENSURE LIST MODE
*ENABLE “TEST 2'' PULSES

#0,$GDDAT
aBAR, SBDDAT

*LOAD EXPECTED
*READ LOW 16 BITS

BIC

MOV
MOV

BEQ

ERROR

104010

INPUTS DO NOT CAL ¢

32 BIT COUNTER TO CHANGE

2233332232223 32323232832232232322232223232320322232222022ZR223]

MOV

173300

VERIFY 2

#CLRALL ,@SFR

::DO 100 ITERATIONS

:CLEAR THE DEVICE

NTESTZ.aSFR

15126
10

*DISABLE '‘TEST 2'' PULSES

;:BR IF ZERO

IN LIST MODE

;;t'ttt‘t'tttfiltli*tfifitttQlttQQttfltfifi!ttfitfifi'i.fifiittttti'i!tt.t't

SATEST 25

TEST

THAT “WCA OVFL'' SETS 2/WC OVERFLOW FLOP AND ''CLR ALL'' CLEARS

:;.tttt't.fiQtt'Q.ttfififi'.fi't'.t*ifitfittt'tfifi'tt.tt'ttttttttt.\.tttt

000004
012737
012777
012777
012777
012777
012777
052777

052777

042777
013700

005001
012737

000010
004000
000010

177777
177776

000022
000001
000002

000002

002006

001160
173256
173250

173236
173232
173216
173210

173212
173204

040020

001124

032777
001011
005301
001372
005300
001370
012777

040000

173152

000400

173142

052777
012737
017737
023737
001401

004000
000200

173130
001124
001126
001126

104012
000416

104012

173106

001124

13725:

SCOPE

MOV
MOV

#10,$TIMES
#CLRALL ,aSFR

MOV
8IS

#81741BIT1,aCSR
#8170,aCSR

MOV
MOV
MOV

NTSTDMA ,@SFR
#-1,3WCR
#-2,@BAR

::D0 10 ITERATIONS
:CLEAR DEVICE

:SET TEST DMA FLOP
:LOAD Z COUNTER
:LOAD Z COUNTER

:ENTER "MATRIX'' MODE
:ENABLE NCV11

:NOW ENABLE ‘TEST Z'' INPUTS
BIS
NTESTZ,@SFR
BIC
#TESTZ,@SFR
MoV

gquoLo.Ro

;ENABLE 'TEST 2'' PULSES
:DISABLE ‘‘TEST Z'' PULSES
:LOAD GROSS TIMER

MOV

#B1T14!BIT4,SGDDAT

:LOAD EXPECTED STATUS

BIT

#81714,8CSR

:TEST

18:

BNE
DEC
BNE
DEC
BNE
MOV

ERROR

28
R1
18
RO
18
#ENDDMA , @SFR
}5726

FOR

:BR IF SET
:DELAY

Z/WC

OVERFLOW

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

2§0U GENERATE ‘'CLR ALL'' TO CLEAR Z/WC OVERFLOW BIT
BIS

MOV
MOV
cMP
BEQ
ERROR

#CLRALL ,aSFR

#8177 ,SGDDAT
aCSR, $RDDAT
, $8DDAT
$GDDAT
TST26
12

JCLEAR Z/W(C FLOP
LOAD EXPECTED

:READ STATUS
; COMPARE
;;BR [F SAME

JU'CLR ALL'® FAILED TO CLEAR "2/W('" FLOP

NCV1T

CINC(B
CZNCCB. P11

DIAGNOSTIC

31-ALG=79 11:21

1
MACY

711

&4
C
30G(1063)
31-AUG=79
13:10 PAGF 20
126
TEST THAT "WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND ''CLR WC OVFL'' CLEARS IT

SEQ 0041

.'.'lttttttttttttttttfi't't"ttttttttttt'ttt'tt'.ttttfitttfit'tttttttt

;*TEST 26

(3)
(%)

TEST THAT "WCA OVFL'' SETS 2/WC OVERFLOW FLOP AND ''CLR WC OVFL'' CLEARS [T

""Qtt'tttttt'ttfitttttt!fit'ttt.ttttttttttttttt'ttt'ttttttfit!t'ttt.

(2)

000004
012737
012777
012777
012777
012777
012777
052777

(1N

712
3
714
715
716
7
718
719

007014
007016

007020
007026
007034
007042
007050
007052

000010
004000
000010
177777
177776
000022
000001

001160

173064
172056
173044
173040

173016

000002
000002

013700
005001
012737

002006
040020

001124

032777
001014
005301
001372
005300
001370
012777
042777

040000

172760

173020
173012

000400
000002

172750
172742

040000
000222
172706
001124

172730
001124
001126
001126

104012

#10,8TIMES

MOV
MOV

#-1,aW(R
#-2 ,aBAR

MOV
BIS

#CLRALL ,@SFR
#TSTDMA ,aSFR

;:D00 10 ITERATIONS

;CLEAR DEVICE
;SET TEST DMA FLOFP

JLOAD 7 COUNTER
;LOAD Z COUNTER

MBITL!BITT,CSR
#IT0,8CSR

JENABLE "MATRIX'' MODE
:SET NCV11 ACTIVE

:NOW ENABLE '‘TEST Z2'' INPUTS
BIS
8IC

#TESTZ ,aSFR
#TESTZ ,aSFR

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

?Ox

g?UDLO.RO

;LOAD GROSS TIMER

MOV

MIT14!'BIT4,$GDDAT

:LOAD EXPECTED STATUS

BIT

#IT14 aCSR

;TEST FOR Z/WC OVERFLOW

DEC
BNE
MOV

RO
1%
#ENDDMA ,aSFR

;DELAY

1%:

BNE
DEC
BNE

BIC
ERROR
BR

000416
052777
012737
017737
023737
001401

SCOPE

MOV

MOV
MOV

173024

052777
042777

104012

TST26:

23
R1
18

:BR IF SET
;DELAY

:STOP DAM TRANSFFRS

#TESTZ,dSFR
;STOP *°Z'' INPUTS
12
;AFTER A GROSS TIME, THE Z/W( OVERFLOW FLOP FAILED TO SET
TST27
J:

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

2s:

8IS

#CLRWCO,aSFR

;CLEAR Z/WC FLOP

MOV
(MP

a8CSR,$BDDAT
$SGDDAT, $BDDAT

;READ STATUS
: COMPARE

MOV

8EQ
ERROR

48177'8174‘8171 $GDDAT LOAD EXPECTED

TS127
12

;:BR [F SAME
;:''CLR WC OVFL'' FA] LED TO

: C EAR

"Z/WC'* FLOP (BIT 14)

CZNC{B NCVT
CZINC(CB P11

DIAGNOSTIC
31-AUG=-79 11:21

1T
MACY

745

772

773
774
775
776
777
778
779
780
781
782
783
784
785
78¢
787
788

789

SEQ 0042

" "itl'QQ'.t't.tfitlQtttl'fi"fi'i'.Q".'.Q..""fi..t'..'.t."'Q'Qt.Q

TEST THAT 'WCA OVFL'' GENERATES AN INTERRUPT

«TEST 27

3
3
2)

(1
746
747
248
749
750
751
752
753
1)
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771

D 4
30G(1063)
31-AUG=79 13:10 PAGE 21
127
TEST THAT "WCA OVFL'' GENERATES AN INTERRUPT

""fittQ't"'.‘tt'ttltt'.tt'tll.'.Q*Q.Qfi'.'fi'.Q."Q.Qtt..t"i'tt"'

000010
004000
000010
177777
177776

052777

000022
000001

001160
172664
172656

172644
172640
172624
172616

052777
042777
013700

002006

012737

040020

001124

032777

040000

172560

005001

001014
005301

001372
00530C
001370
012777
042777
104012

000400
000002

1§127:

172620
172612

104013

8IS

#81T0,8CSR

1%:

000100

172532
172500

172464

001126

001774

172450

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

MOV

MIT14'BITSL,SGDDAT

;LOAD EXPECTED STATUS

BIT
BNE
DEC
BNE
DEC

#MiTi14,aCSR
2%
R1
18
RO

JTEST FOR 2/WC OVERFLOW
:BR IF SET
:DELAY

8IC

#TESTZ,aSFR

BNE
MOV
ERROR

1%
#ENDDMA ,aSFR
12

;LOAD GROSS TIMER

;DELAY
;STOP DMA TRANSFERS

;STOP '27'' INPUTS

JAFTER A GROSS TIME,

THE

::BR TO CLEAN UP

Z/W( OVERFLOW FLOP FAILED TO SET

JNOW EMABLE THE WC/Z OVERFLOW INTERRUPT BIT AND WAIT FOR AN INTERRUPT

007232

172442
004000

JSET NCV11 ACTI]VE

#TESTZ ,@SFR
g?UDLO.RO

172550
172542

000000

004000

;SET MATRIX MODE

BIC
?0;

007276

#MITL(!BITY,aCSR

;:D0 10 ITERATIONS
;CLEAR DEVICE
;SET TEST DMA FLOP
JLOAD Z COUNTER
JLOAD Z COUNTER

:NOW ENABLE '‘TEST Z2'' INPUTS
8IS
#TESTZ,aSFR

2%:

MOV

#Q,-(SP)

#3%,-(SP)

;LSI=-11

3s:

MOV

#48 ,’0VECTAQD

;LOAD INTR. VECTOR

a(SR,$8DDAT
#CLRALL,aSFR

JREAD STATUS
:CLEAR THE DEVICE

BIS

MOV
MoV

172464

ERROR
BR

172444
172452

g?y

NOP
NOP
NOP
NOP

000401

022626
005077
012777
013777
005077

#10,8TIMES
#CLRALL ,aSFR
#TSTDMA ,aSFR
#-1,W(R
#-2 ,aBAR

MOV

0004390

012746
012746
000002
012777
052777
000240
000240
000240
000240
017737
012777

SCOPE

MOV
MOV
MOV
MOV
MOV

5%:

CMP

(LR
MOV
MOV

(LR

#IT6,aCSR

13
5%

JENABLE

HACK

INTERRUPT

;WC/Z OVERFLOW FAILED TO GENERATE
;iBR TO CLEAN UP

(SP)+,(SP)+

a(SR
#(IRALL ,aSFR
VECTA1,aVECTAQ

aVECTAT

.CLEAR THE DEVICE

INTERRUPT

DIAGNQSTIC

31-AUG=-79 11:21

791
(%)
(3
(2)

MACY 11

30G(1063)
730

&
E
13:10
PAGE 22
31-AUC=79
VERIFY "WCA OVFL'' CLEARS "ACTIVE''

SEQ 0043

CIARARNERRANNAAARNAARARRAPAAARNRANANANANRANAANRAAANRAAAN
IR AO AN PRA RO AN

TeTEST 30

VERIFY "WCA OVFL'' CLEARS "ACTIVE'

b O

232322322 222023202222320030222
23228232
R2RRRRRRRARSRRRARR)

TST30:

#10,8TIMES
#CLRALL ,aSFR

—

(1)

—

001402
104C12

040222
001124

001401
104012

#TSTDMA!TSTCON,aSFR
#-1,3(CR
#-2 ,aBAR

;SET TEST DMA
;LOAD W.C. REG.
;LOAD BAR REG.

#8]T10,aCSR

;SET "ACTIVE''

$GDDAT,$8DDAT
18

1ST31
172270

001126

JENABLE ''TEST 2'' PULSES
:DISABLE '‘TEST 2'' PULSES
;READ STATUS

#MIT14 . BIT7'BIT4 .RIT1,$GDDAT
12

001124

:CLEAR OFFSET REG.
;ENABLE MATRIX MODE

MTESTZ,aSFR
HTESTZ,8SFR
aCSR,$8DDAT

000407

005037
017737

;:D0 10 ITERATIONS
;CLEAR DEVICE

aOF F
#IT4!BIT1,aCSR

NCVTY
(INCCB PN
(ZNCCB

1¢:

ERROR

$GDDAT
a0F F , $BDDAT
TST3

;:BR

: COMPARE

:LOAD EXPECTED

SAME

;'WCA OVFL'' FAILED TO

;CLEAR *‘ACTIVE'' (BIT 7 SET)

:CLEAR THE EXPECTED
;READ THE ACTUAL
CLEARED

::BR

;THE

OFFSET REGISTER

J"WCA INC X OFF'' IN MATRIX MODE

(HANGED

CZNC(B

NCVI

(INCCB.PIY

DIAGNQSTIC

31-AUG=-79 11:21

1T
MACY

87
(3)
(3)
(2)

(1)

30G(1063)
131

31-AUG=79

13:10

PAGE 23

VERIFY JOYSTICK DONE FLOP SETS

SEQ 0044

:.'Q'Qt'tt.'t'.tlt.QQ'QQ"."Qt.t.'t"..'t.tt'.'tt'Qt'th'tttt'.tt.

SeTEST 31
B2

007466
007470
007476
007504
007512
007516
007522
007524
007526
007530
007536
007544
007546
007552
007560
007564
007566
007572

000004

012737
012777
052777
013700
105777

1004611

005300
001373
017737
012737
104014

005777
017737

172222

000200

172210
172200

105737

001126

005037

001124

104014

7$7T31:

000040
004000
000001
002010
172234

VERIFY JOYSTICK DONE FLOP SETS

2222222232322 22233332232223222222222232322222222222322222222R8
2R X2 ]

SCOPE

MOV
MOV

#60,8TIMES
#CLRALL .@SFR

TSTB

aSFR

BIS
MOV

*REQUEST JOYSTICK DATA
*LOAD DELAY COUNTER

‘WAIT FOR JOYSTICK READY

8M]
DEC

23
RO

‘BR IF SET
*DELAY

MOV

#R1T7, $GDDAT

*LOAD EXPECTED

BNE
MOV

001126
001124

#REDJOY .RSFR
CPUDL1,RO

::DO 40 ITERATIONS
:CLEAR THE DEVICE

ERROR

18
aSFR, SRDDAT

:BR IF NOT EXHAUSTED
*READ STATUS

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

001126

3JOY

MOV

aSFR, $SADDAT

B8PL

1ST32

TSTB

CLR

ERROR

:ADDRESS THE REGISTER
SREAD STATUS

$BDDAT

;:BR ]F

$GDDAT

“TEST

YES

THE BIT

CLEARED

:LOAD EXPECTED

"ADDRESSING THE JOYSTILK ADDRESS FAILED TO CLEAR

. t't..l't.tt'.tt'.t'..t'.t..Qt..t.t't."t'tfit.'ttt.'t'..'"t".'

SaTEST 32
B2

007574
007576
007604
007612
007620
007624
07630
007632
007634
007636
007644
007652

000004
012737
012777
052777
013700

007654
007662
007670
007676
007704
007706

052777
017737
012,37
023737
001601

007710

0000C5

007712
007720
007726
00773

007736

105777

017737
012737
104014

001160

002010
172126

001401

106074

172144
172136
1$:

17970
000200

VERIFY
222332

THAT "RESET'' INSTRUCTION CLEARS THE
X322

JOY READY F(LOP

322222222 222322323322332222222
222232 %2 Q]

SCOPE
MOV
MOV
BIS
MOV

#60,8TIMES
#CLRALL . @SFR
#REDJOY ,@SFR
CPUDL1,RO

BM]
DEC
BNE
MOV

2
RO
13
aSFR,$BDDAT

‘BR IF SET
.DELAY
*BR IF NOT EXHAUSTED
SREAD STATUS

ERROR

$JOY READY FAILED TO SET

BIS

#CLRALL .@SFR

:GENERATE 'CLR ALL'"

MOV

#BIT7,SGDDAT

:LOAD EXPECTED VALUE

S:BR IF

TSTB

MOV

000200

@SFR

::DO 40 ITERATIONS
:CLEAR THE DEVICE
*REQUEST JOYSTICK DATA
*LOAD DELAY
‘WAIT

#8177, $GDDAT

FOR

JOYSTICK

READY

*LOAD EXPECTED VALUE

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

MOV

cMP

Cl1124

BEQ

aSFR, SBODAT

$GDDAT, $BDDAT

SREAD STATUS

: COMPARE

SAME

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

104014

017737
012737
017737

1ST32:

172114

004000

2222232222222

172040

000000
172024

RESET

MOV
MOV
MOV

3SFR,SBDDAT
#0.$GDDAT
aSFR, SBDDAT

ERROR

BEQ

1573%

:BUS “'INIT'

SREAD STATUS
:LOAD EXPECTED
“READ STATUS

:;BR If CLEARED
JBUS

INIT FAILED TO CLEAR JOY READY

NCv*?
(INCCB
CINCCB P

DIAGNOST IC

31-AUG-79 1M:21

Y
MACT

306(1063)
31-AUG-79 13:10 PAGE 24
732
VERIFY THAT "RESET'" INSTRUCTION CLEARS THE JOY READY F_OP

SEQ 0045

873

874

':l"'.Q.'Q.".'t.......""t'.'filQ.'Q'.tt"".t't'tt".'.t""Qt

LeTEST 33

(3)

000004
012737
012777
012777
012777
952777

[V,
Nt

d
W

)

N
N

e
W

017737
012737
023737
001401

N
N

-‘NWWB\I\J\J
NAGRORR,
1o BNTeN

—

~D00 000 e N

)

105777
100375

(2)
(1)

~ o~~~

v S W

—D

D
N

o e
== v "
N

171752

TST33:

GAIN =0

7B FNABLE

RES.

000010
004000
000014
002000
000001
171656

017737
012737
023737

171654
124250
001124

010124
010126

001401
104015

SCOPE

[ 01Y)

#10,8TIMES

MOV
MOV

#TSTCON'!'TSTDMA ,@SFR
JSET TEST CONTROLLER FLOP
#0,8(CSR
;LOAD (SR REGISTER

MoV

18:

171750
000000
001124

000004
012737
012777
012777
012777
052777
105777
100375

b
W

000010
004CN0
000014
000000
000001

#CLRALL ,8SFR

BIS

;STB
L

MOV
cMP
BEQ
ERROR
R

JTEST

TST34:

JCLEAR THE DEVICE

#REDJOY ,BSFR

JREQUEST JOYSTICE CATA

8J0Y,$8DDAT

JREAD THE REGISTER

#0,$GDDAT
SGDDAT ,$8DDAT
TST34
15
T

JWAIT FOR JOYSTICE

SCOPE

#M0,STIMES

MOV
MOV
8IS

#TSTCON!TSTDMA,QSFR
#2000,8CSR
#REDJOY ,aSFR

MOV
MOV
cMP

BEQ
ERROR

GAIN =1
L

MOV

Erys;re
L

#CLRALL ,a8SFR

TST35
15

;D0 10 ITERATIONS

;CLEAR THE DEVICE

JSET TEST (ONTROLLER FLOP
;LOAD (SR REGISTER
JREQUEST JQYSTICE DATA

?gm

@JOY, $8DDAT
#126250, SGDDAT
$GDDAT, $BDDAT

READY

JLOAD EXPECTED
. COMPARE
;;BR IF SAME
;JOYSTICK DATA PATH BIT SET

JOYSTICK DATA PATH
T

MOV

1$:

::D0 10 ITERAT]IONS

?gFR

MOV

104015

T
W

—d ok

JOYSTICK DATA PATH

';.Q"".QQ'.'........'.."t..t."l..'.fi'.'..'tt.t..tt'tt..tttt.t

"WAIT

;:BR IF

FOR JOYSTICE

READY

;READ THE REGISTER
*LOAD EXPECTED
* COMPARE

SAME
SJOYSTICK DATA PATH ERROR

STEST 35

Nt \ ) = N

—2 NINN

Nt N
N
N

Ny
X
T
N

Nt N
N

—

b md b b

NN~

;;t.'.fi.'fi"'...'t.tfitt.Q.'l!"'ttlt'l't'.t!'tttt'.t't.t't't""t

JOYSTICK DATA PATH

2B ENABLE -1

;;"fi'Qt".tt."'..Qtt"tt"t.fi!tt..t""t"!l'tttit'fi."ttttt't-

010130
010132
010140
010146
010154
010162
010170
010174
0°0176
010204
010212
010220
010222

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

000010
004000
000014
004000
000001
171562
171560

050120
001124

T87135:

1%:

SCOPE

MOV
MGV
MOV
MOV
BIS

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
#TSTCON' TSTDMA,@SFR
*SET TEST CONTROLLER FLOP
#6000, 3CSR
*LOAD CSR REGISTER
#REDJOY ,aSFR
*REQUEST JOYSTICE DATA
?EFR

;WAIT

MOV

aJ0Y ,SBDDAT

JREAD THE REGISTER

;278
L

MOV
cMwP
BEQ
ERROR

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

;;BR [F

FOR JOYSTICE

READY

JLOAD EXPECTED
. COMPARE
SAME
;00YSTICK DATA PATH FRROK

000

CINCCB NCVIT
CINCCB.P1T

2323222232322

SaTEST 36

PAGE 25
RES. = 001

2323232323222323222222232222

SEQ 0046

2228022220222

JOYSTICK DATA PATH

RES. = 001

RRRRlRRRRRRR)

\J\lg-‘o
OSSO

H &=

b
b
e
—b

b
e
b

NNNW

—

T$T36:

NN
[0 2 S0

-—
2

SCOPE

MOV

#10,STIMES

MOV

#23,3CSR
#REDJOY ,RSFR

;LOAD (SR REGISTER
JRFQUEST JOYSTICE DATA

MOV

aJ0Y,S8DDAT

JREAD THE REGISTER

8EQ
ERROR

TST37
15

MOV
MOV
18:

———

012737
012777
012777
012777
052777
105777
100375
017737
012737
023737
001401

333

010250
010256
010264
010270
010272
010300
010306
010314
010316

000004

]

'"Qttttttttttt.tt!'t.ttttttttttttttQ'tt.tttttt'tttttttt-t'ttt't'-

010224
010226
010234
010242

8IS

égTB
L

MOV
cMP

104015

;.00 10 ITERATIONS

#CLRALL ,aSFR
#TSTCON!TSTDMA ,aSFR

oCLEAR THE DEVIC(CE
JSET TEST CONTROLLER FLOP

?gFR

#4071 ,$GDDAT
S$GDDAT , $BDDAT

JWAIT FOR JCYSTICE READY

;LOAD EXPECTED
. COMPARE
::BR IF SAME

;JOYSTICK DATA PATH ERROR

';ttt"tt.fifi'fiit'ttltttififitfifi.Qtt.tittt.t't.t.ttt"ttt""".'.i'

L«TEST 37

JOYSTICK DATA PATH

RES. = C10

NN=NO
NS NOO

b
b
— e

NN
=

3
s

#10,STIMES

MOV
BIS

#25,aCSR
#REDJOY,aSFR

ggTB
L

MOV
MOV

[o 93¥08

b ——
—

SCOPE

MOV

MOV
MOV

012737
023737

TST37:

1%:
b
—
b

105777
100375
017737

012777
012777
012777
052777

000004
012737

NNNN

010329

—d

::tittttt'ttt..fi*fitt.ttfiQttttttt'ltlt'ttttt"tt'tt't.t'tttt'.tt.'

e
d

N
P Nt

nd ood e

N
Nt N

s\ N
o
s Nt N
W
N’ W

i e
d

NN
N

b e

NN
PN

—ed

Nt o N

BISGEEB3

W —d N

NN
PN

—d el

DIAGNOSTIC

31-AUG-79 11:21

283

889
(3
(3)
(2)

30G(1063)
31-AUG=79 13:10
136
JOYSTICK DATA PATH

W
3EQ
ERROR

001401
104015

;.20 10 ITERATIONS

#CLRALL ,aSFR
#TSTCON!TSTDMA,aSFR

;CLEAR THE DEVICE
sSET TEST CONTROLLER FLOP

?gFR

JWAIT FOR JOYSTiCE READY

sLOAD CSR REGISTER
JREQUEST JOYSTICE DATA

aJOY,$SBDDAT
#1002,3GDDAT

$GDDAT , $8DDAT
TST40
15

JREAD THE REGISTER
JLOAD EXPECTED

;;BR [F

. COMPARE
SAME
;JOYSTICK DATA PATH ERROR

::"t'.fi'fit'fittitt!ttlt!t'tt.'lttt"i.*t.ti.i'fit"ttfit.t‘ttt"'!‘

J*TEST 40

JOYSTICK DATA PATH

RES. = 10C

d
o
—

WWWWN—

008

104015

— ——

—
b = O
NNNNO

017737
012737
023737
001401

7$140:

-—

noroN
[o X 2V N

=2
-

—_—

100375

v W

88
N =2 " " W

=D o

2 N

b
b
d
b
b

NN PN PN PN
PN

000004

012737
012777
012777
012777
052777
105777

OO =TM
nNOONSO

';tittifitttttt'ttt.*'fitfiQ.'it't.lfittttt..ltt'itt'Qfififittttfitt"t'.

SCOPE

MOV

MOV
MOV
MOV
8IS
égTB

#10,8TIMES

:;D0 10 ITERATIONS

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

;CLEAR THE DEVICE
;SET TEST CONTROLLER FLOP
:LOAD (SR REGISTER
;REQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

MOV
MOV

aJOY,$8DDAT
#2004 ,$GDDAT

JREAD THE REG]STER
;LOAD EXPECTED

BEQ
ERROR

TST41
15

cTMMP

$GDDAT ,$BDDAT

J;BR IF

; COMPARE

SAME
;JOY STICk DATA PATH FRROR

RFS.

| CINCCB

NCVINT
DIAGNQSTIC
CINCCB.P1T
31-AUG-79 11:21

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 26
T41
VERIFY THE DATA INCREMENT FUNCTION

907

IR AN AR

JxTEST 41

(3)

010510
010512
010520
010526

000004
012737
012777
012777

000010
004000
000014

001160
171230
171222

(1)

010542

052777

000001

171206

01053

012777

(1)
(1)
(1)

010550
010554
010556

105777
100375
017737

909
g}?

010600
010602

001401
104016

(1)
(1)

010564
010572

012737
023737

000421

171202
171200

000401
001124

MOV
cmP

BEQ
ERROR

AR AR RARAN AR RN TR NG Rttt

#4621 ,3(CSR

:LOAD CSR REGISTER

aSFR
13
aJOY,$8DDAT

JWAIT FOR JOYSTICE READY

#6401 ,3GDDAT
$SGDDAT, $8DDAT
TST42
16

;REQUEST JOYSTICE DATA

JREAD THE REGISTER

;LOAD EXPECTED
. COMPARE

;¢BR IF S-ME
CMAINT, CAMOT

FAJLED TO INCREMENT DATA REGISTER

".‘tt.i'tttttt'ttttttt'.tt‘t'tlttttthfititttttttt'tt.tt'tt't't.tt'

;J*TEST &2

010604
010606
010614
010622
010630
010636
010644
010650
010652

010660
010666
010674
010676

000004
012737
012777
012777
012777
052777
105777
100375
017737

012737
023737
001401
104016

000010
004000
000014
002437
000001
171106

001160
171134
171126
171110
171112

171106

001126

130260
001124

TST42:

SCOPE
MOV
MOV
MOV
MOV
BIS
TST8
BPL
MOV

1$:

001124
001126

MOV
tMP
BEQ
ERROR

J*TEST 43

(2)
(1)
919

010700
010702
010710

000004
012737
012777

(1)
(1)
(1)
(1)
(1)

010724
010732
0107640
010744
010746

012777
052777
105777
100375
017737

010716

010754

010762
010770
010772

012777

012737

023737
001401
104016

000010
004000
000014
006437
000001
171012

001160
171040
171032
171014
171016

171010

001126

001124

00112¢

177777

001124

VERIFY THE DATA INCREMENT CARRY BIT

AR AR R AP AR RN

(1)
920
921
922

NA NN AN RN RN A AN NAANN RN RN

#REDJOY,RSFR

(1)

VERIFY THE DATA INCREMENT FUNCTION

BIS

918

(1Y

RN AR E RN AN A RA ST E R TR AN IR TS aatneans

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON! TSTDMA,aSFR
JSET TEST CONTROLLER TLOP

75718
BPL
MOV

001124
001126

3}9

1%:

AR AN AR AR AR TN AN R

SEQ 0047

SCOPE
MOV
MOV
MOV

MOV

001126

(3)

(1)
(1)
914
915

TST41:

171204

912

(2)
(1)
913
(1)
(1)
(1)
(1)
(1)
(1)

(2)
(1)
908
(1)

(1)

—_

TST43:

S$SGDDAT , $BDDAT
TST43
16

..BR IF

. COMPARE

SAME
;MAINT.

CAMO1 WITH RES.=7. G 1,28

R A NR AN AR

RN ANARA RN AR

RN EN O S

NI AR AR AR

AR AR RN

IR TS

MOV
BIS
TSTR
BPL
MOV

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON! TSTDMA ,aSFR
JSET TEST CONTROLLER FLOP
#6437 ,3CSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
aSFR
;WAIT FOR JOYSTICE READY
1%
oJOY _ SBDDAT
JREAD THE RFGISTER

(MP
BEQ
£RROR

$GDDAT ,$BDDAT
TST44
16

MOV

#177777,SGDDAT

JFAILED TO CAUSE DATA INCREMENT CARRY PROPERLY

VERIFY THE DATA INCREMENT FUNCTION IS INHIBITED

AN AR AN AN AR

SCOPE
MOV
MOV

RN R RN R RN AR NN

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
#TSTCON! TSTDMA ,aSFR
sSET TEST CONTROLLER FLOP
#2437 ,8CSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
aSFR
JWAIT FOR JOYSTICE READY
1%
aJOY,$BDDAT
JREAD THE REGISTER
#130260,8GDDAT
;LOAD EXPECTED

A N R AN AR AR A AR AR R AR

MOV
18:

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

JLOAD EXPECTED

. COMPARE
;.BR |5 SAME
JFAJILED TO INHIBIT DATA INCREMENT FUNCTION
;IF THE BAD DATA WAS O

CINCCB NCV11 _ DIAGNOSTIC
CINCCB.P1T
31-AUG-79 11:21

MACY1] 3?221063)

924

(3)

S*TEST 44

(3)

(2)
(1)
925
(1)
(1)
(1)
(1)
(1)
(1)
(1)

010774
010776
011004
011012
011020
011026
011034
0110640
011042
011050

000004
012737
012777
012777
012777
052777
105777
100375
017737
012737

926
927
ggg

011064
011066

001407
104017

(1)

AR AR

011056

023737

000010
004000
000014
001023
0000017
170716

001160
170744
170736
170720
170722

170716
000000

001126
001124

001124

TST44:

1%:

001126

(1)
932
ggz

011152
011160
011162

023737
001401
104017

(1)

011144

012737

000010
004000
000014
007037
000001
170622

001160
170650
170642
170624
170626

170620

001126

001124

001126

177376

TST4S:

1%:

001124

$SGDDAT ,$8DDAT

AR AN

NN AR

(1)
(1)
(1)
(1)
(1)
(1)

937
938
939

011216
011226
011230
011232
011260
011246

011254

011256

052777
105777
100375
017737
012737
023737

001401

104017

000010
0046000
000014
001021
0000017
170526

001160
170554
170546
170530
170532

170526
000000
001124

001126
001124
001126

TST46:

1%:

T RN AR O,

R AR AN

; COMPARE

RN R R AN AR AR

RN R

RN R R AN RN AR

AN R A AN AR AR R RN RN

RN N

AR AN R RN NN

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
JSET TEST CONTROLLER FLOP
#7037 ,aCSR
-LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
aSFR
JWAIT FOR JOYSTICE READY
19
aJ0Y _ $SBDDAT
JREAD THE REGISTER

tMmP
BEQ
ERROR

SGDDAT ,$BDDAT
TST46
17

#177376.$GDDAT

J*TEST 46
000004
012737
012777
012777
012777

E RS RN

SCOPE
MOV
MOV
MOV
MOV
8IS
TSTR
8PL
MOV

3)
011164
011166
011176
011202
011210

VERIFY THE DATA DECREMENT BORROW

RN TR ARAAR N AR

(2)
(1)
936
(1)
(1)

RN R R AN R R

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

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

MOV

R OAN R RN R RA N ORI C RN NNV

VERIFY THE DATA DECREMENT FUNCTION

R R AR AN R R AR TN R AR AN R R

93§

(3)

A AN RN AR

TST4S
17

(MP

J=TEST 45

000004
012737
012777
012777
012777
052777
105777
100375
017737

R AN R R AR O N TN R AN

BEQ
ERROR
AR AR AR

011070
011072
011100
011106
011114
011122
011130
011134
011136

#10,8TIMeS
;.00 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
JSET TEST CONTROLLER FLOP
#1023,aCSR
;LOAD (SR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
aSFR
JWAIT FOR JOYSTICE READY
1%
aJ0Y,$BDDAT
JREAD THE REGISTER
#0,8GDDAT
;LOAD EXPECTED

(3)
(2)
(1)
931
(1)
(1)
(1)
(1)
(1)
(1)

SEQ 0048

SCOPE
MOV
MOV
MOV
MOV
BIS
TS18
BPL
MOV
MOV

930

31-AUG-79 13:10 PAGE 27
VERIFY THE DATA DECREMENT FUNCTION

;LOAD EXPECTED

. COMPARE
;:BR IF SAME
;DECREMENTED DATA ERROR

AR RNNANANARANAR RN RN

AR AR RNRRRRENRR

VERIFY THE DATA DECREMENT FUNCTION IS INHIBITED

AN AR R NN A RARNR AR RN AR AR AR R AR R RSN AN AR

SCOPE
MOV
MOV
MOV
MOV

AR NRRNRNANRANAAN R RN RN

BIS
T1ST8B
8PL
MOV
MOV
CMP

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON! TSTDMA,aSFR
JSET TEST CONTROLLER FLCP
#1021 ,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
JREQUEST JOYSTICE DATA
oSFR
JWAIT FOR JOYSTICE READY
13
aJOY ,$BDDAT
JREAD THE REGISTER
#0,SGDDAT
;LOAD EXPECTED
$GDDAT , $BDDAT
. COMPARE

ERROR

BtQ

T1ST47

..BR IF SAME

JINHIBIT DECREMENT FUNCTION ERROR
;1F DATA WAS 177777

DIAGNOST 1C
CINCCB NCVIT
CINCCB.PI1
31-AUG-79 11:21

MACYT11

956
(4)
(4)

(3y
(2"
(1)
(1)
(1)
(1)
(1)
(1)
1)
(1)
(1)
(3)

(1)
1)

(3)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(3)
(1)

(1)

(3)
(2)
(1)
(1)
(1)
(1)
(1)

(1)
(1)
(1)

(1)
(3)
(})

13:10

TEST ADDRESS MAKER

PAGE 28
-

MATRIX MODE - RES = 7 GAIN - 0 ZB ENABLE

SEQ 0049

';t'ttt.ttti!ttt"ttttt"'!'ttt.fii'ttttt't't't'ttfi'ttfitltt.ttttt'

TEST ADDRESS MAKER

MATRIX MODE - RES = 7 GAIN - O ZB ENAB.E - 0

‘:t'tt"ttttt't't.t*'tikttlttifittlfititt"t.ttt't'tt'tttttttt'ttt'

011260
011262
011270
011276
011304
011312
011320
011326
011334
011342
011350
011356
011360

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

001160

T§T47:

170460
170452

170434
170436
170420
170422
001126
001124
001126

104020

SCOPE

MOV
MOV
MoV
MOV

BIS
BIS
BIC

MOV

#10,STIMES
#CLRALL ,aSFR

;:D0O 10 ITERATIONS
;CLEAR DEVICE
#TSTDMA! TSTCON,aSFR
JSET "TEST DMA AND CONTROL''
#36,aCSR
;LOAD RESOLUTION, GAIN, 2B ENABLE VALUE

W#TESTZ,aSFR
#R]T0,aCSR
NTESTZ,3SFR

JENABLE '‘TEST 2'' PULSES
JSET ENABLE NCV11
;DISABLE 'TEST Z'' PULSES
*READ THE ADDRESS DATA MAKER
sLOAD EXPECTED VALUE

aADM SBDDAT

MOV

#3407, $GDDAT

BEQ
ERROR

TSTS0
20

cMP

$GDDAT ,$8DDAT

;COMPARE EXPECTED TO READ

;sBR IF SAME
;INCORRECT ADDRESS MAKER DATA

RESOLUTION = 7

GAIN = 0

7B ENABLE = 0

:;tttttttttttttttttfitttttttktttttttfitttttttttttttfitt'tttttittittt

;*TEST

TEST ADDRESS MAKER

MATRIX MODE - RES - 7 GAIN = 1

7B ENABLE

;:tt'tttttitttt*tttttttt't'ttt*ttt!tfit'ttttttttttttittttttttttttt

011362
011364
011372
011400
011406
011414
011422
011430
011436
011444
011452
011460
011462

000004

012737
012777
012777
012777
052777
052777
042777
017737
012737
023737

001160
170356
170350
170332
170334
170316
170320
001126

TSTS50:

001401

104020

SCOPE

MOV
MOV

#10,$TIMES
#CLRALL ,aSFR

BIS

W#TESTZ,aSFR

MOV
MOV
BIS
8IC

MOV

001124
001126

MOV

cMP

B8EQ

;

958
(4)
(4)

147

31-AUG=79

STEST 47

957
(4)
(4)

306(1063)

ERROR

NTSTDMA! TSTCON,aSFR
#2036,aCSR

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

#8170,8CSR
#TESTZ,aSFR

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

JENABLE '‘TEST 2'' PULSES

AADM, SBDDAT

JREAD THE ADDRESS DATA MAKER

#127657 ,3GDDAT
$GDDAT , $8DDAT

TST51

AR AR AR AR AN AR AN

;*TEST 51

;:D0 10 ITERATIONS
;CLEAR DEVICE

AN R

;LOAD EXPECTED VALUE

. COMPARE EXPECTED 7O READ

;:BR IF SAME

RESOLUTION = 7
A R AN N R AN R

TEST ADDRESS MAKER

;- INCORRECT ADDRESS MAKER DATA

GAIN = 1

R NN N R

7B ENABLE = 0

AAN

RN RN RN NS

MATRIX MODE - RES = 7 GAIN

:;ttttttttt"tt*fitit'*Rttttttttifi*ttitiifi"fiitfi.'t'tilttttfitttttt

011464
011466
011474
011502
011510
011516
011524

011532
011540
011546
011554
011562
011564

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

104020

170214

053527
001124

001160
170254
170246
170230
170232
170214
170216
001126
001124
001126

TST51:

SCOPE
MOV
MOV

#10,STIMES
#CLRALL ,aSFR

BIC

#TESTZ.,aSFR

MOV
MOV
RIS
BIS
MOV

MOV

CMP

BEQ

ERROR

(0 7B ENABLE

;:DO 10 ITERATIONS
;CLEAR DEVICE

#TSTDMA!TSTCON,aSFR
#4036, aCSR
#TESTZ,aSFR
#81T0,3CSR

;SET "'TEST DMA AND CONTROL''
*LOAD RESOLUTION. GAIN, ZB ENABLE VALUE
“ENABLE “TEST 2" PULSES
*SET ENABLE NCV11

BADM, SADDAT

*READ THE ADDRESS DATA MAKER

#053527 . SGCOAT
$GDDAT, $BDDAT

TSTS52

*DISABLE "TEST 2'* PULSES
SLOAD EXPECTED VALUE

. COMPARE EXPECTED TO READ

:;BR IF SAME

RESOLUTION = 7

. INCORRECT ADDRESS MAKER DATA
GAIN
0
2B ENABLE
1

CINCCB NCV11 _ DIAGNOSTIC
CINCCB.P1T
31<AUG-79 11:21

MACY 1T 3?6(1063)
31-AUG=79 13:10
§2
TEST ADDRESS MAKER

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

""ttttfittttt't'tttttttttt*tttttttttttttttt'ttttttttttt.tttttttttt

(%)

S*TEST 52

(l.)

011566
011570
011576
011604
011612
011620
011626
011634
011642

000004
012737
012777
012777
012777
052777
052777
042777
017737

(1)
(3)
(1)
1)

011656
011664
011666

023737
001607
104020

000010
004000
000014
000034
000002
000001
000002
170112

001160
170152
170144
170126
170130
170112
17011.
001126

001124

001126

611670
011672
011700
011706
011714
011722

000004
012737
012777
012777
012777
052777

000010
004000
000014
002034
000002

001160
170050
170042
170024
170026

(1)
(1)

011736
011744

042777
017737

000002
170010

170012
001126

001124

001126

011730

011752

011760
011766
011770

052777

012737

023737
001401
104020

000001

053656

7ST53:

170010

#10,8TIMES
;:DO 10 ITERATIONS
#CLRALL . @SFR
:CLEAR DEVICE
.
#TSTOMAI TSTCON,aSFR
“SET '‘“TEST DMA AND CONTROL
#34,aCSR
:LOAD RESOLUTION, GAIN, 7B ENABLE VALUE
#TESTZ,3SFR
*ENABLE 'TEST 2'* PULSES
#81T0,3CSR
*SET ENABLE NCV11
#TESTZ,aSFR
*DISABLE ""TEST 2'' PULSES
aADM, $BDDAT
JREAD THE ADDRESS DATA MAKER

#1406, $SGDDAT

*LOAD EXPECTED VALUE

$GDDAT, SBDDAT
*COMPARE EXPECTED TO READ
TSTS3
J:BR IF SAME
20
- INCORRECT ADDRESS MAKER DATA
RESOLUTION = 6 GAIN = 0 2B ENABLE - 0
AR

MATRIX MODE - RES = 6 GAIN

AN A RNAARR RN R AN ANRRNR AN

7IB ENABLE

SCOPE
MOV
MOV
MOV
MOV
BIS

#10,$TIMES
;:DO 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR DEVICE
N#TSTDMA!TSTCON,aSFR
JSET ‘°TEST DMA AND CONTROL''
#2034 ,3CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
JENABLE "TEST 2'' PULSES

BIC
MOV

#TESTZ,aSFR
aADM, SBDDAT

MOV
;

TEST ADDRESS MAKER

AN AR AR AR R AR NN R AN AR

BIS

001124

o, o
8EQ
ERROR

#81T0,3CSR

:SET ENABLE NCV11

#53656, $GDDAT

*LOAD EXPECTED VALUE

*DISABLE "TEST Z'' PULSES
;READ THE ADDRESS DATA MAKER

$GDDAT ,$BDDAT
;COMPARE EXPECTED TO READ
TSTS4
J:BR IF SAME
20
:INCORRECT ADDRESS MAKER DATA
RESOLUTION = 6
GAIN = 1
2B ENABLE = 0

";ttttttttttltfi*ttt'!lt"*ttttt.ttttttttttttttt'fi't!t'tttttttttfit

J«TEST 54

(l.)

TEST ADDRESS MAKER

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

,' "ttttttttt'tttt.tttttttttttttttttttttttttttttiittt'tttttitttttlt

(3)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

011772
011774
012002
012010
012016
012024
012032
012040
012046

000004
012737
012777
012777
012777
052777
052777
042777
017737

(1)
(3)

012062
012070

023737
001401

(1)
&b

(MP
BEQ
ERROR

;*TEST 53

(3)
(2)
(1)
(1)
(1)
(1)

(1)

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

:.'tttttt*ttt*ttttttttttitttttittttt**fitttttt*tt'tttfit'ttttitfittt'

(1)

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

MOV

(4)

(1)
(3)
(1)
1)

TSTS2:

011650 012737 001406 001124

(1)

'- .'ttfittttt'tttt't!ittttttttttttfifittfi't*i'tttttttktt'ttt'tttttttlt

(3
(2>
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)

TEST ADDRESS MAKER

SEQ 0050

012054

012072

012737
104020

000010
004000
000014
004034
000002
000001
000002
167706

001160
167746
167740
167722
167724
167706
167710
001126

001124

001126

125526

1ST54:

001124

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,STIMES
::DO 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR DEVICE
#TSTDMAI TSTCON,aSFR
“SET 'TEST DMA AND CONTROL'
#6034 ,3CSR
*LOAD RESOLUTION. GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
*ENABLE "TEST Z2'*'PULSES
#81T0,3CSR
:SET ENABLE NCV11
#TESTZ.@SFR
*DISABLE 'TEST Z'* PULSES
2ADM SBDDAT
*READ THE ADDRESS DATA MAKER

MP
BEQ

$GDDAT, $8DDAT
TSTSS

MOV

ERROR

#125526 ., SGDDAT
20

*LOAD EXPECTED VALUE

;:BR IF

RESOLUTION - 6

*COMPARE EXPECTED TO READ
SAME
;INCORRECT ADDRESS MAKER DATA

GAIN = 0

7B ENABLE

CINCCB

NCV11 _ DIAGNO S T%g

CINCCB.PN

31-AUG-79

MACYN 3??;1063)

31-AUG=79 13:10
TEST ADDRESS MAKER

PAGE 30
- MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = 0

N .'t'fi'Qt'fii'ttQt'fifit'fit't"'tt"fit'fi"fi't"t'tlit"tfittti"tttt.t

(4)

ITEST 55

(‘)

(3)
(2)
(1)
(1)
(1)
(1)
(1)
(1)

012076
012076
012106
012112
012120
012126
012136
012142

000004
012737
012777
012777
012777
052777
052777
042777

(1)
(3)

012164
012172

023737
001401

(1)
(1)

(1)

0000°0
004000
000014
000032
000002
000001
000002

001160
167644
167636
167620
167622
167604
167606

001124

001126

012174

104020

000004
012737
012777

000010
004000

001160
167542

(1)
(1)
(1)
(1)

012230
012236
012244
012252

052777
052777
042777
017737

000002
000001
000002
167502

167520
167502
167504
001126

001124

001126

012214
012222

012260

(1)

012266

(1)
(1)

0122726

012274

012777
012777

012737

023737

001401

000014
002032

025526

1§156:

167534
167516

$GDDAT , $8DDAT
TSTS6

ERROR

:READ THE ADDRESS DATA MAKER
{LOAD EXPECTED VALUE

:COMPARE EXPECTED TO READ
:;BR IF SAME

RESOLUTION = 5

TEST ADDRESS MAKER

104020

SCOPE
MOV
MOV

#10,8TIMES
#CLRALL ,@SFR

BIS
BIS
BIC
MOV

#TESTZ,aSFR
#81T0,aCSR
#TESTZ,aSFR
@ADM, $BDDAT

MOV
MOV

001124

MOV
CMP

BEQ
;

: INCORRECT ADDRESS MAKER DATA

GAIN = 0

ZB ENABLE = 0

MATRIX MODE - RES = 5 GAIN - 1

ERROR

7B ENABLE = 0

;D0 10 ITERATIONS
: CLEAR DEVICE

#TSTDMA! TSTCON,@SFR
#2032,aCSR

SET ''TEST DMA AND CONTROL''
:LOAD RESOLUTION, GAIN, 7B ENABLE VALUE

#25526,$GDDAT

:LOAD EXPECTED VALUE

$GDDAT , $8DDAT

TSTS57

:ENABLE ''TEST 2'*'PULSES
$SET ENABLE NCV11
:DISABLE '"TEST Z'* PULSES
:READ THE ADDRESS DATA MAKER
:COMPARE EXPECTED TO READ

;:BR IF SAME

RESOLUTION = S

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

g "*t.tQtQfi'ttfit'tfit't'tfifit'fit"fiittt*tttfitfi'ttifittfitfifi'fifit*.t!t't

(4)

%TEST 57

(l.)

TEST ADDRESS MAKER

MATRIX MODE - RES = 5 GAIN - 0 ZB ENABLE

".'ttItQ*ttt*tttfittt'.ttttt**ttfit'tttfitt't'tfitt*"ttittttttttttttt

(3)
(2>
(1)
(1)
(1)
(1)
(1)
(1)
(1)

012300
012302
012310
012316
012324
012332
012340
012346
012354

000004
012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
004032
000002
000001
000002
167400

001160
167440
167432
167414
167416
167400
167402
001126

(1)

012370

023737 001124

001126

012400

104020

(1)
(M

cMP
BEQ

@ADM, SBDDAT
#4602, $GDDAT

;"tfifittttt*ttltttttt*fi'fi*'ittfi*fiit***fifi*fifi'tt*t'tfit'titittifiti'tfi

012176
012200
012206

(3)

0 ZB ENABLE = 0

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
; CLEAR DEVICE
3
#TSTDMA' TSTCON,aSFR
SSET "TEST DMA AND CONTROL
#32,3CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
NTESTZ @SFR
(ENABLE "TEST 7'"PULSES
#8170,aCSR
:SET ENABLE NCV11
#TESTZ,aSFR
:DISABLE 'TEST Z'* PULSES

S*TEST 56

(3)
(2)
(1)

(1)

MATRIX MODE - RES = 5 GAIN

".'ttttttfittttflttl'tkttittittfititttl‘tttitt'fit.fifiit'fifitflfi'tiit'tttt

(4)

(3)

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC

MOV
MOV

;

(4)

(1)

78§755:

012150 017737 167604 001126
012156 012737 000402 001124

(1)
(1)

TEST ADDRESS MAKER

""t'tt'ttt'tt'*'t"it*tflQ'Qfit'fi*"fi.*"'tfit.ltttttit'fi't.fiti'ttfit

SEQ 0051

012362

012376

012737

001401

052452

1§7157:

001124

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV

#10,STIMES
::DO 10 ITERATIONS
#CLRALL , @SFR
; CLEAR DEVICE
#TSTDMA! TSTCON,aSFR
:SET "“TEST DMA AND CONTROL''
#4032,8CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
:ENABLE ‘“TEST 2'“PULSES
#81T0,aCSR
:SET ENABLE NCV11
#TESTZ,aSFR
:DISABLE '"TEST Z'' PULSES
@ADM, $BDDAT
:READ THE ADDRESS DATA MAKER

CMP

$GDDAT , $SBDDAT

MOV
BEQ

;

ERROR

#52452, $GDDAT
TST60

:LOAD EXPECTED VALUE

;;BR IF

RESOLUTION = 5

*COMPARE EXPECTED TO READ

SAME

; INCORRECT ADDRESS MAKER DATA
GAIN - O
2B ENABLE
1

- 1

CINCCB NCVI
CINCCB PN

DIAGNQSTIC

31-AUG-79 11:21

MACY11 30G(1063)
160

968

NSNS
A~AO PN NN
R

)

DD BN
_l—lw—l—l—l_l—l—d—‘—l_l NWS SN A DN
Nt Nl Nt o Nt N
ot o/ N N
N
O " N Nt N W o o N N N N N N v o o

13:10

TEST ADDRESS MAKER

PAGE 31
-

MATRIX MODE ~ RES = 4 GAIN = 0 ZB ENABLE = 0

';'ttQ'tQittitttfi!fit.tt.t't'ttit'ttii'ttt.tt'ttt.tt.t'ttt'tt.Qttt

;*TEST 60

TEST ADDRESS MAKER

MATRIX MODE - RES = 4 GAIN

':lfit'tttttfi"tttfitttt'tt"fifitttfitfi.tttfitt'ttttttt'tt"t.t'ttttt'

012402
012404
012412
012420
012426
012434
012442
012450
012456
012464
012472
012500
012502

000004

012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

167276

000202
001124

001160
167336
167330
167312
167314
167276
167300
001126
001124
001126

104020

t§760:

SCOPE

MOV

#10,$TIMES

MOV
MOV
BIS
BIS
BIC

#TSTDMA! TSTCON, aSFR
#30,aCSR
#TESTZ ,aSFR
#81T0,aCSR
#TESTZ,aSFR

MOV

NN PN

b N D d D e

N PN PN SN

D d

N PN PN

N N N N S N N N S N NS Nt

NN ~

b AN W

(4)
(4)

31-AUG=79

MOV
P
BEQ
ERROR

#CLRALL ,@SFR

@ADM, SBDDAT

#202,$GDDAT
$GDDAT, SBDDAT
TST61
20

0 7B ENABLE

;:DO 10 ITERATIONS

; CLEAR DEVICE

SET '‘TEST DMA AND CONTROL''
:LOAD RESOLUTION, GAIN, 28 ENABLE VALUE
ENABLE 'TEST 7'* PULSES
SET ENABLE NCV11
:DISABLE "TEST 2'* PULSES
READ THE ADDRESS DATA MAKER

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

RESOLUTION = 4

GAIN = 0

78 ENABLE = 0

::ttttttttttttttfi'fittfitti*'titfit.tfi*tfitt'fifii.fififitfiiitfi't'ttttt"t

ATEST 61

TEST ADDRESS MAKER

MATRIX MODE - RES = 4 GAIN =

7B ENABLE

;;fittlltfit*t"t'tttttti**t.itfitQt'fittttt't*tt*tfittttfi**t't**tt'tt

012504
012506
012514
012522
012530
012536
012544
012552
012560

012566

012574
012602
012604

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

000010
004000
000014
002030
000002
000001
000002
167174

012726
001124

001160

tS161:

167234
167226
167210
167212
167174
167176

SCOPE

MOV

#10,STIMES

MOV

#TSTDMAITSTCON,aSFR

MOV

MOV
BIS

BIS

001126
001124
001126

; CLEAR DEVICE

SET "‘TEST DMA AND CONTROL''
JLOAD RESOLUTION, GAIN, ZB ENABLE VALUE

JENABLE '‘TEST 2'' PULSES
JSET ENABLE NCV11
;DISABLE '‘TEST 2'' PULSES

#81T0,aCSR

#TESTZ,aSFR
RADM, SBDDAT

CMP

$GDDAT, $BDDAT

BEQ
ERROR

;:D0 10 ITERATIONS

#2030,aCSR
#TESTZ.3SFR

BIC
MOV

MOV

104020

#CLRALL ,@SFR

JREAD THE ADDRESS DATA MAKER

#012726, SGDDAT
TST62
20

*LOAD EXPECTED VALUE

*COMPARE EXPECTED TO READ

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

';ttt*ttttttttfitttttttfittttttfitfitfit*tttitifit'ttttttfiifittttttttttt

S*TEST 62

TEST ADDRESS MAKER

MATRIX MODE - RES = & GAIN - 0 ZB ENABLE

;;ttt*ttttttttttttttttfitttfi*t*tttt't*fittt'ttt'ttttttttttfittttttfit

012606
012610
012616
012624
012632
012640
012646
012654
012662
012670
012676
012704
012706

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

001124

001160
167132
167124
167106
167110
167072
167074
001126
001124
001126

TST62:

SCOPE

MOV

#10,STIMES

MOV
MOV
BIS
BIS
BIC

#TSTDMAT TSTCON,aSFR
#4030, 3CSR
#TESTZ,@SFR
#81T0,aCSR
NTESTZ,3SFR

MOV

CMP
BEQ
ERROR

#CLRALL ,@SFR

;:D0 10 ITERATIONS

@ADM, SBDDAT

#025252,$GDDAT
$GDDAT, $8DDAT
1ST63
20

sCLEAR DEVICE

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

*LOAD EXPECTED VALUE

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

RESOLUTION = 4

GAIN = 0

2B ENABLE

SEQ 0052

CZNC(CB NCVTT
CINCCB PN

31-AUG=79 11:21

MACY11

Nt N
N
N\
Nt N
N
N
Nt N

T63

31-AUG-79

13:10

TEST ADDRESS MAKER

a2 i223223323230022

5
PAGE 32
-

MATRIX MODE - RES = 3 GAIN

22232022322

TEST ADDRESS MAKER

2222

012710
012712
012720
012726
012734
012742
012750
12756
012764
012772
013000
013006
013010

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

001160
167030

15763:

#10,$TIMES

MOV
MOV
BIS
BIS
BIC

NTSTDMA!TSTCON,aSFR
#26,9CSR
NTESTZ,aSFR
#8170,3CSR
NTESTZ,aSFR

MOV

167022
167004
167009
166770
166772

001124

SCOPE

MOV

MOV
MOV

001126
001124
001126

CTMMP

8EQ
ERROR

#CLRALL ,aSFR

iRiRRRRRERS

MATRIX MODE - RES - 3 GAIN

2483322232222

SxTEST 64

;CLEAR DEVICE

JSET "TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, 7B ENABLE VALUE
;ENABLE ''TEST Z2'' PULSES
sSET ENABLE NCV11
;DISABLE "TEST Z'' PULSES
JREAD THE ADDRESS DATA MAKER
JLOAD EXPECTED VALUE

$GDDAT ,$BDDAT

[

0 ZB ENABLE - 0

;;D0 10 ITERATIONS

@ADM, $BDDAT
#0,8GDDAT

TST64
20

SEQ 0053

0 2B ENABLE = 0

';fifii.'tt""'titfittt'tt.tt'tttfittt'tti.ttttti'tttttttttttfittttfit

e
N N N N
N
N
N
N
N
N

-~ I
akeaYa
e

D —SPNOWS N b b (N =
e
N
b N Nt Nt
BNV
N N v N

PN
NIV

) e

WP
W

D d

W
N

=
R
N

b N

N
B

—

30G(1063)

I*TEST 63

N N

Nl N

st N

W
W
T e T e I e T
e N e T} ~
A A~ ~s A~~~ P e N T
b —d bk
D =SPNOWES SN —J—NN—J—LJ—J—LJ_J_LJA) W

972
(&)
(&)

DIAGNOSTIC

;COMPARE EXPECTED TO READ

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

322322322222 3322232222202

TEST ADDRESS MAKER

22222 222222222022

RRRRZlD

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

';tttt"tt*iitt.tttifitiifi'l.*fitfi'ttQttitt.l.t't't‘t.fifitt.tttttttt

013012

013014
013022
013030
013036
013044
013052
013060
013066
013074
013102
013110
013112

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

000010

001160

75T64:

166726
166720
166702
166704
166666
166670

SCOPE

MOV

#10,STIMES

MOV

NTSTDMA!TSTCON,aSFR

MOV

MOV
BIS
BIS
BIC

001126
001124
001126

MOV
MOV
CMP

H
IR

BEW
ERROR
AR AN R R AR

J*TEST 65

#CLRALL ,@SFR

;.D0 10 ITERATIONS

;CLEAR DEVICE

;SET "TEST DMA AND CONTROL"'

#2026,38CSR

;LOAD RESOLUTION, GAIN, 7B ENABLE VALUE

NTESTZ,aSFR
#8170,aCSR
#TESTZ ,aSFR

aADM, $BDDAT
#5252 ,8GDDAT
$GDDAT, $BDDAT
TST6S
20

JENABLE '‘TEST Z2'' PULSES
;SET ENABLE N(CVI11
;DISABLE 'TEST 2'' PULSES

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

;:BR IF SAME
- INCORRECT ADDRESS MAKER DATA

RESOLUTION = 3

AN R RN AN AN

AR RN AR A AN AR

TEST ADDRESS MAKER

GAIN = 1

7B ENABLE - 0

RN TN AR RN NN R

RAAN R

AR CA RN

MATRIX MODE - RES = 3 GAIN

;:fittt*ttttttt*!ttfittt.tt't'*.t.fi'Q'tfitt.!ttt'ttt'fitl.tttttitfit'!

013114
013116
013124
013132
013140
013146
013154
013162
013170
013176
013204
013212
013214

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

001160
166624

166616
166600
166602

166564
166566
001126
001124
001126

TS$T65:

SCOPE

MOV

#10,$TIMES

MOV
MOV
BIS
8IS
BIC

#TSTDMAT TSTCON, @SFR
#4026,aCSR
#TESTZ.RSFR
#8170,3CSR
NTESTZ.@SFR

MOV

CMP

BEQ
ERROR

#CLRALL ,@SFR

@ADM, SADDAT

#12454 , $GDDAT

$GDDAT . $S8DDAT
TST66
20

0 ZB ENABLE

::D0 10 ITERATIONS

:CLEAR DEVICE

“SET "“TEST DMA AND CONTROL''
*LOAD RESOLUTION, GAIN, ZB ENA'LE 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 = 3
GAIN
O
ZB ENABLE
1

NCVIT

CZNCCB
CZNCCB. P11

O~~~

A~AAAA~ A~~~ ~~

NN — b ek NI N
vavvvvvvvvvvv N

976
(&)
(4)

DIAGNOSTIC

21
31-AUG-79 11:

MACY 1T

N [ala¥al

Nt N

S
b —D NN

D e

d —d d d —d

o N

N PN LN LN PN PN PN PN PN PN

N
N
N
N

R S

SR
T
T

¥ (Y [

[

SEQ 0054

TEST ADDRESS MAKER

MATRIX MODE - RES - 2 GAIN
= 0 ZB ENABLE

'.tt"t.."tt't'ttt'fitlfifi't.tt.t't.fi'fi.ttfit.t'tt'ttt.tfi'ttttttt.t

013216
013220
013226
013234
013242
013250
013256

013314
013316

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

001160

TST66:

166522
166514
166476
166500
166462

001124

SCOPE
MOV
MOV
MOV
MOV

#10,STIMES

001126
001124
001126

013320
013322
013330
013336
013344
013352
013360
013366
013374
013402
013410
013416
013420

000004
012737
012777
012777
012777
052777
052777
042777
017737

001160
166420
166412

166374
166376
166360
166362
001126
001124
001126

012737
023737
001401

RS2

SCOPE

MOV
MOV
MOV
MOV

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

001160
166316
166310
166272
166274
166256
166260

001124

001126
001124
001126

2282343083223

SCOPE
MOV
MOV
MOV
MOV
8IS
BIS
BIC
MOV
MOV
cMP
BEQ
ERROR

$GDDAT , $SBDDAT

:DISABLE 'TEST Z'' PULSES
;READ THE ADDRESS DATA MAKER
;LOAD EXPECTED VALUE

;:BR IF

RESOLUTION
= 2
80203

2220022

TEST ADDRESS MAKER
20200000228

#10,8TIMES
#CLRALL ,@SFR

;COMPARE EXPECTED TO READ

SAME
;INCORRECT ADDRESS MAKER DATA
GAIN = 1
ZB ENABLE = 0
2000020028800

28020

03R4 )]

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

20022000223

020200R

RRRR0REdaRRR 2]

;:D0 10 ITERATIONS
:CLEAR DEVICE

ATSTDMA ! TSTCON,aSFR

*SET "“TEST DMA AND CONTROL''

#TESTZ.3SFR
#81T0,3CSR

*ENABLE ''TEST 2'''PULSES
:SET ENABLE NCV1)

#4024 ,3CSR

#TESTE,@SFR
TST721

GAIN,

ZB ENABLE

*READ THE ADDRESS DATA MAKER

#5224, SGDDAT

$GDDAT , SBDDAT

:LOAD RESOLUTION.

*DISABLE '"TEST Z2'* PULSES

@ADM, SBDDAT

/B ENABLE

;CLEAR DEVICE
;SET "TEST DMA AND CONTROL''
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
JENABLE ‘‘TEST Z'' PULSES
;SET ENABLE NCVI

#TESTZ ,aSFR
aADM, SBDDAT
#2552 ,8GDDAT

f223230

- RES
= 2 GAIN
= 1

;:D0 10 ITERAT]IONS

#CLRALL ,a@SFR
A#TSTDMA!TSTCON,aSFR
#2024 ,a8CSR
#TESTZ2,aSFR
#8170,aCSR

1ST70
20

MATRIX MODE

2322222228223 202228222222222232228232%382/

#10,8TIMES

AL 2222220222220

TST70:

RESOLUTION
= 2

. COMPARE EXPECTED TO READ

SAME
- INCORRECT ADDRESS MAKER DATA
GAIN = G
ZB ENABLE - 0

030 0002222222300
2222032300230 022000282020 823/

22242222322

'TEST 70
A

;:BR IF

TEST ADDRESS MAKER

BIS
BIS
BIC
MOV
MOV
cMP
BEQ
ERROR

104020

JREAD THE ADDRESS DATA MAKER
sLOAD EXPECTED VALUE

S$SGDDAT , $8DDAT
1ST67
20

VAI UE

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

@ADM, S8DDAT
#0,$GDDAT

il 2222423223022

TST67:

;LOAD RESOLUTION, GAIN, 7B ENABLE
JENABLE 'TEST Z2'' PULSES

#81T0,aCSR
W#TESTZ,aSFR

SeTEST 67
e

;SET "‘TEST DMA AND CONTROL''

#24 ,aCSR
NTESTZ ,aSFR

[

A28

sCLEAR DEVICE

#TSTDMA!TSTCON,aSFR

BEQ
ERROR
e

;.D0 10 ITERATIONS

#CLRALL ,@SFR

BIS
RIS
BIC

166464

-N

NN — b

T § —20)

(3)

5
PAGE 33
=~ MATRIX MODE - RES
= 2 GAIN
= 0 ZB ENABLE

t'it..tt"'.t..i"'fi."t'.fi't.t'..fi*tttti"ittttttt'tttttt."lt

IEST 66

(4)

30G(1063)
31-AUG-79 13:10
166
TEST ADDRESS MAKER

*LOAD EXPECTED VALUE

*COMPARE EXPECTED TO READ

:;BR IF SAME

RESOLUTION = 2

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

VALUE

- 0

(INCCB NCVIT
DIAGNOSTIC
CINCCB.PIT
31-AUG-79 11:21

MACY11 30G(1063)
31-AUG=79 13:10
7
TEST ADDRESS MAKER

PAGE 34
= MATRIX MODE - RES = 1 GAIN - 0 7B ENABLE = 0

980

;"ttfi'Q'Qt"'fi'Qt'it*'t'.tt'ttt'.it"'fit'ttt'ttttttt'fittl"t.'tt.

(4)

STEST 71

(4)

(3)
(2)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(i)
(1)
(3)
(1)
(1)

013524
013526
013534
013542
013550
013556
013564
013572
013600
013606
013614
013622
013624

000004
012737
012777
012777
012777
052777
052777
042777

017737
012737
023737
001401
106020

000010
004000
000014
000022
000002
000001
000002

166154
000000
001124

001160
166214
166206
166170
166172
166154
166156

;

013626
013630
013636
013644

000004
012737
012777
012777

000010
004000
000014

001160
166112
166104

(1)

013660

052777

000002

166070

013652

012777

002022

‘1)

013666

052777

000001

(1)

013710

012737

001265

013674
0137202

013716
013724
013726

042777
017737

023737
001401
104020

1 GAIN

MOV
MOV
CMP
BEQ
ERROR

0 ZB ENABLE

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DEVICE
3
#TSTDMA TSTCON,@SFR
*SET "TEST DMA AND CONTROL
#22,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,ASFR
*ENABLE 'TEST 2" PULSES
#81T0,aCSR
SET ENABLE NCV11
#TESTZ,aSFR
:DISABLE "TEST 2'' PULSES
AADM, SBDDAT
‘READ THE ADDRESS DATA MAKER
#0, $GDDAT
:LOAD EXPECTED VALUE
$GDDAT, $BDDAT
*COMPARE EXPECTED TO READ
15172
;;BR IF SAME
20
: INCORRECT ADDRESS MAKER DATA
RESOLUTION = 1
GAIN = 0
2B ENABLE - 0
TEST ADDRESS MAKER

MATRIX MODE - RES

GAIN

SCOPE
MOV
MOV
MOV

#10,$TIMES
::00 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA! TSTCON,@SFR
SET ""TEST DMA AND CONTROL''

BIS

#TESTZ,aSFR

*ENABLE 'TEST 2'"'PULSES

#TESTZ,aSFR
RADM, SBDDAT

:DISABLE 'TEST Z'' PULSES
IREAD THE ADDRESS DATA MAKER

MOV

#2022 ,aCSR

166052

BIS

#8]170,aCSR

001124

MOV

#1265,$GDDAT

000002
166052

166054
001126

001124

001126

BIC
MOV

CMP
BEQ
ERROR

:LOAD RESOLUTION,

GAIN,

7B ENABLE

2B ENABLE

VALUE

$SET ENABLE NCV11

*LOAD EXPECTED VALUE

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

""fittti'tiQifi'tittlttfitk*titfitfittlti'!Qfittfi'tt'fifitfiiflt'tttitt'i‘i

(4)

STEST 73

(1.)

TEST ADDRESS MAKER

MATRIX MODE - RES =

GAIN - O 7B ENABLE

""'tttit!ttfitt't'fi'tfiQttt't.'l‘li'*fifi!*Qt"fitt'fitittt!itfi'tt'ttttt

(3)
(2)
(1)
(1)
(1)
(1)

013730
013732
0137240
0137246
013754
013762

000004
012737
012777
012777
012777
052777

000010
004000
000014
004022
000002

001160
166010
166002
165764
165766

(1)
(1)

013776
014004

042777
017737

000002
165750

165752
001126

014026
014030

001401
104020

(3)
(1)
(1)

T§T72:

166066

982

(1)
(1)

MATRIX MODE - RES

""l'fit*ttttQt'*tfittfittfifit*'tt'tttttfifitittttt'iQttt*t*ttt.'tt.t'ttt

(3)
(2)
(1)
(1)

(1)

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC

SRTEST 72

(4)

(1)
(3)
(1)
(1)

.‘"ttifitfiti'*tfitfiitfi.'fifitfitt"tQ.t.fi*fitfififi'*iiflfit'fi*it.tti"*fifi"fi

(4)

(1)
(1)

T§171:

001126
001124
001126

981

(1)

TEST ADDRESS MAKER

::ltt"ttttttiQtt.fiit.t."i.*tt'fifi'i.tt"t'lttttttt'tttitt'fitttt'

SEQ 0055

013770

014012
014020

052777
012737
023737

000001

002512
001124

T§173:

165750

SCOPE
MOV
MOV
MOV
MOV
BIS

#10,$TIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
; CLEAR DEVICE
#TSTDMA! TSTCON,@SFR
SSET TEST DMA AND CONTROL''
#4022,8CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,@SFR
*ENABLE TEST 2'"PULSES

BIC
MOV

#TESTZ,aSFR
SADM SBDDAT

BIS

001124
001126

MOV
CMP
;

BEQ
ERROR

#B]1T0,aCSR

:SET ENABLE NCV11

#2512 ,$GDDAT
S$GDDAT, $BDDAT

:LOAD EXPECTED VALUE
COMPARE EXPECTED TO READ

1ST74
20

:DISABLE "TEST Z'* PULSES
:READ THE ADDRESS DATA MAKER
::BR

RESOLUTION

IF
1

SAME
: INCORRECT ADDRESS MAKER DATA
GAIN - 0
2B ENABLE - 1

(INCCB

NCV11 _ DIAGNOSTIC

(ZNC(B.P

31-AUG-79 11: 21

984

A A

(3)

TRTEST 74

(2)
(1)
985
986
987

014032
014034
014042
014050
014056

000004
012737
012777
012777
012777

991

014106

017737

988
989
990

992

993

994

995
ggg

014064
014072
014100

014114

014122

014130
014132

052777
052777
042777

012737

023737

00140i

000010
004000
000014
000000

001160
165706
165700
165662

165646

001126

001124

001126

000002
000001
00000&

003407

BIS
BIS
BIC

JLOAD EXPECTED VALUE

BEQ

1ST75

S*TEST 75
N

000010
004000

001160
165604

1002

014166

052777

000002

165562

100C
1001

1003
1004
1005

1006
1007

1008
1009

}8}?

014152
014160

014174

014202
014210

014216

0142246

014232
014234

012777
012777

052777
042777
017737

012737

023737
001401
104021

000014
004000

000001

001124

001126

(3)

1017
1018

1019
1020
1021
1022

1023
1024

014236
014240
014246
014256
014262
014270

014276
014304
014312
014320
014326
014334

014336

000004
012737
012777
012777
012777
052777

000010
004000
000014
002000
000002

001160
165502
165474
165456
165460

BEQ
ERROR

017737
012737
023737

165442
127657
001124

001126
001124
001126

052777
042777

001401

104021

000001
000002

165442
165444

TST76:

AN RN AR

NTESTZ ,&SFR

cMP

R E N AR R AN

. COMPARE EXPECTED TO READ

;:BR IF SAME

. INCORRECT ADDRESS MAKER DATA
JRESOLUTION 7 <DEFAULT WHEN ZB IS NOT ENABLED>

BIS

MOV

#10,STIMES
#CLRALL ,aSFR

8IC
MOV

JaTEST

(3)

$GDDAT, $BDDAT

MOV
MOV

BIS

R R RN R R

R R R AR RN RN RN R R RN R

LIST MODE - 7B ENABLE

MOV
MOV
cMP
BEQ

ERROR

R RR

AR AR ANN NN

GAIN = 0

;:D0 10 ITERATIONS
;CLEAR DEVICE

JSET TEST 'DMA AND CONTROL''
JENSURE LIST MODE AND 7B ENABLED

#8]1T70,3CSR

;SET ENABLE NCV11

JENABLE '‘TEST Z'' PULSES

N#TESTZ,8SFR
aADM, SBDDAT

;DISABLE 'TEST Z'' PULSES
JREAD THE ADDRESS MAKER VALUE

#52452 $GDDAT

S$GDDAT , $BDDAT
TST76
21

;LOAD EXPECTED VALUE
;;BR IF

. COMPARE EXPECTED TO READ

SAME
. INCORRECT ADDRESS MAKER DATA

JRESOLUTION 5 <DEFAULT WHEN ZB IS FNABLED>

AN AR R AR

R RANRRRARAR AR AR

TEST ADDRESS MAKER

AN AR AR AN AR AR

BIS
BIC

NTSTDMA!TSTCON,aSFR
#4000,aCSR

AN AR AR NN A AR AR

SCOPE
MOV
MOV
MOV
MOV
BIS

JREAD THE ADDRESS MAKER VALUE

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

MOV
MOV

@aADM, $BDDAT

TEST ADDRESS MAKER

SCOPE

001124

1012

(2)
(1)
1013
1014
1015
1016

TST75:

165544

165546
0061126

AN AR

165576
165560

000002
165544

052452

A A

GAIN

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
. CLEAR DEVICE
.,
#TSTDMA!TSTCON,aSFR
JSET TEST 'DMA AND CONTROL
#0,aCSR
:ENSURE LIST MODE

#3407, $GDDAT

cMP

SEQ 0056

R R R A NS

MOV

000004

R R R

JENABLE 'TEST Z'' PULSES
JSET ENABLE NCV11
;DISABLE '‘TEST Z'' PULSES

ERROR

012737
012777

LIST MODE - 78 ENABLE - 0

WTESTZ,aSFR
#8]170,aCSR
N#TESTZ,aSFR

MOV

104021

014136
014144

SCOPE
MOV
MOV
MOV
MOV

001124

(1)
999

AR R R AN NN NN R RN R R AR AR AN

TEST ADDRESS MAKER

TST74:

165664
165646
165650

R R AN AN

GAIN - 0

R AR AR AN AN AR AR AR AR R R AR R P AR AR R AN NN R R R CRRA R RN RN R AR AR AR

(3)
014134

S
PAGE 35
- LIST MODE - 7B ENABLE = 0

998

(2)

MACY'T 30G(1063)
31-AUG=79 13:10
174
TEST ADDRESS MAKER

R R RNRC A RRRR RS

LIST MODE -~ ZB ENABLE

A RN R AN NA R R AR KRR AR AR

A AR AR RS AN

- 0

RN RRRE R

GAIN

#10,STIMES
::D0 10 ITERATIONS
#CLRALL ,8SFR
sCLEAR THE DEVICE
#TSTDMA!TSTCON,aSFR
JSET TEST 'DMA AND CONTROL''
#2000,9CSR
;SET GAIN FLOP
NTESTZ ,@SFR
JENABLE "'TEST Z'' PULSES

#8170,8(CSR
N#TESTZ ,ASFR
@ADM, SB8DDAT
#127657 ,8GDDAT
$GDDAT,$8DDAT
15177

;ENABLE THE NCV11
;DISABLE THE ‘‘TEST (' PULSES

;:BR

;READ THE ADDRESS MAKER VALUE
;LOAD THE EXPECTED
. COMPARE

SAME

- INCORRECT ADDRESS MAKER DATA

JRESOLUTION 7 -

GAIN FLOP SET

NCVIT
CINCCB
(ZNC(B.P1T

DIAGNQST
S
C
1:21
31-AUG-7 9

MACY11

1029

1053

1054
1055

1056

1057
1058

1059
1060

1061
1062

1063

1064
1065
1066
1067
1068
1069
1070
1071
1072

1073

1074
1075

023737
001402
104036
000453
017737

001126

012737
023737

00112«

001126

001401
104022

014544
014552
014560
014566
014570

017737
012737
02373/
001401
104023

014572
014576
014604
014606

005037
017737
001401

001124
165146

014610
014616
014624
014632
014640
014642

013737
012737
012737
023737
001401

060000

165202

000000
001124

001126
001124
001126

001126

1%:

2%:

104037

003407
060000
001124

3$:

SEQ 0057

22022

22222222200

#40,8TIMES

#CLRALL ,8SFR

RRRRRRRR

::DO 40 ITERATIONS
sCLEAR THE

#125252 ,BUFO
#11110,80FF
-1,

SECTION LIST MODE
R

DEVICE

:SET UP 1

#8UF 0, 3BAR

WORD

TRANSFER

:LOAD BUS ADDRESS FOR RESULT

#TSTDMA!TSTCON,aSFR

SENABLE

TEST

CONTROL

;ENABLE DEVICE

#TESTZ,@SFR

:DISABLE "TEST Z'' PULSES

BIS
NOP

#MIT12,3SFR

;ALLOW 1 DMA TRANSFER

8CSR,$BDDAT

:READ STATUS

#0200, $GDDAT

*LOAD EXPECTED

MOV

#CLRALL

"ENABLE "'TEST 2'* PULSES

,@8SFR

$GDDAT _ $BDDAT
‘8

¥gr1oo

“RESET

::BR

aBAR, SBDDAT

THE

DEVICE

;TEST STATUS
EXPECTED

CUNEXPECTED STATUS AFTER A 1 WORD TRANSFER
:READ BUS ADDRESS

MOV
(MP
BEQ
ERROR

#BUF0+2, $SGDDAT

MOV
MOV

aWCR,$BDDAT

;READ W.C.

(MP
BEQ
ERROR

$GDDAT , $BDDAT
d ]
23

; COMPARE VALUES
SAME
; INCORRECT WORD COUNT

CLR
MOV

$GDDAT
QOFF ,$BDDAT
3%
24

MOV
MOV
MOV

BUF0, SBDDAT

BEQ
ERROR

AND DMA FlOPS

#8110,3CSR

#TESTZ,@SFR

BEQ
ERROR
BR

RA)

:PRIME TARGET BUFFER
:LOAD THE OFFSET VALUE WITH A NUMBER

BIS
BIC
NOP

BEQ
ERROR

104024

—a

1049
1050
1051
1052

1048

SCOPE
MOV

NOP
NOP
MOV
MOV
MOV
cMP

001126
165262
001124
001126

SECTION LIST MODE

ENABLE A ONE WORD TRANSFER

2322222220220

NOP
NOP

165304

nororON
oSO

1047

000240
000240
000240
052777
000240
000240
000240
017737
012777
012737

PAGE 36

ENABLE A ONE WORD TRANSFER

MOV
MOV
MOV
MOV
MOV
MOV
BIS

1043

1044
1045
1046

014400
014406
014414
014422
014430
014436
014440
014442
014444
014452
014454
014456
014460
014466
014474
014502
014510
014512
014514
014516
014524
014532
014540
014542

000004
012737
012777
012737
012777
012777
012777
012777
052777
052777
042777

1040
1041
1042

014340
014342
014350
014356
014364
014372

13:10

2332202222222220222
2222002 0
RRRdRRRERRARZERRRRRRRRRRRRD)

18177:

1033

1034
1035
1036
1037
(1)
1038
1039

1030
1031
1032

—

(1)

177

31-aUG=79

LwTEST 77

33838

(3)
(3)
(2)

30G(1063)

$GDDAT, $8DDAT
1%

2?2

;LOAD EXPECTED

;:BR

#8UF 0, SBDADR
$GDDAT, $8DDAT
157100
37

; INCORRECT BUS ADDRESS VALUE

AFTER A 1

#0,$GDDAT

#3407, $GDDAT

; COMPARE VALUES

SAME

WORD TRANSFER

;LOAD EXPECTED

;:BR IF

AFTER A 1

::BR IF

VALUE

WORD TRANSFER

:CLEAR THE EXPECTED VALUE
“READ THE OFFSET REGISTER
CLEARED
;OFFSET REG. FAILED TO CLEAR AFTER

;1 LIST MODE XFR.
:GET BUFFER DATA

:LOAD EXPECTED

JJBR

:LOAD BAD ADDRESS
S COMPARE DATA
SAME
:STATUS WAS Ok BLT DATA wAS

IN(OKKE
'

CINCCB NCV11
DIAGNOSTIC
CINCCB.P1Y
31-AUG-79 11:21

MACYTT

1077

(3)
016644
014646

000004
012737

000040

1079

014662

012700

060000

1081

1082

1083
1084
1085

1086
1087
1088

(1)
(1)
1089
1090

1091

1092

014656

014666
014672

014676

014700

014706
0147146
014722
014730
014736

014736
014744
014752
014760

014764

012777

012720

020027
001373

012777

004000

001140

125252

1%-

062000

177000

060000
000014
000001
001000

165016
002004

052777
042777
052777
005337

000002
000002
010000
002004

165012
165004
164776

001364

165040
165034

014766
014774
015002
015010
015012

017737
012737
023737
001402
104036

1647564
040200
001124

1099
1100
1101
1102

015016
015022
015030
015032

005037
017737
001401
104006

001124
164722

001126

1104

015042

012777

017737

004000

164714

012737

062000

1098 015014

1105

1106

1107

1}83
1110
1111
1112
1113

11146
1115

1116

1117
1118

1119
1120
1121
1122

1123

015034

015050

01505¢
015064

015066
0Q15C70
015076
0151064
015112

015116
015116

000465

023737
001401

RN RN AN AN AR RO NN RN OO NI RN RN

ENABLE A 512 WORD TRANSFER

017737
012737
023737
001401

104023
012737

012737

015146
015150
015152
015160

001401
104037
062737
022737

0'5166

164706

001126

001124

001126

;THE

3¢

4%,

001124

017737
023737

001361

001126
001124
001126

5%:

003407

001124

6$:

163764
001124

001126
001126

7%:

000002
062000

(01122
001122

10%:

060000

001122

#CLRALL ,@SFR

MOV

#125252. (RO) +

MOV
CMP

NI I I RN e N

SEQ 0058
b

SECTION LIST MODE

*LOAD BUS ADDRESS FOR RESULT
"ENABLE TEST CONTROL AND DMA FLOPS

NTESTZ,aSFR
#TESTZ.RSFR
#1T12,aSFR
STEMP

TRANSFER

IS NOW COMPLETE

MOV

“TEST IF DONE

#BUF 0, 3BAR
#TSTDMA. TSTCON,aSFR

8IS
BIC
8IS
DEC

CLR
MOV
BEQ
ERROR

*PRESET THE BUFFER WITH DATA
‘BR [F NOT

#R170,aCSK
#512, .STEMP

B8R

*LOAD BUFFER POINTER

BIS
MOV

MOV
MOV
cMP
BEQ
ERROR

:CLEAR THE DEVICE

RO, MBUF 1

#-512. ,aW(CR

BNE

2:DO «0 ITERATIONS

#8UF0, RO

MOV

CSET UP S12. WORD TRANSFER
*ENABLE DEVICE
*LOAD THE COUNTER

;ENABLE "'TEST 2'" PULSES
*DISABLE "TEST 2'* PULSES
JALLOW 1 DMA TRANSFER
*FINISHED ALL WORDS?

aCSR,$BDDAT
#40200,8GDDAT
$GDDAT . SBDDAT
3
36

1ST101

$GDDAT
a0F F, $BDDAT
43
6

#CLRALL ,@SFR

*BR UNTILL DONE

;:BR

#MUF1,$GDDAT

BEQ

$GDDAT , SBDDAT

:CLEAR

;:BR

MOV
MOV
CMP
BEQ

aW(R,$8DDAT
#0.$GDDAT
$GDDAT , $8DDAT
63
;:BR IF
23
,INCORRECT WORD

#3407, $GDDAT

MOV

#BUF 0. $SBDADR

BEQ
ERROR
ADD
CTMP

108
;:BR
37
#2,88DADR
#BUF 0+1024 . , SRDAD

BNE

*COMPARE VALUES

SAME

; INCORRECT BUS ADDRESS VALUE AFTER A 1

a$BDADR , $BDDAT
$GDDAT, $BDDAT

SET

DEVICE

:LOAD EXPECTED BAR VALUE

MOV
CMP

THE

TRANSFER

*READ BUS ADDRESS

ERROR

ERROR
MOV

:READ STATUS
;LOAD EXPECTED STATLS
:COMPARE DATA
EXPECTED STATUS
JUNEXPECTED STATUS AFTER S12 WORD

:CLEAR EXPECTED
"READ OFFSET REG.
;:BR IF CLEARED
JUNEXPECTED OFFSET REGISTER BIT

aBAR , $SBDDAT

MOV

CMP

164656
000000
001124

#40,8TIMES

MOV

MOV
MOV

104022

015124

015132
015140

001126
001124
001126

SCOPE
MOV

BNE

165044

012777
012777
052777
012737

T$T100:

165074

1093
1094
1095
1096
1097

1103

SECTION LIST MOD:

.'.'QQQ'Q""'I.tttttt...t".Q'QQ.Q'QQ".QQ!Qt.tfit"tt"t.'flttt'Qtt

(2)
(1)

1080

AR R RN N RN AR O RN AN RN

SeTEST 100

(3)

1078

6 5
30G(1063)
31-AUG=79 13:10 PAGE 37
T100
ENABLE A 512 WORD TRANSFER

WORD TRANSFER

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

SLOAD EXPECTED DATA

WORD TRANSFER

*LOAD STARTING ADDRESS

*READ DATA WORD
" COMPARE DATA

EXPECTED
:INCORRECT DATA IN LIST MODE
;UPDATE POINTER
STEST IF END OF BUFFER

©:BR IF NOT DONE

XFER.

CINCCB NCVIY
(INC(B.P1T

DIAGNQSY IC
31-AUG-79 121

MACY 11

306(1063)
1101

31-AUG=79

13:10

PAGE 38

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

SEQ 0059

'."..'Qt.fi."'."t'."."."...'l.'.ltQQ'.tt'..tt'tQ..'QQ"..Q.Qt

SeTEST 107

VERIFY “"TIMEOUT'' FLOP SETS AND ''CLR ALL'' CLEARS [T

'.'."Q""Q.".'tt"."..'.l..Q.Q.ttttt.'.tt.it"tttt..tt"tttt't

TST101: SCOPE

000 NN~

g
I

b
D
b

—= O 000N
W

000423
023737
001401

052777
012737
017737
023737

b
b
b
b
b
b

2
e
e

ok e
b

—~ e

b
o

)
b

b md

b
)

b e

;LOAD W.C. REGISTER

#TSTCON! TSTDMA ,@SFR

JSET TEST CONTROL AND DMA

MOV
MOV

#3 Q0FF
#160000,8BAR

MOV
8IS

#16,3CSR
#8170,3CSR

015376

0014601

;:D0 40 ITERATIONS

:CLEAR DEVICE

8IS
BIC

010000

166454

BIS

#MIT12,aSFR

MOV

#MIT1S'BIT14!BIT7,$GDDAT

BM]
ERROR
BR

18
25
TST102

::BR IF

NOP
NOP
NOP

140200
164426

MOV

001124

001126

1%:

004000
000200

164404

2%:

164362

001124

001124
001126
001126

TMMP

BEQ

ERROR
BIS

25
#CLRALL ,aSFR

MOV
{MP

aCSR, $BDDAT
$GDDAT ,$BDDAT

MOV

BEQ

ERROR

104025

#8]T77,8GDDAT

T1ST102

;LOAD RESOLUTION TO VERIFY ‘‘SFR INiT'* CLEARS
JENABLE THE DEVICE

;ALLOW

o(SR,$SBDDAT

$GDDAT, $BDDAT

:LOAD EXTENDED ADDRESS BITS
:LOAD BUS ADDRESS REGISTER TO A NON-EX]ENT ADDRE

JENABLE '‘TEST 2'' PULSES
;DISABLE “TTEST Z'" PULSES

N#TESTZ,8SFR
NTESTZ,aSFR

164470

100402
104025

17 DMA TRANSFER

:LOAD EXPECTED

:READ STATUS REG.

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

; COMPARE VALUES

SAME

J'TIMEOUT'' FLOP DID SET BUT FAILED TO GENERATE '
:GENERATE AN °''CLR ALL'' TO CLEAR TIMEOQOUT FLOP

;LOAD EXPECTED
;READ STATUS
; COMPARE VALUE

:;BR IF SAME

:"'CLR ALL'® FAILED TO CLEAR TIMEOUT FLOP

""ttttttttn'tttt'ttttttttttfi.tttttttt.ttttttttttttttttttttttttQnt

J«TEST 102

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

.-'-tttttttttttttn.ttttttttttlttlt'ttttttt'ttttttttttt't'ttt‘fittlnt

015400

—d

MOV

#-1,3W(CR

#CLRALL ,@SFR

000002

S (P
Y QR (T
QUINOU
[

000240
012737
017737

104025

—d rma

#60,8TIMES

MOV

1464

MOV

—ed

(2)

015402
015410
015416
0154624
015432
015440

000004
012737
012777
012777
012777
012777
012777
052777
052777
042777
000240
000240
000240
052777
000240
000240
000240
012737

000040
004000

177777

000003

001160
164340
164326
164316
166314

164310
164272

164274
164266

164252

001124

T1ST102:

SCOPE

MOV

#60,8TIMES

MOV
MOV

#3,30FF
#160000, @8BAR

;CLEAR DEVICE
;LOAD W.C. REGISTER
:LOAD EXTENDED ADDRESS BITS
;LOAD BUS ADDRESS REGISTER TGO A NON-EXIENT ADDRE

#8]70,9CSR

:ENABLE THE DEVICE

MOV
MOV

MOV

BIS

BIS
BIC

#CLRALL ,aSFR
#-1,3W(R

::D0 40 ITERATIONS

#TSTCON'! TSTDMA,aSFR

:SET TEST CONTROL AND DMA

NTESTZ,aSFR
#TESTZ ,3SFR

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

BIS

#3[T712,8SFR

;ALLOW 1 DMA TRANSFER

MOV

#BIT15 BIT14.RB]T17,8GDDAT

NOP

NOP
NOP

NOP
NOP
NOP

:LOAD EXPECTED

NO
O O O O O OO O 00 Q0 00 QO 00 — AL (N (N QO 00 00 00

b —d
b

b
b

b
d
h

d e
D o

D oS
d

001126

000423
023737
001401

001124

001126

1%:

100000

164202

2%:

104025

001401

164222

052777
012737
017737
023737

040200
164160

001124

001124
001126
001126

282

1102

]
31-AUG=79 13:10 PAGE 38-1
VERIFY "‘TIMEQUT'® FLOP SETS AND “‘CLR TIMEOUT'' CLEARS 7
MOV

a(SR,$8DDAT

$GDDAT,$BDDAT

BM]
ERROR
8R
BEQ

ERROR
8IS

;;BR IF

25
#81T15,aSFR

#31T14 .BIT7,8GDDAT

(MP
BEQ
ERROR

$GDDAT ,$BDDAT
1ST103
25

o(SR,$BDDAT

SEQ 0060

JREAD STATUS REG.

18
25
TST103

e 01Y)
MOV

104025

D id

017737

31-AUG=-79 11:21

:BR IF "'TIMEQUT'" FLOP !S SET
JUTIMEOUT'' FLOP FAILED TO SET
. COMPARE

SAME

VALUES

J'TIMEOUT'" FLOP DID SET BUT FAILED TO GENERATE °°
:GENERATE AN ''CLR TIMEOUT'' TO CLEAR TIMEOUT FLOP

;LOAD EXPECTED
JREAD STATUS

. COMPARE VALUE
:;BR IF SAME
;U'CLR TIMEOUT'® FAILED TO (LEAR TIMEOQUT FLOP

';t"t.fi‘titt'tl..Qtttt"t't.ttQQ.kt'i*flt.fitt'ttfittttttlttt"tt't

LNTEST 103

—

MACY11

323 38232

—emb
——d

O = =W
[ aNF 2 ¥ o Ne)

N
S

—d —

022626
005077
012777
013777
005077

160000
000014
000000

015754
015756
015762
015770
015776

104026

000040
004000
177777
000003

—d

000004
012737
012777
012777
012777
012777
012777
012746
012746
000002
012777
000240
000240
000240
000240
052777
052777
042777
000240
000240
000240
052777
000240
000240
000240
005077

Pl S

015602
015604
015612
015620
015626
015634
015642
015650
015654
015660
015662
015670
015672
015674
015676
015700
015706
015714
015722
015724
015726
015730
015736
015740
015742
015744
015750
015752

— k=
2 O
rPrrPrOPO

o
o
b
b

d
b

b —d

d
b
b

b
D
b

b
e

d
b

b o

b
b
b
d
b
—

N DN, o ek b d

30G(1063)

DIAGNOSTIC

100402
104025

NNNNWNNWY

NCV1T
CINC(B
CINCCB P11

TST103:

015662

015754

164102

000101
000002
000002

164040
164042
164034

010000

164020

VERIFY "‘TIMEOUT'' INTERRUPT

222223222332222322082
222230022 RRRRRRRRRRRRRRRRRRRRRR)

18:

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI
MOV
NOP
NOP
NOP
NOP
BIS
BIS
BIC
NOP
NOP
NOP
BIS
NOP

163776

#60,8TIMES
#CLRALL ,aSFR
#-1,aWCR
#3,a0FF
#160000,aBAR

#TSTCON!TSTDMA,aSFR
#0,-(SP)
#18,-(SP)

004000
001774
163772

163766
163774

e ¥
3%

(MP
CLR

:LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE
:SET

TEST

CONTROL

AND DMA

#MIT6!'RITO,aCSR

JENABLE THE DEVICE

#3]1T12,aSFR

;ALLOW 1 DMA TRANSGFER

a(SR

:CLEAR ENABLE

#TESTZ?,aSFR
#TESTZ ,aSFR

163764

ITERATIONS
:CLEAR DEVICE
;LOAD W.C. REGISTER
;LOAD EXTENDED ADDRESS BITS

#2% ,aVECTAQD

000401

::D0 40

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

JUTIMEOUT'' FAILED TO INTERRUPT

;;BR TO CLEAN UP

(SP)+,(SP)+
a(SR

:CLEAN THE

STACK

VECTA1,aVECTAQ

;CLEAR

JRESET VECTOR

DEVICE

#CLRALL ,aSFR

avECTA1

THE

CINCCB NCV11 _ DIAGNOSTIC
CINCCB.P1T
31-AUG=79 11:21

1217

TNTEST 104

(3)

(2)
(1)
1218

016002
0160045
016012

000004
012737
012777

1220
1221

016026
016030

103450
012777

1222

1223
1226
1225

016020

016036

016044
016050
016056

1226 016064
1227
(1)
1228

016072
016100
016106

1230

016116

1229

1231
1232

1233
1234
1235
}Sgg

016114

016120
016122

016130
016136
016144
016146

023727

012777

000040
004000

036404

177777

177776

005077
012777
012777

163700
000014
000016

052777
042777
052777

000002
000002
010000

052777 000001
000240

#60,STIMES
#CLRALL ,@SFR

;:DO 40 ITERATIONS
;CLEAR THE DEVICE

163714

BLO
MOV

TST105
#-1,3WCR

;:BR IF NOT ENOUGH MEMORY
;LOAD 1 WORD XFR

163700
163662

CLR
MOV
MOV

20FF
#TSTCON! TSTDMA,@SFR
#16,3CSR

163656
163650
163642

BIS
BIC
BIS

002140

MOV

163654

BIS

NOP

017737
023737
001401
104006

000001
163614
001126

NOP
MOV
MOV
CMP

001124
001126
001126

BEQ
ERROR

016150
016152
016160
016166
016174
016176

000004
012737
012777
023727
103454
012777

1264
1245
1246

016212
016220
016226

016204

016234

016242
016250
016256
016260
016262
016264
016272
016274
016276
016300
016306
016314
016322
016324

#TESTZ,@SFR
NTESTZ.@SFR
#B1T12.3SFR

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

ENABLE THE NCV11

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

TST105:

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

#1,30FF
#TSTDMA! TSTCON,@SFR
#16,aCSR

163546

012777
012777
012777

000001
000014
000016

163530
163530
163512

MOV
MOV
MOV

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

000002
000002

000001

163504

163506
163500

010000

163464

000002
163436
001124

001124
001126
001126

::BR IF SAME
:EXTENDED ADDRESS BIT 16 FAILED TO SET

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT

177777

163542

TST105
&

;LOAD EXPECTED VALUE
:READ ACUTAL VALUE
: COMPARE

105

SCOPE
MOV
MOV
CMP
BLO
MOV

177776

#1,$GDDAT
#0FF , $BDDAT
$GDDAT , $BDDAT

3332232323832 2323233232222332323303333233¢820223423233232322282302228¢838S2RR20RZZR2Z2S]

001160
163570
006140

052777

#8]170,3CSR

*LOAD LAST ADDRESS

33333323328223232233223223823282322322232233232323223423223422382222323223228228223232]

000040
004000
036404

012777

#177776,38AR

STEST IF ENOUGH MEMORY

TTEST
a2

(2)
(1)
1239
1240
1241
1242

$LSTBK, #2140

NOP

(3)

1248
(1)
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260

CMP

163710

(3)

1247

TST104:

000240
000240
012737

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

3323323223323333823322332020822232232232202330822023243232323822222223223/

SCOPE
MOV
MOV

001160
163736

1238

1243

SEQ 0061

232232323 23232323233232332222238232232332382332323222220223222232322282822¢8223223/

(3)

1219

MACY11 30G(1063)
31-AUG-79 13:10 PAGE 38-2
T1064
VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

MOV
BIS

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

#177776,3BAR

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

#8170,aCSR

:LOAD LAST ADDRESS

:LOAD EXTENDED ADDRESS BIT
*ENABLE TEST CONTROL
*ENABLE THE MODE

:ENAVLE THE DEVICE

NTESTZ,aSFR
#TFSTZ.ASFR

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

#81T12,aSFR

;ALLOW 1

#2,$GDDAT
80 F ,SBDDAT
$GDDAT, $BDDAT
TST106
6

;LOAD EXPECTED
*READ ACTUAL
: COMPARE
SAME
:EXTENDED ADDRESS BIT

::BR IF

DMA TRANSFER

17 FAILED TO SET

CINCCB NCVIY
CINCCB.P1T

DIAGNOSTIC

21
31-AUG-79 11:

MACY11

1262

(3)
(3)
(2)

1263
1264
1265
1266
1267
1268
1269

1270
1271
1272

1273
1274
1275
1276

1277
1278
1279
1280
1281
1282
1283

(3)
(3)
(2)
(D
1284
1285

1286

1287
1288
1289

3323322022322 3230223203232200d0023

2223382233222

TRTEST 106
016326
016330
016336
016344
016352
016360
016366
016374
016402
016404
016406
016410
016416
016424
016426
016430
016432
016440
016446
016454
016456

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

000040
0

000001

001160
163412
163400
163374
163370
060000
163344

002000
0100060

163340
163332

060000

001126
001124
001126

177777

001124

30G(1063)
31-AUG=79 13:10 PAGE 39
T106
VERIFY "‘SET EVENT'' DATA GENERATES A 177777 DATA WORD

TST106:

104027

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
BIS
NOP
NOP
NOP
8IS
BIS
NOP
NOP
NOP
MOV
MOV
MP
BEQ
ERROR

SEQ 0062

323020 0202 00R0dfRR22300dRRRRdRddtRRRd
)]

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

232232320

3202323233222 22322222222223222222222232224328232223§3+

#40,STIMES

#CLRALL ,aSFR
#-1,aWCR

2.D0 40 ITERATIONS

;CLEAR THE DEVICE
sSFT UP 1 WORD TRANSFER

#8UF 0, aBAR

#TSTDMA!TSTCON,aSFR
#7070,BUF0

#81T0,aCSR

.LCAD BUS ADDRESS FOR RESULT

JENABLE TEST CONTROL AND DMA FLOPS
;PRESET DATA

JENABLE DEVICE

#31710,aSFR
#31T12,aSFR

JSET "EVENT'' FLOP
JALLOW 1 DMA TRANSFER

BUF 0, $SBDDAT

JREAD DATA

#-1,8$GDDAT
$GDDAT ,$BDDAT
1ST107
27

JLOAD EXPECTED
. COMPARE VALUES
::BR IF SAME
;INCORRECT DATA VALUE FOR "EVENT'' MARK

JAFTER A 1 WORD TRANSFER

22222828222 2220220222022t
222R202020dRRRRRR RS R

T*TEST 107

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

:;tttttt*tt'ttttttfiifi*fi!ttfitttt.ttfi‘tt't*flfitii'ltt'i*ttitttttttt'

016460

016462
016470
016476
016504
016512
016520
016526
016534
016536
016540
016542
016550
* 16556
V16560
016562
016564
016572
016600
016606
016610

000004

012737
012777
012777
012777
012777
012737
052777
000240

000240
000240
052777
052777
000240
000240
000240
013737
012737

023737
001401

106027

000040
004000
177777

001160

060000
000014
007070
000001

163260
163246
163242
163236
060000
163212

001000
010000

163206
163200

060000
000000
001124

001126
001124
001126

TST107:

SCGPE
MOV
MOV
MOV
MOV
MOV
MOV
BIS
NOP
NOP
NOP
BIS
BIS
NOP
NOP
NOP
MOV
MOV

cMp
BEQ
ERROR

#40,STIMES

#CLRALL ,aSFR
#-1,aWCR

:.D0 40 ITERATIONS

;CLEAR THE DEVICE
;SET UP 1 WORD TRANSFER

#8UF0,aBAR

#TSTDMA!TSTCON,aSFR

#7070,BUFO
#3170,aCSR

;LOAD BUS ADDRESS FOR RESULT
JENABLE

TEST

CONTROL

JPRESET THE DATA
;ENABLE DEVICE

#31T9,aSFR
#BIT12,aSFR

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

BUF O, $BDDAT

JREAD DATA

#0,8GDDAT

$GDDAT, $BDDAT

T1ST110
27

AND DMA FLOPS

.LOAD EXPECTED

. COMPARE VALUES

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

WORD

TRANSFER

CINCCB NCVIY
CINCCB.P1T

DIAGNOSTIC

31-AUG-79 11:21

MACY11

1305

NON

005737
001044
012777
012777
012777
012737
052777
000240
000240
052777
052777
000240

000004
012737
012777

NN O
N =O 000NV
SN

b o d ed
d
b
d
D
b
b
b
D
)
b
b b

N NN NN NN NN NN
N NN
N NINON)
—

110

31-AUG=79

000240

013737
012737
023737

016744

001401
104040

000040
004000
004020

001160

3283380322333

1772777
060000
000014
007070
000001

163106
163102
163076
060000
163052

000400
010000

163032
163042

060000
177777
001124

001126
001124
001126

2232328322402

TST110: SCOPE

163126

PAGE 40

23030

3232023222322 22328232223228423220222222024022222222%
2]

003208002000222

222222228232322323232322222222222222332]

#40,$TIMES
#CLRALL ,@SFR

::DO 40 ITERATIONS
;CLEAR THE DEVICE

MOV
MOV
MoV
MOV

TSTINM

#-1,3MCR

;:BR IF NOT

BIS

NOP
NOP
8IS

BIS
NOP
NOP
MoV
MOV

cMP

BEQ
ERROR

SEQ 0063

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

MOV
MOV
TST

BNE

13:10

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

TRTEST 110

(3
3)

1325

3?6( 1063)

DEADKW

STEST IF NCV11
SSET UP 1

#BUF0, 3BAR

CLOCK IS PRESENT

WORD TRANSFER

*LOAD BUS ADDRESS FOR RESULT

#TSTDMA! TSTCON,aSFR

"ENABLE

#7070 ,BUF 0

TEST

CONTROL

#81T0.aCSR

*ENABLE THE DEVICE

#8178, aKWCSR

<GENERATE CLOCK ST1

BUF 0, SBDDAT

:READ BUFFER DATA

#B1T12,3SFR

TO SET "EVENT'' FLOP

CALLOW 1 DMA TRANSFER

#-1,8GDDAT

$GDDAT, SBDDAT
TST111
40

AND DMA FLOPS

‘PRESET THE DATA

*LOAD EXPECTED DATA

;:BR

* COMPARE
EXPECTED

SCLOCK ST1

FAILED TO GENERATE EVENT FLAG

;CHECK THE MB8026 TO M7952 JUMPERS

3322322323333 83823338234323323223222232222332482322322202222222222222232/

TRTEST 111

VERIFY ''CLOCK OVERFLOW'' GENERATES A TIME

(000000) DATA WORD

':tttttttt!t*fitttitt'tltt'tttt*ittfiit*'ti.fiittttttttittttfittitttt

FRRRERE

00 NN
AN =

1340

016746
016750
016756
016764
016770
016772
017000
017006
017014
017022
017030
017034
017042
017050
017054
017056
017064
017066
017070
017076
017104
017112
017114

000004

012737
012777
005737
001052
012777
012777
012777
012737
052777
005077
012777
012777
105777

000040
004000
004020

001160
162772

177777
060000
000014
007070
000001
162704
177776
000011

162752
162746
162742
060000
162716

052777
000240
000240
013737
012737
023737
001407
104040

010000

060000
000000
001124

100375

162664

162702
162670

TST111: SCOPE
MOV
MOV
TST
BNE
MOV
MOV
MOV

#40,8TIMES
#CLRALL ,aSFR

;:D0O 40 ITERATIONS
;CLEAR THE DEVICE

TST112

;:BR IF NOT

DEADKW

#-1,3WCR

JTEST IF NCV1T1
;SET UP 1

#BUF 0, aBAR

WORD TRNSFER

;LOAD BUS ADDRESS FOR RESULT

#TSTDMA!TSTCON,aSFR
#7070 ,BUF0

SENABLE TEST CONTROL AND DMA FLOPS
;PRESET THE DATA

#8170,aCSR

JENABLE THE DEVICE

aKW(CSR

;CLEAR STATUS

#-2,3KWPSR
1%:

CLOCK IS PRESENT

;LOAD COUNTER PRESET

#11,aKWCSR

:ENABLE

MHZ.

RATE

AND (CLOCK GO

?gUCSR

;WAIT FOR CLOCK

162672

#3IT12,aSFR

JALLOW 1 DMA TRANSFER

001126
001124
001126

BUFQ,$8DDAT

;READ DATA

#0,8GDDAT

$GDDAT , $BDDAT
TST112
40

;LOAD EXPECTED

;IBR

; COMPARE
SAME

VALUES

:CLOCK OVERFLOW FAJLED TO GENERATE °‘TIME MARKS''

;CHECK THE MB026 TO M7952 JUMPERS

CINCCB NCVIN
CINCCB P11

DIAGNOST IC
31-AUG-79 11:21

M S5
13:10 PAGE 41
31-AUG=79
MACY11 30G(1063)
T112
VERIFY ''SET TIME'' OVERRIDES ''SET EVENT'' DATA
S

SEQ 0064

1283220823232 23233223223223232232323224222223222322222222322223322322228232323232+%;

TRTEST 112

VERIFY ''SET TIME'' OVERRIDES '‘SET EVENT'' DATA

FERELELET
W
~
o

)

S8 223232232333 2332323232020323232323228223282222422002220400220222823200228¢82380

017116
017120
017126
017134
017142
017150
017156
017164
017172
017174
017176
017200
017206
017214
017216
017220
017222
017230
017236
017244
017246

001160
162622

TST112:

162610
162604
162600
060000
162554

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
BIS

#40,8TIMES

#CLRALL ,aSFR

::DO 40 1TERATIONS

;CLEAR THE DEVICE

#-1,aWCR

JSET UP 1 WORD TRANSFER

#BUF 0, 3BAR

:LOAD BUS ADDRESS FOR RESULT

#TSTDMA! TSTCON,aSFR

JENABLE

#7070,8BUF0
#8170,3CSR

TEST CONTROL AND DMA fLOPS

;PRESET THE DATA
;ENABLE DEVICE

003000
010000

162550
162542

#MIT10!8]1T79,38SFR

:SET "'TIME AND EVENT'' FLOPS

060000
000000
001124

001126
001124
001126

BUF0,$8DDAT

;READ DATA

MIT12,8SFR

cmwe
BEQ
ERROR

;ALLOW 1 DMA TRANSFER

#0,$GDDAT

S$GDDAT , $BDDAT
TST113

:LOAD EXPECTED

; COMPARE VALUES

::BR 1F SAME

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

°:ttt*tttttttttttttttttfittttttttfl*tttttttttttttttttttttt*i!tttttt

TRTEST 113

DO A ONE WORD MATRIX MODE TRANSFER

~CHECK FOR

INCREMENT FUNCTION

';tttttttttttttttttttktkttttttttittttttt*tfitttttttt'ttt'tttttifitt

33 S

1379

017250
017252
017260
017266
017272
017300
017306
017314
017322
017330
017336
017340
017342
017344
01735¢
017354
017356
017360
017366
017374
017402
017404

001160
162470
162450
162440
162442
162424
162426
162420

010000

162404

060000
000001
001124

001126
001124
001126

TST113:

SCOPE

MOV
MOV

CLR

MOV
MOV
MOV

BIS
BIS
BIC
NOP
NOP
NOP
BIS
NOP
NOP

NOP
MOV
MOV
(MP
BEQ

ERROR

#40,8TIMES
#CLRALL ,aSFR

BUFO
#BUF O, a0FF
#8IT4!BIT1,aCSR

::D0 40 [TERATIONS
;CLEAR THE DEVICE

;CLEAR INITIAL INREMENT LOCATION
;LOAD INITIAL OFFSET REGISTER
;ENABLE MATRIX MODE

#TSTDMA' TSTCON,aSFR

;SET TEST DMA AND CONTROL

#8]T0,3CSR
#TESTZ,aSFR
#TESTZ,aSFR

;ENABLE THE DEVICE
;ENABLE ‘‘TEST Z'' PULSES
:DISABLE '‘TEST Z2'' PULSES

#8]1T12,aSFR

:ALLOW 1 TRANSFER

BUF0,$8DDAT

;READ THE BUFQ LOCATION

$GDDAT,$BDDAT
TST114
30

; COMPARE VALUES
SAME
:INCCRRECT DATA IN MATRIX MODE

#1,8GDDAT

JLOAD EXPECTED VALUE

::BR

;1F DATA WAS O, THE ADDRESS ACCESSED WAS PROBLY WRONG
;1F DATA WAS NON ZERO, THE ''INCR'" REGISTER IS STU(K T0O A 1

CZNCCB NCVIT
CZNC(B P11

DIAGNOST IC
31-AUG-79 11:21

MACY11

1393

3)
(3)
(2)

QD)

1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405

1406
1407
1408
1409
1410
1411

1412
1413

QD)
1414
1415
1416

1417
1418

1419
1420
1421
1422

1423

1424
1425
1426
1427

306 (1063)
T 14

31-AUG-79

017406
017410

000004
012737

000040

001160

2322220022002

012737
012737

017432
000002

001110
002004

017432
017440
017446
017454
017462
017470
017476
017502
017510
017516
017524
017532
017540
017546
017550
017552
017560
017566
017570
017576
017600
017606
017612

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

004000
060000

162316
162302
162272
162274
162256
060000

017737
032737

162170

0014601
104030

001407
012737
104031
052777
006337
001307

1%:

000024

001124

020000
002004

162150

22020

INCREMENT REG.

202

2223232232232

THE

8322002

SEQ 0065

DATA PATH

00ttt Rd

INCREMENT REG.

RRaRRRdRldd)

DATA PATH

2323223030220 00200022020230%]

MOV

#40, STIMES

1E:

000002-000001
000004-000003
000010-000007
000020-000017
000040-000037
000100-000077
g?g200-000177

MOV
MOV

#1838 ,SLPERR
#2 STEMP

sLOAD RETURN ADDRFSS IF ERROR
;LOAD INITIAL VALUE

MOV
MOV
MOV

#BUF0,a0FF
#8IT4!BIT2 ,aCSR

#CLRALL ,aSFR

:CLEAR THE DEVICE
sLOAD INITIAL OFFSET REGISTER
;ENABLE WORD MATRIX MODE
;SET TEST DMA AND CONTROL
JENABLE THE DEVICE
;LOAD PRESET VALUE

MOV

8IS
MOV
DEC
BIS
BIC
BIS

MOV
MOV

001126

020000

THE

.:DO 40 ITERATIONS

;CHECK FOR A ''CARRY’' INTO EACH BIT

162246
162240
162232
001124
001126

001126
001126

5
PAGE 42

VERIFY EACH BIT OF

3232383383208

T$T114: SCOPE
:

017416
017424

VERIFY EACH BIT OF

SxTEST 114
S

13:10

2%:

(TMMP
8EQ
ERROR
MOV
8IT
BEQ
MOV

3¢

ERROR
BIS

ASL

BNE

NTSTDMA!TSTCON,aSFR

#8170,3CSR
$TEMP ,BUFO
BUFO

;TO EXPECTED -1
JENABLE "‘TEST 2'' FULSES
;DISABLE '‘TEST Z2°'' PULSES

#TESTZ,aSFR
W#TESTZ,aSFR

#81712,aSFR
$TEMP,SGDDAT
0, $BDDAT
BUF
$GDDAT, $BDDAT
2%
3C

JALLOW 1

TRANSFER

;LOAD TYPEOQUT EXPECTED

JREAD THE BUFO LOCATION

;:BR

. COMPARE VALUES

SAME

;s INCORRECT DATA IN THE INCREMENT RFGISTER

§21T13.$BDDAT

;READ STATUS
sTEST FOR UNEXPECTED

§?1T4.BIT2,SGDDAT

;JLOAD THE EXPECTED TYPEOUT

a(SR,$8DDAT

#B1T13,aSFR
STEMP
%

;BR IF NOT

CELL

OVERFLOW

SJUNEXPECTFD ''CELL OVERFLOW'®
;TRY

TO CLEAR

THE

FLAG

s CHANGE THE EXPCTED
;BR

MORE DATA BITS

STATUS

CINCCB NCVI1
DIAGNOSTIC
(INCCB.P11
31-AUG-79 11:
1

MACY11

]429

:«TEST 115

(3)

017614
017616

000004
012737

000040

001160

1433

017642

012777

060000

162100

000001

162054

1436
1437
(1)

017624
017632
017636

017650
017656

017664

017672
017700

012777
005077
005077

012777
012777

052777

004000
162116
162112

000022
000014

162124

162070
162072

052777
042777

000002
000002

162056
162050

112737
112737
052777

000377
000200
010000

060000
060001
162020

161776
020022
001124

001126
001124
001126

1438
1439
1460

017706
017710
017712

000240
000240
000240

1444
1445
1446
1447
1448
1449
1450
1451

017736
017740
017742
017744
017752
017760
017766
017770

000240
000240
000240
017737
012737
023737
001401
104031

052777
017737
012737
023737
001401
104031

020000
161742
000022
001124

;22}

017772
020000
020006
020014
020022
020024

1463
1464

020026

013737

060000

001126

020042
020050
020052

023737
001401
104031

001124

001126

1441
1442
1443

122%

1454
1455
1456
1457
1458
1459
1460

1465

1466
1467
1468
1469
1470

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

'- :Qtttttltttt'ttttttttfittttt.ttltt.ttttt..t.t't'ttttt!t.fi.ttttttQ

(2)
(1)

143
1435

SEQ 0066

: .-tltQttt'tttttt't!tt'ttt'tttt'ttfitttfitttt.'t'tttttt't.t'tt..tttt

16430
1431
1432

B 6
30G(1063)
31-AUG-79 13:10 ‘ PAGE 43 3
.
.
T115
CHECK FOR LOW BYTE ''INC OVFL''
TO SET CELL OVERFLOW AND ''CLR CE.L''
TO CLEA

017714
017722
017730

020034

012737

161756
001126
001124
001126

TST115:

SCOPE
MOV

#40,8TIMES

MOV

#BUFQ,0FF

MOV
CLR
CLR

MOV
MOV

8IS

BIS
BIC

NOP
NOP
NOP

MOVR
MOVB
8IS

NOP
NOP
NOP
MOV
MOV
cMP
BEQ
FRROR

001124

;:D0 40 ]TERATIONS

;CLEAR THE DEVICE
:CLEAR WC
;CLEAR BAR

#IT4!B]T1,8CSR
#TSTDMA! TSTCON,aSFR

#I1T70,8CSR

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

JENABLE THE DEV}fiE

#TESTZ,aSFR
#TESTZ,8SFR

JENABLE ''TEST 2 'PULSES
:DISABLE '‘TEST Z'' PULSES

#377 ,BUFQ
#200,BUF0+1
#MIT12,8SFR

:SET LOW BYTE OF BUFO LOC. TO BYTE -1
:SET HIGH BYTE OF BUFQO TO kKNOWN VALUE
JALLOW 1 TRANSFER

aCSR,$BDDAT
#MITI3'BIT4L!BIT1,8GDDAT
$GDDAT , $8DDAT
18
;:BR IF
31

;READ STATUS
;LOAD EXPECTED STATUS
; COMPARE VALUES
SAME
:"'CELL OVERFLOW'® FLOP FAILED TO SET

;IN BYTE MODE FROM A LOW BYTE OVERFLOW

;NOW GENERATE ''CLR CELL'' TO CLEAR CELL OVERFLOW FLOP
1%:
BIS
#3]T13,aSFR
;GENERATE '‘CLR CELL"'
MOV
aCSR, $BDDAT
;READ STATUS
MOV
lBIT4!BIT1,$GDDAT
;LOAD EXPECTED
CMP
$GDDAT ,$8DDAT
:COMPARE VALUES
BEQ
23
::BR IF SAME

ERROR

100377

#CLRALL ,aSFR
awCR
aBAR

:NOW VERIFY THE BYTE DATA CELL
2%:
MOY
BUFQ,$8DDAT

MOV

MP
BEQ
ERROR

#100377 $GDDAT

:"'CLR CELL'' FAILED TO CLEAR ''CELL OVFL'' FLOP
;READ DATA

;LOAD EXPECTED

$GDDAT, SBDDAT
. COMPARE
TST116
::BR IF
SAME
31
;OVERFLOW FROM INC. REG. FAILED TO INHIBIT
:"'INC CNT'' FROM CHANGING THE DATA OR
:"'CSR BYTE CELLS'' FAILED TO INHIBIT
"‘INC ENA HI''

NCV1
CZNCCB
(INCCB PN

DIAGNOSTIC

21
31-AUG-79 11:

MACY11 30G(1063)
T116

1472

(3)
(3)
(2)

(1)
1473
1474
1475
1476

1677
1478

1479
1480
(1)
1481
1482
1483
1484
1485
1486
1487
1488

1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506

c 6
31-AUG=79 13:10 PAGE 44
CHECK FOR WORD "'INC OVFL'' TO SET CELL OVERFLOW AND '‘CLR ALL'' TO CLEAR IT

2232223232222

TRTEST 116

22232

2223200z 382002222002

2020t

82Rd300dRdRdRd)]

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

':ttttttt..t"t!tfi*fittttQQQ.Q*!'.Qttttt'ttltttfii'ttt!tttt'tttt"t

020054
020056
020064
020072
020076
020102
020110
020116
020124
020132
020140
020146
020150
020152
020154
020162
020170
020172
020174
020176
020204
020212
020220
020222

000004
012737
012777
005077
005077
012777
012777
012777
052777
052777
042777
000240
000240
000240
012737
052777

020224
020232
020240
020246
020254
020256

052777
017737
012737
023737
001401

004000

161524
001126

001124

001126

020260
020266
020274
020302
020304

013737
012737
023737
001401

060000

001126
001124
001126

000240
000240
000240
017737
012737
023737
0014607

000040
004000
161656
161650
060000

001160

060000
161566

161544

001126
001124
00126

;LOAD INITIAL OFFSET REGISTER

#TSTDMA! TSTCON,aSFR

SSET TEST DMA AND CONTROL

#CLRALL .@SFR
aBAR
awWCR

::D0 40 ITERATIONS

;CLEAR THE DEVICE

#MBITLIBIT2,aCSR

*ENABLE MATRIX MODE

#81T0,aCSR
#TESTZ,@SFR
#TESTZ.@SFR

“ENABLE THE DEVICE
SENABLE '‘TEST 2'* PULSES
*DISABLE '‘TEST 2'' PULSES

MOV
BIS

#-1,BUF0
M1712,aSFR

:SET BUFO LOC. TO WORD -1
“ALLOW 1 TRANSFER

MOV

aCSR,$BDDAT

:READ STATUS

CMP

$GDDAT , $8DDAT

NOP
NOP
NOP

MOV

BEQ
ERROR

#BITI3'BIT4!BIT2,$GDDAT :LOAD EXPECTED STATUS
1%
31

:COMPARE VALUES

;:BR IF SAME
S"'CELL OVERFLOW'' FLOP FAILED TO SET

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

1s:

BIS
MOV

#CLRALL ,@SFR
aCSR, SBDDAT

cTMP

$GDDAT, SBDDAT

MOV

001124

104031

001124

#8UFO, a0F F

BIS
8IS
BIC

177777
010000

177777

MOV

000002

161510
000200

#40,$TIMES

MOV

000024
000014
000001
000002

020024
001124

MOV

MOV
CLR
CLR

161664

104031

10031

TST116: SCOPE

MOV
MOV
chP
BEQ
ERROR

: GENERATE ''CLR ALL''
*READ STATUS

#81T? SGDDAT

B8EQ
’3
ERROR
31
:NOW VERIFY THE WORD CELL DATA

28 :

SEQ 0067

BUFO, $8DDAT
#-1,$GDDAT
$GDDAT, SBDDAT
TST117
31

*LOAD EXPECTED

:COMPARE VALUES

;:BR IF SAME
S'CLR ALL'' FAILED TO CLEAR '‘CELL OVFL'' FLOP

::BR IF

;READ DATA
SLOAD EXPECTED
- COMPARE
SAME

CINC(CB NCVIN
(INCCB.PIT

DIAGNQSTIC

21
31-AUG=79 11:

MACY1T

1508

020444
020446
020450
020452
020454
020456
020464

020472

020500
020502
020504
020512
020520

104032
000414
022626
017737
012737
023737
001401
104031

012777
013777
005077

161264

020264
001124

004000
002000
161254

—

020454
010000

001126
001124
001126
161244

161256

SCOPE
MOV
MOV

CLR
(LR

1%:

MOV
MOV
MOV
BIS
BIS
8IC
NOP
NOP
NOP
MOV
MOV
MOV
RTI
MOV

BIS
NOP
NOP
NOP
ERROR

2%:

3%:

CHECK FOR ''CELL OVERFLOW'' INTERRUPT

2223332233222 2232332232322223232332322223223
322232322232 2232288K22238 231

TST117:

060000

WWNWAN

177777
000000
020426

—

020424
020426
020434
020442

000240
000240
000240
012737
012746
012746
000002
012777
052777
000240
000240
000240

001160
161432

[o Yo

fidfiJNflU-J—a—a—ha.a_;_a—a_a_flg
N
&~ W =200~~~
AN WN—O

D o
D

NNV

d
d
o
—d
D

000004
012737
012777
005077
005077
012777
012777
012777
052777
052777
042777

A~ ~
— )

A
g

WN AN N A~

D
d
D e
—

SEQ 0068

32 222323233322322223223432323232233232322322323342832323223232223223232222238222222823323§Z§¢:]

LwTEST 117

(3)
(3)

v VIV

D 6
30G(1063)
31-AUG-79 13:10 PAGE 45
7
CHECK FOR ''CELL OVERFLOW'' INTERRUPT

cMP

MOV

#40,8TIMES

#CLRALL ,aSFR

::D0 40 ITERATIONS
;CLEAR

aBAR
awCR

#BUFQ,80FF

#MBITS!BITL'BIT2,a(CSR
#TSTDMA ' TSTCON,@SFR

THE

DEVICE

;LOAD INITIAL OFFSET REGISTER

JENABLE INTR. AND MATRIX MODE
:SET TEST DMA AND CONTROL

#BIT0,aCSR

JENABLE THE DEVICE

#-1,8UF0

JSET BUFO LOC. TO WORD -1

#2% ,aVECTBO

:LOAD RETURN VECTOR

#TESTZ,aSFR
HTESTZ ,8SFR

#0,~(SP)
#18,-(SP)

#MIT12,8SFR

JENABLE °‘‘TEST 2'' PULSES
;DISABLE '‘TEST Z2'' PULSES

ALLOW 1

TRANSFER

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

3s
(SP)+,(SP)+

;:BR TO CLEAN UP

$GDDAT , $8DDAT
33

; COMPARE VALUE
;:BR IF
"ACTIVE'' CLEARED

aCSR,$SBDDAT
;READ STATUS
#MIT13!'BIT7!BITS!BIT4'RIT2,$GDDAT
31

#CLRALL,aSFR

VECTR1,aVvVECTRO

aVvVECTRI

:LOAD EXPECTED

:"'ACTIVE'' FAILED TO CLEAR
:CLEAR THE

DEVICE

:RESET THE VECTORS

NCVIT
CZNCCB
(INC(B P11

DIAGNQSTIC
31-AUG=79 11:1

MACY11 30G(1063)
7120

1541

CFgS?O\
(Y2 P 2V18] 28 N0 00 NONNN -0

—

b
D
b
b
d
d
b
d
b
—

b el

Voo
L A ALY,
PN, IV, [V, IV, IV, ] A
AAV
PV TV VL AV ] Vi

1585
1587
1589

001160

2422238302000

7$T120: SCOPE
MOV

161160
161152

020644

020652
020654
020656
020660

020666
020670
020672
020674

020676
020700
020702
020706
020712
020716
020720
020722
020730
020732
020736
020740
020742
020744
020746

Q&N

d
—

oo
— )

=D
b
—

004000
020750
000340

18:

010000

161070

020756

MOV
MOV

MOV

022626

020756
020760
020766
020774

022626
012777
013777
005077

002

2022222222020

00000000

20200

#60,8TIMES

;.00 40 ITERATIONS

”s,-(SP)

JPUST THE RETURN ADDRESS ON STACK

JPUSH THE EXPECTED BR LEVEL ON STA(K
AND PDP-11

#108,avECTBO
#340,avECTRY

JLOAD UNEXPECTED INTERRUPT RETURN

aWwCR
#BUFO0,a0FF

JINIT THE HIGH Z COUNT
;PRIME THE OFFSET REGISTER

aBAR

(OMPATABLE

JINIT THE LOW Z COUNT

#64 ,3CSR
;SELECT INTR. AND MATRIX MODE
#TSTDMA! TSTCON,aSFR
;MAINT. MODE

JENABLE 1 TRANSFER

MOV
SUB
TST
BEQ
(LR

BRLEV,RO
#40,R0
NLSITT
2%
RO

;GET CURRENT B8R ILEVEL
;AND MAKE IT 1 LEVEL LOWER
STEST IF LSI=-11 CPU
.BR [F NOT
;LOAD BR LEVEL 0O

MOV
MOV

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

;PUSH ADJUSTED BR LEVEL
;PUSH RETURN ADDRESS

RTI
NOP
NOF

)

RRRRRRRRdR

#1T712,aSFR

MOV

VERIFY CORRECT BR LEVEL THE NCv-11

BIS

ERROR
BR

020750
020752
020754

200000002

;PRIME THE TARGET LOCATION

NOP
NOP
NOP

020740

822080

#-1,8BUF0

BIS
8IS
BIC

2%:

dd2RR2R2

JFAKE AN INTERRUPT TO BE LSI-11
#CLRALL ,8SFR
;CLEAR THE DEVICE

NOP
NOP
NOP
NOP
NOP
NOP

161046

SEQ 0069

RTI
MOV

CLR
MOV

002002
000040
003356

6
PAGE 46

BRLEV,=-(SP)

CLR

060000
000064
000014
177777
000001
000002
000002

MOV
MOV

020546
oo

1542
1543
1544
1545
1546
1547
1548
1549

020524
020526
020534
020540
020544
020546
020554
020562
020570
020574
020600
020606
020614
020622
020630
020636

13:10

VERIFY CORRECT BR LEVEL THE NCV-11

SwTEST 120

T
Y o T Xow Ry
(o Yo Yo Yo Xo Yo Yo
—d
= O = b =D
— e e O =
O =2 =OWWHN
SENOO HMNIN

(3)
(3)
(2)
(1)

31-AUG=79

#170,aCSR
#TESTZ,aSFR
#TESTZ ,aSFR

#2088 ,aVECTBO

42
213

;NCV11

;ENABLE THE NCv-11
;ENABLE '‘TEST 2'' PULSES
:DISABLE "TFST 2'' PULSES

;RELOAD TO EXPECTED VECTOR

JLOWER CPU BR LEVEL

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

JUNEXPECTED INTERRUPT WITH BR LEVEL INDICATED
10%:

104042
000401

004000
002000
161000

160770
161002

(MP

ERROR
BR

(SP)+,(SP)+

42
21%

JEXPECTED INTERRUPT DID OCCUR
208 :
(MP
(SP)+,(SP)+
21s:
MOV
#(CLRALL ,aSFR
MOV
VECTB1,aVECTBO
aVECTR1
TLR

;CLEAN THE

STA(CK

JNCV1T INTERRUPTED ON AN INCORRECT BR LEVEL
;:BR TO CLEANUP
:CLEAN THE STA(K
;CLEAN THE DEVICE
RESET THE VECTOR

CZNCCB NCVI
(ZNCCB P

DIAGNQSTIC

31-AUG-79 11:21

MACY

1612
([elololele]

AN A A A A A A A A
A AN~ N~
P o YT Y
WiV I QU
Y YU SEY (Y N O U
QO S
g
A%

(4)

N e

00004

Nt N

St N

pour Paur Gunr it

2737
2777
2777
2777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737

001160

]

)

N
N

e
N
N
S

1AV 1A B I

e N

N
N

000004

e T

SCOPE

MOV
MOV
MOV
MOV
MOV

BIS
BIS
8IC
CLR
BIS
MOV

001122
001124
001126
001126

MOV
MOV
cMP
BEQ
ERROR

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
222022228222

#100,$TIMES

#CLRALL ,aSFR

#60000,a0FF

20032022234

2RRdRdR2R

- 13
)]

;.DO 100 ITERATIONS
;CLEAR THE DEVICE
JLOAD THE OFFSET REG.

#TSTDMA!TSTCON,aSFR

JSET

#B1T4'BIT2,aCSR
#B1T0.aCSR

TEST DMA AND CONTROL

;SELECT MATRIX WORD MODE

JENABLE NCV11
JENABLE "‘TEST 2'' PULSES
;DISABLE '‘TEST Z2'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

#TESTZ.@SFR
#TESTZ .@SFR

a#60000

#81T12.8SFR
#60000
. $8DADR
#1,$GDDAT

aSBDADR, S8DDAT
, $BDDAT
$GDDAT
TST122
33

;READ

THE ACTUAL

; COMPARE
;:BR IF SAME

DATA

JOFFSET INPUT TO MATRIX MUX. SELECTED
:THE WRONG ADDRESS =~ EXPECTED ADR. WAS 60000

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 12

';ttttttttt'tt.QQQ.QQ..QQ'.Q'.Q.Q.ttfi*..fifit'ttitt!'ttt.tt't'tttt.

TST121:

TeTEST 122

e
N
B

2222223222200

';'t.ttttfi'tt.t'..tt'tfifltt"lttfi'fititt'fit'lfi'fi'it.ttttttttfiQttfitQ

(4)

—

160662

160006
001124

SEQ 0070

=~ 13

2222322383208 2000222222200
222 222020222222 222032302 0 2]

160740
160724
160724
160706
160700
160702
160676

Nt AN N

001401
104033

000100

TRTEST 121

(4)

$1-AUG-79 13:10 PAGE 47
30G(1063)
2
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

021254
021256

012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
01773/
023737
001401
104033

001160

160610
160574
160574
160556
160550

160557

160544

160532

157656

001124

001122
001124
001126
001126

TST122:

SCOPE
MOV
MOV
MOV
MOV
MOV
81S
BIS
BIC

CLR
BIS
MOV
MOV
MOV
(MP
8EQ
ERROR

#100,8TIMES
::D0 100 ITERATIONS
#CLRALL ,aSFR
:CLEAR THE DEVICE
#70000, 30F F
‘LOAD THE OFFSET REG.
#TSTDMA! TSTCON,@SFR
“SET TEST DMA AND CONTROL

#81T4'B]T2,3CSR
#81T0.3CSR

"SELECT MATRIX WORD MODE
*ENABLE NCV11

ax 70000

"CLEAR THE TARGET LOCATION

#TESTZ,3SFR
#TESTZ.@SFR

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

#8]1T12.3SFR

“ALLOW 1 WORD TRANSFER

#70000 . SBDADR
#1,$GDDAT
aSBDADR, $8DDAT

$GDDAT, $8DDAT
TST123
33

*LOAD EXPECTED ADDRESS
*LOAD EXPECTED DATA

::BR

'READ THE ACTUAL DATA
* COMPARE
SAME

COFFSET

INPUT TO MATRIX MUX.

;THE WRONG ADDRESS - EXPECTED ADR.

SELECTED

wAS

70000

CINCCB

NCVIT

CINCCB.P1

DIAGNQST (

31-AUG-79

1:21

M
MACY

1615

(3)
(2)
(1)
(1)
(1)
(1)
(1)
(2)
(2)
(1)
(1)
(1)

TRTEST 123
a2

021260
21262
021270
021276
021304
021312
021320
021326
02133
021342
021346
021354

001160

021376

001124

(1)
(1

021406

(3)

1616
(4)
(&)

(3)

021404

021410

021442

021420
021426
021434

021450

(2)
(2)
(1)
(1)
(1)
(1)
(1)

021456
021464
021472
021476
021504
021512
021520

(3)

02153%

(})

(1)

104033

(1)

MOV
MOV
MOV
(mP
BEQ
ERROR

021526

021536

000004

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

000100

001160
160330
160314
160314
160276
160270
160272
160264

160252

001124

001122
001124
001126
001126

220

#100,8TIMES

#CLRALL ,aSFR

#646000,80F
F

- 11

22202232 RRRC2RRRfRZARRR2RSRR])

2.D0 100 ITERATIONS
;CLEAR THE DEVICE
JLOAD THE OFFSET REG.

#TSTDMA!TSTCON,aSFR

JSET

TEST DMA AND

(CONTROL

#BIT¢'BIT2,3CSR
#81T0.3CSR

;SELECT MATRIX WORD MODE

64000

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

JENABLE NCV11
JENABLE ''TEST 2'' PULSES
;DISABLE "‘TEST Z'' PULSES

#TESTZ,aSFR
#TESTZ.@SFR

#IT12.3SFR

#64000
. SBDADR
#1,8GDDAT

a$BDADR, SBDDAT
$GDDAT, $8DDAT
;§r124

;READ

THE ACTUAL DATA

; COMPARE
SAME
IF
;:BR
JOFFSET

INPUT

TO MATRIX MuUX.

;THE WRONG ADDRESS - EXPECTED ADR.

. I R XSRS

021412

(1)

001401

001122
001124
001126
001126

LATEST 1264

(2)

(1)
(1)
(1)

157526

021370

SCOPE

MOV
MOV
MOV
MOV
MOV
BIS

BIS
BIC
CLR
BIS

160402

(1)

TST123:

160414

000001

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

2332323232020 2223802200d22d0

160460
160444
160444
160426
160420
160422

021362

(1)

SEQ 0071

= 11

AR AANNAANRNANNRNRRAANRAANRNPAANANANRAARNRANANANRANRARNAARRNAAAAARAAACR
N AN

(&)

G 6
13:10
3°-AUL-79
PAGE 48
30G(1063)
7123
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

2222222220232

VERIFY A 1

222

0222

SELECTED

wAS 64000

RRRRRRRRRRED)

WORD MATRIX MODE XFR USING OFFSET

- 10

2222222220022 2222222220202t
R0 RR
iRl

TST124:

SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
B1S
BIC
CLR
BIS
MOV
MOV
MOV
(MP

BEQ
ERROR

#100,3TIMES

#(CLRALL ,aSFR
#62000,a0FF

;D0

100

#TSTDMA!TSTCON,aSFR

ITERATIONS

;CLEAR THE DEVICF
;LOAD THE OFFSET REG.
JSET

#MIT4L'RIT2,aCSR
#BI1T70,aCSR

TEST DMA AND

CONTROL

LSELECT MATRIX WORD MODE
JENABLE NCV

#TEST?.,aSFR
#TESTZ2 ,aSFR
a#62000
M]T12,8SFR
#62000,88DADR

JENABLE "TEST 2°' PULSES
;DISABLE ‘'TEST 2"’ PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS

a$BDADR, $BDDAT
$GDDAT ,$8DDAT
TST12S
33

READ THE ACTUAL DATA
. COMPARE
SAME
;OFFSET INPUT TO MATRIX MUX.

#1,3GDDAT

;LOAD EXPECTED DATA

;:BR

;THE

WRONG ADDRESS - EXPF(TED ADR.

SELECTED

WAS 62000

CINC(B NCVIY
rINCCB.P1Y

DiAGNOSTIC

1
31=-AUG=79 11:

MACYTT

1618

30G6(1063)
1125
e

31-AUG-79

1)
(1)
1)

N Nt
Nt

QR S -2

N
Nt

157246

001124

SEQ 0072

=~ 09

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

SCOPE

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC

CLR
8IS
MOV
MOV
MOV
(MP
BEQ
ERROR

001126

104033

22222222

#100,8TIMES

#CLRALL ,aSFR

2022002

020

;;D0 100 ITERATIONS

#61000,a0FF
#TSTDMA!TSTCON,aSFR

#BIT4!BIT2,a(SR
#B1T0,aCSR
#TESTZ,aSFR
#TESTZ aSFR

;CLEAR

THE

RRid

- Q9
2]

DEVICE

JLOAD THE OFFSET REG.
JSET TEST DMA AND CONTROL

JSELECT MATRIX WORD MODE
*ENABLE NCV11

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

a#61000

"CLEAR THE TARGET LOCATION

#BIT12.8SFR

#61000, SBDADR
#1,$GDDAT

aSBDADR , $8DDAT
$GDDAT, $8DDAT
TST126
33

“ALLOW 1 WORD TRANSFER
*LOAD EXPECTED ADDRESS
*LOAD EXPECTED DATA

*READ THE ACTUAL DATA
* COMPARE
::BR IF SAME
COFFSET INPUT TO MATRIX MUX. SELECTED
:THE WRONG ADDRESS - EXPECTED ADR. WAS 61000

R332 2222322322222328220R0R0RR0223222220R222222222220222R222222
Q)]

VERIFY A 1

WORD MATRIX MODE

XFR USING OFFSET

=~ 08

AR ARRRANRARNARARANAANNAANNANAAANRARARARNANARRAAANRNRANRRAAANNA
SRR RS

021670
021672
021700
021706
021714
021722
021730
021736
021744
021752
021756
021764
021772
022000

P Y

001407

TST125:

000100
004000
061000
000014
000024
000001
000002
000002
061000
010000
061000
000001

SaTEST 126

Y
T

N
-

(2)
N
P
N
W
T ~

—

[0 B
e N
N
e e N R s e R T e
—_ e S (N
b D d d b NP\ D D b b D
—~NIN
S
Nt N
N N
O\/VV\IVVVVVVVVVVVV
N~
_ON

021656
021664
021666

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

PAGE 49

iii2223222202220222
R
A
R Rttt
Rl Rl

2122322222223 22223223

021540
021542
021550
021556
021564
021572
021600
021606
021614
021622
021626
021634
021642
021650

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

TRTEST 125

(4)

13:10

022016

000004

012737
012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001601
104033

000100
004000
060400
000014
000024
000001
000002
000002
060400

010000
060400
000001

157116

001124

001160

160050
160034
160034
160016
160010
160012
160004
157772

001122
001124
001126
001126

TST126:

SCOPE
MOV
MOV
MOV
MOV
MOV
8IS
BIS
BIC

CLR
BIS

MOV
MOV
MOV
cMP
BEQ
ERROR

#100,8$TIMES

:.D0 100 ITERATIONS

#CLRALL,®SFR
#60400,90FF
#TSTDMA!TSTCON,aSFR

;CLEAR THE DEVICE
;LOAD THE OFFSET REG.
JSET TEST DMA AND (ONTROL

#8170,aCSR
#TESTZ,aSFR
#TESTZ ,aSFR
a#60400
#MIT12,3SFR

JENABLE NCV11
;JENABLE "'TEST Z2'' PULSES
;DISABLE '‘TEST Z'' PULSES
:CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER

#MIT4'B]IT2,aCSR

#60400, $8DADR
#1,3GDDAT

a$BDADR, $8DDAT
$GDDAT ,$8DDAT
TST127
33

JSELECT MATRIX WORD MODE

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

;READ THE A(CTUAI DATA
; COMPARE
::BR IF SAME
JOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 60400

NCVTY
(ZNC(B
(ZNCCB PN

DIAGNQSTI(

31-AUG-79 11:21

1621
(4)

T
e T e

022020
022022
022030
022036

T
N
o

s T
N

A PPN

T
T

d ed e

000100
004000
060200
000014
000024
000001
000002

Nt Nt Nt N

e T
e T

Nl Nl N
N

SEQ 0073

- 07

VERIFY A 1

WORD MATRIX MODE XFR USING OFFSET

- 07

SR 2332322222222
2R
R
R0 R2RdR2RRRRRRtRdRdl sl

SaTEST 127

001124
022146

T$T127: SCOPE
MOV
MOV
MOV
MOV
MOV

;:D0 100 ITERATIONS
;CLEAR THE DEVICE
#60200,d0FF
;LOAD THE OFFSET REG.
#TSTDMA! TSTCON,aSFR
;SET TEST DMA AND CONTROL
#100,8TIMES

#CLRALL ,aSFR

#8IT4!BIT2,aCSR
#81T0,aCSR

BIS
8IS
8IC
CLR
BIS
MGV

;sSELECT MATRIX WORD MODE

;ENABLE NCVII
JENABLE "'TEST 2°'' PULSES
;DISABLE 'TEST Z2'' PULSES

W#TESTZ,aSFR
NMTESTZ,aSFR

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

a#60200
#81T12,aSFR
#60200,$8DADR
#1,8GDDAT

MOV
MOV
cMP
BEQ

ERROR

@$BDADR, $8DDAT
, $BDDAT
$GDDAT
§§T130

JREAD

THE ACTUAL DATA

. COMPARE

SAME

JOFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED AJR.

—d d N D e

1
6
13:10
PAGE S0
31-AUG~79
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

';t'.".t.'t'fifittttt'fiQ't'.ttt..ittt*fii‘t't'ttt"tit.'it"ttttt.t

b —d D ed AN W

(4)

30G(1063)

WAS 60200

':ttttttttfiittfittitfifitttttttkt"fitt.tttfi*tt.'tfitfi..fi'tttfitt'ttfitfi

TRTEST 130
N
N
W
W
i
W
B
N
e
Y

Nl Nl Nt

o e
P

S
D

Nt Nt

e e Y A ] o¥ R R

e e

SR L2222

022150
022152
022160
022166
022174
022202
022210
022216
022224
022232
022236
022244
022252
022260
022266
022276
022276

000100
004000
060100
000014
000024

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
0R20222028323020

TST130: SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
cMP

BEQ
ERROR

0003200022000

#100,8TIMES
::D0
#CLRALL ,@SFR
#60100,a0FF
NTSTDMA!TSTCON,aSFR

#81T4'BIT2,aCSR
#81TO.3CSR

NTESTZ,aSFR
#TESTZ aSFR

a#60100

#81T12.aSFR

#60100
. $8DADR
#1.$GDDAT

aSBDADR, $8DDAT
$GDDAT, $8DDAT
§§r131

- 06

0RRRiRi0RdRiRRRZRAR

100 ITERATIONS

;CLEAR THE DEVICE
;LOAD THE OFFSET REG.
JSET TEST DMA AND CONTROL
JSELECT MATRIX WORD MODE

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

;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
JLOAD EXPECTED DATA
JREAD THE ACTUAL DATA
. COMPARE

SAME

JOFFSET INPUT TO MATRIX MUX. SELECTED

;THE WRONG ADDRESS - EXPECTED ADR.

wAS 60100

CINCCB NCV1Y
CINCCB.PI11

DIAGNOSTIC

31-AUG-79 11:
21

J
6
11 30G(1063)
MACY
31-AUG=79 13:10 PAGE 5°
T3
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

1624
Q)

CCRARARRRNAANRNANRANAAARRAANR
A RN RNARARNRANRRANRANRNARANRARAAA AN AN AN

SwTEST 131
000004
012737
012777
012777

QA A A A A A A~AAAAA
A A~

b ot

b b

o N

A PO P

Nl N

b d

012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737

Nl N

022426

001401
104033

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

SCOPE
MOV
MOV
MOV
MOV
MOV

BIS
BIS
BIC
CLR
BIS
MOV

000001
156506
001124

MOV
MOV

CMP
BEQ
ERROR

000004
012737
012777
012777
012777

012777
052777
052777
042777
005037
052777
012737
012737
01773/
023737
001401
104033

000100

004000
060020
000014
000024
000001
000002
000002
060020
010000
060020
000001
156356
001124

001160

157310
157274
157274

157256
157250
157252
157244
157232
001122
001124
001126
001126

#100,$TIMES

#CLRALL ,aSFR

#BIT4L!BIT2,aCSR
#81T0.aCSR
#TESTZ.@SFR

8IS
MOV

MOV
MOV
cMP
BEQ
ERROR

*LOAD EXPECTED DATA

a3$8DADR, SBDDAT

t2223223 3333322232322

SCOPE

*ALLOW 1 WORD TRANSFER
*LOAD EXPECTED ADDRESS

#1,$GDDAT

TEST DMA AND CONTROL

JSELECT MATRIX WORD MODE

*CLEAR THE TARGET LOCATION

#81T12.3SFR
#60040 . SBDADR

;SET

*DISABLE ''TEST 2'' PULSES

a#60040

$GDDAT, $8DDAT
TST132

THE DEVICE

JLOAD THE OFFSET REG.

*ENABLE NCV11
"ENABLE 'TEST 2'* PULSES

#TESTZ .@SFR

2000200230

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR

;CLEAR

NTSTDMA!TSTCON,aSFR

L2224

TST132:

;.00 100 ITERATIONS

#60040,a0F F

TRTEST 132
022430
022432
022440
022446
022454
022462
022470
022476
022504
022512
022516
022524
022532
022540
022546
022554
022556

- 05

ii332323220328200000
2222222 022
2222220 tRRdRdRRRlRR Rl

TST131:

000100
004000
060040
000014

St AN N

—

- AU —b = (N

NS Nt
Nt Nt
N
o

AN
d o —h b

tata)
e
t
Nt
e Y e
e
e

SEQ 0074

= 05

:READ THE ACTUAL DATA

;:BR IF

* COMPARE
SAME

JOFFSET INPUT TO MATRIX MUX.

;THE WRONG ADDRESS - EXPECTED ADR.
222000200 2200020022228 22280232322222202222232222322)]

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 04

22323 232222323222822323232223222232222320022220222238R)]

#100,$TIMES

#CLRALL ,@8SFR

;:D0O 100 ITERATIONS

:CLEAR THE DEVICE

#60020, OFF

#TSTDMA! TSTCON,aSFR

#8174 'BIT2,aCSR
#81T0,aCSR

SLOAD THE OFESET REG.
*SET

TEST DMA AND

CONTROL

*SELECT MATRIX WORD MODE
SENABLE NCV11

#TESTZ,@SFR
#TESTZ .@SFR

*ENABLE "‘TEST Z'* PULSES
*DISABLE ''TEST Z2'' PULSES

#8I1T12.3SFR

"ALLOW 1 WORD TRANSFER

60020

*CLEAR THE TARGET LOCATION

#60020 . SBDADR

*LOAD EXPECTED ADDRESS

#1,$GDDAT

a$BDADR , SBDDAT
$GDDAT, SBDDAT
TST133

SELECTED

WAS 60040

*LOAD EXPECTED DATA

::BR IF

*READ THE ACTUAL DATA
* COMPARE
SAME

COFFSET INPUT TO MATRIX MUX.

;THE WRONG ADDRESS =~ EXPECTED ADR.

SELECTED

WAS 60020

CINCCB NCVI1
DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21

1627

(4)

((.)

(3)

000004

(2)
(1)
(1)
(1)
(1)
(1)
(2)
(2)

022562
022570
022576
022604
022612
022620
022626
022634

012737
012777
012777
012777
012777
052777
052777
042777

000100
004000
060010
000014
000024
000001
000002
000002

001160
157160
157144
157144
157126
157120
157122
157114

(1)

022646

052777

010000

(1)

(1)
(1)
(1)
(3)
(1)
(1)

022642
0226564

022662
022670
022676
022704
022706

005037

012737

012737
017737
023737
001401
104033

060010

060010
000001
156226
001124

157102

BIS

cexr12 aSFR

001124
001126
001126

MOV
MOV
P
BEQ
ERROR

CLR

001122

MOV

0010

“CLEAR THE TARGET LOCATION

#60010 . $8DADR

#1,$GDDAT
aSBDADR, $8DDAT
$GDDAT, $8DDAT
TST134
33

"ALLOW 1 WORD TRANSFER

*LOAD EXPECTED ADDRESS

*LOAD EXPECTED DATA
“READ THE ACTUAL DATA
* COMPARE
::BR IF SAME
JOFFSET INPUT TO MATRIX MUX. SELECTED
:THE WRONG ADDRESS - EXPECTED ADR. WAS 60010

tttt'tttttttttttttttltttitt!'tt.fittt'ttti.fittt*tittt'fitttt.t.'Q

TRTEST

134

VERIFY A 1

757134:

SCOPE
MOV
MOV
MOV
MOV

#100,$TIMES
;:DO 100 ITERATIONS
#CLRALL ,@SFR
;CLEAR THE DEVICE
#40004 , 30FF
*LOAD THE OFFSET REG.
#TSTDMA! TSTCON,aSFR
“SET TEST DMA AND CONTROL

BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV

#81T0.aCSR
ATESTZ.@SFR
NTESTZ.aSFR
60004
#BIT12,3SFR
#40004 . SBDADR
#1,$GDDAT
a$BDADR, $8DDAT

(3)
(2)
(1)
(1)
(1)

022710
022712
022720
022726
022734

000004
012737
012777

(1)
(2)
(2)
(1)
(1)
(1)
(1)
(1)

022750
022756
022764
022772
022776
0230064
023012
023020

= 03

#100,$TIMES
;:D0 100 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVIFF
#60010, 30F F
*LOAD THE OFFSET REG.
#TSTDMA! TSTCON,aSFR
“SET TEST DMA AND CONTROL
#B1T4'BIT2,aCSR
*SELECT MATRIX WORD MODE
#81T0.3CSR
:ENABLE NCV11
#TESTZ,aSFR
“ENABLE "‘TEST 2''
PULSES
crssrz aSFR
*DISABLE 'TEST 2" PULSES

(l.)

(1)

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC

(1)
(3)

SEC 0075

2222232222222 2332322223233 2 2233222322222 2223 222222322222 %]

47133 SCOPE

1628

(1)

=- 03

EZX3ZX2222222332X2222323 2222222232323 222333Z2233ZX2232223X28282332222220%

'TEST 133

022560

MACY 11 3?
G(1063)
31-AUG=79 13:10 PAGE 52
133
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

022742

023026
02303¢&

023036

012777
012777

000100
004000
040004
000014

001160
157030
157014
157014

052777
052777
042777
005037
052777
012737
012737
017737

000001
000002
000002
040004
010000
040004
000001
156076

156770
156772
156764

012777 000024

023737
001401

104033

001124

156776

156752
001122
001124
001126
001126

WORD MATRIX MODE XFR USING OFFSET

=- 02

2322222223323 232223 2222322392X2232323232223232222383222233223222332232222¢%
223}

MOV

cvP
BEQ

ERROR

#BIT4!'BIT2,aCSR

$GDDAT, $8DDAT
TST135

332

*SELECT 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
*READ THE ACTUAL DATA

;:BR IF
:THE

* COMPARE
SAME

OFFSET INPUT TO MATRIX MUX.

WRONG ADDRESS =~ EXPECTED ADR.

SELECTED

WAS 40004

CINC(B NCVIY
CINCCB. P11

DIAGNOSTIC

31-AUG=-79 11:21

MACY11 30G(1063)
T135

1633

1634
1635
1636
1637
1638
1639
1640

1641
1642
)
1643
1644
1645
1646

1647

1648
1649
1650
1651
1652
1653
1654
1655
1656

1657
1658
1659
1660
1661

1662

13:10

6
PAGE 53

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

SEQ 0076

'ti'.fit.t!'tt"l"""'.t‘.fittt'tfittt.ttt'ttttfitttttQttt"tQit'

(3)

(3)
(2)

31-AUG-79

TEST 135

VERIFY THE ADM INPUT

TO THE MATRIX MUX.

USING GAIN ENABLE

2SS4
RRRRdR220R2220 2222222232222 22222222222222)]

023040
023042

023050

023142
023144

023146
023154
023162
023170
023176
023200
023204
023206
023210
023212
023220
023224

000004

012737

000010

001160

012777
012777
012777
012777
052777
052777
0462777
005037
005037
052777

004000
062550

156700
156664
156664
156646
156640
156642
156634

000240
000240
000240
012737

012737
017737
023737
001413
005737
001002

TS T135:

000001
155734
001124

MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
CLR
8IS
NOP
NOP
NOP

001122
001124
001126
001126

MOV
MOV
MOV
e

BEQ
TST
BNE
ERROR

062722

104033

000406
013737
005037
104033

062722
001124

001126

#10,STIMES

::D0 10 ITERATIONS

;WITH GAIN SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 250
*WwHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE 1S ‘552"
JVERIFY THAT THE MATRIX MUX CAN ADD 62550 AND 2552 CORRECTLY

156676

065322

SCOPE
MOV

1%:

B8R
MOV
CLR
ERROR

#CLRALL ,@SFR

;CLEAR THE

#TSTDMAT TSTCON,aSFR
#2024 ,9CSR

“SET TEST DMA AND CONTROL
*ENABLE GAIN, WORD MATRIX MODE

#8UF0+2550, 20FF
#81T0.aCSR
#TEST2,9SFR
#TESTZ.@SFR

DEVICE

*LOAD THE OFFSET REG.

"ENABLE THE NCV11
*ENABLE "TEST Z'' PULSES

*DISABLE '‘TEST Z'' PULSES

NBUF(0+5322

‘CLEAR THE TARGET ADDRESS

NBUFN+2722
#BIT12,3SFR

‘CLEAR THE TARGET ADDRESS IF 'TESTX'* FAILS
CALLOW 1 TRANSFER

#SUF0+5322 , $8DADR

:LOAD THE EXPECTED ADDRESS

aSBDADR , SBDDAT
$GDDAT, $8DDAT
TST136

‘READ THE ACTUAL DATA
* COMPARE
SAME

#1,$GDDAT

SNBUF 042722

;:BR IF

*LOAD

THE

EXPECTED DATA

“TEST OTHER ADDRESS
*BR IF NON-ZERO

33
*MATRIX MODE ADDER ERROR
TS?{gg GAIN AND UORD MATRIX MODE, THE ADDRESSES SELECTED WAS
NBUF0+2722, SBDDAT
$GDDAT
33

;LOAD INCORRECT DATA

;CLEAR THE EXPECTED DATA
JMATRIX MODE ADDER ERROR DUE

JUTESTX'' LOGIC SET IN ERROR

INCORRECT

CINC(CB NCVIT
CINCCB P11

DIAGNQSTIC

31-AUG=79 11:21

MACY11

1664

(3)
(3)
(2)
(1)
1665

023226
023230

000004

012737

000010

001160

023236

1675
1676
1677
1678
1679

1683
1684
(3)
(3)
(2)
1)
1685
1686
1687
1688
1689
1690
1)
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708

3123823338333

USING ZB ENABLE

SEQ 0077

122323203830 32323232330338022323232223222222322222223222222R22Z222322323J2Z2Z2Z2])]

VERIFY

7$T136: SCOPE
MOV

2322

THE ADM INPUT TO THE MATRIX MUX.

ADDER

USING 7B ENABLE

0338222222232 222322232222322238232822222223222223232§32/

#10,STIMES

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

1674

1680
1681
1682

1136

13:10 PAGE 54
31-AUG-79
VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

LeTEST 136

166€

1667
1668
1669
1670
1671
1672
1673

30G(1063)

023352
023354

012777
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737

004000

156512
156476
156476
156460
156462
156444
156446

;VERIFY THAT THE MATRIX MUX CAN ADD CORRECTLY
#CLRALL ,@SFR
MOV
;CLEAR THE DEVICE
MOV
MOV
MOV
BIS

001401
104033

‘LOAD THE OFFSET REGISTER

#TESTZ,aSFR

“ENABLE ‘TEST Z'' PULSES

#TSTDMA! TSTCON,aSFR
#4024 ,3CSR

“SET TEST DMA AND CONTROL
"ENABLE ZB AND WORD MATRIX MODE

#81T0,3CSR
#8170 aSFR

BIS
8I(C
CLR
8IS

156434
001122
001124
001126
001126

#8UF 0+5224 , 30F F

*ENABLE NCV11
*DISABLE 'TEST Z'' PULSES

a8UF 0412450

MOV
MOV
MOV
CMP

"CLEAR THE TARGET LOCATION

#BIT12,3SFR
#8UF 0+12450, SBDADR

*ALLOW 1 TRANSFER
*LOAD THE EXPECTED ADDRESS

@SBDADR, SBDDAT
$GDDAT, $BDDAT

‘READ THE ACTUAL DATA
* COMPARE

#1,$GDDAT

8EQ
ERROR

TST137
33

*LOAD

THE EXPECTED DATA

::BR IF SAME
*ADM INPUT TO THE MATRIX MUX SELECTED
"WRONG ADDRESS

EXPECTED ADDRESS WAS BUFO + 2450

';ttttttttfi*tt&ttit!ttttitttt*ttfitit.tt*t*.*ttttlttifittfitfittttttt

L*TEST 137
e

023356

001160
156362
156346
156346
156330
156322
156324
156316
156310
010000

000001
060152
001124

MOV
MOV
MOV
MOV
MOV
BIS
BIS

BIC
biS
CLR
CLR
BIS
NOP

156272

NOP
NOP
MOV
MOV

001124
001126
001126

BEQ

023542

TST
BNE

001126

VERIFY LOW BYTE OPERATION OF THE '‘TESTX'' FLOP
RdRR220002¢0

1§7137: SCOPE

062552

062552
001124

S22

1%:

ERROR
BR
MOV
CLR
ERROR

2802222822020

#10,8TIMES
#CLRALL ,@SFR

#BUF0, 30F F

28328d0200023 0202220222

::DO 10 ITERATIONS
:CLEAR THE DEVICE

#TSTDMA' TSTCON,aSFR

#2026 ,aCSR

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

*LOAD OFFSET REG.

“LOAD TEST DMA AND CONTROL

*SET "GAIN'' AND WORD MATRIX MODE

“SET NCV11 ACTIVE
*ENABLE ''TEST 7' PULSES
*DISABLE ""TEST 2’ PULSES
SSET "TESTX'* FLOP

aBUF 0+2552

"CLEAR THE TEST FAILED LOCATION

SMBUF 0+0152
#B1T12,3SFR

*CLEAR THE TESTX WORKED LOCATION
*ALLOW 1 TRANSFER

#1,$GDDAT

a#BUF0+0152, SBDDAT

$GDDAT , SS8DDAT

022202234]

;LOAD EXPECTED DATA

‘READ THE ACTUAL DATA

COMPARE DATA

TST140

;:BR IF

18
%21140

;:BR IF YES
“TESTX FAILED TO INHIBIT BITS 8-15 OF

NBUF 0+2552

SAME

CTEST TESTX FAILED LOCATION

THE '‘SUM ADDER'"

aN#BUF 0+2552, $8DDAT

:GET ACTUAL DATA

"TESTX FAILED TO INHIBIT BITS 8-15 OF

$GDDAT

*CLEAR EXPECTED

THE ‘‘SUM A

—

LZNCCB NCVTIT
CZNCCB.P1T

DIAGNOSTIC

21
31-AUG-79 11:

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 55
7140
VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MuX
SR 3233382232032

SwTEST 140

2822

3020022222302 822

R 202

0C2RRC2t2

SEQ 0078

2Rttt

tRRtRRd)

VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX

023544

o NS ANN = OO 00 N~ ONN S AWN) =

n PINIPINININA)
= b e d ed e b od b b —d )

b
d
D et —d
D
b md
D ad
e
b
b
b

NNNNNNNNNNANSNNNNNA
A

':QtttttfiQi'.tfitttttt.fitfi.'tifittt.Qtttt*!ti.ttttttttttt"ttt"tfit

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

001160

TST140:

156174
156160
156160
156142
156134
156136
156130

SCOPE

MOV

#100,STIMES

MOV

#50000,80F F

MOV

156116

;CLEAR THE DEVICE

#TSTDMA!TSTCON,aSFR

BIS
8I(
CLR
BIS

W#TESTZ,@SFR
N#TESTZ ,@SFR
NBUF0+2726
#BIT12,8SFR

MOV

MOV
MP
BEQ
ERROR

104033

;;D0 100 ITERATIONS

MOV

MOV
BIS

001122
001124
001126
001126

#CLRALL ,aSFR

;SET TEST DMA AND CONTROL

#2030,aCSR
#81T0,3CSR

JSELECT GAIN MATRIX BYTE MODE
JENABLE NCV11

‘BUFO*é726.$BDADR

JLOAD EXPECTED ADDRESS

#1,8GDDAT

a$8DADR, $SBDDAT
S$GDDAT ,$BDDAT
T1ST141
33

JENABLE ‘‘TEST Z'' PULSES
;DISABLE °'‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
sLOAD EXPECTED DATA

JREAD THE ACTUAL DATA
. COMPARE
;:BR IF SAME
JMATRIX ADDER FAILED TO SELECT CORRECT ADDRESS
;THE WRONG ADDRESS -~ EXPECTED ADR. WAS BUF0+2726

S*TEST 141

sLOAD THE OFFSET REG.

VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MuX

::ttt*fiti!Qttt!t'*.tfitltt.ti'.t!lt.t'tfitifitt.*'!ttfitfitttttttttttt

023674
023676
023704
023712
023720
023726
023734
023742
023750
023756
023762
023770
023776
024004
024012
024020
024022

000004

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

001160

156044
156030
156030

156012
156004

156006

156000

155766
001122

001124

001124
001126
001126

TST141:

SCOPE

MOV

#100,STIMES

MOV

#37774 ,90FF

MOV

BIS
BIS
BIC

CLR

BIS

MOV

MOV
MOV

cTMP

BEQ
ERROR

#CLRALL ,@SFR

;:D0 100 ITERATIONS

:CLEAR THE DEVICE

#TSTDMA! TSTCON,@SFR

#2032,3CSR

#81T70,3CSR

*LOAD THE OFFSET REG.

SSET TEST DMA AND CONTROL

*SELECT GAIN MATRIX BYTE MODE

*ENABLE NCV11

#TESTZ,aSFR
#TESTZ.@SFR

SENABLE ‘'TEST 2'* PULSES
*DISABLE ‘‘TEST Z'' PULSES

aNMBUF 0+5522

"CLEAR THE TARGET LOCATION

#81T12,aSFR

*ALLOW 1 WORD TRANSFER

#1,$GDDAT
aS8DADR , $BDDAT

*LOAD EXPECTED DATA
*READ THE ACTUAL DATA

#8UF0+5522, $8DADR

$GDDAT , $BDDAT
TST142
33

;:BR IF

*LOAD EXPECTED ADDRESS

* COMPARE

SAME
*MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

:THE WRONG ADDRESS - EXPECTED ADR.

WAS BUF0+5522

NCVIY
CZNCCB
CINCCB P

DIAGNOST 1C
31-AUC-79 11:21

MACY11

1743

(3)
(3)
(2)

(1)
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
(1)
1755
1756
1757
1758
1759
1760

1761
1762
1763

30G(1063)
T142
e

B 7
31-AUG~79 13:10 PAGE 56
VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX

SEQ 0079

2833232332332 232223232022322323232222323222222232232AR2RR2RRRRRRRRR]

TRTEST 142

VERIFY BIT 14 ADDER INPUT

TO MATRIX MODE MUX

';QQ.Qt.t.."."'tQtfi'.t...tt'.t.t'.'.i'!.Q.Qt.'t'tttttQflttttttnt

026024
024026

000004
012737

000100

001160

1ST1142:

SCOPE

MOV
;OFFSET =

JADM QUTPUT

024034
024062
024050
0264052
024060
024066
024074
024102
024110
024116
024122
024130
024136
024144
024152
024160
024162

012777
023727

004000
036404

55714
0 01340

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

050000
000014
002034
000001
000002
000002
123656
010000
123656
000001
154752
001124

103445

104033

]

55670
55670
55652
55644
55646
55640

155626
001122
001124
001126
001126

; TARGET

MOV
cMP
BLO
MOV
MoV
MOV
BIS
BIS
8IC
CLR
B1S
MOV
MOV
MOV
cMP
BEQ
ERROR

#100,$TIMES

50000

53656
123656
#CLRALL,8S5FR
SLSTBK , #1340
TST143

;:00 100

=
=

#50000,80FF

ITERATIONS

;CLEAR THE DEVICE
;TEST IF ENOUGH MEMORY >20K

;:BR IF NO ROOM
;LOAD THE OFFSET REG.

#TSTDMA' TSTCON,aSFR

“SET

#81T0.3CSR

SENABLE NCV11

#2034 ,a8CSR

#TESTZ.aSFR

#TESTZ.,aSFR

*ENABLE ''TEST Z'' PULSES

SMBUF0+43656
#M1T12,aSFR
#BUF0+43656, $BDADR
#1,$GDDAT

a$8DADR , $BDDAT
$GDDAT ,$BDDAT
TST143
33

TEST DMA AND CONTROL

JSELECT GAIN MATRIX BYTE MODE

:DISABLE '‘TEST 2'' PULSES

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

;READ THE ACTUAL DATA
: COMPARE
;:BR IF SAME

JMATRIX ADDER FAJLED TO SELECT CORRECT ADDRESS
;THE WRONG ADDRESS - EXPECTED ADR. WAS BUF0+43656

NCV1T
CZNCCB
CZNCCB P11

DIAGNOSTIC

31-AUG-79 11:21

MACY11 30G(1063)
T143

1765

1773
(1
1774
1775

1776

1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1750
1791
1792
1793

000240
000240
000240
112737
112737
052777
000240
000240
000240
012737
017737

023737

001401
104030

013737

012737
023737
001401
104030

000100
000377
010000

061264
061265
155450

022022
155420
001124

001124
001126
001126

061264

177500

001124

0222d32

3332322222028

T$T143: SCOPE

000010

000004

012737
012777
005077
005077
012777
012777
012777
052777
052777
042777

1770
177
1772

SwTEST 143

—_

(N
1766
1767
1768
1769

S5 332332320222

001126
001124
001126

1%:

2222232332222

023

8222022202200 00 222

SEQ 0080

200R0ddZRRR

CHECK FOR HIGH BYTE ''INC OVFL'' TO SET CELL OVERFLOW

0802222

0022002

MOV
MOV
CLR

#10,8TIMES
#CLRALL ,aSFR

MOV
MOV
MOV
BIS
BIS
BIC
NOP
NOP
NOP
MOovB
Mov8
BIS
NOP
NOP
NOP
MOV
MOV
CMP
BEQ
ERROR

#BUFO, S0FF

MOV
MOV
CMP
BEQ
ERROR

BUF 0+1264, $SBDDAT

CLR

(3)
(3)
(2)

31-AUG=79 13:10 PAGE 57
CHECK FOR HIGH BYTE ''INC OVFL'® TO SET CELL OVERFLOW

aWwCR

RRd22

iR2ddt2RRdd2

Rttt

RRR

)]

;:D0 10 ITERATIONS
;CLEAR THE DEVICE

;CLEAR W.C.

aBAR

;CLEAR B.A.

sLOAD INITIAL OFFSET REGISTEK

#8IT10'BIT4(!BIT1,aCSR

ENABLE MATRIX MODE BYTE AND SET GAIN

#TSTDMA! TSTCON, aSFR

“SET TEST DMA AND CONTROL

#IT0,8CSR

JENABLE THE DEVICE

#TESTZ,aSFR
#TESTZ,@SFR

;ENABLE "TEST 2"’ PULSES
;DISABLE °‘‘TEST 2'' PULSES

#100,8BUF0+1264

:LOAD LOW BYTE TO A KNOWN VALUE

#BIT12,38SFR

:ALLOW 1 TRANSFER

#377 ,BUF0+1265

JSET HIGH BYTE

10 377

#8IT13!BIT10!BIT4!BIT1,8GDDAT
;LGAD EXPECTED STATUS
aCSR,$8BDDAT
JREAD THE ACTUAL STATUS
$GDDAT ,$BDDAT
13

;;BR

TST144

sCELL OVERFLOW FAILED TO SET

JWHEN INCREMENTING

THE

HIGH BYTE

JREAD THE BUF(O LOCATION

#177500,$GDDAT

$GDDAT, $BDDAT

. COMPARE
SAME

JLOAD EXPECTED VALUE

;:BR

;. COMPARE VALUES

SAME

;TARGET LOC.

DATA WAS

INCORRE(CT

DIAGNQSTIC

21
31-AUG=79 i1:

1T 30G(1063)
MACY
31-AUG=79 13:10 PAGE 58
T144
VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER

(TESTER ONLY)

':'fil*t'.'tti!t'tfiti"t'ttttt"tt"tt't.ttt*tt't'fifittt"""t'.tt

SwTEST 146
e

2 —

=)
O

18:

SCOPE
MOV
TST
BEQ
MOV
MOV

NWVION
oS

TSTB
8PL
MOV

CMP
BEQ
ERROR

104010

000403
006337
001332

BR
ASL
BNE

3%:

001124

VERIFY EACH BIT OF
00

MOV
MOV
MOV
MOV
DEC
MOV
BIS
BIS

VWY

OONN)
NNOOON

INWNWN

TST144:

2%:

155222

155242
001124

2122242332000

Ny
o

017737
023737
001402

004000
000010
000000
001124
155276
000022
000001
000001

105777
100375

000001
024422

—

012777
012777
012777
013777
005377
012777
052777
052777

001160

—

024422
024430
024436
024444
024452
024456
024464
024472
024500
024504
024506
024514
024522
024524
024526
024530
024534

000400
050024

—_—

000004
012737
005737
001454
012737
012737

QO
(o]

024370
024372
024400
024404
024406
024414

2002002000222

THE LOWER 16 BIT Z COUNTER

(TESTER ONLY)

2022222222222 23222332232022222223222228¢32)]

#400,$TIMES
WFMODE

TST145

#1,SGDDAT
#1$,SLPERR

;.D0 400 ITERATIONS

sTEST
;;BR IF NOT

;CLEAR THE DEVICE
JSET TEST DMA FLOP

;LOAD UPPER 16 BITS

#0,3WCR
$GDDAT, @BAR
a@BAR
#MIT4L!BITY,aCSR

;LOAD INITIAL COUNTER VALUE
SJENTER MATRIX MODE
JENABLE THE DEVICE

#170,aCSR
#81T0,aDACSR

;GENERATE '‘Z7'' PULSE

aDACSR

aBAR, $SBDDAT
$GDDAT ,$BDDAT
33
10
TST145
$GDDAT
1%

TESTER MODE

;LOAD EXPECTED VALUE
;LCAD LOOP ADDRESS

#CLRALL ,aSFR
N#TSTDMA,aSFR

’3$

;WAIT FOR Z PULSE

COMPLETION

;READ EXPECTED REGISTER VALUE
; COMPARE
JcBR IF SAME
;LOWER 16 BITS OF THE Z COUNTER [N ERROR

"’

:CHANGE THE DATA BIT

‘B8R AND TRY NEXT BIT

';tttttttt!tt't't.tt'tttttttttt.ttttttfittttitttltfi.tttttttti'tttt

- N
O

&SV

ONO

—
——h
—

RR2R

001124

1%:

oo
oo

—

SCOPE

MOV
TST
BEQ
MOV
MOV

104011

000403
006337
001332

ARl L

TST145:

QO—= =2
O —=wWw
OSSO

—

)

—

VERIFY EACH BIT OF

2%:
—

155072
001124

RV TV 1V )

004000
000010
001124
155134
177777
000022
000001
000001
155054

VIV
IV (V. RV, [V [V, BN e

012777
012777
013777
005377
012777
012777
052777
052777
105777
100375
017737
023737
001402

000001
024570

001160

S*TEST 145

(W IV IV TV

024570
024576
024604
024612
024616
024624
024632
024640
024646
024652
024654
024662
024670
024672
024674
024676
024702

000400
050024

—

000004
012737
005737
001454
012737
012737

—

024536
024540
024546
024552
024554
024562

QO
OO

N Nt Nt N
oo~
w

d e
D
D
d
e
i
d e
d
—
-

0000
—~ ~ ~ ~~ 00 00 00 00 00 00 00 CO 0o
AN
= 4PN NN D = = 0
e ed =2l
OO0~ ~ ~r 00 N (e JV, P NV NE J &)

) e

d e

)

~ SN~

28 ~ 23 s R Rl 3

(ZNC(CB
NCVIT
(INCCB.P11

MOV
MoV
MOV
DEC
MOV
MOV
BIS
BIS

TSTR
BPL

2200222

#400,$TIMES

WFMODE

TST146
#1,3GDDAT
#1$ ,SLPERR

THE HIGHER 16 BIT Z COUNTER

220

:;BR

$GDDAT ,aW(R
aw(R

#8I1T4!BIT1,aCSR
#B170,aCSR
#8170,aDACSR

BNE

NOT

;LOAD EXPECTED VALUE
.LOAD LOOP ADDRESS

JWAIT FOR Z PULSE

TST146
$GDDAT

(TESTER ONLY)
D]

JGENERATE ''Z'' PULSE

aDACSR

RDRE

JLOAD INITIAL COUNTER VALUE
;LOAD LOWER 16 BITS
JENTER MATRIX MODE
;ENABLE THE DEVICE

#-1,aBAR

;CLEAR THE DEVICE
;JSET TEST DMA FLOP

#TSTDMA,aSFR

aWCR,$8DDAT
$GDDAT, $BDDAT

R2RSRdtd

;:D0 400 ITERATIONS
JTEST IF TESTER MODE

#CLRALL ,@SFR

MOV
cMP
BEQ
ERROR
B8R

ASL

COMPLETION

JREAD EXPECTED REGISTER VALUE

. COMPARE
..BR IF SAME
JHIGHER

16 BITS OF

THE

CCUNTER

-CHANGE THE DATA BIT
;BR AND TRY NEXT BIT

IN ERROR

SEQ 0081

CINCCB NCVIY
CINCCB P11

DIAGNOSTIC

21
31-AUG-79 11:

MACY11

1842

(3)
(3)
(2)

(1)
1843
1844
1845
1846
1847
1848
1849

1850

1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861

7
E
13:10 PAGE 59
30G(1063)
31-AUG-79
T146
VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL
a2t

82200200

CATEST 146

RS20

RRR 2022222222222

VERIFY THAT CAMERA 01

230002

(TESTER ONLY)

2022232220222

CHANNEL IS OPERATIONAL

(TESTER ONLY)

e iii322A022202020022
20 202202
2Rd iR
R0t
RRRddRdsRRRd ]

024704
024706
024714
024720
024722

000004
012737
005737
001443
012737

024730
024736
024744
024752
024760
024766
024774

012777
012777
012777
012777
012777
052777
052777
105777
100375
017737
023737
001401

025026

000400
050024

001160

000001

001124

TST146:

000001
000001
154720

#400,8TIMES

;:D0 400 ITERATIONS

BEQ
MOV

#1,8GDDAT

TST147

;:BR [F NOT

TST

19%:

004000
000010
000000
000000
000422

SCOPE
MOV

2%:

154740

MOV

MOV
MOV
MOV
MOV

BIS
BIS
TSTR
B8PL
MOV
(MP

001124

BEQ

104010

ERROR

WFMODE

;TEST

TESTER MODE

;LOAD EXPECTED VALUE

#CLRALL ,aSFR
#TSTDMA,aSFR

#0,aWCR
#0,aBAR

sCLEAR THE DEVICE
JSET TEST DMA FLOP
;LOAD UPPER 16 BITS
JLOAD LOWER 16 BITS

#IT0,aCSR
#8170,aDACSR

JENABLE THE DEVICE
;GENERATE '‘7'' PULSE

MIT8!BIT4L!BITT,a(SR

JENTER MATRIX MODE ON CAMERA 01

ggACSR

JWAIT

aBAR, $SBDDAT

$GDDAT ,$BDDAT
1ST147
10

FOR 7 PULSE

COMPLETION

;READ EXPECTED REGISTER VALUE

;:BR [F

; COMPARE
SAME
JLOWER 16 BITS OF

THE

;IN ERROR WHEN USING CAMERA 01

Z COUNTER

';tt.tlt'ttti"tittit"tfi'.ttttt.'t.'ti.fifittfittt"t'tt't't'flt't'i

LSTEST 147

VERIFY THAT (AMERA 10 CHANNEL

IS OPERATIONAL

(TESTER ONLY)

CCRARNRARARRARARAAAAARRNARAANAARRARANAARNANRRARAARARRNRARAAAANAANRANS
AN N AN

025030
025032
025040
025044
025046

000004
012737

025054
025062
025070
025076
025104
025112
025120
025126
025132
025134
025142
025150

012777
012777
012777
012777
012777
052777
052777

025152

005737
001443
012737

105777
100375

017737
023737
001401
104010

000100
050024

0011760

000001

001124

004000
000010
000000
000000
001022
000001
000001
154574

154674
154666
1564654
154650
154634
154626
154600

154614

001126
001126

001124

TST147:

1%:

2%:

SCOPE
MOV
TST
BEQ
MOV

MOV
MOV
MOV
MOV
MOV
BIS
8IS

TSTR

#100,8TIMES
WFMODE
TST150
#1,8GDDAT

::00 100 ITERAT]IONS
;TEST IF TESTER MODE
;:BR IF NOT

JLOAD EXPECTED VALUE

#CLRALL ,aSFR

;CLEAR THE DEVICE

MITS'BIT4!'BIT1,a(SR

SENTER MATRIX MODE

#TSTDMA,aSFR
#0,aWCR
#0,aBAR

JSET TEST DMA FLOP
;LOAD UPPER 16 BITS
;LOAD LOWER 16 BITS

#R170,aCSR

JENABLE THE DEVICE

#3]1T0,aDACSR

:GENERATE "'7'' PULSE

ggACSR

aBAR, $BDDAT
$GDDAT, $BDDAT
TST150
10

JWAIT

;:BR

FOR Z PULSE

COMPLETION

JREAD EXPECTED REGISTER VALUE
. COMPARE
SAME
;LOWER 16 BITS OF THE 2 COUNTER

;IN ERROR WHEN USING (AMERA 1(

SEQ 0082

NCV11
CZNCCB
C(INCIB.P

DJAGNOSTIC
1
31-AUG=79 11:

MACY1

30G(1063)
T150

31-AUG=7Y
13:10 PAGE 60
VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL

(TESTER ONLY)

a2 2222223223223222232023202022d3202
2 22222222230 R22RR2Z22R2202¢8Z222)]

SaTEST 150
a2

025154
025156
025164
025170
025172

000004
012737
005737
001443
012737

025200
025206
025214
025222
025230
025236
025244
025252
025256
025260
025266
025274
025276

000100
050024

001160

000001

001124

012777
012777
012777
012777
012777
052777
052777

006000

154550

017737
023737
001401

154470

105777
100375

104010

X22223422

T$T150: SCOPE

1%:

MOV
TST
BEQ
MOV

#100,8TIMES
WFMODE

MOV
MOV
MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR
#0,aW(R

8IS

2%:

1564450

001124

001126
001126

VERIFY THAT CAMERA 11

BIS
1ST8B
BPL
MOV

CHANNEL

IS OPERAT]ONAL

(TESTER ONLY)

2202020032000 2200RR22223202222322232222222222X2322RZ2Z22)

cMp
BEQ
ERROR

TST151

#1 ,3GDDAT

;:D0 100 ITERATIONS
JTEST IF TESTER MODE

;:BR IF NOT

JLOAD EXPECTED VALUE
JCLEAR THE DEVICE
JSET TEST DMA FLOP
;LOAD UPPER 16 BITS

#0,aBAR

;LOAD LOWER 16 BITS

#MIT9'BIT8!BIT4!'BIT1,a(SR

SENTER MATRIX MODE

#MIT0,aCSR
#B170,aDACSR

JENABLE THE DEVICE
;GENERATE ''Z7°' PULSE

aRAR,$BDDAT
$GDDAT, $BDDAT
TST151
10

JREAD EXPECTED REGISTER VALUF
; COMPARE
SAME
JLOWER 16 BITS OF THE 2 (OUNTER

ggACSR

JWAIT FOR Z PULSE

;:BR IF

COMPLETION

;IN ERROR WHEN USING CAMERA 11

SEQ 0083

NCVIT
L1

DIAGNOSTIC

31-AUG=79 11:21

MACY 1T

30G(1063)
151
e

31-AUG=79

13:10

DYNAMI(C MATRIX MODE

2222222233222

SwTEST 151

222222808

PAGE 61

SEQ 0084

ADDRESS
022 2222222l
Xa
Rl

DYNAMIC MATRIX MODE ADDRESS

;;'Qfitttttttttttt'ttt.tt.ttt't't.t.tt.tt.t'fittt'tfi'tttt.t...'t."

025300
025302

000002

001160

T$T151:

SCOPE
MOV

#2,8TIMES

;:D0 2 ITERATIONS

SCELL INCREMENT OF "A FLOATING LOCATION (60000,70000,64000,62000,61000)

TFILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)

“COLLE-T DATA OF O AND INCREMENT A TARGET LOCATION
“VERIFY THAT NO OTHER ADDRESS IS CHANGED
050030
025664
001110

025310
025316
025324

060000
020000

025332
025336
025342
025346
025350
025352
025354

060000

012777

177770

022446

025362
025370
025376
025404
025410
025416
025424
025432

012777
013777
012777
005077
012777
012777
052777
052777

004000
050030

154366
154352
154346

002004
000024
000002

154340
154322
154324
154306

025440
025444
025446
025454
025456
025460
025462
0254064
025466
025474
025502
025504
025506
025512
025516
025520
025524
025530
025536
025544
025546
025550
025552
025560

013700
005001
032777
001014
005301
001372
005300
001370
017737
012737
104002
000470
012700
023700
001415
010037
011037

002012

025332

003354

012737
023737
001417

177777
154344

000001

060000

154254
060224

12525¢

001124

JPRIME

154272

00°126
01124
5¢:
6$:

001124
001126

N
o no

——b
—t

050030
022244

—

017737

#a1715%.1008
#2% . $LPERR

“LOAD FORCE BIT

*LOAD RETURN ADDRESS

MOV

#BUF
0 ,RO

:LOAD POINTER TO BUFFER

MOV
MOV
P
BNE
MOV

ADNOKT ,R2
R1, (RO)+
RO,R2
38
#-10,3CURENT

*LOAD BUFFER END ADDRESS
*LOAD BUFFER WITH DATA
“TEST FOR ENL

MOV

#125252 . R1

*LOAD VALUE

:PRIME THE

TARGET LOCATION

MOV
MOV
MOV
(LR
MOV
MOV
BIS

#CLRALL ,@SFR
CURENT , 30F F
#-1, (R
aBAR
#TSTCON,@SFR
#24 ,3CSR
#TESTZ.aSFR

;INIT 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 7 FLOF

?OX

g?UDLZ.RO

:PRIME THE DELAY

#8IT0.aCSR

"ENABLE THE NCV11

L
BIT

#RIT14 BIT13,aCSR

DEC

BNE

;TEST

FOR CELL

OR 7 OVERFLOW

5¢

S:BR IF

BNE
DEC
BAT

4$
RO
43

:DELAY

MOV
ERROR
BR

#RI1T14
. BIT13+4224 $GDDAT ;LOAD EXPECTED STATUS
2
“DYNAMIC MATRIX MODE STATUS ERROR
TST152
M

MOV
CMP

BEQ
MOV
MOV

;READ BAD STATUS

#BUF 0 ,RO
CURENT ,RO

*GET BUFFER POINER
“TEST IF TARGET ADDRESS

7$
RO, $BDADR

(RO) . $BDDAT

©:BR IF YES
SGET BAD ADDRESS FOR TYP[-OUT
*GET BAD DATA

$GDDAT,$BDDAT

- COMPARE

#125252.$GDDAT

BEQ
ggnon

108
¥gr152

MOV

*DELAY

EITHER IS SET

aCSR, $BDDAT

MOV

CMP

7$:

THE BUFFER WITH A 125252 PATTERN

MOV

104033

000446
013737

MOV

BIS

4$:

THE OFFSET

AND INCREMENT ANOTHER LOCATION
MOV
#8UFO,CURENT
;PRIME THE CURRENT TARGET LOC.

MOV

060000
050030

001122
001126

2% :

125252

G
s Ger S
Py Qe Gheer S

NOAWVNES WSO

QeNeReReReRoRe)

"AFTER VERIFYING YHE \HOLE BUFFER - UPDATE

CURENT ,$8DADR

JCURENT ,$8DDAT

:LOAD EXPECTED DATA

::BR IF SAME
*CHANGED AN INCORRECT

-LOAD EXPECTED ADDRESS
;LOAD ACTUAL DATA

TARGET LOCATION

NCVIY
CINC(B
(INC(B. P11
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968

1969

1970

1971
1972
1973

(%
3
(2)

1974
1975

1976
1977
1978

1979
1980
1981
1982
1983

DIAGNOSTIC

31-AUG=79 11:21

025566
025574
025602

012737
023737
001400

025612

005720
023700
001337

025614
025620
025622
025630
025632
025636
025644
025646
025654
025662
025664

005737
001422
032777

MACY11

003407
00112¢
10%:

003354
001202

004000

153310

025664
000002

025664

060000
025664

050030
050030

SEQ 0085

MOV
(MP
BEQ

#3407 ,8GDDAT
$GDDAT ,$BDDAT
108

;LOAD EXPECTED DATA
. COMPARE
;:BR IF SAME

TST
(MP
BNE

(RO) +
ADNOKT RO
63

;BUMP THE POINTER [NTO THE BUFFER
JTEST IF FINISHED THE BUFFER
;BR AND RETEST THE REST OF THE BUFFER

TST

$PASS

JTEST

BIT

#SW11,aSwWR

(MP

#2,1008

BEQ
BNE
ASR

BEQ
Mov

1008:

020000

31-AUG-79
13:10 PAGE 61-1
30 G(1063)
S
DYNAMIC MATRIX MODE ADDRESS

BIS
BR

BIT13

TST1S2

FIRST PASS

;:BR IF YES

JTEST INHIBIT INTER.

TST1S2
1008

;:BR IF SET
;CHANGE THE FORCED ADDR. BIT

TST152
#8UF O, CURENT
1008, CURENT
23

JiBR IF FINISHED
;MAKE UP NEW ADDRESS

:TEST

IF FINISHED

,'.‘t'ttfi.'t.t"'i.fittl!'tt'l"ii'ttfifiQ*t"i‘fl't.t'itttt.tttttt'.t'.t

T*TEST

152

DYNAMIC LIST MODE ADDRESS

.':.'t"fitt'tl’t.'.t*ttfi.fi'*ttttti*itfittttttttittlt'tQfitt't.l.t't't

025666
025670

000004

012737

000002

001160

*$7152:

SCOPE

MOV

#2.$TIMES

::DO 2 ITERATIONS

;FILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)
DO A 1 WORD TRANSFER TO A TAGET LOCATION

:VERIFY THAT NO OTHER LOCATION IN THE BUFFER IS CHANGED
SAFTER VERIFYING BUMP THE BUS ADDRESS AND DO SUB-TEST

AGAIN

025676
025704
025712

012737

025720
025724
025730
025734
025736
025740

012700
012701
013702
010120
020002
001375

060000
125252
003354

025742
025750
025756
025764
025772
026000
026006

012777
012777
013777
012777
052777
052777
042777

004000
177777
050030
000004
000001
000002
000002

MOV

#CLRALL ,aSFR

JINIT

MOV
MOV

CURENT ,aBAR
#TSTCON,aSFR

;LOAD TARGET LOCATION POINTER
JENABLE MAINT. MODE

002012

MOV

026014
026020
026022
026030
026032
026034
026036
026040
026042

012737
012737

060000
020000
025720

060000

017737

153700

050030

026244
001110

MOV

#BUFO,CURENT

;PRIME THE CURRENT TARGET LOC.

MOV

#2$ SLPERR

*LOAD RETURN ADDRESS

MOV

;PRIME

MOV

#BUFO RO

;LOAD POINTER TUO BUFFER

MOV

ADNOKT, R2

:LOAD BUFFER END ADDRESS

MOV

CMP
BNE

BIS

BIS
BIC

001126

*LOAD FORCE BIT

THE BUFFER UITH A 125252 PATTERN

MOV

153716

#8171%5.1008

CLR
BIT

BNE
DEC
BNE
DE(
BNE

MOV

#125282 R1
R1, (RO)+
RO.R2
3$

#-1,3WCR

#B1T0,3CSR

WMTESTZ,aSFR
#TESTZ,aSFR

*LOAD VALUE

*LOAD BUFFER WITH DATA
“TEST FOR END

THE DEVICE

JPRIME THE WORD COUNT
JENABLE THE NCV11

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

C?UDLZ.RO

;PRIME

THE DELAY

5%
R1
4%
RO
4%

;.BR IF
sDELAY

EITHER S SET

R
#31T14!B1T13,a(SR

a(SR, $8DDAT

STEST FOR CELL

sDELAY
;READ BAD STATUS

OR Z OVERFLOW

NCVIN
CZNCCB
CZNC(CB P11

2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018

026050

026112
026120
026122
026124
026126
026134
026142
026150
026156
026160
026162
026164
026166
026172
026174
026200
026202
026210
026212
026216
026224
026226
026234
026242
026244

DIAGNOSTIC

31-AUG=79 11:21

012737
104036

000472
012700
023700
001415
010037
011037
012737
023737
001421

060224

MOV
ERROR
BR

5%:
6%:

001124
001126

050030
021670
003407
001724

001122
001126
001124
001126

7%:

cMP
BEQ

(MP
BEQ
ERROR
BR

MOV
MOV
MOV
(MP

BEQ
ERROR

001202

020000

MOV

MOV
MOV
MOV

10%:

003354

060000
026244

001124

T152

001122
001126
125252
001124

026244
000002

13:10
PAGE 61-2
DYNAMIC LIST MODE ADDRESS

060000
050030

004000

31-AUG=79

MACY11 30G(1063)

BR
TST

(me
BNE

152730

026244
050030

100%:

TST153
#8UF 0RO
CURENT,RO
7$
RO, $BDADR

(RO) , $8DDAT
#125252,$GDDAT

$GDDAT, $8DDAT
108
21
TST153
CURENT, $BDADR
SCURENT , S8DDAT
#3407 ,SGDDAT
$GDDAT, SBDDAT
108
37
TST153
+
(RO)
ADNOK
T ,RO
6$
$PASS
TST153
#SW11,aSwR

ASR

1008
#2.100%
TST153

(MP
BEQ

050030

#1716 .BIT13+4224,8GDDAT ;LOAD EXPECTED STATUS
36
JDYNAMIC LIST MODE STATUS ERROR

TST

BEQ
BIT
BNE

MOV
BIS
BR

BIT13

SEQ 0086

1ST15$

#BUFO, CURENT
;gOS.CURENT

:GET BUFFER POINER
JTEST

TARGET ADDRESS

;:BR IF YES
;GET BAD ADDRESS FOR TYPE-QUT
;GET BAD DATA
cLOAD EXPECTED DATA
; COMPARE
.sBR IF SAME
s CHANGED AN INCORRECT TARGET LOCATION

;LOAD EXPECTED ADDRESS
JGET ACTUAL DATA
;LOAD EXPECTED 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
STEST IF FIRST PASS
::BR IF FIRST PASS
JTEST INHIBIT INTER.
;:BR IF SET
:CHANGE THE FCRCE ADDRESS
JTEST

END

;:BR IF FINISHED

;MAKE NEW ADDRESS

CINC(B NCVIT
CINCCB.P11

2041
(3)
(3)

DIAGNOSTIC

31-AUG=79 11:21

MACY11

7
30G(1063)
31-AUG-79
13:10 PAGE 62
T153
DYNAMIC LIST MODE TRANSFER - MAXIMUM BUFFER LENGTH IN LOWER 28k
SR

2383233322223

S*TEST 153

2822322200R22222

2222000

2AdRRRRaRARRR

DYNAMIC LIST MODE TRANSFER - MAXIMUM BUFFER LENGTH IN LOWER 28k

CLARARNARARANAANNAAANARANRRAAARNRARAAAASAARRRANANRANAARPARANAAAANRRANRA
AN RR

026246

026270

026272
026276
026302
026306
026310
026312

026314
026322
026326
026334
026342
026350
026356
026362
026370
026372
026374

000004
012737
013700
162700
005400
006200

000040

003354
060000

012703
012701
013702
010123
020302
001375

060000
125252
003354

012777
010077
012777
012777
052777
052777
013700
032777
001014
005301
001372
005300
001370
017737
012737

004000
153424
060000
000004
000001
000002
002012
060000

104036

000423
012700
010037
011037
01273/
023737
001402

TST153:

:PRIME

2% :

3%
153434

003354

::DO 40 ITERATIONS
“GET LAST ADDRESS
:DETERMINE THE WORD COUNT VALUE

MOV

#BUFO

:LOAD POINTER TO BUFFER

MOV

#125252 R1

MOV

ADNOKT ,R2

R1, (R3)+

*LOAD BUFFER END ADDRESS

*LOAD BUFFFR WITH DATA

ASR
RO
THE BUFFER erH A 125252 PATTERN

BIS

4%:

BIS
MOV
BIT
BNE
DEC
BNE
DEC

BNE

MOV

060200
060000
001122
001126
003407
001124

#40,$TIMES
ADNOK T, RO
#8UF0.RO
RO

MOV
MOV
MOV
MOV

153420
153414
153376
153400
153356

SCOPE

MOV
MOV
SUB
NEG

cMP
R3.R2
BNE
33
:NOW COLLET THE LIST MODE DATA

153340

104037
000404

005720
023700
001357

001160

5%
6% :

#CLRALL,@8SFR
RO, aWCR

:INIT THE DEVICE
*PRIME THE WORD CCUNT

#TSTCON.@SFR

:ENABLE MAINT.

#8UF0, aBAR

#8I1T0,aCSR

*LOAD TARGET LOCATION POINTER
MODE

"ENABLE THE NCV11

NTESTZ,3SFR
SENABLE MAINT. 7
CPUDL2.RO
“PRIME THE DELAY
#RIT141BIT13,3CSR
;TEST FOR CELL OR Z OVERFLOW
5%
2:BR IF EITHER IS SET
R1
:DELAY
48
RO
:DELAY

MOV
ggaon

#81T14181713+200,$GDDAT ;LOAD EXPECTED STATUS
%gr154
-DYNAMIC LIST MODE STATUS ERROR - NO WORD COUNT OVERFLOW

;READ BAD STATUS

MOV
MOV
MOV

#8UF 0RO
RO, SBDADR
(RO) . $BDDAT

*GET BUFFER POINER
:GET BAD ADDRESS FOR TYPE-OUT
*GET BAD DATA

cMP

$GDDAT,$BDDAT : COMPARE

BEQ
ERROR

108 :

“TEST FOR END

aCSR, $SBDDAT

MOV

001124
001126

"LOAD VALUE

B8R

(MP

BNE

#3407, $GDDAT

:LOAD EXPECTED DATA

10%
37

;:BR IF SAME
:(iST MODE DATA ERROR

(RO) +

"BUMP

TST154

ADNOKT RO

(3 3

JTEST

THE POINTER

INTQO

THE

BUFFER

FINISHED THE BUFFER

;BR AND RETEST THE REST OF

THE BUFFER

SEQ 0087

CINC(CB NCVTTY
CINC(B P11

2083
(3)
(3)
(2)
(1)

2084
2085
2086
2087
2088
2089

DIAGNQSTIC

31-AUG=79 11:21

026470
026504

000004
012737
005737

100127

012737
013737
012700
012710
052737

012777
010177
012777
012777
052777
052777
042777
012737
052777
052737

R
e

b md b d b

ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

:;t"tt!*."tl*ttti'ti.tt".t.tfltttit.ttfit't'.t.'t'tt"'titt'tt't

OOV
NOI VN BWN=O

A) =2 b —d d e

W
K
.
R
e

13:10
PAGE 63
306(1063)
1154
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

CWTEST 156

2109

NNV

31-AUG-79

:.'tt.ttt‘ttt'!ttttttitt'tttttt'ttt'tttt'ti.Qtfittifi.ttt.tttttfiit't

012710
042737
013701
005002
006301
006301
006301
006301
006301
006102
006301
006102
010237
010137
060201

MACY11

000002
036122

001160

T$T154:

026744
026746
026754
026762

101254

#2,STIMES
$KT11
TST155

::D0 2 ITERATIONS
CTEST IF KT=11 INSTALLED
*:BR IF NONE

:DO A BYTE MATRIX MODE TRANSFER TO A 1 BYTE LOCATION IN EACH 4K EXTENDED
000600
041742
060000
125252
001400
000370
001400
0461742

041742
172346

MEMORY BANK

1%:

MOV
MOV

177572

MOV

#600,0UT

:LOAD INITIAL BANK VALUE

MOV

#125252. (RO)

*PRIME BAD TARGET LOC. IF EXT ADD FAILS

oUT .R1

‘GET BANK VALUE

R1
R1
R1
R1
R1
R2
R1
R2
R2 ,NARROW
R1.$8DADR
R2.R1

‘MOVE
*MOVE
*MOVE
"MOVE

#1400, @#SRO
#370, (RO)
#1400, 34SRO

CLR

ASL
ASL
ASL
ASL
ASL
ROL
ASL
ROL
MOV
MOV
ADD

061726
001122

:NOW GET READY

MOV
MOV

004000
153124
000022

MOV
MOV
BIS

BIS
BIC
MOV
BIS
BIS

MOV

BIC

152174

CMP
BEQ
ERROR
ST
BEQ
BIT

041742
041742

ADD
CMP

2$:

OUT.a#KIPAR3
#8UFO RO

BIS
MOV
BIC

MOV

177572
001126

005737
001413
032777
001007
062737
023737

SCOPE

MOV
TST
BPL

BNE

B8HI

TO DO

THE

-LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
*LOAD BUFFER POINTER

“ENABLE MAINT. MODE KT-11
*LOAD TARGET LOCATION DATA VALUE
*DISABLE MAINT. MODE KT-11

*CLEAR EXT. ADD.
LEFT
LEFT
LEFT
LEFT

TEMPORARY

:SAVE EA BITS
:SAVE EA BITS
*SAVE EA BITS FOR TYPEOUT
*SAVE ADDRESS BITS FOR TYPEOUT
*MAKE COMPLETE ADDRESS
TRANSFER

#CLRALL.aSFR
R1,@0FF

;INIT THE NCVI1
*LOAD COMBINED BUFFER ADDRESS

#TEST,aSFR
#TESTZ.aSFR
#371,$GDDAT
#BIT12,aSFR
#8170, WSRO

;ENABLE "“TEST 2°' PULSES
*DISABLE "TEST Z'' PULSES
:LOAD EXPECTED DATA
*ENABLE 1 BYTE TRANSFER
*ENABLE KT-11

#B1T0,SRO

*DISABLE KT~11

#RIT4'BIT1,aCSR ;ENABLE THE NCV11
#TSTDMA! TSTCON, aSFR
;ENABLE MAINT NCV11 MODE
#8170,aCSR
CENABLE THE NCV11

(RO}, $BDDAT

$GDDAT,$8DDAT
2
35
$PASS
TST155
#SW11, aSwR

157155

#200,0UT
$LSTBK,0UT

*GET ACTUAL DATA

- COMPARE DATA
P:BR IF SAME
‘DATA TRANSFER ERROR TO EXTENDED MEMORY
“TEST PASS COUNTER
*:BR IF FIRST PASS
“TEST IF INHIBIT INTER.

S:BR IF SET

JUPDATE BGANK VALUE
STEST IF DONE

‘BR [F NOT

SEQ 0088

NCV1T

CINC(B
CINC(B P

1N
(3
(3)

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MFMORY

';fiQt.'t'tt'fi'fitttttttt.fi"ttttt.Qfi.t.t.'tt.'fi"tttttttfittt"t"'

004

012737
005737

-—b

':Qtfi."t'!tttttt.t.tt!ttt'fit'tt'it.."t.'tt'ttttt.tt'tttttt'fittt

012737
013737
012700
012710
052737
012719
042737
013701

100130

N~
O WN = OV

it ~
S

i S

NN AN AL NINI AN N NINIIN

iy i
N
G

13:10 PAGE 64
30G(1063)
31-AUG=79
T155
ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

S*TEST 155

(2)

DIAGNQSTIC

31-AUG=79 11:21

MACY11

005002
006301

000002

036122

000600

001160

041742

172346

TST155:

1%:

027072
027074
027102

012777
010277

027106

027114
027120
027126
027134
027142
027150
027154
027160
027166
027174
027202
027206
027214
027222
027224
027226
027232
027234
027242
027244
027252
027260

012777
010177
012777
052777
052777
042777
010137
010237
052777
012737
052737
011037
042737
023737
001401
104035

023737
101253

;:D0 2 ITERATIONS
JTEST IF KT=11 INSTALLED

MOV
MOV
MOV

#600,0UT
OUT.8#KIPAR3
#8UFO,RO

;LOAD INITIAL BANK VALUE <60000>
-LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
*LOAD BUFFER POINTER

BIS

#1400, 3#SR0

"ENABLE MAINT. MODE KT=-11

BIC
MOV
CLR

#1400, 3#SRO
OUT ,R1
R2

MOV

177572

ASL
ASL
ASL
ASL
ASL
ROL
ASL
ROL

006301
006301
006301
006301

006102
006301
006102

#2,8TIMES
$KT11

B8PL
TST156
;:BR IF NONE
;DO A 1 WORD MODE TRANSFER TO A 1 WORD BUFFER IN EACH 4K EXTENDED MEMORY BANK

177572

001400
041742

SCOPE
MOV
TST

004000
152642

152654

#52525, (RO)

#125252., (RO)
R1
R1
R1
R1
R1
R2
R1
R2

*LOAD BAD TARGET LOC. IF EXT ADD FAILS

*PRESET THE TARGET LOCATION
"DISABLE MAINT. MODE KT=11
;GET BANK VALUE
;CLEAR EXT. ADD TEMPORARY

;SAVE EXT.

ADDRESS BITS

;SAVE EXT.

ADDRESS BITS

;NOW GET READY TO DO THE TRANSFER
MOV
#CLRALL ,aSFR
JINIT THE NCV11

177777

152636

MOV
MOV

R2,30FF
#-1,aWCR

000014

152630
152612
152614
152606

MOV
BIS
BIS
BIC

#TSTDMA!TSTCON,aSFR
#3170,aCSR
;ENABLE
NTESTZ,aSFR
NTESTZ,aSFR

152570
001124

BIS
MOV

#81T12,aSFR
#3407 ,$GDDAT

152634

MOV

MOV
MOV

BIS

177572

177572
001126

2%:

001202

MOV
BIC
cMP
BEQ
ERROR
TST

BEQ

R1,aBAR

.LOAD BUS ADDRESS

:ENABLE MAINT NCV11 MODE
THE NCV11
JENABLE '‘TEST Z'' PULSES
:DISABLE ‘'‘TEST Z2'' PULSES

R1,$8DADR
R2 ,NARROW

;SAVE TARGET ADDRESS
:SAVE EA BITS FOR ERROR TYPEOUT

#81T70,a#SRO

JENABLE KT-11

(RO) ,$BDDAT
#3170,34SRO
$GDDAT ,$BDDAT
23
35
$PASS

TST156

004000

151676

B8IT

#SW11,aSWR

000200
036404

061742
041742

ADD
CMP
BHI

#200,0UT
$LSTBK ,0UT
1%

BNE

;LOAD THE EXTENDED ADDRESS BITS
;LOAD WORD COUNT

TST1S6

JENABLE 1 BYTE TRANSFER
;LOAD EXPECTED DATA

;GET ACTUAL DATA
;DISABLE KT-11
;COMPARE DATA
;:BR IF SAME
JLIST MODE DATA TRANSFER ERROR TO EXTENDED MEMORY
;TEST PASS COUNTER

;:BR IF FIRST PASS

JTEST INHIBIT INTER.
;:BR IF SET

;UPDATE BANK VALUE
JTEST IF DONE
;BR IF NOT

SEQ 0089

NCVTT
CINC(B
CZNC(B. P11

DIAGNOSTIC

21
31-AUG=79 11:

2178
(3
(3)
(2)

(1)

2179
2180
2181
2182
2183
2184
2185
2186

2187
2188
2189
2190

2191
2192
2193

2194
2195
2196
2197
(1)

2198

2199

2200
2201
2202
2203
2204
2205

2322323823202

CRTEST 156
S

027262
027264

000004
012737

000100

001160

027272
027300
027302
027310
027314
027320
027326
027330

023727

036404

003140

012737
012700
012710
052737
005010
042737

002676
060056

172346

027336
027344
027352
027360
027366
027374
027402
027410
027412
027414
027422
027424
027426
027430
027436
027444
027452
027456
027464
027472
027474

012777
012777
012777
012777
052777
052777
042777
000240
000240
052777
000240
000240
000240
012737
012737
052737
011037
042737
023737
001401

103476

104020

125252
001400

177572

001400

177572

2302230

2228032300

SCOPE

2222 0d00000RdR22RRdRiRdRdR
2]

VERIFY BIT 15 MATRIX ADDER INPUT

3322222223223 22323222232

7§T156:

222

SEQ 0090

2322222002223

200322320

20002222002

MOV

#100,$TIMES

;:D0 100 ITERATIONS

MP
8LO

$LSTBK #3140
TST157

TEST IF >52K IS AVAILABLE
;;BR IF NO MORE MEMORY

MOV
MOV
BIS
CLR
BIC

#8UF 0456, R0
#125252, (RO)
#1600, 3#SRO
(RO)
#1400, M¥SRO

:LOAD BUFFER POINTER

:ADM OUTPUT
‘OFFSET
CTARGET

MOV

=
=
=

127657
140000
267657

#2676,
3K IPAR3

R2R0)

:LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
:LOAD BAD TARGET LOC. IF EXT ADD FAILS
JENABLE MAINT. MODE KT-11
;LOAD TARGET LOCATION DATA VALUE
;DISABLE MAINT. MODE KT-11

:NOW GET READY TO DO THE TRANSFER
MOV
#CLRALL ,@SFR
JINIT THE NCV11
MOV
#140000,
30F F
;LOAD COMBINED BUFFER ADDRESS
MOV
#2036 ,aCSR
cENABLE THE NCV11
MOV
#TSTOMA
' TSTCON,@SFR
;ENABLE MAINT NCV11 MODE
BIS
#81T0,aCSR
JENABLE THE NCV11
#TESTZ.aSFR
BIS
JENABLE "‘TEST 2'' PULSES
#TESTZ.aSFR
BIC
;DISABLE ‘‘TEST Z'' PULSES

004000
140000

002036

000014
000001
000002
000002

010000

152334

000001

041726
001124
177572

000001
001124

31-AUG=79 13:10 PAGE 65
MACY11 30G(1063)
T156
VERIFY BIT 15 MATRIX ADDER INPUT

177572
001126

NOP
NOP

BIS

NOP
NOP
NOP
MOV

MOV
BIS
MOV

BIC

cMP

BEQ
ERROR

#BIT12,3<FR

JENABLE 1 BYTE TRANSFER

#1 ,NARROW

;SAVE EA BITS FOR ERROR TYPEQUT
;LOAD EXPECTED DATA

#4060, $GDDAT
#81T0,3#SR0O
(RO) , $BDDAT

#3170, 34SR0O

$GDDAT, SBDDAT

1ST157
20

JENABLE KT-11

:SAVE ACTUAL DATA

;DISABLE KT-11
; COMPARE DATA
; ;BR

SAME

“BIT 15 INPUT TO MATRIX MODE ADDER FAILED

CZNC(CB NCVTI
CINCCB.P1T

2213
(3)
(3)
(2)

2214
2215
2216
2217

DIAGNQSTIC
31-AUG~79 1M:21

MACY11

N 7
31-AUG-79
13:10 PAGE 66
306 (1063)
T 57
VERIFY HIGH BYTE OPERATION OF

SEQ 0091

THE 'TEST X'’

"Qfittttt.tl'tt't.QQQ.QtQfifitt'.'t.tfitttt"t'tt't"tt't"tt.tttt

-TEST 157
AL

027476
027500

027506
027514
027522
027524
027532
027540
027546
027554
027562
027570
027574
027602
027610
027616
027624
027632
027634

000004
012737

012777
023727
103445
012777
012777
012777
052777
052777
042777
005037
052777
012737
012737
017737
023737
001401
104034

000040

001160

100000

001124

TST1S7: SCOPE
MOV

JTEST X
:OFFSET
;ADM QUTPUT
;TARGET

004000
036404

001126
001126

VERIFY HIGH BYTE OPERATION OF

2230000220002

MOV
MP
BLO
MOV
MOV
MOV
BIS
BIS
8IC
CLR
BIS
MOV
MOV
MOV
CMP
BEQ
ERROR

THE °'TEST X'’

2222222222322 223232322222222232222222322233)]

#40.ST1M$S

;:D0 40 ITERATIONS

=100000

=127657
=100257

#CLRALL ,@SFR

SLSTBK #1140

cCLEAR THE DEVICE

TEST IF LEAST 20K

TST160
. .BR IF NOT
#100000,80F F
:SET BIT 15 OF OFFSET
#TSTDMA! TSTCON!BIT4,@SFR
;SET TEST DMA,
#2036 ,8CSR
;ENABLE THE NCV11

#81T0,8CSR
N#TESTZ,aSFR

;ENABLE THE NCV11
;ENABLE "‘TEST Z'' PUI SES

BUF 0420256

;CLEAR THE TARGET LOC.

W#TESTZ,@SFR

#81T12,8SFR

sDISABLE '‘TEST Z'' PULSES

:ALLOW 1 DMA TRANSFER

#BUF 0+20256 , SBDADR
#400,$GDDAT
aSBDADR.SBDDAT

$GDDAT ,$BDDAT
TST160
34

JFAILED

(ONTROL AND

:LOAD EXPECTED ADDRESSES VALUE

:LOAD EXPECTED VALUE READ
:READ ACTUAL DATA

; COMPARE
::BR IF SAME
:MATRIX ADDER INPUT OF ADM1S AND TESTX L
TO BE

INHIBITED

TESTX

NCVI

CINCCB
CZNCCB P11

DIAGNOSTIC

31-AUG=79 11:21

2236
(3)
(3)
(2)

(1)

2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
(1)

2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270

11 306(1063)
31-AUG=79 13:10 PAGE 67
MACY
1160
VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

SFQ 0092

';l'fiQtfitt'tit'ttti.tfi!"Q'itt.t'tt*tit't't"'l'tQttt.'tttt't'.'t

J*TEST 160
A

027636
027640

000004
012737

000100

001160

027646
027654
027656

023727

036404

005140

012737
012700
012710
052737
005010
042737

004635
060026
125252
001400

172346

001400

177572

012777
012777
012777
012777
052777
052777
042777
000240
000240
052777
000240
000240
000240
012737
012737
052737

004000
010001

027712
027720
027726
027734
027742
027750
027756
027764
027766
027770
027776

103500

111037

177572

151760

041726
001124
177572
177572

023737
001401

001126

104020

TST160:

SCOPE

MOV

#100,$TIMES

cMP
BLO

$LSTBK #5140
TST161

;ADM OQUTPUT
;OFFSET

s TARGET

0008200222

MOV

MOV
MOV
BIS
CLR
BIC

=
=
=

222222232232 2322232222232322232222222XZ222]

253527
210000

463527

#4635 ,a4KI1PAR3

#8UF0+26
RO
#125252, (RQ)
#1400,a#SRO
(RO)
#1400,3#SRO

2.D0 100 ITERATIONS

sTEST IF ENOUGH MEMORY >84K
:;BR IF NOT
;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
;LOAD BUFFER POINTER
;LOAD BAD TARGET LOC.

JENABLE MAINT. MODE KT-11
JPRESET

THE

TARGET

LOCATION

;DISABLE MAINT. MODE KT-11

sNOW GET READY TO DO THE TRANSFER
MOV
#CLRALL ,aSFR
JINIT THE NCVT
#10001,a0FF
MOV
;LOAD THE EXTENDED ADDRESS BITS
MOV
#TSTDMA!TSTCON,aSFR
ENABLE MAINT NCV11 MODE
MOV
#4036,aCSR
;LOAD MATRIX MODE AND ZB ENABLE
BIS
#3170,aCSR
JENABLE THE NCV11
N#TESTZ,aSFR
BIS
JENABLE '‘TEST 2'' PULSES
NTESTZ,aSFR
BIC
;DISABLE ''TEST 2'' PULSES

042737
105037

VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

2222833300800

NOP
NOP

BIS

#B1T12,3SFR

;JENABLE 1 BYTE TRANSFER

NOF
MOV
MOV

#2 ,NARROW
#400,$GDDAT

;SAVE EA BITS FOR ERROR TYPEOUT
JLOAD EXPECTED DATA

CLRB
cMP
8EQ

$8DDAT
$GDDAT ,$BDDAT
T1ST161

; COMPARE DATA
;.BR IF SAME

NOP
NOP

BIS
MOvB
8IC

ERROR

#81T0,a#SRO
(RO) ,$8DDAT
#81T0,3#SRO

;ENABLE KT-11
;SAVE ACTUAL DATA
;DISABLE KT-11
JMASK OFF LOW BYTE
;BIT

16 INPUT

TO MATRIX MODE

ADDER FAILED

CINC(B NCVYT
(INC(B P11

DIAGNOSTIC

21
31-AUG=79 11:

MACY11

2273

(3)
(3)
(2)
1)
2274
2275

S$$é}063)

;*TEST 161
IR

030056
030060
030072
030074

000004

012737
005737
001402
000137

000001
050022

001160

043546

Nt Nt N

TST161:

DETERMINE
R

AR AR RN

SCOPE

AN RN RN

IF DIFLIN IS TO BE RUN
R RN RN T AN RN

(F)

NN NN AR AN R AR AR RN EAN ARG RO

MOV

#1,8TIMES

;.00 1

BEQ

SEOP

;;BR IF NOT TO BE RUN

TST

JMP

RUNDIF

DIFLIN

END OF PASS ROUTINE

2422222202202

TEST

ITERATION

DIFLIN IS

A RN

TO BE RUN

JUMP AND RUN DIFLIN

2R ARRRARRRRRtRARRRdtRRitil
AR
R )

;*IF THERES A MONITOR GO TO IT
;*]F THERE ISN'T JUMP TO LOGIC

SEQ 0093

IF DIFLIN IS TO BE RUN (F)

;*TYPE 'END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

PAGE 68

;*INCREMENT THE PASS NUMBER ($PASS)
;*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM

R AR

.SBTTL

Nt N
N

e R

o N

Ve T
T

Nl N

R
N
N

N
N

e R

Nt N

e Y e

Y N YA T

N
N
N

N e W el e Y e

N
W

Nl M
N

e N

S N\

DETERMINE

13:10

:;tt!'Qt'fi'.!*fifititfit.tfiQ'QQt.flt'fltttfitfi.'ttt'ttttttt'tttfi'ttQttt

31-AUG=79

030100
030100
030102
030106
030112
030116
030124
030126
030130
030132
030134
030136
030140
030144
030150
030152
030156
030162
030164
030166
030170
030172
030174
030176
030176
030200
030202
030205
030212
030220

000004
005037

005037
005237
042737
005327
003022
012737
000001
030126
104401

013746
104405
104401

013700
001405

$EOP:

001102
001160
001202

100000

001202

030205
001202

INC

8IC

DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOP(CT
TYPE
MOV
TYPDS
TYPE

030202
000042

004710
000240
000240
000240
000137
003360
377
015
050040
000043

377

051501

000

042116

020123

$TSTNM
$TIMES

;;IERO THE TEST NUMBER
.2 ZERO THE NUMBER OF ITERATIONS

#100000, $PASS

;;DON'T ALLOW A NEG. NUMBER

$PASS

(PC)+
1
$DOAGN
(PC)+,a(PC)+
1
, SENDMG
$PASS,~(SP)
LSENULL

$GET42: MOV
BEQ

42 RO
$DOAGN

$ENDAD:

PC, (RO)

$DOAGN:

062412

SCOPE
CLR
CLR

$RTNAD:

RESET
JSR
NOP
NOP

NOP

JMP
.WORD

$SENULL: .BYTE
SENDMG: .ASCIZ

;2 INCREMENT THE PASS NUMBER
;. LO0P?

;o YES
;JRESTORE COUNTER
;:TYPE "END PASS #''
:;SAVE SPASS FOR TYPEOUT
::GO TYPE--DECIMAL ASCII
.sTYPE A NULL CHARA(CTER

;:GET MON]ITOR ADDRESS
;JBRANCH IF NO MON]TOR
:sCLEAR THE WORLD
;:GO TO MONITOR
::SAVE ROOM
::FOR

JACTN
a(PC)+
LOGIC

. JRETURN

-1,- 1,0
;- :NULL CHARACTER STRIMG
<15><12>/END PASS #/

WITH SIGN

2279
2280
2281

2282

2283

030222

DIAGNOSTIC

21
31-AUG=79 11:

NNOO ——

NCVIN
CINCCB
C(ZNCCB PN

2287

.SBTTL

ERROR ASCII

PAGE 69

SEQ 0094

MESSAGES

004466
020061
042101
020123
052517

EM1:

LASCIZ

/MB8026

NCV11

031060
046515
052123
051040
042524
047522
031060
041505
052506
047117
051511
051105

004466
047101
052101
043505
020122
000122
004466
040511
041516
051040
042524
047522

EM2:

LASCIZ

/M8026

COMMAND-STATUS REGISTER ERROR/

EM3:

LASCIZ

/MB026

SPECIAL

EMS:

LASCIZ

/M8026

WORD

051105

004466
041440
051040
042524
047522
004466
042101
020123
052123
051122

EMS:

.ASCIZ

/MB026

BUS ADDRESS REGISTER ERROR/

033062
042523
044507
042440
000
033062
020114
052123
046105
047117
051117

EM6:

LASCIZ

/M8026

OfF FSET REGISTER ERROR/

EM7:

.ASCIZ

/MB026

DUAL REGISTER SELECTION ERROR/

031060
020123
051505

044507
042640
2286

13:10
30G(1063)
31-AUG=79
ERROR ASCII MESSAGES

031060
030526
020123
051505
042515

2284

2285

MACY11

000
030070
043106
042522
051105
051117
030070
040525
044507
051440
044524
051122

BUS ADDRcSS

TiMEOUT/

FUNCTION REGISTER ERROR/

COUNT

2288

030070
030070
053517
044502
047503
051105

033062
033063
030440
020124
047125
047522

EM10:

LASCIZ

/M8026-M8036

LOW 16 BIT Z

2289

031060
031460
044107

026466
004466
030440
020124

EM1T:

LASCIZ

/MB026-M8036

HIGH 16 BIT

044502

COUNT ERROR/

CINCCB NCV11 _ DIAGNOSTIC
FINCCB.P1Y
31-AUG=79 11:21

020124
051525
051117
115
055011
052116
051105
042440
000
115
045011
041511
052101
051122
115
045011
041511
040524
051117
115

042011
047111
047105
047522

034115
040504

004466
047125
052101
051122

EM12:

ASCIZ

/M8026

Z COUNT STATUS ERROR/

033062
052517
052116
052120
051117

EM13:

_ASCIZ

/MB026

Z COUNT INTERRUPT ERROR/

030070
054517
020113
051525
051117
030070
054517
020113
042440
000
030070

033063
052123
052123
042440
000
033063
052123
040504
051122

EM14:

_ASCIZ

/MB036

JOYSTICK STATUS ERROR/

EM15:

_ASCIZ

/MB036

JOYSTICK DATA ERROR/

033063
020101
046505
051105

EM16:

.ASCIZ

/MB036

DATA INCREMENT ERROR/

031460
040524

004466
042040

EM17:

_ASCIZ

/MB036

DATA DECREMENT ERROR/

033062
033063
044522
042504
042522
045501
052101
047522

EM20:

.ASCIZ

/M8026-M8036

EM21:

_ASCIZ

/MB026

LIST MODE ADDRESS MAKER DATA ERROR/

EMZ22:

.AS(IZ

/MB026

LIST MODE

052101
051103
020124
000122

042522
042440
000
030070
030070
052101
047515
042104
046440
042040
051105

042515
051122

051505
042513
040524
051117
030070
051511

020123
020122
062440
000
033062
020124
052040
042506
020123
051505

052123
020105

~nN

—

=AWV =N

N VO

(¥,|

= =\ NN = (9,|
—
OMPIND
2 = =N

004466

8
PAGE 69-1

031060
047503
052123
042440
000
030070
041440
044440
052522
051122

031060

046

047125
047522

034115

4
7

30G(1063)
31-AUG-79 13:1C
ERROR ASCII MESSAGES

047503
051105

RGR

041505
052116
051117
115
046455
046411
020130
040440
051523
051105
020101

—
—

031307
031314
o

2298

020132
020124
000122
034115
020132

031236

o
W

2297

031136
031144
031152
031155
031162
031170
031176
031204
031212
031220
031226

2296

031122
031130

2295

031074
031102
031110
031116

—

2294

n
&~
~

2293

W
N

2292

2291

030724
030732
030740
030743
030750
030756
030764
030772
031000
031001
031006
031014
031022
031030
031035
031042
031050
031056
031064
031067

2290

030672
030700
030706
030710
030716

MACY11

051516
052502
051104

046440
042101

MATRIX MODE ADDRESS MAKER DATA ERROR/

TRANSFER BUS ADDRFSS ERROR/

SEQ 0095

CINC(B NCVIT
CINCCB P11

2299

2300

2301

2302

2303

2304

031352
031360
031362
031370
031376
031404
031412
031420
031426
031434
031442
031450
031456
031464
031472
031500
031502
031510
031516
031524
031532
031535
031542
031550
031556
031564
031572
031573
031600
031606
031614
031622
031630
031636
031642
031650

DIAGNOSTIC

MACY11

020123
000122
034115
044514
042117
047101
053440
047503
051105
034115
044514
042117
047101
047440
020124

051105

0647522

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

031060
042515
052123
042440
000
030070
046511
044440
052522
051122

31-AUG=79 11: 21

000122
034115
044524
020124
051525
051117
115

052011
052125
051105
042440
000

115
051471
053105
047440
046511
052101
047522
034115
042503
041516

2305

2307

032014
032022

046411
020130

PAGE 69-2

SEQ 0096

EM23:

LASCIZ

/M8026

LIST MODE

THANSFER WORD COUNT ERROR/

EM24:

LASCIZ

/M8026

LIST MODE

TRANSFER OFFSET ERROR/

004466
052517
052101
051122

EM25:

LASCIZ

/MB026

TIMEOUT

STATUS

033062
047505
052116
052120
051117

EM26:

LASCIZ

/MB8026

TIMEQUT

INTERRUPT

030070
052105
047105
020122
021105
020101
000122
031060
046114
042522
042040
051105

033062
021040
021124
052042
042040
051105

EM27:

LASCIZ

/M8026

SET "EVENT'' OR "'TIME'" DATA £RROR/

004466
044440
042515
052101
047522

EM30:

.ASCIZ

/MB8C26

CELL

031060
046114

EM31:

LASCIZ

/MB0¢6

CELL OVERFLOW STATUS ERROR/

043122
052123
042440

004466
047440
047514
052101
051122

030070
046105
051105
044440
052522
051122

033062
020114
046106
052116
052120
051117

EM32:

LASCIZ

/MB026

CELL OVERFLOW INTERRUPT ERROR/

030070
052101
047515

033062
044522
042504

EM33:

LASCIZ

/MB026

MATRIX MODE

000

2306

13:10
30G(1063)
31-AUG=79
ERROR ASCII MESSAGES

ERROR/

INCREMENT DATA ERROR/

ADDRESS Mux

ERROR/

NCVIT
CINCCB P11

(INCCB

032030

DIAGNQOSTIC

31-AUG=79 11:21

MACY1T

30G(1063)

31-AUL=79

ERROR ASCI] MESSAGES

13:1C

PAGE 69-3

SEQ 0097

042104
046440
051122
FM3:

LASCI2

/M8026

"'TESTX'' FUNCTION ERROR/

EM3S:

LASCIZ

/M8026

DATA ERROR WHEN

EM36:

LASCIZ

/M8026

LIST MODE

TRANSFER

EM37:

LASCIZ

/M8C26

LIST MODE

TRANSFER DATA ERROR/

042504
051516
040504
051122

033062
020124
052040
042506
040524
051117

2312

046525
034115
033515
042442
020042
044524
040515
051122

042520
031060
03247
042526
051117
042515
045522
051117

EMLO:

LASCIZ

/ JUMPER-MB026-M795?2

2313

034467
047514
051525
042522
046511
000
031070
041516
052103
051105
046040
000

031065
045503
040440
051523
047505

EM4T

LASCIZ

/M7952

CLOCK BUS ADDRESS

033461
051117
044440
052522
053105

EM&L2:

LASCIZ

/MB8217

INCORRECT

051122
042104

041520
000122

DH1:

LASCIZ

/ERRP(

ADDR/

030070
0462524
043040
047511
047522
031060
040524
051117
020116
043123
020107
052130

2308

2309

020104
054522
030070
051511
042504
051516
052123
042440
000
030070

2310

23N

051511

2314

032467
032474

TRANSFERING

TO EXTENDED MEMORY/

STATUS ERROR/

051122

"EVENT''
OR "'TIME'' MARK ERROR/

TIMEOUT/

INTERRUPT

LEVEL/

NCVIT

2317

2318

2319

2320
2321
2322

2323
2324
2325
2326

2327
2328

2329
2330

DIAGNOSTIC

MACY'1 30G(1063)

032502
032510
032516
032524
032526
032534
032542
032550

051105
042101
047517
000104
051105
0421 ?;
0475
004504

050122
051104
004504

004503
0434617
040502

DH2:

LASCIZ

/ERRPL

ADDR

GOOD

BAD/

050122
051104
004504
040502

004503
0434M
040502
040504

DH3:

LASC]Z

/ERRP(C

ADDR

GOOD

BAD

BADADR/

032561
032566
032574
032602
032610

105
040411
047507
042101
042101

051122
042104
042117
042411
004522

041520
004522
041011
020101
040502

CH4:

.ASCIZ

/ERRP(C

ADDR

GOOD

BAD

EA ADR

032623
032626
032634
032642
032647
032654

015
047516
0500640
020123
111
053040

912
021040
046125
051117
050116
046117

007
021132
042523
040
052125
060524

OUTRNG:

.BYTE
LASCI1

15,12,7
/NO "7 PULSES OR /

LASCIT

/INPUT VOLTAGE OUT OF RANGE ON CHANNEL #/

012

OUT(HN:

.BYTE

60,15,12,7.0

FINCCB.PY

032556

032616

032662
032670
032676
032704
032712
032716
032721

31-AUG-79 11:21

051104

040504

000

051104

31-AUG=79

CINCCB

ERROR AS(11 MESSAGES

000

13:10 PAGE 69-6

SEQ 0098

BADADR/

047440
020106
020105
040510
021440
015
000

052125
040522
047117
047116

001250
001250
000000
001250
001122

000000
001124

OT1:
DT2:

.EVEN
.WORD
.WORD

001124
000000

DT3:

.WORD

$ERRP(,$BASE
,$GDDAT ,$BDDAT, $BDADR, 0

032760
8%5;92

042507
047440
043516
041440
046105
060
007
032724
001116
001116
001126
001116
001126
001116
001126

001124
001122

DT4:

.WORD

$ERRP(,$BASE,$GDDAT
,$BDDAT ,NARROW, $BDADR, 0

032776
033004

001116
000000

001254

000000

DT5:
DFO:

.WORD
.WORD

$ERRP(,$(DW1,0
0

032724
032732
032740
032744
032752

001250
041726

SERRP(,S$BASE
.0
S$ERRP(, $BASE ,SGDDAT,$BDDAT,0

CINCCB NCV1Y
CZNC(B.P1T

DIAGNOST
S IC
2
31-AUG=7 9 1M:

MACYM

2335
N

8
PAGE 70

SEQ 0099

INPUT ROUTINE

2333332222008
RR2RR2
Rl
RRRRRRRRRARRRRRARSRRRN)

LSB

it N

'.'ltt"t't"t'fit‘titt*.ti'tttttttiitt'!'t'tt'tfifit'fil.tt..tttt..'.

TTYy

13:10

s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
J*ROUTINE IS ENTERED FROM THE TRAP HANDLER,

1A U R

1oV )

3°-AUG-79

INPUT ROUTINE

"ENABL

N
N

R
N
N
N
S
e
N
S
N

033006
033014
033016
033022
033024
033030
033034
033040
033042
033050

022737
001074

123727

001134

033052
033056

104401
104401

033533
033540
000176

105777

100071
117746

042716
022726
001062

001456

000176

001140

. *WHEN OPERATING

$CKSWR:

146122

SIS THE SOFT-SWR SELECTED?

TSTB

a$TKS

*'CHAR

THERE?

MOVB

a$TKB,-(SP)

" SAVE

THE

(MP
BNE
CMPB
BEQ

#7.(SP)+
15%
$SAUTOR, 41
15%

BNE

BIC

000007
000001

FLAG MODE.

#SWREG, SWR

8PL

146116
177600

IN TTY

CMP

15%
15

SIBRANCH IF NO

SIF NO, DON'T WAIT AROUND
CHAR

#-C177,(SP)

L STRIP-OFF THE ASCII

LSCNTLG

;;ECHO

, SMNEW

*:GO TYPE--OCTAL ASCII(ALL
- PROMPT FOR NEW SWR
::CLEAR COUNTER

Q$TKS

*:CHAR

IS IT A CONTROL G?
ZNO, RETURN TO USER
;.ARE WE RUNNING IN AUTO-MODE?
; ;BRANCH IF YES

s S

N5 Y N5 I

s W

AND WILL

J*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP C(ALL

W
N

B
B

e R el

o
N

TTY

LSBTTL

e N

30G(1063)

104402
104401

005046
005046

013746

$GTSWR:

033551

19%:
7%:

ISTR

033106
033112

117746
042716

146034
177600

033116
033122
033124
033130
033134

021627
001005

000025

033526
000006

20%:

033136
033142
033144
033150
033152
033160
033164
033170
033176
033200
033206
033210
033214

021627
001022
005766
001403
016677
062706

000015

10%:

146040

. SMSWR
SWREG,~(SP)

CLR

<(SP)
-(SP)

8PL

s TYPE
1 SAVE

THE

CONTROL-G

(*G)

CURRENT CONTENTS
SWREG FOR TYPEQUT

DIGITS)

P:THE NEW SWR
THERE?

S3IF NOT TRY AGAIN

e W

MOVB

BIC

I$TKB,

= (SP)

#-C177.(SP)

;;PICK UP CHAR

“IMAKE IT 7-BIT ASCI!

N
N

104401

062706
000757

(MP

(SP) , 425

;1S

1T A CONTROL=-U?

BNE

108

ADD

#6,SP

;J;BRANCH IF NOT
J:YES, ECHO CONTROL=-U (*U)
. IGNORE PREVIOUS INPUT

(SP) 415

:0IS

TST

4 (SP)

JIYES,

ADD
TYPE

#6,SP
LSCRLF

MOV

#100,a$7KS

TYPE

LJSCONTLU

19%

J;LET'S TRY IT AGAIN

M
N
N
N
N
N
N

e T

e T QS Qi WS S

TYPE
MOV

TYPOC
TYPE
CLR

105777
100375

TYPE

104401
123727

000
004737
021627

000004
145760

000002
000006
00111
001135

000001

000100

145736

034606
000060

11%
14%

15%:

16%:

BNE

BEQ
MOV

(MPB
BNE
RT]

JSK
CMP

16%

1%
2(SP) ,aSWR

$INTAG, #1
15%

PC,$TYPEC
(SP) ,#60

IT A <CR>?

;:BRANCH If NO
IS

THE

;sBRANCH [F YES
::SAVE NEW SWR

FIRST

(HAR?

;. CLEAR UP STA(K
:;ECHO <CR> AND <LF>

:;RE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH [F NOT
:JRE-ENABLE

; ;RETURN

;sECHO CHAR
;.CHAR < 0?

TTY KBD INTERRUPTS

033220

o I P

vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvVvvvvvvvvvvvvvv

AAAAAA’\’\AA’\A’\’\AA’\AAA’\AAA/\AAAAAA’\A’\AA’\AAA/\A/\’\AAAA/\AAAAAAA

NCV1T
(INCCB
(INC(B P

DIAGNQSTIC

21
31-AUG=79 11:
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401

31-AUG=79

INPUT ROUTINE

188

BIC

#60, (SP) +

BEQ

17%

TST

000002

17%:

001170

18%:

177776

.DSABL

13:10

BLT

cwP
BGT

ASL
ASL
ASL
INC

2(SP)
(SP)
(SP)
(SP)
2(SP)

=2(SP), (SP)
7$

B8R

20%

LSB

,$QUES

22000002

PAGE

(SP) ,#67
18%

BIS
8R

TYPE

2000t

70-1

SEQ 0100

;;BRANCH IF YES
;:CHAR > 7?

;;BRANCH IF YES
;:STRIP-OFF ASCIlI

;1S THIS THE FIRST (CHAR
::BRANCH IF YES
;:NO, SHIFT PRESENT
CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
HN
;;KEEP COUNT OF (CHAR
;:SET IN NEW CHAR
;;GET THE NEXT ONE
J2TYPE

2<CR><LF>

;o SIMULATE CONTROL-U

RRiiiRiRtsttR

Rttt

RaRtRRRRRRRR

J*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

TxCALL:

N
TS
N
N

TTY

000060
000002

‘e

RDCHR

RETURN HERE

- %

033270
033272
033300
023304
033306
033314
033322
033330
033332
033336
033340
033344
033350
033354

000004
145640

000002

145634

000004
000004
000023

177600

000004

145606

$RDCHR:
1$:

2%:

177600
000021

033356

000004

000140

000004

000175

000040

000004

MOV

A ¥

(SP) ,-(SP)

[ (0)Y]

4(SP),2(SP)

BPL
MOVR

18
3$TKB, 4 (SP)

TSTR

BIC
cMP

145602

Ny N Y
N

30G(1063)

000067

000720

MACY11

3$TKS

R C<177>,4 (SP)
4(SP) 423

BNE
TSTR
BPL
MOVR
BIC
cMP
BNE

3s
Qa$TKS
2%
STKB,~(SP)
#~C177.(SP)

CMP
BLT
cMP
BGT
BIC

4(SP) 4140
4%
4L(SP) .#175
4%
#40,4(SP)

B8R

RT]

(SP)+, 421
2s

;o INPUT A SINGLE CHARACTER FROM THE TTY
;s CHARACTER IS ON THE STAC(CK
;;WITH PARITY BIT

STRIPPED OFF

. ;PUSH DOWN THE PC
::SAVE THE PS
JJWAIT FOR

;oA CHARACTER
;oREAD THE TTY
J:GET RID OF JUNK [F ANY
;1S IT A CONTROL=-S?
;;BRANCH IF NO
JsWAIT FOR A CHARACTER
;.LOOP UNTIL ITS THERE
;:GET CHARAC(CTER

JoMAKE IT 7-BIT ASCII
23IS IT A CONTROL-Q?
1F NOT DISCARD IT
;o
;. YES, RESUME

.3 1S IT UPPER CASE?
;;BRANCH IF YES
;oIS IT A SPECIAL CHAR?

;;BRANCH

YES

JsMAKE IT UPPER CASE
;.60 BACK TO USER

a2 2233232232223222
R
Rt dRRRR iR
RRRRRRRRRRRRRRRA D)

T*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
;*CALL:

o %
3

010346

012703
022703

033516
033526

RDLIN

RETURN HERE

$RDLIN: MOV

R3,~(SP)

2%:

NSTTYIN+B.
,R3

1%:

MOV

(MP

#STTYIN,RS

;s INPUT A STRING FROM THE TTY
;;ADDRESS OF

FIRST

(HARACTER WILL BE

ON THE

;. TERMINATOR WILL Bt A BYTE OF ALL 0'S

;;SAVE R3
::GET ADDRESS
JIBUFFER FULL?

STA(CK

30G(1063)
TTY

31-AUG=79

INPUT ROUTINE

MACY11

033472
033474
033476
033504
033512
033514
033515
033516
033526
033533
033540
032546
033551
033556

000177

10%:

001170

A ¥

0335°4
033514
000015

3%:

MOvR

(SP)+,(R3)
#177.,(R3)

LSQUES

036440

000040

009
000012
020122
053505

$SCNTLU:
$CNTLG:
$MSWR:

SMNEW:

.
.

;.BR IF YES
;GO READ ONE (HARA(TER FROM THE TTY
J:GET CHARACTER
;1S IT A RUBOUT
J:SKIP IF NOT
'

;;CLEAR THE BUFFER AND LOOP
;JECHO THE CHARACTER
;s CHECK FOR RETURN
;:LOOP IF NOT RETURN

;:CLEAR RETURN (THE 15)

;2TYPE A LINE

(SP) ,-(SP)
4 (SP) ,2(SP)
ASTTYIN,4(SP)

$STTYIN: .

SEQ 0101

JsTYPE A

23
-1(R3)
LSLF
(SP)+,R3

000002
000004

PAGE 70-2

18
(R3),9%
,9%
#15,(R3)+

9%:

005015
006507
053523
000
047040

177777
001172
000004
033516

13:10

BLOS

RDCHR

¥ ot

s
D

31-AUG=79 11:21

sl Nt

D
D

N PN PN

DIAGNOSTIC

el Nt Nt N

D e ed
D e
D e
D

Nt Nl Nkl Nt N
N

N PN PN TN PN PN TN PN PN PN

N\
N

D e
e

N
N

D e

N TN TN PN

Nt N

D ed e

sl N

Nt N

PN TN

N PN

CINC(B NCVT
CINC(B P11

0
0
8.
/2U/<15><12>

:;RESTORE R3

:;ADJUST THE STACK AND PUT ADDRESS OF
s

FIRST ASCI]

; :RETURN

NEW -

CHARACTER ON

;;STORAGE FOR ASCII CHAR.
;:TERMINATOR

T0 TYPL

;;RESERVE 8 BYTES FOR TTY INPUT
;:CONTROL "V

2>
/2G/<15><1
;.CONTROL
<15><12>/SWR - /
/

FEED

'G"’

THE

CZNC(B NCVIT
CINCCB.P11

DIAGNQST IC
31-AUG=79 11:21

MACY11 30G(1063)
.SBTTL

N
i Nt N

=t =

N PN

Nt N
Nt N

D NINN

Nl o

N PN PN PN PN
N

Nl Nl N

N PN

ol N

D D

"t N
N

N PN PN

Nl N

N PN PN PN

Nt Nt N

N PN
P

Nt N
N

N SN IS

;'CALL:
X

ol N

PAGE

TTY

SEQ 0102

READ AN OCTAL NUMBER FROM THE TTY

-THIS ROUTINE WILL

;*CHANGE

Nl N

222323222322332223220322223220222228222222
22202
22222 RRRRRRRRAR)

Nl N

PN PN PN e

eV NNN =

13:10

READ AN OCTAL NUMBER FROM THE

2337

31-AUG=79

READ AN OCTAL

IT TO BINARY.

RDOCT
RETURN HERE

033562
033564
033572
033574
033576

011646
016666
010046
010146
010246
104411
012600
005001
005002

000004

112046

001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726
010166

010237
012602
012601
012600
000002
000000

000002

$RDOCT: MOV
MOV
MOV
MOV
MOV
1%:
RDLIN
MoV
(LR
CLR
MOVB
2%:
BEQ
ASL
ROL
ASL
ROL
ASL

ROL
8IC
ADD

177770

000012
033662

3%:

TST

MOV
MOV

MOV
MOV
MOV
$HIOCT:

RTI

WORD

(SP) ,=(SP)
4(SP),2(SP)
RO,-(SP)
R1,-(SP)
R2,~(SP)

(SP)+,RO
R1
R2
(RO)+,=-(SP)
3$
R1
R2
R?
RZ

(ASCII)

NUMBER FROM THE

TTY AND

;;READ AN OCTAL NUMBER
;;LOW ORDER BITS ARE ON TOP OF THE STA(K
;;HIGH ORDER BITS ARE IN S$HIOCT

;cPROVIDE SPACE FOR THE
;o INPUT NUMBER
:;PUSH RO ON STACK

J:PUSH R1 ON STACK
;sPUSH R2 ON STACK
;:READ AN ASCIZ LINE
:;GET ADDRESS OF 1ST CHARACTER
..CLEAR DATA WORD
;;PICKUP THIS CHARACTER
1F ZERO GET oOuT
;.

;.*8

;2STRIP THE ASCII JUNK
;;ADD IN THIS DIGIT
.. LOOP
;:CLEAN TERMINATOR FROM STA(CK
:;SAVE THE RESULT

R2
#~C7,(SP)
(SP)+ ,R1
+
(SP)

R1,12(SP)

R2,$HIOCT

(SP)+,R?
(SP)+,R1
(SP)+,R0

;sPOP STACK INTO R2
:sPOP STACK

;:POP STACK

; JRETURN

INTO R1

INTO RO

J:HIGH ORDER BITS GO HERE

CINCCB NCVIT1 _ DIAGNOSTIC
CINCCB.P1T
31-AUG-79 11:21

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 72
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2339

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

(2)

;:tttfittt..'fi.t'fi.fit..fittt'..fi'..fit'tlttttt.tit".ttttfitfit't't"'

**THIS ROUTINE

(1N

:*CALL:

(1
(1
1)
1

(1
()
(

te
P

(1)
(3)
(3)
(3)
(3)
(3)
(1)
(1)
(1)
(1)
(1)
(1)
(1>
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

033664
033664
033666
033670
033672
033674
033676
033702
033706
033710
033712
033720
033722
033726
033732
033734
033740
033742
033744
033746
033750
033752

010046
010146
010246
010346
010545
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005702

(1)
(1)
(1)
(1)
(1)

033756
033760
033762
033764
033766

105716
100407
106316
103003
116663

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(3)
(3)
(3)

034000
034004
034006
034010
034014
034016
034020
034022
034024
034026
034030
034036
034040
034042
034044

(1)

IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 5-DIGIT

*+SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
*+NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
*+BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:«REPLACED WITH SPACES.

033754

033774

$TYPDS:

020200
000020
000055

000001

034100
000040

18:
28:

034070

38:

45:

001002

NUM,-(SP)

::PUT THE BINARY NUMBER ON THE STACK
1160 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RPL
NEG
MOVB
CLR
MOV
MOVB
CLR
MOV
SUB
BLT
INC
BR
ADD
1ST

RO, =(SP)
R1.-(SP)
R2.-(SP)
R3.~(SP)
R5.-(SP)
#20200,-(SP)
20(SP) .RS
1$
RS
#'-,1(SP)
RO
#$DBLK,R3
#' ,(R3)+
R2
SDTBL(RO),R1
R1,RS
4$
R2
3$
R1.RS
R2

;;PUSH RO ON STACK
::PUSH R1 ON STACK
:IPUSH R2 ON STACK
:PUSH R3 ON STACK
::PUSH RS ON STACK
::SET BLANK SWITCH AND SIGN
1GET THE INPUT NUMBER
1:BR IF INPUT IS POS.
:MAKE THE BINARY NUMBER POS.
:IMAKE THE ASCI] NUMBER NEG.
:1ZERO THE CONSTANTS INDEX
:ISETUP THE OUTPUT POINTER
SET THE FIRST CHARACTER TO A BLANK
:1CLEAR THE BCD NUMBER
::GET THE CONSTANT
:FORM THIS BCD DIGIT
BR IF DONE
* *INCREASE THE BCD DIGIT BY 1

TSTB
BMI
ASLB
BCC
MOVB

(P
7$
(SP)
6$
1(SP),-1(R3)

ISTILL DOING LEADING 0'S?
BRIF YES
:iMsD?
BR IF NO
::YES=-SET THE SIGN

BIS
MOVB
1S7
M
BLT
BGT
MOV
BR
TSTB
BPL
MOVB
C(LRB
MOV
MOV
MOV

¥ RO
R2,(R3)+
(RO) +
RO.#10
2$
8s
R5.R2
68
(SP)+
9%
-1(SP),-2(R3)
(R3)
(SP)+,R5
(SP)+.R3
(SP)+.R2

BNE
5%
000001

052702 000060
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602

MOV
TYPDS

177777

000040

6$:
78:

000010

8$:

177777

177776

9%:

BIS

#'0,R2

::ADD BACK THE CONSTANT
*CHECK IF BCD DIGIT-0

*IFALL THROUGH IF 0

:IMAKE THE BCD DIGIT ASCII

*IMAKE IT A SPACE IF NOT ALREADY A DIGIT
$IPUT THIS CHARACTER IN THE OUTPUT BUFFER
:1JUST INCREMENTING
*:CHECK THE TABLE INDEX
G0 DO THE NEXT DIGIT
1160 TO EXIT
:GET THE LSD
GO CHANGE TO ASCII
**WAS THE LSD THE FIRST NON-ZERO?
2IBRIF NO
::YES-=SET THE SIGN FOR TYPING
*SET THE TERMINATOR
::POP STACK INTO RS
::POP STACK INTO R3
:1POP STACK INTO R2

SEQ 0103

31-AUG=-79 11:21

012601
012600
104401

016666
012616
000002
023420
001750
000144
000012
000004

034100
000002

MACY11

MOV
MOV

$DTRL:

$DBLK:
.SBTTL
B

e Y e Ve
N

v s v W

D D

;*SW14=1
teSW11=1
: *SW09=1
:*SW08=1

W
W
W
Ra W
X
R
R

2222 2RRRRR2R22222222
222232 RRRRRRRdR]

CONTROLS

THE

LOOPING OF

SUBTESTS.

IT WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

:«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*CALL

:
$SCOPE

W
el W W W

222202

::RETURN TO USER

J*«AND LOAD THE TEST NUMBER(STSTNM)

045676
040000

SINOW TYPE THE NUMBFR
“ADJUST THE STACK

(SP)+. (SP)
MOV
RT]
10000.
1000.
100.
10.
4
.BLKW
SCOPE HANDLER ROUTINE

2322823222220 228

SEQ 0104

;:POP STACK INTO R1
S:POP STACK INTO RO

$DRLK
2(SP),4 (SP)

tTHIS ROUTINE

X
X
N
N
T

o o N A A

e X

N N W

b D

eyttt

D ed b d d e

e ta

W N N W

b end D ad b e

e N M M W N N N

e tatelate ta
e tateatlea

" N

b b d red D md e

(SP)+,R1
(SP)+ RO

TYPE
MOV

000004

W N S N N N W N

b D el wd ced () D D d D d D )

N 8
30G(1063)
31-AUG=79 13:10 PAGE 72-1
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

145014

000004
034154
177060
000004

032777
001404
127737
001465
105737
001421
123737

000400

144746

144740

001102

001115

001103

032777

001000

144710

001110

001106

005037

CKSWR
JSR

PC,CTRLCG

BNE

$OVER

BIT

JHANMRSTART

013746
012737
005737
012637
000463
022626
012637
000423

000004

001103

001103
001160

7%:

4%:

#81T14,aSWR
CODE

FOR

THE

FOR CHANGE IN SOF T-SWR
;TEST FOR CTRL C OR G

;;LOOP ON PRESENT

;. YES IF SW14=1

XOR

TEST?

TESTERANAANN

;o
IF RUNNING ON THE ‘XOR'' TESTER CHANGE

@FERRVEC,-(SP)
#58 ,3¥ERRVEC

LITHIS INSTRUCTION TO A ‘NOP'* (NOP=240)
--SAVE THE CONTENTS OF THE ERROR VECTOR
- :SET FOR TIMEOUT

1oV

(SP)+ @#ERRVEC

;;RESTORE

CMP
MOV
BR
6% : ;MANMAEND OF

2%:

;;TEST

MOV
MOV

TST

5%:

000004

TEST
[TERATIONS
ERROR
TEST IN SWR<7:0>

;:SCOne=l10T

SCOPE

$XTSTR: BR

000416

101015

1%:

LOOP ON
INHIBIT
LOOP ON
LOOP ON

8IT
BEQ
CMPB
BEQ
TSTB
BEQ
(MPB
BHI
8IT
BEQ
MOV

BR
CLRB
CLR

ar127060

S:TIME OUT ON YOR?

$SVLAD

THE ERROR VECTOR

;G0 TO THE NEXT TEST

(SP)+,(SP)+
;;CLEAR THE STACK AFTER A TIME OUT
(SP)+ ,a#ERRVEC
;;RESTORE THE ERROR VECTOR
7$
;.LOOP ON THE PRESENT TEST
CODE FOR THE XOR TESTERANNANA
#81T08,3SWR
..LOOP ON SPEC. TEST?

2%
aSWR,$TSTNM
$OVER
$ERFLG
3s
SERMAX , SERFLG
3%
#31709,aSWR
4%

:BR IF NO
..ON THE RIGHT TEST?
SWR<7:0>
BR IF YES
::HAS AN ERROR OCCURRED?
;:BR IF NO
;:MAX. ERRORS FOR THIS TEST OCCURRED?
.:BR IF NO
:;LOOP ON ERROR?
BR IF NO

$OVER
$ERFLG
$TIMES

;. JERQC THE ERROR FLAG
;;CLEAR THE NUMBER OF ITERATIONS TO MAKE

$LPERR,$LPADR

;SET LOOP ADDRESS

NN~
NN

N-

NN TN

N N N N S N

d cd e e

034046

DIAGNQSTIC

b 2 N

—

e W e (O N N N

d nd =D PN W

NCVIT
CZNCCB
CZNCCB. P11

TO LAST

SCOPE

CINCCB NCV1Y
DIAGNOSTIC
(ZNCCB.PIT
31-AUG-79 11:21
(1)

034252

000415

(1)
(1)

034254
034262

032777
001011

(1)

034276

023737

(1)
(1)
(1)
(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)
(1)
(1)
23?;

034264
034270
034272
034304

034306
034314
034322
034326
034334
034340
034344
034350

034356
0343646
034370
034372

005737
001406
005237
002C24

012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

004000

MACY11

30G(1063)
31-AUG-79
13:10
SCOPE HANDLER ROUTINE

164656

3%:

001202
001104

001160

001104

000001
034372
001102
001102
001106
001110
001162
000001

001104
001160

001102
001106

001200

001115

1644556

(

#BIT11,aSWR
1%

(MP

STIMES, SICNT

BGE

MOV
MOV
$SVLAD: IN(CB
MovB
MOV
MOV
CLR
MOvB
$OVER:

9
PAGE 72-2

8IT
BNE

TST
BEQ
INC

18:

$PASS
1%
$ICNT

$OVER

#1,8I1CNT

SMXCNT ,$STIMES
$TSTNM
STSTNM,STESTN
(SP) ,$LPADR
(SP) ,$LPERR

$ESCAPE
#1, SERMAX

MOV
$TSTNM,aDISPLAY
MOV
$LPADR, (SP)
RTI
$MXCNT: 2000.
.SBTTL
TYPE ROUTINE

SEQ 0105

s ESCAPE TO THE NEXT TEST

,.IMUBIT ITERATIONS?
; ;BRIF YES
;IF

FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
,.INCREPfNT ITERATION COUNT

;. CHECK THE NUMBER OF [TERATIONS MADE

;:BR IF MORE ITERATION REQUIRED

JCREINITIALIZE THE ITERATION COUNTER
;. SET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBIAS
;;SET TEST NUMBER IN APT MA]LBOX
;. SAVE SCOPE LOOP ADDRESS
;;SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
;oONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
. .FUDGE RETURN ADDRESS
..FIXES PS
;:MAX. NUMBER GF ITERATIONS

(2)

""'ttttRt'tfifiifitttttfitt*ttiitfilttkttil‘ttttfi.t."tttt*'.i't't'*t'l

(1)
1

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A C BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

fl;

s *NOTE3:

1)
1§ D)

J*NOTE1:
;*NOTEZ2:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC

CONTAINS THE CHARACTER TO FILL AFTER.

1)
)

s*CALL:
*1) USING A TRAP INSTRUCTION

(1)
1)

.'OR
I
o

:]‘;

(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)

TYPE

034376

105737

034400
034402
034404
034406
034410
034414
034422
034424
034432
034434

100002
000000
000430
010046
017600
122737
001011
132737
001405
010037

034444
034446
034454
034456
034460

000000
132737
001003
112046
001005

034440

034462
034464

004737

005726
012600

001157

$TYPE:

1%:

000002
000001

001214

000100

001215

034444

035446
000040

G01215

61%:
628%:
2$:
60$:

.ME SADR

;;MESADR

FIRST ADDRESS OF

$TPFLG

;.1S

PC,SATY3

;:SPOOL MESSAGE TO APT

(SP) +
(SP)+,RO

;.
IF TERMINATOR POP
;.RESTORE RJ

AN ASCIZ

STRING

TYPE
ME SADR

TSTB

;:BR IF YES
;oHALT HERE IF NO TERMINAL
3$
;sLEAVE
RO,~-(SP)
;:SAVE RO
@l (SP) ,RO
;. GET ADDRESS OF ASCIZ STRING
#APTENV, SENV
;;RUNNING IN APT MODE
62%
;¢NO,GO CHECK FOR APT CONSOLE
H#APTSPOOL ,$ENVM ; :SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE
RO,61$
;:SETUP MESSAGE ADDRESS FOR APT

.WORD
BITB
BNE
MOVB
BNE

C
; cMESSAGE ADDRESS
N#APTCSUP ,SENVM ; ;APT CONSOLE SUPPRESSED
60%
.. YES,SKIP TYPE OUT
(RO)+,~(SP)
;.PUSH CHARACTER TO BE TYPED ONTO STA(K
‘3
;cBR IF IT ISN'T THE TERMINATOR

JSR

TST
MOV

THERE A TERMINAL?

BPL
HALT
BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV

IT OFF

THE

STA(K

TM
i

ot Nt N
it N
sk NtV
st Nt
il Nl Nt NtV
o
Nl Nl Nl Nl Nl Nt

e T

) D ) D D D e e e el D i d D D D e D d D

034466

062716

034472
034474
034500
034502
034506
034510
034512
034514

000002
122716
001430
122716
001006
005726
1044601
001171

034522
034524
034530
034534
034536

000755
004737
123726
001350
013746

034516

034542

105037

000011

(%:

000200

034652
034606
001156

004737
105337

034606
034652

034560

000770

5%:
6%:

001154

000001

002770

034550
034554

000002

105366

034546

MACY11 30G(1063)
31-AUG-79
TYPE ROUTINE

7%:

Nl o Nl N
N
N
N
Nl Nl N
o
N

Nl Nl N

N
o N
N

N
N
N
N
N

BNE
MOV

DE(CR

034562
034566

112716
004737

034602

005726

034572
034600
034604

034606
034612
034614
034622
034630
034632

034636

034640
034646
034650
034652
034654

132737
001372
000724

105777
100375
116677
122766
001003
105037

000406

122766
001402
105227
000000
000207

000040
034606

000007

034652

8%:
9% :

000002
000015

$TYPEC:
144330
000002

034652

000012

000002

1%:

#HT , (SP)
8s
#CRLF, (SP)
5%
(SP)+

S$CHARCNT

23
PC,$TYPEC
$FILLC,(SP)+
23
$NULL ,-(SP)

1(SP)

PC,S$TYPE(C
$CHARCNT

MOVB
JSR

BITR
BNE
B8R

TSTB
BPL
MOVB
CMPB
BNE
CLRB

9
PAGE 72-3

SEQ 0106

:;ADJUST RETURN PC
: JRETURN
;JBRANCH JF <HT>
::BRANCH IF NOT <CRLF>
;:POP
<CR><LF> EQUIV
JJTYPE A CR AND LF

:3CLEAR CHARACTER COUNT

;2GET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
;oIS IT TIME FOR FILLER CHARS.?
;21F NO GO GET NEXT CHAR.
J:GET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
.;DOES A NULL NEED TO BE TYPED?
;:BR JF NO--GO POP THE NULL OFF OF
;:G0 TYPE A NULL
;DO NOT COUNT AS A COUNT
;;LOO0P

STACK

TAB PROCESSOR

TST

144336

13:10

#2,(SP)

8LT

JHORIZONTAL

N
B
N
N

D d e

D med ) d d D ) D e e e

N
PT

e N

—_— ) ) D e

ADD
RT]
CMPB
8CQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
CMPR

JSR
DECB

D d e

NCV11 _ DIAGNQSTIC
P11
31-AUG=-79 11:21

CMPB
BEQ
INCB
$CHARCNT:.WORD
$TYPEX: RTS

A ,L(SP)
PC,STYPEC

#7 ., $CHARCNT
%
2%

P)+

a$TPS
$TYPEC
2(SP) ,aSTPB
#CR,2(SP)
1%
$CHARCNT

S$STYPEX

MLF ,2(SP)
$TYPEX
(PC)+
O
PC

. ;REPLACE TAB WITH SPACE
.:TYPE A SPACE

;sBRANCH IF NOT AT
;;TAB STOP

. ;POP SPACE OFF STACK

:2GET NEXT (HARACTER

;iWAIT UNTIL PRINTER IS RFADY
;:LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
. ;BRANCH IF NO
::YES==CLEAR (HARACTER COUNT

JIEXIT

;2 ]S CHARACTER A LINE FEED?
;:BRANCH [F YES
:;COUNT THE CHARACTER
. JCHARACTER COUNT STORAGE

CINCCB NCV11
DIAGNOSTIC
CINCCB.P11
31-AUG-79 11:21

MACY11 30G(1063)
31-AUG~79 13:10 PAGE 73
BINARY TO OCTAL (ASCII) AND TYPE

2%?;

.SBTTL

BINARY TO OCTAL

SEQ 0107

(ASCII) AND TYPE

(2)

€8
(1)

YTHIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT
T»OCTAL (ASCII) NUMBER AND TYPE IT.

fl;

AR AN A AR AN NN AR NN NN RAR AR AN NN RN AN

RN N NNRNR

AN RN

;*%vaos---emfn HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TG TYPE
s*CALL:

(1)
%))

"
e

(1)

MOV

TYPOS
.BYTE

NUM, = (SP)
N

; ;NUMBER TO BE TYPED

Z3CALL FOR TYPEOUT
“:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::0=SUPPRESS LEADING ZEROS

- x

;:1=TYPE LEADING ZEROS

.
1

)
)
)

L 2$TYPON--—-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
1+$TYPOS OR $TYPOC
;«CALL:

(1)

(.1

fl;
8;

034656
034662
034670
034674

017646
116637
112637
062716

000000
000001
035103
000002

(1)
(1)
(1)

034702
034710
034716

112737
112737
112737

000001
000006
000005

(1)
(1)
(1)
(1)
(1)

034732
034736
034740
034744
034750

113704
005404
062704
110437
113704

035103

(1)

(1)
(1)

(1)

034700

034726
034726
034730

034754

034760
034762

034764

(1)
(1)
(1)

034766
034770
034772

(1)

034776

(1)

(1)
(1)
(1)

(1)

; NUMBER TO BE TYPED

SiCALL FOR TYPEOUT

MOV

NUM, - (SP)

: :NUMBER TO BE TYPED

$TYPOS:

MOV
MOVB
MOVB
ADD

a(SP) ,=(SP)
1(SP).SOFILL
(SP)+,$OMODE+1
#2.(SP)

;:PICKUP THE MODE
S:LOAD ZERC FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
S ADJUST RETURN ADDRESS

S$TYPOC: MOVB
MOVB
S$TYPON: MOVB

#1.SOFILL
#6.$OMODE+1
#5.SOCNT

;:SET THE ZERO FILL SWITCH
$:SET FOR SIX(6) DIGITS
S:SET THE ITERATION COUNT

MOVB
NEG
ADD
MOVB
MOVB

$OMODE+1,R4
R4
#6 R4
R&.SOMODE
$OFILL.R4

*SGET THE NUMBER OF

CLR
ROL

R3
RS

ROL
ROL
ROL

RS
RS
R5

ROL

;:GET LSB OF

S TEST FOR O

(1)
(1)
(1)
(1)

(1)
(1)
(1)

TYPON

NUM, = (SP)

L «$TYPOC~--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

TwCALL:

(1)

MOV

034774

035000
035006
035006

035012
035014

035016

000406

010346
010446
010546

016605

005003
006105

035101

035101
035103
035100

MOV
MOV
MOV

000006

035102
035101

000012

MOV
1$:

000404

006105
006105
006105

2% :

006103

3¢

010503
105337
100016
042703

001002
005704

001403

035102
177770

TYPOC

B8R

MOV
DECB
BPL
BIC

BNE

BEC

$TYPON

R3.-(SP)
R&.~(SP)
RS.~(SP)

12(SP) .RS

R5,R3
$OMODE
7%
#177770.R3
R4

5¢

L:CALL

FOR

TYPEOUT

*:SAVE R3
* SAVE R
12 SAVE RS

- :SUBTRACT

DIGITS TO TYPE

IT FOR MAX.

ALLOWED

S:SAVE [T FOR USE
2:GET THE ZERO FILL SWITCH

S:PICKUP THE INPUT NUMBER
::CLEAR THE OUTPUT WORD
::ROTATE MSB INTO '

1260 DO MSB

“:FORM THIS DIGIT

THIS DIGIT

SITYPE THIS DIGIT?
Z:BR IF NO
S:GET RID OF JUNK
*:SUPPRESS

“'BR

YES

THIS 0?

(INCCB

NCVTT

N
TN

) ad
d

N PN PN

d e
d

TN PN

D e

o N

SN I
TN TN SN PN
N
NN
NN

035020
035022
035026
035032
035036
035042
035046
035050

035102

005204
052703
052703

110337
104401
105337

003347
002402
005204

000744
012605
012604
012603
016666
012616
000002
000
000
060
000
000000

MACY11

000060
000040
035076
035076
035100

;.DON'T SUPPRESS ANYMORE 0°'S

,8%

;sMAKE ASCII IF NOT ALREADY
;. SAVE FOR TYPING
2.G0 TYPE THIS DIGIT

5¢%:

#'0,R3
#' ,R3
R3,8%

7%:

DE(CB

$OCNT

MOV

(SP)+,(SP)

000004
8%:

TYPE

BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
RTI

SEQ 0108

s cMAKE

2%
6%
R4
2%
(SP)+,RS
+ R4
(SP)
(SP)+,R3
2(SP) ,4(SP)

THIS DIGIT ASCII

;. COUNT BY 1
;:BR IF MORE TO DO
;;BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
2:G0 DO THE LAST DIGIT
;.RESTORE RS
;sRESTORE R4
;;RESTORE R3
;.SET THE STACK FOR RETURNING
; JRETURN

::STORAGE FOR ASCII DIGIT

:
$OCNT
SOFILL:
:
$OMODE

.BYTE
BYTE
BYTE
.BYTE
.WORD

O
O
O
O
O

.SBTTL

ERROR HANDLER ROUTINE

;:TERMINATOR FOR

TYPE

ROUTINE

. sOCTAL DIGIT COUNTER
J2IERO FILL SWITCH
. NUMBER OF DIGITS 1O TYPE

o Ya

2323220802382
23R
RS20t
Rt AR R Rd)

atatata

;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
J*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
J*AND GO TO SERRTYP ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

o Ve Y

wSW15=1
;*SW13.1

;*SW10=1
;*SW09=1
;*CALL
'-Q

$LRROR:

Y
N

10440/
105237

001775
013777
032777

e D e e D D e
N N N M N M W

INC

BIS
BIS
MOVB

6%:

000002

R
N
N
e N
e
e

30G(1063)
31-AUG-79 13:10 PAGE 73-1
BINARY TO OCTAL (ASCII) AND TYPE
A ¥

—d d e e
D d D
D
D d e
e ) ) d d e d d e i e D
b d e D D d —d d ek 2 P\) 2
W N o W W N’ W s W N W N A W N W W W N N e W S 2 W VL PN N e e N W N e N N N N W

PN LN

N N N

CINC(B P11

DIAGNQST IC
31-AUG=79 11:21

035162
035170
035172
035176
035202
035202
035210
035212

001402
104401
005237
011637
162737
117737

032777
001004
004737
104401

122737
001007
113737

001103

001102
002000
001164
001112
001116
000002

143736
020000

’%:

144020
144010

1%:

001116
001174

143750

035304
001171
000001

001214

001114

035224

ERROR
(KSWR
INCB
BEQ
MoV

ERROR
ERROR TYPEOUTS
ERROR
ERROR

:JERROR-EMT AND N=ERROR

$ERFLG

$TSTNM,aDISPLAY

817
BEQ

#B1T10,aSWR

INC
MOV
SuB
MOVB

$ERTTL

TYPE

BIT
BNE
JSR

20%:

HALT ON
INHIBIT
BELL ON
LOOP ON

TYPE

CMP8
BNE
MOVB

1%
LSBELL

(SP) ,$ERRPC
#2 ,3ERRP(

;:TEST

;oSET

FOR

THE

CHANGE

:;DON'T LET THE FLAG GO TO ZERO
;:DISPLAY

TEST NUMBER AND ERROR FLAG

;.BELL ON ERROR?

;oNO - SKIP
;;RING BELL
;o COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE

PC,$ERRTYP

:3GO

.SCRLF

NAPTENV, SENV

2%
$ITEMB,21¢

IN SOFT-SWR

ERROR FLAG

a$ERRP(C,SITEMB

#IT13,aSWR
208

ITEM NUMRER

;:SKIP TYPEQUT IF
:SKIP TYPEOUTS

THE ERROR

SET

[TEM (ODE

TO USER ERROR ROUTINE

J;RUNNING

IN APT MODE

;INO,SKIP APT ERROR REPORT

JsSET ITEM NUMBER AS ERROR NUMBER

(INCCB

N S

D
d

N N
N N
N S
i N N N N
i N
"
e N O\~

013716
005737

001110
001162

022737
001001
035302
035302

143670

000000

3%:
'A ¥

000042

5%:

6%:

000002

.SBTTL

JSR
BYTE
.BYTE
BR
TST
BPL
HALT

CKSWR
BIT
BEQ
MOV
1ST

BEQ

MOV

(MP
BNE

HALT

PAGE 73-2

SEQ 0109

;oREPORT FATAL ERROR TQO APT

PC,$ATYS

0
0
22%

;;APT ERROR LOOP

;sHALT ON ERROR
;:SKIP IF CONTINUE
;sHALT ON ERROR!

aSWR
3$

z21109.aswn
SLPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)
N#SENDAD
, a4 2

;s TEST FOR CHANGE

IN SOF T-SWR

::L00P ON ERROR SWITCH SET?
;:BR IF NO
;.FUDGE RETURN FOR LOOPING
;2CHECK FOR AN ESCAPE ADDRESS
;:BR IF NONE
;3FUDGE RETURN ADDRESS FOR ESCAPE

;;ACT=11 AUTO-ACCEPT?

;BRANCH IF NO

;2 YES

RTI

; :RETURN

ERROR MESSAGE

TYPEOUT ROUTINE

22%:
2%:

001162

030166

20G(1063)
31-AUG=79
13:10
ERROR HANDLER ROUTINE
21s:

143704

001000

001402
013716

MACY'1

035456

032777
001402

v N

N
I

—_— e

004737
000
000
000777
005777

e TV Y AN

31-AUG-79 11:21

100002
000000
104407

W
S

D
b
D
D

et T
T

d
D

e T e T
T
N
e

035220
035224
035225

D rd e

T e

WP N

CINCCB P

DIAGNOSTIC

;*THIS ROUTINE USES

THE

'‘'ITEM CONTROL BYTE'' (SITEMB)

TO DETERMINE WHI(H

;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'FRROR TABLE'' ($ERRTR),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
035304
035304
035310
035312
035314
035320

010046
005000
153700
001004

035322

013746

104401

001171

$ERRTYP:

001114

TYPE
MOV

.SCRLF
RO,-(SP)

CLR
B15B
BNE

MOV

$ERRP(,~(SP)

?:SI TEMB RO

Wl W
W
N
N
s N
N
N
N
M
N
N
N

NN\

et e

DS WD W W

e T

Y A 1 £8 1A S I R

e W

e T

R RNRAANAARARANAAAANNANRAANANAARARANAANARANARANRANARAANRNRAANCRAANAANA
AN RN

035326
035330
035332
035334
035336
035340

001116

TYPO(

1%:

035372
035374
035376

035402
035404

ASL

ASL
ADD

035342
035346
035352

035354
035356
035360
035364
035370

BR
DEC

MOV

8taQ

2%:
3%
A ¥
5¢:

TYPE

. WORD

TYPE

#SERRTB,RO

(RO)+,28%
33

0
LSCRLF

8tQ

(RO)+,4%
5%

. WORD

MOV
BNE

(RO ,RO
7%

MOV

TYPE
TYPE

.SCRLF

;2 "'CARRIAGE RETURN'' & 'LINE FEED''
;:SAVE RO
;:PICKUP THE

;oIF

ITEM INDEX

ITEM NUMBER IS ZERO, JuST

;. TYPE

THE

EPRPROR

;:SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS
::GO TYPE--OCTAL ASCII(ALL DIGITS)
.:GET OUT
;JADJUST THE INDEX SO THAT [T WILL
WORK FOR THE ERROR TABLE
..
;.FORM TABLE POINTER

;:PICKUP "ERROR MESSAGE'' POINTER
;. SKIP TYPEOUT IF NC POINTER
;. TYPE THE 'ERROR MESSAGE''

;2" ERROR MESSAGE'' POINTER GOES HERE
;" 'CARRJAGE RETURN'' & 'LINE FEED'

;.PICKUP 'DATA HEADER'' POINTER
;.SKIP TYPEQUT IF 0O
;:TYPE

THE 'DATA HEADER''

;. DATA HEADER'® POINTER GOES HERE
;. 'CARRIAGE RETURN'' & "LINE FEED'’
;:PICKUP "DATA TABLE'' POINTER

;.60 TYPE

THE DATA

R
RN

Sy 5] )\ U J QR

S
S

AN AN
PR

N(VTMT
(INC(B
(INC(CB.P1T

035406
035410
035414
035416
035416
035420
035422
035424
035426
035432
035434

DIAGNQSTIC
21
3i=-AUG=79 11:
012600
104401

000207

001174

MACY']

31-AUG="9
13:10 PAGE 73-3
30G(1063)
ERROR MESSAGE TYPEOUT ROUTINE
6%:
7%:

013046

104402

005710
001770
104401

00077
020049
035440

(SP)+,RO

;;RESTORE RO

RTS

;. RETURN

MGV

3(RO) +,=(SP)

;;SAVE @(RO)+ FOR TYPEOUT

TST
BEQ

(RO)
6%

;. 1S THERE ANOTHER NUMBER?
;.BR IF NO

B8R
JASCIZ
.EVEN

’$

MOV

TYPE

T1YPQ(

03543

0N0

TYPE

SEQ 0110

,$CRLF

,89%

:;"'CARRJAGE RETURN'' & "LINE FEED'’

;G0 TYPE==OCTAL ASCII(ALL DIGITS)

::TYPE TWO(2) SPACES
;. LOOP

;:TW0(2)

SPACES

CINCCB NCVI'
DIAGNOSTIC
CINCCB.P1T
31-AUG-79 11:21

MACY11 30G(1063)
31-AUG=79 13:10
APT COMMUN]CATIONS ROUTINE

23?9

.SBTTL

(1)

(2)

035440
035446
035454
035456
035464

(3)

035466

(1)

(1)
(1)

(1)

(1)
(1)

(1)
(1)
(1)
(1)
(1)

(1)
(1)
(1)

(1)

112737
112737
000403
112737

035464

010046

035470

105737

010146

035474
035476

001450
122737

035506

035504

035704

S$ATY4:
SATY(:

035702

001215

017600

000004

001375
010037
105720
001376
163700

006200
010037
012737

000413

000002
001174

001174

035614
000004

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(3)
(3)
(1)
(1)
(1)
(1)

035610
035614
035616
035616
035622
035624
035630
035632
035636
035640
035646
035654
035660
035664
035670
035674
035676
035700
035702
035703
035704

004737
000000

034374

105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000

035704

(1)

013746

035706
000200

000001

000100

177776

1¢:

3%:

;.70 REPORT FATAL ERROR
SST0 TYPE A MESSAGE

MOV

RO,=-(SP)

;:PUSH RO ON STACK

TSTR

$MF LG

SSSHOULD

TYPE

;:JF NOT:

::1F

NOT:

::SEE

4%:
S§:
10%:

001174

11¢:
001176
000004

12%:

$MFLG:
$LFLG:
$FFLG:

R1,-(SP)

::TO ONLY REPORT FATAl

;JPUSH R1

ERROR

ON STA(K

A MESSAGE">

BEQ
CMPB

5
NAPTENV, SENV

8118

#APTSPOOL
, SENVM ; ; SHOULD SPOOL MESSAGES?

MOV

a4 (SP) RO

ADD
ST

#2,4(SP)
$MSGTYPE

ASR
MOV
MOV

RO
RO, $MSGLGT
24 SMSGTYPE

BNE
MOV
ISTR
BNE
SUB

B8R

1%
RO, SMSGAD
(RO)+
2
SMSGAD ,RO

*:IF NOT:
BR
: :OPERATING UNDER APT?

::GET MESSAGE ADDR.

::BUMP RETURN ADDR.
DONE W/ LAST XMISSION®

SUIF NOT:
WAIT
::PUT ADDR [N MAILROX
S:FIND END OF MESSAGE

;:SUB START OF MESSAGE

::GET MESSAGE LNGTH IN WORDS
S:PUT LENGTH IN MAILBOX
SSTELL APT TO TAKE MSG.

MOV
ADD

34 (SP) 4%
#2,4(SP)

::PUT MSG ADDR IN JSR LINKAGE
- -BUMP RETURN ADDRESS

JSR
.WORD

PC,$TYPE
0

;. CALL

TSTR
BEQ
ST
BEQ
TST
BNE
MOV
ADD
INC
(LRB
CLKB
CLRB
MOV
MOV
RTS
.BYTE
.BYTE
.BYTE

$FFLG
12%
SENV
12%
$MSGTYPE
118
36(SP) ,$FATAL
#2.4(SP)
SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(SP)+.R0
PC
0
O
0

MOV

001214

000004
000002
001174
035704
035703
035702

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

BEQ

2%:

001212
000004
000004
000002

MOVB
MOVB
BR
MOVB

BNE

001210

017637
062766

035606

000004

001210

035570
035576

(1)
(1)

SEQ 0111

APT COMMUNICATIONS ROUTINE

MOV

000100

062766
005737

035566

000001

132737

035522
035530

035552
035554
035560

SATY1:
S$ATY3:

001214

001425

03553¢
035536
035542
035544
035546

(35704
035702

000001

00103

035514

035516

0000017
000001

(1)
(1)

(3)

PAGE 74

;.'ttt"tttfi't't'tltt'tttttt'.Q't't.Qtttltttttlttttttttt..t'tt..'t

(1)
1)
(1)
(1)
(1)

(3)

.EVEN
APTSIZE=200

APTENV=001

APTSPOOL =100

177776.,-(SP)

;:PUSH 177776 ON STACK
TYPE MACRO

::SHOULD REPORT FATAL ERROR®
::1F NOT:
BR
: :RUNNING UNDER APT?
::1F NOT:
BR
SSFINISHED LAST MESSAGE”
SS1F NOT:
WAIT
::GET ERROR #
- :BUMP RETURN ADDR.
;;TELL APT TO TAKE ERROR
S CLEAR FATAL FLAG
::CLEAR LOG FLAG
::CLEAR MESSAGE FLAG
::POP STACK INTQ R1
::POP STACK INTO RO
: RETURN
::MESSG. FLAG
::L0G FLAG
::FATAL FLAG

CINC(B NCVTT
CINCCB.P11

DIAGNOSTIC

31-AUG=-79 11:21

MACYN

2350

APT

31-AUG-79

13:70

COMMUNICATIONS ROUTINE

9
PAGE 74-1

SEQ 0112

APT(SUP=040
.SBTTL
POWER DOWN AND UP ROUTINES

000040

(1)

30G6(1063)

e W
R
R
Y e L
W
N

Nl
il N

e
e

'“Qt.'it'fiii't'.i'.tttti'l'Qfi'tt"fifitt.t!"ttt.t"'t'tt'.t.'tt"'

035706
035714
035722
035724
035726
035730
035732
035734
035736
035742
035746
035754
035756

012737
012737
010046
010146
010246
010346
070446
010546
017746
010637
012737
000000
000776

036046
000340

000024
000026

:POWER DOWN ROUTINE

$PWRDN: MOV
MOV
MOV

MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOVT

143176

036052
035760

000024

HAL

#SILLUP ,Q#PWRVEC ;,SET FOR FAST UP
#340 ,a#PWRVE(+2 ;;PRIO:?7
RO,-(SP)

;;PUSH RO ON STAC(CK

R3,-(SP)

;;PUSH R3 ON STA(K

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

;;PUSH R1 ON STACK
;JPUSH R2 ON STA(K

R4 ,-(SP)
;;PUSH
RS,-(SP)
;;PUSH
aSWR,~(SP)
;.PUSH
SP,$SAVR6
;:SAVE
H#SPWRUP ,d#PWRVEC ;.SET

R4 ON STACK
RS ON STA(K
aSWR ON STA(K
SP
UP VECTOR

; sHANG UP

b 2 =B (NIANWININININ
= = =2 2 3 N D =

e N

sl N

NN NANAN NN s —

St Nt Nt Nt N

]

(1)

N
Nl N

R
e

N
N
Nl N
N
N
N
Nl N

e R el el el el e R e R e
e
L

N
N
Nt Nl N

o N

Nl N

e T

035760
035766
035772
035776
036002
036004
036010
036012

036014

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

036054
000002
000000
000776
000000
005015
000122

036046
036052
036052
036052

000024

2232228080033 203f00R2R2Rd8RdRdRRRRRRRRRSRRRRRARRERRRREN

POHER UP ROUTINE

$PWRUP:

MOV

ASILLUP,I#PWRVEC

1%:

INC

$SAVR6

143130

035706
000340

MOV
(LR
BNE

MOV

MOV
MOV
MOV
MOV
MOV
MOV

000024
000026

MOV

TYPE

$PWRMG : éMTJ?RD
$ILLUP:

047520

042527

$SAVR6:
$POWER:

HALT

0
.ASCIZ
.EVEN

;. SET FOR FAST COWN

$SAVRG, SP
$SAVR6

;;GET SP
;:WAIT LOOP FOR THE

;:0F

(SP)+ RS
(SP) + R4
(SP)+ ,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+,R0O

;POP STACK INTO RS
; POP STA(CK INTO R4

(SP) +,aSWR

lSPURDN a#PWRVEC

;.WAIT

FOR

WORD

.~
<15><12>'POMER"'

INC

TTY

..POP STACK

INTO aSwR

;;POP
;;POP
;;POP
;;POP

INTO
INTO
INTO
INTO

STACK
STACK
STACK
STACK

R3
Re
R1
RO

;.SET UP THE POWER DOWN VECTOR

#340, a#PURVEC’Z ;:PRIO:7
$POWER

THE

;REPORT

THE

POWER FAILURE

;;POWER FAIL MESSAGE POINTER
;. THE POWER UP SEQUENCE WAS STARTED

;. BEFORE
;:PUT

THE

THE POWER DOWN WAS (OMPLETE

SP HERE

(INC(CB NCVTT
CZNC(B. P11

DIAGNQOSTIC

31-AUG=79 11:21

MACY11

30G(1063)

31-AUG=79

13:10

MEMORY

9
PAGE

ROUTINE

TO SIZE

.SBTTL

ROUTINE TO SIZE MEMORY

SEQ 0113

sJ*CALL:

st N
o N

WITH KT11 OPTION
~= 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

i+$KT11 IS THE MEMORY MANAGEMENT KEY
*BITO?
= O DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL
*BIT1S = 0 DON'T HAVE MEMORY MANAGEMENT OPTION
DETERMINED BY ROUTINE

N
et N
i Nt Nt Nt Nt o N
Nl ot Nt N
N
N
N
NP Nl N
Nt Nl NP Nl Nl Nl N
Nl Nl Nl o Nt N
N

036064

036070

010046
010146
010246
010346
013746
013746
010600
104400

012637
012701

105727
000200
100070

012737
005737
052737
012737
012737
005046
012702
012703
012762
011622
062716
077307

$SI1ZE:

:SET

000006
003776
$KT11:

036300
177572
100000
036406
000340
172340
000010
077406

000004

036122
000250
000252

177600

012737
012737

036236
000020

005237
012737
005737
062712
023712

177572
036270
143776
000040
172356

011202
005037

177572

101371

RO,-{(SP)

;o SAVE RO ON THE STA(K

MOV

RZ2,=(SP)

;. SAVE R2 ON THE STACK

MOV

177740

1$:

MOV
TST8R
.WORD
BPL
MOV
MOV

#KTERR,SAMMVEC

MOV
CLR
MOV
MOV

MOV

MOV
ADD

CLR
MOV

000004

2$:
3%
4 :

;. SAVE R1

ON THE STA(K

;. SAVE R3 ON THE STA(K

#3776 .R1
;s SETUP ADDRESS
(PC)+
::USE MEMORY MANAGEMENT?
200
sSET TO USE MEMORY MANAGEMENT
$CORE
.BR IF NO
ASKTNEX @#ERRVEC :SET FOR TIMEOUT

a4SR0O

S08

172516

R3,-(SP)

TST

MOV

000004

R1,-(SP)

MOV
A¥ERRVE( ,~(SP)
;;SAVE PRESENT ERROR VECTOR PS & PC
MOV
a#ERRVEC+2,-(SP)
MOV
SP,R0O
.SAVE THE STACK POINTER
THE ERRVEC PS TO THE PRESENT PS
TRAP
;PUSH OLD PSW AND PC ON STA(CK
MoV
(SP)+,@4ERRVEC+2"
;.SAVE THE PSW IN @#ERRVE(+?2

BIS

000200

012742

MOV

000004
000006

N
Nl Nl "l N
Nt Nl Nl N
N

PC,8SIZE

AN
NN TNININPNINONPNINTNINTNNINININPNIN
NSNS
N TN
N PN
NN PN
N PN
N
N
SN SN SN
N S
N TN
N
SN

JSR

RETURN

;*SLSTAD WILL CONTAIN:

NN~

d—l-—l—l-—l—l—l—a—‘—l—l_{_{_‘—‘—l-—l—j-—l—l—‘—l—l—l—l—l—l—l—J_INN—.—‘_J_A_J—I—O—J—J_J—l_—l—‘_b_)__‘_&—b_l—la

".‘t'fi‘i'ttfit"t't'*Q.ktttt'ttttt‘tt.itt'!'ltl""t.'t'."ttt'.".

*KT11 ARE YOU THERE?

#100000, $KT11

;;vss--ssr KT11 KEY

#3460, RIMMVE (+2
-(SP)
#K1PARO,R2
#-D8,R3

;:INITIALIZE FOR ‘PAR'' LOADING
*ADDRESS OF FIRST 'PAR"’

:-SET

IN CASE OF

ERROR

#77606,-640(R2)

S LOAD EIGHT 'PAR.'S'' AND EIGHT
°
::PDR = 4K, UP, READ/WRITE

l177600 -(R2)

::SETUP KIPAR? FOR 1/0

(SP) . (R2)+
czoo (SP)

-(R2)
#2$.JXERRVE(

S:LOAD ‘PAR'’
SUPDATE FOR NEXT 'PAR"
S:LOOP UNTIL ALL EIGHT ARE LOADED
S SETUP KIPAR6 FOR TESTING
*:CATCH TIMEOUT IF NO

MOV

#20.34SR3

MOV

#SKTOUT,a#ERRVEC:;SET FOR TIME OUT

BR
CMP
INC

TST
ADD
CMP
BHI
$KTOUT: MOV
(LR

3$
(SP)+, (SP)+
WSRO

SENABLE 22 BIT MODE

S THIS PDP=11 HAS A SR3 REGISTER
*CLEAN OFF THE STACK~-NO SR3
S TURN ON MEMORY MANAGEMENT

1463776
#40, (R2)

STRAP ON NON-EX~MEM
::MAKE A 1K STEP

(R2) ,R2

SIGET LAST BANK+1

KIPAR7, (R2)
4%
a#SRC

::LAST ONE?
SINO=-TRY T

;. TURN OFF MEMORY MANAGEMENT

Ny
ot N
S
N

Nt Nt N

s N

Nt N

Nt Nt Nt N

sl Nt Nt Nt

St Nt

d nd

D e

D
D

D
D
e
d e
D oD
D i
d
D
d

N SN SN SN SN SN TN PN TN TN TN
PN TN

— e

CINCCB
NCV11
CZNCCB PN

2353
2354

31-AUG=79

DIAGNOSTIC

MACY11

30G(1063)

000421
042737
012737

036122

SKTNEX: BIC

31-AUG=79 11:21

005002
062701
062702
005711

022701
001370

162701
162702
010006

012637
012637
010137
010237
012603
012602
012601
012600
000207
000000
000000
000000
000776

100000

036336
004000
000040
177776

004000
000040

000006
000004
036402
036404

000004

ROUT INE

13:10

TO SIZE MEMORY

$(ORE:

MOV

1%:

ADD
ADD

CLR

TST
cMp
BNE
$CROUT: SuB
$SIZEX: Su8
MoV
MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
RTS

$SLSTAD: .WORD
$LSTBK: .WORD
KTERR:
HALT
BR

9
PAGE 75-1

SEC 0114

$SIZ2EX

#100000,8xT 1
J:KT11 NON-EX]ISTENT
#$CROUT ,a#ERRVEC ;;SET FOR TIMEOUT
R2
JsSET UP BANK
#4000 ,R1
;2 INCREMENT BY 1K
#40,R2
;21K STEP
(R1)
;;TRAP ON TIME OuUT
177776 R
;s LAST ONE
1%
::NO=-=TRY AGAIN
#4000,R1

#40,R2

; :DROP BACK

RO,SP
;JRESTORE THE STACK
(SP) + ,a#ERRVEC+2 ;:RESTORE ERROR VECTOR
(SP)+ ,a#ERRVE(

R1,.$LSTAD

;s LAST ADDRESS

R2.$LSTBK

:LAST BANK

(SP)+ R

JIRESTORE R1

(SP)+ ,R3
(SP)+ ,R2

é%P)*,RO

0
0
KTERR

::RESTORE R3
s JRESTORE RZ
JJRESTORE

;2CONTAINS THE LAST ADDRESS
;JCONTAINS THE LAST BANK
:KT11

FAJLURE

CINCCB NCVi1 _ DIAGNOSTIC
CINC(CB.P11
31-AUG=79 11:21
23??

MACY11

L 9
30G(1063)
31-AUG=79 13:10 PAGE 76
SAVE AND RESTORE RO-RS5 ROUTINES
.SBYTL

SEO 0115

SAVE AND RESTORE RO-RS ROUTINES

52)

.'.'fi"fifi“'l’.i‘fi*‘l’tfitfit"'t.tQfitfi"'.t.ttt."""tt.'...'.."".

1)
Q)
2};

;«CALL:
e
SAVREG
;*UPON RETURN FROM $SAVREG THE

QD)

:*SAVE RO=-R5

STACK WILL LOOK L iKE:

> %

b
&P
(1)
N

JxTOP===(+16)
Jx 42=-==(+18)
;% +4=-==R5
;% +6===R4
;* +8-=<R3
;x+10=--<R2
;x+12=-=-=R1
:*+14--=R0

)
)
QP
(})
)

(1)

036412

(3)
(3)
(3)

036414
036416
036420

(3)

(3)
(3)

(1)
(1)

(1)

E};

036412

010046

036422
036424

010446
010546

036426
036432

036436
036442

036446

$SAVREG:

010146
010246
010346

000022
000022

016646

000022

000002

(1)

MOV
MOV

R4 ,~-(SP)
RS5,-(SP)

:;PUSH R4 ON STACK
;:PUSH RS ON S1ACK

MOV

RTI

R1,-(SP)
R2,-(SP)
R3,-(SP)
22(SP) ,-(SP)
22(SP) ,~(SP)

22{(SP) ,-(SP)
22(SP) ,~(SP)

J:PUSH R1 ON STACK
;sPUSH R2 ON STA(K
;;PUSH R3 ON STACK

;:SAVE PS OF MAIN FLOW
J:SAVE PC OF MAIN FLOW

;sSAVE PS OF CALL
;:SAVE PC OF

CALL

;*RESTORE RO-RS

)

(1)
(1)
(1)
(1)
(1)
(3)
(3)
(3)
(3)
(3)
(3)

;;PUSH RO ON STA(CK

MOV
MOV

000022

)

ap)

RO.,~-(SP)

MOV
MOV
MOV

016646
016646

016646

MOV

JxCALL:

036450
036450
036454
036460
036464
036470
036472
036474
036476
036500
036502
036504

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

RESREG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+ RO

;;RESTORE PC OF CALL
;;RESTORE PS OF CALL
;sRESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
;.POP STACK INTO R4
;JPOP STACK INTO R3
::POP STACK INTO R?
;;POP STACK INTO R1
;;POP STACK INTO RO

CINCCB NCVIY
DIAGNOST{%I
CINCCB.P11
31-AUG~-79
21
2???

MACY11 30G(1063)
31-AUG=79 13:10
INTEGER MULTIPLY ROUTINE
LSBTTL

PAGE 77

SEQ 0116

INTEGER MULTIPLY ROUTINE

(2)

.';Qfi'.ttfifi'.fi'!"fi*fi..tfi.Q.'Q'th..!'.fi.".it..'.'."""'.t..fi'.

1
)
)
)
E};

s *CALL
P
I
Jx
oW

MOV
MOV
JSR
RETURN

MULTIPLER,=-(SP)
MULTIPLICAND,=-(SP)
PC.aaSMULT
::PRODUCT IS ON THE

STACK

. N

1)
QD)
@p)
(1;
(

M
(%
b
I

(1)

036506

(3)
(3)
(1)

036510
036512
036514

(3)

(1)

(1)
(1)
(1)
(1)

036506

010046

036516

016601

010146
010246
005046

036522
036524
036526
036530

100002
005216
005401
016602

036536
036540
036542
036546

005316
005402
012746
005000

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

036552
036554
036556
036560
036562
036564
036566
036570
036572

060200
006000
006001
005316
001372
022616
001403
005400
005401

(1)
(1)
(1)
(3)
(3)
(3)

036576
036600
036604
036610
036612
036614

005726
010066
010166
012602
012601
012600

(1)

(1)
(1)
(1)
(1)

(1)

036534

036550

036574

036616

100002

SMULT:

000021

103001

000207

1%:

2%:

3%:
A ¥

005600

000012
000010

MOV

RO,~-(SP)

;sPUSH RO ON STACK

MOV

12(SP)

;cGET

MOV
MOV
CLR

000012

000014

STACK
PRODUCT
=eeee
eccccces
TOP
LSB'S
+2
MSB'S

5%:

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

BPL
INC
NEG
MOV

18
(SP)
R1
14 (SP) ,R2

DEC
NEG
MOV
CLR

(SP)
R2
#17.,-(SP)
RO

B8PL

B(CC

ADD
ROR
ROR
DEC
BNE
(MP
BEQ
NEG
NEG

SB(

TST
MOV
MOV
MOV
MOV
MOV
RTS

R2.RO
RO
R1
(SP)
38
(SP)+,(SP)
5%
RO
R1

(SP) +
RO, 12(SP)
R1.10(SP)
(SP)+,R2
(SP) + ,R1
(SP)+,R0
PC

J:PUSH R1 ON STACK
;sPUSH RZ2 ON STA(CK
;:CLEAR THE SIGN KEY

THE MULTIPLICAND

;<BR IF PLUS
;:SET THE SIGN KEY
;cMAKE THE MULTIPLICAND POSTIVE
;.GET THE MULTIPLIER

;:BR IF PLUS

;;UPDATE THE SIGN KEY
;;MAKE THE MULTIPLIER POSTIVE
;cSET THE LOOP COUNT
;;SETUP FOR THE MULTIPLY LOOP

;;DON'T ADD IF MULTIPLICAND = O
;:POSITION THE PARITIAL PRODUCT AND
;o THE MULTIPLICAND
;HAS ALL BITS OF THE MULTIPLICAND BEEN DONE?
;:BR IF NO
;¢SHOULD PRODUCT BE NEGATIVE?
;:GO TO EXIT IF NO
;. YES==SO MAKE IT SO
;:CLEAR SIGN INFO. OFF OF STACK
;sPUT THE PRODUCT ON THE STACK (MSB'S)
;:LSB'S
;:POP STACK INTO RZ
::POP STACK INTO R1
;:POP STACK INTO RO

CZINCCB NCVI1 _ DIAGNOSTIC
CINC(B.P11
31-AUG=79 11:
21

MACY11 30G(1063)
31-AUG-79 13:10
INTEGER DIVIDE ROUTINE

2???

.SBTTL

(2)

9
PAGE 78

SEQ 0117

INTEGER DIVIDE ROUTINE

X223 X322323223222322322234322323223233223 2222332223232 222Z2 22222232 Z%X2 2 {

D
)
1)
1)

*THIS ROUT INE UILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER
;*DIVIDEND BY
A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
S+A 16-8BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER.

-'?:VE SIGN AS THE DIVIDEND.

;*DIVISION WILL BE PERFORMED SO THAT

f%g

sCALL:

(1)

)
1)
1)
1)

MOV

LOW DIVIDEND,=-(SP)

'v''-0

IMPLIES NO ERROR

b
o *
o*
o

)

)
1)
g};

M
M
o

MOV
MOV
JSR
RETURN

THE REMAINDER IS OF

THE

;;THE HIGH DIVIDEND MUST BE < 1/2

HIGH DIVIDEND,-(SP);
AS LARGE AS THE DIVISOR
DIVISOR,-(SP)
PC,$D1V
;JQUOTIENT & REMAINDER ARE ON THE

"Y'=

IMPLIES ERROR OCCURRED
=0
DIVIDE OVERFLOW OCCURRED
=1
ATTEMPTED TO DIVIDE BY ZERO

%};

o
A

(1)

o®

E};
(1)

(2)
(1)
(3)

(3)
(3)
(3)
(1)

(1)

(1)
(1)

o
036620

036620
036622
036626

104400
042716
010046

036634

010346

036630
036632
036636

036640
036644
036650

(1)
(1)
(1)
(1)
(1)
1)
(1)
(1)
(1)
(1)
(1)
(1)

036654
036656
036662
036664
036666
036670
036674
036676
036700
036706
036712
036714

(1)
(1)
(1)
(1)
(1)
(1)
(1)

036722
036724
036726
036730
036732
036734
036736

(1)

036720

$DIV:

000017

010146
010246

005046

012746

016601
016600

100005
105366
005400
005401
005600
016602
002407
003011
052766
012700
000424
005266

000401

005402
000241
000405
006100
010003
060203
103001

STACK

eoeweewe

000020

000003
177777
000002

1%:

000014
2%:
3%:
4%:

5%:

OVERFLOW

009090909 2 maeccesesemes

|00

DIVIDE BY ZERO

seoecccccemememcoee

ALL ZEROS

TRAP
BIC
MOV

”7,(SP)
RO,-(SP)

;:PUSH OLD PSW AND PC ON STACK
;:STRIP AWAY CONDITION CODES
:;PUSH RO ON STACK

MOV

R3,-(SP)

;2PUSH R3 ON STACK

QUOTIENT

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

ALL ZEROS

ALL ONES

2:PUSH R1 ON STACK
;:PUSH R2 ON STACK

;s SAVE A PLACE FOR SIGNS

MOV

#17.,-(SP)

;;SETUP THE

BPL
DECR
NEG
NEG
SBC
MOV
BLT
BGT
BIS
MOV
BR
INC

1%
3(SP)
RO
R1
RO
20(SP) ,R2
2%
3%
#3,14(SP)
#-1,R0
7%
2(SP)

::CHECK THE SIGN
JJKEEP TRACK OF THE SIGN
:;AND NEGATE THE OR]IGINAL
2 JNUMBER

NEG
cLC
B8R
ROL
MOV
ADD
BCC

,.NEGATE THE ORIGINAL NUMBER
;:CLEAR ''C''
;. 2START FORMING QUOTIENT
;sPOSITION MSB'S
;;COPY
:;COMPARE DIVIDEND & DIVISOR
;:BR IF DIVIDEND > DIV!ISOR

MOV
MOV

000003

eooeeoeeees

REMAINDER

CLR

000024
000022

NO ERROR

TOP

MOV
MoV
000021

B8R

24 (SP) ,R1
22(SP) ,RO

63
RO
RO.R3
R2,R3
6%

ITERATION COUNTER

J:PICKUP THE DIVIDEND

::PICKUP THE DIVISOR
;CHECK THE SIGN
DIVISOR OF 0 IS A NO-NO
,.SET 'vV''g
e
.sSET REMAINDER TO ALL ONES
JIEXIT
JJKEEP TRACK OF DIVISORS SIGN

STACK

N
N
N
il N
ot N
N
N
Nl N
N
Nl N
Nl Nl N
Nt
Nl N

N
N PN
SN PN PN
N PN
N
N PN

o
N
N

Nl N

N PN PN
N PN

N PN
NN

NANWNWN
I

N SN PN
PN

Db D d D DD DD DD

NCVI
CINC(CB
CZNCCB P11

036740
036742
036744
036746
036750
036752
036754
036762
036764
036766
036770
036772
036774
036776
037002
037004
037006
037010
037012
037016
037022
037024
037026
037030
037032
037036

DIAGNQSTIC

1
31-AUG=79 11:
010300
006101
005316
001370
005701
100005
052766
005000

6% :

000002

105066

005316
005726
001401
005401
010166
010066
012603
012602
012601
012600
012666
000002

000014
7%:

010007
005726

005716
002004
005400

31-AUG=79 13:10
MACY11 30G(1063)
INTEGER DIVIDE ROUTINE

8%:

MOV

ROL
DEC
B8NE
TST

RPL
BIS
(LR
MOV

TST

B8GE

9% :

000007

#2,14(SP)
RO
RO,R1
(SP)+
(SP)

10%:

CLRB
DEC
TST
BEQ
NEG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RT]

PAGE

78-1

SEQ 0118

: REMAINDER AFTER THIS LOOP

;;QUOTIENT BIT ENTERS HERE
2 .DONE?
;.BR IF NO
; ;OVERFLOW?
;:BR IF NO

J:SET 'V IN RETURN STATUS WORD
::SET REMAINDER TO ALL ZEROS

;;COPY REMAINDER INTO QUOTIENT
;;CLEAR COUNTER FROM STACK
;;REMAINDER SIGN CORRECTION NEEDED?
;:BR

IF NO

;;NEGATE REMAINDER
;.CLEAR SIGN

NEG

000001

000020
000016

R3,RO

8 10

;:BUT DON'T FORGET QUOTIENT

;;QUOTIENT SIGN CORRECTION NEEDED”?
;<BR IF NO
R1,20(SP)
RO,16(SP)
(SP)+ _R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+,R0
(SP)+,2(SP)

; ;NEGATE QUOTIENT
;sRETURN QUOTIENT AND
; ;REMAINDER TO USER
:;POP STACK INTO R3

;;POP STACK INTO R2
;;POP STACK INTO R1
;;POP STACK

INTO RO

J;SETUP TO RETURN CONDITION CODES

. JRETURN

CINCCB NCV1T
DIAGNOST{%
CINCCB.P11
31-AUG=79
11:21

MACY11

23?§

c 10
30G(1063)
31-AUG-79
13:10 PAGE 79
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

.SBTTL

(

DOUBLE LENGTH BINARY TO DECIMAL ASCII

SEQ 0119

CONVERT ROUTINE

(2)

S X2233223223334232232322324202322322323222322223232232232232322222222222]

(1)
1)

**THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
“«DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

(1)
1)
(1)

S «POSITIVE.
“wCALL
e
MOV

1)
)
(})

‘e

RE TURN

$DB2D:

SAVREG
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR

2(SP) .R2
#$DECVL ,RO
RO, 2(SP)
(R2)+.R1
(R2)+.R2
#10.,48
¥STNPWR R4
#STNPWR+2
RS
R3

SBC
suB
BLT

R2
(R5) ,R2
3

(1)

“e

(1)
(1)
(1)
(1)
(1)
(1>
(1)
(1)
(1)
(1)

037040
037042
037046
037052
037056
037060
037062
037070
0370764
037100

1046413
016602
012700
010066
012201
012202
012737
012704
012705
005003

(1)
(1)
(1)

037104
037106
037110

005602
161502
002402

(1)

(1)
(1)
(1)
(1)
(1)
(1)

(1)

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)

037102

037112
037114
037116
037120
037122
037124

037126

037132

037134

037136
037140

037142
037144
037146

037150
037152
037154
037156
037160
037162
037164
037166
037170
037172
037174
037176
037200
037202
037204

000002
037220
000002
000012
037150
037152

161401

005203
000772
062401
005502
062402
022525

052703
110320

005327

000000
001357
105020
104414
000207
145000
035632
160400
002765
113200
000230
041100
000017
103240
000001
023420

000000
001750

000000
000144

037136
1$:

000060

JSR

SUB

INC
BR
ADD
ADC
ADD
CMP

PC,a4$DR2D

(R4) ,R1

R3
2
(R4)+,R1
R2
(R4)+,R?
(RS)+. (R5)+

BIS

#'0.R3

DEC

(PC)+

MOVB

48:

#PNTR, = (SP)

LWORD
BNE
CLRB
RESREG
RTS
$TNPWR: 145000
35632
160400
2765
113200
230
041100
17
103240
1
23420

0
1750

0
144

R3, (RD)+

0
18

(RO)+

::POINTER TO LOW WORD OF BINARY NUMBER
::THE FIRST ADDRESS OF
;1S ON THE STACK

AS(CIZ

: :SAVE REGISTERS
1: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
; ;CLEAR PARTIAL

*SUBTRACT TEN POWER
::BR IF TEN POWER TO LARGE
SIADD 1 TO PARTIAL
1:LOOP
**RESTORE SUBTRACTED VALUE
::MOVE

TO NEXT TEN POWER

LISAVE

*CHANGE PARTIAL TO ASCII
*DONE?

;:BR IF NO
**TERMINATOR
**RESTORE REGISTERS
*RETURN
-1.0E09
::1.0€08
::1.0€07

::1.0E06
::1.0€05
::1.0E04
;:1.0€03
::1.0€02

CZNCCB NCV'1 _ DIAGNOSTIC
CZINC(B.PIN
31-AUG=79 11:
1
(1)

037206

000000

(1)

037210

000012

(1)
(1)

037214
037216

000001
000000

(1)

21(‘»??

037212

037220

MACY11

D 10
30G(1063)
31-AUG=79 13:10 PAGE 79-1
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
12

000014

$DECvL:

LSBTTL

;21,0601

1
;21,000
0
.BLKB
12.
JoRESERVE STORAGE FOR ASCIZ STRING
SINGLE LENGTH BINARY TO DECIMAL ASC]Z ROUTINE

(2)

QD)

'THXS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

)

*L&IEIGNED DECIMAL ASCIZ NUMBER.
i

ap)
2]';
0372346
037242

016637
0127646

000002
037264

(1)
(1)

037252
037256

062716
012666

000005
000002

(1)

o
o

1)
(1)
(1)

(1)

3223222323233 22222234322323223232332233232338232222382223222232222222222Z2223Z]

037246
037262

037264

004737

000207

000000

037264

$SR2D:

037040

000000

MOV

JSR
RETURN

PC,a#%S82D

;sPUT BINARY NUMBER ON THE STACK
.. CALL
;sADDRESS OF

THE 1ST ASCIZ CHAR.IS ON THE STAC(K

MOV
MOV

2(SP) 1%
#1s,-(SP)

;s SAVE BINARY NUMBER
:3SET POINTER

ADD
MOV

#5,(SP)
(SP)+,2(SP)

JoONLY ALLOW FIVE
JsPICKUP POINTER

JSR

1%:

NUMBER, - (SP)

RTS

.WORD

PC,3#3DR2D
PC

0,0

;. CALL OOUBLE LENGTH CONVERT
; RETURN

CHARA(CTERS

SEQ 0120

CINCCB

NCV11

C(INC(B.P1T

_ DIAGNOSTIC

31-AUG=79 11:
21

MACY11

.SBTTL

TRAP DECODER

3232202220223

E 10
PAGE 80

13:10

TRAP DECODER

e N N
e N N N N N W N N N N N N N W N N N N S
e e e W W N N N N N
N
v e N N
v "
N

T
T
o
N
N
e
N
S
W e T
T
T
T
e e T
I
e
N
I
.
N
N
P

31-AUG=79

2Rt

;*OF THE DESIRED ROUTINE.
;%GO TO THAT ROUTINE.
037270
037272
037276
037300
037302
037304
037310

037312
037314
037322

010046
016600
005740
111000
006300
016000
000200

011646
016666
000002

000002

$TRAP:

MOV
MOV
TST
MOVB
ASL
MOV
RTS

;. THIS

IS USE

037324

000004

000002

$TRAPZ2: MOV
MOV
RT!
.SBTTL

THE ‘‘TRAP'' INSTRUCTION
FOR THE STARTING ADDRESS

THEN USING THE ADDRESS OBTAINED IT WILL

RO,=(SP)
2(SP) RO
-(RO)
(RO) ,RO
RO
$TRPAD(RO)
,LRO
RO
TO HANDLE

SEQ 0121

iRt RRRRRRRRRRRRRRRltRlRll]

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
;*AND USE [T TO INDEX THROUGH THE TRAP TABLE

&wwuwhflw_‘w_wawwuwwwwwwuw_a._.n_l_l..a e d D d D i D e D e d D D AN\)

2???

30G(1063)

THE

;. SAVE RO
;.GET TRAP ADDRESS
. sBACKUP BY 2
;.GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
;G0 TO ROUTINE

''GETPRI'' MACRO

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

;;MOVE THE PC DOWN
;;MOVE THE PSW DOWN
;JRESTORE THE PSW

TRAP TABLE

s*THIS

TABLE

CONTAINS

THE

STARTING ADDRESSES OF

;

ROUT INE

$TRPAD:

.WORD
STYPE
$TYPOC
$TYPOS
$STYPON
$TYPDS

$TRAP?
;. CALL=TYPE
;.CALL=TYPCC
;,CALL=TYPOS
;. CALL=TYPON
. .CALL=TYPDS

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

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

;.CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

;*BY THE "'TRAP'' INSTRUCTION.

037324
037326
037330
037332
037334
037336

(037312
034374
034702
034656
034716
033664

037340

033056

$GTSWR

037342
037344
037346
037350
037352
037354

033006
033270
033410
033562
036412
036450

$CKSWR ;; CALL=CKSWR
$RDCHR
;. CALL=RDCHR
$RDLIN
;. CALL=RDLIN
$RDOCT
; ;CALL=RDOCT
$SAVREG ;;CALL=SAVREG
SRESREG ,;;CALL=RESREG

THE

ROUTINES

CALLED

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104471) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY
TRAP+13(104413) SAVE RO-R5 ROUTINE
TRAP+14(104414) RESTORE RO-RS5 ROUTINE

CINCCB NCVTY
CINC(B L1

237
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392

2393
2394
2395

2396
2397
2398
2399
24600
2401
24602
2403
24604
24605
2606
2«07
2408
2409
2410
2611
24612
2613
2414
2415
2616
2617
2418
2619
24620

2621
2422
2423

DIAGNQST IC
31-AUG=79 11:21

MACY11

037356

004737

065676

037362
037370
037372
037376
037400
037402
037410
037412

032777
001004
004537
000000
040442
032777

00010C

004537

040104

037422
037430
037432
037436
037440
037442
037450
037452
037456
037460

032777
001004
004537
000400
0460446
032777
001004
004537
002400
040450

000200

037462
037470
037472
037476
037500
037502
037510
037512
037516
037520

032777
001004
004537
001000
040452
032777
001004
004537
003000
060454

000400

037522
037530
037532
037536
037540
037542
037550
037552
037556
037560

032777
001004
004537
001400
040456
032777
001004
004537
003400
040460

001000

037562
03757C
037572
037600
037604
037606

032777
00101
052777

000020

141350

000001

142156

017737

142150

040462

037416
037420

001004

002000
0460444

105777
100375

TO D FIELD

FSITE:

141550

161530

141510

040104
000002

161470

3%:

040104

141450

141430

5%:

040104

141370

040104

142152

JTEST FOR CTRL

BIT

#5w06,aSWR

JTEST IF CAM 0 G-1

#5W00,a3SwR

; CONVERT
;CAMERA 0
:STORE RESULTS
JTEST IF CAM 0 G 2

CAMOG1

BIT

BNE
JSR
BIT10
CAMOG?

1%
RS,CONVRT

2%
RS,CONVRT

7%:

BIT

;TEST IF CAM 2 61

#S5W8,aSWR

BNE
JSR
BIT9

5%
RS, CONVRT

BI7
BNE
JSR

#SW2,aSWR
6%
RS, CONVRT

CAM2G1

BIT
BNE
JSR

#SW9,aSWR
7%
RS5,CONVRT

BIT9'RIT8
CAM3G1
BIT
BNE
JSR

#5W3,aSWR
108
RS, CONVRT

s CONVERT
s CAMERA 1
sSTORE RESULTS
JTEST

CAM 1

G=2

GAIN

; CONVERT
JCAMERA 1
JRESULTS

;s CONVERT
;CAMERA #2
JRESULTS
;TEST IfF CAM 2 G=2
J CONVERT

JGAIN = 2
JRESULTS

JTEST IF cAaM 3 G:CONVERT

;CAMERA #3

JRESULTS
STEST

CAM 3 G 2

s CONVERT

JGAIN = 2

JRESULTS

#SW4
, aSWK

JTEST IF JOYSTICK

BIS

#IT0,asFR

BPL
MOV

1%
aJoY,JoYR?

JASK FOR JOYSTICK
JWAIT FOR JOY DONE

BIT

BNE

11¢%:

; CONVERT

:GAIN = 2
JTEST IF CAM 1 G 1

BITI10'BIT9.BIT8
(AM3GZ
;JOYSTICK
10%:

C OR G

#SW7 ,aSWR
8I7
BNE
33
RS5,CONVRT
JSR
BIT8
CAM1G1
BIT
#Su01,aSwR
43
BNE
RS, CONVRT
JSR
BIT10!'BIT8
CAM1G2

;CAMERA #3

6%:

040104

000010

A TO D FIELD SITE AND ADJUSTMENT L0OP

BIV10!BIT9
CAM2G?

1414610

SEQ 0122

PC.CTRLCG

;CAMERA #¢

4%:

040104
000004

LSBTTL

. CAMERA #1

2%:

F 10

JSR

BNE
8SR

18:

13:10

PAGE 81
SITE AND ADJUSTMENT LOOP

;CAMERA #0

040104
00000°

31-AUG=79

30G(1063)

T1STR

CALRPT

aSFR

JSAVE

THE RESULT

NCV??
(INCCB
(INCCB P11

2425
2626
2627
2428
2429
2430
2431
2432
2433
2434
2635
2436
2437
2438
2439
2440
2641
2642

24643

2644
2445
2446
24647

2448
2449
2450
2451
2452
2453
2454
2455
2656
2457
2458
2459
2460
2461
2462
2463
2464

2465

2466

2467
2468
2469
2470
2471
2472
2473
2474
2475
24676
2477
2478
2479
2480

DIAGNQST IC

31-AUG=79 1M1

MACY11

31-AUG=79

30G(1063)

A TO D FIELD

13:10

6 10
PAGE 82

SITE AND ADJUSTMENT

SEQ 0123

LOOP

;NOW TEST IS TYPEOUT [S ENABLED
037614
037620
037622
037624
037630
037634
037636
037642
037644
037646
037652
03765¢

004537
000100
000405

037660
037664
037666
037670
037674
037700
037702
037706
037710
037712
037716
037722

004537
000200
000405

104401

040541
040360

037724
037730
037732
037734
037740
037744
037746
037752
037754
037756
037762
037766

004537
000400
000405

040062

104401

040577
040360

037770
037774
037776

004537
001000
000405

040062

104401

004537
060442
004537
000001
000405
104401

004537
040444

104401

004537
040646
004537
000002
000405
004537
040450

104401

004537

040452
004537
00004
000405

004537
040454

104401

004537

040062

CALRPT:

0460464
040360

0460062

1%:

2%:

040522
040360
040062

3%:

CAMOTX

;BR IF SET
JREPORT CAMERA #0

JSR

RS, CAMUNP

JREPORT

JSR
BITO
BR

RS5,(CKTSWR

;TEST BIT D

JSR

RS, CAMUNP

CAMOTW

JREPORT G-¢

JSR
BIT7
BR

RS.CKTSWR

JTEST BIT 7

5%:

7%:

10%:

;BR IF SET

(AMERA #1

JSR

RS, CAMUNP

;REPORT

JSR
BIT
BR

RS, CKTSWR

JTEST BIT 1

JSR

RS, CAMUNP

CAM1TW

JREPORT (AM 1 G=¢

JSR

RS.CKTSWR

JTEST BIT 8

JSR

CAM2TX

RS, CAMUNP

;BR IF SET
:REPORT CAMERA #/
;REPORT VALUES

JSR
BITZ2
BR

R5.,(KTSWR

;TEST BIT 2

JSR

RS, CAMUNP

JREPORT

JSR
BITO
BR

RS, (KTSWR

;TEST BIT 9

’$

;BR IF SET

BIT8

TYPE,

6%:

VALUES

CAM1TX

TYPE,

040635
040360
040062

TYPE,

040616
040360
040062

JTEST BIT 6

BIT6
BR

TYPE,

040560
040360
040062

RS,CKTSWR

TYPE,

040503
040360
040062

JSR

233

JREPORT VALUES

CAM2TW

(AMERA #2 G 2

JREPORT CAMERA #3

TYPE,
JSR

CAM3TX
RS, CAMUNP

JSR

RS.,C"TSWR

:TEST BIT

JSR

108
CAM3TW
RS, CAMUNP

JREPORT

JSR

R5,CKTSWR

JTEST BIT 4

BIT3
B8R
TYPE,

JREPORT

VLAUES

(AMERA #3 G ¢

(ZNCCB
NCVTY
CINCCB LPU

2481
2482
2483
2484
2485
2486

2487

2488
2489
2490
249
2492

DIAGNQSTIC

31-AUG=79 11:21

040042
040044
040050
040054
040056

004537
040462
000137

0460062
040066
040070
040076
040100
040102

032577
001005
032777
001001
005725
000205

000405
104401

MACY11

30G(1063)

31-AUG=79

B8R

PAGE 82-1

SEQ 0124

JOYTW
RS, CAMUNP

JMP

FSITE

JSR
JOYG!

11%:

161052

(KTSWR: BIT
BNE

BIT
BNE

1%:

118

TYPE,

037356

1641042

H 10

A TOD FIELD SITE AND ADJUSTMENT LOOP

040654
040360

020000

13:10

1ST
RTS

(R5)+,3SWR
1%
#SW13,aSwR
19
(RS)+
RS

JREPORT JOYSTI(K

JTEST IF INHIBIT THIS CAMERA
;BR [F YES
STEST INHIBIT TYPE-OUT
JBR IF YES
JBUMP EXIT POINTER
JEXIT

NCVIT
CZNC(B
CINCCB P11

2694
2495
2696
2497
2498
2499
2500
2501
2502
2503
2504
2505

040104
040110
040116
040124
040132
040140
040146
040152
0460154
040162
040166
040170
040172
040174

DIAGNQSTIC

31-AUG=79 11:21

012537
012777
013777
012777
012777
013777

040354
004000
040354
060000
177770
040356
000004
000001
161560

MACY11

30G(1063)
A

TO D FIELD

040355
177774
000060
032716
032623

100000

1641640
141622

4$:

110
PAGE 83

SEQ 0125

AND ADJUSTMENT LOOP

(RS)+,11%

THEM

s SAVE CAMERA (HANNEL
;CLEAR THE DEVICE

MOV
MOV

#CLRALL ,@SFR
118,aCSR

161612
141610

MOV
MOV
MOV

141564

BIS
1ST8

#-10,awCR
INOUTZ.aSFR
#6. RO
R1
#8170,aCSR
@CSR

DEC
BNE

R
1%

;DELAY

RO
1%

JFINISHED OUT OF RANGE

141622

MOV

#8UF
O, 3BAR

CLR

BM]

140726

#SW13,aSWR

JTEST

2177774 .R0

JMASK OFF

5%
11$+1,R0

BEQ

;LOAD POINTER
;CLEAR RESULT

MOV
MOVB

#4108
(RO)+ ,R2

;LOAD COUNTER
;GET LOW BYTE

BIC
BIC

#177600.R2
#177400.R1

ADD
DEC
BNE
ASR

R2.R3
10$
2$
R3

CLR

(RO)+.R"

MOVB
ADD

R1,R&

ASR

R4 ,108
10%$+1
R3,108+1
108,a3(RS)+

RTS

0
0

JSAVE

;CLEAR HIGH BYTE
:LOAD HIGH BYTE
;SAVE THE RESULT

;0= USE (USTOMER Z PULSES,

TESTZ

AMUNP: MOV
MOVB

JUPDATE RESULT

;UPDATE RESULT
JFINISHED ?

R4
R4

MOV
C(LRB
MOVB
MOV

:SUBROUTINE

;GET HIGH BYTE

ASR
ASR

040440

EXTRA BITS

RO,OUTCHN

(LR

INOUTZ:

TYPEOUT

#8UF 0RO

B8R

10% :
11%:

JBR IF INHIBIT
JGET CAMERA #

TIMER

MOV

6$:

040352

INHIBIT

HALT

#60.RO

TYPE,

BIT

040352
040353
040353

G OR

JMAKE INTO ASCII
s INSERT INTO ASCII ERROR MESSAGE
OUTRNG
;TELL OPERATOR
#SW15,aSwR
JTEST IF HALT ON NO CONVERSION ERROR
63
;;BR IF CLEARED
;NO CONVERT FLAG - INPUT VOLTAGE WAS OUT OF RANGE OR NO '‘Z'' PULSES

5%:

040352

VOLTAGE

IDLE

BIT

MOVB

2% :

;JWAIT FOR

FOR CTRL

ADD

040352

RANGE

JENABLE THE DEVICE

;JTEST

BNE
MOVB

3¢

;FOR OUT OF

PC,CTRLCG

BIC
140672

JSELECT CAMERA AND GAIN
;LOAD BUS ADDRESS
JLOAD WORD COUNT
JSET Z INPUTS I+ ENABLED
;LOAD COUNTER

JSR

DEC
BNE

177400
177400

040436
040437

13:10

- SUBROUTINE TO TAKE 8 CONVERSIONS AND AVERAGE FOUR OF

060000
000004

SITE

CONVRT: MOV

045676
020000

31-AUG=79

TO TYPE

THE CAMERA MESSAGE

a3(RS)+, 108
108+1,11%

;GET

1= MAINT 7 PULSES

RESULT

CINCCB NCVTY
CZNCCB P11

040372

DIAGNOSTIC

31-AUG=79 11:21
105037
105037

040437
040441

104401

001
040672
040440

013746
104403
003

013746

104403
003
000240

MACY1T

30G(1063)

31-AUG-79

13:10

J 10
PAGE 83-1

SEQ 0126

A TO D FIELD SITE AND ADJUSTMENT LOOP

CLRB
CLRS
MOV
TYPOS

040436

BYTE

JTYPE

.BYTE

;TYPE 3 DIGIT NUMBER

JAND

TYPE,
MOV
TYPOS

00?

000240

2581
2582

2583
2584
2585
2586

2587
2588

2589
2590

012
030115
020061

043440
000075
015
040503
036507
000
015
103
043440
000075
015
040503
036507
000
015

031075

030460
054040

012
030115
020061

020062
036530

103

043440

CAMOTX:

.BYTE
.ASCIZ

CAMOTW:

.BYTE

ASCIZ

6-2 X-=/

CAMITX:

.BYTE
LASCIZ

6=1

CAMITW:

.BYTE
.ASCIZ

CAM2TX:

.BYTE
LASCIZ

CAM2TW:

.BYTE
LASCIZ

CAM3ITX:

.BYTE
LASCIZ

6=1

(AM3TyW:

.BYTE
LASCIZ

6=2 X-/

:
CAMOGT
CAMOGZ:
CAM1G]:
CAM1G2:
CAM2GT:
CAM2GZ:
(AM3GT.
CAM3G2:
JOYG1:

015
040503
036507
000
015
103
063440
000075
015
040503
036507
000
015

012
046501

020060
036530

031075

030660
054040

012
030115
020061

020061
036530

012

046501

012
046501

031075

031060
054040

012
030115
020061

020063
036530

012

046501

031075

031460
054040

JEXIT

10%:
11%:

[elololeolalslalelalelo]

000240
000205
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

G-1

X=/

6=1

X=/

X-/

3 DIGIT

NUMBER

TRALING ASCII

NCVTI
CZNC(CB
CZNCCB P11

25N
2592
2593

2594
2595

2596

2597

2598
2599
2600

2601

DIAGNQSTIC

31-AUG=79 11: 21

040652
040654
040654
040656
040664
040672
040676
040704
040712
040720
040726
040727
040734
040741
040744
040745
040752
040760
040761
040766
040774
041002

000075
015

047512
045503
054440
005015
051105
046101
040505
072
040
047111
061

2603

RASRRSEER XSRESN

b = O

d
b ed

b D =

b ed
d

b b be

d
d
—

2610

N —
on

b e

SPNOMNMNIN)

2609

d e

2607
2608

2606

0064
005015
046102
043516
046120
000
015
047505

020113

31-AUG-79

13:10

K 10
PAGE 82-2

_BYTE

LASCIZ

/7JOYSTICK X=/

043106
044524
047111
054524

G1B:

GAIN:

LASCIZ

7/ Y=/

020040
036440

040507

GAINX:

LASCII

040

040
040

GAIN1:

.BYTE

61,40,40,0

026455
041123

000040
005015

DASH:

ASCIZ

.ASCIZ

7/ LSB/<15><12>

045523
020104
024105
000
025052
0251722

050111
052123
024523

SKPMSG:

.ASCIZ

7/ SKIPPED STATE(S)/<15><12>

051105
006452

ERMSG:

.ASCIZ

/ «=ERROR**/<15><12>

047440

OKMSG:

.ASCIZ

047522
052101
005015

NARMSG:

.ASCIZ

# NARROW STATE(S)#<15><12>

044527
040524
006451
052101
044527
000012
041123
046511
020124
000
046105
020105
040522
000012
047522
051501
041440
052105

042504
042526
000012
026505
052104

WIDMSG:

.ASCIZ

# WIDE STATE(S)#<15><12>

STATE:

L.ASCIZ

/STATE== WIDTH/<15><12>

046440
051525
000

LINEA:

_ASCIZ

/ LSB MAXIMUS AT /

SLASH:
MSG21:

.ASCIZ
.ASCIZ

#/#
/RELATIVE ACCURACY:/<15><12>

020115

COMP :

JASCIZ

<15><12>/ROM BLASTING COMPLETED/

052012
052125
020115
042524
044103
053523

046511
043040
046102

TIMEO:

L.ASCII

<15><12>/TIMEOUT FROM BLASTER

044524
000075

052101
041501
054503

044524
046517
042105

SEQ 0127

A TO D FIELD SITE AND ADJUSTMENT LOOP

JOYTX:

05153
054040
000075
044504
047105
046040
044522

052123
024523

RRRRRRRRRRRRRRRRRRRR

2605

30G(1063)

JOYTW:

012

2602

2604

MACY11

LSBMSG:

JASCIT

15.12

<15><12>/DIFFERENTIAL LINEARITY: /

GAIN =/

/== /

0K/<15><12>

CHECK SWITCHES ON BLASTER/

CZNCCB NCVIT
CZNCCB P11

NBASRRSE N—‘—‘O\I§
N
W) = 2 oW
nHEOoONSCONSNONSOO
SN A = — = o
onN HSONWO N

)

047122
044501
020132
051505
047506
037123

b e
b

FIELDI:

.BYTE
.ASCiZ

/INTERNAL

051105
043117
051440
020123

AVRGO:

LASCIZ

<15><12>/AVERAGE OF

007
042105
051117
047511
047125
047506

UNFIX:

.BYTE
.ASCIZ

/EXCEEDED

007
046102

ABORTB:

.BYTE
LASCI1

/ROM BLASTING ABORTED/

.BYTE

15,12.7.0

SGNVL1:

53.40
60,60,56,60,45,15,12,0

043516
052122

15,12

15,12,7

MAINT.

Z PULSES <Y FOR YES>

128 STATES -

15,12.7

020040

:
SGNVAL

056
015

PERTXT:

LASCII
.BYTE
.BYTE

000

RTN:

.BYTE

15,12.0.0

053517
052111

BELMSG:

.ASCIZ

/ BELOW LIMIT/<15><12>

046522
040524
000012
042526
052111

NORMSG:

.ASCIZ

/ NORMAL STATES/<15><12>

ABOMSG:

LASCIZ

/ ABOVE LIMIT/<15><12>

051523
000

PASMSG:

LASCI1Z

/ PASSED/<15><12>

FAIMSG:

LASCIZ

/ FAILED/<15><12>

040
042105

005015

046111
000

CORRECTION COUNTER FOR /

026455

b
h e

2628

2627

<15><12>/ OR REPLACE ROM [N BLASTER/<15><12>

007

2626

LASCIZ

012

2625

047440
051501

012
042524
046440
020056
051514
020131
042531

SEQ 0128

A TO D FIELD SITE AND ADJUSTMENT LOOP

051117
040514
046517
046102
006522

2624

L 10
PAGE 83-3

~
N

2623

13:10

W)
= =

2620
2621
2622

31-AUG-79

NOMWnW

2 —
b
b ok
o
b
D
b ed md
b
b
d o
b

2619

b md

b oD

2617
2618

—_ bbb
b d
—

2616

) =

2615

MACY11 30G(1063)

051505
046102
122
020012
050105
051040
020116
042524

000040
053101
020105
034062
042524
000
012
042503
041440
052103
047503
020122
000
012
020115
044524
047502

\ruwa v

2614

044103
020116
042524
015
051040
042503
044440

(%)

2612
2613

31-AUG-79 11:21

041264
041272
041300

RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRERRRRRRRRERRR

2611

DIAGNOSTIC

==/

041676
000000
000000
00C000
000000
000000
042132
027340
000000
000000

041744

30G6(1063)

31-AUG=79

A T0D FIELD SITE

.EVEN
LSBAVG:
LSBSVQ:
LSBSVR:
LSBSVW:
DIFEX1:
: ROMVAL
ROMPNT

13:10

M 10

PAGE 83-4

AND ADJUSTMENT LOOP

[ lolelele]

2629
2630
2631
2632
2633
2634
2635

MACY11

NOMIAL:

12000.

;THESE LOC.'S
:
AVGVAL

DIFERR:

BELOW:
ABOVE:
:
NORMAL
NARROW:
NARA:
NARR:
WIDA:
WIDR:
DIF:
ouT:
FIRST:

eolelololelolalelelolole
]

DIAGNQOST IC
31-AUG-79 11: 21

CZNCCB
CINC(B.

JAVERAGE COUNT
CLEARED BY DIFLIN

SEQ 0129

CINCCB NCV1T
CZNCCB P11

DIAGNOSTIC

T1-AUG=79 11:21

MACY11

2653
2654
2655
2656
2657
2658

30G(1063)

31-AUG=79

ATODF TIELD

13:10

N 10

PAGE 84

:KEYBOARD CONVERSATION TO THE BLASTER
sAPPLY POWER TO BLASTER AND DEPRESS

JALL INDICATORS SHOULD LIGHT
;TYPE

105777
100363

;TYPE

D00/37

sTHIS OUTPUTS THE RAM (ONTENTS

137712

042130

005737
001413
012177
005337
001353
012700
010001
005037
000745

042130

105777
100342
017702
042702
02702
001413
022702
001412
020227
103402
042702
010277
000720
000137
012777
012777
000707
000000

137104

LOOPD:

BTALK:

042130

;THIS READS

137100

000003

000177

JBLASTER INPUTM

MOV
INC

aDLIBD, (RO) +
BLICNT

;SAVE THE CHARACTER
;UPDATE COUNTER

TSTB
8PL
TST
BEQ

a$TPS
LOOPC

BLICNT
LOOPE

;PRINTER READY ?
;BR IF NOT

DEC
BNE

BLICNT
LOOPC

(R1)+,a8TPB

JPRINT THE C(HAR.

MOV
CLR

RO,R1
BLICNT

TSTB
BPL

a$TKS
LOOPC

MOV

LOOPD

#8UF0,RO

;NO

000040
137600

1%:

002646
000033
000134

2%:

137564
137024

:
LOOPF

BLICNT:

@$TKB,R2
#177600,R2
#3.R2
2%
#177 ,R2

;ANY CHARACTERS
;JBR IF NOT

;sBR

IF MORE DATA

TYPED

;KEYBOARD INPUT
;BR IF NOT

;READ CHAR
;JMASK THE DATA

P
BLO
BIC
MOV

R2.#140
13
#40,R2
RC,aDLODB

JMP
MOV

RBEGO
#33,aDLODB

;JUMP TO RESTART
JLOAD ESC <CANCLE>

MOV
8R

LOOPF

LOOPC

#'\,a8TPB
LOOPC

RAM

TO THE TTY

TO THE BUTTON MODE

JTEST FOR CTRL €
JBR IF CTRL C
;TEST FOR RUBOUT
;BR IF ESC
;TEST IF LOWER CASE
;BR IF NOT
sMAKE UPPER CASE
;LOAD BLASTER DATA OUT

BEQ

000140

THE

aDLICSR

MOV
BIC
CMP
BEQ
CMP

177600

PROM INTO

;THIS EXITS COMPUTER CONTROL

B8R
LOOP(
RE
IS
NO
BLASTER DATA TO BE
HE
;COME

LOOPE:

THE

TSTB

BPL
NOP
NOP
NOP

MOV

137140
042130

060000

TYPE "ESC''/''ALT''
KEYS TO ABORT CURRNET COMMAND

s THIS SETS OCTAL COMMAND MODE
;THIS SET OCTAL INPUT/OUTPUT
;THIS SIZES THE PROM -- 0037/8 IS REPORTED BY THE BLASTER

LOOPC:

137152

"' (HARACTER

SOME WILL ECHO THE CR AND OTHERS

KF2/2
FM30
SP[0037/8]

;TYPE

000240
000240
000240
017720
005237

THE BLASTER SHOULD SEND A

;TYPE
JTYPE
;TYPE
JTYPE

137724

SELECT TEST ‘T

I/0 AND EXECUTE BUTTONS

THE COMMANDS FOLLOWED BY A "'CR'',

sWILL NOT

105777
100007

SEQ 0130

SITE AND ADJUSTMENT LOOP

NCV11
CINC(8
CZNC(B P11

DIAGNOSTIC

31-AUG=79 11: 21

2705
2706
2707

MACY11

30G(1063)
A

31-AUG=79

TO D FIELD

SITE

13:10

8 1
PAGE 85

SEQ 0131

AND ADJUSTMENT LOOP

;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

2710

200
200

.BYTE

200,200,200,200,200,200,200,200 JGAIN = 2 VALUE

271

200
200

.BYTE

200,200,200,200,200,200.200,200

2708

200
200

2709

2712
2713
2714
2715
2716

;AG17 CORRECTION PRAM VALUES

376
376
376
376
376
376
376
376
376

2717
2718

2719

376

2720
2721
2722
2723
2724

2727

042242
042245
042250
042252
042255
042260
042262
042265
042270

2726

376
376
376
376
376
376
376
376
376
376
376
376

JROMVAL MUST BE

IN COMPLEMENTED AND REVERSED ORDFR <LSB=MSB>

RAMVAL:

.3YTE

376.376,376,376,376,376,376,376 JGAIN = '

376
376

.BYTE

376,376,376,376,376,376,376,376

376
376

.BYTE

376,376,376,376,376,376,376,376 JGAIN = 2 VALUE

376
376

BYTE

376,376,376,376,376,376,376,376

376
376

VALUE

:MB036 PROGRAM PROM VALUES
—_ AN =)
B
. W YT
(o W
NV, T W
RV}

2725

ROMVAL:

.BYTE

215,244,116,144,215,2446,116,144 ;M8036 PROGRAM PROM

116

.BYTE

215,264,116,144,215,244,116,144

314
377

.BYTE

106,144,314,304,377,377,377,377

377
377

BYTE

377,377 ,377,377,377,377,377,377

244
215

244

215

244

144
264
144
144

377
377
377
377
377

116

PROROM:

NCVTT
CZNCCB
CZNCCB P

2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2762
2743
2764
2745
2746
2747
2748
2749
2750
2751

2752
2753
2754
2755

2756
2757

2758
2759

2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771

2772
2773
2774

042272
042276
042302
042310
062314
042316

DIAGNOSTIC

31-AUG-79 11:21
104401

MACY11

137366

012700
112720

000036
046006

046002

000061

040741
041710

000062

042153

042446

042620

043720

043360
042616

JSR

RS,RDBLST

JSR

RS,RDBLST

JTELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>

#ROMVAL ,RO

¢GET POINTER
;LOAD THE BUFFER

:PRIME

1%;

MOVB

MOV

CMP
BNE
MOV
JSR
G1LIMO
GILIMI
MOVB
MOV
JSR

MOV
JSR
G2L IMO
G2LIM
MOVB
MOV

046002

040741
041710
042616
041706
046004

PRIMS

FMO
THE MEMORY RAM BUFFER

4%:
5%

6% :

8% :

#200, (RO) +

#ROMVAL +40,RO
18
#36.PRIME1
RS,LIMITS

¢TEST

DONE

;BR IF BUFFER NOT PRIMED
sLOAD GAIN AND RESOL. VALUES
sLOAD DIFLIN ERROR LIMIT VALUES

:G1 LIMIT - USERS
;G LIMIT - OPTION CHECKOUT

#'1.GAIN1
;LOAD GAIN TYPEOUT VALUE
#ROMVAL +1,ROMPNT
.LOAD RAM POINTER
PC.4$

#2036 ,PRIME1
RS.LIMITS

;TEST

THAT GAIN

;LOAD GAIN AND RESOL. VALUES
;LOAD DIFLIN ERROR LIMIT VALUES

;G2 LIMIT - USERS
;G2 LIMIT - OPTION CHECKOUT

JSR

#'2,GAIN?
.LOAD GAIN TYPEOUT VALUE
#ROMVAL
+21, ROMPNT
.LOAD RAM POINTER
PC,4$
;TEST GAIN OF 2

MOV
MOV
MOV

#3,100%
#1.DIFEX
#6$.DIFEXO

DIFLNO

DEC
BNE

1008
5%

JSR

041716

041447
040727
041513
002646

#8170,3DLICSR
RS.RDB_ST

KFO

042132
000200
042172

042133
042446
002036
046006

BIC
JSR

ESCP

043062

SEQ 0132

;TELL OPERATOR ABOUT THE C(ABLE
JAND SWITCHES
JENSURE INIT. ROM CONTROL LINE
sTELL THE BLASTER TO INITILIZE
JREALLY WE ARE WAITING FOR THE OPERATOR
;TELL THE BLASTER THE KEYBOARD INPUT MODE

TYPE.

043062
052571

13:10
PAGE 86
A TO D FIELD SITE AND ADJUSTMENT LOOP

31-AUG =79

:BLASTER SECTION
PRIMO
TYPE,
BLAST:

050762

051374
000001
043062

30G(1063)

JSR

108

PC., ZAPRAM

PC,ADJF
IX

TST

DIFERR

TYPE,
TYPE.
TYPE.

UNFIX
GAINX
ABORIB

BEQ

JMP
RTS

RBE GO
PC

;LOAD LOOP COUNTER
JLOAD DIFLIN EXIT FLAG
JLOAD DIFLIN EXIT RETURN
JENSURE BLASTER RAM HAS BEEN LOADED WITH
;THE 'RAMVAL'' VALUE
JRUN 'DIFLIN

;ADJUST AND FIX THE CORRECTION WEIGHTS
JHAS THIS SECTION BEEN EXECITED N TIMES
;BR IF NOT
JTEST

ERROR OCCURRED?

;BR IF NOT
;TELL THE OPERATOR
JABOUT IT
;TELL OPER. THE BLASTING IS ABORTED
;RESTART

JEXIT

NCV1
CZINCCB
CINC(B P

2776
2777
2778
2779
2780
2781
2782

042542
042546
042550
042554
042556

DIAGNQOSTIC

31-AUG-79 11:21

004537

104401
104411

051765

104401

061170
002646

012600
000137
000000
012703
012700

v
o
ot

JSR
MO
JSR

JSR
PGO
INC
JSR

SEQ 0133

[S NOW CORRECT =~ BLAST THE BLANK ROM
R5,RDBLST
JTELL THE BLASTER TO (OMP.

100%:

JTELL

THE BLASTER

R5,RDBLST

sTELL

THE BLASTER TO BLAST

NOEXIT

;SET FLAG TO EXIT WITHOUT RECPT OF '>'" (HAR FROM BLASTER

;gPE,
LIN

PRIM1

TYPE,

come

JMP

THE DATA

R5,RDBLST

RS,RDBLST

MOV

sTELL

;TELL

(SP)+,R0O

RBE GO

OPERATOR

TO CHECK-SUM DATA
THE ROM

THE BLASTER TO RETURN TO KEYPAD MODE
TO REMOYF

RAM CABLE AND

INSTERT ROM INTO AO17

;CLEAN STAC(»
;COMPLETED

;SUBROUTINE TO CONVERT THE MEMORY RAM VALUE INTO RAM MEMORY VALUE
JAPRAM: MQV
#RAMVAL ,R3
JLOAD OUTPUT POINTER

042172
042132

1%:

005002
006001
006102
006001
006102
006001
006102
006001
006102
006001
006102
006001
006102
006001

MOV
MOVR
COMB
CLR

#ROMVAL RO
(RO) +.,R1
R1
R2

;LOAD INPUT POINTER
;GET A BYTE
;INVERT VALUE
;CLEAR RESULT

ROL
ROR
ROL

RS
R1
R2

;MOVE CARRY INTO BIT 0
;MOVE INTO CARRY BIT
:MOVE CARRY INTO BIT O

ROR

;MOVE

INTO CARRY BIT

:MOVE

INTO CARRY BIT

;MOVE

INTO CARRY BIT

R1
R2
R1

;MOVE
;MOVE
;MOVE

INTO CARRY BIT
CARRY INTO BIT 0
INTO CARRY BIT

ROL
ROR
ROL
ROR
ROL

RC
R1
R2
R1
RZ

ROI

RZ2

ROR

ROR
ROL
ROR

:MOVE CARRY INTQO
;MOVE INTO CARRY
;MOVE CARRY INTO
JMCVE INTO CARRY
:MOVE CARRY INTO

BIT O
BIT
BIT O
BIT
BIT O

:MOVE CARRY INTO BIT O

ROL
R2
;MOVE CARRY INTO BIT O
MOVR
R2,(R3)+
:SAVE OUTPUT BYTE
CMP
RO ,#ROMVAL +40
JTEST IF END
BNE
1%
;BR IF NOT
;SUBROUTINE TO LOAD MEMORY RAM INTO RAM MEMORY
éifi A
RS, CONROM
;CONVERT "ROMVAL'' TABLE

042172
043244
000001
043062

D N
PAGE 87

ZP0
;INFORM THE OPERATOR ABOUT THE BLASTER ROM

Nt Nl

D ad -

—d
e
e

N PN PN
NN

d —d
d

PN PN

d
wd

NN PN

d cd
d

112001
105101

RAM DATA

cco

043062

053034

—

10%:

043242
043062

13:10

A TO D FIELD SITE AND ADJUSTMENT LOOP
;THE

043062

31-AUG-79

30G(1063)

043062

2783

PN PN

MACY11

136754

BIS

5?8

VAL

#817T0,aDLICSR

INTO BLASTER FORMAT

JENABLE RAM MEMORY TO BE LOADED

RS ,RDBLST

JTELL

THE BLASTER THE NEW RAM DATA

043062

ggg

RS ,RDBLST

JTELL

THE BLASTER TO CHECKSUM THE DATA

043062

ggg

RS ,RDBLST

JTELL

THE BLASTER TO PROGRAM THE

B8IC

#MIT0,aDLICSR

JRE-ENTER EMMULATE MODE

000001

136724

RTS

JEXIT

RAM-PAK

CINCCB
NCVI
(ZNCCB P11

DIAGNQSTIC

21
31-AUG=-79 11:

MACY11

30G(1063)
31-AUG=79 13:10 PAGE 88
A TO D FIELD SITE AND ADJUSTMENT LOOP

SEQ 0134

:BLASTING THE PROGRAM PROM (MB036)
104401

PRIM3
#BIT0,8DLICSR
RS5.RDBLST

;INFORM THE OPERATOR
;ENSURE ROM MUDE
JTELL THE BLASTER TO INITILIZE

JES

RS ,RDBLST

JTELL

THE BLASTER THE KEYBOARD [NPUT MODE

gag

R5,RDBLST

JTELL

THE BLASTER THE DATA FORMAT <ASCII-OCTAL>

043244

gggROH

RS, CONROM

;CONVERT THE 'PROROM'' TABLE

043062

g?g

R5,RDBLST

JTELL

THE BLASTER THE PROM DATA

043062

ggg

RS ,RDBLST

;TELL

THE BLASTER TO (CHECKSUM THE DATA

043062

ggg

R5,RDBLST

JTELL

THE BLASTER TO BLAST

043242
043062

INC
%gg

NOEXIT

JSET FLAG TO EXIT WITHOUT RECPT OF '>'' FROM BLASTER

041170
002646

TYPE,

comp

;INFORM

051536
000001
043062
043062

043062

136710

PBLAST: TYPE,
BIC
gg?P
K

JMP

RS.,RDBLST
RBEGO

INTO BLASTER FORMAT

THE PROM

;JTELL THE BLASTER TO RETURN TO kEYPAD MODE
THE

OPERATOR

[T'S DONE

CINCCB NCVIM
DlAGhOSTI% 2
CINCCB.PI
31-AUG=79 1

MACY11 30G6(1063)
31-AUG-79 13:10 PAGE 89
A TO D FIELD SITE AND ADJUSTMENT LOOP

2843

2844
2845
2846
2847

0463062

:COME THERE TO OUTPUT A MESSAGE TO THE BLASTER
SEXIT ONLY wHEN THE BLASTER HAS ECHOED AN 'S’
*REPORT AN ERROR UPON TIMEOUT UNLESS 'NOEXIT'' IS NON-ZERO

010046

2848 043064 012500
2849 043066 012737 000012 043240
2850 0643076 111037 043232
2851 043100 017737 136574
2852

043106

105777

136570

854
2855

043114

043120

105737
001406

043232

2858

043130

113777

043232

2860

043142

100415

2862

043150 001372

2853

043112

100375

2856 043122 112037 043232
2857 043126 001403
2859
2861

2863

2864

2865

043136

2868
2869
2870
2871
2872

136534

043144

005337

043236

043152

005337

043240

043160

005737

043242

104401

041221

043156

2866 063164

2867

105777

063166

043172
043176
0463204
063212

043220

2873 043222

2874
Sg;g

063224
043230

2877
2878
2879
2830
2881

043232
043234
043236
043240
043242

001367

001016

043234

RDBLST: MOV

MOV
MOV

1$:

5%:

005037
000205
000000
000000
000000
000000
000000

063242

TSTB

108
118
178
138
NOEXIT:

“LOAD A CHAR
“FALSE READ TO CLEAR READY

108
2$

STEST IF FINISHED ?

108 .,3DL00R

;OUTPUT THE CHARACTER

(RO)+,10$
23
@DLICSR

(A 3

BNE

128

:GET A CHAR.
‘BR IF TERM

SWAIT FOR [NPUT

:BR IF INPUT
‘DELAY

138

:DELAY

TST

NOEXIT

JTEST IF EXIT IS ALLOWED WITHOUT *5'"

TYPE,

TIMEO

BNE

012600

001332

MOVB

DEC

4$:

*WAIT FOR OUTPUT READY

DEC

000137 002646
017737 136476 043234
042737 177600 043234
022737 000076 043234

@DLOCSR

BPL

MOVB
BEQ
2s:

‘GET ARG.
*LOAD DELAY FOR ERROR COUNTER

(R0) , 108
a0LIBD, 118

TSTB

:SAVE RO

(R§)+,RO
#10..13s

MOVB
MOV

TSTB
BEQ

136546

RO,~(SP)

“BR IF YES

JMP
MOV
BIC
cMP

RBEGO
abLIBD,11$
#177600.11%
#'>,118

;READ (HAR
*MASK OFF BITS
“TEST FOR »

MOV

(SP)+,R0

*RESTORE RO

BNE

CLR
RTS
0
0
0
0
0

NOEX]T
RS

:TRY NEXT (HAR.
SEXIT

SEQ 0135

AN NN NN
-

- el b

DIAGNOST IC
31-AUG-79 1M1

CINCCB
CZNCCB.

004737

MACY11 30G(1063)

13:10

G 11
PAGE 90

SEQ 0136

A TO D FIELD SITE AND ADJUSTMENT LOOP

;CONVERT ROM DATA INTO PROM BLASTER FORMAT
#D]DATA+3,
RO
JLOAD RESULT POINTER
+ R1
(RS)
JLOAD INITIAL VALUE POINTER

052612

043322
000040

31 -AUG-79

CONROM: MOV

R1.10§
#0108
(R15 ,R2

043322

043344

PC,SHUF6
#7,RO
R1,108

SS
;GET A BYTE OF DAIA
;CONVERT IT TO AS(CII
GET SAME BYTE AGAIN
;CONVERT 2ND DIGIT
;GET MSD
;CONVERT [T
;JPDATE RESULT POINTER
JTEST IF DONE

JEXIT

043336
043324
000007
043322

10%:

;COPY THE START
JMAKE THE END ADD

;ROTATE THE DATA RIGHT AND MAKE ASCII C(HARA(TER
177477

177770
000060

SHUF6:

BIC

SHUF3:

ASR

SHUFO:

BIC

:177477.R2

JMASK OFF

BITS

;MASK OFF BITS
JMAKE ASCII
;LOAD RESULT BYTE
JEXIT

CINCCB NCVIN
CINCCB. P11

DIAGNOSTIC
31-AUG- 79 11:21

062036
041710
000017

MACY11 30G(1063)

31-AUG=79

PAGE 91

SEQ 0137

; SUBROUTINE TO ADJUST THE LSB VALUES
#BUF 1436 RO
;GET BUFFER POINTER

ADJFIX: MOV

158

MOV
MOV
ADD
MOV
ADD
SUB
SUB
MOV
MOV
MOV
JSR
MOV
MOV

ROMPN T.R?
R2 R4
27 R4
(ROS+,R1
(RO) ,R1
AVGVAL .R1
AVGVAL .R1
R1.LSBSVW
R1.=(SP)
#316,-(5P)
PC.SMULT
(SP)+,100$
(SP)+.101$

MOV
MOV

1008 ,~(SP)
1018 ,-(SP}

MOV

JSR
8v(

041702
041700

H 1

A TO D FIELD SITE AND ADJUSTMENT LOOP

041714
041714
041704

012637
012637

13:10

1%:

HALT
HALT
NOP
NOP
MOV
MOV

;GET ROM POINTER
;MAKE END VALUE

JGET LSB (17) M-1
JADD LSB (00) M

;SUB 2 LSB AVG.

;SAVE FOR LATER USAGE

;SAVE ON STA(K

JMULTI BY 316 (8)
;SAVE LSW

. SAVE MSwW

AVGVAL ,=(SP)

PC.$DIV
13

;BR IF NO ERROR

sMATH ERROR
; VALUE OUT OF RANGE

(SP)+,LSBSVR

(SP)+,LSBSVQ

;SAVE

INTGR.

REMAINDER

;SAVE QUOTIENT

;NOW ADD THE QUOTIENT TO THE MEMORY RAM VALUE
111203

000240
042703
163703
110322

MOVB

(R2) ,R3

JGET CURRENT MEMORY RAM VA(LUE

BIC
suB
MOVB

#177400,R3
LSBSVQ,R3
R3,(R2)+

;CLEAR OFF UPPER BITS
;ADD THE QUOTIENT
JRELOAD MEMORY RAM VALUE

NOP

177400
041700

;NOW UPDATE 'M'' VALUE POINTER
062700
011001
063701

000036
041704

ADD
MOV

#36,R0
(RO) ,R1

JUPDATE POINTER
;GET VALUE

MOV
MP
BNE

R1, (RO)
R2.RG
108

JRESTORE FOR NEXT USAGE
JTEST WHEN FINISHED

;BR UNTIL DONE

JEXIT

ADD

RTS

100%:
101%:

0
0

LSBSVW,
R

;CORRECT THt VALUE

(#10)

CINCCB
NCVIT
CINC(B P

043546
043552

DIAGNQSTIC

31-AUG=79 11:21

005037
112737
105737
001007
104401

050762
000036
046006

046002

043632

046004

000062
002036
046006

040741
046002

043700
001134

046004

112737
012737
004537
046132
046152
012737
105737
001002
104407

1ST8

$AUTOB

TYPE,
TST

GAIN
DIFLIN

TYPE,

PRIMO

MOV
BR
MOVB

#18,DIFEXO0
DIFLNO
#'2.GAINI

BMI]
108:

18%:

MOV
JSR
GILIMO
G1LIMI

MOV
JSR
G2L IMO
GoL IM1
MOV
TSTR

BNE

040676

11¢:

030100
002646

BNE
JMP
IMP

041714

DIFLNO: MOV

043746

012700
005020
022700
001374
012700
005020
022700
001374

043750

004737

045630

043754
043762

012777
012777

000000
000025

043770

004737
022702
001773

045474
000006

044014

017737

135724

044022
044026

004737
022702

043720

043732
043740

043774

044000
044002

105077
152777

177777

050022

DIFLNX:

1$:

V64000

045474
000377

cMP

CLR
TMP

BNE

060000

135734
000002

:DIFLIN ROUTINE

041746

13:10

I 11
PAGE 92

S£Q 0138

A TO O FIELD SITE AND ADJUSTMENT LOOP

TYPE,
BR

000410
022737
007002
000137
000137

31-AUG-79

BNE

012737
004537
012737
000433

NOONSA WO

040741

. DIFFERENTIAL LINEAR]ITY
DIFEX]
DIFLIN: CLR
#'1,GAINY
MOVB

005737

046072
046112

30G(1063)

040676
043546

100402
104401

888 ggLee8ed

041706
000061
001134

MACY11

108

#36,PRIME
RS,LIMITS

;LOAD RESOLUTION AND GAIN
*LOAD DIFLIN TOLERANCE
*G1 USER LIMIT
:G1

OPTION AREA

*LOAD RETURN ADDRESS

#2% ,DIFEXO
1%

‘BR IF

$AUTOB
GAIN
DIFLNO

"RUNNING UNDER MONITOR

YES

#=1,RUNDIF

JENTER VIA "¥'' SEIECTION ?

#AVGVAL ,RO

;LOAD CLEARING POINTER

3$
$EOP
RBE GO

(RO)
+
#F IRST+2,RO
DIFLNX

#8UF0,RO

(MP

#8UF 2 RO

BNE

JTEST BIT 15
;DONT TELL OPER. ABOUT AQ17
;TELL OPERATOR ABOUT A017

;LOAD GAIN MESSAGE VALUE
sLOAD RESOLUTION AND GAIN
*LOAD DIFLIN TOLERANCE
*G2 USER LIMIT
162 OPTION AREA
*LOAD RETURN ADDRESS

#2036 ,PRIME1
RS,LIMITS

MOV
CLR

JCLEAR EXIT FLAG
.LOAD GAIN MESSAGE VALUE
JTEST IF UNDETM MONITOR
YES
JBR IF

(RO)+

;LOOK FOR THE DATA REGION FOR TO

‘BR IF NOT
"YES REPORT END OF PASS

;F INISHED ?

‘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
#0 , 3KWPSR
MOV
JINIT THE CLOCK PRESET

MOV

#25, 3KWCSR

JENABLE THE CLOCK

JSR
cMp
8EQ
CLRB
BISB

PC,LISTDT
#0,R2
2%
aKWCSR1
#BIT1,3KWCSRI

;GET CURRENT DATA VALUE

;NOW TIME "‘T1'" LENGTH

2%:

135726
045666

MOV

aKWPSR,DIFT1

JSR
(MP

PC,LISTDT
#377.R2

NOW TIME ''T2'' LENGTH

;TEST

FOR EXIT OF

JBR UNTILL DONE

O DATA REGION

SFIRE ST2

*SAVE COUNTER VALUE
;GET CURRENT DATA VALUE
JTEST

FOR

ENTRY

INTO MAX

DATA REGION

NCVTN
CINLCB
CINCCB PN

DIAGNQSTIC

21
31-AUG=79 11:

001373

044032
044034
044040
046046

017737

0464054

004737

10507/
152777

135702

000002

135672

135650

135640
135626

013700
063700
006000
010037

045670
045672

004737

045630

013700
005400
010077
012777
012777
012777
005077
005077
013777
052777
052777
052777
105777

045674

052777

000400

100375

045674

135576
000020
004000
060000
135556
135554
046002
000022
000001
000001
135504

30G(1063)

J 1N

SEQ 0139

3$
aKW(SR1
#BIT1,a3KWCSRI
aKWPSR,DIFT2

;SAVE COUNTER VALUE

PCLISTDT

;GET CURRENT DATA VALUE

BEQ
CLR3
BISB

43
aKWCSR1
#BIT1,aKWCSRT

JBR

ROR

JSR

PC,STDATO

BNE
CLRB
BISB
MOV

CNOW TIME "'T3'' LENGTH

135642
045672

31-AUG=79

13:10
PAGE 92-1
A TO D FIELD SITE AND ADJUSTMENT LOOP

135674

045670

045474
000377
000002

005077

MACY11

JSR

cMP

#377 .R2

JBR

NOT

;FIRE ST?Z

JTEST

FOR EXIT OF

IF NOT

MAX

DATA REGION

JFIRE ST2
;SAVE COUNTER VALUE
KWCSR
CLR
:STOP CLOCK
:NOW DETERMINE THE AVG TIME (T3+72)/2 AND SAVE IN 'HT2T3"
MOV
DIFT2.RO
SGET T2 VALUE
‘?BD 13 VALUE
ADD
DIFT3.RO
MOV

aKWPSR,DIFT3

RO,HT2T3
MOV
"SAVE FOR LATER USE
JNOW RETURN TO LIST MODE AND LOOK FOR THE NON-ZERO TN ZERO EDGE AGAIN

DIFLN1:

;FIND

;NOW START THE CLOCK USING THE AVG TIME
;AND DO AN MATRIX MODE COLLECTION
HT2T3,R0
MOV
RO
NEG
RO, aKWPSH
MOV
#20,aKWCSR
MOV
#CLRALL ,aSFR
MOV
FF
0, 30F
MoV
#BU
CLR
aWCR
CLR
aBAR
PRIME1,8CSR
MOV
#TESTZ!BIT4,aSFR
BIS
BIS
#81T0,aCSR
BIS
#B1T0,aKWCSR
TSTB
1%:
akKWCSR
1%
BPL
#ENDDMA ,aSFR
BIS

THE

EDGE

;GET AVG CLOCK

;FIX FOR CLOCK PRESET REG

;LOAD CLOCK PRESET
;PRIME

CLOCK

JINIT THE NCVT
sLOAD OFFSET
;CLEAR Z COUNTER
;SET MODE AND RES.
JSET TESTZ AND TESTX
sENABLE NCV11
JENABLE (LOCK
WAIT

FOR CLOCK FLAG

;STOP DMA XFR

(ZNC(B NCVITY
(ZNCCB P11

N
o N N
W N
N
N N
W W
=
NS

s N

N AN
N
N PN

mdd wd —d
D wd

ad e

NN PN

D wnd
d
i

—

PN SN

NN PN

d wod =D

3059
3060
3061
3062
3063
3064
3065

DIAGNOSTIC

31-AUG=79 11:21

MACY11

1
30G(1063)
31-AUG=79 13:10 PA GE 93
A TO D FIELD SITE AND ADJUSTME NT LOOP
K

:THE MATRIX MODE XFR

QL4244
044250
044254

050014
060000
062000

044260
044264
044266
046272
044274
044276
044302
044306

050014

044310
044314
044316
044320
044322
044324
044326
044332
044334
044336
044340
044342
044344
044346
044350
044352
044354
044356
044360
044362
044364
044366
044370
044372
0464374
044376
044400
044404
044410
0464416

062100

2%:

MOV
MOV

#3UFO0 RO
ABUF1,R1

MOVB
CLRB

(RO) ,$TEMPI
(RO)+

ADD

STEMPT,(R1)+

TST
MOV

-(R1)
#-1,(R1)+
#BUF2
R
2%

B8CC

177777
064000

CLC
ROR
ROR
CLC
ROR
ROR
CLC
ROR

103644

;GET THE WORD
;CLEAR THE BYTE TABLE ENTRY

JUPDATE

THE LIST

;BR IF NO OVERFLOW
sPOSITON POINTER

JSET 10 177777

CMP
sFINISHED?
BNE
;BR IF NOT
;GET THE AVERAGE OF THE 128 CENTER STATES
MOV
#BUF 1+64. RO
sGET INITIAL POINTER
R1
CLR
CLR
R2
6%:
ADD
(RO
+ ,R1
;GET A VALUE
BCC
5%
;BR IF NO CARRY OVERFLOW
INC
R2
;JUPDATE MSW
5%:
CMP
#BUF1+4192.
R0
sFINISHED THE BUFFER
BNE
4%
;BR IF NOT DONE AVERAGE
3%:

062300

061714
045676
041714

NOW COMPLETED

;NOW ADD THE CURRENT BYTE DATA COLLECTION INTO A TOTAL INCREMENT BUFFER
$TEMPI
CLR

050014

010137
004737
023737

SEQ 0140

ROR
cLC
ROR
ROR
cLc
ROR
ROR
cLc
ROR
ROR

041712

MOV
JSR

cMP

BLO

R2
R1

JROTATE MSwW

;ROTATE MSwW

R2
R1

JROTATE MSwW

R2
R1

JROTATE MSW

R2
R1

JROTATE

R2
R1
R1,AVGVAL
PC.CTRLCG

;ROTATE MSW

AVGVAL ,NOMIAL
DIFLNT

JINTO LSW

;INTO LSW

JINTO LSW
JINTO LSW

MSw

JINTO LSW

JINTO LSW
:SAVE

THE AVERAGE

SJTEST

SJTEST FOR “C OR *G
AVG.

;BR IF NOT

CINC(B

NCVIT

CINCCB P11

DIAGNOSTIC

21
31-AUG=79 11:

MACY11

31-AUG=79

30G(1063)

13:10

L "

PAGE 94

SEQ 0141

A TO D FIELD SITE AND ADJUSTMENT LOOP

JREAD THE TOTAL INCREMENT BUFFER AND DETERMINE [F ANY VALUES OUT OF RANGE
3095

N_a_a_a_._n_l_;_a_a_ag
OV NOWNESWNI=0O

h e

D ad eod

WINWWIWWNWNWWWW
AW

3108

044420
044426
044432
044436
044442
044450
044452
044456
044464
044466
044474
044500
044504
044510
044514
044520
044524
044530
044534
044540
044542
044544

013737
012700
012701
012137
163737

041716
000001
062002
045112
045114

005137
112737
000403
11737
013746
012746
004737
012637
012637
013746
013746

045112
000055

100006

000053
045112
001750
036506
045130
045132
045130
045132

045114

045112

READ1:

1%:

041554

2%:
3%:

045114
036620

4%:

045122
045124

046054

023737

045124

046060

023737
103424

045124

046064

000053

041554

001403
005237
000435
005237
000432
122737
001403
005237
000423
005237
000420
122737
001403
005237

6%:

041720
041722

000053

7%:

0461554

20%:

041732

041736
000053

041730

MOV

AVGVAL ,101$

#1.R0

#BUF 142 ,R1

(R1)+,100$

SUB
BPL
COM
MOVB
BR
MOVEB

1018,100$
28
1008
#'=,SGNVL1
3s
#'+, SGNVL1

MOV
JSR
MOV
MOV
MOV

#1000. ,=(SP)
PC.SMULT
(SP)+,107$
(SP)+.110%
107%.=(SP)

MOV

HekT
N
NOP

1008,
- (SP)

110%.~(SP)
1018, -(SP)
PC.$DIV
43
;FATAL

22%:

041554

21s:

;GET AVERAGE

:GET A WORD

‘REMOVE THE AVERAGE

S INSERT *'='* SIGN
S INSERT *'+'* SIGN

:MULTIPLY NUM-AVG BY 1000.
*GET RESULT
:DIVIDE RESULT
:DIVIDE AGAIN

ERROR DURING CAL.

ERROR

TOLERANCES

MOV
MOV
MOV
ASR
cMP
BLT
INC

(SP)+,104$
(SP)+.105%
1018 ,R2
R2
104$,R2
5$
1058

:GET REMAINDER
“GET QOuT
*ROUND UP IF NEEDED

cTMP
BLO
cMP
BLO
cMP
BLO
(MPB
BEQ

STEST AGAINST NORMAL
‘BR IF OK
STEST AGAINST WIDE/NARROW TOLERANCE
‘BR IF OK
“TEST AGAINST LARGE/SMALL TOLERANCE
‘BR IF OK
TTEST IF +

égc

1058 ,NORTOL
508
1058 .NARTOL
208
1058 ,NURTOL
218
#'+,SGNVL]
7s

?gkou

:COUNT THE LOWER VALUE

INC

ABOVE

:COUNT

THE HIGHER VALUE

CMPB
BEQ
INC

STEST

BR
INC

&'+, SGNVL1
22%
NARB
51
WIDB

:COUNT

THE LOWER

:COUNT

THE HIGHER

CMPB
BEQ
INC

4"+, SGNVL
238
NARA

STEST

:COUNT

THE LOWER

NOP
N
ERROR CHECK
FLI
:DI

045124

122737

044712

5%:

023737

103416

MOV

MOV
MOV
JSR
BVC

045122
0645124
045114

103446

MOV

B8R

518

; COMPARE RESULT
:ROUND UP

CINC(B
NCVIT
CZNCCB PN

0464716
044720
044724
064726
044732
044740
044742
044746

104401
013746
104405
104401
104401
010046
10440%

3167

3168

001134

;COUNT THE HIGHER

:
508

NORMAL
#'M,RUNIT

;COUNT THE NORMAL
;JTEST IF FORCE REPORT

51%

77%
$AUTOB
77%

BN
T
THE STATE INFORMATION
POR
;RE
FIRST
TST
108
BNE
FIRST
INC

041744
041414
041714
041566
041100
001
000115

WIDA

51%:

0461744

10%:

TYPE
MOV
TYPDS
TYPE,
TYPE,
MOV
TYPOS

.BYTE

052410

CMPB
BNE
TYPE,

,AVRGO

AVGVAL ,~(SP)

RTN

STATE
RO,-(SP)

3.1

#'M_RUNIT
118
DASH
1008, ~(SP)

105%,-(SP)
PC,$S82D
(SP)+,R2
#2,R2
+ ,PERTXT
(R2)
(R2)
+ ,PERTXT+1
(R2)+ ,PERTXT+3

11%:

;TEST IF MONITOR ?
JBR IF

YES

;FIRST

TYPEOUT

JBR IF YES
JSET FLAG
;TELL THE OPFRATOR THE AVERG.

;ADD HEADER

INFO

;LOAD STATE #
JTEST

EXPAND OUTPUT

77%:

PC.CTRLCG

000377

RO
#255. R0

044436

OOOOOOOO

)

READ

SELECTED

J INSERT SPACING

JREPORT DIFFERENCE

sCONVERT TO ASCII
JGET RESULT POINTER TO MESSAGE
;ADJUST POINTER
;LOAD THE PERCENT REPORT

SGNVAL

— =000 0O0O00O0O
= ONOWNINWN
= O
L T
X
X
X
X
1
X
X
2 J

045676

WWNWNININN)
= — =
SN0
NOONSN

3197
3198

052410

518

SEQ 0142

23%:

000002
041556
041557
041561
0461546

3196

041724
000115

045124
037234

RRRERERERT 2%

3N
3192
3193
3194
3195

041734

040745
045112

(=]

3190

122737
001054
105737
001051

005737
001013
005237

3164
3165
3166

3169
3170
N
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189

000411
005237
000406
005237

M1
13:10 PAGE 94-1
A TO D FIELD SITE AND ADJUSTMENT LOOP

31-AUG=79

MACY11 30G(1063)

3149
3150
31N
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163

DIAGNOST IC
31-AUG-79 11:21

JTEST

CTRL

JTEST

DONE

;BR IF DONE

:TRY NEXT

C/G

VALUE

CINCCB
CZNCCB

DIAGNQSTIC

21
31-AUG=79 11:

RPR2R0R2RRER
SRiiSreaeats

3200

005037
013702
063702

120237
101026

061716
041722
041720

MACY11

N1
PAGE 95
A TO D FIELD SITE AND ADJUSTMENT LOOP

30G6(1063)

104405
10440i

013746
104405
104401

DIFERR

;CLEAR FLAG

ABOVE ,R2
BELOW.RZ

041730
041734
046062

BHI
MOV
ADD
cMP8

13
NARA ,R?2
WIDA ,R?2
fig,NURCNT

041732
041736
046056

MOV
ADD
(MR8

NARB ,R2
wiDB, R2
?g,NARCNT

;ADD HIGH
JTEST IF EXCEEDS LIMIT

NORCNT ,NORMAL

JTEST

CMPS

046066

041663
041716
041720

013702
063702
010246

(LR

SEQ 0143

MOV
ADD

BHI
CMP8

041651

104405
104401

13:10

;NOW ACCOUNT FOR ALL THE ERRORS

READ:

046052

104401
013702
063702
010246
104405
104401
013746

31-AUG=79

1%:

2%:

041572
041730
041732

BH!
MOV
BR

MoV
INC
MOV

TYPDS
TYPE

MOV
ADD
MOV

041034
041724

N#FAIMSG,READ7
DIFERR
BELOW,=(SP)
.BELMSG

NARA ,R2
NARB,R?
R2,-(SP)

;TEST IF EXCEEDS LIMIT <OBEASE ABOVE/BELOW>
;BR If ERRORS
JGET LOW VALUE
;ADD HIGH

;TEST IF EXCEEDS LIMIT <LARGE ABOVE/BELOW>
JGET LOW VALUE

MIN.

NORMAL

;GET NARROW LOW

:ADD NARROW HIGH

;JGET NO. OF NARROW STATES

TYPE,

NORMSG

;REPORT NORMAL

MOV

R2,-(SP)

041057
041722
047632

TYPE

JGET WIDE LOW
;ADD WIDE HIGH

TEXT

.WIDMSG

: TYPE MESSAGE

LABOMSG

;TYPE NO. OF STATES ABOVE
;TYPE MESSAGE

ABOVE
, = (SP)

JREPORT PASS/FAIL MESSAGE

104401
104401

041651

040676
READ7:

TYPE,
TYPE
PASMSG

GAIN

HAS BEEN HIT

; TYPE MESSAGE

s TYPE MESSAGE
;GET NORMAL COUNT

TYPDS
TYPE
MOV

COUNT

ABOVE/BELOW>

;LOAD MESSAGE POINTER
;SET ERROR FLAG
JGET NO. OF STATES BELOW LIMITS
JREPORT VALUE

.NARMSG

WIDA,R2
wiDB ,R2

<SMALL

;LOAD MESSAGE POINTER

, - (SP)
NORMAL

MOV
ADD

041736

1%
#PASMSG,READ7
2%

JADD LOW

MOV

TYPE

041611
041734

R2,0BSCNT

;GET HIGH VALUE

JRE-TYPE
JREPORT

THE

GAIN MESSAGE

PASS/FAIL

LIMIT"

NCVIY
CZNCCB
CZNCCB PN

DIAGNOSTIC

MACY11

032777
001440
005737
001435

004000

133556

012700
004737
022700
001373

042132
045426
042232

31-AUG=79 11:21

3248

406

104401
104401
104401
000417

041566
041566
041566

012701

000020
041566

042702
010246
104403
003

177400

104401
112002

104401

005307
001366
000207
045454

045470

041706

005037
000177

31-AUG=79

SEQ 0144

:TYPE OUT MEMORY RAM AND RAM MEMORY VALUES [F SELECTED
#SW11,3SWR
JTEST IF THIS
IS WANTED
READXX: BIT
4%
;BR IF NOT
BEQ
TST
DIFEX1
;TEST IF BLASTING MODE
43
;BR IF NOT
8EQ

1%:

MOV

#ROMVAL ,RO
PC,2$
#ROMVAL+100,R0
18
RTN
RTN
RTN

;LOAD INITIAL POINTER
;TYPE OUT LINE
TEST IF ALL DONE
;BR IF NOT

2%:
3%:

001
040750

;}g..R1

;LOAD WIDE COUNTER

(RO) + R

;GET A BYTE

R2.,-(SP)

;LOAD VALUE

#177400,R2

;MASK OFF

HIGHER BITS

JFINISHED

JEXIT

DIFEX)
aDIFEX0

JEXIT THIS CRAZYNESS

3.1
DASH+3
3%

041706
000310

B 12

13:10
PAGE 96
A TO D FIELD SITE AND ADJUSTMENT LOOP

30G(1063)

4%:

CINCCB NCVIY
CZNCCB P

3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309

3310
331
3312
3313
3314

3315
3316
3317
3318
3319
3320
3321
3322
3323
3324

3325
3326

DIAGNOSTIC

21
31-AUG=79 11:

MACY11

30G(1063)

31-AUG=79

13:10

C 12
PAGE 97

SEQ 0145

A TO D FIELD SITE AND ADJUSTMENT LOOP

:DIF LIN SUBROUTINE LIST MODE DATA COLLECTOR
045474

012777
005077
012777
012777
012777
032737
001403
052777
052777
052777

004000
134242

105777
100375
012700

134160

005002
012703
011001
005020
042701
060102
005303
001371
006202
006202
006202
000207

012737
004737

005702
001403
005037
000771

005737
001366

177770

134256

060000
000000
002000

134236
134232
134216
046002

002000
000002
000001

134200
134202
134164

LISTDT: MOV
CLR
MOV

#CLRALL ,aSFR
S0FF
#-8. ,3WCR

;CLEAR THE DEVICE
‘PRIME OFFSET REG.
*LOAD WC.

MOV
BIT
BEQ
BIS
BIS
BIS

#0,aCSR
#2000,PRIME 1
3¢
#2000,3CSR
#TESTZ,3SFR
#8170,aCSR

SSET RES. AND MODE
“TEST GAIN BIT
:BR IF CLEARED
“SELECT GAIN = 2
*SET Z PULSES
“ENABLE THE DEVICE

TSTB

aCSR

:WAIT FOR

MOX

;guro.ao

:LOAD POINTER TO NEW DATA

MOV
MOV
CLR
BIC
ADD
DEC
BNE
ASR
ASR
ASR

#8. R3
(ROJ ,R1
(RO) +
#177400,R1
R1.R?
R3
2
R2
R2
R2

:LOAD COUNTER
*GET DATA WORD
*CLR BUFFER WORD
:MAKE OFF BITS
“UPDATE TOTAL
*FINISHED ?
*BR IF NOT

MOV

3¢
1%:

G6000C

BPL
cL

000010

28 :

177400

RTS

177777
045474

045664

1%
2

:LOAD BUS ADDR.

IDLE

CEXIT

JSR
ST

PC.LISTDT
R2

*GET DATA
*CHECK DATA

gkn

}gs

*CLEAR ALREADY NON-ZERO DATA FLAG

;SUBROUTINE TO FIND THE TRUE EDGE OF ZERO DATA
STDATO: MOV
#-1,10%
SSET ENTRY FLAG
1%:

BEQ

045664

#8UF 0, 3BAR

:BR IF ZERG

:DATA WAS ZERO - CHECK IF WE STARTED IN O DATA REGION

>%:

ST
BNE

108
1%

:DATA HAS NOW GONE

*NOW EXIT
10%:

RTS
0

HTzT13:

DIFT1:
DIFT2:
DIFT3:

0
O
0

STEST FLAG
*BR IF NOT A GOOD TIME

TO A GOOD ZERO DATA REGION
:BYERYE

TO EXIT

NCVTY
CZNCCB
CZNCCB P11

045676

DIAGNOSTIC

21
31-AUG-79 11:
10577
100033

017737
042737
022737
001014
052777
000240

MACY 1T

D 12
PAGE 98

SEQ 0146

177600
000003
000400

134020

004000

134004

002014
000007

045774

1%:

TSTB

a$TKS

JINPUT FLAG

BIC
CMP
BNF

#177600,CTRCHA
#3,CTRCHA
1%

;MASK OFF BITS
JTEST IF CTRL C
;BR IF NOT “(

#CLRALL ,aSFR

;CLEAR

BPL
MOV

BIS
NOP
NOP
NOP
BIS
TST
JMP
CMP
BNE
GTSWR

2%:
RTS
CTRCHA: O

PRIME:
PRIMEQ:
PRIMET:

DIFEXO:

012500
005737
001402
012500
000401
005725
01270"
012021
012021
012021
012021
012021
012021
012021
012021
000205

13:10

A TO D FIELD SITE AND ADJUSTMENT LOOP
CTRLCG:

045774
045774
045774

& k4

| TR

31-AUG=79

;SUBROUTINE TO TEST [F OPERATOR TYPED CTRL C OR G

133242
b

30G(1063)

2%
a$TKB,CTRCHA

#ENDDMA ,aSFR

;BR IF NON
;GET CHARA(CTER

;STOP NPR'S

THE

DEVICE

(SP)+
RTRT
#7,CTRCHA

;CLEAN STACK
+RE-START
JTEST IF CTRL

;GET SWR VALUE
JEXIT

;JBR IF NOT

-1,
177400
36

JSUBROUTINE TO DETERMINE ERROR LIMiTS FOR CIFLIN

050024

046052

LIMITS:

1%:

2%:

MOV

TST
BEQ
MoV

TST

MOV

MOV
MOV
MOV
MOV
MOV

MOV
MOV

MOV

RTS

(R5)+,R0
WFMODE
1%
§§S)+,RO

JGET 1ST ARG.
;TEST IF ON TESTER
:BR IF NOT
;GET TESTER LIMITS

(R5)+
MNORCNT R1
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+

;BUMP ADDRESS
;GET POINTER
JGET VALUE
;GET VALUE
JGET VALUE
;GET VALUE
;GET VALUE

(RO)+,(R1)+

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

;GET VALUE

JGET VALUE
:GET VALUE
JEXIT

CINCCB
NCV1T
CINC(B P11

3365
3366
3367
3368
3369
3370

DIAGNOSTIC

31-AUG=79 11:21

MACY11

30G(1063)

31-AUG-79

13:10

046072
046076
046102
046106

NORCNT:
NORTOL:
NARCNT:
NARTOL:
NURCNT:
NURTOL:
OBSCNT:

00034¢
000025
000024
000063
000010
000145
000000
000377

000342
000024
000010
000000

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

OBSTOL: .WORD
000025
000063
000145
000377

LIN ERROR TOLERANCE

226.
21.
20.
51,
8.
101.
O

377

0466132
046136

066142
046146

046152
046156
046162
0466166

000342

000330
000036
000010
000000

000024
000061
000140
000377

000031
000075
000171
000377

000025
000063
000145
000377

:"NORMAL'' MIN COUNT VALUE

:"NORMAL'' TOLERANCE VALUE
;"NARROW/WIDE'' MAX. COUNT VALUE
;"'NARROW/WIDE'' TOLERANCE VALUE

;" LARGE/SMALL'' MAX. COUNT VALUE
;"LARGE/SMALL'' TOLERANCE VALUE
;'OBESITY'' MAX. COUNT VALUE
;"OBESITY'' TOLERANCE VALUE

:DIFLIN ERROR TOLERANCE

GAIN =1

GILIMO:

;226 MIN., CCUNT, =<2.0%
;20 MAX, (OUNT, =<5.0%
;8 MAX., COUNT, =<10.%
;0 MAX COUNT, >10%

.WORD
.WORD
.WORD
.WORD

226.,21.
20.,51.
8..101.
0.,377

:DIFLIN ERROR TOLERANCE
046112
046116
046122
046126

SEQ 0147

A TO D FIELD SITE AND ADJUSTMENT LOOP

:ACTUAL VALUES FOR DIF

0466052
046054
046056
046060
046062
046064
046066
046070

E 12
PAGE 99

GILIM1:

_WORD
.WORD
.WORD

"WORD

226.,20.
2C.,49.
8..96.

0.%77

GAIN = 1

USER

OPTION AREA

;226 MIN COUNT, -<1.9%

;20 MAX. COUNT, -<4,8%

;8 MAX COUNT,

=<9,5%

;0 MAX COUNT, >9,5%

:DIFLIN ERROR TOLERANCE

GAIN = 2

G2LIMO:

;216. MIN COUNT, =<2.4%
;30. MAX COUNT, =<6.0%

.WORD

216..25.

"WwORD
JWORD

8..121.
0..377

.WORD

30..61.

USER

;8. MAX COUNT, =<12.0%
20 MAX COUNT, >12.0%

OPTION AREA

:DIFLIN ERROR TOLERANCE

GAIN = 2

GoLIM1:

;216. MIN COUNT, =<2,0%
;30. MAX COUNT, =<5.0%

.WwORD

216.,21.

.WwORD
_WORD

8..101.
C..377

.WwORD

30..51.

;8. MAX COUNT,

=<10.0%

.0 MAX COUNT, >10.0%

NCV1Y
CINCCB
(ZNCCB P

3406
3407

oTM

R
VI

3408
3409

0466172
046174
04620¢
046210
046216
046224
046232
0646240
046246
046254
046257
04626
046266
046274
046302
046310
046316
046324
046332
046336
046340

046346
046354
046362
046370
046376
046402
046404
046412

046420
046426
046434
046442
046445
046447
046454
046462
046470
046476
046504
046512
046515
0466517
046524
046532
046540
046546
046554
046555
046557
046564
046572
046600
046606
046614
046622

DIAGNOSTIC

1
31-AUG-79 11:
015
020111
052111

030101
045104
047105
067111
020105
043517
042524

015
102
040514
020107
042510
040505
041440
052103
051120
015
020103
052116
051120
020115
041040
047111
015
020114
044507

052123

034115
047101
031460
015
104

04311
G52116
044514
052111
052040
030460
015
106
04711
041503
041516
040440
051
015
101

045104
047105

040440
052101
042114
10

012

020075
040511

033461
051525
020124
020707
047101
052040
122

012
036440

052123
043117

046040
044522
051117
047511
046517
01c
020075
047522
043517
051120
040514
000107
012
020075
020103
047440
031060
020104
066
012
036440
042506
040511
042516
020131
042510
067
012
036440
046101
050105
020105
04211¢
012
036440
051525
020124
030460
043040
051440

MACYT1

047111
020114
040440
066524
051525
044124
046101
051505

30G(1063)
A

TO D

LIS10:

061040
047117
052040
0471M
054524
042522
020116

047503
026114
040522
046517
052123
047514
042524
020106
020066
034115

042040
042522
020114
051101
043117
040440

043040
040440
040524
046050
042040
040440
046524
043117
020067
04251
052111

LIST:

31-AUG=79

FIELD

SITE

13:10

F 12
PAGE 100

SEQ 0148

AND ADJUSTMENT LOOP

.BYTE
LASCII

15,12
/1 = INITIAL

.BYTE
LASCI]

.BYTE
LASCIZ

.BYTE
LASCII

15,12
/L = LOGIC

.BYTE
LASCII

15,12
/D = DIFFERENTIAL LINEARITY OF

.BYTE
LASCII

15,12
/A - ADJUSTMENT OF

15,12
-

15,12
=

15,12
-

AQ17 ADJUSTMENT USING

BLASTING OF

CONTROL

FINAL

THE

LINEARITY

THE

ANA_OG

CORRECTION PROM~

PROGRAM PROM BLASTING/

TEST OF

MB026 AND MB036/

ACCEPTANCE

TESTER/

THE AQ17/

AND D)/

AO17 AT FIELD SITE/

CINCCB

CINCTB.P7

3620

3621

3422
3423

3424
3425

3426
gzgg
3429
3430

NLVIT

~ D.AGNOSTIC

046623

015

046632
046640
0646646
046654
066662
046670
046673
046675
046702
046710
046716
046724
046732
046740
046742
046750
046756
046764
046772
047000
047006
047014
047015
047017

042520
053440
052126
040440
051523
047116
015
123
063117
020105
044103
051511
044103
015
020110
050114
0476440
047524
020104
042520
020683

040522
052111
020131
042104
047040
116
012
036440
053524
053523
051040
042524
047101
012
020075
052040
042520
020122
042522
052040
044514

015
056

012
000

046625

31-AUG-79 11.21
117

047022

012

036440

MACY1T

30G(1063)

37-AUG=79

13:10

PAGE 100-1

A TO D FIELD SITE AND ADJUSTMENT LOOP

BYTE

047440

042524
020110
052101
042522
047116
051440
051101

052111
043505
020122
042507

042510
042510
040522
047101
054524
044510
052123
LISTT1:
DOT:

15,12

SEQ 0149

LASCII

/0 = OPERATE

WITH TTY AT ADDRESS NNNANN/

BYTE
LASCII

15,12
/S - SOFTWARE

SwWIT(H REGISTER (HANGE/

BYTE
LASCIZ

15,12
/H = HELP THE OPERATOR AND RETYPE

.BYTE
LASCIZ

15,12
7./

.EVEN

THIS LIST/

CINCCB NCV11
DIAGNQOSTIC
CINCCB.P11
31-AUG-79 11:21
34,32
3433

3,34
3,35
33
gzgg

3,39
340
3441

3442
3443

047022

047026
047030
047036
047042
047046
047052

000005

104401
012777
005077
005037

052156
006035
132646
045774

105777
100375

132644

H 12
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 101
A TO D FIELD SITE AND ADJUSTMENT LOOP
POTIME: RESET

132650

:ERASE
is:

047054
047062

052777
105777

001000
132630

132634

047070

062777

001000

132620

047076
047102
047106
047112
047114
047120

012701
012700
004737
005200
022700
001372

010421
003740
047760

3454
3455
3,56
3,57
gzgg

047122
047126
047132
047134
047140

012700
004737
005200
022700
001372

000000
047760

3460
3461
3462
3463
%22?

047142
047146
047152
047154
067160

012700
004737
005200
022700
001372

007740
047760

3644

34,45

3446
3447
3448
349
3,50
3,51
gzgg

047066

100375

TYPE,
MOV
CLR
CLR

004000

28:

000040

gzgg

THE SCREEN MAP
TSTB
aVICSR
BPL
18

:CLEAR THE WORLD

“TELL OPERATOR ABOUT CABLES
-HOME AND ERASE SCREEN
“CLEAR THE MAP P.C.
“CLEAR TTY CHARAC(ER

8IS
TSTB

#BIT9,3VICSR
aVT(SR

‘WAIT FOR READY
;
+C EAR THE MAP
‘WAIT FOR READY AGAIN

BIC

#RIT9,aVICSR

:CLEAR THE ERASE BIT

MOV
JSR
INC
CMP
BNE

#0,RO
PC.DISPLY
RO
#40,RO
4$

:LOAD PIXEL ADDRESS
"LOAD THE DATA
‘UPDATE THE PIXEL ADDRESS
“TEST IF DONE
‘BR IF DONE THE VERTICAL

MOV
JSR
INC
(MP
BNE

#7740,R0
PC.DISPLY
RO
#10000,R0
58

;LOAD PIXEL ADDRESS
‘LOAD THE DATA
"UPDATE THE PIXEL ADDRESS
STEST IF DONE
‘BR IF DONE

BPL

:NOW LOAD THE REF. PATTERN INTO THE MAP
MOV
#10621,R1
:LOAD THE PIXEL VALUE
MOV
#3740 ,R0
*LOAD THE PIXFL ADDRESS
3
JSR
PC.DISPLY
‘LOAD THE DATA
INC
RO
‘UPDATE THE ADDRESS
MP
#4000,R0
*FINISHED ?
BNE
3
'BR UNTIL DONE
48

010000

PRIM?
#6035,aVICHAR
avTYPOs
CTRCHA

SEQ G150

:POSITION THE MAP AND DISPLAY

3468 047162

012777 000005

132526

MOV

#5,avVICSR

370 047176

012777

132520

MOV

#4635, VT INT

369

047170

3,71

047204

012777

000060

052777

000400

000463

132526
132504

MOV
8IS

#60,avVTINT

#RIT8,aVICSR

;LOAD ORGIN VALUE
*LOAD LUT 0

*LOAD LUT 1

-ENABLE

THE MAP

CINCCB NCVTT
C(INCCB.PI1

3473
3474
3475
3476
3477
3478
3479

3480
3481

3482
3483
3484
3485
3486
3487
3488
3489
3490
349
3492
3463
3494
3495
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
35N
3512
3513
3514
3515
3516
3517

DIAGNOSTIC

21
31-AUG=79 11:

MACY11

30G(1063)

31-AUG=79

SAMCAM:

047212
047216
047220
047222

004537
050042
001730
Co0

067336

047224
047230
047232
047234

004537
05022¢
001732
001

047336

047236
047242
047244
047246

004537
050412
001734
002

047336

047250
047254
047256
047260

004537
050576
001736
003

047336

047262
047266
047270
047272

C04537
050134
001732
000

047336

047274
047300
047302
047304

004537
050320
001730
001

047336

047306
047312
047314
047316

004537
050504
001736
002

047336 r

047320
047324
047326
047330

004537
050670
001734
003

047336

047332

000137

002646

000

0G0

001

007

001

I 12
PAGE 102

SEQ 0151

A TO D FIELD SITE AND ADJUSTMENT LOOP

:NOW SAMPLE

267212

13:10

THE CAMERA CHANNELS

;CAMERA 0, X INPUT
RS,ADJCAM
JSR
ADMSGO
DACO
.BYTE
0,0

:DO CAMERA 1, X INPUT
JSR
ADMSG2
DAC1

RS,ADJ(AM

.SR

RS,ADJCAM

BYTE
1,0
;DO CAMERA 2, X INPUT
ADMSG4

DAC?2

BYTE
2.0
:DO CAMERA 3, X INPUT
JSR

RS,ADJCAM

JSR "
ADMSG3
DACO
BYTE

RS,ADJCAM

JSR "
ADMSGS

RS,ADJCAM

JSRTM~_
ADMSG?7
DAC2

RS,ADJCAM

BYTE

3.1

JMP

RBEGC

‘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
sCAMERA 2, X AXIS

;CAM 3, X MESSAGE
DAC3
;DAC ADDRESS
.BYTE
3,0
.CAMERA 3, X AXIS
JNOW SAMPLE THE Y CAMERA (CHANNELS
;DO CAMERA O Y INPUT
RS,ADLCAM
JSR_
ADMSG1
;CAM 0 Y MESSAGE
DAC1
;DAC ADDRESS
0,1
BYTE
;CAMERA 0, Y AXIS
:DO CAMERA 1, Y INPUT
ADMSG6

1,1

;DO CAMERA 2, Y INPUT
DAC3
2,1
BYTE
;DO CAMERA 3, Y INPUT

;CAM 1,

Y MESSAGE

;CAMERA

;DAC ADDRESS

Y AXIS

;CAM 2, Y MESSAGE

;DAC ADDRESS
JCAMERA 2, Y AXIS

;CAM 3, ¥ MESSAGE
;DAC ADDRESS
JCAMERA 3 ¥ AXIS

CINCCB NCV11
CINCCB P11

DIAGNQST IC
31-AUG-79 11:21

012500
005777
100375
012777
005777
100375
112077

105710

1
MACY

132342

012000
132326

30G(1063)
;REPORT

THE MESSAGE FIRST

ADJCAM:

MOV

1%:

132320

050020
050026

012777

002315
047512
050034
047736

TST

B8PL

000410

J 12
PAGE 103

SEQ 0152

2%:

B8NE

;LOAD THE (HAR.
JTEST IF TERM,
;BR IF NOT

MoV
MOV

d(R5) +,DACADR
(R5)+, CAMVAL

s SAVE ADDRESS
;SAVE CAMERA DATA

MOV

JPRESET

JSR
MOV

#2315 ,3DACADR

R1,VALO

;SAVE RESULTS

MOV

#4000,3DACADR

JSR
JSR
C(MPB
BNE
CLR

045774

FOR READY

(RO)+ ,aVT(HAR
(RO)
13

[s[01Y)

045774

JWAIT

TSTR

JSR
MOV
JSR
01"
JSR

000344

3$
#12000,8VvVTCXY

;GET ASCII POINTER
JPOSITION THE CAMRACTERS
JWAIT FOR (HAR. READY

JSR

000366

{RS)+,RO
aVT(HAR

?gTCHAR

MOV
1ST
BPL

MOVR

001371

013537
012537

13:10

A TO D FIELD SITE AND ADJUSTMENT _0OO0P

38:

132340

31-AUG=79

RTS

PC,SAMDAT

PC,FIXLIN
PC,SAMDAT

R1,VAL1

PC,FIXLIN

#5463 ,aDACADR
PC,SAMDAT

R1,VALZ

PC,FIXLIN
PC,CTRLCG

#'C,CTRCHA

CTRCHA
RS

DAC

TO -

GAIN

cPOSITION THE CROSS HAIR LINt
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
JCHECK IF CHARACTER WAS A \(C\

;BR IF NOT

;CLEAR (HAR
JEXIT

JCOLLECT 64 SAMPLES FROM THE SELECTED CAMERA
JR1

CONTAINS

THE AVERAGE

012700
012701
005020
020001
001375

060000
062000

SAMDAT: MOV
MOV
1%:
CLR
CMP
BNE

012777
012777
113777
052777
052777

177700

MOV

#-100,aWCR

MOVB
BIS
BIS

NTESTZ,aSFR

#81T0,aCSR

;LOAD WORD COUNT
;LOAD ADDRESS
JSELECT THE CAMERA
JSET TEST Z ENABLE

TSTB

a(SR

JWAIT UNTIL DONE

MOV

#CLRALL ,aSFR

;CLEAR THE DEVICE

060000
050026
000002
000001

105777
100375

132154

012777
005037
005037
005001
012700

004000
050014
050016

060000

MoV

2%:
132154

B8PL

CLR
CLR
CLR
L 017

#BUFO RO
#8UF1,R1
(RO)+
RO.R1
1%

0, aBAR
#BUF

CAMVAL ,a(SRHB

STEMP]
$1EMP2

#8UF
0 ,RO

[NPUT

;CLEAR THE BUFFER
cFINISHED ?
;BR IF NOT

JENABLE NCVT1

JLOAD BUFFER POINTER

NCV1Y
CINCCB
CZNC(B P11

3575
3576
3577

3578
3579
3580

b
N

A
Nt

)
b

Nt N

d
d

Nt N

d
i

Nt N

—

WONONEBWN=O

ARG :

Y YetaYelaYeataYa
el

3581
3582
3583

el
NN

3620

047620
047624
047626
047632
047640
047644
047650
047652
047654
047660

DIAGNQSTIC

21
31-AUG-7G 11:
105737
001413
012037
113737
063701
022700
001366
000412
012037
113737

063701
022700
001366

MACY11 30G(1063)

050014
050014
050016
060200

TSTB

CAMVAL +1

JTEST

MOVB
ADD

STEMP1+1 ,$TEMP?
$TEMP2 R1

;GET HIGH BYTE DATA
;UPDATE AVERAGE

BEQ
MOV

050016

(MP
BNE
BR
050016

000240
000240
006201
000240
006201
000240
006201
000240
006201
000240
006201
000240
006201
000240
000207

10%:

006201
000240
000240
000240
062701
110177
000207

FIXLIN:

MOV
MOVB
ADD
CMP
BNE
NOP
NOP
ASR
NOP
ASR
NOP
ASR
NOP
ASR
NOP
ASR
NOP
ASR
NOP
RTS

5%
(RO)+,STEMP1

#8UF 0+200,R0
38
108
(RO) +,STEMPI
STEMPT STEMP?
$TEMP2 R1
#BUF0+200,R0
5%

X OR Y DATA

JBR IF X
JGET THE DATA

;FINISHED DATA ?
;BR IF NOT
JGET DATA

JUPDATE THE AVERAGE
JFINISHED DATA ?
:BR [F NOT

;AVERAGE

THE

DATA

;AVERAGE

THE DATA

;AVERAGE

THE DATA

;AVERAGE

THE DATA

;AVERAGE

THE

DATA

;AVERAGE

THE

DATA

JEXIT

;SJUBROUTINE TO LOAD X OR Y CROSSHAIRS

000400

010177
052777
000207

131716
000400

131726
131720

ASR
NOP
NOP
NOP

ADD
MOVB

000100
131734

042777
010077
105777
100375

SEQ 0153

A TO D FIELD SITE AND ADJUSTMENT LOOP

050027

050014
050015
050016
060200

31-AUG=79

K 12
13:10 PAGE 103-1

RTS

131730

#100,R1
R1,a3VIXPOS

JSUBROUTINE TO LOAD PIXEL DATA

DISPLY: BIC
MOV
1%:

131704

ggTB
L
MOV

BIS

RTS

#600,avTCSR
RO,avIMAP

.DISABLE MAP
:LOAD MAP P(C

R1,aVTPX

;LOAD PIXEL CATA

?¥TCSR

#400,aVTCSR
PC

;WAIT FOR MAP READY

JENABLE MAP

$TEMP1: O
$STEMF2: 0
DACADR: 0

RUNDIF:
WFMODE:

O
O

AGAN:

CAMVAL: 0
CURENT: 0
VALO:

;WF

OPTION AREA FLAG

CZNC(B NV
CZNCCB P11

3623

3624
3625

3626
3627

3628
3629

DIAGNOSTIC

31-AUG~79 11:21
000000
000000
040503
030040

042515
060
012
045104
030122
020122
051506

MACY11

306(1063)

040522

VALT:
0
VALZ:
0
ADMSGO: LASCII

051525
020071
020130
052105

040522

3631
3632

ADMSG1:

051525
020063
020131
052105

3633
3634

052123
043040
043440

3635

040522

3636
3637

ADMSG?:

052123
043040
043440
040522

ADMSG3:

051525
020064
020131
052105

052123
043040
043440

040522

020122

051525
020061
020130

L 12
PAGE 103-2

:
ADMSG4

/ CAMERA 00/

15,12

.BYTE
LASCII

/ADJUST

.BYTE
.ASCIZ

/ADJUST R24 FOR

LASCII

/CAMERA 00/

BYTE
LASC1I

/ADJUST R13 FOR

.BYTE
LASCIZ

/ADJUST R20 FOR

.ASCII

/ CAMERA 01/

.BYTE

051525
020060
020130
052105

3638
3639

13:10

A TO D FIELD SITE AND ADJUSTMENT LOOP

052123
043040
043640

3630

31-AUG-79

ROS FOR

15,12

LASCI1

/ADJUST R10 FOR

.BYTE
LASCIZ

/ADJUST R23 FOR

LASCII

/ CAMERA 01/

.BYTE
LASCII

/ADJUST R14

.BYTE
.ASCIZ

/ADJUST

LASCII

/CAMERA 02/

.BYTE
LASCII

/ADJUST R11

15,12

FOR

R19 FOR

FOR

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

SEQ 0154

3651
3652

3653
3654

043117
015
042101
051040
051117
044501
040503

051506

052105

052512
031062
054040
000116
042515

052123
043040
043440

012

3656
3657

ADMSGS:

ADMSG6::

051525
020062
020130
052105

3658
3659

052123
043040
043440

3660

040522
012
045104
030522
020122
051506
012
052512
033461
054440
000116

3661
3662

3663
3664

3669

.BYTE

052123
043040
043440

040522

050756
050762
050764
050772
051000
051006
051014
051022
051030
051036
051044
051045
051047
051054

012

020105
052055
047503
047524
052123
047111
042514
040440
124
044527

012

042510
041524

ADMSG?7:

051525
020066
020131
052105

052123
043040
043440

042523
051505
047116
020122
041040
052123
020104
030460
051440
020110

M 12

31-AUG-79

13:10
PAGE 103-3
A TO D FIELD SITE AND ADJUSTMENT LOOP

051525
020065
020131
052105

3655

3665
3666
3667

040522

30G(1063)

PRIMO:

SEQ 0155

15,12

LASCIZ

/ADJUST R22 FOR X GAIN/

LASCI1

/ CAMERA 02/

.BYTE
LASCII

/ADJUST R15 FOR

.BYTE
LASCIZ

/ADJUST R18 FOR

LASCII

/CAMERA 03/

.BYTE
LASCII

/ADJUST R12 FOR

.BYTE
LASCIZ

/ADJUST R21

LASCli

/CAMERA 03/

.BYTE
.ASCI1

15,12
/ADJUST R16 FOR

.BYTE
.ASCIZ

/ADJUST

.BYTE
LASCII

15.12
/THE SELF-TEST CONNECTOR MUST BE

.BYTE
LASCII

15,12
1

15,12

3650

050446
050454
050456
050464
050472
050500
050504
050512
050515
050517
050524
050532
050540

31-AUG-79 11:21

MACY11

OFFSET/

3648
3649

DIAGNOSTIC

GAIN/

15,12

\TH E

OFFSET/

GAIN/

FOR

R17 FOR

CZNCCB NCVi1
CZNCCB L1

OFFSET/

GAIN/

SWITCH ON AO17 MUST BE

INSTALLED ON AQ017/

IN "MAINT.'* POSITION (TOWARD THE

[/0 CONNECT

CZNC(B NCVIT
CINCCB P11

DIAGNQSTIC
31-AUG-79 11:21

047117
020067
041040
021040
027124
044523

3670
3671
3672

042523
051505
047116
020122
041040
047515
051106
042510
067
124
044527
047117
020067
041040
021040
021056
052111
040450
051106
042510
041440
052103
015
047111
051040

3675
3676

045501
042514

020117
047523
047440
020105

3677
3678

015
042523
026515
053523
051505
044442
047042

051536

040440
043117
015
047111

N 12
30G(1063)
31-AUG-79
13:10 PAGE 103-4
A TO D FIELD SITE AND ADJUSTMENT LOOP

SEQ 0156

030460
052123
047111
047111
047520
047117
040527
042510
041440
052103
000

3673
3674

3679
3680

040440
052515
020105
040515
020042
044524
047524
052040

MACY11

051440
020110
030460
052123
047111
051105
051517
020116
020131
052040
047457
042516
051
000
052122
050055
041101
052116
020105
052105
044124
033461

PRIMG:

PRIMS:

040522
020113
044103
020117
020054
021115
021040

052122

PRIM3:

15.1 2.0
15,1 2

.BYTE
.BYTE
LASCII

/THE

.BYTE
.ASCI1

\THE SWITCH ON AQ017 MUST BE

.BYTE
LASCI1

15,12.0
/INSFRT RAM-PAK (ABLE

.BYTE
LASCII

15,12
/SET RAM-PAK SWITCHES TO ''IN'‘, 'NORM'*' AND 'OFF'‘/

BYTE

CASCII

15,12

SELF=TEST CONNECTOR MUST BE REMOVED FROM THE A017/

IN 'OPER.'' POSITION (AWAY FROM THE

INTO THE

SOCKET ON THE A017/

/INSERT BLANK ROM [NTO ROM BLASTER SOCKET/

/0 CONNE

3681
3682

3683

3685

3687

3689

051544
051552
051560
051566
051574
051602
051606
051610

041040
051040
052116
020115
042524
045503

051616
051624
051632
051640
051646
051654
051662
051670
051676
051677
051701
051706
051714
051722
051730
051736
051744
051752
051760
01762
051765
051767
051774
052002
052010
052016
052022
052024
052032
052040

31-AUG=79

-—

D AGNOST

CINC(B
NCYY
CINC(B. P

3'-AuL=79

TOD FIELD SITE

13:1C

8 13
PAGE

103-5

AND ADJUSTMENT LOOP

SEQ 0157

5
p)

0201
046}
0521

0
5

BYTE
LASCI!

'5.12

.BYTE
LASCII

15,12
\THE

.BYTE
.BYTE

LASCII

15.1
15,1
/PLE

SE REMOVE RAM-PAK (ABLE/

.BYTE
LASCII

15,12
/ AND INSERT

.BYTE
.ASCI1

15,12
/DEPRESS

.BYTE
.BYTE
LAS(CI]

15,12 .0
15,12
/'PJ1"" CABLE MUST BE

\PLEASE

DEPRESS

THE

‘‘1/0"" AND "EXECUTE'' BUTTONS TOGE THER\

042510

042522
012
012

042514
042522

051040
045501
042514
012
042116
051105
020105
042524
020115
051440
020124

030460

052504
012
051120
044124
021122
053440
042522

3690
3691

3692

3694
052174

MACY' 30Gi1063)

052515

012
012
030512
046102
052123

032040
042503
042105
046114
052110
020116
041440
052103
000

051501
047515

PRIM1:

PROCESS LEDS WILL

LIGHT WHEN DONE

CORRECTLY\

046501
041440

044440
020124
046102
020104
047111
041517
047117
020067
042514

051505
020105
045440
042510
042101

000
020042
020105
041040

PRIM?:

THE BLASTED ROM INTO SOCKET ON AQ17 MODULE/

THE ''CR'' KEY WHEN READY/

CONNECTED

TO THE

AQ17 CONNECTOR/

CINCCB NCVINM
DIAGNOSTIC
CINCCB.P11
31-AUG~79 11: 21

c13

MACY11 30G(1063)
31-AUG=79
13:10 PAGE 103-6
A TO D FIELD SITE AND ADJUSTMENT LOOP

052202
052210
052216
052224
052232

020105
041505
047524
040440
047503

047503
042524
052040
030460
047116

047116
020104
042510
020067
061505

3695
3696
3697

052243
052246
052250
052256
052264
052272
052300
052306
052314
052322

015
015
050042
040503
052515
020105
041505
047524
046440
041440

012
012
031512
046102
052123
047503
042524
052040
030070
047117

000
020042
020105
041040
047116
020104
0642510
033063
042516

3698
3699
3700
3701

052334

012

000

052340
052343
052350
052356
052364
052372
052400

015
052340
015
106
041040
040522
047105
047506
020107

012
052101
051525
020120
050040
046522
042524

007
046101
052040
044127
051105
047111
052123

FATALO:

3702

052410
052416
052424
052430
052436
052444
052452
052455
052460
052461
052463
052470

021103
047514
047117
005015
060522
052123
043516
015
000
015
122
043516

040411
040503
000040
051120
020115
051101
000
012

020124
044524
043517
042522
044524

052501
052506
052514
052520
052523
052530
052536
052564
052552
052560
052562
052567
052571
052575
052577

040
046440
006531
015
117
040440
051523
042526
046101
033
043113
015
106
015
104

3703

3704
3705

3706

3707
3708
3709

3710
3711
3712
3713
3714
3715

012

047125
053440
000
020113
046505
000012
012
052103
042104
047440
046522
036440
000
027462
000
031515
000
030111

BYTE
.BYTE
LASCIT

15,12,0
15,12
/'PJ3"" CABLE MUST BE CONNECTED TO THE M8036 CONNECTOR/

BYTE
.EVEN
.BYTE
LASCII

15,12,0
15,12,7 ;'RUNIT'® MUST BE ON A WORD BOUNDRY
/FATAL BUS TRAP WHEN PERFORMING TEST 'Y/

RUNIT:

,ASCIZ

/("

RUNITA:

.ASCIZ

<15><12>/PROGRAM RESTARTING/

.BYTE

15,12,7.0

PRIM4&:

007

AT LOCATION /

MSGMEM:

.BYTE

LASCIZ

/RUNNING WITH /

MSGK :

LASCIZ

/ K OF MEMORY/<15><12>

WARNO:

.BYTE
.ASCIZ

15,12,7
/OCTAL ADDRESS OF

062

ESCP:
KFO:

060

FMO:

031457

DIO:

.BYTE
LASCIT
.BYTE
LASCIT
BYTE
LASCII

33,0
\KF2/2\
15,0
\FM30\
15,0
\DIO/37\

044516
052111
0431
0511
046101
042522
020106
047111
000040

SEQ 0158

J'RUNIT' MUST BE A WORD BOUNDRY

15,12

TERMINAL

;"RUNITM'" MUST BE A WORD BOUNDRY

CINCCB NCVTI
CINCCB P11

3716
3717
3720
S

b
D

N
W
W

D
W
W
W

N
W
S

b
D

e W

N
N

D
D

Y
W

S
N
S

o W

D e
D

e W

b e

e
N
N
N

T
Tt W

N
N

S
N
S
N
N

N
i N
T

N
N
N

RN
N

) md

N
N

) e

N
N

e
e

N
T

D el

N
N

D
)

N
N
N
N

)
N
N

md
e

d e

)

) e

) o

) e

) ed

) e

d e

D LD md e

DIAGNOSTIC
31-AUG=-79 11: 21

MACY11

30G(1063)

31-AUG=79

13:10

15,2

BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

052623
052626
052627

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

052633
052636
052637

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

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

052622

052632

052642
052643
052646
052647
052652
052653
052656

052657
052662
052663

052666
052667
052672

052673
052676
052677

052702
052703
052706
052707
052712
052713
052716
052717
052722
052723
052726
052727
052732
052733
052736
052737
052742
052743
052746
052747
052752
052753
052756
052757
052762

015

002

060

040
060

PAGE 103-7

A TOD FIELD SITE AND ADJUSTMENT LOOP
.BYTE

052605
052607
052607
052612
052613
052616
052617

D 13

DIDATA:

SEQ 0159

DIAGNQST IC
31-AUG-79 11:21

052763

052766
052767

052772
052773
052776
052777
053002

053203
053006
053007
05301
053016
053017
053021
053024
053032
053034
053036

MACY11

30G(1063)

31-AUG=79

A TO D FIELD

060

.BYTE

60,60,60,40

060

BYTE

60,60,60,40

0690

060

BYTE

60.,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

000
030115

031457

(MO:

.BYTE
LASCII

3.0
\(MO/37\

033463

€CO:
PGO:

000
000103
027460
000
000

IPO:

.BYTE
.ASCIZ
LASCII
.BYTE
LASCII
.BYTE
.EVEN

15,0

/CC/

\PGO/37\
15,0

/IP/

15,0

sBUFFER AREA
060000
062000
064000

060000
001000
001000
000240
000001

13:10

BUFQ:
BUF 1:
BUF2:

.=60000

.BLKW
.BLKW
NOP
.END

PAGE

103-8

SITE AND ADJUSTMENT LOOP

rONY

(INCCB
NCVIY
CINC(B P

SEQ 0160

NCVIT
CINC(B
CINCCB.P11
ABASE =
ABOMSG
ABORTB
ABOVE
ACOWT
ACDW2

DIAGNOSTIC
1
31-AUG=79 11:
164

26264
26174

MACY11
32
3239
2772
3138+
32

F13

30G(1063)
31-AUG=79
13:10 PAGE 104
CROSS REFERENCE TABLE =-- USER SYMBOLS
101

102

103

104

3497

3502

3507

3512

3521»

957
974

958

976

960
977

961
978

962
980

981

1959

1984

2026

2042

2049

2080

180

36214

3203

3237
93

3486

3491

956
973

1915

SEQ 0161

100

105

106

107

965

966
991

1005

ACPUOP=

niono

»
o
Q

€
0o

ADDWO =
ADDW1 =

3481
2917#
358
972

36254
36304
36354
36404

964

36454

36504
36554
36604
310«
AFATAL
AGAN

AMADR
1AMADRZ~

AMADR3-

=
AMADR4
1=
AMAMS

AMAMS
2 AMAMS
3=
S AMAMS

AMSGAD=
AMSGL G=
AMSGTY=

AMTYP]
AMTYP2-

AMTYP3

145+

982

968

969
1019

000000
000000
Q00000

000040

000001
000200

000100

000000
000000
000000
000000
140370
AVECT2= 000000
AVGVAL
041714
0461414
AVRGO

BAR

1754

001764

BAR1

002034
041572
061720
000001

BEGIN
BELMSG
BELOW
BITO

MACY11

23494
2345
23494
23454

111

112

113

114

2923 -

2924

2934

2999

3087+«

3089

490+
715+
1286+
1850+

4«91
769+
1310«
1856

532

225

228

3204

3221

3161
356
684+

1265+
1828+
3286+
359
1454

3223
3136+
131

798
972
1086

2119

- 00000
000002
= 000004
= 000010
= 000020
- 000040
- 000100
- 000200
= 000400
- 001000
000002

BIT1C - 002000
BIT11 = 004000
BIT12 - 010000

020000

8IT14

040000

473
956
973
1132

1479

1627
1831

2503

2340
2340

2345

2447
1272
126
1041
1414

1624

81713 -

3562«

2158
2732

130

517

3095
601

3162

617«

795
1331«
1870«

1034+
1353«
1876

596+
1052
1432w
1890~

499
958
976
1198
1554
1641
1853

566

582

977
1226
1612
1673
1872
2196
2822

978
1247

1268

1674
1873

2206
3053

1689
1892

565
1434

597
1458

1770

1783

1806

1829

1770

2345

2382

2393

2404

2415

486
957
974

1161

1515

1628
1852

2164
2809

2166
2816

1613

618

1084+

1476+

1896

598
962

1615

2208
3054

642

622

1104
1510»
1924+

1129+
1548+
1991+

619
964
981
1289
1616
1715
1893

643
965

2224
3292

660

1313
1618
1731
1928

2254
3565

685

641+

1159«
1768+

2056+

659+

1188«
1804+

672+

1222+
1805+

2156+

2498+

686
968
1003
1356
1621
1772
2058
2266

717

2113
2420

738
1871

750
1891

969
1017
1376
1622
1807

1374
3017
1360
383
1089
1443
1625

2340

1137
1485
1627

1203
1559
1645

1228
1612
1676

1252
1613
1694

1273
1615
1718

1294
1616
1734

1361
1621
2116

1425

1448

149

1533

1783

1910

1932

1972

1979

693
2061

723

725

756

1141

3024

2200

2227

2258

2005

2039

2061

2345

1179

1932

1939

2005

1421

SEQ 0162

23494

1436
1625
1830

BITO0
BITO1
BIT02
BIT03
BIT04
BIT0S
BIT06
BITO07
B1708
61109
BIT1

G 13

13:10
PAGE 1064-1
30G(1063)
31-AUG=79
(ROSS REFERENCE TABLE == USER SYMBOLS

2068

2340

338

AMTYPS4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ASWREG=
ATESTN=
AUNIT =
AUSWR =
AVECT1-

DIAGNQSTIC
21
31-AUG=79 11:

—;—J
~J

NCVI
CINCCB
(INCCB.PIN

000004

BIT3

BIT7

nn
H

BITS

1170
1408

000040
000100
000200

565

2428

400
1179

BUF
2
TRP
BUS
CALRPT
CAMUNP
CAMVAL

CAMOG!
CAMOGZ2
CAMOTW
CAMOTX
CAM1G1
CAM1G2
CAM1 TW
CAM1TX

CAM261
CAM2G2
CAM2TW
CAM2TX
CAM3G1
CAM3G2
CAM3TW
CAM3TX
€co
CKSWR
CKTSWR
CLRALL

062000
064000
003212
037614
040360
050026
040442
040444
040503
0460464
040446
040450
040541
040522
040452
040454
040577
040560
040456
040460
040635
040616
053021

104407
040062
004000

1677
1625

1490
1627

574

597
756
1612
1770

750

1533
1691

1871

409
1497
1316
1891

2683

27034

663

000400
001000
042272
BLICNT
042130
BPTVEC= 000014
BRLEV
002002
BTALK
042020
BUFO
060000
BIT8
BIT9
BLAST

BUF
1

1178
1423
16264

738
1513
1628

—P)
— —

000010
000020

H13

30G(1063)
31-AUG=79
13:10
PAGE 104=2
CROSS REFERENCE TABLE =-- USER SYMBOLS

574
1533

1851

2399

SEQ 0163
1533

1612

1613

618

1423
1619
1871

1434
1621
1891

FARN

2460

1615

1616

1618

1408
1618
1851

705

738

801

826

845

850

2388
2410

2393
2415

2410
2467

2415
3442

2454
3445

347

}265
355«

1267+
1365

1277
1372+
1502
1677
1769

1286
1373
1512
1686
1777+

1615

1806

——

100000

8174

BIT6

31-AUG-79 11:21

MACY11

OO~ NON
NY =~y
OO~

BIT1S
BIT2

DIAGNQSTIC

2SWNWVEORES
NS 2N 2
W =2 N = 00N N =N
&
O—=' S NWOWNNOMNOD
=0 —

CINCCB
NCVIT
(2NCCB.P1T

642

650

660

685

1448
1622

1566

1079
1331
1433
1644+
1717
1969

3005
152
2419
2431
3532+

2378
2383
2436
2430
2389
2394
2449
2443
2400
2405
2462
2456
2411
2616
2475
2469
2780
2340
2427
1264
614

848

408

638
875

2036
2681

2228
3580
3080

2917
2584
24274
2437
3563
2432
2438
25774
2575~
2445
2451
2581#
2579
2458
2464
25854
25834
2471
2477
25894
25874
2813
2345
2433

1476
1669
1755+

37364

2444
3575
25654
25664

16484
1675+
1757
2043

3003

2047
3048

2056
3062

2548#

2463

25674
25684
25694
2570#

25714
25724

2834
23654
2440
465
656
880

37244
24456

2453

670
885

681
890

476

489

2459
502
704

895

2472

5646

746
908

2479
550
780
913

2487#
552
786
919

558

792

925

593

837

936

31-AUG=-7

1:21

956
973
1078
1351

1616

1727

CLRWCO= 040000

053011
0461170
043244
040104
002006
002010
002012
000015
000200
001746

2192

1254

2778
26094
2807
2376
1214
1224
1234

134
134

984
427

619+
717+

880+

958+
976+
1045
1225+
1420
1556
1640+

1772+

1928+

(SRHB
(TRCHA
CTRLCG
CURENT

001766
045774
045676
050030

DACADR
DACSR

050020
001726
001730
001732
001734
001736
040745

DACO
DAC1
DA(2
DAC3

DASH
DDISP = 177570
DEADKW
004020

OFO

333004

DH1
DH2

032467

DH3

DH&

032502

032526
032561

2196+
3294

1064

3331«
2340
1909+

MACY11
957
974

1103
1371
1618
1747

2218
737
37224

I 13

30G(1063)
31~-AUG=79
13:10 PAGE 104=3
CROSS REFERENCE TABLE == USER SYMBOLS
958
976
1126

960
977
1149
1430

962
980
1185
1495
1624
1847

2250

2496

961
978
1156
1473
1622
1824
3047

2840
28854
2387
72%
839

2392

2398

2403

386
566+
651
751

398«
567
660+

1406
1619
1766

1996

2341
353

1621
1801

754

385+
563+
643w

890~
961+
978«
1093
1246+
14636+
1613

962+
980+
1131~
1247%
1447
1615+

1671~
1806+

3283

2409

2414

966

968

1239
1545
1628
1921

1263
1587
1637
1989

969
1013
1284
1612
1668
2054

970

1030
1306
1613
1685

972
1046
1327
1615
1711

2109

2153

420

424
618+
716
875+
957+
974+

2L95A

2060

542
642
739

SEQ 0164

750+

895+

1673
1807+
1993«

900«
964+
981«
1132+
1268+
1457
1616+
1688+
1829+
1998

2254+

3563
3342
3088
1943

33464
3183

3437
33294

3542+

36164
1832

1328

989«

1142
1289+
1477
1618+
1689+
1830+

2253~

1831«

673«
779
919«
968

908+
965«
982+

2004
24697«

1952

407+
582+

1161+

1334
1489

1621+

1715+

1852+

2061
2504

3549+

410

584
685+
785+
925
969+

1001«
117
1356+
1496
1622+
1730+
1871«

L17x

597+«
686+
797

931«
970+
1003+

1180
1374
1513n
1624+

419
598+

693

798+
936+
972+
1015~
1198«
1376«
1515+
1625+

609
706

956+
973+
1017+
1207+«
1408+
1532
1627«

1752+

1753«

2067
3051+

2111«
3053«

2113«
3287+

2158+
3290«

2018

2019

45
58

1891«

1892+«

1953

1970+

1978~

1991

2009

1853~

1873

1874

1893«

1894

43
<6

42
55

37
50

39
52

1036+
1212+
1410+
1551+
1628+

1731=

1872+

ONunds
ONWO

DIAGNQST C

WS
WO

CINCCB NCVIY
CINCCB.P1Y

23304
41
54

1770+

1926+
2194+

3292+

052607
0461740
041716
046004
041706
043546
043724
043720
044130
045666
045670
045672
001142
047760

DISPRE
DIO
oLIBD
DLJCSR
DLOCSR
DLODB
00T
DSWR
=
T
D12

000174
052577
001700
001676
001702
001704
047017
177570
032724
032732

D”3
D14

032744
032760

DTS
EMTVEC=
EM1
EM10
EM11
EM12
EM13
EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31

EM32
EM33
EM34
EM35

EM36

032776
000030
030222
030575
030642
030710
030743
031001
031035
031067
031122
030262
031155
031236
031307
031362
031434
031502
031535
031573
030326
031642
031702

031743
032007
032053
032110
032175

2885
26454
26404
2761+
26344

209
30004
2764
30404
3018+
3025+
3032+
320
3449
228
2811
694
684
704

J 13

30G6(1063)
31-AUG=79
13:10 PAGE 104=4
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0165

37174

2768
2980+
2760+
249
3002
2981

3202+
2987«
2968+
2276

3035

33244
33254
2340x
3461

2345«
36064

37154
28¢1
2732%

2869
2809~

2700+

2858~

3090
33234
3036

147

3455

147

2832
2671
2666
2852
2697+

33504
3277+
2973

2991

2816+

2822+

2859

37
50

38
51

39
52

147

23264

23274

40
53

wiro

DIDATA
DIFf
DIFERR
DIFEXO
DIFEX1
DIFLIN
DIFLNX
DIFLNO
DIFLN1
DIFT1
DIFT2
DIFT3
DISPLA
DISPLY

DIAGNQSTIC

21
31-AUG=79 11:

MACY11

CINCCB NCVTT
(ZNCCB.P1T

43
56

45
58

K 13

CINCCB NCV11
DIAGNOSTIC
CINCCB.P1T
31-AUG-79 11:21
EM37

EM&

EM40
EM41
EM&2
EMS
EM6
EM7
ENDDMA=
ERMSG

2311

032307
032367
032427
030434
030475
030531
000400

64
65
66
37
38
39
1278

23124
2313
2314w
2285H
2286
2087#
570

573

699

731

764

3057

3335

335

336«

339+

351

352«

360x

365+

373«

375x

2340+

890

895

900

908

913

919

925

931

041005

26014
*

2736

2824

37104

003204
041342

247
283

2524
26104

271

291

23724

041663
052340

FIRST
FIXLIN
FMO

041744
047736
052571

26514
3537
2738

040676
060727
040741
sxxsws U
104406
040672
046072
046112
046132
046152

25954
25964
2597K
22
149
2555
2746
2747
2753
2754,

045674

3038+

FSITE

GAIN
GAINX
GAINT
GNS
=
GTSWR =
G1IB
GILIMO
GILIMI
GLIMO
GOLIMI
HT

HT2T3

037356

= 000011

INOUTZ
040356
IOTVEC= 000020
JoY
001762

JOYGY
JOYTW
JOYTX
KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=
KDPARS=
KDPARG=
KDPAR7=
KDPDRO=
KDPDR1=
KDPDR2=
KOPDR3=
KDPDR4=
KDPDRS=
KDPDR6=
KDPDR7=

284

052560

FAIMSG
FATALO

FATFNG
FIELDI

SEQ 0166

032243

030374

ERRVEC= 000004
ESCP

MACY11 30G(i063)
31-AUG=79 13:10 PAGE 104=5
CROSS REFERENCE TABLE == USER SYMBOLS

040462
040654
040654
172360
172362
172364
172366
172370
172372
172374
172376
172320
172322
172324
172326
172330
172332
172334
172336

26284
258

130

284+
3%
14

2423
2482
25914
144
144
144
14#
144
140
144
164
144
144
140
144
144
144
144
144

3219
37004

3007
3541
2828

2972
2771
2748+
149
264
2594a
2978
2979
2985
2986
2341

3043

3158
3545
3713«

3160+
35974

2990

3243

2755%
2365
23654

2969x

2485

2982w

3344

3379
3386H
33934
34004
3326

7290+
147+
830

2500

25454

875

880

24B4
2594

25734

885

CZNCCB NCVIY
CINCCB.P1T

K [PARS=

2354
2356

RNORRROS

KIPAR7=
KIPDRO=
KIPDR1=

K [PDR2=
KIPDR3=
KIPDR4=
KIPDRS=

NN NNNNNNNNNN
nony [aS1ANIANT, V1,01, V]
W

2350

K IPARG=

—

KIPDR6=
K1PDR7=
KTERR
036406
KWCSR
001740

001742
001744
000012
046006
041120
046402
045474
LISTO
046172
LIST
047015
LOGIC
003360
LooP(
041746
LOOPD
0461772
042034
LOOPE
LOOPF
0642112
L SBAVG
0461676
LSBMSG
040752
VQ
LSBSv
041700
LSBSVR
041702
LSBSW/
041704
MMVEC = 000250
MORTST= 000000
MSGK
052501
MSGMEM
052461
MSG21
041143
NARA
041730
NARS
041732
NARCNT
046056
NARMSG
041034
NARROW
041726
NARTOL
046060
NLSIT
003356
NOEXIT
043242
NOMIAL
061712
NORCNT
046052
NORMAL
0461724
NORMSG
041611
KWCSR1
KWPSR
=
LF
LIMITS
LINEA
LIST
LISTDT

30G(1063)
37114

140

2826
2352
315
317~
2089+

2136

144

320+

2352

21
31-AUG=79 11:

KFO
052562
K [PARO=
KIPAR1=
KIPARZ=
K IPAR3=
KI1PAR4=

MACY11

DIAGNOSTIC

2736

14
14H
144

144
14
144
14
144
144
144
144
144
140
144
2352

321+
2353

174+
175«

Q2N
3055
934

134
2745
26064
191

3013
189
193
185

26664
2667
2677
2693
26304
25994
26314
26324
26334
144
1324

334
324
2608#
26454
26464
3213
2603
2104*
3130
2954
2783«
26364
3215
2643
26254

31-AUG=79

13:10

L 13

PAGE 104=6

SEQ 0167

CROSS REFCRENCE TABLE -- USER SYMBOLS

2184

2242+

174

175

361

1316~

1335«

1337«

1338

3011«

176*
177«

3016
362

3017~
1336«

3023+
3010«

3024
3018

3030«
3025

3031«
3032

3045+

2977

2984

3353#

3027

32834

3311

222
2680

2984
2684

2277
2687

2698

2702

2644n

316+

318w
319«

173«

2341
2752

2354

2949
2956

2331

2366

3207
321

3224
3225

2206

2262+

2328

361+
2865

1568
2874x

28814

33684
3215

3229

3033«

3046+

3054+

OKMSG
ouT
OQUTCHN
OUTRNG

041022
041742
032716
032623

PBLAST

042754

PGO
PIRQ

053024
= 177772

POTIME
PRIME

047022
045776

PASMSG
PERTXT

041651

041556

PIRQVE= 000240
PRIMED
PRIMET
PRIMO
PRIM1
PRIM2
PRIM3
PRIM4L
PRIMS
PRIM6
PROROM
PRO
=
PR1
PRZ2
=
PR3
=
PR4
=
PRS
=
PR6
PR7
PS
PSW
=
PWRVEC=
RAMVAL

RBEGO
RDBLST

RDCHR =
RDLIN =
RDOCT =
READ
READXX
READ1
READ7
REDJOY=

046000
046002
050762
051765
052156
051536
052246
051374
051164
042232
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
000024
042172

3284+
26024
2088+
23234
23204
2627#
238
26224
2782
134
134
218
33474
33484
2744
2730
2787

mM13
PAGE 104-~7

SEQ 0168

2089
2516~
2517
3217
28214
3178«
2815

1244
1619»
1769«

1257
1621«
1922«

1373~
1622*
2110«

796+
1407+
1624+

2154

809
1433+
1625+
2193+

1032+
1476%
1627+
2221+

2095

2127+

2128

2135«

2136

2142

2174«

2175

26504

1616+
1728«

1233
1618«
1750«

504
1223+

515

522

551+

553

1066

1512+
1628+
2251

1100
1550+
1638«
3048+

3245
3179~
2836

3180«
37254

2970*
36664

2983«

3051

3288

33494

2737
2835

254
2777
2838

2699
2779
28474

2773
2781

279
2784

2841
2810

2868
2812

2995
2814

3517
2823

2825

2827

2337

23654

2788

32454
838

875

880

885

890

895

900

908

913

919

925

34334

2751«
2975

36864
36934
36804

36964

36764
36714
2830

338«
147«
2794
193#
2735

002646
043062

104410
104411
104412
045136
045354
044420
045352
000001

354
1758+
1613
1686+

9o#
1128+
1612+«
1669+

13:10

33694
33724
33734
33744

3128
3209
3132
3205
33754

31-AUG=79

CROSS REFERENCE TABLE -- USER SYMBOLS

046054
046062
046064
046066
046070
001750

31-AUG-79 11:21

MACY11 30G(1063)

NON =W
—_ = 0O
[pV IV, NIV
"]

NORTOL
NURCNT
NURTOL
OBSCNT
0BSTOL
OFF

DIAGNQSTIC

—d
ok

CZNCCB NCVI
CZNCCB.P11

3186
32504
30954
3217+
1314
931

2833
23654
285
23654
32024
3219+
819
936

2350
2808

MACY11

2749
27084
3164

239

242

197+
246

3539
23654

3543

35554

37034

172274
172276
172220
172222
172224
172226
172230
172232
172234
172236
001756

SEQ 0169

196«

2749
3261

2756
3265

2795

2804

3255

3257

248+

2274

3153

3169

2992
206
3702#

36174
210

216

219

198

456*
713«
793«

B
P
B
N
N
B

b ok
b d
b

55+

45+

2114
2227+
3291+
3104

b md
b

—_

3181
3102+

NN = O NNRON
NN
VAN
N =
=200 —
QOO NOONNNNO
N

—

1628+
1691+
1756+
1887+

(¥,]
»

480+

OO —

39«

70%

972+
999«
1078«
1166+
1248~
1327+
1613«
1509+
1616«
1668+
1718~
1801+
1989+
2162+

2420+

226

825
890+

856
936

3283«

«
83F
Q0L
«
965+
982+«
1030«
1137»
1224
1293x
1375%
1473
1559«

223

476+
583+
670+
746+

552
639+

ANNUNY —

»»

)

NN
=0 O
N NN~ 00 —
wvinL 0o S ONVNO
2N oo

408~
514
599«
682+
764«

RN
—
Ny
— 00 NN

1
SGNVL

2918
2762
3260
3341
279
221+

208+
195+

001770
041546
041554

2756+
2740
3259
265

1674
212+

&~
S
0o

SFRHB
SGNVAL

N 13

30G(1063)
31-AUG=79
13:10 PAGE 104-8
CROSS REFERENCE TABLE =~ USER SYMBOLS

23654

1404
1464

RUNITA
SAMCAM
SAMDAT
SAVREG=

SFR

31-AUG-79 11:21

2362
134
26354
2635

RE SREG=
RESVEC=
ROMPNT
ROMVAL
RTN
RTRT
RTRTA
RUNDIF
RUNIT

SDPARO=
SDPAR1=
SDPAR?2=
SDPAR3=
SDPAR4=
SDPARS=
SDPARG=
SDPAR7=
SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
=
SDPDR4
SDPDRS=
SDPDR6=
SDPDR7=

DIAGNOSTIC

CINCCB NCVI
CZNCCB.P1T

02+

961+
978«
1014+
1126+
1203+
1273~
1360
1437«
1545+
1624+
1685
1747+
1848+

2059+
2218+
3052+

SKPMSG
040761
SLASH
041141
SRO
= 177572
SR1

- 177574

SR
=
SR
=
STACK =
STATE
STDATO
STKLMT=
SWR

177576
172516
001100
041100
045630
177774
001140

SWREG
SWwO
Sw00
Sw01
Sw02
Sw03
Sw04
SW0S
SW06
Sw07
SW08
Sw09

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

Sw1
SW10
SW11
swi2
SW13
SW14
Swi5
SWw2
sw3
Swé
SWS
Swé

=
=
=
=
=
=
=
=
=
=
=

000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100

2890
2892
2894

29104
29074
2903#

2
26074
144

2092+

144
164
164
164
164
144
144
164
144
164
144
144
164
144
144
164

2245+

164
164
164

134
26054
3008
134
320
2379
22N
134
134
13#
134
134
134
134
130
134
134
134
134
134
13
134
134
134
134
134
134
130
134
134

31-AUG-79

CROSS REFERENCE

2247+

2094
2264*

2117+
2266%

13:10

PAGE 104-9

SEQ 0170

TABLE -- USER SYMBOLS

2119%
2352+

2130«

2141

2164+

2166+

2187+

2189+

2206+

2208+

2335+«
2487

2340
2489

2345
2511

2350
2518

2374
3250

2352+
147

3165
3040

147«
2385
147

33104
2390

149

2396

2401

1964

2031

1964

2031

2125

2172

3250

2489

2511

149

261

2335

2407

2379
2390

2374

2518
2401
2412
2418

=~
oonrny

043344
043336
043324
172240
172242
172244
172246
172250
172252
172254
172256
172200
172202
172204
172206
172210
172212
172214
172216

MACY11 30G(1063)

N —

SHUFO
SHUFS
SHUF6
SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPARL=
SIPARS=
SIPARG=
SIPAR7=
SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
SIPDR7=

DIAGNOSTIC

31-AUG~79 11:2

CINCCE NCVIT
CINCCB.P1Y

B 14

CINCCB NCVI1 _ DIAGNOSTIC
CINCCB.PTT
31-AUG=79 11:21
sWw7
Sw8
SW9

= 000200
= 000400
= 001000

TBITVE= 000014
TESTER
002022
TESTZ = 000002

TFSITE

TIMED

TKVEC =
TPVEC =
TRAPVE=
TRTVEC=
TSTCON=

003300

041221

000060
000064
000034
000014
000004

TSTDMA~- 000010

14
130
130

134
%

1304

003640
004512
014644
015170
015400
015602
016002
016150
016326
016460
004550

T1ST112

017116

TST110
TST111

TST113
TST114
TST115
TST116
TST117
TST12
TST120
TST121
TST122

016612
016746
017250
017406
017614
020054
020306
004612
020524
021000
021130

142

599

958
976
1088
1613
1690
2545

26104

2867

200

13
134
13
134
1294

2824

620

644

662

676

688

765

799

956

3052

3564

964
981
1227
1619
1773

965
982
1248
1621
1927

966
988
1377
1622
1994

968
990
1413
1624
2059

969
1002
1437
1625
2114

970
1004
1480
1627
2159

972
1016
1516
1628
2197

973
1018
1555
1642
2225

875

880

885

890

895

900

908

913

9i9

925

931

147«
793

958
976
1189
1552
1639
2222

960
977
1224
1612
1670
2252

961
978
1245
1613
1687

962
980
1266
1615
1713

890
961
978

895
962
980

900
964
981

908
965
982

913
966
986

657

916
968
1000

682

1051
1098
1145
1174
12174
1220
1241
1280
460
1301
1308
1329
1368
1388
14294
1467
1505
468
1541#
16124
1612

753

96 2
980
1199
1618
1754

957
974
1160
1514
1628
2195

732

961
978
1162
1616
1732
3291

956
973
1130
1478
1627
2157

2222

719

960
977
1133
1615
1716

936
972
1085
1435
1625
2112

1284

SEQ 0171

2385
239
2407

957
974
1037
1612
1672
2255

1245
1613
1687

TST1
TST10
TST1I00
TST101
TST102
TST103
TST104
TST105
TST106
TST107
TST11

C 14
MCY1T 30G6(1063)
31-AUG=79 13:10 PAGE 104-10
CROSS REFERENCE TABLE -- USZR SYMBOLS

559

594

1266
1615
1713

1287
1616
1729

340
4554

3504

2252

1074
11254
1153
1182

1077#

1235
1259
1283#
463
13054
1323
1346
13704
13934

12384
12624

14724
15084
Q720
16134

11554
1184H

13264
1350#

615

1311
1618
1751

1332
1619
1771

1354
1621
1802

925
969
1014
1375
1622
1825

964
981
1287
1616
1729
713

931
970
1035

1409
1624
1848

965
982
1311
1618
1751
747

936
972
1085
1435
1625
1868

966
986
1332
1619
1771

968
1000
1354
1621
1925

969
1014
1375
1622
1992

970
1035
1409
1624
2057

793

875

880

885

956
973
1130

1478
1627
1888

957
974
1160

1514
1628
2112

958
976
1189

1552
1639
2157

960
977
1224

1612
1670
2195

TST152
TST1S3
TST154
TST15S
TST156
TST157

AN
2oaliR
® wg Rk S *9%C8%
N

—t nd el b b
P

)

L R
R

wviLn SI\NS
S =& 23
L 3
144

NNNN

OoOnCo
W

gaowmooudé

b b

oo
~N

L T B R

)

— el ) ol b

ANIOD
= b b b d
= NGD NWNESN)
=N OO0 W

— d md wd nd wmd e b

VIO

oN=

TST144
TST145
TST146
TST147
TST1S
TST1S0
TST151

) b b d b b

TST143

—t e

TST141
TST142

2RV IINANI S

TST14
TST140

021260
021410
021540
021670
022020
004

—t b —b

T1ST123
TST124
TST12S
TST126
TST127
TST13
TST130
ST
TST132
TST133
TST134
TST135
TST136
TST137

DIAGNOSTIC
31-AUG-79 1

D 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-11
CROSS REFERENCE TABLE == USER SYMBOLS

CZNCCB
NCVIT
CINCC(B. P

98
1951

1965

2030

21314
2178»

TST16
TST160
TST161
T1ST17
TST2
1ST20
TST21
1ST22

TST23
1ST24
TST2S

1ST26
15127
TST3
TST30

TST31
TST32
TST33

T1ST34
TST35
1ST136
TST137
TST4
T1ST40

7114
7454

8174

1968
2032

19734

2035

20414

SEQ 0172

CINCCB NCVIT1 _ DIAGNOSTIC
CZNCCB.P11
31-AUG=79 11:21
010510

011566
011670
011772

TST66
TST67
TST7

TST70
TST71
TST72
TST73
TST74
TST7S
TST76
TST77
TYPDS =
TYPE

012074
012176
012300
004354
012402
012504
012606
012710
013012
013114
013216
013320
004442
013422
013524

013626
013730

014032
014134
014236
014340
104405
= 104401

TYPOC = 104402

TYPON = 106404

104403

2
2

918#
924N
9304
9354
9SéN
4164

958
960
961

960#
9614
9624

956
957

TSTS2
TST53
TSTS4
TST55
TSTS6
TSTS7
TST6
TST60
TST61

TST6S

914
920
926
932
937
412

011362
011464

010700
010774
011070
011164
011260
004244

TST62
TST63
TST64

9074

909

715743
TST44
TST4S
TST46
T1ST47
TSTS
TSTSO
TSTS1

901

010604

962
964
965
429
966
968
969
970
972
973
974
976
L4458
977
978

980
981

982
994
1008
1022
333
149

9S7#
9584

964N
9654
966N
X317
9684
6
9704
Q72N
9734
974N
9764
Q774

9784
980w
9814
9824
984N
9984
10124
1029#
2277

23654
190

3163
193

260

2335

2347

23654

2553

2557

3167

2277
2456
2790
3228
23654

SEQ 0173

912¢

188

LRRRRRARINRE

1ST4

TST42

E 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-12
CROSS REFERENCE TABLE -- USER SYMBOLS

2335
2462
2821
3231

2339
2469
2840
3236

2341
2475
2867
3239

3173
252

2343
2482
2972
3243
3269

3222
258

2345
2517
2975
3244

3227
264

2347
2555
2990
3259

3230
268

2350
2730
3161
3260

3235
262

23654
2731
3164
3261

3238
283

2430
2770
3165
3265

303

2436
277
N
3271

324

2443
2772
3181
3434

334

2449
2787
3223

IX
UNF
VALO
VAL

VAL
2
VECTAQ
VECTA1
VECTBO
VECTB1

VTCHAR
VTCSR
vICXy
VTINT
VTMAP
VTPX
v T XPOS
VvTYPOS
WARNO
w(R

F 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-13
CROSS REFERENCE TABLE -- USER SYMBOLS

041447
050034
050036
050040
001772
001774
001776
002000
001706
001716
001714
001724
001720
001722
001712
001710
052520
001752

1588+

1588

1589«

3468+

3471%

3606+

3608

3611+

527

616+
1083«
1475+

1110
1511

3049+

3285+«

1863

1883

477%
683«
1264+
1834

478
714
1285+
1849+

516+
748*
1309+
1869+

794~
1330«
1889+

595+
1033
1352+
1923+

605
1059
1431+
1990«

2055+

2155+«

640+
1127«
1549+«
2499+

214

229

234

301

1796

1819

1843

2335

2970

2988

3155

wF MODE

050024

186

201

WIDA
wiD8
WIDMSG
XTTY

041734
041736
041057
003242
042620
053034
001000

3208
3212

3232
3233

JAPRAM
PO
$APTHD
$ASTAT=
SATY(
BATY]
$ATY3
$ATYSL
$AUTOB

SEQ 0174

SELLLLTLLCLLLNSEess

b
D
)
d
e
d
D
d e
e
D

177602
177604
177606
177610
177612
UIPDR6= 177614
UIPDR7= 177616

UIPDR1=
UIPDR2=
UIPDR3=
=
UIPDRG
UIPDRS=

ed e

UDPDRS= 177632
UDPDR6= 177634
JOPDR7= 177636
UIPARO= 177640
UIPAR1= 177642
UIPAR?2= 177644
UIPAR3= 177646
= 177650
UIPARS
UIPARS= 177652
UIPARG= 177654
UIPAR7= 177656
UIPDRO= 177600

DIAGNOSTIC
31-AUG=-79 1 1:21

—t ed ed e

NCVIY
CINC(B
CINCCB.P11

37274

12282
8

035464
035440
035446
035456
001134

23494
149+

182

322

628

646
1157+
1767«

658+

1186+
1803+

$BODAT

$BELL
$C0OW1
$CHARC
$CKSWR
$CMTAG

$CM3

$CNTLG
SCNTLU
$CORE
$CPUOP
$CRLF
$CROUT
$0BLK
$082D
$OECVL
$OEVCT
$OEVM
$OIV
$DOAGN
$0T8L
$ENDAD
$SENDCT

$SENDMG
SENULL
SENV
SENVM
$EOP
$EOPCT
$ERFLG
$SERMAX
$ERROR
$ERRP(
$ERRTB

00 1126

324
324

154
1072+

159
1116+

759
386+
450
532w
601+
665
844+
919»
968+
3
1073
1152
1320«
1449
1612«
1652
1784«
1897
2075
2327
2345

1945+
389
459+
533
605+
676%
849+
925+
969+
1005+
1093
1171»
1322
1457
1613«
1659«
1785
1938»
2118
2328

}624'

173

1625+

161
1117
1627+
1952+
401+
467+
537«
609+
706+

931~

2325
1121
1628*
2011~
402

2326
1122
1649+
2018+

478+
538
610
707
856
936+
972+
1019
1100*

410+
479
542+
2*
739
858+
956+
973«
1021
1104+

2165«

2167

1180
1345
16464
1616
1680
1791
1948

1181
1365+
1466
1618+
1699+
1811«
1953«

2327

612+

045«

$BDADR

00 1250
001122

SEQ 0175

b b b

$BASE

G 14

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-14
CROSS REFERENCE TABLE -- USER SYMBOLS

N =d b cd d b

CINCCB NCVT1
DIAGNOSTIC
21
CINCCB.PI
31-AUG=79 11:

2329

2365
= 000000

147

2335

2341

2345

2347

2363

2935

3113

149
22774

2277H

2345

149
147

2341
2341

2345
2349
2994

2349

147«

2340+

2327

2328

2275
2277
2340%

23454
2325
2347

22774

2345+
2326

2329

2345

2347

CINCCB NCV1Y
CINCCB.P1T

$ERRTY
SERTTL
SESCAP
$E TABL
$ETEND
SFATAL
S$FFLG
SFILLC
$FILLS
$GDADR
$GDDAT

035304
001112
001162
001214
001256
001176
035704
001156
001155
001120
001124

DIAGNOSTIC

21
31-AUG=79 11:

MACY11
23474
23450
147+

H 14

30G(1063)
31-AUG=79 13:10 PAGE 104-15
CROSS REFERENCE TABLE == USER SYMBOLS

2340+

2341
2341
389

387«

447
503
549+

(58
509+

568

675+

845
925+
969+

913«
966+
992+«
1071»
1150+
1300
1449
1612+
1652
1783+
1857

$GTSWR

$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
$ITEMB
$K TNE X
$KTOUT

K111
$LF
SLFLG
$LPADR
$LPERR
$LSTAD
$L STBK
$MADR1
$MADR?2

030156
033056
000000
001000
033662
001104
036046
001135
001114
036300
036270
036122
001172
035703
001106
001110

2345

324
2349+

650+
826+

$GE 742

1006+
1094+
1170«
1322
1459
1615+
1678+
1790~
1877

2068+
2326

2020+
2263+

400+

466+

521+
574+
691+
850»
931+
970+

1007
1095
1175
1344+
1465+
1616+
1680
1791
1885+

402
(73

o1
479

523

528
585
723«
875+

576
705«
851
936+
972+
1020+
1099+
1179«
1345

957
974 »
1047«
1106
1232«
1367
1491
1621+
1707+«
1812
1947+

1466
1618+
1698+
1798«
1897

2074+
2327

2075

23524+

2328

3
$MAMS

418+
L83«

531+
600+
738+

880+

958+
976+
1048
1117«
1234
1386+
1497+
1622+
1720+
1816«
1948

437+
496

621
486+
533
608+

541w

631+
802

740

885+

960+
977+
1053+
1112
1256+
1387
1498
1624+
1722
1821+
1954«

964
+
981+
1061
1141+
1279
1423+
1533«
1628+
1758+
1839+

2120

2163+

2167

2205+

1911«

2013
2229+

2365

2340+

-335
2345

2347

311+
2335

2347

2084
2345

2132

2340w
382+

(32«

L474»

487+

500+

1403+

1799«

1822+

310

23524
1748

2128

2175

2182

2219

2240

23528+

147

149

2340

2341

2345

147«

147+

309+

1219

313

1240

$MADR3

$MADR4
SMAIL
1
SMAMS
SMAMS2

SEQ 0176

1980+

2340+

SMAMSSL
$MBADR
MFLG
$MSGAD
tMSGLG
MSGTY
MSWR
MTYP1
MTYP?2
MTYPY
MTYPSL
SMULT
SMXCNT
SNULL
SNWTST-

114

30G(1063)
31-AUG=79 13:10 PAGE 104=16
CROSS REFERENCE TABLE =~=- USER SYMBOLS

SEQ 0177

$RDLIN
$RDOCT
$RDSZ =
$RESRE

033410
033562
000010
036450

SRDDE(C=

$SAVR6
$S82D
$SCOPE
$SETUP=
$SIZE
$SIZEX
s$STUP -~
$SVLAD
$SvPC
$SWR

2349+
2349
2349+

001210
001212
001174
033540
001225
001231
001235
001241
036506
034372
001154
000001

035100
035102
034356
001202
001006
036054
035706
036042
035760
001170
033270

$SAVRE

033551

$OCNT
$OMODE
$OVER
$PASS
$PASTM
$POWER
$PWRDN
SPWRMG
SPWRUP
$QUES
$RDCHR

SR2A

:21

MACY11

001240
001002
035702

SMNEW

$RTNAD

DIAGNQ ST
31-AUG-7 91

-—

NCV1T
(INCCB
(INCCB.PTTY

wannnw

(030200
nrvane

2928
2341
3814

23504

23354

23354
22774

3974
5924
884
9604
9774
12174

ALY
6134
889«
9614

Q164

6374
894n

SS7#
879#
9584
976N
11844
1541
1633
19734

16124

12384
16134

20414

2083#

21314

147+

299

1962

2029

2335

2341

2345

149

2277

2335

21
485

498

924

930

16644

16844

9804
12624
16154
17104

4314
6554
8994
964N
9814
12834
16164
17264

INAY]

4554

L4634
7114

21784

6694
9074
9654
9824
1305#
16184
17434

22134

6804
9124
9664
9844
13264
16194
17654
22364

22734

2123

2170

2277«

2340

2345

350

381

9184
9684

4724
7454

9244
9654
1012#
13704

4854
7914
9304

9704

16224
18134

10294
13934
16244
18424

406

416

%3]

961

962

964

13504
16214
17954

4£98¥

8174
9354
9724
10774
16254
18624

S12#
9734

11254

16720
16274
18824

23504
253
2365

2365
2365
2365
2365

036412

036092
037234
034110
000137
036064
036342
177777
034322
000106
167400

3107

1394

23524
23404
Pl
463

71
918

3175
2340
147
312

472
745

23524

791

817
935

548

874

557
879
958

613
889

637

655

455
680
912

968
998
1350
1621
1795

$SWREG
001216
$SWRMK
- 000000
$TEMP
002004

$TEMP]
$TEMP?
$TESTIN

STIMES

050014
050016
001200
001160

30G(1063)

969

970
1029
1393
1624
1842

1012

1370

1622
1818

2277
147

2340
335w

1090=

3065*
3578+
2340+

147+
548+

879+

958+
976+
1184+
1541%

1633+

$7KB
$TKS
$TN

001146
001144
000162

2340
339

1404

31-AUG=79

972
1077
1429

1625

18€2

2345

383«

1611

$TRAP?2
=
$TRP
$TRPAD
$TSTM

037312
000015
037324
001004
001102
033516

$TSTNM
$TTYIN
$TYPBN- L8 8 2 8 21
$TYPDS
033664
$TYPE
034374

1882
2350
385

1415

787

433

36144

1426%

3578
36154

350+
592+

381«

397«
637«
894=
962+

406*

980+
1262+«
1615%
1710~

2131~

1973»

2335
274

2686
3504
4554
604
701
8744
909
9584
9764

4310
5574
66
833
895w
937
Yel,
10124

1051

1235
1346
16134
1658
17654
1878
2024

2171

2269

2341
2341
2341
23654

2277

2340+

2365
2349

2365

2345

978
1238
1613
1684

2083

3577«
3585

884»
960+
977+
1217+
1612+

SEQ 0178

974
1155
1508
1628
1902

3571
3584+

1323
15084
16284
17438
1858
19734
2126
037150
001152
001157
001150
037270

973
1125
1472
1627

3067
3579

11844

$ TNPWR
$7PB
$TPFLG
$TPS
$TRAP

13:10

L4465+
680+

655+
899+«

912«

966+
984«
1326+
1619+
1765«

964«
981«
1283«
1616%
1726
2178«

3329
366

9124
9604
9774
1074
12384
13504

16154

16644
1792
18824

2030
2173

2032
21784

472+
791«
930~
G70*
1029+
1393«
1624
*
1842+

485+
817+
935+

972+
1077+
1429+
1625+
1862+

2277

2340~

3814

3974
L4720
634
741
8844
920
964H
9814
11254
12624
1388
16194
1701
1815
19024
20414

403

4064
4984
649

412
5124

926

88ox

891
9304

984#
1153
12834
14294
16224
17104
1820
1951

1155#
1301
1467
16244
1723
1838
1963

734

16164
1681
17954
1884

463+
745%
924«
969
1012+
1370%
1622+
1818+

2273«

626

708
876

711«
918+
968«
998+
1350«
1621+
1795«

%
441

2236~

468

460
611

455«

= =2

31-AUG=79 11:21

J 16
PAGE 104=17
CROSS REFERENCE TABLE -~ USER SYMBOLS

MACY11

NN WO
-~ =S
WNWWNTOD AN

DIAGNOSTIC

N =

NCVTT
CINCCB
C(INC(B.P11

881
9184
9624
9804
1098
1259
13704
16184
16844
1797
1898

2035
2183

2210

7454

791»

2078
2220

653

20834
2232

984
1326

1619
1765

2236

462

CINCCB
NCVTT
CZNCCB.P11

$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPQS
SUNIT
SUNITM
SUSWR
$VECT]

034606
034654
034702
034716
034656
001206
001010
001220

001244
001246
$XTSTR
034126
$$GET4= 000000
$OF ILL
035101
$40CAT= AARTRWN
064002

DIAGNQSTIC

31-AUG-79 11:21

2335
2341»
23434
2343

MACY11 30G(1063)
31-AUG=79 13:10 KPIZE 10418
CROSS REFERENCE TABLE ==~ USER SYMBOLS

SEQ 0179

2341

$VECT?

.SASTA= LA2224
LHX
001000

2345
Pl
23474

2o
23545

304
2350

314
23624

324
26294

147
34294

2277

36994

23244
37334

23354
3734m

23394
37354

2340

2341

CZNCCB
NCV11
CZNCCB P11
COMMEN
ENDCOM
ERROR

DIAGNOST [ C
31-AUG-79 1:21
]

368
530
654
860
958
978

1114
1369
1613
1708

ESCAPE
GETPRI]
GE TSWR
JOYMA(
MULT
NEWTST

2023

MACY11

L 14
13:10
PAGE 105
30G(1063)
31-AUG=79
CROSS REFERENCE TABLE =~ MA(CRO NAMES

423
571
733
897
965
1009
1173
1461
1621
1793
2211

440

587

SEQ 0180

652
781
915
969
1056
1208
1500
1625
1859

RESLM

SCOPE

1184

2236

SE1PR]
SETTRA
SETUP
SETZ

SKIP

1074
1467

976
1102
1324
1582
1682
2006

972
1068
1260
1529
1628
1899

919

925

931

936

463
791
956
976
1238
1616
1765

472

485

498

1618
1795

1619
1818

980
1305
1621
1842

1625

1627

1628

1624

OFFBIT
POP
PUSH
REPORT

507
635
846
956

469
612
811
627

817

977
1262

836
958
978
1283

874
960

512
879
961
981
1326
1622
1862

548
962
982
1350
1624
1882

CINCCB NCVI1 _ DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21
1621
1761
1933

SLASH

SOF TSW

SPACE
STARS

SWRSU

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
SSCMRE
SSCMTM

$$ESCA
SENEWT

$SSET
$SSETM
$$5KIP

2024
2173

134

.FQUAT

1624
1792
1944

1625
1797
1949

1627
1813
1951

1628
1815
1956

1653
1820
1963

1658
1836
1965

1681
1838
1968

SEQ 0181
1701
1844
1999

1703
1858
2007

1705
1864
2010

1723
1878
2015

1739
1884
2017

1749
1898
2022

445
711
930
973
1184
1613
1726

455
745
935
974
1217
1615
1743

463
791
956
976
1238
1616
1765

472
817
957
977
1262
1618
179

485
836
958
978
1283
1619
1818

2030
2183

2032
2210

2035
2220

2062
2232

2070
2241

2076
2269

2078
2275

2085

2121

2124

2126

2133

2168

2171

29
512
879
961
981
1326
1622

3
548
884
962
982
1350
1624

32
557
889
964
984
1370
1625

350
592
894
965
998
1393
1627

2178

431
680
924
972
1155
1612
1710

2345

2131

616
669
918
970
1125
1541
1684

2343

2083

406
655
912
969
1077
1508
1664

2341

2041

397
637
907
968
1029
1472
1633

2340

1973

381
613
899
966
1012
1429
1628

2213

2236

2273

2277

2335

2337

406
655
912
969
1077
1508
1664
2131

416
669
918
970
1125
1541
1684
2178

43
680
924
972
11
16
17
22

445
711
930
973

455
745
935
974

463
791
956
976

472
817
957
977

485
836
958
978

498
874
960
980

512
879
961
981

548
884
962
982

134
134
498
874
960
980
1305
1621
1842

2339

134

23654
134
138
134
134
134
13
134
20
324

134
134
557
889
964
984
1370
1625
1902

23654
16474
134
626

1862

1474

1882

1902

2347

2349

2350

2352

2356

2358

2360

2362

2363

2365

2277
149

2335

2347

350
592
894
965
998
1393
1627
1973

381
613
899
966
1012
1429
1628
2041

397
637
907
968
1029
1472
1633
2083

634

649

340

366

653

666

374

403

412

429

451

460

468

806

810

833

586

604

611

961
981
1259
1618

962
982
1280
1619

964
994
1301
1621

969
1074
1346
1627
1838
2030

970
1098
1368
1628
1844
2032

972
1145
1388
16
18
20

976
1182
1612
1701

977
1220
1613
1705

1968
2183

968
1051
1329
1625
1820
2024

974
1174
1505
1681

1965
2173

966
1022
1323
1624
1815
2017

973
1153
1467
1658

1963
217N

965
1008
1308
1622
1797
2007

2070

2078

2085

2124

978
1235
1615
1723
1941
2126

980
1241
1616
1739
1951
2133

4
104
8#
¥
21
114

12
14
139
21

1749

.HEADE
KT11
.SETUP
. SWRHI
. SWRLO
.SACTI

1622
1786
1941

M 14

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 105-1
CROSS REFERENCE TABLE == MACRO NAMES

300

1761

1792

2210

2220

677

2232

701

2241

708

2269

734

741

554

859

876

CINCCB NCVIN
CINCCB.P11
.$APTB
.$APTH
.SAPTY
.SCATC
.$CKSW
.SCMTA
.$0B2D

.80V
.SEOP
. SERRO
.SERRTY
SSMULT

. SPARM
. SPOWE
. SRDOC
. SREAD
.$SAVE

.$5B82D

.$SCOP

.$SIZE
.$SPAC
. $SWD0
.$TRAP
.$TYPB
.$TYPD

.STYPE
.$TYPO

ABS.

DIAGNQOSTIC

31-AUG=79 11:21

114
11
114
14
o
o
10#

104
n
w
o
104
84
8#
104
8
8#

104
8#

104
8#
8#
84
S
o

324

32
2362

2360
2277
2345
2347
2358
2350
2337
2335
104
2363
2340
2352

2356

2365
2339
8%
2343

064002

000

2341

CON

CINCCB,CZNCCB/CRF CZNC(B
RUN-TIME: 42 31 3 SECONDS
RUN-TIME RATIO: 120/76=1.5
(59 PAGES)
CORE USED:
3 Ok

31-AUG=79

ABS

LCL

13:10

N 14

PAGE 1 05-2
CROSS REFERENCE TABLE =~- MACRO NAM cS

31
2349
22

n
n

ERRORS DETECTED:

MACY11 30G(1063)

SEQ 0182