Digital PDFs

AH-9246F-MC

July 1978

161 pages

Original

76MB

view download

OCR Version

101MB

view download

Document:	CZRKKF0 RK11-05F-J BASIC LOGIC TESTS JUL 1978 bw
Order Number:	AH-9246F-MC
Revision:	000
Pages:	161
Original Filename:	CZRKKF0__RK11-05F-J__BASIC_LOGIC_TESTS__AH-9246F-MC__JUL_1978_gray.pdf

OCR Text

RK11/05F/J

&cesTM

corvmi-ony
7e-r EOBBOED
FICHE1OF1

MADEIN USA

MD-11-CZRKKF,

RK11

BASIC

LOGIC

CZRKKF P11

21-FEB-78 08:51

TEST

MACY11

30A(1052)

21-FEB-78

08:58

PAGE

SEC 0001

.REM %

IDENTIFICATION

PRODUCT CODE:

AC=-9244F-MC

PRODUCT

CZRKKFO RK11 BASIC LOGIC

NAME:

DATE CREATED:

JUNE 1978

MAINTAINER:

DIAGNOSTIC

AUTHOR:

JIM KAPADIA

REVISED BY:

PERVEZ ZAKI
TOM SAWYER

TEST 2

GROUP

CHUCK HESS

THE INFORMATION
IN
THIS
DOCUMENT
IS
SUBJECT
TO
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS
A
COMMITMENT
BY
DIGITAL
EQUIPMENT
CORPORATION.

DIGITAL

EQUIPMENT

CORPORAT ION

RESPONSIBILITY FOR ANY ERRORS
THIS MANUAL.

THAT

ASSUMES

MAY

APPEAR

NO
IN

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF

DIGITAL'S

SYSTEM, EXCEPT
AS
WRITING BY DIGITAL.

NOTICE)

MAY

ONLY

OTHERWISE

FOR USE

IN SUCH

PROVIDED

DIGITAL
EQUIPMENT
CORPORATION
ASSUMES
NO
RESPONSIBILITY
FOR
THE
USE
OR RELIABILITY OF ITS
g?g}#::f
ON
EQUIPMENT
THAT
IS
NOT
SUPPLIED
BY

1975,

1978 BY DIGITAL EQUIPMENT CORPORATION

BASIC

LOGIC

7
F0

ZVO—-=00

21-FEB-78 08:51

TEST 2

MACY11

30A€1052)

1
C
21-FEB-78
08:58

QUICK LOOK-UP OPERATING INSTRUCTIONS
A QUICK REFERENCE, LOOK UP THE FOLLOWING SECTIONS:
ABSTRACT
REQUIREMENTS

LOADING AND OPERATOR ACTION
SWITCH OPTIONS
A MORE COMPLETE EXPLANATION REFER TO THE TABLE OF
BELOW AND

THE

FOLLOWING DOCUMENT.

WN=OO
©
STUWN=DOD

DRIVE

DRIVE-LESS TEST

SWITCH OPTIONS

©O

SCOPE LOOPS

VOO

PROGRAM STRUCTURE

NN
—
W
BB

PROGRAM CONTROL MODES & OPERATOR ACTION

N—=O0O

TABLE OF CONTENTS
ABSTRACT
REQUIREMENTS
EQUIPMENT
PRELIMINARY PROGRAMS
EXECUTION TIME

STARTING ADDRESS
PAPER TAPE

RKDP DUMP MODE
RKDP CHAIN MODE
ACTI
SELECTION

SET-UP PHASE
DRIVE DEPENDENT CONTROLLER TESTS

VO NOWVSWN=O

ERROR REPORTING
ERROR INTERPRETATION
HANDLERS AND COMMON ROUTINES
TRAP HANDLER

——

.
9
R0
.
.

b
e

b wd

b
—d

rororonororororRo
NN

10.0

PAGE

SEQ 0002

C 0 TENTS

S Ww

CZRKKF P11

RK11

—

MD-11-CZRKKF,

SCOPE HANDLER
ERROR HANDLER
CONTROL RESET ROUTINE
CONTROL READY ROUTINE
DRIVE RESET ROUTINE

TIME DELAY ROUTINE
WAIT FOR INTERRUPT ROUTINE
OTHER ROUTINES
TTY HANDLER (1/0), ERROR TYPEOUT ROUTINE
POWER DOWN/POWER UP ROUTINE

UNEXPECTED TIMEOUTS & RK11

QUICK VERYFYING MODE

INTERRUPTS

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

1.0

TEST 2

MACY11

30A(1052)

21-FEB-78

08:58

PAGE 4

ABSTRACT

THE RK11

LOGIC

TESTS CONSIST OF

SERIES

TESTS

AIMED
AT
CHECKING
THE
BASIC
LOGIC
OF
THE RK11
CONTROLLER.
THIS PROGRAM IS THE SECOND PART OF
THE
TWO-PART RK11
LOGIC TESTS.
IT SHOULD BE NOTED THAT
LOGIC TEST I
AND LOGIC TEST Il
TOGETHER CONSTITUTE
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN.
WHEN USED IN CONJUNCTION WITH A DRIVE IT
OF DETECTING FAULTS IN THE DRIVE ALSO.

USED CORRECTLY THIS

PROGRAM

ANALYTIC AND DIAGNOSTIC

2.0

REQUIREMENTS

2.1

EQUIPMENT
A.
B.
C.
D.

CAN

BASIC LOGIC

TEST

(MD-11-DZRKJ)

EXECUTION TIME
TAKES
APPROXIMATELY TWO MINUTES.
FOR FASTER MACHINES OR MEMORIES.

CORE

MEMORY

CONSIDERABLY LESS

STARTING ADDRESS

200 FCR ANY MODE OF OPERATION.
ALL SWITCHES DOWN.

4.0

EFFECTIVE

PDP11 WITH CONSOLE TELETYPE.
8K OF MEMORY
RK11 OR RKV11 CONTROLLER
1-8 RKO5 OR RKOSF DRIVES OR THE RKO5 SIMULATOR
(DRIVE TYPES MAY BE MIXED)

ERROR FREE FIRST PASS ON PDP11/20 WITH

3.0

CAPABLE

PRELIMINARY PROGRAMS

RK11

2.3

TOOL.

NORMAL START UP WITH

PROGRAM CONTROL MODES & OPERATOR ACTION
PAPER TAPE LOADING
RKDP DUMP MODE
RKDP CHAIN MODE
ACTTT

SEQ 0003

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

PAPER

MACY11

TEST 2

30A(1052)

1
E
21-FEB-78
08:58

PAGE S

TAPE LOADING

LOAD PROGRAM INTO MEMORY
FOR

.ABS

TAPES.

USING

MAKE

SURE

THAT

TO BE

THE DRIVES

STANDARD
CHECKED

PROCEDURE
ARE

LOADED

WITH
DISKS
AND
ARE
IN 'RUN'.
'WRT ENABLE' THEM.
CHECK THAT °'WRT PROT' LIGHT ON THESE DRIVES IS
OFF.
PUT DRIVES THAT ARE NOT TO BE TESTED ON 'LOAD'.

LOAD ADDRESS 200
SET SWITCHES IF DESIRED (SEE SEC 7.0)
SIMULATOR PUT SW<10> UP.
PRESS

IF TESTING

START.

THE PROGRAM
IDENTIFIES
ITSELF
(NAME ,MAINDEC
THEN THE FOLLOWING QUESTION IS ASKED:

NO),

DRIVES TO BE TESTED?
THE

USER SHOULD

TYPE

IN THE

DRIVE NUMBERS

THAT

ARE

IN
'RUN'
AND TO BE TESTED.
CARRIAGE RETURN SHOULD
TERMINATE THE STRING.
IF AN RK-O5F IS 70 BE TESTED,
TYPE THE SUFFIX 'F" WITH THE FIRST DRIVE OF THE PAIR.
BOR Eg?HPLE. IF DRIVES 2 AND 3 ARE ON AN RK-05F, TYPE
NLY

2F.

EXMP:

DRIVES TO BE TESTED? 0,1,2<CR>

THE DRIVES DO NOT HAVE

EXMP:

DRIVES TO BE

TO BE

IN LOGICAL ORDER.

TESTED? 2,4<CR>

IF ANY ONE DRIVE IS
TO
BE
TESTED,
TYPE
NUMBER.
IT DOES NOT HAVE TO BE DRIVE 0.
THUS A NORMAL

SEQUENCE WITH DRIVES 0,1

[IN

THAT

WOULD BE:

RK11 BASIC LOGIC TEST 2
MAINDEC-11-CZRKKF
DRIVES TO BE TESTED? 0,1<CR>
4.1.6

THERE IS A "'RUBOUT'' FEATURE WHICH ALLOWS RUBBING OUT

ANY
NUMBER
OF CHARACTERS THAT WERE TYPED IN WRONG.
;Hiszggflfb OUT CHARACTERS
ARE
ECHOED
BACK
WITHIN
L

" U'" DELETES THE ENTIRE LINE

SEQ 0004

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
F
. P11
CZRKK
21-FEB-78 08:51
6.1.7

MACY11

30A(1052)

21-FEB-78

08:58

PAGE 6

SEQ 0005

IF REPLY TO ANY OF THE ABOVE QUESTION IS IN A WRONG
FORMAT (EX: 012<CR>;0,8<CR>; 0,A<CR>; M<CR> ETC), IT

IS AUTOMATICALLY REJECTED, A ""22""

PRINTED

OUT;

THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN.
4.1.8

THE DRIVE NUMBER BEING TESTED OUT

IS PRINTED:

DRIVE N ;N=0,1...7

IF THE DRIVE IS AN RK=05F, AN F IS APPENDED

THE END OF

A PASS

THE

FOLLOWING TYPE-OUT OCCURS

END PASS # X

WHERE X= PASS NUMBER (1,2,3---),
TO

THE

BEGINS.
4.1.9

BEGINNING

CONTROL

PASSED

THE PROGRAM AND RE-EXECUTION

NO QUESTIONS ARE TO BE ANSWERED AGAIN.

ERROR FREE PASSES OF
BELOW.

THE

PROGRAM

APPEAR

SHOWN

THE

RKDP

RK11 BASIC LOGIC TEST 2
MAINDEC=-11-CZRKKF
DRIVES TO BE TESTED?
0,1<CR>
DRIVE 0
DRIVE 1
Ego PASS # 1

DRIVE 1
END PASS # 2

4.2

RKDP DUMP MODE

4.2.1

THE PROGRAM IS LOADED
MONITOR

$.2.2

START AS NORMALLY USING SA 200

4$.2.3

THE PROGRAM IDENTIFIES
ITSELF
(NAME_ MAINDEC
NO.).
ON
FINDING
OUT
THAT THE LOADING WAS BY RKDP (DUMP
MODE), THE FOLLOWING MESSAGE APPEARS:

INTO THE MEMORY

'TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE
WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM'

IF DRIVE

'N'

IS TO BE TESTED,

THE RKDP

PACK

THAT

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB~-78 08:51

DRIVE

MACY11

1
6
21-FEB-78
08:58

PAGE 7

SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE

SHOULD BE PUT ON 'WRT

ENABL'

PROTECTS THE DRIVE).

IF DRIVE

SHOULD BE
AFTER

30A(1052)

"N'

IS NOT TO BE

IGNORED.

THIS,

THE

SEQUENCE

EXPLAINED IN SEC 4.1.5.

(BECAUSE

CHECKED,
OF

RKDP

THEN

WRITE

THE

QUESTIONING

MESSAGE
IS

PACK

RKDP CHAIN MODE

THE PROGRAM IS CHAIN-LOADED FROM THE

DRIVE

°'N'.

AFTER

RKDP

THE PROGRAM IDENTIFIES ITSELF

FOLLOWING PRINTOUT OCCUKS.

'DRIVE

"N'

NOT TESTED'

THERE IS NO
OPERATOR
INTERVENTION
REQUIRED.
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT.

ACT11

THE

MODE

THE PROGRAM IS LOADED
BY
THE
ACT11
MONITOR.
ON
STARTING,
IDENTIFIES
ITSELF, ASCERTAINS THE NUMBER
OF DRIVES AND PROCEEDS WITH
THE
EXECUTION
OF
THE
TESTS AS BEFORE.

DRIVE

SELECTION

IF ANY
PARTICULAR
DRIVE
IS
TO
BE
SELECTED
FOR
TESTING,
PUT
THAT
DRIVE ON 'RUN', 'WRITE ENABLE';
PUT REST OF THE DRIVES ON 'LOAD', 'WRITE
LOCK'
AND

THE QUES- TIONVES TO BE TESTED?)

ZV:ESIN THE DRIVE NUMBER FOLLOWED BY

DRIVE-LESS

CR.

SEE

SEC

ACTUALLY

THE

TEST

USE RK11 BASIC LOGIC TEST I, WHICH IS
FIRST
PART
SEE SEC 1.0,

OF THE
2.2.

TWO-PART RK11

BASIC LOGIC

TESTS.

SWITCH OPTIONS

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR

(I.E. AN 11/34)

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER.
THE
'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE 'CONTROL G' WHENEVER THE PROGRAM ENTERS

SEC 0006

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51
THE

MACY11

30A(1052)

21-FEB-78

SCOPE ROUTINE OR BEGINS A NEW TEST.

08:58

PAGE 8

SEC 0007

THE

*SOFTWARE®' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:
'SWR = NNNNNN

NEW ='

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT' AND
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE
REGISTER MAY BE USED.

'SOFTWARE'

'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE

'SOFTUARE; REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST
BE FOLLOWED.

Sw<15>=1
SW<14>=1
SW<13>=1
SW<12>=1

SW<10>=1
SW<09>=1

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR PRINTOUTS
CYCLE
ON
ERROR
TO
THE
'SCOPE' STATEMENT
INHIBIT ITERATIONS
TESTING ON SIMULATOR
LOOP ON SPECIFIC ERROR

SW<06>=1

DROP THE DRIVE AFTER MAXIMUM

SW<11>=1

SWw<08>=1

LOOP ON TEST AS PER SW<07:00>
ALLOWABLE NUMBER OF ERRORS OCCUR

SW<15>
THE PROGRAM HALTS ON ENCOUNTERING
AN
ERROR,
AFTER
TYPING
OUT
THE
ERROR
MESSAGE
AND
PERTINENT

INFORMATION.

PRESSING

OPERATION OF

7.2

‘'CONTINUE'

THE PROGRAM.

RESTORES

NORMAL

SW<14>
THE

PROGRAM LOOPS

THE

SUBTEST

THAT

BEING

EXECUTED
WHEN THE SWITCH IS PUT ON.
THIS SWITCH IS
USED NORMALLY ALONG SW 15.
SEE SEC 8.0.

SW <13
THIS SWITCH INHIBITS ALL ERROR

USED

WHEN

LOOPING

ERROR (SW 9).

7.4

TEST

MESSAGES.

(SW 14)

NORMALLY

OR LOOPING ON

SW <12>
THIS SWITCH ALLOWS THE PORGRAM
TO
CYCLE
FROM
THE
POINT
OF
ERROR
TO
THE
PREVIOUS SCOPE STATEMENT.
NOTE THAT IN DOING SO ANY INITIALIZATION BEING
DONE
AT
THE
BEGINING
OF THE SUBTEST WILL BE DONE AGAIN

AND AGAIN.

SWITCH

THE PROGRAM FINDS ALL 16 SWITCHES IN THE

SEE SEC 8.0 FOR

DIFFERENT

SCOPE

LOOPS

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

TEST 2

MACY11

1
|
21-FEB-78
08:58

30A(1052)

PAGE 9

AVAILABLE.

7.5

sW <11>

EACH SUBTEST WILL BE EXECUTED ONLY
AFTHE

FIRST

PASS,

NUMBER OF TIMES
SETTING

THIS

EACH SUBTEST

(USUALLY

SWITCH

SO,

INHIBITS

QUICK PASSES CAN BE MADE.

7.6

ONCE.

NORMALLY

IS ITERATED A

SOME

CASES).

[ITERATIONS,

SO THAT

SW <10>
THIS SWITCH WHEN SET

INDICATES THAT

TESTING IS BEING

DONE
ON A
SIMULATOR.
THE SWITCH SHOULD BE PUT UP
BEFORE START- ING THE PKOGRAM.
NOTE THAT
RK11C
IS
NOT

7.7

COMPATIBLE WITH THE

SIMULATOR.

SW <09>
THIS SWITCH PROVIDES

LOOP.

NOTE

PARAMETERS AT

THE

TIGHTEST

POSSIBLE

THATKE SW12 THE INITIALIZATION OF
THE BEGINNING OF

BE DONE IN THIS CASE.
PARTICULAR PART OF

THE

SUBTEST

SCOPE

MAY

NOT

THIS SWITCH IS HELPFUL WHEN A

A SUBTEST

IS BEING REPEATED USING

DIFFERENT
PARAMETERS
AND
YOU WANT TO SCOPE ON THE
PARAMETER IN ERROR.
(EXAMPLE: RKDA IS BEING WRITTEN
N

AND

READ BACK WITH COUNT PATTERNS FROM 1 TO 177777.

THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON

PATTERN 561

IS GIVING ERROR, YOU MIGHT NOT

THE 561TH PATTERN.

7.8

WANT

IN THIS CASE SW 9 WILL GIVE

YOU

IS USED TO SELECT A PARTICULAR TEST

(AS

g chgi LOOP ON THE 561TH PATTERN ONLY
W <08>

THIS SWITCH

PER SW<00-07>) FOR EXECUTION AND SUBSEQUENT LOOPING.
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING
WOULD
BE
000415.
IT
SHOULD BE NOTED THAT BEFORE

SELECTING TEST 15, ALL

WILL BE EXECUTED.

7.9

THE

TESTS

(1-14)

SW<06>
THIS SWITCH
ALLOWS THE PROGRAM TO DROP A DRIVE FROM
THE
SELECTION
LIST
AND
TESTING
AFTER
MAXIMUM

ALLOWABLE

ERROR

IS EXCEEDED.

g:lz$g:PED

AND A

COUNT IS 5, AFTER 5

8.0

COUNT

THAT DRIVE

SCOPE LOOPS

(TOTAL NUMBER OF ERRORS) ON

THE MAXIMUM ALLOWABLE ERROR

ERRRORS HAVE OCCURED DRIVE

MESSAGE

(DRIVE # XXX DROPPED)

SEQ 0008

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF . P11

MACY11 30A(1052)

21-FEB-78 08:51

THERE ARE THREE KINDS OF

21-FEB-78

08:58

PAGE 10

SCOPE LOOPS AVAILABLE

SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST

SW12:

LOOPING IS DONE FROM THE POINT OF
ERROR
BACK TO THE PREVIOUS 'SCOPE' STATEMENT.

SW09:

PROVIDE THE TIGHTEST POSSIBLE SCOPE
7.7
SEE SEC.

LOOP

EXAMPLE:
TST1:
SCOPE

INITIALIZATION

1
ERROR

ERROR 2
ERROR 3

ERROR &
IST2:
THE

SCOPE

SEQUENCE

EXPLAINED

BELOW.

TAGS WHICH DEFINE

LOOPING

NOTE

FOR

DIFFERENT

CASES

THAT 'TST1' AND °'TST2' ARE

THE BOUNDARY OF

A TEST,

(IN

THIS

CASE TEST 1).
TEST 1 STARTS AT °'TST1' AND ENDS JUST
BEFORE 'TST2'.
IN THE ILLUSTRATION BELOW -->

FROM WHERE RETURN

|INDICATES

IS MADE AND LOOPING

ERROR 2 OCCURS,

THE

IS DONE.

POINT

SW 14 SET.

TST1. .ERROR 2..TST2==>TST1..ERROR 2..TST2-=>TST1...

ERROR 2 OCCURS, SW 12 SET.

TST1...ERROR 2-=>TST1...ERROR2-->TST1...

ERROR 2,3; SW 14 SET.

TST1..ERROR 2..ERROR 3..T7ST2-=>TST1..ERROR

5..TS1T2==>1I8M...
4.

ERROR 2,3;

SW 12 SET.

TST1...ERROR 2==>TST1...ERROR 2-->TST1....

2..ERROR

SEQ 0009

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

MACY11

30A(1052)

21-FEB-78

08:58

PAGE

NOTE THAT LOOPING IS DONE FROM THE VERY FIRST
ERROR
ENCOUNTERED.
THE
MORE BASIC AND ERROR THE EARLIER
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED.

IN THE ABOVE EXAMPLE NO PART
OF
THE
SUB-TEST
IS
BEING REPEASING DIFFERENT PARAMETERS, HENCE IT
SO HAPPENS THAT
SW 9 AND 12 GIVE THE SAME KIND OF
LOOPS.
THE
EXAMPLE
BELOW WILL
DEMONSTRATE
THE
DIFFERENCE BETWEEN SW 9 AND 12.
TST1:

SCOPE

INITIALIZATION

ERROR 1
MOV

#1%, SLPERR

:"SLPERR'
S

1%:

1ST2:
1.

NIREPETITIONS

SCOPE
SW

CONTAINS

:THE ADDRESS TO LOOP
:BACK ON ERROR- SW 9

REPETITIONS

———SET,

ERROR

OCCURS

DURING

K.TH

TST1..1,2...K.ERROR 2-->TST71..1,2...K.ERROR 2-=>TST1..

SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION

18..K..ERROR 2-->18..K..ERROR 2-->18...

9.0

PROGRAM STRUCTURE
THERE ARE

THREE DISTINCT PARTS OF

THE

PROGRAM.

SET-UP PHASE
DRIVE-DEPENDENT CONTROLLER TESTS
9.1

SET-UP PHASE
SETTING UP OF INITIAL POINTERS, VECTORS,
TABLES
IS
DONE
IN THIS PART.
IN THIS SECTION THE DECISION IS
MADE ABOUT THE PROGRAM MODE-PAPER TAPE,
RKDP
DUMP,
CHAIN OR
ACT11.,
IF
IN
A NON-INTERVENTION MODE
(CHAIN, ACT11) NUMBER
OF
DRIVES
AND
THE
TYPE
OF
CONTROLLER
IS FOUND OUT.
FLAGS ARE SET TO INDICATE

SEQ 0010

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF P11
21-FEB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 12

WHICH DRIVES ARE TO BE TESTED, ETC.
9.2

DRIVE DEPENDENT CONTROLLER TESTS
THIS SECTION FORMS
A
MAJOR
PART
OF
THE
WHEREIN MOST OF THE CONTROLLER IS CHECKED.

PROGRAM

JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINDS
OUT WHICH DRIVE IS TO BE CHECKED.
IF IN RKDP CHAIN
MODE, DRIVE 'N' IF PRESENT, IS SKIPPED AND
THE
NEXT
AVAILABLE DRIVE

IS SELECTED.

THE DRIVE NUMBER BEING TESTED IS PRINTED OUT:

DRIVE N

:N=0,1,2...7

THE TESTING IS DONE IN A
LOGICAL
HIERCHY,
THINGS FIRST, THEN MORE COMPLEX AND SO ON.

ONE

THE

TESTS

THE

ENTIRE

DISK

SIMPLER

PACK

FORMATTED,
CHECKS
ARE
MADE
FOR ERROR CONDITIONS.
THE FIRST WORD OF
EVERY
SECTOR
IS
WRITTEN
AS
A
PSUEDO-HEADER,
REFLECTING
THE
ABSOLUTE ADDRESS OF
THAT SECTOR (DRIVE #, CYLINDER #, SURFACE #,
SECTOR
¥).
EXAMPLE:
THE
PSUEDO-HEADER
FOR
SECTOR
5,

SURFACE 0, CYLINDER 20, DRIVE 0 wouLD BE 001005.
IN THE NEXT TEST THE HEADERS FROM

THE

ENTIRE

PACK

ARE
READ
AND
CHECKED
FOR
CORRECTNESS.
IN
A
3?2?5??5”7 TEST ALL THE PSUEDO-HEADERS ARE READ
AND

ALL
THE
FUNCTIONS
ARE
CHECKED
OUT.
'SEEK'
IS
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (MIGH,
MEDIUM, LOW).
VARIOUS
ERRORS
LIKE
‘'NXD',
°NXC',
ETC.
ARE SIMULATED AND CHECKED.
HARDWARE POGIC IS CHECKED USING ALL
THAT HAVE BEEN INDICATED.

THE

AT THE END OF

IS MADE

THIS SECTION,

A CHECK

DRIVES
IF

ALL

INDICATED
DRIVES HAVE BEEN TESTED.
IF NOT, CONTROL
IS TRANSFERRED TO THE BEGINNING OF THIS SECTION.

THUS ONE PASS OF

SUBTEST #1

ONCE

DRIVE-DEPENDENT

DRIVES.

10.0

THE PROGRAM INVOLVES DOING

TESTS

FOR

ALL

THE

SELECTED

ERROR REPORTING
THE
ERROR
TABLE
STARTING
AT
SERRTB
CONTAINS
INFORMATION PERTAINING
TO
EVERY
ERROR
THAT
CAN
OCCUR.
EACH ITEM IN
THE
TABLE
CONSISTS
OF
FOUR

SEQ 0011

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FFB-78 08:51

MACY11 30A(1052)

21-FEB-78

08:58

PAGE 13

ENTRIES.
A.

EM - THIS IS A POINTER TO THE ERROR MESSAGE
BE TYPED OUT WHEN THE ERROR OCCURS.

DH - THIS IS A POINTER TO THE DATA HEADER TO

DT - THIS IS A POINTER TO THE DATA WHICH
IS
BE TYPED TYPED OUT UNDER THE HEADERS.

O - THIS IS A TERMINATOR SIGNIFYING THE

THE

TYPED OUT.

END

ITEM.

THE ERROR CALL IS AN EM7 INSTRUCTION WITH ITS
LOWER
BYTE
ENCODED
TO
INDICATE
THE ERROR NUMBER.
THUS
OR 1" WOULD BE (EMT+1) IE 104001.

EVERY ERROR CORRESPONDS TO
AN
ITEM
IN THE
ERROR
TABLE.
THUS "ERROR 14'' WOULD CORRESPOND TO ITEM 14.
AS FAR AS POSSIBLE, THE
ERROR MESSAGES HAVE
BEEN
KEPT
SHORT,
BUT
CLARITY
IS
NOT
SACRIFICED
FOR
BREVITY.
INSPITE OF THIS, IF THE USER FINDS A NEED,
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR

ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS.
THUS FOR “ERROR 14'‘, ''ITEM 14'" IN THE ITEM TABLE CAN
BE
LOOKED UP.
WHEN
THE
ERROR
INSTRUCTION
IS
EXECUTED A TRAP OCCURS TO THE ERROR HA LOCATED
?; ;ERROR WHICH PROCESSES THE ERROR CALL.

11.0

SEE

SEC

ERROR INTERPRETATION
WHENEVER
AN
ERROR
MESSAGE
IS
PRINTED
OUT,
ALL
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE
ALSO GIVEN.
RKDS, RKER...RKBA INDICATE THE CONTENTS

OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR.

EVERY
ERROR
MESSAGE
CONTAINS
A
PC.
THIS
PC
INDICATES
THE
POSITION
IN PROGRAM WHERE THE ERROR
CALL IS LOCATED.
THE
ERROR MESSAGE,
BECAUSE
OF
PRACTICAL
CONSIDERATIONS
IS
MADE
SHORT
AND
MEANINGFUL.
THE USER IS ADVTO LOOK UP
THE
PC
IN
THE
PROGRAM LISTING,
WHERE
HE WILL FIND MORE

INFORMATION ABOUT THE ERROR.
IN MANY
INSTANCES,
A
SINGLE
FAULT
WILL GIVE RISE TO MORE THAN ONE ERROR

REPORT.

LITTLE

DELIBERATION

AND

CAREFUL

EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY
HELPFUL

PINPOINTING

THE

FAULT.

BRIEF

EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST.
ALL THE
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL.
12.0

HANDLERS AND COMMON ROUTINES

SEQ 0012

MD-11=CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF . P11
21-FEB-78 08:51

12.1

MACY11 30A(1052)

21-FEB-78

THE COMMOSED ROYTINES USED IN THE
CALLED IN TWO
WAYS.

PROGRAM

AS A SUBROUTINE THROUGH 'JSR'

CALL

THROUGH A 'TRAP' HANDLER

08:58

PAGE 14

ARE

TRAP HANDLER

MANY COMMONLY

CALLED

USED

USING

THE

ROUTINES

TRAP

THE

PROGRAM

ARE

INSTRUCTION AND THE 'TRAP'

HANDLER.
THE LOWER BYTE OF THE TRAP INSTRUCTION
IS
ENCODED DIFFERENTLY
FOR
DIFFERENCT ROUTINES.
THE

TRAP HANDLER IS LOCATED AT "STRAP'.
WHEN A CALL FOR
A
ROUTINE IS EXETUTED, A TRAP OCCURS TO THE HANDLER
ARAP'.
THE HANDLER PICKS UP THE LOWER BYTE
OF
THE
°‘'CALL
INSTRUCTION'® AND USES
IT
TO FORM THE
SE:R}%:G ADDRESS
OF
THE
ROUTINE
TO GO
TO FOR
SERVICE.

12.2

SCOPE HANDLER
THE "IOT' TRAP IS USED
BY
THE
°SCOPE'
STATEMENT.
WHEN
°"SCOPE'
IS
EXECUTED,
AN
IOT TRAP OCCURS TO

MEMORY LOCATION 'SSCOPE'.

THE SCOPE HANDLER

STARTS

AT
SSCOPE.
DEPENDING
ON
THE SWITCH SETTINGS THE
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT
ITERATIONS
ETC.
THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE
ADJUSTED.
THUS, IT IS NOT ADVISABLE START
THE

PROGRAM

ANY

GIVEN

LOCATION

SINCE THE VARIOUS

POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED.

12.3

ERROR HANDLER
AN EMT TRAP INSTRUCTION IS USED BY THE
ERROR
CALL.
THE
LOWER
BYTE
IS ENCODED TO GIVE DIFFERENT ERROR

CALLS.

(EX:

ERROR

104000+1;

ERROR

104000+16).
WHEN THE ERROR STATEMENT IS EXECUTED, A
TRAP OCCURS TO MEMORY LOCATION °'SERROR'.
THE
ERROR
HANDLER
IS
LOCATED AT °'SERROR'.
THE HANDLER FORMS
THE POINTER TO ERROR TABLE,
WHICH
IS
USED
IF
AN
ERROR MESSAGE IS TO BE TYPED OUEPENDING ON THE
SWITCH SETTINGS, A DECISION ABOUT HALTING ON
ERROR,
INHIBITING
TYPEOUT, LOOPING ON ERROR ETC.
IS MADE.
IF AN ERROR MESSAGE IS TO BE TYPED OUT
AN EXIT
IS

522§R;SP!"E ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT

12.4

CONTROL RESET ROUTINE

THE CALL FOR THIS ROUTINE IS ''CNT.RESET'' AND

ENCODED

EXECUTED

‘TRAP'
THE

INSTRUCTION.

CONTROL

RESET

STARTING

WHEN “‘CNT.RESET'' IS

ROUTINE

SEQ 0013

MD-11~CZRKKF,

CZRKKF .P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

"CN.RST""

MACY11

30A(1052)

IS ENTERED.

B 2
21-FEB-78
08:58

PAGE

A CONTROL RESET IS ISSUED

THE PROGRAM WAITS TILL THE CONTROL
READY
SETS,
ON
WHICH
THE ROUTINE IS EXITED.
IF CONTROL READY DOES
NOT SET WITHIN A CERTAIN TIME AN ERROR IS
REPORTED.
THE
PC
TYPED
OUT
IS
THE
LOCATION WHERE
THE

“CNT.RESET'" CALL IS LOCATED.
THE WAITING
TIME
IS
Zég RHS FOR 11/20 AND 560 US FOR 11/45 WITH BIPOLAR

MEMORY.

12.5

CONTROL READY ROUTINE

THIS ROUTINE IS
CALLED BY
‘'CNT.RDY'"
(AN
ENCODED
"TRAP' INSTRUCTION) AND IS LOCATED AT "‘CN.RDY''.
THE

ROUTINE WAITS FOR

DOES,

EXITS

THE

CONTROL READY

TO SET AND

CONTROL READY DOES NOT SET

WITHIN A SPECIFIED TIME AN ERROR MESSAGE

CNTRL RDY DIDN'T SET

THE PC

= XXXXXX

RKCS =

THE

IS GIVEN

rYYYYY

IS THE LOCATION AT WHICH THE

LOCATED.

WHEN

WAITING TIME

''CNT.RDY'

CALL

IS 949 MS FOR 11/20

AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY.

12.6

DRIVE RESET ROUTINE

THE DRIVE - RESET ROUTINE

CALLED

EXITED.

BY A "JSR'.

IS LOCATED AT 'DRESET'' AND

IT ISSUES A DRIVE RESET AND

WAITS FOR THE R/W/S RDY TO SET, ON WHICH THE ROUTINE

THE

WAITING TIME IS 4959 MS FOR 11/20

AND 991 MS FOR 11/45 WITH BIPOLAR MEMORY.
12.7

TIME DELAY ROUTINE

THIS ROUTINE PROVIDES A VARIABLE

CALL
IS DELAY
N WHERE N=1
DELAY PRCVIDED= 7.5 TIMES( X

TIME

DELAY.

THE

TO 177777 (OCTAL) TIME
)
N MICRO SECS
FOR

11/20,
1.5N
US
FOR
11/45 (N CONVERTED TO DECIMAL
BEFORE COMPUTING DELAY) IF THE USER WANTS TO
CHANGE
THE

DELAY

ANY

CHANGING VARIABLE
12.8

POINT

°'N°'.

IT CAN BE

DONE BY SIMPLY

WAIT FOR INTERRUPT ROUTINE
THIS POUTINE PROVIDES A VARIABLE

TIME

LIMIT

WHICH RK11 INTERRUPT MAY OCCUR.
THE IS
WAT.INT
.N
N=1
TO
1777777
WAITING
TIME=7.5 TIMES( X ) N US FOR 11/20,

DURING

(OCTAL)
1.5N US

FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY

DROPPED SO THAT RK11

CAN INTERRUPT.

SEQ 0014

MD-11-CZRKKF,
CZRKKF .P11

RK11 BASIC LOGIC TEST 2
21-FEB-78 08:51

12.9

MACY11

30A(1052)

21-FEB-78

]
08:58

PAGE

SEQ 0015

OTHER ROUTINES
THERE ARE OTHER COMMONLY
BELOW.

USED

ROUTINES

$TYPE:
TYPE ROUTINE FOR TYPING OUT ASCII

LOCATED AT "“'STYPE"'
CALLED BY "'TYPE"

LISTED

STRINGS.

$TYPOC:
ROUTINE FOR TYPING QUT OCTAL NUMBERS.

LOCATED AT "'$fyPOC"
CALLED BY "‘TYPOC"

$TYPDS:

ROUTINE

FOR

TYPING OUT DECIMAL NUMBERS.

LOCATED AT "'$STYPDS"
CALLED BY “'TYPDS"

$RDLIN:
ROUTINE FOR

INPUTTING ASCII

LOCATED AT ''SRDLIN"'
CALLED BY "'RDLIN'

STRINGS FROM TTY.

SERRTYP:

ROUTINE FOR TYPING OUT ERROR MESSAGES.

LOCATED AT SERRTYP

CALLED BY "'JSR SERRTYP"

$PWRDN:
ROUTINE FOR HANDLING POWER FAILURE.

LOCATED AT SPWRDN
CALLED WHEN THERE

IS A POWER FAILURE.

$PWRUP:
ROUTINE FOR HANDLING POWER UP AFTER A POWER FAIL.

LOCATESPWRUP
CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN.

13.0

UNEXPECTED TIMEOUTS AND RK11

INTERRUPTS

WHEX AN UNEXPECTED TIMEOUT OCCURS, THE PC
AT
WHICH
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS.

éSu{}nbg INTACT,

IT CAN

IF AN UNEXPECTED RK11

RESTARTED

PRESSING

INTERRUPT OCCURS

THE

PROGRAM

TYPES
OUT THE PC AT WHICH THE INTERRUPT CAME IN AND
THEN HALTS.
PRESSING
CONTINUE
WOULD
RESTART
THE
PROGRAM
FROM BEGINING.
SW 9- LOOPING CAITY IS
PROVIDED AS A TROUBLE SHOOTING AID.

MC=-11-CZRKKF,

CZRKKF .P11

RK11

BASIC LOGIC

21-FEB-78 08:51

14.0

TEST 2

MACY11

30A(1052)

21-FEB-78

08:58

PAGE

SEQ 0016

QUICK VERIFYING MODE
THE FIRST PASS OF
MODE .
ALL
THE

THE PROGRAM
TESTS
ARE

IS A
QUICK
DONE
ONLY

SUBSEQUENT PASSES THE TESTS ARE
S0
TIMES,
5
IN
SOME CASES).
TAKES A SHORTER TIME

PASSES

TAKE MORE

VERIFYING
ONCE,
ON

ITERATED
(NORMALLY
THUS THE FIRST PASS

TO COMPLETE, WHEREAS SUBSEQUENT

TIME.

852
853
854
855
856

LTITLE

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2

;*COPYRIGHT (C) 1974,1977
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754
-

tPRDGRAH BY

JIM KAPADIA

'YHIS PROGRAM WAS ASSEMBLED USING THE PDP-11

'PACKAGE

(MAINDEC-11-DZQAC-C3), JAN 19,

HAINDEC SYSMAC

'PROGRAH REVISED BY TOM SAWYER, MARCH,

Y
N
N
R

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEQUTS
CYCLE ON ERROR TO PREVIOUS °'SCOPE'
INHIBIT ITERATIONS
TESTING ON SIMULATOR
LOOP ON ERROR

STATEMENT

LOOP ON TEST IN SWR<7:0>
DROP THE DRIVE IF MORE THAN 5 ERRORS

8
6

3
2

SRR AR

USE

SWITCH
4

;*REVISED BY CHUCK HESS, AUGUST, 1976
.SBTTL
OPERATIONAL SWITCH SETTINGS

857
858
859
860
861
862
863
864
865
866
867
868

R RE R R R R R R R R R R R R R R R R R AR

;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM.

;ON GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED

MD=-11-CZRKKF,

CZRKKF .P11

RK11

BASIC LOGIC

21-FEB-78 08:51

894
895
896
897
898
899

900
901
902

903
904
905
906
907
908

909
910
911
912

913
914
915

916
917
918
919

920
921

922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944

945
946
947
948
949

TEST

MACY11 30A(1052)
21-FEB-78
OPERATIONAL SWITCH SETTINGS

08:58

PAGE

SEQ 0017

;OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED
;CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT
AL

.SBTTL
001100

000011
000012
000015
000200
177776
177774
177772
177570
177570
000000
000001
000002
000003
000004
000005
000006
000007

AR AR

SRR

AR R

AR ARl
]

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER we# 1100 ##«

STACK=

.EQUIV
.EQuUIv

1100

EMT,ERROR
10T,SCOPE

s:BASIC DEFINITION OF ERRCR CALL
::BASIC DEFINITION OF

s*MISCELLANEOUS DEFINITIONS

HT=

LF=
(R=
CRLF=

12
15
200

PS=
.EQUIV

177776
PS,PSW

PIRQ=
DSWR=

177772
177570

STKLMT= 177774

DDISP=

177570

;:CODE

FOR HORIZONTAL

; ;GENERAL REGISTER

R3=
Ré4=
RS=

13
24
x5
X6

; :GENERAL
;;GENERAL
; ;GENERAL
:;GENERAL

Ré6=

000006

000007

000000
000040
000100
000140
000200
000240
000300
000340

PRO=
PR1=
PR2=
PR3=
PR4=
PR5=
PR6=
PR7=

100000
040000
020000
010000
004000

sW15=
SWi4=
SWw13=
sWwi12=
SWil=
sSW10=
sw09=
sSWw08=
swo7=
Swo6=

3
4

27
16
X7

; ;GENERAL REGISTER
; ;GENERAL REGISTER

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

;*PRIORITY LEVEL DEFINITIONS

0
40
100
140
200
240
300
340

;;PRIORITY
ssPRIORITY
;;PRIORITY
;:PRIORITY
:;PRIORITY
;;PRIORITY
;;PRIORITY
ssPRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;%' 'SWITCH REGISTER' SWITCH DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400
200
100

TAB

;sSTACK LIMIT REGISTER
: ;PROGRAM INTERRUPT REQUEST REGISTER
s ;HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

s *GENERAL PURPOSE REGISTER DEFINITIONS

R1=
R2=

SCOPE CALL

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

RO=

R7=
SP=
PC=

002000
001000
000400
000200
000100

0
1
2
3
4
5
6
7

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981

982
983
984
985

000040
000020
000010
000004
000002
000001

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

986

987
988
989

990

991
992

993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060

TEST 2

MACY11 30A(1052)
21-FEB-78
BASIC DEFINITIONS

SW05=

SW04=
SW03=
Sw02=
SWo1=
SW00=

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

08:58

PAGE

40
20
10
4

2
1

SW09,S5w9
Sw08,sSw8
Sw07,Sw7
Sw06,S5wé
SWO05,SW5
4
, SW4
SW0
SW03,sw3
SwW02,Sw2
SW01,5u1
Sw00,sw0

;*DATA BIT DEFINITIONS (BITO0 TO BIT15)
100000
40000

20000

10000
4000

2000

1000
400

200

BITO05=
BIT04=
BITO03=
BIT02=
BITO1=
BIT00=

.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV

100
40

10
&

2
1

BIT09,BIT9
81708,8178
81107,8177
BIT06.BIT6
BIT05,BIT5
BITO04 .BIT4
BIT03,BIT3
BI1T02.8112
BIT01,BITI
BIT00,BITO

s*BASIC “'CPU'" TRAP VECTOR ADDRESSES
;:TIME OUT AND OTHER ERRORS
ERRVEC= 4
RESVEC= 10
; ;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
;s TRACE TRAP
TRTVEC= 14
BPTVEC= 14
; BREAKPOINT TRAP (BPT)

I0TVEC= 20

PWRVEC= 24

EMTVEC= 30
TRAPVEC=34
TKVEC=
60

;s INPUT/0UTPUT TRAP (I0T) #«SCOPE®+
;;POWER FAIL
:;EMULATOR TRAP (EMT) =+ERRQRw+

;:"TRAP'' TRAP

;s TTY KEYBOARD VECTOR

SEQ 0018

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

1006
1007
1008

000064
000240

1009
1010

1011
1012
1013
1014
1015
1016
1017
1018

:858

000174
000176
000200

000137

1021

1022
1023

1024
1025
1026
1027
1028

000204

000046

000052

000046
020740
000052
000000
000204

MACY11 30A(1052)
21-FEB-78
BASIC DEFINITIONS

TPVEC=
64
PIRQVEC=240
.SBTTL
TRAP CATCHER

000000

000174
000000
000000

TEST

08:58

PAGE 20

SEC 0019

;sTTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST VECTOR

.=0

002636

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A "'.+2 HALT"
s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174
DISPREG: .WORD
O
;sSOFTWARE DISPLAY REGISTER
SWREG:
.WORD
O
;:SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JMP
a#START ;;JUMP TO STARTING ADDRESS OF PROGRAM

.SBTTL

ACT11 HOOKS

R R R

;HOOKS REQUIRED BY ACT11
$SVP(C=.
=46
$ENDAD
.=52
.WORD
0
.=$SVP(

R AR R

R RN R R AR

AR AR R AR R RN R AR R R TRA R h

sSAVE PC
2s1)SET LOC.46 TO ADDRESS OF

;:2)SET LOC.52 TO ZERO
;: RESTORE PC

SENDAD

IN .SEOP

MD-11-CZRKKF,
CIRKKF P11

1029
1030
1031
1032
1033
1034

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
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
107
1072
1073
1074
1075
1076
1077
1078

1079

1080
1081
1082
1083
1084

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

H
2
21-FEB-78
08:58

MACY11 30A(1052)
COMMON TAGS

.SBTTL

PAGE 21
SEG

COMMON TAGS

::"!Q.'!Ql'"""""""'Q"""'""Q"'.Q"'t.'Qt'ttttt"tl"

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

001100

001160

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000

001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001206
001210
001212
001213
001214

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
077
015
000012

SCMTAG:
SPASS:

STSTNM:
SERFLG:
SICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:
$AUTOB:
$INTAG:

.=1100
.WORD
.BYTE
.BYTE

.WORD
.WORD
.WORD

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BYTE
.B;;E
.o

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560

$TKB:
$TPS:
S$STPB:
SNULL:

SFILLS:
SPILLC:

$TPFLG:

SREGAD:

177562
177564
177566
.BYTE
.BYTE
BYIE

.BYTE

.WORD

O
0
0

O
0
1
0
0
0
0
O
O
0
0
8
DSWR
DDISP

0
2
12
0
0

;:START OF COMMON TAGS
;;CONTAINS PASS COUNT

;:CONTAINS THE TEST NUMBER
;:CONTAINS ERROR FLAG
;:CONTAINS SUBTEST ITERATION COUNT
;;CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
::CONTAINS ITEM CONTROL BYTE
:;CONTAINS MAX. ERRORS PER TEST
::CONTAINS PC OF LAST ERROR INSTRUCTION
;:CONTAINS ADDRESS OF °'GOOD' DATA
:;CONTAINS ADDRESS OF 'BAD' DATA
;;CONTAINS "GOOD' DATA
;;CONTAINS °"BAD' DATA
; ;RESERVED--NOT TO BE USED
;:AUTOMATIC MODE INDICATOR
; : INTERRUPT MODE INDICATOR
: ;ADDRESS OF SWITCH REGISTER
;;ADDRESS OF DISPLAY REGISTER
;:TTY KBD STATUS

;:TTY KBD BUFFER
;s TTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS
:;CONTAINS NULL CHARACTER FOR FILLS

;:CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A "LINE FEED"

;:"'TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;;CONTAINS THE ADDRESS FROM

;:WHICH

SREGO:
.WORD
SREG1:
.WORD
SREG2:
.WORD
SREG3:
.WORD
SREG4:
.WORD
SREG5:
.WORD
SREG6:
.WORD
$REG7:
.WORD
SREG10: .WORD
SREG11: .WORD
STIMES: O
SESCAPE:0
$QUES:
.ASCII
$CRLF:
.ASCII
SLF:
LASCIZ

O
O
O
O
O
0
0
O
O
0

MSG1:

<15><12>/DRIVE PRESNT/

/7/
<15
12>

(SREGO) WAS OBTAINED

;s CONTAINS ((SREGAD)+0)
;;CONTAINS ((SREGAD)+2)
;s CONTAINS ((SREGAD)
+4)
;sCONTAINS ((SREGAD)
+6)
;;CONTAINS ((SREGAD)+10)
;;CONTAINS ((SREGAD)+12)
;sCONTAINS ((SREGAD)+14)
; ;CONTAINS ((SREGAD)+16)
;;CONTAINS ((SREGAD)+20)
; ;CONTAINS ((SREGAD)+22)
;sMAX. NUMBER OF ITERATIONS
:;ESCAPE ON ERROR ADDRESS
: ;QUESTION MARK
;s CARRIAGE RETURN
;:LINE FEED

;;'t.""'"Q""t""ti"'Q"""'I*'""'.'l!"titt'il"'t"t't

001216

005015

051104

053111

LASCIZ

0020

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51
1085
1086
1087

001224
001232

1088
:838

001236
001244

1091

001245

020105
052116
001236

TEST 2

MACY11 30A(1052)
COMMON TAGS

21-FEB-78

08:58

051120
000

051505

005015
000

047516

042516

MSG2:

.EVEN
.ASCIZ

<15><12>/NONE/

PAGE 22

001252
001260
001266

051040
042111
042523

015

041412

052116

MSG3:

.ASCIZ

<15><12>/CNT RDY DIDN'T SET/

1096
1097

001272
001300

005015
020105

051104
000

053111

MSG4:

.ASCIZ

<15><12>/DRIVE

1099
1100

001303
001310

015
042040

040412
053122

046114
123

MSG5:

.ASCII

<15><12>/ALL DRVS/

1102

001315

040

051104

050117

MSG6:

.ASCIZ

/ DROPD/<15><12>

001322

006504

001326
001330
001332
001334
001336
001340
001342

177400
177402
177404
177406
177410
177412
177416

W= O VRNV

Pl
[=1Va]

000012

042040
020124

RKDS:
RKER:
RKCS:
RKWC:
RKBA:
RKDA:
RKDB:

177400
177402
177404
177406
177410
177412
177416

:TAGS AND GENERAL DATA AREA

e
e
S
- ———————
A S A
——————
A
A
[
A
[N

33
34
35
36
37
38

054504
023516
000124

:RK11 REGISTERS
:IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE
;(GIVEN BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE
;MODIFIED SO THAT THE CORRECT ADDRESS IS USED.

e
e

e e e
s I
e

e I T
T
IR
e e JC U

Y
T

uuu--N---o--o--—-—-a---ooogggo
w
WOV
NOWVSWN OV~

1092
1093
1094

001344
001346
001350
001352

000000
000000
000000
000000

SIMUL:
FTITLE:
DRIVAD:
DRVDON:

0
O
0
0

001354

000000

DRVPTR: 0

001356
001360
001362
001364
001366
001370

000000
000000
000000
000000
000000
000000

INDX1:
INDX2:
COUNT:
COUNT1:
TIMER:
EFLG1:

O
0
0
0
0
O

;FLAG TO BE SET TO 1 WHEN ON SIMULATOR
:FLAG FOR PRINTING PROGRAM TITLE
;CONTAINS ADDRESS OF THE DRIVE UNDER TEST
;CONTAINS THE NUMBER OF DRIVES CHECKED.

;IT IS INCREMENTED EACH TIME THE TESTS FOR
:A DRIVE 1S COMPLETED.

;CONTAINS THE POINTER TO THE DRIVE FLAG (DRIVEO

;=DRIVE?7) OF THE DRIVE TO BE CHECKED NEXT.

;GENERAL INDEX FOR KEEPING COUNT
: GENERAL INDEX
;GENERAL COUNT REGISTER
;COUNT REGISTER USED FOR 'DRESET' SUBROUTINE
;TIMER REGISTER
;SET, TO INDICATE A PARTICULAR
;ERROR CONDITION

SEQ 0021

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

eln-e~¢~u-u~e-u-e-e-u*uo~o~o-o~o~a~°~0‘°~g;unnsn~n~n~n~h~nu~unb
= OOV NOWVSWN
2OV NO VNS WA =

b d d o
d d d d d d D o
D e e d D oD D ed d b d D D o D d e D
e
b b
-J-l-d—.—l—.-.—l-l—h..‘—l—.—b—‘-‘—b—.—‘-‘—.—.d—ad-‘d-‘-‘dddd—.—la

1141
142
143
144
145
46
47
48
9
0
1

2
3

4
5
6
7
g

TEST 2

MACY11 30A(1052)
COMMON TAGS

001372
001374
001376
001400

000100
001000
014500
000200

SEEKO:
SEEK1:
SEEK2:
RKPRI:

100
1000
14500
200

001402

000220

RKVEC:

220

001404
001406

000000
000000

FFLAG:
0
ODDEVN: 0

001410

000000

DDPCH:

001412

000000

DRIVS:

J
2
21-FEB-78
08:58

PAGE 23

;CONTAINS ADDRESS OF CYLINDER 2
sCONTAINS ADDRESS OF CYLINDER 20
;CONTAINS ADDRESS OF CYLINDER 312
sCONTAINS THE CPU LEVEL AT WHICH
;RK11 NORMALLY INTERRUPTS. THIS WORD
;SHOULD BE CHANGED IF RK11 IS DESINGATED
:A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGED
;70 6, THIS WORD SHOULD BE CHANGED TO 240.
;CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH
;RK11 INTERRUPTS. IF THIS IS NOT SO, CHANGE
sTHIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS.

;USED TO DETERMINE WHICH OF RK-05F DRIVES ACTIVE
:0 IF EVEN DRIVE
;=1 IF 0ODD DRIVE
: IF PROGRAM LOADED FROM RKO5, CONTAINS
sADDRESS OF DRIVE WITH RKDP PACK
;CONTAINS THE NUMBER OF DRIVES PRESENT

:THE FLAGS BELOW (BIT 0) ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE
;1S PRESENT AND IS TO BE TESTED. BIT 12, IF SET, INDICATES THAT THE DRIVE
;WAS DROPPED AFTER MAXIMUM ALLOWABLE NUMBER OF ERRORS OCCURED ON THAT
:DRIVE (SW 6 SET).
;IF MORE THAN 5 ERRORS OCCUR IN THE WARDWARE POLLING TEST (LAST)
;THEN ALL DRIVES ARE DROPPED. BUT BIT 12 IS NOT SET.
001414
001416
001420
001422
001424
001426
001430
001432

000000
000000
000000
000000
000000
000000
000000
000000

DRIVO:
DRIVI:
DRIVZ2:
DRIV3:
DRIV4:
DRIVS:
DRIV6:
DRIV7:

0
0
0
0
O
0
O
0

001434
001436
001440

000000
000000
000000

T56FLG: 0
PHYDRV: 0
SIZYET: 0

;FLAG SET TO 1 WHEN DRIVE O PRESENT
;FOR DRIVE 1
;FOR DRIVE 2
;FOR DRIVE 3
;FOR DRIVE 4
;FOR DRIVE 5
:FOR DRIVE 6
:FOR DRIVE 7

SEQ 0022

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF P11
21-FEB-78 08:51

K
2
MACY11 30A(1052)
21-FEB-78 08:58
ERROR POINTER TABLE

;;g%

.SBTTL

1184

s*THIS TABLE CONTAINS THE

1190
119N
1192
1193
1194
1195
1196
1197
1198
1199

Hd
:*
H
it

1185
1186
1187
}}gg

}S};

SEC 0023

ERROR POINTER TABLE
INFORMATION FOR EACH ERROR THAT CAN OCCUR.

s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:

001442

EM
DH
DT
DF

:sPOINTS
:;POINTS
;:POINTS
;;POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTB:

1200
1201
1202
1203
1204
1205
1206

1207
1208
1209
1210
2N
1212
1213
1214
1215
1216

PAGE 24

:
sTHE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES
;USED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO
:THE ITEM NUMBER IN THE ERROR TABLE. THUS 'ERROR
1' IN THE
;PROGRAM CORRESPONDS TO 'ITEM
1' IN THE ERROR TABLE.
;'EM#AR' IS THE
POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED
;OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR
1' THE ERROR
g

sMESSAGE TYPE OUT WILL BE 'TIME OUT ON RK11 REG'.
:'DHA#A' IS THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT

s IMMEDIATELY AFTER THE ERROR MESSAGE.
;'DTA#AR"
SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE
:THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC, CONTENTS
;OF RKCS ETC.) WILL BE PICKED UP FROM.
;THE LAST ROW CONTAINING 'O' SERVES AS A TERMINATOR.
sEXAMPLE:
;IF_ ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS
:(177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD

;OCCUR ON THE TELETYPE.

1219

TIME OUT ON RK11

;gg;

sraary

}ggz

;NOTE THAT ###4## WOULD BE THE ACTUAL PC WHERE 'ERROR

1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236

;THE ERROR HANDLER IS LOCATED AT °'SERROR'. THE ERROR CALL IS AN ‘EMT'
;INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE
;ITEMS IN THE ERROR TABLE.
:THUS 'ERROR
1'
IS 104001
H
'ERROR
103" IS 104126
ETC.

1220

REG

177400

JERROR ITEMS TABLE

1' IS LOCATED.

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249

1250

1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270

1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293

TEST 2

MACY11 30A(1052)
21-FEB-78
ERROR POINTER TABLE
;ITEM

001442
001444
001446
001450

032327
031742
000000
;ITEM

001452
001454
001456
001460

027253
032113
031762

000000

08:58

PAGE 25

SEQ 0024

EM12
DH&4
DT20
0

025402

;'SIN' IS SET
RKCS
H .
s$ERRPC SREGO

RKER
SREG1

RKDS
SREG2

RKDA
SREG3

2
EM70
DH14
DT26

sCNTRL RDY DIDN'T SET ON READ/FMT FROM DISK ADDRESS
RKER
RKW(C
RKCS
:PC
SREG1
SREGZ2
;SERRPC SREGO

EM16
DH4
DT2

;RKDA WRONG AFTER SSE
RECVD
EXPCT
:PC

EM21
DH34
DT1

;RKDS ERROR
RKDS
:PC

EM30
DH30
D126

;'OPL® BIT SET, CHECK DRIVE POWER

EM31
DH30
DT26

;"DRU* BIT SET, CHECK DRIVE

JITEM
001462
001464
001466
001470

025427
032047
031732
000000

:SERRPC SREGO

$REG1

SITEM
001472
001474
001476
001500

025456
032213
031724
000000

:SERRPC SREGO

SITEM
001502
001504
001506
001510

025470
032155
031762
000000

:PC

RKCS

;SERRPC SREGO

RKER

SREG1

RKDS

SREG2

;ITEM
001512
001514
001516
001529

025500
032155
031762
000000

RKCS

:SERRPC SREGO

RKER

SREG1

RKDS

SREG2

;ITEM
001522
001524
001526
001530

025510
032213
031724
000000

EM32
DH34
DT

;ITEM

001532
001534
001536
001540

025531
032327
031742
000000

:"RKO5' BIT NOT SET

:PC

RKDS

;SERRPC SREGO

EM33
DH44
D720

;'DRY' NOT SET
RKCS
H ¢

;SERRPC SREGO

RKER

$SREG1

RKDS

SREG2

RKDA

SREG3

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
1294
1295

1296
1297

1298
1299
1300

21-FEB-78 08:51

001542
001544

001546
001550

025551
032213
031724
000000

1307

1309
1310
1311
1312
1313
1314

DT
0

025570
032231
031724
000000

1308

025623
032251
031732
000000

}g}z

1317
1318
1319
1320
1321
}gsg

001572
001574
001576
001600

1324
1325
1326
1327
1328
;ggg

001602
001604
001606
001610

1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
};22

001612
001614
001616
001620

1345
1346
1347
;;28

001632
001634
001636
001640

025653
032047
031732
000000

025707
032301
031732
000000

025747
032213
031724
000000

001622
001624
001626
001630

025415
032047
031732
000000

026004
032150
031756
000000

;"SEC COUNTR' DIDN'T INCREMENT
;PC
PRSNT=COUNT
NXT=COUNT
sSERRPC SREGO
$REG1

s"SECTOR COUNTER' INCREMENTED WRONG
:PC
EXPCTD
RECVD
:SERRPC SREGO
SREG1

;DIDN'T GET SC=SA FOR THIS SECTOR
;PC
SECTOR RKDS
;SERRPC SREGO
SREGT

;ERROR="R/W/S RDY' SHOULD BE SET
:PC
RKDS
;SERRPC SREGO

ji 4
EM13
DH4
T2
0

JITEM

;"SEC COUNTR® DIDN'T COUNT TO O
:PC
SEC~CNTR
;SERRPC $REGO

EM41
DH34
DT1
0

JITEM

:SERRPC SREGO

EM4O
DH4O
DT2
0
ITEM

;"SOK' DID NOT SET
e
RKDS

14
EM37
DH&
DT2
0

:ITEM

PAGE 26

13
EM36
DH36
DT2
0

SITEM

08:58

12
EM35
DH35
DT1
0

JITEM
001562
001564
001566
001570

EM34
DH34

JITEM
001552
001554
001556
001560

21-FEB-78

ERROR POINTER TABLE
JITEM

}%8;

1303
1304
1305
1306

MACY11 30A(1052)

:RKBA ERROR
:PC
EXPCT
;SERRPC SREGO

RECVD
SREG1

20
EM43
DH21
D121
0

:UNEXPECTED RK11
:PC
;SERRPC

INTERRUPT

SEQ 0025

MD-11~CZRKKF, RK11 BASIC LOGIC

CZRKKF .P11

1350
1351
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

21-FEB-78 08:51

TEST 2

N
2
MACY11 30A(1052)
21-FEB-78 08:58
ERROR POINTER TABLE
;ITERM

001642
001644
001646
001650

026036
032327
031742
000000

001652
001654
001656
001660

DT20

;ITEM

001662
001664
001666
001670

;ITEM

001672
001674
001676
001700

DH4
DT2

sITEM
001702
001704
001706
001710

SITEM

001712
001714
001716
001720

026307
032327
031742
000000

001722

001724

001726
001730

026362
032047
031732
000000

001732
001734
001736
001740

026407
032155
031762
000000

SREG1

RKDS

SREG2

RKDA

SREG3

;RKER BIT, ON SEEK OR DRIVE RESET
H
RKCS
RKER
RKDS

;SERRPC SREGO

SREG1

SREG2

sRKCS CHANGED AFTER FUNCTION WAS DONE

EXPCT

;SERRPC SREGO

RECVD

SREG1

:"R/W/S RDY' DID NOT CLEAR
4

RKCS

;SERRPC SREGO

RKER

SREG1

RKDS

SREG2

:'R/W/S RDY' DIDN'T SET AFTER SEEK OR DRIVE RESET

RKCS
s PC
;SERRPC SREGO

RKER
SREG1

RKDS
SREG2

RKDA
SREG3

EMS52
DH4
DT2

;ITEM

;SERRPC SREGO

RKER

EMS1
DH&4
D720
;ITEM

RKCS

EMSO
DH30
DT26

026260
032155
031762
000000

EM47

026216
032047
031732
000000

;'ERR' OR "HE' SET ON SEEK OR DRIVE RESET

23
EM46
DH30
DT26

026160
032155
031762
000000

s'CNTRL RDY' DIDN'T SET AFTER SEEK OR DRIVE RESET
RKDA
RKDS
RKER
RKCS
sPC
;SERRPC SREGO
SREG1
SREG2
SREG3.

EM4S
DH44
DT20

026112
032327
031742
000000

SEQ 0026

21
EM44
DH&44

;ITEM

PAGE 27

;RKDA CHANGED AFTER SEEK

EXPCTD
;SERRPC SREGO
M

REGVD
SREG1

EM53

DH30

DT26

:"CNTRL RDY' DIDN'T CLEAR AS GO WAS SET
RKDS
RKER
RKCS
M
SREG2
SREG1
;SERRPC SREGO

?g;;\;(;?%tf,
KF.

1606
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422

1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449

1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11 30A(1052)
21-FEB-78
ERROR POINTER TABLE

;1TEM

08:58

PAGE 28

SEQ 0027

001742

026452

EM54

;'CNTRL RDY' DIDN'T SET ON DOING WRITE/FMT STARTING

001744

032374

DH54

RKDS

001746

031774

DT54

001750

000000

;ITEM

026544

EMS55

001754

032374

DH54

001756

031774

DT54

001760

000000

026623
032503

EM56
DH56

001766

031774

DT54

001770

000000

001772
001774
001776
002000

D11

;ITEM

002002
002004
002006
002010

026720
032047
031732

DH4
D12

;ITEM
002012
002014
002016
002020

026757
032155
031762
000000

002022
002024
002026

002030

027014
032047
031732
000000

SREG>

;'HE' OR "ERR'

ON WRITE/FMT STARTING FROM

;<DSK=ADRES>
:PC
RKCS
RKER
RKDS
;DRVF#
CYL <DSK=-ADRES>

;SERRPC SREGO
;SREG4 SREG5S

SREG1!
SREG6

SREG2
SREG7

RKDA
SUR

SREG3

SECTR

sRKDA INCREMENTED WRONG ON WRITE OR WRITE FORMAT
SECTR
SUR
YL
DRv#
EXPCT:
:PC
sRECVD: DRV#
YL
SUR
SECTR

:SERRPC
;SREG4

SREG5

SREGO
SREG6

SREG1

SREG7

SREG2

SREG3

sRKWC DIDN'T OVERFLOW ON WRITE OR WRITE FORMAT
RECVD
:PC

:SERRPC SREGO

;RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT

EXPCT

;SERRPC SREGO

RECVD

SREG!

36
EM61

DH30
D726
;ITEM

SREGS6

EM60

000000

SREGS

SECTR

EM57
DH5

026662
032075
031724
000000

;SREG4

SUR
SREG3

001762
001764

;ITEM

;DRV#
CYL
<DSK-ADRES>
;SERRPC SREGO
SREG1
SREG2

RKDA

001752

;ITEM

:FROM <DSK-ADRES>
;PC
RKCS
RKER

s;RKER SET, ON WRITE/READ/FORMAT
;PC

RKCS

;SERRPC SREGO

RKER

SREG1

37
EM62

DH4
D12

;RKDB ERROR
EXPCT
;PC

;SERRPC SREGO

RECVD

SREG1

RKDS

SREG?

MD-11-CZRKKF,
CZRKKF P11

RK11

BASIC LOGIC

21-FEB-78 08:51

1462
1463

1464
1465
1466
1467
1468
1469
1470
1471

1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495

TEST 2

MACY11 30A(1052)
21-FEB-78
ERROR POINTER TABLE

ITEM
027026

032503

EM63
DH56

002036

031774

DT54

002040

000000

002042
002044
002046
002050

027072
032610
031732
000000

002052
002054
002056
002060

027135
032047
031732
000000

002062
002064
002066
002070

DH4
D12

027201
032634
031762
000000

002072
002074
002076
002100

DT26

ViAoV
A LY

—o-a-o-._.-n-o.ag
NOWVMS
NN —=O

o
e
D d

;ITEM

SREG]
SREG7

SREG2

SREG3

sRKWC DID NOT OVERFLOW ON READ OR READ FORMAT
RKDA
RKW(
:PC

;SERRPC SREGO

SREGT

sRKBA INCREMENTED WRONG ON READ OR READ FORMAT
RECVD
EXPCT
s

;SERRPC SREGO

SREG!

: INCORRECT HEADER FROM 'SECTOR'
RECVD
EXPCT
SECTR
:PC

;SERRPC SREGO

SREG1

SREGZ2.

;DATA ERROR

EXPCT

;SERRPC SREGO

RECVD

DSK-ADRES

SREG!

SREG2

002102

027253

EM70

002104

032374

DH54

002106

031774

DT54

002110

000000
JITEM

SREGO
SREG6

EM67
DH67

027240
032672
031762
000000

s SERRPC
;SREG4 SREG5

EM66
DH66
DT26

JITEM

sRKDA INCREMENTED WRONG ON READ OR READ FORMAT
:PC
EXPCT:
DRvV#
cYL
SUR
SECTR
sRECVD: DRvV#
YL
SUR
SECTR

EM6S

;ITEM

SEQ 0028

EM64
DH64
DT2

JITEM

PAGE 29

002032
002034

:1TER

08:58

;"CNTRL RDY' DIDN'T SET ON DOING READ/FMT STARTING

FROM <DSK-ADRES>

RKCS

RKER

RKDS

RKDA

;SERRPC SREGO
;SREG4 SREGS

SREG!
SREG6

SREG2
SREG7

SREG3

:PC

;ORVE

(YL

<DSK-ADRES>

SUR

SECTR

002112

027344

EM71

002114

032374

DH54

002116

031774

DT54

:"ME' OR "ERR' BIT SET ON READ/FMT STARTING
; FROM <DSK-ADRES>
;PC

;DRVE®

RKCS

(YL

;SERRPC SREGO
:SREG4L SREGS

RKER

RKDS

RKDA

SREG1
SREG6

SREG2
SREG?

SREG3

<DSK=ADRES>

SUR

SECTR

MD-11-CZRKKF,

CZRKKF P11
1518
1519
1520
1521
1522
1523
1524

002120

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11

DH4
DT2
0

D12

DH74
DT

032732
031724
000000

027656
033106
031724
000000

DH4
D12

027756
032753
031762
000000

030001
032327
031742

;WRONG DRIVE ID IN RKDS AFTER SEEK
9C

EXPCT

;SERRPC SREGO

RECVD

SREGT

;HARDWARE POLL,

;PC

DRIVE

ID BITS(13-15)

SHOULD BE

CLEAR

RKDS

;3ERRPC SREGO

sHARDWARE

iPL

POLL,

DRIVE #

INTERRUPTING DRIVE

# NOT PRESENT

;SERRPC SREGO

:'DRIVE #' DID NOT INTERRUPT DURING HARDWARE POLL

:PC

DRIVE #

;SERRPC SREGO

JSCP DID NOT SET AFTER WAS DONE

;PC

RKCS

;SERRPC SREGO

EM77

027721
032047
031732
000000

;RKDA CHANGED AFTER 'DRIVE RESET'
:PC

EXPCT

;SERRPC SREGO

RECVD

SREGT

EM100
DH100
DT26

;ITEM
002212
002214
002216

SEQ 0029

EM76
DH117
DT1

;ITEM

002202
002204
002206
002210

EM75
DH74
bT1

027606

;ITEM

002i72
002174
002176
002200

PAGE

EM74

027536
032732
031724
000000

;ITEM

002162
002164
002166
002170

EM73
DH34

027464
032213
031732
000000

JITEM
002152
002154
002156
002160

08:58

EM72

027422
032047
031732
000000

;ITEM
002142
002144
002146
002150

000000

;ITEM
002132
002134
002136
002140

21-¢EB-78

ERROR POINTER TABLE

;ITEM

002122
002124
002126
002130

30A(1052)

;DATA ERROR AT WORD#
:PC
WORD¥#
EXPCT

;SERRPC SREGO

SREG1

RECVD

SREG?

56
EM101
DH&4
D120

;CNTRL RDY DID NOT SET AFTER READ CHECK
:PC

RKCS

;SERRPC SREGO

RKER

SREG1

RKDS

SREG2

RKDA

SREG3

MD-11-CZRKKF,
CZRKKF PN

1574
1575
1576

1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616

1617
1618

1619
1620
1621
1622

1623
1624

1625
1626
1627
1628
1629

002220

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

E
3
21-FEB-78 08:58
ERROR POINTER TABLE

MACY11

000000

030067
033010
031724
000000

EM103

JITEM

002252
002254
002256
002260

030156
032047
031732
000000

002262
002264
002266
002270

030214
032047
031732
000000

002272
002274
002276
002300

030245
033050
031762
000000

002302
002304
002306
002310

030306
032327
031742
000000

002312
002314
002316

030351
032155
031762

SREG1

RKDS

SREG2

s"CSE" ON READ CHECK
H

RKER

:SERRPC S$REGO

sRKWC DID NOT OVERFLOW ON READ CHECK OR WRITE CHECK
RK(CS
RECVD
:PC
SREG
SREGO
;SERRPC

DT2

;SERRPC SREGO

;PC

EXPCT

RECVD

SREG!

;RKBA CHANGED AFTER READ CHECK
RECVD
EXPCT
;P
;SERRPC SREGO

SREGI

;MEMORY WORD CHANGED AFTER READ CHECK
RECVD
EXPCT
LOC
:PC

;SERRPC SREGO

SREG1

SREG2

65
EM110
DH&4
DT20

SITEM

RKER

sRKDA INCREMENTED WRONG ON READ CHECK

EM107
DH107
DT26

;ITEM

;SERRPC SREGO

EM105

EM106
DH4
DT2

SITEM

'HE' SET ON READ C(HECK

RKCS

62
DH4

JITEM

:PC

EM104
DH104
pT2

030105
033024
031732
€00000

;'ERR' OF

DH103
T

SITEM
002242
002244
002246
002250

SEQC 0030

EM102
DH30
DT26

030043
032155
031762
000000

ITEM
002232
002234
002236
002240

PAGE 31

;ITEM
002222
002224
002226
002230

30A(1052)

sCNTRL RDY DID NOT SET AFTER WRITE CHECK
P

RKCS

;SERRPC SREGO

RKER

SREG1!

RKDS

SREG2

RKDA

SREG3

EMI11
DH30
D126

sHE OR ERR BIT SET AFTER DOING WRITE CHECK
RKDS
RKER
RKCS
;PC
;SERRPC SREGO
SREG1
SREG2

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656

1657
1658
1659
1€50
1661

1662

1663

1664

1665

1666
1667
1668
1669

1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685

002320

TEST 2

F
3
MACY11 30A(1052)
21-FEB-78 08:58
ERROR POINTER TABLE

000000

030417
032047
031732
000000

SITEM

002352
002354
002356
002250

030515
032047
031732
000000

002362
002364
002366
002370

030551
032753
031762
000000

002372
002374
002376
002400

033106
031724
000000

DT
JITEM

002402
002404
002406
002410

030671

DT1

000000

ITEM
002412
002414
002416

030744
033106
031724

;RKDA
:PC

INCREMENTED WRONG ON WRITE
EXPCT
RECVD

;SERRPC SREGO

CHECK

SREG!

sRKBA INCREMENTED WRONG ON WRITE CHECK
:PC
EXPCT
RECVD

;SERRPC SREGO

SREG!

sRKBA
:PC

INCREMENTED WITH IBA SET
EXPCT
RECVD

;SERRPC SREGO

SREG!

;WRONG MEMORY LOCATION CHANGED WITH IBA SET
:PC
WORD¥
EXPCT
RECVD
;SERRPC SREGC

SREG1

SREG?

;RK11

DID NOT

INTERRUPT WHEN IDE WAS SET

RKCS

;SERRPC SREGO

EM120
DH117

033106
031724

SREG2

EM117
DH117

030624

RKDS

EM116
DH100
DT26

JITEM

SREG!

EM115
DH4
D12

;ITEM

;SERRPC SREGO

EM114
DH4
D12

030456
032047
031732
000000

;WRITE CHECK ERROR
:PC
RKCS
RKER

EM113
DH4
D12

SITEM
002342
002344
002346
002350

EM112
DH30
DT26

030376
032155
031762
000000
;ITEM

002332
002334
002336
002340

SEC 0031

0
;ITEM

002322
002324
002326
002330

PAGE 32

sRK11

:PC

DID NOT INTERRUPT AFTER SEEK WAS INITIATED

RKCS

;SERRPC SREGO

EM121
DH117
o1

;SCP SET BEFORE SEEK COMPLETED
;PC

RKCS

;SERRPC SREGO

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701

1702
1703
1704

S
S
S
L
B

NN~ NNSNNNNNNNNNN
oo ~n N o b ad wd ccd d e o b
swN - OVRERNOWVSsWNN—=O

1705
1706
1707
1708
1709

1725

002420

TEST 2

MACY11

000000

031051
033106
031724
000000

DT1
0

031152
032020
031732
000000

031211
033122
031732
000000

D12
0

LRVS

TY
e
e
e

SNNSNNSNNNN
&~ Hw
- OO0

031314
033150
031762
000000

002512
002514

031351
033207

RKCS

sSERRPC $SREGO

:RK11

:PC

DID NOT
RKCS

INTERRUPT AFTER READ WAS DONE

;SERRPC SREGO

sCNTRL RESET DID NOT CLEAR REGISTER
REGADD RECVD
ot
SREG!
;SERRPC SREGO

;RK11
4

DID NOT INTERRUPT AT CPU LEVEL
LEVEL
RKCS

;RK11

INTERRUPTED AT WRONG CPU LEVEL

;SERRPC SREGO

SREG

LEVEL
SREGO
;SERRPC
P

RKCS
SREG!

105

EM130
DH130
DT26
0
JITEM

;CNTRL RESET DID NOT CLEAR 'SCP' BIT

:PC

104

EM127
DH126

031252
(33122
031732
000000

sRK11 DID NOT INTERRUPT AFTER SEEK COMPLETED
o
RKCS
RKER
RKDS
;SERRPC SREGO
SREG!
SREG2

103

EM126
DH126
DT2
0

;ITEM

002502
002504
002506
002510

SEQ 0032

102

EM125
DH2
D12

sITEM

002472
002474
002476
002500

101

EM124
DH117

031110
033106
031724
000000

;ITEM

002462
002464
002466
002470

PAGE

100

EM123
DH117

JITEM

002452
002454
002456
002460

08:58

Em122
DH30
DT26

031002
032155
031762
000000

;ITEM
002442
002444
002446
002450

JITEM

002432
002434
002436
002440

21-FEB-78

ERROR POINTER TABLE

;ITEM

002422
002424
002426
002430

30A(1052)

;'ERR BIT' DID NOT SET IN RKER
ERR BIT
RKER
RKCS
= 5 8

;SERRPC SREGO

SREG!

106

EM131
DH131

;HE OR ERR DID NOT SET

(14

RKCS

RKER

SREG?

MD-11-CZRKKF,
CZRKKF P11

1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757

1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
177N
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

002516
002520

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST

H
3
MACY11 30A(1052)
21-FEB-78
08:58
ERROR POINTER TABLE

D12
0

031732
000000
JITEM

002522
002524
002526
00253C

DH4
D12
0

;ITEM

002532
002534
002536
002540

031410
033235
031762
000000

002542
002544
002546
002550

DT26
0

D12
0

JITEM

002552
002554
002556
002560

031474
032047
031732
000000

002562
002564

030306
032113

002570

000000

002566

DH4
D12
0

;1TEM

002572
002574
002576
002600

031531
032327
031742
000000

002602
002604
002606
002610

DH44
DT20
0

031547
033273
031742
000000

002612

031616

RECVD
SREGT

sNXC BIT DID NOT SET
RKER
RKCS
:PC

:PC

SREGO

SREG!

RKDA

SREGZ
.

sRK11 DIDN'T INTERRUPT ON SOFT ERROR
RKER
RKCS
P
SREG
;SERRPC SREGO

sMEX BITS INCREMENTED WRONG IN RKCS
EXPCTD RECYD
:PC

;SERRPC SREGO

SREGT

sCNTRL RDY DID NOT SET AFTER WRT CHK
H o
RKCS
RKER
RKWC
;SERKPC SREGO
SREG1!
SREGZ2

:'WPS' NOT CLEAR
RKER
RKCS
P

;SERRPC SREGO

SREG!

RKDS

SREG2

RKDA

SREG3

115

EM140
DH140
DT20
0
JITEM

EXPCT

sSERRPC SREGO

114

EM137

;ITEM

113

EM110
DH14
DT26
0

031762

;RKER ERROR

112

EM135

;ITEM

SREGT

EM134
DH131

031433
033207
031732
000000

SEQ 0033

110

EM133
DH133

SITEM

107

EM132

031376
032047
031732
000000

;SERRPC SREGO

PAGE

;DATA ERROR ON TRANSFER FROM DISK TO TTY
RKCS
RKBA
RECVD
EXPCT
sPC

;SERRPC SREGO

SREG1

SREGZ

SREG3

116

EMI4T

;"DRIVE #' PRESENT, BUT NOT SPECIFIED

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809

1810

1811
1812
1813

002614
002616
002620

TEST

MACY11 30A(1052)
21-FEB-78
ERROR POINTER TABLE

DH74

032732
031724
000200

DT
0
JITEM

002622
002624
002626

025370
032047
031732

002630

000000

002632
002634

031662
000000

;ITEM

:PC

08:58

PAGE 35

DRIVE #

;SERRPC SREGO

EMN
DH4
DT2
0
120
EM142
0

;RKWC ERROR

:PC

EXPCT

;SERRPC SREGO

RECVD

SREG!

SECG 0034

002640
002646
002650
002654
002660
002666
002670
002672
002674
002676
002700
002702
002704

023737
001016
005077
012700
032777
001006
005001
005301
001376
005300
001367
000000

000042

000046

MACY11

30A(1052)

START:

RESET

176440

CMP
BNE
CLR

20%:

.SBTTL

012706
005026
022706
001374
012706

001100

002724
002732
002740
002746
002754
002762
002770
002776
003004
003010
003014
003022
003030

012737
012737
012737
012737
012737
012737
012737
012737
005037
005037
112737
012737
012737

022140
000340
022412
000340
024676
000340
024776
000340
001206
001210
000001
003022
003030

003036
003042
003050
003056
003064
003072

013746
012737
012737
012737

000004
003076

003074
003076
003102
003104
003112
003120

000403
012716
000002
012737
012737
012637

003124
003132

023737
001416

022777

001012

08:58

PAGE 36

SEQ 0035

;CLEAR THE BUS

MOV

BIT

BNE
CLR
DEC
BNE
DEC
BNE

HALT

ans2,anib
STARTA
aRKDA
#250,R0
#200,aRKDS
STARTA
R1
R1

208

JARE WE IN ACT11
:NO, SKIP DELAY
sSELECT UNIT O
sWAIT FOR..
;DRIVE READY..
sIN CASE..

AUTOMATIC MODE?

;O0F APT..
;START, BUT..

;DON'T WAIT..

;FOREVER.

;RKDS BIT 7 (DRIVE READY) NEVER SET

INITIALIZE THE COMMON TAGS

;;CLEAR THE COMMON TAGS (SCMTAG) AREA

001100
001140

177570
177570
177777

;:GIVE DRIVES TIME TO LOAD HEADS IN CASE OF AN APT START.

’
STARTA:

002704
002710
002712
002716
002720

21-FEB-78

ERROR POINTER TABLE

176464

000250
000209

MOV
CLR

#SCNTAG,R6

MOV

#STACK,SP

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#$SCOPE ,a#I0TVEC ; ;10T VECTOR FOR SCOPE ROUTINE

CHP
BNE

000020
000022
000030
000032
000034
000036
000024
000026

001110

(R6) +

#SWR,R6 ;;DONE?

.=6

s INITIALIZE A FEW VECTORS

CLR
CLR
Move
MOV
MOV

001115
001106

;:FIRST LOCATION TO BE CLEARED

::CLEAR MEMORY LOCATION
::LOOP BACK IF NO

;:SETUP THE STACK POINTER

#340,3#10TVEC+2 ;;LEVEL 7

#SERROR ,@FEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE

#3460, ,3FERTVEC+2 ;:LEVEL 7
#STRAP ,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#3460, 8#TRAPVEC+2;LEVEL 7
#SPURON ,@#PURVEC ;;POWER FAILURE VECTOR
#340,@FPURVEC+2 ;;LEVEL 7

STINMES

SESCAPE
#1,SERMAX
#.,SLPADR
#.,SLPERR

s INITIALIZE NUMBER OF ITERATIONS

s:CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST
;s INITIALIZE THE LOOP ADDRESS FOR SCOPE
;: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.

000004
001140
001142
176046

00310¢

000176
000174
000004
000042

000046

1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869

000005

1850
1851
1852

002636

1847
1848
1849

21-FEB-78 08:51

TEST 2

(=1 =]
(=1 =]

1814

1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846

BASIC LOGIC

P
o

CZRKKF P11

RK11

MD-11~CZRKKF,

MOV
MOV
MOV
MOV

SFERRVEC,-(SP)
#64S ,SFERRVEC

;:SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

BNE

66%

::BRANCH IF NO TIMEOUT TRAP OCCURRED

CMP

#DSWR, SWR
#ODISP,DISPLAY
#-1,aSWR

s:SETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR

::AND

THE HARDWARE SWR IS NOT = -1

64%:

BR
MOV

65%

65%:

MoV

66%:

MOV

MoV

#SWREG, SWR
;;POINT TO SOFTWARE SWR
#DISPREG,DISPLAY

(SP)+ ,@#ERRVEC

;;RESTORE ERROR VECTOR

CMP

ave2,ane6

sARE WE IN ACT11 AUTOMATIC MODE?
;YES, SKIP TITLE

.SBTTL

RTI

#65%, (SP)

69%
BEQ
TYPE PROGRAM NAME

::BRANCH IF NO TIMEOUT

;:SET UP FOR TRAP RETURN

;;TYPE THE NAME OF THE PROGRAM [F FIRST PASS

MD-11-CZRKKF,

CZRKKF P11
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884

1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11

TYPE PROGRAM NAME

177777

003134
003140
003142

005227
001043
104401

003200

003146
003152
003154
003162
003164
003166
003170
003176
003176

005737
001006
023727
001005

000042

000424

003250
003250
003254
003260
003262
003264
003266
003272
003274
003300
003306

012700
012701
005020
005201
001375
005227
001020
013746
012737
005737

001140

.SBTTL

000176

104406

000403

112737

003312

003314

000406
012737

003322
003326
003330

012716
000002
012637

30A(1052)

001134

-1
67%

s:FIRST TIME?
;;BRANCH IF NO

3NE
CMP
BNE

69%
SWR,#SWREG
708

: :BRANCH IF YES
;;SOFTWARE SWITCH REG SELECTED?
: :BRANCH IF NO

708

TYPE
.68%
;:TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
arse
::ARE WE RUNNING UNDER XXDP/ACT?

#1,8AUTOB

;:68%:

BR
ASCIZ

67%
;:GET OVER THE ASCIZ
<CRLF>/RK11 LOGIC TEST 2/<15><12>/MAINDEC=11-CZRKKF/<CRLF>

MOV
Mov
CLR
INC
BNE
INC
BNE
MoV
MOV

#DDPCH,RO
#-14 ,R1
(RO)+
R1
1%
#-1
START1
ERRVEC,~(SP)
#2% ,ERRVEC

sFIRST START ?
:BR IF NOT
s SAVE ERROR VECTOR ADDRESS
:NEW VECTOR ADDRESS

;PROCESSOR STATUS WORD
;BR IF REFERENCE DIDN'T CAUSE TRAP

708:

1%:

000004

TST

000140

001400

2%:

003330
3s:

000004

;:GET SOFT~SWR SETTINGS

MOvB

177777

000004
003314
177776

SEQ 0036

69%:

67%:

001410
177764

PAGE 37

INC
BNE

GTSWR

000001

K
3
21-FEB-78 08:58

MOV

#140,RKPR]

MOV

#38,(SP)

RTI
MoV

(SP)+ ERRVEC

::SET AUTO-MODE

;SEE

INDICATOR

IF PROGRAM CAN REFERENCE

THE

;SETUP INTERRUPTING PRIORITY TO VALUE
sWHICH WILL ALLOW INTERRUPT ON AN LSI-11

;SETUP RETURN ADDRESS

sRETULN
sRESTORE THE ERROR VECTOR

:FIND OUT IF ACT11, 'XXDP' CHAIM OR DUMP MODE
003334
003340
003344
003346
003350
003352
003360
003362

012700
012701
005020
005201
001375
122737
001166
013737

001410
177766

003370
003376
003400
003404
003410
003412
003416
003420
002424
003424

003430

000002

000041

000040

001410

122737

000010

001410

105037

00141C

005737
001432
005737
001002
000137

000042

104401
000413

003432

101002

START1: MoV

#DDPCH,RO

1%:

(RO)+
R1
1$
9,4

2%:

001410
004262

3$:

MoV

CLR
INC
BNE
CMPB
BNE
MoV

#~-12.R1

ST2
40,DDPCH

CMPB
BHI
CLRB

#10,0DPCH
2%
ODPCH

TST
BEQ
TST

42
4%

BNE
JMP
TYPE
BR

DDPCH
3s

ST13
,65%

64%

sCLEAR OUT DRIVE TABLE AREA

;LOADED FROM AN RKOS ?

:BR IF NOT
sGEYT DEVICE INDICATOR AND DRIVE ADDRESS OF

:LOADING RKOS

sVALID DRIVE NUMBER IN BYTE 40 ?
:BR IF YES
:MUST BE DRIVE ZERO WHICH LOADED

;THIS PROGRAM

:CHAIN MODE OR ACT11 AUTO ACCEPT ?
:BR IF NEITHER

:RUNNING FROM AN RKOS ?
:BR IF YES

:FIND OUT NUMBER OF DRIVES
;s TYPE ASCIZ STRING

;:GET OVER THE ASCIZ

MD-11-CZRKKF,
CZRKKF .P11

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
1975
1976
1977
1978
1979
1980
1981

RK11

BASIC LOGIC

21-FEB-78 08:51

003460
003460
003462
003466

003470
003471
003472
003476
003502
003504
003510
003534
003534
003536
003542
003544
003545
003546
003552
003636
003636
003642

TEST 2

L
3
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 38
GET VALUE FOR SOFTWARE SWITCH REGISTER
32253:

005046
113716
104403
001
000
000137
005227
001115
104401
000411

005046
113716
104403

001
000
104401
000431
104401

000435

CLR

001410

004262

177777

48:

éé&”:

001410

003644
;6;18:

;CLEAR WORD ON STACK

.BYTE
.BYTE

1
0

INC

-1

TYPE
BR
LASCIZ

,67%
;:TYPE ASCIZ STRING
66%
::GET OVER THE ASCIZ
<15><12>/T0 TEST DRIVE /

CLR

=(SP)

;CLEAR WORD ON THE STACK

.BYTE
.BYTE

1
0

JONLY 1 CHARACTER
:SUPRESS LEADING ZEROS

68%

TYPE
BR

718
708

JMP
BNE

TYPE

26293:

-(SP)

DDPCH, (SP)

MOVB
TYPOS

003554

<15><12>/NOT TESTING ORIVE /

MOVB

TYPOS

003512

003736

LASCIZ

SEQ 0037

ASCIZ

.ASCIZ

ST3
sT2

DDPCH, (SP)

.69%

;GET DRIVE ADDRESS
;TYPE

THE ADDRESS

;ONLY 1 CHARACTER
:SUPRESS LEADING ZEROS

;GET NUMBER OF DRIVES

;FIRST TIME THROUGH HERE

;BR IF NOT

;

;GET DRIVE ADDRESS
;TYPE THE DRIVE ADDRESS

;:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

/ HALT PROGRAM, REMOVE RKDP PACK AND REPLACE

1T/<15><12>

;s TYPE ASCIZ STRING
::GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40, AND RESTART PROGRAM/

;FIND OUT FROM USER WHICH DRIVES (LOGICAL ADDRESSES) ARE TO BE
sTESTED (DRIVES TO BE TESTED ?). IN REPLY THE USER SHOULD TYPE IN THE
:LOGICAL ADDRESSES SEPERATED BY COMMAS. THUS IF 2 DRIVES 0,1 ARE PRESENT:

003736
003742
003746
003750
003752
003754
003760

012700
012701
005020
005201
001375
104401
000415

004014
004014
004016
004020

104411
012600
012701

004024
004026
004032
004036
004042
0046046
004050
004052
004054
004056

112002

042702
012703
012704
012705
020502
001414
005205
005723
005204

001412
177765

2
ST2:
138:

'DRIVS TO B TSTD?'

'0,1<CR>’
A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST.
MoV
#ORIVS,RO
MoV
#-13,R1
CLR
(RO)+
INC
R1

BNE

003762
gigss:

TYPE
BR
LASCIZ
RDLIN

177770
177400

001414
177770
000060

18:

2%:

138

.65%
::TYPE ASCIZ STRING
64%
::GET OVER THE ASCIZ
<15><12>/DRIVES TO BE TESTED ?/<15><12>

MoV
MOV

(SP)+,RO
#-10.R1

sGET STARTING ADRES OF ASCII
sSET UP COUNT

BIC

#177400,R2

sMASK UNWANTED BITS

MOVB

MOV
Mov
MoV
CHP

(RO) +,R2

#ORIVO,R3
#-10,R4
#60,R5
R5,R2

BEQ
INC

3%
RS

INC

TST

(R3)+

sGET ASCII

STRING

CHARACTER

;WAS THE TYPED IN CHARACTER

;A NUMBER BETWEEN 0-7?
:YES, BRANCH
:NO, INCREMENT

s INCREMENT POINTER TO DRV FLAG

;CHARACTER THAT WAS INPUT

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

2002
2003

BNE

004062
004064
004066
004066
004072

005702
001461

TST
BEQ

R2
63

TYPE
BR

,678
66%

$T2
aR3

004100
004100
004102
004104

I3 oo

2001

001372

et
b ek d ed oD

2000

L
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 39
GET VALUE FOR SOFTWARE SWITCH REGISTER

004060

Razaass §RERS2 R

1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

TEST 2

004164
004166
004174
004200
004202
004204
004210
004212
004214

104401

000402

000716
005713
001370
005213
005237
111002

042702
022702
001026
052713
032705
001407
005763
001347
012763
000406
005763
001340
012763

005237

105720
000744
022702
001403
005702
001324

004216
004220

000404
105720

004222
004224
004226

005201
001277
000717

004230
004234
004242
004244
004250

005037

032777
001003
005037
000502

004252
004260

012737
000476

48:

004074

::67%:
66%:
3%:

001412

118%:

177400

000106
100000
000001
177776

100001

177776

000002

9s:

000002

000054

108:

001344

BIC
CHP
BNE
BIS
BIT
BEQ
TST

::TYPE ASCIZ STRING
::GET OVER THE ASCIZ

:60, AGAIN ASK QUESTION
;SEE IF ALL READY SELECTED
‘ERROR IF SELECTED

DRIVS

aR0,R2
#177400,R2

#'F.R2
8s
#B1T15,aR3
#BITO.RS
9s

-2(R3)

BNE
MoV

TST
BNE

2(R3)

MOV
INC

:1S IT A TERMINATOR?
SYES, EXIT. NO DRIVES INDICATED.

: INCREMENT TOTAL NO OF DRIVES PRESENT

SGET NEXT CHAR
:CHARACTER ONLY

(IS IT F2
:NO, GO ON
SSET BIT 15 TO SHOW RKOSF
*EVEN DRIVE?
:EVEN DRIVE SO BRANCH

:CHECK EVEN DRIVE

“EVEN ALL READY SELECTED

#BIT15!8170,-2(RY)
108

ALL READY

:SET UP FLAG FOR THE DRIVE

;SELECT EVEN DRIVE

: CONTINUE

:CHECK ODD DRIVE

4s
*ERROR IF SELECTED BEFORE
#BIT15!BIT0,2(R3)
;SELECT ODD DRIVE
DRIVS
sCOUNT DRIVES SELECTED

sPOINT TO NEXT CHAR

TST
BNE

BR
TSTB

6%
(RO)+

SEXIT, IF A TERMINATOR
: INCREMENT PTR TO NXT BYTE

INC
BNE
BR

R1
18

:THERE SHOULD BE NO MORE THAN
:8 DRIVES, HENCE IF MORE

;THAN 8 DIFFERENT NOS. TYPED IN, ERROR!
:GO AGAIN ASK THE QUESTION

6%:

CLR
BIT
BNE
CLR
BR

SIZYET
#5W10,3SWR
7%
SIMUL
ST4

:NO SIZING NEEDED
sTESTING ON SIMULATOR?
:YES, BRANCH
:NO, CLR FLAG

78:

MOV
BR

l}leHUL
)

sSET FLAG TO INDICATE SIMULATOR

001344

000001

MOVB

:DRIVS TO BE TSTD?

/771

ar3

IF ANY OTHER

“TYPE 27 & AGAIN ASK FOR

(RO)+

8s:

174676

TST
BNE
INC
INC

:SHOULD BE 0-7,

118
#54 ,R2
5%
R2
43

5%:

001440
002000

LASCIZ

SEQ 0038

1STB

cMpP
BEQ

;CHECK FOR COMMA
;1S IT A "COMMA®?
;YES, GO PROCESS NXT WORD
:NO, IS IT A TERMINATOR?
;1F NOT, SOMETHING WRONG

;GO ASK QUESTION AGAIN

; IN INPUT BUFFER

MD-11-CZRKKF,
CZRKKF P11

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
207
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093

004262
004270
004276
004302
004306
004314
004316
004320
004324
004330
004332
004334
004340
004344
004350
004352
004356

RK11

BASIC LOGIC

21-FEB-78 08:51

012737
012737
005777
005777
012737
104401
001216
012700
005037
005001
005004
012702
010177
020177
001405
012703
004737

177777

004442
175024
175032

004534

TEST 2

001440

000004

N
3
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 40
GET VALUE FOR SOFTWARE SWITCH REGISTER

; CHECK NUMBER OF DRIVES
#-1,SIZVET
MOV
ST3:
MOV

TST

TST
MOV
TYPE

000004

MSG1

177770
001412

MOV

CLR
CLR
CLR

001414
174774

1%:

174770

Mov
MOV
CMP

BEQ

004356

2%:

021026

MOV
JSR

58,904
aRKDS
aRKDA
#BADTMO ,a¥¢

#-10,R0
DRIVS
R1
R&
#ORIVO,R2
R1,3RKDA
R1,3RKDA
3%
#2% ,R3
PC,TYERM

SEQ 0039

;CHECK FOR RKOSF LATER
sSET UP ADRES FOR TIME-OUT VECTOR
;REFERENCE RKDS
;REFERENCE RKDA

sINITIALIZE COUNT FOR THE 8 DRIVES
sINITIALIZE # OF DRIVES PRESENT TO 0
;INITIALIZE ADDRESS TO DRIVE 0
;ADDRESS THE DRIVE
:52§CK. WAS IT ADDRESSED?
;WHILE

CHECKING NUMBER OF

;UNDER NON=-MANUAL MODE :-

DRIVE

;RKDA HAD TO BE ADRESED BUT
;1T WAS FOUND THAT THE DRIVE NO

;THAT WAS WRITTEN COULD NOT BE READ BACK

s CORRECTLY.
004362
004364

000413
032777

004372
004374
004376
004400
004404
004406
004410
004412
004414
004420
004422
004424
004426
004432
004434
004436
004440

001407
104401
001213
005237
005212
010446
104402
005722
062701
005204
005200
001345
005737
001011
104401
001236
000406

004442
004444
004446
004452

011603
022626
062703
004737

000200

174734

3%:

001412

020000

48:

001412

BR
BIT

BEQ
TYPE
SCRLF
INC
INC
MOV
TYPOC
ST
ADD
INC
INC
BNE
TST
BNE
TYPE

43.

MSG2

5%:
177776
021026

MoV

CMP
ADD
JSR

#200,3RKDS

sCHECK IF °'DRY" BIT IS SET, IF SET DRIVE IS
sPRESENT
.

DRIVS
(R2)
R4 ,-(SP)

sIF PRESENT, INCREMENT # OF DRIVES
sSET UP FLAG INDICATING THIS DRIVE PRESENT

(R2)+
#20000,R1

sSHIFT POINTER TO NXT DRIVE INDICATOR
sSET UP ADDRESS FOR THE NEXT DRIVE

RO
1%
DRIVS
ST4
ST4

(SP) ,R3
(SP)+,(SP)+

#-2,R3

PC,TYERM

;HAVE U CHECKED FOR ALL 8 DRIVES

;GO CHECK THE DRIVE INDEPENDENT
; CONTROLLER. LOGIC

;GET PC WHERE TIMEOUT OCCURED
sRESTORE STACK

;GO TYPE ERROR MESSAGE
;WHILE CHECKING FOR THE NUMBER OF
;DRIVES IN NON-MANUAL MODE:-

;RKDS AND RKDA HAD TO BE REFERENCED, TIMEOUT

;OCCURED ON REFERENCING.PC IN THE ERROR
;MESSAGE INDICATES WHERE THE TIMEOUT OCCURED.

MD-11-CZ%KKF,

CZRKKF .P11

RK11

BASIC LOGIC

21-FEB-78 08:51

005037
005737
001004
004737
000137
012737
005037

021742
020652
061414
001352

g}gg

004512

005037

001350

g}gg

004516

012737

004534

2108

004524

012777

004600

004532

000465

B &
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 41
GET VALUE FOR SOFTWARE SWITCH REGISTER

ST4:

CLR

18:

BNE
JSR
JMP
MOV

1%
PC,WATIME
$EOP
#ORIVO,DRVPTR

CLR

DRIVAD

000004

Mov

#BADTMO ,ané

174650

Mov

#BADINT,@RKVEC

;SET UP RK11

;GO TO TEST 1

001434
001412

001354

TST

CLR

SEQ 0040

T56FLG

DRIVS

DRVDON

;INITIALIZE THE NO. OF DRIVES
:THAT HAVE BEEN CHECKED
sINITIALIZE DRIVE ADDRESS TO

;THE

FIRST DRIVE

:g%;ETéS$SOUT VECTOR FOR UNEXPECTED
INTERRUPT VECTOR FOR

;UNEXPECTED INTERRUPTS FROM RK11

OVRNOWVMSUWN=O 0

e
T e — -b

004456
004462
004466
004470
004474
004500
004506

LSLSLNTNTNLNNT
VY ST NN ~N

2094
2095
2096
2097
2098
2099
2100
2101
S}g%

TEST 2

sTHIS ROUTINE HANDLES UNEXPECTED TIME OUTS

2123

004566

2121

004534
004536
004540
004542
004546

2124
2125
2126
2127

004566
004570
004572
004574

011600
005740
022626
104401
000407
010046
104402
000000
000137

BADTMO: ?2¥

004550
i,i';’”’

CMP
TYPE
BR
LASCIZ

(SP)+,(SP)+
sRESTORE STACK POINTER
.65%
::TYPE ASCIZ STRING
648
1:GET OVER THE ASCIZ
<15><12>/TIMOUT,PC=/

mov

RO,=(SP)

v:mtac

HAL

002636

(%:6;R0 sSAVE PC WHERE TIME OUT OCCURED

JMP

;SET UP FOR TYPING OUT PC
160 TYPE OUT OCTAL PC

afSTART

:THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK11

:SW 9 AND 10 FOR LOOPING ON ERROR

sAND LOOPING ON TEST IN WHICH TIMEOUT
;OCCURRED, ARE PROVIDED.
2136
2137
2138
2139
2140
2141
2142
2143

004600
004602
004604
004612
004614
004616
004620
004622

011600
005740
032777
001014
104401
001213
104401
026004

2145
2146

004624
004630

104401
000403

2148
2149

004640
004640

010046

020000

174326

BADINT: MOV
TST
BIT
BNE

TYPE

(SP) RO
-(R0O)
#20000,aSwR
1%

;SAVE PC WHERE

INTERRUPT OCCURED

JINHIBIT ERROR TYPEOUT?
;YES, DON'T TYPE OUT

$CRLF
TYPE

EM4S

004632

TYPE

;:65%:

64%:

sTYPE

,65%

648

MOV

RO,-(SP)

ASCIZ

/.PC=/

"UNEXPEXTED RK11

:TYPE * AT PC=
;s TYPE ASCIZ STRING

INTERRUPT®

;:GET OVER THE ASCIZ

;SET UP FOR TYPING OUT PC

MD-11-CZRKKF,
CZRKKF .P11

2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170

217
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183

RK11

BASIC LOGIC

21-FEB-78 08:51

004642

104402

004644
004652
004654
004656

032777
001403
022626
000177

001000

004662
004670
004672
004674

032777
001401

040000

004676

000137

TEST 2

&
C
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 42
GET VALUE FOR SOFTWARE SWITCH REGISTER
TYPOC

000002
000000

1%:

BIT
BEQ
CMP
JMP

#1000,aswR
2%
(SP)+, (SP)+
aSLPADR

174250

28:

BIT
BEQ

#40000,aswR
3%

3%:

002636

RTI

HALT

JMP

004737

021742

;LOOP ON ERROR?
:NO, BRANCH
;YES, REPOSITION STACK
;GO TO THE STARTING ADDRESS OF

:THE TEST THAT GAVE UNEXPECTED INTERRUPT
;LOOP ON TEST?
:NO, BRANCH
;YES,

LOOP.

GO BACK WHER U INTERRUPTED FROM.

JUNEXPECTED INTERRUPT OCCURED AS

SFSTART

sRESTART AFTER POWER FAIL

004702

; INTERUPT OCCURED

;INDICATED IN THE TYPE OUT.U CAN LOOP
;ON ERROR, TEST,OR INHIBIT TYPEOUT BY
sSETTING APPROPRIATE SWITCHES.
;GO BACK TO THE START OF

THE

;PROGRAM. THUS PRESSING CONTINUE
;AFTER THE ABOVE HALT WILL
sRESTART THE PROGRAM

:THE PROGRAM WOULD RESTART HERE

IF POWER CAME BACK AFTER A FALIURE.

PFSTRT:

sKILL TIME

JSR

PC,WATIME

s*TEST 1

CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT

s*THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED

;*(IN RESPONSE TO "'DRIVS TO BE TSTD?') ARE NOT FOUND TO BE PRESENT.
;*EVERY DRIVE FROM O TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE
s*GIVES 'DRY' (IN RKDS), IT IS CHECKED THAT THIS DRIVE
;*WAS SPECIFIED BY THE USER, IF IT WAS NOT AN ERROR IS
;*REPORTED, GIVING THE DRIVE NUMBER. IT IS LIKELY THAT THE USER
;*MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT IS NOT SPECIFIED) ON
s*'LOAD'. IF THIS IS THE CASE THEN PUT THIS DRIVE ON 'LOAD"'.

2184
2185
2186

2187
2188
2189
2190
219N
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205

;GO TYPE OCTAL PC WHERE BAD

174266

174224

SEQ 0041

s*IF THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. (TWO DIFFERENT
;*DRIVE ADDRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME

;*PHYSICAL DRIVE.)

PIRRARARRAARAERERRRAARRRRERRRRAAERRRARRRRRERRAARRACERARARERRRARRARRTRRYE

004706

000004

004710
004714
004716
004720
004724
004726
004732
004734
004740
004744

01270C
005001
005002
005737
001403
120237
001435
010177
105777
100005

004746

005710

IST1:
001414

001410

MOV
CLR

1%:

001410
174400
174362

SCOPE

2%:

CLR
TST
BEQ
CMPB
BEQ
MOV

TSTB
BPL

TST

#DRIVO,RO
R1
R2
DDPCH

2%
R2,DDPCH

4%
R1,3RKDA
aRKDS

aR0

;INITIALIZE POINTER

;INITIALIZE DRIVE ADRES 0
;INITIALIZE DRIVE # 0
:LOADED FROM AN RKOS5 ?
;B IF NOT
;LOADED FROM THIS DRIVE ?

;BR IF YES

;ADRES THE DRIVE

:DRIVE READY?
sNO, THIS DRIVE NOT PRESENT
;YES, THIS DRIVE SELECTED
;WAS THIS DRIVE SPECIFIED BY

gg;z:;cg$§lf. RK11 BASIC LOGIC

21-FEB-78 08:51

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
223
2232
2233
2234
2235

2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258

2259
2260
2261

004750

004752
004756

TEST 2

MACY11
m

30A(1052)

104116

THAT

BNE

001026

010237

CHECK

THE

DRIVES

MoV
ERROR

001162

D
&
21-FEB-78
08:58

R2,$REGO
116

THAT

PAGE 43

ARE

NOT

SPECIFIED ARE

NOT

FOUND

TO BE

PRESENT

: THE USER?

;YES, 0K
:NO, THIS DRIVE # WAS NOT SPECIFIED

;BY THE USER, BUT STILL IS GIVING
:"DRY' WHEN ADRESED. REPORT EROR.

sGET DRIVE #
;THIS DRIVE # WAS NOT SPECIFIED BY

;THE USER, BUT WHEN ADRESED GAVE
:'DRY'. CHECK THAT THIS DRIVE # IF
;PHYSICALLY PRESENT IS ON °"LOAD'. IF
sTHIS IS NOT THE CASE, THEN ONE DRIVE

;MAY BE GETTING SELECTED BY TWO DIFFERENT

004760
004762

005710
001421

004764
004770

004737

004772

005010

004774
004776
005002
005006
005012
005016
005022
005026
005030
005032
005036

010003
162703
042703
062703
042723
042713

104010

005337
005202
005720
062701
001330

38:

020774

001414
000603
001414
100000

aR0
4%

JSR
ERROR

PC,GT4RG
10

CLR

ar0

MOV
SuB
BIC
ADD
BIC

RO.R3
#DRIVO,R3
#3,R3
#DRIVO,R3
#100000,(R3)+

;THIS DRIVE IS NOT FOUND TO BE PRESENT
sHENCE DROP IT FROM THE SELECTION TABLE.
;DRIVE ADDR
sMINUS OFFSET FOR TABLE
sEVEN DRIVE OF PAIR
;POINT TO EVEN OF PAIR IF RKO5 F
;NOT SPECIFIED AS F MODEL

DEC
INC
TST
ADD
BNE

DRIVS
R2
(RO) +
#20000,R1
1%

;DECREMENT DRIVE COUNT
; INCRMNT DRIVE #
s INCRMNT POINTER
s INCRANT ADRES TO NXT DRIVE
sLUP BAK IF NOT DONE

BIC

100000

001412

48:

020000

;LOGICAL ADDRESSES.

TST
BEQ

#100000, (R3)

;CHECK THAT THIS DRIVE WAS NOT INDICATED
s1F IT WAS, & IT IS NOT FOUND TO BE

;PRESENT (DRY CLEAR), REPORT ERROR.

;GET RKCS, ER, DS, DA
:DRIVE # (AS IN RKDA) WAS INDICATED BY

:THE USER, BUT WAS NOT FOUND TO BE PRESENT.
;CHECK THAT THE ROTARY DRIVE SELECTION
sSWITCH ON THE MODULE IS SET TO THE RIGHT
;DRIVE #.

: SAME

sTHIS PART OF THE PROGRAM IS GOING TO BE REPEATED FOR
;sEACH DRIVE PRESENT

**DRIVAD' CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE
‘DRIVE BEING CURRENTLY CHECKED.

005040

NUDRV:

SRR AR REARRRARRNTRARERRERNRRRARRRRRIRRRERRRRA
AR AR AR AR AR AR AR RS

;*TEST 2

;THIS CODE

FIND OUT NEXT DRIVE
FINDS OUT THE NEXT DRIVE

TO BE CHECKED
THAT IS PRESENT AND THEN

SETS UP

:THE ADDDRESS IN DRIVAD (BITS 13,14,15). THUS THROUGHOUT THE FOLLOWING TESTS
;THE DRIVE TESTED IS THE DRIVE WHOOSE ADDRESS IS IN 'DRIVAD'.
MR

005040
005042
005050

000004
012737
012737

000001
000002

001206
001102

AR AR AR AR

TST2:

SCOPE

Mov
MoV

R Rttt
iRttt

#1,STIMES
#2,8TSTNM

;.00 1 ITERATION
JRESET POINTER TO THIS TEST

SEQ 0042

MD-11-CZRKKF,
CZRKKF P11

2262
2263
2264
2265
2266
2267
2268
2269
2270
2N
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
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317

005056
005062
005066
005070
005074

005100
005104
005106
005114
005116
005120
005124
005126
005132
005134
005136
005140
005142
005144
005146
005152
005154
005160
005164
005170
005174
005200
005202

005204
005206
005210
005214
005216
005222

005226
005226
005232
005234

RK11

BASIC

LOGIC

21-FEB-78 08:51

005037
005737
001002
000137
013701
032721
001005
062737
001371
000764

005737
001413
013746
000316
006216

006216
006216
006216
006216
122637
001755
010137
104401

013746
004737
005037
011600

TEST

MACY11
12

001112
001412

020652
001354

4%:

000001

2%:

020000
001410

001350

MoV

6%:

1%:

001410
3%:

001272
001350
021200
001404

100006
104401

000401

005237
104401

001213

000

.BYTE

001414
005224

001404

;:65%:
64%:

5%:

104413

TYPOS

PAGE 44

SEQ 0043

CHECKED

sNO. CHANGE THIS (2) IN CASE THE
sTEST NO. CHANGES
;CLEAR TOTAL ERROR COUNT
;R THERE ANY DRIVES PRESENT?
;YES, BRANCH
sNO, JMP TO THE END

;GET THAT POINTER TO THE NEXT

;DRIVE

FLAG

:lésTHlS DRIVE PRESENT?
:Y

#20000,DRIVAD

;FORM NXT

(33
DDPCH

;PROGRAM LOADED FROM AN RKO5

DRIVAD,-(SP)
(SP)
(SP)
(SP)
(SP)
(SP)
(SP)
(SP)+,DDPCH

6%
R1,DRVPTR

MSG4

DRIVE

ADRES

:BR IF YES, DON'T TEST THE DRIVE
;STORE POINTER TO THE NEXT
:DRIVE FLAG

DRIVAD,-(R6)

:GET THE DRIVE ADDRESS
;GO SHIFT IT TO THE RIGHT

(R6) ,RO

;DRIVE NUMBER
;GO TYPE THE OCTAL # FOR THE
;DRIVE THAT IS BEING CHECKED

PC,SHFTRY
FFLAG

1,0

ASL
TST
BPL
TYPE
BR
.ASCIZ

649

;s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

INC
TYPE
SCRLF

FFLAG

;SET F FLAG

DRIVO(RO)
5%
,65%
/F/

:NO, BRANCH
;PUT TEST DRIVE ADDRESS ON THE STACK
sSETUP TO RIGHT JUSTIFY THE ADDRESS
sRIGHT JUSTIFY THE ADDRESS
;RIGHT JUSTIFY THE ADDRESS
sRIGHT JUSTIFY THE ADDRESS
sRIGHT JUSTIFY THE ADDRESS
sRIGHT JUSTIFY THE ADDRESS
;PROGRAM LOADED FROM THIS DRIVE ?

:INDEX TO TABLE
:SEE IF ¥

;NO

;TYPE CR, LF

AR ARAAARRAR T ERERARRRNCARNRROERRNRORRRROERARROERRRRERRARRRRRRRRRARRESY

J*TEST 3

000004

BNE
BR
TST
BEQ
MOV
SWAB
ASR
ASR
ASR
ASR
ASR
CMPB
BEQ
MoV

JSR
CLR
MoV

005236
005240

#BITO,(R1)+
1%

TYPE
MOV

TO BE

SERTTL
DRIVS
.+6
S$EOP
DRVPTR,R1

BIT
BNE
ADD

104403

001
006300
005760

FIND OUT NEXT DRIVE

CLR
TST
BNE
JMP

001350

001354

4
3
21-FEB-78 08:58

30A(1052)

CHECK THAT DRIVE

IS SUPPLIED WITH POWER-DPL BIT

AR AANRERRARARRAARRRCEATRCARRRRRRERRRRARRERAERRRARRRRRRRRCERRRATRRRSE

TST3:

SCOPE
CNT.RESET

:GO, DO CONTROL RESET

;THIS IS A CALL FOR THE ‘'CNTRLsRESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME

;1F THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC

IN ERROR MESSAGE IS THE

;PC WHERE "CNT.RESET' IS LOCATED.

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
233
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348

005242
005246
005254
005256
005260
005264

013700
013777
005710
001003
011037

001326
001350

005266

012777

000015

005274
005276
005302
005304
005306
005310
005312
005316

005001
032710
001003
005201

005320
005322
005326
005330
005334
005336
005340
005346

104004

TEST

MACYi1
13

4
F
30A(1052)
21-FEB-78
08:58
PAGE 45
CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT

RKDS ,RO
DRIVAD,3RKDA
ar0

18:

Mov

#15,3RK(S

2%:

CLR
BIT

R1
#10000,aR0

INC
BNE
BR

R1
2%
48-2

CLR

BNE
DELAY
INC
BNE
MoV
ERROR

TST4
.M
_
R1
43
aRKDS,SREGO
16

BNE
MoV
ERROR

001162

174036

010000

BNE

001373

000403
004737
104005

005001
032710
001010
104417
005201
001371
017737
104016

021002

3s:

000100

4%:

BIT

001162

;ADDRESS THE DRIVE UNDER TEST
;CHECK IF ANY BIT OF RKDS IS SET?

1%
aR0, SREGO
4

;1F SET, BRANCH
;GET RKDS
;RKDS ERROR! RKDS IF ADDRESSED

;CORRECTLY SHOULD BE NON-ZERO
;ISSUE A DRV RESET,

DRVE

;1S 'DPL' BIT SET?
;DPL IS SET, BRANCH
sWAIT FOR SOME TIME TO
;SEE IF DPL WOULD SET
;0K, DPL NOT SET
:60, GET RKCS, ER, DS
:DPL BIT OF RKDS IS SET, CHECK DRIVE POWER

PC.GT3RG
5

#100,aR0

2349
2350
2351
2352

- 4DID R/W/S RDY BIT SET?

4:YES, EXIT
¢ TIME DELAY
JWAIT FOR R/W/S RDY
;GET RKDS

;R/W/S RDY DID NOT SET AFTER

:DRIVE RESET. DRIVE RESET WAS DONE
;7O CHECK "DPL°'BIT . THIS TEST
;1S NOT FOR CHECKING DRIVE RESET.
:U MIGHT WANT TO USE THE TEST PROVIDED

:FOR CHECKING DRIVE RESET.

2353

2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373

;POWER IS LO, DPL WILL SET

JSR
ERROR

000011
173762

;THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10

MOV
MOV
TST

174064

SEQ 0044

SRR AR

J*TEST 4
005350
005352

000004
104413

R TR N

TR NN R RN R RNRRCORNRRERRARORNAARARORRAOERRAOTRNRNS

CHECK THAT °'DRIVE UNSAFE' IS CLEAR, "HDEN'

SRR

R RN R A RPN R RO

TST4:

SCOPE
CNT.RESET

IS SET,

TR AR RENARERRNRARARRRRRNCRACRA
IRRNS

:6G0,

"WPS' IS CLEAR

DO CONTROL RESET

;THIS IS A CALL FOR THE "CNTRL;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE "CNTRL RDY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
;PC WHERE °"CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT

005354
005362
005366
005372
005374
005400

013777
017700
032700
001403
004737
104006

001350
173740

002000
021002

173756

MOV
Mov

DRIVAD,@RKDA
aRKDS,RO

BEQ

BIT

JSR
ERROR

#2000,R0
PC.GT3RG
6

:0CCURS GO BACK TO TEST 10
:SET DRIVE ADDRESS
;GET RKDS

;1S 'DRU* BIT OF RKDS SET?
:NO

;G0, GET RKCS, ER, DS
;'DRU" BIT OF RKDS IS SET, CHECK
;ORIV BY PUTTING RUN/LOAD SW TO LOAD

MD-11-CZRKKF,
CZRKKF .P11

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

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

005402
005406
005410
005416

032700
001004
017737
104007

004000
173712

001162

005420
005426
005430
005434

032777
001403
004737

000040

173700

104114

4
G
21-FEB-78
0B:58

MACY11

30A(1052)

1$:

BIT

#4000,R0

28:

BIT
BEQ

#40,aRKDS
TSTS

CHECK

THAT

BNE
MOV
ERROR

020774

'DRIVE UNSAFE'

;1S

2421
2422
2423
2424
2425
2426
2427
2428
2429

IS SET,

'WPS'

IS CLEAR

"HDEN' BIT SET?

;YES, BRANCH
;GET RKDS
:ERROR, "RKOS' BIT IS NOT SET

;1S 'WPS' CLEAR?
s YES, EXIT

PC,GT4RG
114

;:GET RKCS, ER, DS, DA
;'WPS'=WRITE PROTECT STATUS- BIT OF

:OF RKDS SHOULD BE CLEAR, IF THIS DRIVE
;1S WRITE ENABLED. CHECK & SEE IF THIS
;DRIVE IS WRITE ENABLED, IF IT IS NOT,

;WRITE ENABLE

1IT.

AR AR

AR R

STEST S

CHECK

Al Rl
iRttt
ids]

THAT

'DRIVE READY'

IS SET

IN RKDS

::".i't'..'iitt"""'""i"'""""'....'.'.QQ"'.'.ttt"'t"

005436
005440

000004
104413

TSTS:

SCOPE
CNT.RESET

:60, DO CONTROL RESET

:THIS IS A CALL FOR THE

*CNTRL-

:RESET' ROUTINE. A CONTROL RESET IS
:ISSUED AND AFTER A CERTAIN TIME

:IF THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

2400

2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
26413
2414
2415
2416
2417
2418
2419
2420

'HDEN'

:THEN BACK TO RUN

2%
aRKDS,SREGO
7

JSR
ERROR

PAGE 46

IS CLEAR,

:THE PC IN ERROR MESSAGE IS THE
:PC WHERE 'CNT.RESET' IS LOCATED.

005442
005450
005454
005456
005462

013777
105777
100403
004737
104010

001350
173652

173670

"oV
TSTB

DRIVAD,3RKDA
aRKDS

ERROR

BMI
JSR

020774

:THIS IS A VERY BASIC ERR & IF IT
:0CCURS GO BACK TO TEST 10
:ADDRS THE DRIVE
;1S 'DRY" SET?

TSTé
PC,GT4RG

iI¥ES, O
;G0, GET RKCS, ER, DS, DA

:"DRY" NOT SET

;;ttt'tt;tt"ttt"l"i"tt't'ttt"t'ti'ttt't!tt'tt'tttt'itttttttt
;*TEST 6

CHECK THAT

000004
013777
005001
032777
001006
005201
001372
017737
104011

001350

173644

000400

173622

173610

001162

TST6:

R AR R R AR R RN R R

RN R

DRIVAD ,aRKDA

;ADDRS THE DRIVE

BIT

#400,3RKDS

;1S SOK SET?

BNE
INC
BNE
MoV
ERROR

AR R R

;*TEST 7

R R

SCOPE
MoV

CLR

18:

BIT CAN SET

:* THIS TEST CHECKS THAT WITHIN A CERTAIN TIME
;* 'SOK' BIT CAN SET, IF IT DOES NOT AN ERROR IS REPORTED

005464
005466
005474
005476
005504
005506
005510
005512
005520

'SOK'

1S17
R1
1%
aRKDS, SREGO

RN R R R AR R R E RN

INITIALIZE COUNT FOR TIMING WAIT LOOP

S EXIT
sNO, WAIT
;WAITED LONG?
;GET RKDS

:ge%TED LONG BUT "SEC OK' BIT DID NOT

R AR AP RRATRRPRRRRERERRRRRRRRRRRRERRRREROERRRRRRRRRRTY

CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0-13

SEC 0045

MD-11-CZRKKF,

CZRKKF P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11

gzg?

30A(1052)

CHECK THAT

H
&
21-FEB-78
08:58

'SECTOR COUNTER'

it 5u%§ TEST CHECKS THAT
.'

THE

PAGE 47

CAN COUNT FROM 0-13
SECTOR COUNTER CAN COUNT FROM

2432
2433
2634
2435
2436
2437
2438

;*
s*
;*
;v
;*
s+
;*

2440
2441
2442
2443

s+ IF IT INCREMENTED CORRECTLY.
IF IT DID NOT AN ERROR IS REPORTED
;* 4) IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A
;* LOOP TILL THE COUNTER CHANGES.
(STEPS 2,3,4 ARE REPEATED
;* TILL THE COUNTER COUNTS UP TO 13)

2439

:* 3) UPON FINDING THAT THE COUNTER HAS CHANGED, IT IS CHECKED

26444

2445
2446
2547
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
gz;?

2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483

2484
2485

1) FIRST, FOR INITIALIZING PURPOSES THERE IS A TIMED LOOP
DURING WHICH SECTOR COUNTER SHOULD COUNT DOWN TO 0. IF THIS
IS NOT DONE AN ERROR IS REPORTED
2) AFTER A COUNT OF O IS REACHED, THE PROGRAM WAITS
FOR A CERTAIN TIME, DURING WHICH THE SEC COUNTER
IS SAMPLED.
IF THE COUNTER DOES NOT CHANGE WITHIN THIS
TIME PERIOD AN ERROR IS REPORTED.

005522
005524

000004
104413

18te:

005526
005534
005540
005544

013777
013700
005037
005005

001350
001326
001356

005546
005552

012704
012703

177764
000001

005556

005037

001360

005562
005566
005570
005574

005237
001440
005237
001441

001356

005576
005600
005604
005606
005610
005612
005616

011001
032701
001771
021001
001362
042701
001357

005620
005622
005624
005626
005630
005632

005204
001447
005205
001431
011002
032702

001360

173604

1%:

2%:

000400

177760
3$:
4%:

000400

R N R R

R P R R R AR R AN R R R

SCOPE
CNT.RESET

MOV
MOV
CLR
CLR

DRIVAD,a3RKDA
RKDS,RO
INDX1
RS

MOV
MOV

#-14 R4
#1,R3

CLR

INDX2

INC
BEQ
INC
BEQ

INDX1
6%
INDX2
7%

Mov
BIT
BEQ
CMP
BNE
BIC
BNE

aR0,R1
#400,R1
2%
aR0,R1
1%
#177760,R1
1%

INC
BEQ
INC
BEQ
MOV
BIT

R4
TST10
RS
8s
aR0,R2
#400,R2

R R RN AN AR AR AR NN RS

;GO, DO CONTROL RESET
;THIS IS A CALL FOR THE °'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
;PC WHERE "CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
sINITIALIZE
;'COUNT' - TO TIME "ERROR 35°'
sINITIALIZE °"COUNT' - TO TIME
;"ERROR 36' (WAIT LOOP)
JINITIALIZE "COUNT' - FOR THE 12 SECTORS.
sR3 CONTAINS THE 'NEXT' COUNT OF SEC-CNTR
sR1 CONTAINS THE '"PREVIOUS' COUNT OF SEC-CNTR
;R2 CONTAINS THE 'PRESENT' COUNT OF SEC-CNTR
;INITIALIZE °'COUNT' - TO TIME
;(WAIT LOOP) 'ERROR 34'
;KEEP TIMING FOR 'ERROR 35°'
;BRANCH & REPORT ERROR IF WAITED LONG?
JKEEP TIMING FOR "ERROR 34'
;BRANCH & REPORT ERROR IF WAITED LONG?

;GET RKDS
;1S 'SOK' SET?
;NO, WAIT FOR IT TO SET
;MAKE SURE THAT 2 CONSECUTIVE
;READINGS OF SEC=CNTR ARE SAME
JYES, MASK OUT NON-SEC CNTR BITS
;1S IT SECTGR O, IF NOT LOOP BACK &
:WAIT FOR SECTOR 0
;KEEP TRACK OF SECTORS CHECKED
;EXIT,IF ALL SECTORS CHKD
;KEEP TIMING FOR 'ERROR 36'
;BR & REPORT ERROR IF WAITED LONG

;GET RKDS
;1S SOK SET?

SEQ 0046

MD-11-CZRKKF,

CZRKKF .P11

2486

2487

005636

005640

RK11

BASIC LOGIC

21-FEB~78 08:51

001772

005642
005644
005650
005652
005654
005656

001370
042702
020201
001764
020203
001023

2495
2496
2497
gzgg

005660
005662
005664
005666

005203
005201
005005
000754

2500
2501
2502
gggz

005670
005674

010137
104012

005676

000421

2505
2506
2507
Sggg

005700
005706

017737
104011

005710

000414

2510
2511
2512
2513
2514
gg}g

005712
005716
005722

010237
010337
104013

005724

000406

2517
2518
2519

005726
005732
005736

010337
010237
104014

005740

000747

2523
2524

MACY11

30A(1052)

CHECK THAT

BEQ

021002

2488
2489
2490
2491
26492
5282

2520
2521
2522

TEST 2

173422

001162
001164

PAGE 48

CAN COUNT FROM 0-13

SEQ 0047

sNO, WAIT FOR SOK

ar0,R2

sMAKE SURE THAT 2 CONSECUTI]VE

5%:

INC
INC
CLR
BR

R3
R1
RS
3%

;s INCREMENT ''NEXT COUNT''
s INCREMENT "‘PREVIOUS COUNT''
JINITIALIZE AGAIN FOR TIMING 'ERROR 36'
;GO & CHECK THE NEXT SECTOR COUNT

6%:

MOV
ERROR

R1,$REGO
12

TST10

JGET 'SEC CNTR'
JWAITED LONG, BUT SECTOR COUNTER
;DID NOT COUNT TO O
sstRLT

MOV
ERROR

aRKDS,SREGO
1

TST10

MOV
MOV
ERROR

R2,$REGO
R3,SREG!
13

TST10

sGET SEC CNTR (PRESENT COUNT)
JGET "'NEXT COUNT''
sWAITED LONG, BUT THE SECTOR
;COUNTER DID NOT INCREMENT FROM
;s THE PRESENT COUNT TO THE NEXT COUNT
s EXIY

MOV
MOV
ERROR

R3,$REGO
R2.$REG1
14

sGET "NEXT COUNT' (SEC CNTR SHOULD BE THIS)
;GET PRESENT COUNT (WHAT SEC CNTR WAS)
sSEC CNTR INCREMENTED WRONG, DID

BNE
BIC
CMP
BEQ
CMP
BNE

001162

"SECTOR COUNTER'

cMpP

177760

001162

4
1
21-FEB-78
08:58

7%:

8%:

9s%:

43
#177760,R2
R2.R1
4%
R2.R3
9%

;*TEST 10
CHECK THAT SC=SA CAN BE GENERATED
;* THIS TEST CMECKS THAT SC=SA CAN BE GFNERATED FOR

2536
2537
2538
2539
2540
2541

005746

000004
104413

013704

001350

;NOT INCREMENT FROM PRESENT COUNT
;TO NEXT COUNT

2526
2527
2528

005742
005744

'SOK' BIT DID

2530
2531
2532
2533
2534
2535

;GET RKDS
sWAITED LONG, BUT
sNOT SET
S 3 8§

2525

2529

JREADINGS OF SEC-CNTR ARE SAME
sMASK NON-SEC-CNTR BITS
sHAS SEC CNTR INCREMENTED?
sNO, WAIT FOR IT TO CHANGE
JYES, DID IT INCREMENT CORRECTLY?
sNO = REPORT ERROR

;* EVERY SECTOR

TST10:

SCOPE
CNT.RESET

MoV

R R R R

DRIVAD,R4

R RN R

R R

R R AR AR TR

R R R

R R AR AR R R R R R R AR RR RO R

R AR R R R AR

R AR

R RN R

R RS

GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRLJRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
:IF THE 'CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
sPC WHERE 'CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10

MD-11-CZRKKF,

CZRKKF P11

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
257N
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587

2588
2589
2590
2591
2592
2593
2594
2595
2596
2597

RK11

BASIC

LOGIC

21-FEB-78 08:51

005752
005756
005762
005766
005770
005772
005774
005776
006002
006004
006006
006010
006012

013700
012703
010477
005005
005205
001410
011001
032701
001772
005204
005203
001364
000406

006014
006020
006024

010137

0C6026

0C0766

110437

104015

TEST 2

&
J
30A(1052)
21-FEB-78
08:58
PAGE 49
CHECK THAT SC=SA CAN BE GENERATED

MACY11
110

001326
177764
173352

1%:

MOV
MoV

RKDS,RO
#-14 ,R3

CLR
INC
BEQ

RS
R5
3%

BIT
BEQ

#20,R1
2%

MOV

2%:

4%:

R3
1%
ST

;KEEP TIMING FOR ERROR
JREPORT ERROR IF WAITED LONG
;GET RKDS
;1S SC=SA SET?
:NO, WAIT FOR IT
;ADDRS THE NEXT SECTOR
JARE ALL SECTORS CHECKED FOR SC=SA
:NO, GO & CHECK NEXT
;s YES, EXIT

MOovB

R4 ,SREGO

;GET SECTOR ADDRESS

ERROR

;COULD NOT GET SC=SA FOR THIS

aR0,R1

INC

INC
BNE
BR

3%:

001162
201164

INITIALIZE COUNT FOR # OF SECTORS
sADDRESS THE DRIVE
sINITIALIZE COUNT - FOR TIMING ERROR

R4 ,aRKDA

MoV

000020

SEQ 0048

MOV

R1,$REGT

;GET RKDS

:'SECTOR ADDRESS'

:GO CHK FOR THE REST

AR SRR

;*TEST N
AR

006030
006032
006034
006042
006044
006050
006054
006056
006060
006062
006064
006066
006072
006074
006100
006102
006106

000004
104413
013777
005001
017700
032700
001007
005201
001376
005201
001367
010037
104016
032700
001403
004737
104001

TST11:
001350
173256
000100

173276

1%:

3s:

001162

001000

2%:

020774

AR AR AR

CHECK THAT 'k/W/S RDY'

AR ARl

iRt

iRttt

IS SET & 'SIN'

ittiillsd

IS CLEAR

AR ARttt
ittt ittt
tds]

SCOPE
CNT.RESET
20:
g?lVAD.iRKDA
L
MoV
aRKDS ,RO

BIT
BNE
INC
BNE
INC
BNE
MOV
ERROR
BIT
BEQ

#100,R0
2%
R1
3s
R1
1%
RO,$REGO
16
#1000,R0
TST12

ERROR

JSR

iRl

PC,GT4RG

‘

;GO, DO CONTROL RESET
;ADDRESS THE DRIVE
;GET RKDS

;IS R/W/S RDY SET?
:YES, BRANCH
s INCREASE LOOP TIME
;FOR DRIVE RESET OF HEADS
;WAITED LONG ENOUGH?
;1F NOT LUP BAK & WAIT
;GET RKDS
;R/W/S RDY SKOULD BE SET
;IS SIN CLEAR?
;s YES, EXIT
;GET RKCS,ER,DS.DA

:"SIN' SHOULD HAVE BEEN CLEAR
;1T WAS NOT CLEAR

JNEXT TEST IS GOING TO CHECK
;DRIVE RESET, SIN SHOULD BE
:gLE:gED THEN. IT WILL BE CHECKED

:TH

’

JiRRRRARAARAAREAREREEIRRORCERACERORROERRERRRERRARRRROERRRARRRAROARRRRETRESE

CHECK 'DRIVE RESET'
J*TEST 12
;*THIS TEST CHECKS THE VERY BASIC DRIVE RESET LOGIC.
;*SINCE THE HEADS ARE AT CYLINDER O (GOING INTO THIS
;*TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYLINDER O,
;*AFTER WHICH THEY ARE PUSHED FORWARD TO CYLINDER 0 AGAIN.
;*IN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET
s*TEST WHICH DOES THE RESET FROM LAST CYLINDER.
AR R

006110

000004

igTIZ:

RN RN RARE AR RAAAERRRRTRRTRTRRRRETRRERRRARRRRRR
R RRERRRRRRARRRRREY

SCOPE

MD-11-CZRKKF,
CZRKKF .P11

2598
2599
2600
2601
2602
2603
2604
2605
2606

2607
2608
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
2642

2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653

006112

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
112

30A(1052)
21-FEB-78
CHECK 'DRIVE RESET'
CNT.RESET

104413

08: 58

PAGE 50

SEC 0049

:GO, DO CONTROL RESET

;THIS

IS A CALL

FOR THE

'CNTRL-

JRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE

006114
006120
006122
006130
006134

013700
005004
013777
012710
104412

006136

104021

001332
001350
000015

173210

MoV
CLR
MoV
MoV

RKCS,RO
R4
DRIVAD,3RKDA
#15,aR0

ERROR

CHKCRDY

IN ERROR MESSAGE

THE

;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10

sINITIALIZ COUNT = TO TIME ERROR
;ADDRESS THE DRIVE
:'DRIVE RESET', GO
;GO CHECK IF CONTROL RDY IS SET
;1F SO, SKIP THE EROR MESSAGE.
;CNTRL RDY DID NOT SET AFTER
;SENDING CYL ADDR TO THE DRIV.

;"ADD ACK' SHOULD HAVE COME BACK

006140
006144
006152
006154
006160
006162
006164
006166
006170
006174

012705
032777
001402
000137
005204
001370
005205
001366
004737
104026

006176
006204
006206
006212

032777
001403
004737
104001

001000

006214
006220
006222
006226

032710
001403
004737
104022

140000

006230

022710

006234
006236
006244
006250

001406
012737
011037
104024

177776
000100

173154

28%:

6%:

006176

020774

173122

3%:

020774
58:

020774
000214

000214
00116¢

48:

001162

MOV

#-2,R5

BIT
BEQ
JMP
INC
BNE
INC
BNE
JSR
ERROR

#100,aRKDS
. +6
38
R4
6%
RS
6%
PC,GT4RG
26

BIT
BEQ
JSR
ERROR

#1000,3RKDS
58
PC.GT4RG
1

BIT
BEQ
JSR
ERROR

#140000,aR0
43
PC.GT4RG
22

CMP

#214,3R0

BEQ

TST13

MOV

Mov
ERROR

#214 ,3REGO

aR0,SREG1
24

;FROM DRIVE,

THEREUPON SETTING

sSET UP DELAY COUNTER
;CHECK FOR R/W/S READY

°'CN RDY'

;60, GET RK(CS, ER, DS, DA
sR/W/S RDY DID NOT SET AFTER
;DRIVE RESET
;DID SIN SET?
sNO, BRANCH

:6G0, GET RKCS,.ER,DS.DA
sSIN SET, AFTER A
:DRIVE RESET.
:HeS 'ERR' BIT OR "HE' BIT SET?
;NG

;G0, GET RKCS, ER, DS, DA
s"ERR' OR 'HE' BIT SET WHILE DOING
;DRIVE RESET
;DOES RKCS STILL CONTAIN THE

:'DRIV RES' BITS

SsYES, EX1Y
sGET EXPCTD RKCS
:GET RKCS, RECVD
;NO = RKCS SHOULD CONTAIN THE °'DRIV RES'
;FUNCTION, ERROR IF DIFFERENT.

JrARRAARRERRARRRRARREERARO
R R RRERTAIATRRERRTRR R RERERRRRRERRRRR R R R RRRRRRRRREY

;*TEST 13

CHECK 'SEEK'

TO CYLINDER 0

;* THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER 0.
;* NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0, NO
;e ng?cHOVEHENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK
4

’

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

2654
2655
2656
2657
2658
2659
2660
2661
2662

TEST 2

H?§V11
T

30A(1052)

CHECK 'SEEK'

08:58
TO CYLINDER 0

21-FEB-78

006252
006254

1ST13:

000004
104413

SCOPE
CNT.RESET

2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709

006256

104421

006260
006264

013700
013777

001332
001350

006272
006276

012710

000011

006300

104021

006302
006304
006312
006314
006316
006320
006324
006326
006334
006336
006342

005005
032777
001005
005205
001372
004737

104412

104026

032777
001403
004737
104001

TST.SIN

000100

173046

173014

2%:

RKCS,RO
DRIVAD,3RKDA

MoV

#11,3R0

ERROR

CLR

RS
#100,aRKDS

172772

BIT

BNE
INC
BNE

020774

001000

MOV
MoV

CHKCRDY

3%:

020774

JSR
ERROR
BIT
BEQ
JSR
ERROR

SEQ 0050

nIIIIIIIIITIITD

;GO, DO CONTROL RESET

;THIS

IS A CALL FOR

THE

°*CNTRL~-

sRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
:1F THE 'CNTRL RDY' DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10

2663

2664
2665
2666
2667
2668
2669
2670
2671
2672

PAGE 51

3s
RS
2%+2

PC,GT4RG

26
#1000,3RKDS
6%
?C,GTARG

;GO CHECK IF SIN SET. IF SET
;A DO DRIVE RESET TO CLEAR IT

;ADDRESS THE DRIVE

;"SEEK' GO

;GO CHECK IF CONTROL RDY IS SET
;1F SO, SKIP THE EROR MESSAGE.

:"CNTRL RDY' DID NOT SET AFTER SENDING

;CYL ADDR TO THE DRIVE, "ADD ACK'
: SHOULD HAVE COME BACK FROM THE
;:DRIVE, THEREUPON SETTING ‘CNTRL RDY'
;DID R/W/S RDY BIT SET?
;YES, BRANCH
;WAITED LONG ENOUGH?
;1F NOT, LUP BAK £ WAIT
:G0, GET RKCS, ER, DS, DA
sR/W/S RDY DID NOT SET AFTER SEEK
;:DID SIN SET?
:NO, BRANCH
;60, GET RKCS,ER,DS.DA
:SIN SET ON DOING SEEK

;TO CYL O NOTE THIS IS THE
;FIRST TIME THE HEADS HAVE
;BEEN MOVED

006344
006350

032710
001403

140000

006352
006356

004737
104022

020774

006360
006364
006366
006372

005777
001403
004737

172744

006374

022710
001406
012737
011037

006400
006402
006410
006414

104023

104024

6%:

4%:

021602

5%:

000210

000210
001164

01162

BIT
BEQ

#140000,aR0
4%

;WAS "ERR' OR 'HE' BIT SET?

JSR
ERROR

PC.GT4RG

:G0, GET RKCS, ER, DS, DA

TST

aRKER

;uas ANY BIT

JSR
ERROR

PC.GT3RG

;60, GET RKCS, ER, DS
;RKER SHOWS AN ERROR BIT, CHECK

CMP
BEQ

#210,aR0
TST14
#210,$REGO
aR0,SREG1
24

;DOES RKCS STILL CONTAIN 'SEEK' FUNCTION
;. YES, EXIT
;GET EXPCTD RK(CS
;GET RKCS RECVD
;NO, RKCS SHOULD BE STILL CONTAINING

BEQ

MoV
MOV

ERROR

;"ERR' OR "HE' BIT SET WHILE DOING 'SEEK'
:N

IN RKER SET?

; "SEEK' FUNCTION ERROR = IF IT CHANGED

MD-11-CZRKKF,

CZRKKF .P11

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11

T13

M4
21-FEB-78
08:58

30A(1052)

CHECK

"SEEK'

SEQ 0051

2710

2712
2713
2714
2715
2716
er1?
2718
2719

J«TEST 14
CHECK R/W/S RDY IS CLEAR WHEN HEADS ARE IN MOTION
s*THIS TEST CHECKS THAT R/W/S DOES GET CLEARED
;*WHEN THE HEADS ARE IN MOTION. SINCE "MOVE L' ON
;*M7700 (RKOS) GENERATES THIS SIGNAL, ABSENCE OF
s*R/W/S RDY=CLEAR COULD MEAN A FAULT ON M7702
s*WHERE "MOVE L' IS GENERATED.
s*NOTE THIS IS THE FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING
;*T0 CYLINDER 2.

2711

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

5;28

2750
2751
2752
2753
2754
2755
2756
2757
2758
2759

TO CYLINDER O

PAGE

R R R

R R

N R

006416
006420

000004
104413

006422

104421

006424

004737

006432
006434
006442
006450
006454
006462
006466
006470
006472
006474
006500

005005
013777
052777
013701
012777
032711
001405
005205
100373
004737
104025

006502
006506

004737
104016

006430

104026

TST14:

R R AT R

001350
000100
001326
000011
000100

SCOPE
CNT.RESET

172650

1%:

021002

021436

JSR

PC,DRESETY

CLR
MOV
BIS
MOV
MOV
BIT
BEQ
INC
BPL
JSR
ERROR

RS
DRIVAD ,aRKDA
#100,3RKDA
RKDS,R1
#11,3RK(S
#100,aR1
2s
RS
1%
PC.GT3RG
25

JSR
ERROR

PC,TSTRWS
16

ERROR
172676
172670

2%:

AR TR AR AR R RN N R AN RN RS

R R

TST.SIN

021504

AN R R

R AR R

;G0, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRLsRESET' ROUTINE. A CONTROL RESET IS
sISSUED AND AFTER A CERTAIN TIME
;1F THE "CNTRL RDY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
sPC WHERE °"CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
;1IF SET DO DRV-RESET TO CLR IT

sMAKE SURE HEADS R ON CYL 0
sR/W/S RDY DIDN'T SET
JAFTER THE ABOVE DRV RESET
sSEEK CYLINDER 2
;SEEK, GO
:DID R/W/S RDY CLR?
:YES, BRANCH

:WERE SEEKING TO CYLINDER 2

;R/W/S RDY WAS NOT CLEAR WHEN HEADS
;60, WAIT FOR R/W/S RDY TO SET
sR/W/S RDY DID NOT SET AFTER SEEK
;WAS TRIED TO CYLINDER 2 (ABOVE).
sNOTE THIS WAS THE FIRST TIME A SEEK
sWAS TRIED TO A CYLINDER OTHER THAN
0.

2760

R AR

RN R R R AR RR AR R

R AR R R

2761
2762
2763
2764
2765

;*TEST 15
CHECK 'WRITE' FORMAT FUNCTION-CYLINDER 0, SECTOR 0
s*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT
s*FUNCTION. ON ISSUING A WRT FMT, THE FOLLOWING IS CHECKED
;*1)
CNTRL RDY WAS CLEARED AS GO WAS SET.
;*2)
CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

MACY11
T15

2766
2767
2768
2769
2770
27N
2772
2773

;;ttttttttt""'t'ttt"t"tt'Q'tttttt"ttttttt.tttt"ttt'ttttt't'

006510
006512

000004
104413

006514

104421

006516

012703

TST15:
-

SCOPE
CNT.RESET

TST.SIN
033342

MoV

#OUTBUF ,R3

ggg?

006522

012700

2804
2805
2806
2807

006526
006530
006532
006534

010023
010013
005423
005200

2809
2810
5313

006542
006544
006546

001371
005023
012713

2813
2814

2815
2816
2817
2818
2819
2820
2821

:GO, DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRLJRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
:PC WHERE °"CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
;1F SET, DO DRIVE RESET TO CLR IT
:THIS CODE SETS UP A 256 WORD BUFFER
;WHICH WILL BE USED TO WRITE 1 SECTOR
;ON THE DISK
:1ST WORD
000001
;2ND WORD
177777 2'S COMPLEMENT
:3RD WORD
000002 OF ABOVE
:4TH WORD
177776
3
hin
:253RD WORD
000177
:254TH WORD
177601
:255TH WORD
000000

:256TH WORD

Sggg

2808

SECTOR 0

:*3)
IF 'HE' OR 'ERR' BIT SET?
;*4)
IF RKDA INCREMENTED CORRECTLY tROM 0 TO 17
;*5)
IF RKWC OVERFLOWED CORRECTLY TO 0?
:*6)
IF RKBA INCREMENTED CORRECTLY BY 27
;*7)
IF ANY BIT IN RKER SET?
:*8)
IF THE 'WRT FMT' FUNCTION BITS ARE STILL IN THE RKCS?
:*NOTE THAT ONE WORD '125252' WAS WRITTEN ON SECTOR
;%0 & IT WILL BE CHECKED IN THE NEXT TESTS.

2771.

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

&
N
30A(1052)
21-FEB-78
08:58
PAGE 53
CHECK 'WRITE' FORMAT FUNCTION=CYLINDER O,

006536

006552
006556

022700

012703
013701

006562
006566
006570
006576
006604

013702
010312
012777
013777
012711

006610

105711

000001

125252

MOV

#1,R0

:SET COUNT

MOV
MOV
NEG
INC

RO, (R3)+
RO, (R3)
(R3)+
RO

;SET UP DATA WORDS

125252

BNE
CLR
MOV

9%
(R3)+
#125252,3R3

033342
001332

MOV
MOV

9%:

000200

cMpP

001336
177400
001350

002003

172536
172534

MOV
Mov
MOV
MoV
MOV

1$:

TSTB

#200,R0

#OUTBUF ,R3
RKCS,R1

;DONE?
:SET 255TH WORD TO 0
:SET 256TH WORD
:RESET POINTER TO OUTBUF

RKBA,R2
R3,aR2
#-400,3RKWC
DRIVAD,aRFDA
#2003,aR1

:FROM HERE=-SET UP CURRENT ADDRESS
:SET UP WORD COUNT 400 WORDS
;SET UP DISK ADDRS, SECTOR 0, CYLINDER 0

aR1

;WAS "CNTRL RDY' CLEARED AS GO WAS SET?

JWRITE FORMAT, GO

SEQ 0052

MD~-11-CZRKKF,

CZRKKF P11

2822
2823
2824
2825
2826
2827
2828
2829
ggg?
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
ggg;
2853
2854

2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872

2873
2874
2875
2876
2877

RK11

BASIC LOGIC

21-FEB-78 08:51

006612
006614
006620

100003
004737
104030

006622
006624
006626
006630

005000
105711
100411
005200

006632

001374

006634
006640
006646

004737
013737
104416

006650

104031

TEST 2

MACY11
115

021002
2%:

8
5
30A(1052)
21-FEB-78
08:58
PAGE 54
CHECK 'WRITE®' FORMAT FUNCTION-CYLINDER O,

BPL
JSR
ERROR

2%
PC.GT3RG
30

CLR

001202

;WAS SET TO "WRITE FORMAT'

ak1

;WAS

JSR
MoV
BRKDA4

PC.GT4RG
DRIVAD,SREG10

:G0, GET RKCS, ER, DS,DA

ERROR

3s
RO
2%+2

SEQ 0053

;YES, BRANCH
;6G0, GET RKCS, ER, DS
:"CNTRL RDY' DIDN'T CLEAR AS GO

TSTB

BMI
INC
BNE
020774
001350

SECTOR 0

"CNTRL RDY'

SET ON COMFLETION OF WRITE?

;YES, BRANCH
sNO, HAVE U WAITED LONG ENOUGH?
:1F NOT, LOOP BACK & WAIT
;1F YES, REPORT ERROR
;GO TO "BDA4'

§& BREAK

CONTENTS OF

;SREG10 INTO DR #,CYL,SUR,SEC BITS

;'CNTRL RDY' DIDN'T SET ON COMPLETION

;OF WRITE FORMAT

;WRT FMT WAS DONE STARTING AT <DSK~ADRES>

006652

004737

006656

104032

006660

004737

006664

104033

006666

004737

006672

104034

006674
006700
006702
006710
006714

022712
001406
012737
011237
104035

006716

004737

006722

104036

006724
006730
006732
006740
006744

022711
001406
012737
011137
104024

38:

021234

021262

021316

5%:

68:

034342
034342
001164

001162

021342

7%:

002202
002202
001164

8$:

001162

JSR

PC,CHKHE

ERROR

JSR

PC,CHKDA

ERROR

JSR

PC.,CHKWC

ERROR

CMP

#OUTBUF +1000,a8R2

ERROR

BEQ
MOV
Mov

;INDICATED IN EROR MSGE.
;GO CHECK IF

"HE'

'ERR'

BIT SET,

:1F YES, SAVE RKCS, ER, DS, DA.
;RETURN HERE IF ERROR.
;"HE' OR 'ERR' BIT SET WHILE DOING
;A WRITE FORMAT
;WRT FMT WAS DONE STARTING AT <DSK-ADRES>
sINDICATED IN EROR MSGE.
;GO CHECK IF RKDA INCREMENTED CORRECTLY

:1F NOT, RETURN HERE.
sRKDA SHOULD WAVE INCREMENTED BY

;1 SECTOR, IT DID NOT
;CHECK IF WORD COUNT OVERFLOWED, IF
sNOT RETURN HERE.
;RKWC DID NOT OVERFLOW TO O, AFTER
sXFER ON WRITE FORMAT

;DID RKBA INCREMENT CORRECTLY?

7%
:YES, BRANCH
#OUTBUF +1000,SREGO ;GET EXPCTD RKBA
aR2,SREGT
;GET ACTUAL RKBA

JSR

PC.,CHKER

ERROR

CMP
BEQ
MoV
MoV
ERROR

#2202 ,aR1
TST16
#2202,3REGO
aR1,$REG!

sRKBA DIDN'T INCREMENT BY 1000 AFTER
;WRITE FORMAT OF 400 WORDS
;CHECK I0F ANY BIT IN RKER SET,
;1F YES RETURN HERE.
;RKER BIT SET ON DOING 1 WORD
;WRITE FORMAT
;DOES RKCS STILL HAVE 'WRT FMT' BITS?

;:YES, EXIT
;GET EXPCTD RKCS
;GET ACTUAL RKCS
sRKCS DIDN'T CONTAIN 'WRT FMT' BITS

;AFTER THE FUNCTION WAS COMPLETED

AR ARNRRAACAARRAERARERRRRRORRARRRARRRRRARRRARROERRRRROERRSE

CHECK "READ FORMAT' FUNCTION-CYLINDER O, SECTOR 0
;*TEST 16
;*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT
;*FUNCTION. ON ISSUING A WRT FMT, THE FOLLOWING IS CHECKED
:t1)

;%2)

CNTRL RDY WAS CLEARED AS GO WAS SET.
CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916

2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933

TEST 2

MACY11
T16

C
5
21-FEB-78
08:58

30A(1052)

PAGE 55
CHECK "READ FORMAT' FUNCTION-CYLINDER 0, SECTOR 0

:#3)
:*4)
:*5)
;*6)
i#7)
;*8)
:*9)

SEQ 0054

IF 'HE' OR 'ERR' BIT SET?
IF RKDA INCREMENTED CORRECTLY FROM 0 TO 1?
IF RKWC OVERFLOWED CORRECTLY TO 0?
IF RKBA INCREMENTED CORRECTLY BY 27
IF ANY BIT IN RKER SET?
IF THE CORRECT HEADER WAS RECEIVED?
FOR RK11C, AFTER RD FMT RKDB CONTAINS THE CHECKSUM

:*FOR THAT SECTOR. (125252 IN THIS CASE, BECAUSE
;*FIRST WORD IN SEC O WAS WRITTEN AS 125252 IN

THE

:+THE PREVIOUS TEST)

:*10)

FOR RK11D,

:*11)

:*A ZERO

006746
006750
006752

TST16:

000004
005000
104413

THE RD FMT FUNCTION BITS ARE

S*THE RKCS?

AFTER RD FMT RKDB SHOULD CONTAIN

SCOPE

CLR
RO
CNT.RESET

STILL

2220 ]

:GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE ‘'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME
;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC

IN ERROR MESSAGE

IS THE

;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT

006754

104421

006756
006762
006766
006772

013701
013702

006774
007002
007010

012777
013777
012711

007014
007016
007020
007024

105711
100003
004737
104030

007026
007030

005000
105711

007032
007034
007036

100411
005200
001374

007040
007044
007052

004737
013737

007054

104045

012703
010312

104416

IST.SIN

001332
001336
033342
177777
001350
002005

172332
172330
18:

021002

RKCS.R1
RKBA.R2
#OUTBUF ,R3
R3,aR2

MoV
MOV
MOV

#-1,3RKWC
DRIVAD,@RKDA
#2005,aR1

TSTB

aR1

BPL
JSR

28
PC.GT3RG

ERROR

28:

020774
001350

MOV
MOV
MOV
MOV

001202

CLR

TSTB

aR1

BM]
INC
BNE

3s
RO
28+2

JSR
MOV
BRKDA&

PC.GT4RG
DRIVAD,SREG10

ERROR

;OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
;IF SET, DO DRIVE RESET TO CLR IT

;SETUP ADRS WHERE HEADER WORD IS TO BE

:X=-FERRED

;SET UP WORD COUNT
sSET UP DISK ADRS, SECTOR O, CYLINDER O
;READ FORMAT, GO

;WAS "CNTRL RDY' CLEARED AS GO WAS SET?
:YES, BRANCH
:GO, GET RXCS, RKER
sCNTRL RDY DIDN'T CLEAR AS GO WAS
;SET TO 'READ FORMAT'
;WAS

"CNTRL RDY'

: TRANSFER

SET ON COMPLETION OF

;YES, BRANCH
sNO, HAVE U WAITED LONG ENOUGH?

;1F NOT, LOOP BACK & WAIT
;IF YES, REPORT ERROR
:GO, GET RKCS, ER, DS.DA

;G0 TO "BDA4' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;"CNTRL RDY' DIDN'T SET ON COMPLETION
:OF READ FORMAT

MD-11-CZRKKF, RX11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972

2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986

2987
2988
2989

007056

004737

007062

104046

021234

007064

004737

007¢70

104040

007072

004737

007076

104041

007100
007104
007106
007114
007120

022712
001406
012737
011237
104042

033344

007122

004737

021342

007126

104036

007130

005713

007132
007134
007140
007144
007150

001407
005037
005037
011337

007152
007156
007160
007166
007172

022711
001406
012737
011137
104024

104043

TEST 2

3s:

021262

48:

021316

033344
001164

MACY11
T16

5%:

6%:

001162

JSR

PC,CHKHE

ERROR

7%:

001162
001164
001166

002204

9%:

001162

SECTOR 0

:"HE' OR 'ERR' BIT SET WHILE

;DOING A "READ FORMAT'

JREAD FMT WAS DONE STARTING AT <DSK-ADRES>
sINDICATED IN EROR MESGE

PC,CHKDA

ERROR

;IF NOT, RETURN HERE.
sRKDA SHOULD HAVE INCREMENTED

JSR

PC,CHKWC

;CHECK IF RKWC OVERFLOWED TO O,

ERROR

JRKWC DID NOT OVERFLOW TO O

CHP

#0UTBUF +2,8R2

MOV
MOV

#OUTBUF +2,8REGO ;GET EXPCTD RKBA
aR2,$REGT
sGET ACTUAL RKBA

JSR

PC,CHKER

ERROR

TST

aR3

BEQ
CLR
CLR
MoV
ERROR

9%
SREGO
SREG1
aR3,$REG2
43

CHP

#2204 ,3R1

MOV
MOV

#2204 ,8REGO
aR1,$REGT

BEQ

ERROR

TST17

SEQ 0055

JREAD FMT WAS DONE STARTING AT <DSK~-ADRES>
sINDICATED IN EROR MESGE
JCHECK IF 'ERR' OR 'HE' BIT SET, IF
sYES RETURN HERE.

JSR

ERROR

8$%:

002204
001164

)

30A(1052)
21-FEB-78
08:58
PAGE 56
CHECK "READ FORMAT' FUNCTI!ON-CYLINDER O,

JCHECK

IF RKDA INCREMENTED CORRECTLY

;BY 1 SECTOR, IT DID NOT
sNOT RETURN HERE.

JAFTER XFER ON READ FORMAT

;DID RKBA INCREMENT TO NXT WORD ADDRS?

sYES, BRANCH

sRKBA DIDN'T INCREMENT BY 2 AFTER
;"READ FORMAT' OF 1 WORD
sCHECK IF ANY BIT IN RKER SET,

:YES RETURN HERE.

sRKER BIT SET ON DOING

;1 WORD READ FORMAT
;DOES OUTBUF CONTAIN THE HEADER
;WORD=0
:YES, BRANCH
;GET SECTOR NO.
JEXPCTD HEADER
;GET HMEADER RECVD
;CORRECT HEADER WORD-0-WAS

sNOT RECEIVED ON READ FORMAT
;DOES RKCS HAVE THE

;:YES, BRANCH

'RDFMT®" BITS?

sGET EXPCTD RKCS
sGET ACTUAL RKCS
sRKCS DIDN'T CONTAIN 'RD FMT®

;BITS AFTER FUNCTION WAS
; COMPLETED

s RRARAARRRRERAREAREACEERRRRRRRARARERNRRRRRRTRRERRAIRRRRRC
AR R R AR RS

;*TEST 17

CHECK "READ' FUNCTION-CYLINDER 0,SECTOR 0

;*THIS IS THE FIRST TIME A PURE READ IS PREFORMED In THIS
;*TEST SEQUENCE. THE FOLLOWING IS CHECKED
;*1) CNTRL RDY CLEARS AS GO IS SET

;*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION
;*0F FUNCTION

;*3) IF "HE' OR "ERR' BIT SET?
;*4)

IF RKDA INCREMENTED CORRECTLY?

:*5) IF RKWC OVERFLOWED TO 0?
;*6) IF RKBA INCREMENTED CORRECTLY?

MD-11-CZRKKF,

CZRKKF .Pi1

2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006

3007
3008

3009
3010
3omn
3012
3013
3014

3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
17

5
E
21-FEB-78 08:58 PAGE 57
"READ' FUNCTION-CYLINDER O,SECTOR 0

30A(1052)

CHECK

SEC 0056

;¢7) IF ANY RKER BIT SET?
:*8) IF THE CORRECT PSUEDO-HEADER (FIRST WORD) WAS
S+READ FROM SECTOR 0

:*9)
A

007174
007176

1ST17:

000004

104413

THE

SCOPE

"READ'
R

FUNCTION BITS ARE

CNT.RESET

STILL

IN RKCS

AR 2232222322228

;GO, DO CONTROL RESET
;THIS IS A CALL FOR THE

°'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

;1F THE °"CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE

:PC WHERE °"CNT.RESET'
007200

104421

007202
007206
007210
007214
007220

013701
005000
013702
012703
010312

001332

007222

007230
007236

012777
013777
012711

177400
001350
000005

007242
007244

105711
100003

007246
007252

004737

007254
007256

005000

007260
007262
007264

104030

TST.SIN

001336
033342

18:

021002
2%:

100411

005200

001374

004737
013737

007302

104045

007304

004737

007310

104046

007312

004737

104416

020774
001350

021234

021262

RKCS.R1
RO
RKBA,R2
#OUTBUF ,R3
R3,aR2

MoV

#-400, aRKWC

MOV

#5,3R1

MOV

105711

007266
007272
007300

MOV
CLR
MOV
MOV
MOV

001202

1ST8

aRr1

CLR

BMI
INC
BNE

38
RO
2842

JSR
MOV

PC,GT4RG
DRIVAD,SREG10

BPL
JSR
ERROR
1STB

BRKDAS

3$:

48:

DRIVAD,aRKDA

28
PC.GT3RG
30
aR1

IS LOCATED.

sTHIS IS A VERY BASIC ERR & IF IT
;0CCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
;IF SET, DO DRIVE RESET TO CLR IT

;SET UP ADDRS WHERE DATA WORD IS
;70 BE X-FERRED
;SET UP WORD COUNT
;SET UP DISK ADRS, SECTOR O, CYLINDER 0
;READ,

;WAS 'CNTRL RDY' CLEARED AS GO WAS SET?
;YES, BRANCH
:60, GET RK(CS, ER
sCNTRL RDY DID NOT CLEAR AS GO
;WAS SET TO "READ'

;WAS CNTRL RDY SET ON COMPLETION
;OF TRANSFER?
;YES, BRANCH
sNO, HAVE U WAITED LONG ENOUGH?
;1F NOT, LOOP BACK & WAIT
;1F YES, REPORT ERROR
:GO, GET RKCS, ER, DS,.DA

;GO TO °"BDA&' & BREAK

CONTENTS OF

;SREG10 INTO DR #,CYL,SUR,SEC BITS

ERROR

;CNTRL RDY DID NOT SET ON
;COMPLETION OF READ
sREAD WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MESGE

JSR

PC, CHKHE

ERROR

;CHECK IF "ERR' OR "HE' BIT IS SET
;IF YES, RETURN HERE.
;'HE' OR 'ERR' BIT SET WHILE

JSR

PC,CHKDA

:DOING A READ.
;READ WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MESGE

;CHECK IF RKDA INCREMENTED CORRECTLY,

MD-11-CZRKKF,
CZRKKF 11

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
307
3072
3073
3074
3075
3076
3077
3078
3079

RK11

BASIC

LOGIC

21-FEB-78 08:5

007316

104040

007320

004737

007324

104041

007326
007332
007334
007342
007346

022712
001406
012737
011237
104042

034342

007350

004737

021342

007354

104036

007356

022713

000001

007362
007364
007372
007376
007404

001411
012737
011337
013737

000001
001164
001350

104044

TEST 2

021316

MACY11
117

5%:

21-FEB-78

08:58
PAGE 58
FUNCTION-CYLINDER O,SECTOR 0

CHECK

"READ'

ERROR

:1F NOT RETURN HERE.
sRKDA DID NOT INCREMENT

JSR

PC,CHKWC

sCHECK

;sBY 1 (SECTOR)

If RKWC OVERFLOWED 1O O,

6%:

CMP
BEQ
MOV
MOV
ERROR

7%:

JSR

PC,CHKER

ERROR

CMP

#1,aR3

BEQ
MOV
MOV
MOV
ERROR

9%
#1,8REGO
(R3) ,SREG1
DRIVAD,SREG2
44

001162

001166

JAFTER "READ' OF 1 WORD
sCHECK

ANY BIT IN RKER SET,

:IF YES RETURN MERE.
sRKER BIT SET ON DOING 1
;sWORD 'READ’

;DOES OUTBUF CONTAIN THE RIGHT
:DATA WORD
;YES BRANCH
sGET EXPCTD DATA WORD
sGET RECVD DATA WORD
sGET DISK ADRS FROM WHICH READ WAS DONE
;DID NOT READ THE CORRECT

sDATA WORD=--FROM DISK ADRES,

sSEC 0, CYL O, SUR O
SAFTER 1 SECTOR READ RKDB CONTAINS
;FOR RK11C

s THE CHECKSUM FOR THAT SECTOR

;FOR RK11D

sTHE LAST WORD TRANSFERRED TO MEMORY

3080
3081
3082

3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3101

SEQ 0057

sTF NOT RETURN HERE.
41
JRKWC DID NOT OVERFLOW TO O,
sAFTER X=FER ON READ
#0UTBUF+1000,aR2
;DID RKBA INCREMENT CORRECTLY?
7%
;YES, BRANCH
#OUTBUF +100C, $SREGO
sGET EXPCTD RKBA
aR2,SREG
;GET ACTUAL RKBA
&2
sRKBA DID NOT INCREMENT BY 2

ERROR

034342
001164

30A(1052)

007406
007414
007416
007424

022777
001407
012737
017737
104037

007434
007440
007442
007450
007454

022711

007456
007460
007464
007466

104413
005777
001407
013737

007432

001406
012737
011137
104024

125252

171726

125252
171712

001162
001164

000204
000204
001164

CMpP

#125252 ,3RKDB

MOV
MOV

#125252,8REGO
aRKDB,SREG1

cmp
BEQ

#204 ,3R1
11%

BEQ

ERROR

10%:

001162

MOV
MoV

ERROR

11%:

171656

001342

9%:

001164

108
37

#204 ,3REGO
aR1,SREGT

;1T SO HAPPENS THAT WITH THE SECTOR
s THAT WAS READ, RKDB CONTAINS THE
sSAME INFORMATION FOR BOTH RK11C
:AND RK11D

;DOES RKDB CONTAIN THE EXPCTD WORD?
sYES, BRANCH

;GET EXPCTD RKDB
;GET RECVD RKDB

;RKDB DOESD NOT CONTAIN THE
:EXPC;D WORD AFTER A READ OF SEC 0
.CYL

:DOES RKCS HAVE THE
;YES , BRANCH

°'READ' BITS?

sGET EXPCTD RKCS
;GET RECVD RKCS

;RKCS DID NOT CONTAIN 'READ'

CNT.RESET

sFUNCTION BITS AFTER OPERATION
;WAS COMPLETED
;GO DO CONTROL RESET

BEQ
MoV

siYES, EXIT
;GET ADRES OF RKDB

TST

aRkDB

15120
RKDB,$SREG1

;DID CONTROL RESET CLEAR RKDB?

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

3102
3103
3104
3105
3106
3107

007474
007502

017737
104102

171642

TEST 2

MACY11
117

30A(1052)

001164

CHECK

21-FEB-78

dRKDB,SREG1

ERROR

AAS AL

08:58

PAGE

'READ' FUNCTION-CYLINDER O,SECTOR 0

MOV

102

;GET CONTENTS OF

SEQ 0058
RKDB

;CONTROL RESET DIDN'T CLR RKDB

ARl

ARttt E]

'TEST 20
CHECK "WRITE FORMAT' =-CYLINDER 0, SECTOR 0-13
;*THIS TEST GOES ONE STEP FURTHER & PERFORMS A WRT

:+FMT ON CYLINDER O & CHECKS THE FOLLOWING
:*1)
IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION
:*OF

:*2)

:*3)
;*4)

THE FUNCTION

'HE' OR "ERR' BIT SET?

IF THE RKDA INCREMENTS CORRECTLY?
IF THE RKDB IS CLEAR?

;*WRT FMT IS DONE ONE SECTOR AT A TIME
s*THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A
;*PSUEDO-HEADER CONSISTING OF DRIVE #, CYLINDER #,

SURFACE

;*8 SECTOR #. THIS WILL BE READ & CHECKED IN THE FOLLOWING TEST.
!Qtttt"."""'!'."""""'Q"'Q"tt".t.'t'.l'.'t.tttt't"t

007504
007506
007512
007516
007522
007526
007530
007532

000004
013703
012702
013704
013701
010105
005205
012737

007540

104413

15120:

001332
177764

001340
001350

007540

001110

SCOPE

MoV
MoV
Mov
Mov
Mov
INC
Mov

1%:

RKCS,R3
#-14 ,R2
RKDA,R4
DRIVAD,R1
R1,RS
RS
#18,SLPERR

CNT.RESET

;SET UP COUNT FOR 12 SECTORS

;GET DRIVE ADDRESS
;STORE IT

;SET RETURN ADRES FOR LUPING

ERROR (SW 9)

;ON

;GO, DO CONTROL RESET

sTHIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
:ISSUED AND AFTER A CERTAIN TIME

;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC

IN ERROR MESSAGE

;PC WHERE

sTHIS

"CNT.RESET'

IS THE

IS LOCATED.

IS A VERY BASIC ERR & IF

:0CCURS GO BACK TO TEST 10

007542

104421

TST.SIN

007544
007546

005000
010137

;IF SET, DO DRIVE RESET TO CLR IT

033342

cL
MoV

R1,0UTBUF

;THIS WORD TO BE X-FERRED.

007552

012777

033342

171556

Mov

#OUTBUF ,aRKBA

007560

007566

177777

171546

007570

012777
010114
012713

Mov
Mov
Mov

g
#-1,3RKWC
;SET UP WORD COUNT
R1,aR4
;ADDRS THE DRIVE, CYL O, & CORRECT SECTOR
#2003 ,aR3
;WRITE FORMAT, GO

007574
007600
007602
007604

105777
100410
005200
001373

171532

TSTB

aRKCS

;DID

007606

004737

020774

;1F NOT, LOOP BACK & WAIT
;1F YES, REPORT ERROR
;GO, GET RKCS, ER, DS,DA

002003
2%:

BMI
INC
BNE

JSR

3%
RO

PC,.GT4RG

:GO CHECK IF SIN IS SET

FIRST

;WORD OF EACH SECTOR WILL BE THE
sACTUAL DRIVE~ADDRS CONSISTING OF
sDRIVE NO, CYL ADDRS, SURFACE
:SECTOR NO.
:Abggnszgfl WHICH DATA WORD IS TO

"CNTRL RDY'

SET?

:YES, BRANCH
:NO, HAVE U WAITED LONG?

MD-11-CZRKKF,
CZRKKF .P1

3158

3159
3160
3161
3162
3163
3164
3165
3166

3167
3168
3169
3170
nn
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
319N
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206

3207
3208
3209
3210
321
3212
3213

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST

MACY11
120

CHECK

007612

010137

007616

104416

BRKDA4

007620

104031

ERROR

R1,$REG10

;GET DISK ADRS

004737

007626

104032

3%:

021226

JSR

PC,CHKHE

ERROR

SEQ 0059

(UNIT,CYL,SUR,SEC)

;WRITE FORMAT WAS DONE

;"CNTRL RDY' DID NOT SET ON COMPLETION

;OF '"WRITE FORMAT'
FMT WAS DONE

STARTING AT <DSK-ADRES>

;INDICATED IN EROR MSGE.
;CHECK IF

"ERR' OR

"HE' BIT

IS SET,

;IF YES RETURN HERE.
;'HE' OR 'ERR' BIT SET WHILE DOING
;WRITE FORMAT ON CYLINDER O,
;SECTOR IN ERROR IS AS SHOWN IN
;DISK~ADRES BITS 0-3
sWRT

FMT WAS DONE

STARTING AT

;INDICATED IN EROR MSGE.

007630

004737

007634

104033

007636

005777

007642
007644
007650
007656

001406
005037
017737

007660
007662
007664
007670
007672

005201
005205
122705
001002
062705

007676
007700

005202
001317

104037

021270

4%:

5%:

171500

001162

171466

001164
6%:

000014

000004

<DSK~-ADRES>

JSR

PC,CHKDA1

;CHECK

ERROR

;RKDA DID NOT INCREMENT CORRECT
sAFTER 1 WORD 'WRITE FORMAT' ON

TST

aRKDB

TO WHICH

;GO TO 'BDA4' & BREAK
CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;WRT

007622

PAGE 60

'WRITE FORMAT' ~-CYLINDER O, SECTOR 0-13

MoV

001202

H
5
21-FEB-78
08:58

30A(1052)

IF RKDA INCREMENTED CORRECTLY?

;CYLINDER O, SECTOR IN ERROR IS 1
;LESS THAN THAT SHOWN IN EXPCTD RKDA
;CHECK

THAT RKDB DOES CONTAIN A 0

JAFTER WRT BECAUSE LAST WORD WRITTEN

;WAS SERIALLY SHIFTED OUT TO THE DISK
;YES, BRANCH
;THIS IS WHAT RKDB SHOULD CONTAIN

BEQ
CLR
MoV
ERROR

6%
$REGO
aRKDB, SREG1
37

}:E

sLAST WORD WRITTEN WAS SERIALLY SHIFTED
;0UT OF RKDB
; INCREMENT DRIVE ADDRS TO NXT SECTOR

(CMPB

#14,RS

;R U GOING TO CHECK THE LAST SECTOR?

ADD

¥4, ,R5

;IF _YES,INCREMENT R5 CORRECTLY TO "EXPCTD RKDA'

INC
BNE

R2
1%

BNE

.*6

;GET RKDB
;RKDB SHOULD BE 0 AFTER WRT SINCE THC

: IF NOT ,BRANCH

;AFTER HAVING CHECKED THE LAST SECTOR

sHAVE U FORMATTED ALL 12 SECTORS?
;IF NOT, BRANCH BACK & LOOP

;1F YES, EXIT

s ERARARREARRAAEREAALERRARIRCOEIORRAIRRRARRERRRRRARAORARRRARARERRRRRARRERSE

CHECK "READ FORMAT'-CYLINDER 0, SECTOR 0-13
J*TEST 21
s*THIS TEST PERFORMS A RD FMT ON THE 12 SECTORS OF CYLINDER 0
;*THE FOLLOWING IS CHECKED
:t1)

IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION

;*OF THE FUNCTION
IF "HE' OR 'ERR' BIT SET?
:%2)

;v3)
1v4)

;*5)

::6)
;7))

THE RKDA INCREMENTS CORRECTLY?

RKBA INCREMENTED CORRECTLY BY 30 (OCTAL)
RKWC OVERFLOWED TO O FROM =14 (OCTAL)
CORRECT HEADER WAS RECEIVED FROM ALL 12 SECTORS.
RKCS STILL CONTAINS THE 'RD FMT' FUNCTION BITS.

s*IF THERE IS A READ ERROR IN THIS TEST OR ANY
;*OTHER TESTS THE USER SHOULD MAKE SURE THAT

MD-11-CZRKKF,

CZRKKF .P11

LOGIC

21-FEB-78 08:51

TEST 2

007702
007704
007706

TST21:

000004
005005
104413

o
30A(1052)
21-FEB-78
08:58
PAGE 61
CHECK "READ FORMAT'-CYLINDER O, SECTOR 0-13

MACY11
Lrdl

:*IT IS AN IRRECOVERABLE ERROR AND
;*ONE. THIS CAN BE DONE BY LOOPING
;*IN QUESTION. USUALLY A TRANSIENT
;*DISAPPEARS ON RETRIES, WHEREAS A
AR

ARl

SEG 0060

NOT A TRANSIENT
ON THE TEST
ERROR
LOGIC ERROR DOES NOT.

AR ARttt

SCOPE

CLR
RS
CNT.RESET

;GO,

DO CONTROL RESET

;THIS IS A CALL FOR THE

°‘CNTRL-

JRESET' ROUTINE. A CONTROL RESET IS
;1SSUED AND AFTER A CERTAIN TIME

:1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

007710

104421

007712
007716
007722
007726
007732
007736
007742
007750

013701
012700
013702
013712
012704
010477
012777
012777

007756
007762
007764
007766

105777
100411

171350

005205
001373

007770
007774
010002

004737
013737
104416

020774
001350

010004

104045

001332

177764
001340
001350
033342
171374
177764
002005

MOV
MOV
MOV
MOV

MoV
MOV
MoV

1364

1354

MOV

1$%:

001202

TSTB

BMI
INC
BNE

RKCS,.R1
#-14 R0
RKDA,R2
DRIVAD,aR2

#OUTBUF
R4
R4 ,3RKBA
#-14 ,3RKWC

004737

010012

104046

010014
010020

013705
062705

001350
000020

010024

004737

021270

010030

104040

021234

2%:

;GO CHECK

IS LOCATED.

SIN

SET

;1S SET, DO DRIVE RESET TO CLR IT
:SET UP COUNT FOR 12 SECTORS
;ADDRESS THE DRJVE

#2005,3RKCS

aRKCS

;DID CNTRL RDY SET ON COMPLETION?

2%
RS
1%

PC,GT4RG
DRIVAD,SREG10

ERROR

s
010006

'CNT.RESET®'

:ADRS TO WHICH X-FER DATA FROM DSK
:SET UP WORD COUNT FOR 12 HEADERS TO BREAD
:READ FORMAT, GO

JSR
MOV

BRKDA4

;PC WHERE

:THIS IS A VERY BASIC ERR & IF
;OCCURS GO BACK TO TEST 10

TST.SIN

3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
3261
3262
3263
3264
3265
3266
3267
3268
3269

BASIC

3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3250
3232
3233
3234
3235
3236

RK11

;YES, BRANCH
;NO, WAIT FOR IT TO SET
;1F WAITED LONG ENOUGH REPORT

;ERROR, OTHERWISE LOOP BACK & WAIT
;G0, GET RKCS, ER, DS.DA

;GO TO "BDA4' & BREAK CONTENTS OF

;SREG10 INTO DR#,CYL,SUR,SEC BITS

:CNTRL RDY DID NOT SET ON COMPLETION
:OF READ FORMAT-OF CYLINDER O,

;SECTORS 0-13

JSR

PC,CHKHE

ERROR

MOV
ADD

DRIVAD,RS
#20,RS

JSR

PC,CHKDA1

ERROR

:READ FMT WAS DONE STARTING AT <DSK-ADRES>
:INDICATED IN EROR MESGE
;CHECK IF

"ERR' OR

"HE' BIT IS SET,

:1F YES RETURN HERE.

:"ERR' OR "HE' BIT SET ON DOING

;READ FMT-OF CYLINDER 0, SEC 0-13
:READ FMT WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MESGE
;RKDA SHOULD HAVE INCREMENTD TO (R2)
:CHECK IF RKDA INCREMENTED CORRECTLY,

:1F NOT, RETURN HERE.
:RKDA DID NOT INCREMENT BY 12
;AFTER A 'RD FMT' OF

12 HEADERS OF

;CYLINDER 0, SECTORS 0-13

MD-11-CZRKKF,
CZRKKF PN

3270
327
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3212
3313
3314
3315

3316
3317
3318
3319
3320
3521
3322
3323
3324
3325

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY17
121

J
5
30A(1052)
21-FEB-78
08:58
PAGE 62
CHECK "READ FORMAT'-CYLINDER O, SECTOR 0-13

;RKBA SHOULD INCREMENT BY 24 BYTES

010032
010040
010042
010050
010056

022777
001407
012737
017737

033372

171276

033372

001162
001164

010060

004737

021316

010064

104041

010066
010070
010072
010076
010104
010110
010114

005724
001413
010037
062737
005037
014437

010116
010120
010122

005724
005200
001361

010124

004737

010130

104036

010132
010136
010140
010146
010152

022711
001406
012737
011137

104042

104043

104024

171262

4%:

5%:

001162

021342

002204
002204
001164

:YES, BRANCH

ERROR

;RKBA DID NOT INCREMENT CORRECTLY

JSR

PC,CHKWC

ERROR

TST
BEQ
MoV
ADD
CLR

ERROR

(R4)+
7$
RO, SREGO
#14,SREGO
$REG1
-(R4) ,$REG2
43

TST
INC
BNE

(R4)+
RO
6%

JSR

PC,CHKER

ERROR

CMP
BEQ

#2204 ,3R1
18122
#2204 ,$REGO
221.3REGI

MOV

7%:

8%:

001162

MOV
MOV

ERROR

;AT THE END OF X=-FER
#OUTBUF
+30 ,@RKBA ;DID RKBA INCREMENT CORRECTLY?

MOV

6%:

001162
000014
001164
001166

CMP
BEQ
Mov

#OUTBUF +30,$REGO
;GET EXPCTD RKBA
@RKBA, $REG
sGET ACTUAL RKBA

;AFTER READ FORMAT OF 12 HEADERS
;GO CHECK IF RKWC OVERFLOWED TO 0
:IF NOT RETURN HERE.
;RKWC DID NOT OVERFLOW TO 0

;AFTER 'RD FMT' OF 12 HEADERS
;OF CYLINDER 0

;WAS THE CORRECT HEADER RECIEVED?
;YES, BRANCH

;GET SECTOR FOR WHICH THE HEADER
;COULD NOT BE READ CORRECT
;EXPCTD HEADER-0, FOR CYL 0
;GET WRONG HEADER RECVD
sHEADER WAS NOT READ RIGHT FOR
;SECTOR (AS IN ER MSGE), & CYL O
;WAS THE CORRECT HEADER RECVD?
;YES, HAVE U CHECKED FOR ALL 12 SECTORS?
:1F NOT, LOOP BACK & CHK HDR FRM NXT SECTR
;CHECK IF ANY BIT IN RKER IS SET,
;1F YES, RETURN HERE.
sRKER BIT SET ON DOING RD FMT
;OF CYL O, SECTORS 0-13

;DOES RKCS STILL CONTAIN FUNCTION BITS?
;s VES, EXIT
;GET EXPCTD RK(CS

sGET ACTUAL RKCS
;RKCS DID NOT CONTAIN °"RD FMT'
;FUNCTION BITS ON COMPETION OF
:THE FUNCTION

RNRNN N RRCNRAERRRERRARERAREARRRRRERAR
AR R R AR AR RN

CHECK "READ',CYLINDER O, SECTORS 0 TO 13
;*TEST 22
;*THIS TEST PERFORMS A READ OF ALL THE SECTORS OF CYLINDER 0
;*8 CHECKS THE FOLLOWING
;*1) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION
;*0F THE FUNCTION
;%2) IF "HE' OR "ERR' BIT SET?

;*3) IF THE CORRECT PSUEDO-HEADER (FIRST WORD OF EVERY)
;*SECTOR, WRITTEN IN A PREVIOUS TEST) WAS RECEIVED.
;*4) IF RKDS CONTAINS THE CORRECT WORD.
:*4) IF RKDA INCREMENTED CORRECTLY.

;*5) IF REST OF THE (377) WORDS IN EACH SECTOR ARE '0' , NOTE
;*PREVIOUSLY ONE WORD WAS WRITTEN PER SECTOR.
;*6) IF RKCS STILL CONTAINS THE 'READ' FUNCTION BITS
;*7) 1F CONTROL RESET CLEARS RKDB.

;¢ IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECTOR(13)
;*1S READ BECAUSE THE SIMULATOR CAN STORE ONLY 1 SECTOR (256 WORDS).

SEQ 0061

MD-11-CZRKKF,
CZRKKF Pl

3326
3327
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
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376

3377
3378
3379
3380
3381

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST

MACY11
122

K
5
30A(1052)
21-FEB-78
08:58
PAGE 63
CHECK 'READ',CYLINDER O, SECTORS 0 1O 13

s*HENCE ONLY
A

010154
010156

000004
012737

010164
010170
010174
010176
010202
010206

013703
013701
010105
012704
005737
001405

010210
010214
010220
010222
010226

052701
052705
000403
012702

010230

104413

005205

010230

001110

THE DATA WRITTEN LAST CAN BE READ BACK.

ARARl
R
A2

15122:

001332
001350

SCOPE
MOV

#1%,SLPERR

Mov

RKCS,R3

MOV

R1,R5

MOV
MOV

#0UTBUF ,R4

BEQ

000013
000020

BIS
BIS

#13.R1
#20,R5

Mmov

#-14 ,R2

TST

9%:
1%:

INC

;SET RETURN ADRES FOr LUPING
ERROR (SW 9)
:ON

DRIVAD,R1

033342
001344

177764

SEQ 0062

SIMUL

CNT.RESET

;TESTING ON SIMULATOR?

:NO, BRANCH
;1F TESTING ON SIMULATOR READ

;SECTOR 13 ONLY
;SET BITS FOR SEC 13
sRKDA SHOULD INCRMNT

TO THIS AFTER READ

;SET COUNT FOR 12 SECTORS

;RKDA SHOULD INCREMENT TO
;THIS AFTER 1 SECTOR READ
;GO, DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME

010232

104421

010234
010240
010244
010252

010177
010477
012777

010256
010260
010262
010264
010266

005000
105713
100410

010270
010274
010300

004737
010137
104416

010302

104045

012713

TST.SIN

171100
171072
177400
000005

171062

MOV
MOV
MoV

R1,3RKDA
R4 ,aRKBA
#-400,aRKWC

CLR
TSTB
BMI
INC
BNE

RO
aR3
3s
RO
2%

JSR
MoV

PC.GT4RG
R1,$REG10

ERROR

MOV
2%:

005200
001374
020774
001202

BRKDA4

#5,3R3

;1F THE "CNTRL RDY' DOES NOT SET
sAN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE °"CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET
;1F SET, DO DRIVE RESET TO CLR IT
;ADDRESS THE DRIVE
sADRS TO WHICH X-FER DATA FROM DISK
;SETUP WORD COUNT
;READ,GO
;DID CNTRL RDY SET ON COMPETION?
;YES, BRANCH
sNO, WAIT FOR IT TO SET
;IF WAITED LONG ENOUGH, REPORT
;ERROR, OTHERWISE LOOP BAK & WAIT
:GO, GET RKCS, ER, DS.DA
:GET SECTOR ADDRES WHERE ERROR OCCURED
;GO TO "BDA4' & BREAK CONTENTS OF

sSREG10 INTO DR #,CYL,SUR,SEC BITS
:CNTRL RDY DID NOT-SET ON COMPLETION
;OF READ OF CYLINDER 0, SECTOR

:AS SHOWN IN <DSK-ADRES>

010304

004737

010310

104046

021226

3%:

JSR

PC,CHKHET

ERROR

;READ WAS DONE STARTING AT <DSK-ADRES>
sINDICATED IN EROR MESGE
;CHECK IF "ERR' OR 'HE' BIT IS SET,
;1F YES RETURN HERE.
:HE OR ERR BIT SET

;ON 'READ' OF CYLINDER 0O, SECTOR
:AS SHOWN IN <DSK-ADRES>

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396

3397
3398

010312

020114

010314
010316
010322
010326
010332

001407
010137
011437
010137
104044

001162
001164
001166

010334

004737

021270

010340

104040

TEST 2

MACY11
122

48:

5%:

30A(1052)
21-FEB-78
08:58
PAGE 64
CHECK "READ',CYLINDER O, SECTORS 0 1O 13

CMP

R1, (R&)

BEQ
MOV
MOV
MOV
ERROR

5%
R1,$REGO
(R4) ,SREG1
R1,$REG2
44

JSR

PC,CHKDA1

ERROR

3399

3402

3421
3422

3423
3424
3425
3426
3427
3428
3429
3430
3431
3432
3433
3434
3435
3436
3437

;GET EXPCTD DATA WORD FROM DISK
:GET THE DATA WORD RECVD
:GET DISK ADRES
;DID NOT RECIEVE CORRECT DATA WORD ON
;READ, OF CYLINDER O, SECTOR AS SHOWN IN 'DSK
;ADRES' OF EXPCTD DATA WORD
JCHECK IF RKDA INCREMENTED CORRECTLY,
;1F NOT RETURN HERE.
;RKDA DID NOT INCREMENT CORRECTLY
:AFTER READ OF 1 WORD, FROM CYL 0
;SEC IN ERROR IS 1 LESS THAN THAT

;SHOWN IN EXPCTD RKDA

§28?

3403
3404
3405
3406
3407
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
gz;g

;READ WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MESGE
;WAS THE DATA WORD RECVD, CORRECT?
;THE FIRST DATA WORD OF EACH SECTOR
;1S AN ADRS WORD COMRISING OF DRIVE NO,
sCYLINDER ADRS, SUR, SECTOR ADRS

’

010342
010350
010354
010362
010364
010366
010370
010374
010376
010400
010404
010410

012737
012700
012737
005710
001005
005720
005237
001372
000412
005037
012037
010137

010414

104044

177775
033344
177401

001370
001362

11%:

001362
001162
001164
001166

010416
010422

005237
001357

001370

010424
010430

005737
001011

001344

010432

005201

128:

78:

;AS A RESULT OF 'WRT FMT® IN A PREVIOUS TEST

MOV
MOV
MOV
TST
BNE
TST
INC
BNE
BR
CLR
MoV
MoV

#-3,EFLGI
#OUTBUF +2,R0
#-377,COUNT
aR0
12%
(RO)+
COUNT
11%
7%
$REGO
(RO) +,$REGT
R1,8REG2

ERROR

INC
BNE

EFLGY
118

TST
BNE

SIMUL
108

INC

;FIRST WORD OF EVERY SECTOR IS NON;ZERO (PSUEDO=-HDR), REST 377 WORDS
;ARE ALL 0°'S.
;CHECK IF THE REST OF THE 377
;WORDS ARE ALL 0°'S
;ALLOW ONLY 3 ERRORS
JINITIALIZE PTR TO 2ND WRD IN BUFR
;CHECK 377 WORDS IN THE BUFFER
:1S THIS WRD 0?
sNO, ERROR
:INCRMNT PTR TO NXT WRD
;CHKD ALL 377 WRDS?
:YES, BRANCH
:GET EXPCTD WORD
:GET WORD RECVD
:gszrggsx ADRES, ERROR IN THIS
:DATA ERROR, THE LAST 377 WORDS
;READ FROM EACH SECTOR SHOULD BE 0

:IN A PREVIOUS TEST, FIRST WORD OF
:EVERY SEC (CYL 0) WAS WRITTEN AS A
:PSUEDO-HDR, REST OF THE WORDS IN THE
:SECTR ARE AUTOMATICALLY WRITTEN AS
:0'S. THIS ERROR MAY MEAN THAT IT
:DIDN'T HAPPEN SO
:ALLOW ONLY 3 DATA ERORS OF THIS KIND

:TESTING ON SIMULATOR?
:YES BRANCH
:1F NOT TESTING ON SIMULATOR GO AHEAD
; & READ ALL 12 SECTORS ON CYL 0
; INCREMENT DRIV-ADRES TO NXT SECTOR

SEQ 0063

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

3438
3439
3440
3441
3442

3443

3444
3445
3446
3447
3448
3449
3450
3451
3452

3453
3454
3455
3456
3457

010434
010436
010442
010444

005205
122705
001002
062705

010450

005202

010452

001266

010454
010460
010462
010470
010474

022713
001406
012737
011337
104024

010476

104413

010500
010504
010506
010514
010522

005777
001407
013737
017737
104102

MACY11
122

L
30A(1052) 21-FEB-78 08:58
PAGE 65
CHECK "READ',CYLINDER O, SECTORS 0 TO 13

INC
CMPB
BNE
ADD

RS
#14,R5
.+6
#4,R5

INC

108:

CMP
BEQ
MOV
MOV
ERROR

#204 ,3R3
8s
#204 ,SREGO
aR3,$REGT
24

8%:

CNT.RESET

000014
000004

BNE
000204
000204
001164

001162

s INCREMENT 'EXPCTD DRIV-ADRES'
;R U GOING TO READ THE LAST SECTOR?
:1F NOT, BRANCH
;1F YES, INCREMENT "EXPCTD RKDA'
sCORRECTLY
sHAVE U READ ALL 12 SECTORS?

3458

3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469

170636

001342
170622

001162
001164

TST
BEQ
MOV
MOV
ERROR

aRKDB
1ST23
RKDB, SREGO
aRKDB, SREG1
102

R R RN

3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3490
3492
3493

s*TEST 23
CHECK 'WRITE FORMAT' OF THE DISK
;*THIS TEST WRITE FORMATS THE ENTIRE DISK.
THE FIRST
;*WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER
;*CONSISTING OF THE DRIVE #, CYLINDER #, SURFACE & SECTOR #.
;*1 SECTOR IS WRITTEN AT A TIME. THE WRITING IS DONE
:*IN THIS ORDER: CYL O-SUR 0; CYL 0-SUR 1;
CYL 1-SUR 0
s*CYL 1-SUR 1; CYL 2-SUR 0; CYL 2-SUR 1====- CYL 312-SUR 1.
;*IMPORTANCE OF THIS TEST SHOULD BE REALIZED, TAIS IS
s*THE FIRST TIME EACH & EVERY SECTOR ON THE DISK IS
s*ACCESSED & WRITTEN ON.
THIS IS THE FIRST TIME RKDA
;*1S BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM
;*000000 TO 014520) IF A 'SIN' OCCURS AT ANY POINT
s*A DRIVE RESET IS DONE BEFORE DOING WRT FMT FOR THE NEXT
;*SECTOR.
ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET.
;*THE FOLLOWING CHECKING IS DONE AFTER WRITING EACH
;*CYLINDER.
;*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION
;*OF THE FUNCTION.
;2. IF '"SIN' OCCURRED?
;*3, IF "HE' OR '"ERR' BIT SET?
;%4, IF RKDA INCREMENTED CORRECTLY, INCLUDING BOUNDARY
;*CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE,
;*SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END

‘

;1F NOT LOOP BACK & READ THE
sNXT SECTOR
;DOES RKCS, STILL HAVE THE 'READ' FUNCTION
;YES, BRANCH
;GET EXPCTD RKCS
;GET RKCS RECVD
sRKCS SHOULD STILL CONTAIN THE °'READ’
;FUNCTION BITS
;GO ,DO CONTROL RESET
sTHIS IS A CALL FOR THE °‘CNTRLsRESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME
;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;0CCURS GO BACK TO TEST 10
:DID CNTRL RESET CLEAR RKDB?
:;YES, EXIT
:GET ADRES OF RKDB
:GET CONTENTS OF RKDB
:CONTROL RESET DID NOTY
;CLEAR RKDB

3470

SEQ 0064

R R A R AR R

R R R RN AN R R AR AR

AR AR

;

MD-11-CZRKKF,
CZRKKF .P11

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

RK11

BASIC LOGIC

21-FEB-78 08:51

N
5
30A(1052)
21-FEB-78
08:58
PAGE 66
CHECK "WRITE FORMAT' OF THE DISK

SEQ 0065

:*% "WRT FMT' ON THE NEXT SECTOR IS DONE.
AR

010524
010526
010534

000004
012737
012737

010542

005003

010544
010550
010554
010560
010562
010564

012704
012702
013701
010105
005205
104413

000001
010564

001206
001110

1S123:

177465
177764
001350
1%:

AR RN

RN RN RN RN RN E AR AR AR AR ENAEARRARRAAAAAAAR
RN E AR AR

SCOPE

MOV
MOV

#1,$TIMES
#18, SLPERR

CLR

MOV
MOV
MOV
MOV
INC

#-313,R4
#-14,R2
DRIVAD,
R1
R1.,RS
RS

CNT.RESET

::00 1 ITERATION

sSET RETURN ADRES FOR LUPING

;:ON_ ERROR (SW 9)
:(R3)=0, SURFACE 0 BEING WRITTEN
:(R3)=1, SURFACE 1 BEING WRITTEN

;SET UP COUNT FOR 203 CYLINDERS
sSET UP COUNT FOR 12 SECTORS
:GET DRIVE ADRES

;STORE

:GO, DO CONTROL RESET
;THIS IS A CALL FOR THE °'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

sTHE PC IN ERROR MESSAGE IS THE

104421

010570
010574

005037
010137

001362
033342

010600
010606
010614

012777
012777
010177

033342

010620

012777

002003

010626
010632
010634
010640

105777
100411
005237
001372

170500

3536 010642
3537 010646
3538 010652
3539
3540 010654
3541
3542
3543
3544
3545 010656
3546 010664
3547 010666
3548 010672
3549 010676

004737
010137

3535

MACY11
123

;*0F THIS POINTERS ARE INCREMENTED ADJUSTED, ETC.

010566

3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534

TEST 2

104416

;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;0CCURS GO BACK TO TEST 10

TST.SIN

177777
170520

78:

CLR
MOV

COUNT
R1,0UTBUF

170530

MOV

#OUTBUF ,@RKBA

170504

MOV

#2003, aRKCS

TSTB
BMI
INC
BNE

aRKCS
3s
COUNT
23

JSR
MOV
BRKDA4

PC.GT4RG
R1.SREG10

ERROR

170520

MOV
MOV

2%:

001362
020774
001202

104031

#-1,aRKWC
R1,3RKDA

;GO CHECK IF SIN IS SET
;IF SET, DO DRIVE RESET TO CLR IT

THE FIRST
;THIS WORD TO BE WRITTEN.
;WORD OF EACH SECTOR WILL BE THE ACTUAL
;DISK-ADRES, CONSISTING OF THE DRIVE NO,
sCYL ADRES, SURFACE BIT SECTOR ADRES

;ADRES FROM WHICH WORD IS TO B X-FERRED
;SET UP WORD COUNT
sADRES THE DRIVE, WITH CORRECT CYL
;& SECTOR ADRES

;WRITE FORMAT, GO

’

;DID CNTRL RDY SET
;YES, BRANCH

;NO, HAVE U WAITED LONG ENOUGH?
;1F NOT, LOOP BACK & WAIT
;1F YES, REPORT ERROR
:G0, GET RKCS, ER, DS,DA
;GET DISK ADRES, WHERE ERROR OCCURED

;GO TO °"BDA4' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;CNTRL RDY DID NOT SET ON COMPLETION
;OF "WRITE FORMAT', ON SECTOR AS
;SHOWN IN <DSK-ADRES>

sWRT FMT WAS DONE STARTING AT <DSK-ADRES>

032777
001405
004737
010137
104001

001000
021002
001170

170442

3$:

BIT

#1000, aRKDS

MOV

R1.$REG3

BEQ
JSR

ERROR

4s
PC.GT3RG
1

;INDICATED IN EROR MSGE.
;DID SIN BIT SET?
;NO, BRANCH
;G0, GET RKCS, ER, DS
;GET, DISK-ADRES WHERE ERROR OCCURED
;SIN SET WHILE DOING WRT FMT

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF PN
21-FEB-78 08:51

3550
3551
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

MACY11
123

B
6
30A(10 52)
21-FEw-78 08:58 PAGE 67
CHECK 'WRITE FORMAT' OF THE DISK

SEQ 0066

;70O DISK-ADRES (AS IN SREG3)
010700

004737

010704

104032

021226

4%:

JSR

PC,CHKHE1

ERROR

;CHECK IF

"ERR' OR

"HE' BIT

IS SET

:1F YES, RETURN HERE.
;HE OR ERR SET WHILE DOING WRITE
;FORMAT ON SECTOR AS INDICATED IN
:<DSK-ADRES>

;WRT FMT WAS DONE

010706

004737

010712

104033

010714
010716
010720

005201
005205
022702

010724
010726
010732

001002
062705
005202

010734

001313

010736
010742

012702
042701
005703
001006
005203
062701
010105
005205
000677
062701
010105
005205
005003
005204
001270

010746
010750
010752
010754
010760
010762
010764
010766
010772
010774
010776
011000
011002

021277

5%:

6%:

177776
000004

177764

000037

PC,CHKDA1

ERROR

;1F NOT, RETURN HERE.

;RKDA DID NOT INCREMENT CORRECTLY

;AFTER 'WRITE FORMAT' WAS DONE

;TO THE SECTOR PREVIOUS TO THAT
;INDICATED IN 'EXPCTD' RKDA

RS
#-2.R2

s INCREMENT RS, TO WHAT RKDA WILL INCREMENT
;R U GOING TO FORMAT THE LAST SECTOR

BNE
ADD
INC

.46

#4 RS

:1F NOT, BRANCH

BNE

MOV
BIC

#-14 ,R2
#37.R1
R3

ADD
MOV

8%:

;CHECK IF RKDA INCREMENTED CORRECTLY,

INC
INC
CmP

TST
BNE
INC

000020

000040

JSR

STARTING AT <DSK~ADRES>

;INDICATED IN EROR MSGE.

INC
BR
ADD

MOV

INC
CLR
INC
BNE

s INCREMENT TO THE NXT SECTOR

;IN THE CYLINDER ?

:INCREMENT RS CORRECTLY TO "EXPCTD RKDA'

sHAVE U FORMATTED ALL 12 SECTORS

;ON THIS CYLINDER

;1F NOT, LOOP BACK & FORMAT THE

:vsgr SECTOR

sRESET THE COUNT FOR 12 SECTORS
;CLEAR THE SEC ADRES BITS
;SURFACE 1?

8%
R3

;YES, BRANCH
:NO, SET FLAG

RS
1%

; INCREMENT TO.
;GO, DO NXT SURFACE
: INCREMENT TO NXT CYL
;POSITION FOR

#20,R1
R1,RS
#40,R1
R1.RS

:INCREMENT TO THE NXT SURFACE
:THIS IS WHAT RKDA SHGULD

:EXPCTD RKDA

R4
1%

sHAVE U FORMATTED ALL 203 CYLINDERS
;1F NOT, LOOP BACK & FORMAT THE

sNEXT CYLINDER

JIRRRERRRARNESE bttt ARRERRRRERRRRRERARRRRRARARRRRRRRRRRRARRRRY

;*TEST 24

CHECK "READ FORMAT' FOR THE ENTIRE DISK

:xTHI S TEST READ FORMATS THE ENTRE DISK, WHICH WAS WRT
ot
THE FOLLOWING CHECKING
;*FORMATTED
IN THE PREVIOUS TEST.

;¢S

%Y,

CNTRL RDY SETS WIVHIN A CERTAIN TIME ON COMPLETION

s *0OF FUNCTION
%8, IF *SIN' OCCURRED?
;%3 IF "HE' OR "ERR' OCCURRED?

s rh, RKDA INCREMENTED CORRECTLY.
2195, IF THE CORRECT HEADER WAS READ.

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

011004
011006
011014

000004
012737
012737

000061
011100

SEQ 0067

011022

005037

011026
011032
011034
011040
011042

013701
010102
005737
001410
052701

011046

1ST24:

;*CYL 0-SUR 1; CYL 1-SUR 0; CYL 1=SUR 1; CYL 2-SUR 0;
;*CYL 2=SUR 1;===== CYL 312-SUR 1. IF TESTING ON SIMULATOR, ONLY
;*THE LAST CYLINDER (312), LAST SECTOR (13), SURFACE 1 IS READ.
AR R

SCOPE

ARl

MOV
MOV

#1,8TIMES
#18,SLPERR

001356

CLR

INDX1

001350

MOV
MOV
ST

014533

BEQ
BIS

DRIVAD,R1
R1,.R2
SIMUL

052702

014540

BIS

#14540,R2

011052

012737

177777

MOV

#-1,EFLGI

011060
011062
011066

000407
012705
012737

177465
177764

BR
MOV
MOV

13
#-313,RS
#-14,EFLGY

011074

062702

000020

ADD

#20,R2

011100

104413

001206
001110

001344

001370

128:

18:

128
#14533,R1

CNT.RESET

22220 ]

::00 1 ITERATION
;SET RETURN ADRES FOR LUPING
ERROR (SW 9)
H
s INDX1=0, SURFACE 0 BEING READ
;INDX1=1, SURFACE 1 BEING READ
;GET DRIVE ADRES
;TESTING ON SIMULATOR?
:NO, BRANCH
;SET BITS FOR CYL 312, SEC 13, SUR 1
;ON SIMULATOR, CHECK ONLY CYL 312,
;SECTOR 13, SURFACE 1
sRKDA SHOULD INCRMNT TO THIS AFTR
sRD FMT OF 1 SECTOR
sSET COUNT FOR READING HDR
;FROM 1 SECTOR ONLY

;SET UP COUNT FOR 203 CYLINDERS
;SET COUNT FOR 12 HDRS TO BE

sREAD FROM EACH CYLINDER
;THIS IS WHAT RKDA SHOULD INCREMENT
:BY, AFTER 'RD FMT' OF EACH CYLINDER
:GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE ‘CNTRL;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;IF THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE "CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERR & IF IT

— O
sO8

012703
005037
010377

033342
001360

013777

001370

011126

010177

170206

011132

012777

002005

—

_——

104421

—

011102

~N
o

;OCCURS GO BACK TO TEST 10

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

AR R

—

3625
3626

5@
30A(1052)
21-FEB-78
08:58
PAGE 68
CHECK 'READ FORMAT' FOR THE ENTIRE DISK

s*OCCURS A DRIVE RESET IS DONE BEFORE READING THE NEXT
READING IS DONE IN THIS ORDER CYL 0-SUR 0;
;*SECTOR.

—

3623
3624

MACY11
T24

;*6. IF RKWC OVERFLOWED CORRECTLY.
;*12 SECTORS (1 CYLINDER) ARE READ AT A TIME. IF °*SIN'

(=]

3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
3620
3621
3622

TEST 2

;CHECK IF SIN IS SET
;1F SET DO DRV-RESET TO CLR IT

TST.SIN

118:

170216

170206

170172

MOV
CLR
MOV

#OUTBUF ,R3
INDX2
R3,aRKBA

;STORE ADRES OF BUFFER

MOV

EFLGT,aRKWC

MOV

R1,3RKDA

;SET UP WORD COUNT FOR 12 HEADERS
:T0 BE READ OFF EACH CYLINDER
;(ONLY 1 FOR SIMULATOR)

MOV

#2005, aRKCS

;ADRES TO WHICH DATA IS TO BE X-FERRED
;FROM THE DISK

sADRES THE DRIVE WITH CORRECT

;CYLINDER & SECTOR ADRES

sREAD FORMAT, GO

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

3662
3663
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
37N
3712
3713
3714
3715

3716
Nz

011140
011144
011146
011152

105777
100411

TEST 2

MACY11
T24

2%:

170166

D
6
30A(1052)
21-FEB-78
08: 58
PAGE 69
CHECK 'READ FORMAT' FOR THE ENTIRE DISK
TSTB
BMI
INC
BNE

aRKCS

;DID CNTR1 RDY SET?

JSR

PC,GT4RG
R1,SREG10

sNO, HAVE U WAITED LONG ENOUGH?
;1F NOT, LOOP BACK & WAIT FOR IT
;1F YES, REPORT ERROR
:GO, GET RKCS, ER, DS,DA
;GET DRIV-ADRES STARTING WHICH

005237
001372

001360

011160

011154

004737
010137

020774
001202

011164

104416

BRKDA4

011166

104045

ERROR

MoV

3%
INDX2
2%

;YES,

BRANCH

:"READ FORMAT' WAS DONE
;GO TO "BDA4' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
sCNTRL RDY DID NOT SET AFTER
sREAD FORMAT. °'RKDA' IN EROR MSGE
:GIVES THE CONTENTS OF RKDA AT THE
;TIME OF ERROR.

;READ FMT WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MSGE.
011170
011176
011200
011204

032777
001405
004737
010137

011210

104001

011212

004737

011216

104046

001000
021002

010237

001202

011234
011242

017737

170100

011244

104040

011246

013700

011252
011254
011260
011262
011264

010104
042704
020413
001412
010437
011337
010037

011270
011274
011300
011306

104415

104416

062737
104043

4%:

5%:

#1000,aRKDS
4%
PC.GT3RG

ERROR

JSR

PC,CHKHET

ERROR

CMP
BEQ

001202

160037

7%:

001162

R2,3RKDA

6$
R2,.$REG10

Mov

SRKDA,SREG10

ERROR

Mov

EFLG1,RO

MoV

R1,R4
#160037 ,R4

BRKDA4

6%:

R1,$REG3

MOV

BRKDAO

001370

001164
001166
001162
000014

BIT
BEQ
JSR

MoV

021226

170114

001410

3s:

001170

020277

011220
011224
011226
011232

170130

BIC
CMP
BEQ

R4, (R3)
8$
R4 ,$REGT
(R3) ,$REG2
RO, $REGO

MoV
Mov
MoV
ADD

#14 ,SREGO

ERROR

;DID 'SIN' SET?
;NO, BRANCH
:GO, GET RKCS, ER, DS
;GET DISK~ADRES WHERE 'SIN’'
;OCCURED
;SIN ERROR ON DOING RD FMT
;TO CYL INDICATED IN SREG3

sCHECK IF "ERR' OR 'HE' BIT IS SET,
:1F YES, RETURN HERE.
:HE OR ERR WHILE DOING A READ
;FORMAT. °'RKDA' IN EROR MSGE GIVES

;THE CONTENTS OF RKDA AT THE TIME OF ERROR
sREAD FMT WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MESGE
;DID RKDA INCREMENT CORRECTLY BY 12 SEC

sGET EXPCTD RKDA

;GO TO "BDAO' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;GET RECVD RDKA
;GO TO "BDA4' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;RKDA DID NOT INCREMENT BY 12 SECTORS
;AFTER RD FMT WAS DONE. ADRES
:OF CYLINDER IN ERROR CAN BE OBTAINED
;FROM 'EXPCTD' RDDA
;SET UP COUNT FOR 12 HEADERS TO B CHKD
s (ONLY 1, IF SIMULATOR)
;GET DRIV-ADRES FROM WHERE RDFMT WAS DONE
;GET THE CYLINDER ADRES ONLY. (HEADER)
;IS THE RECVD HEADER SAME AS EXPCTD?
;GET EXPCTD HEADER WORD
;GET HEADER WORD RECVD

;GET THE SECTOR (OCTAL NO) WHICH DID
;NOT GIVE THE CORRECT HEADER
;DID NOT RECIEVE THE CORRECT HEADER

SEQ 0068

MD-11-CZRKKF,

CZRKKF .P11

3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730

3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
37N
3772

3773

RK11

BASIC LOGIC

21-FEB-78 08:51

011310

005723

011312
011314

005200
001361

011316

004737

011322

104041

011324
011330

005737
001031

001344

011332
011336
011340
011344
011350

001356

011352

005737
001011
005237
062701
010102
062702

011356
011362
011366
011372
011376
011400
011404
011406
011410

000137
005037
042701
062701
010102
062702
005205
001402
000137

TEST 2

MACY11
124

E
6
30A(1052)
21-FEB-78 08:58
PAGE 70
CHECK "READ FORMAT' FOR THE ENTIRE DISK

021316

9%:

TST

(R3)+

INC
BNE

RO
7%

JSR

PC,CHKWC

ERROR

TST

SIMUL

TST

INDX1

BNE

001356
000020

10%
INDX1
:$0§51

000020

ADD

#20,R2

011100
001356
000037
000040

JMP
CLR
BIC
ADD

1%
INDX1
#37.R1
#40,R1

BEQ
JMP

TST25
1%

108:

MoV
ADD
INC

000020
011100

;WORD FROM 'SECTOR' AS INDICATED
;(NOTE SECTOR # IS OCTAL)

s INCREMENT POINTER TO THE NXT WORD

;s IN MEMORY WHERE THE RECVD HDR IS STORED
sHAVE U CHECKED ALL 12 HEADERS?
;IF NOT, LOOP BACK & CHK THE NXT.

sYES, ALL HEADERS FOR THIS CYLINDER
s CHECKED.
sCHECK

RKWC OVERFLOWED TO O,

JRKWC DID NOT OVERFLOW AFTER DOING

sRDFMT OF 12 SECTORS ON THE CYLINDER
sNOTE THAT 'RKDA' IS THE INCREMENTED

;RKDA AFTER THE RDFMT
sTSTING ON SIMULATOR?

;;6F YES, EXIT
:N

;DOING SURFACE

sYES, BRANCH
;NO
s INCREMENT DRIV ADRES TO THE NXT SURFACE
JTHIS IS WHAT RKDA SHOULD INCREMENT

s70, AFTER READ FMT OF THE CYLINDER
GO RD FMT THE NXT SURFACE

sCLR SEC, SURFACE BITS

;INCREMENT TO NXT CYL
;THIS IS WHAT RKDA SHOULD BE
sAFTER RD FMT OF CYLINDER
sHAVE U DONE ALL CYLINDERS?
BT
;IF NOT, LOOP BACK & READ FMT FROM

R1,R2
#20,R2
RS

;NOT RETURN HERE.

1ST125

BNE
INC
:83

SEC 0069

;THE NXT CYLINDER
T

CHECK 'READ' OF THE ENTIRE DISK
;*TEST 25
;*READ OF THE ENTIRE DISK (ONE WORD PER SECTOR) IS DONE

;*IN THIS TEST.
IN A PREVIOUS TEST THE FIRST WORD OF
s*EVERY SECTOR WAS WRITTEN LIKE A PSUEDO-HEADER (DRIVE #,
;*CYLINDER #, SURFACE & SECTOR #).
THESE PSUEDO HEADERS
;*WILL BE READ & CHECKED IN THIS TEST, PROVING THAT ANY
;*SECTOR CAN BE ACCESSED AND READ.
;*THE

FOLLOWING CHECKING IS DONE

;*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION
;*0F FUNCTION.
;*2. IF "SIN' OCCURRED?
;*3. IF "HE' OR '"ERR' OCCURRED?
;*4, THE CORRECT FIRST WORD FROM EVERY SECTOR
;*WAS RECEIVED.
THIS WORD REFLECTS THE ABSOLUTE
;*DISK ADDRESS (DRV #, CYL #, SUR, SECH) OF THAT SECTOR.
;*5. IF RKDB CONTAINED THE CORRECT WORD.
;*IF "SIN' OCCURS DRIVE RESET IS DONE BEFORE READING

;*THE NEXT SECTOR. READ IS DONE IN THIS ORDER SEC 0-11
;*CYL 0 SUR 0 -> SEC 0-11 CYL 0 SUR 1 => SEC 0-11 CYL 1,....

MD-11-CZRKKF,

CZRKKF .P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

3774
3775

3776

3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
g;g?

000004
012737
012737

011432
011436

012703
005004

011440
011444
011450
011452
011456
011460
011464

013701
005737
001403
052701
000404
012700
012705

011470

104413

011472

104421

011474
011500

005037
010377

001356
167632

011504
011512

012777
010177

177777
167622

011516

012777

000005

3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824

011524
$11530
011532
011536

105777
100411
005237
001372

167602

011540
011544
011550

004737
010137
104416

011552

104045

3827
3828
3829

011554
011562
011564

CHECK

'READ'

R R R

R R R R AN R R R AR R R R R AR

033342

MOV
CLR

#OUTBUF ,R3
R4

001350
001344

MOV
TST
BEQ
BIS
BR
MOV
MOV

DRIVAD,R1
SIMUL
108
#14533,R1
1%
#-14 ,R0
#-313,RS

014533
177764
177465

108:

1$:

CNT.RESET

TST.SIN
8s:

CLR
MOV

INDX1
R3,3RKBA

167622

MOV
MOV

#-1,3RKWC
R1,3RKDA

167606

MOV

#5,3RKCS

TSTB
BMI
INC
BNE

aRKCS
3s
INDX1
2%

JSR
MOV
BRKDA4

PC.GT4RG
R1,8REG10

ERROR

2%:

001356
020774
001202

SEQ 0070

;*IF TESTING ON SIMULATOR ONLY LAST CYLINDER
;*SECTOR (13), SURFACE 1 IS READ.
#1,8TIMES
#1%,SLPERR

001206
001110

PAGE

OF THE ENTIRE DISK

SCOPE
MOV
MOV

000001
011470

TST25:

F
6
21-FEB-78
08:58

30A(1052)

125

011414
011416
011424

3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
gg}g

MACY11

gggz

(312), LAST

AR AR RN

AR RS

::00 1 ITERATION
;SET RETURN ADRES FOR
;LOOPING ON ERROR (SW9)

;FLAG, CLEAR WHEN READING SURFACE 0
;SET WHEN READING SURFACE 1
;GFT DRIVE ADDRESS
;TSTING ON SIMULATOR?
;1F NOT BRANCH
;SET ADRES BITS FOR LAST CYL (312)
;LAST SECTOR (13), SURFACE 1
;SET COUNT FOR 12 SECTORS
;SET UP COUNT FOR 203 CYLINDERS
:GO, DO CONTROL RESET
;THIS IS A CALL FOR THE °'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
;PC WHERE °"CNT.RESET' IS LOCATED.
;:THIS IS A VERY BASIC ERR & IF 1IT
:0CCURS GO BACK TO TEST 10
;GO CHECK SIN, IF SET DO
;:DRIVE RESET TO CLR IT
:ADRES TO WHICH DATA IS TO B X-FERRED
:FROM THE DISK
;SET UP WORD COUNT
:ADRES THE DRIVE WITH CORRECT
;CYLINDER & SECTOR ADRES
;READ, GO
:DID CNTRL RDY SET?
;YES, BRANCH
:NO, HAVE U WAITED LONG ENOUGH
:1F NOT, LOOP BACK & WAIT FOR IT
:1F YES, REPORT ERROR
:G0, GET RKCS, ER, DS,.DA
;GET DISK-ADRES WHERE ERROR OCCURED
:GO TO "BDA4' & BREAK
CONTENTS OFf
:SREG10 INTO DR #,CYL,SUR,SEC BITS
:CNTRL RDY DID NOT SET AFTER DOING
:A 1 WORD READ FROM ADRES AS
;INDICATED IN <DISK-ADRES>
:"RKDA' IN EROR MSGE GIVES THE

:CONTENTS OF RKDA AT THE TIME OF ERROR
032777
001405
004737

001000
021002

167544

3$:

BIT
BEQ
JSR

#1000,3RKDS
4%
PC.GT3RG

;DID 'SIN' SET?
:NO, BRANCH
;G0, GET RKCS, ER, DS

MD-11-CZRKKF,

CZRKKF .P11

3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869

3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885

RK11

BASIC

LOGIC

21-FEB-78 08:51

011570
011574

010137

001170

011576

004737

021226

011602

104046

104001

TEST

MACY11
125

G
6
30A(1052)
21-FEB-78
(B8:58
PAGE
CHECK 'READ' OF THE ENTIRE DISK

?I.SREGS

JSR

PC.,CHKHE

;"SIN' ERROR ON DOING READ FROM
;DISK~ADRES INDICATED IN SREG3
;CHECK IF 'ERR' OR "HE' BIT IS SET,

ERROR

;"HE' OR "ERR' ON DOING A READ OF

;GET DISK-ADRES WHERE SIN OCCURED3

:1F YES, RETURN HERE.
:1

WORD FROM ADRES AS

;IN <DISK~ADRES>
011604
011606
011610
011614
011620
011624

020113
001407
010137
011337
010137

011626
011632
011634
011640
011646

020177
001406
010137
017737

104044

104037

5%:
001162
001164
001166

001162
167476

CMP
BEQ

Mov
MoV
MoV

167510

6%:

R1,(R3)
6%
R1,$REGO
(R3) ,$REG1
R1,8REG2

ERROR

CMP
BEQ

R1,3RKDB
7$
R1,$REGO
g;KDB.SREG1

MOV
MoV

001164

SEQ 0071

MOV

ERROR

4%:

ERROR

INDICATED

;'RKDA' IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF EROR
;WAS THE CORRECT DATA WORD RECVD?
;GET EXPCTD DATA WORD
;GET DATA WORD RECVD
;GET DISK~ADRES
;DID NOT RECIEVE THE CORRECT
;DATA WORD FROM DISK ON DOING
;1 WORD READ FROM 'DISK-ADRES’
:AS INDICATED BY "EXPCTD' DATA WORD
sNOTE THAT IN A PREVIOUS TEST THE
;FIRST WORD OF EACH SECTOR IS UNIQUELY
;WRITTEN WITH A WORD GIVING THE
sABSOLUTE ADDRESS OF THAT SECTOR IN
;TERMS OF, DRIV #, CYL ADRES, SUR, SEC ADRS.
;DOES RKDB CONTAIN CORRECT WORD
;YES, BRANCH
sNO, GET EXPCTD RKDB
:GET RKDB RECVD
;RKDB ERROR ON READ.

sFOR RK11C, AFTER A READ RKDB

;gg:;AINS CHECKSUM FOR THE SECTOR

011650
011654

011656
011660

011662

011664
011670

005737
001022
005201
005200
001302

001344

012700
042701
005704
001004
005204
062701
000670
005004
062701
005205
001263

177764
000037

MOV

000020

ADD

000040

7%:

TST
BNE
INC
INC
BNE
BIC
TST
BNE
INC

9%:

BR
CLR
ADD
INC
BNE

SIMUL

TST26

;WHEREAS FOR RK11D, AFTER READ
sRKDB CONTAINS THE LAST WORD
sREAD FROM THAT SECTOR &
;X=FERRED TO MEMORY
sTESTING ON SIMULATOR?
1R YEN: EXLY
s INCREMENT TO ADRES NEXT SECTOR
sHAVE U CHKD ALL 12 SECTORS?
;IF NOT, LUP BAK & CHK THE NXT

sIF YERvss

;RESET THE COUNT FOR 12 SECTORS

;CLEAR SECTOR, SURFACE BITS
;DOING SURFACE 1?
:YSS. BRANCH
:N

;INCREMENT THE ADRES TO NXT SURFACE
;GO READ SURFACE 1

s INCREMENT TO NXT CYL

sHAVE U CHKD ALL 203 CYLINDERS
:IESNOT. LOOP BACK & CHK THE NXT CYLINDER
b

MD-11-CZRKKF,

CZRKKF .P11

3886
3387
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918

3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932

3933
3934
3935
3936
3937
3938
3939
3940
3941

Rk11

BASIC

LOGIC

21-FEB-78 08:51

TEST

H
6
30A(1052)
21-FEB-78
08:58
PAGE 73
CHECK 'SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES

MACY11
126
AL

;*TEST 26

AR AR

SEQ 0072

]

CHECK 'SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES

THIS

TEST

CHECKS SEEK

IN DIFFERENT VELOCITY MODES

(DIFF

<3,

:* 3 <DIFF < 31, DIFF > 31).
FOR THESE 3 BASIC VELOCITIES SEEK IS DONE BOTH
;* IN FWD AND REV DIRECTION TO CHECK THE ADDER & DIFFERENCE LOGIC.
IF

:* WHILE DOING A SEEK 'SIN' OCCURS, A DRIVE RESET IS DONE TO INITIALIZE
:*
A

TST26:

THE

POSITIONING LOGIC

AR AR

SCOPE
MOV
MOV

#5,8TIMES
#SEEKO,R3

;00 S ITERATIONS
JINITIALIZE POINTER TO THE FIRST

001356

(LR

INDX1

001332
001326
001330
011764

MOV
MOV

RKCS,RO
RKDS ,R1

s INDX1, WHEN O INDICATES SEEK IN FWD DIRECTION
2
WHEN 1 IV.CATES SEEK IN REV DIRECTION

[0}

#1%,SLPERR

011722
011724
011732

000004

012737
012703

000065
001372

011736

005037

011742
011746
011752
011756

013700
013701
013702
012737

011764
011766

000240
104413

011770

104421

011772
011776

012000
012004

013704
051304
010477
012710

012010

104412

CHKCRDY

012012

104021

ERROR

012014
012016
012022
012024

CLR

012026
012030
012034

005005
032711
001005
005205
001373
004737
104026

012036
012042
012044

032711
001403
004737

001206

MOV

001110
1%:

2%:

RKER,R2

NOP

CNT.RESET

TST.SIN

sSEEK ADDRESS

sSET RETURN ADRES FOR LUPING ON

;EROR (SW 9)

GO, DO CONTROL RESET

sTHIS IS A CALL FOR THE °'CNTRLJRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;G0,

CHECK

SIN

001350

MOV

DRIVAD,R4

;GET DRIV-ADRES

167334
000011

MOV
MOV

R4 ,aRKDA
#11,3R0

sADDRS THE DRIVE
:SET "SEEK'. ‘6D°

ooo100

BIS

4%:

5%:

020774
001000

020774

BIT
BNE
INC
BNE
JSR

ERROR

6%:

BIT
BEQ
JSR

IS SET,

;DO DRV-RESET TO CLEAR IT

(R3) ,R4

#1000,aR1
7%
PC,GT4RG

SET

sSET CYLINDER BITS

;GO CHECK IF

#100,aR1
6%
RS
5%
PC,GT4RG

CONTROL RDY IS SET

;IF SO, SKIP THE
;"CNTRL RDY' DID
sSENDING CYL ADD
;FROM DRIVE SHLD

EROR MESSAGE.
NOT SET AFTER
TO THE DRIV, ‘ADD ACK'
HAVE COME BACK

:THEREUPON SETTING °'CNTRL RDY'
;DID R/W/S RDY SET?
;YES, BRANCH
;NO, WAIT
sWAITED LONG?
G0, GET RKCS, ER, DS,

DA
sR/W/S RDY DID NOT SET ON

;COMPLETION OF SEEK

;DID SIN SET?
sNO, BRANCH
G0, GET RKCS, ER, DS, DA

MD-11-CZRKKF,

CZRKKF 11

3942
3943
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
397
3972
3973
3974
3975
3976
3977
3978
3979
3980

3981

012050
012052
012056
012060
012064

RK11

BASIC LOGIC

21-FEB-78 08:51
104001

032710
001403
004737
104022

TEST 2

140000

MACY11
126

7%:

020774

1
6
21-FEB-78
08:58

30A(1052)

PAGE

CHECK "SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES

ERROR

BIT
BEQ

JSR
ERROR

1
#140000.aR0
8s

PC,GT4RG

SEQ 0073

;SIN SET ON DOING SEEK
;DID "HE' OR 'ERR' SET?
:YES
:G0, GET RKCS, ER, DS, DA

;'ERR OF "HE' BIT SET WHEN
JSEEKING TO CYL AS INDICATED

;IN RKDA

012066
012072
012074
012100
012106

022710
001406
011037
012737

012110
012114
012116
012122
012130

020477
001406
010437
017737
104027

012132

010477
012777
012777
012710
104414
021337
001410
005037
011337
013737

104024

104043

012222
012224

012230
012232
012234
012240

005737
001007
005723
022703
001260
005237
005743
005743
022703
001251

8%:

000210

001164
000210

001162

167224

001162

167212

167202
033342

177777
002005

033342

001356

R4 ,3RKDA
108
R4 ,SREGO
aRKDA,SREG1

:DéD RKDA CHANGE?
N
;YES, GET EXPCTD?

MoV
MoV
MOV
Mov

R4 ,@RKDA
#OUTBUF ,aRKBA
#-1,aRKWC

;ADRES THE DRIVE,SEC 0
;READ ONE HEADER INTO THIS

TST

INDX1
12%
(R3)+
#SEEK2+2,R3
1%

CMP
BEQ

MOV
MOV

001164

ERROR

10%:

#2005,aR0

CNT. RDY
(R3) ,0UTBUF
CMP
118%
BEQ
$REGO
CLR
MOV
(R3) ,SREG1
Mov
ggTBUF.SREGZ
ERROR

001166

11%:

BNE

TST
CMP

001400

BNE
INC

001356

001370

;DOES RKCS STILL CONTAIN THE "SEEK' FNCTION
JYES - EXIT
;sNO, GET RKCS RECVD
JGET EXPCTD RKCS
;RKCS SHOULD CONTAIN THE 'SEEK' BITS
:1F NOT, ERROR

ERROR

033342

001162
001164

#210,aR0
9%
aR0, SREGT
;z10.SREGO

MOV

€2

167172
167162

CMP

BEQ
MOV

12%:

TST
18T
CmP

BNE

SoNERREAN AR

TRTEST 27

INDX1

-(R3)
=(R3)
#SEEK0-2,R3
1%

;GET RKDA
;RKDA CHANGED AFTER DOING SEEK

;BUS ADRES
:GO,READ FORMAT
;WAIT FOR CNTRL RDY
:WAS THE CORRECT READE4R READ (FROM
sCYLINDER TO WHICH SEEK WAS DONE BEFORE)
;STORE SEC # FROME WHERE HDR WAS RD (0)
:GET EXPCTD HEADER
;GET HDR RECVD
:WRONG HDR WAS RECVD FROM CYLINDER (ADRES
;IN ER MSGE). NOTE THAT A PURE SEEK WAS
;DONE TO THIS CYL BEFORE READING HDR
sUSING READ FORMAT
:SEEK IN REVRSE DIRECTION?
;YES, BRANCH

sNO, INCREMENT PTR TO NXT SEEK ADRES
;DONE WITH ALL SKS IN FWD DIR?

;NO, GO & DO NXT ONE

;SET FLAG INDICATING SK IN REVRSE
;POSITION PTR TO NXT SK IN REV
;DONE WITH ALL?

;1F NOT, DO NXT ONE

REREREERRRERERR R RRENTRETRTRRTRT R R R R RTRET R R R R R R AR AR R R R AR Rk

CHECK DRIVE RESET FROM LAST CYLINDER

;*THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING
THEN A DRIVE RESET IS ISSUED.
;*AN IMPLIED SEEK=READ).

;*IT'S CHECKED IF THE HEADS WERE BROUGHT BACK TO 0 BY

;*DOING A 1 WORD READ & CHECKING THAT THE CORRECT WORD
;*WAS RECEIVED.
SRR

AR R

IF TESTING ON SIMULATOR THIS TEST IS SKIPPED.

AR R E R R

AR R R R R RR AR R AR AR AR

AR R AR

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

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

104413

000005
001344

001206

1S127:

J
6
30A(1052)
21-FEB-78
08:58
PAGE 75
CHECK DRIVE RESET FROM LAST CYLINDER

SCOPE
MOV

#5,8TIMES

BNE

15130

TST

STMUL

RKCS.R1
Mov
CNT.RESET

001332

::D0 5 ITERATIONS

;R U ON A SIMULATOR?
$:YES., ERIV

;GO, DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL-

:1SSUED AND AFTER A CERTAIN TIME

;IF THE "CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

012266
012270
012274
012300
012302
012306
012312
012320

005000
012703
013704
010405
052705
010577
012777
010377

014500
167026
177777
167012

012324

012711

000005

012330
012332

005000
104414

1%:

012334
012336
012340
012344
012350
012354

020513
001407
010537
011337
010537

2%:

4017

000004
012737
005737
001124
013701

MACY11
127

sRESET' ROUTINE. A CONTROL RESET IS

4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016

012242
012244
012252
012256
012260
012264

ocC

3998
3999

TEST 2

2356
2362

104044

012711
104414

033342
001350

167014

RO
#OUTBUF ,R3
DRIVAD,R&
R4 ,R5
#14500,R5
R5,3RKDA

Mov

3%:

;ADRES WHERE DATA WILL BE READ INTO

;SET CYL ADRES=312 (OCTAL)

#-1,aRKWC

R3,3RKBA

;ADRES THE DRIVE, LAST CYLINDER
;READ 1 WORD
;INTO THIS MEMORY ADRES

MOV

#5,3R1

sREAD, GO

CLR

CMP
BEQ
MoV
MOV
MoV
ERROR

R5,aR3
38
R5,$REGO
aR3,SREGY
R5,$REG2
44

MOV

001162
001164
001166

000015

CLR
Mov
MoV
Mov
BIS
MoV

;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10

CNT.RDY

Mov
#15,aR1
CNT.RDY

;THIS IS A CALL FOR CN.RDY ROUTINE
;WHICH WAITS FOR CNTRL RDY TO SET.
;A RETURN IS MADE AFTER CNTRL RDY
sSETS. IF WITHIN A CERTAIN TIME
;CNTRL RDY DOESN'T SET AN ERROR
sMESSAGE IS GIVEN. WAITING TIME
;883 MS FOR 11/20, 175 MS FOR 11/45
;WAS THE CORRECT WORD READ?

;YES, SEEK TO 312 WAS DONE CORRECTLY5.a

sGET
;GET
;GET
;DID

EXPCTD WORD
WORD RECVD
DSK~-ADRES FROM WHERE WORD WAS READ
NOT READ BACK CORRECT WORD FROM

;LAST CYL, SEC 0. IF TEST 45 & 46

;WERE SUCCESSFULLY DONE THIS
;ERROR MEANS THAT IMPLIED SEEK
;7O CYL 312 COULD NOT B DONE
;:DRIVE RESET, GO
sTHIS IS A CALL FOR CN.RDY ROUTINE

;WHICH WAITS FOR CNTRL RDY TO SET.
;A RETURN IS MADE AFTER CNTRL RDY
;SETS. IF WITHIN A CERTAIN TIME
;CNTRL RDY DOESN'T SET AN ERROR
sMESSAGE IS GIVEN. WAITING TIME

012364
012366
012374
012376

005000
032777
001011
012702

000100
177763

166732

4%:

CLR
BIT
BNE
Mov

RO
#100,aRKDS
5%
#-15,R2

;883 MS FOR 11/20, 175 MS FOR 11/45
;DID R/W/S RDY SET?
:YES, BRANCH

;IF U R ON A SLOWER MACHINE

SEQ 0074

MD-11-CZRKKF,

CZRKKF P11

4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4063
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

012402
012404

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST

MACY11
127

005202
001376

K
6
30A(1052)
21-FEB-78
08:58
PAGE 76
CHECK DRIVE RESET FROM LAST CYLINDER
INC
BNE

Ry-

SEQ 0075

;& DO NOT NEED SUCH A LARGE MACHINE

;TIME LOOP,

CHANGE

THESE 3

;INSTRUCTIONS TO "NOP' THE
;LOOP TIME WILL BE REDUCED

:T0 1100 MS
;THE

TOTAL

TIME FOR THE ABOVE

:LOOPS (W/0 PUTTING 'NOP'S) IS
;5304 MS FOR 11/20 AND
;1061 MS FOR 11/45 WITH MOS

012406
012410

005200

001366

012412
012416

004737

020774

012420
012424

032711
001403

140000

012426
012432

004737

020774

012434
012436
012442
012444
012450
012456

005205
020577
001406
010537
017737
104054

012460
012466
012472

012777
010377
010477

166644
166642

012476

012711

000005

012502
012504

005000
104414

012506
012510
012512
012516
012522
012526

104026

104022

020413
001407
010437
011337

010437
104044

5%:

6%:

166676

001162
166664

001164

177777

166646

JSR
ERROR

PC,.GT4RG

;1F NOT, LUP BAK & WAIT
;1F YES, ERROR
;GET RKCS,ER,DS,DA
;R/W/S RDY DID NOT SET AFTER

BIT
BEQ

#140000,aR1
6%

;DID HE OR ERR BIT SET?
;1F NOT, BRANCH

JSR
ERROR

PC,GT4RG

INC
CMP
BEQ

MOV
MoV

RS
R5,3RKDA
4]
R5,SREGO
22KDA.SREG1

MoV

#-1,3RKWC

MOV
MOV

MOV

8%:

9%:

001162
001164
001166

RO
48

ERROR

7$%:

;OR BIPOLAR MEMORY
sWAITED LONG?

INC
BNE

MoV
MoV

ERROR

;GET RKCS,ER,DS,DA FOR ERROR MESSAGE
;HE OR ERR BIT SET ON DOING DRIVE
sRESET FROM LAST CYLINDER

;POSITION R5 TO EXPCTD RKDA

R3,3RKBA

;DID THE CYL ADRES BITS IN RKDA GET CHANGED?
:NO, BRANCH
sGET EXPCTD RKDA
;GET RKDA RECVD
;CYLINDER ADRES BITS IN RKDA
:GOT CHANGED AFTER
;DRIVE RESET, FROM LAST CYLINDER
;READ 1 WORD
;INTO THIS ADRES

#5,3R1

;READ, GO

R4 ,SRKDA

RO
CLR
CNT.RDY

CMP
BEQ
MoV

;DOING DRIVE RESET

R4 ,aR3
TST30
R4, SREGO
aR3,SREG!
R4 ,$REG2
44

;FROM THIS DSK ADRES-CYL 0,

SEC O

;THIS IS A CALL FOR CN.RDY ROUTINE

sWHICH WAITS FOR CNTRL RDY TO SET.
:A RETURN IS MADE AFTER CNTRL RDY
;SETS. IF WITHIN A CERTAIN TIME

;CNTRL RDY DOESN'T SET AN ERROR
;MESSAGE IS GIVEN. WAITING TIME
;883 MS FOR 11/20, 175 MS FOR 11/45
;WAS THE CORRECT WORD READ?

::YES, EXIT
:GET EXPCTD WORD
;GET WORD RECVD

;GET DISK ADRES WHERE ERROR OCCURED
;:DID NOT READ CORRECT WORD FROM

;CYL O, SEC 0. IF TEST 45 B 46

;WERE SUCCESSFULLY DONE THIS
;ERROR COULD MEAN THAT DRIVE-RESET

;:DID NOT BRING HEADS BACK TO 0.

MD-11-CZRKKF,

CZRKKF .P11

RK11

BAS!C LOGIC

21-FEB-78 08:51

4110
&
4112
6113
4114
6115

AR AR

AR R

ARl

SEQ 0076
Al

:BLOCK WILL BE MADE USE OF

IN THE NEXT TEST TO CHECK

:0UT "WRITE-CHECK' AND °'READ CHECK' FUNCTIONS.

;;tttttttt't"tt"ttttt't't'tttttttttt'ttt'ttttttt'tt't't'tttt"'

012530
012532

000004
104413

TST30:

SCOPE
CNT.RESET

;GO,

;THIS

DO CONTROL RESET
IS A CALL

FOR

THE

'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

;1F THE "CNTRL RDY' DOES NOT SET

104421

4132
4133
4134
4135
4136
4137
4138
4139
4140
4141
4142
4143
4144
4145
4146
4147
4148

012536

013704

001332

MOV

;AN ERROR

IS REPORTED.

NOTE

;CHECK

SIN IS SET,

THAT

:THE PC IN ERROR MESSAGE IS THE
sPC WHERE °'CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERRE IF IT
;0CCURS GO BACK TO TEST 10

TST.SIN

RKCS,R4

SET

;00 DRIVE RESET TO CLEAR IT

;THE FOLLOWING CODE IS FOR SETTING
;UP THE 1/0 BUFFER IN MEMORY (STARTING AT

;OUTBUF), WITH A PARTICULAR 256 WORD PATTERN.
;STARTING FROM THE FIRST WORD IN THE BUFFER
;THE LO BYTE WILL BE A COUNT PATTERN

;FROM 0 TO 255 (DECIMAL), WHEREAS THE

sHI-BYTE WILL BE THE COMPLEMENT OF LO BYTE,
;A DECREASING COUNT PATTERN FROM 255 TO 0.
;1.E.THE BUFFER WILL LOOK LIKE:
* OUTBUF
(1 111 111 1 00 000 000)

012542
012546
012552

012700
012701
012702

4152
4153
4154
4155
4156

012562
012564
012566
012570
012572

010320
005202
060103
010320
005202

4159
4160

012576
012604

012777
012777

177400
033342

2}22

012620

012714

000003

4165

012624

105714

2}25

6
L
30A(1052)
21-FEB-78
08:58
PAGE 77
CHECK DRIVE RESET FROM LAST CYLINDER

;THE FOLLOWING TEST.
IT WRITES A BLOCK OF 256 WORDS IN
SECTOR O, CYLINDER O WITH A SPECIFIC PATTERN AND THIS WRITTEN

012534

2};;

2:;?

4149
2};?

MACY?1
127

;+TEST 30
'WRITE' - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0
:THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR

64116

4117
4118
4119
4120
6121
4122
4123
6124
4125
6126
6127
4128
4129

TEST 2

012556

012574

012612

012703

033342
177401
177400

177400

18:

013777

001350

166530
166524

166520

2%:

(1 111 111 0 00 000 001)

*LAST WORD

(0 000 000 0 11 111 111)

MOV
MOV
MOV

MOV

#OUTBUF ,RO
#177401 .81
#-400,R2
#177400,R3

:PATTERN GENERATING NUMBER
*SET UP COUNT FOR 256 WORDS
*SET UP THE FIRST PATTERN TO B WRITTEN

MOV
INC
ADD
MOV

R3, (RO)+
R2
R1,R3
R3.(RO)+

;SET UP FIRST WORD IN I/0 BUFFER
*INCREMENT COUNT
"“SET UP NEXT WORD PATTERN
*WRITE IT IN NXT 1/0 BUFFER WORD

MoV
Mov
Mov

#-400,aRKWC
#OUTBUF ,@aRKBA
DRIVAD,3RKDA

;WRITE 256 WORDS
;STARTING FROM THIS BUS ADRES
;7O THIS DISK ADRES, CYL 0, SEC 0

Mov

#3,3R4

;WRITE, GO

TSTB

aR4

;WAS CNTRL RDY CLEARED AS GO WAS SET?

INC
BNE

001374

OUTBUF +2

R2
1%

"HAVE U WRITTEN ALL 256 WORDS
*IF NOT GO & WRITE NEXT PATTERN

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF
. P11
21-FEB-78 08:51
4166

4167
4168
4169
4170
417
4172
4173
4174
4175
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

012626
012630
012634
012636
012640
012644
012646
012650

100003

004737
104030

005002

TEST 2

MACY11
130

BPL
JSR

021002

105777
100411
005202

166466

012652
012656
012664

004737
013737

020774
001350

012666

104031

012670

004737

012674

104032

ERROR

3%:

CLR

TSTB
BMI

INC
BNE

001373

104416

M6
30A(105 2)
21-FEB-78 08:58 PAGE 78
E*
'WRIT
- 256 WORD BLOCK ON SECTOR O,

JSR

001202

021234

MoV

BRKDA4

4%:

38-2

PC,GT3RG

R2
aRKCS
4%

CYLINDER 0

;YES, BRANCH

;GET RKCS, ER, DS

;CNTRL RDY DID NOT CLEAR AS GO WAS SET

;:TO

"WRITE'

;DID CNTRL RDY SET?
:YES, BRANCH
;WAITED LONG ENOUGH?

PC,GT4RG

:GO, GET RKCD, ER, DS, DA

DRIVAD,SREG10

ERROR

JSR

PC,CHKHE

ERROR

;1F NOT, LUP BAK £ WAIT
:1F YES, ERROR
;GET THE STARING ADRES

;BREAK CONTENTS OF SREG10 INTO
;DRV #, CYL, SUR, SEC #

sCNTRL RDY DID NOT SET ON COMPLETION

;:OF WRITE OF 256 WORDS ON CYL 0, SEC 0
:"RKDA' IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF EROR
sWRITE WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MSGE
;CHECK IF

"ERR' OR "HE' BIT IS SET,

;1F YES, RETURN HERE

sHE OR ERR BIT SET ON DOING WRITE OF

;256 WOKDS ON CvL 0, SEC 0

sWRITE WAS DUNE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MSGE
012676
012702
012704
012710
012716

020077
001406
010037
017737
104035

001162

012720

004737

021316

012724

104034

012726

004737

012732

104033

012734

004737

012740

104036

012742

022714

000202

012756
012762

011437

001164

166434
166422

5%:

7%:

021342

015730 012737 000202 001162
104024

6%:

9%:

RO,3RKBA
6%

ERROR

RO,SREGO
aRKBA, SREG1
35

JSR

PC.CHKWC

ERROR

JSR

PC,CHKDA

ERROR

JSR

PC,CHKER

ERROR

CMP
BEQ

#202,3R4
TST31
#202,$REGO
aR4, SREGT

MoV
MOV

001164

021262

CHP
BEQ

MOV
MoV

ERROR

;"RKDA’ IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF EROR
;DID RKBA INCREMENT CORRECTLY?
sYES, BRANCH

sGET EXPCTD RKBA
;GET RKBA RECVD
sRKBA DID NOT INCREMENT CORRECTLY

:(BY 1000 OCTAL BYTES) AFTER WRITE
;OF 400 (OCTAL) WORDS ON SEC 0, CYL O
;CHECK IF RKWC OVERFLOWED TO 0,

;IF NOT RETURN HERE.

sRKWC DID NOT OVERFLOW, AFTER A

;WRITE OF 256 WORDS ON CYL 0O, SEC 0

sCHECK IF RKDA INCREMENTED CORRECTLY,

;IF NOT RETURN HERE
sRKDA DID NOT INCREMENT BY 1 AFTER
;A WRITE OF 256 WORDS IN CYL O, SEC 0
;CHECK IF ANY BIT RKER IS SET

:1F YES RETURN HERE.

;RKER BIT SET ON DOING WRITE ON

;CYLINDER O, SECTOR 0

;DOES RKCS STILL CONTAIN THE WRITE BITS?
;s YES, EXIY
:GET EXPECTED RKCS
;GET RKCS RECVD

sRKCS DID NOT CONTAIN THE 'WRITE'
;BITS AFTER THE FUNCTION WAS DONE.

SEQ G077

MD-11~CZRKKF,
CZRKKF P11

4222
4223
4224
4225
4226
4227
4228
4229
4230
423
4232
4233
4234
4235
4236
4237
4238
4239
4240
4241
4242
4243
4244
4245
4246
4247
4248
4249

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

N
6
30A(1052)
21-FEB-78
08:58
PAGE 79
CHECK THAT WRITE WAS DONE CORRECTLY

MACY11
3
AR

R R

R R R R R

R R

RN R R R R

R NNy

;*TEST 3
CHECK THAT WRITE WAS DONE CORRECTLY
;*THIS TEST CHECKS IF THE "WRITE' OF 256 WORDS DONE IN PREVIOUS
;*TEST IS GOOD.
THE SEQUENCE OF OPERATIONS IS AS FOLLOWING:
:*1) DO A READ OF 256 WORDS FROM SECTOR O, CYLINDER 0
:*
INTO A BUFFER STARTING AT °'OUTBUF'.
;*2) COMPARE & CHECK THE DATA THAT IS READ (STARTING AT °'OUTBUF')
;*
WITH THE DATA IHAT WAS GENERATED PREVIOUSLY
:*3) REPORT AN ERROR IF THE DATA READ BACK FROM DISK DOES
:*
NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN

012764
012766

012770

TST31:

000004
104413

177400
033342

001350

012777

000005

166270

105777
100411

166264

004737

020774
001350

177400

#-400,R0

CLR
INC
BNE
CLR

(R1)+
RO
8%
RO

005200
001373
001202

104045

#OUTBUF ,R1

177400
177777
033342

166226

2%:
5%:

LLL

DO CONTROL RESET

sTHIS IS A CALL FOR THE 'CNTRLsRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE 1S THE
;PC WHERE

"CNT.RESET'

IS LOCATED.

sCHECK

SIN IS SET,

SET

;DO DRIVE RESET TO CLEAR IT
sSET COUNT FOR 400 WORDS

270 BE CLEARED IN THE BUFFER
;CLR THE 400 WORD BUFFER
;STARTING AT 'OUTBUF'

#OUTBUF ,@RKBA
DRIVAD ,aRKDA

;INTO THIS ADRES
;STARTING FROM THIS DISK ADRES

Mov

#5,3RKCS

:READ, GO

TSTB
BMI
INC
BNE

aRKCS
2%

RO
1%

;DID CNTRL RDY SET?
:YES, BRANCH

sWAITED LONG ENOUGH?
:1F NOT, LUP BAK & WAIT

JSR
MOV
BRKDA4

PC,GT4RG
DRIVAD,SREG10

;GO, GET RKCD, ER, DS, DA
;GET THE STARTING ADRES

ERROR

4271

001000

#-400,3RKW(C

4270

032777
001033
012701
012702
012703

;GO,

MOV
MOV
MoV

1$:

*381!
BNE

#1000,aRKDS
TST32

MOV

»77777,R2

MOV
MOV

;THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10

MoV

8s:

166314
166310
166304

104416

TST.SIN

033342

013737

SCOPE
CNT.RESET

104421

012772 012700
012776 012701
013002 005021
013004 005200
013006 001375
013010 005000
013012 012777
013020 012777
013026 + 013777

4250
4251
4252
4253
4254
4255
4256 013034
4257
4258 013042
4259 013046
4260 013050
4261
013052
4262
4263 013054
4264
013060
4265 - 013066
4266
4267 013070
4268
4269

4272
4273
4274
4275
4276
4277

R R

SEQ 0078

#-400,R1

#OUTBUF ,R3

;READ 256 WORDS

;ERROR, IF YES

;GO TO 'BDA4' & BREAK CONTENTS OF

;SREG10 INTO DRV #, CYL, SUR, SEC BITS
;CNTRL RDY DID NOT SET AFTER READ

;OF 400 WORDS FROM CYL 0, SEC 0
:"RKDA' IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME QF EROR
sREAD WAS DONE STARTING AT <DSK-ADRES>
sINDICATED IN EROR MESGE
;IS SIN SET?
;.
1F YES, EXIT

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

4278
4279
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
431
4312
4313
4314

4315
4316
6317
4318
4319
4320
4321
4322
4323
4324
4325
4326

4327
4328
4329
4330
4331
4332
4333

013116
013122
013126

012705
062702
020213

013130

001414

013132
013136
013144

010137
062737
010237

001162
000401
001164

013150
013154

011337
104055

001166

013156
013160
013162

005205
001403
005723

013164

005201
001355

013166

TEST 2

177773
1776401

MACY11
31

7
B
21-FEB-78
08:58

30A(1052)

6%:

MOV
ADD

#-5,R5
#177401,R2

BEQ

MOV
ADD
Mov

R1,$REGO
#401,$REGO
R2,$REGT

MOV
ERROR

(R3) ,$REG2
55

INC
BEQ
TST

R5
TST32
(R3)+

INC
BNE

R1
6%

Cmp

001162

7%:

PAGE 80

CHECK THAT WRITE WAS DONE CORRECTLY

SEQ 0079

R2,(R3) ;WAS THE READ WORD SAME AS THE WORD
:THAT WAS SUPPOSE

;YES, BRANCH

TO BE WRITTEN

:NO, ERROR

;GET THE # OF WORD
;THAT IS IN ERROR (EXAMPLE=1,2--376,377,400)
;GET EXPCTD WORD (THAT WAS SUPPOSED TO

;BE WRITTEN)

;GET WORD RECVD (THAT WAS READ BAK)
;DID NOT READ BACK WORD THAT WAS SUPPOSED

;70 HAVE BEEN WRITTEN PREVIOUSLY. POSITION
;OF WORD IN ERROR IS AS INDICATED BY
;WORD # (SREGO),

SEC 0,

CvyL O

sEXIT
; INCREMENT POINTER TO NXT WORD (THAT
;WAS READ BACK)
sHAVE U CHKD ALL 256 WORDS?
;1F NOT, LUP BAK & CHK THE NXT WORD

;1F YES, EXIT

:;tt""tttt't'"'i"'Qt"""i'""""'""!ttttt""'tttt't'l.

;«TEST 32

CHECK 'READ CHECK'

FUNCTION - CYLINDER 0, SECTOR 0

s*THIS TEST CHECKS OUT THE BASIC :READ CHECK®' LOGIC, USING THE DATA BLOCK

s*'CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST.

013170
013172

1ST32:

000004
104413

013174

104421

013176
013202
013206
013212
013216
013224
013230
013234
013240

013701
013702
013703
013704

013244
013246
013250
013254

105711
100003
004737
104030

012737
012712
013713
012714
012711

AR AR

Al Attt
ssdd

SCOPE
CNT.RESET

177400

MoV

Mov
Mov
Mov

033342

MoV
MoV
MOV

001350
033342
000013

021002

sTHIS IS A CALL FOR THE ‘CNTRLsRESET" ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

sCHECK

RKCS,R1

SIN IS SET,

SET

;00 DRIVE RESET TO CLEAR IT

RKWC,R2
RKDA,R3

RKBA,R4

#52525,0UTBUF
#-400,aR2
DRIVAD,aR3

;READ CHECK 256 WORDS
;STARTING FROM CYL O, SECTOR 0

#13,3R1

;READ CHECK, GO

TSTB

aR1

;DID CNTRL RDY GET CLEARED AS GO WAS SET?

ERROR

;CNTRL RDY DID NOT CLEAR AS GO

Mov

Mov
1%:

:GO, DO CONTROL RESET

;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;O0CCURS GO BACK TO TEST 10

TST.SIN

001332
001334
001340
001336
05252°%

HENCE THE TEST WHICH

s*WRITES THE DATA BLOCK SHOULD BE DONE PRIOR TO THIS TEST.

BPL
JSR

#OUTBUF ,aR4

2%
PC,GT3RG

:YES, BRANCH
;GET RKCS, ER, DS

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

4334
4335
4336

4337
4338
4339
4340
4341
4342
4343

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
437
4372
4373
4374
4375
4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389

013256

104412

013260

104056

013262
013266
013270

013274

032711
001403
004737
104057

013276
013304
013306
013314

032777
001404
017737
104060

013316
013320
013322
013326
013332

005712
001405
011237
011137

013334
013340
013342
013344
013346
013352
013356

013702
005202
020213
001405
010237
011337

013360
013364
013366
013374
013400

022714
001406
012737
011437

013402

022737

104061

104062

104063

TEST 2

140000

MACY11
132

7
£
30A(1052)
21-FEB-78 08:58
PAGE 81
CHECK "READ CHECK' FUNCTION - CYLINDER O, SECTOR 0

2%:

CHKCRDY

3s:

021002
000002

166024

166016

001162

4%:

5%:

001162

6$:

001162
001164

BIT

#140000,aR1
4%
PC,GT3RG

BEQ
JSR
ERROR

#2 ,3RKER

TST

aR2
6%
aR2,SREGO

BEQ

MoV

INC
CMP
BEQ

ERROR

7%:

001162

CMP
BEQ
Mov
MOV

ERROR

033342

BIT
BEQ
MoV
ERROR

Mov
MoV

033342

052525

ERROR

001350

033342
001164

ERROR

MOV
MOV

001164

;GO CHECK IF CONTROL RDY IS SET

CHP

5%
aRKER,SREGO
60

:?1.SREGI

;IF SO, SKIP THE EROR MESSAGE.
;WAS SET TO "READ CHECK'
;CNTRL RDY DID NOT SET ON DOING
:"READ CHECK' FROM CYL 0, SEC O
;DID "ERR' OR "HE' BIT SET?

;NO, BRANCH
:G0, GET RKCS,ER,DS FOR ERROR MESSAGE

:"ERR' OR 'HE' BIT SET ON DOING
;"READ CHECK' ON CYLINDER 0, SEC 0
:DID "CSE' BIT SET IN RKER?

:NO, BRANCH
;GET RKER
;SOFT ERROR - CSE -~ ON DOING 'READ

;CHECK' ON CYLINDER 0O, SECTOR 0

;U SHOULD HAVE GOT ERRROR 102 ALSO
:DID WORD COUNT OVERFLOW TO 0?

:YES, BRANCH
;GET RKWC
;GET RKCS
;WORD COUNT DID NOT OVERFLOW

;ON DOING "READ CHK' ON CYL O, SEC 0

sRKDA SHOULD INCREMENT
;TO THIS AFTER "RD CHK' IS DONE

7%
R2,SREGO

sGET EXPCTD RKDA

DRIVAD,R2

R2.3R3

aR3,SREGY
62
:gUTBUF.ikk

#OUTBUF ,SREGO
2§4.8REG1

#52525,0UTBUF

:DID RKDA INCREMENT CORRECTLY?

;GET RKDA RECVD
sRKDA DID NOT INCREMENT CORRECTLY

:(BY 1) ON DOING °"READ CHK' ON
sCYL 0, SEC O
:DID RKBA GET CHANGED?
:NO, BRANCH (RKBA WON'T CHANGE, NG NPR'S)
;GET EXPCTD RKBA
;GET RKBA RECVD
sRKBA CHANGED AFTER DOING "READ CHK'

;ON CYLINDER 0, SECTOR 0. SHOULD
sNOT CHANGE, FOR, NO NPR'S.
;"OUTBUF' SHOULD STILL CONTAIN THE
:SAME WORD AS IT DID BEFORE 'RD CHK'

;NOTE THAT AT THE BEGINING OF THIS TEST

013410

001412

013412
013420
013426
013434

012737
012737
013737
104064

033342
052525
033342

001162
001164
001166

BEQ

TST33

MoV
MOV
MoV

#OUTBUF ,SREGO
#52525,8REGT
ggTBUF.SREGZ

ERROR

;52525 WAS WRITTEN INTO 'OUTBUF'
;:YES, EXIT

;REPORT ERROR IF °"OUTBUF' CHANGED
;GET ADRES OF OUTBUF
;GET EXPCTD WORD IN °‘OUTBUF'
:GET WORD FOUND IN ‘OUTBUF'
sAS MENTIONED ABOVE, IF 'WRITE' OF

;256 WORD DATA BLOCK WAS DONE

;CORRECTLY BEFORE, THEN THIS ERROR
;COULD MEAN THAT AN NPR WAS DONE
;ON "READ CHECK'.
S

AR AR EATRRRARARRAREARCERRARRRRRARRRARRRRRRRRRRRRRRRRARARRRRRRRESE

CHECK THE "WRITE CHECK' FUNCTION - ON CYLINDER O, SECTOR 0
;*TEST 33
;*THIS TEST CHECKS OUT THE BASIC 'WRITE CHECK' LOGIC, USING THE 256

SEQ 0080

MD-11-CZRKKF,

CZRKKF .P11

4390
4391
6392
6393
4394
4395
4396
4397
6398
4399
4400
440
4402
4403
4404
4405
4406
4407
4408
4409
4410
4411
4412

RK11

BASIC LOGIC

21-FEB-78 08:51

000004
104413

4413
4414
4415
4416
4617
4418
4419

013701
012700
012702
012703
062703
010322
005200
001373
012777
012777
013777

4422
4423
4424
4425
4426

013524
013526
013530
013532
013536

005000
105711
100003
004737
104030

013540

104412

013542

104065

013544
013550
013552

013556

032711
001403
004737
104066

013560
013566
013570
013574

032777
001403
004737
104067

4432
4433
4434
4435
22;9
4438
4439
4440
4441
4442
4443
4444

4445

CHECK THE

21-FEB-78

08:58

PAGE 82

"WRITE CHECK' FUNCTION - ON CYLINDER O, SECTOR 0

SEQ 0081

;;tt't'..""'t"t'""""t'"'tt'"'tt't'tttt!t'tt"tt.tttt'.tt

013436
013440

013444
013450
013454
013460
013464
013470
013472
013474
013476
013504
013512

4431

133

30A(1052)

:*256 WORD BLOCK ON THE DISK (AS WELL AS CREATING THE 256
;%256 WORD MEMORY BUFFER) SHOULD BE DONE BEFORE THIS TEST.

104421

4427
4428
4429
4430

MACY11

;*WORD DATA BLOCK (SECTOR O, CYLINDER 0) WRITTEN IN A PREVIOUS
;*TEST. THE BUFFER IN MEMORY, USED FOR COMPARISON OF DATA, IS THE
;*ONE STARTING AT 'OUTBUF'. HENCE THE TEST WHICH WRITES THE

013442

225?

TEST 2

013520

012711

TST33:

SCOPE
CNT.RESET

177401

177400
033342
001350

000007

1%:

165630
165624
165620

021002

38:

48:

021002
000001
021002

165542

RKCS,R1
#-400,R0
#OUTBUF ,R2
#177777,R3
#177401,R3

INC
BNE
MOV

RO
1%
#-400,3RKWC

MOV

#7,3R1

MoV
MOV

28%:

140000

MOV
MoV
MoV
MOV
ADD

Mmov

5%:

;THIS IS A CALL FOR THE °'CNTRLsRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE 1S THE

;PC WHERE

"CNT.RESET'

IS LOCATED.

;CHECK

SIN IS SET,

:THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10

TST.SIN

001332
177400
033342
177777

;GO, DO CONTROL RESET

SET

;DO DRIVE RESET TO CLEAR IT

R3,(R2)+

#OUTBUF ,aRKBA
DRIVAD,3RKDA

;WRITE CHECK 256 WORDS
;STARTING AT THIS BUS ADRES
sWITH THIS DISK DATA BLOCK

;WRITE CHECK, GO

(CYL 0,

CLR

:GIVE SOME TIME

BPL
JSR
ERROR

38
PC.GT3RG
30

:YES BRANCH
;GET RKCS, ER, DS
;CNTRL RDY DID NOT CLEAR AS GO WAS
;SET TO DO WRITE CHECK
;GO CHECK IF CONTROL RDY IS SET

TSTB

ak1

CHKCRDY

ERROR

BIT
BEQ

#140000,3R1
5%

JSR
ERROR

PC.GT3RG
66

BIT
BEQ

#1,3RKER
6%

JSR
ERROR

PC.GT3RG
67

SEC 0)

;DID CNTRL RDY CLEAR AS GO WAS SET?

;IF SO, SKIP THE EROR MESSAGE.
sCNTRL RDY DID NOT SET AFTER

;COMPLETING WRITE CHECK ON
;CYLINDER O, SECTOR 0
;DID HE OR ERR BIT SET
:NO, BRANCH

;GO GET RKCS ER DS FOR ERROR MESSAGE
;HE OR ERR BIT SET ON DOING WRITE

;CHK ON CYLINDER 0, SEC 0
;:DID WCE SET IN RKER?
:NO, BRANCH

;YES GET RKCS, ER, DS
;WCE ON WRITE CHECK OF CyL 0, SEC 0
sNOTE THAT IF A PREVIOUS TEST

;& THEN COMPARED WITH MEMORY BUFFER
;70 SEE IF IT WAS WRITTEN CORRECT WAS
;DONE RIGHT BEFORE, THIS ERROR SHOULD NOT

MD-11-CZRKKF,

CZRKKF .P11
4646
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458

4459

4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478

4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492

4493
4494
4495
4496
4497
4498
4499
4500
4501

RK11

BASIC LOGIC

21-FEB-78 08:51

013576
013602
013604
013612
013616

005777
001406
017737
011137

013620
013624
013626
013632
013634
013640

013704
005204
020477
001406
010437
017737

013650
013656
013660
013666
013674

022777
001407
012737
017737

013676
013702
013704
013712
013716

022711
001406
012737
011137

013646

104061

104070

104071

104024

TEST 2

E
30A(1052)
21-FEB-78
58
PAGE 83
CHECK THE "WRITE CHECK' FUNCTION = ON CYLINDER O, SECTOR 0

6%:

165532
165524
001164

MACY11
133

001162

001350

7%:

165506

001162
165474

001164

034342

165460

034342

001162
001164

165444

000206
000206
001164

TS1

aRKW(

MOV
MOV
ERROR

aRKWC,SREGO
aR1,$REGT
61

Mov
INC
CMP

DRIVAD, R4
R4
R4 ,aRKDA

MOV

@RKDA,SREG1

BEQ

BEQ
MOV

8s
R4, SREGO

ERROR

8%:

MOV
MoV

#OUTBUF +1000,8REGO ;GET EPCTD RKBA
aRKBA,SREG1
;GET RKBA RECVD

CMP
BEQ
MoV
MOV

ERROR
MR

AAR A

;(BY 1 SECTOR) AFTER WAT CHK ON SEC 0, CYL O

#OUTBUF +1000,3RKBA ;DID RKBA INCREMENT CORRECTLY?

ERROR

001162

CMP

BEQ

9%:

;HAPPEN UNLESS THERE IS A FAULT IN THE
;COMPARING LOGIC OF 'WRT CHK'
;DID RKWC OVERFLOW?
;YES, BRANCH
sNO, GET RKWC
sGET RKCS
sRKWC DID NOT OVERFLOW AFTER
;WRITE CHECK ON CYL 0, SEC 0
sRKDA SHOULD INCREMENT
;TO THIS AFTER WRT CHK
;DID RKDA INCREMENT CORRECTLY?
;YES, BRANCH
:NO, GET EXPCTD RKDA
;GET RKDA RECVD
sRKDA DID NOT INCREMENT CORRECTLY

;*TEST 34

SYES, EXIT

sRKBA DID NOT INCREMENT CORRECTLY

#206,3R1
TST34
#206,SREGO
aR1,SREGT
24

:;YES, BRANCH
:NO, GET EXPCTD RKCS
sGET RKCS RECVD
sRKCS BITS CHANGED AFTER WRT CHK

;(BY 1000 BYTES) AFTER A WRT CHK
;0F 256 WORDS ON CYL 0, SEC O
;DOES RKCS STILL CONTAIN THE WRT CHK BITS?

:WAS DONE

ARt

adit

ittt

tsdsd)

CHECK THAT IBA INHIBITS INCREMENTING OF RKBA

;*THIS TEST CHECKS THAT THE BUS ADDRESS DOES NOT INCREMENT WHEN
;*THE IBA BIT IS SET. SEQUENCE OF OPERATIONS:
;*1) CLEAR OUT 256 WORD BUFFER IN MEMORY (OUTBUF)

AR AR AR

013720
013722

TST34:

000004
104413

;*2) READ FROM SECTOR O, CYLINDER O THE 256 WORD BLOCK THAT WAS
s*WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN
;*DONE BEFORE THIS). IBA BIT IS SET DURING READ BACK.
;*3) CHECK THAT RKBA DID NOT INCREMENT
;*4) CHECK THAT THE ENTIRE BLOCK WAS READ INTO THE SAME MEMORY
:*WORD (OUTBUF) & THE REST OF THE WORDS IN THAT BUFFER ARE 0
;*AS PREVIOUSLY CLEARED OUT.
A AR

ARl

SCOPE
CNT.RESET

ittt

ittt dd

:G0, DO CONTROL RESET

sTHIS IS A CALL FOR THE °‘CNTRL:RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
:1F THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

:THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.

sTHIS IS A VERY BASIC ERRR IF IT

013724

104421

013726

013701

TST.SIN

001332

MoV

RKCS,R1

;0CCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF SET
;00 DRIVE RESET TO CLEAR IT

SEQ 0082

MD-11-CZRKKF,
CZRKKF 1

4502
4503
4504
4505
4506
4507
4508
4509
4510
451N
4512
4513
4514
4515
4516
4517
4518
4519
4520
4521
6522
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

RK11

BASIC LOGIC

21-FEB-78 08:51

013732
013736
013742

012700
012702
010203

013744
013746
013750
013752
013760
013764

005023
005200
001375
012777
010277
013777

177400
165352
001350

013772

01271

004005

013776
014002
014004
014006

005037

001362

014012
014014

014020
014026

105711
100412

005237
001373
004737
013737
104416

TEST 2

MACY11
134

177400

033342

1%:

165354

014030

104045

014032

004737

165346

2%:

014036

104046

014040
014044
014046
014052
014060

020277
001406
010237
017737
104072

014062
014070
014072
014076

032777
001042
012700
022712

000377

014102
014104
014112
014116

001411
012737
011237
013737

000377
001164
001350

014124

104044

014126
014130

005722
012705

001202

165272

001162
165260
¢01000

4%:

001164
165236

sSET UP COUNT FOR 256 WORDS

CLR
INC
BNE

(R3)+
RO
1%

;CLEAR OUT THE 256

ERROR

JSR

PC,CHKHE

ERROR

CMP
BEQ
Mov

R2,3RKBA
5%
R2,SREGO
?g(fll.‘REGl

;DID RKBA INCREMENT?
;0K IF NOT, BRANCH
:GET EXPCTD RKBA
;GET RKBA RECVD

#1000,3RKDS

;SET, SHOULD NOT HAVE
;IS SIN SET?
;:1F YES, EXIT

BIT
BNE

BEQ

MoV
MoV
Mov

6%:

;READ BACK 256 WORDS
sINTO THIS BUS ADRES (IBA WILL B SET)
;FROM THIS DSK ADRES (SEC 0, cyL 0)
:NOTE: SEC O HAS BEEN WRITTEN IN A
;PREVIOUS TEST WITH A UNIQUE PATTERN

COUNT
aR1

cmMp

001166

R2 ,aRKBA
DRIVAD,3RKDA

CLR
TSTB
BMI
INC
BNE
JSR
MoV

MOV

001162

#-400,aRKWC

;WORD MEMORY BUFFER STARTING
;AT 'OUTBUF'

#4005 ,aR1

ERROR

5%:

R2,R3

Mov

MOV

177400

177773

#-400,R0
#OUTBUF ,R2

BRKDA4

3%:

021234

MOV
MOV
MoV

001362
020774
001350

F
7
30A(1052)
21-FEB-78
08: 58 PAGE 84
CHECK THAT IBA INWIBITS INCREMENTING OF RKBA

COUNT
2%

PC,GT4RG

DRIVAD,SREG10

TST35

#-400,R0
#377,3R2
6%
#377 ,$REGO
(R2),SREG1

DRIVAD,SREG2

ERROR

TST

(R2)+
#-5,R5

Mov

;READ,

GO,

IBA SET

:DID CNTRL RDY SET?
;YES, BRANCH
;WAITED LONG ENOUGH?
;1F NOT, LUP BAK & WAIT
:GO, GET RKCS, ER, DS, DA
;GET THE STARTING ADRES
;BREAK CONTENTS OF SREG10
;INTO DR #, CYL, SUR, SEC
:ggIgL RDY DID NOT SET AFTER DOING

;CHECK IF "ERR' OR 'HE' BIT IS SET,
;1F YES, RETURN HERE.
;ERR BIT SET ON DOING READ FROM SEC O,
;CYL O (INDICATED IN <DSK-ADRES>)
;"RKDA' IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF EROR

;RKBA

INCREMNTED WHEN IBA BIT WAS

;CHECK THAT THE FIRST WORD IN

;"OUTBUF' IS 377 (LAST WORD OF SEC O,
;CYL 0). NOTE THAT READ WAS DONE
;INTO THIS SAME WRD WITH IBA SET
;GET EXPCTD WORD (LAST WORD OF THE BUFFER
;GET WORD RECVD (LAST WRD FROM SEC 0)
;DISK ADRES WHERE ERROR OCCURED
;(SEC 0, CYL O LAST WORD)
;DATA ERROR
;THE FIRST WORD IN MEM BUFFER (OUTBUF)
; SHOULD BE NON-ZERO & SHOULD CONTAIN
;THE LAST WORD READ BACK FROM SEC 0
;CYL O,THIS DID NOT HAPPEN IF THE ERROR CCCURS
s INCREMENT POINTER TO THE NXT WORD
;ALLOW ONLY 5 MESAGES FOR ERR 116

SEQ 0083

MD-11-CZRKKF,
CZRKKF .P11

6558
4559
4560
4561
4562
4563
4564
4565
6566
4567
4568
4569
4570
457N
4572
4573
4574
4575
6576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589

4590
45N
4592
4593
4594
4595

4596
4597
4598
4599
4600
4601
4602
4603

4604
4605
4606
4607
4608
4609
4610

4611

4612
4613

014134
014136

RK11

BASIC LOGIC

21-FEB-78 08:51

014140
014142
014144
014150
014154
014156
014162

005200
001417
005722
001774
005037
014237
010004
062704
010437

014166

104073

TEST 2

MACY11
134

7%:

INC

BEQ
TST

BEQ
CLR

001164
001166

MOV
MOV
ADD
MOV

000401
001162

30A(1052)
21-FEB-78
08:58
PAGE 85
CHECK THAT [BA INHIBITS INCREMENTING OF

ERROR

RKBA

sCHKD ALL 256 WORDS

(R2)+

;1S THIS WORD 0?

TST3S

7%
$REG1

-(R2),8REG2
RO,R4
#401,R4
R4 ,$REGO

SEG 0084

IN THE BUFFER?

2988, BAlT

sYES, LUP BAK & CHK THE NXT WORD?
;ERROR. GET EXPCTED WORD - 0

;GET WORD THAT WAS FOUND IN THE BUFFER
sTHIS

'WORD #'

IN MEMORY BUFFER

:SHOULD HAVE BEEN ZERO
sTHE 256 WORD BUFER (STARTING AT

:OUTBUF) WAS CLEARED BEFORE READING
:BAK SEC O INTO IT. SINCE THE IBA
;BIT WAS SET DURING THE READ, ONLY
;THE FIRST WORD OF (OUTBUF) SHOULD
;HAVE CHANGED, THE REST OF

THE WORDS

;SHOULD BE STILL 0. IF THIS ERROR
;OCCURS, 'WORD #' (OF THE BUFFER) AS
sINDICATED IN THE EROR MESAGE) GOT
s CHANGED WHEN READ WAS DONE FROM

;THE DISK, INDICATING THAT WITH IBA
sSET X=FER WAS NOT DONE INTO THE
:SAME MEMORY LOCATION. °"WORD #°
;1S OCTAL & SPECIFIES THE POSITION

014170
014172
014174

005205
001401
000757

INC

BEQ

TST35

;IN THE BUFFER (FIRST WORD IS 'WORD #' 1)
s EXIT

;*TEST 35
CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET
;*THIS TEST CHECKS IF RK11 INTERRUPTS TO ITS DESIGNATED VECTOR
;*ADDRESS WHEN IDE BIT IS SET, WITH CONTROL READY SET & GO CLEAR.
;* IT IS NORMALLY 220, UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN
;*CHANGED RK11 WILL INTERRUPT TO 'RKVEC'. NOTE °"RKVEC' HAS

014176
014200

TST35:

000004
104413

;*TO BE SET UP BY THE USER.

SCOPE
CNT.RESET

:GO, DO CONTROL RESET
;THIS IS A CALL FOR THE

‘CNTRL-

sRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

014202

104421

014204
014210
014214
014216
014216
014222

012746
012746
000002

000340
014216

013701
013700

001332
001402

;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;0CCURS GO BACK TO TEST 10

TST.SIN

64%:

;CHECK

MoV
MoV
RTI

#340,-(SP)
#64%,-(SP)

MoV

RKCS,R1

Mov

RKVEC,RO

IF SIN IS SET,

SET

;00 DRIVE RESET TO CLEAR IT

;GET POINTER TO RK VECTOR ADRES

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF . P11
21-FEB-78 08:51
4614
6615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
«627
4628
4629

4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4642

4643

4644
4645
4646
4647
4648
4649

4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661

4662
4663
4664
4665
4666

4667
4668
4669

014226
014232
014236
014240
014242
014246

012720
012710
105711
100376
012711
104420

014252
014256

011137
104074

014260
014262

000400
022626

014264

022626

014266

012777

014302

014274

104420

000005

014300

000403

014302

014304
014306

022626
022626
104020

014310

012777

004600

014316

012746
012746
000002

000340
014330

014322
014326
014330

TEST 2

MACY11
135

H
7
30A(1052)
21-FEB-78
08:58
PAGE B%
CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET

014262
000340

MOV

000100
000005

MOV
#100,aR1
WAT.INT .S

;SET IDE BIT IN RKCS
sWAIT FOR INTERRUPT, ATLEAST

001162

MOV

aR1,$REGO

sGET RKCS

MOV
;3{8

ERROR

1%:

CMP

165106

2%:

165064

3%:

#340, (RO)
OR;

(SP)+,(SP)+

;SET UP INTERRUPT VECTOR FOR RK11

sSET PSW ON INTERRUPT
sWAIT FOR CNTRL RDY TO SET

;37 US FOR 11720, 7 US FOR 11/45
sRK11 DID NOT INTERRUPT WHEN IDE
sWAS SET, WITH CNTRLE RDY SET & GO
sCLEAR
sRK11

INTERRUPTED CORRECTLY TO

sTHIS. RESTORE STACK POINTER

CMP

(SP)+,(SP)+

MOV

#2%,3RKVEC

;(FROM RK11 INTERRUPT)
JRESTORE STACK POINTER
;(FROM
WAT.INT)
;IF THERE IS FAULTY POLLING OR INTERUPT

WAT.INT

sWAIT FOR INTERRUPT,IF ANY

CMP
CMP
ERROR

(SP)+,(SP)+
(SP)+,(SP)+
20

;RESTORE STACK PTR (FROM RK11 INTRUPT)
JRESTORE STACK PTR (FROM WAT.INT)
;AN UNEXPECTED RK17 INTERRUPT

MOV

#BADINT ,@RKVEC

MOV
MOV

#340,-(SP)
#65%,-(SP)

;RESTORE VECTOR ADRES FOR
JUNEXPECTED RK11 INTERRUPT,

RTI

65%:

#1%,(RO)+

SEQC 0085

; LOGIC SECOND INTERRUPT MIGHT OCCUR
;DUE TO FAULTY LOGIC

;OCCURED. THERE SHOULD HAVE BEEN
sONLY 1 INTERRUPT (TO 1% ABOVE)

;*TEST 36
CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF
s*THIS TEST CHECKS THAT AN INTERRUPT FROM RK11 OCCURS AFTER
;*A SEEK IS INITIATED WITH "IDE' BIT SET, AND THEN A SECOND
;*INTERRUPT OCCURS AFTER THE SEEK IS DONE. IT ALSO CHECKS THAT
;*AFTER THE FIRST INTERRUPT °'SCP' BIT IS NOT SET, WHEREAS AFTER
;*THE SECOND INTERRUPT 'SCP' IS SET.
;*THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC.
rrktkkARARRARRARARRRORRRRRRRA
R R RRRT RN R RTRRITRTRT R R RRRRRRRA R
AR R AR ARkt

014330
014332
014340

000004
012737

104413

000005

001206

1ST36:

SCOPE

MOV

#5,8TIMES

CNT.RESET

::D0 5 ITERATIONS

:GO, DO CONTROL RESET

;THIS IS A CALL FOR THE °'CNTRL;RESET' ROUTINE. A CONTROL RESET IS

; ISSUED AND AFTER A CERTAIN TIME
sIF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

;PC WHERE 'CNT.RESET' IS LOCATED.

MD-11-CZRKKF,

CZRKKF .P11

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
471N
4712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
4725

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
136

30A(1052)
21-FEB-78
08: 58
PAGE 87
CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER

INTIATION & COMPLETION GF

sTHIS IS A VERY BASIC ERRE IF
014342
014346
014354
014360

013700
013777
004737

014362
014366
014372
014376
014404
014410

013701
012721
012711
052777
012710

104026

104420

001332
001350
021504
001402
014432
000340
000040
000111
000300

Mov
MOV

164764

JSR
ERROR

2%:

164734

MOV
MoV
MOV

RKCS.RO
DRIVAD,aRKDA
PC,DRESET

RKVEC,R1
#3%,(R1)+
#340, (R1)

#40,aRKDA
BIS
#111,aR0
MOV
WAT.INT .300

;0CCURS GO BACK TO TEST 10

SEQ 0086

;ADRES THE DRIVE
:GO, DO DRIVE RESET

sR/W/S RDY DIDN'T

;ABOVE DRIVE RESET

SET AFTER DOING

;SET UP VECTOR ADRES FOR RK11 INTERUPT
;SET UP PSW ON INTERRUPT
;ADRES CYLINDER #1
;SEEK, GO WITH IDE SET
;WAIT FOR THE DRIVE TO
;INTERRUPT AFTER ADRES WAS RECVD
;WAITING TIME= 1.4 MS FOR 11/20

014414
014422
014426

012777
011037
104075

014430
014432

000402
022626

014434

022626

014436
014444
014450
014452
014456

012777
032710
001403
011037

014502
020000

014460

104420

056700

104076

004600
001162

164736

004600

014472
014476

004737

021002

014500
014502

000401
022626

014504

022626

014506

012777

004600

014514

014520
014522
014526

032710
001003
011037
104053

020000

014530

017701

164572

#BADINT ,@RKVEC

cmp

38+4
(SP)+,(SP)+

CMP

(SP)+,(SP)+

Mov

ERROR

#5% ,aRKVEC
#20000,aR0
4%
aR0,SREGO
76

WAT.INT

.56700

BIT
BEQ

001162

012777

MoV
MOV

ERROR

3%:

014464

104077

164760

MoV

4%:

164710

5%:

164666

001162

Mov

#BADINT ,aRKVEC

JSR
ERROR

PC,GT3RG
77

BR
CMP

58+2
(SP)+,(SP)+

CMP

(SP)+,(SP)+

Mov

#BADINT ,aRKVEC

BIT
BNE

ERROR

#20000,aRr0
6%
aR0,$REGO
53

Mov

aRKDS ,R1

MoV

6$:

ggO.SREGO

;280 US FOR 11/45
;ERROR, IF INTERUPT DID NOT OCCUR
;BY NOW
sRESTORE UNEXPECTED RK11 INTERRUPT
;GET RKCS
s INTERRUPT DID NOT OCCUR AFTER
;SEEK WAS INITIATED WITH IDE SET
;0k, IF RK11 INTERRUPTED TO THIS
sRESTORE STACK POINTER (FROM RK11 INTERRUPT)
sRESTORE STACK POINTER (FROM
sWAT.INT)
;SET UP NEW VECTOR ADRES FOR RK11
;1S SCP CLEAR

;YES, BRANCH

;GET RKCS
;SCP SET BEFORE SEEK TO LAST
;CYLINDER WAS DONE
;WAIT FOR DRIVE TO INTERRUPT
sAFTER SEEK WAS COMPLETED

;WAITING TIME=180 MS FOR 11/20
;36 MS FOR 11/45
;1T'S AN ERROR IF BY THIS TIME
: INTERRUPT HAS NOT OCCURERED
;RK11

;GO GET RKCS, ER, DS

DID NOT INTERRUPT AFTER SEEK

4670
467N
4672
4673
4674
4675
4676
4677
4678
4679
4680
4681
4682

RK11

(TO

;LAST CYLINDER) WAS DONE WITH IDE SET

;0K, IF RK11 INTERUPTED TO THIS AFTER
;SEEK WAS COMPLETED. RESTORE

;STACK POINTER (FROM RK11 INTERRUPT)
;RESTORE STACK POINTER (FROM
;WAT.INT)
;RESTORE RK11 INTERRUPT VECTOR ADRES

;FOR UNEXPECTED INTERUTS

;DID SCP BIT SET?
:YES, BRANCH
;GET RKCS
;SCP DID NOT SET AFTER RK11 INTERRUPTED
;INDICATING SEEK WAS DONE
;GET RKDS

MD-11-CZRKKF,
CZRKKF .P11

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST

MACY11
136

30A(1052)
21-FEB-78
08:58
PAGE 88
CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER

INTIATION & COMPLETION OF

4726
4727
2;53

014534
014540
014544

042701
020137
001414

017777
001350

BIC
CMP
BEQ

#7777,/
R1,DRIVAD
7%

sMASK NON=-ID BITS IN RKDS
;CORRECT ID BITS IN RKDS?
;YES, BRANCH

4730
4731
4732
4733
4734
4735
4736

014546
014552
014556
014562
014564
014570
014574

013746
004737
012637
010146
004737
012637
104047

001350
021200
001162

MOV
.
JSR
MOV
MOV
JSR
MOV
ERROR

DRIVAD,-(SP)
PC,SHFTRT
(SP)+,$REGO
R1,-(SP)
PC,SHFTRT
(SP)+,$REG
47

sPUSH DRV ADRES ON THE STACK
GO, SHIFT RIGHT DRV #
JGET EXPCTD DRV #
sPUSH ID BITS ON THE STACK
;GO SHIFT THEM RIGHT
;sPOP THE RECVD ID BITS
;WRONG ID BITS WERE RECVD IN

4737
4738
4739
4740

021200
001164

2;2;
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752

2;22

;DRIVE # THAT WAS RECVD IN THE ID BITS

014576
014576
014602
014606
014610
014610
014612
014620
014626
014630

014636

012746
012746
000002
104413
013777
032777
001404
017737

104050

7%:

000340
014610

64%:
001350
160000

164520
164500

164472

001162

MOV
MOV
RTI

#340,-(SP)
#648%,-(SP)

CNT.RESET
MOV
DRIVAD,aRKDA
BIT
#160000,3RKDS
BEQ
8%
MOV
aRKDS, SREGO

ERROR

2;22
4757
4758
4759

2;2?

sRKDS AFTER SEEK WAS DONE (INTRUPT
JMODE). 'EXPCT' INDICATES THE DRIVE
;# THAT SHOULD HAVE BEEN IN THE
;1D BITS, "RECVD' INDICATES THE

;GO DO CONTROL RESET
;ADRES THE DRIVE
;DID CNTRL RESET CLEAR DRIVE
sYES, BRANCH
;GET RKDS

ID BITS?

;CONTROL RESET DIDN'T CLEAR THE

;DRIVE ID BITS (13-15) IN RKDS
014640
014644
014646

014652

022710
001403
011037

104100

000200

8%:

001162

CMP
BEQ
MOV

ERROR

;WAS SCP BIT CLEARED BY CNTRL RESET?
33¥ES. EXIY
;GET RKCS

100

4763
4764
4765
4766
4767
4768
4769
4770
4771
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781

J*TEST 37
CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE
s*THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE
;*WITH IDE BIT SET, RK11 INTERRUPTS WHEN THE FUNCTION IS COMPLETED
s*FUNCTION USED IN THIS TEST IS READ.
AR R
A
R R R R R R R R AR R R AR AR R AR AR AR R RRR R AR RN
TST37:
SCOPE
CNT.RESET
GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRLJRESET' ROUTINE. A CONTROL RESET IS
;s ISSUED AND AFTER A CERTAIN TIME
sIF THE "CNTRL RDY' DOES NOT SET
AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
sPC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
sOCCURS GO BACK TO TEST 10
TST.SIN
sCHECK IF SIN IS SET, IF SET
;DO DRIVE RESET TO CLEAR IT

000004
104413

014660

104421

R AR

sCNTRL RESET DID NOT CLEAR SCP BIT

4762

014654
014656

#200,3R0
TS137
aR0,SREGO
R R R R

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

RRE

SEQ 0087

MD-11-CZRKKF,
CZRKKF .P11

4782
4783
4784
4785
4786
4,787
4788
4789
4790
4N
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806

4807

4808
4809
4810
4811
4812
4813
4814
4815
4816

4817
4818

4819
4820
4821
4822
4823
4824

4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837

014662

014666
014672
014676
014702
014706
014714
014716
014722
014726
014732
014736
014742

RK11

BASIC

LOGIC

21-FEB-78 08:51
013700
013702
013704
013701
052701
012777
010112
012714
013705
012725
012715
012710
104420

001336
001350
000013
177600

000404
022626

014766
014770

022626
012777

004600

014776

004737

021342

015002

104036

015004
015010
015012
015014
015020
015024

062701
020112
001405
010137
011237
104040

015026

004737

015032

104041

015062
015066

004600
001162

104042

033742
001164

RKBA,R4

MOV

RKDA,R2

DRIVAD,R1

#13,R1

sSET BITS FOR SEC 13

#OUTBUF ,aR4

sINTO THIS BUS ADRES

#-200,aRKWC
R1,aR2
RKVEC,RS

#18%,(RS5)+

MOV
#340, (RS)
MOV
#105,aR0
WAT.INT ,127710

164426

4%:

2%:

3%:

64%:

001162

MOV

#BADINT ,@RKVEC

1$+10

CMP

(SP)+,(SP)+

MOV
ERROR

164404

021316

033742

MOV

MOV
MOV

001162
001164

022714
001406
012737
011437

RKCS,RO

BIS

164420

000005

000340
015046

L [1]']
MOV

1%:

012746
012746
000002

30A(1052)
21-FEB-78
08:58
PAGE 89
CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE

MOV

033342
001402
014764
000340
000105
127710

014762
014764

015052
015054

MACY11
137

001340

012777
011037

015034
015034
015040
015044
015046
015046

001332

014746
014754
014760

104101

TEST

CMP

aR0,SREGO
101

(SP)+,(SP)+

MOV

#BADINT ,@RKVEC

JSR

PC,CHKER

ERROR

ADD
CMP

#5,R1
R1,aR2

JREAD 200 (OCTAL WORDS)
.
sFROM THIS DISK ADRES (CYL 0,

SEC 13)

sSET UP VECTOR ADRES FOR RK11 TO INTRUPT
JSET PSW ON INTERUPT
JREAD, GO, IDE SET
sWAIT FOR RK11 TO INTERRUPT ON

;COMPLETION OF READ

sWAITING TIME= 337 MS FOR 11/20
;67 MS FOR 11/45
;RESTORE UNEXPCTED

INTERRUPT VECTOR ADRES

:GET RKCS
sRK11 DID NOT INTERRUPT AFTER READ
;sWAS DONE, IDE BIT SET.
;0K,

IF RK11

INTERRUPTED TO THIS

JRESTORE STACK POINTER (FROM RK11 INTERRUPT)
sRESTORE STACK POINTER (FROM WAT.INT)
;RESTORE UNEXPECTED RK11

:VECTOR ADRES

INTERRUPT

;CHECK IF ANY BIT IN RKER IS SET,

s1F YES, RETURN HERE.

sRKER SET ON DOING READ FROM SEC 0,

s CYL 13 IN INTERRUPT MODE

;RKDA SHOULD HAVE INCREMENTED TO THIS
;DID RKDA INCREMENT CORRECTLY?

BEQ
MOV
MOV
ERROR

2%
R1,$REGO
aR2,$REGT
40

JSR

PC,CHKWC

ERROR

MOV
MoV

#340,-(SP)
#64%,-(SP)

CMP
BEQ
MOV
MoV
ERROR

#OUTBUF +400,8R4 ;DID RKBA INCREMENT CORRECTLY?
TST40
VeS8, EXlY
#OUTBUF +400,8REGO ;GET EXPCT RKBA
aR4 , SREGT
;GET RKBA RECVD
42
:RKBA DID NOT INCREMENT CORRECTLY
;AFTER A READ OF 200 WORDS

RTI

:YES BRANCH
:GET EXPCTD RTDA
:GET RKDA RECVD
;RKDA INCREMENTED WRONG ON DOING

:A READ ON CYL O, SEC 13

;CHECK THAT RKWC OVERFLOWED TO O,

:1F NOT RETURN HERE.

sRKWC DIDN'T QURFLO AFTER

:A READ OF 200 WORDS

""tttt""tt't't"t"'t"itttl"""""tit'tt!".ttl."tt.il'!'.

J*TEST 40

CHECK THAT RK11

INTERRUPTS AT BR5 ONLY

SEQ 0088

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

4838
4839
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

TEST 2

MACY11
T40

30A(1052)
21-FEB-78
08:58
PAGE 90
CHECK THAT RK11 INTERRUPTS AT BR5 ONLY
;*THIS TEST CHECKS THAT RK11

SEQ 0089

CAN TTERRUPT AT BR5 ONLY.

;*INTERRUPTS AT A LEVEL HIGHER THAN BRS AN ERROR IS INDICATED.
;*IF IT DOES NOT INTERRUPT AT BR5 ORLOWER THEN ALSO AN
;*ERROR IS INDICATED.
IF FOR SOME REASON THE INTERRUPT
s*LEVEL IS CHANGED FROM BRS5, THEN CONTENTS OF RKPRI WILL
s*HAVE

TO BE

CHANGED ACCORDINGLY AND STILL

;*CHECK FOR THIS BR LEVEL.

TEXT WILL

:.'tt'.'I'i""'t'"""""""""".'Q'.'.'..i.t"....'.'t"'.l

015070
015072

000004

TST40:

104413

SCOPE

CNT.RESET

:GO, DO CONTROL RESET

sTHIS IS A CALL FOR THE 'CNTRL=-

;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
:IF THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE

015074

104421

015076

012737

015132

015104
015110
015116
015122
015126

013700
013777
012701
012702
013703

001332
001350

015132
015136
015142
015146
015150
015154
015156
015156
015162
015166
015170
015172
015174

013704
012724
012714
010246
012746
000002

001402
015244
000340

012710
012705
005205
001376
020203
003005

000100
177760

015202
015206

010137
011037
104103

001162
001164

015210
015212

005010
062702

015216
015220

005301
001344

‘
015176

;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRR IF IT
;O0CCURS GO BACK TO TEST 10

TST.SIN

000007
000340
001400

001110
164222

015156

177740

Mov

#18,SLPERR

MoV

RKCS,RO

Mov
Mov
MoV

#7,R1
#340,R2
RKPRI,R3

MOV

RKVEC,R4

MoV

1$:

48:

DRIVAD ,aRKDA

SIN IS SET,

SET

;DO DRIVE RESET TO CLEAR IT

;SET RETURN ADRES FOR LUPING

;ON ERROR (SW 9)
:

;PRIORITY LEVEL 7
;BR LEVEL 7 FOR PSW
;NOTE, IF RK11 INTERRUPT LEVEL IS

; CHANGED FROM 5 TO ANY OTHER LEVEL
;THEN CHANGE CONTENTS OF "RKPRI’
; ACCORDINGLY

MOV
MoV
MOV
MOV

#38,(R4)+
#340, (R4)
R2,-(SP)
#48,-(SP)

MOV
MOV

#100,aR0
#-20,R5

:INDICATED BY R2
;SET THE IDE BIT
sWAIT FOR THE RK11

CMP
BGT

R2,R3
2%

;WAS THE CPU PRIORITY LEVEL LESS THAN
;THE RK11 LEVEL?
IF YES, RK11

RTI

INC
BNE

2%:

;CHECK

RS
X -

MoV
MOV
ERROR

R1,$REGO
aR0,SREGT
103

CLR

aRr0

DEC

ADD

BNE

#-40,R2

sSET UP ADRES .,FOR RK11 TO INTERUPT
;SET UP PSW ON INTERUPT
;SET PROCESSOR PRIORITY LEVEL AS

INTERRUPT

;WAITING TIME=78 US FOR 11/20
;13 US FOR 11/45

;SHOULD HAVE INTERRUPTED. ERROR,
;IF IT DID NOT
:GET CPU BR LEVEL
;GET RKCS
:THOUGH CPU LEVEL WAS LESS THAN

;THE RK11 LEVEL (5), RK11 DID NOT
: INTERRUPT
:CLEAR RKCS

;DECREASE THE PRIORITY LEVEL (FOR

;CPU) BY 1

;CPU WILL B AT THIS LEVEL

;LUP BAK & CHK FOR THIS BR LEVEL.

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

4894

Zggg

015222

012777

004600

4897
4898

015230
015234

012746
012746

000340
015242

4899
4900

015240
015242

000002

2385

015242

000414

4903
238?

015244
015246

022626
012777

4906
4907
4908
4909
4910
4911
4912
4913

015254
015256

020203
003754

015260
015264
015270

010137
011037
104104

4914
4915

23}?

015272

TEST 2

MACY11
140

164152

164126

SEQ 0090

sDONE WITH CHKING FOR ALL LEVELS.

MOV

#BADINT ,aRKVEC

MOV
MOV

#340,-(SP)
#64%,-(SP)

TST41

JsEXIT,TO NXT TST

3%:

CMP
MOV

(SP)+,(SP)+
#BADINT ,aRKVEC

’

CMP
BLE

R2.R3
2%

MOV
MOV
ERROR

R1,$REGO
aR0, SREGT
104

JRESTORE STACK POINTER
:REE}S:E UNEXPECTED RK11 INTERRUPT
sV
s1F THIS INTERRUPT OCCURED WHEN
sCPU LEVEL WAS LESS THAN THE
sRK11 PRIORITY LEVEL (5) THEN IT IS
;0K.
IF NOT SO, ERROR
;sGET CPU BR LEVEL
;GET RKCS
;RK11 INTERRUPTED WHEN THE CPU
sLEVEL (AS POINTED BY R1) WAS

64%:

004600

n7
30A(1052)
21-FEB-78
08:58
PAGE 91
CHECK THAT RK11 INTERRUPTS AT BRS ONLY

001162
001164

000746

RTI

:cgg}ggf UNEXPECTED RK11

INTERRUPT

JHIGHER OR SAME AS THE RK11
sLEVEL (5)

:G0 BACK & CHK THE NXT LEVEL

4918

4919
4920
4921
4922
4923
4924

s*TEST 41
SIMULATE & CHECK "OVR' ERROR
s*THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF THE OVR
;*BIT IN RKER GETS SET.
THEN IT IS CLEARED USING CNTRL RESET
;%8 CHECKED THAT IT WAS CLEARED.
OVR CONDITION IS SIMULATED
;*BY TRYING TO READ 401(OCTAL) WORDS FROM LAST CYLINDER(312),
;*LAST SECTOR (13), SURFACE 1.

4925

4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945

015274
015276

000004
104413

'
015300

104421

015302

013701

001350

015312
015320
015326

012777
012777
010177

177377
033342
164006

2829

015332

012777

000005

4948
4949

015340
015342

005002
105777

015306

052701

TST41:

AN RN R AR A AR

SCOPE
CNT.RESET

TST.SIN
MOV

DRIVAD,R1

164014
164010

MOV
MOV
MOV

#-401,3RKWC
#OUTBUF ,aRKBA
R1,3RKDA

163772

MoV

#5,3RKCS

CLR
TSTB

R2
aRKCS

014532

163764

BIS

18:

#14533,R1

RN AR

LI e I e e e e e e e e e

AR AR R R AR

AR AR

GO, DO CONTROL RESET
:THIS IS A CALL FOR THE 'CNTRLsRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;IF THE °"CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
:PC WHERE °'CNT.RESET' IS LOCATED.
:THIS IS A VERY BASIC ERRE® IF IT
;OCCURS GO BACK TO TEST 10
;sCHECK IF SIN IS SET, IF
sSET, DO DRIVE RESET TO CLR IT
;GET ADRES OF DRIVE
:SET BITS FOR LAST CYLINDER (312),
sSUR 1, LAST SECTOR (13)
sREAD 401 WORDS
;INTO THIS MEMORY BUFFER
:FROM THIS DSK ADRES, LAST CvyL,
sLAST SEC, SURFACE 1

;READ, GO

;DID CNTRL RDY SET?

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
497
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981

4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004

5005

015346
015350
015352

005202
001373

015354
015362

017737
004737

015366

MACY11
T41

BMI

100410

104002

N
7
30A(1052)
21-FEB-78 08:58
PAGE 92
SIMULATE & CHECK 'OVR' ERROR

163754
021010

001166

SEQ 0091

;YES, BRANCH

INC
BNE

R2
1%

:NO, WAIT FOR IT
:1F WAITED LONG, REPORT ERROR MESSAGE BECAUSE

MOV
JSR
ERROR

aRKWC,SREG2
PC.GT2RG
2

:60, GET RKCS, ER
:CNTRL RDY DID NOT SET AFTER DOING

;OVR SHOULD HAVE SET HE CAUSING
;CNTRL RDY TO SET BY NOW

;AN OVR READ.

HE SHOULD HAVE OCCURED

:SETTING CNTRL RDY (HE BECAUSE OF
015370
015376
015400
015404
015412

032777
001006
004737
012737

040000

163732

021010
040000

001166

015414,
015422
015424
015430

022777
001403
004737

140204

163710

015432

104413

104105

104106

2%:

BIT
BNE
JSR
Mov

#40000,aRKER
3%
PC,GT2RG
#40000, SREG2

CHP
BEQ
JSR
ERROR

#140204,3RKCS
4%
PC,GT2RG
106

ERROR

3%:

021010

4%:

105

CNT.RESET

;OVR CONDITIONS)

;:DID OVR BIT SET IN RKER?
;GET RKCS, ER
;THIS BIT (OVR) DID NOT SET.

:OVR ERROR BIT DID NOT SET IN RKER

:ON SIMULATING OVR CONDITIONS

:DID HE & ERR SET WHEN OVR SET IN RKER?
:YES, BRANCH
;GET RKCS, ER
sHE OR ERR BIT DID NOT SET IN RKCS WHEN

:AN OVR ERROR WAS SIMULATED
;CLEAR OVER, ERR, HE BITS
:GO, DO CONTROL RESET

:THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS

+:I1SSUED AND AFTER A CERTAIN TIME

015434

004737 021356

JSR

PC,CHKECLR

015440

104102

ERROR

102

015442

004737

JSR

PC.,CHKCCLR

015446

104102

ERROR

102

015450
015454

004737

JSR

PC,DRESET

104026

021402

021504

5%:

6%:

ERROR

:1F THE 'CNTRL RDY' DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
:PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;0CCURS GO BACK TO TEST 10
;CHECK IF

"OVR' BIT WAS CLEARED BY

sCON.RESET, IF NOT RETURN HERE.
sCNTRL RESET DID NOT CLEAR OVR
;BIT IN RKER
;CHECK IF "ERR' & 'HE' BIT GOT CLEARED BY
;CON.RESET, IF NOT RETURN HERE.
sCNTRL RESET DID NOT CLEAR
sHE OR ERR BIT IN RKCS.
;GO DO DRIVE RESET

;R/W/S RDY DIDN'T SET

sAFTER THE ABOVE DRIVE RESET,

tttttt""'ti't't't'tt"'ttlt""i"'.t.ttttittl'!'ittttttitttt

'rssr 42

SIMULATE & CHECK PCE ERROR

s*THIS TEST SIMULATES 'PROGRAMMING ERROR' & CHECKS IF IT IS

;«DETECTED BY PGE BJT IN RKER. THEN A CNTRL RESET IS DONE &
IT IS ALSO CHECKED IF
;*IT IS CHECKED IF PGE BIT WAS CLEARED.
J*THE SETTING & CLEARING OF PGE BIT SETS & CLEARS HE, ERR
;*BITS IN RKCS.

.itiii"ttitt'tt't't"tt't"t"l"i't'tttti"tltiltt!'t"t'tttt

015456
015460

000004

104413

T§T42:

SCOPE

CNT.RESET

;6G0, DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRL-

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF 11
21-FEB-78 08:51

5006
5007
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

TEST 2

MACY11
142

30A(1052)
21-FEB-78 08:58
SIMULATE & CHECK PGE ERROR

PAGE 93

SEQ 0092

sRESET' ROUTINE. A CONTROL RESET IS

015462

104421

015464
015470

013701
013777

001330
001350

163642

015476

012777

002011

163626

015504

104414

TST.SIN

;ISSUED AND AFTER A CERTAIN TIME
;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
sPC WHERE "CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10
;GO CHECK IF SIN IS SET, IF
;SET DO DRIVE RESET TO CLR IT

MOV

RKER ,R1

DRIVAD ,aRKDA

;ADRES THE DRIVE, CYLINDER 0

Mov

#2011 ,3RKCS

;SEEK, GO WITH FMT SET
;THIS IS A PGE SIMULATION

MOV

CNT.RDY

;THIS

IS A CALL FOR

"CN.RDY'

sROUTINE WHICH WAITS FOR CNT
sRDY TO SET. IF CNTRL RDY DOES
;NOT SET WITHIN 883 MS/ 11-20

:(176 MS FOR 11-45 WITH BIPOLAR)

015506
015512
015514
015522
015526

032711
001006
012737
004737
104105

004000

004000
021010

BIT
BNE
MOV
JSR
ERROR

001166

#4000, aR1
1%
#4000, SREG2
PC,GT2RG
105

;AN ERROR IS REPORTED
;DID PGE BIT IN RKER SET?
;YES, BRANCH
;THIS BIT IN RKER (PGE) DID NOT SET
;GO GET RKCS, ER FOR MESAGE
;PGE BIT DID NOT SET IN RKER
;ON SIMULATION OF PGE CONDITION

;SREG2 CONTAINS THE RKER BIT (PGE)

015530
015536
015540
015544

022777
001403

015546

104413

004737
104106

142210

163574

1$:

021010

2%:

CHP

BEQ
JSR
ERROR

#142210,3RKCS

2%
PC,GT2RG
106

CNT.RESET

:THAT SHOULD HAVE SET.

:DID HE & ERR BITS SET?
:YES, BRANCH
:60, GET RKCS, ER
;HE OR ERR BIT DID NOT SET WHEN
;PGE SET IN RKER.
sCLEAR PGE, HE, ERR BITS
;GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

;IF THE "CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

015550

004737

015554

104102

015556

004737

015562

104102

021356

021402

3%:

JSR

PC,CHKECLR

ERROR

102

JSR

PC.CHKCCLR

sPC WHERE °"CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10
sCHECK IF "PGE' BIT GOT CLEARED BY
;CONTROL RESET, IF NOT RETURN HERE.
sCNTRL RESET DID NOT CLEAR
;PGE BIT IN RKER
;CHECK IF "ERR' BITGOT CLEARED BY

ERROR

102

;RKCS BITS HE OR ERR DID NOT

;CON.RESET, IF NOT RETURN HERE.

;GET CLEARED BY CNTRL RESET

SRR ARR T RTARERRRARRRRIRPRERRRORERRAIRPRORRRORRRERRARRARRRRRRRRRRRTRSE

TTEST 43

SIMULATE & CHECK NXM ERROR

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

5062
5063
5064
5065
5066
5067
5068
5069
5070
507
5072

30080
N,
b
b
b
b
—

NOWVSsM
NN —-O

T VT AT AL B

AT A WA

5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104

TEST 2

MACY11
T43

30A(1052)
21-FEB-78
08:58
SIMULATE & CHECK NXM ERROR

PAGE 94

SEQ 0093

;*THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR

(NXM)

AND

:*CHECKS IF IT IS DETECTED BY NXM BIT OR RKER.LOCATION 760000
:*1S REFERENCED & IT HAPPENS TO BE A NON EXISTENT LOCATION
;*(FOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED
;*1F HE & ERR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED
:* BY CONTROL RESET.

;;ttttttt"tt"ttt"'t'tttt'tt"tt"tt't"'t"t'ttt'tt.ttttt'tttt

015564
015566

TST43:

000004
104413

SCOPE
CNT.RESET

:GO, DO CONTROL RESET
;THIS IS A CALL FOR THE

'CNTRL-

JRESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME

:1F THE "CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT

;THE PC

015570

104421

TST.SIN

015572
015574

005002
013700
012777
012777
013777

CLR
Mov

015600
015606

015614
015622
015626
015632
015634
015636
015640
015644
015652

012710

105777
100410
005202

001332
177777
160000

001350
000067

163526
163522
163516

163500

18:

001373
004737
017737

021010
163464

001166

032777

002000

163446

004737
012737

021010
002000

001166

015700
015704
015706
015712

022710
001403

140266

015714

104413

015654
015662
015664
015670
015676

104113

001006
104105

004737
104106

38:

021010

48:

IS THE

;GO CHECK IF

R2
RKCS,RO

SIN IS SET

;1F SET DO DRIVE RESET TO CLR IT

MoV
MOV
Mov

#-1,aRKWC
#160000,8RKBA
DRIVAD,@RKDA

;WRITE CHECK 1 WORD
;AT THIS BUS ADRES
;WITH THIS DISK ADRES (CYL 0, SEC 0)

TSTB

aRKCS

;DID CNTRL RDY SET AS A RESULT OF HE?

MoV
BMI
INC
BNE
JSR
MOV

ERROR

28:

IN ERROR MESSAGE

;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10

#67,3R0

28
R2
1%
PC,GT2RG
aRKW(, SREG2

113

BIT
BNE
JSR
MoV
ERROR

#2000,3RKER
33
PC,GT2RG
#2000, $REG2
105

CMP
BEQ
JSR
ERROR

#140266,3R0
4%
PC,GT2RG
106

CNT.RESET

;WRT CHK, GO, MEX BITS SET
:YES, BRANCH
;WAITED LONG ENOUGH?
;1F NOT LUP BAK £ WAIT
;GET RKCS, ER
;GET RKWC

;CNTRL RDY DID NOT SET ON DOING
;A WRT CHK WITH A NXM LOCATION.
sTHIS HE SHOULD HAVE SET THE
;CNTRL RDY BIT IN RKCS
;DID NXM BIT IN RKER SET?
;YES, BRANCH
;G0 GET RKCS, RKER

;THIS BIT (NXM) DID NOT SET IN RKER

:NXM BIT DID NOT SET IN RKER ON
sSIMULATING NXM CONDITION.
;DID HE & ERR BIT SET?
;YES, BRANCH
:G0, GET RKCS, RKER
;HE OR ERR BIT DID NOT SET WHEN

;NXM ERROR WAS SIMULATED
;CLEAR NXM, HE, ERR BITS
:GO, DO CONTROL RESET

;THIS IS A CALL FOR THE °'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

59
60
61
62
63
64

ViV

e i

i v

ety

5118
5119
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
153
54
55
56
57
58

015716

004737

015722

104102

015724

004737

015730

104102

015732

004737

015736

104016

MACY11
T43

D
8
30A(1052)
21-FEB-78
08:58
SIMULATE & CHECK NXM ERROR

021356

021402

5%:

021436

6$:

AL AR

JSR

PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

JSR

PC,TSTRWS

ERROR

SRR

AR R

S*TEST 44

PAGE 95

sTHIS IS A VERY BASIC ERRE IF IT
;0CCURS GO BACK TO TEST 10
sCHECK IF *NXM® BIT GOT C:LEARED BY
;CON.RESET, IF NOT RETURN HERE.
:CNTRL RESET DID NOT CLEAR
;NXM BIT IN RKER
;CHECK IF "HE' & 'ERR' BITS GOT CLEARED
;BY CON.RESET, IF NOT RETURN HERE.
;CNTRL RESET DID NOT CLEAR
;HE Ok ERR BIT IN RKCS.
;GO CHECK IF R/W/S RDY IS SET &
sWAIT FOR IT.
SKIP ERROR IF IT IS SET
;R/W/S RDY

iRl

SEQ 0094

IS NOT SET
i

iiitisttss]

SIMULATE & CHECK NXD ERROR

s*THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS

015740
015742

AR AR R

TST44:

000004
104413

s*IT IS DETECTED BY NXD BIT OF RKER.
IF ALL EIGHT ARE PRESENT
s*THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DONE.
AR R

SCOPE

ARl

CNT.RESET

222222220 ]

:GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE °CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS

s ISSUED AND AFTER A CERTAIN TIME

015744

104421

015746
015752

013700
012702

001332

015756
015762

010277
1044617

163356
000001

015766
015772
015774

105777
100004
062702

163334

016000

;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
:OCCURS GO BACK TO TEST 10
sCHECK IF SIN IS SET, IF SET

TST.SIN

160000
1$:

MoV
MOV

RKCS,RO
#160000,R2

MOV

R2.3RKDA

TST8B

aRKDS

DELAY

;DO DRV RESET TO CLR IT

;ADRES DRIVE 7 TO FIND
sIF IT IS PRESENT
;ADRES DRIVE # POINTED TO BY RZ
sTIME DELAY, 7.5 US ON 11/20,

;1.5 US ON 11/45
;IS IT PRESENT?

:NO, BRANCH
;ADRES THE NXT DRIVE IN THE

BPL
ADD

2%
#-20000,R2

001366

BNE

016002

000435

TST4S

016004
016010

012710
104417

000015
000106

MoV
DELAY

#15,3R0
,106

;DRIVE RESET, ON A NX DRIVE

016014

105777
001006
004737
012737
104105

163310

TSTB

aRKER

;DID NXD BIT IN RKER SET?
:YES, BRANCH
;GET RKCS, RKER

016020
016022
016026
016034

160000

021010
000200

2%:

001166

BNE
JSR
MOV
ERROR

3%
PC,GT2RG
#200,8REG?2
105

;REVERSE ORDER. I.E. 7.6....
;LUP BAK & TRY TO FIND A DRIVE
:THAT'S NOT PRESENT
;:EXIT TO THE NXT TST

;TIME DELAY, 525 US ON 11/20
;105 US ON 11/45

;THIS BIT

(NXD)

IN RKER DID NOT SET

;NXD BIT DID NOT SET ON TRYING
;TO PERFORM A FUNCTION ON A

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11~ 21-FEB-78 08:51

TEST 2

MACY11
T4

30A(1052)
21-FEB-78
08:58
SIMULATE & CHECK NXD ERROR

5174
5175
5176
5177
5178
5179
5180
5181
5182

5183
5184
5185
5186
5187
5188
5189
5190

3511

SEC 0095

:NON-EXISTENT DRIVE
:CHECK THAT THE JUMPER CARD CONTAINING
:JUMPERS FOR DRIVES PRESENT IS PROPERLY
: CONNECTED
INOTE THAT ON RK11C IF A DRIVE
:1S OFFLINE BUT PHYSICALLY PRESENT
:(IE. DRY IS CLR FOR THAT DRIVE)
:8 A FUNCTION IS INITIATED ON THAT
:DRIVE NXD WON'T SET, BUT U WILL

016036
016042
016044
016050

022710
001403
004737
104106

016052

104413

140214

3s:

CMP
BEQ
JSR
ERROR

4$:

CNT.RESET

021010

:GET ONLY A DRE,HE & ERR.
:DID HE & ERR SET WHEN NXD SET?
:YES BRANCH
:HE OR ERR BIT DID NOT SET
:WHEN NXD WAS SIMULATED
:CLEAR NXD, HE, ERR BITS
160, DO CONTROL RESET
:THIS IS A CALL FOR THE 'CNTRL-

#140214,aR0
4$
PC.GT2RG
106

5191

5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209

PAGE 96

:RESET'

016054

004737

016060

104102

016062

004737

016066

104102

016070

004737

016074

104016

021356

021402

5%:

021436

JSR

PC.CHKECLR

ERROR

102

JSR

PC.CHKCCLR

ERROR

102

JSR

PC,TSTRWS

ERROR

5213
5214
5215
5216
5217
5218
5219

S*TEST 45
SIMULATE & CHECK NXC ERROR
;*THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR & CHECKS
:¢IF IT IS DETECTED BY THE NXC BIT OF RKER, HE & ERR BITS
:#0F RKCS.
IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL
;*RESET
":i""'i""'"""Q'.""Q"""'i""".i"I""It.t""i'iit'
TST45:
SCOPE

5229

000004
013700
012737
013702
052702
012737

016130

104413

001332
177773
001350
014540
016130

001362

2%:

001110
38:

MOV
MOV
MOV
BIS
MOV

R R T R

RKCS,RO
#-5, COUNT
DRIVAD,R2
#14540,R2
#3%,SLPERR

CNT.RESET

016076
016100
016104
016112
016116
016122

5212

5220
5221
5222
5223
5224
5225
5226
5227
5228

AR R

ROUTINE. A CONTROL RESET

:ISSUED AND AFTER A CERTAIN TIME
:1F THE 'CNTRL RDY' DOES NOT SET
:AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
:PC WHERE 'CNT.RESET' IS LOCATED.
:THIS IS A VERY BASIC ERRE IF IT
:0CCURS GO BACK TO TEST 10
;CHECK IF *NXD* BIT WAS CLEARED BY
:CON.RESET. IF NOT, RETURN HERE.
:CNTRL RESET DID NOT CLEAR
INXD BIT IN RKER
:CHECK IF "ME' € 'ERR' BITS WERE CLEARED
:BY CON.RESET. IF NOT RETURN HERE.
;CNTRL RESET DID NOT CLEAR
:HE OR ERR BIT IN RKCS
160 CHECK & WAIT FOR R/W/S RDY
;70 SET.
IF SET SKIP ERROR
;R/W/S SHOULD BE SET, IT'S
AR R R A R R

AR R R AR

R R AR R R AR

R RN

RRY

;ALLOW 'ERROR 133" ONLY 5 TIMES
:GET ADRES OF DRIVE

:SET BITS FOR CYL 313

:SET RETURN ADRES FOR
:LUPING ON EROR (SW9)
160, DO CONTROL RESET
:THIS IS A CALL FOR THE 'CNTRL:RESET' ROUTINE. A CONTROL RESET IS

;ISSUED AND AFTER A CERTAIN TIME

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF 11
21-FEB-78 08:51

5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262

5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285

TEST 2

MACY11
145

F
8
21-FEB-78
08:58

30A(1052)

SIMULATE & CHECK NXC ERROR

PAGE 97

SEQ 0096

;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

sTHE

016132

004737

016136
016140

104016
104421

016142
016146
016152

010277
012710

016154

104021

016156
016164
016166
016172
016200

032777
001020
004737
017737

016202

004737

016206
016210
016212
016216

104016
104413

104412

104110

021436

163172
000011

000100

163144

021010
163142

001166

9%:

021436

ERROR

BIT
BNE
JSR
MOV
ERROR

#100,aRKER
(3]
PC,GT2RG
@RKDA,SREG2
110

JSR

PC,TSTRWS

ERROR
16
CNT.RESET

005237

001362

062702
032702
001334

000040
017740

4%:

016240
016244
016246
016252

032710
001003
004737

140000

5%:

016254

104413

104106

ERROR

MOV
R2,aRKDA
MoV
#11,3R0
CHKCRDY

021504

001405

PC,TSTRWS

TST.SIN

004737
104026

016220
016224
016226
016232
016236

JSR

PC,DRESET

INC
BEQ
ADD
BIT
BNE

COUNT
5%
#40,R2
#17740,R2
3s

BIT
BNE
JSR
ERROR

#140000,ar0
6%
PC.GT2RG
106

ERROR

021010

6%:

CNT.RESET

IN ERROR MESSAGE

THE

;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRR IF IT
:0CCURS GO BACK TO TEST 10
;GO CHECK €& WAIT FOR R/W/S RDY
;7O SET. IF SET SKIP ERROR BELOW
;R/W/S RDY IS NOT SET
JCHECK IF SIN IS SET, IF SET
;DO DRIVE RESET TO CLR IT
;ADRES DRIVE, NXC CYLINDER
sSEEK, GO TO NXC CYL
;GO CHECK IF CONTROL RDY IS SET
;1F SO, SKIP THE EROR MESSAGE.
sSEEK WAS TRIED TO A NON EXISTENT
sCYLINDER, NXC SHOULD HAVE OCCURED
;SETTING CNTRL RDY. BUT CNTRL RDY
;DID NOT SET.
;DID NXC SET?
;YES, BRANCH
;GO GET RKCS, ER

;GET RKDA

sNXC DID NOT SET WHEN SEEK

;WAS TRIED TO CYLINDER AS INDICATED

:IN RKDA

;CHECK & WAIT FOR R/W/S RDY,
s1F SET SKIP ERROR
;R/W/S SHOULD BE SET

;GO DO CONTROL RESET
;GO DO DRIVE RESET
sNXC DID NOT SET AND DRIVE MAY
sHAVE TRIED TO DO A SEEK, AFTER
;WHICH R/W/S RDY DID NOT SET

sALLOW ONLY 5 MESSAGES FOR

;ERROR 133

sADRES THE NXT CYL(IN NON-EXISTENT ZONE)
;CHKD FOR ALL NXC'S?
:1F NOT, LUP BAK & CHK THE NXT NXC

;:DID HE & ERR BIT SET WHEN NXC BIT SET?
:YES, BRANCH
;GET RKCS, ER
sHE OR ERR BIT DID NOT SET IN RKCS
;WHEN NXC ERROR WAS SIMULATED
;CLEAR HE, ERR, NXC BITS
:G0, DO CONTROL RESET

;THIS IS A CALL FOR THE "CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME

;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE

°'CNT.RESET'

IS LOCATED.

;THIS IS A VERY BASIC ERRR IF IT
;OCCURS GO BACK TO TEST 10

MD-11-CZRKKF,
CZRKKF .P11

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
5330
5331
5332
5333
5334

5335
5336
5337
5338
5339
5340
5341

RK11

BASIC

LOGIC

21-FEB-78 08:51

016256

004737

016262

104102

016264
016270
016272
016276
016302

032710
001495
010037
011037
104102

TEST 2

MACY11
145

021356

7%:

140000

001162
001164

G
8
30A(1052)
21-FEB-78
08:58
SIMULATE & CHECK NXC ERROR
JSR

PC,CHKECLR

ERROR

102

BIT

#140000,aR0

BEQ
MOV

Mov

ERROR

TST46
RO, $REGO
aR0, SREGT
102

PAGE 98

;CHECK IF 'NXC' BIT WAS CLEARED BY
;CON.RESET. IF NOT, RETURN HERE.

sCNTRL RESET DID NOT CLEAR
sNXC BIT IN RKER.

:DID HE & ERR BITS GET CLEARED?

;. YES, EXIT
;GET ADRES OF RK(S

;GET RKCS CONTENTS

;CNTRL RESET DID NOT CLEAR

;HE OR ERR BIT IN RKCS

F+ ,'ttttt"tttttt"t'tttti!tt'ttt'tt't"'t"'ttttttttttttttttttttt'

;*TEST 46
SIMULATE & CHECK NXS ERROR
:*THIS TEST SIMULATES NON-EXISTENT SECTOR ERROR & CHECKS THAT
;*1T IS DETECTED BY NXS BIT OF RKER.
IT IS CHECKED THAT
;*WHEN NXS SETS HE & ERR OF RKER ALSO SETS, AND ALL THREE

:*CAN BE CLEARED BY CONTROL RESET.

'-;ltIttttQt'tt"'t"t"tttt"t"tQ"'t'Qtlt'ttttttttttttttttttttt

016304
016306

000004

TST46:

104413

SCOPE
CNT.RESET

:GO,

DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRL-

sRESET' ROUTINE. A CONTROL RESET IS
:ISSUED AND AFTER A CERTAIN TIME

016310
016314
016322
016330
016336
016344
016350

013700

013777
052777
012777
012777
012710
104414

001332
001350
000014

177777

033342
000005

016352
016356
016362
016364
016370
016376

017702
032702
001006
004737
012737

162752
000040

016400
016404

042702
001407

000040

016406
016414
016422

012737
017737
104107

000040

104105

021010
000040

162710

MOV
MoV

163016
163010
162776
162772

BIS

#14 ,3RKDA

MOV
#-1,3RKWC
MoV
#OUTBUF ,@RKBA
Mov
#5,3R0
CNT.RDY

MoV

aRKER,R2

BNE

BIT
001166
1$:

001162
001164

RKCS,RO
DRIVAD,3RKDA

;1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10
sGET ADRES OF DRIVE

;SET BITS FOR SECTOR 12 (DECIMAL)
sREAD 1 WORD
;INTO THIS BUS ADRES
;READ, GO (FROM NX SECTOR)
;THIS IS A CALL FOR "CN.RDY'

sROUTINE WHICH WAITS FOR CNT
sRDY TO SET. IF CNTRL RDY DOES
sNOT SET WITHIN 883 MS/ 11-20
;(176 NS FOR 11-45 WITH BIPOLAR)
;AN ERROR IS REPORTED
;NXS ERROR SHOULD OCCUR NOW

#40,R2

;DID NXS BIT SET IN RKER?

JSR
MoV
ERROR

PC,GT2RG
#40,3REG2
105

;GO GET RKCS, RKER
;THIS BIT (NXS) IN RKER DID NOT SET
sNXS BIT DID NOT SET ON SIMULATING

BIC

#40,R2

sMASK NXS BIT

MOV
MOV

#40,8REGO
aRKER,SREG1

BEQ

ERROR

107

:YES, BRANCH

:NXS ERROR

;CHECK IF ANY OTHER

;RKER BIT SET

sGET EXPCTD RKER
;GET RKER RECVD

;ONLY 'NXS' SHOULD BE SET

;IN RKER, ANOTHER RKER BIT

SEQ 0097

MD-11-CZRKKF,

CZRKKF .P1M

5342
5343

5344

5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361
5362
5363
5364
5365
5366

gggg

016424

RK11

BASIC

LOGIC

21-FEB-78 08:51

022710

016430
016432
016436

001403
004737
104106

016440

:
104413

140204

TEST

MACY11

T46

H
8
21-FEB-78
O08:58

30A(1052)

SIMULATE & CHECK NXS ERROR

2%:

CMP

021010

3%:

004737

016446

104102

016450

004737

016454

104102

021402

4%:

PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

5370
5371
5372
5373
5374
5375
5376

s*TEST 47
SIMULATE & CHECK WCE
s*THIS TEST SIMULATES A WRITE CHECK ERROR AND CHECKS THAT IT
;*1S DETECTED BY WCE BIT OF RKER.
FOR COMPARISON IT USES
;*THE 256 WORDS DATA BLOCK WRITTEN ON SECTOR O, CYLINDER 0
;*IN A PREVIOUS TEST.
THIS BLOCK IS COMPARED WITH THE 256 WORDS
;*MEMORY BUFFER STARTING AT 'OUTBUF'.
WCE IS SIMULATED BY
;*DROPPING A BIT FROM ONE OF THE WORDS IN THE MEMORY BUFFER.

5378
5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390

5391
5392
5393
5394
5395
5396
5397

016456
016460
016464

000004
013700
104413

016466

104421

016470
016474
016500

012701
012702
012703

033342
177400
177777

016504

062703

177401

001332

TST47:

R R

;CLEARED BY CNTRL RESET

5369

5377

JSR

'NXS' WAS

;YES, BRANCH
;GO GET RKCS, RKER
sHE OR ERR BIT DID NOT SET WHEN
sNXS ERROR OCCURED
sCLEAR NXS, HE, ERR BITS
;G0, DO CONTROL RESET
sTHIS IS A CALL FOR THE °CNTRL~JRESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME
;IF THE 'CNTRL RDY' DOES NOT SET
sAN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
sPC WHERE °'CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERRR IF T
;OCCURS GO BACK TO TEST 10
sCHECK IF °'NXS' BIT WAS CLEARED BY
sCON.RESET. IF NOT, RETUEN HERE.
sCNTRL RESET DID NOT CLEAR
;NXS BIT IN RKER
sCHECL IF 'HE' & "ERR' BITS WERE CLEARED
;BY CON.RESET. IF NOT, RETURN HERE.
sRKCS BITS ERR OR HE WERE NOT

CNT.RESET

021356

SEQ 0098

;DID HE & ERR BITS SET?

3%
PC.GT2RG
106

)
016442

sWAS SET. (NOTE
sSIMULATED)

#1460204,3R0

BEQ
JSR
ERROR

PAGE

R A

R R

SCOPE
MOV
RKCS,RO
CNT.RESET

TST.SIN

1%:

Mov
MOV
MoV

#OUTBUF ,R1
#-400,R2
#177777 ,R3

ADD

#177401,R3

R R RN

R R R R R R AR R R AR

AR AR R RN RN

AR RN R AR

R R

AR RN

RARR N

;G0, DO CONTROL RESET
sTHIS IS A CALL FOR THE °‘CNTRL:RESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME
;IF THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
:PC WHERE 'CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERRR IF IT
:0CCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF
2SET DO DRV=-RESET TO CLR IT
;THIS CODE SETS UP A MEMORY

sBUFFER OF 256 WORDS STARTING
;AT OUTBUF
;FIRST WORD 177400
;SECOND
177001

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF 1
21-FEB-78 08:51

5398
5399
5400
5401
5402
5403
5404
5405

5406

5407
5408
5409
5410
5411
5412
5413
5414
5415
5416
5417
5418
5419
5420
5621
5622
5423
5424
5425
56426
5427
5428
5429
5430
5431

5432
5433

TEST 2

MACY11
147

1
8
30A(1052)
21-FEB-78
08:58
SIMULATE & CHECK WCE

Mmov
INC
%rf

R3,(R1)+
R2
1%

SEQ 0099

;LAST WORD
000377
sHAVE U GENERATED ALL 256 WORDS?
s1F NOT, LUP BAK & GENERATE NXT

016512

016514

016516

012737

170007

033360

MoV

#170007 ,0UTBUF+16 ;WCE WILL B SIMULATED BY DROPPING A

016524
016532
016540
016546

012777
012777
013777
012710

033342
001350
000007

177400

162602
162576
162572

Mov

#-400,aRKWC

016552

104412

CHKCRDY

016554

104065

ERROR

016556
016564
016566
016572
016600

032777
001006
004737
012737

BIT
BNE
JSR
MOV

#1,3RKER
43
PC.GT2RG
#1,8REG2

016602
016606
016610

022710
001403
004737

cmMp

#100206 ,aR0

021010

016616
016620

104413
004737

021356

016624

104102

016626

004737

016632

104102

016614

104105

104106

000001

162544

021010
000001

001166

100206

021402

MOV
MoV
MoV

3%:

ERROR

4%:

5%:

6%:

BEQ
JSR
ERROR

#OUTBUF ,@RKBA
DRIVAD,aRKDA
#7,3R0

;BIT IN THE EIGHTH WORD WHICH IS
; SUPPOSED TO B 174007
;WRT CHK 400 WORDS

;STARTING AT THIS BUS ADRES
;WITH THIS DISK ADRES, SEC 0,
;WRT CHK, GO

;GO CHECK IF

CYL O

CONTROL RDY IS SET

;IF SO, SKIP THE EROR MESSAGE.
;CNTRL RDY DID NOT SET

105

5%
PC,GT2RG
106

CNT.RESET
JSR
PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

5434

JAFTER WRT CHK

;DID WCE BIT SET?
:GO, GET RKCS, RKER
;THIS BIT (WCE) DID NOT SET

;WCE DID NOT SET ON SIMULATING
;WCE CONDITIONS

;1S RKCS CORRECT?

:YES, BRANCH
:GO, GET RKCS, RKER
sHE OR ERR BIT DID NOT SET WHEN
;WCE WAS SIMULATED
sCNTRL RESET
:WAS "WCE' BIT CLEARED?

;1F NOT, RETURN HERE.
sCNTRL RESET DID NOT CLEAR
;WCE BIT IN RKER
sCHECK IF

"ERR' BIT WAS CLEARED.

;NOT RETURN HERE.

:fiN:gL RESET DID NOT CLEAR
:RK

;;'*ttttttt'tt'it"t"'t't"tt""tt!tti"ttttttttt'tQttttttittt.

CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR
;*TEST 50
;*THIS TEST CHECKS THAT WHEN "STOP ON SOFT ERROR' BIT IS SET IN
;*RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION WILL
;*STOP AT THE END OF THE CURRENT SECTOR I~ IDE BIT IS CLEAR.
;*SOFT ERROR IS SIMULATED BY A WCE AS IN (HE PREVIOUS
s*TEST, THE PREVIOUS TEST & THE TEST WHICH WRITES DATA
;*BLOCK ON CYLINDER O, SECTOR O, SHOULD BE DONE PRIOR
;*T0 THIS TEST. A TWO SECTOR 'WRT CHK' WILL BE DONE,
;*CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING
;*WHICH A SOFT ERROR IS SIMULATED.

5441
5442
5443
5444

5451
5452
5453

100

010321
005202
001373

016510

5435
5436
5437
5438
5439
5440

5445
5446
5447
5448
5449
5450

PAGE

JoRRRAAARAAAAREA AR T

016634
016636

000004
104413

TST50:

SCOPE

CNT.RESET

AR R R AR RPRR TR RRTRRRE R R RR R R AR R Ry

;60, DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME
;1F THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

MD-11-CZRKKF,
CZRKKF PN

56454
5455
5456
5457
5458
5459
5460
5461
5462
5463
5464
5465
5466
5467
5468
5469
5470
547
5472
5473
5474
5475
5476
5477

5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502

5503
5504
5505
5506
5507
5508
5509

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11
150

30A(1052)
21-FEB-78
08:58
PAGE 101
CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR

SEQ 0100

;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF

016640

104421

016642
016646

013700
012737

TST.SIN

001332
170007

MOV
MoV

033360

RKCS,RO

;OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF
;SET DO DRIVE RESET TO CLR IT

#170007,0UTBUF+16 ;WCE

IS SIMULATED BY DRCPPING A BIT

sIN THE EIGTH WORD (WHICH IS ACTUALLY
;174007). NOTE THAT 256 WORD MEMORY

016654
016660
016666
016674
016700
016704

013701
012777
012777
010177
012710

016706

104065

104412

001350
177000
033342
162440
000407

162446
162442

MoV
Mov
MoV
MoV
MOV
CHKCRDY

DRIVAD,R1
#-1000,aRKWC

ERROR

#OUTBUF ,@RKBA
R1,aRKDA
#407,aR0

JBUFFER IS CREATED IN THE PREVIOUS TEST.
;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS
;FROM THIS BUS ADRES
;WITH THIS DISK ADRES,
;WRT CHK, GO, SSE

SEC 0,

CYL 0

;GO CHECK IF CONTROL RDY IS SET

;1F SO, SKIP THE EROR MESSAGE.

;CNTRL RDY DID NOT SET AFTER WRT

sCHK. A SOFT ERROR (WCE) IN

;SECTOR O SHOULD HAVE STOPPED

016710

022777

000001

162412

016716
016720
016726
016734

001407
012737
017737
104107

000001
162376

001162
001164

016736
016740

005201
020177

016744
016746
016752
016760

001406
010137
017737
104070

CMP
BEQ

MoV
Mov

ERROR

3%:

162374

001162
162362

28:

INC

CMP

BEQ

001164

MoV
MoV

ERROR

#1,3RKER

#1,3REGO
aRKER,SREG1
107

R1
R1,3RKDA

TST51
R1,$REGO
aRKDA, SREGT
70

;ALL CONTROL ACTION.
;CHECK ONLY

;BE SET?
:YES, BRANCH

°WCE'

BIT SHOULD

;GET EXPCTD RKER
sGET RKER RECVD
;ONLY BIT "WCE' OF RKER

;SHOULD BE SET (WCE WAS
ERROR
;SIMULATED ABOVE).

SIF IT'S NOT

sCHECK THAT RKDA INCREMENTED BY
;1 SECTOR ONLY IMPLYING THAT

sCNTRL ACTION DID STOP AFTER
;SOFT ERROR IN SECTOR 0
;s YES, EXIT
;GET EXPCTD RKDA
:GET RKDA RECVD
;RKDA SHOULD HAVE INCRMNTD

;BY 1 SECTOR ONLY, IT DIDN'T.
;WCE WAS SIMULATED IN THE
;FIRST SECTOR & A WRT CHK

;OF 2 SECTORS WAS ISSUED.
;CONTROLLER SHOULD STOP AFTER
sDETECTING WCE IN THE FIRST
HENCE RKDA SHOULD
;SECTOR.

s INCREMENT BY 1 SECTOR ONLY
SRR AR AR

;*TEST 51

AR RRAARARERRAARRARRERRRERARA
AP RRER AR
AR R AR

CHECK THAT RX11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET

;*THIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOFT
s*ERROR OCCURS, THEN ALL CONTROL ACTION WILL STOP AND A BUS
;*REQUEST (INTERRUPT) WILL OCCUR AT THE END OF THE CURRENT
;*SECTOR.

;*TEST.

SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOUS

PREREQUISITES FOR THIS TEST ARE THE SAME AS THOSE

MD-11-CZRKKF,
CZRKKF P

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11
51

K
8
30A(1052)
21-FEB-78
08:58
PAGE 102
CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET
:*FOR THE PREVIOUS TEST.

::.ttt'tt'tt".""""""Q"'Q"'."'i"""'."""'...'Q'i"'

016762
016764

000004

104413

1ST51:

SCOPE
CNT.RESET

:G0, DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRL;RESET'

ROUTINE.

A CONTROL RESET

:ISSUED AND AFTER A CERTAIN TIME

;1F THE 'CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE

016766

104421

016770

012737

170007

016776
017002
017010
017016
017022
017026
017032
017036
017044

013701
012777
012777
010177
013700
012720
012710
012777

001350
177000
033342
162316
001402
017060
000340
000507

017050
017054

004737

017056

000417

017060
017062
017064

022626
022626

017072
017074

005201
020177

017100
017102
017106
017114

001406
070137
017737
104003

017116
017116
017122
017126
017130

104420

104111

012777

012746
012746
000002

:PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10

TST.SIN

177777

033360

162324
162320

;CHECK

#170007 ,0UTBUF+16 ;WCE

1%:

MOV
MoV
MOV
Mov
MOV
MOV
MOV

DRIVAD,R1
#-1000,aRKWC
#OUTBUF ,aRKBA
R1,3RKDA
RKVEC,RO
#18,(RO)+
#340,aR0

#507 ,38RKCS

JSR
ERROR

PC,GT2RG
1M

CMP

(SP)+,(SP)+

CMP
Mov

(SP)+,(SP)+
#BADINT ,aRKVEC

162240

INC
cMp

R1
R1,3RKDA

001162
16222¢

BEQ
MoV
MoV

2%
R1,$REGO
@RKDA, $REG1

004600

000340
017130

162310

001164

ERROR

23:

64%:

SIN IS SET,

IS SIMULATED BY DROPPING A BiT

;IN THE EIGHTH WORD (WHICH IS 174007)
:NOTE THAT THE 256 WORD MEMORY
;BUFFER (STARTING AT OUTBUF) IS

WAT.INT 177777

021010

;SET DO DRIVE RESET TO CLR IT

MOV

MoV

162266

5510
5511

RK11

:CREATED IN A PREVIOUS TEST.

;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS
;FROM THIS BUS ADRES
;WITH THIS DISK ADRES,

SEC 0,

CYL 0

sSET UP INTERRUPT VECTOR FOR RK11
;SET PSW ON INTERRUPT

sWRT CHK, GO. SSE, IDE SET

sWAIT FOR INTERRUPT FROM RK11

;TIME=485 MS FOR 11/20,
;97 MS FOR 11/45

:11/05
;RK11 DID NOT INTERRUPT AFTER A SOFT
;ERROR (SIMULATED) IN SECTOR 0
sRESTORE

STACK POINTER

(FROM RK11

;POP STACK (FROM WAT.INT)
;RESTORE RK11 INTERRUPT VECTOR

INTRUPT)

sADRES FOR UNEXPECTED INTERRUPTS
:CHECK THAT RKDA INCREMENTED

;BY ONLY 1 SECTOR BEFORE INTERRUPT
sOCCURRED
;GET EXPCTD RKDA
:GET RKDA RECVD
:RKDA SHOULD HAVE

INCREMENTED BY

;1 SECTOR ONLY, IF ALL CNTRL ACTION
sHAD STOPPED AFTER SOFT ERROR

; (SIMULATED) IN SECTOR 0. IT DID NOT.
MoV
MoV
RTI

#340,-(SP)
#64%,-(SP)

SEQ 0101

MD-11-CZRKKF, RK11

CZRKKF .P11

gggg

017130

BASIC LOGIC

21-FEB~-78 08:51

005077

TEST 2

MACY11

30A(1052)

151

21-FEB-78

CHECK THAT RK11

162176

CLR

5568

08:58

aRK(CS

5570
5571
5572
5573
5574
5575
5576

;*TEST 52
CHECK THE MEX BITS IN RKCS
s*THIS TEST CHECKS OUT THE EXTENDED MEMORY BITS OF THE RKCS.
s*«THE RKBA IS SET TO 177776 AND A ONE WORD WRITE CHECK IS TRIED.
s*THIS COULD GIVE RISE TO NXM ERROR, BUT EVEN THEN THE RKBA
;*SHOULD OVERFLOW INTO THE MEX BITS. SIMILIARLY IT IS CHECKED
;*THAT THE OVERFLOWING BIT CAN MAKE THE MEX BITS COUNT
:+01,10,11,00.

5607
5608
5609
5610
5611
5612
. 5613
" 5614
5615

5616

5617
5618
5619

5620
5621

R AR

SCOPE
MOV
MOV
CLR
MOV

R R R

RKCS,RO
#-4 R
R2
#1%,SLPERR

000004
013700
012701
005002
012737

017156
017162
017166
017170

104417
004737
104016
104413

017172
017174
017202
017210

010210
012777
013777
012777

177777
001350
177776

017216

052710

000007

017222

104412

CHKCRDY

017224
017226
017230
017234
017240
017242
017246
017250

104065
010205
062705
042705
011004
042704
020504
001405

ERROR
MOV
ADD
BIC
MOV
BIC
CMP
BEQ

65
R2,R5
#20,R5
#100,R5
aR0,R4
#177717 R4
R5.R4
4%

017256
017262

010437
104112

MoV
ERROR

R4 ,$REG1
112

010537

001332
177774
017156

001110

000142
021436

000020
000100
177717

001162
001164

1%:

162132
162130
162120

3%:

AR AR

R AR R

017134
0171%*
017142
017146
017150

017252

TST52:

R R

;CLEAR THE IDE BIT

AR R R

5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606

103

5569

5577

PAGE

INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET

DELAY
142
JSR
PC,TSTRWS
ERROR
16
CNT.RESET

MOV
MOV
MOV
MOV

R2,aR0
#-1,3RKWC
DRIVAD,aRKDA
#177776,8RKBA

BIS

#7,3R0

MOV

RS5,$REGO

AR AR AN RN P AN R AR SRR AT RN

AR AR RN NN R R AR RA NN

JSET UP THE COUNT
JINITIALIZE MEX BITS T0 B SET IN RKCS
sSET RETURN ADRES FOR
sLUPING ON EROR (SW9)
;TIME DELAY
sWAIT FOR R/W/S RDY
sR/W/S RDY IS NOT SET
;60, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRLJRESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME
s1F THE "CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
sTHE PC IN ERROR MESSAGE IS THE
sPC WHERE 'CNT.RESET®' IS LOCATED.
sTHIS IS A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10
sSET MEX BITS (AS IN R2) IN RKCS
sWRT CHK 1 WORD
sTHIS DISK iDRES, SEC 0, CyL O
;THIS BUS ADRES. NOTE THIS BA
sIN CONJUCTION WITH MEX BITS OF RKCS
;WRT CHK, GO
;THERE MAY BE A NXM OR WCE BUT
sWHATEVER THE CASE RKBA SHOULD
;OVERFLOW MAKING THE MEX BITS COUNT
;GO CHECK IF CONTROL RDY IS SET

sIF SO, SKIP THE EROR MESSAGE.
JCNTRL RDY DID NOT SET AFTER WRT CHK

sMEX BITS SHOULD INCREMENT BY 1 TO THIS
sMASK OUT IDE BIT POSITION, IF SET
sGET RKCS
sMASK OUT ALL BITS EXCEPT MEX
;DID MEX BITS INCREMENT CORRECTLY?
:YES, BRANCH

sGET EXPCTD MEX BITS

sGET MEX BITS RECVD
sMEX BITS DID NOT INCREMENT AS
'EXPCTD' WHEN RKBA OVERFLOWED.

;NOTE THAT BIT POSITION 4 & 5
;REFLECT MEX BITS 0 & 1 IN THE

SEQ 0102

MD-11-CZRKKF,

CZRKKF P11
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

RK11

BASIC LOGIC

21-FEB-78 08:51

017264
017270
017272
017276
017300
017304
017310
017316

017703
010305
042703
001410
042705
010537
017737
104107

017320
017324
017326

062702
005201
001313

162040

MACY11
152

n
8
30A(1052)
21-FEB-78
08:58
CHECK THE MEX BITS IN RKCS

4s:

Mov

003001
177776
001162
162014

000020

58:

MoV
BIC
BEQ
BIC

R3,R5
#3001,R3
5%
#177776 ,R5

MOV
ERROR

aRKER,SREG1
107

;MASK WCE,DLT NXM BIT, IF SET
;BRANCH IF REST OF RKER CLR
sMASK NON-WCE BITS

sTHIS IS THE EXPCTD RKER

;GET RKER RECVD
;ERROR IN RKER.
IT SHOULD
;BE AS EXPECTED IN

;ERROR MESSAGE

#20,R2
R1
'
1%

SEQ 0103

;GET RKER

RS5,$REGO

ADD
INC
BNE

PAGE 104

sERROR MESSAGE.

aRKER,R3

MoV

001164

R R

s INCREMENT TO NXT MEX BIT
JHAVE U CHKD THE MEX BITS &4 TIMES?
:IF NOT, LUP BACK

TRANSFER FROM DISK TO TTY

;*TEST 53

st THIS TEST CHECKS THE HIGH ORDER BITS OF THE ADDRESS

;*
;*
:*
:*
MR

017330

000004

5648
5649
5650
5651
5652
5653
5654
5655
5656
ggg;

017332

017340
017346
017352

012737
005737
012737

5659
5660
5661
5662
5663
5664
5665
5666
5667
5668

017360
017362
017364
017372
017376
017402
017404
017404
017410

000520
022626
012737
012746
012746
000002

5669
5670
5671
5672
5673
5674
5675
5676
5677

TEST 2

012737

000001

001206

LINES. FIRST A ONE WORD (100) IS WRITTEN ON SECTOR,
2, CYL O. THEN IT IS READ BACK, BUT THE NPR IS DONE
NOT TO THE MEMORY, BUT THE TELETYPE BUFFER (TKS 177560)
AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY.

s*IF IT IS NOT, AN ERROR IS REPORTED. THIS TEST IS
;*SKIPPED ON AN 11/05.

AL AR

TST53:

SCOPE
MOV

lRi

#1,STIMES

iRt

;:00 1

)

ITERATION

;THIS CODE FINDS OUT IF THE CPU

;1S AN 11/05 OR ELSE.
;ON AN 11/05, RO (177700) CAN BE

013700
104413

017362
177700
004534

004534
000340
017404
001332

MoV

000004
000004

000004

5%:

64%:

#358,a84

TST
Mov

ax177700
#BADTMO,a#4

BR
CMP
MoV
MOV
MOV

TST54
(SP)+,(SP)+
#BADTMO a4
#340,-(SP)
#64%,-(SP)

RTI

;ADDRESSED AS A MEMORY LOCATION, BUT
:ON ANY OTHER CPU IF 177700 IS REFERENCED
;A TIME OUT WILL OCCUR.
;SET UP TIME OUT VECTOR
;REFERENCE RO
;RO WAS REFERENCED W/0 TIMEOUT

;HENCE 11/05

::SKIP THIS TEST
;RESTORE STACK POINTER
;RESTORE TIMEOUT VECTOR
'

;

'
MOV
RKCS.RO
CNT.RESET

]

:GO, DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
; ISSUED AND AFTER A CERTAIN TIME

;IF THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRR IF IT
017412

012701

033342

Mov

#0UTBUF ,R1

;OCCURS GO BACK TO TEST 10
L)

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF P11
21-FEB-78 08:51

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

COVR~NOWVSW

L A LV AV LV LV IV LV IV ]
SNNSNSNSNNNNN
PN b b e ed d —d b

5708
5709

017416
017422
017426
017434

017440

017444
017450
017452
017456
017460

017462
017464
017466
017470
017474
017500
017502

013704
01271
012777
013702
052702
010277
010114
012710
005003

001336

000100
177777

001350

MOV

161700

000003
18:

104416
104031

017504
017512
017516
017522

012777
010277
013714
005077

017526
017532
017534
017536
017540
017542
017544
017550
017554
017556

012710
005003
105710
100410
005203
001374
004737
010237
104416
104045

#100,aR1
#-1,aRKWC
DRIVAD,R2

MOV
MOV
MOV
CLR
TSTB
BMI

R2,aRKDA
R1,aR4
#3,3R0
R3
aR0
2%

JWRITE, GO
.

1%
PC,GT4RG
R2,$REG10

;GET RKCS, ER, DS

INC

020774
001202

177777
161622

161622

28%:

001144

161416

000065
38:

020774
001202

RKBA,R4

BNE
JSR
Mov
BRKDA4
ERROR

#2,R2

MoV

#-1,aRKWC

MOV
CLR
1STB
BMI
INC
BNE
JSR

#65,aR0
.
R3
aro
4%
R3
38
PC,GT4RG

BRKDA4
ERROR

MoV
MOV
CLR

MoV

032737

000100

017566
017570
017574
017600
017604
017610
017614
017620

001015
017705
010537
052705
010537
011437
011037

161350
001164
000100
001162
001166

104115

001170

001144

48:

R2,3RKDA
$TKS,aR4
asTKS

R2,.SREG10

BIT.

#100,87kS

BNE
MOV
MOV

TST54
@$TKS,RS
RS,SREG

MOV
MOV
MOV

RS,SREGO
@R ,SREG2
aR0,SREG3

BIS

ERROR

JWRITE THIS WORD
;WRITE 1 WORD

;ON CYL 0, SEC 2
;FROM THIS MEMORY LOC

.
017560

PAGE 105

MOV
MOV
MOV

BIS

000002
161670

105710
100410

005203
001374
004737
010237

N
8
MACY11 30A(1052)
21-FEB-78 08:58
153
TRANSFER FROM DISK TO TTY

;GET THE STARTING ADRES
;BREAK IT INTO DRV #, CYL, SUR, SEC #
;CNTRL RDY DID NOT SET AFTER

;WRITE OF 1 WORD ON CYL 0, SEC 2
sREAD 1 WORD
;FROM SEC 2, CYL 0
sINTO TTY STAUS REGISTER
;CLEAR TTY KEY BRD STATUS REG

;READ, MEX BITS SET

sGET THE STARTING ADRES

;BREAK IT INTO DR#, CYL, SUR, SEC#
;CNTRL RDY DIDN'T SET AFTER

;READ OF 1 WORD FROM CYL 0, SEC 2.

:IN EROR MSGE, <DSK-ADRES> GIVES
;ADRES WHERE READ BEGAN. 'RKDA'
;GIVES CONTENTS OF RKDA AT TIME OF EROR
;WAS THE CORRECT WORD READ INTO
sTHE TTY STATUS REGISTER?
::YES, EXIT
:GET THE WORD RECVD FROM DISK

#100.RS

;THIS WORD WAS EXPCTD

115

:DATA ERROR. A ONE WORD (100)

:STORE EXPCTD WORD
:GET RKBA
:GET RKCS

:NPR WAS TRIED FROM DISK TO

:TTY KEYBOARD STATUS REGISTER
;(17756) . BIT 6 SHOULD HAVE BEEN

: SET AS RESULT OF THIS
;BUT IT WAS NOT
SRR ARRY (32232

;*TEST 54

22222222222 2222222222222
R0l

CHECK THAT RKBA CAN COUNT CORRECTLY

SEQ 0104

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

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
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789

MACY11
154

017622
017624
017632
017634

104421
005001

012702

000002

017642

012737

017654

017650
017654
017660
017662
017664
017672
017674
017702
017710

013705
004737

104016
104413
012777
010115
013777
012777
104412

001336
021436

017712

104065

017636

000004

012737

000005

001206

161442

001350
000067

161436
161422

SCOPE

R TR RN

RN RAAARAAARARRRAARARERERRES

MOV

#5,8TIMES

;:00 5 ITERATIONS

CLR
Mov

R1
#2,R2

;INITIALIZE
;INITIALIZE

Mov

#1%,SLPERR

;SET RETURN ADRES FOR LUPING

TST.SIN

1$:

SEQ 0105

s*THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. IT IS SET
;*TO THE DESIRED INITIAL VALUE.
THEN A ONE WORD WRITE CHECK
;«1S TRIED, WITH MEX (MEMORY EXTENSION) BITS SET. IF THERE IS
:*NO MEMORY PRESENT (FOR CERTAIN BUS ADDRESSES),
THERE
;*WILL BE AN NXM ERROR STOPPING CONTROLLER ACTION. BUT RKBA
;*SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. IF IT
:*HAS NOT, AN ERROR IS REPORTED.

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

1STS4:

001110

177777

B 9
30A(1052)
21-FEB-78 08:58 PAGE 106
CHECK THAT RKBA CAN COUNT CORRECTLY

;CHECK

SIN SET,

SET DRV RESET

(VALUE OF RKBA)
C(INCMNTD VALUE OF RKBA)

:ON EROR

MoV
RKBA,R5
JSR
PC,TSTRWS
sWAIT FOR R/W/S RDY
ERROR
16
;R/W/S RDY IS NOT SET
CNT.RESET
;D0 CONTROL RESET
MoV
#-1,3RKWC
;WRITE CHK 1 WORD
MoV
R1,3R5
;THIS BUS ADRES

MOV

CHKCRDY

ERROR

DRIVAD,aRKDA

#67 ,a8RKCS
65

;SET DISK ADRES

sWRITE CHECK, GO, MEX BITS SET
;GO CHECK

CONTROL RDY

IS SET

;1F SO, SKIP THE EROR MESSAGE.
sCNTRL RDY DID NOT SET AFTER

;WRT CHK WAS TRIED TO NXM LOC

;U MIGHT WANT TO USE TESTS

017714
017720

005237
001417

017722

020215

017724
017726
017732
017736

001410
010137
011537
104017

001356
3s:

001162
001164

;CHECKING MEX BITS & NXM.

INC
BEQ

INDX1
5%

CMP

R2,3R5

;DID RKBA INCREMENT BY 1

BEQ
MOV
MoV

48
R1,$REGO
aR5,SREG!

;YES, BRANCH
;GET EXPCTD RKBA
;GET RKBA RECVD

ERROR

;ALLOW ONLY 5 ERRORS OF ABOVE KIND

sITS INITIAL VALUE?

FROM

sRKBA DID NOT INCREMENT BY

;1 FROM ITS INITIAL VALUE.

;ONE WORD WRT CHK WAS TRIED
:TO A NXM LOCATION. THERE
;WILL BE AN NXM ERROR,
;BUT STILL RKBA SHOULD
017740
017744
017746
017750
017752
017756

017760

005237
001405
060201
010102
062702
001336

001360
48:

000002

INC
BEQ

ADD
MOV

ADD
BNE
5%:

INDX2
5%

R2,R1
R1,R2

#2,R2
1%

; INCREMENT BY 1 FROM ITS
sINITIAL VALUE.
sALLOW ONLY 5 ERRORS OF
: THE ABOVE KIND

;SET NXT VALUE OF

RKBA

;SET EXPCTD VALUE OF RKBA
sALL DONE?
;DUMMY EXIT POINT

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

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
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845

TEST 2

9
c
30A(1052)
21-FEB-78 08:58
PAGE 107
CHECK THAT RKBA CAN COUNT CORRECTLY

MACY11
154

TTEST 55

R R R N R R R

R R R E R R R R R AR RN

R AR AR

SEQ 0106
RN

AR AR

CHECK FOR RK-05F

;*THIS TEST CHECKS RK-O5F TYPE DRIVES
;*TO INSURE THAT IF SEEKS ARE ISSUED ON ONE

017760
017762
017770
017774
017776
020002

000004
012737
005737
001403
004537
104120

000001
001404

001206

TST55:

;*DRIVE, THE OTHER DRIVE BECOMES BUSY
R

R R R R

SCOPE

MoV
TST

BEQ
JSR
ERROR

025160

020004

R R R N R R

A R

R R R

RN R AR R

#1,8TIMES
FFLAG
1%
?gércuicx

R R RN RN AR RO

;:00
;SEE
sNOT
sSEE

1 ITERATION
IF RK=-0S5F
F
IF OTHER GOES BUSY

1%:
R R

LeTEST 56

R R R R

A R R R R

R R AR R

RN RN RN

AN AR

AR AR

NIRRT

END OF PROGRAM

s*THIS IS NOT A TEST, BUT A LINKAGE PROVIDED TO PERFORM
;*THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT.
s*NOTE THAT THE NEXT TEST- WARDWARE POLLING LOGIC;*1S DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT.
;*DO NOT LOOP ON THIS °'TEST'.

AL AR Rl

020004
020006
020014

000004
012737
005237

000001
001352

020020
020024
020026

004737

021504

023737

001412

001352

020034
020036
020044

001405
062737
000137

020000
005040

001350

020050

005037

001112

104026

001206

7S156:

BTECP:

SCOPE

2223222232222 22 2]

MOV
INC

#1,STIMES
DRVDON

::D0 1 ITERATION
s INCREMENT THE COUNT FOR THE NUMBER

JSR
ERROR
(MP

PC,DRESEY

sRESET THE DRIVE

BEQ

1%
#20000,DRIVAD

ADD

1%:

NUDRV

CLR

SERTTL

AR AR

sR/W/S DIDN'T SET AFTER DRIVE RESET

DRIVS,DRVDON

JMP

;*TEST §7

;OF DRIVES THAT ARE CHECKED

sHAVE U TESTED ALL THE DRIVES
s THAT ARE PRESENT?
;1F YES, EXIT

;ADRES THE NXT POSSIBLE DRIVE
;GO BACK AND TEST THE NEXT

;DRIVE PRESENT

ARt

ittt

tds]s]

CHECK HARDWARE POLLING LOGIC

;*THIS TEST CHECKS THE HARDWARE POLL LOGIC, USING ALL THE DRIVES
;*PRESENT ON THE RK11. ATLEAST TWO DRIVES SHOULD BE PRESENT
;*TO DO A MEANINGFUL HARDWARE POLL.
SEQUENCE OF OPERATIONS IS
;*AS FOLLOWING:
;*1) NUMBER OF DRIVES ON THE RK11 IS ASCERTAINED.

;*2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), SEEK IS INITIATED
;*FOR ONE DRIVE AT A TIME, ONLY WHEN ‘CNTRL RDY' IS SET.
;*3) CPU PRIORITY IS DROPPED TO & SO THAT RK11 CAN INTERRUPT, THE INCOMING
;*INTERRUPT IS PROCESSED TO CHECK IF IT WAS DUE TO 'SEEK DONE' 8BY
;*ONE OF THE DRIVES.
;*4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED
;*AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT
;*INTERRUPT AFTER SEEK WAS DONE.

PR AR RARRERREARETRRNERRERRRRRRETRRRRRNTRTRETRTRTRTRRTRATRRRRE
R R RTRARRRRRRRREY

020054

000004

TSTS7:

SCOPE

MD-11-CZRKKF,
CZRKKF 11

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

RK11 BASIC LOGIC

21-FEB-78 08:51

012737
005237
001002
004737
005037
012700
005710
001405
005237
005710

000005

020056
020064
020070
020072
020076
020102
020106
020110
020112
020116
020120
020122
020124
020126
020132
020134
020140
020144
020146
020152
020156
020162

005720
005720
020027
002765
005037
005737
001002
000137
005237
013700
005037

020652
001434
001332
001356

020166

005037

001360

020172

104413

001440

025304
001436
001414

TEST 2

MACY11
157

001206

25%:

23%:

001436

001406
001412

MOV
INC
BNE
JSR
CLR
Mov

#5,8TIMES
SIZYET
25%
PC,SIZEF
PHYDRV
#DRIVO,RO

BEQ

22%

BPL
TST
TST

22%
(RO)
+
(RO)+

CLR

ODDEVN

BNE
JMP
INC
Mov
CLR

20%
$EOP
T56FLG
RKCS,RO
INDX1

TST

INC
TST

100001

001433

30A(1052)
21-FEB-78
08:58 PAGE 108
CHECK HARDWARE POLLING LOGIC

22%:

156:

20%:

15%:

CMP
BLT
TST

CLR

(RO)

PHYDRV
(RO)

;sCOUNT DRIVE
;RKOSF?

sNO

;NO

;DONT COUNT F TWICE

;NEXT DRIVE

RO, #DRIV7+1
23$

DRIVS

INDX2

CNT.RESET

sJALL YET
;NO

JEVEN DRIVES FIRST IF F
sANY DRIVES PRESENT?
:YES
;NO

sFLAG TO INDICATE:
; CINDX1)=0 POLLING DONE AFTER ALL
;DRIVES SEEK TO CYL 0
; CINDX1)=1 POLLING DONE AFTER ALL
sDRIVES SEEK TO CYL 4

;FLAG INDICATING TYPE OF INTERRUPT
sSET TO NON-ZERO TO INDICATE
sTHAT THE INTERRUPT IS DUE TO
:SEEK DONE
;GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS

5879

;ISSUED AND AFTER A CERTAIN TIME

5880
5881
5882
5883
5884

5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901

;:00 S ITERATIONS

;FOUNR RKOSF YET?
sYES
sFIND WHICH ARE RK=0SF
sNUMBER OF ACTUAL DRIVES
s TABLE
sDRIVE HERE+?

;IF THE 'CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

020174

020200
020202
020204
020206
020212
020216
020222
020226

020230
020232
020234
020240
020244
020244
020250

005737
001002
005002
000402

001356

012702
012701
012703
012705
005025
005203
001375
012703
012705

000200

012746

100340

012746

TST
BNE
CLR
BR
MOV
Mov
MOV
Mov

001414

177770

033342

CLR
INC
BNE

177770

033342

020256

1%:

INDX1
.6
R2
.46
#200,R2
#DRIVO,R1
#-10,R3
#OUTBUF ,R5

(R5)+
R3
.4

Mov
MoV

#-10,R3
#OUTBUF ,RS

MOV
Mov

#340,-(SP)
#64%,-(SP)

sTHE PC IN ERROR MESSAGE IS THE
;PC WHERE "CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRR IF IT
;OCCURS GO BACK TO TEST 10
;PERFORMING SEEKS TO CYL 4
:;gs. BRANCH
;SET ADRES FOR FOURTH CYLINDER
;INITIALIZE POINTER

;SET COUNT FOR 8 DRIVES
sINITIALIZE POINTER TO INDICATOR AREA
;CLEAR OUT THE 8-WORD INDICATOR
sAREA WHICH IS USED FOR DOING

;SOFTWARE POLLING LATER ON
;SET COUNT FOR 8 POSSIBLE DRIVES
;INITIALIZE POINTER TO INDICATOR AREA

SEQ 0107

MD~11-CZRKKF,

CZRKKF .P11
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912

5913
5914

5915
5916
5917
5918

5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938

5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957

020254
020256
020256
020262
020264
020266
020270
020274
020276
020302
020304

RK11

BASIC LOGIC

21-FEB-78 08:51
000002

032711
001433
005711
100012
032702
001404
005737
001423
000403

000001

001406

020316
020322
020324
020326
020330
020332
020334
020340

042725
005004
105710
100405
005204
001374
004737
104021

017777

020342

010277

160772

020346
020352
020354
020360
020362

012710
005721

000111

020364
020366
020372
020376
020402
020406
020412
020414
020416
020420
020422

005004
013702
012722
012712
013746
012746
000002
000240
005204
001375
000452

020424
020426

022626
005737

(020432

001021

010215

005203
001330

MACY11

157

648:

001406

005737
001017

062702

020306
020312

020314

TEST

168:
17%:

2%:

020774

020000

001402
020424
000340
001400
020414

38:

48:

5%:

188:

001360

6%:

30A(1052)

21-FEB-78

08:58

CHECK HARDWARE POLLING LOGIC

PAGE

109

RTI

BIT
BEQ
TST
BPL
BIT
BEQ
TST
BEQ
BR

#BIT0, (R1)
6%
{R1)
178
#BIT13,R2
16%
ODDEVN
4%
17%

;1S THIS DRIVE PRESENT?
:1F _NOT, BRANCH
: RKO6F?
;NO, CONTINUE
;DRIVE EVEN?
;YES
;D0 WE WANT 0DD?
:NO, SO DO NOT TEST
;ADD THIS DRIVE TO LIST

MOV

R2,(R5)

sSET UP THIS WORD IN THE
;INDICATOR AREA SHOWING THAT THIS
;DRIVE (AS IN BITS 13-15 OF R2)
;1S PRESENT

TST
BNE

ODDEVN
43

BIC
CLR
TSTB
BMI
INC
BNE
JSR
ERROR

#17777,(R5)+
R4
CL{Y
3s
R4
2%
PC.GT4RG
21

MoV

R2,3RKDA

MoV
TST
ADD
INC
BNE

#111,3R0
(R1)+
#20000,R2
R3
1%

CLR
MoV
Mov
MoV
MoV
Mov
RTI
NOP
INC
BNE
BR

R&
RKVEC,R2
#68, (R2)+
#340, (R2)
RKPRI,=(SP)
#18%,-(SP)

CMP
TST

(SP)+,(SP)+
INDX2

BNE

R4
18%
11%

;D0 WE WANT EVEN?
:NO, SO SKIP

sMASK OUT UNWANTED BITS (CYL,SUR,SEC BITS)

;IS CNTRL RDY SET?
:YES, BRANCH
:NO, WAIT FOR IT
:IF WAITED LONG REPORT ERROR
:60, GET RKCS,ER,DS,DA

sCNTRL RDY DID NOT SET AFTER ACCEPTING
;ADRES FROM PREVIOUS SEEK
sADRES THIS DRIVE, CYL 0 OR CYL 4
; (WHICHEVER THE CASE MAY BE)
:SEEK,GO,IDE SET

sNEXT DRIVE DATA

s INCREMENT DRIVE ADRES (BITS 15,14.13)

:TO NEXT ONE
:BRANCH BACK IF ALL DRIVES ARE
sNOT CHECKED TO SEE IF THE NEXT
;DRIVE IS PRESENT (& IF SO ISSUE A
;SEEK 1O IT)
;BY NOW SEEKS HAVE BEEN ISSUED
;TO ALL DRIVES PRESENT & POLLING
;HAS BEGUN

;SET ADRES FOR RK11 TO INTERUPT
;SET PSW ON INTERUPT
;DROP CPU PRIORITY TO 4 SO THAT
:RK11 CAN INTERUPT
;THIS IS A TIME LOOP DURING
;WHICH ALL DRIVES PRESENT SHOULD
; INTERRUPT
sBRANCH AND CHECK IF ALL AVAILABLE
sDRIVES INTERRUPTED CORRECTLY
;RESTORE STACK POINTER
sWAS THIS FIRST INTERRUPT
;DUE TO 'ADRES ACK' AFTER INITIATION
;0F SEEK?
;IF YES, CHECK THE FOLLOWING

SEQ 0108

MD-11-CZRKKF,
CZRKKF .P11

5958

5959

5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
597
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985

RK11

BASIC LOGIC

21-FEB-78 08:51

020434
020440
020442
020446

032710
001403
011037

020450
020454
020460
020462
020466

017701
032701
001403
010137

104076

104050

TEST 2

MACY11
157

BIT
BEQ

020000
001162

160652
160000

F
9
30A(1052)
21-FEB-78
08:58
PAGE
CHECK HARDWARE POLLING LOGIC

7%:

001162

#2000C,ar0
7%

SEQ 0109

sCHECK THAT SCP IS NOT SET
sBRANCH IF SCP CLEAR

MOV
ERROR

aR0,SREGO
76

Mmov

aRKDS,R1

glbOOOO.Rl

;RKDS BITS 15-13 SHLOULD BE CLR

MOV

R1,$REGO

;GET RKDS

gé;

ERROR

;GET RKCS
sAFTER THE FIRST

INTERRUPT WHICH

;1S DUE TO INITIATION OF SEEK, SCP
;SHOULD NOT HAVE SET. IT DID

;SEEK, WITH IDE SET WAS ISSUED TO
;ALL AVAILABLE DRIVES. THE FIRST

;INTERUPT IS DUE TO SEEK INITIATED
;BY FRST DRV. DRV ID BITS 13-15

s SHOULD BE CLR AFTR THIS FRST INRUPT.
020470

005237

020474

000734

020476
020502
020506
020512

013703
012705
017701
042701

020516
020520
020522
020524

020125
001411
005303

001360

001436
033342

8s%:

9%:

160614

017777

INC

INDX2

MOV
MOV
MoV

PHYDRV,R3
#OUTBUF RS
aRKDS ,R1

CMP
BEQ
DEC
BNE

R1,(R5)+
108
R3
b

BIC

n7rre e

5986

5987

5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013

110

001374

;THEY WERE NOT

THIS ERROR OCCURS.

;SET UP FLAG INDICATING

;THAT THE FIRST INTERRUPT DUE
:TO INITIATION OF SEEK WAS
sPROCESSED

;G0 BACK TO THE WAIT LOOP & WAIT

;FOR NEXT INTERRUPT FROM RK11

;SET COUNT OF # OF DRIVES PRESENT
JINITIALIZE POINTER
;GET RKDS

;MASK BITS 0-12
;THE FOLLOWING CODE IS A SOF TWARE
;POLL WHICH FINDS OUT WHICH DRIVE
;CAUSED THE PRESENT INTERRUPT
sAND SETS UP A FLAG BIT FOR
sTHE DRIVE #, INDICATING THAT
:THIS DRIVE # INTERRUPTED
;BRANCH
sHAVE U
:IF NOT
sREPORT

IF INTERRUPTING DRIVE WAS FOUND
CHKD ALL DRIVS PRESENT?
LUP BAK & CHK

ERROR IF THE INTERRUPTING

;DRIVE # (AS IN RKDS 13-15) WAS NOT

020526
020530
020534

010146
004737
012637

020540

104051

020542
020544

000401
005245

02054€
020550
020554

000707
013703
012705

MOV

021200

JSR
Mov

001162

ERROR

10%:

001436
033342

11%:

sGET WORD TO B SHFTD RT

:THE INTERRUPTING DRIVE, BUT THIS
sDRIVE IS NOT PHYSICALY PRESENT
sRKDS INDICATES AN INTERRUPTING

PC,SHFTRY
(RE)+,SREGO

BR
INC

108+2
-(RS)

MOV
MOV

;ANY ONE OF THOSE THAT ARE PRESENT

R1,-(R6)

PHYDRV,R3
#OUTBUF RS

;GO SHIFT IT
;THIS DRIVE # WAS RECVD IN RKDS AS

;DRIVE # (DURING H'WARE POLL) BUT
;THAT DRIVE

IS ACTUALLY NOT PRESENT

sSET UP FLAG INDICATING THAT

:THE INTERRUPT FOR THIS DRIVE
JCAFTER IT HAD COMPLETED ITS SEEK)
;WAS PROCESSED

;G0 BAK & WAIT FOR FURTHER INTRUPTS
;GET # OF DRIVES
JINITIALIZE POINTER

MD-11-CZRKKF, RK11

CZRKKF .P11

6014

6015

6016
6017
6018
6019
6020
6021
6022
6023
6024
28%2

6027
6028
6029
28%?
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

020560

BASIC LOGIC

21-FEB-78 08:51

TEST 2

105715

MACY11

157

14%:

020562
020564
020566
020572

001006
011546
004737
012637

020576

104052

020600
020604
020606

062705
005303
001364

0000G2

020610
020614
020616
020622

005737
001004
005237
000137

001356

021200
001162

13%:

001356
020166

30A(1052)

21-FEB-78

08:58

CHECK HARDWARE POLLING LOGIC

TSTB

(RS)

PAGE

111

;DID THIS DRIVE INTERRUPT?

BNE
Mov
JSR
Mov

138
(RS) ,=(R6)
PC,SHFTRT
(R6)+,$REGO

ERROR

ADD
DEC
BNE

#2 ,R5
R3
14%

;YES, BRANCH
;GET THIS DRIVE #
sSHIFT IT TO THE RIGHT
;THIS DRIVE # DID NOT INTERRUPT
;DURING H'WARE POLL
;ORIVE # (AS IN SREGO) DID NOT
;INTERRUPT DURING HARDWARE POLL
s INCREMENT POINTER TO THE NEXT FLAG
;CHKD FOR ALL DRIVES?
:1F NOT LUP BACK

TST
BNE
INC
JMP

INDX1
TSTEND
INDX1
15%

;DONE POLLING FOR SEEKS TO CYL 312?
;IF YES, EXIT
:IF NOT, INCREMENT FLAG
;GO DO IT
;INDICATOR TABLE
;THE 8-WORD INDICATOR TABLE USED IN
;THE FORMER PART OF THIS SUB-TEST
;IS LOCATED STARTING AT 'OUTBUF'.
;WORDS ARE SET UP TO INDICATE
;PRESENCE OF A DRIVE EG: IF
;DRIVES 0,1,2 ARE PRESENT, IT WILL
;LOOK LIKE
;OUTBUF :
000000 BITS 13,14,15
H
020000 CONTAIN THE
:
040000 DRIVE NO.
000000 REST 0°'S
:WHEN A DRIVE INTERRUPTS AFTER SEEK
;1S DONE BIT O OF THE CORRESPONDING
:INDICATOR WORD IS SET. THUS FOR THE
;ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED
sCORRECTLY THEN IT WILL LOOK LIKE:
H
128:
000001 BIT O SET
:
020001 TO INDICATE
:
040001 DR INTERRUPTED
:
000000 REST 0'S

21%:

INC
CHP
BEQ
JMP
CLR

ggg§

.SBTTL

END OF PASS ROUTINE

606‘

.':".".""'t""."'."'ti'tii'tfifi'"'tt'ittl’l"'l't‘!t"""t

6057
6058
6059
6060
6061

6065
6066
6067
6068
6069

020626
020632
020640
020642
020646

005237
022737
001402
000137
005037

001406
000002
020140
001434

001406

TSTEND:

ODDEVN
#2 ,00DEVN
21%
156
T56FLG

;NOW 0DD IF RKOSF
;SEE IF DONE
;ALL DONE
;TEST AGAIN

;*INCREMENT THE PASS NUMBER (S$PASS)
s*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM
;*TYPE "END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
;*IF THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO ST4

SEQ 0110

MD=-11-CZRKKF,
CZRKKF .P11

6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096

6097
6098

6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116

6117
6118
6119
6120
6121
6122
6123
6124
6125

020652
020652
020654
020660
020664
020670
020676
020700
020702
020704
020706
020710
020712
020716
020722
020724
020730
020734
020736
020740
020742
020744
020746
020750
020750
020752
020754
020757
020764
020772

RK11

BASIC LOGIC

21-FEB-78 08:51

000004
005037
005037
005237
042737
005327
000001
003022
012737
000001
020700
104401
013746
104405
104401

013700

001405
000005
004710
000240
000240
000240

000137
004456
377
015
050040
000043

TEST

MACY1:7
END OF

$EOQP:

001102
001206
001100
100000

001100
$EOPCT:

SENDCT:

020757
001100
020754
000042

$GET42:

H
9
30A(1052)
21-FEB-78
08: 58
PASS ROUTINE

SCOPE
CLR
CLR
INC

BIC
DEC

;:ZERO THE TEST NUMBER
;:ZERO THE NUMBER OF ITERATIONS
;: INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
;;L00P?

BGT

$DOAGN

s:¥ES
;;RESTORE COUNTER

. SENDMG
$PASS,-(SP)

;:TYPE "'END PASS #"

.WORD

MOV
.WORD
$EOPCT
TYPE
MOV
TYPDS
TYPE
MOV

BEQ

SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP

377
042412
051501

000
042116
020123

112

S$TSTNM
STIMES
$PASS
#100000,8PASS
(PC)+

RESET

SRTNAD:
$ENULL:
SENDMG:

PAGE

(PC)+,a(PC)+
1

.SENULL
ar42 RO

$DOAGN

PC.(RO)

::SAVE SPASS FOR TYPEOUT

::G0 TYPE-~DECIMAL ASCII WITH SIGN
;:TYPE A NULL CHARACTER
::GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR
;s CLEAR THE WORLD
::G0 TO MONITOR
;:SAVE ROOM

.WORD
.BYTE
.ASCIZ

a(PC)+
s sRETURN
ST4
-1,-1,0
s sNULL CHARACTER STRING
<15><12>/END PASS #/

.SBTTL

GT2RG:

ROUTINE FOR GETTING RKCS,RKER

;SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER

;7O SREGO, SREG1 RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE.
;CALL:
JSR
PC,GT2RG
.SBTTL

GT3RG:

ROUTINE FOR GETTING RKCS, RKER, RKDS

:GT3RG
;SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKDS
;70O SREGO, SREG1, SREG2 RESPECTIVELY BEFORE TYPING OUT AN
;ERROR MESSAGE.
;CALL:
JSR
PC,GT3RG
.SBTTL
;GT4RG

GT4RG:

ROUTINE FOR GETTING RKCS, RKER, RKDS, RaDA

;SUBROUTINE FOR TRANSFERRING CONTENTS OF RK(CS, RKER, RKDS

SEQ 0111

MD-11-CZRKKF,

CZRKKF .P11
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
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
GT4RG:

30A(1052)
21-FEB-78
08:58
PAGE 113
ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA

SEQ@ 0112

;RKDA TO SREGO, SREG1, SREG2, SREG3 RESPECTIVELY BEFORE
;TYPING OUT AN ERROR MESSAGE.

020774
021002
021010
021016
021024

017737
017737
017737
017737
000207

160340
160320
160314
160310

001170
001166
001164
001162

sCALL:

JSR

PC,GT4RG

GT4RG:
GT3RG:
GT2RG:

MOV
MOV
MOV

@RKDA,SREG3
aRKDS, SREG2
aRKER,SREG1

RTS

MOV

.SBTTL

sGET RKDA
:GET RKDS
;GET RKER

aRKCS,SREGO

TYERM:

SPECIAL ERROR MESSAGE ROUTINE

sTYERM

:THIS ROUTINE TYPES OUT "EROR AT PC=X'

;X IS THE PC WHERE THE
EXPLANATION AS TO WHAT HAPPENED IS GIVEN.
;1S USED ONLY FOR NON-MANUAL MODE OF THE PROGRAM.
sCALL:
JSR
TYERM
021026
021026
021032
021050
021050
021052
021054

104401

000406

021034

TYERM:

ézgss:

010346

104402
000207

TYPE

658

::TYPE

ASCIZ

STRING

BR
LASCIZ

648
::GET OVER THE ASCIZ
<15><12>/EROR,PC=/

mov

R3,-(SP)

TYPOC
RTS

.SBTTL

BDAO, BDA4:

THIS ROUTINE

BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE

:BDAO, BDA4

;THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO

DRIVE #,

;CYLINDER #, SURFACE, SECTOR #. THE ROUTINE IS CALLED BY USING EITHER

;BRKDAO OR BRKDA4, BOTH BEING 'TRAP' INSTRUCTIOS WITH THEIR LOWER BYTES
;ENCODED TO PROVIDE INDEXING TO "BDAO' OR ‘'BDA4'. BEFORE CALLING
;THE ROUTINE THE DISK ADDRESS WHICH IS TO BE BROKEN AS ABOVE
;1S DEPOSITED IN SREG10.
BRKDA4 PUTS THE
; "BRKDAQ' PUTS THE
DRIVE # INTO SREG4
;DRIVE # INTO SREGO
CYLINDER # INTO SREGS
;CYLINDER # INTO SREG1
SURFACE # INTO SREG6
;SURFACE # INTO SREG2
SECTOR # INTO SREG?7
;SECTOR # INTO SREG3
BRKDA4
BRKDAO
;CALL:
021056
021060

010046
012700

001172

BDAO:

MOV
MoV

RO,=(SP)
#SREG3+2,R0

;PUSH RO ONTO THE STACK
;SET UP POINTER

MD-11-CZRKKF,
CZRKKF .Pi1

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
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237

RK11

BASIC LOGIC

21-FEB-78 08:51

021064

000403

021066
021070

010046
012700

021074
021102

032777
001034

021104
021106

010146
010246
013701

021114
021120
021122
021126
021130
021132
021134
021136
021140
021144
021146
021150
021152
021156
021160
021162
021166

042701
010140
013701
006201
006201
006201
006201
010102
042702
010240
00€201

042702
010240
000301
042701
010140

021170
021172
021174
021176

012602
012601
012600
000002

021110

010102

TEST 2

MACY11 30A(1052)
21-FEB-78
08:58 PAGE 114
BREAK DISK ADDRESS INTO SEC, SUR,
BDAO, BDA4:

CYL,

DRIVE

BDAR

MoV

MOV

RO,-(SP)
#SREG7+2,R0

;PUSH RO ONTO THE STACK
;SET UP POINTER

BIT
BNE

#20000,aswR
2%

;INNIBIT TYPEOUT?
sYES, BRANCH TO EXIT POINT

R1,-(SP)

001202

MoV
MOV
MoV

R2,=(SP)
$REG10,R1

;PUSH R1 ON STACK
;PUSH R2 ON STACK
;GET THE ADDRESS WHICH

177760

BIC

BDA4:

001202
020000

160036

BDAR:

;EXTRACT SECTOR BITS 0-3
;MOVE SECTOR BITS TO SREG3 OR SREG7
sGET THE DSK~ADRES TO BE BROKEN

;RESTORE R2

MOV

(SP)+,R2
(SP)+,R1
(SP)+,RO

.SBTTL

SHFTRT: SHIFT RIGHT ROUTINE

MOV
MoV
ASR

001202

ASR
ASR
ASR

Mov

177776

BIC

MoV

ASR
MOV
BIC

177400

MoV

SWAB
BIC

177770

MOV

2%:

;HAS TO BE BROKEN

#177760,R1
R1,=-(RO)
$REG10,R1
R1
R1
R1
R1
R1,R2
#177776 ,R2
R2,=-(RO)
R1
R1,R2
#177400,R2
R2,-(RO)
R1
#177770,R1
R1,-(RO)

MoV
MOV

RTI

;SHIFT RIGHT & TIMES

;STORE THIS
sEXTRACCT THE SURFACE BIT
;MOVE SURFACE BIT TO SREG3 OR SRE®6

;STORE IT
sEXTRACT THE CYLINDER BITS

;MOVE CYLINDER BITS TO SREG1 OR SREGS
:SWAB HI-LO BYTES
;EXTRACT THE DRIVE #
;MOVE DRIVE # TO SREGO OR SREG4

sRESTORE R1
sRESTORE RO FROM THE STACK
;RETURN FROM INTERRUPT, EXIT THIS
sROUTINE

s SHFTRT

;THIS ROUTINE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED
;1S PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP
sFROM THE

021200
021206

021210
021214

021220
021222
021224

012737
000241
006066
005237
001373
000207
000000

177762
000002
021224

021224

STACK AFTER

THE

;CALL:

JSR

PC,SHFTRT

SHFTRT:

MOV
CLC
ROR
INC
BNE
RTS

#-15,2%

1%:

2%:

2(R6)
2%
1%

SHIFT

HAS BEEN DONE.

sSET UP A COUNT OF 13
sCLEAR THA C BIT
sROTATE RIGHT THE WORD TO B SHFTD
;SHIFTED 13 TIMES?
;IF NOT LUP BAK & SHIFT
;EXIT FROM THIS SUBROUTINE

SEQ 0113

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

TEST 2

K
9
MACY11 30A(1052)
21-FEB-78
08:58
SHFTRT: SHIFT RIGHT ROUTINE

6238
6239

.SBTTL
.SBTTL

115

6240
6241
6242
6243
6244
6245
6246
6247
6248
6249

.
;s CHKHE
:THIS ROUTINE CHECKS IF 'HE' OR '"ERR' BITS IN RKCS ARE SET. IF ANY OF THE
;TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A
sRETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL.
;AT THE TIME OF ENTRY 'DRIVAD' CONTAINS THE DISK ADDRESS WHICH IS TO
;BE BROKEN DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION
;1S SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET,

6252
6253
6254
6255
6256
6257
6258

; CHKHE1
:THIS ROUTINE CHECKS IF "HE' OR 'ERR' BITS IN RKCS ARE SET. IF ANY OF THE
;TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A
sRETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL.
;AT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH IS TO BE BROKEN
;DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION IS
;SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET,

ggg?

JRETURN IS MADE TO SKIP THE ERROR MESSAGE.

6261
gggg

021226
021232

010137
000403

001202

6264
6265
6266
6267
6268
6269
gg;?

021234
021242
021250
021252
021256

013737
032777
001467
004737
104416

001350
140000

021260

000207

001202
160062

CHKHE1: MOV
BR

R1,$REG10
CHE1

;SAVE THE DISK ADRES

CHKHE:
CHE1:

MOV
BIT
BEQ
JSR
BRKDA4

ORIV/D,SREG10
#140000,aRKCS
CRETRN
PC.GT4RG

RTS

;SAVE THE DISK ADRES
;IS 'HE' OR "ERR' BIT SET?
:NO
sGET RKCS,ER,DS, DA
;GO TO "BDA4' & BREAK CONTENTS O
;SREG10 INTO DR#, CYL, SUR, SEC BITS
sRETURN TO THE ERROR MESSAGE

.SBTTL

CHKDA:

020774

6272
6273
g%;g
6276
6277
6278
6279

CHECK IF RKDA INCREMENTED CORRECTLY

; CHKDA
;THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED
sCORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE.
;IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES

ggg?

6290
6291
6292
6293

'ERR'OR
'ERR'OR

SRETURN IS MADE TO SKIP THE ERROR MESSAGE.

gggg

6282
6283
6284
6285
6286
6287
6288
6289

CHKHE:
CHECK FOR
(HKHE1: CHECK FOR

PAGE

:OFs:KDéAAEE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE

021262
021266
021270
021274

013705
005205
020577
001455

001350

021276
021302

010537
104415

001202

021304
021312

017737
104416

160030

021314

000207

:"JSR'
CHKDA:

£t
MOV
INC
CHKDA1: CMP
BEQ

16004¢

001202

DRIVAD,RS
RS
RS.3RKDA
CRETRN

Mov
BRKDAO

RS,$REG10

MoV
BRKDA4

aRKDA,SREG10

RTS

sRKDA SHOULD INCREMENT TO THIS
:AFTER DATA TRANSFER IS DONE
:DID RKDA INCREMENT CORRECTLY?
;IF YES, BRANCH
;1F NOT, REPORT ERROR
sGET EXPCTD RKDA
:GO TO 'BDAO' & BREAK
CONTENTS OF
sSREG10 INTO DR #,CYL,SUR,SEC BITS

:GET ACTUAL RKDA
;GO TO 'BDA4' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;RETURN TO THE ERROR MESSAGE

SEQ 0114

MD-11-CZRKKF,
CZRKKF .P11

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
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345

6346
6347
6348
6349

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST 2

MACY11
CHKDA:

30A(1052)
21-FEB-78
08:58
PAGE 116
CHECK IF RKDA INCREMENTED CORRECTLY

LSBTTL

CHKWC:

CHECK

SEQ 0115

RKWC OVERFLOWED

s CHKW(

;THIS ROUTINE CHECKS IF RKWC OVERFLOWED TO 0. IF IT DID A RETURN IS MADE
:TO SKIP THE ERROR MESSAGE.

021316
021322

005777
001442

160012

021324
021332
021340

017737
017737
000207

160004
160002

IF NOT,THE CONTENTS OF RKWC AND RKDA ARE SAVED

sAND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE °'JSR' CALL.

CHKWC:

001162
001164

TST
BEQ

aRKWC
CRETRN

;DID WORD COUNT OVERFLOW TO 0?
:1F YES, BRANCH

Mov
MOV

aRKWC, SREGO
aRKDA,SREG1

;GET RKWC
;GET RKDA

RTS

;1F NOT, ERROR
;RETURN TO THE

ERROR MESSAGE

.SBTTL
CHKER:
CHECK RKER CONTENTS
: CHKER
sTHIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP
;THE ERROR MESSAGE. IF ANY BIT IS SET THE CONTENTS OF RKCS, RKER, RKDS ARE
;SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE.

021342
021346

005777
001430

157762

021350

004737

021002

021354

000207

CHKER:

TST
BEQ

aRKER
CRETRN

;DID ANY BIT
:NO, BRANCH

JSR

PC.GT3RG

;YES, ERROR
:G0, GET RKCS, ER, DS

RTS

;RETURN TO THE ERROR MESSAGE

s CHKECLR
:THIS ROUTINE CHECKS THAT RKER IS CLEAR.

IN RKER SET?

IF NOT, THE CONTENTS OF RKER

;ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE "‘JSRTM
sCALL.

021356

021362
021364

021372
021400

005777
001422
013737
017737
000207

157746

001330
157732

CHKECLR:

001162
001164

022777

000200

157722

013737
017737

001332
157706

001162
001164

062716
000207

000002

021402
021410
021412
021420
021426

000207

021430
021434

001407

IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN.
TST
BEQ
MoV
MoV
RTS

aRKER
CRETRN

sANY BIT IN RKER SET?
:NO

sRETURN TO THE ERROR MESSAGE

RKER, SREGO
dRKER,SREG1

;GET ADRES OF RKER
;GET CONTENTS OF RKER

s CHKCCLR
;THIS ROUTINE CHECKS THAT RKCS IS CLEAR. IF NOT, THE CONTENTS OF RKCS ARE
;SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. IF RKCS IS CLEAR THE
SERROR MESSAGE IS SKIPPED ON RETURN.
CHKCCLR: CMP
#200,aRKCS
;IS RKCS CLEAR?
BEQ
CRETRN
;YES
MoV
RKCS,$REGO
:SAVE ADRES OF RKCS

CRETRN:

Mov
RTS

aRKCS,SREGT
PC

;SAVE THE CONTENT OF RKCS
sRETURN TO THE ERROR MESSAGE

ADD
RTS

#2,(SP)
PC

:SKIP ERROR MESSAGE ON
:RETURN

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51

L
MACY11 30A(1052)
21-FEB-78
08:58
TSTRWS: WAIT FOR R/W/S RDY ROUTINE

gg;?

.SBTTL

6352
6353
6354
6355
6356
6357

SEQ 0116

TSTRWS: WAIT FOR R/W/S RDY ROUTINE

sWAITING TIME IS APPROX. 1040 MS FOR 11/20, APPROX. 208 MS FOR 11/45

sCALL:

6360
6361
6362
6363
6364
6365
6366
gggg

021436
021444
021450
021456
021460
021464
021466
021474

013777
005037
(032777
001007
005237
001371
017737
000207

6369
6370
6371
6372
6373
6374
6375
6376
gg;g

021476

062716

021502

000207

6397
6398
6399
6400
6401
6402
6403
6404
6405

117

; TSTRWS
;THIS ROUTINE WAITS FOR R/W/S RDY TO SET. WHEN IT SETS, THE RETURN PC
;1S INCREMENTED SO THAT ON RETURN (TO THE MAIN PROGRAM) THE ERROR
;MESSAGE FOLLOWING THE 'JSR' CALL IS SKIPPED. IF R/W/S RDY DOES NOT SET
sTHEN A RETURN IS MADE TO THE ERROR MESSAGE (FOLLOWING THE 'JSR' CALL).

2;28

6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389
6390
6391
6392
6393
6396
6395
6396

PAGE

001350
001366
000100

157674
157650

001366
157634

001162

000002

JSR

TSTRWS

TSTRWS: MOV
CLR
18:
BIT
BNE
INC
BNE
MOV
RTS

DRIVAD,3RKDA
TIMER
#100,3RKDS
2%
TIMER
1%
aRKDS, SREGO
PC

;ADRES THE DRIVE
sINITIALIZE COUNT
;DID R/W/S RDY SET?
:YES, BRANCH
;WAIT FOR R/W/S RDY
;ERROR IF IT'S NOT SET BY NOW
;GET RKDS
sEXIT (TO ERROR FOOLOWING "JSR TSTRWS')

2s:

ADD

#2,(SP)

RTS

;ADJUST RETURN ADRES TO SKIP OVER
;ERROR (FOLLOWING *JSR TSTRWS')
JEXIT

.SBTTL

DRESET: DRIVE RESET ROUTINE

;DRESET
;THIS ROUTINE DOES A DRIVE RESET ON THE DRIVE WHOOSE ADDRESS IS IN
sRKDA. MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED.
:IF THERE IS NOERROR (R/W/S RDY SETS WITHIN CERTAIN TIME) , THEN BEFORE
;EXITNG FROM THIS ROUTINE THE RETURN ADDRESS IS INCREMENTED BY 2, TO SKIP
;THE ERROR MESSAGE ON RETURN. IF THERE IS AN ERROR, THE 3 REGISTERS (CS,ER,DS)
;ARE STORED AND THEN A NORMAL EXIT IS MADE FROM THIS ROUTINE TO THE
sERROR MESSAGE FOLLOWING THE CALL FOR THIS ROUTINE.
;CALL:
JSR
PC,DRESET

021504
021510
021516
021524

005037
013777
012777
104414

001364
001350
000015

157622
157606

DRESET: CLR
COUNT1
MoV
DRIVAD,@3RKDA
Mov
#15,3RKCS
CNT.RDY

021526
021534
021536
021542
021544
021546
021550

032777
001013
012746
005216
001376
005726
005237

000100

157572

1%:

177770

001364

BIT
BNE
Mov
INC
BNE
TST
INC

#100,3RKDS
2%
#-10,-(SP)
(SP)
P (SP)+
COUNT1

;INITIALIZE THE COUNT
~ ;ADRES THE DRIVE
;DRIVE RESET, GO
;THIS IS A CALL FOR 'CN.RDY'
sROUTINE WHICH WAITS FOR CNT
;RDY TO SET. IF CNTRL RDY DOES
;NOT SET WITHIN 883 mS/ 11-20
;(176 MS FOR 11-45 WITH BIPOLAR)
;AN ERROR IS REPORTED
.
;:DID R/W/S RDY SET?

:PUSH COUNT ON SP
;COUNT IT DOWN
;POP UP $P
;1F NOT WAIT

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

6406
6407
6408

021554
021556
021562

001364
004737
000402

021570

000207

6409

021564

gfi}z

’

6410
6411
6412
6413
6414

062716

TEST 2

020774

000002

28:

6434

6435
6436
6437
6438
6439
6440

6441
6442

021572

021600
021606
021610
021614
021616
021620
021626
021630

021634

021652
021652
021654
021660
021662

013777

032777
001403
004737
000401
000002
032777
001373
104401

000406

011646
062716
104402
000755

6443

gz:g

001350

157540

001000

157520

020000

157312

1$:
2%:

118

SEQ 0117

;WAITED LONG?

#2,3R6

TSTSIN: CHECK *SIN' ROUTINE

177776

DRIVAD,3RKDA

BIT
BEQ
JSR
BR
RTI
BIT
BNE
TYPE

#SW13,aSWR
18
.65%

L.ASCIZ

/ERROR PC= /

::65%:
648:

#1000,aRKDS
1%
PC,DRESET
2%

648

MOV
ADD
TYPOC
BR

(SP),-(SP)
#-2,(5P)

.SBTTL

DELAY:

;ADRES THE DRIVE

;1S SIN SET?

;GO DO DRIVE RESET, SIN
:REPORT ERROR

SET

:INHIBIT TYPEOUT?
;1F YES, SKIP TYPEOUT
;:TYPE ASCIZ STRING

::GET OVER THE ASCIZ
;GET THE PC WHERE
:GO TYPE OUT PC

TIME DELAY ROUTINE

'TST.SIN'

IS LOCATED

;DELAY
;THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS
;ROUTINE IS AN ENCODED 'TRAP' INSTRUCTION.
sCALL:
DELAY
N
N IS ANY OCTAL NO. FROM 1 TO 177777
:THE DELAY PROVIDED IS 7.5N US (CONVERT N TO DECIMAL) FOR 11/20
:1.5N US FOR 11/45

‘
‘

:IF THE USER WANTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO
:GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N' FOLLOWING 'DELAY' SHOULD

22;;

6460

TSTSIN: MOV

021636

6452
6453

6461

RTS

ADD

021504

6446
6447
6448
6449
6450
6451

6456
6457
6458
6459

18
PC,GT4RG
28+4

PAGE

:TSTSIN
:THIS ROUTINE CHECKS IF *SIN' IS SET, IF IT IS SET A
:DRIVE RESET IS DONE TO CLEAR 'SIN' AND INITIALIZE POSITIONER.
;CALL:
TST.SIN
:1F ON DOING DRIVE RESET R/W/S RDY DOES NOT SET
A MESSAGE
ERROR PC=XXXXXX
IS GIVEN.
xxxxxx PC IN THE MAIN PROGRAM WHERE 'TST.SIN' CALL IS LOCATED.

6421
6422
2252
6426
6427
6428
6429
6430
6431
6432
6433

BNE
JSR
BR

LSBTTL

6417
6418
6419
6420

6425

N
9
MACY11 30A(1052)
21-FEB-78
08:58
DRESET: DRIVE RESET ROUTINE

:BE CHANGED TO SUIT THE INDIVIDUAL NEED.
021664
021672

017637
062716

000000
000002

021676
021702

005337
001375

001366

DELA.Y: MOV
ADD

a(SP),TIMER
#2,(SP)

18:

TIMER
1%

DEC
BNE

:GET "AMOUNT' (N) FOR WHICH
:DELAY IS TO BE PROVIDED
sADJUST STACK POINTER TO SKIP OVER 'N'
;COUNT DOWN TO 0

MD-11-CZRKKF,

RK11

CZRKKF .P11

21-FEB~-78 08:51

g::g

021704

BASIC LOGIC

TEST 2

MACY11

DELAY:

000002

8 10

30A(1052)

21-FEB-78

08:58

PAGE

119

TIME DELAY ROUTINE
RTI

SEC 0118
JRETURN TO MAIN PROGRAM

6464

6465

6466

222;

LSBTTL

WAT.INT:

WAIT FOR INTERRUPT ROUTINE

6469
6470
22;;

JWAT,INT
;THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT
sFROM RK11 CAN OCCUR. THE CALL IS AN ENCODED °'TRAP' INSTRUCTION.

22;2

sCALL:

6475
6476
6477
6478
6479
6480
6481

6501
6502
6503
6504
6505
6506
6507
6508
gg?g
6511
6512
6513
6514
6515
6516
6517

N IS ANY OCTAL NO. FROM 1 TO 177777

sWAIT LOOP TIME= APPROX. 7.5N US (CONVERT N TO DECIMAL) FOR 11/20
:APPROX. 1.5N US FOR 11/45
;UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT
sRK11 CAN INTERRUPT. NOTE THAT WHEN RK11 INTERRUPTS THIS ROUTINE
;IS EXITED WITHOUT POPPING THE STACK, THIS POPPING IS DONE AFTER GETTING
;7O RK11 INTERRUPT HANDLER.
;IF FOR ANY REASON THE WAIT LOOP TIME MAS TO BE CHANGED IT CAN BE DONE

223%

6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500

WAT.INT N

;BY SIMPLY CHANGING THE VARIABLE °'N' FOLLOWING THE 'WAT.INT'.
021706
021714

017637
062716

000000
000002

021720
021724
021730
021732
021736

013746
012746
000002
005337
001375

001400
021732

021740

000002

001366

WATINT: MOV
ADD

a(SP) ,TIMER
#2,(SP)

MOV
Mov
RTI
DEC
BNE

RKPRI,-(SP)
#1%,-(SP)

1%:

TIMER
1%

RTI

;GET "AMOUNT® (N) FOR WHICH
sWAITING IS TO BE DONE
;ADJUST STACK POINTER FOR CORRECT RETURN
;DROP CPU PRIORITY SC THAT RK11 CAN
: INTERRUPT
;WAIT FOR RK11 TO INTERRUPT
sIF INTERRUPT HAS NOT OCCURED BY NOW
;RETURN AND REPORT ERROR
SEXIT

sWATIME

021742

021744
021746
021750
021752
021754
021756

005000

005001
005200
001376
105201
001374
000207

WATIME: CLR

18:

CLR
INC
BNE
INCB
BNE
RTS

R1
RO
18
R1
1%
PC

.SBTTL

CHKCRDY:

CHECK CONTROL READY

;:CH.CRDY
sTHIS ROUTINE WAITS FOR THE CONTROL READY TO SET. iF THE CONTROL READY BIT
;DOES NOT SET WITHIN A CERTAIN TIME, THEN THE CONTENTS OF RKCS, RKER, RKDS
;AND RKDA ARE SAVED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE
;"JSR' CALL FOR THIS ROUTINE.
;1F CONTROL READY SETS THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE
sERROR MESSAGE ON RETURN.

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532

6533
6534
6535
6536
6537
6538
6539
€740
6541
6542
6543
6544
6545
6546
6547
6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561

6562
6563
6564
6565
6566
6567
6568
6569
6570
6571
6572
6573

TEST 2

C 10

MACY11 30A(1052)
21-FEB-78 08:58 PAGE
CHKCRDY:
CHECK CONTROL READY

sCALL:
:
:
021760
021764
021770
021772

005037
105777
100406

022000
022004

005237
001372
004737
000002

022006
022012

062716
000002

021776

001366

CH.CRDY:

157342

18:

001366
020774

CHKCRDY
ERROR
o

2%:

SEQ 0119

sRETURN HERE IF ERROR
sRETURN HERE IF NO ERROR

CLR TIMER

TSTB

aRK(S

;CNTRL RDY

INC
BNE
JSR

TIMER
1%
PC.GT4RG

sNO, WAIT
;SAVE RKCS, ER, DS, DA

ADD

#2,(SP)

sADJUST RETURN ADDRESS TO

.SBTTL

CON.RESET:

CONTROL REST ROUTINE

BMI

RTI

000002

120

RTI

JYES

SET?

:SKIP ERROR MESSAGE ON RETURN

s CON.RESET

sTHIS ROUTINE

ISSUES A CONTROL RESET AND WAITS FOR
WHEN THE FLAG SETS
AN EXIT IS MADE OUT OF THE ROUTINE.
IF 'CNTRL=RDY'
DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE

;THE "CNTRL ROY' FLAG TO SET.
CNT RDY DIDN'T SET

PC=XXXXXX RKCS=YYYYYY
1S GIVEN. NOTE THAT XXXXXX IS THE PC WHERE

;1S CALLED.

s CALL:

"CNT.RESET' OR "CNT.RDY'

CNT.RESET

.SBTTL

CNT.RDY:

WAIT FOR CONTROL READY ROUTINE

sCN.RDY
:THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT
sSETS EXITS OUT. IF WITHIN A CERTAIN TIME CNTRL RDY DOES

sNOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20

022014
022022

022030
022032
022036
022042
022044
022050
022052
022060
022062
022064
022066
022072

012777
012737
000402
005037
105777
100435
005237
001372
032777
001026

00000
177500

157310
001170

001170
157270

;175 MS FOR 11/45 WITH BIPOLAR MEMORY.
CNT.RDY
;CALL:

CN.RST: MOV
MOV

CN.RDY:

1$%:

001170
020000

157060

2%:

104401

001245
104401

000403

;:65%8:

#-300,8REG3
CN.RDY+4

sISSUE A CONTROL RESET
;sSET UP COUNT

:SKIP OVER CN.RDY

CLR

$REG3

BMI
INC
BNE
BIT
BNE

3%
$REG3
1%
#SW13,aSWR
3s

+YES, EX1T
;WAITED LONG?
;IF NOT, GO BAK & WAIT
sINHIBIT TYPEOUT?
;IF YES, SKIP TYPEOUT

,65%

;sTYPE ASCIZ STRING

TSTB

TYPE

022074

#1,9RK(CS

MSG3
TYPE
BR

LASCIZ

aRK(CS

648

<15><12>/PC=/

;DID CNTRL=-RDY SET?

::GET OVER THE ASCIZ

MD-11-CZRKKF,
CZRKKF P11

RK11

BASIC LOG.C

21-FEB-78 08:51

TEST 2

6574
6575
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6607
6608
6609
6610
6611
6612

022140
022140
022142
022150

032777
001111

6614

022152

000416

6616

022154
022160
022166
022172
022176
022200
022202
022206
022210
022210
022216
022220
022226
022230

013746
012737
005737
012637
000463
022626
012637
000423

000004
022200
177060
000004

032777
001404
127737
001462
105737

000400

15672¢

156714

001102

6613
6615

6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629

64%:

022102
022102
022104
022110

011646
162716
104402

000002

022112
022116

000404

104401

022120

022130
022130
022134

017746

022136

000002

104402

D 10
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 121
CNT.RDY:
WAIT FOR CONTROL READY ROUTINE
MOV

(SP) ,-(SP)

#2,(SP)

SUB

TYPOC

;GO TYPE

TYPE

;:67%:

66%:

157176

L67%

;:GET OVER THE ASCIZ

MOV

aRKCS,-(SP)

/ RK(CS=/

;GET RKCS
;GO TYPE

RTI

;RETURN FROM THIS

JROUTINE TO THE MAIN
;PROGRAM

:THIS PART OF THE PROGRAM CONTAINS THE
;FROM THE SYSMAC.SML PACKAGE

.SBTTL

SCOPE HANDLER ROUTINE

SRR

AR AR

IN THE MAIN PROGRAM,

s TYPE ASCIZ STRING

66%

_ASCIZ

; WHERE ERROR OCCURRED

TYPOC

3%:

SEQ 0120

AR AR

A d

COMMON ROUTINES CALLED

iiislists]

s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
s*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
s*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
seSW14=1
;eSW11=1
INHIBIT ITERATIONS

:*SW09=1
:*SW08=1

s*CALL
s
104407

$SCOPE:

040000

156770

18:

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

SCOPE
CKSWR

BIT
BNE

sHRRRRSTART OF

$XTSTR: BR

000004

001103

FOR THE

XOR

;:YES IF SW14=1

TESTER##Z##

MOV

S#ERRVEC,~-(SP)

;:SAVE

TST

ar177060

;:TIRE OUT ON XOR?

BR
CHP
MOV
BR

$SVLAD
(SP)+,(SP)+
(SP)+,3#ERRVEC
7%

;:G0 TO THE NEXT TEST
:sCLEAR THE STACK AFTER A TIME OuTt
;;RESTORE THE ERROR VECTOR
;:;LO0P ON THE PRESENT TEST

BIT
BEQ

#BIT08,aSWR
2%

::LOOP ON SPEC. TEST?
::BR IF NO

BEQ

$OVER

;:BR IF YES

6S:;#AFRNEND OF

CMPB

28:

SOVER

CODE

FOR CHANGE IN SOFT-SWR

;:LOOP ON PRESENT TEST?

;:1F RUNNING ON THE '"XOR’'' TESTER CHANGE

MOV

5%:

;sTEST

#BIT14,38SWR
6%

L [1]']

000004

;:SCOPE=]10T

TSTB

#5%,8FERRVEC

(SP)+,@#ERRVEC

::THIS INSTRUCTION TO A "'NOP'' (NOP=240)
THE CONTENTS OF

::SET FOR TIMEOUT

THE ERROR VECTOR

;;RESTORE THE ERROR VECTOR

CODE FOR THE XOR TESTER##FNA

aSWR,STSTNM
SERFLG

;:ON THE RIGHT TEST?

::HAS AN ERROR OCCURRED?

SWR<7:0>

MD-11-CZRKKF, RK11

CZRKKF .P11

6630
6631
6632

6633
6634
6635
6636
6637
6638
6639
6640

6641
6642

6643

6644
6645
6646
6647
6648
6649
6650
€651
6652
6653
6654

6655
6656

6657

6658

022234
022236
022244
022246

022254

022256
022264

022266

022272
022276
022300

022306
022310
022314
022316
022322
022330
022332
022340
022346
022352
022356

02236¢
022366
022374
022402
022406
022410

BASIC LOGIC

21-FEB-78 08:51
001421
123737
101015
032777
001404
013737
000443
105037
005037
000415
032777
001011

005737
001406
005237
023737
002021
012737
013737
105237

011637
011637
005037
112737
013777
013716
000002
000050

TEST 2

001115

001103

001000

156664

001110

001106

001103
001206

004000

000001
022410
001102
001106
001110
001210
000001
001102
001106

156632

3s:

001104
001104
001206

001115

156540

BEQ

::BR IF NO

#BI1T09,aSWR

MOV
BR
CLRB

CLR
BR
BIT
BNE

SLPADR, (SP)

001103

013777
005237

001102
001112

156512

022434
022442
022444
022452

032777
001404
023727

000100

156476

001112

000005

022454
022460
022466

011637
162737
117737

001116
000002
156424

—

101053

N N R

PROGRAM

;;FUDGE RETURN ADDRESS

R R R R R P

A RN

ITERATIONS

A R AR AR RN AR AR RAR AR R AR

ERROR WANDLER ROUTINE

;*SW15=1
;*SW13=1

HALT ON ERROR

;*SW09=1
'SH12 1

LOOP ON ERROR
CYCLE ON ERROR TO PREVIOUS 'SCOPE'
g=02.23£VE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE

SERROR:
7%:

(=1 =]
oo

001775

FIRST PASS OF

:
INHIBIT ITERATIONS
..INCREHENT ITERATION COUNT
;CHECK THE NUMBER OF ITERATIONS MADE
::BR IF MORE ITERATION REQUIRED
ssREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
;;COUNT TEST NUMBERS
::SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS
;sCLEAR THE ESCAPE FROM ERROR ADDRESS
;2ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;:DISPLAY TEST NUMBER
;sMAX. NUMBER OF

INMIBIT ERROR TYPEOUTS

TESTING ON SIRMULATOR

;'5006=1
;*GO TO SERRTYP
104407
105237

..IF

;sFIXES PS

SCOPE

;sCLEAR THE NUMBER OF ITERATIONS TO MAKE
;:ESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
;:BR IF YES

1%
SICNT
STIMES,SICNT
SOVER
#1,81CNT
SMXCNT ,STIMES
STSTNA
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,3ERMAX
STSTNM,SDISPLAY

TO LAST

;sZERO THE ERROR FLAG

$PASS

;*SW10=1

022412
022414
022420
022422
022430

;:SET LOOP ADDRESS

$TIMES
1%
#BIT11,3SWR
1%

RTI

.SBTTL

;:LO0OP ON ERROR?

SLPERR,SLPADR
SOVER
SERFLG

MoV

SEQ 0121

;:BR IF NO
;sMAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO

BEQ
INC
CHP
BGE
18:
MoV
MOV
$SVLAD: INCB
MOV
MoV
CLR
MOVB
$SOVER:
MOV
SMXCNT:

PAGE 122

3%
SERMAX,SERFLG
33

TST

6659
6660
6661
6662
6663
6664
6665
6666
6667

6668
6669
6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685

7%:

08:58

BEQ
CMP8
BHI

BIT

4%:

001100

001104
001206

E 10

MACY11 30A(1052)
21-FEB-78
SCOPE HANDLER ROUTINE

18:

CKSWR
INCB
BEQ
MOV

INC

BIT
BEQ
CHP
BHI

6%:

MOV

SUB
MOVB

sCHECK FOR SOFTWARE SWITCH REGISTER REQUEST

SERFLG
*SET THE ERROR FLAG
7%
‘DON'T LET THE FLAG GO TO ZERO
STSTNM,aDISPLAY :DISPLAY TEST NUMBER AND ERROR FLAG
SERTTL
;COUNT THE NUMBER OF ERRORS

' :gxrb.asun

:zgSELECT DRIVE SW SET?

SERTTL,#5

*MORE THAN 5 ERRORS ON THIS DRIVE?

(SP), SERRPC

;GET ADDRESS OF ERROR INSTRUCTION

ASERRPC,S1TEMB

:STRIP AND SAVE THE ERROR ITEM CODE

#2,SERRPC

*YES, DESELCT THE DRIVE

MD-11-CZRKKF,

CZRKKF .P11

6686
6687
6688
6689

6690
6691

6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711

6712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741

022474
022502
022504
022510
022514
022522
022524
022530
022532
022534

RK11

BASIC

21-FEB-78 08:51
032777
001004
004737
104401
023737
001403
005777
100002

104407

032777
001402
13716
032777
001402
013716
005737
001402
013716
000002

022602

005737

022606
022610
022614
022620
022622
022626
022632
022636
022642
022646
022652
022656
022664

001407

022674
022700
022704
022710
022714
022716
022722
022726
022730

020000

022734
001213
000042

TEST 2

F 10
MACY11 30A(1052)
21-FEB-78
08:58
ERROR HANDLER ROUTINE

BIT

156436

000046

2%:

156410

104401

005037
022626
000137
013746
162716

013746
004737
042716
062716
042776
062716
042736
012736
104401
013746
004737
104407
104401

005337
022626
000137

2%
PC,a#SERRTYP

CMP
BEQ

arni2,anié
.+10

BPL

TYPE

HALT

010000

156374

001106
001000

156360

001110
001210
001210

001434

3s:

020026

;SW 12 SET?

#5W12,aSWR
.46
SLPADR, (SP)

5%:

MOV
RTI

$ESCAPE, (SP)

8%:

TST

TS6FLG

BEQ

108

CLR
cmp
JMP
MoV

DRIVS
(SP)+,(SP)+
SEOP
DRVPIR,=(SP)

108:

000000

TYPOC
TYPE

.SBTTL
IR

DEC
CHP
JMP

;DROP THE DRIVE FROM THE
sSELECTION LIST
;DRIVE ADDR TO STACK
sRIGHT JUSTIFY

DRIVAD,-(SP)
PC,SHFTRT

sMAKE EVEN

;POINTS TO TABLE FOR EVEN DRIVE
;TEST REMAINING DRIVE AS RKOSE
;POINT TO ODD
;TEST AS RK-05E
sINDICATE THIS DRIVE DROPPED

#BIT15,8(R6)
#2,(R6)
#BIT15,a(SP)+
#BIT12,3(SP)+

MSG4
DRIVAD,~-(R6)
PC,SHFTRT

;PUSH DRIVE # ON STACK
sSHIFT IT BEFORE TYPING
;TYPE OUT DRIVE #

MSG6

;DECREMENT # OF DRIVES PRESNT
sRESTORE STACK

DRIVS
(SP)+,(SP)+
BTEOP

ERROR MESSAGE
A

;RETURN

.MSGS5

#1,(R6)
#DRIVO, (SP)

TYPE
MoV
JSR

;FUDGE RETURN ADDRESS FOR ESCAPE

;IF EROR WAS IN LAST TEST (POLL)
;DROP ALL THE DRIVES

BIC
ADD
BIC
ADD

MoV

9%:

#2,(SP)

BIC

:NO, BRANCH
;ADJUST RETURN ADRES FOR Sw12
;LOOP ON ERROR SWITCH SET?
:BR IF NO
;FUDGE RETURN FCR LOOPING
;CHECK FOR AN ESCAPE ADDRESS
;BR IF NONE

SuB

MoV
JSR

001315

001412

sSKIP IF CONTINUE
sHALT ON ERROR!
;CHECK FOR SOFTWARE SWITCH REGIATER REQUEST

SLPERR, (SP)
SESCAPE

001412

000002

asSwWR

48:

TYPE

020652
001354

;ARE WE IN ACT11 AUTO MODE?

MOV
TST

BEQ

SEQ 0122

;YES, HALT ON ERROR
sHALT ON ERROR?

#5W09,3SWR

BEQ

123

sSKIP TYPEOUT IF SET
;SKIP TYPEOUTS
;GO TO USER ERROR ROUTINE

.SCRLF

BIT

001303

001350
(021200
000001
001414
100000
000002
100000
010000
001272
001350
021200

CKSWR
BIT
BEQ
MoV

PAGE

#SW13,a5WR

BNE
JSR

181

000000

022536
022544
022546
022552
022560
022562
022566
022572
022574
022600

022670

LOGIC

;GO BACK TO THE END OF PROGRM

s LINKAGE.

TYPEOUT ROUTINE

TR PR

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

AR RO RRS

;*THIS ROUTINE USES THE "“ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR [S TO BE REPORTED. IT THEN OBTAINS, FROM THE ''ERROR TABLE'' (SERRTB),
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR.
022734

SERRTYP:

MD-11-CZRKKF,
CZRKKF .P11

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

022734
022740

RK11 BASIC LOGIC
21-FEB-78 08:51

104401
010046

TEST

G 10

MACY11 3CA(1052)
21-FEB-78
08:58
ERROR MESSAGE TYPEOUT ROUTINE

001213

TYPE
MOV

LSCRLF
RO,-(SP)

022742
022744
022750

005000
153700
001004

001114

CLR
BISB
BNE

RO
afSITEMB,RO
1%

022752

013746

001116

MOV

$ERRPC,~(SP)

022756
022760
022762
022764
022766
022770
022772
022776
023002
023004
023006
023010
023014
023020
023022
023024
023026
023032
023034
023036
023040
023044
023046

104402
000426
005300
006300
006300
006300
062700
012037
001404
104401
000000
104401
012037
001404
104401
000000
104401
011000
001004
012600
104401
000207

023046
023050
023052
023054
023056
023062
023064

013046
104402
005710
001770
104401
000771
020040
023070

18:

001442
023006

001213
023024

001213

2s:
3%:

48:
5%:
68:
78:

023064
000

8%:
.SBTTL

TYPOC
8R
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
LMORD
TYPE
MOV
BEQ
TYPE
.WORD
TYPE
MoV
BNE
Y
TYPE
RTS

MoV
TYPOC
ST
BEQ
TYPE
BR
AN
.EVEN

6%
RO
RO
RO
RO
#SERRTB,RO
(RO)+,2%
3s
O
,$CRLF
(RO)+,48
5%

O
LSCRLF
(RO) RO
7%
(SP)+,RO
LSCRLF
PC

#(RO)+,~(SP)
(RO)
6%
8%
7%
1
7

PAGE

124

SEC 0123

::"CARRIAGE RETURN'' & '‘LINE FEED"
::SAVE RO

;:PICKUP THE ITEM INDEX

;:1F ITEM NUMBER IS ZERO, JUST
;:TYPE THE PC OF THE ERROR
:SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS
;:G0 TYPE--OCTAL ASCII(ALL DIGITS)
::GET OUTY
;:ADJUST THE INDEX SO THAT IT WILL
i:
WORK FOR THE ERROR TABLE

;;FORM TABLE POINTER
;:PICKUP "ERROR MESSAGE'' POINTER
::SKIP TYPEOUT IF NO POINTER
;:TYPE THE "ERROR MESSAGE'’
::"ERROR MESSAGE'' POINTER GOES HERE
;:"'CARRIAGE RETURN'' & '"LINE FEED"
;:PICKUP ‘'DATA HEADER'' POINTER
::SKIP TYPEOUT IF 0
::TYPE THE '‘DATA HEADER''
::"'DATA HEADER'' POINTER GOES HERE
::"CARRIAGE RETURN'' & ''LINE FEED"
::PICKUP ''DATA TABLE'' POINTER
;:6G0 TYPE THE DATA
::RESTORE RO
::"CARRIAGE RETURN'' & '‘LINE FEED"
: :RETURN

::SAVE @a(RO)+ FOR TYPEOUT
;:6G0 TYPE--OCTAL ASCII(CALL DIGITS)
::1S THERE ANOTHER NUMBER?
::BR IF NO
::TYPE TWO(2) SPACES
::LO0P
;:TWO(2) SPACES

TYPE ROUTINE

6784

AR R

6785
6786
6787
6788

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
;*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
:*NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

2;83
6791
6792

6793
6794
6795

6796

6797

;*NOTE3:
b

N R R R

;«CALL:
:*1) USING A TRAP

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

RN R AR AR RN RN

$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*
;*OR
T

TYPE
TYPE

MESADR

INSTRUCTION

LMESADR

;:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

MD-11-CZRKKF,
CZRKKF .P11

6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832

6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853

023070
023074
023076
023100
023102
023104
023110
023112
023114
023116
023120
023124
023126
023132
023134
023140
023142
023144
023146
023150
023154
023156
023162
023166
023170

023174
023200
023202
023206
023212

RK11

BASIC

LOGIC

21-FEB-78 08:51
105737
100002

000000
000407
010046
017600

112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726

TEST

001157

MACY11
TYPE

ROUTINE

$TYPE:

1%:

000002

2%:

000002

023304

123726

023240
001156

000755
004737
001350
013746

000001

105337

023240
023304

000770

TST

RTI
CMPB

5%:
68:

001154

105366

002770
004737

BNE

A ¥

000200

105037

MOVB

MOV

104401

001213

TSTB
BPL
HALT
BR
MOV
MOV

608%:
3%:

000011

H 10

21-FEB-78

30A{1052)

ADD

BEQ
CMPB
BNE
TST
TYPE
SCRLF
CLRB
BR
JSR
CMPB
BNE
MOV

78:

DECB

BLT
JSR

DECB
BR

$TPFLG
1%

3%
RO,=(SP)
RO
@2(SP)
(RO)+,=-(SP)

08: 58

PAGE

125

SEC 0124

;:1S THERE A TERMINAL?
;sBR IF YES
ssHALT HERE

;s LEAVE

NO TERMINAL

(SP)+,RO
#2,(SP)

;:SAVE RO
;sGET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTER TO BE TYPED ONTO STACK
2:BR IF IT ISN'T THE TERMINATOR
;s
1F TERMINATOR POP IT OFF THE STACK
;:RESTORE RO
::ADJUST RETURN PC

#HT, (SP)

s ;BRANCH IF <HT>

43
(SP)+

; sRETURN

#CRLF, (SP)

; sBRANCH IF NOT <CRLF>

(SP)+

::POP

SCHARCNT

;:CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER

PC,STYPEC
SFILLC, (SP)+

S$NULL ,-(SP)

1(SP)

PC,STYPEC

SCHARCNT
7%

<CR><LF> EQUIV

;:;TYPE A CR AND LF

::G0 TYPE THIS CHARACTER

::1S IT TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF STACK
;G0 TYPE A NULL
2:D0 NOT COUNT AS A COUNT
;:LOOP

;HORIZONTAL TAB PROCESSOR

023214
023220
023224
023232
023234
023236
023240
023244
023246
023254
023262
023264
023270
023272
023300
023302
023304
023306

112716
004737
132737
001372
005726
000724
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

000040

023240
000007

023304

8%:
9%:

MOvVB
JSR

BITB
BNE
TST

155704

000002
000015

S$TYPEC:

155676
000002

02330¢
000012

000002

18:

1STB
BPL
MOVB
CMPB
BNE
CLRB
BR
CMPB
BEQ

INCB

$CHARCN
: .WORD
T
STYPEX: RTS

.SBTTL

#' ,(SP)
PC,STYPEC

#7 ,SCHARCNT
9%
(SP)+

a$TPS
STYPEC

2(SP),asTPB

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

;sREPLACE TAB WITH SPACE

;s TYPE A SPACE

;;BRANCH IF NOT AT
;:TAB STOP
;sPOP SPACE OFF STACK
;:GET NEXT CHARACTER

:sWAIT UNTIL PRINTER IS READY

;:LOAD CHAR TO BE TYPED INTO DATA REG.
::1S CHARACTER A CARRIAGE RETURN?
; sBRANCH IF NO
::EE?;-CLEAR CHARACTER COUNT
HH
::1S CHARACTER A LINE FEED?
;:BRANCH IF YES

; :COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MD-11-CZRKKF,

CZRKKF .P11

6854
6855
6856
6857
€858
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

6898

6899
6900
6901
6902
6903
6904
6905
6906

6907
6908
6909

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

l 10
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 126
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

SEQ 0125

.'Q'Q"'!"Q""""""'."Q"'Q"""'Q'.'t"tlttt't.'t".t"

'THIS ROUTINE

IS USED TO CHANGE A 16-BIT BINARY NUMBER

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE

TO A 5-DIGIT

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
s*REPLACED WITH SPACES.

s*CALL:

MOV

= (SP)
NUM,

;:PUT THE BINARY NUMBER ON THE STACK
;:G0 TO THE ROUTINE

MoV
MOV
MOV
MOV
MoV
MoV
MOV
BPL
NEG
MOVB

RO,-(SP)
R1,-(SP)
R2,~-(SP)
R3,-(SP)
RS5,=-(SP)

;:PUSH
;:PUSH
;:PUSH
;sPUSH
;:PUSH

TYPDS

023310
023310
023312
023314
023316
023320
023322
023326
023332
023334
023336
023344
023346
023352
023356
023360
023364
023366
023370
023372
023374
023376
023400
023402
023404
023406
023410
023412
023420
023424

023430
023432
023434

023440
023442
023444

023446
023450
023452
023454
023462
023464
023466
023470
023472

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
005002
016001
160105

$TYPDS:

020200
000020
000055

000001

023524
000040

2%:

023514

3s:

002402
005202
000774
060105
005702
001002

105716
100407
106316
103003
116663

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601

1%:

4%:

5%:
000001
000060
000040

177777

6%:
7$:

CLR

Mov

suB
BLT
INC
8R
ADD
TST

BNE
TSTB
BMI
ASLB
BCC
MOVB
BIS
BIS
MOvVB
TST

000010

CMP
BLT
BGT

8%:
177777

CLR

MOV
MOVB

177776

9%:

Mov
BR
TSTB
BPL
MovB

CLRB

MoV
MoV
MOV
MoV

RO ON
R1 ON
R2 ON
R3 ON
RS ON

STACK
STACK
STACK
STACK
STACK

#'=-,1(5P)
RO
#SDBLK ,R3
#' ,(R3)+
R2
$DTBL (RO) ,R1

;:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
:sMAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.
:sZERDO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
;:GET THE CONSTANT

43
R2

;:BR IF DONE
;; INCREASE THE BCD DIGIT BY 1

#20200,-(SP)
20(SP) RS
1%

R1.RS
3%

R1,RS
R2

(SP)
7%
(SsP)

(31
1(SP),=1(R3)

#'0,R2
*" R2

R2.(R3)+
(RO)+
RO, #10
2%
8%
RS5.R2
6%
(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R2
(SP)+,R1

;;FORM THIS BCD DIGIT

;:ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0

::FALL THROUGH IF 0
;:STILL DOING LEADING 0°'S?

;:BR IF YES
::MSD?
;: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 OUTPUT BUFFER
;3JUST INCREMENTING
;:CHECK THE TABLE INDEX
;:G0 DO THE NEXT DIGIT
;G0 TO EXIT
::GET THE LSD
::G0 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON-ZERO?
;sBR IF NO
;sYES==SET THE SIGN FOR TYPING
;:SET THE TERMINATOR

;:POP
::POP
::POP
::POP

STACK
STACK
STACK
STACK

INTO RS
INTO R3
INTO R2
INTO R1

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922

6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949

6950
6951
6952
6953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965

023474
023476
023502
023510
023512
023514
023516
023520
023522
023524

012600
104401

016666
012616
000002
023420
001750
000144
000012
000004

023524
000002

TEST 2

J 10
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 127
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
MOV

(SP)+ RO

;:POP STACK INTO RO

MOV

2(SP) ,4(SP)

s sADJUST THE STACK

TYPE

000004

MOV
RTI

$DTBL:

.SDBLK

(SP)+,(SP)

10000.
1000.
100.

;:NOW TYPE

10.
.BLKW

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

THE NUMBER

;sRETURN TO USER

$DBLK:

SEG 0126

R T
T
T T T T e Y

;*THIS KOUTINE

IS USED TO CHANGE A 16-BIT BINARY 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:

H
M
3
A

MoV
TYPOS
.BYTE
.BYTE

L
&y

NUM,-(SP)
N

; sNUMBER TC BE TYPED
;s CALL FOR TYPEOUT
;:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
;:M=1 OR O

;:1=TYPE LEADING ZEROS
::0=SUPPRESS LEADING ZEROS

. %

;*$STYPON-=--<-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR STYPOC

s*CALL:
5

MOV

TYPON

NUM,-(SP)

s :NUMBER TO BE TYPED
;:CALL

FOR TYPEOUT

:'%l'PO("'ENTER HERE

023534
023540
023546
023552
023556
023560
023566
023574
023602
023604
023606
023610
023614
023616
023622
023626
023632
023636
023640
023642

017646
116637
112637
062716
000406
112737
112737
112737

010346
010446
070546
113704
005404
062704
110437
113704
016605
005003
006105
000404

000000
000001
023761
000002

000001
000006
000005

023757

023757
023761
023756

*CALL:

L []")

TYPOC

$TYPOS: MOV

MOvVB

MOVB
ADD
BR

$TYPOC: MOVB
MOVB
$STYPON: MOVB
MOV

MoV
MOV

023761

ngfl
N

000006
023760

ADD

023757
000012
1%:

MOVB
MOVB
MOV
CLR
ROL
BR

FOR TYPEOUT OF A 16 BIT NUMBER

NUM,-(SP)

;sNUMBER TO BE TYPED

a(SP),-(SP)

;:PICKUP THE MODE

(SP)+ ,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,30M0DE +1
#5,80CNT
R3,-(SP)

;;NUMBER OF DIGITS TO TYPE
;sADJUST RETURN ADDRESS

1(SP),SOFILL

R4 ,~-(SP)
RS,-(SP)

:EHODE‘I.Rk
#6 R4

R4, SOMODE
SOFILL,R4
12(SP) RS
R3
RS
3%

;:CALL FOR TYPEOUT

;:LOAD ZERO FILL SWITCH

2SET THE ZERO FILL SWITCH
;:SET FOR SIX(6) DIGITS
;:SET THE ITERATION COUNT
;:SAVE R3

::SAVE Ré
s :SAVE RS

;sGET THE NUMBER OF DIGITS TO TYPE
:sSUBTRACT IT FOR MAX.

ALLOWED

;:SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;sPICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
:sROTATE MSB INTO '‘C"
::G0 DO MSB

MD-11-CZRKKF,
CZRKKF .P11

6966
6967
6968
6969
6970
6971
6972
6973
6974

6975

6976
6977
6978
6979
6980
6981
6982

6983

6984
6985
6986
6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
6995
7000
7001
7002
7003
7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018
7019
7020
7021

023644
023646
023650
023652
023654
023656
023662
023664
023670
023672
023674
023676
023700
023704
023710
023714
023720
023724
023726

023730
023732
023734
023736
023740
023742
023750
023752
023754
023755
023756
023757
023760

RK11

BASIC

LOGIC

21-FEB-78 08:51
006105
006105
006105
010503
006103
105337
100016

042703
001002
005704
001403
005204
052703
052703
110337
104401
105337

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

TEST

08:58
(ASCII) AND TYPE

2%:

ROL
ROL
ROL
MOV

RS
RS
RS
RS.R3

;;FORM THIS DIGIT

DECB
BPL

$OMODE
7%

;s TYPE THIS DIGIT?
::BR IF NO

BINARY TO OCTAL

ROL

177770

4%:

023754
023756

#177770,R3

;sGET RID OF JUNK

1S7T
BEQ

R4
5%

7%:

TYPE
DECB

.8%
SOCNT

MOVB

123727

001134

024026
024032

104401
104401

024647
024654

001456

000176

001140

ssMAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING

;:G0 TYPE THIS DIGIT
;s COUNT BY 1

BGT

P4 3

::BR IF MORE TO DO

BR
MOV

2%
(SP)+ RS

6%
R4

;:BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK

;:G0 DO THE LAST DIGIT
; :RESTORE RS

(SP)+,R4

MOV
MoV

: ;RESTORE R4

(SP)+,R3
2(SP),4(SP)

;sRESTORE R3
;:SET THE STACK FOR RETURNING

8%:

Mov
RTI
.BYTE

;sSTORAGE FOR ASCII DIGIT

SOCNT:
$OFILL:
SOMODE:

.BYTE
.WORD

O
O

;sZERO FILL SWITCH
s sNUMBER OF DIGITS TO TYPE

022737
001074

;:DON'T SUPPRESS ANYMORE 0°'S

R3,8%

MOV

.BYTE
.BYTE

TTY

.ENABL

042716
022726
001062

5%:

AR AR AR

023762
023770
023772
023776
024000
024004
024010
024014
024016
024024

::TEST FOR 0

: sSUPPRESS THIS 0?
;:BR IF YES

#'0,R3
#' ,R3

.SBTTL

105777
100071
117746

INC

000004

SEQ 0127

BIC

BLT
INC

000002

128

;sGET LSB OF THIS DIGIT

BIS
BIS

6%:

PAGE

BNE

000060
000040
023754

21-FEB-78

30A(1052)

3s:

023760

MACY11

(SP)+,(SP)

:sRETURN

O
0

;s TERMINATOR FOR TYPE ROUTINE
;:0CTAL DIGIT COUNTER

INPUT ROUTINE

AR R

AR A

ARl

Rttt

ittt

)

LSB
R

AR A

R A SRR

AR AR

RaR

iRttt

ittt

sitsd)

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE.
s*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
; *WHEN OPERATING IN TTY FLAG MODE.

SCKSWR:

155146

CMP

#SWREG, SWR

1ST8

#8TKS

TYPE
TYPE

BNE

BPL
MOvVB
BIC
CHP
BNE
CMPB
BEQ

155142
177600
000007
000001

$GTSWR:

;:1S THE SOFT-SWR SELECTED?

158

: ;BRANCH IF NO

158
@#$TkB,~(SP)
# C177,(SP)
#7,(SP)+
15%
$AUTOB, M
15%

s:1F NO, DON'T WAIT AROUND
::SAVE THE CHAR
;:STRIP=OFF THE ASCII
::1S IT A CONTROL G?
;:NO, RETURN TO USER
::ARE WE RUNNING IN AUTO-MODE?
: :BRANCH IF YES

SCNTLG
. SMSWR

;;ECHO THE CONTROL-G ( G)
::TYPE CURRENT CONTENTS

: :CHAR THERE?

MD-11-CZRKKF,

CZRKKF .P11
7022
7023
7024
7025
7026

024036
024042
024044
024050
024052

RK11

BASIC LOGIC

21-FEB~-78 08:51
013746
104402
104401
005046
005046

024665

105777
100375

155064

TEST

L 10
MACY11 30A(1052)
21-FEB-78
08: 58
TTY INPUT ROUTINE

000176
19%:

7027
;858

024054
024060

7030

024062

0264066

042716

117746

155060

7033
7334
7035
7036
7037

024072
024076
024100

021627
001005
104401

000025

000006

208:

7040
7041
7042
70643
7044
7045

062706
000757

024112
024116
024120
024124

021627
001022
005766
001403

000015

108:

7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064

024134
0264140
024144
024152
024154
024162
024164
024170
024174
024176
024202
024204
024210
024214
024216
024220
024222
024224

062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266

000006
001213
001135

000001

000100

154762

7066
7067
7068
7069
7070
7071

024234
024236
024242

000707
104401
000720

;8%;

7038
7039

7046

7065

024104
024110

024126

024230

016677

056616

7%:

17760C0

9%:

000004

023240
000060

155004

118:
148:

158:
16%:

000067
000060
000002

000002
177776

17%:

001212

18$:
.DSABL

SEQ 0128

1ST18
BPL

. SMNEW
-(SP)
-(SP)

asTKsS
7%

MOVB

a$TKB,~-(SP)

::PICK UP CHAR

CMP
BNE
TYPE

ADD
BR

(SP) ,#25
108
LSCNTLU

#6,SP
19%

;:1S IT A CONTROL-U?
s sBRANCH IF NOT
;sYES, ECHO CONTROL=-U

CMP
BNE
TST
BEQ

(SP),#15
16%
4(SP)
118

;:IS IT A <CR>?
; sBRANCH IF NO
:sYES, IS IT THE FIRST CHAR?
; :BRANCH IF YES

ADD
TYPE
CMPB
BNE
MoV
RTI
JSR
CHP
BLT
cmp
BGT
BIC
TST
BEQ
ASL
ASL
ASL
INC

#6,SP
+SCRLF
SINTAG, M
15%
#100,387kS
PC,STYPEC
(SP) ,#60
18%
(SP) ,#67
18%
#60,(SP)+
2(SP)
178
(SP)
(SP)
(SP)
2(SP)

;sCLEAR UP STACK
:sECHO <CR> AND <LF>
;sRE=ENABLE TTY KBD INTERRUPTS?
; :BRANCH IF NOT
ssRE-ENABLE TTY KBD INTERRUPTS
s sRETURN
;sECHO CHAR
::CHAR < 0?
; :BRANCH IF YES
::CHAR > 7?
::BRANCH IF YES
;:STRIP-OFF ASCII
;:1S THIS THE FIRST CHAR
; ;BRANCH IF YES
;:NO, SHIFT PRESENT
::
CHAR OVER TO MAKE
HH
ROOM FOR NEW ONE.
;;KEEP COUNT OF CHAR

BR
TYPE
BR
LSB

7%
, SQUES
208

;:GET THE NEXT ONE
;s TYPE 2<CR><LF>
3 SIMULATE CONTROL-U

MoV

BIS

SWREG,~(SP)

129

s sSAVE SWREG FOR TYPEOUT
;:G0 TYPE-=OCTAL ASCII(ALL DIGITS)
; ;PROMPT FOR NEW SWR
;sCLEAR COUNTER
;s THE NEW SWR

BIC

024642

000002

MOV
TYPOC
TYPE
CLR
CLR

PAGE

# C177,(SP)

2(SP) ,aSuWR

-2(SP), (SP)

JsMAKE IT 7-BIT ASCII

( U)

;; IGNORE PREVIOUS INPUT
ssLET'S TRY IT AGAIN

::SAVE NEW SWR

::SET IN NEW CHAR

7072

7073
7074
7075
7076

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:
;v
RDCHR
;s INPUT A SINGLE CHARACTER FROM THE TTY
;*
RETURN HERE
;sCHARACTER IS ON THE STACK

7077

R A A

;:CHAR THERE?
;s
1F NOT TRY AGAIN

R A AR R A

R RN PR

R R AR AR R R AR AR R

::WITH PARITY BIT STRIPPED OFF

RRS

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

7078
7079

7080
7081
7082

7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095
7096
7097
7098
7099
7100
7101
7102
7103

7104
7105
7106
7107
7108
7109
7110
(431
7112
7113
7114
7115
7116
7117
7118
7119
7;20
7121
7122
7123
7124
7125
7126
7127
7128
7129

7130
7131
7132
7133

024244
024246
024254
024260
024262
024270
024276

024304
024306
024312
024314
024320
024324
024330
024332
024334
024342

024344
024352
024354
024362

011646
016666
105777
100375
117766
042766
026627
001013
105777
100375
117746
042716

022627
001366
000750
026627
002407
026627
003003
042766
000002

TEST 2

000004
154664

000002

154660
177600
000004

000004
000004
000023

154632
154626
177600
000021

000004

000140

000004

000175

000040

000004

MACY11
TTY

M 10

21-FEB-78

30A(1052)

INPUT ROUTINE

(SP) ,~(SP)
4(SP),2(SP)
as$TKS
1%
a$TKB,4 (SP)
# C<177>,4(SP)

$RDCHR: MOV
MOV
TSTB
1%:
BPL
MOVB
BIC
CMP
BNE
TSTB
2%:
BPL
MOvB
BIC
CMP
BNE
BR
:
3$
CHP
BLY
CHP
BGT
BIC
4%
RTI
AR

AR R

08: 58

4(SP) ,#23

a$T1KB,~(SP)
# C177,(SP)
(SP)+ #21
2%
1%
4(SP) ,#140
43
4(SP) ,M75
4%
#40,4(SP)
R

ARt

PAGE 130

SEQ 0129

s :PUSH DOWN THE PC
::SAVE THE PS
;sWALIT FOR

:sA CHARACTER
ssREAD THE TTY
;sGET RID OF JUNK IF ANY
;21S IT A CONTROL=-S?
::BRANCH IF NO
ssWAIT FOR A CHARACTER
ssLOOP UNTIL ITS THERE
::GET CHARACTER

;sMAKE IT 7-BIT ASCII

+31S IT A CONTROL-Q?
1F NOT DISCARD IT
;s
;:YES, RESUME
::1S IT UPPER CASE?
; sBRANCH IF YES
::1S IT A SPECIAL CHAR?
: ;BRANCH IF YES
;sMAKE IT UPPER CASE
::G0 BACK TO USER
Rt

iiitiitiit ittt

iittsdssdd)

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:
%
;t

RDLIN
RETURN HERE

024364
024366
024370
024374
024400
024402
024404
024406
024412
024414
024416
024420
024426
024432

024436
024440
024444
024446
024452
024456
024460
024462
024464
024472
024475
024500

010346
005046
012703
022703
101456
104410
112613
122713

001022
005716
001007
112737
104401

012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016
122713

$SRDLIN: MoV
CLR
18:
MOV
.
CHP
2%:
BLOS

024620
024642

000177

000134
024616
177777

108:

024616
6%:

024620

BLO

024616

5%:

000134
024616

000025

RDCHR
MOVB
CMPB
BNE
TST
BNE
MOVB
TYPE
MOV
DEC
CHP

024616
7%:

MOovB
TYPE
BR
TST
BEQ
MovB
TYPE

CLR
CMPB

R3,-(SP)
=(SP)
#STTYIN,.R3
z:TTVlN*ZZ.RS

(SP)+, (R3)
#177,(R3)
5%
(SP)
6%

" 98
.98
#-1,(5P)

R3
RI,#STTYIN

(R3),9%
.9%

(SP)
78

'. '9‘
9%

(SP)
#25,(R3)

;s INPUT A STRING FROM THE TTY
; ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
; :TERMINATOR WILL BE A BYTE OF ALL 0°'S

::SAVE R3

;:CLEAR THE RUBOUT KEY
;:GET ADDRESS
:sBUFFER FULL?
;:BR IF YES
;:G0 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
;.18 IT A RUBOUT
::BR IF NO

;:1S THIS THE FIRST RUBOUT?
;:BR IF NO
;s TYPE A BACK SLASH
;:SET THE RUBOUT KEY
: :BACKUP BY ONE
::STACK EMPTY?
::BR IF YES

::SETUP TO TYPEOUT THE DELETED CHAR.
;:60 TYPE
::G0 READ ANOTHER CHAR.
: :RUBOUT KEY SET?
::BR IF NO
;:TYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
;: 1S CHARACTER A CTRL U?

MD-11-CZRKKF,
CZRKKF "

7151
7152
7153
7154
7155
7156
7157
7158
7159
7160
7161
7162
7163
7164
7165
7166
7167
7168
7169
7170
71n
7172
7173
7174
7175
7176

7177
7178
7179
7180
7181
7182
7183
7184
7185
7186
7187
7188
7189

024504
024506
024512
024514
024520
024522
024524
024530
024534
024536
024542
024544

024550
024554
024560
024562
024566
024572
024574
024576
024600
024606
024614
024616
024617
024620
024642
024647
024654
024662
024665
024672

21-FEB-78 08:51
001003
104401

000726
122713
001011
105013
104401
104401
000717
104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000022

052536
136

005015
020075
040
036440

MACY11

TEST 2

TTY

INPUT ROUTINE

BNE

TYPE

BR
CMPB
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
TST

8%:

000022
001213
024620

001212

4%:

024616
024616
000015

3%:

177777
001214

000004
024620

MOV
MOV
MOV
MoV
RTI

000002
000004
9%:

005015
006507
-053523
000
047040
000040

N1 0
21-FEB-78 08: 58

30A(1052)

024642

8s
LSCNTLU

;:G0 START OVER
;1S CHARACTER A
;:BRANCH IF NO
;sCLEAR THE CHARACTER
"

Rl‘!’

ssTYPE A "'CR" & "'LF"

;sTYPE THE INPUT STRING
;:G0 PICKUP ANOTHER CHACTER

$STTYIN

ssTYPE A '

(R3),9%
.99
#15, (R3)+
2%
=1(R3)
. SLF
(SP)+
(SP)+,R3
(SP),~(SP)
4(SP),2(SP)
#STTYIN,4(SP)

0
0
22
/ U/<15><12>
/ G/<15><12>
/

$TTYIN:
$CNTLU:
$CNTLG:
SMSWR:

053505

SMNEW:

-ASCIZ

.SBTTL

TRAP DECODER

SEQ 0130

;:BR IF NO

.SCRLF

000
000012
020122

PAGE 131

;:TYPE A CONTROL ''U"

1%
#22,(R3)
38
(R3)

.BYTE
.BYTE
.BLKE
.ASCIZ
.ASCIZ
.ASCIZ

<15><12>/SWR =

;sCLEAR THE BUFFER AND LOOP

;sECHO THE CHARACTER

;:CHECK FOR RETURN
;:LOOP IF NOT RETURN
;:CLEAR RETURN (THE 15)

;:TYPE A LINE FEED

;;CLEAN RUBOUT KEY FROM THE STACK

: ;RESTORE R3
;:ADJUST THE STACK AND PUT ADDRESS OF THE
HH

FIRST ASCII CHARACTER ON IT

s ;RETURN
;sSTORAGE FOR ASCII CHAR. TO TYPE,
s TERMINATOR

:sRESERVE 22 BYTES FOR TTY INPUT
::CONTROL 'U"'

/::CONTROL i i

NEW =/

:CONTROL U, RUBOUT CAPABILITY
T

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF

THE DESIRED ROUTINE.

;*GO TO THAT ROUTINE.
024676

024700
024704
024706
024710
024712
024716

010046
016600
005740
111000
006300
016000
000200

$TRAP:

000002

024732

7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147
7148
7149
7150

RK11 BASIC LOGIC

024720
024722
024730

011646
016666
000002

000004

000002
-

MOV

MoV
TST
MOVB
ASL
Mov
RTS

THEN USING THE ADDRESS OBTAINED IT WILL

RO,=(SP)
2(SP) RO
-(RO)
(RO) RO
RO
$TRPAD(RO)
,RO

::SAVE RO
;:GET TRAP ADDRESS
; ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;s INDEX TO TABLE
;G0 TO ROUTINE

::THIS IS USE TO HANDLE THE "‘GETPRI'' MACRO
$TRAP2: MOV

MoV
RTI

(SP),=(SP)
4(SP),2(SP)

:;MOVE THE PC DOWN
;:MOVE THE PSW DOWN
;:RESTORE THE PSW

MD-11-CZRKKF,

CZRKKF .P11
7190
7191
7192
7193
7194
7195
7196
7197
7198
7199

7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
721
7212
7213
7214
7215
7216
7217
7218
7219
7220
7221
7222
7223
7224

7225

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

7231
7232
7233
7234
7235

7236
7237
7238
7239
7240
7241
7242
7243
7244
7245

21-FEB-78

30A(1052)

TRAP TABLE

.SBTTL

08:58

PAGE 132

SEQ 013

TRAP TABLE

;*THIS

TABLE

CONTAINS

;

ROUT INE

THE

STARTING ADDRESSES OF

;*BY THE "‘TRAP'" INSTRUCTION.

$TRPAD: .WORD

024732
024734
024736
024740
024742
024744

024720

023560
023534

023574
023310

STYPE
$TYPOC
$TYPOS
STYPON
STYPDS

024746

024032

024750
024752
024754

023070

STRAP2

THE ROUTINES

CALLED

;:CALL=TYPE
::CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
::CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LFADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

SGTSWR

;:CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

023762
024244
024364

SCKSWR
SROCHR
SROLIN

;:CALL=CKSWR
;:CALL=RDCHR
::CALL=ROLIN

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

024756

021760

CH.CRDY ;:CALL=CHKCRDY

024760

022014

CN.RST

;;CALL=CNT.RESET

024762

022032

CN.RDY

;:CALL=CNT.RDY

TRAP+14(104414) WAIT FOR CNTRL RDY TO SET

024764

021056

BDAO

;:CALL=BRKDAO

TRAP+15(104415) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS

024766

021066

BDA4

;:CALL=BRKDA4

TRAP+16(104416) BREAK RKDA INTO DR #,CYL.SUR,.SEC BITS

024770

021664

DELA.Y

:;CALL=DELAY

TRAP#17(104417)

024772

021706

WATINT

;:CALL=WAT.INT

TRAP+20(104420) WAIT FOR RK11

024774

021572

TSTSIN

;:CALL=TST.SIN

TRAP+21(104421)

7226
7227
7228
7229

7230

MACY11

.SBTTL

012737
012737
010046
010146
010246
010346
010446
010546
017746
010637
012737
000000
000776

025142
000340

000024
000026

025146
025050

MOV
MoV
MoV
MOV
MoV
MoV

000024

CONTROL RESET ROUTINE

TIME DELAY ROUTINE
INTERRUPT ROUTINE

TEST SIN ROUTINE

AR R R R R R

R RN R R AR AR

RN RN R AR AR AR

AR RN

;POWER DOWN ROUTINE

SPWRDN: MOV

MoV
154106

TRAP+13(104413)

POWER DOWN AND UP ROUTINES

024776
025004
025012
025014
025016
025020
025022
025024
025026
025032
025036
025044
025046

TRAP+12(104412) CHECK CONTROL READY

MoV
MOV
HgvT
HAL

BR
SRR

#SILLUP,@#PWRVEC ;;SET FOR FAST UP

#340,@#PURVEC+2
RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)

;;PRIO:7
:;PUSH RO ON
;:PUSH R1 ON
::PUSH R2 ON
;:PUSH R3 ON

R5,-(SP)

::PUSH RS ON STACK

R4 ,~-(SP)

STACK
STACK
STACK

STACK
:;PUSH R4 ON STACK

aSWR,~(SP)
;;PUSH @SWR ON STACK
SP,$SAVR6
;s SAVE SP
#S$PURUP ,a#PWRVEC ;;SET UP VECTOR

; HANG UP

AR RR R R ER R RRERIRRTAITRTAERTETRRRRRRERERRRARRRRERRRRRR
AR
AR
RRRY

MD-11-CZRKKF,

CZRKKF .P11
7246
7247
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
72N
7272

7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289

7290

7291
7292
7293
7294
7295
7296
7297

7298
7299
7300
7301

RK11

BASIC LOGIC

21-FEB-78 08:51

025050
025056
025062
025066
025072
025074
025100
025102
025104
025106
025110
025112
025114
025122
025130
025132
025134
025136
025140
025142
025144
025146
025150
025156

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401
025150
012716
004702
000002
000000
000776
000000
005015
000122

025160
025164
025166
025170
025176
025204
025206

004737
104026
104413
013737
032737
001404
042737
000403
052737

025214

025216
025224

025232
025240
025242
025250
025252
025260
025262
025264
025272
025276
025300
025302
025304
025310
025314
025316
025320
025324
025326

013777
012777
104414

013777
104414
032777
001001
005725
013737
004737
104026
000205
000000
005037
012700
005710
001413
005760
001410
004537

025142
025146
025146
025146

30A(1052)

000024

SPWRUP: MOV
MOV

#SILLUP ,@#PWRVEC ;;SET FOR FAST DOWN
$SAVRG,SP
;:GET SP

1%:

$SAVRE

POWER DOWN AND UP ROUTINES

CLR
INC

BNE

MOV

MOV
MoV
MoV
MOV
MOV

MOV

000024
000026

MOV

MoV

TYPE

.WORD
MOV

S$PWRAD: fi??"o
SILLUP:

042527

08:58

PAGE 133
SEQ 0132

;POWER UP ROUTINE

$SPWRMG:

047520

21-FEB-78

MACY11

154040

024776
000340

TEST 2

HALT
BR
$SAVR6: 0
SPOWER: .ASCIZ

$SAVR6E

;:WAIT LOOP FOR THE TTY

::0F

WORD

;:POP
;sPOP
;sPOP
;:POP
::POP

STACK
STACK
STACK
STACK
STACK

(SP)+,aSuWR
(SP)+,RS
(SP)+,R4
(SP)+,R3
(SP)+,R2
(SP)+,R1

(SP)+,R0O

#SPWRDN ,a#PWRVEC

ssWAIT FOR THE

INC

;:POP STACK INTO aSWR
INTO
INTO
INTO
INTO
INTO

RS
R4
R3
R2
R1

;sPOP STACK INTO RO

;;SET UP THE POWER DOWN VECTOR

#340,a#PWRVEC+2 ;;PRIO:7
SPOWER
(PC)+,(SP)

PFSTRT
.2

<15><12>"'POWER"’

JREPORT THE POWER FAILURE

;;POWER FAIL MESSAGE POINTER
;sRESTART AT PFSTRT

s sRESTART ADDRESS

::THE POWER UP SEQUENCE WAS STARTED
;s BEFORE THE POWER DOWN WAS COMPLETE
;sPUT THE SP HERE

.EVEN

021504

FCHECK:

001350
020000

025302
001350

020000

001350

020000
001350
000011

001350

025302

154070

000100

154046

025302
021504

001350

001350
001414
000002
025160

154106
154072

JSR

18:

DRIVAD ,DRHOLD

;SAVE

BIT
BEQ
g;c

#20000,DRIVAD
1$
g%OOOO.DRIVAD

BIS

#20000,DRIVAD

MOV

DRIVAD,3RKDA

MOV
#11,8RKCS
CNT.RDY
MOV
DRHOLD ,aRKDA
Y
CNT.RD

BIT
BNE

TST
MOV
JSR
ERROR
RTS
DRHOLD: 0
SIZEF:
CLR
MoV
4%:
TST
BEQ
TST
BEQ
JSR

3s:

;RESETB DRIVE

ERROR
26
CNT.RESET

MOV

2%:

PC,DRESET

#100,3RKDS
3s

(RS)+
DRHOLD,DRIVAD
PC.DRESET
26
RS

DRIVAD
#DRIVO,RO
(RO)

sMAKE EVEN
;MAKE 0DD

;DRIVE ADDR

:DRIVE SEEK
;sOTHER DRIVE

;HEAEDS IN MOTIONN?
sNO SO RK-05J
:YES RK-05F
sRESTORE ADDR
:WAIT FOR RESET

;START AT DRO
:TABLE OF AVAIL DRIVES
:THIS DRIVE HERE?

;NO

2%
RS,FCHECK

:NO
:SEE

2(RN)

DRIVE ADRR

:SEE IF ODD

;COMPLEMENT HERE?

IF F MODEL

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

7302
7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
7314
7315
7316
7317
7318
7319
7320
7321

7322
7323
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
7334
7335
7336
7337

7738
7357
7340
7341
7342
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353
7354
7355
7356
7357

025332
025334
025340
025346
025350
025352
025360
025364
025366

000405
052710
052760
005720
005720
062737
022700
003353
000207

100000
100000

040000
001433

TEST 2

MACY11

POWER DOWN AND UP ROUTINES

000002

DN
21-FEB-78
08:58

30A(1052)

2%:

001350

;J MODEL

#100000,2(R0)
(RO)+

;BOTH DRIVES

#100000, (RO)

TST
ADD

(RO)+
#40000,DRIVAD

CMP
BGT
RTS

SEQ 0133

BIS

BIS
TST

PAGE 134

#DRIV7+1,R0
4%
PC

;SET SIGN FOR F
;NEXT PAIR OF DRIVES
sNEXT ACTUL ADDR

s CHECKED ALL?
sNOT YET

sERROR MESSAGES
.SBTTL

ERROR MESSAGES

025370
025376

045522
047522

042440

EM11:

_ASCIZ

/RKWC EROR/

025402
025410

044523
051440

051511
000

EM12:

_ASCIZ

/SIN IS SET/

025415
025422

122

051105

020101
000

EM13:

_ASCIZ

/RKBA EROR/

025427
025434
025442
025450

051127
043101
051447

122

EM16:

.ASCIZ

/RKDA WRONG AFTER 'SSE'/

042523

020101
020107
020122
000047

025456
025464

045522
047522

051504
000122

042440

EM21:

.ASCIZ

/RKDS EROR/

025470
025476

050104
000124

020114

042523

EM30:

.ASCIZ

/DPL SET/

025500
025506

051104
000°24

020125

042523

EM31:

.ASCIZ

/DRU SET/

025510
025516
025524

045522
052111
051440

032460
047040
052105

041040
052117
000

EM32:

.ASCIZ

/RKO5 BIT NOT SET/

025531
025536
025544

104
052111
051440

054522
047040
052105

041040
052117
000

EM33:

.ASCIZ

/DRY BIT NOT SET/

025551
025556
025564

123
042111
042523

045517
023516
000124

042040
020124

EM34:

_ASCIZ

/SOK DIDN'T SET/

025570
025576
025604
025612
025620

042523
051124
023516
047125
030040

026503
042040
020124
020124
000

047103
042111
047503
047524

EM35:

_ASCIZ

/SEC-CNTR DIDN'T COUNT TO 0/

MD-11-CZRKKF,
CZRKKF .P11

7358

21-FEB-78

08:58

PAGE

135

041455

.ASCIZ

/SEC-CNTR DIDN'T INCRMNT/

025652

044504
044440
052116

EM36:

;gg%

020122
052047
046522

7364
7365
7366
7367

025653
025660
025666
025674

/SEC-COUNTR

INCRMENTED WRONG/

043516

041455
020122
042515
053440

_ASCIZ

047522

041505
052116
051103
042105

EM37:

025702

123
052517
047111
052116

7370
7371
7372
7373
7374

025707
025714
025722
025730
025736

104
020124
041523
047506
051511

042111
042507
051475
020122
051440

023516
020124
020101
044124
041505

EM40:

.ASCIZ

/DIDN'T GET

SC=SA FOR THIS SECTR/

7377
7378
7379
7380

025747
025754
025762
025770

105
027522
042122
052517

047522
027527
020131
042114

026522
020123
044123
041040

EM41:

ASCIZ

"'EROR-R/W/S RDY SHOULD BE SET"

7383
7384
7385
7386

026004
026012
026020
026026

047125
052103
030513
042524

054105
042105
020061
051122

042520
051040
047111
050125

EM43:

_ASCIZ

/UNEXPECTED RK11

7389

026036

047103

0511264

020114

EM&4:

_ASCIZ

/CNTRL RDY DIDN'T SET AFTER SEEK OR DR RESET/

7392
7393
7394
7395
;ggg

026060
026066
026074
026102
026110

052105
051105
020113
020122
000124

040440
051440
051117
042522

052106
042505
042040
042523

7398
7399
7400
7401
7402

026112
026120
026126
026134
026142

051105
044040
020124
047117
020113

020122
020105
042523
051440
051117

051117
044502
020124
042505
042040

EM45:

.ASCIZ

/FRR OR HE BIT SET ON SEEK OR DR RESET/

76406
7407

026160
026166

045522
052111

051105
020054

041040
047117

EM46:

.ASCIZ

/RKER BIT, ON SEEK OR DR RESET/

7412
7413

026216
026224

045522
047110

051503
042107

041440
040440

EM47:

.ASCIZ

/RKCS CHNGD AFTR FUNCTION WAS DONE/

;g;:

;gg;

;gg;
7390
7391

7403
;28;

7408
76409
;2}?

025744

025776

026034

026044
026052

026150
026156

026174
026202
026210

000

051124

020105

000124

042122
047104

020122
000124

051440
051117
042522

041505

MACY11 30A(1052)
ERROR MESSAGES

052116
047104
041516

;ggg

123

TEST 2

025630
025636
025644

7359
7360
7361

025623

RK11 BASIC LOGIC
21-FEB-78 08:51

000

042523

020131
052047

042522

042505
042040
042523

000

000124

044504
051440

INTERRUPT/

042523

020113
020122
000124

SEQ 0134

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF M7
21-FEB-78 08:51

74614
7415
7416
7417
7418
76419
7420
7621
7622
7423
7424

7425
7426
7427
7428
7429
7430
7431
7432
7433
7434
7435
7436
7437
7438
7439
7440
7441
7442
7443
7444
7445
7446
7447
7448
7449
7450

7451
7452
7453
7454
7455
7456
7457
7458
7459
7460
7461
7462
7463
7464
7465
7466
7467
7468
7469

MACY11 30A(1052)
ERROR MESSAGES

21-FEB-78

08:58

PAGE 136

026232
026240
026246
026254

052106
041516
053440
047117

020122
044524
051501
000105

052506
047117
042040

026260
026266
026274
026302

027522
042122
047104
042514

027527
020131
052047
051101

020123
044504
041440

EM50:

.ASCIZ

"R/W/S RDY DIDN'T CLEAR"

026307
026314
026322
026330
026336
026344
026352
026360

051040
042111
042523
051124
020113
020122
000124

122

053457
054504
023516
020124
051440
051117
042522

051457
042040
020124
043101
042505
042040
042523

EMS51:

.ASCIZ

"R/W/S RDY DIDN'T SET AFTR SEEK OR DR RESET'

026362
026370
026376
026404

045522
047110
052106
045505

040504
042107
020122
000

041440
040440
042523

EMS52:

LASCIZ

/RKDA CHNGD AFTR SEEK/

026407
026414
026422
026430
026436
026444

051040
042111
046103
043440
020123

103

052116
054504
023516
020122
020117
042523

046122
042040
027124
051501
040527
000124

EMS3:

.ASCIZ

/CNTRL RDY DIDN'T CLR AS GO WAS SET/

026452
026460
026466
026474
026502
026510
026516
026524
026532
026540

047103
042122
047104
052105
051127
020124
044524
047522
045523
051505

051124
020131
052047
047440
027524
052123
043516
020115
040455
000076

020114
044504
051440
020116
046506
051101
043040
042074
051104

EMS54:

.ASCIZ

"'CNTRL RDY DIDN'T SET ON WRT/FMT STARTING FROM <DSK-ADRES>"

026544
026552
026560
026566
026574
026602
026610
026616

042510
051105

020122
047117
043057
040524
020107
036040
042101
000

EM55:

.ASCIZ

""HE OR ERR ON WRT/FMT STARTING FROM <DSK-ADRES>"

042522

047440
020122
052122
051440
047111
046517
026513
037123

026623
026630
026636
026644
026652

122
047111
042124
043516
051127

042113

020101
047115
047522
020116
046506

EM56:

.ASCIZ

/RKDA INCRMNTD WRONG ON WRT=FMT/

053440
052115
052122
051106
051504

051103
053440
047440
026524

000

SEG 0135

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

7470
747N
7472
7473
7474
7475
7476

7477
7478
7479
7480
7481
7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

21-FEB-78

08:58

PAGE

137

SEC 0136

026660

000124

026662
026670
026676
026704
026712

045522
042111
053117
047440
020124

041527
023516
043122
020116
046506

042040
020124

EM57:

LASCIZ

/RKWC DIDN'T OVRFLO ON WRT FMT/

047514
051127
000124

026720
026726
026734
026742
026750
026756

045522
041516
020104
020107
052122
000

040502
046522
051127
047117
043040

044440
052116
047117
053440
052115

EM60:

.ASCIZ

/RKBA INCRMNTD WRONG ON WRT FMT/

026757
026764
026772
027000
027006

042523
053440
020122
020122

122

042513
026124
052122
042122
046506

020122
047117
047440
047440
000124

EM61:

.ASCIZ

/RKER SET,ON WRT OR RD OR FMT/

027014
027022

045522
047522

041104
000122

042440

EM62:

.ASCIZ

/RKDB EROR/

MD-11-CZRKKF,

CZRKKF P11

7494
7495
7496
7497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517
7518
7519
7520

7521
7522
7523
7524
7525
7526
7527
7528
7529
7530
7531

7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

044440
052116

EM63:

LASCIZ

/RKDA

21-FEB-78

08:58

PAGE 138

027026
027034
027042
027050
027056
027064

045522
041516
020104
020107
020104
020104

040504
046522
051127
047117
051117
046506

027072
027100
027106
027114
027122
027130

045522
042111
053117
047440
047440

042040
020124
047514
042122
042122
000

EM64:

LASCIZ

/RKWC DIDN'T OVRFLO ON RD CR RD FMT/

043040

041527
023516
043122
020116
020122
052115

027135
027142
027150
027156
027164
027172
027200

047111
042124
043516
042122
042122
000

122

041113
051103
053440
047440
047440
043040

020101
047115
047522
020116
020122
052115

EM65:

.ASCIZ

/RKBA

027201
027206
027214
027222
027230
027236

042522
040505
051106
042523
000047

041516
052103
042504
046517
052103

051117
044040
020122
023440
051117

EM66:

.ASCIZ

/INCORRECT HEADER FROM

027240
027246

040504
051122

040524
051117

042440
000

EM67:

LASCIZ

/DATA ERROR/

027253
027260
027266
027274
027302
027310
027316
027324
027332
027340

103
051040
042111
042523
051040
020124
044524
047522
045523
051505

052116
054504
023516
020124
027504
052123
043516
020115
040455
000076

046122

EM70:

.ASCIZ

“CNTRL RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ADRES>"

027344
027352
027360
027366
027374
027402
027410
027416

042510
051105
051040
020124
044524
047522
045523

020122
047117
046506
051101
043040
0462074
051104

EM71:

.ASCIZ

"'HE OR ERR ON RD/FMT STARTING FROM <DSK-ADRES>"

051505

047440
020122
027504
05212%
043516
020115
040455
000076

027422
027430
027436
027444

051127
051104
04211
045522

047117
053111
044440
051504

020107
020105
020116
040440

EM72:

LASCIZ

/WRONG DRIVE

INCRMNTD WRONG ON RD OR RD FMT/

047117
051040
051040
000124

042040
020124
047117
046506
051101
043040
042074
051104

INCRMNTD WRONG ON RD OR RD FMT/

'SECTOR'/

ID IN RKDS AFTER SEEK/

SEQ 0137

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF 1
21-FEB-78 08:51

7550
7551
7552
7553
7554
7555
7556
7557
7558

7559

7560
7561
7562

7563
7564
7565
7566
7567
7568
7569
7570
757
7572
7573
7574
7575
7576
7577
7578
7579
7580
7581
7582
7583
7584
7585
7586
7587
7588

7589
7590
7591
7592
7593
7594
7595
7596
7597
7598
7599
7600
7601
7602
7603
7604
7605

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

I N
21-FEB-78
08:58

PAGE

139

SEQ 0138

027452
027460

052106
042505

000113

051105

051440

027464
027472

053504
046117
020126
052111
030455
046110
046103

042522
026514
042111
024123
024465
041104
000122

EM73:

.ASCIZ

/HRDWRE POLL=DRV ID BITS(13-15)

027500
027506
027514
027522
027530

051110
050040
051104
041040
031461
051440
020105

027536
027544
027552
027560
027566
027574
027602

051110
050040
047111
044524
044522
047516
047123

053504
046117

042522
026514
050125
042040
020043
051120

EM74:

LASCIZ

/HRDWRE POLL=INTRUPTING DRIV # NOT

027606
027614
027622
027630
027636
027644
027652

051104
042040
020124
050125

053111
042111
047111
020124
020122
042522
000114

021440
023516
051124
043101
051110
050040

EM75:

.ASCIZ

/DRIV # DIDN'T

020120
052047
040440
051440
040527
042516

044504
051440
052106
042505
020123
000

EM76:

.ASCIZ

/SCP DIDN'T SET AFTER SEEK WAS DONE/

042524

053504
046117

051124

043516
020126
020124
000124

SHLDBE

041523
047104
052105
051105

027721
027726
027734
027742
027750

122

044103
040440
042040
042522

042113
047101
052106
044522
042523

020101
042107
051105
020126
000124

EM77:

LASCIZ

/RKDA CHANGD AFTER DRIV RESET/

027756
027764
027772
030000

040504
047522
053440
000

040524
020122
051117

042440
052101
021504

EM100:

.ASCIZ

/DATA EROR AT WORD#/

030001
030006
030014
030022
030030
030036

051040
042111
042523
042524

103

052116
05450
023516
020124
020122
045510

046122
042040
020124
043101
042122
000

EM101:

.ASCIZ

/CNTRL RDY DIDN'T SET AFTER RD CHK/

051122
042510
042122
000

047440
047440
041440

EM102:

.ASCIZ

/ERR OR HE ON RD CHK/

030043
030050
030056
030064

020113
047504

041440
105

020122
020116
045510

PRSNT/

INTRUPT AFTER HRDWRE

027656
027664
027672
027700
027706
027714

CLR/

POLL/

7660
7661

PAGE

140

SEQ 0139

103
020116
045510

042523
042122
000

047440
041440

EM103:

.ASCIZ

/CSE ON RD CHK/

030105
030112
030120
030126
030134
030142
030150

044504
047440
047514
042122
047440
020124

122

053513
047104
042526
047440

EM104:

.ASCIZ

/RKWC DIDN'T OVERFLO ON RD CHK OR WRT (HK/

020122
044103

020103
052047
043122
020116
045510
051127
000113

030156
030164
030172
030200
030206

045522
041516
020104
020107
020104

040504

044440

EM105:

LASCIZ

/RKDA

030214
030222
030230
030236
030244

045522
040510
043101
042122
000

040502
043516
042524
041440

041440
020104
020122
045510

EM106:

LASCIZ

/RKBA CHANGD AFTER RD CHK/

030245
030252
030260
030266
030274
030302

115

046505
047527
040510
040440
051040
000113

051117
042122
043516
052106
020104

EM107:

.ASCIZ

/MEMORY WORD CHANGED AFTER RD

047103
042122
047104

051124
020131
052047
040440
053440
045510

020114
044504
051440
052106
052122
000

EM110:

LASCIZ

/CNTRL RDY DIDN'T SET AFTER WRT CHK/

PR
oA

=
¥

CHK/

110
042440

051117
047440
020124

EMI11:

.ASCIZ

/HE OR ERR ON WRT CHK/

020116
044103

020105
051122
051127
000113

030376
030404
030412

051127
044103
051105

052111
041505
051117

020105
020113
000

EM112:

-ASCIZ

/WRITE

CHECK EROR/

030417
030424
030432
030440
030446
030454

047111
042124
043516
051127
000113

122

042113
051103
053440
047440
020124

020101
047115
047522
020116
044103

EM113:

.ASCIZ

/RKDA

INCRMNTD WRONG ON WRT CHK/

030456

045522

040502

044440

EM114:

LASCIZ

/RKBA INCRMNTD WRONG ON WRT CHK/

030351
030356
030364
030372

]

CHK/

AT AIAIAIAIA smsA s s

INCRMNTD WRONG ON RD

052116
047117
051040
000113

052105
051105
041440

046522
051127
047117
044103

030306
030314
030322
030330
030336
030344

020131
041440
042105
051105
044103

041440

030067
030074
030102

oA
- =

08:58

7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659

7641
7642
7643
7644
7645
7646

21-FEB-78

g————

7631
7632
7633
7634
7635
7636
7637
7638
7639
7640

MACY11 30A(1052)
ERROR MESSAGES

[

7606
7607
7608
7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630

TEST

—

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
Z21-FEB-78 08:51

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF PN
21-FEB-78 08:51

7662
7663
7664
7665
7666

7667
7668
7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680

7681
7682
7683
7684
7685
7686

7687

7688

7689
7690
7691
7692
7693
7694
7695

7696
7697
7698

7699
7700
7701
7702
7703
7704
7705
7706
7707
7708
7709
7710
71
7712

7713
7714
7715
7716
77

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

21-FEB-78

08:58

PAGE

141

SEQ 0140

030464
030472
030500
030506
030514

041516
020104
020107
052122
000

046522
051127
047117
041440

052116
047117
053440
045510

030515
030522
030530
030536
030544

122

047111
042124
044124
051440

041113
051103
020054
044440

EM115:

LASCIZ

/RKBA

052105

020101
047115
044527
040502
000

030551
030556
030564
030572
030600
030606
030614
030622

127
046440
020131
044524
040510
053440
041111
000124

047522
046505
047514
047117
043516
052111
020101

043516
051117
040503
041440
042105
020110
042523

EM116:

.ASCIZ

/WRONG MEMORY LOCATION CHANGED WITH

030624
030632
030640
030646
030654

045522
042111
047111
020124

030461
023516
051124

042040
020124
050125

EM117:

LASCIZ

/RK11

DIDN'T

INTRUPT WHEN IDE WAS SET/

030670

000

042504
051440

052105

DIDN'T

INTRUPT AFTER SK WAS INITIATED/

030662

030671
030676
030704
030712
030720

044440
051501

044127

WITH

IBA SET/

020061

EM120:

LASCIZ

/RK11

020123
040511

052047
052522
052106
020113
047111
042524

030734
030742

122
044504
044440
052120
051105
040527
052111
000104

030744
030752
030760
030766
030774

041523
020124
042522
020113
042514

020120
042502
051440
047503
042524

042523
047506
042505
050115
000104

EM121:

LASCIZ

/SCP SET BEFORE SEEK COMPLETED/

031002
031010
031016
031024
031032
031040
031046

045522
042111
047111
020124
020122
046517
042105

030461
023516
05112¢
043101
045523
046120
000

042040
020124
050125
042524
041440
052105

EM122:

ARCIZ

/RK11

031051
031056
031064
031072

051040
042040
020124

103

052116
051505
042111
046103

046122
052105
023516

EM123:

.ASCIZ

/CNTRL RESET DIDN'T CLEAR 'SCP'/

030726

IBA SET/

047105
053440

047104
052116
040440
051440

030513

INCRMNTD,

040505

DIDN'T

INTRUPT AFTER SK COMPLETED/

MD-11~CZRKKF,

CZRKKF.P11
7718
7719

7720
7721
7722
7723
7724

7725

7726
7727
7728
7729
7730
7731

7732
7733
7734
7735
7736
7737
7738
7739
7740
7741
7742
7743
7744
7745
7746
7747
7748
7749
7750
7751
7752
7753
7754
7755
7756

7757
7758
7759

7760
7761
7762
7763
7764
7765
‘7766

7767
7768
7769
7770
7n
7772
7773

RK11

BASIC

LOGIC

¢1-FEB-78 08:51

TEST

MACY11 30A(1052)
ERROR MESSAGES

LN
21-FEB-78 08:58

PAGE 142

031100
031106

020122
000047

051447

050103

031110
031116
031124
031132
031140
031146

045522
042111
047111
020124
020122
047117

030461
02351¢
051124
043101
042122
000105

042040
020124
050125
0642524
042040

£M124:

.ASCIZ

/RK11

031152
031160
031166
031174
031202
031210

047103
042522
044504
041440
043505
000

051124
042523
047104
051114
05151

020114
020124
052047
051040
051124

EM125:

LASCIZ

/CNTRL RESET DIDN'T CLR REGISTR/

031211
031216
031224
031232
031240
031246

122
044504
044440
052120
050103
042526

030513
047104

020061
052047
052522
020124
042514

EM126:

.ASCIZ

/RK11

DIDN'T

031252
031260
031266
031274
031302
031310

045522
052116
042105
051127
050103

044440
052120
020124
020107
042514

EM127:

.ASCIZ

/RK11

INTRUPTED AT WRONG CPU LEVEL/

042526

030461
052522
040440
047117
020125
000114

031314
031322
031330
031336
031344

042447
052111
047104
052105
045522

051122
020047
052047
044440
051105

041040
044504
051440

EM130:

.ASCIZ

/'ERR BIT'

031351
031356
031364
031372

110

042440
042111
042523

020105
051122
023516
000124

051117
042040
020124

EM131:

.ASCIZ

/HE OR ERR DIDN'T SET/

031376
031404

045522
047522

000122

051105

042440

EM132:

.ASCIZ

/RKER EROR/

031410

054116
020124
052047
000

020103
044504
051440

044502

EM133:

.ASCIZ

/NXC BIT DIDN'T SET/

031433
031440
031446
031454
031462
031470

122

030513
047104
052116
047440
052106
000122

020061
052047
052522
020116
042440

EM134:

LASCIZ

/RK11

031416
031424
031432

044504
044440
052120
047523
047522

052116
040440
020125
000114

DIDN'T

INTRUPT AFTER RD DONE/

INTRUPT AT

DIDN'T

SET

CPU LEVEL/

IN RKER/

020116
000

047104
052105

DIDN'T

INTRUPT ON SOFT EROR/

SEQ 0141

7774
7775
7776
7777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
/790
7791
7792
7793
7794

7795
7796
7797
7798
7799
7800
7801
7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822
7823
7824

7825
7826
7827
7828
7829

042515
051524

M n

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

020130
044440
052116
047117
051503

044502
041516
020104
026507
000

EM135:

LASCIZ

/MEX BITS

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

21-FEB-78

08:58

PAGE 143

031474
031502
031510
031516
031524

051127
045522

031531
031536
031544

127
052117
051101

051520

047040
042514

EM137:

.ASCIZ

/WPS NOT CLEAR/

031547
031554
031562
031570
031576
031604
031612

104
051105
020116

020101
047440
047101
043040
044504
020117

EM140:

.ASCIZ

/DATA EROR ON TRANSFER FROM DISK TO TTY/

043123
047522
045523
052124

052101
051117
051124
051105
020115
052040
000131

031616
031624
031632
031640
031646
031654
031662
031670
031676
031704
031712
031720

042047
023443
042523
0525
02012
040503
047040
054523
052117
040510
020106
043065

044522
050040
052116
020124
047111
042524
020117
047440
042510
043114
045522
000

020126
042522
020054
047516
044504
000104
052502
020116
020122
047440
030055

EM141:

LASCIZ

/'DRIV #'

EM142:

.ASCIZ

/ NO BUSY ON OTHER HALF OF RK=-05F/

046522

041440
000

031724

INCRMNTD WRONG=-RKCS/

PRESENT, BUT NOT

INDICATED/

.EVEN

.SBTTL

ERROR DATA POINTERS

031724

001116

001162

000000

DT1:

.WORD

SERRPC, SREGO, 0

031732
031740

001116
000000

001162

001164

DT2:

.WORD

SERRPC,SREGO, SREG1,0

031742
031750

001116
001166

001162
00117¢

001164
000000

DT20:

.WORD

S$ERRPC, SREGO, SREG1, SREG2,SREG3.0

031756

001116

000000

DT21:

.WORD

SERRPC.O .

031762
031770

001116
001166

001162
000000

001164

DT26:

.WORD

SERRPC,
SREGO, SREG1, SREG2.0

031774

001116
001166
001174

001162

001164
001172
001200

DT54:

032002
032010

001170
001176

$ERRPC,SREGO,SREG1,SREG2,SREG3,SREG4
, SREGS , SREG6, SREG7,0

SEQ 0142

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF PN
21-FEB-78 08:51

7830
7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842

7843
7844
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856
7857
7858
7859
7860
7861
7862
7863
7864

7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880
7881
7882
7883
7884
7885

03201¢

MACY11 30A(1052)
21-FEB-78
ERROR DATA POINTERS

08:58

PAGE 144

SEQ 0143

000000

.SBTTL

ERROR HEADERS

032020
032026
032034
032042

020040
051040
020104
041505

041520
043505
020040
042126

020040
042101
051040
000

DH2:

.ASCIZ

REGADD

032047
032054
032062
032070

040
020040
052103
041505

050040
042440
020040
042126

020103
050130
051040

DH4:

.ASCIZ

EXPCT

032075
032102
032110

040
020040
042126

050040
051040
000

020103
041505

DHS:

.ASCIZ

RECVD/

032113
032120
032126
032134
032142

040
020040
020123
042513
051040

050040
051040
020040
020122
053513

020103
041513
051040
020040
000103

DH14:

.ASCIZ

{

RKCS

032150

020040

041520

000

DH21:

.ASCIZ

F-

032155
032162
032170
032176
032204
032212

040
020040
051503
045522
020040
000

050040
020040
020040
051105
045522

020103
045522
020040
020040
051504

DH30:

.ASCIZ

032213
032220
032226

040
020040
051504

050040
020040
000

020103
045522

DH34:

.ASCIZ

032231
032236
032244

020040
047103

040

050040
042523
051124

020103
026503
000

DH35:

.ASCIZ

SEC-CNTR/

032251
032256
032264
032272
032300

040
020040
047123

050040
020040
02012¢
041455

020103
051120
047040
052116

DH36:

.ASCI1Z

PRSNT

NXT-CNT/

032301
032306
032314
032322

040
020040
047524
045522

050040
051440
020122
051504

020103
041505
020040
000

DH4O:

.ASCIZ

SECTOR

RKDS/

032327

040

050040

020103

DH&4:

.ASCIZ

052130
000

RECVD/

000

RKCS

RKER

RKWC/

RKD S/

RKDS/

RKCS

RKER

RKDA/

RKDS
b

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF .P11
21-FEB-78 08:51
7886
7887
7888
7889
7890

0X2334
032342
032350
032356
032364

020040
020123
042513
051040
020040

051040
020040
020122
042113
051040

041513
051040
020040
020123
042113

;gg;

032372

000101

7893

032374

020040

041520

020040

7895
7896
7897
7898
7899
7900
7901
7902
7903

032410
032416
032424
032432
032440
032446
032454
032462
032470

020040
051105
045522
020040
020040
027043
046131
026513
027076

0206040
020040
051504
045522
042040
027056
036056
042101
052523

045522
020040
020040
040504
053122
041456
051504
051522
027122

7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916

022503
032510
032516
032524
032532
032540
032546
032554
032562
032570
032576

040
054105
051104
054503
020040
020040

032604

020040
020072
020040
020040
020122
042523

041520
041520
020043
020114
052523
051440
042522
051104
054503
020040
020040

7919
7920
7921

;ggg

032610
032616
032624

032632

020040
020040
020040

7924
7925
7926
7927

032634
032642
032650
032656

7930
7931
7932
7933
7934
;ggz

B 12

MACY11 30A(1052)
ERROR HEACERS

21-FEB-78

DH54:

.ASCIZ

020040
020072
020040
020040
020122
041505
053103
020043
020114
052523
020040

DH56:

LASCIZ

/ PC

041520
045522
051040

020040
041527
042113

DH64:

.ASCIZ

020040
020040
020122
041520

041520
042523
020040
020124

020040
052103
054105
020040

DH66:

.ASCIZ

032672
032700
032706
032714
032722
032730

020040
020040
020124
053103
045523
000123

041520
054105
020040
020104
040455

020040
041520
042522
042040
051104

DHW67:

7937
7938
;823

032732
032740
032746

020040
020040
053111

041520
020040
021440

020040
051104
000

7941

032753

040

050040

020103

7894

;ggg

;3};

;ggs

032402

032476

032664

020040

051456

000101

042522

045522

041505

000103

053103

051503

08:58

PAGE

145

SEC 0144

RKCS

RKER

RKDS

RKDA

EXPC: DR#

(YL

SUR

SEC

RKWC

RKDA/

SECTR

EXPCT

RECVD/

.ASCIZ

EXPCT

RECVD

DSK-ADRS/

DH74:

.ASCIZ

DH100:

.ASCIZ

DRV#....(CYL.<DSK=ADRS>.SUR..SEC/

000

000104

DRIV #/

WORD #

EXPCT

RECVD/

RECV: DR¥

(YL

SUR

SEC/

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

7942
7943
7944
7945
7946
7947
7948
7949
7950
7951
7952
7953
7954
7955
7956

7957
7958
7959
7960
7961
7962
7963
7964
7965
7966
7967
7968
7969
7970
7971
7972

7973
7974
7975
7976
7977

7978
7979
7980
7981
7982
7983
7984

7985

7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997

TEST 2

MACY11 30A(1052)
ERROR HEADERS

€12

21-FEB-78

08:58

PAGE

032760
032766
032774
033002

053440
020043
041520
042522

051117
020040
020124
053103

020104
054105
020040
000104

033010
033016

020040
051040

041520
042513

020040
000122

DH103:

.ASCIZ

RKER/

033024
033032
033040
033046

020040
051040
020040
000123

041520
041565
051040

020040
042126
041513

DH104:

LASCIZ

RECVD

033050
033056
033064
033072
033100

020040
020040
020040
041520
042522

041520
046040
020040
020124
053103

020040
041517
054105
020040
000104

DH107:

.ASCIZ

LoC

033106
033114

020040
051040

041520
041513

020040
000123

DH117:

.ASCIZ

RKCS/

033122
033130
033136
033144

120040

041520
042514
020040
000123

020040
042526
051040

DH126:

.ASCIZ

LEVEL

RKCS/

020040
020040

041520
051040
020040
020122
041040

020040
041513
051040
042440
052111

DH130:

LASCIZ

RKCS

RKER

040
020040

050040
020040
020040
051105

020103
045522
020040
000

DH131:

.ASCIZ

RKCS

RKER/

033150
033156
033164
033172
033200
033206
033207
033214
033222
033230

020040
020114
041513

020123
042513
051122
000

051503
045522

146

RKCS/

EXPCT

RECVD/

ERR BIT/

033235
033242
033250
033256
033264
033272

040
020040
051503

020103
045522
020040
020040
040504

DH133:

LASCIZ

RKCS

RKER

RKDA/

045522
020040
000

050040
020040
020040
051105
045522

033273
033300
033306
033314
033322
033330
033336

040
020040
052103
041505
020040
020040
051503

050040
042440
020040
042126
045522
020040
000

020103
050130
051040
020040
040502
04552¢

DH140:

LASCIZ

EXPCT

RECVD

RKBA

033342

.EVEN

SEQ 0145

RKCS/

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB~-78 08:51
7998
7999
8000

8001
8002
8003
8004

TEST 2

MACY11 30A(1052)
ERROR HEADERS

D 12

21-FEB-78

08:58

PAGE

147

SEQ 0146

;DATA BUFFER
033342

000400

OUTBUF:

.BLKW

256.

;THIS 256 WORD BUFFER IS FOR
;DATA TRANSFERS FROM AND
;TO THE

000001

.END

DISK.

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

004600
004534
021074
021056
021066
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
000014
104415
104416

020026
021242
021402
104412
021262
021270
021356
021342
021234
021226

021316
021760
104407
104414
104413

022032
022014

2108
2043
6182
61804

6184#
993#
9834
982#
9814
9804
9794
9784
9774
9764
9754
9744
9924
9734
9724
9714
9704
9694
9684
9914
990#
989#
988#
9874
986#
985#
9844
10004
3697
2834
5693
5820#
6262
4987
2612
2847
3175
4983
2861
2840
3166

2851
6522#
6610
3967
2310
3128
4489
5189
5876
6561
65594

E 12
MACY11 30A(1052)
21-FEB-78 08:58
PAGE
CROSS REFERENCE TABLE == USER SYMBOLS

149

21364
2106
61874

4643

2117#

4688
5657

4707

4718

4798

4806

4895

4904

5548

2002
993

2006

2010

2270

5904

2010

6720

6722

3160
6291

3249

3370

3538

3670

3700

3819

4179

5364

5430
5243

63404
5410

5470

5606

5759

72104

4808
4527

5360

5426
63164
62644

63294

4202

4819

63024

5321
2566
3637

6393
2598
3792
4927
5380

72144

7284

7286

TEST 2

7216
7218

992
991
990
989
988
987
986
985
984

6625
6633

6640
6723
5908
6611
2001

2006

5661

SEQ 0147

6678

6288
2930
5709
6731
62654
5055
2672
2942
3265
5051
2957
2936
3377
2947
7210
6672
4025

2357

3221
4596

5226
72124
65624
7212

72164

3032
6268
5124

3925
3045
3395

5120
3059

3039
3552
3049
6695
4043

2394
3345

4662

5259

7275
7214

5203

4334
4206

3559
5199
3295
3256
3687
3278

72064
4092
2446
3452
4748
5276

7218#

4428

62824
6284#
5286
4210
4187
3833
3726

5021

2531
3508

4769

5305

62614

4847

5350

2656
3906
4973
5425

2722

4003
5004
5448

2776

4120
5041

5513

2895
4234
5070
5587

4265

4523

2996
4308
5110
5667

3098
4397
5139
5754

MD-11-CZRKKF,

CZRKKF .P11

COUNT
001362
COUNT1
001364
CR
= 000015
CRETRN 021430
CRLF
= 000200
DDISP = 177570
DPCH
001410
DELAY = 104417
DELA.Y
021664
H100
032753
H103
033010
H104
033024
H1G7
033050
H117
033106
H126
033122
H130
033150
H131
033207
H133
033235
H14
032113
H140
033273

032020

H21
H30

232150
032155

H35
H36

032231
032251

DH34

032213

H&4

032047

H40

032301

H44

032327

H54
H56
H64
H66
H67
H74

032374
032503
032610
032634
032672
032732

RESET

021504

RIVAD

001350

DH5

ISPLA
ISPRE

DRHOLD

032075

001142
000174
025302

RK11

BASIC LOGIC

21-FEB-78 08:51

11354
11364
908#

6266

909#
9154
11564

2342
64564
1565
1586
1593
1614

1551
1719
1733
1741
1755
1248
1790
1712
1346
1269
1262
1304
1311
1255
1649
1325
1241
1438
.
1610
1429
1475
1489
1496
1537
1057#
1015#

2734

7276+
1127#

2669
3332

4454

DRIVS

001412

RIVO

001414

RIVZ
RIVS
RIVG
RIVS
RIV6

001420
001422
001424
001426

DRIV

001416

001430

5222
6425
1158#
6729+
1170#

TEST 2

3410+
6390+
6842
6285
1884
1057
1885

5155

7220
1663
79474
79504
7955#
1670
1726
7969#
1762
7981#
1776
7988#
78374
78574
1276
1283
78704
78744
1318
1656
78804
1290
78474
1420
1466

79194
79244
79304
1544
1855+«
1863
4674
7285

2104+
2738
3505
4511
5316
6716
1959

1973

F 12
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 150
CROSS REFERENCE TABLE =-- USER SYMBOLS

3520+

3533«

4516+

4519+

6317
6852

6330

6341

63464

1912+
5584

1914
7220#

1916+

1920

1684

1698

1705

79614

1367
1297

1381
1332

1402
1530

1452
7866#

1339
1748

1374
1769

1395

1805

1353

1360

1388

1504
79064

1514

7893#

3414+
6405+
6852
6303
6813
1855
1905
5166

SEQ 0148

5221+

5264+

1929

1941

2197

2199

1579

1628

1635

1691

7859#

1445
78424

1459

1482

1523

1558

1572

1621

1783

7885#

2275

2284

1600

1607

1642

2541
3236

2567
3248
4356
5017
6360

2610
3262

4419

6711

79414

1677
79644
79764
78514

1798
1863+

499
7290

2272+
2818
3620
4522
5407
6725

7937#

6654+

6675+

5260
7294#
2277

5818

6390#

6428

7273

7291

2289
2913
3920

2321
2929

2367
3015

2404
3031
4178

2416
3068
4254
4785
5823+

2456
3123
4264
4862
6264

2833
3784

1996+

7276

2011+«

4673
5530
7277

2047+

4015
4727
5599
7279+
2068+

2050

2101

2194

2232

4549

5465

4161
4730
5681
7281+

2077

5757
7282
2097

2234

2297

4749

2237+

7295«

2265

4326
4939
6282
7307+

5820

5862

5851

5891

6719

7296

7290

5086
6391

MD-11-CZRKKF,
CZRKKF .P11

DRIV?7

DRVDON

001432
001352
001354
177570

031724

031732
031742
031756
031762

031774
001370
000030
027756
030001
030043
030067
030105
030156
030214
030245
025370
030306
030351
030376
030417
030456
030515
030551
030624
025402
030671
030744
031002
031051
031110
031152
03121
031252
025415
031314

031351
031376
031410
031433
031474
031531
031547
031616
031662
025427
025456
025470

RK11

BASIC LOGIC

21-FEB-78 08:51

11774
1128#
11314
9144
1263
1699
1256
1559
1770
1242
1347
1249
1636
1412
1138#
1003#
1564
1571
1578
1585
1592
1599
1606
1613
1804
1620
1627
1634
1641
1648
1655
1662
1669
1240
1676
1683
1690
1697
1704
1711
1718

TEST 2

5859
2102+
2101«

1056
1284
1706
1312
1594
1806
1291
78224
1270
1664
142,

3408+

1839+
75904
75954
76024
76074
76114
76194
76254
76314
73164
1775
76454
76504
76544
76614
76684
76744
76834
73204
76914
77004
77064
77144
77214
7728#
77354
774620
73234
77454
77554
77604
77634
77684

77754
77814
77854
7793#
77994
73264
73314
73344

6 12

MACY11 30A(1052)
21-FEB-78 08:58 PAGE
CROSS REFERENCE TABLE -~ USER SYMBOLS

7308
5816+
2268
1854
1298
1799

1319

1601
78164
1354

1277
1692
1431
3429+
1840+

7638#

5820

151

SEC 0149

2286+

6714

1305
7814#
1326
1608

1333

1439

1538

1545

1552

1587

1671

1678

1685

1340
1643

1375
1650

1396
1657

1446

1713

1460
1720

1476
1727

1483
1742

1524
1749

1531

1361

1389

1573

1622

1784

1791

78194

1368
1734
1468

1382
1756
1506
3633+

1403
1777
1516
3655

1453
78240
78274
3706

1490

1497

1566

1580

1615

1629

3629+

1763

MD-11-CZRKKF,
CZRKKF .P11

EM31
EM32
EM33
M34
M35

EM36
m37

ms0
M4

M43
ms4
M45

M46
Ms7

M50
m51
M52
n53
M54
mss
m56

ns57
M60

mé1
n62

m63

Mé4

M65

Mé6

m67
M70
M71
M72
M73
M74
M75
M76
M77

025500
025510
025531
025551
025570
025623
025653
025707
025747
026004
026036
026112
026160
026216
026260
026307
026362
026407
026452
026544
026623
026662
026720
026757
027014
027026
027072
027135

027201

027240

027253
027344
027422
027464
027536
027606
027656
027721
RRVEC= 000004
FCHECK
025160
FLAG
001404
TITLE
001346
NS

rreane

T2RG

TSWR

104406
021010

I6T3RG

021002

IGT4RG

020774

000011
001356

HI’NDH

RK11

BASIC LOGIC

21-FEB-78 08:51

1275
1282
1289
1296

1303

TEST 2

73374
73404
73440
73484
73524
7358#
73644
73704
73774

2143
73894

H 12
MACY11 30A(1052)
21-FEB-78 08:58 PAGE
CROSS REFERENCE TABLE -~ USER SYMBOLS

152

SEC 0150

73834

73984
74064
74124

74194
74240
74334
74384
74454
74564
74654
74724
74784
74854
764914
76944
7501#
7508#
75164
75234
1502
75374
75464
7553%
75614
75694
75774
75844
1852
72734

75264

1892

1893+

1901+

6616

6617+

1938
7199
7220

1947
7200
7222

1951
7201
7224

1966
7202

1990
7204

2122

7206

5030
5541
2746
4709
2580
3536
5925

5037
6132#
2823
6131#
2626
3667
6130#

5092

5100

5106

2918
6319
2632
3817
6267

3020

2637

3518+
6029+

3735

3737+

1864+

2291«

1853«
7301

2303+

5799

1883

1926
7198
7218

4969
5422

6581
7216

72044
4963
5416
2371
4435

2382
3247
5691
6811
2458
5886

2701

4440

2407
3368
5707
6852
2467+
€027

6619«

6622+

7207

2147

2301
7208

6151

6435

5170

5186

5251

5272

5331

3547

3681

3829

4167

4332

4341

3936
8407

2683
3941
6527

2687
3945

2696
4068

4074

4263

3743+

3804+

3814+

3898+

3977

3982+

5765+

2832

7210

2928

7212

3030

MD-11~CZRKKF,

RK11

CZRKKF .P11

21-FEB-78 08:51

001360
000020
000012
001216
001236
001245
001272
001303
001315
005040
001406
033342

004702
001436
177772
000240
000000
000040
000100
000140
000200
000240
000300
000340
177776
177776
000024
104410
104411
= 000010
001336
RKCS

001332

BASIC

LOGIC

2465+
1837«
6846
2045
2080
6570
2288
6710
6728
5824
5861+
2813
3274
4247

21748
1180#
9134
1007#
9304
9314
9324
9334
9344
9354
9364
9374

7264
5850+

4462
5525«

9104
9114

001340

001342
001326

KER

001330

KPRI

001400

30A(1052)

4464
5532

2469+
1838+
6852

112

21-FEB-78

08:58

PAGE

153

TABLE =-- USER SYMBOLS

3652+

3664+

5781+

5910
2855
3334
4253
4503
5677

5913
2857
3409
4277
4789
5893

6055+
2909
3521
4324+
4829
5898

6056
2951
3525
4327
4831
5982

5854+

5981

6012

SEG 0157

5872+«

5954

5975+

2953
3651
4365

3011
3781
4367

3053
3964
4372

6724

4943
6013

5319
80004

5392

3055
3968
4378

3141+
3972
4380

3146
4014
4411

3237
4147
4418

3653+
4510

3805+
4534

3964+
4537

3233
6172

3240+
4256

3242
4258

5758+«

5866

6133

2544

2567+

5402+

5406

5461+

5467

911

1894

1843+
7207#

1844+

7231+

7232+

7241+

7247+

7259+

7260+

4320

2815
4086*
4943+
2327+
3529«
4409

2908
4160+
5085+
2608
3531
4501

3010
4195
5319+
2668
3660+
4612

3146
4198
5406+
2741+
3662
4672

3238+
4253+
5467+
2814
3810«
4782

3272
4323
5532+«
2907
3812
4861

3275
4418
5600+
3008
3900
6946

3358+«
4462
5678
3120
4002
4949

3525+«
4465
5751
3152
4132
4967

6265
11174
2610+
3699

6340
1818+
2669+
3808+

6342
2042
2738+
3922+

6343
2051+
2739+
3957

6392+«
2052
2818+
3960

6523
2201+
2913+
3963+

6559
2321+
3015+
4018+

6563
2367+
3122
4078

6583
2404
3235
4081

7283+
2416+

3357
4087+

3527+«
4161+

3658+
4254+

3694
4322

5241+
5697+«

5252
5757+«

5316+
5928+

5317+
6130

5407+«
6284

5468+
6290

5486
6306

5491
6360+

5533«
6391+

5551
6425+

5556
7282+

5599+
7285+

5683+

10024
7113

1968
9974
11164
4020*
4784
11144

3331

4419+

RKDB
RKDS

MACY11

CROSS REFERENCE

11344
10014
907#
10844
1088
1091#
10964
1099#
11024
22504
1153¢
2788
3272
4160

5088

RKDA

TEST 2

1118#
1112#

7208#

5151

4456

5220

4459

5315

4511%

3099
2063

5379

4673+

2457
2232

3084
1820

2505
;gg;

3087
2041

3101
2202

2542
4540

2569
4725

2619
4750

11138
5414
11440

2699
5476
1897+

3902
5480
4865

4344
5623
5945

4346
5629
6487

56460

46B0*

3102
2320

2630
4752
4438
6132

5537«

4749+

3181
2345

2679
5157

4961
6316

5566

4783

3186
2368

5579

4862+

3462
2377

2685
5965

2740
5983

5016
6329

5098
6331

5666

4944+

3464
2380

5019«

2456+
5017+«

3465
2405

5035

5086

3854
2418

5083

5154+

3857
2422

3545
6131

3679
6362

3827
6366

3901
6399

5168
6332

5249

5328

5339

MD-11-CZRKKF,
CZRKKF .P11

001402

001334
001372
001374
001376
021200
001344
025304
001440
001100
002636
002704
003334
177774

L
[
O
LI LI
L
U
LTI
LU
LU
UL

—_

—-—

1 U

[

003736
004262
004456
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
000200
000400
001000
000014

001366
000060
000064
000034
000014

RK11

BASIC LOGIC

21-FEB-78 08:51

11494
4869
1115#

4159+
5405+

11414
11424
11434

TEST

2108+
4895+
2817+
4252+
5466+
3896

3980

2290

4731

5849

7295#

1125#

1181#
9C1#
1018
1817
1891
9124
1911
1922

2031

10564
6611
7252+
10164
9654
955#
9544
9534
9524
9514
9504
9494
9484
9474
9464
9644
9454
944n
9434
9424
9414
9404
9634
9624
9614
960#
959

9584
9574
9564
998#
11374

10054

10064
10044
9994

2030+

2027+

1835
18144

1821
1905#

1935
1933
2034
1833
6625

J 12
MACY11 30A(1052)
21-FEB-78
08:58 PAGE
CROSS REFERENCE TABLE -~ USER SYMBOLS

4613
4904+

2912+

4321
5531«
3985

4631+
5534
3014+
4417+
5598+

4734

2033+

5999
3335

2039+

5847+

2127

2164

19594

1992

1828#

4643
5548+
3148+

5680+

4677
5942
3239+
4450
5696+

6018
3433

6228#
3622

4448

4688+

3359+

4509+
5755+

154
4697+

3526+

SEQ 0152
4707«

4718+

4790

4798+

4806+

3655+

3965+
5084+

4019+

4085+

6187

6431

6567

4787«

4942+

3807+
4955

6726
3785

3866

4000

2157
6699

6302

6305

20394
2078

2081

2096#

6096

6627

6633

6640-

6678

1876

2028
6686

2138
6692

2152
6696

1862

1876

7009

7022

965
964
963
962
961
960
959
958
957
956

6699

6484+

6490+

6522+

6525+

1854+

1856

1862+

2028
6696
6431

6567

6686

6361+

6364

6456+

1841+

1842+

6459+

7009

5093

7046+

5318+

7239

MD-11-CZRKKF,
CZRKKF .P11

TSTEND
020626
TSTRWS
021436
TSTSIN
021572
TST.SI= 104421

TST1
TST10
TST11
TST12
TST13
TST14

004706
005742
006030
006110
006252
006416

TST15
TST16
TST17
TST2
TST20
TST21
TS122
TST23
TST24

006510
006746
007174
005040
007504
007702
010154
010524
011004

TS126
TST27

011722
012242

TST25

011414

TST3
TST30
TST31
1S132
TST33
TST34
TS135
TST36
TST37
TST4
TST40
TST41
TST42
TST43
TST44
TST45
TST46
TST47
TST5
TST50

005236
012530
012764
013170
013436
013720
014176
014330
014654
005350
015070
015274
015456
015564
015740
016076
016304
016456
005436
016634

TSTS3

017330

TST51
TST52

016762
017134

TST54
017622
TST55
017760
1ST56
020004
020054
TST57
TST6
005464
TST7
005522
TYERM
021026
TYPDS = 104405
TYPE

104401

RK11

BASIC LOGIC

21-FEB-78 08:51

6028
2750
6425#
2666
4244
5458

2110
2481
2554
257%
2642
2705
27754
2866
2970
22594
3100
32194
3300
3463
36144
3733
3867
39984
2309#

TEST 2

6055#
5128
7224

2732

4318
5523

2192#
2503
25654
2597#
26554
27214

K 12
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 155
CROSS REFERENCE TABLE =-- USER SYMBOLS

5207

5236

2786
4407
5744

4499
7224#

4606

2508

2515

2530#

4100
42334
4294
43964
44884
4559

41194

4830
4901
5003#
50694
5138#
5163
5291
5378#

4LB46H
49264

5659
57974
58144
58454
2406
2419
2055
6085
1872

63604

4779

4857

4937

3355

3518
5014

3648
5080

3802
5149

3916
5239

4130

1964

1988

2044

2066

2079

2120

2140

2142

3231

5390

3328#
34974

4001
4215
4274
4376
4470
4541
L6604
4758

54474
5489
5578#
56474

3138

5752

3119#

37774

2381

3006

5585

28934
2995#

3749
38944

2341

2905

5256

SEG 0153

43074
4584

4595#

L7684

23564

52194
53044

23934

5512#
5717

57424

2415#
24454
2086
72024
1924

61484
1936

1945

1949

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

TEST 2

2145
6724

2288
6728

TYPOC =
TYPON =
TYPOS =
156
TS6FLG
ATIME
ATINT

104402
104404
104403
020140
001434
021742
021706

AT.IN=
SAUTOB
BDADR
BDDAT

104420
001134
001122
001126

SCKSWR

023762

CHARC

7021
7150
2071

7024
7198%
2125

1179#
2095
6484

1942
6058
2096+
2174
7222

72014
1930
5862

L 12

MACY11 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE =~ USER SYMBOLS

156

SEQ 0154

2299
6742

2304
6759

6083
6761

6086
6764

6149
6766

6433
6770

6569
6777

6571
6816

6579
6911

6689
6981

2150

6154

6439

6577

6584

6727

6750

6774

7023

71994

2293

72004

5865+
65004

6059+

6707

5538

72224

7037
7261

7048

7067

7120

7126

7131

7135

7140

7141

4633
1880+

4682
7017

4703
7166

4794

6828+

6835

6844t

6849N

001100
= 000012
= 000024
= 000012
024647
024642
001213

4619
1053¢
10484
10504
6818+
70094
1036#
10684
1068#
10664
7020
7037
10814

1830
10694
1069#
1068
7161#
7135
2067

1831
10704
10704

1839
10714
1071#

1845
1072¢
1072#

1846
10734
10734

10744
1074#

10754
10754

10764
10764

10774
10774

10784
1078#

71604
2141

2305

6689

6742

6761

6766

6770

6817

6852

023524
020750
023514
020740
020706
020757
020754
020652
020700

6877 _
6079 *
6880
1025
60814
6083
6086
2100
6078¢

6911
6088
69154
60904

001115
022412
001116
001442
022734
001112
001210
001156
001155
001120
001124
020730

10454
1839
10464
1196#
6688
10434
10794
1064#
10634
10474
1049#
60874

023304

091103

024032
= 000000
001104
025142
001135
001114
001214
001106
001110

10394

70214
871
10400
7231
10540
10440

1082
10414

1042¢

7206

6098#
60974
2267
6082

6600

1847+
6672#
6683+
6756
67414
2264+
1846+
6821
6852

69194
60944

7048

60714

6713

6629

6631

6637+

6658

6673+

6684+

G6BS

6748

7814

7816

7819

7822

7824

7827

5826+
6652+
6852

6676+
6702

6680
6704

6645
72664
7166
6745
7150
2155
3126+

6647+

6657

7160
6635+
3329+

6650+
3499+

6655
3616+

6657
3779+

6698
3903+

4859+

5224+

5582+

6653+

6658

7146

7140
)

5864
6631

7143

6710
7020

7204
6644e
7247
7049
6685+
6852
1848+
1849+

5748+

6635

MD-11-CZRKKF,
CZRKKF .P11
SMAIL =
SMNEW
SMSWR
SMXCNT
SNULL

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST 2

6651+

6657

sxtren |
024665
024654
022410
001154

SNWTST= 000001

SOCNT
SOMODE
SOVER
PASS
POWER
PWRAD
PWRDN
PWURMG
PWRUP
QUES
RDCHR
RDDEC=
RDLIN
RDOCT=
RDSZ =
REGAD

REGO

023756
023760
022374
001100
025150
025136
024776
025132
025050
001212
024244
sevews |
024364
#esxex |
000022
001160

001162

SREGT

001164

$SREG10

001202

SREG11
ISREG2

001204
001166

REG3
$REG4
REG5
REG6
REG7
RTNAD

001170
001172

R2ZA

001174

001176

001200
020752
= weever

M2
MACY11 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE =~ USER SYMBOLS

6701

1866
7024
7021
6648
1062#

1876
71644
7162#
66574
682

6852

31054
3888
45878
5062
5569#

3107
39904

32004
3992

2178%
25624

6953+
6948+
6612
1037#
7262
7264#
1843
72624
7241
10804
7080
7209
7108
7209
71014
10664

2180
2588¢

4589
5132
5571
6982+

6952+«
6628
6075+«
72694

6650

22534
2590

46514
5134
56374
69954
6957
6636
6076+

157

SEQ 0155

6805

2255
26484

23064
2650

23534
2711¢

6960
6646
6084

6971+
6654#
6097

69974

3202
41118
4653
s212#
5639

3309#
4113
L7628
5214
57324

7231

7259

72474
6852
7207

7067

7143

7160

3311
42228
4764
5297#
5734

23904
2713

34704
4224
48364
5299
5791¢

6642

6658

24104
27604

2412
2762

24288
28728

2430
2874

25250
29794

2527
2981

3472
43014
4B38
5369¢
5793

35954
4303
49184
5371
58064

3597
4387¢
4920
54354
5808

37540
4389
49954
5437
5829¢

3756
L4750
4997
5503#
5831

3886#
4477
5060#
5505

7208

1068#
2706
3286
4034+
4458%
4799+
;gglfi

2211+
2857+
3301+
4080*
L464*
4815+
ggg;*

2324*
2867+
3389+
4101+
4471+
4831+
5968+«

2345+
2953+
3417+
4197+
4536
48B4+
6000+

2377+
2964+
3448+
4216r
4547+
4910+
6019+

2422+
2971+
3464t
4284+
4566+
5292+
6133+

2500+
3055+
3714+

4285+
4621+
5338+
6305+

2505+«
3066*
3715+
4346+
4689+
5479+
6331+

2510%
3086%
3842+
4352+
4700+
5490+
6342+

2517+«
3093+
3856+
4360+
4722+
5555+«
6366

2556+
3185+«
3953+
4367+
4732«
5616+
7814

2576+
3274+
3959+
4378+
4752+
5628+
7816

2643+
3285+
3970+
4450+
4759+
5721+
7819

1069#
3087+«
3843«
4368
4911+
6343«
10764
4264*
10774
1070#
4549«
7819

2511+
3094+
3857+
4379*
5293+
7816
2833+
4522+«

2518+
3101+
3952+«
4451+
5339+
7819
2929+
5692+

2557+
3102+
3960+
4459+
5480+
7824
3031+
5708+

2644+
3186+
3971+
4465t
5491+
7827
3158+
6192

2707+
3275+
4035+
4472+
5556+

2858+
3287+«
4081+
4537+
5617+«

2868+
3302+
4102+
4548+
5629+

2954+
3390+
4198r
4562+
5719+

2965+
3418+
4217+
4735+
5772+

2972+
3449+
42B6%
4B16%
6132+

3056+
3465+
4353+
4832+
6306+

3067+
3712+
4361+
4885+
6332+

3248+
6196

3369+
6261t

3537+«
6264*

3668+
6287+

3696+
6290+

3699+

3818+

4178+

2966+
4563+
7824
3548+
7827
7827
7827
6185

3068+
4955+
7827

3288+
4964+

3391+
5029+

3419+
5093+

3713+«
5101+

3844+
5171«

3972+
5252+

4036*
5332+«

4103+
5417+

4288+
5722«

4380+
6131

3830+«

5723+

6130+

6181

6560

6562+

6565+

7819

7827

10714
1072¢

1073

10744

10754
60964
7209

3682+«

7827

$SAVRE=
$SAVR6
$SCOPE
$SETUP=

$STUP =
$SVLAD
$SVPC
$SWR

#xeves |

025146
022140
000117
177777

022346
000204
165400

$SWRMK= 000000
STIMES
001206

$TKB
$TKS
$IN

001146
001144
= 000060

7209
7240+
1837
1814#
7004
18144

6620
10234
852#
1845

2598
3999
5139
6074
6629

884
1078#
5846+
1059#
10584

852#
2394
2554
27764
3309
3895#
4308#

L6614

001152
001157
$TPS
001150
$TRAP
024676
TRAP2
024720
TRP
= 000022
$TPB
$TPFLG

S$TRPAD
TSTNM
$STTYIN
$TYPBN=
TYPDS
TYPE
TYPEC
STYPEX
TYPOC
TYPON
TYPOS
XTSTR
$GET4=

OF ILL

4OCAT=

024732

001102
024620
LA
2]

023310
023070
023240
023306
023560
023574
023534
022152
000000

023757
LARS2

034342

50704
5489
5806
10614
10654
10604
1841
71864
71904
72114
7224
7180
10384
7110
7203
68654
67994
6820
6845
69514
6950
69464
66144
60894
6947+
6611
10104
1884#

TEST 2

N 12
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 158
CROSS REFERENCE TABLE ~-- USER SYMBOLS

7248

7249+

7250+

7268#

1836
7166

1837

1839

1841

877

878
1849
2776
4308
5379
6097

879
2193
2894
4397
5448
6601
6639
6627
3615+
6648+

6609#

66494
1028
871
1846
2656
4120
5220
6089
6630
885
1845+
6074+
7002
5698
871
2406
2562
2866
33294
3990
4376
4758
5132
5503
5815#
6841+
6799
6839
7175#
7197
71994
7212
72254
71974
2261+
7111
7202
7190

6827
6847

7199
6953#
7200

1848

2722

4234

5305
6095
6631
6605
2260+
6638+
7013
5699+

2178
2410
25664
2872
3463
39994
4387
4762
'5139#
55134
5829
6852
6852
6852

6638
6606
3498+
6645

7030
5715
21934
24164

2579
2894#
3470

4001
43974
L7694
5163

5569
5846#

7084
5718

2253
2419
2588
2970

34984
4100
4470
4830

5212
5579#

1843

880

1846

1848

1872,

1873

881

883
2394
3329
4769
5743
6605
6657

884
2416
3498
4847
5798
6611
7265

1078
2446
3615
4927
5815
6623

4661

5648«

5743+

6073

6610

4596

5579
6603
6651

3778+
6657
7090
7002
2260#
2428
2598#
2979
3595

3895+

3999+

7011
2306
24464
2642
2996#
3615#

23104
2481
2648
3100
3733

2341
2503
26564
3105
3749
4222
4559
4918
5305#
5717

2353
2508
2705
31204
3754
4234#
4584
49274
5369
5732

2357#
2515
2711
3200
3778#

4274
4587
4995
53794
57434

4294
45964
5004#
5435
5791

2390
2531#
2760
3300
3886
4301
4651
5060
5448#
5798#

72074
7220

7208#
72214

7209#
7222

7210
7223#

1834

1848
3440

1849

5513
6602
6640

2310
3120

7027

7051«

4111
4475
4836

41204
44894
4LBLTH

5291
5648#

4215
4541
4901
5297
5659

7204
7217#

72054
7218

7206
72194

6658

6675

52204
5637

7201#
7214

72024
7215#

72034
7216

6073+
7123

6600
7141

6627

6649+

7198
6834

6839#

6840

7053

1026#
19524

1
1

68504

1845

4489

72004
72134

7155

SEQ 0156

882
2357
3220
4661
5648
6604
6654

2260
2996

7159%

- 6654

7082

7088

1079

1080

2531

3778
5004
5846
6625

2566
3895
5070
6068
6626

5798+

5815+

2381
2525
27224
32204
3867

7201

6951+

6961

69964

10144
1927#

1023
19394

1024#
1948#

28#
91#

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

1035#

21234

1083

21484

1087#

2266

1824

2620

3193

3569

MD-11-C2RKKF,
CZRekf P11

RKIT

BASIC

LOGIC

21-FEB-78 08:51

4055

6657

7810#

TEST

46"

66,8

“97%

B 13

MACY11 30A(10652)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE -~ USER SYMBOLS

4879

6691
8000#

5887

6697

5889

6780#

5896

6852

5994

69194

159

SEQ 0157
6582#
7267

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51

EUORE TA

10294

E WwTST

»
2872

4587

573$

ERIOR?

1198#

SCOPE

903#
2995

USH
EPORT

1L
1

4660

SETPRI

ETTRA

SETUP
KIP
SLASH

SPACE

|STARS

5797
1L
71904
7222
"
”

2970
4559

1008#

2410
2774
3754
4487

5132
5646

2979

4651
5791
1008#
4608
1008#
1008#

2192
3119
4768

5814
1008#
7199
7224
1008#
1008#
3100
4584
1008#

1008#
2414

2872
3776
4587
5137
5732

1008#

5333
5586

5003

1873#

2372
2638
2853
3041
3267
3554

4199
4426
4675
4957
5130

5340
5608
6021

4204
4430
4690
4965
5172
5347
5618
7274

3942
4208
4436
4701
4970
5187
5362
5630
7292

2378
2645
2859
3047
3276
3561
3946
4212
4441
4710
4985
5201
5366
5694

2383
2674
2863
3051
3280
3672
3954

2423
2688
2919

4723
4989
5205
5412
5710

2408
2684
2869
3057
3289
3684
3961
4267
4460
4736
4992
5209
5418
5724

2524#
3107

2527
32004

4113
48364

2588#
3202
42214
4838
54354
5831

2590
33084
4224
4918#
5437

4920
5502#

4303
49954
5505

4387#
4997
5568#

2525
3990
5297

4111

2562

2588
4222
5435

2648
4301
5503

2711
4387
5569

2760
4475
5637

4218
4452

3061
3297
3689

3973
4289

4466

4753
5031
5238
5423
5753

2501
2697
2932
3069
3303
3702

4037
4333
4473
4760

5038
5245
5428
5761

2506
2702
2938
3088
3372
3717

4069
4337
4525
4800
5053
5253
5432
5773

2512
2708

2944
3095
3379
3728
4075
4342
4529
4810
5057
5258
5472
5802

2519
2735
2949
3103
3392
3821

4082
4347

4538
4817
5094
5261
5481
5819

22534
2762
37534
4477
51324
5639

2255
28724
3756
45874
5134
5731»

24104
2874
3885#
4589
5212#
5734

2412
29784
3888
46514
5214
57914

2427#
2981
3989#
4653
52974
5793

2178
3105
4762
5806
6906
4645
6865

2253
3200
4836
5829

2306
3309

4995

2390
3595

2410

4918

2353
3470

3754

5132

2428
3886
5212

7252
4743
7233

7253
4824
7239

4897

5561

5662

5899

2259
3219
4846
5845

2309
3328

2393
3614
5069

2415
3777
5138

2445
3894
5219

2530

4926

2356
3497
5003

3998

4119

5378

4233
5447

2655
4307
5512

2721
4396
5578

2775
4488
5647

4595

7200

7201

7202

7204

7206

7207

7208

7210

7212

7214

7216

7218

7220

2341
3300

2381
3463
4830

2406
3733
4901

2419
3749
5163

2481
3867
5291

4001
5489

2503

2508
4100
5659

4274

4294

2579

2642
4376

2705
4470

4541

1021

1031
2444

1083

2178

2253
2564
3200

2258
2588
3218

2306
2596
3309
4232

2308
2648
3327
4301
4925
5503
6597

2353
2654
3470

2355
2711

2390
2720
3595

2392
2760
3613

1828

4758

2428
2892
3886
4594
5212
5741

6072

2979
3893
4651
5218

5791

2525
2994
3990

4659

5297
5796

2529
3105
3997

4762

5303
5806

5060

2430
3105#
3992

47624
5299
5806#

4118

4836
5377
5829

41104

4764
53694
5808

5304

4222
4845

5435
5844

5371
58284

2565

5571

5122
5294
5557
5969

4381
4640
4912
5126

2346
2633
2849
3034
3258
3549
3937

5060#

4362
4568
4833
5107
5288
5542
5962
1008#
1008#
852#
2180
27604
3597
L4754
5062
56374
1084
1008#
1008#

4181
4369
4622
4886

2336
2627
2843
3021
3251
3540
3927

SEQ 0158

~Nwviwn

2713
3594#
4389

4168

2325
2614
2836
2973
3187
3466
3858
4189

2177#

3168
3421
3835

2223
2581
2824
2967
3177
3450
3845

161

wViasn
~Nmrow

4104
4354
4552
4821
5102
5273
5492
5926
1L
1#

2212
2577
2751
2959

VI NN

SAGE

2558
2747
2955
3162
3397
3831

1008#
1008#

D0 N N~ b\
S OO
2 OO
WO NN —

SCAPE
ETPRI
ETSWR

1#
1#
902#

€13

MACY11 30A(1052)
21-FEB-78 08:58 PAGE
CROSS REFERENCE TABLE =-- MACRO NAMES

Al el o

COMMEN
ENDCOM
ERROR

TEST 2

4918

5446
6064

5369

2597

2554

4306
4995
5511
6736

26484
3311
43004

3496
4387

5002
5569
6784

2650
34704

4395
5060
5577

6855

2711
3472

2893
5742

2866

4475
5068

5637
6923

TEST 2

7004
1008#

7072
1850#

7101

1008#
1008#

6084

SWRSU
TRMTRP

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT

SSCMRE
SSCMTM
SESCA
SNEWT

7001
14
7190#
1L
1L
1L
14
1”
14
1

1029#
10294
1
14

<872

4587
|SSSET

5732

$SSKIP

7190#
7222
1

.EQUAT
.HEADE
KT11
.SETUP
. SWRHI
.SWRLO
LSACTY
.SAPTB
.SAPTH
.SAPTY
.SASTA
.SCATC
SCMTA
.$0B2D

1
1
1L
1L
4
8524
1L
14
1L
1L
1L
14
"
4

.$0B20

2970
4559

1L
1L
1
1L
1L
1L
1L
14
"
1L

. $SAVE
.$582D
.$5820
.$SCOP

1L
1
1
1L

. $SUPR
. STRAP
.$TYPB

1
1L
”

.$SI1ZE

1008#

1008#
1008#
1008#
1068
1008#
1008#

2979

4651
579N
7199
7224
1008#
3100
4584
852#
852#

1008#

1868

6748

6772

1923
1069

2178
3105

4762
5806
7200

2341
3300
4758
898
861

852#
8524
885#
8524

1814

8524
8524

1008
1029

852#

6062

8524

6734

8524

7227

873

1019

.SD1V
. SEOP
.SERRO
.SERRT
.SMULT
. SPOWE
. SRAND
. SRDDE
.SRDOC
.SREAD

.SR2AZ

8524

852#
852#

6999

&52#

6595

852#

7167

1936
1070

2253
3200

4836
5829
7201

2381
3463

4830

D 13

MACY11 30A(10652)
21-FEB-78 08:58 PAGE 162
CROSS REFERENCE TABLE =-- MACRO NAMES

7169

7229

7245

7022
1945
1071

1949
1072

1964

1073

1987
1074

2120

2306
3309
4918

2353
3470
4995

2390
3595
5060

2410
3754
5132

2428
3886
5212

7202

7204

7206

7207

2406
3733

2419
3749
5163

2481
3867
5291

4001
5489

4901

2503

SEQ 0159

O -

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51

2299
1077

6148

6433

6571

6579

2525
3990
5297

2562
4111

2648
4301
5503

2711
4387
5569

2760

5369

2588
4222
5435

7208

7210

7212

7214

7216

7218

7220

2508

2515
4215
5717

4274

2579

2642
4376

2705
4470

4541

1075

4100
5659

2554

4294

4475
5637

2866

MD-11-CZRKKF,

CZRKKF .P11

.STYPD
.STYPE

.$TYPO
.$40CA
.1170

ABS.

RK11

BASIC LOGIC

21-FEB-78 08:51

#
1#
14
"
1

852#
8524
852¢

034342

000

ERRORS DETECTED:

TEST 2

E 13
MACY11 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE =-- MACRO NAMES

6853
6782
6921

CZRKKF ,CZRKKF .LST/CRF/SOL=CZRKKF
.SML ,CZRKKF .P11
SECONDS
392/55=7.0
CORE USED:
34K
(67 PAGES)

RUN=TIME: 22 31
RUN-TIME RATIO:

163
SEQ 0160