Digital PDFs

AH-E772B-MC

January 1980

183 pages

Original

97MB

view download

OCR Version

140MB

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

OCR Text

NCV-11 DIAG

CZNCCBO

AH-E772B-MC

JAN 1980

FICHE 1 OF1 _

IN USA
MADE

IDENTIFICATION

PRODUCT

(OPYRIGHT

DIGITAL

(C)

CODE:

AC=-E771B-M(

PRODUCT NAME:

CINCCBO NCv=11

DATE :

AUGUST

MAINTAINER:

DIAGNOSTIC ENGINEERING

1978,

EQUIPMENT

THIS SOF TWARE

SEQ 0001

1679

CORPORATION,

MAYNARD,

DIAGNOSTIC

TEST

1979

MASS.

IS FURNISHED UNDER A LICENSE

FOR USE

ONLY ON A SINGLE

COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE
COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT
BE PROVIDED OR OTHFERWICLE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS.
TITLE
TO AND OWNERSHIP OF THE SOF TWARE SHALL AT ALL TIMES REMAIN IN DEC.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
DEC

ASSUMES NO RESPONSIBILITY FOR THE

N EQUIPMENT

WwHICH

IS NOT

USE

SUPPLIED BY DEC.

OR RELIABILITY OF

ITS

SOF TWARE

SEQ 0002

TABLE

CONTENTS

wo—-O
O

LOADING PROCEDURE

EQUIPMENT
STORAGE

PREL IMINARY PROGRAMS

STARTING PROCEDURE

onovuvn

WwWhu=O

SOF TWARE SWITCH REGISTER
LOGIC TEST OPTIONS

OO0

O©

ERROR REPORTING

NNNNNNN

OOWVMBEWNN—=O

MISCELLANEOUS

EXECUTION TIME

PROGRAM START

REQUIREMENTS

-0

ABSTRACT

1.0

HISTORY

0.0

PROGRAM TEST DESCRIPTIONS

FIELD ADJUSTMENT OPTIONS

CONTROL

NCV11 BUS ADDRESS MODIF ICATION
XXDP/APT NOTES
POWER FAIL

MULTIPLE NCV11
RESTRICTIONS
ADDRESS MAKER

- 10.0

LISTING

0.0

HISTORY

INTERFACE
TABLE

VERSION 'B'' WAS CREATED
#1

INSTALL

TESTING

T0:

A 2 LOCATION PATCH

THE

LOGIC

THE OUTPUT REPORT OF

DIFFERENTIAL

TEST.

#2 INSTALL A 3 BYTE PATCH TO THE M8036 MICRO-CODE.
#3 (HANGE
#4&

CORRECT

A DEFECT

IN ACCOUNTING

ERROR COUNTER.

CORRECT ERROR (ODES FOR

ENORMOUS

TWO TESTS.

LINEARITY,

ERRORS

TOTAL

1.0

ABSTRACT

SEQ 0003

THE NCV11 DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED
TO TEST ALL LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE ON THE

M8026 AND MB036.

THE M7952 DIAGNOSTIC SHOULD HAVE BEEN EXECUTED.

TOTAL PROGRAM CONTROL

IS ACCOMPLISHED THRU THE CONSOLE

TERMINAL

VIA KEYBOARD TEST SELECTION AND THE PROVISIONS OF SECTION 5.
THE PROGRAM CAN BE EXECUTED ON AN LSI=11 OR PDP=11

2.0

REQUIREMENTS

2.1

EQUIPMENT
1.

2.
3.
4.

5.
6.
2.2

PDP11

FAMILY OR LSI-11

COMPUTER.

FAMILY COMPUTER

1/0 TERMINAL (IE: LA36)
NCV11 OPTIGN INCLUDING KWVv11 REAL TIME CLOCK (M7952)
AQ17 SELF-TEST CONNECTOR (70-12894) (REQUIRED FOR SCCTION 9.2 + 9.3)
H3060 JOYSTICK (OPTIONAL)
HARDWARE TESTER AND PROM BLASTER (OPTIONAL)

STORAGE
THE PROGRAM REQUIRES

16K OF MEMORY.

IF MEMORY MANAGEMENT OR ADDITIONAL MEMORY ARE SENSED,

PROGRAM WILL USE

2.3

THE

PREL IMINARY PROGRAMS
THE

3.0

THOSE HARDWARE OPTIONS.

KWV11

DIAGNOSTIC

(MD=11-(CVKWA)

SHOULD HAVE BEEN RUN.

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

4.0

STARTING PROCEDURE

LSI:

LSIN:

000 ~NON VB

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

OPERATOR.

THE OPERATOR SELECT'S THE APPROPRIATE TEST BY TYPING THE

TEST LETTER AND ‘(R

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

PROGRAM START

SEQ 0004

STARTING ADDRESS OF THE PROGRAM
RESTART ADDRESS OF THE PROGRAM
STARTING ADDRESS FOR THE FACTORY OPTION CHECK=OUT AREA.

200
204
210

(INFORMS THE PROGRAM THE

SOF TWARE SWITCH REGISTER

5.0

SWITCH

OCTAL

FUNCTION

SwW15=1
SW14=1
Sw13=1
SW11=1
SW10=1
Sw09=1
Sw08=1

100000
040000
020000
004000
002000
001000
0004 XX

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROL
LOOP ON ERROR
LOOF ON TEST IN SWR <7-0>

FIELD ADJUSTMENT

y.5

TESTER AND BLASTER ARE CONNECTED)

SWITCH

OCTAL

FUNCTION

SW15=1
Sw13=1
SW09=1
SW08=1
SW07=1
SW06=1
SW04=1
Sw03=1
Sw02=1
SWO1=1
Sw00=1

100000
020000
001000
000400
000200
000100
000020
000010
000004
000002
000001

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

CONTROL

LSi=11:

LOOP

THE SOFTWARE SWITCH REGISTER 'SWREG' (LOC. 176) CAN BE
CHANGED BY USING THE ODT FACILITIES.
THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER 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

CONTROL BY TYPING THE

‘CONTROL & G' KEYS.

THIS

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

(CONTINUE).

THE

PROGRAM

IS PERFORMING RESET

;

BE ACKNOWLEDGE BY

'CONTROL € C' OR 'CONTROL & G'
THE PROGRAM.

INSTRUCTIONS,

SEVERAL

COMMANDS MAY BE NECESSARY TO

TESTING CAN BE ABORTED BY TYPING THE

°*CONTROL & C' KEYS.

6.0

ERROR REPORTING

SEQ 0005

ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF
THE ERROR CAN BE OBTAINED

ERROR PC OR FROM THE
7.0

TEST

[F NEEDED FROM THE

ITSELF.

COMMENT AT

THE

MISCELLANEOUS
NCV11 BUS ADDRESS MODIF ICATION

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.
MCDIFY THE HIGH THREE BITS OF LOCATION 'SVECT1' (LOC. 1244) IF
THE

INTERRUPT PRIORITY LEVEL

MODIFY LOCATION "$CDW1'
7.2

(LOC.

IS NOT

1254)

6 ON A UNIBUS

CPU.

IF BASE NCV11 CLOCK BUS ADDRESS IS NOT 770420.

XXDP/APT NOTES

THIS DIAGNOSTIC

IS CHAINABLE

UNDER XXDP

IF RUNNING UNDER XXDP/ACT/APT,
7.3

LEVEL

(REQUIRES

16K OR MORE).

THE LOGIC AND DIFLIN TESTS WILL BE RUN.

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

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

$BASE, SVECT1 AND $(DW1
Tad

(REF.

7.1).

RESTRICTIONS

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

7.6

ADDRESS MAKER TABLE
THE M8036 CONTAINS LOGIC

SEQ 0006

TO CONVERT A/D DATA INTO A RELATIVE

ADDRESS.
BELOW IS A TABLE WHICH SHOWS THE ADDRESS MAKER OUTPUT
WITH THE "TEST CONTROL'' MAINT. BIT SET.
SETTING THIS BIT ENABLES
THE STATES OF THE ''GAIN, ZB ENABLE AND RESOLUTION'® BITS SIMULATE
THE

(ONVERTED A/D DATA.

RESOLUTION
ADDRESS MAKER OUTPUT BITS
RESO REST WORD+16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00
1
1
1
1

1
1
0
0

1
0
1
0

B
S
E9°L
83
P
8
8¢
58
8
P 0 B 62
82
FRESEE

0
0

1
1

1
0

09
P9

00
0 98

9 62
OB §

P
YT
3T
661
NG

62
% 8
I

T8
93
3%
L
R
W
YIS
0
2
62
6
1
9
BRSNS

690
% 6

6%
S 2
G

62
&2

6
8

661

W
N

0 = ALWAYS A O
1

ALWAYS A

G = GAIN FLOP STATE
l = 7B ENABLE FLOP STATE
B = THE "'AND'" OF ZB ENABLE WITH 7B MAINT.
8.0

INPUT

EXECUTION TIME

LOGIC:

EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS
TO ABOUT

70 SECONDS WITH

AN END PASS MESSAGE

ITERATIONS ENABLED.

INDICATES ALL

SUB-TESTS HAVE COMPLETED.

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

THE

LOGIC

TEST

RUNTIME.

DIFFERENTIAL LINEARITY: EXECUTION TIME

IS ABOUT 90 SECONDS.

5.0

PROGRAM TEST DESCRIPTIONS

THE PROGRAM CONSISTS OF

SEQ 0007

FOUR MAIN SECTIONS PLUS THREE AUXILIARY AND

THREE FACTORY OPTION CHECK-OUT SECTIONS.

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

LOGIC TEST

(M8026 + M8036)

<NO INTERVENTION> <SETUP ONLY

THE

INDEPENDENT SUB-TESTS DESIGNED

TEST CONTAINS A SERIES OF

SA=210>

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF

THE NCV11 GAMMA CAMERA INTERFACE.

A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS
AT THE BEGINNING OF THE LISTING.
THE COMMENT FIELD WITHIN

EACH SUB-TEST TiTLE CAN BE BENEFICIAL TO UNDERSTANDING THE LOGIC TESTED.
ADDITIONAL LOGIC TESTS OF THE AO17 WILL BE EXECUTED
PROGRAM WAS STARTED AT LOC. 210.

D (M)

DIFFERENTIAL LINEARITY

THE

(A017)

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

AQ17> <SETUP

INTERVENTION ONLY>

INPUT VOLTAGE EQUALS A GIVEN CONVERTED

VALUE OR STATE.
THE TEST IS TO VERIFY THE WIDTH OF EACH POSSIBLE
STATE.
AN INPUT VOLTAGE IS RAMPED AND THE NCV11 SAMPLES THE RESULT.
THE NCV11 INCREMENTS
TO THE INPUT VALUE.

BEEN SKIPPED,

THE RESPECTIVE MEMORY LOCATION CORRESPONDING
THE PROGRAM THEN DETERMINES IF ANY STATE HAS

IS EXCESSIVELY WIDE OR NARROW. WHEN 'M'' IS USED TO

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

IN THE OPTION CHECKOUT AREA (SA 210).

5.3

FINAL ACCEPTANCE

<REQUIRES SELF=TEST CONNECTOR IN J1 ON THE A017> <SETUP INTERVENTION ONLY>
<AO17 SWITCH SET

THE

TO "MAINT.'" POSITION>

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

9.4

ADJUSTMENT OF AQ17 AT FIELD SITE

SEQ 0008

COARSE ADJUSTMENT OT THE AO17 CAN BE PERFORMED USING THIS SUB=SECTION.
THE OPERATOR MAY SELECT THE CAMERA AND GAIN TO BE

SAMPLED USING THE

SWITCH REGISTER.
A SERIES OF CONVERSIONS ARE TAKEN ON EACH CAMERA
AND THE OPERATCR IS INFORMED OF THE RESULTS.
SWITCH

OCTAL

FUNCTION

SW15=1
Sw13=1
SW09=1
Sw08=1
Sw07=1
Sw06=1
SW04=1
Sw03=1
Sw02=1
SW01=1
SW00=1

100000
020000
001000
000400
000200
000100
000020
000010
000004

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

000002
000001

AUXILIARY SECTION

9.5

OTHER TERMINAL ADDRESS

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

HELP THE

A LIST OF

9.7

OPERATOR

THE COMMANDS WILL BE

SOF TWARE

TYPED TO REFRESH THE OPERATOR'S MEMORY.

SWITCH REGISTER

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

FACTORY OPTION CHECK=-OUT

9.8

SECTION

INITIAL ADJUSTMENT OF A017

<MANUAL INTERVENTION> <SETUP INTERVENTION> <HARDWARE
<AO17 SWITCH SET 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

THE

ADJUSTMENTS.

9.9

BLASTING THE LINEARITY CORRECTION PROM

<MANUAL

INTERVENTION> <SETUP INTERVENTION> <HARDWARE

TESTER>

THE TEST IS DESIGNED TO CREATE THE LINEARITY CORRECTION PROM (LCP).

THE TESTER HARDWARE CONTAINS RAM STORAGE TO EMULATE THE LCP.
THE
PROGRAM WILL RUN DIFFERENTIAL LINEARITY. THE PROGRAM WILL THEN

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

CORRECTED LINEARITY PROM FOR THE AO17 MODULE. UPON COMPLETION

OF GENERATION AND VERIFICATION STAGE, THE_OPERATOR IS INSTRUCTED
TO REMOVE THE EMULATOR CABLE FROM THE AO17 AND INSERT THE NEWLY
CREATED LCP.
THE PROGRAM WILL RE-EXECUTE DIFFERENTIAL LINEARITY.
9.10

CONTROL PROGRAM PROM

<MANUAL

INTERVENTION> <SETUP INTERVENTION> <HARDWARE

TESTER>

THE ROUTINE WILL CREATE THE M8036 CONTROL PROM.
THE OPERATOR
MAY CREATE SEVERAL COPIES BY REPEATELY EXECUTING THIS SECTION.
THE

PROGRAM WILL

16.0

()

LISTING

THE

STEPS

TO PERFORM.

LOCATION

OCTAL

BINARY

00
01
02
03
04
05
06
07

215
244
116
144
215
244
116
144

10001101
10100100
01001110
01100100
10001101
10100100
01001110
01100100

20
21
22
23

106 (116)
144
314 (216)
304 (244)

01000110 (01001110)
01100100
11001100 (10001119)
11000100 (10100100

10
11
12
13
14
15
16
17

NOTE:

INFORM THE OPERATOR

215
244
116
144
215
244
116
The

10001101
10100100
01001110
01100100
10001101
10100100
01001110
01100100

INDICATES OLD CONTENTS OF M8036 ROM.

SEQ 0009

SITOFL

MACY11 30G(1063)

31-AUG=79

TABLE OF CONTENTS

13:10

SEQ 0010

BASIC DEFINITIONS
MEMORY MANAGEMENT DEF INITIONS
OPERATIONAL SWITCH SETTINGS
TRAP CATCHER

STARTING ADDRESS(ES)
ACT11 HOOKS

APT PM%STER BLOCK
T
COMMON
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
DESCRIPTION

VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND
FLOAT A 1 ACROSS 10 BITS OF THE COMMAND/STATUS REG.

VERIFY THAT °'‘INIT'® CLEARS THE CSR REGISTER
VERIFY THAT "CLEAR ALL'' CLEARS THE CSR REGISTER
VERIFY LOW BYTE OPERATION OF THE '‘CSR'' REGISTER

FLOAT A 1 ACROSS & 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 S;R REGISTER
FLOAT A 1 ACROSS THE
ADDRESS REGISTER
FLOAT A 1 ACROSS THE OFFSET REGISTER

VERIFY NO DUAL REGISTER SELECTION

VERIFY 'CLR ALL'' CLEARS THE EXTENDED OFFSET BITS
TEST THE "ACTIVE'® FLOP CAN SET AND CLEAR
VERIFY Z INPUTS CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGEIN MATRIX MODE
VERIFY Z INPUTS CAUSE THE LOW 16 BITS OF 32 BIT COUNTER TO CHANGE
VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE
VERIFY Z INPUTS CAUSE THE HIGH 8 BITS OF THE
IT COUNTER TO CHANGE
VERIFY
Z INPUTS DO NOT CAUSE THE LOW 8 BI TS OF 32 BIT COUNTER TO CHANGE IN LIST MODE
TEST THAT 'WCA OVFL'' SETS 2/WC
OVERFLOW
FLOP
AND 'CLR ALL''
CLEARS IT

Q%A

o~ P~
e
e PN
—d

DIAGNOSTIC

31-AUG=79 11: 21

NCVI

"TM

CINCCB

CZNCCB.P11

TEST THAT 'WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND
TEST THAT "WCA OVFL'' GENERATES AN INTERRUPT

VERIFY

‘WCA OVFL''

CLEARS

'ACTIVE

VERIFY JOYSTICK DONE FLOP SETS

VERIFY THAT "RESET'®
JOYSTICK DATA PATH
JOYSTICK
JOYSTICK
JOYSTICK
JOYSTICK
JOYSTICK

DATA PATH
DATA PATH
DATA PATH
DATA PATH
DATA PATH

"CLR WC OVFLTM

INSTRUCTION CLEARS THE JOY READY FLOP
7B ENABLE =0 RES. = 000

= GAIN =0
= GAIN =1
=
RES. =
RES. = 010
RES. =

VERIFY THE DATA INCRZMENT FUNCTION

CLEARS IT

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

912

918
924

T4
T6éh

935

146

930

956
957
958
960
961
962
964
965
966
968
@00
970
972
973
974
976
977

978
980
981
982
984
998

1012

T4S

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

13:10

SEQ 0011

VERIFY THE DATA INCREMENT CARRY BIT

VERIFY THE DATA INCREMENT FUNCTION IS INHIBITED
VERIFY THE DATA DECREMENT FUNCTION

VERIFY THE DATA DECREMENT BORROW

VERIFY THE DATA DECREMENT FUNCTION IS INMIBITED

T47
TS0
T51
152
153
TS
T55
T56
157
T60
T61
T62
T63
T64

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

= MATRIX MODE = RES = 7 GAIN = 0 ZB ENABLE = 0
- MATRIX MODE - RES = 7 GAIN = | 7B ENABLE = 0
=~ MATRIX MODE = RES = 7 GAIN = 0 ZB ENABLE = 1
=~ MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 0
=~ MATRIX MODE = RES = 6 GAIN = 1 ZB ENABLE
= 0
- MATRIX MODE - RES = ¢ GAIN = 0 28 ENABLE = 1
=~ MATRIX
MODE = RES = 5 GAIN = 0 ZB ENABLE
=0
=~ MATRIX MODE - RES = 5 GAIN = 1 ZB ENABLE = 0
=~ MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = |
= MATRIX MODE = RES = 4 GAIN = 0 ZB ENABLE = 0
=~ MATRIX MODE =~ RES = 4 GAIN = 1 ZB ENABLE
= 0
=~ MATRIX MODE = RES = & GAIN = 0 ZB ENABLE = 1
=~ MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 0
=~ MATRIX MODE = RES = 3 GAIN = 1 ZB ENABLE
= 0

T70
T71
T72
T73
76
75

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

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

T65
T66
T67

T76

TEST ADDRESS MAKER
TEST ADDRESS MAKER
TEST ADDRESS MAKER

TEST ADDRESS MAKER

=~
=~
=~

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

LIST MODE - ZB ENABLE = 0

GAIN = 1

1029
1077

T77
T100

ENABLE A ONE WORD TRANSFER
ENABLE A 512 WORD TRANSFER

1184
1238
1262
1283
1305
1326
1350
1370
1393
1429
1472
1508
1541

T103
T104
T105
T106
TI07
TI10
T111
T112
T113
T11%4
T115
T116
T117
T120

VERIFY *‘TIMEOUT'' INTERRUPT
VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16
VERIFY INCREMENTING INTO EXTENDED
BIT 17
VERIFY "SET EVENT'' DATA GENERATES A 1
DATA WORD
VERIFY [SET TINE' DATA GENERATES A 000000 DATA WORD
VERIFY [TLOCK STI" GENERATESA EVENT (17 7 7)
DATA WORD
VERIFY 'TLOCK
GENERATES A TIME (000000) DATA WORD
VERIFY "SET TIME'' OVERRIDES ‘SET EVENT'' DATA
DO A ONE WORD MATRIX MODE TRANSFER
~CHECK FOR INCREMENT FUNCTION
VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH
.
CHECK FOR 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

1125
1155

1217

T101
1102

SECTION LIST MODE
SECTION, LIST MODE

VERIFY ‘‘TIMEOUT'' FLOP SETS AND 'TLR ALL'‘ CLEARS IT
VERIFY 'TIMEQUT'' FLOP SETS AND 'TLR TIMEQUT CLEARS IT

1612
1613

T121
T122

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

= 13
=~ 12

1619

T126

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 08

1615
1616
1618

1621

T123
T124
T125

T127

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

=~ 11
= 10
= 09

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET =~ 07

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

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

13:10

1622
1624
1625
1627

1130
T131
T
T‘|§‘

VERIFY A 1
VERIFY A 1
VERIFY A 1
VERIFY A 1

1633

1135

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

1743

T14

VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MuUX

}6 ?

1664
1684
1710
1726
1765
1795
1818
1842
1862
1882
1902
1973

2041
2083
213

2178

2213
2236
2273
2277
2279
2335
2337
2339
2340
2341

1136
1137
1140
T141
T14
T144
T145
T146
1147
T150
T151
T152

T153
T154
T155

T156

WORD MATRIX MODE XFR USING OFFSET
WORD MATRIX MODE XFR USING OFFSET
WORD MATRIX MODE XFR USING OFFSET
WORD MATRIX MODE XFR USING OFFSET

SEQ 0012

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

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
VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MUX

USING ZB ENABLE

ONE MATRIX DATA TRANSFER TO

EACH 4K EXTENDED MEMORY

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

VERIFY BIT 15 MATRIX ADDER INPUT

1157
VERIFY HIGH BYTE OPERATION OF THE °'TEST X'’
1160
VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER
T161
DETERMINE IF DIFLIN IS TO BE RUN (F)
END OF PASS ROUTINE
ERROR ASCII 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 ROUT INE
ERROR MESSAGE TYPEOUT ROUTINE
APT COMMUNICATIONS ROUTINE
POWER
AND UP ROUTINES

2358
2360
2362
2363
2365

INTEGER MULTIPLY ROUTINE
INTEGER DIVIDE ROUTINE
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE
TRAP DECODER

(3)
2371

- 02

CHECK FOR HIGH BYTE "INC OVFL'' TO SET CELL OVERFLOW
VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER
(TESTER ONLY)
VERIFY EACH BIT OF THE MIGHER 16 BIT Z COUNTER (TESTER ONLY)
VERIFY THAT CAMERA ?1 CHANNEL IS OPERATIONAL
(TESTER ONLY)
VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL
(TESTER ONLY)
VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL
(TESTER ONLY)
DYNAMIC MATRIX MODE ADDRESS
DYNAMIC LIST MODE ADDRESS
DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28K

2343
2345
2347
2349
2350
2352

= 06
= 05
= 04
- 03

ROUTINE TO SIZE
Y
SAVE AND RESTORE RO-R5 ROUTINES

TRAP TABLE
A TO D FIELD SITE AND ADJUSTMENT LOOP

CINCCB NCV11 _ DIAGNOSTIC
CINCCB.P11 |
31-AUG-79 11:21
1
2
3
4

:
6

12
(1)
1)
fl;

MACY11 30G(1063)

31-AUG=79

13:10

PAGE 1

:DEVELOPED USING SYSMAC.C3
LIST
ME
.nusr MD ,MC, CND

167400
000001

LENABL

ABS,

$SWR=167400
$TN=1

.TITLE CINCCB NCV11
DIAGNOSTIC
:*«COPYRIGHT (C) 1979
:«DIGITAL EQUIPMENT CORP.
.-mvm. MASS. 01754

fl;

:*PROG!M BY RAYMOND SHOOP

1)
fl ;

-nus PROGRAM WAS ASSEMBLED
ms THE PDP-11 MAINDEC SYSMAC
-mcucs (MAINDEC=11=DZQAC=C3), JAN 19, 1977.

(1)

“SBTTL BASIC DEFINITIONS

001100

flg

:«INITIAL ADDRESS OF THE STACK POINTER #x% 1100 #w«

STACK= 1100
.EQUIV

EMT,ERROR

.EQUIV 10T.SCOPE

;:BASIC DEFINITION OF ERROR CALL

2 BASIC DEFINITION OF SCOPE CALL

:»MISCELLANEOUS DEF INITIONS

1)
1
1)
(1)
1)

000011
000012
000015
000200
177776

HT=
LF=
CR=
CRLF=
PS=

11
12
15
200
177776

::CODE FOR HORIZONTAL TAB
::CODE FOR LINE FEED
:CODE FOR CARRIAGE RETURN
S2CODE FOR CARRIAGE RETURN-LINE FEED
: :PROCESSOR STATUS WORD

(1)
1)

177774
177772

STKLMT= 177774
PIRQ= 177772

:;STACK LIMIT REGISTER
*PROGRAM INTERRUPT REQUEST REGISTER

177570

DDISP=

: :HARDWARE DISPLAY REGISTER

(1)

1)
a1
(1)
(1)
(1)
(1)
(1)
1)
(1)
g;
(1)

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

177570

.EQUIV

DSWR=

PS,PSW
177570

177570

: SHARDWARE SWITCH REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

RO=
R1=
R2=
R3=
R&=
RS=
R6=
R7=
SP=
PC=

000000
000040
000100
000140
000200
000240
000300
000340

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

%0
11
X2
13
%
15
16
X7
16
17

:GENERAL REGISTER
*ZGENERAL REGISTER
*:GENERAL REGISTER
::GENERAL REGISTER
+GENERAL REGISTER
+:GENERAL REGISTER
: ;GENERAL REGISTER
*GENERAL REGISTER
22STACK POINTER
* :PROGRAM COUNTER

s*PRIORITY LEVEL DEFINITIONS

0
40
100
140
200
240
300
340

::PRIORITY LEVEL 0
::PRIORITY LEVEL 1
*:PRIORITY LEVEL g
::PRIORITY LEVEL
*:PRIORITY LEVEL &
*:PRIORITY LEVEL S
*:PRIORITY LEVEL 9
*:PRIORITY LEVEL

SEQ 0013

CZNCCB

NCVTT

31-AUG=79

BASIC DEF INITIONS

13:10

2
PAGE 1-1

21
31-AUG=79 11:

MACY11 30G(1063)

N
N
N
SN
S
N
SN
N
N
SN
N
SN

;%' 'SWITCH REGISTER'" SWITCH DEF INITIONS

SW15=

100000

SWwié=
40000
SWw13=
20000
SW12=
10000
SWwil=
4000
SW10=
2000
1000
SW09=
SWw08=
400
Sw07=
200
SW06=
100
SW05=
40
SW04=
20
Sw03=
10
4
SWw02=
R
1
SW00=
SW09,Sw9
LEQUIV
.FQUIV SWO08,Sw8
LEQUIV SW07,Sw7
LEQUIV SW06,SW6
LEQUIV SWO0S,SwWS
SW04,SWé
LEQUIV
EQUIV SWO03,Sw3
LEQUIV SW02,Sw?
LEQUIV SWO1,sw1
.EQUIV
SWO00,Sw0

N
N
-

N
N
N
N
N
S
N
N
N
N

ST SR

ST YR

T YN YR

T N Y

SN Y

J——

PN~
.~~~ T~~~ T~~~ T~~~ P~~~ T~~~ T~~~ P

————— Y

- e o

NN PN

- A

N PN

CZNCCB.PI

DIAGNOSTIC

:*DATA BIT DEFINITIONS (BITO0 TO BIT15)
BIT15=
10000
BIT14=
40000
BIT13= 20000
BIT12=
10000
BIT11= 4000
BIT10=
2000
BIT09=
1000
BIT08=
400
BITO7=
200
BITO6=
100
BI1T05= 40
BITO4= 20
BITO03=
10
BIT02= 4
BITO1=
2
1
BIT00=
EQulv BIT09,BIT9
.EQUIV BIT08.BIT8
.EQUIlv BIT07,BIT7
.EQUIV BIT06,BIT6
.EQUIvV BITOS5,BITS
.EQUIV BIT04,.BIT4
.EQUIv BIT03.BIT3
EQulv 8I1T02,.BIT2
EQulv BITO1,.BITI
EQulv B8IT00,BITO

SEQ 0014

MACY11

30G(1063)
31-AUG=79
BASIC DEF INITIONS

13:10

PAGE

1-2

SEQ 0015

)

DIAGNOST IC
CINCCB NCVTT
CZNC(B.P1?
31-AUG-79 n :21

S
N
S

BPTVEC=
IOTVEC=
PWRVEC= ¢4

S S

NN TN

EMTVEC= 30

PN N PN NN
N PN NN N PN NN PN N PN PN PN PN PN PN PN TN PN PN PN oSS
———————————_ Y
R
I
sg g
A
4
4
S
.g G

TBITVEC=
TRTVEC=

N—a—n—.—l‘\
orrro

i N S

RESVE(C=

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES

(=
ERRVE

TRAPVEC=34
TKVEC=
60

PN N S

TPVEC=
64
PIRQVE(C=240

..fl$§figYED AND ILLEGAL INSTRUCTIONS
;. TRACE

TRAP

; ;BREAKPOINT TRAP (BPT)
:: INPUT/0OUTPUT TRAP (]OT) =*SCOPE
=+
; ;POWER FAIL
..EHULATOR TRAP (EMT)

MEMORY MANAGEMENT DEF INITIONS

MMVEC=

250

N N

;*KT11 VECTOR ADDRESS
00025¢C

177572
177574
177576
172516

s N N
N N N
N S

177600
177602
177604
177606
177610
177612
177614
177616

N N

177572
17 7574
17 7576
17 2516

UIPDRO=
UIPDR1=
UIPDR2=
UIPDR3=
UIPDR4=
UIPDRS=
UIPDRé=
UIPDR?7=

17 7600
17 7602
17 7604
17 7606
17 7610
17 7612
177614
17 7616

;*USER 'D'' PAGE DESCRIPTOR REGISTORS
177620
177622
177624
177626

177630

177632
177634
177636

UDFDRO=
UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=
UDPDRS=
UDPDR6=
UDPDR7=

177620
17 7622
17 7624
177626
17 7630
177632
17 7634
17 7636

N N

N~ T~~~ T~~~
P P PN
T
S
YT YR
T YR YN
YR Y
Y
Y
W
N W N
Y

SRO=
SR1="
SR2=
SR3=

STATUS REGISTER ADDRESSES

;*USER "'I'' PAGE DESCRIPTOR REGISTERS

e N N

N N

;*KT11

N N

e N

;*USER "'I'" PAGE ADDRESS REGISTERS
177640
177642
177644
177646
177650

UIPARO=
UIPAR1=
UIPAR2=
UIPAR3=
UIPAR4=

177640
177642
177644
177646
177650

*+ERROR**

2iTTY KEYBOARD VECTOR
,,TTY PRINTER VECTOR
;PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

TIME OUT AND OTHER ERRORS

N
N
NN

177652
177654
177656

177676

N
T
N
N

UIPARS= 177652
UIPAR6= 177654
UIPAR?7= 177656

UDPAROQ=
UDPAR1=
UDPARZ2=
UDPAR3=
UDPAR4=

UDPARS=
UDPAR6=

UDPAR7=

177660
177662
177664
177666
177670
177672
177674
177676

N
N
N
N
N
N

g
S

172220
172222
172224
172226

172230
172232
172234
172236

172240

SDPDRO= 172220
SDPDR1= 172222
SDPDR2= 172224
SDPDR3= 172226
SDPDR4= 172230
SDPDRS= 172232
SDPDR&= 172234
SDPDR7= 172236

;*SUPERVISOR "‘I'" PAGE ADDRESS REGISTERS

Nl NP N

i N

;*SUPERVISOR 'D'' PAGE DESCRIPTOR REGISTERS

NN
PN PN TN

—————_— Y

PAGE 1-3

SIPDRO= 172200
SIPDR1= 172202
SIPDRZ2= 172204
SIPDR3= 172206
SIPDR4= 172210
SIPDRS= 172212
SIPDRé= 172214
SIPDR7= 172216

N
N

;*SUPERVISOR "'1'" PAGE DESCRIPTOR REGISTERS

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPAR4=
SIPARS=

SIPAR6=

SIPAR7=

1 3:10

ON
MEMORY MANAGEMENT DEF I NITIONS

N
YT W
T ST YT YR

.~~~ T~~~

31-AUG=79

177660
177662
177664
177666
177670
177672
177674

QO Y

YO (O

J— S

P~~~ T~~~ T~ T~ T~ T~~~ T~~~ T~

MACY11 30G(10€3)

;*USER 'D'' PAGE ADDRESS REGISTERS

NN TN

g8 4

NN PN

N PN

CINCCB NCVTT
DIAGNOSTIC
21
CZNCCB.F11
31-AUG=79 11:

172260
172262
172264
172266

SDPARQ=
SDPAR1=
SDPAR2=

172272

SDPARS=

172270

SDPAR3=

SDPAR4=

SEQ 0016

CINCCB NCV1T
DIAGNOSTIC
CZNCCB.P11
31-AUG=79 11:21

(1)

§};

172274

172276

('{;
(

1)
1)
(1)
1)
N
)
(1)
(};
(

SDPAR6= 172224

172300
172302
172304
172306
172310
172312
172314
172316

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

172300
172302
172304
172306
172310
172312
172314
172316

;*KERNEL 'D'' PAGE DESCRIPTOR REGISTERS

(1)
(1)
(1
(1)

172320
172322
172324
172326

KDPDRO=
KDPDR1=
KDPDR2=
KDPDR3=

(1)
@D
m

172332
172334
172336

KDPDRS= 172332
KDPDR6= 172334
KDPDR7= 172336

(1)

172330

(1;
()

172320
172322
172324
172326

KDPDR4= 172330

:*KERNEL ''I'"' PAGE ADDRESS REGISTERS

172340

KIPARO= 172340

172346

KIPAR3= 172346

()
(1)
(1)
(1)
(1)
E};

172342
172344

172350
172352
172354
172356

g;;

KIPAR1= 172342
KIPAR2= 172344
KIPAR4=
KIPARS=
KIPARG6=
KIPAR7=

172350
172352
172354
172356

;*KERNEL ‘D'' PAGE ADDRESS REGISTERS

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

172360
172362
172364
172366
172370

KDPARO=
KDPAR1=
KDPAR2=
KDPAR3=
KDPAR4=

(1)
g})

172374
172376

KDPAR7= 172376

(1)

172372

172360
172362
172364
172366
172370
KDPARS= 172372
KDPARG6= 172374

)

172760

140370
170420

ABASE=172760

AVECT1=140370
ACDW1=170420

SEQ 0017
‘

SDPAR7= 172276
;*KERNEL "'I'' PAGE DESCRIPTOR REGISTERS

(};
(

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

;NCV11 BASE ADDRESS

:BR LEVEL 6 VECTOR TO 370
sNCV1T CLOCK ADDRESS

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

§
(

(

SWITCH

HALT ON ERROR

e
P
i

13
11
10

INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR

USE

LOOP ON TEST

9
B
TRAP CATCHER

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

NN NN

OPERATIONAL SWITCH SETTINGS

i
i
"SBTTL

(
(

SEQ 0018

.SBTTL

e N N

(
(
(

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

s s N N S

(

000000

.=0

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

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

NO NSNS

s *LOCATION 04CWTA1NS 0 TO CATCH IMPROPERLY LOADED VECTORS
=17

000174

000176

000174

000000

DISPREG:

000000

SWREG:

000200
000204
000210

000137
000137
000137

002034
002014
002022

000100

000100
000104

000200

.SBTTL

000002

.WORD

STARTING ADDRESS(ES)

JMP
JMP
JMP

.=100

;:SOF TWARE DISPLAY REGISTER

;:SOFTWARE SWITCH REGISTER

a#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM
RTRT
JRESTART ADDRESS
TESTER
;STARTING ADDRESS WHEN IN THE OPTION AREA

104,200,2

;B EVENT SAFE GUARD

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

LSBTTL

)

§2)

13:10

¢
FAGE 3

SEQ 0019

ACT11 HOOKS

.‘".".'."".."'.'...‘..".....'..'.'....'.'..'.."'..'.""....

(@D

(1)
(1)
(1)
(N
(1)
(1)

MACY11 30G(1063)
31-AUG-79
ACT11 HOOKS

000046

000052

000106
000046
030166
000052
000000
000106

001000

:_l'fl

;HOOKS REQUIRED BY A(CT.?

$SVP(=.
=46
$ENDAD
.=52
.WORD
O
.=$SVP(

LSBTTL

.=1000

;SAVE PC
J:1)SET LOC.46 TO ADDRESS OF SENDAD [N .$EOP

;32)SET LOC.S52 TO ZERO

;2 RESTORE PC

APT PARAMETER BLOCK

(2)

".'"...".".'...t'...."".."..'.*'.".."t.""."'Q...""".

ab)

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

(2)

001000

(1)

000024

(1)

000044

1)
(1)

(2)

.$X=.

::SAVE CURRENT LOCATION

000200

200

::FOR APT START UP

001000

$APTHDR ;;POINT

000024

001000

=, $X

;sPOINT TO APT INDIRECT ADDRESS PNTR.
TO APT HEADER BLOCK

;JRESET LOCATION COUNTER

. ‘.'."'...'..'..'.‘.’.."..."'...'.Q..‘..."."‘.."..Q.‘.Q""

;INTERFACE

(1)

001000

(1)

001006

(1)
(1)

=44

;.SET POWER FAIL TO POINT TO START OF PROGRAM

SETLP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC

(;;

(1)
(1)
(1)

=24

000044

ab)
(

'""'..'.'...'.*.....'.."'.........'....'.'.'.‘....'..".'..."'

001000
001002
001004

000000
001174
000030

001010
001012

000030
000031

000010

$APTHD:

SPEC.

$HIBTS:
SMBADR:
$TSTM:

.WORD
.WORD
_WORD

0
SMAIL

$UNITM:

_WORD
.WORD

30
::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL
SETEND-SMAIL/2 :;LENGTH MA]LBOX~-ETABLE (WORDS)

$PASTM:

_WORD

::TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
: ;ADDRESS OF APT MAILBOX (BITS 0=15)
;;RUN TIM OF LONGEST TEST
:2RUN TIME

IN SECS.

1ST PASS ON 1

UNIT

(QUICK VERIFY)

UNIT

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

MACY11 30G(1063)
31-AUG=79
COMMON TAGS
.SBTTL

)

13:10

2
PAGE 3-1

SEQ 0020

COMMON TAGS

52)

::Qt'.l.tttt"'t‘..t.'ttt".tttttt.'t.!l.Qtt'.ttQQt!tttt'.t.t'QQQ

(})

:*JSED IN THE PROGRAM.

&D)

:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

(1)

1)
(1)
(1)

001100

000000

(1)

001104

000000

001110
001112

000000
000000

001116

000000

001124
001126
001130
001132

000000
000000
000000
000000

(1)
(1)

001102
001103

(1)

001106

(1)
(1)

(1)

(1)
(1)

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

001114
001115

001120
001122

(1)
(1)

001134
001135

(1)

001140

(1)
(1)

001154
001155

(1)

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

(1)

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

001100

000
000

001157

012

177607
077
015

001172

000000

000012

$SLPERR:
$ERTTL:

.WORD
.WORD

.WORD

000377

:;CONTAINS THE TEST NUMBER
:;CONTAINS ERROR FLAG

:CONTAINS SCOPE LOOP ADDRESS

::CONTAINS SUBTEST ITERATION COUNT

0
O

:;CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED

O
1

.WORD

$GDDAT:
$BDDAT:

.WORD
.WORD
.WORD
.WORD

0
O
O
O

.WORD

.WORD
.WORD

::START OF COMMON TAGS

O
0

$SERRPC:

:;CONTAINS ITEM CONTROL BYTE
::CONTAINS MAX. ERRORS PER TEST

:;CONTAINS PC OF LAST ERROR INSTRUCTION

O
O

::CONTAINS ADDRESS OF
:;CONTAINS ADDRESS OF

°'GOOD' DATA
'BAD' DATA

:;CONTAINS 'GOOD' DATA
::CONTAINS °'BAD' DATA
: :RESERVED--NOT TO BE USED

O
0

;AUTOMATIC MODE INDICATOR
:; INTERRUPT MODE INDICATOR

DSWR

: ;ADDRESS OF SWITCH REGISTER

$NULL:
.BYTE
$FILLS: .BYTE

0
2

:;CONTAINS NULL CHARACTER FOR FILLS
::CONTAINS # OF FILLER CHARACTERS REQUIRED

$TPFLG: .BYTE

.WORD

DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566

000

001164
001170
001171

001162

SWR:

000
002

000000

.WwORD

$AUTOB: .BYTE
$INTAG: .BYTE

177570

001160

$ICNT:

$GDADR:
$8DADR:

000
000

177570
177560
177562
177564
177566

S$ITEMB: .BYTE
$ERMAX: .BYTE

000000
000000

001142
001144
001146
001150
001152

.WORD

$LPADR:

000
001

000000

' +=1100

$TSTNM: BYTE
$ERFLG: .BYTE

000000

001136

001156

$CMTAG:

$FILLC:

.BYTE

$TIMES:

$BELL:
$QUES:
$CRLF:

.ASCIZ
L.ASCII
L.ASCII

$ESCAPE :0

$LF:

ASCIZ

DDISP

:;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS
::TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS

;2 INSERT FILL CHARS. AFTER A ‘LINE FEED''

;2" 'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
::MAX.

NUMBER OF

ITERATIONS

;;ESCAPE ON ERROR ADDRESS

<207><377><377> ::CODE FOR BELL
72/
;;QUESTION MARK
<15
: ;CARRIAGE RETURN
<12

;sLINE FEED

":tt.ttttttttQtt'tt.fittt.t'ltt't't.ti.tt'tttttttt!t'tl""t"'tt.

.SBTTL

(3)

.';'tltttttt'tttQtttttttl'ttttttttttfitttltttttt.ttlt.ttt"ttttfittt

(2)

001174

(2)

001206

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

(2)

APT MAILBOX-ETABLE

.EVEN

001174
001176
001200
001202
001204

000000
000000
000000
000000
000000

001210

000000

SMAIL :

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

.WORD
.WORD
.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEVCT

$MSGAD: .WORD

AMSGAD

SUNIT:

_WORD

AUNIT

::APT MAILBOX

;:MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;TEST NUMBER
;;PASS COUNT
;;DEVICE COUNT

;:;1/0 UNIT NUMBER

; ;MESSAGE ADDRESS

CINCCB NCV11
CZNCCB.P1T

(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)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

DIAGNOST I C
31-AUG=-79 1 1 :21

MACY11 30G(1063)

31-AUG-79

APT MAILBOX-ETABLE

$MSGLG: .WORD
SETABLE:

$ENV:
$ENVM:

$SWREG:
$USWR:
$CPUOP:

.BYTE
_BYTE

.WORD
.WORD
.WORD

13:10

AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

. %

PAGE 3-2

SEQ 0021

J sMESSAGE LENGTH
;APT ENVIRONMENT TABLE
; ENVIRONMENT BYTE
; ;ENVIRONMENT MODE BITS
;:APT SWITCH REGISTER

..USER SWITCHES

;CPU TYPE ,OPTIONS
BITS 15-11=CPU TYPE
11/704=01,11/705=02,11/20=03,11/40=04,11/45=05

11/70-06 PDQ=07,0=10

$MAMS1:
$MTYP1:

.BYTE
.BYTE

. %

:t
I*

$MADR1:

.WORD

AMAMS1
AMTYP1

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
;sHIGH ADDRESS
. M.S. BYTE

::MEM. TYPE _BLKM

MEM.TYPE BYTE

===

(HMIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
SO0 NSEC MOS=003
;sHIGH ADDRESS,BLK#1
MEM. LAST ADDR =3 BYTES,.THIS WORD AND LOW OF "‘TYPE'' ABOVE
;:HIGH ADDRESS ,M.S. BYTE
--FEH TYPE .BLKN2
MEM.LAST ADDRESS.BLK#2
..HIGH ADDRESS ,M.S.BYTE

..FEH I’YPE.BLMS

; sMEM.LAST ADDRESS.BLK#3
..HIGH ADDRESS ,M.S.BYTE
: JMEM. TYPE BLKM
lEH LAST ADDRESS ,BLK#
..XNTEWT VECTORN1,BUS PRIORITY#1

: : INTERRUPT VECTOR#28US PRIORITY#2

..gg%cebbkfss OF EQUIPMENT UNDER TEST

2 ;CONTROLLER DESCRIPTION WORDA#1

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

NN PNINNPNNPNONPNTNPN
-

DIAGNOSTIC
CZNCCB NCVI
CZNCCB.PT
31-AUG=79 11:21
Wed ad e e B e d o o B D e b o o
(“vvvvvvvvvvvvvvv

.SBTTL

13: 10

J 2

PAGE 3-3

SEQ 0022

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBE R _FOUND IN

'LOCAT!W SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
:

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

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

TO THE
TO THE
TO THE
TO THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

URYBEELEERLRS E

88 N¥ UK

:sPOINTS
;:POINTS
;:POINTS
;:POINTS

33004
030475
033004
030531
033004
030575
033004
030642
033004
030710
033004
030743
033004
031001
033004
031035
033004
031067
033004
031122
033004
031155
033004
031236

0%3004

031362
033004
031434
033004
031502

032502

032732

EM1,DH2,DT2.DFO

;M8026

NCV11

032502

032732

EM2,DH2,DT2.DFO

:M8026

COMMAND-STATUS REGISTER ERROR

032502

032732

EM3,DH2,DT2,DFO

:M8026

SPECIAL FUNCTION REGISTER ERROR

032502

032732

EM&4,DH2,DT2,DFO

:M8026

WORD COUNT REGISTER ERROR

032502

032732

EMS5,DH2.DT2,DFO

:M8026

BUS ADDRESS REGISTER ERROR

032502

032732

EM6,DH2,.DT2,DFO

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

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

EM24 ,DH2,DT2,DFO

:M8026

LIST MODE TRANSFER OFFSET ERROR

032502

032732

EM25,DH2.,DT2,.DFO

:M8026

TIMEOUT STATUS ERROR

TIMEOUT

MATRIX MODE ADDRESS MAKER DATA ERROR

DIAGNOSTIC
CINCCB NCVIT
CZNCCB.P11
31-AUG=-79 11:21

032502

MACY11 30G(1063) 31-AUG-79
ERROR POINTER TABLE
032732

13:10

PAGE 3-4

SEQ 0023

EM26,DH2,DT2,DFO

:M8026

TIMEOUT INTERRUPT ERROR

EM27,DH2,DT2,DFO

:M8026

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

831 573 032502 032732

032502

032732

EM30,DH2,DT2,DFO

:M8026

CELL INCREMENT DATA ERROR

032502

032732

EM31,DH2,DT2,DFO

;M8026

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 ,DHé ,DT4 ,DFO

:M8026

DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY

032502

032732

EM36,DH2,DT2,DF0

:M8026

LIST MODE TRANSFER STATUS ERROR

032526

032744

EM37 ,DH3,DT3,DFO

:M8026

LIST MODE TRANSFER DATA ERROR

032502

032732

EM40,DH2,DT2,DFO

: JUMPER-MB026-M7952

032467

032776

EM41,DH1,DT5,DFO

:M7952

CLOCK TIMEOUT

032427
033004

032467

032724

EM&2,DH1,DT1,DFO

:M8217

INTERRUPT LEVEL ERROR

57
58

ESFELERZE

8IR RER 833 X ANYITE

031702

176514
176516

"EVENT'' OR "TIME'' MARK ERROR

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

;VSV01 A?gRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT)
VTICHAR:
5600
;CHAR. STATUS

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

DACSR

DACO:
DAC1
DAC2
DAC3

172602
172603
172604
172620
172622
172624
172630

;MAP STATUS

17641

KNOWN GOOD D/A STATUS

176420
176422
176424
176426

CZNCCB NCVIT
DIAGNOSTIC
CZNCCB.P11
31-AUG=79 11:21

82 KRR

90
N
92
93

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

001740
001742
001744

[

PAGE
4

SEQ 0024

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

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

ABASE
ABASE +2

SFRHB:

ABASE+11

WCR:

100
101
102
103

ABASE
+4

HEBRNERRURNNESnIc
A ran 2o I8IRIR

13:10

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

—

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

:NCV11 PROGRAM GENERATED VECTORS (THE OPER. ONLY HAS TO CHANGE LOW 9 BITS OF "SVECT1")

140370
140372
140374

140376

AVECT1
AVECT1+2
AVECT1+4
AVECT1+6

sNCV11 PROGRAM GENERATED BR LEVEL (THE OPER. ONLY HAS TO CHANGE TOP 3 BITS OF °'SVECT1")

P
p— g J— — p— —g—— —y—
Y
N\
T

W
W

VECTAQ:
VECTA1:
VECTBO:
VECTB1:

002010
002012

BRLEV:

300

STEMP:
CPUDLO:
CPUDLT:
CPUDL2:

0O
1
20
&

;BR LEVEL 6

CLRWCO=BIT14
CLRALL=BIT1

ENDDMA=BITS8
TSTDMA=BIT3
TSTCON=BIT2
TESTZ=8BIT1
REDJOY=BITO

MORTST=0

;DEFINE TO RESTORE TEST CODE

147
M

002044

(1)
M
1)
(1)
(1)
a1
(1)
(1)
(1)
(1)
(1)
1)
)
a1
(1)
(1)
(1)
(1)
(1)
(1)

002044
w
002056
002060
002064
002072
002100
002106
002114
oomg
8351
136
002144
002152
002156
002162
002170
002176

2
2

(2)
(2)
(2)
)
2
(2)
%3]
(2)
%
2

(2)

002206
002210
002216
%g
0022640
002262

012706
oos%g
2
001374
012706
012737
O1
01
01
01
01
01
01
01
005037
005037
112737
012737
012737
0137646
012737
012737
012737
2777
001012

050024
0500

050032

BEGIN:

001100
001140
001100
034110
340
035104
70

000020
oooog(z,
0000
0000
0000
0000
4
13 0301
001160
001162
000001
001115
002170 001106
002176 001110
000004
og;gu. 000004
177570 001140
177570 001142
177777

000176

PAGE S

AGAN

;SET RESTART FLAG

RTRTA
WFMODE
AGAN

B8R
CLR
CLR

JSET FLAG INDICATING OPTION AREA MODE

RTRTA
WFMODE
AGAN

:CLEAR FLAG INDIC. OPTION TEST AREA MODE

MOV
#SCMTAG,R6
::FIRST LOCATION TO BE CLEARED
CLR
(R6)+
*SCLEAR MEMORY LOCATION
TM
#SWR,R6 ; :DONE?
BNE
.~6
;:L00P BACK IF NO
MOV
#STACK, SP
“3SETUP THE STACK POINTER
::INITIALIZE A FEW VECTORS
MOV
OPE, a¥10TVEC ;10T VECTOR FOR SCOPE ROUTINE
MOV
#1OTVEC+2 ;:LEVEL 7
MOV
uamsc :;EMT VECTOR FOR ERROR ROUTINE
MOV
#3460, 90EMTVEC+2 ;:LEVEL 7
MOV
FSTRAP umrves ::TRAP VECTOR FOR TRAP CALLS
MOV
#3460, SFTRAPVEC+2; LEVEL 7
MOV
FSPRDN
C’ ;:POMER FAILURE VECTOR
MOV
#3460, @MPURVEC+2 ;:LEVEL 7
MOV
SENDCT,SEOPCT ::SETUP END-OF-PROGRAM COUNTER
CLR
STIMES
SSINITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
$3CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
:SALLOW ONE ERROR PER TEST
MOV
#. .SLPADR
SSINITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#. . SLPERR
::SETUP THE ERROR LOOP ADDRESS
;:SIZE FOR A HARDWARE
SSEQUAL TO A

176700

64$:
001140

001142

(2)

%22 76

%07%;

001202

001215

%g%

001403
012737

000200

001216

001140

RTRTA:
.SBTTL

13:10

INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA

002264 012716 002252
012

INC

BR
TESTER: INC
CLR

005037 050024

005037

'RTRT:

658:

MOV
MOV
MOV
MOV
P
BNE
BR
:?'1’

3r2c 333

8853'.33

050032

144
145
146

?
1"
NSS 7
7

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

141
1
1%

N
(%]

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

678

*~1°",

SWITCH REGISTER. IF NOT FOUND OR IT IS

SETUP FOR A SOFTWARE SWITCH REGISTER.

SFERRVEC,-(SP)
#64S SVERRVEC
#DSWR, SWR
#DDISP,DISPLAY
658
#65$, (SP)

;:SAVE ERROR VECTOR
::SET UP ERROR VECTOR
$:SETUP FOR A MARDWARE SWICH REGISTER
::AND A HARDWARE DISPLAY REGISTER
*:TRY TO REFERENCE HARDWARE
SSBRANCH IF NO TIMEOUT TRAP OCCURRED
SCAND THE HARDWARE
SWR IS NOT = SSBRANCH IF NO TIMEOUT
S:SET UP FOR TRAP RETURN

#SWREG, SWR

;;POINT TO SOFTWARE SWR

(SP)+,a#ERRVEC

; ;RESTORE ERROR VECTOR

SPASS

:;CLEAR PASS COUNT

#SSWREG, SWR

s sYES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER

#DISPREG,DISPLAY
z;:TSIZE.SEM

s TEST USER SIZE UNDER APT

SEQ 0025

CZNCCB

NCVI1 _ DI

CZNCCB.P11

TIC

31-%93 11:21

MACY11 30G(1063)

TYPE PROGRAM NAME

149
1)

(1) 002314 005227 177777
a)
001044
1)
832737 030166 000042
a)
1440
1)
104401 002400
)
)
005737 000042
2
101;
)
3
001214 000001
)
;2 oz};'g?
2)
001140 000176
)
001005
) % 1
)
00040
g;

%33;2

(1)

002376 000415

150

112737

000001

112737
012737

000103
003212

155
156
157
158
159
160
161
18
163
164

002456
002460
002466
002470
002472
w

010120
062701
022700 001766
001372
013710 001250
220
013710 001250
00250%
1
002510 013701 001244
0025164 0101

166
167
168
169
170
171
17
174
175
176
177

177437
01
002002
062701 160000
010120
005721
022700 002002
1 BUD 001254
013737 001740
013737 001740
005237 001742
062737
2

153 002446 012700 001746

15¢ 002452 013701 001250

002534
002536
002540

e
S4

002562
002570
002574

.SBTTL

;?%’

PAGE 6

INC
-1
:FIRST TIME?
BNE
688
:SBRANCH IF NO
TM
#FSENDAD,a#62
.:ACT=112
aeo
w
+BRANCH IF YES
TYPE
TYPE ASCIZ STRING
GET wuéroa SOF TWARE suircu REGISTER
ST
w62
:;ARE WE RUNNING UNDER XXDP/ACT?
BNE
70$
: :BRANCH IF YES
(P8
SENV.M
::ARE WE RUNNING UNDER APT?
BEQ
708
:BRANCH IF YES
TM
SWR, #SWREG
:SOFTWARE SWITCH REG SELECTED?
BNE
718
:SBRANCH IF NO
GTSWR
:3GET SOFT=SWR SETTINGS
B8R
718
MOVB

#1,SAUTO8

688

CASCIZ

<CRLF>WCINCCB

::SET AUTO-MODE INDICATOR

:GET OVER THE ASCIZ

NEVI1 DIAGNOSTICA<CRLE>

MOVB
MoV

#'C.RUNIT
:LOAD ‘TONTROL'* SECTION BUS TRAP FLAG
MTN’ UERRVEC
:LOAD BUS TRAP RETURN ADDRESS

MOV
ADD
TM
BNE
MOV
INC
MOV
ADD
MOV
MOV

R1, (RO)+
#2.R1
#CSRHB RO
18
$BASE , (RO)
(RO) +
S$BASE, (R0)
211, (RO) +
SVECT1.R1
R1.R2

BIC
MOV
BIC
MOV
ST
cTMP
MOV
%
MOV
MOV
INC
ADD

#177437.R2
BRLEV
#160000,R1
R1, (RO)+
(R1)+
#VECTB1+42,R0
$CDW1
g KWCSR
KWCSR.KWCSR1
KWC SR KWPSR
KWCSR1
#2.KWPSR

MOV

18:

MOV

SWAB

001744

N 2

.SBTTL PRIME THE NCV11 msses FROM THE DEFAULT VALUES

052410
000004

001740
001742
001744

13:10

.SBTTL TYPE PROGRAM NAME
::TYPE THE NAME OF THE PROGRAM IF FIRST PASS

&gos:

002432
002440

165

001134

151
152

31-AUG-79

mséR1

GET ADDRESS POINTER

esr DEFAULT ADDRESS
*LOAD AN VALUE
*BUMP THE VALUE
STEST IF DONE
*BR IF NOT
:LOAD ODD BYTE
*ADDRESSES

*GET DEFAULT VECTOR
:COPY R1
*EXCHANGE BYTES
*STRIP OFF ALL BUT BR LEVEL BITS
*SAVE FOR USE LATER
*CLEAR OFF BR LEVEL
*LOAD VECTOR
*BUMP THE VALUE
-TEST IF DONE
;GET CLOCK ADDRESS
:SET CLOCK HIGH BYTE ADDR.
*SET CLOCK PRESET ADDRESS

SEQ 0026

CZNCCB NCV11
DIAGNOSTIC
CZNCCB.P1
31-AUG-79 11:21

005737
001017
105737

.SBTTL

050032

001134
177777

050022

3%:

e
R

(%:

NOWnSsrWN=O

VIS

i
b

)

ESLSTNT
ST NNV 1,N]

ST
BNE
TSTB
BEQ
MOV
JMP
TST

BEQ

TYPE

.SBTTL
GO :
RBE

047015
052410

1%:

052410
052411
052410

052410

3%:

050022
043546
000106

052410

A ¥

177777

050022

LOGIC

WFMODE

052410

78:

052410

10%:
118:

052410
12%:

:YES:;

RUN LOGIC AND DIFLIN TESTS

:YEST IF OPTION CHECKOUT MODE
:BR IF YES

LIST

;TELL OPERATOR ABOUT

KEYBOARD COMMAND DECODER
RDLIN

LIsSTM

;PRINT 'DOT"'

a(SP)+,RUNIT
#40 RUNIT
#' ', RUNIT+1

;GET THE CHARACTER
;ENSURE UPPER CASE

;READ

:BR_IF NOT

BLAST
#'D,RUNIT
4%
RUNDIF

DIFLIN
#'F RUNIT

LOGIC
WFMODE

POT IME
#'L RUNIT
7$
RUNDIF
LOGIC
#'H RUNIT
108
BEGIN
#37 ,RUNIT
118
BEGIN
WFMODE
12%
#'T RUNIT
12%
BTALK
WFMODE

TEST

JFIX ASCII MESSAGE

TFSITE
WFMODE

THE

THE RESPONSE

;DETERMINE IF AN A
:BR IF NOT

6%:

;TEST IF ACT/API

:BR IF NOT
;INDICATE TO RUN DIFLIN IN CHAIN MODE

;TELL OPERATOR ABOUT OPTION AREA TESTS

TYPE

#'1,RUNIT

052410

TEST IF RESTART

:BR IF YES

LISTO

#-1,RUNDIF

042020
050024

042272
000104

000124

RBE GO
$AUTOB

#'S,RUNIT

052410

SEQ 0027

Dé:gNOSTlC IDENTIFICATION TYPEOUT

#'A _RUNIT

2%:

002034
050024

31-AUG=79 13:10 PAGE 7
30G6(1063)
DIAGNOSTIC IDENTIFICATION TYPEOUT

EES ST O?\OO 28IBIFRRER 23

179

MACY11

JRUN SITE ADJUSTMENT LOOP
;TEST IF ON THE TESTER

;DETERMINE
:BR IF NOT

IF AN B

;DETERMINE

IF AN D

JRUN THE BLASTER SECTION

:BR IF NOT
;INDICATE DIFLIN IS NOT TO BE RUN
JAND RUN IT
:DETERMINE IF AN F
;BR IF NOT
;INDICATE RUN DIFLIN AFTER THE LOGIC TEST
JAND RUN LOGIC TEST
;TEST

IF OPTION CHECKOUT MODE

:BR IF NOT
sJDETERMIN IF AN I
:BR IF NOT

:RUN IN-HOUSE ADJUSTMENT LOOP
;DETERMINE IF AN L

:BR IF NOT
;INDICATE NO DIFLIN
;DETERMINE IF AN H
:BR IF NOT
;START OVER

:DETERMINE IF AN ‘"'
:BR IF NOT

:START OVER
sTEST

IF OPTION CHECKOUT MODE

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

:KEYBOARD LOOP WITH BLASTER
JTEST IF OPTION CHECKOUT MODE

CZNCCB NCVTT
CZNCCB.P1T

003114
003116
003124
003126
003132
003140
003142
003146

DIAGNOSTIC

31-AUG-79 11:21

MACY11 30G(1063)

31-AUG=79

13:10
KE YBOARD COMMAND DECODER

BEQ

000103

052410

042754
000117

052410

13%:

003242
000123

052410

14%:

000115

052410

000377
043546

050022

15%:

138

#'C,RUNIT
13$
PBLAST

#'0,RUNIT
14$
XTTY

#'S,RUNIT

i5%

RBE GO

#'M_RUNIT
FATFNG

#377 ,RUNDIF
DIFLIN

PAGE 7-1

;BR IF NOT
JDETERMINE IF AN C
;BR IF NOT

JRUN M8036 PROM BLASTING CODE
;DETERMINE IF AN O

;BR IF NOT
sCHANGE THE TTY ADDRESS
;DETERMINE IF AN S

;BR IF NOT

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

SEQ 0028

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

251

252
253

003204
003206

104401
001170

258

003212

104401

260

003220

254

257

259

003210

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

BUSTRP: TYPE,

011646

261
262

003222
003226

005777
100001

175712

1%:

264

003232

104401

052430

2%:

XTTY:

2222

003230

000000

003236

000137

002014

268

003242

104401

052520

270

003250

012600

003256
003262

012701
010021

267

269

271
272
273

274
275

276
277

278
%3
281

003246

003252
003254

003264
003266

003272
003274

104412

001373
000137

001144

1%:

001154

002044
051164
041342
040356

287

003322

142737

000040

003352

C€00002
037356

040356

288
289
290
291

223%

294
295

003352

003330
003336
003340
003346

122737
001003
012737
000137

000131

003354
003356

000000
000000

003352

000000

LB 1
BPL

aSwR
2%

JTEST IF HALT ON ERROR
;BR IF SET

TYPE,

RUNITA

TYPOC

HALT
JMP

RTRT

:GET TRAP ADDRESS

:FATAL BUS TRAP DETECTED
;RESTART

TYPE,

WARNO

;TELL THE OPERATOR THE RULES

MOV

(SP)+,R0

;READ THEIR INPUT

MOV
MOV

#$TKS ,R1
RO, (R1)+

;GET POINTER
:LOAD THE VALUE

BNE
JMP

1%
RTRTA

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

RDOCT

JLISTEN TO THE OPERATOR

TST
CMP

(RO) +
R1,#8TKS+10

:BUMP VALUE
JTEST IF DONE ALL ADDRESSES

:OPERATOR CHOSE THE FIELD ADJUSTMENT LOOP

104401
104401
005037
104411

013637

:REPORT FATAL TRAP TO THE OPERATOR

(SP) ,=(SP)

BEQ
FATFNG
:BR IF JUST ''CR"’
TST
(RO)
;ADDRESS THE DEVICE AND CHECK BUS TRAP
;IF NO BUS TRAP = THEY MUST KNOW WHAT THEY ARE DOING !

003300
003304
003310
003314

003316

:TYPE QUESTION MARK

:ROUTINE TO INPUT NEW TTY ADDRESS FROM THE OPERATOR

282
283
284
285

286

RBEGO

FATALO

MOV

001754
005710

005720
020127

PAGE 8

JRETURN TO HERE UPON UNEXPECTEC BUS TRAP

052340

003216

263

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

FATFNG: TYPE
$QUES

000616

104402

TFSITE: TYPE,
TYPE,
CLR
RDLIN

MOV

a(SP)+,10%

(MPBR
BNE
MOV
JMP

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

BICB

003352

1%:

10%

PRIM6
FIELDI
INOUTZ

ADNOKT: 0
NLSI11: O

#40,10%

:TELL OPER. ABOUT A017
;ASK THE OPERATOR FOR INPUT Z MODE
;DEFAULT TO USER SUPPLIED Z PULSES
;READ OPER. INPUT

:GET CHAR

;ENSURE UPPER CASE

:TEST FOR 'Y' INPUT
:BR IF NOT 'Y’
sSET MAINT Z CONSTANT
:NOW DO THE LOOP
:LAST ADDRESS WITHOUT M.M. OR XXDP
;NON=ZERO INDICATES LSI=11 PROCESSOR

SEQ 0029

NCV11
CZNCCB.PI
CZNC(CB

000005
005737
001124
005737
001402

MACY11

30G(1063)

052246
036122

5%:

036402

036402
003354
036122

TYPE,

CLR
JSR
SuB
TST

1%:

BEQ
SUB
MOV
MOV

JSR
TST
BPL

i ad

WWWWWWWWWW

b cd

MOV
MOV

E 3

PAGE S

2s:

:TEST

$KT11

;INDICATE NO KT11

PRIMG

PC,$SIZE

#1000, $LSTAD

G2
1%
#3200. ,$LSTAD
. ADNOK T
$LSTAD

FIRST PASS

;SIZE BASIC MEMORY SIZE
sPROTECT ABSLDR
JTEST

IF XXDP CHAIN MODE

$KT11
28

:TEST IF KT11
;BR IF NOT

PC,$S1ZE

#200,

a#K IPAR1

#400,

3#K IPAR?

#774606,
a#K IPDR1
#774606.
34K IPDR3
#7600,
34K [PAR7
#774606,
3K IPDR7
zguroe

;BR IF NOT CHAIN MODE
sLEAVE ROOM FOR XXDP MONITOR
;SAVE BASIC MEMORY STACE

JWITH MM,

sDETERMINE THE AMOUNT OF MEMORY
IS HERE

:4K, UP R/W FOR 60000
;1/0 PAGE MAP
;4K, UP, R/W FOR 1/0 PAGE ACCESS
:TEST

AUTO MODE

;:BR IF AUTO MODE

;TELL OPERATOR THE AMOUNT OF MEMORY

;GET LAST GOOD BANK

RO,=(SP)

052501
000004
003632

002004
000004

177776
002004

000004

003356

;:BR IF NOT
:CHECK IF ON TESTER
:BR IF NOT
sTELL OPERATOR CABLE MUST BE CONNECTED

#BIT7,$KT11

052461
036404

003356

SEQ 0030

$PASS
TST1
WFMODE
13

#7740
34K IPDR2
6,

BRKE
324

RESET
TST

BNE
TST
BEQ

050024

307

31-AUG=79

13:10
KEYBOARD COMMAND DECODER

LOGIC:

001202

BRCK

003362
00

DIAGNOST IC
31-AUG=79 11:21

MSGK

SNERRVEC ,STEMP
#38 ,a¥ERRVE(
NLSIT
PSW

3%:

STEMP ,a#ERRVE(
TST1

NLSIT?

;s CONVERT
;TYPE

OUT DEC.

VALUE

;AND THEN TYPE OUT THE REMAINDER OF MEMORY MESSAGE
;SAVE LOC & VALUE
;LCAD LOC 4
:INDICATE NOT A LSI-11 CPU
;SHOULD FAIL IF LSI-N
JRESTORE LOC & VALUE
;J:BR IF TEST
JSET AN LSI-=11 FLAG
JRETURN

CINCCB NCVTT
DlAGM)ST%%
CINCCB.P11
31-AUG=79
11:21

MACY1T 3??(1063)

31-AUG=79 13:10 PAGE 10
VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND

350

"."t.'.!."'"'*.Qt'.."tt"fi..Qt'."t'."t...t."".."Q'.'Q.'..Q

(3)

S*TEST 1

(3)

(2)

003640

000004

(1) 003642 012737 000100 001160
351 003650 013737 000004 004016
352 003656 012737 003754 000004

353

354
355
356
357
358
359
360
361
3%2
3%3
364
35
366
37

368

VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND

".'tt..."".t.fi".."Q.""fi.Qtt"..fit.Q.Qt.'."'.'.".'....'QQ'.

003664

003670
003674
003700
003704
003710
003714
003720
003726
003732
003736
003744
003752
003754
003756

005777

005777
005777
005777
005777
005777
005777
012737
005777
005777
012737
013737
000423
022626
104001

176056

003764

104041

374

004002

377
278

004016
004020

000000
000000

SCOPE

MOV
MOV
MOV
ST

#100,$TIMES
NERRVEC, 108
#1$, MERRVE
aCSR

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

176054
ST
Q0FF
:
176052
1ST
aWCR
“THE
176050
ST
aBAR
:
176046
ST
aSFR
SNCVTT
176044
ST
QADM
:
176044
TST
aBAR1
*ADDRESSES
003762 000004
MOV
#2$ , ¥ERRVE (
*LOAD NEW RETURN
176006
ST
aKWCSR
*TEST CLOCK
176006
ST
aKWPSR
*ADDRESSES
:TEMP FIX THE DIAG TC NOT USE CLOCK JUMPERS
000001 004020
MOV
#1,DEADKW
:INDICATE NCV11 CLOCK IS NOT THERE
004016 000004
MOV
108 ,a¥ERRVE(
;RESTORE THE BUS TRAP VECTOR
B8R
1ST2
::BR AND TEST THE NCV11
1%:
CMP
(SP)+,(SP)+
:CLEAN THE STACK
ERROR

3%9 003760 000411
370 003762 022626
371

TST1:

28:

372 003766 012737 000001 004020
373 003774 013737 004016 000004
'

375 004006 013737 004016 000004
376 004012 000137 030100

‘BUS TRAP WHEN REFERENCING THE NCV11

ERROR

TST?2

:CLEAN THE STACK
‘BUS TRAP WHEN REFERENCING THE NCV11 CLOCK
“INDICATE NCY11 CLOCK IS NOT THERE
*RESTORE LOC 4

BR
cMP

MOV
MOV
3%:

MOV
JMP

10%:
0
DEADKW: 0O

3
(SP)+,(SP)+

#1,DEADKW
108, SERRVE C
108 , AERRVE
$EOP

:RESTORE BUS TRAP VECTOR
CEXIT
;NON=ZERO SAYS NO NCV11 (LOCK

SEQ 0031

CINCCB

NCV11

CINCCB.P11

DIAGNOST£$

31-AUG=79

11:21

MACY11 3?2(1063)

31-AUG=79

13:10

PAGE 11

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

SEQ 0032

".'t.'QQ't..'.t'tt"t'tQ'.t"'Q'.Qtt"Qfittt.ttt..titl.t'tfitt"t'.t

S*TEST 2

(3)

(2)

(1)

382

004022

004026

004032

000004

012737

000100

004046

001160

TS§12:

001110

385 004046 012777 002004

175672

386
387
38
389
390
gg}

004054
004062
00407C
004076
004104
004106

017737
013737
052737
023737
001401
104002

175666
002004
000200
001124

001126
001124
001124
001126

393
39,

004110
004114

006237
022737

002004
000001

002004

004122

001351

SCOPE

MOV

#100,$TIMES

MOV

#BIT11,$TEMP

MOV

3332 004040 012737 004000 002004

ggg

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

:;t't..'.tt.t"ttttt'tt.tt'.ttt.Q.t.tQt..tt"'t.'.tt.t.""tt't.'

#1$, $LPERR

1%:

MOV

MOV
MOV
BIS
CMP
BEQ
ERROR

aCSR, $8DDAT
STEMP, SGDDAT
#81T7,$GDDAT
$GDDAT, $BDDAT
2%
2

2%:

ASR
MP

#1,STEMP

BNF

$TEMP,aC( SR

::DO 100 ITERATIONS

:LOAD LOOP ADDRESS

;LOAD INITIAL REG. VALUE

:LOAD CSR REG.

*READ CSR
:LOAD EXPECTED
*FUDGE THE 'READY'' BIT
*COMPARE THE VALUES
::BR IF SAME
SUNEXPECTED VALUE IN THE (SR REGISTER

$STEMP

:TRY THE NEXT DATA BIT
STEST IF NOW BIT 0

‘BR IF NOT

397

;"'t.'.t.'..tttttttt'..."tl.ttQQQQ'.Qt".t..'.Q.tt'tfi'.'.'."t't

(3)

SeTEST 3

(3)

(2)
(1)

004124
004126

000004
012737

399

004142

000005

398

400
401
402
403

28§

VERIFY THAT “‘INIT'' CLEARS THE CSR REGISTER

."-Qttttfitttttttt'ttit.ttttt.tQ.Qt't.tt..tttl.t..'.'t.ttt't't't.'t

004134

004144
004152
004160
004166

004170

012777

012737
017737
023737
001401

000010

007776

000200
175570
001124

001160

TST3:

SCOPE
MOV

175604

MOV

RESET

001124
001126
001126

MOV
MOV
CMP
BEQ

104002

ERROR

#10,$TIMES

#7776,3CSR
#81T7,$GDDAT
aCSR, $8DDAT
$GDDAT , $BDDAT
TST4

;:DO 10 ITERATIONS

:LOAD CSR REG.

SINITILIZE THE REGISTER

::BR IF

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

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

(.%

;;ttt".t0tt.tttfi'.t.t't't't..l..t.t.".t.tt..t'.ttt"'."t't'tQt

(3)

SxTEST 4

(3)

(2)
(1)

004172
004174

000004
012737

000010

001160

408

004210

012777

004000

175540

407

409
410
411
412

413

004202

004216

004224
004232

004240

004242

012777

012737

017737
023737
001401

104002

007776

000200
175516
001124

175536

001124

001126
001126

TST4:

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

R R AR RN AR R AR AR AR AR R AR AR AR R

SCOPE
MOV

#10,STIMES

MOV

#CLRALL ,@SFR

MOV

MOV
CMP
BEQ

ERROR

#7776,3CSR

R R AR AR AR RARARARARAR AR

::DO 10 ITERATIONS

:LOAD CSR REG.

:GENERATE '‘CLR ALL L'

#BI1T7,.$GDDAT

aCSR, $8DDAT
$GDDAT , $BDDAT
TSTS

:LOAD EXPECTED VALUE
;:BR

*READ THE CSR REG.
:COMPARE VALUES

SAME

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

CZNCCB NCVTT
CZNCCB.P1T

DIAGNOST 1C
31-AUG-79 11:21

MACY11

416

30G(1063)

31-AUG=79 13:10 PAGE 12
VERIFY LOW BYTE OPERATION OF THE ''CSR'' REGISTER

SEQ 0033

:;ttQtttttt.Qt.t..Qt.t..'tttl..t...Q.t".'t..tlt.".'t.t't'lt'...

J*TEST 5

(3)
(3)

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

;:t"tttt'lt"tttttt.tt."iltt.t..tt..t..lt..'."'..'.'tt'tt'tttt

(2)
1)
417
418
419

000100

001160

003600
175452
175446
001124

001124

003636
000
175432
175406
001124

1STS:

175464

001126
001126
175424

001124

1%:

001126
001126

SCOPE

MOV
MOV
MOV
CLRB
MOV
TMwP

BEQ
ERROR

#100,8$TIMES
#3636,aCSR
#3600,8GDDAT
aCSR
aCSR,$BDDAT
$GDDAT ,SBDDAT

MOV

1%
2
#3636,aCSR

CLRB
MOV
CTMMP
BEQ

aCSRHB
aCSR,$8DDAT
$GDDAT ,$8DDAT
TST6

MOV

ERROR

#236,8GDDAT

2:D0 100 ITERATIONS
;LOAD CSR REGISTER
;LOAD EXPECTED VALUE
sCLEAR LOW BYTE
:READ STATUS REG.
;COMPARE VALUES

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

:LOAD CSR REGISTER

;LOAD EXPECTED VALUE

;CLEAR HIGH BYTE OF THE CSR
;READ STATUS
:COMPARE VALUES
;:BR IS SAME

;CLEARING HIGH BYTE OF CSR CHANGED THE LOw BYTE

:;Qttttttt.'ttt.ttttt't.t"ttttlfi'ttttt..fittt't'tt.t'tt.'t".'.tt

;*TEST 6

FLOAT A 1 ACROSS 4 BITS OF

THE SPECIAL FUNCTION REGISTER

;:t.l'ttttltttt.tttltt.ttt.ttttt'tttttt'ttitt.tt"ttt'.."t'tfit.t

000004
012737
012737

013777
017737
013737

023737
001401

104003
006237
022737
001354

004372
000020

001110
002004

002004
175352

175356
001126
001124
001126

001124
002004
000001

002004

TST6:

1%:

2%:

SCOPE

MOV
MOV
MOV

MOV
MOV
CMP
BEQ

ERROR
ASR

CTMMP
BNE

#1$ ,SLPERR
MITL STEMP

;LOAD LOOP ADDRESS
;LOAD INITIAL REG. VALUE

STEMP ,aSFR

;LOAD SFR REG.

aSFR,SBDDAT
STEMP ,SGDDAT
$GDDAT ,$BDDAT
2%
3

STEMP

#,STEMP
1%

JREAD SFR
;LOAD EXPECTED
;COMPARE THE VALUES
;:BR IF SAME

JUNEXPECTED VALUE IN THE SFR REGISTER
;TRY THE NEXT DATA BIT

sTEST IF NOW BIT 0O
:BR IF NOT

;:ttttttttttt'tttt.t.fit'.t'lfitt'Q.tt.t.'t.!...fi.'tt't.t..tt"tt'Q

;*TEST 7

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

:;t'ttttttttttttt.ttt't.tt'ii.tt'.ttt.tfi.t.tt.'tttttttttfit'!fi'.tt

1ST17:

SCOPE
MOV
MOV
MOV
CLRB
MOV
(W,

BEQ
ERROR

#10,STIMES
#14 ,3SFR
#14 ,SGDDAT
aSFRHB
@SFR,$BDDAT
$GDDAT ,$SBDDAT
TST10
3

;:D0 10 ITERATIONS
:LOAD THE S.F. REGISTER
;LOAD THE EXPECTED VALUE
:CLEAR HIGH BYTE OF S.F. REG.
:READ THE REGISTER
:COMPARE THE VALUES

;:BR IF SAME
;CLEARING HIGH BYTE OF CSR REG. CHANGED THE LOwW

CINCCB

NCV11 _ DIAGNOSTIC

CZNCCB.P1

31-AUG=79 11:21

MACY11 30G(1063)
110

455
000004
012737

R AR

0045
004532
004536
004544
004546

000005
005037
017737
001401
104003

0045;8

012777

AR A AN

AR AAAA AR AR AR

AR AR R AR AR AR,

VERIFY THAT “‘INIT'' CLEARS THE SFR REGISTER

000016

SCOPE
MOV
MOV

#10,$TIMES
#16.aSFR

001124
175214

CLR
MOV

$GDDAT
aSFR, SBDDAT

ERROR

000010

AR AAAAAAAAAA

SEQ 0034

AR AR A AR AR AR AR AR AR AR AR RAAAAAARAARERARAAARAAAAARA
AR AR AR
d

T$110:

RESET

BEQ
AR

1sT11

R AR AR A AR AR A AR AR

S*TEST 11

::D0 10 ITERATIONS
:LOAD SFR REG.
:INITILIZE THE REGISTER
:LOAD EXPECTED
:READ SFR REG.

::BR IF EQUAL

:'BUS INIT'*

AR AR ARAA AR

AR AR

FAILED TO CLEAR SFR REG.

AR AR AR AR

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

012777
052777
005037
017737
001401
104003

000010

000016
004000
001124
175152

012737

R3S

;;'t'ttt..t'.t.t..."..fi"tt..ttt.t.."."!Q.Q.Q."'Q.t.fi"'tttt.

004550
004552
004560
004566
004574
004600
004606
004610

457
458
459
460
461
462
463
(3)
(3)
(2)
(1)
464
465
466
467
468
469

004512
004514

—

456

S*TEST 10

338
vV
—

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

I 3
31-AUG=79 13:10 PAGE 13
VERIFY THAT "INIT'' CLEARS THE SFR REGISTER

001126

TST11:

SCOPE

MOV
MOV
BIS
CLR

MOV

BEQ

ERROR

#10,STIMES
#16,aSFR

#CLRALL ,@SFR
$GDDAT

@SFR,$SBDDAT
3

;:D0 10 ITERATIONS
;LOAD SFR REG.
;GENERATE '‘CLR ALL L'’
;LOAD EXPECTED VALUE
;READ THE SFR REG.
;:BR IF SAME

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

CIZNCCB NCV11

CINCCB.P1T

DIAGNOSTIC

31-AUG=79 11:21

MACY11 3??51063)

31-AUG=79 13:10 PAGE 14

FLOAT A 1 ACROSS THE WORD COUNT REGISTER

‘72

;:t"'.'tt'..'t.l.tt.t".t't.tttt.tttttt't.ttttt.'tt.tt.'t'ttt.tt

(3)

S#TEST 12

(3)

(2)

004612

000004

004636
004644
004652
004660
004666

012737
012777
013777
017737
023737
001401

(1) 004614 012737 000100 001160
473 % 012737 000001 001124

2;/;
476
477
478
479
480
l.‘.g}

004670

004636
004000
001124
175074
001124

004700

004702
004710
004716
004724
004732
004740
004746
004754
004756

000004

012737
012737
012737
012777
013777
017737
023737
001401

000100
000001
004724
004000
001124
175010
001124

(3)

506

509

$GDDAT
1$

TST13:

001160
001124
001110
175024 18:
175014
001126
001126

;:WORD COUNT REG. IN ERROR

;CHANGE THE DATA
*BR IF MORE DATA TO LOAD

FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
CTMP
BEQ

#100,STIMES
#8170, SGDDAT
#18,SLPERR
#CLRALL ,@SFR
$GDDAT , 3BAR
@BAR, SBDDAT
$GDDAT , S8DDAT

ASL
BNE

$GDDAT
1s

ERROR

28:

2
S

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

;:'t'tttttttt.ttttttttt..tttt.'tfitttltttt'ltttllttfi.'.'t'.ttt.ttt

T*TEST 14

(3)

ssgz

ASL
BNE

*LOAD LOOP ADDRESS ON ERROR
;RESET THE DEVICE
:LOAD WORD COUNT '‘A"’
*READ WORD COUNT
*COMPARE VALUES
::BR IF SAME

:;tt.t.tt.t.tttttttt.tt.ttttt'tttt.ttt'tt.tttt.tt.t.tt.ttt'tttt.t

104005

(2)

#18,SLPERR
#CLRALL ,@SFR
$GDDAT , aWCR
aWCR, SBDDAT
$GDDAT , SBDDAT
2

;:D0 100 ITERATIONS
:LOAD EXPECTED VALUE

;;tttt...tttttttttttfit.ttttt.tttttQttttt'tttttttt.t...tttttt'tt"

496 004760 006337 001124
497 004764 001357
(1)
499
558?
502
503
504

28:

#100,STIMES
#8170, SGDDAT

MOV
MOV
MOV
MOV
P
BEQ

T*TEST 13

(3)

234.5

001110
175112 18:
175100
001126
001126

SCOPE

MOV
MOV

ERROR

485

(2)

T§T12:

104004

483 004672 006337 001124
484 004676 001357
(1)
486
%
489
490
491
492
493

FLOAT A 1 ACROSS THE WORD COUNT REGISTER

D 2 2222333333333 3323333322233 333333333333 3333333333333 33322232232 3]

FLOAT A 1 ACROSS THE OFFSET REGISTER

;:t'tttttt'tttt.tt'tt.ttttttl.t.ttttt.tlttttt'tt."tt.tt'ttt'tttfi

004766

000004

004770
004776
005004
005012
m
005034

012737
012737
012737
012777
013777
017737
023737

005044

104006

005042

001401

000100
000001
005012
004000
001124
174716
001124

006337 001124

510 005052 001357

TST14:

001160
001124
001110
174736 1$:
174722
001126
001126

28:

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
CTMP

#100,STIMES
#8170, SGDDAT
#18,SLPERR

ERROR

ASL

$GDDAT

BEQ

BNE

#CLRALL ,@SFR
$GDDAT , 80F F
@OFF , SBDDAT
$GDDAT , S8DDAT
23

::D0 100 ITERATIONS
:LOAD EXPECTED VALUE
:LOAD LOOP ADDRESS ON ERROR
;RESET THE DEVICE
*LOAD OFFSET 'A"*
*READ OFFSET
*COMPARE VALUES
::BR IF SAME

:OFFSET REG. IN ERROR

:CHANGE THE DATA

*BR IF MORE DATA TO LOAD

SEQ 0035

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

K 3

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

512

Q.Qt"....'fitt'..t....."..t'.t'ttt.'Qt"'t'ttt'ttttttt.QQQQ.QQ

(3)

(2)

-resr 15

005054

(1)
513
514
§15
516
517
518
519
520
§21
522
523
526
525
526
527
528
529
530
531
532

005056 012737 000010 001160

005064
005072
005100
005106
005114
005122
005130
005136
005144
005152
005154
005156
005164
005172
005200
005202
005204
005212

012777
012777
012777
012777
012777
012777
012737
017737
023737
001401
104007
012737
017737

534

001401

533

005

VERIFY NO DUAL REGISTER SELECTION

(R 22323 asdd i3 333333333383 3333333333323 33333333333333323332323232323323]

001401

004000
011111
°§§§§§
0
000036
007636
011111
174606
001126

174664
174650
174644
174640
174634
174616
001124
001126
001126

022222 001124
174562 001126
001124 001126

104007
012737 033333 001124
O1
174536 001126
001126

001126

t8715:

SCOPE

MOV
#10,STIMES
::D0 10 ITERATIONS
:LOAD DIFFERENT NUMBERS INTO THE 'WCR, BAR AND OFF REGISTERS
MOV
#CLRALL ,@8SFR
:CLEAR THE DEVICE
MOV
#11111,30FF
*LOAD OFFSET REGISTER
MOV
JaWCR
*LOAD W.C. REGISTER
MOV
’
@BAR
*LOAD B.A. REGISTER
MOV
#36,aSFR
;LOAD SPECIAL FUNCTION REGISTER
MOV
#7686,
aCSR
LOAD COMMAND/STATUS REGISTER
:NOW READMOVEACH nssxsrén
AND
CHECK
THE
VALUE
#11111,8GDDAT
;LOAD EXPECTED VALUE
MOV
@0FF,SDDAT
*READ A OFFSET REG.
P
$GDDAT,SBDDAT
* COMPARE
BEQ
1s
::BR IF SAME
ERROR
:DUAL ADDRESS ERROR
1$:
MOV
022222 scooAr
*LOAD EXPECTED VALUE
MOV
aWCR, SBDDA
*READ W.C. REG.
P
$GDDAT, saooAr
* COMPARE
BEQ
::BR IF SAME
ERROR
:DUAL ADDRESS ERROR
28:
MOV
#33333,$GDDAT
*LOAD EXPECTED VLAUE
MOV
@BAR, SBDDAT
*READ B.A. REG.
P

SGDDAT, SBDDAT

BEQ

536 005232 012737 000036 001124 3$:
537 005240 017737 174512 001126
538 005246 023737 001124 001126

MOV
MOV
P

#36,8GDDAT
@SFR,SBDDAT
$GDDAT , SBDDAT

540

ERROR

535

539

005254

005256

001401

104007

541 005260 012737 007636 001124 4$:
542
01
174456 001126
54,3 005274
023737 001124 001126

544,
001401
545 005304 104007
546 005306 012777 004000 174442 S$:

ERROR

BEQ

MOV
MOV
P

BEQ
ERROR
MOV

#7636, SGDDAT
@CSR, $BDDAT
$GDDAT , SBDDAT

13
7
#CLRALL ,@SFR

* COMPARE

::BR IF SAME

:DUAL ADDRESS ERROR

:LOAD EXPECTED VALUE
*READ SPECIAL FUNCTION REG
* COMPARE

::BR IF SAME

:DUAL ADDRESS ERROR

*LOAD EXPECTED VALUE
*READ COMMAND/STATUS REGISTER
* COMPARE

::BR IF SAME
*DUAL ADDRESS ERROR
“CLEAR THE DEVICE

SEQ 0036

CINCCB

NCV11 _ DIAGNOSTIC

CINCCB.P11

31-AUG=79 11:21

MACY11 30G(1063)

T16

“8
)

005314

$S1

005

012777

ggz

005362

104006

000003

t4116:

174404

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

SCOPE

MOV
CLR
MOV

#10,$TIMES
SGDDAT
#CLRALL ,@SFR

;:D0 10 ITERATIONS
;CLEAR EXPECTED VALUE
:CLEAR THE DEVICE

MOV
MOV
BEQ

#CLRALL ,aSFR
Q0FF ,SBDDAT
TST17

*CLEAR THE EXTENDED OFFSET REG.'S
*READ EXTENDED OFFSET REG.
;:BR IF CLEARED

MOV

ssg 005
012777 004000 174404
§53 005352 O1
174372 001126
5§54 005360 001401

ERROR

557

s*TEST 17

(3)

AR R

#3,30FF

RAR AR AR AR R AR AR

:LOAD EXTENDED OFFSET REGISTER

;CLEAR ALL FAILED TO CLEAR EXTENDED OFFSET REGIS

R R R AR

R AR

TEST THE "ACTIVE'' FLOP CAN SET AND CLEAR

,':..'t.'i'k.'t'tfit.ttttfittttitlfififittttttttt'tltttttttt't..tt'.i.t

(2)

005364

000004

559
S60
S61

005374
005402
005404

052777

005410

052777

SS8 005366 012777 004000 174362
005406

000010

174354

000022

174330

000240

564
565 005416 012737 000022 001124
566 005453 052777 000001 174314

567 005432

017737 174310 001126

570

052777

568 005440
001126
569 005446 001404
005450

001126

000400

174300

005460 052777 000400
005466 012737 000222
005474
017737 174246

174270
001124
001126

005456

§76 005502
S77
578

005510
005512

582

586

005552

104002

7 001124 001126

001401
104002

579
580
381 005514 012737 000200 00112

2777 000001

583 005530
052777
584 005536 01
174204
585
544 02
001126
587

SEQ 0037

223323333333 333233333233333333333333333333333333333333333332323332233.]

(2)

571
572
573
574
575

PAGE 16

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

nresr 16

(1) 005316 012737 000010 001160
549 005
001124
550 005
01
004000 174420

558

13:10

".".Q..""tt'.ttt."tt."tt.t..fi.ttt..ttt.ttttQ.tt..t."t't'

3
(

31-AUG=79

554

001401

104001

174216

174220
001126
001126

TST17:

SCOPE

MOV

BIS
NOP
NOP

NOP

#CLRALL ,@SFR

#TSTDMA.@SFR

:CLEAR THE DEVICE

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

BIS

#BIT4'BIT1,aCSR

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

MOV

aCSR, $8DDAT

*READ STATUS

BIS

#ENDDMA, SFR

NOW SET THE "'ACTIVE'' FLOP AND VERIFY ''INTERFACE IDLE'' GOES LOW
MOV
#BIT4!BIT1,$GDDAT
:LOAD EXPECTED VALUE
BIS
#BIT0,aCSR
“SET "ACTIVE' TO A 1
CMP
BEQ

SGDDAT , $SBDDAT
1$

*COMPARE VALUES
::BR IF EXPECTED

:STOP DMA IF POSSIBLE

ERROR
2
*"ACTIVE'' FLOP FAILED TO SET
:POKE THE 'END DMA'' SIGNAL mo VERIFY "ACTIVE" CLEARS
1s:
BIS
#ENDDMA, aSFR
;SEND "END DMA'’ SIGNAL
MOV
#BIT7'BIT4'BIT1,$GDDAT :SET "‘INTERFACE IDLE'' INTO EXPECTED
MOV
aCSR, $SBDDAT
*READ STATUS

(MP

$GDDAT , SBDDAT

BEQ
ERROR

2%
2

BIS

#31T0.aCSR

BEQ

TST20

: COMPARE

;:BR IF SNE
"END DMA'’ AGAIN FAILED TO CLEAR ''ACTIVE'' FLOP

:POKE ENABLE DMA'' AND THEN ISSUE ‘‘CLR ALL” SIGNAL
T
ENSURE THE "ACTIVE'' FLOP CLEARS
>s:
MOV
#B1T7.$SGDDAT
:LOAD EXPECTED
BIS
MOV
CMP
ERROR

#CLRALL ,@SFR
aCSR, SBDDAT
$SGDDAT , SBDDAT
1

*POKE "ENABLE DMA'’

*GENERATE '‘CLR ALL"
*READ STATUS
- COMPARE

;:BR IF SAME

:"'CLR ALL'' FAILED TO CLEAR "‘ACTIVE'® FLOPS

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

MACY11 30G(1063) 31-AUG=79 13:10 PAGE 17
120
VERIFY 7 INPUTS CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGEIN MATRIX

592

;':Qt"..Q'..Qtlt'.'ttfit"tttltt.'fi..tt.'fit..'QQ.Q'QQ".Q.'QQ.'Q'.

8;
(2)

;*TEST 20
005556

005560 012737 000100 001160
oosggs 01
004000 174162
005576 012777 000010 174154
gssgos 12777 000000 174142
1
777 ggggg 174136
005616
777
174122
777 000001 174114
777
174116
777
174110
005546 81
1 001124
005654 01
174074 001126
005662 001002

604

mfi%

606
607

005676
005700

611
612

005724
005726

005664

605 005670

78T20:

#100,STIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
:CLEAR THE DEVICE
#TSTDMA . 3SFR
*SET TEST DMA FLOP
#0,aWCR
*LOAD W.C. REG
#0 . aBAR
*LOAD B.A. REG
#8IT4'BIT1,aCSR
:ENTER MATRIX MODE
#B1T0,aCSR
G0 "ACTIVE'
#TESTZ,aSFR
*ENABLE 'TEST 2'' PULSES
#TESTZ.aSFR
*DISABLE ''TEST 2'' PULSES
#1,$GDDAT
*LOAD EXPECTED
@BAR, $BDDAT
*READ LOW 16 BITS
1%
::BR IF NON-ZERO

000420

RBR

TST21

001401
104011

BEQ
ERROR

2%
11

::BR IF CLEARED
:HIGH 16 BIS CHANGED IN ERROR

TST21
12

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

104010

ERROR

017737 174056 001126 18:

001401
104012

MOV

aWCR, $BDDAT

MOV
MOV
BIT

#B1T4,$SGDDAT
aCSR, $8DDAT
#B1T14,$SBDDAT

BEQ
ERROR

TRTEST 21

(3)

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

;READ HIGH 16 BITS

*LOAD EXPECTED
*READ STATUS
STEST IF ''CELL OVERFLOW'

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

;:'t.'fiQQ".""Q"Q.Q!Q.Q.!QQt.'tt...'tt.'fi"""..Qt'i""t'."

005730

005732
005740
005746
005754
%

005776
wfl

006064

63%
635

:;"t"tfi"i'fi"'ttt..'t!'t.fitQ..Q'tttQtt.fififi'Qfit'*fi"titt'tt"'.

(2)

SCOPE

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

608 005702 012737 000020 001124 28%:
609 005710 01
174032 001126
610 005716 032737 040000 001126

(1)
614
615
616
617
618
619
620
1)
61
g
624
82
7

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

':ti'.t'.Qfit"'fit.tt.l...'tt!tfl.'t...'t'.".tttttttt'tt'tt"'fi'.t

(1)
593
594
595
596
597
598
599
a)
600
601
ggg

613

SEQ 0038

w
%
006102
006110
006112

012737
012777
012777
012777
012777
012777
052777
052777
777
737
01
105737
001002
10401
12737
17737
1401
104011
12737
017737
032737
001401
104012

000100
004000
000010
000000
000376
000022
000001
000002
000002
000400
173722

001127

001160
174010
174002
173770
173764
173750
173742
173744
173736
007124
001126

000000 001124
173672 001126

7ST21:

18:

000020 001124 2%:
173646 001126
040000 001126

SCOPE

MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
TSTB
BNE
ggnon
MOV
MOV
BEQ
ERROR
MOV
MOV
BIT
BEQ
ERROR

#100,STIMES
;:D0 100 ITERATIONS
#CLRALL ,aSFR
:CLEAR THE DEVICE
#TSTDMA.@SFR
*SET TEST DMA FLOP
#0,aWCR
*LOAD W.C. REG
#376,3BAR
:LOAD B.A. REG
#BIT4!BIT1,aCSR
*ENTER MATRIX MODE
#81T0.aCSR
G0 "ACTIVE'
#TESTZ,aSFR
:ENABLE “TTEST Z'' PULSES
#TESTZ.aSFR
*DISABLE '‘TEST Z'' PULSES
#8178, $GDDAT
*LOAD EXPECTED
aBAR, $8DDAT
*READ LOW 16 BITS
$BDDAT+1
*TEST HIGH BYTE
1$
*BR IF NON-ZERO
}2722
*Z INPUT FAILED TO CAUSE THE HIGH BYTE OF THE LO
#0,$GDDAT
:LOAD EXPECTED
aWCR, SBDDAT
*READ HIGH 16 BITS
28
::BR IF CLEARED
11
:HIGH 16 BITS CHANGED IN ERROR
#B1T4, SGDDAT
*LOAD EXPECTED
aCSR, $8DDAT
*READ STATUS
#81T14,$BDDAT
STEST IF '‘CELL OVERFLOW'
1ST22
12

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

;*TEST 22

)

(1)
g

006114

012737
012777
012777
012777
012777
012777
052777
052777

000100
004000
000010

000002

001160
173624
173616
173604
173600
173564
173556
173560

64S
646
647
648
649

012737
017737
001002
104011
000413

000001
173534

001124
001126

1%:

000020
173506

001124
001126

2%:

650
651
6S§
65
654

655

176

006204
006212
006220
006222

006234
006242
006252

042777

012737
017737
032737
001401

177776
000022

000001

000002

040000

173552

104012

ittt dddddd

#100,8TIMES
::D0 100 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTDMA,aSFR
;SET TEST DMA FLOP
#0,aWCR
:LOAD W.C. REG
#-2 ,aBAR
:LOAD B.A. REG
#MIT4&!'BIT1,aCSR
JENTER MATRIX MODE
#8170,aCSR
;GO "ACTIVE"'
#TESTZ,aSFR
;ENABLE "‘TEST 2'' PULSES

MOV
MOV
BNE
ERROR
BR

#1,8GDDAT
aWCR,$BDDAT
2%
1
TST23

BIT
BEQ

#B1T14,88DDAT
TST23

:TEST IF "‘CELL OVERFLOW''
;:BR IF CORRECT

MOV
MOV

«TEST 23

006254

000004

012737
012777
012777
012777

000100
004000
000010
000377

001160
173464
173456
173444

660
661
662

006314
006322
006330

012777
052777
052777

000022
000001
000002

012737

000400

664
665
666
667

ittt

#TESTZ ,aSFR

#8174 ,SGDDAT
aCSR,$BDDAT
12

;DISABLE '‘TEST Z''

PULSES

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

:LOAD EXPECTED
:READ STATUS

:"'CELL OVERFLOW'®' FLOP SET IN ERROR

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

;:ttt'ttl'ttt'tt'fit'ttfifi'ttttfittt't"tttt.t.ttt.tttt.tttfiltt't't'

006256
006264
006272
006300

(1)

a2ttt

MOV
MOV
MOV
MOV
MOV
MOV
BIS
BIS

ERROR

(1)
656
657
658

663

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

;;QQ"QQ.tt'ttttfifitttfitfit'.'.ttt.ttti.t't".ttttfit!tt.fitttttfit.t.

(3)

659

SCOPE

BIC

001126

(3)

(2)

2222222322222

T1ST22:

%116
1
0061
640 %1
641
166
006154
€4
oom%
[N %1
1)

SEQ 0039

e 2222222232222ttt
ittt
iiii
ittt idsddd]

)

MACY11 30G(1063) 31-AUG-79 13:10 PAGE 18
122
VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE

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

006306

006336

006352
006360
006364
006366

012777

042777

017737
105737
001001
104011

177776

000002

173374
001127

TST23:

SCOPE

MOV
MOV
MOV
MOV

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

173424
173416
173420

MOV
BIS
BIS

#MIT4!'BIT1,aCSR
#8170,aCSR
#TESTZ ,aSFR

001124

MOV

#B]1T8,3GDDAT

173440

MOV

173412

001126

BIC

1%:

MOV
TSTB
BNE
ERROR

#-2 ,aBAR

#TESTZ ,aSFR

aWCR,$8DDAT
$BDDAT+1
TST24
1

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

;LOAD B.A.

REG

;ENTER MATRIX MODE
;GO "ACTIVE"'
JENABLE ‘‘TEST 2'' PULSES

;:DISABLE ‘‘TEST Z'' PULSES

;LOAD EXPECTED

;READ HIGH 16 BITS
;TEST HIGH BYTE
;:BR IF SET
;HIGH 8 BITS OF THE 32 BIT COUNTER FAILED TO CHANGE

CZNCCB NCVIT
DIAGNOSTIC
CZNCCB.PT
31-AUG=-79 11:21

B &
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 19
T24
VERIFY Z INPUTS DO NOT CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE I

669
(3)
(3)

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

-rssr 24

AR AR AR AN AR AR

AR AR AR AR AR

SEQ 0040

VERIFY Z INPUTS DO NOT CAL_.c THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE

oSN
N
=N LNgrflCF
ONOO

SCOPE

MOV

#100,$TIMES

MOV

#0 ., WCR

CLR
BIS
BIC

aCSR
HTESTZ,aSFR
#TESTZ.aSFR

MOV

— =NN

8833
IS
— = NN
W=

000100
004000
000000
000000
173320
000002
000002
000000
173300

WWW—

CRRAA AR AR AR AR AR AR AR A AR AR RN AARARARRAAARAAAARA
A AR AR AR AR AR AR

t87124:

#CLRALL ,aSFR

#0
. 3BAR

MOV

#0,$GDDAT

BEQ

15125

MOV

ERROR

@BAR , SBDDAT

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

REG
;LOAD B.A.
;ENSURE LIST MODE
;ENABLE "TEST "' PULSES

:DISABLE '‘TEST Z'* PULSES

;LOAD EXPECTED

; :BR IF

:READ LOW 16 BITS
ZERO

:;t'!!t.tQQQttt"ttfiQt.tt.'"QQ.t.tfittt.'tl.fit.t'tfit'fit".."tt.t

S*TEST 25
e

000004
012737
012777
012777
012777
012777
012777
052777

000010

177777
177776
000022
000001

001160
173256
173250
173236
173232
173216
173210

052777
042777
013700
005001
012737

000002

040020

001124

032777

040000

173152

104012

nONONO
N
oo~
O

004000
000200
173106
001124

052777
012737
017737
023737
001401

7$T25:

SCOPE

MOV

#10,$TIMES

MOV
MOV
BIS

#-2.aBAR
#BIT4'8IT1,aCSR
#B1T0.aCSR

MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA
. @SFR
#-1,3WCR

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

JENTER "MATRIX'' MODE
;ENABLE NCVT

:NOW ENABLE '‘TEST 2'' INPUTS

1$:

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

BIS
BIC

#TESTZ,aSFR
ATESTZ.aSFR

CLR
MOV

R1
#BIT14!BIT4, SGDDAT

BIT

#BIT14,3CSR

DEC
BNE
DEC
BNE
MOV

R1
1$

MOV

173142

3383
Py

000400

002006

173212
173204

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

i3 22222R22332222322
22222222 2 22
0
Rl dd]

BNE

ERROR
BR

CPUDLO.RO

RO
1%

A
, aSFR
#ENDDM

12
1ST26

;LOAD GROSS TIMER

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

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

:NOW GENERATE ‘'CLR ALL'' TO CLEAR Z/WC OVERFLOW BIT

28 :

BIS

#CLRALL ,@SFR

MOV
MOV

#8177 .$GDDAT
ACSR, $8DDAT

BEQ
ERROR

1ST26
12

CMP

$GDDAT, SBDDAT

;CLEAR Z/WC FLOP

sLOAD EXPECTED

:READ STATUS
. COMPARE
;:BR IF SAME
;"'CLR ALL'* FAILED TO CLEAR "Z/WC'' FLOP

CZNCCB NCVTT
CZNCCB.P1T

DIAGNOSTIC

21
31-ALG=79 11:

MACY11 30G(1063)
126

711

(3)
(3)

(2)
(1)
712
713
714
715
716
717
718
719

31-AUG=79 13:10 PAGE 20
TEST THAT "WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND ''CLR WC OVFL'' CLEARS IT

222232223322322222
302232222222
2222
iRt Rl d ]

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

-resr ot

':'QQ't't't."Qtfittttt.'."t.ttt'.ltit...t.'fi.fi't"fi.'iiitfittt'.t

000004
012737
012777
012777
012777
012777
012777
052777

001160
173064

172056
173044
173040
173024
173016

052777

173020
173012

042777

012737

001124

032777

172760

000400
000002

052777

012737
017737
023737
001401

104012

040000
000222
172706
001124

TS$T26:

MOy

CPUDLO.RO

:LOAD GROSS TIMER

MOV

#BIT14!BIT4,SGDDAT

:LOAD EXPECTED STATUS

BIT

#BIT14,aCSR

:TEST FOR Z/WC OVERFLOW

DEC
BNE
DEC
BNE
MOV

Rl
IS
RO
18
WENDDMA,aSFR

:DELAY

TST27

172750
172742

172730
001124
001126
001126

SCOPE

MOV
#10,STIMES
::D0 10 ITERATIONS
MOV
ACLRALL,aSFR
:CLEAR DEVICE
MOV
ATSTDMA,@SFR
:SET TEST DMA FLOP
MOV
#-1,awWCR
:LOAD Z COUNTER
MOV
#-2.@BAR
:LOAD Z COUNTER
MOV
#BI74!BIT1,3CSR
:ENABLE "MATRIX'* MODE
BIS ,__ #BIT0,aCSR
:SET NCV11 ACTIVE
:NOW ENABLE "TTEST 2'' INPUTS
:
5
BIS
ATESTZ,aSFR
:ENABLE "'TEST Z'* PULSES
BIC
ATESTZ.aSFR
:DISABLE "TEST 2'* PULSES

1$:

SEQ 0041

BNE

BIC
ERROR

:BRIF SET
:DELAY

;STOP DAM TRANSFERS

HTESTZ,aSFR
STOP_*7'*_INPUTS
12
;AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SET
¥

;NOW GENERATE ‘LR WC OVFL'' TO CLEAR Z/WC OVERFLOW BIT
BIS
WCLRWCO,aSFR
;CLEAR Z/WC FLOP
MOV
#BIT7!BIT4!BIT1,$GDDAT ;(OAD EXPECTED

28:

MOV
CMP
BEQ

ERROR

@CSR,S$BDDAT
$GDDAT,$BDDAT
TST27

::BR IF

:READ STATUS
: COMPARE
SAME

;"CLR WC OVFL'' FAILED TO

; CLEAR "2/uC*" FLOP (BIT 14)

CZNCB NCV11
CZNCCB P11

DIAGNOST IC
31-AUG-79 11:21

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

745

(3)
(3)
(2)

(15
746
747

2223333332333 33333332332323233233323232333233233323333232333232323232333222322%
2]

2222333333333 3233232333333233333233333323233233333333333323232323223232232323]1

TRTEST 27
007054
007064
007072

007122
007130

1$127:

000004
012737

012777
012777
012777
012777
012777
052777

104013

#-2 ,aBAR

;:D0 10 ITERATIONS

sCLEAR DEVICE
;SET TEST DMA FLOP
;LOAD Z COUNTER

;LOAD Z COUNTER

#MIT4(!'BITT1,aCSR
#81T70,aCSR

;SET MATRIX MODE
;SET NCV11 ACTIVE

BIS
BIC

#TESTZ,aSFR
#TESTZ,aSFR

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

MOV

#MIT14!'BIT4 ,$SGDDAT

;LOAD EXPECTED STATUS

BIT
BNE

#BiTi4,aCSR
2%

;TEST FOR Z/WC OVERFLOW
:BR IF SET

?Ex

001124
1%:

DEC
BNE
DEC
BNE
MOV

000400
000002

BIC
ERROR

B8R

007232
007276
000100

172532
172500

172464

001126

004000

172442

004000
001774
172450

g?UDLO.RO

R1
1%
RO
1%
#ENDDMA ,aSFR

;LOAD GROSS TIMER

;DELAY
;DELAY

;STOP DMA TRANSFERS

#TESTZ,aSFR
;STOP ''Z'' INPUTS
12
;AFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SET

;:BR TO CLEAN UP

sNOW E NABLE THE WC/Z OVERFLOW INTERRUPT BIT AND WAIT FOR AN INTERRUPT

2%:

000000

3%:

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

;LSI=11 HACK

MOV

#4% ,aVECTAOD

;LOAD INTR. VECTOR

aCSR,$8DDAT
#CLRALL ,aSFR

;READ STATUS
;CLEAR THE DEVICE

BIS

MOV
MOV

172464

ERROR

4%:

172444
172452

MOV
:?Y

NOP
NOP
NOP
NOP

000401

022626

MOV

#CLRALL ,aSFR
#TSTDMA,aSFR
#-1,aWCR

;NOW E NABLE '‘TEST Z'' INPUTS

000439

012746
012746
000002
012777
052777
000240
000240
000240
000240
017737
012777

#10,8TIMES

MOV
BIS

032777

106012

TEST THAT "WCA OVFL'' GENERATES AN INTERRUPT

MOV

MOV
MOV
MOV

052777
042777
013700
005001
012737

00
001370
012777
042777

SCOPE

SEQ 0042

5%:

#BIT6,aCSR

13
5%

CMP
CLR

(SP)+,(SP)+
aCSR

CLR

aVECTA1

MOV
MOV

#CILRALL ,aSFR
VECTA1,aVECTAOQ

;ENABLE INTERRUPT

;WC/Z OVERFLOW FAILED TO GENERATE

;:BR TO CLEAN UP

;CLEAR THE DEVICE

INTERRUPT

NCVIT
CZNCCB P11
CZNCCB

DIAGNOST IC
31-AUG=79 11:21

MACY1T

791

E &4
30G(1063)
31-AUC=79 13:10 PAGE 22
T30
VERIFY "WCA OVFL'' CLEARS "ACTIVE"'
A RRRARRARRARRRARAAAARARRAARARRAAARARAARAARA
AR ARRA AR AR
h

TRTEST 30

(3)
(3
(2)

VERIFY 'WCA OVFL'' CLEARS "ACTIVE"'

T8$130:

#10,8TIMES

a0FF

#BIT4!BIT1,aCSR
#BIT0,aCSR

;READ STATUS
9CSR,$BDDAT
#BIT14!BIT7!BIT4!BIT1,$GDDAT
;LOAD EXPECTED
$GDDAT
, $BDDAT
OMPARE

TST31
172270

001126

;SET TEST DMA

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

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

WTESTZ ,aSFR
#TESTZ,aSFR

001124

;:D0 10 ITERATIONS
;CLEAR DEVICE

#CLRALL ,@SFR
#TSTDMA!TSTCON,aSFR
#-1,aWCR
#-2 ,aBAR

888 NNNN

a3
NNNNO

':t'l't.'.'.."'ii.Q..t....Q.QtQt'..QQ'Q..Q.Q""..QQQ'QQtt't.fi"

1%:

$GDDAT
aOF F ,$8DDAT
TST31
12

;:BR IF SAME

;"WCA OVFL'' FAILED TO

;CLEAR "'ACTIVE'' (BIT 7 SET)
.

;CLEAR THE EXPECTED
cREAD THE ACTUAL
;:BR IF CLEARED

2"WCA INC X OFF'" IN MATRIX MODE (HANGED

;THE OFFSET REGISTER

SEQ 0043

CINC(CB NCV11
CZNCCB.P1T

DIAGNOSTIC

31-AUG=79 11:21

MACYTT

3?%%1063)

31-AUG=79 13:10 PAGE 23
VERIFY JOYSTICK DONE FLOP SETS

SEQ 0044

:;'.t..'t"'t.tltQQQ'Q"..'Q..Q..QQQQ.Q.QQtttt.tttfitt'h'!.t'.'t'.

S*TEST 31

VERIFY JOYSTICK DONE FLOP SETS

P
aiala
SO

—_—
NNO

000040
004000
000001
002010

noNny
—
non
—

.-.'Qt!.Qt'.'.'.t.t..'...fifi""tt"..‘.."....t't."l'..."Qt"t"t

1%:

172234

172222

000200

172210
172200

001126

7§7T31:

001126
001124

001126

SCOPE

MOV
MOV
BIS
MOV

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

BM]
DEC
BNE

2%
RO
1%

TSTB

MOV

@SFR

aSFR, $BDDAT

#BIT7,$GDDAT

;:DO 40 ITERATIONS
:CLEAR THE DEVICE
*REQUEST JOYSTICK DATA
*LOAD DELAY COUNTER

SWAIT FOR JOYSTICK READY

‘BR IF SET
*DELAY
*BR IF NOT EXHAUSTED
*READ STATUS

:LOAD EXPECTED

ERROR
14
2"JOYSTICK READY'' FAILED TO SET
:NOW PERFORM A "‘TST'' INSTRUCTION TO THE JOYSTICK REGISTER

:
2:

THE ACCESS OF THIS BUS ADDRESS SHOULD CLEAR JOY READY FLOP''
ST
aJoy
:ADDRESS THE REGISTER
MOV
aSFR,$BDDAT
*READ STATUS
TSTB

BPL
CLR
ERROR

001124

$BDDAT

TST32
$GDDAT
14

“TEST IF

THE BIT CLEARED

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

.'."ttt.t'tt'.'.'t'..tfi.'t.t...t.Qt..QQ.'Ql'.'.fifi..t.'...t...".t.

S*TEST 32
e

TST32:

002010
172126

1$:

172114

052777
017737
012737
023737
001401

004000
17070
000200
C01124

007726

007736

104014

001401

#40,$TIMES
#CLRALL ,@SFR
#REDJOY . @SFR
CPUDL1,RO

BM]
DEC
BNE
MOV

2%
RO
1%
aSFR, $BDDAT

‘BR IF SET
:DELAY
*BR IF NOT EXHAUSTED
*READ STATUS

*JOY READY FAILED TO SET

TSTB

ERROR

a@SFR

#B1T7,$GDDAT

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

*WAIT FOR JOYSTICK READY

:LOAD EXPECTED VALUE

;NOWw ISSUE A "'CLR ALL'' AND VERIFY THE *'JOY READY'' DOES NOT CLEAR
2%:
BIS
#CLRALL ,@SFR
:GENERATE '‘CLR ALL''
MOV

aSFR, $BDDAT

$GDDAT, SBDDAT

MOV

BEQ

ERROR

104014

000005
017737
012737
017737

SCOPE

MOV
MOV
BIS
MOV

MOV

000200

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

2222332323223 33333223332233233323333323233333333333333333233323323333323232
3]

*READ STATUS

#B1T7,SGDDAT

:LOAD EXPECTED VALUE

::BR IF SAME

: COMPARE

S"'CLR ALL'' CLEARED THE ''JOY READY'' FLOP IN ERROR

‘NOW ISSUE A BUS 'RESET'' AND VERIFY THE JOY READY'' CLEARS

172040

000000
172024

RESET

MOV

@SFR,$BDDAT

MOV

aSFR, $SBDDAT

MOV
BEQ

ERROR

#0,$GDDAT
15T3%

:BUS TINIT*

*READ STATUS

*LOAD EXPECTED
*READ STATUS

::BR IF CLEARED

;BUS INIT FAILED TO CLEAR JOY READY

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

MACY11 30G(1063) 31-AUG=79 13:10 PAGE 24
132
VERIFY THAT 'RESET'' INSTRUCTION CLEARS THE JOY READY FLOP

7
g?z

.'"'QQ'.QQQQ'.....'...QQ.."..l.'.'.....t..t'Qt..it.t"'.t.".'...

(3)

.-;tl.'t'.t't."t..t'..'t.".l.'l..'t.Qt..fi.t".'t"'.'tt."'tti't

(2)

S«TEST 33
007740

000004

(1)

007742

012737 000010

001160

(1)
(1)
(1)

007772
010000
010004

052777
105777
100375

171756

875
(1)
(1)

(1)
(1)
(1)

876
g%

007750
907756
007764

010006
010014
010022

010030
010032

012777
012777
012777

017737
012737
023737

001401
104015

004000
000014
000000
000001
171752

171750
000000
001124

TST33:

172000
171772
171754

SCOPE

MOV

#10,S$TIMES

BIS
TSTB
8PL

#REDJOY ,@SFR
aSFR
18

MOV
MOV
MOV
1%:

001126
001124
001126

JOYSTICK DATA PATH

MOV
MOV
CMP

BEQ
ERROR

GAIN =0

2B FNABLE =0

RES. = 000

;:D0 10 ITERATIONS

#CLRALL ,@SFR
:CLEAR THE DEVICE
#TSTCON! TSTDMA,@SFR
“SET TEST CONTROLLER FLOP
#0,3CSR
:LOAD CSR REGISTER

aJOY, SBDDAT
#0,SGDDAT
SGDDAT , SBDDAT

TST34
15

:REQUEST JOYSTICE DATA
“WAIT FOR JOYSTICE READY

:READ THE REGISTER
:LOAD EXPECTED
- COMPARE

::BR IF SAME
:JOYSTICK DATA PATH BIT SET

879

.';'QQ'Q.Qt.'ttt'.ttttt.ti"t..t.'tfittt.ttt'..'t..Qtttt't't."ttt.

(3)

S*TEST 34

(2)
(1)
880
(1)
(1)
(1)
(1)
(1)
(1)

(1)
(1)

881
ggg

010034
010036
010044
010052
010060

010066
010074
010100
010102

010110
010116

01012¢
010126

000004
012737
012777
012777
012777

052777
105777
100375
017737

012737
023737
001401
104015

000010
004000
000014
002000
000001
171656

171654

124250
001124
\

001160
171704
171676
171660
171662

TST34:

1$:

001126

001124
001126

A RS

MOV
cMP

#124250, SGDDAT
$GDDAT , $8DDAT

BIS
TSTB
8PL
MOV

BEQ
ERROR

#REDJOY , @SFR
@SFR
1%
aJOY,$BDDAT

TST3S
15

*REQUEST JOYSTICE DATA
*WAIT FOR JOYSTICE READY

:READ THE REGISTER

*LOAD EXPECTED
: COMPARE

::BR IF SAME
:JOYSTICK DATA PATH ERROR

JOYSTICK DATA PATH

2B ENABLE =1

;.'t'ttQ'..Q.t"ttlt.tt.tt'tt'tt.t.tllt.t't.tl.".ttt'tt"!Qtit'.t

010130
010132

012737

000010

001160

(1)

010146

012777

000014

171602

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

010162
010170
010174
010176

052777
105777
100375
017737

000001
171562
171560

001126

BIS
TSTB
BPL
MOV

(1)

010212 023737 001124

001126

886
887

R RA R R AR

#10,3TIMES
;:D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
#TSTCON! TSTDMA, @SFR
*SET TEST CONTROLLER FLOP
#2000, 3CSR
*LOAD CSR REGISTER

(2)
(1)

(1)

GAIN =1

SCOPE
MOV
MOV
MOV
MOV

S*TEST 35

(3)

(1)

".‘t.t'tttttt..t'.t't.'tlttt.t't..i..t.tfi.tt"t"tt'.ttttttttt't"

885

JOYSTICK DATA PATH

AR AR AN AR AR AN AR AR AR AR RN AR AR AR AR RAR A AR AR RN AR

010140 012777 004000
010154

010206

010220
010222

012777

012737
001401
104015

004000

050120

TST35:

171610

001124

#10,8TIMES

MOV

#TSTCON! TSTDMA,aSFR

MOV

171564

171566

SCOPE
MOV
MOV

18:

MOV

BEQ
ERROR

#CLRALL ,@SFR
#4000, aCSR

#REDJOY , @SFR
@SFR
18
aJOY,$BDDAT

#050120, SGDDAT

$GDDAT , $8DDAT
TST36
15

;:D0 10 ITERATIONS

;CLEAR THE DEVICE

“SET TEST CONTROLLER FLOP
:LOAD CSR REGISTER

*REQUEST JOYSTICE DATA
*WAIT FOR JOYSTICE READY
:READ THE REGISTER

*LOAD EXPECTED

* COMPARE

;:BR IF SAME
:JOYSTICK DATA PATH ERROR

SEQ 0045

CZINCCB

NCV11 _ DIAGNOSTIC

CZNCCB.P1T

31-AUG=-79 11:21

MACY11 30G(1063)

136

889

;=TEST 36

(2)

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

891

gg%

13:10

JOYSTICK DATA PATH

R R

(3)

(1)
890
(1)

31-AUG-79

PAGE 25

RES. = 001

SEQ 0046

JOYSTICK DATA PATH

RES. = 001

010224

010226
010234
010242

010250
010256
010264
010270
010272
010300
010306

010314

010316

000004

012737
012777
012777

012777
052777
105777
100375
017737
012737
023737

001401

000010
000014
000023
000001
171466
171464
000401
001124

001160
171514
171506

171470
171472

TST36:

SCOPE

MOV
MOV
MOV

MOV
BIS
TSTB
BPL
MOV
MOV
cMP

1%:

001126
001124
001126

BEQ

104015

ERROR

#10,8STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,aSFR
JSET TEST CONTROLLER FLOP
#23,3CSR
#REDJOY ,aSFR
aSFR
18
aJOY,S8DDAT
#4071 ,8GDDAT
S$GDDAT ,$BDDAT

TST37
15

;LOAD CSR REGISTER
;REQUEST JOYSTICE DATA
JWAIT FOR JCYSTICE READY

;READ THE REGISTER
;LOAD EXPECTED
. COMPARE
;:BR IF SAME
:JOYSTICK DATA PATH ERROR

.':fi.Q'.Q....t'fit..'."..Q'titlQttQ.ttttQt'Q.t..'."ltt...fi"'t'i.

(3)

J*TEST 37

(2)

010320

(1)
895
(1)

010322
010330
010336

012737
012777
012777

(1)
(1)

010364
010366

100375
017737

(1)
(1)
(1)

(1)
(1)

896
ggg

010344
010352
010360

012777
052777
105777

000010
004000
000014
000025
000001
171372

001160
171420
171412
171374
171376

010410
010412

023737

001401
104015

TST37:

SCOPE

MOV
MOV
MOV

#10,STIMES
;:D00 10 ITERATIONS
#CLRALL ,aSFR
sCLEAR THE DEVICE
#TSTCON! TSTDMA ,aSFR
JSET TEST CONTROLLER FLOP
#25,3(SR
#REDJOY ,aSFR
aSFR

;LOAD CSR REGISTER
JREQUEST JOYSTICE DATA
;WAIT FOR JOYSTIiCE READY

aJOY,$BDDAT

;READ THE REGISTER

$GDDAT , $8DDAT

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

MOV
BIS
TSTB

1%:

171370

001126

BPL
MOV

001124

001126

CMP

MOV

(3)

s*TEST 40

(2)

(1)
900
(1)
(1)
(1)
(1)

(1)

010414

010416
010424
010432
010440

010446
010454

010460

000004

012737
012777
012777
012777
052777
105777

100375

(1)

010462

017737

901
902

010504
010506

001401
104015

(1)
(1)

010470
010476

012737
023737

000010
004000
000014
000031
000001
171276
171274

002004
001124

001160
171324
171316
177300
171302

001126

001124
001126

TS740:

1%:

#1002, SGDDAT

3EQ
ERROR

899
(3)

RES. = C10

eR
R R

010376 012737 001002 001124
010402

JOYSTICK DATA PATH

RES. = 00!

TST40
15

*LOAD EXPECTED

AR AR AR AR AR AR R AR R AR AR R AR R AR AR

SCOPE

MOV
MOV
MOV
MOV

JOYSTICK DATA PATH
I AR AR AR

RN RN AR

RES. = 100
R AR

AR R RN

RN R RN RARR RN R R AR
RN RN R AR

R AR R RN R

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA,QSFR
JSET TEST CONTROLLER FLOP
#37,a(SR
:LOAD CSR REGISTER

BIS
TSTB

#REDJOY ,aSFR
aSFR

JREQUEST JOYSTICE DATA
JWAIT FOR JOYSTICE READY

MOV

aJOY ,$BDDAT

;READ THE REGISTER

BEQ
ERROR

TST41
15

BPL

MOV
CMP

RES. = 010

#2004 ,$GDDAT
$GDDAT , $BDDAT

;:BR IF

;LOAD EXPECTED
; COMPARE

SAME
:JOY STICK DATA PATH FRROR

RES. = 100

CINCCB NCVI
DIAGOSTI%
CZNCCB.PT
31-AUG=79 11:
907

(3)
(2)

;*TEST 41

IR AR

010510

000004

(1)
908
(1)

010512
010520
0105

012737
012777
012777

000010
004000
000014

001160
171230
171222

(1)
(1)
(1)
(1)
(1)
(1)
909
31(1)

010542
010550
010554
010556
010564
010572
010600
010602

052777
105777
100375
017737
012737
023737
001401
104016

000001
171202

171206

(1)

31-AUG=79 13:10 PAGE 26
VERIFY THE DATA INCREMENT FUNCTION

IR AR

0105

012777

000421

171200
1

0011264

TST41:

171204

001126

SCOPE

MOV
MOV
MOV

912

J*TEST 42

(2)
(1)

913
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
914
915

010614
010622
010630
010636
010644
010650
010652
010660
010666
010674
010676

000004
012737

012777
012777
012777
052777
105777
100375
017737
012737
023737
001401

000010

004000
000014
002437
000001
171106
171106
130260
001126

001160

171134
171126
171110
171112

TST42:

001126
001124
001126

104016

R R AR

IR AR AR R R AR R RO AT RS

SCOPE
MOV

ERROR

A AR

A AR AR RN AR R RN NN R AR TR RN R RO,

#421,3CSR
#REDJOY ,aSFR
aSFR
18
aJ0Y, SBDDAT
#401,$GDDAT
$GDDAT, $BDDAT
TST42
16
AR AR R AR AR

AR AR

;LOAD CSR REGISTER

;REQUEST JOYSTICE DATA
;WAIT FOR JOYSTICE READY

;READ THE REGISTER
;LOAD EXPECTED

: COMPARE
;:BR IF SAME
;MAINT. CAMOT FAILED TO INCREMENT DATA REGISTER
AR

AR RN

AR R AR RRRA RS

AR R

RARR AR AR

AR RRARR RN

R R AR

R AR

#10,8TIMES

;;D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
#TSTCON!TSTDMA ,aSFR
sSET TEST CONTROLLER FLOP
#2437 ,aCSR
;LOAD CSR REGISTER
#REDJOY ,aSFR
;REQUEST JOYSTICE DATA
aSFR
;WAIT FOR JOYSTICE READY
18
aJOY, SBDDAT
;READ THE REGISTER
#130260, $GDDAT
;LOAD EXPECTED
$GDDAT, $BDDAT
: COMPARE
TST43
;:BR IF SAME
16

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

;FAILED TO CAUSE DATA INCREMENT CARRY PROPERLY

918

RN
R AR R AR AR AR AR R RN AR RRRR AR AR AR R R R A

s*TEST 43

(2)

010700

(1)
919
(1)
(1)
(1)
(1)
(1)
(1)

010702
010710
010716
010724

(1)
920
921
922

010762
010770
010772

(1)

010732
010740
010744

010746

010754

000004

012737
012777
012777
012777

052777
105777
100375

000010
004000
000014
006437
000001
171012

001160
171040
171032
171014

171016

TST43:

1$:

SCOPE

MOV
MOV
MOV
MOV

RANRR AR AN

AR AN

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

MOV

#177777 ,$GDDAT

:LOAD EXPECTED

001126

MOV

023737
001401
104016

001124

001126

CMP
BEQ
ERROR

001124

AR RN

#REDJOY ,aSFR
aSFR
1%

171010

177777

VERIFY THE DATA INCREMENT FUNCTION IS INHIBITED

R AR AR R AR AR AR AR R RARR AR AR

BIS
TSTB
BPL

017737

012737

#10,$TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR THE DEVICE
H#TSTCON!TSTDMA,aSFR
;SET TEST CONTROLLER FLOP

R AT AR

MoV
MOV
MOV
BIS
TSTB
BPL
MoV
MOV
CMP
BEQ

18:

R RN

VERIFY THE DATA INCREMENT CARRY BIT

010604
010606

AR AR R R R AR

SEQ 0047

VERIFY THE DATA INCREMENT FUNCTION

BIS
TSTB
BPL
MOV
MOV
(M
BEQ
ERROR

001126
001124

R R AR AR R AR

AR R AR AN

MOV

18:

MACYT 3?21(1063)

aJOY $BDDAT

$GDDAT , $BDDAT
TST44
16

;READ THE REGISTER
: COMPARE
:;BR IS SAME
JFAILED TO INHIBIT DATA INCREMENT FUNCTION
:IF THE BAD DATA WAS 0

CINCCB NCVIT
DlAGNOST{g 21
CINCCB.P11
31-AUG-79

MACY11 3?221063)

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

SEQ 0048

9 ‘

:'-Q'tQ't..t.l.Qttt.ttt.t.'Q"'QQ'..QQQQ'QQ.QQ'QQ'ttt'ttQQQQQ.QQ'Q

s*TEST 44

VERIFY THE DATA DECREMENT FUNCTION

TST44:

SCOPE
MOV
MOV
MOV
MOV
BIS
TSTB

A
#10,8TIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
#TSTCON! TSTDMA,@SFR
:SET TEST CONTROLLER FLOP
#1023,3CSR
:LOAD CSR REGISTER
#REDJOY,aSFR
:REQUEST JOYSTICE DATA
aSFR
:WAIT FOR JOYSTICE READY

MOV
MOV
CMP
BEQ
ERROR

aJOY,$BDDAT
#0,8GDDAT
$GDDAT, $BDDAT
TST4S
17

(3)

.-;t"fittfi.tt.tttttttt.ttQIQQQQQQttttttfitttfittttttttt't't.'tt."'t

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

010774
010776
011004
011012
011020
011026
011034

000004
012737
012777
012777
012777
052777
105777

(1)
(1)
(1)
926
927

011042
011050
011056
011064
011066

017737
012737
023737
001401
104017

(1)

ggg

011040

100375

000010
004000
000014
001023
000001
170716

001160
170744
170736
170720
170722

170714
000000
001124

001126
001124
001126

1%:

BPL

:READ THE REGISTER
:LOAD EXPECTED
: COMPARE
::BR IF SAME
:1IF DATA WAS 401, THE DATA DECREMENT FUNCTION FAILED

:OTHERWISE DECREMENTED DATA ERROR

930

.-:tt'ttttfi'ttit'nttttttt'QtttttttttttttttttttQtttttttt..tt.tt'ttt

(3)

:*TEST 45

(3)

(2)

011070

000004

011100
011106
011114
011122
011130

012777
012777
012777
052777
105777

(1)

011072

(1)

011134

931
(1)
(1)
(1)
(1)

012737

100375

000010

004000
000014
007037
000001
170622

001160

170650
170642
170624
170626

(1)

011136

017737

170620

001126

(1)
932
3;2

011152
011160
011162

023737
001401
104017

001124

001126

(1)

011144

012737

177376

TST4S:

1%:

001124

SCOPE

MOV

MOV
MOV
MOV
BIS
TSTB

::D0 10 ITERATIONS

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

MOV

aJoyY, SBDDAT

:READ THE REGISTER

CMP
BEQ
ERROR

$GDDAT, $BDDAT
TST46
17

BPL

MOV

:*TEST 46

(3)

#10,8TIMES

#CLRALL ,@SFR
#TSTCON! TSTDMA,@SFR
#7037 ,aCSR
#REDJOY,aSFR
aSFR

935

(2)
(1)
936
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
937
938
939

VERIFY THE DATA DECREMENT BORROW

;;ttt'ttttttttlttttnt'tttttittitttttttttttttttttttttt'tt.tttttttt

AR AR

#177576,$GDDAT

:LOAD EXPECTED

: COMPARE
::BR IF SAME
:DECREMENTED DATA ERROR

A AR AR AR AN AR A AR AR

A RN AR AR AR ARAR

AR AR RN RO RS

VERIFY THE DATA DECREMENT FUNCTION IS INHIBITED

";ttttt't'ttttttttttttttt"ttlttt'Qtttt'tttii!tttttttttltttttt'tt

011164
011166
011174
011202
011210
011216
011224
011230
011232
011240
011246
011254
011256

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

000010
004000
000014
001021
000001
170526

001160
170554
170546
170530
170532

170524
000000
001124

001126
001124
001126

TST46:

1%:

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

#10,8TIMES
::D0 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
#TSTCON' TSTDMA,aSFR
:SET TEST CONTROLLER FLOP
#1021,aCSR
:LOAD CSR REGISTER
#REDJOY,aSFR
:REQUEST JOYSTICE DATA
aSFR
:WAIT FOR JOYSTICE READY
1%
aJOY,$BDDAT
:READ THE REGISTER
#0,$GDDAT
:LOAD EXPECTED
$GDDAT, $BDDAT
: COMPARE
TST47
::BR IF SAME
17
:INHIBIT DECREMENT FUNCTION ERROR
;1IF DATA WAS 177777

CZNCCB NCVIT
DIAGM)STHZ
CINCCB.P1T
31-AUG=79
11:21

MACY11 3?2;1063)

31-AUG-79 13:10
TEST ADDRESS MAKER

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

956

;:".'QQ..'.Q.Q'i."fi""""Qfi'..."Q"Q'Qt.'t..t'i'fi.tt"".'t'

(4)

:*TEST 47

(4)

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

011260
011262
011270
011276
011304
011312
011320
011326
011334

012737
012777
012777
012777
052777
052777
042777
017737

000010
004000
000014
000036
000002
000001
000002
170420

001160
170460
170452
170434
170436
170420
170422
001126

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

011350
011356
011360

023737
001401
104020

001124

001126

(1)

011342

012737

003407

011362

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

000004

012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
001401

000010
004000
000014
002036
000002
000001
000002
170316
127657
001124

001160
170356
170350
170332
170334
170316
170320
001126
001124
001126

104020

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
CMP
BEQ

ERROR

:*TEST 51

#3407,SGDDAT

:LOAD EXPECTED VALUE

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

TEST ADDRESS MAKER

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

#10,STIMES
::D0 10 ITERATIONS
WCLRALL,aSFR
;CLEAR DEVICE
*
ATSTDMA!TSTCON,@SFR
:SET '‘TEST DMA AND CONTROL
#2036,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
WTESTZ,aSFR
:ENABLE "TEST 2'"PULSES
#BITO,aCSR
:SET ENABLE NCV11
WTESTZ,aSFR
:DISABLE "TEST ' PULSES
@ADM,SBDDAT
:READ THE ADDRESS DATA MAKER
#127657,SGDDAT
:LOAD EXPECTED VALUE
S$GDDAT,$BDDAT
: COMPARE EXPECTED TO READ
TSTS1
::BR IF SAME
20

RESOLUTION = 7

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

TEST ADDRESS MAKER

MATRIX MODE - RES = 7 GAIN = O ZB ENABLE = 1

;:'t't"'.fi.'fi'fififi'.'*'.tttfittt.t.fitfiti."'..'Q.t..'filt..'i'."tt

011464
011466
011474

000004
012737
012777

000010
004000

(1)

011532

042777

000002

(3)
(1)
(M

#10,STIMES
::D0 10 ITERATIONS
WCLRALL,@SFR
:CLEAR DEVICE
.
WTSTDMAITSTCON,@SFR
:SET '‘TEST DMA AND CONTROL
#36,3CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
WTESTZ,asFR
:ENABLE "TEST 2'"PULSES
#AIT0,3CSR
:SET ENABLE NCV11
WTESTZ,aSFR
:DISABLE "TEST Z'' PULSES
@ADM, SBDDAT
:READ THE ADDRESS DATA MAKER

::tttttt.tt't'.fi'ifit..tfi'ttfifi'.‘!.fi'.'i'...'.Q.t'.tt.'..fi‘t'.""

(3)
(2)
(1)

(1)

TS750:

(‘)

(1)

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

::ttt.ttttt.'ifi't'.fi...'..'*Q‘.t..tQ.Q'.Qt"fi..tttfi...'tfi"'.fi'..

(4)

(1)

(MP
BEQ
ERROR

*TEST 50

958

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

::'tt.'tttfit'tt."tfil'.tt"Q..tfiit..ti..Q.'..'fifi.'fi.'.i""".".

(4)

(1)
(1)

SCOPE
MOV
MOV
MOV
MOV
Bl3
BIS
BIC
MOV

MOV

;

(4)

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

t8147:

001124

957

(3)

TEST ADDRESS MAKER

:;"t't".ttfi'..fit'...'k.Q'lfitt.'.fi"'tl.'t..'t'.t"..lfit."'fi.'.

011502
011510
011516
011524
011540

011546
011554

011562
011564

012777
012777
052777
052777
017737

012737

023737
001401
104020

000014
004036
000002
000001

001160
170254

170246
170230
170232
170214

001126

001124

001126

SCOPE
MOV
MOV

#10,STIMES
WCLRALL,aSFR

BIC

WTESTZ,aSFR

MOV
MOV
RIS
BIS

170216

170214

053527

TSTS1:

MOV

001124

;

WTSTDMATSTCON,@SFR
#4036,aCSR
WTESTZ,aSFR
#BITO,aCSR

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

@ADM SBDDAT

:READ THE ADDRESS DATA MAKER

MOV

#053527,SGLDAT

BEQ
ERROR

TSTS2
20

C(MP

::D0 10 ITERATIONS
:CLEAR DEVICE

SGDDAT,$BDDAT

:DISABLE "TEST 2'* PULSES

:LOAD EXPECTED VALUE
::BR IF

RESOLUTION = 7

: COMPARE EXPECTED TO READ

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

SEQ 0049

CZNCCB NCV11 _ DIAGNOSTIC
CZNCCB.P11
31-AUG=79 11:21

MACY11 3?2?063)

31-AUG=79 13:10
TEST ADDRESS MAKER

960

(4)

;*TEST 52

(3)

011570

012737

(1)

011612

012777

(1)

(1)
(1)

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

(1)
(1)

011576
011604
011620

011626
011634

011642
011650
011656
011664

011666

000010

001160

000034

012777
012777

004000
000014

052777

000002

052777

042777

017737
012737
023737
001401

000001

170112
001406
0011246

TST52:

170126

MOV

#34 ,3CSR

170112

BIS

#B81T0,aCSR

MOV
MOV
cMP
BEQ

@ADM, SBDDAT
#1406,$GDDAT
$GDDAT , $8DDAT
TSTS3

MOV
MOV

170130

BIS

17011,

BIC

001126
001124
001126

104020

J*TEST 53
P

011670

000004

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

011672
011700
011706
011714
011722
011730

012737
012777
012777
012777
052777
052777

000010
004000
000014
002034
000002
000001

001160
170050
170042
170024
170026
170010

(1)

011752

012737

053656

001124

011736
011744

011760

011766
011770

042777
017737

023737
001401
104020

000002
170010

001124

011772

000004

012737

000010

001160

(1)

012010

012777

000014

167740

(1)
(1)

012026
012032

052777
052777

(1)

(3)
(1)
b

012002

012016

012040

012046

012054

012062

012070
012072

012777

042777

017737

012737

023737
001401
104020

004000

004034

000002
000001

BEQ
ERROR

000002

001126

001124

001126

125526

SCOPE

RESOLUTION = 6

TEST ADDRESS MAKER

; INCORRECT ADDRESS MAKER DATA
GAIN = 0 ZB ENABLE = 0

AR R R AR RN AR RN RN AR RA

AR AR AR

AR AR AN

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

AR RN

ARAARRANRARCRNN RS

#TESTZ,aSFR
@ADM, $SBDDAT

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

$GDDAT , $8DDAT

; COMPARE EXPECTED TO READ

TST54
20

;LOAD EXPECTED VALUE

;:BR IF SAME
s INCORRECT ADDRESS MAKER DATA
RESOLUTION = 6 GAIN = 1
2B ENABLE = 0

TEST ADDRESS MAKER

AR AR AR AR AR AR

RN RN AR

MOV

#TSTDMA!TSTCON,aSFR

#CLRALL ,aSFR

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

RN RN AN ARNRRRARANRARARN AN

;:D0 10 ITERATIONS

sCLEAR DEVICE

MOV

#4034 ,aCSR

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

BIC

#TESTZ,aSFR

;DISABLE

MOV

CMP

'‘TEST Z'' PULSES
;READ THE ADDRESS DATA MAKER
;LOAD EXPECTED VALUE
: COMPARE EXPECTED TO READ
;:BR IF SAME

#10,STIMES

BIS
BIS

001124

A AR AR

;DISABLE

MOV
MOV

167710

167706

;SET ENABLE NCV11

AR AR AR AR AR A AR RN AN AR R R AR AR RRRARRAA NN ARRNRNAARRARAARNRS

TST54:

167724
167706

;ENABLE 'TEST 2'' PULSES

;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

#53656, $GDDAT

167722

#TESTZ ,aSFR

MOV

IR AR

167746

;:D0 10 ITERATIONS

#10,STIMES
;D0 10 ITERATIONS
#CLRALL ,@SFR
;CLEAR DEVICE
:
#TSTDMA!TSTCON,aSFR
sSET "‘TEST DMA AND CONTROL''
#2034 ,aCSR
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
W#TESTZ,aSFR
sENABLE '‘TEST Z'' PULSES
#81T70,aCSR
sSET ENABLE NCV11

s*TEST 54

011774

(1)

SCOPE

cMP

(2)

(1)

RA RN

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

MOV
MOV
MOV
MOV
BIS
BIS

BIC
MOV

(4)

(1)

TST53:

001126

(4)

(1)

RN RR AR RN RARRAA RN

;CLEAR DEVICE
sSET "‘TEST DMA AND CONTROL''

170012
001126

962

(3)

#CLRALL ,aSFR
#TSTDMA! TSTCON,aSFR

#TESTZ,aSFR

ERROR

(3)
(1)
(1)

AR AR

#10,STIMES

170152
170144

(4)

(1)

AR AR

TEST ADDRESS MAKER

SCOPE

(1)
(1)

R AR

MOV

961

(3)

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

IR
RAA AR RN A AR AR RN RN

011566

(2)

(1)
(1)

R R AR

BEQ
ERROR

#TESTZ ,aSFR
#81T70,aCSR

;ENABLE °'‘TEST Z'' PULSES
sSET ENABLE NCV11

@ADM_ SBDDAT

#125526, SGDDAT
$GDDAT, $BDDAT
TSTSS
20

*‘TEST 2'' PULSES

;READ THE ADDRESS DATA MAKER

sLOAD EXPECTED VALUE

: COMPARE EXPECTED TO READ

;:BR IF SAME
s INCORRECT ADDRESS MAKER DATA

RESOLUTION = 6

GAIN = 0

2ZB ENABLE

= 1

SEQ 0050

CZNCCB NCV1T
DIA(MST%E
CINCCB.PIT
31-AUG=79
11:21

MACY11 S(T)(SS§1063)

31-AUG=79 13:10
TEST ADDRESS MAKER

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

%l.

:;Q'."itttQ..t"t'fit"tt"'tt."t'fi*tt.t'.!tt.tttt'.t'ti"'."..

(4)

*TEST 55

(l.)

(3)
(2)
(1)

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

012112
012120
012126
012134
012142
012150
012156
012164
012172
012174

000004
012737
012777

012777
012777
052777
052777
042777
017737
012737
023737
001401
104020

000010
004000
000014
000032
000002
000001
000002
167604
000402
001124

001160
167644
167636
167620
167622
167604
167606
001126
001124
001126

(1)

012176
012200
012206

000004
012737
012777

000010
004000

001160
167542

012260

012737

025526

001124

012214
012222
012230
012236
012244
012252

012266
012274
012276

012777
012777
052777
052777
042777
017737
023737
001401
104020

000014
002032
000002
000001
000002
167502
001124

TEST ADDRESS MAKER

SCOPE
MOV
MOV

#10,STIMES
ACLRALL,aSFR

MOV

#25506,8GDDAT

MOV
MOV
BIS
BIS
BIC
MOV

001126
;

CMP
BEQ
ERROR

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

3323333233233 33332333333 32322222022 23]

::DO 10 ITERATIONS
:CLEAR DEVICE

ATSTDMAITSTCON,@SFR
#2032,aCSR
ATESTZ,aSFR
#BITO,aCSR
ATESTZ,aSFR
@ADM,SBDDAT

: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

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

S 2332232223333 3333233323323 333 3323333233233 3232332333333233232323320232%1%)]

*TEST 57

TEST ADDRESS MAKER

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

2 :tfit'ttttttt!!'ttt'.tlttt.*ttttttttittttfii.ttt.'.'ttfifi"tttt"fit

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

012300
012302
012310
012316
012326
012332
012340

000004
012737
012777
012777
012777
052777
052777

000010
004000
000014
004032
000002
000001

001160
167440
167432
167414
167416
167400

(1)

012354

017737

167400

001126

001124

001126

(1)
(1

5756:

167534
167516
167520
167502
167504
001126

(l.)

(1)
(3)

#10,STIMES
::DO 10 ITERATIONS
#CLRALL,@SFR
:CLEAR DEVICE
=
ATSTDMAITSTCON,@SFR
-SET '‘TEST DMA AND CONTROL
#32,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
WTESTZ,aSFR
:ENABLE 'TEST Z'“PULSES
#BITO,aCSR
:SET ENABLE NCV11
WTESTZ,aSFR
:DISABLE "TEST 2'* PULSES
@ADM,SBDDAT
:READ THE ADDRESS DATA MAKER
#402,SGDDAT
:LOAD EXPECTED VALUE
SGDDAT,$BDDAT
:COMPARE EXPECTED TO READ
TSTS6
::BR IF SAME
20
; INCORRECT ADDRESS MAKER DATA
RESOLUTION = 5 GAIN = 0 2B ENABLE = 0

22 2333333233333 3233333 3332333333332

(4)

(1)

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
C(MP
BEQ
ERROR

+TEST 56

(1)

)

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

-4 :ttt'tttttt..ttt'.'t.'tt'tfittfitfi.fifififi'Q.t'Q'fifi't'.t.'."..t.t.'.

(l.)

(1)
(3)
(1)
(1

T8755:

;

(4)

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

2 :t.t.tt.tt..'.t.tfi...'fit"fi...Q'Ql."'.tttittfi..i..'.t'itti"t..

012074
012076
012104

(3)
(2)
(1)

TEST ADDRESS MAKER

SEQ 0051

012346
012362

012370
012376
012400

042777

012737
023737
001401
104020

000002
052452

T$157:

167402

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS

#10,STIMES
::DO 10 ITERATIONS
ACLRALL,@SFR
:CLEAR DEVICE
ATSTDMA'TSTCON,@SFR
:SET '‘TEST DMA AND CONTROL''
#4032,3CSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
ENABLE 'TEST 2'*PULSES
#BIT0,aCSR
:SET ENABLE NCV11

MOV

@ADM SBDDAT

BIC

001124

WTESTZ,aSFR

:DISABLE "TEST 2'* PULSES

MOV

#52452, SGDDAT

:LOAD EXPECTED VALUE

ERROR

(MP
BEQ
;

SGDDAT.SBDDAT
TST60

:READ THE ADDRESS DATA MAKER

: COMPARE EXPECTED TO READ
::BR IF SAME

RESOLUTION = 5

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

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

MACY11 3?2(()1063)

31-AUG=79 13:10
TEST ADDRESS MAKER

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

968

IR RN
R AR AR AR R AR AR AR R AR R RN
R RS

(4)

;*TEST 60

(3)

012402

000004

(2)
(1)

012404
012412

012737
012777

000010
004000

001160
167336

(1)

012426

012777

000030

167312

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

(1)
(1)

012420
012434
0126442
012450
012456
012464
012472
012500
012502

012777

052777
052777
042777
017737
012737
023737
001401

000014

000002
000001
000002
167276
000202
001124

167330

104020

012504

000004

012737
012777
012777
012777

000010
004000
000014
002030

001160
167234
167226
167210

(1)

012566

012737

012726

001124

012536
012544
012552
012560

012574
012602
012604

052777
052777
042777
017737

023737
001401
104020

000002
000001
000002
167174

001124

012606

000004

012610
012616
012624

012737
012777
012777

000010
004000
000014

(1)

012654

042777

000002

(1)

(3)
(1)
(1)

012632
012640
012646

012662

012777
052777
052777

017737

004030
000002
000001

012704
012706

023737
001401
104020

167106
167110
167072

A A AR

SCOPE

;LOAD RESOLUTION, GAIN, ZB ENABLE VAL UE

#TESTZ,aSFR
#BITO,aCSR
#TESTZ,aSFR
@ADM, SBDDAT
#202 ,$GDDAT
$GDDAT ,$BDDAT
TST61

sENABLE

‘‘TEST Z''

PULSES

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

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

;:BR IF SAME
;s INCORRECT ADDRESS MAKER DATA
RESOLUTION = & GAIN = 0 ZB ENABLE = 0

RRAR AR

R AR

TEST ADDRESS MAKER
AR AR AR

R AN

R RRARRRRARRARRAARRAANAARRARA
AR

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

AR RN ARARAAARARAARRAARARRARA
RN

#TESTZ,aSFR
#BIT0,aCSR
#TESTZ,aSFR
@ADM, SBDDAT

sENABLE °‘‘TEST Z'' PULSES
:SET ENABLE NCV11
;DISABLE "‘TEST Z2'' PULSES
JREAD THE ADDRESS DATA MAKER

$GDDAT ,$BDDAT
TST62
20

;COMPARE EXPECTED TO READ

;LOAD EXPECTED VALUE

;:BR IF SAME
;s INCORRECT ADDRESS MAKER DATA
RESOLUTION = &
GAIN = 1
ZB ENABLE = 0

R AR R AR R RR RN AR R RN

TEST ADDRESS MAKER

AR A AR A AR A A AN AR A AN

NARAAARRARRAANRARR RN RS

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

A AR AR AR AR A AR AR AR RS

BIC

#TESTLOSFR

MOV

001124

001126

CMP

""TEST DMA AND CONTROL

#10,8TIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
#TSTDMA!TSTCON,aSFR
sSET "‘TEST DMA AND CONTROL'®

001126

001124

;SET

MOV
MOV
MOV

MOV
BIS
BIS

167074

#TSTDMA!TSTCON,aSFR

#O12726.$GDDAT

TST62:

;:D0 10 ITERATIONS
s CLEAR DEVICE

MOV

167072

012670 012737 025252
012676

001160
167132
167124

MATRIX MODE = RES = & GAIN = 0 7B ENABLE = 0

#10,STIMES
;:D0 10 ITERATIONS
#CLRALL ,aSFR
sCLEAR DEVICE
=
#TSTDMA!TSTCON,aSFR
;SET "TEST DMA AND CONTROL
#2030,3CSR
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

CMP
BEQ
ERROR

(2)
(1)
(1)

(1)

SCOPE

;*TEST 62

MOV
MOV
MOV
MOV

BIS
BIS
BIC
MOV

001126

(1)

TST61:

167212
167174
167176
001126

970

(1)
(1)
(1)

ERROR

012506
012514
012522
012530

(3)

#30,3CSR

;*TEST 61

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

(1)

MOV

PRI

(1)
(3)
(1)

#10,STIMES
#CLRALL ,aSFR

BIS
BIS
BIC
MOV
MOV
CMP
BEQ

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

SCOPE

MOV
MOV

MOV

167314
167276
167300
001126
001124
001126

369

(3)

TST60:

TEST ADDRESS MAKER

R RN
R R AN AR AR AR
RRARNRN AR AR,

#4030,aCSR
#TESTZ,aSFR
#3170,aCSR

;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
sJENABLE ‘‘TEST 2'' PULSES
;SET ENABLE NCV11

@ADM, SBDDAT

sREAD THE ADDRESS DATA MAKER

MOV

#025252, $GDDAT

BEQ
ERROR

TST63
20

$SGDDAT ,$BDDAT

;DISABLE “‘TEST Z2'' PULSES

:LOAD EXPECTED VALUE

s COMPARE EXPECTED TO READ

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

SEQ 0052

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

MACY11 3?g§1063>

31-AUG=79 13:10
TEST ADDRESS MAKER

B §

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

972

:;.'t.Q'.t'.'.t..t.t..'t'.i.'..Q.QQ'..'..Q.."'Q..'.Q'Q..'.t"..'

(4)

TATEST 63

(‘)

012710
012712
012720
012726
01273%

000004
012737
012777
012777
012777

000010
004000
000014
000026

001160
167030
167022
167004

(1)

012750

052777

000001

166770

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

(3)
(1)
(1)

012742

052777

012756
012764
012772

042777
017737
012737

013006
013010

001401
104020

013000

023737

000002

000002
166770
000000
001124

166772

SATEST 64

000010

001160

(1)

013030

012777

000014

166720

013022

013036

013044

013052

(1)

013060

(1)

013074

013066
013102
013110
013112

012777

052777

042777

017737

012737

023737
007401
104020

004000

002026

000002

000001

000002

166666

005252
001124

:DISABLE 'TEST 2'* PULSES
:READ THE ADDRESS DATA MAKER
*LOAD EXPECTED VALUE

$GDDAT , SBDDAT

TST64
20

PULSES

:COMPARE EXPECTED TO READ

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

TEST ADDRESS MAKER

#10,$TIMES

MOV

#TSTDMA| TSTCON, aSFR

MOV

166704

BIS

166666

BIS

166670

BIC

001126

MOV

001124

MOV

001126
;

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

CMP
BEQ
ERROR

#CLRALL,aSFR

::D0 10 ITERATIONS

:CLEAR DEVICE

*SET "‘TEST DMA AND CONTROL''

#2026,aCSR

:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

#TESTZ,aSFR

*ENABLE ''TEST Z'* PULSES

#TESTZ,aSFR

*DISABLE

#B81T0,3CSR

:SET ENABLE NCV11

@ADM, SSDDAT

'‘TEST 2'*

PULSES

:READ THE ADDRESS DATA MAKER

#5252 ,$GDDAT

LOAD EXPECTED VALUE

$GDDAT, S8DDAT
:COMPARE EXPECTED TO READ
TST6S
::BR IF SAME
20
- INCORRECT ADDRESS MAKER DATA
RESOLUTION = 3
GAIN = 1
ZB ENABLE = 0

::tttt.t'.t.tti.tQfiti.Q.Qttfitttl'.'ifi..fi."Qfi.'tfifi'.t'tti*fii.t.'t

TATEST 65

(4)

TEST ADDRESS MAKER

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

;;'fitit"t'ttt*it.'fi.ttl"Q.Qt.'fi't'fifi"'l.'fl'.'t.t'lt'..t..tttt*

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

013114
013116
01312&
013132
013140
013146
013154

000004
012737
012777
012777
012777
052777
052777

00001C
004000
000014
004026
000002
000001

001160
166624
166616
166600
166602
166564

(1)

013170

017737

166564

001126

001124

001126

(1)
(3)
(1)
(1

#TESTZ,aSFR
SADM, SADDAT
#0,SGDDAT

:SET ENABLE NCV11

SCOPE
MOV
MOV

166702

(%)

(1)

TST64:

166726

974

(1)

BEQ
ERROR

ENABLE ''TEST Z'*

;:'tttlt'.'i.Q'Q.'tfififi..'.'fitttt'fi'Qtt't..t't...Q'Qt'...'i'tt.tt'

000004
012737

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

#8IT0,aCSR

#TESTZ,aSFR

:;ttt.t'fi'tt'fit't..'tfi"'.'ttifitfiQfi.'Qt.Qt.t.i't.'t."."fi.'tt"'

013012
013014

(1)

BIS

CMP

;

(3)
(2)

(1)

#10,$TIMES
::D0 10 ITERATIONS
#CLRALL , 8SFR
:CLEAR DEVICE
:
#TSTDMA TSTCON,aSFR
*SET "‘TEST DMA AND CONTROL
#26,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE

BIC
MOV
MOV

001126

(4)

(1)

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

SCOPE
MOV
MOV
MOV
MOV

BIS

001126
001124

(%)

(1)

T5763:

167008

973

(1>

::Q.'t"..Qfi'..ttfififi..fi."t.lfi.t..Q'.Q......Q.'Q'Qt'..'...'.tt.'.

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

(1)

TEST ADDRESS MAKER

SEQ 0053

013162

013176

013204
013212
013214

042777
012737

023737
001401
104020

000002
012424

T§7T65:

166566

SCOPE
MOV
MOV
MOV
MOV
BIS
BIS

#10,STIMES
::D0 10 ITERATIONS
#CLRALL,aSFR
; CLEAR DEVICE
ATSTDMA'TSTCON,aSFR
*SET '‘TEST DMA AND CONTROL''
#4026,aCSR
:LOAD RESOLUTION, GAIN, ZB ENA LE VALUE
#TESTZ,aSFR
ENABLE ''TEST 2'''PULSES
#81T0,aCSR
:SET ENABLE NCV11

MOV

@ADM_$SSDDAT

BIC

001124

MOV
;

cMP
BEQ
ERROR

#TESTZ,aSFR

:DISABLE "TEST 2'*

PULSES

#12424,$GDDAT

*LOAD EXPECTED VALUE

:READ THE ADDRESS DATA MAKER

$GDDAT . $BDDAT
*COMPARE EXPECTED TO READ
1ST66
::BR IF SAME
20
- INCORRECT ADDRESS MAKER DATA
RESOLUTION = 3
GAIN = 0
2B ENABLE = 1

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

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

PAGE 33
= MATRIX MODE = RES= 2 GAIN
= 0 ZB ENABLE = 0

976

'.QQQ'QQQQt"tttli.t""'t'ttt.t..tt'tt'ttt"'ttt'.t"t't"t'"Q'

(4)

:*TEST 66

(4)

(3)

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

013220
013226
013234
013242
013250
013256
013264
013272
013300
013306
013314
013316

000004

012737
012777
012777
012777
052777
052777
042777
017737
012737
023737
0014601
104020

000010
004000
000014
000024
000002
000001
000002
166462
000000
001124

001160
166522
166514
166476
166500
166462
166464
001126
001124
001126

013320

000004

012737

00001C

001160

(1)
(1)
(1)

013336
013344
013352

012777
012777
052777

000014
002024
000002

(1)
(3)

(1)

MOV
MOV
BIS

#TSTDMA'TSTCON,aSFR
#2024 ,aCSR
#TESTZ,aSFR

013374 017737 166360 001126

MOV

013410
013416

CMP
BEQ

013360
013366

013402

013420

052777
042777

012737

023737
001401

004000

000001
000002

002552
001124

166420

MOV

001126

104020

ERROR

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

#CLRALL , aSFR

::D0 10 ITERATIONS

:CLEAR DEVICE

#81T0,3CSR
#TESTZ,aSFR

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

@ADM, SBDDAT

*READ THE ADDRESS DATA MAKER

#2552 ,$GDDAT

SGDDAT $BDDAT
TST70

:SET "'TEST DMA AND CONTROL'
;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
:ENABLE '‘TEST 2'' PULSES

*LOAD EXPECTED VALUE

:COMPARE EXPECTED TO READ

;:BR IF SAME
s INCORRECT ADDRESS MAKER DATA

RESOLUTION = 2

GAIN = 1

7B ENABLE = 0

;;t'ttttt.tQtttttttQtttttttt'ttt.ttfit'fitfi't.tttt'ttfit.'tititt"t'

;*TEST 70

TEST ADDRESS MAKER

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

2232323323333 33333232333 3333333333333333323333333333333333333333331

000004
012737

000010

001160

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

013440
013446
013454
013462

012777
012777
052777
052777

000014
004024
000002
000001

166310
166272
166274
166256

013476

017737

166256

001126

001124

001126

BIS
BIC

001124

013422
013424

(1)
(3)
(1)

MOV

166360
166362

(3)
(2)

(1)

SCOPE

166412
166374
166376

012777

(4)

(1)

TST67:

#10,8TIMES

013330

(4)

(1)

TEST ADDRESS MAKER

MOV

978

(1)

#10,8TIMES
::DO 10 ITERATIONS
#CLRALL ,aSFR
;CLEAR DEVICE
2
H#TSTDMA'TSTCON,aSFR
;SET "'TEST DMA AND CONTROL
#24 ,aCSR
:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
#TESTZ,aSFR
*ENABLE ''TEST 2'' PULSES
#81T0,3CSR
*SET ENABLE NCV11
NTESTZ,3SFR
*DISABLE '‘TEST 2'' PULSES
aADM, SBDDAT
;READ THE ADDRESS DATA MAKER
#0,8$GDDAT
;LOAD EXPECTED VALUE
$GDDAT , $8DDAT
;COMPARE EXPECTED TO READ
TST67
J:BR IF SAME
20
;INCORRECT ADDRESS MAKER DATA
RESOLUTION = 2 GAIN = 0 ZB ENABLE = 0

:;tfifitttttttttltttttt.tttttttttttttttttttt'tttt'fittt"'fi.t'tfittti

013322

(1)

SCOPE

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

;«TEST 67

(2)

(1)

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

;:ttt'QQtQtQttQ.ttttt"tl'Qttttfitttfi'Qtttttttttttttttttttfit'tit't

(4)

(1)
(1)

TST66:

(1)

..tt'tt't'ttt.'t'tt'tttttttttfi"tttt'.tl'tt.tttt.t.QQQQ'QQQ'QQQQ'

013216

977

(3)

TEST ADDRESS MAKER

SEQ 0054

013432 012777 004000

013470
013504

013512
013520
013522

042777

012737

023737
001401
104020

000002
005224

t4770:

166316

SCOPE
MOV

#10,$TIMES

MOV
MOV
BIS
BIS

#TSTDMA! TSTCON,aSFR
#4024 ,aCSR
#TESTZ,aSFR
#BIT0,3CSR

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

@ADM, $SBDDAT

*READ THE ADDRESS DATA MAKER

MOV

166260

BIC

MOV

001124

MOV
;

CMP
BEQ
ERROR

#CLRALL ., @SFR

::D0 10 ITERATIONS

#TESTZ,aSFR

#5224, $GDDAT

$GDDAT , SBDDAT
TST71
20

:CLEAR DEVICE

*DISABLE 'TEST Z'' PULSES
*LOAD EXPECTED VALUE

;:BR IF

RESOLUTION = 2

*COMPARE EXPECTED TO READ
SAME
;INCORRECT ADDRESS MAKER DATA

GAIN = 0

ZB ENABLE

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

MACY11 3?9;1063)

31-AUG-79 13:10
TEST ADDRESS MAKER

D §

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

980

:;t"'...t.t't.t..'."".t"t'."'t"tt...t.tt"fitfi"t'QQ.'.."..

(4)

TRTEST 71

(‘)

(3)

013524

000004

013534

012777

004000

013606
013614
013622
013624

012737
023737
001401
104020

000000
001124

013526 012737 000010 001160

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

013542
013550
013556
013564
013572
013600

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

012777
012777
052777
052777
042777
017737

000014
000022
000002
000001
000002
166154

001124
001126
;

000004
012737
012777
012777
012777
052777

000010
004000
000014
002022
000002

001160
166112
166104
166066
166070

(1)
(1)

013674
013702

042777
017737

000002
166052

166054
001126

013716
013724
013726

023737
001401
104020

001124

013666 052777 000001
013710

012737

001265

;

#CLRALL ,aSFR

;:D0 10 ITERATIONS

:CLEAR DEVICE

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

#0,$GDDAT
:LOAD EXPECTED VALUE
$GDDAT , $BDDAT
: COMPARE EXPECTED TO READ
1ST72
::BR IF SAME
20
; INCORRECT ADDRESS MAKER DATA
RESOLUTION = 1
GAIN = 0 2B ENABLE = 0
TEST ADDRESS MAKER

MATRIX MODE - RES = 1 GAIN = 1

ZB ENABLE = 0

SCOPE
MOV
MOV
MOV
MOV
BIS

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

BIC
MOV

#TESTZ,aSFR
@ADM, SBDDAT

CMP
BEQ
ERROR

#B81T0,3CSR

*SET ENABLE NCV11

#1265, $GDDAT

:LOAD EXPECTED VALUE

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

$GDDAT, SBDDAT
: COMPARE EXPECTED TO READ
1ST73
::BR IF SAME
20
: INCORRECT ADDRESS MAKER DATA
RESOLUTION = 1
GAIN = 1
ZB ENABLE = 0

::tfi*'*Qt*fittttfitttt'fitti'ttfitfittttt't"...'fli.'l'itfi.Q".Q'QQ.Q'

T*TEST 73

TEST ADDRESS MAKER

MATRIX MODE - RES = 1

GAIN = 0 ZB ENABLE =

;:ttttQ'Q'Q.t.'Qt'tt.tttt'fitttifit*t.tfitt.ti.fit.i"fi.'.l"fii.'t't'

(3)
(2)

013730
013732

000004
012737

000010

001160

(1)

013746

012777

000014

166002

013740 012777 004000
013756
013762

012777
052777

004022
000002

(1)

013770 052777 000001

(1)

014012

(1)
(1

MOV
P
BEQ
ERROR

MOV

001126

(‘)

(3)

#TSTDMA | TSTCON,@SFR
#22,aCSR
#TESTZ,aSFR
#81T0,3CSR
#TESTZ,aSFR
@ADM, SBDDAT

BIS

001124

(4)

(1)

T§172:

166052

982

(1)
(1)

MOV
MOV
BIS
BIS
BIC
MOV

I*TEST 72

013626
013630
013636
013644
013652
013660

(1)
(1)

#10,8$TIMES

;:Q'*tttiQ.t'tt'fitfit"fit"fifi'ttQfi.tQt.t..t.t‘fi".ttt.ttit'ttt'.'t

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

(1)

)

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

:;tfitt"""fi'tt'tfit'.fit"t.tt.Qtt'i'itt.tt.'t'...fitt.'it""'it'

(4)

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

SscoPE

MOV

166206
166170
166172
166154
166156
001126

(4)

(1)

t§771:

166214

981

(1)

;:tt't'tttt'fl'."..fi!...Q".!!fi't...fit"'t'.'fit.fitt'ttfi'..'Qfi"l.

(2)

(1)

TEST ADDRESS MAKER

SEQ 0055

166010

000002
165750

165752
001126

014020

023737

001124

001126

014026 001401
014030

104020

002512

#10,$TIMES

MOV

ATSTDMA| TSTCON,@SFR

MOV
BIS

165750

042777
017737

SCOPE
MOV

MOV

165764
165766

013776
014004

012737

T§773:

#4022 ,aCSR
#TESTZ,aSFR

; CLEAR DEVICE

SET '‘TEST DMA AND CONTROL''

:LOAD RESOLUTION, GAIN, ZB ENABLE VALUE
:ENABLE 'TEST 2'“PULSES

#B81T0,3CSR

:SET ENABLE NCV11

MOV

#2512 ,$GDDAT

:LOAD EXPECTED VALUE

BEQ
;

;:D0 10 ITERATIONS

BIS

BIC
MOV

001124

#CLRALL , aSFR

ERROR

#TESTZ,aSFR
@ADM, SBDDAT

$GDDAT, SBDDAT

T1ST74

:DISABLE "TEST Z'* PULSES
:READ THE ADDRESS DATA MAKER
:COMPARE EXPECTED TO READ

::BR IF SAME

RESOLUTION = 1

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

(ZNCCB NCVTT
CZNCCB.PNM

(1)

MACY11 30G(1063)
174
e

31-AUG=79

014032
014034
014042
014050
014056

LIST MODE - 7ZB ENABLE = 0
-

222022

SEQ 0056

GAIN = 0

222220000

R2R

LIST MODE - ZB ENABLE = 0

GAIN = 0

it2232332232333
2222
2222220t
R 2R
Rt Rl

185174:

#10,8TIMES

#CLRALL ,aSFR

::D0 10 ITERATIONS

:CLEAR DEVICE

#TSTDMA! TSTCON,aSFR
#0,3CSR
#TESTZ,aSFR
#81T0,aCSR
#TESTZ,aSFR
@ADM, SBDDAT

#3407, $GDDAT

003407
001124

014122
014130
014132

5
PAGE 35

TEST ADDRESS MAKER

165646

014106

2323223232333 3223 2222223303332 32222222223

000002
000001

014114

13:10

TEST ADDRESS MAKER

TRTEST 74

984
(3)
(3)
(2)

DIAGNOSTIC
31-AUG=79 11:21

ERROR

$GDDAT, SBDDAT
TST75
21

*SET TEST 'DMA AND CONTROL''
*ENSURE LIST MODE
*ENABLE “"TEST 2'' PULSES
“SET ENABLE NCV11
*DISABLE '‘TEST Z'' PULSES
*READ THE ADDRESS MAKER VALUE

*LOAD EXPECTED VALUE

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

JRESOLUTION 7 <DEFAULT WHEN ZB IS NOT ENABLED>

';t'Qfitttfitttfii'tttfitttttt'tttitfi.!t..itQtQfi'fi""tlt".fii'..'ti'

S*TEST 75

TEST ADDRESS MAKER

LIST MODE - ZB ENABLE = 1

GAIN = 0

';ttt'ttt'tttttt"fittfltttt'itttQtQQ'tt'itt.tt.t'..'fi.ttt.t..t.ttt

014134
014136
014144

014152
014160
014166
014174
014202
014210
014216
014224
014232
014234

T8175:

000004
012737
012777
012777
012777
052777
052777
042777

017737
012737
023737
001401
104021

SCOPE

MOV
MOV
MOV
MOV
BIS
BIS
BIC
MOV
MOV
cMP
BEQ

ERROR

#10,$TIMES

::DO 10 ITERATIONS

#CLRALL , @SFR
#TSTDMA! TSTCON,aSFR
#4000, aCSR

:CLEAR DEVICE
*SET TEST ‘DMA AND CONTROL'
*ENSURE LIST MODE AND ZB ENABLED

#52452, $GDDAT

*LOAD EXPECTED VALUE

#TESTZ,aSFR
#B1T0,aCSR
#TESTZ,3SFR
@ADM, $SBDDAT

$GDDAT , $BDDAT
TST76
21

*ENABLE "TEST 2'' PULSES
*SET ENABLE NCV11
*DISABLE ''TEST 2'' PULSES
*READ THE ADDRESS MAKER VALUE

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

JRESOLUTION 5 <DEFAULT WHEN ZB IS ENABLED>

':t.'t'ttfitil"ttttttt.tiittttt..'.Qt'tfi.'itt't.tlt'..!'.tfi.fi.'.'

S*TEST 76
S

001160
165502
165474

165456
165460
165442
165444

001126
001124
001126

TEST ADDRESS MAKER

2222222222222

15176:

SCOPE
Vv

2223220222222

LIST MODE - ZB ENABLE = 0
R

Rttt

GAIN =

#10,8TIMES
::DO 10 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
#TSTDMA! TSTCON,aSFR
*SET TEST 'DMA AND CONTROL''
#2000, aC SR
:SET GAIN FLOP

NTESTZ,aSFR

*ENABLE

@ADM, $BDDAT
#127657 , $GDDAT
$GDDAT , $BDDAT
1S177
21

*READ THE ADDRESS MAKER VALUE
*LOAD THE EXPECTED
* COMPARE
SAME
“INCORRECT ADDRESS MAKER DATA

#B1T0,aCSR
#TESTZ,aSFR

'‘TEST 2''

PULSES

“ENABLE THE NCV11
‘DISABLE THE ''TEST Z'* PULSES

;:BR IF

;RESOLUTION 7 =

GAIN FLOP SET

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

1029

(3)
(3)

(2)

(1)

000004

1034
1035
1036

014342
014350
014356
014364
014372
014400
014406
014414

012737
012777
012737
012777
012777
012777
012777
052777

1038
1039
1040

014436
014440
014442

000240
000240
000240

1042
1043
1044

014452
014454
014456

000240
000240
000240

1030

1031
1032

1033

1037
(1)

1041

1045
1046
1047
1048
1049
1050
1051

1052

1053
1054
1055

014422
014430

014444

014460
014466
0144746
014502
014510
014512
014514

014516

014524
014532

014540

052777
042777

000040
004000
125252
011110
177777
060000
000014
000001
000002
000002

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

JREAD STATUS
JRESET THE DEVICE
;LOAD EXPECTED
;TEST STATUS

001402
104036
000453

017737

012737
023737
001401

001124

165232
060002
001126

001401
104024

001126

001124
001126

NOP
NOP
NOP

4§%:

001401
104023

017737

165146

001126
001124
001126

001126

014610

013737

060000

001126

1072

014624

012737

060000

001122

012737

023737

001401
104037

003407

001124

001126

BEQ
ERROR
BR

MOV

1%:

@BAR, $BDDAT
#BUF0+2, SGDDAT
$GDDAT , $BDDAT

ERROR

MOV
MOV
(MP

aWCR, $8DDAT
#0,$GDDAT
$GDDAT ,$BDDAT

CLR

$GDDAT

BEQ
ERROR

2%:

MOV

BEQ
ERROR

3%:

2]
36
TST100

MOV
CMP
BEQ

104022

1070

014640
014642

#TESTZ ,aSFR
#TESTZ,aSFR

aCSR,$BDDAT
#CLRALL ,aSFR
#40200,$GDDAT
$GDDAT, $BDDAT

014604
014606

1074
1075

ITERATIONS
;CLEAR THE DEVICE
;PRIME TARGET BUFFER
;LOAD THE OFFSET VALUE WITH A NUMBER
;SET UP 1 WORD TRANSFER
;LOAD BUS ADDRESS FOR RESULT
JENABLE TEST CONTROL AND DMA FLOPS
;ENABLE DEVICE

MOV
MOV
MOV
(MP

1067
1068

014632

#40,8TIMES
;:DO 40
#CLRALL ,aSFR
#125252 ,BUF0
#11110,90FF
#-1,3WCR
#BUF 0, aBAR
#TSTDMA!TSTCON,aSFR
#B170,aCSR

001126
165262
001124
001126

001124

1073

NOP
NOP
NOP

R RRRRRRddd)

165262
004000
040200

005037

014616

BIS
8IC

2%
23

a0F F ,$8DDAT
3%
24

MOV

BUFQ,$BDDAT

MOV

#3UF
0, $8DADR

MOV

(MP

BEQ
ERROR

R RS

SECTION LIST MODE

017737
012777
012737
023737

014572

1071

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIS

JALLOW 1 DMA TRANSFER

1065

1069

165326
165320

SCOPE

#BIT12,aSFR

165202
000000
001124

014576

ENABLE A ONE WORD TRANSFER

BIS

017737
012737
023737

1066

001160
165400
060000
165356
165352
165346
165342
165324

TST77

RAARAAARRAAR AR

165304

014544
014552
014560

1064

SEQ 0057

010000

1059
1060
1061

014566
014570

SECTION LIST MODE

052777

014542

1062
1063

2233222022222t

1056

}ggg

A RAR A AR AR AR

'TEST 77

014340

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 36
177
ENABLE A ONE WORD TRANSFER

;:BR IF EXPECTED
JUNEXPECTED STATUS AFTER A 1
i

sREAD BUS ADDRESS

;:BR IF

1ST100
37

;LOAD EXPECTED
; COMPARE VALUES

SAME

s INCORRECT BUS ADDRESS VALUE

;AFTER A'1 WORD TRANSFER

;:BR IF

;READ W.C. REGISTER
;LOAD EXPECTED VALUE
; COMPARE VALUES

SAME
s INCORRECT WORD COUNT REGISTER VALUE

;AFTER A 1 WORD TRANSFER

;CLEAR THE EXPECTED VALUE

;:BR IF

;READ THE OFFSET REGISTER

CLEARED
;OFFSET REG.

;1 LIST MODE XFR.

FAILED TO CLEAR AFTER

;GET BUFFER DATA

#3407, SGDDAT

$GDDAT, SBDDAT

WORD TRANSFER

sLOAD EXPECTED

;LOAD BAD ADDRESS
::BR

; COMPARE DATA

SAME
;STATUS WAS OK BUT DATA WAS

INCORRECT

CINCCB

NCVTT

CINCCB.PIT

DIAGNOST
S IC
31-AUG=79 1M:2

1077

052777
042777
052777
005337
001364

104036
000465
005037

gs\mmbbwl\,_._-_.
oo
SN
N

b
b

cndd cach auid

b calh
b

sl
s

b
b
b cud acb

auh ail cnd cu
s

(O RV LW LV AV LV LV LV LV LV IV, |

oo
Wh
—

2%:

;THE

3%:

012777
017737
012737
023737
001401

A ¥

017737
012737
023737
001401

5%:

012737
012737
017737
023737

6%:

062737
022737
001361

10%:

104022

eolelelelelelelelolels]

el —d —d
—d
e

104006

- ol —

D
)

017737
001401

e
el

el
D
il
e

)

—d -l

SomIG A~ v -0 3BIRIRIC2E 33

017737
012737
023737
001402

104023

001401
104037

SEQ 0058

ENABLE A 512 WORD TRANSFER

SECTION LIST MODE

iiii2222200222222222
22202 R
R Rl Rl

1%:

012737

SECTION LIST MODt

RN AR AR ARAAAAAR P AAARAAARAARARAAARARARERAARAARAR
IR RO

T$T100: SCOPE

1080
1081

-l

1100

[

31-AUG-79 13:10 PAGE 37
ENABLE A 512 WORD TRANSFER

TRTEST 100

(1)
1078
1079

—d

306(1063)
AR

(3)
(3)
(2)

MACYTT

7%:

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

MOV
MOV
MOV
MOV
(MP
BNE
MOV
MOV
MOV
BIS
MOV

#40,8TIMES

#512. ,$TEMP

;BR _IF NOT
;SET UP 512. WORD TRANSFER
;LOAD BUS ADDRESS FOR RESULT
JENABLE TEST CONTROL AND DMA FLOPS
;ENABLE DEVICE
;LOAD THE COUNTER

BIS
BIC
BIS
DEC
BNE

#TESTZ,aSFR
#TESTZ,aSFR

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

STEMP

;FINISHED ALL

TRANSFER

MOV
MOV
CMP
BEQ
ERROR
BR

CLR

MOV
BEQ
ERROR
MOV
MOV
MOV
(MP
BEQ
ERROR

#CLRALL

#8UF0, RO

,aSFR

(RO) +
#125252.

JPRESET

RO, #BUF 1
1%

#-512. ,aWCR

#8UF0,aBAR

#TSTDMA!TSTCON,aSFR

#3170,aCSR

JALLOW 1 DMA TRANSFER

#BIT12,aSFR
IS NOW COMPLETE

ACSR, $BDDAT

:READ STATUS

#40200, $GDDAT
s

*LOAD EXPECTED STATUS

:COMPARE DATA

::BR IF EXPECTED STATUS

SUNEXPECTED STATUS AFTER 512 WORD TRANSFER

¥g7101
$GDDAT

@0FF ,$BDDAT
48

#CLRALL ,aSFR

:CLEAR EXPECTED
::BR

$GDDAT , SBDDAT
5%

:READ OFFSET REG.

CLEARED

SUNEXPECTED OFFSET REGISTER BIT SET
:CLEAR THE

aBAR, $SBDDAT
#B8UF 1,$GDDAT
22

WORDS?

;BR UNTILL DONE

$GDDAT , $SBDDAT

THE BUFFER WITH DATA

;TEST IF DONE

DEVICE

:READ BUS ADDRESS
:
:LOAD EXPECTED BAR VALUE

::BR IF

:COMPARE VALUES
SAME

:INCORRECT BUS ADDRESS VALUE AFTER A 1 WORD TRANSFER

aWCR, $BDDAT
#0,$GDDAT
$GDDAT , SBDDAT

:READ W.C. REGISTER
:LOAD EXPECTED W.C. VALUE
:COMPARE VALUES
6%
::BR IF SAME
23
;INCORRECT WORD COUNT REGISTER VALUE AFTER A 1 WORD TRANSFER
#3407 ,8GDDAT
:LOAD EXPECTED DATA
#BUF 0, SBDADR
:LOAD STARTING ADDRESS
@$BDADR, $8DDAT
:READ DATA WORD
$GDDAT , SBDDAT
:COMPARE DATA
108
::BR IF EXPECTED
37
:INCORRECT DATA IN LIST MODE XFER.

#2,$8BDADR

#BUF0+1024. ,$BDADR
7%

:UPDATE POINTER
;TEST

2sBR IF NOT DONE

END OF BUFFER

CZNC(B NCV1T
CZNCCB.PIT

DIAGNOSTIC

31-AUG=-79 11:21

1125

)
D

NON
o0

015352
015360
015366
015374
015376

0004
023737
001401
104025
052777
012737

017737
023737
001401
104025

22222228
D
D
D
D

010000

164454

004000
000200
164362

001124

#40,8TIMES

MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC

#-1,awCR
#3,90FF
#160000, @BAR
#TSTCON' TSTDMA,aSFR
#16,aCSR
UBITO.GCSR
#TESTZ,aSFR
#TESTZ,aSFR

164404

001124
001126
001126

2%:

RRRRR

#CLRALL ,aSFR

R R RN R AR AR RN AR

R RO R AR

;D0 40 ITERATIONS

;CLEAR DEVICE

JLOAD W.C. REGISTER
;LOAD EXTENDED ADDRESS BITS
;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE
sSET TEST CONTROL AND DMA
:LOAD RESOLUTION TO VERIFY "'SFR INiT'' CLEARS
:ENABLE THE DEVICE
JENABLE "‘TEST Z2'' PULSES
;DISABLE "‘TEST Z'' PULSES

#BIT12,aSFR

MOV
MOV

#BIT1S'BIT14'BIT7,$GDDAT
;LOAD EXPECTED
a(SR,$8DDAT
;READ STATUS REG.

ERROR
BR
CMP
BEQ

Po
TST102
$GDDAT , $BDDAT
2%

MOV
MOV
CMP
BEQ

#8177 ,8GDDAT
aCSR,$8DDAT
$GDDAT ,$BDDAT
TST102

NOP
NOP
NOP

1%:

BIS

BM]
001126

SEQ 0059

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

MOV

NOP
NOP
NOP

140200
164424

001124

SCOPE

MOV

S
&~
~
o

—_— 3

100402
104025

TST101

oo
g

D
o

ERROR
BIS

ERROR

;ALLOW

25
#CLRALL ,aSFR

1 DMA TRANSFER

;BR IF "TIMEOUT'' FLOP IS SET

53
;:BR IF

:"'TIMEOUT'' FLOP FAILED TO SET

;COMPARE VALUES
SAME

;"'TIMEOUT'' FLOP DID SET BUT FAILED TO GENERATE ''
:GENERATE AN ''CLR ALL'' TO CLEAR TIMEOUT FLOP
;LOAD EXPECTED
;READ STATUS
; COMPARE VALUE

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

;;'tt.ttt'.tt."ttt'tfi'tttQtt.tt.tQQQttttfit'tt'.!'tt't.Itt.t"t't

;*TEST 102

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

NN
=
NN =NN
=t —a )
(o)
& HNNOSH~ONONOD

LRLFXXXL2

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

e e

015400
015402
015410
015416

Y e

';tt.tttl..ttQ't.t.ti'tfit't't.t...t....t'tt"ttti'i.l"t...t't."

7ST102: SCOPE
MOV

#40,STIMES

MOV
MOV

#3,a0FF
#160000, aBAR

MOV
MOV

#CLRALL ,aSFR
#-1,aWCR

;:D0 40 ITERATIONS

;CLEAR DEVICE
;LOAD W.C. REGISTER

;LOAD EXTENDED ADDRESS BITS
;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE

MOV
BIS
BIS
BIC

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

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

164252

BIS

#IT12,aSFR

:ALLOW 1 DMA TRANSFER

001124

MOV

#BI1T15!BIT14!B]IT7,8GDDAT

I N

e
D
D

e
D

2777

12777

- —————

000004
2737
2777
2777

012777
012777
052777
052777
0462777
000240
000240
000240
052777
000240
000240
000240
012737
017737

i
Y

i e i
i -

)

PN o o o
-

I
I

D i

o
Dl

D —D

)
el —d e

A2232232323 3232223002002

AR
R R R AR RN
RN R R RAR AN AR AR

015170
015172

(olelelelo]

SARTRATR LB BHLRVLLRRURN LB S EIEERERSSSEIERR
UK ZEY 0O NON~

'TEST 101

B i

R ——————

D e
D PN~
NN =N

(3)
(3)

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 38
T101
VERIFY "'TIMEOUT'' FLOP SETS AND '‘CLR ALL'' CLEARS IT

sSET TEST CONTROL AND DMA

*ENABLE THE DEVICE

sLOAD EXPECTED

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

1172
1173
1174
1175
1176
1177
1178

015526
015530
015532
015534
015542
015544
015546

100402
104025
000423
023737
001401
104025
052777

164222

001126

001124

001126

1$:

164202

2$:

1180
1181

015562
015570

017737
023737

164160
001124

1179

1182
1183
118‘

015520

015554

015576
015600

017737

012737

001401
104025

100000

040200

001124

MOV
CMP

BEQ
ERROR

000004
012737
012777
012777
012777
012777
012777
012746
012746
000002
012777
000240

1199
(1)
1200
1201
1202
1203
1204
1205
1206
1207
1208

015706
015714
015722
015724
015726
015730
015736
015740
015742
015744
015750

052777
042777
000240
000240
000240
052777
000240
000240
000240
005077
104026

1211
1212
1213
1214
1215

MOV

S+TEST 103
015602
015604
015612
015620
015626
015634
015642
015650
015654
015660
015662
015670

1209

BMI
ERROR
5F
(MP
BEQ
ERROR
BIS

015672
015674
015676
015700

015752

015754
015756
015762
015770
015776

000240
000240
000240
052777

000040
004000
177777
000003
160000
000014
000000
015662

001160
164136
16412
164114
164112
164106

1%
25
157103
$GDDAT,SBDDAT
28
25
#BIT1S.aSFR

:READ STATUS REG.

; COMPARE VALUES
::BR IF SAME
¢
:"'TIMEOUT'* FLOP DID SET BUT FAILED TO GENERATE

#BIT14(BIT7,SGDDAT

SCSR,SBDDAT
S$GDDAT,SBDDAT

1ST103
25

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

:GENERATE AN ''CLR TIMEOUT''
:LOAD EXPECTED

TO CLEAR TIMEOUT FLOP

:READ STATUS
: COMPARE VALUE

:iBR IF SAME
'CLR TIMEOUT'* FAILED TO CLEAR TIMEOUT FLOP

015754

164102

000101
000002

164040
164042

000002

010000

MOV
MOV
MOV

MOV
MOV
MOV
1$:

164034

mov
RT]
MOV
NOP
NOP
NOP
NOP
BIS
BIS

BIC

NOP
NOP
NOP

164020

VERIFY ‘TIMEOUT'' INTERRUPT

it ii2 2233323233223
2222322323232
22222222 R Rl

TST103: SCOPE
MOV

BIS

NOP

#40,STIMES
::D0 40 ITERATIONS
ACLRALL,aSFR
;CLEAR DEVICE
#=1,aWCR
:LOAD W.C. REGISTER
#3,30FF
:LOAD EXTENDED ADDRESS BITS
0160000 aBAR
;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE
ATSTCON!TSTDMA,@SFR
:SET TEST CONTROL AND DMA
#0,-(SP)
#1$,-(SP)
#28,aVECTAQ

#BIT6!BITO,aCSR
ATESTZ.aSFR

;ENABLE THE DEVICE
ENABLE "'TEST Z2°* PULSES

#BIT12,aSFR

;ALLOW 1

aCSR
26

:CLEAR ENABLE
;"'TIMEOUT'® FAILED TO INTERRUPT

ATESTZ.aSFR

:DISABLE "TEST 2'* PULSES

DMA TRANSGFER

NOP

NOP
(LR
ERROR

163776

000401

022626
005077
012777
013777
005077

@CSR,SBDDAT

SEQ 0060

» Q."...t"t.'l.t't'."".t.'fi.fittt.fi'..'t..'.fi'..ttt"..fit."..

(3)

1195
1196
1197
1198

MOV

001126
001126

(3)

(2)
(1)
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194

—

5
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 38-1
7102
VERIFY "TIMEOUT' FLOP SETS AND ‘LR TIMEOUT'' CLEARS IT
I

E
163764
004000
001774
163772

163766
163774

25:
3%:

(MP
(LR
MOV
MOV
(LR

(SP)+,(SP)+
aCSR
#CLRALL,ASFR
VECTAT,QVECTAO
@VECTAT

::BR TO CLEAN UP

:CLEAN THE STACK
‘
;CLEAR THE DEVICE
:RESET VECTOR

CZNCCB

NCV11

CZNCCB.P1T

DIAGNOSTIC
31-AUG-79 12

MACYT

306(1063)
T104

31-AUG=79

13:10

PAGE 38-2

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

';."l.'t'..ittQ.tl.t.".'t.QQ.Q..t'.t'.t.'ttttt.'.".'.iQtt.ttt'

;*TEST 104

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16

D
i
i
D
i
i
o
i
i
i
e e
i

000040
004000
036404

001160
163736
002140

177777

163714
163710

TST104:

SCOPE

MOV

#40,8$TIMES

CMP

$SLSTBK , #2140

MOV

;CLEAR THE DEVICE

“TEST IF ENOUGH MEMORY

CLR
MOV
MOV

Q0FF
#TSTCON! TSTDMA,aSFR
#16,3CSR

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

BIC

BIS

#TESTZ ,aSFR
#TESTZ,aSFR
#BIT12,aSFR

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

MOV
MOV
CMP

#1,8GDDAT
Q0FF , SBDDAT
$GDDAT, $BDDAT

BEQ
ERROR

::D0 40 ITERATIONS

TST105
#-1,aWCR

BIS
BIS

#177776,aBAR

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

#81T0,aCSR

TST105
&

:LOAD LAST ADDRESS

*ENABLE THE NCV11

;ALLOW 1 DMA TRANSFER

:LOAD EXPECTED VALUE
*READ ACUTAL VALUE
- COMPARE

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

#CLRALL ,@SFR

BLO
MOV

MOV

NNNININININ)
A~ A~ ~ ~NorNoNONINONY

NaNNNANNNNNNNNNN’\
W
N =N
o=
VB WNN=OOVVvYwwwONOWNH~W N 283 o~~~ FARUNSS

;:'tt"t'."'fi"'.fi.'..i."Qtfi..'Q'QQ.QQ't"..ttttt.fit.'.t.'..'.'

S*TEST 105

VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 17

:;ttttttttttttttttttt"tt'tttttttttttttttt'tt.ttt't'..tt'tttttttt

016150
016152
016160
016166
016174
016176

000040
004000
036404

001160
163570
006140

177777
177776

163546
163542
163530

;:tttttttttttttttttttttltttttttttttttttt'ttfi.ttttttt..ttttt!ttt.t

T$T105:

SCOPE

MOV

::D0 40 ITERATIONS

#CLRALL . @SFR

8LO
MOV

TST106
#-1,aWCR

MOV
MOV
MOV

#1,30FF
#TSTDMA! TSTCON,aSFR
#16,3CSR

CMP

MOV
BIS

BIS

BIC

016324

#40,$TIMES

MOV

NOP
NOP
NOP

$LSTBRK, #6140

#177776,aBAR

:CLEAR THE DEVICE

*TEST MEMORY SPACE >100K

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

:LOAD LAST ADDRESS

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

#BI1T0,aCSR

;ENAVLE THE DEVICE

#TESTZ ,aSFR

;DISABLE ‘‘TEST 2'' PULSES

;ENABLE "‘TEST 2'' PULSES

WHTESTZ ,aSFR

010000

BIS

#BIT12,aSFR

;ALLOW 1 DMA TRANSFER

000002
163436
001124

MOV
MOV
CMP
BEQ

#2 ,8GDDAT
a0F F , $BDDAT
$GDDAT, $BDDAT
TST106

;LOAD EXPECTED
JREAD ACTUAL
; COMPARE
SAME

NOP
NOP
NOP

ERROR

;:BR IF

JEXTENDED ADDRESS BIT 17 FAILED TO SET

SEQ 0061

CZNCCB NCVTT
CZNCCB.PT1T

DIAGNOST IC
31-AUG-79 11:21

MACY11

1262

1287
1288

EEEEEERFRRERR 3

1289

iii

iRt

SCOPE

#40,STIMES

;:D0O 40 ITERATIONS

;READ DATA

MOV
MOV
MOV
MOV
MOV
MOV
BIS
NOP

#CLRALL ,aSFR

BEQ
ERROR

#TSTDMA!TSTCON,aSFR

#7070 ,BUF0

#BIT0,aCSR

013737

060000
000000
001124

060000
163212

001000
010000

163206
163200

.LOAD BUS ADDRESS FOR RESULT
JENABLE

TEST CONTROL AND DMA FLOPS

;PRESET DATA

;ENABLE DEVICE

;ALLOW 1 DMA TRANSFER

$GDDAT, $BDDAT
1ST107

;LOAD EXPECTED

; COMPARE VALUES
;:BR IF SAME

s INCORRECT DATA VALUE FOR "EVENT'' MARK

JAFTER A 1 WORD TRANSFER

22222232223323323233222322
322222222022 3R 22022 2]

TST107:

163242
163236

;SET UP 1 WORD TRANSFER

#BUF0,aBAR

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

SRR A A AR A A AR AR A AR AR AR

000014
007070
000001

;CLEAR THE DEVICE

#-1,aWCR

#-1,8GDDAT

L*TEST 107
000040
004000
177777

]

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

BUF 0, $BDDAT

012737
012777
012777
012777
012777
012737
052777
000240
000240
000240
052777
052777

RRddd

SEQ 0062

i 2223223202222
R
2Rt
iR
R
R R Rl )]

#BIT12,aSFR

104027

;SET "EVENT'' FLOP

001124

023737
001401

2222

#B81T10,aSFR

177777

000004

0222

163340
163332

060000

1278
1279
1280
1281
1282
1283

(1
1284
1285

2022322222223

002000
010000

1273
1274
1275
1276
1277

(3)
(3)
(2)

2232323232222

oo
[ 2%Yo3

1270
1271
1272

PAGE 39

001160
163412
163400
163374
163370
060000
163344

bcnd
=d

052777

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

TST106:

13:10

000040
004000
177777
060000
000014
007070
000001

-l

1263
1264
1265
1266
1267
1268
1269

000004
012737

3888

(1)

m 06

31-AUG=79

TRTEST 106

(3)

(3
(2)

30G (1063)

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
BIS

AR AR A AR AR

#40,8TIMES

#CLRALL ,aSFR
#-1,3WCR

AR A AR AR

AR AR AR

AR AR

;:D0 40 ITERATIONS

;CLEAR THE DEVICE
;SET UP 1 WORD TRANSFER

#BUF0,aBAR

#TSTDMA! TSTCON,aSFR

#7070 ,BUF0

#IT0,aCSR

;LOAD BUS ADDRESS FOR RESULT
;ENABLE

TEST CONTROL AND DMA FLOPS

;PRESET THE DATA

;ENABLE DEVICE

#BIT9,aSFR
#BIT12,aSFR

JSET "'TIME'' FLOP
;ALLOW 1 DMA TRANSFER

BUFO0,$8DDAT

;READ DATA

#0,8$GDDAT
$GDDAT , $SBDDAT
TST110

;:BR IF

.LOAD EXPECTED
; COMPARE VALUES

SAME

;INCORRECT DATA VALUE FOR “‘TIME'' MARK

JAFTER A 1

WORD TRANSFER

DIAGNOS TIC
CZNCCB NCV1T
CZNCCB.PIT
31-AUG-79 11:21

L 3

31-AUG=79 13:10 PAGE 40
MACY11 3?6( 1063)
110
VERIFY ''CLOCK ST1'' GENERATES A EVENT (177777) DATA WORD

1305

2323232232203 23

TRTEST 110

—rPOW

i3 2323332223222

7ST110: SCOPE

2332222220323

0223222323222

2322

2232t Rdd

2322 2332232232322
0023223322
2220 dd2 2R d])

#40,$TIMES

::D0 40 ITERATIONS

DEADKW
TST111

STEST IF NCV11 CLOCK IS PRESENT
;:BR IF NOT

000040
004000
004020

001160

177777
060000
000014
007070
000001

163106
163102
163076
060000
163052

#=1,3WCR

000400
010000

163032
163042

#BIT8,aKWCSR

:GENERATE CLOCK ST1

060000
177777
001124

001126
001124
001126

BUF 0, SBDDAT

:READ BUFFER DATA

163126

R ] ]

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

#CLRALL ,@SFR

:CLEAR THE DEVICE

:SET UP 1 WORD TRANSFER

#BUF 0, aBAR

#TSTDMA! TSTCON,aSFR

#7070 ,BUF0
#81T0.aCSR

#BI1T12,aSFR

*LOAD BUS ADDRESS FOR RESULT
“ENABLE

TEST CONTROL AND DMA FLOPS

‘PRESET THE DATA
*ENABLE THE DEVICE

TO SET "EVENT'' FLOP

*ALLOW 1 DMA TRANSFER

016746
016750
016756

162752
162746
162742
060000
162716

FRERPRRRR

177777
060000
000014
007070
000001
162704
177776
000011

010000

162672

co~N

017114

[« 20 S e 3

b
b

ad
ad

rnorono

060000
000000
001124

V& WO 0

162664

162702
162670

888

e
D e
e
D i
D

TST111
40

*LOAD EXPECTED DATA

* COMPARE

::BR IF EXPECTED
;CLOCK ST1

FAILED TO GENERATE EVENT FLAG

;CHECK THE M8026 TO M7952 JUMPERS

2222222222232 2223232222232
202222 22
2R 2RddRddd

001160
162772

—

$GDDAT , SBDDAT

SATEST 1M
000040
004000
004020

1328

#-1,$GDDAT

016744

ww&w&uuw&u
W

WW
kfl’w\fmfi
=N NW

[

N U

—Y

.d_J—hd-J—fi;c:_hg-a—hd.a_ua_a—Ld.a_a
WWWANWWWWW

RN
e aranas BRER

NSNS

(3)

SEQ 0063

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

2222222232222 3322222033220
22
2220222 R R RRd R
]

T$T111: scepe

#40,8TIMES
#CLRALL ,aSFR

DEADKW
TST112

#-1,aWCR

;:D0 40 ITERATIONS
;CLEAR THE DEVICE

;TEST IF NCV11 CLOCK IS PRESENT
;:BR IF NOT

#8UF0,aBAR
#TSTDMA'!TSTCON,aSFR

#7070 ,8BUF0
#81T0,aCSR
akWCSR

1%:

:SET UP 1

WORD TRNSFER

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

:PRESET THE DATA

#-2 ,aKWPSR
#11,aKWCSR
?gUCSR

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

#BIT12,aSFR

;ALLOW 1 DMA TRANSFER

BUFOQ,$8DDAT

;READ DATA

#0,8GDDAT
$GDDAT , $SBDDAT
TST112

;:BR IF

;LOAD EXPECTED
; COMPARE VALUES

SAME

;CLOCK OVERFLOW FAILED TO GENERATE ‘‘TIME MARKS'®

;CHECK THE M8026 TO M7952 JUMPERS

CZNCCB NCVIT
CZNCCB.P1T

DIAGNOSTIC
21
31-AUG- 79 11:

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 41
7112
VERIFY "'SET TIME'' OVERRIDES '‘SET EVENT'' DATA

SEQ 0064

....'.t.Ql"..'..'.Q."Qt".Q.'Qt....".fi'..t.Q.'t.t'.t..'.!..lt

'TEST 112

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

t§7112: SCOPE

017116
017120
017126
017134
017142
017150

MOV
MOV
MOV
MOV

#40,STIMES
#CLRALL ,aSFR
#-1,aWCR
#BUF 0, 3BAR

162554

MOV
BIS

#7070 ,BUF 0
#8170.3CSR

162550
162542

001126
001124

MOV

e
D
)
D
e e
e
e

d
D
—

*ENABLE TEST CONTROL AND DMA FLOPS

BIS
BIS

#31710!BIT9,aSFR
#B1T12,3SFR

;SET *'TIME AND EVENT'' FLOPS
CALLOW 1 DMA TRANSFER

MOV
MOV
CMP
BEQ

BUF 0, $BDDAT
#0,$GDDAT
$GDDAT , SBDDAT
TST113

NOP
NOP
NOP

1126

017244
017246

ERROR

017250
017252

001160
162470

017260

017266
017272
017300
017306
017314
017322
017330
017336
017340

162450

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

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

b ad

oo
[ 3¢ e 8

001124

060000

b
wd ab

162404

DO A ONE WORD MATRIX MODE TRANSFER

~CHECK FOR INCREMENT FUNCTION

2333333323333 33333333323333333333333333333333333332333233323233322323323]

t§7113: SCOPE

MOV

#40,$TIMES

CLR
MOV
MOV

BUF 0
#BUF 0, aOF F
#BIT4!BIT1,aCSR

BIS
BIC

#TESTZ,aSFR
#TESTZ ,aSFR

MOV

MOV
BIS

888

28 SRERERNESEIIS

*PRESET THE DATA
*ENABLE DEVICE

2 .’t!*Qt..tl*'iitfi'l’tfi'ifit.'tifitfi'l.it"!t..fifiit'tt""'.'!.....tfii

S*TEST 113

::D0 40 ITERATIONS
;CLEAR THE DEVICE
:SET UP 1 WORD TRANSFER
:LOAD BUS ADDRESS FOR RESULT

#TSTDMA' TSTCON,@SFR

NOP
NOP
NOP

D D

< & FERELELES BB wvivwnwnwni
VIS W) =

WWNWWWWWWWWN

2232323233333233332333333333333333333333333332333332333233232322332322223]

#CLRALL ,aSFR

::D0 40 ITERATIONS

;CLEAR THE DEVICE

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

#TSTDMA!TSTCON,aSFR
#81T0,aCSR

sSET TEST DMA AND CONTROL
;ENABLE THE DEVICE

BIS

#BIT12,aSFR

JALLOW 1

MOV
MOV
CMP
BEQ
ERROR

BUF O, $8DDAT
#1,3GDDAT
$GDDAT , $BDDAT
TST114
30

;READ THE BUFQ LOCATION

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

TRANSFER

;LOAD EXPECTED VALUE

: COMPARE VALUES
;:BR IF SAME
: INCORRECT DATA IN MATRIX MODE

:IF DATA WAS 0, THE ADDRESS ACCESSED WAS PROBLY WRONG

:IF DATA WAS NON ZERO, THE '‘INCR'* REGISTER IS STUCK TO A 1

CZNCCB NCVTT
DIAGNOSTI C
CZNCCB.P1T
31-AUG=-79 11:21

MACYT

1393

(3)
(3)
(2)

(1)
1394
1395
1396
1397
1398
1399

306(1063)
T114

SRR

31-AUG=79

13:10

PAGE 42

SEQ 0065

VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH

AR AR A AR AR AR A AR AR

S*TEST 114

R RAARA AR A AR

VERIFY EACH BIT OF

THE

AR R AR R AR AR

INCREMENT REG.

AR RS

DATA PATH

:;'tt'fittttt't'tt.'fi"t'Qtfi'.fi'fi.Q.'t..."'.t't"..ttt't'.'tt'...

017406
017410

000004
012737

000040

001160

017416
017424

012737
012737

017432
000002

001110
002004

017432
017440
017446
017454
017462
017470
017476
017502
017510
017516
017524
017532
017540
017546

012777
012777
012777
012777
052777
013737

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

162316
162302
162272
162274
162256
060000

162170
020000

001126
001126

000024

001124

020000
002004

162150

017612

t8T114:

SCOPE

MOV

#40,STIMES

::D0 40 ITERATIONS

MOV
mov

#1S,SLPERR
42 $TEWP

;LOAD RETURN ADDRESS IF ERROR
:LOAD INITIAL VALUE

MOV

ACLRALL,3SFR

:CLEAR THE DEVICE

ATSTDMA!TSTCON,@SFR

:SET TEST DMA AND CONTROL

;CHECK FOR A ‘'CARRY” INTO EACH Bif
000002-000001
IE:
:
00004~000003
:
000010-000007
;
000020~000017
i
000040-000037
;
000077
000100:
00177
000200-0
:

1$:

MOV
MOV

#BUFO,a0FF
#BIT4!BIT2,aCSR

BIS
MOV
DEC

#BIT0,aCSR
STEMP.BUFO
BUFO

MOV

STEMP,$GDDAT

MOV

BIS
BIC
BIS

162246
162240
162232
001124

001126
001126

28:

MOV
BUFO,$BDDAT
(MP
$GDDAT,S$BDDAT
BEQ
28
ERROR
30
MOV
Q@CSR,$BDDAT
BIT
#BITi3, $BDDAT
BEQ

3%:

ATESTZ,aSFR
ATESTZ.aSFR
#BIT12aSFR

:LOAD TYPEOUT EXPECTED

:READ THE BUFO LOCATION
: COMPARE VALUES
::BR IF SAME
; INCORRECT DATA IN THE INCREMENT REGISTER
:READ STATUS
:TEST FOR UNEXPECTED CELL OVERFLOW

MBIT4!BIT2,SGDDAT

BNE

31
#BIT13,asFR
STEMP

:ENABLE THE DEVICE
:LOAD PRESET VALUE
:TO EXPECTED =1

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

MOV

ERROR
BIS
ASL

:LOAD INITIAL OFFSET REGISTER
:ENABLE WORD MATRIX MODE

:BR _IF_NOT

:LOAD THE EXPECTED TYPEOUT

:UNEXPECTED ''CELL OVERFLOW''
:TRY TO CLEAR THE FLAG
:CHANGE THE EXPCTED
;BR IF MORE DATA BITS

STATUS

CZNCCB NCV1T _ DIAGNOSTIC
CZNCCB.P1T
31-AUG=79 11:21

1429

(3)

1433
1434
1435
1436
1437
(1)

017642
017650
017656
017664
017672
017700

1451

1452

017632
017636

017706
017710
017712
017714
017722
017730
017736
017740
017742
017744
017752
017760
017766

017770

000004
012737
012777

005077
005077
012777
012777
012777
052777
052777
042777
000240
000240
000240
112737
112737
052777
000240
000240
000240
017737
012737

023737
001401
104031

000040
004000

001160
162124

060000
000022
000014
000001
000002
000002

162100
162070
162072
162054
162056
162050

000377
000200
010000

060000
060001
162020

161776
020022
001124

001126
001124
001126

162114
162112

1456 017772

052777 020000

;22‘12

104031

1457
1458
1459
1460

020000
020006
020014
020022

1463
1464
1466
1467
1468
1469
1470

017737
012737
023737
001401

161742
000022
001124

020026

013737

060000

020042
020050
020052

023737
001401
104031

001124

020024

020034

012737

t87115: SCOPE
MOV
MOV
CLR
CLR

MOV
MOV
MOV
BIS
BIS
BIC

NOP
NOP
NOP
MOVB
MOVB
BIS
NOP
NOP
NOP
MOV
MOV
CMP
BEQ

ERROR

143

1455

1465

A AR

AR AA A RN

AAAARRAA AR AR AR AR AR

SEQ 0066

AR RS

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

:;tt.tttfi't'ttt.'tfitt'fiQt'.ltQ'.QQ..ttt.."..tt.'t.t..t..'tttt.tt

017614
017616
017624

1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450

AR AN AR

S*TEST 115

(2)
(1)
1430
1431
1432

MACY11 30G(1063) 31-AUG-79 13:10 PAGE 43
T115
CHECK FOR LOW BYTE "INC OVFL'' TO SET CELL OVERFLOW AND ‘‘CLR CELL'' TO CLEA

100377

161756

001126
001124
001126

001126

001124

001126

#40,8TIMES
#CLRALL ,@SFR
awCR
aBAR

::D0 40 ITERATIONS
:CLEAR THE DEVICE

#BUFO, 0FF
#BIT4'BIT1,aCSR
#TSTDMA! TSTCON,aSFR
#B1T0,aCSR
#TESTZ,aSFR
#TESTZ.aSFR

*CLEAR WC
*CLEAR BAR

*LOAD INITIAL OFFSET REGISTER
*ENABLE BYTE MATRIX MODE
“SET TEST DMA AND CONTROL
:ENABLE THE DEVICE
ENABLE "TEST Z'' PULSES
*DISABLE '‘TEST Z'' PULSES

#377.BUFO
#200.BUF0+1
#BIT12,aSFR

:SET LOW BYTE OF BUFO LOC. TO BYTE -1
*SET HIGH BYTE OF BUFO TO KNOWN VALUE
“ALLOW 1 TRANSFER

aCSR, $8DDAT
#BITi3'BIT4'BIT1,$GDDAT
$GDDAT , $BDDAT
1%
::BR IF

;READ STATUS
:LOAD EXPECTED STATUS
:COMPARE VALUES
SAME

“'CELL OVERFLOW'' FLOP FAILED TO SET

:IN BYTE MODE FROM A LOW BYTE OVERFLOW

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

1%:

BIS

#BI1T13,aSFR

ERROR

MOV
MOV
cTMP
BEQ

@CSR, SBDDAT
#B1T4'BIT1,$GDDAT
$GDDAT , SBDDAT
2$
::BR IF

:NOW VERIFY THE BYTE DATA CELL
2%:
MOV
BUF
0, SBDDAT

MOV

cTMP
BEQ
ERROR

#100377, $GDDAT

;GENERATE

''CLR CELL''

*READ STATUS
*LOAD EXPECTED
*COMPARE VALUES
SAME

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

*LOAD EXPECTED

$GDDAT , $BDDAT
- COMPARE
IST116
::BR IF SAME
31
SOVERFLOW FROM INC. REG. FAILED TO INWIBIT
:"'INC CNT'' FROM CHANGING THE DATA OR
;"'CSR BYTE CELLS'® FAILED TO INHIBIT "'INC ENA HI''

CZNCCB NCV11 _ DIAGNOSTIC
CZNCCB.PIT
31-AUG=79 11:21

1‘.72

(3)

(2)

(1)

1473
1474

1475

Aii3 2322223202332

'TEST 116

020054

020056
020064
020072

020076

000004

012737

012777
005077

005077

000040

004000
161656

161650

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 44
T116
CHECK FOR WORD ''INC OVFL'' TO SET CELL OVERFLOW AND ''CLR ALL'' TO CLEAR IT

001160

MOV

MOV
CLR

CLR

dd0R00R2

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

Aii32320 2330322022222

TST116: SCOPE

161664

2220323 22302

#40,8TIMES

#CLRALL ,aSFR
aBAR

iRt

Rt R

]

;:D0 40 ITERATIONS

;CLEAR THE DEVICE

awW(R

1476
1477
1478
1479

020102
020110
020116
020124

012777
012777
012777
052777

060000
000024
000014
000001

161640
161630
161632
161614

MOV
MOV
MOV
BIS

#BUF 0, 90F F
#BIT4!BIT2,aCSR
#TSTDMA!TSTCON,aSFR
#BIT0,aCSR

;LOAD INITIAL OFFSET REGISTER
;ENABLE MATRIX MODE
;SET TEST DMA AND CONTROL
sENABLE THE DEVICE

1484
1485

020154

012737

060000

#-1,BUF0
#BIT12,aSFR

020220
020222

017737
012737
023737

161544
020024

1492
1493

020176
020204
020212

000240
000240
000240

MOV
BIS

1489
1490
1491

020170
020172
020174

161566

;SET BUFO LOC.

1486
1487
1488

177777
010000

001401
104031

001124

001126
001124
001126

MOV
MOV
CMP

aCSR,$8DDAT
;READ STATUS
#MITI3!'BIT4!BIT2,8GDDAT ;LOAD EXPECTED STATUS
$GDDAT ,$BDDAT
; COMPARE VALUES

161524

1480
(1)

1494

020132
020140

020162

052777
042777

052777

000002
000002

1495

020224

052777

004000

1497

020240

012737

000200

1496

1498

020232
020246

1499
1500
1501

020254
020256

1503
1504
1505

020266
020274
020302

017737
023737
001401
104031

1502

020260

013737

1506

020304

104031

012737
023737
001401

161616
161610

161510

001126

001124

001126

060000

177777
001124

BIS
BIC

NOP
NOP
NOP

BEQ
ERROR

001124

001126

001124
001126

#TESTZ,aSFR
#TESTZ,aSFR

1%
3

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

TO WORD =1
;ALLOW 1 TRANSFER

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

JNOW GENERATE ''CLR ALL'' TO CLEAR CELL OVERFLOW FLOP

1%:

BIS

#CLRALL ,aSFR

MOV

lBIT? $GDDAT

MOV

cMP

SGDDAT $SBDDAT

MOV

BUF 0, $8DDAT

ERROR

MOV
CMP
BEQ

;GENERATE '‘CLR ALL"

aCSR, $BDDAT

BEQ
2%
ERROR
3
JNOW VERIFY THE WORD CELL DATA

2%:

SEQ 0067

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

;READ STATUS

:LOAD EXPECTED

::BR IF

;COMPARE VALUES

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

JREAD DATA
;:BR IF

;LOAD EXPECTED
; COMPARE
SAME

CINCCB NCV1Y
DIAGM)STHI
(ZNCCB.P1T
31-AUG=79
11:21

1508

RTEST 117

(3)

020306
020310
020316

020326
020330
020334
020342
020350
020356
020364
020372
020400
020402

1520
1521
1522
1523

020406
020414
020420
020424

020404

000004
012737
012777

005077
005077
012777
012777
012777
052777
052777
042777
000240
000240
000240

000040
004000

161424
161416
060000

000014
000001
000002
000002

SCOPE
MOV
MOV

#40,STIMES
ACLRALL,JSFR

161406
161376
161400

MOV
MOV
MOV

#BUFQ,A0FF
#BITSIBIT4!BIT2,@CSR
ATSTDMA!TSTCON,@SFR

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

161364
161356

BIS
BIC

ATESTZ,asFR
ATESTZ.aSFR

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

001160
161432

177777
000000
020426

060000

020426

012777

020454

161342

1526
1527
1528

020442
020444
020446

000240
000240
000240

1532

020456

1525

1529
1530
1531
1533
1534
1535
1536
1537
1538
1539

020434

020450
020452
020454
020464
020472
020500
020502
020504

020512
020520

052777

104032
000414
022626
017737
012737
023737
001401
104031
012777
013777
005077

010000

161314

161264

001126

004000
002000
161254

161244
161256

020264
001124

t81117:

(LR
(LR

161362

012737
012746
012746

1524

CHECK FOR ‘‘CELL OVERFLOW'' INTERRUPT

"""Qfitttt"fi't.‘fit*ttttt.t.t*'tfittQt.'tt't.fi'.t*i"'.t'tt"tt'.t

1510
1511
1512
1513
1514
1515
1516
(1)
1517
1518
1519

SEQ 0068

:"'ttQ.Qfl...Q!fi'tQti'Q'.Q'tQ.fi.tt'tt.tt"i't.fi't..it.'ttt't't'tt'

(3)

(2)
(1)
1509

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 45
T117
CHECK FOR "‘CELL OVERFLOW'' INTERRUPT

BIS

1$:

28:

001124
001126
3$:

NOP
NOP
NOP
MOV
MOV
mov
RTI
MOV
BIS
NOP
NOP
NOP
ERROR
BR
(MP
MOV
MOV
(MP
BEQ
ERROR
MOV
MOV
(LR

@BAR
@WCR

#BITO,aCSR

::DO 40 ITERATIONS
;CLEAR THE DEVICE

:ENABLE THE DEVICE

#=1,BUFO
#0,-(SP)
#18,-(sP)

;SET BUFO LOC.

#2$,aVECTBO

:LOAD RETURN VECTOR

#BIT12,aSFR

32
38
(SP)+,(SP)+

ALLOW 1

TO WORD =1

TRANSFER

;"'CELL OVERFLOW'' FAILED TO CAUES AN INTERRUPT
::BR TO CLEAN UP

aCSR, $BDDAT

:READ STATUS

VECTBT,aVECTRO
QVECTBI

:RESET

#BITi3!BIT7!BITS!BIT4!BIT2,
SGDDAT
;LOAD EXPECTED
$SGDDAT,S$BDDAT
; COMPARE VAL UE
38
::BR IF "ACTIVETM CLEARED
31
:"ACTIVE'*
FAILED TO CLEAR
WCLRALL,@SFR
:CLEAR THE DEVICE
THE VECTORS

CZNCCB NCVTT
CZNCCB PN

DIAGNOST IC
31-AUG-79 1M:21

E 6
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 46
1120
VERIFY CORRECT BR LEVEL THE NCv=11

1541

2222202232222

2232332222202

1%:

#TESTZ,aSFR

020756
020760
020766
020774

022626
012777
013777
005077

2222

222

3222

10%:

000401

161000

16 0770
16 1002

RRRd

]

JINIT THE HIGH Z COUNT
;sPRIME THE OFFSET REGISTER

INTR. AND MATRIX MODE
;MAINT. MODE

;PRIME THE

TARGET LOCATION

;ENABLE THE NCV-11

;ENABLE '‘TEST 2'' PULSES

;DISABLE '‘TEST Z'' PULSES

BRLEV,RO

;GET CURRENT BR L.EVEL

NLSIT
2%
RO

;TEST IF LSI-=11 CPU
:BR IF NOT
;LOAD BR LEVEL 0

JAND MAKE

42
21%

sNCV11

(SP)+,(SP)+
42
21%

.E PECTED INTERRUPT DID OCCUR
(SP)+,(SP)+
20
CMP
#CLRALL ,aSFR
21
MOV
MOV
VECTB1,aVECTBO
aVE(CTRI
(LR
A
A X

004000
002000

CMP

ERROR
BR

JINIT THE LOW Z COUNT

TRANSFER

LEVEL LOWER

sRELOAD TO EXPECTED VECTOR
;PUSH ADJUSTED BR LEVEL
;PUSH RETURN ADDRESS

;LOWER CPU BR LEVEL

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

JUNEXPECTED INTERRUPT WITH BR LEVEL INDICATED

106042

Rttt

JENABLE 1

#20% ,avECTBO
RO,=(SP)
#3%,-(SP)

ERROR
BR

#BIT12,aSFR

#40,R0

2%:

#40,8TIMES
;:D0 40 ITERATIONS
BRLEV,=(SP)
;PUSH THE EXPECTED BR LEVEL ON STACK
#1$,-(SP)
sPUST THE RETURN ADDRESS ON STACK
;FAKE AN INTERRUPT TO BE LSI-11 AND PDP-11 (OMPATABLE
#CLRALL ,@SFR
;CLEAR THE DEVICE
#108,avECTBO
;LOAD UNEXPECTED INTERRUPT RETURN

WHTESTZ,aSFR

020742
020744
020746

022626

2222222223

#B81T0,aCSR

020740

020750
020752
020754

002

VERIFY CORRECT BR LEVEL THE NCv=11

#-1,BUF0

002002
000040
003356
16 1046

#64 ,aCSR
;SELECT
#TSTDMA!TSTCON,aSFR

16 1070

020756

220222222

#340,aVECTB1
aBAR
aWw(R
#BUF 0, a0F F

NN &~
S ror

)
o

7$7T120: SCOPE

O
SO

b
b
b
wid
b C
-

b s

orn

2
b
oo

W
=O VO NON

—_—
2

€

—t

NN =

EREFEL <>Ow>8rnunnunaunnunnvv

060000

S VO~V

e
e
—
D
D
D
D
D

e
D e
D

N A

NN NN

161160
161152

004000
020750
000340

roronD

00 1160

b cud
b

1543

1544
1545

000040
002002
020546

0008000

(1)
1542

d e

T*TEST 120

(3)
(3)
(2)

— e

SEQ 0069

;CLEAN THE STACK
sNCV11 INTERRUPTED ON AN INCORRECT BR LEVEL
;:BR TO CLEANUP
;CLEAN THE STACK
sCLEAN THE DEVICE

;RESET THE VECTOR

NCVTY

CINCCB
CZNCCB P11

DIAGNOSTIC

31-AUG=79 11:2%

MACY11

1612

30G( 1063)
T 21
e

31-AUG=79

(4)

N ~

—
DN A AN AN NN NN N NN PN N N PN PN~
PP
QNS
D DB DB QDNIN)=) W

001160

2222323233332

T§T121: SCOPE

22222222

322222

R R

= 13

a#60000

#B1T12.3SFR
#60000 $8DADR

N
S
N
N

#1,$GDDAT

@SBDADR , SBDDAT

$GDDAT, $BDDAT

TST122

;CLEAR THE DEVICE
;LOAD THE OFFSET REG.
;SET

TEST DMA AND CONTROL

JSELECT MATRIX WORD MODE

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

#TESTZ,aSFR
#TESTZ.@SFR

N AN

;:DO 100 ITERATIONS

#TSTDMA!TSTCON,aSFR

001122
001124
001126
001126

#100,$TIMES
#CLRALL ,aSFR

#BIT4'BIT2,aCSR
#B1T0.aCSR

160662

JREAD THE ACTUAL DATA

; COMPARE
;:BR IF SAME

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

':Qttt.fitt'tt.fitt't.lQ'Qt"fit..Q.tt'.tfit..".t....t..t..tfifi'tt'tt

TSTEST 122

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 12

‘:t'ttQQtit'tt't.tt'..t."'t.QtQt.'tt.tttfi""'.fi't"fi...ll'.'fi.'

e e

N A e

NI NI NI NI NI N

]

000004

NN NINNINNINNNN

0202222202222

SEQ 0070

= 13

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

a0F F
#60000,

160740
160724
160724
160706
160700
160702
160674

NI NI NI NN

Y. e

NN
PN

PAGE 47

';"ti'Q..'.Q'Qttt.'.'.tt"t.tt..tt.t'fifiQt.ttt.".t'.'..'...tt."

(4)

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

TRTEST 121

(4)

13:10

021256

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

TST122:

SCOPE

MOV
MOV
MOV
MOV
MOV
BIS

BIS
BIC
CLR
BIS

#100,$TIMES

#CLRALL ,aSFR

;:D0 100 ITERATIONS
;CLEAR THE DEVICE
;LOAD THE OFFSET REG.

#70000,
a0F F
#TSTDMA!TSTCON,aSFR

#BIT4!BIT2,aCSR
#BIT0,aCSR

a# 70000

#B1T12.aSFR

#70000
. $8DADR
#1,$GDDAT

a$8DADR, $BDDAT
, $BDDAT
$GDDAT
§§T123

sSET TEST DMA AND CONTROL

;SELECT MATRIX WORD MODE
JENABLE NCV11

JENABLE "‘TEST Z'' PULSES
;DISABLE "‘TEST 2'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
;READ THE ACTUAL DATA
; COMPARE
;:BR IF SAME

;OFFSET INPUT TO MATRIX MUX. SELECTED
:THE WRONG ADDRESS = EXPECTED ADR. WAS 70000

CINCCB NCVTT
CINCCB.PN

DIAGNOST 1C

31-AUG=79 11:21

MACY11

1615

30G(1063)

31-AUG=79

T123

VERIFY A 1

AR AR R AR AR AR AR

3220323002220

LRTEST 123

(&)
(4)

T$T123: SCOPE

(3)
(2)

N
N

S
N

e e

N
N

N ] O e
e e

NI NI NI NI N

e e

e
e
e
e
e
e
e
R

s Ee

R
R
e

G_6
PAGE 48

WORD MATRIX MODE XFR USING OFFSET

SEQ 0071

= 11

A T AR RAARARAARRAAAARRAARAARARAARR
AR AR

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
2222

222

#100,$TIMES
#CLRALL ,aSFR

#64000,a0FF

o~ NN NN NN NN N NN NN ~
—
(N
e e A NYN) =D b s —
N
[0
S N N N NV NV NP NI NI NI NI N N
T} —~

(4)
(4)

(1M

13:10

2222222222222

a#64000

aSF

#BIT12,aSFR
#64000, $BDADR

#1,$GDDAT

R
, SBDDAT
a$BDAD
, $BDDAT
$GDDAT
§§r124

222

= 11

RRRRddR)

;:D0O 100 ITERATIONS
;CLEAR THE DEVICE
;LOAD THE OFFSET REG.

#TSTDMA!TSTCON,aSFR

#BIT4'BIT2,aCSR
#31T0.aCSR

220

sSET

TEST DMA AND CONTROL

sSELECT MATRIX WORD MODE

sENABLE NCV11
JENABLE "'TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
JALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
JREAD THE ACTUAL DATA
. COMPARE
SAME
IF
;:BR
JOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR.

WAS 64000

';Q'.!Q.'Qt...t't.'lt.'..'t'QQ.tt'Q'ti't.'.."fi.'fi'.....'..fi'."'

SETEST 124

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 10

';t"tt"QQQQ'..Q..Q.Q.tt.t.QQ'QQQQ.'t".."'.'.'Q'.i"'...i..".

021410
021412
021420
021426
021434
021442
021450
021456
021464
021472
021476
021504
021512
021520
021526
021534
021536

TST124:

000004

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

160272
160264
160252

001122

001124

001126
001126

SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV
MOV
CMP

BEQ

ERROR

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

#B1T4'BIT2,aCSR
#81T0.aCSR

sSELECT MATRIX WORD MODE

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

ATESTE 3SOFR

a62000

sCLEAR THE TARGET LOCATION

;ALLOW 1 WORD TRANSFER

#B1T12,aSFR

#62000
. $8DADR
#1,$GDDAT

$BDDAT
, ADR
@SBD
, $BDDAT
$GDDAT
§§T125

;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA

JREAD THE ACTUAL DATA
. COMPARE
;:BR IF SAME
:THE

JOFFSET INPUT TO MATRIX MUX. SELECTED
WRONG ADDRESS = EXPECTED ADR. WAS 62000

(ZNCCB NCVTT
CINCCB.PNT

DIAGNOST IC

31-AUG=-79 1 & F

MACY11

1618

1125

31-AUG=-79

6
PAGE 49

SEQ 0072

= 09

i 2223233333232
0222 22222220
2
Rl Rl

2222332333333

7§T125: SCOPE

021540
021542
021550
021556
021564
021572
021600
021606
021614
021622
021626
021634
021642
021650
021656

13:10

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

SATEST 125

(4)

ANON AN AN AN AN AN AN N PN N NN IS PN N~
N
B A N
b
B NIN) b
d e
o D N
N N
N e N N N N N S
N N

30G(1063)

MOV
MOV
MOV
MOV
MOV
BIS

BIS
BIC
CLR
BIS

MOV
MOV
MOV
CMP

BEQ
ERROR

021664
021666

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET
2302222220

222

#100,8TIMES
#CLRALL ,aSFR

2RRRRd222

#BIT4'BIT2,aCSR
#81T0,aCSR

a#61000

#B1T12,aSFR

#61000, $8DADR
#1,8GDDAT

DR
, SBDDAT
@$SBDA
$GDDAT, $BDDAT
§§T126

222

= 09

RRRRRdRRRld

;:D0 100 ITERATIONS

#61000,a0FF
#TSTDMA!TSTCON,aSFR
#TESTZ,aSFR
#TESTZ.aSFR

;CLEAR THE DEVICE

;LOAD THE OFFSET REG.

sSET TEST DMA AND CONTROL

JSELECT MATRIX WORD MODE

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

;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
;READ THE ACTUAL DATA
; COMPARE
;:BR IF SAME
;OFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS = EXPECTED ADR. WAS 61000

i3 2232332222202
000R0 R0 0
Rl

TRTEST 126

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 08

i3 2332322220222
R0l Tl Rl

021670
021672
021700
021706
021714
021722
021730
021736
021744
021752
021756

022016

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

001160

160050
160034
160034
160016
160010
160012
160004
157772

001122
001124
001126
001126

TST126:

SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC

CLR
BIS

MOV
MOV
MOV
CMP
BEQ

ERROR

#100,8TIMES
#CLRALL ,aSFR

;:D0 100 ITERATIONS
;CLEAR THE DEVICE
;LOAD THE OFFSET REG.

#60400,a0FF
#TSTDMA!TSTCON,a@SFR
#BIT4'BIT2,aCSR
#81T0,aCSR
#TESTZ,aSFR
#TESTZ ,aSFR

60400
#BIT12,aSFR

#60400, $BDADR
#1,8GDDAT

@$8DADR, SBDDAT
$GDDAT, $BDDAT
§§r127

sSET TEST DMA AND CONTROL

sSELECT MATRIX WORD MODE

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

;CLEAR THE TARGET LOCATION
JALLOW 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 60400

(ZNCCB NCV1T _ DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21

1621
(‘)

022020
022022

000004
012737

000100

001160

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

022036
022044
022052

022066
022074

012777
012777
012777
052777
052777
042777

060200
000014
000024
000001
000002
000002

157704
157704
157666
157660
157662
157654

(1)
(1)

022106
022114

052777
012737

(1)

(1)
(3)
(1)
1)

SEQ 0073

LRTEST 127

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

t$7127: SCOPE
MOV

#100,$TIMES

= 07

.':'tt'tt't.tQ'Qttttttlttt'tltQQQQ.QQQt".ttitt...ttt.t'.t.ti'.t't

(3)
(2)

(1)

= 07

.'"t'.QlltQQ'Q.Qt't.t'!"lt"tttttt.ttt'.t.t"t'.t'l.'t.tttt.ttttt

()

(1)

MACYTT 3??(17063)
31-AUG=79 13:10 PAGE 50
2
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

022030

022102

022122

022130

022136
022144
022146

012777

005037

012737

017737

023737
001401
104033

004000

060200

157720

MOV

MOV
MOV
MOV
BIS
BIS
BIC

CLR

#CLRALL ,@SFR

#60200, 90F F
#TSTDMA!TSTCON,aSFR
#BIT4L!BIT2,aCSR
#B1T0.aCSR
#TESTZ,aSFR
#TESTZ.@SFR

a#60200

010000
060200

157642
001122

BIS
MCV

#BIT12,aSFR
#60200, $8DADR

156766

001126

MOV

a$8DADR, $BDDAT

000001

001124

MOV

001126

1622

CMP
BEQ
ERROR

::D0 100 ITERATIONS

*LOAD THE OFFSET REG.
;SET TEST DMA AND CONTROL
JSELECT MATRIX WORD MODE
:ENABLE NCV1T
ENABLE "TEST 2°' PULSES
*DISABLE 'TEST 2'' PULSES

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

#1,$GDDAT

$GDDAT ,$BDDAT
TST130
33

;CLEAR THE DEVICE

*LOAD EXPECTED DATA

;READ THE ACTUAL DATA

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

::tttitttttttttt'ttttttt'ttttfitttttt!t.ttttti.fit.tt.t'itt.ttt'ttt

(4)

;*TEST 130

(l.)

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

- 06

".'tttttt"tfi'Qtt.ttttttlit*ttttt'tfit't'tttttt'.ttt..tttt.lttttttfi

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

022150
022152
022160
022166

000004
012737
012777
012777

000100
004000
060100

001160
157570
157554

(1)

022202

012777

000024

157536

MOV
MOV

#TSTDMA!TSTCON,aSFR
#MIT4'BIT2,aCSR

;SET TEST DMA AND CONTROL

157524

BIC

#TESTZ,aSFR

:DISABLE '‘TEST Z'' PULSES

157512

BIS

#IT12,aSFR

001124

MOV

(1)
(1)
(2)

(1)
(1)

(1)

(1)
(1)

(3)
(1)

(1)

022174

012777

000014

022210
022216

052777
052777

022232

005037

060100

012737

060100

001122

156636
001124

001126
001126

022224

022236

022244

022252

022260
022266
022274
022276

042777

052777

012737

017737
023737
001401
104033

000001
000002

157554

010000

000001

157530
157532

757130:

SCOPE
MOV
MOV
MOV
BIS
BIS

CLR

MOV
MOV
CMP

BEQ
ERROR

#100,STIMES
#CLRALL ,@SFR
#60100, 30F F

::D0 100 ITERATIONS
:CLEAR THE DEVICE
*LOAD THE OFFSET REG.

#B1T0.aCSR
#TESTZ,aSFR

a#60100

PULSES

;ALLOW 1 WORD TRANSFER

;LOAD EXPECTED ADDRESS

#1,8GDDAT
TST131
33

:ENABLE NCV11
*ENABLE 'TEST 2''

*CLEAR THE TARGET LOCATION

#60100, $8DADR
a$8DADR, $BDDAT
$GDDAT, $BDDAT

JSELECT MATRIX WORD MODE

;LOAD EXPECTED DATA
;:BR IF

;READ THE ACTUAL DATA
* COMPARE

SAME
JOFFSET INPUT TO MATRIX MUX.

:THE WRONG ADDRESS = EXPECTED ADR.

SELECTED

WAS 60100

CINCCB NCVTT
CZNCCB.P1T

DIAGNOSTIC

31-AUG=79 11:21

MACY11 30G(1063)
3

1624

N N
N S

N ~~~

s AN W

#TESTZ,aSFR
#TESTZ,aSFR

157362

BIS
BIC
CLR
BIS

001126

MOV

N
N

157402
157374

N
N
N

001122
001124

o W
S
N

001126

W N

022424
022426

222022

SEQ 0074

= 05
R

ddddRdd

)

= 05

iii3233233032302
2
2R
R0
2R
R Rt Rl

T§T131: SCOPE

#100,$TIMES

157406
157400

N N N

6
PAGE 51

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

MOV
MOV
MOV
MOV

001160
157440
157424
157424

D D

B NIP)

NN
NN

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

TRTEST 131

d e e

13:10

2233232333322 2222322820222

—d e (N

NN
—

31-AUG=79

MOV
BIS

MOV
MOV

CMP
BEQ
ERROR

#CLRALL ,aSFR

;:D0 100 ITERATIONS
;CLEAR THE DEVICE
;LOAD THE OFFSET REG.

#60040,a0FF
#TSTDMA!TSTCON,aSFR
#BIT4'BIT2,aCSR
#81T0,aCSR

a#60040

#IT12,3SFR

#60040
. $SBDADR
#1,$GDDAT

a$8DADR, $BDDAT
$GDDAT ,$BDDAT
§§r132

sSET TEST DMA AND CONTROL
sSELECT MATRIX WORD MODE

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

;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS
;LOAD EXPECTED DATA
sJREAD THE ACTUAL DATA
; COMPARE
;;BR IF SAME

;OFFSET INPUT TO MATRIX MUX.

SELECTED

:THE WRONG ADDRESS - EXPECTED ADR. WAS 60040

';ttt!.'t'fiti.tttttttttl.ttitttlt't'i.fi'tt"fik'!tt"fi.'t.t'it'.tt

J«TEST 132

(4)

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 04

001160
157310
157274
157274
157256
157250
157252
157244

NI NN

cd i cnd

157232
001122
001124
001126
001126

NI NN

—d i (N

NN INSNPNPNPNININ

';tttttt.tttt!Qtttitttifi'ttt!lttfifit'it'.tt"fi."t.'t.'.tt..tiit't

022556

TST132: SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR

BIS
MOV
MOV
MOV
CMP

BEQ
ERROR

#100,$TIMES
#CLRALL ,aSFR

;:D0 100 ITERATIONS

a0F F
#60020,
#TSTDMA!TSTCON,aSFR

#B1T4'BIT2,aCSR
#B1T0,aCSR
ATESTZ,aSFR
#TESTZ .@SFR

a#60020

#BIT12.aSFR

#60020 . $BDADR
#1.$GDDAT

DR
, SBDDAT
aSBDA
$GDDAT, $BDDAT
;g T133

;CLEAR THE DEVICE

;LOAD THE OFFSET REG.

sSET TEST DMA AND CONTROL
sSELECT MATRIX WORD MODE

sENABLE NCV11
;ENABLE "TEST Z'' PULSES
;DISABLE '‘TEST Z'' PULSES
;CLEAR THE TARGET LOCATION
;ALLOW 1 WORD TRANSFER
;LOAD EXPECTED ADDRESS

;LOAD EXPECTED DATA

;READ THE ACTUAL DATA
. COMPARE
;:BR IF SAME
JOFFSET INPUT TO MATRIX MUX. SELECTED
;THE WRONG ADDRESS - EXPECTED ADR. WAS 60020

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

1627

T*TEST 133

(4)

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

(1)

(1)
(1)

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

022560

000004

T§T133: SCOPE

022562
022570
022576

012737
012777
012777

000100
004000
060010

001160
157160
157144

022626
022634

052777
042777

000002
000002

157122
157114

MOV
MOV
BIS
BIS
BIC

157102
001122

BIS
MOV

022604
022612
022620

022642

022646
022654

022662
022670
022676
022704
022706

012777
012777
052777

005037

052777
012737

012737
017737
023737
001401
104033

000014
000024
000001

060010

010000
060010
000001
156226
001124

MOV
MOV
MOV

157144
157126
157120

CLR

001124
001126
001126

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 03

MOV
MOV
CMP
BEQ
ERROR

#100,$TIMES
#CLRALL ,@SFR
#60010, 30F F

;:D0 100 ITERATIONS
:CLEAR THE DEVICF
:LOAD THE OFFSET REG.

#TSTDMA' TSTCON,aSFR
#BIT4'BIT2,aCSR
#81T0,aCSR

*SET TEST DMA AND CONTROL
*SELECT MATRIX WORD MODE
:ENABLE NCV1T

ar60010

“CLEAR THE TARGET LOCATION

#TESTZ,3SFR
#TESTZ.@SFR

#BIT12.3SFR
#60010 . $BDADR

#1,$GDDAT
aSBDADR, $8DDAT
$GDDAT, $BDDAT
TST134
33

:ENABLE "TEST 2'' PULSES
*DISABLE 'TEST Z'* PULSES
SALLOW 1 WORD TRANSFER
*LOAD EXPECTED ADDRESS

*LOAD EXPECTED DATA
*READ THE ACTUAL DATA
* COMPARE
;:BR IF SAME
SOFFSET INPUT TO MATRIX MUX. SELECTED
:THE WRONG ADDRESS - EXPECTED ADR. WAS 60010

" .'"'.tt'it.tt.i.'.t.t.t.'t'.t.iQtQQ'Qtt.....Q..'tt.t'.'.'.."fi.'

T*TEST 134

(4)

VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

= 02

"“t'ti'tfi.'ttt'..fitt'fit.."'.Q....ifi.'Q.'....'.".."..ttt"tt."

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

022710
022712
022720
022726
022734
022742
022750
022756
022764
022772

000004
012737
012777
012777
012777
012777
052777
052777
042777
005037

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

023004
023012
023020
023026
023034
023036

012737
012737
017737
023737
001401
104033

(1)

SEQ 0075

" ."t.'Qfi.'t......'Q.Q.fi'"'.t.lQ.Q'.QQ...".Q..Q.Q..'.."'.'.".Q

1628

(1)

= 03

.' .'Q'.."Q'.Q"Q'Q.Q'.'Q""'.Q'....i.'..Q..t.'.t'.".'..i.'t..t..

%)
(3)

MACYTT 3?6(1063) 31-AUG=79 13:10 PAGE 52
133
VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET

000100
004000
040004
000014
000024
000001
000002
000002
040004

001160
157030
157014
157014
156776
156770
156772
156764

040004
000001
156076
001124

001122
001124
001126
001126

022776 052777 010000

156752

TST134:

SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
CLR

#100,$TIMES
::D0 100 ITERATIONS
#CLRALL ,@SFR
:CLEAR THE DEVICE
#40004 , 30FF
*LOAD THE OFFSET REG.
#TSTDMA ! TSTCON,@SFR
*SET TEST DMA AND CONTROL
#B1T4'BIT2,aCSR
*SELECT MATRIX WORD MODE
#81T0.aCSR
:ENABLE NCV11
#TESTZ,aSFR
*ENABLE ‘‘TEST 2'* PULSES
#TESTZ.aSFR
*DISABLE 'TEST 2'' PULSES
40004
*CLEAR THE TARGET LOCATION

MOV
MOV
MOV
cMP
BEQ
ERROR

#40004 . SBDADR
#1,$GDDAT
aSBDADR, $8DDAT
$GDDAT , $BDDAT
TST135
33

BIS

#BI1T12,aSFR

*ALLOW 1 WORD TRANSFER

*LOAD EXPECTED ADDRESS
*LOAD EXPECTED DATA
*READ THE ACTUAL DATA
* COMPARE
::BR IF SAME
COFFSET INPUT TO MATRIX MUX.
:THE WRONG ADDRESS - EXPECTED ADR.

SELECTED

WAS 40004

CZNCCB
NCVIT
CZNCCB.P1T

DIAGNOST IC
31-AUG=-79 1:21

1633
(3)
(3)
(2)

L 6
31-AUG=79 13:10 PAGE 53
MACY11 30G(1063)
T135
VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE
B

22322232333 3333333232333232333333333333323333333333333333333332323323233]

SRTEST 135
2

000004
012737

(1)

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

2222322333333 33 2332333333333333333333333233333333332333333233333323]

t47135: SCOPE

MOV
#10,$TIMES
::D0 10 ITERATIONS
;WITH GAIN SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 250
‘WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS ‘2552
*VERIFY THAT THE MATRIX MUX CAN ADD 62550 AND 2552 CORRECTLY
MOV
#CLRALL ,aSFR
:CLEAR THE DEVICE

000010

012777
012777
012777
012777
052777
052777

MOV

#BUF 0+2550, 30FF

*LOAD THE OFFSET REG.

BIS
BIC
CLR
CLR
BIS

NTESTZ,3SFR
#TESTZ.@SFR
aMBUF 045322
MBUF 0+2722
#BIT12,3SFR

*ENABLE 'TEST 2'' PULSES
*DISABLE 'TEST Z'' PULSES
“CLEAR THE TARGET ADDRESS
*CLEAR THE TARGET ADDRESS IF "‘TESTX'' FAILS
“ALLOW 1 TRANSFER

MOV
MOV
BIS

NOP
NOP
NOP

MOV
MOV
MOV
CMP
BEQ

1$:

*SET TEST DMA AND CONTROL
*ENABLE GAIN, WORD MATRIX MODE
*ENABLE THE NCV11

#BUF 0+5322, SBDADR
:LOAD THE EXPECTED ADDRESS
#1,$GDDAT
*LOAD THE EXPECTED DATA
aSBDADR, SBDDAT
*READ THE ACTUAL DATA
$GDDAT, $8DDAT
* COMPARE
TST136
::BR IF SAME

HBUF 042722

:TEST OTHER ADDRESS

ERROR

*MATRIX MODE ADDER ERROR

MOV

SHBUF 0+2722. SBDDAT

ERROR

001126

#TSTDMA! TSTCON,aSFR
#2024 ,aCSR
#8IT0.aCSR

BNE

023210
023212
023220
023224

SEQ 0076

CLR

‘BR IF NON-ZERO

73?{?2 GAIN AND WORD MATRIX MODE,

$GDDAT

THE ADDRESSES SELECTED WAS INCORRECT

:LOAD INCORRECT DATA

“CLEAR THE EXPECTED DATA

*MATRIX MODE ADDER ERROR DUE TO

;TESTX'“LOGIC SET

IN ERROR

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

MACY11 3?6(1063) 31-AUG-79 13:10 PAGE 54
136
VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

1“{,

(3)

1665

1666
1667

023226
023230

000004
012737

000010

001160

023236

012777

004000

156512

1670

023252

012777

000014

156476

1669 023244

012777

023260
023266
023274

012777
052777
052777

023314
023322

052777
012737

065224

004024
000002
000001

1674 023302 042777 000001
1675 023310 005037 072459
1676
1677

1678
1679
1680
1681
1682

1683

023330
023336
023344
023352
023354

012737
017737
023737
001401
104033

010000
072450
000001
155560
001124

#CLRALL ,@SFR

MOV

#TSTDMA!TSTCON,aSFR

MOV
BIS
BIS

B8IC
CLR

BIS
MOV

MOV
MOV
CMP
BEQ
ERROR

;CLEAR THE DEVICE

#BUF 0+5224 , 30F F

*LOAD THE OFFSET REGISTER
;SET TEST DMA AND CONTROL

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

:ENABLE 7B AND WORD MATRIX MODE
*ENABLE ‘TEST Z'' PULSES
;ENABLE NCV11
!

#BIT12,3SFR
#BUF0+12450,88DADR

:ALLOW1 TRANSFER
;LOAD THE EXPECTED ADDRESS

#81T0.aSFR
aBUF 0412450

#1,3GDDAT
a$BDADR, SBDDAT
$GDDAT, $8DDAT
TST137
33

:DISABLE '‘TEST Z'* PULSES
*CLEAR THE TARGET LOCATION

;LOAD THE EXPECTED DATA
*READ THE ACTUAL DATA
* COMPARE
;:BR IF SAME
;ADM INPUT TO THE MATRIX MUX SELECTED

*WRONG ADDRESS

EXPECTED ADDRESS WAS BUFO + 2450

:;ttttttttttttttttt'ttttttttttttttttttttttt'fittttttttttttttt!tttt

:*TEST 137

VERIFY LOW BYTE OPERATION OF THE '‘TESTX'' FLOP

.':tfitttttttttttttttttttttttttttittttttt.tttttfitttltttt'tt'tt"tt'

000004
012737
012777
012777

000010
004000
060000

001160
156362
156346

1689
1690
(1)
1691

023416
023424
023432
023440

052777
052777
042777
052777

000001
000002
000002
000020

156322
156324
156316
156310

023402
023410

023446

023452

012777
012777

005037
005037

000014
002024

062552

060152

156346
156330

169 023456 052777 010000

156272
001124

1695
1696
1697
1698

023464
023466
023470
023472

000240
000240
24
012737

000001

1701
1702

023514
023516

001413
005737

062552

1708

MOV

001124
001126
001126

023356
023360
023366
023374

1703
1704
1705
1706
1707

::DO 10 ITERATIONS

*WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS 12450
;VERIFY THAT THE MATRIX MUX CAN ADD CORRECTLY

156434
001122

(2)
(1)
1685
1686

1699
1700

#10,$TIMES

USING ZB ENABLE

;WITH ZB ENABLE SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 224

156446

1693

T§T136: SCOPE
MOV

156460
156462
156444

(3)

1692

VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER

156476

168(.

1687
1688

:=TEST 136

:"ttt"titttttttttttttttttttt.tttttttl.ttttttttttttt'.t".t't..t.

1668

1671
1672
1673

SEQ 0077

::ttttt'tttttttt.ttttttttt.tttttttttt.ttttttt'tttt.ttttt.itfittttt

3
(2)
(1)

USING ZB ENABLE

023500
023506
023522
023524
023526
023530
023536
023542

013737
023737
001002
104034
000406

013737
005037
104034

060152
001124

062552
001124

7ST137: SCOPE
MOV
MOV
MOV
MOV
MOV
BIS
BIS
BIC
BiS

CLR
CLR

001126

#TSTDMA'TSTCON,aSFR
#2024 ,3CSR
#81T0.aCSR
#TESTZ,aSFR
#TESTZ.aSFR
#BIT4,3SFR

;LOAD TEST .DHA AND CONTROL
*SET 'GAIN'' AND WORD MATRIX MODE
:SET NCV11 ACTIVE
:ENABLE "TEST 7' PULSES
:DISABLE "TEST 2'' PULSES
SSET "TESTX'" FLOP

aMBUF 0+0152

*CLEAR THE TESTX WORKED LOCATION

aBUF 0+2552

*CLEAR THE TEST FAILED LOCATION

#BI1T12,3SFR

MOV
CMP

#1,$GDDAT
a#BUF0+0152, $BDDAT
$GDDAT, SBDDAT

BEQ
ST

1%:

::D0 10 ITERATIONS
:CLEAR THE DEVICE
*LOAD OFFSET REG.

BIS

NOP
NOP
NOP
MOV

001126
001126

#10,$TIMES
#CLRALL ,@SFR
#BUF 0, 30F F

BNE
ERROR
BR

MOV

CLR
ERROR

TST140
MBUF 0+2552
1%

*ALLOW 1 TRANSFER

:LOAD EXPECTED DATA

;READ THE ACTUAL DATA
*COMPARE DATA

;:BR IF SAME
STEST TESTX FAILED LOCATION

::BR IF YES
)
34
:TESTX FAILED TO INHIBIT BITS 8-15 OF THE ‘'‘SUM ADDER'®
TST140
i
a#BUF 0+2552, $BDDAT
;GET ACTUAL DATA
$GDDAT
*CLEAR EXPECTED
34

:TESTX FAILED TO INHIBIT BITS 8=15 OF

THE “'SuM A

DIAGNOSTIC
(ZNCCB NCVTT
CZNCCB.P1T
31-AUG=79 11:21

AR AR

S*TEST 140

Nnunflugg_ha.a_ha_a_hd.a_ha
= OV
N~ NN WN) =~

001160

AR AR

T$T140: SCOPE

156174

156160

156116

AR AR A AR

AR A A AR AR

AR AR AR AR AR

AR AR

AR AR A

AR AR AR

#50000,
30F F

:CLEAR THE DEVICE
:LOAD THE OFFSET REG.

#2030,3CSR
#BITO,aCSR
WTESTZ,aSFR
ATESTZ.aSFR
@BUF0+2726
#BIT12,aSFR

:SELECT GAIN MATRIX BYTE MODE
:ENABLE NCV11
:ENABLE "TEST 2'* PULSES
:DISABLE ‘TEST 2'* PULSES
:CLEAR THE TARGET LOCATION
:ALLOW 1 WORD TRANSFER

MOV

001124
001126
001126

MOV

MOV
BIS
BIS
BIC
CLR
BIS

001122

AR RA

VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MuUX

#100.$TIMES

MOV

156142
156134
156136
156130

AR AR AR AR AR AR

SEQ 0078

MOV

156160

VIS WN

il
nl)
) ad ald
)
b
-

~N NNNNNNNNANNNNNNA
N

) and

023544

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 55
7140
VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX

MOV
MOV
CMP
BEQ
ERROR

WCLRALL,aSFR

;DO 100 ITERATIONS

WTSTDMA!TSTCON,@SFR

#BUF0+2726,$BDADR

#1,$GDDAT
@SADADR,SBDDAT
$GDDAT,$8DDAT
TST141
33

:SET TEST DMA AND CONTROL

:LOAD EXPECTED ADDRESS

:LOAD EXPECTED DATA
:READ THE ACTUAL DATA
: COMPARE
::BR IF SAME
;MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

:THE WRONG ADDRESS - EXPECTED ADR. WAS BUF0+2726

::QttQttt..t'.'.t.Q't.t."'..‘.Q'.t.Q.'Q.....'fifi"...'."'...ti..

RTEST 141

VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MUX

;:ttt'fi'fi'.t.'tttttt'.t!'.tfi.tQQ.Q!Q‘.ti.i.....'fi.tt'fitfi.t'.t'.tfi

001160
156044

156030
156030
156012
156004
156006
156000

-0V

R‘aw& JeolpaiSd

e
i
b
)
o
-

NNN

1730

SCOPE

MOV

#100,$TIMES

MOV
MOV
MOV
BIS
BIS
BIC

#37774 ,30FF
ATSTDMA!TSTCON,@SFR
#2032,aCSR
#BIT0,aCSR
#TESTZ,aSFR
ATESTZ.aSFR

MOV

CLR

WCLRALL,aSFR

aWBUF0+5522
#BIT12,aSFR

155766

BIS

001124
001126
001126

MOV
#1,SGDDAT
MOV
@$BDADR, $BDDAT
CMP
SGDDAT,S$BDDAT
BEQ
TST142
ERROR
33

001122

024022

T§T141:

MOV

::DO 100 ITERATIONS

#BUF0+5522,$BDADR

:CLEAR_THE DEVICE

:LOAD THE OFFSET REG.
:SET TEST DMA AND CONTROL
:SELECT GAIN MATRIX BYTE MODE
:ENABLE NCV11
:ENABLE "TEST 2'* PULSES
:DISABLE "TEST 2'* PULSES

:CLEAR THE TARGET LOCATION
:ALLOW 1 WORD TRANSFER

:LOAD EXPECTED ADDRESS

:LOAD EXPECTED DATA
:READ THE ACTUAL DATA
: COMPARE
::BR IF SAME
:MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS
:THE WRONG ADDRESS - EXPECTED ADR. WAS BUF(0+5522

NCV11

CZNCCB.P1T

(2)

(1
1744
1745
1746
1747
1748
1749

B 7
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 56
T142
VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX

SEQ 0079

.';Q.tl.'fi.Qi'."..tt..'t.'.'.Q.QQ'.Q...Q.'Q.Q.'Q'Qi.tt..."'.t.'t

TRTEST 142

VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX

""ttl.'fi"t."t"t.'tQ...Q.'.Q.t........l...".t't.'t.ttQ"'.Q.Q.

024024
024026

000100

001160

T8§T142:

SCOPE
MOV

;OFFSET =

*ADM OUTPUT

887 Fnnnnn Sk

1743
(3)
(3)

DIAGNOSTIC
31-AUG=79 1M1:21

024144
024152
024160
024162

o0
QO

CZNCCB

104033

*TARGET

#100,$TIMES

50000

::D0 100 ITERATIONS

53656

MOV

=
123656
#CLRALL ,@SFR

MOV

#TSTDMA' TSTCON,aSFR

“SET TEST DMA AND CONTROL

2$SBDADR , $BDDAT

*READ THE ACTUAL DATA

cTMP
BLO
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV
MOV

MOV

CMP
BEQ
ERROR

$LSTBK , #1340
TST143
#50000, 0F F

:CLEAR THE DEVICE

*TEST IF ENOUGH MEMORY >20K
;:BR IF NO ROOM
;LOAD THE OFFSET REG.

#2034 ,aCSR
#81T0.aCSR
#TESTZ,aSFR
#TESTZ.aSFR
BUF 0+4 3656
#81T12,aSFR
#BUF 0+4 3656, SBDADR
#1,$GDDAT
$GDDAT, $BDDAT
TST143
33

;:BR IF

“SELECT GAIN MATRIX BYTE MODE
*ENABLE NCV11
*ENABLE '‘TEST 2'' PULSES
*DISABLE '‘TEST 2'' PULSES
*CLEAR THE TARGET LOCATION
*ALLOW 1 WORD TRANSFER
*LOAD EXPECTED ADDRESS
*LOAD EXPECTED DATA
- COMPARE
SAME

:MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS

;THE WRONG ADDRESS - EXPECTED ADR.

WAS BUF0+43656

CZNCCB NCV1T
CZNCCB.P1

DIAGNOST IC
31-AUG=-79 11:21

MACY11

1765

AR AR AR AR AR AR

S*TEST 143

(3)
(3)
(2)

30G(1063)
31-AUG=79 13:10 PAGE 57
T143
CHECK FOR HIGH BYTE ‘'INC OVFL'' TO SET CELL OVERFLOW
AR AR AR AT AR AR A AR AR AR AR AR AR

AR AR AR AR AR AR AR

CHECK FOR HIGH BYTE '‘INC OVFL'' TO SET CELL OVERFLOW

':Qt"t't.tit.QttQ.'tQQl't'l.'Q.'t.Qt.Q*Q'.t'.t.t.'.'t..t.t.Q'QQ.

001160
155554

(1)
1766
1767
1768
1769

T8$T143: SCOPE

MOV

BIS
BIS
ség
NOP
NOP

MOVB
MOVB

155450

023737

013737
012737
023737
001401
104030

dBIT16!BITé!BIT1,3CSR

155522

061264
061265

001401
104030

MOV

155530

155504
155506
155500

(1)
1774
1775

#10,$TIMES
#CLRALL ,aSFR

CLR
CLR
MOV

155520

1770
1771
1772
1773

MOV
MOV

Ség

NOP

001124
001126
001126

001126
001124
001126

1%:

aWCR
@BAR
#BUFQ,a0FF

;:D0 10 ITERATIONS
;CLEAR THE DEVICE

JCLEAR W.C.
;CLEAR B.A.
;LOAD INITIAL OFFSET REGISTER

JENABLE MATRIX MODE BYTE AND SET GAIN

#TSTDMA!'TSTCON,aSFR

JSET TEST DMA AND CONTROL

#100,BUF0+1264
#377 ,BUF 0+1265

;LOAD LOW BYTE TO A KNOWN VALUE
;SET HIGH BYTE TO 377

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

#BIT12,aSFR

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

;ALLOW 1

TRANSFER

MOV
MOV
CMP
BEQ
ERROR

#MITI3'BIT10!BIT4!'BIT1,3GDDAT
;LOAD EXPECTED STATUS
a(CSR,$8DDAT
;READ THE ACTUAL STATUS
$GDDAT , $BDDAT
» COMPARE
1%
;:BR IF SAME
30
;CELL OVERFLOW FAILED TO SET

MOV
MOV
CMP
BEQ
ERROR

BUF0+1264 ,$8DDAT
#177500, $GDDAT
$GDDAT , $BDDAT
TST144
;:BR IF
30
sTARGET

JWHEN INCREMENTING THE HIGH BYTE

JREAD THE BUFO LOCATION
;LOAD EXPECTED VALUE
. COMPARE VALUES
SAME
LOC. DATA WAS INCORRECT

SEQ 0080

CZNCCB NCVTT
CZNCCB.PTT

1795

155222

1%:

MOV

A AR A AR

AR AR A AR

TSTB

;:D0 400 ITERATIONS

TST145

::BR IF NOT

;TEST

#1,$GDDAT

T*TEST 145

#CLRALL ,aSFR
#TSTDMA.aSFR

TESTER MODE

:CLEAR THE DEVICE
*SET TEST DMA FLOP

*LOAD UPPER 16 BITS
:
*LOAD INITIAL COUNTER VALUE
“ENTER MATRIX MODE

*ENABLE THE DEVICE

#B1T0.aDACSR

*GENERATE ''2'' PULSE

ggAcsn

*WAIT FOR Z PULSE COMPLETION

:READ EXPECTED REGISTER VALUE

* COMPARE

::BR IF SAME

:LOWER 16 BITS OF THE Z COUNTER IN ERROR

“

$GDDAT
1%
AR A A AR AR A AR AR

(TESTER ONLY)

*LOAD LOOP ADDRESS

}311'5

SRR A AR AR A AR

:LOAD EXPECTED VALUE

#1$, SLPERR

$GDDAT , SBDDAT

ASL

R AR AR AR AR

AR A RAAANARAR AR AR AR AN AR AR AR

aBAR, $BDDAT

3%:

AR AR R AR

#400,$TIMES

WFMODE

001124

AR AR

#BIT4'BIT1,aCSR
#81T0,aCSR

non
oo

-2
—

—_

SCOPE
MOV
TST
BEQ
MOV
MOV

RN AR

#0, aWCR
$GDDAT , aBAR
aBAR

2%:

155242
001124

TST144:

i
ad

004000
000010
000000
001124
155276
000022
000001
000001

000001
024422

:CHANGE THE DATA BIT
‘BR AND TRY NEXT BIT

AR AR RAAARA A AR

AR AR AR AT AR

VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER

(TESTER ONLY)

=
O
&SN
ONO

155054

MOV

#1% ,SLPERR

TSTB

024702

#-1,aBAR

;LOAD LOWER 16 BITS

#8170,aDACSR
ggACSR

aWCR,$BDDAT
$GDDAT ,$BDDAT
33
3%:

ASL

;LOAD LOOP ADDRESS

};T146

001124

;:DO 400 ITERATIONS
;TEST IF TESTER MODE
::BR IF NOT
;LOAD EXPECTED VALUE

#CLRALL ,@SFR
#TSTDMA,aSFR
$GDDAT ,aWCR

#MIT4&!'BIT1,aCSR
#BIT0,aCSR

nono
oo~

#400,$TIMES
WFMODE
TST146
#1,8GDDAT

aW(CR

2%:
PP

155072

001124

1%:

SCOPE
MOV
TST
BEQ
MOV
MOV

TST145:

bbb

012777
012777

000001
024570

cbabal

024570
024576

001160

ababal

001454
012737
012737

000400
050024

024536
024540
024546
024552
024554
024562

a2 2222222322233 2232222322322
22222 RRR
R ]

(W LV LV LV, RV AV, 1V, ]
Vi
i,

W
Ed =)
WYY~ wwo~N (s AV PQWIS

T
TP
TP
A R R
ARTDR
—

1840

024444
024452
024456
024464
024472
024500
024504
024506
024514
024522
024524
024526
024530
024534

001160

012777

000400
050024

oo
ooy

024422

005737
001454
012737
012737

b
e

000004
012737

vy
vy

024370
024372
024400
024404
024406
024414

(TESTER ONLY)

VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER

AR AR AR AR AR AR

D
D
D
D
D
D
—

)

~ ~ ~ ~ 00 00 00 0o 00 0o 0o 0o 0o

181

AR R AN A AR AR AR AR AA

J*TEST 144

A
R R PSS

(3)
(3)

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 58
T144
VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER

DIAGNOST IC
31-AUG-79 i

$GDDAT
1%

;CLEAR THE DEVICE
:SET TEST DMA FLOP

;LOAD INITIAL COUNTER VALUE

;ENTER MATRIX MODE
;ENABLE THE DEVICE
;GENERATE

‘Z''

PULSE

;WAIT FOR Z PULSE COMPLETION

JREAD EXPECTED REGISTER VALUE
; COMPARE
;:BR IF SAME

;HIGHER 16 BITS OF THE Z COUNTER IN ERROR
“CHANGE

THE DATA BIT

;JBR AND TRY NEXT BIT

SEQ 0081

CZNCCB NCV1T
CINC(B.P1T

DIAGNOST IC
31-AUG-79 11:21

k. T
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 59
T146
VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL

1842

(TESTER ONLY)

';t'.Q'Q..Qi.t..t.'t.tl.Q.'tt!t.'.t..t.'fi..'t."'!..Q'.Q.....'Q.Q

TRTEST 146

VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL

(TESTER ONLY)

':QIttt"Q'Qtt'tt.t.'..."'i".QQt..t"t.ttt.tifi..'..".tt""'t.

024704
024706
024714
024720
024722

000004
012737
005737
001443
012737

024730
024736
024744
024752
024760
024766
024774
025002

012777
012777
012777
012777
012777
052777
052777
105777
100375
017737
023737
001401

025026

000400
050024

001160

000001

001124

004000
000010
000000
000000
000422
000001
000001

5020
5012

TST146:

SCOPE
MOV
TST

BEQ
MOV
1%:

MOV

#400,8TIMES
WFMODE

TST147

#1,8GDDAT

;:D0 400 ITERATIONS
;TEST IF TESTER MODE

;:BR IF NOT

;LOAD EXPECTED VALUE

#CLRALL ,aSFR
#TSTDMA,aSFR

;CLEAR THE DEVICE
:SET TEST DMA FLOP

#0,aWCR
#0,aBAR

;LOAD UPPER 16 BITS
;LOAD LOWER 16 BITS

#IT8!'BIT4!BIT1,aCSR

154720

2%:

TSTB

154740

104010

;ENABLE THE DEVICE
:GENERATE *7'" PULSE

ggACSR

aBAR, $BDDAT
$GDDAT , $BDDAT
TST147
10

001124

JENTER MATRIX MODE ON CAMERA 01

#IT0,aCSR
#81T0,aDACSR

JWAIT FOR Z PULSE COMPLETION

;READ EXPECTED REGISTER VALUE
; COMPARE
;:BR IF SAME
;LOWER 16 BITS OF THE Z COUNTER

;IN ERROR WHEN USING CAMERA 01

AR AR AR A AR R A A AR AR AR AR A AR AR AR AR ARAAARAAAARAAR R

tTEST

147

AR AR

VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL

(TESTER ONLY)

W 2222222222032
222222 2322222232222 222222222 222222 R0

025030
025032
025040
025044
025046

000004
012737

025054
025062

012777
012777
012777
012777
012777
052777
052777

005737
001443
012737

105777
100375

025152

017737
023737
001401
104010

000100
050024

001160

000001

001124

004000
000010
000000
000000
001022
000001
000001
154574

154674
154666
154654
154650
154634
154626
154600

154614

001124

TST147:

SCOPE
MOV
TST
BEQ
MOV

#100,$TIMES
WFMODE
TST150
#1,8GDDAT

1%:

MOV

#CLRALL ,aSFR

;CLEAR THE DEVICE

#0,aWCR

;LOAD UPPER 16 BITS

::DO 100 ITERATIONS
:TEST IF TESTER MODE
;:BR IF NOT
;LOAD EXPECTED VALUE

#TSTDMA ,aSFR

;SET

#0,aBAR

;LOAD LOWER 16 BITS

#MIT9'BIT4'BIT1,aCSR
#IT0,aCSR
2%:

TSTB

TEST DMA FLOP

JENTER MATRIX MODE
:ENABLE THE DEVICE

#8170,aDACSR

*GENERATE *Z'' PULSE

ggACSR

;WAIT FOR Z PULSE COMPLETION

aBAR, $BDDAT

;READ EXPECTED REGISTER VALUE

$GDDAT , $SBDDAT
TST150

::BR

: COMPARE

SAME

;LOWER 16 BITS OF

THE Z COUNTER

;IN ERROR WHEN USING CAMERA 10

SEQ 0082

CZNCCB NCV1T
CZNCIB. P11

DIAGNOSTIC

31-AUG=79 11:21

MACY1T

306(1063)
1150
e

2332330333223

TRTEST 150

FEEE
CHERRECT

025154
025156
025164
025170

000004
012737
005737
001443
012737

025200

012777
012777
012777
012777
012777
052777
052777

004000
000010
000000
000000
001422
000001
000001
154450

017737
023737
001401

154470

025172

105777
100375

025276

104010

000100
050024

001160

000001

001124

2%:
001126
001126

222220

2222222222202

VERIFY THAT CAMERA 11

22200

CHANNEL

(TESTER ONLY)
RRRRdld

IS OPERATIONAL

)

(TESTER ONLY)

i3 2202222202222
Rl

TST150: SCOPE

1%:

31-AUG=79 13:10 PAGE 60
VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL

MOV
TST
BEQ
MOV

#100,$TIMES
WFMODE

MOV
MOV
MOV

#CLRALL ,aSFR
#TSTDMA ,aSFR

;CLEAR THE DEVICE
;SET TEST DMA FLOP

#0,3BAR

;LOAD LOWER 16 BITS

TST151

#1,8GDDAT

#0,awWCR

;:D0 100

ITERATIONS
;TEST IF TESTER MODE

;:BR IF NOT

;LOAD EXPECTED VALUE

;LOAD UPPER 16 BITS

#BIT9!BIT8!BIT4!BITT,aCSR
;ENTER MATRIX MODE
#BIT0,aCSR
;ENABLE THE DEVICE
#BIT0,aDACSR
;GENERATE '7'' PULSE
ggACSR

aBAR, $BDDAT
$GDDAT , $BDDAT
TST151
10

;WAIT FOR Z PULSE

COMPLETION

;READ EXPECTED REGISTER VALUE
. COMPARE
;:BR IF SAME
;LOWER 16 BITS OF THE Z COUNTER

;IN ERROR WHEN USING CAMERA 11

SEQ 0083

NCVTT
L1

DIAGNOST IC

31-AUG=79 11:2

MACY11

3?6(1063)
151

31-AUG=79

13:10

PAGE 61

SEQ 0084

DYNAMIC MATRIX MODE ADDRESS

2223323220222

T*TEST 151

22232220

222

DYNAMIC MATRIX MODE ADDRESS

R Rttt

::Q.'."..."'.Qi'i.....".tfi.fit....".......Q'.Q.'..'Q."..'t.'.

025300
025302

000002

001160

T§T151:

SCOPE

MOV

#2,8TIMES

::DO 2 ITERATIONS

:CELL INCREMENT OF A FLOATING LOCATION (60000,70000,64000,62000,61000)

*AFTER VERIFYING THE WHOLE BUFFER - UPDATE

025310
025316
025324

012737
012737
012737

025332
025336
025342
025346
025350
025352
025354

012700
012701
013702

012777

177770

022446

025362
025370
025376
025404
025410
025416
025424
025432

012777
013777
012777
005077
012777
012777
052777
052777

004000
050030
177777
154344
000004
000024
000002
000001

154366
154352
154346

020000
025332

050030
025664
001110

060000
125252

003354

AND INCREMENT ANOTHER LOCATION

025440
025444
025446
025454
025456

154324
154306

154272

050030
022244

nony

013737
017737

W#TESTZ,aSFR
#BIT0,aCSR

;SET TEST Z FLOP
JENABLE THE NCV11

;CLEAR LOW 16 BIT COUNTER
JENABLE TEST CONNECTOR
;LOAD MATRIX WORD MODE

#BIT14!BIT13,aCSR

DEC

5%:

BNE
DEC
BN
MOV
MOV
ERROR
BR
MOV

CMP

CURENT RO

BNE

7%:

;PRIME THE DELAY
;TEST FOR CELL OR Z OVERFLOW

;.BR IF EITHER IS SET
;DELAY

4%
RO
;DELAY
4%
aCSR, $8DDAT
sREAD BAD STATUS
#BIT14!BIT134224 ,$GDDAT ;LOAD EXPECTED STATUS
2
;DYNAMIC MATRIX MODE STATUS ERROR
TST152
‘s
#8UF0,RO
;GET BUFFER POINER

;TEST IF TARGET ADDRESS

BEQ
MOV

’$
RO, $BDADR

::BR IF YES
;GET BAD ADDRESS FOR TYPE-QUT

BEQ
ggnon

10%
%nsz

::BR IF SAME
*CHANGED AN INCORRECT TARGET LOCATION

MOV
MOV
CMP

104033

000446

BIS
BIS

aBAR
#TSTCON,aSFR
#24 ,aCSR

BIT

noro
o~

—_—

12525¢
001124

sINIT THE DEVICE
;LOAD OFFSET TO TARGET
JPRIME THE HIGH 16 BIT Z COUNTER

6%:

_—

001122
001126

#CLRALL ,aSFR
CURENT ,a0F F
#-1,aWCR

g?UDL?.RO

154254

011037
012737
023737
001417

MOV
MOV
MoV

;PRIME THE TARGET LOCATION

?EX

060224

060000
050030

“TEST FOR END

MOV

RO.R2
3%
#-10,aCURENT

CLR
MOV
MOV

154340
154322

002012
060000

THE OFFSET REGISTER

MOV
#8UF0,CURENT
;PRIME THE CURRENT TARGET LOC.
*LOAD FORCE BIT
#1T15,1008
MOV
MOV
#2% , SLPERR
*LOAD RETURN ADDRESS
-PRIME THE BUFFER WITH A 125252 PATTERN
5%
MOV
#BUF0 ,RO
:LOAD POINTER TO BUFFER
MOV
#125252.R1
*LOAD VALUE
MOV
ADNOKT ,R2
*LOAD BUFFER END ADDRESS
38
MOV
R1, (RO +
*LOAD BUFFER WITH DATA
é:vg

338

1915

“COLLECT DATA OF O AND INCREMENT A TARGET LOCATION
*VERIFY THAT NO OTHER ADDRESS IS CHANGED

i
i
i

-t

S WNN=0O

VOO0 0O

3838

“FILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252)

MOV

(RO) ,$8DDAT
#125252.8GDDAT
$GDDAT,$BDDAT
CURENT ,$BDADR

dCURENT ,$8DDAT

*GET BAD DATA
:LOAD EXPECTED DATA
- COMPARE

:LOAD EXPECTED ADDRESS

;LOAD ACTUAL DATA

001400

003407
001124

012737
023737

025614
025620
025622
025630
025632
025636
025644

MOV
CMP
BEQ
108 :

003354

025612

001202
004000

025646

025654
025662

153310

025664
000002

025664

060000
025664

050030
050030

#3407 ,8GDDAT
$GDDAT,$BDDAT
108
(RO)+

CMP
BNE

ADNOK T ,RO
63

$PASS

BEQ
BIT

TST152
#SwW11,aswR

ASR

1008

BNE

1008:

025664

31-AUG=79
13:10 PAGE 61-1
3 06 (1063)
m 51
DYNAMIC MATRIX MODE ADDRESS

rorv
o~

025566
025574
025602

—

31-AUG=79 11:21

MACY!11

DIAGNOSTIC

80
o

CZNCCB NCV1T
CZNCCB.P1T

(MP
BEQ
MOV
BIS
BR

BIT13

1ST152

#2.1008
TST152
0, CURENT
#BUF
1008, CURENT
23

SEQ 0085

;LOAD EXPECTED DATA
; (OMPARE
::BR IF SAME
:BUMP THE POINTER

INTO THE BUFFER

“TEST IF FINISHED THE BUFFER
“BR AND RETEST THE REST OF THE BUFFER
TEST IF

FIRST PASS

: BR IF YES
:YEST INMIBIT INTER.

:BR IF SET
“CHANGE THE FORCED ADDR. BIT
T EST T IF FINISHED
;BR IF FINISHED

MAKE UP NEW ADDRESS

".'tt...t.t...'."..tt.'.'."t!'...ti".lt'ttt't.ttt.t'.'t't"l't'

S*TEST

152

DYNAMIC LIST MODE ADDRESS

.':Q"tfitQ."QQ.fi"il'.tfi‘*'fi'.fifi*..tfi"tt'Q.t'tt.'tQt..t.tt.'t'tt

025666
025670

000004

012737

000002

001160

T§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

025676
025704
025712

012737
012737
012737

060000
020000
025720

025720
025724
025730
025734
025736
025740

012700
012701
013702

060000
125252
003354

025742
025750
025756
025764

012777
012777
013777
012777
052777
052777
042777

025772
026000
026006

050030
026244
001110

MOV

#BUFO,CURENT

;PRIME THE CURRENT TARGET LOC.

MOV

#2%. SLPERR

*LOAD RETURN ADDRESS

MOV

:PRIME

2%
3%:

153700

001126

4%:

#81715,1008

*LOAD FORCE BIT

THE BUFFER uer A 125252 PATTERN

MOV

#BUF 0

:LOAD POINTER TO BUFFER

MOV

a1252§2R1

MOV

ADNOKT ,R2

R1, (RO) +

*LOAD BUFFER END ADDRESS

*LOAD BUFFER WITH DATA

CMP
BNE

RO.R2
38

*LOAD VALUE

“TEST FOR END

MOV

#CLRALL ,aSFR

JINIT THE DEVICE

BIS
BIS
BIC

#B1T0,aCSR
#TESTZ,aSFR
#TESTZ,aSFR

JENABLE THE NCV11
,
;ENABLE '‘TEST Z'' PULSES
;DISABLE "‘TEST Z'' PULSES

MOV
MOV
MOV

153716

001370
017737

AFTER VERIFYING BUMP THE BUS ADDRESS AND DO SUB-TEST AGAIN

#-1,3WCR
CURENT ,aBAR
#TSTCON,aSFR

;PRIME THE WORD COUNT
;LOAD TARGET LOCATION POINTER
;ENABLE MAINT. MODE

?EX

CPUDL2 RO

BIT

081714'81713 BCSR

BNE
DEC
BNE
DEC
BNE

MOV

5%
R1
4%
RO
4%

(SR, $8DDAT

;JPRIME THE DELAY
;TEST FOR CELL OR Z OVERFLOW

;BR IF EITHER IS SET
:DELAY
;DELAY
;READ BAD STATUS

RNNNNNNY S 3333333
NS W
IRUEGRERS 3% OO

2288 S

(ZNCCB NCVTT
CZNCCB.P1T

026050
026056
026060
026062
026066
026072
026074
026100
026104
026112

DIAGNOSTIC
21
31-AUG=-79 11:

012737

060224

012700
023700
001415
010037
011037
012737
023737
001421
104021
000450

060000
050030

1040;6
000472

13:10
PAGE 61-2
DYNAMIC LIST MODE ADDRESS

001124

MOV

1152

ERROR

5%:
6%:

001122
001126
125252
001124

050030

7%:

10%:

026172
026174
026200
026202
026210
026212
026216
026224
026226
026234
026242
026244

31-AUG=79

MACY11 30G(1063)

026244

060000
026244

050030
050030

CMP
BEQ
MOV
MOV
MOV
CMP
BEQ
ERROR
BR
MOV
MOV
MOV
CMP
BEQ
ERROR
BR
TST

100%:

021714!BIT13*224,SGDDAT ;LOAD EXPECTED STATUS
;DYNAMIC LIST MODE STATUS ERROR
3
TST153
#BUF0,RO
;GET BUFFER POINER
sTEST IF TARGET ADDRESS
CURENT RO
7$
;.BR IF YES
RO, $8DADR
;GET BAD ADDRESS FOR TYPE-OUT
(RO) , SBDDAT
:GET BAD DATA
#125252, $GDDAT ;LOAD EXPECTED DATA
$GDDAT, $BDDAT
; COMPARE
108
::BR IF SAME
21
s CHANGED AN INCORRECT TARGET LOCATION
TST153
NT
, $8DADR
CURE
T
, S8DDAT
SCUREN

#3407 ,$GDDAT

, SBDDAT
$GDDAT
108
37
TST153
+
(RO)

cmP
BNE

ADNOKT ,RO
6$

TST

$PASS
TST153
#5W11,aSwR

ASR

1008
#2.1008
157153
0, CURENT
#BUF

BEQ
BIT
BNE

152730

026244
000002

BR
MOV

CMP
BEQ
MOV
BIS
BR

BIT13

SEQ 0086

1ST153

;gOS.CURENT

;LOAD EXPECTED ADDRESS
sGET ACTUAL DATA
sLOAD EXPECTED DATA
: COMPARE
;;BR _IF SAME
;LIST MODE DATA ERROR

‘BUMP THE POINTER INTO THE BUFFER
“TEST

FINISHED

THE BUFFER

‘BR AND RETEST THE REST OF THE BUFFER
;TEST IF FIRST PASS
;i8R IF FIRST PASS
JTEST INHIBIT INTER.
;:BR IF SET
:CHANGE THE FCRCE ADDRESS
;TEST IF END
;:BR IF FINISHED
;MAKE NEW ADDRESS

CZNC(B NCVT
CZNC(B.P1T

MACYTT

3?6(1063)
153

13:10 PAGE 62
DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28k

'TEST 153

3220022

000004
012737
013700

001160

TST153: SCOPE

005400
006200

026312

012703
012701
013702
010123
020302
001375

026314

012777

2:RIME

3%:

153434

A ¥

#40,8$TIMES
ADNOKT RO

MoV

MOV
CMP
BNE
MOV
MOV
MOV
MOV
BIS
BIS
MOV
BIT

153340

:125252 R1

g g

RRR0RdRRRd)

22222

2222

;.D0 40 ITERATIONS

sGET LAST ADDRESS
;DETERMINE THE WORD COUNT VALUE

ADNOKT ,R2

*LOAD BUFFER END ADDRESS

gg.az

“TEST FOR END

R1, (R3)+

*LOAD BUFFER WITH DATA

#CLRALL,@SFR

;INIT

#8UF0, aBAR

*LOAD TARGET LOCATION POINTER

RO, aWCR

#TSTCON,@SFR

#8170,aCSR

#TESTZ,aSFR

THE DEVICE

*PRIME THE WORD COUNT
-ENABLE MAINT.

MODE

*ENABLE MAINT.

*ENABLE THE NCV11

CPUDL2.RO
“PRIME THE DELAY
#BIT141BIT13,aCSR
:TEST FOR CELL OR Z OVERFLOW
5%
::BR IF EITHER IS SET
*DELAY

:DELAY

aCSR, $BDDAT

;READ BAD STATUS

5%:
6%:

MOV
MOV

#BUF0,RO

*GET BUFFER POINER

RO, $BDADR
(RO) , SBDDAT

#3407, $GDDAT

SGDDAT SBODAT

108
37

003354

222

#81T14BIT13+200.$GDDAT :LOAD EXPECTED STATUS
;gr154
;DYNAMIC LIST MODE STATUS ERROR = NO WORD COUNT OVERFLOW

060200

104037
000404
005720
023700
001357

2220

RO
RO
THE BUFFER UITHg 125252 PATTERN
#BUF0
MOV
;LOAD POINTER TO BUFFER
MOV
.LOAD VALUE

R
4$

023737

222

sNOW COLLET THE LIST MODE DATA

153420

ORI
AT

026272

#BUFO0,RO

162700

026270

2222033022222 22

DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28k

026246

31-AUG=79

2333222323322

83888

2041
(3)
(3)

DIAGNOSTIC
31-AUG=79 1:21

108:

TST

TST154
(RO) +
ADNOKT ,RO
£$

*GET BAD ADDRESS FOR TYPE=-QUT
*GET BAD DATA

*LOAD EXPECTED DATA

; COMPARE

:BR IF SAME
LIST MODE DATA ERROR

:
aunp THE POINTER INTO THE BUFFER
“TEST IF FINISHED THE BUFFER
*BR AND RETEST THE REST OF THE BUFFER

SEQ 0087

CINCCB NCV11

CZNCCB.P11

DIAGNOSTIC

31-AUG=79 11:21

MACY11 3%;2063)

(3)

000004
012737

000002

001160

026506
026514
026522

012737
013737
012700

000600
041742
060000

041742
172346

026532
026540

052737
012710

001400
000370

177572

2095
2096
2099

026552
026556
026560

013701
005002
006301

041742

2100
2101
2102
2103

026570
026572
026574
026576

518(7’

026610

2091

2092
2093

2094

(1)
(1)
(1)

2104
2105

2108

026500
026504

005737
100127

026526 012710
026544

026562
026564
026566

026600
026604

042737

036122

125252

001400

006301
006102
006301
006102

041726
001122

060201

2115
2116
2117
2118

026662
026670
026676
026704

012737
052777
052737
011037

000371
010000
000001
001126

001124
153060
177572

2120
2121
2122
2123
2124
2125

026716
026724
026726
026730
026734
026736

023737
001401
104035
005737
001413
032777

001124

001126

004000

152174

2127
2128
2129

026746
026754
026762

062737
023737
101254

000200
036404

041742
041742

026744

000002

042737 000001

001007

#1400 ,a#SR0O

MOV
CLR
ASL

ADD

153136

2126

BIC

MOV
MOV

004000
153124
000022
000014
000001
000002

2119 026710

#125252. (RO)

BIS
MOV

ASL
ROL
ASL
ROL

012777
010177
012777
012777
052777
052777

042777

MOV

ASL
ASL
ASL

010237
010137

SEQ 0088

#1400, a#SRO
#370, (RO)
ouT ,R1
R2
R1
R1
R1
R1

R1
R2
R1
R2

R2 ,NARROW
R1,$8DADR
R2.R1

::DO 2 ITERATIONS

“TEST IF KT=11 INSTALLED
*:BR IF NONE
TO A 1 BYTE LLOCATION IN EACH 4K EXTENDED
:LOAD INITIAL BANK VALUE
:LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
*LOAD BUFFER POINTER

*PRIME BAD TARGET LOC. IF EXT ADD FAILS
*ENABLE MAINT. MODE KT-11
*LOAD TARGET LOCATION DATA VALUE

;DISABLE MAINT. MODE KT-11

*GET BANK VALUE
;CLEAR EXT. ADD.
*MOVE LEFT

TEMPORARY

*MOVE LEFT
*MOVE LEFT
;MOVE LEFT

;SAVE EA BITS
;SAVE EA BITS

;SAVE EA BITS FOR TYPEOUT
;SAVE ADDRESS BITS FOR TYPEOUT
;MAKE COMPLETE ADDRESS

;NOW GET READY TO DO THE TRANSFER

153114
153116
153100
153102
153074

MOV
MOV
MOV
MOV
BIS
BIS

#CLRALL ,@SFR
;INIT THE NCV11
R1,a0FF
;LOAD COMBINED BUFFER ADDRESS
#RIT4L!BITT1,aCSR ;ENABLE THE NCV11
H#TSTDMA'TSTCON,aSFk
;ENABLE MAINT NCV11 MODE
#81T0,aCSR
CENABLE THE NCV11
#TESTZ,aSFR
;ENABLE "TEST Z'' PULSES

MOV
BIS
BIS
MOV

#371,$GDDAT
#BITi2,aSFR
#8110, a#SRO
(RO) ,$8DDAT

:LOAD EXPECTED DATA
*ENABLE 1 BYTE TRANSFER
*ENABLE KT=11
;GET ACTUAL DATA

CMP
BEQ
ERROR
TST
BEQ
BIT

$GDDAT,$BDDAT
28
35
$PASS
TST155
#SW11,aSWR

:COMPARE DATA
1:BR IF SAME
:DATA TRANSFER ERROR TO EXTENDED MEMORY
JTEST PASS COUNTER
“:BR IF FIRST PASS
;TEST IF INHIBIT INTER.

ADD
CMP
BHI

#200,0UT
$LSTAK, OUT
1%

BIC

177572

001202

#2,STIMES

ST
$KT11
BPL
TST155
:DO A BYTE MATRIX MODE TRANSFER
3
MEMORY BANK
MOV
#600,0UT
18:
MOV
OUT,a#KIPAR3
MOV
#8UF0 ,RO

006301
006301
006301

026612
026620
026624
026632
026640
026646
026654

T§T154: SCOPE
MOV

177572

2109
g‘l‘lO
2111
2112
2113
2114
(1)

ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

;"tt!tttttt!tt.'t.ttt.ltt.'tQ.QQt.....t....tt.tt.t.""".'..Qtt.

026470
026472

2084
2085
2086
2087
2088
2089
2090

13:10 PAGE 63

.':'t"'.‘.t.'.tttt'.tt.t"t'.tttttt"ttttttl.'tt.!..Q't't'tt't..Qt
s«TEST 154
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY

2083
3
(2)
(1)

31-AUG=79

BIC

2%:

BNE

#TESTZ,aSFR

#B1T0,a4SRO

157155

:DISABLE °'‘TEST 2''

*DISABLE KT=11

“:BR IF SET

*UPDATE BANK VALUE
“TEST IF DONE
;BR IF NOT

SES

CZNCCB NCVTT
DIAGNOSTIC
CINCCB.P11T
31-AUG=79 11:21

J*TEST 155

SEQ 0089

ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

000004
012737
005737
100130

Rt
v S W~

WW=r0

012737
013737
012700
012710
052737

d
e
d
d
d
b

LT
e e

NN NN

d ~~

21N
(3)
(3)

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 64
T155
ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY

027070
027072

027074
027102
027106
027114

001160

041742

172346

012777
010177
012777
052777
052777

#125252, (RO)

“PRESET THE TARGET LOCATION

ASL
ASL
ASL
ASL
ASL
ROL
ASL
ROL

#1400, 34#SR0

#1400, a#SRO
ouT ,R1
R2
R1
R1
R1
R1
R1
R2
R1
R2

*ENABLE MAINT. MODE KT=11

*DISABLE MAINT. MODE KT=11
:GET BANK VALUE
*CLEAR EXT. ADD TEMPORARY

;SAVE EXT. ADDRESS BITS
:SAVE EXT. ADDRESS BITS

sNOW GETMSSADY TO DO THE TRANSFER
MOV
MOV
MOV
MOV
BIS

152636
152630
152612
152614
152606

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

BIS

#81T12,aSFR

MOV
BIS

MOV
BIC

177572
001126

CMP
BEQ

2%:

#CLRALL ,@SFR
;INIT
R2,@0FF
*LOAD
#-1,aWCR
*LOAD
R1,3BAR
*LOAD
#TSTDMA! TSTCON, @SFR

BIS
BIC

MOV
MOV

152570
001124
177572

101253

MOV

BIC
MOV

041742
041742

*LOAD BAD TARGET LOC. IF EXT ADD FAILS

177572

151676

#52525, (RO)

BIS

152654

MOV

177572

006102
012777
010277

TST155: SCOPE
MOV
#2,STIMES
;:D0 2 ITERATIONS
TST
$KT11
sTEST IF KT=11 INSTALLED
BPL
TST156
“:BR IF NONE
WORD
MODE
TRANSFER
TO
A
1 WORD BUFFER IN EACH 4K EXTENDED MEMORY BANK
A1
;D0
MOV
#600,0UT
:LOAD INITIAL BANK VALUE <60000>
1%:
MOV
OUT,a#KIPAR3
:LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
MOV
#8UF0 RO
*LOAD BUFFER POINTER

ERROR
TST

BEQ
BIT
BNE

ADD
CMP
BHI

R1,$8DADR
R2 .NARROW

#3407 ,$GDDAT

THE NCV11
THE EXTENDED ADDRESS BITS
WORD COUNT
BUS ADDRESS
“ENABLE MAINT NCV11 MODE

CENABLE THE NCV11
;ENABLE ''TEST 2'' PULSES
*DISABLE "‘TEST Z'' PULSES

:SAVE TARGET ADDRESS
“SAVE EA BITS FOR ERROR TYPEOUT

*ENABLE 1 BYTE TRANSFER

:LOAD EXPECTED DATA

#BITO. a4SRO

*ENABLE KT=11

#8170, a#SRO

*DISABLE KT=11

(RO) , $BDDAT

$GDDAT,$BDDAT
2%

$PASS

TST156
#SW11,aSWR
TST156
#200,00T
$LSTBK,0UT
1%

*GET ACTUAL DATA
:COMPARE DATA
;:BR IF SAME

;LIST MODE DATA TRANSFER ERROR TO EXTENDED MEMORY
sTEST PASS COUNTER

;:BR IF FIRST PASS
JTEST INHIBIT INTER.
;:BR IF SET
JUPDATE BANK VALUE
sTEST IF DONE
:BR IF NOT

DIAGNOSTIC
CZNCCB NCVIT
31-AUG=79 11:21
CZNCCB.P1

SO2BBEIRRRAR2EI

D ad cd

D o

)

NN
NN NN NN

A’]

2178
(3)
(3)

i 3332323322232
22 222220
00
0
R RRRld Rl

'2rEsr 156
W

027262
027264

000004
012737

027272

023727

003140

012737
012700
012710
052737
005010
042737

172346

103476

000100

001160

177572

152334

041726
001124
177572

027456
027464
027472
027474

VERIFY BIT 15 MATRIX ADDER INPUT

ii23 2332222222222 2222222332222
2220
222 R 2 RRRR2RRR
Rl

TST1S6 SCOPE
MOV
;ADM OUTPUT
‘OFFSET
*TARGET

CMP
BLO
MOV
MOV
MOV
BIS
CLR
BIC

#100,$TIMES
=
12765
=
140000

;:D0 100 ITERATIONS

SLSTRK #3140
TST157
#2676,
K IPAR3
#BUF 0456, R0
#125252, (RO)
#1400, 3#SRO
(RO)
#1400, 34SR0O

TEST IF >52K IS AVAILABLE
;;BR IF NO MORE MEMORY

267657

:LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
;LOAD BUFFER POINTER
:LOAD BAD TARGET LOC. IF EXT ADD FAILS
;ENABLE MAINT. MODE KT-11

;LOAD TARGET LOCATION DATA VALUE
:DISABLE MAINT. MODE KT-11

:NOW GET READY TO DO THE TRANSFER
#CLRALL ,aSFR
MOV
sINIT THE NCV11
MOV
#140000
. aOF F
;LOAD COMBINED BUFFER ADDRESS
MOV
#2036, aCSR
;ENABLE THE NCV11
MOV
#TSTDMA! TSTCON,aSFR
;ENABLE MAINT NCV11 MODE
#81T0,aCSR
BIS
;ENABLE THE NCV11
#TESTZ,aSFR
BIS
;ENABLE "‘TEST Z'' PULSES
#TESTZ.aSFR
BIC
;DISABLE '‘TEST Z'' PULSES

012777
012777
012777
012777
052777
052777
042777

2194

31-AUG=79 13:10 PAGE 65
MACY11 30G(1063)
T156
VERIFY BIT 15 MATRIX ADDER INPUT

177572
001126

NOP
NOP

BIS

#BIT12,9SFR

;ENABLE 1 BYTE TRANSFER

MOV

#1 ,NARROW

BIS

#8170, a#SR0O

;SAVE EA BITS FOR ERROR TYPEOUT
;LOAD EXPECTED DATA

NOP
NOP
NOP

MOV

BIC

CMP
BEQ
ERROR

#400, SGDDAT
(RO) ,$8DDAT

#8170, a#SRO

$GDDAT, SBDDAT
TST157
20

;ENABLE KT-11
sSAVE ACTUAL DATA

;DISABLE KT=11
; COMPARE DATA
::BR IF SAME

;BIT 15 INPUT TO MATRIX MODE ADDER FAILED

SEQ 0090

CZNCCB NCV1T
DIAGNOSTIC
CZNCCB.P1T
31-AUG-79 11:21

VERIFY HIGH BYTE OPERATION OF THE '‘TEST Xx''

':tt‘t.tt'Q'.'t.'tfi'ttl..Q'fi.*fi.ttt...tt'..'tfit"l'tt."fi't.'.t..

027476
027500

000004
012737

012777
023727

000040

001160

—

2214
2215

J*TEST 157

(1)

N 7
30G(1063)
31-AUG-79 13:10 PAGE 66
T157
VERIFY HIGH BYTE OPERATION OF THE '‘TEST X'
A 2222232232223
022 R
i
iRt iR iRt RdRddd
)

88887 wrnnw S

2213
(3)
(3)
(2)

MACY11

T8§T157: SCOPE
STEST B

MOV

:OFFSET
;ADM OUTPUT
;TARGET

#40,8TIMES
=

=100000
=127657
=100257

;:D0 40 ITERATIONS

MOV

#CLRALL ,aSFR

MOV

08UFO*§0256.$BDADR

CMP
BLO
MOV
MOV
MOV
BIS
BIS
BIC
CLR
BIS
MOV

MOV

CMP
BEQ
ERROR

;CLEAR THE DEVICE
$LSTBK #1140
sTEST IF LEAST 20K
TST160
;:BR IF NOT
#100000, @0F F
:SET BIT 15 OF OFFSET
#TSTDMA!TSTCON'BIT4 ,aSFR
;SET TEST DMA, CONTROL AND TESTX
#2036,aCSR
;ENABLE THE NCV11
#IT0,aCSR
;ENABLE THE NCV11
#TESTZ,aSFR
;ENABLE ‘'‘TEST Z'' PULSES
#TESTZ,aSFR
;:DISABLE ‘‘TEST Z'' PULSES
a#BUF 0+20256
;CLEAR THE TARGET LOC.
#BIT12,3SFR
;ALLOW 1 DMA TRANSFER

;LOAD EXPECTED ADDRESSES VALUE

#400,8GDDAT

;LOAD EXPECTED VALUE READ

$GDDAT , $BDDAT
TST160
34

; COMPARE
;;BR IF SAME
;MATRIX ADDER INPUT OF ADM15 AND TESTX L

a$8DADR,$8BDDAT

;READ ACTUAL DATA

;FAILED TO BE INHIBITED

SEQ 0091

CZNCCB NCV1TY
CZNCCB.P1T

DIAGNOSTIC

21
31-AUG=79 11:

2236
(3)
(3)
(2)

MACY11 30G(1063)
T160

B 8
31-AUG=79 13:10 PAGE 67
VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

AR AR AR R AR AR AR A AR AR

;*TEST 160

TR R

AR AR

R AR AR AR

SFQ 0092
AR

VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER

';.t'.t..QQt.'tQ.tt.'tfi.t'..t't'fit."fifiQ'tl'..t't.t'...."'ttQ'Qt

005140

;TARGET

$LSTBK, #5140
TST161

#4635,
4K IPAR3
#BUF0+26,R0
#125252, (RQ)

172346

2243

2244
2245
2246

177572

042737
027712
027720
027726
027734
027742
027750

!100.$TlgES
—\n

;ADM OUTPUT
JOFFSET

OW
oW
on
o

SCOPE

MOV

2237
2238
2239
2240
2241
2242

001160

000100

(1)

TST160:

#1400,a#SRO
(RO)
#1400,a#SR0

177572

;:D0 100 ITERATIONS

;TEST IF ENOUGH MEMORY >84K
;:BR IF NOT
;LOAD KT-PAR REG #3 <BUFFER IS AT LOC 60000>
;LOAD BUFFER POINTER

;LOAD BAD TARGET LOC.

;ENABLE MAINT. MODE KT-11
sPRESET THE

TARGET LOCATION

;DISABLE MAINT. MODE KT-11

s NOwW GETHSSADY TO DO THE TRANSFER
#CLRALL ,@SFR
JINIT THE NCV11
#10001,a0FF
MOV
:LOAD THE EXTENDED ADDRESS BITS
#TSTDMA!TSTCON,aSFR
MOV
;ENABLE MAINT NCV11 MODE

012777
012777
012777
012777
052777
052777
042777
000240

MOV
BIS
BIS
BIC

#4036,3CSR

;LOAD MATRIX MODE AND ZB ENABLE

#8I1T0,aCSR

H#TESTZ,aSFR
#TESTZ,aSFR

sENABLE THE NCV11
;ENABLE '‘TEST 2'' PULSES
;DISABLE ‘‘TEST Z'' PULSES

151760

#BIT12,aSFR

JENABLE 1 BYTE TRANSFER

041726

#2 ,NARROW
#4600, $GDDAT

:SAVE EA BITS FOR ERROR TYPEOUT
;LOAD EXPECTED DATA

001124
177572
177572

001126

#8170, a#SRO
(RO) ,$8DDAT

#8170, a#SRO

$BDDAT
$GDDAT, SBDDAT
TST161

JENABLE KT-11
;SAVE ACTUAL DATA
;DISABLE KT-11
JMASK OFF LOW BYTE
;COMPARE DATA
;:BR IF SAME

;BIT 16 INPUT TO MATRIX MODE ADDER FAILED

CINCCB NCVT
DIAGNOSTIC
CZNC(B.P11
31-AUG=-79 11:21

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

2274
2275
2276
2277

MACY11

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

T161

31-AUG=79 13:10 PAGE 68
DETERMINE IF DIFLIN IS TO BE RUN (F)

AR AR AR AR AR AR AR

'TEST 161

AR AR AR AR AR AR AR

SEQ 0093

AR AR AR AR AR A AR AR AR

DETERMINE IF DIFLIN IS TO BE RUN (F)

2232223322222
2R
iRttt
it
i iR
R
RR Rl )

030056
030060

030066
030072
030074

000004

012737
005737
001402
000137

000001
050022

001160

043546

TST161:

SCOPE
MOV

#1,8TIMES

;:D0 1

BEQ

$EOP

;:BR IF NOT TO BE RUN

TST

.SBTTL

1
(2)
(M

(1
(1
(N
(1)
(1

30G(1063)

RUNDIF

JMP
DIFLIN
END OF PASS ROUTINE

ITERATION

:TEST IF

DIFLIN IS TO BE RUN

;JUMP AND RUN DIFLIN

CRRARA AR AR AR AR AR AR AR AR A AR AR AR AR AR AR A AR AR

AR A AR

A AR

*INCREHENT THE PASS NUMBER ($PASS)
*INDICATE END=OF <PROGRAM AFTER 1 PASSES THRU THE PROGRAM

:#TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)

;*IF THERES A MONITOR GO TO IT

s*IF THERE ISN'T JUMP TO LOGIC
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

$EOP:

001202

030205
001202

SCOPE
CLR
CLR

INC
BIC

DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: LWORD
SEOPCT
TYPE
MOV
TYPDS
TYPE

030202
000042

l100000 $PASS

;;ZERO THE TEST NUMBER
;. ZERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER
;.DON'T ALLOW A NEG. NUMBER

(PC)+,a(PC)+

s YES
,.RESTORE COUNTER

, SENDMG

;:TYPE "END PASS #''

. SENULL

;:G0 TYPE--DECIMAL ASCII WITH SIGN
::TYPE A NULL CHARACTER

$TSTNM
STIMES
$PAS
(PC)+
1
$DOAGN

$PASS ,~(SP)

$GET42: MOV
BEQ

a#é42 RO

$ENDAD: JSR
NOP

PC. (RO)

RESET

$DOAGN

NOP

$DOAGN:

377

042412
051501

000
042116
020123

$RTNAD:
:
$ENULL

SENDMG:

;:SAVE SPASS

;;GET MONITOR ADDRESS

;sBRANCH IF NO MONITOR

;;CLEAR THE WORLD

;:GO TO MONITOR
; +SAVE ROOM
J:ACTNM

a(PC)+
LOGIC

. JRETURN

LASCIZ <1§><12>/s~o PASS” #/

.BYTE

FOR TYPEOUT

::FOR

NOP

JMP
.WORD

;:LOOP?

-1,-

JNULL CHARACTER STRING

CZNCCB NCV11 _ DIAGNOSTIC
CZNCCB.P1
31-AUG=-79 11:21

MACY11 30G(1063)
31-AUG=79 13:10
ERROR ASCII MESSAGES

gggg
2281

8
PAGE 69

.SBTTL

ERROR ASCII MESSAGES

030222
030230
030236
030244
030252
030260
030262
030270
030276
304
030312
030320
030326
030334
030342
030350
030356
364
030372

034115
041516
052502
051104
044524
000124
034115
047503
026504
051525
051511
051105
034115
050123
020114
044524
043505
020122
000122

031060
030526
020123
051505
042515

004466
020061
042101
020123
052517

EM1:

LASCIZ

/M8026

NCV11 BUS ADDRESS TIMEOUT/

031060
046515
052123
051040
042524
047522
031060
041505
052506
7117
051511
051105

004466
047101
052101
043505
020122
122
004466
040511
041516
051040
042524
047522

EM2:

LASCIZ

/M8026

C(OMMAND-STATUS REGISTER ERROR/

EM3:

LASCIZ

/M8026

SPECIAL FUNCTION REGISTER ERROR/

034115

031060

004466

EM4:

LASCIZ

/M8026

WORD COUNT REGISTER ERROR/

030434

034115

031060

004466

EMS:

LASCIZ

/M8026

BUS ADDRESS REGISTER ERROR/

030464

051105

051122

2286

030475
030502
030510
030516

115
047411
020124
052123

042440
000
030070
043106
042522
051105

EM6:

LASCIZ

/M8026

OFFSET REGISTER ERROR/

2287

030531
030536
030544
030552
030560
030566

115
042011
042522
051105
041505
042888

030070
040525
044507
051440
0445246
051122

033062
042523
044507
042440
000
033062
020114
052123
046105
047117
051117

EM7:

.ASCIZ

/M8026

DUAL REGISTER SELECTION ERROR/

2288

030575
030602
030610
030616
030624
030632

046455
046011
020066
020132

115

033062
033063
030440
020124
047125
047522

EM10:

LASCIZ

/M8026-MB036

LOW 16 BIT Z COUNT ERROR/

020124

030070
030070
053517
044502
047503
051105

030642
030650
030656
030664

034115
034115
044510
020066

031060
031460
044107
044502

026466
004466
030440
020124

EM11:

_ASCIZ

/MB026-M8036

HIGH 16 BIT Z COUNT ERROR/

2282

2283

2284

2285

2289

030374

SEQ 0094

047503
051105

047125
047522

031060
047503
052123
042440
000
030070
041440
044440
052522
051122

004466
047125
052101
051122

EM12:

LASCIZ

/M8026

Z COUNT

STATUS ERROR/

033062
052517
052116
052120
051117

EM13:

LASCIZ

/M8026

INTERRUPT ERROR/

030070
054517
020113
051525

033063
052123
052123
042440

EM14:

LASCIZ

/M8036

JOYSTICK STATUS ERROR/

033063
052123
040504
051122

EM15:

LASCIZ

/M8036

JOYSTICK DATA ERROR/

033063
020101
046505
051105

EM16:

LASCIZ

/M8036

DATA INCREMENT ERROR/

004466
042040
042515
051122

EM17:

LASCIZ

/M8036

DATA DECREMENT ERROR/

033062

EM20:

LASCIZ

/M8026-M8036

EM21:

LASCIZ

/M8026

LIST MODE ADDRESS MAKER DATA ERROR/

EM22:

LASCIZ

/M8026

LIST MODE

2292

SO
adarn
O==NNO
NN = ===\ a2\ § OWVION =i

2291

020132

2293

045

2297

b cu

-t
»

ol =

2296

wnd cclh

2295

FSRARRESN

2294

— e e e ) ek =B ) O b

2290

8
PAGE 69-1

MACY11 30G(1063)
31-AUG=79 13:10
ERROR ASCII MESSAGES

31-AUG=-79 11:21

030672
030700
030706
030710
030716
030724
030732
030740
030743
030750

DIAGNOSTIC

-t e N NI =

CZNCCB NCV1T
CZNCCB.PI

000

COUNT

MATRIX MODE ADDRESS MAKER DATA fRROR/

052101
047515
042104
046440
042040
051105
031060

2298

020123
051505

TRANSFER BUS ADDRESS ERROR/

SEQ 0095

MACY11 30G(1063)
31-AUG=79 13:10
ERROR ASCII MESSAGES

020123
000122

051105

047522

031060
052123

004466
046440
051124
051105
020104

2301

2300

PAGE 692

SEQ 0096

EM23:

LASCIZ

/M8026

LIST MODE THANSFER WORD COUNT ERROR/

EM24:

LASCIZ

/M8026

LIST MODE

EM?2S:

LASCIZ

/M8026

TIMEOUT STATUS ERROR/

TRANSFER OFFSET ERROR/

Né = WWON = NN—=W

—

PN —=NO
WWNWONWVINW wn

31-AUG=79 11:21

2299

031352
031360
031362
031370
031376
031404
031412
031420

DIAGNOSTIC

RE FRRVICRRAR N

CZNCCB NCVTIT
CZNCCB.P1T

052101
051122
2302

033062
047505
052116
052120
051117

EM26:

LASCIZ

/M8026

TIMEOUT

2303

033062
021040
021124
052042
042040
051105

EM27:

LASCIZ

/M8026

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

2304

004466
044440
042515
052101
047522

EM30:

LASCIZ

/M8C26

CELL

004466
047440
047514
052101
051122

EM31:

LASCIZ

/M8026

CELL OVERFLOW STATUS ERROR/

033062

EM32:

LASCIZ

/M8026

CELL OVERFLOW INTERRUPT ERROR/

EM33:

LASCIZ

/M8026

MATRIX MODE

051105
031060
046114

2306

2307
032022

8=38

POt
OoWnINN=Wn~N

2305

043122
052123
042440
000
030070
046105
051105
044440
052522
051122
030070
052101
047515

INTERRUPT

ERROR/

INCREMENT DATA ERROR/

051117
033062
044522
042504

ADDRESS MUX ERROR/

CZNC(B NCVTT
CZNCCB.P1

032030

DIAGNOSTIC

31-AUG=79 11:21

MACY1!

/M8026

"TESTX'' FUNCTION ERROR/

EM3S:

LASCIZ

/M8026

DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY/

EM36:

LASCIZ

/M8026

LIST MODE

TRANSFER STATUS ERROR/

033062
020124
052040
042506
040524
051117

EM37:

JASCIZ

/M8026

LIST MODE

TRANSFER DATA ERROR/

046525
034115
033515
042442
020042
044524
040515
051122

042520
031060
032471
042526
051117

EM4O:

LASCIZ

/ JUMPER-M8026-M795?2

034467

031065
045503
040440
051523
047505

:
EM4T

LASCIZ

/M7952

CLOCK BUS ADDRESS

033461
051117

EM42:

LASCIZ

/M8217

INCORRECT

DH1:

LASCIZ

/ERRPC

ADDR/

2310

23N

051122

—_——a

nonrno

2314

032467
032474

SEQ 0097

LASCIZ

047105
042515
000
033062
020124
052040
042506
052101
051122

2313

PAGE 69-3

EM34:

2309

2312

042104
046440
051122
030070

2308

30G(1063)
31-AUG=79 13:10
ERROR ASCII MESSAGES

"EVENT'"
OR "TIME'" MARK ERROR/

051117
TIMEOUT/

INTERRUPT LEVEL/

CINCCB NCV1T
P11
CINCCB.PI

2318

2319

032502
032510
032516
032524
032526
032534
032542
032550
032556
032561
032566
032574

050122
051104
004504

2324
2325
2326

2327
2328

2329
2330

DH2:

LASCIZ

/ERRPC

ADDR

GOOD

BAD/

004503
043411
040502
040504

DH3:

LASCIZ

/ERRPC

ADDR

GOOD

BAD

BADADR/

DH4:

LASCIZ

/ERRPC

ADDR

GOO0D

BAD

EA ADR

OUTRNG:

.BYTE
LASCII

15,12,7

/NO "7"' PULSES OR /

LASCII

/INPUT

032724
032752
032740
032744
032752
032760
032766
032774
032776
033004

VOLTAGE

OUT

SEQ 0098

RANGE

BADADR/

ON CHANNEL #/

60,15,12,7.0

OUTCHN:

(o o Yo Mo Yo e

2323

004503
043411
040502

032654
032662
032670
032676
032704
032712
032716
032721

§§ §N—'N-‘N—‘

2322

8
PAGE 69-4

30G(1063)
31-AUG=79 13:10
ERROR ASCII MESSAGES

—_ON =

2320
2321

MACYT1

RS 88
—

2317

DIAGNOSTIC
31-AUG-79 11:21

.EVEN

000000
001124

PT1:
DT2:

001124

DTS:

001124
001122

DT4:

.WORD

$ERRPC(, $BASE , $GDDAT , $BDDAT ,NARROW, $8DADR, 0

000000

DTS:
DFO:

.WORD
.WORD

8ERRPC,S(DU1,0

.WORD

$ERRP(, $BASE , 0

$ERRP(, $BASE , $GDDAT , $BDDAT,0
$ERRPC(, $BASE , $GDDAT ,$8DDAT, $BDADR, 0

CZNCCB NCVTT
CZNCCB.P1T

DIAGNOSTI C
31-AUG=79 1 13 21

MACY!1

2335
o

s
NN

N -~
N
NN

8
PAGE 70

SEQ 0099

TTY INPUT ROUTINE

LSB

iiiiiiii iRt
2R
2R Rl Rl

s
S
N
N
N

001140

; *WHEN OPERATING IN TTY FLAG MODE.
$CKSWR: CMP
#SWREG, SWR
;:1S THE SOFT-SWR SELECTED?

000176

146122

D D D

NN PN

022737

022726

000007

123727

001134

013746

033533
033540
000176

15%
a%$TKS
15%

BIC

#*C177,(SP)

CMP

BNE

000001

a$TKB,=(SP)

#7.(SP)+

CMPB

15%
$SAUTOB, #1

TYPE

.SCNTLG

BEQ

BNE
TSTB
BPL

MOVB

146116
177600

D D e

NN PN

;*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
;s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP (ALL

N PNNIN

15%

2 sBRANCH IF NO
;;CHAR THERE?
;21F NO, DON'T WAIT AROUND
;:SAVE THE CHAR
::STRIP=-0OFF THE ASCII
;IS IT A CONTROL G?
;:NO, RETURN TO USER

;ARE WE RUNNING IN AUTO-MODE?
; ;BRANCH IF YES

D D

NN PN PN

13:10

AR AR AR R AR AR AA AR AN ARAARARAAAAAARARAARARRAARRARARAA
AR AR AR TR
RN

$GTSWR:

D AN

31-AUG=79

INPUT ROUTINE

"ENABL

19%:

033551

d e

N PN PN PN

TTY

LSBTTL

(1)

7%:

—

146040

TYPE
MOV

TYPOC
TYPE
CLR

. SMSWR
SWREG,=(SP)
. SMNEW
=(SP)

;.ECHO THE CONTROL=G (*G)
;:TYPE CURRENT CONTENTS
;:SAVE SWREG FOR TYPEOUT

;:G0 TYPE--OCTAL ASCIICALL DIGITS)
; ;PROMPT FOR NEW SWR
;:CLEAR COUNTER

CLR
T1STR

-(SP)
a$TKS

;. THE NEW SWR
;;CHAR THERE?
;2
1F NOT TRY AGAIN

MOVB

a$TKB,-(SP)

;:PICK UP CHAR

BPL

117746
042716

146034
177600

033116
033122
033124
033130
033134

021627
001005

000025

9% :

033526
000006

20%:

033136
033142
033144
033150
033152
033160

021627
001022
005766
001403
016677
062706

000015

108 :

033214

001 003
012777
000002
004737
021627

#AC177,(SP)

;;MAKE IT 7-BIT ASCII

N
N
N

(SP) 425

;:IS IT A CONTROL=-U?

108

;JBRANCH IF NOT

ADD
BR

#6,SP
19%

;:IGNORE PREVIOUS INPUT
;:LET'S TRY IT AGAIN

TYPE

JSCNTLU

:2YES,

ECHO CONTROL=-U (*U)

062706

CMP

BNE

N
N
N
N
N
N
N
N

BIC

033106
033112

d D e

N T

e e

D e e e

PN P~~~

D d e

D d D e

NN~~~

D e

NN PN PN PN

d D D e e

30G(1063)

104401
123727

000004
000002
000006
001171
001135

000001

000100

145736

034606
000060

145760

1%
14%

5%:

16%:

CMP

(SP) .15

;1S

ADD
TYPE

#6,SP
LSCRLF

;sCLEAR UP STACK
;ECHO <CR> AND <LF>

BNE
MOV
RTI

15%
#100,38TKS

BNE
TST
BEQ
MOV

(MPB

JSK

CMP

16%
4L (SP)
11%
2(SP) ,aSWR

$INTAG, 41

PC,$TYPEC

(SP) , 460

IT A <CR>?

;;BRANCH IF NO
;:YES, IS IT THE FIRST CHAR?
;sBRANCH IF YES
;:SAVE NEW SWR

:;RE=-ENABLE TTY KBD INTERRUPTS?
;;BRANCH [F NOT
:;RE=ENABLE TTY KBD INTERRUPTS
; ;RETURN
;sECHO (CHAR

::CHAR < 0?

CZNCCB

NCV1T _ DIAGNOST I g

CZNCCB.P1T

31-AUG=79 1

(1)
(1)
(1)

002420
021627
003015

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

(1)
(1)
(1)
)

033220
033222
033226

033230
033234
033240
033242
033244
033246
033250
033254

042726
005766
001403
006316
006316
006316
005266
056616

MACY11 30G(1063)
31-AUG-79
TTY INPUT ROUTINE

000067

000002
177776

17%:

033260 000707
033262 104401 001170
033266

000720

(
)
(2)

033270

033272
033300
033304

033306

033314
033322

(1)

033340

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

033350
033354
033356
033360
033366
033370
033376
033400
033406

:STRIP=-OFF ASCII
;:1S THIS THE FIRST CHAR
*:BRANCH IF YES
“INO, SHIFT PRESENT
*:
"CHAR OVER TO MAKE
*:
ROOM FOR NEW ONE.
::KEEP COUNT OF CHAR
S:SET IN NEW CHAR

208

**SIMULATE CONTROL-U

LSB

7%
L $QUES

:;CHAR > 7?
::BRANCH IF YES

S:GET THE NEXT ONE
LITYPE 2<CR><LF>

INPUT A SINGLE

RDCHR

033336

033344

011646

016666
105777
100375

000004
145640

000002

042766
026627

145634

177600
000004

000004

117766

001013
105777

100375

145602

022627
001366
000750
026627
002407
026627
003003
042766
000002

000021

042716

1$:

2%:

177600
000140

000004

000175

000040

000004

3$:

4$:

::PUSH DOWN THE PC

2$TKB,4 (SP)

;READ THE TTY

BIC
CMP

#AC<177>,4(SP)
4(SP) ,#2%

+:GET RID OF JUNK IF ANY
::IS IT A CONTROL-S?

*:BRANCH IF NO
S:WAIT FOR A CHARACTER

MOVB

a$TKB,-(SP)

::GET CHARACTER

CMP
BNE
BR
CMP
BLT
CMP
BGT
BIC
RTI

(SP)+, 421
2$
1%
4(SP) , 4140
43
4(SP) 4175
4$
#40,4 (SP)

BPL

#°C177.(SP)

RN R AR AR AR A

5};

;:SAVE THE PS
“:WAIT FOR
;:A CHARACTER

3$
@$TKS

BIC

000004

(SP) ,=(SP)

4(SP) ,2(SP)
a$TKS
1%

BNE
TSTB

TTY

*:CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

MOV
TSTB
BPL

MOVB

000004
000023

145606

117746

$RDCHR: MOV

CHARACTER FROM THE

;2INPUT A SINGLE CHARACTER FROM THE TTY

RETURN HERE

033330
033332

(1)

#60, (SP) +
2(SP)
17%
(SP)
(SP)
(SP)
2(SP)
-2(SP), (SP)

.DSABL

T
%

(1)
(1)

(1)

BIC
TST
BEQ
ASL
ASL
ASL
INC
BIS

B8R
TYPE

(

(1)
(1)

::BRANCH IF YES

(SP) 467
18

;'EHIS ROUTINE WILL

(1)
(};

(1)

SEQ 0100

18%

188 :

;=CALL:

ab)

(1)
(1)
(1)

8
PAGE 70-1

.'.'Qt'ttttt'tttQt.ttfitttttttttQQtQttttttttttttttttt'.tt.'iQtttt".

ab)
(1)

BLT

CMP
BGT

000060
000002

13:10

*:LOOP UNTIL ITS THERE
SIMAKE IT 7-BIT ASCII

2:IS IT A CONTROL=-Q?
“:1F NOT DISCARD IT
*:YES, RESUME
2:1S IT UPPER CASE?
*:BRANCH IF YES
231S IT A SPECIAL CHAR?
*:BRANCH IF YES
“:MAKE IT UPPER CASE
1360 BACK TO USER

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

RA AR AR RN N

(1)

;-ngs ROUTINE WILL INPUT A STRING FROM THE TTY
s«(CALL:
i
RDL IN
::INPUT A STRING FROM THE

g;;

(1)
(1)

(1)

033410
033412

033416

010346
012703

022703

033516

033526

RETURN HERE

$RDLIN: MOV
1$:
MOV

2%:

CMP

R3,-(SP)
#STTYIN.R3

#STTYIN+8.,R3

*:ADDRESS OF

FIRST

TTY

CHARACTER WILL BE

ON THE

*:TERMINATOR WILL BE A BYTE OF ALL 0°S
::SAVE R3
*:GET ADDRESS

::BUFFER FULL?

STACK

CZNCCB NCV11 _ DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21
(1)
(1)

033422
033424

(1)

03330

(1)

03336

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

033444
033450
033454
033460
033462
033466
033472
033474
033476

(1)

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

03326

101405
104410

112613

122713 000177

108 :

104401

001170

4$:

111337
104401
122723
001356
105063
104401
012603
011646
016666

033574
033514
000015

3%:

033434

001003

033442

000763

033504
033512
033514
033515
033516
033526
033533
033540
032546
033551
033556

MACY11 30G(1063)
31-AUG=79
TTY INPUT ROUTINE

012766
000002
000
000
000010
052536
136
005015
020075
040
036440

177777
001172
000004
033516

000002
000004

PAGE 70-2

CMPB

#177,(R3)

TYPE

$QUES

SITYPE A *2°

(R3),9%
,9%
#15,(R3)+
2
=1(R3)
SLF
(SP)+,R3
(SP) ,=(SP)
4(SP) ,2(SP)

*:ECHO THE CHARACTER

MOVB

BNE

MOVB
TYPE
CMPB
BNE
CLRB
TYPE
MOV
MOV
MOV

005015
006507
053523

000
000012
020122

047040

053505

SMNEW:

000040

BLOS
RDCHR

MOV
RTI
9% :
BYTE
BYTE
$TTYIN: .BLKB
SCNTLU: .ASCIZ
S$CNTLG: .ASCIZ
$MSWR:
.ASCIZ

000

13:10

.ASCIZ

(SP)+,(R3)

#STTYIN,&(SP)
0
0
8.
/*U/<15><12>
/%G/<15><12>
<15><12>/SWR =

NEW =

::BR IF YES
*:GO READ ONE CHARACTER FROM THE

*:GET CHARACTER

SEQ 0101
TTY

SIS IT A RUBOUT
::SKIP IF NOT

*:CLEAR THE BUFFER AND LOOP
::CHECK FOR RETURN
2:LOOP IF NOT RETURN
*:CLEAR RETURN (THE 15)
“:TYPE A LINE FEED
*:RESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF THE
:
FIRST ASCII CHARACTER ON IT
: :RETURN
::STORAGE FOR ASCII CHAR. TO TYPE
s TERMINATOR
*:RESERVE 8 BYTES FOR TTY INPUT
::CONTROL 'V
::CONTROL 'G'’

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

2?;;

.SBTTL

(2)

1)
1)
(1
1)
1)

033562
033564
033572
033574
033576

011646
016666
010046
010146
010246

(1)

033602

012600

(1)

033610

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

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

2322323333333 333333232332333233333332333323323323333233232323232323232332232323232323;}

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

READ AN OCTAL NUMBER FROM THE TTY

*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY.
:'CALL:
I%
RDOCT
;cREAD AN OCTAL NUMBER
I*
RETURN HERE
;.LOW ORDER BITS ARE ON TOP OF THE STACK

g};

(1)

MACY11 30G(1063)
31-AUG-79 13:10 PAGE 71
READ AN OCTAL NUMBER FROM THE TTY

033600
033604
033606

033612
033614
033616
033620
033622
033624
033626
033630
033634
033636
033640

033642
033646
033652
033654
033656

033660
033662

000004

104411

112046

010166
010237
012602
012601
012600

000002
000000

$RDOCT: MOV
MOV
MOV
MOV
MOV
1%:

005001
005002

001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
005726

000002

2%:

t
177770

000012
033662

;:HIGH ORDER BITS ARE IN $HIOCT

3%:

$HIOCT:

RDLIN

MOV

(SP) ,=-(SP)
4(SP) ,2(SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)
(SP)+,R0

;;PROVIDE SPACE FOR THE
;s INPUT NUMBER
:sPUSH RO ON STACK
;2PUSH R1 ON STACK
;;PUSH R2 ON STACK
;sREAD AN ASCIZ LINE

:2GET ADDRESS OF 1ST CHARACTER

(LR
CLR

R1
R2

. sCLEAR DATA WORD

BEQ
ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST

3%
R1
R2
R
R2
R1
R2
#~C7,(SP)
(SP)+,R1
2%
(SP) +

;cIF ZERO GET OuT
i308

MOVB

MOV
MOV
MOV
MOV
MOV

RTI
.WORD

(RO)+,-(SP)

R1,12(SP)
R2.$HIOCT
(SP)+ ,R2
(SP)+ ,R1
(SP)+,RO
O

;;PICKUP THIS CHARACTER

s
;.*8
;STRIP THE ASCII JUNK
..ADD IN THIS DIGIT
LOOP
..CLEAN TERMINATOR FROM STACK

:2SAVE THE RESULT

;;POP STACK INTO RZ2
;2POP STACK INTO R1
:;POP STACK INTO RO

; sRETURN
::HIGH ORDER BITS GO HERE

SEQ 0102

CINCCB

NCVI1

CIZNCCB.P11

DIAGNOSTIC

31-AUG=79 11:21

MACY11 30G(1063)

31-AUG=79

13:10

M 8

PAGE 72

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

2%??

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

(2)

:."t'..tt"'t'tt'tQ'QQQ'QQQ.Q.QQQ.Q.Q'QQQ...Q'.Q.Q.tt'tttt".tt..

1M
(1)

“%THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
*«SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

(1)
1)

“«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

1)
f};

;
Tw

f};

(1)

(3)
(3)
(3)
(3)
(3)
(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)

(1)
(1)
(1)

(1)
(1)

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

:'?SftACED WITH SPACES.

033664

033664
033666
033670
03372
033674
033676
033702
033706
033710
033712

010046
010146
010246
010346
010546
012746
016605

033720
033722

100004
005405
112766
005
012703

033732
03373&

005002
016001

033742
033744
033746
033750
033752
033754
033756
033760
033762
033764
033766
033774
034000

002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702

034010
034014
034016

020027
002746
003002

034026
034026
034030
034036
034040
034062
034044

105726
100003
116663
105013
012605
012603
012602

033726

033740

034006
034006

034020
034022

112723

160105

110223
005720

$TYPDS:

020200
000020
000055

000001

034100

000040

1%:
28:

034070

3$:
4$:

5%:

000001
000060
000040

177777

6$:
7%:

000010

NUM, = (SP)

::PUT THE BINARY NUMBER ON THE STACK
©:GO TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,=(SP)
RS.=(SP)
#20200,-(SP)
2o<sp> RS

;:PUSH RO ON STACK
*:PUSH R1 ON STACK
“:PUSH R2 ON STACK
::PUSH R3 ON STACK
*:PUSH RS ON STACK
“SET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER

CLR
MOV

RS
#'-,1(SP)
RO
#$DBLK ,R3

+:2ERO THE CONSTANTS INDEX
*:SETUP THE OUTPUT POINTER

CLR
MOV

R2
$DTBL (RO) ,R1

BPL
NEG
MOVB

MOVB

SUB

BLT
INC
BR
ADD
ST
BNE
TSTB
BMI
ASLB
BCC
MOVB
BIS
BIS

MOVB
ST
CMP
BLT
BGT

010502
000764

8$:
177777

MOV
TYPDS

177776

98 :

MOV
B8R

TSTB
BPL
MOVB
CLRB
MOV
MOV
MOV

#' ,(R)+

R1.R

4$
R2
3$
R1.RS
R2
5%
(SP)
7%
(SP)
X
1(SP),=1(R3)
#'0,R2
#' R2

R2,(R3)+
(RO) +
RO.#10
2$
8$

RS,.R2
6$

(SP)+
9
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP) +.R2

“:BR IF INPUT IS POS.
*:MAKE THE BINARY NUMBER POS.
SIMAKE THE ASCII NUMBER NEG.

“:SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
*:GET THE CONSTANT

: ;FORM THIS BCD DIGIT

*BR IF DONE
*:INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CONSTANT
*:CHECK IF BCD DIGIT=0
S:FALL THROUGH IF 0
“:STILL DOING LEADING 0°'S?
*:BR IF YES
$:MSD?
*BR IF NO
S:YES=-SET THE SIGN
*:MAKE THE BCD DIGIT ASCII
“:MAKE IT A SPACE IF NOT ALREADY A DIGIT

*:PUT THIS CHARACTER IN THE OUTPUT BUFFER
+:JUST INCREMENTING
*:CHECK THE TABLE INDEX
::GO DO THE NEXT DIGIT
2360 TO EXIT

2:GET THE LSD
::GO CHANGE TO ASCII

:;WAS THE LSD THE FIRST NON-ZERO?
:BR IF NO
::YES==SET THE SIGN FOR TYPING
:SET THE TERMINATOR
*POP STACK INTO RS
*:POP STACK INTO R3
1:POP STACK INTO R2

SEQ 0103

CINCCB NCVIT
DXAWSTIC
CINCCB.P11
31-AUG=79 11:21

N 8
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 72-1
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

(3) 034046 012601
(3) 034050 012600
(1) 034052 104401 034100
(1) 034056 016666 000002 000004

MOV
MOV
TYPE
MOV

(1)

034066

000002

RTI

(1)

034100

000004

(1)

(1)
(1)
(1)
(1)
2%??

034064

034070
034072
034074
034076

012616

023420
001750
000144
000012

MOV

$DTBL:

$DBLK:

.SBTTL

10000.
1000.
100.
10.
.BLKW

(SP)+,R1
(SP)+.R0
$DBLK
2(SP),4(SP)
(SP)+,(SP)

SEQ 0104

::POP STACK INTO R1
::POP STACK INTO RO
1:NOW TYPE THE NUMBER
*ADJUST THE STACK
;:RETURN TO USER

SCOPE HANDLER ROUTINE

(2)

;"tttttttfit.tt.fi.t.tt..t'ttt.lt.tfittttt't.tt..t't'ttttt't'.tti.tt

1)
1

:*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
*«AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>)
“«AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

(1)

%SW09=1

;*CALL

(1)
(1)
(1)

*«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LaSW14=1
LOOP ON TEST
T*SW11=1
INHIBIT ITERATIONS

(1)

034110

(2)

034112

(1)

(1)
(1)
1M

LOOP ON ERROR

- *SW08=1

034110

104407

004737

$SCOPE:
045676

034116 032777 040000
034124 001114

145014

1$:

LOOP ON TEST IN SWR<7:0>

SCOPE
CKSWR

JSR

BIT
BNE

:MARBASTART OF

PC.CTRLCG

::1F RUNNING ON THE 'XOR'' TESTER CHANGE
::SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
*:TIME OUT ON YOR?

034130 013746 000004
034134 012737 034154 000004
034142 005737 177060

MOV
MOV
TST

@NERRVEC,-(SP)
#58 ,Q¥ERRVEC
an177060

(1)

034152 000463

ssvu\o

MOV
BR

(SP)+,@WERRVEC
78

BEQ

$OVER

BHI
BIT

3$
#BIT09,aSWR

MOV
BR

SLPERR,SLPADR
$OVER

012637

034154

022626

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

034164
034164
034172
034174

032777
001404
127737

000400

144746

144740

001102

(1)
(1)
(1)

034204
034210
034212

105737
001421
123737

001103

(1)

(1)
(1)

(1)

(1)
(1)
(1)

(1)
(1)

(1)

000004

5%:

034156 012637 000004
034162 000423

034202

001465

001115

034220 101015
034222 032777 001000
034230

001404

034242

105037

001103

(SP)+ @¥ERRVEC
(SP)+, (SP)+

S:THIS INSTRUCTION TO A 'NOP'* (NOP=240)

:RESTORE THE ERROR VECTOR

:GO TO THE NEXT TEST

*:CLEAR THE STACK AFTER A TIME OUT

::RESTORE THE ERROR VECTOR
LOOP ON THE PRESENT TEST

6$: ; MARMHEND OF CODE FOR THE XOR TESTERAAAAN
BIT
#B1T08,aSWR
:LOOP ON SPEC. TEST?
BEQ
2$
*BR IF NO
CMPB
aSWR,STSTNM
..o~ THE RIGHT TEST?

28:
001103

144710

034232 013737 001110 001106
034240 000446
034246 005037 001160

MoV

:TEST FOR CTRL C OR G

CODE FOR THE XOR TESTERMMMAN

(1)
(1)
(1)

034146

FOR CHANGE IN SOF T-SWR

::LOOP ON PRESENT TEST?
*YES IF SW14=1

034126 000416

(1)

;:TEST

#BIT14,3SWR
$OVER

(1)

$XTSTR: BR

;:SCOiE=10T

7%:
4$:

TSTB
BEQ
CMPB
BEQ

CLRB

CLR

*BR IF YES

SWR<7:0>

S$ERFLG
3$
SERMAX,SERFLG

*:HAS AN ERROR OCCURRED?
2:BR IF NO
:-MAX. ERRORS FOR THIS TEST OCCURRED?

S:BR IF NO

S$ERFLG

$TIMES

*:BR IF NO
*:LOOP ON ERROR?

:-SET LOOP ADDRESS TO LAST SCOPE
::2ERO THE ERROR FLAG

“*CLEAR THE NUMBER OF ITERATIONS TO MAKE

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

(1)
(1)
(1)

(1)

(1)
(1)

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

(1)

(1)
(1)
23?‘)'

034252
034254
034262

034264

034270
034272

000415
032777
001011
005737

001406
005237

004000

MACY11 30G(1063)
31-AUG=79 13:10
SCOPE HANDLER ROUTINE

144656

001202
001104

034276
034304
034306
034314
034322
034326
034334
034340
034344
034350

023737
002024
012737
013737
105237
113737
011637
011637
005037
112737

001160

001104

000001
034372
001102
001102
001106
001110
001162
000001

001104
001160

034364

013716

001106

034356
034370
034372

013777
000002
003720

B8R
BIT
BNE
TST

3%:

001102

BEQ
INC

9
PAGE 72-2

1%
#BIT11,3SWR
1%

$PASS

;2ESCAPE TO THE NEXT TEST
..IM'UBIT ITERATIONS?
;BR IF YES
..IF FIRST PASS OF PROGRAM

,.CHECK THE NUMBER OF ITERATIONS MADE
;BR IF MORE ITERATION REQUIRED
..REINITIALIZE THE ITERATION COUNTER
sSET NUMBER OF ITERATIONS TO DO
COlNT TEST NUMBERS
..SET TEST NUMBER IN APT MAILBOX
;:SAVE SCOPE LOOP ADDRESS
:SAVE ERROR LOOP ADDRESS
;sCLEAR THE ESCAPE FROM ERROR ADDRESS
;:ONLY ALLOW ONEC(1) ERROR ON NEXT TEST

::FUDGE RETURN ADDRESS

1%
$ICNT

001200

CMP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOVB

001115

MOV
CLR
MOVB

STIMES,SICNT
$OVER
#1,81CNT
SMXCNT,STIMES
$TSTNM
STSTNM, STESTN
(SP) ,SLPADR
(SP) ,SLPERR
$ESCAPE
#1,SERMAX

MOV

$LPADR, (SP)

144556

MOV

SOVER:

MOV

(

INHIBIT ITERATIONS
INCREI(NT ITERATION COUNT

$TSTNM, aDISPLAY ;;DISPLAY TEST NUMBER

RTI
$MXCNT: 2000.
.SBTTL
TYPE ROUTINE

(2)

SEQ 0105

..FIXES [
;sMAX. NUMBER CF

ITERATIONS

2333333332333 3333333332333333333333233323333233333333232233233233233332332]

(1)
(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.
:*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARA(TER.

E};

:*NOTE3:

;*NOTEZ2:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

(1
(1)
g]'))

s*CALL:
-1) USING A TRAP INSTRUCTION
OR
TYPE
.ME SADR
t

(1)

)

(

(1)

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

(1)

(1)
(1)
(1)

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

(1)

034374

105737

034400
034402
034404
034406
034410

100002
000000
000430
010046
017600

034422
034424
034432

001011
132737
001405

034414

034434
034440
034444
034446
034454
034456

122737

010037
004737
000000
132737
001003
112046

034460

001005

034464

012600

034462

005726

001157

000002

$TYPE:

1%:

000001

001214

000100

001215

034444
035446
000040

001215

60%:

AN ASCIZ STRING

TYPE

TSTB

BPL
HALT
BR
MOV
MoV

CMPB

2%:

IS FIRST ADDRESS OF

ME SADR

BNE
BITB
BEQ

61%:
62%:

s JMESADR

$TPFLG

3$
RO,-(SP)
@2(SP) ,RO
#APTENV, SENV
62%

62%
RO,61%
PC,$ATY3
C
#APTCSUP,SENVM
60%

BNE

MOV

(SP)+,R0O

TST

;:BR IF YES
;sHALT HERE IF NO TERMINAL
;s LEAVE
::SAVE RO
;sGET ADDRESS OF ASCIZ STRING

;sRUNNING IN APT MODE

;2NO,GO CHECK FOR APT CONSOLE
#APTSPOOL ,$ENVM ; :SPOOL MESSAGE TO APT

MOV
JSR
.WORD
BITB
BNE
MOVB

;:1S THERE A TERMINAL?

(RO)+,-(SP)
(SP) +

;iNO,GO CHECK FOR CONSOLE
;sSETUP MESSAGE ADDRESS FOR APT
;:SPOOL MESSAGE TO APT
; JMESSAGE ADDRESS
;.APT CONSOLE SUPPRESSED
J:YES,SKIP TYPE OUT

..PUSH CHARACTER TO BE TYPED ONTO STACK

::BR IF IT ISN'T THE TERMINATOR

..IF TERMINATOR POP IT OFF

:RESTORE R)

THE STAC(K

NCVIT

N
N

000011

4(%:

CMPB

#HT, (SP)

;:BRANCH IF <HT>

;;ADJUST RETURN PC

5%:
6%:

N8 N
N

034606
001156
013746

001154

105366

000001

105337

034606
034652

JSR
CMPB

;;BRANCH IF NOT <CRLF>

(SP)+

<CR><LF> EQUIV
;:POP
;2TYPE A CR AND LF

$CHARCNT

;s CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER
;:G0 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?

PC,STYPEC
$FILLC,(SP)+

$NULL ,=(SP)

DECB

DECB
BR

1(SP)

PC,STYPEC

$CHARCNT
7$

;:IF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
;;AND T THE NULL CHAR.
L

A
o.OE
A NULL NEED TO BE TYPED?
;:DOES
;:BR IF NO--GO POP THE NULL OFF OF STACK
;:G0 0 TYPE A NULL
;DO 0 NOT COUNT AS A COUNT

000770

7%:

; JRETURN

#CRLF, (SP)

N8 N

034652

N
NP N

#2,(SP)

RTI

000200

002770
004737

PAGE 72-3

ADD

N
N
N

- Y————— Y—— e J———

3%:

Nt NN

JHORIZONTAL TAB PROCESSOR
112716

000040
034606
000007

8%:

034652

9%:

MOVB

JSR
BITB

13:10

000002

N
NP N

Yp——— Y———

TYPE ROUTINE

144336

000002
000015

2(SP) ,a$TPB

144330
000002

NP N

000002

. 3%

a$TPS
$STYPEC

#CR,2(SP)
1$

034652
000012

#' ,(SP)
PC,S$TYPEC
#7 . $CHARCNT

$TYPEC:

N
N
N

062716
000002

31-AUG=79

YT Y

034466
034472

MACY11 30G(1063)

1%:

CMPB

N
N
N
N
N

T YT N

YOS Y

PR Y

NN NPNPNONPNNPNPNPONPNPNPIONITNINPONCNPNPCNPNPNIONPNIONPNINIONINIONIONPNININIONIN
PN

—Y

CZNCCB.P1

DIAGNOSTIC
31-AUG=-79 11:21

CINCCB

INCB
$CHARCNT
: . WORD
$TYPEX: RTS

$CHARCNT
$TYPEX

#LF ,2(SP)

$TYPEX
(PC)+

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

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

SEQ 0106

CZNCCB NCVI1 _ DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21

D 9
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 73
BINARY TO OCTAL (ASCII) AND TYPE

23?;

.SBTTL

(

(2)

SEQ 0107

BINARY TO OCTAL (ASCII) AND TYPE

'tQQQttfi."ttfi"'t..'tt"..t'i..t..'tQQ..Q..."QQ.Q.'QQQ'.t'tl'

(1)
(1)
(};

%THIS ROUTINE IS USED TO CHANGE A 16=BIT BINARY NUMBER TO A 6-DIGIT
*%OCTAL (ASCII) NUMBER AND TYPE IT
;~ngpos---emsn HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

(

s*CALL:

(1)
1)

*
1

(1)
(1)

i
ta

MOV

NUM, = (SP)

BYTE

N
M

TYPOS
BYTE

§1§

: :NUMBER TO BE TYPED

*:CALL FOR TYPEOUT
“:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 0R 0
;:1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

- %

1)
1)
(1)

L *$TYPON----ENTER HERE
**$TYPOS OR $TYPOC
*#CALL:

‘} ;

.--gvpoc---smen HERE FOR TYPEOUT OF A 16 BIT NUMBER

(1)
(1;

i
a

(1)
g;

T
ta

- %

(

s*CALL:

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

034656
034662
034670
034674

017646
116637
112637
062716

000000
000001
035103
000002

(1)
(1)
(1)

034702
03710
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)

034760
034762

005003
006105

(1)

(1)
(1)
(1)

(1)

034700 000406

034726 010346
034726 010446
034730 010546

034754

034764

(1)
(1)
(1)

034766
034770
034772

(1)

034776

(1)

::PICKUP THE MODE
::LOAD ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE
*:ADJUST RETURN ADDRESS

S$TYPOC: MOVB
MOVB
$TYPON: MOVB

#1,SOFILL
#6.SOMODE+1
#5.SOCNT

;:SET THE ZERO FILL SWITCH
“:SET FOR SIX(6) DIGITS
*:SET THE ITERATION COUNT

MOVB
NEG
ADD
MOVB
MOVB

SOMODE+1,Ré&
R4
#6.R4
R&.SOMODE
SOFILL.R4

“:GET THE NUMBER OF DIGITS TO TYPE

CLR
ROL

R3
RS

ROL
ROL
ROL

RS
RS
R5

ROL

MOV
MOV
MOV

MOV

006105
006105
006105

28:

006103

105337

035102

035006

042703

177770

035014
035016

005704
001403

035012

(1)
(1)

a(SP) ,=(SP)
1(SP).$OFILL
(SP)+.SOMODE+1
#2,(SP)

1$:

035000

(1)

$TYPOS: MOV
MOVB
MOVB
ADD

000012

000404

100016

001002

: NUMBER TO BE TYPED
*:CALL FOR TYPEOUT
: :NUMBER TO BE TYPED
*:CALL FOR TYPEOUT

035102
035101

010503

035004

035101
035103
035100

MOV
TYPOC

NUM, = (SP)

000006

034774

(1)
(1)

016605

035101

MOV
TYPON

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

MOV
DECB

BPL

$TYPON

R3.=-(SP)
R&.=(SP)
RS,=(SP)

12(SP) .RS

RS5,R3
$OMODE

*:SAVE R3
::SAVE Ré&
*:SAVE RS

::SUBTRACT IT FOR MAX.

L:PICKUP THE INPUT NUMBER
*:CLEAR THE OUTPUT WORD
*:ROTATE MSB INTO ‘'C"'

1360 DO MSB

“:FORM THIS DIGIT

::GET LSB OF

THIS DIGIT

::TYPE THIS DIGIT?

*BR IF NO

BIC

#177770.R3

“:GET RID OF JUNK

ST
BEC

R4
5%

*:SUPPRESS THIS 0?
“:BR IF YES

BNE

ALLOWED

*:SAVE IT FOR USE
S:GET THE ZERO FILL SWITCH

“:TEST FOR 0

CZNCCB NCV11 _ DIAGNOSTIC
CINCCB.P1T
31-AUG=79 11:21
(1)
(1)

035020
035022

005204
052703

000060

(1)

035036

104401

035076

(1)

035054 000744

(1)

E 9
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 73-1
BINARY TO OCTAL (ASCII) AND TYPE
48:

035026 052703 000040

5% :

(1) 035032 110337 035076

(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
(1)
2;22

035042
035046
035050
035052

105337
003347
002402
005204

035056
035060
035062
035064
035072
035074
035076
035077
035100
035101
035102

012605
012604
012603
016666
012616
000002
000
000
000
000
000000

035100

7%:

68:
000002

000004

SEQ 0108

INC
BIS

A
20, R3

::DON'T SUPPRESS ANYMORE 0°'S
*:MAKE THIS DIGIT ASCII

TYPE

2:GO TYPE THIS DIGIT

BIS

MOVB

DECB
BGT
BLT
INC

B8R

MOV
MOV
MOV
MOV
MOV
RTI
8$:
BYTE
BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

1'%

**MAKE ASCII IF NOT ALREADY

R3, és

::SAVE FOR TYPING

$OCNT
2%
6$
R4

*:COUNT BY 1
::BRIF MORE TO DO
*BR IF DONE
““INSURE LAST DIGIT ISN'T A BLANK

*:GO DO THE LAST DIGIT

(SP)+,RS
(SP)+.Ré
(SP)+.R3
2(SP) .4 (SP)
(SP)+. (SP)

: *RESTORE
:*RESTORE
**RESTORE
“iSET THE

RS
Ré&
R3
STACK FOR RETURNING

: :RETURN
*:STORAGE FOR ASCII DIGIT
*:TERMINATOR FOR TYPE ROUTINE
“:OCTAL DIGIT COUNTER
*:2ERO FILL SWITCH

0
0
O
0
0

*:NUMBER OF DIGITS TO TYPE

2%?§

.SBTTL

ERROR HANDLER ROUTINE

(2)

RN AR AR AR

M
(1)
(1)
1)

**THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
**SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
“=AND GO TO SERRTYP ON ERROR
*«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE
:

(1)
(1)

**CALL

(1)
(1)
(1)

L wSW15=1
L wSW13=1
1 *SW10=1
: *SW09=1

E};

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

035104
035104
035106
035112

104407
105237
001775

(1)
(1>
(1)
(1)
(1)

035130
035132
035136
035142
035146

001402
104401
005237
011637
162737

001164
001112
001116
000002

004737
104401

035304
001171

122737

000001

001214

113737

001114

035224

(1)
(1)

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

(1)

035114
035122

035154
035162
035170
035172
035176
035202
035202

035210

035212

$ERROR:

001103

013777 001102
032777 002000

117737
032777
001004

001007

143736
020000

7%:

144020
144010
1%:

001116
001114
143750

208:

AR R AR

RN RRARRRRRRRR A RRRRRRNRCRRAR

HALT ON
INHIBIT
BELL ON
LOOP ON

ERROR
ERROR TYPEOUTS
ERROR
ERROR

ERROR

: :ERROR=EMT AND N=ERROR ITEM NUMBER

CKSWR
INCB
BEQ

SERFLG
7%

::TEST FOR CHANGE IN SOF T-SWR
*:SET THE ERROR FLAG
*:DON'T LET THE FLAG GO TO ZERO

MOV
BIT

$TSTNM,.@DISPLAY - :DISPLAY TEST NUMBER AND ERROR FLAG
#B1T10.aSwWR
:BELL ON ERROR?

MOVB
BIT
BNE

@S$ERRPC,SITEMB
#BIT13,3SWR
208

::STRIP AND SAVE THE ERROR ITEM CODE
S:SKIP TYPEOUT IF SET
L:SKIP TYPEOUTS

(MPB

WAPTENV,SENV

;;RUNNING IN APT MODE

MOVB

SITEMB,21$

“:SET

BEQ
TYPE
INC
MOV
SUB

JSR
TYPE

BNE

1%
,S$BELL
$ERTTL
(SP) , $ERRPC
#2, $ERRP(

SINO - SKIP
..RING BELL
*COUNT THE NUMBER OF ERRORS
*:GET ADDRESS OF ERROR INSTRUCTION

PC,$ERRTYP
,$CRLF

*%GO TO USER ERROR ROUT INE

*NO,SKIP APT ERROR REPORT

ITEM NUMBER AS ERROR NUMBER

CZNCCB NCV1T _ DIAGNOSTIC
CINC(B.PT
31-AUG=79 11: 21
(1)

(1)
(1)

035220
035224
035225
035226
035230
035234

004737
000
000
000777
005777
100002

(1)
(1)

035240
035242

104407
032777

001000
001110

(1)
(1)
(1)

(1)
(1)

035236

035250

001402

035252

013716

(1)

035262

001402

035256

(};

8%25%

(1)
(1)

035270
035276

(

(1)
(1)

22’;

035300
035302

035302

035456

21%:

22%:
2%:

143704

000000

(1)

MACY11 30G(1063)
31-AUG=79 13:10
ERROR HANDLER ROUTINE

005737

3%:

001162

4%:

013716

001162

022737
001001

030166

000000

000042

6%:

000002

2%11.7

.SBTTL

)

PAGE 73-2

SEQ 0109

JSR
BSYTE
.BYTE
BR
TST
BPL

PC,$8ATYS
O
0
22%
aSWR
3%

;;APT ERROR LOOP
;sHALT ON ERROR
;:SKIP IF CONTINUE

CKSWR
BIT

#BIT09,aSWR

;TEST FOR CHANGE IN SOF T=SWR
;:LOOP ON ERROR SWITCH SET?

MOV

$LPERR, (SP)

;:FUDGE RETURN FOR LOOPING

HALT

143670

BEQ

TST

BEQ

$ESCAPE
5%

MOV

$ESCAPE, (SP)

CMP
BNE

#SENDAD , a#4 2
6%

HALT

RTI

; JREPORT FATAL ERROR TO APT

;+HALT ON ERROR!
;:BR IF NO

;sCHECK FOR AN ESCAPE ADDRESS
::BR IF NONE

;:FUDGE RETURN ADDRESS FOR ESCAPE
;+ACT=11 AUTO-ACCEPT?
:JBRANCH [F NO
;:YES

: :RETURN

ERROR MESSAGE TYPEOUT ROUTINE

(2)

;.'it'tt.t'.'tt'tttt..'t'tt‘t.t'..tt.tttt.t'fl"tttt.t.'.""'t'.t.

(1)
1)
(};

;*THIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
:*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE'' ($ERRTR),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.

(

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

(1)

035304
035304
035310
035312
035314

104401
010046
005000
13153700

035320

001004

(2)

035322

013746

(2)
(1)

035326
035330

104402
000426

(1)

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

035332
035334
035336
035340
035342

005300
006300
006300
006300
062700

(1)
(1)

035352
035354

001404
104401

(1)

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

(1)

(1)
(1)

035346

035356

035360

012037
000000

18:

001256

035356

104401

001171

03502
03504

011000
001004

035374

TYPE
MOV
CLR
BISB

BNE

001116

001171

012037
001404
104401
000000

$ERRTYP:

001114

104401

035364
035370
035372
035374

035376

001171

2%:
3%:

5%:

LSCRLF
RO,=(SP)
RO
a#$ITEMB,RO

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

;;1F

MOV

$ERRPC,~(SP)

;:SAVE SERRPC FOR TYPEOUT

TYPOC
BR

MOV

(RO)+,2%

DEC
ASL
ASL
ASL
ADD

BEQ
TYPE

RO
RO
RO
RO
#$ERRTB,RO
3%

ITEM NUMBER IS ZERO, JUST

;:TYPE

THE PC OF

THE ERROR

; ;ERROR ADDRESS

::GO TYPE--OCTAL ASCIICALL DIGITS)
JGET ourt
..ADJUST THE INDEX SO THAT IT WILL
e
WORK FOR THE ERROR TABLE
;;FORM TABLE POINTER

;iPICKUP "ERROR MESSAGE''

POINTER

::SKIP TYPEOUT IF NC POINTER
;:TYPE THE 'ERRG.Q ME SSAGE"'

.WORD

MOV
BEQ
TYPE
.WORD

(RO)+,4%
5%

;:PICKUP ‘DATA HEADER'' POINTER
;:SKIP TYPEOUT IF O
;:TYPE THE 'DATA HEADER''
;2 "DATA HEADER'®' POINTER GOES HERE

MOV
BNE

(RO) ,RO
7%

;:PICKUP "DATA TABLE'' POINTER
;260 TYPE THE DATA

TYPE

.SCRLF

LSCRLF

;2" ERROR MESSAGE'' POINTER GOES HERE

;1"'CARRIJAGE RETURN'' & "LINE FEED''

;. 'CARRIJAGE RETURN'' & "LINE FEED''

CINCCB

NCVIT

DIAGNOSTIC =

CINCCB.PIT

31-AUG=79

(1)

035406

012600

035414
035416

000207

(1)

035410

(2)
(2)

035416
035420

013046
104402

(1)

035432

000771

(1)
(1)

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

035422
035624
035426
035434

104401

005710
001770
104401
020040
035440

00117i

MACY11 30G(1063)

13:10

G 9

PAGE 73-3

ERROR MESSAGE TYPEOUT ROUTINE
6%:
7%

035434
000

31-AUG=79

RS :

MOV

SEQ 0110

(SP)+,R0O

;RESTORE RO

RTS

: *RETURN

MGV
TYPOC

A(RO)+,=(SP)

::SAVE @(R0O)+ FOR TYPEOUT
2:G0 TYPE==OCTAL ASCII(ALL DIGITS)

TYPE

L$CRLF

TST
BEQ
TYPE

(RO)
6%
8%

ASCIZ
.EVEN

©:"'CARRIAGE RETURN''
& "LINE FEED""

;1S THERE ANOTHER NUMBER?
“:BR IF NO
S:TYPE TWO(2) SPACES

::LOOP

S:TWO(2)

SPACES

CINCCB NCV1Y
CZNCCB.PI

DIAGNOST 1C

31-AUG-79 11:21

MACY11 30G(1063)
.SBTTL

(1)

035440
035446
035454
035456
035464
035464
035466

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

035474
035476
035504
035506

(1)

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

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

(1)
(1)

035514

035516

035530
035534
035536
035542

035544
035546
035552
035554
035560
035566
035570
035576
035604
035610
035614
035616
035616
035622
035624
035630
035632
035636
035640
035646
035654
035660
035664
035670
035674
035676
035700
035702
035703
035704

9
PAGE 74

035704
035702

$ATY1:

000001

035704

SATYS:
$ATY(:

$ATY3:

MOvB
MOVB
BR
MovB

#,8FFLG
#1,8MFLG

2270 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

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

;+sPUSH RO ON STACK
;:PUSH R1 ON STACK
;sSHOULD TYPE A MESSAGE?
;:IF NOT:

;:JF NOT:

;2IF NOT:

::IF NOT:

WAIT

$SATY(

;;OPERATING UNDER APT?

000001

001214

#APTENV, SENV

000100

001215

#APTSP
,OOL
SENVM ;s SHOULD SPOOL MESSAGES?

000004

001210

38
@4 (SP) ,RO

1%:

#2,4(SP)
SMSGTYPE

;:GET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;;SEE IF DONE W/ LAST XMISSION?

2%:

RO, SMSGAD
+
(RO)

;sPUT ADDR IN MA]LBOX
;sFIND END OF MESSAGE

001210
001212
000004

001174

000004
000002

035614
000004

177776

034374

105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

SEQ 0111

i i3
R 22222222
R
22 2Rl d R

000001
000001

000004
000002
001174

035522

APT COMMUNICATIONS ROUTINE

035702

035470

13:10

APT COMMUNICATIONS ROUTINE

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

31-AUG-79

RO,$MSGLGT

gg.SHSGTYPE
6 (SP) ,4$

3%:

5%:

035704

10%:

001214

001174

#2,4(SP)

::PUT MSG ADDR IN JSR L INKAGE
- -BUMP RETURN ADDRESS

SC.STYPE

;:CALL

177776.,=(SP)

A ¥

11%:

001176
000004
12%:

035702

$MFLG:
$LFLG:
$FFLG:

TSTB

BEQ
TST
BEQ
TST

BNE
MOV

ADD
INC
CLRB
CLRB
CLRB
MOV
MOV
RTS

.BYTE

.BYTE
.EVEN

APTSIZE=200

APTENV=001

APTSPOOL=100

;:SUB START OF MESSAGE
;:GET MESSAGE LNGTH IN WORDS
;:PUT LENGTH IN MAILBOX
;oTELL APT TO TAKE MSG.

::PUSH 177776 ON STACK
TYPE MACRO

$FFLG
12%
$ENV
12%
$MSGTYPE
11$%
@4 (SP) ,$SFATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
+ ,R1
(SP)
(SP)+,R0

;:SHOULD REPORT FATAL ERROR?
BR
;2IF NOT:
; sRUNNING UNDER APT?
;:IF NOT: BR
;sFINISHED LAST MESSAGE?
WAIT
;21F NOT:
#
R
ERRO
T
;.GE
;:BUMP RETURN ADDR.
;;TELL APT TO TAKE ERROR

0
0
0

;:MESSG. FLAG
;:L0G FLAG

:;CLEAR FATAL FLAG
;.CLEAR LOG FLAG
;;CLEAR MESSAGE FLAG

;:POP STACK INTO R1
;:sPOP STACK INTO RO

; JRETURN

;FATAL FLAG

CINCCB NCV1T _ DIAGNOSTIC
CZNC(B.P1T
31-AUG=79 11:21
(1)
2??())

MACY11 30G(1063)
31-AUG=79 13:10
APT COMMUNICATIONS ROUTINE

000040

(1)

;POWER DOWN ROUTINE

035706

(3)

035730

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

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

(1)

E};

035714
035722
035724
035726

012737

012737
010046
010146
010246

070446
010546
017746
010637
012737

035756

000776

035754

036046

000340

000024

000026

000000

(1)

143176
036052
035760

035760

035766
035772

(1)
(3)

036002
036004

(3)

036012

(3)

(3)
(3)
(3)
(3)

(1)
(1)

(1)

035776
036010

036014
036016
036020
036022

036024
036032

036040

036042

012737

013706
005037

005237

001375
012677
012605

000024

012603
012602
012601
012600

012737
012737
104401

000002
000000

E};

036054

005015

036050
036052

036046

036052
036052

000024

036052

#340,a4PWRVEC+2
RO,=(SP)
R1,=-(SP)
R2.,=(SP)
R3,-(SP)

;;PRIO:7
:2PUSH RO ON STACK
;:PUSH R1 ON STACK
;:PUSH R2 ON STACK

;sPUSH R3 ON STACK

R4 ,=(SP)
:2PUSH R4 ON STACK
RS,=(SP)
;:PUSH RS ON STACK
aSWR,=(SP)
;:PUSH aSWR ON STACK
SP,$SAVR6
;:SAVE SP
#SPWRUP ,a#PWRVEC ;.SET UP VECTOR

: JHANG UP

;POWER UP ROUTINE
S$PWRUP: MOV
#SILLUP,@#PWRVEC ;,SET FOR FAST DOWN

1%:

143130

000776
000000

MOV
CLR

$SAVR6

;:GET SP
;:WAIT LOOP FOR THE TTY

BNE
MOV

1%
(SP) +,aSWR

::0F WORD
;:POP STACK INTO aSwR

INC

MOV

035706
000340

MOV
MOV
MOV
MOV

000024
000026

036054

036044
036046

(1)

HALT

012604

(1)
(1)

MOV
MOV
MOV
MOV
MOV

#SILLUP,a#PWRVEC ;,SET FOR FAST UP

R
L

(1)

MOV
MOV
MOV
MOV
MOV

(1)
(1)

SEQ 0112

AR AR AR AR AR AR AR R AR R AR AR AR AR A RNAN R AR AR R AR RRRRR NN AR AR R RO

$SPWRDN: MOV

010346

035732
035734
035736
035742
035746

9
PAGE 74-1

APTCSUP=040
.SBTTL POWER DOWN AND UP ROUTINES

(1)

$PWRMG:

047520

042527

$SAVR6G, SP
$SAVR6

(SP)+,RS

(SP)+ R4

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0

JIWAIT FOR THE

INC

::POP STACK INTO RS

;;POP STACK INTO R4

;:POP
;:POP
;2POP
;:POP

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

R}
R¢
R1
RO

‘

MOV
MOV

#SPWRDN
, a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#340,9#PWRVEC+2 ;:PRIO:7

.WORD

$POWER

TYPE

$ILLUP:

RTI
HALT

S$POWER:

.ASCIZ

BR
$SAVR6: 0

.EVEN

<15><12>'POWER'’

;REPORT THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER

;:THE POWER UP SEQUENCE WAS STARTED
;: BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

(ZNCCB NCV11 _ DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21

MACY11 30G(1063)
31-AUG=79 13:10
ROUTINE TO SIZE MEMORY

2&5;

.SBTTL

(2)

9
PAGE 75

ROUTINE TO SIZE MEMORY

:.'Qt..'tttttt'lit!tttttt"'.tt.'ttt!ttt"t.ttttttttttltttt.tt....

(1)

s*CALL:

(1)

JSR

(1)

WITH KT11 OPTION

DETERMINED BY ROUTINE

1)
1)

(1)

036064

010046

(1)

036070

010246

$SIZE:

036066 010146

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

036072
036074
036100
036104

(2)
(2)
(1)

036106 104400
036110 012637 000006
036114 012701 003776

(1)
(1)

(1)
(1)
(1)
(1>

(1)
(1)

010346
013746 000004
013746 000006
010600

036120
036122

105727
000200

036134
036140

005737
052737

036162

005046

:SET

036124 100070
036126 012737 036300 000004
177572
100000

$KT11:

035122

MOV

RO, =(SP)

::SAVE RO ON THE STACK

MOV

R2.,=(SP)

:2SAVE R2 ON THE STACK

MOV
MOV
MOV
MOV
MOV

BPL
MOV

$CORE
*BR IF NO
#SKTNEX,a#ERRVEC ..ssr FOR TIMEOUT

TSTB
.WORD

(PC)+
200

2 JUSE MEMORY MANAGEMENT?
:SET TO USE MEMORY MANAGEMENT

ST
BIS

HSRO
#100000,8KT11

*KT11 ARE YOU THERE?
::YES=-SET KT11 KEY

CLR

-(SP)

::INITIALIZE FOR 'PAR'’ LOADING

172340
000010

MOV
MOV

(1)
(1)
(1)

036202 011622
036204 062716 000200
036210 077307

MOV
ADD
S08

(1)

036216

005042

036252

005737

(1) 036176 012762 077406 177740 1$:
(1) 036212 012742 177600
(1)
(1)
(1)
(1)
(1)
(1)

036220
036226
036234
036236
036240
036244

(1)

036256

(1)

(1)
(1)

(1)

036262
036266

036270

036272

MOV

R3,=(SP)
*:SAVE R3 ON THE STACK
HERRVEC,-(SP) ::SAVE PRESENT ERROR VECTOR PS & PC
SERRVEC+2,-(SP)
SP,RO
:SAVE THE STACK POINTER

:PUSH OLD PSW AND PC ON STACK
(SP)+,@#ERRVEC+2
;:SAVE THE PSW IN @#ERRVEC+2
#3776 .R1
; :SETUP ADDRESS

036164
036170

012702
012703

2:SAVE R1 ON THE STACK

TRAP
MOV
MOV

MOV
MOV

(1)
(1)

R1.-(SP)

THE ERRVEC PS TO THE mssem PS

036146 012737 036406 000250
036154 012737 000340 000252

(1)

-= LAST VIRTUAL ADDRESS OF THE LAST BANK

e
WITHOUT KT11 OPTION
~= LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
“+$LSTBK WILL CONTAIN THE LAST BANK AS A SAF
:*$KT11 1S THE MEMORY MANAGEMENT KEY
~enor =0 DON'T USE MEMORY MANAGEMENT
MUST BE SETUP BEFORE THE CALL
-ems = 0 DON'T HAVE MEMORY MANAGEMENT OPTION

(1)

PC,$SIZE

x
RE TURN
*«$LSTAD WILL CONTAIN:

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

(1)

SEQ 0113

CLR

#KTERR,Q#MMVEC
#340, AMMMVE (+2
mmo R2
#-D8

::SET IN CASE OF ERROR
**ADDRESS OF FIRST 'PAR"
S LOAD EIGHT 'PAR.'S'' AND EIGHT 'PDR.'S"’

xmbs=40(R2) ::PDR= 4K, UP, READ/WRITE
(SP), (R2)+
czoo (SP)

*:LOAD 'PAR
:UPDATE FOR NEXT 'PAR'’
“:LOOP UNTIL ALL EIGHT ARE LOADED

-(R2)

S:SETUP KIPARG6 FOR TESTING

nmoo -(R2)

::SETUP KIPAR7 FOR /0

012737 036236 000004
012737 000020 172516
000401
022626
28:
005237 177572
38
012737 036270 000004

MOV
MOV
BR
cMP
INC
MOV

#28,a¥ERRVEC
- -CATCH TIMEOUT IF NO SR3
#20.34SR3
*:ENABLE 22 BIT nooe
3$
S:THIS PDP=11 HASA SR3 REGISTER
(SP)+, (SP)+
..usm OFF THE STACK--NO SR3
aHSRO
URN ON MEMORY MANAGEMENT
#SKTOUT, acennvec ..ser FOR TIME OUT

062712

ADD

#40, (R2)

023712
101371
011202

005037

143776

000040

172356

177572

48:

CMP
BHI

$KTOUT: MOV

CLR

143776

RAP ON NON-EX-MEM

me
A 1K STEP

BMKIPAR7. (R2)
48

::LAST ONE?
LINO==TRY IT

a#SRO

S:TURN OFF MEMORY MANAGEMENT

(R2) ,R2

S:GET LAST BANK+1

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

(1)

036276 000421

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

036300
036306
036314
036316

(1)

036326

(1)

(1)
(1)

036322

005711

03633
036336

001370
162701

036346

010006

036342

(1)

036350

(1)

062702

036330 022701

(1)

042737
012737
005002
062701

0363564

162702

000040

BNE

$CROUT: SUB

$SIZEX: SUB
MOV

:i1K STEP

#177776.R1

*:LAST ONE

(R1)

#4000,R1

#40 .R2
RO,SP

R1,$LSTAD

MOV
MOV

(SP)+,R3
(SP)+ ,R2

012603
012602

036376

012600

036400
036402
036404
036406

CMP

#40,R2

MOV

036366 010237 036404
036374

TST

012601

000207
000000
000000
000000

036410 000776

MOV

MOV
MOV

MOV

RTS
$LSTAD: .WORD
$LSTBK: .WORD
KTERR:
HALT

B8R

9
PAGE 75-1

$SI2EX

036402

036370
036372

2354

004000

012637 000004

(1)
(1)

(1)
(1)
(1)
2353

177776

ADD

#100000,8KT11
::KT11 NON-EXISTENT
#$CROUT ,a#ERRVEC ..SET FOR TIMEOUT
R2
;:SET UP BANK
#4000,R1
..INCRE!'ENT BY 1K

MOV

010137

(1)

000040

S$KTNEX: BIC
$CORE:
MOV
CLR
1%:
ADD

000006

036360

(1)

004000

036122
000004

012637

(1)

100000
036336

MACY11 30G(1063)
31-AUG=79 13:10
ROUTINE TO SIZE MEMORY

;TRAP ON TIME OUT

; :NO==TRY AGAIN

; :DROP BACK

;JRESTORE THE STACK

(SP)*.&ERRVEC*? ;JRESTORE ERROR VECTOR

(SP)+
. @ERRVEC

;:LAST ADDRESS

R2.$LSTBK

*:LAST BANK

(SP) +.R1

S RESTORE R1

(SP)+,R0O

PC
0
0

KTERR

:;RESTORE R3
::RESTORE RZ2

;RESTORE RO
;:CONTAINS THE LAST ADDRESS
;2CONTAINS THE LAST BANK
‘KT11 FAILURE

SEG 0114

CZNCCB NCVi1 _ DIAGNOSTIC
CZNCCB.P11
31-AUG=79 11:21
2???

L 9
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 76
SAVE AND RESTORE RO=RS5 ROUTINES
.SBTTL

SEQ 0115

SAVE AND RESTORE RO-RS ROUTINES

(2)

.'"'Qt'.tt"t'tttt't'ttttt't't't.tittt"..tt.'.Q't't'.tt..'..'..t'

1)
1)

;*SAVE RO=R5
s*CALL:

t};

*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LikKE:

(1)

(1)
1)
)
1)

tTOP---(¢16)
% 42===(+18)
,' +4=-=RS
;% +6==-=R4

(1
)
)

;* +8-=<R3
;*+10=-=-=R2
;x+12===R1

(})

(1)

;*+14-=-<R0

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

036412
036412
036414
036416
036420
036422

010046
010146
010246
010346
010446

(1)
(1)
(1)
(1)
g};

036426
036432
036436
036442
036446

016646
016646
016646
016646
000002

(3)

036424

010546

$SAVREG:

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

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
R4 ,~(SP)

;:PUSH
:2PUSH
::sPUSH
::PUSH
;sPUSH

RO
R1
R2
R3
R4

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

MOV
MOV
MOV
MOV
RTI

22(SP) ,-(SP)
22(SP) ,=(SP)
22(SP) ,~(SP)
22(SP) ,=(SP)

;:SAVE
2:SAVE
;2SAVE
;:SAVE

PS
PC
PS
PC

OF
OF
OF
OF

MAIN FLOW
MAIN FLOW
CALL
CALL

MOV

000022
000022
000022
000022

(1)

(1)
(1)

SAVREG

RS5,=(SP)

:;PUSH RS ON S1ACK

;*RESTORE RO-RS
"'ALL

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

SRESREG

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)+ R0

;JRESTORE PC OF CALL
;JRESTORE PS OF CALL
;RESTORE PC OF MAIN FLOW
;RESTORE PS OF MAIN FLOW
;:POP STACK INTO RS
;;POP STACK INTO R4
;:POP STACK INTO R3
..POP STACK INTO R2
;;POP STACK INTO R1
;;POP STACK INTO RO

CINCCB NCV11
DIAGNOST%%
CINCCB.P1T
31-AUG=79
11:21
2358

MACY11 30G(1063)
31-AUG=79 13:10
INTEGER MULTIPLY ROUTINE
.SBTTL

PAGE 77

INTEGER MULTIPLY ROUTINE

(2)

":Ql'tttt.tt.t.tti..'.'.ii....'Qi.....'..t.....'.'....."...."..

(1)
N
(1)
M

:*CALL
i
i
g

. &

(1
(1
(M

i
‘e
e

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

036506
036506
036510
036512
036514
036516
036522
036524

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

036530
036534
036536
036540
036542
036546
036550
036552
036554
036556
036560
036562
036564
036566
036570
036572
036574
036576
036600
036604
036610
036612
036614

(1)

036526

036616

010046
010146
010246
005046
016601
100002
005216
005401
016602
100002
005316
005402
012746
005000
103001
060200
006000
006001
005316
001372
022616
001403
005400
005401
005600
005726
010066
010166
012602

012601

012600
000207

SMULT:

000012

000014

1$:

000021

28:
38:
4$:

000012
000010

MOV
MOV
JSR

MULTIPLER,=(SP)
MULTIPLICAND,=(SP)
PC,a#SMULT

STACK
-4

PRODUCT

RETURN

;;PRODUCT 1S ON THE STACK

LSB'S

MSB'S

MOV
MOV
MOV
(LR
MOV
BPL
INC
NEG
MOV
BPL
DEC
NEG
MOV
(LR
BCC
ADD
ROR
ROR
DEC
BNE
CMP
BEQ
NEG
NEG
S8C
TST
MOV
MOV
MOV

RO,=(SP)
R1.=(SP)
R2,-(SP)
=(5P)
12(SP),R1
18
(SP)
R
14(SP),R2
2%
(SP)
R2
#17.,=(SP)
RO
48
R2,RO
RO
RI
(SP)
38
(SP)+, (SP)
5%
RO
RI
RO
(SP)+
RO,12(SP)
R1,10(SP)
(SP)+,R2

MOV
RTS

(SP)+.R0
PC

MOV

(SP)+.R1

;;PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::CLEAR THE SIGN KEY
::GET THE MULTIPLICAND
:iBR_IF PLUS
::SET THE SIGN KEY
:IMAKE THE MULTIPLICAND POSTIVE
::GET THE MULTIPLIER
:iBR IF PLUS
::UPDATE THE SIGN KEY
:IMAKE THE MULTIPLIER POSTIVE
::SET THE LOOP COUNT
::SETUP FOR THE MULTIPLY LOOP
1:DON'T ADD IF MULTIPLICAND = 0
::POSITION THE PARITIAL PRODUCT AND
::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
:PUT THE PRODUCT ON THE STACK (MSB'S)
:ILSB'S
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

SEQ 0116

CZNCCB

NCV11 _ DIAGNOSTIC

CZNCCB.P1T

31-AUG=79 11:21

MACY11 30G(1063) 31-AUG=79 13:10
INTEGER DIVIDE ROUTINE

2???

.SBTTL

PAGE 78

SEQ 0117

INTEGER DIVIDE ROUTINE

(2)

.-'-tttttttttttt.ttttttttttttttttt.tttfit.ttit't.t.ttfititttttifit'.'Q

)
(1)
1)

:*THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER
:*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
;%A 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER.

g};

:*%:xe SIGN AS THE DIVIDEND.

:+DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF

s«CALL:

)

)
(1)
1)
)

MOV

LOW DIVIDEND,=(SP)

ix
i*
i*
i

'V''=0
'V''=1

IMPLIES
IMPLIES
*'C"'=0
‘C''=1

i*
Ix
Jx
ix

(1)
(1)
1)
z};

MOV
MOV
JSR
RE TURN

THE

;;THE HIGH DIVIDEND MUST BE < 1/2

HIGH DIVIDEND,=(SP);
AS LARGE AS THE DIVISOR
DIVISOR,=(SP)
PC,$DIV
:;QUOTIENT & REMAINDER ARE ON THE STACK

NO ERROR
ERROR OCCURRED
DIVIDE OVERFLOW OCCURRED
ATTEMPTED TO DIVIDE BY ZERO

. %

o %

i};

(1)
(2)
(1)

104400
042716

(3). 036630
(3)
036632
(3)
036634
(1)
036636
(1)
036640
(1)
036644

010146
010246
010346
005046
012746
016601

(1)

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

(1)
(1)
(1)

(1)
(1)

(1)

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

(1)
(1)

NO ERROR

OVERFLOW

DIVIDE BY ZERO

TOP

REMAINDER

ALL ZEROS

ALL ONES

TRAP
BIC

#17,(SP)

::PUSH OLD PSW AND PC ON STACK
::STRIP AWAY CONDITION CODES

036626

MOV
MOV
MOV
CLR
MOV
MOV

R1,-(SP)
R2,=(SP)
R3,-(SP)
-(SP)
#17.,-(SP)
24(SP) ,R1

::PUSH R1 ON STACK
::PUSH R2 ON STACK
:;PUSH R3 ON STACK
::SAVE A PLACE FOR SIGNS
::;SETUP THE ITERATION COUNTER
::PICKUP THE DIVIDEND

036650

036654
036656
036662
036664

RO
R1

::CHECK THE SIGN
..KEEP TRACK OF THE SIGN
:AND NEGATE THE ORIGINAL
* :NUMBER

036666
036670
036674

036676
036700

036706

036712
036714
036720
036722
036724
036726
036730
036732
036734
036736

036620
036620
036622

(3)

STACK

f};

010046

016600
100005
105366

005400
005401

005600
016602
002407
003011
052766

012700

000424
005266
000401
005402
000241
000405
006100
010003
060203
103001

$DIV:
000017

MOV

000021
000024

000022

MOV
BPL
DECB

000003

NEG
NEG

000020
000003

177777

000002

1%:

SBC
MOV
BLT
BGT
BIS

000014

MOV

2%:
3$:
4%:

5%:

BR
INC
BR
NEG
CLC
=
ROL
MOV
ADD
BCC

QUOTIENT

RO,=-(SP)

22(SP) ,RO
1%
3(SP)

RO
20(SP) ,R2
2%
3$
#3,14(SP)

#-1.,R0
7%
2(SP)
4%
R2

————

ALL ZEROS

ALL ONES

;sPUSH RO ON STACK

::PICKUP THE DIVISOR
::CHECK THE SIGN

..DIVISOR OF 0 IS A NO-NO
w af =

..SET REMAINDER TO ALL ONES
JEXIT

*:KEEP TRACK OF DIVISORS SIGN

6%
RO

:NEGATE THE ORIGINAL NUMBER
;:CLEAR '’
:;START FORMING QUOTIENT
..POSITION MSB'S

R2.R3
6%

*COMPARE DIVIDEND & DIVISOR
BR IF DIVIDEND > DIVISOR

RO,R3

: . COPY

CINCCB

NCVIT

CZNCCB.P1T

DXAGMJSTIC

31-AUG=79 11:
21

(1)
(1)

036740
036742

010300
006101

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

036746
036750
036752
036754
036762
036764

001370
005701
100005
052766
005000
010007

(1)
(1)

036776
037002

(1)

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

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

(1)

036744

036766
036770
036772
036774
037004
037006
037010
037012
037016

037022
037026
037026
037030
037032

037036

MACY11 30G(1063)

005726
005716
002004
005400

105066

005316
005726
001401
005401

010166
010066
012603
012602
012601
012600
012666
000002

PAGE 78-1

MOV
ROL

R3,RO
R1

; ;REMAINDER AFTER THIS LOOP
;sQUOTIENT BIT ENTERS HERE

7%:

BNE
TST
BPL
BIS
CLR
MOV

5%
R1
8$
#2,14(SP)
RO
RO,R1

..BR IF NO
s ;OVERFLOW?
;:BR_IF NO
$:SET "V'* IN RETURN STATUS WORD
;.SET REMAINDER TO ALL ZEROS
;. COPY REMAINDER INTO QUOTIENT

CLRB

1(SP)
(SP)

;s CLEAR SIGN
;:BUT DON'T FORGET QUOTIENT

000014

000001
9%:

000002

B 10

6%:

8%:

000020
000016

13:10

INTEGER DIVIDE ROUTINE

005316

000002

31-AUG=79

108:

DEC

TST
TST
BGE
NEG

DEC
TST
BEQ

NEG

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)

(SP) +
(SP)
9%
RO

(SP) +
108
R1
R1,20(SP)
RO,16(SP)

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,R0
(SP)+,2(SP)

; :DONE?

;;CLEAR COUNTER FROM STACK
.,REMIPDER SIGN CORRECTION NEEDED?
;BR IF NO
: INEGATE REMAINDER
..OWTIENT SIGN CORRECTION NEEDED?
:BR IF NO
: :NEGATE QUOTIENT
; sRETURN QUOTIENT AND
; ;REMAINDER TO USER

;;POP STACK INTO R3
;;POP STACK INTO R2
;:POP STACK INTO R1
;;POP STACK INTO RO
;:SETUP TO RETURN CONDITION CODES
s sRETURN

SEQ 0118

CZNCCB NCVTT
CZNCCB.P1T

DIAGNOST IC
31-AUG=79 11:21

c 10

MACY11 306(1063)
31-AUG=79 13:10 PAGE 79
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

2362

.SBTTL

N
N
N
N

D
D

N
N

D
D e
D
D

MOV
JSR
RETURN

#PNTR,=(SP)
PC,a#$DB2D

N
N
N
N
N
N
N

)

;;POINTER TO LOW WORD OF BINARY NUMBER

;:THE FIRST ADDRESS OF ASCIZ
;;1S ON THE STACK

037136

000012
037150
037152

$DB2D:

000002
037220
000002

D e

- %

3%:

s *CALL

N
Nt N

N
N
N
N
N
N
N
NP N
N

2(SP) ,R2

#SDECVL ,RO
RO,2(SP)
(R2)+,R1

(R2)+,R2

#$TNPWR
R4

#STNPWR+2
RS
R3
(R4) ,R1
R2
(RS) ,R2

3s
R3
2%

(R4)
+ R
R2
(R4)+,R2
(R5)+,(R5)+

4%:

$TNPWR:

(PC)+

;:SAVE REGISTERS
;;PICKUP THE DATA POINTER

;;GET ADDRESS OF ‘SDECVL'' STRING

;:PUT ADDRESS OF ASCIZ STRING ON STACK
;:PICKUP THC BINARY NUMBER

;:SET UP TO DO 10 CONVERSIONS
; ;ADDRESS OF TEN POWER
;:CLEAR PARTIAL
;:SUBTRACT TEN POWER
:;BR IF TEN POWER TO LARGE

;;ADD 1 TO PARTIAL

;. LOOP
;;RESTORE SUBTRACTED VALUE

;:MOVE TO NEXT TEN POWER
; ;CHANGE PARTIAL TO ASCII

JiSAVE

. ;DONE?

1%
+
(RO)

;:BR IF NO

£21.0€09

;- TERMINATOR
;RESTORE REGISTERS
ETURN

:1.0E08

;:1.0€07
:1.0E06
;1.0E05

N
N

SAVREG
MOV
MOV
MOV
MOV
MCV
MOV
MOV
MOV

#'0.R3
R3, (RO) +

000060

N
N

'THlS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
'%g%%bE(ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

D e
D

D e

NN TN PN

D il
D

)
) e

NN PN

) e

D e

N
NN

NN PN

e
—

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

CRRRRRRR AR RRRRRRRARRRRRRRRRRRRRRRRRRRRRRRRRARRRRARRR
AR
AR
NS

NN PNTNPNPNPNPNONTNTNPNNINPNIONN
NN~ ~

D2 o

;:1.0E04
;1.0E03

;:1.0E02

SEQ 0116

l
CINCCB NCV1IT
DIAGWSTg
31-AUG=79 1
CZNCCB.P1T
21

(1)
(1)

037206
037210

000000
000012

(1)

037214

000001

(1)

(1)
(1)

2???

037212

037216
037220

D 10
MACY11 30G(1063)
31-AUG-79 13:10 PAGE 79-1
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE
0
12

000000

0
$DECvL: .BLKB

.SBTTL

’

;:1.0E01

000000
000014

SEQ 0120

;:1.0E00
12.

; ;RESERVE STORAGE FOR ASCIZ STRING

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

(1)

;*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

f};

RN RN

AR AR AR

RRRRRARRRRRAA AR

R AR AR RS

:'laEI{GNED DECIMAL ASCIZ NUMBER.
- %

MOV

fl;

RETURN

$SB2D:

MOV
MOV

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

;:SAVE BINARY NUMBER
;:SET POINTER

ADD
MOV
RTS
.WORD

#5,(SP)
(SP)+,2(SP)
PC
0,0

;;ONLY ALLOW FIVE CHARACTERS
;sPICKUP POINTER
s ;RETURN

(1)
(1)
(1)

037234
037242

016637
012746

000002
037264

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

037252
037256
037262
037264

062716
012666
000207
000000

000005
000002

(1)

037246

004737

037264

037040

000000

JSR

1%:

NUMBER, - (SP)

PC,a#$582D

PC,a#$DB2D

;;PUT BINARY NUMBER ON THE STACK

s CALL

;;ADDRESS OF

THE 1ST ASCIZ CHAR.IS ON THE STACK

;:CALL DOUBLE LENGTH CONVERT

MACY11 30G(1063)
31-AUG=79
TRAP DECODER
.SBTTL

C\avvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv

N N NN

NN PNNPNPNTNNNPNINNTNNSNPNNNTNININININSCNANANINNINIONINININNINTS

&uwuuww—nw“wuwwwwwuwkflwwwd_.n_a—a-a—h_a_a_a_a_a_.._‘_a—o_.._a_a_a—af\) .
~n

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

E 10

13:10

PAGE 80

SEQ 0121

TRAP DECODER

-+ L22222222222222202
222222 2 222
2Rt
R
Rt
Rl d ]

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

THE '‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F

THE DESIRED ROUTINE.

;*GO TO THAT ROUTINE.
037270

037272
037276
037300
037302
037304
037310

010046

016600
005740
111000
006300
016000
000200

$TRAP:

000002

037324

MOV
MOV
TST
MOvB
ASL
MOV
RTS

RO,=(SP)

2(SP) ,RO
-(RO)
(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

;;THIS IS USE

037312
037314
037322

011646
016666
000002

000004

000002

;:SAVE RO

;.GET TRAP ADDRESS
; ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
;:G0 TO ROUTINE

TO HANDLE THE ''GETPRI'' MACRO

$TRAP2: MOV
MOV
RTI
.SBTTL

THEN USING THE ADDRESS OBTAINED IT WILL

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

:sMOVE THE PC DOWN
;sMOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE

;*THIS

TABLE

CONTAINS

THE

STARTING ADDRESSES OF

ROUT INE

$TRPAD:

.WORD
$TYPE
$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)
GET SOFT~SWR SETTING

;*BY THE '‘TRAP'' INSTRUCTION.

THE

ROUTINES CALLED

037324
037326
037330
037332
037334
037336

(37312
034374
034702
034656
034716
033664

037340

033056

$GTSWR

;;CALL=GTSWR

TRAP+6(104406)

037342
037344
037346
037350
037352
037354

033006
033270
033410
033562
036412
036450

$CKSWR
$RDCHR
SROLIN
$RDOCT
$SAVREG
SRESREG

;;CALL=CKSWR
;. CALL=RDCHR
;;CALL=RDLIN
;. CALL=RDOCT
;.CALL=SAVREG
;;CALL=RESREG

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 NCV1T
CINCCB.P1T

DIAGNOSTIC

31-AUG=79 11:21

237
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383

037356

004737

045676

037362
037370
037372
037376
037400
037402
037410
037412
037416
037420

882777

00010C

004537
000000
040442
032777
001004
004537
002000
040444

040104

2385
2386
2387
2388
2389
2390
2391
2392
2393
2394

037422
037430
037432
037436
037440
037442
037450
037452
037456
037460

032777
001004
004537

000200

032777

000002

004537

040104

2396
2397
2398
2399
2400
2401
2602
2403
26404
2405

037462
037470
037472
037476
037500
037502
037510
037512
037516
037520

032777

000400

004537

040104

032777
001004
004537
003000
040454

000004

2607

037522

032777
001004
004537

001000

032777
001004
004537

000010

040452

000001

MACY11 30G(1063)

FSITE:

141550

141530

040104

141510

040104

F 10
PAGE 81

SEQ 0122

141470

141450

141430

JSR

A TO D FIELD SITE AND ADJUSTMENT LOOP
sTEST FOR CTRL C OR G
PC,CTRLCG

BIT

#SW06,aSWR

;TEST IF CAM 0 G=1

6SR

RS5,CONVRT

; CONVERT
;CAMERA 0
sSTORE RESULTS

LSBTTL

;CAMERA #0

BNE

1%:

CAMOG1

BIT

#SW00,aSwR

BNE
2%
RS,CONVRT
JSR
BIT10
CAMOGZ
;CAMERA #1
#SW7 ,aSWR
BIT
2%:
BNE
3%
RS, CONVRT
JSR
BIT8
CAM1G1
3%:
BIT
#SW01,aSwR
4%
BNE
RS, CONVRT
JSR
BIT10!'BIT8
CAM1G2
; CAMERA #¢

4%:

5%:

040104

BIT
BNE

JSR
BIT9
CAM2G1
BIT
BNE
JSR

#SW8,aSWR
5%

RS, CONVRT

#SW2,aSWR
6%
RS, CONVRT

BIT10!BITS
CAM2G2

141410

;CAMERA #3

6%:

040104
141370

040104

000020

141350

000001

142156

017737

142150

040462

142152

13:10

A TO D FIELD SITE AND ADJUSTMENT LOOP

032777
001011
052777
105777
100375

31-AUG-79

BIT
BNE
JSR

#SW9,aSWR
7%
RS, CONVRT

BIT

#SW3,aSWR

BIT9'BIT8
CAM3G1
BNE
JSR

108
RS,CONVRT

BIT10!BIT9!BITS8
CAM3G2
;JOYSTICK
10%:
11%:

BIT
BNE

#SWé4
, aSWR
CALRPT

TSTR

aSFR

BIS

BPL
MOV

#81T70,aSFR
11%
aJ0Y,J0YG

JTEST IF

CAM 0 G 2

; CONVERT
;GAIN = 2

STEST IF CAM 1 G6=1
s CONVERT
s CAMERA 1
sSTORE RESULTS
STEST IF

CAM 1

G=2

; CONVERT
;CAMERA 1 GAIN = 2
JRESULTS

;TEST IF CAM 2 G=1
; CONVERT
:CAMERA #2
JRESULTS
JTEST IF CAM 2 G 2
; CONVERT

JGAIN = 2
JRESULTS

:TEST

CAM 3 G

; CONVERT

:CAMERA #3
JRESULTS
:TEST

CAM 3 G=2

;s CONVERT
;GAIN = 2

JRESULTS
JTEST

JOYSTICK

;ASK FOR JOYSTICK
JWAIT FOR JOY DONE

;SAVE

THE RESULT

CZNCCB NCV1T
DIAGNOSTIC
CINCCB.P1T
31-AUG=79 11:21
5232

:NOW TEST IS TYPEOUT IS ENABLED

26427
2428

037614
037620

004537
000100

040062

26430

037624

104401

040464

26429

2431

037622

037630

000405

004537

037634
037636
037642
037644
037646
037652
037656

26440
2641
26442
2443
2444
2445
2646
2447

037660
037664
037666
037670
037674
037700
037702
037706

004537
000200
000405
104401
004537
040446
004537
000002

040062

2449
2450
gzg;

037712
037716
037722

104401
004537
040450

040541
040360
040062

037710

040442
004537
000001
000405
104401
004537
040444

000405

040062

004537
000400
000405
104401

2458
2459
2460
2461
2462
2463
gzgg

037744
037746
037752
037754
037756
037762
037766

040452
004537
000004
000405
104401
004537
040454

2466
2467
2468
2469
2470
2471
2472
2473
24764
2475
2476
gz;g

037770
037774
037776
040000
040004
040010
040012
040016
040020
040022
040026
040032

004537
001000
000405
104401
004537
040456
004537
000010
000405
104401
004537
040460

040062

2479

040034

004537

040062

004537

TYPE,

JSR

1%:

2%:

040522
040360

037724
037730
037732
037734

037740

B8R

040503
040360

2453
2454
2455
2456

2457

CALRPT: JSR
BIT6

040360

26432
26433
2434
2435
26436
2437
gzgg

2448

6 10
MACY11 30G(1063)
31-AUG-79 13:10 PAGE 82
A TO D FIELD SITE AND ADJUSTMENT LOOP

3$:

4%:

040560

040360
040062

5%:

6%:

040616
040360

7% :

040635
040360
108:

JTEST BIT 6

:BR IF SET

RS, CAMUNP

;REPORT VALUES

CAMOTX

;REPORT CAMERA #0

RS,CKTSWR

JTEST BIT O

2%
CAMOTW
RS, CAMUNP

:REPORT G=2

JSR
BIT?7
St
TYPE,
JSR
CAM1G1
JSR
BITI

RS,CKTSWR

:TEST BIT 7

3%
CAM1TX
RS, CAMUNP

:BR IF SET
;REPORT CAMERA #1
;REPORT VALUES

RS,CKTSWR

:TEST BIT 1

TYPE,
JSR
CAM1G2

BRe

CAMITW
RS, CAMUNP

;REPORT CAM 1 G=2

JSR
BIT8
BR
TYPE,

RS,CKTSWR

:TEST BIT 8

5%
CAM2TX

:BR IF SET
;REPORT CAMERA #2

RS,CKTSWR

:TEST BIT 2

6%
C(CAM2TW
RS, CAMUNP

:REPORT CAMERA #2 G=2

JSR
BIT9
BR
TYPE,
JSR
CAM3G1
JSR
BIT3
BR
TYPE,
JSR
CAM3G2

RS,CKTSWR

;TEST BIT 9

7%
CAM3TX
RS, CAMUNP

:BR IF SET
JREPORT CAMERA #3
:REPORT VLAUES

RS,CTSWR

:TEST BIT 3

108
CAM3TW
RS, CAMUNP

JREPORT CAMERA #3 (=?

JSR

R5,CKTSWR

TEST BIT &

JSR

040577
040360

040062

CAMOG1
JSR
BITO
KR
TYPE,
JSR
CAMOGZ

RS,CKTSWR

CAM2G1
JSR
BIT2
BR
TYPE,
JSR
CAM2G2

RS, CAMUNP

:REPORT VALUES

SEQ 0123

(ZNCCB NCVTT
(ZNCCB P11

2481

2482

2483
2484
2485

2486
24LB7
2488
2489
2490
2491
2492

040042
040044
040050
040054
040056

040062
040066
040070
040076
040100
040102

DIAGNOSTIC

31-AUG=79 11:21
000405
104401

004537
040462
000137
032577
001005
032777
001001
005725
000205

MACY11

31-AUG=79

30G(1063)

PAGE 82-1

SEQ 0124

JSR

JMP

FSITE

JOYG1

037356

11%:

141052

(KTSWR: BIT
BNE
BIT
BNE
18:

JOYTW
RS, CAMUNP

TYPE,

141042

A TOD FIELD SITE AND ADJUSTMENT LOOP

040654
040360

020000

13:10

TST
RTS

JREPORT JOYSTICK

(RS)+,aSwR
1%

sTEST IF INHIBIT
;BR IF YES

1%
(RS)+
RS

;BR IF YES
JBUMP EXIT POINTER
JEXIT

#SW13,aSwWR

THIS CAMERA

;TEST INHIBIT TYPE-QUT

CZNCCB NCV11 _ DIAGNOSTIC
CINCCB.P11
31-AUG=79 11:21
2494
2495
2696
2497
2498
26499
2500
2501
2502
2503
2504

040104
060110
040116
040126
040132
040140
040146
040152
040154
040162

012537
012777
013777
012777
012777
013777
012700
005001
052777
105777

2506
2507
2508
2509

040170
040172
040174
040200

005301
001373
004737
005300

2511
2512
2513

040204
040212
040214

032777
001012
113700

020000

2515
2516
2517

0402246
040230
040234

062700
110037
104401

2505 040166

100432

2510 040202 001367

2514

2518

040220

040240

2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539

040246
040250
040252
040254
040260
040262
040264
060272
040274
040276
040302
040306
040310
040312
040316
040320
040322
040324
040326
040330
040334

2541

040344

2540

2542
2543
2544
5222
2547

2548
2549

0403420

042700

032777

001401
000000
000716
012700
005003
005004
012737
112002
112001
042702
042701
060104
060203
005337
001365
006203
006203
006
006204
010437
105037

110337

013735

040350
040352
040354
040356

000205
000000
000000
000002

0460360
040364

013537
113737

040354
004000
040354
060000
177770
040356
000004
000001
141560

110
MACY11 30G(1063)
31-AUG-79 13:10 PAGE 83
A TO D FIELD SITE AND ADJUSTMENT LOOP

141640
141622
141622
141612
141610
141564

SEQ 0125

:SUBROUTINE TO TAKE 8 CONVERSIONS AND AVERAGE FOUR OF THEM
CONVRT: MOV
(R5)+,11%
;SAVE CAMERA CHANNEL
4$:
MOV
#CLRALL ,@SFR
:CLEAR THE DEVICE
MOV
118,9CSR
*SELECT CAMERA AND GAIN
MOV
#8UF 0, aBAR
*LOAD BUS ADDRESS
MOV
#-10,aWCR
*LOAD WORD COUNT
MOV
INOUTZ,aSFR
*SET Z INPUTS IF ENABLED
MOV
#4. RO
:LOAD COUNTER
CLR
R1
“FOR OUT OF RANGE VOL TAGE
BIS
#81T0,aCSR
“ENABLE THE DEVICE
1%:
TST8
@CSR
“WAIT FOR IDLE

BM]

DEC
BNE
JSR
DEC

R1
1%
PC,CTRLCG
RO

:DELAY

040355

BIT
BNF
MOVB

#SW13,aSWR
5%
11$+1,R0

JTEST IF INHIBIT TYPEOUT
*BR IF INMIBIT
*GET CAMERA #

000060
032716
032623

ADD
MOVB
TYPE,

#60,R0
RO,OUTCHN
OUTRNG

*MAKE INTO ASCII
*INSERT INTO ASCII ERROR MESSAGE
*TELL OPERATOR

045676

BNE

140726

177774

100000

BIC
140672

6% :
3%

060000
000004

040352

177400
177400

040352

040352
040353
040353

2%:

BIT

BEQ
HALT
BR
MOV
CLR
CLR
MOV
MOVB
MOVB
BIC
BIC
ADD
ADD
DEC
BNE
ASR
ASR
ASR
ASR
MOV
CLRB

MOVB

040352

040436
040437

5%:

MOV

RTS
108 :
0
11$:
0
INOUTZ: TESTZ

040440

#177774 RO
#SW15,aSWR

sTEST FOR CTRL G OR C
*FINISHED OUT OF RANGE TIMER

:MASK OFF EXTRA BITS

;TEST IF HALT ON NO CONVERSION ERROR

6%
*BR IF CLEARED
:NO CONVERT FLAG = INPUT VOLTAGE WAS OUT OF RANGE OR NO '‘Z'' PULSES
4$
#8UF 0, RO
:LOAD POINTER
R3
*CLEAR RESULT
R4
#4,108
;:LOAD COUNTER
(RO) +,R2
“GET LOW BYTE
(RO) + .R1
SGET HIGH BYTE
#177400.R2
#1776400,R1
R1,R4
:UPDATE RESULT
R2,R3
“UPDATE RESULT
108
*FINISHED ?
2%
R3
R3
Ré
R4
R4,108
;SAVE IT
10$+1
“CLEAR HIGH BYTE

R3,108+1

108$,3(RS) +

*LOAD HIGH BYTE

*SAVE THE RESULT

;0= USE CUSTOMER 2 PULSES, 1= MAINT 7 PULSES

:SUBROUTINE TO TYPE THE CAMERA MESSAGE
CAMUNP: MOV
a(RS)+,108
MOVB
108+1,11$

:GET

RESULT

MACY11

DIAGNOSTIC

31-AUG=79 11:
105037
105037

013746
104403
003
104401
013746
104403
003
000240
000240
000240
000205
000000
000000
000000
000000
000000
000000
000000
000000
000000

2581
2582

040436

2583
2584
2585
2586

2587
2588

2589
2590

00?

JAND TRALING ASCII

:TYPE 3 DIGIT NUMBER

NOP
NOP

JEXIT

10%:
11%:

:
CAMOG1
CAMOGZ:
CAM1G1:
CAM1GZ2:
:
CAM2G1
CAM2GZ2:
CAM3G1:
CAM3GZ2:
JOYG1:

031075

012
030115
020061

020061
036530

012
046501

012

046501

020060
036530

031075

030460
054040

012
030115
020061

020062
036530

012
046501
031075

031060
054040

012
030115
020061

020063
036530

012

046501

031075

SEQ 0126

;TYPE 3 DIGIT NUMBER

.BYTE

043440
000075
015
040503
036507
000
015

043440

PAGE 83-1

TYPE,
MOV
TYPOS

030060
054040

103

J 10

TYPOS

001
040672
040440

012
030115
020061

043440
000075
015
040503
036507
000
015
103
043440
000075
015
040503
036507
000
015

13:10

CLRB
CLRS
MOV

015
040503
036507
000
015

103

31-AUG=79

A TO D FIELD SITE AND ADJUSTMENT

040437
040441

000000
000000

103

30G(1063)

CZNCCB NCVTTY
CZNCCB.PT

031460
054040

CAMOTX:

.BYTE
ASCIZ

G=1 X=/

CAMOTW:

.BYTE
.ASCIZ

6=2

CAMTTX:

.BYTE
LASCIZ

6=1

CAMTTW:

.BYTE
LASCIZ

X=/

CAM2TX:

.BYTE
LASCIZ

6=1 X=/

CAM2TW:

.BYTE
LASCIZ

6=2 X /

CAM3TX:

.BYTE
LASCIZ

6=1 X=/

CAM3TW:

.BYTE
LASCIZ

6=2

K 10
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 832
A TO D FIELD SITE AND ADJUSTMENT LOOP

CZNCCB NCV1T
DIAGNOSTIC
CZNCCB.PIT
31-AUG=79 11:21
2591
2592
2593
2594
2595

040652
040654
040654
040656
040664
040672
040676
040704
040712
040720

000075

015
047512
045503
054440
005015
051105
046101

012
051531
054040
000075
044504
047105
046040
044522

043106
044524
047111
054524

040505

044524
000075

JOYTX:
JOYTw:

.BYTE
LASCIZ

15,12
/JOYSTICK X=/

G1B:
GAIN:

ASCIZ
.ASCII

/7 Y=/
<15><12>/DIFFERENTIAL LINEARITY:/

2596

040727

040

020040

040326

GAINX:

.ASCII

2597

040741

061

040

GAIN1:

.BYTE

61,40,40,0

2598
2599

040745
040752
60
040761
040766
040774

040
046888

026455
041123

000040
005015

DASH:
LSBMSG:

.ASCIZ
.ASCIZ

/ ==/
/ LSB/<15><12>

040
042520
052101

050111
052123
024523

SKPMSG:

.ASCIZ

/ SKIPPED STATE(S)/<15><12>

2601

041005
041012

040
047522

045523
020104
024105
000
025052
025122

051105
006452

ERMSG:

.ASCIZ

/ **ERROR**/<15><12>

2602

041022
041030
041034
041042
041050

020040
006513
047040
020127
024688

020040
000012
051101
052123
024523

047440

OKMSG:

.ASCIZ

047522
052101
005015

NARMSG:

.ASCIZ

# NARROW STATE(S)#<15><12>

040

044527
0405246
006451
052101
044527
000012
041123
046511
020124
000

042504
042524
000012
026505
052104

WIDMSG:

.ASCIZ

# WIDE STATE(S)#<15><12>

STATE:

.ASCIZ

/STATE-- WIDTH/<15><12>

046440
051525
000

LINEA:

.ASCIZ

/ LSB MAXIMUS AT /

SLASH:

#/4

041501
054503

MSG21:

.ASCIZ

020105
040522
000012
047522
051501
041440
052105

052101

020115
044524
046517
042105

COMP:

_ASCIZ

<15><12>/ROM BLASTING COMPLETED/

TIMEO:

.ASCII

<15><12>/TIMEOUT FROM BLASTER

R
R

057
122

053111
052503
006472
005015
046102

N oo

358

e e

046040
054101

046105

042524

020122

256

020113

053523

052111

—a

051501

046511

052012

015

2610

20055

oF JIIRFBESRRIRRSN
YN

2609

e e e L

2607
2608

noronshorONY

2606

—

2605

051440
051450
052123

041057
064
-]

2604

2603

2600

SEQ 0127

.ASCIZ

GAIN =

0K/<15><12>

/RELATIVE ACCURACY:/<15><12>

CHECK SWITCHES ON BLASTER/

CZNCCB NCVTT
DIAGNOSTIC
CZNCCB.P1T
31-AUG=79 11:21

2611

2612
2613

2614

2615
2616

2617
2618

2619

2620
2621
2622
2623

2624
2625

2626
2627

2628

041264
041272
041300
041303
041310
041316
041324
041332
041340
041342
041344
041352
041360
041366
041374
041402

044103
020116
042524
015
051040

31-AUG=79

13:10

L 10
PAGE 83-3

047440
051501
LASCIZ

<15><12>/ OR REPLACE ROM IN BLASTER/<15><12>

FIELDI:

.BYTE
.ASCiZ

15,12

051105
043117
051440
020123

AVRGO:

LASCIZ

<15><12>/AVERAGE OF

007
042105
051117
047511
047125
047506

UNF IX:

.BYTE
LASCIZ

/EXCEEDED CORRECTION COUNTER FOR /

007
046102
043516
052122

ABORTB:

.BYTE
LASCII

/ROM BLASTING ABORTED/

.BYTE

15,12.7.0

SGNVL1:

[

53,40
60,60,56,60,45,15,12,0

051117
040514
046517
046102
006522

/INTERNAL MAINT.

Z PULSES <Y FOR YES>

037123

007

046040
005015
040
042105
040
042105

SEQ 0128

A TO D FIELD SITE AND ADJUSTMENT LOOP

047122

041410
041414

041422
041430
041436
041444
041447
041452
041460
041466
041474
041502
041510
041513
041516
041524
041532
041540
041542
041545
041546
041554
041556
041561
041564
041566
041571
041572
041600
041606
(041611
041616
041624
041632
041640
041646
041651
041656
041663
041670

051505
046105

MACY11 30G(1063)

128 STATES = /

15,12,7

020040

:
SGNVAL

056
015

PERTXT:

LASCII
.BYTE
.BYTE

000

RTN:

.BYTE

15,12.0,0

053517
052111

BELMSG:

LASCIZ

/ BELOW LIMIT/<15><12>

046522
040524
000012
042526
052111

NORMSG:

LASCIZ

/ NORMAL STATES/<15><12>

ABOMSG:

LASCIZ

/ ABOVE LIMIT/<15><12>

051523
000
046111
000

PASMSG:

LASCIZ

/ PASSED/<15><12>

FAIMSG:

LASCIZ

/ FAILED/<15><12>

? /

CZNCCB NCV1T
CZNC(B.P1T

2630
2631
2632
2633
2634
2635
2636
2637

DIAGNOSTIC

31-AUG-79
041676
000000
000000
000000
000000
000000
042132
027340

MACY11 30G(1063)

31-AUG=79

13:10

M 10

PAGE 83-4

ATOD FIELD SITE AND ADJUSTMENT LOOP

.EVEN
0
0
0
0
DIFEX1: 0
LSBAVG:
LSBSVQ:
LSBSVR:
LSBSVW:

: ROMVAL
ROMPNT

: 12000.
NOMIAL

JAVERAGE COUNT

; THESE LgC.'S CLEARED BY DIFLIN
:
AVGVAL

DIFERR: 0

BELOW:
:
ABOVE
:
NORMAL
NARROW:
:
NARA
NARB:
WIDA:
WIDB:
DIF:
ouUT:
FIRST:

0
0
0
0
0
0
0
0
0
0
0

SEQ 0129

CZNCCB NCVTT
CZNCCB.P11T

DIAGNOST IC
31-AUG-79 11:2

MACY11 30G(1063)

31-AUG=79

13:10

N 10

PAGE 84

SEQ 0130

A TO D FIELD SITE AND ADJUSTMENT LOOP

;KEYBOARD CONVERSATION TO THE BLASTER

SELECT TEST 'T''

;APPLY POWER TO BLASTER AND DEPRESS I/0 AND EXECUTE BUTTONS

sALL INDICATORS SHOULD LIGHT
THE BLASTER SHOULD SEND A ‘"' CHARACTER
;TYPE THE COMMANDS FOLLOWED BY
A ''CR'‘, SOME WILL ECHO THE CR AND OTHERS

:WILL NOT

KF2/2
FM30
SP[0037/8]

;TYPE

D00/37

LOOPC:

TSTB
BPL
NOP
NOP
NOP
MOV
INC

aDLICSR
LOOPD

;BLASTER INPUT ?
:NO

abLIBD, (RO) +
BLICNT

;SAVE THE CHARACTER
;UPDATE COUNTER

TSTB

a$TPS

;PRINTER READY ?

TST

BLICNT

;ANY CHARACTERS

MOV
DEC
BNE
MOV
MOV

(R1)+,a8TPB
BLICNT
LOOPC
#8UF0,RO
RO,R1

;TYPE

105777

137724

137712
042130
105777
100363

137152

005737
001413
012177
005337
001353
012700
010001
005037
000745

042130

105777

137104

LOOPD:

BPL

042130
BTALK:

042130

CLR
BR

;THIS SETS OCTAL COMMAND MODE
:THIS SET OCTAL INPUT/OUTPUT
;THIS SIZES THE PROM -- 0037/8 IS REPORTED BY THE BLASTER
:THIS READS THE PROM INTO THE RAM

s THIS OUTPUTS THE RAM CONTENTS

BEQ

137140

060000

TYPE "ESC''/''ALT'' KEYS TO ABORT CURRNET COMMAND

STYPE
;TYPE
;TYPE

sTHIS EXITS COMPUTER CONTROL

LOOPC

LOOPE

;BR IF NOT

:BR IF NOT

;PRINT THE CHAR.
;BR IF MORE DATA

BLICNT
LOOPC

;COME HERE IS NO BLASTER DATA TO BE TYPED
TSTB
a$TKS
;KEYBOARD INPUT
BPL
LOOPC
:BR IF NOT

LOOPE:

137100
177600

MOV

@$TKB,R2

;READ CHAR

000177

BIC
CMP
BEQ
CMP

#177600,R2
#3.R2
2%
#177 ,R2

sMASK THE DATA
sTEST FOR CTRL C
:BR IF CTRL C
;TEST FOR RUBOUT

000140

CMP

R2 #140

;TEST IF LOWER CASE

BIC

#40 R2

JMP
MOV

RBEGO
#33,aDLODB

000003

BEQ

BLO

000040
137600
002646
000033

000134

1$:

137564
137024

2%:
LOOPF:

MOV
BR

MOV
BR
BLICNT: O

LOOPF

R2,aDLODB
LOOPC

#'\,a8TPB
LOOPC

:BR IF ESC

:BR IF NOT

;MAKE UPPER CASE

;LOAD BLASTER DATA OUT

;JUMP TO RESTART
sLOAD ESC <CANCLE>

TO THE TTY

TO THE BUTTON MODE

CZNC(CB NCVTT
CZNCCB P11

DIAGNOSTI C
31-AUG=79 1 |& 21

2705
2706
2707
2708

MACY11 30G(1063)

31-AUG=79

13:10

B 11

PAGE 85

A TO D FIELD SITE AND ADJUSTMENT LOOP

;A017 CORRECTION PROM VALUES

200
200

:
ROMVAL

.BYTE

200,200,200,200,200,200,200,200 ;GAIN = 1 VALUE

2709

200
200

.BYTE

200,200,200,200,200,200,200,200

2710

200
200

.BYTE

200,200,200,200,200,200,200,200 ;GAIN = 2 VALUE

2711

200
200

.BYTE

200,200,200,200,200,200.200,200

2712
2713
2714
2715
2716

;AG17 CORRECTION PRAM VALUES

;ROMVAL MUST BE IN COMPLEMENTED AND REVERSED ORDER <L SB=MSB>

376
376

:
RAMVAL

.BYTE

376.376,376,376,376,376,376,376 ;GAIN = 1 VALUE

2717

376
376

.BYTE

376,376,376,376,376,376,376,376

2718

376
376

.BYTE

376,376,376,376,376,376,376,376 :GAIN = 2 VALUE

376
376

.BYTE

376,376,376,376,376,376,376,376

.BYTE

215,244 ,116,144,215,244,116,144 ;MB8036 PROGRAM PROM

116

.BYTE

215,244,116,144,215,244,116,144

314
377

.BYTE

106,144,314
,304,377 ,377,377 ,377

377
377

.BYTE

,377
7,377
,377
377,377,377,377,37

116

244
244

PROROM:

R& o R AN Jo RAV

W= = )=
al)

;M8036 PROGRAM PROM VALUES

SEQ 0131

CZNCCB NCV11 _ DIAGNOSTIC
CINCCB.PI1
31-AUG=79 11:21
2729
2730
2731
2732
2733
273,

042272
042276
042302
042310
042314

104401
104401
042777
004537
052560

273
2737
2738
2739
2740

042322
042324
042330

052562
004537
052571

043062

042332

012700

042132

27642
2743
27644
2745
27646
2747
27648
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772

042342
042346
042350
042356
042362
042364
042366
042374
042402
042406
042414
042420
042422
042424
042432
042440
042444
042446
042454
042462
042470

022700
001373
012737
004537
046072
046112
112737
012737
004737
012737
004537
046132
046152
112737
012737
004737
000436
012737
012737
012737
004737

042172

042474

000137

043720

042504
242510
042512
042516
042520
042524
042530

005337
001361
005737
001410
104401
104401
104407

042616

2735

27641

042316

042336

042500

2773 042534

2774

042540

004537

112720

00473_7

050762
051374
000001
043062

137366

043062

000036
046006

JSR

1$:

P
046002

000061
042133
042446
002036
046006

040741
041710

000062

040741

000003
000001
042500
042620

042616
041706
046004

042153
042446

043360

:BLASTER SECTION
BLAST:
TYPE,
PRIMO
TYPE,
PRIMS
BIC
#IT0,aDLICSR
JSR
RS,RDBLST
ESCP

046002

041710

4$:
5%:

6%:

041716
041447
040727
041513

RS ,RDBLST

KFO
JSR
RS,RDBLST
FMO
;PRIME THE I'EN)RY RAM BUFFER
#ROMVAL ,RO

000200

000137 002646
000207

cNn
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 86
A TOD FIELD SITE AND ADJUSTMENT LOOP

7%:

8%:

Move

CMP
BNE
MOV
JSR
G1LIMO
GILIM
MOVB
MOV
JSR
MOV
JSR
G2L IMO
G2LIM1
MOVB
MOV
JSR
BR
MOV
MOV
MOV
JSR

#200, (RO)+

JTELL. THE BLASTER THE KEYBOARD INPUT MODE
JTELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>
:GET POINTER

:LOAD THE BUFFER

DEC
BNE
TST
BEQ
TYPE,
TYPE.
TYPE,

JTEST IF DONE
;BR IF BUFFER NOT PRIMED
:LOAD GAIN AND RESOL. VALUES
:LOAD DIFLIN ERROR LIMIT VALUES
:G1 LIMIT = USERS
;G1 LIMIT - OPTION CHECKOUT
#'1,GAIN1
*LOAD GAIN TYPEOUT VALUE
#ROMVAL +1 ,ROMPNT
:LOAD RAM POINTER
PC,4$
;TEST THAT GAIN
#2036 ,PRIME1
*LOAD GAIN AND RESOL. VALUES
RS,LIMITS
;LOAD DIFLIN ERROR LIMIT VALUES
262 LIMIT = USERS
262 LIMIT - OPTION CHECKOUT
#'2,GAINT
;LOAD GAIN TYPEOUT VALUE
#ROMVAL +21,ROMPNT
:LOAD RAM POINTER
PC,4$
;TEST GAIN OF 2
108
#3,1008
;LOAD LOOP COUNTER
#1,DIFEXT
;LOAD DIFLIN EXIT FLAG
#6$ ,DIFEXO
LOAD DIFLIN EXIT RETURN
PC,ZAPRAM
ENSLRE BLASTER RAM HAS BEEN LOADED WITH
:THE 'RAMVAL'' VALUE
DIFLNO
*RUN 'DIFLIN''
PC,ADJFIX
;ADJUST AND FIX THE CORRECTION WEIGHTS
1008
*HAS THIS SECTION BEEN EXECITED N TIMES
5%
*BR IF NOT
DIFERR
JTEST IF ERROR OCCURRED?
8$
*BR IF NOT
UNF I X
:TELL THE OPERATOR
GAINX
“ABOUT IT
ABORTR
;TELL OPER. THE BLASTING IS ABORTED

RTS

JMP

JSR

JMP

lRCMVALMO RO
1%
#36,PRIME1
RS,LIMITS

;TELL OPERATOR ABOUT THE CABLE
“AND SWITCHES
-ENSURE INIT. ROM CONTROL LINE
STELL THE BLASTER TO INITILIZE
*REALLY WE ARE WAITING FOR THE OPERATOR

RBE GO

*RESTART
CEXIT

SEQ 0132

13:10 PAGE 87
A TO D FIELD SITE AND ADJUSTMENT LOOP

JSR
CMO
JSR
cco
JSR

043062
043242
043062

(SP)+ R0

CoOMP

RBEGO

INSTERT ROM INTO A017

;CLEAN STACK

s COMPLETED

ROL
ROR
ROL

R2
R1
R2

MOVE

R2.,(R3)+

g:"f’

R1
R2
R1
R2
R1
R2
R1
R2
R1
R2
R1
R2

RgJAROMVAL +40

s MOVE INTO CARRY BIT
s MOVE CARRY INTO BIT
s MOVE INTO CARRY BIT
s MOVE CARRY INTO BIT
;MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT
sMCVE INTO CARRY BIT
sMOVE CARRY INTO BIT
s MOVE INTO CARRY BIT
:MOVE CARRY INTO BIT
. MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT
sMOVE INTO CARRY BIT
;MOVE CARRY INTO BIT
s SAVE OUTPUT BYTE
;TEST IF

R1
R2

(RO)+,R1

comMB
CLR

;LOAD OUTPUT POINTER
;LOAD INPUT POINTER
;GET A BYTE
s INVERT VALUE
sCLEAR RESULT
;MOVE INTO CARRY BIT
;MOVE CARRY INTO BIT

#RAMVAL ,R3
#ROMVAL ,RO

MOVB

ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL
ROR
ROL

042172

;TELL OPERATOR TO REMOVE RAM CABLE AND

TO CONVERT THE MEMORY RAM VALUE INTO RAM MEMORY VALUE

ROR

e N

PRIM1

1%:

D e
e

TYPE,

JAPRAM: MOV
MOV

042172
042132

e e N S

e
d
d
e

;SET FLAG TO EXIT WITHOUT RECPT OF '>'' (HAR FROM BLASTER
sTELL THE BLASTER TO RETURN TO KEYPAD MODE

100%:
; SUBROUTINE

o S W W W

NOEXIT
RS ,RDBLST

JMP
0

sTELL THE BLASTER TO CHECK=SUM DATA

THE DATA

;TELL THE BLASTER TO BLAST THE ROM

TYPE,

005002

RS ,RDBLST

THE BLASTER TO COMP.

RS ,RDBLST

MOV

105101

PNPNPNPNPNANPINININININININ

sTELL

PGO
INC
JSR
ZP0

RDLIN

041170
002646

END

:BR IF NOT
;SUBROUTINE TO LOAD MEMORY RAM INTO RAM MEMORY
JSR
RS, CONROM
;CONVERT 'ROMVAL'' TABLE INTO BLASTER FORMAT

043244
136754

043062
043062
000001

RS ,RDBLST

; INFORM THE OPERATOR ABOUT THE BLASTER ROM

051765

000001
043062

SEQ 0133

625 RAM DATA IS NOW CORRECT = BLAST THE BLANK ROM

043062

012703
012700
112001

D N

31-AUG=79

004537

MACY11 30G(1063)

DIAGNOSTIC
31-AUG=79 11:21

CZNCCB NCV1T
CZNCCB.PT

136724

RAMVAL

BIS
JSR
DIO
JSR
cco
JSR

#B1T0,aDLICSR
RS,RDBLST

;ENABLE RAM MEMORY TO BE LOADED
sTELL THE BLASTER THE NEW RAM DATA

RS ,RDBLST

sTELL THE BLASTER TO CHECKSUM THE DATA

RS.,RDBLST

sTELL THE BLASTER TO PROGRAM THE RAM-PAK

BIC

#1T0,aDLICSR

:PE;;NTER EMMULATE MODE

PGO
RTS

CZNCCB

NCVIT

CZNCCB.PTT

DIAGNOSTIC
31-AUG- 79 11:21

ET1T

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 88
A TO D FIELD SITE AND ADJUSTMENT LOOP

:BLASTING THE PROGRAM PROM (M8036)
104401

051536
000001
043062
043062

043062
043244

043062
043062
043062
043242
043062

041170
002646

136710

PBLAST: ;}'EE.

JSR

PRIM3
#BITO,@DLICSR

R5,RDBLST

SEQ 0134

’

s INFORM THE OPERATOR
;ENSURE ROM MODE

sTELL THE BLASTER TO INITILIZE

Sggp R5 ,RDBLST
Sgg
R5,RDBLST
Sg
RS, CONROM
JPRS?(H R5 ,RDBLST
gég
R5,RDBLST
Sgg
R5,RDBLST

;TELL THE BLASTER THE KEYBOARD INPUT MODE
;TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL>
;CONVERT THE "PROROM'' TABLE INTO BLASTER FORMAT
sTELL THE BLASTER THE PROM DATA
;TELL THE BLASTER TO CHECKSUM THE DATA
;TELL THE BLASTER TO BLAST THE PROM

i%‘

; INFORM THE OPERATOR IT'S DONE

%”E(:O

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

MACY11 30G(1063) 31-AUG=79 13:10 PAGE 89
A TOD FIELD SITE AND ADJUSTMENT LOOP

2843

2844
284S

;COME THERE TO OUTPUT A MESSAGE TO THE BLASTER
sEXIT ONLY WHEN THE BLASTER HAS ECHOED AN 'S>''

2846
2847 04
saa 0%
9 04
2850

043074

*REPORT AN ERROR UPON TIMEOUT UNLESS 'NOEXIT'' IS NON-ZERO
010046
RDBLST: MOV
RO,~(SP)
:SAVE RO
015500
MOV
(R§)+ RO
‘GET ARG.
012737 000012 043240
MOV
#10.,13s
*LOAD DELAY FOR ERROR COUNTER
111037

043232

063106

105777

136570

2854

043114

105737

043232

2851 043100 o177§7 136574 043234
2853

043112

100375

2855 043120 oou.og
56 0463122 112037
2857 043126
001403
2858
2859

2860
2861
%
2864
2865
2866
2867
2868
2869
2870
2871
28
28

2874

043130
043136

043142
043146
043150
043152
o:.gm
043160
043164
043166
043172
043176
04
043212
043220
0463222
043224

113777
105777

100415

1$:

043232
043232
136534

005337

136546

28:

043240

001367
005737 043242
001016
104401 041221
0001
omg 136476 043234
0462737 177600 043234
022737 000076 043234
001332
012600

005037

0632

000205

2877
2878
2879

043232
043234
043236
043240
043242

000000
000000
000000
000000
000000

043242

TSTB
TSTB

005337 043236
001372

g;z

2881

MOVB

MOV

48
5%:

:LOAD A CHAR

aDLOCSR

:WAIT FOR OUTPUT READY

108

BEQ
MOVB
BEQ

2
(RO)+,10%
28

aM]
DEC
BNE
DEC
BNE
TST
BNE
TYPE,
JMP
MOV
BIC
cMP

4
12%
2
13s
23
NOEXIT
58
TIMEO
RBEGO
abLIBD,11$
#177600,11%
#'>.118

CLR

NOEX]T

MOVB
TSTB

BNE
MOV
RTS

08:
118:
128:
138:
NOEXIT:

(R0O),108

abLIBD,11$

0
0
0
0
0

10$,abLODB
@DLICSR

13
(SP)+ R0

“FALSE READ TO CLEAR READY
JTEST IF FINISHED ?

:GET A CHAR.

‘BR IF TERM

*OUTPUT THE CHARACTER
‘WAIT FOR INPUT

‘BR IF INPUT
*DELAY
:DELAY

sTEST IF EXIT IS ALLOWED WITHOUT *'S'*

‘BR IF YES

:READ (HAR

‘MASK OFF BITS
“TEST FOR >

:TRY NEXT CHAR.
:RESTORE RO
SEXIT

SEG 0135

TIC

n 21

6 1
E1-AUG-79 13:10 PAGE 90
ATODF
T
1ELD SITE AND ADJUSTMENT LOOP

MACY11 30G(1063)

:CONVERT ROM DATA INTO PROM BLASTER FORMAT
CONROM: MOV
#DIDATA+3,R0
:LOAD RESULT POINTER

052612

043322
000040

043344

043322

18:

MOV
MOV
ADD

(RS)+ ,R1
R1,108
#40,108

*LOAD INITIAL VALUE POINTER
:COPY THE START
*MAKE THE END ADD. SS

JSR

PC, SHUFO
(R1).R2
PC,SHUF3

*CONVERT IT TO ASCII
*GET SAME BYTE AGAIN
*CONVERT 2ND DIGIT

JSR
ADD

PC, SHUF 6
#7.RO

*CONVERT T
*UPDATE RESULT POINTER

BNE

MOVB

mov8

043336

mOvB

043324
000007
043322

RRRRRRRRRRRRRRR

CINCCB NCVI
DI
CINCCB.P11
3

108:

RTS
0

(R1J.R2

(R1)+.R2

R1.108
RS

“GET A BYTE OF DAIA

:GET MSD

“TEST IF DONE
SEXIT

:ROTATE THE DATA RIGHT AND MAKE ASCII CHARACTER
177477

SHUF6:

SHUF3:
177770
000060

SHUFO:

BIC

#177477 .R2

ASR
ASR
ASR

R2
R?
R2

ASR
ASR

R2
R2

ASR

BIC

#177770.R2

:MASK OFF BITS

R2.-(RO)

*LOAD RESULT BYTE

ADD

#60,R2

RTS

MOVB

:MASK OFF BITS

*MAKE ASCII
TEXIT

SEQ 0136

CINCCB

NCVI1

CINCCB.P1T

DIAGNOSTIC

31-AUG=79 11:21
81 700

062036

1§702 041710

H 11

MACY11 30G(1063) 31-AUG=79 13:10 PAGE 91
A TOD FIELD SITE AND ADJUSTMENT LOOP

;SUBROUTINE TO ADJUST THE LSB VALUES
ADJFIX: MOV
#BUF1+36 RO
:GET BUFFER POINTER

MOV

010%:

000017
12001
1001
163701 041714
1637201 041714

MOV

108:

10137
041704
1g1l.6
1 ;/39 oggsw

81%87

036506
0‘;542

013746

043542

012637 041702
012637 041700

JSR
MOV

PC,.SMULT
(SP)+,100%

;SAVE LSW

MOV
MOV
JSR
BVC

HALT

R1,LSBSWVW
R1.=(SP)
#316,-(SP)

(SP)+,101$

18:

MOV
MOV

“SAVE MSW

1018, -(SP}
AVGVAL
, = (SP)
PC.SDIV
18

:BR IF NO ERROR
* VALUE OUT OF RANGE

:MATH ERROR

NOP

:SAVE FOR LATER USAGE
*SAVE ON STACK
“MULTI BY 316 (8)

1008 .,~(SP)

HALT

000240

:MAKE END VALUE
*GET LSB (17) M=1
*ADD LSB (00) M
*SUB 2 LSB AVG.

MOV

000000

“GET ROM POINTER

7 Ré
(ROS+,R1
(RO) ,R1
AVGVAL ,R1
AVGVAL ,R1

MOV

013746 043544
013746 041714
004737 036620
102004

R2 R4

ADD
MOV
ADD
SUB
SuB

MOV
MOV
MOV

12637 043544

ROMPNT ,R2

(SP)+,LSBSVR
(SP)+.LSBSVQ

:SAVE INTGR. REMAINDER
:SAVE QUOTIENT

:NOW ADD THE QUOTIENT TO THE MEMORY RAM VALUE

111203
000240
042703 177400

MOVB
NOP

110322

163703 041700

22‘355%

2954
2955
2956
2957
2958

(R2).R3

:GET CURRENT MEMORY RAM VALUE

BIC

#177400,R3

:CLEAR OFF UPPER BITS

MOVB

R3,(R2)+

"RELOAD MEMORY RAM VAL UE

SuB

LSBSVQ,R3

“ADD THE QUOTIENT

:NOW UPDATE ‘TM'’ VALUE POINTER

043520
043524
043526
043532
043534

062700 000036
011001
063701 041704
010110
020204

% 043536 001317
22325

043540

000207

2963
2964

043542
043544

000000
000000

1008:
101$:

ADD
MOV
ADD
MOV
P
BNE

#36 R0
(ROJ ,R1
LSBSVW,R1
R1, (RO)

:UPDATE POINTER
“GET VALUE
“CORRECT THE VALUE (#10)
*RESTORE FOR NEXT USAGE

10§

‘BR UNTIL DONE

RTS

SEXIT

0
0

R2.R4

“TEST WHEN FINISHED

SEQ 0137

CINCCB NCVTT
DIAGNOSTIC
CINCCB.P1
31-AUG=79 11:21

005037

041706
000061
001134

; ;DIFFERENTIAL LINEARITY

040741

DIFLIN: CLR

mMovB
TSTB

BNE

050762
000036
046006

046002

043632

046004

000062
002036
046006

040741
046002

043700
001134

046004

050022

041746

.
3

SRR
RIS

BELLE

004737
022702
001773
105077

045474
000000

017737

135724

135734

152777

000002

004737
022702

045474
000377

TYPE,
MoV

JSR
GI1LIMO
GILIM
MOV
BR
MOovB
MOV
JSR
G2LIMO
G2L IM
MOV

DIFLIN

PRIMO
#36 ,PRIMET

RS,LIMITS

#18,DIFEXO
DIFLNO
#'2,GAINT
#2036 ,PRIME1
R5,LIMITS
#2% ,DIFEXO
$AUTOB

118

TYPE,

GAIN

CMP
BNE

#=1,RUNDIF
3%

118:

3%:

JMP
JMP

1$:

064000

000000
000025

10%

BNE

060000

012777
012777

BMI

TSTB

2%:

10%

DIFLNO

$EOP
RBE GO

;DIFLIN ROUTINE
DIFLNO: MOV
#AVGVAL ,RO
DIFLNX: CLR
(RO)
+
CMP
#F IRST+2
RO

041714

045630

1$:

$AUTOB

GAIN

BNE

030100
002646

004737

108:

DIFEX1
#'1,GAINT

TYPE,

TST

040676

001374

13:10 PAGE 92
A TO D FIELD SITE AND ADJUSTMENT LOOP

040676
043546

177777

31-AUG=79

MACY1T 306(1063)

MOV
CLR

DIFLNX

#BUF0 RO
(RO)
+

SEQ 0138

;CLEAR EXIT FLAG
;LOAD GAIN MESSAGE VALUE
JTEST IF UNDETM MONITOR
YES
:BR IF

;TEST BIT 15
;DONT TELL OPER. ABOUT AQ17
;TELL OPERATOR ABOUT A017
;LOAD RESOLUTION AND GAIN
sLOAD DIFLIN TOLERANCE
;G1 USER LIMIT
:G1 OPTION AREA
;LOAD RETURN ADDRESS

;LOAD GAIN MESSAGE VALUE
;LOAD RESOLUTION AND GAIN
;LOAD DIFLIN TOLERANCE

;G2 USER LIMIT
;G2 OPTION AREA
;LOAD RETURN ADDRESS
JRUNNING UNDER MONITOR
:BR IF YES

JENTER VIA "F'' SELECTION ?
;BR IF NOT
;YES REPORT END OF PASS

;LOAD CLEARING POINTER

;FINISHED ?
;BR IF NOT DONE
;LOAD BUFFER POINTER
;CLEAR THE DATA BUFFER

;TEST IF FINISHED
CMP
#BUF
2 ,RO
BNE
1%
:BR IF NOT
;LOOK FOR THE DATA REGION FOR TO
JSR
PC,STDATO
;FIND THE NON-ZERO TO ZERO TRANS. DATA

:DATA HAS NOW GONE INTO THE GOOD O DATA REGION
MOV
aKWPSR
JINIT THE CLOCK PRESET
;ENABLE THE CLOCK

és
135726
045666

MOV
JSR

c2§aKWC SR
PC,LISTDT

TIME "'T1'' LENGTH

CMP
#0_R2
BEQ
28
aKWCSR1
CLRB
#BIT1,aKWCSR1
BISB
aKWPSR,DIFT1
MOV
:NOW TIME '‘T2'' LENGTH

3s:

JSR
CMP

PC,LISTDT
#377.R2

;GET CURRENT DATA VALUE
sTEST FOR EXIT OF

sBR UNTILL DONE

O DATA REGION

*FIRE ST2

*SAVE COUNTER VALUE
;GET CURRENT DATA VALUE
sTEST

FOR ENTRY

INTO MAX DATA REGION

CZNCCB NCV11 _ DIAGNOSTIC
CINCCB.P1T
31-AUG=79 11:21
3022
3023
3024
3025
3026
3027

044032
0440364
044040
044046

001373
105077
152777
017737

135702
000002
135672

044054

004737

045474

3009
3030
3031
3032
3033
3034
3035

044064
044066
044072
044100
044106

001773
105077
152777
017737
005077

135650
000002
135640
135626

044112

013700

045670

J 1
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 92-1
A TO D FIELD SITE AND ADJUSTMENT LOOP

135674
045670

3028 044060 022702 000377

3036 044116

063700

3037 044122 006000
044126

010037

045674

044130

004737

045630

3043
3044
3045

044134
044140
044142

013700
005400
010077

045674

3047

044154

012777

004000

3049
3050
3051
3052
3053
3054
3055

044170
044174
044200
044206
044214
044222
044230

3042

3046

3048

044146
044162

3056 044234

3057

044236

CMP

135642
045672

045672

3038
3039
3040
3041

135576

ROR

012777

060000

135560

052777

000400

:FIRE ST2
*SAVE COUNTER VALUE

037 JR2

:GET CURRENT DATA VALUE

DIFT3.RO

“ADD T3 VALUE

*AND DO AN MATRIX MODE COLLECTION

135564

100375

:BR IF NOT

;TEST FOR EXIT OF MAX DATA REGION

MOV
RO,HT2T3
*SAVE FOR LATER USE
:NOW RETURN TO LIST MODE AND LOOK FOR THE NON-ZERO TN ZERO EDGE AGAIN
DIFLNT: JSR
PC,STDATO
:FIND THE EDGE
;NOW START THE CLOCK USING THE AVG TIME

000020

135556
135554
046002
000022
000001
000001
135504

3$
@KWCSR1
#BIT1,aKWCSR1
@KWPSR,DIFT2
LENGTH
ISTDT

BEQ
43
‘BR IF NOT
CLRB
aKWCSR1
BISB
#BIT1,aKWCSR1
;FIRE ST2
nov
aKWPSR,DIFT3
*SAVE COUNTER VALUE
CLR
aKWCSR
:STOP_CLOCK
3
:NOW DETERMINE THE AVG TIME (T34T2)/2 AND SAVE IN 'MHT2T3
MOV
DIFT2,RO
:GET T2 VALUE

ADD

012777

005077
005077
013777
052777
052777
052777
105777

BNE
CLRB
BISB
MOV__
:NOW TIME ''T3
i$:
JSR

SEQ 0139

135512

HT2T3,R0
RO
RO, aKWPSK

:GET AVG CLOCK
*FIX FOR CLOCK PRESET REG
*LOAD CLOCK PRESET

MOV

#CLRALL, aSFR

YINIT THE NCV11

MOV

135574

135540
135542
135524
135510

MOV
NEG
MOV

MOV

1$:

CLR
CLR
MOV
BIS
BIS
BIS
TSTB

8PL

BIS

#20, aKWCSR
#BUF 0, 30F F

aWCR
aBAR
PRIME1,aCSR
#TESTZIBIT4,aSFR
#81T0,aCSR
#B1T0.aKWCSR
aKWCSR

#ENDDMA ,aSFR

*PRIME CLOCK
*LOAD OFFSET

*CLEAR Z COUNTER
:
*SET MODE AND RES.
*SET TESTZ AND TESTX
*ENABLE NCV11
*ENABLE CLOCK
*WAIT FOR CLOCK FLAG
;STOP DMA XFR

CZNCCB NCVIT
CZNCCB.P1T

DIAGNOSTIC

31-AUG=79 11:21

MACY11 30G(1063)

050014
060000
062000

;NOW ADD THE CURRENT BYTE DATA COLLECTION INTO A TOTAL INCREMENT BUFFER
STEMP1
CLR
MOV
#BUF0,RO
#BUF1,R1
MoV

111037
105020

050014

2%:

050014

3%:

4%:

5%:

b
D e
i
e
D e

N\-‘VVVVVVVV\JVVVVVVV

062300

(RQ) ,$TEMPT
(RQ) +
$TEMP1, (R1)+
38

;GET THE WORD
;CLEAR THE BYTE TABLE ENTRY
sUPDATE THE LIST
;BR IF NO OVERFLOW

MOV

#-1,(R1)+

;SET T0 177777

CLR
CLR

R1
R2

B8CC

-(R1)

;POSITON POINTER

CMP
#B8UF 2 ,R1
sFINISHED?
BNE
2%
:BR IF NOT
;GET THE AVERAGE OF THE 128 CENTER STATES
MOV
#BUF 1+64. RO
;GET INITIAL POINTER

062100

MOvB
CLRB
ADD
BCC
TST

177777
064000

d e

SEQ 0140

005037
012700
012701

063721

— e

K1
PAGE 93

:THE MATRIX MODE XFR IF NOW COMPLETED

044244
044250
044254

2338¢

13:10

A TO D FIELD SITE AND ADJUSTMENT LOOP

3059

PPNNPNPOCNPNPNINPNPNINPNPNINININN

31-AUG=79

ADD

INC

;GET A VALUE

;UPDATE MSW

;BR IF NO CARRY OVERFLOW

CMP

#BUF1+4192.
,RO
4%

;BR IF NOT DONE AVERAGE

ROR
ROR

R2
R1

;ROTATE MSwW
;INTO LSW

ROR

JROTATE MSw

?IEE

CLC

?0?
L

;FINISHED THE BUFFER

JINTO LSW

ROR

R2
R1

sINTO LSW

ROR

;ROTATE MSW

ROR

;ROTATE MSw

ROR
ROR
MOV

R2
R1
R1,AVGVAL

;ROTATE MSw
s INTO LSW
:SAVE THE AVERAGE

CMP
BLO

AVGVAL ,NOMIAL
DIFLN1

;TEST IF AVG.
:BR IF NOT

IE(LJ?

?OFCQ
L

IC?CLNCQ

041712

(RO) +,R1

JSR

R1
R1

PC,CTRLCG

JROTATE MSw

2 INTO LSW
s INTO LSW

sTEST FOR “C OR *G

IF >

CZNCCB NCVIT
CZNCCB.P1

DIAGNOSTIC

31-AUG=79 11:21

LN
PAGE 94
A TO D FIELD SITE AND ADJUSTMENT LOOP

MACY11 30G(1063)

045114

044420
044426

045112

READ1:

SEQ 0141

041554

AVGVAL,101%

:GET AVERAGE

#BUF 142 ,R1
(R1)+,100%

:GET A WORD

#1,R0

1%:

}213.1005

1008

041554

SoBIr
N~ =O3R NOWVnS

b o

d o

WWWWWWWWWWNWWW

13:10

;READ THE TOTAL INCREMENT BUFFER AND DETERMINE IF ANY VALUES OUT OF RANGE

auauaav

NNV

§ §

3093

31-AUG=79

2%:
3%:

‘REMOVE THE AVERAGE

g;-.SGNVL1

s INSERT '*=** SIGN

#'+, SGNVL1

s INSERT '*+'* SIGN

PC,SMULT
(SP)+,107%
(SP)+.1108
107%,=(SP)
1108 .,-(SP)
1018.-(SP)

:MULTIPLY NUM-AVG BY 1000.
*GET RESULT

1008, - (SP)
#1000. ,~(SP)

zg.soxv

:DIVIDE RESULT
:DIVIDE AGAIN

;FATAL ERROR DURING CAL.

4%:

5%:

046054

045124

046060

045124

046064

000053

041554

6%:

041720

041722
000053

7%:

041554

208:

041732

041736
000053
041730

22%:

041554

21%:

CMP
BLO
CMP
BLO
CMP
BLO
CMPB
BEQ
INC
BR
INC
BR
(MPB
BEQ
INC
BR
INC
BR
CMPB
BEQ
INC

ERROR

TOLERANCES

(SP)+,104%
(SP)+.105%
;g1s.n2

;GET REMAINDER
“GET QOUT
*ROUND UP IF NEEDED

;g4s.n2

; COMPARE RESULT

1058

:ROUND UP

NOP
ERROR CHECK
LIN
;DIF

045124

105% ,NORTOL

;TEST AGAINST NORMAL

50%

:BR IF OK

20%

:BR IF OK

1058 ,NARTOL

éqgs.NURTOL

:TEST AGAINST WIDE/NARROW TOLERANCE
JTEST AGAINST LARGE/SMALL TOLERANCE

;;*.SGNVLl

:BR IF OK
:TEST IF +

gggou

;COUNT THE LOWER VALUE

g?gVE

;COUNT THE HIGHER VALUE

#'+ SGNVL1

sTEST

51s

;COUNT THE LOWER

g{gfi

;COUNT THE HIGHER

l';.SGNVL1

JTEST

NARA

sCOUNT THE LOWER

22%

CZNCCB NCV11 _ DIAGNOSTIC
CZNCCB.P1
31-AUG=79 11:21
3149

3150

3151
3152
3153
3154
3155
3156
3157
3158

044716

044720

044724
044726
044732
044740
044742
044746
044750

000411

005237

000406
005237
122737
001054
105737
001051
005737

3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
%} g}

044754
044756
044762
044766
044772
044776
045000
045004
045006
045010
045012
045020
045022
045026
045032
045034
045040
045044
045046
045052
045056
045062
045066

3183
3184

045072
045076

004737
005200

3186
;}gg

045104
045106

001414
000137

3185

3189
3190
3191
3192
3193
3194
3195
3196
3197
3198

045100

045112
045114
045116
045120
045122
045124
045126
045130
045132
045134

001013
005237
104401
013746
104405
104401
104401
010046
104403
003
122737
001005
104401
013746
104405
013746
004737
012602
062702
112237
112237
112237
104401

022700

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

LIRA

MACY11 30G(1063) 31-AUG=79 13:10 PAGE 94-1
A TO D FIELD SITE AND ADJUSTMENT LOOP

041734

041724
000115

23%:

052410

508:

BR
INC
BR
INC

CMPB
BNE
TSTB

518

WIDA

51%
NORMAL
#'M_RUNIT
77%
$AUTOB
77%

001134

51%:

041744

;REPORT THE STATE INFORMATION
TST
FIRST

041744
041414

041714

041566
041100

001
000115

108:

052410

040745

045112
045124
037234

118:

000002
041556

041557
041561
041546
045676

77%:

000377

BNE

BNE
108
INC
FIRST
TYPE
.AVRGO
MoV
AVGVAL ,~=(SP)
TYPDS
TYPE,
RIN
TYPE,
STATE
MOV
RO,=(SP)
TYPOS
JVIE . 3.t
CMP8
#'M_RUNIT
BNE
118
TYPE,
DASH
MOV
1008,-(SP)
TYPDS
MOV
105%,-(SP)
JSR
PC,$S82D
MOV
(SP)+,R2
ADD
#2,R2
MOvB
(R2)+ ,PERTXT
MOVB
(R2)+,PERTXT+1
MOvVB
(R2)
+ ,PERTXT+3
TYPE,
SGNVAL

1008:
1018:
102%:
1038:
104%:
1058:
1068:
107%:
1108:
111%:

;COUNT THE NORMAL
;TEST IF FORCE REPORT

;TEST IF MONITOR ?
;BR IF YES
sFIRST TYPEOUT ?

;BR _IF YES
;SET FLAG
;TELL THE OPERATOR THE AVERG.

sADD HEADER INFO

;LOAD STATE #

;TEST IF EXPAND OUTPUT SELECTED
s INSERT SPACING

;REPORT DIFFERENCE

;CONVERT TO ASCII
;GET RESULT POINTER TO MESSAGE
;ADJUST POINTER

;LOAD THE PERCENT REPORT

JSR
INC

PC,CTRLCG
RO

;TEST IF CTRL C/G

BEQ
JMP

READ
1%

;BR IF DONE
s TRY NEXT VALUE

cMP

044436

;COUNT THE HIGHER

O
O
O
O
O
O
O
0
0
0

#255. .R0O

;TEST IF DONE

SEQ 0142

K KK KON
S 3o CONONVISWN=O

SREIVERE

e
D e
e
e
—

RRRRRRRRY

i 58

3200
3201
3202
3203

viviviyuvuainaununi

CZNCCB NCV11
DIAGM)STIC
1 1:21
CZNCCB.P1T
31-AUG=79

N
13:10 PAGE 95
A TO D FIELD SITE AND ADJUSTMENT LOOP

MACY11 30G(1063)

31-AUG=79

;NOW ACCOUNT FOR ALL THE ERRORS

005037

READ:

CLR

ABOVE ,R2

CMPB
BHI
MOV

R2,0BSCNT
1%
NARA ,R2

1%:

CMPB
BHI
MOV
ADD
(MP8
BHI
CMPB
BH!
MOV
BR
MOV

R2 ,NURCNT
1%
NARB ,R2
wiDB,R2
R2 ,NARCNT
$
NORCNT ,NORMAL
1%
#PASMSG,READ7
2%
#FAIMSG,READ7

2%:

MOV

BELOW,-(SP)

MOV

NARA ,R2

ADD

045174

041724

045352
045352

DIFERR

MOV

INC

TYPDS
TYPE

ADD

MOV

TYPDS
TYPE

MOV

TYPDS
TYPE,

MOV
ADD

BELOW,R?2

WIDA,R2

DIFERR

,BELMSG

:TEST

IF EXCEEDS LIMIT <LARGE ABOVE/BELOW>

;GET LOW VALUE

:ADD HIGH
sTEST IF EXCEEDS LIMIT <SMALL ABOVE/BELOW>

sTEST IF MIN. NORMAL COUNT HAS BEEN HIT
;LOAD MESSAGE POINTER
;LOAD MESSAGE POINTER
:SET ERROR FLAG
;GET NO. OF STATES BELOW LIMITS
sREPORT VALUE

; TYPE MESSAGE

R2.-(SP)

:GET NARROW LOW
;ADD NARROW HIGH
;GET NO. OF NARROW STATES

. NARMSG
NORMAL ,-(SP)

; TYPE MESSAGE
;GET NORMAL COUNT

NORMSG

wiDB,R2

sREPORT NORMAL TEXT
;GET WIDE LOW
;ADD WIDE HIGH

,WIDMSG

: TYPE MESSAGE

,ABOMSG

sTYPE NO. OF STATES ABOVE
: TYPE MESSAGE

WIDA,R2

R2,-(SP)

MOV

ABOVE ,-(SP)

TYPDS
TYPE

;CLEAR FLAG
JGET HIGH VALUE
;JADD LOW
JTEST IF EXCEEDS LIMIT <OBEASE ABOVE/BELOW>
;BR IF ERRORS
JGET LOW VALUE
JADD HIGH

NARB ,R2

MOV

TYPDS
TYPE

SEQ 0143

;REPORT PASS/FAIL MESSAGE

104401
104401

041651

READ7:

TYPE,
TYPE
PASMSG

GAIN

;JRE-TYPE

THE GAIN MESSAGE

;JREPORT PASS/FAIL

LIMIT"®

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

032777
001440
005737
001435

004000

041706
042132
045426
042232

MACY11 30G(1063)

31-AUG=79

133556

: TYPE OUT MEMORY RAM AND RAM MEMORY VALUES IF SELECTED
#SW11,aSWR
sTEST IF THIS
IS WANTED
READXX: BIT
(s
BEQ
:BR IF NOT
;TEST IF BLASTING MODE
TST
DIFEX1
4%
BEQ
:BR IF NOT

19:

#ROMVAL ,RO

PC,2%
1§0MVAL4100.R0
RTN
RTN
RTN

104401
104401

000417

;LOAD INITIAL POINTER

s TYPE OUT LINE
STEST IF ALL DONE

:BR IF NOT

012701

104401
112002

042702
010246

2%:

#16. ,R1

;LOAD WIDE COUNTER

3%:

(RO) +,R2
#177400,R2
R2,=(SP)

;GET A BYTE
;MASK OFF HIGHER BITS
;LOAD VALUE

104403
003
104401

RTN

JFINISHED ?

005307
001366
000207
005037
000177

B 12

13:10 PAGE 96
A TO D FIELD SITE AND ADJUSTMENT LOOP

SEXIT
041706
000310

A ¥

DIFEX1
aDIFEXOQ

JEXIT THIS CRAZYNESS

SEQ 0144

CINCCB NCV11
DIAGNOSTIC
CZNCCB.P1T
31-AUG- 79 11:2

C 12

31-AUG=79

MACY11 30G(1063)

13:10 PAGE 97
A TO D FIELD SITE AND ADJUSTMENT LOOP

;:DIF LIN SUBROUTINE LIST MODE DATA COLLECTOR

012777

134254

004000
134242
177770
060000
000000
002000

046002

052777

002000
000002
000001

134200
134202
134164

105777

134160

134236

134232
134216

LISTDT: MOV
CLR
MOV

MOV

BIT

3%:
1$:

060000

000010

28:

177400

005737
001366
000207
000000
000000

000000
000000

177777

045474
045664

045664

#8UF
0, aBAR

;CLEAR THE DEVICE
;PRIME OFFSET REG.
;LOAD WC.
;LOAD BUS ADDR.

#2000, PRIME1

;TEST GAIN BIT

#0,aCSR

;SET RES. AND MODE

BEQ
BIS
BIS
BIS

38
#2000, aCSR
#TESTZ,aSFR
#81T0,aCSR

:BR IF CLEARED
;SELECT GAIN
= 2

TSTB

@CSR

;WAIT FOR IDLE

MOV
CLR
MOV
MOV
CLR
BIC
ADD
DEC
BNE
ASR

#BUF0,RO
R2
#8. .R3
(ROJ ,R1
(RO)+
#177400,R1
R1,R2
R3
2%
R2

;LOAD POINTER TO NEW DATA

BEQ
CLR

28
108

B8PL

ASR
ASR
RTS

012737
004737
005702
001403
005037
000771

#CLRALL ,@SFR
Q0FF
#-8. ,aWCR

:SET 7 PULSES

:ENABLE THE DEVICE

;LOAD COUNTER
;GET DATA WORD
;CLR BUFFER WORD
;MAKE OFF BITS
;UPDATE TOTAL
JFINISHED ?
JBR IF NOT

R2
R2
PC
SEXIT
INE TO FIND THE TRUE EDGE OF ZERO DATA
: SUBROUT
STDATO: MOV
#-1,108
;SET ENTRY FLAG
1$:
JSR
PC.LISTDT
;GET DATA
ST
R2
s CHECK DATA

;BR _IF ZERC

;CLEAR ALREADY NON-ZERO DATA FLAG

1%
;:DATA WAS ZERO -162ECK IF WE STARTED IN O DATA REGION
BR

BNE

:DATA HAS NOW GONE

*NOW EXIT
10%:

RTS
0

HT2T3:

DIFT1:
DIFT2:
DIFT3:

O
©
0

;TEST FLAG

:BR IF NOT A GOOD TIME TO EXIT

TO A GOOD ZERO DATA REGION

;BYEBYE

SEQ 0145

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

3328

3329

045676

105777

3330 045702 100033
3331 045706 017737
3332

3333

3334
3335

3339
3340
3341
3342
3343
3344
3345

045712

042737

D 12
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 98
A TOD FIELD SITE AND ADJUSTMENT LOOP

:SUBROUTINE TO TEST IF OPERATOR TYPED CTRL C OR G

133242

CTRLCG: TSTB

132236

045774

BPL
MOV

045774

CMP

177600

045720

022737

000003

045730

052777

000400

045774

BIC

BNE
2(1)2

134020

#ENDDMA ,aSFR

000000
177777
177400
000036
000000

2%:
CTRCHA:
PRIME:
PRIMEO:
PRIME1:
DIFEXO:

3352
3353

046006

012500

;SUBROUTINE TO DETERMINE ERROR LIMITS FOR DIFLIN
LIMITS: MOV
(R5)+,R0
;GET 1ST ARG.

046036
046040
046042
046044
046046
046050

012021
012021
012021
012021
012021
000205

050024

046052

1%:

1$:
2%:

0
~-1.
177400
36
0

TST
BEQ
MOV
BR
TST
MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
RTS

#CLRALL ,aSFR
(SP) +
RTRT
#7,CTRCHA
2%

JTEST IF CTRL €
sBR IF NOT “C
;STOP NPR'S

045774
045776
046000
046002
046004

(1)
(1)
(1)
(1)
(1)
3363

045774

-MASK OFF BITS

gz.CTRCHA

‘BR IF NON
:GET CHARACTER

3346
3347
3348
3349
%gg(‘)

005737
001402
012500
000401
005725
012707
012021
012021
012021

002014
000007

BIS
TST
JMP
CMP
BNE
GTSWR
RTS

#177600,CTRCHA

28
@$TKB,CTRCHA

052777
005726
000137
022737
001001
104406
000207

046010
046014
046016
046020
046022
046024
046030
046032
046034

134004

: INPUT FLAG

045744
045752
045754
045760
045766
045770
045772

3354
3355
3356
3357
3358
3359
3362
(1)
(1)

004000

NOP
NOP

@$TKS

WFMODE
1%
(R5)+,RO
2%
(R5)+
#NORCNT ,R1
(RO)+,(R1)+
(RO)+,(R1)+
(RO)+,(R1)+

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

;CLEAR THE DEVICE

;CLEAN STACK

JRE=START
;TEST IF CTRL G
;BR _IF NOT
;GET SWR VALUE
JEXIT

sTEST IF ON TESTER
;BR _IF NOT
;GET TESTER LIMITS
;BUMP ADDRESS

;GET POINTER
VALUE
VALUE
VALUE

sGET
sGET
;GET
;GET
;GET

VALUE
VALUE
;GET VALUE
;GET VALUE
sGET VALUE
JEXIT

SEQ 0146

CINCCB NCV11
CZNCCB. P11

DIAGNOSTIC

31-AUG=79 11:21

MACY11

31-AUG=79

30G(1063)

13:10

E 12

PAGE 99

SEQ 0147

A TO D FIELD SITE AND ADJUSTMENT LOOP

;ACTUAL VALUES FOR DIF LIN ERROR TOLERANCE

046066
046070

046072
046076
046102
046106

000025

000024
000061
000140
000377

000031
000075
000171
000377

046132
046136
046142
046146

046152
046156
046162
046166

000330
36
000010
000000

000025

000145
000377

.
.
.

0.
377

:*LARGE/SMALL'* TOLERANCE VALUE
;"OBESITY'' MAX. COUNT VALUE
;"OBESITY'" TOLERANCE VALUE
USER

;DIFLIN ERROR TOLERANCE

GAIN = 1

226.,21.
20.,51.
8..101.
0..,377

;226 MIN.

;DIFLIN ERROR TOLERANCE

GAIN =1

GILIMI:

;226 MIN COUNT, =<1.9%

G1LIMO:

000145
000377

046112
046116
046122
046126

;"NORMAL'' MIN COUNT VALUE
;" NORMAL'' TOLERANCE VALUE
'NARROU/UIDE” MAX. COUNT VALUE
;' NARROW/WIDE'" TOLERANCE VALUE
;" LARGE/SMALL'' MAX. COUNT VALUE

.
.
.
.

veN.
N,

NORCNT:
NORTOL:
NARCNT:
NARTOL:
:
NURCNT
NURTOL:
OBSCNT:
OBSTOL:

046052
046054
046056
046060
046062

.WORD
.WORD
.WORD
.WORD

226.,20.
20. "9.
8. .%6.

0.5%7 7

CCUNT, =<2.0%

.20 MAX. COUNT, =<5.0%
;8 MAX. COUNT, =<10.%
;0 MAX COUNT, >10%

OPTION AREA

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

.WORD
.WORD
.WORD
. WORD

USER

:30. MAX COUNT, =<6.0%
;8. MAX COUNT, =<12.0%
;0 MAX COUNT, >12.0%

;DIFLIN ERROR

GAIN = 2

G2LIM1:

;216. MIN COUNT, =<2.0%

.WORD
. WORD
.WORD
.WORD

OPTION AREA

:30. MAX COUNT, =<5.0%
;8. MAX COUNT, =<10.0%
;0 MAX COUNT, >10.0%

deO—lO?Od—h—-

047111
020114
040440
0646524
051525
044124
046101
051505

30G(1063)
LIST0:

=3
W

047503
020114
040522
046517
052123
047514
042524

31-AUG=79

13:10

F 12

PAGE 100

SEQ 0148

A TO D FIELD SITE AND ADJUSTMENT LOOP

041040
047111
052040
047111
054524
042522
020116

3408

046172
046174
046202
046210
046216
046224
046232

3
VIS
NIV = NN D aan

3406
3407

MACY11

RRORRRAS

CZNCCB NCVTT
CZNCCB. P11

LIST:

.BYTE
LASCII

15,12
/1 = INITIAL AO17 ADJUSTMENT USING THE ANALOG TESTER/

.BYTE
LASCII

/B = BLASTING OF

.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

= CONTROL

THE

LINEARITY

CORRECTION PROM/

PROGRAM PROM BLASTING/

TEST OF

M8026 AND MB036/

RE
¥

034115

042040
042522
020114
051101
043117
040440

oTM

043040
040440

051440

15,12
=

FINAL

ACCEPTANCE

THE A017/

AND D)/

AO17 AT FIELD SITE/

CZNCCB NCV1T
CZNC(B.PI1

3420
3621

3424
3425

046623
046625
046632
046640
046646
046654
046662
046670
046673
046675

DIAGNOSTIC

21
31-AUG-79 11.
0

MACY11

30G(1063)

31-AUG=79

13:10

PAGE 100-1

SEQ 0149

A TO D FIELD SITE AND ADJUSTMENT LOOP

.BYTE
LASCII

047440
042524
020110
052101
042522
047116

15,12

/0 = OPERATE

.12

.BYTE
LASCI!

051440
051101
052111
043505
020122
042507

042510
042510
040522
047101
054524
044510
052123
L1871
DOT:

= SOF TWARE

15,12

.BYTE
LASCIZ

/ot

.EVEN

= HELP

15,12

THE

WITH

TTY AT ADDRESS NNNNNN/

SWIT(H REGISTER CHANGE/

OPERATOR AND RETYPE

THIS LIST/

CZNCCB NCV1Y
CZNCTB P11

DIAGNOSTIC

31-AUG=79 11:21

047022
047024
047030
047036
047042

000005

047046
047052
047054
047062
047066
047070

105777
100375
052777
105777
100375
042777

047076
047102
047106
047112
047114
047120

012701
012700
004737
005200
022700
001372

010421
003740
047760

047122
047126
047132
047134
047140

012700
004737
005200
022700
001372

000000
047760

047142
047146
047152
047154
047160

012700
004737
005200
022700
001372

007740
047760

104401

012777
005077
005037

052156
006035
132646

MACY11 30G(1063)

13:10

H 12
PAGE 101

SEQ G150

A TO D FIELD SITE AND ADJUSTMENT LOOP
POTIME:

001000
132630

132634

001000

132620

TYPE,

PRIM?

CLR
CLR

avTYPOS
CTRCHA

#6035,aVICHAR

:ERASE

THE SCREEN MAP

28:

BPL
BIS
;gla

is:

132644

RESET

MOV

132650

045774

TSTB

aVICSR

1%
#BIT9,aVICSR
g¥rcsn

BIC
#BIT9,aVICSR
:NOW LOAD THE REF. PATTERN INTO
MOV
#10621,R1
MOV
#3740,R0

004000

4$:

000040

010000

31-AUG=79

;CLEAR THE WORLD

“TELL OPERATOR ABOUT CABLES

-HOME AND ERASE SCREEN

“CLEAR THE MAP P.C.
“CLEAR TTY CHARACTER
:WAIT FOR READY

$
:CLEAR THE MAP
‘WAIT FOR READY AGAIN

:CLEAR THE ERASE BIT
THE MAP
:LOAD THE PIXEL VALUE
*LOAD THE PIXEL ADDRESS

JSR
INC
CMP
BNE

PC.DISPLY
RO
#4000,R0
38

*LOAD THE DATA
“UPDATE THE ADDRESS
*FINISHED ?
*BR UNTIL DONE

MOV

#0.RO

:LOAD PIXEL ADDRESS

INC
CMP
BNE

RO
#40 RO
43

“UPDATE THE PIXEL ADDRESS
“TEST IF DONE
*BR IF DONE THE VERTICAL

MOV

#7740,R0

:LOAD PIXEL ADDRESS

BNE

*BR IF DONE

JSR

JSR
INC
CMP

PC.DISPLY

PC.DISPLY
RO
#10000,R0

“LOAD

THE

DATA

“LOAD THE DATA
*UPDATE THE PIXEL ADDRESS
“TEST IF DONE

:POSITION THE MAP AND DISPLAY
047162
047170
047176
047204

012777
012777
012777
052777

000005

000463
000400

MOV
MOV

#5,aVTCSR
#60,aVTINT

:LOAD ORGIN VALUE
*LOAD LUT 0

BIS

#BIT8,aVICSR

:ENABLE THE MAP

MOV

8465, VT INT

*LOAD LUT 1

CZNCCB NCVTT
C(ZNCCB P11

DIAGNOST IC
31-AUG=79 1:21

MACY11

30G(1063)

31-AUG=79

13:10

112

PAGE 102

A TO D FIELD SITE AND ADJUSTMENT LOOP

;NOW SAMPLE THE CAMERA CHANNELS

SAMCAM:

047212
047212
047216
047220
047222

004537
050042
001730
C00

047336

047224
047230
047232
047234

004537
05022¢
001732
001

047336

047236
047242
047244
047246

004537
050412
001734

047336

002

000

047250
047254
047256
047260

004537
050576
001736
003

047336

004537
050134
001732
000

047336

004537
050320
001730

047336

001

004537
050504
001736
002

047336

004537
050670
001734
003

047336

000137

002646

000

0G0

001

;CAMERA 0, X INPUT
JSR
RS ,ADJCAM
ADMSGO

DACO
.BYTE

0,0

JSR

RS ,ADJCAM

;DO CAMERA 1, X INPUT
ADMSG2
DAC1

BYTE
1,0
;DO CAMERA 2, X INPUT
JSR
RS ,ADJCAM
ADMSG4

DAC?2

.BYTE
2,0
INPUT
X
3,
CAMERA
;DO
JSR

ADMSG6

DAC3
BYTE

R5,ADJCAM
3,0

*CAM 0 MESSAGE

*DAC ADDRESS

*CAMERA 0, X AXIS
;CAM 1, X MESSAGE
;DAC ADDRESS
;CAMERA 1, X AXIS
:CAM 2, X MESSAGE

:DAC ADDRESS

;CAMERA 2, X AXIS

;CAM 3, X MESSAGE

:DAC ADDRESS
; CAMERA 3, X AXIS

;NOW SAMPLE THE Y CAMERA CHANNELS

;DO CAMERA 0 Y INPUT
JSR
R5,ADJCAM
ADMSG1
DAC1

;DO CAMERA 1, Y INPUT
R

RS ,ADJCAM
1,1

INPUT
RS ,ADJCAM

S )

INPUT
RS ,ADJCAM

3.1
RBEGO

;CAM 0 Y MESSAGE
:DAC ADDRESS
;CAMERA 0, Y AXIS
;CAM 1, Y MESSAGE
;DAC ADDRESS
;CAMERA 1, Y AXIS
;CAM 2, Y MESSAGE
;DAC ADDRESS

;CAMERA 2, Y AXIS

;CAM 3, Y MESSAGE
;DAC ADDRESS
;CAMERA 3 Y AXIS

SEQ 0151

DIAGNOSTIC
31-AUG=79 1M:21

MACY11

306(1063)

31-AUG=79

13:10

J 12

PAGE 103

SEQ 0152

A TOD FIELD SITE AND ADJUSTMENT LOOP

;REPORT THE MESSAGE FIRST
ADJCAM: MOV
38:
TST

132342

012000
132326

132340

1%:

132320

050020
050026

002315
047512
050034
047736
004000

000410

2%:

3s
#12000,avTCxY

BPL
MovB

1%
(RQ)+,aVT(HAR

TST

FOR READY

;POSITION THE CAHRA(CTERS
JWAIT FOR CHAR. READY
;LOAD THE (HAR.
JTEST IF TERM.
;BR IF NOT

MOV
MOV

@(R5)+,DACADR
(R5)+, CAMVAL

;SAVE ADDRESS

#2315 ,aDACADR

;PRESET DAC TO = GAIN INPUT

R1,VALO

;SAVE RESULTS
JPOSITION THE CROSS HAIR LINE
JPRESET DAC TO OFFSET
;SAMPLE THE DATA
;SAVE AVERAGE RESULTS
;POSITION THE CROSS HAIR LINE
JPRESET DAC TO + GAIN INPUT
;SAMPLE THE DATA
;SAVE AVERAGE RESULTS
JPOSITION THE CROSS HAIR LINE
JTEST FOR CTRL C/G
;CHECK IF CHARACTER WAS A \(C\
;BR IF NOT
;CLEAR CHAR
JEXIT

MOV
JSR

PC.,SAMDAT

JSR

PC,FIXLIN

MOV

#4000, aDACADR

MOV

R1,VAL1

JSR

MOV

PC,SAMDAT

PC,FIXLIN

#5463 ,aDACADR

JSR

PC,SAMDAT

JSR
JSR

PC.FIXLIN
PC,CTRLCG

MOV
045774

(RO)

;JWAIT

JSR

000344

aVT(HAR

;GET ASCII POINTER

BNE

MOV
000366

{R5)+,R0O
aVT(HAR

BPL
MOV

TSTB

R1,VALZ2

CMPB

#'C,CTRCHA

CLR
RTS

CTRCHA
R5

BNE

;SAVE CAMERA DATA

sCOLLECT 64 SAMPLES FROM THE SELECTED CAMERA
;R1

060000
062000

132154

012777
005037
005037

004000
050014
050016
060000

b
b

105777
100375

060000
050026
000002
000001

177700

012777
113777
052777
052777

1$:

012777

CONTAINS THE AVERAGE

SAMDAT: MOV

WWWWW
rororOrONY
== - arornOr
ONNt
oSO

CINCCB NCVTT
CZNC(B.P1T

#8UF0 RO

#B8UF1,R1

CMP
BNE

RO.R1
1%

(RO)
+

;CLEAR THE BUFFER
sFINISHED ?
:BR IF NOT

MOV
MOV
MOvB

#-100,awWCR
#BUF0,aBAR
CAMVAL ,aCSRHB

;LOAD WORD COUNT
;LOAD ADDRESS
sSELECT THE CAMERA
sSET TEST Z ENABLE

CLR

W#TESTZ ,aSFR
#BITO,aCSR

;ENABLE NCV11

TSTB
BPL

aCSR

;WAIT UNTIL DONE

MOV
CLR
CLR

#CLRALL ,aSFR
$STEMP1
3%5”’2

;CLEAR THE DEVICE

MOV

#8UF0 RO

;LOAD BUFFER POINTER

BIS
BIS

2%:
132154

MOV

CZNCCB NCV1T
CZNCCB.P11

3575

047620

DIAGNOSTIC

31-AUG=79 11:21
105737

001413
012037
113737

13:10 PAGE 103-1
A TO D FIELD SITE AND ADJUSTMENT LOOP

050027
050014
050015
050016
060200

050014
050014
050016
060200

TSTB

BEQ
MOV
MOVB
ADD

050016

D
d

o
N
N

) —d
D

N
N

b e

Nt N

d
—

B8R

108

CMP
BNE

NOP
NOP
ASR
NOP
ASR
NOP
ASR
NOP
ASR
NOP
ASR
NOP
ASR
NOP
RTS

VRNV

WN=O

SEREEBERRERy 3322308 SRS

58
(RO)+,STEMP1
STEMPi+1,STEMP2
$TEMP2 R1

#BUF 0+200,R0O

MOV
MOVB
ADD

050016

CAMVAL+1

CMP

BNE

108:

PNPNPNPNINPNINPNIN

K 12

31-AUG=79

MACY11 30G(1063)

(RO)+,STEMP1
STEMPT,STEMP?
$TEMP2
R1

JTEST

:BR_IF

SEQ 0153
IF

X OR Y DATA

;GET THE DATA
;GET HIGH BYTE DATA

:UPDATE AVERAGE
sFINISHED DATA ?
;BR IF NOT

;GET DATA
;UPDATE THE AVERAGE

#BUF 0+200, RO
5%

;FINISHED DATA ?

JAVERAGE THE DATA

;AVERAGE THE DATA

JEXIT

;BR IF NOT

;SUBROUTINE TO LOAD X OR Y CROSSHAIRS

FIXLIN:

000400
131726
131720
131716
000400

131730

ASR
NOP
NOP
NOP
ADD
MOVB
RTS

#100,R1
R1.aVIXPOS

:SUBROUTINE TO LOAD PIXEL DATA

DISPLY: BIC
MOV

#400,aVTCSR
RO, aVTMAP

;DISABLE MAP
;LOAD MAP P(

BPL
MOV
BIS

1$
R1,aVTPX
#400,aVTCSR

;LOAD PIXEL PATA
;ENABLE MAP

1%:

131704

TSTB

RTS

STEMP1:
$TEMP2:
DACADR:
RUNDIF:
WFMODE:
CAMVAL:

0
0
0
0
0
0

AGAN:

CURENT: 0
VALO:

aviCSR

;WAIT FOR MAP READY

;WF OPTION AREA FLAG

CZNCCB NCVTT
CZNCCB.P1T

3623
3624
3625
3626
3627

DIAGNOSTIC

31-AUG=79 11:21

042515
060

MACY11 30G6(1063)

040522

VAL1:
0
0
VALZ:
ADMSGO: LASCII
.BYTE
LASCII

.BYTE

052123
043040
043440
040522

3630
3631
3632

ADMSG1:

051525
020063
020131
052105

3633
3634

052123
043040
043440

3635

040522

3636
3637

ADMSG2:

051525
020060
020130
052105

3638
3639

052123
043040
043440
040522

3641
3642

ADMSG3:

051525
020064
020131
052105

3643
3644

052123
043040
043440
040522

030522
020122

13:10

L 12

PAGE 103=2

A TOD FIELD SITE AND ADJUSTMENT LOOP

051525
020071
020130
052105

3628
3629

31-AUG=79

051525
020061
020130

:
ADMSG4

/CAMERA 00/

15,12

/ADJUST RO9 FOR

15,12

LASCIZ

/ADJUST R24 FOR

LASCII

/CAMERA 00/

.BYTE
LASCII

/ADJUST R13 FOR

.BYTE
LASCIZ

/ADJUST R20 FOR

LASCII

/ CAMERA 01/

.BYTE
LASCII

/ADJUST R10 FOR

.BYTE
LASCIZ

/ADJUST R23 FOR

LASCII

/ CAMERA 01/

.BYTE
LASCII

/ADJUST R14 FOR

.BYTE
LASCIZ

/ADJUST R19 FOR

LASCII

/CAMERA 02/

.BYTE
LASCII

/ADJUST R11

15,12

FOR

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

SEQ 0154

CZNCCB NCViT
DIAGNOSTIC
CZNCCB.PTT
31-AUG=79 11:21

3648
3649

050446

043117

0515?6

MACY11

052123

ADMSGS:

3651
3652

051525
020065
020131
052105

3653
3654

052123
043040
043440
040522

3655
3656
3657

052123
043040
043440
040522

3661

3669

ADMSG7:

051525
020066
020131
052105

3663

3667

ADMSG6:

051525
020062
020130
052105

3658
3659

31-AUG=79

13:10

M 12
PAGE 103-3

TO D FIELD SITE AND ADJUSTMENT LOOP

052105

3650

3665

326 (1063)

052123

.BYTE
LASCIZ

15,12
/ADJUST R22 FOR X GAIN/

LASCII

/CAMERA

.BYTE
LASCII

/ADJUST R15 FOR

.BYTE
LASCIZ

/ADJUST R18 FOR

LASCII

/CAMERA 03/

.BYTE
LASCII

/ADJUST R12 FOR

.BYTE
LASCIZ

/ADJUST R21

LASCII

/CAMERA 03/

.BYTE
LASCII

/ADJUST R16 FOR

.BYTE
LASCIZ

R17 FOR

SEQ 0155

02/

15,12

FOR

15,12

OFFSET/

GAIN/

OFFSET/

GAIN/

OFFSET/

GAIN/

050756
050762
050764
050772
051000
051006
051014
051022
051030
051036
051044
051045
051047
051054

PRIMO:

.BYTE
LASCII

15,12

/THE SELF-TEST CONNECTOR MUST BE INSTALLED ON AQ017/

030460
051440
020110

.BYTE
LASCII

15,12
1
\TH E

SWITCH ON AQ17 MUST BE IN "MAINT.'" POSITION (TOWARD THE 1/0 CONNECT

CZNCCB NCVIT
CINCCB.P1T

N 12

DIAGNOSTIC

31-AUG=79 11:21

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 103<4
A TO D FIELD SITE AND ADJUSTMENT LOOP

SEQ 0156

gg»vnn:jfinnv-a
e al=1a%F o
Y=,V

—

3670

0440

PRIMG:

3672

041040
047515
051106
042510
067

3673
3674

051440
020110
030460
052123
047111
051105
051517
020116
020131
052040
047457
042516
051
000
05212%

3675
3676

033461

3677
3678

3679

PRIMS:

040522
020113

051536

052122

PRIM3:

LASCII

15.1 2.0
15.1 2
/THE
n SELF=TEST CONNECTOR MUST BE REMOVED FROM THE A017/

.BYTE
LASCII

\THE SWITCH ON AO017 MUST BE IN 'OPER.'' POSITION (AWAY FROM THE 1/0 CONNE

.BYTE
LASCI1

15,12,0
/INSERT RAM-PAK CABLE

.BYTE
LASCII

15,1
/SET RAM-PAK SWITCHES TO ''IN'', "NORM'' AND 'OFF''/

BYTE

TASCII

15,12

INTO THE

SOCKET ON THE AQ017/

/INSERT BLANK ROM INTO ROM BLASTER SOCKET/

CINCCB NCVYT
CINC(B.PTT

051544
051552

DIAGNOSTIC

31-AUG=79 11:2

MACYTT

30G(1063)

31=-AUG=79

13:10

B 13
PAGE 103-5

A TOD FIELD SITE AND ADJUSTMENT L OOP

041040
051040

3681

BYTE
LASCI]

15,12
\PLEASE DEPRESS THE '‘I1/0'" AND "EXECUTE'' BUTTONS TOGE THER\

BYTE

15,12

051516
052105
3683

012

042510
047522
046040
044527
043511
042510
042516
042522

3685

012
012

3687

042514
042522
051040
045501
042514
012
042116
051105

3689

3690
3691

JASCII

046114
052110
020116
041440
052103

000

051501
047515
046501
041440

PRIM1:

044440
020124
046102
020104
047111
041517
047117
020067
042514

051505
020105
045440
042510
042101

3692

000

3694

020042
020105
041040

052174

052515

052123

\THE & PROCESS LEDS WILL LIGHT WHEN DONE CORRECTLY\

PRIM2:

BYTE
.BYTE
.ASCI1

15,12.0
3.%¢
/PLEASE REMOVE RAM-PAK CABLE/

.BYTE
LASCII

15,12
/ AND INSERT THE BLASTED ROM INTO SOCKET ON AQO17 MODULE/

.BYTE
LASCI1

15,12
/DEPRESS THE ''CR'' KEY WHEN READY/

BYTE

.BYTE

LASCII

15,12.0

15.1¢

/7'PJ1"" CABLE MUST BE CONNECTED TO THE AO17 CONNECTOR/

SEQ 0157

CZNCCB NCVTT
CZNCCB. P11

DIAGNOSTIC
31-AUG-79 11:21

MACY11

30G(1063)

31-AUG=79

13:10

C13

PAGE 103-6

SEQ 0158

A TO D FIELD SITE AND ADJUSTMENT LOOP

020105

3695
3696
3697

PRIM&:

3698

3701

"' CABLE MUST BE CONNECTED TO THE M8036 CONNECTOR/

LASCII

.BYTE
.EVEN

15,12.0

LASCII

15,12,7 ;'RUNIT'* MUST BE ON A WORD BOUNDRY
/FATAL BUS TRAP WHEN PERFORMING TEST 'Y/

RUNIT:

.ASCIZ

RUNITA:

LASCIZ

<15><12>/PROGRAM RESTARTING/

.BYTE

15,12.7.0

MSGMEM:

.BYTE
LASCIZ

/RUNNING WITH /

:
MSGK

LASCIZ

/ K OF MEMORY/<15><12>

.BYTE
LASCIZ

/OCTAL ADDRESS OF

FATALO:

3700

.BYTE

044127
051105
047111
052123
3702

021103

3703

047117
005015

020124
044524

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

ESCP:
KFO:

031457

FMO:

.BYTE
LASCI1I
.BYTE
LASCII

DI0:

LASCII

AT LOCATION /

;"RUNIT'® MUST BE A WORD BOUNDRY
;"RUNIT'" MUST BE A WORD BOUNDRY

15,12

15,12,7

33,0

\KF2/2\
15,0
\FM30\
15.0
\DI0/37\

TERMINAL

CINCCB NCV11
DIAGNOSTIC
CZNCCB.P11
31-AUG-79 11:21
3716
3717
3720
(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)
(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)
(1)

052605
052607
052607

052612
052613
052616
052617
052622
052623
052626
052627
052632
052633
052636
052637
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

D 13

MACY11 30G6(1063)
31-AUG=79 13:10 PAGE 103-7
A TO D FIELD SITE AND ADJUSTMENT LOOP

015

002

060

040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040

060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040
060
040

BYTE

15,2

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

060

.BYTE

60,60,60,40

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

DIDATA:

SEQ 0159

n
~
~
W

NI N
NN
N
N
N

DIAGNOSTIC

31-AUG=79 11:21

052763

Nt N

PP "~
y—-y_—

CINCCB NCVT
CZNCCB.P1

31-AUG=79

.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

.BYTE
LASCII

3,0
\CMO/37\

103
043520

000103
027460

000

031457

000

033463

:
(MO
CCO:

PGO:

ZP0:

.BYTE

LASCIZ
LASCII

.BYTE
LASCII
.BYTE
.EVEN

15,0

/CC/

\PG0/37\
15,0

/2P/

15,0

064000

000001

BUFO:
BUF1:
BUF2:

.=60000

.BLKW
.BLKW
NOP

.END

norno

3735
3736

060000
001000
001000
000240

ET13

PAGE 103-8

A TO D FIELD SITE AND ADJUSTMENT LOOP

;BUFFER AREA
060000
062000

13:10

060

030115

015
050132
015

30G(1063)

060

060
040
060
040
060
040
060
040
060
040
003
103

067
015

MACY11

SEQ 0160

CZNCCB NCV11
CZNCCB.P1
ABASE = 172760

041632
041513
041722

170420

DIAGNOST

31-AUG=-79

MACY11
32
3239
2772
3138+
32

3481
29174
358
972

36254

F13

30G(1063)
31-AUG=79
13:10 PAGE 104
CROSS REFERENCE TABLE == USER SYMBOLS
101

102

103

104

3497

3502

3507

3512

35214

976

958

960
977

961
978

962
980

964
981

1959

1984

2026

2042

2049

2080

180

36214

100

3203

3237
93

3486

3491

956
973

957
974

1915

SEQ 0161

36304
36354
36404

36454
36504
36554
36604
310+

145+

105

106

107

965
982

991

1005

968

969

1019

CINCCB NCVIN
CZNCCB.P1T

AMTYP4=
APASS =
APRIOR=
APTCSU=

DIAGNQST C

31-AUG=-79

1:21

MACY11

000000
000000
000000
000040

613

13:10
PAGE 104=1
30G(1063)
31-AUG=79
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0162

23494

APTENV= 000001

APTSIZ= 000200
APTSPO= 000100

ASWREG= 000000
ATESTN= 000000

AUNIT = 000000
AUSWR = 000000
AVECT1= 140370

BAR

112

113

114

2924

2934

2999

3087+«

3089

3562+

&9
7649+
1310+
1856

532

1828+
3286+

490~
715«
1286+
1850+

1454

225

228

3204

3221
486
957
974

AVECT?=
AVGVAL
041714
041414
AVRGO

2923 3161

001754

684+

1265+

001764
002034
041572
041720
000001

BIT13 = 020000
BIT14 = 040000

RRT TR

IR
SRE IR

BIT10 = 002000
BIT11 = 004000
BIT12 = 010000

= 000002

000040
000100
000200
000400
001000

B, WA

BIT1

BITOS =
BITO6 =
BITO7 =
BITO8 =
B1109 =

2434

N—l

=
=
=
=
=

13
798
972
1086
1436
1625
1830

000001
000002
000004
000010
000020

BITO0
BITO1
BIT02
BITO3
BIT04

3223
3136+

—

BAR1
BEGIN
BELMSG
BELOW
BITO
=

2119
2503

473
956
973
1132
1479
1627
1831

2158
2732

2345
1374

3017

1360

1089
1443
1625

1161

1515
1628
1852

2164
2809

517x

795
1331=
1870

1034+
1353«
1876

596+
1052
1432+
1890+

499
958
976
1198
1554
1641
1853
2166

566

582

977

978
1247
1613
1674
1873

2816

1226
1612
1673
1872

2196
2822

2206
3053

3162

601

617+
1104
1510+
1924+

1084+

1474+

1896

622

1129+
1548+
1991+«

619
964
981
1289
1616
1715
1893

2224

3292

1159+
1768+

659+

1188+
1804+

672+

1222+
1805+

2056+

2156+

2498+

661

686

717

989
1334
1619
1753
1993
2264

1003
1356
1621

1017
1376
1622
1807

1772

2058
2266

2113
2420

738
1871

750
1891

565
1434
3024
1770

597
1458

1770

618

642
1783

1806

1829

2345

2382

2393

2404

2415

1137
1485
1627

1203
1559
1645

1228

1612
1676

1252
1613
1694

1273
1615

1718

1294
1616
1734

1340
1619
1779

1361
1621
2116

1448

149

1533

1783

1910

1932

1972

1979

693
2061

723
2068

725

756

801

1141

2340

2227

2258

2039

2061

2345

1932

1939

2005

1425

3095

660

2340

685

BLAST
BLICNT
BPTVEC=
BRLEV
002002
BTALK

BUFO

042020
060000

W~ O=HWOWN
NN W00 =0 —

000400
001000
042272
042130

134

-t
il
—P)
—
n - SWNWVESONS
NS 20—
DN N = N—= 00N N—=WNORON
S~

BIT9

000040
000100
000200

18178

000010
000020

1170
1408
1622

2473
563

723
1490
1627
3052
1533

1423
1624

1477
1625

1490
1627

1513
1628

565

574

597

608

738
1513
1628

SEQ 0163
1533

1612

1613

1615

618
801

631
1374

642
1408

650
1423

1806

1829

2460

685

1448
1622

1618

1619
1871

738

801

826

845

850

2393

2410

2415

2454
3445

3471

1116
1343
1442«
1654
1733«
1982

1122
1353
1464
1659
1735
2008

1265
1355«
1476
1669
1755«
2036

1267+
1365
1484+
1675+
1757
2043

1277
1372+
1502
1677
1769

797
1613
1783

400
1179

409
1497

1871

1891

574
1533
1851

2399

581
2441
1891

2404

2388

2410

2415

2683«

27034

1079
1331
1433
1644
1717«
1969

1084
1333«
1441~
1649
1719
1978

1316

660

1618

1616

756
1612
1770

2428

1616

1434
1621
1891

750
1533
1691

663

1615

705

1851

2467

3442

1566

BIT7

000004

H13

30G(1063)
31-AUG=79
13:10 PAGE 104=2
CROSS REFERENCE TABLE == USER SYMBOLS

BITS

BIT6

100000

MACY11

o0 —=W

I T3
l T4

DIAGNQSTIC
31-AUG=79 1 1:21

WO
=

@D
@

BIT1S
[ T2

"nn

CZNCCB NCVTT
(ZNCCB.PT1T

1070
1312«

1072
1320

2185
3562
3063

2226*
3574
3074

2228
3580
3080

2243
3586
3097

2498

2450

2457

2463

2470

2476

2483

25484

2446

2453

670
885

681
890

2459
502

2466
514

2472
546

2479
550

24874
552

895

900

1412+
1638
1702
1913

BUF1

BUF
2

BUSTRP
CALRPT

2444
3575
25654
25664

36194

1416
1643~
1706
1942

2522

2681

3003

2047
3048

25674
25684
25694
25704

25714
25724

1264
614
848

875

2834
23654
2440
465
656
880

37244
476

489

704

712

746
908

780
913

786
919

558

792
925

5
218
9

593

837

936

961
978
1156
1473
1622
1824

2403

385+
563
643%

386
566+
651

398+«
567
660+

407+
582+
673«

410

417

895+«

900+

981+«
1132*
1268«
1457
1616+
1688*
1829«
1998

919+
968+
989«
1161+
1334~
1489
1621+
1715~
1852+
2061

925
969

797%

980«
1131«
1247«
1447
1615«
1673
1807«
1993«

908+
965+
982«
1142
1289+
1477
1618«
1689+
1830+
2004

785+

2409

2414

969
1013
1284
1612
1668

2054

970
1030

1613

1685

2109

24954

2060

751

964*

2253

2254»

DACADR
DACSR

050020
001726

3542«

36164

2497+

79+
19%
14%
51%
58+

03+

2504

584
685+

1001+
1171
1356+

1622+
1730+
1871+

597
686+

931«

970
1003+
1180
1374«
1513=
1624+
1731=
1872%

419+
598+
798+

936+
972+
1015+
1198+
1376~
1515+
1625+
1752+
1891+

3051+

2111»
3053«

2113«
3287+

3437
33294

3549+

1953

1970+

1978«

1991

2009

1832

1853~

1873«

1874

1893

1894

1307
36

1328
37

39
52

42
55

1831«

23174

3292+

2018

2019

43
56

aé

23304
41
54

424+
618+
716+
875+
957+
974+
1036+
1212+
1410+
1551«
1628+
1770+
1926+
2194+

693

oAy
OWO

33464
3183
1952

032526
032561

1263
1587
1637
1989

2398

3563«
3342
3088
1943

DH3

1624
1847

1239
1545
1628
1921

2392
754

001766
045774
045676
050030

032467
032502

968

3283

CSRHB
CTRCHA
CTRLCG
CURENT

DH1
DH2

966

3047

962+

001730
001732
001734
001736
040745
177570
004020
033004

962

980
1185
1495

2496

750+

DACO
DAC1
DAC2
DAC3
DASH
DDISP =
DEADKW
DFO

SEQ 0164

W
WO

2250

960
977
1149
1430
1621
1801

b =

002006
002010
002012
000015
000200
001746

2218

976
1126
1406
1619
1766

053011
041170
043244
040104

1103
1371
1618
1747

958

CLRWCO=

MO
comp
CONROM
CONVRT
CPUDLO
CPUDL1
CPUDL2
(R
=
CRLF
=
CSR

957
974

1727

13:10 PAGE 104=3
CROSS REFERENCE TABLE == USER SYMBOLS

1616

I 13

31-AUG=79

VOO~
W

956
973
1078
1351

MACY11 30G(1063)

CZNCCB NCVTT
DIAGNQST IC
CZNCCB.PT
31-AUG=7 11:21

CZNCCB NCVIT
CZNCCB.P1T

DIDATA
DIF
DIFERR
DIFEXO
DIFEX1
DIFLIN
DIFLNX
DIFLNO
DIFLN1
DIFT1
DIFT2
DIFT3
DISPLA
DISPLY
DISPRE
DIO
DLIBD
DLICSR
DLOCSR
DLODB
DOT
DSWR =
DT1
DT2

052607
041740
041716
046004
041706
043546
043724
043720
044130
045666
045670
045672
001142
047760
000174
052577
001700
001676
001702
001704
047017
177570
032724
032732

D73
D14
DTS
EMTVEC=

032744
032760
032776
000030

EM1
EM10
EM11
EM12
EM13
EM14
EM15
EM16
EM7
EM2
EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM35
EM36

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

DIAGNOSTIC

31-AUG=79 11:21
2885
26454
26404
2761»
26344
209
30004
2764
30404
3018«
3025+
3032+
328
3449
22N
2811
6on

MACY11

J 13

30G(1063)
31-AUG=79 13:10 PAGE 104=4
CROSS REFERENCE TABLE =- USER SYMBOLS

SEQ 0165

37174
2768
2980+
2760+
249
3002
2981
3090
33234
3035
3036
147

3455

147

3202+
2987x
2968+
2276

33504
3277+
2973

2991

33244
33254
2340~
3461
37154

2345+~
36064

2851
2732+

2869
2809+

2700+

2858~

2816+

2822«

2859

37
50

38
51

39
52

147

64
23274

23264

40
53

43
56

45
58

CINCCB NCVTT
CZNCCB.P1T

EM37

032243
030374
032307
032367
032427
030434
030475
030531
000400
041005
000004

EM4
EM4O
EM41
EM&2

DIAGNOSTIC

31-AUG=-79 11:21

K 13

MACYT1 30G(1063)
31-AUG=79 13:10 PAGE 104=5
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0166

2 31#
2 284n
2 3124
23134

573

699

731

764

3057

335

336+

339

351

352+

360

365+

373«

375«

2340+

890

895

900

908

9213

919

925

3335

3160+
35974

3243
nn

()]

2969

2982+

L2 2 2324

104406
040672
046072
046112

046132
046152
000011
045674
040356

3344

25454
880

885

CZNCCB NCV1T
CZNCCB.P1T
KFO
KIPARO=
KIPAR1=
KIPAR?2=
KI1PAR3=

KIPAR4=

K IPARS=

KIPARG6=

KIPAR7=
KIPDRO=
KIPDR1=
KIPDR2=

KIPDR3=

KIPDR4=

KIPDRS=

2736

7
72350
7
7
72356
7
7
7
7 2306
7

KIPDR6=

K1PDR7=

KTERR
KWCSR

KWCSR1
KWPSR

LF
LIMITS
LINEA
LIST
LISTDT

LISTO
LIST?
LOGIC
LOOPC

DIAGNOST IC
1: 2
31-AUG=79 11:

001740
001742
001744
= 000012

144
144
144
144
144
144
144
144
144
144
144
144
144
144
144
144

MACY11 30G(1063)

31-AUG=79

13:10

L 13

PAGE 104=6

SEQ 0167

CROSS REFERENCE TABLE == USER SYMBOLS
37114

2826
2352
315
317+
2089+

2136

320+

2352

2184x

2242%

174

175

361

1316+

1335«

1337«

1338

3011«

176*
177%

3016*
362

3017+
1336«

3023«
3010«

3024~
3018

3030«
3025

3031«
3032

3045+

2745

2977

2984

33534

3013

3027

32834

3311

222
2680

2984
2684

2277
2687

2698

2702

2644H

2352
92#
3055
934

bk
134

26064
191
189
193
185

26664
2667
2677
2693
26304

316+

318«
319+

321«
23534
173

2354

2949
2956

2331

2366

3207
3211

3224
3225

2204%

2262«

2328

341«
2865

1568
2874

28814

33684
3215

3229

3033+

3046+

3054+

032623

PBLAST
PERTXT
PGO

042754
041556
053024

POTIME
PRIME

047022
045776

PASMSG

PRO
=
PR1
=
PR2
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=
PSW
=
PWRVEC=
RAMVAL
RBEGO

000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
000024
042172
002646

PRIMS
PRIM6
PROROM

RDBLST

PAGE 104=7

SEQ 0168

2221+

2128

2135«

2136

2142

2174~

2175

26504

2193«

2154+

3179«
2836

3180«
37254

2976*

2983«

3051

3288

33454

2737
2835

254
2777
2838

2699
2779
28474

2773
2781

2791
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

051374
051164
042232

134

2350+
2808
245

043062

RDCHR = 104410

RDLIN = 104411

RDOCT = 104412
READ
045136
READXX 045354
READ1
044420
READ7
045352
REDJOY= 000001

931

3219«
819
936

1619
1769«

1618*
1750«

R O&—'
$38

1032+
1476+
1627+

809
1433+
1625+

796+
1407+
1624+

553

1373«
1622+
2110+

2127«

551«

1257
1621
1922«

2095

522
1244

515%
1233

504
1223«
1616+
1728«

—=0on

503«
1187+
1615+
1712«

3245

PIRQ = 177772
PIRQVE= 000240

046000
046002
050762
051765
052156
051536
052246

M13

33694

041651

PRIMEOQ
PRIMET
PRIMO
PRIM1
PRIM2
PRIM3
PRIM4

13:10

CROSS REFERENCE TABLE == USER SYMBOLS

046054
046062
046064
046066
046070
001750

OUTRNG

31-AUG=79

M) = = —a
nONN

NORTOL
NURCNT
NURTOL
OBSCNT
0BSTOL
OFF

MACY11 30G(1063)

CZNCCB NCV11T
DIAGNOST
CZNCCB.P1T
31-AUG-79

NCVTT
DIAGNOST IC
CZNCCB.P1T
31-AUG-79 11:21
CZNCCB

RESREG= 104414
RESVEC= 000010

ROMPNT
ROMVAL
RTN
RTRT
RTRTA
RUNDIF

RUNIT

2362
134

N13

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-8
CROSS REFERENCE TABLE == USER SYMBOLS

23654

2918
2742

246

RUNITA
SAMCAM
SAMDAT
SAVREG=

SEQ 0169

2749
3261

2756
3265

2795

2804

3255

3257

248+

2274

3153

3169

2992
206
37024

36174
210

216

219

198

223

226

231

SDPAROQ=
SDPAR1=
SDPARZ2=
SDPAR3=
SDPAR4=
SDPARS=
SDPARG=
SDPAR7=
SDPDRO=
SDPDR1=
SDPDR2=
SDPDR3=
SDPDR4=
SDPDRS= 172232
SDPDR6=

001756

464+

SFRHB

SGNVAL
SGNVL1

001770
041546
041554

39+

3140

BE BN 2R

2F 2B

VNN N =
= 0O — &
00 \O N OO N0
W

32 37, [a¥)
»»
%
*

v~
NN——

11«

[« ¥

39«

X
M

= O NNONON
&

WNUND
= b
d e ek b

041

NNUND = b e ek d d d e e o
NN = O NNOONH
BN —

SDPDR7=

SFR

27%

559+
656+
731%
818+
875+
957
974~
1002+
1088+
1185+
1263+
1340+
1425+
1516+
1619+
1672*
1729+
1824+
1994+
2195+
2496+

476+
583+

670+
746+

825

961+
978+
1014+

1126+
1203+

1273+

1437+
1545+
1624+
1685+
1747+
1848+

2059+
2218+
3052+

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

SHUFQ
SHUF3
SHUF6

SIPARO=
SIPAR1=
SIPAR2=
SIPAR3=
SIPARG=
SIPARS=
SIPARG=
SIPAR7=
SIPDRO=
SIPDR1=
SIPDR2=
SIPDR3=
SIPDR4=
SIPDRS=
SIPDR6=
SIPDR7=
SKPMSG
SLASH
SRO
=
SR1

043344
043336
043324

172240
172242
172244
172246
172250
172252
172254
172256
172200
172202
172204
172206
172210
172212
172214
172216
040761
041141
177572

= 177574

SR2
SR3

= 177576
= 172516

STATE

041100

STACK = 001100
STDATO

2890
2892
2894

164
144
144
144
144
144
144
144
144
144
144
144
144
144
144
144
26004
26074
164
2245%
1

B 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-9
CROSS REFERENCE TABLE == USER SYMBOLS

29104
29074
29034

2092+«
2247%

2117+
2266

2119%
2352«

2139«

2141+

2164+

2166*

2187«

2189+

2206+

2208+

149

261
2396

2335

1964
2401

2031
2407

2125
2412

2172
2418

2335+«
2487

2340
2489

2345
251

2350~
2518

2374
3250

1964

2037

2125

2172

3250

2489

2511

144
144

2352+

26054

3165

134

2094x
2264*

147

045630

3008

3040

33104

SWR

001140

SWREG
Sw0
=
SW00 =
Sw01
=
Sw02 =
Sw03 =
SW04 =
SWw05
=
Swoé6 =
Sw07 =
SW08 =
Sw09 =
Sw1_
=
SWw10 =

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000

320
2379

147%
2385

149
2390

STKLMT= 177774

SW11
swi12
SW13
SW14
w15
SW2
sw3
Sw4
SwS
Swé6

= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
= 000020
= 000040
= 000100

134

224
134
13
13
134
134
134
134
134
134
134
134
134
134

13
134
134
134
13#
134
13
13
134
134

SEQ 0170

147

2379
2390

2374

2518

2401
2412
2418

CINCCB NCV11 _ DIAGNOSTIC
CINCCB.P1T
31=AUG=79 11:21
SW?
= 000200
SW8
= 000400
SW9
= 001000
TBITVE= 000014
TESTER 002022
TESTZ = 000002

TFSITE
TIMEO
TKVEC =
TPVEC =
TRAPVE=

003300
041221
000060
000064
000034

TRTVEC= 000074
TSTCON= 000004

TSTDMA= 000010

124
13
1
134

957
9%
1057
1612
1672
2255

200
26104
134
13
130

13
120¢

9%
972
1085
1435
1625

2112

1284

890
961

978
1245
1613
1687

TST1
1ST1I0
TST100
1ST101

TST102
TST103
1ST104
T1ST105
TST106
T1ST107
TST11_
1ST110
1ST111
1ST112

1ST113

1ST114
1ST115
1ST116
1ST117
TST12
TST120
1ST121
1ST122

003640
004512
014644
015170

015400
015602
016002
016150
016326
016460
004550
016612
016746
017116

017250

017406
017614
020054
020306
004612
020524
021000
021130

2222

300
451
1051
1098

1145
1176
12174
1220
1241
1280
460
1301
1308
1329

1368
1388
14294
1467
1505
W68
15414
16124
1612

C 14
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-10
CROSS REFERENCE TABLE == USZR SYMBOLS

SEQ 0171

2385
3%
407
Lo
599

958
976
1088
161
1690
2545

28
2867

620

644

662

688

719

732

753

765

799

956

960
977
1133
1615
1716
3052

961
978
1162
1616
1732
3291

%2
980
11
1618
1754
3564

964
981
1ge7
1619
1773

965
982
148
1621
1927

966
988
1377
1622
199%

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

956
973
1130
1478
1627

957
97
1160
15164
1628

2157

2195

9%2

900
964

559

980
1266
1615
1713

981
1287
1616
1729

340
4554
1074
11254

3504

2252

1077#

1153
1182

11554
1184s

1235
1259
1283
463N
13054
1323
1346

12384
12624

13704
1393#
14720
1508#
47N
16134

13264
13504

958
976
1189
1552
1639

2222
615

965

982
1311
1618
1751

960
977
1226
1612
1670

2252

913
98
1332
1619
1771

961
978
1245
1613
1687

92
980
1266
1615
1713

657

682

1000
135
1621
1802

1014
1375
1622
1825

91
%8

925
969

964
981
1287
1616
1729
713

93
970

1035
1409
1624
1848

965
982
1311
1618
1751
747

93
972

1085
1435
1625
1868

966
986
1332
1619
1771

968
1000
135
1621
1925

969
1014
1375
1622
1992

970
1035
1409
1624
2057

793

875

880

885

1130
1478
1627
1888

1160
1514
1628
2112

1189
1552
1639
2157

1224
1612
1670
2195

956
973

957
974

958
976

960
977

SRR &
w
CPEEINET LR B2

—

2 b

—d et ed oed b e

—b kD b >
e ]
e
i S e

%2%
IS IAS IS LS LV

~N -

338 gEs
&
?g §§2

35BS

Y
B
b ed

aalds

sgéGBS ERSREY

e e

dy e d
md e

17654

—

—_

~N
&»

6804
708

REERE

TST4
TST40

17104

TST23
TST24
TST25
TST26
TST27
TST3
TST30
TST31
TST32
TST33
TST34
TST35
TST36
TST37

soonororon
IS SRR00
—3 — b —b =

TST144
TST145
TST146
TST147
TST15
TST150
TST151
TST152
TST153
TST154
TST155
TST156
TST157
TST16
TST160
TST161
TST17
TST2
TST20
TST21
TST22

TST143

TST141
TST142

021260

TST123
TST124
TST125
TST126
TST127
TST13
TST130
TST13
TST132
TST133
TST134
TST135
TST136
TST137
TST14
TST140

D 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-11
CROSS REFERENCE TABLE == USER SYMBOLS

AR
&

CZNCCB NCVIT
DIAGNOSTI
CZNCCB.P1T
31-AUG=79 1

1965
2030

21314
21784

1968
2032

19734
2035

20414

SEQ 0172

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

TST41
TST42

010510
010604

901
909

010774

920

1STS
TSTSO

004244
011362

612
956

TSTS3
T1STS4
TSTSS
TSTS6
TSTS7
TST6
TST60
TST61
T1ST62
TST63

011670
011772
012074
012176
012300
004354
012402
012504
012606
012710

960
961
962
964
965
429
966
968
969
970

TST6S

013114

973

T1S743

010700

TST4S
TST46
1ST47

011070
011164
011260

TST44

TSTS1T
TSTS2

TST64

TST66
TST67

011464
011566

013012

E 14
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-12
CROSS REFERENCE TABLE == USER SYMBOLS
9074
912#

914

926
9
93

G
9354
9Sén

957
958

972

L1640
oS7#

9S8
9604

%614
962
964N
9654
66N
431
9684
6N
9704
o724

9734

o74H

013216
013320

974
976

013422
013524
013626
013730
014032
014134
014236

977
978
980
981
982
Q4
1008

9784
9804
9814
9824
984H
9984
1012#

TYPDS = 104405
TYPE = 104401

33
149

2277
188

23654
190

3163
193

TST7

004442

TST77

014340

TST70
TST71
T1ST72
1ST73
T1ST74
TST7S
T1ST76

TYPOC = 104402

TYPON = 104404
TYPOS = 104403

UDPARO= 177660

LL5n

102%

23654
23654

2335

2347

23654

2553

2557

3167

UDPAR2=
UDPAR3=
UDPAR4G=
UDPARS=
UDPARG6=
UDPAR7=

177664
177
177670
177672
177674
177676

UDPDR1=
UDPDR2=
UDPDR3=
UDPDR4=

177622
177624
177626
177630

144
144
144
144

177620

1029#

2335
2462
28%1
3231

144
144
144
144
144
144
144
144

UDPAR1= 177662

976w
77

2277
2456
2790
3228
%660

144

SEQ 0173

2339
24669
2840
3236

2341
2475
2867
3239

3173
252

2343
2482
%97%
24
3269

3222
258

2345
2517
2975
3244

3227
&64

2347
2555
2990
3259

3230
268

2350
2730
3161
3260

3235
262

23654
2731
3164
3261

3238
283

2430
2770
3165
3265

303

2436
2771
N7
3271

324

2443
2772
3181
3434

334

2449
2787
3223

F 14
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-13
CROSS REFERENCE TABLE == USER SYMBOLS

CINCCB NCV11 _ DIAGNOSTIC
CZNCCB.P1T
31-AUG=-79 11:21
177632
177634
177636
177640
177642
177644
177646
177650
177652
177654

UNFIX

041447

2770

VAL1

050036

3540

36234

UIPAR7= 1;;656

VALO

VAL2

VECTAO

VECTA1

VECTBO

VECTBT

VICHAR
VICSR
vTIcxy
VTINT
VIMAP

050034

050040
001772

001774

001776

001706
001716
001714
001724
001720

VTPX

001722

vIYPOS
WARNO
WwCR

001710
052520
001752

VvIXPOS

001712

CLLLLLATRaLRRaRRaRe

UDPDRS=
UDPDR6=
UDPDR7=
UIPARO=
UIPAR1=
UIPARZ=
UIPAR3=
UIPAR4=
UIPARS=
UIPARG=

3536

3544

1M»

36224
3624n
773

787«

1193«

1214+

1134

1524«

1538+«

1546+

1571«

1588+

7644
784
778
814
%

3435«
3440
3524+
3469%
3607«

3522
3442«

3525
3443

3527«
3445+

1588

1589+

3468+

3471+

764

3602+

477

478

516~

527

1242+

1264 *

1285«

1309

1330«

1352«

214

2335

1124

1144

804

754
268
100#

664

1221+

;g?®

787
171

788+

1538

1214

1539«

?36'
708#
355

671

1827«

683+

1834

714%

1849+

3:1,4&-

31:1.68;

186

201

WIDA
wiDB

041734
041736

26478
26484

150*
144

3212

3232
3233

003242

041057

ZAPRAM

(042620

ZP0

$APTHD

SASTAT=

SATYC

SATY1
SATYS
$ATYSL
$SAUTOB

053034

001000

26044

3236

2762

%79“

2785

k31

mraanan |J

23{,9

035464

23494

035440
035446
035456
001134

23494
2341
2345
32

1547=

3606

3608

3611

3610+

050024

XTTY

1215%

3470+

WFMODE
WwIDMSG

SEQ 0174

748~

1869+

794+

595«

605

1059

1083«

1923«

1990

229

234

301

2970

2988

3155

1889

1431+

2684

839

37274

23494
2349
149«

182

322

616~

1033«

628

640«

646

1110

1127«

2055+

2155«

2499+

1549«

1767«

1796

1819

1843

1475«

1511«

658+

1157«

1186+

3049+

3285+«

1863

1883

1803+

6 14
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-14
CROSS REFERENCE TABLE == USER SYMBOLS

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

$BASE

001250

$B8DADR

001122

$BDDAT

001126

#
1622«
1757«

320
449+
528
585

1070«
1151

1073
1152

1093«
1171«

1647

1449

1457«

1534

2073«

2075

2118«

328

2345

$CKSWR

033006

SCNTLU
$CORE
$CPUOP

033526
(036306
001222

$CROUT
$OBLK
$0B2D
$DECVL
$DEVCT
$OEVM

036336
034100
037040
037220
001
001252

$DOAGN
$0TBL
$ENDAD
SENDCT
SENDMG
SENULL

030176
034070
030166
030134
030205
030202

034652

$CMTAG 001100
$CM3 =
$CNTLG 033533

$CRLF

$OIV

SENV
$ENVM
$EOP

$EOPCT
$ERFLG
SERMAX
$ERROR
$ERRPC
SERRTB

001171

036620

001214
001215
030100
030126
001103
001115
035104
001116
001256

2326

23414

23354

23354
23354
23524
324

328

23524
2335
23624

324

23600

2277H
233

147
22774
22774

324
34
376

147«
324
30
147
20
3cH

1897

2327
173

2327

2323

401+
7%
537«
982-

40
478+
b)
10

410*
479
542*
2%

411
491+
543
623

420*
l.§
553«
%:

1343«

1785

1652

2326

133

1784

1760

$CHARC

1320+

2325

*
851
931»
970+
1007

1613

1896+

001164

919+
%g'
99

161

1117
1627
1952«

676*
849+
925+
969
1005«

1612«

1651

001254

389
{59+
533
605+

665
844

1300

$BELL

386+
450
532«
601+

159

11121625
1945«

664 *
83§

913«
966 *
991+

$CDOW1

154

1072+«
1624*
1759

1659«

1938+

2328

SEQ 0175

1095
1175

1121+
1628
2011

1613
1677«
2105«

«
885+
960+
977+
1052«

1345

1365«

1367

1385«

1387

1416

1619«

1621«

1100
1180«

1679+

1680

1616

1789«

1791

2120

2165«

2345

2347

1948

1104+
1181
1466

1618+«
1699«

1123
1;6-

1489«

1649

1700

1706

1955

2004+

2347

1811

1812

2167

2207+«

2329

2345+

1953«

1110+
1;34

1834+

2209

2363

2935

3113

14
22774

22778

2345

149
147
2275

2341
2341
22778

2345
2349
2994

2349

2327

2328

2345+
2340+
2326

427*
S0S

sgo958+
976
1048

147

22774
2340+
147«
23454
2325
2347

621
S04+
567+
L

740
875«
957«
974
1045«

2329

2341

1616
1719«
2228«

On
858«
956+
973
1021

2365

2335

1615«
1679
2160

7
856+
936+
972%
10
1664

1946

1612«
1651
2072«

633
802
890+
961+
978«
1054

1459

1615«

11%
1649+
2018+

111;
1;3-

1496

1622«
1721«

1835

2012«

2230«

1117«
1258

1618+«
1721
22

1619«
1735«
ngz

1621+
1737
2328

809+
895+

825+
Q00
P64«
981+«
1061

831+
908+
965+
982+
1066+

1420

1421

42
5%5§75«
646*

962+
980+
1059«

436*
523
576
651+

1118
1277«

1142«
1279

1498

1502«

1504

1722

1737«

1624+
1856«

2014

2231

1417

1%51857

2019«

2265«

1627

438
527+
584+
652

1146
1298+

1532+«

1628+

1738

1759+

2021

2067+

1876«

2267«

1877

2268

147«

SEQ 0176

2345

32#

2349
2341
2341

2074+
2327

86+
97

»
»

66+
90+

05+

H =N
coNOnN

1073
1152
1321«
1458+
1613+
1660+
1785
1865+
2021
2268

970
1007
1095
1175
1344~
1465+
1616+
1680
1791
1885+

968+

=000
O
NN

2020+
2263+

919+

913«
966+
992+
1071+
1150+
1300
1449
1612+
1652
1783«
1857

=000
NON H NN =

650
826+

521+
574+
691+
850+
931+

505
565+
663+
834+

S -0 OONWN
ONNIN—=
=N

447
503

400+
LO6*

388+

450

4\0?

387+

549+

030156
033056
000000
001000
033662
001104
036046
001135
001114
036300
036270
036122

2340+

001124

23474
2345+

$ESCAP
$E TABL
$ETEND
$FATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT

035304
001112
001162
001214
001256
001176
035704
001156
001155
001120

21
31-AUG=79 11:

H 14

MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104=15
CROSS REFERENCE TABLE == USER SYMBOLS

SERRTY
SERTTL

DIAGNOSTIC

—= VO NOH W= =
—WN o0
—

NCV1T
CZNCCB.PIT
CZNCCB

63+

2365

2340+

2335
2345

2347

311«
2335

313
2341

147
147

2340+

309+

1219

324

2084
2345

2132

23524+

382+

432+

L4746

487

500+

1403~

1799+

1822+

310

23524+
1748

2128

2175

2182

2219

2240

23524+

147

149

2340

2341

2345

1240

1911«

1980+

2340+

$MAMS4
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
SMSGTY

001240
001002
035702
033551
001210
001212
001174

3%
31#
23494
23354
328
32
328

SMTYP1
$MTYP2
sMTYP3
SMTYPL
$SMULT
SMXCNT
SNULL

001225
001231
001235
001241
036506
034372
001154

324
324
324
324
23584
23404
328

23354

SNWTST= 000001

3504
5484

B74#
9574
9744

2928
2341

3814
SS57#4
8794
9584
9764

12834

19734

20414

20834

21314

147+

299

1962

2029

2335

2341

2345

3175
23404
147
312

149
23524

2277

12
472

21
485

32
498

035706
036042
035760
001170
033270
wwxeax
033410
033562
000010
036450
(030200

147
23504
23504
324
23354
2365
23354
23374
23354
23564
22774

23504

$SAVRE
$SAVR6
$SB2D
$SCOPE
$SETUP=
$SIZE
$SIZEX

036412
036052
037234
034110
000137
036064
036342

23564
23504«
23634
147
139#
305
23524

2365

$STUP = 177777
$SVLAD 034322
$SVPC = 000106
$SWR
= 167400

23504

8994
9644
9814

12624

$PWRDN
SPWRMG
$PWRUP
$QUES
$RDCHR
SRDDE(=
SRDLIN
$RDOCT
$RDSZ =
SRESRE
SRTNAD

wxwaxnx

8944
9624
9804

4314
6554

12384

19024
23434+
23434
23404
324
34

8894
9614
9784

L4164
6374

12174

15414
16334

035100
035102
034356
001202
001006

SR2A

8844
9604
9774

4064
6134

11844

$OCNT
$OMODE
$OVER
$PASS
SPASTM

SPOWER 036054

3974
5924

1155#

15084
16284

SEQ 0177

3107

16124
16644

16134
16844

445K
6694
9074
9654
9824

L4554
6804
9124
9664
9844

L4634
7114

4724
7454

4854
7914

4984
8174

S12#4
8364
9564

9184
9684
9984

9244
9694
10124

9304
9704
10294

9354
9724
10774

9734
11254

16214
17954

16224
18184

16244
18424

16254
18624

16274
1882#

13054

13264

13504

2178%#

22134

2236#

22734

2123

2170

2277+«

2340

2335

2340

2345

350
548

381
557

397
592

406
613

416
637

43
655

445
669

455
680

960

961

962

964

965

966

16154
17104

16164
17268

16184
1743

16194
17654

13704

13934

1429

14724

253
2365

2365
2365
2365

2365

1394

23404
2N
S#
463
71
918

745
924

791
930

817
935

033540

2349+
2349+
2349+

oo
.

$MSWR

I 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104-16
CROSS REFERENCE TABLE == USER SYMBOLS

O 00w
—
NN
— 8
oo
N

CZNCCB NCV1T _ DIAGNOSTIC
(ZNCCB.P1T
31-AUG=79 11:21

957

879
958

884

889

894

899

907

912

972
1077
1429
1625
1862

968

998

$SWREG
001216
= 000000
$SWRMK
STEMP
002004

$TESTN
$TIMES

1882

2345

2350

383«

385

1411

050014
050016
001200
001160

S$TEMP]
$TEMP?2

973
1125
1472
1627

974
1155
1508
1628

976
1184
1541
1633
1973

387

393«

3578
36154

3583«

406*

416+

1902

1426%

655+

899
964*
981«
1283«
1616%
1726

$TKB
$TKS
$IN

2178%

001146
001144
= 000162

669*
*
907
965
982«
1305+
1618+
1743%
2213«
374
4634

6134
7114

8174
9354

$TNPWR
$1PB
$TPFLG
$TPS
$TRAP

$TRAP2
$TRP =
$TRPAD
$TSTM
$TSTAM
$TTYIN
$TYPBN=
$TYPDS
$TYPE

037150
001152
001157
001150

037270
037312
004
001102
033516

2340+

KRR ERR

033664
034374

2365
2349

2365

2345

SEQ 0178
978

2083

980
=A%

31-AUG=79 11:21

J 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 104=17
CROSS REFERENCE TABLE == USER SYMBOLS

N
= -2

DIAGNOSTIC

N = = —a
- O~

NCVTT
CZNCCB.P1T
CZNCCB

435

463+
745
*
924
969+
1012+
1370%
1622+

2277

981
1283
1616
1726

982
1305
1618
1743

984
1326
1619
1765

2178

2213

2236

437

441

442

NCV11
CZNCCB.PT
CZNCCB

$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT1
SVECT?2
S$XTSTR
$SGET4=
$OF ILL
$40CAT=

034606
034654
034702
034716

001246
034126
000000
035101
ARk
w RN

064002

.SASTA= LA A 2 2 2
= 001000
. $X

DIAGNOST |

31-AUG=79 11:

MACY11 30G(1063) 31-AUG=79 13:10 KPAZE 104-18

SEQ 0179

CROSS REFERENCE TABLE == USER SYMBOLS

23414

2345

264

2347k

294
23494

304
2350

314
23624

324
26294

147
34294

2277
36994

2324m
37334

23354
37344

23394
37354

2340

2341

CZNCCB NCV11 _ DIAGNOSTIC
CZNCCB.P1
31-AUG-79 11:21
COMMEN
ENDCOM

ERROR

134
134

134
525
648
853
957

977
1108
1347
1612
1704

368
530
654
860
958

978
1114
1369
1613
1708

371
535
667
877
960

980
1120
1389
1615
1724

2016
134
134
134
8?%:

2023

2069

2352
1494
875

2360

134
557
889
964
984
1370

OFFBIT
POP
:gggRT
RESLM

ESCAPE
GETPRI
GE TSWR
:8{¢AC
NEWTST

SETPRI
SETTRA
SETUP
SETZ

SKIP

391
540
678
882
961

981
1144
1419
1616
1740

404
545
700
887
962

982
1148
1424
1618
1762

413
555
709
892
964

995
1154
1451
1619
1787

423
571
733
897
965

1009
1173
1461
1621
1793

430
578
742
902
966

1023
1177
1468
1622
1814

440
587
766
910
968

SEQ 0180

452
603
781
915
969

461
607
804
921
970

469
612
811
627
972

481
625
827
933
973

1050
1183
1493
1624
1837

1056
1208
1500
1625
1859

1063
1236
1506
1627
1879

1068
1260
1529
1628
1899

1075
1281
1536
1656
1940

494
630
835
938
974

507
635
846
956
976

1097
1302
1577
1661
1950

1102
1324
1582
1682
2006

512
879
961
981
1326
1622

548
884
962
982
1350
1624

2077

2122

2169

2211

2233

2270

880

885

890

895

900

908

913

919

925

931

936

350
592
894
965
998
1393

381
613
899
966
1012
1429

397
637
907
968
1029
1472

406
655
912
969
1077
1508

416
669
918
970
1125
1541

431
680
924
972
1155
1612

445
711
930
973
1184
1613

455
745
935
974
1217
1615

463
791
956
976
1238
1616

472
817
957
977
1262
1618

485
836
958
978
1283
1619
1818

498
874
960
980
1305
1621

1842

1591#
13#
}%:

1612
2337
2337

1613
2339
2339

1615
2349
2349

1616
2350
2350

1618
2356
2356

1619
2358
2358

1621
2360
2360

1622

1624

1625

1627

1628

9% 14
974

956
976

957
977

958
978

960
980

961
981

962
982

964

965

966

968

969

970

972

973

485

512
879
961
981
1326
1622
1862

548
884
962
9
1350
1624
1882

1625

SCOPE

L 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 105
CROSS REFERENCE TABLE == MACRO NAMES

1627

1628

134
557
889
964
984
1370
1625
1902
134
2365#
134
1354
1227
;ggg

350
592
894
965
998
1393
1627
1973

381
613
899
966
1012
1429
1628
2041

147
599
1248
;ggé

134

611
806
932
973

480

1067
1209
1460

1633

1684

1710

1726

1743

1765

1795

1862

1882

1029
1472
1633
2083

406
655
912
969
1077
1508
1664
2131

416
669
918
970
1125
1541
1684
2178

431
80
924
972
1155
1612
1710
2213

445
711
930
973
1184
1613
1726
2236

455
745
935
974
1217
1615
1743
2273

463
791
956
976
1238
1616
1765
2277

472
817
957
977
1262
1618
1795

958
978
1283
1619
1818

498
874
960
980
1305
1621
1842

620
1377
1625

644
1413
1627

662
1437
1628

674
1480
1642

688
1516
1690

719
1555
1716

753
1612
1732

799
1613
1754

1037
1615
1773

1088
1616
1994

1133
1618
2114

1162
1619
2159

1199
1621
2197

300

323

340

366

374

390

403

412

422

429

439

451

460

468

626
810
937
974

629
833
956
976

634
852
957
977

649
859
958
978

653
876
960
980

881
961
981

677
886
962
982

701
891
964
994

708
896
965
1008

734
901
966
1022

741
909
968
1049

767
914
969
1051

782
920
970
1055

803
926
972
1062

493

1074
1220
1467

506

1096
1235
1492

397
637
907

1664

524

1098
1241
1499

529

1101
1259
1505

534

1107
1280
1530

539

1113
1301
1535

544

1119
1308
1578

554

1123
1323
1583

569

1145
1329
1612

577

1147
1346
1613

586

1153
1368
1615

602

1174
1388
1616

604

1176
1418
1618

606

1182
1450
1619

29
512
879
961
981

31
548
884
962
982

Blgeovereae

$SCMTM
$SESCA
SSNEWT

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
$SCMRE

2340

$SSET
$SSETM
$$SKIP

1474

.SWRLO

.SACTT

2335

2347

350
592
894
965
998
1393
1627
1973

381
613
899
966
1012
1429
1628
2041

300
634
886
962
982
1280

340
649
891
964
994
1301

12
14
139

114

431
680
972

1749

2017
2168

472

1262

2363

149

2173
13

KT11
.SETUP
. SWRHI

2341

2121

1739

2277

1619
1761
1965

.EQUAT
.HEADE

1350
1624
1882

2078
2275

1701
1844
1999

=2 \ N

2032
2210

1658
1836
1965

2030
2183

1326
1622
1862

SWRSU

1624
1792
1944

) =

SLASH
SOF TSW
SPACE
STARS

1622
1786
1941

SEQ 0181

awWwonrnw,m

1621
1761
1933

M 14
MACY11 30G(1063)
31-AUG=79 13:10 PAGE 105-1
CROSS REFERENCE TABLE == MACRO NAMES

NN
= = =2
WNONON—

CZNCCB NCVI
DIAGNOSTIC
21
CZNCCB.P1
31-AUG=79 11:

1621
1792
1968

2183

2133

CZNCCB NCV11 _ DIAGNOSTIC
CZNCCB.PT
31-AUG=79 11:21
38
31
2349

.SAPTB
.$SAPTH
.SAPTY

11#
11#
114

.$082D
.SD1V
.SEOP
.SERRO
.SERRT
LSMULT
. SPARM
. SPOWE
. SRDOC
. SREAD
.SSAVE
.$582D
.$SCOoP
.$SIZE

32
104
2362
104
2360
w2277
78
2345
2347
o
104
2358
8#
8¢
2350
2337
104
84
2335
8#
104
2363
104
8¢
2340
104
2352

. $SWDO
.STRAP
.$TYPB
.$TYPD
.STYPE
.$TYPO

84
b
9%
74
I

. ABS.

064002

-SCATC
. SCKSW
.SCMTA

.$SPAC

14
on
14

N 14

MACY11 30G(1063) 31-AUG=79 13:10 PAGE 105-2
CROSS REFERENCE TABLE == MACRO NAMES

2356

ERRORS DETECTED:

2365

2339

8¢

343

000

2341

CON

CZNCCB,CZNCCB/CRF=CZNC(B
RUN-TIME: 42 31 3 SECONDS
RUN-TIME RATIO: 120/76=1.5
CORE USED:
30Kk
(59 PAGES)

ABS

LCL

SEQ 0182