Digital PDFs

AH-9246F-MC

July 1978

161 pages

Original

8.4MB

view download

OCR Version

7.6MB

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

OCR Text

RK11/05F/J

&cesTM

corvmi-ony
7e-r EOBBOED
FICHE1OF1

MADEIN USA

MD-11-CZRKKF,

RK11

BASIC

LOGIC

CIRKXF P

21-FEB-78 08:51

TEST

MACY11

30A(1052)

21-FEB-78

08:58

PAGE

SEQ 0001

.REM 2

IDENTIFICATION

PRODUCT

CODE:

PRODUCT

AC=-9244F-NC

NAME:

CZRKKFO RK11

DATE CREATED:

JUNE 1978

MAINTAINER:

DIAGNOSTIC

AUTHOR:

JIM KAPADIA

REVISED BY:

PERVEZ ZAK!
TOM SAWYER
CHUCK HESS

BASIC

LOGIC

TEST 2

GROUP

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

DIGITAL

EQUIPMENT

RESPONSIBILITY
THIS MANUAL.

CORPORATION

FOR ANY

ERRORS

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
RESPONSIBILITY
FOR
THE
USE
OR RELIABILITY OF
g?g}?:RE
ON
EQUIPMENT
THAT
IS
NOT
SUPPLIED

NO
ITS
BY

(C)

1975,

1978 BY DIGITAL EQUIPMENT CORPORATION

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11

30AC1052)

1
C
21-FEB-78
08:58

PAGE

QUICK LOOK-UP OPERATING INSTRUCTIONS
FOR A QUICK REFERENCE, LOOK UP THE FOLLOWING SECTIONS:
1.0
ABSTRACY

2.0

REQUIREMENTS

4.1
LOADING AND OPERATOR ACTION
7.0
SWITCH OPTIONS
FOR A MORE COMPLETE EXPLANATION REFER

W= OO
NN =O

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

(o]

DRIVE

DRIVE-LESS

SWITCH OPTIONS

[en)

SCOPE

PROGRAM STRUCTURE

SRS

[}

STARTING ADDRESS

TABLE

TABLE OF CONTENTS
ABSTRACT
REQUIREMENTS
EQUIPMENT
PREL IMINARY PROGRAMS
EXECUTION TIME

SELECTION
TEST

LOOPS

SET-UP PHASE
DRIVE DEPENDENT CONTROLLER

(=]

OO NS
IWNN 2O
OO

UNEXPECTED TIMEOUTS & RK11

—

HANDLERS AND COMMON ROUTINES
TRAP HANDLER
SCOPE HANDLER
ERROR HANDLER
CONTROL RESET ROUTINE
CONTROL READY ROUTINE
ORIVE RESET ROUTINE
TIME DELAY ROUTINE
WAIT FOR INTERRUPT ROUTINE
OTHER ROUTINES
TTY HANDLER (1/0), ERROR TYPEOUT ROUTINE
POWER DOWN/POWER UP ROUTINE

b —d

ERROR

rofororororoON
NN

ERROR REPORTING

TESTS

—

10.0
-

RoRVeRVo B« -]

TO THE

BELOW AND THE FOLLOWING DOCUMENT.

N —O

NN
—
W

CONTENTS

SEQ 0002

&Hw

MD-11-C2RKKF,
F
. P11
CZRKK

QUICK

INTERPRETATION

VERYFYING MODE

INTERRUPTS

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

1.0

TEST 2

MACY11

1
D
21-FEB-78
08:58

30A(1052)

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
A COMPLETE

AND LOGIC

TEST

PROGRAM AND BOTH OF

TOGETHER CONSTITUTE

THEM SHOULD BE

WHEN USED IN CONJUNCTION WITH A DRIVE IT
OF DETECTING FAULTS IN THE DRIVE ALSO.

USED CORRECTLY
ANALYTIC

2.0

REQUIREMENTS

2.1

EQUIPMENT
A.
B.

C.
D.
2.2

PROGRAM

PDP11 WITH CONSOLE
8k Of MEMORY

TOOL.

CAN

RK11 OR RKV11 CONTROLLER
1-8 RKO5 OR RKOS5F DRIVES OR THE RKOS5 SIMULATOR
(DRIVE

TYPES MAY BE MIXED)

BASIC LOGIC

TEST

(MD-11-DZRKJ)

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

(ORE

MEMORY

CONSIDERABLY LESS

STARTING ADDRESS

200 FCR ANY MODE OF OPERATION.
ALL

6.0

EFFECTIVE

TELETYPE.

ERROR FREE FIRST PASS ON PDP11/20 WITH

3.0

CAPABLE

PRELIMINARY PROGRAMS
RK11

2.3

THIS

AND DIAGNOSTIC

RUN.

SWITCHES

DOWN.

NORMAL START UP WITH

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

PAGE 4

SEQ 0003

MD-11-CZRKKF,
CZRKKF P11

RK11

BASIC LOGIC

21-FEB-78 08:51

PAPER

U
4.1,

6.1 .2

TEST 2

TAPE

MACY11

1
E
21-FEB-78
0B:58

30A(1G52)

LOAD PROGRAM INTO MEMORY
FOR

.ABS

TAPES.

USING

MAKE

SURE

THAT

1O BE

PUT

DRIVES

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

NOT

T0O BE

TESTED ON

4.1.3

LOAD ADDRESS 200

4.1.4

SET SWITCHES IF DESIRED (SEE SEC 7.0)
SIMULATOR PUT Sw<10> UP.
PRESS

4.1 .5

PAGE

'LOAD'.

IF TESTING

START.

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

DRIVES
THE

USER

TO BE

SHOULD

TYPE

NO),

TESTED?
IN

THE

DRIVE

NUMBERS

THAT

ARE

IN
"RUN'
AND TO BE TESTED.
CARRIAGE RETURN SHOULD
TERMINATE THE STRING.
IF AN RX-OSF IS T0 BE TESTED,
TYPE THE SUFFIX 'F*' WITH THE FIRST DRIVE OF THE PAIR.
FOR EgAHPLE. IF DRIVES 2 AND 3 ARE ON AN RK-05F, TYPE
2F.
ONLY

EXMP:
THE

DRIVES TO BE

DRIVES

EXMP:

DO NOT

DRIVES

TESTED? 0,1,2<(CR>

HAVE

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 OC.
THUS A NORMAL

SEQUENCE

WITH DRIVES 0,1

THAT

WOULD BE:

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

THERE IS A '"'RUBCUT'' FEATURE WHICH ALLOWS RUBBING OUT
ANY
NUMBER
OF CHARACTERS THAT WERE TYPED IN WRONG.
;Hisflggflfb OUT CHARACTERS
ARE
ECHOED
BACK
WITHIN
LASHES.

** U'" DELETES THE ENTIRE LINE

SEQ 0004

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

6.1.7

TEST 2

MACY'1

21-FEB-78

08:58

PAGE 6

SEQ €005

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 “"?2?'"

4.1.8

30A(1052)

THE

CORRECT ANSWER

THE

DRIVE NUMBER BEING TESTED OUT

PRINTED

CAN NOW BE RETYPED AGAIN.
IS PRINTED:

ORIVE N ;N=0,1,..7
IF THE DRIVE IS AN RK-05F, AN F
AT

THE

END OF

OUT;

A PASS

THt

FOLLOWING

IS APPENDED

TYPE-OUT OCCURS

END PASS # X

WHERE X= PASS NUMBER
TO

THE

BEGINS.
4.1.9

BEGINNING

(1,2,3---),

THE

NO QUESTIONS ARE

ERROR FREE
BELOW.

PASSES OF

THE

CONTROL

PASSED

PROGRAM AND RE-EXECUTION

TO BE ANSWERED AGAIN.
PROGRAM

APPEAR

SHOWN

THE

RKDP

RK11 BASIC LOGIC TEST 2
MAINDEC~-11-CZRKKF
DRIVES TO BE TESTED?

0,1<CR>
DRIVE 0
DRIVE 1
EgD PASS » 1

DRIVE 1
END PASS ¥ 2

4.2

RKDP DUMP MODE

6.2.1

THE PROGRAM
MONITOR

6.2.2

START AS NORMALLY USING SA 200

$.2.3

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

IS LOADED

TEST DRIVE

'N'

WITH A WORK PACK,

If DRIVE

'N'

INTO

HALT

THE

MEMORY

PROGRAM,

REMOVE RKDP PACK AND REPLACE

CLEAR LOCATION 40,

IS TO BE TESTED,

AND RESTART PROGRAM'

THE RKDP

PACK

THAT

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

TEST 2

MACY11

1
6
21-FEB-78
08:58

30A(1052)

PAGE

SEQ 0006

DRIVE
SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE
SHOULD BE PUT ON 'WRT
ENABL'
(BECAUSE
RKDP
WRITE

PROTECTS

THE

DRIVE).

IF DRIVE

'N'

IS NOT TO BE

SHOULD BE

(CHECKED,

IGNORED.

AFTER

THIS,

THE

RKDP

CHAIN MODE

SEQUENCE

EXPLAINED IN SEC 4.1.5.
4.3

THE

PROGRAM

DRIVE

°'N°'.

CHAIN-LOADED FROM

AFTER

THE PROGRAM

FOLLOWING PRINTOUT OCCUKS.

'DRIVE

'N*®

NOT

THEN

THE

QUESTIONING

THE

RKDP

IDENTIFIES

MESSAGE
IS

PACK

ITSELF

TESTED'

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

4.4

ACT11

THE

MODE

THE PROGRAM [S 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
IN
REPLY
TO
THE QUES- TIONVES TO BE TESTED?)

ZY?ESIN

6.0

DRIVE-LESS

DRIVE

NUMBER

BASIC LOGIC

SEE

1.0,

SEC

PART

FOLLOWED BY

(R.

SEE

SEC

ACTUALLY

THE

TEST

USE RK11
FIRST

7.0

THE

2.2.

TEST

TWO-PART

WHI CH
RK1 1

BASIC LOGIC

TESTS.

SWITCH OPTIONS

THE
NOT

THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR
PROGRAM WILL DETERMINE
PRESENT AND WILL USE A

(I.E.

THAT THE HARDWARE SWITCH REGISTER
'SOFTWARE' SWITCH REGISTER.
THE

AN 11/34)
IS

'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

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

TEST 2

MACY11

30A(1052)

21-FEB-78

SCOPE ROUTINE OR BEGINS A NEW

*SOFTWARE®

TO THE

TEST.

08:58

]

PAGE 8

SEQC 0007

THE

SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

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 ERROURS
DURING SWITCH ENTRY.

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

THE

THE PROGRAM FINDS ALL

'SOFTWARE'

16 SWITCHES

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

'SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST
BE FOLLOWED.

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

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR PRINTOUTS
CYCLE
ON
ERROR
TO
THE
PREVIOUS
'SCOPE' STATEMENT
INHIBIT ITERATIONS
TESTING ON SIMULATOR
LOOP ON SPECIFIC ERROR
LOOP ON TEST AS PER SW<07:00>
DROP THE DRIVE AFTER MAXIMUM
ALLOWABLE NUMBER OF ERRORS OCCUR

SW<11>=1
SW<10>=1
SW<09>=1
SW<08>=1
SW<06>=1
7.1

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

INFORMATION.

OPERATION OF

7.2

PRESSING

THE

‘''CONTINUE'

PROGRAM.

RESTORES

NORMAL

SW<14>
THE PROGRAM LOOPS
ON
THE
SUBTEST
THAT
IS
BEING
EXECUTED
WHEN THE SWITCH IS PUT ON.
THIS SWITCH IS
USED NORMALLY ALONG SWw 15.
SEE SEC 8.0.

7.3

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
C(YCLE
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.

SEE

SEC 8.0 FOR

DIFFERENT

SCOPE

LOOPS

SWIT(H

IN THE

MD-11-CZRKKF,
CZRKKF P11

RK11 BASIC LOGIC
21-FER-78 08:51

TEST

MACY11

1
l
21-FEB-78
08:58

30A(1052)

PAGE

AVAILABLE.

7.5

SW <11>

EACH SUBTEST WILL BE EXECUTFC ONLY
AFTHE

FIRST

PASS,

EACH SUBTEST

ONCE.

NORMALLY

ITERATED A

NUMBER OF TIMES
(USUALLY
S50,
S
IN
SOME
SETTING
THIS
SWITCH
INHIBITS
[ITERATIONS,

CASES).
SO THAT

QUICK PASSES CAN BE MADE.

7.6

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

SW <09>
THIS SWITCH PROVIDES

NOTE

BE DONE

IN THIS CASE.

DIFFERENT
PARAMETER

TIGHTEST

POSSIBLE

THATKE SWi2 THE INITIALIZATION OF

THE BEGINNING OF

PARTICULAR PART OF

THE

SUBYEST

SCOPE

MAY

NOT

THIS SWITCH IS HELPFUL WHEN A

A SUBTEST

IS BEING REPEATED USING

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

AND

READ BACK WITH COUNT PATTERNS FROM 1

THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON

PATTERN 561
THE

7.8

THE

LOOP.

PARAMETERS AT

SIMULATOR.

IS GIVING ERROR,

561TH PATTERN.

YOU MIGHT NOT

IN THIS CASE

TO 177777,
WANT

SW 9 WILL GIVE

A chgf LOOP ON THE 561TH PATTERN ONLY

vYOUu

SW <08>

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST
(AS
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 BF NOTED THAT BEFORE

SELECTING TEST 15, ALL

WILL BE

7.9

EXECUTED.

THE

TESTS

(1-14)

SW<06>
THIS SWITCH
ALLOWS THE PROGRAM TO OROP A DRIVE FROM
THE
SELECTION
LIST
AND
TESTING
AFTER
MAXIMUM
ALLOWABLE
ERROR
COUNT (TOTAL NUMBER OF ERRORS) ON
THAT DRIVE IS EXCEEDED.
THE MAXIMUM ALLOWABLE ERROR

COUNT IS 5,
£§ID$gSPED
NTED.

8.0

SCOPE

LOOPS

AFTER 5
ERRRORS HAVE OCCURED DRIVE
AND A
MESSAGE
(DRIVE # XXX DROPPED)

SEQ 0008

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

TEST 2

MACY11

1
J
21-FEB-78
08:58

30A(1052)

PAGE

THERE ARE

THREE KINDS OF

SCOPE LOOPS AVAILABLE

SWl4:

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 4
TST2:
THE

SCOPE

SEQUENCE

EXPLAINED

BELOW.

TAGS WHICH DEFINE

CASE TEST 1).
BEFORE 'TsTZ2'.
IN THE

NOTE

FOR

THAT

ODIFFERENT

STARTS AT

ILLUSTRATION BELOW =-~>
1S MADE

ERROR 2 OCCURS,

CASES

°'TST1' AND °'TST2" ARE

THE BOUNDARY Of

TEST 1

FROM WHERE RETURN

LOOPING

A TEST,

'TST1'

THIS

AND ENDS JUST

INDICATES

AND LOOPING

(IN

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

3..TST2-=>TST1...
4.

ERROR 2,3;

SW 12 SET.

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

2..ERROR

SEQ 0009

MD-11-CZRKKF,
CZRKKF .P11

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST 2

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
BEING
REPEASING DIFFERENT PARAMETERS, HENCE IT

SO HAPPENS

THAT

SW 9 AND 12 GIVE THE SAME KIND

LOOPS.
THE
EXAMPLE
BELOW WILL
DIFFERENCE BETWEEN SW 9 AND 12.
TST1:

DEMONSTRATE

THE

SCOPE

INITIALIZATION

ERROR 1
MoV
1$:

#18,SLPERR

;*SLPERR'
:THE

N REPETITIONS
I

SCOPE
SWw

TO LOOP

CONTAINS

:BACK ON ERROR- SW 9

TST2:

ADDRESS

—ane
SET,

REPETITIONS

ERROR

OCCURS

DURING

K.TH

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

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

1$..K..ERROR 2-->18..K..ERROR 2~-=>1$...
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

WHICH DRIVES ARE

9.2

30A(1052)

TO BE

TESTED,

21-FEB-78

08:58

PAGE

ETC.

DRIVE DEPENDENT CONTROLLER TESTS
TH]IS 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 PRESENI, IS SKIPPED
AND
THE
NEXT
AVAILABLE

DRIVE

IS SELECTED.

THE DRIVE NUMBER BEING TESTED

DRIVE N

IS PRINTED OUT:

;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
f).
EXAMPLE:
THE
PSUEDO-HEADER
FOR
SECTOR
5,

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

ARE
READ
Sgg?g?ggNT
.
v

THE

ENTIRE

PACK

AND
CHECKED
FOR
CORRECTNESS.
IN
A
TEST ALL THE PSUEDO-HEADERS ARE READ
AND

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

THE

IS MADE

THE

END OF

THIS SECTION,

A CHECK

DRIVES

ALL

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

THUS ONE PASS OF

THE

1.
SUBTEST #1 ONCE
2.
DRIVE-DEPENDENT
DRIVES.
10.0

PROGRAM

INVOLVES DOING

TESTS

FOR

STARTING

ALL

THE

SELECTED

SERRTB

CONTAINS

ERROR REPORTING
THE

ERROR

TABLE

INFORMATION
PERTAINING
TO
EVERY
ERROR
THAT
CAN
OCCUR.
EACH ITEM IN
THE
TABLE
CONSISTS
OF
FOUR

Sea 00N

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

MACY11

30A(1052)

21-FEB-78

08:58

PAGE

ENTRIES.
A.

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

71O

DH -~ THIS IS A POINTER TO THE DATA HEADER TO

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

C = THIS IS A TERMINATOR SIGNIFYING THE

THE

TYPED OUT.

ITEM.

END

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

LOWER
THUS

EVERY ERROR CORRESPONDS TO
AN
ITEM
IN THE
ERROR
TABLE.
THUS '‘ERROR 14'° WOULD CORRESPOND TO ITEM 14.
AS FAR AS POSSIBLE, THE
ERROR
KEPT
SHORT,
BUT
CLARITY
IS

BREVITY.

INSPITE OF THIS,

MESSAGES
HAVE
BEEN
NOT
SACRIFICED
FOR

1F THE USER FINDS A NEED,

HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR

ITEMS TABLE FOUND IN THE BEGINNING OF THE

LISTVINGS.

THUS FOR ''ERROR 14°', '"ITEM 14°'' IN THE ITEM TABLE CAN

BE
LOOKED
UP.
WHEN
THE
ERROR
INSTRUCTION
EXECUTED
A TRAP QCCURS TO THE ERROR HA LOCATED
?; gERROR WHICH PROCESSES THE ERROR CALL.
SEE

11.0

SEC

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

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
OfF
PRACTICAL
CONSIDERATIONS
IS
MADE
SHORY
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
IN
PINPOINTING
THE
FAULT.
A
BRIEF
EXPLANATION
OF WHAT IS BEING CHECKED IN THE SUBTEST
IS GIVEN AT THE BEGINNING JF 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 ROPTINES 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

USING

USED

THE

ROUTINES

TRAP

THE

PROGRAM

INSTRUCTION AND THE

ARE

‘TRAP'

HANDLER.
THE LOWER BYTE OF THE TRAP INSTRUCTION
IS
ENCODED
ODIFFERENTLY
FOR
OIFFERENCT 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
STARI!NG
ADDRESS
OF
THE
ROUTINE
TO
GO
TO
FOR
SERVICE.
12.2

SCOPE HANDLER

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

MEMORY LOCATION °'SSCOPE'.

THE SCOPE HANDLER

STARTS

AT
$SCOPE.
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
AT
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

5225R¥3PIHE ERROR MESSAGE

12.4

TYPEOQUT ROUTINE LOCATED AT

CONTROL RESET ROUTINE
THE CALL FOR THIS ROUTINE

ENCODED

EXECUTED

'TRAP'
THE

IS ''CNT.RESET'' AND

INSTRUCTION.

(CONTROL

RESET

WHEN

ROUTINE

STARTING

''CNT.RESET'' IS

SEQ 0013

MD-11-CZRKKF,

CZRKKF P11

RK11

BASIC

LOGIC

TEST

21-FEB-78 08:51

"CN.RST'"

MACYY1

30A(1052)

IS ENTERED.

8
¢
21-FEB-78
08:58

PAGE

A CONTROL RESET [S 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
2.8 NS
FOR 11/20 AND 560 US FOR 11/45 WITH BIPOLAR

MEMORY.

12.5

CONTROL

READY ROUTINE

THIS ROUTINE IS
CALLED
'TRAP® INSTRUCTION) AND
ROUTINE

WAITS

DOES,

FOR

EXITS

WITHIN A SPECIFIED

CNTRL

THE PC

CONTROL

TIME

RDY DIDN'T

THE

CALLED

EXITED.

WAITS

SETY

RKCS =

WHEN

IS GIVEN

‘'‘CNT.RDY'

CALL

IS 949 MS FOR 11/20

11/45 WITH BIPOLAR MEMORY.

R/W/S RDY

THE

1S LOCATED AT 'DRESET'' AND

IT ISSUES A DRIVE RESET AND

TO SET,

DELAY

PROVIDES A VARIABLE

TIME

DELAY.

THE

TO 177777 (OCTAL) TIME
)
N MICRO
SECS
FOR

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

THE
DELAY
AT
ANY
POINT
CHANGING VARIABLE 'N'.

FOR

CAN BE

DONE

SIMPLY

INTERRUPT ROUTINE

THIS POUTINE PROVIDES A VARIABLE
WHICH RK11 INTERRUPT MAY OCCUR.

WAT.INT
WAITING

ROUTINE

IS 4959 MS FOR 11/20

ROUTINE

CALL
IS
DELAY
N WHERE N=1
DELAY PRC/IDED= 7.5 TIMES( X

11720,
BEFORE

ON WHICH THE

WAITING TIME

MS FOR 11/45 WITH BIPOLAR MEMORY.

THIS ROUTINE

WAIT

AND

rYYYYY

WAITING TIME

BY A '"JSR''.

FOR THE

AND 991

12.8

SET

RESET ROUTINE

TIME

AN ERROR MESSAGE

THE ORIVE - RESET ROUTINE

12.7

READY

CONTROL READY DOES NOT SET

IS THE LOCATION AT WHICH THE

LOCATED.

DRIVE

XXXXXX

AND 189 MS FOR

12.6

THE

BY
‘'CNT.RDY'
(AN
ENCODED
IS LOCATED AT ''CN.RDY''.
THE

N
TIME=7.5

TIMES(

N=1
X )

TIME
LIMIT
THE IS

T0
1777777
N US FOR 11/20,

FOR 11/45 UPON ENTERING THE ROUTINE
DROPPED SO THAT RK11 CAN INTERRUPT.

DURING

(OCTAL)
1.5N US

CPU PRIORITY

'S5

SEQ 0014

MD-11-CZRKKF,

CIRKKF P

RK11

BASIC

LOGIC

TEST

21-FEB-78 08:51

12.9

MACY11

30A(1052)

21-FER-78

(08:58

ARE

OTHER COMMONLY

USED

ROUTINES

LISTED

BELOW.
STYPE:
TYPE ROUTINE

FOR TYPING OUT ASCII

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

$TYPOC:
ROUTINE

FOR

TYPING OQUT OCTAL

$STYPDS:
ROUTINE

FOR

TYPING OUT

FOR

INPUTTING ASCII

FOR

TYPING OUT

LOCATED AT "'$°YPOC"
CALLED BY ‘“'TYPOC"

$RDLIN:

ROUTINE

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

SERRTYP:

ROUTINE

LOCATED AT SERRTYP
CALLED BY ''JSR SERRTYP''

STRINGS.

NUMBERS.

DECIMAL

LOCATED AT ''STYPDS''
CALLED BY "‘TYPDS"

NUMBERS.

STRINGS

FROM 1TV,

ERROR MESSAGES.

$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

SEQ 0015

OTHER ROUTINES
THERE

PAGE

UNEXPECTED TIMEOUTS AND RK11

INTERRUPTS

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

IF IT IS INTACT,
CONTINUE.

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.

MO-11-CZRKKF,
CZRKKF .P11

RK11

BASIC

.OGIC

21-FEB-78 08:51

14.0

TEST

MACY11

PASS OF

ALL

THE

PROGRAM

TESTS

ARE

SUBSEQUENT PASSES THE TESTS ARE
SO
TIMES,
S
IN
SOME CASES).
TIME

QUICK

DONE

ONLY

TO COMPLETE,

TIME.

PAGE

LTITLE

VERIFYING

ONCE,

ITERATED
(NORMALLY
THUS THE FIRST PASS
WHEREAS SUBSEQUENT

MD-11-CZRKKF,

RK11

;*COPYRIGHT (C) 1974,1977
;*DIGITAL EQUIPMENT CORP.

BASIC LOGIC TEST 2

;*MAYNARD, MASS. 01754
v

- *PROGRAM BY JIM KAPADIA
<%

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
:*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977.
) 4

: *PROGRAM REVISED BY TOM SAWYER, MARCH, 1976
;*REVISED BY CHUCK HESS, AUGUST, 1976
OPERATIONAL SWITCH SETTINGS

b
b

b cod kb

%
B

OB OO =WV

SWITCH

T
PRYR

.SBTTL

885
886
887
888
889
890
891
892
893

TAKE

TAKES A SHORTER

PASSES

866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884

08:58

SEQ 0016

FIRST

MODE .

865

21-FEB-78

QUICK VERIFYING MODE

THE

852
853
854
855
856
857
858
859
860
861
862
863
864

[

30A(1052)

USE
HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEQUTS
CYCLE ON ERROR TO PREVIOUS
INHIBIT ITERATIONS

°'SCOPE'

STATEMENT

TESTING ON SIMULATOR

LOOP ON ERROR

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

SRR RA AR AT IR RN RAEACENETRNELTRANRARNRCRRECRNERNRRRERERRARNRRRONCERRNETS

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

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

MO-11-CZRKKF,

CZRKKF .P1T

RK11

BASIC

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

LOGIC

TEST

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

08:58

PAGE

SEQ 0017

;OUT [N THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED
;CAREFULLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT
;tttit't"ti"'i"."'"'Qtttt'Qtttt"'t't.t."""'t"l'tt'tttt't

.SBTTL
001100

BASIC DEFINITIONS

sYINITIAL ADDRESS OF
STACK=
1100
EMT, ERROR
L.EQUIV
.EQUIV

10T,SCOPE

THE STACK POINTER e¢+

1100 wex

;:BASIC DEFINITION OF ERRCR CALL
::BASIC DEFINITION OF

;*MISCELLANEOUS DEFINITIONS

SCOPE

CALL

000011
000012
000015
000200
177776

HT=

12
15
200
177776

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

177774
177772
177570
177570

STKLMT= 177774

;:STACK LIMIT REGISTER
; ;PROGRAM INTERRUPT REQUEST REGISTER
; HARDWARE SWITCH REGISTER
: ;HARDWARE DISPLAY REGISTER

000000
000001
000002
000003
000004
000005
000006
000007
000006
000007

LF=
CR=
CRLF=
PS=

.EQUIV

PS,PSW

PIRQ=
DSWR=
DDISP=

177772
177570
177570

R1=
R2=

R3=

FOR HORIZONTAL

; :GENERAL REGISTER

;:GENERAL REGISTER

13
22

R4=

Ré=
R7=

X6
17

RS=
SP=
PC=

100000
040000
020000
010000

swi5=
SWi4=
sWi13=
sW12=
SW11=
SW10=
sW09=
sWog=
sWo7=
SWwoé=

s :GENERAL REGISTER
: ;GENERAL REGISTER
;;GENERAL REGISTER

;:GENERAL REGISTER
;;GENERAL REGISTER
; GENERAL REGISTER

16
X7

J*PRIORITY

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

002000
001000
000400
000200
000160

;. CODE

s *GENERAL PURPOSE REGISTER DEFINITIONS

RO=

000000
000040
000100
000140
000200
000240
000300
000340

004000

0
40
100
140
200
240
300
340

::STACK POINTER
: sPROGRAM COUNTER
LEVEL

DEFINITIONS

;;PRIORITY
;sPRIORITY
;:PRIORITY
;;PRIORITY
;;PRIORITY
;;PRIORITY
;sPRIORITY
;:PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;*''SWITCH REGISTER'' SWITCH DEFINITIONS
100000
40000
20000
10000
4000
2000
1000
400

200
100

O
1
2
3
4
5
6
7

'AB

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF P11
21-FEB-78 08:51
950
951
952
953
954
955

956
957
958

000040
000020
000010
000004
000002
000001

959

960
961
962
963

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

1002
1003
1004
1005

.EQUIV

SW06,SWé

.EQUIV
.EQUIV
EQUIV

PAGE

SEQ 0018

SW09,Sw9
SWO08,Sw8
SWO07,SwW7

SW01,5W1

SWO00,SwW0

:*DATA BIT DEFINITIONS
BIT15=
100000
BIT14=
40000
8IT13=
20000
BIT12=
10000
BIT11=
4000
BIT10=
2000
BI1T09=
1000
BIT08=
400
BITO7=
200
BIT06=
100
BIT05=
40
BIT04=
20
BIT03=
10
BIT02=
4
BITO1=
2
BIT00=
1

.EQulv
.EQUlv
.EQulv

.EQUlvV
.EQuIv
.EQUIV
.EQUIV
.EQUIV
.EQUIV

(BITOO TO BIT15)

81709,BIT9
B1T08,B178
B81107.8117
BIT06,BIT6
BIT05,BITS
BITO04,BIT4
BITO3,BIT3
BIT02,BIT2
BITO01,BITH

.EQUIV BIT00,BITO

ggz

1001

40
20
10
4
2
1

.EQUIV

987
988
989
990
991
992

995
996
997
998
999
1000

SW05=
SWo4=
SWwo3=
SWw02=
sSWoi=
SWoo=

.FQUIV

ggg

984
985
986

£
2
MACY11 30A(1052)
21-FEB-78
08:58
BASIC DEFINITIONS

.EQUIV
SWO05,SWS
LEQUIV SWO04, SW4
.EQUIV
SW03,sw3
LEQUIV SW02, SW2

964

967
968
969
970
9N
972
973
974
975
976
977
978
979
980
981
982
983

TEST 2

000004
000010
000014
000014
000014
000020
000024

;*BASIC ''CPU'" TRAP VECTOR ADDRESSES
ERRVEC= 4
;;TIME OUT AND OTHER ERRORS
RESVEC= 10
;;RESERVED AND ILLEGAL INSTRUCTIONS
TBITVEC=14
;T Bl
TRTVEC= 14
;. TRACE TRAP
BPTVEC= 14
: ;BREAKPOINT TRAP (BPT)
IOTVEC= 20
;s INPUT/0UTPUT TRAP (10T) ««SCOPE*+
PWRVEC= 24
;. POWER FAIL

000034
000060

TRAPVE (=34
TKVEC=
60

000030

tMTVEC= 30

;;EMULATOR TRAP (EMT)

;2 'TRAP'' TRAP
;:TTY KEYBOARD VECTOR

=<ERRORte

MO=-11-CZRKKF,

&kx11

CZRKKF P11

21-FEB-78 08:51

1006

LOGIC

000064

1007

1008
1009
1010
1011
1012

1013

1014
1015
1016
1017
1018
1019
1020

BASIC

TEST

MACY11

30A(1052)

21-FEB-78

TPVEC=

.SBTTL

TRAP CATCHER

SEQ 0019
;. TTY PRINTER VECTOR

PIRQVE(C=240

000000

.=0
s*ALL UNUSED LOCATIONS FROM & - 776 CONTAIN A ', 42 HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH I[MPROPERLY LOADED VECTORS
=174
DISPREG: .WORD
0
:;SOFTWARE DISPLAY REGISTER
SWREG:
.WORD
0
;;SOFTWARE SWITCH REGISTER
.SBTTL
STARTING ADDRESS(ES)
JHP
@#START ;;JUMP TO STARTING ADDRESS OF PROGRAM
.SBTTL
ACT11 HOOKS

000174
000176
000200

000137

002636

1022
1023
1024

;HOOKS REQUIRED BY A(T11
$SVPC=.
.=46

000052

PAGE

000240

000174
000000
000000

000046

08:58

BASIC DEFINITIONS

1021

1025
1026
1027
1028

000204
000046
020740
000052
000000
000204

; ;PROGRAM INTERRUPT REQUEST VECTOR

RR
R
R R R eI,

SENDAD
.=32
.WORD
.=$SVPC

: SAVE

:21)SET LOC.46 TO ADDRESS OF

;:2)SET LOC.52 TO ZERO
.; RESTORE P(

SENDAD

.SEOP

MD-11-CZRKKF,

F
. P1
FIRKK

LOGIC

21-FEB~78 08:51

TEST

MACY1T1 30A{1052)
COMMON TAGS

.SBTTL

21-FEB-78

08:58

PAGE 21

SEQ 0020

COMMON TAGS

::t't'.'!t""i"""tt"t'tt't't'tltt"'"""""Q""...'C"..

;*THIS

TABLE

CONTAINS

;*USED IN THE PROGRAM,

001146

001150
001152
001154

001155
001156
001157
001160

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

.WORD
SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$SAUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
177560
$TKS:
$TKB:
177562

177570

177560
177562
177564
177566
000
002
012
000
000000

$TPS:

$TPB:
:
$NULL
SFILLS:
SFILLC:
$TPFLG:
$REGAD:

$REGO:
$SREG1:
$REGZ:
$REG3:
$REG4:

000000

000000
000000
000000
000000
000000
000000

$REGS:

$REG6:

$REG7:
$REG10:

000000
000000
000000
000000
077

177564
177566
.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$REG11:
STIMES: 0
$ESCAPE: 0
$QUES:
LASCII
$CRLF:
LASCII
SLF:
ASCIZ

015

000012

COMMON

STORAGE

LOCATIONS

;;CONTAINS ERROR FLAG
;;CONTAINS SUBTEST ITERATION COUNT
;;CONTAINS SCOPE LOOP ADDRESS
;;CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
;:CONTAINS ITEM CONTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST
s :CONTAINS PC OF LAST ERROR INSTRUCTION
;;CONTAINS ADDRESS OF °'GOOD*' DATA
;;CONTAINS ADDRESS OF 'BAD' DATA
;:CONTAINS °*GOOD' DATA
;s CONTAINS °'BAD' DATA
; sRESERVED--NOT TO BE USED
;:AUTORATIC MODE INDICATOR

;: INTERRUPT MODE INDICATOR
«

.BYTE

VARIOUS

J:START OFf COMMON TAGS
s CONTAINS PASS COUNT
J:CONTAINS THE TEST NUMBER

b -]

STSTNM:
SERFLG:
S$ICNT:

.WORD
.BYTE

Jolelelele olo]le]

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570

.=1100

001130
001132
001134
001135
001136
001140
001142
001144

SCMTAG:
$PASS:

<o [eTelololelolelelola

001122
001124
001126

001100

DDISP

[a¥]

001100
001100
001102
001103
001104
001106

OO—MNO

1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084

BASIC

QOO OO0OO0OOO0O0

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

RK11

;;ADDRESS OF SWITCH REGISTER
;;ADDRESS OF

DISPLAY REGISTER

;;TTY KBD STATUS
;:TTY KBD BUFFER

;:TTY PRINTER STATUS REG.
;:TTY PRINTER BUFFER REG.

ADDRESS
ADDRESS

;;CONTAINS NULL CHARACTER FOR FILLS
;s CONTAINS # OF FILLER CHARACTERS REQUIRED

;s INSERT FILL CHARS. AFTER A ''LINE FEED"
::""TERMINAL AVAILABLE'® FLAG (BIT<07>=0=YES)
;:CONTAINS THE ADDRESS FROM

JWHICH (SREGO) WAS OBTAINED
:;CONTAINS ((SREGAD)+0)
;:CONTAINS ((SREGAD)+2)
+4)
:;CONTAINS ((SREGAD)
;sCONTAINS ((SREGAD)+6)
::CONTAINS ((SREGAD)+10)
:;CONTAINS ((SREGAD)+12)
:;CONTAINS ((SREGAD)+14)
::CONTAINS ((SREGAD)+16)
::CONTAINS ((SREGAD)+20)

;:CONTAINS ((SREGAD)+22)

J;MAX. NUMBER OF ITERATIONS
/7/

<15
<12>

;;ESCAPE ON ERROR ADDRESS
;;QUESTION MARK

;s CARRIAGE RETURN
;:LINE FEED

':'Q't't"i't'ti'i"ttt""t""'tt'"i"'t't'l't'tt'tttttti'ti"

001216

005015

051104

053111

MSG1:

LASCIZ

<15><12>/DRIVE PRESNT/

MO-11-C2RKKF,
CZRKKF.P1
1085
1086
1087
1088

001224
001232

;838

001236
001244

1091
1092
1093

001245
001252
001260

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST 2

MACY11 30A(1052)
COMMON TAGS

21-FEB-78

08:58

020105
052116
001236
005015

051120
000

051505

047516

042516

MSG2:

.EVEN
LASCIZ

<15><12>/NONE/

015
051040
042111

0641412
054504
023516

052116
042040
020124

MSG3:

LASCIZ

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

000

}gg;

001266

042523

000124

1096

001272

005015

0511064

053111

MSG4:

LASCIZ

<15><12>/DRIVE

1099

001303

001310

042040

015

040412

046114

MSGS:

LASCIT

<15><12>/ALL

1102
1103

001315
001322

040
006504

051104
000012

050117

MSG6:

.ASCIZ

/ DROPD/<15><12>

}88;
}}8?

el
b

=2 OV NONEBWN=O
VB NOWVNS W ~O 00
W

b
ok

—d
e
b
b
e
b

b
d
b
b

b
b aed e
b

D
b cad
d

mmd

wd
o

wd cmd

b wd

e
d wd o

e
b

and ad i

5
6

—

D o

ed wd

b ad ek

D cd

e —d

b ad

1104
1105
1106
1107

001300

PAGE 22

020105

000

053122

123

SEQ 0021

SET/

DRVS/

.EVEN

:RK11 REGISTERS
;IF FOR ANY REASON THE

DIFFERENT FROM THESE

;(GIVEN BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE
;MODIFIED SO THAT THE CORRECT ADDRESS IS USED.

001326
001330
001332
001334
001336
001340
001342

177400
177402
177404
177406
177410
177412
177416

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

.EVEN

177400
177402
177404
177406
177410
177412
177416

;TAGS AND GENERAL DATA AREA
.

001344
001346
001350
001352

000000
000000
000000
000000

SIMuL:
FTITLE:
DRIVAD:
DRVDON:

001354

000000

DRVPTIR: 0

001356
001360
001362
001364

000000
000000
000000
000000

INDX1:
INDX2:
COUNT:
COUNT1:

O
O
0
0

001370

000000

EFLGT:

001366

000000

TIMER:

0
0
0
0

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

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

;CONTAINS THE POINTER TO THE DRIVE FLAG (DRIVEO

:=DRIVE?) OF THE DRIVE TO BE CHECKED NEXT.
;GENERAL INDEX FOR KEEPING COUNT
; GENERAL INDEX
;GENERAL COUNT REGISTER
;COUNT REGISTER USED FOR 'DRESET'
;TIMER REGISTER

;SET, TO INDICATE A PARTICULAR
;ERROR CONDITION

SUBROUTINE

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

1641

142
143
144
145

001372

001374
001376
0016400

000100

001000
014500
000200

TEST 2

MACY11 30A(1052)
COMMON TAGS

SEEXKO:

SEEK1:
SEEK2:
RKPRI:

100

1000
14500
200

46
47

SOV

NIV

WN2L2O OV

WO NNNNNNNNVNOOCORGOOROP
NNV
S

NOWVNSWN=SO OB NO VB WN—=O O

J
2
21-FEB-78
08:58

PAGE

;CONTAINS ADDRESS OF

SEQ 0022
CYLINDER 2

;CONTAINS ADDRESS OF CYLINDER 20
;CONTAINS ADDRESS OF CYLINDER 312
;CONTAINS THE CPU LEVEL AT WHICH
sRK11 NORMALLY INTERRUPTS. THIS WORD

;SHOULD BE CHANGED IF RK11 IS DESINGATED
;A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGED

001402

000220

RKVEC:

220

001404
001406

000000
000000

FFLAG:
ODDEVN:

O
0

001410

000000

DOPCH:

001412

000000

DRIVS:

;70 6,

THIS WORD SHOULD BE

CHANGED

TO 240.

sCONTAINS THE NORMAL VECTOR ADDRESS TO WHICH

;RK11 INTERRUPTS. IF THIS 1S NOT SO, CHANGE
;THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS.
;USED TO DETERMINE WHICH OF RKk-05F DRIVES ACTIVE

;0 IF EVEN DRIVE
;=1 1F 0DD DRIVE

:IF PROGRAM LOADED FROM RKO5,

CONTAINS

:ADDRESS 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).
;1F MORE THAN S ERRORS OCCUR IN THE HARDWARE 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

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

O
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 ORIVE 5
;FOR DRIVE 6
;FOR DRIVE 7

MD-11-CZRKKF, RK11 BASIC LOGIC TEST 2
CZRKKF
. P11
21-FEB-78 08:51
1182
1183
1184
1185
1186
1187
1188
1189

MACY1Y 30A(1052)
21-FEB-78
ERROR POINTER TABLE
.SBTTL

08:58

PAGE 24

SEC 0023

ERROR POINTER TABLE

;¢THIS TABLE CONTAINS THE 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 [N THE TABLE IS PERTINENT.
;*NOTE1:
;*NOTEZ:
i *

e
ot
A
001442

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
;;POINTS TO THE ERROR MESSAGE

DH
DT
DF

;;POINTS TO THE DATA HEADER
;:POINTS TO THE DATA
;:POINTS TO THE DATA FORMAT

$ERRTB:

;THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES
JUSED 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.

;"EMA#A’ 1S THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED
;OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR
' THE ERROR

b
d
b
b
D

- eed

R
P
[E

[ _ENT. SV W Y VT NP

JMESSAGE TYPE QUT WILL BE 'TIME OUT ON RK11 REG".

;"DHARR® 1S THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT
;IMMEDIATELY AFTER THE ERROR MESSAGE.
J'DTHER®
SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE
:THE INFORMATION RELEVANT TO THE ERROR TYPE OQUTS (LIKE PC, CONTENTS
;OF RKCS ETC.) WILL BE PICKED UP FROM.

:EHEH%AET ROW CONTAINING '0° SERVES AS A TERMINATOR.

SJEX

LE:

;IF ON RUNNING THIS PROGRAR A TIMEOQUT WERE TO OCCUR ON ADDRESSING RKDS
:(177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD
;OCCUR ON THE TELETYPE.

TIME OUT ON RK11 REG

reapey

REG

177400

INOTE THAT ###48# WOULD BE THE ACTUAL PC WHERE 'ERROR

1' IS LOCATED.

;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
;
'ERROR

;ERROR

IS 104001
1'
103" 1S 104126

ITEMS TABLE

ETC.

MD-11-CZRKKF,
CZRKKF P11

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

1250

1251
1232
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264

1265

1266
1267
1268
1269
1270
1271

1272
1273
1274

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

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

JITEM
001442
001444
001446
001450

001452
001454
001456
001460

SEQ 0024

J'SIN' IS SET
RKCS
;PC
;SERRPC SREGO

RKER
SREG1

RKDS
SREGZ

RKDA
SREG3

2
EM70

027253
032113
031762
000000

PAGE 25

EM12
DH44
D120

025402
032327
031742
000000

JITEM

DH14

sCNTRL RDY DIDN'T SET ON READ/FMT FROM DISK ADDRESS
:PC
RKCS
RKER
RKW(

EM16

;RKDA WRONG AFTER SSE

DT26

;SERRPC SREGO

SREG!

SREGZ2

JITEM
001462
001464
001466
001470

025427
032047
031732
000000

DH4
DT?

H 4"

EXPCT

;SERRPC SREGO

RECVD

SREG1

JITEM
001472
001474
001476
001500

025456
032213
031724
000000

EmM21
DH34
DT

:RKDS ERROR
RKDS
sPC

EM30
DH30
D126

;'DPL" BIT SET, CHECK DRIVE POWER

EM31
DH30
DT26

:'DRU' BIT SET, CHECK DRIVE
RKDS
RKER
RKCS
:PC
;SERRPC SREGO
SREG1
SREGZ

EM3c
DH34

;'RKOS5® BIT NOT SET

:SERRPC SREGO

;ITEM
001502
001504
001506
001510

025470
032155
031762
000000

:PC

RKCS

;SERRPC SREGO

RKER

SREG1

RKDS

SREGZ

JITEM

1275
1276
1277

1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293

RK11

025500
032155
031762
000000
JITEM

001522
001524
001526
001530

025510

032213
031724

DT1

000000

JITEM
001532
001534
001536
001540

025531
032327
031742

000000

:PC

RKDS

; SERRPC SREGO

EM33

DH44
D120

;'DRY’ NOT SET
RKCS
;PC
;SERRPC SREGO

RKER
SREG1

RKDS
SREG2

RKDA

SREG3

MD-11-CZRKKF, RK11 BASIC LOGIC
CZRKKF .P11
21-FEB-78 08:51
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305

TEST 2

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

JITEM

001542
001544
001546
001550

DT
0
:1TEM

001552
001554
001556

001560

NN =0
NV
VONE NN SOV
NOVE WO OB
NN~ (V] N2 OOV

b
b waad
b
ad
e
D
e
eed e
D e
ol
D
ek
e
e
b
D v
e
i
e

LY Ay Y
bttt ab ol ot b et ot adndl LIV LV LV LV LV IV IV IV IV ]
AN N N AW N NN NI NI NI NI PO PI NI N b b = ed b o e nd e b

i
b

Al L
N N N

md wnd

A
e
i
b il
b
s
—d

Aol Lt M L 1" LY LV Y
L
B o~ 8
B

1348
1349

025623
032251
031732
600000

001572
001574
001576
001600

012
JITEM

001602
001604
001606
001610

025707
032301
031732
000000

001612
001614
001616
001620

025747
032213
031724
000000

001622
001624
001626
001630

025415
032047
031732
000000

001632
001634
001636
001640

026004
032150
031756
000000

PRSNT-COUNT

;SERRPC SREGO

NXT=COUNT

SREG!

;'SECTOR COUNTER' INCREMENTED WRONG
:PC

EXPCTD

;SERRPC SREGO

RECVD

SREG1

:DION'T GET SC=SA FOR THIS SECTOR

;PC

SECTOR

;SERRPC SREGO

RKDS

SREG1

;ERROR-"R/W/S RDY' SHOULD BE SET
RKDS
sPC
SREGO
C
;SERRP

EM13

DH4
D12
JITEM

;PC

EM41T
DH34
DT

JITEM

:'SEC COUNTR' DIDN'T INCREMENT

EM4O
DH40
DT2

;ITEM

:'SEC COUNTR® DION'T COUNT TO O
SEC-CNTR
:PC
;$ERRPC SREGO

EM37
DHé

025653
032047
031732
000000

RKDS

;SERRPC SREGO

EM36
DH36
012

JITEM

;'SOK' DID NOT SET

s PC

EM35
DH35
DT

025570
032231
031724
000000
JITERM

001562
001564
001566
001570

EM34
DH34

025551
032213
031724
000000

PAGE 26

;RKBA ERROR
EXPCT
;PC
;SERRPC SREGO

RECVD
SREG1

EM43
DH21
DT21

JUNEXPECTED RK11

;PC

s $ERRPC

INTERRUPT

SEQ 0025

MD-11-CZRKKF,
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

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

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

(08:58

PAGE 27

SEQ 0026

001642
001644
001646
001650

026036
032327
031742
000000

EMG4
DH44
D720
0

;"CNTRL RDY' DIDN'T SET AFTER SEEK OR DRIVE RESET
RKCS
;PC
;SERRPC SREGO

RKER
SREG!

RKDS
SREG2

RKDA
SREG3.

22
001652
001654
001656
001660

026112
032327
031742
000000

EM4S
DH&4
D120

;'ERR' OR "HE' SET ON SEEK OR DRIVE RESET
RKDA
RKDS
RKER
RKCS
:PC
;SERRPC SREGO
SREG!
SREG2
SREG3

23
001662
001664
001666
001670

026160
032155
031762
000000

EM46

DH30
DT26

sRKER BIT, ON SEEK OR DRIVE RESET
;PC

RKCS

:SERRPC SREGO

RKER

SREG1

RKDS

SREG?

001672
001674
001676
001700

026216

032047
031732
000000

EM47
DH4
DT2

sRKCS CHANGED AFTER FUNCTION WAS DONE
RECVD
EXPCT
:PC

;SERRPC SREGO

SREG1

001702
001704
001706
001710

026260
032155
031762
000000

EMS0
DH30
DT26

:'R/W/S RDY' DID NOT CLEAR
;PC

RKCS

;SERRPC SREGO

RKER

SREG1

RKDS

SREG2

26
001712
001714
001716
001720

026307
032327
031742
000000

EMS1
DH&4
DT20

:*R/W/S RDY' DIDN'T SET AFTER SEEK OR DRIVE RESET
RKDA
RKDS
RKER
RKCS
;PC
;SERRPC SREGO
SREG1
SREG2
SREG3

27
001722
001724
001726
001730

026362
032047
031732
000000

EMS2
DH&
DT2

sRKDA CHANGED AFTER SEEK

;PC

EXPCTD

;SERRPC SREGO

REGVD

SREGH

001732
001734
001736
001740

026407
032155

031762-

000000

EMS3
DH30
DT26

;'CNTRL RDY' DIDN'T CLEAR AS GO WAS SET
:PC

RKCS

;SERRPC SREGO

RKER

SREG!

RKDS

S$REG2

MD-11-CZRKKF,

CIRKKF P
1606
1407
1408
1409
16410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1622

1423

1424
1425
1426
1427
1428
1429
1430
1631
1432

1433

1434
14635
1636
1437
1438
1439
1440

1441
1442

1443

1644
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

MACY11 30A(1052)
Ji-FEB-78
ERROR PNINTER TABLE
J1TENM

08:58

PAGE 28

SeQ 0027

001742

026452

EMS4

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

001744

032374

DH54

001746

031774

DT5¢4

;PC
RKCS
RKER
RKDS
;DRVE
(YL
<DSK-ADRES>
;SERRPC SREGO
SREGY
SREG2

001750

000000

0
JITEM

:FROM

;SREG4L

<DSK-ADRES>

SREGS

026544

EMSS

;'HE' OR '"ERR'

001754

032374

DH54

001756

031774

DTS4

:PC
DRV

RKCS
CYL

001760

000000

;SREGSL

SREGS

026623
032503

EMS6
DH56

001766

031774

DT54

001770

000000

001772
001774
001776
002000

;ITEM
002002
002004
002006
002010

026720
032047
031732
000000

002012
002014
002016
002020

DH4
012

026757
032155
031762
000000

002022
002024
002026
002030

027014
032047
031732
000000

$REG1

$REG6

$REG?Z

$REG?7

sRKDA INCREMENTED WRONG
DRV#
EXPCT:
;PC
sRECVD: DRV#S
cyL
s SERRPC
SREGO

RKDA
SUR

$REG3

SECTR

;SREG4

SREGS

SREG6

ON WRITE OR WRITE FORMAT
SECTR
SUR
cyL
SUR
SECTR
SREG1
SREG2
SREG3
SREG7

;RKWC DIDN'T OVERFLOW ON WRITE OR WRITE FORMAT

:PC

RECVD

; SERRPC SREGO

;RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT
RECVD
EXPCT
;PC
SREG!
;SERRPC SREGO

36
EM6]

DH30
D126
JITEM

RKER
RKDS
<DSK=-ADRES>

EM60

JITEM

;SERRPC SREGO

ON WRITE/FMT STARTING FROM

EMS7
DHS
DT

026662
032075
031724
000000

;<DSK-ADRES>

001762
001764

JITEM

SECTR

001752

;ITEM

SREG>

RKDA
SUR
$REG3

sRKER SET, ON WRITE/READ/FORMAT
RKDS
RKER
RK(S
;PC

;SERRPC SREGO

SREGY

EM62
DH4
D12

;RKDB ERROR
EXPCT
;PC

;SERRPC SREGO

RECVD
SRENT

SREG?2

MD-11-CZRKKF,
CZRKKF .P11

1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
16474

1475
1476
1477
1478
1479
1480
1481

1482
1483
16484
1485
1486

1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500

1501

1502

b o

NN
—=2O O

ol
=
)
il
b
ol
-—

b
b
i
)
wl cd wmd
—

VAVAVAW
WMWYV AW N

—

1503
1504
1505
1506
1507
1503

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

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

PAGE

SEQ 0028

002032
002034

027026

032503

EM63
DH56

:RKDA INCREMENTED WRONG ON READ OR READ FORMAT
SECTR
SUR
eyt
DRV#
EXPCY:
;PC

002036

031774

D154

s SERRPC

002040

000000

0
JITEM

002042
002044
002046
002050

027072
032610
031732
000000

002052
002054
002056
002060

027135
032047
031732
000000

002062
002064
002066
002070

027201

JITEM

002072
002074
002076
002100

027240
032672
031762
000000

SREG7

SREG3

;RKWC DID NOT OVERFLOW ON READ OR READ FORMATY
:PC
RKW(
;SERRPC SREGO

RKDA
SREG!

;RKBA INCREMENTED WRONG ON READ OR READ FORMAT
RECVD
EXPCT
;PC
SREG!
;SERRPC SREGO

; INCORRECT HEADER FROM ‘'SECTOR'
RECVD
EXPCT
SECTR
:PC
;SERRPC SREGO
SREG1
SREGZ2.

;DATA ERROR
EXPCT
;PC

;SERRPC SREGO

RECVD

SREG!

DSK-ADRES
SREG?

EM70

002102

027253

002104

032374

DHS4

002106

031774

DT54

002110

000000
JITEM

SREGS

SECTR

$REGZ

Emé7
DH67
D126
;ITEM

SREGS

SUR

SREG]

EM66
DH66
DT26

032634
031762
000000

;SREG4

SREGO

EM65
DH4
D12
JITEM

DRv#

EMm64
DH64
D12

D1TEM

sRECVD:

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

;

FROM <DSK-ADRES>

;PC

;ORVE

RKCS
(YL

sSERRPC SREGO
:SREGL SREGS

RKER

RKDS

RKDA

SREG!
SREG6

SREG2
SREGY

SREG3

<DSK-ADRES>

SUR

SECTR

002112

027344

EM71

002114

032374

002116

031774

;'HE® OR "ERR' BIT SET ON READ/FMT STARTING

DH54

; FROM <DSK-ADRES>
RKER
RKCS
;PC

RKDS

RKDA

DTS4

;SERRPC SREGO

SREG!

$SREG?2

$REG3

:DRVE

(YL

;SREGSL

SREGS

<DSK-ADRES>

$REGS

SREG?7

SUR

SECTR

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

002120

1522
1523
15264
1525
1526

002122
002124
002126
002130

1529
1530
1531
1532
1533

002132
002134
002136
002140

1536
1537
1538

002142
002144
002146

027422
032047
031732
000000

027464
(32213
031732
000000

027536
032732
031724

1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559

1560
1561
1562
1563
1564
1565
1566
1567
1568
;ggg
1571
1572
1573

:ITEM
002152
002154
002156
002160

027606
032732
031724
000000

002162
002164
002166
002170

027656
033106
031724
000000

0023772
002174
002176
002200

027721
032047
031732
000000

002202
002204
002206
002210

027756
032753
031762
000000

002212
002214
002216

030001
032327
031742

SHOULD BE

CLEAR

:HARDWARE POLL, INTERRUPTING DRIVE # NOT PRESENT
;PC
DRIVE #
:SERRPC SREGO

:'DRIVE #' DID NOT
:PC
DRIVE #
:SERRPC SREGO

INTERRUPT DURING HARDWARE POLL

;SCP DID NOT SET AFTER WAS DONE
;PC
RKCS
JSERRPC SREGO

:RKDA CHANGED AFTER °'DRIVE RESET'
:PC
EXPCT
RECVD
;SERRPC SREGO
SREGI

55
EM100
DH100
D126
0

JITEM

[D BITS(13-15)

EM77
DH4
DT2
0
;ITEM

DRIVE

53
EM76
DH117
DT
0

JITEM

;HARDWARE POLL,
:PC
RKDS
:3ERRPC SREGO

52
EM7S
DH74
DT1
0

JITEM

;WRONG DRIVE ID IN RKDS AFTER SEEK
:PC
EXPCT
RECVD
;SERRPC SREGO
$SREG1

51
EM74
DH74
DT

000000

}gzg

SEQ 0029

S0
EM73
DH34
D12
0

JITEM

002150

EM72
DH&
DT2
0

JITEM

}ggg

PAGE

0
JITEM

}ggg

1539

D
3
MACY11 30A(1052)
21-+€B-78
08:58
ERROR POINTER TABLE

000000

}gg?

1540

TEST 2

;DATA ERROR AT WORD#
;PC
WORD#
EXPCT
;SERRPC SREGO
$REGI

RECVD
$REG?

EM101
DH44
D120

;CNTRL RDY DID NOT SET AFTER READ CHECK
JPC
RKCS
RKER
RKDS
RKDA
:SERRPC SREGO
$REG1
SREG2
SREG3

MO-11-CZRKKF,
CZRKKF P11

1574
1575
1576
1577
1578
1579
1580
1581
1582
1583

1584

1585
1586
1587
1588
1589
1590
159
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

002220

RK11

BASIC

21-FEB-78 08:51

TEST

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

JITEM

002222
002224
002226
002230

030067
033010
031724

DH103
DT

000000

030156
032047

031732

000000

030214
032047
031732
000000

030245
033050
031762
000000

002302
002304
002306
002310

030306
032327
031742
000000

002312
002314
002316

030351
032155
031762

SREG!

SREG2

;'CSE'

;PC

ON READ CHECK
RKER

:SERRPC SREGO

¢RKWC
:PC

DID NOT OVERFLOW ON READ
RECVD
RK(S

;SERRPC SREGO

CHECK OR WRITE

SREG

sRKDA INCREMENTED WRONG ON READ CHECK
:PC
EXPCT
RECVD

;SERRPC SREGO

SREGI

;RKBA CHANGED AFTER READ CHECK
RECVD
EXPCT
:PC
;SERRPC SREGO
SREGH

sMEMORY WORD CHANGED AFTER READ CHECK
RECVD
EXPCT
LoC
:PC

;SERRPC SREGO

SREG1

SREGZ

65
EM110
DH44
D720

JITEM

;SERRPC SREGO

EM107
DH107
DT26

JITEM

;'ERR' COF 'HE' SET ON READ CHECK
:PC
RKCS
RKER
RKDS

63
EM106
DH4
DT2

JITEM

002272
002274
002276
002300

SEQ 0030

62
EM105
DH4
T2

JITEM

002262
002264
002266
00270

EM104
DH104
DT2

030105
033024
031732
€00000

SITEM
002252
002254
002256
002260

PAGE

EM103

JITEM

002242
002244
002246
002250

08:58

EM102
DH30
DT26

030043
032155
031762
000000
JITEM

002232
002234
002236
002240

000000

1618

1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629

LOGIC

sCNTRL ROY DID NOT SET AFTER WRITE C(HECK
RKDA
RKDS
RKER
RKCS
;PC

;SERRPC SREGO

SREGY

SREG2

SREG3

EM111
DH30
DT26

JHE OR ERR BIT SET AFTER DOING WRITE CHECK
;PC

RKLS

JSERRPC SREGO

RKER

SREG!

RKDS

SREG?

(HECK

MD-11-CZRKKF,

CZRKKF P11
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

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

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

000000

030376
032155
031762
000000

002340

030515
032047

031732
000000

030551
032753
031762
000000

002372
002374
002376
002400

030624
033106
031724
000000

002402
002404
002406
002410

030671
033106
031724
000000

002412
002414
002416

RKDS
$REGZ

;RKDA

;PC

INCREMENTED WRONG ON WRITE

EXPCT

;SERRPC SREGO

RECVD

CHECK

SREG!

;RKBA INCREMENTED WRONG ON WRITE CHECK
RECVD
EXPCT
:PC

;SERRPC SREGO

SREG?

sRKBA
;PC

INCREMENTED WITH
EXPCT
RECVD

;SERRPC SREGO

IBA SET

SREGI

;WRONG MEMORY LOCATION CHANGED WITH IBA SET
:PC

WORD¥

;SERRPC SREGC

EXPCT

SREGY

RECVD

SREG?

;RK11

:PC

DID NOV

RKCS

INTERRUPT WHEN

IDE WAS SET

;SERRPC $REGO

EMm20
DH117
p1M

JITEM

RKER
SREG!

74
Em117
DH117
DT1

CITEM

s PC
RKCS
;SERRPC SREGO

73
Em116
DH100
D126

JITEM

;WRITE C(HECK ERROR

EM115
DH4
D12
0
JITEM

002362
002364
002366
002370

SEQ 0031

N
EM114
DH4
D12
0

030456
032047
031732
000000
c1TEM

002352
002354
002356
002250

70
EM113
DH4
012

030617
032047
031732
000000

JITEM
002342
002344
002346
002350

PAGE

67
EMI12
DH30
DT26

JITEM
002332
002334
002336

08:58

JITEM
002322
002324
002326
002330

SRKY1

DID NOT

RK(CS

INTERRUPT

AFTER SEEK WAS

;SERRPC SREGO

Em121
DH117
b1

;SCP SET BEFORE SEEXK COMPLETED

;PC

RK(CS

;SERRPC SREGO

INITIATED

MD-11-CZRKKF,

RK11

CZRKXF . P

21-FEB-78 08:51

1686
1687

002420

BASIC

1705
1706

1707
1708

1709
1710
1711
1712
1713
1714
1715

002422
002426
002426
002430

MACY11

031051
033106
031724
000000

EM123
DH117
DT
0

EM124

002450

000000

033106
031724

DH117
DT1
JITEM

031152
032020
031732
000000

1732
1733

002502
002504

031211
033122
031732
000000

031252
(33122
031732
000000

;;g?

031314
033150

D126
0

JITEM
002512
002514

031351
033207

AFTER SEEK
RKDS
SREG?

;CNTRL RESET DID NOT
;PC
RKCS
;SERRPC SREGO

CLEAR

°'SCP'

;RK11

DID NOT

;PC
RKCS
;SERRPC SREGO

INTERRUPT

COMPLETED

BIT

AFTER READ WAS DONE

;CNTRL RESET DID NOT CLEAR REGISTER
:PC
REGADD
RECVD
;SERRPC SREGO
SREG!

;RK11 DID NOT INTERRUPT AT
. PC
LEVEL
RK(S
;SERRPC SREGO
SREG)

C(PU LEVEL

;RKY1 INTERRUPTED AT WRONG CPU LEVEL
;P(
LEVEL
RK(S
;SERRPC SREGO
SREG!

105
EM130
DH130

031762
000000

;RK11 DID NOT INTERRUPT
:PC
RKCS
RKER
;SERRPC SREGO
SREG1

104
EM127
DH126
DT2
0

;ITEM

002506
002510

SEQ 0032

103

EM126
DH126
D72
0

SITEM
002472
002474
002476
002500

102
EM125
DH2
D12
0

;ITEM

002462
002464
002466
002470

PAGE

101

031110

1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729

08:58

TABLE

100

002442

002452
002454
002456
002460

77
EM122
DH30
DT26
0

JITEM

002444
002446

21-FEB-78

JITEM
002432
002434
002436
002440

30A(1052)

ERROR POINTER

031002
032155
031762
000000

};}g

1734
1735
1736
1737
1738
1739
1740
17641

J1TEm

1695

1696
1697
1698
1699
1700
1701
1702
1703
1704

TEST

000000

1688

1689
1690
1691
1692
1693
1694

LOGIC

. 'ERR BIT' DID NOT SET
;P(
RKCS
RKER

;SERRPC SREGO

SREG!

106
EM131
DH1XT

. HE OR ERR vID NOT SET
;PC
RKCS
RKER

IN RKER
ERR BIT

SREG?

MD-11-CZRKKF,

CZRKKF PN
1742
1743
1744

002516
002520

RK11

BASIC

21-FEB-78 08:51

1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764

1765
1766
1767
1768
1769
1770
1mmn
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

TEST

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

D12
0

031732
000000

JITEM

1745

1746
1747
1748
1749
1750

LOGIC

002522
002524
002526
002536

DH4
DT2
0

000000

JITEM
002532
002534
002536
002540

DT26
0

JITEM
002542
002544
002546
002550

031433
033207
031732
000000

002552
002554
002556
002560

D12
0

031474
032047
031732
000000

002562
002564

DH4
D12
0

002566
002570

030306
032113
031762
000000

002572
002574
002576
002600

DT26
0

031531
032327
031742
000000

002602
002604
002606
002610

031547
033273
031742
000000

002612

031616

sNXC BIT DID NOT SET
RKER
RKCS
:PC

;PC

SREGO

SREGY

RKDA

$REG?
.

sRK11 DIDN'T INTERRUPT ON SOFT ERROR

:PC

RKCS

;SERRPC SREGO

RKER

SREG!

SMEX BITS INCREMENTED WRONG IN RKCS
EXPCTD RECYD
:PC

;SERRPC SREGO

SREG1H

sCNTRL ROY DID NOT SET AFTER WRT CHK
;PC

RKCS

;SERKPC SREGO

RKER

RKWC

SREGY

SREGZ2

;'WPS' NOT CLEAR
s PC

RKCS

RKER

RKDS

;SERRPC SREGO

SREGY

SREG2

RKDA

SREG3

115
EM140
DH140
D120
0

JITEM

SREG!

114
EM137
DH44
D120
0

ITEM

;SERRPC SREGO

113
EM110
DH14

JITEM

RECVD

ERROR
EXPCT

112

EM135

JITEM

:RKER
sPC

TN
EM134
DH131

JITEM

SREG!

SEQ 0033

110
EM133
DH133

031410
033235
031762
000000

;SERRP( SREGO

107
EM132

031376
032047
031732

PAGE

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

;SERRPC SREGO

SREG1

SREGZ

SREG3

116
EMi4

;'DRIVE #' PRESENT, BUT NOT SPECIFIED

MD-11-CZRKKF,

CZRKKF
. P11
1798
1799
1800
1801

002614
002616
002620

RK11

BASIC

21-FEB-78 08:51

TES!

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

DH74
DT
0

032732
031724
000100

1802

1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813

LOGIC

;ITEM

002622
002624
002626
002630

025370
032047
031732
000000

002632
002634

031662

000000

JITEM

;PC

DRIVE

;SERRPC SREGO

08.>8

PAGE

EMN
DH4
D12
0
120

EM142
0

;RKWC

;PC

ERROR

EXPCT

;SERRPC SREGO

RECVD
SREG!

SEC 0034

MD-11-CZRKKF,

CZRKKF P11
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
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864

1865
1866
1867
1868
1869

RK11

BASIC

LOGIC

21-FEB-78 08:51

002636

000005

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

TEST 2

J
3
MACYI1 30A(1052)
21-FEB-78
08:58
ERROR POINTER TABLE
START:

000042
1764664
000250
000209

000046

176440

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
022777
001012

000004
003076

003074
003076
003102
003104
003112
003120

000403
012716
000002
012737
012737
012637

003124
003132

023737
001416

;N6

CLR

SRKDA

20%:

BIT

#200,aRKDS

MoV
BNE
CLR
DEC

BNE
DEC
BNE
HALT

anib

STARTA

JARE WE
;NO,

[N ACTT1 AUTOMATIC MODE?

SKIP DELAY

;SELECT UNIT O

#250,R0

JWALT

STARTA
R1
R1
.2
RO
208

;IN CASE..
;0F APT.,
:START, BUT..

INITIALIZE

FOR,,

;DRIVE READY..

;DON'T WAIT,.
;FOREVER.

;RKDS BIT 7 (DRIVE READY) NEVER SET

THE COMMON TAGS

;;CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV

CLR
CMpP

BNE

001100

177777

SEQ 0035

;CLEAR THE BUS

Cmp

BNE

001140

177570
177570

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

STARTA:
.SBTTL

002704
002710
002712
002716
002720

RESET

PAGE

000020
000022
000030
000032
000034
000036
000024
000026

#SCMTAG,RE

;:FIRST LOCATION TO BE

-6

;:LO0P BACK IF NO

(R6) ¢+
;s CLEAR MEMORY LOCATION
#5WR ,R6 ; :DONE?

MoV

#STACK,SP

Mov
mov
Mov
MOV

#$SCOPE ,@#IOTVEC ;10T VECTOR FOR SCOPE ROUTINE
#340,3#10TVEC+2 ;;LEVEL 7
#SERROR,QFEMTVEC ; EMT VECTOR FOR ERROR ROUTINE
#3640 ,3PERTVEC+2 ;:LEVEL 7

;o INITIALIZE A FEW VECTORS

MOV
MoV
mov
Mov
CLR
CLR

move
mov
MOV

;:SETUP THE

CLEARED

STACK POINTER

#STRAP ,@FTRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
#3460, 3P TRAPVEC+2;
LEVEL 7
#SPURDN ,@FPURVEC ; ;POWER FAILURE VECTOR
#340,@FPURVEC+2 ;;LEVEL 7
STINES
SESCAPE

s INITIALIZE NUMBER OF ITERATIONS
::CLEAR THE ESCAPE ON ERROR ADDRESS

#..SLPADR
#.,SLPERR

;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
;2 SETUP THE ERROR LOOP ADDRESS

#1,SERNMAX

:;ALLOW ONE ERROR PER TEST

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A *'=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
mov
MoV
MoV

000004
001140
001142
176046

Cmp
BNE

648:

00310¢

000176
000174
000004

001140
001142

000042

000046

mov
RTI

S#ERRVEC,-(SP)
#643 FPERRVEC
SDSWR, SWR
#ODISP,DISPLAY

#-1,3S6R
66$
65%

#65%, (SP)

;:SAVE ERROR VECTOR
;. SET UP ERROR VECTOR
ssSETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER

;s TRY TO REFERENCE HARDWARE SWR
;:BRANCH [F NO TIRMEOUT TRAP OCCURRED

:;AND

THE HARDWARE SWR IS NOT = -1

;:BRANCH IF NO TIMEOUT

;:SET UP FOR TRAP RETURN

65%:

mov

#SWREG, SWR

;;POINT TO SOf TWARE SWR

668$:

Mov

(SP)¢+,@FERRVEC

;;RESTORE ERROR VECTOR

42,3046
69%

;ARE WE IN ACT?1 AUTOMATIC MODE>
;YES, SKIP TITLE

.SBTTL
;;TYPE

Mov

cmp
BEQ

#DISPREG,DISPLAY

TYPE PROGRAM NAPME
THE NAME OF THE PROGRAM IF

FIRST PASS

MD-11-CZRKKF,
CIRKKF PN

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

1885
1886

1887

1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912

1913

1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925

RK11

BASIC

LOGIC

21-FEB-78 08:51

003134
003140
003142

005227
001043
104401

003200

003146
003152
003154
003162
003164
003166
003170
003176
003176

005737
001006
023727
001005
104406
000403

000042

003250
003250
003256
003260
003262
003264
003266
003272
003274

112737

TVEST

003300
003306
003312
003314

000406
012737

003322
003326
003330

012716
000002
012637

LSBTTL

INC
=1
J2FIRST TIME?
BNE
678
::BRANCMH ]F NO
TYPE
.68%
;:TYPE ASCIZ STRING
GET VALUE FOR SOFTWARE SWITCH REGISTER

TYPE

PROGRAM NAME

001134

001410
177764

177776

cmp

SWR, #SWREG

;s SOFTWARE SWITCH REG SELECTED?

001410
177766

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

mov
mov

#DDPCH,RO
#-14 ,R1

CLR
INC

MOV

000004

TST

2%:

3s:

(RO)+
R1
18
-1
START1
ERRVEC,-(SP)
#28 ,ERRVEC
PS

BR
MoV

3%
#140,RKPR]

Mov

#3%,(SP)

MoV

(SP)+,ERRVEC

RTI

START1: MOV
1$:

000002

000041

013737

000040

001410

003370
003376
003400

122737

000010

001410

105037

00141¢C

003404
003410
003412
003416
003420
002424
003424
003430

005737
001432
005737
001002
000137

000042

101002

1046401
000413

2%:

001410
004262

003432

SOFT~SWR SETTINGS

8R
JASCIZ

;FIND QUT IF ACTI1,
012700
012701
005020
005201
001375
122737
001166

; ;BRANCH IF NO

;;GET

g;&SS:

003330

003334
003340
003344
003346
003350
003352
003360
003362

YES

gg::

BNE
INC
BNE

000004

70%

;:BRANCH IF

70%
#1,8AUT08

1%:

001400

69%

BR
mMove

000140

SEQ 0036

;sARE WE RUNNING UNDER XXDP/AC1?

BNE

177777

000004
003314

are?

GTSWR

000001

PAGE

TST

3NE

000176

000424

012700
012701
005020
005201
001375
005227
001020
013746
012737
005737

30A(1052)

177777

001140

K
3
21-FEB-78
08:58

MACY11

Mov
(LR
INC
BNE

::SET AUTO-MODE INDICATOR

JFIRST START ?
;BR IF NOT
JSAVE ERROR VECTOR ADDRESS
;NEW VECTOR ADDRESS
;SEE

PROGRAM CAN REFERENCE

THE

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

,SETUP INTERRUPTING PRICRITY TO VALUE

SWHICH WILL ALLOW INTERRUPT ON AN LSI-11
;SETUP RETURN ADDRESS
sRETULN

;RESTORE THE ERROR VECTOR

'XXDP' CHAIM OR DUMP MODE

#O0PCH
., RO

:CLEAR OUT DRIVE TABLE AREA

CMPB
BNE
MoV

#-12.R1
(RD)+
R1
18

2,41
sT2
40,0DPCH

;LOADED FROM AN RK0S ?
;BR IF NOT
:GEY DEVICE INDICATOR AND DRIVE ADDRESS Of

(MPB
BH1
CLRB

#10,DDPCH
2%
DOPCH

:VALID DRIVE NUMBER IN BYTE 40 ?
:BR IF YES
;MUST BE DRIVE ZERC WHICH LOADED

TST
BEQ
TST
BNE
JMP

42
43
DDPCH
18
ST3

;CHAIN MODE OR ACT11 AUTO ACCEPT ?
:BR IF NEITHER
;RUNNING FROM AN RKOS °
JBR IF YES
;FIND OUT NUMBER OF DRIVES

TYPE
BR

,65%
648

;s TYPE ASCIZ STRING
;:GET OVER THE ASCl2Z

:LOADING RKOS

;THIS PROGRAM

MO-11-CZRKKFf,

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

000411

003534
003534
003536
003542
003544
003545
003546
003552

005046
113716
104403
001
000
104401
000431

003636
003636
003642

104401
000435

004042
004046

004050
00¢052
00«054
004056

005046
113716
104403

001
000
000137
005227
001115
104401

012700
012701
005020
005201
001375
104401
000415
104411
012600

012701

112002
042702
012703
012704

012705

020502

001414
005205
005723
005204

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

SEQ 0037

LASCIZ

<15><12>/NOT TESTING DRIVE /

001410

CLR
MOVB

-(SP)
DDPCH, (SP)

JCLEAR WORD ON STACK
;GEY DRIVE ADDRESS

004262

.BYTE
.BYTE
JMP

1
0
ST3

;ONLY 1 CHARACTER
;SUPRESS LEADING ZEROS
,GET NUMBER OF DRIVES

BNE

ST2

177777

TYPOS

A ¥

ééé?S:

003554

003644
%6;18:

138:

;BR IF NOTY

THROUGH HERE

22 TYPE ASCIZ

STRING

(LR

-(SP)

sCLEAR WORD ON THE STACK

.BYTE
.BYTE

1
0

JONLY 1 CHARACTER
sSUPRESS LEADING ZEROS

BR
.ASCIZ

68%
;.GET OVER THE ASCIZ
/ HALT PROGRAM, REMOVE RKDP PACK AND REPLACE

TYPE
BR

L1718
708

ASCIZ

CLR
INC

TYPE

BR
LASCIZ
ROLIN

000060

TIME

J:GEY OVER THE ASCIZ

BNE
gzéSi:

177400
001414
177770

ADDRESS

<15><12>/T0 TEST DRIVE

DDPCH, (SP)

.69%

;GET DRIVE ADDRESS
;TYPE THE DRIVE ADDRESS

;:TYPE ASCIZ STRING

s TYPE ASCIZ STRING
;:GET OVER THE ASCIZ

/WITH A WORK PACK,

CLEAR LOCATION 40,

IT/<15><12>

AND RESTART PROGRAM/

;FIND OUT FROM USER WHICH DRIVES (LOGICAL ADDRESSES) ARE TO BE
;TESTED (DRIVES TO BE TESTED ?). IN REPLY THE USER SHOULD TYPE IN THE
;LOGICAL ADORESSES SEPERATED BY COMMAS. THUS IF 2 DRIVES 0,1 ARE PRESENT:
‘'DRIVS TO B TSTD?’
:
;
'0,1<CR>’
A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST.
ST2:
MoV
#ORIVS
RO
mov
#-13,R1

003762

177770

.67%

JFIRST

THE

66$

LASCIZ

TYPE

26293:

#-1

;TYPE

B8R

MOVB
TYPOS

001410

001412
177765

INC

TYPE

003512

003736

004014
004014
004016
004020
004024
004026
004032
004036

é.%Si:

003460
003460
003462
003466
003470
003471
003472
003476
003502
003504
003510

003736
003742
003746
003750
003752
003754
003760

TEST

mov
1$:

2%:

MOV

(RO)+
R1

138

.65%

;s TYPE ASCIZ STRING

(SP)+ RO

;GET STARTING ADRES OF ASCII

(RO)+,R2
#177400,R2

;GET ASCII CHARACTER
;MASK UNWANTED BITS

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

#-10,R1

:SET UP COUNT

STRING

MOvVB
8IC
Mov
Mov
MoV
cmp

#ORIVO,R3
#-10,R4

#60,RS
R5,R2

;WAS THE TYPED IN CHARACTER

BEQ
INC
TST
INC

3s
RS
(R3)+
R4

;YES, BRANCH
sNO, INCREMENT
; INCREMENT POINTER TO DRV FLAG
;CHARACTER THAT WAS [NPUT

;A NUMBER BETWEEN 0-7?

MD-11-CZRKKF,
CZRKKF PN

1982
1983

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

2000
2001
2002
2003
2004
2005
2006
2007
2008

2009
2010
2011
2012
2013

2014
2015
2016
2017
2018
2019
2020
2021

2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037

RK1)

BASIC

21-FEB-78 08:51

004060

001372

004062
004064
004066
004066
004072

005702
001461

004100
004100
004102
004104
004106
004110
004114
004116
004122
006126
004130
004134
004140
004142
004146
004150
004156
004160

004164
004166
004174
004200
004202
004204

004210
004212
004214

LOGIC

104401
000402

TEST

;678

66%:

3s:

005713
001370

005237

111002
042702
022702
001026

052713
032705
001407
005763
001347
012763
000406
005763
001340
012763
005237
105720

000744
022702
001403
005702
001324

001412

11%:

177400

000106
000001

177776

100001

177776

9%:

000002

001412

000002

000054

004216
004220

000404

004222
004224

004226

005201
001277
000717

004230
004234
004242
004244
004250

005037
032777
001003
005037
000502

001440
00200¢

004252
004260

012737
000476

000001

:SHOULD BE 0-7,

187

JIS

8EQ

BR
TST
BNE
INC
INC
MOVB

ST
aR3

CMp
BNE

#°F,R2
8%

ASCIZ

BIC

108:
8s:

105720

5%:

6%:

001344
001344

7%:

::GET OVER THE ASCIZ

;SEE

;G0, AGAIN ASK QUESTION
IF ALL READY SELECTED

;ERROR

aR0,R2

#177400,R?2
#BIT15,8R3
#8170,RS

[F SELECTED
ALL READY
JSET UP FLAG FOR THE DRIVE
s INCRERENT TOTAL NO OF DRIVES PRESENT

JGET NEXT CHAR

:CHARACTER ONLY
JIS IV F?
;sNO, GO ON

;SET BIT 15 TO SHOW RKOSF
;EVEN DRIVE?

BEQ
TST
BNE
nov

9
;EVEN DRIVE SO BRANCH
~2(R3)
sCHECK EVEN DRIVE
43
<EVEN ALL READY SELECTED
#BIT15'B170,-2(R3)
JSELECT EVEN DRIVE

TST

2(R3)

;CHECK ODD DRIVE

(RO)+

sPOINT TO NEXT CHAR

B8R

BNE
MoV

108

: CONTINUE

INC

43
:ERROR IF SELECTED BEFORE
#81715!8170,2(R3)
;SELECT 0ODD DRIVE
ODRIVS
;COUNT DRIVES SELECTED

BR
cmp
BEQ
TSY
BNE

118
#54 ,R2
5%
R2
43

;CHECK FOR COMMA
1S IT A 'COMMA’?
sYES, GO PROCESS NXT WORD
:NO, IS IT A TERMINATOR?
;IF NOT, SOMETHING WRONG

;EXIT, IF A TERMINATOR

TST18

TSTB

(RO)+

INC

B8R

8NE

174676

IT A TERMINATOR?

;s TYPE ASCIZ STRING

7?2/

43
aR3
DRIVS

IF ANY OTHER

YES, EXIT. NO DRIVES INDICATED.

L67%

66%

SEC 0038

LTYPE 77 § AGAIN ASK FOR
;DRIVS TO BE TSTD?

81S
BIT

100000

BNE

TYPE

004074

000716

005213

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

CLR

:GO ASK QUESTION AGAIN

s INCREMENT PTR TO NXT BYTE

:IN INPUT BUFFER

;THERE SHOULD BE NO MORE THAN

;8 DRIVES, HENCE IF MORE

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

BIT
BNE
CLR
BR

#5W10,a5WR
7%
SIMUL
ST4

SIZYET

sNO SIZING NEEDED

MOV

J1ZSIHUL

;SET FLAG TO INDICATE SIMULATOR

B8R

:TESTING ON SIMULATOR?
:YES, BRANCH
:NO, CLR FLAG

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
2071
2072

2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
208/
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

001440
000004

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

; CHECK NUMBER OF DRIVES

S13:

000004

1$:

004356
021026

MoV

#BADTMO ,3#¢

TYPE
MSG1

177770
001412

174770

#-1,S12¢E7
858,306

ST
TST

001414
174774

Mov
Mov

2s8:

dRKDS
aRKDA

SEQ 0039

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

MoV
CLR
CLR
CLR
mov
Mov

#-10,R0
DRIVS
R1
R4
#DRIVO,R2
R1,3RKDA

sINITIALIZE COUNT FOR THE 8 DRIVES
JINITIALIZE # OF DRIVES PRESENT 10 0
sINITIALIZE ADDRESS TO DRIVE O

BEQ
MoV

33
#28 ,R3

:YES

CmpP

JSR

R1,3RKDA

PC,TYERM

;ADDRESS THE DRIVE

;CHECK, WAS IT ADDRESSED?

;WHILE CHECKING NUMBER OF DRIVE
sUNDER NON-MANUAL MODE

;RKDA HAD TO BE ADRESED BUT

;1T WAS FOUND THAT THE DRIVE NO
;THAT WAS WRITTEN COULD NOT BE

s CORRECTLY.
004362
004364

000413
032777

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

001407

004442
004444
004446
004452

104401
001213

005237
005212

000200

3s:

020000

4%:

001412

104401

43
#200,3RKDS

;CHECK IF

BEQ

INC
INC
MOV
TYPOC
TST
ADD
INC

DRIVS
(R2)
R4 ,-(SP)

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

INC
BNE

sSHIFT POINTER TO NXT DRIVE INDICATOR
:SET UP ADDRESS FOR THE NEXT DRIVE
;HAVE U CHECKED FOR ALL 8 DRIVES

TST

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

BNE

DRIVS

ST4

TYPE

001236
000406
011603

022626
062703
004737

BR
BIT
TYPE
SCRLF

001412

010446
104402

005722
062701
005204
005200
001345
005737
001011

174734

58:
177776

021026

READ BACK

s PRESENT

°'DRY' BIT IS SET,

IF SET DRIVE

MSG2
BR

ST4

;GO CHECK THE DRIVE

Mov
CMP
ADD

(SP) ,R3
(SP)+,(SP)+
#-2,R3

;GET PC WHERE TIMEOUT OCCURED

JSR

PC,TYERM

s CONTROLLER. LOGIC

INDEPENDENT

sRESTORE STACK

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

;RKDS AND RKDA HAD TO BE REFERENCED, TIMEOUT

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

2094
2095
2096 004456
. 004462
2097
2098 004466
2099 004470
2100 004474
2101
004500
2102 004506
2103
2104 004512
2105
2106 004516
2107
2108 004524
N=OOVONOWVMIIUNN-O 0

004532

005037

001434

005737 001412
001004
004737 121742
000137 020652
012737- 001414
005037 001352

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

ST4:

001354

18:

CLR

T56FLG

TST
BNE
JSR
JMP
MoV
CLR

DRIVS
1%
PC,WATIME
SEOP
#DRIVO,DRVPTR
DRVDON

CLR

DRIVAD

sINITIALIZE THE NO. OF DRIVES

s THAT HAVE BEEN CHECKED

005037

001350

012737

004534

000004

MoV

#BADTHO,ar4

sINITIALIZE DRIVE ADDRESS TO
¢ THE FIRST DRIVE
;¥§;ET63$SOUI VECTOR FOR UNEXPECTED

012777

004600

174650

Mov

#BADINT ,aRKVEC

SET UP RK11

000465

SEQ 0040

INTERRUPT VECTOR FOR

sUNEXPECTED INTERRUPTS FROM RK11
:GO TO TEST 1

sTHIS ROUTINE HANDLES UNEXPECTED TIME OUTS

004566
004566
004570
004572
004574

BADTMO:

::65%:

64%:

010046
104402
000000
600137 ~ 002636

004600 011600
004602 005740 004604 032777 020000
004612 001014.
.
104401
004614
004616 001213 .
004620
104401
004622 - 026004

004640
004640

010046

64%

s :GET OVER THE ASCIZ

MoV
TYPOC
HALT
JMP

RO,-(SP)

.ASCIZ

174326

BADINT: MOV
1ST
8IY
BNE
TYPE
SCRLF
TYPE

ssTYPE ASCIZ STRING

<15><12>/1IM0UT,PC=/

sSET UP FOR TYPING OUT PC

¢GO TYPE 'OUT OCTAL PC

a#START

(%gésflfl

:SAVE PC WHERE INTERRUPT OCCURED

#20000,aswWR

s INHIBIT ERROR TYPEQUT?

004632

BR
-ASCIZ

.65%
64%

/,PC=/

sTYPE ' AT PC=!
:sTYPE ASCIZ STRING
¢:GET OVER THE ASCIZ

Mov

RO,-(SP)

:SET UP FOR TYPING OUT PC

TYPE

: 255:

:YES, DON'T TYPE OUT

:TYPE 'UNEXPEXTED RK11 INTERRUPT®

EM43

One

000403

sRESTORE STACK POINTER

.65%

sTHIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK11
;SW 9 AND .10 FOR LOOPING ON ERROR
sAND LOOPING ON.TEST IN WHICH TIMEOUT
sOCCURRED, ARE PROVIDED.

104401

<?:asao sSAVE PC WHERE TIME OUT OCCURED
(SP)+,(SP)+

CMP
TYPE

004550
3

004624
004630

MOV
ST

[

004534 011600
004536 005740
004540 022626
004542- 104401
004546 000407

FoL

—

PPN =D e

b oud

b ok o

b d ad o

D wnd med wd e

ek O

amd b

oo NN
NN NN

e s
e eapaTe
ek MMPATESST
I

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

MD-11-CZRKKF,

RK11

CZRKKF . P11

21-FEB-78 08:51

2150

BASIC

LOGIC

2151
2152
2153

004642

104402

004644
004652

032777
001403

001000

2155

004656

000177

174224

2154

2156

004654

022626

TEST

MACY11

21-FEB-78

GET VALUE FOR SOFTWARE

O08:58

004662
004670
004672
004674

032777
001401
000002
000900

040000

004676

000137

002636

g};g

004702

176266

2%:
3%:

004737

021742

2176
2177

BIT
BEQ

#1000,aSwR
2%

JMp

SSLPADR

;GO TO THE STARTING ADDRESS OF

81T
BEQ
RT]
HALT

#40000, aSwR
3

JMP

9#START

(SP)¢+,(SP)+

JYES, REPOSITION STACK
;THE

PFSTRT: JSR

JKILL TIME

2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190

;*TEST 1

000004

2196
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205

004710
004714
004716
004720
004724
004726
004732
004734
004740
004744

01270C
005001
005002
005737
001403
120237
001435
010177
105777
100005

004746

005710

TST1:
001614

001410

18:

001410
174400
174362

THAT GAVE UNEXPECTED

004706

TEST

2$:

PC.WATIME

R R

INTERRUPT

;LOOP ON TEST?
JNO, BRANCH
JYES, LOOP. GO BACK WHER U INTERRUPTED FROM.
JUNEXPECTED INTERRUPT OCCURED AS
JINDICATED IN THE TYPE OUT.U CAN LOOP
;ON ERROR, TEST,OR INHIBIT TYPEOUT BY
;SETTING APPROPRIATE SWITCHES.
;G0 BACK TO THE START OF THE
;PROGRAM. THUS PRESSING CONTINUE
JAFTER THE ABOVE HALT WILL
JRESTART THE PROGRAM

;THE PROGRAM WOULD RESTART HERE

2178

g}gg

SEQ 0041

JINTERUPY OCCURED
;LOOP ON ERROR?
:NO, BRANCH

JRESTART AFTER POWER FAIL

S};g

;GO TYPE OCTAL P{ WHERE BAD

CMP

174250

PAGE

SWITCH REGISTER

TYPOC(

2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
217

2191

30A(1052)

RN R N R R AN

POWER CAME BACK AFTER A FALIURE.

AN R AR

R R AR R R AR AR AR AR

RNRER

CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT
J*THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED
;¢ (IN RESPONSE TO ‘'DRIVS TO BE TSTD?'') ARE NOT FOUND TO BE PRESENT.
;J*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 ORIVE NUMBER. IT IS LIKELY THAT THE USER
;*MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT IS NQT SPECIFIED) ON
s*'LOAD'. IF THIS IS THE CASE THEN PUT THIS DRIVE ON °'LOAD'.
se]F THIS 1S NOT THE CASE, THERE IS A GENUINE ERROR. (TWO DIFFERENT
;*DRIVE ADDRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME
;*PHYSICAL DRIVE.)

SCOPE

N RN

R AN R AR AN

MOV
CLR
CLR
TST
BEQ
CMPB
BEQ
MoV
TSTB
8PL

#DRIVO,RO
R1
R2
DOPCH
2%
R2,DDPCH
43
R1,aRKDA
aRKDS
3%

TST

aR0

R A A AN

PR NP AR RN IR RN RN RN

AR RRNNR

sINITIALIZE POINTER
sINITIALIZE ORIVE ADRES 0
sINITIALIZE DRIVE # 0
JLOADED FROM AN RKOS5 ?
;B IF NOT
sLOADED FROM THIS DRIVE ?
;BR IF YES
;ADRES THE DRIVE
;DRIVE READY?
;NO, THIS DRIVE NOT PRESENT
;YES, THIS DRIVE SELECTED
;WAS THIS DRIVE SPECIFIED BY

MD-11-CZRKKF,

CZRKKF P11

2206
2207
2208
2209
2210

2211

2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232

2233
2234
2235

2236

2237
2238

2239
2240
sgz;

RK11

BASIC

21-FEB-78 08:51

004750

001026

004752

010237

004760
004762

005710
001421

004764
004770

004737
104010

(004772

005010

004774
004776

010003
162703

004756

LOGIC

104116

THE

DRIVES

08:58

PAGE

THAT ARE NOT

SPECIFIED ARE NOT FOUND

: THE USER?
;YES, OK
sNO, THIS DRIVE # WAS NOT SPECIFIED
;BY THE USER, BUT STILL IS GIVING
;'DRY' WHEN ADRESED. REPORT EROR.

aR0
4%

JSR
ERROR

PC,GT4RG
10

CLR

aRo

001414

MoV
suB

RO,R3
#ORIVO,R3

sTHIS DRIVE IS NOT FOUND TO BE PRESENT
JHENCE DROP IT FROM THE SELECTION TABLE.
;ORIVE ADOR
sMINUS OFFSET FOR TABLE

100000

8IC

#100000,(R3)+

;NOT SPECIFIED AS F MODEL

DEC
INC

ODRIVS
R2

ADD

#20000,R1

020774

005022
005026

005337
005202

001412

005032

062701

020000

8IcC
ADD

;THIS DRIVE # WAS NOT SPECIFIED BY
;THE USER, BUT WHEN ADRESED GAVE
;'DRY'. CHECK THAT THIS DRIVE # IF
sPHYSICALLY PRESENT IS ON 'LOAD'. IF
:THIS IS NOT THE CASE, THEN ONE DRIVE
:MAY BE GETTING SELECTED BY TWO DIFFERENT
;LOGICAL ADDRESSES.
:CHECK THAT THIS DRIVE WAS NOT INDICATED
;1F 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 #.

#3,R3
#ORIVO,R3

BIC
4

JGET DRIVE #

116

#100000, (R3)

TSY

(RO) ¢+

BNE

<EVEN DRIVE OF PAIR
;POINT TO EVEN OF PAIR IF RKOS5 f

; SARE

;DECREMENT DRIVE COUNT
; INCRANT DRIVE #

; INCRMNT POINTER

; INCRANT ADRES TO NXT DRIVE

;LUP BAK IF NOT DONE

2243
2244
3522

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

2247

;"DRIVAD'

ggzg

2250
2251
2252

TO BE PRESENT

TST
BEQ

ERROR

3%:

100000

001330

CHECK THAT

21-FEB-78

R2,S$REGO

042713

005036

30A(1052)

Mov

005016

005720

001162

000003
001414

005030

MACY11

042703
062703
042723

BNE

005002
005006
005012

TEST

CONTAINS IN BITS 15,14,13 THE ADDRESS Of

;DRIVE BEING CURRENTLY CHECKED.

005040

THE

NUDRV:

2253

2254
2255
2256
2257

;*TEST 2
FIND OUT NEXT DRIVE TO BE CHECKED
;THIS CODE FINDS OUT THE NEXT DRIVE 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'.

2258

2259
2260
2261

005040
005042
005050

000004
012737
012737

000001
000002

001206
001102

TST2:

N R R

SCOPE
Mov
MoV

R RN A AR

#1,8TIMES
#2,8TSTNN

P RN R

AR AR

AR RR NN

RERARR

R R AT RN R R U PR AR AN RN AR NN NNNEE

::D0 1 ITERATION
;RESET POINTER TO THIS TEST

SEQ 0042

MO-11-~CZRKKF,
CZRKKF L1

2262
2263
2264
2265
2266
2267

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

2284
2285
2286
2287
2288

2289
2290
229N
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307

RK11

BASIC

21-FEB-78 08:51

005056
005062
005066
005070
005074

005037
005737
001002
000137
013701

005100
005104
005106
005114
005116
005120
005124
005126
005132
005134
005136
005140
005142
005144
005146
005152
005154

032721
001005
062737
001371
000764
005737
001413
013746
000316
006216
006216
006216
006216
006216

005160
005164
005170
005174
005200
005202

104401

005204
005206
005210
005214
005216
005222

005226
005226
005232
005234

LOGIC

122637
001755
010137

013746
004737
005037
011600

TEST

BACY11
T2

4
E
30A(1052)
21-FEB-78
08:58
PAGE 46
FIND OUT NEXT DRIVE TO BE C(HECKED

001112
001412

020652
001354

43:

000001

2%:

BIT

6%:

ADD
BNE

020000
001410

MOV

001350

1%:

001350

001410

001354

001272
001350
021200
001404

100006
104401

000401

005237
104401

001213

000

001414

005224

001404

BNE

BR
TS?
8EQ
MoV
SWAB
ASR
ASR
ASR
ASR
ASR
CMPB
8EQ

MoV

TYPE
mMov

104403

001
006300
005760

CLR
TST
BNE
JAP

;:658%:
:
648
5%:

SERTTL
DRIVS
.*6
$EOP
DRVPIR,R1
#BITO, (R1)+
13
#20000,DRIVAD

43
DDPCH

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

R1,DRVPTR

.MSG4

DRIVAD,-(R6)

JSR
CLR
mov
TYPOS

PC,SHFTRT
FFLAG
(R6) RO

.BYTE

1,0
RO

ASL
1§87
BPL
TYPE
BR

LASCIZ

INC
TYPE
$CRLF

DRIVO(RO)
5%

,65%

SEQ 0043

;NO. CHANGE THIS (2) IN CASE THE
;TEST NO. CHANGES
;CLEAR TOTAL ERROR COUNT
;R

THERE

ANY DRIVES PRESENT?

;YES, BRANCH

JNO,

JMP TO THE

END

;GEY THAT POINTER TO THE NEXT
;ORIVE FLAG

:IgSTHXS ORIVE PRESENT?
H |

;FORM NXT DR]IVE ADRES
;PROGRAM LOADED

FROM AN RKO5

;RIGHT JUSTIFY THE ADDRESS
JRIGHY JUSTIFY THE ADDRESS
sRIGHT JUSTIFY THE ADDRESS
;RIGHT JUSTIFY THE ADDRESS
JRIGHT JUSTIFY THE ADDRESS
;PROGRAM LOADED FROM THIS DRIVE ?
;BR IF YES, DON'T TEST THE DRIVE
;STORE POINTER TO THE NEXT
;DRIVE FLAG

;GET THE DRIVE ADDRESS
;60 SHIFT IT TO THE RIGHT
;DRIVE NUMBER
;GO TYPE THE OCTAL # FOR THE
sDRIVE THAT IS BEING CHECKED

:INDEX TO TABLE
JSEE IF F

;NO

643

;. TYPE ASCIZ STRING
;:GEY OVER THE ASCIZ

FFLAG

;SET F FLAG

/F/

JNO, BRANCH
;PUT TEST DRIVE ADDRESS ON THE STA(K
:SETUP TO RIGHT JUSTIFY THE ADDRESS

;TYPE (R, LF

sttt NARRRRRRRRCOORRSELERRRRCOASNRLAORRATERORRORRDEARNARREAAOCARLORS

JeTEST 3

CHECK THAY DRIVE

[S SUPPLIED WITH POWER-DPL BIT

sotRtRtRRENCLTERLRROARARNNRERc
AR ARRERREROROROERRANRRRARAROARANROACTARES

005236
005240

000004

104413

TST3:

SCOPE
CNT.RESET

:6GO, DO CONTROL RESET

;THIS IS A CALL FOR THE

‘CNTRL-

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

;IF THE 'CNTRL RDY' DOES NOT SET
;AN ERROR 1S REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

;PC WHERE °'CNT.RESET' IS LOCATED.

MD-11-CZRKKF,

RK11

CZRKKF . P11

2'-FEB-78 08:51

2318
2319

2320

2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333

23346

2335
gggg

2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350

005242

BASIC

013700

LOGIC

001326

005246
005256
005256
005260
005264

013777
005710
001003
011037
104004

001350

005266

012777

000015

005274
005276
005302
005304
005306

005001
032710
001003
005201
001373

005312
005316

004737
104005

(05320
005322
005326
005330
005334
005336
005340
005346

005001
032710
001010
104417
005201
00137
017737
104016

005310

000403

TEST

MACYT1

001162

1$:

010000

2%:

021002

3s:

000100

000011
173762

CHECK

THAT DRIVE

[ [0}

174064

174036

o4
F
21-FEB-78
O0B8:58

30A(1052)

001162

RKDS ,RO

ORIVAD,3RKDA
ar0
1%
8RO, SREGO
4

mov

#15,8RKCS

CLR
BIT
BNE
INC
BNE

R1
#10000,3R0
3s
R1
2%

JSR
ERROR

PC.GT3RG
5

R1
#100,aR0
TST4
N
R1
43
SRKDS,$REGO
16

2354

J*TEST 4

2355

;sGET RKDS
;R/W/S RDY DID NOT SET AFTER
:DRIVE RESET. DRIVE RESET WAS DONE
;70 CHECK °DPL'BIT . THIS TEST
;1S NOT FOR CMECKING ORIVE RESETY.
;U MIGHT WANT TO USE THE TEST PROVIDED

005350

005352

000004

TST4:

104413

PR ANV R RN RN R R RN RO R RN

CHECK THAT

N N

R R

'DRIVE UNSAFE'

SCOPE

CNT.RESET

2360

RARNRNN R RN TR

IS CLEAR,

R L P R R N AR AN R AN RN

'HDEN'

RRSY

[S SET,

LR AR R AR AR PN N NR

'WPS'

;60, DO CONTROL RESET
sTHIS IS A CALL FOR THE 'CNTRLRESET' ROUTINE. A CONTROL RESET IS

;1F THE *CNTRL RDY® DOES NOT SET

2362
2363
2364
2367
2368
2369
2370
2371
2372
2373

A AR AR

;ISSUED AND AFTER A CERTAIN TIME

2361

2365
2366

;ADDRESS THE DRIVE UNDER TEST
;CHECK [F ANY BIT OF RKDS IS SET?
;1F SET, BRANCH
:GET RKDS
sRKDS ERROR! RKDS [F ADDRESSED
CORRECTLY SHOULD BE NON-ZERO
;ISSUE A DRV RESET, IF DRVE
;POWER IS LO, DPL WILL SET

¢FOR CHECKING DRIVE RESET.

2353

2356

sDID R/W/S RDY BIT SET?
J.YES, EXIT
$TIME DELAY
JWALT FOR R/W/S RDY

ggg;

2357
2358
2359

SEQ 0044

;1S 'DPL’' BIT SET?
;OPL IS SET, BRANCH
;WAIT FOR SOME TIME T0
;SEE [F DPL WOULD SET
;0K, DPL NOT SET
;60, GET RKCS, ER, DS
;DPL BIT OF RKDS IS SET, CHECK DRIVE POWER

4£%8-2

CLR
BIT
BNE
DELAY
INC
BNE
MOV
ERROR

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

MOV
TST
BNE
MOV
ERROR

PAGE

IS SUPPLIED WITH POWER~DPL BIT

;AN ERROR IS REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE °'CNT.RESET' IS LOCATED.
005354
005362
005366
005372
005374
005400

013777
017700
032700
001403
004737
104006

001350
173740
002000

021002

173756

MoV
Mmov
BIT
BEQ
JSR
ERROR

DRIVAD ,@RKDA
SRKDS, RO
#2000,R0
18
PC,GT3RG
6

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

;SET DRIVE ADDRESS
;GET RKDS
;1S 'DRU® BIT OF RKDS SET?
;NO
;60, GET RK(CS, ER, DS
;'DRU* BIT OF RKDS IS SET, CHECK
;DRIV BY PUTTING KUN/LOAD SW TO LOAD

IS CLEAR

MD-11-CZRKKF,
CZRKKF PN

2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
24601
2402
2403
2404
2405
2406
24607
2408
24609
2410
2411
2412
2613
2414
2415
2616
2417
2418

2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

005402
005406
005410
005416

032700
001004
017737

004000
173712

001162

005420
005426
005430
005434

032777
001403
004737

000040

173700

104007

104114

MACY11
T4

30A(1052)
CHECK

1%:

UNSAFE®

#4000,R0
2%
#RKDS,SREGO

BIT

#40,dRKDS

JSR
ERROR

PC,GT4RG
114

BEQ

020774

°'DRIVE

BIT
8NE
MoV

ERROR

2%:

THAT

4
6
21-FfEB-78
(08:58

PAGE 46
CLEAR,

'HDEN'

SET,

'WPS'

CLEAR

;THEN BACK TO RUN

;1S "HDEN' BIT SET?
JYES, BRANCH
;GET RKDS

JERROR,

'RKOS' BIT IS NOT SET

;1S "WPS'

18715

CLEAR?

;.YES, EXIT

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

:OF RKDS SHOULD BE CLEAR,

THIS DRIVE

:DRIVE

IT IS NOT,

;1S WRITE ENABLED. CHECK & SEE [F THIS
IS WRITE ENABLED,

;WRITE ENABLE

IT.

;;!ttttt;t"'t'tit't"t"tlt'ttt't'Q'ttt'tQttttttttttttttt'tttt't
:*TEST

CHECK

THAT

'DRIVE

READY'

IS SET

IN RKDS

;;t!tt'ttt'ttttttittttttti!tttt"'t"t"i'ttttt!tittttttttttt.t't

005436
005440

TSTS:

000004
104413

SCOPE
CNT.RESET

:GC,

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
;PC WHERE *CNT.RESET' IS LOCATED.

005442
005450
005454
005456
005462

013777
105777
100403
004737
104010

001350
173652

173670

DRIVAD,aRKDA

1S718

SRKDS

ERROR

8Ml
JSR

020774

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

THE

DRIVE

;1S ‘DRY' SET?

TS16
PC,GT4RG

JYES, OK
;G0, GET RKCS,

ER, DS, DA

iRttt

ittt

:*DRY' NOT SET

AR AR

ARt

lii

tttilds]

CHECK THAT 'SOK' BIT CAN SET
J*TEST 6
;v 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

000004

013777
005001
032777
001006
005201
001372
017737
104011

001350

173644

000400

173622

173610

001162

TSTé:

SCOPE
MoV

DRIVAD,SRKDA

ERROR

(LR
BIT
BNE
INC
BNE
MOV

R1
#400,8RKDS
1817
R1
13
aRKDS, SREGO

RN R

R AR R R

;ADDRS THE

R R RN R AR

RRNER

RERREE

DRIVE

INITIALIZE COUNT FOR TIMING WAIT LOOP
;1S SOK SET?
JSEXIT
JNO, WALT
JWALTED LONG?
:GET RKDS

;ge%TED LONG BUT 'SEC OK' BIT DID NOT

JontARARARRERRERRCLEIOROARRRRARCORRQRERORRRRRRORORRRARRRROERCERRRORROENNRTYE

JeTEST 7

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

SEC 0045

MD~11-CZRKKF,
CZRKkF . P1N

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST

MACY!1
17

52§$

H
4
30A(1052)
21-FEB-73
O0B8:58
CHECK THAT *SECTOR COUNTER®

A 6“%% TEST

CHECKS

THAT

THE

PAGE 47
CAN COUNT

SECTOR

FROM 0-13

COUNTER

SEQ 0046

CAN COUNT

FROM

2632

;¢

2435
2636
2437
2438
2439

;v
;v
;v
;v
;*

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 (HANGE WITHIN THIS
TIME PERIOD AN ERROR [S REPORTED.
3) UPON FINDING THAT THE COUNTER HAS (MANGED, IT IS CHECKED

24633
26434

26440
24461

;* [F
;v &)

2442
2443

2444

2445

2446
2547
2448

FIRSY,

FOR INITIALIZING PURPOSES THERE

005522

005524

000004

104413

;v LOOP TILL THE COUNTER CHANGES.
(STEPS 2.3.4 ARE REPEATED
;* TILL THE COUNTER COUNTS UP TO 13)

1S17:

SCOPE

CNT.RESETY

2469

2472
2473
2474
2475
2476
2477
2478
2479
2680
2481
2482
2483
2484
2485

;60, DO CONTROL RESET
JTHIS IS A CALL FOR THE °*CNTRLJRESET' ROUTINE. A CONTROL RESET IS
JISSUED AND AFTER A CERTAIN TIME

26450

52;?

IF THIS

IT INCREMENTED CORRECTLY,
IF IT DID NOT AN ERROR IS REPORTED
IF IT INCREMENTED CORRECTLY, THE PROGRAM AGAIN WAITS IN A

2649

2651
2652
2453
2454
2455
2456
26457
2458
2459
2660
26461
26462
2463
2464
2465
2466
2467
2468

[S A TIMED LOOP

;% DURING WHICH SECTOR COUNTER SMOULD COUNT DOWN TO O.
;¢ IS NOY DONE AN ERROR IS REPORTED

;IF THE 'CNTRL RDY' DOES NOT SET

005526
005534
005540
005544

013777
013700
005037
005005

001350
001326
001356

005546
005552

0127046
012703

177764
000001

005556

005037

001360

005562
005566

005237
001440

001356

005574

001441

005570

005237

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

18:

2%:

000400

177760
3s:
4%:

000400

;AN ERROR 1S 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

MOV
MoV
CLR
CLR

DRIVAD,3RKDA
RKDS,RO
INDX1
RS

MoV
MOV

#-14 R4
#1,R3

CLR

INDX2

INC
BEQ

INDX1
6%

JINITIALIZE
;'COUNT® - TO TIME 'ERROR 35°
JINITIALIZE ‘"COUNT' - TO TIME
;"ERROR 36 (WAIT LOOP)
JINITIALIZE 'COUNT' - FOR THE 12 SECTORS.
;RS CONTAINS THE 'NEXT' COUNT OF SEC-CNTR
JRT CONTAINS THE 'PREVIOUS' COUNT OF SEC-CNTR
;sR2 CONTAINS THE 'PRESENT' COUNT OF SEC-CNTR
cINITIALIZE *COUNT' - TO TIME
;(WALIT LOOP) 'ERROR 34'
;KEEP TIMING FOR ‘ERROR 35°
;BRANCH & REPORT ERROR [F WAITED LONG?

BEQ

;BRANCH £ REPORT ERROR If WAITED LONG?

MoV
BIT
BEQ
(MP
BNE
BIC
BNE

arR0,R1
#400,R1
2%
aR0.R1
1%
£ 77760,R1
1%

INC
BEQ
INC
BEQ
MoV
BIT

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

INC

INDX?2

JKEEP TIMING FOR 'ERROR 34°

:GET RKDS
;IS 'SOK' SET?
:NO, WAIT FOR IT TO SET
JMAKE SURE THAT 2 CONSECUTIVE
sREADINGS OF SEC-CNTR ARE SAME
;YES, MASK OUT NON-SEC CNTR BITS
;IS IT SECTC® O, IF NOT LOOP BACK &
;WAIT FOR SECTOR O
;KEEP TRACK OF SECTORS CHECKED
JsEXIT,IF ALL SECTORS CHKD
;KEEP TIMING FOR 'ERROR 36°'
;BR € REPORT ERROR [F WAITED LONG
;GET RKDS
;1S SOK SET?

MO-11-CZRKKF,

CZRKKF P11

RK11

BASIC

21-fEB-78 08:51

2486
2487
2488
2689
26490
2491
2492
g:gz

005636
005640
005642
005644
005650
005652
005654
005656

001772
021002
001370
042702
020201
001764
020203
001023

2495
2496
2497
Szgg

005660
005662
005664
005666

005203
005201
005005
000754

2500
2501
2502
5282

005670
005674

010137
104012

005676

000421

2505
2506
2507
gggg

005700
005706

017737
10401

005710

000414

2510

005712

010237

005724

000406

(005726
005732
005736

010337
010237
104014

005740

000747

2511
2512
2513
2514
gg}g
2517
2518
2519
2520
2521
2522
2523
2524

005716
0065722

LOGIC

010337
104013

TEST

MACY11

173422

001162
001164

001162

CHECK THAT

21-FEB-78

0B8:58

PAGE

°*SECTOR COUNTER'

CAN COUNT

FROM 0-13

SEC 0047

BEQ
cmp
BNE
8IC
(mp
BEQ
cnp
BNE

43
R0, R2
43
#177760,R2
R2.R1
3
RZ.R3
9%

;NO, WAIT FOR SOK
JMAKE SURE THAT 2 CONSECUTIVE
JREADINGS OF SEC-CNTR ARE SAME
;MASK NON-SEC-CNTR BITS
JHAS SEC CNTR INCREMENTED?
;NO, WAIT FOR IT TO CMANGE
;YES, DID IT INCREMENT CORRECTLY?
;NO - REPORT ERROR

5%:

INC
INC
CLR
BR

R3
R1
RS
3s

s INCREMENT ''NEXT COUNT''
; INCREMENT “‘PREVIOUS COUNT'
JINITIALIZE AGAIN FOR TIMING 'ERROR 36°
;60 & CHECK THE NEXT SECTOR COUNT

6%:

Mov
ERROR

R1,$REGO
12

TST10

;GET 'SEC CNTR'
JWAITED LONG, BUT SECTOR COUNTER
:DID NOT COUNT TO 0
JoEXIT

MoV
ERROR

aRKDS,$REGO
11

1ST10

;GET RKDS
;WAITED LONG, BUT
;NOT SET
JEXIT

MoV

R2,$REGO

;GET SEC CNTR (PRESENT COUNT)

TST10

MOV
mov
ERROR

R3,$REGO
R2,$REGY
14

BR
;

177760

001162

30A(1052)

7%:

8%:

9s:

MOV
ERROR

2526
2527
2528

;*TEST 10
CHECK THAT SC=SA CAN BE GENERATED
;¢ THIS TEST (HECKS THAT SC=SA CAN BE GFNERATED FOR
;* EVERY SECTOR

2530
2531
2532
2533
2534
2535

005742
005744

000004
104413

TST10:

T Rt

;GET 'NEXT COUNT' (SEC CNTR SHOULD BE THIS)
;GET PRESENT COUNT (WHAT SEC CNTR WAS)
sSEC CNTR INCREMENTED WRONG, DID
sNOT INCREMENT FROM PRESENT COUNT
;7O NEXT COUNT

;GET "'NEXT COUNT''
;WAITED LONG, BUT THE SECTOR
. COUNTER DID NOT INCREMENT FROM
;THE PRESENT COUNT TO THE NEXT COUNT
SSEXIT

2525

2529

R3,SREGY
13

°'SOK' BIT DID

R P

SCOPE
CNT.RESET

2536
2537
2538

2539
2540
2541

R R AN

R R RN

A R

R RN PR

R AR AR

R RN AR RN AR R AR

RN R

R RN AR AR

RRNR

R R TR RN 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
;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
005746

013704

001350

Mov

DRIVAD,R4

;THIS IS A VERY BASIC ERR & IF
;0CCURS GO BACK TO TEST 10

MD-11-CZRKKF,
CZRKKF PN

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

2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585

2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2597

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

RK11

BASIC

LOGIC

21-FEB-78 08:51
013700
012703
010477
005005
005205
001410
011001
03270
001772
005204
005203

TEST

MACY11
110

001326
177764
173352

CHECK

1%:

000020
4%:

006014
006020
006024

010137

0C6026

060766

110437

104015

001162
001164

3%:

08:58

SC=SA CAN BE

PAGE 49

GENERATED

SEQ 0048

mov
Mov

RKDS,RO
#-14 ,R3

JINITIALIZE

CLR
INC
BEQ

RS
RS
33

JINITIALIZE COUNT - FOR TIMING ERROR
;KEEP TIMING FOR ERROR
;REPORT ERROR IF WAITED LONG

R4 ,@RKDA

MOV
BIT
BEQ
INC

ak0,R1
#20,R1
2$
R4

Mov8
MOV
ERROR

R4, SREGO
R1,$REG
15

INC
BNE
BR

001364
000406

21-FEB-78

THAT

Mov

2%:

30A(1052)

;ADDRESS

THE

COUNT FOR # OF
DRIVE

;GET RKDS
;IS SC=SA SET?
JNO, WAIT FOR IV
;ADDRS

R3
1%
ST

THE

SECTORS

SECTOR

sARE ALL SECTORS CHECKED FOR SC=SA
;NO, GO & CHECK NEXT
JoYES, EXIT
JsGET SECTOR ADDRESS
;GET RKDS
.COULD NOT GET SC=SA FOR THIS

;'SECTOR ADDRESS'
;60 CHK FOR THE REST

NFAAA AL

AR AR

SrTEST 1

NAALE

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
18:

001162
001000

2s%:

AR AR

ARl

'k/W/S RDY'

SCOPE
CNT.RESET
Mov
DRIVAD,8RKDA
CLR
R1
mov
aRKDS RO
BIT
#100,R0

IS SET &

'SIN'

IS CLEAR

ARttt

sADDRESS

THE

DRIVE

RO, $SREGO

;1F NOT LUP BAK € WAITY
;GET RKDS

#1000,R0

;IS SIN CLEAR?

BEQ
JSR
ERROR

TST12
PC.GT4RG
1§

ital]]

;GO, DO CONTROL RESET

2$
R1
3s

R1
1%

;WAITED LONG ENOUGH?

JR/W/S RDY SHOULD BE
JLYES,

SET

EXIT

;OET RKCS,ER,DS.DA
;"SIN' SHOULD HAVE BEEN CLEAR
;1T WAS NOT CLEAR
JNEXT TEST IS GOING TO CHECK
;DRIVE RESEY, SIN SHOULD BE
:gLEQSED THEN.

;TH
JIRERRA RN TR

iatsdtiilslilsll

;GET RKDS
;1S R/W/S RDY SET?
;YES, BRANCH
;INCREASE LOOP TIME
;FOR DRIVE RESET OF HEADS

INC
BNE
mov
ERROR

BIT

020774

CHECK THAT
R

BNE
INC
BNE

3s:

IT WILL BE CHECKED

E A E AN R ARERRERRREACTORAORAERRENRRNRORRRREARRARRRRREIRATE

CHECK 'DRIVE RE3ET®
JeTEST 12
;tTHIS TEST CHECKS THE VERY BASIC DRIVE RESET LOGIC.

006110

000004

1ST12:

;*SINCE THE HEADS ARE AT CYLINDER O (GOING INTO THIS
s*TEST) DRIVE RESET RETRACTS THEM BACK BEYOND CYLINDER O,
s*AFTER WHICH THEY ARE PUSHED FORWARD TO CYLINDER 0 AGAIN.
JvIN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET
;*TEST WHICH DOES THE RESET FROM LAST CYLINDER.
SRR

SCOPE

AR RRARARRRR02R0RdRRRRRRRRRRRRRRRRRRRRR]

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

2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
25653

006112

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST

MACY11
LA P

30A(1052)

CHECK

21-FEB-78

°'DRIVE RESET'

08:58

PAGE 50

SEQ 0049

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

CNT.RESET

104413

'CNTRL-

;RESET® ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIPE
;1F THE 'CNTRL RDY' DOES NOT SET
;AN ERROR ]S REPORTED. NOTE THAT
;THE

006114
006120
006122
006130
006134

:
013700
005004
013777
012710
104412

006136

104021

IN ERROR MESSAGE

;PC WHERE 'CNT.RESET'
;THIS IS A VERY BASIC

001332
001350
000015

173210

MoV
CLR

RKCS RO
RG

ERROR

MoV
DRIVAD ,@RKDA
Mov
#15,aR0
CHKCRDY

THE

IS LOCATED.
ERR & IF IT

;OCCURS GO BACK TO TEST 10

JINITIALIZ 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
sSENDING 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

177776
000100

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
072737
011037
104024

173154

2%:
6%:

006176

020774

173122

3s:

020774

BIT
BEQ
JMP
INC
BNE
INC
BNE
JSR
ERROR

#100,3RKDS
. +6
3s
R4
63
RS

BIT
BEQ

#1000,3RKDS
5%

BIT
BEQ
JSR
ERROR

#140000,aR0
43
PC.GT4RG
22

cmp

#214,3R0

BEQ

TS113

JSR
ERROR

5¢:

020774
000214
000214
00116¢

;FROM DRIVE,

49:

001162

MOV
mov

ERROR

;*TEST 13

6%
PC,GT4RG

#2164 ,$REGD
8RO, SREGT

:60, GET RKCS, ER, DS, DA
:R/W/S RDY DID NOT

RN RN

'SEEK'

SET AFTER

:DID SIN SET?
;NO,

BRANCH

:G0, GET RKCS,ER,DS,DA
JSIN SET, AFTER A
;DRIVE RESET.
:ues 'ERR' BIT OR ‘HE' BIT SET?
:N
;G0, GET RKCS, ER, DS, DA

:'ERR' OR 'HE' BIT SET WHILE DOING
:DRIVE RESET
sDOES RKCS STILL CONTAIN THE

:"DRIV RES' BITS
;.YES, EXIT
;GET EXPCTD RKC(S

;GET RKCS, RECVD
;NO = RKCS SHOULD CONTAIN THE
;FUNCTION,

CHECK

‘CN RDY'

sCHECK FOR R/W/S READY

;ORIVE RESET

PC.GT4RG
1

THEREUPON SETTING

sSET UP DELAY COUNTER

C AR AR

ERROR IF

TR AR R E AR RN

TO CYLINDER 0

DIFFERENT.

°'DRIV RES®

A RN AR N RRONRY

;% THIS TEST CHECKS THE SEEK LOGIC DOING SEEK TO CYLINDER 0.
;¢ NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0O, NO
st HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK
s+ LOGIC.

MD-11-CZRKKF,

CZRXKF .P11

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11

113

2654

2655
2656
2657
2658

2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
gggg

2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690

DINR

006252
006254

000004
104413

CHECK °*SEEK'

TST13:

4
L
21-FEB-78
08:58

30A(1052)

N R

TO CYLINDER 0

RN RN

N R RN R

SCOPE
CNT.RESET

PAGE

PR A E RN EE R

SEQ 0050
A AN TSRO R ARSI IRIRICEROTREY

;GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE °*(NTRLJRESET' ROUTINE. A CONTROL RESET IS
sISSUED AND AFTER A CERTAIN TIME
;1F THE °*CNTRL RDY' DOES NOT SET
AN ERROR [S REPORTED. NOTE THAT

006256

104421

006260
006264

013700
013777

001332
001350

006272
006276

012710
104412

000011

006300

104021

006302
006304
006312
006314
006316
006320
006324
006326
006334
006336

005005
032777
001005
005205
001372
004737
104026
032777
001403
004737

006342

104001

TST.SIN

000100

RKCS,RO
DRIVAD,aRKDA

MoV
#11,3R0
CHKCRDY

2%:

173014

020774
001000

MOV
MOV

173046

172772

3%:

020774

ERROR

CLR
BIT
BNE
INC
BNE
JSR
ERROR
Bl
BEQ
JSR

RS
#100,3RKDS
33
RS
2%+2
PC.GT4RG
26
#1000, aRKDS
6%
PC.GT4RG

ERROR

ggg;

;THE PC IN ERROR MESSAGE 1S THE
;PC WHERE °‘CNT.RESET' IS LOCATED,
sTHIS IS A VERY BASIC ERR & [F IT
;OCCURS GO BACK TO TEST 10
;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 A(K'
s SHOULD HAVE COME BACK FROM THE
;DRIVE, THEREUPON SETTING °‘CNTRL RDY'

;DID R/W/S RDY BIT SET?
;YES, BRANCH
JWAITED LONG ENOUGH?
;1F NOT, LUP BAK & WAIT
:60, GET RK(CS, ER, DS, DA
;R/W/S RDY DID NOT SET AFTER SEEK
;DID SIN SET?
:NO, BRANCH
;60, GET RKCS,ER,DS.DA
sSIN SET ON DOING SEEK
;70 CYL O NOTE THIS IS THE
sFIRST TIME THE HEADS HAVE

;BEEN MOVED

2693
Sggg

006344
006350

032710
001403

140000

2696
gggg

006352
006356

004737
104022

020774

2699
2700
2701
S;g%

006360
006364
006366
006372

005777
001403
004737
104023

172744

2704
2705
2706
2707
2708
2709

006374
006400
006402
006410
006414

022710
001406
012737
011037
104024

6$:

BIT
BEQ

#140000,aR0
48

;WAS *ERR' OR ‘HE' BIT SET?

JSR
ERROR

PC.GT4RG
22

;60, GET RKCS, ER, DS, DA
;'ERR' OR 'HE' BIT SET WHILE DOING 'SEEK’

4%:

TST
BEQ
JSR
ERROR

aRKER
5%
PC,GT3RG
23

;WAS ANY BIT IN RKER SET?
;NO
;60, GET RKCS, ER, DS
;RKER SHOWS AN ERROR BIT, CHECK

5%:

CMP
BEQ
MoV
MoV
ERROR

#210,aR0
TST14
#210,3REGO
aR0,SREGH
24

;DOES RKCS STILL CONTAIN 'SEEK' FUNCTION
;. YES, EXIT
;GET EXPCTD RKCS
;GET RKCS RECVD
sNO, RKCS SHOULD BE STILL CONTAINING
;'SEEK' FUNCTION ERROR = IF IT CHANGED

021602
000210

000210
001164

(01162

MD-11-CZRKKF,
CZRKKF P11

2710
271
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
273
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750

2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
13
L}

30A(1052)
21-FEB-78
0B8:58
CHECK 'SEEK' TO CYLINDER O

PAGE

SEQ 0051

:;t.t..."""i'"""'t't""'t'."t'i'ttt'tt!'.tt.t!t.t"ttttt'

SeTEST

CHECK R/W/S RDY

IS CLEAR WHEN HEADS ARE

IN MOTION

;«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
;*R/M/S ROY~CLEAR COULD MEAN A FAULT ON M7702

;*WHERE "MOVE L' IS GENERATED.
;*NOTE THIS IS THE FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING

;+TO CYLINDER 2.

;;t'Qtttfittttttt""!t!"t'tttt"t'tt'ttt'tttttt!'ttttttttttttttt

006416
006420

TST14:

000004
104413

006422

104421

006424
006430

004737
104026

006432
006434
006442
006450
006454
006462
006466
006470
006472
006474
006500

005005
013777
052777
013701
012777
032711
001405
00,205
100373
004737

006502
006506

004737
104016

104025

SCOPE

CNT.RESET

001350
000100
001326
000011
000100

JSR

ERROR
CLR

172676
172670
172650

1$:

021002

021436

2%:

PC,DRESET

26
RS

DRIVAD,aRKDA

MoV
MoV
8IT

RKDS ,R1
#11,3RKCS
#100,aR1

BEQ
INC
BPL
JSR
ERROR
JSR
ERROR

IS A CALL

;CO CHECK

MoV

8IS

;THIS

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 1S A VERY BASIC ERR & IF IT
;:0CCURS GO BACK TO TEST 10

TST.SIN

021504

:60, DO CONTROL RESET

#100,3RKDA

23
RS
18
PC.GT3RG
25

PC,TSTRWS
16

SIN IS SET

;1F SET DO DRV-RESEYT TO CLR IT
;MAKE SURE HEADS R ON CYL 0

;R/W/S RDY DIDN'T SET
sAFTER THE ABOVE DRV RESET

;SEEK CYLINDER 2
. SEEK, GO
;01D R/W/S RDY CLR?

:YES, BRANCH

sR/W/S RDY WAS NOT CLEAR WHEN HEADS

;WERE SEEKING TO CYLINDER 2

;60, WAIT FOR R/W/S RDY TO SET
sR/W/S RDY DID NOT SET AFTER SEEK

;WAS TRIED TO CYLINDER 2 (ABOVE).
;NOTE THIS WAS THE FIRSY TIME A SEEK
:gAS TRIED TO A CYLINDER OTHER THAN

':'tttl'itttlit"t"ii""tili'tiittif'iit'tlttt!tt'ttt'ttt"ttt'

J*TEST 15
CHECK 'WRITE' FORMAT FUNCTION-CYLINDER O, SECTOR 0
CHECKS THE LOGIC INVOLVED IN THE WRITE FMT
TEST
;*THIS
;*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,
CZRKKF .P11

2766
2767
2768
2769
2770
277
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
27N
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803
2804
2805
2806
2807
2808
2809

RK11 BASIC LOGIC
21-FEB-78 08:51

MACY11
115

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

;%)
s vd)

:*S)

;*6)

:e7)
;8)

006510
006512

1ST15:

000004
104413

IF
IF
IF
IF
If
IF

SECTOR 0

SEQ 0052

"HE® OR "ERR' BIT SET?
RKDA INCREMENTED CORRECTLY tROM 0 10 1?
RKWC OVERFLOWED CORRECTLY TO 0?
RKBA INCREMENTED CORRECTLY BY 2?
ANY BIT IN RKER SET?
THE 'WRT FMT' FUNCTION BITS ARE STILL IN THE RK(S?

;*NOTE THAT ONE WORD '125252' WAS WRITTEN ON SECTOR
;*0 & IV WILL BE CHECKED IN THE NEXT TESTS.

ARl

SCOPE

Rttt

CNT.RESETY

0020222222

)

;6GO, 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

006514

006516

104421

TST.SIN

012703

Mov

033342

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

#OUTBUF ,R3

SIN

;THIS CODE SETS UP A 256 WORD BUFFER
;WHICH WILL BE USED TO WRITE 1 SECTOR
:1ST WORD

000001

:3RD WORD

000002

;253RD WORD
;254TH WORD
:255TH WORD
:256TH WORD

000177
177601
000000
125252

:2ND WORD

;4TH WORD

012700

2810
gg};

006526
006530
006532
006534
006536
006542
006544
006546

010023
010013
005423
005200
022700
001371
005023
012713

2813
2814

006552
006556

012703
013701

006562
006566
006570
006576
006604

006610

013702
010312
012777
013777
012711

105711

000001
9s:

033342
001332

001336

177400
001350
002003

1
°

OF ABOVE

;SET COUNT

mov
MoV
NEG

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

;SET UP DATA WORDS

chp
BNE

#200,R0
93

;DONE?

(R3)+
#125252,3R3

;SET 255TH WORD T0 0
:SET 256TH WORD

MoV
Mov
Mov
Mov
Mov

#0UTBUF ,R3
RKCS,R1
RKBA,R2
.
R3,aR2
#-400,3RKW(

;RESET POINTER TO OUTBUF

MoV

#2003, aR1

DRIVAD,aRFDA

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

TST8

aR1

;WAS

Mov
1$:

177776

2'S COMPLEMENT

#1,R0

CLR
Mmov

125252

177777

Mov

INC

000200

IS SET

;IF SET, DO DRIVE RESET TO CLR IT

;ON THE DISK

006522

2815
2816
2817
2818
2819
2820
2821

TEST

;WRITE

FORMAT, GO

"CNTRL RDY'

CLEARED AS GO WAS SET?

MO-11-CZRKKF,
CZRKKF P11

2822
2823
2824
2825
2826
2827
2828
2829
2830
283
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869

2870
287
2872
2873
2874
2875
2876
2877

006612
006614
006620

RK11

BASIC

21-FEB-78 08:51
100003

004737
104030

006622
006624
006526
006630
006632

005200
001374

006634
006640

004737
013737

006650

104031

006646

LOGIC

TEST

MACY11
115

ERROR

2$:

005000
105711
100411

104416

CHECK

BPL
JSR

021002

CLR

001202

2%
PC.GT3RG
30

TST8B
BMmI

k1
3s

JSR
MOV
BRKDA4

PC.GT4RG
DRIVAD,SREG10

ERROR

INC
BNE

020774
001350

B
5
21-FEB-78 08:58 PAGE 54
"WRITE' FORMAT FUNCTION-CYLINDER O,

30A(1052)

RO
2%+2

004737

006656

104032

006660

004737

006664

104033

006666

004737

006672

104034

006674
006700
006702
006710
006714

022712
001406
012737
011237
104035

C06710

004737

006722

104036

006724

022711
001406
012737
011137

006730
006732
006740
006744

104024

021234

021262

A ¥

5%:

021316

63:

034342
034342
001164

001162

PC,CHKHE

ERROR

JSR

PC,CHKDA

ERROR

JSR

PC.,CHKW(

ERROR

cmp
8taQ

;"CNTRL RDY'

7%:

8%:

002202
001162

DIDN'T

;WAS 'CNTRL RDY'
;YES, BRANCH

SET ON COMFLETION OF WRITE?

;NO, HAVE U WAITED LONG ENOUGH?
;1F NOT, LOOP BACK § WAIT
:1F YES, REPORT ERROR
:60, GET RKCS, ER, DS,DA
;GO TO

'BDA4'

& BREAK

;"CNTRL RDY' DIDN'T SET ON COMPLETION
;OF WRITE FORMAT
FAT

WAS

DONE

STARTING AT

sINDICATED IN EROR MSGE.
:GO CHECK

°'HE®'

'ERR'

<DSK-ADRES>

BIT

SET,

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

:1F NOT, RETURN HERE.
sRKDA SHOULD HAVE INCREMENTED BY
:1 SECTOR, IT DID NOT
:CHECK IF WORD COUNT OVERFLOWED, IF
sNOT RETURN HERE.

;RKWC DID NOT OVERFLOW TO O, AFTER
;XFER ON WRITE FORMAT
#OUTBUF +1000,aR2
;DID RKBA INCREMENT CORRECTLY?

:YES, BRANCH

;RKBA DIDN'T INCREMENT BY 1000 AFTER
sWRITE FORMAT OF 400 WORDS

JSR

PC,CHKER

ERROR

cmMp

#2202 ,aR1

mov

8R1,$REGT

ERROR

(ONTENTS OF

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

#OUTBUF +1000,$REGO ;GET EXPCTD RKBA
9R2,SREGT
;GET ACTUAL RKBA

8EQ
MoV

CLEAR AS GO

;WAS SET TO 'WRITE FORMAT'

Mov
mov

ERROR

021342

002202
00116¢

JSR

SEQ 0053

JYES, BRANCH
;60, GET RK(CS, ER, DS

JWRT

006652

SECTOR 0

;CHECK

1OF

ANY BIT

IN RKER SET,

;1F YES RETURN HERE.

;RKER BIT SET ON DOING 1 WORD
;WRITE FORMAT

;DOES RKCS STILL HAVE 'WRY FMT' BITS?

18716
#2202 ,$REGO

$YES, EXIT
;GET EXPCTD RKCS

:RKCS DIDN'T CONTAIN 'WRT FMT' BITS
SAFTER THE FUNCTION WAS COMPLETED

;GET ACTUAL RKCS

[)

sotRARARRARARRRRRRARRCORRRRCRRREARRCECRORRRRRRRRORRARRARCRRRRRARCOACRTY

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

:02)

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

FUNCTION

MD-11-CZRKKF,
CZRKKF P11

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
29MM
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924

2925

2926
2927
2928
2929
2930
2931
2932
2933

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
T16

C
5
21-FEB-78
08:58

30A(1052)

PAGE

CHECK

'READ FORMAT'

:*3)

;*S)
:%6)

IF RKWC OVERFLOWED CORRECTLY TO 0?
IF RKBA INCREMENTED CORRECTLY BY 2?

;+8)

IF THE CORRECY HEADER WAS RECEIVED?

;*4)

;*7)

;*9)

"HE'

FUNCTION-CYLINDER 0,

OR "ERR'

RKDA

ANY BIT

BIT SET?

INCREMENTED CORRECTLY

SECTOR 0

FROM 0

SEQ 0054

TO 1?

IN RKER SET?

FOR RK11C, AFTER RD FMT RKDB CONTAINS THE CHECKSUM
T HAT SECTOR. (125252 IN THIS CASE, BECAUSE THE
;eFIRST WORD IN SEC 0O WAS WRITTEN AS 125252 IN
;*THE PREVIOUS TEST)

JefOR

;*10)

FOR RK11D, AFTER RD FMT RKDB SHOULD CONTAIN

;tA ZERO
:#11)
[F THE
:*THE RKCS?
MR

006746
006750
006752

1ST16:

000004
005000
104413

ARl

SCOPE

(LR

RD FMT

FUNCTION BITS ARE

STILL

CNT.RESET

:6O,

2RSSR

DO CONTROL RESET

s;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 [S REPORTED. NOTE THAT
;THE PC IN ERROR MESSAGE IS THE

:PC WHERE 'CNT.RESET'

006754

104421

006756
006762
006766
006772

013701
013702
012703
010312

001332
001336
033342

006774
007002
007010

012777
013777
012711

177777
001350
002005

007014
007016
007020
007024

105711
100003
004737
104030

007026
007030

005000
105711

007032
007034
007036

005200
001374

007040
007044
007052

004737
013737
104416

007054

106045

172332
172330

021002

2%:

100411

020774
001350

001202

;60 CHECK
RKCS,R1

SIN IS SET

;1IF SET, DO DRIVE RESET TO CLR IT

MoV
MOV
Mov

RKBA,R2
#OUTBUF ,R3
R3,aR2

;SETUP ADRS WHERE HEADER WORD IS TO BE

mov

#-1,3RKW(

;SET UP WORD COUNT

MoV

#2005,aR1

1518

ar1

MoV

1%:

IS LOCATED.

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

TST.SIN
MOV

BPL
JSR
ERROR
(LR

DRIVAD,3RKDA

23
PC.GT3RG
30
RO

1578

art

L
INC
BNE

3%
RO
28+2

JSR
MoV

PC,GT4RG
DRIVAD,SREG10

BRKDA4
ERROR

; X=-FERRED

;SET UP DISK ADRS,

;READ FORMAT, GO
:WAS

'CNTRL RDY'

SECTOR O,

CYLINDER O

CLEARED AS GO WAS SET?

;YES., BRANCH
:60, GEY RXCS, RKER
sCNTRL RDY DIDN'T CLEAR AS GO WAS

JSET TO "READ FORMAT'®
;WAS 'CNTRL
s TRANSFER

RDY'

SET ON COMPLETION OF

:YES, BRANCH
;NO, HAVE U WAITED LONG ENOUGH?
;1F NOT, LOOP BACK & WAIT

;IF YES, REPORT ERROR
:60,

GEY RKCS,

ER,

DS,DA

;GO 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,

CZRKKF P11

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
29563
2964
2965
2966
2967
2968
2969
2970
29N
2972

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

RX11

BASIC

LOGIC

21-FEB-78 08:51

007056

004737

007062

104046

007064

004737

007C70

104040

007072

004737

007076

104041

007100
007104
007106
007114
007120

022712
001406
012737
011237
104042

007122

004737

007126

104036

007130

005713

007132
007134

007140
007144
007150

001407
005037
005037
011337
104043

007152
007156
007160
007166
007172

022711
001406
012737
011137
104024

TEST

021234

021262

021316

5%:

6%:

033344

033344
001164

MACY11
T16

001162

021342

7%:

001162
001164
001166

PC.CHKHE

ERROR

J'HE' OR

'ERR' BIT SET WHILE

JSR

PC,CHKDA

JCHECK

RKDA

001162

JYES RETURN MERE.

;DOING A 'READ FORMAT'
JREAD FMT WAS DONE STARTING AT <DSK~-ADRES>
JINDICATED IN EROR MESGE
IF

INCREMENTED CORRECTLY

ERROR

;IF NOT, RETURN HERE.
JRKDA SHOULD HAVE INCREMENTED
;BY 1 SECTOR, IT OID NOT

JSR

PC,CHKWC

sCHECK

ERROR

(Mo

#0OUTBUF +2,8R2

MoV

#OUTBUF
+2 ,$REGO ;GET EXPCTD RKBA

ERROR

BEQ

aR2.,.$REGT

IF RKWC OVERFLOWED TO O,

IFf

;NOT RETURN HERE.
JRKWC DID NOT OVERFLOW TO O
sAFTER XFER ON READ FORMAT

;DID RKBA INCREMENT TO NXT WORD ADDRS?
JYES, BRANCH

JGET ACTUAL RKBA

;RKBA DIDN'T INCREMENT BY 2 AFTER

;'READ FORMAT' OF 1 WORD

JSR

PC,CHKER

ERROR

TST

8R3

;1 WORD READ FORMAT
;DOES OUTBUF CONTAIN THE HEADER

BEQ

JYES, BRANCH

MOV

@R3,3REG?

CHP

#2204 ,8R1

Mov
MoV
ERROR

#2204 ,8REGO
aR1,$REG]
24

JEXPCTD HEADER

;GET MEADER RECVD

JCORRECT HEADER WORD~0-~WAS
sNOT RECEIVED ON READ FORMAT
;D0ES RKCS HAVE

TST17

RSl

IN RKER SET,

JGET SECTOR NO.

ANY BIT

;YES RETURN HERE.

S$SREG)

BEQ

;WORD~-0

$SREGO

AAAAEEASARA

JCHECK

;RKER BIT SET ON DOING

CLR

ERROR

9% :

SEQ 0055

JSR

CLR

002204

SECTOR O

JREAD FMT WAS DONE STARTING AT <DSK=-ADRES>
JINDICATED IN EROR MESGE
JCHECK IF *ERR' OR 'HE® BIT SET, IFf

MOV

8s:

002204
001164

]
5
30A(1052)
21-FEB-78
08:58
PAGE 56
CHECK "READ FORMAT' FUNCT!ON-CYLINDER 0,

:.YES, BRANCH

THE

°'RDFMT'® BITS?

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

sBITS AFTER FUNCTION WAS
; COMPLETED

ittt

ittt itn

J*TEST 17
CHECK "READ' FUNCTION-CYLINDER 0,SECTOR 0
;*THIS IS THE FIRST TIME A PURE READ IS PREFORMED In THIS
J*TEST SEQUENCE.
THE FOLLOWING IS CHECKED
AS GO IS SET
CLEARS
;*1) CNTRL RDY
;*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
3011
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

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

30A(1052)

CHECK

;¢7)

IF ANY RKER BIT SET?

;%9)

SEQ 0056

:*8) If THE CORRECT PSUEDO-HEADER (FIRST WORD) WAS
;*READ FROM SECTOR O
THE

°"READ'

FUNCTION BITS ARE

SRR RN TR RN RN RSN RO NN PR

007174
007176

TST17:

000004

104413

SCOPE
T
. RESET
CN

R ENE RN AR RN

STILL

IN RKCS

R AN AARNONNENNRAANNNANCCESE

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

;PC WHERE

007200

104421

007202
007206
007210
007214
007220

013701
005000
013702
012703
010312

001332

007222

012777
013777
012711

177400
001350
600005

007230
007236

007242
007244
007246
007252

105711
100003

004737
104030

007254
007256

005000
105711

007260
007262
007264

005200
001374

001336
033342

1%:

021002

2%:

004737
013737

007302

104045

007304

004737

007310

104046

104416

004737

020774
001350

021234

021262

RKCS,R1
RO
RKBA,R?
#OUTBUF ,R3
R3.a&R2

mov

#-400,3RKW(

MOV

25,901

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

1S18

aRk1

;WAS

(LR

BPL
JSR
ERROR

4%:

2%
PC.GT3RG
30

L
INC
BNE

b1
RO
28+2

JSR

PC,GT4RG

BRKDASG

3s:

DRIVAD,8RKDA

1ST8

mMov

001202

IS LOCATED.

mov
CLR
nov
nov
mov

mov

1004611

007266
007272
007300

007312

TST.SIN

"CNT.RESET'

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

DRIVAD,SREG10

'CNTRL RDY'

CLEARED AS GO WAS SET?

;YES, BRANCH
:60, GEY RKCS, ER
;CNTRL RDY DID NOT CLEAR AS GO

;WAS SET TO

°'READ’

:WAS CNTRL RDY SET ON COMPLETION
;OF TRANSFER?
;YES, BRANCH
:NO, HAVE U WAITED LONG ENOUGH?
;1F NOT, LOOP BACK & WAIT
;IF YES, REPORT ERROR

:GO, GET RKCS, ER, DS,DA

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

;GO TO "BDA4' & BREAK

ERROR

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

JSR

PC,CHKHE

ERROR

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

JSR

PC,CHKDA

:DOING A READ.

sREAD WAS DONE STARTING AT <DSK~ADRES>
;INDICATED IN EROR MESGE
;CHECK IF RKDA INCREMENTED CORRECTLY,

MD-11-CZRKKF,

CZRKKF P11

3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
5060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086

3087

3088
3089

3090
3091
3092
3093
3094
3095
309¢
3097
3098
3099
3100
3101

RK11

BASIC

LOGIC

21-FEB-78 08:5?

007316

104040

007320

004737

007324

104041

007326
007332
007334
007342
007346

022712
001406
012737
011237
104042

007350

004737

007354

104036

007356

022713

007362
007364
007372
007376
007404

001411
012737
011337
013737
104044

TEST 2

021316

117

5%:

6%:

034342
034342
001164

MACY11

001162

021342

000001

000001
001164
001350

8%:

001166

21-FEB-78

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

CHECK

'READ'

ERROR

JSR

PC,CHKWC

ERROR

CMP
BEQ
mMov
MOV
ERROR

#0UTBUF +1000,aR2
;DID RKBA INCREMENT CORRECTLY?
7%
;YES, BRANCH
#OUTBUF +100C, SREGO
JGET EXPCTD RKBA
aR2,SREG!
JGET ACTUAL RKBA
42
JRKBA DID NOT INCREMENT BY 2

JSR

PC,CHKER

ERROR

CMP

#1,a3R3

BEQ

MoV
MOV
ERROR

(R3),$REGT
DRIVAD, $REG?
44

[ Jo}Y]

001162

30A(1052)

#1,8REGO

SEQ 0057

;IF NOT RETURN HERE.
JRKDA DID NOT INCREMENT
;BY 1 (SECTOR)
JCHECK

RKWC OVERFLOWED 10 O,

;JF NOT RETURN HERE.
JRKWC DID NOT OVERFLOW TO O,
JAFTER X=-FER ON READ

JAFTER
JCHECK

'READ' OF 1 WORD
IF ANY BIT IN RKER SET,

;WORD

°‘READ’

JIF YES RETURN HERE.
JRKER BIT SET ON DOING 1

;DOES OUTBUF CONTAIN THE RIGHT
:DATA WORD

JYES BRANCH

;GET EXPCTD DATA WORD

;GET RECVD DATA WORD
JGET DISK ADRS FROM WHICH READ WAS DONE
;01D NOT READ THE CORRECT
:DATA WORD--FROM DISK ADRES,

JSEC O, CYL O, SUR O
sAFTER 1 SECTOR READ RKDB CONTAINS
;FOR RK11C

;THE CHECKSUM FOR THAT SECTOR

;FOR RK11D

JTHE LAST WORD TRANSFERRED TO MEMORY

007406
007414
007416
007424
007432

022777
001407
012737
017737
104037

125252

171726

125252
171712

001162
001164

007434
007440
007442
007450
007454

022711
001406

000204

007456
007460
007464
007466

012737

011137
104024

104413

005777
001407
013737

000204
001164

cmP
8EQ

ERROR

#125252,8RKDB
10$
#125252,3REGO
SRKDB,SREG)
37

CMp

#2064 ,8R1

MOV
mov

#204 ,3REGO
aR1,$REGT

MoV
MOV

10%:

001162

BEQ

ERROR

118:

171656

001342

001164

118

CNT.RESET
TST

8EQ
MOV

aRkDB

15120
RKDB, SREG!

;1T SO HAPPENS THAT WITH THE SECTOR
;THAT WAS READ, RKDB CONTAINS THE
JSAME INFORMATION FOR BOTH RK11C
;AND RK11D
;DOES RKDB CONTAIN THE EXPCTD WORD?
JYES., BRANCH
;GET EXPCTD RKDB
;GET RECVD RKDB

;RXDB DOESD NOT CONTAIN THE
:EXPCBD WORD AFTER A READ OF SEC O
JCYL

;DOES RKCS HAVE THE ‘READ' BITS?
;YES , BRANCH

;GET EXPCTD RKCS
;GET RECVD RK(CS

JRKCS DID NOT CONTAIN ‘READ®

;FUNCTION BITS AFTER OPERATION
;WAS COMPLETED
;G0 DO CONTROL RESET
;DID CONTROL RESET

;s YES, EXIT
;GET ADRES OF RKDB

CLEAR RKDB?

MD-11-CZRKKF,

CZRKXF .P11

b
o

007474
007502

BASIC

LOGIC

21-FEB-78 08:51
017737
104102

171642

TESY

MACY11
117

001164

CHECK

21-FEB-78 08:58
PAGE 59
°*READ' FUNCTION-CYLINDER 0,SECTOR 0

30A(1052)

8RKDB, $REG1
102

mov

ERROR

SEQ 0058

JGET CONTENTS OF RKDB
;CONTROL RESET DIDN'T (LR RKDB

:;"tltttti!t't'!"'tit."""'tt"t"t'i"tiItttt'tt!ttt'itttt't

;*TEST 20

CHECK

'WRITE FORMAT'

-CYLINDER O,

SECTOR 0-13

J*THIS TEST GOES ONE STEP FURTHER & PERFORMS A WRT
;*FMT ON CYLINDER QO & CHECKS THE FOLLOWING
;1)
IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION
;*0F THE FUNCTION

00 ~NO NN
=o

b
b

d
d
b

—

(VL QV RV AV AV JV RV IV ] W

3102
3103
3104
3105
3106
3107
3108
3109

RK11

;*2)

;*3)

"HE' OR 'ERR® BIT SET?

IF THE RKDA INCREMENTS CORRECTLY?

IF THE RKDB ]S CLEAR?
;*4)
;*WRT FMT IS DONE ONE SECTOR AT A TIME

J*THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A
;*PSUEDO~-HEADER CONSISTING OF DRIVE #, CYLINDER #,
SRR

3119
3120
3121
3122
3123
3124
3125
3126

007504
007506
007512
007516
007522
007526
007530
007532

000004
013703
012702
013704
013701
010105
005205
012737

3128

007540

104413

1ST20:

001332
177764
001340
001350
007540

R R AN

SCOPE

MOV

MOV
MOV
MoV
MOV
INC
MoV

001110
1%:

SURFACE

;*8 SECTOR #. THIS WILL BE READ & CHECKED IN THE FOLLOWING TEST.
NN R AR

RKCS,R3

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

CNT.RESET

NN NN RN A AN NRRAAN

:SET UP COUNT FOR 12 SECTORS
;GET DRIVE ADDRESS
;STORE IT
;SET RETURN ADRES FOR LUPING

ERROR (SW 9)

;ON

;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

;PC WHERE °'CNT.RESET'
sTHIS

3138

007542

104421

TST.SIN

3140
3141

007544
007546

005000
010137

033342

CLR

3146

007552

012777

033342

171556

177777

171546

3148
3149
3150

007560
007566
007570

012777
010114
012713

3152
153

007574
007600

171532

007602

105777
100410
005200

007606

004737

020774

007604

Mov

MoV

002003

001373

2$:

IS A VERY BASIC ERR ®

;OCCURS GO BACK TO TEST 10
;GO CHECK

R1,0UTBUF

#OUTBUF ,8RKBA

:1F SET, DO DRIVE RESET TO CLR IT
;THIS WORD TO BE X-FERRED.

FIRST

;Aopgnaggn WHICH DATA WORD

;WORD OF EACH SECTOR WILL BE THE
;ACTUAL DRIVE~ADDRS CONSISTING OF
;DRIVE NO, CYL ADDRS, SURFACE
:SECTOR NO.
TO

#-1,3RKWC

TSTB
BMI
INC

FRKCS
1s
RO

;DID 'CNTRL RDY' SET?
;YES, BRANCH
;NO, HAVE U WAITED LONG?

JSR

PC,GT4RG

;GO, GET RKCS, ER, DS,DA

BNE

THE

SIN IS SET

MOV

Mov
MoV

IS LOCATED.

:SET UP WORD COUNT

R1,8R4
;ADDRS THE DRIVE, CYL O, & CORRECT SECTOR
#2003,3R3
;WRITE FORMAT, GO

:IF NOT, LOOP BACK & WAIT
;1F YES, REPORT ERROR

MD-11-CZRKKF,

RK11

CZRKKF .P11

21-FEB-78 08:51

3158
3159
3160
3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171

BASIC

LOGIC

TEST

MACY11

120

001202

30A(1052)

CHECK

‘WRITE

mov

FORMAT®

007612

010137

007616

104416

BRKDAS

007620

104031

ERROR

007622

004737

JSR

PC,CHKHE!

007626

104032

ERROR

021226

3s:

R1,$REGTO

3172

PAGE

<~CYLINDER O,

SECTOR 0-13

SEQ 0059

JGET DISK ADRS (UNIT,CYL,SUR,SEC) TO WHICH
;WRITE FORMAT WAS DONE
;60 TO 'BDA4L' & BREAK
(ONTENTS OF
JSREGIO INTO DR #,CYL,SUR,SEC BITS
;'CNTRL RDY' DID NOT SET ON COMPLETION
;OF '"WRITE FORMAT®
;WRT FMT WAS DONE STARTING AT <DSK=-ADRES>
JINDICATED IN EROR MSGE.
JCHECK IF 'ERR® OR °'HE' BIT IS SET,
;1F YES RETURN HERE.
;'HE' OR 'ERR' BIT SET WHILE DOING
;WRITE FORMAT ON CYLINDER O,
;SECTOR IN ERROR IS AS SHOWN IN
;DISK-ADRES BJ7S 0-3
FMT WAS DONE

STARTING AT

;INDICATED IN EROR MSGE.

%1;2

007630

004737

3177
3178
3179
3180
3181
3182
3183
3186
3185

007634

104033

007636

005777

171500

007642
007644

001406
005037

001162

007656

104037

3186

08:58

;WRT

g;;z

3187
3188
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199

21-FEB-78

007650

017737

007660
007662
007664
007670
007672

005201
005205
122705
001002
062705

007676
007700

005202
001317

021270

171466

4%:

5%:

001164

JSR

PC.,CHKDAY

;CHECK JF RKDA INCREMENTED CORRECTLY?

ERROR

aRKDB

BEQ
CLR

63
$REGO

;RKDA DID NOT INCREMENT CORRE(CT
JAFTER 1 WORD 'WRITE FORMAT®' ON
;CYLINDER O, SECTOR IN ERROR IS 1
JLESS THAN THAT SHOWN IN EXPCTD RKDA
:CHECK THAT RKDB DOES CONTAIN A O
JAFTER WRT BECAUSE LAST WORD WRITTEN
;WAS SERIALLY SHIFTED OUT TO THE DISK
;YES, BRANCH
;THIS IS WHAT RKDB SHOULD CONTAIN

ERROR

mov

6%:
000014
000004

<DSK~-ADRES>

aRKDB,$REG?

INC
INC
CMPB
BNE
ADD

R
RS
#14 RS
.46
#4 RS

INC
BNE

R2
18

R AR

Rt R

;GET RKDB

;RKDB SHOULD BE O AFTER WRT SINCE THC
JLAST WORD WRITTEN WAS SERIALLY SHIFTED
;0UT OF RKDB
;s INCREMENT DRIVE ADDRS TO NXT SECTOR
:
sR U GOING TO CHECK THE LAST SECTOR?
:1F NOT ,BRANCH
;1F YES,INCREMENT RS CORRECTLY TO 'EXPCTD RKDA'
JAFTER HAVING CHECKED THE LAST SECTOR
sHAVE U FORMATTED ALL 12 SECTORS?
;1F NOT, BRANCH BACK & LOOP
JIF YES, EXIT

3200

N R A AR R

R AR R AR

AR RN R

RN LR

3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
3212
3213

eTEST 21
CHECK 'READ FORMAT'<-CYLINDER O, SECTOR 0-13
;*THES TEST PERFORMS A RD FMT ON THE 12 SECTORS 0OF CYLINDER O
;*THE FOLLOWING IS CHECKED
;¢1)
IF CNTRL RDY SET WITHIN A CERTAIN TIME ON COMPLETION

;*0F THE FUNCTION
;t2)

"HE' OR 'ERR' BIT SET?

;*3)
IF THE RKDA INCREMENTS CORRECTLY?
;*4)
RKBA INCREMENTED CORRECTLY BY 30 (OCTAL)
;*5)
RKWC OVERFLOWED TO O FROM -14 (OCTAL)
;:6)
CORRECT HEADER WAS RECEIVED FROM ALL 12 SECTORS.
;*7)
RKCS STILL CONTAINS THE °'RD FMT® FUNCTION BITS.
;*]F THERE IS A READ ERROR IN THIS TEST OR ANY
;*OTHER TESTS THE USER SHOULD MAKE SURE THAT

MD-11-CZRKKF,

RK11

CZRKKF P11

21-FER-78 08:51

3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233

3234

3235
3236
3237
3238
3239
gng

3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254

3255
3256
3257
3258
3259

BASIC

007702
007704
007706

000004
005005
104413

007710

104421

007712

LOGIC

013701

001332

013702
013712
012704
010477
012777
012777

001340
001350
033342
171374
177764
002005

007756
007762
007764
007766

105777
100411
005205
001373

171350

007770
007774
010002

004737
013737
104416

020774
001350

010004

104045

007716

007722
007726
007732
007736
007742
007750

012700

TEST

MACY11

T21

30A(1052)

CHECK

21-FEB-78

021234

010012

104046

3262
%ng

MOV

MOV
MoV
MoV
MOV
MoV
MOV

171364
171354
1%:

001202

#-14,RO0

RKDA,R2
DRIVAD,aR2
#OUTBUF
R
R4 ,3RKBA
#-14 ,3RKWC
#2005,3RXCS

TST8
BMI
INC
BNE

SRKCS
2%
RS
18

JSR
MoV
BRKDA4

PC.GT4RG
DRIVAD,SREG10

ERROR

010014
010020

013705
062705

001350
000020

3265
3266
3267
3268
3269

010024

004737

021270

010030

104040

2%:

JSR

PC,CHKHE

ERROR

MOV
ADD

DRIVAD,RS
#20,R5

JSR

PC,CHKDA1

ERROR

3260

3261

PAGE

'READ FORMAT'-CYLINDER O,

*
004737

08:58

SECTOR 0-13

;*¢lT IS AN [RRECOVERABLE ERROR AND NOT A TRANSIENT
;*ONE. THIS CAN BE DONE BY LOOPING ON THE TEST
;*IN QUESTION. USUALLY A TRANSIENT ERROR
;*DISAPPEARS ON RETRIES, WHEREAS A LOGIC ERROR DOES NOT.
;;ttttQt't'tt'tt'ttt't't'ttt'tt'tt't"t"ttttttttt!ttt'tttt'ttttt
TST21:
SCOPE
CLR
RS
CNT.RESET
;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® 1S LOCATED.
;THIS 1S A VERY BASIC ERR & IF |7
;OCCURS GO BACK TO TEST 10
TST.SIN
;GO CHECK IF SIN IS SET
;1S SET, DO DRIVE RESET TO CLR IT
MOV
RKCS,R1

177764

010006

;SET UP COUNT FCR 12 SECTORS
:ADDRESS THE DRJVE

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

;010 CNTRL RDY SET ON COMPLETION?
;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
;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

SEQ 0060

MD-11-CZRKKF,

CZRKKF (P11

3270
327N
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
33N
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321

3322
3323
3324
3325

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY15
121

30A(1052)

CHECK

21-FEB-78

(08:58

PAGE 62

°'READ FORMAT'-CYLINDER O,

SECTOR 0-13

SEQ 0061

;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

104042

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

104043

104024

1771262

4%:

8tQ

MoV
MOV

5%:

7%:

021342

002204
001164

:RKBA DID NOT INCREMENT CORRECTLY

JSR

PC,CHKWC

ERROR

;60 CHECK IF RKWC OVERFLOWED TO O
;1F NOT RETURN HERE.

TS7T
BEQ

(R4)+
7$
RO,S$REGO
#14,$REGO
$REGT

MoV
ADD
CLR
MOV

001162

002204

ERROR

6$:

001162
000014
001164
001166

;AT THE END OF X~FER
#OUTBUF +30,3RKBA ;DID RKBA INCREMENT CORRECTLY?
5%
:YES, BRANCH
#0UTBUF +30,8REGO
;GET EXPCTD RKBA
@aRKBA,$REG1
;GET ACTUAL RKBA

CmMp

8%:

001162

ERROR

-(R4) ,$REG?
43

TS1
INC
BNE

RO
6%

JSR

PC,CHKER

ERROR

Cmp
BEQ

#2204 ,3R1
1ST122
#2204 ,3$REGO
SR1,3REG!

(RG)+

Mov
MOV

ERROR

P AASAR R

AR AR

;AFTER READ FORMAT OF 12 HEADERS
;RKWC DID NOT OVERFLOW TO 0

;AFTER

'RD FMT'

;OfF CYLINDER 0

12 HEADERS

;WAS THE CORRECT HEADER RECIEVED?
;YES, BRANCH

;GET SECTOR FOR WHICH THE HEADER

;COULD NOT BE READ CORRECT

;EXPCTD HEADER-0, FOR CYL O
;GET WRONG HEADER RECVD
JHEADER WAS NOT READ RIGHT

FOR

;SECTOR (AS IN ER MSGE), & (YL 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 0, SECTORS 0-13

;DOES RKCS STILL CONTAIN FUNCTION BiTS?
;.YES, EXIT
:GET EXPCTD RK(S
;GET ACTUAL RKC(CS
sRKCS OID NOT CONTAIN °'RD FMT'
;FUNCTION BITS ON COMPETION OF
: THE FUNCTION

R AARAARLRRAARAAARR
AR
ARt
R R attittndl

CHECK "READ',CYLINDER O, SECTORS 0 TO 13
JeTEST 22
;*THIS TEST PERFORMS A READ OF ALL THE SECTORS OF CYLINDER O
;*8 CHECKS THE FOLLOWING
;*1) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION
;*0F

THE

;%2) IF

FUNCTION

'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 CORRECY WORD.
;+4) IF RKDA INCREMENTED CORRECTLY.
;*5) IF REST OF THE (377) WORDS IN EACH SECTOR ARE '0' , NOTE
J*PREVIOUSLY ONE WORD WAS WRITTEN PER SECTOR.
;*6) IF RKCS STILL CONTAINS THE 'READ' FUNCTION BITS
;*7) IF 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).

MD-11-CZRKKF,

CZRKKF P11

3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339

3340
3341
3342
3343
3344
3345

3346

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
122

010154
010156

000004
012737

010230

010164
010170
010174
010176
010202
010206

013703
013701

001332
001350

010105
012704
005737
001405

010210
010214
010220
010222
010226

052701
052705
000403
(12702

010230

1046413

(05205

001110

1sr2e2:

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

;*HENCE ONLY THE DATA WRITTEN LAST CAN BE READ BACK.
AR

SCOPE
mov

MOV

033342
001344

:
9%
1%:

#13 ,SLPERR

RKCS,R3

DRIVAD,R1
R1,R5

BEQ

#OUTBUF
R4
SIMUL

BIS

n3.m

B8R

BIS

177764

ARl RS20
XS

MOV
MoV
Mov
TST

000013
000020

mov

INC

#20,R5

#-14 ,R2

CNT.RESET

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

SEQ 0062

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

;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

sRKDA SHOULD INCREMENT TO
sTHIS AFTER 1

SECTOR

:GO, DO CONTROL RESET
THIS

IS A CALL

FOR

READ

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
010232

104421

010234
010240
010244
010252

016177
010477
012777
012713

010256
010260
010262
010264
010266

005000
105713
100410

010270
010274
010300

004737
010137

010302

104045

171100
171672
177400
000005

171062

MoV
MOV
MoV

R1,8RKDA
R4, 3RKBA
#-400,3RKWC

CLR

8Ml
INC
BNE

3$
RO
23

MOV

2%:

005200
001374

104416

:0CCURS GO BACK TO TEST 10

TST.SIN

020774
001202

1518

#5,3R3
8R3

JSR
Mov
BRKDA4

PC,GT4RG
R1,$REG10

ERROR

;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
sREAD,GO

:DID CNTRL RDY SET ON COMPETION?
;YES, BRANCH
:NO, WAIT FOR IT TO SET
;1F WAITED LONG ENOUGH, REPORT
;ERROR, OTHERWISE LOOP BAK & WAIT
:G0, GET RKCS, ER, DS,DA
:GET SECTOR ADDRES WHERE ERROR OCCURED
;G0 TO °'BDA4' & BREAK CONTENTS OF

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

3s:

JSR

PC, CHKHEN

ERROR

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

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

MO-11-CZRKKF,

CIRKKF PN

3382
3383
3384
3385
3386
3387
3388
3389
3390
3391
3392
3393
3394
3395
3396
3397
3398
3399
3400
3401
3402
3403
3404
3405
3406
34,07
3408
3409
3410
3411
3412
3413
3414
3415
3416
3417
3418
3419
3420
3421
3422

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

3435
3436
3437

RK11

BASIC

LOGIC

21-FEB-78 08:51

010312

020114

010314
010316
010322
010326
010332

001407
010137
011437
010137

010334

004737

010340

104040

104044

TEST

MACY11
122

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

CmMP

BEQ

001162
001164
001166

021270

5%:

R1, (R&)

MoV
MOV
MOV
ERROR

R1,$REGO
(R4) ,SREGT
R1,$REGZ
44

JSR

PC,CHKDAY

ERROR

SEQ 0063

;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,
:CYLINDER ADRS, SUR, SECTOR ADRS
;GEY EXPCTD DATA WORD FROM D]SK
;GET THE DATA WORD RECVD
sGET DISK ADRES
;DID NOT RECIEVE CORRECT DATA WORD ON
;READ, OF CYLINDER O, SECTOR AS SHOWN IN

;ADRES' OF EXPCTD DATA WORD

'DSK

sCHECK IF RKDA INCREMENTED CORRECTLY,

;IF NOT RETURN HERE.
:RKDA DID NOT INCREMENT CORRECTLY
;AFTER READ OF

WORD,

FROM CYL 0

sSEC IN ERROR IS 1 LESS THAN THAT
;SHOWN IN EXPCTD RKDA
;AS A RESULT OF

'WRT FMT'

IN A PREVIOUS TEST

;FIRST WORD OF EVERY SECTOR IS NON;IERO (PSUEDO-HDR), REST 377 WORDS

;ARE ALL 0°'S.

010354
010362
010364
010366
010370
010374
010376
010400
010404
010410

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

010414

104044

010416
010422

005237
001357

001370

010424
010430

005737
001011

001344

010432

005201

010342
010350

177775

033344
177401

001370

001362

118:

001362

001162
001164
001166

mov

#-3,EFLGY

MoV

#-377,COUNT

MOV

12%:

TST

BNE
TST
INC
BNE
BR

CLR
Mov
mov

8RO

12%
(RO)+
COUNT
11%
78

$REGO
(RO) +,3REGT
R1,SREG2

;ALLOW ONLY 3 ERRORS

¢INITIALIZE PTR TO 2ND WRD IN BUFR

;CHECK 377 WORDS IN THE BUFFER
;1S THIS WRD 07

:NO, ERROR
; INCRANT PTR TO NXT WRD
;CHKD ALL 377 WRDS?
;YES, BRANCH

sGET EXPCTD WORD
;GET WORD RECVD
:gnggASK ADRES, ERROR IN THIS

ERROR

INC

EFLGT

;OATA ERROR, THE LAST 377 WORDS
;READ FROM EACH SECTOR SHOULD BE 0
sIN A PREVIOUS TEST, FIRST WORD OF
SEVERY SEC (CYL 0) WAS WRITTEN AS A
sPSUEDO-HDR, REST OF THE WORDS IN THE
¢SECTR ARE AUTOMATICALLY WRITTEN AS
;0'S. THIS ERROR MAY MEAN THAT [T
:DIDN'T HAPPEN SO
;ALLOW ONLY 3 DATA ERORS OF THIS KIND

TST

SIMUL

;TESTING ON SIMULATOR?

BNE
78:

#OUTBUF +2,RO

sCHECK IF THE REST OF THE 377
;WORDS ARE ALL 0'S

BNE

INC

118

108

:YES BRANCH

;1F NOT TESTING ON SIMULATOR GO AHEAD
; & READ ALL 12 SECTORS ON CYL O
; INCREMENT DRIV-ADRES TO NXT SECTOR

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

3438
3,39
3440
3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3465
3464

3465
3466

3467
3468
3469

010434
010436
010442
010444

001002
062705

010450
010452

005202
001266

010454
010460
010462
010470
010474

022713
001406
012737
011337
104024

010476

104413

010500
010504
010506

005777
001407
013737

010514
010522

005205
122705

017737
104102

TEST 2

MACY11
122

n
S
30A(1052)
21-FEB-78
0B8:58
PAGE 65
CHECK *READ',CYLINDER O, SECTORS 0 10 13

INC
CMPB
BNE
ADD

RS
#14.RS

INC
BNE

R2
18

108:

CMP
BEQ
MOV
MOV
ERROR

#204,3R3
8s
#204 , $REGO
3R3, SREG
24

8s:

CNT.RESET

000014
000004

000204
000204
001164

001162

170636

001342
170622

001162
001164

aRKDB, SREG1
102

3471
3472

TTEST 23
CHECK 'WRITE FORMAT' OF THE DISK
;*THIS TEST WRITE FORMATS THE ENTIRE DISK.

34,87

3488
3489
3490
3491
3492
3493

AN AR N AN R PR AN

NN AR R AR RAAA AR

THE FIRST

;+CONSISTING OF THE DRIVE #, CYLINDER #, SURFACE & SECTOR #.
:#1 SECTOR IS WRITTEN AT A TIME. THE WRITING IS DONE
s¢IN THIS ORDER: CYL O-SUR O:; CYL 0-SUR 1;
CYL 1-SUR 0
;¢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
:«THE FIRST TIME EACH & EVERY SECTOR ON THE DISK IS

34,80

3485
3486

:*WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER

3474
3475
3476
3477
3478
3479
3,81
3482
3483
3484

: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 ERR & IF IT
:0CCURS GO BACK TO TEST 10
:0ID CNTRL RESET CLEAR RKDB?
YES, EXIT
:GET ADRES OF RKDB
;GET CONTENTS OF RKDB
:CONTROL RESET DID NOI
:CLEAR RKDB

3470

3473

:1F NOT, BRANCH
:1F YES, INCREMENT *EXPCTD RKDA'
:CORRECTLY
:HAVE U READ ALL 12 SECTORS?
:1F NOT LOOP BACK £ READ THE
INXT SECTOR
:DOES RKCS, STILL HAVE THE 'READ' FUNCTION
:YES, BRANCH
:GET EXPCTD RKCS
1GET RKCS RECVD
:RKCS SHOULD STILL CONTAIN THE 'READ’
:FUNCTION BITS

aRKDB
TST23
RKDB , SREGO

MOV
ERROR

; INCREMENT 'EXPCTD DRIV-ADRES'
iR U GOING TO READ THE LAST SECTOR?

.+6
#4,RS

ST
BEQ
MOV

SEQ 0064

:+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
:*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.

2¢1. CNTRL ROY 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,
s*SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END

MO-11-CZRKKF,
CZRKKF PN

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

3522

3523
3524
3525
3526
3527
3528
3529
3530
3551

3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3543
3544
3545
3546
3547
3548
3549

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
123

30A(1052)
21-FEB-78
CHECK 'WRITE FORMAT'

08:58
OF

PAGE 66

THE DISK

SEQ 0065

;*0F THIS POINTERS ARE INCREMENTED ADJUSTED, ETC.
;*8 'WRT FMT'
MAAAARALR 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:

#1,811IMES
#1138 ,SLPERR

CLR

MOV
MoV

1$:

ON THE NEXT SECTOR IS DONE.

SCOPE
MoV
Mov

MOV

177465
177764
001350

AAARA

#-313,R4

#-14 ,R2
DRIVAD,R1

mov
R1,R5
INC
RS
T
CNT.RESE

ARl

iRttt

;:00 1 ITERATION
;SET 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
:SET UP COUNT FOR 12 SECTORS
;GET DRIVE ADRES
IT

;STORE

:6GO, 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
sTHE

010566

104421

010570
010574

005037
010137

001362
033342

010600
010606

033342

010614

012777
012777
010177

010620

012777

002003

010626
010632
010634
010640

105777
100411
005237
001372

170500

010642
010646
010652

004737
010137

010654

104031

104416

177777
170520

IN ERROR MESSAGE

THE

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

TST.SIN

7%:

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

CLR
MoV

COUNT
R1,0UTBUF

170530
170520

MOV
mov

#OUTBUF ,aRKBA
#-1,3RKWC

170504

Mov

#2003 ,aRKCS

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
;ADRES THE DRIVE, WITH CORRECT (YL
;% SECTOR ADRES
;WRITE FORMAT, GO
,

TS18

aRK(S

:DID CNTRL RDY SET

mov

2%:

001362

020774
00120¢

BM1
INC
BNE

R1,3RKDA

3s
COUNT
2%

JSR
Mov
BRKDA4

PC,GT4RG
R1,$REG10

ERROR

:YES,

BRANCH

NO, HAVE U WAITED LONG ENOUGH?

:1F 'NOT, LOOP BACK & WAIT
:1F YES, REPORT ERROR

:6G0, 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>

:WRT FMT WAS DONE STARTING AT <DSK-ADRES>

010656
010664
010666
010672
010676

032777
001405
004737
010137
104001

001000

021002
001170

170442

38:

BIT

BEQ

JSR
MOV
ERROR

#1000,3RKDS

:INDICATED IN EROR MSGE.
:DID SIN BIT SET?

PC.GT3RG
R1,$REG3
1

GO, GET RKCS, ER, DS
:GET, DISK-ADRES WHERE ERROR OCCURED
:SIN SET WHILE DOING WRT FMT

:NO, BRANCH

MD-11-CZRKKF,

CIZRKKF P11

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11

123

B
6
21-FEw-78
08:58

30A(1052)

gg;?

3552
3553
3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573

;70 DISK-ADRES

010700

004737

010704

104032

010706

004737

010712

104033

010714
010716
010720

005201
005205
022702

010724
010726
010732

001002
062705
005202

3574
3575
3576

010734

001313

010736

012702

3579
3580
3581
3582
3583
3584
3585
3586
3587
3588

010750
010752
010754
010760
010762
010764
010766
010772
010774
010776

001006
005203
062701
010105
005205
000677
062701
010105
005205
005003

3577
3578

358y
3590
3591
3592
3593
3594

PAGE 67

CHECK ‘URITE FORMAT' OF THE DISK

010742
010746

011000
011002

042701
005703

005204
001270

021226

02127

4s:

58:

6$:
177776

000004

177764

000037

PC,CHKHET

ERROR

JSR

PC,CHKDAY

ERROR

INC
INC
cmp

R1
RS
#-2,R2

BNE
ADD
INC

.6
#4 RS
R2

BNE

Mov

#-14 R2

BNE
INC
ADD
Mov
INC
BR
ADD
MOV
INC
CLR

8$
R3
#20,R1
R1,R5
RS
1%
#40,R1
R1.RS
RS
R3

BIC
TST

000020

000040

JSR

8$:

INC
BNE

#37,.R1
R3

R&
1%

SEQ 0066
(AS

IN SREG3)

;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 STARTING AT <DSK~ADRES>
;INDICATED IN EROR MSGE.
;CHECK IF RKDA INCREMENTED CORRECTLY,
;1F NOT, RETURN HERE.
sRKDA DID NOT INCREMENT CORRECTLY
JAFTER 'WRITE FORMAT' WAS DONE
;70 THE SECTOR PREVIOUS TO THAT
INDICATED IN 'EXPCTD' RKDA
;INCREMENT TO THE NXT SECTOR
: INCREMENT RS, TO WHAT RKDA WILL INCREMENT
R U GOING TO FORMAT THE LAST SECTOR
sIN THE CYLINDER ?
:1F NOT, BRANCH
: INCREMENT R5 CORRECTLY TO 'EXPCTD RKDA’
;HAVE U FORMATTED ALL 12 SECTORS
sON THIS CYLINDER
:1F NOT, LOOP BACK & FORMAT THE

;NEXT SECTOR
s YES
sRESET THE COUNT FOR 12 SECTORS
;CLEAR THE SEC ADRES BITS
;SURFACE 1?
;YES, BRANCH
;NO, SET FLAG
s INCREMENT TO THE NXT SURFACE
¢THIS IS WHAT RKDA SHOULD
; INCREMENT TO.
;60, DO NXT SURFACE
; INCREMENT TO NXT CYL
;POSITION FOR
JEXPCTD RKDA

;HAVE U FORMATTED ALL 203 CYLINDERS
;IF NOT, LOOP BACK & FORMAT THE
SNEXT CYLINDER

3595

AR AR AR AR AR R e

3596
3597
3598
3599
3600
3601
3602
3603
3604
3605

S*TEST 24
CHECK 'READ FORMAT' FOR THE ENTIRE DISK
s*THIS TEST READ FORMATS THE ENTRE DISK, WHICH WAS WRT
s*FORMATTED IN THE PREVIOUS TEST.
THE FOLLOWING CHECKING
;*1S DONE
;1. CNTRL RDY SETS WI.HIN A CERTAIN TIME ON COMPLETION
;*0F FUNCTION
s*2. IF *SIN' OCCURRED?
;*3. IF 'HE' OR 'ERR' OCCURRED?
;4. RKDA INCREMENTED CORRECTLY.
;*5. IF THE CORRECT HEADER WAS READ.

it ittt

it iiiilitiaiaiaisiiisisssslss!

MD-11-CZRKKF,

CZRKKF P11

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

3634
3635

3636
3637
3638
3639
3640
3641
3642
3643
3644
3645

RK11

BASIC

LOGIC

21-FEB-78 08:51

011004
011006
011014

000004
012737
012737

000061
011100

011022

005037

001356

011026
011032
011034

013701
010102
005737

001350

011040
011042

001410
052701

TEST

001206
001110

001344

014533

011046

052702

014540

011052

012737

177777

001370

011060
011062
011066

000407
012705
012737

177465
177764

001370

011074

062702

000020

011100

104413

MACY11

124

30A(1052)

CHECK

21-FEB-78

"READ FORMAT®

08:58

PAGE

FOR THE ENTIRE DISK

;6. IF RKWC OVERFLOWED CORRECTLY.
:*12 SECTORS (1 CYLINDER) ARE READ AT A TIME. IF 'SIN’
;*OCCURS A DRIVE RESEY IS DONE BEFORE READING THE NEXT
;*SECTOR.
READING IS DONE IN THIS ORDER CYL 0-SUR 0;
;*CYL 0-SUR 1; CYL 1-SUR 0; CYL 1-SUR 1; CYL 2-SUR 0;
;eCYL 2-SUR 1;===== CYL 312-SUR 1. If TESTING ON SIMULATOR, ONLY
;*THE LAST CYLINDER (312), LASY SECTOR (13), SURFACE 1 IS READ.
'-:'tttttt'ti"tt"'t!tttt'tt'ttttttt'tttt'tttt't'tttttttttttt'n't
TST24:
SCOPE
MOV
#1,8TIMES
;;00 1 ITERATION
MoV
#18,SLPERR
:SET RETURN ADRES FOR LUPING
;ON
ERROR (SW 9)
CLR
INDX1
;:INDX1=0, SURFACE 0 BEING READ
;INDX1=1, SURFACE 1 BEING READ
mov
DRIVAD,R1
;GET DRIVE ADRES
MOV
R1,R2
TST
SImuL
;TESTING ON SIMULATOR?
BEQ
128
;NO, BRANCH
8IS
#14533,R1
;SET BITS FOR CYL 312, SEC 13, SUR 1
;ON SIMULATOR, CHECK ONLY CYL 312,
;SECTOR 13, SURFACE 1
BIS
#14540,R2
;RKDA SHOULD INCRMNT TO THIS AFTR
:RD FMT OF 1 SECTOR
MoV
#-1,EFLGT
;SET COUNT FOR READING HDR
;FROM 1 SECTOR ONLY
BR
1%
12%:
MoV
#-313,RS
;SET UP COUNT FOR 203 CYLINDERS
mov
#-14 ,EFLGY
;SET COUNT FOR 12 HDRS TO BE

ADD
1$:

#20,R2

CNT.RESET

ggzg

;READ FROM EACH CYLINDER
;THIS IS WHAT RKDA SHOULD INCREMENT

;BY, AFTER 'RD FMT' OF EACH CYLINDER
;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 IT

;0CCURS GO BACK TO TEST 10

3648

011102

1064421

3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661

011104
011110
011114

012703
005037
010377

033342
001360
170216

011120

013777

001370

011126

010177

170206

011132

012777

002005

gggg

TST.SIN

118:
170206

170172

;CHECK IF SIN IS SET

;1F SET DO DRV-RESET TO CLR IT

MoV
CLR
MOV

#OUTBUF ,R3
INDX2
R3,3RKBA

MoV

EFLG1, RKWC

MOV

R1,3RKDA

MoV

#2005,8RKCS

;STORE ADRES OF BUFFER
;ADRES TO WHICH DATA [S TO BE X-FERRED
;FROM THE DISK
;SET UP WORD COUNT FOR 12 HEADERS
;70 BE READ OFF EACH CYLINDER
:(ONLY 1 FOR SIMULATOR)
;ADRES THE DRIVE WITH CORRECT
:CYLINDER & SECTOR ADRES
:READ FORMAT, GO

SEQ 0067

MD-11-CZRKKF,

CZRKKF P11

3662
3663

3666

3665
3666
3667
3668
3669
3670
36N
3672
3673
3674
3675

011140
011144

RK11

BASIC

LOGIC

21-FEB-78 08:51

105777
1004M

TEST

170166

2s:

IS8
L

SRKCS
3%

;DID CNTRY1 RDY SET?
;YES, BRANCH

BNE

JSR
MoV

PC,GT4RG
R1,8REG10

;1F NOT, LOOP BACK & WAIT FOR IT
:1F YES, REPORT ERROR
;GO, GET RKCS, ER, DS,DA
;GET DRIV=-ADRES STARTING WHICH
;'READ FORMAT' WAS DONE
:GO TO "'BDA4' & BREAK
(CONTENTS Of
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;CNTRL RDY DID NOT SET AFTER
;READ FORMAT. °'RKDA' IN EROR MSGE
;GIVES THE CONTENTS OF RKDA AT THE
; TIME OF ERROR.

124

CHECK

005237

001360

011154
011160

004737
010137

020774
001202

011164

104416

BRKDA4

011166

1046045

ERROR

001372

INC

21-FEB-78

30A(1052)

011146
011152

MACY11

'READ FORMAT'

INDX?2

3676

3682

3683
3684

gggg

3687
3688
3689
3690
3691
3692
3693
3694
3695
3696
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711

3712
3713
3714
3715
3716
3717

PAGE

FOR THE ENTIRE DISK

sNO, HAVE U WAITED LONG ENOUGH?

sREAD FMT WAS DONE STARTING AT <DSK-ADRES>

gg;g
3679
3680
3681

08:58

;INDICATED IN EROR MSGE.

011170
011176
011200

032777
001405
004737

011210

104001

011212

004737

011216

104046

011220
011224

020277
001410

011204

010137

001000
021002

48:

170114

001202

011234
011242

017737
1064416

170700

011244

104040

011246

013700

011252
011254
011260
011262
011264
011270
011274
011300

010104
042704
020413
001412
010437
011337
010037
062737

011306

104043

5%:

#1000,aRKDS
4%
PC.GT3RG

;DID *SIN' SET?
;NO, BRANCH
;60, GET RK(CS, ER, DS

ERROR

;OCCURED
;SIN ERROR ON DOING RD FMT

JSR

PC,CHKHEY

ERROR

CMpP
BEQ

R2,3RKDA
63

MoV

BRKDAO
001202

001370

6$:

160037

001164
001166
001162
000014

BIT
BEQ
JSR

MoV

021226

010237
104415

3%:

001170

011226
011232

170130

7$:

001162

R1,.SREG3

R2,$SREG10

MoV
BRKDAS

SRKDA,SREG10

ERROR

Mov

EFLGT,RO

mov
8IC
CMP
BEQ
Mov
mov
Mov
ADD

R1,R4
#160037 R4
R4, (R3)
83
R4 ,SREG1
(R3),$REG2
RO,SREGO
#14,3REGO

ERROR

sGET DISK-ADRES WHERE 'SIN'

;TO CYL INDICATED IN SREG3
;CHECK IF "ERR' OR 'HE' BIT IS SET,
;1F YES, RETURN HERE.
sHE 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

:GET EXPCTD RKDA

;GO TO "BDAO' & BREAK
(ONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;GET RECVD RDKA
;G0 TO 'BDA4' & BREAK
CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS
;RKDA DID NOT INCREMENT BY 12 SECTORS
sAFTER RD FMT WAS DONE. ADRES
;OF CYLINDER IN ERROR CAN BE OBTAINED

;FROM 'EXPCTD' RDDA
;SET UP COUNT FOR 12 HEADERS TO B CHKD
;(ONLY 1, IF SIMULATOR)
:GET DRIV-ADRES FROM WHERE RDFMT WAS DONE
sGET 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
3771
3772
3773

RK11

BASIC

LOGIC

21-tEB-78 08:51

TEST

MACY11
124

E
6
21-FEB-78
08:58
PAGE 70
'READ FORMAT' FOR THE ENTIRE DISK

30A(1052)

CHECK

;WORD FROM

011310

005723

011312
011314

005200
001361

011316

004737

011322

104041

011324
011330

005737
001031

001344

011332

005737
001011
005237
062701
010102

001356

8%:

021316

011336
011340
011344
011350
011352

062702

000020

011356
011362
011366
011372
011376
011400
011404
011406
011410

000137
005037
042701
062701
010102
062702
005205
001402
000137

011100
001356
000037
000040

98:

011100

(R3)+

INC
BNE

RO
7%

JSR

PC,CHKWC

tERROR

TST

SInmuL
TST125

BNE

INDICATED

s INCREMENT POINTER TO THE NXT WORD

;IN MEMORY WHERE THE RECVD HDR IS STORED
;HAVE U CHECKED ALL 12 HEADERS?
;1F NOT, LOOP BACK & CHK THE NXT.

;YES, ALL HEADERS FOR THIS CYLINDER
s CHECKED.
JCHECK

RKWC

OVERFLOWED

TO O,

;NOT RETURN HERE.
;RKWC DID NOT OVERFLOW AFTER DOING

;ROFMT OF 12 SECTORS ON THE CYLINDER
;NOTE THAT °*RKDA’ IS THE INCREMENTED
;RKDA AFTER THE RDFMT
;TSTING ON SIMULATOR?
:;éf YES, EXIT

BNE
INC

;N
;D0ING SURFACE 1
;YES, BRANCH
;NO
s INCREMENT DRIV ADRES TO THE NXT SURFACE

ADD

#20,R2

JTHIS

JMP
CLR
BIC
ADD
mov
ADD
INC
BEQ
JMP

ADD
Mov

10%:

°'SECTOR'

;(NOTE SECTOR # IS OCTAL)

INDX1
108
INDX1
:%0651

1587

001356
000020

000020

1sY

SEC 0069

:T0,

IS WHAT RKDA SHOULD
AFTER READ FMT OF

THE

;GO RD FMT THE NXT SURFACE

INDX1
#37.R1
#40,R1
R1,R2
#20,R2
RS

:
;CLR SEC, SURFACE BITS

;IF NOT,

TST125

INCREMENT
CYLINDER

s INCRERMENT TO NXT CYL

sTHIS 1S WHAT RKDA SHOULD BE
JAFTER RD FMT OF CYLINDER
sHAVE U DONE ALL CYLINDERS?

JEXIT
;THE

NXT

LOOP BACK & READ FMT FROM
CYLINDER

:;l"t'iti"'iQ"""li’"".ti*"""'i"'i"tit!'tttttttlttttitt'

;*TEST 25

CHECK °READ' OF THE ENTIRE DISK
stREAD OF THE ENTIRE DISK (ONE WORD PER SECTOR) IS DONE
s*IN THIS TEST.
IN A PREVIOUS TEST THE FIRST WORD OF
;*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, SEC#) 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 O SUR 1 => SEC 0-11 CYL 1,....

MD-11-CZRKKF,

CZRKKF.P11

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

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

RK11

BASIC

LOGIC

21-FEB-78 08:51

011414
011416
011424

000004
012737
012737

011432
011436

012703
005004

033342

011440
011444
011450
011452
011456
011460
011464

013701
005737
001403
052701
000404
012700
012705

001350
001344

011470

104413

011472

104421

001206
001110

014533
177764
177465

MACY11

125

F
6
21-FEB-78
0B8:58

30A(1052)

CHECK

'READ'

CNT.RESET

TST.SIN

010377

005037

001356

0115064
011512

012777
010177

177777
167622

011516

012777

000005

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

011524
(11530
011532
011536

105777
100411
005237
001372

167602

011540
011544
011550

004737
010137
104416

011552

104045

3827
3828
3829

011554
011562
011564

032777
001405
004737

8s-

167632

INDXY

R3,aRKBA

167622

MOV
MoV

#-1,3RKWC
R1,3RKDA

167606

MOV

#5,3RKCS

TSTB
BMI
INC
BNE

RKCS
3s
INDX1
2%

JSR
MoV
BRKDA4

PC,GT4RG
R1,$REG10

ERROR

BIT
BEQ
JSR

#1000,aRKDS
43
PC.GT3RG

2s:

020774
001202

021002

CLR

MoV

001356

001000

167544

PAGE

THE ENTIRE DISK

;«IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312), LAST
;*SECTOR (13), SURFACE 1 IS READ.
";tt'ttt'tttttttt'ttt"t't't"ttt"tt'tttttttttttttt'tlt'tttttttt
1ST25:
SCOPE
MoV
#1,8TIMES
::D00 1 ITERATION
MOV
#18,SLPERR
;SET RETURN ADRES FOR
:LOOPING ON ERROR (SW9)
MOV
#OUTBUF ,R3
CLR
R4
;FLAG, CLEAR WHEN READING SURFACE 0
;SET WHEN READING SURFACE 1
MOV
DRIVAD,R1
;GFT DRIVE ADDRESS
TST
SIMUL
;TSTING ON SIMULATOR?
BEQ
108
;1F NOT BRANCH
BIS
#14533,R1
;SET ADRES BITS FOR LAST CYL (312)
BR
18
;LAST SECTOR (13), SURFACE 1
108:
MoV
#-14 RO
;SET COUNT FOR 12 SECTORS
Mov
#-313,RS
;SET UP COUNT FOR 203 CYLINDERS

1%:

011500

011474

000001
011470

TEST

3%:

: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 1S A VERY BASIC ERR & IF IT
;OCCURS 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 Of
;SREG10 INTOC 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

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

SEQ 0070

MD~11-CZRKKF,

CZRKKF P11

LOGIC

21-FEB-78 08:51
010137

001170

011576

004737

021226

011602

104046

104001

TEST

MACY11
125

CHECK

Mov

?1.$REG3

JSR

PC,CHKHE1

ERROR

A ¥

21-FEB-78
(8:58
PAGE 72
'READ' OF THE ENTIRE DISK

30A(1052)

011604
011606
011610
011614
011620
011624

020113
001407
010137

011337
010137
104044

5%:
001162
001164
001166

CMP
BEQ

mov
mov
mov

ERROR

R1,(R3)
6%
R1,$REGO
(R3),$REGT
R1,$REG2
44

SEQ 0071

JGET DISK-ADRES WHERE SIN OCCURED3
;'SIN' ERROR ON DOING READ FROM
sDISK-ADRES INDICATED IN SREG3
JCHECK IF 'ERR' OR 'HE' BIT IS SET,
s1IF YES, RETURN HERE.

;"HE' OR 'ERR' ON DOING A READ OF
;1 WORD FROM ADRES AS INDICATED
;IN <DISK=-ADRES>

;'RKDA'

IN EROR MSGE GIVES THE

;CONTENTS OF RKDA AT THE TIME OF EROR
;WAS THE CORRECT DATA WORD RECVD?

;GEY EXPCTD DATA WORD
;GET DATA WORD RECVD
;GET DISK~ADRES
:0ID NOT RECIEVE THE CORRE(CT
:DATA WORD FROM DISK ON DOING
;1 WORD READ FROM ‘'DISK-ADRES’

;AS INDICATED BY 'EXPCTD' DATA WORD

011626
011632
011634
011640
011646

020177
001406
010137
017737
104037

6%:

167510

001162
167476

CMpP
8EQ

MoV
Mov

001164

ERROR

R1,aRKDB
7$
R1,8REGO
aRKDB, SREG1

;NOTE THAT IN A PREVIOUS TEST THE
;FIRST WORD OF EACH SECTOR IS UNIQUELY
sWRITTEN WITH A WORD GIVING THE
;ABSOLUTE ADDRESS OF THAT SECTOR IN
;TERMS OF, DRIV #, CYL ADRES, SUR, SEC ADRS.
;DOES RKDB CONTAIN CORRECT WORD
;YES, BRANCH
:NO, GET EXPCTD RKDB
:GET RKDB RECVD
;RKOB ERROR ON READ.
;FOR RK11C,
:ggNgAINS

011650
011654
011656
011660
011662

005737
001022
005201
005200
001302

011664

012700
042701
005704
001004
005204
062701
000670
005004
062701
005205
001263

011670

SNNNN
N =
b wd

b
b

—

011674
011676
011700
011702
011706

3879
3880
3881
3882
3883
3884
3885

BASIC

011570
011574

OOO0O

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

RK11

001344

7%:

177764

000037

000020
000040

9s:

1ST

BNE
INC
INC
BNE
MoV
BIC
T§7
BNE
INC
ADD
BR
CLR
ADD
INC

BNE

AFTER A READ RKDB

CHECKSUM FOR THE

SECTOR

JREAD.
;WHEREAS FOR RK11D, AFTER READ
;RKDB CONTAINS THE LAST WORD
sREAD FROM THAT SECTOR &
;X=FERRED TO MEMORY

;TESTING ON SIMULATOR?
1F YES, EXIT
;.
TO ADRES NEXT SECTOR
;INCREMENT
;HAVE U CHKD ALL 12 SECTORS?
;1F NOT, LUP BAK & CHK THE NXT
;1F YES...

sRESET THE COUNT FOR 12 SECTORS

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

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

; INCREMENT TO NXT CYL
sHAVE U CHKD ALL 203 CYLINDERS

:IE NOT, LOOP BACK & CHK THE NXT CYLINDER
s

YES

MD-11-CZRKKF
,

CZRKKF .11

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

MACY11

126

'TEST

H
6
21-FEB-78
08:58

30A(1052)

CHECK

26
;*

'SEEK'

AR AR

PAGE

FUNCTION, WITH DIFFERRENT VELOCITY MODES

AR A

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 SEEXK 1S DONE BOTH

;v IN FWD AND REV DIRECYION TO CHECK THE ADDER & DIFFERENCE LOGIC.

;* WHILE DOING A SEEK °'SIN' OCCURS, A DRIVE RESET IS DONE TO INITIALIZE
;¢

THE

POSITIONING LOGIC

» 'tt"tttt"'"'Q'Q"""t""it'tttt"".tt'ttt.tt't"t!tt."t'

011722
011724
011732

012737
012703

0000G5
001372

011736

005037

011742
011746
011752
011756

013700
013701
013702
012737

011764
011766

000240

000004

T5T26:

SCOPE
MOV
MOV

#5,8TIMES
#SEEKO,R3

001356

CLR

INDX1

001332
001326
001330
011764

MOV

RKCS,RO

MOV

#1$,SLPERR

104413

001206

MOV
MOV

001110

RKDS,R1
RKER,RZ2

1%:

NOP

2%:

CNT . RESET

;00 S ITERATIONS
JINITIALIZE POINTER

TO THE

FIRST

JSEEK ADDRESS
JINDX1, WHEN O INDICATES SEEK IN FWD DIRECTION
;

WHEN 1

]? .CATES

SEEK

IN REV DIRECTION

JSET RETURN ADRES FOR LUPING ON

;EROR (SW 9)

.60, DO CONTROL RESET
;THIS

IS A

CALL

FOR

THE

°CNTRL-

JRESET' ROUTINE. A CONTROL RESET IS
;1SSUED AND AFTER A CERTAIN TIME
JIF THE °CNTRL RDY' DOES NOT SET

;AN ERROR 1S REPORTED. NOTE THAT

sTHE PC IN ERROR MESSAGE IS THE
;PC WHERE °'CNT.RESET'® IS LOCATED.
sTHIS IS A VERY BASIC ERR & IF IT7

;OCCURS GO BACK TO TEST 10

011770

1044621

011772
011776
012000
012004

013704

001350

MoV

DRIVAD,R4

;GET DRIV~-ADRES

010477
012710

167334
000011

MOV
MOV

R4 ,8RKDA
#11,8R0

JADDRS THE DRIVE
;SET *SEEK', 'GO’

012010

104412

CHKCRDY

012012

104021

ERROR

051304

TST.SIN

BIS

:GO.

CHECK

(R3),R4

012030
012034

005005
032711
001005
005205
001373
004737
104026

012036
012042
012044

032711
001403
004737

goo100

43:

020774

SET,

;GO CHECK

CONTROL RDY

SHLD HAVE

IS SET

COME BACK

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

6$%:

BIT

#1000,ar1

;COMPLETION OF SEEK
;DI0 SIN SET?

JSR

PC,.GT4RG

;60, GET RKCS, ER, DS, DA

SET

;THEREUPON SETTING °*CNTRL RDY'

BIT
BNE
INC
BNE
JSR
ERROR

BEQ

;1F SO, SKIP THE EROR MESSAGE.
:"CNTRL RDY® DID NOT SET AFTER
;SENDING CYL ADD TO THE DRIV, ‘ADD ACK'

5%:

020774
001000

CLR

JSET CYLINDER BITS

sFROM DRIVE

012014
012016
012022
012024
012026

SIN

;D0 DRV-RESET TO CLEAR IT

;DID R/W/S RDY SET?
JYES, BRANCH
;NO, WALT
;WAITED LONG?
;G0, GET RKCS, ER, DS, DA
JR/W/S RDY DID NOT SET ON

JNO, BRANCH

MD-11-CZRKKF,

CIRKKF P

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

3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981

3982
3T
2984
5085

3987
3988
3989
3990
3991
3992
3993
3994
3995
3996

3997

012050
012052
012056
012060
012064

RK11

BASIC

LOGIC

21-FEB-78 08:51
104001

032710
001403
004737
104022

TEST

140000

MACY11
126

30A(1052)
21-FEB-78
08:58
PAGE 74
CHECK "SEEK' FUNCTION, WITH DITFERRENT VELOCITY MODES

7%:

BIY

#140000.3R0

ERROR

020774

ERROR

8EQ
JSR

sSIN SET ON DOING SEEK

8s
PC.GT4RG

s YES
;GO, GET RK(CS, ER, DS,

;DID

'HE'

'ERR'

SEQ 0073

SET?

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

: IN RKDA

022710
001406
011037
012737

012110
012114
012116
012122
012130

020477
001406
010437
017737
104027

012132
012136
012144
012152
012156
012160
012164
012166
012172
012176
012204

010477
012777
012777
012710
1046414
021337
001410
005037
011337
013737
104043

167202
033342

012206
012212
012214
012216
912222
012224
012230

005737
001007
005723
022703
001260
005237
005743
005743
022703
001251

001356

012232

012234
012240

104024

8s:

000210

012066
012072
012074
012100
012106

001164
000210

001162

167224

001162
167212

177777

002005

001164

167172
167162

033342

108:

#210,3REGO
24

;DID RKDA

sNC
JYES, GET EXPCTD?

ERROR

sRKDA CHANGED AFTER DOING SEEK

mMov
mMov

#RKDA,$REG1

R4 ,@8RKDA
#OUTBUF ,@RKBA

(R3),S$REGY

TST

BNE

SRR

:GET RKDA

sADRES THE DRIVE,SEC 0
;READ ONE HEADER INTO THIS

;BUS ADRES
;GO,READ FORMAT
;WALIT FOR CNTRL RDY
;WAS THE CORRECT READE4R READ (FROM
;CYLINDER TO WHICH SEEK WAS DONE BEFORE)
;STORE SEC # FROME
WHERE HDR WAS RD (0)

;GET EXPCTD HEADER

;GET HDR RECVD

INDX

:SEEX

12%

;WRONG HDR WAS RECVD FROM CYLINDER (ADRES
;IN ER MSGE). NOTE THAT A PURE SEEK WAS
READING HDR
;DONE TO THIS CYL BEFORE
JUSING READ FORMAT
IN REVRSE DIRECTION?

;YES, BRANCH

TSt
cmMp

(R3) ¢+
#SEEK2+2,R3
1%
1?g§;

:NC, GO & DO NXT ONE
sSET FLAG INDICATING SK IN REVRSE

ST
CMP
BNE

-(R3)
#SEEKO-2,R3
1%

;POSITION PTR TO NXT SK
;DONE WITH ALL?
;IF NOT, DO NXT ONE

BNE
%gg
128:

CHANGE?

OUTBUF ,$REGZ

FNCTION

°'SEEK' BITS

108
R4, SREGO

ERROR

001356

;1F NOT, ERROK

R4 ,3RKDA

Mov

118:

JGET EXPCTD RKCS
JRKCS SHOULD CONTAIN THE

"SEEK'

CMP

MOV

001166

;DOES RKCS STILL CONTAIN THE
JYES - EXIT
;NO, GET RKCS RECVD

BEQ
MoV

MoV
#-1,3RKWC
mov
#2005,8R0
CNT.RDY
CMP
(R3),0UTBUF
BEQ
118
CLR
$REGO

001400

001370

#210,3R0
9%
R0, SREGT

MoV

033342

001162
001164

CMP
BEQ
MoV
mov
ERROR

;NO, INCREMENT PTR TO NXT SEEK ADRES
;DONE WITH ALL SKS IN FWD DIR?

IN REV

NN RPN R NP EREERERRRARRRARNERRARRARRARRENOIRERY

;*TEST 27
CHECK DRIVE RESET FROM LAST CYLINDER
;*THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING
;*AN IMPLIED SEEK-READ).
THEN A DRIVE RESET IS ISSUED.

;*IT'S CHECKED IF THE HEADS WERE BROUGHT BACK TO 0 BY

;*DOING A 1 WORD READ & CHECKING THAT THE CORRECT WORD
;*WAS RECEIVED. IF TESTING ON SIMULATOR THIS TEST IS SKIPPED.

;;tttt'tttt"tt'!it’t'tttt'i'tttti'f"Q'ttitlli'tt'il"l'*l"'!tt

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

4044

005000
012703
013704
010405
052705
010577
012777
010377

012324

012711

012330
012332

005000

001206

187127:

SCOPE
MOV

#5,8TIMES

BNE
mMov

15130
RKCS.RY

18T

001232

STMUL

CNT.RESET

CLR

033342
001350

Mov
MOV
MoV

014500

167026
177777
167012

4050

4051
4052
4053

;:00 5 ITERATIONS

JR U ON A SIMULATOR?
JYES,

EXIT

;GO, DO CONTROL RESET
;THIS IS A CALL FOR THE ‘CNThLSRESET® ROUTINE. A CONTROL RESET [S
;ISSUED AND AFTER A CERTAIN TIME
;IF

THE

;THE

'CNTRL RDY'

DOES NOT SET

IN ERROR MESSAGE

000005

104414

1$:

'CNT.RESET'

THE

IS LOCATED.

;TH1S IS A VERY BASIC ERR & IF IT
;OCCURS GO BACK TO TEST 10
;ADRES WHERE DATA WILL BE READ INTO

MoV
MoV

#OUTBUF ,R3
DRIVAD,R4
R4 ,R5
#14500,R5
RS ,@RKDA
#-1,3RKWC
R3,3RKBA

MOV

#5,3R1

;READ, GO

CLR

BIS
Mov

167014

CNT.RDY

JSET CYL ADRES=312 (OCTAL)

;ADRES THE DRIVE, LAST CYLINDER

;READ 1

WORD

;INTO THIS MEMORY ADRES

;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

JMESSAGE IS GIVEN. WAITING TIME

012334
012336
012340
012344
012350
012354

020513
001407
010537
011337
010537
104044

012711

104414

2%:

001162
001164
001166

cmP
BEaQ

MoV
mov
MoV
ERROR

000015

3%:

R5,3R3
3s

RS5,$REGO
aR3,SREGY
R5,$REG2
44

MoV
#15,aR1
CNT.RDY

4045

4046
4047
4048
4049

SEC 0074

;CNTRL RDY DOESN'T SET AN ERROR

4043

012266
012270
012274
012300
012302
012306
012312
012320

4040
4041
4042

000005
001344

J
6
30A(1052)
21-FEB-78
08:58
PAGE 75
CHECK DRIVE RESET FROM LAST CYLINDER

;PC WHERE

4034
4035
4036
4037
4038
4039

000004
012737
005737
001124
013701
104413

MACY11
127

;AN ERROR 1S REPORTED. NOTE THAT

4006
4007
4008
4009
4010
40N
4012
4013
6014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
6027
4028
4029
4030
4031
4032
4033

4000
4001
4002
4003
4004
4005

012242
012244
012252
012256
012260
012264

3998
3999

TEST 2

005000
032777
001011

012702

000100

177763

166732

4$:

CLR
BIT
BNE
mMov

RO
#100,3RKDS
5%
#-15,R2

;883 MS FOR 11/20, 175 MS FOR 11/45
;WAS THE CORRECT WORD READ?

;YES, SEEK TO 312 WAS DONE CORRECTLYS.a

;GEY EXPCTD WORD
;GET WORD RECVD
;GET DSK-ADRES FROM WHERE WORD WAS READ
;DID NOT READ BACK CORRECT WORD FROM
;LAST CYL, SEC 0. IF TEST 45 & 46
;WERE SUCCESSFULLY DONE THIS
;ERROR MEANS THAT IMPLIED SEEK
;70 CYL 312 COULD NOT B DONE

;DRIVE RESET, GO
JTHIS IS A CALL FOR CN.RDY ROUTINE
;WHICH WAITS FOR CNTRL RDY TO SET.
;A RETURN 1S MADE AFTER CNTRL RDY
;SETS. IF WITHIN A CERTAIN TIME
;CNTRL RDY DOESN'T SET AN ERROR
sJMESSAGE IS GIVEN. WAITING TIME

;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

MD-11-CZRKKF,
CZRKKF PN

4054
4055
4056
4057
4058
4059
4060
4061
6062
4063
4064

4065

6066
4067
4063
4069
4070

407N
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
0B:58
PAGE 76
CHECK DRIVE RESET FROM LAST CYLINDER

INC
BNE

R
.~2

SEQ 0075

:8 DO NOT NEED SUCH A LARGE MACHINE
;TIME LOOP, CHANGE THESE 3

;INSTRUCTIONS TO 'NOP'

THE

;LOOP TIME WILL BE REDUCED

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

140000

012426
012432

004737

020774

012434
012436
012442
012444
012450
012456

005205
020577
001406

166676

012460
012466
012472

104026

001403

104022

010537
017737
104054

001162

5%:

166664

001164

012777
010377
010477

177777
166644
166642

166646

012476

012711

000005

012502
012504

005000

JSR
ERROR

PC.GT4RG
26

BIT
BEQ

#140000,aR1
63

;GET RKCS,ER,DS,DA
;R/W/S RDY DID NOT SET AFTER
;DOING DRIVE RESET
:DID HE OR ERR BIT SET?
;1F NOT, BRANCH

JSR

PC.GT4RG

;GET RKCS,ER,DS,DA FOR ERROR MESSAGE

INC

;HE OR ERR BIT SET ON DOING DRIVE
;RESET FROM LAST CYLINDER
;POSITION RS TO EXPCTD RKDA

BEQ
MOV
MoV

78
RS ,SREGO
aRKDA, SREGT

;NO, BRANCH
;GET EXPCTD RKDA
;GET RKDA RECVD

CmpP

ERROR

7%:

8%:

104414

RO
48

ERROR

6$:

:OR BIPOLAR MEMORY
;WAITED LONG?

INC
BNE

RS ,aRKDA

mov

#-1,3RKWC

Mov

R4 ,8RKDA

mMov

’5,8R1

CLR

MoV

CNT.RODY

R3,3RKBA

:1F NOT, LUP BAK & WAIT

;1F YES, ERROR

;DID THE CYL ADRES BITS IN RKDA GET CHANGED?

sCYLINDER ADRES BITS IN RKDA
;GOT CHANGED AFTER
;ORIVE RESET, FROM LAST CYLINDER
sREAD 1

WORD

;INTO THIS ADRES

;FROM THIS DSK ADRES-CYL 0,

SEC O

;READ, GO

sTHIS 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
sMESSAGE IS GIVEN. WAITING TIME
012506
012510
012512
012516
012522
012526

020413
001407
010437
011337
010437
104044

:
9%

001162
001164
001166

cmp
BEQ
Mov
Mov
MoV
ERROR

R4 ,8R3
1S730
R4 ,SREGO
aR3,SREG!
R4, SREG2
44

;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 0, SEC 0. IF TEST 45 & 46

;WERE SUCCESSFULLY DONE THIS
;ERROR COULD MEAN THAT DRIVE-RESET

;:DID NOT BRING HEADS BACK T0 0.

MD-11-CZRKKF,

CZRKKF P11

RK11

BAS'C

LOGIC

21-FEB-78 08:51

TEST 2

4110

MACY!1

127

L
6
21-FEB-78
08:58

30A(1052)

PAGE

CHECKX DRIVE RESEY FROM LAST CYLINDER

4111

R R

4112
4113
4114
4115
4116
4117

;+TEST

30
'WRITE®' - 256 WORD BLOCK ON SECTOR O, CYLINDER 0
:THE TESY BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR
;THE FOLLOWING TEST.
IT WRITES A BLOCK OF 256 WORDS IN
JSECTOR O, CYLINDER O WITH A SPECIFIC PATTERN AND THIS WRJTTEN
;BLOCK WILL BE MADE USE OF IN THE NEXT TEST TO CHECK
;0UT 'WRITE-CHECK® AND "READ CHECK' FUNCTIONS.

:
A

4118

4119
4120
121

4122
4123
6124
4125
4126
4127
4128
129
4130
413
4132
4133
4134
4135
4136
4137
4138
4139
4140

012530
012532

000004
104413

012534

104421

012536

013704

TST30:

T AR R R AN

R A

R N

PR RN E O

SCOPE
CNT.RESET

Mov

RKCS,Ré&

4141
4142

2}22

;60, DO CONTROL RESETY
sTHIS IS A CALL FOR THE

°‘CNTRLJRESET' ROUTINE. A CONTROL RESET IS
sISSUED 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 ERRR If IT
:0CCURS GO BACK TO TEST 10
sCHECK IF SIN IS SET, IF SET
;DO DRIVE RESET TO CLEAR IT

;THE FOLLOWING CODE IS FOR SETTING
sUP THE 1/0 BUFFER IN MEMORY (STARTING AT
sOUTBUF), WITH A PARTICULAR 256 WORD PATTERN.
SSTARTING 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.

;OUTBUF +2

(1 111 111 0 00 000 001)

;LAST WORD

(0 000 000 C¢ 11 111 111)

6147

0125642

012700

033342

MOV

#OUTBUF
RO

4149
2}2?

012552
012556

012702
012703

177400
177400

MOV
Mov

#-400,R2
#177400,R3

012546

012701

177401

€152
4153
6154
4155
4156
2}2;

012562
012564
012566
012570
012572
012574

010320
005202
060103
010320
005202
001374

4159
4160

012576
012604

012777
012777

177400
033342

2}22

012620

012714

000003

4165

012624

105714

2;2;

E RN

;1.E.THE BUFFER WILL LOOK LIKE:
; OUTBUF
(1 111 111 1 00 000 000)

2}22

6148

AN ERRNOORNENR

R P P A RN RN N RN N AN AN AN AR RANRT RN RE TR

TST.SIN
001332

O R PR ORI NN AN R

SEQ 0076

012612

013777

MOV

1$:

001350

166530
166524

166520

#1774061,81

:PATTERN GENERATING NUMBER

MoV
INC
ADD
MOV
INC
BNE

R3,(RO)+
R2
R1,R3
R3,(RO)+
R2
1%

;SET UP FIRST WORD IN 1/0 BUFFER
s INCREMENT COUNT
JSET UP NEXT WORD PATTERN
;WRITE IT IN NXT I/0 BUFFER WORD
;HAVE U WRITTEN ALL 256 WORDS
;IF NOT GO & WRITE NEXT PATTERN

MoV
MoV

#-400,aRKWC
#0UTBUF ,aRKBA

;WRITE 256 WORDS
;STARTING FROM THIS BUS ADRES

Mov

#3,3R4

JWRITE, GO

TSTB

aR4

;WAS CNTRL RDY CLEARED AS GO WAS SET?

MoV

2%:

DRIVAD,aRKDA

;SET UP COUNT FOR 256 WORDS
sSET UP THE FIRST PATTERN TO B WRITTEN

;T0O THIS DISK ADRES, CYL 0, SEC O

MD-11-CZRKKF,
CZRKKF
. P11

4166
6167
4168
4169
4170
41N
6172

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

RK11

BASIC LOGIC

21-FEB-78 08:51
100003

012630
012634

004737

012636
012640
012644
012646
012650

005002
105777

104030

100411

TEST

MACY1T
130

BPL

021002

JSR
ERROR

3%:

166466

005202

001373

012652
012656
012664

004737
013737

012666

104031

012670

004737

012674

104032

104416

020774
001350

30A(105€2
‘WRIT

001202

021234

JSR

PC.GT4RG

BRKDA4

38-2
PC.GT3RG
30

CLR
TS18
BMI
INC
BNE

mMov

43:

)

21-FEB-78
08:58
PAGE 78
- 256 WORD BLOCK ON SECTOR O,

CYLINDER 0

JYES, BRANCH
;GEY RKCS, ER, DS
JCNTRL RDY DID NOT CLEAR AS GO WAS SET

;7O

"WRITE®

aRK(CS

;DID CNTRL RDY SET?

RZ
s

JWAITED LONG ENOUGK?
sIF NOT, LUP BAK £ WAIT

DRIVAD,SREG10

ERROR

JSR

PC,CHKHE

ERROR

SEQ (077

JYES,

BRANCH

:1F YES, ERROR
;G0,

GET RKCD,

ER,

DS,

JGET THE STARING ADRES

;BREAK CONTENTS OF SREG10 INTO
sDRV #, CYL, SUR, SEC #
sCNTRL RDY DID NOT SET ON COMPLETION

;OF WRITE OF 256 WORDS ON CYL 0, SEC O
;"RKDA' IN ERGR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF EROR
JWRITE WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MSGE
;CHECK IF *ERR' OR 'HE' BIT IS SET,
;1F YES, RETURN HERE

JHE OR FHR BIT SET ON DOING WRITE OF

:256 WOKDS ON (vt O, SEC O

JWRITE WAS DUNE STARTING AT <DSK-ADRES>
JINDICATED IN EROR MSGE

;"RKDA' IN EROR MSGE GIVES THE
012676
012702
012704
012710
012716

020077
001406
010037
017737
104035

00116¢

012720

004737

021316

012724

104034

012726

004737

012732

104033

012734

004737

012740

104036

012742

022714

000202

012756
012762

011437

001164

166434
166422

5%:

021342

01575 012737 000202 001162
104024

6$:

7%:

8%:

9%:

RO,SRKBA
63

;CONTENTS OF RKDA AT THE TIME OF EROR
;DID RKBA INCREMENTY CORRECTLY?
JYES, BRANCH

ERROR

RO.SREGO
aRKBA,SREG1
35

JSR

PC,CHKWC

ERROR

JSR

PC.CHKDA

ERROR

:RKDA DID NOT INCREMENT BY 1

JSR

PC,CHKER

;CHECK

ERROR

cmp
BEQ
Mov

#202,8R4
TST31
#202,3REGO
R4, SREGT

MOV
mov

001164

021262

CMpP
8taQ

Mov

ERROR

;GET EXPCTD RKBA
;GET RKBA RECVD
JRKBA DID NOT INCREMENT CORRECTLY

:(BY 1000 OCTAL BYTES) AFTER WRITE
;OF 400 (OCTAL) WORDS ON SEC O, CYL O
JCHECK IF RKWC OVERFLOWED TO 0,

;1F NOT RETURN HERE.
JRKWC DID NOT OVERFLOW, AFTER A
:WRITE OF 256 WORDS ON CYL O, SEC O
JCHECK

IF RKDA INCREMENTED CORRECTLY,

;IF NOT RETURN HERE

AFTER

;A WRITE OF 256 WORDS IN CYL O, SEC O
IF ANY BIT RKER IS SET

;IF YES RETURN HERE.

;RKER BIT SET ON DOING WRITE ON

JCYLINDER O, SECTOR 0

:DOES RKCS STILL CONTAIN THE WRITE BITS?
;s YES, EXIT
;GET EXPECTED RK(CS
;GET RKCS RECVD
.

:RKCS DID NOT CONTAIN THE 'WRITE®
;BITS AFTER THE FUNCTION WAS DONE.

MD-11-CZRKKF,
CZRKKF PN

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

4222
4223
6224
6225
6226

N
6
30A(1052)
21-FEB-78
(08:58
PAGE 79
CHECK THAT WRITE WAS DONE CORRECTLY

MACY11
131
MR

RAAA

JeTEST 31

;*THIS

CHECKS

AR ARt
])

THE

'WRITE'

256 WORDS DONE

IN PREVIOUS

THE SEQUENCE OF OPERATIONS IS AS FOLLOWING:

:*1)

DO A READ OF 256 WORDS FROM SECTOR O,

CYLINDER 0

WITH THE DATA JNAT WAS GENERATED PREVIOUSLY

;*
INTO A BUFFER STARTING AT ‘'OUTBUF'.
;*2) COMPARE & CHECK THE DATA THAT IS READ (STARTING AT ‘OUTBUF')
;*3) REPORT AN ERROR IF THE DATA READ BACK FROM DISK DOES

012764
012766

012770

TST31:

000004
104413

104421

012772
012776
013002
013004

177400
033342

033342
001350

177400

166314
166310
166304

013034

012777

000005

166270

013042
013046
013050
013052

105777
100411
005200
001373

166264

013054
013060

004737

020774
001350

013070

104045

013066

104416

NOT COMPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN

ALAS

ARl

ARttt

SCOPE
CNT.RESET

8s:

MoV
MoV
CLR
INC

BNE
CLR

1%:

001202

#-400,R0
#0UTBUF R
(R1)+
RO

001000
177400
127777

033342

166226

2%:

5%:

didiiisilitatsd]!

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.

sCHECK

SIN

IS SET,

sSET COUNT FOR 400 WORDS
270 BE CLEARED IN THE BUFFER
;CLR THE 400 WORD BUFFER
;STARTING AT 'OUTBUF'

mMov
MOV
mov

Mov

#5,3RKCS

:READ, GO

TSTB

eRKCS

:DID CNTRL RDY SET?

JSR
Mov
BRKDA4

PC,GT4RG
DRIVAD,SREG10

ERROR

8Ml
INC
BNE

2%
RO
1%

*BIT

BNE
Mov
MoV
Mov

#1000,aRKDS

TST32
#-400,R1
$77777,R2
#OUTBUF ,R3

SET

;D0 DRIVE RESET TO CLEAR IT

8s
RO
#-400,aRKWC
#OUTBUF ,@RKBA
DRIVAD,3RKDA

Y34

032777
001033
012701
012702
012703

:GO,

iti

;THIS 1S A VERY BASIC ERRE IF IT
;0CCURS GO BACK TO TEST 10

TST.SIN

012700
012701
005021
005200
013006 001375
013010
005000
013012
012777
013020 012777
013026 - 013777

013737

AR AR

4270

4272
4273
4274
4275
4276
L2177

CHECK THAT WRITE WAS DONE CORRECTLY

TEST

;*TEST IS GOOD.

6227
4228
4229

4230
4231
4232
4233
4234
6235
4236
4237
4238
4239
4240
4241
4242
4243
L244
4245
4246
6247
64248
4249
4250
4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269

SEQ J078

sREAD 256 WORDS
;INTO THIS ADRES
;STARTING FROM THIS DISK ADRES

:YES, BRANCH
;WAITED LONG ENOUGH?
;IF NOT, LUP BAK R WAIT

;ERROR, IF YES

;GO, GET RKCD, ER, DS, DA
;GET THE STARTING ADRES
;GO TO 'BDA4' € BREAK CONTENTS OF

;SREG10 INTO DRV #, CYL, SUR, SEC BITS
sCNTRL RDY DID NOT SET AFTER READ

;OF 400 WORDS FROM CYL 0, SEC O
:"RKDA' IN EROR MSGE GIVES THE
;CONTENTS OF RKDA AT THE TIME OF EROR
sREAD WAS DONE STARTING AT <DSK-ADRES>
;INDICATED IN EROR MESGE
;IS

SIN SET?

;o
IF YES, EXIT

MD-11-CZRKKF,
CZRKKF P11

4278
6279
4280
4281
4282
4283
4284
4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
6296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306

4307
4308
4309
4310
431
6312
6313
6314
4315

6316
4317
4318
4319
4320
4321
4322
4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333

RK11

BASIC

LOGIC

21-FEB-78 08:51

177773
177401

013116
013122
013126

012705
062702
020213

013130

001414

013132
013136
013144

010137
062737
010237

001162
000401
001164

013150
013154

011337

001166

013156
013160
013162

005205
001403
005723

013164
013166

005201
001355

104055

TEST

MACY11
TM

21-FEB-78

08:58

PAGE 80

CHECK THAT WRITE WAS DONE CORRECTLY

68:

#-5,RS
2177401 ,R2

BEQ

I4 ]

MOV

R1,$REGO

sNO, ERROR
:GEY THE # OF

MOV

R2,$REG1

JGET EXPCTD WORD

R2.(R3)

ADD

JYES, BRANCH

ERROR

INC

TST

(R3)+

;BE WRITTEN)

AR AR

SUPPOSED

;DID NOT READ BACK WORD THAT WAS SUPPOSED
;7O HAVE BEEN WRITTEN PREVIOUSLY. POSITION
;OF WORD IN ERROR 15 AS INDICATED BY
;WORD #

(SREGO),

SEC

CYL O

ssEXIT

;INCREMENT POINTER TO NXT WORD

;WAS READ BACK)

R1
6%

(THAT WAS

JGET WORD RECVD (THAT WAS READ BAK)

TST32

INC
BNE

WORD

JTHAT IS IN ERROR (EXAMPLE=1,2-~376.377,400)

(R3),$REG?

BEQ

RARA

;WAS THE READ WORD SAME AS THE WORD
;THAT WAS SUPPOSE TO BE WRITTEN

#4601 ,SREGO

MOV

7%:

SEQ 0079

nov
ADD
cmp

001162

30A(1052)

(THAT

;sHAVE U CHKD ALL 256 WORDS?
;1F NOT, LUP BAK & CHK THE NXT WCRD

;1F YES, EXIT
Rl Rl

ARt

22020

R]]

S*TEST 32

CHECK "READ CHECK® FUNCTION - CYLINDER O, SECTOR 0
s*THIS TEST CHECKS OUT THE BASIC :READ CHECK® LOGIC, USING THE DATA BLOCK

;*'CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST.
M

013170
013172

15132:

000004
104413

HENCE THE TEST WHICH

;*WRITES THE DATA BLOCK SHOULD BE DONE PRIOR TO THIS TEST.

SRRl

SCOPE
CNT.RESET

2200022222222

20222220201

: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 1S A VERY BASIC ERRE IF

013174

104421

013176
013202
013206
013212
013216
013224
013230
013234
013240

013701
013702
013703
013704
012737
012712
013713
012714
01271

013244
013246
013250
013254

105711
100003
004737
104030

TST.SIN

001332
001334
001340
001336
05252¢
177400
001350
033342
000013

RKCS,R1
RKWC,R2
RKDA,R3

Mov
Mov
Mov
mov
Mov

#52525,0UTBUF
#-400,3R2
DRIVAD,aR3
#OUTBUF ,3R4
#13,8R1

TST8

aR1

mov

053342

1%:

021002

Mov
Mov
Mov

BPL
JSR
ERROR

;OCCURS GO BACK TO TEST 10
:CHECK IF SIN IS SET, IF SEV
;D0 DRIVE RESET TO CLEAR IT

RKBA,R4

2%
PC,GT3RG
30

;READ CHECK 256 WORDS
;STARTING FROM CYL O, SECTOR O
;READ CHECK, GO
;DID CNTRL RDY GET CLEARED AS GO WAS SET?
:YES, BRANCH
;GET RKCS, ER, DS
;CNTRL RDY DID NOT CLEAR AS GO

MD-11-CZRKKF,

CZRXKF P11

4334
4335
4336
4337
4338
4339
4340
634
6342
6343
4344
4345
4346
4347
4348
4349
4350
4351
4352
4353
4354
4355
4356
4357
4358
4359
4360
4361

4362
4363

6364
6365
4366
4367
4368
4369
4370
43N
4372
4373

4374
4375
4376
4377
4378
4379
4380
4381
4382

4383
4384
4385
4386
4387
4388
4389

RK11

BASIC

21-FEB~-78 08:51

013256

104412

013260

104056

013262
013266
013270
013274

032711
001403
004737

013276
013304
013306
013314

032777
001404

104057

017737
104060

013316
013320
013322
013326
013332

005712
001405
011237
011137

013334
013340
013342
013344
013346
013352

013702
005202
020213
001405
010237
011337
104062

013360
013364
013366
013374
013400

022714
001406
012737
011437

013402

022737

013410

001412

013412
013420
013426
013434

012737
012737

013356

LOGIC

104061

104063

013737
104064

TEST

140000

30A(1052)

2%:

CHKCRDY

166016

001162

BIT
BEQ
JSR
ERROR

#140000,3R1
4%
PC,GT3RG

4%:

BIY
BEQ
mov
ERROR

#2 ,3RKER

5%:

1S7
BEQ

ERROR

aR?
6%
aR2,$REGO
aR1,$REGY
é1

mov

ORIVAD,R2

001162
001164

mov
MOV

6%:

001350

001162
001164

033342
033342
001164

052525

033342
052525
033342

7%:

001162

INC
CMP
BEQ
Mmov
MoV
ERROR

cmMp
BEQ
mov
Mov

ERROR

033342

8%:

001162
001164
001166

5%
aRKER,SREGO
60

R2,S$REGO
ar3,SREGT
62
gOUYBUF.aR&
$
#OUTBUF ,SREGO
2§4.3R561

SEQ 0080

JWAS SET

'READ CHECK'

;CNTRL RDY DID NOT SET ON DOING

J'READ CHECK®

FROM CYL O,

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 O, SEC O
;DID "CSE' BIT SET IN RKER?
NO, BRANCH
;GET RKER
;SOFT ERROR ~ CSE ~ ON DOING 'READ
sCHECK® ON CYLINDER 0, SECTOR 0

;U SHOULD HAVE GOT ERRROR 102 ALSO
;01D WORD COUNT OVERFLOW TO 07
sYES,

BRANCH

:GET RKWC

;GET RKCS
sWORD COUNT DID NOT OVERFLOW

;ON DOING 'READ CHK® ON CYL O, SEC O
JRKDA SHOULD INCREMENT
;7O THIS AFTER 'RD CHK® 1S DONE
;DID RKDA INCREMENT CORRECTLY?

JGET EXPCTD RKDA
:GET RKDA RECVD
;RKDA DID NOT INCREMENT CORRECTLY
;(BY 1) ON DOING 'READ CHK' ON
JCYL O, SEC O
;DID RKBA GET CHANGED?
sNO, BRANCH (RKBA WON'T CHANGE, NG NPR'S)
JGET EXPCTD RKBA
;GET RKBA RECVD
;RKBA CHANGED AFTER DOING ‘READ CHK'

;ON CYLINDER 0, SECTOR 0. SHOULD

cmp

#52525,0UTBUF

BEQ

15133

mov
Mov
Mov

#OUTBUF ,SREGO
#52525,$REG]
22TBUF.$REGZ

ERROR

SECTOR 0

;G0 CHECK IF CONTROL RDY IS SET
;IF SO, SKIP THE EROR MESSAGE.
56

021002

166024

CHECK

ERROR

000002

7
c
21-FEB-78
08:58
PAGE 8!
"READ CHECK' FUNCTION - CYLINDER 0,

MACY11
132

;NOT CHANGE, FOR, NO NPR'S.
;"OUTBUF' SHOULD STILL CONTAIN THE
;SAME WORD AS IT DID BEFORE °RD CHK'®
sNOTE THAT AT THE BEGINING OF THIS TEST

;52525 WAS WRITTEN INTO ‘OUTBUF'
s:YES,

EXIT

;REPORT ERROR IF °"OUTBUF' CHANGED
;GET ADRES OF QUTBUF
;GET EXPCTD WORD IN ‘QUTBUF'

:GET WORD FOUND IN 'OUTBUF®
;AS MENTIONED ABOVE,

°'WRITE'

;256 WORD DATA BLOCK WAS DONE

;CORRECTLY BEFORE, THEN THIS ERROR
;COULD MEAN THAT AN NPR WAS DONE

;ON "READ CHECK'.
MR

AL EAAASARSARRARARRRRALRARRSRRRRARRARAARRRARRRRSRR
R R Rt
o dll

CHECK THE 'WRITE CHECK' FUNCTION - ON CYLINDER O, SECTOR 0
;*TEST 33
;*THIS TEST CHECKS OUT THE BASIC 'WRITE CHECK' LOGIC, USING THE 256

MD-11-(ZRKKF,

P11
CZRK.KF

4390
4391
4392
4393
6394
£395
4396
4397
4398
4399
4400
460
4402
4403
6404
4405
4406
4407
4408
4409
44610
4611
4412

4413
44614

4615
4616
44617

4418
4419
4420
4621
4422
6423
4424
4425
4426
4427
4428
6429
4430
4431
4432
4433
4434
4435
4436

4437

4438
4439
4440
4441
6442
4443
4444

4445

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
133

4
D
30A(1052)
21-FEB-78
08:58
PAGE 82
CHECK THE °'WRITE CHECK® FUNCTION - ON CYLINDER O,

SECTOR 0

SEQ 0081

;*WORD DATA BLOCK (SECTOR O, CYLINDER 0) WRITTEN IN A PREVIOUS

seTEST,

THE BUFFER

IN MEMORY,

USED FOR COMPARISON OF DATA,

. MENCE THE TEST WHICM WRITES THE
;*ONE STARTING AT 'OUTBUF
;*256 WORD BLOCK ON THE DISK (AS WELL AS CREATING THE 256
;*256 WORD MEMORY BUFFER) SHOULD BE DONE BEFORE THIS TEST.

IS THE

l"tl"'t"'Q"'Qt""""Q"Q'".t'tt""""tl.tt."."'.'tt'

013436

013440

TST33:

000004
1044613

SCOPE
CNT.RESET

:GO, DO CONTROL RESETY
;THIS IS A CALL FOR THE

*CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS

;ISSUED AND AFTER A CERTAIN TIRE

;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

013442

1044621

013444
013450
013454
013460
013464
013470
013472
013474
013476
013504
013512
013520

013701
012700
012702
012703
062703
010322
005200
001373
012777

013524
013526
013530
013532
013536

005000
105711
100003
004737

013540

104412

013542

104065

013544
013550
013552
013556

032711
001403
004737
104066

013560
013566
013570
013574

032777
001403
004737

012777
013777
012711

104030

104067

TST.SIN

001332
177400
033342

177777
177401

177400

033342
001350

000007

1%:

165630
105624
165620

2%:
021002
3s:

MOV

RKCS,R1

MOV
MoV

#OUTBUF ,R2
077777.,R3

MOV
MoV
Mov

#-400,3RKWC
#OUTBUF ,8RKBA
DRIVAD,3RKDA

ADD
MoV
INC
BNE

021002
000001
021002

165542

5%:

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

;WRITE CHECK 256 WORDS
;STARTING AT THIS BUS ADRES
;MITH THIS DISK DATA BLOCK (CYL O, SEC 0)

MoV

#7.3R7

:WRITE

CLR
1STB
BPL
JSR
ERROR

RO
aR1
3s
PC,.GT3RG

;GIVE SOME TIME
;:DID CNTRL RDY CLEAR AS GO WAS SET?
;YES BRANCH
;GET RKCS, ER, DS
;CNTRL RDY DID NOT CLEAR AS GO WAS
JSET TO DO WRITE CHECK
;GO CHECK IF CONTROL RDY IS SET
;1F SO, SKIP THE EROR MESSAGE.
JCNTRL RDY DID NOT SET AFTER
;COMPLETING WRITE CHECK ON

CHKCRDY

ERROR
140000

#177401,R3
R3.(R2)+
RO
18

IS A VERY BASIC ERRL IF

BIT
BEQ
JSR
ERROR

#140000,3R1
5¢
PC.GT3RG
66

8IT
BEQ
JSR

#1,3RKER
63
PC,GT3RG

ERROR

CHECK,

JCYLINDER O, SECTOR O

;0ID HE OR ERR BIT SET
NGO, BRANCH

;G0 GEY RKCS ER DS FOR ERROR MESSAGE
;HE OR ERR BIT SET ON DOING WRITE

;CHK ON CYLINDER 0, SEC O

;DID WCE SET IN RKER?
;NO, BRANCH
;YES GET RKCS, ER, DS
;WCE ON WRITE CHECK OF CYL 0, SEC O
;NOTE THAT IF A PREVIOUS TEST
:& THEN COMPARED WITH MEMORY BUFFER

;TO SEE IF IT WAS WRITTEN CORRECT WAS
;DONE RIGHT BEFORE, THIS ERROR SHOULD NOT

MD-11-CZRkKf,
CZRKKF P

RK11

BASIC

LOGIC

21-FEB-78 08:5

TEST 2

MACY11
133

£
30A(1052)
21-FEB-78
08:58
PAGE 83
CHECK THE ‘WRITE CHECK® FUNCTION - ON CYLINDER O,

4646

6447
4448
4449
6450
46N
4452
4453
64654
4455
4456
6457
4458
4459
4460
64661
4462
6463
4464
4465
6466
44667
4468
4469
4470
L7
44672
44673

4474
4475
4476
477
4478
4479
4480
44681
4482
4483
4684
4485
4486
4487
4488
4489
4490
4491
4492
4493
44694

4495
4496
4497
4498
4499
4500
4501

013576
013602
013604
013612
013616

005777
001406
017737
Giniz

013620
013624
013626
013632
013634
013640
013646

013704
005204
020477
001406
010437
017737

013650
013656
013660
013666
013674

022777
001407
012737
017737

013676
013702
013704
013712
013716

022711
001406
012737
011137

104061

104070

10407

104024

165532

165524

001164

181
8EQ
MOV

6%:

001162

MoV

ERROR

001350

7%:

Mov
INC
CMP
BEQ

165506

001162
165474

034342
034342
165444

165460

ERROR

cmMp
BEQ

8s:

001162

mov
Mov

001164

000206
000206
001164

Mov
MoV

001164

ERROR

9%:

CmpP
8EQ
MoV
Mov
ERROR

001162

SECTOR

;HAPPEN UNLESS THERE IS A FAULT IN THE
;COMPARING LOGIC OF 'WRT (CHK'®
;01D RKWC OVERFLOW?

dRKWC
7%

;YES, BRANCH
:NO, GEY RKW(

aRKW(, SREGO
2?1.$REG1

:GET RKCS
RKWC DID NOT OVERFLOW AFTER
;WRITE CHECK ON CYL 0O, SEC O
;RKDA SHOULD INCREMENT
;7O THIS AFTER WRT CHK
;DID RKDA INCREMENT CORRECTLY?
JYES, BRANCH
:NO, GET EXPCTD RKDA
;GEY RKDA RECVD

DRIVAD, R4
R4
R4 ,dRKDA

R4 ,SREGO
adRKDA,S$REG1
70

sRKDA DID NOT

INCREMENT

CORRECTLY

;(BY 1 SECTOR) AFTER WAT (HK ON SEC 0, CvL 0

#OUTBUF +1000,9RKBA ;DID RKBA INCREMENT CORRECTLY?
9s
;YES, EXIT
#OUTBULF +1000,3REGO ;GET EPCTD RKBA
aRKBA,SREG
;GET RKBA RECVD
"
:RKBA DID NOT INCREMENT CORRECTLY

:(BY 1000 BYTES) AFTER A WRT (HK
;OF 256 WORDS ON CYL 0, SEC O

#206,3R1
TST34
#206 ,$REGO

:DOES RKCS STILL CONTAIN THE WRT CHK BITS?
::YES, BRANCH
JNO, GET EXPCTD RKCS
;GET RKCS RECVD
sRKCS BITS CHANGED AFTER WRT (HK

#R1,S$REGT
24

;WAS DONE

st
T

;«TEST 34

CHECK THAT

]BA INHIBITS INCREMENTING OF REKBA

s*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)

;*2) READ FROM SECTOR O, CYLINDER 0 THE 256 WORD BLOCK THAT WAS

s*WRITTEN IN A PREVIOUS TESY

:*DONE BEFORE THIS).

(NOTE:

THAT TEST SHOULD HAVE BEEN

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
MR

013720
013722

TST134:

000004
104413

;*AS PREVIOUSLY CLEARED OUT.

SRR

SCOPE
CNT.RESET

RiR iR

iRl

Rttt

ittt

ditsdld

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

‘CNTRL:RESET' ROUTINE. A CONTROL RESET IS

;ISSUED AND AFTER A CERTAIN TIME

013724

104421

013726

013701

TST.SIN

001332

Mov

RKCS,R1

:1F THE *CNTRL RDY®' DOES NOT SET
:AN ERROR 1S REPORTED. NOTE THAT
:THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET® IS LOCATED.
;THIS IS A VERY BASIC ERRR IF IT
: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 PN

4502
4503
4504
4505
4506
4507
4508
4509
4510
6511
4512
4513
6514
6515
4516
4517
4518
4519
4520
6521
6522
4523
4524
4525
4526
4527
4528
4529
4530
6531
4532
4533
4534

4535
4536

4537
4538
4539
4540
4541
4562
4543
4544
4545
4546

4547
4548
4549
4550
4551
4552
4553
6554
4555
4556
4557

RK11

BASIC

LOGIC

21-FEB-78 08:51

013732
013736
V13742

012700
012702
010203

013744
013746
013750
013752
013760
013764

005023
005200
001375
012777
010277
013777

177400
165352
001350

013772

012711

004005

013776

005037
105711

001362

005237
001373
004737
013737

001362

014002

014004
014006
014012
014014
014020
014026
014030

100412

104416

MACY11
134

177400

020774
001350

165354

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
00116¢
001350

JCLEAR OUT THE 256
;WORD MEMORY BUFFER STARTING
;AT 'OUTBUF®

MOV

RZ.,3RKBA

JINTO THIS BUS ADRES (IBA WILL B SET)

3%:

021234

165272

4%:

001162
165260

001164

€01000

165236

CLR

TSTB

177400

001162
001166

6%:

DRIVAD,3RKDA

#4005,aR1
COUNT

;READ BACK 256 WORDS
;FROM

THIS DSK

ADRES

(SEC

CcYL

JNOTE: SEC 0 HAS BEEN WRITTEN IN A
:PREVIOUS TEST WITH A UNIQUE PATTERN
;READ,

GO,

[BA SET

aRk1

;DID CNTRL RDY SET?

COUNT
2%
PC.GT4RG
DRIVAD,SREG10

JWAITED LONG ENOUGH?
;iF NOT, LUP BAK & WAIT
:60, GET RK(S, ER, DS, DA
.GET THE STARTING ADRES
;BREAK CONTENTS OF SREG1O

ERROR

JSR

PC,CHKHE

ERROR

cmp
BEQ

ERROR

R2.aRKBA
5%
R2.SREGO
#RKBA,SREG!
72

BIT
BNE

#1000,8RKDS
TS135

JSET, SHOULD NOT HAVE
;1S SIN SET?
;2
1F YES, EXIT

cmMp

#377,aR2

JCHECK THAT THE FIRST WORD IN

BEQ
MOV
Mov
mov

63
#377,3REGO
(R2),3REGT
DRIVAD,SREG?

;INTO THIS SAME WRD WITH IBA SET
JGET EXPCTD WORD (LAST WORD OF THE BUFFER
:GET WORD RECVD (LAST WRD FROM SEC Q)
;015K ADRES WHERE ERROR OCCURED

;DATA ERROR
:THE FIRST WORD IN MEM BUFFER

ERROR

177773

#-400,3RKWC

k1 3

MOV
MOV

5%:

R2.R3

BMI]

INC
BNE
JSR
mov
BRKDA4

104044

005722
012705

(R3)+
RO
1%

MoV

001202

JSET UP COUNT FOR 256 WORDS

CLR
INC
BNE

MOV

2%:

SEQ 0083

#0UTBUF ,RZ

MOV

165346

#-400,R0

RKBA

MOV

104045

014036

7
f
30A(1052)
21-FEB-78
(8:58
PAGE 84
CHECK THAT ]BA INHIBITS INCREMENTING OF

MoV

1%:

004737

014126
014130

033342

014032

014124

TEST

TST

MOV

(R2)+

#-5,R5

;YES, BRANCH

JINTO DR #, CYL, SUR, SEC

;g:TRL RDY DID NOT SET AFTER DOING

JREAD

;CHECK

'ERR®

'HE'

;1F YES, RETURN HERE.

BIT

IS SET,

JERR BIT SET ON DOING READ FROM SEC O,

IN <DSK~ADRES>)
;YL O (INDICATED
;"RKDA' IN EROR MSGE GIVES THE
;CONTENTS GF RKDA AT THE TIMt OF EROR
;01D RKBA INCREMENT?
;0K IF NOT, BRANCH
:GET EXPCTD RKBA
;GET RKBA RECVD
;RKBA INCREMNTED WHEN IBA BIT WAS

;"OUTBUF® 1S 377 (LAST WORD OF SEC 0,
:CYL 0). NOTE THAT READ WAS DONE

;(SEC 0, CYL O LAST WORD)

(QUTBUF)

:SHOULD BE NON-ZERO & SHOULD CONTAIN

sTHE LAST WORD READ BACK FROM SEC 0
:CYL O,THIS DID NOT HAPPEN IF THE ERROR CCCURS
JINCREMENT POINTER TO THE NXT WORD

SALLOW ONLY S MESAGES FOR ERR 116

MD-11-CZRKKF,
CZRKKF P11

4558
4559
4560
4561
4562
4563
4564
6565
4566
6567
4568
4569
4570
645N
6572
4573
6574
4575
4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
459N
4592
4593
4594
4595

4596

4597
4598
4599
4600
4601
4602
4603
6604
4605

4606
4607
4608
4609
4610
4611
4612
4613

RK11

BASIC

LOGIC

21-FER-78 08:51

014134
014136
014140
014142
014144
014150
014154
014156
014162

005200
001417
005722
001774
005037
014237
010004
062704
010437

014166

104073

TEST

MACY11
134

30A(1052)
21-FEB-78
08:58
PAGE 85
CHECK THAT [BA INHIBITS INCREMENTING OF

78:

INC
BEQ
157

RO
TST35
(R2) ¢

;CHKD ALL 256 WORDS
;o YES, EXIT
;1S THIS WORD 0?

MoV
mov
ADD

~(R2) ,$REG2
RO,R4
#401,R4

;GET WORD THAT WAS FOUND

ERROR

BEQ
(LR

001164
001166
000401
001162

mMov

7$
$REGT

R4 ,SREGO

RKBA

SEG 0084
IN THE BUFFER?

;YES, LUP BAK & CHK THE NXT WORD?
;ERROR. GEY EXPCTED WORD - 0

IN THE BUFFER

;THIS 'WORD #' IN MEMORY BUFFER
s SHOULD HAVE BEEN ZERO
;THE 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
sOCCURS, 'WORD #' (OF THT BUFFER) AS
:INDICATED IN THE EROR MESAGE) GOT
;CHANGED WHEN READ WAS DONE FROM
sTHE

DISK,

INDICATING THAT WITH IBA

;SET X-FER WAS NOT DONE INTO THE
:SAME MEMORY LOCATION. 'WORD #°'

014170
014172
014174

005205
001401
000757

INC

BEQ

TST135

;1S OCTAL & SPECIFIES THE POSITION
:IN THE BUFFER (FIRST WORD IS 'WORD #' 1)

SSEXIT

I
T T,
s*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.
;v 1T 1S NORMALLY 220, UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN
;*CHANGED RK11 WILL INTERRUPT TO 'RKVEC'. NOTE °'RKVEC' HAS
:+T0 BE SET UP BY THE USER,
:."Q"t‘""'.""'."""'"'""""."".'t"‘.’ti'i"fi"'fi"tt'i

0146176
014200

TST35:

000004
104413

SCOPE
CNT.RESET

;G0, 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 [S THE

014202

104421

014204
014210
014214
014216
014216
014222

012746
012746
000002

000340
0146216

013701
013700

001332
001402

;PC WHERE '"CNT.RESET' IS LOCATED.
:THIS IS A VERY BASIC ERRR IF IV
;O0CCURS GO BACK TO TEST 10

TST.SIN

MOV
648

;CHECK

#340,-(SP)

Mov

#648,-(SP)

MOV
MoV

RKCS,R1
RKVEC,RO

RTI

SIN IS SET,

SET

;00 DRIVE RESET TO CLEAR IT

:GET POINTER TO RK VECTOR ADRES

MD-11-CZRKKF,
CIRKKF P11
4614

6615
4616
4617
4618
4619

4620
4621
6622
6623
4624
4625
6626
4627
6628

4629
4630
4631
4632
4633
4634
6635
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

016226
014232
014236
014240
0146242
014246

RK11

BASIC

LOGIC

21-FEB-78 08:51
012720
012710
105711

014262
000340

012711

000100
000005

100376

106420

014252
014256

011137

014260
014262

000400
022626

0146264

022626

014266

012777

014302

014274

104420

000005

014300

000403

014302
014304

014306

022626
022626
104020

014310

012777

004600

014316
014322
014326
014330

012746
012746
000002

000340
014330

106074

TEST

MACY11
135

30A(1052)
CHECK

THAT

7
H
21-FEB-78
0B8:58
RK11

MoV
MoV
TgTB
8PL

001162

165106

2%:

165064

3%:

65%:

IDE

SET

SEQ 0085

#18,(RO)+
#340, (RO
aa;
.
MOV
#100,aR1
WAT,INT ,S

JSET UP INTERRUPT VECTOR FOR RK11
JSET PSW ON INTERRUPT
:WAIT FOR CNTRL RDY TO SETY
;

MOV

aR1,8REGO

;GET RKCS

BR
(mp

1%
(SP)+,(SP)+

CMP

(SP)+, (SP)+

mov

#2% ,aRKVEC

WAT.INT

Cmp
CMP
ERROR

(SP)+,(SP)+
(SP)+,(SP)+
20

Mov

#BADINT ,@RKVEC

mov
mov

#340,-(SP)
#65%,-(5P)

ERROR

1%:

PAGE P%

INTERRUPTS WHEN

RT1

SRR ARa

;SET IDE BIT IN RK(CS
sWAIT FOR INTERRUPT, ATLEAST

;37 US FOR 11720, 7 US FOR 11/45

ARt

JRK11 DID NOT INTERRUPT WHEN IDE
;WAS SET, WITH CNTRLE RDY SET & GO
sCLEAR
JRK11 INTERRUPTED CORRECTLY 10
;THIS. RESTORE STACK POINTER
; (FROM RK11 INTERRUPT)

sRESTORE STACK POINTER
; (FROM WAT.INT)
;1F

THERE

IS FAULTY POLLING OR INTERUPT

; LOGIC SECOND INTERRUPT MIGAHT OCCUR
;WALT FOR

INTERRUPT,If

;DUE TO FAULTY LOGIC

ANY

sRESTORE SYACK PTR (FROM RK11 INTRUPT)
JRESTORE STACK PTR (FROM WAT.INT)
;AN UNEXPECTED RK11 INTERRUPT

;OCCURED. THERE SHOULD HAVE BEEN

;ONLY 1 INTERRUPT (7O 1$ ABOVE)
RESTORE VECTOR ADRES FOR

UNEXPECTED RK11

lniiiliodiisliit

INTERRUPT,

ittt

islslslolisssss)

STEST 36
CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF
;*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.
2«THIS TEST ALSO CHECKS A PART OF

THE POLLING LOGIC.

;;t!ttttttttt"tt!'i*"'i""ttf"'it'*tii'itt‘t"tlitttt'itttttt

014330
014332
014340

000004
012737

104413

000005

001206

T§736:

SCOPE

MOV

#5,$TIMES

CNT.RESET

::00 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

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

MD-11-CZRKKF,

CZRKKF .P11
4670
4671
6672

4673

014342

RK11

BASIC

LOGIC

21-FEB~78 08:51

013700

001332

014346

013777

004737
104026

021504

014362
014366
014372
014376
014404
014410

013701
012721
012711
052777
012710
104420

001402
014432
000340
000040
000111
000300

0144146
014422
0146426

.
012777
011037
104075

004600
001162

014430
014432

000402
022626

01644346

(022626

014436

012777

014502

014452

011037

001162

014460

104420

056700

014464

012777

004600

014472

004737

021002

014500
014502

000401
022626

014504

022626

4718
4719

014506

012777

004600

014526

032710
001003
011037

020000

4723

014514
014520
014522

4676
6675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
4692
4693

46694
4695

4696
4697
4698
4699

4700

4701
4702
4703
4704
4705
4706
4707
4708

4709

4710
4711
4712
4713
4714
4715
2;}9

4720
4721
4722
4724
4725

014356
01464360

014444
014450

014456

014476

014530

032710
001403

104076

104077

104053

017701

001350

TEST

MACY11

136

164764

164734

164760

THAT WITH IDE

MOV

RKCS,RO

JSR
ERROR

PC,DRESET
26

(08:58

SET RK11

ODRIVAD,aRKDA

MOV
RKVEC ,R1
MOV
#38,(R1)+
MOV
#340, (R1)
BIS
#40,3RKDA
MOV
#111,3R0
WAT.INT ,300

#BADINT ,@RKVEC
aR0,SREGO
75

BR
{mp

38+4
(SP)+,(SP)+

CMp

(SP)+, (SP)+

mov

#5% ,@RKVE(

L D))

aR0,SREGO

WAT.INT

,56700

164710

MoV

#BADINT ,@RKVEC

ERROR

JSR

PC,.GT3RG

BR
cMp

59+2
(SP)+,(SP)+

CMp

(SP)+,(SP)+

MoV

#BADINT ,8RKVEC

BIT
BNE
MoV

#20000,aRr0
6%
8RO, S$REGO

164736

BIT
BEQ

ERROR
4%

5%:

164666

001162
164572

21-FEB-78

MoV
MoV
ERROR

38:

020000

CHECX

MoV

2s:

30A(1052)

ERROR

63:

Mov

#20000,aR0
43

aRKDS,R1

PAGE

INTERRUPTS AFTER

INTIATION & COMPLETION GF

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

;ADRES THE DRIVE

:G0, 0O DRIVE RESET
sR/7W/S RDY DIDN'T SET AFTER DOING
;ABOVE DRIVE RESET
JSET UP VECTOR ADRES FOR RK11 INTERUPT
;SET UP PSW ON INTERRUPTY
JADRES
CYLINDER m1
;SEEK, GO WITH IDE SET
SWAIT FOR THE DRIVE TO
JINTERRUPT AFTER ADRES WAS RECVD
JWAITING TIME= 1.4 MS FOR 11/20
;280 US FOR 11/45
JERROR, IF INTERUPT DID NOT OCCUR
;BY NOW
RESTORE UNEXPECTED RK11 INTERRUPT
;GET RKCS
;INTERRUPT DID NOT OCCUR AFTER
;SEEK WAS INITIATED WITH [DE SET
;O0K,

RK11

INTERRUPTED TO THIS

JRESTORE STACK POINTER (FROM RK11
JRESTORE STACK POINTER (FROM

INTERRUPT)

SWAT.INT)
;SET UP NEW VECTOR ADRES FOR RK11
;1S SCP CLEAR
sYES, BRANCH

JGET RKCS

;SCP SET BEFORE SEEK TO LAST
;CYLINDER WAS DONE
sWAIT FOR DRIVE TO INTERRUPT
JAFTER SEEK WAS COMPLETED
;WAITING TIME=180 MS FOR 11/20
;36 NS FOR 11/45
:IT'S AN ERROR [F BY THIS TIME
s INTERRUPT HAS NOT OCCURERED

;G0 GET RK(CS, ER, DS

JRK11 DID NOT INTERRUPT AFTER SEEK (T0
JLAST CYLINDER) WAS DONE WITH [DE SET
0K, IF RK11 INTERUPTED TO THIS AFTER
;SEEK WAS COMPLETED. RESTORE
;STACK POINTER (FROM RK11 INTERRUPT)
:RE?T?R$)STACK POINTER (FROM
JWAT.IN

;RESTORE RK11 INTERRUPT VECTOR ADRES
;FOR UNEXPECTED INTERUTS

;DID SCP BIT SET?
;YES, BRANCH
;GET RKCS
:SCP DID NOT

SET AFTER RK11

;INDICATING SEEK WAS DONE
;GET RKDS

INTERRUPTED

SEQ 0086

MD-11-CZRKKF,
CZRKKF.P11

4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
136

7
J
30A(1052)
21-FEB-78
(08:58
PAGE 88
CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER

014534
014540
014544

042701
020137
001414

017777
001350

8IC
CMP
BEQ

014546

013746
004737
012637
010146
004737
012637

001350
021200
001162

MOV
JSR
MoV

021200
001164

JSR
mov

014552
014556
014562
014564
014570
014574

104047

mMov

ERROR

nr7r.el
R1,DRIVAD
78

sBMASK NON-ID BITS IN RKDS
;CORRECY ID BITS IN RKDS?
:YES, BRANCH

DRIVAD,-(SP)
PC,SHFTRT
(SP)+,SREGO

;PUSH DRV ADRES ON THE STACK
;60, SHIFT RIGHT DRV #
;GET EXPCTD DRV #

PC,SHFTRT
(SP)+,$REG!

;60 SHIFT THEM RIGHY
;POP THE RECVD ID BITS

R1,-(SP)

;PUSH ID BITS ON THE STACK

;WRONG ID BITS WERE RECVD IN
;RKDS AFTER SEEK WAS DONE (INTRUPT
JMODE). "EXPCT' INDICATES THE DRIVE

4738
4739
4740

4741
4742
4743
4744
4745
4746
G747
4748

4749
4750
4751

4752
4753
4754
4755
4756
4757

4758
4759
4760
4761
4762
4763
4764
4765
4766
4767
4768
4769
4770
&77
4772
4773
4774
4775
4776
4777
4778
4779
4780
4781

THAT

SHOULD HAVE

;1D BITS,
;ORIVE

014576
014576
014602
014606
014610
014610
014612
014620
014626
014630
014636

7%:

Mov
MoV

012746
012746
000002

014610

104413
013777
032777
001404

001350
160000

164520
164500

MoV

164472

001162

MOV
ERROR

017737
104050

000340

648

RTI

INTIATION & COMPLETION OF

'RECVD'

BEEN

IN THE

INDICATES THE

# THAT WAS RECVD

IN THE

ID BITS

#340,-(SP)
#6438 ,-(SP)

CNT.RESET

;G0 DO CONTROL RESET

BIT
BEQ

;DID CNTRL RESETYT CLEAR DRIVE ID BITS?
sYES, BRANCH

DRIVAD,aRKDA

#160000,8RkDS
83
aRKDS,SREGO
50

;ADRES

THE

DRIVE

JGET RKDS
;CONTROL RESET DIDN'T CLEAR THE

;DRIVE ID BITS (13-15) IN RKDS
014640
014644
014646
014652

022710
001403

011037
104100

000200

8$:

001162

CMpP
BEQ

MOV
ERROR
SRR

#200,3R0
18137

sWAS SCP BIT CLEARED BY CNTRL RESET?
;sVES, EXIT

8RO, SREGO
100

;GET RKCS
JCNTRL RESET DID NOT CLEAR SCP BIT
R

dRilaiot

ddlili

st itsisliladisd)

SeTEST 37
CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE
;*THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE
:+WITH IOE BIT SET, RK11 INTERRUPTS WHEN THE FUNCTION IS COMPLETED
;¢FUNCTION USED IN THIS

TEST

IS READ.

:;i*'titf't"'ti'f"iitt""'"Q"i'i'i't."Qt"ttt'ttlii.tl'tQt’

014654
014656

000004
104413

014660

104421

1ST37:

SCOPE
CNT.RESET

TST.SIN

:60, DO CONTROL RESET

STHIS IS A CALL FOR THE °CNTRL*RESET' ROUTINE. A CONTZOL RESET IS
: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
:PC WHERE 'CNT.RESET' IS LOCATED.
STHIS IS A VERY BASIC ERRE IF IT
*0CCURS GO BACK TO TEST 10
TCHECK

SIN

IS SET,

SET

:DO DRIVE RESET TO CLEAR IT

SEQ 0087

MD-11-CZRKKF,
CZRKKF P11

4782
4783

4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809

4810

4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829

4<830
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

001332
001340
001336
001350
000013
177600

012777
011037
104101

014762
014764

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

004600
001162

MACY11
137

BIS

164420

Mov
mMov
MoV
Mov
mMov
Mov
Mov

WAT.INT

164426

MoV
MOV

164404

000005

001162
001164

021316

000340
015046

022714
001406
012737
011437

033742
033742
001164

7
K
30A(1052)
21-FEB-78
08: 58
PAGE 89
CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ
Mov
MoV
MoV
MOV

1%:

012746
012746
000002

104042

033342
001402
014764
000340
000105
127710

014746
014754
014760

015034
015034
015040
015044
015046
015046
015052
015054
015062
015066

TEST

2%:

3%:

648

001162

IS DONE

SEG 0088

RKCS,RO
RKDA ,R?2
RKBA,R4

DRIVAD ,R1
213,
R1
#-200,aRKW(
R1,8R2

;SET BITS FOR SEC 13
;READ 200 (OCTAL WORDS)

RKVEC,RS
#18,(RS)+
#340, (R5)
#105,aR0

JSET UP VECTOR ADRES FOR RK11
;SET PSW ON NTERUPT

#0UTBUF ,aR4

L,127710

#BADINT ,@RKVE(

;FROM

THIS DISK ADRES

;INTO THIS BUS ADRES

sREAD,

GO,

IDE

(CyL

SEC

13)

TO INTRUPT

SET

JWAIT FOR RK11 TO INTERRUPT ON
;COMPLETION OF READ
JWAITING TIME= 337 MS FOR 11/20

;67 MS FOR 11/45

JRESTORE UNEXPCTED INTERRUPT VECTOR ADRES
;GET RKCS
:RK11 DID NOT INTERRUPT AFTER READ
;WAS DONE, IDE BIT SET.

ERROR

3RO, SREGO
101

BR
cmp

1%+10
(SP)+,(SP)+

MOV

CMP

(SP)+,(SP)+
#BADINT ,8RKVEC

JSR

PC, CHKER

ERROR

ADD

#5,.R1
R1,3R2

SRKDA SHOULD HAVE INCREMENTED TO THIS
;DID RKDA INCREMENT CORRECTLY?

MoV
MOV

R1,$REGO

:GET EXPCTD RTDA
;GET RKDA RECVD

cmp
BEQ

aR2, SREG!

;0K, IF RK11 INTERRUPTED TO THIS
JRESTORE STACK POINTER (FROM RK11 INTERRUPT)
RESTORE STACK POINTER (FROM WAT.INT)
sRESTORE UNEXPECTED RK11 INTERRUPT
;VECTOR ADRES
;CHECK IF ANY BIT IN RKER IS SET,
;IF YES, RETURN HERE.

;RKER SET ON DOING READ FROM SEC O,
: CYL 13 IN INTERRUPT MODE
; YES BRANCH

ERROR

JSR

PC.CHKWC

ERROR

MOV
MOV

#340,-(SP)

CMp
BEQ

#OUTBUF +400,8R4 ;DID RKBA INCREMENT CORRECTLY?
TST40
s YES, EXIT
#OUTBUF +400,$REGO ;GET EXPCT RKBA
R4, SREGT
;GET RKBA RECVD
42
;RKBA DID NOT INCREMENT CORRECTLY
;AFTER A READ OF 200 WORDS

RTI

Mov
Mov

ERROR

;RKDA

INCREMENTED WRONG ON DOING

;A READ ON CYL 0, SEC 13

sCHECK THAT RKWC OVERFLOWED TO O,
:1F NOT RETURN HERE.

;RKWC DIDN'T QURFLO AFTER
;A READ OF 200 WORDS

#6648 ,-(SP)

".'tt'tt"'ttittt'tt't"'tt"tl"'ttttttt"ttt't't!'itt"'tt"!t'i

J*TEST 40

CHECK THAT RK11

INTERRUPTS AT BRS5S ONLY

MD-11~CZRKKF,
(ZRKKF
. P11

CHECKS

THAT RK11

CAN

1$740:

000004

104413

SCOPE

CNT.RESET

ITERRUPT

IF 17
INDICATED.

AT BRS ONLY.

AND

STILL

TEXT WILL

: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
;PC WHERE

015074

104421

015076

012737

015132

015104
015110
015116
015122
015126

013700
013777
012701
012702
013703

001332
001350
000007
000340

015132
015136
015142

013704
012724
012714
010246
012746
000002

001402
015244
000340

012710
012705
005205
001376
020203
003005

000100
177760

010137
011037
104103

001162
001164

015146
015150
015154

015156
015156
015162
015166
015170
015172
015174

015176

b
—b

015202
015206

o
N ~

4872
4873
4874
4875
4,876
4877
4,878
4879
4880
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4,893

TEST

SEQ 0089

sTHE PC IN ERROR MESSAGE

4871

015070
015072

—

4870

7
L
30A(1052)
21-FEB-78
08:58
PAGE 90
CHECK THAT RK11 INTERRUPTS AT BRS ONLY

4867
4868
4869

MACYT1
140

°"ttttttt'"t't't"tt't't""""""i't'ill'."tt't'ttt'ttt!tttt

WVAVA L

4866

J*HAVE TO BE CHANGED ACCORDINGLY
;tCHECK FOR THIS BR LEVEL.

4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862
4863
4864
4865

21-FEB-78 08:51

TEST

;¢lfF IT DOES NOT INTERRUPT AT BR5 ORLOWER THEN ALSO AN
IF FOR SOME REASON THE INTERRUPT
;*ERROR IS INDICATED.
;*LEVEL IS CHANGED FROM BRS5, THEN CONTENTS OF RKPR] WwILL

4848

LOGIC

*INTERRUPTS AT A LEVEL HIGHER THAN BR5 AN ERROR IS

—

4847

BASIC

;*THIS

4838
4839
4840
4841
4842
4843
4844
(845
4846

RK11

005010
062702
005301
001344

TST.SIN

001110
164222

#18,SLPERR

MOV

RKCS,RO

MOV
MOV
MOV

#7.R1
#340,R2

MOV

001400

1$:

015156

177740

MOV

A ¥

28:

MOV

DRIVAD,aRKDA

RKPRI,R3

RKVEC,R&

MOV
MOV
MOV
MOV

#38, (R4)+
#340, (R4)
R2,-(SP)
#43,-(SP)

MOV
MOV
INC
BNE
CHP
8GT

#100,aR0
#-20,RS
RS
=2
R2.R3
2

MOV
MOV
ERROR

R1,$REGO
arR0, SREG1
103

CLR
ADD

aro
#-40,R2

DEC

RTI

BNE

"CNT.RESET'

IS THE

1S LOCATED.

;THIS IS A VERY BASIC ERRR IF
;OCCURS GO BACK TO TEST 10
;CHECK IF SIN IS SET, IF SET
;00 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
;SET UP ADRES .FOR RK11 TO INTERUPT
SET UP PSW ON INTERUPT
;SET PROCESSOR PRIORITY LEVEL AS

;INDICATED BY R2
;SET THE IDE BIT
;WAIT FOR THE RK11 INTERRUPT

;WAITING TIME=78 US FOR 11/20
;13 US FOR 11/45

;WAS THE CPU PRIORITY LEVEL LESS THAN

IF YES, RK11
;THE RK11 LEVEL?
; SHOULD HAVE INTERRUPTED. ERROR,

sIF 1T DID NOT
:GET CPU BR LEVEL
;GET RK(CS

: THOUGH CPU LEVEL WAS LESS THAN

;THE RK11 LEVEL (5), RK11 DID NOT
; INTERRUPT
;CLEAR RKCS
;DECREASE THE PRIORITY LEVEL (FOR
:CPY) BY 1
;CPU WILL B AT THIS LEVEL
;LUP BAK © CHK FOR THIS BR LEVEL.

H?;11-CZ$§KF.
P
CZRKKF

4894
4895
4896
4897
4898
4899
4900
4901
6902

4903
4904
4905
4906
4907
4908
4909

4910
4911
4912
4913
4914
4915
4916

4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929

RK11

BASIC

LOGIC

21-FEB-78 08:51

015222

012777

004600

015230
015234
015240
015242
015242

012746
012746
000002

000340
015242

000414

015244
015246

022626
012777

015254
015256

020203
003754

015260
015264
015270

010137
011037

015272

000746

104104

TEST

MACY11
140

164152

64%:

004600

164126

3s:
'

4
N
30A(1052)
21-FEB-78
08:58
PAGE 9!
CHECK THAT RK11 INTERRUPTS AT BRS ONLY

#BADINT,aRKVEC

MOV
MOV

#340,-(SP)
2648, -(SP)

TST41

;;EXIT,TO NXT

(SP)+,(SP)+

:RESTORE STACK POINTER

R2.R3

iV
:1F

RTI

cmpP

MOV

CMP

BLE

#BADINT,3RKVEC

R1,$REGO
aR0, SREGT
104

4949

:RE§¥8:E UNEXPECTED RK11
')

INTERRUPT

TST

:Rgg}gzs UNEXPECTED RK11

INTERRUPT

THIS INTERRUPT OCCURED WHEN

;CPU LEVEL WAS LESS THAN THE
;RK11

:0K.

PRIORITY LEVEL

(5)

THEN IT

IF NOT SO, ERROR

;GET CPU BR LEVEL
:GET RKCS
;RK11 INTERRUPTED WHEN THE CPU

;LEVEL (AS POINTED BY R1) WAS
:HIGHER OR SAME AS THE RK11

;LEVEL (5)

;GO BACK & CHK THE NXT LEVEL

. '-tttttttttt'ttttttt""ttiti"t't'tttttttfittttttt'tttttttttttttt

STEST 41
SIMULATE & CHECK 'OVR' ERROR
;*THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF

THE OVR

;*BIT IN RKER GETS SET.
THEN IT IS CLEARED USING CNTRL RESET
;% 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.

;;ttt*tttttt'itttti't'tttttt'ittttttttttttttttttttttttttttttttttt

015274
015276

000004

TST41:

104413

SCOPE
CNT.RESET

;GO, DO CONTROL RESET

:THIS IS A CALL FOR THE

'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS

493N

4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948

;DONE WITH CHKING FOR ALL LEVELS.

MOV

MOV
MOV
ERROR

001162
001164

SEQ 0090

: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

015300

104421

015302
015306

013701
052701

001350
014532

015312
015320
015326

012777
012777
010177

177377

015332

015340
015342

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

TST.SIN

MOV

;CHECK

DRIVAD,R1

BIS

#14533,R1

033342

164014
164010

MOV
MOV
MOV

#-401,3RKWC
#OUTBUF ,3RKBA
R1,3RKDA

012777

000005

163772

MOV

#5,3RKCS

005002
105777

163764

CLR
TST8

R2
aRK(S

164006

1$:

SIN IS SET,

:SET, DO DRIVE RESET TO CLR IT
:GET ADRES OF DRIVE

:SET BITS FOR LAST CYLINDER (312),

:SUR 1, LAST SECTOR (13)

;READ 401 WORDS
;INTO THIS MEMORY BUFFER
;FROM THIS DSK ADRES, LAST CYL,

:LAST SEC, SURFACE 1
;READ,

;DID CNTRL RDY SET?

MD-11-CZRKKF,
CZRKKF P11

4950
6951
4952
4953
4954
4955
6956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972

4973

4974
4975
4976
4977

015346

015350
0153552

015354
015362
015366

RK11

BASIC LOGIC

21-FEB~78 08:51

TEST 2

MACY11
T41

100410
005202

104002

015370
015376
015400
015404
015412

032777
001006
004737
012737

015414,
015422
015424
015430

022777
001403
004737
104106

015432

104413

104105

BM]

MOV
JSR
ERROR

aRKWC,SREG2
PC.GT2RG
2

INC
BNE

001373

017737
004737

7
N
30A(1052)
21-FEB-78
08:58
PAGE 92
SIMULATE & CHECK 'OVR*' ERROR

163754
021010

001166

040000

163732

021010
040000

001166

140204

163710

2%:

BIT

BNE

JSR

R2
13

g:oooo,aaxen
PC.GT2RG

MOV

#40000, SREG?2

3s:

Cme
BEQ
JSR
ERROR

#140204 ,@8RKCS
48
PC.GT2RG
106

43:

CNT.RESET

ERROR

021010

105

4983
4984
4985
4986
4987
4988
4989
4990
49N
4992
4993
4994
4995
4996
4997
4998
4999
5000

5001
5002
5003
5004
5005

;YES, BRANCH

;NO, WAIT FOK IT
:1F WAITED LONG, REPORT ERROR MESSAGE BECAUSE
;OVR SHOULD HAVE SET HE CAUSING
:CNTRL RDY TO SET BY NOW

;60, GET RK(CS, ER

SCNTRL RDY DID NOT SET AFTER DOING
;AN OVR READ.

SHOULD WAVE

OCCURED

SSETTING CNTRL RDY (HE BECAUSE OF
;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

;ONSIMULATING OVR CONDITIONS

;DID HE & ERR SET WHEN OVR SET IN RKER?
;YES, BRANCH
;GET RKCS, ER
:HE 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

+:1SSUED AND AFTER A CERTAIN TIME
:1F THE *CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED. NOTE THAT

4978

4979
4980
4981
4982

SEQ 0091

:THE PC

IN ERROR MESSAGE

THE

;PC WHERE 'CNT.RESET' IS LOCATED.
:THIS IS A VERY BASIC ERRR IF IT

015434

004737

015440

104102

015442

004737

015446

104102

015450
015454

004737
104026

021356

021402

021504

6$:

JSR

PC,CHKECLR

ERROR

102

JSR

PC.CHKCCLR

ERROR

102

JSR

PC,DRESET

ERROR

;OCCURS GO BACK TO TEST 10
;CHECK IF

'OVR' BIT WAS CLEARED BY

:CON.RESET, IF NOT RETURN HERE.
:CNTRL RESET DID NOT CLEAR OVR
;BIT IN RKER
;CHECK IF "ERR' & 'HE' BIT GOT CLEARED BY
:CON.RESET, IF NOT RETURN HERE.
;CNTRL RESET DID NOT CLEAR
;HE OR ERR BIT IN RKCS.
;60 DO DRIVE RESET

;R/W/S RDY DIDN'T SET

sAFTER THE ABOVE DRIVE RESET,

ttt'tt*ttttttit'ttt'itifiit'titt*iiiit'fit'fittttittttttttttttttt

*TEST 42

SIMULATE & CHECK PCE ERROR

;*THIS TEST SIMULATES 'PROGRAMMING ERROR' & CHECKS IF

:«DETECTED BY PGE BJT IN RKER.

IT IS

THEN A CNTRL RESET IS DONE ¢

J*IT IS CHECKED IF PGE BIT WAS CLEARED.

IT IS ALSQO CHECKED IF
J*THE SETTING & CLEARING OF PGE BIT SEYS & CLEARS HE, ERR
;*BITS IN RK(S.

:;ttttt'iitf'tf""ttiitttti'tiQt'ittt*ttttttttt!ttlt'lttt'tttit'

015456
015460

000004
104413

TST42:

SCOPE

CNT.RESET

;G0, DO CONTROL RESET
sTHIS IS A CALL FOR THE
-

'CNTRL-

MD~11-CZRKKF,
CZRKKF PN

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

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
142

30A(1052)
SIMULATE

21-FEB-78
& CHECK PGE

(0B8:58
ERROR

PAGE

SEQ 009¢

SRESET' ROUTINE. A CONTROL RESET [S
;ISSUED AND AFTER A (ERTAIN TIME
;1F THE 'CNTRL RDY' DOES NOT SET

;AN ERROR IS REPORTED. NOTE THAT

;THE PC IN ERROR MESSAGE S THE
;PC WHERE "CNT_RESET' [S LOCATED.

015462

1046421

015464
015470

013701
013777

001330
001350

163642

015476

012777

002011

163626

015504

104414

TST.SIN

MOV

RKER,R1

Mov

DRIVAD,3RKDA

mMov

#2011,3RKCS

CNT.RDY

;THIS 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 JT

;ADRES

THE

DRIVE,

CYLINDER 0

;SEEK, GO WITH FMT SET

;THIS

IS A PGE

SIMULATION

sTHIS 1S A CALL FOR °*CN.RDY'
;ROUTINE WHICH WAITS FOR CNT
sROY TO SET. IF CNTRL RDY DOES
sNOT 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

001166

BIT
BNE

#4000,3R1
13

JSR
ERROR

PC,GT2RG
105

mov

#4000, 3REG2

;AN ERROR IS REPORTED
;DID PGE BIT IN RKER SET?
:YES, BRANCH
;THIS BIT IN RKER (PGE) DID NOT SET
:G0 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
004737

015546

104413

104106

142210

163574

1%:

021010

2%:

cmMp
BEQ
JSR
ERROR

#142210,8RKCS
28
PC,GT2RG
106

CNT.RESET

s THAT SHOULD HAVE SET.
;01D HE & ERR BITS SET?
;YES, BRANCH

:GO, GET RK(CS, ER
;HE OR ERR BIT DID NOT SET WHEN
;PGE SET [N RKER.
:CLEAR PGE, HE, ERR BITS
:GO, DO CONTROL RESET
;THIS IS A CALL FOR THE 'CNTRL-

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

015550

004737

01555¢4

104102

015556

004737

015562

104102

021356

021402

JSR

PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

;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
;CHECK 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
;CON.RESET, IF NOT RETURN HERE.
;RKCS BITS HE

OR ERR DID NOT

¢GET CLEARED BY CNTRL RESET

s sARRRAERRANCLELERRNARCRASRERACROERCERRERERECOOERRRONRRRARCRARERONRORROCTRTETYE

J*TEST 43

SIMULATE & CHECK NXM ERROR

MD-11-CZRKKF,
CZRKKF P

5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
£088
5089
5090
5091
5092
5093
5094

-a-a-a-a-u-a-a-n()::(:%!
NOWVSMNNN=O
VN

d ond wod

VAVAAVA WA VA

b wd el

VTV

VAL VAW

) wd

5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
143

30A(1052)
SIMULATE
s*THIS

21-FEB-78
08:58
& CHECK NXM ERROR

TEST

PAGE

SEQ 0093

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.

;:ttt'i'tt"t't'tt"tittttt't'Qtt"tt"t'tttlt'tt'ttttttttt"tttt

015564
015566

TST43:

000004
104413

SCOPE
CNT.RESET

:GO,

DO CONTROL RESET

;THIS 1S A CALL FOR THE

°CNTRL-

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

;IF THE *CNTRL RDY' DOES NOT SET

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

1044621

TST.SIN

015572
015574
015600
015606
015614
015622
015626
015632

005002
013700
012777
012777
013777

CLR
Mov

R2
RKCS,RO

Mov

#160000,8RKBA

mov

#67,8R0

BRI
INC
BNE
JSR
Mov

2%
R2
1%
PC,GT2RG
RKW(,SREG2

015634

015636
015640
015644
015652

012710

105777
100410
005202
001373
004737

017737
104113

160000

001350
000067

163526
163522
163516

163500

021010
163464

001166

032777
001006
004737
012737

002000

163446

021010
002000

001166

015700
015704
015706
015712

022710
001403
004737

140266

015714

104413

104106

mov

18:

015654
015662
015664
015670
715676

104105

MoV

1518

ERROR

2s:

3s:

021010

48:

'CNT.RESET'

;GO CHECK

IS LOCATED.

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

015570

001332
177777

;PC WHERE

THAT
THE

SIN

SET

;1F SET DO DRIVE RESET 10 CLR IT

#-1,3RKWC

;WRITE CHECK 1

ORIVAD,3RKDA

;WITH THIS DISK ADRES

SRKCS

113

1IT

WORD

;AT THIS BUS ADRES

(CyL

;WRT CHK, GO, MEX BITS SET

SEC

;0ID CNTRL RDY SET AS A RESULT OF

;YES, BRANCH
;WAITED LONG ENOUGH?
:1F NOT LUP BAK £ WAIT
;GET RKIS, ER
SGET RKW(C

HE?

;CNTRL RDY DID NOT SET ON DOING
;A WRT CHK WITH A NXM LOCATION.
;THIS HE SHOULD HAVE SET THE
;CNTRL RDY BIT IN RKCS

BIT

#2000, 3RKER

3s
PC,GT2RG
#2000,8REG2
105

sYES, BRANCH
;60 GET RKCS, RKER
sTHIS BIT (NXM) DID NOT SET IN RKER
;NXM BIT DID NOT SET IN RKER ON

CHP
BEQ
JSR
ERROR

#140266,3R0
4%
PC.GT2RG
106

;0ID HE & ERR BIT SET?
;YES, BRANCH
.60, SET RKCS, RKER
sHE OR ERR BIT DID NOT SET WHEN

BNE
JSR
MoV
ERROR

CNT.RESET

;DID NXM BIT IN RKER SET?

;SIMULATING NXM CONDITION.

;NXM ERROR WAS SIMULATED
;CLEAR NXM, HE, ERR BITS
;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. NQTE 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

5118
5119
5120

1. ]
— (=F
NN
~NO NI
wn ~ OOV

d
rd
i
D e
)
cnd
i
ol
h
el
—

~N -~ NNOOOROOOROONO o v

d —h il

(W IV AV AV AV LC (W LV AV AV LV LV (V. [V LV LAV LV LV LV LV 1V )

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

TEST

MACY11

143

D
8
21-FEB-78
08:58

30A(1052)

SIMULATE & CHECK NXM ERROR

PAGE 95

SEQ 0094

sTHIS

015716

004737

015722

104102

015724

004737

015730

104102

015732

004737

015736

104016

021356

021402

5%:

021436

6%:

ASA

JSR

PC.CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

JSR

PC,TSTRUWS

ERROR

AR AR

IS A

VERY BASIC

ERRE

;OCCURS GO BACK TO TEST 10
SCHECK IF 'NXM' BIT GOT C;LEARED BY

sCON.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 RK(CS.
;60 CHECK IF R/W/S RDY ]S SET §
SWALT FOR IT.
SKIP ERROR
sR/W/S RDY IS NOT SET

AR ARl

ittt

Rtidtlti

ittt

IS SET

]

SIMULATE €& CHECK NXD ERROR

JrTEST 44

:*THIS TEST SIMULATES NON-EXISTENT DISK ERROR & CHECKS IF
;17T IS DETECTED BY NXD BIT OF RKER.
IF ALL EIGHT ARE PRESENT

s*THEN THIS TEST
AR

015740
015742

000004
104413

AAAS

TST44:

AR R

ARl

IS ABORTED FOR SIMULATION CANNOT BE DOWE.

SCOPE
CNT.RESET

dlalidd

:THIS

104421

015746
015752

013700
012702

001332

015756
015762

010277
104417

163356
000001

015766
015772
015774

105777
100004
062702

163334

016000

iitis

ssisslsslisd!

: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

015744

'CNT.RESET'

IS LOCATED.

IS A VERY BASIC ERRE IF

:OCCURS GO BACK TO TEST 10

TST.SIN

sCHECK IF SIN IS SET, IF SET
;DO DRV RESET TO CLR IT

Mov
MOV

RKCS,RO
#160000,R2

MOV

RZ,RKDA

1578

aRKDS

;TIME DELAY, 7.5 US ON 11/20,
;1.5 US ON 11745
;1S 17 PRESENT?

001366

BNE

;REVERSE ORDER. I.E. 7.6,...
;LUP BAK & TRY TO FIND A DRIVE

016002

000435

TST4S

;EXIT TO THE NXT TST

016004
016010

012710
104417

000015
000106

mov
DELAY

#15,3R0
,106

;DRIVE RESET, ON A NX DRIVE

016014
016020
016022
016026
016034

105777
001006
004737
012737
106105

163310

TST8

adRKER

;DID NXD BIT IN RKER SET?
:YES, BRANCH
;GET RKCS, RKER
;THIS BIT (NXD) IN RKER DID NOT SEY
;NXD BIT DID NOT SET ON TRYING
;TO PERFORM A FUNCTION ON A

160000
18:

DELAY

BPL
ADD

160000

021010
000200

2%:

001166

BNE
JSR
Mov
ERROR

2%
#-20000,R2

3s
PC,GT2RG
#200,$REG2
105

;ADRES DRIVE 7 TO FIND
SiF IT IS PRESENT

;ADRES DRIVE # POINTED TO BY R2

:NO, BRANCH
;ADRES THE NXT DRIVE IN THE
sTHAT'S NOT PRESENT

;TIME DELAY, 525 US ON 11/20
;105 US ON 11/45

MD~11-CZRKKF,
CIRKKF PN

5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186

5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

5223

5224
5225
5226
5227
5228
5229

E
8
30A(1052)
21-FEB-78
08:58
SIMULATE & CHECK NXD ERROR

PAGE 96

SEC 0095

JNON-EXISTENT DRIVE
;CHECK THAT THE JUMPER CARD CONTAINING
:JURPERS FOR DRIVES PRESENT [S PROPERLY
; CONNECTED
;NOTE THAT ON RK11C IF A DRIVE

;1S OFFLINE BUT PHYSICALLY PRESENT
;(IE. DRY IS CLR FOR THAT DRIVE)

016036
016042
016044
016050

022710
001403
004737

016052

104413

016054

004737

016060

104102

016062

004737

016066

104102

016070

004737

016074

104016

104106

140214

CMP
BEQ
JSR
ERROR

4S:

CNT.RESETY

;YES BRANCH
JHE OR ERR BIT DID NOT SET
;WHEN NXD WAS SIMULATED
;CLEAR NXD, HE, ERR BITS
:60, DO CONTROL RESET

JSR

PC.CHKECLR

;CHECK

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

sCHECK IF 'HE® © 'ERR' BITS WERE CLEARED
;BY CON.RESEY. IF NOT RETURN HERE.
sCNTRL RESET DID NOT CLEAR

JSR

PC,TSTRWS

;G0 CHECK & WAIT FOR R/W/S RDY

ERROR

021356

021402

5%:

021436

#140214 ,aR0
43
PC,GT2RG
106

;8 A FUNCTION IS INITIATED ON THAT
sORIVE NXD WON'T SET, BUT U WILL
sGET ONLY A DRE,HE § ERR.
:DID HE & ERR SET WHEN NXD SET?

3s:

021010

;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
;0CCURS GO BACK TO TEST 10
IF

°*NXD*®

BIT WAS CLEARED BY

;CON.RESET. IF NOT, RETURN HERE.
sCNTRL RESET DID NOT CLEAR
;NXD BIT

IN RKER

;HE OR ERR BIT IN RKCS
;70 SET.

IF SET SKIP ERROR

:Régls SHOULD BE
N

SET,

IT'S

;:ttlttfit"t't"tt‘ti""'t""'ttt"tiQ't"ttttittt'it'tttttttt'

SeTEST 45

;*THIS

5215
5216
5217

5218
5219
5220
5221
5222

MACY11
T44

SIMULATE & CHECK NXC ERROR

TEST

SIMULATES

THE NON-EXISTENT

CYLINDER ERROR & CHECKS

;¢IF IT IS DETECTED BY THE NXC BIT OF RKER, HE & ERR BITS
;'gzsggcs.
IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL
1

016076
016100
016104
016112

016116
016122

000004
013700
012737
013702
052702
012737

016130

104413

;:tt*t";"'I‘tiQt"tt't"'tIt"i'tt'ii'tiitt'ttlt"'t"fifilt!tltttt
TST4S:

001332
177773
001350

001362

016130

001110

014540

28:

SCOPE
MoV
MOV
MOV

RKCS,RO
#-5,COUNT

;ALLOW "ERROR 133'

Mov

#14540,R2

#38 ,SLPERR

;SET BITS FOR (YL 313

8IS
3$:

DRIVAD,R2

CNT.RESET

;GET ADRES OF

DRIVE

ONLY 5 TIMES

;SET RETURN ADRES FOR

;LUPING ON EROR (SW9)

260, 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,

CZRKKF P11

5230
5231
523¢
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

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
145

30A(1052)

21-FEB-78

08:58
SIMULATE & CMECK NXC ERROR

PAGE 97

;1F

THE

;THE

SEQ 0096

"CNTRL RDY'

DOES NOT SET

AN ERROR [S REPORTED. NOTE THAT

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

0046737
104026

021436

JSR

PC,TSTRWS

ERROR

TST.SIN

163172
000011

MOV
R2 ,aRKDA
MoV
#11,3R0
CHKCRODY

000100

163144

021010
163142

001166

9%:

ERROR

BIT
BNE
JSR

#100,3RKER
43
PC,GT2RG

ERROR

110

MoV

021436

JSR

FRKDA, SREG?

PC.TSTRWS

ERROR
16
CNT.RESET

021504

JSR

ERROR

016220
016224
016226
016232
016236

005237
001405
062702
032702
001334

001362
000040
017740

49:

016240
016244
016246
016252

032710
001003
004737
104106

140000

5%:

016254

104413

021010

6%:

PC,DRESET

INC
BEQ
ADD
BIT
BNE

COUNT
5%
#40,R2
#17740,R2
3s

8IT
BNE
JSR
ERROR

#140000,aR0
6%
PC,GT2RG
106

CNT.RESET

IN ERROR MESSAGE

THE

;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS IS A VERY BASIC ERRE IFf IT
;OCCURS GO BACK TO TEST 10
;GO CHECK & WAIT FOR R/W/S RDY
;70 SET. IF SET SKIP ERROR BELOW
;R/W/S RDY

IS NOT

SET

;CHECK IF SIN IS SET, IF SET
;D0 DRIVE RESET TO CLR IT
;ADRES DRIVE, NXC CYLINDER
;SEEK, GO TO NXC CYL
;GO CHECK IF CONTROL RDY IS SET
;1F SO, SKIP THE EROR MESSAGE.
;SEEK WAS TRIED TO A NON EXISTENT
;CYLINDER, NXC SHOULD HAVE OCCURED
;SETTING CNTRL RDY. BUT CNTRL RDY
;:DID NOT SET.
;DID NXC SET?
;YES,

BRANCH

;GO GET RK(CS, ER

:GET RKDA

NXC DID NOT SET WHEN SEEK
;WAS TRIED TO CYLINDER AS INDICATED

:IN RKDA

:CHECK & WAIT FOR R/W/S RDY,

;1F SEYT SKIP ERROR
;R/W/S SHOULD BE SET
;GO DO CONTROL RESET
;GO DO DRIVE RESET
sNXC DID NOT SET AND DRIVE MAY
:HAVE

TRIED

TO DO A SEEK,

AFTER

;WHICH R/W/S RDY DiD NOT SET
ALLOW ONLY S MESSAGES FOR
;ERROR 133

ADRES 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
:HE OR ERR BIT DID NOT SET IN RK(CS
;WHEN NXC ERROR WAS SIMULATED
;CLEAR HE, ERR, NXC BITS
:GO, DO CONTROL RESET

;THIS IS A CALL FOR THE 'CNTRLJRESET' ROUTINE. A CONTROL RESET IS

;1SSUED 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.
;THIS IS A VERY BASIC ERRR IF IV
;O0CCURS 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

RK11

BASIC

LOGIC

21-FEB-78 08:51

016256

004737

016262

104102

016264
016270
016272
016276
016302

032710
001495
010037
011037
104102

TEST

G
8
30A(1052)
21-FEB-78
(08:58
SIMULATE & CHECK NXC ERROR

MACY11
145

021356

7%:

140000

001162
001164

JSR

PC,CHKECLR

ERROR

102

817
BEQ
MOV
MOV

#140000,3R0
TST46
RO,SREGO
9RO, SREG

ERROR

MRS

AR AR

102

AR R

PAGE 98

JCHECK

SEQ 0097

'NXC'

BIT WAS CLEARED BY

;CON.RESET. IF NOT, RETURN HERE.
JCNTRL RESET DID NOT CLEAR
;NXC BIT IN RKER.
;DID HE & ERR BITS GET CLEARED?
;. YES, EXIT
JGET ADRES OF RK(S
;GET RKCS CONTENTS

sCNTRL RESET DID NOT (CLEAR
;HE OR ERR BIT IN RK(CS

AR AR

RARARRds

iRt

iRttt

)

SIMULATE & CHECK NXS ERROR
J*TEST 46
s*THIS TEST SIMULATES NON-EXISTENT SECTOR ERROR & CHECKS THAT
IT IS CHECKED THAT
;1T IS DETECTED BY NXS BIT OF RKER.
;*WHEN NXS SETS HE & ERR OF RKER ALSO SETS, AND ALL THREE
:*CAN BE CLEARED BY CONTROL RESET.

AR A

016304
016306

000004
104413

AL R

TST46:

SRR

SCOPE

CNT.RESET

sttt

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

ilssd)

'CNTRL-

;RESET' ROUTINE. A CONTROL RESET IS
;ISSUED AND AFTER A CERTAIN TIME
;1F THE °*CNTRL RDY' DOES NOT SET
;AN ERROR IS REPORTED.

016310
016314
016322
016330
016336
016344
016350

013700
013777
052777
012777
012777
012710
104414

001332
001350
000014
177777
033342
000005

163016
163010
162776
162772

MoV

RKCS,RO

8IS

#14 ,3RKDA

MoV

mov
Mov

MOV

CNT.RDY

DRIVAD,3RKDA

#-1,aRKWC
#OUTBUF ,aRKBA

#5,3R0

NOTE

THAT

:THE PC IN ERROR MESSAGE IS THE
;PC WHERE ‘CNT.RESET' IS LOCATED.
;THIS 1S A VERY BASIC ERR® If IT
:0CCURS GO BACK TO TEST 10
;GET ADRES OF DRIVE
;SET BITS FOR SECTOR 12 (DECIMAL)
;READ 1 WORD
s INTO THIS BUS ADRES

sREAD, GO (FROM NX SECTOR)
;THIS IS A CALL FOR 'CN.RDY'

JROUTINE 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
016352
016356
016362
016364
016370
016376

017702
032702
001006
004737
012737

162752
000040

016400
016404

042702
001407

000040

016406
016414
016422

012737
017737

000040

104105

104107

021010
000040C

162710

Mov

BIT
BNE
JSR

001166

001162
001164

#40,R2
1%
PC,GT2RG

MoV

#40,3REG2

BIC

#40,R2

MOV
mov

#40,8REGO
aRKER, $REG1

ERROR

1%:

aRKER,R2

BEQ

ERROR

105

107

;NXS ERROR SHOULD OCCUR NOW
;DID NXS BIT SET IN RKER?

;YES, BRANCH

;GO GET RKCS, RKER

;THIS BIT (NXS) IN RKER DID NOT SET

;NXS BIT DID NOT SET ON SIMULATING
;NYS ERROR
sMASK NXS BIT

;CHECK IF ANY OTHER
;RKER BIT SET
;GET EXPCTD RKER
;GET RKER RECVD
;ONLY "NXS' SHOULD BE SET
; IN RKER, ANOTHER RKER BIT

MD-11-CZRKKF,
CZRKKF P11

342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352

RK11

BASIC

LOGIC

21-FEB-78 08:51

016424
016430
016432
016436

022710
001403
004737

016440

104413

104106

160204

TEST

MACY11

30A(1052)

T46

21-FEB-78

SIMULATE

2%:

021010

#160204 ,a3R0

JSR

PC.GT2RG

(08:58

5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397

SEQ

JWAS SET. (NOTE
;SIMULATED)

'NXS' WAS

;D]0 HE & ERR BITS SET?
;YES, BRANCH

;GO GET RK(CS, RKER

106

JHE

OR ERR BIT DID NOT

SET WHEN

;NXS ERROR OCCURED

:CLEAR NXS, HE, ERR BITS
;GO, DO CONTROL RESET
sTHIS IS A CALL FOR THE ‘'CNTRL-

CNT.RESET

JRESET' ROUTINE. A CONTROL RESET IS
:ISSUED AND AFTER A CERTAIN TIME
;1F THE 'CNTRL RDY' DOES NOT SET

5353
5354
5355
5356
5357

5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378

PAGE

ERROR

3s:

& CHECK NXS

CMpP

BtaQ

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

016442

004737

016446

104102

016450

004737

016454

104102

021356

021402

JSR

PC,CHKECLR

ERROR

102

JSR

PC,CHKCCLR

ERROR

102

J*TEST 47

;PC WHERE

'CNT.RESET'

;CHECK

"NXS'

;CHECL

‘HE'

IS LOCATED.

;THIS IS A VERY BASIC ERRR IFf
;O0CCURS GO BACK TO TEST 10

BIT WAS CLEARED BY

;CON.RESET. IF NOT, RETUEN HERE.
sCNTRL RESET DID NOT CLEAR
;NXS BIT IN RKER
&

'ERR'

BITS WERE

CLEARED

;BY CON.RESET. IF NOT, RETURN HERE.
sRKCS BITS ERR OR HE WERE NOT
;CLEARED BY CNTRL RESET

R0l

0RRiiltsst

ot ittt

sitslls]

SIMULATE & CHECK WCE

;*THIS TEST SIMULATES A WRITE CHECK ERROR AND CHECKS THAT I7
;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
MRS

016456
016460
016464

000004
013700
104413

001332

TST47:

AR R

ARRAAARARRRd

SCOPE
Mov
RKCS,RO
CNT.RESET

iRt

THE WORDS

titil

;60,

[N THE MEMORY BUFFER.

slstislstsdsd

DO CONTROL RESEY

sTHIS IS A CALL FOR THE 'CNTRLJRESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME
;IF THE °CNTRL RDY' DOES NOT SEY
;AN ERROR IS REPORTED. NOTE THAT

016466

104421

016470
016474

033342

016500

012701
012702
012703

016504

062703

177401

;THE PC IN ERROR MESSAGE IS THE
;PC WHERE 'CNT.RESET' IS LOCATED.
sTHIS IS A VERY BASIC ERRR IF IV
;0CCURS GO BACK TO TEST 10

TST.SIN

177400
177777

1%:

;CHECK

Mov
MoV
mov

#OUTBUF ,R1
#-400,R2
#177777 ,R3

ADD

#177401,R3

SIN IS SET,

;SET DO DRV-RESET TO CLR IT

;THIS CODE SETS UP A MEMORY
;BUFFER OF 256 WORDS STARTING
+AT OUTBUF

;FIRST WORD
; SECOND

177400
177001

0098

MD-11-CZRKKF,
CZRKKF P11

5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5411
5412

5413

5414
5415
5416
5417
5418
5419
5420
5421
5422

5423
5424
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452

5453

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11
147

1
8
21-FEB-78
08:58

30A(1052)

PAGE

SIMULATE £ CHECK W(CE

100

SEQ 0099

016510
016512
016514

010321
005202
001373

016516

012737

170007

033360

mMov

#170007,0UTBUF+16 WCE WILL B SIMULATED BY DROPPING A
sBIT IN THE EIGHTH WORD WHICH [S

016524
016532
016540
016546

012777
012777
013777
012710

177400

162602
162576
162572

mov

#-400,aRKW(C

016552

104412

CHKCRDY

016554

104065

ERROR

016556
016564
016566
016572
016600

032777
001006
0046737
012737

BIT
BNE
JSR

#1,3RKER
43
PC.GT2RG

ERROR

105

016602
016606
016610

022710
001403
004737

021010

016616
016620

104413
004737

021356

016624

104102

016626

004737

016632

104102

016614

104105

104106

mov

R3,(R1)¢

;LAST WORD

%:E

;1F

INC

033342
001350
000007

000001

162544

021010
000001

001166

100206

021402

MOV
MoV
MoV

3s:

MOV

NOT,

;STARTING AT THIS BUS ADRES
sWITH THIS DISK ADRES, SEC O,
;WRT CHK, GO

CNT.RESET
JSR
PC,CHKECLR

102

JSR

PC,CHKCCLR

ERROR

102

CONTROL RDY

SET

;DID WCE BIT SET?

;GO, GET RKCS, RKER
;THIS BIT

#100206,3R0
5%
PC,GT2RG
106

ERROR

CYL

;1F SO, SKIP THE EROR MESSAGE.
sCNTRL RDY DID NOT SET
JAFTER WRT CHK

#1,8REG?

5%:

LUP BAK & GENERATE NXT

;SUPPOSED T0 B 174007
;WRT CHK 400 WORDS

;GO CHECK

CMP
BEQ
JSR
ERROR

6%:

sHAVE U GENERATED ALL 256 WORDS?

#OUTBUF ,@RKBA
DRIVAD,3RKDA
#7,3R0

000377

(WCE)

DID NOT

SET

;WCE DID NOT SET ON SJMULATING
;WCE CONDITIONS
2 1S RKCS CORRECT?
;YES, BRANCH
:6O, GET RKCS, RKER
SHE OR ERR BIT DID NOT SET WHEN
;WCE WAS SIMULATED
sCNTRL RESETY
;WAS 'WCE' BIT CLEARED?
;1F NOT, RETURN HERE.

sCNTRL RESET DID NOT CLEAR
;WCE BIT IN RKER
JCHECK

"ERR'

BIT WAS CLEARED.

;NOT RETURN HERE.
:SNESL RESET DID NOT CLEAR

:RK

:;tQ!'*'i"ttt'f'"*'.'Q'"'t"""""'"i".tti.fi'i"""'ti.li

;ATEST 50

CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR

s*THIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR' BIT IS SET IN

J*RKCS AND A SOFY 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
JeTEST, THE PREVIOUS TEST & THE TEST WHICH WRITES DATA
;*BLOCK ON CYLINDER O, SECTOR O, SHOULD BE DONE PRIOR

SRR

016634
016636

000004

104413

1ST50:

;+T0 THIS TEST. A TWO SECTOR 'WRT CHK' WILL BE DONE,
s*CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING
;*WHICH A SOFT ERROR IS SIMULATED.

RE AL RN

SCOPE

CNT.RESEY

RPN

R R ARRR RN

AR RN ER R

NEY

:60, DO CONTROL RESET

;THIS IS A CALL FOR THE °'CNTRL;RESET' ROUTINE. A CONTROL RESET IS
s ISSUED AND AFTER A CERTAIN TIME

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

MD-11-CZRKKF,
CZRKKF PN

5454
5455
5656
5457
5458
5459
5460
5661
5462
5463
5464
5465
5466
5467
5468
5469
5470
54N
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
56482
5483
5484
5685
5486
5487
5488
5489
5490
5491
5492
5493
5494

5495
56496
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

J
8
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 [S THE
;PC WHERE °'CNT.RESET' [S LOCATED.

;THIS IS A VERY BASIC ERRE IF
016640

104421

016642
016646

013700
012737

;0CCURS GO BACK TO TEST 10

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

TST.SIN

001332
170007

MoV
MoV

033360

RKCS,RO

#170007,0UTBUF+16

;WCE

IS SIMULATED BY DRCPPING A BIT

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

162446
162442

000407

DRIVAD,R1
#-1000,3RKW(

Mov
MoV
MOV
MoV
MoV

R1,3RKDA
#407,aR0

ERROR

CHKCRDY

#OUTBUF ,8RKBA

;BUFFER IS CREATED IN THE PREVIOUS TEST.
;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS
;FROM THIS BUS ADRES

sWITH THIS DISK ADRES,

;sWRT

CHK,

GO,

SSE

SEC 0, CYyL O

:GO CHECK JF CONTROL RDY IS SET
;IF SO, SKIP THE EROR MESSAGE.
JCNTRL RDY DID NOT SET AFTER WRT
;CHK. A SOFT ERRUR (WCE) IN

;SECTOR 0 SHOULD HAVE STOPPED
016710

022777

016716
016720
016726
016734

001407
012737
017737
104107

016736
016740

005201
020177

016744
016746
016752
016760

001406
010137
017737
104070

000001
000001
162376

162612

001162
001164

Cmp

#1,3RKER

BEQ

Mov
MoV

ERROR

3s:

162374

001162
162362

2%:

sCHECK ONLY *WCE' BIT SHOULD

#1,3REGO
RKER, SREGT
107

JIF I7'S NOT

R1
R1.3RKDA

BEQ

TST51
R1,$REGO
aRKDA,$REGT
70

CMpP

ERROR

;BE SET?
:YES, BRANCH
JGET EXPCTD RKER
;GET RKER RECVD
;ONLY BIT 'WCE' OF RKER
;SHOULD BE SET (WCE WAS
ERROR
;SIMULATED ABOVE).

;CHECK THAT RKDA INCREMENTED BY

INC

MOV
MoV

001164

sALL CONTROL ACTION.

:1 SECTOR ONLY IMPLYING THAT
sCNTRL ACTION DID STOP AFTER
;SOFT ERROR IN SECTOR O
JoYES, EXIT
;GET EXPCTD RKDA
;GET RKDA RECVD

;RKDA SHOULD HAVE INCRMNTD

;8Y 1 SECTOR ONLY, IT DIDN'T.
;WCE WAS SIMULATED IN THE
;FIRST SECTOR & A WRT (CHK
:0F 2 SECTORS WAS ISSUED.
:CONTROLLER SHOULD STOP AFTER
sOETECTING WCE IN THE FIRST
HENCE RKDA SHOULD
;SECTOR.
: INCREMENT BY 1 SECTOR ONLY

;*TEST 51

R R

A AR

R AR AR

CHECK THAT RX11

R AR

RPN

AR R AN

RN RN

INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET

J*THIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOFT
;*ERROR OCCURS, THEN ALL CONTROL ACTION WILL STOP AND A BUS
;*REQUEST C(INTERRUPT) WILL OCCUR AT THE END OF THE CURRENT
SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOQUS
s+SECTOR.
PREREQUISITES FOR THIS TEST ARE THE, SAME AS THOSE
;*TEST.

MD-11-CZRKKF,

CZRKXF
. P11

5519
5520
5521
5522
5523
55264
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537

5538

5539
5540
5541
5542

5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562

5563
5564
5565

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11
151

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!'.!t"t't't'!'t'Q"!t't"t'tttt't'!'it."QQ!'Q""""".'.

016762
016764

TST51:

000004
104413

SCOPE
CNT.RESET

;60,

;THIS

DO CONTROL
IS

CALL

RESET
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 IN ERROR MESSAGE [S THE
;PC WHERE 'CNT.RESET' IS LOCATED.
;THIS 1S A VERY BASIC ERRE IF IT
;OCCURS GO BACK TO TEST 10

016766

104421

016770

012737

170007

016776
017002
017010
017016
017022
017026
017032
017036
017044

013701
012777
012777
010177
013700
012720
012710
012777
104420

001350
177000
033342
162316
001402
017060
000340
000507
177777

017050
017054

004737

021010

017056

000417

017060
017062
017064

022626
022626
012777

017072
017074

005201

020177

162240

cMpP

R1,8RKDA

JCHECK THAT RKDA INCREMENTED

017100
017102
017106
017114

001406
010137
017737

001162

BEQ
MOV

23
R1,$REGO

JGET EXPCTD RKDA

017116
017116
017122
017126
017130

104111

104003

TST.SIN

033360

16222¢

MOV

ORIVAD,R1

#-1000,9RKW(

#OUTBUF ,aRKBA
R1,8RKDA
RKVEC,RO
#18,(RO)+

JCREATED IN A PREVIOUS TEST.

;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS
sFROM THIS BUS ADRES
;WITH THIS DISK ADRES,

SEC O,

CyL O

;SET UP INTERRUPT VECTOR FOR RK11
JSET PSW ON INTERRUPT
JWRT CHK, GO. SSE, IDE SET
JWALT FOR INTERRUPT FROM RK11

:TIME=485 MS FOR 11/20,
;97 MS FOR 11/45

cmMp
CHp

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

JRESTORE STACK POINTER (FROM RK11
JPOP STACK (FROM WAT.INT)

;ADRES FOR UNEXPECTED INTERRUPTS

MoV

ERROR

#BADINT ,QRKVEC

aRKDA, SREG1T
3

:11/05

:RK11 DID NOT INTERRUPT AFTER A SOFT
;ERROR (SIMULATED)

;RESTORE RK11

SECTOR O

:BY ONLY 1 SECTOR BEFORE INTERRUPT
;OCCURRED
;GET RKDA RECVD

JRKDA SHOULD HAVE INCREMENTED BY

:1 SECTOR ONLY, IF ALL CNTRL ACTION

: (SIMULATED)

RTI

#340,-(SP)
#6488 ,-(SP)

INTRUPT)

INTERRUPT VECTOR

:HAD STOPPED AFTER SOFT ERROR

MOV
MOV
64%:

IS SIMULATED BY DROPPING A BiT

INC

000340
017130

1R R

012746
012746
000002

SET,

PC.GT2RG

MoV

001164

JSR

ERROR

162310

SIN

;IN THE EIGHTH WORD (WHICH IS 174007)
;NOTE THAT THE 256 WORD MEMORY
JBUFFER (STARTING AT QUTBUF) IS

mMov
#340,3R0
MoV
#507 ,8RKCS
WAT.INT 177777

162266

sSET DO DRIVE RESET TO CLR IT

#170007,0UTBUF+16 ;WCE

MOV
MOV
MoV
MOV

1$:
004600

;CHECK

MOV

MoV

162324
162320

5510
5511
5512
5513
5514
5515
5516
5517
5518

RK11

IN SECTOR 0.

IT DID NOT.

SEQ 0101

MD-11-CZRKKF,

CZRKKF P11
5566
5567
5568
5569

5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
ggg%
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
ggg?

017130

RK11

BASIC LOGIC

21-FEB-78 08:51
005077

TEST 2

30A(1052)
21-FEB-78
(08:58
PAGE 103
CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET

162176

CLR
A

AARE

AAAL

TETEST 52

aRKCS
A

AR AR

JCLEAR THE
AR

;*SHOULD OVERFLOW INTO THE MEX BITS.
;*THAT
IR

017134
017136
017142
017146
017150

000004
013700
012701
005002
012737

017156
017162
017166
017170

104417
004737
104016
104413

TST52:

001332
177774

017156

:+01,10,11,900.
RN

SCOPE

000142
021436

1$:

R TR

mMov

RKCS,RO

CLR
Mov

R2
#1838 ,SLPERR

mov

001110

THE OVERFLOWING BIT

ARRR

DELAY
JSR
ERROR

CAN MAKE

dl]

AT AR

SIMILIARLY IT IS CHECKED

THE MEX BITS COUNT

A R AN EANRARN

N RN

-4 R

;SEY UP THE

,142
PC,TSTRWS
16

;TIME DELAY
:WAIT FOR R/W/S RDY
sR/W/S RDY IS NOT SET

CNT.RESET

AN O NN

COUNT

SINITIALIZE MEX BITS 70 B SET [N RKCS
;SET RETURN ADRES FOR
sLUPING ON EROR (SW9)

;60,

DO CONTROL RESET

;THIS IS A CALL FOR THE

'CNTPRL-

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

s1F 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

177777
001350
177776

5602
5603

017216

052710

000007

5606
5607
5608
5609
5610
5611
5612

017222

104412

CHKCROY

017224
017226
017230
017234
017240

104065
010205
062705
042705
011004

ERROR
mMov
ADD
8IC

65
R2,RS
#20,R5
#100,R5

017246
017250
017252
017256
017262

020504
001405
010537
010437
104112

BIC

#177717 R4

5614
5615
5616
5617
5618
5619
5620
5621

CHECK THE MEX BITS IN RKCS

010210
012777
013777
012777

. 5613

IDE BIT

;«THIS TEST CMECKS OUT THE EXTENDED MEMORY BITS OF THE RKCS.
;*THE RKBA IS SET TO 177776 AND A ONE WORD WRITE CHECK IS TRIED.
;*THIS COULD GIVE RISE TO NXM ERROR, BUT EVEN THEN THE RKBA

017172
017174
017202
017210

5604
5605

MACY11
51

mov

R2,aR0

mov

DRIVAD,3RKDA

BIS

#7,aR0

Mov

16
162130
16

mov

#-1,3RKUWC

#177776 ,aRKBA

1S A VERY BASIC ERRE IF

;OCCURS GO BACK TO TEST 10

;SET MEX BITS (AS IN R2)

IN RKCS

:THIS DISK

CYL O

;WRT CHK 1 WORD

iPRES,

SEC 0,

;THIS BUS ALS. NOTE THIS BA
;IN CONJUCTIOn WITH MEX BITS OF RKCS
;WRT CHK, GO

;THERE MAY BE A NXM OR WCE BUT

;WHATEVER THE CASE RKBA SHOULD

017242

042704

000020
000100

177717
001162
001164

3s:

Mov

CMP
BEQ
Mov
Mov

ERROR

;OVERFLOW MAKING THE MEX BITS COUNT
;GO CHECK IF

CONTROL RDY IS SET

;IF SO, SKIP THE EROR MESSAGE.
sCNTRL RDY DID NOT SET AFTER WRT CHK

aR0, R4

sMEX BITS SHOULD INCREMENT BY 1 TO THIS
;MASK OUT IDE BIT POSITION, IF SET
;GET RKCS

R5,R%
4%
RS ,SREGO
R4 ,$REGY

;DID MEX BITS INCREMENT CORRECTLY?
;YES, BRANCH
;GET EXPCTD MEX BITS
;GET MEX BITS RECVD

112

sMASK OUT ALL BITS EXCEPT MEX

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

5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644

5645
5646

5647

5648
5649
5650
5651
5652
5653
5654

RK11

BASIC

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

TEST

162040

4s:

MoV
MOV
8IC

58:

104

SEQ 0103

;GET RKER

5%
#177776 RS

;MASK WCE,DLT,NXM BIT, IF SET
;BRANCH IF REST OF RKER CLR
sMASK NON-WCE BITS

Mov
ERROR

IRKER,SREG1
107

;GET RKER RECVD
;ERROR IN RKER.

ADD

#20,R2

IT SHOULD
IN
;BE AS EXPECTED
;ERROR MESSAGE
; INCREMENT TO NXT MEX BIT

BNE

; 1F NOT, LUP BACK

Mov

001164

PAGE

;ERROR MESSAGE.

SRKER,R3
R3,RS
#3001,R3

BEQ
BIC

000020

30A(1052)
21-FEB-78
08:58
CHECK THE MEX BITS IN RKCS

003001
177776
001162
162014

MACY11
152

RS5,$REGO

INC

sTHIS IS THE EXPCTD RKER

sHAVE U CHKD THE MEX BITS 4

TIMES?

T
s
IIYNYY

TRANSFER FROM DISK TO TTY

;*TEST 53

s* THIS TEST CHECKS THE HIGH ORDER BITS OF THE ADDRESS

;v
;v
:*
:*

LINES.
FIRST A ONE WORD (100) IS WRITTEN ON SECTOR,
2, CYL 0.
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.

seIF IT IS NOY, AN ERROR IS REPORTED.
I

017330

017332

000004

012737

000001

001206

TST53:

;*SKIPPED ON AN 11/05.
T

SCOPE
MOV

#1,STIMES

;.00 1

THIS TEST IS
T

ST LRI

JTERATION

:THIS CODE FINDS OUT IF THE CPU

;1S AN 11/05 OR ELSE.

;ON AN 11705, RO (177700) CAN BE
;ADDRESSED AS A MEMORY LOCATION, BUT

5655
5656
gggg

017340
017346
017352

012737
005737
012737

5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675

017360
017362
017364
017372
017376
017402
017404
017404
017410

000520
022626
012737
012746
012746
000002

5676
5677

LOGIC

013700
104413

017362
177700
004534

004534
000340
017404

001332

000004
000004

000004

5%:

649 :

Mov
TST
Mov

58,304
ar177700
#BADTMO,a#4

B8R

TST54

(mp
Mov
MOV
Mov
RTI

(SP)+,(SP)+
#BADTMO ,a¥4
#340,~(SP)
#64$,-(SP)

MOV
RKCS,RO
CNT.RESET

;ON ANY OTHER CPU IF 177700 IS REFERENCED
+A TINE OUT WILL OCCUR.

:SET UP TIME OUT VECTOR
;REFERENCE RO
;RO WAS REFERENCED W/0 TIMEOUT

;HENCE 11/05
;:SKIP TH1S TEST

;RESTORE STACK POINTER
SRESTORE TIMEOUT VECTOR

:G0, DO CONTROL RESET

;THIS 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
sPC WHERE 'CNT.RESET' IS LOCATED.
0176412

012701

033342

Mov

#0UTBUF ,R1

;THIS 1S A VERY BASIC ERRR IF IT
;O0CCURS GO BACK TO TEST 10
L)

’

MD-11-CZRKKF,
CZRKKF .P11

5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705

5706
5707
5708

5709
5710
5711

5712
5713
5714
5715
5716
5717
5718
5719
5720
5721
5722
5723
5724
5725
5726
5727
5728
5729
5730
5731

5732
5733

017416
017422
017426
017434
017440
017444

017450

017452
017456
017460
017462
017464
017466
017470
017474
017500
017502

RK11

BASIC LOGIC

21-FEB-78 08:51

013704
012711
012777
013702
052702
010277
010114
012710
005003
005203
001374
004737
010237
104416
104031

012777
010277
013714
005077

017526

012710
005003
105710
100610
005203
001374
004737
010237
104416
104045

177777
161622

Mov

BRKDA4
ERROR
161622

28:

001144

161416

000065
3s:

020774
001202

032737

000100

017566
017570
017574
017600
017604
017610
017614
017620

001015
017705
010537
052705
010537
011437
011037

161350
001164
000100
001162
001166

001170

MoV
Mov
MoV
CLR
TSTB
BMI

INC
BNE
JSR

020774
001202

08:58

RKBA, R4
#100,3R1
#-1,3RKWC

DRIVAD,R2

#2,R2
R2,3RKDA
R1,3R4
#3,aR0
R3

aR0
2$
R3
18
PC,GT4RG
R2,$REG10

PAGE 105

SEQ 0104

;WRITE THIS WORD
JWRITE

WORD

;ON CYL 0, SEC 2
;FROM THIS MEMORY LOC

;WRITE, GO
A)

;GET RKCS,

ER,

;GET THE STARTING ADRES
¢BREAK IV INTO DRV #, CYL, SUR, SEC #
;CNTRL RDY DID NOT SET AFTER
;WRITE OF

WORD ON CYL 0O,

#-1,3RKWC
R2,aRKDA
$TKS,3R4
as$TKS

sREAD 1 WORD

Mov
CLR
1578

#65,aR0
R3
.
aR0

sREAD, MEX BITS SET

BMI
INC
BNE
JSR

BRKDA4
ERROR

4S:

Mov
MoV
Mov
CLR

MoV

001144

21-FEB-78

TRANSFER FROM DISK TO TTY

BIS

1%:

30A(1052)
mov
mov
Mov
MoV

000003

017560

104115

MACY11
153

161700

105710
100410

017504
017512
017516
017522

017532
017534
017536
017540
017542
017544
017550
017554
017556

0C1336
000100
177777
001350
000002
161670

TEST 2

PC,GT4RG

R2,.SREG10
45

BNE

TST54
a$TKS,RS
RS,$REG]
#100,R5
RS, $REGO
R4, SREG2
3RO, SREG3
115

MoV
MOV
MoV

ERROR

;CLEAR TTY KEY BRD STATUS REG

#100,87KS

BIS

;FROM SEC 2, CYL D
;INTO TTY STAUS REGISTER

BIT.
MoV
mMov

SEC 2

;GET THE STARTING ADRES
sBREAK IT INTO DR#, CYL, SUR, SEC#
sCNTRL RDY DIDN'T SET AFTER

;READ OF 1 WORD FROM CYL 0, SEC 2.

s 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
STATUS REGISTER?
;THE TTY
;s YES, EXIT
;GET THE WORD RECVD FROM DISK

:THIS WORD WAS EXPCTD
:STORE EXPCTD WORD
;GET RKBA
+GET RKCS

;DATA ERROR. A ONE WORD (100)

;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

'""t'tIt"tt't'Qt'i't"ti1t""il""'i’"Qtt.tt"t't'i!'tiltt""

TRTEST 54

CHECK THAT RKBA CAN COUNT CORRECTLJ

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
754

9
8
30A(1052)
21-FEB-78
08:58
PAGE 106
CHECK THAT RKBA CAN COUNT CORRECTLY
s*THIS TEST

017622
017624
017632
017634

000004
012737

017636

005001
012702

000002

017642

012737

017654

017650
017654
017660
017662
017664
017672
017674
017702
017710

012705
004737

001336
021436

012777
010115
013777
012777

177777

161442

001350
000067

161436
161422

017712

104065

104421

104016
104413

104412

0000G5

001206

AR AR

1$:

ARl

SCOPE
MOV

#5,8TIMES

;:D0 5

CLR
Mov

R1
#2,R2

;INITIALIZE
JINITIALIZE

Mov

#18 ,SLPERR

TST.SIN

001110

THAT RKBA CAN COUNT CORRECTLY.

]S SET

;*T70 THE DESIRED INITIAL VALUE.
THEN A ONE WORD WRITE (MECK
;¢IS TRIED, WITH MEX (MEMORY EXTENSION) BITS SET. [F THERE IS
;*NO MENORY PRESENT (FOR CERTAIN BUS ADDRESSES),
THERE
;*WILL BE AN NXM ERROR STOPPING CONTROLLER ACTION. BUT RKBA
;*SHOULD HAVE INCREMENTED BY 1 FROM ]TS INITIAL VALUE. IF IT
;*HAS NOT, AN ERROR IS REPORTED.

ASAS AL

TST54:

CHECKS

SEQ 0105

SCHECK

Rsess

ITERATIONS
IF

SIN SET,

SET

DRV RESET

(VALUE OF RKBA)
(INCMNTD VALUE OF RKBA)

sSET RETURN ADRES FOR LUPING

;ON EROR

MOV
RKBA,RS
JSR
PC,TSTRWS
;WALT FOR R/W/S RDY
ERROR
16
;R/W/S RDY IS NOT SET
CNT.RESET
;DO CONTROL RESET
Mov
#-1,3RKWC
;WRITE CHK 1 WORD
Mov
R1,3R5
;THIS BUS ADRES
Mov

Mov

CHKCRDY

ERROR

DRIVAD,3RKDA

:SET DISK ADRES

#67,8RKCS

SWRITE CHECK, GO, MEX BITS SET

;1F SO, SKIP THE EROR MESSAGE.
:CNTRL RDY DID NOT SET AFTER

;GO CHECK

;WRT

CHK WAS

CONTROL RDY

TRIED

SET

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

INC
BEa

INDX1
5%

CMpP

R2,aRS

BEQ
Mov
MoV
ERROR

43
R1,$REGO
aR5,$RERT
17

;CHECKING MEX BITS & NXM.

;ALLOW ONLY 5 ERRORS OF ABOVE KIND

;DID RKBA INCREMENT BY 1
;ITS INITIAL VALUE?

FROM

;YES, BRANCH
;GET EXPCTD RKBA
;GET RKBA RECVD
;RKBA 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

INC

001360
48:

000002
5%:

BEQ

ADD
MOV
ADD
BNE

INDX?2

R2,R1
R1,R2
#2,R2
1$

; INCREMENT BY 1 FROM ITS
s INITIAL VALUE.
;ALLOW ONLY S ERRORS OF
: THE ABOVE KIND

;SET NXT VALUE OF

RKBA

;SET EXPCTD VALUE OF
;ALL DONE?

;DUMMY EXIT POINT

RKBA

MD-11-CZRKKF,
CIRKKF .P1T

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

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

9
C
30A(1052)
21-FEB-78
08:58
PAGE 107
CHECK THAY RKBA CAN COUNT CORRECTLY

MACY11
154

SEQ 0106

-;"tt'i""'i"'fi'"'Q"""'t"'.""""tt"'!t.ttt'tt't"ttt'

TRTEST 55

CHECK FOR RK-OSF

;*THIS TEST CHECKS RK-OS5F TYPE DRIVES
;*T0 INSURE THAT IF SEEKS ARE ISSUED ON ONE
;*DRIVE, THE OTHER DRIVE BECOMES BUSY

';tt""'.""'t""'i"t""'t""'tt"'tt'tttt't'ttt'tt't'tt'!Q

017760
017762
017770
017774
017776
020002

000004
012737
005737
001403
004537
104120

000001
001464

001206

TSTSS:

SCOPE

#1,8TINES
FFLAG
13
?gércuficx

mov
TST
BEQ
JSR

025160

ERROR

020004

;:D0 1 ITERATION
JSEE IF RK-0SF
JNOT F
JSEE IF OTHER GOES BUSY

1$:
AR

ALA

SRSl

;*TEST 56

s*THIS

020004
020006
020014

000004
012737
005237

000001
001352

020020
020024
020026

004737

021504

023737

001412

020034
020036
020044

001405
062737
000137

020000
005040

020050

005037

001112

104026

001206

001352

TST56:

ARl

SCOPE

Mmov

JSR
ERROR
(MNP

AL A

iRttt

isitaliiiississd)

2222220220221

PC,DRESET

JRESET

(LR

SERTTL

THE NUMBER

;OF DRIVES THAT ARE CHECKED
THE DRIVE

;R/W/S DIDN'T SET AFTER DRIVE RESET
SHAVE U TESTED ALL THE DRIVES

s THAT ARE PRESENT?

13
#20000,DRIVAD

::D0 1 ITERATION
;INCREMENT THE COUNT FOR

NUDRV

RAAR

#1,8TIMES
DRVDON

JMP

s*TEST 57

ORIVS,DRVDON

ADD

1%:

BEQ

001350

;*THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT.
;*NOTE THAT THE NEXT TEST- HARDWARE POLLING LOGIC;*1S DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT.
;*DO NOT LOOP ON THIS "TEST'.

INC

BTECP:

Rttt

END OF PROGRAM
IS NOT A TEST, BUT A LINKAGE PROVIDED TO PERFORM

;1F YES, EXIT
;ADRES THE NXT POSSIBLE DRIVE
;GO BACK AND TEST THE NEXT

;DRIVE PRESENT

ottt

ilaiilsl]t

CHECK HARDWARE POLLING LOGIC

s*THIS TESY 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 4 SO THAT RK11 CAN INTERRUPT, THE INCOMING
;*INTERRUPT IS PROCESSED TO CHECK IF IT WAS DUE TO 'SEEK DONE' 8Y
;*ONE OF THE DRIVES.

;%4)

020054

000004

IF BY THE END OF

THE

SET

TIME A DRIVE HAS NOT

INTERRUPTED

;*AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOY
J*INTERRUPT AFTER SEEK WAS DONE.

AR AR RSS2 RLRRRRRRRRRRRRRRRRRRRRRARRRRRRRRRRR
R
)]

TSTS7:

SCOPE

MD-11-CZRKKF,
CZRKKF P11

5846

5847
5848
5849
5850
5851
5852
5852
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873

5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901

020056
020064
020070
020072

RK11

BASIC

LOGIC

21-FEB-78 08.5"?

012737
005237
001002
004737
005037
012700
005710
001405
005237
005710

000005
001440
025304
001436
001414

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

TEST

MACY11
157

001206

mov
INC

25%:
238:

001436

100001

001433
001406
001412

]
30A(1052)
21-FEB-78
(08:58
PAGE
CHECK HARDWARE POLLING LOGIC

22%:

156:

208:

15%:

BNE
JSR
CLR

Mmov

TST
BEQ
INC
TST
8PL
187
TS1
Cmp
8LY
CLR
ST
BNE
JMP
INC
mov
CLR

CLR

#5,8TIRES
SIZYET

25%

PC,SIZEF
PHYDRYV

108

SEQ 0107

;:D0 S ITERATIONS

;FOUNR RKOSF

JYES

YET?

JFIND WNICH ARE

RK-0SF

PHYDRV

;NUMBER OF ACTUAL DRIVES
; TABLE
;ORIVE HERE+?
sNO
;COUNT DRIVE

228
¢+
(RO)

:NO
DONT COUNT F

233

;NO

#DRIVO,RO
(RO)

22%

(RO)

;RKOSF?

(RO)+
;NEXT DRIVE
RO,#DRIV7+1
JALL YET
ODDEVN
DRIVS

20%

$EOP
T56FLG
RKCS,RO

INDXT

INDX2

CNT -RESETY

TWICE

JEVEN DRIVES FIRST IF F
;ANY DRIVES PRESENT?
JYES
;NO
;FLAG TO INDICATE:

; CINDX1)=0 POLLING DONE AFTER ALL
;DRIVES SEEK TO CYL O
;s CINDX1)=1 POLLING DONE AFTER ALL

JDRIVES SEEK TO CYL 4
JFLAG INDICATING TYPE OF INTERRUPT
;SET TO NON-ZERO TO INDICATE
:THAT THE INTERRUPT IS DUE T0
s SEEK DONE
G0, DO CONTROL RESET
STHIS 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.
sTHIS IS A VERY BASIC ERRR IF IT

020174

020200
020202
020204
020206
020212
020216
020222
020226

020230
020232
020234
020240
020244
020244
020250

005737
001002
005002
000402
012702
012701
012703

001356

000200
001414

Mov
Mov
MoV
Mov

17777¢

012705
005025

033342

012705

033342

012746
012746

100340

005203
001375
012703

IST
BNE
CLR
BR

(LR
INC
BNE
MoV

177770

020256

1%:

INDX1
.+6

.46

#200,R2
#ORIVO.R1
#OUTBUF ,R>

(R5)+

MoV

R3
.~4
#-10,R3
#OUTBUF
RS

MOV
MOV

#340,-(SP)
#64%,-(SP)

;OCCURS GO BACK TO TEST 10
sPERFORMING SEEKS TO CYL 4
:YSS. BRANCH
;N

;SE{ ADRES FOR FOURTH CY'INDER
;INITIALIZE POINTER

;SET COUNT FOR 8 DRIVES
sINITIALIZE POINTER TO INDICATOR AREA
;CLEAR QUT THE 8-WORD INDICATOR

sAREA WHICH IS USED FOR DOING
; SOFTWARE POLLING LATER ON
;SET COUNT FOR 8 POSSIBLE DRIVES
JINITIALIZE POINTER TO INDICATOR AREA

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

RK11

BASIC LOGIC

21-FEB-78 08:51

020254

000002

020256
020262
020264
020266
020270
020274
020276
020302
020304
020306
020312
020314

032711
001433
005711

000001

032702
001404
005737
001423
000403

20000

020256

020316
020322
020324
020326

100012

005737
001017

001406

:
643

16%:

020774

020342

010277

160772

5930
5931
5932
5933
5934
5935
5936
5937
5938
5939

020346
020352
020354
020360
020362

012710
005721
062702
005203
001330

000111

5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957

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

020000

109

RTI

B!
8eaQ
BIT
BEQ
TST
BEQ
B8R
TST
BNE

mov

#8170, (RT)
3
{(R1)
178
#BIT13,R2
16%
ODDEVN
43
17%
ODDEVN
3
R2, (RS)

BIC
CLR
1STB
BMI
INC
BNE
JSR
ERROR

#17777,(RS5)
¢
R&

3s:

MOV

R2,8RKDA

4%:

MOV
TST
ADD

#111,3R0
¢
(R1)

2%:

001374
004737

9
E
30A(1052)
21-FEB-78
08:58
PAGE
CHECK HARDWARE POLLING LOGIC

TST
BPL

017777

020330
020332
020334
020340

5940

MACYT1
157

17%:

105710
100405
005204
104021

001406

010215

042725
005004

TEST

INC
BNE

ar0
3
Ré

PC,GT4RG

#20000,R2
R3
i$

;1S THIS DRIVE PRESENT?
;1F NOT, BRANCH
;RKO6F?
;NO, CONTINUE
;DRIVE EVEN?
JYES

;D0 WE WANT 0DD?
;NO, SO DO NOT TEST
;ADD THIS DRIVE TO LIST
;D0 WE WANT EVEN?
;NO, SO SKIP

JSET UP THIS WORD IN THE
JINDICATOR AREA SHOWING THAT THIS

;ORIVE (AS IN BITS 13-15 OF R2)
;1S PRESENT
JMASK OUT UNWANTED BITS (CYL,SUR.SEC BITS)

;IS CNTRL RDY SET?
;YES, BRANCH
¢NO, WAIT FOR IT
;IF WAITED LONG REPORT ERROK
.60, GET RKCS,ER,DS,DA
;CNTRL RDY DID NOT SET AFTER ACCEPTING
;ADRES FROM PREVIOUS SEEK
;ADRES THIS DRIVE, CYL 0 OR CYL 4
; (WHICHEVER THE CASE MAY BE)
:SEEK,GO,IDE SET
sNEXY DRIVE DATA
s INCREMENT DRIVE ADRES (BITS 15,14,13)
;70 NEXT ONE

;BRANCH BACK [F ALL DRIVES ARE
sNOT CHECKED TO SEE IF THE NEXT

:DRIVE IS PRESENT (& IF SO ISSUE A
;SEEK TO IT)
sBY NOW SEEKS HAVE BEEN ISSUED
;TO ALL DRIVES PRESENT & POLLING

001402
020424
000340
001400
020414

5%:

18$%:

001360

6%:

CLR

MOV
mov

mov
Mov
mov
RTI
NOP
INC
BNE
BR

Ré&
RKVEC,R2
#68,(R2)+
#340, (R2)
RKPRI,-(SP)
#18%,-(SP)

18%
1%
(SP)+,(SP)+

CMP
TST

INDX?2

BNE

;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
;BRANCH AND CHECK IF ALL AVAILABLE
;DRIVES INTERRUPTED CORRECTLY
;RESTORE STACK POINTER
;WAS THIS FIRST INTERRUPY
;DUE TO 'ADRES ACK' AFTER INITIATION
.OF SEEK?
sIF YES, CHECK THE FOLLOWING

SEQ 0108

MD-11-CZRKKF,

CZRKKF P11

5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969

5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991

5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006

6007

6008
6009
6010
6011
6012
6013

RK11

BASIC

LOGIC

21-FEB-78 08:51

020434
020440
020442
020446

032710
001403
011037

020450
020454
020460
020462
020466

017701
032701
001403
010137

001162

020470

005237

001360

104076

104050

020474

000734

020476
020502
020506
020512

013703
012705
0177¢1
042701

020516
020520
020522
020524

020125
001411
005303
001374

020526
020530
020534

010146
004737
012637

020540

104051

020542
020544

000401
005245

02054¢
020550
020554

000707
013703
012705

TEST

MACY11
157

020000
001162

160652
160000

001436
033342

F
9
30A(1052)
21-FEB-78
08:58
PAGE
CHECK HARDWARE POLLING LOGIC

BIT
BEQ

#2000C,aR0

ERROR

Mov

7%:

mov

BIT
BEQ

9%:

160614

017777

INC

INDX2

MOV
MoV
mMov

#OUTBUF ,RS
aRKDS,R1

001436
033342

$n7777,.R1

DEC
BNE

Mov

R1,-(R6)

BEQ

JSR

118:

PHYDRV,R3

R1,(RS5)¢+
108
R3
.~6

CMP

10%:

aRKDS ,R1
#160000,R1

ERROR

BIC

021200
001162

8RO, SREGO

8%
R1,S$REGO
50

MoV

8s:

PC,SHFTRY

Mov

(RE)+,SREGO

ERROR

BR
INC

108+2
=(R5)

5%
PHYDRV,R3

MoV
Mov

#OUTBUF
RS

110

SEQC 0109

;CHECK THAT SCP IS NOT SET
JBRANCH IF SCP CLEAR
;GEY RKCS
JAFTER

THE

FIRST

INTERRUPT WHICH

;1S DUE TO INITIATION OF SEEK,
;SHOULD NOT HAVE SET. IT DID

SCP

;RKDS BITS 15-13 SHLOULD BE (LR
;GET RKDS
;SEEK, WITH IDE SET WAS ISSUED TO
sALL AVAILABLE DRIVES. THE FIRST
;INTERUPT 1S DUE TO SEEK INJTIATED
;BY FRST DRV. DRV ID BITS 13-15
;SHOULD BE CLR AFTR THIS FRST INRUPT,
;THEY WERE NOT IF THIS ERROR OCCURS.
;SET UP FLAG INDICATING
: THAT

THE

FIRST

INTERRUPT DUE

:TO INITIATION OF SEEK WAS
sPROCESSED

;GO BACK TO THE WAIT LOOP & WAIT
;FOR NEXT INTERRUPT FROM RK11

;SET COUNT OF # OF DRIVES PRESENT

..
;INITIALIZE POINTI
RKDS
;GET
;MASK BITS 0-12
:THE FOLLOWING CODE IS A SOF TWARE
;POLL WHICH FINDS OUT WHICH DRIVE
s CAUSED THE PRESENT INTERRUPT
sAND SETS UP A FLAG BIT FOR
;THE ORIVE #, INDICATING THAT
s THIS DRIVE # INTERRUPTED

;BRANCH IF INTERRUPTING DRIVE WAS FOUND
JHAVE U CHKD ALL DRIVS PRESENT?

;IF NOT LUP BAK & CHK
;REPORT ERROR IF THE INTERRUPTING
;ORIVE # (AS IN RKDS 13-15) WAS NOT
sANY ONE OF THOSE THAT ARE PRESENT

;GET WORD TO B SHFTD RT
;GO SHIFY IT
;THIS DRIVE # WAS RECVD

IN RKDS AS

;THE INTERRUPTING DRIVE, BUT THIS
sDRIVE IS NOT PHYSICALY PRESENT
;RKDS INDICATES AN INTERRUPTING

;ORIVE # (DURING H°'WARE POLL) BUT
; THAT DRIVE

IS ACTUALLY NOT PRESENT

sSET UP FLAG INDICATING THAY
;THE INTERRUPT FOR THIS DRIVE
;(AFTER IT HAD COMPLETED ITS SEEK)
+WAS PROCESSED

;G0 BAK € WAiIT FOR FURTHER INTRUPTS
;GET # OF DRIVES
;INITIALIZE POINTER

MD-11-CZRKKF,

CZRKKF . P11

6014
6015
6016
6017
6018
6019
6020
6021
6022

RK11

BASIC

LOGIC

21-FEB-78 08:51

020560
020562
020564
020566
020572

105715
001006
011546
004737
012637

020576

104052

6023
6024
28%2

020600
020604
020606

(62705
005303
001364

0000G2

6027
6028
6029
28%9

020610
020614
020616
020622

005737
001004
005237
000137

001356

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

TEST

MACY11

30A(1052)

14%:

7S18
BNE
MoV
JSR
MoV

(RS)
138
(RS),-(R6)
PC,SHFTRY
(R6)+,SREGO

ERROR

ADD
DEC
BNE

#2 RS
R3
14%

TST
BNE
INC
JMP

INDX1
TSTEND
INDXT
15%

157

021200
001162

15%:

001356
020166

21-FEB-78

08:58

CHECK HARDWARE POLLING LOGIC

PAGE

111

;DID THIS ODRIVE INTERRUPT?
;YES, BRANCH
;GET THIS DRIVE #
JSHIFT 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
;DONE POLLING FOR SEEKS TO CYL 3127
;1F YES, EXIT
;IF NOT, INCREMENT FLAG
;60 DO IT
:INDICATOR TABLE
; THE 8-WGRD INDICATOR TABLE USED IN
s 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
:
020000 CONTAIN THE
:
040000 DRIVE NO.
000000 RESY 0°S
IWHEN 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
;CORRECTLY THEN IT WILL LOOK LIKE:
H
128:
000001 BIT 0 SET
:
020001 TO INDICATE
:
040001 DR INTERRUPTED
:
000000 REST 0'S

21%:

[N(
(mMp
BEQ
JMP
CLR

ggg%

.SBTTL

END OF PASS ROUTINE

606‘0
6065
6066
6067
6068
6069

JiottARLARLEROCERNENRANONERRRRCENRCEORREROCRNRANARARRARRARRANRRORONRERR
;*INCREMENT THE PASS NUMBER ($PASS)
;tINDICATE END~OFf ~PROGRAM AFTER 1 PASSES THRU THE PROGRAM
;*TYPE "'END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
;*1F THERES A MONITOR GO TO IV
;*1F THERE ISN'T JUNMP T0O ST4

6057

6058
6059
6060
6061

020626
020632

005237
022737

001406
000002

020642
020646

000137
005037

020140
001434

020640

001402

001406

TSTEND:

ODDEVN
#2,00DEVN

;NOW 0DD IF RKOSF
;SEE [F DONE

156
TS6FLG

;TEST AGAIN

21%

;ALL DONE

SEQ 0110

MD-11-CZRKKF,

CIRKKF 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
611
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

MACY1S
END OF

SEQOP:

001102
001206
001100
100000

30A(1052)
21-FEB-78
PASS ROUTINE

SCOPE

SEOPCT:

020757
001100

#100000.,8PASS

;:DON'T ALLOW A NEG. NUMBER

DEC
.WORD

377
042412
051501

000
062116
020123

SRINAD:
$ENULL:

SENDMG:

$TIMES
$PASS
(PC)+
1

B8GT

$DOAGN

.WORD
$EOPCT
TYPE
MOV

BEQ

$DOAGN:

SEQ 0111

BIC

$GET42: MOV
$ENDAD:

112

;;IERO THE TEST NUMBER

TYPDS
TYPE

020754
000042

PAGE

S$TSTNM

MOV

SENDCT:

08:58

CLR

(LR
INC

001100

RESET

(PC)+,a(PC)¢

. SENDMG
$PASS,-(SP)

;. YES

;;RESTORE

COUNTER

;s TYPE "'END PASS #"
;;SAVE SPASS FOR TYPEOUT

,SENULL

$DOAGN

;;BRANCH

afée? RO
PC, (RO

JMP
.WORD
.BYTE

a(PC)+
ST4
-1,-1,0

.SBTTL

GT2RG:

.ASCIZ

;.L00P?

2:G0 TYPE-~DECIMAL ASCI]
;:TYPE A NULL CHARACTER

JSR

NOP
NOP
NOP

;s ZERQO THE NUMBER OF ITERATIONS
:; INCREMENT THE PASS NUMBER

WITH

SIGN

;:GET MONITOR ADDRESS
;;CLEAR

THE

NO MONITOR
WORLD

;.60 TO MONITOR
;:SAVE ROOM
;. FOR
JoACTN

; ;RETURN
: sNULL

<15><12>/END PASS #/

CHARACTER STRING

ROUTINE FOR GETTING RKCS,RKER

;SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER

;70 SREGO, SREG1 RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE.
sCALL:
JSR
PC,GT2RG
.SBTTL

GT3RG:

ROUTINE FOR GETTING RKCS, RKER, RKDS

;GT3RG
;SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER, RKDS
;70 SREGO, SREG!, SREG2 RESPECTIVELY BEFORE TYPING OUT AN
;ERROR MESSAGE.
JCALL:
JSR
PC,GT3RG
.SBTTL

GT4RG:

ROUTINE FOR GETTING RKCS, RKER, RKDS, RaDA

;GT4RG
;SUBROUTINE FOR TRANSFERRING CONTENTS OF RK(S, RKER, RKDS

MD-11~CZRKKF,

CZRKKF .P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

6126
6127
g}gg

MACY11

GT4RG:

9
l
21-FEB-78
0B8:58

30A(1052)

PAGE

ROUTINE FOR GETTING RKCS, RKER,

113

RKDS, RKDA

:RKDA TO SREGO, SREG1, SREG2, SREG3I RESPECTIVELY BEFORE
;TYPING QUT AN ERROR MESSAGE.
;CALL:
JSR
PC,GT4RG

6130

020774

017737

160340

001170

GT4RG:

MOV

ARKDA,SREGS

;GET RKDA

6132
6133
6134
6135
6136
6137
6138
6139

021010
021016
0210246

017737
017737
000207

160314
160310

001164
001162

GT2RG:

MOV
MOV
RTS

@RKER, SREG!
aRK(S,SREGO
PC

;GET RKER

6131

021002

017737

160320

6142
6143
6144
6145

6151
6152

6153
6154

6155
6156

GY3RG:

MOV

aRKDS,SREG?2

;GET RKDS

:TYERM
:THIS ROUTINE TYPES OUT 'EROR AT PC=X'
;X IS THE PC WHERE THE
EXPLANATION AS TO WHAT HAPPENED
;IS USED ONLY FOR NON-MANUAL MODE OF THE PROGRAM.

6146

6150

001166

.SBTTL TYERM: SPECIAL ERROR MESSAGE ROUTINE

2122
6147
6148
6149

SEQ 0112

;CALL:

021026
021026

104401

021032

000406

021050
021050
021052

010346
104402

021054

021034

TYERM:
::65%:
64%:

000207

6157
6158
6159
6160
6161
g}g%

JSR

TYPE

THIS ROUTINE

TYERM

,65%

B8R

643

MOV
TYPOC

R3,-(SP)

RTS

.SBTTL

BDAO, BDA4:

JASCIZ

1S GIVEN.

;:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<15><12>/EROR,P(C=/

BREAK DISK ADDRESS INTO SEC,

SUR, CYL, DRIVE

2}22

;BDAO, BDA4

6166
6167
6168
6169

;THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO
DRIVE #,
;CYLINDER #, SURFACE, SECTOR #. THE ROUTINE IS CALLED BY USING EITHER
;BRKDAQ OR BRKDA4, BOTH BEING °'TRAP' INSTRUCTIOS WITH THEIR LOWER BYTES
JENCODED TO PROVIDE INDEXING TO °'BDAO' OR 'BDA4L'. BEFORE CALLING

6170
6171
6172
6173
6174
6175
6176
6177
6178
6179

6180
6181

;THE ROUTINE THE DISK ADDRESS WHICH IS TO BE BROKEN AS ABOVE
;1S DEPOSITED IN SREG10.
;"BRKDAO* PUTS THE
BRKDA4 PUTS THE
;DRIVE # INTO SREGO
DRIVE # INTO SREG4
;CYLINDER # INTO SREG1T
CYLINDER # INTO SREGS
JSURFACE # INTO $REG?
SURFACE # INTO SREG6
JSECTOR # INTO SREGS
SECTOR # INTO SREG?
;CALL:
BRKDAO
BRKDA4

021056

021060

010046

012700

001172

BDAOQ:

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
619¢
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
021110

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
010102
042702
010240
000301
042701
010140

021170
021172
021174
021176

012602
012601
012600
000002

TEST

001202
020000

160036

9
J
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 114
BREAK DISK ADDRESS INTO SEC,
BDAO, BDAG:

SUR,

CYL,

DRIVE

BDAR

BDA4:

MoV
Mov

RO,=(SP)
#SREG7+2,R0

sPUSH RO ONTO THE
;SET UP POINTER

8DAR:

BIT
BNE

#20000,asWR
2$

;INMIBIT TYPEQUT?
;YES, BRANCH TO EXIT POINT

MoV
MoV

R1,-(SP)
R2,-(SP)

;PUSH R1 ON STACK
;PUSH R2 ON STAC(K

001202

mov

177760

001202

177776

177400
177770

2%:

SREG10,R!

BIC
Mov
Mov
ASR
ASR
ASR
ASR
Mov
BIC
MoV
ASR
MoV
BIC
MoV
SWAB
BIC
MoV

#177760,R1
R1,-(RO)

MOV
MOV

(SP)+ ,R2
(SP)+,R1
(SP)+,RO

MOV
RTI

.SBTTL

$REG10,RY

R1
R1
R1,R2

;GET

JHAS

STACK

THE ADDRESS WHICH
TO BE

BROKEN

;EXTRACT SECTOR BITS 0-3
;MOVE SECTOR BITS TO $SREG3 OR SREG7

;GET THE DSK~ADRES TO BE BROKEN

;SHIFT RIGHT 4 TIMES

#177776,R2

;STORE THiS
;EXTRACCT THE

SURFACE BIT

R1,R2
#177400,R2

;STORE IT
sEXTRACT THE

CYLINDER BITS

R1
#177770,RY

:SWAB HI-LO BYTES
;EXTRACT THE DRIVE #

:%.-(RO)

R2,-(R0O)
R1,-(RO)

sMOVE SURFACE BIT TO SREG3 OR SRE®6

;MOVE CYLINDER BITS TO $SREG! OR SREGS
;MOVE DRIVE # TO SREGO OR $REG4

;RESTORE R2
sRESTORE R1
JRESTORE RO FROM THE STACK
sRETURN FROM

sROUTINE

SHFTRTY:

SEQ 0113

INTERRUPT,

EXIT

THIS

SHIFT RIGHT ROUTINE

;SHFIRT

;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 STACK AFTER THE SHIFT HAS BEEN DONE.
PC,SHFTRT
JSR
;CALL:
021200
021206
021210
021214
021220
021222
021224

012737
000241
006066
005237
001373
000207
000000

177762

000002
021224

021224

SHFTRT:

1%:

2%:

MOV
cLC
ROR
INC
BNE
RTS

#-15,2%

sSET UP A COUNT OF

2(R6)

sROTATE RIGHT THE WORD TO B SHFTD

;1F NOT LUP BAK & SHIFT

2%
PC

sCLEAR THA C BT

;SHIFTED 13 TIMES?

;EXIT FROM THIS SUBROUTINE

MD-11-CZRKKF,

CZRKKF .P11

6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270

6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11 30A(1052)
21-FEB-78
SHFTRT: SHIFT RIGHT ROUTINE

.SBTTL
.SBTTL

CHKHE:
(HKHE1:

08:58

CHECK FOR
CHECK FOR

PASE

115

SEQ 0114

'ERR'OR
'ERR'OR

;s CHKHE

JTHIS ROUTINE CHECKS IF 'HE' OR 'ERR'" BITS IN RKCS ARE SET.

IF ANY OF THE

s CHKHE1
;THIS ROUTINE CHECKS IF

IF ANY OF THE

;TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A
JRETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE ‘JSR' CALL.
JAT THE TIME OF ENTRY 'DRIVAD' CONTAINS THE DISK ADDRESS WHICH IS 10
;BE BROKEN DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION
;1S SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOTY SET,
JRETURN IS MADE TO SKIP THE ERROR MESSAGE.

:TWO BITS ARE SET,

'HE' OR 'ERR' BITS IN RKCS ARE SET.

THE CONTENTS OF

RKCS,

ER,

DS, AND DA ARE SAVED AND A

SRETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE °'JSR'
;AT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH
;DOWN INTO DRIVE #, CYLINDER, SURFACE AND SECTOR #. THIS
;SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS
;RETURN IS MADE TO SKIP THE ERROR MESSAGE.
n21226
021232

010137
000403

001202

021234
021242

013737
032777
001467
004737

001350
140000

021250

021252
021256

021260

104416

001202
160062

CALL.
IS TO BE BROKEN
INFORMATION IS
ARE NOT SET,

CHKHET: MOV
BR

R1,3REG10
CHE1

sSAVE THE DISK ADRES

CHKHE:
(HE1:

MOV
BIT
BEQ
JSR
BRKDA4

DRIV/D,$REG10
#140000,@RKCS
CRETRN
PC.GT4RG

;SAVE THE DISK ADRES
;IS 'HE' OR "ERR' BIT SET?
:NO
;GET RKCS,ER,DS, DA
;GO TO 'BDA4' & BREAK CONTENTS O

RTS

.SBTTL

CHKDA:

020774

000207

;SREG10 INTO DR#, CYL, SUR, SEC BITS
¢RETURN TO THE

CHECK

ERROR MESSAGE

IF RKDA INCREMENTED CORRECTLY

s CHKDA

;THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED
JCORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE.
;IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES

021262
021266

001350

021270
021274

013705
005205
020577
001455

021276
021302

010537
104415

001202

021304
021312

017737

160030

021314

000207

104416

: OF SKDAAARE SAVED AND A RETURN
;'JSR' CALL.
CHKDA:
MOV
DRIVAD,RS
INC
RS
CHKDA1: (MP
RS,8RKDA
BEQ
CRETRN

16004¢

001202

Mov
BRKDAOQ

RS5.SREG10

Mov

aRKDA,SREG10

BRKDA4
RTS

IS MADE TO THE ERROR MESSAGE FOLLOWING THE

sRKDA SHOULD INCREMENT TO THIS
;AFTER DATA TRANSFER IS DONE
;DID RKDA INCREMENT CORRECTLY?
:1F YES, BRANCH

;1F NOT, REPORT ERROR

;GET EXPCTD RKDA
;GO TO "BDAQO' & BREAK CONTENTS OF
;SREG10 INTO DR #,CYL,SUR,SEC BITS

sGET ACTUAL RKDA

;G0 TO 'BDA4' & BREAK

CONTENTS OF

;SREG10 INTO DR #,CYL,SUR,SEC BITS
;RETURN TO THE ERROR MESSAGE

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

MACY11
CHKDA:

30A(1052)
CHECK IF

.SBTTL

9
L
21-FEB-78
08:58
PAGE 116
RKDA INCREMENTED (ORRECTLY

CHKW(C:

CHECK

SEQ 0115

RKWC OVERFLOWED

s CHKW(

;THIS ROUTINE CHECKS IF RKWC OVERFLOWED TO O.
;7O SKIP THE ERROR MESSAGE.

021316
021322

005777
001442

160012

021324
021332
021340

017737
017737
000207

160004
160002

NOT,THE

IT DID A RETURN [S MADE

CONTENTS OF RKWC AND RKDA ARE

AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE

CHKWC:

001162
001164

‘'JSR'

TST
8EQ

ARKW(
CRETRN

;DID WORD COUNT OVERFLOW TO 0?
:1F YES, BRANCH

MoV
Mmov

SRKWC, $REGO
aRKDA,SREG1

;GET RKWC
;GET RKDA

.SBTTL

CHKER:

TST
BEQ

aRKER
CRETRN

JSR

PC,GT3RG

;YES, ERROR
G0, GET RKCS, ER, DS

RTS

JRETURN TO THE

RTS

CALL.

SAVED

s1F NOT, ERROR
;RETURN

THE

ERROR MESSAGE

CHECK RKER CONTENTS

; CHKER
sTHIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP
;THE ERROR MESSAGE. [F ANY BIT IS SET THE CONTENTS OF RKCS, RKER, RKDS ARf
;SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE.
021342
021346

005777
001430

157762

021350

004737

021002

021354

000207

CHKER:

;DID ANY BIT
;NO, BRANCH

;CHKECLR

IN RKER SET?

ERROR MESSAGE

;THIS ROUTINE CHECKS THAT RKER IS CLEAR.

IF NOT, THE CONTENTS OF RKER

CHKECLR:

IN RKER SET?

;ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE "'JSR''
;CALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN.
021356
021362
021364
021372
021400

021402
021410
021412
021420
021426

021430
021434

005777
001422
013737
017737
000207

022777
001407

157746

001330
157732

157722

013737
017737
000207

001332
157706

001162
001164

062716
000207

000002

SRKER
CRETRN

MoV

SRKER, $REGT

MOV

001162
001164

00020C

TST
BEQ
RTS

RKER,$SREGO
PC

:ANY BIT
:NO

;GET ADRES OF RKER

;GET CONTENTS OF RKER

JRETURN TO THE

ERROR MESSAGE

s CHKCCLR
sTHIS 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
;ERROR MESSAGE IS SKIPPED ON RETURN.

CHKCCLR:

CMP
BEQ

#200,3RKCS
CRETRN

RTS

MOV
MOV
CRETRN:

ADD
RTS

;IS RKCS CLEAR?
;YES

RKCS, $REGO
aRKCS, $REGT

:SAVE ADRES OF RK(S
;SAVE THE CONTENT OF RK(S

#2,(SP)
PC

;SKIP ERROR MESSAGE ON
sRETURN

SRETURN TO THE ERROR MESSAGE

MD-11-CZRKKF,

F
. P11
CZRKK

6350
6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389

6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400
6401
6402
6403
6404
6405

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

n9
MACY11 30A(1052)
21-FEB-78
08:58
TSTRWS: WAIT FOR R/W/S RDY ROUTINE
LSBTTL
:TSTRWS
:THIS ROUTINE

TSTRWS: WAIT

PAGE

117

SEQ 0116

FOR R/W/S RDY ROUTINE

WAITS FOR R/W/S RDY

TO SET.

WHEN

SETS,

THE

RETURN P(

(FOLLOWING

THE

'JSR'

;IS 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
;THEN A RETURN

;WAITING TIME

021436
021444
021450
021456
021460
021464
021466
021474

017737
000207

157634

021476

062716

000002

021502

000207

013777
005037
€32777
001007

005237
001371

001350
001366
000100

IS MADE

TO THE

1S APPROX.

TSTRWS

ERROR MESSAGE

1040 MS FOR 11/20,

APPROX.

;CALL:

JSR

157674

TSTRWS:

MOV

DRIVAD ,3RKDA

sADRES

157650

18:

CLR
BIT
BNE
INC

TIMER
#100,3RKDS
23
TIMER

;INITIALIZE COUNT
;DID R/W/S RDY SET?
:YES, BRANCH
;WAIT FOR R/W/S RDY

RTS

SEXIT

001366

BNE
Mmov

001162

28:

1%
aRKDS,SREGO

ADD

#2,(SP)

RTS

.SBTTL

DRESET: DRIVE

THE

CALL).

208 MS FOR 11/45

DRIVE

SERROR IF IT'S NOT SET BY NOW
;GET RKDS
(TO ERROR FOOLOWING

'JSR

TSTRWS')

sADJUST RETURN ADRES TO SKIP OVER
;ERROR (FOLLOWING ‘'JSR TSTRWS')
JEXIT

RESET ROUTINE

sDRESET
;THIS ROUTINE DOES A DRIVE RESET ON THE DRIVE WHOOSE ADDRESS IS IN
sRKDA. MULTIPLE RETURN AODDRESSES FOR THIS ROUTINE ARE PROVIDED.
;IF THERE IS NO ERROR (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.

[F THERE IS AN ERROR, THE 3 REGISTERS (CS,ER,DS)

JARE STORED AND THEN A NORMAL EXIT IS MADE FROM THIS ROUTINE TO THE
sERROR MESSAGE FOLLOWING THE CALL FOR THIS ROUTINE.
PC,DRESEY
JSR
;CALL:
021504
021510

021516

021524

005037
013777
012777
104414

001364
001350
000015

157622
157606

DRESET:

CLR
Mov
Mov

CNT.RDY

COUNTY
DRIVAD,3RKDA
#15,aRKCS

;INITIALIZE THE COUNT
;ADRES THE DRIVE
;DRIVE RESET, GO

;THIS IS A CALL FOR 'CN.RDY'
sROUTINE WHICH WAITS FOR CNT

JROY TO SET. IF CNTRL RDY DOES

;NOT SET WITHIN 883 MS/ 11-20
:(176 MS FOR 11-45 WITH BIPOLAR)

021526
021534
021536
021542
021544
021546
021550

032777
001013
012746
005216

000100
177770

001376

005726
005237

001364

157572

18:

BIT
BNE

mMov
INC
BNE
TST
INC

glOO.iRKDS

#-10,-(SP)
(SP)
.2
(SP)+
COUNTT

;AN ERROR IS REPORTED
:
:DID R/W/S RDY SET?

;PUSH COUNT ON SP
;COUNT IT DOWN
.POP UP P
s IF NOT WAIT

MD-11-CZRKKF,
CZRKKF .P11

6406
6407
6408

6409

6410
641
6412

021554
021556
021562

021564

021570

RK11

BASIC

LOGIC

21-FEB-78 08:51

001364
004737
000402
062716
000207

TEST

MACY11 30A(1052)
21-FEB-78
DRESET: DRIVE RESET ROUTINE

020774

2%:

000002

BNE
JSR
BR
ADD

18
PC.GT4RG
2%+4
#2,3R6

.SBTTL

TSTSIN: CHECK

RTS

08:58

PAGE

118

SEQ 0117

;WAITED LONG?

6413
6414

6415

6416
6417
6418
6419
6420
6421

6422
6423
6424
6425
6426
6427
6428
6429
6430
6431
6432
6433
6434
6435
6436
6437
6438
6439
6440
6441
6442
6443

’

;THIS ROUTINE CHECKS IF 'SIN' IS SET, IF IT IS SET A
;DRIVE RESET 1S DONE TO CLEAR 'SIN' AND INITIALIZE POSITIONER.

sCALL:
TST.SIN
IF 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.
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

001350
001000

157540
157520

TSTSIN:

021504
020000

157312

1¢:

MOV

DRIVAD,SRKDA

;ADRES

BEQ
JSR
BR

18
PC,DRESEY
28

;GO DO DRIVE RESET,

BIT
BNE
TYPE

#SW13,3SWR
1%
,65%

;INHIBIT TYPEOUT?
;1F YES, SKIP TYPEOUT
;:TYPE ASCIZ STRING

L_ASCIZ

/ERROR PC= /

BIT

RT1

28:

021636

::65%:

64%:

177776

#1000,aRKDS

648

MoV
ADD

(SP),~(SP)
#-2,(SP)

.SBTTL

DELAY:

TYPOC

6445

THE

DRIVE

;IS SIN SET?

SIN

:REPORT ERROR

SET

::GET OVER THE ASCIZ
;GET THE PC WHERE
;GO TYPE OUT PC

TIME DELAY ROUTINE

°'TST.SIN'

IS LOCATED

sDELAY

6446
6447
6448
6449
6450

6461

ROUTINE

;TSTSIN

6444

6451
6452
6453
6454
6455
6456
6457
6458
6459
6460

°'SIN'

;THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS
JROUTINE IS AN ENCODED °*TRAP' INSTRUCTION.

JCALL:
DELAY
N
N IS ANY OCTAL NO. FROM 1 1O 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

SGET A TIGHTER SCOPE LOOP) THE VARIABLE °'N' FOLLOWING 'DELAY' SHOULD
;BE CHANGED TO SUIT THE INDIVIDUAL NEED.
021664
021672

017637
062716

000000
000002

021676
021702

005337
001375

001366

DELA.Y: MOV

3(SP), TIMER

18:

{éHER

ADD

DEC

BNE

#2,(SP)

:GET

"AMOUNT'

;DELAY

(N) FOR WHICH

IS TO BE PROVIDED

sADJUST STACK POINTER TO SKIP OVER 'N'
;COUNT DOWN T0 0

MD-11-CZRKKF,
CZRKKF P11
246%

021704

RK11 BASIC LOGIC
21-FEB-78 08:51

TEST

MACY11
DELAY:

000002

8 10

30A(1052)
21-FEB-78
TIME DELAY ROUTINE

0B8:58

RT1

PAGE

119

SEC 0118
RETURN TO MAIN PROGRAM

6464

6465
6466

g‘bg

LSBTTL

WATUINT:

WAIT

FOR

INTERRUPT ROUTINE

6669
6470
64;;

SWAT,INT
;THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT
;FROM RK11 CAN OCCUR. THE CALL IS AN ENCODED °'TRAP' INSTRUCTION.

64;2

; CALL:

64
6475

:WALIT LOOP TIME= APPROX. 7.5N US

64676

;APPROX. 1.5N US FOR 11/45

6477
6478
6479
6480
6481

6505
6506
6507
6508
gg?g

6511
6512
6513
6514
6515
6516
6517

N IS ANY OCTAL NO. FROM 1
(CONVERT N TO DECIMAL)

TO 177777

FOR 11/20

;UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT
JRK11 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.
;1F FOR ANY REASON THE WALT LOOP TIME HAS TO BE CHANGED IT CAN BE DONE

gzg%

6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500
6501
6502
6503
6504

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: MmOV
ADD

a(SP),TIMER
#2,(SP)

nov
mov
RT]
DEC
BNE

RKPR]I ,-(SP)
21%,-(SP)

1$:

TIRER
1

RT!

;GET 'AMOUNT' (N) FOR WHICH
JWAITING IS TO BE DONE
;ADJUST STACK POINTER FOR CORRECT RETURN
;DROP CPU PRIORITY SC THAT RK11 CAN
: INTERRUPT
;WAIT FOR RK11

TO INTERRUPT

J1F INTERRUPT HAS NOT QCCURED BY NOW
;RETURN AND REPORT ERROR
EXLY

SWATIME

021742
021744
021746
021750
021752

021754
021756

005000
005001
005200
001376
105201

001374
000207

WATIME: CLR
CLR
1%:
INC
BNE
INCB

RO
R1
RO
1
R

BNE
RTS

18
PC

LSBTTL

CHKCRDY:

CHECK CONTROL READY

;:CH.CRDY
;THIS 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
JAND RKDA ARE SAVED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE
J'JSR' CALL FOR THIS ROUTINE.
;IF CONTROL READY SETS THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE
JERROR 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
€40
6541
6542
6543
6544
6545
6546
6547

TEST 2

c 10

MACY11 30A(1052)
21-FEB-78
08:58
PAGE
CHKCRDY:
CHECK CONTROL READY

(HKCRDY

JCALL:
:

021760
021764
021770
021772

005037
105777
100406

022000
022004

005237
001372
004737
000002

022006
022012

062716
000002

021776

001366

ERROR
===

CLR TIMER

CH.CRDY:

157342

18:

1STB

IRK(S

INC

TIMER

1))

001366
020774

2%:

IF ERROR
IF NO ERROR

sCNTRL

s YES

SEQ 0119

RDY

SET?

BNE
JSR

13
PC.GT4RG

:NO, WAIT
;SAVE RK(CS, ER, DS, DA

ADD

#2.(5P)

sADJUST RETURN ADDRESS TO

.SBTTL

CON.RESET:

CONTROL REST ROUTINE

RTI

000002

sRETURN MERE
sRETURN HERE

120

RT1

;SKIP ERROR MESSAGE

ON RETURN

;CON.RESETY
;THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR
;THE "CNTRL ROY' FLAG TO SET.
WHEN THE FLAG SETS

AN EXIT 1S MADE OUT OF THE ROUTINE.
IF 'CNTRL-RDY'
DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE

CNT RDY DIDN'T SET

:
PC=XXXXXX RKCS=YYYYYY
ig glVE:D NOTE THAT XXXXXX IS

THE PC

WHERE

'CNT.RESET'

°'CNT.RDY’

ALL

sCALL:

CNT.RESET

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

.SBTTL

(NT.RDY:

;CN.RDY

sTHIS ROUTINE WAITS FOR THE

WAIT FOR CONTROL READY ROUTINE
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

2175 MS FOR 11/45 WITH BIPOLAR MEMORY.
CNT.RDY
sCALL:
CN.RST: Moy
#1,3RKCS
;ISSUE A CONTROL RESET
mov
#-300,8REG3
;SET UP COUNT
BR
CN.RDY+4
:SKIP OVER CN.RDY
CN.RDY: (LR
$SREG3
1%:

001170
020000

157060

2%:

104401

001245

106401
000403

TST8

aRK(S

;DID CNTRL~RDY

BNE
8IT

1%
#SW13,3SWR
3s

;IF NOT, GO BAK & WAIT
;INHIBIT TYPEOUT?

;LF YES, SKIP TYPEOUT

,65%

;s TYPE ASCIZ STRING

8mI
INC
BNE

TYPE

MSG3
TYPE

022074

;:65%:

B8R
LASCIZ

3s
$REG3

6483
<15><12>/PC=/

JYES, EXIT
;WAITED LONG?

SET?

;:GET OVER THE ASCIZ

MD-11-CZRKKF, RK11 BASIC LOG.C
CZRKKF .P1
21-FEB-78 08:51

TEST

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

6614

022152

000416

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

000400

156722

156714

001102

6613

6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629

648:

022102
022102
022104
022110

011646
162716
104402

022112
022116

104401
000404

022120

022130
022130
022134

017746

157176

022136

000002

104402

D 10
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 121
CNT.RDY:
WAIT FOR CONTROL READY ROUTINE

. [0]")
SUB

000002

TYPOC

TYPE

;:67%:

669%:

;GO TYPE PC IN THE MAIN PROGRAM,
; WHERE ERROR OCCURRED

.67%

J:TYPE ASCIZ STRING

B8R
JASCIZ

66%
7/ RK(CS=/

MoV

aRK(S,-(SP)

TYPOC

3s:

(SP) ,-(SP)
#2,(SP)

SEQ 0120

;;GET OVER THE ASCIZ
;GET RKCS

;G0

RYI

TYPE

JRETURN FROM THIS

;ROUTINE TO THE MAIN

;PROGRAM

;THIS PART OF THE PROGRAM CONTAINS
sFROM THE SYSMAC.SML PACKAGE

.SBTTL

THE

COMMON ROUTINES

CALLED

SCOPE HANDLER ROUTINE

MPRALA AR A

RSttt

RtdRdt

ittt

tssts]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>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
s eSW14=1
;eSWI=1

INHIBIT ITERATIONS

:*SW09=1
;*SW0B=1
;eCALL
s
104407

032/77
001111

105737

$SCOPE:
040000

156770

18:

LOOP ON ERROR
LOOP ON TEST IN SWR<7:0>
SCOPE
CKSWR

BIT

8NE

JMRRNRSTART OF

$XTSTR: BR

000004

5%:

000004

001103

::SCOPE=]0T
;s TEST

#B1I714,8SUR

$SOVER

CODE

FOR THE

FOR CHANGE

XOR

JIYES IF SW14=1

TESTERSNFNNN

;:1F RUNNING ON THE ''XOR'' TESTER CHANGE

mov
mov
187
)

S#ERRVEC,~(SP)
#58 ,8FERRVEC
3177060
(SP)+ @#ERRVEC

;.SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
s TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR

CHpP
Mmov

(SP)+,(SP)+
(SP)+ ,Q#ERRVEC

B8R

$SVLAD

s:THIS INSTRUCTION TO A "'NOP'' (NOP=240)

::G0 TO THE NEXT TEST

:sCLEAR THE STACK AFTER A TIME OUT
;;RESTORE THE ERROR VECTOR

;.LOOP ON THE PRESENT TEST

6$:;#ANRNEND OF CODE FOR THE XOR TESTERA#NNA
BIT
#BITO8,aSWR
::LOOP ON SPEC.
BEQ
28
;:BR IF NO

28:

IN SOFT-SWR

;:LOOP ON PRESENT TEST?

TEST?

CMPB

3SWR, STSTNM

;;ON THE RIGHT TEST?

TST8

SERFLG

;;HAS AN ERROR OCCURRED?

BEQ

$OVER

:;BR

IF YES

SWR<7:0>

MD-11-CZRKKF,

CZRKKF P

6630
6631
6632
6633
6634
6635
6636
6637
6638

6639

6640
6641
6642
6643
6644
6645
6646

6647
6648
6649

6650
6651
6652
6653

6654
6655
6656

6657

6658

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

R¥11

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

001115

001103

001000

156664

001110

001106

001103
001206
004000

156632

BEQ
(mP8
BHI
BIY
BEQ

7%:
43:

mov
BR
(LRB

3s:

BIT

(LR
BR

001100

001104
001206
000001
022410
001102
001106
001110
001210
000001
001102
001106

001104
001206

001115

156540

1%:

$SVLAD:

SOVER
#1,S$ICNT
SMXCNT,STIMES
S$TSTNM
(SP) ,SLPADR
(SP) ,SLPERR

R R

PAGE

;:BR

122

SEQ 0121

;sMAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;.LO0P ON ERROR?
;:BR IF NO
;sSET LOOP ADDRESS TO LAST SCOPE

;:IERO THE ERROR FLAG
;s CLEAR THE NUMBER (F ITERATIONS TO MAKE
;;ESCAPE TO THE NEXT TEST
s INHIBIT ITERATIONS?
;:BR IF YES
..IF FIRST PASS OF PROGRAM

STIMES
1%

BGE
MoV
MOV
INCB
nov
)]

RTI

.SBTTL

SERFLG

1%
$PASS
19
SICNT

CLR

SMXCNT:

SLPERR,SLPADR
SOVER

BNE
TST
BEQ
INC

novs
RMOV
nov

$SOVER:

3%
SERMAX,SERFLG
33
#B1709,aswR
4%

#BIT11,3SWR

CMpP

001104

6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6669
6670

6671
6672
6673
6674
6675
6676
6077
6678
6679
6680
6681
6682
6683
6684
6685

E 10
MACY11 30A(1052)
21-FEB-78
08: 58
SCOPE HANDLER ROUTINE

;

INHIBIT

ITERATIONS

..INCREHENT ITERATION COUNT

STIMES,SICNT

:CHECK THE NUMBER OF

ITERATIONS MADE

1:BR IF MORE ITERATION REQUIRED
;REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO
::COUNT TEST NUMBERS
::SAVE SCOPE LOOP ADDRESS
; :SAVE ERROR LOOP ADDRESS
SESCAPE
s+ CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
ssONLY ALLOW ONE(1) ERROR ON NEXT TEST
STSTNM, SDISPLAY :;DISPLAY TEST NUMBER
SLPADR, (SP)
::FUDGE RETURN ADDRESS
:.FIXES PS
;:MAX. NUMBER OF ITERATIONS
R R

N R R

RN R

RN A A A

R RN R NN AR AN AN

RN AR RN

NRS

ERROR HANDLER ROUTINE

;*SW15=1

HALT ON ERROR

;vSW10=1
;*SW09=1

TESTING ON SIMULATOR
LOOP ON ERROR

;*SW06=1

DROP DRIVE AFTER MAXIMUM (ALLOWABLE) ERRORS ON THE DRIVE

:eSW13=1

INHIBIT ERROR TYPEOUTS

S eSW12=1

CYCLE ON ERROR TO PREVIOUS 'SCOPE’

;*GO TO SERRTYP ON ERROR

104407
105237

022412
022414
022420
022422
022430

001775
013777
005237

022434
022442
022444
022452

032777
001404
023727
101053

022454
022460
022466

SERROR:
7$:

001103
001102
001112

156512

000100

156476

001112

000005

001116
000002
156424

1$:

6%:

(KSWR
INCB

BEQ

Mov

SERFLG

STSTNM, QDISPLAY

;CHECK FOR SOFTWARE SWITCH REGISTER REQUEST

;SET THE ERROR FLAG
;DON'T LET THE FLAG GO TO ZERO

;DISPLAY TEST NUMBER AND ERROR FLAG
;COUNT THE NUMBER OF ERRORS

INC

SERTTL

BIT
BEQ
Cmp
BHI

#BIT6. ISWR
6$
SERTTL,#S
8s

:ggsflecr DRIVE SW SET?

Mov
suB

(SP) ,$SERRPC
#2,$ERRPC

:GET ADDRESS OF ERROR INSTRUCTION

Movs

9SERRPC,SITEMB

*MORE THAN 5 ERRORS ON THIS DRIVE?
YES, DESELCT THE DRIVE

;STRIP AND SAVE

THE ERROR

ITEM CODE

MD-11-CZRKKF,
CZRKKF PN

6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
670C
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

RK11

BASIC

21-FEB~78 08:51

022474
022502
022504
022510
022514
022522
022524
022530
022532
022534
022536
022544
022546
022552
022560
022562
022566
022572
022574
022600

032777
001402
13716
032777
001402
013716
005737
001402
013716
000002

022602

005737

022606
022610
022614
022620
022622

001407

022626

022632
022636
022642
022646
022652
022656
022664
022670
022674
022700
022704
022710
022714
022716
022722
022726
022730

LOGIC

032777
001004
004737
104401
023737
001403
005777
100002

TESM 2

020000

156436

022734
001213
000042

000046

F 10
MACY11 30A(1052)
21-FEB-78
08:58
ERROR HANDLER ROUTINE

104407

104401

005037
022626
000137

013746
162716
013746

004737
042716
062716
042776
062716
042736
012736
104401

013746
004737
104407

1044C1

005337
022624
00013/

010000
001106
001000

156374

3$:

SSWR

HALT
CKSWR
BIT

#5W12,35WR

BEQ

.46

8%:

SESCAPE

MoV

SESCAPE, (SP)

TS7Y

TS6FLG

8tQ

108

CLR

DRIVS

JMP
Mov

SEOP
DRVPTIR,-(SP)
DRIVAD,-(SP)
PC,SHFTRT

BIC

#1,(R6)

ADD

#DRIVO, (SP)

MoV
TYPE
mov
JSR

#BIT12,8(SP)+
LMS64
DRIVAD,~(R6)
PC,SHFTIRT

BIC
ADD
8IC

;IF EROR WAS IN LAST TEST
;sDROP ALL THE DRIVES

(POLL)

;PUSH DRIVE # ON STACK
SSHIFT IT BEFORE TYPING
s TYPE OUT DRIVE

AR AR AAR A A

;DECREMENT # OF DRIVES PRESNT
SRECTORE STACK
;GO BACK TO THE END OF PROGRM
s LINKAGE.

BTEOP

ERROR MESSAGE

EVEN

;POINTS TO TABLE FOR EVEN DRIVE
;TEST REMAINING DRIVE AS RKOSE
sPOINT TO ODD
sTEST AS RK-05E
sINDICATE THIS DRIVE DROPPED

.MSG6
DRIVS
(SP)+,(SP)+

JMP
.SBTTL

ESCAPE

sMAKE

#B81715,8(R6)
#2,(R6)
#BIT1S,3(SP)+

TYPOC
TYPE
DEC
CHP

9%:

RETURN ADDRESS

:DROP THE DRIVE FROM THE
sSELECTION LIST
;DRIVE ADDR TO STACK
;RIGHT JUSTIFY

#2,(SP)

MoV
JSR

001272
201350
021200

FOR

;RETURN

(SP)+,(SP)+

suB

000000

;FUDGE

MSG5

q.]4

108:

: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

#5W09,8SWR
43
$LPERR, (SP)

TYPE

AUTO MODE?

;SW 12 SET?

$SLPADR, (SP)

RTI

100000
010000

020026

181

IN ACT11

;YES, HALT ON ERROR
sHALT ON ERROR?
;SKIP IF CONTINUE
sHALT ON ERROR!
;CHECK FOR SOF TWARE SWITCH REGIATER REQUEST

L4110

TSY

001303
001412

001315
001412

;ARE WE

LSCRLF

BEQ

5%:

001434

000002

N2, an46

BIT
8EQ
MoV

001210

100000

CApP

MoV

156360

001110
001210

020652
001354
000002
001350
021200
000001
001414

;SKIP TYPEOUT IF SET
;SKIP TYPEOQUTS
;G0 TO USER ERROR ROUTINE

BPL

000000

SEQ 0122

FSW13,aSWR
2%
PC.S#SERRTYP

BEQ

156410

123

BIT
BNE
JSR

TYPE

2%:

PAGE

TYPEOUT ROUTINE
AR AR AR

ARARRRRRRRR

Rttt

tdl)

S«THIS ROUTINE USES THE ""ITEM CONTROL BYTE'* (SITEMB) TO DETERMINE WHICH
;*ERROR

TO BE REPORTED.

:«AND REPORTS

022734

SERRTYP:

THE

IT THEN OBTAINS,

APPROPRIATE

FROM THE ''ERROR TABLE'' (SERRTB),

INFORMATION CONCERNING

THE

ERROR.

MD-11~CZRKKF,

CZRKKF PN

6742
6742
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769

6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6794
6795
6796
6797

RK11

BASIC

21-FEB-78 08:51

022734
022740
022742
022744
022750

010046
005000
153700
001004

022752

013746

022756
022760
022762
022764
022766
022770
022772
022776
023002
023004
023006
023010
023014
023020
023022
023024
023026

023032
023034
023036

023040
023044
023046
023046
023050
023052
023054
023056
023062
023064

LOGIC

104401

TEST

MACY11

ERROR MESSAGE

001213

104401

012037
001404
104401
000000
104401
011000
001004
012600
104401
000207

001114

CLR
BIS8
BNE

RO,-(SP)
RO
S#SITEMB,RO
1%

001116

mov

$ERRPC,-(SP)

001442
023006

TYPOC
BR
DEC
ASL
ASL
ASL
ADD
MoV

6%
RO
RO
RO
RO
#SERRTB,RO
(RO)+,28

1%:

001213
023024

001213

104401

000771
020040
023070

8EQ

TYPE

2s:

.WORD

BEQ

(RO)+,48
5%

TYPE

43:

TYPE
mov
BNE
mov
TYPE
RTS

5%:

6$:

000

8%:

BR
LASCIZ
.EVEN

.SBTTL

TYPE

AAS

AR AR

1F ITEM NUMBER 1S ZERO, JuST
;o
;s TYPE

THE

;;FORM

TABLE

THE

ERROR

;:SAVE SERRPC FOR TYPEOUT
; ;ERROR ADDRESS
;:G0 TYPE~~OCTAL ASCIIC(ALL DIGITS)
:;GET QUY
;ADJUST THE INDEX SO THAT IT wiLL
N
WORK FOR THE ERROR TABLE
POINTER

;:PICKUP ‘‘ERROR MESSAGE'' POINTER

J:SKIP TYPEOUT IF NO POINTER

SCRLF

;;RESTORE RO
;:""CARRIAGE RETURN'' & "'LINE FEED"

8(R0)+,~(SP)

::SAVE a(RO)+ FOR TYPEOUT

s sRETURN

(RO)

6%
.88
7$

TYPE

;:"'CARRIAGE RETURN'' & '"LINE FEED"
;:SAVE RO
;:PICKUP THE ITEM INDEX

;:60 TYPE THE DATA

BEQ

023064

SEC 0123

;s TYPE THE ‘'DATA HEADER''

(RO) ,RC
14]
(SP)+ RO

mov
TYPOC
ST

124

;:"'DATA HEADER'' POINTER GOES HERE
;s 'CARRIAGE RETURN'' & ''LINE FEED''
;:PICKUP ''DATA TABLE'® POINTER

0
.SCRLF

.WORD

PAGE

;:TYPE THE "'ERROR MESSAGE'’
;i "ERROR MESSAGE'' POINTER GOES HERE
;i"CARRIAGE RETURN'' © "'LINE FEED'
;:PICKUP *'DATA HEADER'' POINTER
;SKIP TYPEOUT If O

SCRLF

TYPE
ROV

3%:

7%:

013046
104402

005710
001770

LSCRLF

TYPE
mov

104402

000426
005300
006300
006300
006300
062700
012037
001404
104401
000000

G 10
21-FEB-78 08:58
TYPEOUT ROUTINE

3CA(1052)

::60 TYPE--OCTAL ASCIICALL DIGITS)
::1S THERE ANOTHER NUMBER?
;.BR

IF NO

::TYPE TWO(2) SPACES
;.L00P
;:TWO(2)

SPACES

ROUTINE
AALE

ARl

Rttt

liadt

lld)

;*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:
;*NOTEZ:

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

JeNOTES:
Y

TeCALL:

“«1) USING A TRAP INSTRUCTION
.
TYPE
LMESADR
’

;*0OR
bR|

. ¥

’

TYPE
MESADR

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

000002

MACY11

30A{1052)

$TYPE:

T1ST18
BPL
HALTY

1%:

Mov
MOV

TYPE

ROUTINE

2%:

000002

60$:
3s:

000011

105037

000755
004737
123726
001350

BNE
TST

MoV
ADD

023304

BNE
TST

023240
001156

105366

000001

105337

023240
023304

5%:
6%:

7$:

$TPFLG
1%

33
RO,-(SP)
82(SP) RO
(RO +,-(SP)
43
(SP)+

(SP)+,RO

#2,(SP)

8R
JSR
(MPB
BNE

125

SEQ 0124

;:1S THERE A TERMINAL?
;.BR IF YES
JHALT HERE IF NO TERMiNAL
s LEAVE
2 SAVE RO
;:GET ADDRESS OF ASCIZ STRING
;:PUSH CHARACTER TO BE TYPLD ONTO STACK

J:BR IF

IT ISN'T THE TERMINATOR

1F TERMINATOR POP [T OfFF THE STACK
;s
;sRESTORE RO
::ADJUST RETURN PC
;;BRANCH IF <HT>

#CRLF, (SP)

;;BRANCH IF NOT <CRLF>

(SP)¢+

J:POP

SCHARCNTY

:;CLEAR CHARACTER COUNT
;:GET NEXT CHARACTER

PC,STYPEC

SFILLC,(SP)+

S$NULL,-(SP)

DECB

1(SP)

DECSB
BR

PAGE

#HT, (SP)

[[1)"

BLY
JSR

08:58

;sRETURN

RT]

TYPE
$CRLF
CLRB

001154

000770

Move

000200

013746

002770
004737

B8R

(mPB8
8EQ
CMPB

104401

001213

21-FEB-78

PC.STYPEC

SCHARCNT
’$

<CR><LF> EQUIV

;:;TYPE A CR AND LF

::G0 TYPE THIS CHARACTER

;1S IV TIME FOR FILLER CHARS.?
;:1F NO GO GET NEXT CHAR.
::GET # OF FILLER CHARS. NEEDED
;:AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF
.:G0 TYPE A NULL
;;D00 NOT COUNT AS A COUNT
;:LOOP

STACK

JHORIZONTAL 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%:
9s:

MOV8
JSR

8178
BNE
TS7

155704

000002
000015

$TYPEC:

155676

000002

02330¢
000012

000002

TSTB

8PL
MOVB
CMPB
BNE
CLRB
B8R
1%:
(MPB
8EQ
INCB
$CHARCNT
: ,WORD
$TYPEX: RTS

.S8TTL

£ ,(SP)
PC,STYPEC

;sREPLACE TAB WITH SPACE

;;TYPE A SPACE

s ;BRANCH [F NOT AT
;;TAB STOP
;.POP SPACE OFF STACK
;:GET NEXT CHARACTER

(PC)+

;:;LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
;;BRANCH [F NO
::;E?;-CLEAR CHARACTER COUNT
s EX
::1S CHARACTER A LINE FEED?
;;BRANCH IF YES
; ;COUNT THE CHARACTER

#7,3CHARCNT
98
(SP)+

88TPS
S$TYPEC
2(SP) ,a$1PB
#CR,2(SP)
1%
SCHARCNT
STYPEX
#LF,2(SP)
STYPEX

s:WAIT UNTIL PRINTER

IS READY

;s CHARACTER COUNT STORAGE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

MD-11-CZRKKF,

CZRKKF P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

6854
6855
6856

6882
6383
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

AAAALAARAAR AR

'THIS ROUTINE

6857
€858

6859
6860
6861
6862
4863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881

l 10
MACY11 30A(1052)
21-FEB-78 08:58 PAGE 126
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
A

A A

IS USED TO CHANGE A

SEQ 0125

A ARt
ld)

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
J*REPLACED WITH SPACES.

;eCALL:
s
;v

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
169105

$TYPDS:

020200
000020
000055

000001

023524
000040

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%:

002402

- (SP)
NURM,

;:PUT THE BINARY NUMBER ON THE STA(CK
::60 TO THE ROUTINE

MOV
MOV
MOV
MOV
nov
nov
MOV

RO,-(SP)
R1,-(SP)
R2,=-(SP)

;:PUSH RO ON STACK

BPL
NEG

2%:

023514

nov
TYPDS

4%:

MOVB
CLR
MOV
novs

CLR

Mov

SuB

8LT
INC
8R

R3,-(SP)
RS,=-(SP)
#20200,-(SP)
20(SP) RS
1%

#'=-,1(5P)
RO
#S0BLK ,R3
£ ,(R3)
R?
$DTBL(RO)
,R1
R1.RS
43

000001
000060
000040

177777

6$:
7%:

000010

T1ST8
B8M]

ASLB
BCC

mMove

BIS
BIS

MOVB
TS7
CMP

BLT
BGT

MOV

8%:
177777

177776

9%:

::PUSH R2 ON STACK

::PUSH R3 ON STACK

::PUSH RS ON STACK

J:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;;MAKE THE BINARY NUMBER POS.
;sMAKE THE ASCII NUMBER NEG.
;:2ERD THE CONSTANTS INDEX
;.SETUP THE OQUTPUT POINTER
;:SET THE FIRST CHARACTER TO A BLANK
;. CLEAR THE BCD NUMBER
;:6GET THE CONSTANT
;sFORM THIS BCD DIGIT

::BR IF DONE
;. INCREASE THE BCD DIGIT BY 1

;:BR IF YES

63
1(SP) ,=1(R3)

#'0,R2
" ,R2

R2,(R3)+
(RO)+
RO,#10
2%
8s

B8R

;:MSD?

;:BR IF NO
;:YES=-=SET THE SIGN
;:MAKE

THE BCD DIGIT ASCII

ssMAKE 1T A SPACE IF NOT ALREADY A DIGIT
;:PUT THIS CHARACTER IN THE OUTPUT BUFFER
;:JUST INCREMENTING
;s CHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
::60 TO EXIT
::GEY THE LSD
;:G0 CHANGE TO ASCI!

;:WAS THE LSD THE FIRST NON-ZERO?

TSTB

8PL
MOvVB
CLRB
MOV
MoV
MoV
MOV

ON STACK

;:ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
;:FALL THROUGH IF O
;;STILL DOING LEADING 0'S?

ADD
1ST

BNE

5%:

:;PUSH R1

-1(SP),-2(R3)
(R3)
(SP)+ RS
(SP)+,R3
(SP)+,R2
(SP)+,R1

;:BR IF NO
;i YES~-=SET THE SIGN FOR TYPING
::SET THE TERMINATOR

;:POP
::POP
:;POP
;;POP

STACK INTO RS
STACK INTO R3
STACK INTO R
STACK INTO R?

MD-11-CZRKKF,

CZRKKF P11

6910
6911
6912
6913
6914
6915
6916
6917
6918
gg;g

023474
023476
023502
023510
023512
023514
023516
023520
023522
023524

RK11

BASIC

LOGIC

21-FEB-78 08:51

012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

TEST

MACY11

30A(1052)

21-FEB-78

08:58

PAGE

127

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

$DBLK:

MOV
TYPE
mov
mov
RYI
10000.
1000.
100.
10.
.BLKW

ggg;

.SBYTL

BINARY TO OCTAL (ASCII) AND TYPE

6923

N R

6924
6925

:*THIS KOUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6~DIGIT
:*OCTAL (ASCII) NUMBER AND TYPE [T,

023524
000002

000004
$DTBL:

gggg

(SP)+,RO
.SDBLK
2(SP),4(SP)
(SP)+,(SP)

SEG 0126

;;POP STACK INTO RO
;;NOW TYPE THE NUMBER
::ADJUST THE STACK
::RETURN TO USER

N N

R A A TR R R R

R R

AN AR

:*$TYPOS-~-ENTER HERE TO SETUP SUPPRESS ZERCS AND NUMBER OF DIGITS TO TYPE

;«CALL:

6928
6929
6930
6931
6932

o
ot
v
s
;v

gggz

MoV
TYPOS
.BYTE
.BYTE

NUM, - (SP)

N
M

;¢STYPON~--~-ENTER HERE
:«$TYPOS OR $TYPOC
seCALL:

2323

6938

*
> &

; ;NUMBER TC BE TYPED
::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

6935
6936
6937

MOV

TYPON

TO TYPE QUT WITH THE SAME PARAMETERS AS THE LAST

NUM,-(SP)

; ;NUMBER TO BE TYPED

:;CALL FOR TYPEOUT

6941
6942

;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
svCALL:

2322

6943

MoV

TYPOC

6946
6947
6948
6949

023534
023540
023546
023552

017646
116637
112637
062716

000000
000051
023761
000002

6951

023560

112737

000001

023757

S$TYPOC: MOVB

0953
6954
6955
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965

023574
023602
023604
023606
023610
023614
023616
023622
023626
023632
023636
023640
023642

112737
010346
010446
0i0546
113704
005404
062704
110437
113704
016605
005003
006105
000404

000005

023756

STYPON: MOVB
MOV
mov
mov
MOVB
NEG
ADD
MOVB
MOVB
MoV
(LR
1%:
ROL
BR

6950

6952

RRARARRRS

023556

023566

000406

112737

000006

023761

000006
023760
023757
000012

023757

023761

$TYPOS: MOV
movB
MOVB
ADD

B8R

MOVB

NUM, - (SP)

::NUMBER TO BE TYPED

8(SP),=(SP)
1(SP),S0FILL
(SP)+,SOMODE+1
#2,(SP)

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

”1,80F1LL

;:SET THE ZERO FILL SWITCH

#5,80CNT
R3,-(SP)
R4,-(SP)
RS.-(SP)
$OMODE +1,R4
R4
#6,R4
R4, $OMODE
$OFILL,R4
12(SP),RS
R3
RS
3%

::SET THE ITERATION COUNT
::SAVE R3
;s SAVE R&
::SAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE

$TYPON

#6,80RODE +1

::CALL FOR TYPEOUT

;;SET FOR SIX(6) DIGITS

:;SUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
::GET THE ZERO FILL SWITCH
;;PICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO ''C"
;:G0 DO MSB

MD-11-CZRKKF,

CZRKKF .P1

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

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

7019
7020
7021

K 10
30A(1052)
c1-FEB-78 08:58
TO OCTAL (ASCII) AND TYPE

2%:

ROL

;:FORM THIS DIGIT

MoV
ROL

RS.R3
R3

;:;GET LSB OF

ROL
ROL

3%:

023760

RS
RS

DECB

$OMODE

BPL
BIC
BNE

177770

7%
#177770,R3
4%
1A
5%
R4
#'0,R3
#' _R3
R3.8%

1S7

BEQ

000060
000040
023754

023754
023756

INC

5$:

BIS
8IS

7%:

TYPE
DECB

MovB

000002

.88
SOCNT

8GT

(SP)+ R3

2(SP),4(5P)

(SP)+, (SP)

RT!

8s:
SOCNT:
SOFILL:
SOMODE:

.BYTE
BYTE
.BYTE
.BYTE
.WORD

.SBYTL

TTY

THIS DIGIT

THIS DIGIT?

::BR If NO
;;GET RID OF JUNK
;:TEST FOR O

;s SUPPRESS THIS 0?

;:BR IF

YES

;:DON'T SUPPRESS ANYMORE 0°'S

;;MAKE THIS DIGIT ASCII
;;MAKE ASCII IF NOT ALREADY
;:SAVE

FOR TYPING

;.60 TYPE THIS DIGIT
;:;COUNT BY 1

ISN'T A BLANK
;:60 DO THE LAST DIGIT
;:RESTORE RS

(SP)+ R4

L[]

SEQ 0127

23
(SP)+ RS

MoV

Mov

000004

J:TYPE

128

;:BR IF MORE T0 DO

6%
R4

MoV

PAGE

BLT
INC

8R
MoV

6%:

7001
7002
7003

7004
7005
7006
7007
7008
7009
7010
7011
7012
7013
7014
7015
7016
7017
7018

MACY11
BINARY

0
0
0
0
O

;:BR IF DONE
s INSURE LAST DIGIT
;;RESTORE R4

;;RESTORE R3
;:SET

THE

STACK FOR RETURNING

s oRETURN

;:STORAGE FOR ASCII DIGIT
;:TERMINATOR FOR TYPE ROUTINE
;.;O0CTAL DIGIT COUNTER
;:lERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE

INPUT ROUTINE

::'t't"""Q""t"t"Qtt'ii""'tt"i!ititfit'ttt'ttttltt.!ttttt

.ENABL
MR

023762
023770
023772
023776
024000
024004
024010
024014
024016
024024

022737
001074

000176

117746
042716
022726
001062
123727
001456

155142
177600
000007

024026
024032

104401
104401

024647
024654

105777
100071

001140

LSB
R

AR AR AR

AR ARl

ARl

ittt

iiststiliilsdl)

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

$CKSWR:

155146

001134

AR A

000001

$GTSWR:

(AP

#SUREG, SWR

;.15 THE SOFT-SWR SELECTED?

BPL
movs
BIC
cmp
BNE
CmpP8
BEQ

158
#%$7K8,-(SP)
# C177,(SP)
#7,(SP)+
15%
$AUTOB, M
158

:;1F NO, DON'T WAIT AROUND
::SAVE THE CHAR
;:STRIP-OFF THE ASCII
::1S IT A CONTRGL G?
;:NO, RETURN TO USER
;;ARE WE RUNNING IN AUTO-MOVE?
: :BRANCH IF YES

SCNTLG
,SMSWR

;;ECHO THE CONTROL-G ( G)
::TYPE CURRENT CONTENTS

BNE
1518

TYPE
TYPE

158
88T1KS

s ;BRANCH [F NO
;: CHAR THERE?

MD-11-CZRKKF,
CZRKKF P11

7050
7051
7052
7053

7054
7055
7056
7057
7058
7059
7060
7061
7062

7063
7064
7065
7066
7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077

LOGIC

21-FEB-78 08:51

013746

024036
024042
024044
024050
024052

104402
104401
005046

024060

100375

TEST

MACY11
TTY

024665

30A(1052)

INPUT

000176

ROUVINE

MoV
TYPOC
TYPE

19%:

L 10
21-FEB-78
08:58

SWREG,~(SP)

. SANEW

9%7kB,-(SP)
# C177,(5P)

;:PICK UP CHAR

;:1S 1T A CONTROL-U?
: :BRANCH IF NOT
;;YES, ECHO CONTROL-U ( V)
;. IGNORE PREVIOUS INPUT

024072
024076

021627
001005
104401
062706
000757

000025

9%:

024642
000006

cmp
8NE

(SP) ,#25
108

208:

ADD

#6,5P
19%

021627
001022
005766
001403
016677
062706

000015

10%:

024154
024162
024164
024170
024174
0246176
024202
024204
024210
024214
024216
024220
026222
024224
024230
024234
024236
024242

000001

000100

154762

023240
000060

155004

000002
000006
001213
001135

[2
]

104401

123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401
000720

TYPE

000004
—h

024112
026116
024120
024124
024126
024134
024140
024144
024152

15%:.
16$%:

000067
000060
000002

Chp
BNE
TS7
BEQ
MoV
ADD
TYPE
CHPB
BNE
MoV

RTI
JSR

cHpP
BLT
CHpP
BGT

BIC
TST

BEQ

000002
177776

17%:

001212

18$:
.DSABL

FOR NEW SWR

MOv8
BIC

155060

024100
024104
024110

;;PROMPT

BPL

117746
042716

177660

;;SAVE SWREG FOR TYPEOUT
;60 TYPE-=-OCTAL ASCII(ALL DIGITS)

;s CLEAR COUNTER
;THE NEW SWR
;. CHAR THERE?
::1F NOT TRY AGAIN

024062
024066

7%:

129

=(SP)
=(SP)
887kKS
4]

024054

155064

PAGE

(LR
CLR
1ST18

005046
105777

s =

7047
7048
7049

BASIC

—

7022
7023
7024
7025
7026
7027
7028
7029
7030
7031
7032
7033
7334
7035
7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046

RK11

ASL
ASL
ASL

INC
BIS
BR
TYPE
B8R
LSB

LSCNTLU

(SP),#15

16%
4 (SP)
11$

2(SP) ,3SWR

#6,5SP

+SCRLF

M
SINTAG,
15%
#100,387KS
PC,STYPEC

(SP),#60
18%
., #67
(SP)
18%
260, (SP)+
2(SP)
17%
(SP)
(SP)
(SP)
2(sp)
~2(SP), (SP)
7%

,SQUES
208

J:MAKE IT 7-BIT ASCII

;sLET'S TRY IT AGAIN

J:IS IT A < CR>?
; :BRANCH IF NO
;oYES, IS | T THE FIRST CHAR?
; :BRANCH IF YES
::SAVE NEW SWR
;;CLEAR UP STACK
:;ECHO <CR> AND <LF>
. s RE-ENABLE TTY KBD INTERRUPTS?
; :BRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS
; sRETURN
;:ECHO CHAR
::CHAR < 0?
s sBRANCH IF YES
:CHAR > 7?7
: :BRANCH IF YES
::STRIP~OFF ASCII
;.18 THIS T HE FIRST CHAR
; ;BRANCH IF YES
;:NG, SHIFY PRESENT
CHAR OVER TO MAKE
;:
ROOM F OR NEW ONE.
s;
:;KEEP COUNT OF CHAR
::SET IN NE W CHAR
;:GET THE NEXT ONE
;s TYPE ?2<(R ><LE>
2 SIMULATE CONTROL-U
2

AAAAA AR

AR AR ARl

R Rttt
ittt it
ittt

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

seCALL:

o
HA
%

”

RDCHR
RETURN HERE

s INPUT A S INGLE CHARACTER FROM THE TTY
;s CHARACTER IS ON THE STACK
;:WITH PARI TY BIT STRIPPED OFfF

SEG 0128

MD-11-CZRKKF,

CZRKKF P11
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
71
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
026344
024352
024354
024362

RK11

BASIC

LOGIC

21-FEB-78 08:51

011646
016666
105777
100375
117766

042766
026627
001013

000002

154660
177600

000004
000004
000023

154664

000004
154632

117746

154626
177600
000021

042716
022627
001366
000750
026627
002407
026627
003003
042766
000002

000004

105777

100375

TEST

30A(1052)

SRDCHR:

MOV
MoV
1578
BPL

(SP),-(SP)
4 (SP),2(SP)

;:PUSH DOWN THE PC
;s SAVE THE PS
;sWALT FOR
;sA CHARACTER

CMP

4&(SP),#23

;:1S 1T A CONTROL-S?

TTY

INPUT ROUTINE

18:

28:

000140

000004

000175

000040

000004

33
887KS

28
#8$TKB,-(SP)
¥ C177,(SP)

(SP)+, #21

BNE

CmwpP

4(SP) 4140

cmp
867
BI1C

4(SP) ,#175
‘s
#40,4(SP)

BLY

RTI

asTKS

BNE
1S18

4%:

08:58

#871KB, 4 (SP)
¥ C<177>,4(SP)

BPL
MOvB
BIC

38:

21-FEB-78

move
BIC

cmp

000004

M 10

MACYT1

SRS

ARl

PAGE

130

SEQ 0129

s READ THE TTY
;;GET RID OF JUNK IF ANY
; :BRANCH IF NO
;:WAIT FOR A CHARACTER

::LOOP UNTIL ITS THERE
;:GET CHARACTER
;sMAKE IT 7-BIT ASCII

2:1S IT A CONTROL-Q?
::1F NOT DISCARD IT
::YES,

RESUME

;.18 1T UPPER CASE?
: :BRANCH IF

YES

;:1S 1T A SPECIAL CHAR?
;;BRANCH IF YES
s :MAKE IT UPPER CASE
::G0 BACK

TO USER

ARl

itslntddd)

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

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

ROLIN

RETURN HERE

$SRDLIN: MOV
CLR
1$:
nov

024620
024642

i ¥

CRHP .

8LOS

RDCHR

10$:

000177

000134
024616
177777

024616

024616
024616
5%:

000134
024616
000025

024616

(SP)+,(R3)

J:GET CHARACTER

Mov

#-1,(SP)

MOVB

(R3),9%

MOVB
TYPE

I4 ¥

:;BR IF

(SP)
63
” ,9%

BR
TST
BEQ

CLR

CMPB

CHARACTER WILL BE ON THE

#STTIYIN®22 RS

TST
BNE
MOVB

TYPE

FIRST

;;TERMINATOR WILL BE A BYTE OF ALL 0'S
;:SAVE R3
;s CLEAR THE RUBOUT KEY
;:GET ADDRESS

£2177,(R3)

DEC
cmp
8L0

;:ADDRESS OF

R3,-(SP)
-(SP)
#STIYIN,R3

CMPB

BNE

TYPE

6%:

024620

MOVB

J:INPUT A STRING FROM THE TYY

.98

R3
RI,#STTYIN
% 3
.93

;;BUFFER FULL?
YES

;:G0 READ ONE

CHARACTER FROM THE

;oIS 1T A RUBOUT
;:BR IF NO

2:1IS THIS THE FIRST RUBOUT?
;:BR IF NO
;:TYPE A BACK SLASH

;:SET THE RUBOUT KEY

::BACKUP BY ONE
;:STACK EMPTY?
;:BR IF YES

2:SETUP TO TYPEOUT THE DELETED CHAR.
;.60 TYPE

23
(SP)
7%

::G0 READ ANOTHER CHAR.
:;RUBOUT KEY SET?
;:BR IF NO

(SP)

;s CLEAR THE RUBOUT KEY

' 9%
,9%

#25,(R3)

TTY

;sTYPE A BACK SLASH

::1S CHARACTER A CTRL W?

STACK

MD-11-CZRKKF,
CZRKKF . P11

7134
7135
7136
7137
7138
7139
7140
7141

7142

024504
024506
024512
024514
024520
024522
026524
024530

024534

RK11 BASIC LOGIC
21~FEB-78 08:51

001003
104401
000726
122713
001011
105013
104401
104401

000717

7143
7144
7145
7146
7147
7148
7149
7150
7151
7152
7153
7154
7155
7156
7157
7158
7159

024536
024542
024544
024550
024554
024560
024562
024566
024572
024574
024576
024600
024606
024614
024616
024617
024620

104401
000712
111337
104401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
000022

7161

024647

136

TEST

MACY11 30A(1052)
TTY INPUT ROUTINE

024642
000022

8$:

001213
024620

001212

4%:

024616
024616
000015
177777
001214

000004
024620

000002
000004

BNE
TYPE
BR
CMPB
BNE
CLRB
TYPE
TYPE

TYPE
BR
3$:
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
TST
MOV
MOV
MoV
MOV
RT!
9%:
.BYTE
.BYTE
STTYIN: .BLKE

N 10
21-FEB-78
(08:58

PAGE

131

8s
JSCNTLU
1%
#22,(R3)
3
(R3)
.SCRLF
LSTIYIN

;:BR IF NO
;;TYPE A CONTROL ‘U”
:;6G0 START OVER
;s 1S CHARACTER A "' R'"TM?
;;BRANCH If NO
;s CLEAR THE CHARACTER
:sTYPE A 'CR & '"'LF"
;:TYPE THE INPUT STRING

. SQUES
1%
(R3),9%
.98
#15,(R3)+
2%
-1(R3)
LSLF
(SP)+
(SP)+,R3
(SP) ,-(SP)
4(SP),2(SP)
#STTYIN,4(SP)

;sTYPE A '
;s CLEAR THE BUFFER AND LOOP
::ECHO THE CHARACTER

Pk 3

SEQ 0130

2:60 PICKUP ANOTHER CHACTER

;s CHECK FOR RETURN
;;LOOP IF NOT RETURN
;s CLEAR RETURN (THE 15)
;.TYPE A LINE FEED
;:CLEAN RUBOUT KEY FROM THE STACK
..RESTORE R3
:ADJUST THE STACK AND PUT ADDRESS OF
i
FIRST ASCII CHARACTER ON IT

;sRETURN
;:STORAGE FOR ASCII CHAR. TO TYPE,
s ; TERMINATOR
;:RESERVE 22 BYTES FOR TTY INPUT
;:CONTROL "'U'’
;:CONTROL ''G"’

SCNTLU:

.ASCIZ

SMSWR:

.ASCIZ

0
0
22
/7 u/<(15a
>
7 G/<15>12>
<15><12>/SWR =

SMNEW:

L.ASCIZ

;}gg

.SBTTL

TRAP DECODER

7169
7170
71
7172

;""'ttt‘*'t't't'it'I’"tfi"t.fit"l"i*iitl’itiittt*'ttiittttttttt
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP'' INSTRUCTION
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

7160

7162
7163
7164
7165
7166

024642

024654
024662
024665
024672

052536

005015

005015
020075
040
036440

053523
000
047040
000040

006507

000

000012

020122
053505

;};2

7175
7176

7177
7178
7179
7180
;}g;

7187
7188
7189

.ASCIZ

NEW =/
;CONTROL U, RUBOUT CAPABILITY

;*G0 TO THAT ROUTINE.

024676
024700

024704
024706
024710
024712
024716

010046
016600

005740
111000
006300
016000
000200

$TRAP:

000002

3
Y
024720

024722
024730

011646

016666
000002

000004
.

MOV
MoV

TST
MOVB
ASL
MOV
RTS

024732

7183
;}gg
7186

SCNTLG:

000002

::THIS

IS USE

$TRAP2:

MOV

Mov
RT1

RO,-(SP)
2(SP),RO

-(RO)
(RO) RO
RO
$STRPAD(RO)
,RO
RO

:sSAVE RO
;:GET TRAP ADDRESS

:;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
:;POSITION FOR INDEXING
;;INDEX TO TABLE
;:G0 TO ROUTINE

TO HANDLE THE "'GETPRI'® MACRO
(SP),~(SP)

4(SP),2(SP)

;. MOVE

THE PC DOWN

:;MOVE THE PSW DOWN
;;RESTORE THE PSW

THE

MD-11-CZRKKF,

CZRKKF P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

7190
7191
7192
7193
7194
7195

7196
7197
7198

7199
7200
7201
7202
7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218
7219
7220
7221
7222
7223
7224
7225
7226
7227
7228
7229

7230

7231

7232
7233
7234
7235
7236
7237
7238
7239
7240
7241
7242
7243
7244
7245

MACY11
TRAP

an
21-FEB-78
08:58

30A(1052)

TABLE

.S8TTL

TRAP

PAGE

132

SEQ 0131

TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES Of
:*BY THE "'TRAP” INSTRUCTION.

THE

ROUTINES

CALLED

ROUTINE

024732
024734
024736
024740
024742
024744

024720
023070
023560
023534
023574
023310

024746

024032

024750
024752
024754

$STRPAD: .

S$TRAP?

TRAP+1(104401)
TRAP+2(104402)

;. CALL=TYPE
;s CALL=TYPOC
5 CALL=TYPOS

TRAP+3(104403)

;. CALL=TYPDS

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)

$GTSWR

s CALL=0TSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

023762
0246244
0246364

$CKSWR
SROCHR
SROLIN

;s CALL=CKSWR
:; CALL=RDCHR

;s CALL=RDLIN

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)

TEST FOR CHANGE IN SOfT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE

024756

021760

CH.CRDY

; :CALL=CHKCRDY

TRAP+12(104412)

CHECK CONTROL READY

024760

022014

CN.RST

. RESET
;s CALL=CNT

024762

022032

CN.RDY

. RDY
;;CALL=CNT

TRAP+14(104414)

WAIT FOR

024764

021056

8DA0

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

;s CALL=DELAY

TRAP+17(104417)

TIME

024772

021706

JATINT

INT
;s CALL=WAT

TRAP+20(104420)

WAIT FOR RK11

024774

021572

TSTSIN

;s CALL=TST.SIN

TRAP+21(104421)

TEST

024776
025004
025012
025014
025016
025020
025022
025024
025026
025032
025036
025044
025046

012737
012737
010046
010146
010246

;s CALL=TYPON

025142
000340

000024
000026

010346

010446
010546
017746
010637
012737
000000
000776

154106

025146
025050

00002«

TRAP+13(104413)

.SBTTL

POWER DOWN AND UP ROUTINES

AARAR

ARt

CONTROL RESET ROUTINE
CNTRL RDY

DELAY ROUTINE

INTERRUPT

SIN ROUTINE

dtRdtlitdstllld)

:POWER DOWN ROUTINE

$PWRDN:

MOV

mov
mov
MoV
Mov
mov
MOV
mov
mov
Mov
MOV
HALT

B8R

#SILLUP,R#PWRVEC ;. SET FOR FAST UP
#340,3#PURVEC+2 ;.PRIO:7
RO,-(SP)
;s PUSH RO ON STACK
R1,-(SP)
; :PUSH R1 ON STACK
R2,=(SP)
;s PUSH R2 ON STACK
R3,-(5P)
2 PUSH R3 ON STACK
R&,~(SP)
;s PUSH R4 ON STACK
R5,~(SP)
: . PUSH RS ON STACK
aSWR,
- (SP)
;s PUSH aSWR ON STACK

SP,$SAVRé

;. SAVE SP

; sHANG UP

#SPYRUP ,3#PWRVEC

TO SET

;;SET UP VECTOR

JonRREARENTREREASCROCTORRECRERRRACERERALTECRERAROTARNCORORRROARATEROARATERNCNTY

ROUTINE

MO-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
727
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

025050
025056
025062
025066

025072

025074
025100
025102
025104
025106
025110
025112
025114
025122
025130

RK11

BASIC

21-fEB-78 08:51

012737
013706
005037
005237
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
104401

025132
025134
025136
025140
025142
025144
025146
025150
025156

025150
012716
004702
000002
000000
000776
000000
005015
000122

025160
025164
025166
025170
025176
025204
025206

004737

025214

025216
025224
025232

025240
025242
025250
025252
025260
025262
025264
025272
025276
025300
025302
025304
025310
025314
025316
025320
025324
025326

LOGIC

104026
104413
013737
032737
001404

042737
000403
052737
013777
012777
104414
013777
104414

032777
001001
005725
013737
004737
104026
000205
000000
005037
012700
005710
001413
005760
001410
004537

025142
025146
025146
025146

TEST

000024

154040

MACY11
POWER

DOWN AND UP ROUTINES

Mov
Mov
MOV

mov

000024
000026

MoV

MoV
$PWRMG:

$PWRAD :
SILLUP:

047520

042527

PAGE

133

SEQ 0132

.POWER UP ROUTINE

SPWRUP: MOV
Mov
CLR
18:
INC
BNE
Mov
MoV

mov

024776
000340

cn
21-FEB-78
08:58

30A(1052)

$SAVR6:
$SPOWER:

TYPE
.WORD

mov

.#?RD

HALT
BR
0
.ASCIZ

#SILLUP,3#PWRVEC ;;SET FOR FAST DOWN
$SAVRE, SP
;.GET SP
$SAVR6
;;WAIT LOOP FOR THE TTY
$SAVR6
;WALT FOR THE INC
1%
;;0F
WORD
(SP)+,aswR
:;POP STACK INTO @SWR
(SP)+,RS
;:POP STACK INTO RS

(SP) ¢+ R4

;:POP STACK INTO R4

(SP) +,R1

;sPOP STACK

(SP)+,R3
(SP)+,R2
(SP)+,RO

#SPWRDN ,@#PWRVEC

:.POP STACK
;:POP STACK

INTO R3
INTO R2
INTO R1

;:POP STACK INTO RO

;. SET UP THE POWER DOWN VECTOR

#340,3#PWRVEC+2 ; ;PR]O:7
SPOWER
(PC)+,(SP)

;REPORT THE POWER FAILURE
;;POWER FAIL MESSAGE POINTER

;;RESTART AT PFSTRT

PFSTRT

;;RESTART ADDRESS

.~2

;. THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

<15><12>"'POWER"’

.EVEN

021504

FCHECK:

001350
020000

025302
001350

020000

001350

020000
001350
000011

001350
154106
154072

025302

154070

000100

154046

025302
021504

001350

001350
001414
000002
025160

18:

28:

JSR

PC,ORESET

ERROR

BIT
BtQ

#20000,DRIVAD
1%

BIS

#20000,DRIVAD

CNT.RESET
MoV
DRIVAD .DRHOLD

:SAVE

géc

:MAKE EVEN

MOV

g%OOOO.DRIVAD

DRIVAD,SRKDA

mov
#11,3RK(S
CNT.RDY

Mov
DRHOLD,8RKDA
CNT.RDY

3s:

JRESETB DRIVE

BIT
BNE
TST
Mov
JSR

ERROR
RTS
DRHOLD: 0
SIZEF:
(LR
MoV
48:
TST
BEQ
TST
BEQ
JSR

#100,3RKDS
3s

(R5)+
DRHOLD,DRIVAD

DRIVE ADRR

;SEE IF 0DD

;MAKE 00D

;DRIVE ADDR

:DRIVE SEEK
;OTHER DRIVE

;HEAEDS IN MOTIONN?
:NO SO Rk-05J

PC,DRESEY

;YES RK-05f
;RESTORE ADDR
SWAIT FOR RESET

DRIVAD
#DRIVO,RO
(RO)
2%
2(RN)

;START AT DRO
;TABLE OF AVAIL DRIVES
;THIS DRIVE HERE?
:NO
; COMPLEMENT HERE?

26
RS

23
RS, FCHECK

:NO
;SEE IF F MODEL

MO-11-CZRKKF,
CZRKKF PN

7302
7303
7304
7305
7306

7307

7308
7309
7310
731
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

RK11

BASIC

LOGIC

21-FEB-78 08:51

000405
052710
052760
005720
005720
062737
022700
003353
000207

100000
100000
040000

001433

TEST

000002

MACY11
POWER

2%:

001350

30A(1052)

DOWN AND UP

b N
21-FEB-78
08:58
ROUTINES

BR
8IS
81S
1St

2$
#100000, (RO)
#100000,2(R0)
(RO)+

CMP
BGT

#ORIV?+1,R0
43

IST
ADD

RTS

PAGE

134

SEQ 0133

;J MODEL
;SET SIGN FOR F
;BOTH DRIVES

(RO)+
#40000,0RIVAD

;NEXT PAIR Of DRIVES
JNEXT ALTUL ADDR

;CHECKED ALL?
JNOT YET

;ERROR MESSAGES

025370
025376

045522

025402
025410
025415
025422

051105

025427
025434
025442
025450

051127
043101
051447

041527
000122

.SBYTL

ERROR MESSAGES

042440

EM11:

LASCIZ

/RKWC EROR/

044523
051440

05151
000

EM12:

LASCIZ

/SIN IS SET/

122

020101
000

EM13:

.ASCIZ

/RKBA EROR/

122

020101
020107
020122
000047

EM16:

.ASCIZ

/RKDA WRONG AFTER

047522

042523

'SSE'/

025456
025464

045522

051504
000122

042440

EM21:

.ASCIZ

/RKDS EROR/

025470
025476

050104
000124

020114

042523

EM30:

.ASCIZ

/DPL SET/

025500
025506

051104
000724

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
062111
042523

045517
023516
000124

062040
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/

047522

MD-11-CZRKKF,
CZRkKF P11

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11 30A(1052)
ERROR MESSAGES

EMN
21-FEB-78
08:58

PAGE

135

7358
7359
7360
7361
7362

025623
025630
025636
025644
025652

123
052116
047104
041516
000

041505
020122
052047
046522

0461455
044504
044440
052116

EM36:

LASCI2

/SEC-CNTR DIDN'T

7364
7365
7366
7367
7368
7369
7370
7371
7372
7373

025653
025660
025666
025674
025702

052517
047111
052116
047522

123

041505
052116
051103
042105
043516

041455
020122
042515
053440
000

Em37:

.ASCIZ

/SEC-COUNTR

INCRMENTED WRONG/

104
020124

042111
042507
051475
020122
051440
000

023516
020124
020101
044124
041505

EM4O:

LASCIZ

/DIDN'T GET

SC=SA FOR

7363

7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397

7398
7399
7400
7401
7402
7403
7404
7405

7406

7407
7408
7409
76410
7411
7612
7413

INCRMNT/

025707
025714
025722
025730
025736
025744

041523
047506
05151
051124

025747
025754
025762
025770
025776

027522
042122
052517
020105

105

047522
027527
020131
042114
042523

026522
020123
044123
041040
000124

EMGY:

LASCIZ

“EROR-R/W/S RDY SHOULD BE SET''

026004
026012
026020
026026
026034

047125
052103
030513
042526
000124

054105
042105
020061
051122

042520
051040
047111
050125

EMS3:

LASCIZ

/UNEXPECTED RK11

026036
026044
026052
026060
026066
026074
026102
026110

047103
042122
047104
052105
051105
020113
020122
000124

051124
020131
052047
040440
051440
051117
042522

020114
044504
051440
052106
042505
042040
042523

EM4S:

LASCIZ

/CNTRL

026112
026120
026126
026134
026142
026150
026156

051105
044040
020124
047117
020113
020122
000124

020122
020105
042523
051440
051117
042522

051117
044502
020124
042505
042040
042523

EM4S:

.ASCIZ

/FRR OR HE BIT

026160
026166
026174
026202
026210

045522
052111

051105

041040

EM4LG:

LASCIZ

/RKER BIT,

051440
051117
042522

042505
042040
042523

000124

026216
026224

045522
047110

051503
042107

041440
040440

EM4LT:

LASCIZ

/RKCS

020054

047117
020113
020122

RDY DIDN'T

THIS

SECTR/

INTERRUPT/

SET AFTER SEEK OR DR RESET/

SET ON SEEK OR DR RESET/

ON SEEK OR DR RESET/

CHNGD AFTR FUNCTION WAS DONE/

SEG 0134

MD-11-CZRKKF,

CZRKKF P11

7414
7415
7416

7617

7418
7419
74620
7421
7622
7423
7424
7425
7426
7427
7428
7429
7430
7431
7432
7433

7434

7435
7436
76437
7438
7439
7440
7441
7442
7443

7444
7445
7446
7647
7448
7449
7450
7451

7452
7453
7454
7455
7456
7457
7458
7459

7460

7461
7462
7463
7464
7465
7466
7467
7468
7469

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11 30A(1052)
ERROR MESSAGES

F1N

21-FEB-78

08:58

PAGE

026232
026240
026246
026254

052106
041516
053440
047117

020122
044524
051501
000105

052506
047117
042040

026260
026266
026274
026302

027522
042122
047104

027527
020131

020123
044504
061440

EMSO:

LASCIZ

“R/W/S RDY DIDN'T CLEAR"

051457
042040
020124
043101
042505
042040
042523

EMS51:

LASCI2

"R/W/S RDY DIDN'T

026307
026314
026322
026330
026336
026344

042514

052047
051101

122

053457

136

000

SET AFTR SEEK OR DR RESET"

026352
026360

051040
042111
042523
051124
020113
020122
000124

026362
026370
026376
026404

045522
047110
052106
045505

040504
042107
020122
000

041440
040440
062523

EMS52:

LAS{IZ

/RKDA CHNGD AFTR

026407
026414
026422
026430
026436
026444

051040
042111
046103
043440
020123

103

052116
054504
023516

046122
042040
027124

EM53:

LASCIZ

/CNTRL RDY DIDN'T CLR AS GO WAS SET/

042523

040527
000124

020114
044504
051440
020116
046506
051101
043040
062074
051104

EMS54:

LASCIZ

"‘CNTRL RDY DIDN'T SET ON WRT/FMT STARTING FROM <DSK-ADRES>"

047103
042122

054504

023516
020124

051440
051117
042522

020122
020117

051124
020131
052047
047440
027524
052123
043516
020115

SEEK/

051501

026452
026460
026466
026474
026502
026510
026516
026524
026532
026540

047104
052105
051127
020124
044524
047522

045523
051505

040455

026544
026552
026560
026566
026574
026602
026610
026616

042510
051105
053440
052115
052122
051106
051504
042522

047440
020122
052122
051440
047111
046517
026513

EM55:

LASCIZ

""HE OR ERR ON WRT/FMT STARTING FROM <DSK-ADRES>"

037123

020122
047117
043057
040524
020107
036040
042101
000

026623
026630
026636
026644
026652

122
047111
042124
043516
051127

042113
051103
053440
047440
026524

020101
047115
047522
020116
246506

EMS6:

CASCIZ

/RKDA

000076

INCRMNTD WRONG ON WRT=FMT/

SEQG 0135

MD~11-CZRKKF,
CZRKKF
. P11

7470
7471
7472
7473
76474
7475
7476
7477
7478
7479
7480
7481
7482

7483
7484
7485
7486
7487
7488
7489
7490
7491
7492

7493

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

6N
21-FEB-78
08:58

PAGE

137

SEQ 0136

026660

000124

026662
026670
026676
026704
026712

045522
042111
053117
047440
020124

041527
023516
043122
020116
046506

042040
020124
047514
051127
000124

EMS7:

LASCIZ

/RKWC DIDN'T OVRFLO ON WRT FMT/

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

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/

INCRMNTD WRONG ON WRT FMT/

MD-11-CZRKKF,
CIRKKF PN

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

MACY11 30A(1052)
ERROR MESSAGES

H 11

21-FEB-78

08:58

PAGE

138

SEQ 0137

027026
027034
027042
027050
027056
027064

045522
041516
020104
020107
020104
020104

040504
046522

EM63:

CASCIZ

/RKDA

INCRMNTD WRONG ON RD OR RD

051127
047117
051117
046506

044440
052116
047117
051040
051040
000124

027072
027100
027106
027114
027122
027130

045522
042111
053117
047440
047440
043040

041527
023516
043122
020116
020122
052115

042040
020124
047514
042122
042122
000

EM6ES:

.ASCIZ

/RKWC

DIDN'T OVRFLO ON RD OR RD FMT/

027135
027142
027150
027156
027164
027172
027200

047111
042124
043516
0462122
042122
000

122

041113
051103
053440
047440
047440
043040

020101
047115
047522
020116
020122
052115

EM6S:

LASCiZ

/RKBA

INCRMNTD WRONG ON RD OR RD FMT/

FMT/

027201
027206
027214
027222
027230
027236

042522
040505
051106
042523
000047

041516
052103
042504
046517
052103

051117
044040
020122
023440
051117

EM66:

.ASCI2

/INCORRECT HEADER

027240
027246

040504
051122

040524
051117

042440

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
042040
020124
047117
046506
051101
043040
042074
051104

EM70:

LASCIZ

“'CNTRL RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ADRES>"

027344
027352
027360
027366

042510
051105
051040
020124
044524
047522
045523

020122
047117
046506
051101
043040
042074
051104

EM71:

LASCIZ

""HE OR ERR ON RD/FMT STARTING FROM <DSK-ADRES>"

051505

047440
020122
027504
05212%
043516
020115
040455
000076

051127
051104
042111
045522

047117
053111
044440
051504

020107
020105
020116
040440

EM72:

LASCIZ

/WRONG DRIVE

027374
027402
027410
027416

027422
027430

027436
027444

000

FROM

'SECTOR'/

ID IN RKDS AFTER SEEK/

MD-11-CZRKKF,
CIZRKKF P11

7550
7551
7552
7553
7554
7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
7566
7567
7568
7569
7570
7571
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

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11 30A(1052)
ERROR MESSAGES

I N
21-FEB-78
08:58

PAGE

139

SEQ 0138

027452
027460

052106
042505

051105
000113

051440

027464
027472

053504
046117
020126
052111
030455
046110
046103

042522
026514
042111
024123
024465
041104
000122

EM73:

.ASCIZ

/HRDWRE POLL-DRV

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
051124
043516
020126
020124
000124

042522
026514
050125
042040
020043
051120

EM74:

ASCI2Z

/HRDWRE POLL-INTRUPTING DRIV # NOT

027606
027614
027622
027630
027636
027644
027652

051104
062040
020124
050125
042524
053504
046117

053111
042111
047111
020124
020122
042522
000114

021440
023516
051124
043101
051110
050040

EM75:

LASCIZ

/DRIV # DIDN'T

INTRUPT AFTER HRDWRE

027656
027664
027672
027700
027706
027714

041523
047104
052105
051105
020113
047504

020120
052047
040440
051440
040527
042516

044504
051440
052106
042505
020123
000

EM76:

LASCIZ

/SCP DIDN'T

AFTER SEEK WAS DONE/

027721
027726
027734
027742
027750

122
044103
040440
042040
042522

042113
047101
052106
044522
042523

020101
042107
051105
020126
000124

EM77:

.ASCIZ

/RKDA

027756
027764
027772
030000

040504
047522
053440

040524
020122
051117

042440
052101
021504

EM100:

.ASCI2

/DATA EROR AT WORD#/

030001
030006
030014
030022
030030
030036

103
051040
062111
042523
042524

052116
054504
023516
020124

EM101:

LASCI2

/CNTRL RDY DIDN'T

041440

046122
042040
020124
043101
042122
000

030043
030050
030056
030064

020122
020116
045510

105

051122
042510
042122
00C

047440
047440
041440

EM102:

.ASCIZ

/ERR OR HE ON RD (HK/

027500

000

020122
045510

SET

ID BITS(13-15)

SHLDBE

CHANGD AFTER DRIV RESET/

SET AFTER RD CHK/

CLR/

PRSNT/

POLL/

7641
7642
7643
7644
7645
7646
7647
7648

7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661

08:58

PAGE

140

SEG 0139

103

042523
042122
000

047440
041440

EM103:

LASCIZ

/CSE

044504
047440
047514
062122
067440
020124

122

053513
047104
042526
047440
041440
020122
044103

020103
052047
043122
020116
045510
051127
000113

EM104:

LASCI2

/RKWC

DION'T OVERFLO ON RD CHK OR WRT

030156
030164
030172
030200
030206

045522
041516
020104
020107
020104

040504
046522
051127
047117
044103

044440
052116

EM105:

LASCIZ

/RKDA

INCRMNTD WRONG ON RD

047117

030214
030222
030230
030236
030244

045522
040510
043101
042122
000

040502
043516
042524
041440

041440
020104
020122
045510

EM106:

LASCIZ

/RKBA

CHANGD AFTER

030245
030252
030260
030266
030274
030302

115

051117
042122
043516
052106
020104

EM107:

LASCIZ

/MEMORY WORD

042105
051105
044103

046505
047527
040510
040440
051040
000113

030306
030314
030322
030330
030336
030344

047103
042122
047104
052105
051105
041440

051124
020131
052047
040440
053440
045510

020114
044504
051440
052106
052122
000

EM110:

LASCIZ

/CNTRL RDY DIDN'T

SET AFTER WRT

030351
030356
030364
030372

110

042440
020116
044103

020105
051122
051127
000113

051117
047440
020124

EM111:

.ASCIZ

/HE OR ERR ON WRT

C(HK/

030376
030404
030412

051127
044103
051105

052111
041505
051117

020105
020113
000

Emi112:

.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 (HK/

030456

045522

040502

044440

EMI14:

LASCIZ

/RKBA

INCRMNTD WRONG ON WRT CHK/

020131
041440

CHK/

(HK/

Mmoo
s
s s
o

030105
030112
030120
030126
030134
030142
030150

ON RD

CHK/

051040
000113

CHK/

020116
045510

030067
030074
030102

a-uraa—

21-FEB-78

CHANGED

AFTER RD

CHK/

RINIAIA
LA IR IA RGN
A

7631
7632
7633
7634
7635
7636
7637
7638
7639
7640

Z21-FEB-78 08:51

MACY11 30A(1052)
ERROR MESSAGES

s md e

7609
7610
7611
7612
7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630

LOGIC

TEST

—

7606
7607
7608

BASIC

ALA TR IA TN IATALCRIA
TR LA

CZRKKF P

RK11

EATAIALAEA

MD-11-CZRKKF,

MD-11-CZRKKF,
CZRKKF PN

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
771
7712

7713
7714
7715
7716
7717

RK11

BASIC

LOGIC

21-fEB-78 08:51

TEST

MACYT1 30A(1052)
ERROR MESSAGES

21-FEB-78

08:58

PAGE

141

IBA

SET/

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
052105

020101
047115
044527
040502
000

EM11S5:

.ASCIZ

/RKBA

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:

LASCIZ

/WRONG MEMORY LOCATION CHANGED WITH

030624
030632
030640
030646
030654
030662
030670

045522
042111
047111
020124

030461
023516
051124
044127
042504
051440

042040
020124
050125
047105
053440
052105

EM117:

ASCIZ

/RK11

DIDN'T

INTRUPT WHEN IDE WAS SET/

030513

EM120:

LASCIZ

/RK11

DIDN'T

INTRUPT AFTER SK WAS INITIATED/

020123
040511

020061
052047
052522
052106
020113
047111
042524

030671
030676
030704
030712
030720

044440

051501
000

INCRMNTD,

WITH

030734
030742

122
044504
044440
052120
051105
040527
05211
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

031002
031010
031016
031024
031032
031040
031046

045522
042111
047111
020124
020122
046517
042105

030461
023516
051124
043101
045523
046120
000

042040
020124
050125
042524
041440
052105

EM122:

LA 12

/RK11

031051
031056
031064
031072

103

052116
051505
042111
046103

046122
052105
023516
040505

EM123:

LASCIZ

/CNTRL RESET DIDN'T CLEAR

030726

051040
042040
020124

047104
052116
040440
051440

DIDN'T

SEEK

INTRUPT

[BA SET/

COMPLETED/

AFTER

COMPLETED/

'SCP'/

MD-11-CZRKKF,

F
. P11
CZRKK
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
mmn
7772
7773

RK11

BASIC LOGIC

¢1-FEB-78 08:51

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

21-FEB-78

08:58

PAGE

031100
031106

020122
000047

051447

050103

031110
031116
031124
031132
031140
031146

045522
042111
047111
020124
020122
047117

030461
02351¢

042040
020124
050125
042524
042040

M124:

LASCIZ

/RK11

031152
031160
031166
031174
031202
031210

047103
042522
044504
041440
043505
000

051124

020114

EM125:

LASCIZ

/CNTRL RESET

DION'T

051114
05151

051040
051124

031211
031216
031224
031232
031240
031246

044504
044440
052120
050103
042526

INTRUPT

051124
043101
042122
000105

042523
047104

020124
052047

DIDN'T

142

INTRUPT AFTER RD DONE/

(LR REGISTR/

122

030513
047104
052116
040440
020125
000114

020061
052047
052522
020124
042514

EM126:

.ASCIZ

/RK11

DION'T

031252
031260
031266
031274
031302
031310

045522

052116
042105
051127
050103
042526

030461
052522
040440
047117
020125
000114

044440
052120
020124
020107
062514

EM127:

LASCIZ

/RK11

INTRUPTED AT WRONG CPU LEVEL/

031314
031322
031330
031336
031344

042447
052111
047104
052105
045522

051122
020047
052047
044440
051105

041040
044504
051440
020116
000

EM130:

.ASCIZ

/'ERR BIT'

031351
031356
031364
031372

110

042440
042111
042523

020105
051122
023516
000124

051117
042040
020124

EM131:

LASCIZ

/HE OR ERR DIDN'T SET/

031376
031404

045522
047522

000122

051105

042440

EM132:

-ASCIZ

/RKER EROR/

031410
031416

054116
020124
052047
000

020103
04450
051440

044502

EM133:

LASCI2

/NXC BIT DIDN'T SET/

031433
031440
031446
031454
031462
031470

122

030513
047104
052116
047440
052106
000122

020061
052047
052522
020116
062440

EM134:

.ASCIZ

/RK11

031424
031432

044504
044440
052120
047523
047522

047104
052105

DIDN'T

SET

CPU LEVEL/

[N RKER/

INTRUPT ON SOFT EROR/

SEQ 0141

MD-11-CZRKKF,
CZRKKF PN

7774
7775
7776
777
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

RK11

BASIC LOGIC

21-FEB-78 08:51

TEST 2

MACY11 30A(1052)
ERROR MESSAGES

LR
21-FEB-78
08:58

PAGE 143

031474
031502
031510
031516
031524

042515
051524
046522
051127
045522

020130
044440
052116
047117
051503

044502
041516
020104
026507

EM135:

LASCIZ

/MEX BITS

03153
031536
031544

127
052117
051101

051520
041440
000

047040
042514

EM137:

.ASCIZ

/WPS NOT

031547
031554
031562
031570
031576
031604
031612

104
051105
020116
043123
047522
045523
052124

052101
051117

020101
047440
047101
043040
044504
020117

EM140:

LASCIZ

/DATA EROR ON

031616
031624
031632
031640
031646
031654
031662
031670
031676
031704
031712
031720

042047
023443
042523
05250,
02012
040503
047040
054523
052117
040510
020106
043065

020126
042522
020054
047516
044504
000104
052502
020116
020122
047440
030055

EM141:

.ASCIZ

/'DRIV #'

EM142:

LASCIZ

/ NO BUSY ON OTHER HALF OF

051124
051105
020115

052040
000131
044522
050040
052116
020124
047111
042524

020117
047440
042510
043114

045522
000

SEQ 0142

INCRMNTD WRONG-RKC(CS/

000

031724

CLEAR/

TRANSFER FROM DISK

PRESENT,

BUT NOT

TO TTY/

INDICATED/

RK-05F/

.EVEN

LSBYTL

ERROR DATA POINTERS

031724

001116

001162

000000

0T1:

.WORD

SERRPC,SREGO,O

031732

031740

001116
000000

001162

001164

pT2:

.WORD

SERRPC,SREGO,$REGY,0

031742
031750

001116
001166

001162
00117¢

001164
000000

0T20:

.WORD

$ERRPC,SREGO,SREGT,$REGZ,SREG3,0

031756

001116

000000

DT21:

.WORD

$ERRPC,0

031762
031770

001116
001166

001162
000000

001164

DT26:

.WORD

$ERRPC,SREGO, SREG1,8REG2.0

031774
032002
032010

001116
001166
001174

001162
001170
001176

001164
001172
001200

DT54:

.WORD

$ERRPC,SREGO . SREGT,SREG2,BREG3,
SREG4, SREGS , SREGS, SREG7,0

MD-11-CZRKKF,
CZRKKF PN

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

032016

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

MACY11

21-FEB-78

30A(1052)

ERROR DATA POINTERS

08:58

PAGE

144

SEC 0143

000000

.SBTTL

ERROR HEADERS
/

032020
032026
032034
032042

020040
051040
020104
041505

041520

043505
020040
042126

020040
042101
051040
000

DHZ:

LASCIZ

032047
032054
032062
032070

040
020040
052103
041505

050040
042440
020040
042126

020103
050130
051040

DH4:

.ASCIZ

EXPCY

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:

LASCIZ

RKCS

032150

020040

041520

000

DH21:

LASCIZ

PL/

032155
032162
032170
032176
032204
032212

040
020040
051303
045522
020040
000

050040
020040
020040
051105

020103
045522
020040
020040
051504

DH30:

.ASC12

032213
032220
032226

040
020040
051504

050040
020040
000

020103
045522

DH34:

LASCIZ

RKDS/

032231
032236
032244

040
020040
047103

050040

042523
051124

020103
026503
000

DH3S:

LASCIZ

SEC-CNTR/

032251
032256
032264
032272

040

020103
051120
047040
052116

DH36:

LASCIZ

PRSNT

NXT~CNT/

032300

020040
047123
052130
000

050040
020040
02012¢
041455

032301
032306
032314
032322

040
020040
047524
045522

050040
051440
020122
051504

020103
04150%
020040
000

DH4O:

.ASCIZ

SECTOR

RKDS/

032327

040

050040

020103

:
DH44

.ASCIZ

RKCS

045522

REGADD

RECVD/

000

RKCS

RKER

RKWC/

RKD S/

RKDS

RKDA/
1]

MD-11-CZRKKF,

CIRKKF PN
7886
7887

7888

7889
7890

7891

7892

7893
7894
7895
7896
7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908
7909
7910
791
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
7923
7924
7925
7926
7927
7928
7929

7930
7931
7932
7933
7934
7935
7936
7937
7938
7939
7940
7941

032334
032342
032350
032356
032364
032372

RK11

BASiC

LOGIC

21-FEB-78 08:51

TEST 2

020040

051040
020040
020122
062113
051040

041513
051040
020040
020123
042113

020123
042513
051040
020040
000101

B 12

MACY11 30A(1052)
ERROR HEACERS

21-FEB-78

145

020040

020040
020040
051105
045522
020040
020040
027043
046131
026513
027076
051456

041520
045522
026040
020040
051504
045522
062040
027056
036056
042101
052523
041505

020040
051503
045522
020040
020040
040504
053122
041456
051504
051522
027122
000

DH5¢:

ASCIZ

972503
032510
032516
032524
032532
032540
032546
032554
032562
032570
032576
032604

040
054105
051104
054503
020040
020040
020040
020072
020040
020040
020122
042523

041520

020040
020072
020040
020040
020122
041505

DH56:

.ASCIZ

/ PC

020040
020040

053103
020043
020114
052523
020040

032610
032616
032624
032632

020040
020040
020040
000101

041520
045522
051040

020040
041527
062113

DH64 :

LASCIZ

RKWC

032634
032642
032650
032656
032664

020040
020040
020122

020040
052103
054105
020040
000104

DH66:

LASCIZ

SECTR

EXPCT

RECVD/

041520
042522

041520
042523
020040
020124
053103

032672
032700
032706
032714
032722
032730

020040
020040
020124
053103
045523

041520
054105
020040
020104
040455

020040
041520

DH67:

ASCIZ

EXPCT

RECVD

DSK-ADRS/

032732
032740
032746

020040
020040
053111

041520
020040
021440

020040
051104
000

DH74:

LASCIZ

032753

040

050040

020103

DH100:

.ASCIZ

000123

051440
042522

051104
054503

000103

RK(CS

PAGE

032374
032402
032410
032416
032424
032432
032440
032446
032454
032462
032470
032476

041520
020043
020114
052523

08:-58

EXPC:

RKER

RKDS

RKDA

(YL

SUR

SEC

DR¥

RKDA/

042522
042040
051104
DRIV #/

WORD #

SEC 0144

EXPCT

RECVD/

DRV#....CYL.<DSK=ADRS>.SUR..SE(/

RECV:

DR#

cyL

SUR

SEC/

MD-11-CZRKKF,
CZRKKF P11

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
7678
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997

RK11

BASIC

LOGIC

TEST 2

21-FEB-78 08:51

MACY11 30A(1052)
ERROR HEADERS

¢ 12

21-FEB-78

08:58

PAGE

146

SEQ 0145

032760
032766
032774
033002

053440
20043
041520

042522

051117
020040
020124
053103

020104
054105
020040
000104

033010
033016

020040
051040

041520
042513

020040
000122

DH103:

LASCIZ

RKER/

033024
033032
033040
033046

020040
051040
020040

041520
0415065

DH104:

LASCIZ

RECVD

051040

020040
042126
041513

033050
033056
033064
033072
033100

020040
020040
020040
041520
062522

041520
046040
020040
020124
053103

020040
041517
054105
020040
000104

DH107:

LASCIZ

Loc

033106
033114

020040
051040

041520
041513

020040
000123

DH117:

LASCIZ

RKCS/

033122
033130
033136
033144

120040
020040
020114
041513

041520
042514
020040
000123

020040
042526
051040

DH126:

.ASCIZ

LEVEL

RKCS/

033150
033156
033164
033172
033200
033206

020040
020040
020123
042513
051122
000

041520
051040
020040
020122
041040

020040
041513
051040
042440
052111

DH130:

.ASCIZ

RKCS

RKER

033207
033214
033222
033230

040
020040
051503
045522

050040
020040
020040
051105

020103
045522
020040
000

DH131:

LASCIZ

RKCS

RKER/

033235
033242
033250
033256
033264
033272

040
020040

050040
020040
020040
051105
045522

020103
045522
020040
020040
040504

DH133:

.ASTIZ

RKCS

RKER

RKDA/

040
020040
052103

050040C
042440
020040
042126
045522
020040
000

020103
050130
051040
020040
040502
04552¢

DH140:

LASCIZ

EXPCY

RECVD

RKBA

033273
033300
033306
033314
033322
033330
033336

000123

051503
045522
020040
000

041505
020040
020040
051503
033342

.EVEN

RKCS/

EXPCT

RECVD/

ERR BIT/

RKCS/

MD-11-CZRKKF,

CZRKKF P11
7998
7999

ggg?
8002
8003
8004

RK11

BASIC

LOGIC

21-FEB-78 08:51

TEST

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
sDATA TRANSFERS FROM AND

;7O

000001

.END

THE

DISK.

MD-11-CZRKKF,

CZRKKF P11

LOGIC

21-FEB-78 08:51

2108
2043
6182
61804
6184#
9934
983«
982#
9814
980#

000004
000010
000020
000040
000100
000200
000400
001000
000014
104415
104416

9914

020026
021242
021402
104412
021262
021270

021356
021342
021234
021226
021316
021760

FKSUR = 104407
CNT.RD= 104414
CNT.RE= 104413

N.RDY
N.RST

BASIC

004600
004534
021074
021056
021066
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000

HE1
HKCCL
IC
CHKCRD=
C HKDA
C HKDA1
C HKECL
C HKER
¢ HKHE
C HKHE1
C NKW(
C H.CRD

RK11

022032
022014

9794

978#
9774
9764
975#
9744
9924
9734
9724
9714
9704
9694
9684
9904
985#
9884
9874
986#
9854
9844
1000#

3697
2834
5693

5820#
6262
4987

2612
2847
3175
4983
2861
2840
3166
2851
6522/
6610
3967
2310
3128
4489
5189
5876
6561
65594

TEST

E 12
MACY11 30A(1052)
21-FEB-78 08:58
PAGE
CROSS REFERENCE TABLE -- USER SYMBOLS

21364
2106
61874

4643

4688

5657

4707
5661

4718

2002
993
992
991

2006

2010

2270

5904

2010

6720

6722

3160
6291

7218#

3249

5364
4428
62824
6284#
5286
4210
4187

7216
7218

21174

149

SEQ 0147

4798

4806

4895

4904

5548

3370

3538

3670

3700

3819

4179

5430
5243

63404
5410

5470

5606

5759

72104

5360
4808
4527
6261#
4202

5426
63164
62644

63294

4819

63024

5321
2566
3637
4847
5350

6393

7284
2722

2776

990
989
988

987
986
985
984

6625
6633

6640
6723
5908
6611
2001

2006

6678

6288
2930
5709
6731
62654
5055

2672
2942
3265
5051
2957
2936
3377
2947

7210
6672
£025

2357
3221
4596

5226

72124

6562#
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

7206#
4092
2446
3452
4748
5276

3833
3726
5021

2531

3508

4769

5305

2598

3792
4927
5380

72144

2656
3906
4973
5425

4003

5004
5448

7286

4120
5041
5513

2895

4234

5070
5587

4265

4523

2996
4308
5110
5667

3098
6397
5139
5754

MD-11-CZRKKF,

COUNTY
COUNT
CR
CRETRN
CRLF

CZRKKF .P11

001362
001364
000015
021430
000200
177570
001410
104417

021664
032753
033010
033024
033050
033106
033122
033150
033207
033235
032113
033273
032020
332150
032155
032213
032231
032251
032047

032301
032327
032075

032374
032503
032610
032634
032672
032732
001142
000174
021504
025302
001350

DRIVS

001412

RIVO
DRIV
RIV2
RIV3

001414
001416
001420
001422
001424

RIVé
RIVS
RIV6

001426

001430

RK11

BASIC

LOGIC

21-FEB-78 08:51

11354
11364
908#

6266
9094
915#
11564

2342
64564
1565
1586
1593
1614

1551

TEST

3410+
6390+
6842
6285
1884
1057

1885

5155

7220
1663
79474
79504
79554
1670
1726
79694
1762

79814

1776
79884
78374
78574
1276
1283
78704
78744
1318
1656
7880#
1290
78474
14620
16656
79194
79244
79304
1544
1855+«
1863
4674
7285

F 12
MACY11 30A(1052)
21-FEB-78
08:58
PAGE
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

150

SEQ 0148

5221+

5264+

1929

1941

2197

2199

1579

1628

1635

1691

7859#

1445
78424

1459

1482

1523

1558

1572

1621

1783

78854

2456
3123

2275

2284

1600

1607

1642

2541
3236

2567
3248

4356

79414

1677
79644

79764
78514

1798
1863+

499N

7290

2272+
2818
3620

79374

6654+

6675+

5260
7294#
2277

5818

63904

6428

7273

7291

2289
2913
3920
4673
5530

2321
2929

2367
3015

2404

2616
3068

2104
2738
3505
4511
5316
6716
1959

4522

5407
6725

4549
5465
7276

2011«

2047+

1973

2050

2101

1996+

2833
3784

3031
4178

7277

6015
4727
5599
7279+

4161
4730
5681
7281+

4749
5757
7282

2097

2237+«

2194

2232

2234

2297

5851

2068+

2077

4254

4264

§326

6264

6282

5017
€360

2610
3262
4419
5086
6391

2265

5820

5862

6711

5891

6719

7296

4785

4862

7290

7295+«

5823+

6939
7307«

MD-11-CZRKKF., RK11 BASIC LOGIC
CZRKKF.P1Y
21-FEB-78 0 8:51

001432
001352
001354

ORIV?
DRVDON
DRVPTR
=
DSWR
[o11

177570
031724

DT2

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
031211
031252
025415
031314

031351
031376
031410
031433
031474
031531
031547
031616
031662
025427
025456
025470

TEST 2

11774
11288
11314
9144
1263
1699
1256
1559
1770
1242
1347
1249
1636
1412
1138#
10034
1564
1571
1578
1585
1592
1599
1606
1613
1804
1620
1627
1634
1641

5859
2102+
2101¢
1056
1284
1706
1312
1594
1806
1291
78224
1270
1664
142
3408+
1839+
75904
75954
76024
76074
76114
7619#
7625#
76314
73164
1775
76454
76504
76544

1655
1662
1669
1240
1676
1683
1690
1697
1704
1711
1718
1725
1338
1732
1740
1747
1754
1761
1768
1782
1789
1767
1809
1254
1261
1268

76684
76744
76834
73204
76914
77004
77064
77144
77214
77284
77354
77424
73234
77494
7755#
77604
77634
77684
77754
77814
7785#
77934
77994
73264
73314
73344

1648

76614

6 12
MACY11 30A(1052)
21-FEB-78 08:58 PAGE
CROSS REFERENCE TABLE -- USER SYMBOLS

7308
5816+
2268
1854
1298
1799
1319
1601

7816#
1354

1277
1692
1431
3429+
1840+

76384

5820
2286+

151

SEQ 0149

6714

1305
78144
1326
1608

1333

1439

1538

1545

1552

1587

1671

1678

1685

1340
1643

1375
1650

1396
1657

1713

1446

1460
1720

1476
1727

1483
1742

1524
1749

1531
1763

1361

1389

1573

1622

1784

179

78194

1368
1734
1468
3629+

1382
1756
1506
3633+

1403
1777
1516
3655

1453
78244
78274
3706

1490

1497

1566

1580

1615

1629

001346
A28

21-FEB-78 08:51

—
i
)
vl
ol

NN N NN
O G0 00~ [« JY IV ¥ Y] Ty
HNOW

1275
1282
1289

025500
025510
025531
025551
025570
025623
025653
025707
025747
0260G4
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
000004
025160
001404

LOGIC

—

en3
EM32
EM33
EM36

BASIC

—

CZRKKF P11

RK11

NN
N N AN AN

MD-11-CZRKKF,

16401
1408
1418
1428
1437
146444
1451

1458
1465
1474
1481

1488
1495
1247
1512
1522
1529
1536
1543
1550
1557
9964
5801
1152#
11264
1014

6573

GTSWR
[GT2RG

021010

[oT3RG

021002

JGT4RG

020774

HHT

000011
001356

INDXT

104406

7214
1878
4956

5346
2335
4425
2222
3157

4521
9064
1133#

5867+

TEST 2

73374
73404
73440
73484
73524
73584
73644
73704
73774

2143
73894

73984
74064
74124
74194
76244
76334
74384
74454
74564
74654
74724
76478#
74854
74914
74944
75014
7508#
75164
75234
1502
75374
75464
75534
75614
75694
75774
75844
1852
72734

H 12
BACY11 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE -~ USER SYMBOLS

152

SEQ 0150

73834

75264

1853
7301

1864+

1892

1893

1901+

6616

6617+

6619+

6622+

2291+«

2303+

5799

1883

1926
7198
7218

7199
7220

1938

1947
7200
7222

1951
7201
7224

1966
7202

1990
7204

2122

2147

2301

6151

6435

5030
5541
2746
4709
2580
3536
5925

5037
61324
2823
61314
2626
3667
6130#

5092

5100

5106

5170

5186

5251

5272

53301

2918
6319
2632
3817
6267

3020

3547

3681

3829

4167

6332

4341

3936
8407

2683
3941
6527

2687
3945

4068

4074

“77

4263

3518+

3735

3737+

3743

3804+

3814

3898+

3977

3982+

5765

6581
7216

72044
4963
5416
2371
4435

2382
3247
5691

6811
2458+
5886

4969

5422
2701

4440

2407
3368
5707
6852
2667«
€027

6029+

2637

7206

7207

2696

7208

2832

7210

2928

7212

3030

MD-11-CZRKKF,
CZRKKF P11

001360
000020
000012

T A

T T

Y O

TR O T B

001216
001236
001245
001272
001303
001315
005040
0014006
033342

004702
001436
177772
000240
000000
000040
000100
000140
000200
000240

000300
000340
177776
177776
000024

104410
104411

000010
001336

001332

RKDA

001340

RK11 BASIC L 0GIC
21-FEB-78 08: 51

11348
10014
9074
10844
1088#
10914
10964
10994
11024

22504
11534

2788

3272
6160
4462
5525+«
21744
11804

9134

001342
001326

IRKER

001330

[RxPR1

001400

2465+
1837«
6846
2045
2080
6570
2288
6710

1 12
MACY11 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE =-- USER SYMBOLS

2469+
1838+

153

SEQ 0151

3652+

3664

5781+

5872+

5954

5975+

5913
2857
3409
4277

6055+
2909
3521+
6324+

6056
2951
3525
4327

2953
3651

301°
3781
4367

6013

80004

5319

3053
3964
4372
5392

7247+

7259+

7260+

3275

3358«
4662

6852

6724

6728

5824

5861+

2813

3274
4247
4464
5532
7264

5910
2855
3334
4253

4503

4829
5898

4831
5982

4365
4943

5677

4789
5893

5850+

5854+

5981

6012

AR!

1894

1843+
72074
72084

1844

7231«

7232+

7241+

2908

3010
4195

3146+
6198
5406+
2741
3662
6672
5379
6392+
2052
2818+
3960
4673
5407+
6284
3101
2202
2619
4750

3238+«
4253«
5467+
2814
3810+
4782
5460
6523
2201+
2913+
3963+

4752

2345
2679
5157

4346
5629
6487

46438

4961

3055
3968
4378
56402+

3141«
3972
4380
5406

3146

3237

4014
44611

4147
4418

3805+
4534

3964+
4537

5461+

5467

10074
9304
9314

9324
9334
9344
9354
9364
9374
9104
9114
10024
7113
1968
9974
11164
4020
4784
11140
333
4320
5088
6265
11174

2610+
3699

4419%
RKDB
RKDS

TEST 2

5241+
5697«

1118#
1112#

2815
4086+
4943
2327«

3529+
4409
5151
6340
1818+

2669
3808+

4456

5252
5757+
3084
1820

2457
4051
6426

25905
4273
7287

5414
11440

5476
1897»

11138

2699

4160«
5085+

2608
3531

4501

5220
6342
2042
2738+
3922«
4459
5316+
5928+
3087
2041
2542
4540

3902
5480
4865

5319+
2668
3660+
4612
5315
6343
2051+«
2739+
3957
4511«
5317+

6130
3099
2063
2569
4725
4344

5623

5945

4680+
5468¢

6290
3102

2320
2630

6132

3272

4323

5532+
2907
3812
4861

5537+
6559+
2321
3015+

4018+
4749
5486
6306
3181

6316

4418+

5600+
3008
3900

4946+

5566+
6563
2367+
3122

4078
4783
5491

6360+
3186
2368
2685
5965
5016
6329

5678
3120

4002

4949

5579
6583
2404
3235
4081
4862+
5533+
6391+
3462

3525+

4465
5751
3152
6132
4967
5666
7283+
2416«

3357

4087+
4944
5551
6425+
3464

2377
2740
5983

2380
3545
6131

5098
6331

5168
6332

3653+

4510+

3233

6172

3240+

3242

5019+
5758+

4256+
5035
5866

4258
5083

2456+
3527+

2544
3658+

2567+
3694

4161«

5017+
5556

7282+

3465
2405
3679
6362
5249

42564+
5086+
5599+
7285+
3854
2418
3827

6133

4322
5154+
5683+

6366

3857
2622
3901
6399

5328

5339

MD~11-CZRKKF,
CZRKKF P11
RKVEC

001402

RKW(C

001334

SEEKO
SEEK1
SEEK2
SHFTRT
SIMUL
SIZEF
SIZYET
STACK =
START
STARTA
STARTY
STKiMT=

ST2
S13
ST4
SWR

SWREG
SW0
SW00
sSw01
Sw02

001372
001374
001376
021200
001344
025304
001440
001100
002636
002704
003334
177774

003736
004262
004456

001140

=
=
=
=

000176
000001
000001
000002
000004

Sw04
SW05
sWw0é
Sw07
w08
Sw09
swl
Sw10
SwWil
sWw12

=
=
=
=
=
=
=
=
=
=

000020
000040
000100
000200
000400
001000
000002
002000
004000
010000

SW14
SW15

= 040000
= 100000

Swé4

= 000020

Sw03

W13

SWw2
sw3

= 000010

= 020000

= 000004
= 000010

RK11

BASIC

LOGIC

21-FEB-78 08:51

1149#
4869
1115#
4159+

56405+

1141
11424
11434

2290

11254
5849
11814
9C1#

1018
1817
1891
9124
1911
1922

2031

10564
6611
7252+
10164
9654
9554
9544
9534
9524
9514
9504
9494
9484
9474
9464
9644
9454
9444
9434
9424

9414
9404
9634

9594
958#
9574
9564
9984
11374

TRAPVE= 000034
TRTVEC= 000014

9994

TKVEC = 000060
TPVEC = 000064

J 12
MACYT1 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE -~ USER SYMBOLS

2108+

4613

4252+
5666+
3896

2817«

2912+
4321
5531«
3985

3980
4731

4734

4895+

4904+

4631+
5534
3014+
4417+
5598+

4643
5548+
3148+

4677
5942

4688+

4448

4450

4509+

6018
3433

6228#
3622

6717
3732

5680+

3230+
5696+

3359«
5755¢

154

SEQ 0152

4697+

4707+

4718+

4790

4798+

4806

3526+

3655«
4942+

4955

3807«

3965+
5084+

4019+
5093

4085

3866

4000

2157
6699

6187

6431

6567

4787+

6302

6305

2033

5999
3335

2039+

5847+

2127

2164

1935
1933
2034
1833
6625

19594
20394
2078

1992

2081

20964

6096

6627

6633

6640

6678

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+

2030+

7295#

2027+

1835
18144

182°
1905#

1828«

1854+

1856

1862+

1876

2028
6696
6431

6567

6686

6361+

6364+

6456

1841+

1842+

962#
9614
960#

000040
000100
000200
000400
001000
000014
001366

=
SW5
Swé
=
sWw7
=
Sw8
=
SW9
=
TBITVE=
TIMER

TEST

1005#
10064
10044

6459+

7009

7046+

5318+

7239

MD-11-CZRKKF,
CZRKKF .P11
TSTEND
020626
TSTRWS
021436
TSTSIN
021572
TST.Si= 104421

TST1
TST10

TST11
IST12
TST13
TST14
TST15

TST16

TST17

TST2

TS120
1ST21
TS122
TST23
TST24
TST25
TS126
TST27
TST3
TST30
TST31
TS132

TST33
TST34
TS135
TST36
TST37
TST4
TST40
TST41
TST42
TST43

TST44
TST45
TST46
TST47

004706
005742

006030
006110
006252
006416
006510

006746

007174

005040

007504
007702
010154
010524
011004
011414
011722
012242
005236
012530
012764
013170

013436
013720
014176
014330
014654

005350
015070
015274
015456
015564

015740
016076
016304
016456
TST5
005436
TST50
016634
TSTS51
016762
TS1S2
017134
TST53
017330
TST54
017622
TST55
017760
TST56
020004
020054
TST57
TST6
005464
TST7
005522
TYERM
021026
TYPDS = 104405
TYPE
104401

RK11

BASIC

LOGIC

21-fEB-78 08:51

6028
2750
64254
2666
4244
5458
2110
2481
2554
2576
2642
2705
27754
2866
2970
22594
3100
32194
3300
3463
36144
3733
3867
3998#
2309#

TEST 2

6055#
5128

5207

2732

2786

5523
21924
2503
25654
25974
26554
27214

7224

4318

5744

4499
72240

4606

2508

2515

2530#

3749
38944

37774

4100
42334

L1194

4846H
49264

6085
1872

3006

4407

5585

5752

63604

4779

3138

3231
4857

4937

3355

3518
5014

3648
5080

3802
5149

3916
5239

4130

1964

1988

2044

2066

2079

2120

2140

2142

5390

33284
34974

4830
4901

2055

2905

5256

SEG 0153

31194

4294
43964
44884
4559

50034
50694
5138#
5163
5291
53784
2381
54474
5489
5578#
56474
5659
57974
58144
58454
2406
2419

5236

155

28934
2995#

4001
4215
4274
4376
4470
4541
46604
4758

2341

K 12
MACY11 30A(1052)
21-FEB-78
08:58
PAGE
CROSS REFERENCE TABLE -- USER SYMBOLS

43074
4584

45954

4768

23564

52194
5304#

2393
5512#

5717

57424

24154
24454
2086
7202#
1924

6148#
1936

1945

1949

MD-11-CZRKKF,

CZRKKF P11

TYPOC
TYPON
TYPOS

156
T56FLG

104402
104404

104403

020140
001434
021742
021706

WATIME
AVINT
AT.IN= 104420
$AUTOB
001134
$BDADR
001122
$BDDAT
001126
CHARC
023304

$CKSWR
SCMTAG
scm
$CM2

$CM3

SCNTLG
SCNTLU
SCRLF

$0BLK

023762
001100
000012
000024
000012
024647
024642
001213

023524
020750
023514

020740

020736
020757
020754
020652
020700
091103
001115
022412
001116

001442
022734
001112
001210
001156
001155
001120
001124
020730
024032
000000
001104
025142
001135
001114
001214
001106
001110

RK11

L 12

MACY11 30A(1052)
21-FEB-78 08:58
PAGE
CROSS REFERENCE TABLE ~- USER SYMBOLS

156

BASIC LOGIC

TEST 2

2145
6724

2288
6728
7024

2299
6742

2304
6759

6083
6761

7067

6086
6764
7120

6149
6766
7126

6433
6770
7131

6569
6777

6571
6816

6579
6911

6689
6981

2071

2125

2150

6154

6439

6577

6584

6727

6750

6774

7023

71994

1942

2293

72004

5865+
65004

6059+

6707

4633

1880+

4682
7017

4703
7166

4794

5538

72224

6828+

6835

6844

6849#

1831
10704
10704

1839
10714
1071#

1845
1072#
1072#

1846
1073#
10734

10744
10744

10754
1075#

10764
10764

10774
10774

1078#
1078#

71604
2141

2305

6689

6742

6761

6766

6770

6817

6852

5864

6071#

6713

6629
6631

6631
6653+

6637+
6658

6658

6673

6684

6685

6748

7814

7816

7819

7822

7824

7827

5826+

6676+
6702

6680
6704

6647+

6657

6655
3616

6657
3779+

6698
3903«

4859+

5224+

5582«

21-FEB-78 08:51

7021
7150

72014
1930
5862#
11794

2096
64844
4619
10534
1048#
1050#

6818+

70094
1036#
1068#
1068#
10664
7020
7037
1081#
7160

6877
6079
6880
1025
6081#
6083
6086
2100
6078#
10394

10454
1839
10454
11964
6688

10434
10794

10644
10634
10474
10494

60874
70214
871
1040#
7231
10544
10444
10824
1061#
10424

7198#

6058
2096+
2174
7222

7206
1830
10694
1069#
1068
71614
7135

2067

6911
6088
69154
60904

6098#
6097#
2267
6082
6600
1847+
66724
6683*
6756
6741
2264
1846+
6821
6852

7037
7261

7048

SEQ 0154

7135

7140

7141

7143

6710
7020
7146

7048

7140

5748+

6635

69194
60944

6652+

6852

7204

6644+
7247
7049
6685+
6852
1848+
1849+

6645
72664
7166
6745
7150
2155
3126+

7160

6635+
3329+

6650+
3499+

MO-11-CZRKKF,

CZRKKF .P11

T
SMAIL = 2222
SMNEW
024665
SMSWR
024654
SMXCNT
022410

RK11

IV}

10624

2178#
2562#
31054
3888

4587
5062
55694

6953«
6948+
6612
10374
7262
72644
1843
72624
7241
1080#
7080#
7209
7108#
7209
7101
10664
10684
2706+
3286+
4034+
4458+
4799+
5771«
7824
10694

LAAR
2

024364

$REGO

001162

SRDOCT= 2232
$RDSZ = 000022
SREGAD
001160

$REG1

6651+

1866
7024
7021

6648

023756
023760
022374
001100
025150
025136
024776
025132
025050
001212
024244

SROL IN

LOGIC

21-FEB-78 08:51

SNULL
001154
SNWTST= 000001

SOCNT
$OMODE
$OVER
$PASS
$POWER
SPWRAD
SPWRDN
SPWRMG
SPWRUP
$QUE
>
SRDCHR
SRODEC=

BASIC

001164

3087+
3843

4368«
4911

SREG10

001202

SREG1
IsrREG?2

001204
001166

$REG3
$REG4
REGS

001170
001172
001174
001176
001200
020752

REG6

REG?

RTNAD

R2A

teeeer

6343+
10764

6657
1876

71644
71624

665;’
682
2180
2588#
3107
39904
4589
5132#
5571
6982+
6952+
6628
6075+
72694

72314

72474

6852

7207

2211«
2857+
3301«

4080+
4464+
4815+
5961+
7827
2511+
3094+
3857
4379+
5293«
7816

2833+

4522+

1070#
4549

2966+
4563
7824
3548«
7827
7827

7819
10714
10724
10734
10744
10754
6096#
7209

n12
MACY11 30A(1052)
21-FEB-78 08:58
PAGE
CROSS REFERENCE TABLE ~~ USER SYMBOLS

6701
6650

6852
22534
2590
32004
3992

2255
26484
3202

2306#
2650
3309#

23534
2711
3N

4653
5212¢#
5639

42224
4764
5297#
5734

6960
6646
6084

6971+
66544
6097

69974

7067

7143

7160

2324+
2867+
3389«

2345+
2953
3417«
4197+

2377«
2964+
3448+

5637#
69954
6957
6636
6076+

SEQG 0155

6805

4113
L7624
5214
57324

46514
5134

157

4111

2390#
2713

34704

4224
48364

5299
5791#

6642

6658

2422+
2971
3464+

2500+
3055+
3714+

26104
27604
3472
43014
4838
53694
5793

26412
2762
35954
4303

2505+
3066+
3715+

2510+
3086+
3842+
4352+

49184

5371
58064

24284
28724
3597
43874
4920
54354

2430
2874
37544

2517+
3093«
3856+

2556+
3185+
3953«
4367+

5808

4389
49954

5437
58294

25254
29794
3756
44754
4997
55034
5831

2527
2981
38864

2576+
3274+
3959+

2643+
3285+
3970«

4477
50604
5505

7259

7208

4264+

10774

TEST 2

7827
6185

4101«
4471%
4831+

5968+«

4536+
4884
6000+

2518+«
3101
3952+

2557+
3102+
3960+

4451

4216+
4547
4910+
6019+

4284+
4566+

5292+
6133¢

2707+«
3275+

4285+
4621+

5338+
6305+

2858+
3287+

4346+
4689+
5479

6331+
2868+
3302+

4700+
56490«

6342+

4360+
4722«
5555+
6366+

2954+
3390+

2965+
3418+

4732+

5616+
7814

4378
4752+
5628+
7816

4035+
4472¢
5556+

4081«

4537
5617+

4102+
4548¢
5629+

4198+
4562«
5719«

4217«
4735+
5772+

4286+
4816%
6132+

6306+

3067+
3712+
4361
4885+
6332+

3158+
6192

3248+
6196

3369+
6261+

3537«
6264

3668+
6287«

3696+
6290+

3699«

3818«

4178+

4380+
6131

2972+
3449+

3056+
3465+
4353

5339+
7819
2929+
5692+

3068+

3288+
4964

3391«
5029+

3419+
5093+

3713+
5101+

3844+
5171«

3972+
5252+

4036+

5332+

4103+
5417+

4288+
5722+

3830+

5723+

6130

6181

6560+

6562+

6565+

7819

7827

5721+
7819

2644t
3186+
3971«
§465¢
5491+

4459+
5480+
7824
3031+
5708+

4955+
7827
3682+

4450+
4759+

7827

4832+

MD-11-CZRKKF,

CZRKKF .P11

RK11

21-FEB-78 08:51

$SAVRE=
$SAVR6
$SCOPE
$SETUP=

swreee y
025146
022140
000117

$STUP =
SSVLAD
$SVPC =
$SWR
=

177777
022346
000204
165400

$SWRMK= 000000
$TIMES
001206

$1KB
$TKS
$TN

BASIC LOGIC

001146
001144
= 000060

7209
7240+
1837
18144
7004
18144
6620
10234
852#
1845

2598
3999
5139
6074
6629

5846
1059#
1058#
8524
23944
2554
27764

6074+
7002
5698
871
2406
2562
2866

4308%
46614

4376
4758

884
10784

STRPAD
STSTNM
STTYIN
STYPBN=
$TYPDS
STYPE
STYPEC
STYPEX
$TYPOC

STYPON
$TYPOS
SXTSTR
$GET4=OFILL

10614
1065#
10604
1841

000022

71904
72114
7224
7180
10384
7110
7203

024732
001102
024620
sreres |
023310
023070
023240
023306
023560

023574
023534
022152
000000
023757

$40CAT= wewver

50704
5489
5806

001152
001157
001150
024676

024720

= 034342

7248
66094
1836
7166

66494
1028
871
1846
2656
4120
5220
6089
6630

3309
38954

$TPB
$TPFLG
$TPS
STRAP
$TRAP2
$TRP
=

TEST 2

71864

6865#¢
6799%
6820
6845
69514
6950
69464
66144
6089#
6947+
6611
10104
18844

885
1845+

33294
3990

5132
5503
58154

6841+
6799
6839
71754
7197
7199#
7212
72254
71974
2261+
7111

7202
7190
6827
6847
7199
69534
7200

N 12
MACY11 30A(1052)
21-FEB-78
08:58
PAGE 158
CROSS REFERENCE TABLE -- USER SYMBOLS

7249+

7250+

7268#

1837

1839

1841

1843

1845

878

879
2193
2894
4397
5448
6601
6639
6627
3615+
6648+
7084
5718
2253
2419
2588
2970

880
2260
2996

2310
3120

877

1848

2722
4234
5305
6095
6631
6605
2260+
6638+
7013
5699+

2178
2410
25664
2872
3463
39994

4387
4762

51394
55134

5829
6852
6852
6852

1849

2776
4308
5379
6097
6638
6606
3498+
6645
7030
5715
21934
24164
2579
2894#
3470
4001
43974
4769#

5163
5569
58464

5212
55794

1846

1848

1872,

882

884
2416
3498
4847
5798
6611

4489
5513
6602
6640

4596
5579
6603
6651

4661
5648
6604
6654

883
2394
3329
4769
5743
6605
6657

3778«
6657
7090
7002
2260#
2428
2598#
2979
3595
411
4475
4836
52204
5637

3895+

3999«

4661«

5648+

7011

7027

7051+

7082

4918

3120#
3754
42344
4584
49274

5717

5732

2306
24464
2642
29964
36154
41204
44894
4B4TH

2357
3220

23104
2481
2648
3100
3733
4215

52N
56484

4541
4901
5297
5659

2341
2503
26564
3105
3749
4222
4559
5305#

7200#
72134

72014
7214

72024

7203#
7216

7204
72174

7205#
7218

7206
72194

6073+
7123

6600
716

6627
7155

6649+
7159#

6654

6658

6675

6839#

6840

7053

10264
1952¢#

1028#
1991#

1083

10874
2266

7198

6834
68504

7215#

7265

2353
2508
2705

5369

1873

1078

6073

1079

6610

1080

2531
3778

6623

5004
5846
6625

2566
3895
5070
6068
6626

5743«

5798+

5815

23574
2515
27
3200
3778#

2381
2525
27224
32204
3867

2390
25314
2760
3300
3886
4301

53794
57434

5004#
5435
5791

2446
3615

4927
5815

7088

4274
4587
4995

4294
45964

4651
5060

54484
5798#

72074
7220

72084

72094
7222

7210
7223#

1824

1834

1848
3440

1849

72214

7201

6951+

6961

69964

10144

1023
19394

10244
19484

19274

3498#
4100
4470
4830

881

SEQ 0156

10354

21234

21484

2620

3193

3569

MO-11-CZRKKLS,
(ZREKf P

RK11

BASIC

LOGIC

2'-FEB-78 08:51

405%

6657

78104

TEST

46"

66,8

7,97«

B 13

MACY1Y 30A(1052)
21-FEB-78
0B8:58
PAGE
(ROSS REFERENCE TABLE -~ USER SYMBOLS

4879

6691
8000#

5887

6697

5889

67804

5896

6852

5994

69194

159

6097
7002

SEQ 0157
6101

71594

6152x
7160

6403

7166

64364
7243

65824
7267

ESCAPE
ETPR]
ETSWR
ESAGE

5102
5273
5492
5926

1
1L
)0

21774

2713
35944
4389
5060#

MORETA

T
UL
EWTST

POP

PRIOR7
PUSH
REPORT

SCOPE

SETPRI
SETTRA
SETUP
SK1P
SLASH
SPACE
STARS

5571

10294

4168
4362
4568
4833
5107
5288

4181
6369
4622
4886

4189
4381
4640
4912
5126
5333
5586
»003

5542
5962

5122
5294
5557
5969

2180
27604
3597

22534
2762
37534

5062
56374
1084
1008#
1008#
2979
4651
5791
10084
4608

51324
5639

2255
2872#
3756
45874
5134
57314

2178
3105

2253
3200

1008+
1008#
852#

L4754

10084

1008#
2192
3119
4768
5814
1008#
7199
7224
1008#
10084
3100
4584
1008#
10084
2414

1008#

4477

2346
2633
2849
3034
3258
3549
3937

2372
2638
2853
3041
3267
3554
3942

4208
4436
4701
4970

2378
2645
2859
3047
3276
3561
3946
4212

6199
4426
4675
4957
5130
5340
5608
6021

4204
4430
4690

24104
2874
3885#
4589
52124
5734

2412
29784
3888
4651
5214

2430
3105#
3992

5791#

2427#
2981
3989#
4653
5297#
5793

2306
3309

2353

2390

2410

4965
5172
5347
5618
7274

3470

5187
5362
5630

7292

6441
4710
4985
5201
5366
5694

47624

5299
5806#

3754
5132

2423
2688
2919
3061
3297
3689
3973
4289

2501
2697
2932

2506
2702
2938

5710

2408
2684
2869
3057
3289
3684
3961
4267
4460
4736
4992
5209
5418
5724

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

2524#
3107

2527
32004

25884
3202
42214
4838
54354
5831

2590
3308#
4224
4918#
5437

26484
3311

43004
4920
55024

2650
34704
4303

27114
3472

49954
5505

43874
4997
5568#

2383
2674
2863
3051
3280
3672
3954
4218
4452
4723

4989
5205
5412

4466
4753
5031
5238
5423
5753

3069
3303
3702
4037
4333
4473
4760
5038
5245
5428
5761

3088
3372
3717
4069
4337
4525
4800
5053
5253
5432
5773

41104
4764

4113
48364

2428
3886

2525
3990
5297

2562
4111

2588

2648

5369

4222
5435

4301
5503

2"
4387
5569

2760
4475
5637

2565

4119

5378

2597
4233
5447

2655
4307
5512

2721
4396
5578

2775
4488
5647

4595

7216

7218

7220

5369#
5808

5371
58284

4836
5829
7252
4743
7233

4918

4995

3595
5060

7253
4826
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

7200

7201

7202

7204

7206

7207

7208

7210

7212

7214

1828
2341
3300

2381
3463

2406
3733

2419

2481
3867
5291

4001
5489

2503

2508

6274

2554

2579
4294

4376

4470

6561

2178
2529
3105
3997

2306
2596
3309

2308
2648
3327

2353
2654
3470

2355
2711
3496

2390
2720
3595
4395
5060
5577
6855

2392
2760
3613
4475
5068
5637
6923

4762
5806

6906
4645

6865

6072

4758

4830

4901

1021

1031
2444

1083

2872
3776

2428
2892
3886

5137
5732

5741

4587

18734

2336
2627
2843
3021
3251
3540
3927

4594
5212

2979
3893
4651
5218
5791

2525
2994
3990

4659

5297
5796

3749
5163

4762
5303
5806

2253
2564
3200

4118
4836

5377
5829

5212

3998
5304

4100

5659

2258
2588
3218
4222

4845

5435
5844

4821

3421
3835

2325
2614
2836
2973
3187
3466
3858

SEQ 0158

3162
3397
3831
4104
4354
4552

2223
2581
2824
2967
3177
3450
3845

161

~\vrwn

2747
2955

2212
2577
2751
2959
3168

c13

MACY11 30A(1052)
21-FEB-78
(0B8:58
PAGE
CROSS REFERENCE TABLE -- MACRO NAMES

—

2558

1008#
1008#

wano
~thown

1#
14
902#

21-FEB-78 08:51

TEST

OO
2 OO

COMMEN
ENDCOM
ERROR

BASIC LOGIC

WO NN —

CZRKKF
. P11

RK11

(VL AV P
RV 1 V1,8
PO NN~
2\ —

MD-11-CZRKKF,

4232
4918
5446
6064

4301

4925
5503
6597

4306
4995
5511

6736

2642

4387
5002
5569

6784

2705

2893
5742

2866

BASIC

21-FEB-78 08:51

SWRSU
TRMTRP

7001
14
7190#

7004
1008#

TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCY
TYPTXT

14
14
1
1
14
1
14

10084
10084

$SCMRE
SSCMTM
$SESCA
SSNEWT

1029«
10294
"
1

<872

4587

$S$SET
$$SKIP

.EQUAT
. HEADE

K111
.SETUP

. SWRHI
. SWRLO

LSALT

.$APTB
.SAPTH

SAPTY
.SASTA
.SCATC
.SCMTA

5732
7190#
7222
It
2970
4559
1
1

Ik
1
1L
852#
14
14
14
4

.$0820
.$0820
.$01V

14
4
14
14
14

.SERRO
.SERRY
.SMULT
. SPOWE
.SRAND

14
¥
14
14
"

.SRDOC
.SREAD

1"
14
1
1#
14
14

. $SEOP

.$SRDDE

.SRCAZ
.$SAVE
.$5820
.$5820

.$SCOFP
.$SI12E

.$SUPR
.STRAP
.$TYPB

14
14

Ik
14

LOGIC

8524

1008#
1008#
10084
1008#
1068
1008#
1008#

2979

4651

5791

7199
7¢24
1008#

3100
4584
852#
8524
852#
852#
885#

7072
18504

6084
1008#

TEST 2

7101

D13

MACY11 30A(1052)
21-FEB-78 08:58
PAGE
CROSS REFERENCE TABLE =-- MACRO NAMES
7169

7229

7245

6772

1069

1936
1070

7022
1945
1071

1949
1072

1964

2178
3105

2253
3200

2306
3309

2353
3470

2341
3300

4758
898
861
1814

873

852#

1019

852#
8524

1008
1029

852#

6062

852#

6734

8524

7227

852#

6999

&52#

6595

852#

7167

SEQ 0159

1868

6748
1923

4762
5806
7200

162

1073

EdA

RK11

O -

MD-11-CZRKKF,
CZRKKF .P11

2145

2299
1077

2428
3886
5212

2525
3990
5297

2562
4111

1076

4836
5829
7201

4918

4995

2390
3595
5060

7202

7204

7206

7208

7210

7212

2381
3463

2406
3733

2419
3749
5163

2481
3867
5291

4100
5659

2508

2515
4215
5717

2554

4830

4901

5369

4274

6148

6433

6571

4222

2588
5435

2648
6301
5503

4387

4475

7214

7216

7218

7220

2705

2860

2579

4294

2642

4376

271

5569

4470

6579

2760
5637

4541

MD-11-CZRKKF,

RK11

CZRKKF P11

21-FEB-78 08:51

.STYPD
.STYPE
.$TYPO
.$40CA
L1170
.

ABS.

BASIC

1
14
14
1K,
1

852#
852¢
8524

034342

000

ERRORS DETECTED:

LOGIC

TEST

MACY11

30A(1052)

CROSS REFERENCE

6853
6782
6921

CZRKKF ,CZRKKF .LST/CRF/SOL=CZRKKF
.SML ,CZRKKF .Pi1

RUN-TIME: 22 31
RUN-TIME RATIO:
CORE USED:
3 4K

1 SECONDS
392/55=7.0
(67 PAGES)

E 13
c1-FEB-78
08:58

TABLE

-- MACRO NAMES

PAGE

163
SeEQ 0160