Digital PDFs

AH-9018C-MC

May 1978

165 pages

Original

96MB

view download

OCR Version

152MB

view download

Document:	CZPMAC0 PDM-70 DIAGNOSTIC TEST DEC 1978 bw
Order Number:	AH-9018C-MC
Revision:	000
Pages:	165
Original Filename:	CZPMAC0__PDM-70__DIAGNOSTIC_TEST__AH-9018C-MC__DEC_1978_gray.pdf

OCR Text

DIAGNOSTIC TEST

AH-3018C-MC
COPYRIGHT © 74-78

—FICHET OFY

IDENTIFICATION

SEQ 0001

PRODUCT CODE :

AC=9017C-MC

PRODUCT NAME:

CZPMACO PDM70 DIAGNOSTIC TEST

DATE CREATED:

1-FEB-1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR :

EARL L. BOUSE/MIKE MITCHELL

REVISED BY:

BILL SCHLITZKUS

THE INFORMATION
IN
THIS
DOCUMENT
IS
SUBJECT
TO
CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BY
DIGITAL
EQUIPMENT
COPROPATION.
DIGITAL
EQUIPMENT
CORPORATION ASSUMES NO RESPONSIBILTY FOR ANY ERRORS THAT MAY
APPEAR

IN THiS MANUAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
THE
USE OR RELIABILITY OF
NOT SUPPLIED BY DIGITAL.

ITS SOF TWARE ON EQUIPMENT

THAT

FOLLOWING ARE

DIGITAL

TRADEMARKS OF

PDP

DECUS

DIGITAL EQUIPMENT

UNIBUS

DECTAPE

CORPORATION:

MAS SBUS

FOR
IS

Page 1

TABLE OF

CONTENTS

1.0

ABSTRACT

2.0

REQUIREMENTS

3.0

LOADING PROCEDURE

4.0

STARTING PROCEDURE

5.0

TELEPRINTER CONTROL

6.0

CONSOLE SWITCH SETTINGS

7.0

SERIAL

8.0

DL11 ADDRESS SETUP PROCEDURE

9.0

MODULE ADDRESSING

(EQUIPMENT)

SWITCHES

I/0 INPUT OPTION

10.0 MODULE ERROR REPORTING
11.0 SCOPE LOOPING

12.0 MODULE TEST PROGRAMS
13.0 USER AID ROUTINES

SEQ 0002

Page 2
1.0

ABSTRACT

THIS IS A DESCRIPTION ON 'OADING, USING AND
INTERPRETING THE
PDM70
DIAGNOSTIC
PROGRAM.
THE
PROGRAM IS C(OMPRISED OF
TWENTY=-THREE KEYBOARD SELECTABLE TESTS WHICH TEST AND AID
1IN

CHECKOUT OF THE PDM70 SYSTEM.
THE PROGRAM IS STRUCTURED TO GIVE
THE USER THE OPTION OF TESTING ANY OF THE MODULES COMPRISING THE

PDM70 ON AN INDIVIDUAL OR SYSTEM TEST BASIS.

THE DIAGNOSTIC PROGRAM RESIDES IN A PDP=11 AND IS INTERFACED VIA
A DL11
(ASYNCHRONOUS SERIAL LINE) TO THE PDM70.
THE PDP=11 IS
USED AS A COMBINATION CONTROL, SOURCE AND DESTINATION MODULE.

EACH

MODULE

TEST PROGRAM IS INDIVIDUALLY OUTLINED IN THIS
SC.”E LOOPING TECHNIQUE AND MODULE ADDRESSING
SCHEME IS IN GENERAL THE SAME FOR ALL MODULES WITH ANY UNIQUE
CHARACTERISTICS POINTED OUT IN THE MODULE OUTLINE.

WRITE-UP.

THE

THE CONSOLE TELEPRINTER IS USED TO SELECT THE TEST
PROGRAMS AND
TO CONTROL
THE DIAGNOSTIC.
THE DIAGNOSTIC RUNS IN THREE MODES:

MONITOR, WAIT AND RUN.

THE "MONITOR MODE' IS ENTERED WHEN THE PROGRAM IS
LOADED
OR
AT
ANY
TIME
A NEW TEST IS TO BE SELECTED.
HERE THE PROGRAM WAITS,

EEC(DESDAM) THEN EXECUTES THE SELECTED TEST
WHEN THE

°"WAIT MODE'

PARAMETERS

FROM

THE

IS ENTERED THE PROGRAM HAS TO WAIT

FOR

ANY

(SUCH AS A MODULE ADDRESS)

TYPED

TO BE

INPUTTED, A SIGNAL

BE SCOPED OR TO STOP PROGRAM EXECUTION IF AN ERROR IS DETECTED.
THE

"RUN MODE'

PROGRAM.

IS WHEN THE PROGRAM IS ACTUALLY EXECUTING

TEST

THE TELEPRINTER KEYBOARD IS ALWAYS ACTIVE AND WILL RESPOND TO ANY

KEYBOARD INPUT.

ALL USERS RESPONSES ENTERED MUST END WITH A ‘(R'

(CARRIAGE RETURN) AND MAY NOT CONTAIN SPACES OR NULL
CHARACTERS.
'RUBOUT®
MAY BE USED TO ERASE ANY PREVIOUSLY ENTERED CHARACTERS.
IF RUBOUT IS TYPED, THE ERASED CHARACTER WILL BE ECHOED BACK.

REQUIREMENTS (EQUIPMENT)
1.

(e SV, P UI,N)

2.0

PDM70 MOTHER BOARD.

CLOCK MODULE (M7379-SET TO CORRESPOND TO THE DL11 FREQ.)

POWER SUPPLY

PDP-11 W/DL11 & 8K OF MEMORY

PDM70 INTERFACE MODULE

CONSOLE TELEPRINTER

THIS CAN EITHER BE A DF11 OR
(M7385)

SERIAL

1/0

MODULE

SEQ 0003

LOADING PROCEDURE
USE STANDARD PROCEDURE FOR LOADING BINARY TAPES.

%85 PROGRAM IS SELF STARTING WITH A RESTART
. ..

ADDRESS

STARTING PROCEDURE

R s

4.0

3.0

SEQ 0004
L

E
Page 3

5.0

TELEPRINTER CONTROL SWITCHES
1.

RETURN TO MONITOR

(*(C)=

TYPING A '“C' AT ANY TIME WILL

RETURN

ENABLE

THE

PROGRAM

THE KEYBOARD MONITOR AND WAIT FOR A NEW TEST

TO BE ENTERED.

CONTINUE

(O)

——

IF A "“C' HAS BEEN TYPED,
RETURNING CONTROL
TO THE
MONITOR,
AND
THE
USER WISHES TO RESTART THE
LAST TEST HE WAS RUNNING,
HE
CAN_ SIMPLY
TYPE
‘('
CARRIAGE
RETURN AND CONTINUE WITHOUT HAVING TO RE-TYPE

KEYBOARD

THE TEST NAME.

RESTART (*R)~
TYPING A
'“R'
WILL
ENABLE
THE
CURRENT
TEST
TO
BE
RESTARTED.
IF
A
'*R' IS TYPED WHILE IN MONITOR MODE,
THE ENTIRE TEST PROTOCOL IS RETYPED.

MODULE ADDRESS UPDATING (*A)x
TYPING A '*A' WHILE RUNNING ANY OF THE
MODULE
WILL ENABLE A NEW MODULE ADDRESS TO BE ENTERED.

EXIT WAIT MODE
TYPING

(CR)

"CR' WILL ENABLE

WAIT MODE.

PROGRAMS

THE PROGRAM TO CONTINUE FROM THE

* ALL CONTROL CHARACTERS ARE OBTAINED BY

CHARACTER DESIGNATED' KEYS SIMULTANEOUSLY.

TYPING

THE

°'CTRL

AND

THE

Page 4

SUPPRESS PRINTING (*“0)

TYPING A **0' TELLS THE COMPUTER TO SUPPRESS THE REST OF
THE TELEPRINTER OUTPUT.
FOR INSTANCE, IF THE COMPUTER
WAS TYPING OUT A MESSAGE AND THE USER KNEW WHAT THE
MESSAGE WAS GOING TO BE, HE COULD TYPE A '“0' AND ENABLE
THE PROGRAM TO CONTINUE WITHOUT WAITING FOR
THE
ENTIRE

]

MESSAGE TO BE PRINTED.

SEQ 0005

CONSOLE SWITCH SETTINGS

6.0

WHEN THE EXERCISER TEST OR A DIAGNOSTIC TEST IS

STARTED, THE PROGRAM WILL DETERMINE IF THE PROCESSOR
IF THEREt
IS NO HARDWARE SWR, THE PROGRAM WILL USE THE SOF TWARE
THE OPERATOR SHOULD SET
SWR LOCATED AT ADDRESS 176.
UP LOC 176 BEFORE STARTING THE PROGRAM WITH THE
APPROPRIATE VALUE.

SWITCH

FUNCTION

SW15=0

ENTER THE 'WAIT MODE' AND WAIT FOR

SW15=1

CONTINUE ON ERROR

SW14=0

CONTINUE ON TO NEXT SUBTEST

SW14=1

LOOP ON CURRENT SUBTEST

SW13=0

ENABLE PRINTOUTS

Sw13=1

INHIBIT PRINTOUTS

SW12=0

NORMAL DL11 TRANSMISSION

Sw12=1

ENTER THE 'WAIT MODE'
AND WAIT
FOR A
'CR'
TO
TRANSMIT
EACH
C(HARACTER.
AS

‘(R’

EACH CHARACTER IS TRANSMITTED IT IS ALSO

PRINTED.

SW11=0
SW11=1

Sw10=0
SW10=1

NORMAL DL11
TRANSMIT

SW11

TRANSMISSION

THE

CURRENT

IS RESET TO '0°'.

C(HARACTER

UNTIL

RUN THE ENTIRE MODULE TEST PROGRAM
INHIBIT THE MANUAL INTERVENTION TESTS IN

THE MODULE

TEST PROGRAM

SW09=0

NORMAL DL11

TRANSMISSION

SW09=1

INHIBIT TRANSMITTER DELAY

—
T

Nl TV

ON ERROR DETECTION

R ok
wd @ ITY d R ol bt () —d

—

HAS A HARDWARE SWITCH REGISTER (SWR).

(SCOPE LOOPING AID)

wvm

D0 >

) -4

"LDAR~A0

~ND

APPLICABLE

USAGE

el
i £

THE

TEST DESCRIPTIONS.

) -

THE LOWER BITS (0-8) VARY

—

OUTLINED

_—

THE FUNCTIONS OF

ARE

—ltAMMIA
LA

NOTE:

»2Z

SEQ 0006

Page 5

THE
/NY

GENERAL THOUGH, DATA SWITCHES '0-3" ARE USED IN
TO ENABLE THE USER TO SELECT
TESTS
EXERCISER

PARTICULAR MODULE MODE.
IN THESE CASES, THE PROGRAM ADDS
A CODE OF
'60'
TO THE NUMBER READ FROM THE SWITCHES TO
REPRESENT AN ASCII NUMBER.

IF THE PROGRAM IS USING THE SOF TWARE SWR, THE
OPERATOR MAY CHANGE THE SWITCH SETTINGS FROM THE
TTY.
AFTER SELECTING A TEST OR TYPING 'C'
IN THE MONITOR MODE,
THE PROGRAM WILL OUTPUT AT THE TTY THE FOLLOWING

ME SSAGE

SWR=XXXXXX

NEW SWk=

THE OPERATOR MAY THEN ENTER THE NEW VALUE.

CARRIAGE RETURN ENTERS THE UPDATED VALUE.
IF NO VALUE HAS BEEN ENTERED, THE SWITCH

THE OPERATOR MAY

INTERRUPT THE TEST TO CHANGE THE SWITCH SETTINGS
BY TYPING CONTROL-G AT THE TTY.
THE PROGRAM WILL
OUTPUT AT THE TTY THE FOLLOWING MESSAGE
SWR=XXXXXX
NEW SWR=

THE OPERATOR MAY THEN RESPOND AS DESCRIBED
PRECEDING PARAGRAPH.
7.0

SERIAL

IN THE

I/0 INPUT OPTION

AS MENTIONED IN THE ABSTRACT, THE PDM70 MODULES CAN BE TESTED

TWO MODES;
PER MODULE BASES OR SYSTEM TEST.
IF THE MODULE IS
TESTED INDIVIDUALLY A DF11 IS PLUGGED DIRECTLY INTO
THE
CONTROL

SLOT

THE PDM70 MOTHER BOARD.

THIS ENABLES THE PDP-11 TO ACT

AS A COMBINATION CONTROL, SOURCE AND DESTINATION MODULE.
IN THIS
CASE,
THE
SYSTEM (CLOCK MUST BE SET TO CORRESPOND TO THE CLOCK
FREQUENCY OF THE DL11.
WHEN THE MODULE IS TESTED IN

SYSTEM

ENVIRONMENT,

THE

BASIC

SYSTEM CONFIGURATION CONSISTS OF
A
:
CONTROL, CLOCK, ‘KGM’
(KNOWN GOOD SERIAL INPUT/OUTPUT MODULE) AND A 'MUT' (MODULE UNDER
TEST).
THE
°'KGM' SHOULD BE VERIFIED AS SUCH BY TESTING IT WITH
THE M73851 TEST (REFER TO SECTION 12.13).
THE
'KGM'
CAN BE
INSERTED IN ANY MODULE SLOT AND THEN CABLED TO THE DL11 OUTPUT OF
THE PDP-11.
THIS MODULE IS TO BE SET UP WITH THE 'D'' JUMPER OUT
AND THE ‘L'’ JUMPER IN SO THAT IT IS INITIALIZED ON POWER UP.
THE
SYSTEM CLOCK MUST BE SET EITHER EQUAL TO OR GREATER
THAN,
THE
INPUT DEVICES
(E.G.
DL11)
BAUD NOTE.
PROGRAMS ARE THEN SENT
FROM THE PDP-11

STORED IN THE CONTROL MODULE.

NOT OBVIOUS TO THE USER IS THE EXTRA ADDRESSING WHICH IS 'PADDED’

SEQ 0007

WHEN

THIS PADDING SERVES TWO

THE SERIAL I1/0 MODULE IS USED.

FUNCTIONS.
FIRST, IT FACILITATES LOADING A LEGAL PROGRAM
THE CONTROL MODULE
‘'FIFO'
(FIRST=iN, FIRST=OUT BUFFER).

INTO
THIS

MEANS STARTING EACH PROGRAM WITH AN 'STX' AND ENDING IT WITH AN
"ETX'.
PADDING ISN'T NECESSARY WHEN THE MODULE IS TESTED ON A
MODULE BASIS.
ALSO, EXTRA ADDRESSING MUST BE ADDED TO ADDRESS
THE
°'KGM'.
THE PROGRAM HAS TO BE CERTAIN THAT THE 'KGM' NEVER
LOSES CONTROL OF A PROGRAM SINCE THIS IS THE ONLY INTERFACE TO
THE PDP-11.
BY SETTING DATA SWITCH 12, THE USER CAN SINGLE STEP
cgsKQOE?LE TEST PROGRAM AND EXAMINE WHAT THIS PADDED PROGRAM
KE.

WHEN THE PROGRAM IS STARTED, IT ASKS IF A

USED.

SERIAL

IF IT IS, TYPE "YES' OR 'Y' CARRIAGE RETURN.

1/0

BEING

IF IT'S NOT,

TYPE "NO', 'N' OR SIMPLY 'CR'.
THIS PARAMETER CAN BE CHANGED
ANY TIME BY TYPING A '“R' WHILE IN THE MONITOR MODE.

IF THE 'KGM' 1/0 IS BEING USED, THE PROGRAM WILL THEN ASK FOR THE
THIS CAN BE ANY ADDRESS EXCEPT '17°
ADDRESS OF THIS MODULE.

WHICH FIT THE
ADDRESSING).

GUIDE

LINES

DESCRIBED

SECTION

9.0

(MODULE

SEQ 0008

Page 6

8.0

DL11 ADDRESS SETUP PROCEDURE

AFTER SETTING UP THE SERIAL 1/0 OPTION, THE PROGRAM PRINTS “DL11
THIS ENABLES THE USER TO SELECT HIS OWN DL11
ADRS., VEC.?''.
THE DEFAULT
DEVICE AND VECTOR ADDRESSES. BY SIMPLY TYPING 'CR',

RCSR

ADDRESS

'175610°' AND VECTOR ADDRESS OF '300' ARE USED.

IF THESC ADDRESSES ARE TO BE MODIFIED, TYPE THE RCSR ADDRESS

THE VECTOR ADDRESS SEPERATED BY A COMMA.

AND

THE USER SHOULD NOTE THAT BOTH THE DL!1 AND THE SERIAL 1/0 MODULE
ARE NORMALLY SETUP FOR 7 BIT EVEN PARITY.

9.0

MODULE ADDRESSING

WHEN A MODULE PROGRAM IS SELECTED,
THE PROGRAM REQUESTS
THE
MODULE ADDRESS BEFORE THE TEST IS RUN.
THIS ADDRESS CAN BE ANY
NUMBER FROM '0-17'+.,
THE ONLY RESTRICTION IS THAT IF THE
SERIAL

INPUT

OPTION

IS BEING USED, THESE TWO MODULE ADDRESSES MUST NOT

CONFLICT.
IF THEY DO, A NEW MODULE ADDRESS WILL BE REQUESTED.
TYPING A '*A"' AT ANY POINT WHILE A MODULE PROGRAM IS RUNNING WILL
CAUSE THE PROGRAM TO REQUEST A NEW MODULE ADDRESS.

10.0

MODULE ERRORS

WHEN A MODULE ERROR IS DETECTED, THE FAILING SUBTEST NUMBER, M.A.
(MEMORY ADDRESS)
WHERE ERROR OCCURRED AND A DESCRIPTIVE MESSAGE

OF THE FAILURE ARE TYPED OUT.
THE PROGRAM THEN ENTERS THE
‘WAIT
IS TYPED ENABLING THE PROGRAM TO CONTINUE.

MODE' UNTIL A 'CR'

WHEN AN ERROR IS DETECTED, THE

‘'M.A.' SHOULD BE

USED

LOCATE

THE
FAILING
SUBTEST
IN THE LISTING.
HERE THE USER WILL FIND A
WRITTEN DISCRIPTION OF WHAT THE SUBTEST
WAS
ATTEMPTING
TO DO.
THE
TEST CAN THEN BE ANALYZED AND THEN LOOPED IF NECESSARY UNTIL
THE FAILURE IS FIXED.
WHEN A MODULE IS FAILING THE FIRST SUBTEST, IT IS A GOOD IDEA
TO
RE-CHECK
THE
MODULE
TO MAKE SURE THAT IT WAS SET UP CORRECTLY

WITH THE CORRECT SWITCH & JUMPER SETTINGS.
THE IDEAL
SITUATION,
IF POSSIBLE, WOULD BE TO FIRST TEST A KNOWN GOOD MODULE.

11.0

SCOPE LOOPING

EACH MODULE ADDRESS TEST PROGRAM IS COMPRISED OF
*

THE MODULE ADDRESS

ANY

INTERPRETTED AS AN OCTAL VALUE.

NUMBER

SEQ 0009

1
K
Page 7

INDIVIDUAL SUBTESTS. WHEN A MODULE PROGRAM IS RUN THESE SUBTESTS
ARE RUN AS A WHOLE, OTHERWISE, WHEN ONE SUBTEST FINISHES THE NLCXT
SUBTEST IS EXECUTED.

THERE ARE TWO WAYS OF RUNNING ANY SELECTED SUUBTEST;
THE USER
MAY RUN THE 'SUBX' ROUTINE (REFER TO SECTION 13.1) OR RUN THROUGH
THE ENTIRE MODULE PROGRAM UNTIL THE SELECTED SUBTEST IS REACHED.
IF THE LATTER METHOD IS USED, LOAD THE NUMBER OF THE SUBTEST TO
BE LOOPED IN THE CONSOLE SWITCH REGISTER AND START THE MODULE
PROGRAM.
THE PROGRAM WILL
TYPE 'SCOPE BREAK AT XXX' WHEN THE
SUBTEST IS REACHED. NOW SET CONSOLE SWITCH '14' TO LOOP ON THE
CURRENT SUBTEST AND THEN TYPE °'CR'.
THE PROGRAM WILL THEN RUN
THE SELECTED SUBTEST UNTIL SWITCH *14' IS RESET TO
'0O'
ENABLING
THE PROGRAM TO CONTINUE.

12.0

MODULE TEST PROGRAMS

THE FOLLOWING IS A LIST AND
DESCRIPTION OF
ALL
THE MODULE
PROGRAMS.
IT
SHOULD BE NOTED THAT IN THE PROGRAM TEST PROTOCOL

EACH MODULE PROGRAM ENDS WITH A LETTER.
THIS LETTER INDICATES
THE
TYPE
OF
TEST;
A = ADDRESSING,
C
=
CALIBRATION*, E =
EXERCISER, G = GAIN*, I = INTERFACE, R = REPEATIBILITY«*,
THE MODULE
ADDRESS
TEST
SHOULD BE
RUN AND
PROVED
FULLY
OPERATIONAL BEFORE RUNNING ANY OF THE OTHER TESTS.
THIS TEST
VERIFIES THAT THE MODULE CAN BE ADDRESSED AND
THAT
IT WORKS
"FUNCTIONALLY"

IN ALL ITS INTENDED DATA MODES.

THE USER SHOULD REFER TO THE ENGINEERING SPECIFICATIONS TO VERIFY
mTng$SSUITCHES AND JUMPERS ARE SET UP CORRECTLY BEFORE RUNNING

NOTE:
BEFORE EACH MODULE TEST IT IS A GOOD PRACTICE TO CLEAR OUT
THE PDM FIFO BY HITTING THE 'RESET'' BUTTON ON THE FRONT PANEL.
**~ALSO NOTE:

12.1.

IF THE PROGRAM IS USING THE SOF TWARE SWR,
REFER TO SECTION 6.0.

M7380A, CONTROL MODULE TEST

THIS PROGRAM TAKES THE CONTROL MODULE THRU TLIE INITIALIZATION,

ADDRESS AND DATA MODES RESPECTIVELY.

INITIALLY, TWO PROGRAMS ARE
STORED IN THE CONTROL MODULE
‘'FIFO'.
THE SECOND PROGRAM IS
HEADED WITH A
'DC4'
SO IT WILL NOT BE RECIRCULATED.
WITH THE
FIRST PROGRAM IN THE DATA MODE, A '500' WORD RANDOM DATA BUFFER
IS CIRCULATED THRU THE CONTROL MODULE.
AFTER VERIFYING THE DATA,
AN "EOT' IS ISSUED.
THIS ENABLES THE SECOND PROGRAM TO BE CALLED
OUT.
THE DATA MODE IS AGAIN CHECKED AND ANOTHER °'EOT' IS ISSUED
ENABLING THE FIRST PROGRAM
IS BE
RE-CALLED.
ONCE
VERIFIED,

SEQ 0010

* APPLY TO THE A/D MODULE ONLY.

1f¢

SEQ 0011

M1
Page 8

ANOTHER 'EOT' IS ISSUED. A CHECK IS THEN MADE THAT THE SECOND
PROGRAM, HEADED WITH A 'DC4', NO LONGER EXISTS .
THE 'FIFO' IS
THEN REPROGRAMMED.

THIS PROGRAM CONSISTS OF '64'
CHARACTERS ENABLING THE_ CONTROL
'FIFO'
TO BE COMPLETELY FILLED.
THE PROGRAM CONSISTS OF ONE
SOURCE AND ONE DESTINATION ADDRESS.
THE REMAINING 55 LOCATIONS
ARE FILLED WITH RANDOM LITERAL CHARACTERS.
THE PROGRAM IS THEN
CALLED OUT AND VERIFIED.

THE LAST TEST CHECKS THE DELAY TIMES OF
THE
'SYN'
(HARACTER.
THIS TEST REQUIRES A '110 BAUD' CONSOLE DEVICE SUCH AS A 'TTY' IN
ORDER TO RUN.
THE CRYSTAL CLOCK IN THE TTY IS USED TO TIME THE
*SYN' DELAYS.
IF THE CONSOLE DEVICE IS NOT AVAILABLE, THIS TEST
WILL NOT PASS. ALL THE DELAYS, 1-9, ARE TESTED IN_ ORDER.
THE
TESTS MAKES TWO CHECKS AT EACH DELAY.
FIRST, THAT THE DELAY
ISN'T TOO SHORT AND SECOND, THAT THE DELAY ISN'T TOO LONG.
THIS COMPLETES THE CONTROL MODULE TESTS.
HOWEVER, IF DATA SW10
IS SET THE PROGRAM WILL ALSO TEST THE M7387 HARDWARE READIN
MODULE (1). OTHERWISE, THE MESSAGE °'TEST COMPLETE'
IS PRINTED
AND THE PROGRAM WILL CONTINUE
TO CYCLE THRU THE CONTROL TEST
UNTIL STOPPED.

M7387, HARDWARE READ-IN MODULE
AS MENTIONED ABOVE, THIS TEST IS RUN IN CONJUNCTION WITH
THE M7380A
1°ST.
THE TEST REQUIRES THE USER TO INSERT
THE M7387 MODULE WITH A DIAGNOSTIC °'PROM'
PROGRAM
INTO
SLOT 'P5' OF THE MOTHER BOARD.

AFTER THE MODULE HAS BEEN INSERTED, THE PDM70 SHOULD
POWERED

UP.

THIS

WILL

geegu'(l’lég' STORED IN THE CONTROL MODULES FIFO,
x

ENABLE THE PROM PROGRAM TO BE

AND

THEN

THE PROM PROGPAM IS SETUP TO ADDRESS
THE
SERIAL
1/0
DESTINATION MODULE AND THEN SEND LITERAL DATA.
AFTER

VERIFING THE DATA, THE MESSAGE 'PROM OK'' IS

TYPED.

2%”?&

THIS MESSAGE IS NOT TYPED IMMEDIATELY AFTER POWER UP, NO

12.2.

EVER

RECEIVED,

THUS

INDICATING

ERROR

M7381A, BCD INPUT MODULE ADDRESS TEST

THIS TEST ADDRESSES THE °'BCD' MODULE IN ALL
FOUR(4)
DATA MODES
VERIFYING
INTERNAL AND EXTERNAL DEVICE FLAG OPERATION.
IT IS
SUGGESTED THAT THE M7381E TEST SHOULD BE RUN IF ANY DATA ERRORS
ARE

REPORTED.

HERE THE USER CAN READILY IDENTIFY THE DATA ERROR

BY THE TYPEOUT.
THE CUSTOMER SWITCHES
(WHICH SELECT HOW MANY
DIGITS ARE READ)
ARE
TESTED BY THE PROGRAM REQUESTING UNIQUE
SWITCH SETTINGS.
SETTING DATA 'SW10' WILL
INHIBIT THE MANUAL

INTERVENTION

TESTS.

THIS

MODULE HAS TO BE TESTED WITH THE 'L’

SEQ 0012

N
1
Page 9
JUMPER 0OUT.

12.3.

M7381E, BCD INPUT MODULE EXERCISER TEST

THIS PROGRAM CONTINUOUSLY LOOPS ADDRESSING THE BCD MODULE AND
PRINTING THE RECEIVED DATA.
DATA SWITCHES 'O & 1' ARE USED TO

'BCD' DATA MODES. _ THE SWITCH
SELECT ANY ONE OF THE FOUR (4)
SETTINGS MAY BE SET AND RESET ANY TIME. DATA SW13 CAN ALSO BE
SET TO INHIBIT THE DATA PRINTOUT.

12.4.

M7382A, BCD OUTPUT MODULE ADDRESSING TEST

THIS TEST IS COMPRISED OF A SERIES OF SUBTESTS WHICH OUTPUT KNOWN
DATA TO THE °'BCD' OUTPUT MODULE.
ONCE THE DATA IS TRANSMITTED,
THE USER IS NOTIFIED OF THE
TRANSMITTED PATTERN.
THE_ PROGRAM
THEN ENTERS THE °'WAIT' MODE ENABLING THE USER TO VERIFY THE DATA.
THE LAST SUBTEST REQUESTS FOR THE USER TO SCOPE
FOR THE
SIGNAL
'OUTPUT DONE H & L'.
THE PROGRAM WILL INDEFINITELY HANG IN THIS

SUBTEST UNTIL EITHER '“R' IS TYPED TO RESTART THE M7382A TEST
*AC*"

12.5.

IS TYPED TO RETURN TO THE MONITOR.

BCD I1/0 TEST

THIS IS AN EXERCISE TEST UTILIZING BOTH THE BCD 'INPUT & OUTPUT'
MODULES.
AN INCREMENTING BCD COUNT IS SENT TO THE OUTPUT MODULE
AND WRAPPED AROUND VIA A SPECIAL CABLE TO THE INPUT MODULE.
THE
INPUT MODULE
IS THEN ADDRESSED, ENABLING THE DATA TO BE READ.
THE RECEIVED DATA IS VERIFIED AGAINST THE TRANSMITTED DATA.
THIS
TEST
VERIFIES THAT ALL DATA LINES ARE GOOD AND THAT NO TWO LINES
ARE SHORTED TOGETHER.

THE INPUT MODULE CAN BE SET UP TO USE EITHER INTERNAL OR EXTERNAL
SYNC.
IF EXTERNAL SYNC IS SELECTED, THE SYNC SIGNAL IS SUPPLIED
FROM THE BCD OUTPUT MODULE VIA THE CABLE.

12.6.

M7383A, A/D MODULE ADDRESS TEST

THIS TEST ADDRESSES THE A/D MODULE AND VERIFIES THE CORRECT
DATA
FORMAT
IS RECEIVED FROM THE MODULE.
THE EXTERNAL SYNC FUNCTION
IS ALSO TESTED.
IT SHOULD BE
NOTED
THAT
THIS
TEST MAKES NO
ATTEMPT
TO VERIFY WHEATHER OR NOT
THE A/D IS CONVERTING THE
CORRECT VALUES.

12.7.

M7383C, A/D CALIBRATION ROUTINE

SEQ 0013

THIS TEST RUNS IN A CONTINUOUS LOOP ADDRESSING THE A/D MODULE AND
PRINTING THE
CONVERSION VALUE.
AFTER ACCEPTING THE MODULE

ADDRESS, THE PROGRAM TYPES ‘REMOTE DST.?''.
THIS IS AN OPTION
WHICH ENABLES THE USER TO SEND THE CONVERSION DATA TO A USER
SELECTED DESTINATION, SUCH AS THE DISPLAY.
IF
THIS OPTION IS
DESIRED,
TYPE 'YES' OR 'Y' & 'CR'.
A REQUEST WILL_THEN MADE FOR
THE ADDRESS OF THIS DESTINATION.
DATA SWITCHES '0-3' ARE USED TO

SELECT

THE

A/D CHANNEL TO BE CONVERTED.

INHIBIT THE CONVERSION DATA PRINTOUT.

SET OR RESET AT ANY TIME.

SETTING DATA SW13 WILL

ALL DATA SWITCHES

MAY

CHANNEL SELECTION IS AS FOLLOWS:

DATA SW'S *0-1' SELECT 'INT.
SYNC' ON CH.'S 0,1,2 OR 3
3
DATA SW'S '2' & '0-1' SELECT 'EXT SYNC' ON CH.'S 0 1,2 0R
DATA SW "3' SELECTS "INT SYNC' CONVERSION ON ALL ' 4 * N, 'S
DATA SW'S '283' SELECT 'EXT.
SYNC' CONVERSION ON ALL '4' CH.'S

12.8.

M7383G, A/D GAIN ACCURACY TEST

THIS TEST IS USED TO TEST THE GAIN ACCURACY

THE

A/D.

FIVE

SPECIFIC VOLTAGES AT A GAIN OF '"1"" ARE REQUESTED BY THE PROGRAM.
WHEN THE VOLTAGE AND GAIN HAVE BEEN SUPPLIED,
TYPE
'(R'.
A
SERIES OF
ONE HUNDRED CONVERSIONS ARE THEN TAKEN AND AVERAGED.
THIS AVERAGE IS THEN TESTED TO BE WITHIN '+ OR =' ONE COUNT
FROM
THE TRUE VOLTAGE VALUE FOR THAT SPECIFIED SETTING.
IF IT IS NOT,
THE LOW, AVERAGE AND HIGH VALUES OBTAINED ON THAT
PARTICULAR

GROUP OF
CONVERSIONS ARE TYPED OUT.
THE PROGRAM WILL THEN TAKE
ANOTHER SERIES OF CONVERSIONS AND WILL CONTINUE DOING
SO,
UNTIL

THE
CORRECT
VALUE
IS RECEIVED.
AT THAT POINT THE PROGRAM WILL
REQUEST A NEW SETTING.
DATA SWITCH '13' CAN BE
SET
TO
INHIBIT
THE ERROR DATA PRINTOUT.

12.9.

M7383R, A/D REPEATIBILITY TEST

THIS TEST TAKES A SERIES OF ONE HUNDRED

CONVERSIONS

USER

THE

GRAPH TO A USER SELECTED

SELECTED
CHANNEL.
THE
CONVERSIONS ARE
AVERAGED AND
THEN
DISPLAYED
IN A
GRAPH
FORMAT
SHOWING
THE
REPEATIBILITY
CHARACTERISITICS OF THE A/D.
AFTER ACCEPTING THE MODULE ADDRESS,
THE PROGRAM TYPES 'REMOTE DST.?'".
THIS IS A OPTION WHICH ENABLES
USER

DESTINATION.

SEND

THE

COMPUTED

A/D

IF THIS OPTION IS DESIRED,

TYPE

'YES'

'CR'.
A REQUEST WILL
THEN BE
MADE
FOR
THE ADDRESS OF THE
DESTINATION.
WHEN STARTED, THE TEST REQUESTS A CHANNEL AND V.S.F
(VERTICAL
SCALE
FACTOR).
THE
V.S.F.
IS
THE
NUMBER
OF
CONVERSIONS, OF THE HUNDRED, TO BE AVERAGED TOGETHER TO REPRESENT
ONE POINT ON THE GRAPH.
THE V.S.F.
CAN BE ANY NUMBER EVENLY
DIVIDED
INTO ONE
HUNDRED.
EACH POINT
(REPRESENTEND AS
AN
ASTRICK) IS PLOTTED IN ITS RELATIONSHIP TO THE OVERALL AVERAGE OF
THE HUNDRED CONVERSIONS.

THE FOLLOWING IS AN EXAMPLE OF

GRAPH PRINTOUT MIGHT LOOK LIKE USING A V.S.F.

10;

WHAT

10 POINTS,

SEQ 0014

Page 10

page 11
-

EACH REPRESENTING THE AVERAGE OF

'10' CONVERSIONS.

EXAMPLE:

VSF? 10
CH.2 1

+444444444

=141

+4444+444+

=150

=159

(SCALE=TMV/DIV)

THE THREE NUMBERS AT THE BOTTOM OF
THE
SCALE
(RIGHT
TO LEFT)
REPRESENT;
THE LOWEST VALUE, THE OVERALL AVERAGE AND THE HIGHEST
VALUE READ OF THE ONE HUNDRED CONVERSIONS.
SINCE THE GRAPH ONLY

SHOWS COUNTS '+ & =' 9 COUNTS FROM THE AVERAGE, AN OVERRANGE 'HI
SAhgé PRINTOUT WOULD RESULT IF ANY COUNTS FALL OUT OF THE 9 COUNT
R

12.10.

M7384A, D/A ADDRESSING TEST

THIS TEST STARTS BY ADDRESSING THE DIA MODULE USING MODES
'8 &
9'.
THE USER
IS THEN REQUESTED TO SCOPE THE SIGNALS PROG 'L &
H'.
FIVE SPECIFIC VOLTAGE ARE THEN TRANSMITTED FROM THE
D/A ON
EACH CHANNEL.
AFTER EACH VOLTAGE IS TRANSMITTED, A MESSAGE IS
TYPED TELLING THE USER THE VOLTAGE AND CHANNEL.
THE LAST SUBTEST
CHECKS
THE
RECOVERY OF
THE
D/A.
THIS IS DONE BY CONTINOUSLY

ADDRESSING THE DAC IN MODE 3 (BOTH CHANNELS).

ALTERNATLY

OUTPUTS

'O'

VOLTS

THE PROGRAM THEN
AND '9.5' VOLTS.
THIS ENABLES A

SQUARE WAVE OUTPUT FROM THE D/A.
THE USER IS REQUESTED TO SCOPE
BOTH CHANNEL OUTPUTS AND CHECK FOR A 5 U SECOND.
RISE TIME.
THE

PROGRAM

WILL

RESTARTED OR EXITED.

12.11.

INDEFINITELY

HANG

THIS

SUBTEST

UNTIL

M7384E, D/A EXERCISER TEST

THIS TEST ENABLES ANY USER SELECTED VALUE TO BE TRANSMITTED
FROM
THE
D/A.
WHEN SELECTED, THE TEST REQUESTS FOR TWO, THREE DIGIT

VALUES (SEPARATED VIA COMMA'S) TO BE TYPED IN.
THE
FIRST VALUE
IS
THE ONLY ONE TRANSMITTED WHEN RUNNING ONE CHANNEL.
IF BOTH

SEQ 0015

CHANNELS ARE SELECTED, THE FIRST VALUE WILL BE TRANSMITTED ON
CHANNEL
*0'
(X DAC) AND THE SECOND VALUE WILL BE TRANSMITTED ON
CHANNEL *1' (Y DAC).
THE CHANNELS ARE SELECTED BY DATA SWITCHES
"0 & 1' AND CAN BE SET AND RESET AT ANYTIME.
SETTING DATA SWITCH
*0' WILL SELECT CHANNEL '0'.
SETTING DATA SWITCH '1' WILL SELECT
CHANNEL 1 AND SETTING BOTH 'O & 1' WILL SELECT BOTH CHANNELS.
TYPING A "“R' WILL ENABLE FOR A NEW

ACCEPTED.

12.12.

M7385A, SERIAL

SET

DAC

VALUES

1/0 ADDRESS TEST

THIS TEST CHECKS BOTH THE SOURCE AND DESTINATION PARTS OF
THE
SERIAL
1/0.
BY USING A SPECIAL WRAPPING CABLE, THE DESTINATION

OUTPUTS TO THE SOURCE INPUT.

BEFORE TESTING, ALL 'ACTIVE' RECEIVER JUMPERS

MUST

THIS TEST CHECKS ONLY THE

MODULE.

AND THE

‘D' & ‘L'

"MR' JUMPERS MUST BE OUT.
'EIA' OUTPUT OF

THE

INSERTED
REFER

THE M7385T TEST (12.14) FOR TESTING THE "‘TTY'' OUTPUT LOGIC.

IT SHOULD BE NOTED THAT WHEN THIS TEST IS RUN

1/0

INPUT

ACE.

OPTION,

THAT

USING THE
SERIAL
ONLY SUBTESTS '"1,5 & 10'' ARE EXECUTED.

}H%ER;EGIEUS THE TESTING ISN'T TESTED AS IT IS WHEN USING THE
IT SHOULD ALSO BE
USED,
SUBTEST
5
(128) TO THE DL11
CHARACTERS
OF

DF11

NOTED THAT WHEN THE
SERIAL
INPUT OPTION
IS
RETURNS ONE HUNDRED AND TWENTY EIGHT CHARACTERS
RECEIVER
INSTEAD OF
''64''.
THE FIRST ''64''
THE
BUFFER ARE
RETURNED DIRECTLY
FROM
THE

DESTINATION OF
THE SERIAL
INPUT MODULE.
THE SECOND
"'64'"
CHARACTERS ARE THE CHARACTERS THAT WERE ACTUALLY BUFFERED IN THE
"FIFO'" OF

12.13.

THE MODULE UNDER TEST.

M73851,

SERIAL I/0 INTERFACE MODULE TEST

THIS TEST IS INTENDED TO VERIFY THAT THE SERIAL I/0
AS
THE
PDP-11 INTERFACE IS FUNCTIONING CORRECTLY.

MODULE
USED
THIS IS DONE

BY REMOVING THE M7380 CONTROL MODULE
(THUS ELIMINATING ONE
UNKNOWN) AND JUMPERING THE °'T & R' BUSES (F1D1 TO F1Vv2) TOGETHER.
THE MODULE MUST HAVE THE 'D' JUMPER OUT AND THE ‘L' JUMPER IN
SO

THAT
IT
IS
INITIALIZED ON POWER UP.
A PROGRAM IS THEN SENT TO
ADDRESS THE DESTINATION PORTION OF THE MODULE.
WHEN
THIS
TEST
HAS BEEN RUN SUCESSFULLY, THE CONTROL MODULE CAN BE RE-INSERTED
AND VERIFIED BY RUNNING THE M7380A TEST (12.1).D

12.14.

M7385T, SERIAL I/0 TTL

TEST

SEQ 0016

D
2
Page 12

Page 13

THIS TEST VERIFIES THAT THE TTL I/0 SECTION OF
THE
SERIAL
1/0
MODULE
IS FUNCTIONING CORRECTLY.
IT REQUIRES THAT A TELEPRINTER
BE CABLED TO THE MATIN LOCK OF THE SERIAL I/0.
THIS COULD BE THE
CONSOLE PRINTER ONCE THE TEST IS SELECTED.
IF THE CONSOLE
PRINTER
IS USED,
THE
PROGRAM
SHOULD
BE
HALTED _ BEFORE
DISCONNECTING THE PRINTER AND THEN RE-STARTED AT THE ‘TTLTST'«
ADDRESS. ALL CHARACTERS THEN TRANSMITTED WILL BE RECEIVED BY THE
SERIAL SOURCE AND WRAPPED AROUND (BY THE CONTROL MODULE OR
COMPUTER IF THE DF11 IS USED)
TO THE DESTINATION.
HERE THE
CHARACTER WILL BE TRANSMITTED BACK TO THE
TELEPRINTER AND
PRINTED.
EFFECTIVELY AS FOR A5 THE USER IS CONCERNED, THIS
TEST
ACTS LIKE A KEYBOARD ECHO TEST.

12.15.

M7386A, KEYBOARD/DISPLAY MODULE ADDRESS TEST

IN ORDER TO RUN THIS TEST, THE 'W1''

FIRST
SUBTEST APDRESSES
RETURN OF THE "EOCT".

JUMPER

MUST

OUT.

THE SECOND SUBTEST RUNS IN A CONTINUOUS LOOP ADDRESSING BOTH

KEYBOARD

DISPLAY.

THE

THE KEYBOARD AND CHECKS FOR THE FORCED

WHEN

THE

THE USER STRIKES ‘XEY REQUEST'', THE

KEYBOARD BECOMES BUS MASTER.
ALL DATA THEN TRANSMITTED FROM THE
KEYBOARD
IS
SENT
TO
THE DISPLAY (IF AVAILABLE).
THIS DATA IS
ALSO RECEIVED BY THE PDP-11 AND PRINTED.
IF "EOT'" IS STRUCK, THE KEYBOARD RELEASES THE BUS AND THE PROGRAM

IS AGAIN LOOPED UNTIL THE NEXT ‘XEY REQUEST''.

IF "STX'* IS STRUCK AND THE SERIAL INPUT OPTION IS BEING USED, THE
MESSAGE ‘'RE-INITIALIZE
THE PDM70'' IS PRINTED.
THE PROGRAM THEN
ENTERS THE 'WAIT MODE'' AND UPON RECEIVING A ''CR'', WILL BEGIN
RE-CYCLING THE SUBTEST.

IF "ETX'' IS STRUCK, THIS SUBTEST IS EXITED, AND THE NEXT SUBTEST
IS
ENTERED.
UPON ENTERING THE NEXT
SUBTEST,
THE MESSAGE
"ENTERING THE DISPLAY TEST, RE-INITIALIZE THE PDM70'' IS PRINTED.
THE PROGRAM THEN ENTERS THE 'WAIT MODE'' AND WAITS FOR ‘'CR''.
UPON
RECEIPT OF THE ''CR'' THE
SUBTEST
STARTS
DISPLAYING
THE
ENTIRE
CHARACTER SET,
ON CHARACTER AT A TIME ACROSS THE ENTIRE SCREEN.
AFTER EACH CHARACTER IS DISPLAYED, A SOFTWARE DELAY IS
EXECUTED.
THIS DELAY
ENABLES
THE
USER TO VIEW THE LINE WBEFORE THE NEXT
CHARACTER LINE IS DISPLAYED.
AFTER THE ENTIRE CHARACTER SET
HAS
BEEN DISPLAYED, THE TEST ENTIRE TEST PROGRAM IS RESTARTED.

12.16.

M7387A, PROM HARDWARL READ-IN MODULE

THIS PROGRAM MAY BE SELECTED AS A SEPERATE MODULE

RUN

TEST,

PART OF THE M7380 CONTROL MODULE TEST.

* REFERENCE THE LiISTING FOR THE ADDRESS OF

THIS

'TAG'.

ALTHOUGH

REFER TO

- SEQ 0017

Page 14

PART 1 OF SECTION 12.1 FOR A COMPLETE TEST DESCRIPTION.

12.17.

M7388A, CHARACTER 1/0 MODULE ADDRESS (IN-HOUSE) TEST

THIS TEST REQUIRES A SPECIAL WRAP-AROUND MODULE

HOUSE) TO RUN THIS TEST.

TO THE M7388F

(SECTION 12.18).

(AVAILABLE
ONLY
FOR FIELD TESTING THIS MODULE REFER

THE TEST USES THE SAME TEST PROGRAM

(REFER

SECTION

MUST BE IN AND THE

12.18

12.12).

THE

SERIAL

1/0

MODULE

TO RUN THIS TEST, JUMPERS 'SO & SI'

'D' & ‘L' JUMPERS MUST BE OUT.

M7388F, CHARACTER 1/0 MODULE ADDRESS (FIELD)

TEST.

THIS PROGRAM IS DESIGNED TO COMMUNICATE WITH THE
FIELD SERVICE
TESTER.
THE
FIRST SUBTEST ADDRESS THE MODULE IN MODE '0' AND
CHECKS FOR THE FORCED °"FOT'.
THE NEXT SUBTEST ADDRESS THE MODULE
IN MODE
'1' AND CHECKS THAT NO 'EOT' IS RETURNED.
A REQUEST IS
THEN MADE FOR THE USER TO INPUT DATA
(VIA
THE
TESTER)
TO
THE
MODULE.
AS EACH CHARACTER IS RECEIVED, IT IS ECHOED TO PRINTER.
THE PROGRAM WILL HANG IN THIS SUBTEST UNTIL
'EOT'
IS RECIEVED,
ENABLING
IT
TO ENTER THE NEXT SUBTEST.
THE NEXT SUBTEST IS A

"FIFO' STORAGE TEST.
IT REQUESTS FOR THE USER TO INPUT DATA
(UP
TO 63 CHARACTERS)
AND AN
‘'EOT'.
AFTER ALL THE DATA HAS BEEN
TRANSMITTED, TYPE 'CR'.
THE MODULE (SOURCE) IS THEN ADDRESSED IN
MODE '0' ENABLING THE °'FIFO' DATA TO BE READ AND PRINTED.

THE NEXT SUBTEST LOADS ‘"16'‘, "%"'' CHARACTER DATA PATTERNS (A TOTAL
OF
64 C(HAR.'S)
INTO THE DESTINATION °‘FIFO'.
THE USER IS THEN
REQUESTED TO STROKE OUT THESE ''64'' CHARACTERS AND VERIFY
THEM.
THE '%'' CHARACTERS PATTERN IS:
ALL 1°'S, ALLO'S, ALTERNATE '1'S &
0'S'* AND REVERSED ALTERNATE ‘"1'S & 0'S'".
THE LAST SUBTEST ADDRESSES THE MODULE USING ALL THE WRONG MODULE
ADDRESSES AND CHECKS THAT THE SOURCE ISN'T ENABLED.
THIS SUBTEST
IS NOT EXECUTED WHEN USING THE SERIAL INPUT OPTION.

12.19

M7377A, REMOTE SERIAL 1/0 TEST

THIS PROGRAM TESTS THE M7377 MODULE USING
THE
PDP-11
DL=11 AS THE DESTINATION INPUT AND SOURCE OUTPUT.
THE FIRST SUBTEST ADDRESSES THE SOURCE PORTION OF

CHECKS FOR FORCED RETURN OF EOT.

VIA

THE

THE MODULE

AND

THE SECOND SUBTEST TRANSMITS A RANDOM BUFFER AND CHECKS
IS RETURNED CORRECTLY.

THAT

IN THE NEXT SUBTEST A 2ND RANDOM BUFFER IS

AND

THE

TRANSMITTED

~ SEQ 0018

Page 15

VARIABLE TERMINATOR OPTION IS CHECKED.

NEXT, THE SOURCE
IS THEN ADDRESSED USING THE WRONG MODULE
ADDRESSES AND CHECKED TO MAKE SURE IT DOESN'T BECOME ENABLED.
ETX AND STX ARE THEN USED TO

VERIFY

THAT

SOURCE AND STX WILL CLEAR THE DESTINATION.

ETX

WILL

CLEAR

THE

A MANUAL INTERVENTION SUBTEST THEN REQUESTS
THAT
THE OPERATOR
RESET
THE MODULE
ADDRESS TO '17'.
DATA IS TRANSMITTED AND THE
RECEIVED DATA IS VERIFIED.

THE LAST SUBTEST CHECKS THE TIMEOUT AND REMOTE TIMEOUT ABILITY OF
THE MODULE.
A NON-EXISTENT SOURCE IS ADDRESSED AND THE MODULE IS
CHECKED TO SEE IF IT WILL TIME-OUT CORRECTLY.
THE TEST FOR THE M7377A MODULE WILL NOT RUN UNLESS THE OUTPUT
OF THE M7377A (PDM70-JR) IS JUMPERED BACK TO THE INPUT
(PIN 2 TO 3 + PIN 5 TO 7 ON THE MATE'N'LOCK) , AND THE TRANSMITTER AND RECEIVER CURRENT LOOP INTERFACES ARE SET UP
(WITH SWITCHES) TO ONE BEING ACTIVE, AND THE OTHER PASSIVE.
ALSO, JUMPER W5 ON THE M7377A HAS TO BE REMOVED, TO ALLOW
"EOT"’ TO BE TRANSMITTED TO THE RECEIVER.

12.20

M7378A, FOUNDATION MODULE TEST

THIS TEST SETS THE SERIAL 1/0 UP AS A SOURCE AND
THE
FOUNDATION
MODULE
AS A DESTINATION.
A RANDOM BUFFER IS TRANSMITTED TO THE
FOUNDATION MODULE VIA THE SERIAL I/0.
THEN THE FOUNDATION MODULE
IS ADDRESSED AS THE SOURCE AND THE SERIAL 1/0 IS ADDRESSED AS THE

DESTINATION.

THE DATA SHOULD BE RETURNED VIA

THE

CABLE FROM THE FOUNDATION MODULE TO THE SERIAL 1/0.

'WRAP-AROUND''

THE NEXT SUBTESTS VERIFY
THAT ADDRESS
'17'
WILL RETURN DATA
CORRECTLY,
THAT
THE WRONG ADDRESSES WILL NOT RETURN DATA, AND
THAT THE CUSTOMER DEFINED MODE FLIP FLOP WORKS CORRECTLY.

13.0

13.1.

USER AID ROUTINES

SUBX

THIS ROUTINE ENABLES THE USER TO RUN ANY SELECTED MODULE

ADDRESS

SUBTEST WITHOUT RUNNING THE ENTIRE PROGRAM.
WHEN ‘'SuBX' IS
SELECTED IT ASKS FOR THE 'MEMORY ADDRESS' OF THE
SUBTEST
TO BE
EXECUTED.
THIS
IS TO BE
THE ADDRESS OF THE °'SCOPE' ARGUMENT
BEGINNING THAT SUBTEST.
IF A 'SLBX ADDRESS HAD PREVIOUSLY BEEN
SET UP, THE USER CAN SIMPLY TYPE 'CR' AND THE PREVIOUSLY SELECTED
TEST WILL BE RE-ENTERED.

SEQ 0019

13.2.

RECBUF

THIS ROUTINE ENABLES THE USER TO EXAMINE
THE
CONTENTS OF
THE
DL11'S RECEIVER BUFFER. WHEN SELECTED, THIS ROUTINE PRINTS THE
CONTENTS OF THE BUFFER IN THE ORDER IT WAS RECEIVED.
IF
THE
BUFFER IS EMPTY, A MESSAGE IS TYPED TO THAT EFFECT.

SEQ 0020

Page

IT SHOULD BE NOTED THAT ALL

STORED IN THIS BUFFER.

13.3.

DATA

RECEIVED

FROM

THE

PDM70

TRNBUF

THIS ROUTINE ENABLES THE USER TO EXAMINE THE DATA TRANSMITTED VIA
THE DL11
TO THE PDM70.
THE 'RECBUF' & 'TRNBUF' ROUTINES ARE

ESPECIALLY USEFUL IN TRACKING DOWN A DATA FAILURE. BY_ COMPARING
THE
TWO BUFFERS,
THE USER CAN SEE EXACTLY WHERE THE FAILURE
OCCURRED AND PICK OUT ANY DESIRED DATA PATTERNS.

13.4.

SEND

THIS ROUTINE ENABLES THE USER TO SEND HIS OWN PROGRAM TO THE
PMD70.
WHEN
'SEND'
IS
SELECTED
AN ASTERISK
IS PRINTED TO
INDICATE THAT THE ROUTINE IS READY
TO ACCEPT_
INPUT.
AS EACH

CHARACTER
IS RECEIVED
IT IS ECHOED BACK TO THE TELEPRINTER AND
TRANSMITTED TO THE PDM70.

THIS ROUTINE IS RUN WITH THE DL11 RECEIVER ENABLED.
THIS MEANS
THAT
THE
USER
CAN USE THE °'RECBUF' ROUTINE TO EXAMINE FOR ANY
DATA RETURNED BY HIS PROGRAM.

15.5.

RUN

THIS ROUTINE IS USED IN CONJUNCTION WITH THE SEND RUUTINE.

WHEN
'RUN' IS SELECTED, IT WILL RE-TRANSMIT THE USER'S 'SEND' PROGRAM.
IF THE SERIAL INPUT OPTION IS BEING USED, THE 'SEND'
PROGRAM IS
TRANSMITTED AND THEN THE PROGRAM ENTERS THE 'WAIT' MODE.
IF THE
SERIAL INPUT OPTION IS NOT BEING USED,
THE
SEND PROGRAM
IS
CONTINUOUSLY TRANSMITTED.
IN THIS CASE, THE CONSOLE SWITCHES CAN
BE USED TO INCORPORATE A DELAY TIME BEFORE
THE PROGRAM IS
RE-TRANSMITTED.

SWITCHES DOWN.

PROGRAM

DELAY

ISSUED

WITH

ALL DATA SWITCHES UP (EXCEPT 11 & 12)*

ALL

DATA

REPRESENT

A MAXIMUM PROGRAM DELAY.
THE USERS SEND PROGRAM CAN BE EXAMINED
AT ANYTIME BY USING THE 'TRNBUF' ROUTINE.

"CONTROL C' WHICH IS NORMALLY USED TO RETURN TO THE MONITOR
IS
ECHOED AND TRANSMITTED AS AN
'ETX'.
SO IN THE SEND ROUTINE,
'CONTROL E*' IS USED TO ESCAPE AND RETURN TO THE MONITOR.

* REFER TO CONSOLE SWITCH SETTINGS (SECTION 6.)
FUNCTIONS.

FOR

SPECIFIC
.

SWITCH

SEQ 0021

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

20-JAN-78

MACY11 30A(1052)

J
09:11

2
PAGE 1

SEQ@ 0022

LTITLE CZPMACO PDM70 DIAGNOSTIC TEST

) ndh
sl
bl
sl
b
i
i

;AC=9017C-MC
; COPYRIGHT 1974,1978
;REVISED:
SEPTEMBER 20,1974 ,FEBRUARY 1,1978
;DIGITAL EQUIPMENT CORP. MAYNARD MASS. 01754
;PROGRAMMER: EARL L. BOUSE
MIKE MITCHELL
:
BILL SCHLITZKUS
:

OVONONSWN=O V0NN

.ENABLE ABS
.ENABLE AMA

sSWITCH REGISTER DEFINITIONS AND FUNCTIONS:
SW15=100000
SW14=40000
SW13=20000
SW12=10000
SW11=4000

:=1,
:=1,
;=1,
;=1,
:=1,

SW09=1000
Sw08=400
Sw07=200
SW06=100
SW05=40
SW04=20
Sw03=10

:=1, INHIBIT TRANSMITTER DELAY

SwW10=2000

Sw02=4

JREGISTER DEFINITIONS

RO=%0
R1=%1
R2=%2

R3=%3

R4=%4
R5=%5
SP=%6
PC=%7

s INSTRUCTIONS DEFINITIONS
005746
005726
024646
022626
000240
000002
000002

PUSH1SP=574%

POP1SP=5726
PUSH2SP=24646
POP2SP=22626
NOP=240
X=2
y=2

CONTINUE ON ERROR
LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOUT
SINGLE STEP DL11 OUTPUT DATA.
TRANSMIT SAME CHARACTER.

;=1, INHIBIT MANUAL INTERVENTION

CZ
W4

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1

MACY11 30A(1052)

20-JAN-78

09:11

axnnrnrk NOTES *xasnsnsn

PAGE 2

‘SEQ 0023

JSBTTL #axxxwnnx NOTES wxwswwnnx

sNOTES:

;PDM=70 MUST BE CLEARED BEFORE RUNNING ANY TEST.

;ON POWERUP, THE FIFO IS GENERALLY CLEARED (UNLESS 'N'' MODULE IS

PRESENT).

;IF, DURING THE COURSE OF RUNNING THIS DIAGNOSTIC, IT BECOMES
sNECCESSARY TO RESTART A SUBTEST (FOR EXAMPLE, AFTER ENCOUNTERING AN ERROR),
;THE PDM70 FIFI SHOULD BE CLEARED OUT TO INSURE THAT GARBAGE WILL
sNOT ACCIDENTLY BE LEFT IN THE FIFO WHICH WOULD SUBSEQUENTLY
;GIVE AN ERRONOUS DATA ERROR.

;MODULE SETUP:

;tttlt'ttttifititttt'ttttttt*ttt*tfittttitfititittttttttt

; MODULE UNDER TEST

M7379 (CLOCK) *

*M7379(CLOCK)

*M973 (CABLE)

* M598 (COUPLER) =

:fitfittfi*tttittttttttt!'itttttttfi*ti't*itttt*.tttfii.ttt

:
-

AARAAARAAA
RN A A AR AR AR AR AR ARk

;SYSTEM TEST SETUP (USING SERIAL 1/0)
2233232332233
3 3233333322333
Rttt l R

‘MODULE UNDER TEST

% M7379 (CLOCK) * M7379

:tt.*ttfitQtttfittttt.Qtt't'tii*fii.tt'.itfiifi*fi‘.iIfifititt

«M7380 (CONTROL MODULE)

3333333333222 2223222220222

ddddl

;ttttttttittttttt.tttfit

: SERIAL 1/0 CABLE

JNARRARAA
AR AR AR AR AR kA kW

sNOTE: JUMPER ‘L'' SHOULD BE IN TO ALLOW POWER UP TO ACCESS THE CONTROL MODULE.

CzZl
czl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
90
91
92
93

20-JAN-78

MACY11 30A(1052)

NOTES

wnxnknkkk

wannnnnnw

000000
000200

LREPT

.=20

;ERROR TRAP REPORTER ROUTINE.

ERTRAP
340

;POWER FAIL HANDLER

PWRFAL

340
.=30
EMTSRV
340
.=60

;EMT TRAP, EMT DISPATCH SERVICE

;TELEPRINTER KEYBOARD ROUTINE

o—

)

——

d -

= OV NOWNHAWNN=O

001376

SWSWR:

340
=176

.=200

JMP

SRERSSEELRRRUKLEB

e
Y

;SOF TWARE SWITCH REGISTER
MONITR

;PROGRAM KEYBOARD MONITOR ROUTINE.

.SBTTL EMT TRAP EQUIVALENCE TABLE
PRCNTR=EMT

SCOPE=EMT+1
SAVREG=EMT
+?2

GETREG=EMT+3

+4
DELAY=EMT
RECVRO=EMT
+5
+6
LDCHRO=EMT

+7
LDPGMO=EMT
TYPEIT=EMT+10
RANDOM=EMT+11
PRINT=EMT+12
TTYIN=EMT+13
PRTOCT=EMT+14

e I

SEQ 0024

.ENDR

107

PAGE 3

300

XTTYIN

S
D
h e
)

:LOAD TRAPOADDRESSES '0-1000" WITH THE 'IOT' TRAP

000020
020440
000340
022722
000340
000030
001200
000340

128

09:11

ASEMBL=EMT+15
SPACE=EMT+16
TSTTKS=EMT+17
DELAYL=EMT+20
NULL=EMT+21
MODERR=EMT
+22
NULL 1=EMT+23
DESTIN=EMT+24
SOURCE=EMT+25
ADDRE S=EMT +26
ADCNVT=EMT+27

BCDBIN=EMT+30
AVERAG=EMT+31

CHANEL=EMT+32
BINDEC=EMT+33
WAITGN=EMT
+34
SETUP=EMT+35
NODLAY=EMT
+36
PRTRBF =EMT+37

T T0 PRINT CONTROL CHARACTER IN R1
INE
; SUBROU
JLOGIC TEST SCOPE SUBROUT INE
T SAVE 'RO-R5' ON STACK
;SUBROUTINE
GET 'RO-R5' FROM STACK
INE
; SUBROUT
WAIT FOR DL11 RECVR.
INE
; SUBROUT
SET UP THE DL11 0'S RECEIVER.
INE
: SUBROUT
TRANSMIT A SINGLE CHAR. VIA DL '0O°
INE
; SUBROUT
TRANSMIT THE DATA IN CALL+2 VIA DL 'O'
INE
: SUBROUT
PRINT CHARACTER IN ‘R1’
INE
: SUBROUT
CREATE A RANDOM DATA BUFFER.
INE
; SUBROUT
PRINT ASCII MESSAGES.
INE
; SUBROUT
INPUT VIA KEYBOARD
INE
; SUBROUT
PRINT A 6 DIGIT OCTAL NO.
INE
; SUBROUT
ASSEMLE CHARACTERS INTO OCTAL VALUE
INE
; SUBROUT
PRINT SPACES
INE
: SUBROUT
TEST FOR KEYBOARD FLAGS
INE
; SUBROUT
SETUP A LONG DISPLAY DELAY
INE
; SUBROUT
TRANSMIT A NULL PRINTER CHAR.
INE
: SUBROUT
REPORT MODULE ERRORS.
INE
; SUBROUT
TRANSMIT 12 NULL CHAR.'S.
INE
; SUBROUT
SETUP DESTINATION MODULE.
INE
; SUBROUT
SETUP A SOURCE MODULE
INE
: SUBROUT
REQUEST & SAVE MODULE ADDRESS
INE
; SUBROUT
TAKE & STORE A/D CONVERSIONS
INE
; SUBROUT
CONVERT °'BCD' TO BINARY
INE
; SUBROUT
AVERAGE 'N' NUMBERS
INE
: SUBROUT
REQUEST & STORE A/D CHANNEL
INE
; SUBROUT
CONVERT BINARY TO DEC.
INE
: SUBROUT
TEST GAIN ACCURACY
INE
; SUBROUT
SETUP THE '“R' RESTART ADDR.
INE
; SUBROUT
INHIBIT TRANSMITTER DELAY
INE
: SUBROUT
PRINT CONTENTS OF RECVR BUFFER
INE
; SUBROUT

cZl
czl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

20-JAN-78 09:11
MACY11 30A(1052)
EMT TRAP EQUIVALENCE TABLE

PAGE 4

SEQ 0025

;tttttitt.ti.t.iitfi.ltt'tt'tttfitt'ltfitQtttttttittttttttitttttttt*ttttttttitfi

.SBTTL EMT DISPATCH SERVICE ROUTINE

JARGUMENT OF EMT IS EXTRACTED AND USED AS OFFSET TO OBTAIN POINTER
:TO THE SELECTED SUBROUTINE.

;fittttttitttt.tit*ittt*t'itttttfittttiittttittttttttt'tttttttt*tfititttttttttt

& VO NONWVIESS
W

wsd
sl
s
ol
il
b
b
i

151

.=1200

001200

011646
162716

017616
005716
001001
000000
006316
042716
062716
017616
000136
021376

000002
000000

177001
001240
000000

EMTSRV: MOV

EMTOK:

Sus
MOV
TST
BNE
HALT
ASL
BIC
ADD
MOV
JMP

(SP)
EMTOK

(SP)
#177001, (SP)
#EMTTAB, (SP)
a(SP), (SP)
a(SP)+

;EMT DISPATCH TABLE
EMTTAB: XPRCNT

XSCOPE
XSAVRG
XGETRG
XDLAYL

XRECRO
XLDCHR
XLDADD

XTYPIT

XRANGN
XPRINT
XTTYIN
XOCTPR
XASEMB
XSPACE
TKSFLG
XDLAYL
XNULL

XERMES
XNULL1

006474
021276
021544
022246

a(SP), (SP)

XDSTIN
XSOURCE
XADRE
S
XADCNT
XBCDBIN
XAVRAGE
XCHANEL
XBINDEC
XWATGN
XSETUP
XNODLY
XPRTRB

;GET PC FOR TO RETURN
;PC OF EMT
:GET EMT
;1S EMT VALID?
s INVALID EMT

:MULTIPLY EMT ARG BY '2'

;CLEAR UNWANTED BITS
:POINTER TO SUBROUTINE ADDRESS
INE ADDRESS
; SUBROUT

;GO TO SUBROUTINE

; SUBROUT INE TO PRINT CONTROL CHAR.

IN R1.
:MODULE TEST SCOPE LOOP ROUTINE
ON STACK
; SUBROUT INE TO SAVE 'R1-R5'
: SUBROUT INE TO RETRIEVE 'R1-R5' FROM STACK
:SLBROUTINE TO WAIT FOR DATA FROM DL11 RECEIVER
; SUBROUT INE TO SET UP DL 0'S RECEIVER.
: SUBROUT INE TO TRANSMIT A SINGLE CHAR
INE TO TRANSMIT DATA FROM ADDRESS IN CALL+2.
; SUBROUT
; SUBROUT INE TO PRINT CHARACTER IN °'R1’

INE TO CREATE A RANDOM DATA BUFFER.
: SUBROUT
INE TO PRINT ASCII MESSAGES.
; SUBROUT
: SUBROUT INE TO INPUT VAI KEYBOARD.
: SUBROUT INE TO PRINT A '6' DIGIT OCTAL NO.
INE TO ASSEMBLE A ONE WORD NO.
: SUBROUT
T TO TYPE SPACES
INE
; SUBROU
; SUBROUT INE TO TEST FOR KEYBOARD FLAG.
INE TO SET UP A LONG DELAY.
: SUBROUT
INE TO ISSUE NULL CHARACTERS AFTER RESET''.
: SUBROUT
INE TO REPORT MODULE ERRORS
; SUBROUT
INE TO TRANSPORT '12' NULL CHAR.'S
; SUBROUT
INE TO SET UP A DESTINATION MODULE
: SUBROUT
INE TO SET UP A SOURCE MODULE
; SUBROUT
INE TO REQUEST & SAVE MODULE ADDRESS
: SUBROUT
INE TO TAKE & STORE A/D CONVERSIONS
; SUBROUT
INE TO CONVERT 'BCD' TO BINARY
: SUBROUT
; SUBROUT INE TO AVERAGE °'N' NUMBERS
; SUBROUT INE TO REQUEST & STORE A/D CHANNEL.
INE TO CONVERT BINARY TO DECIMALS.
: SUBROUT
: SUBROUT INE TO TEST GAIN ACCURACY.
; SUBROUT INE TO SETUP THE '“R' RESTART ADDR.
INE TO INHIBIT TRANSMITTED DELAY
; SUBROUT
; SUBROUT INE TO PRINT CONTENTS OF RECVR. BUFFER

cZl
czi

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 5

SEQ 0026

.SBTTL REGISTER ADDRESSES
177776
177560
177562
177564
177566
177570
177571

PSW:
TKS:

177776
177560

;ADDRESS OF PROCESSOR STATUS REG.
;ADDRESS OF KEYBOARD STATUS REG.

TPS:
TPB:
SWR:
SWRO:

177564
177566
177570
177571

g
B
Bt
g

TKB:

177562

SRR

'*
""
.
54

BUFFER

‘'

PRINTER STATUS REG.
PRINTER BUFFER REG.
SWITCH REG.
'* HIGH BYTE

;DL11 REGISTER ADDRESSES
175610
175612
175614
175616

000300
000302

RCSRO:
RBUFQ:
XCSRO:
XBUFQ:
RINTO:

175610
175612
175614
175616
300

;ADDRESS OF
;ADDRESS OF
;ADDRESS OF
;ADDRESS OF
;ADDRESS OF

XINTO:
XLVLO:

304
306

;ADDRESS OF UNIT 0'S DL11 TRANS. VECTOR
JADDRESS OF UNIT 1'S DL11 TRANS. VECTOR

RLVLO:

000304
000306

302

UNIT
UNIT
UNIT
UNIT
UNIT

0°'S
0'S
0'S
0'S
0'S

DL11 REC. CSR
DL11 REC. BUFFER
TRANS. CSR
DL17 TRANS. BUFFER
REC. VECTOR

.SBTTL DEFINITIONS OF THE 'PDM-70' CONTROL CHARACTERS.
DC1=021
DC2=022
DC3=023
DC4=024
ETX=003
STX=002
SYN=026
SOH=001
$1=017
EOT=004
ENQ=005

000021
0C0022
000023
000024
000003
000002
000026
000001
000017
000004
000005

;ENAB_L SOURCE
ENndLE DESTINATION
DO NOT RECIRCULATE
;END OF TEXT
:START OF TEXT
;SYNCHRONIZE (DELAY)
;START OF HEADER
sSHIFT IN.
;END OF TRANSMISSION
;ENQUIRY.

:ttttttitttttttttti!itifitt't.ttt'tifii.i.ttfitttfitti't'tttttfit'ttttti‘tiit

.SBTTL KEYBOARD MONITOR

;ttttttltt'tttttttttt*t"ttittfittltt.tfittttltt'fiitlttttititttttfit'ttttt'

001000
000340
001414

MONITR: MOV

MOV
S?Y

#1000,

#340,"

=(SP)
4

=(SP)

;SET UP STACK

:SET PROC. PRIORITY a7

001430
177724

000004

1%:

MOV

w2s,

000176

001352

2s:

MOV

#SWSWR, SWR

:NO-USE SOF TWARE SWITCH REG.

000006

000004

3$:

MOV

w6,

:RESTORE TRAP CATCHER

CLR
CLR
(LR

DLYSWH
PRTSWH
SENDSW

032144
032122
032150

;gT

POP2SP

NULL
RESET
NULL

ggUR

;SETUP FOR TIMEOUT

Hggbflfi”‘ SWITCH REGISTER?
;POP THE STACK

;CLR SOF TWARE SW.
;CLR SOF TWARE SW.
;CLR SOFTWARE SW.

CZf

CZF

254
255
256
257
258

001470
001474
001476
001502
001504

005737
001101
005237
104012

023353

032120

MACY11 30A(1052)

20-JAN-78

KE YBOARD MONITOR
TST

BNE

INC
PRINT
TITLE

09:11

MTRSWH

MCNTR5

MTRSWH

PAGE 6

;PROGRAM BEEN INITIALIZED?
s YES
.NO

;PRINT PROGRAM HEADER

SEQ 0027

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1T

20-JAN-78
MACY11 30A(1052)
KEYBOARD MONITOR

09:11

PAGE 7

SEQ 0028

2222232233323
3 3223322 a0 22222222223333223322222223
R it Rttt ld)

*MONITOR RESTART ADDRESS STARTS HERE

:tttitt*‘tttit.tfi'tfi*tQtttttfifi*ttt*ttitttt.ifitt*t*t*tttittttfitttitttttttt

005037
104012

023775
104013
122737
001031

MONTR1: CLR

032132

000131

INT

015330
ADDRESS
MOovB
MovB
MOvB
MOvVB
mMovB
MovB
MOvB
MOvVB
MOovB
MOovB

002214
002220
002224
002230
003120
003124
003132

017547
017643
017202
011167
032132

MovB
INC

MONT1A: PRINT
MES63

ASCMBL

MONTRZ2:

1/0?

sNO, SETUP DL11 INPUT
JREQUEST SERIAL 1/0 ADDRESS
;SET UP ALL ADRESSES WHERE
;SERIAL INTERFACE IS USED.

RO, IADRS3

RO, IADRS4
RO, IADRS5
RO, IADRS6

RO, IADRS?7
RO, IADRS8
RO, IADRS9
RO, IADR10
SIOSWH

JYES, SET Sw.

sREQUEST DL11 ADDRESS & VECTOR

#RCSRO,R2

RO, (R2) +

;WAIT AND DECODE
;WAS AN ADDRESS ENTERED?
sNO, USE STANDARD ADDRESS.
;SET UP TO LOAD ADDRESS

#2.R0O
R3

;ADD '2' TO THE ADDRESS

001376

#XLVLO+2
,R2

;LOADED VECTOR ADDRESSES?
JYES, EXIT

#RECVER,QRINTO

;SET UP RECEIVER SERVICE ADDRESS
JRINTO=DL=-11 VECTOR (300)
;BR LEVEL ‘4’

.=10

MONTR3

016740

177500

012777

000200

177474

023415
012737

001506

032124

104012

RO, IADRSO
RO, IADRS1
RO, IADRS?2

sTEXT '"IS INPUT VIA SERIAL
;WAIT FOR INPUT
;WAS 'Y' TYPED?

000002

000
012777

031706

#131, INBUF
MONT1A

MONTR3

001356
000004

104012

SIOSWH

MONTR3:
MONTRS:

MONTRS:

#200,aRLVLO
#MONTR1,RVECTR

JPRINT TEST PROTOCOL

;SET UP THE 'RESTART' ADDR, POINTER

;PRINT DOT TO INDICATE READY

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

324

ttttfitQti*t'tfititi.tttfiiiittttttfittfittttfiifittfitfiltfilttttt.tt'fi*t'tfi.ttt

001712

001716
001720
001726
001730
001734
001736
001742
001746
001752
001754
001760
001764
001766
001772

325 001774

326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
322

001776
002000
002002
002004
002010
002012
002014
002016
002024
002032
002040
002044
002050
002052
002056
002060
002064
002066

345

002070

347

002074

346

PAGE 8

:THIS SUBROUTINE DECODLCS THE USER'S INPUT AND EXECUTES THE SELECTED TEST

308

311
312
313
314
315
316
317
318
319
320
321
322
323

09:11

'tttttfi‘tfi"'fififififi*tfii'tit*fitttttfi't*.t'fi*fi.t'ttttQ'tttt!tttttttt't'tfii

307

309
310

20-JAN-78

KEYBOARD MONITOR

002072

005037

104013
022737

001007
005737
001455
004737
000177
012701
005003
012702
122711
001403
122711
001002

DECODE: CLR

015330

000103

015330

032224
023304
030256
023475
015330
000045

000040

TTYIN
CMP
BNE
TST
BEQ
JSR
JMP
DECOD1: MOV
CLR
RECYCL: MOV
CMPB
BEQ
CMPB

105721

122122
001022
122711
001373
006303
005726
016337
016337
062737
004737
000173
005203
122711
001404
122721
001733
000771
104012

031702

000706

MATCH:
000054

002076
002076
000004
023304
002076
000100
000054

032224
032126
032126
FLUSH:

#103, INBUF

BNE

DECOD1
RESTRT
NMATCH
PC,
UPDAT1
aRESTRT
#TSTLST.R1
R3
# INBUF ,R2
#45,(R1)
.+10
#40, (R1)
+6

RECYCL

TSTB

000766

INBUF

C(MPB
BNE
CMPB
BNE
ASL
POP1SP
MOV
MOV
ADD
JSR
JMP
INC
CMPB
BEQ
CMPB
BEQ
BR

QMARK

CHAR = TO °"SPACE'
NO

(R1)+

YES SKIP CHAR.

(R1)+,(R2)+
FLUSH
#54, (R1)
MATCH
R3

; COMPARE BUFFERS
sNOT EQUAL, SET UP NEXT WORD
:NO, COMPARE NEXT CHAR.
sSET UP OFFSET

TSTABL (R3) ,RESTRT
;SET UP A RESTART ADDRESS
TSTABL
(R3) ,AVECTR
#4 ,AVECTR
;SET UP TO RE~ADDRESS MODULE
PC,
UPDAT1
;CHECK FOR SOF TWARE SWR
aTSTABL (R3)
;EXECUTE SELECTED TEST.
R3
; INCREMENT OFFSET CNTR.
#100, (R1)
sTEST FOR ‘@'
NMATCH
;YES, END OF MESSAGE.
#54,(R1)+
:CHAR = COMMA?
RECYCLE
;YES, COMPARE NEXT WORD.
FLUSH+2
:NO, KEEP GOING.

NMATCH: PRINT

;CALL KEYBOARD ROUTINE
;WAS 'C' TYPED TO CONTINUE LAST TEST?
;NO, DECODE INPUT
;YES, HAS A RESTART ADDR. BEEN SET UP?
:NO, ILLEGAL ENTRY.
;CHECK FOR SOF TWARE SWR
JYES, RESTART LAST TEST
:SET UP MESSAGE ADDR. POINTER
;OFFSET REG.
sSET UP TTY BUFFER POINTER

DECODE

sILLEGAL ENTRY, TYPE '?°
;GET NEW INPUT.

~ SEQ 0029

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

KEYBOARD MONITOR

09:11

PAGE 9

'5(.9

;tttii**it't*'ifi'.ifi'fit'tttttii.t.t.t'.'Qtti't.fittttit't*itttt.ittfitttt'

351

:tt‘tttt*ififitt*tttfi.*ti'titttk.fi'fiifi'tfit.tt.'fittfi.fi.'fitt'ttittt"tiitttt

350
352

353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377

;TABLE FOR TESTS SELECTABLE VIA KEYBOARD

002076
002100
002102
002104
002106
002110
002112
002114
002116
002120
002122
002124
002126
002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156

002160
003450
004316
004412
004606
005014
005416
(005514
006356
007072
010006
010126
011150
011360
011506
003254
012050
012062
012370
013664
021142
022224
022232
022264
022360

TSTABL: M7380A
M7381A
M7381E
M7382A
BCDIO
M7383A
M7383C
M7383R
M7383G
M7384A
M7384E
M7385A
M73851
M7385T
M7386A
M7387A
M7388A
M7388F
M7377A
M7378A
SUBX
RE CBUF
TRNBUF
SEND
RUN

;CONTROL MODULE TEST
;BCD INPUT MODULE ADDRESS TEST
;BCD INPUT MODULE EXERCISER TEST
;BCD OUTPUT MODULE ADDRESSING TEST
;BCD INPUT/OUTPUT EXERCISER TEST
;A/D MODULE ADDRESS TEST
;A/D MODULE CALIBRATION TEST
;A/D REPEATIBILITY TEST
;A/D GAIN ACCURACY TEST
;D/A MODULE ADDRESS TEST
;D/A OUTPUT MODULE EXERCISER TEST
;SERIAL INPUT/OUTPUT MODULE ADDRESS TEST
;SERIAL I1/0 INTERFACE TEST
;SERIAL INPUT/OUTPUT TTL TEST
;KEYBOARD/DISPLAY MODULE ADDRESS TEST
;HARDWARE READ-IN MODULE TEST
;CHARACTER 1/0 (IN-HOUSE) MODULE ADDRESS TEST
;CHARACTER 1/0 (FIELD) MODULE ADDRESS TEST
;REMOTE SERIAL MODULE TEST
;FOUNDATION MODULE TEST
;SUBTEST SELECTOR ROUTINE
JROUTINE TO PRINT CONTENTS OF DL RECV BUFFER
JROUTINE TO PRINT CONTENTS OF DL TRNS BUFFER
JROUTINE TO TRANSMIT CHAR.'S FROM TTY
;ROUTINE TO LOAD & RUN THE SEND PROGRAM

- SEQ 0030

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC

MACY11 30A(1052)

20-JAN-78

KEYBOARD MONITOR
R

09:11

PAGE 10

SEQ 0031

2222232322232 323 3233333223332 2333233333233 3322222233232ttt
tttd

.SBTTL M7380 CONTROL MODULE TEST.
;THIS TEST COMPLETELY EXERCISES THE PDM-70 'CONTROL MODULE' USING THE

;PDP=11 AS THE MASTER 'SOURCE/DESTINATION' MODULE. THE TEST TAKES THE
;MODULE THRU THE INITIALIZATION, PROGRAM, ADDRESS AND DATA MODES RESPECTIVELY.
;iQtttt'tktit!ttt*fittttttttfiitttttt*!ttttttlitttitfittt't.ti.t.ittit*.itt

002160
002162
002164
002166
002172
002174

M7380A: PRINT

104012

024042
000240
005037

104035
005037

ngg1
CLR

032222

SETUP
CLR

032144

;TEXT 'CONTROL MODULE TEST'
LOPSWH

DLYSWH

;SET UP TEST PARAMETERS.
sENABLE TRANSMITTER DELAYS

:ttttt'fi.ififli'.tttttttt'tt"tiiQQfittfiitfit**tfitt.l**tttttttttttttttttiitt

;LOAD '2' PROGRAMS INTO THE CONTROLS 'FIFO' AND CHECK THAT
;THE CONTROL MODULE ENTERS THE ADDRESS MODE.

:ttttttt*lttttt!tfittiltfittttt!*itfittt'tttQt'tttttit*'tt'*ititttt'it.t'lt

NOP
NOP

LDPGMO

PRGM1-1

:
PRGM1

1ADRSO:

IADRS1:
PRGMZ:

IADRS?2:

IADRS3:

END2:
032132

002213
032222
032222

TAGB:

BR
.BYTE
.BYTE

BYTE

.BYTE
.BYTE
.BYTE

JVIE
.BYTE
.BYTE
.BYTE

;LOAD THE FOLLOWING PROGRAM.
TAGB
STX

DC1

SOH
61
DC2
13
D(C3

DC4

DC1

.BYTE
.BYTE

SOH
61

.BYTE
.EVEN

ETX

TST

SIOSWH

.BYTE
BYTE
BYTE
BYTE
.BYTE

TAGOB1
#PRGM1 ,R1

BEQ
DEC

.+
R1

INC

;START OF 2ND PROGRAM

DC2
75
61
63
DC3

BNE
MOV
TST

JALERT DESTINATION

LOPSWH

sSERIAL

1/0 INPUT?

;YES, JUST LOOK FOR DATA
;NO, VERIFY 1ST PROGRAM
;LOOPING FROM LAST TEST?

JNO, DON'T LOOK FOR 'STX'
;YES, SET UP TO LOOK FOR *'STX'

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
430
431
432
433
43%
435
2%9

19-JAN-78 14:50

002264
002266
002270
002272
002274
002276
002302

122221
001403
104022
030471
000412
122701
001370

002222

443
444
445
446
22;

002304

002306
002310
002314
002316
002320

104006

000101
122722
001402
104022
031365

;RECV'D/TRANS ADDRESS DATA DIFFERENT
;EXIT ON ERROR.
:CHK'D ALL DATA?
:NO

(MPB
BEQ
MODERR
ERR19

#'A,(R2)+
cr2

;SEND (CHAR. ‘A’
*WAS 'A* RETURNED?
:YES
:MODULE DIDN'T ENTER DATA MODE

*THE CONTROL MODULE SHOULD NOW BE IN THE °'DATA MODE'.
THE FOLLOWING
*SUBTEST CREATES A RANDOM '500' WORD DATA BUFFER AND TRANSFERS IT TO THE
*CONTROL MODULE.
THIS DATA IS VERIFIED WHEN IT IS RECEIVED BACK FROM THE
:CONTROL MODULE.
.'fiittttt.tififitttttitt'titltt*tttttQtfitit!ttfittttttt'tlttt*ttififitttitfittt

456
457
458
459
460
461
462
463
464

002322
002326
002330
002332
002334
002340
002342
002344
002346

104001
104011
104007
017670
012701
122221
001403
104022
030526

000002

466
467
468
469

002352
002356
002360
002362

005737
001403
104022
030677

016220

002366

022701

020372

472
473

: COMPARE RECV'D/TRANSMITTED DATA

.'tttfit"tt*tfitfiittt*fittt'ttittti.fitttttt*tfiQtttttttfitt'fl'fiitt*itt't'fittt

453

471

000101

‘.Sl.

470

cr2
#PRGM2,R1
CMP1

TAGOB1: LDCHRO

450
451
452

465

(R2)+,(R1)+
.+10

*THAT IT IS RETURNED AS DATA.

449

455

(MPB
BEQ
MODERR
ERR2
BR
CMPB
BNE

PAGE 11

:AT THIS POINT THE MODULE SHOULD BE IN THE ‘DATA MODE'
*THIS NEXT SUBTEST SENDS THE CHAR. 'A' AND CHECKS

22?

442

09:11

M7380 CONTROL MODULE TEST.
CMP1:

438
439

20-JAN-78

MACY11 30A(1052)

002350 000411

002364

002372

000403

001362

017670

CT2:

(MP2:

SCOPE,2
RANDOM
LDPGMO
TRNBF
0
MOV
#TRNBFO,R1
(MPB
(R2)+,(R1)+
BEQ
.+10

MODERR
ERR3

B8R

CT3A:

TST
BEQ
MODERR
ERR7

PARITY
CT3A

(MP

#TRNEND , R

BNE

CMP2

.+10

;TEST 2
*CREATE A RANDOM DATA BUFFER
*TRANSMIT DATA FROM FOLLOWING ADDRESS.
;REVC'D & TRANS DATA EQUAL?
:YES

*RECV'D DATA DOESN'T EQUAL TRANS DATA
;PARITY ERROR FLAG SET?
:NO, DATA GOOD
:YES, PARITY ERROR ON LAST TRANSFER
;CHK'D WHOLE BUFFER?

*CORRECTED 7/1/74.

'SEQ 0032

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN=-78 14:50

474

20-JAN-78

09:11

M7380 CONTROL MODULE TEST.

PAGE 12

1.75

:tttttttttt'tttttttttt R 2222222222232 22332233333323333333233233333332332333]

478

:THE 1ST SUBTEST GETS READ OUT.

476
477

:THIS SUBTEST ISSUES AN 'EOT' CHARACTER AND CHECKS THAT THE CONTROL
:MODULE RE=-ENTERS THE ADDRESS MODE AND THAT THE SECOND PROGRAM LOADED IN

479

480

.-'tttttltttttltttttttttttttttttttt'tttttttttttttfittttttttttttttitttttfit

481
482
483

002374
002400
002402
002414

104001
104006
000004
012701
122722
001403

485

002410

487

002416

002420
002422
002424
002430
002432
002434
002436

030603
000422
005737
001010
122221
001403
104022

496

002442

000412

233

002450

001370

484

486

488
489
490
491
492
493
494
495

497

002404

002440

002444

000003

503
504

505
506
507

508

CT3:

002222

000004

104022

032132

CMP3:

:TEST 3

ERRS

:EOT CHAR WASN'T RETURNED

HR
TST
BNE

(MPB

BEQ

MODERR

030544

122701

SCOPE,3
LDCHRO
EOT
MOV
#PRGM2 ,R1
CMPB
#EOT, (R2)+
BEQ
.+10
MODERR

ERR4

B3R

002234

500
28;

MACY11 30A(1052)

CMPB

BNE

CT4
SI0SWH
TAGOA

:TRANSMIT THE 'EOT' CHAR.
:CHK THAT 'EOT' WAS RETURNED

:EXIT ON ERROR
:SERIAL 170 INPUT?
:YES, JUST VERIFY DATA

(R2)+,(R1)+
.+10

CT4

#END2,R1

CMP3

:COMPARE DATA OF THE SECOND PROGRAM

:ADDRESS ERROR IN 2ND PROGRAM
: DONE

:NO

:SEND A CHAR. TO VERIFY THE 2ND PROGRAM IS
:IN THE DATA MODE
002452
002454

002456
002462
002464

002466

104006
000101

122722

001402

104022

031321

TAGOA:

000101

LDCHRO
“A

CMPR

BEQ

MODERR
ERR18

#'A, (R2)+
CT4

:WAS THE 'A' RECV'D?
:YES
:2ND PROGRAM DIDN'T ENTER DATA MODE

'SEQ 0033

CZPMACO PDM?0 DIAGNOSTIC TEST

CZPMAC.PI

19-JAN-78 14:50

509

516
517
518
519

520
521
522
523
524
525

:
09:11

M7380 CONTROL MODULE TEST.

3
PAGE 13

1323233332323 3233333 3322233223233 3230222

‘SEQ 0034
220ttt dl

;ISSUE ANOTHER "EOT' TO TEST THAT THE ADDRESS MODE OF THE 1ST PROGRAM IS
;RECIRCULATED BACK OUT OF THE 'FIFO".

N
512
513

514

20-JAN-78

:tttttt'..ti*tittitfitfi

510

515

MACY11 30A(1052)

;Iittttttttititt.Qtttitfit'*ittttttttttittti*t*ttittttfifitttitttittittttii

104001
104006

000004
105722
005737
001012
012701
122122
001403
104022
030634
001012
022701
001370

000004

(T4:

EOT

TSTB

TST

032132
002213

:
CMP4

TAGOC
#PRGM1 ,R1

;'EOT" SHOULD RE-ADDRESS 1ST PROGRAM

JADD '1' TO BUFFER POINTER
;SERIAL 1/0 INPUT?
+YES, JUST CHECK DATA

;1ST PROGRAM DIDN'T RECIRCULATE

CT5

#PRGM2 ,R1

002222

CMP4

TAGOC:

000101

(R2) +
SIOSWH

(R1)+,(R2)+
.+10

JSEND A CHAR.
104006
000101
122722
001402
104022
030¢34

JTEST 4

4
SCOP,E

LDCHRO

TO VERIFY THAT THE 1ST PROGRAM ENTERED THE DATA MODE

LDCHRC
‘A
CMPB

BEQ

MODERR

ERRG

g;?.(R?)*

;Uég CHAR RETURNED?
%

:1ST PROGRAM DIDN'T RE-ENTER DATA MODE

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
538
539

PAGE 14

SEQ 0035

IRRRPRRRERRRRRRAERARAR
A ARARRRAREARRARRRARRRAARRAARRAARRARREARRERRR R AR

;THIS SUBTEST ISSUES ANOTHER 'EOT' CHARACTER.

540
541
542

THIS SHOULD ENABLE THE

;ADDRESS OF THE 1ST PROGRAM TO BE OUTPUT SINCE THE SECOND PROGRAM
;CONTAINED A 'DC4' AND SHOULD HAVE BEEN FLUSHED.

543

544
545

20-JAN-78 09:11
MACY11 30A(1052)
M7380 CONTROL MODULE TEST.

.'tttt*fitttititiittttttQti'fi'*t.titltt*ttttfit.fitttfiittttt*ttittttt*ittttt

104001

000005

000004
122722
001403

000004

104006

CTS:

EOT
CMPB

BEQ
MODERR

104022

ERRS

030603

005737
001012
012701
122122
001403

032132

122701

002222

104022
030634
2

001370
000101

122722

001402

104022

030634

002213

BR
TST
BNE

CMPS:

#EOT,(R2)+

.+10

CTé
SIOSWH
TAGOD
#PRGM1 ,R1
(R1)+,(R2)+

.+10

cT6
#PRGM2 ,R1
TAGOD:

000101

;TEST S

SCOPE,S
LDCHRO

CMPS

#'A,(R2)+

;'EOT' SHOULD ENABLE ADDRESS MODE
;CHECK THAT 'EOT' WAS RETURNED
:"EOT' CHAR. WASN'T RETURNED
JEXIT ON ERROR
;SERIAL I/0 INPUT?
2SS,

;CHECK RECV'D ADDR. AGAINST PROGRAM 1.
;PROGRAM DIDN'T RECIRCULATE PROPERLY

CZl
(w4

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PN

MACY11 30A(1052)

09:11

20-JAN-78

M7380 CONTROL MODULE TEST.

PAGE 15

:!tttttt.ltfiQtttt*ttti*itttttl*fifittittttt*titttttttttttttttQtttttttt*ttttt

;THIS TEST CHECKS THAT ALL '64' LOCATIONS OF THE CONTROLS 'FIFO' CAN
THIS IS DONE BY LOADING ONE '64' CHARACTER PROGRAM IN
;BE _ACCESSED.
sTHE

'FIFO°'.

IN THIS PROGRAM,

'56' CHARACTERS ARE RANDOM LITERAL

;CHARACTERS ENTERED UNDER AN 'SI' COMMAND.

;ttt!tttti'tttttttitt**tttitttttttittttttttttQtttttttifitttttttiit*tttitttt

CT6:

000006

017670
00000

JTEST 6

SCOPE
., 6

RANDOM
MOV
MOovB

mMovB

MOvVB
MOvB
MOvB

#TRNBF
O, RO
#STX, (RO)+
#DC1. (RO) +

IADRSO, (RO) +

#SOH, (RO) +
#61,(RO)+

#DC2, (RO) +

IADRSO, (RO) +

#SI,

(RO)+

#DC3, TRNBFO+77

017767
017770

;CREATE A RANDOM DATA BUFFER
;SET UP TO LOAD AN ADDRESS ON THE DATA
;ENTER ADDRESS MODE
JALERT SOURCE IF SERIAL I/0 IS OUT THERE.
;ADDRESS INPUTTED VIA USER
JMODE '1'; WAIT FOR DATA

sALERT DESTINATION FOR SERIAL 1/0
;ADDRESS INPUTTED VIA USER
sSEND '55"' LITERAL CHARACTERS
;LOAD THE '64' CHAR.

#ETX. TRNBF0+100 : TERMINATE THE PROGRAM

;SEND THE PROGRAM
(R2)+

.+10

c17

#TRNBFO
,R1
SIOSWH

017670
032132
000010

#10,R1

CMP6:
MODERR

ERR3

017767

BNE

(R1)+,(R2)+
.+10

cr7

#TRNBF0+77
,R1
CMP6

JWAIT FOR DATA TO RETURN

:Ugg ANY DATA RETURNED?
:Y

;CONTROL MODULE DIDN'T RETURN ANY DATA
;EXIT ON _ERROR
sSET UP TO VERIFY DATA
;USING SERIAL 1/0?

sNO, VERIFY ADDRESS AS WELL AS DATA
;YES, MOVE POINTER TO VERIFY DATA ONLY

;DATA ERROR
:EXIT,ON ERROR
. DONE

sNO

SEQ 0036

CZl
czi

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
610
611
612
613
614
615
616

617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
635
636
637
638
639
640
641
642
643
44

645

646

647
648
649
650
651
652
653
654

655
656
657
658
659
660
661
662
663

MACY11 30A(1052)
20-JAN-78 09:11
M7380 CONTROL MODULE TEST.

PAGE 16

SEQ 0037

tt.tt*tittt.fittt.*fitt 1 3323333333333 3332233222220

Rttt tldd)

AT THIS POINT THE PROGRAM, ADDRESS AND DATA MODES HAVE BEEN TESTED.
sTHIS SUBTEST ISSUES ANOTHER 'STX' CHARACTER TO GET THE CONTROL MODULE
:BACK INTO THE PROGRAM MODE
.

;ttttttfit*t..ttti.tttt*titfit*tittttt.fit.ttttfiQQtitttQittttttfittfittt'tfitt

104001
104006
000002
122722

001402

000007

CT17:

STX
CMPB
BEQ
MODERR

000002

104022

;TEST 7

SCOPE,7
LDCHRO
#STX, (R2)+
46

ERR1

030440
L

sISSUE 'STX' TO RE-ENTER PROGRAM MODE

;THE 'STX' CHARACTER WASN'T RETURNED
L

L e

iTHIS SUBTESTS TESTS THE DELAY TIMES OF THE 'SYN' CHARACTER, ALL THE

:DELAY TIMES OF '1-9' ARE TESTED IN ORDER. THE TEST MAKES '2' CHECKS
JON EACH TIME. FIRST IS THAT THE DELAY ISN'T TOO SHORT AND SECOND THAT
sTHE DELAY ISN'T TOO LONG. THIS TEST IS PREFORMED BY LOADING
;'9' SEPARATE PROGRAMS AND STORING THEM IN THE CONTROL FIFO.

'tttttttttt'tfititttfititQ'tt'ttfittt.ttt.ttfi'fiti'tttitfitttttt'tiittfit.ttt

104001
104036

012701
012702
012703
104005

012746
012746

000010

CT10:

MOV
MOV
MOV

000001
000002
000061

000000
003072

003127
030766
031023

TAGD:

RECVRO
MOV

MOV
1$:

IADRS4:

RTI
CLR

sSET UP DELAY TIMES (1-9).
;SHORT TIME DELAY COUNT.
;START DELAY WITH "1°.

#1.R1
#2,R2
#61,R3

#0,
ns,
R4

-(SP)
-(SP)

MOvVB
MOVB
MOvB
LDQGHO

R3,.SYNTIM
R3,ERR9+16
R3.ERR10+16

BR
.BYTE
.BYTE

TAGF
STX
DC1

.BYTE
.BYTE
.BYTE
.BYTE
IADRSS5: .BYTE
.BYTE

SYNTIM:

;TEST 10
sINHIBIT TRANSMITTER DELAY

SCOPE,10

NODLAY

.BYTE

.BYTE
.BYTE
.BYTE

IADRS6: .BYTE
.BYTE

.BYTE

;ENABLE THE DL11 RECVR
;ENABLE INTERRUPTS

;CONTAINS THE ACTUAL DELAYS COUNTED
;SET UP DELAY TIME FOR THIS LOOP
sPRINT DELAY TIME ON ERROR
;LOAD THE FOLLOWING PROGRAM

;GO HERE WHEN LOADED

75
SOH
60
DC2
75
SI

:MODIF IED BY USER
:MODE '0' AUTO ‘EOT'

61
D(3
D(1

;LOCATION MODIFIED ON EACH PASS.

SYN

SOH

DC3

;MODIFIED BY USER
;ENABLE DESTINATION

;MODIFIED BY USER

CZf
Wi

003140
003142
003144

:
TAGF

NULL1
INC
CMP

BEQ
CMP
BGE
TST
BEQ
MODERR

016224

ERR9

BR
TAGG:

016224

NULL1

000012

TAGI:

000340
003236
002000

176106

1%:

TAGI+2
RECEOT
TAGH

TAGI+2

INC
CMP
BEQ
INC
INC

BR
MOV
MOV
RTI

BIT
BEQ

;1 SEC. TTY DELAY.
s INCREMENT DELAY COUNTER
;WAITED LONG ENOUGH?
;YES, 'EOT' SHOULD BE BACK.
sCHECK FOR FAST RETURN?
sNO, EXECUTE NEXT DELAY
;BACK?
:NO, STILL OK
;'SYN' DELAY TOO SHORT
;%% CHECK 'W2' JUMPER IN?
;EXIT ON ERROR

R4
R4 ,R1
TAGG
R4 ,R2
TAGF
RECEOT
TAGF

TST
BNE
MODERR

ERR10

TAGH:

ETX

;GIVE IT AN EXTRA SEC.
:SHOULD BE BACK HERE.
sHOORAY IT 1IS.

;"SYN' DELAY TOO LONG
;%% CHECK 'W2' JUMPER IN?

sTEST ALL TIMES?

TAGI+2
R2
R3
TAGD
#340,
s,

;YES, EXIT

sNO, SET UP TO TEST NEXT TIME
;SET UP NEW "SYN' COUNT

;ENABLE NEXT PROGRAM
=(SP)
=(SP)

#SW10,aSWR

(T2

;LOAD THE NEW TIME DELAY PROGRAM

;1S "SW10' SET

JNO, INHIBIT TESTING M7387

CZF
CZF
U
I
R

668
669
670

.BYTE
.EVEN

003
003140

SEQ 0038

003136

PAGE 17

665

20-JAN-78 09:11
MACY11 30A(1052)
M7380 CONTROL MODULE TEST.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

699

T+

:ENTERED HERE IS M7387A IS TYPED

;TEXT 'INSERT M7387 MODULE''.

MES64

RECVRO
MOV
MOV

000000
003276

1%:
000340
003316

2%:
CMP11:

003360

022701
001370

104012
027166
104013

012737
000424

003427

RTI

TST
BEQ
DELAY
MOV
MOV
RTI

(R2)
=2

#340,
#2s,

-(SP)

JNO, WAIT
:WAIT FOR DATA
;INHIBIT INTERRUPTS

#PROMS ,R1
(R1)+,(R2)+
.+10

YES

cr12

JEXIT ON ERROR

CMP
BNE

#PROMD ,R1
CMP11

;CHECKED ALL DATA?
sNO

ME S65
TTYIN
MOV

032222

-(SP)
-(SP)

MOV
CMPB
BEQ
MODERR
ERR3
BR

000001

#0,
ne,

JENABLE DL11
;ENABLE INTERRUPTS

#1,LOPSWH

;DATA 0K?
:PROM DATA ERROR

JYES

:TEXT *PROM OK'
:WAIT FOR 'CR' TO CONTINUE.

€112

;FOLLOWING IS THE DATA WHICH SHOULD BE READ FROM PROM
PROMS:

.BYTE
BYTE
.BYTE
.BYTE
.BYTE

12
'M
67
€3

BYTE
.BYTE

67
40

.BYTE
.BYTE
BYIE
BYTE
.BYTE

'R
'O
°A

BYTE

°‘P

40
'R

PP P

M7387A: gg}g?

JTEST N

- ————————

WN-=O

SCOPE.11

CT11:

000011

SO SO S

NS AR IRARER

:1S TYPED.

:ttfi'ttiQt'ttifittttttttt'ttttttttlttfitt.tttt't'ttttttfit.itttt'tttt'tt.tttt

T T ST SO S

.SBTTL M7387 READ-IN MODULE TEST

b
asd
) ca

SEQ 0039

:THIS TEST IS RUN IN CONJUNCTION WITH THE M7380 CONTROL TEST. IT
:REQUESTS THE USER TO INSET THE M7387 READER MODULE AND THEN
sHIT THE RESET BUTTON. THIS WILL ENABLE THE PROM DIAGNOSTIC PROGRAM TO
*BE CALLED OUT. THIS PROGRAM IS THEN VERIFIED AND THE MESSAGE °'PROM OK'

VNNV

PAGE 18

R
AR AR
RRA
RRRRA
RRR
RRRRREAARRR
ERR
AR
RRR
AR RARRRRRRRRR
IRRRRRARR

Y7o

M7380 CONTROL MODULE TEST.

700

NNNNNN

09:11

CZPMAC.P11

19-JAN-78 14:50

20-JAN-78

MACY11 30A(1052)

(ala]
NN

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PI
755

756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781

19-JAN-78 14:50

003376

003377
003400
003401
003402
003403
003404
003405
003406
003407
003410
003411
003412
003413
003414
003415
003416
003417
003420
003421
003422
003423
003424
003425
003426
003427

PROMD
:

SEQ 0040

40
.BYTE
"}
JVIE
°E
BYTE
'S
BOYIE
AVIE - %
13
AYIE
12
BYTE
.BYTE
60
6]
BYTE
BYTE
62
.BYTE
63
64
BYTE
65
BYTE
BYTE
66
67
BYTE
70
.BYTE
71
BYIE
13
BYTE
JVIE
g
.BYTE

.EVEN

783

784
785

;itit'tttttQtttttttttitt'ittttfififiitttfiittt*tt*ti!ttt*tttfittfittt'*iit*ttt

;TEST

786

792
793

PAGE

VIt
%
‘A
BYTE
D
AYIE
55
BYTE
JOrig . *}

105

101
104
055
m
116
040
124
105
123
124
015
012
060
061
062
063
064
065
066
067
070
071
015
012
000

782

787
788
789
790
791

COMPLETE

:tttititt.iltttt*ttittti'itttttttttttt*fififit'.iitfit*it*ittttttiti*ifl.tttt

003430
003434
003436
003440
003444

104001
104012
024236
005237
000137

000012

032222
002172

CYid:

:TEST 12

SCOPE,
12

MES7
INC

JMP

LOPSWH

M7380A+12

sTEXT

'TEST COMPLETE'

;SET SW. TO LOOP PROGRAM
JRESTART PROGRAM

TMTM

CZPMACO PDM70 DIAGNOSTIC TEST

20-JAN-78 09:11
MACY11 30A(1052)
M7387 READ=IN MODULE TEST

PAGE 20

SEQ 0041

2233223322232 32332 2332222222322 2233332333333 2332322332232222322

"SBTTL M7381 BCD INPUT MODULE ADDRESS TEST

222ttt dl

;ttttitfitttt'fit*ttt'*fi*tttt'titttttt'ttt.tt.*'tttti'tfi'titttt'fi.tfi'tt*tttt

M7381A: PRINT
MES29

104012

025233

104026
104012

025303
025324
004737
104035

BCDTO:

023274

;GET MODULE ADDRESS
sTEST 'SET SW'S ALL ON

ADDRESS

PRINT
MES31
MES31A
JSR
SETUP

PC,

UPDATE

;CHECK FOR SOF TWARE SWR
sSETUP TEST PARAMETERS

tt**tQtt'tit****Qfi'ttit'ltttiQ*tttfitttittfitttfittttfi*fifi*tttttttttttt*ttttt

:THIS SUBTEST ADDRESSES THE MODULE IN MODE '0' AND CHECKS THAT THE
:MODULE ADDRESS, MODE AND CORRECT NUMBER OF DIGITS ARE RETURNED.

;tfittt*t*itittttfifi*ifit*'i*ttttttit*ttt*ttitttfitt*fitttfitttfiitttttfiitttttttt

BCDT1:

000060
017220
016224

017231

NOP

MOovB
JSR
TST
BNE
MODERR

#60,SOH1

B8R
(MPB
BEQ
MODERR

BCDT2
MODADR, (R2) +
.+10

BR
CMPB
BEQ
MODERR

BCDTZ2

BCDT2

ERR11

032134

ERR3

00C060

ERR3

002077

016246
000004

030526

CMP2A:

(MPB

PC,a¥ADRSRC
RECEOT

.+10

#60, (R2)+

.+10

#77,(R2)+

.+10

BCDT2

#RECBFO+12,R2

CMP2A
#EOT, (R2)+
.+6

;SET UP MODE

'O’

;ADDRESS THE MODULE
;WAS "EOT' RETURNED?
;YES, VERIFY DATA
;NO, MODULE DIDN'T ENTER DATA MODE.

:eggEIVE CORRECT ADDRESS?

:RECEIVED WRONG MODULE ADDRESS
REgEIVE CORRECT MODE?

:MODULE WAS ADDRESSED IN MODE '0°

;SHOULD READ ALL 1°'S WITH INPUTS OPEN

;DATA ERROR, SHOULD READ ALL 1°'S

;WITH THE

INPUTS OPEN.

DgNE’

UERE CORRECT NUMBER OF CHAR.'S RECEIVED?
YES

:DIDN T RECEIVE ALL DATA (HAR.'S

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1T

MACY11 30A(1052)
20-JAN-78 09:11
M7387 READ=IN MODULE TEST

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PI

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 21

M7381 BCD INPUT MODULE ADDRESS TEST
R

2222322232223 322332322300

- SEQ 0042

222323323333 3323 3333322222222

Rt Rttty

:THIS SUBTEST ADDRESSES THE MODULE FOR MODE '1' (EXT. SYNC) AND CHECKS
;THAT ONLY AN "EOT' AND ONLY AN ‘EOT'

IS RECEIVED BACK.

:'ttQittttttfiifittt.ttfii"'titttfi.tt'tt'tttttt.Qfiitiittt'ttttttt'ttittt'ttt

BCDT2:
000061
017220
000004

017231

SCOPE
mMovB

#61,SO0H1

;SET UP MODE "1'

BEQ
MODERR

:YES

JSR
CMPB

PC,a#ADRSRC
lEgT,(RZ)*

ERRS

'EXT SYNC'

;ADDRESS THE MODULE
;WAS 'EOT' RETURNED?

J"EXT SYNC' DIDN'T RETURN AN ‘'EOT'

:*iitttttl.ttt.titttttQ'*ttfiititttttti*tttttttttttt.fittitttiittttttitttttt

;THIS SUBTEST ADDRESSES THE MODULE IN MODE '2' AND CHECKS THAT ONLY
;DATA IS RECIEVED FROM THE MODULE.

;it*fittttfi.ittfii‘fii*tttt"'t'tttiti*tttttttttttttitttttttfitttttttitt'tittt

BCDT3:
000062
017220
000004

§COPE

017231

mMovB

016244

CMPB
BEQ
MODERR

JSR

#62,SOH1
PC,a#ADRSR(
#EOT ,RECBFO+10
+6

ERR3

;SET UP MODE '2°
;ADDRESS THE MODULE
;IS "EOT' IN CORRECT PLACE
sYES

;ONLY DATA SHOULD BE TRANSMITTED IN MODE ‘2°'

222222222222 2222332322333 3333333323333 3333322332222232222 2Rttt ldld

*THIS SUBTEST ADDRESSES THE MODULE FOR MODE '3' (EXT. SYNC) AND CHECKS
sTHAT ONLY AN 'EOT' AND ONLY 'EOT' IS RECEIVED BACK.

:tttttttfit"fi'*tttttt!t"tttti*ttitfittittt.tttt'itfittt.fi.ltilt'fitttt't‘.

003672
003674
003676
003704
003710
003714
003716
003720

BCDT4:

000063
017220
000004
030526

017231

ECOPE

MOVB

JSR
CMPB
BEQ
MODERR

ERR3

#63,S0H1

;SET UP MODE

#ng.(RZ)*

:Uég 'EOT' RETURNED?

PC.ADRSRC
ol

'3’

;ADDRESS MODULE
3

JEXTERNAL RSYNC' DIDN'T RETURN AN 'EOT’

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=78 14:50
CZPMAC.PI

MACYTT

30A(1052)

20-JAN-78

E
09:11

PAGE 22

- SEQ 0043

M7381 BCD INPUT MODULE ADDRESS TEST
2

2222232232323 332323233233 332233233332333333333333332223233233220%2
2
Rttt

:THIS SUBTEST ADDRESSES THE MODULE USING ALL THE WRONG

885

;MODULE ADDRESSES AND TESTS THAT THE MODULE ISN'T ENABLED.

887

;tttitfitttfitt'ttfii*.tttt'Qt't.fitttttfi*tflt.lttiltfiit*ittttttttt'ttt.tttttt'

003722
003724
003726

BCDTS:

104001

000005
004737

ECOPE
JSR

005154

PC,a#ADRSIT

TRRRRARRRRRRRRRRA AR

;SUBROUTINE TO ADDRESS MODULE

R RRREARRRRARARRRARRRARRRRRRARRRAARRRARRRARA
AR RN

;THIS SUBTEST REQUESTS THAT THE CUSTOMER SWITCHES BE RE-SET TO ALL ON
;AND THE INPUTS GROUNDED.
THE PROGRAM THEN CHECKS THAT ALL 0°'S
;JARE READ FROM THE MODULE.

JNOTE:

IF DATA SW10 IS NOT SET,

B(DT6:

gCOPE

THE FOLOWING SUBTESTS ARE SKIPPED.

;'tttt.tfi.'t'tfit'itfilitt't"tttttittttttiit.fitfiitttttfittttitttttt"'titttt

002000

BIT

175406

BEQ

JSR
MOV

PC,
UPDATE
#. .RETURN

;(CHECK FOR SOF TWARE SwWR
JRE-SET SCOPE LOOP POINTER

000062
017220
000060

MOvB
JSR
(MPB
BEQ
MODERR
ERR3

#62,SOH1
PC,a#ADRSRC
#60, (R2) +
.+10

;SET UP MODE '2'
;ADDRESS THE MODULE

BNE

BCDT?7
#RECBFO0+10,R2
(MP2B

JEXIT ON ERROR
;DONE?

MES31
MES31D

020774

RECVRO

017231
CMP2B:

BR
CMP

016244

;SW SET?

;NO, SKIP MANUAL TESTS.

023274
003760

#SW10,aSWR

BCDT11

;DATA SHOULD TO ALL 0'S WITH
;THE INPUTS GROUNDED
+NO

IRRRRRARRRARRARRERRRRRR
RN R
AR RARARR AR AR AR AR AR RN
ARRRNRRRRRARRRRRRRRAR

;THIS SUBTEST REQUESTS THAT THE CUSTOMER SWITCHES BE SET TO ALL OFF AND
;CHECKS THAT ONLY THE ADDRESS, MODE AND 'EOT' ARE RETURNED.
JNOTE:

IF DATA SW10 IS SET THE FOLLOWING TESTS ARE SKIPPED.

BCDT7:

;COPE

:tttt.il.ttttttttttfiitittlitltfltlttfiti'tttti.t'.it!ttQfiil'titttfitttttt'ttt

MES10

;TEXT 'RESET MODULE TO ADDR.

MES31

;SET CUST. SW.'S TO *0°

012737

023274
000077
000077
004062

MES31E

032134
017227
020774

UPDATE

JSR

MOvB
MOV

#77 ,SRCADR
#. RETURN

MOVB

#77.MODADR

:CHECK FOR SOF TWARE SWR

*SET UP NEW MODULE ADDRESS.

;RE=SET SCOPE LOOP POINTER

"17°.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

RRERRRRRR

BXRaruo&R

004070
004072
004100

104005
112737

004737
005712
001003
104022
031041
000406
122737

001402

MACY11 30A(1052) 20-JAN-78 09:11 PAGE 23
M7381 BCD INPUT MODULE ADDRESS TEST

000060
017220

017231

000004

016236

RECVRO
mMovB
JSR
TST
BNE
ggg%?R

BR
CMPB
BEQ
?gggRR

104022
030526

#60,S0111
PC,a#ADRSRC(

SEQ 0044

;ENABLE THE DL11 RECVR.

;SET UP MODE '0'
;ADDRESS THE MODULE

(R2)
.+10

;WAS ANY DATA RETURNED?
sYES
sDIDN'T ENTER DATA MODE

BCDT10
#EOT ,RECBFO+2
.+6

JEXIT ON ERROR
;EOT SHOULD BE 3RD CHAR. BACK
J0K, IT IS
;DATA WASN'T INHIBITED

:!Qtttttfit.ttttttit'tttt'i'itfifi!t*ttit*ittifit!*i'ttfittfitti'ttt.t'ttitttttt

;THIS SUBTEST REQUESTS THAT THE CUSTOMER SWITCHES BE SET TO ALTERNATE
;ON & OFF AND CHECKS THAT ONE '4' CHARACTERS ARE RETURNED.

:tttt'ttttttttttitttfittitit*ttfitt!tttfittttttttitttitttttttfiittttt'ltittttQ

RREER

SIS

BCDT10:

023274
004150

004144
004150
004156
004160
004166
004172

004202
004204

SCOPE

000062
017220
000004

030526

020774

017231
016240

MES31
MES31C
JSR

PC,

MOvB
JSR
CMP

#62,SOH1
PC,a#ADRSR(C
#EOT ,RECBFO+4

zg¥VRO

BEQ
?gggRR

UPDATE

#. ,RETURN

.*6

;CHECK FOR SOF TWARE SWR

JRE-SET THE SCOPE LOOP POINTER

;SET UP MODE '2°
;ADDRESS THE MODULE
;WHERE ONLY '4' CHAR.'S RETURNED
;YES
;ONLY

'4"'

CHAR.'S SHOULD BE RETURNED

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

19-JAN-78 14:50

MACY11 30A(1052)

DRRERRRARRRRARRARRARAARREARERRNARRRRRARRRRRARRRRRRRRARNARRRAARAARAARAA
R AR AR

978
979

004206
004210

104001
000011

981
982
983
984
985
986
987
988

004214
004216
004220
004226
004232
004236
004240
004242

026654
104013
112737
004737
105737
001002
104022
031433

004212

BCDT11: SCOPE
1

104012

000061
017220
016235

004244
004246
004250

104001
000012

1001

004254

104013

004252

1002

004256

1005
1006
1007

004274
004276
004300

1003
1004

#61,SOH1
PC,a#ADRSRC

RECBFO+1
BCDT12

sTEXT "SUPPLY AN EXTERNAL SYNC.
JWAIT FOR '(CR'
JSELECT MODE '1' ;WAIT FOR DEVICE FLAG.
;ADDRESS THE MODULE
;WAS ANY DATA RETURNED?
;YES, CHECK FORMAT
sNO DATA RETURNED WITH EXT. SYNC.

IRRRRRRAAERARRARARRRARR
AR ERERRRRARERA AN AR RRARARARNRRRRRRRRRRRRA AR AR
*THIS SUBTEST TEST THE DEVICE FLAG IN MODE '3'.
A REQUEST IS MADE
*FOR AN EXTERNAL SIGNAL TO BE SUPPLIED.
THE 'BCD' INPUT MODULE IS
;THEN ADDRESSED AND CHECKED THAT DATA WAS RETURNED.
IRRARRARRRRRRARIRRRRRRRRRRERAERRRRARRARRARAR
AR AR AR RRRRRRRRRARRR AR AR

997
998
999

1000

ME S60
TTYIN
mMovB
JSR
TSTB
BNE
MODERR
ERR20

017231

991
992
993
994
995
996

PAGE 24

:THIS SUBTEST TESTS THC DEVICE FLAG IN MODE *1°'. A REQUEST IS MADE
:FOR AN EXTERNAL SIGNAL TO BE SUPPLIED.
THE '8CD' INPUT MODULE
:1S THEN ADDRESSED AND CHECKS THAT DATA WAS RE IURNED.

976

989
990

IRRRRRRRRRRRRRARRARARRRRRARARA
AR AR R RARARRRRRRRARRRARRRARRRRARRRRRR AR AR

973
974
975

980

09:11

M7381 BCD INPUT MODULE ADDRESS TEST

972

977

20-JAN-78

004264
004270

BCPT12:

104012

026654

112737

004737
105737

001002
104022
031433

SCOPE
12
PRINT

MES60
000063

017220
016235

017231

TTYIN

JTEXT 'SLPPLY AN EXTERNAL SYNC.'

MOvB

#63,S0H1

BNE
MODERR
ERR20

B(DT13

JSR
TSTB

PC ,ADRSRC
RECBFO+1

JWAIT FOR '(CR'

;SELECT MODE 3 WAIT FOR DEVICE FLAG
*ADDRESS THE MODULE
;WAS ANY DATA RETURNED?

*YES, VERIFY FORMAT
sNO DATA RETURNED WITH EXT. SYNC.

SEQ 0045

PAGE 25

SEQ 0046

2222223333332 2323323 333233232333 23333 3333233332322 322232232222

STEST COMPLETE

g
b

D
)

D el
S

e
)

D
il

)
)

i
b

—

O~NONWVESWN=2O

oleolololololols]

09:11

M7381 BCD INPUT MODULE ADDRESS TEST

1008

20-JAN-78

Rttt

:tili'ttfitti*'tttfiit*ttt'tttttti'tttfitttttttttit!*QtltQtfi'ittttttit.titt't

000013

BCDT13: SCOPE
135

024236
000137

MES7
JMP

104001

104012

003456

BCDTO

;TEST COMPLETE

IRRERRRRRARERRARRAARRRARRR
AR AR RRRRRRARARRARRARRARRRARRRRRRRRRRARRAR AR A

.SBTTL M7381 BCD INPUT EXERCISER TEST

;THIS TEST REQUESTS THE MODULE ADDRESS AND THEN CONTINUOUSLY
;ADDRESSES THE MODULE USING DATA SWITCHES 'O & 1' TO SELECT THE MODE.
;THE RECEIVED DATA IS THEN PRINTED ON THE TELETYPE.

;tttttfittti.t!ttttlttfitttt'*tItfififii*tiQ'ttfitt.ttfi*titlt'ttt"t'ttt'l*ttttt

M7381E: PRINT
MES32
ADDRESS

SETUP
JSR

021626

M381E1: PRINT
CRLF
M381E2: TSTTKS

175006

000374
017231
000060

017231

017220
016224
020000
1045

174746

;GET MODULE ADDRESS

PC,TTYENB

MOvVB
BI(B
MOvB
BISB
RECVRO
JSR
TSTB
BEQ
BIT
BNE

aSWR,RO
#374 ,RO
RO, SOH1
#60,SOH1

M381E2

PRTRBF

PC ,a#ADRSRC
RECEOT
.4
#SW13,aSWR
M381E2

;SETUP THE '“R' ADDRESS
sENABLE INTERRUPTS

;CHECK FOR KEYBOARD FLAG

;GET MODE FROM SW.'S

;CLR UN-WANTED BITS
;SET UP THE MODE

;ENABLE THE DL11 RECVR.
sADDRESS THE MODULE
;HAS "EOT' RETURNED?
sNO, WAIT IT OUT
JINHIBIT PRINTOUT?
JVE3,
;PRINT RECVR.

DATA

NSO

MACY11 30A(1052)

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC.P11

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

1048

TRRERARAARRR AR AR

1049

1050

1051
1052
}822

R AR

004412

004414
004416
004420

104012

025526
104026
104035

1058

TREAR

0044¢c
004424

1064

004432

1066
1067
1068
1069
1070
1071
1072
1073
1074

004436
004440
004441
004442
004443
004444
004445
004446
004447

1078
1079
1080
1081

RRRRRRR AR

RRA AR

R AR R R RN AR AR

RAAR AR RRARR AR

AR AR RRANRRRR AR

RAA S AR AR

AR AR AR AR

;GE1

THE MODULE ADDRESS

;SET UP TEST PARAMETERS

A R AR AR

AR C R

RRR AR R AR

REARARRERRRR AR AR

R AR

RN RS ®

;THIS TEST ADDRESSED YHE £7D OUTPUT MODULE AND TRANSMITS *8' DIGITS
;OF DATA AS '77'.
THIS SHOULD CAUSE ALL THE OUTPUT LINES TO BE HIGH

1059
1060
1061

}8;9

R R R

MES33
ADDRESS
SETUP

1056
1057

1075

AR AR RN R R AR

SEQ 0047

M7382A: PRINT

IR R AR

1065

PAGE 26

"SBTTL M7382 BCD OUTPUT MODULE ADDRESS TEST

1055

}82%

09:11_

M7381 BCD INPUT EXERCISER TEST

1046

1047

004426
004434

004450

004452
004454
004456
004460

000240
000240

004737

017234

AR RARRRRRRAR CRRRRRRRRRRRA R

0B(CDT1: NOP
NOP

JSR

104007

LDPGMO

000405
077
077
077
077
077
077
077
C77

BR
BYTE
.BYTE
.BYTE
BYTE
e
.BYTE
.BYTE
.BYTE

004452

.EVEN

. +4

004440

004

104012
025557
025612
104013

.BYTE

TAG3A:

PRINT
ME S34
MES35
TTYIN

PC.a#ADRDST

RRARRA

RRRERAAR AR

;ADDRESS DESTINATION

;TRANSMIT THE FOLLOWING DATA
TAG3A
77
77
77
77
I
77
77
77
EOT

;1ST DIGIT

;LAST DIGIT

;TEXT "EXAMINE OUTPUT
;CHECK FOR ALL LOGIC 1'S
;WAIT FOR CHECK

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC PN
1082
1083
1084
1085
1086
1087

MACY11 30A(1052) 20-JAN-78 09:11 PAGE 27
M7382 BCD OUTPUT MODULE ADDRESS TEST
R

2222222333223 333333

N 222
R
iRttt
ittt

*THIS SUBTEST SHOULD CAUSE ALTERNATE 'HI & LO 'S' TO BE SEEN ON THE OUTPUT
;Qtttttittttttfitfififittttt'ttttttttttlttttfit*tttttttttfiitttttttt"'ttttttt

08(DT2: gCOPE
JSR
LDIZGMO

017234

PC,a#ADRDST

sADDRESS DESTINATION
sTRANSMIT THE FOLLOWING DATA

i cd wd s

BR
BYTE
.BYTE
BYTE
.BYTE
.BYTE
BYTE
.BYTE
.BYTE

EOT

;1ST DIGIT

sLAST DIGIT

.BYTE
.EVEN

TAG38
65
65
65
65
65
65
65
65

TTYIN

;titfittttttti'lttitfittti'tt'itltifitii!ttttttl..ttfitttit*ttfitttttttiit.t't'

0B(CDT3: §COPE
JSR

017234

WWW

PC,a#ADRDST

LDzGHO

;ADDRESS DESTINATION
sTRANSMIT THE FOLLOWING DATA

o @

NNV

S w DD
D aaaa

i
D i
b s
D
b cd
D
i wd
i
b
i
i
i o

;WAIT FOR CHECK

;THIS SUBTEST SHOULD CAUSE ALTERNATE 'HI & LO'S' TO BE SEEN ON THE OUTPUT
;IN REVERSE OF THOSE IN THE PREVIOUS SUBTEST.

i
i ch cnlh i

ME S34
MES40B

:Qt'.it.tt.'fit.t't.'t.fi!'titttttfifi'lifittttttitl'tttittitii't't.tit'l.tt'tfi

D i

TAG38:

TAG3(:

BR
BYTE
BYTE
BYTE

TAG3(
72
72
72

BYTE
BYTE
BYIE
BYTE

72
72
7¢
72

.BYTE
.EVEN

EOT

ME S34
MES37
ME 5408
TTYIN

;WAIT FOR CHECK

SEQ 0048

CZ
cZl

—

;i"fitttt'ttttttt*tttttt!.tt*tt.ttt'tt'tt'ttttttttttfittti'itttttttttti

1136
1137

1THIS SUBTEST CONTINUOUSLY ADDRESSES THE MODULE ENABLING THE USER TO SCOPE
“FOR THE SIGNAL 'OUTPUT DONE 'H & L'.

1138

1139

1140
1141
1142

1143
}}2g
1146
1147

}}23

MACY11 30A(1052) 20-JAN-78 09:11 PAGE 28
M7382 BCD OUTPUT MODULE ADDRESS TEST

—

CZPMACO PDM7C DIAGNOSTIC TEST
CZPMAC.PN
19-JAN-78 14:50

:ittttttttt'tfittfittt*ittttQitttittfittttttttttfititfittit'ttttitttttttttt*

004564
004566
004570

004572
004574

004600
004602

004604

104001
000004
104012

025643
004737

OBCDT4: SCOPE
4
PRINT

017234

TAG3D:

104006

MES38
JSR
LDCHRO
EOT

000004

000773

1150
1151

1152

PC,a4ADRDST

STEXT SCOPE FOR OUTPUT DONE
*ADDRESS DESTINATION

TAG3D

:CYCLE UNTIL RESTARTED

.SBTTL BCD 1/0 TEST

1153

;ttttttttttttl.tt'i.tt'tt'ttttttttilttiiittt.ltttfitttttttttttttttttttttittt

1154

*BCD INPUT/OUTPUT EXERCISER TEST

1161

*MODULE KNOWN AS OUTPUT DATA H.

1155
1156
1157
1158
1159
1160

*THIS TEST USES BOTH THE BCD ‘INPUTROUTPUT' MODULES.
AN INCREMENTING
“'BCD' COUNT IS SENT TO THE OUTPUT MODULE AND WRAPPED AROUND VIA A
“SPECIAL CABLE TO THE INPUT MODULE.
THE DATA RECEIVED FROM THE INPUT MODULE
‘1S THEN VERIFIED AGAINST THE TRANSMITTED DATA.
THE INPUT MODULE CAN
‘BE SETUP TO USE EITHER INTERNAL OR EXTERNAL SYNC.
IF EXTERNAL SYNC IS
“SELECTED, THIS SIGNAL IS SUPPLIED FROM THE SIGNAL ON THE BCD OUTPUT

1162

1163
1164

1165
1166

:'ttttttttt't'tt*ttttitttitQit'ttt.tttfitt."it'tt.tt.ttt'ttti'tttltt'fi'tttt'

004606

104012

004610
004612

026143
104026

1768
1169
1170
1171

004616
004620
004622
004630

026116
104013
122737
001404

1173

004640

000403

1167

1172

1174
1175

004614

004632

004642
004650

BCDIO:

104012

ME $43
ADDRESS

STEXT 'BCD 1/0 TEST'
*GET THE MODULE ADDRESS

ME 42
TTYIN
CMPB #111, INBUF
BEQ
412

:TEXT *INT OR EXT SYNC.?'
*WAIT FOR INPUT
“'1' FOR INTERNAL?
“YES. SET UP FOR INT. SYNC.

000111

015330

112737

000061

017231

112737
104035

000060

017231

MOVB

#61,SOM1

MOVB
SETUP

#60,SOH1

.+10

*NO, SET UP FOR ENT. SYNC.
:SET UP TEST PARAMETERS

SEQ 0049

4
cZl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

E§§§‘d§ifi§£bfl“-‘§§ BRBLLB ROV 2EBEIRRREIT2E

PAGE 29

:THIS SUBTEST OUTPUTS /s DATA PATTERN OF '60-77' TO EACH 'BCD' OUTPUT,
‘ONE AT A TIME. THIS PATTERN IS THEN READ BACK BY THE BCD INPUT
*MODULE AND COMPARED AGAINST THE OUTPUTTED DATA. THIS TEST WILL VERIFY
s THAT EACH OUTPUT LINE CAN BE ADDRESSED AND THAT NO TWO OUTPUTS ARE

O 00

D
D

BCD I1/0 TEST

09:11

IRRRRRRRRARRRERNRRARRARER
AR
ARRRRRRRRRERARRRRARARRRRRRRRARRRRRARRA AR

1176
1177

20-JAN-78

MACY11 30A(1052)

:SHORTED TOGE THER.

000240
000240
012700

112720

BCDIO1: zgg

004712

022700
001373
012701

004722

004737
104007
004712

017234

TAG4A:

d
d e

—

—— — ——

DATA2:

VNV WNN=O

b
b
b

017220
004712
016236

105211

:SET UP DATA TABLE TO TRANSMIT ALL O'S.

cMP

#DATAZ2 RO

;DONE?

JSR
LDzGMO

PC ,a#ADRDST

;ADDRESS DESTINATION
;TRANSMIT DATA

BR
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

TAG4B
60
60
60
60
60
60
60
60
EOT

;GO HERE WHEN DONE

RECVRO
JSR

PC ,a#ADRSRC

#60, (RO) +

.~10
#DATA1 ,R1

:NO
;SET UP DATA POINTER

+ ¥

N
T YT SR YU

NN N

TO O

b ad

b e
b
b

1220

#DATA1 RO

BNE
MOV

DATA1:

030526
000414
022702
001370

MOV

MOVB

004712

D e

d e

D e

;ttitttti.fiittQtttfitfit.tttt*lfittittlttttttittfiittttt*ttitttttttfittttttt

TAG4B:

DELAY

TAG4C:

000060
004722

MOV
MOV
CMPB
BEQ
?gggRR

CMP

004722

000100

.EVEN

BNE
TAG4D:

TAG4E :

INCB

#DATA1 ,R2
#RECBFO+2,R3
(R2)+,(R3)+
.+10

;ENABLE THE DL11 RECVR.
;ADDRESS BCD INPUT

:GIVE "EM TIME TO READ THE DATA.
JSET UP TO VERIFY DATA
DATA EQUAL?

;YES

INPUT DATA DOESN'T EQUAL DATA OQUTPUT

TAG4E+2

JEXIT ON ERROR

TAG4C

;NO, COMPARE NEXT BYTE

#DATAZ2 ,R2

;DONE?

(R1)

:UPDATE DATA PATTERN

CMP

#DATAZ2 .R1

:DONE WITH TEST?

MES7
BR

BCDIOT

sTEST COMPLETE
:RESTART TEST

(MPB
BNE
MOVB

ggENY

#100, (R1)
TAG4A
#60,(R1)+

TAG4D

:DONE ALL CODES FOR THIS OUTPUT?
:NO, TRANSMIT NEXT PATTERN
:YES, RESET IT TO *60°'.

:NO, START NEXT OUTPUT TEST

SEQ 0050

CZl
czl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240

MACY11 30A(1052)

20-JAN-78

BCD I/0 TEST

09:11

PAGE 30

IRRRRRRRRRRRARRRRAERRRT
R AR
RRARRR AR
R AR
RRRRRARARRRRRARR AR

"SBTTL M7383 A/D INPUT MODULE ADDRESS TEST
;THIS TEST IS USED TO VERIFY THAT THE A/D MODULE CAN BE ADDRESS
SAND THAT IT WILL RETURN DATA ON COMPLETION OF A CONVERSION.

ttitittttitt.'ti'ttttttttt'ittiiQtitifitttttitt'ttiitt'ttfittt!Qttt

M7383A: PRINT

005014
005016
005020
005022

MES11

ADTO:

sTEXT "A/D ADDRESSING TEST.'

ADDRESS
SETUP

;GET MODULE ADDRESS
;SET UP TEST PARAMETERS

ti'i'itt'ltiti..tfi.tttiiittitttt'lfitt'ttttt*.tttttti.tfittt'ti"tt

:THE FOLLOWING SUBTEST ADDRESSES THE A/D MODULE AND VERIFIES THAT
:DATA AND 'EOT' ARE RETURNED BY THE MODULE

1241
1242
1243
1244
1245

:'ttt'ttttttt..fifi'itttt'titt'tt'fi.ttttfittt'i.ttttt.tt'tfiit..tt.'.t

ADT1:

000063
017220

017231

#63,S0H1

;PROGRAM (CH.'3'

NOP
TSTB

RECBFO+1

DATA RETURNED?

ADT?2

JEXIT ON ERROR

ADT?2

JEXIT ON ERROR

BNE
?ggg?fl
TST
BNE
EgggkR

016224

000004

MOVB
JSR

TAG2A:

016235

016244

ggga

PC ,a#ADRSRC

.+10

RECEOT
.+10

lEgT.RECBFO*10
W+

MODERR
ERR3

;ADDRESS MODULE

; YES
*MODULE DIDN'T ENTER DATA MODE
;WAS 'EOT' RETURNED?
sYES
;MODULE DIDN'T RETURN ‘'EOT'

C?RRECT NO. OF CHAR.'S RETURNED?

DIDN T RECV. CORRECT NO. OF CHAR.'S.

..t".tttt.‘....tttfi...tt"t.tt.l.'.'.t...fifi.'...tt.'i'.'..t.tt't'ttt'

YHIS SUBTEST ADDRESSES THE A/D MODULE USING MODE '8' AND TESTS
*THAT THE CORRECT NUMBER OF CHARACTER ARE RECEIVED BACK.

;tt.'.!.t.t.t.'tt'.fit""tt't.ttfi...'....t..'..'filfi.fitti."'t.t'.'ttt.t

104001
000002
112737

004737
122737
001402
104022
030526

ADT2:

000070
017220

017231

000004

016274

SCOPE

MOvVB

#70,SOH1

;PROGRAM MODE '8°'

(MPB

#EOT ,RECBFO+40

;'EOT' SHOULD BE RETURNED HERE

JSR

TAGZ2B:

BEQ

ggggkfl

PC ,a#ADRSRC
.*6

sADDRESS MODULE
. 0K

JMODULE DIDN'T RETURN '4' CH.'S OF DATA

SEQ 0051

94
czi

31
CZPMACO PDM70 DIAGNOSTIC TEST MACY11 30A(1052) 20-JAN-78 09:11 PAGETEST
ADDRESS
MODULE
INPUT
A/D
M7383
14:50
19-JAN-78
CZPMAC.P11
1280
i S A R L L L L L L i bbbhbdobobdaiviiuioiaioiaisiainisoibsioiataiaioolob
RL
1281
*THIS SUBTEST ADDRESSES THE 'A/D' USING THE WRONG MODULE ADDRESSES
1282
SAND TESTS THAT THE MODULE ISN'T ENABLED.
1283
tttttttttt.tttttt*'tttittttttttttttittt*ttttttttttttttttttttttttttttttt
1284
1285
ADT3: SCOPE
1286 005142 104001
3
1287 005144 000003
PC,a#ADRSIT
JSR
1288 005146 004737 005154
ADT4
BR
}ggg 005152 000437
JUSING THE SERIAL INPUT?
SIOSWH
ADRSIT: TST
1291 005154 005737 032132
:YES, INHIBIT RUNNING THIS TEST.
TAG2H
BNE
1292 005160 001033
SET UP 1ST ADDRESS TO BE TESTED
#60 ,ADCHX1
MOvB
1293 005162 112737 000060 005211
EQUAL TO SELECTED ADDR.?
,ADCHX1
MODADR
1294 005170 123737 032134 005211 TAG2C: CMPB
*YES, SELECT NEXT. ADDR.
TAGZF
BEQ
1295 005176 001416
RECVRO
1296 005200 104005
SOURCE
1297 005202 104025
.44
1298 005204 005210
TAG2G
BR
}2333 005206 000403
sALERT MOCULE
.BYTE DC1
021
1301 005210
ADDRESS MDIFIED FROM '60-77"
60
ADCHX1: .BYTE
060
1302 005211
.BYTE SOH
001
1303 005212
.BYTE 60
060
1304 005213
sENABLE MODULE
.BYTE DC3
023
1305 005214
BYTE 0
000
}3389 005215
;WAS ANY DATA RETURNED
(R2)
TAG2G: TST
1308 005216 005712
1309
1310

005220
005222

001405
113737

g;l%

005232

031124

005234
005240

105237
122737

1311

1314
1315

1316
1317

005230

005246
005250

104022

001350
000207

005211

BEQ
MOVB

031166

MODERR

TAGZF
ADCHX1,ERR13A

:NO

ADCHX1
#100,ADCHX1
TAG2(

;UPDATE MODULE ADDRESS
sDONE?

ERR13

005211
000100

005211

TAG2F:
TAG2H:

INCB
(MPB
BNE
RTS

;MODULE WAS ENABLE WITH ILLEGAL ADDR.

:NO

SEQ 0052

CZP
czP
1
1

1
1
1
1
1
1
1

}
1
1
1
1
1
1
1
)
}
1
1
J
1
1
}
1

MACYTT

1318
1319
1320

30A(1052)

20-JAN-78

B
09:11

5
PAGE 32

SEQ 0053

M7383 A/D INPUT MODULE ADDRESS TEST
R

2 2202222323232 2 2323323322332 23233233 3332333333233 333 2322222222232

R 02202 RRdddtls

*THIS SUBTEST CHECKS THAT THE A/D MODULE WILL WORK UNDER EXTERNAL SYNC.
;THE MODULE IS ADDRESSED AND THEN A REQUEST IS MADE FOR AN EXTERNAL

;SYNC SIGNAL TO BE SUPPLIED.

:tt'tQfifi.'ttt't'tittQttt'ttt'tit.tttttt...'tfi'titiit'ttQtttt't'!'t.ttttlt'

ADT4:

002000

ECOPE

BIT
BEQ

174066

#SW10, aSWR
ADT5+4

005274
000077

020774
017227

MOV

000064
017220

01723

MOVB
JSR
ST
BEQ

#64,SOH1
PC, a#ADRSRC
(R2)
.+10

ERR21
BR

ADTS

MOVB

RECVRO

104022

031475
000422

104012

026654
012746
012746
000002
000001
012746
012746
000002
104004
005712
001002

000000
005354

000340
005370

1%:

2%:

#77,SRCADR

MOV
MOV

#340,
428,

=(SP)
-(SP)

DELAY
ST

(R2)

RTI

ERR20

2222232233323

“TEST COMPLETE

;WAIT FOR SETUP

sRESET SCOPE LOOP POINTER

;SET UP ADDRESS '17'
;ENABLE THE DL11 RECEIVER

;EXT SYNC; CHANNEL '0'
;ADDRESS MODULE
;MAKE SURE NO DATA WAS RETURNED

JEXT SYNC CONVERSION TOOK PLACE
;EXIT ON ERROR

MOV

RTI
WAIT

SET?

sWITH NO EXT.

-(SP)
-(SP)

MODERR

031433

#. ,RETURN

#0,
#$,

BNE

Yo~y
WN=O

ME S60
MOV

104022

W& W

SRR FAN G BARARRRRRRRRR

=0 VNV
WN =

1340

d—lddd—jddddddddddAddddddd

MODERR

*10°

;NO, INHIBIT THIS TEST

sTEXT 'RESET MODULE ADDR.

MES10

TTYIN

;M.

sTEXT

SYNC SUPPLIED.

"SUPPLY EXT.

;ENABLE INTERRUPTS

SYNC SIGNAL'.

;INHIBIT INTERRUPTS
;WAIT FOR DATA
:Uég A DATA RETURNED
‘3

;NO DATA WAS RETURNED WITH
JEXTERNAL SYNC.

3332333333333 33323233 3333233322322

222 2Rt

Rttt

:Qttt*lfifiitititttttt'*tt*titfl*fifitttttttt*ifitttttt't'titt*ttttiittttitttfiti

005402
005404

005406
005410
005412

104001

000005
104012
024236
000137

ADTS:

gCOPE
PRINT

005022

MES7
JMP

ADTO

sTEXT 'TEST COMPLETE'
JRE-START

TEST.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1

5
C
20-JAN-78 09:11 PAGE 33
MACY11 30A(1052)
M7383 A/D INPUT MODULE ADDRESS TEST

1365
1366

SEQ 0054

:tfi‘tttQiQtQttt'fifififitfittitttfit'ttfiit.ttttt.fi'ttt'ttttttttttttttti'ifi'ttt.'

.SBTTL M7383 A/D CALIBRATION ROUTINE

£E

;THIS ROUTINE TAKES CONTINUOUS CONVERSION USING DATA SW'S '0=4'IN OCTAL
JWEIGHT TO SELECT THE CHANNEL TO BE CONVERTED AND THEN PRINTS THE CONVERTED VALUE

*CHANNEL SELECTION IS AS FOLLOWS:
;DATA SW'S '0-1' SELECT 'INT. SYNC' ON CH.'S 0,1,2 OR 3
;DATA SW'

'2' & '0-1' SELECT "EXT SYNC' ON CH.'S 0,1,2 OR 3

;DATA SW '3' ONLY SELECTS "INT SYNC' CONVERSION ON ALL *4' CH.'S
;DATA SW'S '283' SELECT 'EXT. SYNC' CONVERSION ON ALL '4"' CH.'S

:ttttt't!tfii'tfitttttt*Qttit'fitt.t'ittttttQifittififit"ttt'tt'.ttiitttttttttt

M7383C: PRINT
MES12
ADDRESS
PC,REMOTE
JSR
SETUP
#1.,R1
MOV

HERERERSE
EBIRKREN 28

D
D
Dl
-

_a_n;_a_¢_n;.a

—

WNWWWWWWW W

1379

021442
000001

NODLAY

CALBT1: PRINT
CRLF

CALBTZ: TSTTKS

173700
000300
000060

017231

020000

021502
021524

173654

MOvB
BICB
BISB
MOvB
ADCNVT
BIT
BNE
JSR

PRTRBF

JSR
BR

aSWR,R3

#300,R3
#60,R3

R3,SOH1

#SW13,aSWR
CALBT?2
PC,SETRMT

PC,CLRMOTE

CALBTZ2

;TEXT 'A/D CALIBRATION ROUTINE'
;GET MODULE ADDRESS
;CHECK FOR REMOTE DESTINATION
;SET UP THE '“R' RESTART ADDRESS
sSET UP FOR "1' CONVERSION
sSET TRANS. DELAY INHIBIT SW.

;CHECK FOR KEYBOARD FLAG
sGET CHANNEL
;CLR UN-WANTED BITS
;CONVERT TO ASCII
;SET UP TO CONVERT CH.
; CONVERT
s INHIBIT TYPEOUT?
sYES,

TAKE NEXT CONVERSION

;CHK FOR AND SET UP REMOTE DST.

;PRINT RECV'D DATA

;CLEAR REMOTE DESTINATION

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

19-JAN-78 14:50

5
D
PAGE 34
20-JAN-78 09:11
MACY11 30A(1052)
M7383 A/D CALIBRATION ROUTINE

1400
1401
1402
1403

*THIS TEST REQUESTS FOR A CHANNEL AND A V.S.F (VERTICAL SCALE FACTOR) TO
;BE INPUTTED FROM THE TELETYPE. A SERIES OF "100' CONVERSIONS A THEN TAKEN,
JAVERAGED AND THEN THE RESULT IS DISPLAYED IN A HISTOGRAM FORMAT ON

1404

sTHE

1405
1406
1407
1408
1409
1410
1411
1412
1413

M7383R: PRINT
MES15
ADDRESS
PC.REMOTE
JSR
SETUP

021442

NODLAY
REPTOA: PRINT
MES16

1415
1416
1417

TTYIN
BCDBIN
TST

022564

1418
1419
1420
1421
1422
1423
1424
1425

BEQ

022564
016112
016116
032174
000144
016016
016126

1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446

TELETYPE.

;Qt'tt.fi't.*ttltfit'ttttIttt'tttfifiittt*'itttfitttfittttttttttt'tfitttt

1414

1447
1448
1449
1450
1451
1452
1453
1454
1455

222222223223 2233 3223333333233 33333333333323 3333232332222 222 2 Rttt dd)

"SBTTL M7383 A/D REPEATIBILITY TEST

016122
032174
032204
000144
017670

MOV
CLR

CLR
MOV

MOV

JSR
TST
BNE

032202
032204
REPTO:
REPT1:

016120
032302
000003

DEC
BNE
MOV

016122
000011
032176
013704
013701
022701
001412
104031

013723
063702
005304
001371

ADD
MOV
SuB
MOV
MOV
MOV

000001

016122
032204

MOV
MOV
ASL
CHANEL
MOV
MOV
ADCNVT
AVERAGE
MOV
MOV
MOV
MOV

REPT2:

;REQUEST 'VSF'
BCDTAB

REPTOA
BCDTAB,KSTOR1
HIDIVR
HIDIVD

KSTOR1,LODIVR
#100.,LODIVD
PC,DIVIDE
REMAIN

REPTOA

QUOENT ,KSTOR4

KSTOR1,KSTOR5
KSTORS
#100. ,R1
#TRNBFO,R2
#LOW,RO
#AVGTAB,R3
#3,Ré4

(RO)+, (R3)+

.~4
QUOENT ,RO

'9..Ro

RO,KSTOR2
#18. R0

RO,KSTOR3

KSTOR4 R4

KSTOR1,R1

#1,R1
CMP
REPT3
BEQ
AVERAGE
MOV
ADD
DEC

BNE

sTEXT 'A/D REPEATIBILITY TEST'.
;GET THE MODULE ADDRESS
;CHECK FOR REMOTE DESTINATION
;SET UP RESTART ADDR. POINTER
;SET TRANS. DELAY INHIBIT SW.

QUOENT, (R3) +
KSTORS5,R2

Ré

REPT2

;CONVERT INPUT TO BINARY

;VSF=07
;JYES, ILLEGAL ENTRY
;SAVE INPUT

;SET UP TO DIVIDE °'VSF' TO GET NO. OF AVG.'S
;1S NUMBER LEGAL?

;NO, REQUEST NEW 'VSF'
;YES, SAVE IT
JREQUEST CHANNEL.

;SET UP TO TAKE '100' CONVERSIONS
;SET UP TO SAVE CONVERTED VALUE
;TAKE 100 CONVERSION

sAVERAGE THEM
;SET UP TO SAVE VALUES
;SAVE AVERAGE HERE

;SAVE AVG HIGH & LOW
:gGVED ALL VALUES
:SET UP AVERAGE
;CALCULATE AVERAGE +9 VALUE
JSAVE IT
:CALCULATE AVERAGE -9 VALUE
JSAVE IT
:SETUP TM" AVERAGE OUT 'VSF'
;35; U77T0 TAKE 'X' AVERAGES
;YES, NO AVERAGING NEEDED

;D0 IT
;SAVE VALUE

:SET BUFFER POINTER TO PICK UP NEXT GROUP

:ggNE

SEQ 0055

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
1456
1457
1458
1459
1460

005754

012702
000402
012702
012700
005020

5
3
PAGE 35
20-JAN-78 09:11
MACY11 30A(1052)
M7383 A/D REPEATIBILITY TEST
#AZGTAB*é.RZ

032310

032302

#TRNBF
0 ,R2
#ORLOW,RO
+
(RO)
#OZHIGH*Z,RO

032202

KSTOR4 ,RO

017670
032226

032176

REPT3:

RO,R1

REPT4:

032200
032226

INC

032200
032230

REPTS:

MOV
suB
ASL
INC
TST
DEC

BNE
JSR

021502

;SET UP TO CATEGORIZE AVERAGES

:FOR VSF OF '1' USE ACTUAL VALUES
*SET UP TO CLR COUNT BUFFER
:CLR BUFFER
;DONE?

:NO

:KSTOR4 CONTAINS VSF

(R2) ,KSTOR2

:ég VALUE > AVG. +9?

ORHIGH

*YES, VALUE OUT OF RANGE

+10

032300

SEQ 0056

REPTS
(R2) ,KSTOR3
.+10
ORLOW

REPTS
(R2) ,R3
KSTOR3,R3
R3
MINUS9(R3)
(R2)+
RO
REPT4

PC,SETRMT

;1S VALUE < AVG. =9?
JVES
*NO,

OUT OF

RANGE

;GET VALUE TO WORK ON IT
;OBTAIN OFFSET

s INCREMENT CNTR
s INCREMENT POINTER
;DONE?

sNO

;CHK FOR AND SET UP REMOTE DST.

:tttttfit*ttttfittt'itttfittttttt**t"tttttfitttttitfi.t*ttttttiti*tt't

;AT THIS POINT THE AVERAGES HAVE BEEN TAKEN AND CATEGORIZED.
sNEXT SECTION DISPLAYS THE COUNTS IN A HISTOGRAM FORMAT.

THE

:ttttttttt't*fifitttttttitttitfi*fi*ttfitttitttfiii.titit*'ittttttttittt

012702
005003
020122
001407
005203
022702
001372
005301
001365
000422

032230

032300

REPT6A:

MOV
CLR
(MP

BEQ
INC

REPT6B:

REPT7:

104012

031712
010337

REPT6:

021262

REPTS8:

PRINT
DASH
MOV
BEQ

SPACE
DEC

TST
PRINT
ASTRIC

032300

REPT8A:

CLR
CMP
BEQ
CMP
BEQ

#MINUSS
,R2
R3
R1,(R2)+

REPT7
R3

#ORHIGH,R2
REPT6+6
R

;SET UP COUNT TABLE

;SCAN TABLE FOR CURRENT COUNT
;COUNT FOUND, PRINT IT
;SCANNED WHOLE TABLE?
;NO, CONTINUE
;YES, CHECKED ALL COUNTS?
sNO, RE-SCAN TABLE

REPT6
REPTS

;TYPE

R3,SPACEX
.+

sANY SPACES TO BE TYPED?
sNO, PRINT ASTRICK

-(R2)
(R2)+
R3
#ORHIGH,R2
REPT6B
R1,(R2)+
REPTS8

FINAL DATA

;YES, PRINT SPACE

sSUBTRACT '1' FROM COUNT

;DONE CURRENT SCAN?
;YES, EXIT
;NO, IS THIS COUNT EQUAL?
JYES, PRINT

D LD gt
D
D
D
e
e
— v

vivvoavroaooa v v
b
NNNMNIN)
= D D
SEWNN=OVONOWVSW N

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
006156
006160
006162
006166

MACY11

016236
000114
031753
000115

30A(1052)

REPT9:

006236

031765

006236

006320
032226
032300

012703
012701
012102
004737
005303

.+10

#'M.R1

.+10

#X100UV ,REPT10
#'H,R1

.+10

#X10UV,REPT10

001001
000207
012737
104016

000765

:RgNNING WITH MEDIUN GAIN?
;N

JRUNNING WITH HIGH GAIN
;NO
SCALE HEADER

;PRINT

ORHIGH,R5
REPT12

;WERE ANY COUNTS OUT OF RANGE?
sNO, RE-CYCLE TEST

ORLOW,RS

REPT12:

SUMMARY

sTEXT 'OR-LOW
JPRINT COUNTS LOW

;PRINT COUNTS

'HI’

PC,CLRMOTE

;CLEAR REMOTE DESTINATION

REPT13:

#3,R3

;SET UP PRINT LO-HI & AVG. VALUES

REPT14:

(R1)+,R2

RPT12A:

REPTO

#AVGTAB,R1

PC,POSTIT

021262

PC,REPT13

ORHIGH,R2

000002

;SAVE GAIN SETTING
:RgNNING WITH LOW GAIN?

;PRINT HORIZONTAL

032300

007040

SEQ 0057

ORLOW,R2

000003
032302

PAGE 36

REPTBA
RECBFO+Z,R1
#'L,R1

032226

021524
005636

#X1MV,REPT10

REPT11:

104012

032034
004737
000137

INC
BR

006236

031757
000110

09:11

M7383 A/D REPEATIBILITY TEST

REPT10:

032003
013702
104033
104012
032014
013702
104033

20-JAN-78

#2,SPACEX

REPT14

;SET UP BUFFER POINTER
;GET VALUE
;CONVERT & PRINT IT

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586

1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599

20-JAN-78

MACY11 30A(1052)

G
09:11

M7383 A/D REPEATIBILITY TEST
:'Q.itt'titttt'tfi'fitt*

5
PAGE 37

SEQ 0058

1333322333223 3233333222223222222322

iRttt

.SBTTL M7383 A/D GAIN ACCURACY TEST
;THIS TEST REQUESTS OF A SERIES OF VOLTAGES A SPECIFIED GAIN SETTINGS

;TO BE SUPPLIED TO THE 'A/D'. A SERIES OF A HUNDRED CONVERSIONS ARE TAKEN
;AT EACH OF THESE SETTINGS AND AVERAGED OUT. THIS AVERAGE IS THEN TESTED
;TO BE WRITTEN '+ OR =' A COUNT FROM THE TRUE VOLTAGE VALUE FOR THAT
sSPECIFIED SETTING.

:ttiQttttt'ti*'*ttt'tt""ttttttttttttfiiit.tttttttti*tttttttit't'tfifit't

M7383G: PRINT

104012

MES18

024641

104035
005037
104032

JTEXT

ADDRESS

104026

032222

SETUP
CLR

CHANEL

LOPSWH

'A/D GAIN TEST'

;SET UP RESTART ADDR. POINTER

JREQUEST & STORE CH.

TO BE TESTED.

;TEST "+1.990vV' AT 'LOW' GAIN
104012
024666
104012
024714
104034

000114

007625

MES19

:TEXT

'SUPPLY +1.990v'

MES20

;TEXT

"AT LOW GAIN

;LOW GAIN

WAITGN

7625

;TRUE VOLTAGE VALUE

+ OFFSET

JTEST =1.990v AT 'LOW' GAIN
104012

024730

MES21

;SWITCH VOLTAGE NEG.

000114
000011

;TRUE VOLTAGE VALUE + OFFSET

104034

?fITGN

JTEST +.1990V AT LOW GAIN
104012

104034
000114
004226

WAITGN

025014
024714

MES24
MES20

sTEXT
;TEXT

;GAIN MED.

4226

°"SUPPLY' +.1990v'
"SUPPLY +.1990V'

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1T
1600
1601

MACY11 30A(1052)

09:11

M7383 A/D GAIN ACCURACY TEST
JTEST

006440
006442
006444
006446
006450

20-JAN-78

*=.1990v AT

PAGE 38

'LOW' GAIN

104012

024730

MES21

003410

3410

JTEXT *SWITCH VOLTAGE NEG.'

UAITGN

104034
000114

;TEXT

'0.0v' AT LOW GAIN
PRINT

104012

MES25

025072

;TEXT *'SUPPLY +0.000v."*

UAITGN

104034

000114
003717

3717

IRRRRRRRRRRRRRRRARR
AR RN R AR AR RRR R RN ANARR AR AR AANRAR AR AR AR RRRRRRRRR R R AR

sTEST COMPLETE

IRRRRRRERRRRRRRRR AR RAARERE AR AR

104012

1622

SEQ 0059

MES7

024236
000735
000240

ng
N

M7383G+6

AR RRARERRRRARRRRRRA AR

RRARRARRRRRR AR AR

sTEST COMPLETE

sRE-START TEST

:ttlttfitt‘ttt'tt*fltttt*ttitttt.ififitttttt*fit

L 2222222222200ttt RRR Rl s s ll

.SBTTL M7383 A/D GAIN AVERAGING SUBROUT INE

;THIS SUBROUTINE WAITS FOR 'CR' THEN TAKES AND AVERAGES '100' A/D CONVERSIONS.
;THIS COMPUTED AVERAGE 1S COMPARED AGAINST THE TRUE VOLTAGE VALUE FOR A

*SPECIFIED SETTING.
THE AVERAGE IS PRINTED OUT IF FOUND TO BE MORE THAN '+ OR =
AVERAGE
THE
FROM
11 COUNT

1628

1631

1635
1637
1639
1640

1641
1642

:tt*tttfi*ttlttttti'tt!ttt'it'titttttttttfiittikttfltttttfittiit'tttfitttttt

017603
062716
017604

000000
000002
000000

012701

000001

104013

104027
120337

001403

016236

104012

025113
000766
012701

000144

XWATGN: :PV
WAITGT1:

ML
TTYIN

MOV
ADCNVT

CMPB
BEQ
PRINT
MES26
BR
MOV

2§S?§fi§3

;PICK UP GAIN CODE FROM CALL +2

a(SP) R4

;PICK UP TRUE VOLTAGE VALUE
JWAIT FOR "CR' TO CONTINUE

#1,R1

R3,RECBFO+2
.+10

IS GAIN CODE CORRECT?
YES

WAITG1
#100. .R1

;JWAIT FOR SETUP
sSET UP TO TAKE "100'

TELL HIM ABOUT IT

CONVERSIONS

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11
1643
1644
1645
1646
1647
1648

1649

1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662

19-JAN-78 14:50

012702

017670

013702
020402
001441
005204

016122

104027
104031

5
|
PAGE 39
20-JAN-78 09:11
MACY11 30A(1052)
M7383 A/D GAIN AVERAGING SUBROUTINE
#TRNBFO,R2
WAITG2: MOV
ADCNVT
AVERAGE
QUOENT ,R2
MOV
R4 ,R2
CMP
GANEXT
BEQ

032222

R4
R4 ,R2
GANEXT
#2 R4
R4 ,R2
GANEXT
#SW13,aSWR
WAITG2
#SW13,aSWR
WAITG2
LOPSWH
412
LOPSWH

000003
016120
006330

#3,R3
#LOW,R1
PC,REPT14

INC
CMP
BEQ
SuB
cMP
BEQ

000002
020000

172546

020000

172536

WAITG3: BIT
BNE

032222

1663
1664

1665

1666

1667
1668
1669
1670
1671
1672
1673
1674
1675

WAITGZ2

000727

062716
000002

000002

GANEXT:

ADD

#2,(SP)

;SAVE

SEQ 0060
THEM HERE

s TAKE THE CONVERSIONS
;AVERAGE

THEM

;AVERAGE = TRUE VALUE?
JYES, EXIT

JAVERAGE = TRUE VALUE +1?
JYES,

EXIT

;AVERAGE = TRUE VALUE =1?
;YES,

EXIT

sNO, PRINT INHIBIT SW. SET?
JYES
;SW SET?
JYES, INHIBIT ERROR TYPEOUT.
;NO, HAS ERROR HEADER BEEN TYPED?

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688

.SBTTL A/D CONVERSION ROUTINE

;THIS ROUTINE TAKES AN A/D CONVERSION AND ENABLES
;DL 0'S RECVR TO ACCEPT & STORE THE CONVERTED VALUE

;tttt*ttttfifiitttt*ttt*ti*fi*tttfifiittttttitttiitttt'ttit'ttttttt*ttttltttttt

104002
012705
012746
012746
104005

017220

005737
001775
012703
012704

016224

012437
011437
012737

015330
015332
000004

013715

022564
000053

001401
005415
063725
132737
001411
005200
022700
001405
062703
062704
000743
005301
003326

3%
WV

W N=O0OVONOWVHAWN=O

NNV
=S
P bt
DD

y——

~N NNNNNNNNNNNNNNNYN

XADCNT: SAVREG

017670
000000
006710

004737

122713

SEQ 0061

:ttiitttfititttttiit**fifiitittttt*ttt'i**tttttttifittttttti'wlfittttiQOtttttt'

104030

5
J
PAGE
09:11
40
2)
8
30A(105
20-JAN-7
MACY11
M7383 A/D GAIN AVERAGING SUBROUTINE

ADCTO:
ADCT1:

016237
016240

032130
000010

MOV
MOV
MOV
RTI

#TRNBF0,RS
#0,
=(SP)
#ADCTO, -(SP)

JSR

PC, @4ADRSRC

TST
BEQ

RECEOT
-4

RECVRO

MOV

ADCT2:

MOV

032214

#RECBFQ+3,R3

HRECBF0+4
R4
RO
+, INBUF
(R4)

(R4)
, INBUF +2

#4 ,CHRCNT

BCDTAB, (RS5)
#53,(R3)
+4

(R5)
OFFSET, (R5)+

017231

#10,SOH1

ADCT3
RO
#4 RO

000004

ADCT3

000010
000006

ADD

ADCT3:

104003

000002

DEC
BGT
GETREG

#6 ,R4

ADCT2
R1
ADCTO

;SAVE REG.'S

;SAVE CONVERTED VALUES HERE

;ENABLE

INTERRUPTS

;ENABLE THE DL11 RECVR
;ADDRESS MODULE

;WAS 'EOT' RETURNED?
;sNO, WAIT FOR CONVERT
;SET UP ADDRESS TO PICK UP SIGN
;SET UP ADDRESS TO PICK UP DATA
sSET UP NO. TO BE CONVERTED
;CONVERT VALUE TO BINARY
JSAVE IT
;VALUE POS.?
;YES, LEAVE AS IS
sNO,
;ADD OFFSET
;CONVERTING ALL '4' CH.'S?
JNO, EXIT
;SAVED ALL VALUES?
;YES,

EXIT

sNO, PICK UP NEXT ADDRESSES

s TAKE NEXT CONVERSION

:NO, EXIT

RTI

;ttfitti*tttttiitttttttttttttt'titii*ltttttttittttttttt*ittttttltttttti

;SUBROUTINE TO CONVERT THE VALUE IN 'R2' BACK TO A "TRUE' A/D VALUE
JAND PRINT IT IN DECIMAL AS EITHER '+ OR-'.

:tttttttfifittt*itttttttttit'itifittt!tt.ttitttttttttl'tttifittttttl'ti'ti

007040
007042
007046
007052
007054
007056
007062
007064
007066
007070

000053
032130
000055

POSTIT:

SAVREG
MOV
SuB
BPL
NEG
MOV
TYPEIT
BINDE(

RTS

GETREG

OFFSET,R2
+10

#55 ,R1

sSET UP TO PRINT '+'

sSUBTRACT OFFSET TO OBTAIN REAL VALUE.
;VALUE POS.?
sNO, COMPLIMENT IT
;NO, SET UP TO PRINT *'~'
:TYPE

VALUE

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

20-JAN-78

MACY11 30A(1052)

09:11

A/D CONVERSION ROUTINE

PAGE 41

SEQ 0062

1732

:tt'titit't!ifitti'tfitfifit'tt'ifi*tt.iit*iiitfit*fiitttittt*fittfitttttt'tititttt

1734

:t'ttttttitittfitttfiltttii'tt*t*tttfifittfittiifittfitifi*l!t*t'*ttttfitttttt.titt

1733
1735

1736

1737

1738

"SBTTL M7384 D/A ADDRESSING TEST

007072

007074

007076

104012

M7384A: PRINT

026215

104026

MES45

;TEXT 'D/A ADDRESSING TEST"

SETUP

:SETUP TEST PARAMETERS

ADDRESS

1733007100 104035

:GE1

THE MODULE ADDRESS

17‘1

:tttttit**fi*"tttti'tt*titttit'ttti*tttttttit*flitfitttlttflttt*tttttttfii*'tt

1744

IS SENT TO THE MODULE.

1742
1743

:THIS SUBTEST ADDRESSES THE D/A MODULE SENDS A CODE OF '70' (MODE 8)
:THIS SHOULD ENABLE THE SIGNAL 'PROG L' TO BE LOW UNTIL THE 2ND CHAR.

1745

;**tttfittttt'ti.ifi'tt*ttttitt*ittttt*ttttt**ttitfifit*t**itttt*titfiitiitttt*

1746
1747
1748

007102
007104

000240
000240

1750

007112

104006

DAT1:

1749 007106 004737 017234
1751

007114

000070

1753
1754

007120
007122

1756
1757

1759

1752

NOP
NOP

JSR

LDCHRO

PC,@4ADRDST

;ADDRESS THE MODULE

;SEND THE CHAR.

026242
104013

MES46
TTYIN

;TEXT *SCOPE FOR 'PROG L' HI'
*WAIT FOR 'CR' TO CONTINUE

007126
007130

000004
104012

EOT
PRINT

007134

104013

007116

1755 007124

104012

104006

LDCHRO

1758 007132 026305

'8'

*SEND 'EOT"

MES47

:SCOPE FOR 'PROG L HI & FLOP L LO"

TTYIN

1761

:'t"tt'ttQtttttiittfititttttitttttttitt*ttfii*tttt*itttt*tttttfii'tttfiiifiQti

1762
1763

THIS SUBTEST 1ST ADDRESSES THE MODULE AND SENDS MODE '9' TO SET
*THE 'FLOP' FLOP.
THEN THE MODULE IS RE-ADDRESSED AND SENDS MODE '8'

1765

:ttttt'ttttitt*tttittttifit'tfifitttttttttititt*tttttt*t'ti*ttttitttt'itifiitt

1764

1766
1767
1768

:TO CLR THE 'FLOP' FLOP.

1770
1771

007136
007140
007142
007146
007150

104001
000002
004737
104007
007154

1773

007154

071

1776

007156

1769

DAT2:

017234

SCOPE
2
JSR
LDPGMO
.+

PC,ADRDST

.BYTE

1772 007152 000401

1774 007155

.BYTE

1777
1778

007160
007162

004
104012
026352
104013

JSR

1783 007174

007170
007172

104007
007176

1784

007176

070

1787

007200

};gg 007177

000401

004

104012

EOT

PRINT
ME S48
TTYIN

1780 007164 004737 017234
1781
1782

.+4

LDPGMO
. +4

.BYTE

.BYTE
PRINT

;ADDRESS MODULE

;SEND CHAR.

'9'

:SCOPE FOR 'FLOP L' HI"

PC,@#ADRDST
.+

EOT

;RE-ADDRESS MODULE
;SEND CHAR.

'8'

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11
007202
007204

PAGE 42

;SCOPE FOR 'FLOP L' LO

MES49

026401

104013

SEQ 0063

TTYIN

:Q'tttttttt'tt.ttt.ttittttttttttt'tit*ittfittttfittttttttttitt*ittttittt.tfit

;THIS SUBTEST OUTPUTS 0.00 VOLTS TO CH. '0°.

:ttttttitttitt*i.ttfi*tttt't't*Q'tttttttttttfitttt*tfitttttt‘tttttt'*'tttfittt

DATST3: gCOPE

104001

000003
012737
012737
004737
104012

030061
030060
007746

007776
010000

MOV
MOV
JSR
PRINT

#30061,DATA3
#30060,DATAS

PC.,DAOUT

;CH.

'0"

0 vOLTS

;SEND DATA

MES50
MESS52

026430
026514
104013

TTYIN

;ttfitttttttit**ttttttttttttttktttt*ttttlltfit.fitttfit*t'fiitttttttittttittttt

;THIS SUBTEST OUTPUTS 1.11 VOLTS TO CH.

'0°.

:ttt*tt*fitfittfi.**ttttttttittttt*ti*ttt**tttfitt**ttiittttfitfit'*tttttttfitttt

104001
000004

012737
012737
004737
104012
026430
026522
104013

DATST4: ECOPE
030461
030461
007746

007776
010000

MOV
MOV

JSR

#30461,DATA3
#30461 ,DATAS
PC.DAOUT

MES50

MES53

TTYIN

007206
007210
007212
007220
007226
007232
007234
007236
007240

;ttittti*fititttttfittt*tittt*tttttt'tttttttttt!tt*t*ifitttittttttiitttittttt

b o

b i

b cosd

3 §88888%fi%83299933338
NV
WN =00V NON NS WN=O 3 SER3R

GEEERFREERRR, 3

1789

20-JAN-78 09:11
MACY11 30A(1052)
M7384 D/A ADDRESSING TEST

;THIS SUBTEST OUTPUTS 2.22 VOLTS TO CH.

i
b i cd o
i
o
b

1831

'0°'.

:tttttifitttttt*tttfittttttt'itttfittttttittitt*'tttitttittititttittit**ttttt

DATSTS: gCOPE

104001

00000
012737
012737
004737
104012

026430
026530
104013

031061
031062
007746

007776
010000

MOV
MOV

JSR

MES50
MESS54

TTYIN

#31061,DATA3
#31062,DATAS
PC.DAOUT

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

M5
MACY11 30A(1052)
20-JAN-78 09:11 PAGE 43
M7384 D/A ADDRESSING TEST

1832
1833
1834

2222322323233 32233232230

SEQ 0064

232233233233 33333323 2332222322232

Rttt

:THIS SUBTEST OUTPUTS &4.44 VOLTS TO CH. '0'.

:tititittttittt'ttttt't"tttttttti*ttififittttttttttttttfittttttttttttfit'*tit

104001
000006

012737
012737
004737
104012

DATSTé: gCOPE
032061
032064
007746

MOV
MOV

007776
010000

JSR

#32061,DATA3
#32064 ,DATAS
PC.DAOUT

MES50
MES55

026430
026536
104013

TTYIN

2222233322333 33233323333 232323 3332333333333 323333232322322232 2

“THIS SUBTEST OUTPUTS 8.88 VOLTS TO CH. '0°'.

ittt

;ttttttttfittttitttttt*fittt'ttitttittt*tfittt*tttttttfit'ittt*titi*tittttttti

007366
007370
007372
007400
007406
007412
007414
007416
007420

104001
000007

012737
012737
004737
104012

DATST?: ;COPE
034061
034070
007746

007776
010000

MGV
MOV
JSR

026430
026544

#34061,DATA3
#34070,DATAS
PC.DAOUT

MES50
MES56

104013

TTYIN

;ttkttttttttttfiittittRii"t'ttttitt*itttfitt.*tttttititttiti'fi*tttt'tttttt'

;THIS SUBTEST OUTPUTS 0.00 VOLTS TO CH.

'1°

:tttttttititttttttittttttttttttiitit*tttttt**ittt*ttttttttttttt'ittt*ttttt

007422
007424
007426
007434
007442
007446
007450
007452
007454

DATS10: SCOPE
030062

030060
007746

007776
010000

MOV
MOV
JSR

MES51
MES52

TTYIN

#30062,DATA3
#30060,DATAS
PC.DAOUT

CZl
czl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

N
09:11

20-JAN-78
MACY11 30A(1052)
M7384 D/A ADDRESSING TEST

5
PAGE 44

SEQ 0065

;titltfitttt**ttititttt.tttt'ttfifiiittttttttttittitt'ttltttltt*tttt'ttitt'tfi

;THIS SUBTEST OUTPUTS 1.11 VOLTS TO CH *1°.

:tttitttttittttifittttfit*Qi'tfiifitkiitttttt*tttttttt*tttttttittt'ttttttttttt

0 ONOWVBWN=O

JSR

#30462 ,DATA3
#30461 ,DATAS
PC.DAOUT

MES51
MESS3

TTYIN

;tttttfit.ti.tttttitkflttfitittttltttfitttfiifittttfititttfi'tt'tlttt'*itttttt.'tt

;THIS SUBTEST OUTPUTS 2.22 VOLTS TO CH. *1°.

:*tittti*titttttttfititttittttfitttiittttttifittifit.ttttfititttttit*tit'fiitttt

DATS12: SCOPE

104001

000012
012737
012737
004737
104012

031062
031062
007746

MOV
MOV

007776
010000

JSR

#31062,DATA3
#31062,DATAS

PC.DAOUT

MES51
MES54

026462
026530
104013

TTYIN

;ttttfifittttQ.ttt.'!i.""'.ttttfifit'.tt'ttt'itttifitttttttfittfiltitlflfittttt

sTHIS SUBTEST OUTPUTS 4.44 VOLTS TO CH.

*1°.

;'tittitttttt.'!tltttti"t't.tfittttt'tfitttttfiittttt'ttt.t'tittt’ltttttttt'

0000
012737
012737
004737

DATS13: SCOPE
032062
032064
007746

MOV
MOV

007776
010000

JSR

MOV
MOV

007776
010000

#32062 ,DATA3
#32064 ,DATAS

PC.DAOUT

MES51

MESS55

b wh

) —d —d —

030462
030461
007746

TTYIN

)

012737
012737
004737

:ttt.t'ttifititttifit.i"t'tt'tt.t..'tQ.ttittt.t'.'iittfitt.ttt'ttlfittt"ti

—

DATS11: ?gOPE

;THIS SUBTEST OUTPUTS 8.88 VOLTS TO CH. "1°.

:ttttttfi*tttttt.tttttitttt"tttttittititit'tttttttttfiti'tttttttQtfi'tt.'tt!

—a -l

—d

O VOOV
OOV OVOO00

) — —d —d

383 3230883

i33333333353533

RIRAT2 3REEERE

1883

007456
007460
007462
007470
007476
007502
007504
007506
007510

DATS14:

012737
012737
004737
026544
104013

034062
034070
007746

007776
010000

SCOPE
T4

MOV
MOV

JSR
PRINT

MES51
MES56

TTYIN

#34062 ,DATA3
#34070,DATAS
PC.DAOUT

CZi
CzZi

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PTT

19-JAN-78 14:50

IRRREARRAARRRRRARRARAR

007666
007674
007702

104001
000015
005037
104012
026705
012737
012737
012737
012737
004737

007706
007714
007722
007730
007736
007742
007744

012737
012737
012737
012737
004737
000743
000000

007636
007640
007642
007646
007650
007652
007660

1967
1968

1969
1970
1971
1972
1973
1974
1975

KRR ARRERRRRR AN ARRRARNRRARRRRRRR
AR
AR RRRR AR RR SRR

"1' AND

DATS15: SCOPE

15
CLR
PRINT
MES61

032144

030063
030060
032471
002060
007746
034463
030065
030060
002060
007746

007776
010000
010002

DAT15A: MOV

MOV
MOV
MOV
JSR

010004

007776

MOV
MOV
MOV
MOV
JSR
BR

010000
010002
010004

HALT

DLYSWH

;ENABLE TRANSFMITTER DELAY

#30063 ,DATA3
#30060,DATA4
#32471 ,DATAS
#2060,DATA6

MODE

'3 O,

SCM.

#34463 ,DATA3
#30065,DATAS
#30060,DATAS
#2060,DATA6

JMODE

'3'

PC.DAOUT

PC,DAOUT

:SEND 'EOT' WITH 'LSB'
CH.

'0°'

:SEND 'EOT' WITH 'LSB’

DAT15A

222222233323 2332323223323

‘M7384 ADDRESS TEST COMPLETE

1957
1958
1959

1960
1961
1962
1963
1964
1965
1966

SEQ 0066

;'*ttQtifi.tfitfitifit'fiifi*'tt'iit't'tfitttitttiiifit.ititttittt"ttt'ttfi.ttfit't

3323333322220

Rttt

:tttt*tttt'fittttttt*'.t*ttttfiti*fiQitfit*ttttttt.tfifi.fitt'ttfittt'tt'titttttt'
;ttttttttt.tttfi*tfifitt*'tttttttttk**itttfitt'tfittt*ttfifit*Q*ttttt'littitt'ttt

JROUTINE TO OUTPUT A PRE-LOAD DATA VALUE TO THE D/A CONVERTER.

;ttttfiitttifit.tttttttt'tit'itttttttttttitifi*fitttfitfittttt'tt!titt'ttttitttt

007746
007754
007756
007764

122737
001403
112737
004737

007770
007772
007774

104007
007776
000207

007776

000000

010000
010002
010004

000000
000000
000000

000063

007776

000004
017234

010002

:
DAOUT

CMPB

BEQ
MOVB
JSR

#63 ,DATA3
+10

:OggPUTTING BOTH CH.'S?

PC,ADRDST

;ADDRESS THE MODULE

#EOT ,DATAS

LDPGMO
RTS

DATA3:

DATA4:

DATAS:
DATAG:

lolelele]

1954
1955
1956

PAGE 45

;'*R' IS TYPED TO RESTART THE TEST OR *“C' IS TYPED TO
JRETURN TO THE MONITOR.

1934

1953

:THIS SUBTEST OUTPUTS 0.00 VOLTS TO CH. '0' & 9.5 VOLTS TO CH.
sTHEN THIS SUBTEST RUNS IN A CONTINOUS LOOP UNTIL EITHER

1931
1932
1933

1944
1945
1946
1947
1948
1949
1950
1951
1952

09:11

M7384 D/A ADDRESSING TEST

1928
1929
1930

1935
1936
1937
1938
1939
1940
1941
1942
1943

20-JAN-78

MACY11 30A(1052)

:NO, TERMINATE AFTER '3' (CHAR.'S
;TRANSMIT

THE DATA

;LOW BYTE=MODE, HI BYTE=MSB
;HI BYTE=LSB
;LO BYTE="EOT' OR 'MSB' OF CH.

'2'

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

M7384 D/A ADDRESSING TEST

1976

1977

PAGE 46

SEQ 0067

4 i"....fi.t.t..t**fifi'i R 2222233222323 3323333333333 2323333232232222222222020 220t ddd

1978
1979
1980
1981
1982
1983
1984

1986
1987

.SBTTL M7384 D/A EXERCISER TEST
;THIS TEST ENABLES ANY VALUE THE USER TYPES IN ON THE TELEPRINTER TO BE
:OUTPUTTED FROM THE D/A. WHEN SELECTED, THE TEST REQUESTS FOR TWO THREE DIGIT VALUES
; (SEPARATED VIA COMMA'S) TO BE TYPED IN. THE FIRST VALUE IS THE ONLY ONE
:OUTPUTTED WHEN RUNNING ONLY ONE CHANNEL. IF BOTH CHANNELS ARE SELECTED
;THE FIRST VALUE WILL BE OUTPUTTED ON CHANNEL °'0' (X DAC) AND THE
:SECOND VALUE WILL BE OUTPUTTED ON CHANNEL '1' (Y DAC). THE CHANNELS
*ARE SELECTED BY DATA SWITCHES 'O & 1' AND MAY BE SET AND RESET
;AT ANYTIME. SETTING DATA SWITCH 'O" WILL SELECTED CHANNEL 'O'. SETTING
;DATA SWITCH '1' WILL SELECT CHANNEL 1 AND SETTING BOTH '0 & 1" WILL

1989

:tttttitit.tfittt*ttfititQtfi'Qttttt*tttt*tQtifl'fitt*tfiit*tittt'ttttt'itt*t*ttt

1985

1988

1990

1991
1992
1993
1994
1995
1996
1997

1998
1999
2000
2001

2002
2003
2004
2005
2006
2007
2008
2009
2010

%8}}

2013
2014
2015
2016

2017
2018
2019

*ENABLE BOTH CHANNELS.

010006
010010
010012
010014
010016
010020
010022

010024
010032
010034
010040

104012
026552
104026
104035

104012

026576
104013
022737
001371

000007

015330
007777

010070

012701
012702
112122
112122
112122
122721
001357
111103
112122
112122
112122
112722

010074
010100
010104
010110

012701
117711
142711
152711

007776
171246
000310
000060

010044
010046
010050
010052
010056
010060
010062
010064
010066

010114
010120
010124

110337

004737
000763

032214

M7384E: PRINT
MES57
ADDRESS
SETUP
TAG4F: PRINT
MES58
TTYIN

cMP
BNE

MOV
MOV
MovB
MOovB
mMovB
CMPB
BNE
MOovB
MOVB
MovB
MOVB
MOvB

000054

000004

010002
007746

TAG4G:

MOV
MOVB
BICB
BISB

mMovB
JSR
BR

;D/A EXERCISER TEST
;GET AND SETUP MODULE ADDRESS
;SET UP TEST PARAMETERS

#7,CHRCNT
TAG4F
#INBUF ,R1
#DATA3+1,R2

;JREQUEST THE D/A VALUES
;GET 'EM
JWERE '7' CHARACTERS INPUTTED?
;NO, ASK 'EM AGAIN

;SET UP TO SAVE THEM

(R1)+,(R2)+
(R1)+,(R2)+
(R1)+,(R2)+
#54,(R1)+
TAG4F
(R1) ,R3
(R1)+,(R2)+

;SAVE 'MSB' OF CH.

#EOT, (R2)+

;TERMINATE WITH 'EOT’

#DATA3 R1
aSWR, (R1)
#310, (R1)
#60, (R1)

;SET UP SAVE SWITCHES

(R1)+,(R2)+
(R1)+,(R2)+

R3,DATAS
PC,a#DAOUT
TAG4G

'0'

;SAVE 'LSB'’
;DIGIT BETTER BE THE COMMA
sNO, ILLEGAL INPUT
;SAVE THE 'MSB' OF Z2ND WORD

;CLR UNWANTED BITS
sMAKE NO. BCD

JRESTORE 'MSB' OF CH. 2 EACH TIME
;SEND THE DATA

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PTT

MACY11 30A(1052)

20-JAN-78

D
09:11

M7384 D/A EXERCISER TEST

2020
2021
2022

PAGE 47

SEQ 0068

.SBTTL M7385 (SERIAL) § M7388 (CHAR.) I1/0 ADDRESS TEST

IRRERRARRARRRAR AR RARRARERRERRAARRAARRRARRARRRRRARRARRRRRRRRCRRRRRRRRR
AR

;THIS TEST EXERCISES THE 'M7385' MODULE USING THE PDP=-11 VIA THE DL11

2023
2024

;AS THE DESTINATION INPUT AND THE SOURCE CUTPUT

:*t'itt'tltt'ttiitt*'tttitit‘ttQ'ttttttQtfittlifittQt'ttttflfii.ttti'fit'tQtt

2025

010126
010130

010132
010134
010140

010144
010150
010154
010160

M7385A: PRINT
MES3
ADDRESS
RO,STADR7
M385A1: MOVB
RO,STADRS
mMovB
RO,STADR9
MOVB
RO,STAD10
MOvB
CLR
LOPSWH
SETUP

104012

024127

104026
110037
110037
110037
110037

005037
104035

010637
010643
010723
010727
032222

;TEXT

'M7385 MODULE TEST'.

;GET MODULE ADDRESS

;SET UP TEST PARAMETERS.

:t*tttttfi*tt't.*ttt*ttttt'titt*fifittt*tfitttt*t*ttttti'ttfitttfitttt'ttttt

;THIS SUBTEST ADDRESSES THE

'SOURCE'' PORTION OF THE MODULE USING

;JMODE 'O' AND TESTS FOR THE FORCED RETURN OF THE 'EOT'.

:ttttittfifiitfitt*tttttfit'it't.tttt'ttt*tttittttti*fit*fifitfitttttt*'tfltttt

ST7385: NOP

010162
010164
010166
010174

000240
000240

112737

000060
017220

010200
010204
010206
010210
010212
010216

022712
001402

000004

004737

017231

104022

030603
005737
001106

NOP
MOVB
JSR

#60,SOH1
PC,ADRSRC

;SET UP MODE 'O
;ADDRESS THE MODULE

CMP
BEQ
MODERR

#EOT, (R2)
+6

;WAS IT RETURNED?
YES

TST

SIOSWH

;SERIAL INPUT

ERRS

032132

BNE

SD5

:"EOT" WASN'T FORCED OUT BY SOURCE
;YES, GO TO TEST 'S.

;ttttttitttt!ttttt**ttttttittttfit*lt.fiittfitttt*ttttttttttt!ttttitttttt

;THIS SUBTEST ADDRESSES THE SOURCE IN MODE

;'EOT" ISN'T FORCED.

'1' AND CHECKS THAT THE

;tttfittti.tt*fittttti*"t't*ttttttittttt*t*tttfittitttttttttiitittttttt'

010220
010224
010232
010236
010240
010242
010244

104001
112737

004737
005712
001402

104022

030724

000002
000061
017220

017231

SCOPE,?2

MOVB
JSR

#61,S0H1

;SET UP MODE

TST
BEQ
MODERR

(R2)
SD3

;WAS ANY DATA RETURNED?
2NO-0K

ERR8

PC,ADRSRC

'1°

;ADDRESS MODULE

;ILLEGAL DATA TRANSFER VIA SOURCE

2068
2069
2070
2071
2072
2073
2074
2075
2076
2077

20-JAN-78

MACY11 30A(1052)

09:11

6
PAGE 48

M7385 (SERIAL) & M7388 (CHAR.) I/0 ADDRESS TEST
;tQttitttttQti.'fifli.tt"tt'tfi.Q'ttlfi'tttttttt.tttttttittttttitt'ttttit'fitt

;AT THIS POINT THE SOURCE MODULE IS ADDRESSED WAITING FOR DATA.

;THIS SUBTEST ADDRESSES THE DESTINATION MODULE AND TRANSFERS DATA
;TO THE SOURCE AND CHECKS THAT IT IS RETURNED.

;t'ttt*.tti'ttttttttt*tttttt*ttt*it.titt*tt*fi*ittttt"'ttfit't'tfitttttttt.'

010246
010252
010256
010260
010262
010264
010266
010270
010272
010300
010302
010304
010306
010312
010314
010316
010320
010322
010326
010330
010332
010334
010340
010344
010346
010350
010352
010354
010356
010362

SD3:

000003
017234

SCOPE,3

PC,ADRDST

(R2)
.+10

;ADDRESS DESTINATION
;HAS ANY DATA RETURNED?
;NO, OK
;NO DATA HAS YET BEEN TRANSFERED

TAG1D+2

JEXIT ON ERROR

RANDOM
MOV
RECVRO

#. ,RETURN

JSR

TST
BEQ
MODERR

ERR8

010272

020774

LDPGMO

TRNBF
O

016234

1434

BNE
MODERR

ERR11

BR
TST
BEQ
MODERR

016220

016234
017670

TAG1D:

.+10

;WAS ANY DATA RECV'D?
;YES, VERIFY IT
;NO DATA WAS RECV'D BACK FROM SOURCE

TAG1D+2

JEXIT ON ERROR

;WAS PARITY ERROR DETECTED?
;NO, VERIFY DATA
;DATA PARITY ERROR

MOV
MOV
CMP
BEQ
MODERR

#RECBFO,R1
#TRNBFO,R2

;SET UP TO COMPARE RECV'D DATA
sAGAINST TRANSMITTED DATA

BR
CMP
BNE

TAG1D+2
#TRNEND ,R2
CMPI1A

ERR3

020372

RECBFO

.+6

ERR7

CMP1A:

;CREATE A RANDOM DATA BUFFER
sRE-SET SCOPE LOOP ADDR.
;ENABLE DL 0'S RECVR
s TRANSFER '500' WORDS TO SOURCE VIA DEST.

PARITY

(R1)+,(R2)+
.+10

;DATA MAT(CH?

;YES, CONTINUE
JRECEIVED DATA DOESN'T MATCH TRANSMITTED DATA

;DONE?

:NO

SEQ 0069

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

MACY11 30A(1052)
20-JAN-78 09:11 PAGE 49
M7385 (SERIAL) & M7388 (CHAR.) I1/0 ADDRESS TEST
:ttttttttttttttt'*t.t'ttt'.t.t....tt.*ttttlti.ttttttittttttttt.tttttttttt'

;AT THIS POINT DATA HAS BEEN TRANSFERED TO THE DESTINATION AND
THIS SUBTEST TRANSFERS AN 'EOT' FOLLOWED
sJRECEIVED BACK FROM THE SOURCE.

;BY DATA TO VERIFY THAT THE 'EOT' CLEARS THE SOURCE & DESTINATION.

=
NS W

D
d
D

OO N

D
D
D

Jir Qi

—d

NN
NN
NN

;'tfifi.tt*ittttifitt'fiittt'tttfit.ififittttitttittt.t.t*tttittttt'*ttiit'ttt'ti

010364
010370
010372
010374

104001
104006

000004

SD&:

,4
SCOPE
LDCHRO

; TRANSMIT

‘EOT'

104007

EOT
LDPGMO

010376
010400

010402
000402

010402
010403
010404

101
102
000
010406

.BYTE
.BYTE
.BYTE
.EVEN

;SEND A COUPLE OF DATA (HAR.'S

010406
010412
010414
010416
010420

005737
001003

TST

;WAS

MODERR

;'EOT' WASN'T RETURNED

010422
010426
010430
010432

022712
001402

000004

016224

TAG1E:

104022

030724

000004

sYES

'EOT' RECV'D?

TAGT1F +2

;EXIT ON ERROR

CMP

#EOT, (R2)

;WAS 'EOT' ONLY CHAR. RETURNED?

BEQ

TAG1F:

; TERMINATE

BNE

ERRS

030603
000405

;FOLLOW 'EOT' WITH SOME DATA

MODERR
ERRS8

.46

;YES
;ILLEGAL DATA TRANSFER

SEQ 0070

OTM

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PTT

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PTT

19-JAN-78 14:50

2134
2135
2136
2137
2138
2139
2140
2141
2142
2143

;'titttt"tfii'.i'ittt'

2164

2165
2166
2167
2168
2169
2170
217
2172
2173
2174
2175
2176
2177
2178
2179
2180

022ttt

TEST

;THIS SUBTEST ADDRESSES THE DESTINATION MODULE THEN TRANSMITTS
;'63" AND AN 'EOT'.

THE SOURCE MODULE

IS THEN ADDRESSED

;AND IT SHOULD TRANSMIT THESE CHARACTERS BACK TO THE PDP=11.
;1T SHOULE BE NOTED THAT WHEN THIS TEST IS RUN USING THE
;SERIAL INPUT OPTION, ONE HUNDRED AND TWENTY=EIGHT (128)
;CHARACTERS WILL BE RETURNED TO THE DL11 RECEIVER. THE FIRST
:"64"' CHARATERS ARE RECEIVED BACK FROM THE SERIAL INPUT
;DESTINATION, AND THE SECOND ‘'64' CHARACTERS ARE THE CHARACTERS
;THAT WERE ACUTALLY STORED IN THE

2145

2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163

SEQ 0071

1323233223333 323 3333233322322 232223222

;FIFO CHARACTER STORAGE

2144

2146
2147
2148
2149
2150

20-JAN-78 09:11 PAGE 50
MACY11 30A(1052)
M7385 (SERIAL) & M7388 (CHAR.) 1/0 ADDRESS TEST

'FIFO' OF

THE MODULE UNDER TEST.

:ttttlttttfi"tt*fifittfiitttti'ttti*i.tttt*ltfitttfittittttfittttttttit't'fitti*i

010434
010440
010444
010450
010452
010454
010462
010466
010472
010474

104001

012746
012746
000002
104011
112737

005037
004737

000004
017770
017234

017767

104007

017670

010476
010504
010510
010514

004737
005737
001775

010516

012701

010522
010524
010526
010530
010532
010534
010540
010542
010546
010550
010554
010556
010562
010570
010572

SD5:

000005
000000
010452

112737

122122

000060
017220
016224

017231

104022

105737

001103
105237
022737
001374
000751

LDPGMO

TAGIL:

MOvB
JSR
TST
BEQ

#0,
#s,

~(SP)
-{SP)

#EOT ,TRNBF0+77
TRNBF0+100

PC,ADRDST

032132

#60,SOH1

PC ,ADRSRC
REEEOT

#TRNBFO,R1
(R1)+,(R2)+

.+10

SIOSWH

SDé
TRNBF0+101
SD10

017771
016224

;ENABLE INTERRUPTS
;CREATE A RANDOM DATA BUFFER

;TERMINATE BUFFER AFTER '64' BYTES
s TERMINATE BUFFER

;ADDRESS DESTINATION MODULE
s TRANSMIT DATA

TRNBF
O

SDé6
R1,#TRNBF0+100
CMP1B

017770

017771
000002

TAG1H:

CMP1C:
CMP1B:

017670

001403
030526
000420
020127
001370
005737
001412

1%:

SCOPE,>5

MOV
MOV
RTI
RANDOM
MOvB
CLR
JSR

TRNBF0+101
#ZéRECEOT

CMP1C

;SET UP FOR MODE
;ADDRESS SOURCE
;JRECEIVED ALL DATA BA(K?
.0.

;NO, WAIT FOR 'EOT'

:TO TRANSMITTED DATA

;DATA MATCH?
JYES

JRECV'D DATA NOT EQUAL TO TRANS. DATA

SEXIT ON ERROR
;DONE?
2NO
;USING THE SERIAL I/0 INPUT?

sNO, CHECK ONLY '64' CHAR.'S
;YES, HAVE WE CHK'D '128"' CHAR.'S?
JYES, EXIT
JNO, CHK NEXT '64' CHAR.'S FROM ‘FIFO’
JRECEIVED ALL ??5?'FROM FIFO?
;NO, WAIT FOR
D0 1%,

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1T
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
219N
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220

20-JAN-78_

MACY11 30A(1052)

09:11

PAGE 51

M7385 (SERIAL) & M7388 (CHAR.) /0 ADDRESS TEST

SEQ 0072

2222222322223 2233323222 a0 2222332233232 23233322332223 22322322ttt
Rt Rttt l)

*THIS SUBTEST ADDRESSES THE 'SOURCE' USING THE WRONG MODULE ADDRESSES
JAND TESTS THAT THE SOURCE ISN'T ENABLED.

:t.!tfiltt!tit'tt.fifi'..t"ttt.Q.tilttttttitt'fiiQ'i.tt't'fitttt"tttttt't.tt.

010574

010600
010604
010610

010612
010616
010620

104001

012746
012746

005737
001062
004737

000006
000340
010612

SD6:

032132

1%:

SCOPE,
6

MOV

#3640,

TST
BNE

SIOSWH

E?Y

005154

JSR

#1s,

=(SP)
-(SP)

SD10

PC,a#ADRSIT

;INHIBIT INTERRUPTS
;USING SERIAL INPUT OPTION?

JYES, SKIP THE NEXT TEST.

;tt..tttt*tttttfititttt'iti.fittfi'*fiifittttii.itttifi.tttttti"tttt

;THIS SUBTEST CHECKS THAT 'ETX' WILL CLEAR THE SOURCE AND THAT
;WILL CLEAR THE DESTINATION

;itfifitfifiitttttttfltfittttt"tttfl*fittfit.tttit.tittttttttt'ttttttt

000007

010624
010630

010632
010634
010636
010637

SD7:

SCOPE,7
LDzGMO

;ADDRESS MODULE

o ®

TAG1K
DC1
61

JALERT SOURCE

BYTE
.BYTE

61
DC2

;MODE '1°
JALERT DESTINATION

.BYTE
.BYTE

DC3
ETX

;ENABLE MODULE
;CLR SOURCE

BR
.BYTE
STADR7: .BYTE
.BYTE

010640
010641
010642

STADR8:

010643

010644
010645

010646
010650

104006
000102

010652
010656
010660
010662
010664

122722
001403

010666
010670
010672
010674
010676

105722

104022

031257
000435

001403
104022

031171
000430

TAGIK:

000003

.BYTE

SOH

EgCHRO

CMPB
BEQ
MOCERR

;SEND A DATA CHAR.

#ETX,(R2)+
.+10

ERR16
BR

;WAS "ETX' RETURNED?
:YES
;'ETX" WASN'T RETURNED

TAGTW

JEXIT ON ERROR

TSTB

(R2)+

:WAS ANY OTHER DATA RECV'D?

TAGTW

;EXIT ON ERROR

BEQ
MODERR
ERR14
BR

.+10

;sNO-0K
JETX DIDN'T CLR SOURCE

'STX’

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

2227
2228
2229
2230

19-JAN-78 14:50

I 6
20-JAN-78 09:11
PAGE 52
MACY11 30A(1052)
M7385 (SERIAL) & M7388 (CHAR.) 1/0 ADDRESS TEST

sNOW CLR DESTINATION
010700
010702
010704
010706
010707
010710
010711

LDPGMO

104007

010706
000402
002

.BYTE
.BYTE
.BYTE
.BYTE

101

130

000

TAG1S

STX

;CLR DESTINATION

; TERMINATE

"4
' X

;SEND SOME

DATA

;NOW RE-ADDRESS SOURCE & DESTINATION AND EXAMINE DATA

010712
010714
010716
010720

TAG1S:

104005

RECVRO
.+4
BR

010722
010723
010724
010725
010726
010727
010730
010731

STADR9:

STAD10:

010732
010736
010740
010742
010744

005737
001003

010746
010752
010754
010756

105737
001402

016226

TAG1T:

104022
030440
000405

2%1

TST

SOH

'1°'

JMODE

BCS

;ENABLE MODULE

RECSTX
.+10

:WAS 'STX' RETURNED?
:YES

TAGIW

JEXIT ON ERROR

TSTB

RECBFO0+2

:WAS 'STX'

BNE

BEQ

MODERR

2%2

.46

ERR12

031073

;ALERT SOURCE

ERR1

104022

TAGI1T

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

MODERR

016236

;RE-ADDRESS SOURCE

LDPGMO

;ALERT DESTINATION

:'STX® WASN'T RECV'D FROM DEST.

sYES

;'STX' DIDN'T CLR DEST.

;JSEND AN ‘'EOT' TO CLR MODULE
010760
010762

104006

000004

TAGIW:

LDCHRO
EOT

THE ONLY DATA RECV'D

:CLR MODULE

SEQ 0073

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

IRRRRARRREARRA AR

RRAR AR

R RN ARRRRARRRRRRE

SEQ 0074

ARRRRRRRA AR

RRRRR

AR AR

:THIS SUBTEST REQUESTS THE OPERATOR TO RE-SET THE MODULE ADDRESS TO '17°.
:AND INSERT THE STRAP TO INHIBIT THE 'EOT' FROM BEING TRANSMITTED.
;IF DATA 'SW10' IS NOT SET THIS MANUAL INTERVENTION TEST IS SKIFPED.

:t't*i'fitttfititttttttttttt'l'ttttiit"tttt'tttfittt"ttititt.ttt..fi't.tittt

010764
010770
010776
011000
011002
011004
011006

104001

032777
001456

000030
002000

MES10

004737

017234

011046
011050
011052
011054
011055
011056

104007

020774
032134
017227
017277

TAG1Q:

TAGIR:

011054
000402
101

011060

004737
022712
001403

000060
017220

041101

017231

TAG1U:

TAG1Z:

104022

031041
000405
005737
001402
104022
031223

JWAIT FOR

#. ,RETURN
#77 ,MODADR
#77 ,SRCADR
#77 ,DSTADR
PC.ADRDST

"CR'

TO CONTINUE

JRE-SET SCOPE LOOP ADDRESS POINTER
;SET UP FOR ADDR. '17'
;ENABLE DL 0'S RECVR.
sADDRESS DEST. MODULE

;SEND SOME DATA

LDZGMO
.+

102
004

104005
112737

MOV
MOvVB
MOVB
mMovB
RECVRO
JSR

;SW10 SET?
;NO, TYPE TEST COMPLETE

;TEXT 'RE-SET MODULE ADDRESS TO *17°.

TTYIN

104013

112737
112737
104005

10
SCOPE.
#SW10,3SWR
BIT
BEQ
TAG1P
MES14

024460
024316

011010
000077
000077
000077

b -t

SD10:

012737
112737

slelelelele) o

170354

104012

011010
011016
011024
011032
011040
011042

016224

BR
.BYTE
Vg .
.BYTE
.EVEN
RECVRO
MovB
JSR

TAGTU
‘A
8
EOT

;SEND DATA
; TERMINATE
;CLR & RESET BUFFER

#60,SOH1

;SET UP FOR MODE 'O*
;ADDRESS THE SOURCE

CMP
BEQ
?gg%?R

#41101, (R2)
.+10

;WAS THE 'A & B' RETURNED?
:YES
;MODULE WASN'T ADDRESS W/ '17°

BR
TST
BEQ
MODERR
ERR15

SD11
RECEOT
.6

;EXIT ON ERROR
;WAS 'EOT' STRAPPED OUT?
Y83
;'EOT" WASN'T STRAPPED OUT

PC,ADRSRC

;tlttttttttt!ttt*ttitttt'tt'itt'tit'tfitttttt!tttfi'tttfit'ttt.tttt!!"ittt.t

;TEST

COMPLETE

~ORRRBERN

v
—

-l
—d —d —d

e
R

— o

b —d

D000

;ttttttttttttfitt*ttttttttttiittttfitfit!tttttfifitfiit'!t'tt.tttfitt*tiit'ttt!.'

2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283

J 6
20-JAN-78 09:11 PAGE 53
MACY11 30A(1052)
M7385 (SERIAL) & M7388 (CHAR.) 1/0 ADDRESS TEST

104001

104012

000011

SD11:

024527
104026

104012
024236

113700

000137

TAG1P:

032134
010134

11
SCOPE,

MES14A
Qg?zgss
MES7
MOvB
JMP

;TEXT "REMOVE STAP'
;SET UP NEW MODULE ADDRESS
MODADR ,RO
M385A1

;TEXT

'TEST COMPLETE'

JRESTART TEST

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC.P1

2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371

MACY11 30A(1052)

20-JAN-78_

09:11

PAGE 54

M7385 (SERIAL) & M7388 (CHAR.) 1/0 ADDRESS TEST
IERRRRRRRRRRAARRARANRRE

AR RRARARARARARRRRRARARA
AR AR
AARRARRRRRRRARRRR R AN

.SBTTL M7385 SERIAL 1/0 INTERFACE TEST

;THIS TEST IS USED TO TEST THAT THE SERIAL 1/0 INTERFACE MODULE IS FUNCTIONING

;CORRECTLY. TO RUN THIS TEST THE ‘L' JUMPER MUST BE INSERTED ON THE M7385
REMOVE THE CONTROL MODULE AND

;SO AS TO BE INITIALIZED ON POWER UP.
;TIE THE

'TBR' BUSES TOGETHER.

:tttitttttit.tttfittt*itttttltttt*.ttttt'fitttt!t.i*ttfi*tit'.'tttfifiQtfitttttfi

011150
011152
011154

;TEXT 'M7385 SERIAL INTERFACE TEST

: PRINT
M73851
MES66
SETUP

104012

027223
104035

:tttttttttfitltfitttttttttttt'ttfifitfittttitttittiititttt't'tttt*ittfiit.itiifi*

;THIS TEST SIMPLY ADDRESSES THE DESTINATION PORTION OF THE MODULE WHICH

;WILL ENABLE A CLOSED LOOP FOR DATA BEING SENT TO THE SOURCE.

;ttttttttttifittt.itttt*tittitt*fitit.ttttfltittitttttlfittittitttt*tttitttitt

011156
011160
011162
011164
011166
011167
011170
011171
011172
011174
011176
011200
011202

011204
011206
011214
011216
011220
011222
011224
011226
011230
011232
011234
011240
011242
011244
011246
011250

TEST1:

104011

104007
011166
000402
022
060

IADR10:

TSTI1A:

005712
001403
104022

104005

011206

020774

TST

(R2)

.+10

TEST?2

RANDOM

MOV

RECVRO

#. .,RETURN

LDPGMO

TRNBF
0

000412
012701

;MODIFIED BY USER
JENABLE DESTINATION
; TERMINATE

BEQ
MODERR

TST
BNE
MODERR

000420
00573;

;ALERT THE DESTINATION

.BYTE
.BYTE
.BYTE
.BYTE
.EVEN

ERR8

030724
000434
104011

LDPGMO

017
000

012737

;CREATE A RANDOM DATA BUFFER.
sADDRESS DESTINATION

RANDOM

ERR11

016220

BR
TST
BEQ
MODERR

ERR7

017670

BR
MOV

:HSS SNY DATA RETURNED?
;NO,

;NO DATA HAS YET BEEN TRANSFERED
;EXIT ON ERROR

;CREATE A RANDOM DATA BUFFER
sRE-SET SCOPE LOOP ADDR.
;ENABLE DL 0'S RECVR
;TRANSFER '500' WORDS TO SOURCE VIA DEST.

(R2)
.+10

;WAS ANY DATA RECV'D?
;YES, VERIFY IT
:NO DATA WAS RECV'D BACK FROM SOURCE

TEST2

;EXIT ON ERROR
;WAS PARITY ERROR DETECTED?
;NO, VERIFY DATA
;DATA PARITY ERROR

PARITY

.+10

TEST?2
#TRNBFO,R1

JAGAINST TRANSMITTED DATA

SEQ 0075

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
2372
2373
2374
2375
2376
2377
2378

19-JAN-78 14:50

011254
011256
011260
011262
011264
011266
011272

022122
001403
104022
030526
000403
022701
001370

020372

MACYi1 30A(1052)

20-JAN-78

09:11

PAGE 55

M7385 SERIAL 1/0 INTERFACE TEST
(MPT1A: CMP
BEQ
MODERR
ERR3
BR
CMP
BNE

(R1)+,(R2)+
.+10
TEST2
ATRNEND,R1
(MPTIA

;DATA MATCH?
:YES, CONTINUE
*RECEIVED DATA DOESN'T MATCH TRANSMITTED DATA
:DONE?
:NO

2380

"t.!ttttt*t.t*ttQtt*.ttttt'tfifitfitt*tttttfi*tttt'tfiitt*t*fitfiiti*itttt'ttfitt'

2384
2385

:Qt!li*tfitttt**ittfifititiittt*t*'*ttttt!t.**itfitttttt*tfifitttt*tti'**ittttfifi

2381
2382
2383

AT THIS POINT DATA HAS BEEN TRANSFERED TO THE DESTINATION AND
*RECEIVED BACK FROM THE SOURCE. THIS SUBTEST TRANSFERS AN 'EOT' FOLLOWED
“BY DATA TO VERIFY THAT THE 'EOT' CLEARS THE SOURCE & DESTINATION.

2386
2387
2388
2389
2390
2391
2392

011274
011276
011300
011302
011304
011306
011310

104001
000002
104006
000004
104007
011312
000402

239%

011312

101

2395
239%
2307

TEST2:

011313
011314

102
000
011316

2399
2400
2401
2402
2603

011316
011322
011324
011326
011330

005737
001003
104022
030603
000405

01622

2405

011332

022712

000004

2407

011340

104022

2406

2,08

011336

011362

001402

030724

2414

2417
2418

BYTE

; TRANSMIT 'EOT"
:FOLLOW 'EOT' WITH SOME DATA

:SEND A COUPLE OF DATA CHAR.'S

BYTE
BYTE
-EVEN

'B
0

TST

RECEOT
.+10

:WAS 'EOT' RECV'D?
:YES
'EOT* WASN'T RETURNED

1ST2B+2

;EXIT ON ERROR

#EOT,(R2)

:WAS 'EOT' ONLY CHAR. RETURNED?

BNE
MODERR
ERRS
BR

(MP

MODERR

.+6

ERRS

; TERMINATE

:YES

ILLEGAL DATA TRANSFER

:fi*t*itt**ifi*i*ttttfittt'ttttttltfifit*ttti.fittfitittt*t*it*ttittttQtiiiitifitt
:TEST COMPLETE

2412

2415
2416

TST2A

BEQ

TST2B:

2410
2411

2413

TST2A:

SCOPE
2
LDCHRO
EOT
LDPGMO
-+
BR

:ttttttttfii*ti*tttti*ifit*ttttttttttttitttttttittfittttttttttttttt'.tti'ttt'

011344
011346
011350
011352
011354

104001

TEST3:

000003
104012

024236
000137

001376

SCOPE
3
PRINT
MES7
JMP

MONITR

sTEXT "TEST COMPLETE
JRETURN TO MONITOR

SEQ 0076

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

M 6
20-JAN-78 09:11 PAGE 56
MACY11 30A(1052)
M7385 SERIAL 1/0 INTERFACE TEST

SEQ 0077

;tttfittttttttt*fittttt't'tfitttitttt*tt‘fiittitittQttfitfitttitttttttt*titt*tti

.SBTTL M7385 TTL 1/0 TCST

IV PSS
oo

PP
p—

olelelelele]

i
b cn
b

;ittttt*ttttt'ttttfitfitttttt**tfi*itttttttt*tlttittiittitiittttttttfi't."ttt

M7385T: PRINT

104012

MES62

027037

104026
110037
110037
104035

ADDRESS
RO, TTLAD1
mMovBe
RO, TTLADZ
mMovB
SETUP

011441
011445

STEXT

'TTL

I/0 TEST'

;GET THE MODULE ADDRESS
;SET UP MODULE ADDRESS

:tttt*tttifitttttttittit't'tttitt**titfi*ttttt*.tttt*ttttt*tttfitttfi.t'ttittt

sTHIS TEST VERIFIES THAT THE TTL 1/0 SECTION OF THE SERIAL I/0 MODULE
IT REQUIRES FOR A TELEPRINTER TO BE CABLED TO
;1S FUNCTIONING CORRECTLY.

;THE MATON LOCK OF THE SERIAL I1/0 (THIS COULD BE THE CONSOLE PRINTER ONCE

;THE TEST IS SELECTED). ALL CHARACTERS THEN INPUTTED WILL BE RECEIVED BY
;THE SERIAL SOURCE AND WRAPPED AROUND (BY THE CONTROL MODULE OR
;COMPUTER IF DF11 IS USED) TO THE DESTINATION. HERE THE CHARACTER WILL BE
sTRANSMITTED BACK TO THE TELEPRINTER AND PRINTED.

EFFECTIVELY, AS FAR AS

sTHE USER IS CONCERNED, THIS TEST ACTS LIKE A KEYBOARD ECHO TEST.

:'ttt*tttt*tfit'ttttttttQtttit*t*fil.*fitttfitt..ittttttttttt'tt!tttttttt*ttifi

011400
011404
011410

011412
011414
011420
011424
011426
011432
011434
011436

011440
011441
011442

012746
012746
000002
104005
012746
012746
000002
005237
104025
011440
000404
021

000340
011412
000000

TTLTST:

MOV

1$:

RECVRO

2%:

INC

011426
032146

#3460,

=(SP)

#0,
#2s,

-(SP)
-(SP)

-(SP)

DSTSWH

TTLAD1:

;ADDRESS MODIFIED BY USER
sMODE 1, WAIT FOR DATA

.BYTE

011443

;ALERT DEST.
sADDRESS MODIFIED BY USER

TTLAD2: .BYTE

011445

011446
011447

011456
011460
011464
011466
011472
011474
011476
011502
011504

;ENABLE DL11 RECVR.
;ENABLE INTERRUPTS

;ADDRESS THE MODULE

011444

011450
011454

s INHIBIT INTERRUPTS

032146

TAG7A:

CLR

(Rg)

SI0SWH

032132

011474
000004

DSTSWH

TAG7B:

LDCHRO

TAG7B+2
(R2) ,TAG7B

#EOT, (R2)+
TTLTIST
TAG7A

;DATA READY?

:NO

sUSING SERIAL 1/0
;YES, TEST ONLY FOR EOT

JNO, SET UP TO TRANSMIT (HAR.

;CHAR, = "EOT'?

sYES, RE-ADDRESS MODULE

;NO, WAIT FOR NEXT CHAR.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

2475

MACY11 30A(1052)

M7385 TTL I/0 TEST
2

2476

20-JAN-78

09:11

2222222223333 233233322 a8

PAGE 57

SEQ 0078

2222223233333 3333332232322 2332 23322322

.SBTTL M7386 KEYBOARD/DISPLAY MODULE ADDRESS TEST

2477

2332222t Rl

(VL
IV LV, LV, AV, V)

NN
SO
RO SNO

b
b

o
b
b
D

ad cd

b cach

(elelolelelele]

:'ttiitt*t.tttt'l*!t*t'titttttttt*ttfiifiitttttttfitt'tfittt'tttttttttfi'ttt

104012

025726

104026
110037
110037
104035

005037

011623
011625
032144

M7386A: FiINT
¥eS39
Auu N ESS
mMovB
RO,KEYAD1
KEYTO:

MovB

RO.KEYAD?2

CLR

DLYSWH

SETUP

;GET THE MODULE ADDRESS
;SET IT UP

sSET UP TEST PARAMETERS
;ENABLE TRANSMITTER DELAY

;!tttitttttt.tfitttttttt'tiitttfitttttfifittt'itti'ittittti'fitttttttti'tttiti

:THIS SUBTEST ADDRESSES THE KEYBOARD MODULE AND CHECKS FOR THE
sAUTOMATIC RETURN OF AN 'EOT'.

:ttt.titfittttfitttt*tttttttt.tfiififitt'titttttiittttfitt*t*'ttttitttiittttttt

KEYT1:

011532
011534
011536
011542
011546
011550
011552

NOP

JSR
CMP
BEQ
EggERR

017220
000004

PC,ADRSRC
#EOT, (R2)
KEYT?

;ADDRESS THE MODULE
:WAS 'EOT' RETURNED?
JYES
:MODULE DIDN'T RETURN 'EOT"'

IRREARRRRAARARRRARARRRAE
AR AR
RN RRRR RN CRRERRRRRRRR AR
RN

;THIS SUBTEST ADDRESSES BOTH THE KEYBOARD & THE DISPLAY.

THE DATA

;FROM THE KEYBOARD IS DISPLAYED AND ALSO PRINTED OUT ON THF TELETYPE.

;THE TELETYPE OUTPUT CAN BE ELIMINATED BY SETTING DATA SW1>.

:tttt*ttt!ifitttttttttttliQ'tt'ttttQ.tlfitt'tttfittttfittttitiiittt'ttttt'tt

KEYT2:

011554
011556
011560
011562
011566
011572
011574
011600
011604
011606
011610
011614
011616
011620

NODLAY
MOV

#3460,

=(SP)

1$:

MOV
E?Y

#0,
#2%,

=(SP)
=(SP)

2%:

RECVRO

000340
011574
000000
011606

032146

SCOPE

S?Y

INC

SOgRCE

DSTSWH

-{SP)

sINHIBIT TRANSMITTER DELAY
;INHIBIT INTERRUPTS
;ENABLE

INTERRUPTS

;ENABLE DL11 RECEIVER
;ADDRESS THE MODULE

BR
.BYTE
KEYAD1: .BYTE
.BYTE
KEYADZ2: .BYTE

.BYTE
BYIE

EVEN

005037
105712

032146

TAG6A:

(LR

TSTB

TAG6A
DC1

sALERT SOURCE

DC2

;ALERT DESTINATION

DC(3
©

;ENABLE MODULE.

DSTSWH

(R2)

;DATA READY?

€z

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
011636
011640
011644
011646

011652
011654
011656
011662
011664
011666
011674
011676
011702
011706
011710
011714
011716
011722
011724

001776
005737
001004
111237

8 7
MACY11 30A(1052)
20-JAN-78 09:11 PAGE 58
M7386 KEYBOARD/DISPLAY MODULE ADDRESS TEST

032132

011654
TAG6B:

000004

020000
015434
000003

TAG6C:

000002

USING THE CONTROL MODULE?

0
CMPB

#EOT, (R2)

REC. "ROT°?
;YES, RE-ADDRESS MODULE

LDCHRO

BIT
BNE
JSR
CMPB
BEQ

CMPB
BNE
151
BEQ
PRINT
MES73A
TTYIN
BR

032132

011726
011730
011732

;NO, WAIT

SIOSWH
TAG6B+2
(R2) ,TAG6B

BEQ
MOVB

167456

.-2

BEQ
TST
BNE
MOVB

KEYT?*6
(R2) .R1

#SW153,3SWR
TAG6C
PC,PDMSET
#ETX, (R2)

KEYTS3

#STX, (R2)+
TAGGA
SIOSWH
TAG6A

-3 4

sNO,SET UP TO SEND CHAR TO DISPLAY

;GET DATA
s INHIBIT PRINTOUT?
;YES

sNO,

TYPE IT

JREC. AN 'EXT'?
;YES, RUN DISPLAY TEST
JREC. AN 'STX'?

;NO, RE-ADDRESS MODULE
:YES, USING SERIAL INPUT?
:NO, *STX' IS LEGAL

sTEXT "RE-INITIALIZE PDM70."°
KEYT2+6

;WAIT FOR SETUP

;RESTART TEST

;tttttfi*tilttttttttttttit*ttttt*ttt*tittt'.tfittfitti*tti.t'ttttttttttt't't

;THIS SUBTEST IS ENTERED UPON RECEIPT OF AN 'ETX' FROM THE KEYBOARD

THIS TEST THEN ADDRESSES THE DISPLAY
;IN THE PREVIOUS SUBTEST.
JAND DISPLAYS THE ENTIRE DISPLAY CHARACTER SET ONE CHARACTER
;AT A TIME.
EACH CHARACTER IS DISPLAYED ACROSS THE ENTIRE SCREEN
;FOR APPROIMATLY ONE SECOND.

;tttfit*fitfitfi*tt*t.tttt**tttttt*tittttfittt*ttt'fittfiit'ttttttittfi'ttttttitt

KEYT3:

104001

000003

104012
027440
104013
104036
012737
012737

§COPE
PRINT

sTEXT 'DISPLAY TEST''

MES73

011750
000040

020774
012004

017234
000040

TTYIN
NODLAY

:
TAG6E

#. ,RETURN

#40,TAGED+2
PC,ADRDST

#32. .R2

;WAIT FOR 'CR'
sINHIBIT TRANSMITTER DELAY
;RESET SCOPE LOOP POINTER
;START OFF WITH DISPLAYING SPACES.
;ENABLE DL11 RECVR.
;ADDRESS THE DESTINATION
;DISPLAY '32' CHAR./LINE
;SEND 'LF' TO CLEAR SCREEN

TAG6D:

R2
TAG6D

:MODIFIED TO CHAR. BEING DISPLAYED.
;DISPLAYED 32 CHAR.'S?
NgS LOAD NEXT CHAR.

;CLEAR DESTINATION
:DELAY SO USER CAN VIEW SCREEN

012004
000140

012004

TAG6D+2
#140,TAGED+2
TAG6E

;SETUP NEXT CHAR.
:géSPLAYED ALL CHAR'S.?

SEQ 0079

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
<596
2597

c
09:11

7
PAGE 59

M7386 KEYBOARD/DISPLAY MODULE ADDRESS TEST
2

2223222232323 3233323200 2223232233333 3233323230232

*TEST COMPLETE

SEQ 0080
22322

R0ttt

il S

:t*tttttt.tifitfittitifi.tttt't'tt*t'fit.tttttttttttttiQtttttttt'.'fit'ti*'t!t

012036
012040
012042
012044
012046

KEYT4:

104001

SCOPE

104012

MES7
BR

024236
000626

KEYTO

sTEXT "'TEST COMPLETE''

L
e

;SBTTL M7388 CHARACTER I/0 MODULE ADDRESS (IN-HOUSE) TEST
;THIS TEST USES THE SAME TEST AS THE SERIAL I/0 THE
;TEST HEADER IS TYPED HERE AND THEN THE PROGRAM GOES TO THE
;SERIAL 1/0 TESTS TO EXERCISE THE MODULE
sTHIS IS DESIGNATED AS AN IN-HOUSE TEST SINCE A SPECIAL
;WRAP-A-ROUND MODULE IS REQUIRED TO RUN THE TEST.

2598
2599
2600

2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617

20-JAN-78

MACY11 30A(1052)

;ttttfit'titttttttfitfi*ttttttttitfittfi*fittttittfl*it*tt'fittfittfitttttt.tfittt

012050
012052
012054
012056

M7388A: PRINT

104012

026161
027323
000137

ME S44
MES69
JMP

010132

ANM7385A+4

;TEXT 'CHAR. 1/0 ADDRESS TEST'
sTEXT ""(IN-HOUSE)"'

IRERRRRARARAARARKARAR
AR ERERARAARARARRARRARARARRARARKRARRRRAARARARRRRAR

.SBTTL M7388F CHARACTER 1/0 MODULE ADDRESS (FIELD) TEST

;THIS TEST REQUIRES FOR THE FIELD SERVICE TESTER BE CONNECTED TO THE
THE PROGRAM THEN SENDS
s INPUT /OUTPUT OF THE CHARACTER I/0 MODULE.
sJSPECIFIC DATA AND THEN REQUESTS THE USER TO VERIFY (WITH HIS TESTER) THIS
;DATA.

THE PROGRAM ALSO REQUESTS THE USER TO INPUT DATA WHICH WILL

;IN TURN BE PRINTER ON THE CONSOLE DEVICE.

:t'*ttit*itttttt*tttttt'ttt"fi'*tttifittitttti"tttttttlti*ttfifitltfittt'

M7388F: PRINT

104012
026161

012070

MES44
MES70
ADDRESS
SETUP

027337
104026
104035

;TEXT "CHARACTER I/0 ADDRESS TEST®
STEXT '(FIELD)'.
;GET THE MODULE ADDRESS
;SET UP TEST PARAMETERS

:tt**tttt*ttttttttttfi*fi.tt*tfittttttttfitit**ttitttttitttt**tttttttittt*

;THIS SUBTEST ADDRESSES THE SOURCE IN MODE 'O' AND CHECKS FOR A

;FORCED

‘EOT"'.

:tttttttttfitttt*t*tt*tfit*ttttttfiiitfi*tttfifitfi*fiti'tt*tt*ttttit't'tifittt

CHART1: NOP

000060
017220
000004
030603

017231

NOP

MOovB
JSR
CMP
BEQ

MODERR
ERRS

#60,SOH1
PC ,ADRSRC
#EOT, (R2)
CHART?

;SET UP MODE '0'
;ADDRESS THE SOURCE
;WAS 'EOT' RETURNED?
JYES

;"EOT" WASN'T FORCED BY SOURCE

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052) 20-JAN-78 09:11 PAGE 60
M7388F CHARACTER I/0 MODULE ADDRESS (FIELD) TEST

2639
2640
2641

SEQ 0081

:tttt'ttt.ttttfifit.fl.tfi.tti'ttt"fit'tttt't'i.'.tfititttt.'tt..ttttt"."

;THIS SUBTEST ADDRESSES THE SOURCE IN MODE '1' AND CHECKS THAT THE
;'EOT" ISN'T FORCED. IT THEN REQUESTS THE USER TO INPUT DATA TO THE MODULE.
;THE INPUTTED DATA WILL BE ECHOED TO THE PRINTER UNTIL AND "EOT' IS RECEIVED.
;THIS WILL ENABLE THE PROGRAM TO CONTINUE ON TO THE NEXT SUBTEST.
:tttttttit.ifitfittttttitittttttttitttiitttfit'fit'ttfitifi*t'ttfltfitttfittti'

012124
012126
012130
012136
012142
012144
012146
012150
012152
012154
012160
012162
012164
012166
012170
012172
012174
012200
012204

CHARTZ: SCOPE

104001

000002
112737
004737
005712
001403

000061
017220

017231

MOVB
JSR

TST
BEQ
MODERR

104022

030724
000405
004737
104012

ERRS8

021626

JSR

027520

027350
105712
001776
111201
004737
122722
001370

TAG8BA:

015434
000004

MES74
MES71
TSTB
BEQ
MOVB

JSR
CMPB

BNE

#61,SOH1
PC ,ADRSRC
(R2)

;SET UP FOR MODE '1°'
;ADDRESS THE SOURCE
;WAS ANY DATA RETURNED?

TAG8A

JPRINT THE RECEIVED DATA

.+10

PC,TTYENB

sNO-0K
;ILLEGAL DATA TRANSFER
;ENABLE

INTERRUPTS

sTEXT "ECHO TEST'"'
(RS)

(R2) ,R1

PC,PDMSET
#EOT, (R2) +
TAG8A

;TEXT'' INPUT DATA, TERMINATE TEST W/EOT''
;WAIT FOR DATA

JPRINT IT
*WAS 'EOT' RECEIVED?

IRRRRERERKARARARRARARERERERAARARRARRERNAARARARARRRRARARRRRARAARRRRRRRRAR

:THIS IS A 'FIFO' STORAGE TEST.

IT REQUESTS THE USER TO INPUT DATA (UP TO 63)

;CHARACTERS) AND AN 'EOT'. AFTER THE USER HAS INPUTTED ALL HIS DATA, TYPE ‘CR'.
;THE TEST THEN ADDRESSES THE MODULE IN MODE 'O' AND THEN PRINTS THE RECEIVED
;DATA WHICH WAS STORED IN THE SOURCE °FIFO'.
:ttttit*t*ttt*t*tttfitt*ttt*tttfi*t*fi*fi*fittfiifititttfitt**ttttttttttttlttt

012206
012210
012212
012214
012216
012220
012224
012230
012232
012234
012240
012246
012252

CHART3: gCOPE

104001

000003
104012
027534
027350
005237
004737
00000
000776
005037
112737

004737

104037

032150
021626

MES75
MES71
INC
JSR

032150
000060
017220

CLR
MOvVB
JSR

WAIT
BR

017231

PRTRBF

SENDSW

PC,TTYENB

SENDSW

#60,SOH1

PC,ADRSRC

;TEXT ''STORAGE TEST'
STEXT'' INPUT DATA & TERMINATE W/EOT"'

SET UP TO RETURN ON TTY INTERRUPT
;ENABLE

INTERRUPTS

;WAIT FOR RECVR. INTERRUPTS
sTTY INTERRUPTS RETURN .+2
;SET UP FOR MODE

'O'

;ADDRESS THE MODULE

sPRINT CONTENTS OF THE RECVR. BUFFER

2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703

SEQ 0082

IERRRRRRARRRRRAAARARAR
AR AARAARARA AR AR
RRRAARRAARRRAAARARRRARARRRRRR

;THIS SUBTEST LOAD '16','4"' CHARACTER DATA PATTERNS (TOTAL OF 64 CHAR.'S)
;INTO THE DESTINATION 'FIFO'.
THE USER IS THEN REQUESTED TO STROBE OUT
THEM.
VERIFY
AND
CHARACTERS
'64'
sTHESE
;THE '4' CHARACTER PATTERN IS: ALL 1°'S, ALL 0'S, ALTERNATE '"180°'S’'‘, AND

JREVERSED ALTERNATE '"180°'S''.

:tttfitifitfittfittt*ttfifit'ttti'tfi*tttttttt'ttttttttttfi'ttttt'tt'tt'tifitt*

012254
012256

104001
000004

012701
012702
112722

112722
112722
112722
005301

2704

2705

CHART4: ECOPE

2707

2708
2709

MOV
MOV
TAG88A: MOVB
MOvB
MOvB

000016
017670
000377
000200
000125
000252

000004
012320
017234

2706

2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728

E 7
MACY11 30A(1052)
20-JAN-78 09:11 PAGE 61
M7388F CHARACTER 1/0 MODULE ADDRESS (FIELD) TEST

mMovB

020774

DEC
BNE
MOV
MOV
JSR
LDPGMO

#16 ,R1
#TRNBFO ,R2
#377,(R2)+
#200, (R2)+
#125,(R2)+

;SET UP THE CHARACTER PATTERN
;SAVE IT IN TRANSMITTER BUFFER
JALL 1'S
;ALL 0°'S

#252,(R2) +

R1
TAG88A
#EOT, (R2)
#. ,RETURN
PC.ADRDST

sADDRESS DESTINATION
sTRANSMIT THE '64°' CHARACTERS

TRNBF
0
PRINT

MES72
TTYIN

104013

sALTERNATE “"180°'S"’
;REVERSED ALTERNATE ‘"180'S"’
;LOAD '16' PATTERN'S?
:NO
s TERMINATE W/EOT
JRESET SCOPE LOOP POINTER

sTEXT "EXAMINE
;WAIT FOR 'CR'

'64' CHARACTERS

:tttttti***ittttfiitttt'.tttitfifitt.fitt*tQfit*ttti'*.tt*t'tii*tttt*'t*tQt

;THIS SUBTEST ADDRESSES THE

'SOURCE' USING ALL THE WRONG MODULE

;ADDRESSES AND CHECKS THAT THE SOURCE ISN'T ENABLED.

R R
e
L e

012344
012346
012350

CHARTS: gCOPE

104001

000005
004737

005154

JSR
2222233223222

*TEST COMPLETE

PC,ADRSIT
3333232323322

;DO IT
233332333333

33223222222

Rttt

;tt*tt*t*tttttfitfit*ttitttittttttti!titttt*t*ttttlfitifittttittfitttt*tttt

012354
012356
012360
012362
012364

104001

000006
104012
024236
000137

CHART6: ZCOPE
PRINT

012072

MES7

JMP

.SBTTL M7377A

M7388F +10

;TEXT °*TEST COMPLETE''

REMOTE SERIAL 1/0 TEST

TMTM

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

MACY11 30A(1052)

M7377A

2735
2736
2737
2738

20-JAN-78

09:11

PAGE 62

REMOTE SERIAL I1/0 TEST

R 2222822222333
2222 2222 a0 2222232323333 333333233322323322332
2222
Rttt

*M7377A REMOTE SERIAL 1/0 TEST

:t.ttt'fitlt!'t'*ifi.t"t'tt".t't"tttttttttt.tflttttttttttt'fitt'tt'.t!.t*'iQ

2739
2740
:t'tttQtttfiit'ttfit.tfit*tt't'ittfi.tt.tfi.ttttttttitttttttt.ttfi'fittt.ttt'tt

;THIS TEST EXERCISES THE 'M7377' MODULE USING THE PDP=11 VIA THE DL11
;AS THE DESTINATION INPUT AND THE SOURCE OUTPUT

;i'tfi.tt'fit*'ttfittlttti""i*tfittfitit.tltfi'itttttttQ'tttt'tttt.titttfi'tt

M7377A: nggs

012370
012372
012374
012376
012402
012406
012412
012416
012422
012426
012432
012436
012442
012444

sTEXT 'M7377A REMOTE SERIAL 1/0 TEST''.

ADDRESS

M73778B: MOVB

013103
013125
013165
013170
013207
013467
013531
013577
013617

M377A1:

032222

MOVB
MOVB
MOvB
MovB
MovB
MOvB
MOVB
mMOovB

SETUP
CLR

RO,STDR?7

;GET MODULE ADDRESS OF MODULE UNDER TEST

RO,STDR8
RO,STDR9Y
RO,STDR10
RO,STDR11
RO,STDR12

RO,STDR13

RO,STDR14
RO,STDR15
LOPSWH

;tfi'ttttttt.ttti'fi*ttt*t't'tt!fiQ*tfllttt**"*fitttttttt*fittttttttitttt"

;THIS SUBTEST ADDRESSES THE °'SOURCE'' PORTION OF THE MODULE USING
;MODE '2' AND TESTS FOR THE FORCED RETURN OF THE ‘'EOT'.

:iitttttttfi'ttttttfiiikfl'tttQttflfitttfifitfififi*fitttttttfittt.ttt.tt't’ttt'tfi

012450
012454
012462
012466
012470
012474
012476
012500

104001
112737

004737
104004

022712
001402

104022
030603

000001
000062
017220

000004

017231

ST7377: SCOPE,1
MOvVB
#62,S0H1
JSR
PC,ADRSRC
DELAY

CMP
BEQ
?gggRR

#EOT, (R2)
SD4A

;SET UP MODE '2'
;ADDRESS THE MODULE
;JWAS IT RETURNED?
i YES
;'EOT" WASN'T FORCED OUT BY SOURCE

SEQ 0083

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC.P11
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787

012502

104001

MACY11 30A(1052)

000002

20-JAN-78

G
09:11

7
PAGE 63

M7377A

REMOTE SERIAL I1/0 TEST

SD4A:

SCOPE.?2

SEQ 0084

;"tt.Q.t'.t'*tt'.'.fit"t'tt'tfi'."i..PttttiitttttQtt'ti"ttttttt't'fitt"t

;FIFO CHARACTER STORAGE

TEST

;THIS SUBTEST ADDRESSES THE DESTINATION MODULE THEN TRANSMITTS

;"63" AND AN "EOT'.

THE SOURCE MODULE IS THEN ADDRESSED

JAND IT SHOULD TRANSMIT THESE CHARACTERS BACK TO THE PDP=11.
;1T SHOULE BE NOTED THAT WHEN THIS TEST IS RUN USING THE
;SERIAL INPUT OPTION, ONE HUNDRED AND TWENTY=EIGHT (128)

THE FIRST
;CHARACTERS WILL BE RETURNED TO THE DL11 RECEIVER.
INPUT
SERIAL
THE
FROM
BACK
RECEIVED
ARE
;'64' CHARATERS
;DESTINATION, AND THE SECOND ‘64' CHARACTERS ARE THE CHARACTERS

2788
2789
2790
2791
2792

;THAT WERE ACTUALLY STORED IN THE FIFO OF

THE MODULE UNDER TESR.

:Qtt..tt'fi'.ttttttltttfitti'fitifittttfifi'tttttitfittt*t*fitfitttt'it.ttittttt'tt

2793

2794
2795
2796
2797
2798
2799
2800
2801
2802
2803

JNOTE:

THE CONTENTS OF

THE RECEIVER BUFFER ARE:

;LOCATIONS 1-62 (1-75 BASE 8) ARE XMITTD/RCVD CHARACTERS.
XMITTED/RCVD EOT (76 BASE 8)

:L0C 63:
;LOC 64:
;LOC 65:

012506
012512
012516
012520
012522
012530
012534

012540
012542
012544
012552
012554
012556
012560
012564
012570

012572
012576
012600
012602
012604
012606
012610

012746
012746
000002

104011
112737

005037
004737

000000
012520
000004
017770
017234

017767

104007

017670

112737

104020

000062

017231

1%:

122122

017670

001403
104022

030526
000420

120127

MOV

MOV
RTI
RANDOM
MOVB

CLR
JSR

-{SP)
-(SP)

#EOT,TRNBFO+77
TRNSF0+100
PC.ADRDST

;ENABLE

INTERRUPTS

;CREATE A RANDOM DATA BUFFER
;TERMINATE BUFFER AFTER '63' BYTES
s TERMINATE BUFFER
;ADDRESS DESTINATION MODULE
;TRANSMIT DATA

LDPGMO

TGIL:

MOvB
DELAYL
DELAYL
DELAYL
JSR

#62,S0H1

;SET UP FOR MODE

BEQ

PC ,ADRSRC
RECEOT

;ADDRESS SOURCE
JRECEIVED ALL DATA BACK?

TRNBF
0

TST

;NO, WAIT FOR 'EOT'

HANGS HERE WAITING FOR EOT

CP1C:
CP1B:

MOV
CMPB
BEQ

ERR3

BR
CMPB

#TRNBFO,R1
(R1)+,(R2)+

.+10

S5B
R1,#TRNBFO+100

'2'

;WAIT FOR THE DATA

;NOTE:

MODERR

017770

#0,
#s,

TG1H:

017220
016224

012701

(77 BASE 8)

TERMINATE IF=1,INITIALLLY SET TO O (2ND BUFFER SWITCH)

;TO TRANSMITTED DATA
;DATA MAT(CH?

:YES

:RECV'D DATA NOT EQUAL TO TRANS. DATA

JEXIT ON ERROR
;DONE?

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

2833
2834
2835
2836
2837
2838
2839
2840
2841
2842

012614
012616
012622
012624
012630
012632
012636

012644
012646

001370
005737
001412
105737
001007
105237

022737
001374
000751

MACY11 30A(1052)
M7377A

REMOTE SERIAL
BNE
TST
BEQ

032132
017771
017771
000002

20-JAN-78

TSTB

016224

BNE
INCB

CMP
BNE
BR

09:11

PAGE 64

SEQ 0085

/0 TEST

CP1B

;NO

S58
TRNBF0+101
S58

JNO, CHECK ONLY '63' (HAR.'S
;YES, HAVE WE CHK'D '128' (HAR.'S?

SIOSWH

TRNBF0+101

lZéRECEOT

CP1C

JUSING THE SERIAL [/0 INPUT?
;JYES, EXIT

:NO, CHK NEXT '63' CHARACTERS FROM FIFO
JRECEIVED ALL DATA FROM FIFO?
;gg,I¥AIT FOR

‘'EOT'

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
2843
2844
2845

012650
012654
012656

19-JAN-78 14:50
005737
001402
000137

032132
013644

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 65

M7377A

REMOTE SERIAL 1/0 TEST

S58:

TST
BEQ
JMP

SIOSWH
SD5A
TAG1PD

;USING SERIAL 1/0? (SYSTEM TEST)?
JYES, SKIP THE FOLLOWING TEST.

SEQ 0086

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1

MACY11 30A(1052)

M7377A

2846
2847
2848
2849
2850

20-JAN-78

Jd
09:11

7
PAGE 66

SEQ 0087

REMOTE SERIAL 1/0 TEST

:'ttttttttittfifiit'.tt'

1323232323333 2332232222222ttt

;THIS TEST CHECKS VARIABLE TERMINATORS BY REQUESTING
:THAT THE MODULE BE CHANGED TO MODE 2 AND CHECKING THAT
;THE VARIABLE TERMINATOR EVOKES
;A TRANSFER.

2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863

;62 CHARACTERS +DEFINED VARIABLE TERMINATOR ARc XMITTED
;TO THE MODULE.

;THIS ADDRESSES THE DESTINATION MODULE THEN TRANSMITTS
;62 CHARACTERS FOLLOWED BY THE CUSTOMER SELECTED TERMINATOR.
;THE SOURCE MODULE

IS THEN ADDRESSED

JAND IT SHOULD TRANSMIT THESE CHARACTERS BACK TO THE PDP-11.
;1T SHOULE BE NOTED THAT WHEN THIS TEST IS RUN USING THE
;SERIAL INPUT OPTION, ONE HUNDRED AND TWENTY=EIGHT (128)
THE FIRST
;CHARACTERS WILL BE RETURNED TO THE DL11 RECEIVER.
;'64' CHARACTERS ARE RECEIVED BACK FROM THE SERIAL INPUT

;DESTINATION, AND THE SECOND '64' CHARACTERS ARE THE CHARACTERS
:THAT WERE ACTUALLY STORED IN THE

‘'FIFO' OF THE MODULE UNDER TEST.

:ttttttttIt*tttttttttfit'tlt'ttt*t.t*'fii*tltfifiifitttt.ttfitfifittttt't.tit.tttt

*THIS TEST CAN ONLY BE CHECKED IF WE ARE NOT USING THE SERIAL 1/0 MODULE
;FROM THE PDP-11 TO THE PDM-70.

;THE REMOTE SERIAL 1/0 MODULE HAS 4 MODES:
sMODE :

FUNCTION:

;0
33
28

CLEAR ALL MODE FUNCTIONS
TIME-OUT MODE
VARIABLE TERMINATOR MODE

REMOTE POWER CLEAR
ENABLE ALL FUNCTIONS

H
ir

;IMPORTANT:

NOTE THAT THIS SUBTEST WILL "HANG'' IF EOT IS NOT RETURNED

;NOTE THAT THE REMOTE SERIAL [/0 ALWAYS RESPONDS TO 'EOT'
;IN ALL MODES, BUT ONLY RESPONDS TO VARIABLES IN MODE 2.

SDSA:

104012

027767
012674
012702

104013
104001

112737

012746

000003

000062
000000

017231

;?ég;

sTEXT "SELECT 12 (LF) ON SWITCH v (CR)"'.

TTYIN

;WAIT FOR CR.

SCOPE,3
#62,S0H1
MovB
MOV

#0,

=(SP)

;USE MODE 2
;ENABLE

INTERRUPTS

CZPMACO PDM70 DIAGNOSTIC TEST
CZPMAC.P1
19-JAN-78 14:50

MACY11 30A(1052)
M7377A

012714

012706
012712
012714
012716
012722

012746
000002
104011
005037
012737

017766
002012

012730

005037

017770

012734

004737

017234

012740
012742

104007
017670

012744
012750
012754

004737
005737
001775

1$:

017766

20-JAN-78

K
09:11

7
PAGE 67

REMOTE SERIAL 1/0 TEST
E?Y

-(SP)

RANDOM
CLR
MOV

;CREATE A RANDOM DATA BUFFER
TRNBF0+76
;CLR HIGH BYTE .
#2012, TRNBFO+76 ;VARIABLE TERMINATOR=LINEFEED.

JSR

PC,ADRDST

;EOT AFTER LF GETS STRAPPED OUT.
;INTO THE LOW BYTE.
;NOTE THAT AN EOT WILL BE RETURNED AFTER THE LINEFEED...
; TERMINATE BUFFER
TRNBF0+100
CLR

TAGTHA: LDPGMO
TRNBF
0
TAGILA: JSR
TST

017220
016224

BEQ

sADDRESS DESTINATION MODULE
s TRANSMIT DATA

PC,ADRSRC
RECEOT

.~4

;ADDRESS SOURCE
JRECEIVED ALL DATA BACK?

;NO, WAIT FOR 'EOT'

sNOTE: HANGS HERE WAITNG FOR AN EOT....

;DATA PLUS AN EOT SHOULD BE RETURNED.
012756
012762
012764
012766
012770
012772
012774

013000
013002
013006
013010
013014
013016
013022
013030
013032
013034

012701
122122
001403
104022
030526
000420
020127

001370
005737
001412
105737
001010
105237
022737
001374
000751
000240

CMP1CA: MOV
CMP1BA: (CMPB
BEQ
MOD%RR

017670

ERR

#TRNBFO ,R1
(R1)+,(R2)+
CMP1DA

;TO TRANSMITTED DATA
;DATA MAT(CH?
;YES
JRECV'D DATA NOT EQUAL TO TRANS. DATA

SD6A

;EXIT ON ERROR

017766

CMP1DA: CMP

032132

sNOTE: DON'T TRY TO COMPARE THE 'EOT'....
BNE
CMP1BA
;NO
TST
SIOSWH
;USING THE SERIAL 1/0 INPUT?

017771
017771
000002

SD6A:

;DONE?

BEQ
TSTB
BNE

SD6A
TRNBF0+101
SD6B

JNO, CHECK ONLY '64' (CHAR.'S
:YES, HAVE WE CHK'D '128' CHAR.'S?
JYES, EXIT

CMP

#2 ,RECEOT

JRECEIVED ALL DATA FROM FIFO?
;NO, WAIT FOR 'EOT’
200 1%,

INCB

016224

R1,#TRNBFO+76

BNE
B8R

NOP

TRNBF0+101
.~6
CMP1CA

:NO, CHK NEXT '64' CHAR.'S FROM 'FIFO'

SEQ 0088

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
2949
2950

20-JAN-78 09:11 PAGE 68
MACY11 30A(1052)
M7377A REMOTE SERIAL 1/0 TEST
R

2222822222233 23 2223222 AR 2222322233233 2333332333323 23333233202 22ttt tlll)

:THIS SUBTEST ADDRESSES THE 'SOURCE' USING THE WRONG MODULE ADDRESSES
JAND TESTS THAT THE SOURCE ISN'T ENABLED.

:fittttfiQfittitttt.tifitttt*tt'tttttttfittttttttttttttttttttttttttfiitt.ttittti

012746
012746

104001

000004
000340
013054

SD68B:

005737

032132

1%:

004737

005154

001074

,4
SCOPE

MOV
MOV
RTI
TST
BNE

JSR

#340,
s,

=(SP)
-(SP)

SIOSWH
SD10A

PC,a#ADRSIT

sINHIBIT INTERRUPTS
;USING SERIAL INPUT OPTION?
;JYES, SKIP THE NEXT TEST.

:it'ttt*tit**.t'*t*'*ttttttttifi*tt**tfitttttttttt*ttt*fittt'ttttt

;THIS SUBTEST CHECKS THAT 'ETX' WILL CLEAR THE SOURCE AND THAT 'STX'
sWILL CLEAR THE DESTINATION
;ttttttttittttti***ttttQtttttttfiittt*tttttittt*tttttfittttttttt

000005

SD7A:

SCOPE,S

RECVRO

;ADDRESS MODULE

LDPGMO
.+4

STDR7:

TG1KA:

DC2

.BYTE
.BYTE

ETX

.BYTE

LDPGMO
. +4

BR
.BYTE
.BYTE

TG1LA:

STDR8:

013127

013130
013134
013136
013140
013142

013144
013146
013150
013152
013154

000

122722
001403
104022
031257
000443
105722

001403
104022

031171
000436

LDPGMO
.+

BR
.BYTE

.BYTE
.BYTE
.BYTE

.EVEN

000003

TAGIKA:

TG1KA

BR
.BYTE

DC3

;ALERT DESTIN
;SEND THE ETX TO CLEAR THE SOURCE.

;SEND THE 'B'' AS DATA.

TGILA

EOT

TAGT1KA

;THIS EOT SHOULD CLEAR THE DESTINATION.

DC1

sALERT SOURCE

DC3
0

;ENABLE MODULE TO RECEIVE ANY DATA.

JONLY "ETX'' SHOULD BE RETURNED.
:Ueg 'ETX" RETURNED?

(CMPB
BEQ
MODERR

#ETX,(R2)+

SD10A

JEXIT ON ERROR

TSTB
BEQ
MODERR

(R2)+

.+10

:WAS ANY OTHER DATA RECV'D?
sNO-0K

SD10A

;EXIT ON ERROR

ERR16

ERR14

.+10

£ i

:"ETX" WASN'T RETURNED

;ETX DIDN'T CLR SOURCE

SEQ 0089

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

MACY11 30A(1052)
M7377A

20-JAN-78

09:11

PAGE 69

REMOTE SERIAL I/0 TEST

;REMEMBER TO CLEAR THE 'B' AND 'EOT ' THAT ARE IN THE BUFFER.
TAG1SA: LDPGMO
+4

013156
013160
013162
013164
013165
013166
013167

BR TAG1SB

STDR9:

STDR1D:

013170
013171
013172
013773
013174
013175

.BYTE
.BYTE
.BYTE
.BYTE

DC1
61
DC3
DC2

.BYTE
.BYTE

61
DC3

.BYTE

LY
.BYTE
EVEN

;SEND THE °'B' & 'EOT' OUT OF FIFO.

;NOW RE-ENABLE THE DESTINATION.

STX

‘A

N
0

:NOW RE-ADDRESS SOURCE & DESTINATION AND EXAMINE DATA
013176
013200
013202
013204

TAG1SB: RECVRO

104005
104007

013206
000402

013206
013207
013210
013211

021

013212
013216
013220
013222
013224

005737
001003

;RE-ADDRESS SOURCE

LDPGMO

STDR11:

061

023
C00

016226

TAG1TA:

104022

TAGTTA

.BYTE
.BYTt
.BYTE
.BYTE
.EVEN

251

TST
BNE
MODERR

RECSTX
.+10

:WAS "STX' RETURNED?
2YES

TAGTWA

JEXIT ON ERROR

ERR1

030440
000405

;ALERT SOURCE

DC3
0

:'STX" WASN'T RECV'D FROM DEST.

;SKIP OVER EOT HERE AND LOOK FOR AN 'X''.
;SINCE NO DATA SHOULD HAVE BEEN RETURNED, IT SHOULD BE 0.
s IF NON-ZERO ,THEN WE HAVE AN ERROR.

013226
013232
013234
013236

105737
001402
104022
031073

016236

TSTB

BEQ
MODERR

REgBFO*Z
o ¥

ERR12

,%g *'STX' THE ONLY DATA RECV'D

;"STX" DIDN'T CLR DEST.

;SEND AN 'EOT' TO CLR MODULE
013240
013244
013246
013250

105737

001402

104022

031073

016240

TAGIWA:

TSTB

BEQ
MODERR

ERR12

RECBF0+4
SD10A

;LOOK FOR THE X'’ HERE...
;BRANCH IF NO ERRORS.

SEQ 0090

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

M7377A

3058

3061

3059
3060
3062

013252

3065

013264

3066

104001

013256

032777

013266

104012

001166

000006

002000

166066

013270

024316

3070

013274

012737

013274

020774

3072
3073
3074
%8;2

013310
013316
013324
013326

112737
112737
104005
004737

000077
000077

017227
017277

3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089

013332
013334
013336
013340
013341
013342
013344

104007
013340
000402
101
102
004
013344
104005

013346
013352
013354
013360

004737
104004
022712
001403

3091
3092
3093
gggg

013364
013366
013370
013374

031041
000405
005737
001002

013376
013400
013402
013404
013406
013414
013422

104022
031223

013272

3096
3097
3098
3099
3100
3101
g}gg

013362

SD10A:

RRRRR R AR

SEQ 0091

AR AR ARRRRNARRRRARAARARRAARRANAAAARRRARARRAR
AR AR AR

SCOPE.6

BIT

#SW10,aSwWR
TAGIPC

MES10
TAG1QA: MOV

MOVB

MOVB
MOVB
RECVRO
JSR

017234

TAGIRA: LDPGMO
.+
BR
.BYTE
.BYTE
.BYTE
.EVEN
TAGIUA: RECVRO
017220

JSR
DELAY
TAG1ZA: CMP
BEQ

041101

MODERR
ERR11
BR
TST
BNE

016224

104012

013103
013103
013103

3104
3105

3106

032134
017227
017277

MODERR
ERR15
SP11A: PRINT
MES88
MOVB
MOVB
MOVB

3107

;

3108

RRRRA AR ARARRAARANRRRRRRARRARAAR
AR A ARk

;SW10 SET?

sYES, TYPE TEST COMPLETE

;TEXT 'RE-SET MODULE ADDRESS TO '17°'.

TTYIN

104022

030362
113737
113737
113737

RRRRRRR AR R AR

BNE

104013

3071 013302 112737 000077 032134

3090

PAGE 70

REMOTE SERIAL 1/0 TEST

3067

gggg

09:11_

THIS SUBTEST REQUESTS THE OPERATOR TO RE-SET THE MODULE ADDRESS TO '17°'.
:IF DATA 'SW10' IS NOT SET THIS MANUAL INTERVENTION TEST IS SKIPPED.

3063

3064

20-JAN-78

:WAIT FOR 'CR' TO CONTINUE
RETURN

#7? .MODADR

#77 ,SRCADR
#77.DSTADR
PC,ADRDST

;RE-SET SCOPE LOOP ADDRESS POINTER

:SET UP FOR ADDR. '17°'
;ENABLE DL 0'S RECVR.

;ADDRESS DEST. MODULE
;SEND SOME DATA

TAGTUA
‘A
'B
EOT

;SEND DATA
s TERMINATE

PC ,ADRSRC

;CLR & RESET BUFFER
;FOR THE NEXT TEST.
;ADDRESS THE SOURCE

#41101, (R2)
.+10

;WAS THE 'A & B' RETURNED?
1VES

SD11A
RECEOT

JEXIT ON ERROR
;WAS 'EOT' STRAPPED 0UT?
sNO.

.+6

:MODULE WASN'T ENABLED WITH ADDRESS '17°'

;"EOT" WAS STRAPPED OUT

sTEXT "RESET MODULE ADDRESS<CR>'
STDR7 ,MODADR
STDR7,SRCADR
STDR7 ,DSTADR

R AR AR AR RN

JRE-STUFF THE ORIGINAL ADDRESSES.

R R R R AR R RRARRAR R AR R AR AR AR

THIS SUBTEST CHECKS MODE 1 FOR TIMEOUT

IRARAA AR R AR R AR R AR AR R AR AR AR AR AR R AR

3109
3110
%}};

013430
013434

104001
104035

3113

013436

104012

000007

R R AR AR R AR AR R

AAARRRRR AR RN

AR R RRA A AR AR AR

R AR AR

SCOPE,7
SETUP

:TEXT SET CLOCK 3

ON CLOCK MODULE TO 100 MILLISEC

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129

013440
013442
013444
013446
013454
013460
013462
013464
013466
013467
013470
013471
013472
013473

8 8
PAGE 71
20-JAN-78 09:11
MACY11 30A(1052)
M7377A REMOTE SERIAL 1/0 TEST

030152
030236
104013

112737
004737

104007

000061
017220

3138
3139

3140
3141
3142

147

3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161

3162
3163

3164

3165

3166
3167
3168
3169

MOVB #61,SOH1

;SET UP MODE 1

LDPGMO

;NOW CHECK THE

JSR PC ,ADRSRC

STDR12:

130
101
004

.BYTE

OF P TO ON.

TIME-OUT CLEAR.

TG1PA

DC2

.BYTE
.BYTE
.BYTE
.BYTE

;ADDRESS SOURCE USING MODE 3

;ADDRESS NON-EXISTENT SOURCE (240=SPACE).
;VIA THIS PROGRAM: DC(C1,240,DC3
013474
013502
013506
013514

112737
004737
012737
104005

000240
017220
177763

017227

TGIPA:

032160

013516

004737

013522
013524
013526
013530
013531
013532
013533
013534
013536

104007

MOVB

#240,SRCADR

MOV

#-15,COUNT

JSR

RECVRO

;WAIT

3143

3144
3145
3146

;TEXT SET SWITCH 1

013466
000403
022
061
023

3130
3131
3132
3133

3134
3135
3136
3137

ME S84
MES85

TTYIN

017231

SEQ 0092

014472

PC ,ADRSRC

;SET SPACE=ADDRESS TO BE ADDRESSED.
;ADDRESS THE SOURCE MODULE.

FOR APPROXIMATELY 15 SECONDS...
JSR

PC,CNTLOP

LDPGMO

STDR13:
TG1PB:

013540
013542
013544

BR
.BYTE

.BYTE

.BYTE
.BYTE

TSTB
TSTB

BEQ
MODERR

TG1PB

DC1
61
DC3
0
(R2)+
(R2)+
TG1PC

ERR24

;SKIP OVER THE EOT.
;LOOK AT THE BYTE.

;OK,NO DATA RETURNED.
;CLEAR LEFT GARBAGE IN MODULE FIFO.

;NOW CHECK THE REMOTE CLEAR FUNCTION.
013546
013550
013556
013564

104005
112737
113737

004737

000064
013103

017220

017231
017227

TGIPC:

RECVRO
MOVB
MOvB
JSR

#64 ,SOH1

;LEAVE IN MODE 4.

PC,ADRSRC

;ADDRESS THE SOURCE

STDR7,SRCADR

;DON'T DELAY THIS TIME.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC. Pil
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181

8
C
PAGE 72
20-JAN-78 09:11
MACY11 30A(1052)
M7377A REMOTE SERIAL I1/0 TEST

013570

104007

LDPGMO

013572
013574
013576
013577

013576
000405
022
061
023

.+
BR
.BYTE

005

000
013606

3182
3183
3184
3185
3186

TGIPE:

104007

013616
000402
021
061
023

3188
3189
3190
3191
3192
3193
3194
3195
3196
3197

JALERT DESTINATION.
;SEND SOME DATA.

;SEND ENQ TO DESTINATION.
;ENQ SHOULD CLEAR OUT THE DESTINATION.

.EVEN
DELAYL

104020

3187

sJRETURNS FIRST EOT

STDR14: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE

130
101

SEQ 0093

STDR15:

LDPGMO
. +4
BR
.BYTE

DC1

.BYTE

DC3

.BYTE

TG1PF

.BYTE

000

JALERT THE SOURCE.
;2ND EOT RETURNED HERE

"EVEN
TST

(R2)+

;TWO EOT'S ARE EXPECTED BACK.

005722
005722

TST
TST

(R2)+
(R2)+

;SKIP OVER THE EOT'S.
JAND LOOK TO SEE IF ANY DATA WAS RETURNED.
:IF DATA CAME BACK, THEN REMOTE CLEAR
;DIDN'T WORK.

001402

BEQ
MODERR

TG1PG

;REMOTE CLEARED WORKED ?

TGIPF:

005722

104022

ERRZ23

031557
104001

000010

TG1PG:

SCOPE,8.

sNO, IT DIDN'T
;JREMOTE CLEAR LEFT GARBAGE IN FIFO.
;YES, REMOTE CLEAR WORKED.

:ttttttittfit*ttttt*ttttttttttt*tifit*ttfififit'tttttttfitfiitfittttitt*fi*tt'tttti

;TEST COMPLETE
;titttfittttktttttttttttt*tittt'tittitttttt*Qtt*ttittttfittttttittttittttfitt

013642
013644
013650
013652
013654

104026
113700
104012

024236
000137

032134

012376

TAG1PC: ADDRESS
TAG1PD: MOVB
MODADR ,RO
PRINT

;SET UP NEW MODULE ADDRESS
JRESET THE ADDRESS.

sTEXT "TEST COMPLETE'
:RESTART TEST
mM73778
.SBTTL M7378A FOUNDATION MODULE TEST
MES7
JMP

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 73

SEQ 0094

M7378A FOUNDATION MODULE TEST

3217
3218
3219
3220

:Qttttt'tfifitfifi*ttfittttittttt*it'tttfi*ittttttittttit*ttttl'ttttttt*ttttt*.

;M7378 FOUNDATION MODULE TEST

;ittt'tttfiifi'fit*i'tttfifii'ifit*tfittfittt.*ittfi*ttttfittt!ttt'.ttttttttttt.tti

THIS TEST SETS THE SERIAL I/0 UP AS A SOURCE AND THE FOUNDATION
; MODULE AS THE DESTINATION. A RANDOM(PSEUDO) BUFFER
IS CREATED AND TRANSMITTED FROM SERIAL I/0 TO THE FOUNDATION
MODULE.
THEN THE FOUNDATION MODULE IS ADDRESSED AS THE SOURCE
AND THE SERIAL 1/0 IS ADDRESSED AS THE DESTINATION.
BECAUSE
OF THE 'WRAP-AROUND' CABLE, THE DATA IS RETURNED
FROM FOUNDATION MODULE TO SERIAL

I/0.

;IF THE SERIAL 1/0 IS BEING USED, A TOTAL GF 128 CHARACTERS
;RATHER THAN 64 CHARACTERS WILL BE RETURNED.

;THE TEST THEN CHECKS TO MAKE SURE THAT ADDRESS 17

; WILL ALSO RETURN THE DATA.

013660

000000

FLAB7:

013662
013664
013666

000000

FOUNSW: .WORD
M7378A: PRINT

013670
013674
013676

005037
104035

013662

FLO:

FOUNSW

013700
013704

110037
113790

013660
013660

013710
013714
013722
013730
013736

104012

.WORD 0

sTHIS LOC

MES77

027572

FLOP:

104026

014660
017202
017202
017202
017202

FLOPB:

;TEXT '‘FOUNDATION

CLR

SETLP

;MODULE TEST''.

;CLEAR OUT OUR SUBTEST SWITCH.

;GET THE MODULE ADDRESS.

ADDRESS

MOvVB

;PUT ADDRESS INTO RO.

RO,FLAB?7

MOVB

;SAVE THE ADDRESS IN FLAB7.

FLAB7 RO

sMODIFY THE FOUNDATION ADDRESS
;IN THE PDM-70 PROGRAMS.

JSR PC,FSTUF

MOVB
MOVB
MOvB
mMovB

014046
014032
014051
014036

IS USED TO RESTORE

;THE CONTENTS OF ADDRESS
;WHEN LOOPING.

IADRS9,IADR11
IADRS9, IADR12
IADRS9, IADR14
IADRS9, IADR13

;SET UP SER I1/0 ADDR.

2333333333333

3333223222222

.
L

2323222222233

233

2Rt

RSl

sTHIS SUBTEST XMITS A RANDOM BUFFER TO THE FOUNDATION MODULE.
;!tttttttfit'tttttttttfitttt*tfitfiitfifittfitl*t*'*titittt!t.tttttttttttttifittt

*NOTE THAT FOUNSW=0 HERE.
013744
013750
013756
013762

000001
013660
000000
013770

014042

SCOPE,1

MOvB
MOV
MOV

FLAB?7 ,FLAB1

#0,
#1$,

=(SP)
-(SP)

sMODIFY THE FOUNDATION ADDRESS IN PROG.
;ENABLE INTERRUPTS

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

3273
3274

013766
013770

000002

3276
%S;g

014000
014004

005037
104005

3275

3279

3280
3281
3282
3283
3284
3285
3286
3287

3288

3289
3290
3291
3292
3293

3294
3295
3296

3297

gggg

013772

014006

104011

000004

017767

112737

000060

017231

005737
001417
104007
014030
000421
002
021
075

014034
014035
014036
014037
014040

061

014041
014042
014043

014044
014045

017770

032132

001

3317
3318
3319
3320
3321
3322
%%52
3325
3326
3327
3328

1%:

RANDOM

PAGE 74

MOVB

#60,SO0H1

;MODE X

FDATA
STX
DC1
75

:XMIT THE DATA NEXT.

FOUNDL: TST
BEQ
LDPGMO
.+
BR
FPROG:
.RYTE
.BYTE
IADR12: .BYTE

FLAB1:

060

.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE

.BYTE

022

:GENERATE RANDOM BUFFER

#EOT,TRNBFQO+77

CLR
RECVRO

IADR13:
FLAB2:

021
075
001

MOVBR

.BYTE

022
075
075
023

09:11

RTI

.BYTE

%%8?
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316

20-JAN-78

M7378A FOUNDATION MODULE TEST

112737

014014
014020
014022
014024
014026
014030
014031
014032
014033

MACY11 30A(1052)

TRNBF0+100

SIOSWH
FNORM

SOH

:TERMINATE AFTER 64 BYTES.
:END OF BUFFER.

:USING THE SERIAL 1/0?
:NO, SO BRANCH TO NORMAL LOAD.
:ELSE USE PADDED PROGRAM.

:SERIAL 1/0 SRC.

D(C2
75
75
DC3

DC1
75
SOH

:FOUNDATION MODULE
:ADDRESS FOUNDATION AS SRC.

DC2

;ADDRESS THE SERIAL 1/0 AS DESTINATION.
014046
014047
014050
014051
014052
014053
014054
014055
014056

075
023
021
075
001
061
023
003
000
014060
104007
014066
000402
022
075

.BYTE
.BYTE
.BYTE
IADR14: .BYTE
.BYTE
BYTE
.BYTE
BYTE
.BYTE
.EVEN
FNORM:
LDPGMO
A
BR
FLAB3A: .BYTE
FLAB3:
.BYTE

014072
014074
014076
014102

104007
017670
005737
001005

FDATA:

014104
014106
014110
014112

104007
014112
000402
021

014060
014062
014064
014066
014067
014070
014071

IADR11:

023
000

032132

.BYTE
BYTE
.EVEN
LDPGMO
TRNBF 0
TST
BNE

LDPGMO
.+
BR
FLABSA: .BYTE

75
DC3
DC1
75
SOH
61
DC3
ETX
0

FDATA
DC(C2
75

DC3
0

SI0SWH
FTST

FTST
DC1

:FOUNDATION MODULE.
:AS DESTINATION

:XMIT THE DATA.
::BRANCH IF USING SER 1/0.

;FOUNDATION AS SOURCE.

SEQ 0095

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC PN

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 75

SEQ 0096

M7378A FOUNDATION MODULE TEST

071
023

FLABS:

BYTE
.BYTE
BYTE

.EVEN

71
DC(3
0

;DELAY AND CHECK TO MAKE SURE THAT AN EOT HAS BEEN RETURNED.
FTST:

014116
014120
014122
014126
014130

DELAYL

DELAY
TST

016224

BNE

EgggRR

014132

RECEOT

FND1C

sGIVE IT TIME TO RETURN.
;LOOK FOR AN EOT.

;YES, EOT WAS RETURNED.
;'EOT' NOT RETURNED.

sNOW CHECK THE DATA IN THE RECEIVER AND TRANSMITER BUFFERS.
;LOOK FOR MATCHES.

014134
014140
014142
014144
014146
014150

012701

122122

017670

FND1C:
FND1B:

001403
104022

030526
000420

MOV
#TRNBFO ,R1
CMPB
(R1)+,(R2)+
BEQ FND1D
MODERR
ERR3
BR
. FOUND2

JXMITTED DATA.
;DATA MATCH?
sYES.,
;ELSE ERROR
JXMITTED DATA NOT = RECVD DATA.
;NON-FATAL ERROR.

JNOW CHECK TO SEE IF WE SHOULD LOOK FOR 64 CHARACTERS OR 128
;CHARACTERS. IF WE ARE USING THE SERIAL I/0 WE WILL

;HAVE 128 CHARACTERS RETURNED (INCLUDIND TWO ‘EOTS').
;NOTE THAT THE LOW BYTE OF TRNSF0+100
;SERVES AS A BUFFER TERMINATOR AND THAT THE
sHIGH BYTE SERVES AS A SWITCH. IF THE HIGH BYTE IS SET, THEN
;WE HAVE CHECKED ALL 128 CHARACTERS.

014152
014156
014160
014164
014166
014172
014174
014200
014206
014210

020127
001370
005737
001412
105737
001007
105237
022737
001374
000751

017770

FND1D:

R1,#TRNBFO+100
FND1B

;DONE?
;NOT DONE YET.

BEQ

FOUND?2

;NO, CK ONLY 64 CHARS

BNE
INCB
CMP
BNE
BR

FOUND2
TRNSF0+101
#2 ,RECEOT
.0
FND1C

TST

032132

TSTB

017771
017771
000002

CMP
BNE

016224

;IF THE

"FOUNSW'

SIOSWH

TRNBF0+101

;USING THE SERIAL

1/0?

;CHECKED 128 CHARS?

JYES, EXIT.
sNO, CK NEXT 64 CHARS FROM FIFO.
sEOT RECVD YET?
sNO, WAIT FOR IT.
;GO CHECK THE DATA FROM FIFO.

IS SET , THEN WE ARE EXECUTING

;THE 'ADDRESS 17' SUBTEST AND WE SHOULD SKIP OVER THE
;FOLLOWING SECTION. SET MEANS=-1,

CZPMAC.P1

19-JAN-78 14:50

8
G
PAGE 76
20-JAN-78 09:11
M7378A FOUNDATION MODULE TEST

MACY11 30A(1052)

SEQ 0097

3385

3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397

014212
014216

005737
003035

014220

100423

014222
014226

005737
001067

014230
014232

000240
000240

013662

032132

FOUND2:

TST
BGT

FOUNDS

BMI

FOUND3

TST
BNE
NOP
NOP

SIOSWH
FOUND6

F OUNSW

;LOOK AT THE SOF TWARE SWITCH.
;IF SWITCH=+1,

THEN

;WE ARE IN SUBTEST 3.
;SW==1 MEANS WE HAVE
;JUST FINISHED SUBTEST 2.
;ELSE FALL THROUGH TO SUBTEST 2.
s (SWITCH=0).

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=78 14:50
CZPMAC.P1T

MACY11 30A(1052) 20-JAN-78 09:11 PAGE 77
M7378A FOUNDATION MODULE TEST

3398
3399

2232222233332 2

2232223223232 2333

3333323333232 323323323232322R2

*THIS SUBTEST USES ADDRESS '17' AND XMITS A RANDOM BUFFER.

SEQ 0098
Rttt ll

:tttt'fitfi!tt'tttt'..tfifii.ttttt*ittit.t.titttitittitfi.'tttt'!tttt.ttti.tttt

o~
W

;NOTE: FOUNSW==1 HERE.

]

014234

104001

014240
014242
014244
014246
014252

104012

014256
014264

SCOPE, 2

000002

;*=xxSUBTEST 2

MES10

024316

104013
112700
004737

000077
014660

012737
000137

177777
014014

TTYIN

mMovB

;TEXT RESET MODULE ADDRESS TO *17°.

#77 ,RO

JSR PC,FSTUF

;WAIT FOR CR

;REPLACE THE FOUNDATION ADDRESS WITH 17.

;SET THE SWITCH SO THAT WE WON'T ENTER THIS AGAIN.
013662

MOV
JMP

#=1,FOUNSW
FOUNDL

;=1 MEANS WE ARE IN THIS TEST.
;SEND 2 CHARACTERS AND

;CHECK TO MAKE SURE THAT ADDRESS 17
sWILL RETURN THEM.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

I
09:11

8
PAGE 78

M7378A FOUNDATION MODULE TEST

SEQ 0099

:titt'tifit.t'fitfi..ttitt't'ititt.tt.tt'Q.ttttt.'tti'tttt!i'tt'ittit.ittt't

;THIS SUBTEST USES THE WRONG ADDRESSES AND CHECK TO MAKE

sSURE THAT THE MODULE IS NOT ENABLED.

:Qtttfit.'..itt'tfiifit'.'t"tttfitti'ittittt.QQtt.t'tiitt't"'..t't'i'.t.'..

014270
014274
014276

005737
001402
000137

032132

FOUND3:

TST
BEQ

JMP

013670

SIOSWH
FND3A

;SKIP THIS SUBTEST IF WE ARE USING SERIAL
;SI0 NOT IN USE.

FLO

;ELSE LOOP TO BEGINNING OF MODULE TEST.

;ADDRESS THE MODULE WITH ADDRESSES

0-16.

;ASSUME PRESENT ADDRESS SELECTED TO BE 17.
014302
014306

104001

004737

000003
005154

FND3A:

SCOPE,3
JSR
PC,ADRSIT

s*xxxSUBTEST 3
sMULTIPLE

;ADDRESS TEST.

; (DESTINATION)

1/0.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PT

19-JAN-78 14:50

MACY11 30A(1052)

3443
3444
3445

J
09:11

PAGE 79

M7378A FOUNDATION MODULE TEST

3438
3439

2223222323333

333232333

232223232333233

3323223223222 223 2222222ttt
Rl

ROUTINC TO CHECK CUSTOMER DEF INED
MODE FLIP FLOP (SUB-PROGRAM).

3440
3441
3442

20-JAN-78

2222222323332 2332323223232
R
Rttt E Rl

014312
014316
014320

104001
104012

FOUNDS:

000005

027634

SCOPE.,5

;xxxxSUBTEST S

MES78

sTEXT

;PUT SCOPE PROBE

;ON PIN 78(CR).

3446

014322
014324

027670

014326

012737

MES79

;'USE “E TO EXIT

TTYIN

104013

014406

014404

;WAIT FOR CR

#FOUND6 ,EVECTOR
MOV
;OUTPUT THE FOLLOWING PROGRAM.

;THIS PROGRAM WILL LOOP ENDLESSLY
JUNTIL A "“E' IS INPUTTED VIA TTY,
;THE APPROXIMATE SIGNAL TO BE SCOPED WILL
;BE 1 MILLISEC @ 9600 BAUD.

‘SW 14=SET TO SCOPE LOOP.
‘Sw 11 =SET TO ITERATE.
014334
014340

005737
001013

032132

FNDS:

TST

BNE

SI0SWH
FND5B

;USING THE SERIAL 1/0?

;YES, SO USE PADDED PROGRAM.

JELSE, USE THE FOLLOWING:

;LOAD THIS PROGRAM IF MODULE TEST

014342
014344
014346
014350
014351
014352
014353

FND5A:

014354
014356
014360
014362
014363
014364
014365
014366

FND5C:

LDEGMO

;LOAD THE PROGRAM

FLAB6:

FLAB4:

0
014370

BR
.BYTE

FND5C
DC2

.BYTE
.BYTE

D(3
EOT

.BYTE

LDPGMO
. +4

BR
BYTE
.BYTE
.BYTE
.BYTE
.BYTE

LDPGMO

104007

014372
014374
014376
014400

014030

FPROG

000004
000137

EOT

104006

JMP

;SEND THE EOT

;LOAD THE FOLLOWING PROGRAM.

s (SERIAL I/0 IN USE).

LDCHRO

014370

;FOUNDATION AS DESTIN.

FNDSA
DC1
77
SOH
D(3
0

;USE THIS PROGRAM IF SYSTEM TEST

FND5B:

014370

;GO HERE WHEN DONE

sSEND AN EOT
FND5B

SEQ 0100

CZPMACO PDM70 DIAGNOSTIC TEST
CZPMAC.P1T
19-JAN-78 14:50
3494
3495

014404

000000

K 8
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 80
M7378A FOUNDATION MODULE TEST

EVECTOR:

.WORD

;ADDRESS TO GET ME OUT OF INFINITE LOOPS.

SEQ 0101

CZPMACC PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507

MACY11 30A(1052)

20-JAN-78

09:11 PAGE 81

SEQ 0102

M7378A FOUNDATION MODULE TEST

:tt'tttttt*fifiittitlttt.t*ttttfifiitittittttt*titttttittittttitit"t

TEST COMPLETE

;fittttttttttttifiifltt*tttQttt'tttttfittitttttttt'tfit'tttttttttt'ttfi

014406

104001

014412
014414
014416

024236
000137

000006

104012

FOUND6:

SCOPE.6
PRINT

013670

MES7
JMP

FLO

.SBTTL

SUBROUTINES

sTEXT

"TEST COMPLETE'

;LOOP THE TEST.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC PN
3508
3509
3510
3511
3512
3513

MACY11 30A(1052)

20-JAN-78

SUBROUTINES

09:11

PAGE 82

:tfittttitttttltt*tfitfit'tttttfitttttiti*tttfikfii*itttttiii*t'ttfitii

SUBROUTINE SENDAX

:Qtttttt'ttititttQtttfit"itttt!tfiflfit..fittttt.tttttitlitttitittti

:SUBROUTINE TO LOAD AND SEND THE CHARACTERS
:llA.l

014422
014424
014426
014430
014431
014432
014433

104007

014430
000420

101
130
004
000

'X'.

SENDAX: LDPGMO
+4

BYTEA:
BYTEX:

BR
.BYTE
.BYTE

.BYTE

BYTE

SNDAX1
‘A
'X

;GO HERE WHEN DONE.

EOT

.EVEN
s wkkkxkxk*
X SUBROUTINE

SENDPG*
% % % % % % % % %

;SUBROUTINE TO SEND A PROGRAM.
s (USED FOR DEBUGGING PURPOSES.)
SENDPG: LDPGMO

014434
014436
014440
014442

014443
014444
014445
014446
014447
014450
014451
014452
014453
014454
014455
014456
014457
014460
014461
014462
014463
014464
014465
014466
014470

.+
BR

SNDAX1

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

DC1
60
SCH
61
DC2
60

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

DC1
60
DC2
60
D(C3
DC1
60
SOH
60
0
0
0
0

.BYTE

014470
000207

SNDAX1: RTS

STX

DC(3

Jannnn
ke x*SUBROUTINE

sRETURN

CNTLOP**xxxkansnn

;SUBROUTINE TO PROVIDE AN 'X'' SECOND WAIT.
;ENTERS WITH COUNT EQUAL TO THE COMPLEMENT OF THE NUMBER
;OF SECONDS DESIRED TO WAIT.

SEQ 0103

CZPMACO PDM70 DIAGNOSTIC TEST
CZPMAC.PT
19-JAN-78 14:50
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
gggg

014472
014474
014500
014502

104023
005237
001374
000207

COUNT
CNTLOP

PAGE 83

SEQ 0104

sDELAY ONE SECOND.
;UP THE DELAY COUNTER.
;CONTINUE LOOPING UNTIL COUNTER IS ZERO.
JRETURN WHEN DONE.

2Rttt sl

*ROUTINE TO ADDRESS A MODULE USING ALL OF THE WRONG ADDRESSES
JAND CHECK TO MAKE SURE THAT DATA ISN'T RETURNED.

:fitttttttttt'tfittttttfifit'tittttttktttttttt*'tfi*'tttitttttt*tttttfittttttt*

;THIS ROUTINE IS DESIGNED FOR THE FOUNDATION MODULE

3581
3582
3583
3584
3585
3586
3587

014512
014516
014522
014526
014534
014536
014542

113700
004737
005027
123737
001434
005737
001403

017277
014660
016236
032134

3590

014544
014546

104007
014030

014550
014552
014554

000410
104007
014112

014556
014560
014562
014564
014565
014566
014567
014570

104007
014564
000403
021
060
001
060
023
014572

014572
014576
014600

004737
104005
104004

A
VNNV WN—=O §es &8

INC
BNE

09:11

2222223223333 2323333333333 332323 3333333233323 323323223223223322

000060

3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603

CNTLOP: NULL1
RTS

112737

3591

20-JAN-78

SUBROUT INES

032160

014504

3588
3589

MACY11 30A(1052)

032132

;BUT WILL WORK FOR OTHER MODULES.

017277

MATD:

017277

ADSLOP: MOVB
JSR
CLR
CMPB
BEQ
TST
BEQ

MOVB

#60,DSTADR

DSTADR,RO

TESTED.

:STUFF MODULE ADDRESS.
sCLEAR 1ST LOC.

ADSNXT

sYES,

MODADR,DSTADR
SIOSWH

ADSLP1

;EQUAL TO SELECTED ADDRESS?
SELECT NEXT ADDR.

;SERIAL 1/0 IN USE?
:NOPE

;USE PADDED SERIAL PROGRAM.

FPROG

;TO BE

PC,FSTUF
#RECBF0+2

LDPGMO

ADSLP1: LDPGMO
FLABSA

;SET UP 1ST ADDRESS

ADSLP2

;ADDRESS THE FOUNDATION MODULE AS A SOURCE (NON-SERIAL 1/0).
LDPGMO

BR
.BYTE
FLAB17: .BYTE
.BYTE
.BYTE

ADSLP2

ADSLP2: JSR
RECVRO
DELAY

PC,SENDAX

.BYTE
.EVEN

014422

;SEND 2 CHARS.

;ENABLE DL=11 RCVR.

;CHECK THE DATA TO SEE IF IT IS A,B,EOT.
;SINCE OTHER MODULES MAY INDEED BE IN THE SYSTEM, OTHER
;THAN THE FOUNDATION MOD,

sADDRESSED.

014602
014606
014610
014614

123722
001007
123722
001004

000101
000102

'A, (R2)+

ADSNXT
‘B, (R2)+
ADSNXT

THEY COULD POSSIBLY XMIT DATA WHEN

;WAS AN "‘A"" RETURNED?
sNOPE.

:B?

JNOT A B.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PI
014616
014622

122722
001001

MACY11 30A(1052)
20-JAN-78
SUBROUT INES

000004

CMPB
BNE

09:11

PAGE 84

#EOT, (R2)+
ADSNXT

SEQ 0105

SEQT?

sONLY THE STRING A,B,EOT CAN MAKE IT TO HERE.
014624

000407

ADSER1

;THAT STRING SHOULD NOT

;BEEN RECEIVED.
014626
014632
014640
014642
014644
014652
014654

105237
122737
001324
000207
113737
104022
031124

014656

000763

017277
000077

017277

031166

ADSNXT:

INCB
CMPB
BNE
RTS
ADSFR1: MOVB
MODERR

DSTADR

#77 ,DSTADR
ADSLOP
PC
PSTADR,ERR13A

ERR13

;UPDATE MODULE ADDRESS.

;DONE?
;NO.
;YES.

;MODULE ENABLED
sWITH ILLEGAL

ADSNXT

;ADDRESS.

HAVE

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1

20-JAN-78
MACY11 30A(1052)
SUBROUT INES

09:11

PAGE 85

SEQ 0106

;tt.t'ttfiitttttt'ttlfitfit'iitit.t'tttttti*tttttittfi*tlttt'tttttttttt'titt

;ROUTINE TO STUFF THE ADDRESS IN RO INTO THE PADDED SERIAL
;170 PROGRAM AND UN-PADDED PROGRAM.

:'ttttt'tt.Qttt".*titti't*tfittttttttittttfittttttt"ttttttfittfitttttttttt

014660
1014664
014670
014674
014700
014704
014710
014714

014042
014037
014067
014363
014113
014351
013660

:
FSTUF

MOvB

MOvB
MOVB
MOVB

MOVB

MOovB
mMovB

RTS PC

RO,FLAB1
RO,FLABZ2
RO,FLAB3
RO,FLAB4
RO,FLABS
RO,FLAB6
RO,FLAB7

JRETURN.

MACY11 30A(1052)
20-JAN-78
SUBROUTINES

3655
3656
3657

09:11

9
PAGE 86

SEQ 0107

2222323222322 332332333022222323222323233233222223322222232R
R Rttt d

*KEYBOARD SERVICE ROUTINE.

CHARACTERS ARE ACCEPTED FROM THE KEYBOARD,
“TESTED FOR DIFFERENT FUNCTIONS AND SAVED IN A BUFFER.

3659

;t.tttttttt'ttt't'fittttttttitt*fitttt'fittttttfifiti!ttttttttttttitt'ttt'fitt

014716
014720
014724
014730
014734
014740
014744
014746
014752
014756
014760
014762
014766
014770
014774
014776
015000
015004
015006
015012
015014
015020
015022
015026
015030
015034
015036
015042
015044
015046
015050
015054
015062
015064
015066

XTTYIN:

032136
032214
032216
015330

INPUTA:

164376

164372
000200

MOV
TSTB
BPL

MOvB
BICB
TSTB

BEQ
TST
8EQ
TST
BNE
MOvB

032150
032122
000002

ADD
BR
INPUTC: CMPB
BMI
CMPB

000060

000132

BMI
TST
BNE
INPUTB: TST
BEQ
CLR

032122
032216

032216

032214
000102

SAVREG
CLR
CLR
CLR

REPTSW

CHRCNT

RUBSWH
# INBUF R4
aTkS

INPUTA
aTkB,R1
#200,R1
R1

XTTYIN+2
SENDSW
INPUTC

PRTSWH

EXTTY

R1,(R4)

#2,(SP)
EXTTY
R1,4#60
SPCHR1
#132 ,R1
SPCHR1
PRTSWH

EXTTY

RUBSWH

+H3E

RUBSWH

R1,(R4)+

CHRCNT
#66. ,CHRCNT

032214
ECHO:

TYPEQM

INPUTA

;SAVE REGISTERS
;CLR SOF TWARE SW.
;CHARACTER COUNTER
;JRUBOUT SW.
;SET UP BUFFER POINTER
;CHARACTER READY?
sNO, WAIT
JYES, SAVE IT
:STRIPE OFF PARITY BIT
;WAS 'HERE IS' TYPED?

sYES, IGNORE IT
;égTERRUPTED FROM SEND ROUTINE

;INTERRUPT FROM PRINT?
JYES, IGNORE IT
:NO, SAVE CHAR.
;YES, RETURN CALL +4
SEXIT
;SPECIAL CHARACTER
sYES.

18SY

;YES,

IGNORE

;SPECIAL CHARACTER
*¥YES, TEST 11
;INTERRUPTED FROM PRINT ROUTINE?
IT

;RUBCUT SW. SET?
sNO, NORMAL ECHO.
J¥ES. LA 1T,

:PRINT *\' TO TERMINATE RUBOUT MODL
:SAVE CHARACTER

;BUFFER FULL?
;YES, TYPE *?°
;NO, ECHO CHAR.

;WAIT FOR NEXT CHAR.

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720

3721
3722
3723
3724
3725
3726
3727

20-JAN-78
MACY11 30A(1052)
SUBROUTINES

09:11

9
PAGE 87

SEQ 0108

;SUBROUTINE ENTERED TO TEST FOR SPECIAL CHARACTERS
032122

015070
015074
015076
015102
015104
015110
015112
015116
015122
015124
015126
015130
015132
015136
015140
015144
015146
015150

015152
015154
015156
015162
015164
015170
015172
015174
015200
015202

015206

015210
015214
015216
015222
015226
015230
015234
015240
015244
015246
015250
015252
015256
015262
015266
015270
015272
015276
015302
015304
015310
015312
015316

SPCHR1:

032214

SPCHR3:

SPCHRS:

000054
CNTRLG:

023304
000003

CNTRLC:

001376
000001

CNTRLA:

001000
014666
000022

CNTRLR:

032122

000017
032152

;YES,

CNTRLE:

CNTRLO:

JUST ECHO BACK CHAR.

JPRINT '\' TO INDICATE RUBOUT
;GET LAST CHAR.
;SET 'RUBOUT' MODE

RUBSWH

EXTTY:

177106

JYES, IS IT VALID?
JNO, IGNORE IT
:YES, DECREMENT COUNTER
;IN "RUBOUT' MODE?

-(R4) ,R1

001000
014642
000005

;CHAR. = RUBOUT?

.+6

032032

000007

;NO

RUBSWH

032216

000040

SPCHR3

CHRCNT
INPUTA
CHRCNT

032214
032216

104003
000002
122701
001740
122701
001717

:INTERRUPTED FROM PRINT ROUTINE?
;YES, CHECK FOR '“G'

CNTRLG
#177 ,R1

000177

000015

PRTSWH

ECHO
#15,R1
SPCHR5

;CHAR. =

sNO

'"CR'

CRLF

:YES, PRINT

GETREG
RTI

JRESTORE REGISTERS
JEXIT

;CHAR. = SPACE?

#40,R1

:YES, ECHO BUT DON'T SAVE IT

ECHO
#54 ,R1
INPUTB
87,
CNTRLC
PC,

EXTTY

;CHAR = 'COMMA'?

;YES, SAVE IT

;figNTROL-G?

UPDAT1

;CHECK FOR SOF TWARE SWR
JEXIT
:CHAR, = '~(’
JNO CHECK FOR '*A'
;RETURN TO MONITOR
;CHAR. = "*A' ?
;NO, CHECK FOR '“R'
JRESET STACK POINTER
;GO TO THE RESTART ADDRESS

#3,R1
CNTRLA
MONITR
#1,R1
CNTRLR
#1000,
SP
@AVECTR
#22 ,R1
CNTRLE
#1000,
SP
TR
aRVEC
#5,R1

CNTRLO

aEVECTOR
PRTSWH
TYPEQM

#17 ,R1
EXTTY

OPRTSW

EXTTY

°'CR=LF'

;CHAR. = '*R'
;NO, TEST FOR '“E’

JRESET STACK POINTER
;GO TO RESTART ADDRESS
JCHAR.=""E"'?
:NO,TEST FOR '*0°'.

;CLEAR OUT THE BUFFER.
;CONTINUE ON TO NEXT SUBTEST.
;INTERRUPTED IN FROM PRINT ROUTINE?
JNO, ILLEGAL ENTRY
:CHAR, = '*0"?
JNO, IGNORE IT
:Zf§f SET/RESET PRINT INHIBIT Sw.
JEX

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11
3752
3753
3754
3755
3756
3757

015320
015322
015324
015330

TYPEQM:

104012

031702
000137
000000
015434

MACY11 30A(1052)
20-JAN-78
SUBROUT INES

014720

INBUF:

PRINT
QMARK

.9y

09:11

JMP
XTTYIN+2
O
.=.+66.

PAGE 88

SEQ 0109

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781

19-JAN-78 14:50

015434
015440
015444
015446
015452
015456
015460
015464
015470
015472
015476
015502
015504

015510

015514
015516

015522
015526
015530
015534
015540
015542
015546

015552
015554
015560
015564
015566
015572

015576

015600

015604

015606
015610
015614

015616
015622
015630
015632
015634
015636
015642

122701

20-JAN-78
MACY11 30A(1052)
SUBROUT INES

09:11

PAGE 89

SEQ 0110

; SUBROUTINE TO CHECK FOR AND PRINT PDP=70 CONTROL CHAR.'S
#DC1,R°
CMPB
;YES, CHAR = 21?

000021
015650

:
PDMSET

PC.,PDMPRT

;PRINT PDM CNTRL

000022
015650

#DC2.R1

;CHAR = 227

000023
015650

#DC3,R1

000024
015650

#DC4 R
PC,PDMPRT

000002
015650

#STX,R1

PC,PDMPRT

;PRINT PDM CNTRL CHAR.

000026
015650

#SYN,R1
PC,PDMPRT

;PRINT PDM CNTRL

000001

015650

#SOH,R1
PC,.PDMPRT

;PRINT PDM CNTRL CHAR.

000017
015650

#SI1.R1
PC.PDMPRT

;PRINT PDM CNTRL

000004
015650

#EOT ,R1
PC.PDMPRT

;PRINT PDM CNTRL CHAR.

000003
015650

#ETX,R1
PC.PDMPRT

;PRINT PDM CNTRL

000140

#140,R1
PDMST1

PC.PDMPRT

PC,PDMPRT

032150
032142
032142

SENDSW

000110

032142
PDMST1:
PDMST2:

032142
000002

°DC1°

CHAR.

:PRINT PDM CNTRL CHAR.
:TEXT *DC2’

;CHAR. = 23?

;PRINT PDM CNTRL CHAR.

:TEST °'DC3’

;CHAR. = 24 1
;PRINT PDM CNTRL CHAR.

CHAR.

;IS CHAR. PRINTABLE?

sNO, PRINT AS CONTROL CHAR.
TYPE IT

SYES,

PDMSTO

PDMSTO:

000000

:TEXT

015662

PDMPRT:

XPDMES: 0

PEXTZ2:

FORMT1
FORMT1,472.
PDMST?2

FORMT1
R
PC

;PRINT AS CONTROL CHAR.

PEXT2
a(SP) ,XPDMES

;CHAR. MAT(H?

FORMT1

JRE-SET

JEXIT
;CHECK NEXT WORD

#2,(SP)

;YES, GET ADDRESS OF MESSAGE
'CR/LF'

;CLEAN UP S TACK

FORMAT SW.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1T

3812
3813
3814
3815
3816
3817

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

SUBROUT INES

09:11

PAGE 90

SEQ 0111

IRARRRARAERRIRRARRRARA
AR ARRA AR RNARRARRARRARRARRAARARRARRAARAR R

;COMPUTE THE RESULT OF 'X' CONVERSIONS AS HIGH,LOW AND AVERAGE

;THE ROUTINE IS ENTERED WITH THE NUMBER OF CONVERSIONS TO BE TAKEN IN °'R1°'

JAND WITH 'R2' CONTAINING THE ADDRESS OF THE DATA TO BE AVERAGED.

:t't'ttttttttttttfifitttttt'ittfittitttttttttttttttttit'tfifiittt*'tfi.'

015702
015704
015710
015714
015720
015724
015730
015732
015736
015740
015744
015746
015752
015756
015760
015764
015766
015772
015776
016002
016004
016006

016012
016014

016116
016114
016124
016120
016110
016124

016124
016124
016120

XAVRAGE
: SAVREG
CLR
CLR
CLR
CLR
MOV

GETDAT: MOV
TST
BEQ
CMP
BLE
TSTLO:

016120

BEQ

CMP

BGT

016120
016114
016116
016016

MOV
TST

MOV
ADD
ADC
DEC
:
AVGDAT

BNE
JSR
GETREG
RTI

HIDIVD

LODIVD

HIGH
LOW
R1,LODIVR

(R2)+,R4

HIGH

.+10

R4 ,HIGH
TSTLO
R4 ,HIGH

LOW

.+10

;SAVE REGISTERS
;CLR HI-ORDER DIVIDEND
;CLR LO-ORDER DIVIDEND
;HIGH
;8 LOW
;SET UP DIVISOR FOR DIVIDE
:GET VALUE
;IS NEW NO. GREATER THAN OLD NO.?

;NO,

TEST IF LESS THAN

;YES, SAVE NEW HIGH

R4 ,LOW
+6
R4 ,LOW
R4,LODIVD

:Ngu NO LESS THAN OLD NO.?

GETDAT

sNO

HIDIVD
R1

PC,DIVIDE

sYES,

SAVE NEW LOW

;ADD VALUE TO LOW-ORDER DIVIDEND
;ADD CARRY TO HI-ORDER DIVIDEND
;DONE?
;PREFORM DIVIDE

;YES, RESTORE REG.'S
SJEXIT

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

MACY11

30A(1052)
20-JAN-78
SUBROUT INES

I
09:11

2222322222222 3222222332223

SEQ 0112
222332333 3322323222222

:DOUBLE PERCISION DIVIDE SUBROUTINE

222

Rttt

;THIS ROUTINE IS ENTERED THIS WITH THE DIVISOR AND DIVIDENT PRE-LOADER

s INTO THE ROUTINE.

;t'tt'.tt't.tfiiittttitfi!t'tt'tkifitttttt.t!tttttfittfit'ititt.ttttfi't

3877
3878

016104
016106
016110
016112
016114
016116
016120
016122

016124
016126

000771
060103
010337
006201
001403
005205
010537

000207
000000
000000
000000
000000
000000
000000
000000

016110
016112
016114
016116

DIVIDE:

DIVDIT:

SAVREG

MOV
MOV
MOV
MOV

CLR

LODIVR,R1
HIDIVR,R2
LODIVD,R3
HIDIVD,R4

;SAVE REG.'S
JGET LOW ORDER DIVISOR
;GET HIGH ORDER DIVISOR
;GET LOW ORDER DIVIDEND
;GET HIGH ORDER DIVIDEND
sUSE 'R5' TO STORE QUOTIENT
;SUBTRACT L=0 DIVISOR FROM DIVIDEND
;SUB CARRY FROM HI-ORDER DIVIDEND
;SUBTRACT HI-ORDER DIVISOR

;SUBTRACTION SUCCESSFUL?
;NO, EXIT

;YES, INCREMENT QUOTIENT
;PREFORM NEXT SUBTRACTION
;ADD BACK OVERFLOW

;SAVE AS REMAINDER

016126
.+10
.+
R5
RS, QUOENT

016122
—

3869
3870
3871
3872
3873
3874
3875
3876

016024
016030
016034
016040
016042
016044
016046
016050
016052
016054
016056
016060
016062
016066
016070
016072
016074
016076
016100

104002
013701
013702
013703
013704
005005
160103
005604
160204
005704
100402

LODIVR:

HIDIVR:

LODIVD:
HIDIVD:
LOW:
:
QUOENT
HIGH:
REMAIN:

3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868

016016
016020

OCOOOOCODO 2

3848
3849

;18 REMAINED > THAN HALF DIVISOR?

“YES. ADD '1°' TO QUOIENT
;SAVE QUOIENT

JRESTORE REGISTER

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11

20-JAN-78
MACY11 30A(1052)
SUBROUT INES

J
09:11

:ttt"itt.tittfitfit'ttfi

9
PAGE 92

SEQ 0113

1232322222333 3323232333333 232322333233322223232 322222t 2]

;DL11 RECEIVER INITIALIZATION ROUTINE.

;THIS ROUTINE SETS UP A RECE.VER BUFFER WHERE DATA IS STORED AS IT COMES

;IN FROM THE DL11 RECEIVER.

:ttt*ttt*tfitttittttt*fifitt"ttttttttttittttttt.ittttttfiittttt**"ttttit'*

016130
016134
016140
016142
016146

016150
016154

012700
010037

016234
016232

XRECRO: MOV

016274

CMP
BNE
CLR

MOV

CLR

016220
016224
016234
016222
016226
016230
163154

000100
016234

CLR
CLR
CLR
CLR

#RECBFO,RO
RO,RECVPT

(RO) +

#RgCBFO*éO.RO

RECBFQ

RECDC3

RECSTX
RECETX

#100,aRCSRO
#RECBFO,R2
PARITY:

RECDC3:

RECEOT:
RECSTX:
RECETX:
RECVPT:

RECBFO:

RECEND:

'20' LOCATIONS OF BUFFER

PARITY
RECEOT

aRBUF 0

163144

;CLR 1ST

;CLR RECVR. FLAGS

;ENABLE THE INTERRUPT
;SET UP BUFFER POINTER

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

3912
3913
3914
3915
3916
3917
3918
3919
3920

MACY11

30A(1052)

20-JAN-78

SUBROUT INES

09:11

PAGE 93

SEQ 0114

:ttttt'it#'iitittt*ttfi.'itt'ttttt*t*tli*itfittttttitttttttttt*t*tttiit.fii

.SBTTL DL11 RECEIVER SUBROUTINE.

JROUTINE IS ENTERED ON DL11 RECEIVER INTERRUPTS WHERE THE CHARACTER IS
;READ & SAVED IN A BUFFER.

;tfittttttttttittttt'ttttt"ittttttttttiittt*lfittitttttttittt"tttttfitttt

016740
016742
016744
016750
016754
016756
016760
016766
016772
016774
016776
017000
017006
017012
017014
017020
017022
017026
017032
017034
017040
017042
017046
017050
017054
017056
017062
017064
017070
017072
017076
017100
017104
017106
017112
017116
017120
017122
017124

017130
017134
017136
017140

010146
010246
013701
017702
110221
105011
012737
020127
003054
005702
100013
012737
032702

RECVER: MOV
MOV
MOV
MOV

016232
162404

024070
016736

024161
040000

MOvVB
CLRB
MOV
CMP

017136

010000
016220
000004

RECVR1:

016224

R1,=(SP)

R2,=(SP)
RECVPT ,R1
@RBUFO0,R2
R2.(R1)+
(R1)
#MES2 ,ERRMES
R1,#RECEND
RECERR

R2
RECVR1
#MES4 ,ERRMES
#40000,R2
RECERR
#10000,R2
+6
PARITY
#EOT R2

.+10

RECEOT
RECEXT

032132

016222

;SET UP BUFFER POINTER
;READ & SAVE CHAR.
;SAVE CHAR. IN BUFFER

s TERMINATE BUFFER W/ NULL

CHAR.

sNO, SET UP 1ST ERROR MESSAGE
sRECEIVER BUFFER FULL?

;YES PRINT BUFFER FULL MESSAGE

::GS RECVR. ERROR DETECTED?

;SETUP 2ND ERROR MESSAGE

;OVERRUN FLAG SET?
;YES, PRINT OVERRUN ERROR MESSAGE
;PARITY BIT SET?

sNO, OK
JYES, SET PARITY ERROR FLAG
;CHAR. =EOT?
sNO

SIOSWH

JUSING SERIAL INPUT OPTION?

#DC3,R2
.+10
RECDC3

;CHAR. =D(3?

RECEXT

000023

;SAVE REG'S 'R1BRZ2' ON STACK

SYES,

EX17

:NO

sYES, SET FLAG

000003

RECEXT
#STX ,R2
+10
RECSTX
RECEXT
#ETX,R2

016230
016232

RECEXT:

RECETX
RY,RECVPT

;YES, SET FLAG

162226

RECERR:

akCSRO
SENDSW

;DISABLE FURTHER INTERRUPTS

000002
016226

032150
001376

ERRMES:

;CHAR. = STX?

sNO
JYES,

SET FLAG.

;CHAR. = ETX?
:NO

(SP)+,R2
(SP,+ ,R1

MONITR

;MODIFIED DEPENDING ON TYPE OF ERROR
;RETURN TO MONITOR ON RECVR. ERRORS

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978

19-JAN-78 14:50

20-JAN-78

L
09:11

DL11 RECEIVER SUBROUTINE.

9
PAGE 94

;tiittttt'ttttt.fiii'tt tt*fittttt*filiii*'i‘ttittttitttt.ttltfiitt*tt'tt't

;IF THE CONTROL MODULE IS BEING USED THIS ROUTINE PADS THE DATA
;BEING TRANSMITTED SO THAT THE DESTINATION PORTION OF THE
;SERIAL 1/0 MODULE GETS ADDRESSED.

:titttitiiitttit*tflt.'ittittti*t**tttttttitiittifiitttttttti.itttt*ttfifit

017144
017150
017152
017154
017156
017162

005737
001463

032132

XSOURC:

104006

000002
005237
000456

032154

TST
BEQ
%?gHRO

SIOSWH
XLDADD

INC
BR

TERMSW
XLDADD

;SERIAL 1/0 INPUT?
:NO, NORMAL LOAD
JYES, SEND 'STX' TO ENTER ADDRESS MODE

IRRARAARAARRARARRARAAARRRERRARAERRRRRERARRR
AR AR RRARRARARRRARRAARAR AR

sIF THE CONTROL MODULE IS BEING USED THIS ROUTINE PADS THE DATA
;BEING TRANSMITTED SO THAT THE SOURCE PORTION OF THE SERIAL 1/0
;MODULE GETS ADDRESSED.

3979
3980

3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996

MACY11 30A(1052)

;ttttittti*ttfitfitttitfiit"'t*it*ttttittttttt.tittttititfi.ttttttttt.tit'tfit

017164
017170
017172
017174
017176
017200
017201
017202
017203
017204
017205

005737
001453

017206
017212
017216

005237
005237
000440

032132

XDSTIN:

TST
BEQ

SIOSWH
XLDADD

;SERIAL 1/0 INPUT?
sNO, NORMAL LOAD

BR
.BYTE
.BYTE

XDSTG1
STX
DC1

;CLEAR FIFO
;ALERT SOURCE

.BYTE
.BYTE

61
0

INC
INC
BR

TERMSW
DSTSWH
XLDADD

LDzGMO

104007

017200
000403

021
075
C01

IADRS9:

000

032154
032146

XDSTG1:

.BYTE
.BYTE

75
SOH

;ADD, ADD CODE TO ADDRESS SOURCE

;MODIFIED BY USER
;SET UP MODE '1'; WAIT

SEQ 0115

CZ
czl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
3997
3998
3999
4000
4001
4002
4003

20-JAN-78 09:11
MACY11 30A(1052)
DL11 RECEIVER SUBROUTINE.

PAGE 95

SEQ 0116

2222222332333 3233 3333332333333 23 3333333333333323333222323332222332222R
R Rl

:SUBROUTINE TO ADDRESS ANY SOURCE MODULE

;ttttifiltt*Qt*t*ttttfittiti'tfitttttiii.ttfit**ttfiitt'*ttttttttti***ttt*ttt*t

ADRSRC:

017220
017222
017224
017226
017227
017230
017231
017232
017233

SRCADR:
SOH1:

;ADDRESS AS SOURCE

SOURCE

+4
RTS

.BYTE

.BYTE
.BYTE
.BYTE

.EVEN

DC1
SOH

60
DC(3
0

sALERT MODULE

;ADDRESS MODIFIED BY USER
;ADDRESS MODIFIED BY ME

;ttiittt*tii**ttflfitt*t*i'ttittt.iittttttttttttfitfi*ttttttfitttfiiitttttittt

;SUBROUTINE TO ADDRESS ANY DESTINATION MODULE

;tttttttitfitttittttt**ttttttitfititfi'itttttitttfiittttttitttttttttttfi*tttt

017234
017240
017242
017250
017252
017260
017262
017270
017272
017274
017276
017277
017300
017301

005737
001004
122737
001404
112737
0004
112737
104024
017276
000207
022

ADRDST: ggg

032132

000023

017300

000023

017300

000017

017300

CMPB
BEQ
MOVB

MOVB
DEETIN

SI?3UH

JUSING SERIAL 1/0?

:NO,

#DC3,DSTADR+1
412
#DC3,DSTADR+1
.+10
#S1,DSTADR+1

:YES, USING °'DC3'?
;YES, LOAD 'SI'
;NO, LOAD DC3
;ADDRESS DESTINATION

RTS

DSTADR:

023
000

.BYTE
.BYTE
.BYTE
.BYTE

DC2
60
DC3
0

;ALERT MODULE
;ADDRESS MODIFIED BY USER

2222222233233
2323332232332 232222222ttt

:SUBROUTINE TO TRANSMIT A SINGLE CHARACTER VIA THE DL11.

;ttttiitttttt*ttt*fittttttttttttttitfitittkfiitfitilttt'tttttttittflfitttttttfi

017316

005237
011637
062716
000404

XLDCHR:

017664
017666
000002

XLD1:
TR

INC

MOV
ADD
BR

A AR A AR AR AR AR

SNGCHR

(SP) , TRANPT
#2,(SP)
TRNSMT

;SET SOFTWARE FLAG

sSET UP ADDRESS OF CHAR.
sSET UP STACK TO EXIT

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

TO BE TRANSMITTED

Ak kR

;§EER881{NE TO SETUP AN ADDRESS FROM WHICH DATA IS TO BE TRANSMITTED VIA
:ttttttttttittttttttttt'ti'tttifitfittttitttfi*ifittttttiitfittittttttttiiit'

017320
017326

017637
000771

000000

017666

XLDADD: MOV

a(SP)
, TRANPT

XLD1

;SETUP ADDRESS OF DATA TO BE TRANSFERRED

CZ
2zl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063

N
20-JAN-78 09:11
MACY11 30A(1052)
DL11 RECEIVER SUBROUTINE.

PAGE 96

SEQ 0117

'ttittt*tttttttitt*tt*u*itt**tfitii*fitttitfitttiiitttittttttttttifififittttti

.SBTTL DL11 TRANSMITTER ROUTINE
sTHIS ROUTINE 1S ENTERED WITH THE ADDRESS OF THE CHARACTER OR CHARACTERS
;TO BE TRANSMITTED IN ADDRESS 'TRANPT'.
CHARACTERS ARE TRANSMITTED UNTIL

:EITHER AND 'EOT', 'EXT' OR A NULL CHARACTER IS TRANSMITTED. IF *Sw11’
;1S SET, THE SAME CHARACTER IS TRANSMITTED EVERY TIME. IF °'Sw12' IS SET,
*THE PROGRAM WAITS FOR A 'CR' TO BE TYPED BEFORE THE CHARACTER IS TRANS:MITTED.
AS IT IS TRANSMITTED, IT IS ALSO PRINTED.
:fi*ttttttt*it*ttttit*tt't"tt*Rttttttlttifitfi.**ttttt*t*tttttttitt*ititi

017330
017332
017336
017342
017344
017350
017356
017360
017364
017366
017372
017374
017402
017404
017406
017410
017412
017416
017420
017424
017426
017430
017432
017440
017442
017446
017450
0i7454
017460V
017462
017466
017470
017474
017476
017502
017510
017512
017516
017520
017522
017524

104002

012746
012748

00000
013701
032777
001406
005237
000001
005737
001374
032777
001401
105741
105711
001446

017666

010000

004000

122711

000023

161750

100375
111177

010000

122711
001403
122721
001325
005037
032777
001004

000004

000002

TRAN? :

TRANZ:

000003

017664
001000
032144

161642

TRNEXT:

#0,

#s,

=(SP)

-(SP)

;ENABLE INTERRUPTS

MOV
BIT
BEQ
INC
WJAIT
TST
BNE

TRANPT ,R1
#SW12,aSWR
TRANT
CHRCNT

TSTB

=(R1)

;YES, BACK UP POINTER

BEQ
CMPB
BEQ
CMPB

TRANG
#EOT, (R1)
TRAN4
#DC3, (R1)

JYES, EXIT

TSTB
BEQ

(R1)
TRNEXT

BIT
BEQ

CHRCNT
-6
#SW11,@SWR
+4

TSTB

(R1)

BEQ

BIT
BNE
;glfl
MovB

161710

017664

104003

161712

161714

005737

005737
001001
104004

TRAN1:

TRAN3:

105711

001422
032777
001103
105777

1$:
TRANO:

032214

000004

001453

161774

032214

122711

001443

TRNSMT: SAVREG
MOV
E?Y

000000
017344

TRANS

;TRANSMIT SAME (HAR.?
sNO
;DONE?

; TERMINATOR CHAR.?
JYES, EXIT

#SW12,aSWR
TRANG
GXESRO

:TRNSMITTING SINGLE STEP?
;YES, PRINT CHAR. TO BE TRANSMITTED
:WAIT FOR READY

(R1) ,axBUFO

s TRANSMIT CHAR.

TRNEXT

;YES, EXIT

TST

SNGCHR

(MPB

#EOT, (R1)

BNE

;SET UP TRANSMITTER BUFFER POINTER.
;SINGLE STEP TRANSFER?
:NO,
;YES, SET TTY SOFTWARE FLAG
;WAIT FOR 'CR'
;WAS THE INTERRUPT FROM TTY?
;NO, WAIT AGAIN

sSINGLE CHAR.

TRANSFER?

;TRANSMITTED LAST CHAR.?

BEQ
CMPB
BNE

TRNEXT
#ETX,(R1)+
TRANO

JYES, EXIT

BIT
BNE

#SW09,aSWR
+12

;1S DATA 'SW9' SET?
;YES, INHIBIT DELAY

CLR

TST
BNE
DELAY

GETREG
RTI

SNGCHR

DLYSUH
+4

;NO, TRANSMIT NEXT CHAR.

s ISSUE DELAY?
;NO, SKIP IT

;DELAY BEFORE EXITING
sRESTORE REG.'S
JEXIT

w4
czi

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
4102

4103

017526
017532
017534
017540
017542
017544
017546
017547
017550
017551
017552
017553
017554
017560
017562
017566
017572
017574
017600
017602
017610
017612
017620
017622
017630
017634
017636
017640
017642
017643
017644
017645
017646
017650
017652
017654
017660
017662

005737
001735
005037
104007

B 10
PAGE 97

20-JAN-78 09:11
MACY11 30A(1052)
DL11 TRANSMITTER ROUTINE
TRANS:

032154

TST
BEQ
CLR

TRANGA: LDPGMO

.44

017546
000754
021
075

IADRS7:

BR
.BYTE
.BYTE
.BYTE
.BYTE

061

TRANS:

032154
032154
032146

032136
017644

0176356

017643

017636

017642
032146

017636

TST
BEQ
CLR
TST
BEQ
TST

BEQ
TRANSA: MOV
BR
TRANSB: MOV
BR
TRANSC: MOV
TRANSD: CLR

LDPGMO

: .+
TRANSE
8R
: .BYTE
TRANSF
1ADRSS8: .BYTE
TRANSG: .BYTE
.BYTE
BR
TRANG:

015434

SAVREG
MOovB
JSR
GETREG
BR

017664
017666
017670

SNGCHR: 0
TRNBFO:

TRANPT
:

TRNSBF
0
0

020372

TRNEND:

.=.+500

TERMSW

TRAN3

TERMSW
TRNEXT

DC1

75
SOH

61
DC3
ETX

TERMSW

TRAN3

TERMSW

DSTSWH

TRANSC

REPTSW

TRANSB

#TRANSG, TRANSE
TRANS5D
#1ADRS8, TRANSE
TRANSD
#TRANS
, TRANSE
F
DSTSWH

.+6
DC2
75

DC3
0

TRAN4A

(R1) ,R1

‘PC,PDMSET

TRAN7

SEQ 0118

;ADDRESS SERIAL 1/0?

;NO

;YES, ADD CODE TO ADDRESS SOURCE
;ALERT SOURCE
;MODIFIED BY USER
JENABLE IT
;SOURCE INPUT SW. SET!
;NO, NORMAL TRANSMIT
;YES, ADDRESS DESTINATION
;CURRENTLY ADDR. A DST. MODULE?
TO ALERT DST.
;NO, SEND 'DC2'
:%SS.USING REMOTE DST.?
;YES, DON'T ENABLE MY DST.
;YES,

SEND ONLY THE ADDR.

;SEND 'DC2’

;ALERT DEST.
;MODIFIED BY USER

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163

C 10
PAGE 98

MACY11 30A(1052) 20-JAN-78 09:11
DL11 TRANSMITTER ROUTINE

;ttttttttttltttt.'fitfifi."t'i'tt'fittt*.!QQ*tti'ti*ttttfi'*ittttfi'itQttittt

;ROUTINE TO REQUEST & SAVE MODULE ADDRESS TO BE USED FOR TESTING

;tttttt'fifiittttttttttfit"t'tti.tfittttfitttflttttttttt.tfitttttttti.ttittttt

020374
020376

XADRES: PRINT
MES30

104012

025263

104015
152700

005737
001403
123700
001765

110037
110037
110037
000002

ASEMBL
BISB
TST
BEQ
CMP8S
BEQ
MOvB
MOvB
MOvB
RTI

000060
032132
002214

032134
017227
017277

XADRES
RO,MODADR
RO,SRCADR
RO,DSTADR

;SET UP SOURCE ADDR.
;SET UP PARAMETERS ADDR.
;YES, EXIT

;TRAPPED 'FROM' AND WHERE IT TRAP °'TO'.

4166

4174

.+10
1ADRSO,RO

;CONVERT TO ASCII
;SERIAL INPUT?
;NO, ALLOW ANY ADDRESS
;YES, CHECK AGAINST SERIAL /0
;SAME, REQUEST IT AGAIN

*SUBROUTINE ENTERED ON AN ILLEGAL TRAP. THE ROUTINE REPORTS WHERE IT

4165

4175
4176
4177
4178
4179
4780
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194

#60,R0
SIOSWH

;TEXT 'MODULE ADDR.?'
;WAIT & DECODE INPUT

ttttttt.tfittttttttltttt't't'ttfii.Qttti**tttfifiitttttttttttttittttttttttt

4164

4167
4168
4169
4170
L7
4172
4173

SEQ 0119

ttttttt*ttttttttitttfitt*tttttttfittttfitfitttttttttttttttttttfitittitt*fitti

020440
020444
020446
020452
020454
020456
020464
020466
020470
020472
020474
020502
020504
020506

011637
022626
011637
104012

024205

162737
104014
032156
104012
024227
162737
104014
032162

000137

ERTRAP: MOV
POP2SP

032156

032162
000004

000002

MOV
PRINT

032156

032162

001376

MES5
SuB

(SP) ,TOPC

;SAVE LOCATION WHERE IT TRAPPED 'TO'

(SP) ,FROMPC

;SAVE WHERE IT TRAPPED FROM.

#4,TOPC

PRTOCT
TOP(
PRINT

MES6
SuB

PRTOCT
FROMPC
JMP

sTEXT "ILLEGAL TRAP TO'
;TYPE

#2 ,FROMPC

MONITR

"PC'

TRAPPED TO

;TEXT "FROM'
;TYPE WHERE

IT TRAPPED FROM

sRETURN TO MONITOR

lt'tttttt.ttttfifittttttt"ttt'tfittttttfififittfi.*'tt!tttttttittttfifiti

*SUBROUTINE TO REQUEST A/D CHANNEL FROM TELETYPE

ttttttitt'tttittttttttt*"tfitttttitti'fitfiti*ti.ttttitt'tttfitttttt

020512
020514
020516
020520
020526
020530
020536

XCHANEL :PRINT
MES17

000064

015330

017231

TTYIN

CMPB
BLE
MOVB
RTI

#64
, INBUF
XCHANEL

SOH1
INB, UF

:TEXT *CH.?'
JWAIT FOR INPUT
;LEGAL CH.

:NO, REQUEST NEW CH.
;YES,

JEXIT

SETUP (CH.

4195
4196
4197
4198
4199
4200
4201
4202
4203

4,204

4205
4206

4207
4208
4209

4210
4211
4212
4213
4214
4215
4216
4217
4218
4219
4220
4221
4222

4223

MACY11 30A(1052)

D 10
09:11
PAGE 99

DL11 TRANSMITTER ROUTINE
SERRRERRAAARRRRRRARANE

SEQ 0120

REARARAAAARAAARARRRARREARRRARRRARRARRRRAARR
AR RN

;MODULE ERROR REPORT ROUTINE.
;THIS ROUTINE IS ENTERED WHEN A MODULE ERROR IS DETECTED.

IT PRINTS THE

JFAILING TEST NUMBER, THE MEMORY ADDRESS (MA) WHERE ERROR OCCURRED AND
;AN ERROR MESSAGE OBTAINED IN THE ERROR CALL+2

;tt'tttttitit..tit*fi*fifitttttttt**tt*ttti'tt"ttfi*tttttttfitttittt.tt*tttt

020540
020546
020552

020560
020564
020572
020574
020576

020600
020602
020610
020612
020614
020616

020620
020624
020626
020632
020634

042777
011637
017637
062716
032777
001012

000100
032200
000002
020000

020616

XERMES: BIC
MOV
MOV

160560

BIT

160610

032206

104016

162737
104014

000002

#SW13,aSWR

;PRINT ERROR MESSAGE?

BNE

ERREXT

PRTOCT

104012

MESADR: 0

000000

005777

160526

004737
000001
000002

021626

ERREXT:

:?iT

JNO, EXIT

3YES
JPRINT FAILING TEST NO.

;PRINT

TST
BM]
JSR

;SET UP STACK TO EXIT

#2 ,KSTOR3

ES}O?B

032200

100403

;CLEAR RECVR. INTERRUPT ENABLES.
;SAVE 'PC'
;SAVE MESSAGE ADDRESS

#2,(SP)

SuUB

032200

#100,aRCSRO
(SP) ,KSTOR3
@(SP) ,MESADR

ADD

PRTOCT
TSTNUM
SPACE

104014

4224
4225

'MA' WHERE ERROR OCCURRED

;PRINT ERROR MESSAGE

aSWR
.+10
PC, TTYENB

JHALT ON ERROR
;NO
JWAIT FOR

'CR'

TO CONTINUE

:ttt'tt'tt.ttti'ttfiQ*tti'.ttttttt.fififi.fititttttfiitttt*tt.ttttttifitttttt'

;SCOPE AND/OR ITERATION LOOP FOR EACH LOGIC TEST

4226
4227

:t'tt'ttlt.ttttttttt*ltt'it'!tt*t'ttttfifii*t'*t***tttitQtt*!fitttttt**itt

104017
104005

4228
4229
4230
4231
4232

032777

160502

004000

160472

023737

020772

020770

005237
022606
012646
012746
000002
000177
005037
011601
011137
062716
017701
042701
020137
001005
104012

020772

100011

4240
4241
4242

020750

XSCOPE:

040000

001012
032777
001015

4233
4234
4235
4236
4237
4238
4239

4243
4244
4245
4246
4247
4248
4249
4250

20-JAN-78

020710
000060
020772

032206

TSTTKS
RECVRO
BIT
BNE

BIT
BNE

SCOPEB:

CMP
BPL
INC

(MP
MOV
:?Y

1%:
JMP
SCOPEG: CLR
MOV
MOV
ADD

MOV

032206

BIC

CMP
BNE

#40000,aSWR
SCOPEB

#4000,aSWR
SCOPEG
SCOPEF ,ICOUNT
SCOPEG
SCOPEF
(6)+,SP
(6)+,
=(SP)
#s,
=(SP)

aRETURN
SCOPEF
aSP ,R1
(R1) ,TSTNUM
#2,(SP)

;CHECK FOR KEYBOARD FLAG
;ENABLE DL11 RECEIVER
sTEST SwW=14 FOR SCOPE
;YES, SCOPE

sNO-TEST SW=11 FOR ITERATION
sINHIBIT ITERATION
;COMPARE CURRENT COUNT TO MAX NUMBER
sEXIT-DONE
s INCREMENT COUNT
sREPOSITION STACK
;RESTORE PREVIOUS PROCESSOR STATUS
;REPEAT TEST
;CLEAR COUNT
;SAVE TEST NO.

aSWR,R1

;READ SW'S

R1, TSTNUM
L+14

“HALT ON THIS TEST
*NO

#177700,R1

*CLR UNWANTED BITS

:YES

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PI

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1
4251

4252
4253

4254
4255
4256
4257
4258
4259

4260
4261
4262

19-JAN-78 14:50

020752

020754
020756

020760
020762
020766
020770
020772
020774

MACY11 30A(1052)

E 10
09:11 PAGE 100

DL11 TRANSMITTER ROUTINE

024437
104014

MES13
PRTOCT

032206

104013
011637
000002
000000
000000

20-JAN-78

;TEXT 'BREAK AT SCOPE X'

TSTNUM

TTYIN
MOV
RTI
ICOUNT: 0
SCOPEF: 0

020774

000000

SEQ 0121

aSP ,RETURN

RETURN: 0

sWAIT FOR "CR' TO CONTINUE
;SAVE SCOPE RETURN POINTER
;RETURN INLINE-NEXT TEST
s ITERATION COUNT
;COUNT LOCATION FOR ITERATION LOOP

4263

"Qti*ttt.*ififitfi*.fi*t**titfittttfitt"tittttfi'fi*ttttttfi*tt*ttfi*ii*tfitfitttit

4267

."'tt*tfittt..tfi.'t**ttfiii't'fififitttitt*tfi*iQfittttfitfittttflt*tttttt'i'.QQ'Q

4264
4265
4266
4268

4269
4270
4271

4272
4273
4274
4275
4276
4277
4278
4279

4280
4281

4282

4283
4284
4285

4286

4287
4288
4289
4290
4291
4292
4293
4294

;RANDOM NUMBER SUBROUT INE
;THIS ROUTINE CREATES A RANDOM NUMBER, MASKS IT TO EIGHT BITS AND SAVES
;IT IN THE TRANSMITTER BUFFER AREA.
020776
021002
021010

021016
021022
021030
021036
021042
021050
021056
021062

021066
021072

021076

021100
021104

021110

021112

021116
021120
021124
021126
021132
021134
021136
021140

012701
063737
063737

006137
063737
063737
006137
063737
063737
006137
013711

042711
032711

001002

017670
021136
021140

021134
021134
021140
021136
021134
021136
021140
021140

040000
000140

052711

000040

005721
022701
001326
005037
000002
072701
126543
101234

XRANGN: MOV
ADD
ADD

ROL
ADD
ADD
ROL
ADD
ADD
ROL
MOV

021136
021136

021140
021140

100200
060000

052711
032711

001002

021134
021134

BIC
BIT

RANA:
RANB:
RANC:

; SAVE NUMBER

;STRIPE NO. TO 7 BIT ASCII
;1S BIT 5 OR 6 HIGH BYTE SET

BIS
BIT

#40000, (R1)
#140, (R1)

;NO, FORCE BIT 6.
;IS BIT 5 OR 6 OF LOW BYT SET

BIS

#40,(R1)

BNE

020372

RANA
RANA ,RANB
RANC ,RANB
RANB
RANA, RANC
RANB
, RANC
RANC
RANC, (R1)

#100200, (R1)
#60000, (R1)

BNE

020372

#TRNBFO,R1
RANB
, RANA
RANC ,RANA

TST
CMP
BNE
CLR
RTI
072701
126543
101234

.+6
.+6

(R1)+
#TRNEND ,R1
XRANGN
+4
TRNEND

;YES, LEAVE AS IS
;YES, LEAVE AS IS

;NO, FORCE BIT

'5°*

;DONE
; TERMINATE BUFFER.

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

F 10

09:11

PAGE 101

DL11 TRANSMITTER ROUTINE

SEQ 0122

L2%6

IRRRRERAARRRAAARAARARRARE
R AR RRARIRRERRARARARRARARERRRRRRRRR AR AR RRRRRA AR AR

4298

;VIA SELECTING TEST *?°.

4297

sROUTINE TO LOOP THRU ,« SINGLE LOGIC SUBTEST.

4299

4300

4301
4302
4303

4304
4305
4306
4307
4308

4309

IRERAERARAREARRRR AR AR AR AR AR RRARARRAAARAARRRARAAR
AR AR ARARERARRAARREAR AR AN

021142
021144
021146

021150
021152
021154
021160
021162
021164

104012
024257
104015

005700
001006
005737
001016
104012
000766
010037
062737

032174

000002

032174

BR
MOV
ADD

SUBX+2
RO,KSTOR1

000002

032174

ADD

#2 ,KSTOR1

021216

020774

031702

021210

062737

021222

012737

021216

2;};

021230

4316

sTEXT °'TEST ADDR.? '
JYES, GET ADDR. FROM TTY.

032174

4314

4315

PRINT
MES8
ASEMBL

RO
SuBx1
KSTOR1
XLOOP

021166
021170
021174

021202

SUBX :

TST
BNE
TST
BNE
PRINT

4310
4311
4312

4313

ENTERED FROM THE 'MONITOR'

017737

005037

000177

QMARK

010766
020772

010740

SUBX1:

032206

#2 ,KSTOR1

MOV

XLOOP:

;WAS AN ADDRESS ENTERED?
;YES, LOAD IT
;sNO, WAS ONE PREVIOUSLY SET UP?
;YES, RUN OLD ADDRESS
sNO, ILLEGAL ENTRY

aKSTOR1,TSTNUM

CLR

MOV

;LOAD TEST NO.

SCOPEF

sKEEP COUNT AT ZERO

akKSTOR1

;JUMP TO TEST

#XLOOP ,RETURN

JMP

;ASK FOR NEW ADDRESS
;SAVE ADDRESS
JADD '2' TO POINT TO INSTRUCTION AFTER SCOPE

;LOAD SCOPE LOOP RETURN POINTER

4319

IRERRARRARRARAA AR AR AR RER AR AAARARAR AR AR RRARARARAR AR AR RRRRRRRRRRRRR AR AR AR

4320

;SUBROUTINE TO ISSUE N SPACES

4322
4323

sSPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A CALL ON
;SPACE WITHOUT LOADING SPACEX ISSUES ONLY ONE SPACE

4321

4324
4325
4326
4327
4328
4329
4330
4331

4332
4333
2%%?

;N IS ONE PLUS VALUE CONTAINED IN SPACEX

021234
021236
021242
021244
021250
021252
021256
021260
021262

104002
112701
104010
005337
003372
005037
104003
000002
000000

000240
021262
021262

XSPACE:

SAVREG
MOVB
TYPEIT
DEC
BGT
CLR
GETREG
RTI
SPACEX: 0

;SAVE REG'S

#240,R1

;OUTPUT A SPACE
sDECREMENT COUNT
;LOOP IF NOT DONE
sRESET COUNT TO ZERO

SPACEX
XSPACE +2
SPACEX

JRESTORE REG'S
sRETURN

4336

IRERRERRIR AR ARARR AR AR

4337

;SUBROUTINE TO TEST FOR THE KEYBOARD FLAG BEING SET

4338

4339
4340
4341
4342
4343

021264
021270
021272
021274

105777
100001
104013
(000002

160052

R R

TKSFLG:

TSTB
BPL
TTYIN
RTI

RERAARAR AR RARARRRARAARERRRR KA RARIRR KRR

aTKS
.+4

;FLAG SET?
;NO, EXIT
s YES,INQUIRE

RN AR RN

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PIT

19-JAN-78 14:50

MACY11

30A(1052)

20-JAN-78

G 10
09:11 PAGE 102

SEQ 0123

DL11 TRANSMITTER ROUTINE

2222332323323
33333 2332022223232

233332332222222
2Rt
R
Rttt
Rt

*SUBROUTINE TO SETUP PARAMETERS FOR THE MODULE PROGRAM TESTS.

;t"tttttttttttfifit*"ttti'ttttttfitttttfi'tfififitit'tttttitttttfi't'ttttti'tt

021276
021302
021306
021314
021322
021326
021334
021336

011637
011637
162737
013737
005037

012737
104005

020774
032124
000002
032124
020770
000001

032124
032224

XSETUP: MOV
MoV
SuB
MOV

CLR

032206

MOV

RECVRO

000002

(SP) ,RETURN

(SP) ,RVECTR
#2 ,RVECTR

RVECTR,RESTRT
ICOUNT
#1,TSTNUM

RTI

;SET UP THE

°'SCOPE' RETURN ADDRESS.

;SET UP THE RESTART ADDRESS

;AND THE

'C' POINTER

;37 W TEST

*7°

sENABLE DL11 RECEIVER

2222222332333 2333 3332332323233 3323233333333 3332222222222

"SUSROUTINE TO PRINT CHARACTER IN 'R1°

iRttt

:ttt.ttt'tttttittt'i'i*"itttitfit'fitttfitfifittttt"tt*ttt*..ttt'tt'ttt*ttt

021340
021344

021350
021352
021356
021360
021364
021366
021370
021374

004737

021626

005737
001404

032136

105777
100375

110137
104006
000004
110177
000002

157776

XTYPIT:

021366
157754

JSR
TSTB
BPL
TST
BEQ

MOvB

LDCHRO

XTYPE1: EOT
XTYPE2: MOVB
RTI

PC,TTYENB
aTPS

;ENABLE INTERRUPTS
;PRINTER READY

.~4

;sNO

XTYPEZ2
R1,.XTYPE1

;NO
JYES, SET UP TO TRANSMIT (CHAR.

REPTSW

R1.,aTPB

;REMOTE DST.?

;PRINT CHAR.

:.ttttfi.tt*ttfittfit'tttti"'tti'fittQfitlttitfi"'tttt'ttt'ttitttt*t*i*.'ttt

;SUBROUTINE TO PRINT THE CONTROL CHARACTER IN ‘'R1'.

;tttttitfit.ttttt*it!fitit"tt*'t.fi'ttfitttfittQiittt'ttttttt"ttttttttit'tt

021376

122701

000012

122701

000015

021402
021404
021410
021412
021416
021420
021422
021426

001413

021434
021440

042701
000002

021432

001410
013746

032122

032030
012637
052701

032122
000100

104012

104010

000100

XPRCNT:

CMPB

BEQ
CMPB
BEQ
MOV

UPAROW
MOV
BIS
XPRCT1: TYPEIT
BIC
RTI

#12,R1

;CHAR = LF?

#15,R1

;CHAR.

;SAVE

SW.

#100,R1

;MAKE

CHAR.

#100,R1

JRESTORE

XPRCT1

PRTSWH,=(SP)

+ ,PRTSWH
(SP)

:YES

'(CR"?
STATUS

PRINTABLE

ORGINAL

VALUE

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399

4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
4411
4412
4413
4414
4415
4416
4417
4418
4419
4420
4421
4422

4423
4424
4425
4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437

19-JAN=-78 14:50

H 10
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 103
DL11 TRANSMITTER ROUTINE
R 222222222222
22332 2233

SEQ 0124

2222232233333t
Rttt

*SUBROUTINE TO CHECK FOR AND SET UP A REMOTE DESTINATION MODULE.

:"ttt'ti't.."Qtt.t'tttttt".tfltQ.tttttttfitt'.t..tttitttt.fiti.t"'t'Qtt

021442
021444
021450
021452
021454
021456
021464
021466
021470
021474
021500

110005

005037
104012

032140

104013
122737
001003
104026

010037
110537

000207

000131

TTYIN

015330

CMPB
BNE
ADDRESS
MOV
MOovB
RTS

032140
017227
032140
032136

021524

005737
001402

032136

: MOV
SETRMT
TST

BEQ

017234

CLRMOT:

;CLR SOFTWARE SW.

;TEXT 'REMOTE DEST.?"'

000004
005C37
000207

032136

012737

000001

.+10

RO,KSTORO
R5,SRCADR

IT'S ADDRESS

;SAVE IT, THIS ALSO SETS SOF TWARE SW.
;SET UP A/D SOURCE ADDR.

;SET UP THE REMOTE DESTINATION SW.
;USING REMOTE DEST.?
sNO, EXIT
;YES, ADDRESS IT

REPTSW

.+6

REPTSW

XNODLY: MOV
RTI

;YES, REQUEST

KSTORO,REPTSW

TST

RTS

JRETURN

JSR

BEQ

JWAIT FOR INPUT
:USS YES TYPED?

RTS

EOT
CLR

032144

#'Y, INBUF

PC,ADRDST
PC

LDCHRO

104006

000002

; TEMPORARILY SAVE MODULE ADDRESS

RO,R5
KSTORO

MES67

013737
005737
001402
004737
000207

021544
021552

027256

021502
021510
021514
021516
021522

021530
021532
021534
021536
021542

: MovB
REMOTE
CLR

;OUTPUTTING TO THE DEMOTE DST.?
JNO, EXIT
;YES, SEND 'EOT' TO CLR MODULE

.+6

REPTSW
PC

JRETURN

#1,DLYSWH

;SET THE TRANS. DELAY INHIBIT SW.

:ttt'ttltttttttttttkfit'fi't'tfitttttfiittfitfi'*tttfiititttfifittfitttttitt'fitiitt'tt

;SUBROUTINE TO TRANSMIT A °'NULL' CHAR. TO THE PRINTER.

:ttfitt.fiiti't*ttittitttt't'Qtt*ittt*tt.itititii"tittittfit'ttttti'ittlttitfit

021554
021562
021564
021570
021574
021576

012737

000002

012746
012746
000002
012737
105777

000000
021576

005077
005337
001370
000002

157532

000410

100375

021624

000011
157536

021262

:
XNULL

MOV
BR
XNULLT: MOV
MOV
RTI
1%:
MOV
XNULLZ: TSTB

BPL
CLR
DEC
BNE
RTI

#2,SPACEX

XNULLZ2

#0,
#s,

-(SP)
=(SP)

#11,SPACEX
aTPS
.4
aTPB

SPACEX

XNULL2

;ENABLE INTERRUPTS

;TRANSMIT A NULL

CHAR.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1T

19-JAN-78 14:50

MACY11 30A(1052)

DL11 TRANSMITTER ROUTINE

4438
4439

2222222322332
2

L4464

4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464

4465
4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491

SEQ 0125

2222222223333 2233222222222

*SUBROUTINE ENABLE KEYBOARD INTERRUPTS.

4440
4441

4442
4443

20-JAN-78

I 10
09:11
PAGE 104

iRttt

;t'ttiil"t'tt'.'fi'*fiiti"ttt.'tt'fit.flfi.l'tttttttttttt"'tt'ttttttttttlttttt

021626
021634
021640
021644
021646

012777
012746
012746
000002
000207

000100
000000
021646

157506

TTYENB: MOV
MOV

#100,aTKS
#0,
-(SP)

1$:

MOV
RTI
RTS

-(SP)

sYES, ENABLE TTY INTERRUPTS
JENABLE INTERRUPTS

:ttQttttiQtitittt*itit"ttttttttittfit'i.ttttt*fitt*ttttt'tttt'tttt.t'fittt

:MESSAGE PRINT ROUTINE, ENTERED VIA EMT DISPATCH HANDLER.
:ROUTINE PICKS UP CONTENTS OF THE

'PC' AND USES THIS AS

:THE ADDRESS OF MESSAGE TO BE TYPED.
;1S NEXT MESSAGE SWITCH

:% IS CRLF SWITCH

:@ IS END OF MESSAGE SWITCH

;.i'it*tlt.tttt'i*fitfifii'it'ttt!tflfit.fi'tittttfiktttttttttt'ttt't't!"t'ttt

021650
021652
021656
021662
021666
021672
021676
021700
021702
021704
021710
021712
021714
021716
021720
021724
021726
021732
021734
021740
021744
021746
021750
021754
021756
021762
021764
021766

021770
021774

032152
032122
021626
000000
000002

XPRINT:

SAVREG
CLR
INC

OPRTSW
PRTSWH

TST

(R2)+,R1
R1

JSR
TYPER3: MOV
ADD
TYPERA: MOVB

PC,TTYENB
a(SP) ,R2
#2,(SP)

SJENABLE TTY INTERRUPTS
;GET THE MESSAGE ADDRESS FROM STACK
;SET UP STACK TO EXIT

PRTEXT
#4 ,R1
.+10

JYES, EXIT
;TEST FOR 'EOT'
sNOT EOT

PRTEXT

JEXIT

BEQ

TYPER3

;YES PICK UP NEXT MESSAGE ADDRESS.

BEQ
CMPB
BNE
PRINT

000004

MESEOT

000137

CMPB

032122
032152
032152

000045

#137 ,R1

CMPB
BNE

#100,R1
TYPER1

CLR

OPRTSW

RTI
TYPERT: TST
BNE

OPRTSW

000100
PRTEXT:

CLR

GETREG

TYPER2:

;SAVE REGISTERS ON STACK

CMPB
BEQ

TYPEIT
BR

PRTSWH

TYPERA

#45,R1
TYPECL

TYPERA

000075

TYPECL: MOV

#15,R1

000012

MOV

#12.R1

TYPEIT
TYPEIT

TYPEIT
BR

TYPERA

;GET CHAR.
;=NULL CHAR.?

;YES, PRINT

‘EOT'®

JTEST FOR °.°

;TEST FOR 'a'
;BRANCH IF NO EQUAL

JRESTORE REGISTERS FROM STACK.
;OTHERWISE EXIT
sINHIBIT TYPEOUT?
;YES, SCAN DATA

;TEST FOR '%'
;1F = TYPE 'CR-LF’
;OUTPUT CHAR.
;TYPE

'(CR'

s INCREMENT BUFFER

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508
4509
4510
4511
4512
4513
4514
4515

J 10

20-JAN-78 09:11
MACY11 30A(1052)
DL11 TRANSMITTER ROUTINE

PAGE 105

SEQ 0126

;i'.ttittfittfitttiiittt'ttitttttRfltttttt.itfit'ttQittttfii*t‘ttttttitt.tttt

;SUBROUTINE TO TYPEOUT A '6' DIGIT OCTAL NO. THE 'PC' CONTAINS

;THE ADDRESS OF

'WORD'

TO BE TYPED

XOCTPR:

PC,.TTYENB

;Qtttttfit!fi'ittttt.it.fiIt"titttt'.itiitfiit*ttttttiittt.ittt*tt..'tttttfi

022010
022014
022016
022022
022026
022032
022040
022042
022044
022046
022050
022052
022056
022062
022070
022072
022076
022104
022106
022110
022112
022114

004737

021626

017601
062716
012703
012737
000401

000000
000002
000006
000376

104002

022114

MOVEIT: ROL

006111
006111
006111

111102
143702

052702

132777
100374
110277

012737
005303
001355

JSR
SAVREG
MOV
ADD
MOV
MOV
BR
ROL
ROL

022114
000260
000200
157252

000370

MOovB
BI(CB
BIS
BITB

157256

104003

;THE ADDRESS OF

WORD TO BE

;SET UP STACK TO EXIT

TYPED

;MASK FOR FIRST BIT

(R1)
(R1)
(R1)
(R1) ,R2
MASK ,R2
#260,R2

czgo.arps

R2,aTPB
#370 ,MASK
R3
MOVEIT

022114

000376

a(SP) ,R1

#2,(SP)
#6,R3
#376 ,MASK

JENABLE TTY INTERRUPTS
;SAVE REGISTERS ON STACK

;PRINT

CHAR.

sJMASK FOR NEXT '5' DIGITS
JRESTORE REGISTERS FROM STACK.

MASK:
2322223222323 2332333333233 232323233333333333333322222t
22ttt
d 2

:SUBROUTINE TO SET UP AN APPROXIMATE *1' SECOND DELAY.

:tttt!titti'ttt'ttttttttt'tt*tfiitt.'fitht*tt'ttt.tfitt*tttttifit*ttt*tttit

022116
022124
022126
022132
022136
022144
022150
022152
022156
022160

012737

161000

032212
021626
177777
032212

032212

XDELAY: MOV

:
XDLAYL

032210

XDLAY3:

032210
XDLAYZ:

#161000, TEMP2
+6
TEMP2
PC,TTYENB
#-1,TEMP1

TEMP2

XDLAY3

TEMP1
XDLAY3

;SET UP SHORT DELAY

;SET UP LONG DELAY
JENABLE TTY INTERRUPTS

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PN

19-JAN-78 14:50

4535

MACY11 30A(1052)

20-JAN-78

K 10

09:11

DL11 TRANSMITTER ROUTINE

PAGE 106

SEQ 0127

IRERRRRERRRRRARRRARAR
AR
RRRARRARRARRARRRRRARRARREAARRAARRRRRARRRRR AR

;SUBROUTINE TO PRINT THE DATA IN THE DL11 RECEIVER & TRANSMITTER BUFFER.

:ttt".tt'tit.ttt'tfiitttt'ttfifii'ti'fiitttttttttttfittfi!ttfit'fitttttfit.ttt't

022162
022164
022166
022170
022172
022174
022176
022200
022204
022210
022212
022216
022220
022222

PRTBF1:

104012

032032
005712
001003
104012
024275

004737
005037
112201

004737
105712

PRTBF2:

PRINT
CRLF
TST

BNE

MES9

021626
032142

015434

001373
000207

PRT1A:

PRT1B:

(R2)

.+10

;BUFFER EMPTY?

;NO, PRINT IT
:YES

;TEXT

°'BUFFER EMPTY'

BR
JSR
CLR

PRT18B
PC,TTYENB
FORMT1

SEXIT
;ENABLE INTR.'S.
;'CR/LF' FORMAT Sw.

JSR

PC,PDMSET

;PRINT CHAR.

RTS

MOVB
TSTB
3NE

(R2)+,R1

(R2)
PRT1A

;GET CHARACTER
;DONE?

;RETURN

:'Q.'itttii'tttttttttttfitlitfi.it.fifittttttt'tttfitt*t't'ttitt*tttItttttitt

;SUBROUTINE TO PRINT THE CONTENTS OF THE DL11 RECVR. BUFFER.

:t'Qtttttfitt.fifitttttt.t'ttlitfifi*t*fittfitttttttttfi'*iti*ttifiitt*itfifiitttti

022224

022230

012702
000402

016234

RECBUF: MOV
BR

#RECBFO,R2
+4
TRNBUF

;SET UP BUFFER POINTER

;.'tt*t.*'fi‘tttttt.tQttit"itttt!tttfit't*'t*fit*t'ttitt.'*tttttttittttttt

;SUBROUTINE TO PRINT THE CONTENTS OF THE DL11 TRANSMITTER BUFFER

;'tfi'tttttttt'lttttkfii'i't'ittttltQit!ifit'fifi'*tttt't't.tt*tttt.it'ttiiit

4567
4568
4569
4570
4571
4572
4573
4574

4575
4576
4577
4578

022232
022236
022242

012702
004737
000137

017670
022162
001376

TRNBUF: MOV

JSR
JMP

#TRNBFO ,R2

PC,PRTBF1
MONITR

;SET UP BUFFER POINTER

JRETURN TO MONITOR

;tttttQfi!!fit.t."'tttitttttitltiitkttttttfifiittttitfitttiittfltttttttttt'ttt

;SUBROUTINE, ENTERED AS A SUBROUTINE, TO PRINT CONTENTS OF THE DL11
;RECEIVER BUFFER.

:t't"t..""'*'tttttt.'tt'ttttttfi'fittttttttfi'.itiittiittti'!ititii'fltttt

022246
022250

022254
022260
022262

104002

012702

004737
104003
000002

016234
022166

XPRTRB:

SAVREG
MOV
JSR
GETREG
RTI

#RECBFO,R2
PC,PRTBF?2

;SAVE REG'S
;SETUP BUFFER POINTER

JRESTORE REG.'S

CZ
2z

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN=78 14:50

MACY11 30A(1052)

20-JAN-78

SEND ROUTINE

L 10
09:11
PAGE 107

.SBTTL SEND ROUTINE

4579
4580
4581
4582
4583
4584

IERRRARRRRRRARRRARARARE

SEQ 0128

AARARRARRRRRRRERARARRRRAARRRARRRAARRAARRARARARARA
AR

;THIS ROUTINE ACCEPTS CHARACTERS FROM THE TELETYPE AND TRANSMITS THEM
;TO THE DL11.

THIS ROUTINE USES '“E'

TO ESCAPE BACK TO THE MONITOR.

JCONTROL C (*C) IS ECHOED AND SENT AS AN 'EXT':

:tttttttttitttttt'tttQtt"it*ttQ*ttitttl*ttQttfifittfiititt*ttttt*tttti*ttt

4585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602

SEND:

NODLAY
INC
RECVRO
MOV

032150
017670
021626

SEND1:

022354
015434
SEND2:

:SETUP RESTART ADDRESS

SENDSW

#TRNBFO ,R2
PC,TTYENB

.~2

;ENABLE TTY INTERRUPTS
;WAIT FOR KEYBOARD & RECEIVER INTERRUPTS
;GET CHAR.

#5.R1
.+10

JMP
MOVB
MOVB

MONITR
R1,(R2)
(R2)+,SEND2

O
BR

SEND1

CLRB
JSR
LDCHRO

;INHIBIT TRANSMITTER DELAY
;SET SOFTWARE SW.
JENABLE DL 0'S RECVR
:SET UP BUFFER TO SAVE (CHAR.S

:KEYBOARD INTERRUPTS RETURN .+2

INBUF ,R1

CMPB
BNE

PRCNTR

001376

022352
022354
022356

JSR
WAIT

MOVB

015330
000005

4603

SETUP

PRINT
ASTRIC

;CHAR. = "*E'
sNO

(R2)
PC_,PDMSET

:YES,

TYPE

JEXIT
;SAVE CHAR.

;LOAD '0' TO TERMINATE BUFFER
;PRINT CHAR.
;TRANSMIT CHAR.

.SBTTL RUN ROUTINE

IRERRERRRRRREARRRERRAR
R AR KRR RN ARARRRARRARARRIRARARRRRARAIR AR

sTHIS ROUTINE IS USED TO LOAD AND RUN TRANSMIT THi USERS SEND
;IN PROGRAM. DATA SW.'S '0-15' CAN BE USED TO SET UP
;A LOOP DELAY.
IF THIS SERIAL I/0 OPTION INPUT IS BEING USED,
s THE USERS PROGRAM ISN'T LOOPED, IT IS JUST LOADED AND RUN.

:tt't.fi*tfifitt'tttttttfitttitttfiitttfi.tttitfifititttltttttfiii*ltt*ititfittttt

104012

031700
104036
012746
012746
022400
022402
022404
022406
022412
022414
022420
022422
022424
022426

RUN:

017670
005737
001375
017701
005101
005201
001757
000775

NODLAY
MOV

000000
022400

104005
104007

z?y

1$:

032132
156732

PRINT
ASTRIC

#0,

ns,

RECVRO

BNE

MOV

COM
INC

-(SP)

s INHIBIT TRANS. DELAY
,ENABLE INTERRUPTS
;ENABLE DL RECVR

LDPGMO

TRNBF 0
TST

-(SP)

;LOAD THE USERS PROGAM FROM
SIOSWH

.~4
aSWR,R1
R1
R1

sTHE TRANSMITTER BUFFER
:SERIAL 1/0 INPUT?

;YES, STAY HERE

;LOAD THE SW.'S TO SET DELAY

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643
4644

4645

4646

Le4L7
4648
4649
4650
4651
4652
4653
4654
4655
4656

MACY11 30A(1052)

RUN ROUTINE

09:11

PAGE 108

.SBTTL SUBROUTINES

;tttt'tt't.ittttttitt*tfittiitittifittitfififitittiitttitlttttfiit'*fitttt.ti

;SUBROUTINE WILL CONVERT °'N' BCD WORDS (SEPARATED VIA COMMA'S)
JWHICH WERE STORED IN A TABLE VIA 'TTYIN' TO OCTAL AND STORE THEM.

:tt.Qtttttfit*fii'*ttttittit't*tt*tttttttQtttt!t'fi*ttttititttt'tttittittt

022430
022432
022436
022442
022446
022450
022452
022454
022460
022462
022466
022472
022474
022500

015330
022564
022566

032214

XBCDBIN:SAVREG

MOV
MOV
CLR
BCDBN1: CLR

032214
000054

000060

000071
000360

recy

4658
4659
4660
4661
4662
4663
4664
4L665

BCDEND:

032214

022556
022560
022564
022566
022570
022572

#8CDTAB,R3
BCDTAB+2

JREG. TO STORE RUNNING TOTAL
;TEMP. STORAGE FOR 'R1'

BLE
DEC
CMPB
BEQ
CMPB
BLT
CMPB
BGT
BICB
MOvB
MOV

;TEST FOR LEGAL NO.

JEND OF DATA?
sJYES, EXIT
;DECREMENT CHARACTER COUNTER
:1S CHARACTER = TO ',"?
:YES, DECODE NEW WORD

#360, (R4)
(R4) +,R5

R‘oRz

BR
TSTB
MOV
TST

J MP

BCDTAB: 0

0
0
0

JNX2
+NX4
:NX8

;UPDATE BUFFER
;SAVE CONVERTED VALUE & SETUP TO SAVE NEXT
sFINISHED?
;NO, CONVERT NEXT WORD

BNE
GETREG
MES68

;STRIPE NO. TO BCD
;SAVE NO. IN RO.
;SAVE CURRENT TOTAL

JNX9
JNX10
JN+NEW NO.

JYES, EXIT

RTI
BCDERR: PRINT

001376

;SAVE REG.'S
sSETUP ASCII STORAGE TABLE
;TABLE FOR STORAGE OF CONVERTED WORDS

CLR
CLR

ASL
ASL
ASL
ADD
ADD
ADD

4666

# INBUF ,R4

BCDBNZ: TST

4L667
4668
4669
4670
4671
4672
4673
4674
4675
4676
4677
4678

20-JAN-78

MONITR

sTEXT 'ILLEGAL DECIMAL NO.'
JRETURN TO THE MONITOR
;OCTAL STORAGE TABLE

SEQ 0129

CZl

czl

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN=-78 14:50

MACY11 30A(1052)

4679

022574
022600
022602
022606
022612
022620
022624
022626

004737
104002
012703
012704
012737
012701
005201
161402

4692
4693
4694
4695
4696
4697
4698
4699
4700
4701

022632
022634
022640
022642
022644
022646
022650
022652
022654
022660

062402
004737
005203
001366
104003
000002
005701
001006
022703
001403

022666
022670
022676
022702
022704

000405
012737
052701
104010
000207

4702

4703
4704
4705
4706
4707
4708

4709
4710
4711

4712
4713
4714

09:11

PAGE 109

;ttttttttttttttttttttttttttttttt!ttt**ittt*tttt*ttitttttltttt*ttttttttt

4680
‘0681
4L682
4683
4684
4685
4,686
4687
4688
4689
4690

4691

20-JAN-78

SUBROUT INES

N 10

:PRINT DECIMAL VALUE IN R2
'-tfittttttttttttttttttttttttnttttttttfitttfitfitttttttt*aitttttttttttttttfit

022630

022662

022706

022710
022712
022714

022716
022720

021626

177774
022712
000260
177777

022706

100375

013701

000240

022712
001750
000144

000012
000001

XBINDEC : JSR
SAVREG
MOV
MOV
MOV
TYPT1: MOV
TYPT2: INC
SuB

PC,TTYENB

ADD
JSR
INC
BNE
GETREG
RTI
DECOUT: TST
BNE
CMP
BEQ

(R4)+,R2
PC,DECOUT
R3
TYPT1

BR
MOV
BIS
TYPEIT
RTS

DEC2
#260,ZERD
#260,R1

BPL

022650

177777
022706

000260
000260

MOV

022706

DEC1:
DEC2:
ZERO:

240

DECPNT: .+2
1000.
100.

10.
¥

#-4 ,R3
#DECPNT+2 ,R4
#260,ZERO
#-1,R1
R1
(R4) ,R2

TYPT?2

k3
DEC1
#-1,R3
DEC1

ZERO,R1

SEQ 0130

czi

CZt
|

)
'
{
'
{
{
i
|
{
‘
‘

‘

|
‘
1
!
!
|
|
!
|
|
!

‘
!
!
|
‘

‘
|

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PI

4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762

4763

19-JAN-78 14:50

20-JAN-78
MACY11 30A(1052)
SUBROUT INES
2222223222223

8 1"
PAGE

09:11

110

22322222 a0 2222222332333 2333232222222 2 233322222 222ttt
ddd

‘POWER FAIL HANDLER

;iQQ'ttt'tt'tititttfi.tfit"t'tt'*ttttt'ttttttttttfitiQtttfifit*'*t'tttttttttttitt.t

022722
022724
022726
022730
022732
022734
022736
022742
022746
022754
022756
022762
022766
022770
022774
023000
023002
023004
023006
023010
023012
023014
023016
023020
023022

010046
010146
010246
010346
010446
010546
013746
010637
012737
000000
012746
012746
000002
013706
012637
012605
012604
012603
012602
012601
012600

PWRFAL:

000024
032210
022756

000024
PWRUP:

032210

1%:

104021
104012

025161
000137

MOV
MOV

MOV
MOV
MOV
MOV
MOV

000340
022770
000024

MOV

MOV
HALT
MOV
MOV
RTI
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
NULL

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

R3,-(SP)
R4 ,~(SP)

R5,=(SP)
24 ,=(SP)
SP,TEMP1

#PWRUP
, k24
#340,
s,

=(SP)
=(SP)

s INHIBIT INTERRUPTS

TEMP1,SP

(SP)+,a#24
(SP)+,RS

(SP)+ R4

(SP)+,R3

(SP)+,R2
(SP)+,R1
(SP)+,R0O

;POWER UP DELAY

MES28

001376

JMP

MONITR

:tti*tttfittit.tfi't.Qtttttt*'ttttfi*ififitt*tifit*fittfiit*titttitttitttitt.*tititt"t

;SUBROUTINE TO SAVE °'R1-R5' ON STACK

;'itt.Qttttttttltt'ttttt'ititttfitt*fifiti*ttttiifittt*itttttt.*tttfi*tttittfitt'tttt

023026
023032
023036
023042
023046
023050
023052
023054
023056
023064
023070
023074
023100

012637
012637
012637
012637
010146
010246
010346
010446
010546
013746
013746
013746
013746
000002

032164
032166
032170
032172

032172
032170
032166
032164

XSAVRG:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,SAVEPC
(SP) +,SAVPSW

(SP)+,SAV2P(
(SP)+,SAV2SW
R1,=(SP)
R2,=-(SP)
R3,-(SP)
R4 ,=(SP)
R5,=(SP)

SAV2SW,=(SP)
SAV2PC,=(SP)
W,
= (SP)
SAVPS
SAVEPC,=(SP)

SEQ 0131

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806

4807

4808
4809
4810
4811
4812

4813
4814
4815
4816

4817
4818
4819

C 1
PAGE 111

09:11

20-JAN-78
MACY11 30A(1052)
SUBROUTINES

2222222323232 2222232322322 32323333

SEQ 0132

2333233233333

2232332232322222

:SUBROUTINE TO RESTORE 'R1-RS' FROM THE STACK

ittt

l d

;ttt'k'tt'ttttttfi.titifi*"tt'tttfifititt*tfittfitttttt'tltt"ttttt"ttttttt'tit'ttt

023102

023154

012637
012637
012637
012637
012605
012604
012603
012602
012601
013746
013746
013746
013746
000002

032164
032166
032170
032172

XGETRG:

032172
032170
032166
032164

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

(SP)+,SAVEPC
(SP) +,SAVPSW

(SP)+,SAV2PC
(SP)+,SAV2SW
(SP)+,R5
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
SAV2SW,=(SP)
SAV2PC,~(SP)
SAVPSW,~(SP)
SAVEPC ,~-(SP)

;ttttt*tttttttttttifi***t'itttttt*ttttttitt*i*titittttfi.'tt'fitttti'ttttii'ttt

;SUBROUTINE TO WAIT FOR AND ASSEMBLE CHARACTERS INPUT
;FROM THE KEYBOARD

INTO OCTAL NUMBERS.

;fitfititttttt"*t*fi**ttt*t'*tttttltitt*tt*fifittt't*ttttt*tttttt!tt*itttt'ttttt

023156
023160
023162
023166
023170
023172
023176
023202
023204
023206
023210
023212
023214
023216
023222
023224
023226

023232
023234
023240
023242
023246
023250
023254
023256
023262
023264
023266
023270
023272

104013

005000
005737
001001
000002
012701
004737
010400
000002
105721
006204
006204
006204

005337
001767
010400
062716

XASEMB:

032214

015330
023232

TTYIN
CLR
137
BNE
RTI
MOV
JSR

XASEM1: MOV

RO
CHRCNT
.44
#INBUF ,R1
PC,STRIPN

RTI

WORDZ2:

032214
000002
000054

000370
032214

032274

TSTB
ASR
ASR
ASR
DEC

BEQ

MOV
ADD
STRIPN: CLR
CMPB

BEQ
BICB
BISB
DEC
BGT
INC
RTS
ASL
ASL
ASL
BR

(R1)+
R4
R4
R4
CHRCNT
XASEM1
#2,(SP)
Ré4
#54,(R1)

WORD2

#370, (R1)
(R1)+,R4
CHRCNT

.+10

CHRCNT

R4
R4
R4

;GET CHAR.'S FROM KEYBOARD
:A?; CHARACTERS ENTERED
;Y

;JNO,

EXIT

;SET UP CHAR. BUFFER POINTER
;STRIPE NO.
;RETURNS HERE IF ONLY '"1' NO.
;ADVANCE POINTER PAST COMMA

;DEC. CHAR. CNTR.
;COMMA LAST CHAR.?

;NO, SAVE 1ST NO.
;SET UP STACK TO EXIT
;CHAR. = COMMA?

;YES, SAVE 1ST NO.
;NO, STRIPE NO. TO OCTAL
sFINISHED?
;NO

"CHARACTERS WERE ENTERRED
SYES, EXIT

STRIPN+2

:ttittt*fititt'tt.titit.t"ttitt!t'i"tfitititittttttl!tttttttttttt

;SUBROUTINE TO OUTPUT CURRENT SWR VALUE IF USING SOF TWARE

CZPMAC.P11

4,820
4821
4,822

4823
4824
4825
4,826
4827
4,828
4829
4830
4831
4,832
4833
4834
4835
4836
4837
4838
4839

19-JAN-78 14:50

20=-JAN-78
MACY11 30A(1052)
SUBROUTINES

D n
PAGE

09:11

112

;SWR AND TO ASSEMBLE CHARACTERS INPUT FROM THE KEYBOARD
;TO FORM THE NEW SWR V/LUE.

.".tt'ttt.ttfittttt'ttttt"'ttfi'.tfitttttfitfitttt.tfi.t.ltttt'tt.tttt

023274

022737
001021
022737
001014

000176

001352

000176

001352

UPDAT1: CMP
BNE

104012

030415

ME S89

000176

SWSWR
PRINT
MES90

104012

030424
104015
005737
001402
010037
000207
104013

000207

#SWSWR,
A
#SWSWR,

SWR
SWR

032214

000176

ASEMBL
TST

BEQ

MOV
RTS
TTYIN
RTS

;JUSING SOF TWARE SWR?

;NO=BRAICH
;USING SOF TWARE SWR?
sNO-BRANCH
;YES=PRINT "'SWR="'

;PRINT VALUE

PRTOCT

104014

023350

: CMP
UPDATE
BNE

;PRINT "NEW SWR="'
CHRCNT
1%
%0,

;WAIT AND DECODE

;WAS A NEW VALUE ENTERRED?

SWSWR

sNO-SAVE OLD VALUE
;YES-USE NEW VALUE

JEXIT
;WAIT FOR CR
SEXIT

SEQ 0133

(an Tan ]

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4,852
4,853
4854
4855
4856

19-JAN-78 14:50

EN
09:11
PAGE 113

20-JAN-78

SUBROUT INES
R

SEQ 0134

2222233223333 3223222022222 323332322322
Rt
iRttt sl

;Qtt..tt....tttti"t'ii"ti'fitfi.ttitt'fii..'tttfittttt.t"'t'tlti.ttit

023352
023353

000
045
040515
046504
044504
052123
051505

045
044440
020105
053517

4875
4,876
4877
4878
4879
4880
4881
4882
4883
4884

4885

4886

023742
023750
023756
023764
023772

026101
032070
031467
046440
026111
032470
031467
046440
026101
034070
115
026106
033467
033463
052523
042522
020054
043125
042116
026116

TITLE:

.BYTE
.ASCII

;X%CZPMACO PDM-70 DIAGNOSTIC TEST a;

042520
044124
046114
020107
047125
042040
042105
035124

HEADER:

.ASCII

;%TYPE

030070
031467
046440
026105
031070
042103
033515
020054
041463
034063
033515
020054
032070
031467
046440
026101
032470
031467
046440
026101
033470
031467
040
034070
031467
033515
020054
020054
043125
041116
042523
052522

TSTLST:

.ASCII

;M7380A, M7381A, M7381E, M7382A, B(DIO, M7383A, M7383C, M7383R, M7383G,

LASCII

;%M7384A, M7384E, M7385A, M73851, M7385T, M7386A, M7387A, M7388A, ;

LASCI1

;M7388F ,%M7377A,M7378A, SUBX, RECBUF, TRNBUF, SEND, RUN.a:

041445
030103
033455
043501
041511
020124

050132

054524
020116
047506
047111
051040
042510
05111
C51505
031467
046440
026101
030470
031467
041040
020054
040463

4874

4891
4892
4893
4894
4895

30A(1052)

"SBTTL MESSAGES

4857
4858
4859
4860
4861
4862
4863
4,864
4865
4866
4867
4868
4869
4870
4871
4872
4873

4887
4888
4,889
4890

MACYT1

050040

020060
047516
052040
100

IN THE FOLLOWING TO RUN THE DESIRED TEST:%;

CZPMACO PDM70 DIAGNOSTIC TEST

045
020107
046101
044440
040506
052120
040040

051525
042523
044440
052116
042503
047511

047111
044522
047457
051105
047440
037516

MESO:

LASCII

;RUSING SERIAL I/0 INTERFACE OPTION? a;

024042
024050
024056
024064

047503
020114
042514
027124

052116
047515
052040
040045

047522
052504
051505

MES1:

LASCII

;CONTROL MODULE TEST.Za;

024070
024076
024104
024112
024120
024126

042045
042522
041040
020122
046106

030514
053103
043125
053117
053517

020061
027122
042506
051105
022456

MES2:

LASCII

;%DL11 RECVR. BUFFER OVERFLOW.Za;

024127
024134
024142
024150

123
020114
042101
020123
022456

051105
027511
051104
042524

040511
020117
051505

MES3:

.ASCII

;SERIAL /0 ADDRESS TEST.Za:

030514
051105
051105

020061
052522
047522

MES4:

LASCII

;DL11 OVERRUN ERROR.®;

042514
051124
020117

MESS:

LASCII

sXILLEGAL TRAP TO a;

050101

046111
020114
052040

040

051106

046517

MES6:

LASCII

;

052045
047503

051505
050115
022456

020124
042514

MES7:

LASCII

;XTEST COMPLETE.Za.

045

042524
042104

052123
027122

MESS8:

LASCII

sXTEST ADDR.? @a;

043125
051511
054524
026505
047515
040440

042506
042440
040056
042523
052504
042104

MES9:

LASCII

;BUFFER IS EMPTY.a;

MES10:

LASCII

;%RE=SET MODULE ADDR. TO *17°(OCTAL). a;

024205
024212
024220
024226
024227
024234

100

104

053117
020116
027122
045
040507
100

040040

024236
024244
024252

042524

024257
024264
024272

040440
020077

024275
024302
024310
024316
024324
024332

020122
050115
051045
020124
042514

102

SEQ 0135

023775
024002
024010
024016
024024
024032
024040

024156
024161
024166
024174
024202

4950
4951

ME SSAGES

100

052123

FROM a;

100

b~ -

4896
4897
4898
4899
4900
4901

19-JAN-78 14:50

PAGE 114

AefMmMMMMMMMmMmMmMMmMmMMmMmMmmmMmmMmMMmMMmMNMeaEeEeEesE
e
DD
DD

CZPMAC P11

20-JAN-78

09:11

P22

CZPMACO PDM70 DIAGNOSTIC TEST

MACY11 30A(1052)

4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964

4965

4966

4967

4968
4969
4970
4971
4972

4973
4974
4975

4976
4977

024340
024346
024354
024362
024364
024372
024400
024406
024411
024416
024424
024432
024437

024444
024452
024460
024466
024474
024502
024510
024516
024524
024527
024534
024542
024550
024556
024564
024572
024574
024602
024610
024616
024624
024632
024633
024640

MACY11 30A(1052)

ME SSAGE
S

20-JAN-78

6 1
09:11
PAGE 115

SEQ 0136

027122
030447
052103
040040
027501
051104
043516
027124

052040
023467
045101

020117
047450
027051

020104
051505
052040

042101
044523
051505

MES11:

LASCII

sA/D ADDRESSING TEST.a;

046101
044524
051502

042057

041111
047117
027124
051102
052101
042520
051516
020104
051105
047111
020124
020047
137
042522
045040
026122
046440
020105
047105

041440
040522
052040

MES12:

LASCII

sA/D CALIBRATION TEST.a;

040505
051440
040040
051105
052512

MES13:

LASCII

s %BREAK AT SCOPE Q.

MES14:

LASCII

;%INSERT D JUMPER TO INHIBIT

047515
046525
041440
042117
047101
042524

MES14A:

LASCII

s %REMOVE JUMPER, CLR MODULE AND ENTERQ;

020104
052101
052111
052123

042522
041111
020131

MES15:

LASCII

;A/D REPEATIBILITY

020077

MES16:

LASCII

(XV5F? Q;

027110

0200/7

MES17:

LASCI

JCH.? @;

101

020113
047503
044445
020124
050115

020117
044502

052117
020104
045
042526
042520
051114

046125

020104
040122
027501
042520
046111
042524
053045

100
103
100

100

043123

100

052040
044510
042447
047101

940056

TEST.a:

024641
024646
024654
024662

041501
054503
027124

107

044501
052503
052040
040045

020116
040522
051505

MES18:

LASCII

;GAIN ACCURACY TEST.Za.

024666
024674
024702
024710

051445
020131
030071
044124

050125
030453
020126
040040

046120
034456
044527

MES19:

LASCII

JASUPPLY +1.990V WITH Q;

024714
024722

040507

047514

047171
023527

023440
040056

MES20:

LASCII

;GAIN 'LOW'.a;

024730
024736
024744
024752
024760

053523
053040
042507
052101

052111
046117
047040
053111

044103
040524
043505
027105

MES21:

LASCII

;SWITCH VOLTAGE NEGATIVE.Q;

100

'EOT' AND _:

Clvlclv B -Talalslnlalalalninislalnlninlelelslslnlnlelnlnlelelnlelelalslalslelnlelalelnle)

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

5048
5049
5050
5051
5052

5053
5054
5055

5056
5057

023515

042105
040056

025000
025006

040507
044510

025014
025022
025030
025036
025042
025050

H 11

(09:11

PAGE 116

020116
052511

MES22:

LASCII

;GAIN "MEDIUM'.Q;

047111
044107

023440
040047

MES23:

LASCII

;GAIN 'HIGH'a;

051445
020131
030071
044124

050125
027053
020126
057440

046120
034461

MES24:

LASCII

;%SUPPLY +.1990V WITH _;

051445
020131
034461
044527
051445
020131
030060

0507125
030053
030071
044124
050125
030053
027126

046120
030056
020126
057440
046120
030056

MES24A:

LASCII

sXSUPPLY +0.01990V WITH

MES25:

LASCII

s%SUPPLY +0.000v.a;

025113
025120
025126

045
051122
040507

04711
041505
047111

047503
020124

MES26:

LASCII

;%INCORRECT GAIN'!a;

025134
025142
025150
025156
025161
025166
025174
025202
025210
025216
025224
025232

020045
020040
020107
044107
045
042526
051106
053517
044501
026440
047507

046040
020040
020040
100

053517
053101
044510

MES27:

.ASCII

042522
042522
046517
051105
052514
041040

MES?28:

LASCII

;XRECOVERED FROM POWER FAILURE - BY GOLLY!'!®;

046114

047503
020104
050040
043040
042522
020131
020531

102

042103
052125
042522
051505

044440
040440
051523
027124

MES29:

LASCII

;BCD INPUT ADDRESS TEST.a:

047515
040440
020077
052105
027124
051447
020114

052504
042104

MES30:

LASCII

;XMODULE ADDR.? @a;

041440
051440
057440
047117
020110
051524

MES31:

LASCII

;SET CUST. SW.'S _;

MES31A:

LASCII

;JALL ON WITH INPUTS HI.d;

047440
052111

MES31B:

LASCII

;ALL OFF WITH INPUTS HI.a;

025233
025240
025246
025254
025262
025263
025270
025276
025303
025310
025316
025324
025332
025340
025346
025353
025360

107
046447

100

050116
042104
052040
100

045
042514
027122
123
051525
027127
046101
053440
047111
044040
101

043106

052111
052520
027111
046114
053440

SEQ 0137

044527

100

040041

100

LOw

AVG

HIGHa;

viviviviviel]

5047

02474
024766
024774

ME SSAGE
S

20-JAN-78

mmmmmmmm v

5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041
5042
5043
5044
5045
5046

MACY11 30A(1052)

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=78 14:50
CZPMAC P11

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC 13
5064
5065

025502
025510
025516
025524

020110
051524

100
124
042524
020105
047440

040056
046101
053440

I N
PAGE 117
09:11

052520
027111

020117
047122
047117
043106

046101
052101
023040
051447

MES31C:

LASCII

;TO ALTERNATE CN & OFF'S.a;

020114
052111
052520
027117
046114
040056
020104
020124
044503
042524

047117
020110
051524

MES31D:

LASCII

JALL ON WITH INPUTS LO.a;

047440

MES31E:

LASCII

;ALL OFF.a;

047111
054105
042523
052123

MES32:

LASCII

;BCD INPUT EXERCISER TEST.a;

020104
052125
042522
051505

052517
040440
051523
027124

MES33:

LASCII

;BCD OUTPUT ADDRESS TEST.a;

054105
020105
052125
051505
057440
020114
020103

046501
052517
046040
043040

MES34:

LASCII

s XEXAMINE OUTPUT LINES FOR _:

047514
023461

MES35:

LASCII

;ALL LOGIC 1°'S.a;

053105
020104
041523
047506
052125
047504
046046
050131
052040
052123
040056
054505
027504
040514
052504
042104
052040

051105

MES37:

.ASCII

;REVERSED _;

050117
020122
052520
042516
020047
020105
020117
051101

MES38:

LASCII

:XSCOPE FOR 'OUTPUT DONE HBL' (TYPE “R TO RESTART).d;

047502
044504
020131
042514
042522
051505

MES39:

LASCII

s %KEYBOARD/DISPLAY MODULE ADDRESS TEST.a;

051447
046040
052040
050116
050117

040440
040505
042510
052125
047105

MES40:

LASCII

;1'S AND LEAVE

100

026024
026032

S
ME SSAGE

20-JAN-78

047111
044040

100

38
b

VN
NS WN=O

cub
b wb cnd s

wold weld

il
b adh

il wlh cclh el

ald wb wud

5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095

025366
025374
025402
025403
025410
025416
025424
025432
025434
025442
025450
025456
025463
025470
025474

MACY11 30A(1052)

100

137

THE

INPUTS OPEN.Q;

SEQ 0138

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11
026034
026042
026050

LEHRUSLS

) e

b
i)
b cl

1"
PAGE 118

SEQ 0139

LASCII

;1'S AND GND ALL INPUTS.Qd;

MES40RB:

LASCII

;JALTERNATE 1'S & 0'S.a;

020046

051447
027124
054105
047131

040056
047440
027124
027103

MES41:
MES42:

LASCII
LASCII

g OB
JINT. OR EXT. SYNC.? Q;

102

042103
052040

044440
051505

MES43:

LASCII

;BCD 1/0 TEST.a;

103

040510
051105
040440
051523
057524
040457
042522
020107
040056
047503
051117
043517
020046
020120
027117
047503
051117
043517
044510
046106
020047

040522
044440
042104
052040
040
040440
051523
042524

MES44:

.ASCII

s CHARACTER 1/0 ADDRESS TEST_ ;

MES4S5:

LASCII

;D/A ADDRESSING TEST.a:

042520
023440
046040
043047
023514

MES46:

LASCII

;%SCOPE FOR 'PROG L' & 'FLOP L' LO.Q;

042520
023440
046040
023040
050117
047514

MES47:

LASCII

;SCOPE FOR 'PROG L* HI & 'FLOP L' LO.Q;

050117
020122
020120
027111
047503
051117
050117
047514
041505
020056
052577
043040

020105
043047
023514

MES48:

.ASCII

:SCOPE FOR 'FLOP L' HI.a:

042520
023440
046040
040056
020113
030047
050124
051117

ME S49:

LASCII

;SCOPE FOR 'FLOP L' LO.Q3;

MESS0:

LASCII

s CHECK CH.

'0*

OUTPUT FOR

020113
030447
050124
051117

MESS51:

LASCII

;CHECK CH.

'1' OUTPUT FOR

052103
047457
042522
051505
104

042104
047111
052123
051445
043040
051120
020047
047514

026512

09:11

MES40A:

047457
027124

5138

ME SSAGES

20-JAN-78

047101
020104
047111
040056
047122
023461
023460

023461
020104
046101
052520
046101
052101

020123
027123
060
047111
020122
051440
020077

5129

MACY11 30A(1052)

052125
057440

020123
047107
020114
051524
042524
020105
100

100

CZPMAC.P1

5176
5177

5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188

026514
026522
026530
026536
026544
026552
026560

19-JAN-78 14:50

030060

020101
051505
037451
052105

ME SSAGES

20-JAN-78

K 11
09:11
PAGE 119

SEQ 0140

040126
040126
040126
040126
040126
054105
042523
052123

MESS2:
MESS3:
MESS54:
MESSS:
MESS6:
MESS7:

;8.88va;
;D/A EXERCISER TEST.Q.

040526
054050

MESS8:

;D/A VALUES(X,Y)? Q;

MES59:

JXSET ALL DATA SW.'S TO '0'.a;

040040
040440
052101
023456
023440

054514
054105
046101
027103

MES60:

.ASCII

;SUPPLY AN EXTERNAL SYNC.a;

047503
051117
051440
020114
020101
026131
041440
022440
023456
023040
052517
020123
020065
051040
044524

042520
052040
043511
042047
042522
040440
042510

MES61:

LASCII

;SCOPE FOR THE SIGNAL

LASCII

;CH.'S 'O & 1' OUTPUTS FOR 5 USEC RISE TIMES.a;

046124
052940
00
030514
051522
041505

044440
051505

MES62:

LASCII

;TTL 170 TESTZXa:

020061
026056

MES63:

.ASCII

;DL11 ADRS., VEC.? a;

052122
046440
051040
047111
046125
04711
044514
051531
040045
020115
042522

MES64:

LASCII

s INSERT THE M7387 READ-IN MODULE & INITIALIZE SYSTEM.Za;

MES65:

LASCII

;"PROM OK'' REMOVE THE M7387.%a;

047122
047131

100

027174

MACY11 30A(1052)

020123
030440
050124
047506
051525
051511
042515

°'DATA READY, AND CHECK X%

037456

RRRRAIZRRZRRRAZRRRRZRRRRRRRRRRRRRRRRRARRARARARAARARAREEECEE

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PT11

19-JAN-78 14:50

MACY11 30A(1052)

ME SSAGES

5232
5233
5234
5235
5236
5237
5238
5239
5240
5241

027202
027210
027216
027223
027230
027236
027244
027252
027256
027264

047515
042510
033470
123
020114
047111
041501
052123
042522
042040

042526
046440
022456
051105
027511
042524
020105
040045
047515
052123

052040
031467
100
040511
020117
043122
042524

5244
5245
5246
ggzg

027274
027302
027310
027316

046111
020114
040515
020056

5249

027323

027330
027336

5253
gggé

20-JAN-78

09:11

PAGE 120

SEQ 0141

MES66:

.ASCII

;SERIAL 1/0 INTERFACE TESTZa;

042524
037456

MES67:

.ASCII

;REMOTE DST.? a;

042514
042504
020114
037477

040507
044503
047516
100

MES68:

.ASCII

ILLEGAL DECIMAL NO.

050
052517
100

047111

044055

MES69:

.ASCII

;(IN-HOUSE).a;

027337
027344

050
024504

044506
040056

046105

MES70:

.ASCII

;(FIELD).a:

5256
5257
5258
5259
5260
ggg}

027350
027356
027364
027372
027400
027406

047111
040504
042524
052101
052123
052117

052520
040524
046522
020105
053440
022456

020124
020054
047111
042524
042457
100

MES71:

.ASCII

;INPUT DATA, TERMINATE TEST W/EOT.Za;

5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282

027413
027420
027426
027434
027440
027446
027454
027462
027470
027473
027500
027506
027514
027520
027526
027534
027542
027550
027552
027560

105
042516
047506
040524
047105
043516
042040
054501
026124
122
052111
042532
030067
041505
051505
052123
020105
057440
042522
042101

040530
023440
020047
040056
042524
052040
051511
052040
040
026505
040511
050040
040056
047510
026124
051117
042524

044515
044506
040504

MES72:

.ASCII

EXAMINE

044522
042510
046120
051505

MES73:

.ASCII

ENTERING THE DISPLAY TEST, :

047111
044514
046504

MES73A:

.ASCII

;RE-INITIALIZE PDM70.a;

052040
057440
043501
052123

MES74:

.ASCII

ECHO TEST, _:

MES75:

.ASCII

;STORAGE TEST _;

042523
051104

020124
051505

MES76:

.ASCII

;RESET ADDRESS %a;

5284
5285
5286
5287

027572
027600
027606
027614

033515
020040
040504
046440

033463
047506
044524
042117

040470
047125
047117
046125

MES77:

L.ASCII

:;M7378A

ggzg

5250
ggg;

027272

040040

042523

027051

??a;

'FIFO' DATA.Q;

FOUNDATION MODULE TEST. Za;

RRRRRRRIIRRRRRRRRRRRRRRRRRRRRRARRAARAARRARAARARARAAAAAAAA R

CZPMACO PDM70 DIAGNOSTIC TEST

027622

020105

020056
052520
050117

042524

MmN
PAGE 121
09:11

SEQ 0142

052123
041523
051120
047117
033440

MES78:

LASCII

;PUT SCOPE PROBE ON PIN 78 ._;

042536
054105
047522
052102
040040
040467
052117
044522
047457
027124

MES79:

LASCII

;USE “E TO EXIT FROM SUBTEST. a;

MES80:

LASCII

;M7377A REMOTE SERIAL [/0 TEST.

042514
031061
042516
020051
044103
053050
046102
046522
051117
037122

MES81:

.ASCII

; SELECT 012 (LINEFEED) SWITCH 'V'(VARIABLE TERMINATOR).<CR>a;

041440
043501
052524
020117
047111
040045
020124
051440
027110

MES82:

LASCII

sHIT CARRIAGE RETURN TO CONTINUE.ZXa;

MES83:

.ASCII

JRESET MODE SWITCH.Za:

046103
020063
047514
042117
047524
046440
051440
051504

MES84:

.ASCII

;SET CLOCK 3 ON CLOCK MODULE TO 100 MILLI SECONDS.ZX%_:

MES8S5:

LASCII

;%% SET SWITCH

047117

052105
041524
047440
052111
052040
020056

051440

051124

MES86:

LASCII

;%% STRAP QUT EOT<CR>Xa.

041117
050040
020070
051525
052040
052111
020115
051505
033515
051040

052101
041474

052111

041505
022456
022445
051440
020110
020106
044103
020117
040045
022445

ME SSAGES

20-JAN-78

BEEARAAAMAA ~Ne

5288
5289
5290
5291
5292
5293

MACY11 30A(1052)

%a;

1 OF SWITCH P TO ON. %a;

2XIECCS 233333333

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1

19-JAN-78 14:50

5344
5345
5346

030312
030320
030326

050101
042440
037122

5349
5350

030346
030354

045040
036122

5347
5348
5351

5352
5353
5354

030332
030340
030362

030370
030376
030404

047515
040440
051523

047440
052117
040045
042522
042440
046525
051103
042523
052504
042104
036?40

022445
042526
042522

ME SSAGES

20-JAN-78

09:11

PAGE 122

052125
041474

047515
052117

MES87:

.ASCII

;XXREMOVE EOT JUMPER<(CR>a;

020124

MES88:

.ASCII

;RESET MODULE ADDRESS <CR>Za;

042520
040076
042514
042522
051103

5356

030415

015

051412

051127

MES89:

.ASCIZ2<15><12>/SWR=/

5358
5359
5360
5361
5362
5363

030424
030432
030440
030446
030454
030462

005015
051440
023440
053440
020124
047122

047012
051127
052123
051501
042522
042105

053505
000075
023530
023516
052524
022456

MES90:

.ASCIZ<15><12><12>/NEW SWR=/

ERR1:

.ASCII

;

5366
5367
5368
5369
5370

030471
030476
030504
030512
030520

052047
051105
042522
042117

040

044504
042440
040440
051523
027105

047104
052116
042104
046440
040045

ERR2:

.ASCII

; DIDN'T ENTER ADDRESS MODE.Za:

5372
5373
5374

030526
030534
030542

042040
051105
040045

052101
047522

020101
027122

ERR3:

.ASCII

; DATA ERROR.Za;

; ADDRESS ERROR IN 2ND PROGRAMZA;

051117
047062
043517
100

044440
020104
040522

042522
051122

.ASCII

030560
030566
030574
030602

042104
042440

ERR4:

5377
5378
5379
5380

040440
051523

5375
5376

030544
030552

SEQ 0143

'STX' WASN'T RETURNED.Za:

020116
051120
022515

030603
030610
030616
030624
030632

040
020047
052047
051125
040045

042447
040527
051040
042516

052117
047123
052105
027104

ERRS:

.ASCII

;

"EOT' WASN'T RETURNED.Za;

5388
5389
5390
5391
5392
5393

030634
030642
030650
030656
030664
030672

030440
047522
053440
020124
041522
042105

052123
051107
051501
042522
046125
022456

050040
046501
023516
044503
052101
100

ERR6:

.ASCII

; 1ST PROGRAM WASN'T RECIRCULATED.Xa;

5395
5396
5397
5398

030677
030704
030712
030720

040
050040
020131
0¢ri22

040504
051101
051105
040045

040524
052111
047522

ERR7:

.ASCII

; DATA PARITY ERROR.Xa;

TR R

5382
5383
5384
5385
5386

R R R332
33333

CZPMAC.P1

MACY11 30A(1052)

CZPMACO PDM70 DIAGNOSTIC TEST

5455

SEQ 0144

044440
046101
020101

046114
042040
043130

043505
052101
051105

ERR8:

LASCII

; ILLEGAL DATA XFERZXd;

023516
054501
052040
047510

ERR9:

LASCI:

;

"SYN' DELAY 'X' TOO SHORT.Za.

052122

054523
046105
023530
051440
022456

031005
031012
031020
031026
031034

040
020047
020131
047524
043516

051447
042504
054047
020117
022456

047131
040514
020047
047514

ERR10:

LASCII

;

"SYN' DELAY 'X' TOO LONG.Zd;

031041
031046
031054
031062
031070
031073
031100
031106
031114
031122
031124
031132
031140
031146
031154
031162
031166
031171
031176
031204
031212
031220
031223
031230
031236
031244
031252
031257
031264
031272
031300

040
052047
051105
020101
022456
040
020047
052047
042040
040045
040440
046125
020123
042514
044124
027122
023440
040
044504
041440
052517
022440
040
040527
051440
042520
027124
040
040527
051040
042516

044504

047104
052116
052101
042504

ERR11:

LASCII

; DIDN'T ENTER DATA MODE.Z%a;

054124
047104
051114
027124

ERR12:

LASCII

;

"STX' DIDN'T CLR DEST.Za;

046440
020105
047105
020104
040440
023440

042117
040527
041101
044527
042104

ERR13:

LASCII

;

A MODULE WAS ENABLED WITH ADDR.

052105
047104
051114
041522

020130
052047

ERR13A:
ERR14:

.ASCII

047505
047123
051124
020104
022440
052105
047123
052105
027104

020124
052047
050101
052517

ERR15:

LASCII

; EOT WASN'T STRAPPED OUT. %a;

020130
052047
051125

ERR16:

.ASCII

; ETX WASN'T RETURNED.Q;

031305
031312
031320

046101
137

040

042523

044440

044522
047457

ERR17:

.ASCII

; SERIAL 1/0_;

031321
031326
031334
031342

040
051120
020115
0529247

047062
043517
044504
042440

020104
040522
047104
052116

ERR18:

LASCII

; 2ND PROGRAM DIDN'T ENTER DATA MODEQ:

100

.ASCII

TTITTmTITm
T

"
: ETX DIDN'T CLR SOURCE, %a:

051440
026105

100

TR
TR

°*;

100

051505

100

0461440

mTTmThmm

030724
030732
030740
030746
030750
030756
030764
030772
031000

5405
5406
5407
5408
5409
5410
5411
5412
5413
5414
5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
5425
5426
5427
5428
5429

B 12
09:11
PAGE 123

YA YER. YER. IR THWL "SR

5404

MESSAGES

20-JAN-78

—

5400
5401
5402
5403

MACY11 30A(1052)

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PI

100

5456
5457
5458
5459

5460
5461

5462
5463

031350
031356
031364

031365
031372
031400
031406

5468

031414
031422
031430
031433
031440

5473

031475

5464
5465
5466

5467

5469
5470
5471
5472

19-JAN-78 14:50

031446
031454
031462
031470

ME SSAGES

20-JAN-78

¢ 12
PAGE 124

09:11

042040

047515

052101
042504

040
020114
042514
023516
042524
040524
027105
040
052101

047103
047515
042040
020124
020122
046440

051124
052504
042111
047105
040504
042117

ERR19:

LASCII

; CNTRL MODULE DIDN'T ENTER DATA MODE.a;

047516
020101

042040
042522

ERR20:

LASCII

; NO DATA RETURNED WITH EXT. SYNC.a;

045

046111

042514

ERR21:

.ASCII

;XILLEGAL EXTERNAL CONVERSION.a;

051105

020101

100

052524
053440
054105
047131

100

047122
052111
027124
027103
020114
047122
047117
047511

042105
020110
051440
100
054105
046101
042526
027116

031502°
031510
031316
031524

040507
042524
041440
051522

031533
031540
031546

040
043040
020124

040504
051117
051105

040524
040515
047522

ERR22:

.ASCII

. DATA FORMAT ERROR.Qa;

5483

031557

122

046505

052117

ERR23:

.ASCII

;REMOTE

5491

031633

103

042514

051101

ERR24:

.ASCII

;CLEAR LEFT GARBAGE IN MODULE FIFO.%%a;

ASTRIC:

.ASCII

;+a;

5474
5475
5476
5477
5478

5479
5480
5481
5482

031532

031554

100

027122

100

041440
046040
040507
020105
042117
044506
100

042514
043105
041122
047111
046125
047506

031640
031646
031654
031662
031670
031676
031700

046040
040507
020105
042117
044506
040045
040052

043105
041122
047111
046125
047506

228?

031702

022477

040056

QMARK:

.ASCII

;?%.Q;

ggg%

031706

022445

040056

DOT:

LASCIT

%%.9;

gggg

031712

026445

100

DASH:

.ASCII

;%=a:

5506
5507
5508
5509
5510
5511

031715
031722
031730
031736
031744
031752

045
025453
025440
025453
041523
137

025440
025453
025453
025453
046101

SCALE:

LASCII

;X #+++4444+ sesseess (SCALE=_;

025453
025453
025453
024040
036505

020124
043501
046440
020105
022456

wwn

031564
031572
031600
031606
031614
031622
031630

5492
5493
5494
5495
5496
5497
gzgg

CLEAR LEFT GARBAGE IN MODULE FIFOZZa;

020105
051101
020124
043501
046440
020105
022445

5484
5485
5486
5487
5488
5489
5490

SEQ 0145

tninnen

CZPMAC.P1T

MACY11 30A(1052)

IninInIinialAIAIAIAIAIALA

CZPMACO PDM70 DIAGNOSTIC TEST

061
061
137
061
042057

020045

053115
030060

137
053125

:
XMy

sImMv_;
;100Uv_;

052460
053111

057526
022451

X10UvV:

XDIV:

f}gngéz 2

051117

047514

XLOW:

LASCII

;%0RLOW

044122

043511

XHIGH:

LASCII

;X0RHIGH a;

END:

.ASCII

100

X100UV: .

032003
032010
032014
032022
032025

045
020127
047445
020110

032026

040134

SLASH:

LASCII

s\a;

032030

040136

UPAROW:

LASCII

032032

040045

CRLF:

.ASCII

J%;

032034

022445

100

CRLF2:

LASCII

J%%a;

032037

104

030503

040045

MESDC1:

LASCII

:DC1%a;

032044

041504

022462

100

MESD(2:

.ASCII

;DC2%;

032051

104

031503

040045

MESDC3:

LASCII

;DC3%9;

032056

041504

022464

100

MESDC4:

LASCII

;DC4%Q;

032063

123

054124

040045

MESSTX:

.ASCI1I

;STX%;

032070

054523

022516

100

MESSYN:

.ASCII

;SYNZQ;

032075

123

044117

040045

MESSOH:

LASCII

;SOHZa;

032102

044523

040045

MESSI:

.ASCII

;S1%;

032106

047505

022524

100

MESEOT:

LASCII

;EOT%9;

032113

105

054124

040045

MESETX:

LASCII

JETXZA;

100

TMy
4

100

040040

SEQ 0146

MnNNNNNNNNWN en

031753
031757
031764
031765
031772
032000

ME SSAGES

D 12
09:11
PAGE 125

5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551

19-JAN-78 14:50

20-JAN-78

tALALALNALA

CZPMAC.PT

MACY11 30A(1052)

AU RINIAIAIAIAIAIAIAIAIAIAIAIAIAIAIAIALALA

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

19-JAN-78 14:50

5552

SSSS

MACY11 30A(1052)

ME SSAGES

5554

.SBTTL SOF TWARE

032120
032122

000000
000000

.EVEN
MTRSWH: 0
PRTSWH: 0

5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589

032140
032142
032144
032146
032150
032152
032154
032156
032160
032162
032164
032166
032170
032172
032174
032176
032200
032202
032204
032206
032210
032212
032214
032216
032220

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0G0000
000000
000000
000000
000C00
000000
000000
000000
000000
000000
000000
000000
000000
000000

KSTORO:
FORMT1:
DLYSWH:
DSTSWH:
SENDSW:
OPRTSW:
TERMSW:
TOPC:
COUNT:
FROMPC:
SAVEPC:
SAVPSW:
SAV2PC:
SAV2SW:
KSTOR1:
KSTOR2:
KSTOR3:
KSTOR4:
KSTORS:
TSTNUM:
TEMP1:
TEMP2:
CHRCNT:
RUBSWH:
PRGSWH:

5591
5592
5593
5594
gggg

5597
5598
5599

PAGE 126

(2323223333233 23 2222222222322

SEQ 0147
223222222222l

'SWITCH' ADDRESSES

:t"tt".'.fiti'ttttttt'"'Qit"tttt'tttttt'ttfitttttfitttitttt'ttittttt'iti

5556
5557
5558

5590

09:11

;t'tfitt*tt*fifitttt'tfitt

SSSS

5559
5560
5561
5562
5563
5564

E 12

20-JAN-78

032124
032126
032130
032132
032134
032136

032222

032224
032226
032230
032300

032302

001506
001506
003717
000000
000000
000000

000000

RVECTR:
AVECTR:
OFFSET:
SIOSWH:
MODADR:
REPTSW:

LOPSWH:

MONTR1
MONTR1
1999.
0
0
0
0
O
0
0
0
0
0
0
.WORD
0
0
0
0
0
0
0
0
0
0
0
O
O
0
0
0

;CONTAINS THE °'CNTRL R' RESTART ADDRESS
;CONTAINS THE °'CNTRL A' RESTART ADDRESS
;A/D OFFSET
;SERIAL 1/0 SWITCH, SET IF SERIAL INPUT USED
;STORAGE OF CURRENT MODULE ADDRESS

000000
000000
000000
032300
000000

RESTRT: 0
ORLOW:
0
MINUS9: 0
LS. 446
ORHIGH: 0

000000
032614
001376

AVGTAB: 0
.=.+200.
.END
MONITR

; TEMPORARY COUNTER(REMOTE SER 1/0).

ASEMBL
ASTRIC
AVECTR
AVERAG=
AVGDAT
AVGTAB
BCDBIN=

8CDEN1
BCDBNZ2

BCDEND
BCDERR
BCDIO

BCDIO1T
BCDTAB
BCDTO
BCDT1
BCDT10
BCDT11

104031

016006
032302
104030
022446
022454
022536
022554
004606
004652

BINDEC
BYTEA
BYTEX

CALBT1

1435

1451

11844
1418

905

986
1005
820
8624
8754
8904
902#
918
141#

005440

1364

139%

947

BCDT4
BCDTS
BCDT6
BCDT7

3118
36334
3631
35934
3598
3617

13604
4153
4618

8014
812#

BCDT12
BCDT13
BCDT2
BCDT3

1288
851
1688

13244
1340
285
4588

357

35154
35204
1385#

2961

3433

2061
3166

913
2161
40034

2298

2495

3621

36294

4303
54984
55604
1645

4833

3075
2193

1144

1289
1327
1274
1506

38394
1437
1384
L644H
LELTH
4L648
4653

1769

2810

12714

334>

1749
4409

2623

1089

1260

12864

1192
40184

2425

335«

1456
1417
4669
4665
4651
4655

11644
1228
1420

3735

1546
1698

2722

LE66#

L6724
4642

4643~

825

830

835

8484

9294
1535

1539

1729

9584

9784
9974
10124

1380
4401
1780

984

2634

1410

1568

1738

1993

2029

1966

2075

2155

2287

2571

1003

2650

1039

2685

1208

2769

1248

2819

1274

2917

55974

1699

1016

3637

3249

A A A A A A A AAAAAAAAAAAAAAAAAAAA
A

014644
014512
014552
014572
014626
005022
005024
005110
005142
005252
005402
104015
031700
032126

1237

3210

ADSER1
ADSLOP
ADSLP1
ADSLP2
ADSNXT
ADTO
ADT1
ADT?2
ADT3
ADT4
ADTS

892
815
1335
3086
3625
35814
3587
3592
3585
12384
12454
1255

1166

2749

005154
017220

1052

1027

L6754

ADRSIT
ADRSRC

2317
1062
2708

W71t
1708
270

017234

1315

1644

ADRDST

1314«

1310
1636

106026

48384
1294
1392
16874

ADDRES

104027

006710
006716
006736
007030

4824
1293*
1374
1685
16904
16954
1705
1364

SEQ 0148

ADCTO
ADCT1
ADCT2
ADCT3

023346
005211

MACY11 30A(1052)
20-JAN-=78 09:11
PAGE 128
CROSS REFERENCE TABLE == USER SYMBOLS

ADCHX1
ADCNVT

19-JAN-78 14:50

_——

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PI

F 12

1394
1431

2636
2674k
26964
27204
27284

26474

005444
104032
012074
012124
012206
012254
012344
012354
032214

CLRMOT
CMPTIA

021524
011254

CMP1A
CMP1IB
CMPIBA
CMPIC
CMP1CA
CMPIDA
CMP11

010344
010522
012762
010516
012756
012774
003322

20984
21664
29284
21654
29274
2929

CMP2A
CMP2B
CMP3
CMP4
CMPS
CMP6
CNTLOP
CNTRLA
CNTRLC
CNTRLE
CNTRLG
CNTRLO
CNTRLR
COUNT
CP1B
CP1C
CRLF
CRLF2
cT10
cTn

003554
004002
002432
002514
002610
002772
014472
015222
015210
015262
015172
015276
015240
032160
012576
012572
032032
032034
003034
003246

8314

CT3A

CT4
CTS
16
cr7
DAOUT
DASH
DATA1
DATA2
DATA3

003430
002322
002374

002366

1398

23724

1399
1571

3663«

4812+
44134

3691«

3692

3703

3705+

4068+

3716

3739

3798

4540

55294

4834

55874

4070

4647

L4649+

4668

4789

4304

7254
L4614

9144
4924
522#

5564
602#
3145
3730
3726
3737
3700
3743
3733
3139«
28274
28264
1032
1541

3567

55734
1665

6324

7094

7894

5154

002470
002552
002646
003012
007746

1841

1855

1869

1883

1897

1910

1923

1945

1951

19634

031712
004712
004722
007776

1210
1224
1839+

1853«

1867+

1881x

1895+

1908+

1921+

1941«

1947+

1963

2 2 2 2C 2C 2 2 D 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 X

(112
T2
T3

002340

1697«
4801+

SEQ 0149

CMP2

002264

2531#

G 12

30A(1052)
20-JAN-78 09:11
PAGE 129
CROSS REFERENCE TABLE == USER SYMBOLS

it~

13874
1404

CALBT2
CHANEL=
CHART1
CHART2
CHART3
CHART4
CHARTS
CHARTE6
CHRCNT

CMP1

MACY11

XELCELEELEELECCE

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50

CZPMAC.P11

010000
010002
010004
007206
007242
007276
007332
007366
007422
007456
007512
007546
007602
007636
007102
007652
007136

DATASL
DATAS
DATA6
DATSTS
DATST4
DATSTS
DATST6

DATST?
DATS10

DATS11
DATS12
DATS13
DATS14
DATS15
DAT1
DAT15A
DAT?2
DC1

000021

DC2

= 000022

DC3

= 000023

000024
001712
001746
022650
022710
022670
022702
DEC2
DELAY = 104004

=
DC&4
DE CODE
DECOD1
DECOUT
DECPNT
DEC1

DELAYL= 104020
DESTIN= 104024

DIVCIT

DIVIDE
DL YSWH
DOT
DSTADR
DSTSWH
ECHO
EMTOK
EMTSRV
EMTTAB
END

016042
016016
032144
031706
017277

032146
015064

1798«
1943«

1944
%

17954

MACY11 30A(1052)

09:11

PAGE 130

SEQ 0150

CROSS REFERENCE TABLE == USER SYMBOLS

1812%
1949«
1950

1826+

1840
19744

2017

1854«

1868+

1882+

1896+

1909*

1922+

1942+

1948+

19734

411

580
3286

650
3294

660
3304

3328

1301

2204
3479

2244
3535

2452
3542

2521
3547

2986
3599

3010
3759

415

584
3315
587
3124
3603

654
3470
659
3152
3765

2208
3539
664
3176
3942

2248
3544

2344
3762
2210
3293

2523

2972

3013

3122

2458

2525
3317

2974
3330

2988
3472
4133

1965+
19754

1809#

1823#
18374
18514
1865#
18754
18934
19064
19194
19364
17474
19414
17674

2224
3029
3986
2234
3174
224M
3012
3482
2254
3104

1952

403
3150

4006

407
3290
409
3016
3541

3188
4108
3298

419

410

3031
3546
3768

47094
4701

47044

2816

2817

3860
3839

38484

55024
3073«

2462
3712

347
3184
L6984

47064
592
4025

1594
1534
1664

4020

4022

3308
4030

2771

3087

3633

3183

1350

2581
3338

2582

1938+

2486

4097

4420%

55674

3102+

3579«

3581

3584

3629+

3630

2517«
3721

2529~

3995+«

4118

4127+

55684

485
1147

517
1204

1261

547

548
1276

1756

1209

4131

1305
3190
4010

2818

720

2456

4028

2250
3303

4079

4112

3339

3608

4099

4020

4022+

40264+

40294

968
2047

2113

3936

4077

497

END?2

3179

ENQ
EOT

1128

2153
2808

ERREXT
ERRMES

20-JAN-78

H 12

020620
017136

4369
42184

3930+

2267
2981

4416

39604

2294
3082

2389
3127

2405
3275

838

2470
3473

852

1774

2496
3492

879
1965

2580
3620

1075

030440
031005
031041
031073
031124
031166
031171
031223
031257
031305
031321
031365
030471
031433
031475
031533
031557
031633
030526

ERR4
ERRS

030544
030603

ERR7
ERR8
ERRS
ERTRAP
ETX
=

030677
030724
030750
020440
000003

EVECTO
EXTTY

014404
015152

ERR6

030634

FDATA
FLAB1
FLAB17
FLAB2
FLAB3
FLAB3A
FLAB4
FLABS
FLABSA
FLAB6
FLAB7
FLO
FLOP
FLOPB
FLUSH
FND1B

014072
014042
014565
014037
014067
014066
014363
014113
014112
014351
013660
013670
013674
013704
002050
014140

FNDID
FND3A

014152
014302

FNDSA
FND58
FNDS5C
FNORM

014342
014370
014354
014060

FND1C
FND5

FORMT1

014134

014334

032142

622
645%

819
2282
1312

1310+

2225
2308
2219
54484
508
447
433
988
1339

S5479#%
3203
3159
464
1264
495
488

2256
684

3038

3050
3635
3633«

3057
54264
54324
54334
5438#
54434

946

3002
3097
2996

54524
54604
596
1007

54734
5483#%
54914

54104
1254

53664
1354

469

2066
644%
97
2264
4113
3451«
3675
3284
3270+
36004
32924
33164

53604
2090
54214

2303

2364

3091

54164

54674

728

824
2169

829
2375

834
2830

841
2931

869
3355

882
53724

917

951

971

855
559
2369
2133
54044

1259

2050
53884

2127

2402

2499

2638

2775

3343

53824

2353

2408

2654

54004

665

2211

2216

2543

2975

2993

3309

3786

3950

37184

3728

5749

3751

3270

3652+

3807«

4547

2101

525

588

3745
3684
33204
3646%

53954

33154

34804
33294
33284
34714

32394
32474
32484
32524
328
33524
3341
3353
3425
34614
34674
3462
3469
3281
379+

3252
3505
343

3379

34324
3478
34874
34764
33124
3795

SEQ 0151

ERR1
ERR10
ERR11
ERR12
ERR13
ERR13A
ERR14
ERR1S
ERR16
ERR17
ERR18
ERR19
ERR2
ERR20
ERR21
ERR22
ERR23
ERR24
ERR3

19-JAN-78 14:50

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

I 12
PAGE 131
09:11
)
-78
20-JAN
MACY11 30A(1052
CROSS REFERENCE TABLE == USER SYMBOLS

3493

3799+

55664

1215

4092

014014
014212
014270
014312

FOUNSW
FPROG
FROMPC
FSTUF
FTST

L1711+

3255
3323

017547
017643
017202
011167
014046
014032
014036
014051
020770
015330

1648
3824#
1174
4670
302
1422+
1421*
3821~
271
272*
273
274
275*
276*
277
278
279%
280~
281«
3256
3257
3259«
3258%
4234
268

014740
015030
015006

36664
36854
3673

GANEXT
GETDAT
GETREG
HEADER

HIDIVD
HIDIVR
HIGH

IADRSO
IADRS1
IADRS2
IADRS3
IADRS4

IADRS5
IADRS6
IADRS7
IADRS8
IADRS9
IADR10
IADR11
IADR12
IADR13
IADR14
ICOUNT
INBUF

INPUTA
INPUTB
INPUTC
KEYAD1
KEYAD2
KEYTO
KEYT1
KEYT2
KEYT3
KEYT4
KSTORO
KSTOR1
KSTOR2

KSTOR3
KSTOR4
KSTORS

LDCHRO=

LDPGMO=

32804
3356
3390
3388
3395
32434
3285#

011623
011625
011524
011532
011554
011734
012036
032140
032174
032176

4596

2483«
2484
24LB5#
24934
2497
2544
25914

4395«
1420+
1444%

3414
3373
3424k
34424
3451
3247%

3490
4179+

3410
3327

3375

33874

35014
3387
3590

3413

4181

55744
36464

1654

16734

1714

1730

3718

3836+
3872#
3827
581

3852

38744

3829«
585

38774

4157

3258

3259

39894

320

1170

1448

4204~

3582
33384

41324

3257

4353
4792

3695

SEQ 0152

3869

4100

4140

4332

4478

4516

4577

1695«

1696+

2000

3665

37554

419

4193

4399

4306

4311%

4312+

4313

4314+

4317

5579#

4212«

4214

55814

516
2535

532
2573

546
2575

617
3491

1146

2240

2289

2341

2390

2709

1750
4368
1781

1755
44615
1968

2112
4605
2085
2969

3840

3704

2552
55654

55824
55834

2229

=
N ON
O ~NOW

FOUNDL

FOUND2
FOUND3
FOUNDS
FOUND6

J 12

20-JAN-78 09:11
PAGE 132
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

nO =P
W=\

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

1193

3971

1770

2812

2914

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC.P11

LODIVD
LODIVR
LOPSWH
Low

MASK
MATCH
MATD
MESADR

MESDC1
MESDC2
MESDC3
MESDC4
MESEOT
MESETX
MESS]
MESSOH
MESSTX
MESSYN
MESO
MEST
MEST10
MEST1
MES12
MES13
MES14
MES14A
MES1S
MES16
MES17
MES18
MEST9
MES2
MES20
MES21
MES22
MES23
MES24
MES24LA
MES2S
MES26
MES27
MES28
MES29
MES3
MES30
MES31
MES31A

MES31B
MES31C
MES3ID
MES31E
MES32
MES33
MES34

016114
016110
032222
016120
022114
002000
014504
020616

032037
032044
032051
032056
032106
032113
032102
032075
032063
032070
023775
024042
024316
024364
024411
024437
024460
024527
024574
024624
024633
024641
024666
024070
024714
024730
024761
025000
025014
025042
025072
025113
025134
025161
025233
024127
025263
025303
02532

025353
(025403
025434
025463
025474
025526
025557

2977
3467

1424*
1423*

388«

1436
4502+

3274
3579#
4205+
3761
3764
3767
3770
3785
3788
3782
3779
3773

MACY11 30A(1052)

20-JAN-78

K 12

09:11

PAGE 133

SEQ 0153

CROSS REFERENCE TABLE == USER SYMBOLS

2983
3476
3820«
3823«
426

1668
4508

330

3025
3516
3851
38714
736*
3830

3077
3531
38734

3119
3589

3147
3593

3170
3596

3185
3984

4105

4128

792«
3832

1570«
3834%

1659
38754

1661

2034~

2760

55904

3067

3407

L9494

934

961

50554

50884

3007
3487
3835«
3849
429+
3822+

4513

4518#

L2164

55334
55354

55374
5539#

4470

55514
55474
55454
55414
55434

48984
49074
1329
49564
49604
L9644
49674
L9744
49814
49854
L9874
49904
49954

3960
1595
1603

55494

2279

49134
50004
5003#

50164

5025#
50294
50334
5037#
50464
49204

50524

907
5058#

50674
50724
50764
5078#
50834
1105

3282

3312

3320

4624

3325

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

MES35
MES37
MES38
MES39
ME S¢
MES4O
MES40A
MES40B
MES41
MES42
MES43
MES44
MES4S
MES46
MES47
MES4B

025612
025631
025643
025726
024161
025775
026034
026064
026111
026116
026143
026161
026215
026242
026305
026352

MESS0
MES51
MESS2
MES53
MES54
MESSS
MES56
MESS57
MES58
MES59
MES6
MES60
MES61
MES62
MES63
MES64
MES6S
MES66
MES67
MES68
MES69
MES7
MES70
MES71
MES72
MES73
MES73A
MES74
MES75
MES76
MES77
MES78
MES79
ME S8
MES80
MES81

026430
026462
026514
026522
026530
026536
026544
026552
026576
026620
024227
026654
026705
027037
027055
027100
027166
027223
027256
027274
027323
024236
027337
027350
027413
027440
027473
027520
027534
027552
027572
027634
027670
024257
027726
027767

MES49
MES5

MES82
MES83

026401
024205

030063
030126

1080
1132
1143

2481
3930
51144
51204

L 12
PAGE 134
)
09:11
20-JAN-78
30A(1052
MACY11
CROSS REFERENCE TABLE == USER SYMBOLS
5093#
50964

5098#
5107#
49254

1106

1133

1168
1165

51294
51334

51284
2607
1737
1753
1758
1777

SEQ 0154

2621

51414
51454
51514
51584
5162#
49304
1815
1885
1872
1886
1900
1913
1926
51814
51854
49354
1000
51984

51244

51364

1829
1899

51764
51774
51784
51794
51804

1342

51934

1227

1363

52144
5217#
52214
52304

52564

1619

2319

2417

2594

2731

3213

3504

49384

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1T
030152
030236
030304
030332
030362
030415
024275
030424
032230
032134

ME S84
ME S85
MES86
MES87
MES88
MES89
MES9
ME S90

MINUS9
MODANR
MODERR= 104022

001376
001506
001630
001660
001674
001700
001612
022042
032120
012442
004332

MONITR

MONTR1
MONTR2
MONTR3
MONTR4
MONTRS
MONT1A
MOVEIT

MTRSWH

M377A1
M381E1
M381E2
M385A1
M7377A
M73778
M7378A
M7380A
M7381A

3114
3115
53434
53474
3099

4828
4544
4832
1476%

821

1324
595
881
1338

2255
2774
3354

M2
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 135
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0155

53274
53364

53514
53564

L9464

5358#
1487

2283«

2320

676
950
2065
2307
2995

683
970
2078
2352
3001

2089
2363
3037

2094
2368
3049

55634
550
840
1263
2168
2498
3158

3731
5560

3961

4182

4567

5599

1384

1413

2509

2567

4589

250

4741

937+
432
604
916
1353

463

110

468

3071~
487

727

987

3100+
494

818

1006

010134
012370
012376
002160

M7381E

3854
7984
10254
10504
12354
1378#
15664
14084
17364
19914

20274
23314
24234
24804

793

1620

2609

7114

NULL

NULL1
08CDT1

nnn

26064
26204
340
633

004422

248
668

2732
3454

680

3565

4619

558
854
1278
2218

2637
3202

567
868

1311

2224
2653
3342

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PT
0BCDT2
0BCDT3
0BCDT4
OFFSET

OPRTSW
ORHIGH
ORLOW
PARITY
PDMPRT
PDMSET

19-JAN-78 14:50

004462
004522
004564
032130

032152
032300
032226
016220
015650
015434

10874
11134
11404
1703

3750%
1461
1459
466
3760
2542

015632
015644
015646
015674
005726
POP2SP= 022626
POSTIT 007040
PRCNTR= 104000
PRGM1
002213
PRGM2
002222

3793
3790
3796
3803
430
454
1548
1144
400
4104

PRINT = 104012

1244
906
1142
1505
1639
1870
2416
2895
3752

PDMSTO

PDMST1
PDMST2
PEXT2
POP1SP=

PRGSWH

032220

PROMD

003427

PROMS
PRTBF1

55894

4396
731

MACY11 30A(1052)

20-JAN-78

1724
4459%
1467«
16471«
2092
3763
2663

4480
1508
1534
3892
3769
4139

55704
1530
55924
39024
3772
4549

3801
425
484

4599
521
527

555
561

257
931
1164
1524
1662
1884
2423
3066
3797
4469

265
933
1167
1532
1664
1898
2480
3098
3805
4539

283
960
1226
1536
1736
1911
2549
3113
3959
4543

L4764
4180
1397

3683

4209
2686
3699

4309

55004

37974

38014
38024
3810#
332

246
17224
3724
4034
435

7804

724
45394
45414
4466
1264
1454

7414
4566
4576
4471
4175
1044

PRT1A

4548%

4551

47204

346

3753

032122

PRTIB
PSW
PUSH1S=
PUSH2S=
PWRFAL

022222
001340
005746
024646

4545
2004
Lon
Lan

QMARK

022756

031702

4728

PWRUP

022210

022722

QUOENT 016122
RANA
021134
RANB
021136
RANC
021140
RANDOM= 104011
RBUFO
001360
RTSRO
001356

RECBFO

016234

252«

1428
4270%
4270
4271
1234
2114
2104

836
1692

PAGE 136

CROSS REFERENCE TABLE == USER SYMBOLS

003360
022162
PRTBF2 022166
PRTEXT
021734
PRTOCT= 104014
PRTRBF= 104037

PRTSWH

N 12

09:11

3674

55614
4477+«
1492
1529
2366
3766
3759

SEQ 0156

1538

55954

3935+
3775
4604

3778

3781

3784

3787

38034

301
980
1235
1540
1752
1924
2564
3212
4151

304
999
1328
1566
1757
1939
2593
3244
4172

345
1014
1341
1575
1776
1991
2606
3406
4177

385
1025
1362
1577
1787
1995
2620
3443
4188

712
1031
1378
1585
1800
2027
2657
3503
4215

733
1050
1385
1593
1814
2277
2676
3688
4250

790
1078
1408
1602
1828
2315
2711
3708
4301

798
1104
1414
1610
1842
2318
2730
3715
4308

801
1130
1498
1618
1856
2331
2747
3738
4382

4213

4252

4829

3746

438,

4384

4460%

4476%

55584

3868«
4276

38764
42924

2807

2904

3274

1276

1514
3900

1637
3907

3808
4170

4587

4617

4672

4742

4827

4831

45524

47304
1442
4271
4273%
4274
457
3898
288

866
1693

1452
4272«
4L274%
4276%
577
3922
3899%

919
2087

1646
4273

4275%
4277
2082
3957x

948
2096

4277
4278%
2152
4203«

968

2259

42934
4279
2340

985

3047

42944

2356

1004

3054

1211

3583«

1251

3887

1261

3890

3894+

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PI

RECEND
RECEOT

022224
016222
016736
016224

RECERR
RECETX
RECEXT
RECSTX
RECVER
RECVPT

017124
016230
017112
016226
016740
016232

RE CBUF

RECDC3

RECVRO= 104005
RECVR1

RECYCL
REMAIN
REMOTE
REPTSW

REPTO
REPTOA
REPT1
REPT10
REPT11

REPT12
REPT13

017026
001754
016126
021442
032136
005636
005532
005646
006236
006246
006304

REPT14

REPT2
REPT3
REPT4
REPTS
REPT6
REPT6A
REPT6B
REPT7
REPT8
REPT8A
REPT9

032224
020774

RINTO
RLVLO
RPT12A

001366

RUBSWH
RUN
RVECTR

SAVEPC
SAVPSW
SAVREG=

032170
032172
037715
SCALE
SCOPE = 104001

4558
L5584
39034
3926
681
2942
3932
39064

298
3888+
119
2286
3607
3929
3204

>
3944
816
3093
39574
3952+
3945
3896+

3921

714

2358
4229

14144
14344
1517+
15294
1531

1427

15474
14514
1450
14654
1468
14874
14924
14944
1490
15004

1669

3662+
14304

1523«

1528

314
910+

4316+

2144
2154
15434
3664
377
303+

4750+
4751+
1164

4640
4752+
4753+

1525
1154

1040

1256

3340

3377

3949
39054

39534
3948+

3953«
911

940

1690

2124

39044

2162
3938+

2178

2305

2399

2820

2839

965

1038

1207

1296

3074

1333
3084

1687

3140

2084
3163

2239
3277

3893x

2444
4355

2516
4591

2570
4623

2968

3024

4406

4407

4413

4417

55644

2357«

2568+

2707

3070

4241

4255+

4259#

3818

3848

4061

6137

4326

4458

4498

4574

576

616

632

709

789

848

862

875

342

38784
43944
4365

1496

SEQ 0157

4575

1426
1381

15084

RESTRT
RETURN

SAV2P(
SAV2SW

39084
374
38395+
3910#
674
2918
3927
3897+
3939
2253

B 13
MACY11 30A(1052)
20-JAN-78 09:11 PAGE 137
CROSS REFERENCE TABLE == USER SYMBOLS

15264

14774
1495

15144
317
939
4349%
298+
300+

333

4352«
1331«

55914
2083«

2282«

3706

3711+

55884

4762
4761
1666

3687«
4631
4350~
4768«
4769
1682

4351«
4780
4779
1722

4352

55554

4760
4759

4770
4771

4778
4777

SS774
55784

481

515

545

3685

L6174

3741

4684

55064
456

964«

55754
55764
3661

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

890

1360

2059
2647
3269

4231
4234
4233

SCOPEB
SCOPEF

2176
2960
2304
3092
20554
2064
2111#
2773
2052
2844
2170
2932
2940
2200#
2967#

SD10A

376
35164
35314
253«

L5944

000017
032132

032026
014470
017664
000001
017231
SOURCE=
SPACE =
SPACEX
SPCHR1

SPCHR3
SPCHRS

SRCADR

STADR?7
STADR8
STADR9
STAD10
STDR10

104025
104016

021262
015070

015140
015156
017227
010637
010727
013170

MACY11 30A(1052)

20-JAN-78

¢ 13
PAGE 138

09:11

SEQ 0158

CROSS REFERENCE TABLE == USER SYMBOLS

902
1767

2074
2674
3404
42374
4236*
4235

2192
2997
23144
3098#

929

1795
2111
2696
3432

4242%
L2428
2274H
3003

958

1809

978
1823

1113
1879
2386
2955

1140
1893
2414
2967

1271
1906
2507
3063

1569

1739

1994

2767

2274
2779

1087
1865
2314
2898

3958«

4590~

55694

1053

1175
311

1238
3248

1382
4586

1412

997
1837
2200

1012
1851

2148
2720
3442

2187
2728
3501

L2584

4315~

3055

30634

3672

3792

805
2485
2346

2624

3780

4024

2937

2959

4626

3280
55624

652
3777
912«

662
3990
941

4008

3279~

40094

4193~

43344

3101«

1324
1936
2591

3205

20744

27794
21484
28954
2174
2938
29554

21874
29454

490

4155

41424

3601
877+

1391+

3164+
2518

4211
4331%

3072*

1028

1704

4003

2759

3322

3372

1291

2051

2173

3424

3461

21N

2465
3586

2532
3940

1303

z%gg

2246

2454

3288

3296

3306

966>

1002+
2297%

1036+
2633%

1037«
2649+

1172«
2684*

1174»

2060+

983+
2160

4426

4431

4435«

3137«

3165+

4007#

4160%

4403+

2044

599

3394

2768

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
STDR11
STDR12
STDR13
STDR14
STDR1S
STDR?
STDR8
STDR9
STRIPN
STX
=

013207
013467
013531
013577
013617
013103
013125
013165
023232
000002

ST7377
ST7385
SuBX
suBX1
SWR

012450
010162
021142
021170
001352

001354
SWRO
SWSWR
000176
SW02
= 000004
SW03 = 000010
SW04
= 000020
SW0S
= 000040
SW06 = 000100
SW07 = 000200
SWO8
= 000400
SW09 = 001000
Sw10 = 002000
swil
= 004000
sw12 = 010000
sw13 = 020000
Swis
= 040000
SW15
= 100000
SYN
= 000026
SYNTIM 003127
55
012506
S58
012650
TAGB
TAGD
TAGF
TAGG
TAGH
TAGI
TAGILA
TAGOA
TAGOB1
TAGOC
TAGOD
TAGID
TAGIE
TAGIF
TAGIH
TAGIHA
TAGIK
TAGIKA

002236
003056
003140
003170
003206
003222
012744
002452
002304
002534
002630
010362
010406
010432
010472
012740
010646
013130

2754+
2755«
2756*
2757*
2758«
2750%
2751
2752+
4793
2274
3972
276748
20424
373

4305
205#
2275
4823
206#
108#

D 13
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 139
CROSS REFERENCE TABLE == USER SYMBOLS
30304
31274
31514
31754
31894
29734
29874
30114

491
424

520

618

619

649

4310

3064

4066

4072

4083

245

4823

4825

4830

4836~

904

1326

2275

3064

4083
1393

1655

1657

2540

164

144

3165

43014
43114
243
2540
4825

4072
4066
1042

2284
64 Ix
28044
2831
401
638#
648
671
682
678
29174

3102

4817

4095

154

3101

4805#
402
3987

278
264
25#
LM
234
224
bal
204

194
18#
174

3100

697

245%

697

657
6584

3774

2835

2837

2843n

673

675

689

6934

2102

21044

4234

693
6684
6804
6874
685
5034

4428

5324
5634
2091
21244
21334

22134
29934

904

1034

2232

1042

4095

4207

SEQ 0159

2545

1326

4207

3017

3285

3534

3771

3946

1388

1393
4230

1655
4232

1657
4246

2014
4628

4218

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PT
TAGIL
TAGIP
TAGIPC
TAGIPD
TAG1Q
TAG1QA
TAGIR
TAGIRA
TAG1S
TAG1SA
TAG1SB
TAGIT

010476
011134
013642
013644
011010
013274
011046
013332
010712
013156
013176
010732

TAGIU

011060

TAGIW
TAGIWA
TAG1Z
TAGI1ZA
TAG2A

010760
013240
011074
013354
005042

TAGITA
TAGIUA

TAG2B
TAG2C
TAGSF
TAG2G
TAGZH
TAG3A
TAG3B
TAG3C
TAG3D
TAG4A
TAG4B
TAG4C
TAG4D
TAG4E
TAG4F
TAG4G
TAG6A
TAGEB
TAG6C
TAG6D
TAGGE
TAG7A
TAG7B
TAGBA
TAG8BA
TEMP1
TEMP2
TERMSW
TEST1
TEST2
TEST3
TG1H
TG1IKA
TGIL
TGILA
TGIPA

013212

013344

005126
005170
005234
005216
005250
004452
004512
004552
004574
004700
004724
004744
004764
005004
010016
010074
011630
011654
011702
012002
011764
011450
011474
012166
012270
032210
032212
032154
011156
011274
011344
012540
013106
012544
013116
013474

21604
2276
3065
2845
2282#
3070#
228%#
30774
2231
3007#

E 13
20-JAN-78 09:11 PAGE 140
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
23184
3210#
32114

3009

2242
3027
2291

3079
2220
3039
23004
3088#

2257

22664

1250#
12764
13144

2006
2546
25364

2548

2578

2583«

2584

4727
4529~
4102

4733
55864
4104

55854

4115

2370

2376

23864

2472
24694
2665

L117%

55714

SEQ 0160

13
PAGE 141
20-JAN-78 09:11
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
F

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC.P11

013534
013550

TkKB
TKS
TKSFLG
TOPC
P8
TPS
TRANPT

4169+

2044
2034
4039+

TRAN7
TRNBF
O

TRNBUF
TRNEND
TRNEXT
TRNSMT
TSTABL
TSTLO

TSTLST
TSTNUM

L0664

4443

4176
L4434+
4432
4065

4512
4510
L1434

55724

4067

017636
017642
017644
017650
017442
017670

40904
40814
4076
41054
4080
41224
4121
4119
4123
4122+
4126
4122
4084
4085#
459

4116
41024

41274
4126+

578

2097

591

2377

L1464

4288
4107

4290~

337

3534

40944

598

2175
2905
3374

4248
1387

4228

4253

4313«

4354

55844

2680

4220

4362

1778

1789

1803

L4438
1001
1817

4461
1081

2713

4386

607
2177«
2906+
3376~

1433

1458

1643

1683

2086
2808+
2939

2360
2910~

2371
2915

L1448

4269

4565

4592

4593

4683
1416
1901
4190

1914
4254

4706

4143

2699
2927

2710
2933

24574

TILTST
TTYENB
TTYIN = 104013

TYPECL
021770
TYPEIT= 104010

588+«

2171
2838«
3370

409

011172
011316
011342
011441
011445
011400
021626

587«

2165
2836
3351

45654

022232
020372
017476
01733C
002076
015752
023475
032206

L1294

2158
2832
3321

2154~
2826
3276~

TSTTKS= 104017

TST1A
TST2A
TST28B
TTLAD1
TTLAD2

4340

1224

4398
L4864
1728

4787

4838

2551

2566

3694

3791

4328

2280

2897

4497
1107
1845
3068

oo~
N

TRANG

31544
31644
31854
31944
3205#
LB44LM

181

TRANO
TRAN1
TRANZ
TRAN3
TRANG
TRANGA
TRANS
TRANSA
TRANSB
TRANSC

TRANSD
TRANSE
TRANSF
TRANSG

3149
3157
3173
3187
3201
258
202#
2014

N — = I
— 00 — \N
— NN

TG1PB
TG1PC
TG1PE
TG1PF
TG1PG
TITLE

SEQ 0161

4546
1169
1873

4484

4487

4488

4490

1831

3408

1330
1887

3449

1634

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PTT

19-JAN-78 14:50

015320
021676
021750
021764
021666
022620
022624

TYPEQM
TYPERA
TYPER1
TYPERZ2

TYPER3
TYPT1
TYPT?2

UPAROW
UPDATE

804
316

UPDAT1

1424
16344
16434
16554
L7974
L7n

WAITGN=
WAITG]
WAITG?2

WAITG3
WORDZ2
X

3693

LL64N
4475
4484k
L4624
L6884
LE89#
4383

632

189
188
179

XADCNT
XADRES
XASEMB
XASEM1
XAVRAG
XxBCDBI

G 13
PAGE 142
20-JAN-78 09:11
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
3747

4481
L4804

37524

4485

4491

936
3727
1587

963
48254
1596

1658

1671

L4574
709

481

L824
789

515

3983

3996

40484

4473
4695

4591
5527#
909

336

1579

1641

1656
4807

456

6334

1682#
41514
L7874
4802

1612

7904

4192

55164

XDLAY?2
XDLAY3

182

45264

4530

4532

XDLAYL

39944
39824

XDSTG1
XDSTIN
XERMES
XGETRG
XHIGH

42034
L7684
55214

XINTO

3970
4038#

XLDADD
XLDCHR

4049
43154

XLD1

XLOOP
XLOW

XLVLO

5519#
294
44204

XNULL1
XNULLZ2
XOCTPR

44284
44324
LLO7H

Y
XNODL
XNULL

3974
4316

L4264

XPDME
S
XPRCNT

XPRCT1

XRECRO

1604

4158

XDELAY
XDIV

XPRINT
XPRTRB
XRANGN

7104

48234

3818#

L6LOn
L6834
4087
41884
4085

XBINDE
XBUFO
XCHANE
XCSRO

016130

SEQ 0162

38064
43774
4380
44584
45744
L2654
3887#

4436

L3864

4289

5164

545

5464

576

5774

616

6174

CZPMACO PDM70 DIAGNOSTIC TEST

MACY11 30A(1052)

XSAVRG
XSCOPE
XSETUP
XSOURC
XSPACE

023026
020636
021276
017144
021234

168
167
195
187
180

47504
L2284
43454
39694
43264

XTYPE1
XTYPE2
XTYPIT
XWATGN
X1MV
X10uv
X100uv

021366
021370
021340
006474
031753
031765
031757

022706

CZPMAC.P11

XTTYIN

014716

= 000002

= 032614

ZERO

19-JAN=-78 14:50

20-JAN=78

4367
4366
174
194
1517
1523
1520

L3694
43704
43624
16314
5512#
55154
55134

4330
36614

3671

L6877+

4702

4704*

4708%4

462
6664
915
1171
1352
1691
2093
2241
2373
2707
3036
33114
3707
3943
4098
4408

470
710
939
1173
1441
1701
2099
2254
2391
2821
3048
3313
37564
3947
4106
4414

486
719
944
1189
1457
1725
2116
2260
23974
2828
3070
3326
3800
3951
4129
4433

493
726
949
1194
1462
1771
21228
2282
2400
2840
3078
3378
3826
3985
4130
4468

L8N

914

4790

09:11

PAGE 143

CROSS REFERENCE TABLE == USER SYMBOLS

177

105

H 13

S6#

4811

101#

5594

1044

55984

SEQ 0163

3754

1074

523
817
964
12054
1466
1772
2125
2290
2406
2919
3083#
3468
3831
4004
41458
4503

1094

549
822
969
1213
1470
1782
2131
22954
2450
2943
3089
3477
3833
4019
4156
4511

152#

557
827
1041
1252
1501
1783
2163
2301
2464
2970
3094
3484%
3858
4021
4219
4525

293

566
832
1065
1257
1516
1964
2167
2506
2519
2978
3120
3517
3864
4023
4249
4542

322

594
839
10764
1262
1519
1969
2179
2342
2531
2984
3148
3532
3866
4026
4282
4595

324

600
853
1091
1277
1522
2048
2202
2351
2568
2994
3172
35554
3891
4071
4285
4598

424

603
867
1102#
1298
1550
2077
2217
2357
2652
3000
31824
3597
39094
4073
4341
4627

427

620
880
1118
1331
1638
2083
2223
2362
2661
3008
3186
3604#
3934
4086
4364
4632

431

647
910
11294
1337
1660
2088
2230
2367
2682
5026
3283
3686
3937
4096
4400
4709

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

CTX
SIO

TA
TS

. ABS.

19-JAN=-78 14:50

112#
112#

112#
111#

032614

ERRORS DETECTED:

[ 13
PAGE 145
20-JAN-78 09:11
CROSS REFERENCE TABLE == MACRO NAMES

MACY11 30A(1052)

456

481

515

545

576

616

632

709

789

456

481

219

545

576

616

632

709

789

000

CZPMAC.BIN,CZPMAC.LST/CRF/SOL/NL:TOC=CZPMAC.P11

RUN-TIME: 5 13 2 SECONDS
RUN-TIME RATIO: 113/21=5.3

CORE USED:

13k

SEQ 0164

(25 PAGES)