Digital PDFs

AH-9018C-MC

February 1978

165 pages

Original

7.9MB

view download

OCR Version

6.7MB

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

OCR Text

DIAGNOSTIC TEST

AH-3018C-MC
COPYRIGHT © 74-78

—FICHET OFY

IDENTIF ICATION

SEQ 0001

PRODUCT CODE:

AC-9017(C-MC

PRODUCT NAME:

CZPMACO PDM70 DIAGNOSTIC

DATE CREATED:

1-FEB-1978

MAINTAINER:

DIAGNOSTIC GROUP

AUTHOR :

EARL L. BOUSE/MIKE MIT(HELL

REVISED BY:

TEST

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

ThiS MANUAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
THE
NOT

USE OR RELIABILITY OF
SUPPLIED BY DIGITAL.

FOLLOWING ARE

DIGITAL
OE(

(()

ITS

SOFTWARE

ON EQUIPMENT

THAT

1974,1978 BY DIGITAL EQUIPMENT CORPORATION
TRADEMARKS OF

PDP

DE CUS

DIGITAL EQUIPMENT

UNIBUS

DECTAPE

CORPORATION:

MASSBUS

FOR
IS

C
Page 1

—

ABSTRACT

REQUIREMENTS

LOADING PROCEDURE

STARTING PROCEDURE

CONTENTS

TABLE

TELEPRINTER CONTROL

CONSOLE

SERIAL

DL11

(EQUIPMENT)

MUDJLE ADDRESSING

SWITCHES

SWITCH SETTINGS
I1/0 INPUT OPTION

ADDRESS SETUP PROCEDURE

10.0 MODULE ERROR REPORTING
11.0 SCOPE LOOPING
12.0 MODULE

TEST PROGRAMS

“3.0 USER AID ROUTINES

SEQ 0002

Page ¢

1.0

ABSTRA(T

THIS IS A DESCRIPTION ON
'OADING,
USING
AND
INTERPRETING
THE
POM70
DIAGNOSTIC
PROGRAM.
THE
PROGRAM
IS
(OMPRISED
Of
TWENTY-THREE KEYBOARD SELECTABLE TESTS
WHICH
TEST
AND
AID
IN

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

PDM70 ON AN INDIVICUAL OR SYSTEM TEST BASIS.
THE DIAGNOSTIC PROGRAM RESIDES

IN A PDP-11 AND

INTERFACED

A DL11T
(ASYNCHRONOUS SERIAL LINE) TO THE PDM70.
THE PDP=11
USED AS A COMBINATION CONTROL, SOURCE AND DESTINATION MODULE.

EACH

MODULE

VIA

TEST
PROGRAM IS
|INDIVIDUALLY OUTLINED
IN THIS
SC.YE
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
(ONTROL
THE DIAGNOSTIC.
THE DIAGNOSTIC RUNS IN THREE MODES:

MONITOR,
WAIT AND RUN.

THE
ANY

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

DECODES AND THEN EXECUTES THE SELECTED TEST

TYPED

KE YBOARD.

|IN

FROM

THE

WHEN THE °'WAIT MODE' IS ENTERED THE PROGRAM HAS TO WAIT
FOR
ANY
PARAMETERS (SUCH AS A MODULI ADDRESS) TO BE INPUTTED, A SIGNAL TO

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

'RUN MODE'

THE

TELEPRINTER KEYBOARD

PROGRAM.

[S WHEN THE PROGRAM IS ACTUALLY EXECUTING

KEYBOARD INPUT.

IS ALWAYS ACTIVE AND WILL RESPOND

TEST
TO ANY

ALL USERS RESPONSES ENTERED MUST END WITH A ‘CR’

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

REQUIREMENTS
[0, 0V, F YW IO K )

2.0

(EQUIPMENT)

PDM70 MOTHER BOARD.

CLOCK MODULE

POWER SUPPLY

(M7379-SET TO CORRESPOND TO THE DL11

FREQ.)

POP-11 W/DL11 & 8K OF MEMORY
CONSOLE TELEPRINTER
PDM70 INTERFACE MODULE
A.

THIS CAN EITHER BE A DF11
(M7385)

SERIAL

1/0

MODULE

SEQ 0003

SEQ 0004
L

E
Page 3
LOADING PROCEDURE

USE STANDARD PROCFDURE FOR LOADING BINARY TAPES.

TSN

3.0

%85 PROGRAM IS SELF STARTING WITH A RESTART
.

ADDRESS

STARTING PROCEDURE

R S

4.0

5.0

TELEPRINTER CONTROL
1.

SWITLHES

RETURN TO MONITOR
TYPING A

RETURN

"“C'

(*(C)=

AT ANY

TIME WILL

ENABLE

THE

PROGRAM

THE KEYBOARD MONITOR AND WAIT FOR A NEW TEST

TO BE ENTERED.

CONTINUE

(C)

IF A '“C"' HAS

KEYBOARD

BEEN

MONITOR,

TYPED,

AND

THE

RETURNING

CONTROL

THE

USER WISHES TO RESTART THE

LAST TEST
HE
WAS RUNNING,
HE
CAN SIMPLY
TYPE
'(C'
CARRIAGE
RETURN AND C(ONTINUE WITHOUT HAVING TO RE-TYPE
THE

TEST

RESTART

NAME.

("R)x

TYPING A
'“R'
RESTARTED.
IF
THE

ENTIRE

TEST

WILL
ENABLE
THE
CURRENT
TEST
TO
BE
A
'“R" IS TYPED WHILE IN MONITOR MODE,
PROTOCOL

MODULE ADDRESS UPDATING

IS RETYPED.

(*A)«

TYPING A '*“A' WHILE RUNNING ANY OF THE
WILL ENABLE A NEW MODULE ADDRESS TO BE

EXIT WAIT MODE
TYPING

'CR'

WAIT MODE.

MODULE
ENTERED.

PROGRAMS

THE PROGRAM TO CONTINUE

FROM THE

(CR)

WILL ENABLE

* ALL CONTROL CHARACTERS ARE OBTAINED BY

CHARACTER DESIGNATED' KEYS SIMULTANEOUSLY.

TYPING

THE

'CTRL

AND

THE

Page &

6.0

(CONSOLE

TO BE PRINTED.

B~ =y

MESSAGE

SWITCH SETTINGS

-—

WHEN THE EXERCISER TEST OR A DIAGNOSTIC TEST IS
STARTED, THE PROGRAM WILL DETERMINE IF THE PROCESSOR
HAS A HARDWARE SWITCH REGISTER (SWR).
IF THERe

i —4

IS NO HARDWARE SWR, THE PROGRAM WILL USE THE SOF TWARE
TYHE 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

Sw15=1

CONTINUE ON ERROR

SW14=0

CONTINUE ON TO NEXT SUBTEST

SW14=1

LOOP ON CURRENT SUBTEST

Sw13=0

ENABLE PRINTOUTS

SwW13=1

INHIBIT PRINTOUTS

Sw12=0

NORMAL DL17

Sw12=1

ENTER THE

'WAIT MODE' AND WAIT FOR

ICR'

wmd

——d

ON ERROR DETECTION

TRANSMISSION

'WAIT MODE'

AND

WAIT

FOR

AS
'CR'
TO
TRANSMIT
EACH
(HARACTER.
EACH CHARACTER IS TRANSMITTED IT IS ALSO

PRINTED.

SWi1=0

NORMAL DL11

SW11=1

TRANSMIT
THE
CURRENT
SW11 IS RESET TO '0°.

SW10=0

RUN THE ENTIRE MODULE TEST PROGRAM

SW10=1

TRANSMISSION

INHIBIT THE MANUAL

THE

— by

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

—

*O)

MODULE

TEST

@ TN et R ek et ()

SUPPRESS PRINTING

CHARACTER

UNTIL

INTERVENTION TESTS IN

PROGRAM

SwW09=0

NORMAL DL11 TRANSMISSION

SW09-1

INHIBIT TRANSMITTCR DELAY

—
T
—d

SEQ 0005

(SCOPE LOOPING AID)

O ——

T ~ARA~AO
—_

~ND

e |

THE LOWER BITS (0-8) VARY
IN
USAGE
THE
APPLICABLE
TEST
DESCRIPTIONS.
IN

e N

OUTLINED

THE FUNCTIONS OF

ARE

—t EAMMA
(A —d

NOTE:

SEQ 0006

Page 5

GENERAL THOUGH, DATA SWITCHES
'0-3'
ARE USED
IN
THE USER TO SELECT
71O ENABLE
TESTS
EXERCISER
PARTICULAR MODULE MODE.

CODE

'60'

THE PROGRAM

ADDS

TO THE NUMBER READ FROM THE SWITCHES TO

REPRESENT AN ASCII

IN THESE CASES,

THE
.NY

NUMBER.

THE PROGRAM IS USING THE SOF TWARE SWR,

THE

OPERATOR MAY (HANGE THE SWITCH SETTINGS FROM THE
TTY.
AFTER SELECTING A TEST OR TYPING 'C'
IN THE MONITOR MODE,
THE PROGRAM WILL OUTPUT AT THE

ME SSAGE

TTY THE

FOLLOWING

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

SCOPE

LOOPING ON SUBTEST,

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 SWRTHE

OPERATOR MAY

THEN RESPOND AS DESCRIBED

PRECEDING PARAGRAPH.

7.0

SERIAL

1/0

IN THE

INPUT OPTION

AS MENTIONED IN THE ABSTRACT, THE PDM70 MODULES CAN BE TESTED
TWO
MODES;
PER
MODULE BASES OR SYSTEM TEST.
IF THE MODULE
TESTED

SLOT

INDIVIDUALLY A DF11

OfF

IS PLUGGED DIRECTLY

THE PDM70 MOTHER BOARD.

INTO

THE

THIS ENABLES THE PDP-11

IN
IS
CONTROL

TO ACT

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

SYSTEM

IS TESTED IN

CONFIGURATION

CONSISTS

SYSTEM

ENVIRONMENT,

THE

CONTROL, CLOCK,

BASIC

°'KGM’

(KNOWN GOOD SERIAL INPUT/0OUTPUT MODULE) AND A 'MUT' (MODULE UNDER
TEST).
THE
'KGM' SHOULD BE VERIFIED AS SUCH BY TESTING IT WITH
THE M7385] TEST (REFER TO
SLCTION
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
0UT
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 0BVIOUS TO THE USER IS THE EXTRA ADDRESSING WHICH IS ‘'PADDED'

SEQ 0007

WHEN

THIS PADDING SERVES TWO

THE SERIAL 1/0 MODULE IS USED.

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

INTO
THIS

SEQ 0008

MEANS STARTING EACH PROGRAM WITH AN 'STX' AND ENDING IT WITH AN
'ETX'.
PADDING [ISN'T NECESSARY WHEN THE MODULE IS TESTED OHN 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
THIS PADDED PROGRAM
Ags QOD?LE TEST PROGRAM AND EXAMINE WHAT
LOOKS LIKE.

WHEN THE PROGRAM IS STARIED,

USED.

IF IT IS, TYPE

IT ASKS iF A

SERIJAL

'YES® OR 'Y' CARRIAGE RETURN.

TYPE 'NO', 'N' OR SIMPLY 'CR'.
ANY TIME BY TYPING A '“R' WHILE

1/0

THIS PARAMETER CAN BE
IN THE MONITOR MODE.

BEING

IF IT'S NOT,
CHANGED

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

LINES

DESCRIBED

SECTION

9.0

(MODULE

ADDRESSING)
.

WHICH FIT THE

Page 6

8.0

DL11 ADDRESS SETUP PROCEDURE

AFTER SETTING UP THE SERIAL [/0 OPTION, THE PROGRAM PRINTS ‘DL11
ADRS., VEC.?''.
THIS ENABLES THE WUSER TO SELECT HIS OwN DL
THE DEFAULLT
DEVICE AND VECTOR ADDRESSES. BY SIMPLY TYPING 'CR',

RCSR

ADDRESS

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

AND

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

THE

VECTOR ADDRESS SEPERATED BY A COMMA,

THE USER SHOULD NOTE THAT BOTH THE DL'1 AND THE SERIAL

ARE NORMALLY SFTUP FOR 7 BIT EVEN PARITY,

5.0

MODULE

[/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 £RRORS

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

MODE' UNTIL A 'CR'

THE PROGRAM THEN ENTERS THE

'WAIT

IS TYPED ENABLING THE PROGRAM TO CONTINUE.

WHEN AN ERROR IS DETECTED, THE °'M.A.' SHOULD BE
USED
TO
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

11.0

TO FIRST TEST A KNOWN GOOD MODULE.

SCOPE LOOPING

EACH MODULE ADDRESS TEST PROGRAM IS COMPRISED OF
*

THE MODULE ADDRESS

INTERPRETTED AS AN OCTAL

ANY
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 NCXT
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 SELECT'D SUBTEST IS REACHED.
THE LATTER METHOD IS USED, LOAD THE M JMBER OF THE SUBTEST TO
IF
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 © BTEST UNTIL SWITCH '14' IS RESET TO
‘0"
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.
OF

TEST;

I = INTERFACE, R = REPEATIBILITYx,

THE

MODULE

TEST

'FUNCTIONALLY®

IN ALL

SHOULD

RUN

INDICATES

EXERCISER, G = GAINx,

OPERATIONAL BEFORE
RUNNING
VERIFIES THAT THE MODULE CAN

ADDRESSING,

LETTER

TYPE

ADDRESS

THIS

THE

CALIBRATION=*,

AND

PROVED

ANY OF THE OTHER TESTS.
BE
ADDRESSED AND
THAT

FULLY

THIS TEST
IT
WORKS

ITS INTENDED DATA MODES.

THE USER SHOULD REFER TO THE ENGINEERING SPECIFICATIONS TO VERIFY
THATngESSUITCHES AND JUMPERS ARE SET UP CORRECTLY BEFORE RUNNING
ANY

NOTE:
BEFORE EACH MODULE TEST IT IS A GOOD PRACTICE TO CLEAR OUT
THE PDM FIFO BY HITTING THE 'RESETM' BUTTON ON THE FRONT PANEL.
xxxAl
SO NOTE:

12.1.

THE PROGRAM IS USING THE

REFER TO SECTION 6.0.

SWR,

M7380A, CONTROL MODULE TEST

THIS PROGRAM TAKES THE CONTROL MODULE

ADDRESS AND DATA MODES RESPECTIVELY.

STORED IN THE CONTROL

HEADED

SOF TWARE

WITH

'DC4'

MODULE

'FIFO'.

THRU T“E

INITIALLY,

THE

INITIALIZATION,

TWO PROGRAMS ARE

SECOND

PROGRAM

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

TO THE A/D MODULE ONLY.

SEQ 0011

1 £

* APPLY

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 Bt
COMPLETELY
FILLED.
THE PROGRAM CONSISTS OF ONE

SOURCE AND ONE DESTINATION ADDRESS.
THE REMAINING 55 LOCATIONS
FILLED WITH RANDOM LITERAL CHARACTERS.
THE PROGRAM IS THEN

ARE

CALLED OUT AND VERIFIED.

THE LAST TEST CHECKS THE DELAY
TIMES OF
THE
'SYN'
CHARACTER.
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

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.

SET

THE

PROGRAM

WILL

ALSO

HOWEVER, IF
DATA SW10
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.
1.

M7387, HARDWARE READ-IN MODULE

AS MENTIONED ABOVE, THIS TEST IS RUN IN CONJUNCTION WITH
THE
M7380A
17ST.
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
ENABLE THE PROM PROGRAM TO BE
READ ?ET, STORFD IN THE CONTROL MODULES FIFO,
AND
THEN
EXECUTED.

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

THIS MESSAGE IS NOT TYPED IMMEDIATELY AFTER POWER UP, NO
DATSIT?Si
EVER
RECEIVED,
THUS
INDICATING
AN
ERROR
CON

12.2.

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

Page 9

JUMPER QUT.

12.3.

M7381E, BCD INPUT MODULE EXERCISER TEST

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

SWITCH
THE
DATA MODES.
'B(CD'
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.
THIS

M7382A, BCD OUTPUT MODULE ADDRESSING TEST
TEST IS COMPRISED OF A SERIES OF SUBTESTS WHICH QUTPUT 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 TMMONITOR.

BCD 1/0 TEST

THIS IS AN EXERCISE TEST UTILIZING BOTH THE 8CD '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 TOGFTHER.

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 MODULF VIA THE CABLE.

12.6.

M7383A. A/D MODULE ADCRESS 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 BL
ATTEMPT
TO
VERIFY
WHEATHER
CORRECT VALUES.

12.7.

NOTED
THAT
THIS
TEST MAKES
NO
OR
NOT
THE A/D IS CONVERTING THE

M7383C, A/D CALIBRATION ROUTINE

SEQ 0013

€2

THIS TEST RUNS IN A CONTINUOUS LOOP ADDRESSING THE A/D MODULE AND
PRINTING THE
CONVERSION VALUE.
AFTER ACCEPTING
THE MODUIE
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

SETTING DATA SW13 wiLL

ALL DATA SWITCHES

TIME.

MAY

CHANNEL SELECTION IS AS “OLLOWS:

DATA
DATA
DATA
DATA

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

12.8.

M7383G,

THIS TEST

A/D GAIN ACCURACY TEST

IS USED TO TEST THE GAIN ACCURACY

THE

A/D.

FIVE

IS NOT,

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.

THE LOW, AVERAGE AND HIGH
VALUES
OBTAINED
ON
THAT
PARTICULAR
GROUP OF
CONVERSIONS ARS TYPED OUT.
THE PROGRAM WILL THEN TAKE
ANOTHER SERIES OF CONVERSIONS AND WILL CONTINUE DOING
SO,
UNTIL
THE

C(ORRECT

VALUE

IS RECEIVED.

REQUEST A NEW SETTING.
THE

ERROR DATA PRINTOUT.

12.9.

MTMM7383R,

THIS TEST

DATA SWITCH

THAT POINT

'13'

THE PROGRAM WILL

CAN BE

SET

INHIBIT

CONVERSIONS

A/D REPEATIBILITY TEST

TAKES A SERIES OF ONE HUNDRED

USER

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

USER

DESTINATION.

SEND

THE

COMPUTED

A/D

IF THIS OPTION IS DESIRED,

GRAPH TO A USER SELECTED

TYPE

‘'YES'

'Y'

'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.
(AN 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
WHAT
A

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

10;

10 POINTS,

SEQ 0014

lon Yan)

8
2
Page 10

Page

EACH REPRESENTING THE AVERAGE OF

'10' CONVERSIONS.

:
EXAMPLE

VSF? 10
C(H.2 1

+44+444444

-141

24t btetees

=150

(SCALE=TMV/DIV)

=159

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 AVERACE, AN OVERRANGE

& LOé PRINTOUT WOULD RESULT IF ANY COUNTS FALL OUT OF
RANGE

12.10.

M7384A,

THIS TEST

THE

D/A ADDRESSING TEST

STARTS BY ADDRESSING THE DIA MODULE USING

USER

'HI

THE 9 COUNT

MODES

IS THEN REQUESTED TO SCOPE THE SIGNALS PROG

'L &

ON
D/A
H'.
FIVE SPECIFIC VOLTAGE ARE THEN TRANSMITTED FROM THE
EACH
C(HANNEL.
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).
THE
PROGPAM
THEN
ALTERNATLY OUTPUTS
'0O'
VOLTS AND '9.5' VOLTS.
THIS L NABLES 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
INDEFINITELY
RESTARTED OR EXITED.

12.11.

M7384E,

HANG

THIS

SUBTEST

UNTIL

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
IF BOTH
IS
THE
ONLY
ONE TRANSMITTED WHEN RUNNING ONE CHANNEL.

SEQ W15

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

ACCEPTED.

12.12.

'*R'

wILL ENABLE FOR A NEW

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

BEFORE TESTING, ALL
AND THE

‘D'

'L’

INPUT.

"ACTIVE' RECEIVER JUMPERS

'MR'

JUMPERS MUST BE OUT.

MUST

INSERTED

THIS TEST CHECKS ONLY THE °‘EIA' OUTPUT OF THE
MODULE.
REFER
THE M7385T TEST (12.14) FOR TESTING THE "‘TTY'" OUTPUT LOGIC.

IT SHOULD BE NOTED THAT WHEN THIS TEST IS RUN

[/0

INPUT

OPTION,

THAT

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

THIS MEANS THE TESTING ISN'T TESTED AS IT IS WHEN USING THE
INTERFACE.

IT SHOULD ALSO BE
USED,
SUBTEST
S
(128) 1O THE DL11
CHARACTERS
OF

DESTINATION
CHARACTERS

"FIFO'" OF

12.13.
THIS

TEST

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

THE

SERIAL

THE MODULE UNDER

INPUT

MODULE.

THE

SECOND

''64°'

ARE THE CHARACTERS THAT WERE ACTUALLY BUFFERED IN THE

M73851,

THE

DF11

SERIAL

INTENDED

PDP-11

TEST.

1/0 INTERFACE MODULE TEST
TO VERIFY

INTERFACE

THAT

THE

SERIAL

I/0

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 F1V2) TOGETHER.
THE MODULE MUST HAVE THE °'D' JUMPER OUT AND THE ‘L' JUMPER IN
SO
THAT

INITIALIZED ON POWER UP.

A PROGRAM IS

THEN SENT

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

1/0 TTL

TEST

SEQ 0016

D
2
Page 12

THIS TEST VERIFIES THAT THE TTL [/0 SECTION OF
THE
SERIAL
[/0
MODULE
IS FUNCTIONING CORRECTLY.
IT REQUIRES THAT A TELEPRINTER
BE CABLED TO THE MATIN LOCK OF THE SERIAL 1/0.
THIS COULD BE THE
(ONSOLE PRINTER ONCE
THE
TEST
IS SELECTED.
IF THE CONSOLE
PRINTER

DISCONNECTING

USED,

THE

PFROGRAM

SHOULD

HALTED ~ BEFORE

AND THEN RE-STARTED AT THE 'TTLTST'«

PRINTER

ADDRESS.
ALL CHARACTERS THEN TRANSMITTED WILL BE RECEIVED BY THE
SERIAL
SOURCE
AND WRAPPED AFOUND
(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,

ACTS LIKE A KEYBOARD ECHO TEST.

12.15.

THIS

TEST

O0UT.

THE

M7386A, KEYBOARD/DISPLAY MODULE ADDRESS TEST

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

FIRST
SUBTEST
APORESSES
RETURN OF THE 'ECT''.
THE SECOND SUBT=ST RUNS

KEYBOARD

DISPLAY.

JUMPER

MUST

THE KEYBOARD AND CHECKS FOR THE FORCED

IN A CONTINUOUS LOOP ADDRESSING BOTH

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''.
UFON
RECEIPT OF THE ''CR'' THE
SUBTEST
STARTS
DISPLAYING
THE
ENTIRE
CHARACTER
SET,
ON CHARA(CTER 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

RUN

* REFERENCE

SELECTED AS A SEPERATE MODULE

TEST,

PART OF THE M7380 CONTROL MODULE TEST.

THE LiSTING FOR THE ADDRESS OF

THIS

'TAG'.

ALTHOUGH

REFER TO

SEQ 0017

Page 13

PART 1 OF

12.17.

SECTION 12.1

FOR A COMPLLTE

TEST DESCRIPTION.

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

THIS TEST REQUIRES A SPECIAL WRAP-AROCUND MODULE

HOUSE) TO RUN THIS TEST.

TO THE M7388F

(SECTION 12.18).

TEST

(AVAILABLE

ONLY

FOR FIELD TESTING THIS MODULE REFER

THE TEST USES THE SAME TEST PROGRAM AS
THE
SERIAL
1/0 MODULE
(REFER
TO
SECTION
12.12).
TO RUN THIS "ES", JUMPERS 'SO § SI°
MUST BE IN AND THE ‘D' & ‘L' JUMPERS MUST BE OUT.

12.18

M7388F,

(HARACTER

1/0 MODULE ADDRESS

THIS PROGRAM IS DESIGNED TO COMMUNICATE WITH

(FIELD)

TEST.

THE

FIELD

SERVICE

TESTEK.
THE
FIRST
SUBTEST ADDRESS THE MODULE IN MODE '0O' AND
CHE"KS FOR THE FOR({ED °FOT'.
THE NEXT SUBTEST ADDRESS THE MCDULE
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
[T
TO ENTER
THE NEXT SUBTEST.
THE NEXT SUBTEST IS A

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

THE NEXT SUBTEST LOADS ''16'°, '%4'' 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 ''4"* 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

ADDRESSES AND CHECKS THAT THE SOURCE ISN'T ENABLED.
IS NOT EXECUTED WHEN USING THE SERIAL INPUT OPTION.

12.19

M7377A, REMOTE SERIAL

MODULE

THIS SUBTEST

/0 TEST

THIS PROGRAM TESTS THE M7377 MODULE
USING
THE
PDP-11
DL=11 AS THE DESTINATION INPUT AND SOURCE OUTFUT.
THE FIRST SUBTEST ADDRESSES THE SOURCLC PORTION OF
CHECKS FOR FORCED RETURN OF EOT.

VIA

THE

THE MODULE

AND

THF 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

lalat

Page 14

Page 15

VARIABLE TERMINATOR OPTION IS (HECKED.

NEXT, THE
SOURCE
IS
THEN ADDRESSED USING
THE
WRONG MODULE
ADDRESSES AND (HECKED 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 BA(CK 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 I/0 UP AS A SOURCE AND
THE
FOUNDATION
MODULE
AS
A DESTINATION.
A RANDOM BUFFER IS TRANSMITTED TO THE
FOUNDATION MODULE

VIA THE

SERJAL

1/0.

THEN THE

IS ADDRESSED AS THE SOURCE AND THE SERIAL

DESTINATION.

FOUNDATION MODULE

1/0 IS ADDRESSED AS THE

THE DATA SHOULD BE RETURNED VIA

CABLE FROM THE FOUNDATION MODULE TO THE SERIAL

THE

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

13.0

USER AID ROUTINES

13.1.

CUSTOMER DEF INED MODE

FLIP FLOP WORKS CORRECTLY.

sSuBX

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.
[F A 'SUBX' ADDRESS HAD PREVIOUSLY
BEEN
SET UP, THE USER CAN SIMPLY TYPE '(R' AND THE PREVIOUSLY SELECTED
TEST WILL BE RE-ENTERED.

SEQ 0019

13.2.

RECBUF

THIS ROUTINE ENABLES THE USER TO
EXAMINE
WHEN SELECTED,
DL11'S
RECEIVER
BUFFER.

THE

CONTENTS

SEQ 0020
THE

THIS ROUTINE PRINTS THE
"HE
IF
CONTENTS OF THE BUFFER IN THE ORDER
IT WAS RECEIVED.
BUFFER [S EMPTY, A MESSAGE IS TYPED TO THAT EFFECT.

Page

IT SHOULD BE NOTED THAT ALL

STORED

IN THIS BUFFER.

13.3.

TRNBUF

DATA

RECEIVED

FROM

THE

PDM70

THIS ROUTINE ENABLES THE USER TG EXAMINE THE DATA TRANSMITTED VIA
THE
DL11
TO THE
PDM70.
THE ‘RECBUF' & 'TRNBUF' ROUTINES ARE
ESPECIALLY USEFUL IN TRACKING DOWN A DATA FAILURE.
BY (OMPARING
THE
TWO BUFFERS,
THE
USER
(AN
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 “HE 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-TRANSMITTLD.

SWITCHES DOWN.

PROGRAM

DELAY

ISSUED

WITH

ALL

ALL DATA SWITCHES UP (EXCEPT 11 & 12)*

DATA

REPRESENT

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

*CONTROL (' 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
FUNCTIONS.

SWITCH SETTINGS

(SECTION 6.)

FOR

SPECIFIC

SWITCH

SEQ 0021

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 1

SEQ 0022

LTITLE CZPMACO PDM70 DIAGNOSTIC TEST
.ENABLE ABS
.ENABLE AMA
:AC=9017C-MC
; COPYRIGHT 1974,1978

2
3
4

5
6

sREVISED:

7
8

SEPTEMBER 20,1974 ,FEBRJARY 1,1978

;DIGITAL EQUIPMENT CORP. MAYNARD MASS. 01754
;PROGRAMMER: EARL L. BOUSE

MIKE MITCHELL

BILL SCHLITZKUS

;SWITCH REGISTER DEFINITIONS AND FUNCTIONS:

14
15
16
17
18
19

100000
040000
020000
010000
004000
002000

SW15=100000
SW14=40000
Sw13=20000
Sw12=10000
SW11=4000
SW10=2000

000400

Sw08=400

22
23
24
25
26
gg

001000

000200
000100
000040
000020
000010
000004

Sw09=1000
SW07=200
SwW06=100
SW05=40
SW04=20
Sw03=10
SW02=4

JREGISTER DEFINITIONS

31
32
33
34
35
36

000000
000001
000002
000003
000004
000005

RO=X0
R1=X1
R2=%2
R3=X3
R4=%4
R5-%5

000007

PC=%7

000006

2?
42
43
44
45
46
47
48

SP X6

JINSTRUCTIONS DEFINITIONS
005746
005726
024646
022626
000240
000002
000002

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

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

CONTINUE ON ERROR
LOOP ON CURRENT TEST
SUPPRESS ERROR TYPEOQUT
SINGLE STEP DL11 OUTPUT DATA.
TRANSMIT SAME (HARACTER.
INHIBIT MANUAL INTERVENTION

;=1, INHIBIT TRANSMITTER DELAY

MACY11 30A(1052)

rannnnnt

20-JAN-78

NOTES

09:11

txnxnannsxn

PAGE 2

SEQ 0023

LSBTTL saxtxsnx NOTES wexxenxnx

;NOTES:
;PDM~-70 MUST Bt 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
JNECCESSARY TO RESTART A SUBTEST (FOR EXAMPLE, AFTER ENCOUNTERING AN ERROR),
;THE PDM70 FIF] SHOULD BE CLEARED OUT TO INSURE THAT GARBAGE WILL
JNOT ACCIDENTLY BE LEFT IN THE FIFO WHICH WOULD SUBSEQUENTLY
;GIVE AN ERRONOUS DATA ERROR.

;MODULE SETUP:

;tittttttttttttttittttttfitttttttiittttt*tfititttttt*ttt

; MODULE UNDER TEST

M7379 (CLOCK) *

*M7379(CLOCK)

*M973 (CABLE)

« M598 (COUPLER) =

;fittttttttltttttttttfikittt*ifittttttttttttttttttttttttt

1232223322828 8320828800dd0R0RRsRd

;SYSTEM TEST SETUP (USING SERIAL 1/0)
;itt*ttttttttttt*'tttfittt***tttfi*tttfitittltt*ttttttttt

;MODULE UNDER TEST
IR

RRRR A RN RN RN R

;

= M7379 (CLOCK) ~ M7379

RN AR N RN AN RR AR AR

RN RN R

*M7380 (CONTROL MODULE)

RN R AR AN

822t R s dR]
| 22332323 2233222022000

;tttt*ttttttttttttt*ttt

; SERIAL 1/0 CABLE

;ttttittttttttttitt*tfit

sNOTE: JUMPER °"L'' SHOULD BE IN TO ALLOW POWER UP TO ACCESS THE CONTROL MODULLE.

lalial
NN

C(ZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

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

99
100
101
102
103

_REPT

000020

000022

000026
000030
000032
000060
000062
000176
000200

.ENDR

000020
020440
000340
022722
000340
000030
001200
000340
000060
014716
000340
000176

NOTES

wnnnnnnnw

2
PAGE 3

SEQ 0024

300
e

000200
000137

.=20
ERTRAP
340

;ERROR TRAP REPORTER ROUTINE.

340
.=30
EMTSRV
340
.=60

JEMT TRAP, EMT DISPATCH SERVICE

;POWER FAIL HANDLER

PWRFAL

;TELEPRINTER KEYBOARD ROUTINE

XTTYIN

SWSWR:

000000

001376

340
.=176
O
.-200
JMP

;SOF TWARE SWITCH REGISTER
MONITR

.SBTTL EMT TRAP EQUIVALENCE

d
D
— ad wmd md wid e

wnnwkxntt

L
09:11

= -—

n -l—l—a—l_l-—l—l—l_a-.o o
WN OO oo
OV~ NS

105
106
107

20~JAN-78

;LOAD TRAPOADDRESSES '0-1000' WITH THE 'IOT' TRAP

000000
000200

94
95

96
97
98

MACY11 30A(1052)

104000
104001
104002
104003
104004
104005
104006
104007
104010
104011
104012
104013
104014
104015
104016
104017
104020
104021
104022
104023
104024
104025
104026
104027
104030
104031
104032

104033
104034
104035

104036
104037

PRCNTR=EMT

+1
SCOPE=EMT
SAVREG=EMT
+2

GE TREG=EMT+3

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

TYPEIT=EMT+10
RANDOM=EMT
+11

PRINT=EMT+12
TTYIN=EMT+13
PRTOCT=EMT+14
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

+25
SOURCE=EMT

ADDRES=EMT
+26
ADCNVT=EMT+27

BCDBIN=EMT+30
AVERAG=EMT
+31
CHANEL =EMT +32
T
+33
BINDEC=EM

WA] TGN=EMT
+34
SETUP=EMT
+35
NODLAY=EMT
+36
PRTRBF =EMT+37

;PROGRAM KEYBOARD MONITOR ROUTINE.
TABLE

s SUBROUTINE
JLOGIC TEST
s SUBROUTINE
. SUBROUTINE
s SUBROUTINE
sSUBROUTINE
;SUBROUTINE
sSUBROUTINE
;SUBROUTINE
s SUBROUTINE
;SUBROUTINE
s SUBROUTINE
s SUBROUTINE
;SUBROUTINE
2 SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
;SUBROUTINE
sSUBROUTINE
sSUBROUTINE
;SUBROUTINE
2 SUBROUTINE
2 SUBROUTINE
s SUBROUTINE
s SUBROUTINE
2 SUBROUTINE
;SUBROUTINE
sSUBROUTINE

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

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

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

PAGE 4

SEQ 0025

;Qtt*tttt*tt*tfitt*it*titt*tttt*tttttttt*tttttfittttttttt*ttttt**ttttttttttt't

146

.SBTTL EMT DISPATCH SERVICE ROUTINE

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

:tittt*‘*ttttfitttttttt**t*tttttt*i*tfitt*t*ttit*t*ttttttitttt*ttfit"ttitttttfi

001200
011646
162716
017616
005716
001001
000000
006316
042716
062716
017616
000136

001332

001336

021376
020636
023026
023102
022126
016130
017302
017320
021340
020776
021650
014716
022010
023156
021234
021264
022126
021554
020540
021564
017164
017144
020374
006670
022430
015702
020512
022574
006474
021276
021544
022246

.=1200

000002
000000

177001
001240
00000C

EMTSRV: MQV
Sud
MOV
TST

EMTOK:

BNE
HALT
ASL
BIC
ADD
MOV

(SP),~(SP)

JGET PC FOR TO RETURN

a(SP), (SP)
(SP)

JGET EMY
;1S EMT VALID?

(SP)

JINVALID EMT
;MULTIPLY EMT ARG BY ‘2'

HEMTTAB, (SP)

;POINTER TO SUBROUTINE ADDRESS

#2,(SP)

EMTOK

#177001, (SP)

Q(SP), (SP)
a(SP)+
JMP
oEMT DISPAT(CH TABLE

EMTTAB:

XPRCNT
XSCOPE

XSAVRG
XGETRG
XDLAYL

XRECRO
XLDCHR
XLDADD
XTYPIT

XRANGN

XPRINT
XTTYIN
XOCTPR

XASEMB
XSPACE
TKSFLG
XDLAYL
XNULL

XERMES

XNULL1

XDSTIN
XSOURCE
XADRES
XADCNT
XBCDBIN
XAVRAGE
XCHANEL
XBINDEC
XWATGN
XSETUP
XNODLY
XPRTRB

;PC OF

EMT

;CLEAR UNWANTED BITS
;SUBROUTINE ADDRESS
;GO TO SUBROUTINE

s SUBROUTINE TO PRINT CONTROL CHAR.
;MODULE TEST SCOPE LOOP ROUTINE

s SUBROUTINE
s SUBROUTINE
2 SUBROUTINE
sSUBROUTINE
sSUBROUTINE
s SUBROUTINE
2 SUBROUTINE
:SUBROUTINE
;SUBROUTINE
;SUBROUTINE
s SUBROUTINE
sSUBROUTINE
s SUBROUTINE
;SUBROUTINE
s SUBROUTINE
;SUBROUTINE
s SUBROUTINE
s SUBROUTINE
;SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
s SUBROUTINE
;SUBROUTINE
s SUBROUTINE
;SUBROUTINE
s SUBROUTINE

IN R1.

TO SAVE °'R1-R5' ON STACK
TO RETRIEVE °'R1-R5' FROM STACK
TO WAIT FOR DATA FROM DL11 RECEIVER
TO SET UP DL 0'S RECEIVER.
TO TRANSMIT A SINGLE CHAR
TO TRANSMIT DATA FROM ADDRESS IN CALL+Z2.
T0O PRINT CHARACTER IN 'R1°
T0O CREATE A RANDOM DATA BUFFER.
TO PRINT ASCI] MESSAGES.
TO INPUT VAI KEYBOARD.
T0 PRINT A '6' DIGIT OCTAL NO.
TO ASSEMBLE A ONE WORD NO.
TO TYPE SPACES
TO TEST FOR KEYBOARD FLAG.
T0 SET UP A LONG DELAY.
TO ISSUE NULL CHARACTERS AFTER RESET''.
TO REPORT MODULE ERRORS
T0O TRANSPORT *'12°' NULL CHAR.'S
TO SET UP A DESTINATION MODULE
TO SET 1» A SOURCE MODULE
TO REQUE.: & SAVE MODULE ADDRESS
TO TAKE & STORE A/D CONVERSIONS
T0 CONVERT °'BCD' TO BINARY
TO AVERAGE 'N' NUMBERS
TO REQUEST & STORE A/D CHANNEL.
TO CONVERT BINARY TO DECIMALS.
TO TEST GAIN ACCURACY,
TO SETUP THE °'“R' RESTART ADDR.
TO INHIBIT TRANSMITTED DELAY
TO PRINT CONTENTS OF RECVR. BUFFER

cZl
czi

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

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 5

SEQ 0026

.SBTTL REGISTER ADDRESSES
001340

001352
001354

177776
177560
177562
177564
177566

PSW:
TKS:
TKB:
TPS:

TPB:
SWR:
SWRO:

177570
177571

JADDRESS OF PROCESSOR STATUS REG.

177776
177560

;ADDRESS OF KEYBOARD STATUS REG.
.

177562

177564
177566
177570
177571

’e

’

BUFFER

PRINTER STATUS REG.
PRINTER BUFFER REG.

[

’

SWITCH REG.
"
"" HIGH BYTE

;DL11 REGISTER ADDRESSES
RCSRO:
RBUFQ:

;ADDRESS OF UNIT 0'S DL11 REC.

000302

XCSRO:
XBUFO:
RINTO:
RLVLO:

175610
175612
175614
175616
300
302

000304
000306

XINTO:
XLVLO:

304
306

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

001356
001360
001362
001364
001366
001370

175610
175612
175614
175616
000300

001372
001374

;ADDRESS
JADDRESS
JADDRESS
;ADDRESS

.SBTTL DEFINITIONS OF

THE

UNIT
UNIT
UNIT
UNIT

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

'PDM-70' CONTROL CHARACTERS.

;ENAR _ SOURCE
JENASIE DESTINATION

DC1=021
DC2=022
DC3=023
DC4=024

000021
0C€0022
000023
000024
000003
000002
000026
000001
000017
000004
000005

OF
OF
OF
OF

CSR

DL11 REC. BUFFER
TRANS. CSR
DL1i TRANS. BUFFER
REC. VECTOR

;DO NOT RECIRCULATE
JEND OF TEXT
;JSTART OF TEXT

ETX=003
STX=002
SYN=026
SOH=001
S1=017
EOT=004
ENQ=005

JSYNCHRONIZE

(DELAY)

;START OF HEADER
JSHIFT IN.
JEND OF TRANSMISSION
;ENQUIRY.

;tttttt*tttttlttttttttttttitt**tfi*fifitttititttittitlttt*tttt*tttttt!tttii

.SBTTL KEYBOARD MONITOR

;tttttlltttfitttfi*ittttttfit'tttfitttitkittttilti*titfittfltitfitttttttttitttt

001376
001402
001406
001412
001414
001422
001426
001430

001436
001440
007446
001450

001452
001454
001460
001464

012706
012746
012746
000002
012737
005777
000404
012737
022626
012737
104021

001000
000340
001414

001430
177724

000176
000006

000005
104021

005037
005037
005037

032144
032122
032150

MONITR:

000004

1%:

001352

2s:

000004

3%:

MOV
MOV
MOV
RTI
MOV
TST
BR
MOV

#340,

SP
-(SP)

;SET UP STACK
;SET PROC. PRIORITY @7

JSETUP FOR TIMEOUT

#1000,

nms,

aSWwR

-(SP)

#SWSWR,

SWR

MOV
NULL
RESET
NULL

CLR
CLR

PRT SWH

POP2SP

CLR

DLYSWH
SFNDSW

:HQQDUAPE SWITCH REGISTER?
Y

:NO-USE SOFTWARE SWITCH REG.

;POP THE

STACK

;RESTORE TRAP CATCHER

;CLR SOFTWARE SW.
;CLR SOFTWARE SW.
;CLR SOFTWARE SW.

Cz¢f
CZF

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P

254
255
256
257
258

001470
001474
001476
001502
001504

19~JAN-78 14:50

005737

001101
005237
104012
023353

032120
032120

MACY11 30A(1052)

20-JAN-78

KE YBOARD MONITOR
TST

BNE

INC

PRINT
TITLE

09:11

MTRSWH

MCNTR5

MTRSWH

PAGE 6

SEQ 0027

:PROGRAM BEEN IN]JTIALIZED?
:YES
.NO

;PRINT

PROGRAM HEADER

CZPMACO PDM70 DJAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
259
260
261
262
263
264

265

266

267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287

291

301

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

09:11

223322222

PAGE 7

SEQ 0028

RR22222E2222 3222222822088
82ttt dRRaRtt ittt d]

*MONITOR RESTART ADDRESS STARTS HERE

;tti*t**t*i*'*it*ikttt'ttt*tttt*ttfitttfittttttttttt*ttttfitt'*t*tttt*tt*ttt

MONTR1: CLR

032132

001506
001512
001514
001516
001520
001526
001530
001532
001536
001542
001546
001552
001556
001562
001566
001572
001576
001602
001606
001612
001614
001616
001620
001622
001624
001630
001634
001636
001642
001644
001646
001652
001654
001656
001660

005037

000764
012777

016740

177500

001666
001674
001676
001700
001706
001710

012777

000200

177474

023415
012737

001506

032124

104012

SIOSWH

;TEXT 1S INPUT VIA SERIAL 1/07?

MESO

000131

TTYIN
CMPS

015330

BNE

ADDRESS
MOvVB
MOVR
mMovs
MOVB
MovB
MovB
MOvVB
mMovB
mMovB
MOVB
movs
INC
MONT1A: PRINT

002214
002220
002224

002230
003120
003124
003132
017547
017643
017202
011167
032132

#131, INBUF
MONT1A
RO, JADRSO
RO, IADRS1
RO, JADRS?2
RO, IADRS3
RO, IADRS4
RO, JADRSS
RO, JADRS6
RO, JADRS?7
RO, JADRS8
RO, JADRSS
RO, IADR10
SIOSWH

001356
000004
000002

001376

104012

104012
031706

:
MONTRS

MONTRS:

MOV
PRINT
HEADER
MOV
PRINT

DoT

JWAS

'Y'

TYPED?

JYES,

SET SW.

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

JREQUEST DL11

MFS63

ASCMBL
TST
BEQ
MOV
MONTRZ: MOV
MOV
ADD
DEC
BNE
cMP
BEQ
MOV
BR
MONTR3: MOV

;WAIT FOR INPUT

MONTR3

#RCSRO,R2
#4 R3

RO, (R2)+

ADDRE"S & VECTOR

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

#2.R0O
R3

JADD

#XLVLO+2
,R2

;LOADED VECTOR ADDRESSES?
JYES, EXIT

.=10

MONTR3

R4 RO
MONTR?
#RECVER,QRINTO

#200,aRLVLO
#MONTR1,RVECTR

'2'

TO THE ADDRESS

;SET UP RECEIVER SERVICE ADDRESS

;RINTO=DL-11 VECTOR (300)
;BR LEVEL '4°'
JPRINT TEST PROTOCOL

;SET UP THE °'RESTART' ADDR, POINTER

JPRINT DOT TO INDICATE READY

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

KEYBOARD MONITOR

09:11

PAGE 8

306

"fiitttttfii*tttfiti*tttfitttttttttfiltfitfitfi*ttttttitttttttttttfitttt'it'ititt

308

"*ttl‘t*fit*Qittti*fi*'*tt'i'ti*t*'fi*tttttfit***"itti'tl'itfi*tit**it"*iitt

307

309
310

311
312
313

314
315

316
317
318
319
320
321
322
323
324
325
326

327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
%22
345

36
347

;THIS SUBROUTINE DECODLS THE USER'S INPUT AND EXECUTES THE SELECTED TEST

001712

001716
001720
001726

001730
001734

001736
001742
001746
001752
001754
001760
001764
001766
001772
001774
001776

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

002072
002074

005037

104013
022737
001007
005737
001455
004737
000177
012701
005003
012702

122711
001403
122711

001002

015330

000103

DECODE: CLR

INBUF

TST
BEQ
JSR
JMP
DECOD1: MOV
CLR
RECYCL: MOV

#103, INBUF
DECOD1
RESTRTY
NMAT(CH
PC,
UPDAT1
aRESTRT
#TSTLST R
R3
# INBUF ,R?

TTYIN
CMP
BNE

015330

032224
023304
030256
023475
015330
000045

CMPB
BEQ
CMPS

000040

BNE

105721

TSTB

000766

122122
001022
122711

001373

006303
005726
016337
016337
062737
004737
000173
005203
122711
001404
122721
001733

MATCH:
000054

002076
002076
000004
023304
002076
000100

032224
032126
032126
FLUSH:

000054

000771

104012

031702
000706

NMATCH:

#45, (R1)
.+10
#40, (R

.*+6

(R1)+

s CALL KEYBOARD ROUTINE
JWAS *C' TYPED TO CONTINUE LAST TEST?
;NO, DECODE INPUT

JYES, HAS A RESTART ADDR. BEEN SET UP?
sNO, ILLEGAL ENTRY.
;CHECK FOR SOF TWARE SWR
JYES, RESTART LAST TEST
;SET UP MESSAGE ADDR. POINTER
;OFFSET REG.
;SET UP TTY BUFFER POINTER
;CHAR. = TO °'SPA(CE’
:NO
JYES, SKIP (HAR.

RECYCL

BNE

MAT(CH

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)
JEXECUTE SELECTED TEST.
R3
s INCREMENT OFFSET CNTR.
#100, (R1)
;JTEST FOR ‘a'
NMATCH
;YES, END OF MESSAGE.
#54,(R1)+
;(HAR = COMMA?
RECYCLE
;YES, COMPARE NEXT WORD.
FLUSH+?2
;NO, KEEP GOING.

(MPB
BNE
CMPS
ASL
POP1SP
MOV
MOV
ADD
JSR
JMP
INC
CMPB
B8EQ
CMPB
BEQ

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

; COMPARE BUFFERS
sNOT EQUAL, SET UP NEXT WORD

JSET UP OFFSET

QMARK

DECODE

:NO, COMPARE NEXT CHAR.

;ILLEGAL ENTRY, TYPE '?°
JGET NEW INPUT.

SEQ 0029

CZPMAC.PI

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

KEYBOARD MONITOR

09:11

PAGE 9

“9

"ttt**titt*tti*tfiti"ttt"ttififittfit*tfitittfitttfittttttttt*tt'titit*ttfittti

350

;TABLE FOR TESTS SELECTABLE VIA KEYBOARD

351

352

.'tfl.tt*ttitt*t*tttfittt'*ttitii*fitfi'ttfit!fit*tittttt'ttttttitfittfiitttttttt

353
354
355
356
357
358

002076
002100
002102
002104
002106
002110

002160
003450
004316
004412
004606
005014

TSTABL: M7380A
M7381A
M7381E
M7382A
BCDIO
M7383A

361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377

002116
002120
002122
002124
002126
002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156

006356
007072
010006
010126
011150
011360
011506
003254
012050
012062
012370
013664
021142
022224
022232
022264
022360

M73836
M7384A
M7 384E
M7385A
M73851
M7385T
M7386A
M7387A
M7388A
M7388F
M7377A
M7378A
SUBX
RE CBUF
TRNBUF
SEND
RUN

359
360

002112
002114

005416
005514

M7383(C
mM7383R

;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/QUTPUT MODULE ADDRESS TEST
;SERIAL 1/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
JREMOTE SERIAL MODULE TEST
;FOUNDATION MODULE TEST
JSUBTEST 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
JROUTINE TO LOAD & RUN THE SEND PROGRAM

SEQ 0030

(e Nen}

CZPMACO PDM70 DIAGNOSTIC TEST

(ZPMACO PDM70 DIAGNOSTIC TEST

CZPMAL PN

19~-JAN=-78 14:50

MACY11 30A(1052)

20-JAN-78

KEYBOARD MONITOR

09:11

PAGE 10

SEQ 0031

2222232232222 2322232232322 2233223222233 32202222223223 3282322228300 20RRdd]

378
379
380
381
382

.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.
:tttifitttt‘ttfiit*tt**ttti'tfitttfittttttt*fit'ttitttttttt*ttttttttttifi*t'tt

002160
002162
002164
002166
00217¢2
002174

M7380A: PRINT

104012

032222

005037

032144

104035

;TEXT 'CONTROL MODULE TEST®

Mgg1

024042
000240
005037

CLR
SETUP

CLR

LOPSWH

DLYSWH

;SET UP TEST PARAMETERS.
JENABLE TRANSMITTER DELAYS

:tt'itttttt't'*tfit.ikttttt'iififittttttfittttittttttittttttitittitttfititttt

JLOAD '2' PROGRAMS INTO THE CONTROLS 'FIFO' AND (HECK THAT
;THE

CONTROL MODULE ENTERS THE ADDRESS MODE.

:ittltt*ttfit'ttttttfiititttttt*t*ilttftittt*titttttitfitttttttttttttttttlt

NOP
NOP

000240
000240

LDPGMO

104007
002212
000412
002

PRGM1-1

021

ORGM1:

IADRSO:

075
001
C61
022
975
023
024
021
075
001
061
022
075
061
063
023
003
002236

002236
002242
002244
002250
002254
002256
002260

005737
001020
012701
005737
001401
005301
005237

IADRS1:
PRGM2:

IADRS2:

IADRS3:

ENDZ:
032132

002213
032222
032222

TAGR:

;LOAD THE FOLLOWING PROGRAM.

BR
.BYTE
.BYTE

TAGB
STX
D(1

.BYTE
.BYTE

SOH
61
DC2
75
D(3
D(4
DCI

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

.BYTE
BYTE

BYTE
.BYTE
BYTE
BYTE
.BYTE
.BYTE

.EVEN

TST

JALERT DESTINATION
;START OF 2ND PROGRAM

SOH
61

DC2
75
61
63
DC3
ETX

SIOSWH

JSERIAL

[/0 INPUT?

BNE
MOV

TAGOB1
#PRGM1 ,R1

JYES, JUST LOOK FOR DATA
JNO, VERIFY 1ST PROGRAM

BEQ
DEC

. +4
R1

;NO, DON'T LOOK FOR 'STX'
JYES, SET UP TO LOOK FOR *'STX'

TST

INC

LOPSWH

;LOOPING FROM LAST TEST?

(ZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
430

002264

6432

002270

435

002276

431

433
4%

2%9

19-JAN-78 14:50
001403

002272
002274

030471
000412

002302

001370

445
466
22;

ERR2
BR

002222

09:11

CMPB

BNE

PAGE 11

(R2)+,(R1)+

.+10

;COMPARE RECV'D/TRANSMITTED DATA
JRECV'D/TRANS ADDRESS DATA DIFFERENT

(T2

JEXIT ON ERROR.

CMP1

sNO

H#PRGM?2 ,R1

JCHK'D ALL DATA?

;AT THIS POINT THE MODULE SHOULD BE IN THE °'DATA MODE'
;THIS NEXT SUBTEST SENDS THE CHAR. 'A' AND (HE(KS

22?

443
444

BEQ

MODERR

438
439
442

CMPB

104022

122701

20-JAN-78

M7380 CONTROL MODULE TEST.
CMP1 :

122221

002266

MACY11 30A(1052)

;THAT

002304

002306
002310

002314
002316
002320

104006
000101
122722
001402

IS RETURNED AS DATA.

TAGOB1: LDCHRO

‘A
(MPS
BEQ
MODERR
ERR19

000101

104022
031365

4'A,(R2)+
12

;SEND (HAR. ‘A’
;WAS 'A' RETURNED?
JYES

;MODULE DibN'T ENTER DATA MODE

449

"tii*t*fi't*tttt*ttk***t*ttt*ifik*.fittt*ttttfifi'fittttittfittfittt*ttitfiti*fitt

450
451
452

;THE CONTROL MODULE SHOULD NOW BE IN THE 'DATA MODE'.
THE FOLLOWING
JSUBTEST (REATES A RANDOM *'500' WORD DATA BUFFER AND TRANSFERS IT TO THE
;CONTROL MODULE.
THIS DATA IS VERIFIED WHEN IT IS RECEIVED BACK FROM THE

(.S‘

"ittt**iitfiiikfitti’i**'fitit**fiitfik!Q*t*tfl'fiki*l’fitt*'ttttttt'itittttitfitttt

453
455

;CONTROL MODULE.

456
457
458

002322
002326
002330

460
461
462
463
464
465
466
467
468

002334
002340
002342
002344
002346
002350
002352
002356
002360

459

469
470
471

472

473

002332

002362
002364
002366
002372

104001
1040M
104007

000002

012701
122221
001403
104022
030526
000411
005737
001403
104022

017670

030677
000403
022701
001362

(12:

TRNBF
0

CMP2:

016220

020372

SCOPE .2
RANDOM
LDPGMO

CT3A:

MOV
CMPS
BEQ
MODERR
ERR3
BR
TST
BEQ
MODERR

;TEST 2
s CREATE A RANDOM DATA BUFFER
;TRANSMIT DATA FROM FOLLOWING ADDRESS.
ATRNBFO,R1
(R2)+,(R1)+
.+10
(13
PARITY
CT3A

ERR7
BR
cMP

.+10
#TRNEND ,R1

BNE

(MP2

JREVC'D & TRANS DATA EQUAL?
JYES

JRECV'D DATA DOESN'T EQUAL TRANS DATA
;PARITY ERROR FLAG SET?
;NO, DATA GOOD
JYES, PARITY ERROR ON LAST TRANSFER
;CHK'D WHOLE BUFFER?

;CORRECTED 7/1/74.

SEQ 0032

(ZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
474
475
476
W77
478
479
480
481
482
483
484
485
486

487

488
489
490
491
492
493
494
495
496
497
498
499

500
501
502
503
504
505
506
507
508

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

M7380 CONTROL MODULE TEST.
:ttttttttttfit.tt**tttfi

PAGE 12

SEQ 0033

1223323233222 2232332X232 2222222822220 0R 222002332082,

;THIS SUBTEST ISSUES AN 'EOT' CHARACTER AND (CHECKS THAT THE CONTROL
;MODULE RE-ENTERS THE ADDRESS MODE AND THAT THE SECOND PROGRAM LOADED
JTHE

1ST

SUBTEST GETS READ OUT.

'-tttttfittt'tittitfitttfittt'tt*tlttt'tfiitttfittitt*tttt*tttttitttttiitfiiti

002374

002400
002402
002404
002410
002414
002416
002420
002422
002424
002430
002432
002434
002436
002440
002442
002444
002450

104001
104006

000004
012701
122722
001403
104022
030603
000422
005737
001010

000003

(T3:

EOT

MOV

002222
000004

CMP8S
BEQ

MODERR

ERRS

032132

(MP3:

122221

001403

122701

001370

BR
TST
BNE

g?PB
Q

MODERR

104022

030544
000412

ERR4
BR
CMPS
BNE

002234

JSEND A (HAR.
002452
002454
002456
002462
002464
002466

104006

000101
122722
001402
104022

031321

000101

;TEST 3

SCOPE,3

LDCHRO

#PRGM2 ,R1

#EOT, (R2) +
.+10
CT4
SIOSWH
TAGOA
.t

(T4
#END2 R
CMP3

‘'EOT' WAS RETURNED

;EOT CHAR WASN'T RETURNED

;COMPARE DATA OF THE SECOND PROGRAM
;ADDRESS ERROR IN Z2ND PROGRAM
. DONE
:NO

TO VERIFY THE Z2ND PROGRAM S

DATA MODE

TAGOA:

ERCHRO

CMPB

;CHK THAT

;EXIT ON ERROR
;SERIAL 1/0 INPUT?
JYES, JUST VERIFY DATA

(R%é*.(R1)*

JIN THE

BEQ
?gg%gR

;TRANSMIT THE 'EOT' (HAR.

#'A,(R2)+
(T4

JWAS THE

‘'A' RECV'D?

JYES
;2ND PROGRAM DIDN'T ENTER DATA MODE

CZPMACO PDM70 D]JAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
509

510
SN
512
513
514
515
516
517
518
519
520
521

30A(1052)

20-JAN-78

M7380 CONTROL MODULE

l
09:11

TEST.

;tttttfi.tttititfit*titfi

PAGE 13

(3222232222323 2322832222

SEQ 0034
0220202

000dRRRd Rl

; ISSUE ANOTHER 'EOT' TO TEST THAT THE ADDRESS MODE OF THE 1ST PROGRAM IS
;RECIRCULATED BACK OUT OF THE 'FIFO°'.
;!ttfifittt'*ttittltttti*itfiittttti!tfittittttttk.ttttttttttfitttt*tttt'iiti

002470
002474
002476

104001
104006

000004
105722

005737
001012
012701

122122
001403

<22

523
524
525
526
527
528
529
530
532
533
534
535
536

MACY11

000004

(74

EOT
1S1B

032132

002213

MOV

#PRGM1 ,R1

MODERR

104022

030634
001012
022701
001370

SIOSWH

(MP8
BEQ
ERRG

BNE
CMP
BNE

002222

JSEND A CHAR.

002534

002550

104006
000101
122722
001402
104022
030€34

TAGOC:

000101

;'EOT' SHOULD RE-ADDRESS 1ST PROGRAM
JADD '1' TO BUFFER POINTER
;SERIAL 1/0 INPUT?
;YES, JUST CHECK DATA

(R2)
+

TST

BME
CMP4:

JTEST &

,&
SCOPE

LDCHRO

TAGOC

(RD+,(R)+
.+10

;1ST PROGRAM DIDN'T RECIRCULATE

cT5
#PRGMZ,R1
CMP6
TO VERIFY

THAT

THE

1ST PROGRAM ENTERED

THE

DATA MODE

LDCHRO
(MPB

BEQ

MODERR

ERR6

#'A,(R2)+

cTs

:U?g CHAR RETURNED?
sy

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

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

538
539
540
541
542
543
544
545
546
547

548

549
550
551
552

553
554
555

556

557
558
559
560
561
562
563
564
565
566
567
568

MACY11 30A(1052)

20-JAN-78

09:11

M7380 CONTROL MODULE TEST.
IRRRPRRRERRARRARNRRANRR

PAGE

AR AN AR

SEQ 0035

RN R AR

;THIS SUBTEST ISSUES ANOTHER 'EOT'

AR R AR RR AR KRR O

(CHARACTER.

AN KRR

RARRARR

THIS SHOULD ENABLE THE

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

"tttitttttlt*tttl’it*tti*ttii*ttttttttt'ltttttttttttttfitttttfitttti*i*t*tt

002552
002556
002560
002562
002566
002570
002572
002574
002576
002602
002604
002610
002612
002614
002616
002620
002622
002626
002630
002632

002634

002640
002642
002644

104001
104006

000004
122722
001403

000005

CT5:

EOT
CMPB
BEQ

000004

104022

030603
000424
005737
001012
012701
122122
001403

MODERR

ERRS

032132

002213

CMPS:

104022

030634
000412
122701

001370

TAGOD
:

104006

000101

122722
001402
104022
030634

000101

#EOT,(R2)+
.+10
(16

BR
TST
BNE
MOV
CMPB
BEQ
MODERR

TAGOD
#PRGM1,R1
(R1)+,(R2)+

BR
CMPB

16
#PRGM2 ,R1

ERRG

002222

;TEST S

SCOPE .S
LDCHRO

BNE

LDCHRO
‘A

CMPB

8BEQ
MODERR

ERRG

SIOSWH

.+10

CMPS

H'A,(R2)+
.46

;'EOT' SHOULD ENABLE ADDRESS MODE

;CHECK THAT 'EOT' WAS RETURNED
;'EOT' CHAR. WASN'T RETURNED
SJEXIT ON ERROR
;SERIAL [/0 INPUT?
JYES,

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

4
4

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PN
569
570
57
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608

19~-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

M7380 CONTROL MODULE TEST.
AR

R AR

PAGE 15

SEQ 0036

R RN R R RARR AR

A R RN

RRRRR KRR

R RN

:THIS TEST CHECKS THAT ALL '64° LOCATIONS OF THE CONTROLS 'FIFO' CAN

;BE ACCESSED.
JTHE

'FIFO'.

KRR

THIS IS DONE BY LOADING ONE '64' CHARA(CTER PROGRAM IN

IN THIS PROGRAM,

'56'

CHARACTERS ARE RANDOM LITERAL

;CHARACTERS ENTERED UNDER AN °'SI' COMMAND.

"tttttttttittttttt*t*tt't**t*t*tttti!tifittttttttttttttttt*ttttttfittttttttt

002646
002652
002654
002660
002664
002670
002674
002700
002704
002710
002714
002720
002726

104001
104011
012700
112720
112720
113720
112720
112720
112720
113720
112720
112737
112737

002734
002736
002740
002742
002744
002746
002750
002752
002754
002760
002764
002766
002772
002774
002776
003000
003002
003004
003010

104007
017670
104004
105722
001003

000006

CT6:

017670
000002
000021
002214

000001
000061
000022
002214
000017
000023
000003

017767
017770

104022

030471
000417
012701
005737

001407
062701
122122
001403

104022
030526
000403
022701
001370

017670
032132

000019

017767

CMP6:

SCOPE . 6
RANDOM
MOV
#TRNBFO,RO
MovB
#STX, (RO)+
mMovB
#DC1, (RO)+
MOVB
IADRSO, (RO) +
MOVB
#SOH, (RO) +
mMovB
#61,(RO)+
MovB
#DC2, (RO)+
MOVB
IADRSO, (RO) +
movB
#S1,(RO)+
mMovB
#DC3,TRNBFO+77
movB
HETX,TRNBFO+100

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

LDPGMO
TRNBF
0
DELAY
1ST8
BNE
MODERR
ERRZ2
BR
MOV
TST
BEQ
ADD
(MPB
BEQ
MODERR
ERR3
BR
CMP
BNE

;SEND THE PROGRAM
(R2)+
.+10
crz
#TRNBFO,R1
SIOSWH

.+6
#10 ,R1
(R +,(R2)+
.+10
17
#TRNBF0+77 ,R1
(MP6

JALERT DESTINATION FOR SERIAL 1/0
sADDRESS INPUTTED VIA USER
;SEND '55' LITERAL CHARACTERS
;LOAD THE '64' (HAR.
, TERMINATE THE PROGRAM

JWAIT FOR DATA TO RETURN
;WAS ANY DATA RETURNED?
JYES
;CONTROL MODULE DIDN'T RETURN ANY DATA
JEXITM ON ERROR
JSET UP TO VERIFY DATA
;USING SERIAL [/0?
;NO. VERIFY ADDRESS AS WELL AS DATA
JYES, MOVE POINTER TO VERIFY DATA ONLY
;DATA ERROR

JEXIT ON ERROR
;DONE?
;NO

cz!
Czi

CZPMACO PDM70 D]AGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1T
609
610
611
612
613
614
615
616

617

618
619

620
621

3
PAGE 16

L
20-JAN-78 09:11
MACY11 30A(1052)
M7380 CONTROL MODULE TEST.
;ttttt**tttitt*tttttti

SEQ 0037

(3223232232233 3232 3322322223228 22223282280 388202t dddd)

;AT THIS POINT THE FROGRAM, ADDRESS AND DATA MODES HAVE BEEN TESTED.

;THIS SUBTEST ISSUES ANOTHER 'STX' CHARACTER TO GET THE CONTROL MODULE

;BACK INTO THE PROGRAM MODE.

:fit*tttt*tttt*ttttttttttittttttttttttttttttttfiitttttttttt*tfittttitttittt

003012
003016
003020
003022
003026
003030
003032

104001
104006

000002
122722
001402

000007

(17:

SCOPE,7

LDCHRO

STX
CMPS
BEQ
MODERR

000002

104022

;TEST 7

TO RE-ENTER PROGRAM MODE

:THE 'STX' CHARACTER WASN'T RETURNED

ERR1

030440

°'STX'

;ISSUE

#ng.(R2)+

AR AR AN RANE AN AR AR AR

NAR

R AR R AR RN

;THIS SUBTESTS TESTS THE DELAY TIMES OF THE

°'SYN'

RRNR

R RRRARR AR AR

CHARACTER. ALL THE

;DELAY TIMES OF '1-9' ARE TESTED IN ORDER. THE TEST MAKES '2' CHECKS
;ON EACH TIME. FIRST IS THAT THE DELAY ISN'T TOO SHORT AND SECOND THAT
;THE DELAY ISN'T TOO LONG.

THIS TEST IS PREFORMED BY LOADING

;'9' SEPARATE PROGRAMS AND STORING THEM IN THE CONTROL FIFO.

:tttttttttttfiittttttttttit'ttt*ttttttttittttitittttt*t*ttitttttttttttttt

104001
104036

012701
012702
012703
104005

003127
003130
003131
003132
003133
003134
003135

012746
012746
000002
005004
110337
110337
110337
104007
003116
000411
002
021
075
001
060
022
075
017
026
061

023

021
075
001
061

023

000010

CT10:

000001
000002
000061
000000
003072

003127
030766
031023

TAGD:

1%:

NODLAY
MOV
MoV
MOV

RECVRO

IADRSS:
SYNTIM:
JADRS6:

JINHIBIT TRANSMITTER DELAY

#1,R1
¥, R2

;SET UP DELAY TIMES (1-9).
;SHORT TIME DELAY COUNT.

#61,R3

;START DELAY WITH *1°,

MOV
MOV
RT!
CLR
MOVB
mMovB
MOVB

R4
R3,SYNTIM
R3,ERR9+16
R3,ERR10+16

;CONTAINS THE ACTUAL DELAYS COUNTED
JSET UP DELAY TIME FOR THIS LOOP
;PRINT DELAY TIME ON ERROR

TAGF

;. GO HERE WHEN LOADED

0(1
75

;MODIFIED BY USER

60
DC2
75

JMODIFIED BY USER

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

STX

SOH

gIN
Y

823
DC1
75

e
DC3

-(SP)
-(SP)

JENABLE THE DL11 RECVR

#0,
e,

LDPGMO
.t

1ADRS4:

;TEST 10

SCOPE,
10

JENABLE

INTERRUPTS

;LOAD THE FOLLOWING PROGRAM

;MODE *'0' AUTO 'EOT'

;ENABLE DESTINATION

;LOCATION MODIFIED ON EACH PASS.
JMODIFIED BY USER

CZf
Czt

003
03140

668
669
670
671
672
673
674
675
676
677
678

003140
003142
003144
003146
003150
003152
003154
003160
003162
003164
003166

104023
005204
020401
001410
020402
002372
005737
001767

680
681
682
683
684
685

003170
003172
003176
003200
003202
003204

104023
005737
001003

687
688
689
690
691

003206
003210
003214
003216
003220

005201
022701
001403
005202
005203

693
694
695
696
697
698

003222
003224
003230
003234
003236
003244

000715
012746
012746
000002
032777
001471

.BYTE
.EVEN
TAGF:

NULL1
INC
CMP
BEQ
CMP
BGE
TST
BEQ

016224

104022

MODERR

ERRY

030750
000416

BR
TAGG:

016224

104022

NULL1

031005
000407
TAGH:

000012

TAGI:

000340
003236
002000

176106

1%:

TAGI +2

INC
CMP

R1
#12,R1

8EQ

;'SYN' DELAY TOO SHORT

Jx* CHECK 'W2' JUMPER IN?
JEXIT ON ERROR

TAGI+2

BR
MOV
MoV
RT1
BIT

;1 SEC. TTY DELAY.
s INCREMENT DELAY COUNTER
JWAITED LONG ENOUGH?
JYES, 'EOT' SHOULD BE BACK.
;JCHECK FOR FAST RETURN?
;NO, EXECUTE NEXT DELAY
sBACK?
;NO, STILL OK

R4
R4 ,R1
TAGG
R4 ,R2
TAGF
RECEOT
TAGF

RECEOT
TAGH

8EQ
INC
INC

SEQ 0038

ETX

TST
BNE
MODERR

ERR10

PAGE 17

;GIVE IT AN EXTRA SEC.
;SHOULD BE BACK HERE.
sHOORAY [T IS.

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

JTEST ALL TIMES?

TAGI+2

;YES,

R2
R3

TAGD

#4340,
ns,

-(SP)

JNO, SET UP TO TEST NEXT TIME
JSET UP NEW 'SYN' COUNT
JENABLE NEXT PROGRAM
;LOAD THE NEW TIME DELAY PROGRAM

-(SP)

#SW10,aSWR

cr1e

EXIT

;1S 'SW10'

SET

JNO, INHIBIT TESTING M7387

CZF
CZF
_A_A_A_.a
1

003136

S0A(1052)
20-JAN-78 09:11
M7380 CONTROL MODULE TEST.

665

MACY11

A—A_ 2

CZPMACO PDM70 DJAGNOSTIC TEST
19~-JAN-78 14:50
CZPMAC.PIY

104004
012746
012746
000002
012701
122122

000000
003276
1%:

000340
003316
2%:
CMP11:

003360

001403
104022

TST
BEQ
DELAY
MOV
MOV
RT1
MOV

003427

#0,
s,

-(SP)
-(SP)

(R2)

-2

2340,
nee,

-(SP)
-(SP)

#PROMS ,R1

CMPB
BEQ
MODERR

(R1)+,(R2)+

(112

CMP
BNE
PRINT

#PROMD ,R1

ERR3

030526
000436
022701
001370
104012
027166
104013
012737
000424

MOV
MoV
RTI

.+10

CMP11

MES65

000001

TTYIN
MOV

032222

;TEXT 'INSERT M7387 MODULE''.
JENABLE DL11
sENABLE INTERRUPTS

#1,LOPSWH

;NO, WAIT
;WAIT FOR DATA

JINHIBIT INTERRUPTS

;DATA OK?

JYES

;PROM DATA ERROR

JEXIT ON ERROR

;CHECKED ALL DATA?

;NO

. YES
JTEXT *PROM OK'
;WAIT FOR

'CR'

TO CONTINUE.

c112

;FOLLOWING IS THE DATA WHICH SHOULD BE READ FROM PROM
015
012
115

067
063
070

067
040

003373
003374
003375

120
122
117
115

040
122

:
PROMS

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

D d =D D
D ) e
e

MES64
RECVRO

D e

714

715
716
717
718
719
720
721
722
723
724
725
726
727
728
729

;ENTERED HERE 1S M7387A IS TYPED

e e

104035
104012
027100
104005
012746
012746
000002
005712
001776

STEST 1

SCOPE, n
.+
BR
M7387A: SETUP

(111

000011

104001
000401

b b

;1S TYPED.

:ttfiitt*ttfifittitttttt**t*t*ittttt*ttttfitt*ttititttttt*t'*tttifitfitti*ttttit

707
708
709
710
[4}
712
713

D D b

704
705
706

b D

703

.SBTTL M7387 READ-IN MODULE TEST

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

d md e

l
t 2
2222
2202282 Rtt
2 1222323 1221222222222 32223323
S

700
701
702

cZpP
CZP

699

JVEST.

SEQ 0039

ke o

M7380 CONTROL MODULE

PAGE 18

19-JAN-78 14:50

09:11

CZPMAC.P11

20~JAN-78

MACY11 30A(1052)

CZPMACO PDM70 DIAGNOSTIC TEST

755

756

757

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

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

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:

783

790
791
792
793

SEQ 0040

'E
'A
'D
55
']
°'N
40
'T
't
'S
'T
15

12
60
61
62
63
64
65
66
67
70
71
15
12
O

.EVEN

782

784
785
786
787
788
789

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

4
PAGE 19

;fittttfittttttttttt*ttttti'tt*tttt*fititt*ttttt*t*i*ttt*t*ttttttt'titttttfi

;TEST COMPLETE

;fittttttt.tttttt*t*Q**it'ittttt*t*ttt*itkttttttt'fittttttttittt*ttittitit

003430
003434
003436
003440
003444

104001
104012

024236
005237
000137

000012

032222
002172

(112:

SCOPE, 12

;TEST 12

MES7
INC
JMP

LOPSWH
M7380A+12

JTEXT °*TEST COMPLETE'
;SET SW. TO LOOP PROGRAM
JRESTART PROGRAM

lan Wan )

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

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

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

PAGE 20

2222222232232 23 23 2222222222822

SEQ 0041

2332332338222 2200222

SBTTL M7381 BCD INPUT MODULE ADDRESS TEST

R Rttt

;iiti*t*ttt**tt*fiitt*tfitt*!ttttt*tittt*tt*ttttt*tttfltfittttttttttttttitfittt

003450
003452
003454
003456
003460
003462
003464
003470

M7381A: PRINT
MES29

104012

025233

104026
104012

025303
025324
004737
104035

BCDTO:

MES3I

MES31A

023274

2GE1 MODULE ADDRESS
JTEST 'SET SW'S ALL ON

ADDRESS

JSR
SETUP

PC.

JPDATE

;CHECK FOR SOF TWARE SWR
;SETUP TEST PARAMETERS

:tttttitt***fii*titttkttttttttit***tttttt*tfi**.tttt***tt*t*ttt*tttttttttttt

;THIS SUBTEST ADDRESSES THE MODULE

IN MODE

'O' AND CHECKS THAT THE

;MODULE ADDRESS., MODE AND CORRECT NUMBER OF DIGITS ARE RETURNED.

:ttt*ttt**ttttit*fi*tt**tt*tttt*tttttttttttttittfittttttttttt*tittttttttittt

003472
003474
003476
003504

003510
003514
003516
003520
003522
003524
003530
003532
003534
003536
003540
003544
003546
003550
003552
003554
003560
003562
003564
003566
003570
N03574
003576
003602
003604
003606

000240
000240

112737

004737
005737
001003
104022
031041
000432
123722

001403

B(DT1:

000060
017220
016224

017231

BR
(MPB
BEQ
MODERR

032134

ERR3

122722
001403
104022
030526
000416
122722
001403
104022
030526
000410
022702

00C060

122722
001402
104022
030526

000004

001367

NOP
MOVB
JSR
TST
BNE
MODERR

ERR11

104022

030526
000424

NOP

(MP2A:

.+10

B(DTZ2

MODADR, (R2) +
.+10

BCDT2

B(DTZ2

BEQ
MODERR

.+10

C(MPB

ERR3

016246

PC,3¥ADRSRC
RECEOT

BR
CMPRB
BEQ
MODERR

ERR3

002077

#60, SOH1

BR
(MP
BNE
(MPR
BEQ
MODERR

ERR3

#60, (R2)+

.+10

#77.,(R2)+

B(DT?

;SET UP MODE 'O
;ADDRESS THE MODULE
;WAS

'EOT'

RETURNED?

JYES, VERIFY DATA

;NO, MODULE DIDN'T ENTER DATA MODE.
;RE§EIVE
JYE

CORRECT ADDRESS?

;RECEIVED WRONG MODULE ADDRESS

:REgEIVE CORRECT MODE?
.Y

:MODULE WAS ADDRESSED IN MODE 'O

;SHOULD READ ALL 1°'S WITH INPUTS OPEN
;DATA ERROR, SHOULD READ ALL 1°'S
;WITH THE

INPUTS OPEN.

#RECBFO+12,R2

:08~s?

#EOT, (R2)+
.46

;vggs CORRECT NUMBER OF CHAR.'S RECEIVED

(MP2A

"DIDN'T RECEIVE ALL DATA CHAR.'S

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 21

M7381 BCD INPUT MODULE ADDRESS TEST
:ifii'*tt*itt'ttfit*ti*fi

SEQ 0042

1222322223223 3382232222283202 2222200022220 RRR 2Rt

;THIS SUBTEST ADDRESSES THE MODULE FOR MODE '1' (EXT. SYNC) AND CHECKS
;THAT ONLY AN 'EOT' AND ONLY AN 'EOT' IS RECEIVED BACK.

;ttttt*fittiitii*t*itt*fiti'*tt*ttt*tttttt*titttttttttttttttttttt*tittttti*i

003610
003612
003614
003622
003626
003632
003634
003636

104001
000002
112737

004737
122722

001402

BCDTZ:
000061
017220
000004

SCOPE

mMovB

017231

JSR
CMPB
BEQ
MODERR

106022
030603

#61,S0H1
PC,a#ADRSR(C

JSET UP MODE '1°' 'EXT SYNC'
;ADDRESS THE MODULE

#EgT.(RZ)*

:Uég

'EOT'

RETURNED?

;'EXT SYNC® DIDN'T RETURN AN 'EOT'

ERRS

;ktitti*tt*ttfi‘ttitttttt*ittitt*ttt*tttttt*tt*ktttttfitttfittittttitttttfi'tt

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

:t*fittttttfifittfit*fiitttfit"itttfititttfittttt*tt*tttttft*tttttttittttittttitt

003640
003642
003644
003652
003656
003664
003666
003670

BCDT3:

104001

000003
112737
004737
122737

001402

000062
017220
000004

017231

SCOPE
3
mMovs
JSR

016244

CMPB
BEQ

104022

MODERR

030526

22X

262 ,SOH1

;SET UP MODE

#EgT,RECBFO+1O

;IES'EOT.

PC.,a#ADRSRC
.+

ERR3

S22

'2°'

;ADDRESS THE MODULE

IN CORRECT PLACE

;ONLY DATA SHOULD BE TRANSMITTED IN MODE '2°
2 2222222228222
02d0 AR Rttt R0t
Rl l R

*THIS SUBTEST ADDRESSES THE MODULE FOR MODE '3' (EXT. SYNC) AND CHECKS
;THAT ONLY AN

'EOT'

AND ONLY

°EOT'

IS RECEIVED BACK.

:ttfitttttttt*ltfittttfifit'ttfiittfitt*fiitttttttttttt*tt.tttitttifitlttittt.tt

003672
003674
003676
003704
003710
003714
003716
003720

104001
000004
112737
004737
122722
001402
104022
030526

BCDT4:

000063
017220
000004

017231

zCOPE

MOVB

JSR
CMPB
BEQ

MODERR

ERR3

#63,SOH1

;SET UP MODE

#EgT.(R2)+
.t

;UQS
YES
;

PC,ADRSRC

;ADDRESS MODULE

'EOT'

RETURNED?

"EXTERNAL &SYNC' DIDN'T RETURN AN °EOT’

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

C(ZPMACO PDM70 DIAGNOSTIC TEST
19-JAN=-78 14:50

CZPMAC.P11

884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900

MACY11 30A(1052)
M7381

BCD

20-JAN-78

09:11

PAGE 22

INPUT MODULE ADDRESS

SEQ 0043

TEST

:ttttttt'ttfitttti*itttttiitttfiitfittttt'**tt**ttttfith0"‘\tttttttt*tttttifitfi

JTHIS SUBTEST ADDRESSES THE MODULE USING ALL THE WRONG
;MODULE ADDRESSES AND TESTS THAT THE MODULE ISN'T ENABLED.

"itQtttt'ttttttttttttittitttfifittt*i*ttt*fitlttfit**fit*tttttttttfi't**tttittti

003722
003724
003726

gCOPE

B(DTS:

104001

000005
004737

JSR

005154
R

PC,Q#ADRSIT

RN R AR

R AR

;SUBROUTINE

TO ADDRESS MODULE

RN RN AR AR RN R AR AR N AR RN AN IR AR AR AR RRNR AR AR

;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
;ARE READ FROM THE MODULE.

INOTE:

IF DATA SW10 IS NOT SET,

BCDT6:

gCOPE

RN RS

THE FOLOWING SUBTESTS ARE SKIPPED.

.'ttttittttitfitttttttttttttitttttttttt'tttt'*fiittt*t!ifitt*ttittt*tttttitttt

90"

902
903
904
905
906
907
908
909
910
911
912
913
914
915
916

917

918

919
920
921
922
923
924
925
926

927
928
929
930
931
932
933
934
935
936
937
938
939

003732
003734
003736
003744
003746
003750
003752
003754
003760
003766
003770
003776
004002
004006
004010
004012
004014
004016
004022

104001

000006

032777
001520

002000

BIT

175406

BEQ

104012

025303
025434
004737
012737
104005
112737
004737
122722
001403

023274
003760

000062
017220
000060

MES31
MES31D
JSR
MOV
RECVRO

020774

017231
(MP2B:

022702
001367

(MPR
BEQ

MODERR
ERR3
B8R
CMP

104022

030526
000403

MOVB
JSR

016244

BNE

AR AR

AR AR AR

JSW SET?

#5W10,3SWR

BCDT11

;NO,

UPDATE
PC,
#. . ,RETURN

;CHECK FOR SOFTWARE SwR
;RE-SET SCOPE LOOP POINTER

#62,SOKH1
PC,a#ADRSRC

JSET UP MODE '2'
;ADDRESS THE MODULE

BCDT7
#RECBFO+10,R2

:DATA SHOULD TO ALL 0'S WITH
;THE INPUTS GROUNDED
<EXIT ON ERROR
;DONE?

#60,(R2)+
.+10

(MP2B

R AR R AR AR AR

;THIS SUBTEST REQUESTS

SKIP MANUAL

TESTS.

<NO

N RN RN AN RN RRN KRR AR NN S AR

THAT THE

CUSTOMER SWITCHES BE

RRRRRARN AR

SET TO ALL OFF

JCHECKS THAT ONLY THE ADDRESS., MODE AND 'EOT' ARE RETURNED.
JNOTE:

DATA SW10 IS SET THE FOLLOWING TESTS ARE

B(DT7:

;COPE

SKIPPED.

AND

.'ltttttfifi'ttttittttt*ttittitt*lflttfilitttttttfifittt*fifittttttttt'fiitttttttttt

104001

000007
104012

024316

MES10

;TEXT 'RESET MODULE TO ADDR.

025303

MES31

JSET CUST. SW.'S TO 'O°

104012

012737

023274
000077
000077
004062

032134
017227
020774

MES31E
JSR
MOVB
MOvB
MOV

UPDATE
PC,
#77 ,MODADR
#77,SRCADR
#.,RETURN

;CHECK FOR SOF TWARE SWR
JSET UP NEW MODULE ADDRESS.
JRE-SET SCOPE LOOP POINTER

'17°.

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

RRRREZRER

BXRarRo&R

004070
004072
004100

104005
112737

004737
005712
001003

000060
017220

MACY11 30A(1052)

000004

Fo4

09:11

PAGE 23

SEQ 0044

M7381 BCD INPUT MODULE ADDRESS TEST
RECVRO
MOvVB
JSR

017231

TST

BNE
MODERR
ERR11
B8R

104022

031041
000406
122737
001402
104022
030526

20-JAN-78

(MPB

016236

BEQ
?gggRR

#60,S011
PC.,a#ADRSR(C
(R2)

.+10

;ENABLE THE DL11 RECVR.
:SET UP MODE '0Q'
;ADDRESS THE MODULE

:WAS ANY DATA RETURNED?

JYES
;DIDN'T ENTER DATA MODE

8CDT10

#EOT ,RECBFO+2
.+6

JEXIT ON ERROR
JEOT SHOULD BE 3RD CHAR. BACK
;OK, IT IS
;DATA WASN'T

INHIBITED

"tt*tttttttfittfi*ttkttt"*lfiiti*ttt*ttt*tt*.ltttitkitttt*tttttttttttitttttt

;THIS SUBTEST REQUESTS THAT THE CUSTOMER SWITCHES BE SET TO ALTERNATE
;ON & OFF AND CHECKS THAT ONE

'4'

CHARACTERS ARE RETURNED.

.'ttttt*ttttt*ifitttttfifi'ti'ttttti*t*tt'tl’tt*itttttttttttttttfitt*t'ttttttttt

BCDT10:

104001

000010
104012
025303
025403
004737
012737
104005
112737

004737
022737
001402
104022
030526

SCOPE

023274
004150
000062
017220
000004

MES31
MES31C
JSR

020774

MOV

017231

MOvB

116240

RECVRO

JSR
CMP
BEQ
MODERR

ERR3

#.,RETURN

JCHECK FOR SOF TWARE SWR
JRE-SET THE SCOPE LOOP POINTER

#62,SOH1

;SET UP MODE

#EgT.RECBFO*L

;U?ERE ONLY

PC,

UPDATE

PC,a#ADRSR(

;ADDRESS

'2'

THE MODULE

*'4'

(HAR.'S RETURNED

JONLY '4' CHAR.'S SHOULD BE RETURNED

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

20-JAN-78

09:11

R AR

R R

MACY11 30A(1052)

PAGE 24

M7381 BCD INPUT MODULE ADDRESS TEST

972
973

R R

AR AR

SEQ 0045
R

AR AN

RN AR

AR AR

R R

RN R AR

;THIS SUBTEST TESTS THC DEVICE FLAG IN MODE '7°'.
A REQUEST IS MADE
;FOR AN EXTERNAL SIGNAL TO BE SUPPLIED.
THE 'BCD' INPUT MODULE

974
975
976

;1S THEN ADDRESSED AND CHECKS THAT DATA WA5 REITURNED.

"ttti**ittfittttt**fitfi*.tittttttfitfittttttttwttktfitttttttttttttttltttitttttt

977
978
979
980
981
982
983
984
985

BCDT11:

104001

000011

104012

026654

104013
112737
004737
105737
001002
104022
031433

987

?%OPE

000061
017220
016235

017231

MES60
TTYIN
mMovB
JSR

#61,SOH1
PC ,a#ADRSRC

JTEXT °*SLPPLY AN EXTERNAL SYNC.
JWAIT FOR 'CR’
JSELECT MODE '1' ;WAIT FOR DEVICE FLAG.
;ADDRESS THE MODULE

BNE

BCDT12

JYES, CHECK FORMAT

TSTR

?ggng

AR R

RECBFO+1

AR AR NN R

;WAS ANY DATA RETURNED?

;NO DATA RETURNED WITH EXT.

SYNC.

RA N RN RN R AR AN RN AR AR R RN RRN RN RRN RS R

R RN

;THIS SUBTEST TEST THE DEVICE FLAG IN MODE '3'.
A REQUEST IS MADE
;FOR AN EXTERNAL SIGNAL TO BE SUPPLIED.
THE 'B(D' INPUT MODu.E IS

;THEN ADDRESSED AND (HECKED THAT DATA WAS RETURNED.

"itttttttttttt*ttt*tt*fitttttttikfitfiltifiktt.ttttttitifittlttttttfitt*tttfii'

004244
004246
004250
004252
004254
004256

004270
004274
004276
004300

B(DT12:

104001

000012
104012

004737
105737

001002
104022

031433

MES60

026654

104013
112737

SCOPE

000063
017220
016235

017231

TTYIN

;TEXT

MovB

#63,SOH1

TSTR

RECBFO+1

JSR

BNE

?ggggR

PC,ADRSRC(

B(DT13

'SUPPLY AN EXTERNAL SYNC.'

;WAIT FOR

'CR'

JSELECT MODE 3 WAIT FOR DEVICE FLAG

;ADDRESS THE MODULE

;WAS ANY DATA RETURNED?

JYES, VERIFY FORMAT

;NO DATA RETURNED WITH EXT.

SYNC.

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

MACY11 30A(1052)
R

1034
1035
1036

1037
1038
1039
1040
1041
1042
1043
1044
1045

PAGE 25

SEQ 0046

3283222323223

STEST COMPLETE

223282222222 222

2223222322322 2

ARttt

iRl d)

:ttttti*fifittt*'ttt't*fl*tttiitttfitfi*tittt!t*ttlttttt*Rt*fitittittfi.tttt*tttt

1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023

1033

09:11

M7381 BCD INPUT MODULE ADDRESS TEST

1008
1009
1010

1024
1025
1026
1027
1028
1029
1030
1031
1032

20-JAN-78

104001

B(DT13: SCOPE

104012
024236
000137

000013

MES7
JMP

003456
R

;TEST COMPLETE

BCDTO

RRE AR AR RAE AR

AR AR

AR RN

RN AR

RN RARARA

RN R

AR RN

.SBTT. M7381 B(D INPUT EXERCISER TEST

;THIS TEST REQUESTS THE MODULE ADDRESS AND THEN CONTINUQUSLY

:ADDRESSES THE MODULE USING DATA SWITCHES 'O & 1' TO SELECT THE MODE.
;THE RECEIVED DATA IS THEN PRINTED ON THE

TELETYPE.

:lifittt*ttttfit*fitttttttt'ti*tttfittfltflttktfifittttit*tttttttfiittttttttitttttt

004316
004320
004322
004324
004326
004332
004334
004336
004 344
004350
004354
004362

004370
004374
004376
004404
004406
004410

M7381E:

104012

025474
104026
104035
004737

SETUP
JSR

021626

PRINT
CRLF
M381E2: TSTTKS

104005

004737
105737

001775
032777
001354
104037

000752

2GE1 MODULE ADDRESS

PC.TTYENB

;SETUP THE '“R*' ADDRESS
JENABLE INTERRUPTS

M381E1:

104012

032032
104017
117700
142700
110037
152737

PRINT
MES32
ADDRESS

MovB

175006

000374
017231

000060

017231

017220
016224
020000

174746

aSWR,R0

BI(B
mMOvB
8158

#374 R0
RO, SOH1
#60, SOH1

JSR

P(C,a#ADRSRC

RECVRO

TSTB
BEQ
BIT
BNE

#SW13,aSWR
M381€2

M381E2

PRTRBF

RECEOT
.4

;CHECK FOR KEYBOARD FLAG

;GET MODE FROM SW.'S
;CLR UN-WANTED BITS
;SET UP THE MODE
JENABLE

THE DL11

RECVR.

;ADDRESS THE MODULE

JHAS 'EOT' RETURNED?
sJNO, WAIT IT OUT
JINHIBIT PRINTOUT?
JYES,
;PRINT RECVR.

DATA

1059
1060
1061
1062
1063
1064

1065

1066

1067
1068
1069
1070
1071
1072
1073
1074

PAGE 26

SEQ 0047

023222230022 222

220t R

SRRttt iiddlll)

:'Qtt"iiit*'.tttfi.tttt"fitttt.tttfitittfitittt.tttt'tltttttti'*ttttttfifit*

004412
004414
004416

004420

M7382A: PRINT

104012

MES33
ADDRESS

025526
104026

;GE1

SETUP

104035

THE MODULE ADDRESS

;SET UP TEST PARAMETERS

:tttt!*tfit.tttttttlt!'tt'ttttttt.ttfiti‘ttfittltttittitt'tttit*ttfitttittt.l

JTHIS TEST ADDRESSED 1HE c£7D QOUTPUT MODULE AND TRANSMITS '8' DIGITS
;OF DATA AS '77°'.
THIS SHOULD CAUSE ALL THE OUTPUT LINES TO BE HIGH

:.ttt'ttttt'fittttttittttQ'Qfittttttttfittttti*'tttttiliiittt*tttiifittttttt

0044 ¢cc
004424
006426

004432
004434
004434
004440
004441
004442
004443
004444
004445

1075

1081

004452
004454
004456
004460

000240
000240

004737

0B(DT1: Ngg
N

JSR

017234

104012

104013

;ADDRESS DESTINATION

;TRANSMIT THE FOLLOWING DATA

LDEGMO

104007
004440
000405
077
077
077
077
077
077
077
cz77
004
004452

025557
025612

PC.a#ADRDST

BR
BYTE
BYTE
BYTE
BYTE
.BYTE
.BYTE
BYTE
BYTE

.BYTE
.EVEN

TAG3A:

TAG3A
77
77
77
77
77
77
77
77

EOT

J1ST DIGIT

JLAST DIGIT

PRINT
MES34

JTEXT

TTYIN

JWAIT FOR CHECK

MES35

'EXAMINE OUTPUT

;CHECK FOR ALL LOGIC 1'S

09:11

"SBTTL M7382 BCD OUTPUTM MODULE ADDRESS TEST

004446
004447
004450

1076
1077
1078
1079
1080

20-JAN-78

M7381 BCD INPUT EXERCISER TEST

2223222332323 2332223 2322322823232

1046

1047
1048
1049
1050
1051
1052
1053
1054
1055
105¢
1057
1058

MACY11 30A(1052)

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

CZPMACO PDM70 DIAGNOSYIC TEST
19-JAN-78 14:50
CZPMAC.PT
1082
1083
1084
1085
1086
1087

1088
1089
1090
1091
1092

1093
1094

1095
1096

SN
=
WV
VOO NOWNEB WA =OOVONAWVNEWN—=OV00N

NN —

e md

b
b o

b o
md ek

d md
d mmd

) D
d e

b
d =D

b
d

b ek
b

b
D

b wd
d d

D
D

D d
D D

)

b =D

b -

§O

1097

MACY11 30A(1052)

20-JAN-78

09:11

PAGE 27

M7382 BC(D OUTPUT MODULE ADDRESS TEST
R

2212222222222 22222323 38R0

SEQ 0048
20t

020ttt tll

*THIS SUBTEST SHOULD CAUSE ALTERNATE 'HI € LO 'S' TO BE SEEN ON THE OUTPUT
;tiittttttttt*fitt*tttitittttttltiQtt*itkkt*itt.ttttttttlttit*ttttttttttt

004462
004464
004466
004472
004474
004476
004500
004501
004502
004503

004505
004506
004507
004510

004512
004514
004516
004520

08(DT2:

104001

000002
004737
104007

SCOPE

JSR
LDzGMO

017234

004500
000405
065
065
065
065
065
065
065
065

PC,a#ADRDST

;ADDRESS DESTINATION
s TRANSMIT THE FOLLOWING DATA

BR
BYTE
BYTE
BYTE
.BYTE
.BYTE
BYE
BYTE
BYTE

BYTE
.EVEN

004
004512

TAG38:

104012

025557
026064
104013

TAG3B
65
65
65
65
65
65
65
65
EOT

;1ST DIGIT

JLAST DIGIT

MES34
MES408
TTYIN

JWAIT FOR CHECK

:Qttt*tt!tfitttfitit*tttt"ttttt*tt*l'i!'tttttlfit'ttttittitt'ttttttttttfittit

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

:ittttttt!fitt*tttittt*ttti.ttfitfi*tttttfitkittl*t'ttti*tt*ttttlttttttttittti

004522
004524
004526

004532
004534
004540
004541
004542

004543

004544
004545
004546
004547
004550

004552
004554
004556
004560
004562

OB(DT3:

104001

000003
004737
104007
004540
000405
072
072
072
072
072
072
072
072
004
004552
104012

025557
025631
026064
104013

017234

%COPE
JSR

PC,a#ADRDST

LDQGMO

;ADDRESS DESTINATION
:TRANSMIT THE FOLLOWING DATA

BR
.BYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE
TAG3(:

.BYTE
.EVEN

TAG3(
72
72
72
72
72
72
72
72

EOT

MES34
MES37
MES4LOR
TTYIN

JWAIT FOR CHECK

4
4

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PIN

19-JAN-78 14:50

MACY11 30A(1052)
AR

D d D d b D

136
137

004564

104001

004566
004570

000004
104012

}22

004574

004737

141
142

004572

146

004600

—t b ) wmd d it ek =D d —ad D e ) D nd cod D e b b - d b e nd wd D D
OO O N LTI
VB
W =O
V0NN
WA 2O V00NN
WN =0 Yo

D D ad D

143

004604

AR R R

R AR R

E R AR RAN N AR AR AR R R R AR

SEQ 0049
AR RN AR AN AR AR R AR

RRRNRAN

004602

025643

AR RN AR AR AR AR R AR R AR RRRN A AR AR AR AR AR A AR ANAN AN R R R AR R AR

08(DT4:

017234

TAG3D:

104006

RARNK

SCOPE

4
PRINT

MES38

JSR

PC,a#ADRDST

;TEXT SCOPE FOR OQUTPUT DONE

;ADDRESS DESTINATION

LDCHRO

000004

EOT

000773

TAG3D

sCYCLE UNTIL RESTARTED

b b e

147

PAGE 28

:THIS SUBTEST CONTINUOUSLY ADDRESSES THE MODULE ENABLING THE USER TO SCOPE
;FOR THE SIGNAL °'OUTPUT DONE 'H & L°.

138

139

09:11

M7382 BCD OUTPUT MODULE ADDRESS TEST

1135

140

20-JAN-78

.SBTTL BCD 1/0 TEST

"ttttttfil’QQf*tttttR'*Qtttt't'tttfi*tttitittttl’ttttfiktttktttt*ttiitt*tttttttt

d d o)

;BCD INPUT/OUTPUT EXERCISER TEST
;THIS TEST USES BOTH THE B(CD 'INPUTROUTPUT' MODULES.

e e
b et d e
D el
D
d
D cd
d e emd e e
b e

71
72
73
74
75

AN INCREMENTING

;'BCD' COUNT IS SENT TO THE OUTPUT MODULE AND WRAPPED AROUND VIA A
THE DATA RECEIVED FROM THE INPUT MODULE
;SPECIAL CABLE TO THE INPUT MODULE.
;IS THEN VERIFIED AGAINST THE TRANSMITTED DATA.
THE INPUT MODULE (AN
;BE SETUP TO USE EITHER INTERNAL OR EXTERNAL SYNC.
IF EXTERNAL SYNC IS
JSELECTED, THIS SIGNAL IS SUPPLIED FROM THE SIGNAL ON THE B(D OUTPUT
;MODULE KNOWN AS OUTPUT DATA H.

.'ttttttttlfifitttt!ttltfittt*ttttttfittlfifittttlttt!itttfitfiflififltfi*tttttkitfltttttfi

004606

104012

004610
004612

026143
104026

004616

026116

004622

122737

004614

004620

004630
004632
004640
004642
004650

BCDIO:

104012

104013

001404
112737
000403
112737
104035

MES43
ADDRESS

;TEXT 'BCD [/0 TEST!'
;GET THE MODULE ADDRESS

MES4?2

STEXT "INT OR EXT SYNC.?'

000111

015330

000061

017231

000060

017231

TTYIN

CMPB

BEQ
MOvB
BR
MOvB
SETUP

#1117, INBUF
412
#61,S0K1
.+10
#60, SOH1

JWAIT FOR INPUT

2'1" FOR _INTERNAL?

JYES, SET UP FOR INT. SYNC.
sNO, SET UP FOR ENT. SYNC.
JSET UP TEST PARAMETERS

(ZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P

20-JAN-78
MACY11 30A(1052)
BCD I/0 TEST

L
09:11

PAGE 29

SEQ 0050

O
O O O O 0 O O O 00 00 00 Q0 00 00 00 00 00 00~
N

D
d

D
d
d

b
)

D
d
)

)

d o

D
id

D
d

e
d

D ed
e

d wd
nd o

SRR
AR ARTS
NO N W=
OOV

D
b ed
wd cad
—d —
b
e
ek
b
b
b
-k

INSIAS eV 1oV 1oV 1 N 1oV oV LN [,V
[N Y G
e
T

el wd

SYRRSRRINRAR

b wmd ——d —

D e

d e

)

:tttttt'tittttttlttiitfi'ittttttttt*tt*tfittttt'ttktttt*tt'*ttttttit'ttttt

;THIS SUBTEST OUTPUTS ,\ DATA PATTERN OF '60-77' TO EACH 'BCD' OUTPUT,
THIS PATTERN IS THEN READ BACK BY THE B(D INPUT
JONE AT A TIME.

;MODULE AND COMPARED AGAINST THE OUTPUTTED DATA. THIS TEST WILL VERIFY
; THAT EACH OUTPUT LINE CAN BE ADDRESSED AND THAT NO TWO OUTPUTS ARE
;SHORTED TOGE THER.

:tttttit*ititittttttfittitti*ttfiiit'tt*ttt*ttttitttt**tfifi*titttttt*iitfit

000240
000240
012700

112720
022700
001373
012701

004737

104007

BCDIOT: NOP

004712

017234

004712
000405
060
060
060

004737

017220

012702
012703

004712
016236

104004

122223
001403
104022
030526
000414

022702
001370
105211
122711

001342
112721
022701
001367
104012

024236
000717

TAG4A:

DATA1:

060
060
060
060
060
CO4
004724
104005

NOP
MOV
mMovB
CMP
BNE

004712
000060
004722

#DATA1 R

.~10

JSR

PC ,3#ADRDST

;ADDRESS DESTINATION

TAG4R

;GO0 HERE WHEN DONE

LDPGMO
.+
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

TAG4B:

RECVRO
JSR
DELAY

MOV
MOV
(MPB

BEQ
MODERR

ERR3

000100

B8R

TAG4D:

IN(B

60
60
60
60
60
60
60
60

TAG4E:

BNE

;SET UP DATA POINTER
; TRANSMIT DATA

EOT

PC,a#ADRSR(C

#DATA1T ,R?

HRECBFO+2,R3
(R2)+,(R3)+

.+10

JENABLE THE DL11 RECVR.
;ADDRESS BCD INPUT

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

JYES

JINPUT DATA DOESN'T EQUAL DATA QUTPUT

TAG4E+?2

JEXIT ON ERROR

(R1)
#100, (R1)
TAG4A

;UPDATE DATA PATTERN
;DONE ALL CODES FOR THIS OUTPUT?
;NO, TRANSMIT NEXT PATTERN

#DATAZ2 R

;DONE WITH TEST?

#DATAZ ,R2
TAG4C

#60, (R1)+

000060

004722

sDONE?

MOV

.BYTE
.EVEN

004722

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

#60, (RO) +
#DATAZ RO

;NO

DATA?:

TAG4C:

#DATAT,RO

TAG4D

B8CDIO1

;DONE?
JNO, COMPARE NEXT BYTE

JYES, RESET [T 1O '60°.
JNO,

START NEXT OUTPUT TEST

;TEST COMPLETE
JRESTART TEST

04
czl

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270

1271
1272
1273
1274
1275
1276
1277
1278
1279

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

8CD 1/0 TEST

09:11

PAGE 30

SEQ 0051

R L
L
T

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

;'ttttt'ttfittttitttttttttt'ttttttitttttttt*tttttittttttttttttttttt

005014
005016
005020
005022

104012

M7383A: PRINT

104026
104035

ADTO:

024364

MEST
ADDRESS
SETUP

;TEXT "A/D ADDRESSING TEST.'
;GET MODULE ADDRESS
JSET UP TEST PARAMETERS

2222222323332 22332223328323282238222232222022200a0t
R RRRRRttRRRtRlRld)

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

;ttttttfitttififitttkttttittitttttttttttitttttfitttttitttttttttttktltt

005024
005026
005030
005036

000240
000240
112737

005042
005044
005050
005052
005054
005056
005060
005064

000240
105737
001003
104022
031041
000414

005070
005072
005074
005102
005104
005106

004737

005737
001003

104022
030603
000406
122737
001402
104022
030526

ADT1:

000063
017220

NOP

mMovB
JSR

017231
TAG2A:

016235

NOP

#63,SOH1
PC.a#ADRSRC

;PROGRAM (H.'3’
;ADDRESS MODULE

1ST8
BNE
?OD%$R

RECBFO+1
.+10

;DATA RETURNED?
JYES

B8R
TST
BNE
?gggRR

ADT?
RECEOT
.+10

JEXIT ON ERROR
;WAS 'EOT' RETURNED?
JYES
;JMODULE DIDN'T RETURN 'EOT’

BR
(MPB

ADT?2
#EOT ,RECBFO+10

JEXIT ON ERROR
;CORRECT NO. OF CHAR.'S RETURNED?

NOP

016224

000004

016244

BEQ
ggg%RR

;MODULE DIDN'T ENTER DATA MODE

JYFS
;DIDN'T RECV.

CORRECT NO. OF

(CHAR.'S.

;tlttttttfititttttttt.tt'tttttttfit.tfitti.fifitfittt'tfi'tt'ittfitttttl'tltttt

;THIS SUBTEST ADDRESSES THE A/D MODULE USING MODE '8' AND TESTS
;THAT THE CORRECT NUMBER OF

CHARA(CTER ARE RECEIVED BACK.

;Ittttttittttfittttttt*i'tti'tttifitQtttiifiiit'tt*fitttttttttttttttttttttt

005110
005112
005114
005122

005126
005134
005136
005140

ADT2:

104001

000002
112737
004737

122737
001402
104022

030526

000070
017220

017231

000004

016274

TAGZB:

§COPE

MOVB
JSR

#70,SOH1
PC ,a#ADRSRC

ggge

lEgT,RECBFO*AO

MODERR
ERR3

;PROGRAM MODE '8°
. ADDRESS MODULE
:éEOT'

. 0K

SHOULD BE RETURNED HERE

:MODULE DIDN'T RETURN *4°'

CH.'S OF DATA

czZi
czi

SEQ 0052

CZP
cZpP

005216
005220

005222
005230
005232
005234
005240
005246
005250

005210
000403

005712
001405
113737
104022
031124
105237
122737
001350
000207

ADCHX1:

BEQ
RECVRO
SOURCE
. +4
BR

TAG2G

.BYTE
.BYTE
.BYTE
.BYTE

DC1

TST

(R2)
TAGZF

.BYTE
.BYTE

TAG2G:

005211

031166

MODADR ,ADCHX1
TAGZF

BtQ

SOH

60
DC3
0

MovB
MODERR

ADCHX1,ERR13A

INCB
(MPB
BNE

ADCHX1
#100,ADCHXT
TAG2(

ERR13

005211

000100

005211

:
TAGOF
TAGZH:

RTS

$SET UP 1ST ADDRESS TO BE TESTED
;EQUAL TO SELECTED ADDR.?
JYES, SELECT NEXT. ADDR.

D =
ad e

;USING THE SERIAL INPUT?
JYES, INHIBIT RUNNING THIS TEST.

Aemdedad e

TAGZ(:

SIOSWH
TAGZH
#60 ,ADCHX1

005211
005211

TST
BNE
MOVB
(MPB

JALERT MOLULE

;ADDRESS MODIFIED FROM '60-77"

Aedadmd

021
060
001
060
023
000

000060
032134

PC,a#ADRSIT
ADT4

005210
005211
005212

123737
001416
104005
104025

ADRSITM:

032132

JSR
BR

005737
001033
112737

005154

SCOPE
3

JENABLE MODULE

005154
005160
005162
005170
005176
005200
005202
005204
005206

005213
005214
005215

ADT3:

104001

000003
004737
000437

005142
005144
005146
005152

d rd e

TAND TESTS THAT THE MODULE ISN'T ENABLED.
tttt&ttti*tttttti'ttttt*ttfitttttfittttttttttttkttttkttttttttt*tt"ttt'tt

D ek

800ttt dddls

STHIS SUBTEST ADDRESSES THE 'A/D' USING THE WRONG MODULE ADDRESSES

t*iittfit*t*tttifitifi*fi 1222222233332 22322328223223 3023233233320

W
O~NOWVNE

b —d

NOWVEBWN=O

)
d

b ok
b

D
vd

nd
b

— o

D ek

d md

1302

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

:WAS ANY DATA RETURNED

SNO

;MODULE WAS ENABLE WITH [LLEGAL ADDR.
;UPDATE MODULE ADDRESS

;DONE?
;NO

1280
1281
1282
1283
1284
1285

)

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

1318
1319
1320
1321
1322
1323
1326
1325
1326
1327
1328
1329
1330
1330
1332
1333
1334

1335

1336

1337

WY
=

30A(1052)

M7383 A/D

20-JAN-78

B
09:11

S
PAGE 32

SEQ 0053

INPUT MODULE ADDRESS TEST

X322 %222Z2222323 3222332328223 22232822222082

2223

RtRaRdsRiR

ittt

STHIS SUBTEST CHECKS THAT THE A/D MODULE WILL WORK UNDER EXTERNAL SYNC.
;THE MODULE

IS ADDRESSED AND THEN A REQUEST

;SYNC SIGNAL TO BE SUPPLIED.

sld

IS MADE FOR AN EXTERNAL

:t'tQtt*ttfifitttttttttttt'ttttfifi.fifiitttt.fitttfit.tttit'tfitttttt't'fitttttitit

005252
005254
00<" "6
oL
.6
005270
005272
005274
005302
005310
005312
005320
005324
005326
005330
005332
005334
005336
005340
005342
005346
005352
005354
005356
005362
005366
005370
005372
005374
005376
005400

ADT4:

104001

000004
032777
001450
104012
0264316
104013
012737
112737
104005
112737
004737
005712
001403
104022
031475
000422

002000

BIT
BEQ

174066

005274
000077

026774
017227

000064
017220

017231

TTYIN
MOV

MOVB
RECVRO
MovB
JSR
TST
BEQ
MODERR

104012

026654
012746
012746
000002
000C01
012746
012746
000002

ECOPE

#SW10,3SWR
ADTS5+4

000000
005354

000340
005370

104004
005712
001002
104022

1%:

2%:

#.,RETURN

#77 ,SRCADR
#64,SO0H1
PC,a#ADRSR(
(R2)

.+10

ME S60
MOV
MOV

#0,
”es,

-(SP)
-(SP)

MOV
01V

#340,
nes,

-(SP)
-(SP)

RTI

DELAY

TST
BNE

MODERR

(R2)
.+6

ERRZ20

031433

2222323222323

"RESET MODULE ADDR.

;JWAIT FOR SETUP
JRESET SCOPE LOOP POINTER

;SET UP ADDRESS *'17'
JENABLE THE DL11 RECEIVER
JEXT SYNC; CHANNEL
;ADDRESS MODULE

'O’

;MAKE SURE NO DATA WAS RETURNED

;TEXT

"SUPPLY EXT.

JENABLE INTERRUPTS

SYNC SIGNAL'.

JINHIBIT INTERRUPTS
JWAIT FOR DATA

:Uég A DATA RETURNED
;Y

;NO DATA WAS RETURNED WITH
JEXTERNAL SYNC.

22322323328 2332423222322

“TEST COMPLETE

SET?

;JWITH NO EXT. SYNC SUPPLIED.
JEXIT ON ERROR

ADTS

RTI
WAIT

"10"

INHIBIT THIS TEST

;NO,

JEXT SYNC CONVERSION TOOK PLACE

ERRZ21
BR

;SW.

JTEXT

MES10

FEERES

—

id md md

) md

)

D md

d e

d nd =D

D e

)

PRI AAAARRRRRERRR 7

oo NOWVMESBWN—=O0VONOWNIS
W =o

1338
1339

MACYTT

232220

0302002000000

titRtlRttll

:tttt*ti*t*fi**t**tttt*ttttttfi*fi'kt*itt*t**ittttttttfittttifittt*tttttttttttt

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 D]AGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

CZPMACO PDM70 DIAGNOSTIC TEST

£345

19-JAN-78 14:50

2223222223 2X2223323 22222232223 2222

1393
1394
1395
1397
1398
1399

SEQ 0054

3222222222222

"SBTTL M7383 A/D CALIBRATION ROUTINE

sttt

CTHIS ROUTINE TAKES CONTINUOUS CONVERSION USING DATA SW'S '0-4'IN OCTAL

"WEIGHT TO SELECT THE CHANNEL TO BE CONVERTED AND THEN PRINTS THE CONVERTED VALUE

\JVV&

393 FAFIALAS &&WWWWWW
428

U
S
R
Y
Y JES
S
N
[
—d
—

IWWNINW
NNNNNN N
= OV~ W N =00

CZPMAC.PIN

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

{CHANNEL SELECTION IS AS FOLLOWS:
;DATA SW'S '0~1" SELECT 'INT. SYNC' ON (H.'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

:tttttttttitittttittttfitttti*ttt*ttttttttttfi**ttt*ttifi*itttttttfitttttttttt

005416
005420
005422
005424

005430
005432
005436

005440
005442
005444
005446
005452
005456
005462
005466
005470
005476
005500

005504
005506
005512

M7383C:

104012

024411

104026

004737

104035
012701
104036

ADDRESS
PC ,REMOTE
JSR

021442

SETUP

000001

MoV
NODLAY

142703
152703
110337
104027

017231

020000

004737

021502

104037

004737
000754

CALBTZ2:

173700
000300
000060

032777

001362

#1.R1

CALBT1: PRINT

104012

032032
104017
117703

PRINT
MES12

021524

173654

CRLF

TSTTKS

mMovs
BICB
BISB
mMovs
ADCNVT
BIT
BNE
JSR
PRTRBF

JSR
B8R

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

#SW13,aSWR

;CHECK FOR KEYBOARD FLAG
JGET CHANNEL
s CLR UN-WANTED BITS
s CONVERT TO ASCII
JSET UP TO CONVERT (H.
; CONVERT
;INHIBIT TYPEOUT?

PC,SETRMT

;CHK FOR AND SET UP REMOTE DST.

aSWR,R3

#300,R3
#60,R3

R3,SOH1

CALBT?2

JYES,

TAKE NEXT CONVERSION

;PRINT RECV'D DATA

PC,CLRMOTE

CALBT?2

;CLEAR REMOTE DESTINATION

MACY11

1400
1401
1402
1403

1414

1415

1416
1417
1418
1419
1420
1421

1422
1423

1424
1425
1426
1427

1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443

1444
1445
1446
1447
1448

1449
1450
1451
1452
1453
1454
1455

SEQ 0055

"ttttttfiitfi.*ttfit*t**ti'tittl*t*ttttt'tttttttfit*ttttt*tttttttttiti

.SBTTL M7383 A/D REPEATIBILITY TEST

;THIS TEST REQUESTS FOR A CHANNEL AND A V.S.F

(VERTICAL SCALE FACTOR) TO
A SERIES OF *100°' CONVERSIONS A THEN TAKEN,
;BE INPUTTED FROM THE TELETYPE.
JAVERAGED AND THEN THE RESULT IS DISPLAYED IN A HISTOGRAM FORMAT ON

1404

1405
1406
1407
1408
1409
1410
1411
1412
1413

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

;THE

TELETYPE.

"ti'Qttt'tttttttttfitttfitttfit*tttt*ttfit*tttfitifitttfittttt*fiti*ttittt

005514
005516
005520
005522
005526
005530
005532
005534
005536
005540
005542
005546
005550
005556
005562
005566
005574
005602
005606
005612
005614

005622
005630
005634

005636
005642
005646
005650
005652
005656
005662
005666
005670
005672
005674
005700
005704
005710
005714
005720
005724

005730
005734
005736
005740
005744
005750
005752

M7383R: PRINT
MES15

104012

024574

104026

004737
104035
104036
104012

021442
REPTOA:

024624

104013
104030

005737
001771
013737
005037
005037

013737
012737
004737
005737
001347
013737
013737
006337
104032

012701
012702

104027
104031
012700

012703
012704
012023
005304
001375
013700
062700
010037
162700

010037
013704
013701
022701
001412
104031
013723
063702
005304
001371

022564
022564
016112
016116
032174
000144
016016
016126

032174

016122

032202

032174
032204

000144
017670

032204

REPTO:
REPT1:

016120
032302
000003

016122
000011
032176
000022
032200
032202
032174
000001
016122
032204

REPTZ:

'A/D REPEATIBILITY TEST'.

;GET THE MODULE ADDRESS
;CHECK FOR REMOTE DESTINATION
;SET UP RESTART ADDR. POINTER
JSET TRANS. DELAY INHIBIT Sw.

JREQUEST 'VSF'
:CONVERT INPUT TO BINARY

;JVSF=07
JYES, ILLEGAL ENTRY
;SAVE INPUT

MOV

BCDTAB KSTOR1

MOV
MOV

KSTOR1,LODIVR
#100.,LODIVD

;SET UP TO DIVIDE 'VSF' TO GET NO. OF AVG.'S

REPTOA

;NO, REQUEST NEW 'VSF'

CLR
CLR

016110
016114

JTEXT

ADDRESS
PC ,REMOTE
JSR
SETUP
NODLAY
PRINT
MES16
TTYIN
BCDBIN
TST
BCDTAB
REPTOA
BEQ

JSR
TST
BNE
MOV
MOV
ASL
CHANEL
MOV
MOV

HIDIVR
HIDIVD

PC,DIVIDE
REMAIN

QUOENT ,KSTORS

KSTOR1,KSTORS
KSTORS

#100. ,R1
#TRNBFO,R2

ADCNVT
AVERAGE
#LOW,RO
MOV
H#AVGTAB,R3
MOV
#3,Ré4
MOV
MOV
(RO)+,(R3)+
Ré
DEC
.4
BNE
QUOENT RO
MOV
ADD
MoV
RO,KSTORZ
#18. RO
SUB
RO,KSTOR3
MOV
MOV
KSTOR4 ,R4
MOV
KSTOR1,R1
#1,R]
cMP

REPT3
BEQ
AVERAGE
QUOENT, (R3) +
MOV
ADD
KSTORS,R2
R&
DEC
REPTZ2
BNE

;1S NUMBER LEGAL?

JYES, SAVE IT

JREQUEST

(CHANNEL.

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

JAVERAGE THEM

;SET UP TO SAVE VALUES
;SAVE AVERAGE HERE

;SAVE AVG HIGH & LOW

;SGVED ALL VALUES

;SET UP AVERAGE

;CALCULATE AVERAGE +9 VALUE
JSAVE IT

;CALCULATE AVERAGE -9 VALUE
;SAVE IT
;SETUP TM AVERAGE OUT 'VSF'
;SET UP TO TAKE 'X' AVERAGES
JVSF =1?
:YES,

NO AVERAGING NEEDED

;DO IT
;SAVE VALUE
:SET BUFFER POINTER TO PICK UP NEXT GROUP
:ggNE

[ Yen]

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

1456
1457
1458
1459
1460
1461

1462
1463

1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502

1503
1504
1505

1506

1507

1508

1509
1510
1511

005754
005760
005762
005766
005772
005774
006000
006002
006006
006010
006014
006016
006022
006024
206030
006032

012702

MOV

REPT3:

032202
REPTS:

032300

032200
032226
032200

032230

001353
004737

REPTS:

#TRNBFO,R2
#ORLOW,RO

MOV
MoV

KSTOR4
RO
RO ,R1
(R2) ,KSTORZ
+10

CMP
BLE
INC
BR
CMP
BGE
INC
BR

MoV
SuB
ASL
INC
TST
DEC

BNE
JSR

021502

#AZGTAB+6,R2

1007
MOV

CLR
CMp
BNE

032302

032176

09:11

M7383 A/D REPEATIBILITY TEST

032310

017670
032226

20-JAN-78

MACY11 30A(1052)

(RO)+
402HIGH+2.RO

ORHIGH

REPTS
(R2) ,KSTOR3
+10
ORLOW
REPTS
(R2) ,R3
KSTOR3,R3
R3
MINUS9(R3)
(R2)+
RO
REPT4
PC,SETRMT

5
PAGE

SEQ 0056

;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
;1S VALUE > AVG. +9?

:NO

;YES, VALUE OUT OF RANGE

;1S VALUE < AVG. -9?
JYES
;NO, OUT OF RANGE

;GET VALUE TO WORK ON IT
;OBTAIN OFFSET
;s INCREMENT (NTR

; INCREMENT POINTER
;DONE?

<NO

JCHK FOR AND SET UP REMOTE DST.

:t**t*tt*fittt*t*tt*tttittttttt*t**tttt*ttttttiittktt*tt!t*tt**tttt

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

THE

:ttfittt*tttt*'t**tfikttttti*tttitttttttttt*tttfltttti**ittttt*ttt**t

006066
006072
006074
006076
006100
006102

006106
006110
006112
006114

006116
006120
006122
006126
006130
006132

006134
006136
006140
006142
006144
006150
006152
006154

012702
005003
020122
001407
005203
022702
001372
005301
001365
000422

032230

032300

REPT6A:

REPT7:

021262

REPTS:

104012

031700
005003
022702
001757
020122
001762

MOV
CLR
(MP

BEQ
INC

REPTEB:

104012

031712
010337
001401
104016
005342
005722

REPTG6:

REPTSBA:

REPT7
R3

#0RHIGH,R2
REPT6+6
R1

REPT6
REPTS

PRINT
DASH
MOV

BEQ
SPACE
DEC
TST
PRINT

ASTRIC

032300

HMINUS9
,R2
R3
R1,(R2)+

CLR
(MP
BEQ
CMP
BEQ

R3,SPACEX

-(R2)
(R2)+
R3
#ORHIGH,R2
REPT6R

R1,(R2)+
REPTS

JSET UP COUNT TABLE
;SCAN TABLE FOR CURRENT COUNT
;COUNT FOUND, PRINT [T
;SCANNED WHOLE TABLE?
2NO, CONTINUE
JYES, CHECKED ALL COUNTS?
;NO, RE-SCAN TABLE
;TYPE

FINAL

DATA

JANY SPACES TO BE TYPED?
:NO, PRINT ASTRICK
;YES,

SPACE

JSUBTRACT '1' FROM COUNT

;DONE CURRENT SCAN?

JYES, EXIT

;NO, IS THIS COUNT EQUAL?
:YES,

|IT

[ Te]

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

PONIRAORNIND)
— b
e b b

006156
006160
006162

031753
000115

031757
000110

031765

09:11

.+10

;NO

#'M_R1

SRUNNING WITH MEDIUN GAIN?

#°'L,R1

#X100UV ,REPT10
#'H,R1

.+10

#X10UV,REPTI10

006236

REPT11:

PC,REPT13

ORLOW,RS
ORHIGH,R5
REPT1?

032226

ORLOW,R2

032300

ORHIGH,R?

021524
005636

1543

012703
012701
012102
004737
005303
001001
000207
012737
104016

000765

000003
032302

000002

:NO

;RUNNING WITH HIGH GAIN

JNO

JPRINT

SUMMARY

JWERE ANY COUNTS OUT OF RANGE?
JNO,

RE-CYCLE

TEST

JTEXT °'OR-LOW
JPRINT COUNTS LOW

JPRINT

COUNTS

‘HI'

REPTO

PC,CLRMOTE

;CLEAR REMOTE DESTINATION

REPT13:

#3,R3

;SET UP PRINT LO-H] & AVG. VALUES
;SET UP BUFFER POINTER

#AVGTAB
,R1

(R1)+,R2

PC,POST]T

R3
.+6

021262

;RUNNING WITH LOW GAIN?

RPT12A:

REPT14:

007040

JSAVE GAIN SETTING

JPRINT HORIZONTAL SCALE HEADER

REPTI12:

1540
1541
1542

INC. SPACE CNTR.

JNO,

.+10

006236

SEQ 0057

R3
REPT8A
,R1
RECBFO+Z

REPT10:

1539

PAGE 36

#X1MV ,REPT10

006236

006320
032226
032300

#2,SPACEX

REPT14

JGET VALUE
JCONVERT & PRINT IT

20-JAN-78

M7383 A/D REPEATIBILITY TEST

REPTO:

000114

1537

1553
1554
1555

30A(1052)

INC

015236

1535

1544
1545
1546
1547
1548
1549
1550
1551
1552

MACY11

005203

24 flwWWWNNNNN

WA=
O 000NNV S W20 00NN

i |
N
S
N
S
S
S
S
S
S
—d
—-—

Vi vt ViV

ivnon

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

CZPMACO PDM70 DJAGNOSTIC TEST

CZPMAC.P11

19-JAN-78 14:50

1556

MACY11 30A(1052)

20-JAN-78

09:11

M7383 A/D REPEATIBILITY TEST

PAGE 37

1557

:ttttttttttttttttttttt

1558

.SBTTL M7383 A/D GAIN ACCURACY TEST

SEQ 0058

22222232333 3223 2222222222282

aR2RAREA]

1559
1560
1561
1562

: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

1564

.'ttttttit*ttttttttttttttttttt.tttttttttt*ttttttttttnttttttttttttitt*ttt

1563
1565

;SPECIFIED SETTING.

1566

006356

1568

006362

1567

006360

1569

006364

12;5

006372

1570

006366

104012
024641

MES18

104026

104035

005037

104032

;TEXT 'A/D GAIN TEST®

ADDRESS

032222

SETUP
CLR

CHANEL

:SET UP RESTART ADDR. POINTER

LOPSWH

JREQUEST & STORE CH. TO BE TESTED.

STEST *+1.990v* AT 'LOW' GAIN

}2;2
1575

006374

1577

006400

1576

M7383G: PRINT

104012

006376

024666

MES19

STEXT "SUPPLY +1.990V'

1578

006402

024714

MES20

TEXT

1580

006406

000114

;LOW GAIN

1579

}gg}

006404

006410

104012

104034

007625

1583

1584

006412

1587
1588

006416
006420

12%8

104012

'LOW'

GAIN

MES21

:SWITCH VOLTAGE NEG.

006422

000011

:TRUE VOLTAGE VALUE + OFFSET

104034
000114

WAITGN
'L

:TEST +.1990v AT LOW GAIN
006424

1596
1597

006432
006434

1599

:TRUE VOLTAGE VALUE + OFFSET

024730

1593

1598

7625

AT LOW GAIN

006414

;gg;
1594
1595

WAITGN

STEST =1.990vV AT

1585

1586

104012

006426
006430

025014
024714

006436

004226

104034
000114

MES24
MES20

WA] TGN
'L
4226

;TEXT
STEXT

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

;GAIN MED.

C(ZPMACO PDM70 D]AGNOSTIC TEST
19-JAN-78 14:50
CZPMA( P11
1600
1601
1602
1603

1604
1605
1606
1607

MACY11 30A(1052)

H
09:11

M7383 A/D GAIN ACCURACY TEST
JTEST

006440
006442
006444
006446
006450

20-JAN-78

*=.1990v AT

‘'LOW'

MES21

000114
003410

3410

SEQ 0059

GAIN

104012

024730

5
PAGE 38

JTEXT

'SWITCH VOLTAGE NEG.'

;TEXT

'SUPPLY

?AITGN

104034

;TEXT

'0.0v'

AT LOW GAIN

104012

MES25

025072

+0.000v.'

?AITGN
L

104034

000114
003717

3717

2222322322322

“TEST COMPLETE

232222

222322222222

222222

222

iRl

"i*tttt*tttitl’ttfiittttfitt"tttfitfiit.*tfit.tttttitttttt‘ttttttttfi"tt'tt'tt

104012

MES7

024236
000735
000240

BR
NOP

M7383G+6

JTEST

COMPLETE

;RE-START TEST

"t*tttt*ififiikttttktfit*ttittt*ttttttt*it*tt*

AR ANRARARNARRAAAAA R AN AN AR

.SBTTL M/7383 A/D GAIN AVERAGING SUBROUTINE
;THIS SUBROUTINE WAITS FOR 'CR' THEN TAKES AND AVERAGES
;THIS COMPUTED AVERAGE

JSPECIFIED SETTING.

IS COMPARED AGAINST THE

'100' A/D CONVERSIONS.

TRUE VOLTAGE VALUE FOR A

THE AVERAGE IS PRINTED OUT IF FOUND 7O BE MORE THAN °*+ OR -'

;1 COUNT FROM THE AVERAGE

"tl'tttttttt*ttitttttfifiititit**t*i*ttttttt**i**iitt*tfitt*ttttttitttttttt

017603
062716
017604

000000
000002
000000

012701

000001

104013

104027
120337

001403

016236

104012

WAITG?:

MV
A'

MC
TTYIN
MOV
ADCNVT
CMPB
8EQ
PRINT

MES26

025113
000766
012701

XWATGN:

000144

MOV

SES?§fi§3
#e,
a(SP) R4
#1.R1

;PICK UP GAIN CODE FROM CALL +2
;PICK UP TRUE VOLTAGE VALUE
JWAIT FOR 'CR' TO CONTINUE

R3,RECBFO+2
+10

;1S GAIN CODE CORRECT?
JYES

WAITG]
#100. ,R1

;WAIT FOR SETUP
:SET UP TO TAKE

JNO, TELL HIM ABOUT IT
'100'

CONVERSIONS

(ZPMACO PDM70 D]AGNOSTIC TEST

CZPMAC PN

1643

1644

1645

1646

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658

006540
006544
006546
006550
006554
006556
006560
006562
006564
006566
006572
006574
006576
006604

19-JAN-78 14:50

012702

017670

013702
020402
001441
005204
020402
001436

016122

104027
104031

162704

020402
001432
032777
001355
032777
001351
005737
001004
005237
104012
025134
104012

MACY11 30A(1052)

020000

172546

020000

172536

032222

#TRNBFO,R2
WAITG2: MOV
ADCNVT
AVERAGE
QUOENT ,R2
MoV
cMP
R4 ,R2
BEQ
GANEXT
R4
INC
R4 ,R2
CMP
GANEXT
BEQ
#e R4
SuB
R4 ,R2
(Mp
GANEXT
BEQ
#SW13,3SWR
WAITG3: BIT
WAITG?
BNE
#SW13,3SWR
BIT
WAITG2
BNE
TST
LOPSWH
412
BNE
INC
LOPSWH
PRINT

MES27
PRINT

CRLF
SAVREG

032032

104002

012703
012701
004737
104003

000003
016120
006330

MOV
MOV

JSR
GE TREG
BR

000727
0627°6
000002

000002

09:11

PAGE 39

SEQ 0060

M7383 A/D GAIN AVERAGING SUBROUTINE

000002

032222

20-JAN-78

GANEXT:

ADD

RTI

#3,R3
#LOW,R1
PC.REPT14

WAITG2
#2,(SP)

;SAVE

THEM HERE

;TAKE THE CONVERSIONS
JAVERAGE THEM
JAVERAGE =
JYES, EXIT

TRUE

. AVERAGE

TRUE VALUE

JYES, EXIT

VALUE?

+1?

;AVERAGE = TRUE VALUE =12

JYES, EXIT
;NO, PRINT INKIBIT SW.
JYES

;SW SET?

SET?

JYES, INHIBIT ERROR TYPEQUT.
:NO, HAS ERROR HEADER BEEN TYPED?

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

5
J
PAGE 40
20-JAN-78 09:11
MACY11 30A(1052)
M7383 A/D GAIN AVERAGING SUBROUTINE

1676
1677
1678
1679
1680
1681
1682
1683

:fi*iitttfifit**ttt***ttt*fitittittttkt******tttttttttttttkttvtttttttt*tttttt'

.SBTTL A/D CONVERSION ROUTINE

;THIS ROUTINE TAKES AN A/D CONVERSION AND ENABLES

;DL 0°'S RECVR TO ACCEPT & STORE THE CONVERTED VALUE

;ittt*t*i*tttt*ttttttttitt*tttttfittttfi*tt**tt*t*ttttttttttttttttttt.tttttt

006670

006676
006702
006706
006710
006712

W =200V
NV
WN=O

b
) —d
e
)
D
d
d
d e
cd

NNSNNNNNNNNNNNN
POPONIN)
= md = et b e
2

— e
-2
—

NN
N
[o NV}

)

006716
006722
006724
006730
006734
006736
006742
006746
006754
006756
006762

724

1727

1728

1729
1730
1731

SEQ 0061

006770
006772
006776
007004
007006
007010
007014
007016
007022
007026
007030
007032
007034
007036

104002
012705
012746
012746

XADCNT:

017670
000000
006710

ADCTO:

017220
005737
001775
012703
012704

016224

012437
011437
012737

015330
015332
000004

013715

022564
000053

005000

104030

122713

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

ADCTT:

016237
016240

032130
000010

SAVREG
MOV
MOV
MOV
RTI

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

JSR

PC.34ADRSRC

TST
BEQ

RECEOT
-4

RECVRO

MOV
MOV

ADCT2:

032214

CLR

MOV

#RECBFO+3,R3
HPECBFO+4
R4
RO
+, INBUF
(R4)
(R4)
, INBUF +2
#4 ,CHRCNT

BCDTAR, (R5)
#53,(R3)
+4

ADD

017231

BITB
BEQ
INC
cMP
BEQ

000004
000010
000006
ADCT3:

104003

000002

ADD
ADD
BR

DEC
BGT
GETREG

\R5)
OFFSET,(RS)+
#10,SOH1

ADCT3

RO
#4 R0

;SAVE REG.'S
;SAVE CONVERTED VALUES HERE
INTERRUPTS
JENABLE

JENARLE THE DL11 RECVR
;ADDRESS MODULE

JWAS
:NO,
sSET
;SET

'EOT' RETURNED?
WAIT FOR CONVERT
UP ADDRESS TO PICK UP SIGN
UP ADDRESS TO PICK UP DATA

JSET UP NO.

TO BE CONVERTED

;CONVERT VALUE TO BINARY
JSAVE IT
;VALUE POS.?
JYES., LEAVE AS IS
;NO,
;ADD OFFSET

:CONVERTING ALL '4' (CH.'S?
;NO, EXIT

#10,R3

JSAVED ALL VALUES?
JYES, EXIT
;NO, PICK UP NEXT ADDRESSES

ADCT?2
R1
ADCTO

;TAKE NEXT

ADCT3

#6,R4

CONVERSION

;JNO, EXIT

RTI

;tttttt*tfittttttfitttt*'tt"ttittttttttfitttttttttt'ttfititttttttttti"tt

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

:t**t.*tfittt*tttfi*ttt*ttttit*ttttfitttttfittkttitfittttttttttittttfitttttt

007040
007042
007046
007052
007054
007056
007062
007064
007066
007070

104002
012701
163702
100003
005402
012701
104010
104033
104003
000207

000053
032130
000055

POSTIT:

SAVREG
MOV
SuB
BPL
NEG
MOV
TYPEIT
BINDE(
GETREG
RTS

#53,R1

OFFSET,R2
.+10

R2
#55,R1

JSET UP TO PRINT '+
;SUBTRACT OFFSET TO OBTAIN REAL VALUE.
;VALUE POS.?
JNO, COMPLIMENT [T
;NO, SET UP TO PRINT '-°
;TYPE

VALUE

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
1732
1733
1734
1735
1736
1737
1738

1739
1740
1741
1742
1743

1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763

1783

1784
1785
1786
1787

09:11

A/D CONVERSION ROUTINE
R

2222223222222

PAGE 41

3323282222222

SEQ 0062

2232222232320

2223202820000t

"SBTTL M7384 D/A ADDRESSING TEST

RRRtRRRt

Sl S

;ittttti*titt*tttfitfitttt'tttttfififlttfiittttttitttit*titttttt*tttitttt*tttttt

007072
007074
007076
007100

M7384A: PRINT
MES45

104012
026215
104026

JTEXT *D/A ADDRESSING TEST'
;GE1 THE MODULE ADDRESS
;SETUP TEST PARAMETERS

ADDRESS
SETUP

104035

;ifittttttt*ii*tttt*fi**tttt*ttttttt**t*fi*ttttt*t*ttttfitttttt*****ttttittttt

;THIS SUBTEST ADDRESSES THE D/A MODULE SENDS A CODE OF '70' (MODE 8)

;THIS SHOULD ENABLE THE SIGNAL
;1S SENT TO THE MODULE.

°'PROG L'

TO BE LOW UNTIL THE 2ND (HAR.

:tfi*ti*fi*t**tttifi**t***tt*ttttttttfittttt*tittttttfitit*fittttt*ttttiittt*ttfi

007102
007104
007106
007112
007114
007116
007120
007122
007124
007126
007130
007132
007134

000240
000240
004737
104006

DAT1:

017234

NOP

NOP
JSR

LDCHRO

PC,a#ADRDST

;ADDRESS THE MODULE

'8'

000070

;SEND THE CHAR.

026242
104013

MES46

JTEXT 'SCOPE FOR 'PROG L' HI'

104006

LDCHRO

;SEND 'EOT’

104012
026305
104013

104012

JWAIT FOR

TTYIN

EOT

000004

'CR'

TO CONTINUE

;SCOPE FOR 'PROG L HI & FLOP L LO'

MES47

TTYIN

;tittttttttttt*ittt*ttttttttttttttt**i*tttttti*tttittt**tttt.ttttttttiittt

;THIS SUBTEST 1ST ADDRESSES THE MODULE AND SENDS MODE '9' TO SET

'FLOP' FLOP.
THEN THE MODULE 1S RE-ADDRESSED AND SENDS MODE
;TO CLR THE 'FLOP' FLOP.
;JTHE

1764

1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782

20-JAN-78

MACY11 30A(1052)

'8’

:ttttttt**tttttttttttltttt*tiitttttt**itttttt*ttttttttfittttttitititttttttt

007136
007140
007142
007146
007150
007152
007154
007155

007156
007160
007162

104001
000002
004737

104007

DAT2:

017234

007154
000401
071
004

104012

SCOPE
JSR

PC.,ADRDST

;ADDRESS MODULE

.+4
BR
.BYTE
.BYTE

.t
71
EOT

;SEND CHAR.

LDPGMO

026352

TTYIN

017234

007164
007170
007172
007174
007176
007177

004737

000401
070
004

007200

104012

104007

007176

;SCOPE FOR 'FLOP L' HI'

MES48

104013

JSR

LDPGMO
.t4

.BYTE
.BYTE

'9'

PC.a#ADRDST

;RE-ADDRESS MODULE

44
70
EQT

;SEND CHAR.

'8'

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11T
1788
1789
1790
1791
1792

1793
1794
1795

1796

1797
1798
1799

19-JAN-78 14:50

007202
007204

MACY11 30A(1052)

20-JAN-78

L
09:11

PAGE 42

M7384 D/A ADDRESSING TEST

MES4L9

026401
104013

SEQ 0063

;SCOPE FOR 'FLOP L' LO

TTYIN

:tt'tttttttttttttitttttt*ttttfittttittt**ttitt*tttttttt*t*tttttt.ttttttt*tt

;THIS SUBTEST OUTPUTS 0.00 VOLTS TO CH.

'0°.

;ttfittttfitifi*t*tttittt'*ttttt*tittttttttfi*tt*tttttit*ttttttttttttt*tittfitt

007206
007210
007212
007220
007226
007232
007234
007236
007240

DATST3: %COPE

104001

000003
012737
012737
004737
104012

030061
030060
007746

007776
010000

MOV
MoV
JSR

#30061,DATA3
#30060,DATAL
PC,DAOUT

;CH.

'0" 0 vOLTS

;SEND DATA

MES50
MESS52

026430
026514
104013

TTYIN

:t*tififi*tttt*t*ttti*tt*ttittttltt**ttfitttttittttttt*tttttt*tttttttttttttti

;THIS SUBTEST OUTPUTS 1.11

VOLTS TO CH.

'0°'.

;tit*tt*t*fitttttttitfifititt*tfit*ttk*t*tt*itttt**ttttfittltt*ttttttttttttfitfit

thgfiJfiJfiJggfidgggz

G NN P

00 00 00 00 00 00 00 00 00 OO
o 00 00 00 00 00 00 00
Py Gt it utr G Gt Pu Pt Pl Gt
W
o VOO ~NOWNEB
NN = OV
NO N WN=2O

1809

1831

007242
007244
007246
007254
007262
007266
007270
007272
007274

104001
000004
012737
012737
004737
104012
026430
026522
104013

DATST4:

030461
030461
007746

007776
010000

SCOPE

MOV
MOV

JSR

#30461,DATA3
#30461,DATAL
PC.DAOUT

MES50
MESS53

TTYIN

;*tfittt*tttfittt*tt*t**ti'ttttttltttt*ttiittttttlttti*kttttttittitttttttttt

;THIS SUBTEST OUTPUTS 2.22 VOLTS TO CH.

'0'.

:ttt*tt*tktt*ttttt*ttttfit*tttttfitttltt*tti*ttttttttttt*tttttttttt*itittttt

007276
007300
007302
007310
007316
007322

007324

007326
007330

DATSTS: gCOPE

104001

000005
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.PI
1832
1833
1834
1835
1836
1837
1838
1839
1840

1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855

MACY11 30A(1052)

20-JAN-78

09:11

M7384 D/A ADDRESSING TEST
2222232222222 2322222

PAGE 43

2022832222333 223322320

SEQ 0064
222823232200

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

2800200 RsRttRtt

;tttittttti*ttttt**tt*tt'ttfittttt*ttfitttt*t*tttt*tt*tttttttttitttttttttttt

104001
000006

012737
012737
004737
104012

007364

DATST6:

032061
032064
007746

007776
010000

gCOPE

MOV
MOV
JSR

#32061,DATA3

#32064 ,DATAL

PC.DAOUT

MESS0
MES55

026430
026536
104013

TTYIN

2222222222223 2228223222322

2082222223822

20ct2

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

SRttt

ittt

;tttt*t*tt*ttttttttt*t*ttttttt*ttfitt*t*ttttt*t*tttttt*ttttttitttttittt**fit

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

#34061 ,DATA3
#34070,DATAS

PC,DAOUT

MESS50
MESS56

026544
104013

TTYIN

;tttt*ttttt*tttfitti**t*tt't*tttt*lt**tttittitt*t*ttt*tttttttt*ittttttttt*t

;THIS SUBTEST OUTPUTS 0.00 VOLTS TO CH.

'"1°

;tfit*fitt*t*ktttttt*ttti*tttttt*i*ttttttfifitt*tttt***ttttt*'ttltttttttittt‘t

007422
007424
007426
007434
007442
007446
007450
007452
007454

DATS10: ?COPE

104001

000010
012737
012737
004737
104012
026462
026514
104013

030062
030060
007746

007776
010000

MOV
MoV

JSR

MES51
MESS2

TTYIN

#30062,DATA3
#30060,DATAS
PC.DAOUT

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

19-JAN=78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

M7384 D/A ADDRESSING TEST

1874

PAGE 44

SEQ 0065

;

1875

:tti.*tttit*i'*fi*.ttt*

1876

THIS SUBTEST OUTPUTS 1.11 VOLTS TO CH '1'.

DATS11: SCOPE
11

‘
5

1877

1878

:'ititittiifitfi****tQ*fittttittttl’ktfifittttt*ttt*tttt*ttt*tttttttttttttttktt*

1879
1880

007456
007460

1883
1884

007476
007502

1881
1882

1885
1886

1887

(22223223223 3232223 32232233 2382332323238423320228380888208¢83%8)]

Czf

104001
000011

007462
007470

012737
012737

007504
007506

026462
026522

007510

004737
104012

030462
030461

007746

007776
010000

MOV
MOV

JSR
PRINT

#30462.DATA3
#30461.DATA

.
:

PC,DAOUT

‘
:

:
,

TTYIN

1889

"ttQttttittfil*t'tfiitfifitttttttfit**ttttttfitttfitttttttitl**tttttttttfi*ttttttt

1890

;THIS SUBTEST OUTPUTS 2.22 VOLTS TO CH.

1891

1892

1893

1894
1895
1896
1897
1898
1899
1900
1901
1%2

007514
007516
007524
007532

007536
007540
007542
007544

104001

000012
012737
012737
004737
104012
026462
026530
104013

DATS12:

031062
031062
007746

007776
010000

1906
1907
1908
1909
1910
1911
1912
1913
1914
1915

1921
1922
1923
1924
1925
1926
1927

‘

#31062.DATA3
#31062.DATA
PC,DAOUT

"fitttifi*tttt*tl"t*fitttt'it‘itfittttttttifit'il’ttfifittttfi'fitfifiitttfittt.Qtifi

:THIS SUBTEST OUTPUTS &4.44 VOLTS TO CH.

*1°.

.‘ttQitk'ttfi'.t*.tfittttttttfii*tttttiiittt'tttttittfifittttfitt‘ittfi'tt*ttttktfi

007546
007550
007552
007560
007566
007572
007574
007576
007600

1040017
000013
012737
012737
004737
104012
026462
026536
104013

DATS13:

032062
032064

007746

007776
010000

SCOPE
13
MOV
MOV
JSR
PRINT
MESS1
MESSS
TTYIN

#32062,DATA3
#32064.DATA%
PC.DAOUT

"Qit.ttttfi'l‘fifitfil‘fitfl*tttt"t't.tfi.Qfit'“l’tlQfifi'tt'ttlitti'it'ttttfiitt‘tit

1916

1917
1918
1919
1920

12
MOV
MOV
JSR

;THIS SUBTEST OUTPUTS 8.88 VOLTS TO CH.

'1°.

"'iitififii"lttfifiifil‘tifi'Q.ti"tiififitfifiitttt‘ttfittit*ltttttfltfitittlitifi'fifi'!t
007602
007604

007606
007614
007622
007626
007630
007632
007634

104001
000014

012737
012737
004737
104012
026462
026544
104013

DATS14:

034062
034070
007746

007776
010000

SCOPE
14

MOV
MOV
JSR
PRINT
MES5]
ME S56
TTYIN

‘
‘

SCOPE

PRINT
MESS1T
ME S54
TTYIN

1903

1%4
1905

'1°.

.’t*i*ti**fiit*t*tt**tt*fit*'tt*tk*tfi*t**ttfittitt*t*tttttttitttiitititt'tittl

007512

MESS1
MESS3

104013

#34062.DATA3
#34070.DATA%
PC.DAOUT

CZPMACO PDM70 D]AGNOSTIC TEST
19-JAN=-78 14:50
CZPMAC.PT1

MACY11 30A(1052)

1952
1953

1954,
1955
1956
1957

;.ttttttttii*ttttfittifi

PAGE 45

SEQ 0066

(2222222232232 22232222222 2222 3222222222202 d0RRRsRd

;THIS SUBTEST OUTPUTS 0.00 VOLTS TO CH. '0' & 9.5 VOLTS TO CH. '1' AND

]

;JTHEN THIS SUBTEST RUNS IN A CONTINQUS LOOP UNTIL EITHER
;J'*R* IS TYPED TO RESTART THE TEST OR '“C*' IS TYPED T0
JRETURN TO THE MONITOR.

:Qt*tfitttit*ttt*tttfiit'tttttttlfiitttfittt'ttfiti*tttfi*kttttti"ttfitttttt.ttt

007636
007640
007642
007646
007650
007652
007660
007666
007674
007702

104001
000015
005037
104012
026705
012737
012737

007706
007714
007722
007730
007736
007742
007744

012737
012737
012737
012737
004737
000743
000000

012737

012737
004737

DATS15:
032144

SCOPE
15
CLR

030063
030060
032471
002060
007746

007776
010000
010002
010004

034463
030065
030060
002060
007746

007776
010000
010002
010004

MES6

DAT15A: MOV

MoV
MOV
MOV

JSR

MoV
MOV
MOV
MOV
JSR
BR
HALT

DLYSWH

JENABLE TRANSFMITTER DELAY

#30063,DATA3
#30060,DATAS
#32471 ,DATAS
#2060,DATAG

;MODE

#34463 ,DATAS
#30065,DATAL
#30060,DATAS
#2060,DATAG

;MODE

PC.DAOUT

PC,DAOUT

'3'

CH.

JCH. 1!
;SEND ‘'EOT'

'3'

WITH

CH.

JCH. 1!
;SEND 'EOT'

'O
'LSB'

'O’

WITH

‘LSRR’

DAT15A

REZZIEXZXZ22 2222232232222

23222

'M7384 ADDRESS TEST COMPLETE

2282220222 22dRRE2RRRtRRRRRRRRRRRRRRRRl
s

:tt*t*tt*ttttttttttttitttiitfitQ**tttttitttttfi*tt*ttt**ittttttttttttttitttt

;tttt'tttttttfi*tt**tfitt't*tittttfi*tttfitttktttttt*titfittt*tttttttt*t*itfittt

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

;ttt**tttttfitt*ttttttittttttt*t*tttit*tfitfifittt*tt*t*tfittttttt'ttttttttttti

122737

007746
007754
007756
007764

001403
112737
004737

007770
007772
007774

007776
000207

007776
010000
010002
010004

000000
000000
000000
000000

000063

007776

000004
017234

010002

DAQUT:

104007

CMPR

#6?6DATA3

MovB
JSR

#EOT ,DATAS

BEQ

.44

RTS

DATA3:
DATA4:

DATAS:
DATAG:

;OggPUTTING BOTH CH.'S?

PC ,ADRDST

;ADDRESS

LDPGMO

OO0

1944
1945
1946
1947
1948
1949
1950
1951

B
09:11

M7384 D/A ADDRESSING TEST

1928
1929

1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943

20-JAN-78

:NO,

TERMINATE AFTER

;TRANSMIT

THE MODULE
THE

'3'

(HAR.'S

DATA

;LOW BYTE=MODE, HI BYTE=MSB
JHI BYTE=LSB

;L0 BYTE-'EQT' OR 'MSB' OF CH.

'2'

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PT

19-JAN-78 14:50

MACY11 30A(1052)

°20-JAN-78

09:11

PAGE 46

M7384 D/A ADDRESSING TEST

1976

1977

IEARANNNRARRRNRRERAIRRE

1978
1979

.SBTTL M7384 D/A EXERCISER TEST
;THIS TEST ENABLES ANY VALUE THE USER TYPES IN ON THE TELEPRINTER TO BE

1985

;ARE SELECTED BY DATA SWITCHES

1980
1981
1982
1983
1984

1988
1991

1995

1996
1997
1998
1999

2000
2001
2002
2003
2004
2005
2006

2007

R R R AR

A RN NN AR

R AR AR AR AR RNNNRANA AR

'O & 1°' AND MAY BE SET AND RESET
;AT ANYTIME. SETTING DATA SWITCH 0" WILL SELECTED CHANNEL 'O'. SETTING
:DATA SWITCH '1' WILL SELECT CHANNEL 1 AND SETTING BOTH '0 & 1" WILL
;ENABLE BOTH CHANNELS.

1989

1992
1993
1994

AR R AR AR

: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 'O' (X DAC) AND THE
;SECOND VALUE WILL BE OUTPUTTED ON CHANNEL '1' (Y DAC). THE CHANNELS

1986
1987

1990

A RN

SEQ 0067

010006

104012

M7384E:

104012

TAG4F:

010010
010012
010014

026552
104026
104035

010020
010022
0100246
010032

026576
104013
022737
001371

010016

010034
010040
010044
010046
010050
010052
010056

010060

AR AR AR

012701
012702
112122
112122
112122
122721
001357

000007

032214

015330
007777

111103

2008
2009
2010
58}}

010062
070064
010066
010070

112122
112122
112122
112722

2013
2014
2015
2016
2017
2018
2019

010074
010100
010104
010110
010114
010120
010124

012701
11777
142711
152711
110337
004737
000763

007776
171246
000310
000060
010002
007746

TAG4G:

RN R

NN R AR

AN R

AN AR RN

RN AR AR AR

R RN

A RN AR AR

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

MESS8
TTYIN
CMP
BNE

;REQUEST THE D/A VALUES
JGET 'EM
JWERE '7' CHARACTERS INPUTTED?
JNO, ASK 'EM AGAIN

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

JSET UP TO SAVE THEM

;SAVE °'MSB' OF CH.

MOvB
MOVB
MOVB
MOVB

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

MOV
MOVB
BI(CB
BISB
MOvB
JSR
BR

#DATA3 ,R1
aSWR, (R1)
#310, (R1)
#60, (R1)
R3,DATAS
PC,a#DAOUT
TAG4G

JSET UP SAVE SWITCHES

MOVB

000004

AN R AN

MESS7
ADDRESS
SETUP

MOV
MOV
MOVB
MOVR
MOVB
(MPB
BNE

000054

;SAVE 'LSB’
;DIGIT BETTER BE THE (OMMA
JNO, ILLEGAL INPUT

;SAVE THE °'MSB' OF ZND WORD

;TERMINATE WITH 'EOT’

;CLR UNWANTED BITS
JMAKE NO. BCD
;RESTORE 'MSB' OF CH. 2 EACH TIME
;SEND THE DATA

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

MACY11 30A(1052)

2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066

2067

D
09:11

M7384 D/A EXERCISER TEST

2020
2021
2022

2023
2024
2025
2026
2027

20-JAN-78

PAGE 47

SEQ 0068

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

;THIS TEST EXERCISES THE

'M7385°' MODULE USING THE PDP-11 VIA THE DL11

JAS THE DESTINATION INPUT AND THE SOURCE CUTPUT

:ttt*tttt.tt'tfitfittt*tttittt*tt*tttttifitfitttii.ttttfittttttttittttttfit'tt

010126
010130
010132
010134
010140
010144
010150
010154
010160

104012

M7385A: PRINT

104026
110037
110037

ADDRESS
M385A1: MOvB
mMovB
mMOvB
MOvB
CLR
SETUP

110037
110037
005037
104035

;TEXT

MES3

026127

010637
010643
010723
010727
032222

RO,STADR?7
RO,STADRS8
RO, STADR9
RO,STAD10
LOPSWH

'M7385 MODULE

;GET MODULE ADDRESS

TEST'.

sSET UP TEST PARAMETERS.

:t*tt*****ttttttfi*ttt*tt'tt'tttfii**ttttttt*tt**tttt*t*t*tttttttitttttt

;THIS SUBTEST ADDRESSES THE °'SOURCE’'' PORTION OF THE MODULE USING
;JMODE 'O' AND TESTS FOR THE FORCED RETURN OF THE 'EOT'.

;tttttttttfitt*ttttttitt*it'titit*tttfitttttttfifitttttt**tt*ititttt*ttttt

ST7385: NOP

010162
010164
010166
010174

000240
000240

112737

000060
017220

010200
010204
010206
010210
010212
010216

022712
001402
104022

000004

004737

030603
005737
001106

NOP
movs

017231

#60, SOH1
PC ,ADRSR(C

;SET UP MODE '0O°
;ADDRESS THE MODULE

CMP
BEQ
MODERR

REOT ., (R2)

;WAS T RETURNED?

TST

SIOSWH

JSR

tRRS

032132

BNE

.+6

SD5S

JYES

;"EOT* WASN'T FORCED OUT BY SOURCE
;SERIAL

INPUT

;YES, GO TO TEST °'S.

;t*ttttfifi*fitttttt*titttfltttifitkt**tttttttt*fit*t*ttttttttfltttttttit*ttt

;THIS SUBTEST ADDRESSES THE SOURCE

;'EOT' ISN'T FORCED.

IN MODE

'1'

AND (HECKS THAT

THE

;ttt*titti*ttttttt*ttttttt*it'kttitttttfifikt*ittt*tttttkfitttttfitttititt

010220
010224
010232
010236
010240
010242
010244

104001
112737

004737
005712
001402

104022

030724

000002
000061
017220

017231

SD2:

SCOPE,
2

mMovs
JSR

TST
BEQ
MODERR

ERRS

#61,S0H1

PC,ADRSRC

(R2)

SD3

;JSET UP MODE

'1°

;ADDRESS MODULE

;WAS ANY DATA RETURNED?

sNO-0K
;ILLEGAL DATA TRANSFER VIA SOURCE

2068
2069
2070
2071
2072
2073
2074
2075
2076

MACY11 30A(1052)

20-JAN-78

09:11

6
PAGE 48

M?7385 (SERIAL) & M7388 (CHAR.) I1/0 ADDRESS TEST
:ttttiitti*.**tfittifitQfittittttttitttt*tfi*fifiti*t*tttifi*ktttttttttt*t'ittttt

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

:ttttt*tfi.tttttiifitttt*itiitfitt*tttttttitfi*fititttt**t*ttttt*iitttitttttttt

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

104001

004737
005712
001403

SD3:

000003
017234

104022
030724

012737
104005
104007

017670
005737
001003

010272

020774

104022
030677
012701

012702

022122
001403
104022
030526
000403
022702
001370

;NO,

TAG1D+2

JEXIT ON ERROR

RANDOM
MOV

#..RETURN

;CREATE A RANDOM DATA BUFFER
;RE-SET SCOPE LOOP ADDR.
JENABLE DL 0°'S RECVR

TRNBF
O
TST
BNE
MODERR

ERR11

016234
017670

TAG1D:

.+10

;WAS ANY DATA RECV'D?

;YES, VERIFY IT

;NO DATA WAS RECV'D BACK FROM SOURCE

.+6

MoV
MOV
CMP

#RECBFO,R1
#TRNBFO,R2

JSET UP TO COMPARE RECV'D DATA
JAGAINST TRANSMITTED DATA

BEQ
MODERR

ERR3

020372

RECRFO

'500' WORDS TO SOURCE VIA DEST.

BEQ
MODERR

ERR7

C(MPI1A:

;NO DATA HAS YET BEEN TRANSFERED

JEXIT ON ERROR
;WAS PARITY ERROR DETECTED?
sNO, VERIFY DATA

BR
TST

016220

;TRANSFER

LDPGMO

104022

031041
000421
005737
001402

(R2)
.+10

RECVRO

016234

;ADDRESS DESTINATION
;HAS ANY DATA RETURNED?

PC ,ADRDST

ERR8

000436
104011

SCOPE,3

JSR
TST
BEQ
MODERR

BR
CMP
BNE

TAG1D+2

PARITY

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

TAG1D+2
#TRNEND ,R2

CMPIA

;DATA PARITY ERROR

;DATA MAT(CH?

JYES, CONTINUE

JRECEIVED DATA DOESN'T MAT(H TRANSMITTED DATA
;DONE?

;NO

SEQ 0069

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

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

SEQ 0070

;lfitfittttittfitttttitt.fitttt'ttt.'tttitttfi'fitttfittttttttttttttttttth*tttttt

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

FOLLOWED

;BY DATA TO VERIFY THAT THE '£E0T' CLEARS THE SOURCE & DESTINATION.
OV NN
(NN —

D
b
d
b
)
D
D ed
e
—

N—J_I-J—I_J_.—l—l_l

[LSIANI N1,V T,VT,§ 1,81, 91,81,V

;ttt*.t*iitfittfittt.t*t"iitttttitttt*tttttt*ttitfittfittttttttttt**ttfiitttti

2121

010364
010370
010372
010374

104006
000004

010376
010400

010402
000402

010402
010403
010404

101
102
000

104001

000004

SD4:

010422
010426
010430
010432

022712
001402

016224

TAG1E:

104022

JFOLLOW 'EOT' WITH SOME DATA

TAG1E

.BYTE
.BYTE
BYTE
.EVEN

‘A

000004
:
TAGTF

‘B
0

'EOT'

;SEND A COUPLE OF DATA (CHAR.'S
;TERMINATE
;WAS

'EQT'

RECV'D?

TST
BNE
MODERR

RECEOT

.+10

JYES

TAG1F +?

JEXIT ON ERROR

CMP
BEQ
MODERR
ERR8

#EOT, (R2)

;WAS "EOT® ONLY CHAR. RETURNED?
JYES
;ILLEGAL DATA TRANSFER

ERRS

030603
000405

030724

LDPGMO
. +4

010406

005737
001003

; TRANSMIT

EOT

104007

010406
010412
010414
010416
010420

,4
SCOPE

LDCHRO

S'EOT' WASN'T RETURNED

[en Nan

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

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PI

19-JAN-78 14:50

MACY11

2134
2135
2136

CHNARARNANRRCARNNRANNRY

;THIS SUBTEST ADDRESSES THE DESTINATION MODULE

;'63" AND AN 'EOT’,

2144

2165

2166

2167

2168

2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180

SOURCE MODULE

;THAT WERE ACUTALLY STORED IN THE

2145

2164

THE

N ARANRAANARARAAN
AN AN AR AR

THEN TRANSMiTTS

THEN ADDRESSED

JAND IT SHOULD TRANSMIT THESE CHARACTERS BACK TO THE PDP=-11.
;17 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
CHARATERS
:'64"
JDESTINATION, AND THE SECOND °'64°' CHARACTERS ARE THE CHARACTERS

2139
2140
2161
2142
2143

2163

SEQ 0071

AN RN A AR RANAAAN AN R AR AN

*FIFO CHARACTER STORAGE TEST

2137
2138

2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162

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

'FIFO' OF

THE MODULE UNDER TEST.

:fitttttt'ttttt*tttfifitfittt't'ttfit*tttfiiittttttttttittktttttt*tttttfittttttti

010434
010440
010444
010450
010452
010454
010462
010466

010472
010474

104001

012746
012746
000002
104011

112737
005037

004737

000005
000000
0104652

000004
017770
017234

SDS:

017767

104007

017670

010476
010504
010510
010514

112737
004737
005737

000060
017220
016224

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

012701

017670

001775

122122

017231

105737

017771

105237

017771
000002

022737
001374
000751

016224

HEQT ,TRNBFQ+77
TRNBF0+100
PC,ADRDST

TAGIL:

movs
JSR
TST

#60, SOH1

MOV
CMPB

#TRNBFOQ,R1
(R1)+,(R2)+

BEQ

BR
CMP
BNE
TST
BEQ
TSTR
BNE
INCB
CMP
BNE
B8R

JENABLE INTERRUPTS
;CREATE A RANDOM DATA BUFFER

sTERMINATE BUFFER AFTER '64' BYTES
;TERMINATE BUFFER

;ADDRESS DESTINATION MODULE
s TRANSMIT DATA

TRNBF
O

ERK3

032132

- (SP)
~-(SP)

LDPGMO

MOMERR

017770

#0,
S,

TAG1IH:

CMP1C:
C(MPI1R:

104022

001103

MOV
RTI
RANDOM
MOVB
CLR
JSR

BEQ

001403
030526
000420
020127
001370
005737
001412

1%:

SCOPE.S

MOV

PC,ADRSR(
REEEOT

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

;NO, WAIT FOR

:TO TRANSMITTED DATA
;DATA MATCH?

.+10

JYES

SD6
R1,#TRNBF0+100
CMPI1B
SIOSWH
SD6
TRNBF0+101
SD10
TRNBF0+101
l26RECEOT

JEXIT ON ERROR
;DONE?

CMP1C

'EOT'

JRECV'D DATA NOT EQUAL

TO TRANS.

DATA

JNO

JUSING THE SERIAL 1/0 INPUT?

JNO, CHECK ONLY '64' CHAR.'S

JYES, HAVE WE CHK'D '128' (HAR.'S?
JYES, EXIT
:NO, CHK NEXT *64' CHAR.'S FROM ‘FIFO’
JRECEIVED ALL DATA FROM FI1FQ?
;NO, WAIT FOR
.DO IT.

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

20-JAN-78

MACY11 30A(1052)

09:11

PAGE 51

M7385 (SERIAL) & M7388 (CHAR.) /0 ADDRESS TEST
X2222222232X3F222322
28R2222222022222
2220222282 202 dtiiiliil
il

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

.’ifitttttfittfitfitfitt*tt"ttiifitttttfitttfitt.tttttQ.lQttttttttttt'tttttttttt't

010574
010600
010604
010610
010612
010616
010620

104001
012746
012746
000002
005737
001062
004737

000006
000340
010612

SD6:

032132

1%:

005154

SCOPE
6

MOV
MOV

#3640,
81,

TST
BNE
JSR

SJIOSWH
SD10

RTI

-(SP)
-(SP)

PC,a#ADRSIT

JINHIBIT

INTERRUPTS

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

-'Qtttttttfitifittt*tt*ttfitt't*tttttttfil’ttttti'tttlttfi.tittiittttt

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

"tfitttfittt*fl*ittfitttttti'ttttfittflttttt*t*tttt'*kittttttttttttt

010624
010630
010632
010634
010636
010637
010640
010641
010642
010643
010644
010645

2220
2221

2226

104001
104007

SD7:

000404
021
061
00
061
022
061

STADR7:

STADR8:

023
003

104006
000102

010652
010656
010660
010662
010664

122722

001403
104022

031257
000435
105722

001403
104022
031171
000430

7
SCOPE,
LDPGMO
.+4

010636

010646
010650

010666
010670
010672
010674
010676

000007

TAGIK:

000003

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

;ADDRESS MODULE
TAGIK
gg1

JALERT

SOURCE

;MODE

*1°

DC3

JENABLE MODULE

SOH

gg?
ETX

JALERT DESTINATION

;CLR SOURCE

;SEND A DATA (CHAR.

EgCHRO

CMPB
BEQ
MOCERR

RETX,(R2)+
+10

;WAS
JYES

TAGIW

JEXIT ON ERROR

TSTB

(R2)+
.+10

:WAS ANY OTHER DATA RECV'D:
;NO-0K

TAGIW

JEXIT ON ERROR

ERR16

8EQ

MODERR

ERR14

B8R

'ETX®

RETURNED?

JUETX' WASN'T RETURNED

JETX DIDN'T CLR SOURCE

SEQ 0072

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

2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263

;NOW CLR DESTINATION
010700
010702
010704
010706
010707
010710
010711

LDPGMO

104007

.+4

010706
000402
002

BYTE

.BYTE
.BYTE
.BYTE

101
130

000

TAG1S

STX

‘A
'X
O

;CLR DESTINATION
JSEND SOME DATA
s TERMINATE

;NOW RE-ADDRESS SOURCE & DESTINATION AND EXAMINE DATA
010712
010714
010716
010720

TAG1S:

104005
104007

010722
000404

010722
010723
010724
010725
010726
010727
010730
010731

021

010732
010736
010740
010742
010744

005737
001003

010746
010752
010754
010756

105737
001402
104022
031073

RECVRO

LDPGMO
A

STADR9:

061

001
061
022
061
023
000

STAD10:

016226

TAGIT:

104C22

.BYTE
.BYTE

DC1
61

:ALERT

SOURCE

.BYTE
.BYTE
.BYTE
.BYTE
BYTE

61
DC2
61
DC3
0

JMODE

'1°

TST

RECSTX

.BYTE

BNE

SOH

JALERT DESTINATION

;ENABLE MODULE
:UAg

*STX'

104006

000004

;YE

B8R

TAGIW

JEXIT ON ERROR

TSTR
BEQ
MODERR

RECBFQ+2
.+6

JWAS
JYES

ERR12

TAGIW:

RETURNED?

.+10

2'STX' WASN'T RECV'D FROM DEST.

°*STX'

LDCHRO
EOT

THE ONLY DATA RECV'D

;'STX' DIDN'T CLR DEST.

JSEND AN 'EOT® TO (LR MODULE
010760
010762

SOURCE

TAGIT

ERR1

016236

;RE-ADDRESS

B8R

MODERR

030440
000405

2264

2265
2266
2267

[

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

s CLR MODULE

SEQ 0073

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

SEQ 0074

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

:Qtttttttfiil‘ttttt'tttttt'it'tttititttitittfit!’tkttfittfittttttt'tttttfittttttt

010764
010770
010776
011000
011002
011004
011006

104001

032777
001456

000070
002000

011046
011050
011052
011054
011055
011056

104007

[elelalelels)

=
=2 OO
SO
OO

011102

000077
000077

020774
032134
017227
017277

TAG1Q:

TAGIR:

011054
000402

104022
031041
000405
005737
001402
104022
031223

TYPE TEST COMPLETE

MOVB
MOVB
RECVRO

#77,SRCADR
#77 ,DSTADR

'CR'

TO CONTINUE

JRE-SET SCOPE LOOP ADDRESS POINTER

'17°

#77 ,MODADR

;JSET UP FOR ADDR.

PC,ADRDST

JENABLE DL 0'S RECVR.
;ADDRESS DEST. MODULE

;SEND SOME DATA

LDEGMO
.

101
102

022712
001403

#.,RETURN

JSR

JNO,

JWAIT FOR

MOV

MOVB

;SW10 SET?

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

TTYIN

004737

011070

TAG1P

MES10

017234

004
011060
104C05
112737
004737

#SW10,3SWR

MES14

104013

112737
112737
104005

SCOPE.10

BIT

BEQ

024460
024316

011010
000077

011062

SD10:

012737
112737

011060

17035¢4

104012

011010
011016
011024
011032
011040
011042

000060
017220
04110

01723

TAG1U:

TAG1Z:

BR
.BYTE
.BYTE
.BYTE

TAG1U
‘A
'B
EOT

movB
JSR

#60,SOH1
PC,ADRSRC(

CMP
BEQ

441101, (R2)
.+10

JWAS THE 'A & B' RETURNED?
JYES
;MODULE WASN'T ADDRESS W/ '17'

BR
TST
BEQ
MODERR
ERR15

SD11
RECEOT
.6

JEXIT ON ERROR
JWAS 'EOT' STRAPPED OUT?
JYES
;'EOT® WASN'T STRAPPED 0OUT

.EVEN
RECVRO

?gg%?R

016224

;SEND DATA
; TERMINATE
;CLR & RESET BUFFER

;SET UP FOR MODE

;ADDRESS THE SOURCE

"l’fitttttttfittttttttttttititttltt*itfiifittttfitt*iitittt*i'tlit&ttfittttttliti

;TEST COMPLETE

J\J\\Nr
HORHNOONN

ek =

WWNND

md —d
b

b ond

b —d
—d
b el

r Gy Gour uur G

lplelelolalelele]

"ttttttfi*ttitfiit*lttttititt‘fitttttttt"tttttt*tittitifitttittttttttttttttt\

—_d

2280
2281
2282
2283

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

Joihr Qany

2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279

MACY1

104001
104012

000011

SD11:

024527
104026
104012

024236

113700

000137

TAG1P:

032134
010134

11
,E
SCOP

MES14A
ADDRESS

;TEXT 'REMOVE STAP!
;SET UP NEW MODULE ADDRESS

MES7

MOVB

JMP

MODADR,
RO

M385A1

JTEXT

'TEST COMPLETE'

JRESTART TEST

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

19-JAN~-78 14:50

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

2322
2323
2324
2325
2326
2327

SEQ 0075

.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
;SO AS TO BE INITIALIZED ON POWER UP.
;TIE THE °'TRR' BUSES TOGETHER.

REMOVE THE CONTROL MODULE AND

:ttttfifitttttittttfifittifit'tttttt*t*ttttflltittttttttttttt'tttttttttttttttttt

01115
01115
01115

sTEXT

M73851: PRINT
ME S66
SETUP

104012

027223
104035

*'M7385 SERIAL

INTERFACE TEST

;tttttt*ttfit*tttttttt*ttiifitfii'tttitttiittfifit‘t*tttfi*ttitttttttfitttttttttt

;THIS TEST SIMPLY ADDRESSES THE DESTINATION PORTION OF

THE MODULE WHICH

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

;ttttttittttt*tittttt**fitiittt*ttttit.**ttfiiittttttttttfit*tttt*tttttfittttt

011156
011160
011162
011164
011166
011167
011170
01111

104011
104007

011172

005712
001403

011174

011176
011200
011202
011204
011206
011214
011216
011220
011222
011224
011226
011230
011232
011234
011240

011242
011244
011246
011250

104005

RANDOM

IADR10:

.+
BR
.BYTE
.BYTE
.BYTE
.BYTE
.EVEN

TST1A:

104022
030724
0004 34

104011
012737

TEST1:

011206

104007
017670
005712
001003

020774

TST
BEQ
MODERR
ERR8
BR

;EXIT ON ERROR

RANDOM
MOV
RECVRO

#..RETURN

;CREATE A RANDOM DATA BUFFER
JRE-SET SCOPE LOOP ADDR.
JENABLE DL 0'S RECVR

TST
BNE

(R2)
.+10

JWAS ANY DATA RECV'D?

TEST?

SJEXIT ON ERROR

.+10

;NO, VERIFY DATA
;DATA PARITY ERROR

104022

B8R
TST
BEQ
MODERR

000412
012701

ERR11

ERR7

017670

:HAS ANY DATA RETURNED?

TEST?2

MODERR

030677

(R2)

JNO, OK
;NO DATA HAS YET BEEN TRANSFERED

LDPGMO
TRNBF
0

016220

JALERT THE DESTINATION
JMODIFIED BY USER
JENABLE DESTINATION
s TERMINATE

.+10

104022

031041
000420
005737
001403

;CREATE A RANDOM DATA BUFFER.
;ADDRESS DESTINATION

LDPGMO

MoV

;TRANSFER

PARITY

TEST?
#TRNBFO,R1

'500'

WORDS TO SOURCE VIA DEST.

JYES, VERIFY IT
;NO DATA WAS RECV'D BACK FROM SOURCE
;WAS PARITY ERROR DETECTED?

JAGAINST TRANSMITTED DATA

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

2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386

2387
2388
2389
2390
23N
2392

011254
011256
011260
011262
011264
011266
011272

L 6
PAGE 55
30A(1052)
20-JAN-78 09:11
M7385 SERIAL [/0 INTERFACE TEST
CMPT1A:

022122
001403
106022

030526
000403
022701
001370

(MP

BEQ
MODERR

ERR3

BR
MP
BNE

020372

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

#TRNEND ,R1

CMPT1A

SEQ 0076

;DATA MAT(CH?
JYES, CONTINUE

JRECEIVED DATA DOESN'T MATCH TRANSMITTED DATA
.DONE?

;NO

bbb bbb d

AL A

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

:itttt't*tt*tt*ittt*tttitttt****ttttt*fitttti*t*fittttt**ktt*ttttttttttttttt

011274
011276
011300
011302

TESTZ:

104001

000002

104006

101
102
000

011316
011316
011322
011324
011326
011330

005737
001003
104022
030603
000405

016224

011332
011336
011340
011342

022712

000004

TST2A:

;TRANSMIT

LDPGMO

;FOLLOW 'EOT' WITH SOME DATA

TST2A

.BYTE
.BYTE
.BYTE
.EVEN

;SEND A COUPLE OF DATA CHAR.'S

TST
BNE
MODERR

RECEOT

;A "EOT* RECV'D?

B8R

TST2B+2

:EXIT ON ERROR

cMP
BEQ
MODERR
ERR8

#EOT, (R2)

:WAS

ERRS

TST2B:
B

‘EOT*

LDCHRO
.44

000402

001402
104022
030724

SCOPE
EOT

000004
104007

011312

2393

2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
24606
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418

MACYT1

: TERMINATE

*'EOT' WASN'T RETURNED

"EOT'

ONLY CHAR.

f}EEEGAL DATA TRANSFER

RETURNED?

2322232332323832223232238232882dR
23
2 000 RR00RtRRRRRtRRRRRttRt
R

“TEST COMPLETE

"*l’t*i’itt*titttt*ttttttttiittttt*t*tkitttttttttttti*tfittfittttttt*tittfitttt

011344

011346

011350
011352
011354

104001
000003
104012
024236
000137

TEST3:

§COPE
PRINT

001376

MES7
JMP

MONITR

JTEXT °'TEST COMPLETE
JRETURN TO MONITOR

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMA(C PN

20-JAN-78

M7385 SERIAL

09:11

PAGE 56

SEQ 0077

1/0 INTERFACE TEST

:ittttt**ttt*'ttfi**tfifit'iitti*tktlttfik*itt*tttttttfitttt*ttttfitttt*tttttttt

.SBTTL M7385 TTL 1/0 TCST

:tttfittittfifitt**t*tttt**t'tt*tQtitt*t*tttttt*tfitttittttttttittttttttttittt

M73857: PRINT
MES62

104012

JTEXT

'TTL

1/0 TEST'

;GE1 THE MODULE ADDRESS
;SET UP MODULE ADDRESS

ADDRESS
RO,TTLAD]
movse
RO,TTLAD?
movB
SETUP

£H8

104026
110037
110037
104035

——

027037

011360
011362
011364
011366
011372
011376

-_—

2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444

19-JAN-78 14:50

MACY11 30A(1052)

;tttt*ttttttt*itttt*ttt*tt*tttt*t*titt*tt*ttttt**tttttttitit*ttt*tttitt**t

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

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

ALL CHARACTERS THEN INPUTTED WILL BE RECEIVED BY
;THE SERJAL SOURCE AND WRAPPED AROUND (BY THE CONTROL MODULE OR

;THE TEST IS SELECTED).

;COMPUTER IF DF11 IS USED) TO THE DESTINATION.
:TRANSMITTED BACK TO THE

HERE THE CHARACTER WILL BE
TELEPRINTER AND PRINTED.
EFFECTIVELY, AS FAR AS

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

:tt*tt*t**ttt*fit*itttttttttfittttitt*fittitk***tt*ttttttttfittttt*ttttiiitt*t

011400
011404

011410
011412
011414
011420
011424
011426
011432
011434
011436
011440
011441
011442

012746
012746

000340
011412

012746
012746
000002
005237

000000
011426

000002
104005

011444
011445
011446
011447

104025
011440
000404
021
061
001
061
022
061
023
000

011450
011454
011456
011460
011464
011466
011472
011474
011476
011502
011504

005037
105712
001776
005737
001004
111237
104006
000000
122722
001736
000761

011443

032146

TTLTST:

1%:

2$:

#340,

-(SP)

MOV
MOV
RTI

#0,
H2S,

-(SP)
~-(SP)

RECVRO

INC

SOURCE
.+4
B8R
.BYTE
TTLAD1: .BYTE
.BYTE
.BYTE
.BYTE
TTLAD2: .BYTE
.BYTE
.BYTE
.EVEN
TAG7A:

(LR

1ST8B

BEQ

03¢132

TST

BNE

011474
000004

MOV
MOV
RTI

MOVB

TAG/B:

LDCHRO

0
CMPB
BEQ
BR

#s,

~-(SP)

;INHIBIT 'NTERRUPTS
JENABLE DL11 RECVR.
JENABLE INTERRUPTS

DSTSWH
TAG7A
DC1
61
SOH
61
DCe
61
DC3
0
DSTSWH
(R2)

.~2

;ADDRESS THE MODULE
;ADDRESS MODIFIED BY USER
JMODE 1, WAIT FOR DATA
JALERT DEST.
;ADDRESS MODIFIED BY USER

;DSTA READY?
;N

SIOSWH
TAG7B+2
(R2) ,TAG7B

;USING SERIAL I/0

REOT, (R2)+

;CHAR, = ‘EOT'?

TAGZA

sNO,

TTLIST

;YES,

TEST ONLY FOR EOT

JNO, SET UP TO TRANSMIT CHAR.

JYES, RE-ADDRESS MODULE

WAIT FOR NEXT C(HAR.

(ZPMACO PDM70 DIAGNOSTIC TEST

(ZPMAC.P11

19-JAN-78 14:50

2475

2476

2477

2481
2482
2483

2484

2485
gzg?

PAGE 57

SEQ 0078

KRR RA AR AR R RNRRRNNAA AR AR A A RN ANNANAANRARRARR
RGN

SBTTL M7386 KEYBOARD/DISPLAY MODULE ADDRESS TEST

011506

011510
011512
011514

104012
025726
104026
110037

011524
011526

104035
005037

011520

110037

AR AR AR AR R AR R AR

R R R R R AR AR AN R

ARAAN NN NN AR RN AANAANN RN

M738B6A: FINT

011623
011625
032144

MES39
AuLESS
mMovs
RO,KEYAD1

KEYTO:
RN

249N

IR AR

2489
2490

2495
2496
2497
2498
Sggg

09:11

M7385 TTL 1/0 TEST

2488

2492
2493
2494

20-JAN-78

IRNARRAARRARARRRRRRRRNR

2478

2479
2480

MACY11 30A(1052)

mMove

SETUP
CLR

RO,KEYADZ2

;GET THE MODULE ADDRESS
;SET IT UP
JSET UP TEST PARAMETERS

DLYSWH

JENABLE TRANSMITTER DELAY

AR R AR RRRARR T A AR RNRRRRARAA AR R AR AR AN AANRN AR R

AR AR AR RAAAR

;THIS SUBTEST ADDRESSES THE KEYBOARD MODULE AND CHECKS FOR THE
JAUTOMATIC RETUSN OF AN 'EOT'.

011532
011534

011536
011542
011546
011550
011552

000240
000240

004737
022712
001402
104022
030603

KEYT1:

017220
000004

AR R AR

NOP
NOP

JSR
CMpP
BEQ
MODERR
ERRS

AR R AR AR RN AR AR

PC ,ADRSRC
#EQT, (R2)
KEYT?

sADDRESS THE MODULE
JWAS 'EOT' RETURNED?
JYES
;MODULE DIDN'T RETURN "EOT"'

2502
2503
2504

;THIS SUBTEST ADDRESSES BOTH THE KEYBOARD & THE DISPLAY.
THE DATA
;FROM THE KEYBOARD IS DISPLAYED AND ALSO PRINTED OUT ON TH® TELETYPE.
;THE TELETYPE OUTPUT CAN BE ELIMINATED BY SETTING DATA SWi1s.

2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
25¢9
2530

011554
011556
011560
011562
011566
011572
011574
011600
011604
011606
011610
011614
011616
011620
011622
011623
011624
011625
011626
011627

104001
000002

011630
011634

005037
105712

104036
012746
012746
000002
012746
012746
000002
104005
005237
104025
011622
000403
021
060
022
060
023
000

RN R

KEYT2:

000340
011574
000000
011606

032146

AR AR

R AR AR AR AR R RN AR

R R AN

AR AN AR

#3460,
“ns,

~(SP)
-{SP)

#0,
#2S,

=(SP)
=(SP)

SCOPE
2

NODLAY
MOV
MOV
RT]
1%:
MOV
MOV
RTI
2%:
RECVRO
INC
SOURCE
.+
BR
.BYTE
KEYAD1: .BYTE
BYTE
KEYADZ2: .BYTE
.BYTE
BYTE
.EVEN
TAGO6A:

RN AR AR NN

AR AR

2506

AR AR RN R EAA R AR AR AR AR N AR

2501

2505

AR AR

(LR
TSTB

DSTSWH
TAGGA
D(1
60
DC2
60
D(3
0

DSTSWH
(R2)

AN K NNRRRRANRR AR

R AR A AN KRR RN A A RN

INTERRUPTS

JENABLE DL11 RECEIVER
JADDRESS THE MODULE
JALERT SOURCE
JALERT DESTINATION

;ENABLE MODULE.

;DATA READY?

RN R RN

RRRAAN R R RN AN AR SRR

JINHIBIT TRANSMITTER DELAY
JINHIBIT INTERRUPTS
JENABLE

RN R AR

AT ANR

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

2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542

2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572

2573

2574

2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585

011636
011640
011644
011646
011652
011654
011656
011662
011664
011666
011674
011676
011702
011706
011710
011714
011716
011722
011724
011726
011730
011732

001776
005737
001004
111237

104006

000000
122712
003737
111201

032777
001002
004737
122712
001412
122722

001345
005737
001742

7
PAGE 58
M7386 KEYBOARD/DISPLAY MODULE ADDRESS TEST

MACY11 30A(1052)

BEQ
TST
BNE
mMovBe

032132
011654
TAGEB:

000004

020000

20-JAN-78

167456

015434
000007

TAG6HC:

000002

032132

bDCHRO

CMP8
BEQ
MOVB
BIT
BNE
JSR
CMPB
BEQ
CMPB
BNE
TST

BEQ

104012

09:11

.~2

JNO,

104013

TTYIN
BR

000713
AR AR

WAIT

SIOSWH
TAGEB
+2

:UEING THE CONTROL MODULE?

#EOT, (R2)

JREC.
;YES,

JYES

:NO,SET UP TO SEND CHAR TO DISPLAY

(R2) ,TAG6B

KEYT2+6
(R2) ,R1

'EOT'?
RE-ADDRESS MODULE

;GET DATA
;INHIBIT PRINTOUT?
S YES

#SW15,aSwR
TAG6C
PC,PDMSET
RETX, (R2)

:NO, TYPE IT
JREC. AN 'EXT'?

KEYT3

:YES, RUN DISPLAY TEST

JREC. AN 'STX'?
;NO, RE-ADDRESS MODULE
JYES, USING SERIAL INPUT?

#STX, (R2) +
TAGGA
ST10SWH
TAGGA

JNO,

°*STX'

IS LEGAL

JTEXT 'RE-INITIAL.ZE PDM70.°

MES73A

027473

SEQ 0079

;WAIT FOR SETUP
JRESTART TEST

KEYTZ2+6

R AR A RNAN RN ARR R

R RN RN RN AN RAN

AN AN RN RN RANAR RN RANRR

AN RN RO A RS

;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 CHARA(CTER
JAT A TIME.
EACH CHARACTER IS DISPLAYED ACROSS THE ENTIRE SCREEN
;FOR APPROIMATLY ONE SECOND.

:fit***i*l’*tttt*ttittttfii*tttttttkifittttttttttttt*fit**tttttttt*fitttttitttt

011734
011736
011740
011742
011744
011746
011750
011756
011764
011766
011772
011776
012000
012002
012004
012006
012010
012012

012014
012016
012020
012022
012026
012034

KEYT3:

104001

000003
104012

004737
012702
104006

011750
000040

020774
012004

017234
000040

000212

104006

:
TAGGE

012004
000140

012004

#.,RETURN

MOV
MOV

#40,TAGOD+2

MOV

#32. ,R2

RECVRO
JSR

LDCHRO
212
LDCHRO

40
DEC
BNE

LDCHRO

000004

005237
022737
001353

TTYIN
NODLAY

TAG6D:

000040
005302
001374
104004
104004

;TEXT 'DISPLAY TEST"
JWAIT FOR 'CR'

MES73

027440

104013
104036
012737
012737
104005

SCOPE
3

EOT
DELAY
DELAY
INC
cMp
BNE

PC,ADRDST

JINHIBIT TRANSMITTER DELAY
JRESET SCOPE LOOP POINTER
;START OFF WITH DISPLAYING SPACES.
;ENABLE DL11 RECVR.
;ADDRESS THE DESTINATION

;DISPLAY '32' CHAR./LINE

;SEND °*LF'
R2
TAG6D

TO CLEAR SCREEN

;MODIFIED TO CHAR. BEING DISPLAYED.
;DISPLAYED 32 CHAR.'S?
:Ngé LOAD NEXT (CHAR.
JY

;CLEAR DESTINATION

;DELAY SO USER CAN VIEW SCREEN

TAG6D+2

#140,TAG6D+2
TAGGE

;SETUP NEXT CHAR.

:DéSPLAYED ALL CHAR'S.?
:NO,

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1

2586
2587
2588
2589
2590
25N
2592
2593
2594

595
<296
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615

19-JAN-78 14:50

;tttitt‘tttfit*t*ifitttt

2636
2637
2638

SEQ 0080

1222222322223 3222822222222

iRttt

;TEST COMPLETE
:tfitt*lttt"ttt'tktttfiQt'itittttfitfittttktfififittttttitttfitttttttfit'tttttttfi

012036
012040
012042
012044
012046

KEYTé4:

104001

000004

ECOPE
PRINT

104012

MES7
BR

024236

000626
AR

JTEXT "TEST COMPLETE''

KEYTO

RRR AR RN AR R

AR RN AR AR R

R AR AN AN AN AN RN AR AR ARRRAR AR

;SBTTL M7388 (HARACTER 1/0 MODULE ADDRESS (IN-HOUSE) TEST

;JTHIS TEST USES THE SAME TEST AS THE SERIAL [/0 THE
;TEST HEADER 1S TYPED HERE AND THEN THE PROGRAM GOES TO THE

;SERIAL 1/0 TESTS TO EXERCISE THE MODULE

;JTHIS IS DESIGNATED AS AN IN-HOUSE TEST SINCE A SPECIAL

;WRAP-A-ROUND MODULE IS REQUIRED TO RUN THE TEST.

;ttt****tttt*t*t*titttttttt*tt*tttt*ifitttttttttt*ttttttttt*ttt*tttttttt

012050
012052
012054
012056

M7388A:

104012

026161
027323
000137

010132

MES&44
MES69
JMP

QM7 385A+4

AR AR AR ARRARAEA

.SBTTL M7388F

AN R

JTEXT 'CHAR. /0 ADDRESS TEST'
JTEXT *"(IN-HOUSE)''
ER RN

A AR

R RN

CHARACTER 1/0 MODULE ADDRESS (FIELD)

RNRN

AR ARRRR

TEST

;THIS TEST REQUIRES FOR THE FIELD SERVICE TESTER BE CONNECTED TO THE
;INPUT /OUTPUT OF THE CHARACTER 1/0 MODULE.
THE PROGRAM THEN SENDS
JSPECIFIC 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.

2616
2617
2618

2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635

20-JAN-78 09:'1 PAGE 59
MACY11 30A(1052)
M7386 KEYBOARD/DISPLAY MODULE ADDRESS TEST

:ttt**t**ttttt*ttttfifit*tfi*tfiitttttt*fit*t***ttttt**ttttt*ttttit*tttit*i

012062
012064
012066
012070
012072

M7388F: PRINT

104012

ME S44

026161
027337

;TEXT

MES70
ADDRESS
SETUP

104026
104035

'CHARACTER [/0 ADDRESS TEST'

JTEXT *(FIELD)'.
sGET THE MODULE ADDRESS
;SET UP TEST PARAMETERS

:tfitfi*tttt**ttttttttfitfl't'**tkttt*fittt*tt*ttfit*tttiti*tttttttttttttfitfi

;THIS SUBTEST ADDRESSES THE SOURCE IN MODE

;FORCED

‘EOT'.

'0°' AND CHECKS FOR A

:t**fitti*ttt*tt*tt*t*ttitt*tt*itttfittt**t‘tttttttttttt*tittttttttttttt

000240
000240
112737

004737
022712
001402
104022

030603

CHART1:

000060
017220
000004

017231

NOP

mMovs
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

CZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

09:11

2639

ERERERRRRRNRNRRRANINN

2645

RN RNRR AR AR AR AR R

2641
2642
2643
2644
012124
012126

2654
2655
2656

012150
012152
012154

112737
004737
005712
001403
104022
030724
000405
004737

012162
012164

027520
027350

2657

2658
2659

2660
2661

2662
2663
2664
5222

AN AN

AR AR AN AN

RN R AR RN RN

SEQ 0081
AR RN RN AR AN AN R

;THIS SUBTEST ADDRESSES THE SOURCE IN MODE '1°' AND CHECKS THAT THE
J'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.

2647
2648

2649
2650
2651
2652
2653

PAGE 60

M7388F CHARACTER /0 MODULE ADDRESS (FIELD) TEST

2640

2646

—~

CZPMACO PDM70 DIAGNOSTIC TEST

012130
012136
012142
012144
012146

012160

012166
012170
012172
012174
012200
012204

104001
000002

104012

000061
017220

017231

111201

122722
001370

MOvB
JSR
TST
BEQ
MODERR
ERRS8
BR
JSR

021626

105712
001776

004737

CHARTZ2: SCOPE
2

TAGBA:

MES74
MES71
TSTB
BEQ

MOvVB
JSR
(MPB
BNE

015434

000004

RAR AN RN RN RN AR AR

RN AR ARAR AN AN AN RN RA RN RN

#61,SOH1
PC ,ADRSRC
(R2)
.+10

;SET UP FOR MODE '1'
;ADDRESS THE SOURCE
;WAS ANY DATA RETURNED?
2NO-0K
JILLEGAL DATA TRANSFER

TAG8A
PC.TTYENB

JPRINT THE RECEIVED DATA
JENABLE INTERRUPTS

JTEXT "ECHO TEST"'
;TEXT'' INPUT DATA, TERMINATE TEST W/EOT''

(R2)
.=2

JWAIT FOR DATA

(R2) ,R1

PC,PDMSET

WEOT, (R2)+
TAG8A

JPRINT IT

;JWAS ‘EOT*® RECEIVED?

2667

2670
2671

;THE TEST THEN ADDRESSES THE MODULE IN MODE 'O' AND THEN PRINTS THE RECEIVED
;DATA WHICH WAS STORED IN THE SOURCE 'FIFO°.

2668
2669

JTHIS 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°'.

2672

AR R

2673
2674
2675
2676

012206
012210
012212

104001
000003
104012

2680
2681

012224
012230

004737
000001

2677
2678
2679
2682
2683
2684
2685
2686

RN RRRAA AR AR AR R RAA RN AR AR R RRNAA RN RN AN RAN AR RN RARRRARA RN

012214
012216
012220
012232
012234
012240
012246
012252

027534
027350
005237

000776
005037
112737
004737
104037

AR RER AR AR AR

AR R

CHART3: SCOPE
3
PRINT

MES75
MES71
INC

032150
021626
032150

000060
017220

JSR
WAIT

017231

BR
CLR
MOvVB
JSR
PRTRBF

SENDSW
PC,TTYENB

SENDSW

#60,S0H1
PC.,ADRSRC

AN REARA AR

AR RAN AR RN RN RN IR R IR RRARRRRENRR RN

;TEXT ''STORAGE TEST"'
S;TEXT'' INPUT DATA & TERMINATE W/EOQT''
JSET UP TO RETURN ON TTY INTERRUPT
;ENABLE INTERRUPTS
JWAIT FOR RECVR. INTERRUPTS

;TTY INTERRUPTS RETURN .+2

;SET UP FOR MODE 'O
;ADDRESS THE MODULE
JPRINT CONTENTS OF THE RECVR. BIIFFER

MACY11 30A(1052)

2697

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729

2730
2731
2732
2733
2734

09:11

PAGE 61

M7388F CHARACTER 1/0 MODULE ADDRESS (FIELD) TEST

2687
2688
2689
2690
2691
2692
2693
2694
2695
2696

20-JAN-78

IERRRRRRRARRRRARERANAS

AR RN

NN E RN

SEQ 0082
AR

R AR R AN

RAR

;THIS SUBTEST LOAD '16','4"' CHARACTER DATA PATTERNS (TOTAL OF 64 CHAR.'S)

;INTO THE DESTINATION °'FIFO'.
JTHESE

'64°'

THE USER IS THEN REQUESTED TO STROBE OUT

CHARACTERS AND VERIFY THEM.

;THE '4' CHARACTER PATTERN IS: ALL 1'S, ALL 0'S, ALTERNATE ‘"180'S'", AND

;REVERSED ALTERNATE '"180°'S'’'.

;ttttt*fififi*t*tt*tttfi**it'ttiitttfitt*iflttttttfittttfitt*tfittt*ttfittifi'tit

012254
012256
012260
012264
012270
012274
012300
012304
012310
012312
012314
012320
012326
012332
012334
012336
012340
012342

104001
000004
012701
012702
112722
112722
112722

CHART4: ECOPE

112722

000016
017670
000377
000200
000125
000252

012737
004737

000004
012320
017234

005301
001366
012712

104007

MOV
MOV

TAG88A: MOVB

mMovs
MovB
MovB

DEC
BNE

MOV

020774

MOV
JSR

LDPGMO

#16,R1
#TRNBFO ,R2

#377,(R2)+
#200, (R2)+
#125,(R2)+
#252.(R2)+
R1
TAG88A
#EOT, (R2)
#. RETURN
PC ,ADRDST

TRNBF
0
PRINT

017670
104012
027413
104013

:SET UP THE CHARACTER PATTERN
;SAVE IT IN TRANSMITTER BUFFER
SALL 1°'S
JALL 0°'S
;ALTERNATE '"180'S"’

;REVERSED ALTERNATE '‘180°'S"’

;L8AD '16' PATTERN'S?
;N

;TERMINATE W/EOT
JRESET SCOPE LOOP POINTER
;ADDRESS DESTINATION
;TRANSMIT

THE

'64°'

C(CHARACTERS

;TEXT "EXAMINE '64°' CHARACTERS

MES7?2

;WAIT FOR

TTYIN

‘'CR’

:**t*tt*t*t*tttttQttttfittti*t'*tfi*ttt*t*i*tfi*t*ttfittt*t*tittttttttttfit

;THIS SUBTEST ADDRESSES THE

'SOURCE' USING ALL THE WRONG MODULE

JADDRESSES AND CHECKS THAT THE SOURCE ISN'T ENABLED.

;tttt***tfi*tttttttttittt*'tt'ttfittfi**t'tt*tttt*fitti't*tfittttttittfitttt

012344
012346
012350

CHARTS:

104001

000005
004737

005154

gCOPE
JSR

PC,ADRSIT

4223233833322 823323222322222

“TEST COMPLETE

;DO IT
222222220 RRRRRRRRARRRRRRRRRRRSREE
R

;*tt*tfit*t*ttttttRtttttt*titttt**tttttttt*tt*fit*ttttttttttt'tttt'ttttt

012354
012356
012360
012362
012364

CHART6: gCOPE

104001

000006
104012

024236
000137

012072

MES7
JMP

.SBTTL M7377A

M7388F +10

REMOTE SERIAL

JTEXT

[/0 TEST

"TEST COMPLETE'

CZPMACO PDM70 D]JAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

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

MACY11 30A(1052)
M7377A

2735

2760
2761
2762

2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774

2775

2776

09:11

PAGE 62

REMOTE SERIAL [/0 TEST

SEQ 0083

2736
2737
2738

2739
27460
2761
2762
27463
2764
2745
2746
2747
2748
2769
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

20-JAN-78

2 2322222222322
23 X222 3 AR 2222222222322

‘M7377A REMOTE SERIAL 1/0 TEST

232222222282

822

322

R0 2Rttt lltsd )

;ttitttttt'ttttttttttitti"*ttttt'iiitflit.t*tttttfittfi'ttittt'tttttt*tttt*tt

;ttttittfi*tttttttttttfitt*'t*tttt'ttttttttt**tttttttttfiitt*tttttti'ttttfifi

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

;ttttitttttt*ttttttttttttttt*fittt.fitfittQtttittt*ttttittt'**itttttttttitt

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

M7377A: P?égg

104012

027726

104026
110037
110037
110037
110037
110037
110037
110037
110037
110037
104035

005037

STEXT 'M7377A REMOTE SERIAL [/0 TEST''.

ADDRESS

M73778: MOvB
MOVB

013103
013125
013165
013170
013207
013467
013531
013577
013617

M377A1:

032222

RO,STDR7
RO,STDR8

mMov8
mMovs
MOVB

RO,STDR9
RO,STDR10
RO,STDR11

SETUP
CLR

LOPSWH

mMOov8
MovB
MOovB
mMOvB

;GET MODULE ADDRESS OF MODULE UNDER TEST

RO,STDR12
RO,STDR13
RO,STDR14
RO,STDR15

;t*tfitfiifittfittttttt*tfi*tittttttttfitttt*fi*fit*ttfitttttt*ttttt*tttt't*ttt

:THIS SUBTEST ADDRESSES THE

'SOURCE'' PORTION OF

THE MODULE USING

JMODE '2' AND TESTS FOR THE FORCED RETURN OF THE ‘EOT'.

;ttttittfit!ttttfi**ti***iti!‘tttflfi*tt#*fiififitttittttttttttttttttt'*t*ttt

012450
012454
012462

012466
012470
012474
012476
012500

104001
112737

004737
104004

022712
001402
104022

030603

000001
000062
017220

000004

017231

.1
S17377: SCOPE
MOVB
#62,SOH1
JSR
PC,ADRSRC
DELAY

CMP
BEQ
?gggRR

HEOT, (R2)
SD4A

;SET UP MODE ‘2°
;ADDRESS THE MODULE
JWAS [T RETURNED?
JYES
;'EOT' WASN'T FORCED OUT BY SOURCE

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
2777
2778

2779
2780

19-JAN-78 14:50

012502

1040017

MACY11 30A(1052)

M7377A

002002

SD4A:
N

20-JAN-78

09:11

PAGE 63

REMOTE SERJAL [/0 TEST

SCOPE
., 2

R AR

AR A AN R A AN

AR A AN R AR

AN AN

SEQ 0084

AR N R

2781

;F1FO CHARACTER STORAGE TEST

2790

:THAT WERE ACTUALLY STORED IN THE FIFO OF

2782
2783
2784
2785
2786
2787
2788
2789

R AR

2792
2793
2794
2795

NOTE:

%ggg

;LOC 65:

2796
2797
2798

012506

012746

000000

2808

012522

112737

000004

2809
Sg}?

012512
012516
012520

012746
000002
104011

012530
012534

005037
004737

2812
5312

012540
012542

104007
017670

2815

012544

112737

2816
2817
2818
2819
2820

Sgg;

2823
2824
2825

2826
2827
2828
2829
2830
2831
2832

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

THE

CONTENTS OF

THE MODULE UNDER TESR.

AR AR A AR AR AR R AR AN AR AR AR

R RN

012552
012554
012556
012560
012564

012570

012572
012576
012600
012602
012604
012606
012610

104020
104020
104020
004737
005737

001775

012701
122122
001403
104022
030526
000420
120127

SS5:

012520

017770
017234

000062

017767

017231

1%:

017670

017770

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

MOV

40,

MOVB

H#EOT,TRNBFO+77

MOV
RT!
RANDOM

(LR
JSR

ns,

-(SP)

TRNBF0+100
PC ,ADRDST

;ENABLE INTERRUPTS
. CREATE A RANDOM DATA BUFFER

;TERMINATE BUFFER AFTER '63' BYTES
;TERMINATE BUFFER
;ADDRESS DESTINATION MODULE

TGIH:

LDPGMO
TRNBFO

T1GIL:

MOvB

#62,S0H1

;SET UP FOR MODE

BEQ

PC,ADRSRC
RECEOT
.~4

;ADDRESS SOURCE
JRECEIVED ALL DATA BAC(K?
JNO, WAIT FOR 'EOT'

(017220
016224

THE RECEIVER BUFFER ARE:

;LOCATIONS 1-62 (1-75 BASE 8) ARE XMITTD/R(VD CHARACTERS.
;LOC 63:
XMITTED/RCVD EOT (76 BASE 8)
JLOC 64:
(77 BASE 8)

2804

2805
2806
2807

;THIS SUBTEST ADDRESSES THE DESTINATION MODULE THEN TRANSMITTS
;'63' AND AN 'EOT'.
THE SOURTE MODULE IS THEN ADDRESSED
JAND 1T SHOULD TRANSMIT THESE CHARACTERS BACK TO THE PDP-11.
;1T SHOULE BE NOTED THAT WHEN 14IS TEST IS RUN USING THE
:SERIAL INPUT OPTION, ONE HUNDRED AND TWENTY-EIGHT (128)
:CHARACTERS WILL BE RETURNED TO THe TM 11 RECEIVER.
THE FIRST
:'64"' CHARATERS ARE RECEIVED BACK FROM THE SERIAL INPUT
:DESTINATION, AND THE SECOND '64' CHARACTERS ARE THE CHARACTERS

2791

2801
2802
2803

RN ANA NN RN AR AR R AR

DELAYL
DELAYL
DELAYL
JSR
TST

;TRANSMIT DATA

'2'

JWAIT FOR THE DATA

JNOTE:

HANGS HERE WAITING FOR EOT

CP1C:
(P1B:

MOV
(MPB
BEQ
MODERR
ERR3
BR
CMPB

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

;TO TRANSMITTED DATA
;DATA MAT(CH?
JYES
:RECV'D DATA NOT EQUAL TO TRANS. DATA

S5B
R1,#TRNBFO+100

JEXIT ON ERROR
;DONE?

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

2833
2834
2835
2836

2837
2838
2839
2840
2841
28472

012614
012616
0712622
012624
012630
012632
012636
012644
012646

001370
005737
001412
105737
001007
105237

022737
001374
000751

7
H
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 64
M7377A REMOTE SERIAL 1/0 TEST
BNE

TST

032132

BEQ

017771
017771
000002

1STB

01€22¢4

BNE
INCB
CMP
BNE
BR

(P1B
SIOSwH
S58
TRNBF0+101
S58
TRNBF0+101

lZéRECEOT

CP1C

;NO

JUSING THE SERIAL 1/0 INPUT?
;NO, CHECK ONLY '63' (HAR.'S

:YES, HAVE WE (CHK'D '128' (HAR.'S?
JYES, EXIT
:NO, CHK NEXT '63' CHARACTERS FROM FIFO
;RECEIVED ALL DATA FROM FIFO?

:NO, WAIT FOR ‘EOT'

;DO IT.

SEQ 0085

CIPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1
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

S5B:

TST
BEQ
JMP

SIOSWH
SDSA
TAG1PD

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

SEQ 0086

(ZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.PTY

MACY11 30A(1052)

M7377A

2846
2847
2848
2849

20-JAN-78

J
09:11

7
PAGE 66

REMOTE SERIAL i/0 TEST

;ttfit't'tfittfiittitfittfi

SEQ 0087

1322232322223 3223 8232

222223228822

R0t RaR

)

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

2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872

;A TRANSFER.

;62 (HARACTERS +DEFINED VARIABLE TERMINATOR ARr 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 1T 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' (HARACTERS ARE RECEIVED BACK FROM THE SERIAL INPUT
;DESTINATION, AND THE SECOND '64°' (HARACTERS ARE THE CHARACTERS
;THAT WERE ACTUALLY STORED IN THE

'FIFO'

THE MODULE UNDER TEST.

.'ttttttt!ttttitfitfitttfittttttttt*tttiikifi*ttfiiiitt**t*fittttfitttittttttt*fitt

STHIS 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

[/0 MODULE

FUNCTION:

e
LY

CLEAR ALL MODE FUNCTIONS

NHEN—=O

*MODE :

;

HAS & MODES:

TIME-OUT MODE

VARJABLE TERMINATOR MODE
REMOTE POWER CLEAR

ENABLE ALL FUNCTIONS

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

012662
012664
012666
012670
012674
012702

SDSA:

104012

027767
104013
104001
112737

000003
000062

012746

000000

017231

;?ég{

;TEXT

'SELECT 12 (LF) ON SWITCH Vv (CR)".

TTYIN

;JWAIT

FOR CR.

3
SCOPE,
MOVB
#62.,SOH1
MOV

#0,

=(SP)

;USE MODE 2
JENABLE

[NTERRUPTS

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

2902
2903

2904
2905
2906
2907
2508
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930

2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946

2947
2948

012706
012712
012714
012716
012722

012746
000002
104011
005037
012737

MACY11

K 7
30A{1052)
20-JAN-78 09:11
PAGE 67
M7377A REMOTE SERIAL I[/0 TEST

012714
017766
002012

MOV
1%:

017766

#s,

RTI

RANDOM

CLR
MoV

SEQ 0088

-(SP)

;CREATE A RANDOM DATA BUFFER

TRNBF0+76
;CLR HIGH BYTE .
#2012, TRNBF0+76 ;VARIABLE TERMINATOR=LINEFEED.

JEOT AFTER LF GETS STRAPPED OUT.
;INTO THE LOW BYTE.

012730

005037

017770

012734

004737

(17234

012740
012742

104007
017670

012744
012750
012754

004737
005737
001775

;JNOTE THAT AN EOT WILL BE RETURNED AFTER THE LINEFEED...
TRNBF0+100
CLR
;TERMINATE BUFFER

017220
016224

TAGTHA:

LDPGMO
TRNBF
O

TAGILA:

JSR
TST

s TRANSMIT DATA

JADDRESS SOURCE
JRECEIVED ALL DATA BA(K?

PC ,ADRSRC(
RECEOT

;NO, WAIT FOR

.~4

BEQ
sNOTE:

;ADDRESS DESTINATION MODULE

PC.ADRDST

JSR

‘'EOT'

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
104C22
030526
000420
020127
001370
005737
001412
105737
001010
105237
022737
001374
000751
000240

CMP1CA: MOV
CMP1BA: (MPB
BEQ

017670

MODERR

ERR3

CMP1DA:

017766

JNOTE:

032132

(MP

DON'T

BNE

TST

BEQ
1ST8B
BNE

017771

017771
000002

INCB

016224
SD6A:

CMP
BNE
BR
NOP

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

;TO

.YES

;RECV'D DATA NOT EQUAL TO TRANS. DATA

SD6A

R1,#TRNBFQ+76
TRY TO COMPARE

(MP1BA
SIOSWH

SD6A
TRNBF 0+101
SD68

TRNBF 0+101

#2 ,RECEOT
.~6
CMP1CA

TRANSMITTED DATA

;DATA MAT(CH?

THE

JEXIT ON ERROR
sDONE?
'EOT"....

;NO

JUSING THE SERIAL I1/0 INPUT?
;NO, CHECK ONLY '64°' CHAR.'S
;YES, HAVE WE CHK'D '128' (HAR.'S?
JYES, EXIT
:NO, CHK NEXT *64°' CHAR.'S FROM ‘FIFO’
JRECEIVED ALL DATA FROM FIFO?
;NO, WAIT FOR 'EOT®
;DO IT.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMA( P11

2949
2950
2951
2952
2953
2954
2955
2956
2957

19-JAN=-78 14:50

MACY11 30A(1052)

M7377A

20-JAN-78

7
PAGE 68

09:11

REMOTE SERIAL [/0 TEST

R 2223223222223
223 X232

SEQ 0089

2223022222202

0dRRdRttRRtt

sttt

ITHIS SUBTEST ADDRESSES THE 'SOURCE' USING THE WRONG MODULE ADDRESSES
JAND TESTS THAT THE SOURCE

hdd

ISN'T ENABLED.

;ttttttttifit*itttttt*tti*ttttttttttttttktt*ti*k*ttttttttt*ttttttttttit*ttt

013036
013042
013046
013052
013054
013060
013062

104001

012746
012746
000002
005737
001074
004737

000004
000340
013054

SD6B:

032132

1%:

005154

.4
SCOPE

MOV
MOV
RTI
TST

BNE
JSR

#3460,
s,

~(SP)
-(SP)

SJIOSWH
SD10A

PC,a#ADRSIT

JINHIBIT

INTERRUPTS

JUSING SERIAL INPUT OPTION?
JYES, SKIP THE NEXT TEST.

:ttttttttttttfitt*t**fi*tttttttt*tit*fi*ittttttttfittt*tttt*tt*tfitfi

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

'STX'

:it*ttt*tttittitttt*itfi'tttttttfit*tt*ttt*ttttfi*tttt*ttittttt*t

104001
104005
104007

013066
013072
013074
013076
013100
013102
013103
013104
013105

013102
000402
022
067
023
003

013106

104007

013110
013112
013114
013115

013114

013116
013120
013122
013124
013125
013126
013127

104007

013130
013134
013136
013140
013142

013144
013146
013150
013152
013154

000005

SD7A:

.+4

STDR7:

TGIKA:

TG1LA:

021

067
023

STDR8:

031257
000443
105722

001403
104022

031171
000436

BYTE
.BYTE
.BYTE

LDPGMO
.t

LDPGMO
.+4

BR
BYTE
.BYTE
.BYTE

.BYTE

000

104022

BR
.BYTE

BR
.BYTE
.BYTE

013124
000402

122722

;ADDRESS MODULE

LDPGMO

000401
102
004

001403

SCOPE,S

RECVRO

.EVEN

000003

TAG1KA:

TG1KA

DC2

DC3

ETX

sALERT DESTIN
;SEND THE ETX TO CLEAR THE SOURCE.

;SEND THE 'B'’" AS DATA.

TGILA
EOQT

TAG1KA

;THIS EOT SHCULD CLEAR THE DESTINATION.

DC1

JALERT SOURCE

DC3
0

JENABLE MODULE TO RECEIVE ANY DATA.

JONLY "ETX'' S4OULD BE RETURNED.
:U?g 'ETX" RETURNED?

CMPB
BEQ
MODERR

HETX,(R2)+

SD10A

JEXIT ON ERROR

TSTR
BEQ
MODERR

+
(R2)
.+10

:WAS ANY OTHER DATA RECV'D?

SD10A

JEXIT ON ERROR

ERR16

ERR14

.+10

JPETX' WASN'T RETURNED

. NO-0K

JETX DIDN'T CLR SOURCE

CZPMACO PDM7G DIAGNOSTIC TEST

CZPMAC P11

3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015

19-JAN~-78 14:50

MACY11

PAGE 69
20-JAN-78 09:11
30A(1052)
TEST
M7377A REMOTE SERIAL [/0

SEQ 0090

;REMEMBER TO CLEAR THE 'B' AND 'EOT ' THAT ARE IN THE BUFFER.
013156
013160
013162
013164
013165
013166
013167

013170
013171
013172
013173
013174

013175

TAG1SA: LDPGMO

104007

013164

STDR9:

STDR1D:

BR TAG1SB
DC1
.BYTE
61
.BYTE
.BYTE
DC3
.BYTE
DC2
.BYTE
.BYTE
.BYTE
.BYTE

.BYTE
.BYTE
EVEN

000

61
D(C3
STX
‘A

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

;JNOW RE-ENABLE THE DESTINATION.

' X
O

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

TAG1SB:

104005
104007

000402

021

013212
013216
013220
013222
013224

005737
001003

LDPGMO
44

013206

013206
013207
013210
01321

RECVRO

STDR11:

061

023

C0o0

016226

TAG1TA:

104022

TAG1TA

.BYTE
.BYTc
.BYTE
.BYTE
.EVEN

DCI
61

JALERT SOURCE

TST
BNE

RECSTX

JWAS

MODERR

ERR1

030440
000405

JRE-ADDRESS SOURCE

B8R

DC3
0

.+10

TAG1WA

JYES

'STX'

RETURNED?

J'STX' WASN'T RECV'D FROM DEST.
EXIT ON ERROR

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

013226
013232
013234
013236

013240
013244
013246
013250

105737
001402

016236

TST8
BEQ
MODERR

104022

031073

105737
001402
104022

031073

RECBFO+2
.6

ERR12

016240

JSEND AN 'EOT'

TO CLR MODULE

TAGIWA:

RECBFO+4

TSTB

BEQ

MODERR

ERR12

SD10A

;WAS

JYES

'STX'

THE ONLY DATA RECV'D

;'STX' DIDN'T CLR DEST.

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

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

MACY11 30A(1052)
M7377A

3058
3059

¢0-JAN-78

09:11

PAGE 70

SEQ 0091

REMOTE SERIAL 1/0 TEST

:'ttttttfi**titt*tfi**tii*ttttt*t*tt.ttfi*fittttfitt**ttttttt'tttttfitt*ttt*tttt

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

:fititfi*ttitfitt***tltt*tt'tt*t*tttttttt*tktfifitttt*ttttttttttttittttittttttt

013252
013256
013264
013266
013270
013272

013274
013302
013310
013316
013324
013326

104001

032777

001166
104012
024316
104013

013274
000077
000077
000077

004737

017234

112737
112737
104005

104007
013340
000402

013344

104005

013376

013400
013402
013404
013406
013414
013422

166066

SD10A:

SCOPE
.6
A#SW10,aSWR
BIT
TAG1PC
BNE
PRINT
MES10
TTYIN

012737
112737

013332
013334
013336
013340
013341
013342

013346
013352
013354
013360
013362
013364
013366
013370
013374

000006
002000

020774
032134
017227
017277

TAG1QA:

MOV
MovB
movB
mMovse

RECVRO
JSR

041101

-EVEN

TAGIUA:

RECVRO

TAG12A:

JSR
DELAY
CMP
BEQ
MODERR

017220

ERR11

BR
TST
BNE

016224

104022

‘B
EOT

PC.,ADRSRC

#41101, (R2)

013103
013103
013103

032134
017227
017277

TEST COMPLETE

;TEXT 'RE-SET MODULE ADDRESS TO '17°.
JWAIT FOR 'CR' TO CONTINUE
JRE-SET SCOPE LOOP ADDRESS POINTER
;SET UP FOR ADDR. '17'
JENABLE DL 0'S RECVR.
;ADDRESS DEST. MODULE

SD11A: PRINT
MES88
MOvB
MOVB
MOVB

;SEND DATA
;s TERMINATE

JFOR THE

;U?S THE

'A & B'

JYES

SD11A

JEXIT ON ERROR

.+6

JNO.

RECEOT

TEST.

;ADDRESS THE SOURCE

.+10

RETURNED?

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

'EOT'

STRAPPED 0UT?

;'EOT" WAS STRAPPED OUT

ERR1S

104012

TYPE

;CLR & RESET BUFFER

MODERR

031223

;YES,

;SEND SOME DATA
‘A

104022

030362
113737
113737
113737

PC,ADRDST

TAG1UA

004
013344

031041
000405
005737
001002

#77 ,MODADR
#77 ,SRCADR
#77 ,DSTADR

TAG1RA:

101
102

004737
104004
022712
001403

#. ,RETURN

;SW10 SET?

;TEXT 'RESET MODULE ADDRESS<CR>'
STDR7 ,MODADR
STDR7,SRCADR
STDR7 ,DSTADR

JRE-STUFF

THE ORIGINAL ADDRESSES.

.'tlttttt!fitttfittttt**.fitttttttttt'fitifittt'tfittttttttititttttttttttttttttfitt

;

THIS SUBTEST CHECKS MODE 1 FOR TIMEOUT

"tltti'ttt*ttitttikttttti'tttttttfittttti*ttttttttttfi*ittttttt'tltttittttiit

013430
013434

104001
104035

013436

104012

000007

SCOPE,7
SETUP

;TEXT SET CLOCK 3

ON CLOCK MODULE TG 100 MILLISEC

(ZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

3114
3115
3116
3117
3118
3119
3120
AN
3122
3123
3124
3125
3126
3127
3128
3129
3130
3NN
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166

3167
3168
3169

19-JAN-78 14:50

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

MACY11 30A(1052)
M7377A

030152
030236

104013
112737
004737
104007
013466
000403
022
061
023
130
101
004

000061
017220

20-JAN-78

REMOTE SERIAL

09:11

PAGE

/0 TEST

SEQ 0092

ME S84
MES85

JTEXT SET SWITCH 1

MOVB #61,SOH1
JSR P(,ADRSRC

;SET UP MODE 1

TTYIN

01723

LDPGMO
. *4

BR
.BYTE
STDR12: .BYTE
.BYTE
.BYTE

.BYTE
.BYTE

P TO ON.

;NOW CHECK THE TIME-OUT CLEAR.

TG1PA
DC2
61
DC3
X
'A
EOT

;ADDRESS SOURCE USING MODE 3

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

112737

004737
012737
104005

013516

004737

013522
013524
013526
013530
013531
013532
013533
013534
013536

104007
013530
000402
021
061
023
000
105722

013540
013542
013544

001403
104022
031633

000240

017220
177763

017227

MOVB

JWAIT

FOR APPROXIMATELY 15 SECONDS...

032160

014472

JSR
MOV
RECVRO

JSR
LDPGMO
.+

PC ,ADRSRC
#-15,COUNT

TG1PB
DC1
61
DC3
O

TST8B

(R2)+

TSIB

BEQ

MODERR

sADDRESS

THE

SOURCE MODULE.

PC.CNTLOP

B8R
BYTE
STDR13: .BYTE
.BYTE
BYTE
TG1PB:

105722

#240,SRCADR

;SET SPACE=ADDRESS TO BE ADDRESSED.

TGIPA:

(R2)
+

;SKIP OVER THE EOT.

TG1PC

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

ERR24

;LOOK AT THE BYTE.

;NOW CHECK THE REMOTE CLEAR FUNCTION.
013546
013550
013556
013564

000064

013103
017220

017231

017227

TGIPC:

RECVRO

MOVB

mMOvB
JSR

#64
, SOH1

STDR7,SRCADR
PC,ADRSRC(

;DON'T DELAY THIS TIME.

;LEAVE IN MODE 4.

;ADDRESS THE SOURCE

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

3170

3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184

3185

3186

3187
3188
3189

3190
31N

3192
3193

3194
3195
3196
3197
3198
3199

3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213
3214
3215
3216

013570

104007

013572
013574
013576
013577
013600
013601
013602

013576
000405
022
061
023
130
101
005

013604

013606

000
013606
104020

013610
0135612
013614
013616
013617
013620

104007
013616
000402
021
061
023

013621

000

013622

005722

013624
013626

005722
005722

013630
013632
013634

001402
104022
031557

013636

104001

013603

MACY11 30A(1052)

M7377A

20-JAN-78

09:11

.t
BR
.BYTE
STDR14:.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

LDPGMO
.+4
BR

.BYTE
.BYTE

.BYTE

TGIPF:

.EVEN
TST

TG1PF
DC1
61

DC3
0

;SEND SOME DATA.
;SEND ENQ TO DESTINATION.
JENQ SHOULD CLEAR OUT THE DESTINATION.

;ALERT THE SOURCE.

;2ND EOT RETURNED HERE
;TWO EOT'S ARE EXPECTED BACK.

TST
TST

(RC)(122 +

;SKIP OVER THE EOT'S.
JAND LOOK TO SEE IF ANY DATA WAS RETURNED.

BEQ

TG1PG

JREMOTE CLEARED WORKED ?

ERR23

TG1PG:

JALERT DESTINATION.

(R2)+

MODERR

000010

SEQ 0093

JRETURNS FIRST EOT
TG1PE
DC2
61
DC(C3
'X
‘A
ENQ

.EVEN
DELAYL

STDR15:

PAGE 72

REMOTE SERIAL 1/0 TEST
LDPGMO

TGIPE:

SCOPE,8.

;IF DATA CAME BACK, THEN REMOTE CLEAR
;DIDN'T WORK.

;NO, IT DIDN'T
JREMOTE CLEAR LEFT GARBAGE [N FIFO.
;YES, REMOTE CLEAR WORKED.

232282323238 22233228823332222322322222222222222222¢82222¢82823RRR222022R80CRRRRR
AR

“TEST COMPLETE

;Itttttt*fi*ittttt*t**tttit**ttttttfitt****fittt*ttt'ttttttttttttttt*tttttttt

013642
013644
613650
013652
013654

104026
113700
104012
024236
000137

032134

012376

TAGT1PL:
TAG1PD:

ADDRESS
MODADR,
RO
MOVB
PRINT

MES7

;SET UP NEW MODULE ADDRESS

JRESET THE ADDRESS.

JTEXT 'TEST COMPLETE®

M73778
RESTART TEST
.SBTTL M7378A FOUNDATION MODULE TEST
JMP

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

MACY11 30A(1052)

09:11

PAGE 73

SEQ 0094

M7378A FOUNDATION MODULE TEST

3217
3218
3219
3220

3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246

20-JAN-78

BREZZXT2 2222222332322 2232 2222223222222

'M7378 FOUNDATION MODULE TEST

2222230

RAR

20t

iRttt

iRt

lll

;ittttttfiii*'ifittt*ikttt"t't*fiittttifittk*t**tttit*tttttttttttttttttfitttt

;THIS TEST SETS THE SERIAL

[/0 UP AS A SOURCE AND THE FOUNDATION

; MODULE AS THE DESTINATION . A RANDOM(PSE'JDO) 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.

;

FROM FOUNDATION MODULE

; OF THE °'WRAP-AROUND' CABLE, THE DATA IS RETURNED
TO SERIAL

BECAUSE

1/0.

;IF THE SERIAL 1/0 IS BEING USED, A TOTAL GF
JRATHER THAN 64 CHARACTERS WILL BE RETURNED.

128 CHARACTERS

;THE TEST THEN CHECKS TO MAKE SURE THAT ADDRESS 17
; WILL ALSO RETURN THE DATA.
013660

FLAB7:

000000

.WORD 0

sTHIS LOC IS USED TO RESTORE
;THE CONTENTS OF ADDRESS

;WHEN LOOPING.

FOUNSW:
117378A:

013662
013664
013666

000000
104012

013670
013674
013676

005037

013700
013704

110037
113790

013660
013660

013710
013714
013722
013730
013736

004737
113737

014660
017202
017202
017202
017202

027572

104035
104026

113737
113737
113737

FLO:
FLOP:

013662

FLOPB:

.WORD
PRINT

MES77

;TEXT "FOUNDATION

;MODULE TEST''.

CLR
FOUNSW
SETUP
ADDRESS

MOovB

MOVB

;CLEAR OUT OUR SUBTEST SWITCH.
;GET THE MODULE ADDRESS.

;PUT ADDRESS INTO RO.

RO,FLAB?7

;SAVE THE ADDRESS IN FLAB/.

FLAB7.RO

;MODIFY THE FOUNDATION ADDRESS

;IN THE PDM-70 PROGRAMS.

JSR PC,FSTUF

MovB
MOVB
MOVB

014046
014032
014051
014036

movB

IADRS9, IADR11
IADRS9, IADR1?2
IADRS9, IADR14

;SET UP SER 1/0 ADDR.

1ADRS9,1ADR13

:tttt**t*tfit*ttt*ttt.ttt**tttfitt*ittittttt*fittitttttittttt*ittttitttttttt

;THIS SUBTEST XMITS A RANDOM BUFFER TO THE FOUNDATION MODULE.

:lttttttt*fi'tttttttttttitt*t**ttt*fiifittfi*itfitttttttttitttttttt*tttttttt't

*NOTE THAT FOUNSW=0 HERE.
013744
013750
013756
013762

000001
013660
000000

013770

014042

,1
SCOPE
MovB
FLAB7,FLABI

MOV
MOV

40,
“e,

-(SP)
~(SP)

;MODIFY THE FOUNDATION ADDRESS

JENABLE

INTERRUPTS

IN PROG.

3273

3274

3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285

3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300

3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
331
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326
3327
3328

013766
013770
013772
014000
014004
014006
014014
014020
014022
014024
014026
014030
014031
014032
014033
014034
014035
014036
014037
014040
014041
014042
014043
014044
014045

8
E
PAGE 74
20-JAN-78 09:11
MACY11 30A(1052)
TEST
MODULE
M7378A FOUNDATION

000002

104011
112737

005037
104005

112737

005737
001417

000004
017770

017767

000060
032132

017231

1%:

RTI

RANDOM
MOVB
CLR

RECVRO

JEND OF BUFFER.
;MODE X

FPROG:

BR
.RYTE

FDATA
STX

JXMIT

IADR12:

.BYTE

IADR13:

075
075
023
021
075
001
060
022

;TERMINATE AFTER 64 BYTES.

TST
BEQ

FOUNDL:

MovB
LDPGMO
.44

001
061
022

;GENERATE RANDOM BUFFER

#60,SOH1
SIOSWH
FNORM

104007

014030
000421
002
021
075

#EOT,TRNBFO+77
TRNBF 0+100

SEQ 0095

FLAB2:

FLAB1:

.BYTE
.BYTE
.BYTE

.BYTE

DC1
75

SOH

THE DATA NEXT.

;SERIAL 1/0 SRC.

61
DC2
75
75

.BYTE
.BYTE
.BYTE

DC3
DC1

.BYTE
.BYTE

60
DC2

.BYTE
.BYTE

;USING THE SERIAL 1/0?
;NO, SO BRANCH TO NORMAL LOAD.
;ELSE USE PADDED PROGRAM.

75
SOH

;FOUNDATION MODULE

JADDRESS FOUNDATION AS SRC.

;ADDRESS THE SERIAL 170 AS DESTINATION.
014046
014047
014050
014051
014052
014053
014054
014055
014056

014060
014062
014064
014066
014067
014070
014071

075
023

IADR11:

021
075
001
061
023
003
000
014060

104007
014066
000402
022
075

023
000

014072
014074
014076
014102

104007
017670
005737
001005

014104
014106
014110
014112

014112
000402
021

104007

032132

.BYTE
.BYTE
.BYTE
1ADR14: .BYTE
BYTE
.BYTE
.BYTE
.BYTE
BYTE
.EVEN
FNORM:
LDPGMO
L+4
BR
FLAB3A: .BYTE
FLAB3:
.BYTE
.BYTE
BYTE
.EVEN
FDATA:
LDPGMO
TRNBF
O
TST
BNE

DC3
DC1
75

SOH

61
DC3
ETX

FDATA

DC2

DC3

SIOSWH

;FOUNDATION MODULE.
;AS DESTINATION

JXMIT THE DATA,

FTST

;BRANCH [F USING SER [/0.

FTST

;FOUNDATION AS SOURCE.

LDPGMO

. +4
BR
FLABSA: .BYTE

DC1

C2PMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMA(C L1

CZPMAC.P11

19-JAN=-78 14:50

MACY11 30A(1052)
20-JAN-78 09:11
PAGE 75
M7378A FOUNDATION MODULE TEST

071
023
000

FLABS:

BYTE
.BYTE
BYTE

.EVEN

SEQ 0096

71
D(3
O

;DELAY AND CHECK TO MAKE SURE THAT AN EOT HAS BEEN RETURNED.
014116
014120

014122
014126
014130
014132

104020
104004

005737
001002

FTST:

DELAYL

DELAY
TST

016224

BNE
MODERR

104022

RECEQT

FND1C

ERR

030603

JGIVE

IT TIME

TO RETURN.

;LOOK FOR AN EOT.

JYES, EOT WAS RETURNED.
;"EOT' NOT RETURNED.

JNOW 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

MOV
#TRNBFO,R1
CMPB
(R1)+,(R2)+
8BEQ FND1D
MODERR

JXMITTED DATA.
;DATA MAT(CH?
JYES.
JELSE ERROR

.NON-FATAL ERROR.

ERR3

030526
000420

FOUND?2

JXMITTED DATA NOT = RECVD DATA,

.NOW CHECK TO SEE IF WE SHOULD LOOK FOR 64 CHARACTERS OR 128
JCHARACTERS. ]F WE ARE USING THE SERIAL 1/0 WE WILL
JHAVE 128 CHARACTERS RETURNED (INCLUDIND TWO 'EOTS').

;NOTE THAT THE LOW BYTE OF TRNSF0+100
;SERVES AS A BUFFER TERMINATOR AND THAT THE
JHIGH BYTE SERVES AS A SWITCH. IF THE HIGH BYTE IS SET, THEN
;WE HAVE CHECKED ALL 128 CHARACTERS.

014152
014156
014160
0146164
014166
014172
014174
014200
014206
014210

020127
001370
005737
001412
105737

001007
105237
022737
001374
000751

017770

FND1D:

032132

R1,#TRNBFO+100
FND1B

;DONE?
sNOT DONE YET.

BEQ

FOUND2

;NO, CK ONLY 64 CHARS

BNE
INCB
CMP

F OUND2
TRNBF0+101
#2 RECEOT
.=6
FND1C

TST

017771
017771
000002

CMP
BNE
TSTB

016224

SIOSWH

TRNBF 0+101

JUSING THE

SERIAL

1/0?

;CHECKED 128 CHARS?

JYES, EXIT.
;NO, CK NEXT 64 CHARS FROM FIFO.
JEOT RECVD YET?
:NO, WAIT FOR [T.
;GO CHECK THE DATA FROM FIFO.

;IF THE 'FOUNSW' IS SET , THEN WE ARE EXECUTING
;THE 'ADDRESS 17' SUBTEST AND WE SHOULD SKIP OVER THE

;FOLLOWING SECTION. SET MEANS--1.

(Y]

CZPMACO PDM70 DIAGNOSTIC TEST

3385
3386
3387
3388
3389
3390
3391

014212
014216

005737
003035

014220

100423

014222
014226
014230
014232

005737
001067
000240
0002490

013662

032132

8
G
PAGE 76
20-JAN-78 09:11
MACY11 30A(1052)
M7378A FOUNDATION MODULE TEST

FOUND?Z:

TST
BGT

F OUNSW
FOUNDS

BMI

FOURD3

TST

SIOSWH

BNE

NOP
NOP

FOUND6

SEQ 0097

;LOOK AT THE SOFTWARE SWITCH.
;IF SWITCH=+1, THEN

JWE ARE IN SUBTEST 3.
;SW=-1 MEANS WE HAVE
;JUST FINISHED SUBTEST 2.
;ELSE FALL THROUGH TO SUBTEST 2.
;(SWITCH 0).

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

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

0O ~NONN

LRLXELs £

3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410

PAGE 77
20-JAN-78 09:11
MACY11 30A(1052)
M7378A FOUNDATION MODULE TEST
2322222282232

22R 2222222222322

SEQ 0098

22222 3222022022000
Rl

*THIS SUBTEST USES ADDRESS *17' AND XMITS A RANDOM BUFFER.

;tt'tittttttitflfi'tt!fiit'l'tifitfifit**ttfi.tttittittttttltt.tti!fitttttt'ttt.tt

;NOTE: FOUNSW-=1 HERE.
014234

104001

014240
014242
014244
014246
014252

1049072

014256
014264

SCOPE, 2

000002

MES10

024316

104013
112700

004737
012737
000137

;a*«xSUBTEST 2

TTYIN

MOVB

000077

177777

#77 ,R0O

JSR PC,FSTUF

014660

014014

;TEXT RESET MODULE ADDRESS TO '17°.
JWAIT

FOR (R

JREPLACE 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 CHARA(CTERS AND

;CHECK TO MAKE SURE THAT ADDRESS 17
;WILL RETURN THEM,

(ZPMACO PDM70 D]JAGNOSTIC TEST

CZPMAC P11

3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436

3437

19-JAN-78 14:50

MACY1T

30A(1052)

20-JAN-78

[

09:11

PAGE 78

M7378A FOUNDATION MODULE TEST

SEQ 0099

"ttittttt*'tiitkttfittfii'ttitii'tttti*tttiQ'ttlt.ttttttt*tttttttttttttttt.

;THIS SUBTEST USES THE WRONG ADDRESSES AND (HECK

JSURE THAT THE MODULE IS NOT ENABLED.

TO MAKE

.'Qtttt.tttt!!tflifittttt*fi"tttttit'tt*fittt'tttt.tttfittt'tt'tfitt'i."ttittt

014270
014274

014276

005737
001402
000137

032132

FOUND3:

013670

TST
BEQ
JMP

;SKIP THIS SUBTEST IF WE ARE USING SERIAL [/0.

SIOSWH
FND3A

2SI0 NOT [N USE.

JELSE LOOP TO BEGINNING OF MODULE TEST.

FLO

;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

;*+*xSUBTEST 3
JADDRESS

JMULTIPLE
TEST.

; (DESTINATION)

C(ZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PI

19-JAN-78 14:50

MACY1

3438
3439

3440
3441
3442
3443
3444
3445
3446

3447

3448
3449
3450

3451
3452
3453
3454
3455
3456
3457
3458
3459
3460

3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476

3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493

J
09:11

20-JAN-78

30A(1052)

PAGE 79

SEQ 0100

M7378A FOUNDATION MODULE TEST

"ttttttfittittfiittt*tfit""ttifiil'fittit*t.fifit*'ttttttt*ttitttttttt

;
;

ROUTINC TO CHECK CUSTOMER DEF INED
MODE FLIP FLOP (SUB-PROGRAM).

"Qttttttttttittfitttt*ttttitfittttt'tifit't.fititittttt'ttfitttttttttt

014312
014316
014320

104001
104012

FOUNDS:

000005

027634

SCOPE.S

Jx*xxSUBTEST 5

MES78

JTEXT

;PUT SCOPE PROBE

;ON PIN 78(CR).
014322
014324

027670

014326

012737

MES79

;'USE “E

TTYIN

104013

014406

014404

MOV

TO EXIT

JWAIT FOR (R
#FOUNDG ,EVECTOR

;OUTPUT THE FOLLOWING PROGRAM.

;THIS PROGRAM WILL LOOP ENDLESSLY

JUNTIL A '“E' IS INPUTTED VIA TTY,
;THE APPROXIMATE

SIGNAL

TC BE

;BE 1 MILLISEC @ 9600 BAUD.

SCOPED WILL

‘SW 14-SET TO SCOPE LOOP.
‘Sw 11 =SET TO ITERATE.

014334

014340

005737
001013

032132

FNDS:

;LOAD

014342
014344
014346
014350
014357
014352
014353

014354
014356
014360
014362
014363
014364
014365
014366

FNDSA:

104007

014350
000402
022
077
023
004

TST

BNE

S10SWH

;USING THE SERIAL 1/0?

FND5B

THIS PROGRAM

LDZGMO

JYES,

SO USE PADDED PROGRAM.

JELSE, USE THE FOLLOWING:
MODULE

TEST

;LOAD

THE

PROGRAM

FLAB6:

FND5C:

104007

014362
000770
021
077
001
023
000
014370

FLAB4:

BR
.BYTE

FND5C
DC2

.BYTE
BYTE

DC(C3
EOT

.BYTE

BR
BYTE

FNDSA
DC1
77

.BYTE

D(3

.BYTE
.BYTE

LDPGMO

104007

014372
014374
014376
014400

014030

FPROG

000004
000137

eort

LDCHRO

014370

;SEND THE EOT

SOH

JUSE THIS PROGRAM [F SYSTEM TEST

014370

104006

;FOUNDATION AS DESTIN.

LDPGMO

BYTE
EVEN
FND5B:

;GO HERE WHEN DONE

JMP

;LOAD THE FOLLOWING PROGRAM.
s (SERIAL [/0 IN USE).

;SEND AN EOT
FNDSB

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

3495

014404

000000

MACY11 30A(1052)

20-JAN-78

K
09:11

PAGE 80

M7378A FOUNDATION MODULE TEST
EVECTOR:

.WORD

JADDRESS TO GET ME OUT OF INFINITE LOOPS.

SEQ 0101

CZPMACC PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
3496
3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507

MACY11

30A(1052)

20-JAN-78

L
09:11

M7378A FOUNDATION MODULE
;t'ttttitttttttti*fitfifi

TEST

8
PAGE 81

SEQ 0102

TEST

1232002222202

R00RR0RRRRRRtA

COMPLETE

;tttttttttttttitfitltl’ittit*ttttttfifitttttttttttt*tittt*'iflttfi'tt'l

014406

104001

014412
014414
014416

026236
000137

000006

104012

FOUND6:

SCOPt .6
PRINT

013670

MES7

JTEXT

JMP

FLO

.SBTTL

SUBROUTINES

"TEST COMPLETE'

;LOOP THE TEST.

CZPMACO PDM70 D1#73NOSTIC TEST

CZPMAC P11

3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
35¢7
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538

3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

SUBROUT INES
R

09:11

PAGE 82

2282222222333 2322282202222

AR AR

RN N R AN AR R

23222382222

SEQ 0103
2022222

SUBROUT INE SENDAX

RN AR AR

AR R RN R RRARNKRRA R R AR

RRdRARtRRRRdddl
AN R AR

;JSUBROUTINE TO LOAD AND SEND THE CHARACTERS
:.'A.'

014422
014424
014426
014430
014431
014432
014433

104007
014430
000420
101
130
004
000

'xll

SENDAX: LDPGMO
+4

BYTEA:
BYTEX:

SNDAX1

.BYTE
.BYTE

EOT
O

.BYTE
.BYTE

;GO HERE WHEN DONE.

‘A
'X

.EVEN
seaxannexr
e SUBROUTINE

SENDPGHxannxnnxx

;SUBROUTINE TO >END A PROGRAM.
; (USED FOR DEBUGGING PURPOSES.)
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

104007
014442
000413
002
021
C60
001
061
022
060
023
021
060
022

SENDPG:

SNDAX1

.BYTE
.BYTE
.BYTE
.BYTE
BYTE
BYTE

DCT
60
SCH
61
DC2
60

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

DC1
60
DC2
60
DC3
D(C1
60
SOH
60
0
0
O
0

BYTE

.BYTE

060

023
021
060
001
060
000
000
000
000
014470
000207

LDPGMO

SNDAX1:

.EVEN
RTS

STX

DC3

;annnsaxxakxSUBROUTINE

JRETURN

CNTLOPxaxnsannnx

;SUBROUTINE TO PROVIDE AN ''X'' SECOND WAIT,
JENTERS WITH COUNT EQUAL TO THE COMPLEMENT OF THE NUMBER
;OF SECONDS DESIRED TO WAIT.

AN A NA AR

CZPMACO PDM70 DIAGNOSTIC TEST
CZPMAC.P1T
19-JAN-78 14:50
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574

014472
014474
014500
014502

104023
005237
001374
000207

INC
BNE
RTS

N
09:11

COUNT
CNTLOP

PAGE 83

SEQ 0104

sDELAY ONE SECOND.

;UP THE DELAY COUNTER.
;CONTINUE LOOPING UNTIL COUNTER IS ZERO.
JRETURN WHEN DONE.

222222232323332233 222322332223 22232

2332220022002

002

Rttt

*ROUTINE TO ADDRESS A MODULE USING ALL OF THE WRONG ADDRESSES
AND CHECK TO MAKE SURE THAT DATA ISN'T RETURNED.

:ttttttttttttt*fitt*ttttttttttttttttktt*****t*ttttttttfi*tttt*ttt**tttttttt

014504

112737

000060

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

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

3616
3617
3618
3619

CNTLOP: NULL1

032160

3575
3576
3577
3578
%ggg

3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615

20-JAN-78
MACY11 30A(1052)
SUBROUT INES

;JTHIS ROUTINE

017277

IS DESIGNED FOR THE FOUNDATION MODULE

JBUT WILL WORK FOR OTHER MODULES.

MATD:

MOVB

#60,DSTADR

ADSLOP:

MOVB
JSR
CLR
CMPS
BEQ
TST
BEQ

DSTADR,RO

017277

032132

.TO BE

TESTED.

PC,FSTUF

:STUFF

MODULE ADDRESS.

MODADR,DSTADR
ADSNXT
SIOSWH
ADSLP1

;EQUAL TO SELECTED ADDRESS?
JYES, SELECT NEXT ADDR.
;SERIAL 1/0 IN USE?
sNOPE

#RECBFO+?2

LDPGMO

ADSLP1:

LDPGMO

;CLEAR 1ST LOC.

;USE PADDED SERIAL PROGRAM.

FPROG

;SET UP 1ST ADDRESS

ADSLP?2

FLABSA

;ADDRESS THE FOUNDATION MODULE AS A SOURCE (NON-SERIAL 1/0).
LDPGMO
.+

FLAB17:

014422

ADSLPZ2:

B8R
.BYTE
.BYTE
.BYTE

ADSLP2
DC1
60

.BYTE
.BYTE
.EVEN

60
DC3

JSR
RECVRO
DELAY

PC,SENDAX

SOH

;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

CMPB
BNE
CMPB
BNE

‘A, (R2)+

ADSNXT

‘B, (R2)+

ADSNXT

THEY COULD POSSIBLY XMIT DATA WHEN

JWAS AN '‘A’"" RETURNED?
sNOPE
.

:B8?

JNOT A B.

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

3620

3621
3622
3623
3624
3625
3626

014616
014622

122722
001001

MACY11

30A(1052)

20-JAN-78

SUBROUT INES

000004

CMPB
BNE

B
09:11

9
PAGE 84

#EOT, (R2)+

ADSNXT

JEOT?

;ONLY THE STRING A,B,EOT CAN MAKE IT TO HERE.
014624

000407

ADSER1

3627

3628
3629
3630
3631
3632
3633
3634
3635
3636
3637

SEQ 0105

;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
CMPH
BNE
RTS
ADSFR1: movs
MODERR

DSTADR
#77 ,DSTADR
ADSLOP
PC
PSTADR,ERR13A

ERR13

;UPDATE MODULE ADDRESS.
;DONE?
:NO.
JYES.

;MODULE ENABLED
;WITH ILLEGAL

ADSNXT

;ADDRESS.

HAVE

CIPMACO PDM70 DIAGNOSTIC TEST

(ZPMAC.P11

19-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

SUBROUTINES

c
09:11

PAGE 85

SEQ 0106

3638
3639
3640

R L]
A
RL

3643

3641
3642

3644
3645
3646

3647
3648
3649
3650
3651
3652
3653

;ROUTINE TO STUFF THE ADDRESS IN RO INTO THE PADDED SERIAL
;170 PROGRAM AND UN-PADDED PROGRAM.

014660
014664
014670

0146746
014700
014704
014710
014714

110037
110037
110037

110037
110037
110037
110037

000207

014042
014037
014067

014363
014113
014351
013660

FSTUF:

MOVR
MOvB
MOVB

mMovB
MOVB
MOVB
MOVB

RTS PC

RO,FLAB1
RO,FLAB?2
RO,FLAB3

RO,FLAB4
RO,FLABS
RO,FLAB6
RO,FLAB7

JRETURN.

CZPMAC.P11

19-JAN-78 14:50

20-JAN-78
MACY11 30A(1052)
SUBROUT INES

3655
3656
3657
3658

09:11

;iiti'tttttttfittttfittt

PAGE 86

SEQ 0107

1232322223232 8232322222220 22222200 RitRitRdta

;KEYBOARD SERVICE ROUTINE.

CHARACTERS ARE ACCEPTED FROM THE KEYBOARD,
;TESTED FOR DIFFERENT FUNCTIONS AND SAVED IN A BUFFER.
;tfit'*i*fittQttfit*fi*tfififitttiitttttttttfitt**fi**tkfitttttfittt*tfit*tttttt'ttt

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

104002

005037
005037
005037
012704

032136
032214
032216
015330

117701
142701

164372
000200

105777
100375
105701

001757
005737
001407
005737
001066
110114

062716
000462

120127
100426
122701
100423

005237
022737
100516
104010

000724

BEQ
TST
8£Q
TST
BNE
MOVB
ADD

INPUTC(:

000060
000132

REPTSW

;SAVE REGISTERS
;C_R SOFTWARE SW.

RUBSWH
#INBUF ,R4
aTKS

. UBOUT SW.
JSET UP BUFFER POINTER
. CHARACTER READY?

CHRCNT

INPUTA
aTKB,R1

#200,R1
R1
XTTYIN+2
CENDSW
INPUTC
PRTSWH

EXTTY
R1.(R&4)
#2,(SP)
EXTTY
R1,#60
SP(CHR1
#132.R1
SPCHR1
PRTSWH

INPUTB:

032216

032214
000102

BPL

TSTRB

000002

032216

MOV
1ST8B

BICB

032122

005037

SAVREG
CLR
CLR
CLR

MovB

032150

032122

104012
032026
110124

INPUTA:

164376

005737
001051
005737
001404

XTTYIN:

EXTTY

RUBSWH

ECHO:

JNO,

WAIT

;WAS

'"HERE

COUNTER

JYES, SAVE IT
;STRIPE OFF PARITY BIT
[S'

TYPED?

.YES, IGNORE IT
INTERRUPTED FROM SEND ROUTINE

:NO

JINTERRUPT FROM PRINT?
JYES, IGNORE IT
;NO, SAVE (HAR.
JYES,

RETURN CALL

JYES,

TEST

JEXIT
;SPECIAL CHARACTER
IT

JRUBCUT

SW.

SET?

RUBSWH

R1,(R4)+

;SAVE CHARA(CTER

#66.
, CHRONT
TYPEQM

JBUFFER FULL?

INPUTA

;SPECIAL CHARACTFR
JYES, TEST IT
;INTERRUPTED FROM PRINT ROUTINE?
JYES, IGNORE IT
sNO, NORMAL ECHO.
JYES, CLR IT.

412

CHRCNT

032214

;CHARACTER

JPRINT '\' TO TERMINATE RUBOUT MODL

JYES,

TYPE

'?°

;NO, ECHO CHAR.
JWAIT FOR NEXT CHAR.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

3696
3697
3698
3699
3700
3701
3702

3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3718
3719
3720
3721
3722
3723
3724
3725

015152
015154
015156
015162
015164
015170
015172
015174

3704

3705

3726
3727

3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742

3743
3744
3745
3746
3747
3748
3749
3750
3751

20~JAN-78

SUBROUT INES

09:11

9
PAGE 87

SEQ 0108

;SUBROUTINE ENTERED TO TEST FOR SPECIAL CHARACTERS
015070
015074
015076
015102
015104
015110
015112
015116
015122
015124
015126
015130
015132
015136
015140
015144
015146
015150

3703

19-JAN-78 14:50

MACY11 30A(1052)

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

005737
001036
122701
001016
005737
001713
005337
005737
001002
104012
032026
114401

005237
000752
122701

001004
104012
032032

032122

122701

001740
122701
001717
104C00
122701

001003
004737
000761
122701

001002
000137
122701
001004
012706
000177
122701
001006

032214

CHRCNT
INPUTA
CHRCNT

SPCHR3

032214
032216

122701
001003
104005
000177

005737
001406
122701

001320
005137
000715

:NO

JYES, IS IT VALID?
;NO, IGNORE IT
JYES, DECREMENT COUNTER
;IN 'RUBOUT' MODE?
JYES, JUST ECHO BACK (HAR.

RUBSWH

.+6

INC

032216
SPCHR3:

BR
CMPB
BNE
PRINT
CRLF

JPRINT '\' TO INDICATE RUBOUT

-(R4) .R1

;GET LAST (HAR.

RUBSWH

;SET 'RUBOUT' MODE

SPCHR5

JNO

ECHO
#15.R1

JCHAR.

000040

GETREG
RTI
SPCHRS: CMPB

BEQ

000054
000007

(MPB

CNTRLG:

023304
000003
001376
000001
001000
014666
000022

CNTRLC:
CNTRLA:

CNTRLR:

001000
014642
000005
177106

032122

000017

032152

CNTRLE:

CNTRLO:

BEQ

PRCNTR

CMPB
BNE
JSR
B8R
CMPB
SNE
JMP

'CR'

JYES, PRINT
;RESTORE

EXTTY:

104012

032032
012706
000177

:YES, CHECK FOR '“G'
;CHAR. = RUBOUT?

CNTRLG

#177 ,R1

000015

:INTERRUPTED FROM PRINT ROUTINE?

PRT SwH

000177

104003

000002

SPCHR1:

JEXIT

PC,

EXTTY

REGISTERS

;YES, ECHO BUT DON'T
:CHAR = 'COMMA'?

ECHO
#54 R1
INPUTB

CNTRLC

‘CR-LF'

;CHAR. = SPACE?

#40,R1

87,

JYES,

R1
UFDAT1

SAVE

;CONTROL=-G?

;NO

;CHECK FOR SOF TWARE SWR
JEXIT
-

IAC'

:CHAR.

CNTRLE

:NO, TEST FOR '“E'

#1000,SP
aRVECTR
#5,R1
CNTRLO

JRESET STACK POINTER

PRT SWH
TYPEQM

417 ,R1
EXTTY
OPRTSW
EXTTY

#3,R1
CNTRLA
MONITR
#1.R1
CNTRLR
#1000,
SP
TR
@AVEC
#22 ,R1

dEVECTOR

SAVE

:NO_CHECK FOR

'"A’

RETURN TO MONITOR

CHAR, = '#A' 2
:NO, CHECK FOR '*R'

:RESET STACK POINTER
:GO TO THE RESTART ADDRESS
:CHAR.

"R’

;GO TO RESTART ADDRESS
;CHAR.="*E"?
;NO,TEST FOR '*0°'.

sCLEAR OUT THE BUFFER.
;CONTINUE ON TO NEXT SUBTEST.
; INTERRUPTED IN FROM PRINT ROUTINE?
;NO, ILLEGAL ENTRY
;CHAR, = '*0'?

JNO, IGNORE 1T

:EE?f SET/RESET PRINT INHIBIT Sw.
JEX

[
Nan]

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC PN

3752
3753
3754
3755

3756
3757

015320
015322
015324
015330

19-JAN-78 14:50
104012

031702

000137
000000
015434

014720

MACY11

30A(1052)
20-JAN-78
SUBROUT INES
TYPEQM:

INBUF:

JMP
XTTYIN+?
O
.. 466,

QMARK

09:11

PAGE 88

SEQ 0109

(Y]

CZPMACO PDM70 DIAGNOSTIC TEST

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

3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
37N
3772

3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792

3793

3794
3795
3796
3797
3798
3799

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

122701

004737
032037

122701

000023
015650

004737
032051
122701

004737
032056
122701
004737
032063

122701

000001

122701

000017
015650

122701

000004
015650

122701

000003
015650

004737
032075
004737
032102
004737
032106

004737
032113
132701

001417

015644
015646

104000
000207

015650
015652
015660
015662

015674
015700

000002
015650

000026
015650

104010

005737
001006
005237
023727
002406

015650

001011
017637
104012

000000
005037
005726

000110
PDMSTO:

032142
PDMST1:
PDMST2:

000002

015662

;YES,

CHAR = 21?

JTEXT

'DCY!

PC.PDMPRT

JPRINT PDM CNTRL

#DC2,R1

JCHAR = 22?

PC,PDMPRT

CHAR.

JPRINT PDM CNTRL CHAR.
STEXT 'DC2°

;CHAR, = 23?

JPRINT PDM CNTRL

#STX,R1
PC,PDMPRT

;PRINT PDM CNTRL (HAR.

#SYN,R1
PC,PDMPRT

JPRINT PDM CNTRL

CHAR.

#SOH,R1
PC,PDMPRT

JPRINT PDM (NTRL

CHAR.

PC,PDMPRT

;PRINT PDM CNTRL

CHAR.

#EOT ,R1
PC,.PDMPRT

sPRINT PDM CNTRL

CHAR.

HETX,R1
PC.PDMPRT

JPRINT PDM (NTRL

CHAR.

PC,PDMPRT

#S1.R1

BEQ

#140,R1
PDMST1

BNE
INC
CMP
BLT

SENDSW
PDMSTO
FORMT1
FORMT1 #72.
PDMST?

CRLF
CLR
BR

PRCNTR
RTS

PDMPRT
: BNE

MOV
PRINT

XPDMES: 0
CLR
POP1SP
PEXT2:

#DC1,R"

#DC4 R
PC,.PDMPRT

032150

032142

SEQ 0110

cMPB
JSR
MESDC4
CMPB
JSR
MESSTX
CMPB
JSR
MESSYN
CMPB
JSR
ME SSOH
CMPB
JSR
MESSI
CMPB
JSR
MESEOT
CMPB
JSR

TYPEIT
TST

000000

PAGE 89

#DC3,R1

000140

032142
032142

CMPS
JSR

MESETX
BITB

104012

032032
005037
000401

(MPB
JSR
MESDCT
CMP8
JSR
MESDC2

MESDC3

000024
015650

122701

004737
032070

015604
015606
015610
015614
015616
015622
015630
015632
015634

015636
015642

015650
000022
015650

09:11

;SUBROUTINE TO CHECK FOR AND PRINT PDP-70 CONTROL CHAR.'S

PDMSET:

000021

122701

004737
032044

20-JAN-78
MACY11 30A(1052)
SUBROUT INES

RTS
ADD
RTS

JPRINT PDM CNTRL

JTEST

*'DC3’

;CHAR. = 247

CHAR.
CHAR.

;IS CHAR. PRINTABLE?
sNO,

PRINT AS CONTROL

JYES, TYPE IT

CHAR.

FORMT1

;PRINT AS

CONTROL

CHAR.

PEXTZ2
a(SP) ,XPDMES

;CHAR. MAT(CH?

FORMT1

JRE-SET 'CR/LF' FORMAT Sw.

#2,(SP)

;YES,

GET ADDRESS OF MESSAGE

;CLEAN UP STACK
JEXIT

;CHECK NEXT WORD

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

MACY11

30A(1052)
20-JAN-78
SUBROUTINES

09:11

PAGE 90

SEa 0111

3812
3813
3814

;fitttttttfitttttttttttt*tttittttttiitti*ittittfiitttfitttt*tltfittt'**

3816
3817

:ttttttttttttttt*'fi*ttfittitttttttttittfitfitttttittt*tfi*tttt't*tttfit

;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’
;AND WITH 'RZ’ CONTAINING THE ADDRESS OF THE DATA TO BE AVERAGED.

3815

3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841

015702
015704
015710
015714
015720
015724
015730
015732
015736
015740
015744
015746
015752
015756
015760
015764
015766
015772
015776
016002
016004
016006
016012
016014

104002
005037
005037
005037
005037
010137
012204
005737
001403
020437
003402
010437
005737
001403
020437
003002
010437
060437
005537
005301
001351
004737
104C03
000002

016116
016114
016124
016120
016110
016124

XAVRAGE
: SAVREG
CLR
CLR
CLR
CLR
GETDAT:

016124
016124
016120

TSTLO:

016120
016120
016114
016116
016016

MOV

MOV
TST
BEQ
cMP
BLE

MoV
TST

BEQ
CMP
BGT
MOV
ADD
ADC

AVGDAT:

DEC
BNE
JSR
GETREG
RTI

HIDIVD

LODIVD

HIGH

LOW
R1,LODIVR
(R2)+,R4
HIGH

.+10

;SAVE REGISTERS
;CLR HI-ORDER DIVIDEND
;CLR LO-ORDER DIVIDEND
sHIGH
;8 LOW
JSET UP DIVISOR FOR DIVIDE
;GET VALUE

R4 ,HIGH
TSTLO
R4 ,HIGH
LOW

;1S NEW NO. GREATER THAN OLD NO.?
JNO, TEST IF LESS THAN
JYES, SAVE NEW HIGH

R4, LOW
.*+6
R4, LOW
R4, LODIVD

;NSU NO LESS

GETDAT

;NO
;PREFORM DIVIDE

.+10

HIDIVD
R1

PC.DIVIDE

N
;YES,

THAN OLD NO.?

SAVE NEW LOW

;ADD VALUE TO LOW-ORDER DIVIDEND

;ADD CARRY TO HI-ORDER DIVIDEND
;DONE?

JYES, RESTORE REG.'S
JEXIT

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

MACY11

20-JAN-78

30A(1052)

SUBROUT INES

09:11

PAGE

"t't*tttifitfii*tt***fitt*tttitttttfifl*ttt'tttttttttittfitit**tttfittit'

;DOUBLE PERCISION DIVILE SUBROUTINE

;THIS ROUTINE

IS ENTERED THIS WITH THE DIVISOR AND DIVIDENT PRE-LOADER

;INTO THE ROUTINE.

,'tttttttittttttttfit*ttt'ttttttt*ttttttttittt*tkttfittititittttfitfitt

DIVIDE:

104002

013701
013702
013703
013704
005005

DIVDIT:

160103

005604

SAVREG

MOV
MOV
MOV
MOV

CLR

SuB

160204

005704

104003

000207
000000
000000
000000
000000
000000
000000
000000
000000

HIDIVR,R2

LODIVD,R3

HIDIVD,R4
RS
R1.R3
R4
RZ.R4
R4

016126

016122

.+10
R1,R3
.+4
RS
RS5,QUOENT

101001

005205
010537

LODIVR,R]

.6
RS
DIVDIT
R1,R3
R3,REMAIN

100402

005205
000771
060103
010337
006201
001403
020103

LODIVR:

HIDIVR:

LODIVD:

HIDIVD:

LOW:

:
QUOENT
HIGH:
REMAIN:

OOOOOOOO

016016
016020
016024
016030
016034
016040
016042
016044
016046
016050
016052
016054
016056
016060
016062
016066
016070

;SAVE REG.'S
;GET LOW ORDER DIVISOR
;GET HIGH ORDER DIVISOR
;GET LOW ORDER DIVIDEND
;GET HIGH ORDER DIVIDEND
JUSE 'RS' TO STORE QUOTIENT
;SUBTRACT L-0 DIVISOR FROM DIVIDEND
;SUB CARRY FROM HI~ORDER DIVIDEND
;SUBTRACT HI-ORDER DIVISOR

2SUBTRACTION SUCCESSFUL?
;NO, EXIT
JYES, INCREMENT QUOTIENT

;PREFORM NEXT SUBTRACTION
;ADD BACK OVERFLOW

;SAVE AS REMAINDER

;18 REMAINED > THAN HALF DIVISOR?
N

:YES, ADD '1' TO QUOIENT
:SAVE QUOIENT
;RESTORE REGISTER
JEXIT

SEQ 0112

CZPMACO PDM70 DJAGNOSTIC TEST

CZPMAC P11

19-JAN-78 14:50

20~JAN-78
MACY11 30A(1052)
SUBROUT INES

J
09:11

:titfi*t'fitttt*ttfiiittt

9
PAGE 92

SEQ 0113

122323223 2222322222222222322222222R2222a003XR22aRRRldl

;DL1Y RECEIVER INITIALIZATION ROUTINE.

;THIS ROUTINE SETS UP A RECE VER BUFFER WHERE DATA IS STORED AS IT COMES

;IN FROM THE DL11 RECEIVER.

;Qtlttttitttttfit*tttit*ttttfi*Q*ttttttttttttt**t?tttit*tttt*tttififitit*itt

016130
016134
016140
016142
016146
016150
016154
016160
016164
016170
016174
016200
016204
016212
016216
016220
016222
016224
016226
016230
016232
016234

012700
010037
005020
022700
001374
005037
005037
005037
005037
005037
005037
005777
052777
012702
000002
000000

016736

000000

000000
000000
000000
000000

016234
000C00
016736

016234
016232

XRECRO: MOV
MOV
CLR

016274

CMP
BNE

CLR
CLR
CLR
CLR
CLR

016220
016224
016234
016222
016226
016230
163154

000100
016234

ARECBFO,RO
RO,RECVPT

(RO +

#RgCBFO+40,RO

RECBFQ
RECDC3
RECSTX
RECETX

#100,aRCSRO
#RECBFO,R2
PARITY:

RECDC3:

RECEOT:
RECSTX:
RECETX:
RECVPT:

RECBFO:

RECEND:

'20' LOCATIONS OF BUFFER

PARITY
RECEOT

aRBUFO

163144

;CLR 1STM

;CLR RECVR.

FLAGS

JENABLE THE INTERRUPT
;SET UP BUFFER POINTER

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

3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922

MACY11 30A(1052)

20-JAN-78

SUBROUTINES

09:11

:i**itfii*itttttfiti**tt

PAGE 93

SEQ 0114

138222388203 2222022282280 02200230000 R0iRt

Rttt

.SBTTL DL11 RECEIVER SUBROUTINE.

;JROUTINE IS ENTERED ON DL11 RECEIVER INTERRUPTS WHERE THE CHARACTER IS
JREAD & SAVED

IN A BUFFER.

;*ttttttt*itttfit*.*tttttttttitt****tktit*t*tttttttttttttttt*tttttfitttit*

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

RECVER: MoV
016232
162404

012737
020127
003054
005702

024070
016736

012737
032702
001044
032702
001402
005237

024161
040000

100013

122702

001003
005237
000424
005737
001021

122702
001003
005237
000413
122702
001003
005237
000405
122702
001002

005237
010137
012602
012601

000002
005077
005037
104012
024070
000137

017136

R2,-(SP)
RECVPT ,R1
?RBUFO,R2
R2,(R1)+
(R1)

TST
BPL

R2
RECVR1

MOV
CMP
BGT

017136

R1,~-(SP)

MOV
MoV
MOV
MOVB
CLRB

MOV

#MESZ ,ERRMES
R1,A#RECEND
RECERR
#MES4 ,ERRMES

010000

BIT
BNE
BIT

016220
000004

INC
(MPB

PARITY
#EOT R2

INC
BR
TST

RECEOT
RECEXT
SIOSWH

RECEXT

BEQ

RECVR1:

016224

032132

BNE

BNE
(MPB
BNE
INC

000023

016222

CMPB
BNE

000002

016226
000003

.+6

.+10

RECEXT
#DC3,R2
.+10
RECDC3

162226

RECERR:

001376

ERRMES: MES?
JMP

CLR
CLR

;WAS RECVR.
:NO

ERROR DETECTED?

;SETUP 2ND ERROR MESSAGE

;OVERRUN FLAG SET?
:YES., PRINT OVERRUN ERROR MESSAGE
JPARITY BIT SET?
;NO,

;YES, SET PARITY ERROR FLAG
;CHAR. -EQOT?

JNO

;USING SERIAL

JYES, EXIT
;CHAR, =D(3?
:NO
JYES, SET FLAG

;CHAR. = ETX?
;NO
JYES, SET FLAG

RY,RECVPT

MOV
Q?Y

;NO, SET UP 1ST ERROR MESSAGE
JRECEIVER BUFFER FULL?
:YES PRINT BUFFER FULL MESSAGE

.46
RECETX

MOV

RECEXT:

;SET UP BUFFER POINTER
JREAD & SAVE CHAR.
;SAVE CHAR. IN BUFFER
;TERMINATE BUFFER W/ NULL CHAR.

;CHAR.
;NO

RECSTX
RECEXT
#ETX,R2

BNE
INC

'R1BR2' ON STACK

#STX.R2
.+10

INC
BR
(MPB

016230
016232

032150

#40000,R2
RECERR
#10000,R2

:SAVE REG'S

JYES,

INPUT OPTION?

= STX?
SET FLAG.

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

akCSRO
SCNDSW

MONITR

:DISABLE FURTHER INTERRUPTS

;MODIFIED DEPENDING ON TYPE OF ERROR
;RETURN TO MONITOR ON RECVR. ERRORS

CZPMACO PDM70 DIAGNOSTIC TEST
19~-JAN-78 14:50
CZPMAC P11
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996

MACY1]

30A(1052)
20-JAN-78 09:11
DL11 RECEIVER SUBROUTINE.
;tttt*ttttttititi.ttt*

PAGE 94

1222323222238

SEQ 0115
22222222000

0 RR0d00ddtRaRR

;1F THE CONTROL MODULE 1S BEING USED THIS ROUTINE PADS THE DATA
;BEING TRANSMITTED SO THAT THE DESTINATION PORTION OF THE
;SERIAL 1/0 MODULE GETS ADDRESSED.

:tifitttit*tttti*ttfitifitttttt*lttitttt*ititttlttttttt*fltttttttt*tttitttt

017144
017150
017152
017154
017156
017162

005737
001463

032132

XSOURC:

SIOSWH
XLDADD

STX
INC
BR

TERMSW
XLDADD

LDCHRO

104006

000002
005237
000456

TST
BEQ

032154

;SERIAL [/0 INPUT?
;NO, NORMAL LOAD
JYES, SEND 'STX' TO ENTER ADDRESS MODE

:itktt*ttt*fi*'fitttlt*tt**ttfifit*t*ttfi*kttttttitttktttttt*ttttttttttttttt

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

:fittittt*.ttfittttfit*fitttt'tfi*ttittt*tttttttttttttt*tttttttttttttttttttit't

017164
017170
017172
017174

017176
017200
017201
017202
017203
017204
017205
017206
017212
017216

005737
001453

032132

XDSTIN:

TST

104007

017200
000403
002
021
075

XDSTG1
STX

IADRS9: .

CO1

061
000
005237
005237
000440

SIOSWH
XLDADD

DC1
75

SOH

61
0

032154
032146

XDSTG1:

TERMSW
DSTSWH
XLDADD

;SERIJAL [/0 INPUT?
;NO, NORMAL LOAD
JADD, ADD CODE TO ADDRESS SOURCE

;CLEAR FIFO
JALERT SOURCE
JMODIFIED BY USER

;SET UP MODE '1°'; WAIT

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC P11

19-JAN=-78 14:50

MACY11 30A(1052)

4003
4004

4005
4006
4007
4008
4009
4010
4011

4012
4013
4014
4015
4016
«017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4041
4042
4043
4044
4045
4046
4047
4048
4049

09:11

DL11 RECEIVER SUBROUTINE.

3997
3998
3999
4000
4001
4002

20-UAN-78

PAGE 95

3222232322322 22233 2232322222222

223223

SEQ 0116

82202220

*SUBROUTINE TO ADDRESS ANY SOURCE MODULE

20022

SRRttt

:tt**t*tttifittfi***t*t*titittittt*ttitt*t*fitttttttttt*tttttfittti*tttttttttt

017220
017222
017224
017226
017227
017230
017231
017232
017233

ADRSRC:

104025

SO%RCE

;ADDRESS AS SOURCE

L+

RTS

SRCADR:
SOH1:

.BYTE
.BYTE
.BYTE
BYTE
.BYTE
BYTE
.EVEN

D(C1
60
SOH
60
D(C3
O

JALERT MODULE
;ADDRESS MODIFIED BY USER
JADDRESS MODIFIED BY ME

;tttfitt**fi*fi***ttttt**ttttttt*tfitttttt*tt**t*tt*tti**tt**ttttttfii*fit*ttt

;SUBROUTINE TO ADDRESS ANY DESTINATION MODULE

:t*tttt*fitti*it***t*tt*tttt**tttittt*tfittt*tttfiit**ttt*ttttt*ttttittt*tt

017234
017240
017242
017250
017252
017260
017262
017270
017272
017274
017276
017277
017300
017301

005737
001004
122737
001404
112737
000403
112737
104024

ADRDST:

032132

000023

017300

000023

017300

000017

017300

TST

SIOSWH

JUSING SERIAL

CMPB
BEQ
MOVB
BR

#D%%.DSTADR+1
.+
#DC3,DSTADR+1
.+10

:YES, USING 'DC3'?
JYES, LOAD °*SI’
;JNO, LOAD DC3

BNE

MOVB
DEzTIN

017276

.+12

#SI1.DSTADR+1

:NO,

1/0?

;ADDRESS DESTINATION

000207
022
060
023
000

RTS

DSTADR:

.BYTE
.BYTE
.BYTE
.BYTE
.EVEN

2222222323232

DC2
60
DC3
0

JALERT MODULE
;ADDRESS MODIFIED BY USER

228233223 2223222282322

222802

008200000

da0

:SUBROUTINE TO TRANSMIT A SINGLE CHARACTER VIA THE DL11.

tRRttRattlts

;tttttt*tt*ttfifitttttttttttttttttitttttt*ttittttttti*fittttttt*tt*itittttt

017302
017306
017312
017316

005237
011637
062716
000404

017664
017666
000002

XLDCHR:

XLD1:

INC

MOV
ADD
BR

SNGCHR

(SP) , TRANPT
#2,(SP)
TRNSMT

;SET SOFTWARE FLAG

JSET UP ADDRESS OF CHAR.
JSET UP STACK TO EXIT

TO BE TRANSMITTED

;'fitttttttttttttttttfit*ttt*itttttttttttit*ktttfiitttittt*ttttttttttittttt

:?g?RgU{%NE TO SETUP AN ADDRESS FROM WHICH DATA IS TO BE TRANSMITTED VIA
:

Lil.

;ttttttt.tt*tttttttt*ttttttttttttttitttttiitttttttfiitittitititttttttitt'

017320
017326

017637
000771

000000

017666

XLDADD: ggv

a(g?),TRANPT
XL

;SETUP ADDRESS OF DATA TO BE TRANSFERRED

Z
4

CZPMACO PDM70 DIAGNOSTIC TEST
CZPMAC.PI
19-JAN-78 14:50
4050
405
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065

4066

4067
4068
4069
4070

4071
4072
4073
4074
4075
4076
4077

MACY11

30A(1052)
20-JAN-78 09:11
DL11 RECEIVER SUBROUTINE.
:tttttttttttt*tt*ttttt

PAGE 96

SEQ 0117

1332332232223 32232 3232323222802 8080 R R ctRddtatiddl

.SBTTL DL11 TRANSMITTER ROUTINE
;THIS ROUTINE IS ENTERED WITH THE ADDRESS OF THE CHARACTER OR CHARA(CTERS

;7O BE TRANSMITTED IN ADDRESS 'TRANPT', (HARACTERS 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 TRANSAS IT IS TRANSMITTED, IT IS ALSO PRINTED.
;MITTED.
:t*tQttttttttttttttt*fittttttttttt***tttt**t*fitfit*tttt*t*t*t**tttttttt*t

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
0irtS4
01746L
017462
017466
017470
017474
017476
017502
017510
017512
017516
017520
017522
017524

104002
012746
012746
000002
013701
032777
001406
005237
000001
005737
001374
032777
001401
105741
105711
001446
122711
001443
122711
001453
105711
001422
032777
001103
105777
100375
111177
005737
001006
122711
001403
122721
001325
005037
032777
001004
005737
001001
104004
104003
000002

TRNSMT:

000000
017344
017666
010000

161774

1%:
TRANO:

032214
032214
004000

161750

TRAN1:

000004

000023
TRAN3:

010000

161712

TRAN7Z:

161714

SAVREG

MOV
MOV
RTI
MOV

BIT
BEQ
INC

WJAIT
IST
BNE
BIT
BEQ
1ST8
TSTB
BEQ
CMPS
BEQ
(MP8B

BEQ

TST8

BEQ
BIT
BNE

1STB

161710
017664

000004

017664
001000
032144

161642

TRNEXT:

~(SP)
-(SP)

JENABLE INTERRUPTS

TRANPT ,R1
#SW12,aSWR
TRAN1
CHRCNT

;SET UP TRANSMITTER BUFFER POINTER.
:SéNGLE STEP TRANSFER?

CHgCNT

;WAS

;NO,

:YES, SET TTY SOFTWARE FLAG
:WAIT FOR
THE

'CR’

INTERRUPT FROM TTY?

#5W11,aSWR

<NO, WAIT AGAIN
:TSANSMIT SAME CHAR.?

-(R1)
(R1)
TRAN4

JYES, BACK UP POINTER
;DONE?
JYES, FXIT

ADC3, (R1)
TRANS
(R1)

;TERMINATOR (HAR.?

#EOT,(R1)
TRANG

TRNEXT

#SW12,aSWR
TRANG
aXCSRO
=4
(R1) ,aXBUFO
SNGCHR
TRNEXT
#EOT, (R1)
TRNEXT
RETX,(R1)+

TRANZ:

000003

#0,
s,

JYES,

EXIT

sJTPNSMITTING SINGLE

STEP?

;YES, PRINT CHAR. TO BE TRANSMITTED

;WAIT FOR READY
s TRANSMIT

CHAR.

;SINGLE CHAR. TRANSFER?
JYES, EXIT
s TRANSMITTED LAST CHAR.?
JYES,

EXIT

BNE
CLR
BIT
BNE

TRANO
SNGCHR
#SW09,aSWR
+12

;NO, TRANSMIT NEXT CHAR.

BNE
DELAY
GETREG

S+

;NO, SKIP IT
;DELAY BEFORE EXITING

TST

RTI

DLYSWH

;1S DATA 'SW9' SET?
JYES, INHIBIT DELAY
s ISSUE DELAY?
JRESTORE REG.'S
JEXIT

czl
czi

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PI
4102
4103
4104
4105
6106
4107
4108
4109
4110
41
4112
4113

6114
4115
4116
4117
4118
4119
4120
4721
4122
4123
4124
4125
4126
4127
4128
4129
4130
4131

4132
4133

4134
4735
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146

017526
017532
017534
017540
017542
017544

017546
017547
017550
017551
017552
017553

19-JAN-78 14:50

005737
001735
005037

104007
017546
000754
021
075
001
061
023
003

MACY11

032154

8 10
PAGE 97
30A(1052)
20-JAN-78 09:11
DL11 TRANSMITTER ROUTINE
TRANG:

032154

TRANGA:

TRANS:

032154

005737
001722
005037
005737
001413
005737
001404
012737
000407
012737
000403
012737
005037

023
000
000734

TRANSG:

017650
017652
017654
017660
017662
017664
017666
017670

104002
111101

TRANG:

020372

032154
032146

032136
017644

017635

017543

017636

017642
032146

017636

104003
000667
000000
017670
000000
020372
000000

TST

BEQ
CLR

TST
BEQ
TST
BEQ
TRANSA: MOV
BR
TRANSB: MOV
BR
TRANSC: MoV
TRANSD: CLR

:
TRANSE

LDPGMO

. +4
8R
: .BYTE
TRANSF

IADRSS8:

075

004737

LDPGMO

. +4
BR
.BYTE
IADRS?7: .BYTE
.BYTE
.BYTE
.BYTE
.BYTE

017554
017560
017562
017566
017572
017574
017600
017602
017610
017612
017620
017622
017630
017634
017636
017640
017642
017643
017644
017645
017646

104007
017642
000402
022

TST
BEQ
CLR

015434
SNGCHR:

.BYTE
.BYTE
BR
SAVREG
MovB
JSR

GETREG
BR

TRNBFO:

TRNBFQ
0

TRNEND:

:
TRANPT

.+500

TERMSW

TRAN3

TERMSW

TRNEXT

SEQ 0118

;ADDRESS SERIAL

;NO

;YES,

ADD CODE

DC1

sALERT SOURCE

DC3

JENABLE

TEAMSW

;SOURCE

TERMSW

JYES,

75
SOH
61
ETX

TRAN3

DSTSWH
TRANSC

REPTSW

TRANSB
#TRANS5G, TRANSE
TRANSD
#1ADRS8, TRANSE
TRANSD
#TRAN
, TRANSE
SF
DSTSWH
.+6
DC2
75
DC3
0

TRANSA

(R1) ,R1
PC.PDMSET

TRAN?7

1/0?
TO ADDRESS SOURCE

;MODIFIED BY USER
IT

SET!
IT
;NO, NORMAL TRANSM
INPUT SW.

ADDRESS DESTINATION

;CURRENTLY ADDR. A DST. MODULE?

TO ALERT DST.
;NO, SEND 'DCZ2'
;YES,USING REMOTE DST.?

;NO

JYES, DON'T ENABLE MY DST.
;YES,

SEND ONLY

THE

;SEND 'DC2’

JALERT DEST.
;MODIFIED BY USER

ADDR.

(ZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11
6147
4148
4149
4150
615
4152

4153
4154

4155
4156
4157
4158
4159

4160
4161
4162
4163

19-JAN-78 14:50

MACY11 30A(1052)

6175
4176
4177
4178
4179
47180
4181
4182
4183
4184
4185
4186
4187
4188

4189
4190
419
4192
4193
4194

SEQ 0119

Y2 22232233 222222322222 X232 2222322223232 222222220

000ttt sl

*ROUTINE TO REQUEST & SAVE MODULE ADDRESS TO BE USED FOR TESTING

;fi*t'tttttttttlttttttfittt'tt'Qtttttfiiiittitttt*itt*ttfi*ttt.*tti*tttttfi*t

020374
020376

020400
020402
020406

020412
020414
020420
020422
020426
020432
020436

XADRES: PRINT
MES30

104012

025263

104015
152700

005737
001403

ASEMBL

123700

002214

110037
110037
110037
000002

032134
017227
017277

001765

BI1SB
TST
BEQ
CMP8S
BEQ

000060
032132

MOVB
MOvVB
MovB
RTI

;TEXT °'MODULE ADDR.?’
;WAIT & DECODE INPUT

#60,R0

;CONVERT TO ASCII

;SERIAL INPUT?
;NO, ALLOW ANY ADDRESS

SIOSWH
.+10

JYES, CHECK AGAINST SERIAL [/0

IADRSO,R0O

;SAME, REQUEST IT AGAIN

XADRES

RO,MODADR

RO, SRCADR
RO,DSTADR

;SET UP SOURCE ADDR.
;SET UP PARAMETERS ADDR.
JYES,

EXIT

:fittQt*ttttttttttttt**ttttt*tt**t*tittitfit*tttttfittttfit**tttt*ttiitttiti

:SUBROUTINE ENTERED ON AN ILLEGAL TRAP. THE ROUTINE REPORTS WHERE IT

4165

6174

¢ 10
PAGE 98
09:11

DL11 TRANSMITTER ROUTINE

4164

4166
4167
4168
4169
4170
67
4172
4173

20-JAN-78

;TRAPPED

'FROM' AND WHERE

IT TRAP 'TO’.

:tttttt*fittfiti'fit*tttfittttttt*ttttttfitttfittttttfiitttfifittti'ttttttttt*ttt

020440
020444
020446
020452
020454
020456
020464
020466

020470

020472
020474
020502
020504
020506

011637
022626
011637
104012

024205

162737
104C14
032156
104012
024227
162737
104014
032162
000137

ERTRAP: MOV
POP2SP

032156

032162
000004

000002

MOV
PRINT

032156

032162

001376

MES5
SuB

PRTOCT
TOPC
PRINT
MES6

SuB

PRTOCT
FROMP(
JMP

(SP) ,TOPC

:SAVE LOCATION WHERE IT TRAPPED 'TO’

(SP) ,FROMPC

:SAVE WHERE IT TRAPPED FROM.

#4,TOPC

:TEXT 'ILLEGAL TRAP TO'
;TYPE

#2.,FROMP(

MONITR

'PC'

TRAPPED TO

sTEXT 'FROM'
;TYPE WHERE

TRAPPED FROM

JRETURN TO MONITOR

:ttttfi*tt'ttt*tttttk*ttifttttktttttttfit*ttfififi*tttttttfifit*tttitttt*

;SUBROUTINE TO REQUEST A/D CHANNEL FROM TELETYPE

;ttttttitttttt*tttttitttt'ttttifiifi**ttt**.*t*titfittiitttii.ttttttt

020512
020514
020516
020520
020526
020530
020536

104012

024633

104013
122737
003771
113737
000002

000064

015330

017231

XCHANEL :PRINT
MES17
TTYIN
CMPB
BLE
MOVB
RTI

464, INBUF

XCHANEL
INBUF , SOH1

;TEXT ‘CH.?!
JWAIT FOR INPUT
JLEGAL (H.

;NO, REQUEST NEW (H.
JYES, SETUP (H.
JEXIT

CZPMAC.P11

19-JAN=-78 14:50

MACY11 30A(1052)

20-JAN-78

D 10
PAGE 99
09:11

DL11 TRANSMITTER ROUTINE

4195

SEQ 0120

41%

;ttttttttttfittttttttfit

4197

*MODULE ERROR REPORTM ROUTINE.

Q201

"tttttttttttt*tttttttttttitttttttttttttt**t**ttttttt*tttttttttttttt't*t*

4198
4199
4200
4202

4203

4204
4205
4206
4207

4208

4209
4210
4211

4212

4213

4214

“THIS ROUTINE IS ENTERED WHEN A MODULE ERROR IS DETECTED.
IT PRINTS THE
“FAILING TEST NUMBER, THE MEMORY ADDRESS (MA) WHERE ERROR OCCURRED AND
*AN ERROR MESSAGE OBTAINED IN THE ERROR CALL+2
020540

020546
020552
020560
020564
020572

020574
020576
020600

020602

020610

042777

011637
017637
062716
032777
001012

104014
032206
104016

162737
104014

020612

032200

25}9

020616

000000

4218
4219
4220
42217
255%

020620
020624
020626
020632
020634

005777
100403
004737
000001
000002

4215

020614

000100

032200
000000
000002
020000

000002

160610

4231

4235

4236
4237
4238
4239

SuB

PRTOCT

:CLEAR RECVR.

ERREXT

INO, EXIT

(SP) .KSTOR3
a(SP) ,MESADR
#2, (SP)
#5W13,aSWR

JPRINT

MESADR: 0
160526

ERREXT:

021626

TST
BM]
JSR
WAIT
RT]

SYES
;PRINT FAILING TEST NO.

#2.KSTOR3

KSTOR3

104012

INTERRUPT ENABLES.

“SAVE 'PC’
:SAVE MESSAGE ADDRESS
“SET UP STACK TO EXIT
;PRINT ERROR MESSAGE?

'MA' WHERE ERROR OCCURRED

;PRINT ERROR MESSAGE
aSWR
.+10
PC, TTYENB

JHALT ON ERROR
*NO

JWAIT FOR

'CR'

TO CONTINUE

*SCOPE AND/OR ITERATION LOOP FOR EACH LOGIC TEST

;ttttttt.ttt*tfittttt*tttittitttttttttttt*ttt*ttt**ttttttttttttttttttitt

020636

104017

020640
020642

104005
032777

020652
020660
020662

020650

020670

020672
020676
020700
020702

020706
020710
020714
020720
020722
020726

4247

020736

4248
4249
4250

PRTOCT
TSTNUM
SPACE

#100,3RCSRO

;tt*ttttttttttttttttttttttttlttttttttttttttttttt!fittittttitttttttttfitt'

4240
4241
4242
4243
4244
4245

4246

BNE

032200

4225

4232
4233
4234

MOV
MOV
ADD
8IT

160560

4226

4229
4230

XERMES: BIC

020616

4224

4227
L4228

1222323323223 2833232222222 23282338322222322NR2282CR2 2]

020732

020742
020746
020750

XSCOPE:

040000

160502

032777
001015
023737

004000

160472

020772

020770

005237
022606
012646
012746

020772

001012

100011

000002
000177
005037
011601
011137
062716

017701

042701

020137
001005
104012

TSTTIKS

RECVRO
BIT

JCHECK FOR KEYBOARD FLAG

*ENABLE DL11 RECEIVER
“TEST Sw=14 FOR SCOPE

8IT
BNE
CMP

#40000, aSWR
SCOPEB
#4000, 3SWR
SCOPEG
SCOPEF , I COUNT

020710

INC
SCOPEB: (MP
MOV
MOV

SCOPEF
(6)+,SP
(6)+.
-(SP)
PIES
-(SP)

000060
020772

1%:
SCOPEG:

ARE TURN
SCOPEF
asP,R1
(R1), TSTNUM
#2.(SP)
aSWR,R1

:REPEAT TEST
*CLEAR COUNT
“SAVE TEST NO.

R1, TSTNUM
414

*HALT ON THIS TEST
*NO
SYES

032206
000002
160414

177700

032206

BNE

B8PL

RT]
JMP
CLR
MOV
MOV
ADD

MOV

BIC

CMP
BNE
PRINT

SCOPEG

#177700,R1

*YES,

SCOPE

*NO-TEST Sw=11 FOR ITERATION
SINHIBIT ITERATION
;COMPARE CURRENT COUNT TO MAX NUMBER

SEXIT-DONE

*INCREMENT COUNT
*REPOSITION STACK
-RESTORE PREVIOUS PROCESSOR STATUS

;READ SW'S

SCLR UNWANTED BITS

CZPMACO PDM70 DIAGNOSTIC TEST

4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
6270
4271
4272
4273
4274
4275
4276

020752
020754
020756
020760
020762
020766
020770
020772
020774

024437
104014
032206
104013
011637
000002
000000

MACY11

E 10
PAGE

30A(1052)
20-JAN-78 09:11
DL11 TRANSMITTER ROUTINE

;TEXT

MES13

PRTOCT
TSTNUM
TTYIN
MOV

020774

RTI

aSP,RETURN

RETURN:

AR AR

SEQ 0121
'BREAK AT SCOPE X'

JWAIT FOR

'CR'

TO CONTINUE

;SAVE SCOPE RETURN POINTER
JRETURN INLINE=-NEXT

TEST

;ITERATION COUNT
;COUNT LOCATION FOR ITERATION LOOP

ICOUNT: O
SCOPEF: O

000000
000000

100

AR A AR RN R AR RN AR RN AR

R AR

AR AR RN R

JRANDOM NUMBER SUBROUT INE

;THIS ROUTINE CREATES A RANDOM NUMBER, MASKS

;1T IN THE TRANSMITTER BUFFER AREA.

RN RN AR RR AN KRR AR

TO EIGHT BITS AND SAVES

"'t*t**tt*ttfi*ttii**tt*t*ttt*t*Qfitttfitttttttt**tt*ttt*ttiit*ttttfifitttttt

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
052711
032711
001002
052711
005721
022701
001326
005037
000002
072701
126543
101234

017670
021136
021140
021134
021134
021140
021136
021134
021136
021140
021140
100200
060000

021134
021134

XRANGN:

021136
021136
021140
021140

MOV
ADD
ADD
RCL
ADD
ADD
ROL
ADD
ADD
ROL
MOV

BIC

BIT
BNE
BIS
BIT

040000
000140
000040

020372
020372
RANA:

RANS :
RANC :

BNE
BIS
TST
CMp
BNE
CLR
RTI
072701

126543
101234

#TRNBFO,R1
RANS ,RANA
RANC ,RANA
RANA
RANA ,RANB
RANC ,RANB
RANSB
RANA ,RANC
RANS, RANC
RAN(

RANC, (R1)
#100200, (R1)
#62000,(R1)
i

#40000, (R1)
#140,(RT)
.+6
#40,(R1)
(R1)+
#TRNEND ,R1

+4
XRANGN
TRNEND

; SAVE NUMBER

;STRIPE NO. TO 7 BIT ASCII
;1S BIT S OR 6 HIGH BYTE SET
JYES, LEAVE AS IS
;NO, FORCE BIT 6.

;1S BIT S OR 6 OF LOW BYT SET

JYES, LEAVE AS IS

;NO, FORCE BIT '5'
;DONE
:TERMINATE BUFFER.

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

CZPMAC.P11

42%6
4297
4298
4299
4300
4301

4302

4303

4304
4305
4306

4307
4308
4309
4310
4311
6312
4313
4314
6335

4316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329

4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341
4342
4343

19-JAN=78 14:50

MACY11 30A(1052)

20-JAN-78

F 10
09:11
PAGE 101

DL11 TRANSMITTER ROUTINE

SEQ 0122

;t'ttttt*'t.fi'fi*t*'fiitiittit*tttt'tittfi**t***fit&t*ttt*ttfittittfittttti'tttttt

ENTERED FROM THE °'MONITOR’

;ROUTINE TO LOOP THRU /v SINGLE LOGIC SUBTEST.

;VIA SELECTING TEST *?°.

;t'tfi"ttt*'ti.tt**t.tt'titfitttfiittt**ttt*t*fitttt*t**'tttttttttt'tttitttt'tt

021142

021144
021146
021150
021152
021154
021160
021162
021164
021166
021170
021174
021202
021210
021216
021222
021230

SUBX:

104012

024257
104015

005700
001006
005737
001016

104012
031702
000766
010037

062737
017737
062737
005037
012737
000177

MES8
ASEMBL
TST
BNE

RO
SuBx1
KSTOR1

TST

032174

BNE

XLOOP

QMARK

032174
000002
010766
000002
020772
021216
016740

032174
032206
032174

020774

SUBX1:

XLOOP:

BR
MOV
ADD
MOV
ADD
(LR
MOV

SUBX+2
RO,KSTOR
#2 ,KSTOR1

aKSTORT,TSTNUM
#2 ,KSTOR1
SCOPEF
#XLOOP,RETURN

akKSTOR1

JMP

2222222222223

;TEXT 'TEST ADDR.? '
JYES, GET ADDR. FROM TTY,

;WAS AN ADDRESS ENTERED?
JYES, LOAD IT
;NO, WAS ONE PREVIOUSLY SET UP?

JYES, RUN OLD ADDRESS
;NO,

ILLEGAL ENTRY

;ASK FOR NEW ADDRESS
. SAVE ADDRESS
JADD *2' TO POINT TO INSTRUCTION AFTER SCOPE
;LOAD TEST NO.
JKEEP COUNT AT ZERO
;LOAD SCOPE LOOP RETURN POINTER

JJUMP TO TEST

2323232228823 2233383388808888 28R

2d80

R0t

RtRRA

;SUBROUTINE TO ISSUE N SPACES
N IS ONE PLUS VALUE CONTAINED IN SPACEX
JSPACEX IS CLEARED WITHIN THE SUBROUTINE, SO THAT A (CALL ON
;SPACE WITHOUT LOADING SPACEX ISSUES ONLY ONE

SPACE

;tttttttifi*tfi*ttttttfi*fittttttt***fifitt.*fitfi*titttttl*fitt*t*ttt't'ttt!'ttt

021234
021236
021242
021244
021250
021252
021256
021260
021262

104002
112701

104010

005337
003372
005037
106003
000002
000000

000240

XSPACE:

SAVREG
mMovB
TYPEIT

021262

DEC

BGT

021262

CLR
GETREG

SPACEX:

#240,R1
SPACEX

XSPACE+?2
LPACEX

RTI

;SAVE REG'S
sOUTPUT A SPACE

sDECREMENT COUNT

;LOOP IF NOT DONE

JRESET COUNT TO ZERO
JRESTORE REG'S
JRETURN

:ttti'tttttttttttt*ttttttttttttfiitttttttttfitfifittttt*!it*!tfiiiitt't"t."tti'

;SUBROUTINE TO TEST FOR THE KEYBOARD FLAG BEING SET

:ttttttfilttttttttttttttt'ttt*t****ttttttitfittt.tii**'Q"ttfiiti'ifiti'tttttt'fi

021264
021270
021272
021274

105777
100001

1064013
000002

160052

TKSFLG:

TSTB

BPL
;;}IN

aTKS

.+4

;FLAG SET?

;NO, EXIT
;YES, INQUIRE

(an
N )

CZPMACO PDM70 D]AGNOSTIC TEST

CZPMACO PDM70 DJAGNOSTIC TEST

CZPMAC P11

L3464
43465
4346
6347
4348
6349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371
4372
4373
4374
4375
4376
4377
6378
4379
4380
4381
4382
4383
4385
4386
4387
4,388

19-JAN-78 14:50

MACYT1

G 10
30A(1052)
20-JAN-78 (09:11
PAGE 102
DL11 TRANSMITTER ROUTINE
BR2AXZE22XX2ZXE2Z2Z2222

RS2

SEQ 0123

22282022222 22222202202t
RaRRRRal
sl d

*SUBROUTINE TO SETUP PARAMETERS FOR THE MODULE PROGRAM TESTS.

."ttfittt't'tttttttifi*t*tiittttt**tttfitfl'*tttttittttt*tttttttttttfit'tttttt

021276
021302
021306
021314
021322
021326
021334
021336

011637
011637
162737

013737
005037
012737
104005

020774
032124
000002
032124
020770
000001

XSETUP: MOV

MoV

032124
032224

SUR
MOV

CLR
MOV
2$EVRO

032206

000002

(SP) ,RETURN

JSET UP THE

#2 ,RVECTR
RVECTR,RESTRT

;SET UP THE RESTART ADDRESS
;AND THE 'C' POINTER

(SP) ,RVECTR

ICOUNT
#1,TSTNUM

°'SCOPE' RETURN ADDRESS.

;JSET UP TEST '1°
JENABLE DL11 RECEIVER

:tttttitttttttt*tfitttititttitt**itt*itfittittfiifittt*ttttttfi*tttttfittti*tt

JSUSROUTINE TO PRINT CHARACTER IN 'R1'

"tttttt!lti'*filtitttitttti'it*ttitfi*ttttfififi"i**ttttttttttttttitttttt*ktt

021340
021344
021350
021352
021356
021360
021364
021366
021370
021374

004737
105777

021626

005737
001404

032136

100375

157776

110137
104006

021366

110177

157754

000004

000002

XTYPIT: JSR

TSTB

BPL

TST

BEQ

MOVB
LDCHRO
XTYPE1: EOT

XTYPEZ: M?YB
R

PC,TTYENB

JENABLE

INTERRUPTS

aTPS

;PRINTER READY

REPTSW

;REMOTE

XTYPE?2

R1,XTYPE1

R1.,aTPB

;NO

:NO

:YES,

DST.?

SET UP TO TRANSMIT (HAR.

;PRINT (HAR.

ZXZZ2S 2222222322222 222222223333233

8238200200

R RARSRRRRRRRRRRRRRR
RS RS

*SUBROUTINE TO PRINT THE CONTROL CHARACTER IN 'R1'.

"tiit*tfittfifittit*ttfifiti't't'ttfitttittttfitfittfittti*tttttttttfittttt*tttttt

021376
021402
021404
021410
021412
021416
021420
021622
021426
021432
021434
021440

122701

001413
122701
001410
013746
104012

032030
012637
052701
104010

042701
000002

000012

XPRCNT:

000015
032122
032122
000100
000100

CMPB
BEQ
CMPB
BEQ
MOV

UPAROW

MOV
XPRCT1:

#12 ,R1
XPRCT1
#15,R1
XPRCT1
PRTSWH,=(SP)

)
+ ,PRTSWH
(SP

;CHAR - LF?
JYES
;CHAR., = '(R"?

;SAVE SW.

BIS

#100,R1

;MAKE

BIC

#100,R1

JRESTORE

TYPEIT

RTI

STATUS

CHAR.

PRINTABLE

ORGINAL

VALUE

C(ZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1]

H 10
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 103
DLT1 TRANSMITTER ROUTINE

4389
4390
4391

(39?2
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404

4405
4406
4407
4408
4409
4410
4411
4412
4413
4614
4415
4416
4417

4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436
4437

EZZZXIXXIZ22SERZZZ22Z

SEQ 0124

RS20
RRRRRRRRR
AR

*SUBROUTINE TO CHECK FOR AND SET UP A REMOTE DESTINATION MODULE.

"'tttt'tt.'*tttttfififi**t't'*'ttt!tttfifii'ttfitttt.tttt.t'tttttt'ittttttt't'

021447
021444
021450
021452
021454
021456
021464
021466
021470
021474
021500

110005

005037
104012

104013
122737
001003
104026

010037

110537

000207

000131

TTYIN

015330

CMPB
BNE
ADDRESS
MOV
mMovB

032140
017227

032140
032136

021524

005737
001402

032136

RTS

032136

SETRMT: MOV

104006

032136

012737

000007

#'Y, INBUF
.+10
RO,KSTORO

R5,SRCADR
PC

JWAIT FOR

INPUT

JWAS YES TYPED?
;NO

JYES, REQUEST IT'S ADDRESS
JSAVE

[T,

THIS ALSO SETS SOF TWARE

JSET UP A/D SOURCE ADDR.

.+6
PC,ADRDST

JNO, EXIT
JYES, ADDRESS IT

TST

REPTSW

BEQ
tggHRO

XNODLY: Q?Y

REPTSW

.+6

;JUSING REMOTE DEST.?

;OUTPUTTING TO THE DEMOTE DST.?

JNO, EXIT
JYES, SEND

°'EOT'

REPTSW
PC

JRETURN

#1,DLYSWH

;SET THE TRANS.

TO CLR MODULE

DELAY

;SUBROUTINE TO TRANSMIT A 'NULL' CHAR. TO THE PRINTER.

012737

000002

012746
012746
000002
012737
105777

000000
021576

005077
005337
001370
000002

157532

(000410

100375

INHIBIT Sw.

:l’ttttttlttttttfittil’tfitt'ttttttttt*tttfit*'tifiiitttttitfitttt'tttttttittttfifitt

"ttttt' (22232222222 23223223332 322222328228

021554
021562
021564
021570
021574
021576
021604
021610
021612
021616
021622
021624

SW.

JRETURN

BEQ
JSR

CLR
RTS

032144

;TEXT 'REMOTE DEST.?"'

;SET UP THE REMOTE DESTINATION SW.

RTS

CLRMOT:

; TEMPORARILY SAVE MODULE ADDRESS
;CLR SOFTWARE Sw.

KSTORO,REPTSW

TST

017234

000004
005C37
000207
000002

RO,RS
KSTORO

MES67

013737
005737
001402
004737
000207

021544
021552

027256

021502
021510
021514
021516
021522

021530
021532
021534
021536
021542

REMOTE: MOVB
CLR

032140

000011
157536

021262

XNULL:

MOV
BR
XNULLT: MOV
MOV

#2,SPACEX
XNULLZ
40,
=(SP)
s,
=(SP)

1%:
XNULL2:

#11,SPACEX
aTPS

RTI
MOV
TSTB

8PL
CLR
DEC
BNE
RTI

.4
aTPB

SPACEX

XNULLZ

;ENABLE

R 222032

RRRRERRRRRRRERRlR

INTERRUPTS

;TRANSMIT A NULL CHAR.

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC PN

19-JAN-78 14:50

MACY11 30A(1052)

R2ZZZ2XTX3Z222232222220RE2222222223238F322
8RS
RSRSSRlRRRlRRS

"SUBROUTINE ENABLE KEYBOARD INTERRUPTS.

4640
4441

4644
4445
4466
4447
4448
4449
4450
4451
4452
4453
4454

:t"tt'.fifitfi*it*iti*ti*'tt*"fifi*tfittfi*ltt'fiitttttttttttttttttttttttttttttttt

021626
021634
021640
021644
021646

012777
012746
012746
000002
000207

000100
000000
021646

4475
4476
4477
4478
4479
4480
4681

4482
4483

4484
4485
4486
4487
4488
4489
4490
4491

TTYENB: MOV
MOV
MOV

#100,aTKS
40,
-(SP)
s,
-(SP)

18:

RTI
RTS

JYES, ENABLE TTY INTERRUPTS
JENABLE INTERRUPTS

*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

;IS NEXT MESSAGE SWITCH

TYPED.

;% IS CRLF SWITCH

:@ IS END OF MESSAGE SWITCH

4456

4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
447"
4472
4473
4474

157506

;ttttQtttttttttlttt*tttttitttttttttttttttttttkfitt*t*tttttttfittitttt'tttt

4455

4457
4458
4459
4460

SEQ 0125

DL11 TRANSMITTER ROUTINE

4438
4439

4442
4443

20-JAN-78

[ 10
09:11
PAGE 104

:ttt't*t*fifi*ttttt*t*t*'tttttttttk*tttttttttttkfittttttttttttttttitt'tttti

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
021776
022000
022004
022006

104002

005037
005237
004737
017602
062716
112201
005701
001414
122701

001003

032152
032122
021626
000000
000002

XPRINT:

TYPER3:

104003

000002

005737
001350
122701

001402

TST

BEQ

(MPB
BNE

000004

032122
032152
032152

TYPER2:

000075

012701

000012

000733

TYPERT:

JENABLE TTY INTERRUPTS

J=NULL

a(SP) ,R2
#2,(SP)
(R2)+,R1
PRTEXT

JGET THE MESSAGE ADDRESS FROM STA(K
;SET UP STACK TO EXIT
;GET CHAR.
CHAP.?

JYES, EXIT

‘EOT'

BR
CMPB

PRTEXT
#137 ,R1

SEXIT
;TEST FOR

CMPS

#100,R1

;TEST FOR

'a’

BNE

CLR

TYPER3

TYPER1

PRT SWH

CLR

OPRTSW

RT!
TST
BNE

OPRTSW

GETREG

000045

104010

PRTEXT:

PC,TTYENB

JYES, PRINT

BEQ

000100

;SAVE REGISTERS ON STACK

;TEST FOR 'EOT’
sNOT EOT

000137

OPRTSW
PRTSWH

#4 ,R1
.+10

MESEOT

000743
012701
104010
104010

JSR

MOV
ADD
TYPERA: MOVB

104012

032106
000406
122701
0C1760
122701
001006
005037
005037

SAVREG
CLR
INC

CMPB
BEQ

TYPEIT
BR
TYPECL: MOV
TYPEIT
TYPEIT

MoV

TYPEIT
BR

TYPERA

;YES PICK UP NEXT MESSAGE ADDRESS.
JBRANCH IF NO EQUAL

JRESTORE REGISTERS FROM STACK.
;OTHERWISE EXIT
JINHIBIT TYPEQUT?
JYES, SCAN DATA

#45 ,R1
TYPECL

;TEST FOR X'
;1F = TYPE 'CR-LF’

TYPERA
#15,R1

JTYPE

#12,R1
TYPERA

;OUTPUT (HAR.
'(CR’

; INCREMENT BUFFER

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
4452
4493
6494
4495
L496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506
4507
4508

4509
4510
451
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534

MACYT1

30A(1052)
20-JAN-78 09:11
DL11 TRANSMITTER ROUTINE

10
PAGE 105

SEQ 0126

:ttttt*fit!tlifitfi*fitttfitt'tfitttttttti*ttti*fittttttttttttttt*fittttttt***tt

;SUBROUTINE TO TYPEOUT A '6°' DIGIT OCTAL NO. THE 'PC*' CONTAINS
;THE ADDRESS OF

'WORD'

TO BE TYPED

:tttttttfltt*ttttttt*fitfi'itttttttfitt*t'ititt*tttttfiittttttttiitttttttttt*

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

000000
000002
000006
000376

104002

000401
0061M
006111
006111

111102
163702

052702
132777
100374
110277

012737
005303
001355

XOCTPR:

MOV
MOV

022114
MOVEIT:

022114
000260
000200

157256

157252
000370

022114

BR
ROL

ROL
ROL
mMovB

BI(B
BIS
BITB

BPL
MovB
MOV

104003

000002
000376

JSR
SAVREG
MOV
ADD

MASK :

DEC
BNE
GETREG
RTI

PC,.TTYENB

a(SP) .R1

#2,(SP)
#6,R3
#376 ,MASK
YA
(R1)
(R1)
(R1)
(R1) ,R2

JENABLE TTY INTERRUPTS
;SAVE REGISTERS ON STACK
;THE ADDRESS OF WORD TO BE TYPED
;SET UP STACK TO EXIT
;MASK FOR FIRST BIT

MASK ,R2

#260,R2
#Zgo,arps
R2,aTPB
#4370 ,MASK
R3

MOVEIT

JPRINT

CHAR.

;MASK FOR NEXT

'5'

DIGITS

JRESTORE REGISTERS FROM STACK.

376

:ttttttttttt'titfitt*fi*fittttfitfit*fifit*ttttittttl*tt*tti**t'tttttttittt'ttt

sSUBROUTINE TO SET UP AN APPROXIMATE °'1°' SECOND DELAY.

:'tttt*fittttttt'fii**tttt'ttttl*tittti*fi**tttflfittttttttttttttttfi*tttttt*t

022116
022124
022126
022132
022136
022144
022150
022152
022156
022160

012737
000402
005037
004737
012737
005237
001375
005237
001372
000002

161000

032212
021626

177777

032212

032210

032212

032210

XDELAY:

MOV

BR
XDLAYL: CLR
JSR

XDLAY3:

MOV

INC
BNE
INC
BNE
XDLAY?2: RT]

#161000, TEMP?
+6
TEMP2
PC,TTYENB
#-1,TEMP

TEMP?2

XDLAY3
TEMP1

XDLAY3

JSET UP SHORT DELAY

JSET UP LONG DELAY
JENABLE TTY INTERRUPTS

CZPMACO PDM70 D]AGNOSTIC TEST

CZPMAC.PIY

19-JAN=-78 14:50

4535

6536
4537
4538

4539

4540
4561
4542
4543
4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556

4557

4558
4559
4560
4561
4562
4563
4564
4565
4566
4567
4568
4569
4570
4571
4572
4573
4574
6575
4576
4577
4578

MACY11

30A(1052)

20-JAN-78

K 10
09:11
PAGE 106

SEQ 0127

DL11 TRANSMITTER ROUTINE

:ttttttttttttt'titttttt"iititttfititti*tittt*t'tl*ttitt*tttttt*fittfititit

;SUBROUTINE TO PRINT THE DATA IN THE DL11 RECEIVER & TRANSMITTER BUFFER.

;tttt.ittitit.ttfitttitttt'ttfiktttfittltittfi*Qttiti'ttttttfi'fifitifitfi"!t't'

022162
022164
022166
022170
022172
022174
022176
022200
022204
022210
022212
022216
022220
022222

104012

PRTBF1:

005712
001003

PRTBFZ2:

03203¢

BNE

104012

MES9

024275

000411
004737
005037
112201
004737
105712
001373
000207

PRINT
CRLF
TST

021626
032142
015434

PRT1A:

PRT1B:
S

(R2)

JBUFFER EMPTY?

.+10

:NO, PRINT IT
JYES

;TEXT

'BUFFER EMPTY'

BR
JSR
CLR

PRT18B
PC.TTYENSB
FORMT1

JEXIT
JENABLE INTR.'S.
;'CR/LF' FORMAT Sw.

RTS

JRETURN

MOVB
JSR
TSTB
3NE

(R2) + ,R1
PC,PDMSET
(R2)
PRT1A

2EZZ22 2222223223222

:GET CHARACTER
JPRINT (HAR.
;DONE?

2288322228023

0282288228

222800t RRRRRRRRRRRRRRRd]

*SUBROUTINE TO PRINT THE CONTENTS OF THE DL11 RECVR. BUFFER.

;t'ttfittttttt'tttttttfitttt'ttfifi*ttfifitttttttttifittti*ttitt.iitiittttttltt

022224
022230

012702
000402

016234

RECBUF: MOV
BR

HRECBFO,R2
+4
TRNBUF

;SET UP BUFFER POINTER

;flttQittt*ttttittttfit*fi*itttittttfittttttt*t*ittt't'tt*tfifitttttttt*tttttt

;SUBROUTINE TO PRINT THE CONTENTS OF THE DL11

TRANSMITTER BUFFER

;tttttttt'ttttttfi*ttttfitttit*ttttttitfitfittt*fit*itfiti*‘itfltttt'tttttttitt

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

;fi*tittttttt'tttttttQtttittt't*itkfiititt'ttfitttitt.ittttfifitttttttttttittt

;SUBROUTINE, ENTERED AS A SUBROUTINE, TO PRINT CONTENTS OF THE DL11
sRECEIVER BUFFER.

;ttt'ttti'*ttfittttttfitltttttttttt'fi*ttttttt'.tt.it.itttttifi't‘ifi't*'*tiit

022246
022250
022254
022260
022262

104002

012702
004737
104003
000002

016234
022166

XPRTRB:

SAVREG
MOV
JSR

GETREG

RTI

HRECBFO ,R2
PC,PRTBF?

;SAVE REG'S
;SETUP BUFFER POINTER

JRESTORE REG.'S

CZ
4

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

4585

4606

4607
4608
4609
4610
4611
4612
4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624

4625
4626
L4627
4628
4629
4630
4631
4632

SEND ROUTINE

L 10

09:11

.SBTTL SEND ROUTINE

4579
4580
4581
4582
4583
4584
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605

20-JAN-78

MACY11 30A(1052)

EREARARRERRRRRRRRRANE

PAGE 107

SEQ 0128

AR RERARRARRARRAR
AR AR
R AR KRR AR R AR AR
RN RN

:THIS ROUTINE ACCEPTS CHARACTERS FROM THE TELETYPE AND TRANSMITS THEM
;TO THE DL11.
THIS ROUTINE USES '“E' TO ESCAPE BACK TO THE MONITOR.

;CONTROL € (*C) IS ECHOED AND SENT AS AN 'EXT':

;ttttttttttttt**tttttt*ttt't*tttiti*ttfifitttfi'ttt*ttttt*tt*it*ttittttfittt

022264
022266
022270
022272
022274
022300
022302
022306
022312
022314
022316
022322
022326
022330
022332
022336
022340
022344
022346
022352
022354
022356

SEND:

104035
104012

031700
104036

005237

032150

012702
004737
000001
000776

0176/0
021626

104005

113701
122701

001003

104000

000137
110112
112237
105012

004737
104006

SEND1:

015330
000005

NODLAY
INC
RECVRO
MOV
JSR

WAIT
BR

MOVB

(MPB
BNE

PRCNTR
JMP
MOVB

001376

02235¢4
015434
SEND2:

000000
000755

SETUP

:SETUP RESTART ADDRESS

PRINT
ASTRIC(

MOVB
CLRB
JSR
LDCHRO
O
BR

#TRNBFO,R2
PC.TTYENB

JWAIT FOR KEYBOARD & RECEIVER INTERRUPTS
:KEYBOARD INTERRUPTS RETURN .+2

#5,R1
.+10

JCHAR,
;NO

INBUF ,R1

;GET (CHAR.

= "“E'

:YES, TYPE IT
JEXIT
;SAVE CHAR.

MONITR
R1,(R2)

(R2)+,SEND?Z
(R2)
PC.PDMSET

;LOAD '0'

TO TERMINATE BUFFER

;PRINT (HAR.
:TRANSMIT (HAR.

SEND1

.SBTTL RUN ROUTINE

JINHIBIT TRANSMITTER DELAY
;SET SOFTWARE SW.
JENABLE DL 0'S RECVR
:SET UP BUFFER TO SAVE CHAR.S
SENABLE TTY INTERRUPTS

SENDSW

AR AR RERRAA KA R

RR AN

A AR

RN RN RN AR RRR AR R I A A KR AR AR AR R

;THIS ROUTINE IS USED TO LOAD AND RUN TRANSMIT TH: _SERS 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,
;THE USERS PROGRAM ISN'T LOOPED,

IS JUST LOADED AND RUN.

:ttfittttttlttttttttttfitt"t'lttttttttitttttitit*tfit*tttitttfittttttttt*tt

022360
022362

104012

RUN :

031700
104036

012746
012746
000002
104005

022426

017670
005737
001375
017701
005101
005201
001757
000775

NODLAY
MOV
MOV

000000
022400
1%:

104007

032132
156732

PRINT
ASTRIC

RT1
RECVRO

LDPGMO
TRNBF 0
TST

BNE
MOV
coM
INC
BEQ
BR

40,
“s,

~(SP)
-(SP)

JINVIBIT TRANS.
.ENABLE

DELAY

INTERRUPTS

JENABLE DL RECVR

SIOSWH

.<4
aSWR,R1
R1
R1
RUN+4
.~4

;LOAD THE USERS PROGAM FROM
s THE TRANSMITTER BUFFER
:SERIAL

[/0 INPUT?

JYES, STAY HERE
;LOAD THE SW.'S TO SET DELAY

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P1T

19-JAN~78 14:50

4633
4634

4640
4641
L642
LO643
4644
L4645
4646

LO47

4648
4649
4650
4651
4652
4653
4654
4655

RUN ROUTINE

M 10
PAGE

09:11

108

SEQ 0129

.SBTTL SUBROUTINES

4635

4636
4637
4638
4639

20-JAN-78

MACY11 30A(1052)

:'ttttttittifii*i*t.t*ttfitiitfittfittttttttttttfiktt*tttttttt'tttttttttttt

;SUBROUTINE WILL CONVERT °N' B(D WORDS (SEPARATED VIA COMMA'S)
;WHICH WERE STORED IN A TABLE VIA 'TTYIN'

TO OCTAL AND STORE THEM.

:Qtttt*itittttfittfitt!fi*tttttitt*tttttttttttfit*t*tt*ttfitttttt*ttttt**fltt

022430
022432
022436
022442
022446
022450
022452
022454
022460
022462
022466
22472
022474

104002

012704
012703
005037
005005

015330

022564
022566

032214

XBCDBIN:SAVREG
MoV
MOV

BCDBN1:

BCDBN2:

032214
000054

CLR

(LR

CLR
CLR

TST

BLE
DEC
CMPB

BEQ

000060

CMPB
BLT
CMPB
BGT
BI1C8B
MOvB
MOV
ASL
ASL

000071
000360

ASL

BCDEND:

032214

ADD
ADD
ADD
BR
TSTB
MOV
TST
BNE

GETREG

BCDERR:

001376

022572

# INBUF ,R4

#3(CDTAB,R3
BCDTAB+?
RS

R1
R2
CHRCNT
BCDEND
CHRCNT
#54, (R4)
BCDEND
(R4) ,#60
BCDERR
(R4) LA71
BCDERR
#360, (R4)
(R4)+,RS
R1
R1
R1
R2.R1

B(DTAB: 0
0
0
0

JSETUP ASCII STORAGE TABLE
;TABLE FOR STORAGE OF CONVERTED WORDS
JREG. TO STORE RUNNING TOTAL
;TEMP, STORAGE FOR 'R1'
;END OF DATA?
JYES,

EXIT

;DECREMENT CHARACTER COUNTER
;IS CHARACTER = TO ',"'?

;YES, DECODE NEW WORD
sTEST FOR LEGAL NO.

;STRIPE NG. TO B(CD
;SAVE NO. IN RO.
;SAVE CURRENT TOTAL
INX2
;NX4
:NX8
JNX9

R5.R1

JNX10
JN+NEW NO.

(RG)+
R1,(R3)+
CHRCNT
B8CDBN1

;UPDATE BUFFER
;SAVE CONVERTED VALUE & SETUP TO SAVE NEXT
sFINISHED?
;NO, CONVERT NEXT WORD

B8CDBNZ2

JYES, EXIT

RTI
PRINT

MES68

;SAVE REG.'S

MONITR

;TEXT "ILLEGAL DECIMAL NO.'
JRETURN TO THE MONITOR
JOCTAL STORAGE TABLE

(W4
czl

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC PN
4679
4680
4681
4682
4683
L684
4685
4686

4,687

4688
4689
4690
4691
4692
4693
4694
4695
4696
4697
4698
4699
4700
4701
4702
4703
4704
4705
4706
4707

4708

4709
4710
4711
4712
4713
4714

20-JAN-78
MACY11 30A(1052)
SUBROUTINES

N 10
PAGE 109
09:11

:ttt*fiitttt*tttit*tt*tttttttt*t*!ttt*t!tt*ttt**tt**ttt*tttttt**tttt**t*

;PRINT DECIMAL VALUE IN R2

:t*tt.tfittfitttt*tt*tt***titttttt*ittt*tt*tttt**tttttt*t*t*ttttttt*tfi*t*

022574
022600
022602
022606
022612
022620
022624
022626
022630
022632
022634
022640
022642
022644
022646
022650
022652
022654
022660
022662
022666
022670

022676
022702
022704

022706
022710
022712
022714
022716
022720

004737

021626

012703
012704
012737
012701
005201

177774
022712
000260
177777

104002

022706

SuB
BPL
ADD

161402
100375

062402
004737
005203
001366
104003
000002
005701
001006
022703
001403
013701
000405
012737
052701
104010

000207
000240
022712
001750
000144
000012
000001

XBINDEC:JSR
SAVREG
MOV
MoV
MOV
TYPT1:
MOV
TYPT2:
INC

JSR

022650

INC
BNE

GETREG

DEC2:

TST
BNE
CMP
BEQ
MOV
BR
MOV
BIS
TYPEIT

ZERO:

240

DECOUT:

177777

022706
000260
000260

022706

RT1

DECT:

DECPNT:

RTS

.+2
1000.
100.
10.

PC,TTYENB
#-4 R3
H#DECPNT+2
,R4
#260,ZERO
#-1,R1
R1

(R&) ,R?2
TYPT?
(R4)+,R2

PC.DECOUT

R3
TYPT1

K3
DEC)
#-1,R3
DEC1
ZERO,R1
DEC2
#260,ZERO
#260,R1
PC

SEQ 0130

czi

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
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
4764
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763

8 1
PAGE

09:11

20=-JAN-78
MACY11 30A(1052)
SUBROUTINES

R 2322222222222
32223 R

‘POWER FAIL HANDLER

110

X222 222222323232

SEQ 0131
2222

2222222222822 22222R2

22220300002 d Rl sl

;tttttt*tttt*t**tttfi'ifi"t.itt'*tt.tt'i*tttttittttt'ttttttttttttfi'tt"itti*tt'i

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

PWRFAL:

010046
010146
010246

010346
010446
010546
013746
010637
012737
000000
012746
012746
000002
013706
012637
012605
012604
012603
012602
012601
012600

000024
032210
022756

000024

000340
022770

PWRUP:

032210
000024

1%:

MOV

104021
104012

025161
000137

MOV
MOV
MoV
MOV
MOV
MO\
MOV
MOV
MOV
HALT
MOV
MOV
RTI
MOV
MOV
MOV
MOV

24,-(SP)
SP,TEMP1

A#PWRUP ,a#24

#3460,
s,

~(SP ;
-(SP

JINHIBIT INTERRUPTS

TEMP1,SP

(SP)+,a#264
(SP)+ RS
(SP)+ R4

(SP)+,R3

MOV
MOV
MOV

(SP)+,R2
(SP)+.,R1
(SP)+ R0

MES28
JMP

MONITR

NULL
PRINT

001376

RO,-(SP)
R1,-(SP)
R2.-(SP)
R3,-(SP)
R4 ,~(SP)
R5,-(SP)

;POWER UP DELAY

;ttttttitttt'tttttt*tttttt*'*tttfittttttttfit*ttfififitttt**i'*tttt*fi't'tfi*ittitttfii

sSUBROUTINE TO SAVE

'R1-RS’

ON STACK

;tttifi!ttttilfi*tttlttt*ttfittttt*tfitttttttittt*k*ttt.**fi**it*tittttt'tttfifitfit*ti

023026
023032
023036
023042
023046
023050
023052
023054
023056
023060
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)+,SAVEP(
(SP)+,SAVPSW
(SP) +,SAV2P(

(SP)+,SAV2SW
R1,-(SP)
R2,~-(SP)
R3,-(SP)
- (SP)
R4,
R5,=(SP)

SAV2SW, ~(SP)
SAVZ2PC,-(SP)
(SP)
- W,
SAVPS
SAVEPC,~(SP)

CZPMACO PDM70 DIAGNOSTIC TEST
19~JAN-78 14:50
CZPMAC PN
4764
4765
4766
4767

4768
4769

4770
W7
4772
4773
4774
4775
4776
w777
4778
4779
4780
4781
4782
4783

4784
4785
4786
4787
4788
4789
4790
479N

4792
4793
L4794
4795

4796

4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4,812
4813
4814
4815
4816
4817
4818
4819

MACY11

C 1
PAGE

09:11

30A(1052)
20-JAN-78
SUBROUTINES
2222222323232

2222232222382

111

SEQ 0132

3222222228222

282280 2

"SUBROUTINE TO RESTORE 'R1-RS' FROM THE STACK

ittt

;ttttl*ii.ttttitt*fi*tfifi*tfittt'*fi*ttttittittttitttfitt!tt'tttt'*t.ttttt.t'tttt'tt

023102
023106
023112
023116
023122
023124
023126
023130
023132
023134
023140
023144
023150
023154

012637
012637

012637
012637
012605
012604
012603
012602
012601
013746
013746
013746
013746
000002

032164
032166
032170
032172

XGETRG:

MOV
MOV

MOV
MOV
017
MoV
(027
(10)%
MOV
MOV
MoV
MOV
MOV
RTI

032172
032170
032166
0321¢

(SP)+,SAVEP(
(SP) +,SAVPSH

(SP)+,SAV2P(
(SP)+,SAVZSW
(SP) +,R5
(SP)+,R4

(SP)+,R3
(SP)+,R2
(SP)+,R1

SAV2SW,=(SP)
SAV2PC,~(SP)
SAVPSW,=(SP)
SAVEPC,~(SP)

;ttt*tt*tttttttt***tttfittttt**tt**fitttt*tt*fit*fitfitttttfittt*fitt*tfi'tiitttfittt

;SUBROUTINE TO WAIT FOR AND ASSEMBLE CHARACTERS INPUT
;FROM THE

KEYBOARD

INTO OCTAL NUMBERS.

:tt*fi***ttittttttt*t*ttttit*fi*tfitit*tttfi*lttit*tfit*fitt*tttt***tttttttttttttt

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
005004
122711

001762
142711
152104

005337
003003
005237
000207
006304
006304
006304
000760

XASEMB:

032214

015330
023232

TTYIN
CLR
TST
BNE
RTI
MoV
JSR

XASEM1: MOV
RTI

WORD2:

032214
000002

000054
000370

032214

032274

STRIPN:

TSTB

ASR
ASR
ASR
DEC
BEQ
MOV
ADD

CLR
(MPB
BEQ
BICB
BISB
DEC
BGT
INC
RTS
ASL
ASL
ASL
BR

RO
CHRCNT
.+

;JGET CHAR.'S FROM KEYBOARD

# INBUF ,R1
PC,STRIPN

:ANY CHARACTERS ENTERED
JYES
;NO, EXIT
;SET UP (CHAR. BUFFER POINTER
:STRIPE NO.

(R1)+

;ADVANCE POINTER PAST COMMA

CHRCNT
XASEM1
R4 RO
#2,(SP)
R4
#54,(R1)

;DEC. CHAR. CNTR.
;COMMA LAST CHAR.?

R4 RO

R4
R4
R4

WORD?2

#370,(R1)
(R1)+ R4
CHRCNT

.+10

CHRCNT

R4
R4
R4

JRETURNS HERE IF ONLY 1" NO.

;NO, SAVE 1ST NO.
JSET UP STACK TO EXIT

;CHAR, = COMMA?
;YES,

SAVE

1ST NO.

;NO, STRIPE NO. TO OCTAL
sFINISHED?
sNO
; CHARACTERS WERE ENTERRED
JYES,

EXIT

STRIPN+2

;ttttfl*t.ifitttttttttttttttitti*tfi'iiiiitttttitttttItttttttttttttt

;SUBROUTINE TO OUTPUT CURRENT SWR VALUE

[F USING SOF TWARE

CZPMAC.P11

4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839

19~-JAN-78 14:50

MACY11 30A(1052)

20-JAN-78

SUBROUTINES

09:11

PAGE 112

SEQ 0133

:SWR AND TO ASSEMBLE CHARACTERS INPUT FROM THE KEYBOARD

;TO FORM THE NEW SWR V/\LUE.

3222223 2X2322332333 2322832222223 222

023274
023302
023304
023312

023314
023316
023320
023322
023324

023326
023330
023332
023336
023340
023344
023346
023350

022737
001021
022737
001014

000176

001352

000176

001352

104012

UPDATE: (MP
BNE
UPDAT1: (MP
BNE
PRINT

MES89
PRTOCT

030415
104014

104012

005737
001402
010037
000207
104013

000207

032214

000176

1%:

ASEMBL
TST
BEQ
MoV

CHRCNT
1$
%0,

RTS

TTYIN

RRRRRsRARRldl

;JUSING SOF TWARE SWR?

sNO-BRAI(H

JUSING SOF TWARE SWR?

sNO-BRANCH

JYES-PRINT ''SWR="'

JPRINT "NEW SWR=''

MES90

030424

20R

sPRINT VALUE

SWSWR

000176
104015

#SWSWR, SWR
A
#SWSWR, SWR
1%

232222282

SWSWR

;WAIT AND DECODE
;WAS A NEW VALUE ENTERRED?
;NO-SAVE OLD VALUE
;YES=USE NEW VALUE
JEXIT

;WAIT FOR (R
JEXIT

(e Nen]

(ZPMACO PDM70 D]AGNOSTIC TEST

CZPMAC P11
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853

4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4,876
4877

19-JAN-78 14:50

MACY1

30A(1052)

20-JAN-78

SUBROUTMINES
B

EN
09:11
PAGE 113

SEQ 0134

2222222322232 2222222222228
2220222222202
a0 2222 RS A

"SBTTL MESSAGES

'-ttttttt.tttt'tttttt'tti'tiit*ttti.tifitllittttttt'tit".tt'tthtttt'

023352

.BYTE

023402
023410

000
045
040515
046504
044504
052123
051505

023415
023422
023430
023436
023444
023452
023460
023466
023474

045
044440
020105
053517
047524
052040
051505
052040
045

054524
020116
047506
047111
051040
042510
051111
C51505

042520
044124
046114
020107
047125
042040
042105
035124

HEADER:

.AS(I!

;XTYPE

115

031467
046440
026101
030470
031467
041040
020054
040463
034063
033515
020054
043463
031467

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

TSTLST:

.ASCII

;M7380A, M7381A, M7381E, M7382A, BC(DIO, M7383A, M7383C, M7383R, M7383G,

LASCII

;XM7384A, M7384E, M7385A, M73851, M73385T, M7386A, M7387A, M7388A, .

LASCII

;M7388F ,%M7377A ,M7378A, SUBX, RECBUF, TRNBUF, SEND, RUN,d;

023353
023360
023366
023374

023475
023502
023510
023516
023524
023532
023540
023546
023554
023562
023570
023576
023604
023612
023620
023626
023634
023642
023650
023656
023664
023672
023700
023705
023712
023720
023726
023734
023742
023750
023756
023764
023772

026101
030470
031467
0466440
026101
047511
034063
033515
020054
051063
034063
046445
026101
032070
031467
046440
026111
032470
031467
046440
026101
034070
115
026106
033467

033463

052523
042522
020054
043125
042116
026116

041445
030103
033455
043501
041511
020124

050132

046440
026105

032470
031467
046440
026124
033070
031467
046440
026101
031467
046445
026101
040470
054102
041103
051124
020054
020054
100

050040
020060
047516
052040

TITLE:

L.ASCI]

;XXCZPMACO PDM-70 DIAGNOSTIC TEST a.

100

042523

052522

IN THE FOLLOWING TO RUN THE DESIRED TEST:%.

CZPMACO PDM70 DIAGNOSTIC TEST

20-JAN-78

PAGE 114

SEQ 0135

045
020107
046101
044440
040506
352120
040040

051525
042523
044440
052116
042503
047511

047111
044522
047457
051105
047440
037516

MESO:

LASCII

;XUSING SERIAL [/0 INTERFACE OPTION? a.

4907
4908
4909

024042
024050
024056
024064

047503
020114
042514
027124

052116
047515
052040
040045

047522
052504
051505

MES1:

.ASCII

. CONTROL MODULE TEST.Za;

4913

024070
024076
024104
024112
024120
024126

042045
042522
041040
020122
046106

030514
053103
043125
053117
053517

020061
027122
042506
051105
022456

MES?2:

LASCII

;%DL11 RECVR, BUFFER OVERFLOW.Z%d.

024127
024134
024142
024150
024156
024161
024166
024174
024202

123
020114
042101
020123
022456
104

051105
027511
051104
042526
100
030514
051105
051105
100

040511
020117
051505
052123

MES3:

LASCII

;SERIAL /0 ADDRESS TEST.Z%a.

020061
052522
047522

MESS:

LASCII

;DL11 OVERRUN ERROR.Q;

045

046111
020114
052040

042514
051124
020117

MESS:

LASCII

:XILLEGAL

4910
4911
4912

4914
4915
4916
4917
4918
4919
4920

4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4964
4945
4946

4947
4948
4949
4950
4951

024205
024212
024220
024226

100

053117
020116
027122
040507

050101

100

TRAP TO a;

024227
024234

040
040040

051106

046517

MES6:

LASCI1

024236
024244

051505
050115
022456

020124
042514

MES7:

LASCII

;XTEST COMPLETE.Zd;

024252

052045
047503
042524

024257
024264
024272

045
040440
020077

042524
042104

052123
027122

MESS:

LASCII

JXTEST ADDR.? Q;

024275
024302
024310
024316
024324
024332

102
020122
050115
051045
020124
042514

043125
05151
054524
026505
067515
040440

042506
042440
040056
042523
052504
042104

MES9:

LASCII

JBUFFER

MES10:

LASCII

J%RE-SET MODULE ADDR.

100

4906

b-3

023775
024002
024010
024016
024024
024032
024040

FROM @;

100

IS EMPTY.a;
TO

*17°(OCTAL).

~AMMmMMMMmMMMmmMMmmMmmMMmmMmMMmMMmMmMMmMMMInNMbeEaEeEeEEerE
e e DB DB DD

4896
4897
4898
4,899
4900
4901
490°
4905
4904
4905

ME SSAGE
S

09:11

p--B-B-15-35-15
“SNen Fanl

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

MACY11 30A(1052)

4952
4953
4954
4955
4956
4957
4958
4959
4960
4961

4962
4963

4964

4965

4966
64967
4968
4969
4970
4971
4972

4973
4974

4975

4976
4977

4978
4979
4380
4981
4982
4983

024340
024346
024354
026362
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

027122
030447
052103
040040
027501
051104
043516
027124
101

046101
044524
051505
045
020113
047503
044445
020124
050115
020117
044502
052117

020104
045
042526
042520
051114

046125

020104
040122
027501
042520
046111
042524
053045

MACY11 30A(1052)

ME SSAGE
S

20-JAN-78

6 1
09:11
PAGE 115

052040
023467
045101

020117
047450
027051

020104
051505
052040

042101
044523
051505

MES11:

LASCII

;A/D ADDRESSING TEST.a;

042057
041111
067117
027124
051102
052101
042520
051516
020104
051105
047111
020124
020047

041440
040522
052040

MES12:

LASCI]

;sA/D CALIBRATION TEST.a;

040505
051440

MES13:

LASCII

;XBREAK AT SCOPE Q.

051105
052512
052040
044510
042447
047101

MES14:

LASCII

;XINSERT D JUMPER TO INHIBIT

047515
046525
041440
042117
0467101
042524

MES14A:

LASCII

s XREMOVE JUMPER, (LR MODULE AND ENTERa.

020104
052101
052111
052123

042522
04111

MES15:

LASCII

;A/D REPEATIBILITY

20077

MES16:

LASCII

(XVSF? @

027110

7
0200/

MES17:

LASCId

JCH.? @

100

137
042522
045040
026122
046440
020105
047105

043123

100

040040

TEST.a;

020131

140056

024633
024640

100
103
100

024641
024646
024654
024662

107
041501
054503
027124

044501
052503
052040
040045

020116
040522
051505

MES18:

LASCII

:GAIN ACCURACY TEST.Z%d;

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

04711
023527

023440
040056

MES20:

LASCII

JGAIN 'LOW'.3;

024730
024736
024744
024752
024760

053523
053040
042507
052101

052111
046117
047040

044103
040524
043505
027105

MES21:

LASCI]

;SWITCH VOLTAGE NEGATIVE.a:

100

SEQ 0136

053111

‘'EOT'

AND _;

lolviclo N o latatalnlinlininininininininininisisininininisininialiale]

CZPMACO PDM70 DJAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC L1

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

5047

5048
5049
5050
5051
5052

5053
5054
5055

5056
5057

5058
5059
5060
5061
5062
5063

02474°
024766
024774

046447
023515

107

044501
042105
040056

020116
052511

MES2?:

LASCII

;GAIN "MEDIUM®.Q;

025000
025006

040507
044510

047111
0464107

023440
040047

MES?23:

LASCII

:GAIN 'HIGH'a;

025014

051445
020131
030071
044124

050125
027053
020126
057440

046120
034461
044527

MES24:

LASCII

;ASUPPLY +.1990V WITH _;

025042
025050

050" 75
030053
030071
044124
050125
030053
027126

046120
030056
020126
057440
046120
030056

MES24A:

LASCII

;XSUPPLY +0.01990V WITH _;

MES?Z2S:

LASCI1

;%SUPPLY +0.000v.a.

025106

051445
020131
034461
044527
051445
020131
030060

025113
025120
025126

045
051122
040507

047111
041505
047111

047503
020124
040041

MES?26:

LASCII

;XINCORRECT 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:

LASCII

047503
020104

MES?8:

LASCI]

;XRECOVERED FROM POWER FAILURE

025233
025240
025246
025254
025262

102
050116
042104

042103
052125
042522
051505

044440
040440
051523
027124

MESZ29:

LASCI!

;BCD INPUT ADDRESS TEST.a;

025263
025270
025276
025303

045
042514
027122

047515
040440

052504
042104
100
0414640
051440
057440
047117
020110
051524
100
047440
052111

MES30:

LASCII

;XMODULE ADDR.? a:

MES3T:

LASCI]

JSET CUST. SW.'S _;

MES31A:

LASCII

JALL ON WITH INPUTS HIl.®;

MES31R:

LASCII

JALL OFF WITH INPUTS HIl.a;

025022
025030
025036

025056
025064

025072
025100

025310
025316
025324
025332
025340
025346
025353
025360

100

052040
100

123

051525
027127
046701
053440
047111
044040
101
043106

042522

042522
046517
051105
052514
041040
046114

020077

052105
027124
051447
020114
052111
052520
027111
046114
053440

SEQ 0137

100

LOW

AVG

5016
<017

ME SSAGE
S

H 11
(09:11
PAGE 116

HIGHa;

050040
043040
042522

020131
020531

- BY GOLLY:!a;

lvivivivivielivivivivivlvivivly]

5008
5009
5010
5011
5012
5013
5014
5015

19-JAN=78 14:50

20-JAN-78

mmmmmmmm o

CZPMAC PN

MACY11 30A(1052)

CZPMACO PDM70 DJAGNOSTIC TEST

CZPMA( L1

VOO NO NS WN—=O

b
) —d —d
)
b
——h

PSP
G
N

(L RV LU LV, I LU AV LV, LU, AV, |

5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085

025366
025374
025402
025403
025410
025416
025424
025432
025434
025442
025450
025456

025463
025470

025474
025502
025510
025516
025524
025526

025534
025542
025550
025556
025557
025564
025572
025600
025606
025612
025620
025626
025631
025636
025643
025650
025656
025664
025672
025700
025706
025714
025722
025726
025734
025742

025750
025756
025764
025772
025775
026002
026010
026016
026024
026032

30A(1052)

20-JAN-78

I N
PAGE 117
09:11

TEST

MACY11

020110
051524

047111
044040

052520
0271

124

020117
067122
047117
043106

046101
052101
023040
051447

MES31C:

LASCII

;7O ALTERNATE CN & OFF'S.a;

020114
05211
052520
027117
046114
040056
020104
020124
044503
042524

047117
020110
051524

MES31D:

LASCII

;ALL ON WITH

047440

MES3TE:

LASCI1

SALL OFF.a;

047111
054105
042523
052123

MES3?2:

.ASCII

;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

MES34:

LASCII

; XEXAMINE OUTPUT LINES FOR _

047514
023461

MES35:

LASCII

;ALL

053105
020104
041523
047506
052125
047504
046046
050131
052040
052123
040056
054505
027504
040514
052504
042104
052040

051105

MES3/:

LASCII

;REVERSED _;

050117
020122
052520
042516
020047
020105
020117
051101

MES38:

LASCI1

;XSCOPE FOR 'OUTPUT DONE HEL'

047502
044504
020131
042514
042522
051505

MES39:

LASCII

; XKEYBOARD/DISPLAY MODULE ADDRESS TEST.a;

051447
046040
052040
050116
050117

040440
040505
042510
052125
047105

MES40:

LASCI]

:1'S AND LEAVE

(ZPMACO PDM70 D]AGNOSTIC

19-JAN-78 14:50

100

042524
020105
047440
040056
046101
053440
047111
046040
101

043106
041502
052520
051105
020122
040056
0461502
050124
042104
052040
100

045
04711
050124
047111
051117
046101
044507
027123
122

042523

045
020105
047447
020124
044040
052050
051136
042522
024524
045445
051101
050123
047515
040440

051523
027124

061
042116
042526
044440
020123
040056

100

ME SSAGE
S

SEQ 0138

INPUTS L0.&;

046040
043040

137

LOGIC

1°S.a;

THE

(TYPE “R TO RESTART).a;

INPUTS OPEN.Q;

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC PN

5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
513
5172
553
5134
5135
5136
5137
5138

5139

5140
5141
5142
5143
5144
5145
5146
5147
5148
5149
5150
5151
5152
5753
5154
5155
5156
5157
5158
5159
5160
5161
5162

5163

5164
5165
5166

5167
5168
5169
5170
5171
5172
5173
5174
5175

19-JAN-78 14:50

026034
026042
026050
026056
026064
026072
026100
026106
026111
026116
026124
026132
026140
026143
026150
026156
026161
026166
026174
026202
026210
026215
026222
026230
026236
026242
026250
026256
026264
026272
026300
025305
026312
026320
026326
026334
026342
026350
026352
026360
026366
026374
026401
026406
026414
026422
026430
026436
026444
026452
026460

026462
026470
026476
026504
026512

023461
020104
046101
052520
046101
05210

020123
047107

20-JAN-78

09:11

1
PAGE 118

MACY11

30A(1052)

067101
020104
047111

MES4LOA:

LASCi]

;1'S AND GND ALL

MES4O0B:

LASCII

JALTERNATE 1'S & 0'S.a;

MESSAGES

SEQ 0139

INPUTS.a;

020114
051524
042526
020105
020046

040056
047122
023461
023460

051447
027124
054105
047131

040056
047440
027124
027103

MES4T:
MES4?:

LASCII

TINT. OR EXT. SYNC.? @:

102

042103
052040

044440
051505

MES43:

LASCII

;BCD 1/0 TEST.a:

103

040510
051105
0460440
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

MES4G:

LASCII

s CHARACTER I/0 ADDRESS TEST_

MES4S:

LASCII

;D/A ADDRESSING TEST.a;

042520
023440
046040
043047
023514

MES46:

LASCII

;XSCOPE FOR 'PROG L' & 'FLOP L' LO.Q:

042520
023440
046040
023040
050117
047514

MESS7:

LASCII

;SCOPE FOR

050117
020122
020120
027111
047503
051117
050117
047514

020105
043047
023514

MES4S:

LASCII

:SCOPE FOR ‘FLOP L' HI.a.

ME S49:

LASCII

;SCOPE FOR 'FLOP L' LO.a;

020056
05257
043040

042520
023440
046040
040056
020113
030047
050124
051117

MESS0:

LASCII

s CHECK CH.

'0' OUTPUT FOR _;

041505
020056
052517
043040

020113
030447
050124
051117

MESST:

LASCI1

;CHECK CH.,

*1*

020123
027123

060
04671M
020122
051440
020077
047457
027124
052103
047457
042522
051505
104

042104
047111
052123
051445
043040
051120
020047
047514
046040
123
043040
051120
020047
023440
046040
040056

041523
047506
047514

044040
123
043040
046106
020047
044103
044103
020047
052125
057440
044103
044103
020047

052125
057440

100

100
100

041505

100

LASCII

;0'S.a;

'PROG L'

'FLOP L'

OUTPUT FOR _;

LO.Q;

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMA(C P11
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189

5190
519
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221

5222
5223
5224
5225
5226
5227
5228
5229
5230
5231

026514
026522
026530
026536
026544
026552
026560
026566
026574
026576
026604
026612
026620
026626
026634
026642
026650
026654
026662
026670
026676
026704
026705
026712
026720
026726
026734
026742
026750
026756
026762
026770

30A(1052)
MESS?Z:

MESS8:

LASCII

;D/A VALUES(X,Y)? Q;

MESS9:

LASCII

JXSET ALL DATA SW.'S TO '0°'.Q;

054514
054105
046101
027103

MES60:

LASCII

;SUPPLY AN EXTERNAL

042520
052040
043511
042047
042522
040440
042510

MES61:

LASCII

;SCOPE FOR THE SIGNAL

LASCII

;CH.'S "0 & 1' OUTPUTS FOR 5 USEC RISE TIMES.a;

020101
051505
037451
052105
042040
053523
047524
040056
050120
020116
047122
047137

123
043040
042510
040516
052101
042101
042116
045503
044103
030047
020047
052125
020122
041505
020105
027123

047503
051117
051440
020114
020101
026131
041440
022440
023456
023040
052517
020123
020065
051040
044524

047457
022524
104

042101
053040
040040
047111
052040
031467
040505
046440
020105
052111
042532
042524
050042
045517

042523
042510
033470
026504
042117
020046
040511
051440
027115
047522
020042

SEQ 0140

040526
054050
040040
040440
052101
023456
023440

040126
040126
040126
040126
040126
054105
042523
052123

100
046124
052040
100
030514
051522
041505

K 11
09:11
PAGE 119

MESS4:
MESSS:
MESS6:
MESS7:

030060
030461
031062
032064
034070
020101
044503
042524

100

ME SSAGES

20-JAN-78
.ASCI )|
.ASCI I
.ASCI I
.ASC] 1
LASC] 1
LASCI 1

027060
027061
027062
027064
027070
027504
051105
020122
040056
027504
052514
0564454
051445
046114
020101
020123
023460
052523
040440
042524
051440

124

027174

MACY11

MESS53:

020123
030440
050124
047506
051525
05151
042515

;8.88va;

;D/A EXERCISER TEST.Q;

SYNC.a;

‘'DATA READY, AND CHECK %

044440
051505

MES62:

LASCil

;TTL

020061
026056
037456

MES63:

LASCII

.DL11 ADRS., VEC.? o

052122
046440
051040
047111
046125
04711

MES64:

LASCII

; INSERT THE M7387 READ-IN MODULE & INITIALIZE SYSTEM.Xa;

MES6S5:

LASCII

;"PROM OK'' REMOVE

044514
051531
040045
020115
042522

I/0 TESTXA;

THE M7387.%a;

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC P11
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262

027202
027210
027216
027223
027230
027236
027244
027252
027256
027264
027272

047515
042510
033470
123
020114
047111
041501
052123
042522
042040
040040

042526
046440
022456
051105
027511
042524
020105
040045
047575
052123

027274
027302
027310
027316

046111
020114
040515
020056

027323
027330
027336

MACY11 30A(1052)

ME SSAGES

20-JAN-78

L 1
09:11
PAGE 120

SEQ 0141

052040
031467

100
040511
020117

MES66:

LASCII

;SERIJAL 1/0 INTERFACE TESTZa;

042524
037456

MESG7:

LASCII

JREMOTE

042514
042504
020114
037477

040507

MES68:

LASCII

;ILLEGAL DECIMAL NO.

050
052517

047111
042523

044055
027051

MES69:

.ASCI1

; (IN-HOUSE)
. d;

027337
027344

050
024504

044506
040056

046105

MES70:

LASCII

;(FIELD).Q:

027350
027356
027364
027372
027400
027406

04711
040504
042524
052101
052123
052117

052520
040524
046522
020105
053440
022456

020124
020054
047111
042524
042457

MES71:

LASCII

;INPUT DATA, TERMINATE TEST W/EOT.Za:

027413
027420
027426
027434
027440
027446
027454
027462
027470
027473
027500
027506
027514
027520
027526

105
042516
047506
040524
047105
043516
042040
054501
026124
122
052111
042532
030067
041505
051505

040530
023440
020047
040056
042524
052040
051511
052040

044515
044506
040504

MES72:

LASCII

JEXAMINE 'FIFO' DATA.Q:

044522
042510
046120
051505

MES73:

LASCII

JENTERING THE DISPLAY TEST,

026505
040511
050040
040056
047510
026124
051117
042524

047171
044514
046504

MES73A:

LASCII

JRE-INITIALIZt PDM70.9;

052040
057440
043501
052123

MES74:

LASCII

JECHO TEST, _

MES?75:

LASCII

;STORAGE

042523
051104
040045
033463
047506
044524
042117

020124
051505

MES76:

LASCI]

;RESET ADDRESS %a;

040470
047125
047117
046125

MES77:

LASC!]

:M7378A

027534
027542
027550
027552
027560
027566
027572
027600
027606
027614

100

052123
020105
057440
042522
042101
020123
033515
020040
040504
046440

040

043122
042524

044503
047516

DST.? Q;

?7q;

100

TEST _;

FOUNDATION MODULE

TEST.

%a;

5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300

027622
027630
027634
027642
027650
027656
027664
027670
027676
027704
027712
027720
027726
027734
027742
027750
027756
027764
027767

027774
030002
030010
030016
030024
030032
030040
030046

020105
020056
052520
050117
041117
050040
020070
051525
052040
052111
020115
051505
033515
051040
020105
046101
052040
022440
040
052103
024040
042506
053523
023440
051101
020105
047111
027051
100
110
051101
020105
047122

030202
030210
030216
030224
030232

030236
030244
030252
030260
030266

030274
030302
030304

047503
042525
042522
047515
044527
040045
042523
041517
047117
045503
046125
030440
046111
041505
022456
022445
051440
020110
020106
044103
020117
040045
022445

MACY11 30A(1052)

ME SSAGES

042524
040045
020124
020105
020105
047111
057456
020105
020117
043040
052523
027124
033463
046505
042523
0444-0
051505

052123

042523

20-JAN-78

09:11

PAGE 121

SEQ 0142

041523
051120
047117
033440

MES78:

LASCII

;PUT SCOPE PROBE ON PIN 78

042536
054105
047522
052102
040040
040467
052117
044522
047457
027124

MES79:

LASCII

JUSE “E TO EXIT FROM SUBTEST. a;

MES80:

.ASCI1

:M7377A REMOTE SERIAL

042514
031061
042516
020051
044103
053050
046102
046522
051117
037122

MES81:

LASCII

; SELECT 012 (LINEFEED) SWITCH 'V'(VARIABLE TERMINATOR).<(R>d;

041440
043501
052524
020117
047111
040045
020124
051440

MES8C:

LASCII

JHIT CARRIAGE RETURN TO CONTINUE.Z%%a;

MES83:

LASCII

;RESCT MODE

020124
020113
041440
046440
020105
030060
044514
047117
057445
051440
044527
030440
053523
050040
047117

046103
020063
047514
042117
047524
046440
051440
051504

MESS84:

LASCII

;SET CLOZK 3 ON CLOCK MODULE TO 100 MILLI SECONDS.X%_:

052105
041524
047440
052111
052040
020056

MES85:

LASCII

;%% SET SWITCH

051440

051124

MES86:

LASCII

;X% STRAP QUT EOT<CR>Xa;

100

020040
044514
042105
052111

023526

040511

042524
052101
041474

052111

044522
042522
052040
052116

022456
042523
042504
041524

._;

[/0 TEST.

%d;

SWITCH.ZXa;

027110

1 OF SWITCH P TO ON. %a.

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

CZPMACO PDM70 D]IAGNOSTIC TEST

CZPMAC P11

19-JAN-78 14:50

MACY11 30A(1052)

ME SSAGES

20-JUAN-78

09:11

PAGE 122

052125
041474

050101
042440
037122
022445
042526
045040
036122
042522
047515
0404490
051523
022476
015
000075
005015
051440
023440
053440
020124
047122

047440
052117
040045
042522
042440
046525
051103
042523
052504
042104
036049

047515
052117
042520
040076
020124
042514
042522
051103

MESS87:

LASCI1

;XXREMOVE EOT JUMPER<(CR>a;

MESS88:

LASCI1

;RESET MODULE ADDRESS <(CR>Z%a.

051412

051127

MES89:

LASCIZ2<15><12>/SWR=/

047012
051127

MESF0:

JASCIZ2<15><12><12>/NEW SWR=/

ERR1:

LASCII

;

042105

053505
000075
023530
023516
052524
022456

030471
030476
030504
030512
030520

040
052047
051105
042522
042117

044504
042440
040440
051523
027105

047104
052116
042104
046440
040045

ERR?Z:

LASCII

; DIDN'T ENTER ADDRESS MODE.Z%a;

030526
030534
030542
030544
030552
030560
030566
030574
030602

042040
051105
040045
040440
051523
051117
047062
043517

052101
047522

020101
027122

ERR3:

LASCII

; DATA ERROR.Z%a.

042104
042440
044440
020104
040522

042522
051122
020116
051120
022515

ERR4:

LASCII

; ADDRESS ERROR IN ZND PROGRAMXa;

030603
030610
030616
030624
030632

040
020047
052047
051125
040045

042447
040527
051040
042516

052117
047123
052105
027104

ERRS:

LASCII

;

'"EOT' WASN'T RETURNED.Za;

030440
047522
053440
020124
041522
042105

052123
051107
051501
042522
046125
022456

050040
046501

ERR6:

LASCI1

;

040
050040

040504
05110
051105
040045

040524
052111
047522

ERR7:

LASCII

; DATA PARITY ERROR.Z%a;

030312
030320
030326
030332
030340
030346
030354
030362
030370
030376
030404
030412
030415
030422
030424

030432
030440
030446
030454
030462
030470

03067’
03070
030712
030720

100

020131
0¢r122

100

052123
051501
042522

"STX' WASN'T RETURNED.Za;

023516
044503
052101
100

SEQ 0143

5413
5414

5415
5416
5417
5418
5419
5420
5421
5422

5423

5424
5425
5426
5427
5428
5429

5430
4431

5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442

5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
5453
£454
5455

MESSAGES

20-JAN-78

B 12
09:11
PAGE 123

030724
030732
030740
030746
030750
030756
030764
030772

046114
042040
043130

043505
052101
051105

ERRS:

.ASCII

;

ILLEGAL DATA XFERXQ;

054523
046105
023530
051440
022456

023516
054501
052040
047510

ERR9:

LASCI!

;

"SYN' DELAY

'X'

TOO SHORT.Za.

031000

044440
046101
020101
040045
023440
042040
023440
047517
052122

031005
031012
031020
031026
031034

040
020047
020131
047524
043516

051447
042504
054047
020117
022456

047131
040514
020047
047514

ERR10:

LASCI]

'SYN'

'X'

TOO iLONG.Za.

031041
031046
031054
031062
031070
031073
031100
031106
031114
031122
031124
031132
031140
03114€
031154
031162
031166
031171
031176
031204
031212
031220
031223
031230
031236
031244
031252
031257
031264
031272
031300

040
052047
051105
020101
022456
040
020047

044504
042440
042040
047515

047104
052116
052101
042504

ERR11:

LASCI1

: DIDN'T ENTER DATA MODE.Za;

051447
044504
041440
051505

054124
047104
051114
027124

ERR12:

LASCII

;

'STX' DIDN'T CLR DEST.Za;

046440
020105
047105
020104
040440
023440

042117
040527
0461101
044527
042104

ERR13:

LASCII

;

A MODULE WAS ENABLED WITH ADDR.

052105
047104
051114
041522

020130
052047

ERR13A:
ERR14:

LASCI!
LASCII

031305
031312
031320

031321
031326
031334
031342

052047
042040
040045
040440
046125
020123
042514
044124
027122
023440
040

04404
041440
052517
022440
040
060527
051440
042520
027124
040
040527
051040
042516

100

SEQ 0144
b2 B 2 2o 2 B ¢ ]

30A(1052)

T TN TOATTTITYN

5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5411
5412

MACY11

100

DELAY

100

°*;

; ETX DIDN'T CLR SOURCE, Z%a;

051440
026105

047505
047123
051124
020104
022440
052105
047123
052105
027104

020124
052047
050101
052517

ERR1S:

LASCII

; EOT WASN'T STRAPPED OUT. Za:

020130
052047
051125

ERR16:

LASCII

; ETX WASN'T RETURNED.Q;

040
046101
137

042523
064440

044522
047457

ERR17:

LASCII

040
051120
020115
052947

047062
043517
044504
042440

020104
040522
047104
052116

ERR18:

LASCII

100

SERIAL

1/0_:

; 2ND PROGRAM DIDN'T ENTER DATA MODEaQ;

—— THw TeM TEM PR UM WM WM WA PR PR W TR TR WA T TR R W T wa T T T T T

CZPMACO PDM70 DIAGNOSTIC TEST
19-0AN-78 14:50
CZPMAC. P

5493
5494

5495

5496

5497
5498
5499
5500
5501
5502

5503
5504
5505
5506
5507
5508
5509
5510
5511

052101
042504

040
020114
042514
023516
0425264
040524
027108
04
052101
052524
053440
054105
047131
045
031502° 040507
031510 042524
031516 041440
031524
051522
100
031532
040
031533
031540 043040
020124
031546
031554 027122
122
031557
020105
031564
051101
031572
031600 020124
043501
031606
046440
031614
031622 020105
031630 022445
103
031633
031640 046040
031646 040507
020105
031654
042117
031662
031670 044506
031676 040045
031700 040052

047103
047515
042040
020124
020122
046440

051124
052504
042111
047105
040504
042117

ERR19:

LASCII

; CNTRL MODULE DIDN'T ENTER DATA MODE.a:

047516
020101
047122
052111
027124
027103
0466111
020114
047122
047117
047511

042040
042522
042105
020110
051440
100
042514
054105
046101
042526
027116

ERR20:

LASCII

; NO DATA RETURNED WITH EXT.

ERR21:

.ASCII

;XILLEGAL EXTERNAL CONVERSION.a;

040504
051117
051105

040524
040515
047522

ERRZ2Z:

.ASCII

;

046505
041440

052117
042514
043105
041122
047111
046125
047506

ERRZ23:

LASCI1

;REMOTE

051101
020124
043501
046440
020105
022456

:
ERRZ24

LASCII

;CLEAR LEFT GARBAGE IN MODULE FIFO.Z%XXa:

ASTRIC:

LASCII

031702

022477

040056

:
QMARK

LASCII

:7%.9;

031706

022445

040056

DOT:

LASCII

;X%.a;

031712

026445

100

DASH:

LASCII

J%-a;

031715
031722
031730
031736
031744
031752

045
025453
025440
025453
041523
137

025440
025453

SCALE:

LASCII

100

031365
031372
031400
031406
031414
031422
031430
031433
031440
031446
G31454
031462
031470
031475

100

046040

040507
020105
042117
044506
100

042514
043105
041122
047111

046125
047506

025453
025453
046101

025453
025453
025453
024040
036505

SYN(C.a;

DATA FORMAT ERROR.Q;

CLEAR LEFT GARBAGE [N MODULE FIFOZXa;

e X e N NV N N o RV Vo AV R Ve RV N O N 7]

042040
047515

7 X XV XY N2 X2 X Va2 e X e KV N N K

5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492

051105
020101

031350
031356
031364

5467
5468
5469
5470
5471
5472
5473
5474
5475
5476
5477
5478
5479

SEQ 0145

5464
5465
5466

ME SSAGES

[¥a)

5456
5457
5458
5459
5460
5461
5462
5463

19-JAN-78 14:50

¢ 12
09:11 PAGE 1264

20-JAN-78

NN
N

CZPMA( P11

MACY11 30A(1052)

sesseeres

(SCALE=_;

EAIATIAIAIAILAIAILNIAINIALN

(ZPMACO PDM70 DIAGNOSTIC TEST

052460
053111

057526
022451

XDIv:

051117

047514

044122

043511

100

JIMV_;

X1My:
X100uUv:

.ASCI
LASCI

X10UV:

LASCII

J10uv_;
;/DIVIX 3;

XLOW:

LASCII

;%0RLOW

XHIGH:

LASCII

;XORHIGH a;

END:

LASCII

;100Uv_;

032003
032010
032014
032022
032025

045
020127
047445
020110

032026

040134

SLASH:

LASCII

J\a;

032030

040136

UPAROW:

LASCII

Mt~K

032032

040045

:
CRLF

LASCII

J%9;

032034

022445

100

CRLF2:

.ASCII

;X%0;

032037

104

030503

040045

MESDC1:

.ASCII

;DC1%a;

032044

0461504

022462

100

MESDC(CZ2:

.ASCII

;DC2%a;

032051

104

031503

040045

MESDC3:

.ASCI1

;DC3%a;

032056

041504

022464

100

MESDCé4:

CASCII

.DC4Xa;

032063

123

054124

040045

MESSTX:

LASCII

;STXZR,;

032070

054523

022516

100

MESSYN:

.ASCII

;SYNZQ;

032075

123

044117

040045

MESSOH:

LASCI1

:SOHZa,

032102

044523

040045

MESSI:

LASCI1

;S1%a;

032106

047505

022524

100

MESEOT:

LASCII

;EOT%Q;

032113

105

054124

040045

MESETX:

LASCII

JETXZQ;

100

Y TM
s

100

040040

INININDIANNAWNWNWN e

053125

137

SEQ 0146

(ALAILNINILA

053115
030060

D 12
09:11
PAGE 125

5539
5540
5541

031765
031772
032000

061
061
137
061
042057
020045

MESSAGES

20-JAN-78

5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538

031753
031757
031764

30A(1052)

244

5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524

MACY11

_ A AIACATAITATATAIAIAIATITAIANAIALIAIALIALIAIALILALA

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

5552

;i'tt't"fi*fi*!’lfitttttt

.SBTTL SOF TWARE

032120
032122

000000
000000

MTRSWH: 0
PRTSWH: 0

5564
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
5590
5591
5592
5593
5594
gggg

032136
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
032222
032224
032226
032230

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
0GO000
000000
000000
000000
000C00
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
032300
000000

REPTSW:
KSTORO:
FORMT1:
DLYSWH:
DSTSWH:
SENDSW:
OPRTSW:
TERMSW:
TOPC:
COUNT:
FROMPC:
SAVEPC:
SAVPSW:
SAV2P(C:
SAV2SW:
KSTOR1:
KSTOR2:
KSTOR3:
KSTOR4:
KSTORS:
TSTNUM:
TEMP1:
TEMP2:
CHRCNT:
RUBSWH:
PRGSWH:
LOPSWH:
RESTRT:
ORLOW:
MINUS9:

5597
5598

5599

032300

032302

000000
032614

001376

MONTR1
MONTRI
1999,
0
0

0
0
O
O
0
0
0
0
O
.WORD
O
0O
0
0O
0
0
0
0
0
0
0
O
0
O
0
0
0
O
O
O
. %66
ORHIGH: 0
AVGTAB:

0
. .+200.
.END

;CONTAINS THE 'CNTRL R' RESTART ADDRESS
;CONTAINS THE 'CNTRL A' RESTART ADDRESS
;A/D OFFSET
JSERIAL 1/0 SWITCH, SET IF SERIAL INPUT USED
;STORAGE OF CURRENT MODULE ADDRESS

; TEMPORARY COUNTER(REMOTE SER 1/0).

'ala)

RVECTR:
AVECTR:
OFFSET:
SIOSWH:
MODADR:

001506
001506
003717
000000
000000

'SWITCH' ADDRESSES

4 =~ —f

032124
032126
032130
032132
032134

RtRRR Rt R RRl R

,"'Qfi""'fil’ttfitttit’.*fi"tt'Itt'tktfit'fittfifittttitttt*tfittfitttttfitttfittttt
.EVEN

5557
5558

5559
5560
5561
5562
5563

22302220

f —{ —d

5554

SSSS
5556

1222322333282 222222222

SEQ 0147

el ol e —d f

SSSS

ME SSAGES

E 12
09:11
PAGE 126

= Ay

19-JAN-78 14:50

20-JAN-78

CZPMAC.P1

MACY11 30A(1052)

MONITR

et ot ek ek ek d ot ek ok o

CZPMACO PDM70 DIAGNOSTIC TEST

ADRSIT

005154
017220

ADRSRC

ADSER1
ADSLOP
ADSLP1

ADSLP2

ADSNXT
ADTO
ADT1
ADT?2

ADT3

ADT4

ADTS

ASEMBL
ASTRIC
AVECTR
AVERAG=
AVGDAT
AVGTAB
BCDBIN=

014644
0146512
014552
014572
014626
005022
005024
005110
005142
005252
005402

104015
031700

032126
104031

016006
032302
104030

022446
022454
BCDEND
022536
BCDERR
022554
004606
BCDIO
004652
BCDIO1
BCDTAB
022564
B(DTO
003456
003472
BCDT1
BCDT10
004132
BCDT11
004206
BC(DT12
004244
B(DT13 004302
003610
B(DT2
003640
B(DT3
B(DT4
003672
003722
BCDTS
BCDT6
003732
004024
B(DT7
BINDEC- 104033
014430
BYTEA
014431
BYTEX
005440
CALBT1
8(DeN1
BCDBNZ2

892
815
1335

3086
3625
3581#
3587
3592
3585

12384
12454
1255

2623

2810

3075

1749
4409

1769

1380
4401
1780

3433
967
2495

2634

3637

2193

1688

2061
3166

3621

36294

4303
54984
55604
1645

4833

851

3118
36334
3631
35934
3598
3617
1364

13244
1340
285
4588
335+
1435

13604
4153
4618
3735
1451

1637
1384
L6440
L647H
4648
4653

1456
16417
4669
4665
4651
4655
11644
1228

357

1237

1288

1289
1327
1274
1506
334w
1394

11844
1418

1166

2749

1192
40184
2722
913
2161
40034

1144

1089

12714

38394

1052

3210

2961

2298

3249

984

1410

1568

1738

1993

2029

1966

2075

2155

2287

2571

1003

2650

1039

2685

1208

2769

1248

2819

1274

2917

2425

1260

12864

R Ao

1027

e o oo o R

017234

2317
1062
2708

1711
1708
270

s e o

ADRDST

16954
1705
1364

16874

1315

1644

e o

104026

16904

1314«

e o

ADCRES-

1685

1310
1636

006710
006716
006736
007030

48384
1294
1392

ADCTO
ADCT1
ADCTZ2
ADCT3

- 104027
ADCNVT

4824
1293+
1374

1546
1698

55974

46664
46724

1699

46472

4643

825

830

835

B4 84

9294
1535

1539

1729

1420

1016

9584
9784
9974
10124

023346
005211

SEQ 0148

L675H

g
= = = = — —f — —f —

ADCHX1

19-JAN~-78 14:50

——

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.PTY

PAGE 128
20-JAN-78 09:11
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

ard

DAOUT
DASH
DATA1
DATA2
DATA3

003012

007746
031712
004712
004722
007776

7254
N
L6

8314

914#
4924

522#
5564
6024
3145

3730
3726
3737
3700
3743

3733
3139«
28274
28264

1897

1910

1923

1945

1951

15634

1895+

1908+

1921+

1941~

1947+

1963

4834

55874

3716

3739

3798

4540

55294

1841

1855

1869

1883

1210
1224
1839+

1853«

1867«

1881«

732
473

837

920
498
528
562
608

35654
37324
37294
37424
37244
37464
37364

729
445
4814
L4714
496
535
560
606
1813

1499
1186
1188
1797«
19724

4789

2180
2944
29334

7094
698
434
465
467
489
526
552
597
1799

2018

4668

4068+

2936

1541

6324

4649+

3705+

436
2104
2172

3566«
2833
2841
1386
55314

1032

4647

3703

55044
1190

12044
1811+

2001

XEEEEECCC
A~ ~————

20584
21664
29284
21654
29274
2929

2378

4812«
44138

4070

3692

3691«

K >

015172
015276
015240
032160
012576
012572
032032
032034
003034
003246
003430
002322
002374
002366
002470
002552
002646

015262

4304

3663«

2 I 2 I I I I I

CNTRLG
CNTRLO
CNTRLR
COUNT
(P18
CP1C
CRLF
CRLF2
(110
cT11
(112
cre
(13
CT3A
(T4
CT5
cr6

CNTRLE

23724

1998
4810+
1542

3567

I 3 I

021524
011254
002264
(10344
010522
012762
01051€
012756
012774
003322
002340
003554
004002
002432
002514
002610
002772
014472
015222
015210

1697+
4801+
1398

26478

I NI

CLRMOT
CMPT1A
CMP1
(MP1A
CMPIB
CMP1IBA
CMP1C
CMP1CA
CMPI1DA
CMP11
CMP2
CMP2A
CMP2B
CMP3
CMP4
CMPS
CMP6
CNTLOP
CNTRLA
CNTRLC

2531
2636
2674k
26964
27204
27284

1399
1571

55734
1665

3 M

012074
012126
012206
012254
012344
012354
032214

1394
1431

7894

K > I 2 2 I

CHART1
CHART2
CHART3
CHARTS4
CHARTS
CHART6
CHRCNT

13874
1404

SEQ 0149

5154

I I I 3 I I DC I I

CALBTZ2 005444
CHANEL= 104032

G 12
20-JAN-78 09:11
PAGE 129
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

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

(ZPMACO 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

DATSTS

DATST6

DATST?
DATS10
DATS11
DATS12
DATS13
DATS14
DATS15
DAT1
DAT15A
DAT?

00C021

DC1

DC2

- 000022

DC3

- 000023

0C4
DE CODE
DECOD1
DECOUT
DECPNT
DECT

000024
001712
001746
022650

DELAY =
DELAYL=
DESTINDIVCIT
DIVIDE
DLYSWH
DOT
DSTADR

104004

DEC2

DSTSWH
ECHO
EMTOK
EMTSRV
EMTTAB
END

END2
ENQ
EOT

022710
022670
022702

104020

104024
0160472
016016
032144
031706
017277

032146
015064
001220
001200
001240
032025
002234
000005
000004

1798~
1943
1944«

17954

020620
017136

09:11

PAGE 130

SEQ 0150

1812+

1949

1950~

1826+
1965+
19754

1840+
19744

2017+

1854+

1868~

1882+

1896+

1909+

1922+

1942+

1948+

19734

o1
3188
4108
415

580
3286

650
3294

660
3304

3328

1301

2204
3479

2244
3535

2452
3542

2521
3547

2986
3599

3010
3759

584
3315
587
3124
3603

654
3470
659
3152
3765

2208
3539

2248
3544

2344
3762
2210
3293

2523

2972

3013

3122

2458

2974
3330

2988
3472

1209

1350

3183

2581
3338

2582

18094
18234
18374

18514
18654
18764

18934
19064
19164
19364
17474
19414
17674

2228
3029
3980
223
3174
204N
3012
3482
2254
3104
313
4693

4686
4699
4703
118#
1304

1344
38544
1425
251~
305

2285+

4161«

2448%
36944
157
102
161

55234
420
2324
231
1101

2130
2772

ERREXT
S
ERRME

20-JAN-78

CROSS REFERENCE TABLE =-- USER SYMBOLS

4090
4208

3925«

1952

403

3150

4006
407

3290
409

3016
3541
410

347
3184

L6984
47094
4701
47064

3298
419

3031
3546
3768

664
3176
3942

1305
3190
4010

413

4020

4022

3308
4030

2525
3317
4079

4112

2771

3087

3339

3608

4099

3633

4020

4022+

4026

720

866
1785

879
1965

2817

3860
3839

38484

55024
3073«

1938+

2486+

4097

4420+

55674

3102+

3579«

3581

3584

3629+

3630

24562+
3712

2517+
3721

2529+

3995«

4118

6127+

5568#

485
1147

517
1204

1261

547

548
127¢

1594
1534

2250
3303

4133

4704

592
2816

4025

2456

4028

£~
oo
NN VWVIAN
WO ON0o

DATA4
DATAS
DATAG
DATSTS
DATST4

MACY11 30A(1052)

H 12

2818

4029#

1664

497

3179
1128

2153
2808

4369
L2184

3930«

2267
2981

4416

39604

2294
3082

2389
3127

2405
3275

852

1774

2496
3492

2537
3521

2580
3620

948

2011
2635
3783

968

2047
2664
3936

1075

2113
2706

4077

622
645+

2256
684

ERR1
ERR10
ERR11
ERR12
ERR13
ERR13A
ERR14
ERR1S
ERR16
ERR17
ERR18
ERR19
ERR2
ERR2O0
ERR21
ERR22
ERR23
ERR24
ERR3

030440
031005
031041
031073
031124
031166
031171
031223
031257
031305
03131
031365
030471
031433
031475
031533
031557
031633
030526

ERR%
ERRS
ERR6

030544
030603
030634

ERR8
ERRS
ERTRAP
ETX
-

030724
030750
020440
000003

ERR?7

EVECTO
EXTTY

FDATA
FLAB1T
FLAB17
FLAB2
FLAB3
FLAB3A
FLAB4
FLABS
FLABSA
FLAB6
FLAB?
FLO
FLOP
FLOPB
FLUSH
FND1B

FND1C
FNDID
FND3A
FNDS

FNDSA
FNDSB

FNDSC

FNORM

FORMT1

030677

014404
015182

014072
014042
014565
014037
014067
014066
014363
014113
014112
014351
013660
013670
013674
013704
002050
014140

014134
014152
014302
014334
(014342
014370

014354

014060

032142

819

2282
1312

1310+

2225
2308
2219
SLL8A
508

447
433
988
1339

54794
3203
3159
464
1264
495
488

525

L69
2066

644

2264
4113

3451

3675
3284
3270+
36004
32924
33164
33154
24804
33294
33284
34714
32394
32474
32484
32524
328
33524
3341
3353
3425
34610
34674
3462
3469
3281
3794

946

3050
3635
3633+

3002
3097
2996

54524
56604
596
1007

54734
54834
54914
605
1279

53754
551
537
2095
2079

677
41694
420

34954
3678
3314
32954

3038

53604

12564

2090

53664
1354

54674

54104

3057
54264
56324
54334
54384
54434

54214

2303

2364

3091

546164

728

826
2169

829
2375

834
2830

841
2931

869
3355

882
53724

917

951

971

855
559
2369

1259

2050
53884

2127

2402

2499

2638

2775

3343

53824

2408

2654

54004

2975

2993

3309

3786

3950

2101

2133

568
53954
2353

588

665

2211

2216

2543

3745
3684
33204

37184

3728

5749

3751

3270

3652~

3807«

4547+

54044

3646%

3647
3648+

3649
3650+«
3594
3651«
3251«
3426

SEQ 0151

MACY11

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

[ 12
PAGE 131
09:11
-78
30A(1052)
20-JAN
CROSS REFERENCE TABLE == USER SYMBOLS

3252
3505
343

3379

3493
3799+

55664

1215

4092

CZPMACO PDM70 DJAGNOSTIC TEST

CZPMAC.P11
FOUNDL

FOUND2
FOUND3
FOUNDS
FOUNDG6
FOUNSW
FPROG
FROMPC
FSTUF
FISY

19-JAN-78 14:50

014014

014212
014270
014312
014406
013662
014030
032162
014660
014116

GANEXT
006662
GETDAT
015730
GETREG= 104003

HEADER
HIDIVD
HIDIVR
HIGH

IADRSO
IADRST
IADRS2
IADRS3
IADRS4
[ADRSS
IADRS6
IADRS7
IADRS8
IADRS9
IADR10
IADR11
IADR12
IADR13
IADR14
ICOUNT
INBUF

INPUTA
INPUTB
INPUTC
KEYAD1

KEYADZ2
KEYTO

KEYT1
KEYT?
KEYT3
KEYT4
KSTORO
KSTOR1
KSTOR2
KSTOR3
KSTOR4
KSTORS
LDCHRO

023415

016116
016112
016124

002214
002220
002224
002230
003120
003124
003132
017547
017643
017202
011167
014046
014032
014036
014051
020770
015330

014740
015030
015006
011623

011625
011524

011532
011554
011734
012036
032140
032174
032176
032200
032202
032204
104006

LDPGMO- 104007

32804
3356
3390
3338
3395
3243
32854

4171+

3255

3323

1648
3824
1174
4670
302
1420+
1421+
3821*
271%
272+
273+
274x
275+
276%
277
278
279+

280~
281+

3256*
3257+
3259+
3258+

4234

268

4596

36664

36854
3673
2483+
2484+
24LB5H
26934
2497
2544
25914

4395+
1420+

1444+
1646+
1428+
1429+

MACY11

3414
3373
34244

34424
3451
3247«
3490
4179+
3410
3327
1651

3838

1670
4696
48514

3819«
3850
3825

404n
4084
4124
4164

J 12

30A(1052)
20-JAN-78 09:11
PAGE 132
CROSS REFERENCE TABLE ==~ USER SYMBOLS

3375

33874

35014
3387
3590

3413%

4181

55744
36464

1654

16734

1714

1730

3718

3836«
38724
3827
581

3852

38744

3829+
585

38774

6157

L1324
3257

3258

3259

39894

320

1170

3582
33384

SEQ 0152

3869

4100

4140

4332

4478

4516

4577

1695«

1696+

2000

3665

37554

41N

4193

4399

4306

43171x

4312

4313

64314

4317

55794

4212«

4214

55814

516
2535
646
2240

532
2573
1064
2289

546
2575
1090
2341

617
3491
1193
2390

1146

1750
4368
1781

1755
64615
1968

2112
4605
2085
2969

3840

6514
655#
6614

41094
4124

3256
23454
33024
32874
32914
33054

42574
310«
4641
3667

3723
36794
25224
25244
2595

4353
4792

3695

3704

25074
25624
4402+
1423
1465
1469
1647
1430+
442

2266
399
2157

3971

1770

2709

2812

2914

(ZPMACO PDM70 D]IAGNOSTIC TEST

CZPMAC.P11

LODIVD
LODIVR
LOPSWH
LOwW

016114
016110
032222
016120

MASK
MATCH
MATD
MESADR
MESDCT
MESDC2

022114
002000
014504
020616
032037
032044

MESDC4

032056

MESDC3
MESEOT
MESETX
MESSI
MESSOH
MESSTX
MESSYN
MESO
MEST
MES10
MEST1
MEST12

MES13
MES14
MES14A
MES1S
MEST6
MES17
MES1B
MES19
MES2
MES20
MES2]1
MES22
MES23
MES24

MES24A

MES25
MES26

MES27
MES28

MES29
MES3
MES30
MES3T
MES31A
MES31B
MES31C
MF531D
MES31E
MES32
MES33

MES34

19-JAN-78 14:50

032051

032106
032113
032102
032075
032063
032070
023775
024042
024316
024364
024411

024437
024460
024527
024574
026624
024633
(024641
024666
024070
024714
024730
024761
025000
025014
025042

025072
025113
025134
025161

025233
024127
025263
025303
025324
025353
025403
025434
025463
025474
025526

025557

2977
3467

1424
1423»

388«
1436
4502+«
3274
35794
4205+
3761
3764
3767
3770
3785
3788
3782
3779
3773
3776

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

3119
3589

3147
3593

3170
3596

3185
3984

4105

4128

1570«

1659
38754

1661«

2034~

2760*

55904

3007
3487
3835«
3849

3025
3516
3851
38714

3077
3531
38734

3822+

3830

3832

3834x

3007

3407

L9454

934

961

50554

1131

5088#

429

4513«

736*

45184

792%

642164

55334
55354
55374
55394

4470

55514
55474
55454
556414
55434

L8984
49074
1329
L9564
49604
49644
L9674
L9744

55494

2279

49814

49854
49874
49904
L9954

3960

1595
1603

49134
50004

50034

50164

5025#
50294

50334
50374
50464

49204

50524
907
50584
50674
50724
50764
50784
5083#
1105

3282

3312

3320

4624

3325

026352

MES4L9
MESS
MESS0
MESST

026401
024205
026430
026462

MESS3
MESS4
MESSS
MESS6

026522
026530
026536
026544

MESS9

026620

MESS2

MESS7
MESS8

026514

026552
026576

ME S6
MES60
MES61

024227
026654
026705

MES63
MES6L
MES65
MES66
MESE7
MES6B
MESE9

027055
027100
027166
027223
027256
027274
027323

MES62

MES7

027037

024236

MES70
MES71
MES72
MES73

027337
027350
027413
027440

MES74
MES7S

027520
027534
027552
027572
027634
027670
024257
027726
027767

MES73A

MES76
MFS77
MES78
MES79
MES8
MESBO
MES81

MES82
MESB3

027473

030063
030126

1168
1165

2607

1737
1753
1758
1777
1788
4173
1801
1871
1802
1816
1830
1844
1858
1992
1996
5188#
4178

981

1940

2424
284

713
734

2332

4397
4673
2608
79

2022

2659

2712
2565
2550
2658
2677
52814
3245
3444
3448
4302

2748
2896
53174
53234

1133
51294
51334
2621
51414
S1454
51514
S158#
51624
49304

1815
1885
1872
1886
1900
1913
1926
51814

51244

51364

1829
1899
51764

1342

51934

1015

1227

1363

2678
52634
52674
52724
52764
52784

52564

1857
1925

5 664
5 714

1619

2319

026215
026242
0263205

26 81
39 30
51 144
51 204
1" 06
51 28»

SEQ 0154

5093#
50964
5098#
5107#
49254

-~
ANV
]

MES4B

024161
025775
026034
026064
026111
026116
026143
026161

10 80
I8! 32
1 43

MES44L
MESLS
MESLE6
MES47

025612
025631
025643
025726

L 12
PAGE 134
20~-JAN-78 09:11
30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

ele]

MES3S
MES37?
MES38
MES39
ME S4
MESLO
MES4OA
MESLOB
MES4Y
MES42
MES43

MACY11

—t

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

51774
5178#
51794
5180#

51854

49354
1000
5198#
52144
52174
52214

52304
5235#
52404
52444

52494

5253

52844
52904
52954

L49420N

53004
53064

2417

2594

2731

3213

3504

49384

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

ME S84

MES85
MES86
MESB?7
MES88

MES89

MES9
ME S0
MINUS9
MODANPR

030152
030236
030304
030332
030362
030415
024275
030424
032230
032134

MODERR- 104022

MONITR
MONTR1

MONTRZ2
MONTR3
MONTRS
MONTRS
MONT1A
MOVEIT

MTRSWH

M377A1
M381E1
M381E2
M385A1
M7377A
M73778
M7378A
M7380A
M7381A
M7381E
M7382A
M7383A
M7383C
M7383G
M7383R
M7384A
M7384E
M7385A
M73851
M7385T
M7386A
M7387A
M7388A
M7388F

001376
001506
001630
001660
001674
001700
001612
022042
032120
012442

004332
004336
010134
012370
012376
013664
002160

003450
004316
004412
005014
005416
006356

005514
007072
010006
010126
011150
011360
011506
003254
012050
012062
002070

NMAT(CH
NODLAY= 104036
NOP
- 000240
NULL
- 104021

NULLT = 104023
004422
08(DT1

3114
3115
53434
53474
3099

4828
§544
4832
1476~

821

1324
595
881
1338

2255
2774
3354

M 12
PAGE 135
MACY11 30A(1052)
20-JAN-78 09:11
CROSS REFERENCE TABLE =-- USER SYMROLS

53274
53364
53514
53564

L9464
53584
1487
937
632
604
916

1353
2261

287

2829
3634
2384
303
297
295

255
269

3034
2834

110
2644
2895#

3014

45044

254
2759
10314
10334

20304

SEQ 0155

4515

55934
1294
446

621

2094
2368
3049

4744

683

494
818
1006

3961

4182

4567

1384

1413

2509

2567

4589

250
680

4741

5560

970

2078
2352

2984

1045

793

15664

1620

20274
23314
24234
24804

2609

14084
17364
19914

3001

727
987
2089
2363
3037

536
833
1258
2132
2407
3096

468

373

5559

4159+

3100«

2418

1043

10504
12354
13784

3071«

2049
2302
2930

55574

27474
3214
32444
3854
7984
10254

463

2320

676
950
2065
2307
2995

945

256

2321

2283«

7114

26064
26204
340
633
248

668

2732
3454

3565

4619

55634
550
840
1263
2168
2498
3158
5599

558

854

1278

2218
2637
3202

567
868
1311

2224
2653
3342

0B(DT?
0B(DT3

004462
004522
0BCDT4 004564
OFFSETY
032130
OPRTSW
032152
ORHIGH
032300
ORLOW
032226
PARITY
016220
PDMPRT
015650
POMSET
015434
PDMSTO
015632
PDMST1
015644
PDMST2
015646
PEXTZ2
015674
POP1SP= 005726
POP2SP= 022626
POSTIT
007040
PRCNTR=

PRGM1
PRGM2

104000

002213

002222
PRGSWH
032220
PRINT = 104012

10874
11134
11404
1703
3750
1461
1459
466

3760
2542
3793
3790
3796
3803
434

57
1548
1144
400
4104
55894
1244
906
1142
1505

1639
1870
2416
2895

PROMD
PROMS

PRTBF
1
PRTBF
2

PRTEXT
PRTOCT=
=
PRTRBF
PRT SWH
PRT1A
PKT18
PSW

003427
003360

022162
022166
021734
104014

104037
032°22
022210

022222
001340
PUSH1S= 005746
PUSHZ2S= 024646
PWRF AL
022722
PWRUP
022756
QMARK
031702
QUOENT
016122
RANA
021134
RANS
021136
RANC
021140

RANDOM= 104011
RBUFOQ
001360
P SRO
001356
RECBFO 016234

MACY11 30A(1052)

55614

3892+
3769
4139

55704
1530
55924
39024
3772
4549

3801
425
484

4599
521
527

555
561

265

283

301

4477
1492
1529

2366
3766
37594

1167
1532
1664
1898
2480
3098

45484
4545

4480
1508
1534

SEQ 0156

1538

55954

3935«
3775

3778

3781

3784

3787

38034

304

345

385
1025
1362
1577
1787
1995

712
1031

733
1050
1385
1593
1814

790
1078
1408
1602
1828

4604

960
1226
1536
1736
1911

980
1235
1540

999

1014

1566
1757
1939

1575
1776
1991

1328

1341

4543

1752
1924
2564
3212
4151
4587

L4476/
4180
1397

4209

4213

4252

4829

3746

438

4384~

4309
1452
4272+

1646

3868+

38764

4466
1264

252«

PAGE 136

3808
4170

3805
4539

1454

N 12

09:11

CROSS REFERENCE TABLE == USER SYMBOLS

3752

4396
731
724
45354
45414

20-JAN-78

3683

2549
3113
3959

2686
3699

2593
3244

2606
3406

64172

6177

4617

4672

2620
3443

1378
1585
1800

2027
2657

3503
6215
4827

4250
4831

4460~

4476%

5558

1856

2315
2711
3708

2277
2676
3688

4188
4742

801
1130
1498
1618

2331
2747
3738
4382

4301

k-3

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

2004
LN
LN
99

4728
346
1428
4270+
4270
4271
1234
2114

2104
836

1692

55004

4274+
4276%

4273
4275%
4277

4276
4277
4278«

3922
3899«

3957

4203«

2096

2259

919

2087

2082

2152

4292n
42934
4279

42944

2356

3274

985
3047

1004
3054

3890

2340

1261

1276

3894

1514

3900

1637
3907

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

RECDC3
RECEND
RECEOT

RECERR
RECETX
RECEXT
RECSTX
RECVER
RECVPT
RECVRO=

RECVR1

RECYCL
REMAIN
REMOTE
REPTSW

REPTO
REPTOA
REPT1
REPT10
REPT11

REPT12
REPT13

REPT14
REPTZ2
REPT3

REPT4
REPTS
REPT6
REPT6A
REPT6B

REPT7
REPT8
REPTBA
REPT9

RESTRT
RETURN

RINTO

RLVLO
RPT12A

RUBSWH
RUN
RVECTR

022224
016222
016736

016224

017124
016230
017112
016226
016740
016232
104005

017026
001754
016126
021442
032136
005636
005532
005646
006236
006246
006304
006320
006330
005736
00576<
006010
006054
006066
006102
006110
006116
006122
006144
006162
032224
020774

001366
001370
006314
0322i6
022360
032124
032164
032166

SAVEP(C
SAVPSW
SAVREG= 104002

SAV2P(
SAV2SW

032170
032172
03°715

SCALE
SCOPE = 104001

39084
374
3895«
39104
674
918
3927
3897«
3939

2253

298
3888+
1194
2286
3607
3929
3204
1426
1381

3662+

16324

14144
14344
1517«

15294
1531
1528
15474
14514
1450
146654
1468
14874
14924

MACY11

30A(1052)

4558
45584
39034
3926
681
2942
3932
39064
3941
3035
39194
39074
638
2296
3744
39364
326
3862+«

4575

1411
4120
1543
1419

1520+
15404
15454
1554
1455

8 13
PAGE 137
TABLE -- USER SYMBOLS

20-JAN-78

CROSS REFERENCE

09:11

SEQ 0157

3944~
1256

1690

3893«

2124
39044

2162
3938+

2178

2305

2399

2820

2839

965

1038

1207

1296

3074

1433
3084

1687

3140

2084
3163

2239
3277

2568

2707%

3070«

424

4255+

L2594

3848

4061

4137

4326

4458

4498

4574

616

632

709

789

848

862

875

816

1040

3340

3377

3952+
3945
3896+

3949
39054

39534
3948

3921

3953«

2358

2444
4355

2516
4591

4623

2570

2968

3024

4406~

4407

44613

L4717

55644

55914
2083«

2282+

2357«

3818

576

3093
39574

714

4229

911

940

342

38784
L3944

4365

1427

1523«

15264

1669

1458#

1479
1472
1493

14774
1495

164944

1490

15004
1508#
1496

314
910+
4316+
2144

333

4352
1331«

3687+
4631
4350+
4768«
4769
1682

3706

55884

4351«

55594

964«

2154

15434
3664«

377
303«

4750%
4751«

1164

4640
4752+
4753
1525
1154

4780
4779
1722

4770~
4771«

4778

481

515

4777

SIOSWH

- 000017

032132

032026
014470
017664
SNGCHR
000001
SOH
SLASH

SNDAX

SOH1

017231

- 104025
SOURCE
SPACE = 104016
021262
SPACEX

SPCHR1

SPCHR3
SPCHR5

SRCADR

STADR7
STADRS
STADR9
STAD10
STDR10

015070
015140

015156
017227
010637
010643
010723
010727
013170

376

25164
35314
253«

L5944
4602*
1395

1434
2035
2304
264>
2547
3969
3689
3518

4038

2294
3481
814+
1247+

2815+

1354
1284
1500=

3680
3702
3714
938«

2030«
2031+
2032«

2033~
2753«

4236
4235

4242*
L2424
22744

2674
3404
L2374
2192
2997
23144

3003

958

1809

978
1823

997
1837

1012
1851

1087
1865

1238
3248

1382
4586

1412

1569

1739

1994

3322

3372

1291

2051
3394

2173
3424

2191
3461

2465
3586

2532
3940

2206

2246

2454

3288

3296

3306

1002+

1036+

1037+

1172»
2684+

1174~

3792

3958+«

4590+

55694

1028
2624
3780
519
2959

1053
2759

4024

4626

3280
55624

652
3277

662
3990

4003

40094

2060~

2578

3279

4193~

4110
983+
2160+

4331»

4334

4426%

4431

4435+

3072+

3101«

3137«

3165+

40074

4315+

3055

30634

3672

805
2485
2346

1324
1036
2591
3205

1271

1906

2507
3063

2314
2898

L258#

1140

1893

2414
2967

2274
2779

2187
2728
3501

1113
1879

2386
2955

2200
2767

2148
2720
3442

20984

20744

27794
21484
28954
2174
2938
29554

21874
29454

45864
3606

2679+
4607

46064
1480

389
2333
586
282*
2834
3982
3709
3533

4,088
405

3537
850+

1273«

2899«
1297
1502
1552+

3682
37134
37204
1332+
2205#

22094
22454
2249
30154

2683«
44064
711

2428
656
423
2843
4018
55254
35564

*
4094
413

490

2937
6155

414624

3549
Bb4x

3601
877x

3117
2449
1553
4329
36954

3164

1334«

2284+

1391~

912+
1704

941+

2044

—_~

2176
2960
2304
3092
20594
2064
2111
2773
2052
2844
2170
2932
2940
2200#
29674

929
1795
2111
2696
3432

SEQ 0158

—\un

4231
4234
4233

902
1767
2074

-—

020676
020772
020714
010764
013252
011122
013402
010220
010246
SD4
010364
SD4A
012502
010434
SD5
SD5A
012662
010574
SDé6
SD6A
013034
013036
SD6B
010624
sD7
SD7A
013066
022264
SEND
014422
SENDAX
014434
SENDPG
032150
SENDSW
022312
SEND1
022354
SEND2
021502
SE TRMT
SETUP = 104035

SCOPEB
SCOPEF
SCOPEG
sD10
SD10A
SD11
SD11A
SD2
SD3

890
1360
2059
2647
3269

¢ 13

PAGE 138
20-JAN-78 09:17
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

N—

C(ZPMACO PDM70 D]IAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11

1303

4008

966+

2297%

2633+

4160

4403+

2649+

2768~

CZPMACO PDM70 DIAGNOSTIC TEST
CZPMAC.PI
19-JAN-78 14:50
STDR11
STDR12
STDR13
STDR14
STDR1S
STDR7
STDR8
STDR9
STRIPN

STX

SuBX
suBx1
SWR

Sw02
Sw03
SwW04
SWOS5
Swo6
Sw07
Sw08
SwWw09

SwW10
SW11
Sw12
Sw13
Swi4

2754~
2755«
2756
2757+
2758+«
2750~
2751~
2752«
4793

30304
31274
31514
31754
31894
29734
29874
3011«
48054

012450
010162

3972
27674
20424

3987

021142
021170
001352
001354

SWRO

SWSWR

013207
013467
013531
013577
013617
013103
013125
013165
023232

= 000002

ST7377
ST7385

=
=
=
=
=
-

=
=
=
-

SWi5
=
SYN
=
SYNTIM
S5
S58
TAGB
TAGD
TAGr
TAGG
TAGH
TAGI
TAGILA
TAGOA
TAGOB1
TAGOC
TAGOD
TAGID
TAG1E
TAGIF
TAGTH
TAGIHA
TAGIK
TAG1KA

D 13
MACY11 30A(1052)
20-JAN-78 09:11
PAGE 139
CROSS REFERENCE TABLE == USER SYMBOLS

000176

000004
000010
000020
000040
000100
000200
000400
001000

002000
004000
010000
020000
040000

100000
000026
003127
012506
012650

002236
003056
003140
003170
003206
003222
012744
002452
002304
002534
002630
010362
010406
010432
010472
012740
010646
013130

2274

373

4305

2054
2275
4823

206#

108#

27H
264
254
24H
234
224
21
204

194
184
174
164
154

144
2284
643«
2804#
2831

401
638#
648
671
682
678
29174
491
424
520
554
2080
2117
2128
2157#
29144
2203
2985

402

3100
4817

579

3101

3102

3165

618

619

649

2232

2545

3017

3285

3534

3771

3946

1042
4095

1326
4207

1388
4218

1393
4230

4232

1655

1657
4246

4628

43012
43114
243
2540

4310

245~
3064

697
4066

904
4072

1034
4083

245

4823

4825

4830

4836*

904

1326

2275

3064

4083
1393

1655

1657

2540

4825

4095

697
4072
4066
1042
657
6584

3774

2835

2837

28434

673

675

689

6934

2102

21044

4234
693
668#
680#
6874
685

5034
LL2N
5324
5634
2091
21244
21334

22134
29934

SEQ 0159

4207

2014

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P1
TAGIL
TAGIP
TAGIPC
TAGIPD
TAG1Q
TAGIQA
TAGIR
TAGIRA
TAG1S
TAGISA
TAG1SB
TAG1T

010476
011134
013642
013644
011010
013274
011046
013332
010712
013156
013176
010732

TAGIU
TAGIUA
TAGIW
TAGIWA
TAG1Z
TAG1ZA
TAG2A
TAG2B
TAG2C
TAG2F
TAG2G
TAGZH
TAG3A
TAG3B
TAG3C
TAG3D
TAG4A
TAG4B
TAGLC
TAG4D
TAGAE
TAG4F
TAG4G

011060
013344
010760
013240
011074
013354
005042
005126
005170
005234
005216
005250
004452
004512
004552
004574
004700
004724
004744
004764
005004
010016
010074

TAG6C
TAG6D
TAGGE

011702
012002
011764

TAGITA

TAG6A
TAG6B

TAGZA
TAG/B
TAGBA
TAGBBA
TEMP1
TEMP2
TERMSW
TEST1
TEST2
TEST3
TG1H
TGIKA
TG1L
TGILA
TGIPA

013212

011630
011654

011450
011474
012166
012270
032210
032212
032154
011156
011274
011344
012540
013106
012544
013116
013474

21604

2276
3065
2845
2282#
30704
2289#
30774
2231

E 13
PAGE 140
20-JAN-78 09:11
MACY11 30A(1052)
CROSS REFERENCE TABLE -~ USER SYMBOLS

23184
32104
3211#

30074

3009

2242
3027

2291
3079
2220
3039
2300#
3088#
1250%

12764
12944
1295
1299
1292
1066
1092
1119
1144M
11924
1195
12124
12204
1216
19954

20134
2520
2533
2541
2569«
25704
2451
2466
2655
27004
4528«
4524«

3973«
23404
2354
244N
28124
2971
28154
2979
3121

2257

22664

13144

2006
2546
25364

2548

2578

2583+

2584

4727«
4529+
4102

4733
55864
4104+

55854
4115

2370

2376

23864

2472
24694
2665

6117

55714

SEQ 0160

CZPMACO PDM70 DIAGNOSTIC TEST
19-JAN-78 14:50
CZPMAC.P11
T1G1PB
TGIPC
TG1PE
TG1PF
TG1PG
TITLE

KB
TKS
TKSFLG
TOPC
P8
TPS

TRANPT
TRANO
TRAN1
TRANZ

TRAN3

TRANG
TRANGA
TRANS

TRANSA
TRANSB
TRANSC
TRANSD
TRANSE
TRANSF
TRANSG
TRANG

TRAN7
TRNBFO

TRNBUF
TRNEND
TRNEXT
TRNSMT
TSTABL
TSTLO

TSTLST
TSTNUM

TSTTKS-

TST1A

TST2A
1ST28

TTLAD1
TTLADZ2
TTLTST
TTYENB
TTYIN -

TYPECL

TYPEIT=

013534
013550
013610
013622
013636
023353
001344
001342
021264

032156
001350
001346
017666
017350
017374
017462
017426
017526
017540
017554
017602
017612
017622
017630
017636
017642
017644
017650
017442
017670

022232
020372
017475
01733C
002076
015752
023475
032206

104017

011172
011316
011342
011441
011445
011400
021626

104013

021770
104010

3149
3157
3173
3187
3201
258
2024
201a

181
L169%
2044

2034

4039»
L0664
4067
40904
40814
4076
41054

4080
41224
4121
4119
4123
4122+
4126
4122
4084
40854
459

2097
2809%
%
2941
4625
375

471
4082
4041

333
3828
318
4210

129#

2343
2392
2403
2426%
2427«
PRI

1029
1254
1754
1927
4342
4483
1224

MACY11 30A(1052)

20-JAN-78

F 13

09:11

PAGE 141

SEQ 0161

CROSS REFERENCE TABLE == USER SYMBOLS

31544
31644
31854
31944
3205#
LB4L4A
3668
3666

43404
L1174
4370+
4363
4048
4093
L0724

4103
4078
6135
41154
41244
41264
6125
4124
41314

4340

4443

6176
4434
4432
4065

4512
4510
41438

55724

4116
41024

41274
4126+

41294

578

587«

41334
L1374
4161
460

2153+
2813
3275+

2154~
2826
3276+

4559

45654

4089
40614

409

L094n

337

3534

2103

334
38304

48614
4244+

1033

23504
23994
24084
24534
24574
2471
2656
267
1759
1997
4398
44BN
1728

2377

2158
2832
3321

588«
2165
2836
3351

591

2171
2838«
3370

598

2175
2905«
3374

607
2177+
2906+
3376+

4288
6107

4290+

4253

4313+

43564+

4220
735

4362

4838

2566

1831

4787

2551

2897

4497
1107
1845

3694

37N

4328

4484

4487

4248
1387

2680
1778

2280

L1664

4228

1789

1803

1433

2360
2910+

4143

1458

1643

1683

2371
2915

2699
2927
4269

4565

4546
1169
1873

4593
1330
1887

4683

4490

4706

Ll44a

2710
2933

2086
2808+
2939

4592

55844

4461
1081

3068

3408

3449

1416
1901

4190

1634
1914
4254

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

015320
021676
021750
021764
021666
022620
022624
032030
023274
023304

TYPEQM
TYPERA
TYPER1
TYPERZ

TYPER3
TYPT1
TYPT?
UPAROW
UPDATE
UPDAT

[

WAI TGN
WAITG]

WAITG2
WAITG3

WORD?Z
X

XADCNT
XADRE
S
XASEMB
XASEM1
XAVRAG
XBCDBI
XBINDE

XBUFQ

XCHANE

XCSRO

XDELAY
XDIV
XDLAYL

XDLAY?2
XDLAY3

XDSTG1
XDSTIN
XERMES
XGE TRG
XHIGH

XINTO

XLDADD
XLDCHR
XLD1
XLOOP
XLOW

XLVLO

XNODLY
XNULL

XNULL1

XNULL?2

XOCTPR
XPDME
S
XPRCNT

XPRCT1

XPRINT
XPRTRB
XRANGN

XRECRO

104034
006510
006540
006576
023206
000013

00€670
020374
023156
023202
015702
022430
022574
001364
020512
001362
022116
V31772
022126
022160
022144
017206
017164
020540
023102
032014
001372
017320
017302
017312
021216
032003
001374
021544
021554
021564
021604
022010
015662
021376
021432
021650
022246
020776

016130

3693

LL64N

4475
L484n
L4624
L6884
L6894
4383
804
316

1424
1634n
16434

16554

L7974
L7H
632
189
188
179
L794H
19
190
193

2134
192
2124

L5240
1527
170

4533

L5294

3986
186
184
169
1537
2174
173
172
LOLON
4307
1533

218#
196

183
185
4427
178

3804*

166
4378
176
197
175
171

MACY11

3747

4481
4480#

G 13

PAGE 142
30A(1052)
20-JAN-78 (09:11
CROSS REFERENCE TABLE == USER SYMBOLS

37524

4485

4491

936
3727

963
(8254

1658

1671

SEQ 0162

4473
4695

4491

5527#
909

336

1579

1641

1656
4807
456

6334

16824
L151#
L7874
4802

1587

L4574
709

1596

48234
1604

1612

481
7104

4824
789

515

3983

3996

40484

7904

4158

3818%

LOLON
(6834
4087
41884
4085
55164

6192

182

45264

4530
39944

4532

39824

42034
L7684

55214

3970

4038#
4049
L3154
5519#
294
44204

L4264
44284

4432n
LL97H

38064
43774
4380
L4584
4574m
L2694
38874

3974
4316

4436

43864

4289

5164

545

5464

576

S577#

616

617

CZPMAC0P$?M70 DIAGNOSTIC TEST

MACY11

168
167

47504
42284

187

39694
43264
177
43694
43704
43624
16314
5512#
55154
55134

19-JAN=-78 14:50

CZPMAC

XSAVRG
XSCOPE
XSETUP
XSOURC
XSPACE
XTTYIN
XTYPE1
XTYPE?2
XTYPIT
XWATGN
XMV

X10uvV
X 100UV
Y

ZERO

023026
020636
021276
017144
021234
014716
021366
021370
021340
006474
031753
031765
031757
000002
022706
032614

195

180
105
6367+
4366
174
194
1517

1523

1520
L8N
4687+
94
462
6664
915
1171
1352
1691

2093
2241
2373
2707
3036
33114
3707
3943

4098
4408
4790

H 13
PAGE 143
30A(1052)
20-JAN-78 09:11
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0163

43494

4702
S6#
470
710
939

1173
1441

1701
2099

2254
2391
2821
3048
3313
37564
3947

4106
64614
4871

4330
36614

3671

4704
1014
486
719
944
1189
1457
1725

47084
1044
493
726
949
1194
1462
1771

2116
2260
23974
2828
3070
3326
3800
3951

4129
4433
55944

21224
2282
2400
2840
3078
3378
3826
3985

4130

4468

55984

3754

1074

523
817
964

12054
1466
1772

2125
2290
2406
2919
30834
3468
3831

4004
61454
4503

1094

549
822
969
1213

1470
1782

2131
22954
2450
2943
3089
3477
3833

4019
4156
4511

1524

557
827

1041
1252
1501
1783

2163
2301
2464
2970
3094
34844
3858

4021
4219
6525

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

1091
1277
1522

11024
1298
1550

600
853

2048
2202
2351
2568
2994
3172
35554
3891

4071
4285
4598

427

603
867

620
880
1118
1331

2077
2217
2357
2652

2083
2223
2362
2661
3008
3186
36044
3934

3000
31824
3597
39054
4073
4341
4627

1638

4086
4364
4632

CZPMACO PDM70 DIAGNOSTIC TEST

CZPMAC.P11

cTX

SIO

TA
TS

. ABS.

19-JAN=-78 14:50

1124
1124

1124
111

032614

ERRORS DETECTED:

I 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

515

545

576

632

709

789

000
O

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