Digital PDFs

AH-9303D-MC

July 1978

Number of pages unknown

Original

8.8MB

view download

OCR Version

7.2MB

view download

Document:	CZRPYD0 RP11E FUNCTIONAL LOGIC READ-WRITE TEST JUL 1978 bw
Order Number:	AH-9303D-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRPYD0__RP11E__FUNCTIONAL_LOGIC__READ-WRITE_TEST__AH-9303D-MC__JUL_1978_bw.pdf

OCR Text

READ/
& IC
FUNCTIONAL LOG

CZRPYDO

SRR N

AH-9303D-MC

JUL1978

CZRPY=-D, RP11-E FUNCTIONAL LOGIC
.P
CZRPYD
2 -APR-78 14-42

& R/wW TEST

MACY11

30A(1052)

1
22-APR-78

14:43

PAGE 2

SEQ 0001

.REM %

IDENTIFICATION

PRODUCT

CODE:

AC-93020-MC

PRODUCT

NAME:

CZRPYDO RP11E

DATE:

1-MAY-78

MAINTAINER:

DIAGNGSTIC

AUTHOR:

FUNCTIONAL

LOGIC

& READ/WRITE

GROUP

HESS

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

DIGITAL

THE
NOT

THE

FOLLOWING

DIGITAL
DEC

ARE

EQUIPMENT

CORPORATION ASSUMES NO RESPONSIBILITY FOR

(C)

USE OR RELIABILITY OF
SUPPLIED BY DIGITAL.

TRADEMARKS

PDP
DECUS

ITS

1975,

DIGITAL

UNIBUS
DECTAPE

SOFTWARE

EQUIPMENT

THAT

1978 BY DIGITAL EQUIPMEN CORPORATION

EQUIPMENT

CORPORATION

MASSBUS

TEST

CZRPY=D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PI1
22-APR-78 14:42

& R/W TEST

MACY11

30A(1052)

.1
22-APR-78

14:43

CONTENTS
1.

ABSTRACT

REQUIREMENTS

2.1
2.2
2.3
3.

STARTING PROCEDURE
3.1
3.2
3.3
3.4
3.5

—

s
o

Y
s

W
e
c

SWITCH SETTINGS

TELETYPE KEYBOARD AND PRINTER UNIBUS
TTY KEYBOARD ENTRY CON'ROL CODES AND

RP11E UNIBUS ADDRESS CHANGE ROUTINE
CONVERSATION MODE
OPERATION OF TESTS 15, 16, & 17

ADDRESSES
CONVENTIONS

ERROR REPORTING
ERROR TYPES

(o Yo Yo Yo

RESTRICTIONS

.
.2
.3
.4

SUBSYSTEMS WITH MIXED DRIVE TYPES
FORMATTED PACKS
"CONTROL C' TERMINATION DURING TESTS 5 & 13
CONTROLLER INTERRUPT

MISCELLANEOUS

NNNNNNNNNYNY

. L] L] L[]
. L]
.
L)
OO0 NON\NASSNN)
—

OPERATIONAL

ERROR HANDL ING

5.1
5.2
6.

LOADING PROCEDURES
STARTING ADDRESSES
OPERATOR ACTION
'CONTROL C' OPTION
DEFAULT RP11E UNIBUS ADDRESS

OPERATING PROCEDURES

NN BN

EQUIPMENT
STORAGE
PRELIMINARY PROGRAMS

.10

RUN TIME
STACK POINTER

END OF PASS/END OF
SUBROUTINE CALLS
DISK SURFACE USAGE

TEST

TEST EXECUTION SEQUENCE
DRIVE STATUS TYPEOUT

DATA COMPARSION USING MEMORY MANAGEMENT

PATTERN SELECTION WORD

CONTROLLER/DRIVE OPERATION TIME LIMIT

TEST DESCRIPTIONS

PROGRAM LISTING

PAGE

SEQ 0002

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PI
22~APR-78 14:42
1.

MACY11

3GA(1052)

1
22-APR-78

14:43

PAGE 4

ABSTRACT

THE RP11E FUNCTIONAL LOGIC & READ/WRITE TEST PERFORMS A CURSORY CHECK
OF THE RP11E CONTROLLER LOGIC AND PERFORMS DATA STORAGE/RETRIEVAL
TESTING OF THE SUBSYSTEM.
INCLUDED IN THE PROGRAM ARE UTILITY
TESTS WHICH ASSIST IN PERFORMING HEAD ALIGNMENT, WHICH CHECK

SUBSYSTEM POWER FAIL OPERATION,
DRIVE CONTROL SWITCHES.

AND WHICH CHECK

THE

RP11E

AND

THE PROGRAM CONTAINS A 'CONVERSATION MODE' WHICH ALLOWS THE OPERATOR
TO MODIFY THE OPERATION PARAMETERS FOR THE DATA STORAGE/RETREIVAL
TEST.
THE PROGRAM WILL USE MEMORY MANAGEMENT [N THE OPERATION
OF THE DATA TEST IF THE PROGRAM IS BEING RUN ON A MEMORY MANAGEMENT
SYSTEM.
THIS PROGRAM COMPLETES THE TESTING STARTED IN THE DISKLESS CONTROLLER
TEST (MD-11-DZRPW).
TESTING IN THE FUNCTIONAL LOGIC PROGRAM [S
PERFORMED WITH 1 - 8 RPO2, RPRO2, OR RPO3 DISK DRIVES.

REQUIREMENTS

2.1

EQUIPMENT
PDP-11 COMPUTER WITH 12K OF MEMORY; CONSOLE TELETYPE; RP11E DISK
CONTROLLER; 1 TO 8 RP0O2, RPRO2, OR RPO3 DISK DRIVES WITH FORMATTED

PACKS.

2.2

STORAGE
THIS PROGRAM WILL

2.3

LOAD

AND

RUN

12K.

PRELIMINARY PROGRAMS

MAINDEC-11-DZRPW - RP11E

DISKLESS LOGIC

TEST

STARTING PROCEDURES

3.1

LOADING PROCEDURES
THE

PPOGRAM MAY

LOADED

FROM EITHER

DEVICE.
REFER TO EITHER THE
FORMAT PAPER TAPES OR TO THE

PAPER

TAPE

'XXDP'

STANDARD PROCEDURES FOR LOADING 'ABS'
°'XXDP' SYSTEM REFERENCE DOCUMENT.

THIS PROGRAM MAY BE INCLUDED IN AN 'XXDP' CHAIN.
[IF THE PROGRAM
IS PART OF A CHAIN AND IS LOADED FROM AN RP02, RPRO2, OR AN RPO3,
THE PROGRAM WILL NOT USE DRIVE O FOR TESTING.

SEQ 0003

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1N
22-APR-78 14:42

3.2

30A(1052)

1
22-APR-78

14:43

PAGE

STARTING ADDRESSES

200
204
210
214

3.2.1

MACY11

NORMAL STARTING ADDRESS
SELECT OPERATING PARAMETERS
SELECT RP11 ADDRESS
COMBINATION OF 204 AND 210

START FROM LOCATION 200
WHEN THE PROGRAM IS STARTED FROM LOCATION 200, ALL ONLINE DRIVES WILL
BE USED (SEE SECTION 3.1 FOR DRIVE O EXCEPTION) USING TESTS 0 - 14,
ALL PARAMETERS FOR TEST 14 WILL BE RFTURNED TO THEIR DEFAULT VALUES.

3.2.2

START FROM LOCATION 204
WHEN THE PROGRAM IS STARTED FROM LOCATION 204, °PRAMETERS FOR TEST 14
ARE RESET TO THEIR DEFAULT VALUES, AND THE PROGHAM ENTERS CONVERSATIONAL
MODE.

3.2.3

START

FROM LOCATION 210

WHEN THE PROGRAM IS STARTED FROM LOCATION 210, OPERATION IS THE
SAME AS THE START FROM 200, EXCEPT THAT THE PROGRAM ASKS FOR AN
RP11E ADDRESS.
THE OPERATOR MAY ENTER A NEW ADDRESS VALUE OR HE
MAY RETAIN THE CURRENT VALUE.
THE PARAMETERS FOR TEST 14 ARE RESET
TO THEIR DEFAULT VALUES.

3.2.4

START

FROM LOCATION 214

PROGRAM

START

204 EXCEPT

PARAMETERS

.
«
«

(W I NV

D00 Yo

3.4

FOR

THE

SAME

THE

START

TEST

ARE

RESET

THEIR DEFAULT

FROM LOCATION

VALUES.

THE

TO SECTION 4.1eer

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.1)
CHANGE TELETYPE KEYBOARD AND PRINTER ADDRESSES AS REQUIRED
(SEE SECTION 4.2)
PLACE A FORMATTED PACK ON DRIVE(S) TO BE USED
BRING DRIVE(S) TO ONLINE STATE.
PLACE 'FORMAT' AND 'MAINTENANCE' SWITCHES ON THE RP11E
CONTROL PANEL TO 'NORMAL'
SET CONTROLLER AND DRIVE WRITE LOCKOUT SWITCHES AS REQUIRED
LOAD ADDRESS 200, 204, 210, OR 214.
SET CPU SWITCH REGISTER SWITCHES (SEE SECTION 4.1)
PPESS

'CONTROL
THE

THE PROGRAM ASKS FOR A NEW RP11E ADDRESS.

OPERATOR ACTION
+++BEFOR STARTING REFER

N —

3.3

FROM LOCATION 214

THAT

START

C'
C'

THE

CPU

CONTROL

PANEL

OPTION

OPERATOR MAY

"CONTROL

TERMINATE

ON THE

THE

CURRENT

TELETYPE KEYBOARD.

TEST

TYPING A

ANY

TIME

'CONTROL ('

TYPING A

CAUSES

THE PROGRAM TO ENTER THE °'CONVERSATION MODE' ROUTINE.
ALL THE
PARAMETERS FOR TEST 14 WILL BE RETURNED TO THEIR DEFAULT VALUES.

SEQ 0004

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
22-APR-78 14:42

3.5

MACY11

30A(1072)

22-AFR-78

14:43

PAGE 6

SEQ 0005

DEFAULT RP11E UNIBUS ADDRESS
THE DEFAULT RP11E UNIBUS ADDRESS IS 176710.
WHEN THE PROGRAM [S
STARTED FROM EITHER LOCATION 200 OR LOCATION 204, ADDRESS 176710

WILL BE CHECKED AND IF NO RESPONSE IS RECEIVED FROM THAT ADDRESS
THE PROGRAM WILL ENTER THE RP11E ADDRESS CHANGE ROUTINE.
ADDRESS CHANGE OPERATION WILL BE IDENTICAL TO THE OPERATION WHEN
THE PROGRAM IS STARTED FROM EITHER LOCATION 210 OR 214.
(REFER
TO SECTION 4.4)

OPERATING PROCEDURES

THE

DIAGNOSTIC

IS RUN ON A

CPU WITHOUT A SWITCH

THEN A SOFTWARE SWITCH REGISTER [S USED WHICH ALLOWS
THE SAME SWITCH OPTIONS AS THE HARDWARE SWITCH REGISTER.

IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) IS USED.
CONTROL:
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY
DOING THE FQLLOWING:

2)
3)

TYPE

LOC.

CONTROL

THE

SOFTWARE

AFTER THE
OF

THE

ALLOW THE

TTY

TO ENTER

THEN TYrE:

SWR=XXXXXXNEW=

°'NEW='"'

(XXXXXX

DATA

INTO

IS THE OCTAL

CONTENTS

HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
THE

TTY:

TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <(CR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)

A <CR>

THE

FIRST KEY DEPRESSED THE

CONTENTS WILL

IF A CONTROL U < U>
BACK TO STEP 2.

OPERATIONAL

WITH
WITH

THIS WILL

SWITCH REGISTER.)

FOLLOWING AT

G>;

176 AT SELECTED POINTS WITHIN THE PROGRAM.

THE MACHINE WILL

4. 1

G <

SWITCH

SW<15:0>=1,
THE TEST.

NOT

SOF TWARE

SWITCH

CHANGED.

IS DEPRESSED THEN THE

PROGRAM WILL

SETTINGS

THE

PROGRAM WILL

TYPEOUT

ERRORS AND

CONTINUE

SEND YOU

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
22-APR-78 14:42
THE

SWITCH

MACY11

SETTINGS

30A(1052)

1
22-APR-78

14:43

PAGE

ARE:

SW<15>=1,
. . HALT ON ERROR
SW<14>=1,.,L00P ON TEST
SW<13>=1.,.INHIBIT ERROR TYPEOUTS
SW<11>=1,
.. INHIBIT ITERATIONS
SW<10>=1...RING BELL ON ERROR
SW<09>=1...L0O0OP ON ERROR
SW<07>=1...DON'T TYPE DRIVE STATUS WHEN PROGRAM STARTED OR WHEN
ENTERING CONVERSATION MODE.
CHANGE HEAD SELECTION IN TEST 16.
SW<06>=1...DON'T USE MEMORY MANAGEMENT IN TEST 14
SW<05>=1...DISPLAY ALL READ RETRY ATTEMPTS [N TEST 14
SW<04>=1...TYPE ALL DATA COMPARE ERRORS IN TESTS 13 g 14
SW<03>=1...INHIBIT DATA COMPARE IN TESTS 13 ¢ 14
SW<02>=1...BYPASS REAC & DATA COMPARE [N TEST 14
SW<01>=1,. .BYPASS WRITE CHECK IN TEST 14
SW<00>=1...BYPASS WRITE IN TEST 14
4.2

TELETYPE

KEYBOARD AND

PRINTER UNIBUS

ADDRESSES

THE PROGRAM ASSUMES THE FOLLOWING UNIBUS ADDRESSES.
THESE ADDRESSES
MAY BE CHANGED AT THE INDICATED LOCATION BEFORE STARTING THE
PROGRAM.
MEMORY

LOCATION

CONTENTS

FUNCTION

1136
1140

177560
177562

TTY KEYBOARD STATUS REG
TTY KEYBOARD BUFFER REG

1142
1144

177564
177566

(THE

RP11E

TYPED

214 OR
4.3

UNIBUS ADDRESS

REQUEST

THE

THERE

TTY

KEYBOARD ENTRY

THE

FOLLOWING

(

CHANGED
IS

IN RESPONSE

STARTED

TO THE

FROM EITHER

PROGRAM'S

LOCATION

210 OR

IS NO RESPONSE WHEN LOCATION 176710 IS ADDRESSED.)

CONTROL

(CR)

PROGRAM

CONTROL

CA:?%ASE RETURN
URN.

CONTROL U

TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REG

CODES

= ALL

THIS

CODES
AND

AND

CONVENTIONS

ENTRIES MUST BE

CONTROL

CODE

ARE

USED

TERMINATED BY

IS TYPED BEFORE

THE

PROGRAM:

CARRIAGE

AN ENTRY

TERMINATED, THE ENTRY IS CLEARED AND ANOTHER VALUE MAY BE ENTERED.
A
U IS TYPED BY PRESSING THE 'CONTROL' AND 'U' KEYS TOGETHER.

SEQ 0006

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PIN
22-APR-78 14:42
RUBOUT

(RO)

MACY11

THIS

CONTROL

30A(1052)

CODE

1
22-APR-78

TYPED,

THE

14:43

PAGE

CHARACTER

TYPED

BEFORE THE 'RO' WILL BE DELETED FROM THE ENTRY.
EACH TIME
A 'RO* IS TYPED, THE LAST CHARACTER IN THE INPUT ENTRY [S DELETED.
WHEN A ‘RO’ IS TYPED, THE ENTRY ROUTINE WILL TYPE A BACKSLASH
(' ') CHARACTER AND THE CHARACTER BEING DELETED.
WHEN A CHARACTER
OTHER THAN A "RO' IS TYPED, THE ENTRY ROUTINE WILL TYPE ANOTHER

BACKSLASH

CHARACTER AND

CANNOT BE USED TO DELETE

TYPE

THE

NEW CHARACTER ENTERED.

'CR".

THE

‘RO’

CONTROL C ( C) = THE OPERATION OF THE ' C' CHARACTER IS DESCRIBED
IN SECTION 3.4.
' (' MAY ALSO BE USED TO ABORT THE CONVERSATION
MODE

AND

TO RETURN

THE

BEGINNING OF

IS GENERATED BY PRESSING THE

ONLY A

PROGRAM,

"CR"'

IS ENTERED

THE

'CONTROL®

IN RESPONSE

PROGRAM WILL

USE

THE

CONVERSATION MODE.

KEY AND THE

'C'

KEY.

TO AN ENTRY REQUEST FROM THE

DEFAULT

VALUE

FOR

THE

REQUESTED

ENTRY.
LEADING ZEROS ARE
4.4

NOT

RP11E

UNIBUS ADDRESS

WHEN

THE

PROGRAM

PROGRAM WILL

WHEN

THE

ASSUME

PROGRAM

REQUIRED ON ANY
CHANGE

ROUTINE

STARTED
THAT

ENTRY.

FROM LOCATION 200 OR

THE

STARTED

RP11E

UNIBUS

LOCATION 204,
ADDRESS

FROM EITHER LOCATION 210 OR

THE

176710.

LOCATION

214, THE PROGRAM ENTERS A ROUTINE WHICH ALLOWS THE OPERATOR TO
CHANGE THE RP11F UNIBUS ADDRESS TO BE USED BY THE PROGRAM.

WHEN THE ADDRESS CHANGE ROUTINE
PRESENT RP11E UNIBUS ADDRESS:

RPADR

NOTE:

‘'AAAAAA'

ENTRY WITH A
IS

ENTERED,

THE

PROGRAM

TYPES

THE

AAAAAA/

THE ADDRESS TYPED OUT
ADDRESS IS ENTERED BY
ADDRESS

'CR'.

REPRESENTS

THE

PRESENT

ADDRESS

MAY BE USED BY TYPING A 'CR' ONLY.
A NEW
TYPING THE NEW ADDRESS AND TERMINATING THE

(THE NEW ADDRESS WILL BE

USED UNTIL ANOTHER

ENTERED.)

AFTER THE OPERATOR HAS RESPONDED TO THE ADDRESS ENTRY
PROGRAM WILL VERIFY THAT THE RP11E ADDRESS RESPONDS.

IS REgEéVED FROM THE
:
IS TY
RP11E
RPADR
AAAAA

RP11E

ADDRESS.,

DIDN'T RESPOND

REQUEST, THE
IF NO RESPONSE

THE FOLLOWING ERROR MESSAGE

TO ADDRESSING

THE PROGRAM RETURNS TO THE ADDRESS ENTRY ROUTINE.
THE
WILL NOT CONTINUE UNTIL THE OPERATOR ENTERS AN ADDRESS
THERE IS A UNIBUS RESPONSE.

PROGRAM
FOR WHICH

SEQ 0007

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PW
22-APR-78 14:42
6.5

MACY11

30A(1052)

1
22-APR-78

14:43

PAGE 9

SEQ 0008

CONVERSATION MODE
THE PROGRAM CONTAINS A °‘CONVERSATION MODE' ROUTINE WHICH ALLOWS THE
OPERATOR TO SELECT AND EXECUTE INDIVIDUAL TESTS AND TO SPECIFY
THE DRIVE TO BE USED.
THE CONVERSATION MODE ALSO ALLOWS THE OPERATOR
T0 CHANGE THE‘?PERATING PARAMETERS OF THE 'DATA STORAGE/RETRIEVAL
TEST' (TEST
.
WHEN

THE

IS TYPED:

PROGRAM ENTERS

CONVERSATION MODE,

THE

FOLLOWING MESSAGE

ENTER TEST #:
A 'CR' MAY BE ENTERED OR A VALID TEST NUMBER (E.G., 0 - 17) MAY BE
ENTERED.
THE DEFAULT ENTRY ('CR') WILL CAUSE THE PROGRAM TO SELECT
TESTS 0 - 14.
IF A SINGLE TEST NUMBER IS ENTERED, ONLY THAT TEST
WILL BE EXECUTED.
THE

PROGRAM WILL

THEN ASK

FOR

A DRIVE

ASSIGNMENT.

ENTER DRIVE #:
A 'CR' ENTRY WILL CAUSE THE PROGRAM TO SELECT ALL ONLINE DRIVES FOR
TESTING.
IF A VALID DRIVE NUMBER IS ENTERED (0 - 7), THE PROGRAM
WILL CHECK THE STATE OF THE DRIVE: IF THE DRIVE IS NOT ONLINE, THE

DRIVE'S ?;ATUS WILL BE

DRIVE

TYPED AND THE PROGRAM WILL ASK FOR ANOTHER

ENTRY.

TEST 15,

NUMBER

16, OR 17 IS SELECTED,

REQUEST

WILL

ENTERED FOR TEST

15,

TESTS 0 - 13,

NOT

16,

'CR'

ACCEPTED;

OR 17.

RESPONSE

SPECIFIC

TO THE DRIVE

DRIVE

16 OR 17 HAVE BEEN SELECTED, OR

NUMBER MUST

THE ENTIRE

TEST SEQUENCE WERE SPECIFIED, THE PROGRAM WILL BEGIN EXECUTING THE
THE TEST OR SEQUENCE IMMEDIATELY.
[IF TEST 14 [S SPECIFIED, THE
PROGRAM WILL ASK IF THE OPERATOR WANTS TO CHANGE FARAMETERS FOR
TEST 14.
THE FOLLOWING MESSAGE IS TYPED.

CHANGE

PARAMETERS FOR

EITHER A

'CR'

IF A

IS ENTERED,

WILL BYPASS

"Y'

DIALOG.
THE

OR A

THE

PROGRAM WILL

'Y'

TEST

MAY BE ENTERED.

TYPE

THE

WORD

LENGTH

COUNT

FOR

TEST

°'SSSSSS'

'CR'

PARAMETER ENTRY ROUTINE

THE PROGRAM STARTS THE

THEN

MAXIMUM WORD

NOTE:

TEST

THE

OCTAL

START

TEST

THE PROGRAM
14,

TEST 14 PARAMETER CHANGE

FOR

ALL

(IN OCTAL):

VALUE OF

IS ENTERED,

AND

TEST

SSSSSS

THE WORD COUNT

TRANSFERS.

THE

PROGRAM WILL

MACY11

THEN ASK

FOR

30A(1052)

1
22-APR-78

14:43

PAGE

A NEW WORD COUNT.

ENTER NEW WORD COUNT:

EITHER A VALUE

(LESS THAN THE MAXIMUM TYPED ABOVE)

OR A

°'(R'

MAY BE ENTERED.
IF A VALUE IS ENTERED, THE NEW VALUE WILL BE USED
FOR ALL DATA TRANSFER OPERATIONS IN TEST 14.
WHEN THE PROGRAM ]S

RESTARTED OR A 'CONTROL (' IS TYPED, THE WORD COUNT VALUE WILL BE
RETURNED TO THE SYSTEM DEFAULT VALUE.
IF A 'CR' IS TYPED, THE
PROGRAM WILL

THE

USE

PROGRAM WILL

THE

DEFAULT

THEN ASK

WORD

FOR

COUNT

A PATTERN SELECTION WORD

ENTER PATTERN SELECTION CODE
ENTER
THE
THE

THE OCTAL VALUE

DEFAULT
PATTERN

THE

FOR TEST

PATTERN SELECTION WORD OR A

ENTER

(IF TESTING IS AT A SPECIFIC ADDRESS,
DATA PATTERNS BUT WILL USE THE LOWEST
BY THE PATTERN SELECT WORD.)
PROGRAM WILL

ASK

THE

ENTRY.

14:

VALUE.
REFER TO SECTION 7.9 FOR A
SELECTION WORD AND ITS USE IN TEST

AT A SPECIFIC DISK LOCATION,

THE

VALUE.

THE

°'CR'

DESCRIPTION OF
14.
IF TESTING

CODE

FOR A SINGLE

FOR
IS

THE PROGRAM WILL NOT ROTATE
NUMBERED PATTERN SPECIFIED

OPERATOR WANTS

TEST

PATTERN.

THE

SPECIFIC

DISK ADDRESS.

USE A SPECIFIC

ENTER EITHER A
WILL

TYPE

THE

'CR*

DISK ADDRESS FOR TEST

OR A

'Y'.

"Y'

IS ENTERED,

FOLLOWING REMINDER MESSAGE ABOUT

(A SINGLE

DATA PATTERN MUST

IF NOT, PATTERN O

THE

PROGRAM

DATA PATTERN USAGE.

HAVE BEEN SPECIFIED

(ALL ZEROS)

WILL BE USED)

THE PROGRAM WILL ASK FOR CYLINDER, TRACK, AND SECTOR ADDRESSES.
AN ADDRESS MUST BE ENTERED, THE PROGRAM WILL NOT ACCEPT DEFAULT

ENT?IE;EFOR THESE ADDRESSES.
GIVEN
BELOW.

THE

ENTRY REQUESTS FOR

THE ADDRESSES ARE

ENTER CYLINDER ADDRESS:
ENTER

TRACK ADDRESS:

ENTER SECTOR ADDRESS:

A SPECIFIC ADDRESS

PLACE

ONLY AT

THAT

IS ENTERED FOR TESTING,

ADDRESS

WITH

THE

WORD COUNT

TESTING WILL
AND

TAKE

PATTERN ENTERED

ABOVE.
THE TEST WILL MAKE ONE PASS AND GO TO END OF TEST.
SHOULD BE SET TO INHIBIT THE END OF TEST MESSAGE TYPEOUT.

Sw<14>

TO TERMINATE THE TEST OR SEQUENCE, EITHER TYPE A °CONTROL C' OR HALT
THE PROCESSOR AND RESTART AT THE APPROPRIATE STARTING ADDRESS.

SEQ 0009

[on Nen]

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PIN
22-APR-78 14:42

4.6

OPERATION OF
TEST

TESTS 15,

15 AND TEST

AND OPERATING

16,

30A(1052)

1
22-APR-78

14:43

PAGE

& 17

17 CONTAIN

INSTRUCTIONS

IMBEDDED OPERATING

ARE

TYPED OUT AS

THE

INSTRUCTIONS.
TEST

PROCEEDS.

SETUP

TO OPERATE TEST 16, 'HEAD ALIGNMENT ROUTINE', REFER TO THE APPLICABLE
MAINTENANCE MANUALS FOR THE DRIVE SETUP PROCEDURES.
THE PROGRAM
WILL TYPEOUT THE CONTROLLER SETUP PROCEDURES.
TO CHANGE HEAD

SELECTION,

TO SETUP

SW<07> MUST BE

THE

RP11E

TOGGLED

(TURNED ON,

FOR HEAD ALIGNMENT,

PINS J13M2 AND J13C2 ON THE BACKPLANE.

THEN OFF).

CONNECT A JUMPER BETWEEN

ERROR HANDLING

5.1

ERROR REPORTING
WHEN

THE

PROGRAM DETECTS

SW<13> IS NOT SET,

EACH ERROR

CONTAINS

AN ERROR MESSAGE

B.
C.

A DATA HEADER LINE
A DATA LINE CONTAINING
1.
THE TEST NUMBER

5.2

TYPEOUT

ERROR

THE

ERROR

ROUTINE

THE

(PROGRAM COUNTER CONTENTS) WHERE

CONTENTS OF

THE APPROPRIATE REGISTERS

CALL

OTHER

CALLED;

FOLLOWING:

THE ADDRESS

WAS MADE

SPECIFIC

THE ERROR

DATA

TYPES

THE ERRORS
FATAL.
FATAL

ERROR,

THE ERROR MESSAGE FOR THAT ERROR WILL BE TYPED.

DETECTED

ERRORS

ARE

DRIVE

DIVIDED

UNSAFE

INTO 2

ERRORS

CATEGORIES:

WHICH OCCUR

FATAL

AND

THE

DRIVE

NON-

BEING

USED FOR TESTING OR DRIVES WHICH GO OFFLINE DURING TESTING.
[IF EITHER
Of THESE TWO CONDITIONS OCCUR, THE PROGRAM WILL TERMINATE TESTING
USING THE DRIVE WHICH GAVE THE FATAL ERROR.
ALL
ThE

OTHER
ERROR

ERROR TYPES ARE
IS REPORTED.

NON-FATAL,

E.G.,

TESTING

CONTINUES

AFTER

MACY11

SEQ 0010

[

CIZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
22-APR-78 14:42

MACY11

RESTRICTIONS

6.1

SUBSYSTEMS WITH MIXED DRIVE
THE

PROGRAM ASSUMES

THAT

30A(1052)

1
22-APR-78

14:43

PAGE 12

TYPES

ONLY

ONE

THE

SAME

KIND OF

DRIVE

ATTACHED

A SYSTEM (E.G. RP02'S & RPRO2'S OR RP0O3'S).
IF BOTH RP02'S
(AND RPROZ2'S) OR RP0O3'S ARE ON THE SAME SYSTEM, THE PROGRAM WILL
ASSUME THAT ALL OF THE DRIVES ARE RP03'S.
TO TEST DRIVES ON A

MIXED

SYSTEM,

TEST

ALL

OTHER DRIVES ON THE

6.2

6.3

FORMATTED

KIND OF

CONTROLLER MUST BE

DRIVE

ONE

TIME.

THE

POWERED DOWN.

PACKS

EACH OF

THE

‘CONTROL

DRIVES BEINuL USED MUST

HAVE

FORMATTED DISK

PACK.

TERMINATION DURING TESTS 5 & 13

IF TESTS 5 OR 13 ARE TERMINATED WITH A "CONTROL C*', CYLINDER
0. TRACK O, SECTOR O MAY BE LEFT WITH EITHER AN INVALID HEADER OR
AN INVALID DATA FIELD.
IF TEST 5 IS STOPPED, THE HEADER FOR SECTOR 0
MAY

STILL BE

MISFORMATTED;

STILL RECORDED

6.4

CONTROLLER

IN 10/15 MODE.

TEST

IS STOPPED,

SECTOR O MAY BE

INTERRUPT

THE PROGRAM DOES NOT USE CONTROLLER INTERRUPT. THE PROGRAM WAITS
THE CONTROLLER 'READY' OR DRIVE °'READY' BITS TO SET TO INDICATE
ORDER TERMINATION.

FOR

SEQ 0011

[N el

CIRPY-D, RP11-f FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PN
22-APR-78 14:42

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1N
22~APR-78 14:42
7.

MISCELLANEOUS

7.1

RUN

MACYT1

30A(1052)

n1
22-APR-78

14:43

PAGE

TIME

TO MAKE ONE

PASS OF

THE

PROGRAM

(TESTS O -

14)

TAKES APPROXIMATELY

20 MINUTES FOR EACH RP02 OR RPRO2 USED AND APPROXIMATELY 40 MINUTES
FOR EACH RPO3 USED.

7.2

7.3

STACK POINTER

STACK

INITIALLY

END OF

PASS/END OF

SET

TO 1100 AND EXTENDS DOWNWARD

TEST

THE PROGRAM WILL PERFORM ONE PASS FOR EACH DRIVE
TESTING.
END OF TEST WILL OCCUR WHEN EACH DRIVE
TESTING HAS HAD ONE PASS.

7.4

SUBROUTINE

IN MEMORY.

BEING USED
BEING USED

FOR
FOR

CALLS

THE

SUBROUTINE

"SCOPE'
(IOT INSTRUCTION).
THIS CALL IS PLACED BETWEEN EACH
TEST IN THE PROGRAM.
THIS ROUTINE ESTABLISHES THE TEST ITERATION
COUNT AND LOOP ON TEST AND LOOP ON ERROR ADDRESSES.

THE

'ERROR'

CALLS

(EMT

USED

THE

INSTRUCTION).

PROGRAM ARE:

THIS CALL

IS USED TO REPORT ALL

ERRORS.
A CALL TO THIS ROUTINE IS FOLLOWED BY A NUMBER WHICH
IDENTIFIES THE ERROR MESSAGE WHICH WILL BE TYPED.
TRAP

INSTRUCTION

IS USED

FOR

THE

FOLLOWING

SUBROUTINE

TYPE - TTY TYPEOUT ROUTINE
TYPOC - TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPOS - TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPDS - TYPE DECIMAL NUMBER
RDCHR - READ A CHARACTER FROM THE TTY KEYBOARD
ROLIN - READ A LINE FROM THE TTY KEYBOARD

SAVREG - ROUTINE

RESREG - ROUTINE

TO SAVE

RO - RS

TO RESTORE

RO - RS

CALLS:

SEQ 0012

CIZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CIRPYD.P1
22-APR-78 14:42
7.5

MACY11

PROGRAM USES

THE

FOLLOWING DISK

TEST

DISK

LOCATIONS

PAGE

FOR

TESTING.

ADDRESS

cYyL 0,

TRk O,

SEC O

cyL

TRk O,

SEC O

CyL O,

TRK 0,

SEC O

cvL O,

TRK O,

cYyL

CvyL O,

)

CyL

cvL 0,

TRk 0, SEC O

CyL O,

TRK O,

CvL

TRK

cyL 0,

TRk 0,

SEC O

cvL 0,

TRK O,

SEC O

ENTIRE

PACK

MAXIMUM CYL,

N/A

NONE

MAXIMUM CYL,

SEC O

TRK

19,

TRk 0,

SEC

TRK O,

SEC O

192,

TRK 0,

SEC

SEC O

SEC 0 - 9

0 -

19,

SEC

TRK O,

SEC

TEST EXECUTION SEQUENCE
THE TEST SEQUENCE IS TESTS 0
PERFORMED IF DIRECTED BY THE

15,

7.7

14:43

DISK SURFACE USAGE
THE

7.6

N1
22-APR-78

30A(1052)

16,

DRIVe
WHEN
TYPE

OR 17 CANNOT BE EXECUTED

STATLS
THE

ENTERS

- 14,
TESTS 15, 16, & 17 ARE ONLY
OPERATOR FROM CONVERSATION MODE.
TESTS

THE

TYPEOUT

PROGRAM

THE

IN SEQUENCE.

STARTED

FROM LOCATION

CONVERSATION ROUTINE

STATUS

DRIVES

FROM A
THIS

BE INHIBITED BY SETTING SW<07> BEFORE
"CONTROL C*' IS TYPED.

200,

204,

210,

'CONTROL

(°',

THE

DRIVE

THE

STATUS

PROGRAM

214

PROGRAM W]LL

TYPEOUT

(AN

STARTED OR A

SEQ 0013

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
22-APR-78 14:42
7.8

MACY11

30A(1052)

22-APR-78

14:43

PAGE

DATA COMPARSION USING MEMORY MANAGEMENT

THE SYSTEM HAS MORE

THAN 28K,

TEST 14 WILL ROTATE THE READ

BUFFERS THROUGH ALL OF MEMORY.
IF A DATA COMPARSION
ERROR IS DETECTED, THE PROGRAM WILL TYPEOUT THE 'GOOD' AND THE 'BAD’
DATA AND THE
V I R T U A L
ADDRESS OF THE COMPARSION ERROR LOCATION.
THE CONTENTS OF THE APR'S IN USE WILL ALSO BE TYPED.
IF MEMORY
MANAGEMENT IS ENABLED, THE PROGRAM PERFORMS ALL DATA COMPARSIONS
FROM VIRTUAL LOCATIONS 60000 - 137776 USING APR'S 3, 4, & 5.
THE
PHYSICAL

THE
TO

7.9

ADDRESS OF

APPLICABLE

THE

PATTERN

VIRTUAL

THE

'KIPAR'

ADDRESS

COMPARSION ERROR CAN BE

THE

ERROR.

FORMED BY

ADDING

(THE REGISTERS ARE

DISPLAYED)

SELECTION WORD

THE DATA PATTERNS USED BY TEST 14 ARE SELECTED FROM A SELECTION
WORD WHICH IS LOADED BY THE PROGRAM OR LOADED BY THE OPERATOR [N
CONVERSATION MODE.
THE PATTERN SELECTION WORD CONTAINS A BIT FOR

EACH PATTERN TO BE USED:

PATTERN 1,
PATTERN.
THE

OCTAL

ETC.

REFER

VALUES

FOR

b
b
D
b
d

7.10

INDIVIDUAL

DATA PATTERN ARE

OCTAL

THE

CONTENTS OF

REPRESENTS
EACH

FOLLOWS.

SELECTION CODE

400
1000

2000

4000
10000

20000

40000
100000

—

THE

EACH

NN —=OVONO
NS W
—=O

PATTERN #

BITOO REPRESENTS PATTERN 0, BITO1

TO SECTION 8.13 FOR

TOGETHER

SELECTION WORD.
TO SELECT PATTERNS 0, 6, & 13,
WORD COULD BE THE FOLLOWING OCTAL VALUE: 20101,

OCTAL

CODES

ARE

'OR

ED'

THE

FORM

THE

PATIVERN

PATTERN SELECTION

CONTROLLER/DRIVE OPERATION TIME LIMIT
ALL CONTROLLER AND DRIVE OPERATRIONS ARE TIMED BY THE PROGRAM, If
AN OPERATION EXCEEDS THE TIME LIMIT, THE PROGRAM WILL REPORT THE TIMEOUT,
RESET THE CONTROLLER, TERMINATE THE CURRENT TEST, AND GO TO THE
NEXT TEST. THE TIME LIMIT IS 150 MS TO 1.5 SEC (DEPENDING ON THE PROCESSOR).

SEQ 0014

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P"1
22-APR=-78 14:42
TEST

MACY11

30A(1052)

22-APR-78

14:43

PAGE

SEQ 0015

DESCRIPTIONS

TEST O VERIFY
READY

"CLEAR'

THAT

COMMAND TERMINATION TEST

°'CLEAR'

TERMINATES AN OPERATION AND CAUSES CONTROLLER

TO SET.

TEST

- WRITE

THIS

TEST

CHECK COMMAND TEST

VERIFIES

CHECK ERROR CAN BE

PATTERNS ARE

USED

TEST 2 - PARTIAL

THE

WRITE

CHECK

DETECTED.

TO TEST

THE

SECTOR WRITE

CHECK THE ABILITY OF

LOGIC AND

TO VERIFY

'FLOATING ONES'

WRITE

CHECK

AND

COMPARE

THAT

A WRITE

'FLOATING ZEROS'

LOGIC.

TEST

THE RP11E

TO CLEAR THE REMAINDER OF

A SECTOR

ON A PARTIAL WRITE OPERATION. A SECTOR OF ALL ONES IS WRITTEN AND
THEN A TWO WORD WRITE OPERATION IS PERFORMED. THE SECTOR IS THEN
READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND
THE REST SHOULD BE ZEROS.

TEST 3 -

"EOP'

TEST

TEST THAT 'EOP' SETS WHEN THE CONTROLLER TRIES TO WRITE BEYOND THE
LIMITS OF THE DRIVE.
THE FIRST SECTOR OF THE PACK IS WRITTEN WITH
ZEROS.; THEN A TWO SECTOR WRITE OF ALL ONE'S IS ISSUED FOR THE MAXIMUM
BE SET.
THE FIRST SECTOR OF THE PACK IS CHECKED TO MAKE SURE THAT IS
STILL CONTAINS ZEROS.
TEST 4 -

'PROG'

ERROR

TEST

VERIFY THAT THE RP11E GENERATES A
WHILE THE CONTROLLER IS BUSY.

TEST S -

"HEADER NOT FOUND®'

'PROG'

ERROR

COMMAND

ISSUED

TEST

MISFORMAT THE FIRST SECTOR ON THE PACK AND THEN READ [T BACK.
VERIFY
THAT READ AND WRITE HEADER OPERATIONS WILL TRANSFER DATA CORRECTLY.
ISSUE A WRITE COMMAND TO SECTOR ZERO; THIS SHOULD CAUSE °'HEADER NOT
FOUND' TO SET.
THE TEST SECTOR IS REFORMATTED.
TEST 6 - COMMAND BUFFERING TEST

ISSUE A SEEK COMMAND AND WAIT FOR DONE TO SET. THEN ISSUE A READ
COMMAND WHILE THE HEADS ARE STILL MOVING. THE RP11E SHOULD

HOLD

THE

TEST 7 -

READ

COMMAND UNTIL

"NXME'

ERROR

THE

SEEK

IS COMPLETE.

TEST

THE NON-EXISTENT MEMORY ERROR BIT IS TESTED BY ATTEMPTING TO READ 1
WORD INTO LOCATION 760000.
°'NXME', 'HE', & 'ERR' SHOULD ALL BE SET,

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
22-APR-78 14:42

8.9

TEST

MACY11

30A(1052)

22-APR-78

14:43

PAGE

SEQ 0016

10 - SECTOR ADDRESSING TEST

THE SECTOR ADDRESSING TEST TESTS THE CAPABILTIY Of THE RP11E TO LOCATE
A SECTOR BY USING THE 'SOT' COUNTER (FOR 'HDR® OPERATIONS) AND TO LOCATE
A SECTOR BY COMPARING THE HEADER CONTENTS AGAINST THE CYLINDER AND TRACK/

SECTOR ADDRESS REGISTERS

(NORMAL MODE).

1.
WRITE ALL HEADERS ON TRACK O,
FROM INDEX (0, 1, 2 ... 9).

THE

CYLINDER O

TEST

IS PERFORMED

IN 3 PARTS.

IN ASCENDING SEQUENCE

READ EACH HEADER, BEGINNING WITH SECTOR O, AND VERIFY THAT THE

SECTOR FIELD

IN THE HEADER

IS CORRECT FOR THE HEADER EXPECTED.

VERIFY THAT THE °'SOT' COUNTER AND THE SECTOR ADDRESS IN 'RPDA' ARE
EQUAL AND ARE THE EXPECIED VALUE.
THE EXPECTED VALUE IS 1 GREATER

THAN THE SECTOR READ.
WiLL ?ERINCREHENTED BY
REGISTER.
WRITE

OCTAL

THE

SECTOR'S ADDRESS

12 IS WRITTEN.)

CONTINUE

THIS SEQUENCE

FOR

SECTOR ADDRESS REGISTER AND THE °'SOT'
TIME THE PROGRAM IS ABLE TO READ THE

THE

DATA

TEST 11
TRACK

8.1

(FOR

THAT

THE

SECTOR 0,

THE REMAINING SECTORS ON THE

DATA

CORRECT

FOR

THE

TRACK.

(I.E., NON-HEADER)

EXPECTED SECTOR.

< TRACK ADDRESSING TEST

ADDRESSING

TESTED BY WRITING

THE

SECTOR O OF EACH TRACK IN CYLINDER 0.

THE

FIELD.

READ THE DATA FROM EACH SECTOR USING A NORMAL

READ AND VERIFY

8.10

THE
THE

DATA

CHECKED

TO VERIFY

THAT

THE

TEST

12 - EXTENDED MEMORY ADDRESS BIT

THIS

TEST

TESTS

THE

OPERATION OF

THE

TRACK'S ADDRESS

SECTOR O

AS DATA

IS THEN READ BACK AND

PROPER HEAD WAS

SELECTED.

TEST

EXTENDED MEMORY

ADDRESS BITS.

THE

SYSTEM DOES NOT HAVE MEMORY MANAGEMENT OR HAS MEMORY MANAGEMENT AND ONLY

32K,
1.

THE TEST WILL NOT BE PERFORMED.

THE PROGRAM WRITES A 2 WORD TEST

SECTOR OF

ALL ONES.

2.
EXTENDED ADDRESS BIT 'MEX00' IS TESTED BY CLEARING LOCATION
200000 AND READING THE TESY SECTOR INTO LOCATION 177776.
LOCATION
200000 IS CHECKED TO VERIFY THMAT THE DATA IS CORRECT (ONES).
THE

PROGRAM VERIFIES

THAT

'MEX00'

HAS

SET

AND

THAT

'MEX01°

IS NOT

SET.

3.
IF THE SYSTEM HAS AT LEAST 64K, 'MEX0O1°' IS TESTED.
LOCATION
400000 IS CLEARED AND THE TEST SECTOR IS READ INTO LOCATION 377776
("MEXQ0' IS SET FOR THE READ).
LOCATION 400000 IS CHECKED FOR THE

220§E$ CONTENTS

(ONES).

"MEX00'

SHOULD HAVE RESET AND

'MEX01°'

SHOULD

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PIN
22-APR-78 14:42
8.12

TEST

13 - RP11E

MACY11

30A(1052)

2
22-APR-78

14:43

PAGE

DATA BUFFER REGISTER BIT TEST

THE DATA BUFFER REGISTER TEST VERIFIES THAT ALL
BUFFER REGISTER CAN BE SET AND CLEARED.

36 BITS OF

THE

DATA

1.
THE TEST WRITES THE FOLLOWING TEST PATTERN IN CYLINDER O,
TRACK O, SECTOR O USING 10/15 MODE ('MODE' BIT SET).

052525
052525
000005
125252
125252
000012
052525
052525
000005
125252

ETC
2.

THE

TEST

COMPLETION OF
PDOP-11 MODE.

TEST

SECTOR
THE

TEST,

THEN READ AND THE DATA
THE

PROGRAM RESTORES

14 - DATA STORAGE/RETRIEVAL

IS COMPARED.

THE

TEST

SECTOR

THE

TEST

THE DATA TEST PERFORMS DATA STORAGE AND RETREIVAL TESTING USING THE CONTROLLER
AND THE CURRENTLY SELECTED DRIVE.
UNLESS ALTERED BY THE OPERATOR, THE
TEST WILL WRITE AND WRITE CHECK THE ENTIRE DISK PACK USING ALL 16 DATA
PATTERNS IN A ROTATING MANNER.
THE BUFFER SIZE USED FOR THE WRITE AND
WRITE CHECK ORDERS IS DETERMINED BY THE AVAILABLE MEMORY ON THE SYSTEM
(MINUS THE SPACE REQUIRED BY THE PROGRAM LOADER).
THE PROGRAM WILL USE
E?EEAVAILABLE MEMORY SIZE OR 8K, WHICHEVER IS LESS, AS THE BUFFER

AFTER THE PACK HAS BEEN WRITTEN, THE TEST WILL READ AND COMPARE THE
DATA.
THE BUFFER SIZE USED FOR THE READ IS THE SAME SIZE AS THAT USED
FOR THE WRITE/WRITE CHECK SEGEMENT OF THE TEST.
FOR THE READ SEGEMENT OF
THE TEST, THE PROGRAM ROTATES THE READ BUFFER THROUGH MEMORY SO THAT
ALL OF AVAILABLE MEMORY IS USED BY THE READ AND COMPARE OPERATIONS.
THE TEST USES MEMORY MANAGEMENT ON SYSTEMS WITH MORE THAN 28K.
(MEMOR)
MANAGEMENT WILL NOT BE USED If THE TEST IS RUN ON MEMORY MANAGEMENT

SYSTEMS WITH 28K OR LESS.)

[F AN ERROR OCCURS DURING A READ OPERATION (EXCEPT DATA COMPARSION
ERRORS), THE PROGRAM WILL RETRY THE READ ORDER UP TO 3 TIMES.
WRITE

AND WRITE

CHECK

ORDERS

ARE

NOT

RETRIED.

SEQ 0017

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1M
22~APR-78 14:42
THE

8.14

DATA PATTERNS

MACY1Y

USED

THE

30A(1052)
DATA

TEST

2
22-APR-78

ARE

14:43

PAGE

GIVEN BELOW:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
177777
000000

000000
010421
021042
031463
042104
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356
177777

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
125252
052525

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360
007417
170360
007417
170360
170360
007417

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
151322
026455

077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577

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

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555

077777
137777
157777
167777
1737277
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

000000
000000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

177777
177777
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

TEST

15 - POWER FAIL

TEST

TEST THE ABILITY OF THE RP11E TO SENSE POWER FAILURE AND FOR THE DRIVES
TO RETRACT THEIR HEADS.
WHEN POWER IS TURNED ON AGAIN
THE CYLINDER ADDRESS IS TESTED FOR ZERO.
AFTER TYPING THE MESSAGE
REQUESTING POWER TO BE TURNED OFF, THE PROGRAM GOES INTO A LOOP
READING FROM THE SELECTED DISK DRIVE.
AFTER POWER IS RESTORED,
MEMORY IS CHECKED TO SEE THAT THE DISK DID NOT TRANSFER ANY DATA
TO MEMORY WHILE POWER WAS GOING DOWN.

TEST

16 - HEAD ALIGNMENT ROUTINE

THIS ROUTINE
ALIGNMENT OF

PERFORMS HEAD SELECTION AS DIRECTED FROM THE KEYBOARD;
THE SELECTED HEAD MAY BE CHECKED OR ADJUSTED.

SEQ 0018

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PNM
22-APR-78 14:42
8.16

TEST

17 - RPT1E/DRIVE

MACYT1

30A(1052)

CONTROL PANEL

2
22-APR-78

14:43

PAGE 20

SWITCH TEST

THIS TEST TESTS THE "ENABLE/DISABLE' AND 'READ ONLY' SWITCHES
ON THE DRIVE CONTROL PANEL AND TESTS THE 'WRITE LOCKOUT' AND
'LOA' SWITCHES ON THE RP11E CONTROL PANEL.

PROGRAM LISTING

SEQ 0019

CZRPY-D, RP11 ~E FUNCTIONAL LOGiC & R/W TEST
CZRPYD.P1
22-APR-78 14:42

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

TITLE

CZRPY-D,

22-APR-78

14:43

PAGE 21

SEQ 0020

RP11-E FUNCTIONAL LOGIC & R/W TEST

- ¥

;*PROGRAM BY (. HESS/F. ROEMER
‘v

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC
tPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,

OPERATICNAL

ll‘l.""‘lll'll’.l

SBTTL

946

947

948
949

950
951
952
953

SWITCH

000174
000000
000000

HALT ON ERROR

“

LOOP ON

TEST

INHIBIT

ITERATIONS

INHIBIT ERROR TYPEOUTS

BELL ON ERROR

DON'T TYPE DRIVE STATUS WHEN PROGRAM STARTED OR WHEN
ENTERING CONVERSATION MODE

LOOP ON ERROR

CHANGE HEAD SELECTION IN TEST 16
DON'T USE MEMORY PANAGEMENT IN TEST 14
DISPLAY ALL READ RETRY ATTEMPTS IN TEST
PRINT

ALL

COMPARE

ERRORS

INHIBIT DATA COMPARE

TESTS

I[N TESTS 13 & 14

BYPASS READ AND DATA COMPARE IN TEST
BYPASS WRITE CHECK IN TEST 14
BYPASS WRITE IN TEST 14

TRAP CATCHER

;*ALL UNJSED LOCATIONS FROM & - 776 CONTAIN A ‘.42 HALT'
s*SEQUEN(E TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATIOwn O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=74

DISPREG:
SWREG:
.SBTTL

967

5
1

000000

000174
000176

USE

.SBTTL

SYSMAC

SWITCH SETTINGS

O =fNOWH
N

945

968
969
970
971
972
973
974
975
976
977
978

30A(1052)

;*COPYRIGHT (C) 1975,1978
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754

940
941
942
943
944

954
955
956
957
958
959
960
961
962
963
964
965
966

MACY11

.WGRD
.WORD

ACT11

0
0

;:SOFTWARE DISPLAY REGISTER
:;SOFTWARE SWITCH REGISTER

HOOKS

(MRARARARAA SRRl
ARt
R
R
02T

000046

000052

000200
000046
017050
000052
000000
000200

HOOKS

ACT11

iEggAD
«=JC

.WORD

.=$SVP(
.SBTTL

000200

REQUIRED BY
SSZZC-

.=200

JSAVE

;3V)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOQOP
O

STARTING ADDRESSES

;s2)SET LOC.52

;;

RESTORE PC

TO ZERO

C%:;YBD.1$P11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P
22-APR-78 14:42
STARTING ADDRESSES

979
980
981
982
983
984
985
986
987
988
989
990
991
99?2
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034

000200

000137

003654

000204

000137

003676

000210

000137

003644

000214

000137

003666

2
22-APR-78

14:43

PAGE 22

;%200 = NORMAL START
JMP

START1

JMP

START?

JMP

START3

JMP

START4

;%204 = SELECT OPERATING PARAMETERS
;%210 = SELECT RP11E ADDRESS
;%214 = COMBINATION OF 204 AND 210
.SBTTL

BASIC DEFINITIONS

;*INITIAL ADDRESS OF

THE STACK POINTER #*t 1100 wee

001100

STACK=

000011
000012
000015
000200

HT=

177774
177772
177570
177570

STKLMT= 177774

s:STACK LIMIT REGISTER

DSWR=
DDISP=

: ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

177776

000000
000001
000002
000003
000004
000005
000006
000007
000006
¢n007

.EQUIV
.EQUIV

EMT,ERROR
I0T,SCOPE

LF=
CR=
CRLF=
PS=

12
15
200
177776

.EQUIV

PS,PSW

PIRQ=

177772

177570
177570

. *GENERAL PURPOSE
RO=
X0

R1=

R&=

R2=
R3=
RS=

R6=
R7=
SP=
PC=

;;BASIC DEFINITION OF
::BASIC DEFINITION OF

::CODE

100000

sWwi5=
SWi4=
sWwi3=
sW12=
SWil=

PR4=
PRS=

PR6=
PR7=

FOR HORIZONTAL

;;GENERAL REGISTER

; ;GENERAL REGISTER
; :GENERAL REGISTER

; ;GENERAL REGISTER

: ;GENERAL

; ;GENERAL REGISTER
: ;GENERAL REGISTER
;s STACK POINTER
: ;PROGRAM COUNTER

0
40
100
140

s:PRIORITY
;;PRIORITY
ssPRIORITY
;;PRIORITY

300
340

;;PRIORITY LEVEL 6
;;PRIORITY LEVEL 7

200
240

LEVEL
LEVEL
LEVEL
LEVEL

0
1
2
3

;PRIORITY LEVEL 4
;;PRIORITY LEVEL S

;¥ 'SWITCH REGISTER' SWITCH DEFINITIONS
100000
40000
2000C
10000
4000

CALL
CALL

TAB

:;PROGR,
M INTERRUPT REQUEST REGISTER

¥4
13
16
X7
16
17

ERROR
SCOPE

::CODE FOR LINE FEED
:.CODE FOR CARRIAGE RETURN
;:CODE FOR CARRIAGE RETURN-LINE FEED
::PROCESSOR STATUS WORD

:*PRIORITY LEVEL DEFINITIONS

PRO=
PR1=
PR2=
PR3=

004000

1100

:*MISCELLANEOUS DEFINITIONS

000000
000040
000100
000140
000200
000240
000300
000340

040000
020000
010000

SEQ 0021

1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1068
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
107
1072
1073
1074
1075

1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090

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

14:43

PAGE 23

200

100
40

20
10

2
1

SW09,sw9
SW08,Sw8
SW07,Sw?7
SW06,Swé
SW05,SW5
SW04, SWé
SW03,sw3
SW02,Sw2
SW01,sw1
SW00,Swo

J*DATA BIT

DEFINITIONS
100000
40000

BIT1S=
BIT14=
BIT13=
8IT12
BITI

(BITOO TC BIT1S)

20000

10000
4000
2000

1000
400
200
100
40
20
10

2
1

BIT09,BIT19
BIT08,BIT8
BIT07,BIT17
BIT06,BIT6
BIT0S5,BITS
BIT04,BIT4
8I1703,8173
BIT02,B8IT?2
BITO01,BIT1
BIT00,BITO

.EQUlV
.EQUlV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

000004
000010
000014
000014
000014

2
22-APR-78

1000
400

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

100000

2000

Sw10=
SW09=
Sw08=
Swi7=
SW06=
SW05=
SW04=
SW03=
SW0?2=
SW01=
Sw00=

. *BASIC
ERRVE(C=
RESVE(C=
TBITVE
TRTVEC
BPTVEC

1037

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

1035
1036

MACY11 30A(1052)
DEFINITIONS

"'CPU"" TRAP VECTOR ADDRESSES

;:TIME

14
14

;s TRACE TRAP
; ;BREAKPOINT TRAP

OUT AND OTHER ERRORS

:sRESERVED AND

ILLEGAL

(BPT)

INSTRUCTIONS

SEQ 0022

CZRPY-D, RP11~E FUNCTINNAL LOGIC & R/W TEST
CZRPYD.P1N
22-APR=-73 14:42
BASIC

1091
1092
1093
1094
1095
1096
1097

F ¥ o BB DD NANANNNANANANNWANNDNNNNDNNDNDNNDN
= b b D D D
b =200 oo
(S
P
WN =2 OOV
NO NS W
OOV NOWVMEBWN 2O OB NO VNS WA —=0O 00 ~Oo

b
b

d
b

b
b

b
D
b

b
b

b
d
b

d e

e
e

b
d

e
b

d
d

D
b

d
b
=D
d

b
b
d
d
h
i

—a b cd od

—

—t

b ek

b e

b wd

b [y

1098
1099
1100
1101
1102
1103
1104
1105

1146

000020
000024
000030
000034
000060
000064
000240

MACY11 30A(1052)
DEFINITIONS

I0TVEC= 20

2
22-APR-78

14:43

;> INPUT/OUTPUT TRAP (]OT)

PWRVEC= 24

;s POWER

EMTVEC= 30

FAIL

:;EMULATOR TRAP (EMT)

MMVEC=

;*KT11

177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=

250

STATUS REGISTER ADDRESSES

177572
177574
177576
172516

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

KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR?=

172300
172302
172304
172306
172310
172312
172314
172316

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

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

JRPTIE REGISTER

000000
000002
000004
000006
000010
000012
000014
000016
000020

000022
000024

2«SCOPE2«

=+ERRORt*«»

TRAPVEC=34
2 'TRAP'' TRAP
TKVEC=
60
;:TTY KEYBOARD VECTOR
;:;TTY PRINTER VECTOR
TPVEC=
64
PIRQVE(=240
; ;PROGRAM INTERRUPT REQUEST VECTOR
.SBTTL
MEMORY MANAGEMENT DEFINITIONS

s*KT11 VECTOR ADDRESS
000250

PAGE 24

RPDS=00
RPER=02
RPCS=04
RPW(=06
RPBA=10
RPCA=12
RPDA=14
RPM1=16
RPM2=20

RPM3=22
SUCA=24

INDEX EQUATES

SEQ 0023

[ Xan)

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PN
22-APR-78 14:42
BASIC

WO
NN NNNNNNNNIOFrOrROOOOOOOOVWVWVIWVIVINWWVINWNE
WN =20V
NVNOWNES W 2LO VO NOWVMESWN—=O YV
YO VNS W —-O 00

000026

100000

OP CODE

SEQ 0024

DEFINITIONS

;CLEAR THE CONTROLLER

CLEAR=1

WRTSEK=3
RDSEK=S

WITH

JWRITE

CHECK WITH

s SEEK

WRITE=13
HOMSEK=15
READ=17

;WRITE

IMPLIED

SEEK

AND

HEAD

;WRITE (NO
JHOME SEEK

IMPLIIED

IMPLIED

SEEK

SFEK AND HEAD

OR HEAD

DEFINITIONS

SUWP=400
SUFU=1000
SUS1=4000
SURP03=20000
SUoL=40000
SURDY=100000

100000

MEX0=20
MEX1=40

IDE=100

RDY=200
HOR=4000
MODE=10000
A1E=20000
HE=40000
ERR=100000

SELECT)

JREAD (NO IMPLIED SEEK OR HEAD SELECT)

UNIT
UNIT
UNIT
UNIT
UNIT
SELECTED UNIT
;SELECTED
sSELECTED
SELECTED
;SELECTED
JSELECTED

WRITE PROTECTED
FILE UNSAFE
SEEK INCOMPLETE
IS AN RPO3
IS ONLINE
IS READY

JRPCS REGISTER BIT DEFINITIONS
000020
000040
000100
000200
004000
010000
020000
040000

SELECTION

JREAD WITH IMPLIED SEEK AND HEAD SELECT

WRTCHK=7
SEEK=11

sRPDS

000400
001000
004000
020000
040000

PAGE 25

SILO0=26
:RP11

000001
000003
000005
000007
000011
000013
000015
000017

14:43

;EXTENDED MEMORY BIT #1
JEXTENDED MEMORY BIT #2
. INTERRUPT ON DONE ENABLE BIT
:RP11

CONTROLLER

READY BIT

;HEADER OPERATION BIT
;MODE BIT
JATTENTION INTERRUPT
;HARD ERROR BIT

.ERROR BIT

ENABLE BIT

SELECT

[ Ne

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
CZRPYD.P11
MEMORY MANAGEMENT DEFINITIONS
22~APR-78 14:42

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.P11
22-APR-78 14:42
COMMON TAGS
.SBTTL

30A(1052)

2
22-APR-78

14:43

PAGE 26

SEQ 0025

COMMON TAGS

SRR RNNRNARRNORNREARRRRRRARRRRROROARRRRORRRERRORROARNRANSRRORARNRNORRORRNRYTY

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PRCGRANM.
001100

001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
061130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160
001162
001164
001166
001172
001173
001174

000
000000
000000
000000
177607
077
015
000012

001176
001200
001202
001204
001206
001210
001212
001214
001216
001220
001222

000000
000000
100000
000000
000000
000000
001750
000000
000000
000000
000000

SCMTAG:
$PASS:
$STSTNM:
$ERFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
SITEMB:
SERMAX:
SERRP(:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000

$AUTOB:
$INTAG:

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

O
0
0
O
O
O
O
0
1

.WORD
.WORD
LWORD
.BYTE
.BY;E

O
O
O
0
8

.WORD
.WORD
.WORD
,.WORD

.WORD

SWR:

DISPLAY:

$TKS:
$TKB:
$TPS:
$7PB:

000377

.=1100

.WORD

177560
177562
177564
177566

$SNULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
$TIMES: 0
$ESCAPE:O
$BELL:
.ASCIZ
$QUES:
ASCII
$CRLF:
LASCII
$LF:
ASCIZ
R

0
O
O
0

CNTRLC:

;;AUTOMATIC MODE
;;INTERRUPT MODE

DSWR

INDICATOR
INDICATOR

; ADDRESS OF SWITCH REGISTER

DOUISP

;. ADDRESS OF

;. TTY
:;TTY
J:TTY
;:TTY

0
2
12
0
O

<207><377><377>
77/
<15
<>

ARl

CHKDRV:
BYPASS:
FLAG:
PATNUM:

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

DISPLAY REGISTER

KBD STATUS
KBD BUFFER
PRINTER STATUS REG. ADDRESS
PRINTER BUFFER REG. ADDRESS

;;CONTAINS NULL CHARACTER FOR FILLS
;. CONTAINS # OF FILLER CHARACTERS REQUIRED
;o INSERT FILL CHARS. AFTER A '"'LINE FEED"
s 'TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
;:USER DEFINED
;;MAX. NUMBER OF JTERATIONS
;:ESCAPE ON ERROR ADDRESS
::CODE FOR BELL
:QUESTION MARK
;;CARRIAGE RETURN
;:LINE FEED

Re el

.WORD
.WORD
.WORD
_WORD

0
0
0
0

. ADDRESS OF DRIVE BEING USED
sTEST EXIT ADDRESS
; INTERNAL PROGRAM FLAG WORD
;CURRENTLY SELECTED PATTERN

MAXCYL:
TIMOUT:

.WORD
.WORD

.WORD

s CONVERSATION MODE FLAG

ICNT:
BUSADR:
STALLT:

.WORD
.WORD
.WORD

0
0
O

;TEST ITERATION COUNT
; CHANGE RP11 ADDRESS FLAG
s STALL VALUE

MMACTV:

.WORD

O
1000.

220

;MAXIMUR CYLINDER ADDRESS FOR THE
sTIME ALLOWED FOR AN OPERATION

sMEMORY MANAGEMENT

IS ACTIVE

FLAG

DRIVE

IN USE

001312
001314
001316
001320
001322

:
STRK
SSEC:

RDERR:
TSTNMS:
PATTRN:
MEMSIZ:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000

DRVTYP:

.WORD

000000
000000

DRVMSK:
DRVBAD:

.WORD
.WORD

000000

DRVSEL:
RETRY:
LRETRY:
CMP.CT:
LDRFLG:

.WORD
.WORD
.WORD
.WORD
.WORD

000000
000003

000003
000000

14:43

PAGE 27

SEQ 0026

sPHYSICAL ADDRESS OF NEXT READ BUFFER

sADDRESS OF LAST MEMORY BANK (FILLED BY $SIZE)
;PHYSICAL ADDRESS OF LAST MEMORY BANK (FOR TEST
sPHYSICAL ADDRESS OF FIRST BUFFER LOCATION

;SECTORS ON THE PACK ON THE DRIVE BEING TESTED
sSECTOR INCREMENT VALUE

Y
S
T
S
LY

2
22-APR=r8

OOO0OOO
no

LMT8K:

MAXWC:
SCYL:

s TRACK

OPRSEL:

—

INCSEC:
INCTRK:
BLKS14:
WwCl4:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

001306
001310

ACTMENM:
MAXMEM:
HIMEM:
LOMEM:
PAKSIZ:

001304

000000
000000
000000
000000
000000

OWWOO

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
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
020000
000000
000000
000000
000000
000000
000000
000000
000000

INCREMENT

VALUE

sNUMBER SECTORS IN TRANSFER IN TEST 14
;WORD COUNT FOR TEST 14
;OPERATOR SELECTED ADDRESS FLAG
sLARGEST TRANSFER PERMITTED
sMAXMUR WORD COUNT ALLOWED ON THIS SYSTEM
;OPERATOR SELECTED CYLINDER
;OPERATOR SELECTED TRACK
;OPERATOR SELECTED SECTOR
sREAD RETRY COUNTER
;TEST SELECTION WORD.
BIT 0 = TEST
sPATTERN SELECTION WORD FOR TEST 14

0O,

ETC.

;ADDRESS OF HIGHEST NON-MEMORY MANAGEMENT
sMEMORY LOCATION

;CONTAINS A BIT FOR EACH RPO3 DRIVE
;ON THE SYSTEM.
8IT00 = DRIVE 0, ETC.
;ORIVE TEST SELECTION MASK
;CONTAINS A BIT FOR THE DRIVE IF THE DRIVE
;GOES OFFLINE OR BECOMES UNSAFE DURING TESTING.
;BIT00 = DRIVE 0, ETC.
:CONTAINS A BIT FOR EACH DRIVE

TO BE

;RETRY COUNTER FOR TEST 14
;RETRY LIMIT FOR TEST 14
;NUMBER OF COMPARE ERROR TYPEOUTS
sWHEN =0 LOADERS ARE AT TOP OF MEMORY

TESTED

;RP11 ADDRESS VALUES
001324
001326
001332

176710
000254
000240

000256

RPADR
RPVEC:
RPPRI]O:

.WORD
.WORD
.WORD

176710

254,256
<5+32.>

:RP11
sRP11
sRP11

BUS ADDRESS
VECTOR ADDRESS
PRIORITY

sSAVE THE RP11E REGISTERS HERE
001334
001336
001340
001342
001344
001346
001350
001352
001354
001356

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

$RPDS:
$SRPER:
$RPCS:
SRPUW(:
$RPBA:
$RPCA:
$SRPDA:
SRPMI:
$SUCA:
$SILO:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

OCOOO0O0ODODOOO00O

12645
1246
1247
1248

001224
001230
001234
001240
001244
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302

;DRIVE STATUS «EGISTER
;ERROR REGISTER

;COMMAND & STATUS REGISTER
;WORD COUNT REGISTER

;BUFFER ADDRESS REGISTER
sCURRENT CYLINDER ADDRESS REGISTER
sTRACK=SECTOR ADDRESS
MAINTENANCE REGISTER

001340
001361
001362

001
002
004

ATAB]T:

.BYTE
.BYTE
.BYTE

;SELECTED UNIT CYLINDER ADDRESS REGISTER
;SILO REGISTER

JATTENTION BITS
&N
—

1240
1241
1242
1243
1244

30A(1052)
OO0OO0O0O0O0OOCWOOOOOOOOOOO

(IZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.P11
22-APR-78 14:42
COMMON TAGS

;ORIVE O
;DRIVE 1
JDRIVE 2

14)

(ZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD. PN
22-APR-78 14:42

(V. PRV N=2OVO
NN WN=O 0

cand oy
b
b
b
d ond
b
D ed
d
b
d
— —t

[V 3V ] AN N NN N NN NN W NN N W W
NN PNINON) = ad md cd ced d e d ed b o

1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308

1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344

1345
1346
1347
1348
1349
1350
1351

001363

001364
001365
001366
001367

001370
001371
001372
001373
001374
001375
001376
001377

& R/W TEST
MACYT11
COMMON TAGS

010
020
040

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

100

200

000
000
000
000
000
000
000
000

;DRIVE

STATUS

DRVSTA:

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

30A(1052)

10
20
40
100
200
INDICATORS

22-APR-78

14:43

;DRIVE
;DRIVE
;ORIVE
;DRIVE
;DRIVE

PAGE 28

SEQ 0027

3
4
5
6
7

(DRVSTA=8 BYTES)

;DRVSTA=0 DRIVE NONEXISTENT OR OFFLINE
;DRVSTA>0 DRIVE IS ONLINE
;DRVSTA<O DRIVE IS UNSAFE
0
0
0
0
O
0
O
0

;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
;ORIVE

0
1
2
3
4
5§
6
7

;BIT TABLE
001400
001402
001404
001406

001410
001412

001414
001416
001420
001422
001424
001426
001430
001432
001434
001436

001440
001442
001444
001446
001450
001452
001454
001456
001460
001462
001464
001466

001470
001472
001474
001476

000001
000002

BITS:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

BIT00
BITO1
BIT02
BIT03
BIT04
BITOS
BIT06
BITO7
BIT08
BITO09
BIT10
BITI
BIT12
BIT13
BIT14
BIT15

PAT.PT:

.WORD
.WORD

PATO
PAT1

000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

001500
001540
001600
001640
001700
001740
002000
002040
002100
002140
002200
002240
002300
002340
002400
002440

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

PAT?
PAT3
PAT4
PATS
PATé
PAT?
PATS
PAT9
PAT10
PATII
PAT12

PAT13
PAT14
PATI1S

;TABLE OF POINTERS WHICH POINT TO
sPATTERNS USED BY THE DATA TEST

THE

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
22-APR-78 14:42
COMMON TAGS

1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366

1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1604
1405
1406
1407

30A(1052)

€3
22-APR-78

14:43

;PATIERNS O THRU 15

001500
001502
001504
001506
001510
001512
001514
001516
001520
001522
001524
001526
001530
001532
001534
001536
001540
001542
001544
001546
001550
001552
001554

000000
000000
000000
000000
000000

PATO:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

PAT1:

PATZ2:

001632
001634
001636

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000

001640
001642

000000
000000

PAT3:

001560
001562
001564
001566
001570
001572
001574
001576
001600
001602
001604
001606
001610
001612
001614
001616
001620
001622
001624
001626
001630

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;PATTERN O

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777

JPATTERN

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777

001556

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

177777

037777
077777
177777

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000

sPATTERN 2

.WORD
.WORD

174000
170000
160000
140000
100000
060000

.WORD
.WORD

000000
000000

;PATTERN 3

.WORD
-WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

PAGE 29

SEQ 0028

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY1T1
CZRPYD.P11
22-APR-78 14:42
COMMON TAGS
1408
1409
1410
1411
1412

001644
001646
001650
001652
001654

1419
1420

}255

001672
001674
001676

000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
177777
000000

1414
1415
1416

001660
001662
001664

1423

001700

000000

1430
1431
1432
1433
1434
1435
1436
1437
14;8

001716
001720
001722
001726
001726
001730
001732
001734
001736

073567
104210
114631
125252
135673
146314
156735
167356
177777

1413

1417
1418

1426
1425
1426
1427
1428
1429

14
1440
1441
1442
16443
1444
1445
1446
1447
1448
1449

001656

001666
001670

001702
001706
001706
001710
001712
001714

001740
001762
001744
001746
001750
001752
001754
001756
001760
001762

010421
021042
031463
042104
052525
063146

.WORD
WORD
WORD
WORD
_WORD

1457
1458
1459
1460
1461
1462
1463

002000
002002
002004
002006
002010
002012
002014

007417
007417
007417
170360
170360
170360
007417

_WORD
WORD
WORD
WORD
_WORD
JWORD
WORD
JWORD
WORD

073567
104210
114631
125252
135673
146314
156735
167356
177777

JWORD
WORD

PAT6:

052525
125252
052525
125252
125252
052525

000000

TWORD
"WORD

PATS:

001764
001766
001770
001772
001776
001776

.WORD

JWORD
WORD
.WORD

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252

1450
1451
1452
1453
1456
}222

-WORD

000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
177777
000000

.WORD

PAT4:

30A(1052)

JWORD
JWORD
WORD
WORD
_WORD
WORD

010421
021042
031463
042104
052525
063146

22-APR-78

14:43

;PATTERN &

.WORD
WORD
WORD
JWORD
WORD
JWORD
WORD
JWORD
WORD
WORD

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252

:PATTERN §

.WORD
WORD
WORD
WORD
WORD
WORD
.WORD

007417
007417
007417
170360
170360
170360
007417

:PATTERN 6

WORD
JWORD
WORD
WORD
WORD
_WORD

052525
125252
052525
125252
125252
052525

PAGE

SEQ 0029

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22-APR-78 14:42
1464
1465
16466
1467
1468
1469
1470
167
1472

002016
002020
002022
002024
002026
002030
002032
002034
002036

1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1649
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507

002040
002042
002044
002046
002050
002052
002054
002056
002060
002062
002064
002066
002070
002072
002074
002076

—d

OB NOWNEWN—=O

b
b

b
e

d
b

b
b

b
d

b
b

d
—

—

(UL RV RV RV LV RV AV AV LV LV }

1473

002100

002102
002104
002106
002110
002112
002114
002116
002120
002122
002124
002126

002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
002162

002164
002166

& R/W TEST
MACY11
COMMON TAGS

007417
170360

30A(1052)

3
22-APR-78

14:43

007417

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

170360
170360
007417
170360
007417
170360
170360
007417

PAT7:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
151322
026455

;PATTERN

077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577

PATS8:

.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

077577
077577

;PATTERN 8

000001
000002
000004
000010
000020
000040
000100

PAT9:

170360

007417

170360
007417
170360
170360
007417

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322

026455

151322

026455
151322
151322

026455

000200
000400
001000
002000
004060

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.wWORD
.WORD
.WORD
.WORD
.WORD
.WORD

PAGE 31

077577
077577
077577
077577
077577
077577
077577
077577
077577
077577

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

;PATTERN 9

(WORST CASE PATTERN)

SEQ 0030

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P
22-APR-78 14:42
COMMON TAGS

1520
1521
1522
1523
1524
1525
1526
1527
1528

1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548

002170
002172
002174
002176

010000
020000
040000
100000

002200
002202
002204
002206
002210
002212
002214
002216
002220
002222
002224
002226
002230
002232
00223¢
002236

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777

002240
002242
002244
002246
002250
002252
002254
002256
002260
002262
002264
002266
002270
002272
002274
002276

172666
155555
172666
155555
172666
155555
172666
155555

002300
002302
002304
002306
002310

077777
137777

002312
002314
002316
002320
002322
002324
002326
002330

002332
002334
002336

3
22-APR-78

14:43

.WORD
.WORD
.WORD
.WORD

010000
020000
040000

PAT10:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WCRD
.WORD

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

;PATTERN 10

PAT11:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555
172666
155555

JPATTERN

PAT12:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

077777

;PATTERN 12

077777

172666
155555

172666
155555
172666
155555
172666
155555

157777
167777
173777
175777
176777
177377
177577
177677
177737
177757
177767
177773
177775
177776

30A(1052)

100000

137777
157777
167777
173777
175777
176777
177377
177577
177677

177737
177757

177767

177773
177775
177776

PAGE

SEQ 0031

CIRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P
22-APR-78 14:42

1576
1577
1578
1579
1580
1581
1582

1583
1584
1585
1586
1587
1588
1589
1590

1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629

1630
1631

& R/W

30A(1052)

PAT13:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
127777
177777

;PATTERN 13

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000
000000
177777
177777
177777
177777
177777
177777
177777
177777

JPATTERN

002340
002342
002344
002346
002350
002352
002354
002356
002360
002362
002364
002366
002370
002372
002374
002376

177777
177777
177777
177777
177777
177777
177777
177777
177777

002400
002402
002404
002406
002410
002412
002414
002416
002420
002422
002424
002426
002430
002432
002434
002436

000000
000000
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

PAT14:

002440
002442
002444
002446
002450
002452
002454
002456
002460
002462
002464
002466
002470
002472
002474
002476

177777
177777
000000
000000
000000
000000
000000
000000
000000

PAT1S:

177777
177777
177777
177777
127777
177777
177777

TEST
MACY11
COMMON TAGS

.WURD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

000000
000000
000000
000000
000000
000000
000000

.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

22-APR-78

14:43

PAGE

177777
177777
177777
177777
177777
177777

177777

;PATTERN 15

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;DRIVE OPERATION CONTROL BLOCK

002500
002501
002502

000
000
000

DPB:

.BYTE
.BYTE
.BYTE

0
0
0

:DRIVE NUMBER
;'MEX' BITS
;OPERATION CODE

SEQ 0032

1632
1633
1634
1635
1636
1637

1638

002503
002504
002506
002510
002512
002513

000
020000
000003
000000
000
000

SW(:
:
¢BUF
sCYL:

$SEC:
$TRK:

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

30A(1052)
OOOOOO

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
22-APR-78 14:42
COMMON TAGS

3
22-APR-78

14:43

PAGE

;MODE AND HDR BITS

;WORD

COUNT

JBUFFER ADDRESS
;CYLINDER ADDRESS
;SECTOR ADDRESS

s TRACK

ADDRESS

SEQ 0033

(ZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22~APR-78 14:42

1693
1694

.SBTTL
;*THIS

ERROR POINTER
TABLE

CONTAINS

3
22-APR-78

14:43

PAGE

SEQ 0034

TABLE
THE

INFORMATION

FOR

EACH

ERROR

THAT

CAN OCCUR.

o
..
.

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM [N THE TABLE IS PERTINENT.
;*NOTE:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().
;*NOTEZ2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

1639
1640
1661
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692

MACY11 30A(1052)
ERROR POINTER TABLE

& R/W TEST

002514

002514
002516
002520
002522

:sPOINTS

EM
DH
DT
DF

J.POINTS

RP11

EM2

;CAN'T START READ COMMAND

;.POINTS

;:POINTS

TO THE
TO THE
TO THE
TO THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$SERRTB:

JERROR 1

032173
040315
043036

DIDN'T

RESPOND

ADDRESSING

DH1
0T
DF1

043516

:ERROR 2
002524
002526
002530
002532

032235
040323
043040
043522

DH2

DT2
DF2

JERROR 3
002534
002536
002540
002542

032266
040323
043040
043522

EM3
DH2
D12
DF2

;'CLEAR®

EM4
DH2

;ERROR WRITING TEST

EMS
DHS
DTS
DFS

;WRITE

EM6

;EXPECTED 'WCE' DIDN'T OCCUR

COMMAND DIDN'T

TERMINATE

DATA

TRANSFER OPERATION

;ERROR 4
002544
002546
002550
002552

032357
040323
043040
043522

SECTOR(S)

012
DF2

;ERROR 5
002554
002556
002560
002562

032414
040465
043072
043532

CHECK

ERROR

CHECKING

;ERROR 6
002564
002566
002570
002572

032466
040465
043072
043532

DHS
DTS
DFS

TEST

SECTOR(S)

b
nd
wh
o
b ek
d
D
d
h
d e
el
—
b
—

NN~ NNNSNNSNNNNNNYNNN
NN PORIN) = b b b d b ) b b
[« V. W N VY) N
OV
NOWVSTM W20

1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707

1727
1728
1729
1730
173
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742

1743
1744
1745
1746
1747
1748
1749
1750

22-APR-78

14:43

PAGE

SEQ 0035

;ERROR 7
002574
002576
002600
002602

032522
040323
043040
043522

;ERROR WRITING LESS THAN A FULL SECTOR

002604
002606
002610
002612

000000
000000
000000
000000

; UNUSED

.ERROR
002614
002616
002620
002622

032570
040637
043126
043542

EM
DH11
0T
DF11

;ONE OF 2 WORDS WRITTEN IN THE PARTIAL WRITE DIDN'T COMPARE

+ERROR 12
002624

032663

EM12

002626

040720
043142
0435642

DH12
DT12
DF11

002630
002632

sNON-ZERO DATA [N PART OF SECTOR WHICH SHOULD HAVE
sBEEN ZERO FILLED DURING PARTIAL WRITE

;ERROR 13
002634
002636
002640
002642

033014
040323
043040
043522

EM13
DH2
D12
DF2

;'EOP'
;AT

THE

DIDN'T SET DURING A 2 SECTOR WRITE BEGINNING
LAST

SECTOR

THE

PACK

:ERROR 14
002644
002646
002650
002652

033137
040775
043156
043542

EM14
DH14
DT14
DF11

;'ERR' DIDN'T SET WITH 'EOP’

;ERROR 15

002654
002656
002660
002662

033173
040323
043040
043522

EM15

DHZ
D12
DF2

;'EOP' DIDN'T CLEAR RPCA

;ERROR 16

002664
002666

033223
041052

EM16
DH16

:SUCA NOT CORRECT AFTER

'EOP'

(Yo

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD PN
22-APR-78 14:42
ERROR POINTER TABLE

1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802

1803
1804

1805
1806

002670
002672

043172
043616

3
22-APR-78

14:43

PAGE

SEQ 0036

DT16

DFS3
:ERROR 17

002674
002676
002700
002702

033260
040323
043040
043522

Em17

DH2
D12
DF2

;ERROR READING TEST SECTOR

;ERROR 20
002704

033312

Em20

002706
002710
002712

040637
043126
043542

DHI
DTM
DF 11

;CONTENTS OF FIRST SECTOR OF PACK CHANGED AFTER
;FORCING 'EOP' DURING WRITE

;ERROR 21
002714

033425

EmM21

002716
002720
002722

040775
043156
043542

DH14
DT14
DF11

;'PROG'

ERROR

DIDN'T

SET

;WHILE CONTROLLER BUSY

WHEN READ

COMMAND

[SSUED

:ERROR 22
002724
002726
002730
002732

033535
040775
043156
0435642

EM22
DH14
DT14
DF11

;'ERR'

DIDN'T SET WITH

'PROG'

;ERROR 23

002734
002736
002740
002742

033572
040323
043040
043522

EM23

DH2
D12
DF2

JERROR ATTEMPTING

TO MISFORMAT

SECTOR O

;ERROR 24
002744
002746
002750
002752

033641
040775
043156
043542

EM24
DH14
DT14
DF11

;ERROR VERIFYING THE MISFORMATTED

TEST HEADER

;ERROR 25

002754
002756
002760
002762

033716
041167
043204
043546

EM25
DH25
D125
DF25
;ERROR 26

;MISFORMATTED TEST HEADER IS NOT CORRECT

[on Nen)

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.PI
22-APR-78 14:42
ERROR POINTER TABLE

NN PN = b ad ed d e ed d ek
PV
1, V) =S OOV
NO NS W
=

i
d
and
e
ed and el
s — e

0o
0o 0o 00 0o 00 0o OB 00 Co 00 0o OV 00

1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862

002764
002766
002770
002772

033766
040323
043040
043522

EM26
DH2
D12

22-APR-78

;"HNF'

DIDN'T

14:43

PAGE

SEQ 0037

SET WHEN SEARCHING FOR MISFORMATTED SECTOR

DF2

:ERROR 27

002774
002776
003000
003002

034056
040775
043156
043542

EM27
DH14
DT14
DF11
;ERROR

003004
003006
003010
003012

034107
040775
043156
043542

:'DSK' NOT SET WITH 'HNF'

Em30
DH14
DT14
DF11

;'HE® DIDN'T SET WITH "HNF'

:ERROR 3
003014
003016
003020
003022

034142
040775
043156
043542

Em31
DH14
DT14
DF11

;'ERR' NOT SET WITH 'HNF'

;ERROR 32

003024
003026
003030
003032

034173
040323
043040
043522

EM32
DHZ
D12
DF2

;ERROR WHILE RESTORING MISFORMATTED TEST HEADER

;ERROR 33
003034

034252

EM33

003036
003040
003042

040323
043040
043522

DH2
D12

;CONTROLLER DIDN'T BECOME BUSY WHEN READ COMMAND
;ISSUED TO SEEKING DRIVE

DF2

;ERROR 34

003044
003046
003050
003052

034363
040323
043040
043522

EM34

DH2

;ERROR DURING READ COMMAND WHICH WAS

ISSUED

TO SEEKING DRIVE

D12
DF2

;ERROR 35

003054

034457

003056
003060
003062

041167
043204
043546

EM35
DH25
D125
DF25

sDATA INCORRECT FROM HEADER READ COMMAND [SSUED
:TO SEEKING DRIVE

[ga
N
al

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
22-APR-78 14:42
ERROR POINTER TABLE

MACY11 30A(1052)
CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TESi
CIRPYD.PY1
22-APR=-78 14:42
ERROR POINTER TABLE
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890

1891
1892
1893
1894
1895
1896
1897
1898
1899

b
b
=D emd
)
e
e
—

0O NO NN
=

b
ud —d
D
el
el e
—

O 00O OOOO

1900
1901
1902
1903
1904
1905
1906
1907

M3
22-APR-78

14:43

PAGE

SEQ 0038

;ERROR 36
003064
003066
003070
003072

034561
040323
043040
043522

EM36

DH2
D12
DF2

;"NXME® DIDN'T SET WHEN LOCATION 760000 ADDRESSED

;ERROR 37
003074
003076
003100
003102

034642
040775
043156
043542

Em37
DH14
DT14
DF11

:'HE' DIDN'T SET WITH 'NXME'

;ERROR «0

003104
003106
003110
003112

034676
040775
043156
063542

EM4LO
DH14
DT14
DF11

;'ERR" DIDN7T SET WITH 'NXME®

;sERROR 41
003114
003116
003120
003122

034733
040323
043040
043522

EMéT
DH2
DT2
DF2

;ERROR FORMATTING TRACK O

JERROR 42
003124
003126
003130
003132

034764
040323
043040
043522

EM42
DH2
DT2
DF2

;ERROR READING THE HEADER FROM THE TEST SECTOR

JERROR 43
003134
003136
003140
003142

035042
041256
043224
043556

EML3
DH~3
DTe3
DF&3

;SECTOR FIELD FROM HEADER IS NOT CORRECT

JERROR 44
003144
003146
003150
003152

035112
040323
043040
043522

EM44
DH2
D12
DF2

;ERROR WRITING SECTOR ADDRESS

IN DATA FIELD

;ERROR 45

003154
003156
003160
003162

035165
041502
043262
043572

EM&GS
DH&S
D145
DF&S

;"SOT' OR SECTOR ADDRESS REGISTER IS NOT CORRECT

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.PI
22-APR-78 14:42
ERROR POINTER TABLE

1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
197
1972
1973
1974

3
22-APR-78

14:43

PAGE 40

SEQ 0039

;ERROR 46
003164
003166
003170
003172

035245
041674
043306
043542

EM46
DH46
DT46
DF11

;DATA NOT CORRECT FOR SECTOR READ

;ERROR 47
003174

035316

EM4?

003176
003200
003202

042031
043322
043602

DH47
D147
DF&7

;SECTOR CONTENTS WRONG, DATA SHOULD BE
;TRACK

NUMBER OF

THE

CURRENTLY

SELECTED

THE

HEAD

;ERROR 50

003204

003206
003210
003212

035445
040323
043040
043522

EMS50
DH2
D12
DF2

;ERROR AFTER 2 WORD READ STARTING AT LOC 177776

;ERROR 51
003214

035524

EMS1

003216
003220
003222

042145

DH51
DT51
DF 51

043346

043612

;'MEXO' DIDN'T SET AFTER 2 WORD READ STARTING
;AT LOC

177776

s'MEXT1'

SET AFTER 2 WORD READ STARTING AT LOC 177776

;ERROR 52
003224
003226
003230
003232

035620
042145
043346
043612

EMS2
DH51
DT51
DF51

;ERROR 53
003234

035704

EMS3

003236
003240
003242

041167
043204
043616

DH25
D125
DFS3

;CONTENTS OF LOC 200000 WRONG AFTER 2 WORD READ
;STARTING AT LOC 177776

;ERROR 54
003244
003246
003250
003252

036013
040323
043040
043522

EMS4

DH2
D12
DF2

;ERROR AFTER 2 WORD READ STARTING AT LOC 377776

;ERROR 55
003254

036072

EMSS

J'MEXO® DIDN'T CLEAR AFTER 2 WORD STARTING AT LOC 377776

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY1T 30A(1052)
CZRPYD.P11
22-APR-78 14:42
ERROR POINTER TABLE

1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003

2004
2005
2006
2007
2008

003256
003260
003262

042145
043346
043612

2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030

&
22-APR-78

14:43

PAGE 41

DH51
DTS5
DF51
;ERROR 56

003264
003266
003270
003272

036162
042145
043346
043612

EMS6
DH51
DT51
DF51

;'MEX1' DIDN'T SET AFTER 2 WORD READ STARTING AT LOC 377776

;ERROR 57
003274

036255

EMS7

003276
003300
003302

041167
043204
043616

DHZ5
DT25
DF53

;CONTENTS OF LOC 400000 WRONG AFTER 2 WORD READ
;STARTING AT LOCATION 377776

;ERROR 60
003304

036371

EM60

003306

040323

DH2

003312

043522

003310

043040

;ERROR RETURNING SECTOR TO PDP-11 MODE USING A

;2 WORD WRITE

DT2

DF2
;ERROR 61

003314
003316
003320
003322

036465
040465
043072
043532

2009

2010
2011
2012
2013
2014
2015
2016
2017
Sg}g

EM61
DHS
DTS
DFS

;ERROR WRITING TEST SECTOR(S)

;ERROR 62

003324
003326
003330
003332

036522
040465
043072
043532

EM62
DH5
DTS
DFS

;ERROR READING TEST SECTOR(S)

;ERROR 63
003334

036557

EM63

003336
003340
003342

042242
043366
043622

DH63
DT63
DF63

;DRIVE DIDN'T RETURN TO CYL O FROM THE MAXIMUM
;CYL ON CONTROLLER POWER FAIL

;ERROR 64
003344

036673

EM64

003346
003350
003352

040720
043142
043542

DH12
D112
DF11

;CONTENTS OF MEMORY CHANGED DURING POWER
;FAIL

WHILE

READING

THE

DISK

SEQ 0040

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.PI
22-APR-78 14:42
ERROR POINTER TABLE

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
2068
2069

2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086

&
22-APR-78

14:43

PAGE 42

SEQ 0041

;ERROR 65
003354
003356
003360
003362

037000
040775
043156
043542

EM6S
DH14
DT14
DF11

;'SUOL'

SET WITH DRIVE DISABLED

;'SUOL'

NOT SET WITH DRIVE ENABLED

;"SUWP'

NOT SET WITH DRIVE

;'SUWP'

SET WITH DRIVE

;ERROR 66

003364
003366
003370
003372

037037
040775
043156
043542

EM66
DH14
DT14
DF 11
;ERROR 67

003374
003376
003400
003402

037101
040775
043156
043542

EM67
DH14
DT14
DF11

SET TO

'READ ONLY'

;ERROR 70

003404
0C3406
003410
003412

037156
040775
043156
043542

EM70
DH14
DT14
DF11

SET TO

'READ/WRITE'

;ERROR 71
003414

037230

EM71

003416
003420
003422

042327
043404
043622

DH71
D171
DF63

;'SUWP' SET WITH RP11 'WRITE LOCKOUT'
;LOA'S = 0, AND RPCA = 0

SET,

CYLINDER

;ERROR 72

003424
003426
003430
003432

037344
042327
043404
043622

EM72
DH71
D17
DF63

;'SUWP'

SET WITH RPCA = 2 & CYL LOA'S = 0

;ERROR 73
003434
003436
003440
003442

037415
042327
043404
043622

EmM73
DH71
D171

;"SUWP' NOT SET;

RPCA = VALUE

IN CYL LOA'S

DF63
;ERROR 74

003444
003446
003450

037467
042327
043404

EM74
DH71
ARA

;"SUWP'

SET WITH RPCA ONE GREATER THAN CYL LOA VALUE

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CIRPYD P11
22-APR-78 14:42

W
OO0 NO NS

md
d

003452

043622

4
22-APR-78

14:43

PAGE 43

SEQ 0042

DF63
;ERROR 75

003454
003456
003460
003462

EM75

037553
040775
043156
043542

DH14
DT14
DF1

;'SUWP'

SET WITH DRIVE LOA SWITCHES EQUAL SELECTED DRIVE

:ERROR 76

003464
003466
003470
003472

037646
040323
043040
043522

EM76
DHZ
DT2
DF2
sERROR

003474
003476
003500
003502

;DRIVE HAS GONE OFFLINE

EM77

037675
040323
043040
043522

DH2
DT2
DFf2

;DRIVE

IS UNSAFE

;ERROR 100

—

wnd
s
b

i
el
el

—

)

emd

ot ed and

LV NI, T,ST,N T NY N, N1,

2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106

& R/W TEST
PACY11 30A(1052)
ERRCR POINTER TABLE

003504
003506
003510

003512

037715
040323
043040
043522

EM100
DH2
D12
DF?2
:ERROK

003514
003516
003520
003522

037735
040323
043040
043522

;DRIVE TIMED OUT

101

EM101
DH2
DT2
DF2

;CONTROLLER TIMED OUT

;ERROR 102

003524
003526
003530
003532

037762
042414
043422
043626

EM102
DH10?2
DT102
DF102
<ERROR

003534
003536
003540
003542

040005
042414
043450
043636

;DATA COMPARE ERROR

103

EMI103
DH10Q
DT103
DF103

;DATA

COMPARE

ERROR

(MEMORY MANAGEMENT

;ERROR 104
003544
003546
003550

000000
000000

043504

0
0
DT104

;DATA COMPARE ERROR DETAIL LINE

ENABLED)

CZRPY~D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.PI
22-APR-78 14:42
ERROR POINTER TABLE

2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153

003552

043652

&
22-APR-78

14:43

PAGE 44

ERROR

SUMMARY LINE

DF104

;ERROR 105
003554
003556
003560
003562

000000
042717
063512
043516

0
DH195
DT105
DF1

;ERROR 106

;DATA

COMPARE

SEQ 0043

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P
22-APR-78 14:42
ERROR POINTER TABLE

2154
2155
2156
2157
2158
2159
2160

003564
003566
003570
003572

040064
040775
043156
043542

EM106
DH14

DT14
1
DF

;ERROR 107

4
22-APR-78

;'ERR'

14:43

PAGE

DIDN'T SET WITH

'WCE'

SEQ 0044

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD PN
22-APR-78 14:42

2161
2162
2163
2164
2165
2166
2167
2168
2169
c170
21N
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187

2188
2189
2190
2161
2192
2193

003574
003576
003600
003602

040120
040775
043156
0643542

& R/W TEST
MACYT1 30A(1052)
ERROR POINTER TABLE

EM107

DH14
DT14
DF11

&
22-APR-78

14:43

PAGE 46

SEQ 0045

;'HE' DIDN'T SET WITH 'PROG'

;ERROR 110
003604
003606
003610

003612

000000
042745
000000
000000

0
DH110
0
0

s JNSUCESSFUL AFTER 3 RETRIES

SERROR 111
003614
003616
003620
003622

000000
043000
043514
043516

0
DH111
DTIN
DF1

sSUCESSFUL AFTER

°'N'

RETRIES

.ERROR 112
003624
003626
003630
003632

040154
040323
043040
043522

EM112
DHZ
DT2

;DRIVE UNSAFE AFTER POWER FAIL

DF2

SERROR 113
003634
003636
003640
003642

040212
040775
043156
043542

EM113
DH14
DT14
DF11

;'SUWP'

NOT

SET WITH DRIVE

LOA SWITCHES GREATER THAN SELECTED DR

2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
221
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249

PR ASA

.SBTTL

AR ARl

START OF

SRR N RN

003644
003652
003654
003660
003664
003666
003674
003676
003702
003710

012737
000402
005037
005037
000411
012737
000402
005037
012737
000005

003712
003716
003720
003724
003726

012706
005926
022706
001374
012706

001100

012737
012737
012737
012737
012737
012737
013737
005037
005037

021646
000340

003732
003740
003746
003754
003762
003770
003776
004004
004010
004014
004022
004030

112737
012737
012737

177777

001216

001216
001206
177777

001216

001216
177777

001206

001140
001100

017070
000340

022502
0003490
017004
001162
001164
000001
004022
004030

000020
000022

&
22-APR-78

14:43

PAGE 47

RdalRRlaRtRRl

SEQ 0046

004074
004076
004102
004104
0064112
004120

000403
012716
000002
012737
012737
012637

000176
000174
000004

001140
001142

004124

023737

000042

000046

000004
004076

LR AR AR RN RN A RN ERLERCR

)

AR R AN RRANRRNANRNAARNANROANNOANY

MOV

#-1,BUSADR

:SET BUSADR FLAG

MOV

#STACK,SP

;;SETUP

MoV
MOV

#$SCOPE ,@#10TVEC ;;I0T VECTOR FOR SCOPE ROUTINE
#340,3#I0TVEC+2 ;;LEVEL 7

MOV

#340,QFERTVEC+2 ;:LEVEL 7

;:INITIALIZE A FEW VECTORS
MOV

MOV
MOy
MOV
CLR
CLR
MOVB
MOV
MOV

MOV

#SERROR,@FEMTVEC

;;EMT

THE

STACK

POINTER

VECTOR FOR ERROR ROUTINE

#STRAP,@#TRAPVEC :;TRAP VECTOR FOR TRAP CALLS
#3460, 38 TRAPVEC+2;
LEVEL 7
SENDCT,SEOPCT
;;SETUP END-OF -PROGRAM COUNTER
STIMES
::INITIALIZE NUMBER OF ITERATIONS
$ESCAPE
;;CLEAR THE ESCAPE ON ERROR ADDRESS
#1,SERMAX
::ALLOW ONE ERROR PER TEST
#..SLPADR
::INITIALIZE THE LOOP ADDRESS FOR SCOPE
#..SLPERR
;:SETUP THE ERROR LOOP ADDRESS

MOV

#6483 S#ERRVEC

SFERRVEC,-(SP)

;;SAVE

ERROR

MOV

#OSWR, SWR

;:SETUP

FOR

MOV
CMP

#ODISP,DISPLAY
#-1,3SWR

;:AND A HARDWARE DISPLAY REGISTER
;:TRY TO REFERENCE HARDWARE SWR

648

BR
:?Y

65$
#65%, (SP)

658 :

MOV

#SWREG, SWR

:;POINT TO SOFTWARE SWR

668:

MOV

(SP)+,@#ERRVEC

;:RESTORE ERROR VECTOR

62,3046

;ACT11

001142

175046

BNE

004104

PROGRAM

;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT
;;EQUAL TO A '"=1", SETUP FOR A SOFTWARE SWITCH REGISTER.

013746
012737
012737
012737
022777
001012

020

STRT1A
BR
START1: CLR
A#BUSADR
:CLR BUSADR FLAG
STRT1A: CLR
SNCNTRLC
:NO CONVERSATION MODE
:
START
BR
START4: MOV
#-1,BUSADR
;SET BUSADR FLAG
BR
STRT2A
START2: CLR
3#BUSADR
;CLR BUSADR FLAG
STRT2A: MOV
#-1,CNTRLC
:SET CONVERSATION MODE FLAG
START:
RESET
:CLEAR THE BUS
.SBTTL
INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
;:FIRST LOCATION TO BE CLEARED
CLR
(R6) +
::CLEAR MEMORY LOCATION
CMP
#SWR,R6 ; ;DONE?
BNE
=6
;;LOOP BACK IF NO

000030
000032
000034
000034
016776

004036
004042
004050
004056
004064
004072

177570
177570
177777

START3:

MOV

CMP

663

#D]SPREG,DISPLAY

VECTOR

;;SET UP ERROR VECTOR

:;BRANCH

::AND

HARDWARE

NO TIMEOUT

THE HARDWARE SWR

SWICH

TRAP OCCURRED

::BRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

AUTO MODE?

IS NOT = -1

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
CZRPYD L1
22-APR-78 14:42
ERROR POINTER TABLE

2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
227
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299

2300
2301
2302
2303
2304
2305

004132
004134
004140
004142
004146

001405
005227
001002
104401

043656
020416

004152
004156
004160
004166
004170
006172
004174
004202
004202
004206
004212
004216
004222
004226
004232
004236
004244
004252
004254
004262
004270
004276
004302
004306
004312
004316
004324
004332
004340
004346
004354
004360
004364
004370
004374
004402
004406
004410
004416
004422
004424
004432
004434
004440
004442
004446
004446

005737
001006
023727
001005
104406
000403
112737

000042
001140

000176

000001

001134

004737
004737
005037
005037
005037
005037
005037
013737
023737

023452
025700
001112
001260
001266
001270
001272
001264
001264

013737
012737
012737
005037
005037
005037
005037
012737
012737

001262
177777
017777
177776
001310
001162
001164
016616
000001
000001
004340
004346
001222
177776
026150
022566
000312
001304

004450
004452

004737

101403

112737

012737
012737
005037
005037
004737
004737
012737
005737
001403
012737
005227
001404
032777
001044
104401
005001
012702

010146
104403

001

177777

STARTS:
LSBTTL

001256
001300
001276

BEQ
STARTS
#-1
INC
BNE
STARTS
TYPE
LTITLE
PC,STKINT
JSR
GET VALUE FOR SOFTWARE
TST

BNE
CMP
BNE
GTSWR
BR

00020¢

174506

Mmov
Mmov
Mov

CLR
CLR
JSR
JSR

MOV
TST

BEQ

:
9%

3s:

SWITCH REGISTER

;;ARE WE RUNNING UNDER XXDP/A(CT?
: sBRANCH [F YES
;; SOFTWARE SWITCH REG SELECTED?
: ;BRANCH IF NO
;:GET SOFT-SWR SETTINGS

INDICATOR

sRESTORE THE LOADER
;SET MEMORY SIZE VARIABLES
;CLEAR TOTAL ERROR COUNT
;CLEAR OPERATOR SELECTED ADDRESS FLAG
;OPERATOR SPECIFIED CYLINDER
;OPERATOR SPECIFIED TRACK
;OPERATOR SPECIFIED SECTOR
;ASSUME THAT MAXIMUM WORD COUNT LESS THAN &K
sMAXIMUM WORD COUNT GREATER THAN LIMIT
;BR [F NOT
;USE AN 8K MAXIMUM
JENABLE ALL FATTERNS

MovB
MOV
Mov

2$:

START

;BR IF NOT
;TYPE THE PROGRAM'S MAINDEC NUMBER AND NAME
;SETUP THE TTY KEYBOARD

PC,RESLOR
PC,SIZMEM

Mov
Mov

001210

65%

;YES, SKIP TITLE PRINTOUT

;FIRST

JSR
JSR
CLR
CLR
CLR
CLR
CLR

CLR
CLR

STARTG:

65%

SEQ 0047

;;SET AUTO-MODE

CmMpP
BLOS

001200
001104
001115
001106
001110

SWR,#SWREG

PAGE 48

#1,8AUTOB

Mmov

1%:

T LY
648

14:43

Mmovs

CLR
CLR

001210

000010

65%:

001256
001262

000625
177777

027236

:
643

4
I
30A(1052)
22-APR-78
COMMON TAGS

MoV

INC
BEQ
BIT
BNE

SERTTL
OPRSEL
SCYL
STRK
SSEC
MAXWC,WC14
MAXWC,LMTBK
13

LMT8K, WC14

#177777 ,PATTIRN
#17777,TSTNMS
PSW
DRVBAD
STIMES
SESCAPE

#SEOP ,BYPASS
#1,81CNT
#1,SERMAX
#.,SLPADR
#.,SLPERR
MMACTV
PS
PC,GETADR
PC,RPINIT

#202. ,MAXCYL
DRVTYP

#405. ,MAXCYL
-1

9%
#SW07,aSWR

;SELECY TESTS 0 - 14
;ENSURE THE PRIORITY = 0

;CLEAR OFFLINE/UNSAFE DRIVE BITS

sINITIALIZE NUMBER OF ITERATIONS
;CLEAK THE ESCAPE ON ERROR ADDRESS
sINITIAL BYPASS ADDRESS
;PRESET

ITERATION

COUNT

;ALLOW ONE ERROR PER TEST
;INITIALIZE THE LOOP ADDRESS FOR SCOPE
;SETUP THE ERROR LOOP ADDRESS
;CLEAR MEMORY MANAGEMENT FLAG
;CLEAR THE PROCESSOR PRIORITY

;CHECK THE RP11 ADDRESS
;FIND OUT WHICH DRIVES ARE ON SYSTEM

;ASSUME RPO2'S

;WHICH DRIVES

;BR IF THEY REALLY WERE RP02'S
sSET MAX CYLINDER FOR RPO3'S
;FIRST START ?
:BR

MoV

CLR

R1
#8.,R2

;BYPASS DRIVE STATUS TYPEQUT ?
¢BR IF YES
:'DRIVE STATUS'
;CLEAR TABLE POINTER
; COUNTER

Mov

R1,-(SP)

;. SAVE R1 FOR TYPEOUT

TYPE

START?7
LORSTAT

;. TYPE

TYPOS

.BYTE

DRIVE

NUMBER

::G0 TYPE--QCTAL ASCII
;. TYPE 1 DIGIT(S)

[N a)

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1
CZRPYD.PI
22-APR-78 14:42
INITIALIZE THE

2306

2307
2308
2309
2310
2311
2312
2313
2314

2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354

2355
2356

2357
2358
2359

2360
2361

004453

004454
004460
004462
0044646
004470

004472
004476
004504
004506
004512
004514
004520
004522
004526
004532

000

105761
001420
100403
104401
000432
104401
136137
001003

004644
004650
004652
004656
004660
004666
004670
004672
004674
004676

104401
000405
104401
000402
104401
104401
005201
005302
001343
104401
005737
001403
004737
000416
005037
005000
012701
105760
003403
156037
005200
106301
001367
104401
005037
005000
013701
001004
104401
000137
005737
001011
005737
001406
122737
001002
006201
000413
006201
103011

004706
004710
004711
004712

104403
001
000
005701

004534
004536
004540
004544

004550
0064552
004556
004560
004564
004566
004572

004576
004600
004606
004610
004612
004614
004620
004624
004626
004632
004634
004640

004700
004704

005237
010046

.BYTE

001370
027262
027276
001360

001304

027327
027336
027312
001173

001173
001206
026314
001312
000001
001370

001360

001312

027345
017004

001312
027372
016616
001206

000042
000003

017004

4
J
MACYT1 30A(1052)
22-APR-78
14:43
VALUE FOR SOFTWARE SWITCH REGISTER

000041

(%:
58:

TSTB
BEQ
BMI
TYPE
BR
TYPE
BITB
BNE

TYPE
BR
6%:
TYPE
BR
7$:
TYPE
8$:
TYPE
INC
DEC
BNE
TYPE
STARTY?7: TS1
BEQ
JSR
BR
1$:
CLR
CLR
Mov
2%:
TSTB
BLE
BIsSB
3%:
INC
ASLB
BNE
5%:
TYPE
CLR
LR
Mov
BNE
TYPE
JMP
6$:
TST
BNE
TST
BEQ
(mMPB
BNE
ASR
BR
7%:
ASR
BCC

INC
Mov

TYPOS
BYTE
.BYTE
TST

PAGE 49

SEQ 0048

;. SUPPRESS LEADING ZEROS

DRVSTA(RY)
7$
4%
,ONLINE
5%

;CHECK DRIVE'S STATUS
;ORIVE IS OFFLINE OR NON-EXISTENT
;DRIVE IS UNSAFE
; "ONLINE'
:

;BR

$ENDCT
RO,=-(SP)

;GIVE THIS DRIVE A PASS
;s SAVE RO FOR TYPEOQUT

1
0
R1

;. SUPPRESS LEADING ZEROS
;MORE DRIVES?

+UNSAFE
; "UNSAFE'
ATABIT(R1) ,DRVIYP
;SEE WHICH DRIVE
IF

RPO3

TYPE

.RPO2
;'RPO2’
8%
:
.RPO3
;'RPO3’
8s
.
LOFFLIN
. 'OFFLINE’
SCRLF
; CR-LF
R1
; INCREMENT TABLE POINTER
R2
;DECREMENT THE COUNTER
3s
. CONTINUE
+SCRLF
s CR-LF
CNTRLC
; CONVERSATION MODE ?
1%
;NO=--BRANCH
PC.ENTPRM
;YES--GET PARAMETERS
5%
;GO TYPE DRIVES TO BE TESTED
DRVSEL
:NO DRIVES SELECTED
RO
;DETERMINE THE DRIVES THAT
1 ,R1
sARE AVAILABLE FOR TESTING
DRVSTA(RO)
;DRIVE ONLINE ?
3s
sBR IF NOT
ATABIT(RO) ,DRVSEL
,SET SELECTION BIT FOR DRIVE
RO
: INCREMENT DRIVE ADDRESS
R1
; COUNT
2$
;BR IF NOT ALL DRIVES CHECKED
LORVTST
:'DRIVES TO BE TESTED'
$ENDCT
;DETERMINE PASSES TO MAKE AND
RO
;THE ORIVES TO BE TESTED
DRVSEL ,R1
;ANY DRIVES SELECTED?
6$
s YES--BRANCH
.NONE
: 'NONE'
afSEOP
;GO TO END OF PROGRAM
CNTRLC
: CONVERSATION MODE START ?
7$
;BR IF NOT
42
:UNDER MONITOR CONTROL ?
7$
;BR IF NOT
3,41
;LOADED BY RP0Z2/RPO3 ?
7$
;BR IF NOT
R1
;EXCLUDE DRIVE O FROM TESTING
8%
;CHECK ON THE OTHER DRIVES
R1
;REPORT THE DRIVES TO BE TESTED
8s
;BR IF DRIVE IS NOT SELECTED
;;TYPE THE DRIVE NUMBER
;.60 TYPE--OCTAL ASCII
;o TYPE 1 DIGIT(S)

[gn Nen)

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
22-APR-78 14:42
GET

&
K
CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD P11
22~APR-78 14:42
GET VALUE FOR SOFTWARE SWITCH REGISTER

2362
2363
2364
2365
2366
2367
2368
2369
2370
23N
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2607
2408
2409
2410
2411
2412
2413
2614
2415
2616
2617

004714
004716
004722
004724
004726
004734
004740
004744
004752
004760
004762
004766
004772
004774

001404

104401
005200

000763
013737
005037
005037
012737
033737

001011
005237
106337
103367
043737

005002
005004
005012
005016

000756
113737

005022
005024
005025
005026
005032
005036
005042
005050
005054
005060

104403
001
000
104401
013704
004737
112737

104401

013746

004737
004737
000137

027377
017004
001206
001176
000001
001306

8$:

016776
001306
001312

001176
001306
001310

001312

001176
027401
001176

002500

9%:

BEQ
TYPE
INC
BR

RSTRT1:
RSTRTZ:
RSTRT3:

CLR
CLR

BIT

BNE

RESTART: INC
ASLB
BCC

:
DRVOK

RO
73
SENDCT,S$EOPCT
CNTRLC
CHKDRV

;INCREMENT DRIVE NUMBER
;CONTINUE
JSETUP TEST COUNT

RSTRTZ2

BIC

DRVBAD ,DRVSEL

RSTRT1
CHKDRV,DPB

BR
Mmove
TYPE
Mov

. TSTING

CHKDRV,=(SP)

;CLEAR CONVERSATION MODE FLAG

;INITIALIZE THE CHECK DRIVE KEY
JSTART

TO CHECK DESIRED DRIVES

;MOVE

TO NEXT

;IS THIS DRIVE SELECTED?
JYES--GO CHECK JF DRIVE IS READY FOR TESTING

001173
001324
025654
000015

022770
023546
005064

.BYTE
.BYTE

.SCRLF

TYPE
Mmov

JSR

002502

Mmove

JSR
JSR
LSBTTL

NUMBER

sCLEAR SELECTION BITS FOR ANY OFFLINE/UNSAFE

;DRIVES
;CONTINUE WITH CYCLE
JPICKUP THE DRIVE NUMBER
;'TESTING WITH DRIVE
;:SAVE CHKDRV FOR TYPEOUT
THE

DRIVE

NUMBER

::60 TYPE--OCTAL ASCII
;:TYPE 1 DIGIT(S)
;. SUPPRESS LEADING ZEROS
;CR-LF

RPADR R4
PC,CLRP
#HOMSEK ,DPB+2
PC,RP11

;RP11

PC,DRVRDY

;WAIT

TSTO

JMP

DRIVE

;POSITION THE MASK
;BR IF MORE DRIVES

;. TYPE

TYPOS

SEQ 0049

:yo;-eRAncu

#1,DRVMSK
DRVMSK ,DRVSEL
DRVOK
CHKDRV
DRVMSK

MoV

. COMMA

Mmov

PAGE

ADDRESS

;CLEAR THE RP11
;HOME SEEK COMMAND
JSTART

THE

FOR

COMMAND

THE

DRIVE

;START THE PROGRAM

TO FINISH

###% TESTS ma#

MRAARAR ARl
l
iRttt iRttt
2R
RR0 R

J*TEST O

TEST

s*VERIFY THAT °'CLEAR®
;*READY TO SET.
MR

005064
005064
005072
005074
005100
005106
005114
005122
005130

005136
005142
005146
005152
005160

033737
001002
000137
012737
012737
012737

001400

013777
012737
013704
105037
105037
012737
012706

001102
005306
001324
002501
002503
000144
001100

005310
005160
00506¢
000000

001276

AAEAAS

TSTO:

BIT

BNE
JMP
Mov

001110
001106
001102

MoV
MOV

174012

001200

001162

TESTO:

mov
MOV
Mov
CLRB
CLRB
Mov
Mov

'CLEAR'

TERMINATION

TERMINATES AN OPERATION AND CAUSES CONTROLLER

iRt

2222

)]

IS THIS TEST SELECTED
BITS+<STN®2>,TST NMS
+
;BR [F YES
s
;GO TO THE NEXT TEST
#TESTO,SLPERR
:SETUP THE ERROR LOOP ADDRESS
#TSTO,SLPADR
;SETUP THE SCOPE LOOP ADDRESS
#0,8TSTNM
;SETUP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
STSTNM QDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXITO,BYPASS
;SETUP BYPASS ADDRESS

RPADR,R4

DPB+1
DPB+3

#100.,$TIMES
#STACK,SP

;RP11E BUS ADDRESS

;CLEAR ANY EXTENDED MEMORY BITS

;CLEAR 'MODE’ & 'HOR' BITS
;.00 100. ITERATIONS
;SETUP THE STACK POINTER

4
L
MACY11 30A(1052)
22-APR-78
TEST *CLEAR' TERMINATION

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
22-APR-78 14:42

2418
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

005164
005170
005176
005204
005210
005214
005222
005226
005234
005236
005242
005244

004737

005246
005254
005262
005266
005274
005276

012737
012737
005037
005037
112737
004737
032764
001404
004737
104002
000420
012764
012764
004737
032737
001004
104003

005300
005302
005306

000005
004737
000004

025654

043656
000001
002510
002512
000005
022770
000200

002502

MovB
JSR
BIT
BEQ
JSR
ERROR
BR
mov
mov
JSR

2459
2460
2461
2462
2463
2464

2465
2466
2467
2468
2469
2470
2471
2472
2473

CLR
CLR

000004

023240
000001
000001
023240
000200

000004
000004

18:

001340

020416

BIT
BNE
ERROR
RESET
JSR

EXITO:

SCOPE

$CYL
$SEC
#RDSEK ,DPB+2
PC.RP11
:2DY,RPCS(R4)

SEQ 0050

sREAD COMMAND
;ISSUE THE COMMAND AND RETURN
;1S THE CONTROLLER READY ?
:BR IF NOT
;STORE THE REGISTERS

sCAN'T START READ COMMAND
;EXIT FROM TEST

2
EXITO

#CLEAR,RPCS(R4)
#CLEAR ,RPCS(R4)
PC,SAVRP
#RODY ,$RPCS

;ISSUE THE CONTROLLER CLEAR

;CLEAR THE CONTROLLER AGAIN

sSTORE

THE

REGISTERS

sBR

;1S THE CONTROLLER READY ?

§XITO

;'READY' DIDN'T SET AFTER ISSUING °'CLEAR’
;DURING READ COMMAND
;FORCE THE CONTROLLER READY
;SETUP THE TTY KEYBOARD
;LOOP ?

PC.STKINT

WRITE

;TRACK & SECTOR 0

PC,SAVRP

AL AAAAAAAAARAARA

tTEST

PAGE

;CLEAR THE RP11
s LOAD BUFFER ADDRESS
sSETUP WORD COUNT FOR 1 WORD
;CYLINDER O

PC,CLRP
#BUFFER,$BUF
1 ,8u(

mov
mov

2445

2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458

JSR

002506
002504

14:43

CHECK

Rttt lillitilisdiissiisdlissitsls])

TEST

;*THIS TEST VERIFIES THE WRITE CHECK LOGIC AND TO VERIFY THAT A WRITE
'FLOATING ONES' AND 'FLOATING ZEROS'
;*CHECK ERROR CAN BE DETECTED.
s*PATTERNS
A

005310
005310
005316
005320
005324
005332
005340
005346
005354
005362
005366
005372
005376
005404
005410
005414
005420
005426
005434
005440
005446
005454
005460

033737
001002
000137
012737
012737
012737

001402

013777
012737
013704
105037

001102
005722
001324
002501
002503
000144
00110¢
002512
002510
000400
000011
024432
043656
005446
025654
000003

105037

012737
012706
005037
005037
012737
012737
004737
012737
012737
004737
012737

005724
005404
005310
000001

001276

AAAAR

ARE

TST1

8IT
BNE
JMP

USED

TEST

THE

WRITE

CHECK

COMPARE

LOGIC.

ARl ARttt
llit
it iligoli i iags
]

BITS+<$TN*2>,TSTNMS

;IS THIS TEST SELECTED

.+6
TST2

;BR IF YES
;GO TO THE NEXT TEST

001110
001106
001102

Mov
Mmov
Mov

#TESTT, SLPERR
#TST1,SLPADR
#1,8TSTNA

173566
001200

MOV
MOV
MoV

#EX]IT1,BYPASS
RPADR,R&

;SETUP BYPASS ADDRESS
JRP11E BUS ADDRESS

DPB+3

sCLEAR 'MODE®' & ‘HDR' BITS
;.00 100. ITERATIONS
JSETUP THE STACK POINTER
sCLEAR TRACK & SECTOR ADDRESS
sCLEAR CYLINDER ADDRESS
:SET WORD COUNT TO 1 SECTOR

001162

CLRB
CLRB

TEST1:

002504
001204
002506
001110

002502

MoV

MOV
CLR
CLR

mov
MoV

JSR

18:

MOV

MOV
JSR

MOV

;SETUP
;SETUP
;SETUP
;CLEAR
S$TSTNM,SDISPLAY
<LOAD

DPB+1

#100.,8TIMES
#STACK,SP

$SEC
$CYL
#256.,8WC
#9. ,PATNUM

PC,SETBUF
#BUFFER,SBUF
#13,8LPERR
PC,CLRP
#YRTSEK,DPB+?2

THE ERROR LOOP ADDRESS
THE SCOPE LOOP ADDRESS
TEST NUMBER AND
THE ERROR FLAG (SERFLG)
THE TEST NUMBER INTO THE DISPLAY REGISTER

;CLEAR ANY EXTENDED MEMORY BITS

JSTARTING PATTERN NUMBER

JFILL THE BUFFER WITH THE PATTERN
;SETUP OUTPUT BUFFER
JSETUP LOOP ON ERROR ADDRESS
;CLEAR THE RPN
:LOAD COMMAND

MACY11

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
mn
22-APR-78 14:42

2674
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492

2493

2494
2495
2496
2497
2498
2499
2500

2501
2502

2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517

2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529

005466
005472
005476
005502
005510
005512
005514
005522
005526
005534
005540
005544
005550
005556
005560
005562
005566
005570
005572

005600
005602
005606
005612
005616
005620
005624
005626

005634
005640

005644
005650
005654
005662
005664
005666
005670
005676
005700
005702
005710
005712
005720
005722

004737
004737
004737
032737
001401

022770
023664
023240

012737
004737
012737
004737
004737
004737
032737
001403

005514
025654
000007
022770
023664
023240

004737
005001
005002
023727
001002
012701
010162
022702
001403
062702
000770
012737
004737
004737
004737
004737
032737
001002

025654

104004

104005

104006
000405
032737
001001
104106
023727
001404
012737
000652
000004

100000

001204

WRITE

JSR

JSR
JSR

BIT

001340
001110

BEQ
ERROR
MoV
JSR
mov
JSR
JSR
JSR
BIT

3%:

002502

001340

BEQ
ERROR
JSR
CLR
CLR
Cmp
BNE

4%:

000011

177777

MoV
mov

5%:

043656

000400

cmp
BEQ

000002
005626

025654
022770
023664
023240

001110

ADD
BR

6%:

000010

001336

100000

001340

7%:

001204

000012

8%:

000012

001204

Mov

JSR

JSR
JSR
JSR
BIT
BNE
ERROR
BR
BIT
BNE
ERROR
CMp
BEQ
MOV

BR
SCOPE

EXITY:

AR ARl

;*TEST 2

30A(1052)

CHECK

no4

TEST

22-APR-78

PC,RP1
PC.,CONRDY
PC,SAVRP
#ERR,SRPCS

#3$ ,SLPERR
PC,CLRP
#WRTCHK ,DPB+2
PC,RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
43

PC,CLRP

R1
R2
PATNUM, #9.

~1,R1
R1,BUFFER(R2)
#256.,R2

#63 ,SLPERR
PC,CLRP
PC.RP11
PC,CONRDY
PC,SAVRP

#BITO03,$RPER
73
6

#ERR,SRP(CS

106
PATNUM,#70.

EXITY

#10. ,PATNUM
1%

14:43

PAGE

SEQ 0051

WRITE THE SECTOR WITH THE TEST PATTERN
;WAIT
:SAVE

FOR THE OPERATION
THE REGISTERS

TO COMPLETE

;DID AN ERROR OCCUR ?

;BR IF NOT
;ERROR OCCURED WRITING WRITE CHECK TEST PATTERN
; CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;LOAD WRITE CHECK COMMAND
;CHECK THE SECTOR JUST WRITTEN
;WAIT FOR WRITE CHECK TO COMPLETE
;STORE THE REGISTERS
s CHECK 0K ?
;BR IF OK
;ERROR ATTEMPTING TO CHECK TEST PATTERN
;CLEAR THE RP11
;SETUP TO CLEAR BUFFER
;BUFFER INDEX
:'FLOATING 1°' PATTERN ?
;BRANCH [F NOT
;FILL BUFFER WITH ONES
;FILL BUFFER WITH PATTERN IN R1
;SEE IF FINISHED
;BR IF FINISHED
:INCREMENT THE INDEX
; CONTINUE
s CHANGE THE LOOP ON ERROR ADDRESS

;CLEAR THE RP11

;CHECK THE SECTOR AGAIN, ERROR SHOULD OCCUR
;WAIT

FOR

THE WRITE

CHECK

COMPLETE

;STORE THE REGISTERS
;01D WRITE CHECK ERROR SET?
sBRANCH IF YES
;WRITE CHECK ERROR DID NOT SET
:BYPASS REST OF TEST

;DID "ERR' SET ?
;BR IF IT SET
;'ERR' DIDN'T SET WITH ‘WCE'
sFLOATING A ZERO ?
;BR IF ZERO

;'FLOATING ZERQ' PATTERN

;DO THE TEST AGAIN
;LOOP ?

R ARt
i 222222202022

PARTIAL SECTOR WRITE

TEST

;*CHECK THE ABILITY OF THE RP11E TO CLEAR THE REMAINDER OF A SECTOR
;*ON A PARTIAL WRITE OPERATION. A SECTOR OF ALL ONES IS WRITTEN AND
;*THEN A TWO WORD WRITE OPERATION IS PERFORMED. THE SECTOR [S THEN
;*READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND
J*THE REST SHOULD BE ZEROS.
A

005724

?gTZ:

ARl

2222 0022222222222
2

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
T2
22-APR-78 14:42

2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540

2561
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

257
2572
2573
2574
2575
2576

2577
2578
2579
2580
2581
2582
2583
2584
2585

005724
005732
005734
005740
005746
005754
005762
005770
005776
006002
006006
006012
006020
006024
006032
006036
006044
006052
006056
006062
006070
006074
006102

006106
006112
006116
006124
006126
006130
006132
006140
006144
006150

006156

006164
006170
006174
006200
006206
006210
006212
006214
006222

006226
006254
006242
006246
006252
006256
006264
006266
006270
006272
006300
006302

BIT

BITS+<STN®2>, TSTNMS
;1S THIS TEST SELECTED
.+6
JBR IF YES
TST3
;60 TO THE NEXT TEST
#TESTZ,SLPERR
;SETUP THE ERROR LOOP ADDRESS

PARTIAL

001404

001276

012737

006402
006020
005724
000002

001110
001106
001102

mov
mov
mov

173152
001200

mov
MoV
Mov

013777
012737
013704

105037
105037
012737
012706
012737
004737
012737
012737
005037
005037
012737
004737
012737
004737
004737
004737
032737
001402
104004
000523
012737
004737
004737
012737
112737
004737
004737
004737
032737
001402
104007
000472
012737
004737
012737
012737

004737
004737
004737
032737

001402
104017

000443
022737
001004
022737

001102
006400
001324
002501
002503
000144
001100
006020
025654
043656
000400
002512
002510
000015
024432
000003
022770
023664
023240
100000

006132
025654
024432
000002
000003
022770
023664
023240

100000

006214
025654
000400
000005
02277¢
023664
023240
100000

001162

001110

BNE
JMP

CLRB
CLRB

TESTZ:

002506
002504

001110

BEQ
ERROR

1%:

002504
002502

2$:

002504
002502

043656

177777

043660

#TEST2,SLPERR

#256.,8uWC
$SEC
$CYL
#13.,PATNUN
PC,SETBUF
#WRTSEK ,DPB+2
PC.RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS

EXITZ

#18,SLPERR
PC,CLRP
PC,SETBUF
#2,84C
#WRTSEK ,DPB+?2
PC,RP11
PC,CONRDY
PC,SAVRP

#ERR,SRPCS

Mov

#2%,81 PERR
PC,CLRP

JSR

JSR
JSR
JSR
BIT
BEQ
ERROR

3s:

#STACK,SP

BIT
BEQ
ERROR

Mov
Mov

001340

1772777

JSR
JSR
Mmov
Move
JSR
JSR
JSR

001340

001110

BR
Mmov

cmp
BNE
(np

14:43

PAuE

SEQ 0052

;SETUP THE SCOPE LOOP ADDRESS

JSETUP

TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)
STSTNM QDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EX]1T2,BYPASS
;SETUP BYPASS ADDRESS
RPADR,R4
JRP11E BUS ADDRESS
OPB+1
;CLEAR ANY EXTENDED MEMORY BITS
DPB+3
JCLEAR "MODE® & °'HDR® BITS

PC,CLRP
#BUFFER,SBUF

JSR
JSR
JSR
BIT

TEST

#1ST2,SLPADR
#2,3TSTNM

JSR

mov

001340

SECTOR WRITE

#100.,8TIMES

CLR
MoV
JSR

002502

22-APR-78

Mmov
Mmov
Mmov

Mov
Mov
CLR

001204

30A(1052)

033737

001002
000137
012737
012737

MACY11

Zs
7

EXIT2

#256.,34C

#RDSEK ,DPB+2
PC.RPI

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

;.00 100. ITERATIONS
JSETUP THE STACK POINTER

JSETUP INITIAL LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;LOAD BUFFER ADDRESS
;WORD COUNT - 1 SECTOR

;CLEAR SECTOR/TRACK ADDRESS

sCLEAR CYLINDER ADDRESS
;ONE'S PATTERN NUMBER
;LOAD THE PATTERN INTO THE BUFFER
JWRITE COMMAND
JWRITE THE SECTOR
sWAIT

FOR

THE WRITE

TO COMPLETE

JSTORE THE REGISTERS
;DID AN ERROR OCCUR ?
;BR IF NOT
JERROR OCCURED DURING WRITE
;BYPASS REST OF TEST
;s CHANGE LOOP ON ERROR ADDRESS
:CLEAR THE RP11
:LOAD ONE'S PATTERN INTO THE BUFFER
;2 WORD TRANSFER
;CHANGE COMMAND TO WRITE

JWRITE

;WAIT FOR CONTROLLER READY
;STORE THE REGISTERS
sERROR ?
;BR IF NOT
SERROR WRITING THE PARTIAL SECTOR
;BYPASS THE REST OF THE TEST
;CHANGE THE ERROR LOOP ADDRESS
:CLEAR THE RP!
;CHANGE THE WORD COUNT
JREAD COMMAND
JREAD THE SECTOR
;WAIT

FOR

CONTROLLER

;STORE THE REGISTERS
:DID AN ERROR OCCUR ?
;BR IF NOT

EXIT?

JBYPASS REST OF

#177777 ,BUFFER
‘s

READY

;ERROR OCCURED READING SECTOR

TEST

;COMPARE FIRST WORD SHOULD BE
;:BR IfF NOT
0177777 ,BUFFERS2 JCHECK THE SECOND wORD

ONES

CIZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD PN
T2
22-APR-78 14:42

2586
2587
2588
2589
2590

25N
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613

006310
006312

006320
006326
006330
006334
006340
006342
006344
006346
006350
006352
006360
006364
006370
006376
006400

001407
012737
013737
104011

012700
012701
005720
001003
005301
001374
000413
016037
005037
010037
162737
104012

177777
043656

001124
001126

001126

2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641

ERROR

Mov
MoV
TST
BNE
DEC

BNE
BR

Mov

CLR

Mov

001122

Su8
ERROR

EXITZ2:

000004

5
22-APR-78

SECTOR WRITE

TEST

??FFER.SBDDAT

#BUFFER+4
RO

R R

;*TEST 3

:§.$BDADR

PAGE

sBR [F OK
;EXPECTED DATA
sACTUAL DATA

;DATA COMPARE

ERROR

;WHICH

HAVE

SEQ 0053

IN FIRST 2 WORDS

SHOULD

BEEN

CLEARED

;BY A ONE WORD WRITE

RN AR RN A RN

'EQP'

THAT

14:43

;STARTING ADDRESS OF LAST PART OF THE BUFFER
;WORD COUNT
;REMAINDER OF SECTOR SHOULD BE ZEROS
;BRANCH [F NOT
;DECREMENT THE CUNT
sBR IF NOT FINISHED
JEXIT
: INCORRECT DATA
SEXPECTED DATA (ZEROS)
;ADDRESS OF INCORRECT CHARACTER
;DECREMENT THE ADDRESS
;DATA FOUND IN AREA OF SECTOR

#254
. ,R1
(RO)+
7%
R1
63
EXIT
-2(R0),$BDDAT
$GDDAT
RO,$BDADR

SCOPE

SRR AR

s*TEST

#177777 ,8GDDAT

mMov
Mov

7%:

30A(1052)

BEQ

6%:

'EOP'

R R R

AN R

RN AR RN AR RA RO RNARRN

ERS

TEST

SETS WHEN THE

CONTROLLER

TRIES

TO WRITE BEYOND THE

THE FIRST SECTOR OF THE PACK IS WRITTEN WITH
;*LIMITS OF THE DRIVE.
;*ZEROS; THEN A TWO SECTOR WRITE OF ALL ONE'S IS ISSUED FOR THE MAXIMUM
;*CYLINDER, HEAD 19, SECTOR 9.
°'EOP' AND THE ERROR BITS IN 'RPCS' SHOULD
;*BE SET.
THE FIRST SECTOR OF THE PACK IS CHECKED TO MAKE SURE THAT IS
s*STILL CONTAINS ZEROS.

2614
2615

2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626

PARTIAL

5%:

043662
000376

177776
001124
003122
000002

MACY11

006402
006402
006410
006412
006416
006424
006432

033737
001002
000137
012737
012737
012737

001406

001276

007060
006476
006402
000003

001110
001106
001102

006440
006446
006454
006460
006464
006470
006476
006502
006510
006514
006522
006530
006534
006540
006544
006550

013777
012737
013704
105037
105037
012737
012706
012737
004737
012737
012737
005037
004737
005037
005037
112737

001102
007056
001324
002501
002503
000031
001100
006476
025654
000400
043656
001204
024432
002512
002510
000003

AAAAAR

TST3:

BIT
BNE

JMP
Mov
Mov
Mov

172474

001200

001162
001110

062504
002506

002502

TEST3:

Mov
Mov
Mov
CLRB
CLRB
Mov
MOV
MOV

JSR

mov
Mov

CLR
JSR
CLR
CLR

MOvVB

ddlt

BITS+<STN*2>
.+6

TST4
#TEST3,SLPERR
#TST3,SLPADR
#3,8TSTNN

aliiititlii

TSTNMS
sBR

;IS THIS TEST SELECTED
IF YES

;60 TO THE
;SETUP THE

NEXT TEST
ERROR LOOP ADDRESS

¢SETUP THE SCOPE LOOP ADDRESS
;SETUP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

STSTNM,3DISPLAY
LOAD THE TEST NUMBER
#EXIT3,BYPASS
;SETUP BYPASS ADDRESS
RPADR,R4

INTO THE DISPLAY REGISTER

;RP11E BUS ADDRESS

DPB+1
DPB+3
#25.,8TIMES

;CLEAR ANY EXTENDED MEMORY BITS
;CLEAR "MODE' & 'HDR' BITS
;:00 25. ITERATIONS

#256.,8uC

;SET WORD COUNT TO 1

#STACK,SP
#TEST3,SLPERR
PC.CLRP
#BUFFER,$BUF
PATNUM
PC,SETBUF

$SEC
$CYL
#WRTSEK,DPB+2

;SETUP THE STACK POINTER
;INITIAL LOOP ON ERRORR ADDRESS
;CLEAR THE RPN

SECTOR

;SETUP OUTPUT BUFFER
;SETUP FOR PATTERN ZERO
;LOAD ZEROS INTO THE BUFFER

;SET SECTOR ¢ TRACK TO ZERO
:SET CYLINDER TO ZERO
;WRITE COMMAND

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
T3
22-APR-78 14:42

2642
2643
2644
2645

2646
2647
2648
2649
2650
2651
2652

2653
2654
2655
2656
2657
2658
2659
2660

2661
2662
2663
2664
2665
2666
2667
2668
2669

2670
2671

2672
2673
2674
2675
2676

2677
2678
2679
2680
2681
2682
2683
2684

2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697

006556
006562
006566
006572
006600
006602
006604
006606
006614

004737
004737
004737
032737
001402

006620
006626
006632
006640
006646
006654
006662
006666
006672
006676
006704
006706
006710
006712
006720
006722
006724
006730
006732
006734
006742
006744
006746
006754
006760
006766
006772
006776
007004
007010
007014
007020
007026
007030
007032
007034
007042
007046
007050
007054

104004
000524
012737
004737
012737
004737
012737
013737
012737
112737
004737
004737
004737
032737
001002
104013
000405
032737
001001
104014
005737
001401
104015
023737
001401
104016
012737
004737
012737
005037
005037
012737
004737
004737
004737
032737
001402
104017
000411
013737
005737
001403
005037
104020

007056

000004

022770
023664
023240

001340

006606
025654
000015
024432
001000
001210
000011
000023
022770
023664
023240
000092

001110

002504
002510
002512
002513

100000

001340

1%:

001204

2%:

3%:

001346

001354

001210

006746
025654
000002
002512
002510
000005
022770
023664
023240

001110

5%:

100000

043656

001126

JSR
BIT
BEQ
ERROR
Mov
JSR
mov
JSR

#1$,SLPERR
PC,CLRP
#13.,PATNUN
PC,SETBUF

#512.,84WC
MAXCYL,S$CYL

BIT
BNE
ERROR
BR
BIT
BNE
ERROR

#BI1T01,S$RPER
2%
13
33
#ERR,SRPCS
3s
14

BEQ
ERROR
cmp
BEQ
ERROR

43
15
$SUCA,MAXCYL
5%
16

CLR
CLR
MoV
JSR
JSR

002502

001340

EXIT3:
A

JeTEST &

PC,CONRDY
PC,SAVRP

;WAIT

BUFFER,$BDDAT
$BODAT

CLR
ERROR

$SGDDAT
20

TEST

THE

ORDER

COMPLETE

REGISTERS

FOR

CONTROLLER READY

;CLEAR THE CYLINDER ADDRESS
: CHANGE COMMAND TO READ
;EXECUTE THE COMMAND
;WAIT FOR CONTROLLER READY
;STORE THE REGISTERS

Mov
TST

THE

;CLEAR SECTOR/TRACK ADDRESS

PC,SAVRP
#ERR,SRPCS
6%

;WERE THERE ANY ERRORS?
;BRANCH [F NOT
;ERROR ENCOUNTERED ON 2 WORD READ
;OF FIRST SECTOR ON THE PACK
;GET FIRST WORD OF BUFFER
;DOES 1ST SECTOR STILL CONTAIN ZEROS?
:BRANCH IF YES
;IEROS WERE EXPECTED
;CONTENTS OF THE FIRST SECTOR OF THE

sPACK

SCOPE

FOR

;SUCA NOT CORRECT AFTER EOP ERROR
: CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP
;WORD COUNT

#5% ,SLPERR
PC,CLRP
#2,84(

EXIT3

SEQ 0054

;STORE THE RP11 REGISTERS
;01D EOP ERROR SET?
;BRANCH [F SET
;'EOP' DIDN'T SET
:CHECK RPCA
;DID THE ERROR FLAG SET?
;BRANCH IF SET
;ERROR DID NOT SET AFTER GENERATING °'EOP’
sSEE IF THE CYLINDER ADDRESS REGISTER WAS CLEARED
sBR IF CLEARED
:'RPCA’ NOT CLEARED BY 'EOP'
sSUCA STILL EQUAL TO THE MAXIMUM CLINDER
;BR IF IT IS

SRPCA

17
EXIT3

PAGE 55

;DID AN ERROR OCCUR ?
:BR If NOT
;ERROR OCCURED DURING SETUP
:BYPASS REST OF TEST
;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;ONE'S PATTERN INDEX
sLOAD THE PATTERN INTO THE BUFFER
: CHANGE WORD COUNT TO 2 SECTORS
;SELECT THE DRIVE'S MAXIMUM CYLINDER
;SELECT SECTOR 9
sSELECT HEAD 19
;START THE READ

JSR
BIT
BEQ

BEQ

001124

;STORE

$SEC
$CYL
#RDSEK ,DPB+2
PC,RP11
PC,CONRDY

ERROR
BR

6%:

sWAIT

#9.,8$SEC
#£19. ,8TRK
PC.RPI

TST

14:43

;WRITE ZEROS IN CO, TO, SO

EXIT3

Mov
Mmov
Mov
move
JSR

Mov
JSR
Mov

00250¢

001126

JSR
JSR

001336

5
22-APR-78

PC,RP1
PC,CONRDY
PC.SAVRP
#ERR,SRPCS
18
&

JSR
JSR

100000

MACY11 30A(1052)
'EOP' TEST

CHANGED AFTER

FORCING EOP

022222222 2222220222222
222322022280

'PROG'

ERROR

CZRPY=D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PIN
22-APR-78 14:42

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

2726

2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753

& R/W TEST
T4

D
5
MACY11 30A(1052)
22-APR-78
TEST 'PROG" ERROR

14:43

PAGE

THAT THE RP11E GENERATES A

'PROG'

ERROR

;*VERIFY

;*WHILE THE CONTROLLER IS BUSY.
A

007060
007060
007066
007070
007074
007102
007110
007116
007124
007132
007136
007142
007146
007154
007160
007164
007170
007174
007202
0C7210
007216
007222
007230
007234
007242
007246
007254
007256
007260
007262
007270
007272
007274
007302
007304
007306

033737
001002
000137
012737
012737
012737
013777
012737
013704
105037
105037

012737
012706
004737
005037
005037
012737
012737
112737
004737
012737
004737
112764
004737
032737
001002
104021

000412
032737
001001
104107
032737
001001
104022
000004

001410

001276

007310
007154
007060
000004

001110
001106
001162

001102
007306
001324
002501
002503
000144
001100
025654
002512
002510
043656
002000
000005
022770
000001
023202
000005
023240
002000

SRR

T1S74:

172016
001200

001162

.+6
TSTS

CLRB
CLRB

JSR
CLR
CLR

move
JSR
Mov
JSR
move
JSR
BIT
BNE
ERROR

000004
001336

040000

001340

1%:

100000

001340

2%:

J*TEST

sCLEAR

SELECTED

'MODE'

THE
THE

;SETUP
;CLEAR

$SEC
$CyL

sCLEAR THE
;CLEAR THE

SECTOR - TRACK ADDRESSES
CYLINDER ADDRESS

#1024.,8W(
#RDSEK ,DPB+2
PC.RP11
#1,STALLT
PC,STALL

;SETUP WORD COUNT
;READ COMMAND
; ISSUE THE COMMAND
sLOAD STALL VALUE
sSTALL FOR 1 MILLISECONDS

#RDSEK ,RPCS(R&L)
PC,SAVRP

;ISSUE
;STORE

;BRANCH

EXITS

sREAD COMMAND WAS ISSUED WHILE
sTHE DEVICE WAS BUSY
;BYPASS REST OF TEST

POINTER

ADDRESS

READ COMMAND WHILE
THE REGISTERS

BUSY

:DID PROGRAM ERROR SET?
IF

SET

:PROGRAM ERROR DID NOT SET WHEN A

#HE ,SRPCS

;'HE'

107

;'HE'

ERROR
SCOPE

EXITS

STACK
RP11

;SETUP BUFFER

BITS

#STACK,SP
PC,CLRP

#ERR,SRPCS

'HDR'

ITERATIONS

BNE

;.00 100.

BIT

MR AAAAAR

TEST

THE ERROR LOOP ADDRESS
THE SCOPE LOOP ADDRESS
TEST NUMBER AND

DPB+3

#BIT10,S$RPER

BR
8IT
BNE
ERROR

EXIT4:

SET

;BR

IF NOT

;DID

'ERR'

DIDN'T

;BRANCH

;'ERR'

'HEADER NOT

SET WITH

SET

'PROG'

SET

DID NOT SET WITH PROGRAM ERROR

ARl

FOUND'

RRRRE

READ

AND

WRITE

HEADER

OPERATIONS WILL

;*ISSUE A WRITE COMMAND TO SECTOR ZERO;
;*FOUND'
MR

007310
007310

033737

001412

001276

TO SET.

?575:

BIT

REFORMAT

THE

SECTOR.

ARl

BITS+<STN®2> TSTNMS

]

TEST

s *UNFORMAT THE FIRST SECTOR ON THE PACK AND THEN READ IT BACK.
s*THAT

ISSUED

;CLEAR THE ERROR FLAG (SERFLG)

#BUFFER ,$BUF

Mov
Mmov

001220

;IS THIS

;SETUP
sSETUP
sSETUP

#100.,STIMES

Mmov
Mov

002506
002504
002502

STSTNM SDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT4,BYPASS
;SETUP BYPASS ADDRESS
RPADR,R&
sRP11E BUS ADDRESS
DPB+1
;CLEAR ANY EXTENDED MEMORY BITS

mov
Mov
MoV

TEST4:

IF A COMMAND

:BR [F YES
;GO TO THE NEXT TEST

#TEST4 ,SLPERR
#TST4,SLPADR
#4,$TSTNR

Mov
MOV

SEQ 0055

Rl 2222022202222
32222 2]

BITS+<STN*2> ,TSTNAS

BIT
BNE
JMP
MoV

TRANSFER

DATA

THIS SHOULD CAUSE

2222222022222

VERIFY

CORRECTLY.

'HEADER NOT

X222

;IS THIS TEST SELECTED

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
TS
CZRPYD P11
22-APR-78 14:42

2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
444
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
279N
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806

2807
2808
2809

007316
007320
007324
007332
007340

001002
000137
012737
012737
012737

007346
007354
007362
007366
007372
007376
007404
007410
007416
007422
007430
007436
007444
007452
007456
007462
007470
007476
007502
007506
007512
007520
007522
007524
007526
007534
007540
007546
007552
007556
007564
007566

013777
012737
013704

007570
007576
007600
007606
007610
007614
007620
007622
007624

007632

007634
007642
007646
007654

007660
007664

105037
105037

012737
012706
012737
004737
012737
012737
012737
012737
005037
005037
012737
112737
004737
004737
004737
032737
001402
104023
000506
012737
004737
112737
004737
004737
032737
001401
104024

010034
007404
007310
000005
001102
010032
001324
002501
002503
000144
001100
007404
025654
000001
000001
000001
000003
002512
002510
014000
000003
022770
023664
023240
100000

007526
025654
000005
022770
023664

100000

14:43

SEQ 0056

001110
001106
001102

Mov
MoV
MOV

.+6
TST6
#TESTS ,SLPERR
#TSTS,SLPADR
#5,8TSTNN

171566

Mmov
Mov
MoV

STSTNM @DISPLAY
;LOAD THE TEST NUMBER
#EXITS,BYPASS
;SETUP BYPASS ADDRESS
RPADR R4
;RP11E BUS ADDRESS

001200

001162
001110

CLRB
CLRB

TESTS:

;CLEAR THE RPN
sSETUP INVALID HEADER
:CYLINDER/TRACK
:SECTOR
sLOAD WORD COUNT

PC,CONRDY
PC,SAVRP
#ERR,SRPCS
1%

; 'MODE' AND 'HEADER' BITS
;WRITE ORDER
sMISFORMAT SECTOR 0
;WAIT FOR THE OPERATION TO COMPLETE
:STORE THE REGISTERS
;DID AN ERROR OCCUR ?
;BR IF NOT

Mov

JSR

MOVB
JSR

JSR
BIT
BEQ
ERROR

2$:

001124

043656

18:

012737
004737
012737
004737
004737
004737

007634
025654
000003
022770
023664
023240

000002
000006

Mov

CLR
cmp

BNE

ADD

001126

4%:

cmp
BNE
BR
MOV

ERROR

001110
002502

TSTS5A:

sCLEAR ANY EXTENDED MEMORY BITS
;CLEAR 'MODE® & 'HDR' BITS

PC,CLRP
#1,BUFFER
#1,BUFFER+?
#1 ,BUFFER+4
#3,80C

JSR
JSR
JSR
BIT
BEQ
ERROR
BR

001124

OPB+1
0PB+3

Mov

JSR

mov

JSR
JSR
JSR

#TESTS,SLPERR

$SEC
$CYL
#MODE !HDR,DPB+2
#WRTSEK,DPB+2
PC.RP1

TST58
#13 ,SLPERR
PC,CLRP
#RDSEK ,DPB+2
PC.RP11
PC,CONRDY
#ERR,SRPCS

;.00 100.

DISPLAY REGISTER

JSR

MOV
MovB

000001

THE

sSETUP

002502
002502

001340

INTO

#STACK,SP

CLR
CLR

002502

;CLEAR THE ERROR FLAG (SERFLG)

#100.,8TIMES

MoV
mov
mov
Mov

001110

YES
THE NEXT TEST
THE ERROR LOOP ADDRESS
THE SCOPE LOOP ADDRESS
TEST NUMBER AND

Mov
MOV
MoV

043656
043660
043662
002504

001340

;BR IF
;GO TO
;SETUP
;SETUP
;SETUP

PAGE

BNE
JMP

012737
005000
023760
001006
062700
022700
001367
000404
016037
104025

043656

S
E
MACY11 30A(1052)
22-APR-78
'HEADER NOT FOUND' TEST

THE

ITERATIONS
STACK

POINTER

;INITIAL LOOP ON ERROR ADDRESS
IMAGE

sCLEAR SECTOR/TRACK ADDRESS
sCLEAR THE CYLINDER ADDRESS

;ERROR OCCURED ATTEMPTING TG MISFORMAT SECTOR 0

;BYPASS TEST & REFORMAT SECTOR O
; CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
; CHANGE COMMAND
;EXECUTE THE COMMAND
;WAIT FOR CONTROLLER READY
;ANY ERRORS?

;BRANCH

NOT

;ERROR WHILE READING THE HEADER
;ON SECTOR ZERO

#1,3GDDAT
RO

;EXPECTED RESULT
sCLEAR THE INDEX

#6,R0

;END OF

TSTS5A

.CONTINUE WITH TEST

$GDDAT,BUFFER(RO)
,CHECK DATA READ BACK
43
;BRANCH ON NON COMPARE
#2,R0
;UPDATE MODIFIER

:BR

BUFFER?

NOT

BUFFER(RO) ,$BDDAT
;GET BAD DATA
25
:DATA DID NOT VERIFY AFTER READING
#TSTSA,SLPERR
PC,CLRP
SURTSEK ,0PB+2
PC,RP11
PC,CONRDY
PC,SAVRP

;THE

HEADER OF

SECTOR

ZERO

;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RPN
;CHANGE COMMAND (AND CLEAR °'MODE'
;EXECUTE THE COMMAND
;WAIT FOR CONTROLLER
.STGRE THE REGISTERS

READY

'HDR")

F
5
MACY1T1 30A(1052)
22-APR-78
'HEADER NOT FOUND' TEST

CIRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD. P11
22-APR-78 14:42
TS

2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820

2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856

2857
2858
2859
2860
2861
2862
2863
2864
2865

007670
007676
007700
007702
007704
007712
007714
007716
007724
007726
007730
007736
007740
007742
007750
007754
007760
007764
007770
007776
010004
010010
010014
010020
010026
010030
010032

010000

001334

18:

000001

001336

2$:

032737
001001

040000

001340

3s:

032737
001001

100000

001340

012737
004737
005037
005037
005037
012737

007742
025654
043656
043660
043662

001110

TSTS58:

032737
001002

BIT

104026

000417
032737
001001
104027

104030

104031

112737
004737
004737
004737
032737
001557

002502
002502

100000

001340

000003
022770
023664
023240

104032

000004

FOUND

SET?

8IT
BNE
ERROR

#HE , SRPCS
43
30

:DID HARD ERROR SET?
;BRANCH [F YES
sHARD ERROR NOT SET AFTER

BNE

TSTS58

:BRANCH [IF YES

ERROR

;'DSK' DID NOT SET WITH

#ERR ,SRPCS

;DID

#TST5B,SLPERR
PC,CLRP
BUFFER

CLR
Mov
move
JSR
JSR
JSR
BIT
BEQ

BUFFER+4
#MODE
! HOR ,DPB+2
#FURTSEK ,DPB+2
PC.RP1
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
EXIT6

BUFFER+2

TEST

"ERR'

;'ERR'

MOV
JSR
CLR

ERROR
SCOPE

J*TEST

SEQ 0057

;BRANCH [F YES
;'HNF' DID NOT SET
;BYPASS REST OF TEST
;DID DISK ERROR SET?
JBRANCH [F YES

BIT

;0ID HEADER NOT

2%
26
TST5B
#BIT00,SRPER
33

ERROR

EXITS:

PAGE

BNE
ERROR
BR
BIT
BNE

CLR

014000

#BIT12,8RPDS

14:43

DID NOT SET WITH

'HNF'

;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;SETUP HEADER IMAGE

sCYLINDER/TRACK = 0

;SECTOR = 0
; 'MODE®' AND 'HDR' BITS
;WRITE COMMAND
sRESTORE THE HEADER
;WAIT FOR THE OPERATION TO COMPLETE
;STORE THE REGISTERS
;DID AN ERROR OCCUR ?
;BR IF NOT

sERROR ATTEMPTING TO RESTORE HEADER

COMMAND

SET

'HNF'

ISSUED

222220

SEEKING

RRRRRRRRR

S]]

DRIVE

;*ISSUE A SEEK COMMAND AND WAIT FOR DONE TO SET. THEN ISSUE A READ
;*COMMAND WHILE THE HEADS ARE STILL MOVING. THE RP11E SHOULD
;*HOLD THE WRITE COMMAND TILL THE SEEK IS COMPLETE.
A

010034
010034
010042
010044
010050
010056
010064
010072
010100
010106
010112
010116
010122
010130
010134
010140
010144
010150

033737

001414

001276

000137
012737
012737
012737

010370
010130
010034
000006

001110
001106
001102

013777
012737
013704
105037
105037
012737
012706

C01102
01036¢
001324
002501
002503
000031
001100
025654
002512
002510
000015

001002

004737
005037
005037
112737

ARl RSS2
8222
R
R

TST6:

002502

BITS+<STN®2>, TSTNMS
;IS THIS TEST SELECTED
.+6
;BR IF YES
TST7
;60 TO THE NEXT TEST

mMov
mov

#TST6,8LPADR
#6,3TSTNN

Mov
MoV

STSTNM QDISPLAY
;LOAD THE TEST NUMBER
#EXIT6,BYPASS
;SETUP BYPASS ADDRESS

CLRB
CLRB
MoV
MOV
JSR
CLR
CLR

DPB+1
DPB+3
#25.,8TIMES
#STACK,SP
PC,CLRP
$SEC
$CYL

MoV

171042
001200

001162

BIT
BNE
JMP

Mmov

TEST6:

Move

FTESTG,SLPERR

;SETUP

THE

ERROR LOOP ADDRESS

;SETUP THE SCOPE LOOP ADDRESS
;SETUP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

RPADR,R4

;RP11E BUS ADDRESS

#HOMSEK ,OPB+2

;HOME

INTO

THE

;CLEAR ANY EXTENDED MEMORY BITS
;CLEAR "MODE' L °'HDR' BITS
;.00 25. ITERATIONS
;SETUP THE STACK POINTER
;CLEAR THE RPN
;SECTOR/TRACK 0
;CYLINDER 0
SEEK

COMMAND

DISPLAY

2866
2867
2868
2869
2870
28N
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882

2883
2884
2885

2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
29N
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921

010156
010162
010166
010174
010202

010206
010214
010220
010226
010234
010242
010250
010254
010260
010266
010270
010272
010274
010300
010304
010312
010314
010316
010324
010332
010340
010342
010346
010354
010362
010364
010366

004737
004737
012737
112737
004737
012737
004737
012764
012764
052737
112764

004737
004737
032737
001402
104033
000435
004737
004737
032737
001401

022770
023546
000300
000011
022770
000001
023202
177775

043656
014000
000017
023546
023240
000200

002510
002502

000006
000010
002502
000004

001401
104035
000004

mov
JSR
MOV

#1,STALLT
PC,STALL
#-3 RPWC(R4)

sLOAD STALL VALUE
;STALL FOR 1 MILLISECONDS
;SEY WORD COUNT TO THREE WORDS

100000

1$:

043660
001124

001124
001126
001126

001124
043662
001124

001126
001126

2%:

;SETUP TO READ

JSR
JSR
BIT
8EQ

PC,DRVRDY
PC,SAVRP
#RDY,$RPCS
13

;WAIT FOR DRIVE READY
;STORE THE REGISTERS
;DID CONTROLLER BECOME
;BR IF NOT

EXIT6

JEXTY

BIT
BEQ

#ERR,SRPCS
2%

AR A

SeTEST 7

;TRY

sANY ERRORS?
;BRANCH IF NO

;ERROR OCCURED DURING A READ
JWHILE THE DRIVE IS SEEKING
#<192.+32.> ,8GDDAT
;EXPECTED CYLINDER VALUE

BUFFER+2,$BDDAT

;RECEIVED DATA

CMP
BNE
CLR

$GDDAT,$BODAT
2%
$GDDAT

;CORRECT ?
;B8R IF NOT
;EXPECTED VALUE

$GDDAT,$BDDAT

;CORRECT ?

Mov

BUFFER+4,$BODAT

BEQ
ERROR
SCOPE

EXIT6
35

READY ALSO ?

sWAIT FOR CONTROLLER READY
;STORE THE REGISTERS

Mov

THE HEADER

TO DO A READ

JREAD DIDN'T START DURING SEEK

PC,CONRDY
PC,SAVRP

CMpP

ADDRESS

#MODE
!HDR ,DPB+2

MoV

EXIT6:

;BUFFER

192

THE SEEK

#READ ,RPCS(R&)

ERROR

014000

;INITIATE

MOVB

JSR
JSR

001340

PC,RP11

#BUFFER,RPBA(R4)

BIS

104034

012737
013737
023737
001366
005037
013737
023737

;DO THE COMMAND
;WAIT FOR DRIVE READY
s CHANGE CYLINDER TO CYLINDER
; SEEK COMMAND

MoV

001340

SEQ 0058

PC,RP11
PC,ORVRDY
#192.,8CYL
#SEEK,DPB+2

JSR

001220

JSR
JSR
MoV
MOv8

ERROR

023664
023240

MACY11 30A(1052)
22-APR-78
14:43
PAGE
TEST COMMAND ISSUED TO A SEEKING DRIVE

ARl

;RECEIVED

SECTOR

;BR IF 0K
;HEADER DATA

AR AR AR

TEST "NXME' B'T

ISSUED

FOR SECTOR

INCORRECT

RRRdE

;*THE NON-EXISTENT MEMORY ERROR BIT IS TESTED BY ATTEMPTING TO READ 1
;*WORD INTO LOCATION 760000.
°'NXME', 'HE', & 'ERR' SHOULD ALL BE SET.
"".""""""""""""""""""""""".Q""."""".

010370
010370
010376
010400
010404
010412
010420

033737
001002
000137
012737
012737
012737

001416

001276

010612
010464
010370
000007

001110
001106
001102

010426
010434
010442
010446
010452
010456

013777
012737
013704
105037
105037
012737

001102
010610
001324
002501
002503
000144

170506
001200

1ST7:
BIT
BNE

JMP
mov
mov
Mov

BITS+<$TN*2> TSTNMS
;IS THIS TEST SELECTED
.+6
;BR IF YES
1ST10
;G0 TO THE NEXT TEST
#TEST7 ,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#TST7,SLPADR
;SETUP THE SCOPE LOOP ADDRESS
#7,8TSTNM
;SETUP TEST NUMBER AND

Mov

$TSTNM

:CLEAR THE ERROR FLAG (SERFLG)
;LOAD

THE

TEST NUMBER

INTO

THE

mov

#EXIT? ,BYPASS

;SETUP BYPASS ADDRESS

CLRB
CLRB

DPB+1
DPB+3

;CLEAR ANY EXTENDED MEMORY BITS
;CLEAR 'MODE' & 'HDR' BITS

Mov

001162

QDISPLAY

Mmov

RPADR,R&

#100.,$TIMES

;RP11E

BUS ADDRESS

::00 100.

ITERATIONS

DISPLAY

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/w TEST
CZRPYD P11
16
22-APR=-78 14:42

2975
2976
2977

012706
004737
012737
005037
005037
112737
012737
112737
004737
004737
004737
032737
001002

104036
000412
032737
001001
104037
032737
001001

001100
025654
000001
002512
002510
000060
160000

TEST?-

mny

002504
002501
002506
002502

001336

040000

001340

2%:

100000

001340

3s:

104040
000004

PAGE 60

SEQ 0059

#STACK , SP

JSETUP THE STACK POINTER

#RDSEK ,DPB+2

:TRY TO READ INTO THE LOCATION

JSR
JSR
JSR
BIT
BNE
ERROR
BR
BIT
BNE

PC.RP1
PC,CONRDY
PC,SAVRP
#BIT02,SRPER
23
36
EXIT?
#HE ,SRP(S
3s

SRR

TRTEST 10
;*THE

14:43

PC,CLRP
;CLEAR THE RP11
f1,8uC
:WORD COUNT
$SEC
;SECTOR/TRACK ZERO
$CYL
;CYLINDER ZERO
#MEXT!MEXO,DPB+1
;LOAD BOTH EXTENDED MEMORY BITS
#160000,$BUF
sLOAD ADDR TO FORCE NON EX MEMORY

ERROR
BIT
BNE
ERROR
SCOPE

EXIT7:

S
22-APR-78

JSR
mov
CLR
CLR
Move
MoV

Mmove

000005
022770
023664
023240
000004

37
#ERR,SRPCS
EXIT?
49

AR AR

SECTOR

;INITIATE THE OPERATION
;WAIT FOR CONTROLLER READY
;STORE THE REGISTERS
;DID NON EX MEMORY SET ?
;BRANCH IF SET
;'NXME®' ERROR DIDN'T SET
;DON'T CHECK THE RPCS BITS
;DID "HE' SET ON NON EX MEMORY
;BRANCH [F SET

:'HE' DIDN'T SET
;0ID "ERR' SET WITH NON EX MEMORY
sBRANCH [F SET
;'ERR' DIDN'T SET

ittt

Rttt

SECTOR ADDRESSING TEST

ADDRESSING TEST

TESTS

THE

CAPABILTIY

THE

RRdd

RP11E

]

TO LOCATE

;*A SECTOR BY USING THE °'SOT' COUNTER (FOR "HDR' OPERATIONS) AND TO LOCATE
;*A SECTOR BY COMPARING THE HEADER CONTENTS AGAINST THE CYLINDER AND TRACK/
:*SECTOR ADDRESS REGISTERS (NORMAL MODE).
THE TEST IS PERFORMED IN 3 PARTS.
i

CYLINDER O

IN ASCENDING

SEQUENCE

%
N

READ EACH HEADER, BEGINNING WITH SECTOR O,

SECTOR

FIELD

IN THE

HEADER

IS CORRECT

FOR

THE

AND VERIFY THAT THE

HEADER EXPECTED.

LRI

1.
WRITE ALL HEADERS ON TRACK
FROM INDEX (0, 1, 2 ... 9).

THE

SECTOR READ.

:éé%s?ERlNCREHENTED BY

THE

SECTOR

THE

TIME

ADDRESS

AND

THE PROGRAM IS ABLE

THE

'SOT'

TO READ

THE

THAN

VERIFY THAT THE 'SOT' COUNTER AND THE SECTOR ADDRESS IN °'RPDA' ARE
EQUAL AND ARE THE EXPECTED VALUE.
THE EXPECTED VALUE IS 1 GREATER

WRITE

THE

SECTOR'S

ADDRESS

IS WRITTEN.)

THE

DATA FIELD.

(FOR

SECTOR O,

THE

REMAINING SECTORS ON THE

OCYAL

THIS

SEQUENCE

FOR

TRACK.

CONTINUE

READ

2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974

010464
010470
010474
010502
010506
010512
010520
010526
010534
010540
010544
010550
010556
010560
010562
010564
010572
010574
010576
010604
010606
010610

010612
010612
010620

2922
2923
2924
2925
2926
2927
2928
2929
2930
29N
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950

MACY11 30A(1052)
TEST °'NXME' BIT

033737
001002

001420

001276

AR AR

? T10:

BIT
BNE

READ THE DATA FROM EACH SECTOR USING A NORMAL

AND

VERIFY

THAT

THE

DATA

CORRECT

BITS+<$TIN*2>,TSTNMS
.+6

;BR

FOR

THE

(].E., NON-HEADER)

EXPECTED

R R2022022R202R]

;IS THIS TEST SELECTED

YES

SECTOR.

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
17
22-APR-78 14:42

010622
010626
010634
010642

000137
012737
012737
012737

011532
010706
010612
000010

010650
010656
010664
010670
010674
010700
010706
010712
010720
010724
010732
010740
010744
010750
010754
010762
010770
010774
011000
011004
011012
011014

013777
012737
013704
105037
105037
012737
012706

001102
011530
001324
002501
002503
000031
001100

011016

011022
011026
011034
011040

011046

b
d
PNOND =

b e ek

b e

ed —ed ced ed —ed e

b
b
d
d

d wd ad md
d
—d

d md
md

—h

S ONNNO
VNN S WWWRNIN — —
NERONONOERNAONORERORD

011054
011062
011066

OO0OO0O0OO0OO0O0O0O0OOOO0OOOO

2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2N
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033

012737
004737

012737
012737
005037
005037
004737
012737
112737
004737
004737
004737
032737
001403
104041

000137
105037

012737
004737
012737
112737

012737
004737
004737
004737
012737
004737
016437
032737
001402

010706
025654

043656
000036
002510
002512
024304
014000
000003
022770
023664
023240
100000

011530
002512
011026
025654

014000
000005
000003
022770
023664

023240
000000
023202
000014

& R/W TEST
710

JMP
Mov
Mov
Mmov

001110
001106
001102
170264
001200

001162
001110

MoV
MOV
MoV

CLRB
CLRB

TEST10:

Mmov
Mov

CLR
CLR
JSR
MoV
Mmovs
JSR
JSR
JSR

002502
002502

001340

8IT

1$:

2%:

002502
002502
002504

113737

023737
001401

104043
005237
023727
103402

005037
013737
042737
006237

BEQ
ERROR
JMP
CLRB
MoV
JSR
MoV
MOvVB
Mov

JSR
JSR
JSR

001220

MoV

100000

001350
001340

Mov

001124
002512
00112¢

001124
043662

001124
001124

000012

JSR

104042

000457
005037

MoV
Mmov
mov

JSR

002506
002504

001110

001124
001350
177617

001126

001126
001126

3s:

MACY11 30A(1052)
22-APR-78
SECTOR ADDRESSING TEST

BIT
BEQ
ERROR
BR
CLR

MOVB

CMP
BEQ
ERROR
INC
CMP
BLO
CLR

Mov

8IC
ASR

TST11
#TEST10,SLPERR
#TST10,SLPADR
#10,8TSTNM

14:43

RPADR,
R4

#STACK,SP

#TEST10,SLPERR
PC CLRP
#BUFFER,$BUF

#30.,8WC
$CYL
$SEC

PC,LODSEC
#MO
! HOR DE
,DPB+2
#WRTSEK ,DPB+2
PC.RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS

13
41

EXIT10

$SEC
#2% ,SLPERR
PC,CLRP
#MO
'HOR DE
,DPB+2
#RDSEK ,DPB+2

#3,8W(C
PC,RP11
PC,CONRDY

SEQ 0060

;60 TO THE NEXT TEST
;SETUP THE ERROR LOOP ADDRESS

;SETUP THE SCOPE LOOP ADDRESS

JSETUP
;CLEAR
STSTNM,RDISPLAY
;LOAD
#EXIT10,BYPASS
JSETUP

DPB+1
DPB+3
#25. ,STIMES

PAGE 61

TEST NUMBER AND
THE ERROR FLAG (SERFLG)
THE TEST NUMBER INTO THE

DISPLAY

BYPASS ADDRESS
;RP11E BUS ADDRESS

;CLEAR ANY EXTENDED MEMORY BITS
;CLEAR 'MODE' & 'HDR' BITS

;.00 25. ITERATIONS

JRESET THE STACK POINTER
;LOOP ON ERROR ADDRESS
;CLEAR THE RP11
JSETUP BUFFER ADDRESS
;SETUP WORD COUNT FOR 10 SECTORS
;SETUP FOR CYLINDER 0

s TRACK/SECTOR 0
JSETUP FORMAT BUFFER
sSETUP THE HEADER CONTROL BITS
;s THE COMMAND CODE
:FORMAT THE TRACK
;WAIT FOR THE ORDER TO COMPLETE
;STORE THE REGISTERS

JERROR ?
;BR IF NOT
;ERROR TRYING TO FORMAT THE

;BYPASS REST OF THE TEST
; STARTY CHECK WITH SECTOR 0

TRACK

;CHANGE THE LOOP ON ERROR ADDRESS
s CLEAR THE RP11

;SET 'MODE' AND 'HDR' BITS
;CHANGE THE OPERATION TO A READ
: CHANGE THE WORD COUNT TO 3
;READ THE SECTOR'S HEADER
;WAIT

FOR

THE

ORDER

COMPLETE

. STORE THE REGISTERS
#0,STALLT
;LOAD STALL VALUE
PC,STALL
s STALL FOR O MILLISECONDS
RPDA(R4) ,$RPDA
;GET THE CONTENTS OF THE ADDRESS REGISTER
#ERR,SRPCS
sERROR ?
33
:BR IF NOT
42
;ERROR READING THE HEADER
6%
;BYPASS DATA CHECK
$GDDAT
s CLEAR FOR EXPECTED DATA
$SEC,$GDDAT
;MOVE SECTOR ADDRESS
SGDDAT ,BUFFER+4 : CHECK THE SECTOR FIELD
43
;BR IF CORRECT
43
;SECTOR FIELD FROM HEADER NOT CORRECT
$GDDAT
s INCREMENT SECTOR ADDRESS FOR 'SOT' (CHECK
$GDDAT,#10.
;EXCEED THE MAXIMUM ?
.+6
:BR IF NOT
PC,SAVRP

$GDDAT
SRPDA,$BDDAT
# (360,3BDDAT
$BODAT

JRESET COMPARISON VALUE
s CHECK THE 'SOT'
:CLEAR THE OTHER BITS
JSHIFT THE ‘'soT'’

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.P11
22-APR-78 14:42

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
110
CZRPYD.PIN
22-APR-78 14:42

3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089

011216
011222
011226
011232
011240
011246
011254
011256
011264
011266
011270
011276
011302
011306
011312
011320
011324
011330
011334
011342
011344
011346
011354
011360
011366
011370
11376
011404
011410
011416
011424
011430
011434
011440
011444
011452
011454
011456
011460
011464

006237
006237
006237
013737
042737
023737
001004
023737
001401

001126
001126
001126
001350
177760
001124

001122
001122
001126

001126

001122

012737
004737
105037
004737

011270
025654
002503
024336
000003
022770
023664
023240

001110

104045

112737

004737
004737
004737
032737
001401
1046044
112737
105237
123727
001217

012737
012737
105037

012737
112737

004737
004737
004737
004737
032737
001402
104017
000412
005037
113737

023737
001401

104046
105237
123727
001404
113737

000736
000004

100000

000005
002512
002512

011424
000400
002512
000012
000005
025654
022770
023664
023240
100000

J
5
MACY11 30A(1052)
22-APR-78
SECTOR ADDRESSING TEST
ASR
ASR
ASR
Mov

5%:
6%:

002502

001340
002502

7%:

000012

BIC
CMP
BNE
(0,1
BEQ
ERROR

Mov

JSR
CLRB
JSR
MOvVB
JSR
JSR
JSR
BIT
BEQ
ERROR
mMovs
INCB
(MPB
BNE

001110
002504

Mov
Mmov

001124
002502

MoV
Mmove

CLRB

8$:

001340

001120
002512
001124

001120
043656

002512
002512

000012

002512

001124

9%:

10%:

JSR
JSR
JSR
JSR
BIT
BEQ
ERROR
BR
(LR
MOvVB
CMP
BEQ
ERROR

INCB
CMPB
BEQ

Mmove

EXITI0:
MR

AR AR

JeTEST

BR
SCOPE

$BODAT
$BDDAT
SBODAT
SRPDA, $BDADR
# (17,$BDADR
§200A1,seooAr
$BDDAT, SBDADR
63
45
#6$,SLPERR
PC,CLRP

DPB+3

PC,FILSEC
FURTSEK,DPB+2
PC,RPT1
PC.CONRDY
PC.SAVRP
#ERR,SRPCS

44
#RDSEK ,DPB+2
$SEC
$SEC.#10.

#8$ ,SLPERR
#256.,84C
$SEC
#10. ,$GODAT
#RDSEK ,DPB+2
PC,CLRP
PC.RP11
PC,CONRDY
PC.SAVRP
#ERR, SRPCS

98
17
108
$GDADR
$SEC,$GDADR
$GDDAT,BUF
FER
108
46
$SEC
$SEC,#10.

EXITIO

$SEC,$GDDAT
8s

TRACK

;*TRACK ADDRESSING

ADDRESSING

14:43

;SHIFT

THE

JSHIFT

THE

;SHIFT THE

PAGE 62

SEQ 0061

‘'SOT'

'SOT'

°'SOT’

;CHECK THE SECTOR ADDRESS
;LEAVE THE SECTOR ADDRESS
;IS THE "SOT' CORRECT ?
;BR [F NOT
:DOES THE SECTOR ADDRESS EQUAT
;BR IF IT DOES

THE

‘'SoOT*'

;'SOT' OR SECTOR ADDRESS IS NOT CORRECT

;CHANGE

THE

LOOP ON ERROR ADDRESS

;CLEAR THE RP11
;CLEAR 'MODE' & 'HDR' BITS
;SETUP TO WRITE SECTOR ADDRESS AS DATA
s CHANGE OPERATION
JWRITE

THE

SECTOR

;WAIT FOR THE ORDER TO COMPLETE
;STORE THE REGISTERS
;ERROR ?
;BR IF NOT
;ERROR TRYING TO WRITE SECTOR ADDRESS AS DATA
;CHANGE THE OPERATION
:INCREMENT THE SECTOR
;AT MAXIMUM SECTOR ADDRESS ?
;BR IF NOT
:CHANGE THE LOOP ON ERROR ADDRESS
; CHANGE WORD COUNT
;START WITH SECTOR ZERO
;SECTOR ZERO PATTERN
; CHANGE OPERATION CODE

;CLEAR THE RP11

sREAD THE SECTOR
;WAIT FOR THE ORDER TO COMPLETE
;STORE THE REGISTERS
;ERROR ?
sBR IF NOT
;ERROR TRYING TO READ THE SECTOR
:BYPASS DATA (HECK
;CLEAR FOR EXPECTED DATA
;EXPECTED DATA
s CORRECT CONTENTS ?
sBR IF CORRECT
sSECTOR PATTERN NOT CORRECT FOR SECTOR ADDRESS
s INCREMENT SECTOR ADDRESS
;FINISHED SECTOR NINE ?
sBR IF COMPLETED
sNEXT SECTOR
sCONTINUE CHECKING
;LOOP ?
Rttt 2222222020}

TEST

TESTED BY WRITING THE

s*SECTOR O OF EACH TRACK IN CYLINDER O.

TRACK'S ADDRESS AS DATA

SECTOR O IS THEN READ BACK AND

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PIN
T
22-APR-78 14:42

3090
3091
3092
3093
3094
3095
3096
3097
3098

3099
3100
3101
3102
3103
3104
3105

MACY11
TRACK

30A(1052)

5
22-APR-78

ADDRESSING TESTY

14:43

PAGE 63
SEQ 0062

;*THE DATA IS CHECKED TO VERIFY THAT THE PROPER HEAD WAS SELECTED.
SRR RRR AR RN

011532
011532

011540
011542
011546
011554
011562

011570
011576
011604

011610

011614
011620
011626

011632
011636

011644
011652
011656
011664
011670
011676
011702

011706

011712
011716
011724
011726
011730
011734
011742
011744
011750
011754
011762
011766
011774
012000
012004
012010
012016
012020
012022
012024
012032
012034
012036
012044

012046
012052
012056
012060

033737
001002

000137
012737
012737
012737

013777
012737
013704
105037
105037
012737
005037
005037
012737
012737
012706
012737
004737
112737
004737
004737
004737
004737
032737
001401
104004
105237
123727
103745

005037
005037
012737
004737
112737
004737

004737
004737
032737
001402
104017
000405
123737
001401
104047
123727
001405
105237
105237
000736
000004

001422

012062

001276

TST11:

BIT
BNE
JMP

011652

001110
001106
001102

mov
Mov
MOV

001102
012060
001324
002501
002503
000031
002512
002510
000400
043656
001100
011656
025654
000003
024376
022770

167344
001200

Mov
Mov
Mov

011532
000011

023664
023240
100000

002513
002513

001124
002512
011754
025654
000005
022770
023664
023240

100000

CLRB
CLRB

001162
002504
002506

001110

Mov

CLR
CLR

TEST11:
1%:

JSR
MOVB

002502

001340

000024

2%:

3s:
001110

Mov
MOV
Mov
MoV

JSR
JSR
JSR
JSR
BIT
BEQ
ERROR
INCB
CMPB
BLO
CLR
CLR

Mov

JSR
Mov8

002502

001340

001125

043657

5%:

002513

000023

6$:

002513
001125

EXIT11:

JSR
JSR
JSR
BIT
BEQ
ERROR
BR
CMPB
BEQ
ERROR
CMPB
BEQ
INCB
INCB
BR
SCOPE

RN R A R RN AN RN AN E RO RN A E AR AN

ARNARRANARA

NORNLR

;IS THIS TEST SELECTED
BITS+<STN®2>,TST NMS
+6
;BR IF YES
TST12
:GO TO THE NEXT TEST
#TEST11,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#TST11,SLPADR
;SETUP THE SCOPE LOOP ADDRESS
#11,8TSTNM
;SETUP TEST NUMBER AND
sCLEAR THE ERROR FLAG (SERFLG)
STSTNM,aDISPLAY
sLOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT11,BYPASS
;SETUP BYPASS ADDRESS

RPADR,R&
DPB+1
DPB+3
#25.,.8TIMES
$SEC
$CYL
#256.,%4C

#BUFFER,$BUF
#STACK,SP
#13 ,SLPERR
PC,CLRP
#WRTSEK ,OPB+?2
PC,FILTRK

PC,RPI

PC,CONRDY
PC,SAVRP
#ERR,$RPCS

$TRK
$TRK,#20.
1%
$GDDAT
$SEC
#48 ,SLPERR
PC,CLRP

#RDSEK ,DPB+2
PC,RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS

;RP11E BUS ADDRESS

;CLEAR ANY EXTENDED MEMORY BITS

;CLEAR 'MODE' & 'HDR' BITS
;.00 25. ITERATIONS

;CLEAR SECTOR/TRACK ADDRESS
sCLEAR CYLINDER ADDRESS
;SET WORD COUNT TO ONE SECTOR
sSETUP THE BUFFER ADDRESS
sSETUP THE STACK POINTER
s CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
s CHANGE COMMAND TO WRITE
;FILL BUFFER WITH THE TRACK ADDRESS
;WRITE THE TRACK'S ADDRESS
;WAIT

FOR

CONTROLLER

TO FINISH

:STORE THE REGISTERS
;ERROR ?
;BR IF NOT
sERROR WRITTING TEST PATTERN
s INCREMENT THE TRACK ADDRESS
;FINISHED

sREAD

SECTOR

sBR IF NOT FINISHED
JSETUP EXTPECTED VALUE
;START WITH ZERO
:CHANGE THE LOOP ON ERROR ADDRESS
;CLEAR THE RPN
: CHANGE COMMAND
THE

;WAIT FOR THE CONTROLLER TO BE READY
;STORE THE REGISTERS
sERROR ?
:BR IF NOT
;ERROR READING THE SECTOR
;BYPASS THE DATA CHECK

5%
17
6%
;CORRECT VALUE ?
$GDDAT+1 ,BUFFER¢+ 1
6%
;BR IF OK
47
;CONTENTS WRONG
;FINISHED ?
$TRK,#19,
EXITIM
;BR IF FINISHED
$ TRK
s INCREMENT THE TRACK ADDRESS
$GDDAT+1
; COMPARSION WORD

. CONTINUE
.Loop ?

CZRPYD.PW

3173

3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186

3187
3188
3189
3190
3191
3192

3193
3194
3195
3196
3197
3198
3199
3200
3201

FUNCTIONAL LOGIC & R/W TEST
22-APR~78 14:42
TM

30A(1052)

22-APR-78

TRACK ADDRESSING TEST

AAALA AR

;TEST 12

ARl

14:43

ARt

PAGE 64

lisli

EXTENDED MEMORY ADDRESS TEST

SEQ 0063

Rttt

]]

s*THIS TEST TESTS THE OPERATION OF THE EXTENDED MEMORY ADDRESS BITS.

THE

;*SYSTEM DOES NOT HAVE MEMORY MANAGEMENT OR HAS MEMORY MANAGEMENT AND ONLY

;*32K, THE TEST WILL NOT BE PERFORMED.
0.
e
e

NN
¥

2.
EXTENDED ADDRESS BIT 'MEXO0' IS TESTED BY CLEARING LOCATION
200000 AND READING THE TEST SECTOR INTO LOCATION 177776.
LOCATION
200000 IS CHECKED TO VERIFY THAT THE DATA [S CORRECT (ONES).
THE

¥
B
¥

012062
012062
012070
012072

012076
012104
012112

012120
012126
012134
012140
012144
012150
012156
012162
012164
012170
012174
012176
012202
012206
012214
012220
012224

012232
012240
012246

012252

012256
012264
012270
012274

033737
001002
000°~7
012737
012737
012737

001424

001276

012720
012202
012062
000012

001110
001106
001102

013777
012737
013704
105037
105037
012737
005737

001102
012712
001324
002501
002503
000144
022232

100402
000137

005737
001002
000137
012706
012737
004737
005037
012737
012737
012737
005037
005037
012737
004737
004737
004737

SEOPE$ CONTENTS
SET.
AR

i§T12:

R0l

001162

SET AND

THAT

ONES.

°'MEX01'

TEST12:

(ONES).

dl20d

'MEXQ00'

2220202222222

SHOULD HAVE

232222223222

RESET AND

[S NOT

SET.

;SETUP THE SCOPE LOOP ADDRESS
sSETUP TEST NUMBER AND

MoV
MOV
Mov

STSTNM, @DISPLAY
#EXIT12,BYPASS
RPADR,R4

;LOAD THE TEST NUMBER
;SETUP BYPASS ADDRESS
:RP11E BUS ADDRESS

CLRB
Mov

DPB+3
#100.,STIMES

JMP

$KT11
1%

¢MEMORY MANAGEMENT ON THE
;BR IF ON SYSTEM

TST13

MoV

#STACK,SP

Mov

#BUFFER,$BUF

MOV
JSR
CLk
Mov

Mov
CLR
CLR

MOV
JSR
JSR
JSR

INTO THE

sCLEAR ANY EXTENDED MEMORY BITS

MAXMEM+2

BNE
JMP

:CLEAR THE ERPOR FLAG (SERFLG)

0PB*+1

TST

TEST12
TST13

;CLEAR 'MODE' & 'HDR'
;.00 100. ITERATIONS

THIS

sBR IF YES
;GO TO THE NEXT TEST
;SETUP

THE

STACK

;SETUP

THE

BUFFER

SYSTEM ?

TEST

POINTER

#TEST12,SLPERR
PC,CLRP
BUFFER
#-1,BUFFER+2

;INITIAL ERROR LOOP ADDRESS
;CLEAR THE RP1
sTEST PATTERN
;SECOND WORD OF PATTERN

#2,84u(C

;WORD COUNT OF 2

$SEC
$CYL

#WURTSEK,DPB+2
PC.RP1
PC,CONRDY
PC,SAVRP

:SECTOR/TRACK ZERO
;CYLINDER ZERO

SHOULD

DISPLAY REGISTER

BITS

;60 TO THE NEXT TEST
;ENOUGH MEMORY FOR

'MEXO1'

2223223222282

#TST12 ,SLPADR
#12,8TSTNM

TST
BMI

1$:

002502

HAS

ALL

BITS+<STN*2>
, TSTNMS
;IS THIS TEST SELECTED
.+6
¢BR IF YES
TST13
;GO TO THE NEXT TEST
#TEST12,SLPERR
SETUP THE ERROR LOOP ADDRESS

CLRB

043660
002506
002504

°'MEXO00'

SECTOR OF

BIT
BNE
JMP
Mov

Mov
mov

001200

001110

PROGRAM WRITES A 2 WORD TEST

3.
IF THE SYSTEM HAS AT LEAST 64K, "MEXO1' IS TESTED.
LOCATION
400000 IS CLEARED AND THE TEST SECTOR IS READ INTO LOCATION 377776
(*MEX00' IS SET FOR THE READ).
LOCATION 400000 IS CHECKED FOR THE

167014

012720
001232
012720
001100
012202
025654
04365¢
177777
043656
000002
002512
002510
000003
022770
023664
023240

THE

PROGRAR VERIFIES THAT

3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
31N
3172

MACY11

RP11~E

®e

CZRPY-D,

ADDRESS

;WRITE COMMAND
:INITIATE THE COMMAND
;WAIT FOR CONTROLLER READY
;STORE THE REGISTERS

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
112
CZRPYD.PI
22-APR-78 14:42

3202
3203
3204
3205
3206
3207
3208
3209
3210
321
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
323
3232
233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257

012300
012306
012310
012312
012316
012324
012330
012336
012342
012350
012356
012364
012372
012400
012406
012414
012420
012426
012434
012440
012444
012450
012456
012460
012462
012470
012472
012474
012502
012504
012506
012514
012516
012524
012532

012534
012542
012544
012552

012560
012564
012570
012576
012604
012612
012616
012622

012626
012634
012636
012640
012646
012650
012652

032737
001403

104004
000137
012737
004737
012737
005037
012737
012737
012737
012737
012737
012737
012737
005037
012737
112737

004737
004737
004737
032737
001401

100000

001340

012712
012316
025654

001110

177600
172340
000200
002060

077406
077406
077406
077406
00000
040000

177776
000005
022770

1%:

172356

#200,KIPAR1
#2000,KIPAR2

MoV

#77606,K1PDR1

CLR
Mmov

Move
JSR
JSR
JSR
BIT
BEQ

000020

001340

2%:

032737
001401

000040

001340

3%:

022737
001407
012737
013737
104053
023727
103463
012737
012737
004737
005037
012737
112737
112737
004737

177777

040000

177777

040000

001124
001126

001232

000002

004000
012552
025654
040000
177776
000020
000005
022770
02366¢
023240
100000

172344
001110

104051

ERROR
BIT
BNE
ERROR

14:43

PAGE

SEQ 0064

;DID OPERATION TERMINATE WITH AN ERROR
.BR IF NOT
;ERROR AFTER 2 WORD WRITE
;BYPASS REST OF TEST

#776406,K1PDR2
#776406 ,KIPDR7

; CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP
;OPEN [/0 REGISTERS
JENABLE FIRST 4K
JENABLE SECOND 4K
sENABLE FIRST TEST LOCATION
;LOAD DESCRIPTOR REGISTER 0
;LOAD DESCRIPTOR REGISTER 1
;LOAD DESCRIPTOR REGISTER 2
;LOAD DESCRIPTOR REGISTER 7

8440000
#177776,3BUF

;CLEAR LOCATION 200000
:SETUP BuUS ADDR

KIPARO

#776406 ,KIPDRO

#1,84SR0

#RDSEK,DPB+2
PC.RPI
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
23

50
#MEXO,SRPCS
3s
51

s CHANG: COMMAND TO READ
:STAR. THE COMMAND
;WAITM FOR CONTROLLER READY
;STCRE THE REGISTERS
sANY ERRORS?
;BFANCH IF NOT

;ERROR AFTER READING 2 WORDS
:LID 'MEXQ* SET ?
;BRANCH IF IT DID
;'MEXO’ DID NOT SET AFTER 2 WORD READ

:STARTING AT LOCATION 177776

#MEXT,SRPCS
4%
52
#177777,34640000
1ST128
#177777 ,8GDDAT
a#40000,3B0DAT
53
MAXMEM+2 ,#2
EXIT12

sDATA COMPARE ERROR AT LOC 200000
;ENOUGH MEMORY FOR THE NEXT PART OF
:BR IF NOT

1%:

MoV
JSR
CLR
Mov

#13,SLPERR
PC,CLRP
8440000
#177776,3BUF

s CHANGE THE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;CLEAR LOCATION 400000
;BUFFER ADDRESS

JSR
JSR
JSR
BIT
BEQ

PC,RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
23

002506
002501
002502

MoV

Mmove
MOvVB

001340

000020

001340

2$:

000040

001340

3s:

ERROR
BIT
BEQ
ERROR
BIT

#64000,KIPAR2

#MEXO,DPB+1
#RDSEK ,DPB+2

54
#MEXO,SRPCS
3s
55
#MEXT,$RPCS

:TURN ON MEMORY MANAGEMENT

BIT
BEO
ERNOR
4%
cmp
BEQ
Mov
Mov
ERROR
TST128: CmP
8LO

104055

032737

Mov
MoV

Mov

032737
001001

004737
004737
032737
001401
104054
032737
001401

#18 SLPERR
PC,CLRP
#177600,KIPAR7

mov
mov

002506
002502

#ERR,SRPCS
1%
4
EXIT12

Mov
JSR
Mov

mov

001340

104052

BIT
BEQ
ERROR
JMP

CLR

172342
172344
172300
172302
172304
172316
177572

023664
023240
100000

104050

n
S
MACY11 30A(1052)
22-APR-78
EXTENDED MEMORY ADDRESS TEST

;'MEX1' SHOULD NOT BE
sBRANCH [F NOT SET

SET

;'MEX1® IS SET - SHOULD NOT BE
;WAS DATA READ INTO LOCATION
;200000 CORRECTLY? - BRANCH IF YES
;EXPECTED CONTENTS
; CONTENTS OF

LOCATION 200000

s CHANGE TEST LOCATION

;SETUP EXTENDED MEMORY ADDRESS BIT
sREAD COMMAND

sSTART THE COMMAND
;WAIT FOR CONTROLLER READY
+STORE THE REGISTERS
;ANY ERRORS?
;BRANCH [F NOT

N
;ERROR WHILE READING TWO WORDS
;IS "MEXQ' SET ?
;BRANCH [F NOT
;"MEXO' DID NOT CLEAR AFTER 2 WORD

;READ STARTING AT LOCATION 377776
;DID

"MEX1'

SET

THE

TEST

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PI
112
22-APR-78 14:42

001001
104056

012664
012672
012674
012702
012710
012712
012716

022737
001407
012737
013737

104057
005037
000004

177777

040000

177777

001124
001126

040000
177572

43
56

S
22-APR-78

CMP

ERROR
CLR
SCOPE

AAARARARAR

;*TEST

14:43

PAGE 66

SEQ 0065

;LOOP ?

TEST

JBR [F SEY
;'MEX1' DID NOT SET AFTER 2 WORD TRANSFER
;STARTING AT LOCATION 377776
#177777,34640000 ;WAS DATA READ INTO LOCATION 400000
EXIT12
sCORRECTLY ? - BRANCH IF YES
#177777,8GDDAT
;EXPECTED DATA
a#40000,8BDDAT
;DATA FROM LOCATION 400000
57
;DATA COMPARE ERROR AT LOC 400000
3#SRO
;TURN OFF MEMORY MANAGEMENT

mov

AR RRAAAARARARRRRRRR
2R R0
R RN
]

DATA BUFFER REGISTER BIT

TEST

.*THE DATA BUFFER REGISTER TEST VERIFIES THAT ALL 36 BITS OF
;*BUFFER REGISTER CAN BE SET AND CLEARED.

THE DATA

W,
N,
N
8,

BRSNS
B

.
Be

*
N
¥

®e

®.

105037

012737
012706

000005
125252

v,
8.
B.

001102
013572
001324
002501
002503
000144
001100

052525
052525

. %.

013777
012737
013704
105037

001276

125252
125252
000012

%
N,
v %o
e

001426

052525
000005

N
%

B,
V.

N,
.

012756
012764
012772
012776
013002
013006
013014

033737
001002
000137
012737
012737
012737

ETC
2.

PDP-11
AL S

TST13:

TEST SECTOR

BIY

CLRB
CLRB

ROV

TEST13: mOv

THE

IS THEN READ AND THE DATA IS COMPARED.

TEST,

THE PROGRAM RESTORES

THE

TEST

SECTOR

THE

MODE.

AAAR AR

MoV
Mov
Rov

001162

THE

COHP%ETION OF

BNE
JMP
MoV
MoV
MoV

013574
013014
01272¢
000013

IN CYLINDER O,

052525

B4
.
%o
e

012720
012720
012726
012730
012734
012742
012750

1.
THE TEST FIRST WRITES THE FOLLOWING TEST PATTERN
TRACK O, SECTOR O USING 10/15 MODE ('MODE' BIT SET).

[

3285
3286
3287
3288

3299
3300
3301
3302
3303
3304
3305
3306
3307
3308

BNE
ERROR

BEQ
MOV

ExIT12:

3282
3283
3284

3289
3290
3291
3292
3293
3294
3295
3296
3297
3298

3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
32N
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281

012660
012662

30A(1052)

EXTENDED MEMORY ADDRESS

3258
3259
3260

MACY11

RRRRRRE

]

BITS+<$TN*2> ,TSTNAS
;IS THIS TEST SELECTED
.6
sBR IF YES
TST14
#TESTI3 SLPERR
#TSTI13,SLPADR
#13,87STNM

;GO TO THE NEXT TEST
;SETUP THE ERROR LOOP ADDRESS

STSTNM,IDISPLAY
#EXIT13 BYPASS

;LOAD THE TEST NUMBER
;SETUP BYPASS ADDRESS

;SETUP TME SCOPE LOOP ADDRESS
sSETUP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

RPADR,R4

;RP11E BUS ADDRESS

#100.,8TINES

..00

DPB+1
DPB*3

#STACK,SP

INTO THE

sCLEAR ANY EXTENDED MEMORY BITS
;CLEAR 'MODE' & °"HDR' BITS
100.

;SETUP

THE

ITERATIONS
STACK

POINTER

DISPLAY REGISTER

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
713
CZRPYD.PY
22-APR=-78 14:42

3314
3315
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325

013020
013024
013030
013034
013040
013044
013046
013050
013054
013060

013064
013066

012701
012702
012721
012721
012721
005302
001410
012721
012721
012721
005302
001360

043656
000200
052525
052525
000005
125252
125252

000012

1%:

B
6
MACY11 30A(1052)
22-APR-78
14:43
DATA BUFFER REGISTER BIT TEST
Mov
MoV
MoV
Mov
mov

DEC
BEQ

Mov
MOV
MoV
DEC

BNE

#BUFFER,R1
#128. ,R2
#52525,(R1)+
#52525,(R1)+
#5,(R1)
¢
R2
23
#125252,(R1)+
#125252,(R1)+
#12,(R1)+

R2
1%

PAGE 67

SEQ 0066

sBUFFER ADDRESS
JSIZE
;PATTERN FOR BITS 20 - 35
sPATTERN FOR BITS 4 - 19
;PATTERN FOR BITS 0 -

;AT

THE

END

;BR IF END

;PATTERN FOR BITS 20 - 35
;PATTERN FOR BITS 4 - 19
;PATTERN FOR BITS 0 - 3

;AT

;B8R

THE

END

[F NOT

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PI
22-APR-78 14:42
T3

3326
3327

013070
013076

012737
004737

013070
025654

001110

2%:

c
6
MACY11 30A(1052)
22-APR-78
14:43
DATA BUFFER REGISTER BIT TEST

MoV
JSR

#2%,SLPERR
PC,CLRP

PAGE

;LOOP ON ERROR ADDRESS
;CLEAR THE RP11

SEQ 0067

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
22-APR-78 14:42
113

3328
3329
3330
3331
3332
3333
3334

013102
013106
013112
013120
013126
013134
013142

005037
005037
012737
012737
012737
112737
004737

3335
3336
3337
3338
3339
3340

013146
013152
013156
013164
013166
013170

3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359

013220
013222
013224
013226
013234
013242
013250
013256
013262
013266
013272
013300
013302
013304

005001
005302
001375
013737
063737
062737
112737
004737
004737
004737
032737
001402
104017
000473

013316
013322
013326
013332
013336
013344
013346

013703
063703
062703
005037
032777
001053
022123

3341
3342
3343
3344
3345

3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379

3380
3381
3382
3383

013172
013200
013206
013210
013214

013306
013312

013350
013352
013360
013366
013372
013400
013404
013406
013414
013422
013426
013434
013440
013444
013452

004737
004737
032737
001402
104004
000541

012737
004737
012701
063701
013702

012701
013702

001445
016137
016337
010337
162737
005737
001010
012737
112737
004737
112737
004737
005237
023737
103004

002512
002510
000600
043656
010000
000003
022770
023664
023240
100060

001340

001110

002504
002504
063656
000005
022770
023664
023240
100000

002506
002506
002506
002502

177776
177776
001122
000002
013472
013406
000102
017254
000104
017254
013472
001320

3$:

001340

043656
002504
002504
002504
043656
013472
000010

CLR
CLR
MoV
MOV
Mov
Mmove
JSR

002504
002506
002502
002502

013172
025654
043656
002504
002504

5%:

165574

68$:

001124
001126

001122
001116
001114

00111«
013472

0D
6
MACY11 30A(1052)
22-APR-78
14:43
DATA BUFFER REGISTER BIT TEST

7%:

8$:

JSR
JSR
BIT
BEQ
ERROR
B8R

MOV
JSR
Mov
ADD
Mov

CLR
DEC
BNE
MoV
ADD
ADD
move
JSR
JSR
JSR
BIT
BEQ
ERROR
BR

MOV
MoV

mov
ADD
ADD
CLR
BIT
BNE
CMP

BEQ
Mov
Mov
Mmov
suB
TST
BNE
Mov
MOVB
JSR
Mmove
JSR
INC
Cmp
BHIS

$SEC
$CyL
#384.,84WC
#BUFFER ,$BUF
#MODE ,DPB+2
#WRTSEK,DPB+2
PC,RP11

PC, CONRDY
PC.SAVRP
#ERR,SRPCS
3$
4
TST13A
#38,SLPERR
PC,CLRP
#BUFFER,R1
$WC,R1
$WC,R2
R1
R2
43
$w(,$BUF
$w(,$BUF
#BUFFER,$BUF
#RDSEK ,DPB+2
PC.RPI
PC.,CONRDY
PC,SAVRP
#ERR,SRPCS
5%
17
TST13A
#BUFFER,R1
$WC,R2
$WC,R3
$WC,R3
#BUFFER ,R3
108
#5W03,aSWR
TST13A
(R1)+,(R3)+
9%
=2(R1),8GDDAT
-2(R3),$B0DAT
R3,$BDADR
#2,3BDADR
108
78
#. ,SERRPC
#102,81TEMB
PC,TYPERR
#104 ,31TEMB

PC,TYPERR
108
CMP.CT,108
99

PAGE 69

;SECTOR/TRACK ADDRESS OF ZERO
;CYLINDER ZERO
;1 SECTOR IN 10/15 MODE
sBUFFER ADDRESS
;SET THE 'MODE' BIT
;WRITE COMMAND
;00 THE COMMAND

;WAIT FOR THE COMMAND TO COMPLETE
;SAVE THE REGISTERS
;OPERATION GO OK ?
;BR IF IT DID
;SETUP OPERATION TERMINATED WITH AN ERROR
;CORRECT THE SECTOR AND BYPASS REST OF TEST

: CHANGE THE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;CLEAR THE INPUT BUFFER
;BEGINNING ADDRESS
;SIZE

:CLEAR THE BUFFER
;FINISHED ?
;BR IF NOT
: CHANGE BUFFER ADDRESS
;DOUBLE THE WORD COUNT
;ADD BUFFER BASE ADDRESS
; CHANGE COMMAND
;READ THE SECTOR
;WAIT FOR THE OPERATION TO COMPLETE
;STORE THE REGISTERS
;0ID AN ERROR OCCUR ?
;BR IF NOT
;ERROR OCCURED READING THE TEST SECTOR
;BYPASS THE COMPARSION

;GOOD DATA
;SIZE

;FORM ADDRESS OF TEST DATA
;DOUBLE THE WORD COUNT
;ADD THE BUFFER START ADDRESS
;CLEAR THE COMPARSION ERROR COUNTER
; COMPARE THE DATA ?
;BR IF NOT
;COMPARE THE DATA

;BR IF 0K
;GOOD DATA
;BAD DATA
;FORM BAD ADDRESS
;DECREMENT 1IT
:ANY COMPARE ERROR ALREADY ?
:BR IF SOME
;PC FOR ERROR MESSAGE
SJERROR TABLE INDEX
;REPORT COMPARS]ON ERROR
; INDEX OF DATA DISPLAY MESSAGE
s TYPE THE MESSAGE
; INCREMENT COMPARSION ERROR COUNT
; COMPARE AGAINST THE LIMIT
;BR IF NOT GREATER

SEQ 0068

108:
TST13A:

#SWUs,3SWR

DEC
BNE
BR
.WORD
MOV

R2
6%
TST13A
0
#TST13A,SLPERR

JSR

PC,CLRP

002504
002502

CLRB
MoV
Mmovs

002506

mov

CLR

OPB+3
#2,34(
#URTSEK,DPB+2
BUFFER
BUFFER+2

JSR

PC.RP11

#BUFFER,$BUF

JSR

JSR
BIT

001340

EXIT13:
MR

;CONTINUE

TST13A

CLR

BEQ
ERROR
SCOPE
AR

;BR IF NOT

PAGE

SEQ 0069

COMPARING ANYWAY

;FINISHED COMPARING ?
;BR IF NOT
:CHANGE MODE OF THE SECTOR
s COMPARSION ERROR COUNTER
;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;CLEAR THE 'MODE' €& 'HDR' BITS
; CHANGE WORD COUNT
; CHANGE COMMAND
;SET DATA TO ZERO
;OTHER DATA WORD
;BUFFER

ADDRESS

;RE-WRITE

THE

SECTOR

PC.,CONRDY

;WAIT FOR THE OPERATION TO COMPLETE

EXIT13
60

BR IF IT DID
;ERROR RE-WRITING THE SECTOR
.Loop ?

PC,SAVRP
#ERR,SRPCS

sSTORE THE REGISTERS
;DID THE WRITE FINISH WITHOUT

ERROR

AR ARl
R
2 R R
2R 2

J*TEST 14

DATA STORAGE/RETRIEVAL TEST

;*THE DATA TEST PERFORMS DATA STORAGE AND RETRIEVAL TESTING USING THE CONTROLLER
;*AND THE CURRENTLY SELECTED DRIVE.
UNLESS ALTERED BY THE OPERATOR, THE
;*TEST WILL WRITE AND WRITE CHECK THE ENTIRE DISK PACK USING ALL 16 DATA
;*PATTERNS IN A ROTATING MANNER.
THE BUFFER SI2E USED FOR THE WRITE AND
*WRITE CHECK ORDERS IS DETERMINED BY THE AVAILABLE MEMORY ON THE SYSTEM

;*(MINUS THE SPACE REQUIRED BY THE PROGRAM LOADER).
;'T?EEAVAILABLE
*SIZE.

MEMORY

SIZE

OR 8K,

WHICHEVER

LESS,

WILL

READ

THE PROGRAM WILL USE
AS

THE

BUFFER

;*AFTER

;*DATA.
;*FOR

THE

PACK

HAS BEEN WRITTEN,

THE

TEST

AND

COMPARE

THE

THE BUFFER SIZE USED FOR THE READ IS THE SAME SIZE AS THAT USED
WRITE/WRITE

CHECK

PART

THE

TEST.

FOR

THE

READ,

THE

TEST

WILL

;*ROTATE THE READ BUFFER THROUGH MEMORY SO THAT ALL OF THE AVAILABLE MEMORY
:*1S USED BY THE READ AND COMPARE OPERATIONS.
THE TEST USES MEMORY MANAGEMENT
:*ON SYSTEMS WITH MORE THAN 28K.
(MEMORY MANAGEMENT WILL NOT BE USED IFf
;*ON MEMORY MANAGEMENT SYSTEMS WITH 28K OR LESS.)
N

*THE

DATA

PATTERNS USED BY

THE

DATA

TEST

ARE

GIVEN BELOW:

%
%

Y
Y

¥
¥

TR
LR

]

100000

001110

001401
104050
000004

013474
025654
002503
000062
000003
043656
043660
043656
022770
023664
023240

BIT

BEQ

005037
012737
004737
004737
004737
032737

165456

105037
012737
112737
005037

000020

3431
3432
3433
3434
3435
3436
3437
3438
3439

032777
001404
005302
601323
000401
000000
012737
004737

3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430

013454
013462
013464
013466
013470
013472
013474
013502
013506
013512
013520
013526
013532
012536
013544
013550
013554
013560
013566
013570
013572

3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415

MACY11 30A(1052)
22-APR-78
14:43
DATA BUFFER REGISTER BIT TEST

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777

000000
010421
021042
031463
042104
052525
063146
073567
104210
114631

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PV
T13
22-APR-78 14:42

3487
3488
3489
3490
3491
3492
3493
3494
3495

Y
Ve

N
BN

.
G,
Ve

000000
000000
000000

003777
007777
017777
037777
077777

174000
170000
160000
140000
100000
000000

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

177776
177775
177773
177767

177777

14:43

PAGE 71

SEQ 0070

000000

125252

052525

007417

026455

000000
177777

146314
156735

052525
125252

007417
170360

026455
151322

177777

135673

125252

170360

151322

177777

167356

177777

052525

007417

026455

172666
155555
172666
155555
172666
155555
172666
155555
172666

077777
137777
157777
167777
173777
175777
176777
177377
177577

177777
177777
177777
177777
177777
177777
177777
177777
177777

000000
000000
177777
177777
177777
177777
177777
177777
177777

177777
177777
000000
000000
000000
000000
000000
000000
000000

172666
155555
172666
155555
172666
155555

177737
177757
177767
177773
177775
177776

177777
177777
177777
1772777
177777
177777

177777
177777
177777
177777
177777
177777

000000

125252

170360

151322

B4
Vs
8.
Ve

NN I
BN BE BE BN

e
B

NN AN

013574
013574
013602
013604
013610
013616
013624

013632
013640
013646
013652
013656
013662
013666
013674
013676
013702
013704
013712
013716
013722
013730
013736
013740
013744
013750
013756

ASA

1ST14:

AL AR AR

033737
001002
000137
012737
012737
012737

001430

001276

014630
014066
013574
000014

001110
001106
001102

Mov
Mov
Mov

013777
012737
013704

001102
014616
001324
002501
002503
001100
000100

165302
001200

mov
Mov
MoV

105037
105037

012706
032777
001021
005737
100016

012737
004737
012637
013737
013737
000412
005037
005037
013737
012737

177777
023346
001240
001230
001232

001222
001236
001302
043656

8IT
BNE
JMP

CLRB
CLRB

mov

165244

022232

BIT

1%:

001222

001234
001236

BNE
TST
BPL
MoV
JSR
MoV
MOV
Mov

2%:
001234
001240

177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
077777

155555

177677

177777

000000

000000
000000
000000
000000
000000
000000

® e

077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577
077577

3445

3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486

000000
000000
000000

3440
3441
3442
3443
3444

3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3,57
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467

MACY11 30A(1052)
22-APR-78
DATA STORAGE/RETRIEVAL TEST

& R/W TEST
114

BR
CLR
CLR

MoV
Mov

RdRRRRRRRRRRRY

BITS+<STN®2>,TSTNMS
;IS THIS TEST SELECTED
.+6
YES
IF
;BR
TST1S
;GO TO THE NEXT TEST
#TESTIG, SLPERR
;SETUP THE ERROR LOOP ADDRESS
#TST14,SLPADR
#14,97ST

;SETUP
sSETUP
;CLEAR
STSTNM QDISPLAY
.LOAD
PEXITIG, BYPASS
;SETUP
RPADR,R&

DPB+1
DPB+3

#STACK,S p
#5w06,8S wR

#-1,MMAC Tv
PC,MOVLD R

(SP)+ LOMEM
MAXMEM
H IMEM
MAXMEM+2 HIMEM+2

MMACTY

HIMEM+2
MEMSIZ,H IMEM
#BUFFER, LOMEN

;RP11E

THE SCOPE LOOP ADDRESS
TEST NUMBER AND
THE ERROR FLAG (SERFLG)
THE

TEST NUMBER

BYPASS ADDRESS

INTO THE DISPLAY REGISTER

BUS ADDRESS

sCLEAR ANY EXTENDED MEMORY BITS

;CLEAR 'MODE® & 'HDR' BITS

;SETUP THE STACK POINTER
;USE MEMORY MANAGEMENT ?
;BR IF NOT
;MEMORY MANAGEMENT AVAILABLE ?
;BR IF NOT
;SET MEMORY MANAGEMENT ACTIVE INDICATOR
;MOVE THE LOADER
;BEGINNING ADDRESS OF BUFFER SPACE
;HIGHEST MEMORY ADDRESS USED BY THE TEST
UPPER ADDRESS BITS

s CONTINUE
;CLEAR MEMORY MANAGEMENT ACTIVE INDICATOR
sCLEAR UPPER 'HIMEM' ADDRESS BJTS
;HIGHEST NON MEMORY MANAGENEMT LOCATION
;DEFAULT BUFFER STARTING ADDRESS

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22-APR-78 14:42

CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD PN
T14
22-APR-78 14:42

3496

3497
3498
3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
35264
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549
3550

3551

013764
013770
013776
014004
014012

014016
016022
014026
014032
014036
014042
014046
014050
014054
014056
014062
014066
014072
014076
014104
014112
014120
0146126
014134
014142
014146
014150
014156
014162
014166
014174
014200
014204
014206
014212
014214
014220
014226

014230
014236
014242
014246
014252
014260
014262
014264
014272
014274
014300
014306
014312
016316
014322
014330
014332

005037
013737
013737
013737
000337
105037
005237
013746
005037
005037
162716
100403
005237
000772
062716
012637
012706
004737

001242
001240
001242
001256
001254
001255
001254
001254
001252
001250
000012

113737
113737

001272
001270
001266
001240
001256
000017
001260

002512
002513
002510
002506
002504
001204

001254
001246
024050
014166
025654
164734

001244

013737
013737
013737
012737
005737
001005
163737
005637
004737
012737
004737
017746
005116
032726
001453
004737
032777
001016
112737
004737
004737
004737
032737
001401
104061
032777
001020
004737
112737
004737
004737

004737
032737
001401
104005

001224
001226
001254

3%:

mov

4%:

5%:

000012
001250
001100
024002

TEST14:

001110

1%:

2%:
1%:

ADD
Mov
MoV

JSR

MovB
Move
MoV
MOV
Mov
mov
TST
BNE

SuB
SBC
JSR

002502

100000

001340

000002

164646

002502

001340

;CLEAR UPPER STORAGE WORD
;STARTING ADDRESS OF FIRST BUFFER
LOMEM+2 ,ACTMEM+?2
.UPPER ADDRESS BITS
WC14,BLKS14
;CONVERT THE WORD COUNT TO A SECTOR COUNT
LOMEM+2

BLKS14
BLKS14+1
BLKS14
BLKS14,~(SP)
INCTRK
INCSEC
#10.,(sP)

#10., (SP)
(SP)+, INCSEC
#STACK,SP
PC.,SECNBR

SSEC,S$SEC

STRK,$TRK

SCYL,S$CYL
LOMEM, $BUF
WC14,8WC
#15. ,PATNUM
OPRSEL

2%
BLKS14,PAKSIZ
PAKSIZ¢2

PC,PATSEL

;RIGHT

JUSTIFY

THE

JSR

MovB

JSR
JSR
JSR
BIT
BEQ
ERROR

PC,CLRP

PC,SETBUF

#5W00,aSwR
43

#FWRTSEK ,DPB+2
PC,RP1
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
48

#5W01,aSwR

PC,CLRP
#WRTCHK ,DPB+2
PC.RPI
PC.CONRDY
PC,SAVRP
#ERR,SRPCS

5%
5

SECTOR

COUNT

sCLEAR THE RESIDUE
; CHANGE TO ABSOLUTE COUNT
; CONVERT BLOCK COUNT TO SECTOR/TRACK INCREMENTS
;CLEAR TRACK STORAGE
;CLEAR SECTOR STORAGE
;SUBTRACT A FULL SECTOR
;BR IF MINUS
s COUNT THE TRACK
. CONTINUE
;CORRECT THE SECTOR RESIDUE
;SECTOR INCREMENT VALUE
;LOAD THE STACK POINTER
:GET THE NUMBER OF SECTORS ON THE PA(K
JBEING USED
;STARTING SECTOR ADDRESS
:STARTING TRACK ADDRESS
sSTARTING CYLINDER ADDRESS

sBUFFER ADDRESS
;STARTING WORD COUNT
PRESET THE PATTERN INDEX
;USING AN OPERATOR SPECIFIED ADDRESS ?
;BR IF YES

;DECREMENT THE SECTOR COUNT FOR THE

sFIRST

OPERATION

;SELECT THE PATTERN
;LOOP ON ERROR ADDRESS

8SWR,-(SP)
sINHIBIT WRITE AND
;WRITE CHECK ?
(SP)
#SW00!SWOT, (SP)+
TST14A
JYES=--BRANCH

JSR
JSR
JSR
BIT
BEQ
ERROR
BIT
BNE

SEQ 0071

LOMEM ACTMENM

MoV

MOV8B

PAGE

#3$ ,SLPERR

JSR

BEQ
JSR
BIT
BNE

164712

14:43

Mov

BIT

000003
022770
023664
023240

100000

CLR
CLR
SuB
BMI
INC
BR

COM

000003

025654
000007
022770
023664
023240

CLR

Mov
MoV
Mov

SWAB
CLRB
INC

001252

024432
000001

6
6
MACY11 30A(1052)
22-APR-78
DATA STORAGE/RETRIEVAL TEST

;CLEAR THE RPN

:MOVE DATA PATTERN INTO THE BUFFER
;INHIBIT WRITE ?
JYES--BRANCH
;COMMAND=WRITE
;00 THE COMMAND
;WAIT

FOR

THE

COMMAND

JSTORE THE REGISTERS
JERROR OCCURED ?
;BR [F NOT
;REPORT

THE

COMPLETE

FINISH

ERROR

JINHIBIT WRITE CHECK ?
sYES~-BRANCH

;CLEAR THE RP11

; COMMAND=WRITE CHECK
:D0 THE WRITE CHECK
;WAIT

FOR

THE

COMMAND

JSTORE THE REGISTERS
;ERROR ?
;BR [F NOT
;REPORT

THE

WRITE

CHECK

ERROR

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PIN
22~APR-78 14:42

3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595

3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607

014334
014340
014342

004737
000710
004737

016346
014354
014362
014370

113737
113737

014376
014404

014410
014412
014420
0144264
014430
014434
014440
014446
014452
014460
014462
014470
014474
014500
016504
014512
014514
014520
014522
014530
014532
014534
014540
014546
014550
014552
0145564
014560
016562
014570
014574
014602
014604
014610
014614
014616
014620
014624

013737
013737
012737
005737
001005
163737
005637
005037
004737
004737
012737
004737
032777
001056

112737
004737
004737
004737
032737
001420
005737
001404
032777
001401
104062
005237
023737
101734
104110
000410
005737
001405
112737
004737
032777
001002
004737
004737
000703
000004
004737
000137

024114

5%:

024002

TST14A:

001272
001270
001266
001256
000017
001260

002512
002513
002510
002504
001204

001254
001246
001314
024050
024502
014440
025654
000004

001244

000005
022770
023664
023240
100000

H
6
MACYT11 30A(1052)
22-APR-78
DATA STORAGE/RETRIEVAL TEST

& R/W TEST
T14

JSR
BR
JSR

2s:

001314
001314

JSR
BIT

164460

001340

164410

000111
017254
000010

024614
024114
023452
016616

A
¥

001114

BIT
BNE
JSR
JSR
BR
SCOPE
JSR
JMP

6$%:

7%:

EXIT14:

AR AL A

TRTEST 15
;*TEST

AR A

THE

JSTARTING SECTOR
JSTARTING TRACK

JSTARTING CYLINDER
JINITIAL WORD COUNT
JPRESET

PATTERN NUMBER

;USING AN OPERATOR SPECIFIED PATTERN
;BR IF YES
JDECREMENT THE SECTOR COUNT FOR
JTHE FIRST OPERATION
;CLEAR THE RETRY COUNTER
JSELECY A PATTERN
;GENERATE A BUFFER ADDRESS
;LOOP ON ERROR ADDRESS
;CLEAR THE RPN
JINHIBIT READ DATA AND SOFTWARE COMPARE
JYES~=-BRANCH
:LOAD READ COMMAND
JSTART THE READ
JWAIT FOR THE READ

ATTEMPT

JREPORT

THE

JRETRY LIMIT

110

JREPORT

#111,81TEMB
PC,TYPERR
#5W03,3SWR
7$
PC,DATCMP
PC,INCADR

PC,RESLDR

THE

UNSUCESSFUL

JRESTORE

THE

;GO TO END OF

SEOP

RETRY

;CONTINUE
;COMING FROM A SUCESSFUL RETRY
;BR IF NOT
JRETRY COUNT MESSAGE NUMBER
JREPORT THE RETRY COUNT
;COMPARE THE DATA ?
;NO=-~BRANCH
JYES-=-DO IT
s INCREMENT THE DISK ADDRESS
;s CONTINUE
;LOOP ?

RETRY

ABILITY

ERROR

;BR IF NOT

FAIL

COMPLETE

JINCREMENT THE RETRY COUNT

POWER

;BR [F NOT
sDISPLAY ALL RETRY ATTEMPTS
;BR IF NOT

RETRY
RETRY,LRETRY

;STORE THE REGISTERS
JERROR ?
;BR IF NOT

#5W05,aswR
13

ARl

ADDRESS

;BEING TESTED

JRETRY

BEQ
ERROR
INC
CHP
BLOS
ERROR
BR
TST
BEQ
movs
JSR

5%:

164336

#RDSEK,DPB+2
PC.RPIN
PC,CONRDY
PC,SAVRP
#ERR,SRPCS

BIT

3s:

001314

EXIT14

BNE
MOvB
JSR
JSR
JSR
BIT
8EQ
TST
BEQ

002502

001316

RETRY
PC,PATSEL
PC,GETBUF
#28,SLPERR
PC,CLRP
#5W02 ,3SWR

mov

001314
000040

SSEC,$SEC
STRK,$TRK
SCYL.SCYL
WC14,8W(
#15. ,PATNUM
OPRSEL
18
BLKS14,PAKSIZ
PAKSIZ+2

suB
s8C
CLR
JSR
JSR

;s CONTINUE
sGET NUMBER OF SECTORS ON THE DRIVE

PC,SECNBR

MOV
Mov
MOV
TST
BNE

PAGE

SEQ 0072

;INCREMENT

MOvVB
MOVB

1%:

001110

PC,INCADR

14:43

LOADER

TEST

WAS

MOVED

RRE

TEST
RP11E TO SENSE
WHEN POWER IS

POWER FAILURE AND
TURNED ON AGAIN

FOR

THE

DRIVES

;*TO RETRACT THEIR HEADS.
;*THE CYLINDER ADDRESS IS TESTED FOR ZERO.
AFTER TYPING THE MESSAGE
;*REQUESTING POWER TO BE TJRNED OFF, THE PROGRAM GOES INTO A LOOP

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PI
T15
22-APR-78 14:42

3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635

3636

3637
3638
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651

3652
3653

3654
3655
3656
3657

3658
3659
3660
3661
3662
3663

MACY11 30A(1052)
POWER FAIL TEST

6
22-APR-78

14:43

PAGE

SEQ 0073

;*READING FROM THE SELECTED DISK DRIVE.
AFTER POWER IS RESTORED,
; *MEMORY IS CHECKED TO SEE THAT THE DISK DID NOT TRANSFER ANY DATA

;*T0 MEMORY
MR

014630
014630
014636
014640
014644
014652
014660
014666
014674
014702
014706
014712
014716
014722
014726
014732
014736
014742
014746
014754
014762
014766
014772
014776
015000
015006
015012
015020
015026
015034
015040
015044
015050
015056
015060
015062
015066
015072
015100
015104
015110

015112
015116
015122
015130
015136
015142

033737
001002
000137
012737
012737
012737
013777
012737
013704
105037
105037
104401
004737

012637
005037
012706
004737
012737
012737
013700
012720
020037
101773

013737
005037
012737
013737
112737

004737
004737
004737
032737
001401
104004
104401

004737
112737
004737
004737
000766

004737
104401

012737
012737
004737
013701

001432

015372
014736

014630
000015

001102
015302
001324
002501
002503
027433
023346
001240
001242
001100
025654
015314
000340
001240
125252
001302

001210
002512
000256
001240
000003
022770
023664
023240
100000
027456
025654
000005
022770
023664

022566
027652
015122
002500
023202
001176

001276

WHILE

TST15:

BIT

BITS+<STN*2> ,TSTNMS
.+6
TST16
#TESTIS,8LPERR
#TST15,8LPADR
#15,8TSTNM

;BR IF
;GO TO
;SETUP
JSETUP
JSETUP

YES
THE NEXT TEST
THE ERROR LOOP ADDRESS
THE SCOPE LOOP ADDRESS
TEST NUMBER AND

MOV
mov
mov

$STSTNM,SDISPLAY
#EXIT1S5,BYPASS
RPADR,R4

;LOAD
;SETUP
;RP11E
;CLEAR

THE TEST NUMBER INTO THE DISPLAY REGISTER
BYPASS ADDRESS
BUS ADDRESS
ANY EXTENDED MEMORY BITS

TYPE
JSR
MoV

LMSG15A
PC.MOVLDR
(SP)+,LOMEM

BNE
JMP
MoV
MoV
MOV

164246

001200

CLRB
cLRB

TEST15:

000024
000026
18:

002510

(LR

BLOS

CMpP

RO,MEMS]2Z

;CLEAR THE ERROR FLAG (SERFLG)

;CLEAR

'MODE'

°'MDR'

BITS

;'POWER FAIL TEST'
;MOVE THE LOADER
JBUFFER STARTING ADDRESS

;CLEAR THE UPPER BITS JUST

;PATTERN
:BR

NOT FINISHED

;CLEAR

SECTOR/TRACK

;LOAD MAXIMUM CYLINDER

MoV

#256,84W(

;WORD COUNT = 1

$SEC

LOMEM, $BUF

TO BE NICE

;SFTUP THE STACK POINTER
;CLEAR THE RP11
;SET UP POWER FAIL VECTOR
JLOCKOUT INTERRUPTS
JSTART OF FREE MEMORY SPACE
JFILL MEMORY WITH CHECKERBOARD

MAXCYL,SCYL

;BUFFER

ADDRESS

SECTOR

MOVB

#WRTSEK ,DPB+?2

JWRITE OPERATION

JSR
JSR
BIT

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

JWAIT FOR THE CONTROLLER TO BE
;STORE THE REGISTEKS
;ERROR DURING OPERATION ?

PC,RP11

JSTART

THE

COMMAND

BEQ
ERROR
TYPE
JSR

2%
4
,MSG158
PC,CLRP

;BR IF NOT
;REPORT THE ERROR
;" TURN CPU POWER OFF
;CLEAR THE RP11

JSR
JSR

PC.RP11
PC,CONRDY

sINITIATE THE READ
;WAIT FOR CONTROLLER READY

mMove
BR

#RDSEK ,DPB+2
3s

TST15A:

PC,RPINIT
LMSG15D
#1838 ,SLPERR
#2500, STALLT
PC,STALL

JSR
TYPE
Mov
MoV
JSR

MoV

POWERED

CHKDRV,R1

DOWN

READY

AFTER MESSAGE'

;READ COMMAND
;LOOP,

JAFTER MACHINE

1%:

;IS THIS TEST SELECTED

mMov

JSR

2%:
3s:

LOMEM+2

#STACK,SP
PC,CLRP
#TST158,a024
#PR7 ,aN26
LOMEM RO
#125252,(RO)+

mov

001340

DPB+1
DPB+3

MoV
JSR
MOV
MOV
L [0}Y)
MoV

CLR

002504
002506
002502

001110
001220

GOING DOWN.

SRR RRSRRRRRSRRRRRRRRlRRRRRlitisls
R
R 2202220 d 2]

001110
001106
001102

002502

POWER WAS

AND UP,

READING THE DISK
CONTROL

TRANSFERRED

HERE.

JINITIALZIE THE RP11E
;"PROGRAM WILL LOOP, WAITING FOR DRIVE
JSETUP LOOP ON ERROR ADDRESS
JLOAD STALL VALUE
sSTALL FOR 2500 MILLISECONDS
;DRIVE

ADDRESS

TO COME

ONLINE'

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PIN
22-APR-78 14:42

3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
3676
3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690

3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719

015146
015152

015156

015160
015162
015164
015166
015174
015200
015204
015206
015214
015216
015216
015224

015230
015234
015236
015242
015244
015246
015254

015262
015266
015274
015276
015302
015304
015310

004737
105761
001761
003002

104112
000446
113764
004737
005737
001404
012737
104063

& R/W TEST
T15

MACY11 30A(1052)
POWER FAIL TEST

022666
001370

JSR
TSTB

001176
023240
001354

000005

015216

001164

BEQ
BGT
ERROR
BR
MOVB

2$:

JSR
TST

BEQ

012737
013700
022720
001004
020037
001372

015276
001240
125252

ERROR

012737
016037

125252
177776
001122
000002

000414

010037
162737
104064
104401
000004

004737
000137

001164

MoV
Mov

4%:

CMP
BNE

001124
001126

5%:

027617

023452
003676

PC,SAVRP
$SUCA

;STORE THE REGISTERS
;SELECTED CYLINDER SHOULD BE

#38 ,SESCAPE

;;ESCAPE

1$
;CONTINUE WAITING FOR DRIVE TO COME ONLINE
2%
sBR IF IT IS ONLINE
112
;DRIVE UNSAFE AFTER POWER FAIL
EXITIS
SORIVE UNSAFE, EXIT
CHKDRV ,RPCS+1(R4)
;SELECT THE DRIVE
;BR

[T DID

TO 38 ON ERROR

;ON

POWER

FAILURE

#6%,SESCAPE
LOMEM,RO

;;ESCAPE TO 6% ON ERROR
JBUFFER ADDRESS

RO,MEMSIZ

;END OF MEMORY ?

;DID MEMORY RETAIN PATTERN ON POWER
sBRANCH IF NOT

-2(R0),$BDDAT
RO,$BDADR

;ACTUAL MEMORY
s ADDRESS

;CONTENTS OF

MEMORY

;RESTORE

LOADER

#125252,8GDDAT

SuB

#2,3BDADR

TYPE
SCOPE

LMSG15C

JMP

ZERO

;DRIVE DID NOT RETURN TG CYLINDER 0

MOV
MoV

JSR

SEQ 0074

;CHECK THE DRIVE'S STATUS
;1S THE DRIVE ONLINE ?

4%
6%

ERROR

6$:
EXIT1S:

PAGE

BNE
BR

MoV

001122

14:43

PC,DRVINT
DRVSTA(RY)

#125252,(R0O)+
5%

CMpP

001302

22-APR-78

MoV
3

sBR [F
JEXIT

START?

;EXPECTED MEMORY CONTENTS

; CORRECT

CONTENTS

THE

sRETURN TO

CHANGED AFTER POWER

TEST'

'CONVERSATION MODE'

ENTRANCE

;POWER FAIL TRAP HANDLER
015314
015322

012737
000774

015324

000024

TST158:

#TSTI5C,a#24

Mov

TST158

B8R

;SET UP POWER UP VECTOR
.LOOP

sPOWER UP TRAP HANDLER
015324
015332
015336

015342
015346

015354
015360
015364
015370

012737
005037
012706
005037
012737
004737
004737
013704
000650

000026
000026
001100
177776
011610
023202
020416
001324

000024

TST15C:

MOV
CLR
MOV

CLR

001220

#26,a424
ar2é

:RESTORE TRAP CATCHER
:CATCHER HALT

:RETURN TO PRIORITY

PC.STKINT
RPADR, R4

;INITIALIZE THE
:RP11E ADDRESS

#STACK,SP

;SETUP

MOV
JSR

#5000.,STALLT
PC,STALL

TST15A

JSR
MOV

STACK

POINTER

ZERO

;LOAD STALL VALUE
;STALL FOR 5000. MILLISECONDS
TTY KEYBOARD

:VERIFY POWER DOWN SEQUENCE

::'t"t"t""'"'tt'ttt"'"t't'li""""tttt""'t"tt'ttttt"

;*TEST

HEAD ALIGNMENT ROUTINE

;*THIS ROUTINE PERFORMS HEAD SELECTION AS DIRECTED FROM THE KEYBOARD.
;*THE ALIGNMENT OF THE SELECTED HEAD MAY BE CHECKED OR ADJUSTED.
AR

ARl

NOT

. 'END OF POWER FAIL
.LOOP ?

PC,RESLOR

FAIL

0222

022220

)

FAIL

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P11
22-APR-78 14:42
116

3720
3721
3722
3723
3724
3725
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
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763

015372
015372
015400
015402
015406
015414
015422

033737
001002
000137
012737
012737
012737

001436
015460
015372
000016

001110
001106
001102

015430
015436
015444
015450
015454
015460
015464
015470
015472
015500
015502
015510
015512
015516
015520
015522
015526
015530
015532
015534

013777
012737
013704
105037
105037
012706
1064401
000410
032777
001774
032777
001374
104401
104411
012601
004037
015512
015534
015512
122702

001102
015620
001324
002501
002503
001100
027743

163504
001200

000200

163440

000200

163430

015540
015542
015546
015554
015556
015564
015566
015574
015602
015606
015612
015616
015620
015622

101764
110237
136237

001004
012737
000403
012737
112737
004737
004737

004737
000725
000000
000776

015624

001276

030255

027136

000024

002513
001360

001304

000111

002510

000222
000011
025654
022770
023546

002510
002502

TST16:

K
6
MACY11 30A(1052)
22-APR-78
HEAD ALIGNMENT ROUTINE

BIT
BNE
JMP
MoV
MoV
Mov

PAGE

SEQ 0075

BITS+<STN*2> ,TSTNMS
IS THIS TEST SELECTED
.6
;BR IF YES
T1ST17
;GO TO THE NEXT TEST
#TEST16,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#TST16,SLPADR
sSETUP THE SCOPE LOOP ADDRESS
#16,8TSTNM
;SETUP TEST NUMBER AND
sCLEAR THE ERROR FLAG (SERFLG)
STSTNM aDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT16 ,BYPASS
SETUP BYPASS ADDRESS
RPADR,R&
;RP11E BUS ADDRESS
DPB+1
;CLEAR ANY EXTENDED MEMORY BITS
DPB+3
;CLEAR 'MODE' & 'HDR' BITS
#STACK,SP
;SETUP THE STACK POINTER
. MSG16A
;'HEAD ALIGNMENT ROUTINE'
3s
;GET THE HEAD ADDRESS WITHOUT THE SWO7 NONESENSE
#SW07,aSWR
JSWITCH 7 SET ?
18
;BR IF NOT
#5SW07,aSWR
;SWITCH 7 RESET ?
2%
;BR IF NOT
.MSG168B
; '"ENTER HEAD ADDRESS (IN OCTAL)’
;GET THE ENTRY
(SP)+,R1
;STARTING ADDRESS OF INPUT ASCII STRING
RO, CK.NUM
s CHECK THE NUMBER
s ILLEGAL INPUT
;TERMINATED WITH A ‘CR’
:NO ENTRY = 'CR® ONLY
#20.,R2
JVALID ?
3s
;BR [F NOT
R2,$TRK
;LOAD NEW HEAD ADDRESS
ATABIT(R2) ,DRVTYP
;RP02 OR RPO3 ?
5%
:BR IF RPO3
#73.,8CYL
sRPO2 ALIGNMENT CYLINDER
63
: CONTINUE
#146.,8CYL
;RPO3 ALIGNMENT CYLINDER
#SEEK,DPB+?2
; SEEK COMMAND
PC,CLRP
;CLEAR THE RP11
PC.RP11
;SEEK AND LOAD THE HEAD
PC,DRVRDY
;WAIT FOR THE DRIVE TO BECOME READY
1%
;WAIT FOR SWITCH 7 TO BE TOGGLED
;'EXIT' FOR COMPATABILITY WITH OTHER TESTS
.2
;sLOCK THE HALT

MoV
Mov
MoV
CLRB
CLRB
TEST16: MOV
TYPE
B8R
18:
BIT
BEQ
2%$:
BIT
BNE
3s:
TYPE
ROLIN
MOV
JSR
33
43
3s
4%:
CMPB

BLOS
MOVB
BITB

Ss:
6%:

14:43

BNE
MOV
BR
MOV
Movs
JSR
JSR

JSR
BR
EXIT16: HALT
BR

3764

g;gg

;*TEST 17

3767
3768

;¢THIS TEST TEST THE 'ENABLE/DISABLE' AND 'READ ONLY
SWITCHES ON
s*THE DRIVE CONTROL PANEL AND TESTS THE °'WRITE LOCKOUT' AND 'LOA’

g;gg

R R R A A R AN AR P R R

R R RN R AR R R R RN

AR R NN R RN R

RP11E/DRIVE CONTROL PANEL SWITCH TEST

;*SWITCHES ON THE RP11E/DRIVE CONTROL PANEL.

3771

3772
3773
3774
3775

0156264
015624
015632
015634

033737
001002
000137

001436
016616

001276

TST17:

BIT
BNE
JMP

R R

R AN R R

AR P R A N R R AR A R R R AR AR RN

R AR AR

BITS+<$TN*2> ,TSTNMS
;IS THIS TEST SELECTED
.+6
;BR IF YES
S#$EOP
;GO TO END OF TEST

NNNES

Mmov
Mmov
Mov

#TEST17,SLPERR
#TST17 ,SLPADR
#17,$TSTNM

;SETUP THE ERROR LOOP ADDRESS
;SETUP THE SCOPE LOOP ADDRESS
;SETUP TEST NUMBER AND

015662

013777
01¢737
013704

001102
016604
001324
002501
002503
030317
001100

163252
001200

Mov
MoV
Mov
CLRB

STSTNM,QDISPLAY
#EXIT17 ,BYPASS
RPADR,R4
DPB+1

;LOAD THE TEST NUMBER
;SETUP BYPASS ADDRESS

105037
105037
104401
012706

CLRB

TEST17:

TYPE
moOv

DISPLAY REGISTER

BUS ADDRESS

;RP11E

THE

sCLEAR ANY EXTENDED MEMORY BITS
;CLEAR 'MODE' & 'HDR' BITS
;'RP11E CONTROL PANEL SWITCH TEST'
sSETUP THE STACK POINTER

DPB+3

LMSG17A
#STACK,SP

015702
015706
015712
015716

INTO

o oa

015670
015676

;CLEAR THE ERROR FLAG (SERFLG)

001110
001106
001102

015716
015624
000017

012737
012737
012737

015640
015646
015654

SEQ@ 0076

(2!
czl

001110

5%:

000005

104066

:CHANGE LOOP ON ERROR ADDRESS

sSELECTED UNIT ON LINE WITH THE
;DRIVE DISABLED
: "ENABLE DRIVE # '
. s SAVE CHKDRV FOR TYPEOUT
ASCII

TYPE=~OCTAL

;. TYPE DRIVE NUMBER
::G0

1
1

;:TYPE
::TYPE

Mov
JSR

#5% ,SLPERR
PC,CLRP

:CHANGE THE LOOP ON ERROR ADDRESS
;CLEAR THE RP1

ERROR

;WAIT

1 DIGIT(S)
LEADING ZEROS

FOR

THE

.BYTE
.BYTE

ROLIN

'(R’

CHKDRV ,RPCS+1(R4)
;RESELECT THE UNIT
PC,SAVRP
;SAVE THE RP11 REGISTERS
#5UOL,SRPDS
;1S THE UNIT ON LINE?
RDSW
sBR IF ONLINE
66
;SELECTED UNIT NOT ON LINE WITH

;THE DRIVE ENABLED

016066
016070
016071
016072
016074

104401

013746

030506
001176

RDSW:

104403

001
001
104411
012737

TYPE

LMSG17E

;'SET

Mov

CHKDRV,=(SP)

; : SAVE

TYPOS

016074

001110

2%:

.BYTE
.BYTE
ROLIN

Mov

#2%,SLPERR

READ ONLY ON DRIVE
CHKDRV

FOR

TYPEOUT

;. TYPE DRIVE NUMBER
::G0

1
1

sCHECK THE DRIVE'S WRITE LOCKOUT SWITCH
016056
016062

,MSG17D
CHKDRV,=(SP)

TYPE
MoV

o om

PC,CLRP
sCLEAR THE RP11
CHKDRV ,RPCS+1(R4)
;SELECT DRIVE
PC,SAVRP
;SAVE THE RP11 REGISTERS
#5U0L,SRPDS
;1S THE UNIT ON LINE?
43
sBRANCH [F NOT

oEm

JSR
move
JSR
BIT
BEQ

o oae

'CR'

o oEm

THE

o aom

FOR

omooa

#3$,SLPERR

;WAIT

Mmov

ROLIN

MOvB
JSR
BIT
BNE

001334

ASCI!

::TYPE 1 DIGIT(S)
;:TYPE LEADING ZEROS

TYPOS

016020
025654
001176
023240
040000

TYPE--OCTAL

1
1

::G0

BYTE
.BYTE

ERROR

030464
001176

::TYPE DRIVE NUMBER

o Emoae

001334

TYPEOUT

o moa

012737
004737
113764
004737
032737
001001

000005

CHKDRV FOR

104403
001
001
104411

3s:

;s SAVE

016012
016014
016015
016016
016020
016026
016032
016040
016044
016052
016054

001110

;'DISABLE DRIVE #

104401
013746

015744
025654
001176
023240
040000

TEST AFTER EACH SETUP'

016002
016006

TYPOS

MSG17C

TO START

TYPE-~OCTAL

ASCII

;:TYPE 1 DIGIT(S)
;:TYPE LEADING ZEROS
;WAIT FOR '(R'

;LOAD LOOP ON ERROR ADDRESS

113764

004737
032737
001401
104065

CHKDRV,-(SP)

TYPE

001
001
104411
012737
004737

Mov

104403

LMSG178 ;'TYPE

2%:

TYPE

013746

030362
030441
001176

015736
015740
015741
015742
015744
015752
015756
015764
015770
015776
016000

104401
104401

015722
015726
015732

sCHECK THE ENABLE/DISABLE SWITCH ON THE DRIVE

3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831

YD.

MACY11 30A(1052)
22-APR-78
14:43
PAGE
RP11E/DRIVE CONTROL PANEL SWITCH TEST

FUNCTIONAL LOGIC & R/W TEST
117
22-APR-78 14:42

5%33'6051?P11-E

004737
113764
004737
032737
001401

TYPOS

016150
025654
001176
023240
000400

001110

JSR
Move

000005

JSR

001334

BIT
BEQ

104070

TYPE--OCTAL

ASCI!

#43 ,SLPERR
PC,CLRP
;CLEAR THE RP11
CHKDRV ,RPCS+1(R4)
;RESELECT THE DRIVE
PC,SAVRP
sSAVE THE RP11 REGISTERS
#SUWP,SRPDS
oIS SELECTED UNIT WRITE PROTECTED
WRSW
;BR IF NOT

;. TYPE 1 DIGIT(S)
;. TYPE LEADING ZEROS
;WAIT FOR (R’
sCHANGE THE LOOP ON ERROR ADDRESS

;SELECTED UNIT WRITE PROTECT SET
;WITH DRIVE

WRITE

TYPEOUT

ENABLED

CONTROL PANEL.

WRSW:

TYPE
ROLIN
Mov

'LOA'

SWITCHES ON THE

;RP11E

;TEST THE SETTING OF WRITE LOCKOUT AND THE

ERROR

::GO

1
1

CHKDRV FOR

;:TYPE DRIVE NUMBER

.BYTE
.BYTE
ROLIN
Mov

;s SAVE

MSG17F

CHKDRV,-(SP)

104403
001
001
104411
012737

TYPE

Mov

;BR IF IT IS
JSELECTED UNIT WRITE PROTECT DID
NOT SET WITH READ ONLY SET
;'SET READ/WRITE ON DRIVE '

016142
016144
016145
016146
016150
016156
016162
016170
016174
016202
016204

3s:

33
67

030542
001176

BNE
ERROR

104067

104401
013746

001334

PC,CLRP
;CLEAR THE RP11
CHKDRV ,RPCS+1(R4)
;SELECT THE DRIVE
PC,SAVRP
;SAVE THE RP11 REGISTERS
#SUWP,SRPDS
;1S SELECTED UNIT WRITE PROTECTED

016132
016136

016130

JSR
move
JSR
BIT

000005

025454
001176
023240
000400

604737
113764
004727
032737
001001

SEQ 0077

CZi
czt

016102
016106
016114
016120
016126

sCHECK

THE

MOV
TYPE

012700
104401

000002
030714

WRSW1:

016300
016304
016306

104401

031014

18:

016310
016312
016313

016314

016316

104403
003
001
006300
104411

CYLINDER

TYPE
ASR
Mov
TYPOS
.BYTE

.BYTE
ASL
ROLIN

°'LOA’

#2,R0

LMSG17H
MSG171

RO
RO,-(SP)

SWITCHES

JINITIALIZE SWITCH PATTERN

;"SET FOLLOWING VALUES IN
:E;%%N?ER LOA SWITCHES'

THE

;SETUP PATTERN FOR TYPOUT

;:SAVE RO FOR TYPEOUT

;:TYPE THE SWITCH VALUE
;60 TYPE--OCTAL ASCII
;s TYPE

3 DIGIT(S)

;. TYPE LEADING ZEROS
RESTORE THE PATTERN
;WAIT

o m

;WITH EQUAL TO 2.

;BR IF NOT PROTECTED
;SELECTED UNIT WRITE PROTECT IS SET

WRSW1
72

;LOAD A 2 INTO RPCA
sSAVE THE RP11 REGISTERS
:1S SELECTED UNIT WRITE PROTECTED ?

#2 ,RPCA(RS)
PC,SAVRP
#SUWP ,SRPDS

BEQ
ERROR

016270
016274

006200
010046

JSR
BIT

001334

mov

2%:

000012

FOR

"CR'

FROM THE

000002
023240
000400

104071

001334

s CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE CYLINDER REGISTER
sSAVE THE RP11 REGISTERS
1S SELECTED UNIT WRITE PROTECT SET ?
:BR IF SET
;SELECTED UNIT WRITE PROTECT SHOULD
;BE SET - RPCA EQUAL TO ZERO

FROM THE OPERATOR

CLR
JSR
BIT
BNE
ERROR

#1$,SLPERR
RPCA(R&4)
PC,SAVRP
#SUWP,SRPDS

'CR'

1$:

;WAIT FOR

001110

;'SET WRITE LOCKOUT '

012764
004737
032737
001401
104072

016214
000012
023240
000400

LETC

.MSG176G

016244
016252
016256
016264
016266

032737
001001

030577

104401
104411
012737
005064
004737

016206
016212
016214
016222
016226
016232
016240
016242

OPERATOR

3832
3833
3834
3835
3836
" 837
>838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887

n
6
MACY11 30A(1052)
22-APR-78
14:43
PAGE
RP11E/DRIVE CONTROL PANEL SWITCH TEST

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W T EST
CZRPYD P11
Tz
22-APR-78 14:42

016446
016450
016451
016452
016454
016462
016466
016474
016476

104403
001
001
104411

.BYTE
.BYTE

016454
023240
000400

016500
016504
016506
016514
016516
016522
016530
016532
016536

005737
001004
012737
000406
006337
032737
001025

001176

016542
016544
016545
016546
016550

104403

001110

2s:

001334

000001

001176
0oo01¢

3%:
001176

001176

031014
001176

TST
BNE

Mov

5%:

ASL

BIT
BNE

TYPE

mov

CHKDRV,RPCS+1(R4)
CHKDRV,=(SP)

1
1
#2%,SLPERR
PC,SAVRP
#SUWP ,SRPDS

CHKDRV
48

#1,CHKDRV

5%
CHKDRV
#BIT03,CHKDRV

EXITI?

LASG171

CHKDRV,=(SP)

TYPOS

001
001

104411
012737

ROLIN
Mov
JSR

BIT
BEQ
ERROR

104075

013746

.BYTE
.BYTE

01655¢C

001110

68:

ROLIN
Rov

1
1

863 ,SLPERR

Sy N

Wy S

WGy

Wy W

WY Wy W

;:SAVE CHKDRV FOR TYPEOUT
;;TYPE

SWITCH

SETTING

;.60 TYPE--OCTAL ASCII
;:TYPE 1 DIGIT(S)

;s TYPE LEADING ZEROS
JWAIT FOR THE OPERATOR

TO ENTER

'(CR'

;LOOP ON ERROR ADDRESS
;STORE THE RP11 REGISTERS
;IS THE SELECTED DRIVE WRITE PROTE(CTED ?
;BR IF NOT

;"SUWP' SET WHEN DRIVE LOA SWITCHES
;'EQUAL THE SELECTED DRIVE'

;THROUGH HERE THE FIRST TIME
;BR IF NOT
JSET FOR DRIVE 1
; CONTINUE
JSHIFT TEST ADDRESS
JFINISHED WITH ADDRESSES ?
;BR IF FINJSHED

;'SEY SWITCHES 1O °
;. SAVE CHKDRV FOR TYPEQUT

::TYPE

SWITCH

SETTING

;.60 TYPE--OCTAL ASCII

JTYPE 1 DIGIT(S)

;:TYPE

;WALT

LEADING ZEROS

FOR

THE

OPERATOR

WY W

Gy W

;SELECT THE FIRST DRIVE NUMBER

;"SET SWITCHES 10 °

TYPE
Mov

TYPOS

012737
004737
032737
001401

104401

LMSG17]

move

1%:

000005

#2 ,RPCA(R4)

016¢36
016442

Mov

016430

000012

;'RESET THE CYLINDER LOA SWITCHES
;'SET THE FOLLOWING VALUES IN THE DRIVE
:'LOA SWITCHES °
;LOAD CYLINDER ADDRESS

.MSG17J

000002
001176
031014
001176

CHKDRV

012764
113764
104401
013746

sSTART WITH DRIVE

CLR
TYPE

Wy S

016422

WRSW?:

001176
031037

SWITCHES

005037
104401

;1S PATTERN EXCEEDED?
JBRANCH [F NOT

016412
016416

°'LOA'

sSWITCH SETTINGS
;sUPDATE TEST PATTERN

;CHECK DRIVE

RO
#B1709,R0
18

BIT
BEQ

ASL

: INCREMENT CYLINDER ADDRESS
;CHANGE THE LOOP ON ERROR ADDRESS
;SAVE THE KP11 REGISTERS
;IS UNIT WRITE PROTECT SET ?
;BR IF NOT
JUNIT WRITE PROTECT IS SET WITH
:RPCA ONE GREATER THAN BOUNDARY

JSR
BIT
BEQ
ERROR

#43,SLPERR
PC,SAVRP
#SUWP ,SRPDS

;SWITCHES

001000

#2 ,RPCA(RG)

5%:

ADD
Mmov

;CHANGE LOOP ON ERROR ADDRESS
;LOAD PATTERN INTO RPCA
;SAVE THE RP11 REGISTERS
sIS UNIT WRITE PROTECT SET ?
;BR [F SET
;UNIT WRITE PROTECT IS NOT SET
RPCA EQUALS CONTENTS OF BOUNDARY

Cz¢
CZF

001334

PC,SAVRP
#SUWP ,SRPDS

SEQ 0078

3%:
4%:

JSR
BIT
BNE
ERROR

000012
001110

#2%,SLPERR
RO,RPCA(R4)

PAGE

006300
032700
001733

001334

mov
Mov

14:43

SWITCH TEST

016402
016404
016410

000002
016356
023240
000400

2%:

PANEL

062764
012737
004737
032737
001401
104074

001110

CONTROL

016350
016356
016364
016370
016376
016400

001001
104073

016320
000012
023240
000400

22-APR-78

012737
010064
004737
032737

RP11E/DRIVE

016320
016326
016332
016336
016344
016346

30A(1052)

3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943

MACY11

TO ENTER A

;CHANGE ERROR LOOP ADDRESS

‘(R

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PY
117
22-APR-78 14:42

7
8
MACY11 30A(1052)
22-APR-78
14:43
PAGE
RP11E/DRIVE CONTROL FANEL SWITCH TEST

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1N
117
22-APR-78 14:42

3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
39N
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3986
3989
3990
39N
3992
3993
3994
3995
3996
3997
3998
3999

016556

016562
016570

023240
000400

016572

004737
032737
001001
104113

016574
016602
016604
016606
016612

113764
000724
000004
104401
000137

001176

JSR
BIT
BNE

001334

ERROR

000005

78:

move

EXIT17:

031176
003676

.SBTTL

PC,SAVRP
#SUWP ,SRPDS
78

JMP

STARTZ2

TYPE

END OF

SRR R R AR

sBR

:'SUWP' NOT SET WHEN DRIVE LOA SWITCHES
; 'GREATER THAN SELECTED DRIVE NUMBER

CHKDRV,RPCS+1(R4)

SEQ 0079

;STORE THE REGISTERS
;IS THE DRIVE WRITE PROTECTED

113

BR
SCOPE

;SELECT

THE NEXT DRIVE

;CONTINUE WITH THE
;LOOP ?

.MSG17K

;'END OF

TEST

CONTROL PANEL

;RETURN TO THE

TEST - RETURN SWITCHES

°‘'CONVERSATION MODE' ENTRANCE

PASS ROUTINE

RN AR AN R

RN AR AN

RN ARN RN

NRNNRT

s*INCREMENT THE PASS NUMBER ($PASS)
s*INDICATE END-GF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM

;*IF

THERES A MONITOR GO TO

s*IF THERE ISN'T JUMP TO RESTART
016616
016616
016622

016644
016644
016650
016652
016656
016676
016676
016702
016704
016705
016706
016712
016740
016740
016744
016746
016752
016756
016762
016766
016774
016776
017000
017002
017004
017006
017010
017014

017034
017034

104401

000410

005737
001436

016660

013746

001176

000
104401
000412

016714

013746

001112

104402
005037
005037

005037

005237

042737
005327
000001
003027
012737
000001
016776
104401

000407
104401

,65%

;s TYPE

zi25$:

BR
ASCIZ

643
;:GET OVER THE ASCIZ
<15><12><12>/END OF PASS/

TST

o#DRVSEL

;ANY

éé??S:

BEQ
TYPE
BR
.ASCIZ

1%
678
66%
7/ USING DRIVE/

;sNO, BRANCH
2 TYPE ASLIZ STRING
;;GET OVER THE ASCIZ

MOV
TYPOS

S#CHKDRV,=-(SP)

;.;SAVE @#CHKDRV FOR TYPEOUT
::G0 TYPE--OCTAL ASC!I

001312

104401
000407

104403
002

$EOP:

016624

100000

TYPE

,69%

1%:

001100

SENDCT:

017016
3225‘:

ASCIZ

DRIVES

STRING

SELECTED

;s TYPE 2 DIGIT(S)

2 SUPPRESS LEADING ZEROS
J;TYPE

ASCIZ

STRING

BR
LASCIZ

68%
;:GET OVER THE ASCI1Z
7/
ERRORS DETECTED=/

mov

S#SERTTL,-(SP)

;;SAVE

CLR
(LR
CLR
INC
BIC
DEC
.WORD
BGT

S#SERTTL
STSTNM
$TIMES
$PASS

;ZERO ERROR TOTAL
;.IERD THE TEST NUMBER
;;1ERO THE NUMBER OF ITERATIONS
;s INCREMENT THE PASS NUMBER

TYo0(C

$EOPCT:

017064

.BYTE
.BYTE

8329‘:

001112
001102
001162
001100

TYPE

mov

#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+

QW#SERTTL

FOR

TYPEOUT

;:60 TYPE--OCTAL ASCIICALL DIGITS)

;;DON'T ALLOW A NEG.
;. L00P?
;s YES

;;RESTORE

COUNTER

.WORD
$EOPCT

TYPE

,65%

BR
LASCIZ

649
<15><12>/END OF

;;GET OVER THE ASCIZ
TEST/

TYPE

L SENULL

;TYPE NULL CHARACTER

;. TYPE

ASCIZ

STRING

NUMBER

TO NORMAL'

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CIRPYD.P1
22-APR-78 14:4?
END OF
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
40N
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
6027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046

4047
4048
4049
4050
4051
4052
4053
4054
4055

017040
017044
017046
017050
017052
017054
017056
017060
017060
017062
017064

013700
001405
000005
004710
000240
000240
000240
000137
004762
377
017070

000042

000

22-APR-78

14:43

PAGE 81

SEQ 0080

$GET42: Mov

ars?.R0
$DOAGN

;;GET MONITOR ADDRESS
::;BRANCH IF NO MONITOR

S$ENDAD:

PC, (RO)

;.60 TO MONITOR

BEQ
RESET
JSR
NOP
NOP
NOP

$DOAGN:

377

MACYT1 30A(1052)
PASS ROUTINE

;;CLEAR THE WORLD
;s SAVE ROOM
;sFOR

JGACTI

a(PC)e+

:;RETURN

SRTINAD:
$ENULL:

JMP
.WORD
.BYTE
.EVEN

.SBTTL

vttt

.SBTTL

ERROR HANDLER ROUTINE

AARAAR

;*THIS

RESTART
-1,-1,0

SUBROUTINES

ROUTINE

WILL

;sNULL

CHARACTER

STRING

w#er

ARttt

INCREMENT

THE

ERROR

FLAG AND

THE

2222

ERROR

]

COUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO TYPERR ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
JeSW15=1
;*SW13=1
INHIBIT ERROR TYPEOUTS

;+*SW10=1

BELL ON ERROR
LOOP ON ERROR

;*SW09=1

s*CALL
*

017070

017070
017072
017076
017100
017106
017114
017116
017122
017126
017132
017140
017146
017154
017156
017162

017166
017166
017172
017174
017176
017200
017206
017210
017214

104407
105237

001775
013777
032777
001402
104401

005237
011637
162737
117737
032777
001004
004737

001103
001102
002000

001166
001112
001116
000002
161752
020000

104401

005777

161746

7%:
162034
162024

104407

001000
001110
001164

CKSWR
INCB
BEaQ

MOV

BIT
BEQ
1%:

TYPE

INC

MoV

001116
001114
161764

sus

MovB

BIT

BNE
JSR

20%:
2s:

000000

032777
001402
013716
005737

. ;ERROR=EMT

$ERROR:

017254
001172

100002

ERROR

161732

3s:
:
4%

TYPE

TST
BPL
HALT

CKSWR
BIT
BEQ

MoV

TST

SERFLG
7%
STSTNM,aDISPLAY
#BIT10,35WR
1%

AND

N=ERROR

;. TEST FOR CHANGE [N SOFT-SWR

;:SET THE ERROR FLAG
;;DON'T LET THE FLAG GO TO ZERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
;;BELL ON ERROR?
::NO - SKIP

.SBELL

;. RING BELL

@SERRPC,SITEMB

;;STRIP AND SAVE

SERTTL
(SP) ,$ERRP(
#2,8ERRP(

#BIT13,aS5WR
208
PC,TYPERR

LOCRLF

aSWR

#BIT09,8SWR
‘3
SLPERR, (SP)
SESCAPE

ITEM NUMBER

;s COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION

J:SKIP TYPEOUT IF
J.SKIP TYPEQUTS
;.60

TO USER

THE

ERROR

SET

ERROR

ITEM CODE

ROUTINE

JHALT ON ERROR

;:SKIP IF CONTINUE
;;HALT ON ERROR!

;. TEST FOR CHANGE

IN SOFT-SWR

;.LOOP ON ERROR SWIT(CH SET?
;:BR 1f NO
;;FUDGE RETURN FOR LOOPING
;s CHECK FOR AN ESCAPE ADDRESS

4056
4057
4058
4059
4060

4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100

4101
6102
4103
4104
4105

4106
4107
4108
109
4110

ARA

017220
017222
017226
017226
017234
017236
017240
017240
017246
017250
017252

001402
013716

001164

022737

017050

001001
000000

023737
001001
000000
000002

000042

000046

5%:

14:43

PAGE 82

SEQ 0081

BEQ

5%
SESCAPE, (SP)

::BR IF NONE
;:FUDGE RETURN ADDRESS FOR ESCAPE

CmMp
BNE

#SENDAD ,a#42
6%

;:ACT=11 AUTO-ACCEPT?
;:BRANCH IF NO
JoYES

CMpP
BNE

afsl ,anib

;ACT11 AUTO MODE?

12%

;NO,

RETURN

sHALT ON ERROR
;RETURN

HALT
RTI

12%:
NP

7
22-APR-78

Mmov

HALT

6$%:

LSRR ARA SRR

RSl

;THIS RUUTINE USES THE "'ITEM CONTROL BYTE'' (SITEMB)
;WHICH ERROR

R2R2R

TO DETERMINE

IS TO BE REPORTED,

IT THEN OBTAINS, FROM THE '‘ERROR
;TABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION
;CONCERNING THE ERROR.
s CALL
PC,TYPERR
JSR
RETURN

017254
017256
017264
017266
017272
017300

017302
017306
017310
017312
017314
017316
017322
017326
017330
017334
017336
017340
017344
017346
017352
017354
017356
017360
017362
017364
017366
017370
017372
017374
017376
017400
017402
017406

104412

032777
001105
005037
113737

005000
113700
005300
006300
006300
006300
062700
012037
001404
104401
104401

000000
012037
001404
104401
104401

020000

161654

001160
001102

001160

001114

002514
017336

017354

2$:
3%:

001173
49:
5%:

012001

001447
005005
012000
012002
001443
005105

SAVREG
BIT
BNE
CLR

move
CLR
MOVB
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
TYPE

112003

10%:

:SAVE RO-RS
JINHIBIT TYPEOUTS ?
;BR IF YES
sCLEAR LOCATION FOR TEST NUMBER
sLOAD TEST NUMBER FOR TYPEOUT
;CLEAR RO FOR ERROR NUMBER
;ERROR NUMBER

;FORM

#SERRTB,RO

INDEX

FOR

ERROR

TABLE

;FORM ADDRESS

:GET ERROR MESSAGE (EM) POINTER
;BRANCH [F THERE ISN'T ONE
;"'CARRIAGE RETURN - LINE FEED

:"'EM"" POINTER GOES HERE

BEQ

0
(RO)+,48
5%

.WORD

BEQ
(LR

208

.WORD

mov

TYPE
TYPE

MOV

BEQ
COMm

MovB

BEQ

001173

#5W13,3SWR
208
$TMPO
$STSTNM,STMPO
RO
$ITEMB,RO

(RO)+,28

MoV
Mov

001440

005705

1%:

001173

000000

112004
104401

TYPERR:

move
TYPE
TST

3$
.SCRLF

LSCRLF

(RO)¢+,R1

RS
(RO)+,RO
(RO)¢+,R2

20%

RS
(RO)+,R3

20%

(RO)+,R4

.SCRLF

;PICK UP DATA HEADER (DH) POINTER

sBRANCH

NONE

;CARRIAGE RETURN-LINE FEED

:"'DH'* POINTER GOES HERE

;PICKUP DATA TABLE
;BRANCH

NONE

(DT) POINTER

JSET INDENT SWITCH
;DATA FORMAT (DF) POINTER

;NUMBER OF DH'S TO TYPE
;BRANCH

;NO INDENT
;NUMBER OF

DM NUMBER

IS O

DATA WORDS

;BR IF NO WORDS TO TYPE

;AND

HOW

;CR-LF
s INDENT ?

TYPE

THEM

TYPE

(e
N an)

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P11
22-APR-78 14:42
ERRCR HANDLER ROUTINE

6112
4113

4114
4115
4116
4117
4118
4119
4120
4121

4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139
4140

017410
0174612
017416
017420
017422
017424
017426
017430
017430
017432
0174634
017436
017440
017444
017446
017450
017452
017456
017460
017462
017466
017472
017474
017476
017500
017502

001002

104401
006004
103403

027430

104402
000402

12%:

104405

104401

000764
005302
003413
104401

005105
001002
104401
012037
104401
000000
000736

:BR

[F NOT

BCS
mov

12%
a(R1)+,=-(SP)

;DECIMAL--BRANCH
;;SAVE @8(R1)+ FOR TYPEOUT

138

L [0}Y)

a(R1)+,-(SP)

::SAVE @8(R1)+ FOR

DEC
BEQ
TYPE

R3
14%
,BLNKS?

;MORE NUMBERS TO TYPE?
;NO--BRANCH
JYES--TYPE SEPARATORS

DEC

;MORE

BLE

208

;NO-=-BRANCH

(oM
BNE

RS
15%

s INDENT?
;NO=--BRANCH

;YES-=-TYPE SPACES
JGET NEXT DH
;AND TYPE IT
;DOH POINTER GOES HERE

JBLNKS?
R4

TYPDS

13%:

027430

B8R

14%:

001173
027430
017474

104413

000207

4141
4142
4143
4144
4145
4146
4147
4148
4149

4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163
4164
4165
4166
4167

118

TYPOC

013146

005303
001403

14:43

TYPE
ROR

013146

11%

TYPE

LSCRLF

15%:

TYPE
MoV

16%:

TYPE
.WORD

20%:

BR
RESREG
RTS

.SBTTL

TYPE

ROUTINE

ARE

22-APR-78

BNE
11%:

AL RAA R

.BLNKS?
(RO)+,16%

AR A

108

PAGE

SEQ 0082

sBLANKS
;OCTAL OR DECIMAL?

;.60

TYPE--OCTAL

ASCII(ALL

TYPEOUT

TYPE--DECIMAL

;LOooP

DIGITS)

ASCI]

WITH

SIGN

DH'S?

YES==START

NEW LINE

;LOOP
;RESTORE RO-RS
JRETURN

AR a2

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
J*NOTET:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;J*NOTE?Z:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

:*NOTE3:

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

]

;*CALL:

;*1) USING A TRAP INSTRUCTION
ot

. *OR
o

TYPE

L MESADR

ssMESADR

TSTB
BPL

$TPFLG
1%

;1S
;.BR

MOVvU

(RO)+,=-(SP)

IS FIRST ADDRESS OF

AN ASCIZ

STRING

TYPE

MESADR

* %

017504
017510
017512
017514
017516
017520
017524
017526
017530

017532
017534
017540

105737
100002
000000

000407
010046
017600
112046

001005
005726
012600
062716
000002

001157

$TYPE:

HALT

000002

1% -

2$:

608 :
3%:

MoV
MoV

THERE A
IF YES

;i HALT

;s LEAVE

HERE

TERMINAL?
IF

RO,-(SP)
a2 (SP),RO

::SAVE RO
;.GET ADDRESS

BNE

;:BR

Mov

(SP)+,RO

TST

ADD

RTI

(SP)+

#2,(SP)

TERMINAL

ASCIZ

STRING

;s PUSH CHARACTER TO BE TYPED ONTQ STACK
;:1F

ISN'T

TERMINATOR

;;RESTORE RO

THE

POP

;.ADJUST RETURN P(
; sRETURN

TERMINATOR

OFF

THE

STACK

[gn
X an)

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD PN
22-APR-78 14:42
ERROR HANDLER ROUTINE

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
TYPE
CZRPYD.P11
22-APR=-78 14:42
4168
4169
6170
“an
6172
6173
6174
6175
6176
677
4178
4179
4180
46181
4182
4183
4184
4185
4186
6187
4188
4189
4190
LN
6192
6193
4194
6195
6196
4197
4198
6199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
6210
6211
6212
6213
4214
6215
216
6217
4218
6219
4220
4221
4222
4223

017542

017546
017550
017554
017556
017560
017562

017564
017570
017572
017576

122716

000011

122716

000200

001430
001006
005726

ROUTINE

43:

104401

001173
105037

017720

123726

017654
001156

000755
004737

017602
017604

001350
013746

017610
017614
017616
017622
017626

105366
002770
004737
105337
000770

5%:
6$:

001154
000001

MACY11

7$:

(MPB
BEQ
(MPB
BNE

TST
TYPE
$CRLF
CLRB
BR

7
22-APR-78

SEQ 0083

#CRLF, (SP)

;;BRANCH IF NOT <CRLF>

(SP)+

::POP

EQUIV

;sTYPE A CR AND LF

;s CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
;.60 TYPE THIS CHARACTER
;oIS 1T TIME FOR FILLER (HARS.?
::1F NO GO GET NEXT CHAR.
:GET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
.:D0ES A NULL NEED TO BE TYPED?
::BR [f NO--GO POP THE NULL OFF Of
;.60 TYPE A NULL
; ;D0 NOT COUNT AS A COUNT

SCHARCNT

Mov

S$NULL ,-(SP)

DECB

PAGE

J:BRANCH [F <HT>

PC,STYPEC

BNE

14:43

#NT, (SP)

JSR
CMPB

BLT
JSR
DECB
BR

017654
017720

30A(1052)

$FILLC,(SP)+
23
1(SP)

PC,STYPEC
SCHARCNT

STACK

..LOOP

sHORIZONTAL TAB PROCESSOR
017630
017634
017640
017646
017650
017652
017654
017660
017662
017670
017676
017700
017704
017706
017714
017716
017720
017722

112716

004737
132737

001372
005726
000724
105777

000040
017654
000007

161270

100375
116677
122766

000002
000015

105037

017720

001003

000406
122766
001402

105227
000000
000207

017720

000012

8%:
9% :

$STYPEC:

161262

000002

18:

MOvVB
JSR
BIT8

BNE
TST
BR
TSTB
BPL
Movs
(mPB
BNE
CLRB
BR
cmPB

8EQ
INCB
$SCHARCNT
: .WORD
S$STYPEX: RTS
.SBTTL
I

BINARY

;;REPLACE TAB WITH SPACE

,(SP)

PC.STYPEC

;s TYPE

SPACE

J;BRANCH [F NOT AT
;. TAB STOP
;. POP SPACE OFF STACK
;sGET NEXT CHARACTER

#7,8CHARCNT

J;WALIT UNTIL PRINTER

STYPEC

2(SP) ,a8TPB

:;LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
;:BRANCH IF NO
JsYES==CLEAR CHARACTER COUNT

#CR,2(SP)

1%
SCHARCNT
STYPEX
#LF,2(SP)
STYPEX
(PC)+

JIEXIT

::1S CHARACTER A LINE FEED?
;;BRANCH IF YES
;. COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

TO OCTAL

(ASCII)
AP I P

IS READY

AND

PP PR PR

TYPE
R R

AN RN NN RN

NN ORI RN

RN ERIOITRITERTY

s¢THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT,
;*$TYPOS=---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
JeCALL:
NUM,
- (SP)
MOV
;
;sNUMBER TO BE TYPED
*

.t
*

TYPOS

.BYTE

N
M

DIGITS

TO TYPE

;s CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1

0RO
;;1=TYPE

LEADING ZEROS

;0=SUPPRESS LEADING ZEROS

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PI
22-APR-78 14:42
BINARY
6224
6225
4226
4227
4228
6229
4230
4231
4232
4233
4234
4235
4236
6237
4238
4239
4240
4241
6242
6243
4244
4245
4246
6247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
42N

4272
4273
4274
4275
4276

4277
4278
4279

MACY11 30A(1052)
22-APR-78
TO OCTAL (ASCII) AND TYPE

;*STYPON--=-<ENTER HERE TO TYPE
;*$TYPOS OR $TYPO(
;JvCALL:
"Q
MoV
NUM,
- (SP)
o

TYPON

14:43

QUT WITH

THE

PAGE

SAME

PARAMETERS

SEQ 0084
AS

THE

. sNUMBER TO BE TYPED
;. CALL FOR TYPEOUT

Le$TYPOC---ENTER HERE FOR TYPEGUT OF A 16 BIT NUMBER

JeCALL:
M
MR

017726
017730
017736
017742
017746
017750
017756
017764
017772
017774
017776
020000
020004
020006
020012
020016
020022

020026

020030
020032
020034
020036
020040
020042
020044
020046
020052
020054
020060
020062
020064
020066
020070
020074
020100
020104
020110
020114
020116
020120
020122
020124
020126
020130
020132

017646

116637
112637

062716
000406
112737
112737
112737
010346
010446
010546
113704
005404
062704
110437
113704

016605
005003
006105

000404
006105
006105
006105
010503
006103
105337
100016
042703
001002

005704
001403
005204
052703
052703

110337
104401
105337

003347
002402
52204
000744
012605
012604
012603
016666

000000
000001
020151
000002
000001
000006
000005

020147

020147
020151
020146

$TYPOS:

$TYPOC:
S$STYPON:

020151
000006
020150
020147
000012
1%:

2$:

3s:

020150

MoV
TYPOC

NUM,
= (SP)

: sNUMBER TO BE TYPED
;. CALL FOR TYPEOUT

Mov
move
movse
ADD

8(SP),-(SP)
1(SP),$0FILL
(SP)+,SOMODE
+1
#2,(SP)
$TYPON
#1,80FILL

2:PICKUP

BR
Move
MmovBe
MOVB
Mov
Mmov
Mov
move
NEG
ADD
MOVB
movs
MoV

(LR

ROL

8R
ROL
ROL
ROL
MoV
ROL

DECB
BPL
BIC

177770

BNE

TST

:
4%

000060
000040
020144
02014¢
020146

5%:
7%:

6$%:

000002

000004

BEQ
INC
BIS
BIS
mMove
TYPE

DECB
BGT

BLT
INC
BR
Mov

MoV
Mov
Mov

#6,30MODE
+1

#5,80CNT
R3,-(SP)

R4,
- (SP)
R5,=(SP)
$OMODE+1,R4
R&
#6,R4
R4 ,$OMODE
$OFILL,RS
12(SP) ,RS

R3
RS

RS
RS
RS
RS,R3
R3
$OMODE
78
#177770,R3
43
R&

#'0,R3
' ,R3
R3,8%
.83
$OCNT

6%
R4

(SP)+ RS
(SP)+ R4
(SP)+,R3

2(SP),4(SP)

THE

MODE

;s LOAD ZERO FILL SWITCH
: :NUMBER OF DIGITS TO TYPE
;:ADJUST RETURN ADDRESS
J:SET THE 2ERO FILL SWITCH
JiSET FOR SIX(6) DIGITS
J:SET THE ITERATION COUNT

::SAVE R3
;:SAVE

Ré

::SAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE
J.SUBTRACT IT FOR MAX. ALLOWED
:;SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD

;;ROTATE

MSB

INTO ¢

;.60 DO MSB
;.FORM THIS DIGIT

J:GET LSB OF

;:TYPE

;:BR

THIS

THIS DIGIT

DIGIT?

;:GET RID OF JUNK

:;TEST

fOR O

;:SUPPRESS THIS 0?
;:BR [F YES
;;DON'T SUPPRESS ANYMORE 0°'S

J:MAKE THIS DIGIT ASCII
;;MAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::6G0 TYPE THIS DIGITY
::COUNT BY 1
;;BR IF MORE TO DO
;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK

;:G60 DO THE LAST DIGIT
;:RESTORE RS
;;RESTORE R4

:;RESTORE R3
J.SET THE STACK

FOR

RETURNING

LAST

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD P11
22-APR-78 14:42
BINARY
4280
4281
4282
4283
4284
4285
4286
4287
(288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303

4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
6314
4315
4316
6317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335

020140
020142
020144

020145
020146

020147
020150

012616
000002
000
000
000
000
000000

7
H
MACY11 30A(1052)
22-APR-78
TO OCTAL (ASCII) AND TYPE
mov

(SP)+, (SP)

.BYTE
.BYTE

0
0

RTI

8%:

.BYTE
.BYTE
.WORD

.SBTTL

CONVERT BINARY

AAAARAAAR RS

;*THIS

ROUTINE

SEG 0085

s sRETURN

O
O
O

AR R

PAGE

;;STORAGE FOR ASCII DIGIT
:: TERMINATOR FOR TYPE ROUTINE

$OCNT:
$OFILL:
$OMODE:

14:43

;;0CTAL DIGIT COUNTER
;. ZERO FILL SWITCH
: :NUMBER OF DIGITS TO

IS USED

TO DECIMAL
RS

AND

TYPE

ROUTINE

Rl RtilRtattRititsnsd)

TO CHANGE

16-BIT

BINARY

NUMBER

TO A

5-DIGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE [T. DEPENDING ON WHETHER THE
s*NUMBER [S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRSY DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.
s*CALL:
M
L [0}")
NUM,-(SP)
;:PUT THE BINARY NUMBER ON THE STACK
3

020152
020152
020154
020156
020160
020162
020164
020170
020174
020176
020200
020206
020210
020214
020220
020222
020226
020230
020232
020234
020236
020240
020242
020244
020246
020250
020252
020254
020262
020266
020272
020274
020276
020302
020304
020306

010046
010146
010246
010346
010546
012746
016605

100004
005405

112766
005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663
052702
052702
110223
005720
020027
002746
003002
010502

$TYPDS:

000001

020366
000040

2s:

020356

3%:

Mov

#20200,~(SP)

JsSET BLANK

Move
CLR

#'-,1(SP)
RO

MoV

000001
000060
000040

000010

177777

6$:
7$:

RS.=-(SP)

ON
ON
ON
ON

STACK
STACK
STACK
STACK

;:PUSH RS ON STACK

SWITCH AND

#3$D0BLK ,R3

;. SETUP THE OUTPUT POINTER

MoV

$DTBL (RO) ,R1

,(R3)+

;. MAKE THE
;. IERQO THE

ASCII NUMBER NEG.
CONSTANTS INDEX

;;SET

THE

FIRST

CHARACTER

;:GET

THE

CONSTANT

;;CLEAR THE BCD NUMBER

SuB
BLT

R1,RS
43

;.FORM THIS BCD DIGIT
;.BR IF DONE

ADD

R1.,RS

;;ADD BACK THE CONSTANT

BNE

;:;FALL THROUGH IF

TST

SIGN

;:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
:;MAKE THE BINARY NUMBER POS.

CLR

RO
R1
R2
R3

ROUTINE

20(SP) ,RS
1%
RS

MovB

T1ST8B

5%:

THE

;:PUSH
;;PUSH
;:PUSH
;;PUSH

é:(

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

MOV
8PL
NEG
1%:

;60

MOV
mov
MOV
MoV

MoV

020200
000020

000055

TYPDS

(SP)

;. INCREASE

;;CHECK

THE BCD DIGIT BY

;:STILL DOING LEADING 0'S?

7%
(SP)
63
1(SP),=1(R3)
#'0,R2

;:BR IF YES
;sMSD?
;:BR IF NO
;s YES=-=SET THE SIGN
;;MAKE THE BCD DIGIT ASCII

Move

R2,(R3)+

:;PUT

CMP
BLT
BGY
MOV

RO,#10
2%
8%
R5,R2

;:CHECK THE TABLE INDEX
;.60 DO THE NEXT DIGIT
;G0 TO EXIT
.:GET THE LSD

(RO) ¢

BCD DIGIT=0

BM]
ASLB
BCC
MovBe
BIS
BIS

TO A BLANK

ssMAKE

;s JUST

A SPACE

THIS CHARACTER

INCREMENTING

NOT

ALREADY

A DIGIT

IN THE OUTPUT BUFFER

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD PN
22-APR-78 14:42

4336
6337
(338
6339
4340
4341
43462
4343
4344
4345
4346
6347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363

4364
4365
4366
6367
4368
4369
4370
4371
4372
4373
6374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391

020310
020312
020314
020316
020324
020326
020330
020332
020334
020336
020340
020344
020352
020354
020356
020360
020362
020364
020366

& R/W TEST
MACY11
CONVERT BINARY

000764
105726
100003
116663
105013

012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

8%:
177777

177776

020366
000002

000004

9s:

020376
020400
020402
0c0404

020416

PAGE

SEQ 0086

;G0 CHANGE TO ASCII
;:WAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO
;s YES=~SET THE SIGN FOR TYPING
;:SET THE TERMINATOR
;:POP STACK INTO RS
;.POP STACK INTO R3
;.,POP STACK INTO R2
;;POP STACK INTO R1
;:POP STACK INTO RO

MOV

2(SP) ,4(SP)

;sADJUST

THE

;sRETURN

TO USER

. $0BLK

Mov
RTI

(SP)+,(SP)

$0BLK:
LSBTTL

TTY

;:NOW

TYPE

THE

NUMBER

STACK

INPUT ROUTINE

A0SR0l sllRRllRiRliisi2ARi222202
2222222222222 82

.ENABL
LSB
$TK(NT: .WORD
$IKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

000000
000000
000000
000012

22-APR-78
14:43
AND TYPE ROUTINE

69
(SP)+
9s
=1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+, R1
(SP)+,RO

10000.
1000.
100.
10.
.BLKW

BR
1ST8
BPL
MOVB
CLRB
Mmov
MoV
Mov
MoV
mov
TYPE

$DTBL:

30A(1052)
TO DECIMAL

0
0
O
1 0.

;sNUMBER OF ITEMS IN QUEUE
:: INPUT POINTER
;;0UTPUT POINTER
::TTY KEYBOARD QUEUE

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT
s*CALL:
o

020416
020422
020430
020436

020444
020452
020456
020464

005037
012737
013737
012737
012737
005777
012777
000207

020376
020404
020400
020466
000200

020400
020402
000060
000062

000100

160460

160470

JSR

RETURN

PC,S$TKINT

$TKINT:

CLR
MoV
MOV
MOV
MOV
TST

$TKCNT
#S$TKQSRT,S$TKQIN
$TKQIN,STKQOUT

;. CLEAR COUNT OF JTEMS IN QUEUE
;;MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & QUTPUT POINTERS.

#200,3#TKVEC+2

;;''BR' LEVEL ¢4

MOV
RTS

;*TK

SERVICE

#S$TKSRV ,a8#TKVEC
asTK8

#100,987TkS
PC

;;INITIALIZE

THE

::CLEAR DONE

FLAG

KEYBOARD

VECTOR

;ssENABLE TTY KEYBOARD INTERRUPT
;:RETURN

TO CALLER

ROUTINE

s*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;¢IT IN THE QUEUE.

;*1F THE CHARACTER IS A "'CONTROL-C' ( C) STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ‘'CONTROL=-C'' RESTART ADDRESS (START?2)
020466
020472

117746

042716

160454
177600

$TKSRV: MOVB
BIC

a$TkB,-(SP)
¥ C177,(SP)

::PiCKUP THE CHARACTER
;:STRIP THE JUNK

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD P11
TTY
22~-APR-78 14:42
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406
4407
4408
4409
4410
461

4412
4413
4414

4415

4416

4617
4418

4419

4420
4621
4622
4423
4424
4425
4426
4427
4428
4429
4430
4631

4432
4433
4634

4435
4436
4437
4438
4439
4640

4441
4442

4443
4444
4445
4446
4447

020476
020502
020504
020510
020514
020516
020522
020526
020530
020536

020540
020540
020546
020550
020554
020556
020560
020564
020566
020572
020574
020600
020602
020606
020612
020616
020620
020626
020630
020634
020640
020642
020646
020650
020654
020660
020664
020672
020674
020702

021627
001007
104401
004737
005726
000137
01627
001004
022737
001500
022737
001004
104401

005726
000451
021627
001021
005077
005726
105777
100375
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727
001003
012737
000002

INPUT

000003
021604
020416
1%:

000176

001140

000012

020376

2$:

001166

000023

3s:

160352

160344

31%:

160340
177600

000021

160316

020376
000140

32%:

000175
000040
177520
020400
020400

020416

020404

020400

5%:
MR AAL R

020704
020712
020714
020720
020722
020726
020732
020736

022737
001124
105777
100121
117746
042716
021627
001300

000176
160224

160220
177600
000007

001140

30A(1052)

ROUTINE

CMpP
BNE

(SP)
., #3
1%

JSR
TST
JMP
cmp
BNE
CMp
BEQ

PC,STKINT
(SP)+

;;BRANCH
;;TYPE

#10.,8TKCNT

(SP)+

(SP),#23

32%

BNE
(LR
TST

TST8

BPL
MOVB
BIC
cmMp
BNE
MOV
RTI

SEQ 0087

CONTROL=C

(

;. 1S THE QUEUE FULL?
;:BRANCH IF NO
;.RING THE TTY BELL
;:CLEAN CHARACTER OFF OF STACK
JSEXIT
J:1S IT A CONTROL-S?
;:BRANCH IF NO
;sDISABLE TTY KEYBOARD INTERRUPTS
J:CLEAN CHAR OFF STACK
;sWAIT FOR A CHAR
;:LOOP UNTIL ITS THERE
JsGET THE CHARACTER

3s
.$BELL

(Mo

PAGE 88

;s INIT THE KEYBOARD
;;CLEAN UP STAC(CK
;s CONTROL C RESTART
;1S IT A CONTROL 6?
;:BRANCH IF NO
:;1S SOFT-SWR SELECTED?
;.60 TO SWR CHANGE

#SWREG, SWR

TYPE
TST
BR

14:43

;1S IT A CONTROL C?

START?
., #7
(SP)
2%

cmp
BNE

3$TKS
(SP)+

a$TKS
318
a$TKB,~(SP)
# C177,(SP)
(SP)+, #21
318

s;MAKE IT 7-BIT ASCII
;IS IT A CONTROL=-Q?

;;BRANCH IF NO
;sREENABLE TTY KEYBOARD INTERRUPTS

#100,387KS

s sRETURN

INC

CMP
BLT
CMP
BGT
BIC
MOVB
INC
CMpP
BNE

MOV

RTI
AR

7
Q22-APR-78

JSCNTLC

TYPE

003676
000007

000100

MACY11

;. COUNT THIS CHARACTER
;1S IT UPPER CASE?
;.BRANCH If YES
;oIS IT A SPECIAL CHAR?
;BRANCH IF YES
JsMAKE IT UPPER CASE
ssAND PUT IT IN QUEUE

$TKCNT
(SP),#140
43

(SP),#175

43
#40, (SP)
(SP)+,38TKQIN
$TKQIN

;;UPDATE THE POINTER
$TKQIN,#STKQEND ; ;GO OFF THE END?
5%
: ;BRANCH [F NO
#$TKQSRT,STKQIN

ARl

;;RESET THE
s sRETURN

ittt

POINTER

ittt

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
FROM THE TRAP HANDLER, AND WILL
;*ROUTINE IS ENTERED
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
;*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG,
SWR
;:1S THE SOFT-SWR SELECTED
BNE
15%
;2EXIT IF NOT
TSTB
a$TKS
;:1S A CHAR WAITING?
BPL
15%
1F NOT, EXIT
;.
MOVB
;2 YES
a@$TKB,-(SP)
BIC
CMP
BNE

¥ C177,(5P)

(SP),#7
2%

;;MAKE

7-BIT ASCII

;:1S IT A CONTROL=-G?
;31F NOT, PUT IT IN THE TTY QUEUE
AND EXIT

(2
4

4499
4500
4501
4502
4503

INPUT ROUTINE

7
22-APR-78

14:43

PAGE

SEQ 0088

s
czt

::BRANCH [F

JSR
CLR
move

PC.STKINT
asTKS
#1,$INTAG

;:FLUSH THE TTY INPUT QUEUE
;:DISABLE TTY KEYBOARD INTERRUPTS
;o SET INTERRUPT MODE INDICATOR

TYPE

.SCNTLG

TYPE
mov

. SMSWR
SWREG,-(SP)

:;CLEAR

YES

CONTROL-G OFF

;;ECHO THE CONTROL-G ( G)
;s TYPE CURRENT CONTENTS
;s SAVE

SWREG FOR

TYPEOUT

021014
021016
021022

1046402
104401
005046
005046
105777
100375

021024
021030

117746
042716

160116
177600

MOvB
BIC

a$TKB,-(SP)
¥ C177,(SP)

;:PICK UP CHAR
;oMAKE IT 7-BIT ASCII

021034
021040
021042
021046
021052
021060
021062
021070

021627
001015

000003

cmp

(SP) . #3

¢ IS IT A CONTROL-C?

021074
021100
021102
021106
021112

021627
001005

021114
021120
021122
021126
021130
021136
021142
021146
021154
021156
021164
021166
021172
021176

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420

7%:

. SMNEW

;.60 TYPE--OCTAL ASCII(ALL
;:PROMPT FOR NEW SWR

TST18
BPL

a$7TKS
7%

::CHAR THERE?
;s
1F NOT TRY AGAIN

=(SP)
=(SP)

;s CLEAR COUNTER
;:THE NEW SWR

160054

: ;BRANCH

8$:

Mov

#100,a87Ks

JMP

START?

Sn e

Snd

Sm i

: ;REENABLE TTY KEYBOARD INTERRUPTS?
IF

;;ALLOW TTY KEYBOARD

;s CONTROL=C RESTART

INTERRUPTS

Sm s

BNE

CO)

;;CLEAN UP STACK

SINTAG,. M

(

SR a

#6,SP

CMPB

CONTROL-C

ADD

ECHO

Sn A

000001

;;YES,

: sBRANCH IF NOT

+SCNTLC

000100
003676

TYPE

104401

062706
000737

Su s

Sas

123727
001003
012777
000137

BNE

062706

021604
000006
001135

104401

CLR
CLR

DIGITS)

198:

TYPOC
TYPE

STACK

(SP)+

Pai

BEQ

Fai o sma

Sms

smlk

$GTSWR:

160122

SRR

001135

021634

SR R

Mea

Sme

Sui

Sua

013746

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
;*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
6$:
CMPB
$AUTOB ., M
;;ARE WE RUNNING IN AUTO-MODE?
TST

021616
021623
000176

104401
104401

020416
160162
000001

000001

Sma

020770
020774
021000
021004
021006
021012

001134

Sai

123727
001674
005726
004737
005077
112737

020740
020746
020750
020752
020756
020762

000025

9s:

021611
000006

cmp
BNE

(SP),#25
108

;1S IT A CONTROL-U?
: ;BRANCH IF NOT

208:

ADD
BR

#6,SP
19%

; IGNORE PREVIOUS INPUT
;;LET'S TRY IT AGAIN

000015

108:

CMp

(SP), 215

;IS

BNE

000004
000002
000006
001173
001135

000001

000100

157760

017654
000060

TYPE

160002

11%:
148

15%:

169%:

LSCNTLU

;.YES,

ECHO

CONTROL-U

4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
44691
4492
4493
4494
4495
4496
4497
4498

4473
4474
4475
4476
4477
4478

30A(1052)

4648
4449
4450
4451
6452
4453
4454
4455
4456
4457
4458
4459
4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
4N
4472

MACY11

CZRPY-D, RP11-E FUNCTIUNAL LOGIC & R/W TEST
CZRPYD P11
TTY
22-APR-78 14:42

(

A <CR>?

TST

4(SP)

16%

;.BRANCH

BEQ

118

;;BRANCH IF

YES

#6,5P
LSCRLF
SINTAG, M
15%

JsCLEAR UP STACK
:;ECHO <CR> AND <LF>
;:RE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH [F NOT

Mov

ADD
TYPE
(MPB
BNE

2(SP) ,aSwWR

MOV

#100,a87KkS

JSR

PC,STYPEC

BLT

18%

RTI

C(MP

(SP),#60

;;YES,

THE

FIRST

CHAR?

;. SAVE NEW SWR

;sRE-ENABLE TTY KBD INTERRUPTS

s sRETURN

JsECHO CHAR

::CHAR < 0?
;;BRANCH IF

YES

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PI
22-APR-78 14:42
TTY
4504
4505
4506
4507
4508
4509
4510
651
4512
4513
6514
4515
4516
4517
4518
4519
4520
4521
4522
6523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548
4549
4550
4551
4552
4553
4554
4555
4556

4557
4558
4559

021200
021204
021206
021212
021216
021220
021222
021224
021226
021232
021236
021240
021244

021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401

000720

MACY11

Cmp

000060
000002

001172

18%:

2(SP)

;s IS

ASL
ASL
ASL
INC

(SP)
(SP)
(SP)
2(SP)

JsNO, SHIFT PRESENT
..
CHAR OVER TO MAKE
MM
ROOM FOR NEW ONE.
;:KEEP COUNT OF (HAR

TYPE

,SQUES

BEQ

17%

B8R

LSB

20%

AR AR ARl

.t
. %

012746

000002

005737
001775
005337
117766
005237

023727
001003
012737
000002

000004
000004

000002

$SRDCHR:

021272

MOV

649%:
1%:

020376
020376
177072
020402
020402
020404

MOV

RTI

THIS THE

FIRST

YES

J:SET IN NEW CHAR
;sGET THE NEXT ONE
J:TYPE 2<CR><LF>

Ala2
222222322 22X]

INPUT A SINGLE CHARACTER FROM THE

s;WITH PARITY BIT

STRIPPED OFF

(SP),=-(SP)

;:PUSH DOWN TKE PC AND

4(SP),2(SP)
4(SP)
-(SP)

;:THE PS
;.GET READY FOR A CHARACTER
J.PUT NEW PS ON STACK

#6483 ,~(SP)

;sPUT NEW PC ON

;;POP NEW PC

STACK

AND PS

000004

$TKCNT
1%
STKCNT
a$TKQOUT,4(SP)

020416

CMpP

$TKQOUT ,#STKQEND ;;DID IT GO OFF QOF

MOV

#$TKQSRT,$TKQOUT

020402

BNE

2%:

RTI

TTY

;:GET A CHARACTER FROM THE QUEUE
;sCHARACTER IS ON THE STACK

TST
BEQ
DEC
MOVB

INC

CHAR

JsSIMULATE CONTROL-U

RDCHR
RETURN HERE

MOV
CLR
CLR

;;BRANCH [IF YES
;sSTRIP-OFF ASCI!I

;:BRANCH IF

~2(SP),(SP)
7%

;*THIS ROUTINE WILL

016666
005066
005046

PAGE 90

::;CHAR > 7?

;*CALL:

011646

14:43

(SP),#67

18%
#60, (SP)+

BIS
BR

.DSABL

MR AAAAR

021246
021250
021256
021262
021264
021270
021272
021272
021276
021300
021304
021312
021316
021324
021326
021334

22-APR-78

SEQ 0089

BGT
BIC
TST

17%:

INPUT ROUTINE

000067

000002
177776

30A(1052)

;:WAIT ON A CHARACTER

;;DECREMENT THE COUNTER
;;GET ONE CHARACTER

$TxaQouUT

J:UPDATE THE POINTER

;:BRANCH IF NO
;;RESET

; sRETURN

THE

THE END?

POINTER

:;ttttttttt'ttttt'ti'ittti'*'t"titt't't"ttttttttlfittt'itttt'tt'

;*THIS ROUTINE WILL

JvCALL:

021336
021340
021342
021346
021352
021354
021356
021360
021364

010346
005046
012703
022703
101456

104410
112613
122713
001022

021572
021604

000177

INPUT A STRING FROM THE TTY

. ¥
St
M

ROLIN
RETURN HERE

s INPUT A STRING FROM THE TTY
;s ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
J.TERMINATOR WILL BE A BYTE OF ALL 0°'S

SRDLIN:

MOV
CLR
MoV

;s SAVE R3
;;CLEAR THE RUBOUT KEY
;;GET ADDRESS

1%:

2$:

10%:

CMp
8LOS

RDCHR
Movs
CMPB
BNE

R3,-(SP)
-(SP)
#STTYIN,R3

#STTYIN#10.,R3
43
(SP)+,(R3)
#177,(R3)
5%

;;BUFFER FULL?
;:BR IF YES

;:G0 READ ONE CHARACTER
;:GET CHARACTER
;1S IT A RUBOUT

;:BR

IF NO

FROM

THE

TTY

W4
4

4601
4602
4603
4604
4605
4606

4607
4608
4609
4610
4611
6612
4613
4614
4615

021366
021370
021372
021400
021404

021410
021412
021416
021420
021424
021430
021432
021434
021436
021444
021450
021452
021456
021460
021464
021466

021472
021474
021476
021502
021506

021510
021514
021516
021522
021526
021532
021534
021540
021544
021546
021550
021552
021560
021566
021570
021571
021572
021604
021611
021616
021623
021630
021634
021642

005716
001007
112737
104401

012716
005303

020327
103434
111337
104401

000746
005716
001406
112737
104401
005016
122713
001003
104401
000726
122713
001011
105013
104401
104401
000717
104401

000712
111337
104401
122723

001305

105063
104401

005726
012603
011646
016666
012766
000002
000
000
000012
041536
136

043536
015

036440
020040
020075
021646

000134
021570
177777

6$:

5%:

021570

000025

7%:

021611

000022

8%:

001173
021572

001172

4%:

021570
021570
000015

3$:

177777
001174

000004
021572

000002
000004
9s:

005015
006525
005015
051412
000040
042516
000

000
000012
000

051127

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:

020127

SMNEW:

ROUTINE

move
TYPE
mov
DEC

021570
021570

000134
021570

TST
BNE

INPUT

021570

021572

30A(1052)

cmp
BLO
MovB
TYPE
BR
TST
BEQ
Mmovs
TYPE
CLR
cmPB8
BNE
TYPE
BR
CMPB
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
Move
TYPE
CMPB
BNE
CLRB
TYPE
TST
Mov
MoV
Mov
Mov
RTI
.BYTE
.BYTE
.BLKB

CASCIZ
.ASCIZ
.ASCIZ
<ASCIZ
LASCIZ

7
22-APR-78

14:43

PAGE 91

SEQ 0090

;:1S THIS THE FIRST RUBOUT?
;:BR IF NO
;;TYPE A BACK SLASH

(SP)

" 9
.99
#-1,(SP)

;;SET THE RUBOUT KEY
; :BACKUP BY ONE

R3
R3#STTYIN
43
(R3),9%

: :STACK EMPTY?

;:BR [F YES

; ;SETUP TO TYPEOUT

.93
23

THE

;.60 TYPE
;:G0 READ ANOTHER CHAR.
. sRUBOUT KEY SET?
;;BR IF NO
;:TYPE A BACK SLASH

(SP)

DELETED CHAR.

;CLEAR THE RUBOUT KEY
;1S CHARACTER A CTRL U?
:BR IF NO
;TYPE A CONTROL "U'

:6G0 START OVER
::1S CHARACTER A "' R'TM
;BRANCH IF NO
;:CLEAR THE CHARACTER
;TYPE A “CR" & "'LF"

;:TYPE THE INPUT STRING
;60 PICKUP ANOTHER CHACTER
;TYPE A

;CLEAR THE BUFFER AND LOOP
:;ECHO THE CHARACTER
#15, (R3)+

;CHECK FOR RETURN
;:LO0P IF NOT RETURN

23
-1(R3)

JSLF
(SP)+
(SP)+ ,R3
(SP),=(SP)
4(SP),2(SP)
#STTYIN,L(SP)

0
0
10.
/ C/<155A2>
/ U/<15<12>
/ 6/<15><12>

;:CLEAR RETURN (THE 15)

;s TYPE A LINE FEED
;s CLEAN RUBOUT KEY FROM THE STACK

;RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST

ASCII

; RETURN
::STORAGE FOR ASCII
: TERMINATOR

;RESERVE

10.

;CONTROL ‘°C'"
..CONTROL U'
::CONTROL ''G6'*

<15><12>/SWR
/

CHARACTER ON

CHAR.

TO TYPE

BYTES FOR TTY

INPUT

NEW =/

.EVEN

.SBTTL
R

SCOPE HANDLER ROUTINE
A

AR ARl
a2 R
2222222222222

:*THIS ROUTINE

CONTROLS THE

CZf
CZF

MLALMN.
N

4560
6561
4562
4563
4564
4565
4566
6567
4568
4569
4570
457
4572
4573
4574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600

MACY1T

CIRPY-D, RP11-E FUNCTIONAL 'OGIC & R/W TEST
TTY
CIZRPYD. P11
22-APR-78 14:4¢

LOOPING OF

SUBTESTS.

IT WILL

INCREMENT

CIZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P11
22-APR-78 14:42
SCOPE HANDLER ROUTINE

22-APR-78

14:43

PAGE 92

SEQ 0091

CZR
CZR

L616
4617
4618
4619
4620

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
:*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;«THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW14=1
LOOP ON TEST
;*SW11=1
INHIBIT ITERATIONS

5
S
5

4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638

;*CALL
X

5
>

4621

;+SW09=1

021646
021646
021650
021656

104407
032777
001101

021660

000416

021662
021666
021674
021700
021704
021706
021710

013746
012737
005737
012637
000453
022626
012637

000006
021706
177060
000004

4640
4641
4642
4643

021716
021716
021722
021724

105737
001421
123737

001103
001115

001103

4645
4646
4647
4648
4649

021734
021742
021744
021752
021754

032777
001404
013737
000443
105037

001000

157176

001110

001106

4651
4652
4653

021764
021766
021774

000415
032777
001011

4639

4644

4650

021714

021732

021760

000413

101015

005037

4654
4655
4656
4657
4658
4659
4660
4661
4662
4663
4664

021776
022002
022004
022010
022016
022020
022026
022034
022040
022044
022050

005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037

4666
4667
4668

022062
022070
022074

013777
013716
000002

4665

2298
67

022054

022076

112737

000001

LOOP ON ERROR

SCOPE

;:SCOPE=10T

157262

000004

004000

6S::#ARRREND OF CODE FOR THE XOR TESTERANSNA
28:
TSTB
SERFLG
::HAS AN ERROR OCCURRED?
BEQ
3s
::BR IF NO
CMPB
SERMAX,SERFLG
;:MAX. ERRORS FOR THIS TEST QCCURRED?

5
>
5
p

001100
001104
001162

001104

000001
022076
001102
00110¢
001110

001104
001162

000001

0011:S

001164

001102
001106

8HI

7%:
48:

157144

157052

CKSWR
;:TEST
FOR CHANGE IN SOFT-SWR
BIT
#BIT14,3SWR
::LOOP ON PRESENT TEST?
BNE
SOVER
:YES IF SW14=1
;MRNANSTART OF CODE FOR THE XOR TESTERAS##N
$XTSTR: BR
6%
:;IF RUNNING ON THE “'XOR'' TESTER CHANGE
::THIS INSTRUCTION TO A ''NOP'* (NOP=240)
MOV
#ERRVEC,-(SP)
::SAVE THE CONTENTS OF THE ERROR VECTOR
MoV
#53,3#ERRVEC
:;SET FOR TIMEOUT
TST
ar177060
;:TIME OUT ON XOR?
MOV
(SP)+,@#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
::GO TO THE NEXT TEST
5% :
CMP
(SP)+,(SP)+
;;CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,3#ERRVEC
;;RESTORE THE ERROR VECTOR
1%:

B8R

001103
001162

5
5
5
5
5
5
p
5
5
5
5
5
5
5
5

$SCOPE :
040000

3$:

;:BR

#BIT09,aSwR
4
SLPERR,SLPADR
$OVER
$ERFLG

BR
BIT
BNF

1$
#BIT11,aSWR
18

CLR

MovB
MOV
MOV
RTI

SMXCNT: 1
.SBTTL

:;LOOP ON THE PRESENT TEST

8IT
BEQ
MOV
BR
CLRB

TST
BEQ
INC
CMP
BGE
18:
MoV
MoV
$SVLAD: INCB
MoV
MoV
SOVER:

STIMES

$PASS
18
SICNT
STIMES,SICNT
$OVER
#1,$1CNT
SMXCNT,STIMES
STSTNM
(SP),SLPADR
(SP),SLPERR
$ESCAPE

21, SERMAYX

IF NO

;:LOOP ON ERROR?
::BR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

;;ZERO THE ERROR FLAG
:;CLEAR THE NUMBER OF ITERATIONS TO MAKE
::ESCAPE TO THE NEXT TEST
;:INHIBIT ITERATIONS?
::BR IF YES
;:1F FIRST PASS OF PROGRAM
¥
INHIBIT ITERATIONS
:: INCREMENT ITERATION COUNT
:;CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
::REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO 0O
:;COUNT TEST NUMBERS
::SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS

;:CLEAR THE ESCAPE FROM ERROR ADDRESS

:;ONLY ALLOW ONE(1) ERROR ON NEXT TEST

STSTNM,@DISPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)
::FUDGE RETURN ADDRESS
S:FIXES PS

::MAX. NUMBER OF

SAVE AND RESTORE RO-RS ROUTINES

ITERATIONS

)
5
5
5
3

)
3
3

3
5
5
3
5
3
3
5
5
3
5

3
5
3

g
5

B
8
CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
CZRPYD P
22-APR-78 14:42
SAVE AND RESTORE RO-R5 ROUTINES
4672
4673
4674
4675
4676

4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
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
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727

AAL RSSO

14:43

PAGE 93

A RNl
it
02222200222

;*SAVE RO-RS

c*CALL:

SAVREG

;'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
*

LeTOP-==(+16)

iv +2-==(+18)
'+ 44=--RS

;* +6--=R4
;v +8---R3
;e+10---R?
;t+12---R1
;*+14--=R0

022100
022100
022102
022104
022106
022110
022112
022114
022120
022124
022130
022134

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

000022
000022
000022
000022

;:PUSH RO ON STACK

RO,~(SP)
R1,-(SP)
R2,=-(SP)
R3,-(SP)

MoV
MOV
MoV
MOV
MoV
MOV
mov
mov
MOV
MOV
RTI

;:PUSH R1

;:PUSH R2

;sPUSH R3

R4 ,=-(SP)

;:PUSH

;sPUSH RS

RS,-(SP)

22(SP),-(SP)
22(SP),-(SP)
22(SP) ,=~(SP)
22(SP) ,-(SP)

s SAVE PS

::SAVE

;s SAVE

J:SAVE PS

ON STACK
STACK
ON STACK
ON STACK
ON STACK
OF MAIN FLOW
Of MAIN FLOW
OF CALL
Of CALL

;*RESTORE RO-RS
s*CALL:
M

022136
022136
022142
022146
022152
022156
022160
022162
022164
022166
022170
022172

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

]

$RESREG:

.SBTTL
A

LeCALL:

.'t
- %

RESREG
Mov
Mov
Mov
Mov
mov
MOV
Mov
MoV
MoV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4
(SP)+,R3
(SP)+ ,R2
(SP)+,R1
(SP)+,RO

ROUTINE

JSR

RETURN

SIZE
A

M
i

MEMORY
A

A RS

PC,S$SIZE

;*SLSTAD WILL CONTAIN:
.

s ;RESTORE PC OF CALL
s ;RESTORE PS OF CALL
: :RESTORE PC OF MAIN FLOW
; ;RESTORE PS OF MAIN FLOW
J.POP STACK INTO RS
;:POP STACK INTO R4
;s POP STACK INTO R3
s POP STACK INTO RZ
;. POP STACK INTO R1
JsPOP STACK INTO RO

WITH KT11 OPTION
WITHOUT KT11 OPTION

== LAST VIRTUAL ADDRESS OF THE LAST BANK
== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY

;*SLSTBK WILL CONTAIN THE LAST BANK AS A SAF
;*$KT11 IS THE MEMORY MANAGEMENT KEY

SEQ 0092

C(IRPY-D,

FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
ROUTINE TO SIZE MEMORY
22~APR-78 14:42

RP11 -E

CZRPYD. P11

(728
4729

4756

4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
Y44
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781
4782
4783

8
22-APR-78

14:43

PAGE 94

SEQ 0093

;*BITO7 = 0 DON'T USE MEMORY MANAGEMENT
MUST BE

- %

4730

4731
4732
6733
4734
4735
4736
4737
4738
4739
4740
“741
4742
4743
64744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755

SETUP BEFORE

THE

CALL

;*BIT1S = O DON'T HAVE MEMORY MANAGEMENT OPTION
bR
DETERMINED BY ROUTINE

022174
022176
022200
022202
022204
022210
022214

010046
010146
010246
010346
013746
013746
010600

022216
022220
022224
022230
022232
022234
022236
022244
022250
022256
022260
022264
022270
022276
022300

104400

022304

022306
022312
022314
022322
022330
022332
022334
022340
022346
022352
022356
022362
022364
022366
022372
022374
022402
022410
022412
022416
022422
022424

022430
022432
022436
022442
022444

$SIZE:

0000C4
000006
;SET

012637
012701
105727
000200

000006
003776

012737
005737
052737
005046
012702
012703
012762
011622
062716
077307
012742
005042
012737
012737
000401
022626
005237
012737
005737
062712
023712
101371
011202
005037
000421
042737
012737
005002
062701
062702
005711
022701

022374

100062

001370
162701
162702

010006
012637

RO,~(SP)
;:SAVE RO ON THE STAC(K
R1,-(SP)
;;SAVE R1 ON THE STAC(K
R2,=(SP)
;:SAVE R2 ON THE STA(K
R3,-(SP)
;;SAVE R3 ON THE STACK
@FERRVEC,-(SP)
;;SAVE PRESENT ERROR VFCTOR PS & PC
OIERRVEC'Z =(SP)
SP,RO
:SAVE THE STACK POINTER
THE ERRVEC PS TO THE PRESENT )

$kT11:
177572
100000

172349
000010

077406

000004

022232

177740

022364
143776
000040
172356

508

MOV

100000

004000
000040

CLR

000004

Mov
Mov

172516

000004

2%:
3s:
48:

$KTOUT:

177572

022432

022232
000004

SKTNEX:
$CORE:
1$:

177776

004000
000040

000006

.WORD
8PL
MOV
TST
8IS
CLR

ADD

177600

177572

TRAP
mMov
Mmov
TST8

MOV
Mov
MOV
MOV

000200

002332
000020

MOV
Mov
Mov
Mov
Mov
MOV
MOV

$CROUT:
$SIZEX:

B8R
CMP
INC
MOV

TST

;PUSH

OLD

PSW AND

FOR

TIMEOUT

#SKTNEX ,@#ERRVEC

8#SRO

;;SET

;:KT11

ARE YOU THERE?

JsYES=--SET KT11 KEY
J:INITIALIZE FOR '‘PAR' LOADING
;sADDRESS OF FIRST ''PARTM’
;s LOAD EIGHT ''PAR.'S’'' AND EIGHT
::PDR = 4K, UP, READ/WRITE
:sLOAD ''PAR'’
;;UPDATE FOR NEXT ‘'PAR"’

#177600,-(R2)
=(R2)
#28 ,34ERRVEC
#20,8#SR3

::SETUP KIPAR? FOR I/0
J.SETUP KIPARG6 FOR TESTING
;;CATCH TIMEOUT IF NO SR3
;;ENABLE 22 BIT MODE

R3,1$%

JsTHIS PDP=-11

e#SRO

;s TURN ON MEMORY MANAGEMENT

(SP)+,(SP)+

#SKTOUT ,@#ERRVEC

;s CLEAN OFF
;;SET

FOR

HAS A SR3 REGISTER

THE

STACK=-=NO SR3

TIME

OUT

FY AR Y4

;s TRAP ON NON-EX-MEM

VK IPAR7, (R2)

;:LAST ONE?

e#SRO

s TURN OFF MEMORY MANAGEMENT

CMP
BHI
mov

43
(R2) ,R2

;;MAKE

STEP

;:NO=-=TRY |7
J:GET LAST BANK+1

CLR
BR
BIC

$SIZEX

#100000,8kT711

;K711 NON-EXISTENT

(LR

;sSET UP BANK

#$CROUT ,@#ERRVEC

;. SET

FOR

TIMEOUT

ADD
ADD

#4000,/
#40,R2

MOV
Mov

77776 .R1
;:LAST ONE
1%
;sNO==TRY AGAIN
#4000,R1
#40,R2
;:DROP BACK
RO,SP
;;RESTORE THE STACK
(SP)+ ,@#ERRVEC+2 ;;RESTNRE ERROR VECTOR

(RY1)

''PDR.

;;LOOP UNTIL ALL EIGHT ARE LOADED

#40,(R2)

TS7
CHP
BNE
Su8
Sus

STACK

#100000,8kT11
-(SP)
#KIPARO,R2
# D8,R3
#77406,-40(R2)
(SP),(R2)+
#200, (SP)

ADD

Mmov

(SP)*.ilERRVEC*Z
;SAVE THE PSW IN QW#ERRVEC+?
#3776 ,R1
;:SETUP ADDRESS
(PC)+
;:USE MEMORY MANAGEMENT?
200
J:SET TC USE MEMORY MANAGEMENT
$CORE
;.BR IF NO

;: INCREMENT BY
;1K STEP

;;TRAP ON TIME OuT

.Sn

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD PN
22-APR-78 14:42
4784
(785
4786
4787
4788

4789

4790
479N
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832

4833

4834

4835
4836
4837
4838
4839

022450
022454
022460
022464
022466
022470
022472
022474
022476
022500

012637
010137
010237
012603
012602
012601
012600
000207
000000

& R/W TEST
MACY11 30A(1052)
ROUTINE TO SIZE MEMORY

000004
022476
022500

8
22-APR-78

14:43

PAGE 95

Mov
MoV
MOV
MOV
MoV
MOV

(SP)+ ,3RERRVEC(
R1,8LSTAD
R2,SLSTBK
(SP)+,R3
(SP)+,R2
(SP)+,R1

;s LAST ADDRESS
::LAST BANK
;sRESTORE R3
; sRESTORE R?
;sRESTORE R1

SLSTAD:
$LSTBK:

RTS
.WORD
.WORD

PC
0
0

;. CONTAINS
;s CONTAINS

.SBTTL

TRAP DECODER

MOV

000000

;*THIS

(SP)+,R0O

ARl

KOUTINE

WILL

PICKUP

THE

SEQ 0094

:sRESTORE RO

THE
THE

LAST ADDRESS
LAST BANK

LOWER BYTE

2222232222222

THE

‘'TRAP'' INSTRUCTION

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
022502
022504
022510
022512
022514
022516
022522

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

MOV

RO,=-(SP)

;:SAVE RO

MOV

2(SP),RO

::;GET

MovB
ASL
MOV
RTS

(RO) RO
RO
$TRPAD(RO) RO
RO

;:;GET RIGHT BYTE OF TRAP
;:;POSITION FOR INDEXING
s INDEX TO TABLE
;G0 TO ROUTINE

TST

022536

-(R0O)

TRAP ADDRESS

;:BACKUP BY 2

;:THIS IS USE TO HANDLE THE "‘GETPRI'' MACRO
022524
022526
022534

011646
016666
000002

000004

000002

$TRAP2:

MOV
MOV

(SP),=-(SP)
4(SP),2(SP)

RTI

.SBTTL

TRAP

;*THIS

TABLE

;

ROUTINE

022524
017504
017750
017724
017764
020152

022552

020774

022554
022556
022560
022562
022564

020704
021246
021336
022100
022136

THE PC DOWN
THE PSW DOWN

:;RESTORE

THE

PSW

TABLE
CONTAINS

THE

STARTING

;*BY THE ''TRAP'' INSTRUCTION.

022536
022540
022542
022544
022546
022550

;;MOVE
;:MCVE

$TRPAD: .WORD

STYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

STRAP?

ADDRESSES

THE

ROUTINES

CALLED

;:CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
. ;CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

SGTSWR

;;CALL=GTSWR

TRAP+6(1064406)

GET

SCKSWR
$SRDCHR

;; CALL=CKSWR
;. CALL=RDCHR

TRAP+7(104407)
TRAP+10(104410)

TEST FOR CHANGE [N SOFT-SWR
TTY TYPEIN ChARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
SAVE RO~-RS RQUTINE
RESTORE RO-R5 ROUTINE

SROLIN
$SAVREG
SRESREG

;;CALL=ROLIN
;;CALL=SAVREG
;;CALL=RESREG

TRAP+11(104411)
TRAP+12(7104412)
TRAP+13(104413)

SOFT-SWR

SETTING

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22-APR-78 14:42
4840
48461
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
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
<888
4889
4890
4891
4892

4893
4894
4895

& R/W

MACY11

TEST
TRAP

30A(1052)

22-APR-78

022566
022570
022574
022576
022602
022606
022612
022616
022622
022626
022632
022640
022646
022652
022656
022660
022662
022664

104412

013701
005021
013711
005037
005037
005037
005037
005037
013704
012764
012764
012701
004737
005301

001332
001304
001370
001372
001374
001376
001324
000001
000001
000007
022666

TABLE

RPINIT:

001326

110164

112761

032764
001403
156137
000207

SAVREG
CLR

MoV

CLR
CLR

CLR
CLR
CLR
Mmov

000004
000004
1%:

100374
104413
000207

032764
001404
112761
000417
032764
001422
032764
001004
032764
001412

‘'DRVSTA'

Mov

Mov
MoV
Mov

JSR
DEC
BPL
RESREG
RTS

;ROUTINE
022666
022672
022700
022702
022710
022712
022720
022722
022730
022732
022740
022742
022750
022756
022760
022766

000005
001000

000000

177777

001370

040000

000000

004000

000000

100000

000000

000001
020000

001370
000000

001360

001304

DRVINT:

2s:
3%:
4%:

104412
113764

005001
113701

004737
013746
005416
012664
013764
013764
013764
012737

002500

000005

002500
023120
002504

000006
002506
002510
002512
024000

000010
000012
000014
023116

RP11:

BEQ
Move
BR
BIT
BEQ
BIT
BNE
BIT
BEQ

AND DETERMINES WHICH DRIVES ARE AVAILABLE.
TO REFLECT

THE

SYSTEM STATUS.

; SAVE RO-R5

RPVEC,R1
(R1)+
RPPRIO, (R1)
DRVTYP
DRVSTA

;VECTOR ADDRESS
;SET INTERRUPT ADDRESS TO ZERO
;RP11 PRIORITY
;CLEAR DRIVE TYPE STORAGE
;SET DRIVE STATUS TO OFFLINE

DRVSTA+?

;SET DRIVE STATUS TO OFFLINE

DRVSTA+4
DRVSTA+6

;SET DRIVE
;SET DRIVE

#7.,R1

:'DRVSTA'

RPADR R4
#CLEAR,RPCS(R4)
#CLEAR,RPCS(R4)
PC,DRVINT
R1
1%

STATUS
STATUS

TO OFFLINE
TO OFFLINE

;PUT RP11 ADDRESS INTO Ré
;CLEAR THE RP11
,CLEAR THE RP11 AGAIN

sCHECK THE
;DECREMENT
;BR IF NOT

TABLE

INDEX

DRIVE'S STATUS
THE TABLE INDEX
FINISHED

;RESTORE RO-R5

TO CHECK
Move
BIT

IS LOADED

sRETURN

THE DRIVE'S STATUS.

DRIVE NUMBER MUST BE

R1,RPCS+1(R&)

SELECT

#SUFU,RPDS(R4)
18
#-1,DRVSTA(RT)

;SEE

#SUOL ,RPDS(R4)
43
#SUSI,RPDS(R4)

IN R1

DRIVE

DRIVE UNSAFE
;BR IF NOT UNSAFE
;SET INDICATOR TO 'UNSAFE'®

JEXIT

;IS DRIVE ONLINE
;BR [F NOT
;SEEK INCOMPLETE

;BR

SET

~°

#SURDY ,RPDS(R4)
;IS DRIVE READY ?
43
;BR IF NOT
#1,DRVSTA(R1)
;SET DRIVE INDICATOR

BEQ
BISB

TO °'ONLINE'
#SURPO3,RPDS(R4)
;IS THE DRIVE AN RPO3 ?
33
.BR IF NOT
ATABIT(R1) ,DRVTYP
SET RPO3 INDICATOR

RTS

Movs

BIT

;D0 THE REQUESTED COMMAND.

022770
022772
023000
023002
023006
023012
023016
023020
023024
023032
023040
023046

PAGE

SEQ 0095

:THIS ROUTINE CLEARS THE RP11
;THE

14:43

TABLE

SAVREG

Move
(LR
MOvVB
JSR
mov
NEG
mov
MoV
MOV
MOV
MV

;RETURN
THE

DPB,RPCS+1(R4)

RP11

ADDRESS MUST

;SAVE RO - RS
SELECT

THE

DRIVE

R1
0PB,R1
PC,CIR

;CLEAR R
;DRIVE ADDRESS
;SEE IF DRIVE IS

$W(,-(SP)
(SP)
(SP)¢+ RPWC(R4)
$BUF ,RPBA(R4)

s COMPLEMENT THE WORD COUNT
s COMPLEMENT
;LOAD THE WORD COUNT REGISTER
;BUFFER ADDRESS

$SEC,RPDA(RS)
#24000,2%

;SECTOR/TRACK ADDRESS
;SET UP FOR....

$SCYL.RPCA(RG)

CYLINDER ADDRESS

READY

E%SEYBD§1$P1‘-E

LOGIC

22-APR-78 14:42

YD.

4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
6912
4913
6914
4915
4916
4917
4918
4919
4920
4921
6922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
6943
4944
4945
6946
6947
4948
4949
4950
4951

FUNCTIONAL

023054

005337

023060
023062
023070
023076
023102
023106
023112
023114
023116

001375
113764
153764
013746
153716
112664
104413

& R/W

023116
002500
002503
002502
002501
000004

TEST
TRAP

MACY11
TABLE

1%:

DEC

BNE

000005
000005

;SEE
023120
023120
023126
023132
023136
023142
023144
023146
023150
023152
023160
023162
023170
023174
023200

012737
004737
004737
105761

003014

002401
104076
104077
032777
001357
156137
000137
005037
000207

023152
022666
023240
001370

001164

001000

155760

001360
016616
001164

001310

PAGE

SEQ 0096
;...A DELAY OF

... AT LEAST

J...25 MILLISECONDS.

MOV

DPB+2,~-(SP)

; COMMAND CODE

(SP)+ ,RPCS(R4)

;START THE COMMAND
JRESTORE RO - RS
;RETURN

CIR:

14:43

;SELECT

Mov8
RESREG
RTS

22-APR-78

OPB,RPCS+1(R4)

BISB

Zs:

MOVB

BISB

000207
000000

30A(1052)

DRIVE

DPB+3,RPCS+1(R4)
DPB+1, (SP)

;SET

JUMEX'

THE

DRIVE

"MODE'

'HDR'

BITS

IS STILL ONLINE

MoV
JSR
JSR

#28,8ESCAPE
PC,DRVINT
PC,SAVRP

;;ESCAPE TO 2% ON ERROR
;CHECK ON THE DRIVE'S STATUS
;STORE RP11 REGISTERS IN CASE

86T
BLT
ERROR

33
1%
76

:BR IF IT IS
;BR IF DRIVE IS UNSAFE
;DRIVE HAS GONE OFFLINE

2s:

BIT

#5W09,aS5WR

;LOOP ON THE ERROR ?

3%:

CLR

SESCAPE

TST8

1%:

ERROR

BNE
BISB
JMP
RTS

DRVSTA(RY)

;1S

THE

JDRIVE

DRIVE

STILL

HAS BECOME

ONLINE

ERROR

UNSAFE

CIR
;B8R IF LOOP
ATABIT(RY) ,DRVBAD
;SETUP TO DEASSIGN THE DRIVE
SFSEQP
;G0 TO THE END OF PASS ROUTINE
PC

JCLEAR THE

JRETURN

'ESCAPE'

FLAG

sTHIS ROUTINE WILL PROVIDE A STALL IN MILLISELONDS FOR A SPECIFIC
JAMOUNT OF TIME.
STALL VALUE IS STORED IN °STALLT',
;
JSR
PC,STALL

023202
023206
023210
023216
023220
023224
023226
023230
023232
023234
023236

013746
005046

001220

012716
005700
005316
001375
006766
022626
000207

000454

162766
103406

000001

STALL:

000002

1%:

2$:

3s:

MOV
CLR

STALLT,=(SP)
-(SP)

;PICKUP THE STALL TIME
JCLEAR TEMP. LOCATION

#300.,(sSP)

;STALL FOR ABOUT 1 MILLISECOND

sSuB
BLO

#1,2(5P)
33

TST

MoV
DEC
g:f

JMORE STALL REQUIRED?
:NO=--BRANCH

JNOP TO KILL TIME

(SP)
%:

; COUNT
;LOOP IF

Cmp

(SP)+,(SP)+

JCLEAN OFF

RTS

JEXIT

THE

COUNTS NEEDED

STACK

;THIS ROUTINE STORES THE RP11E REGISTERS FOR USE BY THE PROGRAM.
: THE PROGRAM DOES NOT USE THE 'LIVE' REGISTERS FOR ERROR DETERMINATION.

JCALL
;

023240
023242
023246

023254

010446
013704
016437
016437

001324
000000
000002

001334
001336

RETURN

JSR

PC.SAVRP

SAVRP:

MOV

R4 ,=-(SP)

[0}
MOV
Mov

RPADR,R4
RPDS(R&4),SRPDS
RPER(R&L) ,SRPER

JSAVE R4

JRPY1 ADDRESS
STORE RPDS
;STORE RPER

4952
6953
4954
4955
4956
4957
4958
4959
6960
436;

496

023262
023270
023276
023304
023312
023320
023326
023334
023342
023344

016437
016437
016437
016437
016437
016437
016437
016437
012604
000207

000004
000006
000010
000012
000014
000016
000024
000026

001340
001342
001344
001346
001350
001352
001354
001356

4963

4964
6965
4966
64967
4968
64969
4970
4971
6972
4973
4974
64975
4976
4977
4978
4979
4980
4981
64982
4983
4984
2832

105737
001005
012702

012701
000404
012702
012701
012703
005737

100402
013703
005046
016616
010166
005737
001006
014341
005302
001375
012737
000207

0000641

4994
4995
4996
4997
4998
4999
5000

5001
5002
5003
5004
5005
5006
5007

MOVLDR:

000144
044166
002734
051546
157776
022232

1%:
2%:

022476

3s:

000002
000002
001322

177777

232;
4989
4990
4991
4992
4993

Mov
MoV
MoV
Mov
Mov
Mov
Mov
Mov
MoV
RTS

;RCUTINE
023346
023352
023354
023360
023364
023366
023372
023376
023402
023406
023410
023414
023416
023422
023426
023432
023434
02343¢
023440
023442
023450

001322

023470
023474
023500
023502
023506
023512
023516

023522
023524
023530
023532
023534
023536
023542

104412
005737
001430
105737
001005
012702
012701
000404
012702
012701
012703

005737
100402
013703
014143
005302
001375

005037
104413

001322

5%:

RESLDR:

000041

000144
044166
002734
05154¢
157776

022232

022476

001322

TO MOVE
TSTB
BNE
Mov

Mov
BR
Mov
[0}
Mov
TST
BMI
Mov
CLR
Mov
MOV
TST

BNE
Mov
DEC
BNE

;ROUTINE
023452
023454
023460
023462
023466

30A(1052)

1%:

3$:

MoV
RTS

MOV
Mov
BR
Mov
MOV
MOV
TST

48:

5%:

BMI
Mov
Mov
DEC
BNE
(LR

RESREG

8
22-APR-78

RPCS(R&) ,$RPCS
RPWC(R4) ,SRPWC
RPBA(R4) ,$RPBA
RPCA(RL) ,$RPCA
RPDA(R4) ,$RPDA
RPM1(R4),SRPMY1
SUCA(RG) ,$SUCA
SILO(R4),$SILO
(SP)+ R4
PC

14:43

PAGE

SE@ 0097

;STORE RPCS
;STORE RPW(
;STORE RPBA
;STORE RPCA
;STORE RPDA
;STORE RPMI
;STORE SUCA
;STORE SILO
;RESTORE Ré
;RETURN

THE LOADER FROM HIGH MEMORY TO JUST ABOVE

THE PROGRAM

41
;WHO LOADED THE PROGRAM
1$
;BR IF NOT 'ABS’
#100. ,R2
:'ABS' LOADER SIZE
#BUFFER+200.,R1 ;RELOCATE TO HERE
2%
;FINISH
#1500.,R2
:'XXDP' SIZE
#BUFFER+3000.,R1
;RELOCATE TO HERE (UPPER BOUNDARY)
#157776 ,R3
;TRY THIS UPPER MEMORY ADDRESS
$KT1
sMEMORY MANAGEMENT ?
3%
;BR IF YES
SLSTAD,R3
;USE ACTUAL HIGH ADDRESS
=(SP)
;CLEAR THE STACK
2(SP),(SP)
;MOVE THE RETURN ADDRESS DOWN THE STA(CK
R1,2(SP)
sBEGINNING ADDRESS OF BUFFER
LORFLG
;LOADER ALREADY RELOCATED ?
5%
:BR IF YES
-(R3),-(R1)
;MOVE A WORD
R2
;COUNT 7
31
;BR IF MORE TO GO
#-1,LDRFLG
;SET THE LOADER MOVED FLAG
PC
s RETURN

TO RELOCATE
SAVREG
TST
BEQ
TSTB
BNE

THE LOADER

TO UPPER MEMORY

:SAVE RO - RS
LDRFLG
:LOADER MOVED ?
5%
:BR IF NOT
41
;"ABS' LOADER
1%
;BR IF NOT
#100. ,R2
;"ABS' LOADER SIZE
#BUFFER+200.,R1 ;RELOCATE FROM HERE
33
sFINISH
#1500. ,R2
;'XXDP' SIZE
#BUFFER+3000.,R1
,RELOCATE FROM HERE (UPPER BOUNDARY)
#157776 ,R3
;TRY THIS UPPER MEMGRY ADDRESS
$KT1
;MEMORY MANAGEMENT ?
3]
;BR IF YES
$LSTAD,R3
;USE ACTUAL HIGH ADDRESS
=(R1),-(R3)
sMOVE A WORD
R2
;COUNT 17
48
;BR If MORE TO GO
LORFLG
;CLEAR THE LOADER MOVED FLAG
;RESTORE RO - RS

(Y]

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PI
22-APR-78 14:42
TRAP TABLE

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22~-APR-78 14:42

5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041
50642
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059

5060
5061
5062
5063

023544

MACY11

& R/W TEST
TRAP

30A(1052)

TABLE

000207

RTS

8
22-APR -78

14:43

PAGE

SEQ 0098

;RETURN

;ROUTINE TO WAIT FOR DRIVE READY
023546
023554
023556
023562
023564
023572
023574
023600
023606
023610
023612
023614
023616
023622
023630
023632
023636
023642
023650
023652
023656
023662

032764
001042
013746
005046
162766

001411
012716
032764
001023
005316
001372
000763
004737
012737
104100
005037
062706
032777
001336
000177
062706
000207

100000

000000

DRVRDY:

000001

000002

1$:

000144
100000

000000

2%:

001212

023240
023632
001164
000004
001000

001164

3%:
4%

155270

155322
000004

5%:
6%:

BIT
BNE
Mov
(LR
SuB
BEQ
MOV

BIT
BNE
DEC
BNE
BR
JSR

#SURDY ,RPDS (R4)
6%
TIMOUT,-(SP)
=(SP)
#1,2(SP)
3$
#100., (SP)

#SURDY ,RPDS (R4)
5%
(SP)
2%
1%

PC,SAVRP

MoV

#43 ,SESCAPE

CLR
ADD
BIT
BNE
JMP
ADD
RTS

SESCAPE
#4,SP
#5W09,aSWR
DRVRDY
aBYPASS
#6,SP
PC

ERROR

100

;ORIVE READY ?
;BR IF READY
;WAIT TIME: APPROX 1 SEC
sCLEAR WORKING LOCATION
sANY

TIME

;BR IF
;VALUE
;DRIVE
;BR IF
;COUNT
:BR IF
; COUNT
;STORE

LEFT

IN WAIT

NOT
FOR APPROX 1 MS
READY ?
READY
SOME TIME
NOT FINISHED
MAJOR TIME AGAIN
RP11

LOOP

REGISTERS FOR ERROR MESSAGE

;;ESCAPE TO 4% ON ERROR
;DRIVE TIMED QUT
;CLEAR THE 'ESCAPE' FLAG
THE STACK POINTER
sCORRECT
;LOOP ON THE ERROR ?
;LOOP IF SET
;GO THE 'BYPASS' ADDRESS
: CORRECT THE STACK POINTER
sRETURN

;ROUTINE TO WAIT FOR CONTROLLER READY
023664
023672
023674
023700
023702
023710
023712
023716
023724
023726
023730
023732
023734
023740
023746
023750
023754

023760
023766
023770
023774
024000

032764
001042
013746
005046
162766
001411
012716
032764
001023

000200

000004

CONRDY:

001212

000001

000002

18:

000144
000200

000004

2$:

005314

001372
000763
004737
012737
104101
005037
062706
032777
001336
000177
062706
000207

BIT
BNE
Mov
CLR
SuB

#RDY ,RPCS(R4)
6%
TIMOUT,~(SP)
= (SP)
#1,2(SP)

BEQ

MoV

BIT
BNE
DEC

023240
023750

001164
00000¢
001000
155204
000004

001164

3s:
4%

155152

5%:
6$:

BNE
BR
JSR
MOV
ERROR
CLR
ADD
BIT

BNE
JMP

ADD
RTS

#100., (SP)

#RDY ,RPCS(R4)
5%
(SP)

2%
19
PC,SAVRP
#48 ,SESCAPE
101
SESCAPE
¥4 ,SP
#5W09 ,aSwR

CONRDY
@BYPASS

¥4 ,SP
PC

;CONTROLLER READY ?
;BR IF READY
JWAIT TIME: APPROX 1

JANY TIME LEFT N WAIT LOOP ?
;BR IF NOT
;VALUE FOR APPROX 1 MS
;CONTROLLER READY ?
;BR IF READY
;COUNT SOME TIME

;BR

010046

SECNBR:

MOV

RO,-(SP)

NOT

FINISHED

;COUNT MAJOR TIME AGAIN
JSTORE RP11 REGISTERS FOR ERROR MESSAGE
;ESCAPE TO 43 ON ERROR
;CONTROLLER TIMED OQuT
JCLEAR THE 'ESCAPE' FLAG
;CORRECT THE STACK POINTER
;LOOP ON THE ERROR ?
;BR [F LOOPING
;'BYPASS' THE TEST
JCORRECT THE STACK POINTER
JRETURN

;ROUTINE TO DETERMINE THE NUMBER OF
024002

SEC

:CLEAR WORKING LOCATION

SECTORS ON THE

: SAVE RO

DRIVE BEING TESTED

CZRPY-D, RPI1 ~E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD. P11
TRAP TABLE
22-APR-78 14:42

(=]
—=O 0
——d

NO VS W
WO

b —
b

el
b
b
b

and
b
b

nd
el

emd e

el
wmd

e
—

-—t

VIV TV TV TV TV IV 1V IV 1V ) A%,]

5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108

024004
024012
024016
024020
024024
024032
024034
024040
024044
024046

012737
005037
005000
113700
136037
001404
006337
006137
012600
000207

117230

001244

002500
001360

001304

001246

001244
001246

Mov
CLR
CLR

1%:

30A(1052)

8
22-APR-78

#40600. ,PAKSIZ
PAKSIZ+2
RO

14:43

PAGE

100

SEQ

;START WITH THE NUMBER OF
;AN RPO2
;USE RO AS AN INDEX

Move
BITB
BEQ
ASL
ROL
Mov

DPB.RO
;GET THE DRIVE NUMBER
ATABIT(RO) ,ODRVTYP
;IS THE DRIVE AN RPO3
1%
;B8R [F NOT
PAKSIZ
;DOUBLE THE SECTOR COUNT
PAKSIZ+2
;GET THE CARRY
(SP)+,RO
;RESTORE RO

RTS

SECTORS ON

sRETURN

JROUTINE TO SELECT A PATTERN
024050
024052
024056
024064
024066
024072
024076
024100
024106
024110
026112

010046
005237
022737
101002
005037
013700
006300
036037
001761
012600
000207

001204
000020

001204

001204
001204
001400

PATSEL:
1%:

2%:
001300

024252
024256
024260

005737
001066
005737
003017
005737
001460
023737
103010

013737
000337
005037
000410
013737
163737
005637
005046
113716
063716
121627
002404
162716
105237
111637
113716
063716
121627
002404
162716

RO,-(SP)
PATNUM
#16. ,PATNUM

; SAVE RO
; INCREMENT THE PATTERN NUMBER
;NUMBER AT MAXIMUM

ASL

;CONVERT

BHI
CLR
mov

BIT
BEQ
MOV
RTS

JROUTINE

024114
024120
024122
026126
024130
024134
024136
024144
024146
024154
024160
024164
024166
024174
024202
024206
024210
024214
024220
024224
024226
024232
024236
024242
024246

MOV
INC
CMP

001260

001254

001244
002504
001244

002504

001256
001254
001246

002504
001244

000012
002513
002512
002513
001252
000024

000024

INCREMENT

THE

DISK

OPRSEL
5%

BGT

THIS PATTERN ?

PAKSIZ+?2

THE PACK IS REACHED

;USING AN OPERATOR
;BR IF YES

SPECIFIED ADDRESS

;BR

AN UPPER COUNT

;BR

;LOWER

CMP
BHIS
MoV
SWAB
CLR
BR

PAKSIZ,BLKS14
1%
PAKSIZ,$WC
$W(
PAKSIZ

;ENOUGH SECTORS LEFT FOR A FULL
;BR IF THERE ARE
;USE THE RESIDUE COUNT FOR THIS
:CONVERT TO A WORD COUNT
;FORCE COUNT TO ZERO

;SECTORS LEFT ?

PAKSIZ

COUNT

ZERO

TRANSFER
TRANSFER

Mov

2%
WC14,3uW(C

sus
S8(

BLKS14,PAKSIZ
PAKSIZ+2

Move

$SEC, (SP)

;GO AND INCREMENT THE ADDRESS
;USE THE STANDARD WORD COUNT
;DECREMENT THE TOTAL SECTORS AVAILABLE
s SUBTRACT ANY CARRY
sCLEAR THE STACK
;GET CURRENT SECTOR

CMPB
BLT
sus

(SP),#10.
3$
#10.,(SP)

;EXCEED THE MAXIMUM ?
:BR [F NOT
:CORRECY THE RESIDUE

Mov8

(SP),$SEC

CLR

ADD

3$:

FOR

18T

BEQ

2%:

SET

IN USE

INDEX

ADDRESS

TST
BNE

1%:

TABLE

;RETURN

INCADR:

001244

INTO A

BITS(RO) ,PATTRN ;INUSE INDICATOR
1%
;BR IF NOT
(SP)+,RO
;RESTORE RO

RETURN ¢+ 2 WHEN THE END OF

TST

001244

;BR [Ff NOT
;START AT ZERO AGAIN
;SEE IF THE PATTERN IS

001246

002512
001250
000012

2%
PATNUM
PATNUM,RO

INCB

-(SP)

INCSEC, (SP)

$TRK

MOVB
ADD

$TRK, (SP)
INCTRK, (SP)

BLT
sus

3
#20.,(SP)

(mMPB

(SP),#20.

sADD

THE

SECTOR

; INCREMENT

THE

INCREMENT

TRACK

;NEW SECTOR ADDRESS
:GET
;ADD

CURRENT TRACK VALUE
THE TRACK INCREMENT

JEXCEED THE MAXIMUM ?
;BR IF NOT
;CORRECT THE

SIZE

0099

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
TRAP TABLE
CZRPYD P11
22-APR-78 14:42

5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5168
5169
5170
517
5172

5173
5174
5175

024264
024270
024274
024276
024302

005237

112637
000402
062716
000207

002510
002513
000002

104412

013701
005003
005021
005021
010321
005203
022703
001371
104413
000207

002506

LODSEC:

JEXIT
s INCREMENT RETURN - AT END
;RETURN

SAVREG

A BUFFER

Mov

$BUF ,R1

CLR

(R1)+

CMP
BNE

RESREG
RTS

104412

295003
113703
001002
012703
013702
013701
010321
005302
001375
104413
000207

FILSEC:

002512
000012
002504
002506

WITH

THE

SEQUENTIAL

;SAVE

18:

2%:

104412
012701
013702

005003
113711

062701
005302
001372
104413
000207

043657
002504

002513
000002

FILTRK:

;THIS

FOR

RO - RS

sSECTOR COUNTER

(R1)+
R3,(R1)+
R3

;CYLINDER/TRACK WORD OF HEADER
;SECTOR ADDRESS
; INCREMENT THE SECTOR ADDRESS
;FINISHED ?
;BR [F NOT

;UPPER WORD OF

#10.,R3
1%

;RESTORE
sRETURN

;STORE

HEADER

RO - RS

(CONTAINED IN

'SSEC')

RO-R5

BNE
Mov
Mov
MoV
Mov
DEC
BNE
RESREG

1%
#10.,R3
$WC,R2
$8UF ,R1
R3,(R1)+
R2
2%

;BR IF NOT SECTOR ZERO
;USE 10. AS VALUE FOR SECTOR ZERO
;WORD COUNT
;sBUFFER START ADDRESS
;MOVE DATA INTO THE BUFFER
;DECREMENT THE COUNTER
;BR IF MORE TO DO
;RESTORE RO-RS5

RTS

;RETURN

;CLEAR THE

$SEC.R3

INDEX

;SECTOR ADDRESS

TO FILL THE BUFFER WITH THE TRACK ADDRESS
SAVREG
Mov
MoV

ROUTINE

(CONTAINED

104412

013700
006300
013701

001204
002506

SETBUF:

SAVREG
MoV
ASL
Mov

IN 'STRK')

#BUFFER+1,R1
$WC,R2

;STORE RO-RS
;BUFFER ADDRESS
:WORD COUNT

R3
$TRK, (R1)
#2.R1
R2
1%

;CLEAR THE DATA STORAGE
;MOVE TRACK ADDRESS INTO THE BUFFER
; INCREMENT THE BUFFER POINTER
;DECREMENT THE COUNTER
;BR IF MORE TO DO

PC
WILL

MOVE

;BUFFER ADDRESS

THE

;RESTORE
:RETURN
16 WORDS

RO-R5

THE

;DESIRED PATTERN INTO THE DATA BUFFER.
024432
024434
024440
024442

CYLINDER

CLR
MovB
ADD
DEC
BNE
RESREG
RTS

1%:

HEADERS

CLR

MOovB

;ROUTINE
024376
024400
024404
024410
024412
024416
024422
024424
024426
024430

SAVREG

CYLINDER ADDRESS

;NEW TRACK ADDRESS

;FILL THE BUFFER WITH THE SECTOR ADDRESS
024336
024340
024342
024346
024350
024354
024360
024364
024366
024370
024372
024374

SEQ 0100

63
#2,(SP)
PC

(SP)+,$TRK

THE

101

BR
ADD
RTS

CLR
Mov
INC

000012

PAGE

s INCREMENT

CLR

1$:

14:43

$CYL

JROUTINE TO SE;UP
.
TRACK

024304
024306
024312
024314
024316
024320
024322
024324
024330
024332
024334

22-APR-78

INC

MovBs

5% :
6%:

30A(1052)

PATNUM,RO
RO
$BUF ,R1

:SAVE RO - RS
;GET THE PATTERN NUMBER
; CONVERT NUMBER TO INDEX
;FIRST ADDRESS

MACY11
CIZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
TRAP TABLE
CZRPYD PN
22-APR-78 14:42

5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190

5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212

024446
024452
026456
024462
024464
024466
024470
024472
024474
024476
024500

013702
016003
012704
012321
005302
001403
005304
001767
000772

002504
001440
000020

1%:

2$:

3%:

104413
000207

MoV
Mov
Mov
MoV

DEC
BEQ
DEC
BEQ
B8R

RESREG
RTS

30A(1052)

8
22-APR-78

$W(,R2
PAT.PT(RO),R3
#16.,R4
(R3)+,(R1)+
R2

14:43

PAGE

024562

024564
024572
024574
024602
024610
024612

013737
013746
042716
006316
006316
006316
006316

112637

001224
001226
177774

002506

ASL
ASL
ASL
Movs
Mov
ASL
ADD
ADC

002501
002504

001224
001226
001226

001236

023737

001224

001234

013737
013737
000734
000207

001240
001242

001224
001226

103407

MOV

BIC
ASL

013746
006316
062637
005537
023737
101005
103413

GETBUF: Mov

CMP
BHI

8LO
1%:

2$:
sTHIS

CMP
8LO

Mov
MoV

RTS

ROUTINE

SEQ 0107

JWORD COUNT
;PICKUP PATTERN POINTER
;PATTERN COUNTER

;MOVE WORD 'N'

INTO DATA BUFFER

;DECREMENT THE COUNTER
;BR IF DONE
;DECREMENT THE PATTERN COUNTER
JSTART PATTERN AGAIN
s CONTINUE

;RETURN

R4
1%

;RESTORE RO - RS

;THIS ROUTINE LOADS THE PHYSICAL TRANSFER ADDRESS
024502
024510
024514
024520
024522
024524
024526
024530
024534
024540
024542
024546
024552
024560

102

INTO

'SBUF'

ACTMEM, $BUF
;LOWER 16 BITS OF PHYSICAL ADDRESS
ACTMEM+2,~(SP)
;UPPER ADDRESS BITS ON THE STA(CK
¥ (3,(sP)
sLEAVE ONLY THE LOWER 2 BITS
(SP)
;ALIGN UPPER ADDRESS BITS
(SP)
:ALIGN UPPER ADDRESS BITS
(SP)
;ALIGN UPPER ADDRESS BITS
(SP)
;ALIGN UPPER ADDRESS BITS
(SP)+,DPB+1
.LOAD 'MEX' BITS
$WC,-(SP)
;PUT WORD COUNT ON THE STACK
(SP)
;DOUBLE THE WORD COUNT
(SP)+,ACTMEM
;FORM NEXT STARTING ADDRESS
ACTMEM+?
sADD ANY CARRY
ACTMEM+2
, HIMEM+2
JEXCEEDING HIGHEST BANK ADDRESS
19
;BR IF HIGHER

;BR [F LOWER
;CHECK LOWER 16 BITS
23
;BR IF LOWER
LOMEM, ACTMEM
JRESET ADDRESS
LOMEM+2 ,ACTMEM+2
.UPPER ADDRESS BITS
23

ACTMEM,HIMEM

GETBUF

: TRY AGAIN
sRETURN

COMPARES

WORD

DATA

PATTERN AGAINST

THE

CZRPY=D, RP11~E FUNCTIONAL LOGIC & R/W TEST
MACY11
CIRPYD.PIN
22-APR-78 14:42
TRAP TABLE

5213

;DATA BUFFER.

30A(1052)

THE

22-APR-78

PATTERN NUMBER

14:43

PAGE

'PATNUM'

103

SEQ 0102

(2
4

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.P1
22-APR=-78 14:42
TRAP TABLE

5214
5215
5216
5217

024614
024616
024622

104412
005737
001510

001222

DATCMP:

SAVREG
TST
BEQ

30A(1052)

MMACTV
2%

8
22-APR-78

14:43

PAGE

104

; SAVE RO-R5
;MEMORY MANAGEMENT ACTIVE
;BR IF NOT

SEQ 0103

(2
czl

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
TRAP TABLE
CZRPYD P
22=-APR=78 14:42

5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242

5243
5244
5245

2246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273

024624
024630
024636
024644
024652
024654
024656
024664
024670
024672
024674
024676
024700
024704
024706
024712
024714
024716
024724
024732
024740
024746
024754
024762
024770
024776
025004
025012
025020
025022
025030
025036
025044
025050
025054
025056
025062
025066
025072
025100
025106
025110
025114
025122
025130
025136
025144
025152
025160
025166
025174
025200
025204
025210
025214
025222

005037
012737
012737
012737
005046
005046
013766
113716
006216
006216
006216
006216
012703
006216
006066
005303
001373
042766
016637
062766
016637
012737
012737
012737
012737
012737
012737
023727
101411
062766
016637
012737
013701
005737
001425
042701
052701
062706
012737
012737
000402
062706
012737
012737
013737
063737
013737

113737
113737
013737

005237
010137
005037
005037
023727
101003

172340
000200
000400

CLR

MoV
mov
mov

177600

002506
002501

000002

000006

1%:

000002

000177
000002
000200
000002
077406
077406
077406
077406
077406
077406
002504

000002
172346
000002
172350
172300
172302
172304
172306
172310
172316

000200
000002
077406
002506
001222

000002

140000
060000
000004
025110
000020

000004
000006
000001
001342
002504
00251¢
002513
002512
001320
025416
025430

025412
025414

025420

CLR
CLR

ASR

ROR
DEC
BNE
BIC
MoV
ADD
MoV
MCV
MoV
MOV
MOV
MOV
MOV

010000
172352
172312

MoV
MOVB
ASR
ASR
ASR
ASR
MoV

CHp
BLOS

2s:

ADD
MoV
MOV
MOV
TST

BEQ
BIC
8IS

000004
172516
000004
177572
025420
025420
025422
025426
025424
025416

3s:

CMPAR:

CMSTR:

ADD
MoV
MoV
BR
ADD
MOV
mov
MOV
ADD
nov
MOvVB
Move
Mov

INC

noy

000400

(LR
(LR

(up

30A(1052)

8
22-APR-78

K1PARO
#200,KIPART

#400,KIPAR?2

#177600,K1PAR7

-(SP)
-(SP)
$BUF ,2(SP)
OPB+1, (SP)
(SP)
(SP)
(SP)
(SP)
#6,R3
(SP)
2(SP)
R3
1%
#177,2(SP)

2(SP) ,KIPAR3
#200,2(SP)
2(SP) ,KIPAR4

#77406 ,KIPDRO
#77406 ,K1PDR1
#77406 ,KIPDR2
#77406 ,KIPDR3
#77406 ,K1PDR4
#77406 ,KIPDR7

$WC,#4096.

#200,2(SP)
2(SP) ,KIPARS
#77406,KIPDRS
$BUF ,R1

MMACTV
CMPAR
#140000,R1

#60000,R1

#4,SP

14:43

PAGE

105

SEQ 0104

;LOAD ADDRESS REGISTER 0
;LOAD ADDRESS REGISTER 1
;LCAD ADDRESS REGISTER 2
SACCESS TO 1/0 PAGE
;MAKE ROOM ON THE STACK

sMAKE

ROOM ON

THE

STACK

;LOWER 16 BITS OF STARTING ADDRESS
;UPPER ADDRESS BITS
sRIGHT JUSTIFY THE ADDRESS BITS
;RIGHT JUSTIFY THE ADDRESS BITS
sRIGHT

JUSTIFY

THE

ADDRESS BITS

;RIGHT JUSTIFY THE ADDRESS BITS
;LOAD COUNTER
; CONVERT ADDRESS TO BLOCK ADDRESS
;LOWER 16 BITS
;sDECREMENT THE COUNTER
sCONTINUE UNTIL FINISHED
;CLEAR LOWER BLOCK ADDRESS BITS
;LOAD ADDRESS REGISTER 3
s INCREMENT BLOCK ADDRESS BY 4K
sLOAD ADDRESS REGISTER # 4
;LOAD DESCRIPTOR REGISTER # 0
;LOAD DESCRIPTOR REGISTER # 1
sLOAD DESCRIPTOR REGISTER # 2
;LOAD DESCRIPTOR REGISTER # 3
sLOAD DESCRIPTOR REGISTER # 4
;LOAD DESCRIPTOR REGISTER # 7
;WAS TRANSFER GREATER THAN 4K ?
:BR IF NOT
;INCREMENT THE ADDRESS BY 4K
;LOAD ADDRESS REGISTER # 5
;LOAD DESCRIPTOR REGISTER # 5
;LOAD STARTING ADDRESS
sMEMORY MANAGEMENT ACTIVE ?
;BR IF NOT
: CHANGE PHYSICAL BASE TO VIRTUAL BASE
;START AT VIRTUAL 12K
;CORRECT THE STACK POINTER
: CHANGE THE ERROR VECTOR

#3% ERRVEC
#20,8#SR3
;ENABLE 22 BIT ADDRESSING MODE
3]
;BR IF AN 11/70
2 ,5P
;CORRECT THE STACK POINTER
#ERRVEC+2 ,ERRVEC
;RESTORE THE ERROR VECTOR
#1,8#5R0
;ENABLE MEMORY MANAGEMENT
SRPWC,CMCNT
:WORD COUNT TO WORKING LOCATION
SWC, CMCNT
: CALCULATE ACTUAL WORDS TRANSFERED
$CYL,CACYL
;CYLINDER ADDRESS
s TRACK ADDRESS
$TRK,CMTRK
$SEC,CMSEC
;SECTOR ADDRESS
CT LINIT
cmP
;DISPLAY LIMIT
LINIT
;CONVERT PARAMETER INTO LIMIT VALUE
R1, CMBUF
STARTING ADDRESS OF SECTOR BUFFER
FRSTER

ERCTR
(MCNT
, 8256.
19

sCLEAR

'FIRST ERROR'

;BR

INDICATOR

;CLEAR ERROR (OUNTER
;1S BUFFER SIZE GREATER THAN ONE
IF

SEZTOR

cZl
czl

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PIN
TRAP TABLE
22-APR-78 14:42
5274

5275
5276
5277
5278
5279
5280
5281
5282
5283

5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294

5295
5296

5297
5298
5299

5300
5301
5302
5303
5304
5305

025224
025230
025232
025236
025242
025246
025250
025254
025260
025262
025264
025272
025274
025300
025302
025304
025306

025420

013702
000402
012702
160237
013704
006304
012703
016405
022125
001406
032777
001002
004737
005302
001403
005303
001364
000757
004737
005737
003424
005237
023727

025424
025424

00001 2

005037
005237
023727

025424
025426
025426

000024

025310
025312
025316
025322
025324
025330
025336
025340
025344
025350
025356
025360
025364
025370
025374
025376
025402
025404
025410

005237
000137
104413
005737
001402
005037
000207

025412
025414
025416
025420
025422
025424
025426
025430

000000
000000
000000
000000
000000
000000
000000
000000

103713

103703

005037

mov

000400

025420
001204
000020
001440
000010

CMDAT:

R4
#16. ,R3
PAT.PT(R4)
RS

BEQ
BIT
BNE

28
#SW03,3SWR
2%

005737
001037
005737
001011
012737
112737
004737
000412

BEOQ

1$:

ERCTR:
LIMIT:
CMCNT:
CMCYL:
CMSEC:
CMTRK:
(MBUF:

025412

CMPRT:

001222

025446
000102
017254

;COMPARE BUFFER WITH PATTERN
;BR IF EQUAL

;SWITCH 3 SET ?
;BR [F NOT

;BR WHEN AT END

THE

ERROR

;DECREMENT SIZE COUNT

;DECREMENT PATT POS COUNT
sBR IF NOT AT END OF PATT
sRESTART THE PATTERN
;PRINT LAST LINE (IF ERRORS)

JSR

PC,ENDCMP
CMCNT

;AT

BLE
INC
CMP
BLO
CLR
INC

CMPRX
CMSEC
CMSEC,#10.
CMSTR
CMSEC
CMTRK

;BR IF AT END
; INCREMENT SECTOR
;SECTOR GREATER THAN MAX ?
;BR IF NOT GREATER THAN MAX
sCLEAR SECTOR ADDRESS
; INCREMENT TRACK

BLO
CLR
INC
JMP
RESREG

CMSTR
CMTRK
cmMeyL
CMSTR

;BR If NOT GREATER
SRESET (RACK ADDRESS
; INCREMENT CYLINDER ADDRESS
;CONTINUE WITH COMPARE

TST

MMACTV

BEQ
CLR

1$
8#SRO

sMEMORY MANAGEMENT ACTIVE

.WORD

.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
DATA

CMTRK ,#20.

TST
BNE

BNE

END OF

:TRACK

GREATER

;WORD

COUNT

;CYLINDER ADDRESS
:SECTOR ADDRESS

; TRACK

ADDRESS

;BEGINNING ADDRESS OF

SECTOR

ERRORS

FRSTER
CMPRTI

MMACTV

;FIRST ERROR?
.BR IF NOT
;MEMCRY MANAGEMENT ACTIVE
;BR IF ACTIVE

;PC

JSR

PC,TYPERR

;REPORT

#102,81TEMB

;BR IF NOT
;TURN OFF MEMORY MANAGEMENT

¥. SERRPC

B8R

THAN MAX

;RESTORE RO - RS

MoV

Mmove

BUFFER

;FIRST ERROR INDICATOR
:NUMBER Of ERRORS
;DISPLAY LIMIT

0
O
O
0
O
0
O

COMPARE

TST

00111 6
00111 4

sPATTERN ADDRESS

;TYPE

1$
CMDAT

RTS

FRSTER:

INTO AN INDEX

;R3 IS PATTERN POSITION COUNTER

TST

177572

;GENERATE

DEC

BNE
BR

CMPRX:

SEQ 0105

sPATTERN NUMBER

PC,CMPRT

CMpP

:TYPE

025432
025436
025440
025444
025446
025454
025462
025466

(R1)+,(RS)
¢

DEC

3s:

001222

PATNUM,
R4

JSR

106

; COMPARE SECTOR
;DECREMENT WORD COUNT

ASL
MOV
Mov

CMP

PAGE

;LESS THAN, USE REMAINING BUFFER

#256.,R2
R2,CMCNT

Mov

14:43

CMCNT,R2

2$:

025426
025422
025166

9
22~APR-78

Mov
suB

153646

025630
025420

1%:
2$:

1%:

025432

30A(1052)

FOR

ERROR MESSAGE

; COMPARSION ERROR MESSAGE NUMBER
THE

. CONTINUE

ERROR

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
TRAP
22-APR-78 14:42
TABLE

5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385

025470
025474
025502
025510
025514
025522
025526
025530
025536
025542
025544
025550
025552
025560
025562
025566
025574
025602
025610
025616
025622
025626

005037
012737
112737
004737
012737
005737
001403
012737
005737
001403
005337
001004
032777
001420
010137
162737
016537
016137
112737
004737
005237
000207

177572

025474
000103
017254
177777
001222
000001
025416

001116
001114

02541 2
177572

1%:

2s:

CMPRT1:

001122
000002
177776
177776
000104
017254
025414

153360
001122
001124
001126
001114

005737
001406
012737
104105
005037
000207

025414

025646

LIMIT

MOV

R1,$BDADR
#2,38DADR

sus

#1046 ,817EMB

Mmovs
JSR
INC
RTS

:BR IF

IT HAS

:PRINT

ALL

;DECREMENT LIMIT COUNTER
;BR IF NOT AT LIMIT

=2(R5) ,$GDDAT
=2(R1),$BDDAT

Mov
MoV

PC,TYPERR

ERCTR

DATA

COMPARE

ERRORS

:BR [F NOT
s ADDRESS OF BAD WORD
;ADJUST ADDRESS
:GOOD DATA
;BAD DATA
sERROR TABLE INDEX
;DISPLAY WORD THAT DIDN'T COMPARE
;COUNT THE ERROR
;RETURN

COMPARE ERROR REPORTING

BEQ

mov

ERROR
CLR

2%:

107

:TYPEOUT LIMIT REACHED

BEQ

1%:

PAGE

. COMPARSION ERROR MESSAGE WiTH MM REGISTERS
;REPORT THE COMPARSION ERROR
sSET FIRST ERROR INDICATOR
sMEMORY MANAGEMENT ACTIVE ?
;B8R IF 0T
;ENABLE MEMORY MANAGEMENT AGAIN

CMPRTI

2%:

001164

14:43

:TURN OFF MEMORY MAMNAGEMENT
;PC FOR ERROR MESSAGE

#1,3#SR0

#5W04 ,85WR

ENDCMP:

001164

a8#SRO

BIT

38:

22-APR-78

¥., SERRPC
#103,$17EMB
PC,TYPERR
#-1,FRSTER
MMACTV

1%:

sLAST LINE OF
025630
025634
025636
025644
025646
025652

SEQ 0106

CLR
Mov
Move
JSR
Mov
TST
BEQ
MOV
TST
BEQ
DEC
BNE

025416
000020

30A(1052)

RTS

ERCTR

sSEE

ANY ERRORS

;BR [F NONE
;;ESCAPE TO 18 ON ERROR
;NUMBER OF COMPARE ERRORS
sCLEAR THE ERROR ESCAPE ADDRESS
;RETURN

#18,SESCAPE
105
SESCAPE
PC

;ROUTINE TO CLEAR THE RP11E

;THE FIRST 'CLEAR' TERMINATES ANY ORDER WHICH IS IN PROGRESS.
:'ELE::'
;'

025654
025662
025664
025666
025670
025676

012764
051616
051616
051616
012764
000207

000001

000004

‘.

CLEARS THE

INOTE:

R4 MUST

CONTAIN THE

CLRP:

Mov

#CLEAR ,RPCS(R4)
(SP), (SP)
(SP), (SP)

000004

BIS
BIS
BIS
MoV
RTS

THE

SECOND

'PROGRAM ERROR' WHICH MAY HAVE BEEN SET BY THE FIRST

(SP), (SP)

BASE

#CLEAR,RPCS(R&)
PC

ADDRESS OF

THE

RP11E

;CLEAR THE RPI11
;DELAY FOR...
s .. AT LEAST
:...4 MICROSECONDS.
;CLEAR THE RP11
;RETURN

SROUTINE TO SIZF MEMORY AND TO SETUP FOR TEST 14
025700
025706

012737
004737

000200
022174

025712
025716
025720
025726

005737

022232

023727

022500

100060

101003

022232

001540

SIZMEM:

6%:

MOV

JSR
TST
BPL
CMP
BHI

#BIT07,8kT1
PC.$5112¢

$KT1

2%
SLSTBK, #1540
1%

;TELL THE

;FIND OUT

°'SIZE' ROUTINE TO USE MM

HOW MUCH MEMORY

AND

;SYSTEM HAS A KT11
;D0ES THE SYSTEM HAVE A KT11
;BR [F NOT
;MORE

THAN 28K ON THE

:BR [F MORE THAN 28K

SYSTEM ?

THE

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P
TRAP TABLE
22-APR-78 14:42

5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400

5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5611
5412
5413
5614
5415
5416
5617
5418
5419
5420
5421
5622

56423
5624
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441

025730
025734
025736
025744
025752
025756
025762
025766
025772
025776
026002

026006
026012
026016
026022
026026

026032
026036
026044
026050
026056
026060
026066
026074
026100
026106
026114
026116

026122

026126
026130
026136
026140
026146

005037
000764
012737
013737
005037
006337
006137
006337
006137
006337
006137
006337
006137
006337
006137
006337
006137
063737
005537
012737
000433
013737
013737
005037
013737

162737
000241
006037
105737
001004
162737

000403

162737

000207

022232
157776
022500
001232
001230
001232
001230
001232
001230
001232
001230
001232
001230
001232
001230
001232
022476
001232
020000

022476
022476
001232
001230
043656

1%:

001264
001302
001230

2s:

002734

ASL
ROL
ASL
ROL
ASL
ROL
ASL
ROL
ASL
ROL
ASL
ROL
ADD
ADC
MOV
BR
Mov
MOV

MAXMEM

MAXMEM+2

MAXMEM
MAXMEM+?2
MAXMEN
MAXMEM+?
MAXMEM
MAXMEM+?2
MAXREM

MAXMEM+?2
SLSTAD,MAXMEM
MAXMEM+?2
#8192. ,MAXWC
S$
SLSTAD ,MEMS]Z
SLSTAD,MAXMEM

MAXMEM+?2
MAXMEN
, MAXWC
#BUFFER ,MAXWC

Mov

SuB
CLC

MAXWC

ROR

000041

001264

$%:
4%

5¢:

9
22-APR-78

MAXMEM+?
MAXMEM
MAXMEM+?2

CLR

001264
001264

001264
000144

BR
MOV
L [o}'}

CLR

001230

$KT11
6%
2157776 ,MEMS12Z
SLSTBK,MAXMENM

CLR

001302
001230

30A(1052)

TS18
BNE

3
#100. ,MAXWC

SUB

BR
SUB

PAGE

108

SEQ 0107

sCLEAR MEMORY MANAGEMENT INDICATOR
;D0 IT AGAIN WITH MEM. MAN. DESELECTED
JADDRESS OF LAST NON MEMGRY MANAGEMENT LOCATION

;HIGH MEMORY BANK

ADDRESS

sCLEAR UPPER MEMORY ADDRESS BITS

;CONVERT THE BANK COUNT [NTO AN
;ABSOLUTE MEMORY ADDRESS
;CONVERT THE BANK COUNT INTO AN
;ABSOLUTE MEMORY ADDRESS
;CONVERT THE BANK COUNT

INTO AN

;ABSOLUTE MEMORY ADDRESS
;CONVERT THE BANK COUNT INTO AN
;ABSOLUTE MEMORY ADDRESS
;CONVERT THE BANK COUNT INTO AN
;ABSOLUTE MEMORY ADDRESS
;CONVERT THE BANK COUNT INTO AN
JABSOLUTE MEMORY ADDRESS
;ADD THE SIZE OF THE LAST BANK
;HANDLE

ANY

CARRY

JSETUP FOR MAXIMUM TRANSFER SIZE
JEXIY
JHIGH NON MEMORY MANAGEMENT ADDRESS
;HIGH NON MEMORY MANAGEMENT ADDRESS
;DON'T NEED THE UPPER WORD
;CONVERT MEMORY SIZE TO WORD COUNT
sSUBTRACT STARTING ADDRESS OF BUFFER
;CLEAR THE 'C® BIT
;CHANGE TO WORD COUNT
;SEE WHICH LOADER
IF

'XXDP'

;'XXDP'

SIZE

;BR

:éA??' LOADER SIZE

JEX

JRETURN

#1500. ,MAXW(

RTS

14:43

(PLUS A LITTLE BIT)

;THIS ROUTINE IS USED TO ENSURE THAT THE BUS ADDRESS
;OF THE RP11 IS SETUP TO READ THE PROPER VALUE.
sIT WILL ALSO READ THE ADDRESS FROM THE TTY [F
JREQUIRED.

026150
026154
026156
026162
026166
026172

005737
001425
005037

026176
026200
026201
026202
026206
026210
026212
026216

104403
006

104401
104401

013746

001

104401
104411

012601
004037
026162

001216
001216
001173
032162
00132¢

JNOTE:

THIS

GETADR:

TST
BEQ
CLR
TYPE

1%:

ROUTINE

TYPE
MOV

DESTROYS

BUSADR

L SCRLF
.MRPADR

RPADR,-(SP)

TYPOS

031322
027136

.BYTE
.BYTE

TYPE
ROLIN
Mov

JSR
18

6
1

.SLASH

(SP)+,R1
RO,CK.NUM

RO =~

; INPUT FROM TTY REQUESTED?
:NO=-=BRANCH

;YES=-CLEAR THE REQUEST FLAG
;CR=LF

. 'RPADR="'

;; SAVE RPADR FOR TYPEOUT

::RP11 ADDRESS

;.60 TYPE--OCTAL ASCII

;:TYPE 6 DIGIT(S)

:i;!PE LEADING ZEROS

;GET THE ENTRY
;STARTING ADDRESS OF
;CHECK THE NUMBER
; ILLEGAL INPUT

INPUT ASCII

STRING

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
TRAP TAB LE
22-APR-78 14:42

5642
5443
5644
5445
5446
5447
5448
5449
5450
5651
5652
5453
5454
5455
5456
5457
5458
5459
5460
5461
5462
5463
5464
5465
5466
5467
56468
5469
5470
547
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492

5493
5494
5495
5496
5497

026220
026222
026224
026230
026234
026242
026246
026252
026254
026260
026262
026270
026272
026276
026302
026304
026310

026226
026230
010237
013701
012737
005777
010137
000207
010137
022626
012737
104001

005037
005737
001727
005037

000137

001324
000004
026254
153056
000004

000004

026272

2%:
3s:

026464
026470
026472

104401
104411

012601
004037
026314
026336
026362
022702
101764
006302
016237
006202
010246
000405
012737
012746
005037
004737
012737
005737
001403
012737
104401
104411

012601
004037
026426
026450
026524
022702
101764
116237
105762
003035
104401

MOV
Mov
Mov

TST
MOV
RTS
Mov

4%:

CMP

001164

001164
000042

MOV

ERROR
CLR

5%:

TST
BEQ
CLR
JMP

016776
016616
sTHIS

026314
026320
026322
026324
026330
026332
026334
026336
026342
026344
026346
026354
026356
026360
026362
026370
026374
026400
026404
026412
026416
026420
026426
026432
026434
026436
026442
026444
026446
026450
026454
026456

2%
33

031324

027136

001400

1%:

TYPE
ROLIN
MOV

2%
Cmp

BLOS
ASL
Mov

001276

2$:

ASR
MoV
BR
MoV
Mov

017777
177777
001312
022566
000312
001304

001276

001210

Mov
TST

000625
031352

001210

MoV
TYPE
ROLIN
mMov

ENTPR1:

JSR
1$

000010
001360
001370
031377

CLR
JSR

BEQ

02713¢

2%:

001312

9
22-APR-78

RZ,RPADR
ERRVEC,R1

2%
5%

14:43

PAGE

109

SEQ 0108

;TERMINATED WITH A '(R'
;NO ENTRY - 'CR" ONLY

;STORE THE ADDRESS
;SAVE THE ERROR VECTOR

#48 ERRVEC
dRPADR
R1,ERRVEC
PC
R1,ERRVEC
(SP)+,(SP)+
#5% ,$ESCAPE
1
SESCAPE

:SETUP FOR TRAP
;CHECK FOR RP11
;RESTORE ERROR VECTOR
sRETURN
;RESTORE ERROR VECTOR
;CLEAN OFF THE STACK
;.ESCAPE TO 5% ON ERROR
;REPORT THE ERROR
;CLEAR ERROR ESCAPE ADDRESS

1%
SEOPCT
$EOP

:NO--GO ASK FOR ADDRESS
;NO PASSES
;60 TO END OF PROGRAM

CT LY

;1S THERE A MONITOR?

ALLOWS THE OPERATOR
(CONVERSATION MODE)

JSR
ENTPRM
1%

1¢:

RO UTINE

ENTPRM:

000020

30A(1052)

LENTNM
(SP)+,R1
RO, CK.NUM

TO CONTROL

THE

PROGRAM

;'ENTER TEST NUMBER'
;GET THE ENTRY

sSTARTING ADDRESS
sCHECK THE NUMBER

s ILLEGAL INPUT

;TERMINATED WITH A

:NO ENTRY =

INPUT

‘(R

#$TN R2
ENTPRM
R2

;VALID NUMBER ?
;BR IFf NOT
. CONVERT INTO A BIT

R2,=(SP)
ENTPR1
#17777 ,TSTNMS

;SAVE THE TEST NUMBER ENTRY
;GET THE DRIVE NUMBER
;SELECT ALL TESTS

INDEX
BITS(R2),TSTNMS ;TEST SELECTION BIT
R2
;CHANGE BACK INTO A WORD COUNT

#-1,-(SP)
DRVSEL
PC,RPINIT

#202. ,MAXCYL
DRVTYP
13
#605. ,MAXCYL

.DRVNM
(SP)+,R1
RO, CK.NUM

sALL TESTS SELECTED
;CLEAR DRIVE SELECTION WORD
;CHECK THE DRIVE STATUS

;ASSUME ONLY RP0O2'S
:SEE WHICH TYPE
;BR IF ONLY RPQ2'S
;RPO3'S

JENTER DRIVE NUMBER
;GET THE ENTRY

;STARTING ADDRESS OF
; CHECK THE NUMBER

INPUT

:ILLEGAL INPUT

CmMp
BLOS

#8.,R2
1%

BGT

DRVSTA(RZ)
8%

;1S DRIVE ONLINE
;BR IF ONLINE

TYPE

STRING

'CR" ONLY

;TERMINATED WITH A '(R'
;NO ENTRY - "CR' ONLY
;VALID ENTRY ?
;BR [F NOT

MovB
TST18

ASCII

ATABIT(RZ) ,DRVSEL

.DRIVE

;DRIVE

;'DRIVE'

SELECTION BIT

ASCII

STRING

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PY
TRAP TABLE
22-APR-78 14:42

5698
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551

5552
5553

026476
026502
026504
026510
026512
026516
026522
026524
026526
026530
026532
026536
026540
026544
026546
026554
026556
026562
026564
026570
026572
026576
026600
026604
026606
026612

105762
100403
104401
000402
104401
104401
000724
005001
005716
100403
022716
101733
105761
003403
156137
005201
020127
103766
022726
001137
104401
104411
123627
001131
104401
013746

026616

104403

026620

026621
026622
026626
026632
026634
026636
026642
026644
026646
026650
026654
026656
026662
026664
026670
026674
026676
026700
026704
026706
026710
026712

026716
026722
026724

026730
026732

005
000

104401
104401
104411
012601

004037
026626
026650
026670
020237
101364

020237
101361
010237

104401
104411
072601

004037
026670
026712
026716
010237
104401
104411

123627
001057
104401

001370

TST8

027312

3%:

027276
001173

5%:

001370

000010

TYPE
TYPE
BR

(LR
TSY

BMI

000015

001360

BMI
TYPE
BR

6$%:

001312

7%:

000014

8%:

031406

ENTPRZ:

000131

031447
001264

(MP
BLOS
TSTB
BLE
BISB
INC
CmpP
BLO
cmp
BNE

TYPE
ROLIN
CMPB
BNE
TYPE
mov

TYPOS

001173
031523

.BYTE
.BYTE

1%:

027136

001264

TYPE
TYPE
ROLIN
MoV

JSR

28:

ENTPR3:

DRVSTA(RZ)
3s

LOFFLIN
31
JUNSAFE

14:43

PAGE

110

;CHECK DRIVE STATUS AGAIN
JBR IF UNSAFE
J'OFFLINE'

;CONTINUE
;"UNSAFE'

+SCRLF
ENTPRT

;CR=LF

:BR IF NOT

ENTPRX
. CHNGPM

;BR IF NOT
;CHANGE PARAMETERS FOR TEST 14 ?
;GET THE RESPONSE

;TRY

AGAIN

JCLEAR R1 - USE IT AS AN INDEX
;ALL TESTS SELECTED ?
L}
;BR IF THEY WERE
#15,(SP)
JTEST 15, 16, OR 17 SELECTED ?
19
;BR IF YES, SPECIFIC DRIVE NUMBER REQUIRED
DRVSTA(RY1)
;IS THE DRIVE ONLINE ?
7%
;B8R IF NOT
ATABIT(R1),DRVSEL
JSET THt SELECT BIT FOR THE DRIVE
R1
;INCREMENT THE DRIVE INDEX
R1,#8.
JREACHED MAXIMUM 2
R1
(SP)

#14,(SP)+

S(SPY+ #'Y
ENTPRX

.MXWRDS
MAXWC,
- (SP)

5
0

SCRLF
JENTWC

(SP)
¢+ ,R1
RO, CK.NUM

. CHNGPT

(SP)+ ,R1

02713¢

9
22-APR-78

SEQ 0109

R2,MAXWC
1%
RZ,LMTBK
1%
RC,W(14

001262
001256
031565

30A(1052)

RO, CK.NUM

;1S TEST 14 SELECTED ?

;'Y' ENTERED ?

;BR IF NOT
;"MAXIMUM WORD COUNT FOR TEST 14:
;:SAVE MAXWC FOR TYPEOUT
:.MAXIMUM WORD COUNT FOR TEST 14
;.60 TYPE--OCTAL ASCII

J:TYPE S DIGIT(S)

::SUPPRESS LEADING ZEROS
sCR-LF
;"ENTER WORD COUNT FOR

001300
031640

000131

031713

1%:

ENTPR4G:

;NO ENTRY

14°

'CR"

STRING

ONLY

;VALUE TOO LARGE ?
;BR IF TOO LARGE
sNEW WORD COUNT LARGER THAN 8k °
;BR IF LARGER

;LOAD NEW WORD COUNT

JENTER PATTERN CODE
;READ

THE

ENTRY

sSTARTING ADDRESS OF
;CHECK THE NUMBER
;ILLEGAL INPUT

JNO ENTRY

MoV
TYPE
ROLIN

R2,PATTRN
. CHNGAD

JPATTERN

(MPB
BNE
TYPE

S(SP)+, #'Y
ENTPRX

J'Y'

,ONEPAT

TEST

;GET THE ENTRY
;STARTING ADDRESS OF INPUT ASCII
;CHECK THE NUMBER
s ILLEGAL INPUT
;TERMINATED WITH A 'CR'

;TERMINATED WITH A

ENTPR4

'CR"

INPUT ASCII

STRING

'(CR'

ONLY

CODE

JUSE A SPECIFIC DISK ADDRESS ?
JREAD THE ENTRY
ENTERED

;BR IF NOT

;'A SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED:

MACY11
CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
TRAP TABLE
CZRPYD.PI
22-APR-78 14:42

5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
55N
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609

026736
026742
026744
026746
026752
026754
026756
026760
026764
026766
026772

026776
027000
027002
027006
027010
027012
027014
027020
027022
027026
027032
027034
027036
027042
027044
027046
027050
027054
027056
027062
027070

104401
104411
012601
004037
026736
026760

026736
020237
101364

010237
104401
104411

012601
004037
026772
027014
026772
020227
101364
010237
104401
104411

012601
004037
027026
027050
027026
020227
101364

010237
012737
000207

032054

1%:

30A(1052)

(SP)+,R1
RO, CK.NUM

001210

2%:

001266
032105

3%:

1%
CMP
BHI
Mov
TYPE
ROLIN
mMov

027136

JSR

CMP

4%:

001270
032133

027136

(SP)+,R1
RO, CK.NUM

;STARTING ADDRESS OF

001272
177777

001260

ENTPRX:

mov

JSR

RE TURN1

(K.0CT:

#ADR ,R1
RO,CK.OCT

000067
177770
1%:

¥
;THIS

ROUTINE

;NO ENTRY ~ °*(CR' ONLY
;VALID ENTRY ?
;BR [F NOT
;LOAD SECTOR ADDRESS
sSET ADDRESS FLAG
JRETURN
IF

AN ASCII

CHARACTER

DIGIT

;ADDRESS OF ASCII CHARACTER
;CHECK THE CHARACTER
;CHARACTER

IN RZ AS A

;OCTAL DIGIT
;CHARACTER IS NOT BETWEEN 0-7
1%
(R1).,#'7
1%
(R1),R2
# C7,R2

(RO)+
RO
WILL

;DETERMINE WHAT

ADDRESS

;'ENTER SECTOR ADDRESS'

TO CHECK

(R1),#'0

(mMPB
BLO
(MPB
BHI
Movs
BIC
BR
TST
RTS

‘'(CR’

;STARTING ADDRESS OF INPUT ASCII
sCHECK THE NUMBER
;s ILLEGAL INPUT
;TERMINATED WITH A '(CR'

USED

CHECK

STRING

ONLY

(SP)+,R1
RO, CK.NUM

RETURNZ

000060

*CR"

:TRACK

;VALID ENTRY ?
.BR [F NOT

#-1,0PRSEL

MoV
RTS

ROUTINE

sNO ENTRY

INPUT ASCII

R2,STRK
LENTSEC

;BETWEEN O AND 7.

000200

sCHECK THE NUMBER
;ILLEGAL INPUT
;TERMINATED WITH A

R2.#9.
5%
R2,SSEC

BHI
MoV

;BR If TOO LARGE
;LOAD CYLINDER ADDRESS
;"ENTER TRACK ADDRESS'
:GET THE ENTRY

JSR
5%
6%
5%
CmP

6$:

000011

111

;700 LARGE

R2.#19.

BHI
Mov
TYPE
RDLIN
Mmov

5%:

PAGE

R2,MAXCYL
1%
R2,SCYL
+ENTRK

000023

14:43

;'1F NOT, PATTERN 0 (ALL ZEROS) WwILL BE USED'
;'ENTER CYLINDER ADDRESS'
:GET THE ENTRY
sSTARTING ADDRESS OF INPUT ASCII STRING
sCHECK THE NUMBER
. ILLEGAL INPUT
;TERMINATED WITH A (R’
;NO ENTRY - 'CR' ONLY

LJENTCYL

JSR
1%

;THIS

027072
027076
027100
027104
027106
027110
027114
027116
027120

22-APR-78

SeEa 0110

TYPE
ROLIN
MOV

027136

;LESS THAN ZERO?
;YES == BRANCH
;GREATER THAN SEVEN?
JYES -- BRANCH
JGET THE CHARACTER
;STRIP AWAY THE ASCII
;BYPASS RETURN ADJUST
;ADJUST FOR RETURN

JRETURN
AN ASCII

CHARACTER

STRING

5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665

30A(1052)

105711
001002
005720
005201
011000
000200

(K.CHR:

1%:

9
22-APR-78

14:43

PAGE

112

SEQ 0111

JSR
RETURN
RETURN

RO,CK.CHR
ADR1
ADR?

;ADORESS OF ASCII CHARACTER
sCHECK CHARACTER
;UNKNOWN CHARACTER
;CARRIAGE RETURN * (R1)=ADR+1

TST8

(R1)

:""CARRIAGE RETURN'"?

Mov

027122
027124
027126
027130
027132
027134

BNE
ST
INC

#ADR,R1

:NO =~ BRANCH
;CARRIAGE RETURN
;MOVE

POINTER

TO NEXT

CHARACTER

; UNKNOWN CHARACTER

Mov
RTS

sRETURN

sTHIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS
sAND FOKMS AN OCTAL NUMBER IN R2
Mmov

027136
027140
027142
027146
027150
027154
027156
027160
027162
027164
027166
027170
027172
027174
027176
027200
027204
027206
027210
027212
027212
027216
027220
027222
027224
027226
027230
027232
027234

027236
027244

010346
005003
004037
000404
004037
027230
027222
005201
006303

CK.NUM:

027072

RETURN
RETURN

Mmov
CLR
JSR

R3,~(SP)
R3
RO,CK.OCT

BR
JSR
6%

027122

18:

103421

103417

BCS

6%
R3
6%
R2,R3
RO,CK.OCT
1%
R3,R2
R3

004037
027230
027224
005723
005723
060300
012603
011000
000200

027122

ADD

2$:

3s:

JSR
BR

MoV

CLR

JSR
6%
5%
TST

ST
ADD
MOV
MoV
RTS

0642012
051440

044522
040524

R3
6%

BCS

027072

1$
RO,CK.CHR

ASL
ASL

004037
000765
010302
005003

005015
042526

INC

BCS

006303

103415
060203

ASL

006303

#ADR,R1

RO, CK.NUM
ADR1
ADR2
ADR3

JSR
RETURN

.SBTTL

TELETYPE

DRSTAT:

LASCIZ

RO,CK.CHR

(R3)+
(R3)+
R3,.RO
(SP)+,R3
(RO) ,RO
RO

sADDRESS OF ASCIZ STRING
;GO FORM THE NUMBER
;ILLEGAL CHARACTER IN THE
;"'CR"'--R2=NUMBER
;'CR" WAS FIRST ENTRY

;SAVE R3
sSTART

NUMBER AT

;OCTAL DIGIT?

INPUT STRING

ZERO

s YES--BRANCH

:CHECK ONE CHARACTER
s ILLEGAL CHARACTER
s CARRIAGE RETURN
;MOVE TO NEXT CHARACTER
;FOR THE OCTAL NUMBER IN R3

;DON'T LET IT GET TO BIG

;IS THIS AN OCTAL DIGIT?
;YES--MAKE IT PART OF THE NUMBER
:SAVE THE OCTAL NUMBER
;START WITH ZERO

INDEX

;CHECK ONE CHARACTER
;ILLEGAL CHARACTER
sCARRIAGE RETURN

;'CR' ONLY
;'.CRCI

;YES--SAVE

;RESTORE R3

THE

OCTAL

NUMBER

;PICKUP EXIT ADDRESS
sRETURN

MESSAGES

<15><12><12>aDRIVE

STATUS:@<15><12><12>

[an
N an )

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
TRAP TABLE
22-APR-78 14:42

5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
5713
5714
5715
5716
5717

5718
5719
5720
5721

027252
027260
027262
027270
027276
027304
027312
027320
027326
027327
027334
027336
027344
027345
027352
027360
027366
027372
027377
027401
027406
027414
027422
027430
027433
027440
027446
027454
027456
027464
027472
027500
027506
027514
027522
027530
027536
027542
027550
027556
027564
027572
027600
027606
027614
027617
027624
027632
027640

027646
027652
027660
027666
027674
027702

052524
000012
020040
046116
020040
051516
020040
043106
000
040

035123

005015

020040
047111
020040
043101
020040
044514

047440
000105
052440
000105
047440
062516

051040

22-APR-78

ONLINE:

.ASCIZ

ONLINEQ

UNSAFE:

.ASCIZ

UNSAFEQ

OFFLIN:

.ASCIZ

OFFLINEQ

030120

RPO2:

.ASCIZ

RPO2a

050122

031460

RPO3:

LASCIZ

RPO3a3

042526
047524
051525

DRVTST:

,ASCIZ

QDRIVE(S)

047516
054
015
052123
044527
044522
020040

044522
020051
020105
000040
042516
000
005012
047111
044124
042526
000

NONE :

.ASCIZ

GNONEa

015
0642527
046111

005012
020122
052040
052012
050103
042527
043040
043101
044124
051505
020054
005015
042523
026123
020116
041440
053517
020117
040507
000
042412
020106
020122
052040
000012

000062
020040
000
104
051450
041040
042105

000124
005015
020116
047520
047440
020040
020122
046440
042507
052111
020065
042116

042510
047122
050040
020040
040440
005015
015
047440
042527
046111
006524
005015
051107
046111
050117
052111

050012
046501
020114
020054
047111

000

062524
020107

042040
000040

COMMA:
TSTING:

_ASCIZ
._ASCIZ

TO BE

14:43

PAGE

113

SEQ@ 0112

USED &

a.9
<15><12><12>a@TESTING WITH DRIVE

BLNKS2:

.ASCIZ

047520
040506
051505

MSG15A:

.ASCIZ

<15><12><12>aPOWER FAIL

051125
020125
020122
043040

MSG15B8:

.ASCII

<15><12><12>aTURN CPU POWER

.ASCIZ

@
TESTa

O F

AFTER

THIS MESSAGE,

WAIT@<15><12>

042524

051511
040523
040527
047503

052040
052524
052520
051105
020116
047111

SECONDS,

THEN TURN CPU POWER

0642116
047520
040506
051505

MSG15C:

.ASCIZ

<15><12>3END OF

04752¢
053440
047514
040527
020107

MSG15D:

.ASCIZ

<15><12><12>3PROGRAM WILL

POWER FAIL

O N

AGAINa<15><12>

TEST@<15><12>

LOOP,

WAITING FOR DRIVE

TO COME

ONLINE@<15><12

[gn Xan]

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P
TELETYPE MESSAGES
22-APR-78 14:42

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P11
TELETYPE
MESSAGES
22-APR-78 14:42

5722
5723
5724
5725
5726
5727
5728
5729
5730
573
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766

5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
5777

027710
027716
027724
027732
027740

047506
053111

020122
020105
046517
044514
000

051104
047524
020105
042516

015
042101
047107
051040
042516
005015
042516
045040
020122
042505
051516
031115
031461
020116
050122
040502
047101
015
043105
020117
050101
041101

005012
040440
042515
052517

042510
044514
052116
044524

041412
052103
046525
042502
020116
045040
023040
031103
044124
030461
045503
105
020012
051105
044124
046120
0642514
052116
042503
040525
020122
051104
042523
051
005012
042514
041524
047506
042101
041505
005015
042412
044040
042101

047117
040440
042520
053524

041440
047117
005015

027743
027750
027756
027764
027772
027774
030002
030010
030016
030024
030032
030040
030046
030054
030062
030070
030076
030101
030106
030114
030122
030130
030136
030144
030152
030160
030166
030174
030202
030205
030212
030220
030226
030234
030242
030250
030255
030262
030270
030276
030304
030312

047101
047101
047506
020105
020105
027120
015
043507
044527
020067
042510
046105
047117
015
051105
020104
051505
020116
024514

030317
030324
030332
030340
030346
030354
030362

015
030461
052116
040520
053523
052040
005015

044501

020123
041517
020072

005012
020105
047522

042516

052111
051595
054524

9
22-APR-78

14:43

LASCII

<15><12><12>IHEAD ALIGNMENT

CASCII

<15><12><12>ICONNECT

051050
052040
020105
041511
046440
047105
046440
020114
044124
053111
052524

LASCII

<15><12>38

047524
051440
020110
020122
051440
044524
000
052116
040505
051104
044450
040524
000

.ASCIZ

<15><12><12>8TOGGLE

MSG168:

LASCIZ

<15><12>IENTER HEAD ADDRESS

MSG17A:

ASCIZ

<15><12><12>3RP11E

MSG178:

ASCIZ

<15><12>aTYPE

MSG16A:

PAGE

114

SEQ 0113

ROUTINEa

JUMPER BETWEEN PINS

J?13M2 & J13C2 ON

THE

RP11E

044520
031461

045040
047440
020105
020105
046120

050122
047503
020114
020114
044103
000124
042520

(REFER

THE

APPLICABLE

SWITCH 7

FOR

HEAD

TO START

MANUAL

FOR

THE

SELECTIONa<15><12>

(IN OCTAL):

CONTROL PANEL

'CR'

MAINTENANLE

SWITCH TESTa

TEST

AFTER

EACH

SETUPR<15><12>

DRIVE

SETU

CIRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P11
TELETYPE MESSAGES
22-APR-78 14:42
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829

5830
5831
5832
5833

030370
030376
030404
030412
030420
030426
030434
030441
030446
030454
030462
030464
030472
030500
030506
030514
030522
030530
030536
030542
030550
030556
030564
030572
030577
030604
030612
030620
030626
030634
030642
030650
030656
030657
030664
030672
030700
030706
030714
030722
030730
030736
030744
030752
030760
030766
030774
031002
031010
031014
031022
031030
031036
031037
031044
031052

040440
020047
040524
051505

042524
044103
050125
015
041101
044522
000040
005015
042514
042526
005015
051047
047117
047117
042526
005015
051047
051127
047440
053111
015
023440
020105
052517
042116
051101
046040
044527
123
015
044124
030461
052116
040520
005015
044124
046114
020107
020114

051505
044124
044514

046040
044527
035123
005015

053523
051505
000
015
052105
041440

023440
047524
052122
020124
020122

051440
005015
042012
0642514
042526
047105
042040
021440
042523
040505
054514
042040
000040
042523
040505
052111
020116
020105
051412
051127
047514
023524

041440
052040

040517
041524
047412
020105
020105
047522
042516

042523
020105
053517
041517
040526
044440
020105
042116
040517
041524
000040

051103
051440
052040
043101
040505
052105
000
05151
042040
021440

9
22-APR-78

14:43

PAGE

115

MSG17C:

.ASCIZ

<15><12>aDISABLE DRIVE # 3

041101
044522
000040
020124
020104
020047
044522

MSG17D:

.ASCIZ

<15><12>3ENABLE

MSG17E:

.ASCIZ

<15><12>aSET

'READ ONLY'

020124
026504
023505
051104

MSG17F:

.ASCIZ

<15><12>3SET

'READ-WRITE'

052105
052111
045503
040440
042514
042510
051440
042510

MSG17G:

.ASCII

<15><12>aSET

'WRITE LOCKOUT'

<ASCIZ

<15><12>a0N THE

MSG17H:

.ASCIZ

<15><12>3SET THE FOLLOWING OCTAL VALUES

000

020116
050122
047503
020114
000114
020124
047506
047111
040524
052514
020116
054503
051105
051440
042510

DRIVE

RP11E

0114

# a
ON DRIVE

ON DRIVE

CONTROL

0642523
052111
052040

020124
044103
020117

MSG171:

_ASCIZ

<15><12>aSET SWITCHES 10 @

051012
052040
046131

051505
042510
047111

MSG17J:

.ASCII

<15><12>QRESET

THE

SEQ

AND CLEAR THE

LOA SWITCHES3

PANELa

IN THE

CYLINDER LOA SWITCHESa

CYLINDER LOA SWITCHES:

5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5674
5875
5876
5877

5878
5879
5880
5881

5882
5883
5884
5885
5886

5887
5888
5889

031060
031066
031074
031100
031106
031114
031122
031130
031136
031144
031152
031160
031166
031174
031176
031204
031212
031220
031226
031234
031240
031246
031254
031262
031270
031276
031304
031312
031320

042504
020101
044103
005015
052040
046117
043516
046101
042525
052040
044522
040517
041524
000040
005015
047440
051116
047101
044527
042524
005015
047122
042461

031322
031324
031332
031340
031346
031352
031360
031366
031374
031377
031404
031406
031414
031422
031430
031436
031444
031447
031454
031462
031470
031476
031504
031512
031520
031523

000057
005015
020122
047040
035122
047105
051104
052516
020072
104
000040
044103
050040
052105

051124

047101
044527
020123
051117
000012

047506
052123
020077
115
046525
020104
020124
042524

020064
041517
020072
105

020122
053523
051505
051412
042510
047514
047440
053040
020123
042510
042526
051440
042510
042412
020106
046117
046105
041524
052123

042522
051040
041440

046117
046105
041524
047524
040515

047105
042524
046525
000040
042524
053111
041115
000
044522
047101
051101
051105
020122
030440
00c
054101
053440
047503
047506
052123
044450
040524
000
052116

22-APR-78

14:43

PAGE

116

SEQ 0115

047514
052111
052105
043040
044527
052103
046101
047111
042040
046040
044527
035123
042116
047503
050040
051440
020110

MSG17K:

052524
030520
047117
050040

LASCIZ

<15><12><12>ISET

THE

FOLLOWING OCTAL

LASCII

<15><12><12>aEND OF

LASCIZ

<15><12>ARETURN RPT11E

CONROL

PANEL

CONTROL

VALUES

SWITCH

PANEL

SLASH:

ENTNM:

LASCIZ
.ASCIZ

a/a
<15><12>aENTER

020122
020105
051105

DRVNM:

ASCIZ

@ENTER

DRIVE

042526

DRIVE:

CASCIZ

aDRIVE

042507
046501
020123
042524
020064

CHNGPM:

ASCIZ

dCHANGE PARAMETERS

046511
051117
047125
020122
030440
020116
024514

MXWRDS:

.ASCIZ

@MAXTMUM WORD

051105

ENTWC:

.ASCIZ

SENTER NEW WORD COUNT

TEST

NUMBER:

SWITCHES

COUNT

TEST

FOR

TEST

? a

(IN OCTAL):

LOA

SWITCHES:

TO NORMAL<15><12>

FOR

DRIVE

TESTa

051440
042510
047040
006514

042524
052123
042502

THE

[on
N an)

P~ P~

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P
TELETYPE MESSAGES
22~APR-78 14:42

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD PN
TELETYPE MESSAGES
22-APR-78 14:42

5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917

5918

5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945

031530
031536
031544
031552
031560
031565
031572
031600
031606
031614
031622
031630
031636
031640
031646
031654
031662
031670
031676
031704
031712
031713
031720
031726
031734
031742
031750
031756
031764
031772
031775
032002
032010
032016
032024
032032
032040
032046
032054
032062
032070
032076
032104
032105
032112
032120
032126
032133
032140
032146
032154

047040
051117
047125
020116
024514
105
050040
047122
041505
041440
047506
052123
000040
051525
050123
041511
020113
051505
020122
030440
000
040
047111
040504
052101
046440
040510
042505
041505
006504
040
052117
052124
020060
055040
020051
041040
042105
047105
054503
051105
042522
000
105
052040
040440
051523
051440
020122
051505

042101
035123

032162
032170

050122
020075

042101
000

105

053505
020104
020124
041517
020072
052116
052101
051440
044524
042117
020122
030440

000
051105
042526
046105
047117
020105
042524
035064

020105
041505
042040
042101
020123
042524
020064

040450
046107
040524
042524
051525
042526
020116
043111
012
043111
020054
051105
040450
051105
044527
020105
006451
042524
044514
040440
051523
052116
040522
042104
020072

052116
041505

22-APR-78

14:43

PAGE

117

SEQ 0116

053440
047503
044450
040524
CHNGPT:

LASCIZ

SENTER PATTERN SELECTION CODE

020101
043111
051511
051104
047506
052123
020077

CHNGAD:

.ASCIZ

@USE

A SPECIFIC

051440
020105
050040
047122
020124
041040
050123
042511

ONEPAT:

<ASCII

SINGLE

.ASCIZ

NOT,

ENTCYL:

LASCIZ

3ENTER

CYLINDER ADDRESS:

051105
045503
042522
000
051105
047524
051104
000040

ENTRK:

LASCIZ

dENTER

TRACK

ENTSEC:

LASCIZ

@ENTER

SECTOR

020122

MRPADR:

LASCIZ

aRPADR

= a

LSBTTL

ERROR MESSAGES

047040
040520
020116
046114
051517
046114
051525
000012
020122
042116
042104
020072

FOR

DISK ADDRESS FOR

TEST

DATA PATTERN MUST HAVE

PATTERN O

(ALL ZEROS)

ADDRESS:

14:

? @

BEEN SPECIFIEDa<15><12>

WILL BE USED)a<15><12>

MACY11 30A(1052)
CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CIRPYD PN
22-APR-78 14:42
ERROR MESSAGES

5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000

6001

032173
032200
032206
032214
032222
032230
032235
032242
032250
032256
032264
032266
032274
032302
032310
032316
032324
032332
032340
032346
032354
032357
032364
032372
032400
032406
032414
032422
032430
032436
032444
032452
032460
032466
032474
032502
032510
032516
032522
032530
032536
032544
032552
032560
032566
032570
032576
032604
032612
032620
032626
032634
032642
032650
032656

122

044504
051040
042116
042101
044523
103
051440
051040
047503
000104
0461447
020047
047101
047104
051105
042524
020101
043123
042520
047117
105

053440
043516
020124
051117
051127
044103
051105
044103
043516
020124
051117
054105
042105
023505
023516
052503
051105
051127
020107
052040
020101
051440
000122
047117
031040
051504
052124
020116
040520
020114
020105
052047
040520

9
22-APR-78

030520
047104
051505
052040
051104
043516
047101
040524
040505
046515

020061
052047
047520
020117
051505
000
052047
052122
020104
047101

042514
047503
020104
052047
044515
042040
051124
051105
040522
000
051122
044522
052040
042523
051450
052111
041505
047522
041505
052040
042523
051450

051101
046515
044504
052040
040516
052101
047101
047440
044524

EM3:

ASCIZ

8°'CLEAR'

051117
044524
051505
052103
000051
020105
020113
020122
044513
051505
052103
000051
052103
041527
042111
041517

EM4:

<ASCIZ

dERROR WRITING

EMS5:

LASCIZ

GWRITE

042520

EMI1:

.ASCIZ

S8RP11

EMZ:

.ASCIZ

@CAN'T

14:43

PAGE

118

SEQ 0117

DION'T RESPOND TO ADDRESSINGA

START READ (OMMANDa
\

EM6:

COMMAND DIDN'T

TEST

TERMINATE

'WCE'

TRANSFER OPERATIONa

SECTOR(S)a

CHECK ERROR CHECKING TEST

SEXPECTED

DATA

SECTOR(S)a

DIDN'T OCCURa

023440
042040
020124
000122
047522
05211
042514
040510
052506
041505

020122
047111
051523
020116
046114
047524

EM7:

<ASCIZ

SERROR WRITING LESS

02010¢
053440
053440
047105
0446124
052122
051127
044504
0641440
042522

043117
051117
044522
044440
020105
04051
052111
047104
046517
000

EM11:

LASCIZ

SONE OF 2 WORDS WRITTEN IN THE PARTIAL WRITE DIDN'T (OMPARE]

THAN A FULL

SECTORa

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PI
22-APR-78 14.42
ERROR MESSAGES

6002
6003
6004
6005
600¢
6007
6008
6009

6010
6011
6012
6013
6014

6015

6016

6017
6018
6019
6020
5021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046

6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057

032663
032670
032676
032704
032712
032720
032726
032734
032742
032746
032754
032762
032770
032776
033004
033012
033014
033022
033030
033036
033044
033052
033060
033066
033074
033076
033104
033112
033120
033126
033134
033137
033144
033152
033160
033166
033173
033200
033206
033214
033222
033223
033230
033236
033244
033252
033260
033266
033274
033302
033310
033312
033320
033326
033334
033342

116

051105
040524
040520
020106
051117
044103
046125
042526
042502
051105
046114
051125
040520
020114
000105
042447
044504
051440

051125
020101
052103
044522
043505
043516
005015
042510
020124
051117
044124
045503
047
042040
020124
044527
047505
047
042040
020124
020122
000
123

047516
051122
043101
042447
051105
042522
020107
051440
000122
047503
051524
044506
042523
047440

047117
020117
044440
052122
042523
053440
051440
020104
005015
047105
020117
042105
047111
052122
051127

055055

040504
020116
047440

8 10
22-APR-78

14:43

ASCII

@NON-ZERO DATA

[N PART OF

LASCIZ

OBEEN

LASCII

@'EOP'

.ASCIZ

<15><12>8AT

EM14:

LASCIZ

@'ERR’

DIDN'T

SET WITH

EM15:

<ASCIZ

8'EOP'

DIDN'T

CLEAR RPCAS

EMI6:

LASCIZ

@SUCA NOT

EMm17:

ASCIZ

#ERROR READING TEST

EM20:

CASCII

SCONTENTS OF

PAGE

119

SECTOR WHICH SHOULD HAVE@<15><12>

052103
044510
047510
040510

055040
044506
062040

ZERC FILLED

DURING PARTIAL

WRITEQ

020107
040511
052111

050117
047104
052105
047111
020062
051117
042524
047111

020047
052047
062040
020107
042523
053440
041040
044516

052101
046040
042523
047440
020105
000
051105
042111
042523
044124

052040
051501
052103
020106
040520

042111
046103
050122

023522
023516
020124
023440
000
023520
023516
040505
040503

041525
020124
041505
042524
050117
047522
042101
042524
041505

020101
047503
020124
020122
000047
020122
047111
052123
047524

052116
047440
051522
052103
020116

047105
020106
020124
051117
040520

023520
047505

EM12:

30A(1052)

EM13:

DIDN'T

SETV

THE

DURING A 2

LAST

CORRECT

FIRST

SECTOR WRITE BEGINNINGa

SECTOR OF

AFTER

THE

PA(CKa

'EOP'a

SECTORa

SECTOR ON PACK

CHANGED AFTERA<15><12>

SEQ 0118

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PIN
22~APR-78 14:42

6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111

6112
6113

033350
033356
033364
033372
033400
033406
033414
033422
033425
033432
033440
033446
033456
033462
033470
033476
033504
033505
033512
033520
033526
033534
033535
033542
033550
033556
033564
033572
033600
033606
033614
033622
033630
033636
033641
033646
033654
033662
033670
033676
033704
033712
033716
033724
033732
033740
033746
033754
033762
033766
033774
034002
034010
034016
034024
034032

045503
043516
052106
047506
020107
020047
043518
042524
047
020047
020122
052047
053440

042522

046517
044440
104

015
042514
051124
020122
000
047
042040
020124
044527
051120
051105
052101
044524
020117
051117
042523
030040
105
053040
044531
042510
047506
042524
052123
042504
044515
040515
052040
042510
044440
020124
041505
044047
044504
051440
042510
051101
020107
044515

041440
062105
051105
041522

042447
052504
053440

040510
040440
005015
047111
050117
044522
044522

000
051120
051105
044504
0¢ 1440
042510
042101
040515
051523

020116
041440
042116
042525

053412
041440
046117
052502

044510
047117
042514
0564523

051105
042111

023522
023516

042523
044124

043517
047522
042524
043516
044515
040515
052103
000
051122
051105
043516
046440
046522
020104
044040
000122
043123
052124
051505
042101
020122
047503
000124
043116
047104
052105
020116
044103
047506

043123

c 10

MACY11 30A(1052)
ERROR MESSAGES

22-APR-78

& R/W TEST

043517
047522
047104
052105

<ASCIZ

8FORCING
-

EM21:

'EOP'

14:43

PAGE

120

SEQ 0119

DURING WRITEa

Soae

mm—

8'PROG'

LASCIZ

<15><12>3WHILE

EM22:

LASCIZ

@'ERR'

DIDN'T

EM23:

LASCIZ

SERROR

ATTEMPTING

051117
043111
052040
05151
052101
042524
040505

EM24:

LASCIZ

SERROR

VERIFYING

051117
042105
020124
051105
047516
051122

EM2S:

CASCIZ

SMISFORMATTED

TEST

020047
052047
053440
042523
047111
020122
051117

EM26:

LASCIZ

8'HNF'

SET WHEN SEARCHING FOR MISFORMATTED SECTORA

DIDN'T

SET WHEN READ (OMMAND

<ASCII

020124
023440
000047
020122
050115
052040
043123
020124
051117

ERROR DIDN'T

[SSUEDa

CONTROLLER BuSYa

SET WITH

'PROG'a

TO MISFORMAT

THE

SECTOR Oa

MISFORMATTED

HEADER

NOT

TEST

HEADERS

CORRECTQ

. -e

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
22~APR-78 14:42
ERROR MESSAGES

6114

6115

6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157

6158
6159
6160

6161
6162
6163
6164
6165
6166

6167

6168
6169

034040
034046
034054
034056
034064
034072
034100
034106
034107
034114
034122
034130
034136
0346142
034150
034156
034164
034172
034173
034200
034206
034214
034222
034230
034236
036244
034252
034260
034266
034274
034302
034310
034316
034324
034331
034336
034344
034352
034360
034363
034370
034376
034404
034412
034420
034426
034434
034442
034450
034456
034457
034464
034472
034500
034506
034514

040515
051440
000122
042047
047516
020124
023440
000
047
044504
051440
052111
043116
042447
047516
020124
023440
000
105

053440
051040
044522
051511
052101
042524
040505
047503
046114
042111
042502
041040
044127
040505
046515
015
042525
051440
043516
042526
105
042040
020107
041440
042116
044103
044440
020104
042505

042040
000

104
047111
041505
046517
042504
042101

052124
041505

042105
047524

045523
020124

020047
042523
044124
023506

EM27:

062510
047104
052105
020110
000047
051122
020124
044527
047110

020047
052047
053440
044047

EM30:

020047
042523
044124
023506

Em3:

051122
044510
051505
043516
047506

051117
042514
047524
046440
046522
020104

047522
062040
020124
042515
020131
051040
047503

044527
047110

042524

052123

042504
052116
051105

023516

047503
051525
047105
020104
047101
044412
020104
042505
042040
000
051122
051125
042522
046517
053440
053440
051523
04752¢
044513
044522
052101
047503
020124
044040
020122
041440

044040
000122

D 10
30A(1052)
22-APR-78

@'DSK'

NOT

8'HE'

DIDN'T

.ASCIZ

@°'ERR’

NOT

EM32:

LASCIZ

SERROR WHILE

EM33:

LASCII

@CONTROLLER

CASCIZ

<15><12>AISSUED

LASCIZ

104

051523

047524
044513
044522

SET WITH

14:43

121

'HNF'a

RESTORING MISFORMATTED

DIDN'T

051117
047111
042101
040515
044510
051501
042525
051440

EM34:

.ASCIZ

S8ERROR

DURING READ

020101
05112¢
051106
040505
042522
046517

EM35:

CASCIZ

@DATA

INCORRECT

SEQ 0120

'HNF'a

SET WITH

PAGE

BECOME

BUSY

TEST

WHEN READ

HEADERa

COMMANDa

SEEKING uKIVEa

COMMAND WHICH WAS

ISSUED

SEEKING DRIVES

043516
042526

FROM HEADER READ

COMMAND

ISSUED

TO A SEEKING DRiVEa

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY1T 30A(1052)
CZRPYD P
22-APR-78 14:42
ERROR MESSAGES

6170
6171
6172

6173

6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194

6195

6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222

6223
6224
6225

034522
034530
034536
034544
034552
034560
034561
034566
034574
034602
034610
034616
034624
034632
034640
034642
034650
034656
034664
034672
034676
034704
034712
034720
034726
034733
034740
034746
034754
034762
034764
034772
035000
035006
035014
035022
035030
035036
035042
035050
035056
035064
035072
035100
035106
035112
035120
035126
035134
035142
035150
035156
035164
035165
035172
035200

040515
051523
047524
042505
0642040
000
047
020047
052047
053440
047514
047117
030060
051104
000104
044047
042111
042523
044124
042515
062447
044504
051440
052111
046530
105

043040
052124
051124
000060
051105
042522
020107
042510
043040
044124
052123
047524
042523
043040
043040
042510
044440
020124
041505
051105
051127
020107
051117
042522
020116
04304C
000
047
047440
052103

E 10

22-APR-78

042116
042525
040440
044513
044522

044440
020104
051440
043516
042526

054116
044504
051440
042510
040503
033440
020060
051505

042515
047104
052105
020116
044524
030066
042101
042523

EMm36:

LASCIZ

@'NXME'

023505
023516
020124
023440
000047
051122
047104
052105
020110
023505
051122
051117
0467111
041501

062040
020124
044527
054116

EM37:

LASCIZ

8'HE'

020047
052067
053440
047047
000
051117
040515
020107

EMLO:

CASCIZ

@'ERR'

DIDON7T

:
EM4T

LASCIZ

SERROR

FORMATTING

020122
047111
020105
051105
020115
042524
041505

EM&L2:

JASCIZ

SERROR READING

051117
042114
020115
051105

EM4LT:

<ASCIZ

@SECTOR FIELD

EM44:

LASCIZ

SERROR WRITING

042523
040440
051523
040504
042511

020122
047111
052103
042104
044440
040524
042114

047523
020122
051117

023524
062523
040440

EM4S:

LASCIZ

8'SOT*

047522
042101
044124
042101
047522
020105
051440
000122
052103
042511
047522
042101
020123
047503
000124
047522
052111

DIDN'T

14:43

PAGE

122

SEQ 0121

SET WHEN LOCATION 760000 ADDRESSEDA®

SET WITH

'NXME'S

SET WITH

°"NXME'a

TRACK

020113

THE

HEADER

FROM HEADER

FROM

THE

IS NOT

TEST

SECTORa

CORRECTa

047516
051122

SECTOR

ADDRESS

IN DATA FIELDS

OR SECTOR ADDRESS REIGSTER

IS NOT

CORRECT®

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22-APR-78 14:42

6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275

6276
6277
6278
6279
6280
6281

035206
035214
035222
035230
035236
035244
035245
035252
035260
035266
035274
035302
035310
035316
035324
035332
035340
035346
035354
035362
035370
035371
035376
035404
035412
035420
035426
035634
035442
035445
035452
035460
035466
035474
035502
035510
035516
035524
035532
035540
035546
035554
035562
035570
035576
035602
035610
035616
035620
035626
035634
035642
035650
035656
035664
035672

042106
051040

042524

047040
051117
000
104

042522
047522
020105
051117
047516
051122
042523
041440
052116
047117
052101
052517
020105
012
124
047040
020122
042510
042522
051440
042524
042101
105

040440
031040
020104
051440
047111
046040
033467
046447
042040
020124
043101
020062
051040
052123
043516
052101
030440
000066
046447

051440
052106
053440
042522
040524
020107
041517

042522

044505
020122
052117
062522

& R/W TEST
MACY11
ERROR MESSAGES

10
22-APR-78

14:43

PAGE

123

SEQ 0122

051523
051507
051511
041440
052103

052101
042101
020115
042523
044440
020124
041505
052103
047117
020123
026107
020101
062114
044124

020101
043040
044124
052103
020123
047503
000124
051117
042524
051127
062040
044123

040522
046525
043117
041440
052116
046105
020104
000
051122
052106
053440
042522
040524
020107
041517
033467
054105
042111
042523
042524
047527
040505
051101
005015
046040
033467

045503
042502
052040
051125
054514
041505
042510

054105
052105
051105
051117
042101
052122
052101
030440

30A(1052)

EM4LG:

LASCIZ

8DATA

EM47:

LASCII

8SECTOR CONTENTS WRONG,

.ASCIZ

8TRACK

EMS0:

ASCIZ

SERROR AFTER 2 WORD READ STARTING AT LOC

EMS1:

ASCII

@'MEXO"

ASCIZ

8AT LCC 1777768

<ASCIZ

8'MEX1'

READ

FROM

THE

SECTOR

DATA

NOT

CORRECTS

SHOULD BE

THEa@<15><12>

041040
006505

NUMBER OF

DIDN'T

THE

CURRENTLY

SELECTED HEADS

SET AFTER 2 WORD READ

1777768

STARTINGA<15><12>

044524

041517
033467

023461

0460440
031040
020104
051440

047111
046040
033467

EmS2:

SET AFTER ¢ WORD READ STARTING AT LOC

1777764

036342
036350
036356
036364
036371

103

052116
046040
030060
051127
043101
020062
051040
012
123
047111
046040
047511

033467
105

SCONTENTS OF

LOC 200000 WRONG AFTER 2 WORD READa<15><12>

LASCIZ

SSTARTING AT LOC

EMSG:

LASCIZ

@ERROR AFTER 2 WORD REAC STARTING AT

EMSS:

.ASCIZ

3'MEXO"

DIDN'T

CLEAR AFTER 2 WORD

EMS56:

.ASCIZ

@'MEX1'

DIDN'T

SET AFTER 2 WORD READ STARTING AT LOC

EMS7:

LASCIL

SCONTENTS OF

.ASCIZ

aSTARTING AT LOCATION 3777763

CASCII

JERROR RETURNING SECTOR

053440

054105
042111
042523
042524
047527
040505
051101
040440
020103
033067
047117
020123
041517
030060

047117
042524
04752
040505

023461
023516
020124
020122
042122
020104
044524
020124
033463
000
062524
043117
032040
020069
020107
020122
042122
006504

040524
020107
041517
020116
033067
051122

052122
052101
052101
033463
000
051117

1777768

377776a

3777763

—

STARTING AT LOC

LOC

377776a

emee

040440
031040
020104
005015
044524
020124
033461
000
051117
051105
051117
042101
052122
052101
031440
000066
023460
023516
040505
042524
047527
040524
020107
041517
033467

031440
000066
046447
0462040
020124
043101
020062
051040
052123
043516
047514
033467

LASCII

052101

tMS3:

SEQ 0123

036144
036152
036160
036162
036170
036176
036204
036212
036220
036226
036234
036242
036250
036255
036262
036270
036276
036304
036312
036320
036326
036334
036335

105

040440
031040
020104
051440
047111
046040
033467
046447
042040
020124
020122
020122
042122
052122

020103
030060
043516
051105
051117
042101
051101
040440
020103
033067
051122
052106
053440
042522
040524
020107
041517
033467
054105
042111
046103
043101
020062
051440
047111
046040
033467

047105
020106
030062

124

6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337

036130
036136

052123
043516
047514
033467

047440

PAGE

6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309

042522

000066
052116

14:43

6291
6292
6293
6294
6295
6296
6297
6298

033467
047503
051524
047514
030060
047522
052106
053440

22-APR-78

[

6290

035700
035704
035712
035720
035726
035734
035742
035750
035756
035764
035772
036000
036006
036013
036020
036026
036034
036042
036050
036056
036064
036072
036100
036106
036114
036122

G 10

6282
6283
6284
6285
6286
6287
6288
6289

30A(1052)

P
———

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1T
CZRPYD P11
22-APR-78 14:42
ERROR MESSAGES

EM60:

LOC

400000 WRONG AFTER 2 WORD READE<15><12>

TO PDP-11

MODE

USING AR<15><12>

6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380

6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
€391
6392
6393

036636
036644
036652
036660
036666
036673
036700
036706
036714
036722
036730
036736
036744
036752
036760
036766
036774
037000
037006
037014
037022
037030
037036
037037
037044
037052
037060
037066

051440
024122
104
042040
020124
047122
054503
051106
042510
046511

054503

041440
046117
047520
040506
103
052116
046440
020131
042507
044522
053517
040506
044510
040505
052040
051511
051447
051440
052111
053111
040523
000
047
020047

042523

044124
042526

042522

052040
020114
046517
046440
046525
020114
047117
042514
042527
046111
047117
020123
046505
044103
020104
043516
051105
046111
042514
044504
042510
000113
047525
05210%
020110
020105
046102

052523
047516
020124
042040
042440

051117
044524
051505
052103
000051
020122
047111
052123
047524

000
042526
023516
052524
020117
020060
052040
054101
005015

a2 WORD WRITEa

EM61T:

CASCIZ

@ERROR WRITING

TEST

SECTOR(S)a

EMm62:

.ASCIZ

@ERROR READING

TEST

SECTOR(S)a

EM63:

CASCII

@DRIVE

LASCIZ

aCYL

LASCII

SCONTENTS

.ASCIZ

af AIL

047117

051124
020122
020122
000
042524
043117
051117
047101
052504
050040
005015
053440
051040
043516
042040

EM64:

DIDN'T

RETURN

ON CONTROLLER

MEMORY

TO CYL

POWER

O FROM

THE

MAXIMUMa<15><12>

FAILS®

CHANGED

WHILE

READING

THE

DURING

DISKa

023514
053440
051104
044504
042105

EM6S:

LASCIZ

@'SuUOL"'

SET

WITH DRIVE

04611/
020124
044527

EM66:

.ASCIZ

@°'SUOL'

NOT

SET WITH DRIVE

044522
040516

[ lwEvlkvEkwivEvEkvlkolkvikvlkoloXkola)

051122
044522
052040
042523
051450
047522
042101
0642524
041505
024523
044522
042111

LASCIZ

SEQ 0124

—

020061
052440
040440
047527
044522

051125
051440
020122
050104
047515
044523
005015
042122
042524

125

[

105

053440
043516
020124
051117
051105
042522
020107

052105
043516
047526
050040

6366
6367
6368
6369

036606
036614
036622
036630

051040
044516
041505
047524
030455
042504
043516
020062
053440
000

PAGE

POWERaA<15><12>

[
iwvivikvlo
ko XkokvivEe)

6361
6362
6363
6364
6365

036376
036404
036412
036420
036426
036434
036442
036450
036456
036464
036465
036472
036500
036506
036514
036522
036530
036536
036544
036552
036557
036564
036572
036600

14:43

[ X w kv K]

6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360

10
22-APR-78

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT11 30A(1052)
CZREY(D PN
22-APR-78 14:42
ERROR MESSAGES

DISABLED®

ENABLEDQ

6411
6412
6413
6414
6415
6416
6417
6418
6419
6420
6421

6422
66423
6424
6425
6426
6427

6428

6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443
6444
6445
0446

6447
6448
6449

037074
037101
037106
037114
037122
037130
037136
037144
037152
037156
037164
037172
037200
037206
037214
037222
037230

037236
037244
037252
037260
037266
037274
(037302
037310
037314
037322
037330

037336
037344
037352
037360
037366
037374
037402

037410
037415
037422
037430
037436
037444
037452
037460
037466
037467
037474
037502
037510
037516
037524
037532
037540
037546

037553
037560
037566

046102
047
020047
042523
064124
042526
052040
040505
054514
051447
051440
052111
053111
020124
042522
044522
0516447
051440
052111
030461
052111
045503
051440
054503
051105
047514
020075
042116

020101
051447
051440
052111
040503
023040
046040

036440
047
020047
042523
041520
040526
047111
046040
000
047
020047
044527
041520
020105
042524
047101
046040
046101

047
020047
044527

042105
052523
047516
020126
04620640
051440
020117
020104
000047
053525
052105
020110
020105
047524
042101
042524
053525

052105
020110
023440
020105
052517
052105
044514
005015
023501
026060
051040

000
050127
020124
044527
044522
052105
051047
047117
023520
053440
051104
042523
023440
053457
000047
023520
053440
050122
051127
047514
023524
020054
042116

000060
023520
053440
050122
031040
046131

030040
052523
047516
035524
020101
052514
041440
040517

000
050127
020124
051040
020075
020105
046131
051447

052523
042523
04412¢
020101
051107
020122
041440
040517
042525

050127
020124
051040
047117
040505
044124
046131
053040
000

040517

052523
042523
044124

22-APR-78

14:43

PAGE

126

SEQ 0125

EM67:

LASCIZ

@'SUWP' NOT SET WITH DRIVE

SET TO

EM70:

.ASCIZ

@°SUWP'

SET WITH DRIVE

SET

EM71:

_ASCII

@°SUWP'

SET WITH RP11

'WRITE LOCKOUT'

LASCIZ

QLOA'S = 0,

EM72:

.ASCIZ

@'SUWP'

EM73:

_ASCilZ

@'SUWP' NOT SET;

EM74:

.ASCIZ

@°SUWP'

EM75:

_ASCIZ

Q°'SUWP' SET WITH DRIVE LOA SWITCHES EQUAL TO SELECTED DRIVEa

020123
040440
041520

020075
053525
052105
020110
036440
041440

110

'READ ONLY'ad

'READ/WRITE'a

SET,

CYLINDERa<15><12>

AND RPCA = 03

SET WITH RPCA

2 & CYyL LOA'S = 0d

051447

050127
020124
0462040

RPCA

VALUE

IN CYL LOA'Sa

SET WITH RPCA ONE GREATER THAN (YL LOA VALUEa

[ Nan)

6396
6395
6396
6397
6398
6399
6400
6401
6402
6603
6404
6405
6406
6407
6408
6409
6410

30A(1052)

mmmmmmmmmmmmmmmmmmmmmmmmmmmmfimmmmmmmmmmmmmmOOOc

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PIN
22-APR-78 14:42
ERROR MESSAGES

6500
6501
6502
6503
6504
6505

040154
040162
040170
040176
040204
040212
040220
040226
040234
040242
040250
040256
040264

047503
020105
020122
051117
040516
052116
046102
042447
044504
051440
052111
042503
044047
042111
042523
044124
043517
051104
047125
040440
050040
043040
051447
047040
052105
020110
020105
053523
051505
052101

040005
040012
040020
040026
040034
040042
040050
040056
040064
040072
040100
040106
040114
040120
040126
040134
040142
040150

103

104

042526
051440
062510
060525
051440
042524
05311
053111
020123
047440
0642516
044522
020123
042506
044522
046511
052125
047117
062514
042515
000124
040524
040520
051122
052101
050115

051105
046450
020131
042507
0426440

042105
051122
047104
052105
020110

000047
023505
023516
020124
023440
000047
053111
040523
052106
053517
044501
053525
052117

053440
051104
047514
052111
043440
051105

PAGE

127

SEQ 0126

046040

044527
020123
020114
046105
020104
000105
020105
047507
043106
000
042526
047125
000
042526
042105
000
051124
020122
020104

EM76:

LASCIZ

aDRIVE

HAS

EM77:

LASCIZ

aDRIVE

IS UNSAfEQR

EM100:

LASCIZ

aDRIVE

TIMED

EM101:

LASCIZ

dCONTROLLER

061440
042522
051117

EM102:

ASCIZ

aDATA

COMPARE

ERRORa

020101
051101
047522
046505
040515
042515
040516
000051
020047
052047
053440
053447

EM103:

.ASCIZ

@DATA

COMPARE

ERROR

EM106:

LASCIZ

8'ERR'

DIDN'T

042040
020124
044527
051120

EM107:

LASCIZ

@a'HE'

020105
042506
051105
051105
000114
023520
051440
052111
053111
020101
044103
042522
052040

EM112:

LASCIZ

aDRIVE

EM113:

LASCIZ

@'SUWP' NOT SET WITH DRIVE LOA SWITCHES GREATER THAN SELECTED DRIVEa

GOWE

OFFLINES

OUTa

TIMED OUTa

(MEMORY MANAGEMENT

SET WITH

ENABLED)a

14:43

mmMmMmMMmMmMmMmmMmMmmmmmmmmmmmmMmmmmmmmmmmmmmmm

046117
044524
052517
040504
046517
042440
000

044522
040517
041524
050505
047524
041505
051104
051104
040510
042516
044514
104
044440
040523
104
052040
047440

J 10
22-APR-78

'WCE'a

[aa]

6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
649N
6492
6493
6494
6495
6496
6497
6498
6499

037574
037602
037610
037616
037624
037632
037640
037646
037654
037662
037670
037675
037702
037710
037715
037722
037730
037735
037742
037750
037756
037762
037770
037776
040004

30A(1052)

DION'T

UNSAFE

SET WITH

AFTER

'PROG'a

POWER

FAILa

mmMmmmmmmmmmmmmm

6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463
6464
6465
6466
6467
6468
6469
6470
6471
6472
6473
6474
6475
6476
6477
6478
6479

& R/W TEST
MACY1
ERROR MESSAGES

alnalnalas]

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PIN
22-APR-78 14 42

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.PI
22-APR-78 14:42
ERROR MESSAGES

6506
6507
6508
6509
6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543
6544
6545
6546
6547
6548
6549
6550
6551
6552

6553
6554
6555
6556
6557
6558
6559
6560
6561

040272
040300
040306
040314

040510

042514
0642040
000

020116
052103
044522

K 10
22-APR-78

14:43

PAGE

128

SEQ 0127

042523
042105
042526

;'DH' MESSAGE LINES
040315
040322
040323
040330
040336
040344
040352
040360
040366
040374
040402
040410
040416
040424
040432
040440
040446
040454
040462
040465
040472
040500
040506
040514
040522
040530
040536
040544
040552
040560
040566
040574
040602
040610
040616
040624
040632
040637
040644
040652
040660
040666
040674
040702
040710
040716

040720
040726
040734

122

000
124
020043
050040
053122
051040
020040
020122
041520
051040
050122
020040
020040
040504
050122
020040
020040
047514
124
020043
050040
053122
050040
021440
020123

042520
051040

050122
020040
020040
040503
050122
020040
020040
040503
044523
124
020043
050040
053122
042440
020104
047527
042116
000104
042524
020040
041520

040520

051104

DH1:

LASCIZ

aRPADRS

051505
042440
020103
021440
042120
051040
020040
020123
053520
040502
050122
020040
020040
030515
052523
020040

020124
051122
042040
020040
020123
042520
051040
020040
000103
020040
040503
050122
020040
020040
040503
044523

DHZ:

LASCIZ

aTEST

DH2A:

ASCIZ

DHS:

000
051505
042440
020103
021440
052101
051040
020040
020122
041520
041527
050122
020040
020040
040504
050122
020040
020040
047514
051505
042440
020102
021440
050130
051461
042122

020124
051122
042040
020040
047122
042120
051040
020040
000123
020040
040502
050122
020040
020040
030515
052523
020040
000
020124
051122
042040
020040

053440

023524
020124
031040
051117

052123
051105
020040

021440
020122
051104

ERR PC

DRV #

RPDS

RPER

RPCS

aRPBA

RPCA

RPDA

RPM1

SUCA

SILOa

LASCIZ

aTEST #

ERR

DRV #

PATRN

RPDS

RPER

RPCSa

DHSA:

.ASCIZ

aRPW(

RPBA

RPCA

RPDA

RPM1

SUCA

SILOa

DH11:

.ASCIZ

aTEST #

ERR PC

DRV #

EXPT'D

1ST WORD 2ND WORDa

DH12:

ASCIZ

STEST #

ERR PC

DRV #

EXPT'D

RECV'D

LOCNa

RPW(3

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
22-APR-78 14:42
ERROR MESSAGES

6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6574
6575
6576
6577
6578
6579

6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6607
6608

6609
6610
6611
6612
6613
6614
6615
6616
6617

040742
040750
040756
040764
040772
040775
041002
041010
041016
041024
041032
041040
041046
041052
041060
041066
041074
041102

020126
0564105
020040
042047
047103
124
020043
050040
053122
051040
020040
020122
041520
020040
020040
020040
020040
054105

041110
041116
041122
041130
0461136
041144
041152
041160
041166
061167

020040
046101
042524
020040
041520
020126
052523
020040
000
126

041202
041210
041216
041224
041232
041236

050040
053122
042440
020104
023526
042510

041174

041244
041252
041256
041264
041272
0641300
041306
041314
041322
041326
041334
041342
041350
041356
041364
041372
041375
0616402
041410
041416
041424

020043

04614640
052116
020040
020040
020040
020040
054105
020040
046101
042524
020040
041520
020126
042523
020040
051117
122
020040
020122
041520
051040

020043
052120
042522
020040
000
051505
0642440
020103
021440
042120
051040
020040
000123
020040
020040
020040
020040
052120

020124
051122
042040
020040
020123
042520
051040

DH14:

_ASCIZ

QTEST #

020040
020040
020040
020040
042047

DH16:

.ASCII

.ASCIZ

QTEST #

ERR PC

DH25:

.ASCIZ

QTEST #

ERR PC

051105
042524

DH25A:

.ASCIZ

GQHEADER CONTENTSa

020040
020040
020040
020040
042047
052524

DH43:

_ASCII

LASCIZ

QTEST #

ERR PC

.ASCIZ

QRPDS

RPER

021440
020122
051104
020040
020040
040503

051505

020126

020103
021440
050130
051040
000104
042101

042040
020040
023524
041505

047117
000123
020040
020040
020040
020040
052120
041501
005015
052123
051105
02004C
020043
052103
042523
000
042120
051040
020040
020123
053520

14:43

PAGE

129

SEQ 0128

020040
042047
053103
047514

041501
005015
052123
051105
020040
020043
040503
052523

0426440

L 10
22-APR-78

ERR PC

DRV #

RPDS

RPER

RP(CS3

EXPT'D

ACTUALS<15><12>

DRV #

SUCA

SUCAa

DRV #

EXPT'D

RE(CV'Da

EXPT'D

ACTUALa<15><12>

DRV #

SECTOR

SECTORa

RPCS

RPW(

RPBA

052524

051122

021440
020122
051104
020040
051117
052103
020123
042520
051040
020040
020103

DH43A:

RPCA

RPDAQ

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P11
22-APR-78 14:42
ERROR MESSAGES

6618
6619
6620
6621
6622
6623
6626
6625
6626
6627
6628
6629
6630
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643
6644
6645
6646
6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664
6665
6666

6667
6668
6669
5670
6671
6672
6673

041432
041440
041446
041454
0641462
041470
041476
0641502
041510
041516
041526
041532
0641540
041546
041554
041562
041570
041576
041604
041612
041620
041626
041634
041637
041644
041652
061660
041666
041674
041702
041710
041716
041724
041732
041740
041746
061754
041762
041770
041776
0420064
042012
042020
042026
042031
042036
042044
042052
042060

042066
042074
042100
042106
042114
042122
042130

020040
020101
041520
051040
042510
041440
052116
020040
020040
020040
020040
054105
020040
020047
052103
042524
020040
041520
020126
040526
041440
051105
051104
122
020040
020122
041520
051040
020040
020040
020040
020040
020040
020040
042047
053103
042524
020040
041520
020126
042523
020040
020040
040524
124
020043
050040
053122
042440

020104
023526
050122
020040
020040
051503
050122

051040
020040
020101
042120
042101
047117
000123
020040
020040
020040
020040
052120
051447
020040
051117
052123
051105
020040
020043
052514
052517
020040
000
042120
051040
020040
020123
042120
020040
020040
020040
020040
020040
054105
020040
042047
052123
051105
020040
020043
052103
040504
020040
000
051505
042440
02010
021440
050130

051040
000104
051504
050122
020040
020040
040503

041120
051040
020040
000101
051105
042524

m10
22-APR-78

14:43

DH43B:

.ASCIZ

JHEADER CONTENTSA

020040
020040
020040
020040
042047
052117
042523
005015
021440
020122
051104
020040
020105
052116
042101

DH&S:

LASCII

LASCIZ

STEST

020123
042520
051040
020040
000101

DH4S5A:

_ASCIZ

3RPDS

DH46:

LASCII

]

.ASCIZ

@TEST

ERR PC

DRV #

ERR PC

RPER

020040
020040
020040
020040
020040
052120
042522
005015
021440
020122
051104
020040
051117

PAGE

130

EXPT'D

'SOT’

COUNTER

ERR PC

DRV #

VALUE

RPER

RPCS

RPDAQ

DH47:

.ASCIZ

dTEST

020040
051105
050122
020040
020040

DH47A:

_ASCIZ

aRPDS

SECTORI<CISN<C12>

ADDRa

EXPT'D

RECV'Da<15><12>

SECTOR

DATA

DATAa

DRV #

EXPT'D

RECV'Da

RPCS

RPCA

RPDAS

040524
040504

020124
051122
042040
020040
023524

SEa 0129

041505

CZRPY-D, RP11-E FUNCTJONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P11
22-APR-78 14:42
ERROR MESSAGES

6674
6675
6676
6677
6678
6679

6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701

6702

6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721

6722
6723
6724
6725
6726
6727
6728
6729

042136

042144
042145

042152
042160
042166
042174
042202
042210
042216
042224
042232
042240
042242
042250
042256
042264
042272
042300
042306
042314
042322
042327
042334
042342
042350
042356
042364
042372
042400
042406
042414
042422

042430
042436
042444
042452
042460
042466
042474
042502
042510
042514
042522
042530
042536
042541
042546
042554
042562
042566
0642574
042602
042610
042616
062624

020040
000
124
020043
050040
053122
051040
020040
020122
041520
051040
020040
000101
042524
020040
041520
020126
050122
020040
020040
051503
052523
124
020043
050040
053122
051040
020040
020122
041520
051040
042524
020040
041520
020126
041505
020124
020040
020113
042523
020040
051105
020040
020040
020040
006504
101
020040
020101

052101
044513
020040
032122
040520
044513
020040

050122

040504

051505
042440
020103
021440
042120
051040
020040
020123
053520
051040

020124
051122
042040
020040
020123
042520
051040
020040
020103
041120

LASCIZ

STEST

052123
051105
020040
020043
051504
050122
020040
020040
040503
051505
042440
020103
021440
042120
051040
020040
020123
041520
052123
051105
020040
020043
051440
054503
020040
020040
020103
040520
000116
020040
047507

021440
020122
051104
020040
020040
051105
050122
020040
000
020124
051122
062040
020040
020123
042520
051040
020040
000101
021440
020122
051104
051440
051124
020114
051124
020040
020040
052124

LASCIZ

020040

012
04210¢
042040
020040
000101

040520
044513
020040
032522
042120
044513

N 10
22-APR-78

14:43

PAGE

131

ERR PC

DRV #

RPDS

RPER

dTEST #

ERR

DRV #

RPDS

RPER

LASCIZ

aTEST #

ERR

DRV #

RPDS

RPER

.ASCIZ

STEST #

ERR PC

DRV #

SEC

STRT

020040
042117
040502

LASCII

600D

BADR<IS>C1

020122
052101
042040

LASCIZ

DATA

DATAQ

031522
040520
044513
020040
031522
062120

CASCIZ

KIPARSL

KIPARS

SKIPAR3

KIPDR3

SEQ 0130

(YL

KIPDR4

PATTERNG

KIPDRSa®

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD P11
22-APR-78 14:42

6730
673
6732
6733
6734
6735
6736
6737
6738
6739

6740
6741
6742
6743

6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
677
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785

042632
042640
042645
0642652
042660
042666
042672
042700
042706
042714
062717
042724
042732
042740
042745
042752
042760
042766
042774
043000
043006
043014
043021
043026
043034

032122
042120
126

046101
020104
042101
042101
020040
020040
040524

124
041440
062522

051117
125
051523
043101
020063
042511

042522
052523
052506
122
041440
000072

020040
032522
051111
043440
020040
005015
051104
040504
020040
0G0
052117
046517
042440
035123
051516
052506
042524

042522

000123
051124
042503
006514
052105
052517

& R/W TEST

MACY11 30A{1052)
ERROR MESSAGES

044513
000
052524
047517
041040

DH103A:

B 11
22 =APR-78

14:43

PAGE

LASCII

aVIRTUAL GOOD

BADa<15><12>

LASCIZ

dADDR

DATA

DATAQ

DH105:

LASCIZ

@TOTAL

COMPARE

ERRORS:a

DH110:

<ASCIZ

SUNSCESSFUL AFTER 3 RETRIESA

DH111:

<ASCII

ARETRY

SUCESSFULA<IS><12>

<ASCIZ

dRETRY

COUNT:a

020040
040524

132

040504

046101
040520
051122
000
042503
020114
020122
051124

020131
051523
012
054522
052116

.EVEN

:'DT" WORDS
043036
043040
043046
043054
043056
043064
043072
043100
043106
043110
043116
043124
043126
043134
043142
043150
043156
043164
043172
043200
043204
043212
043216
043224
043232
043236

001324
001160
001334
001342
001344
001352
001160
001204
001340
001342
001350
001356
001160
001124
001160
001124
001160
001334
001160
001210
001160
001124
043656
001160
001124
001334

DT1:
DT2:

.WORD
.WORD

RPADR

.WORD

$RFBA, $RPCA,SRPDA,SRPM1,8SUCA,S$SILO

.WORD

$TMPO, SERRPC ~CHKDRV,PATNUM,SRPDS,SRPER,SRP(S

.WORD

SRPW( .SRPBA SRPCA,SRPDA,SRPM1,SSUCA,S$SILO

DT11:

.WORD

$TMPO, S$ERRPC . CHKDRV,$GDDAT ,BUFFER,BUFFER+2

DT12:

.WORD

$TMPO .$SERRPC . CHKORV,$GDDAT,$BDDAT,$BDADR

DT14:

.WORD

$TMPO, $ERRPC .CHKDRV,$RPDS ,SRPER,SRP(S

DT16:

.WORD

$TMPQO, S$ERRPC . CHKDRV ,MAXCYL,$SUCA

001176

DT25:

.WORD

$TMPO, $ERRPC .CHKDRV,$GDDAT ,$BDDAT

043662
001176

DT43:

.WORD
.WORD

BUFFER,BUFFER+2 ,BUFFER*4
$TMPO,SERRPC, CHKDRV,$GDDAT ,BUFFER+4

.WORD

$RPDS,SRPER,SRPCS,SRPW(,SRPBA,SRP(A,SRPDA

001116

001336

001176
001340

001346
001354
001116
001334

001350
001356
001176
001336

001344
001352

001346
001354

001116
043656
001116
001126
00111¢
001336
001116
001354
001116
001126
043660
001116
043662
001336

001176
043660
001176
001122
001176
001340
001176

001340

DTS:

$TMPO,SERRPC, CHKDRV,SRPDS ,SRPER,SRP(S,SRPW(

SEQ 0131

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD .1
22-APR-78 14:42

001342
001350
043656
001160
001124

001344

001350

001334
001342

001160

001334
001354

001160
001334
001346
001160
025430
025424
001122
001160
025430
025424
172346
172306
001122
025414
001314

001116
001124
001116
043656
001336
001350
001116
001336
001344
001116
001336

cn
22-APR-78

14:43

PAGE

133

001346

043660 043662
001116
001176
001126
001122
_ 001336 ..001340
001334
001160
001120
001160
001124
001334
001346
001160

30A(1052)

001176
001126
001176

DT4S:

.WORD

BUFFER,BUFFER+Z,BUFFER+4
$TMPO,S$ERRPC,CHKDRV,SGDDAT,$BDDAT,
$SBDADR

.WORQ __$RPDS $RPER,SRPCS,
SRPPA.

DT46:

.WORD

$TMPO, $ERRPC,CHKDRV,$GDADR,SGDDAT
,$BDDAT

DT47:

.WORD

$TMPO, $ERRPC,CHKDRV,$GDDAT
,BUFFER

.WORD

SRPDS, $RPER,SRPCS,SRPCA,SRPDA

001340

001176
001340

DT151:

.WORD

$TMPO, $ERRPC,CHKDRV,$RPDS ,SRPER,SRPCS, SRPW(, SRPBA

001176
001340

DT63:

.WORD

$TMPO, $ERRPC, CHKDRV,SRPDS,SRPER,SRPCS,$SUCA

001116
001336

001176
001340

DT71:

.WORD

$TMPO, $ERRPC, CHKDRV,SRPDS,SRPER,SRPCS,SRPCA

001116
0256422
001204
001124
001116
025422
001204

001176
025426

DT102:

.WORD

$TMPO, $ERRPC,CHKDRV,CMBUF ,CMCYL,CMTRK,CMSEC,PATNUM

.WORD

$BDADR,$GDDAT ,$BDDAT
$TMPO,$SERRPC,CHKDRV,
CMBUF ,CMCYL ,CMTRK, CMSEC,PATNUM

.WORD

KIPAR3,KIPARL
,KIPARS ,KIPDR3,KIPDR4 ,KIPDRS

.WORD
.WORD
_WORD

$BDADR,$GDDAT,$8D0DAT
ERCTR

172350
172310
001124

001126
001176
025426
172352
172312
001126

DT103:

DT104:
DT105:
DT111:

KRETRY

DF11:

.WORD

000001

.WORD

.BYTE
.BYTE
.WORD
.BYTE
.BYTE

DFS:

000002
007
010
040552
007
000

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

OO O~NN

Df2:

000002
007
000
040410
006
000

.WORD
.BYTE
.BYTE

(¥ ,]

DF1:

ONO

000001
001
000

O-+—

;J'DF' BLOCKS

—

6786
043244
6787
043252
6788
043254
6789 043262
6790
043270
6791
043276
6792 - 063304
6793
043306
6794
0643314
043322
6795
6796 043330
6797 043334
6798
043342
6799 043346
6800
043354
043362
6801
6802
043366
6803
043374
043402
6804
6805
043404
6806 043412
6807 043420
6808
043422
6809
043430
6810
043436
6811
043442
6812
043450
6813 043456
6814
043464
6815
043470
6816
043476
6817 043504
6818 043512
6819 043514
6820
6821
6822
6823
043516
6824
043520
6825
043521
6826
6827 043522
6828
043524
6829 043525
6830 043526
6831
043530
6832
043531
6833
6834
043532
6835
043534
6836
043535
6837 043536
6838
043540
6839 043541
6840
043542
6841

& R/W TEST
MACYT1
ERROR MESSAGES

SEQ 0132

043556
043560
043561
043562
043564
043565
043566
043570
043571

000003
006
000
041375
005
000
041462
003
000

DF4T:

043572
043574
043575
043576
043600
043601

000002
006
000
041637
004
000

DF4S5:

043602

DF&47:

043605
043606
043610
043611

000002
005
000
042100
005
000

043612
043614
043615

000001
010
000

DFS51:

.WORD
.BYTE
.BYTE

043616
043620
043621

000001
005
000

DF53:

.WORD
.BYTE
.BYTE

043622
043624
043625

000001
007
000

DF63:

.WORD
.BYTE
.BYTE

043626
043630
043631
043632
043634
043635

000002
010
200
042514
000
000

DF102:

.WORD
.BYTE

.BYTE
.WORD
.BYTE
.BYTE

043636
043640
043641

000003
010
200

DF103:

.WORD
.BYTE
.BYTE

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

H2SA

H43A

H4 3B

H4SA

Owv—

O 0o
—

H47A

~no
»

—

O ~N—

043604

DF25:

QWO OwWwmr

000002
005
000
041236
003
000

OWOOWVNMOOOW

043546
043550
043551
043552
043554
043555

.BYTE
.BYTE

OrLrooonrn

006
000

OoOWVMO OwWwmN

043544
043545

6893
6894
6895
6896
6897

30A(1052)

OO
x

6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
687
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892

& R/W TEST
MACY11
ERROR MESSAGES

[N Xe V]

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD A1
22-APR-78 14:42

D 11

22-APR-78

14:43

PAGE

134

SEQ 0133

6906
6907

6908
6909

043642
043644
043645
043646
043650
043651

042566
006
000
042645
000
000

043652
043654
043655

000001
003
000

DF104:

6910

6911
6912
6913
6914
6915
€916
6917
6918
6919
6920
6921
6922
6923
6924

.WORD
BYTE
.BYTE
.WORD
.BYTE
.BYTE

DH103
6
0
DH103A
0
0

.WORD
.BYTE
.BYTE

11
22-APR-78

14:43

PAGE

135

SEQ 0134

3
0

6898
6899
6900
6901
6902
6903
6904
6905

MACY11 30A(1052)
CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
CZRPYD P
22-APR-78 14:42
ERROR MESSAGES

.EVEN

043656
043656
043664
043670
043676
043704
043712
043720
043726
043734
043742

005015
054520
005015
042455
052103
020114
020103
042101
042526
006524
000001

;BUFFER STARTS HERE

BUFFER=.

0461412
042055
050122
043040
047511
047514
020046
053457
052040
005012

051132
030461
047125
040516
044507
042522
0446522
051505
000

TITLE:

LASCII

<15><12><12>aCZRPY-DA

CASCIZ

<15><12>3RP"1-E

.END

FUNCTIONAL

LOGIC

& READ/WRITE

TESTa<15><12><12>

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PI
22-APR-78 14:42
ACTMEM
AIE
=
ATABIT
BITS

001224
020000
001360
001400

BITO
BIT00
BIT01
BI702
BIT03
BIT04
IT05
1106

000001
000001
000002
000004
000010
000020
000040
000100

=
=
=
=
=
=
=
=

17107 = 000200
1708 = 000400

iT09 = 001000
BIT1
= 000002
IT10 = 002000

IT11 =
IT12 =
IT13 =
IT14 =
IT15 =
IT2
=
IT3
=
IT4
=
115
=
IT6
=
117
=
178
=
179
=
LKS14
BLNKS2

004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
001254
027430

PTVEC= 000014

UFFER= 043656

BUSADR
BYPASS
(HKDRV

CHNGAD
CHNGPM
CHNGPT
CIR
CKSWR =
(K.CHR
CK.NUM
(x.0CT
CLEAR =
CLRP

001216
001200
001176

031640
031406
031565
023120
104407
(27122
027136
027072
000001
025654

12404
1178#
12934
13194
3469
10834
10734
10724

1071
10704
1069#
1068#
1067#
10664
10654
10644
10824
10634
10624
10614
1060#
1059#
1058#
10814
10804
10794
1078#
1077#

F 1
€ R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CROSS REFERENCE TABLE =-- USER SYMBOLS

PAGE

137

SEQ 0135

3497

3498+

5190

5191

5200+

5201+

5202

5205

5207+

5208+

2313
2404
3614

2334
2451
3721

3750
2530
3773

4879

4921

5068
2753

5494
2848

5512
2909

2976

3094

3170

3300

1083
1082
1081
1080
1079
1078
1077
1076
1075
1074

1319
1320
1321
1322
1323
1324
1325
1326
1327
1328

2814
2660
2933
2505

1329
1330
1331
1332
1333
1334

2728
4652
2810
4043
4627

4036

2619
5084

2703
5473

3934

5379

3905

4052

4645

10764

1075#
10744
12474
4113
1090#

2419
2771+
3137
3495

12374
1230#
3308+
12294
3840

6766
6808
5549
5518
5541

4888
4032
56154

3743
5597#
1151#

2387
2768

3499+

61264

3500+

3501
56894

3502¢

3503

3523

3563

5098

5105

2470
2795
3192+

2495+
2801
3193e

2546
2825+
3194

2583

2588
2874
3343
5611
5429+

2590
2890
3351
6772

2636
2894
3360
6782

2686
2992
3364
6783

2720
3024
3395+
6788

2769+
3074
3396+
6795

2770+
3110
3397
69124

5057
3670
3931+
6783

2761

2856+

2917+

2984

3102+

3178+

6778

2585
2827+
3331
5159
5427
2627
5031
3663
3929
6780

3792
3933«
6789

3800
3934
6793

3807
3937
6795

3815
3949
6799

3825
3974
6802

3833
6761
6805

5488

5532

5544

5558

5568

5578

56324

4854

4855

5370
2501
2923

5374
2545
2991

2561
3008

2573
3045

2634
3064

4968
2203

2281+
3477
2368+
3848
6772
6812
5903#

58754
58954
49104
4051
5636
5640
5634
2430

2418
2785

2205+
2412+
3622+
2372
3910+
6774

4920
4626

5652
5466
5647
2431
2472
2805

4995

2208+
2459+
3729+
2378
3915
6776

2826+
3314
4998
2210+

2538
3781+

2380
3917

2711

48344

2481

2824

2489
2862

2674
3128

043546
043556
043572
043602
043532
043612
043616
043622
040315
042414
042514
042566
042645
042717
040637
042745
043000
040720
040775
041052
040323
040410
041167

3594

1005#
1659

2129
2136
2143
1715

2030
1666

1889
1803
1903
1917
1932
1687
1947
1752

2022

1657

2127
67164
67244
67324
2148
1713

2169
2176
1721
1736

2092

1750

1664
1887

65244
1801

4199
4170

52154
1212

2150
68884
68954
6905#
1723

2037

1673
1896
1861
68524
68624
68694
1694
1954
1962
2066

65134
2134
6891

6812
5274
6808

5277+
6812

5293

53144

S316#

6808

6812

3569

3631

365C

3756

3799

3814

2658
31N

2680
3200

2778
3221

2788
3248

2808
3335

2831
3354

1817

1831

1875

1882

1924

1765

67440
67494
2028
1773
2155
65754
1671
1894
6830
1859

53384
5267
5296
5301
5300
2211
2503
3000

3547

6209
4209

2238

5298+
5304
5302+
2325

2345

5317#

6808
2367+

6812

2554
3013
3574

2566
3050
3644

2577
3066
3653

2643
3117

1775
2058
1731
1969

1782

2178

68234

1738

1767

5038

5056

2044

1680
1910

68454

2007
1977
1992

2073

2051

1701
1939

2014
1984
6880#
2080

68344
68764

1794

2087

2094
1745

2000

1796

2157

1759
2101

2164

1789
2108

68414
1838

2122

2185

1846

1853
6827#

1868

2035

2042

2049

2056

1851

1866

68844

6705#

6898

6901
67404

MMM
r~r
TM e

3544

——

9984
9994

3527

65504

65594
1780

2162

2190

1815

65674

1829

1678
1908

1699
1937

1729
1967

2099

1960

1990

6589#

1757

1873
1787

2106

1880

1808

2113

1836

2120

1844

2183

6515#

(A LAIA
LA tA LA IA

043522

2363
2475
2883
3399

339

TETETE e o ottt o e A

000015
000200
024614
177570
043516
043626
043636
043652
043542

12694
5266+
52674
5265+
12334

6808
5272
53154

3342

SEQ 0136

re y

001320
025424
025166
025426
0012906
027377
023664

53184
5263
5303+
5291
52624
53224
5336
53054
3382
5295+
5297
5299+
2206+
56844
2484
2931
3537

3327
53704

138

025430
025420
025422
025250
025130
025432
025536
025374

3242
3847

PAGE

WO
N &

CMBUF
CMCNT
CMCYL
CMDAT
CMPAR
CMPRT
CMPRT1
CMPRX
CMP.CT
(ASEC
CMSTR
CMTRK
CNTRLC
COMMA
CONRDY

3207
3832
5269
5262+
5264+
52804
5252
5286
5323
5294

G 1
& R/W TEST
MACY11 30A(1052)
14:43
22-APR-78
CROSS REFERENCE TABLE =-- USER SYMBOLS

N =N
—
— 0D — Q0

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.P1
22-APR-78 14:42

C(ZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PT
22-APR-78 14:42

H 11
& R/W TEST
MACYT1 30A(1052)
22-APR-78
14:43
CROSS REFERENCE TABLE ==~ USER SYMBOLS

DH2S5A
DH43

6848
65994

041236
041256

DH43A
DH43B

041375
041462

DH4SA

041637

DH4S

DH46

041502
041674

DH47
DH47A
DHS
DHSA
DHS1
DH63
DH71
DISPLA

042031
042100
040465
040552
042145
042242
042327
001142

DISPRE
DPB

000174
002500

65964
1901
66134
6622#
1915
66414

6855
6858

1930
6669¢
1685
65414
1945
2020
2064
12120
3177«

66624
6872
1692
6837
1952
66874
2071
2238r
3307+

1922

9624
16294

2564
2786+
2986
3129«
3394«
3783+

66464

2246
2378+

2575+
2806+
2987+
3180+
3479+
3784+

58734
56644
2278+
4857
2369+
S869#
23784
2867
2329+
2307

027345
001504

2338
12604

S679#
2291

043036
043422
043450
043504
043512
043126
043514
043142
043156

1658
2128
2135
2142
2149
1714
2177
1722
1737
2093
1751
1665
1888
1802
1902
1916
1923
1931

67604
68084
68124
68174
68184
1766
68194
2029
1774
2156
67784
1672
1895
1860
67834
67894
67934
67954

043172
043040
043204
043224
043262
043306
043322

SEQ 0137

6865

5497
2298
12634
3664
12624
5485
23N
2390
12664
;g?g'

10044

139

66254

031377
027236
001310
022666
001306
031352
005004
023546
001312
001370

177570

PAGE

1211

2005

2012

65324

1975

1682

66764

2078
2246+

2085
2411+

66964
2458+

2537«

3780t

4035+

4666+

2710+

2760+

2855+

2916+

2983«

3101+

2388+

2414

2415+

2641+
2858+
3009+
3219+
3545+
4899

2423+

2678+
2859+
3010+
3245+«
3572+«
4900

2461v

2462+

2473+

2482+

2540+

2541+

2552+

2375
48654

4921+
4912

2877
2334+
2332

3758
2341
3665

5012¢#
2370
6869+

5030
2375+
4850+

3968
4851+

56479«
4B52+

5494+
4868+

5512+
4876+

4914

5695

5498

2313
2237

3750

4848

4879

5068

56482

67744
1781
2163

1795
21N

1816
67764

1823

1830

1874

1881

2036

2043

2050

2057

1679
1909
1961

1700
1938
1991

1730
1968
67804

1744
1999

1758
2100

1788
2107

1809
2114

1837
2121

1845
2184

1852
67614

1867

3476+

2629+
2828+
2997+
3181+
3480v
4885

2370

3621+

2630t
2829
2998+
3198+
3535+
4887

3728+

2626+

2713+
2865+
3046+
3246+
3624c
4901

2714+
2869+
3048+
3310+
3625+
4902

2722+
2875+
3055+
3311«
3642+
5067

2763+
2919+
3063+
3332«
3651+
5197«

2764+
2920+
3104+
3333+
3731«
5225

2775«
2927+«
3105+
3352«
3732+«

2776+
2929+
3114
3392+
3755w

2373

67724

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PN
22-APR-78 14:42

& R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CROSS REFERENCE TABLE =-- USER SYMBOLS

DTS
DTS
DT63
D7
EMTVEC=
Emi
EM100
EM101
EM102
EM103
EM106
EM107
EM11
EM112
EM113
EM12

043072
043346
043366
043404
000030
032173
037715
037735
037762
040005
040064
040120
032570
040154
040212
032663

1693
1953
68024

EM14
EM15
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24
EM2S
EM26
EM27
EM3
EM30
EM31
EM3Z
EM33
EM34
M35
EM36

033137
033173
033223
033260
032235
033312
033425
033535
033572
033641
033716
033766
034056
032266
034107
034142
034173
034252
034363
034457
034561

M3z
ns

034642

032357

M40
M4 1
LY
M43
M44

034676
034733
034764
035042
035112

M47
ms
M50
ms1
M52
m53
M54
M55
M56

035316
032414
035445
035524
035620
035704
036013
036072
036162

M4S5
Mé&6

035165
035245

L=1
¢ wn NOOVNOMN
=
NONO

—
= A PN = NN NN
NN NN N
N
b b b
£H N N —=0000
=0\ NN —

033014

2021

—

1686
1946

1756
1663
1763
177
1779
1786
1793
1800
1807
1814
1670
1821
1828
1835
1842
1850
1857
1865
1872
1677
1879
1886
1893
1900
1907
1914
1921
1928
1684
1936
1943
1951
1958
1966
1974
1981

2072
2223+
59474

64644
64674
64714
64754
64834
6488#
59924

64934

64984
6002#
60184

60334

60384

60434
60484
5953#
60534
60664
60804
60854

60924
61004
61074
61174
59584
61224
61274
61324
61404
61534
61640
61764

61854

5968#
61904
61954
62004
62084
62154
62234
62324
62394
59734
62554
62634
62744
62834
62954
6303#
63134

2006
1976

2013

67664

2079
2224+

2086

6805#

1983

6799#

PAGE

140

SEQ 0138

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.PW
22-APR-78 14:42

& R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CROSS REFERENCE TABLE -- USER SYMBOLS

EMS?7

63234
5980#
63374
63484
63534
63584
63714
63834
63894
63954

EM6
EM60
EM61
EM62
EM63
EM64
EM6S
EM66
EM67
EM7
EM70
EM71
EM72
EM73
EM74
EM75
EM76
EM77
ENDCMP
ENTCYL
ENTNM
ENTPRM
ENTPRX
ENTPR1
ENTPR2
ENTPR3
ENTPR4G
ENTRK
ENTSEC
ENTWC
ERCTR
ERR
=

036255

032466
036371
036465
036522
036557
036673
037000
037037
037101
032522
037156
037230
037344
037415
037467
037553
037646
037675
025630
032054
031324
026314
027070
026374
026572
026670
026716
032105
032133
031523
025414
100000

ERRVEC= 000004

EXITO
EXIT1
EXITI0
EXIT11
EXIT12

005306
005722
011530
012060
012712

EXIT14
EXIT1S

014616
015302

EXIT13

EXIT16

013572

015620

XIT17
XIT2

016604
006400

XITS
XIT6

010032
010366
010610
024336
024376
001202

EXIT3
EXIT4

X117
FILSEC
FILTRK
LAG

007056
007306

1988
1691
1996

2004
20N
2018
2026
2034
20461
2048
1698

2055
2062
2070
2077
2084
20N
2098
2105
5292
5555
5463
2327
5517
5476
55184
5535
5547
5565
5575
5529
5271«
11804
2820
3337
10864
4764+

2412
2459
2984
3102
3178
3308
3477
3622

3729
3781
2538
2627
2711
2761
2834
2917
3047
3115

12314

59854
64034
64104
64234
64304
64384
64474
64574
64614
53554
59284
58654
54634
5521
54794
55414
55494

5933
59374
5889#
53124
2477
2833
3356
2235
4773+
2429
2513
3005
3141
3205
3402

3571
3669
3760#
3935
2559
2648
2733
2836#
2856
2936
51434
5158#

5467
5552
5504

PAGE

141

SEQ 0139

5471
55864

5545

5350+
2486
2885
3401
2236+

4783+

2434
25164
3079
31454
3239
34044
3597¢
36914

5355
2509
2940
3539
2247
4784
24394

6818
2556
3002
3549
4632
5256

2568
3018
3576
4633
5260

3082#
3262

3266#

39514
25N
2685
2738

2582
2688
27404

2596
2692#

2882
2941

2896
29434

2898#

2604#

2579
3052
3646
4635+
5445

2645
3068

2664

2119

2682
3133

2737
3202

2780
3223

2789
3250

4638+
5446

4737
5448+

4738
5450

4742+

4747

4759

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.P11
22-APR-78 14:42
FRSTER

025412

GETADR
026150
GETBUF
024502
GNS
= wreenn
GTSWR =

104406

HOR
=
HE
=
HIMEM
HOMSEK=
[HT
=

004000
040000
001234
000015
000011

ICNT
IDE
=
INCADR
INCSEC
INCTRK

001214
000100
024114
001250
001252
000020
172340
172342
172344
172346
172350
172352
172354
172356
172300
172302
172304
172306
172310
172312
172314
172316
001322
000012
025416
001262
024304
001240

LRETRY

001316

& R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CROSS REFERENCE TABLE -~ USER SYMBOLS

5270«

S311#

5322

5334

2288
3567
961
4836
2260

56274
5190#
3966
4837
48324

5209
3972
4838

3980

3997

4826

2875
2937
3493+

2997

3009

3494

5202

5205

11764
11794
12620
11574
996#

12364
11744
3552
12454
12464
10914
11240
11254
11264
11274
11284
11294
11304
11314
11134
11144
11154
11164
11174
11184
11194
11204

12704
9974
5267+«
12504
2996
;gggl
12684

2775
2734
3489+
2388
4168

2828
2817
3490«
2865
4209

3595
3505+
3504+
2221+
3209+
3210
3211+
5236+
5238+
5248+

50924
3511«
3508+
2222¢
4723
5219+
3240+
6815
6815
6815

3208+
3212+«
3213+
3214c
5242+
5243+
5249+

4767
5239«
5240+
5241+
6815
6815
6815

3215+
4979
4203
5268+
2272
5129#
3488+

5244+
4984t
4209
53134
2274

3584

4827

PAGE

142

SEQ 0140

4828

4829

4830

4832

4834

4835

5109
5116
4751

5218+

5220+

5221+

4990

5006+

5338
5538

5340+

3495+

3496+

3497

3498

3518

3628

3629+

3634

3641

3679

5207

5395+

5396+

AXCYL
MAXMEM

001210
001230

12340
12414

2290r
3186

2293«
3238

2654
3489

2670
3490

3638
5389+

5481+
5390+

54B4r
5391+

5562
5392«

6778
5393«

5394+

MAXWC
MEMSIZ

001264
001302

12514
12584

22N
3494

2272
3636

56405+
3682

5410+
5388

5411«
5407+

5413+«

5416+

5418+«

5523

5536

12394
1102#
11774

2286+

3486+

3492+«

5216

5251

5306

5324

5335

2875

2997

3009

3332

EX0
EXT

= 000020
= 000040
MACTV
001222
MMVEC = 000250
ODE
= 010000
OVLDR
023346
RPADR
032162
SG15A
027433

SG158
SG15C

027456
027617

5397«

11720
11734

3487
5431

3626
3649
3690

5398+

2927
2927

2775
3627
59424
56914

56954
57124

5399+

3226
3230

2828
49654

5400+

3245
3257

5401+

3253

5402+

5403+

5404+

5408+

5409+

5410

CZRPY-D,

CZRPYD.PIN
MSG150
SG16A
SG168B

SG17A
SG178
SG17¢
SG17D
SG17E

SG17F
SG176
SG17H
SG171
SG174
SG17x

XWRDS
ONE

FFLIN
NEPAT
NLINE
PRSEL
PAKSIZ

PATNUM
PATSEL
PATTRN
PAT.PT

PATO
PAT1
PAT10
PAT11
PAT12
PAT13
AT14
PAT15
AT2
AT3
AT4

wnnnnunnen
oo
0w

k)
W

ATS
ATé
AT7
AT8
AT9

FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
22-APR-78 14:42
CROSS REFERENCE TABLE -~ USER SYMBOLS

RP11~E

027652
027743
030255
030317
030362
030441
030464
030506
030542
030577
030714
031014
031037
031176
031447
027372
027312
031713
027262
001260

3659
3734
3740
3785
3790
3791
3806
3824
3839
3858
3877
3879
39N
3952
5522
2343
2319
5553
2310

001244

12494
12440

001204

12324

024050
001300
001440
001500
001540
002200
002240
002300
002340
002400
002440
001600
001640
001700
001740
002000
002040
002100
002140
177772
000240
000000
000040
000100

000140
000200
000240
000300
000340
177776
177776
000024

5102+

5082
3525
12574
13364

1336
1337
1346
1347
1348
1349
1350
1351
1338
1339
1340
1341
1342
1343
1344
1345
10034
10974
10204
10214
10224
10234
10244
1025#
10264
10274
10004
10014
10924

ST174
5728#
S7644
S771a
S7774
S785#
S789#
57924
S797#
58024
58164
3916
5831#
5848#
58814
56834
5500
59114
56684
2267+
3523+
5105+
2468+
5173
3566
2275+
5177
13554

3936

2277+

143

SEQ 0141

5827#

5672#

3521
3524+
5106+
2492
5278
50774
5084
5281

3561
3563+

5092
3564+

5585
5064

2512
6766

2514
6808

2550
6812

2287+

3705+

5548+

13724
15254
15424
15594
15764
15934
16104
1389#
16064
14234
14404
14574
14744
14914
15084

3633
1001

PAGE

5065

5070+

5071+

5094

5096

5098

5100

2637+

2651«

3520+

3560

5078+

5079

5081+

n1
CZRPY-D, RP11~E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
164:43
22-APR-78
CZRPYD.PIN
22-APR-78 14:42
CROSS REFERENCE TABLE -- USER SYMBOLS
RDCHR = 104410
RDERR
001274
ROLIN = 1044M

RDSCx = 000005
ROSW
ROY
READ

016056
= 000200
= 000017

RESLDR
RESREG=
RESTAR
RESVEC=
RETRY
RPADR
RPBA
RPCA
RPCS

023452
104413

004762
000010
001314
001324

= 000010
= 000012
= 000004

RPDA

= 000014

[RPDS

RPER
=
RPINIT
RPM1
=
RPM2
=

000000

000002
022566
000016
000020

RPM3
= 000022
RPPRIO
001332
RPVEC
001326
RPWC

= 000006

RPO3
RP11

027336
022770

RP0O2

RSTRT1

RSTRT2
RSTRT3
SAVREG=
SAVRP

SCyL
SECNBR
SEEK
=
SETBUF
SILO
=
SIZMEmM
SLASH
SRO
=
SR1
=
SR2
=
SR3
=
SSEC
STACK =

027327

004740

004752
004760
104412
023240

001266
024002
000011
024432
000026
025700
031322
177572
177574
177576
172516
001272
001100

4556

PAGE

144

SEQ 0142

4835#

3797
5530
2423
3352
38244
2425
2876
3598

48384
4009

3565+
2386
3478
2874+
3861+
2425

4855+
3017
4866
4951
3658
4957

4847
4845
2873«
56754
S6774
2424
2807
3247
2377
2374

48374

2432
2832
3336
3868
2268+
3554
2869
2551

4959
53794
58644
3216+
4760+

2270
2219

3812
5542
2575
3572

3830
5550
2678
3651

3845
5556
2722

3859
5566
2726

2433

2879

5038

5045

3692
4860

49894
4904

5007

3578
2413
3623

3583«
2460
3709

3584
2539
3730

2628
3782

3889+
2431+

3896+
2726

3887
5576
2786

3922

3942

48364

5438

5464

5486

2929

3010

3055

3063

3129

3219

5138

5153

5166

5185

5305

3588

6819
2712

2762

2857
5632

2918
5644

2985
5447

3103
6760

3179

3833«
5045

3848t
5370

3915«
5374+

3949+

4853

4949

4893+

4955

4899+

3914+
2876+
4900+

4903+

4952

380C+

3815+
5038

4874

4877

4950

5012

5019

4892+
3867

4954

4865+
48941
4870

4885t
4956
4872

LB44H

5480

4891«

4953

2474
2830
3334

2483
2866
3353

2502
2870
3398

2553
2930
3536

2565
2999
3546

2576
3012
3573

2642
3049
3643

2657
3065
3652

2679
3116
3757

2723
3130
48844

2777
3199

4844
2476
2878
3355
3890
3517
50634
3755

4884

4989
2504

5129
2555

5143
2567
3014
3575

5158
2578
3051

3645
49484

5172
2644
3067
3671
5024

5215
2659
3118
3801
5050

2681
3132
3816

2727
3201
3834

2779
3222
3849

2562

2638

3266+

2989

3189

2430+

2485
2884
3400
3898
3558

2932
3538
3924
5564+

3670

3001
3548
3944

4913

3532

51724

4748

4/70+

5261+

5308+

5330

5337+

3556
2464

2632

2716

2766

2861

2922

2652

N1
CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
14:43
22-APR-78
CZRPYD.PW
22-APR-78 14:42
CROSS REFERENCE TABLE -- USER SYMBOLS
STALL
STALLT
START
START1
STARTZ
START3
START4
STARTS
START6
START?
STKLMT=
STRK
STRT1A
STRT2A
SUCA
=
SUFU
=
SuoL
=
SURDY =
SURP03=

Sus!
SUWP
SWR

SWREG
SW0
SWw00
SW01
SW02
SwW03
SW04
SW05
Sw06
sw07
SWw08
Sw09
SWl
Sw10
SW11
Swi2
Sw13
SWi4

023202
001220
003710
003654
003676
003644
003666
004146
004360
004544
177774
001270
003660
003702
000024
001000
040000
100000
020000

= 004000
= 000400
001140

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

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

SW15

= 100000

Sw3
SWw4é
SW5
Swé
sw?
Sw8
Sw9

= 000010
= 000020
= 000040

SWw2

= 000004

= 000100

= 000200
= 000400
= 001000

TBITVE= 000014
TESTO
005160
TESTY
005404
TESTI0

010706

3313
2725
1238#
2207
980
982
984
986

2250
2287#
2297
10024
1253

2204
2209

11464
11644
11674
1168#
11664
1165#

11634
1211#

3570

4627
9634
1055#
10454
10444
10434
10424
1061
10404
10394
10384
10374
10364
10544
10354
10344
1033#
10324
1031#
1030#
1053#
10524
1051#
10504
1049#

10482
10478
10464
1088¢#

2407
2654
2979

3481
2872
2724
2212#
2205#
22104
2203#
2208#
2252

3512
3016
2871«

3630
3662
3015+

3704
3707
3661+

49304

3693

3953

4397

4480

5574+

3733

3786

3706+

4930

PAGE

145

SEG 0143

22544

23254
2269+
22064
22114
4958

3516

3557

3802
4874
4877
4872
3835
2217
3580
4645
2245

3817
5012

4870

3850
2237+
3592

3863
2239
3736

4866

1055
1054
1053

1052
1051
1050
1049
1048
1047
1046

3869
2245+
3738

4652
2258

4919
4400

3530
353
357
3366
3384
3580
3482
2296

3533
3542
3592
5342

5284

3736

3738

4919

5029

5055

4079

24178
24642
29898

5019

2990

5029
4439

3891
2258
4036
5055
4462

3899
2296
4043
5284

3925
3366

4048

5342

3945
3384

4052

3482

4079

3528

4400

3533

4439

3542

44694

B 12

CZRPY-D, RP11-E FUNCTIONAL LOGIC
CZRPYD.P11
22-APR-78 14:42

& R/W TEST
MACY11 30A(1052)
27-APR-78
14:43
CROSS REFERENCE TABLE -- USER SYMBOLS

TEST11

31114
3187
33134
35124
36304
37334
37864
25434
26324
27164
27664
2861#
29224
5014
69144

011652

TEST12
TEST13
TEST14
TEST1S
TEST16
TEST17
TEST2
TEST3
TEST4
TESTS

TEST6
TEST?
TIMOUT
TITLE
TKVEC =
TPVEC =
TRAPVE=
TRTVEC=
TSTING
TSTNMS

TST0
TS
TST10
TST11
TST12
TST12B
TST13
TST13A
TST14
TST14A
TST15
TSTI5A
TST158
TSTISC
TST16
TST17
TST2
TST3
TST4
TSTS
TSTSA
TSTS58
TST6
TST7
TYPDS =
TYPE

012202
013014
014066
014736
015460
015716
006020
006476
007154
007404

010130
010464
001212
043656
000060
000064
000034
000014
027401
001276

005064
005310
010612
011532
012062
012534
012720
013474
013574
014342
014630
015112
015314
015324
015372
015624
005724
006402
007060
007310
007634
007742
010034
010370
104405
104401

3097
3173
3303
3472
3617
3724
3776
2533
2622
2706
2756
2851
2912

12354

2253

1095#
10964
10944
10894

2379

12564

3300
239
2406
29
2978
3096

TYPERR

TYPOC

017254
104402

2226+

24034
29754
3093#

31694
32384
3185
3359
34684
35544
36134
3710
36974
37024
37204
37724
25294

26184
27024
27524
28044
2813
28474
2908#

2253
2385
3858

2298
3626
3877

4046
4346
4578

5500
3378
3983

5040

2225+

24500

48304

4092
4394
4583

5502
3380

4117

3190

2767

4378+

5685#
2276+
3469

SEQ 0144

2544
2633

4377

3234
3172
3340
3302
3531
3471
3658#
3632
3697
3616
3723
2453
2532
2621
2705
2800
2783
2755
2850

4121

31894

PAGE 146

2404
3614
2408
2455
2980
3098
3174

2451
372

2530
3773

2619
5473

3188
3367
3473

32994
3385

3304
3388

3390#

2703
5477+

2753

2848

2909

2976

3094

3170

2320
3785
3964

2326
3790
3970

2338
3791
3978

2343
3806
3995

2363
3824
3999

2379
3839

3618

3698

3725
1777
2534
2623
2707
2757
2821

2852

2823¢#

2913
2310
3649
3879

4093
4406
4584
5503
3591
4463

2312
3659
3911

4097
4460

4586
5518
4045

48274

2315
3690
3916

4098
4461
4589

5522
4078#4

4124
4485

5430
5541
5349

6128
4496
5631
5549

4131
4515

5437
5553

6133
4563
5663
5555

6173

4569

5485
5565

4038
4270
4574
5497
5575