Digital PDFs

AH-9303D-MC

2000

Number of pages unknown

Original

78MB

view download

OCR Version

109MB

view download

Document:	CZRPYD0 RP11E FUNCTIONAL LOGIC READ-WRITE TEST JUL 1978 bw
Order Number:	AH-9303D-MC
Revision:	000
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_gray.pdf

OCR Text

READ/
& IC
FUNCTIONAL LOG

CZRPYDO

SRR N

AH-9303D-MC

JUL1978

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

MACY11

30A(1052)

22-APR-78

14:43

PAGE 2

SEQ 0001

.REM %

IDENTIFICATION

PRODUCT CODE:

AC-9302D-MC

PRODUCT NAME:

CZRPYDO RP11E

DATE:

1-MAY-78

MAINTAINER:

DIAGNOSTIC

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.

NO RESPONSIBILITY

DIGITAL EQUIPMENT CORPORATION ASSUMES

FOR ANY ERRORS THAT MAY APPEAR

THIS DOCUMENT.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

THE USE OR RELIABILITY OF
NOT SUPPLIED BY DIGITAL.

FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF

PDP
DECUS

ITS

1975,

DIGITAL

UNIBUS
DECTAPE

SOFTWARE

ON EQUIPMENT

THAT

1978 BY DIGITAL EQUIPMEN CORPORATION

EQUIPMENT

CORPORATION

MASSBUS

TEST

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

MACY11

30A(1052)

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

4.1
6.2

OPERATIONAL SWITCH SETTINGS
TELETYPE KEYBOARD AND PRINTER UNIBUS ADDRESSES

4.4

RP11E UNIBUS ADDRESS CHANGE

4.6

OPERATION OF

4.5

CONVERSATION MODE

TESTS

15,

16,

ROUTINE

& 17

ERROR REPORTING
ERROR TYPES

RESTRICTIONS
6.1
6.2
6.3
6.4

TTY KEYBOARD ENTRY CONTROL CODES AND CONVENTIONS

ERROR HANDLING

3.9
5.2
6.

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

OPERATING PROCEDURES

4.3

EQUIPMENT
STORAGE
PRELIMINARY PROGRAMS

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

MISCELLANEOUS

V.
7.2
o
7.4
7.5
7.6
o,
7.8
7.9
7.10

RUN TIME
STACK POINTER
END OF PASS/END OF TEST
SUBROUTINE CALLS
DISK SURFACE USAGE
TEST EXECUTION SEQUENCE
DRIVE STATUS TYPEOUT
DATA COMPARSION USING MEMORY MANAGEMENT
PATTERN SELECTION WORD
CONTROLLER/DRIVE OPERATION TIME LIMIT

TEST DESCRIPTIONS

PROGRAM LISTING

PAGE 3

SEQ 0002

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

MACY11
:

30A(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, AND WHICH CHECK THE RP11E AND
DRIVE CONTROL SWITCHES.

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 IN THE OPERATION
g:s;g: DATA TEST IF THE PROGRAM IS BEING RUN ON A MEMORY MANAGEMENT
THIS PROGRAM COMPLETES THE TESTING STARTED IN THE DISKLESS CONTROLLER
TEST (MD-11-DZRPW).
TESTING IN THE FUNCTIONAL LOGIC PROGRAM IS
PERFORMED WITH 1 - 8 RP02, RPRO2, OR RPO3 DISK DRIVES.

REQUIREMENTS

2.1

EQUIPMENT
PDP=11

COMPUTER WITH 12K OF

ggglg?LLER:

2.2

CONSOLE

TELETYPE;

RP11E

DISK

STORAGE
THIS PROGRAM WILL

2.3

MEMORY;

TO 8 RPO2, RPRO2, OR RPO3 DISK DRIVES WITH FORMATTED

LOAD AND RUN

12K.

PRELIMINARY PROGRAMS

MAINDEC-11-DZRPW - RP11E DISKLESS LOGIC TEST

STARTING PROCEDURES

3.1

LOADING PROCEDURES
THE PPOGRAM MAY BE

DEVICE.

LOADED FROM EITHER PAPER

REFER TO EITHER THE

FORMAT PAPER

TAPES OR

THIS PROGRAM MAY BE

TO THE

INCLUDED

TAPE

OR AN

'XXDP'

STANDARD PROCEDURES FOR LOADING

'ABS'

'XXDP'

SYSTEM REFERENCE

DOCUMENT.

IN AN

'XXDP'

THE PROGRAM

CHAIN.

[IF

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.P1
22-APR-78 14:42

3.2

30A(1052)

£
22-APR-78

14:43

PAGE 5

STARTING ADDRESSES

200
204
210
214

3.2,

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,

BE USED (SEE SECTION 3.1

ALL ONLINE DRIVES WILL

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 PROGKAM ENTERS CONVERSATIONAL
MODE
.

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

FROM LOCATION 214

THE

SAME

THE

START

204 EXCEPT THAT THE PROGRAM ASKS FOR A NEW RP11E ADDRESS.
PARAMETERS FOR

RESET

TO THEIR DEFAULT VALUES.

THE

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)

Vs
W
VOO

3.4

14 ARE

OPERATOR ACTION
*++BEFOR STARTING REFER TO SECTION 4.1%#e
-

3.3

TEST

FROM LOCATION

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

PPESS START ON THE

(SEE

CPU CONTROL PANEL

SECTION 4.1)

'CONTROL C' OPTION
THE OPERATOR MAY

TERMINATE

THE

CURRENT

'CONTROL C' ON THE TELETYPE KEYBOARD.

TEST AT ANY

TYPING A

TIME

'CONTROL C'

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.P11
22-APR=-78 14:42

3.5

MACYTT

30A(10%2)

22-APR-78

14:43

PAGE 6

DEFAULT RP11E UNIBUS ADDRESS
THE DEFAULT RP11E UNIBUS ADDRESS IS 176710.
WHEN THE PROGRAM IS
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 IS 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 FOLLOWING:

TYPE

LOC.

CONTROL G < G>;

THIS WILL ALLOW THE

THE

SWR=XXXXXXNEW=

SOFTWARE SWITCH REGISTER.)

3) AFTER THE
OF

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)

4. 1

(XXXXXX IS THE OCTAL CONTENTS

''NEW=""' HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE

FOLLOWING AT

A <CR>

IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH

TTY TO ENTER DATA INTO

176 AT SELECTED POINTS WITHIN THE PROGRAM.

THE MACHINE WILL THEN TYFE:

SWITCH

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

CHANGED.

IS DEPRESSED THEN THE PROGRAM WILL SEND YOU

OPERATIONAL SWITCH SETTINGS
WITH SW<15:0>=1,
WITH THE TEST.

THE PROGRAM WILL

TYPEOUT ERRORS AND CONTINUE

SEQ 0005

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

MACY11

30A(1052)

1
22-APR-78

14:43

PAGE 7

SWITCH SETTINGS ARE:

SW<15>=1,
. .HALT ON ERROR
SW<14>=1,..LO0P ON TEST

SW<13>=1,..INHIBIT ERROR TYPEOUTS
SW<11>=1,,.INHIBIT ITERATIONS
SW<10>=1.,..RING BELL ON ERROR

SW<09>=1...LO0P 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 IN TEST 14
SW<04>=1,,..TYPE ALL DATA COMPARE ERRORS IN TESTS 13 & 14
SW<03>=1...INHIBIT DATA COMPARE IN TESTS 13 & 14
SW<02>=1...BYPASS READ & DATA COMPARE IN 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

TTY PRINTER STATUS REGISTER
TTY PRINTER BUFFER REG

(THE RPT1E UNIBUS ADDRESS IS CHANGED IN RESPONSE TO THE PROGRAM'S
TYPED REQUEST IF THE PROGRAM IS STARTED FROM EITHER LOCATION 210 OR

214 OR IF
4.3

THE THERE IS NO RESPONSE WHEN LOCATION 176710 IS ADDRESSED.)

TTY KEYBOARD ENTRY
THE

FOLLOWING

CONTROL

CA:2§025 RETURN
CONTROL U

( U)

CONTROL

(CR)
= IF

CODES

CODES AND CONVENTIONS
AND

CONVENTIONS

= ALL ENTRIES MUST BE
THIS CONTROL CODE

ARE

USED BY

THE

PROGRAM:

TERMINATED BY A CARRIAGE

IS TYPED BEFORE 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.PI
22-APR-78 14:42
RUBOUT

(RO)

MACY11

30A(1052)

THIS CONTROL CODE

1
22-APR-78

IS TYPED,

THE

14:43

PAGE 8

CHARACTER

TYPED

BEFORE THE 'RO' WILL BE DELETED FROM THE ENTRY.
EACH TIME
A "RO' IS TYPED, THE LAST CHARACTER IN THE INPUT ENTRY IS 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 TYPE THE NEW CHARACTER ENTERED.
THE ‘RO’
CANNOT BE USED TO DELETE A °'CR'.

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

AND TO RETURN TO THE BEGINNING OF

IS GENERATED BY PRESSING THE

IF ONLY A "CR"
ER?SRAH,
NTRY.

THE

CONVERSATION MODE.

'CONTROL'

KEY AND THE

'C'

KEY.

IS ENTERED IN RESPONSE TO AN ENTRY REQUEST FROM THE

PROGRAM WILL USE

THE

DEFAULT

VALUE

FOR

THE

REQUESTED

LEADING ZEROS ARE NOT REQUIRED ON ANY ENTRY.
4.4

RPT11E UNIBUS ADDRESS CHANGE ROUTINE
WHEN THE PROGRAM IS
PROGRAM WILL ASSUME
WHEN THE PROGRAM IS

214,

STARTED FROM LOCATION 200 OR LOCATION 204, THE
THAT THE RP11E IS AT UNIBUS ADDRESS 176710.
STARTED FROM EITHER LOCATION 210 OR LOCATION

THE PROGRAM ENTERS A ROUTINE WHICH ALLOWS THE OPERATOR TO

CHANGE THE RP11E UNIBUS ADDRESS TO BE USED BY THE PROGRAM.

WHEN THE ADDRESS CHANGE ROUTINE
PRESENT RP11E UNIBUS ADDRESS:

IS ENTERED,

THE

PROGRAM TYPES

THE

RPADR = AAAAAA/

NOTE:

'AAAAAA'

REPRESENTS THE PRESENT ADDRESS

THE ADDRESS TYPED OUT MAY BE USED BY TYPING A "CR' ONLY.
A NEW
ADDRESS IS ENTERED BY TYPING THE NEW ADDRESS AND TERMINATING THE

ENTRY WITH A
ADDRESS

'CR'.

IS ENTERED.)

(THE NEW ADDRESS WILL BE USED UNTIL ANOTHER

AFTER THE OPERATOR HAS RESPONDED TO THE ADDRESS ENTRY REQUEST, THE
PROGRAM WILL VERIFY THAT THE RP11E ADDRESS RESPONDS.
IF NO RESPONSE
ig ¥$£EéVED FROM THE RP11E ADDRESS, THE FOLLOWING ERROR MESSAGE

RP11E DIDN'T RESPOND TO ADDRESSING
RPADR
AAAAA
THE PROGRAM RETURNS TO THE ADDRESS ENTRY ROUTINE.
THE PROGRAM
WILL NOT CONTINUE UNTIL THE OPERATOR ENTERS AN ADDRESS FOR WHICH
THERE IS A UNIBUS RESPONSE.

SEQ 0007

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

MACY11

30A(1052)

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
;gsgfll?ggsgfls‘?PEflATlNG PARAMETERS OF

THE

'DATA STORAGE/RETRIEVAL

Ugf? ;gg PROGRAM ENTERS CONVERSATION MODE,
:
Y
I

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
g:}VE'g ?;ATUS WILL BE TYPED AND THE PROGRAM WILL ASK FOR ANOTHER
VE

ENTRY.

IF TEST 15,

16, OR 17 IS SELECTED, A 'CR' RESPONSE TO THE DRIVE

NUMBER REQUEST WILL NOT BE

ACCEPTED;

A SPECIFIC

DRIVE

NUMBER MUST BE

ENTERED FOR TEST 15,

16, OR 17.

IF TESTS 0 - 13,

16 OR 17 HAVE BEEN SELECTED, OR IF THE ENTIRE

15,

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

CHANGE PARAMETERS FOR TEST 14 ?

EITHER A

'CR' OR A

IF A

IS ENTERED,

WILL BYPASS

'Y"

DIALOG.
THE

THE

PROGRAM WILL

'Y' MAY BE ENTERED.

TEST

NOTE:

"CR'

IS ENTERED,

AND START

TEST

THE PROGRAM
14.

THE PROGRAM STARTS THE TEST 14 PARAMETER CHANGE

THEN TYPE

MAXIMUM WORD

IF A

14 PARAMETER ENTRY ROUTINE

COUNT

'SSSSSS'

THE WORD LENGTH FOR ALL

TEST

FOR

$SSSSS

TEST

(IN OCTAL):

= THE OCTAL VALUE OF

THE WORD COUNT

TRANSFERS.

(9]

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

MACY11

30A(1052)

1
22-APR-78

14:43

PAGE 10

THEN ASK FOR A NEW WORD COUNT.

ENTER NEW WORD COUNT:
EITHER A VALUE

(LESS THAN THE MAXIMUM TYPED ABOVE) OR A

°'CR'

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 IS
RESTARTED OR A 'CONTROL C' IS TYPED, THE WORD COUNT VALUE WILL BE
RETURNED TO THE SYSTEM DEFAULT VALUE.
IF A 'CR' IS TYPED, THE
PROGRAM WILL USE THE DEFAULT WORD COUNT VALUE.
THE

PROGRAM WILL

THEN ASK FOR A PATTERN SELECTION WORD ENTRY.

ENTER PATTERN SELECTION CODE FOR TEST 14:
ENTER THE OCTAL VALUE OF THE PATTERN SELECTION WORD OR A 'CR' FOR
THE DEFAULT VALUE.
REFER TO SECTION 7.9 FOR A DESCRIPTION OF
THE PATTERN SELECTION WORD AND ITS USE IN TEST 14.
[IF TESTING IS TO
BE AT A SPECIFIC DISK LOCATION, ENTER THE CODE FOR A SINGLE PATTERN.
(IF TESTING IS AT A SPECIFIC ADDRESS, THE PROGRAM WILL NOT ROTATE THE
DATA PATTERNS BUT WILL USE THE LOWEST NUMBERED PATTERN SPECIFIED
BY THE PATTERN SELECT WORD.)
THE

PROGRAM WILL

ASK

THE

OPERATOR WANTS

TO TEST

A SPECIFIC

DISK ADDRESS.

USE A SPECIFIC DISK ADDRESS FOR TEST 14 ?

ENTER EITHER A
WILL

TYPE

"CR'

OR A

"Y',

IF A

'Y'

IS ENTERED,

THE PROGRAM

THE FOLLOWING REMINDER MESSAGE ABOUT DATA PATTERN USAGE.

(A SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED

IF NOT, PATTERN O (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

g?sglfgefgk THESE ADDRESSES.
N

BELOW.

THE ENTRY REQUESTS FOR THE ADDRESSES ARE

ENTER CYLINDER ADDRESS:

ENTER TRACK ADDRESS:
ENTER SECTOR ADDRESS:
IF A SPECIFIC ADDRESS IS ENTERED FOR TESTING,

PLACE ONLY AT

THAT ADDRESS WITH

TESTING WILL TAKE

THE WORD COUNT AND 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

4.6

OPERATION OF

MACY11

TESTS 15,

30A(1052)

1
22-APR-78

14:43

PAGE 11

16, & 17

TEST 15 AND TEST 17 CONTAIN IMBEDDED OPERATING INSTRUCTIONS.

AND OPERATING

INSTRUCTIONS ARE

TYPED OUT AS THE

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, SW<07> MUST BE TOGGLED (TURNED ON,
TO SETUP THE RP11E

FOR HEAD ALIGNMENT,

PINS J13M2 AND J13C2 ON THE BACKPLANE.

THEN OFF).

CONNECT A JUMPER BETWEEN

ERROR HANDL ING

5.1

ERROR REPORTING
WHEN THE

PROGRAM DETECTS AN ERROR,

IF SW<13> IS NOT SET,

THE

ERROR ROUTINE

IS CALLED;

THE ERROR MESSAGE FOR THAT ERROR WILL BE TYPED.

EACH ERROR TYPEOUT CONTAINS THE FOLLOWING:
A.

B.
C.

AN ERROR MESSAGE

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

2.
3.

5.2

THE ADDRESS (PROGRAM COUNTER CONTENTS) WHERE THE ERROR

CALL WAS MADE
CONTENTS OF THE APPROPRIATE REGISTERS

OTHER SPECIFIC DATA

ERROR TYPES
I:$AERRORS DETECTED ARE DIVIDED INTO 2 CATEGORIES:
L.

FATAL

ERRORS ARE

DRIVE

UNSAFE

ERRORS WHICH OCCUR ON

FATAL AND NONTHE

DRIVE

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 OTHER ERROR TYPES ARE
THE ERROR IS REPORTED.

NON-FATAL,

E.G.,

TESTING CONTINUES AFTER

SEQ 0010

TMTM

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

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

MACY11

30A(1052)

RESTRICTIONS

6.1

SUBSYSTEMS WITH MIXED DRIVE TYPES

L1
22-APR-78

THE PROGRAM ASSUMES THAT ONLY ONE KIND OF

DRIVE

14:43

PAGE 12

IS ATTACHED TO

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

MIXED SYSTEM,

TEST ALL OF

OTHER DRIVES ON THE

6.2

SAME

KIND OF

DRIVE AT ONE

TIME.

THE

FORMATTED PACKS

EACH OF

6.3

THE

CONTROLLER MUST BE POWERED DOWN.

THE DRIVES BEING USED MUST HAVE A FORMATTED DISK PACK.

'CONTROL C'

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 IN 10/15 MODE.

6.4

CONTROLLER

TEST

13 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

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

MISCELLANEOUS

7.1

RUN TIME

TO MAKE ONE PASS OF

MACY11

30A(1052)

n1
22<APR-78

THE PROGRAM (TESTS 0 - 14)

14:43

PAGE 13

TAKES APPROXIMATELY

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

7.2

STACK POINTER

STACK IS INITIALLY SET TO 1100 AND EXTENDS DOWNWARD IN MEMORY.
7.3

END OF PASS/END OF

TEST

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

7.4

SUBROUTINE CALLS
THE

SUBROUTINE

CALLS USED BY THE PROGRAM ARE:

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

‘'ERROR' (EMT INSTRUCTION).
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.

THE

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
RDLIN = READ A LINE FROM THE TTY KEYBOARD

SAVREG = ROUTINE TO SAVE RO - RS

RESREG = ROUTINE

TO RESTORE RO - RS

CALLS:

SEQ 0012

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

MACY11

N1
22-APR-78

14:43

PAGE 14

DISK SURFACE USAGE
THE PROGRAM USES THE

FOLLOWING DISK LOCATIONS FOR

TEST

TESTING.

DISK REQEEEE

CYyL O, TRK 0, SEC 0

CYyL O,

CYyL O, TRK 0, SEC O

7.6

30A(1052)

TRk 0,

SEC O

CYyL O,

TRk 0, SEC 0

CvL 0,

TRK 0,

CYyL O, TRk 0, SEC 0

CYL 192,

CvL 0,

TRK 0,

SEC O

CvL 0,

TRK 0,

SEC 0 - 9

CvL O,

TRK 0 - 19,

CyL 0,

TRK 0,

CvL 0,

TRK 0, SEC 0

ENTIRE PACK

MAXIMUM CYL,

N/A

NONE

MAXIMUM CYL,

TRK 19,

SEC 9

SEC 0

TRK 0, SEC 0

SEC O

TRK 0,

SEC 0

TEST EXECUTION SEQUENCE
THE TEST SEQUENCE IS TESTS 0 - 14,
TESTS 15, 16, & 17 ARE ONLY
PERFORMED IF DIRECTED BY THE OPERATOR FROM CONVERSATION MODE.
TESTS

15,

7.7

16, OR 17 CANNOT BE EXECUTED IN SEQUENCE.

DRIVe STATUS TYPEOUT
WHEN THE PROGRAM IS STARTED FROM LOCATION 200,

ENTERS THE CONVERSATION ROUTINE FROM A
TYPE

THE

STATUS OF

DRIVES 0 =

THIS DRIVE

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

204,

"CONTROL C',

STATUS

210,

OR 214 OR

THE PROGRAM WILL
TYPEOUT

CAN

THE PROGRAM IS 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

IF 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 ADDRESS OF THE COMPARSION ERROR CAN BE FORMED BY ADDING
THE APPLICABLE °'KIPAR' REGISTER CONTENTS (THE REGISTERS ARE DISPLAYED)
TO THE VIRTUAL ADDRESS OF THE ERROR.

7.9

PATTERN 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 IN

CONVERSATION MODE.
THE PATTERN SELECTION WORD CONTAINS A BIT FOR
EACH PATTERN TO BE USED: BITOO REPRESENTS PATTERN 0, BITO1 REPRESENTS
::}}E:N 1,
N.
THE

OCTAL

ETC.

VALUES

REFER

TO SECTION 8.13 FOR

FOR EACH DATA PATTERN ARE

OCTAL

CONTENTS OF

EACH

FOLLOWS.

SELECTION CODE

e
——

THE

VS W

=00V

»H

o
o

WN—=O

PATTERN #

THE

INDIVIDUAL OCTAL

1000
2000
4000
10000
20000
40000

100000
CODES ARE

"OR ED'

TOGETHER

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

TO FORM THE

PATTERN

THE 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.P1
22-APR-78 14:42

MACY11

30A(1052)

22-APR-78

14:43

PAGE

SEQ 0015

TEST DESCRIPTIONS

8.1

TEST O =

"CLEAR'

VERIFY THAT

COMMAND TERMINATION TEST

°'CLEAR'

TERMINATES AN OPERATION AND CAUSES CONTROLLER

READY TO SET.

8.2

TEST

= WRITE

CHECK

THIS TEST VERIFIES

COMMAND TEST

THE WRITE

CHECK

CHECK ERROR CAN BE DETECTED.

PATTERNS ARE USED

8.3

TEST 2 - PARTIAL

TO TEST

LOGIC AND TO VERIFY

‘'FLOATING ONES'

THE WRITE

SECTOR WRITE

CHECK

AND

THAT A WRITE

'FLOATING ZEROS'

COMPARE LOGIC.

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 IS THEN
READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND
THE REST SHOULD BE ZEROS.

8.4

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.

8.5

TEST & -

"PROG'

ERROR

TEST

VERIFY THAT THE RP11E GENERATES A

WHILE

8.6

THE

TEST 5 =

CONTROLLER

'PROG' ERROR

IF A COMMAND IS ISSUED

IS BUSY.

"HEADER NOT FOUND'

TEST

MISFORMAT THE FIRST SECTOR ON THE PACK AND THEN READ IT 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'

8.7

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
HOLD THE READ COMMAND UNTIL THE SEEK IS COMPLETE.

8.8

TEST 7 -

SHOULD

"NXME' ERROR 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.P1T
22-APR-78 14:42

8.9

MACY11

30A(1052)

22-APR-78

14:43

PAGE

SEQ 0016

TEST 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).
THE TEST IS PERFORMED IN 3 PARTS.
1.
WRITE ALL HEADERS ON TRACK O,
FROM INDEX (0, 1, 2 ... 9).

CYLINDER O 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 EXPECTED VALUE.
THE EXPECTED VALUE IS 1 GREATER

THAN THE SECTOR READ.
THE
Uét%s?ERINCREHENTED BY THE
R
.

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

WRITE

IN THE DATA FIELD.

THE SECTOR'S ADDRESS

OCTAL 12 IS WRITTEN.)

(FOR SECTOR 0,

CONTINUE THIS SEQUENCE FOR THE REMAINING SECTORS ON THE TRACK.

READ THE DATA FROM EACH SECTOR USING A NORMAL (I.E., NON-HEADER)

READ AND VERIFY THAT

8.10

TEST 11

THE DATA

IS CORRECT FOR

THE EXPECTED SECTOR.

= TRACK ADDRESSING TEST

TRACK ADDRESSING IS TESTED BY WRITING THE

TRACK'S ADDRESS AS DATA

SECTOR O OF EACH TRACK IN CYLINDER O.
SECTOR O IS THEN READ BACK AND
THE DATA IS CHECKED TO VERIFY THAT THE PROPER HEAD WAS SELECTED.

8.1

TEST 12 - EXTENDED MEMORY ADDRESS BIT TEST

THIS TEST TESTS THE OPERATION OF THE EXTENDED MEMORY ADDRESS BITS.
[IF 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 TEST SECTOR INTO LOCATION 177776.
LOCATION

200000 IS CHECKED TO VERIFY THAT THE DATA IS CORRECT (ONES).

PROGRAM VERIFIES THAT

°'MEX00'

HAS SET AND THAT

IF THE SYSTEM HAS AT LEAST 64K,

'MEX01'

'MEXO1'

IS TESTED.

THE

IS NOT SET.

LOCATION

400000 IS CLEARED AND THE TEST SECTOR IS READ INTO LOCATION 377776
('MEXO0' IS SET FOR THE READ).
LOCATION 400000 IS CHECKED FOR THE

520§E¥ CONTENTS

(ONES).

°"MEX00'

SHOULD HAVE RESET AND

°"MEX01'

SHOULD

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

8.12

MACY11

30A(1052)

E_2

22-APR-78

14:43

PAGE 18

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

THE DATA

TEST 13 = RP11E DATA BUFFER REGISTER BIT TEST

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 SECTOR IS THEN READ AND THE DATA IS COMPARED.

COMPLETION OF
PDP-11 MODE.
TEST

THE

TEST,

THE PROGRAM RESTORES THE

TEST SECTOR

AT THE
TO

14 - DATA STORAGE/RETRIEVAL 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
;?;EAVAILABLE 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.
(MEMORY
MANAGEMENT WILL NOT BE USED IF THE TEST IS RUN ON MEMORY MANAGEMENT

SYSTEMS WITH 28K OR LESS.)

IF 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.PN
22-APR-78 14:42

MACY11

THE DATA PATTERNS USED BY

30A(1052)

F_2
22-APR-78

14:43

PAGE 19

THE DATA TEST ARE GIVEN BELOW:

000000
000000
000000
000000
000000
0000G0
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
173777
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
READIMNG 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 PERFORMS HEAD SELECTION AS DIRECTED FROM THE KEYBOARD;
ALIGNMENT OF THE SELECTED HEAD MAY BE CHECKED OR ADJUSTED.

SEQ 0018

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

MACY11 30A(1052)

2
22-APR-78

14:43

PAGE 20

TEST 17 - RP11E/DRIVE CONTROL PANEL 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

E%:::SD§1?P11-E FUNCTIONAL LOGIC & R/W TEST

MACY11

22-APR-78 14:42

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

LTITLE

14:43

PAGE 21

SEQ 0020

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST

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

01754

:*PROGRAM BY C. HESS/F. ROEMER
®

;*THIS PROGRAM WAS ASSEMBLED USING

;*PACKAGE

(MAINDEC-11-DZQAC-C3),

THE

PDP-11

JAN 19,

1977.

MAINDEC

SYSMAC

.SBTTL

OPERATIONAL SWITCH SETTINGS

N
T

R
B

I
T

I
TR

R
TR

I
TR

000000

000174
000176

000174
000000
000000

967

000046

000052

ITERATIONS

PRINT ALL

COMPARE ERRORS

INHIBIT DATA COMPARE

IN TESTS

13 &

IN TESTS 13 & 14

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

TRAP CATCHER

.=0

;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
DISPREG:
SWREG:

.=
.WORD
.WORD

0
0

.SBTTL

ACT11

HOOKS

: :SOFTWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

R R

;HOOKS REQUIRED BY ACT11

017050
000052
000000
000200

R AR RN

:SAVE PC

ie»suzuo

::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

T=$SVPC

.=200

R R R PR R

sszzc:.

WORD
.SBTTL

000200

INHIBIT

s*ALL UNJSED LOCATIONS FROM 4 - 776 CONTAIN A "', 42 HALT"
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000200
000046

TEST

BELL ON ERROR
LOOP ON ERROR
DON'T TYPE DRIVE STATUS WHEN PROGRAM STARTED OR WHEN
ENTERING CONVERSATION MODE
CHANGE HEAD SELECTION IN TEST 16
DON'T USE MEMORY MANAGEMENT IN TEST 14
DISPLAY ALL READ RETRY ATTEMPTS IN TEST 14

O—=NWHUVO

T
T T
T

.SBTTL

LOOP ON

INHIBIT ERROR TYPEOUTS

0
9
7

947

948
949

HALT ON ERROR

“

945

USE

SWITCH

*®

946

968
969
970
971
972
973
974
975
976
977
978

2
22-APR-78

940
941
942
943
944

950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966

30A(1052)

STARTING ADDRESSES

::2)SET LOC.52 TO ZERO
'

RESTORE PC

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
CZRPYD.PN
22-APR-78 14:42
STARTING ADDRESSES

979
980
981
982
983

984

985
986
987
988
989
990
991
992
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

001100

000011
000012
000015
000200

177776

177774

;+200
;%204

:*210

22-APR-78

14:43

NORMAL START
JMP
SELECT OPERATéflG PARAMETERS
JMP

SELECT RP11E ADDRESS

JMP

;%214

COMBINATION OF 204 AND 210
JMP

.SBTTL

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER #++ 17100 w##«

STACK=
.EQUIV
.EQUIV

1100
EMT,ERROR
10T,SCOPE

;:BASIC DEFINITION OF ERROR CALL
ssBASIC DEFINITION OF

s*MISCELLANEOUS DEFINITIONS

HT=

LF=
CR=
CRLF=

PS=
.EQUIV

12
15
200

177776
PS,PSW

;:CODE

FOR HORIZONTAL

SCOPE CALL
TAB

;sCODE FOR LINE FEED
;;CODE FOR CARRIAGE RETURN
;:CODE FOR CARRIAGE RETURN=-LINE FEED
s ;PROCESSOR STATUS WORD

STKLMT= 177774

ssSTACK LIMIT REGISTER

DSWR=
DDISP=

s sHARDWARE SWITCH REGISTER
s sHARDWARE DISPLAY REGISTER

177772
177570
177570

PIRQ=

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

RO=
R1=
R2=
R3=

20
X1
X2
%3

RS=

: sGENERAL
s ;GENERAL
s sGENERAL
s sGENERAL
s ;GENERAL
s sGENERAL

X7
X6
X7

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

177772

177570
177570

;sPROGR.\M INTERRUPT REQUEST REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS

R4=

Ré6=

R7=
SP=
PC=

; sGENERAL REGISTER

s*PRIORITY LEVEL DEFINITIONS

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=

0
40
100

PR4=
PRS=
PR6=
PR7=

200
240
300
340

100000

sSW15=

040000
020000
010000
004000

PAGE 22

PR3=

140

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

:;PRIORITY LEVEL 3

::PRIORITY
:sPRIORITY
;:PRIORITY
::PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL

s*"'SWITCH REGISTER' SWITCH DEFINITIONS

SWi4=

SW13=
sWwi2=
SWil=

100000

40000

2000C
10000
4000

4
S
6
7

SEQ 0021

1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045

1046
1047
1048
1049
1050
1051
1052

1053
1054
1055
1056
1057
1058
1059
1060

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

100000
040000
020000

1061
1062

010000
004000

1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

1063

1089
1090

002000

SW10=
SW09=

SW08=
SWw07=
SWo6=
SW05=
SW04=

2
22-APR-78

14:43

PAGE 23

2000

1000
400

200

100
40

SW03=
SWw02=

.EQUIV
.EQUIV
.EQUIV
LEQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

SW09,sw9
SW08,sw8
SW07,Sw7
SW06,SW6
SWO05,Sw5
SW04,Sw4
SW03,sw3
SW02,Sw2
SW01,sw1
SW00, swo

SWo1=
SW00=

2
1

BIT DEFINITIONS
100000
40000

(BITOO TO BIT1S5)

20000

10000
4000
2000
1000
400
200
100
40

20
10

2
1

BIT09,BIT9

BIT08,B1T78
BIT07,BI117
BIT06,BITé
BITOS5,BITS
BIT04,BIT4
BIT03,BIT3
BIT02,BIT2
BITO1,BIT

BIT00,BITO

000004
000010
000014
000014
000014

"'CPU"" TRAP VECTOR ADDRESSES

;s TIME OUT AND OTHER ERRORS

14
14

:: TRACE TRAP
; ;BREAKPOINT TRAP

; RESERVED AND ILLEGAL

(BPT)

INSTRUCTIONS

SEQ 0022

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
CZRPYD.P1
22-APR=73 14:42
BASIC DEFINITIONS

000250

OOWVBa W= O VN

D L
D
D

N
Y
Y

D
D
D
D

J—

D
D

J— Y—
Y

D
B

Y
Y

B
D
D

QS Y

g
Yy

D
el
-l
el

Dl —lh
il

e
e
—

:~aa:~:~a&uwuwwwuuuuuwmwwwwmmw-a-o—-----n—--ooooogos
VNS WN 2OV
NO VB WSOV
N VA WN=0O0V~NOWm
W

000020
000024
000030
000034
000060
000064
000240

)

1091
1092
1093
1094
1095
1096
1097
1098
1099
b

2
22-APR-78

14:43

IOTVEC= 20

;s INPUT/0UTPUT TRAP (IOT) =«SCOPE++

EMTVEC= 30

;;EMULATOR TRAP (EMT) =+ERROR**

PWRVEC= 24

; ;POWER FAIL

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

;*KT11 VECTOR ADDRESS
MMVEC=

250

;*KT11 STATUS REGISTER ADDRESSES
177572
177574
177576
172516

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

;*KERNEL "'I'" PAGE DESCRIPTOR REGISTERS
172300
172302
172304

172306
172310
172312
172314
172316

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

172300
172302
172304
172306
172310
172312
172314
172316

;*KERNEL "'I'" PAGE ADDRESS REGISTERS
KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=
KIPAR6=
KIPAR7=

172340
172342
172344
172346
172350
172352
172354
172356

;RP11E REGISTER INDEX EQUATES
000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024

PAGE 24

RPDS=00

RPER=02
RPCS=04
RPW(C=06
RPBA=10
RPCA=12
RPDA=14
RPM1=16
RPM2=20
RPM3=22

SUCA=24

SEQ 0023

TMTM

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
CZRPYD.P1
22-APR-78 14:42
BASIC DEFINITIONS

L_2

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

WO NNNNNNNNNNoOorO
OO
VTIVITNVT NN wn
WN 2OV
NOWVSWN 2O VNS W0V
NO-WVS~WN = o

G
S

S———
R
S
g
Sy
e Y

R
R R
Y

e
e

e I

b
R
R
e

PAGE 25

SIL0=26

;RP11 OP CODE DEFINITIONS
000001
000003
000005
000007
000011
000013
000015
000017

CLEAR=1
WRTSEK=3

RDSEK=5

WRTCHK=7
SEEK=11
WRITE=13
HOMSEK=15
READ=17

;CLEAR THE CONTROLLER
;WRITE WITH

IMPLIED SEEK AND HEAD SELECTION

;READ WITH IMPLIED SEEK AND HEAD SELECT
::gélf CHECK WITH IMPLIIED SEEK AND HEAD SELECT
;WRITE (NO IMPLIED SEEK OR HEAD SELECT)
sHOME SEEK

sREAD (NO IMPLIED SEEK OR HEAD SELECT)

sRPDS REGISTER BIT DEFINITIONS

000400
001000
004000
020000
040000
100000

SUWP=400
SUFU=1000
SuS1=4000
SURP03=20000
SuU0L=40000
SURDY=100000

sSELECTED
;SELECTED
sSELECTED
sSELECTED
;SELECTED
;SELECTED

UNIT
UNIT
UNIT
UNIT
UNIT
UNIT

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

sRPCS REGISTER BIT DEFINITIONS

- ————

000026

1147

14:43

000020
000040
000100
000200
004000
010000
020000
040000

100000

MEX0=20
MEX1=40

IDE=100

RDY=200
HDR=4000
MODE=10000
AIE=20000
HE=40000
ERR=100000

;EXTENDED MEMORY BIT #1
;EXTENDED MEMORY BIT #2
; INTERRUPT ON DONE ENABLE BIT
sRP11

CONTROLLER READY BIT

sHEADER OPERATION BIT
;MODE BIT

sATTENTION INTERRUPT ENABLE BIT
sHARD ERROR BIT

;ERROR BIT

SEQ 0024

—

o
o

i
i

SERLRJREC2ETEIEAR

D L

001100

D -

14:43

PAGE 26

SEQ 0025

RN AR

RN R R AR RN R ARRARAARRRRRRORARANA
AR
RARREREA R

;*USED IN THE PROGRAM.

cd i i

2
22-APR-78

s*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

SCMTAG:
$PASS:
STSTNM:
SERFLG:
S$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000
000
000
000000
000000
000000
000000

$AUTOB:
$INTAG:

.=1100
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE

0
0
0
O
0
0
O
0
1

.WORD
.WORD

0
0

.WORD
.WORD
.WORD
.WORD
.WORD

.BYTE
.85;;
.o

1227

001174

1229
1230
1231
1232
1233
1234

001176
001200
001202
001204
001206
001210

000
000000
000000
000000
177607
077
015
000012

000377

SWR:
.WORD
DISPLAY: ._WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPB:
177566
SNULL:
.BYTE
SFILLS: .BYTE
SFILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
STIMES: 0
SESCAPE:0
$BELL:
L.ASCIZ
SQUES:
L.ASCII
$SCRLF:
L.ASCII
$LF:
LASCIZ
MR

1235
1236
1237
1238
1239

30A(1052)

COMMON TAGS

SRR

b o

—

.SBTTL

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

001212
001214
001216
001220
001222

000000
000000
700000
000000
000000
000000
001750
000000

000000
000000
000000

AR AR

CHKDRV:
BYPASS:

0
0
0
0
O
O
8

s sAUTOMATIC MODE
:: INTERRUPT MODE

DSWR
DDISP

: ;ADDRESS OF SWITCH REGISTER

0
2
12
O

O
0
0

sTEST ITERATION COUNT
:CHANGE RP11 ADDRESS FLAG
sSTALL VALUE

O
1000.

.WORD

MMACTV:

s CONVERSATION MODE FLAG

.WORD
.WORD

_WORD
.WORD
.WORD

MAXCYL:
TIMOUT:

ICNT:
BUSADR:
STALLT:

:ADDRESS OF DRIVE BEING USED
sTEST EXIT ADDRESS

.WORD
.WORD

.WORD

s ;ADDRESS OF DISPLAY REGISTER

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

0
0

FLAG:
PATNUM:

CNTRLC:

INDICATOR
INDICATOR

:INSERT FILL CHARS. AFTER A ''LINE FEED''
::"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
O
: ;USER DEFINED
s sMAX. NUMBER OF ITERATIONS
;:ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
77/
;;QUESTION MARK
<15
s sCARRIAGE RETURN
<12>
ssLINE FEED

.WORD
.WORD

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

O
0

: INTERNAL PROGRAM FLAG WORD
s CURRENTLY SELECTED PATTERN

sMAXIMUM CYLINDER ADDRESS FOR THE DRIVE
sTIME ALLOWED FOR AN OPERATION

sMEMORY MANAGEMENT

IS ACTIVE

FLAG

IN USE

.WORD

001306
001310

000000
000000

DRVMSK:
DRVBAD:

.WORD
.WORD

001312
001314
001316
001320
001322

000000
000000
000003
000003
000000

DRVSEL:
RETRY:

.WORD
.WORD
.WORD
.WORD
.WORD

;RP11

001324
001326
001332

176710
000254
000240

000256

2
22-APR=r8

192.

OWWOO

LRETRY:
CMP.CT:
LDRFLG:

DRVTYP:

.WORD
.WORD
.WORD
LOMEM:
.WORD
PAKSIZ: .WORD
INCSEC: .WORD
: .WORD
INCTRK
BLKS14: .WORD
wC14:
.WORD
OPRSEL: .WORD
LMT8K:
.WORD
:
MAXWC
.WORD
SCYL:
.WORD
STRK:
.WORD
SSEC:
.WORD
RDERR:
.WORD
TSTNMS: .WORD
PATTRN: .WORD
MEMSIZ: .WORD

000000

001252

"001254

ACTMEM:
MAXMEM:
HIMEM:

OO0 O0O

001304

001250

000000
000000
000000
000000
000000

OO0 O0O0O0COOMWMOOOoOOOOO0OOOO

001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302

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

OO0

001224
001230
001234
001240
001244

14:43

PAGE 27

SEQ 0026

sPHYSICAL ADDRESS OF NEXT READ BUFFER
sADDRESS OF LAST MEMORY BANK (FILLED BY $SIZE)
sPHYSICAL ADDRESS OF
sPHYSICAL ADDRESS OF

LAST MEMORY BANK (FOR TEST
FIRST BUFFER LOCATION

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

INCREMENT VALUE

;NUMBER 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 0,
sPATTERN SELECTION WORD FOR TEST 14

ETC.

;ADDRESS OF HIGHEST NON-MEMORY MANAGEMENT

sMEMORY LOCATION
;CONTAINS A BIT FOR EACH RPO3 DRIVE
;ON THE SYSTEM. BITO0 = DRIVE 0, ETC.
;ORIVE TEST SELECTION MASK
sCONTAINS A BIT FOR THE DRIVE IF THE DRIVE
sGOES OFFLINE OR BECOMES UNSAFE DURING TESTING.

;BITO0 = DRIVE 0, ETC.
sCONTAINS A BIT FOR EACH DRIVE TO BE TESTED
;RETRY COUNTER FOR TEST 14
sRETRY LIMIT FOR TEST 14
:NUMBER OF COMPARE ERROR TYPEOUTS

;WHEN =0 LOADERS ARE AT TOP OF MEMORY

ADDRESS VALUES

RPADR
RPVEC:
RPPRIO:

.WORD
.WORD
.WORD

176710

;RP11 BUS ADDRESS

<5+32.>

;RP11 PRIORITY

254,256

;RP11

VECTOR ADDRESS

001334
001336
001340
001342
001344

001346
001350
001352
001354
001356

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

$RPDS:
$SRPER:
$RP(CS:
SRPW(:
$RPBA:
$RPCA:
$SRPDA:
SRPM1:
$SUCA:
$SILO:

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

=lelelelelelelele]

sSAVE THE RP11E REGISTERS HERE
;DRIVE STATUS WEGISTER
;ERROR REGISTER
;COMMAND & STATUS REGISTER
;WORD COUNT REGISTER
;BUFFER ADDRESS REGISTER
;CURRENT CYLINDER ADDRESS REGISTER
:TRACK-SECTOR ADDRESS REGISTER

sMAINTENANCE REGISTER M

sSELECTED UNIT CYLINDER ADDRESS REGISTER
;SILO REGISTER

SATTENTION BITS
001340
001361
001362

001
002
004

ATABIT:

.BYTE
.BYTE
.BYTE

&S0
-

1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
129
1295

30A(1052)

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

;DRIVE 0
;DRIVE 1
;DRIVE 2

14)

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

PON) =

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

100

200

22-APR-78

14:43

PAGE 28

SEQ 0027

100

200

;DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
;DRVSTA=0 DRIVE NONEXISTENT OR OFFLINE
;DRVSTA>0 DRIVE IS ONLINE
;DRVSTA<O DRIVE IS UNSAFE
001370
001371
001372
001373
001374
001375
001376
001377

000
000
000
000
000
000
000
000

DRVSTA:

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

[=lelelelelele]-)]

d e

010
020
040

;DRIVE

;TABLE

;DRIVE
;sDRIVE
;sDRIVE
;DRIVE
sDRIVE
;DRIVE
;DRIVE

;BIT TABLE

b e

001363
001364
001365
001366
001367

NOWVMSsS
NN —-O

= OVONOWVS~WNN=O

—

WWWWWWWWWWWWW

1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306

30A(1052)

001400
001402
001404
001406
001410
001412
001414
001416
001420
001422
001424
001426
001430
001432
001434
001436

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

001440
001442
001444
001446
001450
001452
001454
001456
001460
001462
001464
001466
001470
001472
001474
001476

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

BITS:

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

BIT00
BITO1
BI1T02
BITO3
BITO04
BITOS
BITO06
BITO7
BITO8
BITO09
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S

PAT.PT:

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

PATO
PAT1
PAT2
PAT3

010000
020000
040000
100000

.WORD
.WORD
.WORD
.WORD
.WORD

PAT4

PATS
PATé
PAT?
PAT8
PATY
PAT10
PAT11
PAT12
PAT13
PAT14
PAT15

POINTERS WHICH POINT

;PATTERNS USED BY THE DATA TEST

THE

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD PN
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
1404
1405
1406
1407

30A(1052)

3
22-APR-78

14:43

;PATIERNS 0 THRU 15
001500
001502
001504
001506
001510
001512
001514
001516
001520
001522
001524
001526
001530
001532
001534
001536

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

PATO:

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

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

sPATTERN 0

001540
001542
001544
001546
001550
001552
001554
001556
001560
001562
001564
001566
001570
001572

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

PAT1:

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

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

sPATTERN

001600
001602
001604
001606
001610
001612
001614
001616
001620
001622
001624
001626
001630
001632
001634

PATZ2:

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

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000

001636

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

001640
001642

000000
000000

PAT3:

001574
001576

177777

037777

077777
177777
;PATTERN 2

170000

.WORD
.WORD

160000
140000
100000
000000

.WORD
.WORD

000000
000000

;PATTERN 3

PAGE 29

SEQ 0028

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

1408
1409
1410
1411
1412
1413
1414
1415
1416
1617
1418
1419
1420
14621
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433

1434
1435
1436
1437
1438

1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462

1463

001644
001646
001650
001652
001654
001656
001660
001662
001664
001666
001670
001672
001674
001676

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

001700
001702
001704
001706
001710
001712
001714
001716
001720
001722
001724
001726
001730
001732
001734
001736

000000
010421
021042
031463
042104
052525
063146
073567

001740
001742
001744
001746
001750
001752
001754

052525
052525
052525
125252

001756
001760
001762
001764
001766
001770
001772
001774
001776
002000
002002
002004
002006
002010
002012
002014

000000
177777
177777
177777
000000
000000

PATS:

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

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

sPATTERN 4

PATS:

.WORD

052525
052525
052525
125252

;PATTERN 5

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

052525

125252
052525
125252
125252
052525

007417

14:43

177777
177777
000000
177777
000000
177777
177777
000000

125252
125252
052525
052525
125252
125252

170360
170360
170360

03
22-APR-78

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

104210
114631
125252
135673
146314
156735
167356
177777

007417
007417
007417

30A(1052)

PATG:

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

;PATTERN 6

007417

PAGE 30

SEQ 0029

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

VO NO NN
—

b
b

i
i

d
h o

i
i

e
—

vV
v

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

002016
002020
002022
002024
002026
002030
002032
002034
002036

007417
170360
170360
007417
170360
007417
170360
170360
007417

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

026455
026455
026455
151322
151322
151322
026455
026455
151322

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
PAT7:

151322

026455

151322

026455

151322
151322

026455

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

30A(1052)

22-APR-78

14:43

007417
170360
170360

007417
170360
007417
170360
170360
007417

026455
026455
026455

sPATTERN 7

151322
151322
151322
026455
026455
151322
151322

026455
151322

026455
151322
151322
026455

002100
002102
002104
002106
002110
002112
002114
002116
002120
002122
002124
002126
002130
002132
002134
002136

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

;PATTERN 8

002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166

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

PAT9:

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

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

sPATTERN 9

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

PAGE 31

(WORST CASE PATTERN)

SEQ 0030

MACY11
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
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
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570

157
1572
1573
1574
1575

002170
002172
002174
002176

010000
020000
040000

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

177776
177775
177773
177767

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
002312
002314
002316
002320
002322
002324
002326
002330
002332
002334

077777
137777

002336

3
22-APR-78

14:43

010000
020000
040000

PAT10:

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

;PATTERN

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

077777

;PATTERN 12

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

172666
155555
172666
155555

157777

.WORD
.WORD
.WORD
.WORD

100000

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

30A(1052)

PAT12:

100000

155555

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

PAGE 32

SEQ 0031

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PN
22-APR-78 14:42
COMMON TAGS
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590

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

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

PAT13:

1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607

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

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

PAT14:

1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622

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

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

PAT15:

1624
}2%2

002474
002476

000000
000000

}gg;

}ggg

1623

002376

002436

002472

177777

}gsg
1629
1630
1631

22-APR-78

14:43

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

;PATTERN 13

_.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

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

;PATTERN 14

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

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

;PATTERN 15

.WORD
.WORD

000000
000000

.WORD

000000

6_3

_.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD

.WORD

177777

30A(1052)

.WORD

PAGE 33

177777

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

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

1632
1633
1634
1635
1636
1637

1638

002503
002504
002506
002510
002512
002513

000
(20000
000000
000000
000
000

SWi:
¢BUF:
SCYL:
$SEC:
$TRK:

.BYTE
.WORD

30A(1052)

3
22-APR-78

14:43

PAGE

0
0

sMODE AND HDR BITS
;WORD COUNT

;CYLINDER ADDRESS

.WORD

.BYTE
.BYTE

0
0

.WORD

;BUFFER ADDRESS

;SECTOR ADDRESS
; TRACK ADDRESS

SEQ 0033

1_3

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

:228

.SBTTL

1641

s*THIS

1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
}ggg

;*NOTE1:
;*NOTE2:

1642
1643

1670
1671
1672
1673
1674
1675
1676
1677
1678
1679

1680

1681
}gg%

1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694

22-APR-78

14:43

PAGE 35

SEQ 0034

ERROR POINTER TABLE
TABLE

CONTAINS THE

INFORMATION FOR EACH ERROR

THAT

CAN OCCUR.

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

it
:®
3
o
002514

002514
002516
002520
002522

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

EM
DH
DT
DF

;:POINTS
:;POINTS
::POINTS
::POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

EM1
DH1
DT

:RP11

EM2
DH2
DT2
DF2

;CAN'T START READ COMMAND

EM3
DH2
DT2
DF2

:"CLEAR"

EM4
DH2
D12

;ERROR WRITING TEST

EMS
DH5
DTS
DF5

;WRITE CHECK ERROR CHECKING TEST SECTOR(S)

EM6
DHS
DTS
DF5

;EXPECTED

SERRTB:
;ERROR 1

032173
040315
043036
043516

DIDN'T RESPOND TO ADDRESSING

DF1

;ERROR 2

002524
002526
002530
002532

032235
040323
043040
043522
;ERROR 3

002534
002536
002540
002542

032266
040323
043040
043522

COMMAND DIDN'T TERMINATE DATA TRANSFER OPERATION

;ERROR 4
002544
002546
002550

002552

032357
040323
043040

043522

SECTOR(S)

DF2

;ERROR 5
002554
002556
002560
002562

032414
040465
043072
043532

;ERROR 6
002564
002566
002570
002572

032466
040465
043072
043532

"WCE"

DIDN'T OCCUR

b
b
D
D e
b
D ad
D wd
d ad
D
d
d
e
— —

~N~N NVNNNNNVN“*NNNNN
N ~N POMNINININD
= e ed
o b d
NO v SUWNLOOOVONOWVSWNN=O

1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705

1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740

1741
1742
1743
1744
1745
1746
1747
1748
1749
1750

J_3

22-APR-78

14:43

PAGE 36

SEQ 0035

;ERROR 7
002574
002576
002600
002602

032522
040323
043040
043522

EM7
DH2
D12

;ERROR WRITING LESS THAN A FULL SECTOR

DF2

;ERROR 10

002604
002606
002610
002612

000000
000000
000000
000000

0
0
0
0

s UNUSED

;ERROR 11
002614
002616
002620
002622

032570
040637
043126
043542

EMN
DH11
DT
DF11

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

;ERROR 12
002624

032663

EM12

002626
002630
002632

040720
043142
043542

DH12
DT12
DF11

;NON-ZERO DATA IN PART OF SECTOR WHICH SHOULD HAVE
;BEEN ZERO FILLED DURING PARTIAL WRITE

;ERROR 13

002634

033014

EM13

002636
002640
002642

040323
043040
043522

DH2
DT2
DF?2

;'EOP' DIDN'T SET DURING A 2 SECTOR WRITE BEGINNING
;AT

THE

LAST

SECTOR OF

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

DH2
DT2
DF2

;"EOP" DIDN'T CLEAR RPCA

JERROR 16

002664
002666

033223
041052

EM16
DH16

:SUCA NOT CORRECT AFTER ‘EOP’

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
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
17N
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 37

SEQ 0036

DT16
DF53

;ERROR 17
002674
002676
002700
002702

033260
040323
043040
043522

EMm?7
DH2

;ERROR READING TEST SECTOR

D12
DF2

;ERROR 20
002704

033312

EM20

002706
002710
002712

040637
043126
043542

DH11
DT
DF11

;CONTENTS OF FIRST SECTOR OF PACK CHANGED AFTER

;FORCING

'EOP'

DURING WRITE

;ERROR 21
002714

033425

EM21

002716
002720
002722

040775
043156
043542

DH14
DT14
DF11

;"PROG"'

ERROR DIDN'T SET WHEN READ COMMAND

sWHILE CONTROLLER BUSY

ISSUED

;ERROR 22
002724
002726
002730
002732

033535
040775
043156
043542

EM22
DH14
DT14
DF11

;'ERR' DIDN'T SET WITH 'PROG'

;ERROR 23
002734
002736
002740
002742

033572
040323
043040
043522

EM23

DH2
DT2
DF2

;ERROR ATTEMPTING TO MISFORMAT SECTOR 0

;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
DT25
DF25
sERROR 26

sMISFORMATTED TEST HEADER IS NOT CORRECT

ala)

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

D
D

VONO
VNS WN =

—_— e

d
D o
e
-l
e
—

00 Co 0o 0o co 00 0o 00 OO

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

002764
002766
002770
002772

033766
040323
043040
043522

EM26
DH2
D12
DF2

3
22-APR-78

;"HNF'

14:43

PAGE 38

SEQ 0037

DIDN'T SET WHEN SEARCHING FOR MISFORMATTED SECTOR

;ERROR 27
002774
002776
003000
003002

034056
040775
043156
043542

EM27
DH14
DT14

;'DSK' NOT SET WITH "HNF'

DF11

;ERROR 30

003004
003006
003010
003012

034107
040775
043156
043542

EM30
DH14
DT14
DF11

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

;ERROR 31
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
DH2
DT2
DF2

;ERROR WHILE RESTORING MISFORMATTED TEST HEADER

;ERROR 33
003034

034252

EM33

003036
003040
003042

040323
043040
043522

DH2
DT2
DF2

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

JERROR 34
003044
003046
003050
003052

034363
040323
043040
043522

EM34
DH2
DT2

;ERROR DURING READ COMMAND WHICH WAS ISSUED TO SEEKING DRIVE

DF?2

;ERROR 35

1861
1862

003054

034457

EM35

003056
003060
003062

041167
043204
043546

DH25
D125
DF25

;DATA INCORRECT FROM HEADER READ COMMAND ISSUED

:TO SEEKING DRIVE

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TESI
MACY11 30A(1052)
CZRPYD.PT
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

"3
22-APR-78

14:43

PAGE 39

;ERROR 36
003064
003066
003070
003072

034561
040323
043040
043522

EM36
DH2
DT2
DF2

;"NXME'

DIDN'T SET WHEW 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
043542

EM4O
DH14
DT14
DF11

:"ERR' DIDN7T SET WITH "NXME'

;ERROR 41
003114
003116

003120
003122

034733
040323
043040
043522

EM4T
DH2
D12
DF2

;ERROR FORMATTING TRACK 0

;ERROR 42
003124
003126
003130
003132

034764
040323
043040
043522

EM42
DH2
DT2
DF2

;ERROR READING THE HEADER FROM THE TEST SECTOR

;ERROR 43
003134
003136
003140
003142

035042
041256
043224
043556

EM43
DH~3

;SECTOR FIELD FROM HEADER IS NOT CORRECT

DT«3

DF&3

;ERROR 44
003144
003146
003150
003152

035112
040323
043040
043522

EM4S
DH2
DT2
DF2

;ERROR WRITING SECTOR ADDRESS IN DATA FIELD

;ERROR 45
003154
003156
003160
003162

035165

EM4S

043572

DF45

041502
043262

DH45
DT45

;"SOT" OR SECTOR ADDRESS REGISTER IS NOT CORRECT

SEQ 0038

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P11
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

sERROR 46
003164
003166

003170
003172

035245
041674

043306
043542

EM46
DH46
DT46
DF11

;DATA NOT CORRECT FOR SECTOR READ

;ERROR 47
003174

035316

EM4L7

003176
003200
003202

042031
043322
043602

DH&7
DT47
DF&7

;SECTOR CONTENTS WRONG, DATA SHOULD BE THE
s TRACK NUMBER OF THE CURRENTLY SELECTED HEAD

;ERROR 50
003204
003206
003210
003212

035445
040323
043040
043522

EMSO
DH2

;ERROR AFTER 2 WORD READ STARTING AT LOC 177776

DT2
DF2

;ERROR 51
003214

035524

EMS1

003216
003220
003222

042145
043346
043612

DHS1
DTS
DFS1

:"MEXO' DIDN'T SET AFTER 2 WORD READ STARTING

;AT LOC 177776

;ERROR 52
003224
003226
003230
003232

035620
042145
043346
043612

EMS2
DHS1
DTS
DFS1

:"MEX1' SET AFTER 2 WORD READ STARTING AT LOC 177776

JERROR 53
003234

035704

EMS3

003236
003240
003242

041167
043204
043616

DH2S
DT25

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

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

;"MEXO" DIDN'T CLEAR AFTER 2 WORD STARTING AT LOC 377776

SEQ 0039

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
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
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018

2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030

003256
003260
003262

042145
043346
043612

22-APR-78

14:43

PAGE 41

SEQ 0040

DH51
DT51
DF51

;ERROR 56
003264
003266
003270
003272

036162
042145
043346
043612

EMS6
DHS1
DTS1
DFS1

:"MEX1'

DIDN'T

SET AFTER 2 WORD READ STARTING AT LOC

;ERROR 57
003274

036255

EMS7

003276
003300
003302

041167
043204
043616

DH2S
DT25
DFS3

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

;ERROR 60
003304

036371

EM60

003306
003310
003312

040323
043040
043522

DH2
DT2
DF2

;ERROR RETURNING SECTOR TO PDP-=11 MODE USING A

;2 WORD WRITE

;ERROR 61
003314
003316
003320
003322

036465
040465
043072
043532

EM61
DHS
DTS
DFS

;ERROR WRITING TEST SECTOR(S)

;ERROR 62

003324
003326
003330
003332

036522
040465
043072
043532

EM62
DHS
DTS
DFS

sERROR 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
sCYL ON CONTROLLER POWER FAIL

;ERROR 64

003344

036673

EM64

003346
003350
003352

040720
043142
043542

DH12
DT12
DF11

;CONTENTS OF MEMORY CHANGED DURING POWER
sFAIL WHILE READING THE DISK

377776

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
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

;ERROR 65
003354
003356
003360
003362

037000
040775
043156
043542

EM6S

DH14
DT14
DF11

;'SUOL' SET WITH DRIVE DISABLED

;ERROR 66

003364
003366
003370
003372

037037
040775
043156
043542

EM66
DH14
DT14
DF11

;'SUOL' NOT SET WITH DRIVE ENABLED

;ERROR 67
003374
003376
003400
003402

037101
040775
043156
043542

EM67
DH14
DT14
DF11

;"SUWP' NOT SET WITH DRIVE SET TO 'READ ONLY'

JERROR 70
003404
0C3406
003410
003412

037156
040775
043156
043542

EM70
DH14
DT14
DF11

;'SUWP' SET WITH DRIVE SET TO 'READ/WRITE'

;ERROR 71
003414

037230

EM71

003416
003420
003422

042327
043404
043622

DH71
DT
DF63

;"SUWP' SET WITH RP11 'WRITE LOCKOUT® SET, CYLINDER
:LOA'S = 0, AND RPCA = 0

sERROR 72
003424
003426
003430
003432

037344
042327
043404
043622

EM72
DH71
DT
DF63

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

;ERROR 73

003434
003436
003440
003442

037415
042327
043404

043622

EM73
DH71
DT
DF63

;"SUWP' NOT SET; RPCA = VALUE IN CYL LOA'S

;ERROR 74
003444
003446
003450

037467
042327
043404

EM74
DH71
D171

:"SUWP' SET WITH RPCA ONE GREATER THAN CYL LOA VALUE

SEQ 0041

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

d ok
e
d

b wch
—d

NN
N — —d d e d o
SO0 CONO VSN =

oo
N RPN
N

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

2125
2126

2127
2128
2129
2130

2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142

003452

043622

&
22-APR-78

14:43

PAGE 43

DF63

;ERROR 75
003454
003456
003460
003462

037553
040775
043156
043542

EM75
DH14

;"SUWP' SET WITH DRIVE LOA SWITCHES EQUAL SELECTED DRIVE

DT14
DF11

;ERROR 76
003464
003466
003470
003472

037646
040323
043040
043522

EM76
DH2

;DRIVE HAS GONE OFFLINE

DT2
DF2

;ERROR 77
003474
003476
003500
003502

037675
040323
043040

043522

EM77
DH2

;DRIVE IS UNSAFE

DT2
DF2

;ERROR 100
003504
003506
003510
003512

037715
040323
043040
043522

EM100
DH2
DT2
DF2

;DRIVE TIMED OUT

s ERROR 101
003514
003516
003520
003522

037735
040323
043040

043522

EM101
DH2
DT2
DF2

;CONTROLLER TIMED OuT

;ERROR 102

003524
003526
003530
003532

037762
042414
043422
043626

EM102
DH102
DT102
DF102

;DATA COMPARE ERROR

;ERROR 103
003534
003536
003540
003542

040005
042414
043450
043636

EM103
DH102
DT103
DF103

;DATA COMPARE ERROR (MEMORY MANAGEMENT ENABLED)

;ERROR 104

003544
003546
003550

000000
000000
043504

0
0
DT104

;DATA COMPARE ERROR DETAIL LINE

SEQ 0042

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

2143

2144
2145
2146
2147
2148
2149
2150
2151
2152
2153

003552

043652

&4
22-APR-78

14:43

PAGE 44

DF104

;ERROR 105
003554
003556
003560
003562

000000
042717
043512
043516

0
DH105
DT105
DF1
;ERROR 106

;DATA COMPARE ERROR SUMMARY LINE

SEQ 0043

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD P11
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
DF11

;ERROR 107

22-APR-78

14:43

PAGE 45

;"ERR' DIDN'T SET WITH 'WCE'

SEQ 0044

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

2161
2162
2163
2164
2165
2166
2167
2168
2169
c170
217N
2172
2173
2174
2175
2176
2177
2178
2179

2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190

2191
2192
2193

003574
003576
003600
003602

040120
040775
043156
0435642

EM107
DH14

&
22-APR-78

14:43

PAGE 46

SEQ 0045

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

DT14
DF11

;ERROR 110
003604
003606

003610
003612

000000
042745
000000
000000

0
DH110
0
0

sUNSUCESSFUL AFTER 3 RETRIES

;ERROR 111
003614
003616
003620
003622

000000
043000
043514
043516

0
DH111
DTIMNM
DF1

;SUCESSFUL AFTER 'N' RETRIES

;ERROR 112
003624
003626
003630
003632

040154
040323
043040
043522

EM112
DH2
DT2

;DRIVE UNSAFE AFTER POWER FAIL

DF2

;ERROR 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
g}gg

.SBTTL

2200

2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
2211
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

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
005026
022706
001374
012706

001100

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

012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
012737

021646
000340
017070
000340
022502
000340
017004
001162
001164
000001
004022
004030

004036
004042

013746
012737

000004
004076

004074
004076
004102
004104
004112
004120

000403
012716
000002
012737
012737
012637

000176
000174
000004

001140
001142

004124

023737

000042

000046

004050
004056
004064
004072

012737
012737
022777
001012

177777

001216

001216
001206
177777

001216

001216
177777

001206

001140
001100

177570
177570
177777

000020
000022
000030
000032
000034
000036
016776
001115
001106
001110

000004
001140
001142
175046

004104

R R

&
22-APR-78

R R

14:43

R R

PAGE 47

AR AR R AR R R AR AR AR

SEQ 0046

START OF PROGRAM
R

R R

R R AR R RN RN RN R RS

START3: MOV
#-1,BUSADR
:SET BUSADR FLAG
BR
STRT1A
START1: (LR
a#BUSADR
:CLR BUSADR FLAG
STRT1A: (LR
a#CNTRLC
:NO CONVERSATION MODE
BR
START
:
START4: MOV
#-1,BUSADR
;SET BUSADR FLAG
BR
STRT2A
_
START2: CLR
a#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
:sFIRST LOCATION TO BE CLEARED
CLR
(R6) +
:sCLEAR MEMORY LOCATION
CMP
#SWR,R6 ;;DONE?
BNE
.=6
::LOOP BACK IF NO
Mov
#STACK,SP
;:SETUP THE STACK POINTER
;s INITIALIZE A FEW VECTORS

MoV
#$SCOPE ,@#I0TVEC ;;I0T VECTOR FOR SCOPE ROUTINE
MoV
#340,@#10TVEC+2 ;;LEVEL 7
MoV
#SERROR,@#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MoV
#340,Q#EMTVEC+2 ;;LEVEL 7
MoV
#STRAP ,@FTRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
MoV
#340 ,@FTRAPVEC+2;LEVEL 7
Mov
SENDCT,SEOPCT
;;SETUP END-OF -PROGRAM COUNTER
CLR
STIMES
s INITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
::CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
::ALLOW ONE ERROR PER TEST
Mov
#..SLPADR
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,SLPERR
:;SETUP THE ERROR LOOP ADDRESS
:;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MoV
@#ERRVEC,-(SP)
;;SAVE ERROR VECTOR
MoV
#648 @FERRVEC
;;SET UP ERROR VECTOR
Mov
#DSWR, SWR
;;SETUP FOR A HARDWARE SWICH REGISTER
Mov
#ODISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
CMpP
#-1,3SWR
;s TRY TO REFERENCE HARDWARE SWR
BNE
668
: :BRANCH IF NO TIMEOUT TRAP OCCURRED
::AND
THE HARDWARE SWR IS NOT = =1
BR
65%
: sBRANCH IF NO TIMEOUT
648:
Mov
#65%, (SP)
:sSET UP FOR TRAP RETURN
RTI
65%:
()
#SWREG, SWR
:;POINT TO SOFTWARE SWR
MOV
#DISPREG,DISPLAY
66$:
Mov
(SP)+ ,@#ERRVEC
;;RESTORE ERROR VECTOR

CMP

are2, aneé

;ACT11 AUTO MODE?

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P11
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
2271
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
004172
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

000042

004450
004452

004737

001140

104406
000403
112737

000001

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

101403

112737

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

001

BEQ
INC
BNE

177777

TYPE

006176

CMP

001256
001262

001256
001300
001276

001200
001104
001115
001106
001110

001210

0o0oz20¢

174506

000010

65%:

1%:

THE PROGRAM'S MAINDEC NUMBER AND NAME

SWR,#SWREG

::SOFTWARE SWITCH REG SELECTED?
: ;BRANCH IF NO
;:GET SOFT-SWR SETTINGS

#1,8AUTOB

::SET AUTO-MODE INDICATOR

JSR
JSR

PC,RESLDR
PC,SIZMEM

CLR
CLR
CLR
CLR
MoV
CMP
BLOS
MoV
MOV

OPRSEL
SCYL
STRK
SSEC
MAXWC,WC14

sRESTORE THE LOADER
;SET MEMORY SIZE VARIABLES
;CLEAR TOTAL ERROR COUNT
;CLEAR OPERATOR SELECTED ADDRESS FLAG
;OPERATOR SPECIFIED CYLINDER
;OPERATOR SPECIFIED TRACK

CLR
CLR

PSW
DRVBAD

SERTTL

MoV

MAXWC,LMT8K
1%
LMT8K ,WC14
#177777 ,PATTRN
#17777 ,TSTNMS

CLR
CLR

STIMES
SESCAPE

TST

3s:

;TYPE

65%

Move

Mov
MovB
MOV
MoV
CLR
STARTG6: CLR
JSR
JSR
MOV

9%:

START

:BR IF NOT

MOV

2$:

;YES, SKIP TITLE PRINTOUT

;FIRST

65%

CLR

000625
177777

027236

64%:

SEQ 0047

BNE

GTSWR

001134

LTITLE

PAGE 48

PC,STKINT
;SETUP THE TTY KEYBOARD
GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
ars2
:sARE WE RUNNING UNDER XXDP/ACT?
BNE
648
::BRANCH IF YES

STARTS: JSR
.SBTTL

STARTS
#-1
STARTS

14:43

#SEOP ,BYPASS

#1,81CNT
#1,SERMAX
#.,SLPADR
#.,SLPERR
MMACTV
PS
PC,GETADR
PC,RPINIT
#202. ,MAXCYL
DRVTYP

BEQ
Mov
INC
BEQ
BIT
BNE

2%
#605. ,MAXCYL
-1
9%
#5W07,aSWR
START?

CLR
MOV

R1
#8. ,R2

Mov

R1,-(SP)

TYPE

TYPOS

.BYTE

.DRSTAT

;OPERATOR SPECIFIED SECTOR

sASSUME THAT MAXIMUM WORD COUNT LESS THAN 8K
sMAXIMUM WORD COUNT GREATER THAN LIMIT
:BR IF NOT

;USE AN 8K MAXIMUM

JENABLE ALL PATTERNS

;SELECT TESTS 0 - 14

;ENSURE THE PRIORITY = 0
sCLEAR OFFLINE/UNSAFE DRIVE BITS
;INITIALIZE NUMBER OF ITERATIONS
sCLEAR THE ESCAPE ON ERROR ADDRESS
;INITIAL BYPASS ADDRESS
sPRESET

ITERATION COUNT

TO 1

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

;CHECK THE RP11 ADDRESS
sFIND OUT WHICH DRIVES ARE ON SYSTEM
;ASSUME RP02'S

;WHICH DRIVES ?

sBR IF THEY REALLY WERE RP02'S
sSET MAX CYLINDER FOR RPO3'S
sFIRST START ?
sBR IF IT IS
;BYPASS DRIVE STATUS TYPEOUT ?
sBR IF YES

;"DRIVE STATUS'
;CLEAR TABLE POINTER
: COUNTER

::SAVE R1 FOR TYPEOQUT
::TYPE DRIVE NUMBER
::60 TYPE-=OCTAL ASCII
;:TYPE 1 DIGIT(S)

[
N

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
22-APR-78
CZRPYD.P1
22-APR-78 14:42
INITIALIZE THE COMMON TAGS

2361

004453
004454
004460
004462
004464
004470
004472
004476
004504
004506
004512
004514
004520
004522
004526
004532
004534
004536
004540
004544
004550
004552
004556
004560
004564
004566
004572
004576
004600
004606
004610
004612
004614
004620
004624
004626
004632
004634
004640
004644
004650
004652
004656
004660
004666
004670
004672
004674
004676
004700
004704

004706
004710
004711
004712

000
105761
001420
100403
104401

000402

027262

104401
136137

027276
001360

104401

027327

001003
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

005237
010046

.BYTE

001370

001304

4%:

5%:

027336

6%:

027312
001173

7%:
8%:

001173
001206

START?:

026314
1%:

000001
001370

2%:
001312

3s:
5%:

027345
017004

001312

6%:

000042
000003

g(‘)NLINE

s "ONLINE'

JUNSAFE

000041

: "UNSAFE'

;SEE WHICH DRIVE

:"RPO2'

.,RPO3

:"RPO3’

8%
LOFFLIN
,SCRLF
R1

TYPE

:BR IF RPO3

LRP0O2

:
:"OFFLINE'

s CR=LF
;INCREMENT

TABLE POINTER

R2
3%

;DECREMENT THE COUNTER
s CONTINUE

CNTRLC
1%

;CONVERSATION MODE
:NO==BRANCH

LSCRLF

s CR=LF

;YES==GET

PARAMETERS

;GO TYPE DRIVES TO BE TESTED

sDETERMINE THE DRIVES THAT

DRVSEL

#1,R1

DRVSTA(RO)
3%

sNO DRIVES SELECTED

JARE

AVAILABLE FOR TESTING

sDRIVE ONLINE ?
:BR IF NOT

ATABIT(RO) ,DRVSEL
;SET SELECTION BIT FOR DRIVE
RO
s INCREMENT DRIVE ADDRESS
R1
s COUNT

sBR IF NOT ALL DRIVES CHECKED

SENDCT
RO

sDETERMINE PASSES TO MAKE AND
:THE DRIVES TO BE TESTED

LDRVTST

6%
. NONE
afSEOP
CNTRLC
7%

#3.41
7%
R1

;"DRIVES TO BE TESTED'
sANY DRIVES SELECTED?

;s YES==-BRANCH
: "NONE'
;GO TO END OF PROGRAM
;CONVERSATION MODE START ?
;BR IF NOT

:UNDER MONITOR CONTROL ?
;BR IF NOT
;LOADED BY RPO2/RPO3 ?
;BR IF NOT

sEXCLUDE DRIVE O FROM TESTING

sCHECK ON THE OTHER DRIVES

R1
8%

sREPORT THE DRIVES TO BE TESTED
sBR IF DRIVE IS NOT SELECTED

RO,-(SP)

::SAVE RO FOR TYPEOUT
::TYPE THE DRIVE NUMBER

$SENDCT

104403

001
000
005701

sCHECK DRIVE'S STATUS
sDRIVE IS OFFLINE OR NON-EXISTENT
sDRIVE IS UNSAFE

ATABIT(R1) ,DRVTYP

42
7%

7%:

017004

;s SUPPRESS LEADING ZEROS

DRVSTA(RY)
7%
4%

DRVSEL .R1

027372
016616
001206

SEQ 0048

PC,ENTPRM

001312

001360

TSTB
BEQ
BMI
TYPE
BR
TYPE
BITB
BNE
TYPE

DO —

2306
2307
2308
2309
2310
231
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

PAGE 49

sGIVE THIS DRIVE A PASS
::60 TYPE--OCTAL ASCII

::TYPE 1 DIGIT(S)
: s SUPPRESS LEADING ZEROS
;MORE DRIVES?

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

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

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

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

104401

013746
001
000

104401

013704
004737
112737
004737
004737
000137

027377
017004
001206
001176
000001
001306

016776
001306
001312

001176
001306
001310

001312

001176
027401

002500

9%:

:?0:°8RANCH

INC
BR
Mov

RO
7%
SENDCT,SEOPCT
CNTRLC

; INCREMENT DRIVE NUMBER
: CONTINUE
;SETUP TEST COUNT
sCLEAR CONVERSATION MODE FLAG
sINITIALIZE THE CHECK DRIVE KEY

. COMMA

CLR
CLR

RSTRT1:

CHKDRV
#1,DRVMSK
DRVMSK,DRVSEL
DRVOK
CHKDRV
DRVMSK

MoV

RSTRT2: BIT
RSTRT3: BNE
RESTART: INC

ASLB
BCC
BIC

001176

001173
001324
025654
000015
022770
023546
005064

0
.SCRLF

JSR

MOVB
JSR
JSR
JMP

sCONTINUE WITH CYCLE
;PICKUP THE DRIVE NUMBER

TYPE
Mov

LSBTTL

RSTRT1
CHKDRV,DPB
. TSTING

.BYTE
.BYTE

002502

DRVBAD ,DRVSEL

CHKDRV,=(SP)

TYPOS

sSTART TO CHECK DESIRED DRIVES

;1S THIS DRIVE SELECTED?
;YES==GO CHECK IF DRIVE IS READY FOR TESTING
TO NEXT DRIVE NUMBER
sMOVE
;POSITION THE MASK
:BR IF MORE DRIVES
:gkgcgsSELECTION BITS FOR ANY OFFLINE/UNSAFE

RSTRT2

BR
MOvB
TYPE
Mov

DRVOK:

SEQ 0049

BEQ

TYPE

8s:

PAGE 50

;'TESTING WITH DRIVE '
;s SAVE CHKDRV FOR TYPEOUT
::TYPE THE DRIVE NUMBER
::60 TYPE--OCTAL ASCII
s:TYPE 1 DIGIT(S)
; : SUPPRESS LEADING ZEROS
;CR=LF

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

:RP11

TSTO

:START THE PROGRAM

PC,DRVRDY

ADDRESS

;CLEAR THE RP11
sHOME SEEK COMMAND

;START THE COMMAND
;WAIT FOR THE DRIVE

TO FINISH

###8 TESTS #E#

AR AR

;*TEST 0

TEST

i a2
222222

'CLEAR'

TERMINATION

s*VERIFY THAT 'CLEAR' TERMINATES AN OPERATION AND CAUSES CONTROLLER
;*READY TO SET.
MR

005064
005064
005072
005074
005100
005106
005114

005122
005130
005136
005142
005146
005152
005160

033737
001002
000137
012737
012737
012737

013777
012737
013704
105037
105037

012737
012706

001400

001276

005310
005160
00506¢
000000

001110
001106
001102

001102
005306
001324
002501
002503
000144
001100

AR AR

?370:

TESTO:

R A2
2222322222322 22

BIT

;IS THIS TEST SELECTED
BITS+<STN*2>,TST NMS
+6
;BR IF YES
TST1
;GO TO THE NEXT TEST
#TESTO,SLPERR
:SETUP THE ERROR LOOP ADDRESS
#TSTO,SLPADR
sSETUP THE SCOPE LOOP ADDRESS
#0,$TSTNM
sSETUP TEST NUMBER AND

MoV
MOV
Mov

STSTNM QDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXITO,BYPASS
;SETUP BYPASS ADDRESS
RPADR ,R&
:RP11E BUS ADDRESS
DPB+1
sCLEAR ANY EXTENDED MEMORY BITS

BNE
JMP
MOV
MoV
MoV

174012
001200

001162

CLRB
CLRB
MOV
MOV

;CLEAR THE ERROR FLAG (SERFLG)

DPB+3

#100.,STIMES
#STACK,SP

sCLEAR "MODE' & 'HDR' BITS
200 100. ITERATIONS
:SETUP THE STACK POINTER

L &
MACY11 30A(1052)
22=APR-78
TEST "CLEAR' TERMINATION

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEgT
CZRPYD.P11
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

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

004737
012737
012737
005037
005037
112737
004737
032764
001404
004737

025654

043656

000001
002510
002512
000005
022770
000200

002506
002504

CLR
CLR

002502

005266
005274
005276

000001
000001
023240
000200

000004

005300
005302
005306

000005
004737
000004

020416

000004
000004

BIT
BEQ
JSR
ERROR
BR
MOV

1%:

PC,SAVRP

2
EXITO

BIT
BNE
ERROR

§XITO

RESET
JSR

EXITO:
AL

SEQ 0050

;CLEAR THE RP11
;LOAD BUFFER ADDRESS
;SETUP WORD COUNT FOR 1 WORD

;CYLINDER 0

;TRACK & SECTOR 0

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

SEXIT FROM TEST

s ISSUE THE CONTROLLER CLEAR
;CLEAR THE CONTROLLER AGAIN
;STORE THE REGISTERS

;IS THE CONTROLLER READY ?
sBR IF IT IS

:"READY' DIDN'T SET AFTER ISSUING 'CLEAR'

;DURING READ COMMAND
;FORCE THE CONTROLLER READY
;SETUP THE TTY KEYBOARD
;LOOP ?

PC,STKINT

SCOPE

PAGE 51

;CAN'T START READ COMMAND

#CLEAR,RPCS(R4)
#CLEAR,RPCS(R4)
PC,SAVRP
#RDY,SRPCS

MoV
JSR

001340

2442

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

MOvB
JSR

023240

104002
000420
012764
012764
004737
032737
001004
104003

PC,CLRP
#BUFFER,$BUF
#1,86C

JSR

MOV
MOV

14:43

R332

2222222222222 2}

2443

'TEST 1

2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473

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

2444

WRITE

s*PATTERNS ARE USED
MR

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

001102
005722
001324
002501
002503
000144
001100
002512
002510
000400
000011

105037
105037
012737

012706
005037
005037
012737
012737
004737
012737
012737
004737
012737

005724
005404
005310
000001

024432
043656
005446
025654
000003

001276

AR AR AR

TST1:

BIT
BNE
JMP

ARl

CHECK

TEST

THE

WRITE

CHECK

COMPARE

LOGIC.

il a2
22222 dd)

BIZSO<STN'2>. TSTNMS
TST2

:BR

;IS THIS TEST SELECTED
IF YES

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

001110
001106
001102

MOV
MOV
MOV

#TEST1,SLPERR
#TST1,SLPADR
#1,8TSTNM

173566
001200

MOV
MOV
MOV

STSTNM SDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT1,BYPASS
:SETUP BYPASS ADDRESS
RPADR,R&
;RP11E BUS ADDRESS

001162

TEST1:

CLRB
CLRB
MOV
MOV
CLR
CLR
MoV

002504
001204

MOV

002506
001110

MOV
MOV

002502

JSR

1$:

JSR

L[]'}

DPB+1
DPB+3

#100.,8TIMES
#STACK,SP

$SEC
$CYL
#256.,%UC
#9. ,PATNUM

PC,SETBUF
#BUFFER,SBUF
#13 ,SLPERR
PC,CLRP
#WURTSEK ,DPB+2

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

;CLEAR ANY EXTENDED MEMORY BITS

;:CLEAR "MODE' & 'HDR' BITS
::00 100. ITERATIONS
sSETUP THE STACK POINTER
;CLEAR TRACK & SECTOR ADDRESS
sCLEAR CYLINDER ADDRESS
;SET WORD COUNT TO 1 SECTOR
sSTARTING PATTERN NUMBER
sFILL THE BUFFER WITH THE PATTERN
sSETUP OUTPUT BUFFER
;SETUP LOOP ON ERROR ADDRESS
;CLEAR THE RP11
:LOAD COMMAND

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TE?T
CZRPYD.P11
22-APR-78 14:42

2474
2475
2476
2477
2478
2479
2480
2481
2482
2483

2484
2485
2486
2487
2488
2489
2490
249N
2492
2493
2494
2495
2496
2497

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
100000

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

000011

5%:

MOV
MoV

6%:

ADD
BR
MoV

001204

000012

001204

PC,CLRP
#URTCHK ,DPB+2

PC,RP11

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

PATNUM,#9.

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

CMP
BEQ

#6%,SLPERR

JSR
JSR
JSR
JSR
BIT
BNE
ERROR
BR
BIT
BNE
ERROR
CHP
BEQ

001336

7%:

PC,CLRP

PC.RP1

PC,CONRDY
PC,SAVRP

#BIT03,$RPER
73

6
8$

#ERR,SRPCS

8%
106

;*TEST 2

FOR THE OPERATION TO COMPLETE

;SAVE THE REGISTERS
:DID AN ERROR OCCUR ?
;BR IF NOT
;ERROR OCCURED WRITING WRITE CHECK TEST PATTERN
;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
sLOAD WRITE CHECK COMMAND
sCHECK THE SECTOR JUST WRITTEN
sWAIT FOR WRITE CHECK TO COMPLETE
;STORE THE REGISTERS
sCHECK OK ?
;BR IF OK
sERROR ATTEMPTING TO CHECK TEST PATTERN
;CLEAR THE RP11
;SETUP TO CLEAR BUFFER
;BUFFER INDEX
:"FLOATING 1" PATTERN ?
:BRANCH IF NOT
;FILL BUFFER WITH ONES
sFILL BUFFER WITH PATTERN IN R1
;SEE IF FINISHED
sBR IF FINISHED
s INCREMENT THE INDEX
; CONTINUE
sCHANGE THE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;CHECK THE SECTOR AGAIN, ERROR SHOULD OCCUR
;WAIT FOR THE WRITE CHECK TO COMPLETE
;STORE THE REGISTERS
;DID WRITE CHECK ERROR SET?
;BRANCH IF YES
;WRITE CHECK ERROR DID NOT SET
;BYPASS REST OF TEST
;DID "ERR" SET ?
:BR IF IT SET

:"FLOATING ZERO' PATTERN
;D0 THE TEST AGAIN
;LOOP ?

ARl

SEQ 0051

sFLOATING A ZERO ?
:BR IF ZERO

EXIT
#10. ,PATNUM

BR
SCOPE

PAGE 52

;'ERR" DIDN'T SET WITH "WCE'

PATNUM, #70.

MOV

EXIT1:

sWAIT

#3%,SLPERR

JSR
JSR
JSR
BIT
BEQ
ERROR
JSR
CLR
CLR
CHP
BNE

14:43

sWRITE THE SECTOR WITH THE TEST PATTERN

MOV

4%:

22-APR-78

JSR

001340

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

MoV

002502

100000

PC.RP11

BEQ
ERROR

001110

JSR
JSR
JSR

BIT

000002
005626
025654
022770
023664
023240
000010

30A(1052)

WRITE CHECK TEST

001340

177777
043656
000400

MACY11

PARTIAL SECTOR WRITE

22222222

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 IS THEN
;*READ BACK AND VERIFIED. THE FIRST TWO WORDS SHOULD BE ONES AND
;*THE REST SHOULD BE ZEROS.
SRR

2529

005724

1512

RN R R

A R R R AR

R AR AR RRRRRRRARRRRRRRRRRRRRERRRRERS

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

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

2543

2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556

2557
2558
2559
2560
2561
2562
2563
2564
2565
2566

2567
2568
2569
2570
25N
2572
2573
2574
2575
2576

2577
2578
2579
2580
2581
2582
2583

2585

005724
005732
005734
005740
005746
005754

033737
001002
000137
012737
012737
012737

005762
005770
005776

013777
012737
013704

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
0062 54
006242
006246

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

BIT
BNE
JMP

BITS+<STN*2> TSTNMS

006402
006020
005724
000002

001110
001106
001102

MOV
MOV
MOV

173152
001200

MoV
MOV
MoV

100000

006132
025654
024432
000002
000003
022770
023664
023240
100000

001110

TEST2:

Mov
MOV

CLR
CLR
MoV
JSR

001204

002502

MoV

001340

001110

1%:

002504
002502

001340

001110

002504
002502

100000

001340

177777

043656

177777

043660

MoV
MoV
MOV

JSR

002506
002504

006214
025654
000400
000005
02277¢
023664

023240

CLRB
CLRB

2%:

104017

000443
022737
001004
022737

30A(1052)

3s:

22-APR-78

PARTIAL SECTOR WRITE

001276

001162

MACY11

001404

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

JSR
JSR
JSR
BIT
BEQ
ERROR
BR

Mov

JSR
JSR
MoV
MOovB
JSR
JSR
JSR
BIT
BEQ
ERROR
BR
MoV
JSR
MOV
MOV

JSR
JSR
JSR
BIT
BEQ
ERROR
BR
cmp
BNE
cmp

TEST

14:43

PAGE 53

;IS THIS TEST SELECTED

. +6
TST3
#TEST2,SLPERR
#7ST2,SLPADR
#2,8TSTNNM

;BR IF YES
;GO TO THE NEXT TEST

DPB+3

sCLEAR "MODE' & "HDR' BITS
;:00 100. ITERATIONS
JSETUP THE STACK POINTER
sSETUP INITIAL LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;LOAD BUFFER ADDRESS

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

sCLEAR THE ERROR FLAG (SERFLG)
STSTNM QDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT2 ,BYPASS
;SETUP BYPASS ADDRESS
RPADR,
R4
sRP11E BUS ADDRESS
DPB+1
:CLEAR ANY EXTENDED MEMORY BITS

#100.,STIMES

#STACK,SP

#TEST2,SLPERR
PC,CLRP
#BUFFER,$SBUF

#256.,3WC
$SEC
SCYL
#13. ,PATNUN

PC,SETBUF
#URTSEK,DPB+2
PC.RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
1%
4

EXIT2

#18,SLPERR
PC,CLRP
PC,SETBUF
#2,8uC
#WURTSEK ,DPB+2
PC.RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS

s
7

EXIT2

#2% ,SLPERR
PC,CLRP

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

33
17

EXIT2

:WORD COUNT = 1

SECTOR

sCLEAR SECTOR/TRACK ADDRESS
sCLEAR CYLINDER ADDRESS
sONE'S PATTERN NUMBER
;LOAD THE PATTERN INTO THE BUFFER
sWRITE COMMAND
sWRITE THE SECTOR
sWAIT FOR THE WRITE TO COMPLETE
sSTORE THE REGISTERS
;DID AN ERROR OCCUR ?
sBR IF NOT
sERROR OCCURED DURING WRITE
;BYPASS REST OF TEST
;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11

sLOAD ONE'S PATTERN INTO THE BUFFER
;2 WORD TRANSFER
s CHANGE COMMAND TO WRITE

JWRITE

sWAIT FOR CONTROLLER READY
;STORE THE REGISTERS
;ERROR ?
:BR IF NOT
sERROR WRITING THE PARTIAL SECTOR
;BYPASS THE REST OF THE TEST
sCHANGE THE ERROR LOOP ADDRESS
sCLEAR THE RP1M
;sCHANGE THE WORD COUNT
sREAD COMMAND
sREAD THE SECTOR
sWAIT FOR CONTROLLER READY

;STORE THE REGISTERS
;DID AN ERROR OCCUR ?
;BR [F NOT
sERROR OCCURED READING SECTOR

;BYPASS REST OF TEST
#177777 ,BUFFER
;COMPARE FIRST WORD SHOULD BE ONES
‘s
;BR IF NOT
#177777 ,BUFFER+2
;CHECK THE SECOND WORD

SEQ 0052

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

2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608

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

#BUFFER+4
RO
#254. ,R1
(RO)+
7%
R1

BNE
DEC
BNE
BR

6%
EXIT2
=2(RO) ,$BDDAT
$GDDAT

Mov
CLR
MoV

RO,$BDADR

:S.QBDADR

sus
ERROR

TeTEST 3

R R

'EOP'

THAT

14:43

PAGE

SEQ 0053

;BR IF OK
SEXPECTED DATA
sACTUAL DATA
;DATA COMPARE ERROR IN FIRST 2 WORDS
;STARTING ADDRESS OF LAST PART OF THE BUFFER
;WORD COUNT
sREMAINDER OF SECTOR SHOULD BE ZEROS
sBRANCH IF NOT
;DECREMENT THE CUNT
:BR IF NOT FINISHED
JEXIT
s INCORRECT DATA
;EXPECTED DATA (ZEROS)
sADDRESS OF INCORRECT CHARACTER
sDECREMENT THE ADDRESS
;DATA FOUND IN AREA OF SECTOR
;WHICH SHOULD HAVE BEEN CLEARED
;BY A ONE WORD WRITE

SCOPE

s*TEST

TEST

??FFER.SBDDAT

MoV
Mov
TST

7%:

5
22-APR-78

ERROR

EXITZ:

000004

#177777 ,3GDDAT

MOV
MoV

001122

2609
2610
2611
2612
2613
2614
2615
2616

2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641

BEQ

4%:

6%:

001126

30A(1052)

PARTIAL SECTOR WRITE

5%:

043662
000376

177776
001124
00i122
000002

MACY11

'EOP'

R AR R R R AR AR AR

R AR

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
THE
FIRST
SECTOR
OF
THE
PACK IS CHECKED TO MAKE SURE THAT IS
SET.
;*BE
;*STILL CONTAINS ZEROS.
MR

006402
006402
006410
006412
006416
006424
006432
006440
006446
006454
006460
006464
006470
006476
006502

006510
006514
006522
006530
006534
006540
006544
006550

i§T3:

Rl a2
22222322222 2]

033737
001002
000137
012737
012737
012737

001406

001276

007060
006476
006402
000003

001110
001106
001102

MOV
MoV
Mov

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

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

172474
001200

MOV
MOV
Mov

001162
001110

TEST3:

BIT
BNE
JMP

CLRB
CLRB
MOV

Mov
MOV

002504

JSR
MOV

002502

JSR
CLR
CLR
MOovB

002506

Mov

CLR

BITS+<STN*2>,TSTNMS
;IS THIS TEST SELECTED
.+6
:BR IF YES
TST4
#TEST3,SLPERR
#TST3,SLPADR
#3,8TSTNH

;GO TO
;SETUP
sSETUP
;SETUP

THE NEXT TEST
THE ERROR LOOP ADDRESS

THE SCOPE LOOP ADDRESS
TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

STSTNM,ADISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT3,BYPASS
;SETUP BYPASS ADDRESS
RPADR,R4
;RP11E BUS ADDRESS
DPB+1
;CLEAR ANY EXTENDED MEMORY BITS
DPB+3
;CLEAR "MODE' & 'HDR' BITS
#25.,8TIMES
::00 25. ITERATIONS
#STACK,SP

sSETUP THE

PC,CLRP

;CLEAR THE RP11

#TEST3,SLPERR

#256.,8WC

#BUFFER,$BUF
PATNUN

STACK POINTER

;INITIAL LOOP ON ERRORR ADDRESS

;SET WORD COUNT TO 1

SECTOR

:SETUP OUTPUT BUFFER
;SETUP FOR PATTERN ZERO

PC,SETBUF

;LOAD ZEROS INTO THE BUFFER

#WRTSEK,DPB+2

;WRITE

$SEC
$CyL

;SET SECTOR & TRACK TO ZERO
sSET CYLINDER TO ZERO
COMMAND

MACYT1 30A(1052)
'EOP' TEST

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TE§T

CZRPYD.P11

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
Sgg?

006556
006562
006566
006572
006600
006602
006604
006606
006614
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

004737
004737
004737
032737
001402
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

2692
2693
2694

007056

000004

2695

2696
2697

022770
023664
023240
100000

001340

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

002504
002510
002512
002513

100000

001340

001110

006746
025654
000002
002512
002510
000005
022770
023664
023240
100000

043656
001126

18:

001204

001336

001346
001354

JSR
JSR
JSR
BIT
BEQ
ERRCR
BR
MoV
JSR
MoV
JSR
Mov
Mov
Mov
Move
JSR
JSR
JSR
BIT
BNE
ERROR
BR

2%:

BIT
BNE
ERROR

3s:
001210
001110

TST
BEQ
ERROR
CHP
BEQ
ERROR
MOV
JSR
Mov
CLR
CLR
MoV
JSR
JSR
JSR

4$:
58:

002504
002502

001340

001126

BIT
BEQ

ERROR
BR
MoV
TST
BEQ
CLR
ERROR

68:

001124
EXIT3:
83SRR

22-APR-78

PC,.RP11
PC,CONRDY

EXIT3

#13 ,SLPERR
PC,CLRP

#13. ,PATNUM

PC,SETBUF
#512.,36C
MAXCYL,SCYL
#9.,8SEC
#19. ,8TRK
PC.RP11
PC,CONRDY
PC,SAVRP

#BITO1,SRPER

#ERR,SRPCS

PC,CLRP

$SEC
SCyL
#RDSEK ,DPB+2
PC.RP11

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

6%
17

BUFFER,$BDDAT
$BDODAT

$GODAT

J*TEST 4

R AR R R RN

R R R AR

TEST

SEQ 0054

'EOP'

sSUCA STILL EQUAL TO THE MAXIMUM CLINDER
sBR IF IT IS
;SUCA NOT CORRECT AFTER EOP ERROR
s CHANGE LOOP ON ERROR ADDRESS
sCLEAR THE RP11
;WORD COUNT
sCLEAR SECTOR/TRACK ADDRESS
sCLEAR THE CYLINDER ADDRESS
s CHANGE COMMAND TO READ
;EXECUTE THE COMMAND
;WAIT FOR CONTROLLER READY
;STORE THE REGISTERS
;WERE THERE ANY ERRORS?
sBRANCH IF NOT

16
#5% ,SLPERR

SCOPE
R

:"RPCA' NOT CLEARED BY

$SUCA, MAXCYL

EXIT3

PAGE 55

;WRITE ZEROS IN CO, TO, SO
;WAIT FOR THE ORDER TO COMPLETE
;STORE THE REGISTERS
;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
;LOAD THE PATTERN INTO THE BUFFER
: CHANGE WORD COUNT TO 2 SECTORS
sSELECT THE DRIVE'S MAXIMUM CYLINDER
sSELECT SECTOR 9
;SELECT HEAD 19
;START THE READ
sWAIT FOR CONTROLLER READY
;STORE THE RP11 REGISTERS
;DID EOP ERROR SET?
sBRANCH IF SET
;'EOP' DIDN'T SET
sCHECK RPCA
;DID THE ERROR FLAG SET?
;BRANCH IF SET
;ERROR DID NOT SET AFTER GENERATING 'EOP'
sSEE IF THE CYLINDER ADDRESS REGISTER WAS CLEARED
:BR IF CLEARED

PC,SAVRP
#ERR,SRPCS
1%

EXIT3

14:43

;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
:ZEROS WERE EXPECTED
;CONTENTS OF THE FIRST SECTOR OF THE
sPACK CHANGED AFTER FORCING EOP

R RRRRRRTARRRRRRETRERTRRRRRRRRRNRRRRRRARRRRRRRRTY

"PROG'

ERROR

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

2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
277
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

MACY11
TEST

30A(1052)

"PROG'

ERROR

5
22-APR-78

14:43

PAGE 56

SEQ 0055

;*VERIFY THAT THE RP11E GENERATES A 'PROG' ERROR IF A COMMAND IS ISSUED
;*WHILE THE CONTROLLER IS BUSY.
MR

007060
007060
007066
007070
007074
007102
007110
007116
007124
007132
007136
007142
007146
007154
007160
007164
007170
007174
007202
007210
007216
007222
007230
007234
007242
007246
007254
007256

007260
007262
007270
007272

007274
007302
007304
007306

033737
001002
000137
012737
012737
012737

001410

001276

007310
007154
007060
000004

013777
012737
013704
105037
105037

012737
012706
004737
005037
005037
012737
012737

001110
001106
0011C2

MOV
MOV
MOV

#TESTL ,SLPERR
#TST4,SLPADR
#4,8TSTNM

001102
007306
001324

172016
001200

MOV
MOV

$TSTNM,aDISPLAY
;LOAD THE TEST NUMBER
#EXIT4L ,BYPASS
;SETUP BYPASS ADDRESS

000144
001100
025654
002512
002510
043656
002000

001162

CLRB
CLRB
[0}
MOV
JSR
CLR

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

MOV

#BUFFER,$BUF

MovB
JSR
MOV
JSR
MOVB
JSR
BIT
BNE

#RDSEK ,DPB+2
PC.RP11
#1,STALLT
PC,STALL
#RDSEK ,RPCS(R4)
PC,SAVRP
#BIT10,SRPER
1%

002501
002503

112764

000005

001002
104021

000412

032737
001001
104107
032737
001001
104022
000004

TST4:

BITS#<STN*2>,TSTNMS
;IS THIS TEST SELECTED
.+6
;BR IF YES

000005
022770

004737
032737

AR ARt
2222222222222 2222 2]

BIT
BNE

112737
004737

012737
004737

000001
023202

023240
002000

JMP

TSTS

MOV

TEST4:

CLR

002506
002504
002502

[ [0}

001220
000004

001336

001340

1%:

100000

001340

2%:
EXIT4:

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

sCLEAR THE ERROR FLAG (SERFLG)
sRP11E BUS ADDRESS

$CYL

sCLEAR THE CYLINDER ADDRESS
;SETUP BUFFER ADDRESS

sSETUP WORD COUNT

sREAD COMMAND
s ISSUE THE COMMAND
sLOAD STALL VALUE
sSTALL FOR 1 MILLISECONDS
;ISSUE READ COMMAND WHILE BUSY
sSTORE THE REGISTERS
;DID PROGRAM ERROR SET?
:BRANCH IF SET

;PROGRAM ERROR DID NOT SET WHEN A
sREAD COMMAND WAS ISSUED WHILE
sTHE DEVICE WAS BUSY
;BYPASS REST OF TEST

EXITS
#HE ,SRPCS
2%
107
#ERR,SRPCS
EXIT4

ERROR

;"HE' SET ?
;sBR IF NOT

s"HE' DIDN'T SET WITH 'PROG'
;DID "ERR' SET ?
;BRANCH IF SET
s"ERR' DID NOT SET WITH PROGRAM ERROR

SCOPE

DISPLAY REGISTER

sCLEAR ANY EXTENDED MEMORY BITS
sCLEAR "MODE' & 'HDR' BITS
2:D0 100. ITERATIONS
JSETUP THE STACK POINTER
;CLEAR THE RP11
sCLEAR THE SECTOR = TRACK ADDRESSES

BR
BIT
BNE
ERROR
BIT
BNE

INTO THE

RPADR,Ré4

#1024.,8WC

ERROR

040000

;GO TO THE NEXT TEST

SRR AR AR RN RN RN RRRAERRRRRRARRRRRRERNRERRARRNRRRRARRRRRRRRRRRRRRES

;*TEST 5

"HEADER NOT FOUND' TEST

;*UNFORMAT THE FIRST SECTOR ON THE PACK AND THEN READ IT BACK.
;*THAT READ AND WRITE HEADER OPERATIONS WILL

;*ISSUE A WRITE COMMAND TO SECTOR ZERO;

;*FOUND' TO SET.
AR AR AR A

007310

033737

001412

001276

TSTS:

BIT

AR A

REFORMAT THE SECTOR.

AR A

BITS#<STN*2> ,TSTNMS

VERIFY

TRANSFER DATA CORRECTLY.

THIS SHOULD CAUSE
R

'HEADER NOT

;IS THIS TEST SELECTED

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

2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
277
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783

2784
2785
2786
2787
2788
2789
2790
2791
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

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

007416
007422
007430
007436
007444
007452
007456
007462
007470
007476
007502
007506
007512
007520
007522
007524
007526
007534
007540
007546
007552
007556
007564
007566

112737

004737
004737
004737
032737
001402

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

001110
001106
001102
171566
001200

001162
001110

TESTS:

007526
025654

BNE
JMP
MoV
Mov
Mov

.+6
TST6
#TESTS ,SLPERR
#TST5,SLPADR
#5,8TSTNH

MOV
MoV
MoV
CLRB

STSTNM GDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXITS5,BYPASS
;SETUP BYPASS ADDRESS
RPADR, R4
:RP11E BUS ADDRESS
DPB+1
sCLEAR ANY EXTENDED MEMORY BITS

'HEADER NOT FOUND'

sBR IF
;GO TO
;SETUP
;SETUP
sSETUP

PAGE 57

SEQ 0056

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

sCLEAR THE ERROR FLAG (SERFLG)

;CLEAR "MODE' & 'HDR' BITS
::00 100. ITERATIONS

MOV
JSR

#TESTS5,SLPERR
PC,CLRP

;INITIAL LOOP ON ERROR ADDRESS
;CLEAR THE RP1

MoV

MOV
Move
JSR
JSR
JSR

MoV
Mov
MoV
CLR
CLR

1s:

14:43

DPB+3
#100. ,STIMES

002502
002502

001110

TEST

CLRB
MOV

MOV

104023

000506
012737
004737
112737
004737
004737
032737
001401

5
22-APR-78

30A(1052)

043656
043660
043662
002504

001340

MACY11

BIT
BEQ
ERROR
BR
MoV
JSR

#STACK,SP

#1,BUFFER

#1,BUFFER+2
#1 ,BUFFER+4
#3,80C
$SEC
$CyL

sSETUP THE

;SETUP

STACK POINTER

INVALID HEADER

IMAGE

sCYLINDER/TRACK
;SECTOR
;LOAD WORD COUNT
sCLEAR SECTOR/TRACK ADDRESS
;CLEAR THE CYLINDER ADDRESS

#MODE !HDR,DPB+2 ; "MODE' AND "HEADER' BITS
#WURTSEK ,DPB+2
;WRITE ORDER
PC.RP1
sMISFORMAT SECTOR 0
PC,CONRDY
sWAIT FOR THE OPERATION TO COMPLETE
PC,SAVRP
sSTORE THE REGISTERS

#ERR ,SRPCS
1%
23
TSTSB
#18,SLPERR
PC,CLRP

;DID AN ERROR OCCUR ?
;BR IF NOT
;ERROR OCCURED ATTEMPTING TO MISFORMAT SECTOR 0
;BYPASS TEST & REFORMAT SECTOR 0
: CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11

PC.RP11
PC,CONRDY

;EXECUTE THE COMMAND
;WAIT FOR CONTROLLER READY

000005
022770

002502

MovBe

#RDSEK ,DPB+2

100000

001340

BIT

#ERR,SRPCS

2%
24

sBRANCH IF NOT
;ERROR WHILE READING THE HEADER

Mov

#1,SGDDAT

;EXPECTED RESULT

023664

JSR
JSR

BEQ
ERROR

104024

007570
007576
007600
007606
007610
007614
007620
007622
007624
007632

012737
005000
023760
001006
062700
022700
001367
000404
016037
104025

000002
000006

043656

001126

4$:

007634
007642
007646
007654
007660
007664

012737
004737
012737
004737
004737
004737

007634
025654
000003
022770
023664
023240

001110

TSTS5A:

000001

001124

28:

001124

043656

38:

002502

: CHANGE COMMAND
:ANY ERRORS?

;ON SECTOR ZERO

CLR
CHP
BNE
ADD
CHP

RO
;CLEAR THE INDEX
$GODAT,BUFFER(RO)
;CHECK DATA READ BACK
3
;BRANCH ON NON COMPARE
#2,R0
;UPDATE MODIFIER
#6,R0
sEND OF BUFFER?

MOV

BUFFER(RO) ,$BDDAT

MoV
JSR
MoV
JSR
JSR
JSR

#TSTSA, SLPERR
PC,CLRP
#URTSEK ,OPB+2
PC.RP11
PC,CONRDY
PC,SAVRP

BNE
BR

ERROR

3s
TSTSA

:BR IF NOT
;CONTINUE WITH TEST

;DATA DID NOT VERIFY AFTER READING
:THE HEADER OF SECTOR ZERO

;GET BAD DATA

;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;CHANGE COMMAND (AND CLEAR "MODE'
SEXECUTE THE COMMAND
;WAIT FOR CONTROLLER READY
+STORE THE REGISTERS

'HDR')

F_
5
MACY11 30A(1052)
22-APR-78
'HEADER NOT FOUND' TEST

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD. P11
22-APR-78 14:42
5
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

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

032737
001002
104026
000417
032737
001001

010000

001334

000001

001336

2$:

032737
001001

040000

001340

3s:

032737
001001

100000

001340

012737
004737
005037
005037
005037
012737

007742
025654
043656
043660
043662

001110

104027

104030

104031

112737

004737
004737
004737
032737
001557

014000

000003
022770
023664
023240
100000

18:

BIT
BNE
ERROR
BR
BIT
BNE
ERROR
BIT

;BYPASS REST OF TEST
;DID DISK ERROR SET?
;BRANCH IF YES
;'DSK' DID NOT SET WITH "HNF'
;DID HARD ERROR SET?

;HARD ERROR NOT SET AFTER

BIT

#ERR,SRPCS

TST58:

MOV
JSR
CLR

#TST5B,SLPERR
PC,CLRP
BUFFER

MOV
MOvB

#MODE
! HOR ,DPB+2 ;"MODE' AND "HDR'
#URTSEK ,DPB+2
;WRITE COMMAND

CLR
CLR

JSR
JSR
JSR

ERROR
SCOPE

EXITS:
M

AAA AR

;*TEST 6

;DID

YES

'ERR'

SET

'HNF'

;BRANCH IF YES
;'ERR' DID NOT SET WITH "HNF'

BUFFER+2
BUFFER+4

;CYLINDER/TRACK = 0
;SECTOR = 0

PC.RP11

;RESTORE THE HEADER

#ERR,SRPCS
EXIT6

;DID AN ERROR OCCUR ?
:BR IF NOT

;BRANCH

TSTSB
31

PC,CONRDY
PC,SAVRP

BIT
BEQ

SEQ 0057

TST58
#BIT00,SRPER
3s
27
#HE ,SRPCS

48:

BNE
ERROR

;DID HEADER NOT FOUND SET?
;BRANCH IF YES
:"HNF' DID NOT SET

ERROR

001340

104032

PAGE

BNE

002502
002502

000004

#BIT12,8RPDS
2%
26

14:43

;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RPN
;SETUP HEADER IMAGE
BITS

sWAIT FOR THE OPERATION TO COMPLETE
sSTORE THE REGISTERS

;ERROR ATTEMPTING TO RESTORE HEADER

Al ARl
RE 2]

TEST COMMAND ISSUED TO A SEEKING DRIVE

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

010034
010034
010042
010044
010050
010056
010064

010072
010100
010106
010112
010116
010122
010130
010134
010140
010144
010150

033737
001002
000137
012737
012737
012737

001414

001276

010370
010130
010034
000006

013777
012737
013704
105037
105037

001102
01036¢
001324
002501
002503
000031
001100

012737
012706
004737

005037

005037
112737

025654
002512
002510
000015

1576

AR A

R 2222222220

BIT
BNE

BITS+<$TN*2>,TSTNMS
;IS THIS TEST SELECTED
+6
:BR IF YES

001110
001106
001102

MOV
Mov

#TEST6,SLPERR
#TST6,SLPADR

171042

001200

MoV
MoV

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

001162

CLRB
MOV

DPB+3
#25.,8TIMES

MovBe

#HOMSEK ,DPB+2

002502

JMP

Mov

MOV
CLRB
TEST6:

MOV
JSR
CLR
CLR

1S17

:G0 TO THE NEXT TEST

#6,S$TSTNH

;SETUP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)

:SETUP THE ERROR LOOP ADDRESS
;SETUP THE SCOPE LOOP ADDRESS

INTO THE

RPADR,R4
DPB+1

:RP11E BUS ADDRESS
sCLEAR ANY EXTENDED MEMORY BITS

#STACK,SP
PC,CLRP
$SEC
SCYL

;SETUP THE STACK POINTER
;CLEAR THE RP11
sSECTOR/TRACK 0
;:CYLINDER 0

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

;HOME SEEK COMMAND

DISPLAY REGISTER

G_5

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

2866
2867
2868
2869
2870
2871
2872

010156
010162
010166
010174
010202
010206
010214

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

010226
010234
010242
010250
010254
010260
010266
010270
010272
010274
010300
010304
010312
010314

004737
004737
012737
112737
004737
012737
004737
012764
012764
052737
112764
004737
004737
032737
001402
104033
000435
004737
004737
032737
001401
104034

010316
010324
010332
010340

012737
013737
023737
001366

2873

010220

010342
010346
010354

010362

010364
010366

005037
013737
023737
001401

022770
023546
000300
000011
022770
000001
023202

177775

043656
014000
000017
023546
023240
000200

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

JSR
JSR
[0}
MOVB
JSR
MoV
JSR
MOV
MoV
BIS
MOVB
JSR
JSR
BIT
BEQ
ERROR
BR
JSR
JSR
BIT
BEQ
ERROR

002510
002502
001220

000006

000010
002502
000004
001340

023664
023240
100000

18:
001340

014000
043660
001124

001124
001126
001126

001124
043662
001124

001126
001126

104035
000004

2%:

PC,RP11
;D0 THE COMMAND
PC,DRVRDY
sWAIT FOR DRIVE READY
#192.,8CYL
sCHANGE CYLINDER TO CYLINDER 192
#SEEK,DPB+2
sSEEK COMMAND
PC,.RP11
sINITIATE THE SEEK
#1,STALLT
sLOAD STALL VALUE
PC,STALL
sSTALL FOR 1 MILLISECONDS
#-3,RPUC(RSG)
sSE1 WORD COUNT TO THREE WORDS
#BUFFER,RPBA(R4)
;BUFFER ADDRESS
#MODE
!HDR ,DPB+2 ;SETUP TO READ THE HEADER
#READ ,RPCS(R4)
;TRY TO DO A READ
PC,.DRVRDY
sWAIT FOR DRIVE READY
PC,SAVRP
sSTORE THE REGISTERS
#RDY,SRPCS
;OID CONTROLLER BECOME READY ALSO ?
1%
;BR IF NOT
33
sREAD DIDN'T START DURING SEEK
EXITG
JEXIT
PC,CONRDY
sWAIT FOR CONTROLLER READY
PC,SAVRP
sSTORE THE REGISTERS
#ERR,SRPCS
;ANY ERRORS?
2%
sBRANCH IF NO
34
;ERROR OCCURED DURING A READ ISSUED

sWHILE THE DRIVE IS SEEKING
#<192.+32.>,8GDDAT
EXPECTED CYLINDER VALUE
BUFFER+2,8BDDAT ;RECEIVED DATA
SGDDAT,$BODAT
;CORRECT ?
2%
;BR IF NOT

MOV
[ [0]"
CMP
BNE

CLR
MOV
CMP
BEQ
ERROR
SCOPE

EXIT6:

$GDDAT
BUFFER+4,$BODAT
$SGDDAT,$SBDDAT
EXIT6
35

JHEADER DATA INCORRECT

ggg%

'TEST

2904
gggg

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

2907

2913
2914
2915
2916
2917
2918
2919
2920

2921

033737
001002
000137
012737

001416

001276

010612
01046¢

001110

010426
010434
010442
010446
010452
010456

013777
012737
013704
105037
105037
012737

001102
010610
001324
002501
002503
000144

010412
010420

012737
012737

010370
000007

001106
001102
170506
001200

001162

TS17:

TEST

BIT
BNE
JMP
MoV

MOV
MoV
MOV
MoV
MOV
CLRB
CLRB
Mov

R R

R R R

;BR IF 0K

010370
010370
010376
010400
010404

R R R RN R

JEXPECTED VALUE FOR SECTOR
;RECEIVED SECTOR
s CORRECT ?

2901

2908
2909
2910
2911
2912

SEQ 0058

"NXME'

R R RN R R R R R R R AR R R AR AR RN R RO R R RN RN

RN RS

B'T

R R R R R R R AR RN R

RN R R AR AR RN RN RN RN RN RN RRN

BITS+<STN*2> ,TSTNMS
;IS THIS TEST SELECTED
+6
;BR IF YES
TST10
;G0 TO THE NEXT TEST
#TEST7 ,SLPERR
;SETUP THE ERROR LOOP ADDRESS

0TST7.3LPADR
#7,8TSTNA

sSETUP THE SCOPE LOOP ADDRESS
sSETUP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
STSTNM,ADISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT7,BYPASS
;SETUP BYPASS ADDRESS
RPADR, R4
;RP11E BUS ADDRESS
DPB+1
sCLEAR ANY EXTENDED MEMORY BITS
DPB+3

#100.,STIMES

;CLEAR "MODE' & 'HDR' BITS

::00 100.

ITERATIONS

2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950

010560

010562
010564
010572
010574
010576
010604
010606
010610

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

000005
022770
023664
023240
000004

TEST7:

002504

104040

000004

:LOAD ADDR TO FORCE NON EX MEMORY

PC.RP11
PC,CONRDY

;INITIATE THE OPERATION
;WAIT FOR CONTROLLER READY

#B1T02,SRPER
2%
36
EXIT?
#HE ,SRPCS
3%
37
#ERR,SRPCS
EXIT?
40

;DID NON EX MEMORY SET ?
sBRANCH IF SET
;'NXME' ERROR DIDN'T SET
;DON'T CHECK THE RPCS BITS
;DID "HE' SET ON NON EX MEMORY
;BRANCH IF SET
:"HE' DIDN'T SET
;:DID 'ERR' SET WITH NON EX MEMORY
;BRANCH IF SET
;"ERR" DIDN'T SET

3%:

;TRY TO READ INTO THE LOCATION

PC,SAVRP

;*TEST 10
s*THE

;CLEAR THE RP11
;WORD COUNT

#RDSEK ,DPB+2

AL RAAR

001340

;SETUP THE STACK POINTER

#160000,$BUF

EXIT7:

100000

SEQ 0059

MOV

JSR

2$:

PAGE 60

$SEC
;SECTOR/TRACK ZERO
$CYL
sCYLINDER ZERO
#MEX1!MEXO,DPB+1
;LOAD BOTH EXTENDED MEMORY BITS

BIT
BNE
ERROR
BR
BIT
BNE
ERROR
BIT
BNE
ERROR
SCOPE

001340

14:43

PC.CLRP
#1,8uC

JSR
JSR

040000

§
22-APR-78

#STACK,SP

Mmove

001336

JSR
MoV

CLR
CLR
MovB

002501
002506
002502

;STORE

THE REGISTERS

AR a2
222222

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).
THE TEST IS PERFORMED IN 3 PARTS.

2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962

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

CYLINDER O

IN ASCENDING SEQUENCE

READ EACH HEADER, BEGINNING WITH SECTOR O, AND VERIFY THAT THE
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 EXPECTED VALUE.
THE EXPECTED VALUE IS 1 GREATER

THAN THE SECTOR READ.
:éE%S?ERINCREHENTED BY

THE
THE

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

WRITE

THE

SECTOR'S ADDRESS

OCTAL 12 IS WRITTEN.)

IN THE DATA FIELD.

(FOR SECTOR 0,

CONTINUE THIS SEQUENCE FOR THE REMAINING SECTORS ON THE

TRACK.

SECTOR FIELD

010612
010612
010620

—_

2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977

MoV

2935

010464
010470
010474
010502
010506
010512
010520
010526
010534
010540
010544
010550
010556

2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934

MACY11 30A(1052)
TEST 'NXME' BIT

033737
001002

001420

001276

§T10:

READ THE DATA FROM EACH SECTOR USING A NORMAL

READ AND VERIFY THAT
R

BIT
BNE

R R

THE

R R R R RN RN

DATA

IS CORRECT FOR

(I.E., NON-HEADER)

THE EXPECTED SECTOR.

R RN RRRRRRRRRRRNRRRARRRRRRRRRRRRRRY

BITS+<STN*2> TSTNMS
;IS THIS TEST SELECTED
.+6
;BR IF YES

(Nl

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

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

2978
2979
2980
ggg;

010622
010626
010634
010642

000137
012737
012737
012737

011532
010706
010612
000010

2983
2984
2985
2986
2987
2988
2989
2990
2991
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

010650
010656
010664
010670
010674
010700
010706
010712
010720
010724
010732
010740
010744
010750
010754
010762
010770
010774
011000
011004
011012
011014
011016
011022
011026
011034
011040
011046
011054
011062
011066
011072
011076
011104
011110
011116
011124
011126
011130
011132
011136

013777
012737
013704
105037
105037
012737
012706
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
104042
000457
005037
113737

001102
011530
001324
002501
002503
000031
001100
010706
025654
043656
000036
002510
002512
024304
014000
000003
022770
023664
023240
100000

3024
3025
3026
3027
3028
3029
3030
3031
3032
3033

011144
011152
011154
011156
011162
011170

011172
011176
011204
011212

023737
001401
104043
005237
023727
103402

005037
013737
042737
006237

011530
002512
011026
025654
014000
000005
000003
022770
023664
023240
000000
023202
000014
100000

001124
002512
00112¢

001124
001124
001124
001350
177417
001126

JMP
MOV
MoV
Mov

001110
001106
001102
170264
001200

001162
001110

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

MOV

ST
#TEST10,SLPERR
#TST10,8LPADR
#10,$TSTNM
STSTNM,3DISPLAY

MOV

#EXIT10,BYPASS

CLRB
CLRB
MOV

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

MOV

TEST10: MoV
Mmov
JSR

14:43

;GO TO
;SETUP
;SETUP
sSETUP
;CLEAR

PAGE 61

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

;LOAD THE

TEST NUMBER

;SETUP BYPASS ADDRESS

RPADR, R4

;RP11E BUS ADDRESS

#STACK,SP

sRESET

#TEST10,SLPERR
PC

CLRP

SEQ 0060

INTO THE DISPLAY REGISTER

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

STACK POINTER

;LOOP ON ERROR ADDRESS
;CLEAR THE RP11

002506
002504

MOV

#BUFFER,$BUF

002502
002502

Mov

#MODE
! HOR ,DPB+2 ;SETUP THE HEADER CONTROL BITS

JSR

PC.RP11

MoV
CLR
CLR
JSR

MOovB
JSR
JSR
BIT

001340

001110

1$:
2%:

BEQ
ERROR
JMP
CLRB
MoV
JSR

002502
002502
002504

001124
043662

000012
001126
001126

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

sWAIT FOR THE ORDER TO COMPLETE
:STORE THE REGISTERS
;ERROR ?

1%
41
EXIT10
$SEC
#2% ,SLPERR
PC,CLRP

:FORMAT THE TRACK

;BR IF NOT
;ERROR TRYING TO FORMAT THE TRACK
sBYPASS REST OF THE TEST
sSTART CHECK WITH SECTOR 0
;CHANGE THE LOOP ON ERROR ADDRESS
;CLEAR

THE

:CHANGE THE WORD COUNT TO 3
sREAD THE SECTOR'S HEADER

JSR
Mov

PC,SAVRP
#0,STALLT

;STORE THE REGISTERS
sLOAD STALL VALUE

MoV

RPDA(R4) ,SRPDA

#RDSEK ,DPB+2
PC.,CONRDY

PC,STALL

"MODE'

RP11

#3,8uC
PC.RP11

AND

"HDR' BITS

:CHANGE THE OPERATION TO A READ

sWAIT FOR THE ORDER TO COMPLETE
;STALL FOR O MILLISECONDS
;GET

THE

CONTENTS OF

THE ADDRESS REGISTER

BIT
BEQ
ERROR
BR
CLR

#ERR,SRPCS
3s
42
6%
$GDDAT

;ERROR ?
:BR IF NOT
;ERROR READING THE HEADER
;BYPASS DATA CHECK
;CLEAR FOR EXPECTED DATA

BEQ

:BR IF

INC
CMP
BLO
CLR
MOV

$GDDAT
$GDDAT,#10.
.+6
$GDDAT
$RPDA,$BDDAT

: INCREMENT SECTOR ADDRESS FOR
;EXCEED THE MAXIMUM ?
:BR IF NOT
sRESET COMPARISON VALUE
:CHECK THE 'SOT*

$BODAT

:SHIFT

MOVB
CMP

48:

;THE COMMAND CODE

MoV
JSR

JSR

38:

#URTSEK ,DPB+2

#MODE
'HOR ,DPB+2 ;SET

JSR

001350
001340

;SETUP WORD COUNT FOR 10 SECTORS
sSETUP FOR CYLINDER 0
: TRACK/SECTOR 0
;SETUP FORMAT BUFFER

MOV

MOvVB

001220

#30.,8WC
$CYL
$SEC
PC,LODSEC

;SETUP BUFFER ADDRESS

ERROR

BIC

ASR

$SEC,SGDDAT
$GDDAT ,BUFFER+4

# C360,8B0DAT

;MOVE SECTOR ADDRESS
;CHECK THE SECTOR FIELD

CORRECT

;SECTOR FIELD FROM HEADER NOT CORRECT

;CLEAR THE OTHER BITS
THE

'SOT®

'SOT'

CHECK

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
110
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
011376
011404
011410
011416
011424
011430
011434
011440
011444
011452

011454
011456

006237
006237
006237
013737
042737
023737
001004
023737
001401

104045
012737
004737
105037
004737
112737
004737
004737
004737
032737
001401
104044
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

001126
001126
001126
001350
177760
001124

001122
001122
001126

001126

001122

011270
025654
002503
024336

001110

ASR
ASR
ASR

MOV

BIC
CMP
BNE
CMP
BEQ
ERROR
MOV
JSR
CLRB
JSR

5%:
6%:

000003
022770

002502

100000

001340

000005
002512
002512

002502

011424
000400
002512
000012
000005
025654
022770

001110
002504

MOV
MOV

001124
002502

MOV
MOVB

023664
023240

MOVB
JSR

JSR
JSR
BIT
BEQ
ERROR
MOVB
INCB
CMPB
BNE

7%:

000012

100000

001340

001120
002512
001124

001120
043656

002512
002512

000012

002512

001124

CLRB

8%:

JSR
JSR
JSR
JSR
BIT
BEQ
ERROR
BR
CLR

9%:

MOVB
CMP

10%:

EXIT10:
A

BEQ
ERROR
INCB
CMPB
BEQ

MOVB
BR

SCOPE

AR AL AR

J*TEST

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

AR AR

;SHIFT THE

SEQ 0061

;1S THE 'SOT' CORRECT ?
;:BR IF NOT

$BDDAT,$BDADR

;DOES THE SECTOR ADDRESS EQUAT THE

6%
45

sBR IF IT DOES

'SoT*'

;CHANGE THE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;CLEAR "MODE' & 'HDR' BITS
;SETUP TO WRITE SECTOR ADDRESS AS DATA
s CHANGE OPERATION

PC,CLRP

DPB+3

PC,FILSEC
#WRTSEK ,DPB+2

PC,RP11

;WRITE

#ERR,SRPCS

7%
L4

#RDSEK ,DPB+2
$SEC

$SEC.#10.
2%

#8% ,SLPERR
#256.,8uC
$SEC

#10.,3GDDAT
#RDSEK,DPB+2
PC,CLRP
PC.RP1
PC,CONRDY
PC,SAVRP
#ERR,SRPCS

9%
17
108
$GDADR
$SEC,SGDADR
$GDDAT ,BUFFER
108
46
$SEC
$SEC,#10.

EXIT10

$SEC,SGDDAT

THE

SECTOR

;WAIT FOR THE ORDER TO COMPLETE
;STORE THE REGISTERS
;ERROR ?
:BR IF NOT
sERROR TRYING TO WRITE SECTOR ADDRESS AS DATA
;CHANGE THE OPERATION
s INCREMENT THE SECTOR
;AT MAXIMUM SECTOR ADDRESS ?
:BR IF NOT
: CHANGE THE LOOP ON ERROR ADDRESS
; CHANGE WORD COUNT
sSTART WITH SECTOR ZERO
;SECTOR ZERO PATTERN
: CHANGE OPERATION CODE
;sCLEAR THE RP11
sREAD THE SECTOR
;WAIT FOR THE ORDER TO COMPLETE
:STORE THE REGISTERS
sERROR ?
:BR IF NOT
;ERROR TRYING TO READ THE SECTOR
;BYPASS DATA CHECK
;CLEAR FOR EXPECTED DATA
SEXPECTED DATA
sCORRECT CONTENTS ?
:BR IF CORRECT
;SECTOR PATTERN NOT CORRECT FOR SECTOR ADDRESS
: INCREMENT SECTOR ADDRESS
;FINISHED SECTOR NINE ?
:BR IF COMPLETED
;NEXT SECTOR
;CONTINUE CHECKING
;LOOP ?

PC,CONRDY
PC,SAVRP

TRACK ADDRESSING TEST

;*TRACK ADDRESSING

;'SOT' OR SECTOR ADDRESS IS NOT CORRECT

#6%,SLPERR

*'SOT’

;CHECK THE SECTOR ADDRESS
;LEAVE THE SECTOR ADDRESS

SRPDA,$BDADR
# C17,$BDADR
ggDDAT.SBDDAT

PAGE 62

sSHIFT THE 'SOT'
;SHIFT THE 'SOT'

$BDDAT
$BDDAT
$BDDAT

14:43

TESTED BY WRITING THE

;*SECTOR O OF EACH TRACK IN CYLINDER 0.

TRACK'S ADDRESS AS DATA

SECTOR O IS THEN READ BACK AND

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

3090
3091

3092
3093
3094
3095
3096
3097
3098
3099
3100

3101
3102
3103

3104
3105
3106
3107
3108

3109

3110
3
3112

3113

3114
3115
3116

3117
3118
3119

3120
3121
3122

3123
3124
3125
3126
3127
3128
3129
3130
313
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145

;*THE
M

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

K
5
MACYT1 30A(1052)
22-APR-78
TRACK ADDRESSING TEST
DATA

IS CHECKED

TO VERIFY

S22l

&
il

BIT
BNE
JMP

THAT

14:43

PAGE 63

THE PROPER HEAD WAS

R332

BITS+<STN*2> ,TSTNMS

. +6

SEQ 0062
SELECTED.

2222232222222

;IS THIS TEST SELECTED

:BR IF YES

TST12

;GO TO THE NEXT TEST

#TST11,SLPADR
#11,8TSTNK

;SETUP THE SCOPE LOOP ADDRESS
sSETUP TEST NUMBER AND

011652

001110
001106
001102

MOV
MOV
MOV

#TEST11,SLPERR

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

167344
001200

STSTNM, 3DISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT11,BYPASS
;SETUP BYPASS ADDRESS

001162

MOV
MOV
MOV
CLRB
CLRB
MoV

002504
002506

MOV
MOV

001340

002513
002513

000024

011532
000011

001124
002512
011754
025654
000005
022770
023664
023240
100000

001110
002502

TEST11: MOV
1%:
MOV
JSR
MOVB
JSR
JSR
JSR
JSR
BIT
BEQ
ERROR
2%:
INCB
CMPB
BLO

3s:

001110

4%:

002502

001340

001125

043657

002513

000023

002513
001125

CLR
CLR

5%:

CLR

CLR
MOV
JSR
MOVB
JSR
JSR
JSR
BIT
BEQ
ERROR
BR

CMPB
BEQ
ERROR
6%:
CMPB
BEQ
INCB
INCB
BR
EXIT11: SCOPE

;SETUP THE ERROR LOOP ADDRESS

;CLEAR THE ERROR FLAG (SERFLG)

RPADR, R4

;RP11E BUS ADDRESS

DPB+3

;CLEAR "MODE' & "HDR' BITS

DPB+1

#25.,8TIMES
$SEC
SCYL

#256.,34uC

;CLEAR ANY EXTENDED MEMORY BITS
;:D0 25. ITERATIONS
sCLEAR SECTOR/TRACK ADDRESS
sCLEAR CYLINDER ADDRESS

;SET WORD COUNT TO ONE SECTOR

#BUFFER,$BUF
#STACK,SP
#18 ,SLPERR
PC,CLRP

;SETUP THE BUFFER ADDRESS
;SETUP THE STACK POINTER
;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11

PC,SAVRP
#ERR,SRPCS

;STORE THE REGISTERS
;ERROR ?

#URTSEK ,OPB+2
PC,FILTRK
PC.RP11
PC,CONRDY

;CHANGE COMMAND TO WRITE
;FILL BUFFER WITH THE TRACK ADDRESS
;WRITE THE TRACK'S ADDRESS
sWAIT FOR CONTROLLER TO FINISH

2%
b4

:BR IF NOT
;ERROR WRITTING TEST PATTERN

$TRK,#20.

;FINISHED ?

$TRK

: INCREMENT

TRACK ADDRESS

sBR

PC,CLRP
#RDSEK ,DPB+2
PC.RP11
PC,CONRDY

PC,SAVRP
#ERR,SRPCS

;CLEAR THE RP11
s CHANGE COMMAND
;READ THE SECTOR
;WAIT FOR THE CONTROLLER TO BE
;STORE THE REGISTERS
;ERROR ?

EXITI

sBR IF FINISHED

$GDODAT+1

: COMPARSION WORD

$GDDAT
$SEC
#4%,SLPERR

THE

NOT FINISHED

;SETUP EXTPECTED VALUE
sSTART WITH ZERO
sCHANGE THE LOOP ON ERROR ADDRESS

5%
;BR IF NOT
17
:ERROR READING THE SECTOR
6%
;BYPASS THE DATA CHECK
$GDDAT+1,BUFFER+1
;CORRECT VALUE ?
6%
:BR IF OK
47
;CONTENTS WRONG
$TRK,#19.
;FINISHED ?
$TRK

: INCREMENT

: CONTINUE

;LOOP ?

THE

TRACK ADDRESS

READY

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

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

14:43

PAGE 64

3146

3147

31‘8

;}gg

;*TEST 12

3151
3152

;*THIS TEST TESTS THE OPERATION OF THE EXTENDED MEMORY ADDRESS BITS.
IF THE
;*SYSTEM DOES NOT HAVE MEMORY MANAGEMENT OR HAS MEMORY MANAGEMENT AND ONLY

g}gz

AR AR ARl

ittt

ittt ittt tld)

EXTENDED MEMORY ADDRESS TEST

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

g}gg

THE PROGRAM WRITES A 2 WORD TEST SECTOR OF ALL ONES.

- ®

3157
3158
3159

;®
:*
3

g}g?

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

:®

PROGRAM VERIFIES THAT "MEX00' HAS SET AND THAT °"MEX01' IS NOT SET.

3162
3163
3164
3165
3166
3167

o
:*
;e
:*
:®

3168

3169
3170
3171
3172
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

012062
012062
012070
012072
012076
012104
012112

033737
001002
000:77
012737
012737
012737

001424

001276

012720
012202
012062
000012

001110
001106
001102

012120
012126
012134
012140
012144
012150
012156
012162
012164
012170
012174
012176
012202
012206
012214
012220
012224
012232
012240
012246
012252
012256
012264
012270

013777
012737
013704
105037
105037
012737
005737
100402
000137
005737
001002
000137
012706
012737
004737
005037
012737
012737
012737
005037
005037
012737
004737
004737

001102
012712
001324
002501
002503
000144
022232

012274

004737

167014
001200

001162

012720
001232

012720
001100
012202
025654
043656
177777
043656
000002
002512
002510
000003
022770
023664

023240

001110
043660
002506
002504
002502

3.
IF THE SYSTEM HAS AT LEAST 64K, "MEXO1' IS TESTED.
LOCATION
400000 IS CLEARED AND THE TEST SECTOR IS READ INTO LOCATION 377776
(*MEXO0*' IS SET FOR THE READ).
LOCATION 400000 IS CHECKED FOR THE
PROPER CONTENTS (ONES).
'MEX00' SHOULD HAVE RESET AND 'MEX01' SHOULD
BE SET.
AR

TST12:

AR AR AR AR ARttt

BIT
BNE
JMP
Mov
Mov
Mmov

Mov
Mov
MOV
CLRB
CLRB
MOV
TST
BMI
JMP
1%:
TST
BNE
JMP
TEST12: MOV
MOV
JSR
CLR
MOV
MOV
Mov
CLR
CLR
Mov
JSR
JSR

JSR

iRttt ittt

BITS+<$TN*2>,TSTNMS
;IS THIS TEST SELECTED
. +6
sBR IF YES
TST13
;GO TO THE NEXT TEST
#TEST12,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#TST12,SLPADR
;SETUP THE SCOPE LOOP ADDRESS
#12,8TSTNM
;SETUP TEST NUMBER AND
sCLEAR THE ERPOR FLAG (SERFLG)
STSTNM,GDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT12,BYPASS
;SETUP BYPASS ADDRESS
RPADR,R&
;RP11E BUS ADDRESS
DPB+1
sCLEAR ANY EXTENDED MEMORY BITS
DPB+3
;CLEAR "MODE' & 'HDR' BITS
#100.,S$TIMES
::00 100. ITERATIONS
$KT1
sMEMORY MANAGEMENT ON THE SYSTEM ?
1%
;BR IF ON SYSTEM
TST13
;GO TO THE NEXT TEST
MAXMEM+2
;ENOUGH MEMORY FOR THIS TEST ?
TEST12
:BR IF YES
TST13
;GO TO THE NEXT TEST
#STACK,SP
sSETUP THE STACK POINTER
#TEST12,SLPERR
;INITIAL ERROR LOOP ADDRESS
PC,CLRP
;CLEAR THE RP11
BUFFER
;TEST PATTERN
#-1,BUFFER+2
:SECOND WORD OF PATTERN
#BUFFER,$BUF
:SETUP THE BUFFER ADDRESS

#2,80C
$SEC
$CYL
#URTSEK,DPB+2
PC,RP11
PC,CONRDY
PC,SAVRP

;WORD COUNT OF 2
sSECTOR/TRACK ZERO
:CYLINDER ZERO
;WRITE COMMAND
sINITIATE THE COMMAND
:WAIT FOR CONTROLLER READY
;STORE THE REGISTERS

SEQ 0063

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.PN
T2
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

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

3250
3251

3257

012616
012622
012626
012634
012636
012640
012646
012650

012652

032737
001403

100000

000137
012737
004737
012737
005037
012737
012737
012737
012737
012737
012737
012737
005037
012737
112737
004737
004737
004737
032737
001401

012712
012316
025654

104004

104050
032737
001001
104051

177600
172340
000200
002000
077406
077406
077406
077406
000001

040000

001340

001110
172356

002506
002502

100000

001340

000020

001340

032737
001401

000040

001340

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

177777

040000

177777
040000

001124
001126

001232

000002

004000
012552
025654
040000

172344
001110

104052

004737
032737
001401
104054

032737
001401
104055

032737

177776
000020

000005
022770
02366¢
023240
100000

000020

002506
002501
002502

001340
001340

BIT
BEQ
ERROR
JMP
Mov
JSR

Mov
CLR
MOV
MOV
MOV
MoV
MoV
MOV
Mmov
CLR
MoV

172342
172344
172300
172302
172304
172316
177572

177776
000005
022770

023664
023240

1%:

nS
MACY11 30A(1052)
22-APR-78
14:43
EXTENDED MEMORY ADDRESS TEST

MOvB
JSR
JSR
JSR
BIT
BEQ

2%:

ERROR
BIT
BNE
ERROR

3s:

001340

PC,CLRP

#177600,K1PAR7
KIPARO
#200,KIPART
#2000,KIPAR2
#77406 ,K1PDRO
#77406,KIPDR1
#77406 ,K1PDR2
#77406 ,KIPOR7
#1,3#SR0
a#40000
#177776 ,3BUF

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

50
#MEXO,SRPCS
3s
51

BIT
BEQ
ERROR
4$:
CMP
BEQ
Mov
MoV
ERROR
TST12B: CHP
BLO
MOV
1%:
MOV
JSR
CLR
MoV
MOVB
Move
JSR
JSR
JSR
BIT
BEQ
ERROR
2%:
BIT
BEQ

#MEX1,SRPCS
6%
52
#177777,3#40000
TST128
#177777 ,8GDDAT
a#40000,$BDDAT
53
MAXMEM+2,#2
EXIT12
#4000,KIPAR2
#18,SLPERR
PC,CLRP
a#40000
#177776 ,8BUF
#MEXO,DPB+1
#RDSEK,DPB+2
PC.RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
2%
54
#MEXO,SRPCS
3%

3%:

#MEX1,SRPCS

ERROR

000040

#ERR,SRPCS
1%
4
EXIT12
#18,SLPERR

BIT

PAGE 65

SEQ 0064

;DID OPERATION TERMINATE WITH AN ERROR ?
;BR IF NOT

;ERROR AFTER 2 WORD WRITE
;BYPASS REST OF TEST
;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP11
;OPEN 1/0 REGISTERS
;ENABLE FIRST &K
sENABLE SECOND 4K
sENABLE FIRST TEST LOCATION
sLOAD DESCRIPTOR REGISTER 0
sLOAD DESCRIPTOR REGISTER 1
;LOAD DESCRIPTOR REGISTER 2
sLOAD DESCRIPTOR REGISTER 7
sTURN ON MEMORY MANAGEMENT

;CLEAR LOCATION 200000
;SETUP 2US ADDR

s CHANG: COMMAND TO READ
sSTAR. THE COMMAND
;WAL FOR CONTROLLER READY
;STCRE THE REGISTERS
sANYT ERRORS?

;BFANCH IF NOT
;ERROR AFTER READING 2 WORDS

:IID "MEXO' SET ?

;BRANCH IF IT DID

;'MEXO' DID NOT SET AFTER 2 WORD READ
;STARTING AT LOCATION 177776
:"MEX1' SHOULD NOT BE SET
sBRANCH IF NOT SET

;"MEX1' IS SET - SHOULD NOT BE

;WAS DATA READ INTO LOCATION

;200000 CORRECTLY? - BRANCH IF YES
;EXPECTED CONTENTS
;CONTENTS OF LOCATION 200000
;DATA COMPARE ERROR AT LOC 200000

;ENOUGH MEMORY FOR THE NEXT PART OF

:BR IF NOT
s CHANGE TEST LOCATION
;CHANGE THE LOOP ON ERROR ADDRESS

;CLEAR THE RP11
;CLEAR LOCATION 400000
;BUFFER ADDRESS
;SETUP EXTENDED MEMORY ADDRESS BIT
sREAD COMMAND
sSTART THE COMMAND

;WAIT FOR CONTROLLER READY
:STORE THE REGISTERS

sANY ERRORS?

:BRANCH IF NOT
;ERROR WHILE READING TWO UORDS

?
;IS "MEXQ' SET

:BRANCH IF NOT

:"MEXO' DID NOT CLEAR AFTER 2 WORD
;READ STARTING AT LOCATION 377776
;:DID "MEX1' SET ?

THE TEST ?

E%::VSD$1?P11-E FUNCTIONAL LOGIC & R/W TEST
' T2
22-APR-78 14:42

012660
012662

001001

012664
012672
012674
012702
012710
012712
012716

022737

104056

001407
012737
013737
104057
005037
000004

177777

040000

177777
040000

001124
001126

177572

4s:

SEQ 0065

48
56

CMP

#177777 ,a#40000 ;WAS DATA READ INTO LOCATION 400000

ERROR
EXIT12: CLR

;STARTING AT LOCATION 377776

57
a#SRO

SCOPE

AR AR

;BR IF SET
;'MEX1' DID NOT SET AFTER 2 WORD TRANSFER

EXIT12
#177777,8GDDAT
a#40000,$BDDAT

MOV

PAGE 66

BNE
ERROR

BEQ
MOV

sCORRECTLY ? - BRANCH IF YES
;EXPECTED DATA

;DATA FROM LOCATION 400000

;DATA COMPARE ERROR AT LOC 400000
;TURN OFF MEMORY MANAGEMENT
;LOOP ?

ARl a2
2220

;*TEST 13

DATA BUFFER REGISTER BIT TEST

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

THE DATA

1.
THE TEST FIRST 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

BN N

3282
3283

3286
3287
3288
3289
3290

3284
3285

ETC

012720
012720
012726
012730
012734
012742
012750

012756
012764
012772
012776
013002
013006
013014

033737
001002
000137
012737
012737
012737

013777
012737
013704
105037
105037

012737
012706

001426

001276

013574
013014
012720
000013

001102
013572
001324
002501
002503
000144
001100

THE TEST SECTOR IS THEN READ AND THE DATA IS COMPARED.

COMPLETION OF
PDP-11 MODE.

LR B

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

MACY11 30A(1052)
22-APR-78
14:43
EXTENDED MEMORY ADDRESS TEST

AR AR

TST13:

THE

TEST,

THE PROGRAM RESTORES

THE

TEST

222222220

001110
001106
001102

BIT
BNE
JMP
MOV
MoV

[ [#]"

BITS+<STN*2>,TSTNMS
;IS THIS TEST SELECTED
.+6
;BR IF YES
TST14
;GO TO THE NEXT TEST
#TEST13,8LPERR
:SETUP THE ERROR LOOP ADDRESS
#TST13,8LPADR
;SETUP THE SCOPE LOOP ADDRESS

166156

MoV

STSTNM, SDISPLAY

001200

001162

MOV
mov
CLRB
CLRB
MOV
TEST13: mov

#13,8TSTNM

#EXIT13,BYPASS
RPADR R4
DPB+1
DPB+3
#100. ,STIMES
#STACK,SP

AT THE

SECTOR TO

sSETUP TEST NUMBER AND

sCLEAR THE ERROR FLAG (SERFLG)
;LOAD THE

TEST NUMBER

INTO THE DISPLAY REGISTER

;SETUP BYPASS ADDRESS
:RP11E BUS ADDRESS
sCLEAR ANY EXTENDED MEMORY BITS
;CLEAR "MODE' & "HDR' BITS
;:00 100. ITERATIONS
;SETUP THE STACK POINTER

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
T13
CZRPYD. P11
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%:

6
22-APR-78

MACYT1

30A(1052)

Mov
MoV
MOV
MOV
MOV
DEC

#128.,R2
#52525,(R1)+
#52525,(R1)+
#5,(R1)+
R2

;AT

#125252,(R1)+
#125252,(R1)+

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

DATA BUFFER REGISTER BIT TEST

BEQ

MoV
MoV
Mov
DEC

BNE

#BUFFER,R1

#12,(R1)+
1P
1%

14:43

PAGE 67

;BUFFER ADDRESS
;SIZE

;PATTERN FOR BITS 20 - 35
sPATTERN FOR BITS 4 - 1 9
;PATTERN FOR BITS 0 - 3
THE END ?

:BR IF END

;PATTERN FOR BITS 0 - 3
;AT THE END ?
:BR IF NOT

SEQ 0066

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

3326
3327

013070
013076

012737
004737

013070
025654

001110

2%:

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

Mov
JSR

#2%,SLPERR
PC,CLRP

PAGE 68

:LOOP ON ERROR ADDRESS
;CLEAR THE RP11

SEQ 0067

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST

CZRPYD.P1

22-APR-78 14:42

3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354

013102
013106
013112
013120
013126
013134
013142
013146
013152
013156
013164
013166
013170
013172
013200
013204
013210
013214
013220
013222
013224
013226
013234
013242
013250
013256
013262

005037
005037
012737
012737
012737
112737
004737
004737
004737
032737
001402
104004
000541
012737
004737
012701
063701
013702
005001
005302
001375
013737
063737
062737
112737
004737
004737

3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376

013272
013300
013302
013304
013306
013312
013316
013322
013326
013332
013336
013344
013346
013350
013352
013360
013366
013372
013400
013404
013406

032737
001402
104017
000473
012701
013702
013703
063703
062703
005037
032777
001053
022123
001445
016137
016337
010337
162737
005737
001010
012737

3355

3377
3378
3379
3380
3381
3382
3383

013266

013414
013422
013426
013434
013440
013444
013452

004737

112737
004737
112737
004737
005237
023737
103004

002512
002510
000600
043656
010000
000003
022770
023664
023240
100060

T13

002504
002506
002502
002502

001340

013172
025654
043656
002504
002504

001110

002504
002504
043656
000005
022770
023664
023240
100000

002506
002506
002506
002502

043656
002504
002504
002504
043656
013472
000010

3%:

48:

5%:

177776
177776
001122
000002
013472

001124
001126

013406
000102
017254
000104
017254
013472
001320

001116
001114

6$:

001122

001114
013472

7%:

8s:

PAGE 69

CLR
CLR
MOV
MOV
MoV
Move
JSR
JSR
JSR
BIT
BEQ
ERROR
BR
MoV
JSR
Mov
ADD
Mov
CLR
DEC
BNE
Mov
ADD
ADD
Mmove
JSR
JSR

$SEC
SCYL
#384.,8WC
#BUFFER,$BUF
#MODE ,DPB+2
#URTSEK,DPB+2
PC.RP11
PC,CONRDY
PC,SAVRP
#ERR,SRPCS
3s
&
TST13A
#38,SLPERR
PC,CLRP
#BUFFER,R1
$WC,R1
$WC,R2
R1
R2
4%
$W(,SBUF
$WC,$BUF
#BUFFER,$BUF
#RDSEK ,DPB+2
PC.RP11
PC,CONRDY

;SECTOR/TRACK ADDRESS OF ZERO
;CYLINDER ZERO
;1 SECTOR IN 10/15 MODE
;BUFFER ADDRESS
;SET THE 'MODE' BIT
;WRITE COMMAND
;D0 THE COMMAND
;WAIT FOR THE COMMAND TO COMPLETE
:SAVE THE REGISTERS
;OPERATION GO OK ?
;BR IF IT DID
;SETUP OPERATION TERMINATED WITH AN ERROR
sCORRECT THE SECTOR AND BYPASS REST OF TEST
sCHANGE 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
s CHANGE COMMAND
sREAD THE SECTOR
;WAIT FOR THE OPERATION TO COMPLETE

BIT
BEQ
ERROR
BR
MoV
Mov
Mov
ADD
ADD
CLR
BIT
BNE
CMP
BEQ
Mov
Mov
MoV
SuB
TST
BNE
MOV

#ERR,SRPCS
5%
17
TST13A
#BUFFER,R1
$WC,R2
SWC,R3
SWC,R3
#BUFFER,R3
108
#SW03,aSWR
TST13A
(R1)+,(R3)+
Y%
=2(R1) ,8GDDAT
=2(R3) ,$BDDAT
R3,$BDADR
#2,3BDADR
108
78
#. SERRPC

;DID AN ERROR OCCUR ?
:BR IF NOT
sERROR OCCURED READING THE TEST SECTOR
;BYPASS THE COMPARSION
;GOOD DATA
;SIZE
:FORM ADDRESS OF TEST DATA
;DOUBLE THE WORD COUNT
sADD THE BUFFER START ADDRESS
;CLEAR THE COMPARSION ERROR COUNTER
;COMPARE THE DATA ?
:BR IF NOT
:COMPARE THE DATA
:BR IF OK
;GOOD DATA
;BAD DATA
;FORM BAD ADDRESS
sDECREMENT IT
sANY COMPARE ERROR ALREADY ?
:BR IF SOME
:PC FOR ERROR MESSAGE

JSR

001340

165574

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

MOVB
JSR
MOovB
JSR
INC
CMP
BHIS

PC,SAVRP

#102,81TEMB
PC,TYPERR
#104,81TEMB
PC,TYPERR
108
CMP.CT,108
9s

;STORE THE REGISTERS

;ERROR TABLE INDEX
;REPORT COMPARSION ERROR
; INDEX OF DATA DISPLAY MESSAGE
sTYPE THE MESSAGE
s INCREMENT COMPARSION ERROR COUNT
: COMPARE AGAINST THE LIMIT
;:BR IF NOT GREATER

SEQ 0068

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
3416
3417
3418
3419
3420
3421
3422
3423
3424
3425
3426
3427
3428
3429
3430

3431
3432
3433
3434
3435
3436
3437
3438
3439

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

032777
001404
005302
001323
000401
000000
012737
004737
105037
012737
112737
005037
005037
012737
004737
004737
004737
032737
001401
104060
000004

000020

165456

013474
025654
002503
000002
000003
043656
043660
043656
022770
023664
023240
100000

001110

002504
002502

s CONTINUE COMPARING ANYWAY ?

DEC
BNE

R2
6%

;FINISHED COMPARING ?
;BR IF NOT

.WORD

TST13A

TST13A: MOV
JSR
CLRB

001340

JSR
BIT

;CHANGE COMMAND

BUFFER+2
#BUFFER,$SBUF
PC.RP11

BEQ
ERROR
EXIT13: SCOPE
AR

#URTSEK,DPB+2
BUFFER

JSR
JSR

AR AR

; COMPARSION ERROR COUNTER

;CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE RP1

CLR

CLR
Mov

: CHANGE MODE OF THE SECTOR

#TST13A SLPERR
PC,CLRP
DPB+3

#2,3uC

002506

;BR IF NOT

TST13A

MOV

Mmove

SEQ 0069

#SWU4,aSWR

108:

BIT

BEQ

9%:

;CLEAR THE

"MODE' & 'HDR' BITS

s CHANGE WORD COUNT
;SET DATA TO ZERO

;OTHER DATA WORD
:BUFFER ADDRESS
;RE-WRITE THE SECTOR

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

;WAIT FOR THE OPERATION TO COMPLETE
;STORE THE REGISTERS
;DID THE WRITE FINISH WITHOUT ERROR ?

EXIT13
60

:BR IF IT DID
;ERROR RE-WRITING THE SECTOR
;LOOP ?

ARl ARt
it
202

S*TEST 14

DATA STORAGE/RETRIEVAL TEST

;*THE DATA TEST PERFORMS DATA STORAGE AND RETRIEVAL TESTING USING THE CONTROLLER
s*AND THE CURRENTLY SELECTED DRIVE.
UNLESS ALTERED BY THE OPERATOR, THE
s*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).

';?EEAVAILABLE MEMORY SIZE OR 8K, WHICHEVER IS LESS,

THE PROGRAM WILL USE
AS THE BUFFER

'AFTER THE

;*DATA.

PACK HAS BEEN WRITTEN,

THE

TEST WILL

READ AND COMPARE

THE

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

:*FOR THE WRITE/WRITE CHECK PART OF 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
'ON MEMORY MANAGEMENT SYSTEMS WITH 28K OR LESS.)
'THE
-Q.ll.ll'....

3384
3385

PAGE

DATA PATTERNS USED BY

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777

THE

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000

DATA TEST ARE

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777

000000
010421
021042
031463
042104
052525
063146
073567
104210
114631

GIVEN BELOW:

052525
052525
052525
125252
125252
125252
0
5
0
5
1
2
1
2

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322

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

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

3440

3491
3492
3493
3494
3495

14:43

PAGE 71

000000
000000
000000
000000
000000
000000

003777
007777
017777
037777
077777
177777

174000
170000
160000
140000
100000
000000

000000
177777
000000
177777
177777
000000

125
135673
14

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

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

172666
155555
172666
155555

077777

052525
125252
052525

125252
125252
052525

SEQ 0070

007417
170360
007417
170360
170360
007417

026455
151322
026455
151322
151322

026455

I
R

R
T

I
R

I
L

R
N
R
R
I
B
B
B
R
LR B

3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
34,83
3484
3485
3486
3487
3488
3489
3490

3445

3441
3442
3443
444

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

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

033737
001002
000137
012737
012737
012737

1ST14:

AR AR

001430

001276

014630
014066
013574
000014

001110
001106
001102

MOV
MOV
Mov

165302
001200

Mov
Mov
MOV

013777
012737
013704
105037
105037
012706
032777
001021
005737

001102
014616
001324
002501
002503
001100
000100

012737
004737
012637
013737
013737
000412
005037
005037
013737
012737

177777
023346
001240
001230
001232

100016

JMP

CLRB
CLRB

165244

022232

001222
001236
001302
043656

BIT
BNE

1%:

001222

2%:

001234
001240

077777

#TST14,SLPADR
#14 ,STSTNM

RPADR,
R4

DPB+1

DPB+3

$KT11

BR
CLR

CLR

MOV
MOV

177777
177777
177777
177777
177777

177777
177777

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000

;:SETUP
;SETUP
;CLEAR
STSTNM GDISPLAY
;LOAD
#EXIT14,BYPASS
;SETUP

TST

BPL

177777
177777
177777
177777

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

BITS+<STN*2> ,TSTNMS
;1S THIS TEST SELECTED
.+6
YES
IF
;BR
TST15
;GO TO THE NEXT TEST
#TEST14 ,SLPERR
;SETUP THE ERROR LOOP ADDRESS

#STACK,SP

BIT
BNE

177777
177777
177777
177777
177777

AR RS20]

MoV

Mov
JSR
MoV
MoV
MOV

001234
001236

100000

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

#5006 ,aSWR
2%
2%

#=1,MRACTV
PC,MOVLDR
(SP)+,LOMEM
MAXMEM _HIMEM

MAXMEM+2 HIMEM+2

MMACTV

HIMEM+2

MEMSIZ ,HIMEM
#BUFFER ,LOMEN

THE SCOPE LOOP ADDRESS
TEST NUMBER AND
THE ERROR FLAG (SERFLG)
THE TEST NUMBER INTO THE DISPLAY REGISTER
BYPASS ADDRESS
;RP11E BUS ADDRESS
sCLEAR ANY EXTENDED MEMORY BITS

;CLEAR 'MODE' & 'HDR' BITS
;SETUP THE STACK POINTER
;USE MEMORY MANAGEMENT ?
:BR

NOT

sMEMORY MANAGEMENT AVAILABLE ?
:BR _IF NOT
;SET MEMORY MANAGEMENT ACTIVE INDICATOR
;MOVE THE LOADER
;BEGINNING ADDRESS OF BUFFER SPACE

sHIGHEST MEMORY ADDRESS USED BY THE TEST
:UPPER ADDRESS BITS
s CONTINUE
sCLEAR MEMORY MANAGEMENT ACTIVE INDICATOR
sCLEAR UPPER "HIMEM' ADDRESS BITS
;HIGHEST NON MEMORY MANAGENEMT LOCATION
;DEFAULT BUFFER STARTING ADDRESS

oTM

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

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

3497

3498

3499
3500
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
35N
3512
3513
3514
3515
3516
3517
3518

3519
3520
3521
3522
3523
3524
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
014022
014026
014032
014036
014042
014046
014050
014054
014056
014062

014066

014072
014076

014104
014112
014120
014126
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
014316
014322
014330
014332

005037
013737
013737
013737
000337
105037

005237
013746
005037
005037
162716
100403

001242
001240
001242
001256
001254
001255
001254
001254
001252
001250
000012

001224
001226
001254

001252

113737
113737
013737

001272
001270
001266
001240
001256
000017
001260

002512
002513
002510
002506
002504
001204

001254
001246
024050
014166
025654
164734

001244

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

5%:

000012
001250
001100
024002

TEST14:

001110

1%:

000003
022770
023664
023240

2%:
3%:

000002

164646

100000

002502

001340

ADD
MOV
MOV

JSR

MOVB
MOVB

SB(C
JSR

4%:

TEST

14:43

PAGE 72

LOMEM+?2

LOMEM,ACTMENM

W14 ,BLKS14
BLKS14
BLKS14+1
BLKS14
BLKS14,-(SP)
INCTRK
INCSEC
#10.,(SP)
5%
INCTRK
43

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

SSEC,S$SEC
STRK,$TRK
SCYL,SCYL
LOMEM, SBUF
WC14,8WC
#15. ,PATNUM
OPRSEL
2%
BLKS14,PAKSIZ
PAKS1Z+2
PC,PATSEL

;CONVERT THE WORD COUNT TO A SECTOR COUNT

sRIGHT JUSTIFY THE SECTOR COUNT
;CLEAR THE RESIDUE
:CHANGE TO ABSOLUTE COUNT
s CONVERT BLOCK COUNT TO SECTOR/TRACK INCREMENTS
;CLEAR TRACK STORAGE
;CLEAR SECTOR STORAGE
sSUBTRACT A FULL SECTOR
:BR IF MINUS
;COUNT THE TRACK
: CONTINUE
;CORRECT THE SECTOR RESIDUE
sSECTOR INCREMENT VALUE
;LOAD THE STACK POINTER
;GET THE NUMBER OF SECTORS ON THE PACK
;BEING USED
;STARTING SECTOR ADDRESS
;STARTING TRACK ADDRESS
;STARTING CYLINDER ADDRESS
;BUFFER 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
;sCLEAR THE RP11
;INHIBIT WRITE AND

MoV

#38,SLPERR

Mov
COM

aSWR,~(SP)
;WRITE CHECK ?
(SP)
#5W00!SWO1, (SP)+
TST14A
s YES==BRANCH

JSR

BNE
MOvB
JSR

002502

001340

CLR
CLR
SuB
BMI
INC
BR

BIT
BEQ
JSR
BIT

164712

100000

025654
000007
022770
023664
023240

sCLEAR UPPER STORAGE WORD
sSTARTING ADDRESS OF FIRST BUFFER
LOMEM+2 ,ACTMEM+?2
;UPPER ADDRESS BITS

MoV
MoV
Mov

MOV
MOV
MoV
MoV
TST
BNE
SuB

000003

024432
000001

CLR

DATA STORAGE/RETRIEVAL

SWAB
CLRB
INC

4%:

6
22-APR-78

30A(1052)

Mmov

005237
000772
062716
012637
012706
004737

013737
013737
012737
005737
001005

3%:

MACYT1

JSR
JSR
BIT
BEQ
ERROR
BIT
BNE
JSR
MOVB
JSR
JSR
JSR

BIT

BEQ
ERROR

PC,CLRP

PC,SETBUF

#5W00,aswR
48
#URTSEK ,DPB+2
PC.RP11

sMOVE DATA PATTERN INTO THE BUFFER
;INHIBIT WRITE ?
s YES==BRANCH
: COMMAND=WRITE
;00 THE COMMAND

;STORE THE REGISTERS
;ERROR OCCURED ?
:BR IF NOT

PC.,CONRDY
PC,SAVRP
#ERR,SRPCS

#5W01,3SWR

PC,CLRP
#URTCHK ,DPB+2

PC,RP11

PC,CONRDY
PC,SAVRP

#ERR,SRPCS

;WAIT FOR THE

;REPORT

THE

COMMAND TO COMPLETE

ERROR

;INHIBIT WRITE CHECK ?
s YES==BRANCH
;CLEAR THE RP11
: COMMAND=WRITE CHECK
;D0 THE WRITE CHECK
;WAIT FOR THE COMMAND TO FINISH
;STORE THE REGISTERS
;ERROR ?
;BR IF NOT
;REPORT THE WRITE CHECK ERROR

SEQ 0071

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD P11
T14
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

014346
014354
014362
014370
014376
014404
014410
014412
014420

113737
113737

014424

014430
014434
014440
014446
014452
014460
014462
014470
014474
014500
014504
014512
014514
014520
014522
014530
014532
014534

014540

014546
014550
014552
014554
014560
014562
014570
014574
014602
014604
014610
014614
014616
014620
014624

024114

5%:

024002

TST14A:

013737
013737
012737
005737

001272
001270
001266
001256
000017
001260

002512
002513
002510
002504
001204
001244

004737
012737
004737
032777

001254
001246
001314
024050
024502
014440
025654
000004

000005
022770
023664
023240

002502

001005
163737
005637
005037
004737

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

100000

001314
001314

2%:

164460

001314
000111
017254
000010

024614
024114
023452
016616

4%:

5%:

001114
164336

6%:
7%:

EXIT14:

EXIT14

;*TEST

;START THE READ
sWAIT FOR THE READ

PC,CONRDY
PC,SAVRP
#ERR,SRPCS

#SW05,aSwWR
4%

;REPORT THE ERROR

s INCREMENT THE RETRY COUNT

RETRY
RETRY,LRETRY

sRETRY LIMIT

110

RETRY

6%
#111,S1TEMB
PC,TYPERR

#SW03,aSwWR
7$

?E.INCADR
PC,RESLDR

$EOP

R R AR R R RN RN RN

:BR IF NOT
;REPORT UNSUCESSFUL RETRY
s CONTINUE
;COMING FROM A SUCESSFUL RETRY ?
:BR IF NOT
sRETRY COUNT MESSAGE NUMBER
;REPORT THE RETRY COUNT
;COMPARE THE DATA ?
:NO==BRANCH
;YES==DO IT
: INCREMENT THE DISK ADDRESS
s CONTINUE
;LOOP ?
;RESTORE THE LOADER IF IT WAS MOVED
;GO TO END OF TEST

POWER FAIL

:BR IF NOT
;DISPLAY ALL RETRY ATTEMPTS
:BR IF NOT

PC,DATCHP

SCOPE
JSR
JMP

TO COMPLETE

;STORE THE REGISTERS
sERROR ?
:BR IF NOT
sRETRY ATTEMPT

BNE
JSR

:LOAD READ COMMAND

PC.RP11

BIT

;GENERATE A BUFFER ADDRESS
;LOOP ON ERROR ADDRESS
;CLEAR THE RP11
sINHIBIT READ DATA AND SOF TWARE COMPARE ?
s YES==BRANCH

#RDSEK ,DPB+2

BEQ
ERROR
INC
CMP
BLOS
ERROR
BR
TST
BEQ
MovB
JSR

JSR
BR

sSELECT A PATTERN

#5W02,aSWR

BIT

3%:

sSTARTING CYLINDER
sINITIAL WORD COUNT
sPRESET PATTERN NUMBER
;USING AN OPERATOR SPECIFIED PATTERN
:BR IF YES
;DECREMENT THE SECTOR COUNT FOR
;THE FIRST OPERATION
sCLEAR THE RETRY COUNTER

PC,CLRP

BIT
BEQ
TST
BEQ

164410

;STARTING SECTOR

PAKSIZ+2
RETRY
PC,PATSEL
PC,GETBUF
#2%,SLPERR

JSR
BIT
BNE

SEQ 0072

sSTARTING TRACK

BLKS14,PAKSIZ

MoV

PAGE 73

;BEING TESTED

SSEC,$SEC
STRK,$TRK
SCYL,SCYL
WwC14,8WC
#15. ,PATNUM
OPRSEL
1%

MOVB
JSR
JSR
JSR

001340

001316

PC,SECNBR

TST
BNE
SuB
SBC
CLR
JSR
JSR

14:43

s INCREMENT THE ADDRESS
s CONTINUE
;GET NUMBER OF SECTORS ON THE DRIVE

PC,INCADR

MOV

001314
000040

JSR
BR
JSR
MOvB
MOovB
MOV
MOV

1%:

001110

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

R RN AR RN

AR RRRRRRRRARRRRRRRRRRRERRRRN

TEST

;*TEST THE ABILITY OF THE RP11E TO SENSE POWER FAILURE AND FOR THE DRIVES
WHEN POWER IS TURNED ON AGAIN
;*TO RETRACT THEIR HEADS.
;*THE CYLINDER ADDRESS IS TESTED FOR ZERO.
AFTER TYPING THE MESSAGE
;*REQUESTING POWER TO BE TURNED OFF, THE PROGRAM GOES INTO A LOOP

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
115
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 74

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
;*TO MEMORY WHILE POWER WAS GOING DOWN.
R

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

001432

001276

015372
014736
014630
000015

001110
001106
001102

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

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

004737
104401

012737
012737
004737
013701

001210
002512
000256
001240
000003
022770
023664
023240
100000

027456
025654

000005
022770

ARARl

TST15:

001176

BITS#<$TN*2> ,TSTNMS
;IS THIS TEST SELECTED
.46
;BR IF YES
TST16
;GO TO THE NEXT TEST
#TEST15,SLPERR
;SETUP THE ERROR LOOP ADDRESS

Mov
Mov
MOV

STSTNM,aDISPLAY
#EXIT15,BYPASS
RPADR, R4

JSR
MoV
CLR
MmOV
JSR
MoV
MoV
MoV
Mov

PC.MOVLDR
(SP)+,LOMEM

MOV
MOV

164246

001200

CLRB
CLRB
TYPE

TEST15:

000024
000026
1%:

002510
002504
002506
002502

001110
001220

DPB+1
DPB+3
MSG15A

LOMEM+2
#STACK,SP
PC,CLRP

#TST15B,a#24
#PR7 ,a#26

LOMEM RO
#125252,(RO)+

;SETUP THE SCOPE LOOP ADDRESS
;SETUP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)
;LOAD THE TEST NUMBER
;SETUP BYPASS ADDRESS
:RP11E BUS ADDRESS

INTO THE DISPLAY REGISTER

sCLEAR ANY EXTENDED MEMORY BITS
;CLEAR "MODE' & 'HDR' BITS
: 'POWER FAIL TEST'

;MOVE THE LOADER
sBUFFER STARTING ADDRESS
;CLEAR THE UPPER BITS JUST TO BE NICE
;SETUP THE STACK POINTER
;CLEAR THE RP11
;SET UP POWER FAIL VECTOR
sLOCKOUT INTERRUPTS
;START OF FREE MEMORY SPACE
;FILL MEMORY WITH CHECKERBOARD

;PATTERN
:BR IF NOT FINISHED

PC.RP11
PC,CONRDY

;START THE COMMAND
sWAIT FOR THE CONTROLLER TO BE READY

BIT
BEQ
ERROR

#ERR,SRPCS
2%
&

;ERROR DURING OPERATION ?
;BR IF NOT
;REPORT THE ERROR

JSR
JSR
BR

PC.RP11
PC,CONRDY
3s

sINITIATE THE READ
;WAIT FOR CONTROLLER READY
:LOOP, READING THE DISK

JSR

28:
3s:

#TST15,8LPADR
#15,8TSTNM

RO,MEMSIZ
1%

JSR
JSR

001340

002502

CmP
BLOS

Mov
CLR
MoV
MOV
MovB

023664

022566
027652
015122
002500
023202

BIT
BNE
JMP
MoV

TYPE
JSR
MOovB

MAXCYL,SCYL
$SEC
#256,8WC
LOMEM, $BUF
#URTSEK,DPB+2

PC,SAVRP

.MSG158
PC,CLRP
#RDSEK ,DPB+2

sLOAD MAXIMUM CYLINDER
;CLEAR SECTOR/TRACK
;WORD COUNT = 1 SECTOR
;BUFFER ADDRESS
;WRITE OPERATION

;STORE

THE REGISTERS

:"TURN CPU POWER OFF AFTER MESSAGE'
;CLEAR THE RP11
:READ COMMAND

JAFTER MACHINE

IS POWERED DOWN AND UP,

TST15A:

PC,RPINIT

;INITIALZIE THE RP11E

#2500, STALLT
PC,STALL

sLOAD STALL VALUE
;STALL FOR 2500 MILLISECONDS

1%:

JSR

TYPE
Mov

,MSG15D
#18,SLPERR

MoV

CHKDRV,R1

MOV
JSR

CONTROL

TRANSFERRED HERE.

: 'PROGRAM WILL LOOP, WAITING FOR DRIVE
;SETUP LOOP ON ERROR ADDRESS

:DRIVE

ADDRESS

TO COME ONLINE'

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W T EST
CZRPYD PN
T15
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
113764
004737
005737
001404
012737
104063

012737
013700
022720
001004
020037
001372
000414
012737
016037
010037

022666
001370

162737
104064
104401

000004
004737
000137

000005

015216

001164

125252

2%:

PC,DRVINT

BGT
ERROR
BR

112

001124
001126

023452
003676

#38 ,SESCAPE

SEQ 0074

;CHECK THE DRIVE'S STATUS
;1S THE DRIVE ONLINE ?
;CONTINUE WAITING FOR DRIVE TO COME ONLINE
;BR IF IT IS ONLINE
;DRIVE UNSAFE AFTER POWER FAIL
;DRIVE UNSAFE, EXIT

LOMEM,RO

;125252.(R0)0
RO,MEMSIZ
4%
6%
#125252 ,$GDDAT

=2(RO) ,$BDDAT

RO,$BDADR
#2,$BDADR

SuB
ERROR

MSG15C

TYPE

SCOPE
JSR
JMP

sBR IF

IT DID

: ;ESCAPE TO 38 ON ERROR

;DRIVE DID NOT RETURN TO CYLINDER 0

;ON POWER FAILURE

#63% ,SESCAPE

Mov
MoV
MOV

6%:
EXIT1S:

PAGE 75

CHKDRV,RPCS+1(R4)
;SELECT THE DRIVE
sSTORE THE REGISTERS
$SUCA
sSELECTED CYLINDER SHOULD BE ZERO

CMP
BNE
CMP
BNE
BR

5%:

14:43

PC,SAVRP

MOV
MOV

001122

027617

EXIT1S

ERROR

4%:

TEST

6
22-APR-78

Mov

3s:

DRVSTA(RY)
1%

MOVB
JSR
TST
BEQ

001302
125252
177776
001122
000002

JSR

TSTB
BEQ

001176
023240
001354

015276
001240

30A(1052)

POWER FAIL

104112

000446

MACY11

PC,RESLDR

START2

:;ESCAPE TO 6% ON ERROR
;BUFFER ADDRESS
;DID MEMORY RETAIN PATTERN ON POWER FAIL ?
;BRANCH IF NOT
;END OF MEMORY ?
;BR IF NOT
JEXIT
;EXPECTED MEMORY CONTENTS
sACTUAL MEMORY CONTENTS

s ADDRESS
s CORRECT IT
sCONTENTS OF MEMORY CHANGED AFTER POWER FAIL

;'END OF POWER FAIL TEST'
;LOOP ?
sRESTORE THE LOADER
sRETURN TO 'CONVERSATION MODE' ENTRANCE

;POWER FAIL TRAP HANDLER
015314
015322

012737
000774

015324

000024

TST158: MOV
BR

#TST15C,a#24
TST158

;SET UP POWER UP VECTOR
;LOOP

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

#26,a024

an2é

MoV

#STACK,SP

CLR

001220

JSR

MOV

;*TEST 16

sCATCHER HALT
;SETUP STACK POINTER

;RETURN TO PRIORITY ZERO

PC,STALL
PC,STKINT
RPADR,
R4

;RP11E ADDRESS

TST15A

TRAP CATCHER

#5000.,STALLT

MoV
JSR

sRESTORE

sLOAD STALL VALUE
;STALL FOR 5000. MILLISECONDS
;INITIALIZE THE TTY KEYBOARD
;VERIFY POWER DOWN SEQUENCE

22222222

HEAD ALIGNMENT ROUTINE

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

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

015372
015372
015400
015402
015406
015414
015422

033737
001002
000137
012737
012737
012737

001434

001276

015624
015460
015372
000016

001110
001106
001102

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

013777
012737
013704
105037
105037
012706
104401
000410
032777
001774
032777
001374
104401
104411
012601
004037

001102
015620
001324
002501
002503
001100
027743

163504
001200

000200

163440

000200

163430

3746
3747
3748

015532
015534
015540

3744
3745

3749
3750
3751
3752
3753

3754
3755
3756
3757
3758
3759
3760
3761
3762
3763

015526
015530

015542
015546
015554
015556
015564

015566
015574
015602
015606
015612
015616
015620
015622

015512
015534

015512
122702
101764

110237
136237
001004
012737
000403

012737
112737
004737
004737
004737
000725
000000
000776

030255
027136

000024
002513
001360

001304

000111

002510

000222
000011
025654
022770
023546

002510
002502

1ST16:

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

BIT
BNE
JMP
MOV
MOV
MOV

MoV
MOV
MOV
CLRB
CLRB
TEST16: MOV
TYPE
BR
18:
BIT
BEQ
2%:
BIT
BNE
38:
TYPE
ROLIN
MOV
JSR

33
4s
3s
4$:
CMPB
BLOS
MOVB
BITB
BNE
MOV
BR
58:
MOV
6$:
MOVB
JSR
JSR
JSR
BR
EXIT16: HALT
BR

14:43

PAGE 76

BITS+<STN*2>,TSTNMS
;IS THIS TEST SELECTED
.+6
:BR IF YES
TST17
:GO TO THE NEXT TEST
#TEST16,8LPERR
:SETUP THE ERROR LOOP ADDRESS
#1ST16,8LPADR
:SETUP THE SCOPE LOOP ADDRESS
#16,8TSTNM
*SETUP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)
STSTNM,aDISPLAY
~;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
FEXIT16,BYPASS
;SETUP BYPASS ADDRESS
RPADR , R4
: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
*SWITCH 7 SET ?
18
:BR IF NOT
#SW07,aSWR
*SWITCH 7 RESET ?
2%
:BR IF NOT
,MSG16B
:'ENTER HEAD ADDRESS (IN OCTAL)'
:GET THE ENTRY
(SP)+,R1
:STARTING ADDRESS OF INPUT ASCII STRING
RO, CK.NUM
:CHECK THE NUMBER
:ILLEGAL INPUT
:TERMINATED WITH A

*CR'
INO ENTRY = 'CR® ONLY
SVALID ?
:BR IF NOT

#20.,R2
3%
R2,STRK
:LOAD NEW HEAD ADDRESS
ATABIT(R2),DRVTYP
;RPO2 OR RPO3 ?
53
:BR IF RPO3
#73.,8CYL
:RP02 ALIGNMENT CYLINDER
13
: CONTINUE
#146.,8CYL
:RP0O3 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
18
:WAIT FOR SWITCH 7 TO BE TOGGLED
:'EXIT' FOR COMPATABILITY WITH OTHER TESTS
=2
:LOCK THE HALT

3764

;."t't"iii"i""tt""""""t"t'""".tttt""'t't"ttttt'i

;;22

SHTEST 17

3767
3768

;*THIS TEST TEST THE 'ENABLE/DISABLE' AND "READ ONLY' SWITCHES ON
:*THE DRIVE CONTROL PANEL AND TESTS THE 'WRITE LOCKOUT' AND ‘LOA"

g;gg

:«SWITCHES ON THE RP11E/DRIVE CONTROL PANEL.

3771

3772
3773
3774
3775

RP11E/DRIVE CONTROL PANEL SWITCH TEST

,';tt't""""t"t't"""'""ti"i""'t'tt'..l.tt'i't""'t"'

015624
015624
015632
015634

033737
001002
000137

001436

016616

001276

1$T17:

BIT
BNE
JMP

BITS+<$TN+2>
, TSTNMS
;IS THIS TEST SELECTED
.+6
:BR If YES
IFSEOP
GO TO END OF TEST

SEQ 0075

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

3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
g;gg

015640
015646
015654

012737
012737
012737

015716
015624
000017

001110
001106
001102

MoV
MOV
MOV

015662
015670
015676
015702
015706
015712
015716

013777
012737
013704
105037
105037
104401
012706

001102
016604
001324
002501
002503
030317
001100

163252
001200

MOV
MOV
MOV
CLRB
CLRB
TYPE
TEST17: MOV

g;gg
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

335?

015722
015726
015732

104401
104401
013746

015736
015740
015741
015742
015744
015752
015756
015764
015770
015776
016000

104403
001
001
104411
012737
004737
113764
004737
032737
001401
104065

015744
025654
001176

104401

030464

016002

016006

013746

016012
016014
016015
016016
016020
016026
016032
016040
016044
016052
016054

104403
001
001
104411
012737
004737
113764
004737
032737
001001
104066

030362
030441
001176

023240
040000

001110

016056
016062

104401
013746

016066
016070
016071
016072
016074

104403
001
001
104411
012737

3$:

001334
:

016020
025654
001176
023240
040000

001110

016074

S$:

000005
001334

030506
001176

001110

(2
cZi

;CHECK THE ENABLE/DISABLE SWITCH ON THE DRIVE
TYPE
TYPE
MOV

TYPOS
BYTE
BYTE
ROLIN
MOV
JSR
MOVB
JSR
BIT
BEQ
ERROR
TYPE

MOV

TYPOS
.BYTE
BYTE
ROLIN
MoV
JSR
MOVB
JSR
BIT
BNE
ERROR

;SETUP THE ERROR LOOP ADDRESS
;SETUP THE SCOPE LOOP ADDRESS
:SETUP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)
STSTNM,3DISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
#EXIT17,BYPASS
;SETUP BYPASS ADDRESS
RPADR,R&
:RP11E BUS ADDRESS
DPB+1
;CLEAR ANY EXTENDED MEMORY BITS
DPB+3
;CLEAR "MODE®' & 'HDR' BITS
JMSG17A
:"RP11E CONTROL PANEL SWITCH TEST®
#STACK,SP
:SETUP THE STACK POINTER

SEQ 0076

'
{
{
{
i
{
{
k
{
{
:

000005

001176

#TEST17,8LPERR
#TST17,8LPADR
#17,8TSTNM

2%:

ggg%

3824
3825
3826
3827
3828
3829
3830
3831

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

LMSG17B ;"TYPE A CR TO START TEST AFTER EACH SETUP'
,MSG17C
;"DISABLE DRIVE # '
CHKDRV,=(SP)
::SAVE CHKDRV FOR TYPEOUT
::TYPE DRIVE NUMBER
::6G0 TYPE--OCTAL ASCII
1
::TYPE 1 DIGIT(S)
1
::TYPE LEADING ZEROS
:WAIT FOR THE °'CR'
#3%,SLPERR
:CHANGE LOOP ON ERROR ADDRESS
PC,CLRP
:CLEAR THE RP11
CHKDRV,RPCS+1(R4)
;SELECT DRIVE

:
d
d
{
d
d
{
{
{
l
d

4
65

{
{
.
{

PC,SAVRP
#SUOL , SRPDS

,MSG17D

CHKDRV,=-(SP)

:SAVE THE RP11 REGISTERS
;1S THE UNIT ON LINE?

:BRANCH IF NOT
sSELECTED UNIT ON LINE WITH THE
:DRIVE DISABLED
: "ENABLE DRIVE # °*

{
{

::SAVE CHKDRV FOR TYPEOUT

:THE DRIVE ENABLED

;:TYPE DRIVE NUMBER
;:6G0 TYPE--OCTAL ASCII
1
::TYPE 1 DIGIT(S)
1
::TYPE LEADING ZEROS
:WAIT FOR THE °'CR'
#5%,SLPERR
;CHANGE THE LOOP ON ERROR ADDRESS
PC,CLRP
:CLEAR THE RP11
CHKDRV,RPCS+1(R4)
;RESELECT THE UNIT
PC,SAVRP
:SAVE THE RP11 REGISTERS
#SUOL ,SRPDS
:1S THE UNIT ON LINE?
RDSW
sBR IF ONLINE
,
66
:SELECTED UNIT NOT ON LINE WITH

{
d
{
'
{
{
{
{
{
{
{
d

;CHECK THE DRIVE'S WRITE LOCKOUT SWITCH

RDSW:

{
{
{
'
{
{
{
{

2%:

TYPE
MOV

TYPOS
BYTE
BYTE
ROLIN
MoV

LMSG17E
CHKDRV,=(SP)
1
1
#2%,SLPERR

:"SET READ ONLY ON DRIVE °*
::SAVE CHKDRV FOR TYPEOUT
::TYPE DRIVE NUMBER
::G0 TYPE--OCTAL ASCII
;:TYPE 1 DIGIT(S)
::TYPE LEADING ZEROS
:WAIT FOR 'CR'
;LOAD LOOP ON ERROR ADDRESS

;TEST THE SETTING OF WRITE LOCKOUT AND THE
;RPT1E CONTROL PANEL.
016206
016212
016214
016222
016226
016232
016240
016242

104401
104411
012737
005064
004737

016244
016252
016256
016264
016266

012764
004737
032737
001401

032737
001001

030577

WRSW:

016214
000012
023240
000400

001110

000002
023240
000400

000012

1%:

001334

TYPE
ROLIN

BIT

MOV

#2 ,RPCA(RG)

BNE
ERROR

104071

2%:

001334

104072

MSG176G
#18,SLPERR
RPCA(R4)
PC,SAVRP
#SUWP,SRPDS

MOV
CLR
JSR

JSR
BIT
BEQ
ERROR

2%
"

PC,SAVRP
#SUWP ,SRPDS

WRSW1
72

;CHECK THE CYLINDER "LOA'

016270
016274

012700

000002
030714

WRSW1:

MOV
TYPE

016300
016304
016306

104401
006200

031014

1%:

TYPE
ASR
Mov

016310
016312
016313
016314
016316

104403

104401

010046

003
001
006300
104411

TYPOS
.BYTE

.BYTE

ASL
ROLIN

#2,R0

MSG17H
MSG171

RO
RO,-(SP)

;"SET WRITE LOCKOUT * LETC
sWAIT FOR 'CR' FROM THE OPERATOR
s CHANGE LOOP ON ERROR ADDRESS
;CLEAR THE CYLINDER REGISTER
;SAVE THE RP11 REGISTERS
;1S SELECTED UNIT WRITE PROTECT SET ?
sBR IF SET
sSELECTED UNIT WRITE PROTECT SHOULD
sBE SET - RPCA EQUAL TO ZERO
;LOAD A 2 INTO RPCA
;SAVE THE RP11 REGISTERS
;1S SELECTED UNIT WRITE PROTECTED ?
;BR IF NOT PROTECTED
sSELECTED UNIT WRITE PROTECT IS SET

;WITH EQUAL TO 2.

SWITCHES

sINITIALIZE SWITCH PATTERN
;"SET FOLLOWING VALUES IN THE
:Egt%N?ER LOA SWITCHES'

:SETUP PATTERN FOR TYPOUT

;:SAVE RO FOR TYPEOUT

;sTYPE THE SWITCH VALUE

::G0 TYPE--OCTAL ASCII

ssTYPE 3 DIGIT(S)

;s TYPE LEADING ZEROS

sRESTORE THE PATTERN

°'LOA' SWITCHES ON THE

sWAIT FOR 'CR' FROM THE OPERATOR

;WITH DRIVE WRITE ENABLED

sSELECTED UNIT WRITE PROTECT SET

;SAVE THE RP11 REGISTERS
;1S SELECTED UNIT WRITE PROTECTED ?
;BR IF NOT

PC,SAVRP
#SUWP,SRPDS
WRSW

THE RP11

;RESELECT THE DRIVE

:CLEAR

CHKDRV,RPCS+1(R4)

PC,CLRP

;WAIT FOR 'CR’
sCHANGE THE LOOP ON ERROR ADDRESS

#4%,SLPERR

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

;:60 TYPE--OCTAL ASCII

1
1

BEQ
ERROR

;:TYPE DRIVE NUMBER

BIT

001334

s :SAVE CHKDRV FOR TYPEOUT

000005

;'SET READ/WRITE ON DRIVE

IT IS

025654
001176
023240
000400

001110

MSG17F
CHKDRV,~=(SP)

;BR IF

016150

.BYTE
.BYTE
ROLIN
MoV
JSR
MOVB
JSR

;SELECTED UNIT WRITE PROTECT DID
;NOT SET WITH READ ONLY SET

TYPOS

;SELECT THE DRIVE

004737
032737
001401
104070

TYPE

MOV

;SAVE THE RP11 REGISTERS
;1S SELECTED UNIT WRITE PROTECTED

113764

3s:

PC,SAVRP
#SUWP,SRPDS

012737
004737

030542
001176

BIT
BNE
ERROR

;CLEAR THE RP11

CHKDRV,RPCS+1(R4)

016150
016156
016162
016170
016174
016202
016204

001334

PC,CLRP

104403
001
001
104411

Mmove
JSR

dae

016142
016144
016145
016146

JSR

000005

104401
013746

001001
104067

025%54
001176
023240
000400

016132
016136

113764

czl
(w4

004737
032737

004737

SEQ 0077

016102
016106
016114
016120
016126
016130

0 —-W

3832
3833
3834
3835
3836
837
5838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854

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

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TES T
CZRPYD.P1
mn 7
22-APR-78 14:42

016446
016450
016451
016452
016454
016462
016466
016474
016476

1%:

104403
001

.BYTE
.BYTE

012737
004737
032737
001401
104075

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

104401

013746

000001

001176
oooo1e

001110

2%:

001334

3s:
001176
001176

031014
001176

104411

ROLIN
MOV
JSR

BIT
BEQ
ERROR
TST

BNE

MOV

($:

5%:

ASL

016550

001110

6$:

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

3s
75

CHKDRV
4%
#1,CHKDRV

: THROUGH HERE

THE

FIRST

TIME

EXIT17

sFINISHED WITH ADDRESSES ?
:BR IF FINISHED

CHKDRV,=(SP)

MSG171

.BYTE
.BYTE

1
1

265 SLPERR

DSBS

::TYPE 1 DIGIT(S)
::TYPE LEADING ZEROS
;WAIT FOR THE OPERATOR TO ENTER A 'CR'
;LOOP ON ERROR ADDRESS
;STORE THE RP11 REGISTERS
;1S THE SELECTED DRIVE WRITE PROTECTED ?
;BR IF NOT
;"SUWP' SET WHEN DRIVE LOA SWITCHES
;"EQUAL THE SELECTED DRIVE'

TYPE
MOV

ROLIN

::6G0 TYPE--OCTAL ASCII

:BR _IF NOT
;SET FOR DRIVE 1
s CONTINUE

BIT

BNE

s:TYPE SWITCH SETTING

CHKDRV
#B1T03, CHKDRV

TYPOS

001
001

012737

Move
TYPE
Mov
TYPOS

001

104411

MoV

000012
000005

MSG17)

000002
001176
031014
001176

016430
016436
016442

sSTART WITH DRIVE 0
;"RESET THE CYLINDER LOA SWITCHES
;'SET THE FOLLOWING VALUES IN THE DRIVE
:"LOA SWITCHES °*
#2 ,RPCA(RG)
sLOAD CYLINDER ADDRESS
CHKDRV ,RPCS+1(R4)
sSELECT THE FIRST DRIVE NUMBER
LMSG171
;'SET SWITCHES 10O '
CHKDRV,=(SP)
: :SAVE CHKDRV FOR TYPEOUT
CHKDRV

;SHIFT TEST ADDRESS

;'SET SWITCHES TO '
::SAVE CHKDRV FOR TYPEOUT

;:TYPE

SWITCH SETTING

::6G0 TYPE--OCTAL ASCII
::TYPE

;:TYPE

DIGIT(S)

LEADING ZEROS

;WALT FOR THE OPERATOR TO ENTER A (R’
s CHANGE ERROR LOOP ADDRESS

012764
113764
104401
013746

CLR
TYPE

016422

WRSW2:

001176
031037

104401

SWITCHES

005037

;1S PATTERN EXCEEDED?
;BRANCH IF NOT

016412
016416

'LOA"

sUPDATE TEST PATTERN

s CHECK DRIVE

RO
#B1T709,R0
1%

BIT
BEQ

ASL

001000

JSR
BIT
BEQ
ERROR

5%:

#2 ,RPCA(RG)
#48 ,SLPERR
PC,SAVRP
#SUWP ,SRPDS

001334

ADD
MOV

4$:

PC,SAVRP
#SUWP,SRPDS

3s:

JSR
BIT
BNE
ERROR

: CHANGE LOOP ON ERROR ADDRESS
;LOAD PATTERN INTO RPCA
;SAVE THE RP11 REGISTERS
;IS UNIT WRITE PROTECT SET ?
;BR IF SET
;UNIT WRITE PROTECT IS NOT SET
sRPCA EQUALS CONTENTS OF BOUNDARY
s SWITCHES
s INCREMENT CYLINDER ADDRESS
s CHANGE THE LOOP ON ERROR ADDRESS
:SAVE THE RP11 REGISTERS
;IS UNIT WRITE PROTECT SET ?
;BR IF NOT
;UNIT WRITE PROTECT IS SET WITH
sRPCA ONE GREATER THAN BOUNDARY
sSWITCH SETTINGS

000012
001110

#2% ,SLPERR
RO,RPCA(R4)

006300
032700
001733

001401
104074

001334

mov
MoV

016402
016404
016410

032737

000002
016356
023240
000400

2%:

062764
012737
004737

001110

SEQ 0078

016350
016356
016364
016370
016376
016400

001001
104073

016320
000012
023240
000400

14:43
PAGE 79
RPT1E/DRIVE CONTROL PANEL SWITCH TEST

012737
010064
004737
032737

22-APR-78

016320
016326
016332
016336
016344
016346

30A(1052)

3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901

MACY11

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

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD PN
T17
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
3971
3972

3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

016556
016562
016570
016572

004737
032737
001001

023240
000400

001334

016574

113764
000724
000004
104401
000137

001176

000005

016602
016604
016606
016612

JSR
BIT

PC,SAVRP
#SUWP,SRPDS

Move

CHKDRV,RPCS+1(R4)

BNE
ERROR

104113

031176
003676

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

7$:

BR
EXIT17: SCOPE
TYPE

JMP
.SBTTL
IR

END OF
R

7$
113

SEQ 0079

;STORE THE REGISTERS
;1S THE DRIVE WRITE PROTECTED ?

sBR IF IT IS
;'SUWP' NOT SET WHEN DRIVE LOA SWITCHES

; "GREATER THAN SELECTED DRIVE NUMBER

;SELECT THE NEXT DRIVE

;CONTINUE WITH THE TEST
;LOOP ?

MSG17K

;'END OF

START?

CONTROL PANEL

;RETURN TO THE

TEST - RETURN SWITCHES

°'CONVERSATION MODE'

PASS ROUTINE
R R

R R

R AR

R R R

RN R R AR

RRRR RN R

;*INCREMENT THE PASS NUMBER (SPASS)
s*INDICATE END-GCF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM
s*IF THERES A MONITOR GO TO IT
s*IF THERE ISN'T JUMP TO RESTART
016616
016616
016622

016644
016644
016650
016652
016656
016676
016676
016702
016704
016705
016706
016712

104401

000410

005737
001436
104401

000407
013746

104403
002

éigss:

001312

016660
gég7s:

001176

000
104401
000412

016714

016740
016740
016744
016746
016752
016756
016762
016766
016774
016776
017000
017002
017004
017006
017010
017014

013746

001112

005037
005037
005037
005237
042737
005327
000001
003027
012737
000001
016776
104401
000407

001112
001102
001162
001100
100000

017034
017034

104401

104402

$EOP:

016624

001100

,65%

;sTYPE

ASCIZ

STRING

64%

;:GET OVER THE ASCIZ

JASCIZ

<15><12><12>/END OF

PASS/

TST

a#DRVSEL

sANY DRIVES

BEQ
TYPE
BR
.ASCIZ

1%
L67%
66%
/ USING DRIVE/

sNO, BRANCH
;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

SELECTED

MOV
TYPOS

a#CHKDRV,~(SP)

;;SAVE @#CHKDRV FOR TYPEOUT
;:G0 TYPE--OCTAL ASCII

TYPE

,69%

.BYTE
.BYTE

2
0

3&29”

BR
.ASCIZ

68%
::GET OVER THE ASCIZ
/
ERRORS DETECTED=/
O#SERTTL,-(SP)

1%:

MoV
TYP0C
CLR

SFSERTTL

;;SAVE Q#SERTTL FOR TYPEOUT
;:60 TYPE--OCTAL ASCIICALL DIGITS)
;ZERO ERROR TOTAL

CLR

S$TIMES

;sIERO THE NUMBER OF ITERATIONS

CLR

STSTNM

INC
BIC
DEC
$SEOPCT: .WORD
BGT

$PASS
#100000,8PASS
(PC)+
1
$DOAGN

SENDCT:

017016
éi‘;’”’

017064

TYPE

MOV

.WORD
SEOPCT
TYPE
BR
JASCIZ

TYPE

(PC)+,a(PC)+

,65%
64%

ssTYPE 2 DIGIT(S)
;s SUPPRESS LEADING ZEROS
;s TYPE ASCIZ STRING

;:IlERO THE TEST NUMBER

;s INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
;:L00P?
::YES

s;RESTORE

COUNTER

ssTYPE ASCIZ STRING
::GET OVER THE ASCIZ

<15><12>/END OF

TEST/

LSENULL

:TYPE NULL CHARACTER

ENTRANCE

TO NORMAL'

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

4000

4001

4002
4003
4004
4005
4006
4007
4008
4009
4010

4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024

4025
4026
4027
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

30A(1052)

PASS ROUTINE

7
22-APR-78

14:43

PAGE 81

SEQ 0080

$GET42: MoV
BEQ

ar42 RO
$DOAGN

$ENDAD:

JSR
NOP
NOP
NOP

PC,(RO)

SRTNAD:
S$ENULL:

JMP
.WORD
.BYTE
.EVEN

a(PC)+

s sRETURN

-1.,-1,0

s sNULL CHARACTER STRING

.SBTTL

tt+t SUBROUTINES #ee

.SBTTL

ERROR HANDLER ROUTINE

$DOAGN:

377

MACY11

AR AL R

RESET

;sGET MONITOR ADDRESS
2 BRANCH IF NO MONITOR
;:CLEAR THE WORLD
;:G0 TO MONITOR

;s SAVE ROOM

;:FOR

s.ACTI
RESTART

ARl

;*THIS ROUTINE WILL

INCREMENT

THE

ERROR FLAG AND

THE

22222

ERROR COUNT,

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
s*AND GO TO TYPERR ON ERROR
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

;*SW15=1
;*SW13=1
;*SW10=1

;*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
104401

$ERROR:

001103

001102
002000

001166
001112
001116
000002

161752
020000

162034
162024

161746

032777
001402
013716
005737

001000
001110
001164

3s:
4%:

ITEM NUMBER

;:TEST FOR CHANGE IN SOFT-SWR

SERFLG
;:SET THE ERROR FLAG
7%
;:DON'T LET THE FLAG GO TO ZERO
STSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

INC

SERTTL
:ngézgggPC

.SBELL

::RING BELL

ASERRPC,$1TEMB

;:STRIP AND SAVE THE ERROR ITEM CODE

208

::SKIP TYPEOUTS

TYPE

BIT

2%:

; ;ERROR=EMT AND N=ERROR

;;BELL ON ERROR?

SuB

20%:

#BIT10,aSwWR

MOVB

161764

ERROR
ERROR TYPEOUTS
ERROR
ERROR

BIT
BEQ

Mov

001116
001114

161732

CKSWR
INCB
BEQ

MOV

1%:

017254
001172

005777

100002
000000
104407

7%:

ERROR

HALT ON
INHIBIT
BELL ON
LOOP ON

BNE
JSR
TYPE
TST
BPL
HALT
CKSWR

BIT

BEQ

MoV

TST

#BIT13,aSWR

;:NO = SKIP

;:COUNT THE NUMBER OF ERRORS
;:GET ADDRESS OF ERROR INSTRUCTION
::SKIP TYPEOUT

SET

PC,TYPERR

::G0 TO USER ERROR ROUTINE

aSWR

;:HALT ON ERROR

#B1T09,aSWR
3
SLPERR, (SP)
SESCAPE

::LOOP ON ERROR SWITCH SET?
::BR IF NO
::FUDGE RETURN FOR LOOPING
:sCHECK FOR AN ESCAPE ADDRESS

.SCRLF

::SKIP IF CONTINUE
::HALT ON ERROR!
::TEST FOR CHANGE IN SOFT-SWR

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
4102
4103
4104
4105
4106
4107
4108
4109
4110
a1

017220
017222
017226
017226
017234
017236
017240
017240
017246
017250
017252

001402

013716

001164

022737
001001
000000

017050

000042

023737

000042

000046

001001
000000
000002

5$:

6%:

128%:
AR AR

7
22-APR-78

14:43

PAGE 82

SEQ 0081

;:BR IF NONE
;:sFUDGE RETURN ADDRESS FOR ESCAPE

CMP
BNE
HALT

#SENDAD ,a#42
6%

s sACT=11 AUTO-ACCEPT?
: ;BRANCH IF NO
;s YES

CMP
BNE

anL2 anu6

BEQ
MoV

$ESCAPE, (SP)

HALT
RTI

AR AR

;ACT11 AUTO MODE?

12%

:NO,

RETURN

sHALT ON ERROR
;RETURN

ARl iRttt

;THIS ROUTINE USES THE ''ITEM CONTROL BYTE'' (SITEMB)
;WHICH ERROR

TO BE

REPORTED,

THEN OBTAINS,

TO DETERMINE

FROM

THE

;TABLE'' (SERRTB), AND REPORTS THE APPROPIATE INFORMATION
;CONCERNING THE ERROR.

s CALL

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
001160
001102

161654

TYPERR:

001160

MOovB

CLR

001114

002514
017336

1%:

112003

005705

;"'EM'" POINTER GOES HERE

BEQ

0
(RO)+,48
5%

.SCRLF

;PICK UP DATA HEADER (DH) POINTER
;BRANCH IF NONE
;CARRIAGE RETURN-LINE FEED

:"'DH'" POINTER GOES HERE

4%:

108:

001440
112004
104401

3s
.SCRLF

MOV

BEQ
CLR

MOV
MoV

012002
001443
005105

001173

208

$TMPO
STSTNM,STMPO
RO
SITEMB,RO
RO
RO
RO
RO

:SAVE RO-R5
sINHIBIT TYPEOUTS ?
:BR IF YES
;CLEAR LOCATION FOR TEST NUMBER
;LOAD TEST NUMBER FOR TYPEOUT
;CLEAR RO FOR ERROR NUMBER
;ERROR NUMBER
;FORM INDEX FOR ERROR TABLE

TYPE

TYPE
TYPE
.WORD

012000

#SW13,aSWR

:FORM ADDRESS
;GET ERROR MESSAGE (EM) POINTER

TYPE
.WORD
MOV

5%:

PC,TYPERR

#SERRTB,RO
(RO)+,2%

2%:
3s:

001173

000000
012001
001447
005005

MOvB
DEC
ASL
ASL
ASL
ADD
MOV

BEQ

001173

017354

SAVREG
BIT
BNE
CLR

'‘ERROR

BEQ
COM

MOV

BEQ

MOvVB
TYPE

TST

(RO) +,R1

208

RS
(RO)+,RO
(RO)+,R2

208

RS
(RO)+,R3

208

(RO)+ R4

LSCRLF

;BRANCH IF THERE ISN'T ONE
;""CARRIAGE RETURN = LINE FEED

;PICKUP DATA TABLE (DT) POINTER
sBRANCH IF NONE
sSET INDENT SWITCH
:DATA FORMAT (DF) POINTER
:NUMBER OF DH'S TO TYPE
;BRANCH IF DH NUMBER IS 0
:NO INDENT
:NUMBER OF DATA WORDS TO TYPE
:BR IF NO WORDS TO TYPE
;AND HOW TO TYPE

sCR=LF
: INDENT ?

THEM

TMTM

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

6112
4113
6114
4115
4116
4117

4118
4119
4120
6121
6122
6123
4124
4125
4126
4127
4128
6129
4130
4131
4132
4133
4134
4135
4136

6137
4138
4139
4140

017410
017412
017416
017420
017422
017424
017426
017430

017430

017432
017434
017436

017440
017444
017446
017450
017452
017456
017460
017462
017466

017472
017474
017476

017500
017502

001002
104401
006004
103403
013146
104402
000402

027430

104405

13%:

104401
000764
005302

027430

104401
005105
001002
104401
012037
104401
000000
000736

001173

003413

4164

4165
4166
6167

138

MoV
TYPDS

a(R1)+,-(SP)

027430
017474

BR
DEC
BLE
TYPE
COM
BNE

11%

.SBTTL
PR AR

TYPE

AR A

N o ]

;:SAVE @(R1)+ FOR TYPEOUT
::G0 TYPE--DECIMAL ASCII WITH SIGN

;MORE NUMBERS

TO TYPE?

sNO==BRANCH
;YES==TYPE SEPARATORS
. LOOP

;MORE DH'S?

208
.SCRLF

;NO==BRANCH

;YES==START A NEW LINE
: INDENT?
:NO==BRANCH
;YES==TYPE SPACES
sGET NEXT DH
sAND TYPE IT
;DH POINTER GOES HERE
;LOOP

RS
15%

.BLNKS?2

(RO)+,16%
0
108

;RESTORE RO-R5
sRETURN

ROUTINE

AR AR AR AR

s*ROUTINE

SEQ 0082

::G0 TYPE=-~OCTAL ASCII(CALL DIGITS)

RESREG
RTS

PAGE 83

;:SAVE @(R1)+ FOR TYPEOUT

.BLNKS?2

.WORD
BR

20%:

000207

R3
14%

TYPE
Mov
TYPE

15%:
16%:

104413

DEC
BEQ

TYPE

14%:

4141
4142
4143
4144
4145
4146
4147
4148
4149

4150
4151
4152
4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163

12%
a(R1)+,-(SP)

MoV
TYPOC

013146

005303
001403

BCS

14:43

;BR IF NOT
sBLANKS
;OCTAL OR DECIMAL?
;DECIMAL-=BRANCH

.BLNKS2

ROR

12%:

22-APR-78

118

BNE
TYPE

11%:

TYPE

ASCIZ MESSAGE.

MESSAGE MUST

TERMINATE WITH A 0 BYTE.

s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

;*NOTE1:
;*NOTEZ2:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE3:
I

s*CALL:

;*1) USI NG A TRAP INSTRUCTION
;'
TYPE
+MESADR
;*0OR
;'

:;MESADR 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

000002

$TYPE:

1%:

2%:

608%:
3s:

TSTB
BPL
HALT

$TPFLG
1%

;1S THERE A TERMINAL?
;:BR IF YES

MOV
MoV
MovB

RO,=(SP)

s sLEAVE

BNE
TST

MoV
ADD
RTI

#82(SP)
RO

(RO)+,=(SP)
4%
(SP)+
(SP)+,RO
#2,(SP)

ssHALT HERE

NO TERMINAL

::SAVE RO
2:GET ADDRESS OF ASCIZ STRING
;sPUSH CHARACTER TO BE TYPED ONTO STACK
s:BR IF IT ISN'T THE TERMINATOR
s:1F TERMINATOR POP IT OFF THE STACK
;sRESTORE RO

;:ADJUST RETURN PC
; sRETURN

[

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

MACY11
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
TYPE ROUTINE
CZRPYD.PN
22-APR-78 14:42
4168
4169
4170
LN
4172
4173
4174
6175
4176
4177
4178
4179
4180
4181
4182
4183
4184

4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199

4200
4201
4202
4203
4204
4205
4206
4207

4208
4209
4210
4211
4212

4213

4214
4215

4216
4217
4218
4219
4220
4221
4222
4223

017542

017546
017550

017554
017556

017560

017562
017564
017570
017572
017576
017602
017604

017610
017614
017616
017622
017626

122716
001430

122716
001006
005726
104401
001173
105037
000755
004737
123726
001350
013746

001154

105366

000001

002770
004737
105337
000770

4%:

000011

000200

30A(1052)

CMPB
BEQ
CMPB
BNE
TST

017654
001156

5%:
6%:

7%:

017654
017720

7
22-APR-78

PAGE 84

SEQ 0083

;;BRANCH IF <HT>

#CRLF, (SP)

::BRANCH IF NOT <CRLF>

(SP)+

<CR><LF> EQUIV
;.POP
s TYPE A CR AND LF

SCHARCNT

;:CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
;1S IT TIME FOR FILLER CHARS.?
ss1F NO GO GET NEXT CHAR.
;sGET # OF FILLER CHARS. NEEDED
ssAND THE NULL CHAR.
;;DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
;260 TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;. LO0P

CLRB
BR
JSR
CMPB
BNE

14:43

#HT, (SP)

TYPE
SCRLF

017720

PC,STYPEC
S$FILLC,(SP)+

MOV

- (SP)
$NULL,

DECB
BLT
JSR
DECB
BR

1(SP)
6%

PC,STYPEC

SCHARCNT
7%

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

000040
017654
000007

161270

105777
100375
116677
122766

000002
000015

105037

017720

001003

000406
122766
001402

105227
000000

000207

017720

000012

8%:
9%:

$TYPEC:

161262

000002

1%:

MOVB
JSR
BITB

BNE
TST
BR

(SP)+

2%
as$TPS

TSTB

STYPEC

BPL
MOVB
CMPB
BNE
CLRB
5R
CmMPB

2(SP),asTPB

#CR,2(SP)
1%
SCHARCNT
STYPEX
#LF,2(SP)
STYPEX
(PC)+

BEQ
INCB

$CHARCNT: .WORD
$TYPEX: RTS

.SBTTL
R

'YHIS

;sREPLACE TAB WITH SPACE
;:TYPE A SPACE
s ;BRANCH IF NOT AT
;:TAB STOP
;:POP SPACE OFF STACK
::GET NEXT CHARACTER
;;WAIT UNTIL PRINTER IS READY

,(SP)

PC,STYPEC
#7,8CHARCNT
9%

BINARY TO OCTAL (ASCII)
R

ROUTINE

R R

IS USED

R R PR R

TO CHANGE

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;31S CHARACTER A CARRIAGE RETURN?
; :BRANCH IF NO
::YES;-CLEAR CHARACTER COUNT
ssEXI
::1S CHARACTER A LINE FEED?
:sBRANCH IF YES
;;COUNT THE CHARACTER
s sCHARACTER COUNT STORAGE

AND TYPE
RN

16-BIT

RN RN

BINARY

R RN RO R RO RO

NUMBER

TO A 6-DIGIT

;*OCTAL (ASCII) NUMBER AND TYPE IT.
:+$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

s*CALL:
MoV
:®
TYPOS
:®
.BYTE
:®
.BYTE
:®
:Q
:'

NUM,
=~ (SP)

; :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT
::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

;:M=1 0RO

;:1=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
CZRPYD PN
22-APR-78 14:42
BINARY TO OCTAL (ASCII) AND TYPE
4224
6225
4226
4227
4228

;*$STYPON===<=ENTER HERE
;*$TYPOS OR STYPOC

s*CALL:
.'t

6229

4230
4231
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270
4271
4272
4273
4274
4275

4276
4277
4278
4279

MoV
TYPON

14:43

PAGE 85

TO TYPE OUT WITH THE SAME PARAMETERS AS

NUM,
- (SP)

SEQ 0084
THE LAST

; :NUMBER TO BE TYPED
::CALL FOR TYPEOUT

E'STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

s*CALL:
M

017724
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

000000
000001
020151
000002
000001
000006
000005

020147

020147
020151
020146

020151

000006
020150
020147
000012

$TYPOS:

MoV
MOvB
MovB
ADD
BR
$TYPOC: MOvB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOovB
NEG
ADD
MOvB
MovB
MOV
1%:

2%:

3s:

020150
177770

005704

001403

005204
052703
052703

110337
104401
105337
003347
002402

005204
000744
012605
012604
012603
016666

4%:

000060
000040
020144
02014¢
020146

5%:
7%:

68%:

000002

000004

MoV
TYPOC

CLR

ROL

ROL
ROL
ROL
MoV
ROL

DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS

NUM,
- (SP)

: :NUMBER TO BE TYPED
;s CALL FOR TYPEOUT

a(SP) ,=(SP)
1(SP),SOFILL
(SP)+,SOMODE
+1
#2,(SP)
$STYPON
#1,80FILL
#6,30MODE
+1
#5,80CNT

;:PICKUP THE MODE
;:LOAD ZERO FILL SWITCH
: :NUMBER OF DIGITS TO TYPE
:;ADJUST RETURN ADDRESS

R4 ,=(SP)

;:SAVE R4

R3,-(SP)

R5,=(SP)
SOMODE+1,R4

R&
#6,R4
R4, SOMODE

SOFILL R4

12(SP) RS
R3
RS

RS
RS
RS
R5.R3
R3
$OMODE
7$
#177770,R3
4%

MoV
MOV
MOV
Mov

s sSAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE

;s SUBTRACT IT FOR MAX. ALLOWED
s:SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
: :ROTATE MSB INTO *‘C"
::G0 DO MSB
:;FORM THIS DIGIT

;:GET LSB OF THIS DIGIT

;s TYPE

THIS DIGIT?

;:BR IF NO
;:GET RID OF JUNK

::TEST FOR O
;s SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
ssMAKE

MOVB
TYPE

DECB
BGT
BLT
INC
BR

;sSET THE ZERO FILL SWITCH
;SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT
::SAVE R3

THIS DIGIT ASCII

ssMAKE ASCII IF NOT ALREADY
;sSAVE FOR TYPING
;:G0 TYPE THIS DIGIT
:;COUNT BY 1
;:BR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK
;:G0 DO THE LAST DIGIT

(SP)+ RS

;;RESTORE RS

(SP)+,R3
2(SP) ,4(SP)

;;RESTORE R3
;2SET THE STACK FOR RETURNING

(SP)+ R4

;;RESTORE R4

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
CZRPYD PN
22-APR-78 14:42
BINARY TO OCTAL (ASCII) AND TYPE

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

8%:

(SP)+,(SP)

MOV
RTI

.BYTE
.BYTE
.BYTE
.BYTE

$OCNT:
$OFILL:
$OMODE:

.WORD

.SBTTL

CONVERT BINARY

PAGE 86

SEQ 0085

; ;RETURN
;:STORAGE FOR ASCII DIGIT
;:TERMINATOR FOR TYPE ROUTINE
::OCTAL DIGIT COUNTER
sZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

COoOO0OoO

4280
4281
4282
4283
4284
4285
4286
4287
4288
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
4314
4315
4316
6317
4318
4319
4320
4321
4322
4323
6324

14:43

TO DECIMAL AND TYPE ROUTINE
R R

R R

PR R

R R R

RPN RN AR RN RN

AR R AR

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
;*REPLACED WITH SPACES.

s*CALL:

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

$TYPDS:

020200
000020
000055

000001

020366
000040

2%:

020356

3s:

060105
005702
001002

105716
100407
106316
103003
116663

052702
052702
110223

005720
020027
002746
003002
010502

1%:

48:

5%:
000001
000060
000040

000010

177777

6%:
7%:

MOV

NUM,
- (SP)

::PUT THE BINARY NUMBER ON THE STACK
;.60 TO THE ROUTINE

MOV
MOV
MoV
MOV
MoV
MOV
MOV
BPL
NEG
MOVB
CLR
MOV
MOVB

RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
;;PUSH R2 ON STACK

TYPDS

CLR

MOV

SuB

BLT
INC
BR
ADD
TST
BNE

RS5,=-(SP)
#20200,-(SP)

20(SP) ,RS

1%
RS

#'-,1(SP)

RO
#$DBLK ,R3
#' ,(R3)+
R2
$DTBL (RO) ,R1
R1.RS
4

MOVB

BIS
BIS

MOVB
TST
CMP

BLT
BGT

MOV

;sSET BLANK SWITCH AND SIGN
;;GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;sMAKE THE BINARY NUMBER POS.
ssMAKE THE ASCII NUMBER NEG.
;:ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
;sCLEAR THE BCD NUMBER
;5sGET THE CONSTANT

;:FORM

THIS BCD DIGIT

::BR IF DONE
;s INCREASE THE BCD DIGIT BY 1
2 ;ADD BACK THE CONSTANT

TSTB
BMI

ASLB
BCC

;:PUSH R3 ON STACK
;:PUSH RS ON STACK

1(SP),=1(R3)
#'0,R2
£ _R2
R2,(R3)+
(RO)+
RO,#10

;;CHECK IF BCD DIGIT=0
;:FALL THROUGH IF 0
;:STILL DOING LEADING 0'S?
;:BR IF YES
;sMSD?
;:BR IF NO
;YES==SET THE SIGN
;sMAKE

THE BCD DIGIT ASCII

ssMAKE IT A SPACE IF NOT ALREADY A DIGIT
;:PUT

THIS CHARACTER

IN THE

23 JUST INCREMENTING
;sCHECK THE TABLE INDEX
2:G0 DO THE NEXT DIGIT
::G0 TO EXIT
::GET THE LSD

OUTPUT BUFFER

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.P1
22-APR=-78 14:42
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
4336
4337
4338
4339
4340
4341
6342
6343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360

4361
4362
4363
4364
4365
4366
4367
4368
4369
4370
4371
4372
4373
4374
4375
4376
4377
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

020376
020400
020402
0<0404

000764
105726

100003
116663
105013
012605

012603
012602
012601
012600

104401
016666
012616
000002
023420

BR
TSTB
BPL
MOVB
CLRB
Mov
MoV

8%:
177777

020366
000002

177776

9s:

000004
$DTBL:

001750
000144
000012
000004

Mov
MOV
Mov
TYPE
MOV
Mov
RTI
10000.

$DBLK:

1000.
100.
10.
.BLKW

.SBTTL

TTY

SRR

AAAR

(SP)+,R2
(SP)+,R1
(SP)+,RO
.SDBLK
2(SP) ,4(SP)
(SP)+,(SP)

SEQ 0086

: ;GO0 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
;:NOW TYPE THE NUMBER
;;ADJUST THE STACK
;;RETURN TO USER

INPUT ROUTINE
AR A ARttt
sttt
ittt s)

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

000000
000000
000000
000012
020416

6%
(SP)+
9$
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3

PAGE 87

O
O
O
1 0.

;s sNUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
;sOUTPUT POINTER
::TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
;*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

TeCALL:

i
i
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
RE TURN

PC.STKINT

$TKINT: CLR

$TKCNT

;:CLEAR COUNT OF ITEMS IN QUEUE

TST

as$TKB

::CLEAR DONE FLAG

;:RETURN TO CALLER

MoV
MOV
MOV
MoV

MOV
RTS

;*TK

SERVICE

#$TKQSRT,STKQIN
$TKQIN,$TKQOUT
#$TKSRV,@#TKVEC
#200,a#TKVEC+2

#100,387KS

;;MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;:"'BR' LEVEL 4

s ;ENABLE

TTY KEYBOARD

INTERRUPT

ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING

;*IT IN THE QUEUE.

;*IF THE CHARACTER IS A "CONTROL=-C'' ( C) STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE '‘CONTROL=-C'' RESTART ADDRESS (START2)

020466
020472

117746

042716

160454
177600

$TKSRV: MOVB
BIC

a$TKB,-(SP)

# C177,(SP)

::PiCKUP THE CHARACTER

;:STRIP THE JUNK

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
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
4411
4412

4413
4414

4415
4416
4417
4418
4419
4420
4421
4422
4423
4424
4425
4426
4427
4428
4429
4430
4431
4432
4433
4434
4435
4436

4437
4438
4439
4440
4441
4442
4443

44l

4445

444b
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
021627
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

021604
020416
1%:

000176

001140

000012

020376

2%:

001166

000023

3s:

160352

31%:

160344
160340
177600

022737
001124
105777
100121
117746

020376
000140

32%:

000175
000040
177520
020400
020400

020416

020404

020400

042716
021627
001300

000176
160224
160220

177600
000007

START2
(SP) ,#7
2%

#SWREG, SWR

#10. ,$TKCNT

3s
.SBELL

TYPE
TST
BR

(SP)+

5%
(SP) ,#23
32%

Cme

BNE
CLR
TST

as$TKS
(SP)+
as$TKS
318
a$TKkB,~(SP)
# C177,(SP)
(SP)+, #21
318
#100,a387kS

T1STB

BPL

4%:

INC

CMP
BLT
CMP
BGT
BIC
MOVB
INC

CMP
BNE

5%:

001140

PAGE 88

SEQ 0087

; ;BRANCH IF NO
;:TYPE A CONTROL=-C ( C)
;:INIT THE KEYBOARD
;s CLEAN UP STACK
::CONTROL C RESTART
::IS IT A CONTROL G?
: ;BRANCH IF NO
;1S SOFT-SWR SELECTED?
::60 TO SWR CHANGE
;:1S THE QUEUE FULL?
; sBRANCH IF NO
;sRING THE TTY BELL
::CLE?N CHARACTER OFF OF STACK
s EXI
;IS IT A CONTROL-S?
;;BRANCH IF NO
;;DISABLE TTY KEYBOARD INTERRUPTS
;sCLEAN CHAR OFF STACK
;:WAIT FOR A CHAR
;;LOOP UNTIL ITS THERE
;:GET THE CHARACTER

;sMAKE IT 7-BIT ASCII
;IS IT A CONTROL=-Q?
;;BRANCH IF NO
s sREENABLE TTY KEYBOARD INTERRUPTS
; sRETURN
STKCNT
;s COUNT THIS CHARACTER
(SP),#140
;:1S IT UPPER CASE?
43
;;BRANCH IF YES
(SP),#175
;:1S IT A SPECIAL CHAR?
43
;;BRANCH IF YES
#40, (SP)
;sMAKE IT UPPER CASE
(SP)+,@8TKQIN
;sAND PUT IT IN QUEUE
$TKQIN
:;UPDATE THE POINTER
$TKQIN,#$TKQEND ::G0 OFF THE END?
5%
:;BRANCH IF NO
#STKQSRT,STKQIN ;sRESET THE POINTER
s sRETURN

MOV
RTI

MOV

RTI

020704
020712
020714
020720
020722
020726
020732
020736

LSCNTLC

PC,STKINT
(SP)+

CMP
BNE

14:43

;1S IT A CONTROL C?

BIC
CMP
BNE

160316

7
22-APR-78

(SP) ,#3

CmpP
BNE
TYPE
JSR
TST
JMP
CMpP
BNE
CMP
BEQ

MOVB

000021

000100

30A(1052)

INPUT ROUTINE

000003

003676
000007

MACY11

R R R R

R R

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

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
;*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
158
J2EXIT IF NOT
TSTB
BPL
MOVB
BIC
CMP
BNE

asTKS
15%
a$TKB,~(SP)
# C177,(SP)

(SP) ,#7
2%

::1S A CHAR WAITING?
s:1F WOT, EX1Y
::VES

;:MAKE IT 7-BIT ASCII
31S IT A CONTROL=G?
;s
1F NOT, PUT IT IN THE TTY QUEUE
;sAND EXIT

4502
4503

14:43

PAGE 89

SEQ 0088

c2!
(w4

021627
001015

000003

021074
021100
021102
021106
021112

021627
001005
062706
000737

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

062706
123727
001003
012777
000137

021604
000006
001135

000100
003676

160054

s.
:

::PICK UP CHAR

BIC

¥ C177,(SP)

;:MAKE IT 7-BIT ASCII

CMP
BNE

(SP) ,#3

(CMPB
BNE
Mov
JMP

#6,SP
M
SINTAG,.
8s
#100,3%7TKS
STARTZ2

5:IS IT A CONTROL=-C?
;;BRANCH IF NOT
;:YES, ECHO CONTROL=-C ¢ C)
;s CLEAN UP STACK
;;REENABLE TTY KEYBOARD INTERRUPTS?
s sBRANCH IF NO

CMP
BNE

(SP),#25
108

#6,SP
19%

TYPE
ADD

000001

a$TKB,~(SP)

;:THE NEW SWR

LSCNTLC

Sha

She

hamifamiifhae

021034
021040
021042
021046
021052
021060
021062
021070

MOvVB

:;CHAR THERE?
;:1F NOT TRY AGAIN

Sha

160116
177600

. SMNEW

=(SP)
=(SP)
a$TKS
7%

Sha

117746
042716

TSTB
BPL

- (SP)
SWREG,

;;ECHO THE CONTROL-G ( G)
;s TYPE CURRENT CONTENTS
;;SAVE SWREG FOR TYPEOUT
;:G0 TYPE--OCTAL ASCIIC(ALL DIGITS)
;;PROMPT FOR NEW SWR
:sCLEAR COUNTER

Sht

021024
021030

7%:

CLR
CLR

.SCNTLG
. SMSWR

Sha

160122

19%:

TYPE
TYPE
MoV
TYPOC
TYPE

;sALLOW TTY KEYBOARD INTERRUPTS
;;CONTROL=C RESTART

Snd

021634

005046
105777
100375

104401

$GTSWR:

021616
021623
000176

Gha

104402
104401
005046

001135

Sha

021006
021012
021014
021016
021022

013746

020416
160162
000001

;*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.
$AUTOB,
7
6$:
CMPB
;:ARE WE RUNNING IN AUTO-MODE?
BEQ
2%
;;BRANCH IF YES
(SP)+
TST
:;CLEAR CONTROL-G OFF STACK
PC,STKINT
JSR
::FLUSH THE TTY INPUT QUEUE
asTKS
CLR
;:DISABLE TTY KEYBOARD INTERRUPTS
MOvVB
#1,8INTAG
;:SET INTERRUPT MODE INDICATOR

and

104401
104401

000001

ARl sttt
tds]

hadha

020770
020774
021000
021004

112737

001134

Snd

123727
001674
005726
004737
005077

fha

020740
020746
020750
020752
020756
020762

AAA AR

Sha

Gand

4464
4465
4466
4467
4468
4469
4470
467
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501

INPUT ROUTINE

7
22-APR-78

Sha

4463

104401

000025

9%:

021611
000006

:
208

000015

10%:

000004

000002
000006
001173
001135

000001

000100

157760

017654
000060

160002

TYPE
ADD

CMP
BNE
TST
BEQ
MOV
ADD
TYPE
CMPB
BNE

MoV
RTI

JSR
CMP

BLT

LSCNTLU

(SP).,”5

16%
4(SP)
1%

2(SP) ,asSWR
#6,5P

.SCRLF

M
$INTAG,
15%
#100,387kS
PC,STYPEC
(SP),#60

18%

::IS IT A CONTROL-U?
: :BRANCH IF NOT
::YES, ECHO CONTROL-U ( U)
:: IGNORE PREVIOUS INPUT
;:LET'S TRY IT AGAIN
;:IS IT A <CR>»?
:;BRANCH IF NO
s:YES, IS IT THE FIRST CHAR?
;;BRANCH IF YES
:sSAVE NEW SWR
:sCLEAR UP STACK
::ECHO <CR> AND <LF>
s sRE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH IF NOT

;;RE-ENABLE
s sRETURN

TTY KBD

;;ECHO CHAR
::CHAR < 0?

;sBRANCH IF YES

INTERRUPTS

Sna

4460
4461
4462

30A(1052)

AMha

4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459

MACY11

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

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
CZRPYD PN
TTY INPUT ROUTINE
22-APR-78 14:42
4504
4505
4506
4507
4508
4509
4510
451N
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521
4522
4523
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

000067

TST
BEQ

000002
177776

17%:

001172

18%:

BR
TYPE
BR
LSB

R R A R

14:43

PAGE 90

SEQ 0089

;:CHAR > 7?7
s ;BRANCH IF YES
s:STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
s ;BRANCH IF YES
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
FOR NEW ONE.
ROOM
H
OF CHAR
COUNT
;sKEEP
;:SET IN NEW CHAR
;:GET THE NEXT ONE

2(SP)
17%
(SP)
(SP)
(SP)
2(SP)
=2(SP), (SP)
78
. SQUES
208

ASL
ASL
ASL
INC
BIS

.DSABL

22-APR-78

(SP) ,#67
188
#60, (SP)+

CMP
BGT
BIC

000060
000002

JsTYPE

?2<CR><LF>

s sSIMULATE CONTROL-U

RN R R

R R R

R R

R RN R AR AR

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

s*CALL:
o

RDCHR

RETURN HERE

-4

021246
021250
021256
021262
021264
021270
021272
021272
021276
021300
021304
021312
021316
021324
021326
021334

011646
016666
005066
005046
012746
000002

005737
001775
005337

117766
005237
023727
001003
012737
000002

021272

$RDCHR: MOV
MOV
CLR
CLR
MOV

020376

64%:
1%:

000004
000004

020376
177072
020402
020402
020404

000002

000004

020416
020402

(SP),-(SP)
4(SP),2(SP)
4(SP)
-(SP)
#6488 ,-(SP)

RTI

TST
BEQ
DEC
MOVB
INC
CMP
BNE

;:GET
;sPUT
;:PUT
;:POP

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

;:WAIT ON A CHARACTER
; ;DECREMENT THE COUNTER
::GET ONE CHARACTER
:;UPDATE THE POINTER

$TKQOUT ,#$TKQEND ;;DID IT GO OFF OF
2%
;;BRANCH IF NO
#S$TKQSRT,$TKQOUT

RTI

;:PUSH DOWN THE PC AND

;s THE PS

$TKCNT
1%
STKCNT
a$TKQOUT,4
(SP)
$TKQOUT

MOV

28:

::GET A CHARACTER FROM THE QUEUE
: ; CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

;;RESET

:;RETURN

THE

THE END?

POINTER

e 2223222222222

s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

e
:®
28

021336
021340
021342
021346
021352
021354
021356
021360
021364

010346
005046
012703
022703
101456
104410
112613
122713
001022

ROLIN
RETURN HERE

$SRDLIN: MOV

021572
021604

1$:

2%:

CLR
MoV

000177

108:

BLOS
RDCHR
MOVB
CMPB

CMP

BNE

R3,-(SP)

-(SP)
#STTYIN,R3

#STTYIN#10.,R3

(SP)+, (R3)
#177,(R3)

::INPUT A STRING FROM THE TTY
; :ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;s TERMINATOR WILL BE A BYTE OF ALL 0'S

;sSAVE R3
;sCLEAR THE RUBOUT KEY
;:GET ADDRESS
;sBUFFER FULL?
;:BR IF YES
;G0 READ ONE CHARACTER FROM THE TTY
:3GET CHARACTER
;218 IT A RUBOUT
;:BR IF NO

(2
CZl

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P11
TTY
INPUT ROUTINE
22-APR-78 14:42

4560
4561
4562
4563
6564
4565
4566
4567
4568
4569
4570
45N
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
4601
4602
4603
4604
4605
4606
4607
4608
4609
4610
4611
4612
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

000134
021570

021570

177777

6$%:

021572

021570
021570
5%:

112737
104401
005016
122713

000134
021570

104401
000726
122713
001011
105013
104401

021611

001003

TST
BNE

021570

000025

8%:

104401

001173
021572

104401

001172

4%:

021570
021570
000015

3%:

000717
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000012
041536
136
043536
015
036440
020040
020075
021646

000002
000004

9%:

005015
006525
005015
051412
000040
042516
000

.98

RI #STTYIN

43
(R3).,9%

BEQ

000
000012
000
051127

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
SMSWR:

.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
LASCIZ
.ASCIZ

020127

SMNEW:

LASCIZ

;:SET THE RUBOUT KEY
;:BACKUP BY ONE
s :STACK EMPTY?
;:BR IF YES
;sSETUP TO TYPEOUT THE DELETED CHAR.
;360 TYPE
;:G0 READ ANOTHER CHAR.
::;RUBOUT KEY SET?
IF NO

;sCLEAR THE RUBOUT KEY
s+1S CHARACTER A CTRL U?
;:BR IF NO

ssTYPE A CONTROL ‘U

::G0 START OVER

:s1S CHARACTER A "' R'TM?
s sBRANCH IF NO
;sCLEAR THE CHARACTER
ssTYPE A "'CR" & "'LF"

;sTYPE THE INPUT STRING
;360 PICKUP ANOTHER CHACTER
s:sTYPE A '

;sCLEAR THE BUFFER AND LOOP
;sECHO THE CHARACTER

TYPE
TST
MoV
MOV
MOV
MoV
RTI

PAGE 91

;sTYPE A BACK SLASH

TYPE
TYPE
BR
TYPE

MOVB
TYPE
CMPB

14:43

;:1S THIS THE FIRST RUBOUT?
;:BR IF NO
;:TYPE A BACK SLASH

;:BR

CLR
CMPB
BNE
TYPE
BR
CMPB
BNE
CLRB

BNE
CLRB

177777
001174

000004
021572

(SP)

MOvB
TYPE

7%:

000022

MOVB
TYPE
MOV
DEC
CMP
BLO
MOvB
TYPE
BR
TST

n7
22-APR-78

#15,(R3)+
28
=1(R3)

LSLF
(SP)+
(SP)+,R3
(SP) ,=(SP)
4(SP),2(SP)
#STTYIN,L(SP)

0
0
10.
/ C/<15><12>
/ U/<15<12>
/ 6/<15><12>
/

<15><12>/SWR = /

:;CHECK FOR RETURN
;:LOOP IF NOT RETURN
;;CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
;s CLEAN RUBOUT KEY FROM THE STACK

;;RESTORE R3
:;ADJUST THE STACK AND PUT ADDRESS OF THE
‘e

FIRST ASCII CHARACTER ON IT

;sRETURN
s :STORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR

;sRESERVE 10. BYTES FOR TTY INPUT
::CONTROL ''C"

::CONTROL ‘U
::CONTROL ''6"'

NEW =/

.EVEN

.SBTTL

SCOPE HANDLER ROUTINE

SRR AR

RN AR RN RRRERRRERRERRRRRRERRPRRRRRRRRRNRRNRRRARRRRRRRRRRRRR

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS.

IT WILL INCREMENT

SEQ 0090

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P11
22-APR=78 14:42
SCOPE HANDLER ROUTINE
4616
4617
4618
4619
4620
4621
4622
4623
4624

4625

021646

4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642
4643

021646
021650
021656

104407
032777
001101

021660

000416

021662
021666
021674
021700
021704
021706
021710
021714
021716
021716
021722
021724

013746
012737
005737
012637
000453
022626
012637
000413

000004
021706
177060
000004

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
4654
4655
4656
4657
4658
4659

021764
021766
021774
021776
022002
022004
022010
022016
022020

000415
032777
001011
005737
001406
005237
023737
002021
012737

4644

4650

4660
4661
4662
4663
4664
4665
4666
4667
4668
2ggg

4671

021732

021760

022026
022034
022040
022044
022050
022054
022062
022070
022074
022076

101015

005037

013737
105237
011637
011637
005037
112737
013777
013716
000002
000001

040000

157262

000004

001103

004000

157144

001104

000001

001104

022076
001102
001106
001110
001164
000001
001102
001106

001162

001115
157052

14:43

PAGE 92

SEQ 0091

CZR
CZR
5
5
5
5

$SCOPE :

CKSWR
::TEST FOR CHANGE IN SOFT-SWR
1%:
BIT
#BIT14,aSWR
::LOOP ON PRESENT TEST?
BNE
SOVER
;:YES IF SW14=1
MRARASTART OF CODE FOR THE XOR TESTER#####
$XTSTR: BR
6%
::1F RUNNING ON THE ‘‘XOR'* TESTER CHANGE
::THIS INSTRUCTION TO A "'NOP'* (NOP=240)
MOV
@#ERRVEC,-(SP)
;;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#58 ,3#ERRVEC
::SET FOR TIMEOUT
TST
ar177060
;:TIME OUT ON XOR?
MOV
(SP)+,@#ERRVEC
;;RESTORE THE ERROR VECTOR
BR
$SVLAD
::G0 TO THE NEXT TEST
5%
CHP
(SP)+,(SP)+
;:CLEAR THE STACK AFTER A TIME OUT
MOV
(SP)+,3#ERRVEC
;:;RESTORE THE ERROR VECTOR
BR
7%
::LOOP ON THE PRESENT TEST
6S:;#RRAREND OF CODE FOR THE XOR TESTERA####
28:
TSTB
SERFLG
::HAS AN ERROR OCCURRED?
BEQ
3s
::BR IF NO
CMPB
SERMAX,SERFLG
;:MAX. ERRORS FOR THIS TEST OCCURRED?
BHI

7$:

3$:

001100
001104
001162

22-APR-78

;*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:
s *SW14=1
LOOP ON TEST
;eSW11=1
INHIBIT ITERATIONS
;*SW09=1
LOOP ON ERROR
;*CALL
i
SCOPE
;:SCOPE=10T

48:

001162

18:

LSBTTL

::BR IF NO

$STIMES

::CLEAR THE NUMBER OF ITERATIONS TO MAKE

#BIT09,aswR
43
SLPERR,SLPADR
$OVER
SERFLG

BR
BIT
BNF
TST
BEQ
INC
CMP
BGE
MoV

18
#BIT11,aSWR
1%
$PASS
18
SICNT
$TIMES,SICNT
$OVER
#1,81CNT

CLR

MoV
INCB
MOV
MoV
CLR
MOVE
SOVER:
MOV
MoV
RTI
SMXCNT: 1
$SVLAD:

BIT
BEQ
MOV
BR
CLRB

SMXCNT,STIMES

::LOOP ON ERROR?
::BR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

5
5
3
5
5
5
5
5
5
5
5
5
5
3
5
5
5
5
3
5
5
5
3
3

::ZERO THE ERROR FLAG

5
3
5
3
3

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

5
5
3
3
5
3
3
3
3

;:SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
::SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS
SESCAPE
::CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
:;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM,ADISPLAY ;:DISPLAY TEST NUMBER
SLPADR, (SP)
::FUDGE RETURN ADDRESS
;:FIXES PS
S:MAX. NUMBER OF ITERATIONS
$TSTNM
(SP),SLPADR
(SP) ,SLPERR

SAVE AND RESTORE RO-RS ROUTINES

5
5
5
3
5
3
5
5
5
g

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
CZRPYD PN
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

AA AR

14:43

PAGE 93

SEQ 0092

ARl iRttt
it sdd]

;*SAVE RO-R5
s*CALL:
%

SAVREG

;'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
. %

LeTOP===(+16)

;% #2=-==(+18)

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

RO
R1
R2
R3
R4
RS
PS
PC
PS
PC

ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,=-(SP)
R4 ,=(SP)
R5,-(SP)

22(SP) ,=(SP)
22(SP),=(SP)
22(SP) ,=(SP)
22(SP) ,~(SP)

::PUSH
;:;PUSH
::PUSH
::PUSH
;:PUSH
::;PUSH
s :SAVE
::SAVE
;:SAVE
;sSAVE

MoV
Mov
MoV
MOV
MoV
MoV
MOV
MOV
MOV
MOV
RTI

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

: ;RESTORE PC OF CALL
: ;RESTORE PS OF CALL
: ;RESTORE PC OF MAIN FLOW
: ;RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
::POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
::POP STACK INTO R1
::POP STACK INTO RO

ROUTINE

TO SIZE MEMORY

MOV
MoV
MOV
MoV
MOV
MOV
MOV
Mmov
MOV
MoV
RTI

;*RESTORE RO-R5

s*CALL:
:.

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

$SRESREG:

.SBTTL
MR

RESREG

AR AR AR A

s*CALL:
;'

RETURN

]

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
;*SKT11

PC,$SIZE

:«SLSTAD WILL CONTAIN:
°

IS THE MEMORY MANAGEMENT KEY

CZRPY=D, RP11-E

CZRPYD.P1

MACY11 30A(1052)
ROUTINE TO SIZE MEMORY

FUNCTIONAL LOGIC & R/W TEST

22-APR-78 14:42

4728
4729
4730

4734
4735
4736
4737
4738
4739
4740

022174

010046

022176
022200
022202
022204
022210
022214

010146
010246
010346
013746
013746
010600

4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
4771
4772

022216
022220
022224
022230
022232
022234
022236
022244
022250
022256
022260
022264
022270
022276
022300
022304
022306
022312
022314
022322
022330
022332
022334
022340
022346
022352
022356
022362
022364
022366
022372
022374

104400
012637
012701
105727
000200
100062
012737
005737
052737
005046
012702
012703
012762
011622
062716
077307
012742
005042
012737
012737
000401
022626
005237
012737
005737
062712
023712
10137
011202
005037
000421
042737

4774
4775
4776
4777

022410
022412
022416
022422

005002
062701
062702
005711

4773

4778
4779
4780
4781
4782
4783

8
22-APR-78

14:43

PAGE 94

;*BITO7 = 0 DON'T USE MEMORY MANAGEMENT
:*
MUST BE SETUP BEFORE THE CALL
;*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION

2;;;

4733

022402

022424
022430
022432
022436

022442
(022444

012737

022701
001370
162701
162702

010006
012637

DETERMINED BY ROUTINE

$SIZE:

MOV

000004
000006

000006
003776

$KT11:
022374
177572
100000

172349
000010
077406

000004

022232

177740

18:

2%:
3s:
000004

177572

100000
022432
004000
000040

177776
004000
000040
000006

022232
000004

48:

THE STACK POINTER

MOV
MOV
MoV
MOV

#KIPARO,R2
# D8,R3
#77406,-40(R2)
(SP),(R2)+

;;YES--SET KT11 KEY
s INITIALIZE FOR ''PAR'" LOADING
: ;ADDRESS OF FIRST '‘PAR"
::LOAD EIGHT "PAR.'S'' AND EIGHT ''PDR.'S"’
;;PDR = 4K, UP, READ/WRITE
::LOAD "‘PAR"

R3,18
#177600,-(R2)
-(R2)

;;LOOP UNTIL ALL EIGHT ARE LOADED
;;SETUP KIPAR7 FOR 1/0
;:SETUP KIPAR6 FOR TESTING

;:THIS PDP=11 HAS A SR3 REGISTER
ssCLEAN OFF THE STACK==NO SR3
ssTURN ON MEMORY MANAGEMENT

SOB
MOV
CLR

000004
172516

R1 ON THE STACK
R2 ON THE STACK
R3 ON THE STACK
PRESENT ERROR VECTOR PS & PC

::PUSH OLD PSW AND PC ON STACK
(SP)+ a#ERRVEC+2
;s SAVE THE PSW IN Q@#ERRVEC+?
#3776.R1
::SETUP ADDRESS
(PC)+
:;USE MEMORY MANAGEMENT?
200
::SET TC USE MEMORY MANAGEMENT
$CORE
::BR _IF NO
#SKTNEX ,@#ERRVEC ;;SET FOR TIMEOUT
a#SRO
::KT11 ARE YOU THERE?

ADD

177600

177572
022364
143776
000040
172356

;:SAVE RO ON THE STACK

TRAP
Mov
Mov
TSTB
.WORD
BPL
MOV
TST

BIS
CLR

000200

022332
000020

RO,=(SP)

Mov
R1,=(SP)
;:SAVE
MoV
R2,=(SP)
:;SAVE
MOV
R3,-(SP)
::SAVE
MoV
@#ERRVEC,=(SP)
;;SAVE
MOV
@F#ERRVEC+2,-(SP)
MOV
SP,RO
;:SAVE
;:SET THE ERRVEC PS TO THE PRESENT PS

#100000,8KT11
=(SP)

#200, (SP)

MoV
MOV

#28% ,@FERRVEC
#20,3#SR3

CMP

(SP)+,(SP)+

INC

MOV

a#SRO

#SKTOUT ,@#ERRVEC

;;UPDATE FOR NEXT '‘PAR''

ssCATCH TIMEOUT IF NO SR3
;sENABLE 22 BIT MODE

;;SET FOR TIME OUuT

TST
ADD
CMP
BHI
$KTOUT: MOV
CLR
Br
SKTNEX: BIC
$CORE:
Mov
CLR
18:
ADD
ADD

ar143776
;s TRAP ON NON<-EX-MEM
#40,(R2)
;sMAKE A 1K STEP
afKIPAR7,(R2)
::LAST ONE?
43
;sNO==TRY IT
(R2) ,R2
s:GET LAST BANK+1
afSRO
ssTURN OFF MEMORY MANAGEMENT
$SIZEX
#100000,8KT11
;;KT11 NON-EXISTENT
#SCROUT,@#ERRVEC ;;SET FOR TIMEOUT
R2
::SET UP BANK
#4000,R1
: s INCREMENT BY 1K
#40,R2
;31K STEP

CHP
BNE
$CROUT: SuB
$SIZEX: SuB

#177776.R1
1%
#4000,R1
#40,R2

TST

MOV
MOV

(R1)

;:TRAP ON TIME OuT

::LAST ONE
;:NO==TRY AGAIN
; ;DROP BACK

RO,SP
;sRESTORE THE STACK
(SP)+ Q#ERRVEC+2 ;;RESTNRE ERROR VECTOR

SEQ 0093

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1 30A(1052)
CZRPYD. P11
ROUTINE TO SIZE MEMORY
22-APR-78 14:42

4784
4785
4786
4787
4788

4789
4790
&N

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

022450
022454
022460
022464
022466
022470
022472
022474
022476
022500

012637
010137
010237
012603
012602
012601
012600
000207

4834

4835
4836
4837
4838
4839

SLSTAD:
$LSTBK:
.SBTTL

22-APR-78

14:43

PAGE 95

Mov
MOV
MoV

(SP)+ ,a#ERRVEC
R1,SLSTAD
R2,$LSTBK

MoV
MoV

(SP)+,R1
(SP)+,RO

;:LAST ADDRESS
: :LAST BANK
;;RESTORE R3
;;RESTORE R2
;;RESTORE R1
:;RESTORE RO

0
O

; :CONTAINS THE LAST ADDRESS
:;CONTAINS THE LAST BANK

MOV
MOV

000000
000000

RTS

.WORD
.WORD

(SP)+,R3
(SP)+,R2

SEQ 0094

TRAP DECODER

MARAAEAAAARAARA

e ARt

'THIS KOUTINE WILL PICKUP THE LOWER BYTE OF
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE

THE ''TRAP'' INSTRUCTION
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

$TRAP:

000002

111000

006300
016000
000200

MOV

RO,=(SP)

;s SAVE

TST
MOovB

-(R0O)
(RO) ,RO

; :BACKUP BY 2
;:GET RIGHT BYTE OF TRAP

MOV
ASL

022536

MOV
RTS

2(SP) RO
RO

S$TRPAD(RO)
,RO
RO

::GET TRAP ADDRESS

;:POSITION FOR INDEXING
;;INDEX TO TABLE
;.60 TO ROUTINE

s:THIS IS USE TO HANDLE THE ''GETPRI' MACRO
022524
022526
022534

011646
016666
000002

000004

000002

$TRAP2:

MOV

MOV
RTI

.SBTTL

4819
4820
4821

4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833

000004
022476
022500

(SP) ,=(SP)

4&(SP) ,2(SP)

: :MOVE

THE PC DOWN

::MCVE THE PSW DOWN
:;RESTORE

THE

PSW

TRAP TABLE

s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE "'TRAP'' INSTRUCTION.

;

ROUTINE

$STRPAD: .WORD

STRAP2

022536
022540
022542
022544
022546
022550

022524
017504
017750
017724
017764
020152

022552

020774

SGTSWR

022554
022556
022560
022562
022564

020704
021246
021336
022100
022136

S$CKSWR
;;CALL=CKSWR
SRDCHR ; ; CALL=RDCHR
SROLIN
;;CALL=ROLIN
$SAVREG ;;CALL=SAVREG
SRESREG ;;CALL=RESREG

$STYPE
$TYPOC
$TYPOS
STYPON
STYPDS

;: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)

;;CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

TRAP+7(104407)
TEST FOR CHANGE IN SOF T-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) SAVE RO-RS5 ROUTINE
TRAP+13(104413) RESTORE RO-RS ROUTINE

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PN
TRAP TABLE
22-APR-78 14:42

4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892

4893
4894
4895

30A(1052)

E_8

22-APR-78

14:43

PAGE 96

SEQ 0095

;THIS ROUTINE CLEARS THE RP11 AND DETERMINES WHICH DRIVES ARE AVAILABLE.
;THE TABLE 'DRVSTA' IS LOADED TO REFLECT THE SYSTEM STATUS.
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

RPINIT:

001326

001332
001304
001370
001372
001374
001376
001324
000001

000001
000007
022666

SAVREG

Mov

CLR

MoV

CLR
CLR
CLR
CLR
CLR

000004
000004
1%:

100374
104413

Mov
Mov
MoV
MOV

JSR
DEC
BPL

RESREG
RTS

000207

:SAVE RO-RS

RPVEC,R1
(R1)+
RPPRIO, (R1)
DRVTYP
DRVSTA

sVECTOR ADDRESS
sSET INTERRUPT ADDRESS TO ZERO
;RP11 PRIORITY
sCLEAR DRIVE TYPE STORAGE
sSET DRIVE STATUS TO OFFLINE

DRVSTA+2
DRVSTA+4
DRVSTA+6
RPADR,R&

#CLEAR,RPCS(R4)
#CLEAR,RPCS(R4)

#7.R1

sSET
sSET
sSET
;PUT

DRIVE STATUS
DRIVE STATUS
DRIVE STATUS
RP11 ADDRESS

;CLEAR
;CLEAR

;"DRVSTA'

110164

032764
001404
112761
000417
032764
001422
032764
001004
032764
001412
112761

032764
001403
156137
000207

000005
001000

000000

177777

001370

040000

000000

004000

000000

100000

000000

000001
020000

001370
000000

001360

001304

sRETURN

;RESTORE RO-RS

BIT
BEQ
BIT
BNE
BIT
BEQ
MOovB
BIT
BEQ
BISB

#SUOL ,RPDS(R4)

4$:

RTS

4%
#SUSI RPDS(R4)

#SURDY ,RPDS(R&4)

104412
113764
005001
113701

004737
013746
005416
012664
013764
013764
013764
012737

002500

000005

RP11:

SAVREG

MOvVB

CLR
MOVB
JSR

002500
023120
002504

Mov

000006
002506
002510
002512
024000

MOV
MoV
MoV
MOV
MoV

NEG

000010
000012
000014
023116

DRIVE NUMBER MUST BE IN R1

;SELECT DRIVE
;SEE IF DRIVE UNSAFE
;BR IF NOT UNSAFE
;SET INDICATOR TO 'UNSAFE'

JEXIT

;IS DRIVE

ONLINE

;BR IF NOT
;SEEK INCOMPLETE SET

sBR IF SET
;IS DRIVE

READY

43
;BR IF NOT
#1,DRVSTA(R1)
;SET DRIVE INDICATOR TO °'ONLINE'
#SURPO3 ,RPDS(R4)
;IS THE DRIVE AN RPO3 ?
4%
;BR IF NOT
ATABIT(R1) ,DRVTYP
;SET RPO3 INDICATOR
PC
;RETURN

;D0 THE REQUESTED COMMAND.
022770
022772
023000
023002
023006
023012
023016
023020
023024
023032
023040
023046

AGAIN

INDEX

R1,RPCS+1(R4)
#SUFU,RPDS(R4)
1%
#-1,DRVSTA(R1)

2%:
3%:

TABLE

sCHECK THE DRIVE'S STATUS
sDECREMENT THE TABLE INDEX
;BR IF NOT FINISHED

DRVINT: MOvB
BIT
BEQ

MOvB
BR

RP11
RP11

PC,DRVINT
R1
1%

ROUTINE TO CHECK THE DRIVE'S STATUS.
022666
022672
022700
022702
022710
022712
022720
022722
022730
022732
022740
022742
022750
022756
022760
022766

THE
THE

TO OFFLINE
TO OFFLINE
TO OFFLINE
INTO R&

THE RP11

DPB,RPCS+1(R4)
R1

0PB,R1

PC,CIR

$WC,-(SP)
(SP)
(SP)+ RPWC(R4)
$BUF ,RPBA(R4)
SCYL,RPCA(R4)
$SEC,RPDA(R4)
#24000,2%

ADDRESS MUST BE

IN R4

;SAVE RO - RS

;SELECT THE DRIVE
;CLEAR R

;DRIVE ADDRESS
;SEE

DRIVE

IS READY

sCOMPLEMENT THE WORD COUNT
s COMPLEMENT
;LOAD THE WORD COUNT REGISTER
;BUFFER ADDRESS
;CYLINDER ADDRESS
;SECTOR/TRACK ADDRESS
;SET UP FOR....

E%::VBD$1?P11-E FUNCTIONAL LOGIC & R/W TEST

22-APR-78 14:42

YD.

4896
4897
4898
4899
4900
4901
4902
4903
4904
4905

4906

4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
917
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
4943
4944
4945
4946
4947
4948
4949
4950
4951

023054

005337

023060
023062
023070
023076
023102
023106
023112
023114
023116

001375
113764
153764

013746

153716
112664
104413
000207
000000

1%:

000005
000005

023146
023150
023152
023160
023162
023170
023174
023200

012737
004737
004737
105761

003014
002401

104076
104077

032777
001357
156137
000137
005037
000207

22-APR-78

14:43

PAGE 97

023152
022666
023240
001370

001164

001000

155760

001360

001310

DEC

BNE
MOVB

1%
DPB,RPCS+1(R4)

Jeee@5 MILLISECONDS.
;SELECT THE DRIVE

MOV
BISB

DPB+2,-(SP)
DPB+1, (SP)

s COMMAND CODE
;"MEX' BITS

2 aunhl LEAST

(SP)+,RPCS(R4)

;SET

"MODE' & 'HDR' BITS

;START THE COMMAND
JRESTORE RO - RS
;RETURN

IF DRIVE

IS STILL ONLINE

MOV
JSR
JSR

#2% ,SESCAPE
PC,DRVINT
PC,SAVRP

;:ESCAPE TO 2% ON ERROR
sCHECK ON THE DRIVE'S STATUS
;STORE RP11 REGISTERS IN CASE OF

BGT
BLT
ERROR

3%
1%
76

:BR IF IT IS
sBR IF DRIVE IS UNSAFE
sDRIVE HAS GONE OFFLINE

CIR:

TSTB

001164

s...A DELAY OF

DPB+3,RPCS+1(R4)

MOVB
RESREG
RTS

2$:

016616

SEQ 0096

BISB

sSEE
023120
023120
023126
023132
023136
023142
023144

30A(1052)

TRAP TABLE

023116
002500
002503
002502
002501
000004

MACY11

1%:

2$:

3%:

ERROR

DRVSTA(R1)

BIT

#5W09,aSWR

CLR

SESCAPE

BNE
BISB
JMP
RTS

THE DRIVE

sDRIVE

STILL ONLINE

ERROR

HAS BECOME UNSAFE

;LOOP ON THE ERROR ?

CIR
;BR IF LOOP
ATABIT(R1) ,DRVBAD
;SETUP TO DEASSIGN THE DRIVE
afSEOP
;GO TO THE END OF PASS ROUTINE

sCLEAR THE

sRETURN

'ESCAPE'

FLAG

:THIS ROUTINE WILL PROVIDE A STALL IN MILLISECLONDS FOR A SPECIFIC
;AMOUNT OF

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

18:

28:

3%:

TIME.

STALL VALUE

STORED

'STALLT'.

JSR

PC,STALL

MOV
CLR
SuB

STALLT,=(SP)
-(SP)
#1,2(SP)

;PICKUP THE STALL TIME
sCLEAR TEMP. LOCATION
sMORE STALL REQUIRED?

MOV

#300., (SP)

;STALL FOR ABOUT 1

DEC
g:f

(SP)
;:

BLO
TST

CMP

RTS

(SP)+,(SP)+

:NO==BRANCH

;NOP TO KILL TIME
: COUNT
:LOOP IF MORE

;CLEAN OFF

JEXIT

MILLISECOND

COUNTS NEEDED

THE STACK

sTHIS ROUTINE STORES THE RP11E REGISTERS FOR USE BY THE PROGRAM.
:THE PROGRAM DOES NOT USE THE 'LIVE' REGISTERS FOR ERROR DETERMINATION.
s CALL

023240
023242
023246
023254

010446
013704
016437
016437

001324
000000
000002

001334
001336

:
3

JSR
RETURN

PC,SAVRP

SAVRP:

MOV

R4 ,-(SP)

MOV
MoV
MoV

RPADR,R4
RPDS(R4),SRPDS
RPER(R4) ,SRPER

JSAVE R4

;RP11 ADDRESS
;STORE RPDS
;STORE RPER

4952
4953
4954
4955
4956

023262
023270
023276
023304
023312

016437
016437
016437
016437
016437

4960

023342

012604

4957
4958
4959

4325

023320
023326
023334

023344

016437
016437
016437

000004
000006
000010
000012
000014
000016
000024
000026

001340
001342
001344
001346
001350
001352
001354
001356

4966
4967
4968
4969

023346
023352
023354
023360
023364

105737
001005
012702
012701
000404

4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
2332

023372
023376
023402
023406
023410
023414
023416
023422
023426
023432
023434
02343¢
023440
023442
023450

012701
012703
005737
100402
013703
005046
016616
010166
005737
001006
014341
005302
001375
012737
000207

4970

023366

012702

000041
000144
044166

002734

023452
023454
023460
023462
023466
023470

4997

023502

5000
5001
5002
5003
5004
5005
5006
5007

MOV

(SP)+,Ré4

28:

022476

38:

000002
000002
001322

4$:

177777

001322

TO MOVE

14:43

;STORE
:STORE
:STORE
:STORE
:STORE

RPM1(R4),SRPM1
SUCA(R4),$SUCA
SILO(R4),$SILO

:STORE
:STORE
:STORE

*RETURN

PAGE 98

SEQ 0097

RPCS
RPWC
RPBA
RPCA
RPDA
RPM1
SUCA
SILO

:RESTORE R4

THE LOADER FROM HIGH MEMORY TO JUST ABOVE

THE PROGRAM

TSTB
BNE
MOV
MOV
BR

41
13
#100. ,R2
#BUFFER+200.,R1
2%

MOV
MOV
TST
BMI
MOV
CLR
MOV
MOV
ST
BNE
MOV
DEC
BNE
MOV
RTS

#BUFFER+3000.,R1°
;RELOCATE TO HERE (UPPER BOUNDARY)
#157776 ,R3
;TRY THIS UPPER MEMORY ADDRESS
$KT11
:MEMORY MANAGEMENT ?
3s
:BR IF YES
SLSTAD,R3
:USE ACTUAL HIGH ADDRESS
-(SP)
:CLEAR THE STACK
2(SP), (SP)
:MOVE THE RETURN ADDRESS DOWN THE STACK
R1,2(SP)
:BEGINNING ADDRESS OF BUFFER
LDRFLG
:LOADER ALREADY RELOCATED ?
5%
:BR IF YES
-(R3),=(R1)
:MOVE A WORD
R2
:COUNT IT
4$
:BR IF MORE TO GO
#-1,LDRFLG
:SET THE LOADER MOVED FLAG
PC
*RETURN

MOV

#1500. ,R2

;WHO LOADED THE PROGRAM
:BR IF NOT °'ABS"
:'ABS' LOADER SIZE
;RELOCATE TO HERE
(FINISH

:'XXDP' SIZE

;ROUTINE TO RELOCATE THE LOADER TO UPPER MEMORY

4989
4990
4991
4992
4993
499

4998
4999

18:

051546
157776
022232

23%;

4995
4996

MOVLDR:

22-APR-78

RPCS(R4),$RPCS
RPWC (R4),SRPWC
RPBA(R4),$SRPBA
RPCA(R4),SRPCA
RPDA(R4),$RPDA

RTS

;ROUTINE

MOV
MOV
MOV
MOV
MOV
MoV
MoV
MOV

000207

azgs

4964
4965

30A(1052)

023474
023500

104412
005737
001430
105737
001005
012702
012701
000404

023506
023512

012701
012703

023516
023522
023524
023530
023532
023534
023536
023542

001322

RESLDR:

000041
000144
044166

012702

002734

005737
100402
013703
014143
005302
001375
005037
104413

022232

05154¢
157776

022476

001322

18:
38:

48:

5%:

SAVREG
TST
BEQ
ISTB
BNE
MoV

:SAVE RO - RS
:LOADER MOVED ?
:BR IF NOT
:'ABS' LOADER
:BR IF NOT
:"ABS' LOADER SIZE

MOV
BR

LDRFLG
5$
41
18
#100. ,R2
#BUFFER+200.,R1
38

MOV
MOV

#BUFFER+3000.,R1°
;RELOCATE FROM HERE (UPPER BOUNDARY)
#157776 ,R3
:TRY THIS UPPER MEMORY ADDRESS

MOV

TST
BMI
MOV
MoV
DEC
BNE
CLR
RESREG

#1500. ,R2

$KT11
4$
SLSTAD,R3
-(R1),=(R3)
R2
48
LDRFLG

:RELOCATE FROM HERE
SFINISH

$'XXDP' SIZE

:MEMORY MANAGEMENT 2
:BR IF YES
:USE ACTUAL HIGH ADDRESS
:MOVE A WORD
:COUNT T
:BR IF MORE TO GO
:CLEAR THE LOADER MOVED FLAG
;RESTORE RO - RS

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

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
TRAP TABLE
CZRPYD PN
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
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063

023544

000207

RTS

30A(1052)

8
22-APR-78

14:43

PAGE 99

SE@ 0098

sRETURN

JROUTINE 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

001212

DRVRDY: BIT
BNE

MOV
CLR

#SURDY,RPDS(R4)

;BR

;BR IF NOT

TIMOUT,=(SP)
=(SP)
#1,2(SP)

000001

000002

1%:

000144
100000

000000

2%:

BIT

#SURDY ,RPDS(R4)

3%:

JSR

1%
PC,SAVRP
#48 ,SESCAPE

023240
023632
001164
000004
001000

001164

4%:

155270

155322
000004

5%:
6%:

SuB
BEQ

MoV

BNE
DEC
BNE
BR

MOV

ERROR
CLR

ADD
BIT

BNE
JMP
ADD
RTS

;DRIVE READY

#100., (SP)

IF READY

;WAIT TIME: APPROX 1 SEC
;CLEAR WORKING LOCATION
;ANY TIME LEFT IN WAIT LOOP

;VALUE FOR APPROX 1 MS
;DRIVE READY

5%
(SP)
2%

;BR IF READY
;COUNT SOME TIME
;BR IF NOT FINISHED

100
SESCAPE

;DRIVE TIMED OUT
;CLEAR THE 'ESCAPE'

#4,SP

#5W09,aSwWR
DRVRDY
@BYPASS
#4,SP
PC

;COUNT MAJOR TIME AGAIN
;STORE RP11 REGISTERS FOR ERROR MESSAGE
;;ESCAPE TO 4$ ON ERROR

;CORRECT

THE

FLAG

STACK POINTER

;LOOP ON THE ERROR ?

;LOOP IF SET
;GO THE °'BYPASS' ADDRESS
;CORRECT THE STACK POINTER
sRETURN

JROUTINE 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

001212

CONRDY: BIT
BNE

MOV

000001

000002

1%:

000144
000200

000004

2%:

005314

001372
000763
004737
012737
104101
005037

062706
032777
001336
000177
062706
000207

023240
023750
001164
00000¢
001000
155204
000004

001164

3%:
4%:

155152

5%:
6%:

CLR
SUB
BEQ
MOV

BIT
BNE

DEC
BNE
bip

JSR

MOV

ERROR
CLR

#RDY ,RPCS(R4)
6%
TIMOUT,-(SP)
=(SP)
#1,2(SP)

;BR IF NOT

sBR IF NOT FINISHED

#4835 ,SESCAPE

;:ESCAPE TO 4$ ON ERROR

#100., (SP)
#RDY ,RPCS(R4)
5%
(SP)
1%
PC,SAVRP

101
SESCAPE

ADD

#4,SP

ADD
RTS

¥4 ,SP
PC

BIT
BNE
JMP

;CONTROLLER READY ?
;BR IF READY
;WAIT TIME: APPROX 1 SEC
;CLEAR WORKING LOCATION
;ANY TIME LEFT IN WAIT LOOP

#5W09,aswR
CONRDY
@BYPASS

;VALUE FOR APPROX
;CONTROLLER READY
;BR IF READY
:COUNT SOME TIME

1 MS
?

:COUNT MAJOR TIME AGAIN
;STORE RP11 REGISTERS FOR ERROR MESSAGE

s CONTROLLER TIMED OuT
;CLEAR THE 'ESCAPE' FLAG
:CORRECT

THE

STACK POINTER

;CORRECT
sRETURN

THE

STACK POINTER

:LOOP ON THE ERROR ?
:BR IF LOOPING
;"BYPASS' THE TEST

JROUTINE TO DETERMINE THE NUMBER OF SECTORS ON THE DRIVE BEING TESTED
024002

010046

SECNBR: MOV

RO,=(SP)

:SAVE RO

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

wb
b

VN
NS WN—=O

i
o

w
i
bl

AN RN AN AV AN AN AV AV AV LV ]

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

024004
024012
024016
024020
024024
024032
024034
024040
024044
024046

012737
005037

005000
113700
136037
001404

006337
006137
012600
000207

117230
001246

002500
001360

001244

001244
001246

1%:

8
22-APR-78

14:43

PAGE

100

MoV
CLR

#40600. ,PAKSIZ
PAKSIZ+2

MOVB
BITB
BEQ

DPB,RO
;GET THE DRIVE NUMBER
ATABIT(RO) ,DRVTYP
;IS THE DRIVE AN RPO3 ?
1%
:BR IF NOT

CLR

001304

30A(1052)

ASL
ROL
MoV
RTS

sSTART WITH THE NUMBER OF SECTORS ON

;AN RPO2

;USE RO AS AN INDEX

PAKSIZ
PAKSIZ+2
(SP)+,RO

;DOUBLE THE SECTOR COUNT
;GET THE CARRY
;RESTORE RO

;RETURN

sROUTINE TO SELECT A PATTERN
024050
024052
024056
024064
024066
024072
024076
024100
024106
024110
024112

010046

005237
022737

001204
000020

005037
013700
006300
036037
001761
012600
000207

001204
001204

101002

001400

PATSEL: MOV
001204

1%:

2%:

001300

RTS
ROUTINE

024114
024120
024122
024126
024130
024134
024136
024144
024146
024154
024160
024164
024166
024174

024202
024206
024210
024214
024220
024224
024226
024232
024236
024242
024246
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

INC
CMP
BHI
CLR
MoV
ASL
BIT
BEQ
MOV

001260

001244
002504
001244

002504

001256
001254
001246

002504
001244

000012
002513
002512
002513
001252
000024

000024

INCREMENT

THE

DISK

:BR IF NOT
;START AT ZERO AGAIN
sSEE IF THE PATTERN IS IN USE
;CONVERT INTO A TABLE INDEX
;INUSE INDICATOR SET FOR THIS PATTERN ?
:BR IF NOT
;RESTORE RO

sRETURN
ADDRESS

INCADR:

TST

OPRSEL’

TST

PAKS1Z+2

TST

PAKSIZ

CMP
BHIS
Mov
SWAB
CLR

PAKSIZ,BLKS14
1%
PAKSIZ,SWC
$wi
PAKSIZ

BNE

BGT

001254

; INCREMENT THE PATTERN NUMBER
:NUMBER AT MAXIMUM

RETURN + 2 WHEN THE END OF THE PACK IS REACHED

001244

PATNUM
#16. ,PATNUM
2%
PATNUM
PATNUM,RO
RO
BITS(RO) ,PATTRN
1%
(SP)+,RO

:SAVE RO

001246

002512
001250
000012

RO,=-(SP)

BEQ

18:

2%:

MoV
SuB
SBC
CLR
MOVB

WwC14,8WC
BLKS14,PAKSIZ
PAKSIZ+2
-(SP)
$SEC, (SP)

CMPB
BLT
SuB
INCB
MOVB

(SP) ,#10.
38
#10.,(SP)
$TRK
(SP),$SEC

ADD

38:

Move
ADD

CMPB

BLT

suB

INCSEC, (SP)

$TRK, (SP)
INCTRK, (SP)

(SP),#20.

#20.,(SP)

sUSING AN OPERATOR SPECIFIED ADDRESS ?

;BR IF YES
;SECTORS LEFT ?
;BR IF AN UPPER COUNT
sLOWER COUNT AT ZERO ?
:BR IF IT IS
sENOUGH SECTORS LEFT FOR A FULL TRANSFER ?
;BR IF THERE ARE
sUSE THE RESIDUE COUNT FOR THIS TRANSFER
sCONVERT TO A WORD COUNT
sFORCE COUNT TO ZERO
;GO AND INCREMENT THE ADDRESS
sUSE THE STANDARD WORD COUNT
sDECREMENT THE TOTAL SECTORS AVAILABLE
;SUBTRACT ANY CARRY
:CLEAR THE STACK
sGET CURRENT SECTOR
sADD THE SECTOR INCREMENT
sEXCEED THE MAXIMUM ?
:BR IF NOT

;sCORRECT THE RESIDUE
;INCREMENT THE TRACK
sNEW SECTOR ADDRESS
;GET CURRENT TRACK VALUE
sADD THE TRACK INCREMENT
JEXCEED THE MAXIMUM ?
;BR IF NOT
;sCORRECT THE SIZE

SEQ 0099

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.P1
TRAP TABLE
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

002510
002513

062716
000207

000002

112637
000402

48:

5%:
6$:

INC
MOVB
BR
ADD
RTS

30A(1052)

8
22-APR-78

$CyL
(SP)+,$TRK
6%
#2,(SP)
PC

14:43

PAGE 101

SEQ 0100

s INCREMENT THE CYLINDER ADDRESS
;NEW TRACK ADDRESS
JEXIT
INCREMENT RETURN = AT END
;RETURN

JROUTINE TO SETUP A BUFFER WITH THE SEQUENTIAL HEADERS FOR CYLINDER 0
024304
024306
024312
024314
024316

024320
024322

024324
024330
024332
024334

104412
013701
005003
005021
005021
010321
005203
022703
001371

002506

TRACK 0

LODSEC:

SAVREG
Mov

$BUF ,R1

CLR

(R1)+

1%:

000012

104413

;SAVE RO - R5
;BUFFER ADDRESS
;SECTOR COUNTER

CLR
Mov
INC
CMP
BNE

(R1)+
R3,(R1)+
R3
#10.,R3
1%

sCYLINDER/TRACK WORD OF HEADER
;SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS
;FINISHED ?
:BR IF NOT

RTS

CLR

RESREG

000207

;UPPER WORD OF

HEADER

;RESTORE RO - RS

sRETURN

;FILL THE BUFFER WITH THE SECTOR ADDRESS (CONTAINED IN 'SSEC')
024336
024340

024342
024346
024350
024354
024360
024364
024366
024370
024372
024374

104412

295003
113703
001002
012703
013702
013701
010321
005302
001375
104413
000207

FILSEC:

002512
000012
002504
002506

SAVREG

CLR

BNE
MoV

1%
#10.,R3

Mov
DEC
BNE

R3,(R1)+
R2
2%

MOovB

1%:

2%:

MoV
Mov

RESREG
RTS

$SEC.R3
$WC,R2
$BUF ,R1

;STORE RO-R5

sCLEAR THE

INDEX

sSECTOR ADDRESS

;BR IF NOT SECTOR ZERO
;USE 10. AS VALUE FOR SECTOR ZERO
;WORD COUNT
;BUFFER START ADDRESS

sMOVE DATA INTO THE BUFFER
;DECREMENT THE COUNTER
;BR IF MORE TO DO
;RESTORE RO-R5
sRETURN

ROUTINE TO FILL THE BUFFER WITH THE TRACK ADDRESS
024376
024400
024404
024410
024412
024416
024422
024424
024426
024430

104412
012701

013702
005003
113711

062701
005302
001372

043657
002504

002513
000002

FILTRK:

1%:

104413
000207

SAVREG
MOV
MoV

CLR

MOvB

ADD
DEC
BNE
RESREG
RTS

#BUFFER+1,R1
$WC,R2

(CONTAINED IN 'S$TRK')

;STORE RO-R5
;BUFFER ADDRESS

;WORD COUNT

sCLEAR THE DATA STORAGE

#2.R1
R2
1%

: INCREMENT THE BUFFER POINTER
;DECREMENT THE COUNTER
;BR IF MORE TO DO
;RESTORE RO-R5

$TRK, (R1)

;MOVE

TRACK ADDRESS

INTO THE BUFFER

;RETURN

;THIS ROUTINE WILL MOVE THE 16 WORDS OF THE
;DESIRED PATTERN INTO THE DATA BUFFER.

024432
024434
024440
024442

104412

013700
006300
013701

001204

002506

SETBUF:

SAVREG
MoV
ASL
MOV

PATNUM,RO
RO
$BUF ,R1

:SAVE RO - RS
;GET THE PATTERN NUMBER
;CONVERT NUMBER TO INDEX
;FIRST ADDRESS

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
TRAP TABLE
CZRPYD L1
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
024456
024462
024464
024466
024470
024472
024474
024476
024500

013702
016003
012704
012321
005302
001403
005304
001767
000772

002504
001440
000020

1%:

2%:

3s:

104413
000207

MoV
MoV
MoV
Mov

DEC

30A(1052)

8
22-APR-78

PAT.PT(RO)
,R3

#16..R4

(R3)+,(R1)+

BEQ
DEC
BEQ
BR
RESREG
RTS

14:43

PAGE

102

SEQ 0101

;WORD COUNT
sPICKUP PATTERN POINTER
;PATTERN COUNTER
;MOVE WORD 'N' INTO DATA BUFFER

;DECREMENT THE COUNTER
;BR IF DONE
;DECREMENT THE PATTERN COUNTER
;START PATTERN AGAIN
: CONTINUE
;RESTORE RO - RS

sRETURN

;THIS ROUTINE LOADS THE PHYSICAL TRANSFER ADDRESS INTO 'SBUF'
024502
024510
024514
024520
024522
024524
024526
024530
024534
024540
024542
024546
024552
024560
024562
024564
024572
024574
024602
024610
024612

013737
013746
042716
006316
006316
006316
006316

112637

001224
001226
177774

002506

ASL
ASL
ASL
ASL
MovBe
MoV
ASL
ADD
ADC
CMP
BHI
BLO
CMP

002501
002504
001224
001226
001226

001236

023737

001224

001234

013737
013737
000734
000207

001240
001242

001224
001226

103407

MoV

BIC

013746
006316
062637
005537
023737
101005
103413

GETBUF: MOV

1%:

2%:
;THIS

BLO

MoV
MOV

BR
RTS
ROUTINE

ACTMEM, SBUF

ACTMEM+2,-(SP)
# C3,(SP)

(SP)
(SP)
(SP)
(SP)
(SP)+,DPB+1
$WwC,-(SP)
(SP)
(SP)+ ,ACTMEM
ACTMEM+2

;LOWER 16 BITS OF PHYSICAL ADDRESS
;UPPER ADDRESS BITS ON THE STACK
sLEAVE ONLY THE LOWER 2 BITS
;ALIGN UPPER ADDRESS BITS
sALIGN UPPER ADDRESS BITS
;ALIGN UPPER ADDRESS BITS
;ALIGN UPPER ADDRESS BITS
;LOAD "MEX' BITS
;PUT WORD COUNT ON THE STACK

;DOUBLE THE WORD COUNT
:FORM NEXT

STARTING ADDRESS

;ADD ANY CARRY
ACTMEM+2 HIMEM+2
;EXCEEDING HIGHEST BANK ADDRESS
1%
;BR IF HIGHER
2%
;BR IF LOWER
ACTMEM,HIMEM
;CHECK LOWER 16 BITS
2%
:BR IF LOWER
LOMEM ,ACTMEM
sRESET ADDRESS
LOMEM+2 ,ACTMEM+2
;UPPER ADDRESS BITS

gsreur

COMPARES

:TRY AGAIN

sRETURN
A

16 WORD DATA PATTERN AGAINST

THE

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PI
22-APR-78 14:42
TRAP TABLE
5213

;DATA BUFFER.

30A(1052)
THE

L_8

22-APR-78

PATTERN NUMBER

14:43
IN

PAGE 103

'PATNUM'

SEQ 0102

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%

22-APR-78

14:43

PAGE 104

; SAVE RO-R5
sMEMORY MANAGEMENT ACTIVE ?
;BR IF NOT

SEQ 0103

2l
2l

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

5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230
523
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
3246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266

5267
5268
5269

5270
527
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

172340
000200
000400

013766

002506
002501

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

CLR

MoV
MOV
MoV

177600

CLR
CLR

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
010000

000200
000002
077406
002506
001222

000002
172352
172312

000004
000006
000001
001342

2$:

002504
00251¢
002513
002512
001320
025416
025430
025412
025414
025420

000004
172516
000004
177572
025420
025420
025422
025426
025424
025416

000400

ASR

ROR
DEC
BNE
BIC
MOV
ADD
MOV
MCV
MOV
MOV
MOV
MoV
MOV

140000

060000
000004
025110
000020

MOV
Move
ASR
ASR
ASR
ASR
MoV

CMP
BLOS
ADD
MoV
MOV
MOV
TST
BEQ
BIC
BIS
ADD
MOV
MOV

3s:

4$:

CMPAR:

CMSTR:

BR
ADD
MOV
MoV
MOV
ADD
MoV

MOvB
MOvVB
MOV

INC
MoV

CLR
(LR

(e
BHI

30A(1052)

8
22-APR-78

KIPARO
#200,KIPART

#400,KIPAR2

#177600,KIPAR7

=(SP)
=(SP)

$BUF ,2(SP)
DPB+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,K1PDRO
#77406,KIPDR1
#77406 ,KIPDR2
#77406 ,KIPDR3
#77406 ,KIPDR4
#77406 ,KIPDR7

SWC,#4096.
2%
#200,2(SP)
2(SP) ,KIPARS

#77406,KIPDRS
$BUF ,R1
MMACTV
CMPAR
#140000,R1
#60000,R1
#4,SP
#3% ERRVEC
#20,3#SR3
6%
#4,SP

14:43

PAGE 105

SEQ 0104

;LOAD ADDRESS REGISTER 0
;LOAD ADDRESS REGISTER 1
;LOAD ADDRESS REGISTER 2
sACCESS TO 1/0 PAGE

;MAKE ROOM ON THE STACK
sMAKE ROOM ON THE STACK

sLOWER 16 BITS OF STARTING ADDRESS
;UPPER ADDRESS BITS
sRIGHT JUSTIFY THE ADDRESS BITS
sRIGHT JUSTIFY THE ADDRESS BITS
sRIGHT JUSTIFY THE ADDRESS BITS
sRIGHT JUSTIFY THE ADDRESS BITS
sLOAD COUNTER
s CONVERT ADDRESS TO BLOCK ADDRESS
;LOWER 16 BITS
;DECREMENT THE COUNTER
sCONTINUE UNTIL FINISHED
;CLEAR LOWER BLOCK ADDRESS BITS
:LOAD ADDRESS REGISTER 3
s INCREMENT BLOCK ADDRESS BY 4K
;LOAD ADDRESS REGISTER # 4
;LOAD DESCRIPTOR REGISTER # 0
sLOAD DESCRIPTOR REGISTER # 1
;LOAD DESCRIPTOR REGISTER # 2
;LOAD DESCRIPTOR REGISTER # 3
sLOAD DESCRIPTOR REGISTER # &
;LOAD DESCRIPTOR REGISTER # 7
;WAS TRANSFER GREATER THAN 4K ?
;BR IF NOT
s INCREMENT THE ADDRESS BY 4K
;LOAD ADDRESS REGISTER # 5
;LOAD DESCRIPTOR REGISTER # 5
:LOAD STARTING ADDRESS
;MEMORY MANAGEMENT ACTIVE

:BR IF NOT
s CHANGE PHYSICAL BASE TO VIRTUAL BASE

;START AT VIRTUAL 12K

;CORRECT THE STACK POINTER
s CHANGE THE ERROR VECTOR

;ENABLE 22 BIT ADDRESSING MODE
:BR IF AN 11/70
;CORRECT THE STACK POINTER

#ERRVEC+2 ,ERRVEC
;RESTORE THE ERROR VECTOR
#1,3#5R0
sENABLE MEMORY MANAGEMENT
SRPWC, CMCNT
;WORD COUNT TO WORKING LOCATION
$WC, CMONT
sCALCULATE ACTUAL WORDS TRANSFERED
SCYL,CMCYL
;CYLINDER ADDRESS
s TRACK ADDRESS
STRK,CMTRK
$SEC,CMSEC
;SECTOR ADDRESS
CHP.CT LINIT
sDISPLAY LINIT
LINIY
;CONVERT PARAMETER INTO LIMIT VALUE
R1,CMBUF
sSTARTING ADDRESS OF SECTOR BUFFER

ERCTR

;CLEAR 'FIRST ERROR' INDICATOR
;CLEAR ERROR COUNTER

L} )

sBR IF

FRSTER

CMCNT
, #256.

;1S BUFFER SIZE GREATER THAN ONE SECTOR ?
IT

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACYT1
CZRPYD.P1
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
5306
5307
5308
5309
5310
5311
5312
5313
5314
5315
5316
5317
5318

5319
5320
5321
5322
5323
5324
5325
5326
5327
5328
5329

025224

025230
025232
025236

025242
025246
025250
025254
025260
025262
025264
025272
025274
025300
025302
025304
025306

025310
025312
025316
025322
025324
025330
025336
025340
025344
025350
025356
025360

013702
000402
012702
160237
013704
006304
012703
016405
022125
001406
032777
001002
004737
005302
001403
005303
001364
000757
004737
005737
003424
005237
023727
103713
005037
005237
023727
103703

025364
025370
025374
025376
025402
025404
025410

005037
005237
000137
104413
005737
001402
005037
000207

025412
025414
025416
025420
025422
025424
025426
025430

000000
000000
000000
000000
000000
000000
000000
000000

025420

000400
025420
001204

1$:

2%:

000020
001440
000010

CMDAT:
18:

153646

025432

2%:

025630
025420

38:

025424
025424

000012

025424
025426
025426

000024

025426
025422
025166

CMPRX:

001222

177572

1%:
FRSTER:

ERCTR:
LIMIT:
CMCNT:
CMCYL:
CMSEC:
CMTRK:
CMBUF:

30A(1052)

Mov
BR
MoV

CMCNT,R2
2%
#256. ,R2

MOV

PATNUM,
RS

SuB

ASL
MOV
Mmov
CMP

R4
#16.,R3
PAT.PT(R4)
RS
(R1)+,(RS)+

BEQ
BIT
BNE
JSR
DEC
BEQ
DEC
BNE

2%
#5W03,aSWR
2%
PC,CMPRT
R2
3%
R3
1%

JSR

PC,ENDCHP

BLE
INC
CMP
BLO
CLR
INC
CMP
BLO
CLR
INC
JMP
RESREG

CMPRX
CMSEC
CMSEC,#10.
CMSTR
CMSEC
CMTRK
CMTRK ,#20.
CMSTR
CMTRK
CMCYL
CMSTR

TST

CMDAT

CMCNT

TST

MMACTV

RTS

BEQ
CLR

.WORD

.WORD
_WORD
_WORD
.WORD
.WORD
.WORD
.WORD

005737
001037
005737
001011
012737
112737

004737
000412

025412

CMPRT:

001222
025446
000102
017254

001116
001114

1%
a#SRO

0
O
O
O
0
O
0

PAGE 106

SEQ 0105

;LESS THAN, USE REMAINING BUFFER

; COMPARE SECTOR
;DECREMENT WORD COUNT
;PATTERN NUMBER

;GENERATE INTO AN INDEX

sR3 IS PATTERN POSITION COUNTER

sPATTERN ADDRESS

; COMPARE BUFFER WITH PATTERN
:BR IF EQUAL

;SWITCH 3 SET ?

:BR IF NOT
;TYPE THE ERROR
;DECREMENT SIZE COUNT
;BR WHEN AT END
;DECREMENT PATT POS COUNT
;BR IF NOT AT END OF PATT
sRESTART THE PATTERN

sPRINT LAST LINE (IF
;AT END OF BUFFER

ERRORS)

sBR IF AT END
: INCREMENT SECTOR
;SECTOR GREATER THAN MAX ?
sBR IF NOT GREATER THAN MAX
sCLEAR SECTOR ADDRESS
s INCREMENT TRACK

sTRACK GREATER THAN MAX

;BR IF NOT GREATER
;RESET TRACK ADDRESS
s INCREMENT CYLINDER ADDRESS
;CONTINUE WITH COMPARE

;RESTORE RO - RS
sMEMORY MANAGEMENT ACTIVE ?
:BR IF NOT
:TURN OFF MEMORY MANAGEMENT

s TRACK ADDRESS

;BEGINNING ADDRESS OF SECTOR

ERRORS

FRSTER
CMPRT1
MMACTV

MOV

¥., SERRPC

Move
JSR
BR

14:43

;FIRST ERROR INDICATOR
:NUMBER OF ERRORS
;DISPLAY LIMIT
;WORD COUNT
;CYLINDER ADDRESS
:SECTOR ADDRESS

TST
BNE
TST

BNE

9
22-APR-78

R2,CMCNT

;TYPE DATA COMPARE

025432
025436
025440
025444
025446
025454
025462
025466

#102,81TEMB
PC,TYPERR
2%

:FIRST ERROR?
sBR IF NOT
sMEMORY MANAGEMENT ACTIVE ?
sBR IF ACTIVE

:PC FOR ERROR MESSAGE

;COMPARSION ERROR MESSAGE NUMBER

;REPORT THE ERROR
; CONTINUE

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

5330 025470
5331
025474
5332 025502
5333 025510
5334 025514
5335 025522
5336 025526
5337 025530
5338 025536
5339° 025542
5340 025544
5341
025550
5342 025552
5343 025560
5344 025562
5345 025566
5346 025574
5347 025602
5348 025610
5349 025616
5350 025622
5351
025626

5352
5353
5354
5355

5356
5357
5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
537N
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385

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

001116
001114

000001
025416

177572

02541 2

1%:

2%:

001122
000002
177776
177776
000104
017254
025414

153360

001122
001124
001126
001114

MOVB
JSR

MoV
TST

BEQ

CMPRT1:

025416
000020

CLR

MOV

1%:

2%:

#.,SERRPC

#103,81TEMB

PC,TYPERR
#-1,FRSTER
MMACTV

CMPRT1

BEQ

BIT

#5W04 ,aSWR

MoV

R1,$BDADR
#2,$BDADR

DEC
BNE

BEQ

SuB

MovB
JSR
INC
RTS

9
22-APR-78

a#SRO

#1,3#SR0
LIMIT
1%

MOV
TST

MoV
MOV

3%:

30A(1052)

LIMIT

=2(R5) ,SGDDAT
=2(R1) ,$BDDAT

#104 ,S1TEMB
PC,TYPERR

ERCTR

14:43

PAGE 107

SEQ 0106

sTURN OFF MEMORY MANAGEMENT
;PC FOR ERROR MESSAGE
. COMPARSION ERROR MESSAGE WITH MM REGISTERS
;REPORT

THE

COMPARSION ERROR

sSET FIRST ERROR INDICATOR
;MEMORY MANAGEMENT ACTIVE ?
;BR IF 0T
sENABLE MEMORY MANAGEMENT AGAIN

sTYPEOUT LIMIT REACHED ?

sBR IF IT HAS
;DECREMENT LIMIT COUNTER
sBR IF NOT AT LIMIT
sPRINT ALL DATA COMPARE ERRORS ?
:BR IF NOT
sADDRESS OF BAD WORD
;ADJUST ADDRESS

:GOOD DATA
:BAD DATA
;ERROR TABLE INDEX

;DISPLAY WORD THAT DIDN'T COMPARE
;COUNT THE ERROR
sRETURN

;LAST LINE OF COMPARE ERROR REPORTING
025630
025634
025636
025644
025646
025652

005737
001406
012737
104105
005037
000207

025414

025646

ENDCMP:

001164

1%:

2$%:

TST

ERCTR

MoV

#18,SESCAPE
105

RTS

BEQ
ERROR
CLR

SESCAPE

sSEE IF ANY ERRORS
:BR IF NONE

::ESCAPE TO 1$ ON ERROR
:NUMBER OF COMPARE ERRORS
sCLEAR THE ERROR ESCAPE ADDRESS

sRETURN

;ROUTINE TO CLEAR THE RP11E

:THE FIRST "CLEAR' TERMINATES ANY ORDER WHICH IS IN PROGRESS.
::Etg::: CLEARS THE

INOTE:
025654
025662
025664
025666
025670
025676

012764
051616
051616

051616
012764
000207

000001

000004

CLRP:

R4 MUST CONTAIN THE BASE ADDRESS OF
MOV
BIS

BIS
BIS

MOV
RTS

THE

SECOND

°'PROGRAM ERROR' WHICH MAY HAVE BEEN SET BY THE FIRST

#CLEAR ,RPCS(R4)

(SP), (SP)
(SP), (SP)
(SP), (SP)
#CLEAR,RPCS(R4)

;CLEAR

THE

THE RP11E
RP1

sDELAY FOR...
s oo AT LEAST

:es.4 MICROSECONDS.

;CLEAR THE

sRETURN

RP11

;ROUTINE TO SIZE 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: MOV
6%:
JSR
TST
BPL

CMP

BHI

#B1T07,8kT1
PC,$SIZE

sTELL THE °'SIZE' ROUTINE TO USE MM
;FIND OUT HOW MUCH MEMORY AND I[F THE

$KT1

;DOES THE SYSTEM HAVE A KT11 ?

2%
SLSTBK, #1540
1%

;SYSTEM HAS A KT

;BR IF NOT
;MORE THAN 28K ON THE SYSTEM ?

:BR IF MORE THAN 28K

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD P11
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
5411
5612
5413
5614
5615
5416
56417
5418
5419
5420
5421
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5432

5433

56434

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

001302
001230

sCLEAR UPPER MEMORY ADDRESS BITS

ROL

MAXMEM+?2

;sABSOLUTE MEMORY ADDRESS

INTO AN

ASL

MAXMEM

;CONVERT

THE BANK COUNT

INTO AN

sCONVERT

THE BANK COUNT

INTO AN

ADC

MoV

MOV
CLR
MOV

SuUB

CLC

MAXMEM+?2

MAXMEM+2
MAXMEM

MAXMEM+2
SLSTAD ,MAXMEM

MAXMEM+2

g2192..lAXUC
SLSTAD ,MEMSIZ

SLSTAD ,MAXMEM
MAXMEM+2
MAXMEM ,MAXWC

#BUFFER ,MAXWC

ROR

MAXWC

BNE

48:
5%:

BR
SuUB
RTS

is:

sCONVERT THE BANK COUNT

;CONVERT THE BANK COUNT INTO AN
sABSOLUTE MEMORY ADDRESS
s CONVERT THE BANK COUNT INTO AN
sABSOLUTE MEMORY ADDRESS
s CONVERT THE BANK COUNT INTO AN

:gv

001264

MAXMEM

;HIGH MEMORY BANK ADDRESS

MAXMEM
MAXMEM+2
MAXMEM
MAXMEM+2
MAXMEM

001264

002734

SLSTBK ,MAXMEM

ASL
ROL
ASL
ROL
ASL

001230

001264

SEQ 0107

MAXMEM+?2

ASL

000144

PAGE 108

CLR

MOV

ROL
ADD

001264
000041

14:43

sCLEAR MEMORY MANAGEMENT INDICATOR
;D0 IT AGAIN WITH MEM. MAN. DESELECTED
;ADDRESS OF LAST NON MEMORY MANAGEMENT LOCATION

ROL

001264
001264

9
22-APR-78

$KT11
6%
#157776 ,MEMSIZ

ROL

2%:

CLR
BR
MOV
ASL

001302
001230

30A(1052)

TSTB

SUB

;sABSOLUTE MEMORY ADDRESS

sABSOLUTE MEMORY ADDRESS

sABSOLUTE MEMORY ADDRESS
;ADD THE SIZE OF THE LAST BANK
sHANDLE ANY CARRY

:EE}?P FOR MAXIMUM TRANSFER SIZE

JEX

sHIGH NON MEMORY MANAGEMENT ADDRESS

sHIGH NON MEMORY MANAGEMENT ADDRESS
;DON'T NEED THE UPPER WORD
;CONVERT MEMORY SIZE TO WORD COUNT

sSUBTRACT STARTING ADDRESS OF BUFFER
sCLEAR THE

°'C'

BIT

s CHANGE

TO WORD COUNT

;BR IF

"XXDP'

5%
#1500. ,MAXWC
PC

JEXIT
;"XXDP' SIZE
sRETURN

#100. ,MAXWC

;SEE WHICH LOADER

;"ABS' LOADER SIZE (PLUS A LITTLE BIT)

sTHIS ROUTINE IS USED TO ENSURE THAT THE BUS ADDRESS
;OF THE RP11 IS SETUP TO READ THE PROPER VALUE.
;1T WILL ALSO READ THE ADDRESS FROM THE TTY IF
sREQUIRED.
;NOTE: THIS ROUTINE DESTROYS RO - R4
026150
026154
026156
026162
026166
026172

005737
001425
005037
104401
104401
013746

026176
026200
026201
026202
026206
026210
026212
026216

104403

006
001
104401

104411

012601
004037
026162

001216
001216
001173
032162
00132¢

GETADR:
18:

TST

BUSADR

s INPUT FROM TTY REQUESTED?

CLR
TYPE
TYPE
MoV

BUSADR
.SCRLF
.MRPADR
RPADR,=(SP)

sYES==CLEAR THE REQUEST FLAG
s CR=LF
: "RPADR="
: SAVE RPADR FOR TYPEOUT

BEQ

TYPOS

031322
027136

:NO==BRANCH

::RP11 ADDRESS

;260 TYPE-=OCTAL ASCII

.BYTE
.BYTE

6
1

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

MoV

(SP)+,R1

;STARTING ADDRESS OF

TYPE
ROLIN

JSR
1)

.SLASH

RO,CK.NUM

3'/°
;GET

THE ENTRY

;CHECK THE NUMBER
s ILLEGAL INPUT

INPUT ASCII

STRING

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

5442
5443

5444
5445
5446
5447
5448
5449
5450
5451
5452
5453
5454
5455
5456
5457
5458
5459
5460
5461
5462
5463
5464
5465
5466
5467
5468
5469
5470
5471
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

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

4%:

001164

001164
000042

5%:

016776
016616

2%
3%

30A(1052)

RZ,RPADR
ERRVEC,R1
#4% ERRVEC
aRPADR
R1,ERRVEC

MoV
MOV
Mov
TST
MOV
RTS
MoV
CMP
MOV

PC
R1,ERRVEC

(SP)+,(SP)+

:SS.SESCAPE

ERROR

SESCAPE
ans?2
1%
SEOPCT
$EOP

CLR
TST
BEQ
CLR
JMP

22-APR-78

14:43

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

031324

ENTPRM:

027136

000020

;REPORT

THE ERROR

sCLEAR ERROR ESCAPE ADDRESS
;1S THERE A MONITOR?
;NO--GO ASK FOR ADDRESS
sNO PASSES

;GO TO END OF PROGRAM

001276

017777
177777
001312
022566
000312
001304

001276

000625
031352

001210

THE PROGRAM

LENTNM

s'ENTER TEST NUMBER'
sGET THE ENTRY
(SP)+,R1
sSTARTING ADDRESS OF INPUT ASCII STRING
RO, CK.NUM
sCHECK THE NUMBER
s ILLEGAL INPUT
sTERMINATED WITH A 'CR'
JNO ENTRY = "CR' ONLY
#$TN,R2
sVALID NUMBER ?
ENTPRM
;BR IF NOT
R2
sCONVERT INTO A BIT INDEX
BITS(R2),TSTNMS sTEST SELECTION BIT
R2
sCHANGE BACK INTO A WORD COUNT
R2,=(SP)
sSAVE THE TEST NUMBER ENTRY
ENTPR1
sGET THE DRIVE NUMBER
#17777 ,TSTNMS
sSELECT ALL TESTS
#-1,-(SP)
sALL TESTS SELECTED
DRVSEL
sCLEAR DRIVE SELECTION WORD
PC,RPINIT
sCHECK THE DRIVE STATUS
#202. ,MAXCYL
sASSUME ONLY RP0O2'S
DRVTYP
;SEE WHICH TYPE
13
sBR IF ONLY RPO2'S

TYPE

ROLIN
MOV

1%:

001400

2$:
ENTPR1:

001210

1%:

#405. ,MAXCYL

;RPO3'S

(SP)+,R1 .
RO,CK.NUM

;STARTING ADDRESS OF
;CHECK THE NUMBER

.DRVNM

02713¢

;ENTER DRIVE NUMBER
:GET THE ENTRY

s ILLEGAL INPUT

sTERMINATED WITH A

000010

001360
001370

031377

2%:
001312

#8. .R2
:VALID ENTRY ?
1%
:BR IF NOT
ATABIT(R2) ,DRVSEL
;DRIVE SELECTION BIT

BLOS

MOvVB
ISTB

TYPE

INPUT ASCII

'(CR’

;NO ENTRY = "CR" ONLY

BGT

SEQ 0108

;;ESCAPE TO 5% ON ERROR

ALLOWS THE OPERATOR TO CONTROL
(CONVERSATION MODE)

104401
104411

109

sTERMINATED WITH A 'CR'
;NO ENTRY = 'CR' ONLY
;STORE THE ADDRESS
;SAVE THE ERROR VECTOR
;SETUP FOR TRAP
;CHECK FOR RP11
;RESTORE ERROR VECTOR
;RETURN
sRESTORE ERROR VECTOR
;CLEAN OFF THE STACK

;THIS RO UTINE

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
026464
026470
026472

PAGE

DRVSTA(R2)
8$

.DRIVE

;1S DRIVE ONLINE
:BR IF ONLINE
:'DRIVE'

STRING

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.PN
TRAP TABLE
22-APR-78 14:42

5498
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

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

5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553

026616
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

5524
5525
5526
5527
5528
5529
5530
5531
5532
5533

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

001370

027312
3%:

027276
001173

4%:

5%:

000015
001370
001360
000010

6$%:

001312

7%:

000014

8$%:

031406

ENTPR2:

000131

031447
001264

TYPE
Mov

104403
005

000

104401
104401
104411
012601
004037

026626
026650
026670
020237
101364
020237
101361
010237
104401
104411
012601
004037
026670
026712
026716
010237
104401
104411
123627
001057
104401

TSTB
BMI
TYPE
BR
TYPE
TYPE
BR
CLR
TST
BMI
CMP
BLOS
TSTB
BLE
BISB
INC
CMP
BLO
CMP
BNE
TYPE
ROLIN
CMPB
BNE

TYPOS

001173
031523

.BYTE
.BYTE

1%:

027136

TYPE
TYPE
ROLIN
Mov

30A(1052)

9
22-APR-78

DRVSTA(R2)
3%
LOFFLIN

+UNSAFE
.SCRLF

14:43

PAGE 110

;CHECK DRIVE STATUS AGAIN
;BR IF UNSAFE
;'OFFLINE'

; CONTINUE

s "UNSAFE'
s CR-LF

ENTPR1
:TRY AGAIN
R1
;CLEAR R1 = USE IT AS AN INDEX
(SP)
;ALL TESTS SELECTED ?
6%
;BR IF THEY WERE
#15,(SP)
;TEST 15, 16, OR 17 SELECTED ?
1%
;BR IF YES, SPECIFIC DRIVE NUMBER REQUIRED
DRVSTA(R1)
;1S THE DRIVE ONLINE ?
7%
:BR IF NOT
ATABIT(R1) ,DRVSEL
;SET THE SELECT BIT FOR THE DRIVE

; INCREMENT

. CHNGPM

: CHANGE PARAMETERS FOR TEST 14 ?
;GET THE RESPONSE

R1,#8.
6%
#14,(SP)+
ENTPRX
a(SP)+ #'Y
ENTPRX

THE DRIVE

2%:

001262
001256
031565

ENTPR3:

;"Y' ENTERED ?
:BR IF NOT

.MXWRDS
MAXWC,
= (SP)

:"MAXIMUM WORD COUNT

5
0

;:TYPE 5 DIGIT(S)
:égUP:RESS LEADING ZEROS

.SCRLF

LENTWC
(SP)+,R1
RO, CK.NUM

R2,MAXWC
1%
R2,LMT8K
1%
R2,WC14

. CHNGPT

(SP)+ ,R1
RO, CK.NUM

02713¢

000131

031713

1%:
ENTPRSG:

R2,PATTRN
. CHNGAD
a(SP)+. #'Y
ENTPRX

LONEPAT

FOR

TEST

14:

s :SAVE MAXWC FOR TYPEOUT
;;MAXIMUM WORD COUNT FOR TEST 14
::60 TYPE--OCTAL ASCII

CR-L

;"ENTER WORD COUNT FOR TEST 14°'
;GET THE ENTRY
;STARTING ADDRESS OF INPUT ASCII STRING
:CHECK THE NUMBER
: ILLEGAL INPUT
'CR'

:NO ENTRY = "CR" ONLY
;VALUE TOO LARGE ?
:BR IF TOO LARGE
;NEW WORD COUNT LARGER THAN 8k ?
:BR IF LARGER
sLOAD NEW WORD COUNT
JENTER PATTERN CODE
sREAD THE ENTRY
;STARTING ADDRESS OF INPUT ASCII STRING
;CHECK THE NUMBER

s ILLEGAL INPUT

;TERMINATED WITH A

001300
031640

INDEX

sREACHED MAXIMUM ?
:BR IF NOT
;IS TEST 14 SELECTED ?
:BR IF NOT

sTERMINATED WITH A

001264

SEQ 0109

(R’

:NO ENTRY = "CR' ONLY

;PATTERN CODE

;USE A SPECIFIC DISK ADDRESS ?

sREAD THE ENTRY

;"Y' ENTERED ?
:BR IF NOT
:'A SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED;

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

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

027136

LJENTCYL

TYPE
ROLIN
MOV

(SP)+,R1

RO, CK.NUM

JSR
1%

001210

2%:

001266
032105

3%:

027136

R2,MAXCYL
1%
R2,SCYL

MoV
TYPE
ROLIN
Mov

LENTRK

(SP)+,R1
RO, CK.NUM

JSR

000023

4%:

001270
032133

5%:

027136

6%:

000011

001272
177777

001260

ENTPRX:

22-APR-78

14:43

PAGE

111

;"ENTER CYLINDER ADDRESS'

;GET THE ENTRY

;STARTING ADDRESS OF

;CHECK THE NUMBER
s ILLEGAL INPUT

R2.#19.

CMP
BHI
MOV
TYPE
ROLIN
MOV

JSR
5%
6%
5%

;"ENTER TRACK ADDRESS'

;GET THE ENTRY
;STARTING ADDRESS OF
sCHECK THE NUMBER
: ILLEGAL INPUT
:NO ENTRY =

"CR"'

:VALID ENTRY ?
;BR IF NOT

Mov
MOV
RTS

'(CR'

s TRACK ADDRESS

(SP)+,R1
RO, CK.NUM

sSTARTING ADDRESS OF
s CHECK THE NUMBER
s ILLEGAL INPUT

R2.#9.
5%
R2,SSEC
#-1,0PRSEL

INPUT ASCII STRING

ONLY

;"ENTER SECTOR ADDRESS'

;TERMINATED WITH A

CMP
BHI

INPUT ASCII STRING

(R’

:NO ENTRY ~ 'CR" ONLY
sVALID ENTRY ?
:BR IF NOT
;LOAD SECTOR ADDRESS
;SET ADDRESS FLAG
:RETURN

;THIS ROUTINE IS USED TO CHECK IF AN ASCII CHARACTER IS A DIGIT
;BETWEEN 0 AND 7.
#ADR R

Mov

JSR
RETURN1

RO,CK.OCT

RETURN?Z

027072
027076
027100
027104
027106
027110
027114
027116
027120

000060

(K.OCT:

000067

BHI
MOVB
BIC

177770

000200

1%:

2%:

BR
TST

RTS

;THIS ROUTINE

;ADDRESS OF ASCII CHARACTER
sCHECK THE CHARACTER

;CHARACTER IS IN R2 AS A
;OCTAL DIGIT
;CHARACTER IS NOT BETWEEN 0-7
;LESS THAN ZERO?
;YES == BRANCH
;GREATER THAN SEVEN?
;YES == BRANCH
:GET THE CHARACTER
;STRIP AWAY THE ASCII
:BYPASS RETURN ADJUST
;ADJUST FOR RETURN
;RETURN

CMPB
BLO
CMPB

JDETERMINE WHAT |

STRING

"CR'

R2,STRK

LENTSEC

INPUT ASCII

;NO ENTRY = "CR" ONLY
;700 LARGE ?
:BR IF TOO LARGE
sLOAD CYLINDER ADDRESS

sTERMINATED WITH A

SEQ 0110

:"IF NOT, PATTERN O (ALL ZEROS) WILL BE USED'

sTERMINATED WITH A

1%
CMP
BHI

ECK AN ASCII
.

5600
5601
5602
5603
5604
5605
5606
5607
5608
5609

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

wXx

5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599

026736
026742
026744
026746
026752
026754
026756
026760
026764

—

5554
5555

30A(1052)

CHARACTER TO

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)

MoV

JSR

RETURN
RETURN

027122
027124
027126
027130
027132
027134

105711
001002
005720
005201
011000
000200

CK.CHR:

1%:

TSTB
BNE

9
22-APR-78

14:43

PAGE

112

SEQ 01N

#ADR,R1
RO,CK.CHR
ADR1

ADRZ2

;ADDRESS OF ASCII CHARACTER
s CHECK CHARACTER
;UNKNOWN CHARACTER
;CARRIAGE RETURN * (R1)=ADR+1

(R1)

;""CARRIAGE RETURN'"?

TST
INC
MoV
RTS

:NO == BRANCH
s CARRIAGE RETURN
;MOVE POINTER TO NEXT CHARACTER
;UNKNOWN CHARACTER
;RETURN

:THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS
;AND FOkKMS AN OCTAL NUMBER IN R2
MOV

JSR

RETURN
RETURN
RETURN

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

Mov
CLR
JSR
BR
JSR

027072
027122
1%:

103421

ASL

BCS
ASL

B(CS

004037
000765
010302
005003

027072

004037
027230
027224
005723
005723
060300
012603
011000
000200

027122

005015
042526

ASL

BCS

006303
103417
006303

103415
060203

6%
8%
INC

ADD

2%:

3%:

8%:
5%:

6%:

042012
051440

044522
040524

JSR
BR

Mov

CLR

#ADR ,R1
RO,CK.NUM
ADR1

;ADDRESS OF ASCIZ STRING
;GO FORM THE NUMBER
s ILLEGAL CHARACTER IN THE INPUT STRING
;"'CR"'==R2=NUMBER
:'CR' WAS FIRST ENTRY

R3,-(SP)
R3
RO,CK.OCT

:SAVE R3

ADR2
ADR3

1%
RO,CK.CHR

R3
6%
R3
6%
R3
6%
R2.R3
RO,CK.OCT
1%
R3,R2
R3

JSR
6%

RO,CK.CHR

TST
TST
ADD
MOV
MOV
RTS

(R3)+
(R3)+
R3.RO
(SP)+,R3
(RO) ,RO
RO

.SBTTL

TELETYPE

DRSTAT:

LASCIZ

;START NUMBER AT ZERO

;OCTAL DIGIT?
: YES=-BRANCH
sCHECK ONE CHARACTER
s ILLEGAL CHARACTER
s CARRIAGE RETURN
sMOVE 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

sSAVE THE OCTAL NUMBER

THE NUMBER

sSTART WITH ZERO INDEX

sCHECK ONE CHARACTER
s ILLEGAL CHARACTER
sCARRIAGE RETURN

:"CR" ONLY

,".CR"

sYES=-SAVE THE OCTAL NUMBER

;RESTORE R3

sPICKUP EXIT ADDRESS

sRETURN

MESSAGES

<15><12><12>3DRIVE

STATUS:a<15><12><12>

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11
CZRPYD.P1
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

044522
020040

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

015
042527
046111
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

052524
000012
020040
046116
020040
051516
020040
043106

035123

005015

020040
047111
020040
043101
020040
044514

047440
000105
052440
000105
047440
042516

051040

9
22-APR-78

ONLINE:

.ASCIZ

ONLINEa

UNSAFE:

.ASCIZ

UNSAFEQ

OFFLIN:

.ASCIZ

OFFLINEa

030120

RPO2:

.ASCIZ

RPO2a

050122

031460

RPO3:

.ASCIZ

RPO3a

044522
020051
020105
000040
042516
000
005012
047111
044124
042526
000

042526
047524
051525

DRVTST:

.ASCIZ

@aDRIVE(S)

NONE :

.ASCIZ

QaNONEa

BLNKS2:

.ASCIZ

000
042524
020107
042040
000040

COMMA:
TSTING:

_ASCIZ
.ASCIZ

14:43

a.d
<15><12><12>3TESTING WITH DRIVE 3

047520
040506
051505

MSG15A:

.ASCIZ

<15><12><12>3POWER FAIL

052012
050103
042527
043040
043101
044124
051505
020054
005015
042523
026123
020116
041440
053517
020117
040507
000
042412
020106
020122
052040
000012
050012

051125
020125
020122
043040
042524
05151
040523
040527

MSG15B8:

.ASCII

<15><12><12>3TURN CPU POWER

.ASCIZ

@5 SECONDS,

046501
020114
020054
047111

052040
052524
052520
051105
020116
047111

SEQ 0112

TO BE USED a

005012
020122
052040

047503

PAGE 113

TESTa

O F

THEN TURN CPU POWER

POWER FAIL

O N

AFTER THIS MESSAGE, WAITa<15><12>

AGAINa<15><12>

042116
047520
040506
051505

MSG15C:

.ASCIZ

<15><12>3END OF

TESTa<15><12>

047522
053440
047514
040527
020107

MSG15D:

.ASCIZ

<15><12><12>3PROGRAM WILL LOOP, WAITING FOR DRIVE

TO COME ONLINE@<15><12

ale)

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
5731
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
05311
041440
047117
005015

020122
020105
046517
044514
000

051104
047524
020105
042516

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

015
042101
047107
051040
042516
005015
042516
045040
020122
042505
051516
031115
031461
020116
050122
040502
047101
015
043105
020117
050101
041101
044501
047101
047101
047506
020105
020105
027120
015
043507
044527
020067
042510
046105
047117
015
051105
020104
051505
020116
024514

005012
040440
042515
052517

042510
044514

105
020012
051105
044124
046120
042514
052116
042503
040525
020122
051104
042523
051
005012
042514
041524
047506
042101
041505
005015
042412
044040
042101
020123
041517
020072

030317
030324
030332
030340
030346
030354
030362

015
030461
052116
040520
053523
052040
005015

005012
020105
047522
042516
052111
051505
054524

050122
047503
020114
020114
044103
000124
042520

041412
052103
046525
042502
020116
045040
023040
031103
044124
030461
045503

22-APR-78

14:43

PAGE

114

SEQ 0113

LASCII

<15><12><12>aHEAD ALIGNMENT ROUTINER

LASCII

<15><12><12>3CONNECT A JUMPER BETWEEN PINS J13M2 & J13C2 OnN

051050
052040
020105
041511
046440
047105
046440
020114
044124
053111
052524

LASCII

<15><12>a

047524
051440
020110
020122
051440
044524
000
052116
040505
051104
044450
040524
000

.ASCIZ

<15><12><12>3TOGGLE

MSG168:

.ASCIZ

<15><12>QENTER HEAD ADDRESS

MSG17A:

.ASCIZ

<15><12><12>aRP11E

MSG178B:

LASCIZ

<15><12>aTYPE

MSG16A:

052116

044524

047117
040440
042520
053524

THE

RP11E BA

044520

031461
045040
047440
020105
020105
046120

(REFER

TO THE

APPLICABLE

MAINTENANCE MANUAL

FOR

THE

SWITCH 7 FOR HEAD SELECTION@<15><12>

(IN OCTAL):

CONTROL PANEL

'CR'

TO START

SWITCH TESTa

TEST AFTER EACH SETUPa<15><12>

DRIVE

SETU

CZRPY=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
042514
042526

051103
051440
052040
043101
040505
052105
000
051511
042040
021440

047105
042040
021440
042523
040505
054514
042040
000040
042523
040505
052111
020116
020105
051412
051127
047514
023524
041440
052040
040517
041524

9
22-APR-78

14:43

PAGE 115

MSG17C:

.ASCIZ

<15><12>aDISABLE DRIVE # a3

041101
044522
000040
020124
020104
020047
044522

MSG17D:

.ASCIZ

<15><12>3ENABLE DRIVE # 3

MSG17E:

.ASCIZ

<15><12>aSET

'READ ONLY'

020124
026504
023505
051104
000
052105
052111
045503
040440
042514
042510
051440
042510

MSG17F:

.ASCIZ

<15><12>aSET

"READ-WRITE'

MSG17G:

.ASCII

<15><12>aSET

'WRITE LOCKOUT'

LASCIZ

<15><12>30N THE RP11E CONTROL PANELQ

MSG17H:

.ASCIZ

<15><12>@SET

SEQ 0114

ON DRIVE @

047412
020105
020105
047522
042516
042523
020105
053517
041517
040526
044440
020105
042116
040517
041524
000040
042523
052111

020116
050122
047503
020114
000114
020124
047506
047111
040524
052514
020116
054503
051105
051440
042510

MSG171:

.ASCIZ

<15><12>3SET SWITCHES TO a

052040

020124
044103
020117

051012
052040
046131

051505
042510
047111

MSG17J:

.ASCII

<15><12>3RESET THE

ON DRIVE a

AND CLEAR THE LOA SWITCHESa

THE FOLLOWING OCTAL VALUES

IN THE

CYLINDER LOA SWITCHESA

CYLINDER LOA SWITCHES:

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

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
5874
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
051124
047101
044527
020123
051117
000012

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

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>aSET THE FOLLOWING OCTAL VALUES IN THE DRIVE LOA SWITCHES: @

.ASCII

<15><12><12>3END OF

LASCIZ

<15><12>aRETURN RP11E CONTROL PANEL SWITCHES TO NORMALa<15><12>

CONROL PANEL SWITCH TESTa

051440
042510
047040
006514

047105
042524
046525
000040
042524
053111
041115
000
044522

042524
052123
042502

ENTNM:

SLASH:

_ASCIZ

a/a

020122
020105

DRVNM:

_ASCIZ

@QENTER DRIVE NUMBER:

042526

DRIVE:

.ASCIZ

QDRIVE @

047101
051101
051105
020122
030440
ooe
054101
053440
047503
047506
052123
044450
040524
000
052116

042507
046501
020123
042524
020064

CHNGPM:

.ASCIZ

QCHANGE PARAMETERS FOR TEST

046511
051117
047125
020122
030440
020116
024514

MXWRDS:

.ASCIZ

@MAXIMUM WORD COUNT

051105

ENTWC:

.ASCIZ

QENTER NEW WORD COUNT

_ASCIZ

<15><12>3ENTER TEST NUMBER:

051105

FOR

TEST

? 3

(IN OCTAL):

MACY11 30A(1052)
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
CZRPYD.P1
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

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

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

053505
020104
020124
041517
020072
052116
052101
051440
044524
042117
020122
030440

046105
047117
020105
042524
035064

020105
041505
042040
042101
020123
042524
020064
040450

no9
22-APR-78

14:43

044450
040524
000
051105

CHNGPT:

+ASCIZ

@ENTER PATTERN SELECTION CODE FOR TEST 14:

020101
043111
051511
051104
047506
052123
020077

:
CHNGAD

.ASCIZ

QUSE A SPECIFIC DISK ADDRESS FOR TEST

051440
020105
050040
047122
020124
041040
050123
042511

ONEPAT:

.ASCII

a (A SINGLE DATA PATTERN MUST HAVE BEEN SPECIFIED@<15><12>

.ASCIZ

@ IF NOT, PATTERN O

ENTCYL:

.ASCIZ

@ENTER CYLINDER ADDRESS:

042524

047040
040520
020116
046114
051517
046114
051525
000012
020122
042116
042104
020072

.ASCIZ

@ENTER TRACK ADDRESS:

ENTSEC:

.ASCIZ

@ENTER SECTOR ADDRESS:

032146

032154

051105
045503
042522
000
051105
047524
051104
000040

ENTRK:

051440
020122
051505

052116
040522
042104
020072
052116
041505
042101
035123

032162
032170

050122
020075

042101
000

020122

MRPADR:

.ASCIZ

aRPADR = 3

.SBTTL

ERROR MESSAGES

051523
105

SEQ 0116

053440
047503

046107
040524
042524
051525
042526
020116
043111
012
043111
020054
051105
040450
051105
044527
020105
006451
042524
044514
040440
051523

032120
032126
032133
032140

PAGE 117

? a

(ALL ZEROS) WILL BE USED)a<15><12>

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
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

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
023124
051117
054105
042105
023505
023516
052503
051105
051127
020107
052040
020101
051440
000122
047117
031040
051504
052124
020116
040520
020114
020105
052047
040520

030520
047104
051505
052040
051104
043516
047101
040524
040505

046515

042514
047503
020104
052047
044515
042040
051124
051105
040522
000
051122
044522
052040
042523

051450
052111
041505
047522
041505
052040
042523
051450
042520

023440
042040
020124
000122
047522
052111
042514
040510
052506
041505

02010%
053440
053440
047105
044124
052122

051127
044504
041440
042522

020061
052047
047520
020117
051505
000
052047
052122
020104
047101

9
22-APR-78

14:43

EM1:

LASCIZ

aRP11

EM2:

.ASCIZ

@CAN'T START READ COMMANDa

PAGE 118

DIDN'T RESPOND TO ADDRESSINGa

051101
046515
044504
052040
040516
052101
047101
047440
044524

EM3:

LASCIZ

@'CLEAR' COMMAND DIDN'T TERMINATE DATA TRANSFER OPERATIONa

051117
044524
051505
052103
000051
020105
020113
020122
044513
051505
052103
000051
052103
041527
04211
041517

EM4:

LASCIZ

@ERROR WRITING TEST SECTOR(S)a

EMS:

.ASCIZ

GWRITE

EM6:

CHECK ERROR CHECKING TEST SECTOR(S)a

@EXPECTED

'WCE'

DIDN'T OCCURA

020122
047111
051523
020116
046114
047524

EM7:

LASCIZ

SERROR WRITING LESS

043117
051117
044522
044440
020105
040511
052111
047104
046517
000

EM11:

LASCIZ

@ONE OF 2 WORDS WRITTEN IN THE PARTIAL WRITE DIDN'T COMPAREA

THAN A FULL

SECTORa

SEQ 0117

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
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
6021
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

047117
020117
044440
052122
042523
053440
051440
020104
005015
047105
020117
042105
047111
052122
051127

055055
040504
020116
047440
052103
044510
047510
040510

050117
047104
052105
047111
020062
051117
042524
047111

020047
052047
042040
020107
042523
053440
041040
044516

052101
046040
042523
047440
020105
000
051105
042111

052040
051501
052103
020106
040520

042523
044124

023520
047505

042111
046103
050122

041525
020124
041505
042524

050117
047522
042101
042524
041505

047440

052116
047440
051522
052103
020116

EM12:

020101
047503
020124
020122
000047
020122
047111
052123
047524

047105
020106
020124

051117
040520

14:43

aNON-ZERO DATA

LASCIZ

@BEEN ZERO FILLED DURING PARTIAL WRITEQ

LASCII

@'EOP'

LASCIZ

<15><12>3AT

EM14:

LASCIZ

@'ERR"

DIDN'T SET WITH

EM15:

.ASCIZ

@'EOP'

DIDN'T CLEAR RPCAd

EM16:

LASCIZ

@SUCA NOT

EM17:

.ASCIZ

@ERROR READING TEST

EM20:

LASCII

@CONTENTS OF

EM13:

DIDN'T

IN PART OF

PAGE 119

LASCII

055040
044506
042040
020107
040511
05211

023522
023516
020124
023440
000
023520
023516
040505
040503

8 10
22-APR-78

SECTOR WHICH SHOULD HAVE@<15><12>

SET DURING A 2 SECTOR WRITE BEGINNINGa

THE LAST

SECTOR OF

CORRECT AFTER

FIRST

THE PACKa

'EOP'a

‘EOP'a

SECTORG

SECTOR ON PACK CHANGED AFTERa<15><12>

SEQ 0118

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

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

033350
033356
033364
033372
033400
033406
033414
033422
033425
033432
033440
033446
033454
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
043516
042524
047
020047
020122
052047
053440
042522
046517
044440

041440
042105
051105
041522
042447
052504
053440
000
051120
051105
044504
051440
042510
042101
040515
051523

042116
042525

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

053412
041440
046117
052502

044510
047117
042514
054523

051105
042111

023522
023516
020124
023440
000047
020122
050115
052040
043123
020124
051117

104

051440
042510
051101
020107
044515

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

040510
040440
005015
047111
050117
044522
044522

043517
047522
047104
052105
020116
041440

.ASCIZ

7~
EM21:

¢ 10

22-APR-78

QFORCING 'EOP'
.-

14:43

PAGE

120

SEQ 0119

DURING WRITEa
-

ERROR DIDN'T

LASCII

@'PROG'

ASCIZ

<15><12>aWHILE

EM22:

ASCIZ

Q'ERR'

EM23:

+ASCIZ

QERROR ATTEMPTING TO MISFORMAT SECTOR 03

051117
043111
052040
051511
052101
042524
040505

EM24:

.ASCIZ

QERROR VERIFYING THE MISFORMATTED TEST HEADERa

051117
042105
020124
051105
047516
051122

EM25:

.ASCIZ

Q@MISFORMATTED TEST HEADER

020047
052047
053440
042523
047111
020122
051117

EM26:

LASCIZ

@'HNF'

DIDN'T

SET WHEN READ COMMAND

——

[SSUEDa

CONTROLLER BUSYa

SET WITH

'PROG'd

IS NOT CORRECTa

DIDN'T SET WHEN SEARCHING FOR MISFORMATTED SECTORa

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.PN
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
034142
034150
034156
034164
034172
034173
034200
034206
034214
034222
034230

034236
034244
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

D 10

22-APR-78

14:43

"HNF'a

PAGE

121

SEQ 0120

052124
041505

042105
047524

045523
020124
044527
047110

020047
042523
044124
023506

EM27:

LASCIZ

@'DSK"'

NOT SET WITH

042510

020047
052047
053440
044047

EM30:

LASCIZ

@'HE'

DIDN'T SET WITH

020047
042523
044124
023506

EM31:

LASCIZ

@'ERR"

NOT SET WITH

051117
042514
047524
046440
046522
020104
044040
000122
047522
062040
020124
042515
020131
051040
047503
104
051523
047524
044513
044522

EM32:

.ASCIZ

@ERROR WHILE

EM33:

LASCII

@CONTROLLER DIDN'T BECOME BUSY WHEN READ COMMANDa

.ASCIZ

<15><12>31SSUED TO SEEKING UKIVEQ

051117
047111
042101
040515
044510
051501
042525

EM34:

.ASCIZ

@ERROR DURING READ COMMAND WHICH WAS

EM35:

LASCIZ

@DATA

047104

052105
020110
000047
051122
020124
044527
047110

051122
044510
051505
043516
047506
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

042526

052101
047503
020124
044040
020122
041440

020101
051122
051106
040505
042522
046517

"HNF'a

'HNF'd

RESTORING MISFORMATTED TEST HEADERa

ISSUED TO SEEKING DRIVEa

051440
043516
INCORRECT FROM HEADER READ COMMAND

ISSUED TO A SEEKING DRIVER

E 10

CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD.P1
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

042040
000
047
020047
052047
053440
047514
047117
030060
051104
000104
044047
042111
042523
044124
042515
042447
044504
051440
05211
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
043040
000
047
047440
052103

042116
042525
040440
044513
044522

044440
020104
051440
043516
042526

054116
044504
051440
042510
040503
033440
020060
051505

042515

22-APR-78

14:43

PAGE

122

SEQ 0121

EM36:

.ASCIZ

@'NXME' DIDN'T

042040
020124
044527
054116

EM37:

.ASCIZ

@'HE'

020047
052067
053440
047047
000
051117
040515
020107
020113

EM4O:

LASCIZ

@'ERR'

EM4T:

.ASCIZ

@ERROR FORMATTING TRACK 0a

020122
047111
020105
051105
020115
042524
041505

EM4L2:

LASCIZ

@ERROR READING THE HEADER FROM THE

051117
042114
020115
051105
047516
051122

EM4L3:

LASCIZ

@SECTOR FIELD FROM HEADER

EMé&4:

LASCIZ

SERROR WRITING SECTOR ADDRESS

040440
051523
040504
042511

020122
047111
052103
042104
0464440
040524
042114

047523
020122
051117

023524
042523
040440

EM4S:

LASCIZ

@'SOT* OR SECTOR ADDRESS REIGSTER IS NOT CORRECT®

023505
023516
020124
023440
000047
051122
047104
052105
020110
023505
051122
051117
047111
041501

047522
042101
044124
042101
047522
020105
051440
000122
052103
042511
047522
042101
020123
047503
000124
047522

052111
042523

047104
052105
020116
044524
030066
042101

SET WHEN LOCATION 760000 ADDRESSEDA

042523
DIDN'T SET WITH

'NXME'a

DIDN7T SET WITH

'NXME'a

TEST

SECTORa

IS NOT CORRECTa

IN DATA FIELDa

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

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

042104
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

042522

051523
051507
051511
041440
052103

052101
042101
020115
042523
044440
020124
041505
052103
047117
020123
026107
020101

020101
043040
044124
052103
020123
047503
000124
051117
042524
051127
042040
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

042114
044124

054105
052105
051105
051117
042101
052122
052101
030440

10
22-APR-78

14:43

SECTOR

PAGE

123

SEQ 0122

EM4E:

.ASCIZ

aDATA READ FROM THE

EM4L7:

LASCII

@SECTOR CONTENTS WRONG,

.ASCIZ

@TRACK

EMS0:

LASCIZ

@ERROR AFTER 2 WORD READ STARTING AT LOC

EMS1:

LASCII

@'MEXO' DIDN'T SET AFTER 2 WORD READ STARTINGa<15><12>

LASCIZ

@AT LOC 1777763

LASCIZ

@'MEX1'

IS NOT CORRECTa

DATA SHOULD BE

THEa<15><12>

041040
006505

051117
051105
051117
042101
052122
052101
030440
000066
023460
023516
020124
020122
042122
020104
044524

041517

033467
023461
0460440
031040
020104
051440
047111
046040
033467

EMS2:

NUMBER OF

THE

CURRENTLY

SELECTED

HEADa

177776a

SET AFTER ¢ WORD READ STARTING AT LOC

177776a

6333
6334
6335
6336
6337

036106

036114
036122
036130
036136
036144
036152
036160
036162
036170
036176
036204
036212
036220
036226
036234
036242
036250
036255
036262
036270
036276
036304
036312
036320
036326
036334

036335
036342
036350
036356
036364
036371

105

040440
031040
020104
051440
047111
046040
033467
046447
042040
020124
020122
020122
042122
052122
052101
031440
000066
046447
042040
020124
043101
020062
051040
052123
043516
047514
033467
103
052116
046040
030060
051127
043101
020062
051040
012
123
047111
046040
047511
033467
105

023461
023516
020124
020122
042122
020104
044524
020124
033463
000
042524
043117
032040
020069
020107
020122
042122
006504

040524
020107

052122
052101
052101
033463
000
051117

041517
020116
033067
051122

LASCII

aCONTENTS OF

LOC 200000 WRONG AFTER 2 WORD READa<15><12>

LASCIZ

@STARTING AT LOC 177776a

EMSS:

LASCIZ

@ERROR AFTER 2 WORD READ STARTING AT LOC

EMSS:

LASCIZ

@"MEXO" DIDN'T CLEAR AFTER 2 WORD STARTING AT LOC 3777763

EMS6:

LASCIZ

@"MEX1"' DIDN'T SET AFTER 2 WORD READ STARTING AT LOC 377776a

EMS7:

LASCII

@CONTENTS OF

.ASCIZ

@STARTING AT LOCATION 3777763

LASCII

@ERROR RETURNING SECTOR

054105
042111
042523
042524
047527
040505
051101
040440
020103
033067
047117
020123
041517
030060
047117
042524
047527
040505

EMS3:

SEQ 0123

020107
041517
033467
054105
042111
046103
043101
020062
051440
047111
046040
033467

047105
020106
030062
053440
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

124

WS W

000066
052116
047440
020103
030060
043516
051105
051117
042101
051101
040440
020103
033067
051122
052106
053440
042522
040524

PAGE

033467
047503
051524
047514
030060
047522
052106
053440
042522
052123
043516
047514
033467

14:43

377776a

WOW

035700
035704
035712
035720
035726
035734
035742
035750
035756
035764
035772
036000
036006
036013
036020
036026
036034
036042
036050
036056
036064
036072
036100

22-APR-78

6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332

G 10

WYY

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

EM60:

LOC 400000 WRONG AFTER 2 WORD READ@<15><12>

TO PDP=11

MODE USING Aa<15><12>

036760

036766
036774
037000
037006
037014
037022
037030
037036
037037
037044

037052
037060
037066

051040
044516
041505
047524
030455
042504
043516

020062

053440

000
105
053440
043516
020124
051117
051105
042522
020107
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

052105
043516
047524
050040
020061
052440
040440
047527
044522

051125
051440
020122
050104
047515
044523
005015
042122
042524

051122
044522
052040
042523
051450
047522
042101
042524
041505
024523
044522
042111
042522
052040
020114
046517
046440
046525
020114
047117
042514
042527
046111
047117
020123
046505
044103
020104
043516
051105
046111
042514
044504
042510
000113
047525
052105
020110
020105
046102

051117
044524
051505
052103
000051
020122
047111
052123
047524
000
042526
023516
052524
020117
020060
052040
054101
005015
047117
051124
020122
020122
000
042524
043117
051117
047101
052504
050040
005015
053440
051040
043516
042040

023514
053440
051104
044504
042105

052523
047516
020124
042040
042440

046117
020124
044527
044522
040516

PAGE

125

SEQ 0124

.ASCIZ

82 WORD WRITEa

EM61:

.ASCIZ

@ERROR WRITING

TEST

SECTOR(S)a

EM62:

.ASCIZ

@ERROR READING

TEST

SECTOR(S)a

EM63:

LASCII

@DRIVE

.ASCIZ

aCYL ON CONTROLLER POWER

LASCII

@CONTENTS OF

MEMORY

.ASCIZ

aFAIL WHILE

READING

EM6S:

.ASCIZ

@'SUOL"

EM66:

LASCIZ

@'SUOL" NOT SET WITH DRIVE ENABLEDa

Il
sl o)

036376
036404
036412
036420
036426
036434
036442
036450
036456
036464
036465
036472
036500
036506
036514
036522
036530
036536
036544
036552
036557
036564
036572
036600
036606
036614
036622
036630
036636
036644
036652
036660
036666
036673
036700
036706
036714
036722
036730
036736
036744
036752

14:43

DIDN'T RETURN TO CYL O FROM THE MAXIMUMa<15><12>

e X )

6338
6339
6340
6341
6342
6343
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393

H 10
22-APR-78

[
XKoo
X )

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

:
EM64

FAILa

CHANGED DURING POWER@<15><12>

THE DISKa

SET WITH DRIVE DISABLEDa

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

6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411
6412
6413
6414
6415
6416
6417
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443
6444
6445
6446
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
044124
042526
052040

040505
054514
051447
051440
052111
053111
020124
042522
044522
051447
051440
052111
030461
052111
045503
051440
054503
0©51105
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
020124
042040
051440
020117
020104
000047
053525
052105
020110
020105
047524
042101
042524
053525
052105
020110
023440
020105
052517
052105
044514
005015
023501
026060
051040
020075
053525
052105
020110
036440
041440
040517
030040
052523
047516
035524
020101
052514
041440
040517
052523
042523
04412¢
020101
051107
020122
041440
040517
042525
052523

042523
044124

000
050127
020124
044527
044522
052105
051047
047117
023520
053440
051104
042523
023440
053457
000047
023520
053440
050122
051127
047514
023524
020054
042116
020123
040440
041520
000060
023520
053440
050122
031040
046131
051447
000
050127
020124
051040
020075
020105

I 10

22-APR-78

14:43

PAGE

126

SEQ 0125

EM67:

.ASCIZ

@'SUWP' NOT SET WITH DRIVE SET TO

"READ ONLY'a

EM70:

.ASCIZ

Q@°'SUWP' SET WITH DRIVE SET TO 'READ/WRITE'a

EM71:

_ASCII

@'SUWP' SET WITH RP11

.ASCIZ

QLOA'S = 0,

EM72:

.ASCIZ

Q@°'SUWP' SET WITH RPCA

2 & CYL LOA'S = 0d

EM73:

_ASCiZ

@'SUWP' NOT SET;

VALUE

EM74:

.ASCIZ

@'SUWP' SET WITH RPCA ONE GREATER THAN CYL LOA VALUEQ

EM75:

.ASCIZ

@'SUWP' SET WITH DRIVE LOA SWITCHES EQUAL TO SELECTED DRIVEA

'WRITE LOCKOUT'

SET,

CYLINDER®<15><12>

AND RPCA = 0a

RPCA

IN CYL LOA'Sa

046131
051447

050127
020124
051040
047117
040505
044124
046131
053040
000
050127

020124
0462040

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

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
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492

6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504
6505

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
040005
040012
040020
040026
040034
040042
040050
040056
040064
040072
040100
040106
040114
040120
040126
040134
040142
040150
040154
040162
040170
040176
040204
040212
040220
040226
040234
040242
040250
040256
040264

044522
040517
041524
050505
047524
041505
051104
051104
040510
042516
044514

104
044440
040523
104
052040
047440
103
046117
044524
052517
040504
046517
042440
000
106
047503
020105
020122
051117
040516
052116
046102
042447
0445064
051440
052111
042503
044047
042111
042523
044124
043517
051104
047125
040440
050040
043040
051447
047040
052105
020110
020105
053523
051505
052101

042526
051440
042510
040525
051440
042524
053111
053111
020123
047440
042516

044522
020123
042506
044522
046511
052125
047117
042514
042515
000124
040524
040520

051122

052101
050115
051105
046450
020131
042507
0462440
042105
051122
047104
052105
020110
000047
023505
023516
020124
023440
000047

053111
040523
052106
053517
044501
053525
052117
053440
051104
047514
052111
043440
051105

046040
044527
020123
020114
046105
020104
000105
020105
047507
043106
000

J 10

22-APR-78

14:43

PAGE

127

SEQ 0126

EM76:

.ASCIZ

QDRIVE HAS GONE OFFLINER

042526
047125
000
042526
042105
000
051124
020122
020104

EM77:

_ASCIZ

QDRIVE

EM100:

.ASCIZ

@DRIVE TIMED OuTa

EM101:

.ASCIZ

QCONTROLLER TIMED OUTa

041440
042522
051117

EM102:

.ASCIZ

QDATA COMPARE ERRORA

020101
051101
047522
046505
040515
042515
040516
000051
020047
052047
053440
053447

EM103:

.ASCIZ

QDATA COMPARE ERROR

EM106:

.ASCIZ

Q@'ERR' DIDN'T SET WITH

042040
020124
044527
051120

EM107:

.ASCIZ

Q'HE'

020105
042506
051105
051105
000114
023520
051440
052111
053111
020101
044103
042522
052040

EM112:

_ASCIZ

QDRIVE UNSAFE AFTER POWER FAIL®

EM113:

_ASCIZ

@'SUWP' NOT SET WITH DRIVE LOA SWITCHES GREATER THAN SELECTED DRIVEa

IS UNSAFEa

(MEMORY MANAGEMENT ENABLED)a

DIDN'T SET WITH

'WCE'd

'PROG'd

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

6506
6507
6508
6509
6510
gg};
6513
6514

040272
040300
040306
040314

040510
042514
042040
000

020116
052103
044522

040315

PAGE

128

SEQ 0127

MESSAGE LINES

040520

051104

DH1:

.ASCIZ

GQRPADRa

DH2:

ASCIZ

QTEST #

ERR PC

DRV #

RPDS

RPER

RPCS

DH2A:

.ASCIZ

QaRPBA

RPCA

RPDA

RPM1

SUCA

SILOa

DH5:

.ASCIZ

QTEST #

ERR PC

DRV #

PATRN # RPDS

RPER

RPCSa

DHS5A:

.ASCIZ

QaRPWC

RPBA

RPCA

RPDA

SUCA

SILOa

DW11:

_ASCIZ

QTEST #

ERR PC

DRV #

EXPT'D 1ST WORD 2ND WORDA

DH12:

.ASCIZ

QTEST #

ERR PC

DRV #

EXPT'D

040323
040330
040336
040344
040352
040360
040366
040374
040402
040410
040416
040424
040432
040440

126
020043
050040
053122
051040
020040
020122
041520
051040
050122
020040
020040
040504
050122

051505
042440
020103
021440
042120
051040
020040
020123
053520
040502
050122
020040
020040
030515

020124
051122
042040
020040
020123
042520
051040
020040
000103
020040
040503
050122
020040
020040

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

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

020040
047514
126
020043
050040
053122
050040
021440
020123
042520
051040
050122
020040
020040
040503
050122
020040
020040
040503
044523
126
020043
050040
053122
042440
020104
047527
042116
000104
042524
020040
041520

020040
- 000
051505
042440
020103
021440
052101
051040
020040
020122
041520
041527
050122
020040
020040
040504
050122
020040
020040
047514
051505
042440
02010%
021440
050130
051461
042122
053440

044523
020124
051122
042040
020040
047122
042120
051040
020040
000123
020040
040502
050122
020040
020040
030515
052523
020040
000
020124
051122
042040
020040
023524
020124
031040
051117

052123
051105
020040

021440
020122
051104

040446

14:43

122

000

6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529

22-APR-78

042523
042105
042526
;'DH"

040322

K 10

020040

052523

RPW(Ca

040503

RPM1

RECV'D

LOCNa

C
C

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

6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573
6576
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

041110
041116
041122
041130
041136
041144
041152
041160
041166
041167
041174
041202
041210
041216
041224
041232
041236

041244
041252
041256
041264
041272
041300
041306
041314
041322
041326
041334
041342
041350
041356
041364
041372
041375
041402
041410
041416
041424

020126
054105
020040
042047
047103
124
020043
050040
053122
051040
020040
020122
041520
020040
020040
020040
020040
054105

020040
046101
042524
020040
041520
020126
052523
020040
000
126
020043
050040
053122
042440
020104
023526
042510

041440
052116
020040
020040
020040
020040
054105
020040
0486101
042524
020040
041520
020126
042523
020040
051117
122
020040
020122
041520
051040

020043
052120
042522
020040
000
051505
042440
020103
021440
042120
051040
020040
000123
020040
020040
020040
020040
052120
041501
005015
052123
051105
020040
020043
040503
052523
051505
042440
020103
021440
050130
051040
000104
042101

047117
000123
020040
020040
020040
020040
052120
041501
005015
052123
051105
020040
020043
052103
042523
000
042120
051040
020040
020123
053520

L 10

22-APR-78

14:43

PAGE

129

SEQ 0128

020040
042047
053103
047514

020124
051122
042040
020040
020123
042520
051040

DH14:

_ASCIZ

QTEST #

ERR PC

020040
020040
020040
020040
042047

DH16:

.ASCII

.ASCIZ

QTEST #

ERR PC

DRV #

RPDS

RPER

RP(CS3

EXPT'D

ACTUALa<15><12>

DRV #

SUCA

SUCAa

DRV #

EXPT'D

RECV'Da

EXPT'D

ACTUALa<15><12>

052524

021440
020122
051104
020040
020040
040503
020124
051122
042040
020040
023524
041505

DH25:

.ASCIZ

QTEST #

051105

DH25A:

.ASCIZ

QHEADER CONTENTSa

020040
020040
020040
020040
042047
052524

DH43:

.ASCII

.ASCIZ

QTEST #

ERR PC

DRV #

SECTOR

SECTORa

.ASCIZ

@RPDS

RPER

RPCS

RPWC

RPBA

042524

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
6624
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
041462
041470
041476
041502
041510
041516
041524
041532
0461540
041546
041554
041562
041570
041576
041604
041612
041620
041626
041634
041637
041644
041652
041660
041666
0461674
041702
041710
041716
041724
041732
041740
041746
041754
041762
0461770
041776
042004
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
062047
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
062047
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

DH43B:

LASCIZ

020040
020040
020040
020040
042047
052117
042523
005015
021440
020122
051104
020040
020105
052116
042101

DH4S:

LASCII

020123

042520

051040
020040
000101
020040
020040

m10
22-APR-78

14:43

PAGE 130

dHEADER CONTENTSa

SECTORA<15><12>

EXPT'D

'sor’

COUNTER

ADDRa3

EXPT'D

RECV'Da<15><12>

DATAa

.ASCIZ

aTEST #

ERR PC

DRV #

VALUE

DH4SA:

.ASCIZ

aRPDS

RPER

RPCS

RPDA3

DH46:

LASCII

020040
020040
020040
052120
042522
005015
021440
020122
051104
020040
051117
040524
040504

SEQ 0129

.ASCIZ

dTEST #

ERR PC

DRV #

SECTOR

DATA

020124
051122
042040
020040
023524
041505

DH47:

.ASCIZ

9TEST #

ERR PC

DRV #

EXPT'D

RECV'Da

020040
051105
050122
020040
020040

DH47A:

.ASCIZ

aRPDS

RPER

RPCS

RPCA

RPDAQ

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

101

020040
020101
052101
044513
020040
032122
040520
044513
020040

040504

051505
042440
020103
021440
042120
051040
020040
020123
053520
051040

020124
051122
042040
020040
020123
042520
051040
020040
020103
041120

DHS51:

LASCIZ

STEST #

ERR PC

DRV #

RPDS

RPER

RPCS

RPW(

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
020040
012
04210¢
042040
020040
000101
040520

021440
020122
051104
020040
020040
051105
050122
020040
000
020124
051122
042040
020040
020123
042520
051040
020040
000101
021440
020122
051104
051440
051124
020114
051124
020040
020040
052124

DH63:

.ASCIZ

JTEST #

ERR PC

DRV #

RPDS

RPER

RPCS

SUCAa

DH71:

LASCIZ

aTEST #

ERR PC

DRV #

RPDS

RPER

RPCS

RPCAa

DH102:

.ASCIZ

aTEST #

ERR PC

DRV #

TRK

SEC

DH102A:

LASCII

600D

BAD@<15><12>

044513
020040
032522
042120
044513

PATTERNa

020122
052101
042040

031522
040520
044513
020040
031522
042120

STRT CYL

020040
042117
040502

SEC

RPBA3

LASCIZ

8ADDR

DATA

DATAQ

LASCIZ

SKIPAR3

KIPARS

6707
6708
6709
6710
6711
6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729

124
020043
050040
053122
051040
020040
020122
041520
051040
042524
020040
041520
020126
041505
020124
020040
020113
042523
020040
051105
020040
020040
020040
006504

050122

oF oF

6704
6705
6706

050122

020040
020040
051503
052523

SEQ 0130

6702
6703

020040
000
124
020043
050040
053122
051040
020040
020122
041520
051040
020040
000101
042524
020040
041520
020126

PAGE 131

DH103:

KIPDR3

KIPDR4

KIPDRSa

6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701

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

14:43

2. 02:02.0: .0 o

6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687

N 10
22-APR=-78

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

6730
6731
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
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785

042632
042640
042645
042652

032122
042120

042672
042700
042706
042714
042717
042724
042732
042740
042745
042752
042760
042766
042774
043000
043006
043014

126
046101
020104
042101
042101
020040
020040
040524
124
041440
042522
051117
125
051523
043101
020063
042511
042522
052523
052506

043026
043034

041440
000072

042660
042666

043021

122

020040
032522
051 1M
043440
020040
005015
051104
040504
020040
000
052117
046517
042440
035123
051516
052506
042524
042522
000123
051124
042503
006514
052105
052517

044513
000
052524
047517
041040

DH103A:

020131
051523
012
054522
052116

14:43

PAGE 132

LASCII

aVIRTUAL GOOD

BADa@<15><12>

.ASCIZ

adADDR

DATAS

DH105:

LASCIZ

@TOTAL

DH110:

.ASCIZ

SUNSCESSFUL AFTER 3 RETRIESa

DH111:

LASCII

JRETRY SUCESSFULa<15><12>

LASCIZ

dRETRY COUNT:a

020040
040524
040504
046101
040520
051122
000
042503
020114
020122
051124

B 1
22-APR-78

DATA

COMPARE ERRORS:a

.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
003350
001356
001160
001124
001160
001124
001160
001334
001160
001210
001160
001124
043656
001160
001124
001334

RPADR

.WORD

SRPBA,SRPCA,SRPDA,SRPM1,SSUCA,$SILO

.WORD

$TMPO,SERRPC,CHKDRV,PATNUM,SRPDS,SRPER,SRP(S

.WORD

SRPWC,SRPBA,SRPCA,SRPDA,SRPM1 ,SSUCA,SSILO

DT11:

.WORD

$TMPO,SERRPC,CHKDRV,$GDDAT
,BUFFER ,BUFFER+2

DT12:

.WORD

$TMPO,SERRPC,CHKDRV,$GDDAT ,$BDDAT,$BDADR

001176
001340
001176

DT14:

.WORD

$TMPO,SERRPC,CHKDRV,SRPDS ,SRPER,SRP(S

DT16:

.WORD

$TMPO,SERRPC,CHKDRV
,MAXCYL ,$SUCA

001176

DT25:

.WORD

$TMPO,SERRPC,CHKDRV,$GDDAT,$BDDAT

043662
001176

DT43:

.WORD
.WORD

BUFFER ,BUFFER+2 ,BUFFER+4
$TMPO,SERRPC,CHKDRV,SGDDAT
,BUFFER+4

.WORD

SRPDS,SRPER,SRPCS,SRPWC,SRPBA ,SRPCA,SRPDA

001176
001340

001346
001354
001116
001334

001350
001356
001176
001336

001344
001352

001346
001354

001116
043656
001116
001126
00111¢
001336
001116

001176
043660
001176
001122

001354
001116
001126
043660
001116
043662
001336

DT1:
DT2:

.WORD
.WORD

001116
001336

001340

DTS:

$TMPO,SERRPC,CHKDRV,SRPDS ,SRPER,SRPCS, SRPW(

SEQ 0131

CZRPY-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
CZRPYD LN
8
14:42
22-APR-7
ERROR MESSAGES

001344

043660 043662
001116
001176
001124
001126 001122
_ 001336 __001340
001334
001160

007 350

001160
001120
001160
001124
001334
001346
001160
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

001176
001126
001176

DT4S:

.WORD
.WORD

-WORQ _ _$RPDS SRPER SRPCS,SRPDA.

...

. ... ..

$TMPO,SERRPC,CHKDRV,$GDADR,$GDDAT,
SBDDAT

DT47:

.WORD

$TMPO,SERRPC,CHKDRV,$GDDAT
,BUFFER

.WORD

$RPDS,SRPER,SRPCS,SRPCA,SRPDA

001340
001176
001340

DTS51:

.WORD

$TMPO,SERRPC,CHKDRV,SRPDS ,SRPER,SRPCS,SRPW(C , SRPBA

001176
001340

DT63:

.WORD

$TMPO,SERRPC,CHKDRV,$SRPDS ,SRPER,SRPCS,$SUCA

001116
001336

001176
001340

DT71:

.WORD

$TMPO,SERRPC,CHKDRV,SRPDS ,SRPER,SRPCS,SRPCA

001116
025422
001204
001124
001116
025422
001204
172350
172310
001124

001176
025426

pT102:

.WORD

$TMPO,SERRPC,CHKDRV,CMBUF
,CMCYL ,CMTRK, CMSEC ,PATNUM

DT103:

.WORD
.WORD

$BDADR,SGDDAT,SBDDAT
$TMPO,SERRPC,CHKDRV,CMBUF
,CMCYL ,CMTRK,CMSEC ,PATNUM

.WORD

KIPAR3,KIPAR4
,KIPARS ,KIPDR3 ,KIPDR4 ,KIPDRS

.WORD
.WORD
.WORD

$BDADR,$GDDAT,$8DDAT
ERCTR

001126
001176
025426
172352
172312
001126

DT104:
DT105:
DT111:

RETRY

DF2:

.WORD
.BYTE

000002
007

DFS:

.WORD
.BYTE

.BYTE

010

.WORD

.BYTE
.WORD
.BYTE
.BYTE

DF11:

.WORD

O—-2—

000002
007
000
040410
006
000

OODONN

.WORD
.BYTE
.BYTE

000001

_ _...

.WORD

DF1:

043542

SEQ 0132

DT46:

000001
001
000

040552
007
000

PAGE 133

BUFFER,BUFFER+2 ,BUFFER+4
$TMPO,SERRPC,CHKDRV,$GDDAT,$BDDAT,
SBDADR

:"DF' BLOCKS

043534
043535
043536
043540
043541

14:43

001346

ONO =N

6835
6836
6837
6838
6839
6840
6841

001342
001350
043656

6786 043244
6787 043252
6788 043254
6789 043262
6790
043270
6791
043276
8792 - 043304
6793 043306
6794
043314
6795
043322
6796 043330
6797 043334
6798 043342
6799 043346
6800 043354
6801
043362
6802
043366
6803 043374
6804
043402
6805
043404
6806
043412
6807 043420
6808
043422
6809 043430
043436
6810
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

cn
22-APR-78

000003
006
000
041375
005
000
041462
003
000

DF43:

043572
043574
043575
043576
043600
043601

000002
006
000
041637
004
000

DF&S:

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

DFS53:

043621

000001
005
000

.WORD
.BYTE
.BYTE

043622
043624
043625

000001
007
000

DF63:

.WORD
.BYTE
.BYTE

043626
043630
043631
043632
043634
043635

000002

DF102:

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

043636
043640
043641

000003
010
200

DF103:

.WORD
.BYTE
.BYTE

010

200
042514
000
000

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

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

H25A

F
W

H43A

H4SA

Own—

O0o—

H4T7A

ON—

043604

043556
043560
043561
043562
043564
043565
043566
043570
043571

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

OoOWwWwoowvmn

DF25:

owgomooou

000002
005
000
041236
003
000

oroooNN

043546
043550
043551
043552
043554
043555

.BYTE
.BYTE

oOWVoowvwNn

006
000

OOoODMNEN

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
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886
6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897

043544
043545

6842
6843

D 1
30A(1052)
22-APR-78

NOW

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

14:43

PAGE

134

SEQ 0133

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

6913
6914

6915

€916

6917
6918
6919
6920
6921
6922
6923
6924

042566
006
000
042645

043652
043654
043655

000001
003
000

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

000
000

DF104:

.WORD
.BYTE
.BYTE

PAGE 135

SEQ 0134

DH103

6
0
DH103A
0
0

—

043642
043644
043645
043646
043650
043651

14:43

6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910
6911
6912

EN
22-APR-78

3
0

.EVEN

043656
043656
043664
043670
043676
043704
043712
043720
043726
043734
043742

005015
054520
005015
042455
052103
020114
020103
042101
042524
006524
000001

;BUFFER STARTS HERE

BUFFER=,

041412
042055
050122
043040
047511
047514
020046
053457
052040
005012

051132

030461
047125
040516
044507
042522
044522
051505
000

TITLE:

LASCII

<15><12><12>aCZRPY=Da

LASCIZ

<15><12>3RP11-E

.END

FUNCTIONAL

LOGIC

& READ/WRITE

TESTa<15><12><12>

BPTVEC= 000014

UFFER= 043656

BUSADR

001216

|BYPASS

001200

CHKDRV

001176

CHNGAD

HNGPM
HNGPT

IR
CKSWR =
CK.CHR
CK.NUM
(K.0CT
CLEAR =
CLRP

031640

031406
031565

023120
104407
(027122
027136
027072
000001
025654

1059#
1058#
1081#
1080#
1079#
1078#
10774
10764
1075#
10744
12474

4113
1090#
2419
2771«

3137
3495

1237#
12304
3308+
1229#

3840
6766
6808
5549
5518
5541

4888
4032

56154
3743
S597#
1151#

2387
2768

5200+

5201+

5202

5205

5207+

5208+

2313

2334
2451
3721

3750
2530
3773

4879
2619

4921

5068
2753

5494
2848

5512
2909

2976

3094

3170

3300

2404
3614

1083
1082
1081
1080
1079
1078
1077
1076
1075
1074

2814
2660
2933
2505

1329
1330
1331
1332
1333
1334

4036

5084

2703
5473

AD A

5191

3934

5379

3905

4052

4645

3499+

3500+
a3

3501+
5689#

3502+

3503

3523

3563

5098

5105

2470
2795
3192+
4968
203+
2281+
3477
2368+
3848
6772
6812
5903#
S875#4
58954

2495+
2801
3193«
497
2205+
2412+
3622+
2372«
3910+
6774

2546
2825+
3194

2583
2826+
3314
2210+
2538+
3781+
2380
3917
6778

2585
2827+
3331
5159
5427
2627+
5031
3663
3929
6780

2588
2874
3343
5411
5429+
2711
5057
3670
3931+
6783

2590
2890
3351
6772

2636
2894
3360
6782

2686
2992
3364
6783

2720
3024
3395+
6788

2769+
3074
3396+
6795

2770+
3110
3397
6912#

2761

2856+

2917«

2984

3102+

3178+

3792
3933+
6789

3800
3934
6793

3807
3937
6795

3815
3949
6799

3825
3974
6802

3833
6761
6805

5488

5532

5544

5558

5568

5578

5632#

4854

4855

5370
2501
2923

5374
2545
2991

2561
3008

2573
3045

2634
3064

2650
3113

2674
3128

2717
I

4124

49104
4051

5636
5440
5634
2430
2418
2785

1083#
10734
1072#
1071#
1070#
10694
1068#
1067#
1066#
1065#
1064#
1082#
1063#
1062#
10614
1060#

5190

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

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
BIT13 =
BIT14 =
BIT15 =
BIT2
=
BITS
=
BIT4
=
BITS
=
BIT6
=
BIT7
=
BIT8
=
BIT9
=
BLKS14
BLNKS2

3498+

BITO
BITO0
BITO1
BIT02
BITO3
BITO4
BITOS
BIT06
BITO7
BITO8
BITO09
BIT1
BIT10
BIT11
BIT12

3469

3497+

1240#
1178#
12934
1319#

Adh Al

001224
020000
001360
001400

SEQ 0135

ACTMEM
AIE
=
ATABIT
BITS

PAGE 137

F 1
CZRPY=-D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22=APR-78
14:43
CZRPYD.P1
22-APR-78 14:42
CROSS REFERENCE TABLE =-- USER SYMBOLS

4920
4626
5652
5466

5647
2431
2472
2805

4995

2208+
2459+
3729+
2378
3915
6776

4998

48344

2481
2824

2489
2862

F&4S
F&7
FS

DFS1
DFS3
F63

DH1

H102
H102A
H103
H103A
H105
H11
H110
H111
H12
H14

H16
H2

DH2A
H25

043546
043556
043572
043602
043532
043612
043616
043622
040315
042414
042514
042566
042645
042717

040637
042745
043000
040720
040775

041052
040323
040410

041167

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

6812
5274
6808

5277+
6812

5293

53144

53164

6808

6812

5317#
2345

6808
2367+

6812

2566
3050
3644

2577

2643
3117

5267
5296
5301
5300
2211+

5298+
5304
5302+
2325

2484
2931
3537

4199
4170

2503
3000
3547

4209
4209

2554
3013
3574

1212

2238
2178

68234

56844

52154

2150

6888#
68954
6905#
1723
2037
1673
1896
1861
68524
68624
68694
1694
1954

1962
2066
65134
2134
6891
6898
6901
67404
1765

67440
67494
2028
1773

1738
2044
1680
1910
68454

2007
1977
1992

2073

1767

2051

1701
1939

1775

2058
1731
1969

2014
1984
6880#
2080

68344
68764

1794

2087

3066
3653

1782

2094
1745
2000

5038¢

365C

3756

3799

3814

2658
3131

2680
3200

2778
3221

2788
3248

2808

2831

1796

1817

1875

1882

1924

5056

2157

2164

2101

2108

1873

1759

1789

3335

3354

1831
68414
1838

2122

2185

1846

1853
6827#

1868

1880

2035

2042

2049

2056

1851

1866

68844

67054

65504

6559
1780

2190

1815

65674

1829

1671
1894

1678
1908

1699
1937

1729
1967

2099

1859

1960

1990

6589#

6830

3631

5338#

2162

2155
6575#

3569

1757

1787

2106

1808

2113

1836

2120

1844

2183

6515#

1005#
1659

3544

AR
LA LAt tA LA

DF25
DF43

043522

5266+
5267#
5265+
12334
2363
2475
2883
3399
998#
999#
3594

3527

e
e = r=rer=rmrre

DF2

1269#

3391

re—y

000015
000200
ATCHP
024614
DISP = 177570
F1
043516
DF102
043626
F103
043636
F104
043652
F11
043542
CR
CRLF

5264+
5280#
5252
5286
5323
5294

3327
5370#
6808
5272
5315#

025430
025420
025422
025250
025130
025432
025536
025374
001320
025424
025166
025426
001206
027377
023664

3342

3242
3847
53184
5263+
5303«
5291
52624
5322#
5336
5305#
3382
5295+
5297
5299+
2206+

SEQ 0136

N =N
—
— 00 — 00
— O
N
VoS~

CMBUF
CMCNT
CMCYL
CMDAT
CMPAR
CMPRT
CMPRT1
CMPRX
CMP.CT
CMSEC
CMSTR
CMTRK
CNTRLC
COMMA
CONRDY

3207
3832
5269+
5262+

PAGE 138

6 11

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22=APR-78
14:43
CZRPYD.PT
22-APR-78 14:42
CROSS REFERENCE TABLE -- USER SYMBOLS

H 1
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.P
22-APR-78 14:42
CROSS REFERENCE TABLE == USER SYMBOLS

DH25A
DH43
DH43A
DH43B
H4S
HG5A
H46

H47

H47A
HS

DHSA

H51
DH63
H71

DISPLA

041236
041256
041375
041462
041502
041637
041674

65964
1901
6613#
6622#

66254
6865
66464

042100
040465

6669%
1685

6872
1692

042145
042242
042327

1945
2020
2064

1952
66874
2071

3307+

040552

001142

1930

65414

12128

3177+«

6837

2238+

000174
002500

DRIVE
DRSTAT

031377
027236

5497
2298

022666
001306
031352
005004

3664
1262#
5485
2371

4857
2369+
58694
23784

001312
001370

12664
;g?gl

2329+
2307

RVBAD

001310

RVRDY

023546

DRVSEL
DRVSTA

2085

66964

3476+

3621+

3728+

2246+

2411+

2458+

2537+

3780+

4035+

2626*

4666+

2710+

2760+

2855+«

2916+

2983«

3101+

2541+«

2552+

2462+

2473+

2482+

2540+

3783+

3784+

4885

4,887

4899

4900

4901

4902

5067

5197«

5225

2278+

2375

4921+

2867

2877

2564
2786+
2986*
3129+«
3394+

1263#

2390

2575+
2806+
2987+«
3180+
3479+
58734
56644

S6794

2291

043036
043422
043450
043504
043512
043126
043514
043142
043156

1658
2128
2135
2142
2149
1714
2177
1722
1737

67604
68084
68124
68174
68184
1766
68194
2029
1774

043172
043040

1751
1665

67784
1672

043204

2078

2461+

12604

043224
043262
043306
043322

66764

2423+

1004#

T43
T45
T46
147

1682

2415+

= 177570

D125

1975

2414+

DSWR

T16
T2

65324

2388+

2338

T
T102
T103
T104
T105
TM
T111
T12
T14

2012

2246
2378+

027345
001304

2005

9624
16294

DRVTST

RVTYP

SEQ 0137

66624

DISPRE
PB

DRVINT
DRVMSK
DRVNM
RVOK

139

6848
6599#
6855
6858

1915
66414
1922

042031

PAGE

2093

1888

1802

1902
1916
1923
1931

1211

2156
1895

1860

67834
67894
67934
67954

2629+
2828+
2997+«
3181+«
3480+

48654
2370

2630r
2829+
2998+
3198+
3535+

2641+
2858+
3009+
3219+
3545+

2678+
2859+
3010+
3245+
3572«

2713+
2865+
3046+
3246+
3624+

2714+
2869+
3048+
3310+
3625+

2763+
2919+«
3063+
3332+«
3651+

2764+
2920+
3104+
3333«
3731+

2775«
2927+«
3105+
3352«
3732«

2776+
2929+
3114+
3392«
3755+

4912
2373
3758

5012#

5030

2334+
2332

2341
3665

2370
4849+

2375«
4850+

3968
4851+

5479+
4B52+

2313

3750

4848+

4879+

5068

5482

2237

2722«
2875+
3055+
3311«
3642+«

5494+
4B68r

5512+
4876+

4914

5495

5498

67724
67744
1781

2163

2191

67764

1816

1823

1830

1874

1881

2036

2043

2050

2057

1679
1909

1700
1938

1730
1968

1744
1999

1758
2100

1788
2107

1809
2114

1837
rard

1845
2184

1852
67614

1867

1961

1795

1991

6780#

I 1
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.PN
22-APR-78 14:42
CROSS REFERENCE TABLE == USER SYMBOLS

037735
037762
040005
040064

3
M112
M113
M2
M3
M14
M5
M6
m7z
M2
M20
m21

032570
040154
040212
032663
033014
033137
033173
033223
033260
032235
033312
033425

M107

040120

M22
M23
M4
M25
M6
M7
M3
M30
M31
M32
m33
M34
M35
M36
m37
Mg
M40
M4l
m42
M43
Mé4
M4S

033535
033572
033641
033716
033766
034056
032266
034107
034142
034173
034252
034363
034457
034561
034642
032357
034676
034733
034764
035042
035112
035165

M47
M5
M50
m51
M52
M53
M54
M55
M56

035316
032414
035445
035524
035620
035704
036013
036072
036162

Mé&6

035245

WNONO

Mm101
Mm102
M103
M106

2021

- WNW OV NOONN =S

043366
043404
000030
032173
037715

1686
1946

b
e
N N = NN N NN
NN~ NNNNNN
= =N
b
NONO~ VIS WN—=0000—=0"NWN
—

DT63
DT
EMTVEC=
EM1
EM100

043072

043346

DTS

DTS5

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

1693
1953
68024
2072
2223+
59474
64644
64674
64714
64754
64834
6488#
5992#
64934
64984
60024
6018#
60334
6038#
60434
60484
5953#
60534
60664
60804
6085#
60924
61004
61074
61174
5958#
61224
61274
61324
61404
6153#
61644
61764
6185#
59684
61904
61954
62004
62084
62154
62234
62324
62394
59734

6255#
62634
62744
62834
62954
63034
63134

67664

2006

2013
1983

67994

2079
2224+

2086

68054

1976

PAGE

140

SEQ 0138

J 1"

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.P1
22-APR-78 14:42
CROSS REFERENCE TABLE == USER SYMBOLS

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
000004

005306
005722
011530
012060
012712
013572
014616
015302
015620
016604
006400
007056
007306
010032
010366
010610
024336

024376

001202

1988
1691
1996
2004

201
2018
2026
2034

2041
2048
1698

2055
2062
2070
2077
2084

2091
2098
2105
5292
5555
5463
2327
5517
5476
55184
5535
5547
5565
5575
5529
5271«
1180#
2820

3337

1086#
4764+
2412

2459
2984
3102
3178
3308
3477
3622
3729
3781
2538
2627
271
2761
2834
2917
3047
3115

12314

PAGE

141

SEQ 0139

63234

5980#
63374
63484
63534
6358#
6371#
6383#
63894
63954

59854
64034
64104
64234
64304
6438#
64474
64574

64614

53554
5928#
5865#
54634
5521
54794

55414
55494
5933#
59374
58894
5312#

2477
2833
3356
2235

4773
2429

2513
3005
3141
3205
3402
3571
3669
3760#
3935
2559
2648
2733
28364
2856
2936
51434
5158#

5467
5552
5504

5471
5586#

5545

5350+

2486
2885
3401
2236+

4783

2434
25164
3079
31454
3239
34044
35974
36914

5355
2509
2940
3539

2247

4784+
24394

6818
2556
3002
3549
4632
5256+

2568
3018
3576

4633«
5260

3082#

3262

32664

3951#
2571
2685
2738

2582
2688
27404

2596
26924

2882
2941

2896
29434

2898#

2604#

2579
3052
3646

4635+
5445

2645
3068

2664

119

2682
3133

2737
3202

2780
3223

2789
3250

4638+
5446

4737
5448+

4738
5450+

4742+

L4747

4759+

K11
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.PT
22-APR-78 14:42
CROSS REFERENCE TABLE == USER SYMBOLS
FRSTER

GETADR
ETBUF
NS

025412
026150
024502
LA
A A2

OMEM

104406
004000
040000
001234
000015
000011
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

RETRY
AXCYL
AXMEM

001316
001210
001230

AXWC

001264
001302
000020
000040
001222
000250
010000
023346
032162
027433
027456

GTSWR

DR
HE
IMEM
H?HSEK=

ICNT
IDE
=
INCADR
INCSEC
INCTRK
IOTVEC=

IPARO=

IPAR1=
IPAR2=

IPAR3=

IPAR4G=
IPARS=
IPARG=

IPAR7=
IPDRO=
IPDR1=
IPDR2=
IPDR3=

IPDR4=
IPDR5=
IPDR6=
IPDR7=

?RFLG

IMIT
MT8K
ODSEC

EMSIZ
EX0
EX1

MACTV
MVEC
ODE
OVLDR
RPADR

SG15A
SG158
SG15C

027617

5270+
2288
3567

961
4836
2260
11764
11794
12424
1157#
9964
1236#
11744

3552

12454

3
31#
1
144
1
1
1
1
1o

53114
54274
51904
3966
4837

48324

2775
2734
3489+
2388

5322

5334+

5209
3972
4838

3980

3997

4826

2875
2937
3493+

2997

3009

3494

5202

5205

2828
2817

3490+
2865

4827

PAGE 142

SEQ 0140

4828

4829

4830

4832

4834

4835

4168

4209

3595
3505+
3504+
2221+
3209+
3210+
3211+
5236+
5238+
5248+

5092#
3511+

4723
5219+

4751

3240+
6815
6815
6815

5220+

3208+
3212+
3213+
3214+
5242+
5243+
5249+

4767
5239+
5240+
5241+
6815
6815
6815

5221+

3215+
4979
4203
5268+

5244+
4984+
4209

4990

5006+

53134
2274

5338
5538

5340+

3495+

3496+

3497

3498

3518

3628+

3629+

3634

3641

3679

5207

2293«
3238
5399+«
2272
3636
3226
3230
3486+

2654
3489
5400+
5405+
3682
3245
3257
3492+

2670
3490
5401+
5410+
5388+
3253

3638
5389+
5402+
5411+
5407+

5481+
5390+
5403+
5413+

5391+«
5404+
5416+

5484+

5562
5392+
5408+
5418+

6778
5393«
5409+
5523

5394«
5410
5536

5395+

5396+

5216

5251

5306

5324

5335

2828

2875

2997

3009

3332

2272
5129#
3488+

3584
2290+
3186
5398+
2271
3494
2927
2927
2286+

2775
3627
59424
5691#
56954
5712#

3508+
2222«

49654

5109
5116
5218+

CZRPY-D§1$P11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD
22-APR-78 14:42
CROSS REFERENCE TABLE == USER SYMBOLS

MSG150
SG16A
SG168

SG17A
SG178
SG17¢C
SG17D
SG17E
SG17F
SG176
SG17H
SG171
SG17J
SG17x

XWRDS
ONE
FFLIN
NEPAT
NL INE

PRSEL
PAKS 12

027652
027743
030255
030317
030362
030441
030464
030506
030542
030577
030714
031014
031037
031176
031447
027372
027312
031713
027262
001260
001244

ATNUM

001204

PATSEL
ATTRN
AT.PT

024050
001300
001440
001500
001540
002200
002240
002300
002340
002400
002440
001600
001640
001700
001740
002000
002040
002100
002140
177772
000240
000000
000040

ATO
AT
AT10
AT
AT12
AT13
AT14
AT15
AT2
AT3

RS
R6
R7
S
SW

WRVEC

nunnnuuennuennnn

AT4

ATS
AT6
AT7
AT8
AT9
IRQ
IRQVE
RO
R1
R2
R3

000100
000140
000200
000240
000300
000340
177776
177776

000024

3659
3734
3740
3785
3790
3791
3806
3824
3839
3858
3877
3879
3911
3952

5522

2343
2319
5553
2310

12494

12444
5102+

57174
57284
57644
57714
ST774
57854
57894
57924
57974
5802#
58164
3916
5831#
58484
5881#
5683#
5500
5911
56684
2267+
3523+
5105+
2468+
5173
3566
2275+
5177
1355#

3936

3521
3524+
5106+
2492
5278
5077#
5084
5281

3561
3563

5092
3564+

5585+
5064+

2512
6766

2514+
6808

2550+
6812

2287+

3705+

5548+

16104

1389#
14064
14234
14404
1457#
14744
14914
1508#

1001

SEQ 0141

56724

15934

2277+

143

5827#

13724
1525#
15424
1559#
15764

3633

PAGE

5065+

5070+

5071«

5094

5096

5098

5100

2637+

2651+

3520«

3560+

5078+

5079

5081+

mn1
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.P1
22-APR-78 14:42
CROSS REFERENCE TABLE =~ USER SYMBOLS
RDCHR = 104410
RDERR
001274
DLIN = 10441

4556
1255#
3741

4L835#

3797

3812

RDSEK = 000005

11538

2423

RDSW
DY
READ

3818
11754
1158¢

38244
2425
2876

016056
= 000200
= 000017

5519
3246

ESLDR
023452
ESREG= 104413

2264
4136

ETRY

001314

12674

RPBA
PCA
RPCS

= 000010
= 000012
= 000004

RESTAR
004762
ESVEC= 000010
RPADR

001324

2372¢
1087#

3922

3942

48364

5438

5464

5486

2575

2678

2722

2726

2786

2929

3010

3055

3063

3129

3219

2433

2879

5038

5045

3692
4860

49894
4904

5007

5138

5153

5166

5185

5305

3588

6819
2712

2762

2857

2918

2985

5447

3103

6760

3179

3833+«
5045

3848+
5370

3915+
5374+

3949+

2723

2777

3572

3578

3651

3583«

2874+
3861+
2425
4855+
3017
4866
4951
3658
4957

4892+
3867+«
26430+
4B6S5+
4894+
4870

4954
3889+
2431+
4885+
4956
4872

4844k

5480

4847
4845
2873+
56754
56774
2424

4891+

4953

2474

3309

001332
001326
000006
027327
027336
022770

12764
12754
11394
2315
2317
2389

004740

3565+«

3887

2460

PPRIO
PVEC
PWC
=
P02
P03
P11

STRT2

4009

3859

2413

000014
000000
000002
022566
000016
000020

RSTRT1

3598
4838#

3845

5550

2386

RPDA
=
PDS
=
RPER
=
PINIT
PM1
=
PM2
=

= 000022

3352

11454

2787
3220

2368¢

3478

2807
3247
2377

SEQ 0142

3830

5542

12744
11404
11414
1138¢
4854+
1142#¢
11364
11374
2289
11434
11444

PM3

5530

PAGE 144

3623

2830
3334

5556

3584

5566

5576

2539

2628

3782

4853

3896+
2726+
4899+

3914+
2876+
4900+

4893+
3670+
4903+

4955
3800+
4952

3815+
5038

4874

4877

4950

5012

5019

2483

2502

2553

2565

2576

2642

2657

2679

3116
3757

3130
48844

5158
2578
3051
3645
49484

5172
2644
3067
3671
5024

5215
2659
3118
3801
5050

2681
3132
3816

2727
3201
3834

2779
3222
3849

2989

3189

3709

2866
3353

3730

2870
3398

2930
3536

2999
3546

4949

3012
3573

5432

3049
3643

5644

3065
3652

004752

23704

2374

SAVREG= 104412
SAVRP
023240

4078
2427
2809
3249
3862
1252#
3513
11554
2469
11474
2265
5437

48378
2432
2832
3336
3868
2268+
3554
2869
2551
4959
53794
5864#

4844
2476
2878
3355
3890
3517
50634
3755
2562

4884
2485
2884
3400
3898
3558

4989
2504
2932
3538
3924
5564+

5129
2555
3001
3548
3944

5143
2567
3014
3575
4913

2638

2652

3532

5172¢#

3216%

3266+

4748

4763+

4/70+

5261+

5308+

5330+

5337«

4760+
2270+
2219

5257+
3515
2417

3556
2464

5584+
2543

2632

2716

2766

2861

2922

FSTRTS 004760

SCYL
SECNBR
SEEK
=
SETBUF
SILO =
SIZMEM
SLASH

SRO
SR1
SR2
SR3
SSEC
STACK

=
=
=
=

001266
024002
000011
024432
000026
025700
031322

177572
177574
177576
172516
001272
= 001100

23714

11064
1107#
1108#
11094
1254#
9914

3199

N1
CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.PIN
22-APR-78 14:42
CROSS REFERENCE TABLE =-- USER SYMBOLS

023202
001220
003710
003654
003676
003644
003666
004146
004360
004544
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
100000

000004
000010
000020
000040
000100

TEST

EST10

°s

——

W o

LI LU LU LI LI

LI L

p—y

OO I

[

[T}

SURPO3

nmuamnnwnnnnn

177774

010706

3313
2725

1238#
2207

980
982
984
986
2250

22874
2297
1002#

1253#
2204
2209
11464
11644
11674
11684
11664
1165#

1163#
1211#
3570
4627
9634
1055#
10454
10444

10434

10424
10414
10404
1039#
1038#
1037#
1036#
1054#
1035#
1034#
10334
1032#
10314
1030#
1053#
1052#
1051#
1050#
1049#
1048#
10474
10464
1088#

2407
2454
2979

3481
2872
2724+
2212#
22054
22104
22034
2208#
2252

3512
3016
2871«

3630
3662
3015+

3704
3707
3661+

3733
4930#
3706+

3693

3953

4397

4480

3516

3557

5574+

3817
5012

4870
5019

3850
2237+
3592

3863
2239
3736

PAGE 145

SEC 0143

3786
4930

22544

2325#
2269+
22064
22114
4958
4866
3802
4874
4877

4872

3835
2217
3580

3869
2245+
3738

4645

4652
2258

1055
1054
1053
1052
1051
1050
1049

3530
3530
3570
3366
3384
3580
3482
2296

3592
5342

5284

3736

3738

4919

5029

5055

2245

1048

1047
1046

4079

26172
24642
29865#

2990

4919
4400

5029
4439

3533

3542

3891
2258
4036
5055
4462

3899
2296
4043
5284

3925
3366
4048
5342

3945
3384
4052

3482
4079

3528

4400

3533
4439

3542

4494

B 12

CZRPY=D, RP11-E FUNCTIONAL LOGIC & R/W TEST
MACY11 30A(1052)
22-APR-78
14:43
CZRPYD.PN
22-APR-78 14:42
CROSS REFERENCE TABLE == USER SYMBOLS
TEST11
TEST12
TEST13

011652
012202
013014
015460

3097
3173
3303
3472
3617
3724

TEST1S

014736

TEST2
TEST3
TEST4
TESTS
TEST6
TEST?7
TIMOUT
TITLE
TKVEC =
TPVEC =
TRAPVE=
TRTVEC=
TSTING
TSTNMS

006020
006476
007154
007404
010130
010464
001212
043656
000060
000064
000034
000014
027401
001276

2533
2622
2706
2756
2851
2912
1235#
2253
1095#
10964
10944
1089#
2379
12564

25438
26324
27164
27664
28614
29224
5014
69144
4377+

4378+

2225+

2226+

5685#
2276+

2404

TSTO
ST
TST1I0
TST11
TST12
TST12B
TST13
TSTI3A
TST14
TST14A
TST15
TSTI5A
TST158

005064
005310
010612
011532
012062
012534
012720
013474
013574
014342
014630
015112
015314

TST17
TST2

015624
005724

2391
2406
2911
2978
3096
3234
3172
3340
3302
3531
3471
3658¢
3632
3697
3616
3723
2453
2532
2621
2705
2800
2783
2755
2850
4121
2253

24034
24504
29754
30934
3169
3238#
3185
3359
364688
35544
36134
3710
3697#
3702#
37204
37724
25294
26184
2702
27524
28044
2813
28474
2908#
48304
2298

TEST14

TEST16

TEST17

TST1SC
TST16

TST3
TST4
TSTS
TSTSA
TST58
TST6
TST7

014066

015716

015324
015372

006402
007060
007310
007634
007742
010034
010370
TYPDS = 104405
TYPE
= 104401

3776

3300

2385

3858

TYPERR
017254
TYPOC = 104402

3111
3187
33134

3189

PAGE

SEQ 0144

3190

3512#

36304

37334

37864

3469

3626

3877

2544
2633
2767
5040

3614

2408
2455
2980
3098
3174
3188
3367
3473

2451

2530

2619

3299¢
3385

3304
3388

3390#

2315

2317

3721

3773

5473

2703

2753

2848

2909

2976

3094

3170

2319

2320

2324

2338

2343

2363

2379

3999

4038

5565

5575

5477+

3618

3698
3725
3777
2534
2623
2707
2757
2821
2852
2913

28234

2310

2312

3649

3879

3659

3911

3690

3916

3734

3936

3740

3952

3785

3964

4046
4346
4578

4092
4394
4583

4093
4406
4584

4097
4460
4586

4098
4461
4589

6110
4464
4593

6113
4475
48264

6124
4485
5430

3378
3983

3380
6117

359
4463

4045
48274

4078¢

5328

5333

5349

5500

146

5502

5503

5518

5522

5528

5529

5541

3790

3970

4128
4496
5431

5549

3791

3978

413
4515
5437

5553

3806

3995

4133
4563
5463

5555

3824

4173
4569
5485

3839

4270
4574
5497