Digital PDFs

AH-E037B-MC

January 1979

105 pages

Original

5.0MB

view download

OCR Version

4.2MB

view download

Document:	CZRLAB0 RL11,RLV11 CONTROLLER TEST PART 1 JAN 1979 bw
Order Number:	AH-E037B-MC
Revision:	000
Pages:	105
Original Filename:	CZRLAB0__RL11,RLV11__CONTROLLER_TEST_PART_1__AH-E037B-MC__JAN_1979_bw.pdf

OCR Text

RL11,RLV11

CZRLABO

corvmer 177 EISA0AD
FICHE1 OF
1

MADE
IN USA

IDENTIFICATION

THE

INFORMATION

SEQ 0001

PRODUCT CODE:

AC-E036B-M(

PRODUCT NAME:

(ZRLABQ RL11/RLV11

DATE

11-0(T-78

CREATED:

CONTROLLER

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOFR :

D. DEKNIS

THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ASSUMES
NO
zESPONSIBILITY
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS
THE

SOF TWARE

DESCRIBED

THIS DOCUMENT

FURNISHED

THE

RESPONSIBILITY

FOR

PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM
AND CAN BE
C(OPIED
(WITH
INCLUSION
OF
DIGITAL'S
COPYRIGHT
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ASMAY OTKERWISE BE
PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES
THE
NOT

USE
OR
RELIABILITY OF
SUPPLIED BY DIGITAL.

(C)

1977,

]TS SOFTWARE ON EQUIPMENT

1978,

DIGITAL

EQUIPMENT

THAT

CORPORAT]ON

TEST

PART

Page 2

WU —-O

GENERAL

INFORMATION

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

RLO1

USERS MANUAL

1.6

DIAGNOSTIC

XXDP USERS MANUAL

THE
RLOT
PROGRAMS
:

(EK~-RLO1-UG-PRE)

HIERAR(CY PRFREQUISITES

SUBSYSTEM

SHOULD

HAVE

RLV11

RLOT

CVRLA

1.5

SUCCESSFULLY

DISKLESS

TEST

RUN

THE

(RLV11

ONLY)

FOLLOWING

ASSUMPT [ONS

THE HARDWARE
OTHER
THAN
THE
PROPERLY.
FALSE ERRORS MAY BE
FUNCTION PROPERLY.

RLO1
SUBSYSTEM
IS
ASSUMED
TO
WORK
RFPORTED It THE PROCESSOR, ETZ., DO NOT

2.0

OFERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNGSTIC

2.1

THE SIX STEPS OF EXECUTION

THIS DIAGNOSTIC

SHOULD

LOADED

AND

STARTED

USING

NORMAL

STEPS wililL

OCCUR:

PROCEDURES.
THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS,
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS (ODED INTO IT.

WHEN THIS DIAGNOSTIC

ERSY

STEP

STARTED,

THE

FOLLOWING

XXDP

BECAUSE

AR
A AR
hw

A SHORT

SERIES OF

"HARDCORE

QUESTION

DEFAULTS

P=(LOCK

FOR EXAMPLE,

QUESTION WILL

ASKED:

IS THERE AN L=-CLOCK?
"
T P=CLNCK?
IS THE POWER 50 CYCLES (AS IN EUROPE)?
IS MACHINE AN LSI”
IS THERE A LINE PRINTER?
HOW MANY K OF MEMORY ARE THERE?

(SHOWN AFTER EACH QUESTION)

(ARRIAGE RETURN.

ASKED:

MEANING

L=CLK (L) N ?
P-CLK (L) N ?
SOHZ (L) N ?
LSI (L) N ?
LPT (L) N ?
MEM (K) (D) 16 ?
THE

QUESTIONS'' WILL

IS POSSIBLE

THAT NOT ALL OF

YOU SAY "'YES''

NOT

CAN BE

ASKED.

THE

SELECTED

HITTING

THE QUESTIONS WILL BE

L[=-CLOCK

QUESTION,

THE

SEQ 0004

F
1
Page 5
IfF NEITHER P OR L

TYPE

CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED 70

TWO CHARACTERS &4

L2222

SECONDS APART,

* STEP 2 «
AN TR NY

WHEN YOU HAVE ANSWERED ALL

ISSUE

THE

PROMPT

THE

'DS-B>'".

HARDCORE QUESTIONS,

THE DIAGNOSTIC wiILL

FROM THIS POINT UNTIL

THE TIME WHEN YQOU

RESTART %XXDP, YOU WILL BE TALKING TO THE
DIAGNOSTIC,
NOT
XXDP.
WE
WILL
REFER
TO
THE
PRESENCE
OF
THIS PROMPT AS BEING IN DIAGNOSTIC
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.

AT THIS POINT YOU WILL ENTER A "'START'' COMMAND.
THIS IS NOT THE
SAME
AS
THE
XXDP '‘START'' COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO
THE XXDP DOT PROMPT.
THIS
°'START''
(OMMAND
(AN
TAKE
A
NUMBER
OF

SWITCHES
AND
FLAGS
(ALL
OPTIONAL) AND THE DETAILS OF THESE ARE SET
FORTH IN '2.3 DETAILS OF COMMANDS AND SYNTAX''.
HOWEVER, IN
ORDER
TO
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS:

SIA/PASS
: 1/FLAGS :HOE
THINGS

TO NOTE

1.
2.

HERE:

ONLY THE FIRST THREE CHARACTERS OF
"DS-B>"" LEVEL NEED TO BE TYPED.

THIS OR ANY COMMAND AT

THE "PASS"' SWITCH SPECIFIES HOW MANY PASSES

YOU

DESIRE.

THE
A

PASS
CONSISTS
OF
RUNNING
THE
FULL DIAGNOSTIC AGAINST AlL
« UNITS BEING TESTED (THIS WILL
BE
EXPLAINED
SHORTLY).
ONE
PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF
THE

MAIN USEFUL

L O

FLAGS.,

BUT

HALT ON ERROR

IER

HOE

A NUMBER OF

LOOP ONE ERROR

HOE
THE

ONES ARE:

INHIBIT ERROR PRINIQUT

FLAG

SPECIFIED

THE

ABOVE

EXAMPLE

(WE'LL

SEE

wHY

SHORTLY).

ARENE

STEP 3 »

AR AN
N

WHEN YOU HAVE

TYPED

TYPING

NUMBER OF

BACK

WITH
IN

THE

IN A "'START'' COMMAND,

QUESTION

DEVICES

UNJTS?''

YOU WISH

THE

DJAGNOSTIC

WILL

CTME

TO WHICH YOU SHOULD RESPOND BY
TO

TEST.

A WORD OF WARNING HERE:
THE NUMBER OF UNITS
DEPENDS
ON
DEVICE
OF THF DIAGNOSTIC.
FOR EXAMPLE, IF THE DJAGNOSTIC

THE
TARGET
IS DIRECTED

SeEQ 0005

Page 6
AT A DISK DRIVE, THEN THE NUMBER OF
UNITS
WwOULD
BE
THE
NUMBER
OF
DRIVES
TO
BE
TESTED.
WHEREAS IF THE DJAGNCSTIC WAS DIRECTED AT THE
DISK CONTROLLER, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
CONTROLLERS.
THE
TARGET
DEVICE
OF
A
DIAGNOSTIC
CAN
ALWAYS
BE
DETERMINED BY INSPECTING THE "HEADER'' STATEMENT NEAR THE BEGINNING
OF
THE
SOURCE
(CDE.
SHOULD BE THE DEVICE

ONE
TYPE

OF
OF

THE
OPERANDS OF
THE DIAGNOSTIC.

THIS

"HEADER'' STATEMENT

SEQ 0006

H
1
Page 7
TR
Y

STEP 4

AEARA RN

WHEN YOU HAVE

TYPED

DIAGNOSTIC

WILL

?E£¢EBES”.

ONE

ASK

THESE

QUESTIONS ARE

THERE

ARE

THIS

REPRESENTS

YOU

USED

THE

UNITS

TABLES

CORE,

QUESTIONS AND

THE

ENTIRE

TESTED,

THE

THE ANSWERS TO

CALLED

'HARDWARE

WILL BE BUILT FOR EACH UNIT TO BE

IS THE NUMBER OF UNITS.

NEW

'HARDWARE QUESTIONS''

P-TABLE

SEVERAL HARDWARE
A

NUMBER

TO BUILD

HARDWARE

POSED N TIMES, WHERE N

THE

PHILOSOPHY

SERIES

DJAGNOSTIC

WILL

ENGINEERING.

DIAGNOSTICS
IN
THE
FUTURE WwILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE OPERATOR FOR
ALL
THE
INFORMATION THEY NEED TO TEST THE DEVICE.

ANKAANNTRN
N

~ STEP S «
AR
R
AN

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5)
THE
UNITS, YOU WILL BE ASKED ''CHANGE SW?'' IF YOU WANT TO BE
.JF TWARE

Y,
"N

2.6),

QUESTIONS

THAT DETERMINE

THE BEHAVIOR OF

THIS

PROGRAM,

TYPE

IF
YOU
WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS,
IF YOU TYPE "Y' YOU WILL BE ASKED THE
SOFTWARE
QLW STIONS

AND

THE

ANSWERS

WILL BE PUT

INTC THE SOFTWARE P-TABLE

PROGRAM.
THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE.
OF THE NUMBER OF UNITS TO BE TESTED.

FOR
ALL
ASKED THE

TYPE
(SEC

IN THE

REGARDLESS

RAAIYY

STEP 6 +

TANACRR
AR N

AFTER

YOU HAVE

ANSWERED

THAT

CAN HAPPEN

NEXT,

BEGIN

EXECUTE

ENCOUNTERED
COMMAND.
1.

AND

(ONSIDER

THE

SOF TWARE

HARDWARE

DEPENDING

ALSO ON WHAT
THE

NO ERROR

QUESTIONS,

TEST CODE.
ON

WHETHER

THE

DIAGNOSTIC

THERE ARE
A

SEVERAL

HARDWARE

SWIT(H VALUES YOU SELECTED ON THE

IS ENCOUNTERED,

THEN

NUMBER OF

THE

DIAGNOSTIC

THINGS

ERROR

POSSIBILITIES:

EXECUTE
THE
DESIRED
MODE (PROMPT DS-B>).

WwILL

WILL

START

SIMPLY

PASSES AND RETURN TO (OMMAND

SEQ 0007

Page 8

IF AN ERROR 1S ENCOUNTERED,

DEPENDING ON THE SETTINGS OF
HOE

SET:

LOE

SET:

THE
THE

THEN ONE OF

THREE THINGS HAPPENS,

THE HOE AND LOE FLAGS.

ERROR WILL BE REPORTED ON THE CONSOLE AND
DIAGNOSTIC WILL RETURN TO COMMAND MODE.

THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK
OF CODE THAT DETECTED THE ERROR.

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON
THE CONSOLE AND NORMAL EXECUTION WILL RESUME
AS IF NO ERROR HAD OCCURED.

2.1.2 SAMPLE RUN-THROUGH
LET'S SEE HOW ALL THIS WORKS IN A
REAL
SITUATION.
RECALL
THAT
WE
ENTERED
THE
COMMAND
‘‘STA/PASS:1/FLAGS:HOE''.
THIS
WOULD BE A VERY
TYPICAL

WAY

TO RUN

gé?g%SEDREQUESTED

THE

DIAGNOSTIC.

PASS

WILL

IF AN ERROR IS ENCOUNTERED,
WiLL
BE
REISSUED (BECAUSE
ARE

FOUR DIFFERENT

3, 4,

THE

MCSTM

THE

ENCOUNTERED,

THE

PROMPT

THE

WILL

PROGRAM GOING AGAINS:

(THUS GOING THRU ALL

5, AND 6 AGAIN)

STEPS

ISSUF A "RESTART'' COMMAND (SAME AS START (OMMAND EXCEPT

THAT

ISSUE A “"CONTINUE'' COMMAND

HARDWARE

QUESTIONS ARE

NOT ASKED)

(EXECUTION

WILL

RESUME

THE

WILL

RESUME

THE

BEGINNING
OF
THE PARTICULAR HARDWARE TEST (MOST DJAGNCSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN
THE
ERROR
NO QUESTIONS ASKED.

ISSUE A "PROCEED'' COMMAND:

INSTRUCTION

FOLLOWING

COMMAND AND (AN BE

DIFFERENT

AND

THE ERROR WILL BE REPORTED AND THE
PROMPT
THE HOE FLAG I3 SET).
AT THIS POINT THERE

YOU CAN GET

HALT OCCURED.

NO ERRORS ARE

EXECUTED

ISSUE ANOTHER ''START'' COMMAND

THE

WAYS

TYPICAL

THING

THE

ERROR

REPORT

(THIS

[S A SPECIAL

THE

PROCEED,

ISSUED ONLY AT A HALT ON ERROR).

TO DO HERE

FLAG SETTINGS.

EXECUTION

PROBABLY

PRO/FLAGS: [ER:LOE :HOE

ISSUE

YOU WOULD WANT

TO SAY

BUT

WITH

SEQ 0008

J
Page 9
THIS WILL DO THE

STUDY

FOLLOWING:

TURN ON THE

TURN ON THE LOE FLAG

TURN OFF

RECSUME

THE

IER

EXECUTION AT

ERROR OR

SCOPE

CHOICES:

START

RESTART

CONTINUE

LET'S SAY

FLAG

THE HOF FLAG

WHEN YOU'VE SEEN ENOUGH,
OUT
OF
THE
LOOP
AND
THREE

(INHIBIT ERROR PRINTOUT)

INSTRUCTION AFTER ERROR REPORT

1T OR WHATEVER.

YOU MAY HIT CONTROL/C.
ThI5
will
TAKE
YOU
PUTM YOU BACK INTO COMMAND MODE.
YOU NOW HAVE

YOU'VE REPAIRED THE DEFECTM FOUND AROVE AND

RUNNING THE

DIAGNOSTIC.

YOU wOULD

TYPE

WANT

FINISH

AND

RESUME

CON/FLAGS HOE:IER 0:LOE-O
THIS WILL

RESTORE

ThE

FLAGS

THEIR

ORIGINAL

VALUES

EXECUTION
AT
THE BEGINNING OF THE HARDWARE TEST YOU WERE IN.
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT
ON
THRU

NEXT ERROR OR
éLO?EFgND OF

TO END OF

PASS

START

RESTART

PASS.

YOU WANT

TO RUN

THE

DJAGNOSTIC AGAIN,

YOU WOuLD (HOOSE ONE, DEPENDINC ON WHETHER
HARDWARE QUESTIONS AGAIN.

YOuU WANTEL

YOU

[F
TO

THE
THE

HAVF

TWwO

ANSWER

THE

SEQ 0009

Page 10
THE

FULL

PRINT-OUT

FROM THE

ABOVE

D]JALOGUE MIGHT

LOOK LIKE

WHOM

THE

R LI

DIAGNOSTIC

IS LOOPINS ON

ERROR UNTIL

222022220

AddsdR

YOU HAVE

iRt iisss

LOCATED
i

~C
DS-B>CON/FLAGS:HOE
: JIER:LOE O
(HANGE SW (L) ? N
DZRKXX EOP 1
DS-B>RESTART/PASS:1
(HANGE Sw (L) ? N

[T,

THE

YOU CAN SCOPE
THEN

“C

QUT

2222222 X2

ERROR WITHOUT PRINTING ANYTHING.
THE

TST 003 suB 002 P(:004130

DS-B>PRO/FLAGS:
IER:LOE : HOE-0O
THIS POINT

00O

[N
L K SR S

CSR (0) ?
VECTOR (O) °
BR LEVEL (Q) ?
DRIVE (O) ? 1
CHANGE SW (L) ? N
gégKfifTHARD ERR 00004

OCO0OO0O

R Y

UNIT 2

OO0OO0O0O0

?
BR LEVEL (OQ) ?
DRIVE (0) 2 O

(D)

UNIT 1
CSR (O ?
VECTOR (0)

jvivivivivleiclvivivivivivielvlelvleolwlolvivio]

LSI (L) N2
LPT (L) N ?
MEM (K) (D) 16 ?
DS-B>STA/PASS:1/FLAGS
:HOE

# UNITS

COOTLOOO

(L) N ?

S0HZ

lele

ENTERED:

.R DZRKXX
DZRKXX
L=CLK (L) N 7

THIS:

SEQ 0010

Page

2.2
THE

HOW TO CREATE A CHAINABLE FILE
DIAGNOSTIC

CHAIN MODE.

AS RECEIVED FROM RELEASE

THA

IS WHY

$(H1585EI(SSO,T\ WAY, HOWEVER,
IT CONSISTS OF
ISSUED
WHERE

IT BEARS

ENGINEERING CANNOT BE

THE EXTENSION ‘BIN'' INSTEAD OF

C(REATE

(HAINABLE

PROCRAM

RUN

FROM

'BIC''.

WHAT

RUNNING THE PROGRAM
WITH
THE
SPECIAL
COMMAND
‘‘CCI"’
YOU WOULD NORMALLY ISSUE A START (COMMAND (TO THE PROMFT

DS-8>.
THIS
COMMAND
(AUSES
[HE
DIAGNOSTIC
TO
GO
THRU
ALL
THE
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY
BEGIN EXECUTION OF THE HARDWARE TEST CODE.
AT THIS POINT YOU CAN DUMP
EQ%ENS?SSRAQICAS
IT
SITS
IN
CORE
TO THE LOAD MEDIUM, WITH THE NEW

HERE

IS A SAMPLE

DIALOGUE

.R UPD?

RESTART:

TO A" (OMPLISH

THIS:

XXXXXX

*(LR
*L0AD DIAG.BIN
XFER:200
CORE:0,£0602
*START 200
L=CLK (L) N ?

DS-B>(C(I

# UNITS

(D)

CHANGE

SW (L)

PTAB END:

? N

60632

RERARNA AP ANARNANRANRANNARAANANRNRR
AN R AN

*AT

THIS POINT

*YOU MUST

THE

RESTART

MACHINE

HALTS AND*

ADDRESS

XXXXXX*

KARNA AN AANNRANRAIRAA
RN AR ARAR AR AN IR AT
R

*HICORE 60632

CORE:
0,060632
*DUMP DKO: DIAG.BIC
THE

RESULT OF

(ONTAINING THE

DOING

THIS

XXDP COMMAND

THAT

YOU (AN NOW BUILD AN

XXDP

(HAIN

FI.t

.R DIAG.BIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE [T WHEN YOU DID THE CC] COMMAND.

USING

THE

SEQ@ 00M

Page 12

2.5

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF

THERE

ARE

SUBSETS OF

COMMAND VALIDITY

FOUR WAYS OF

ENTERING DIAGNOSTIC

COMMAND MODE,

HOW ENTERED
1.

AND DIFFERENT

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
LEGAL

OPERATOR ENTERED

‘'KUN DIAG'

COMMANDS

START
PRINT

DISPLAY
FLAGS

IFLAGS

D IAGNOSTIC HAS FINISHED ALL
I TS REQUESTED PASSED

START

RESTART

DISPLAY
FLAGS

ZFLAGS

‘5.

OPERATOR INTERRUPTED THE

START

DIAGNOSTIC WITH CTRL/C

RESTART

CONT INUE

T -

DISPLAY

FLAGS

ZFLAGS

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED
PRINT

DISPLAY
FLAGS

ZFLAGS

2.3.2 CTOMMAND SYNTAX
TR

AR RN NN

AN N

AN AT AR AR N R AN

RN RN ARARNNAANANANANRRANAARAS
Y

STA(RT)/TESTS:TEST~LIST/PASS:PASS=CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR
TR AR A A AN AN R AN R

THE

DIAGNOSTIC

AAR RN A AR AN RRAAN NN A NN RN RA

IN CORE

IS EXECUTED

AR AR A AANRNAAARRAARN AN R AN SN

ACCORDANCE

WITH

THE

SWITCHES

SPECIFIED.
THE MESSAGE "4 UNITS?'" IS PRINTED.
THE START COMMAND MAY
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING:

OPERATOR

TYPED ‘RUN DIAGNOSTIC'' B)

EXECUTING C) ERROR WAS ENCOUNTERED
ENTERED CONTROL/C.

WITH

HOE

FLAG

DIAGNOSTIC

SET

FINISHED

OPERATOR

SEQ 0012

N 1
Page 13
AFTER THE OPERATOR RESPONDS TO 'W UNITS?'',
INITIATED.
WHEN
IT
IS
COMPLETED,
THE

THE
HARDWARE
DIALOGUE
IS
QUESTIONS
‘°'CHANGE SW?'' IS

ISSUED, ANG THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS.
THEREFORE
II)EFALXETSMCESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD
THE

SWITCH ARGUMENTS ARE

FOLLOWS:

"TE_T-LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR
RANGES
OF
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED.
THE NUMBERS ARE

SEPARATED BY

COLONS.

THE NUMBERS RANGE

FROM 1

THE

LARGEST
TEST
NUMBER IN THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS
OF
THE
ORDER OF SPECIFICATION.
THE DEFAULT IS TO EXECUTE ALL TESTS.
"PASS=CNT"* IS A
DECIMAL
NUMBER
INDICATING
THE
DESIRED
NUMBER
OF
PASSES.
A
PASS
IS
DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(AL SELECTED TESTS) AGAINST ALL
UNITS
SUMBITTED.,
THE
DEFAULT
IS

NON-ENDING

EXECUTION..B

"FLAG-LIST'' IS A SEQUENCE OF

FORM <FLAG>, <FLAG=1>, OR <FLAG=0>,
HAS ONE OF THE FOLLOWING VALUES:

SEPARATED BY

+HOE

HALT ON ERROR, CAUSING COMMAND MODE

LOE

LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO

[ER

SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING

iXE
PRI

INHIBIT EXTENDED ERROR REPORTS
DIRECT ALL MESSAGES TD A LINE PRINTER

18€

PNT
BOE
JAM
. SR

itu

ERROR

IS ENCOUNTERED

WITHIN

THE

SMALLEST

DEFINED

TO BE

BLOCK

ELEMENTS OF

COLONS,

WHERE

ENTERED

LOOP

THE

<FLAG>

WHEN

CONTINUOUSLY

C(ODING

(SEGMENT,

INHIBIT BASIC ERROR REPORTS

PRINT NUMBER OF TES BEING EXECUTED
BELL ON ERROR
RUN IN UNATTENDED MODE, BYPASSING MANUAL
INHIBIT

STATISTICAL

REPORTS

INHIBIT DROPPING OF UNITS BY DIAGNOSTIC(

INTERVENTION TESTS

SEQ 0013

Page 14
THE

FLAGS NAMED OR EQUATED

TO 7

ARE

SET,

CLEARED.
A FLAG NOT SPECIFIED
GIVEN ALL FLAGS ARE CLEARED.

IS CLEARED.

"EOP-INCR'' IS A DECIMAL NUMBER

INDICATING

PASSES)
DEFAULT
LA

IT
IS
DESIRED THAT THE END OF
IS AT THE END OF EVERY PASS.

AASARARARR

ARl

ddd

THOSE

EQUATED

THE FLAGS SWITCH

HOW

OFTEN

(IN

ARE

IS NOT

TERMS

PASS MESSAGE BE PRINTED.

THE

sl 2322222222222
YR

RES(TART) /TESTM : TEST~LIST/PASS:PASS~CNT/FLAGS :FLAG=LIST/EOP:EOP-INCR/UNITS :UNIT~LIST
AR AR RN R AR AR AN AR RN RN

RN AR AN AR A AR

AR AN ANRAAARAANRANAARNAARR I AN RNARNRNRARNRRANNARARNARNRAR

THE

DIAGNOSTIC

IS EXECUTED

THE

SWITCH ARGUMENTS ARE

CORE

ACCORDANCE

WITH

THE

SWITCHES

SPECIFIED.
HOWEVER, NEW P-TABLES ARE NOT BUILT.
INSTEAD, THE ONES IN
CORE ARE USED.
THE QUESTION "'CHANGE SW?'' IS ASKED, AND THE ANSERS IF GIVEN BECOME THE
NEW
DEFAUL S.
THE
COMMAND
MAY BE ISSUED WHEN COMAND MODE HAS BEEN
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR () CONTROL/C.

THE

START

"UNIT-LIST''
IS A SEQUENCE OF

COMMAND EXCEPT:

LOGICAL

UNIT

NUMBERS

RANGING

FROM
1
THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE
TO
BE
TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO
THE ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED MUST
NOT
HAVE
BEEN
DROPPED
BY
THE OPERATOR DROP COMMAND.
THE

UNIT-LIST DEFAULTS TO "ALL THAT
HAVE
NOT
BEEN
DROPPED
BY
OPERATOR
COMMAND'',
THE EFFECT OF THE UNIT-LIST LASTS UNTIL
THE NEXT START (WHERE
THE NEXT RESTART.

AR AR

1S AUTOMATICALLY RESET

TO "ALL')

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

AR AN AN RN R RN A AN AN AANRANNRNAARAAARRAAR

CON(TINUE) /PASS : <PASS~CNT/FLAGS
: <FLAG=LIST>
TR A AR AN RN R

AR AN

AR NN RNANNAAARRNNNANNANY

COMMAND MODE MUST HAVE BEEN ENTERED DUE
TO
A
HA_T
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR
(CONTROL/C
TOOK
PLACE.
SOF TWARE
DIALOGUE
MAY OPTIONALLY BE REEXECUTED.
HARDWARE PARAMETERS
MAY NOT BE CHANGED.
THE

SWITCH ARGUMENTS ARE

THE

START

(OMMAND EXCEFT:

DEFALT FOR PASS~CNT IS
THE
PREVIOUS START OR RESTART

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

UNSATISFIED

PASS~CNT

FROM

THE

SEQ 0014

Page 15
L A2A2
222023232 22 2]

PRO(CEED)
/FLAGS: “FLAG=-LIST>
L 8202020222222

2222232222323 22

COMMAND MODE MUST HAVE BEEN ENTERED (A A HALT ON ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO BEGIN eXECUTION AT THE LOCATION FOLLOWING THE
ERROR CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS MAY BE ALTERED.
THE

SWITCH ARGUMENTS ARE

THE

SAME

THE

START

(OMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

AN R TR A RN AN AR AR AR AR R AR

A AN R AR A AR R

RN R RN N IR

R AR ARAARARNN

CCI/TEST:TEST-LIST/PASS:PASS-CNT/FLAGS:FLAG=LIST/EOP:EOP-INCR
AAAR AR AR

RN AR AN AN R RARN R AR RN N RARN A AR AT AR RA A AR AN RANNRAN AN SN AR RN

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND
HALTS
AT
THE
HARDWARE
TEST
CODE.
NOW THE OPERATOR CAN DUMP THE (ORE IMAGE TO THE

MEDIUM WITH A BIC EXTENSION.
THE BIC

FILE MUST BE

RUN

MANUALLY

THE

PRE~GENERATED

HANDLED DIFFERENTLY DEPENDING ON

C(CHAIN

MODE.

EITHER WITH A “'START"' (IN WHICH CASE
ANSWERS

RUN MANUALLY

WHETHER

IT CAN BE

INVOKED

IT WILL BEHAVE LIKE THE BIN FILE:

TO OPERATOR QUESTIONS WILL BE

SHE &'Rgggl)\RT" (IN WHICH CASE
u

THE

PRE-GENERATED

IGNORED)

OPERATOR

ANSWERS

IF RUN IN CHAIN MODE, AUTOMATIC EXECUTION
WwILL
COMMENCE
IMMEDIATELY
EEGFSSEJ?IE) XXDP COMMAND ‘“.R CIAG''.
THE COMMAND PROMPT ‘DS~-8>'' WILL NOT
ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BIC
FILE
IS
RUN
IN CHAIN MODE (EXCEPT THAT UAM IS WLWAYS SET THERF) BUT
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY.

TO DO A CCI

ON A FULL

SIZED DIAGNOSTIC

(14.5K WORDS),

MACHINE

SIZE

LARGER
THAN
16K IS REQUIRED.
THE EXACT SIZE NEEDED DEPENDS ON WHICH
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME.
AERRAN AR

AN AN AR ANAN

DRO(P) /UNITS:UNIT-LIST
L2822 8002202

THE

UNITS

ggOClEJ'ggIL

THERE

dd222sdddq

SPECIFIED ARE

START

DROPPED

(OMMAND

FFOM

TESTING UNTI.

IS GIVEN.

IS ALSO A 'DROP'’ MACRO INTERNAL

THEY ARE

ADDED BACK

A DROP CANNOT BE FOLLOWED BY A

TO THE DIAGNOSTIC,

THE
FACILITY
OF
AUTO-DROPPING.
THE
DURATION
HOWEVER, [S ONLY UNTIL THE NEXT START OR RESTART.

WHICH

GIVES

A PROGRAM DROP,

SEQ 0015

Page 16
AR ANNRNRN
RN AN NS

ADD/UNITS:UNIT-LIST
LA8220222222822
2R 2]

THE

UNITS

DROPPED

SPECIFIED ARE

FOLLOWED BY

THE

ADDED BACK

DROP COMMAND)

A PROCEED.

(THEY

TO THE

MUST

HAVE

TEST SEQUENCE.

BEEN

PREVIOUSLY

AN ADD CANNOT BE

LA8243
24

PRI(NT)
L28842
44

ALL

ISR

STATISTICS

TABLES ACCUMULATED BY

CINMIBIT STATISTICAL REPORTING)

\AAAASRd022R

THE

DIAGNOSTIC ARE

FLAG

IS CLEARED.

PRINTED.

THE

222222222222

DIS(PLAY)/UNITS:<UNIT=LIST>
L2222

2R832220223 0822222232

THE HARDWARE
FORMAT

P-TABLES FOR ALL UNITS UNDER

IN WHICH

THEY WERE

ENTERED.

ANY

TEST ARE PRPINTED QUT

UNITS

OPERATOR 'DROP'‘' COMMAND ARE SO DESIGNATED.

THAT

WERE

THF

THE

DROPPED BY

THE

8 &4
L3882

FLA(GS)
L2 2 288
&4

THE

CURRENT

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

L2284
824

ZFL (AGS)
AXKERh
N

ALL

2.4

FLAGS ARE

(LEARED.

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF
FOLLOWING DISCUSSION OF

THE
HARDWARE
DIALOGUE
WHAT HAPPENS INTERNALLY.

REVEALED

AS SOON AS THE QUESTION '# UNITS?''
IS ANSWERED
(WITH
THE
NUMBER
N,
SAY)
SPACE
IN CORE 1S ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES
ARE OF THE SAME FORMAT,
AND
THERE
IS
A
ONE-TO-ONE
C(ORRESPONDENCE
?g;:EEN

THE HARDWARE

PARAMETER QUESTIONS AND

"HE

SLOTS

THE

P-TABLE

SEQ 0016

Page 17
ON_THE FIRST

P-TABLES

ARE

TRIP THRU THE QUESTIONS, ALL OF
FILLED.

THE

OPERATOR

THE

TYPES

SLOTS

IN LESS

IN ALL

THE

THAN N EXPLICITY

VALUES IN RESPONSE TO A PARTICULAR QUESTION, THESE VALUES
ARE
PLACED
IN
THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE
BEGINNING WITH THE FIRST
P-TABLE)
UNTIL
THE
STRING
OF
VALUES
IS
EXHAUSTED.
THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES.
ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SAME
PROCESS
IS
CARRIED
OUT, EXCEPT THAT THE FARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT
VALUE IN ANY OF TS SLOTS NOW ASSUMES THE ROLE THAT TABLE
NUMBER
ONE

PLAYED

THE

FIRST

SERIES OF

TRIP,

QUESTIONS

IS REISSUED UNTIL

RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

LEAST

ONE

QUESTION

HAS

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE
USED TO INDICATE A REPETIVION OF THE LAST NAMED VALUE.
A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
[IF THE
VALUES
REPRESENT
PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO
THE STRING
6,7,8,.9,10
(AN
INCREMENT
OF
1).
IF
THE
VALUES
ARE
ADDRESSES,
THE
SAMPLE
RANGE
TRANSLATES
TO
THE
STRING 6.8,10 (AN

INCREMENT OF 2).

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A
SET
OF
P-TABLES.
ASSUME THAT WE HAVE 64 UNITS, AND THAT THERE ARE THREE
HARDWARE PARAMETERS FOR
EACH
(THREE
SLOTS
N
THE
P-TABLE,
THREE
HARDWARE
QUESTIONS
IN
THE DIALOGUE).
LET THE DESIRED VALUE FOR THE
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES.
LET
THE
DESIRED
VALUE
FOR
THE
SECOND
PARAMETER
BE
EQUAL
TO
THE
UNIT
NUMBER

(1,2,3,...,64) EXCEPT FOR UNIT 50, WHICH SOULD RECEIVE THE
VALUE
49,
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE NUMBER 76 FOR THE
FIRST 20 UNITS AND
THE

THE NUMBER 77 FOR

FOLLOWING DIALOGUE

# UNITS

(D)

UNIT 1

<QUESTION

<QUESTION 1>
<QUESTION 2>
<QUESTION

LRS] LRS KRS |

UNIT 21

WOULD ACCOMPLISH

<QUESTION 2> 2
<QUESTION 3> ?

1-20
76

21=49,,51-64
77

THE LAST 44 UNITS.
THIS

GOAL:

SEQ 0017

F
2
Page 18
THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN
ALL
64
TABLES.
SLOT TwO RECEIVES THE VALUES 1,2,3,....,20 IN TABLES 1 THRU 20
AND A CONSTANT 20 IN
TABLES
21
THRU
64.
SLOT
THREE
RECEIVES
A

CONSTANT 76 IN ALL 64 TABLES.

THE

SECOND

TIME

TABLES 21

THE

DIALOGUE

THRU THE

SERIES,

TABLES 21

THRU THE

END ARE

GOING

BE
AFFECTED
(NOTE
THAT THIS PIECE OF INFORMATION IS PRINTED QUTM FOR
THE OPERATOR IN THE FORM 'UNIT xX'' AT THE BEGINNING OF EACH SERIES).
QUESTION 1 IS RESPONDED TO BY A <CR>, SO SLOT ONE STAYS A CONSTANT
75

THRU 64,

SINCE NO NEW EXLIiCIT VALUES ARE TYPED IN.

SLOT

TWO GETS THE VALUES 21,22,23.....49 IN TABLES 21 THRU 49, AND
GETS
A
49
IN
SLOT 50, AND GETS THE VALUES 51,52,53,...,64 IM TABLES 51 THRU
64.
SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64.
IS

TERMINATED

EXPLICIT
VALUES
QUESTION 2).

2.5

HAVE

WwHEN

BLEN

THE

GIVEN

SOFTWARE

FOR

RECOGNIZES

THAT

AT LEAST ON QUESTION

(NAMELY

HARDWARE PARAMETERS

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START (OMMAND.
THE
VvALUE
LOCATED
TO
THE
LEFT
OF THE QUESTION MARK IS THE DEFAULT VALUE THAT
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.
RLTT

(L)

¥?

ANSWER YES(Y® IF YOU HAVE
RLV11 CONTROLLER.

BUS ADDRESS

(0)

AN RL11

(0)

ANSWER WITH

THE

DRIVE

(0)

“HE

INTERRUPT VECTOR OF

YOU

HAVE

CONTROLLER.

THE

INTERRUPT PRIORITY OF

CONTROLLER.

THE

CONTROLLER.

TO THE

(ONTROLLER.

ANSWER WITH THE DRIVE(S)

2.6

330?

ANZWER WITH THE

BR LEVEL

NO(N)

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR

CONTROLLER,

CONNECTED

SOF TWARE PARAMETERS

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED (N A START, RESTART, CR
CONTINUE.
THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES.
THE

SOF TWARE PARAMETERS GIVE
THE

PARAMETERS

ANSWERING

(Y)ES

(AN

THE

THE PROGRAM FLEXIBILITY
MODIFIED ON A

START,

FOLLOWING QUESTION:

[N THE wAY

RESTART,

RUNS.

(ONTINUE

SEQ 0018

Page 19

CHANGE

S.w.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARF FARAMETER QUESTIONS, WITH
THE
PRESENT
DEFAULT
VALUE PRINTED TO TWE LEFT OF THE QUESTION MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THc DEFAULT IS TAKEN ON A <(CR>,
%gN;ROL
Z
("7
WILL
DEFAULT
ALL REMAINING GUESTIONS AND START THE
ST.
DROP ON ERROR L IMIT

TO ALLOW THE UNIT
ARE ENCOUNTERED.

(L)

TGO BE

DROPCEL ONCE

A PREDETERMINED NUMBER OF

ERRORS

ANSWER Y CR N

ERROR LIMIT

NUMBER OF

(D)

ERRORS ALLOWED BEFORE

ANSWER
AUTOSIZE

102

(L)

TG 65k

TO CHECK TO SEE IF
(VIA DRIVE READY),

ANSWER

3.0 rRROR

DROPPING UNIT.

UNIT SPECIFIED ACTUALLY
It NOT UNIT wILL NOT BE

EXISTS
TESTED.

BEFORE

TESTING

Y OR N

INFORMATICN

ALL ERRORS ARE
NUMBER,
TYPE

PRINTED VIA CONSOLE DEVICE.
THE ERROR
INCLUDES
ERROR
AND
PROGRAM LOCATION.
ERRORS INCLUDE REGISTERS BEFURE

AND AT ERROR WITH RELEVENT

DATA.

3.1 ERROR REPORTING
ALL
ARE

ERROR INFORMATION IS PRINTED ON THE CONSOLE DECiVE.
AIMED AT BEING SELF EXPLANATORY.
THE GENERAL FORMAT

DZRL?

XXX

ERR

YYYYY

TsT

727

SUB

PPP

WwHERE
:
?

XXX

1S PROGRAM LETTER
IS

SFT

SOFTTM

ERROR

HRD - HARD ERROR
OV FAT = DEVICE FATAL

YYYYY

177

PPE
RRRRRR

SYS FAT = SYSTEM FATAL
1S

THE

IS
IS

THE
THE

ERROR NUMBER

TEST NUMBER

ERROR
ERROR

SUBTEST NUMBER
PROGRAM LISTING LOCATION

ERROR REPORTMS
|S:

P(C:

RRRRRR

SEQ 0019

Page 20
ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE
ALONG WiTH A ONE LINE DESCRIPTION AND RELEVENT DATA.

SEQ 0020

ERROR

:
EXAMPLE
ONE LINE

DESCRIPTION

(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFORE COMMAND: CS:XXXXXXX BA:XXXXXX DA : XXXXXX MP: XXXXXX
TIME

ERROR:

CS:XXXXXX BA:XXXXXX

DAz XXXXXX MP:XXXXXX

XXXXXX

3.2 ERROR HALTS
ERROP HALTS ARE
/FLAG:HOE.

SUPPORTED PER DESCRIBED

THERE

4.0 PERFORMANCE

4.1

ARE

IN THE

SECTION

WITH

RFGISTERS

FOR

NO OTHER HALTS.

AND PROGRESS REPCORTS

PERFORMANCE REPORTS

THIS PROGRAM WILL

NOT

GIVE

ANY

PERFORMANCE

GIVE

ANY

PROGRESS

REPORTS.

4.2 PROGRESS REPORTS
THIS PROGRAM WILL

5.0 DEVICE
THE

INFORMATION

RLT1/RLV11

(ONTROL OF

NOT

THE

RLCS

SUBSYSTEM,

BIT 15 BIT 14 BIT 13 BIT 12 BIT 11

TABLES

CONTROLLER HAS

CONTROL

REPCRTS.

AND

THE

STATUS

FOLLOWING

(XXXXX0)

COMPOSITE ERROR
DRIVE ERROR
NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (WITH BIT 10 SET)

= DAYA LATE

(WITH BIT

10 CLEAR)

- HEADER CRC (WITH BIT 10 SET)
= DATA (CRC (WITH BIT 10 CLEAR)
BIT 10 - OPERATION INCOMPLETE

BIT
BIT

9/8 - DRIVE SELECT (0-3)
7 - CONTROLLER READY

BIT

6 - INTERRUPT ENABLE

BIT

4 - EXTENDED BUS ADDRESS

BIT

FOUR(4)

5 - EXTENDED BUS ADDRESS

BIT 3-1 - FUNCTION (ODE
0 = NOP (PDP-11) MAINT
1

- WRITE

CHECK

(BIT 17)
(BIT

16)

(LS]=1")

XXXXXX

BIT

|
I
B
I
LI

NON
N SNy

Page 21

GET DRIVE STATUS
SEEK
REAl HEADER
WRITE DATA

READ DATA

READ WITHOUT HEADER COMPARE

O - DRIVE READY

RLBA - BUS ADDRESS REGISTER

(XXXXXZ)

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT O SHOULD BE O
RLDA - DISK ADDRESS REGISTER

FOR READ/WRITE

(XXXXX4)

FUNCTIONS

BIT 15 - MUST BE ZERO(0)
BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER
BIT 6 -~ SURFACE FOR TRANSFER

BIT 5-0 - SECTOR FOR TRANSFER (0=47)

O=NIWSON—
=
I &
[
I
I
B VY,
~!

SEEK FUNCTION

MUST BE ZERO(0)
= DIFFERENCE

TO NEW CYLINDER

- MUST BE ZERO(Q)

SURFACE
MUST BE ZERO
SEEK DIRECTIONC
MUST BE ZERO
MUST BE ONE (1)

IN /7 O - QUT

! B

— eyt

OOD®

Pt Doy B
Gy Smg P

4 ———

FOR

GET

STATUS FUNCTION

BIT
BIT
BIT
BIT
BIT

15-4 - IGNORED SHO'ILD BE ZERC
3 - DRIVE RESET
2 = MUST BE ZERO
1 - MUST BE ONE
O - MUST BE ONE

RLMP - MULTIPURPOSE

FOR READ/WRITE

FUNCTION

BIT 15 - 0 - WORD COUNT(TWO'S (OMFLIMENT)

)

SEQ 0021

Page 22

FOR READ HEADER FUNCTION

BIT 15-C - DISK HEADER OF SECTOR (F]RST READ)
= ZERO WORD (SECOND READ)
~ HEADER CRC

GET

STATUS FUNCTION

—
ek
o
e
ed
—

STATUS
WRITE DATA ERROR
CURRENT HEAD ERROR(CHE)
WRITE LOCK STATUS(WL)

SEEK TIME OUT(SKTO)
SPIN ERROR(SPE)

WRITE GATE

ERROR(WGE)

VOLUME CHECK(V()
DRIVE SELECT ERROR(DSE)
RESERVED
(0)
SURFACE
COVER OPEN

HEADS HOME
BRUSHES HOME

2 0 -STATE BITS
0 - LOAD STATE
NONWN
B
—

——t—

et bt St Bt Bt Py P

=
~N

oodvoookockookoodoogookeol

NS VNVONNOOVO
= NUW SN

DRIVE

BIT

(THIRD READ)

- SPIN UP

BRUSH CYCLE
LOAD HEADS
SEEX = TRACK COUNTING
SEEK = LINEAR MODE
UNLGOAD HEADS
SPIN DOWN

6.0 TEST SUMMARIES
TEST

- RLCS ADDRESSABILITY
THIS

TEST

WILL

CHECK

CAN BE ACCESSED.

THAT

THE

CONTROL

AND

STATUS REGISTER

THE REGISTER CANNOT BE A(CCESSED

PROCESSOR WILL TRAP TO LOCATION 4,
HANDLE THE TRAP.

WHICH

SET UP TO

THE

TEST 2 = RLBA ADDRESSARILITY
THIS TES) WILL CHECK THAT THE BUS ADDRESS REGISTER CAN BE
ACCESSED.
IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION &, WHICH IS SET UP TO HANDLE THE TRAP,

TEST 3 ~ RLDA ADDRESSABILTY

SEQ 0022

Page 23

THIS

TEST

WILL

CHECK

THAT

THE

DISK ADDRESS REGISTER CAN BE

THAT

THE

MULTIPURPOSE

ACCESSED.
IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION 4, WHICH IS SET UP TO HANDLE THE TRAP,
TESY

4 ~ RLMP ADDRESSABILITY
THIS

TEST

WILL

CHECK

CAN BE

ACCESSED.
IF THE REGISTER CANNOT BE ACCESSED THE PROCESSOR
WILL TRAP TO LOCATION &, WHICH IS SET UP TO HANDLE THE TRAP.
TEST

S = READ WRITE OF RLCS
THIS

BACK.

TEST

WILL

TROLLER READY)

? EgN%gé?N.
H

TEST

ATTEMPT

TO WRITE

RLCS BITS

WALKING AND GROWING 0°'S AND

IS ALWAYS WRITTEN AS A

BITS 15,

14 AND O ARE

9-1

AND

1'S ARE USED.
1

SO NOT

READ

BIT

THEM

(CON-

INITIATE

TREATED AS DON'T CARE FOR

6 - READ WRITE OF RLBA
THIS

TEST WILL

ATTEMPT

TO WRITE

RLBA BITS

15-0 AND READ

THEM

"0 WRITE

RLDA BITS

153 AND READ

THEM

BACK.
WALKING AND GROWING 0'S AND 1'S ARE USED.
BIT 0 ON
A RL11 SHOULD ALWAYS COME BACK AS A 0O, WHILE ON AN RLVN
IT IS LOADABLE.
TEST 7 - READ WRITE OF
THIS

BACK.
TEST

TEST WILL

RLDA
ATTEMPT

WALKING AND GROWING O'S AND

1'S ARE

USE

8 - BIS OF RLCS
THIS TEST WILL USE THE 11 INSTRUCTION 'BIS'"
TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLCS WORKS.
BITS 9-1 ARE

USED, BIT

SETTING IN WALKING AND GROWING O'S AND 1°'S.

goég?Ngggkng READY)

TEST

IS ALWAYS SET.

BITS 15,

14 AND 1

BIT

ARE

9 - BIC OF RLCS
THIS TEST WILL USE THE 11 INSTRUCTION ‘SBI(''
TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLCS WORKS.
BIT> 9~1 ARE

USED, BIT CLEARING IN WALKING AND GROWING Q'S AND

goéCONgigtng READY)

TEST

0 - BIS OF RLBA

1S ALUAYS SET.

BITS 15,

1'S,

14 AND 1

BIJT

ARE

SEQ "1?3

Page 24

THIS TEST WILL USE THE 11 INSTRUCTION 'BIS'' TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLBA WORKS.
BITS 15-0 ARE
B]T SET USING GROWING AND WALKING 0'S AND 1°'S.
BIT O CANNOT
SET ON A RL11, BUT CAN ON A RLV11.
TEST

- BIC OF

THIS

RLBA

TEST Wil USE

READ-MODIFY-WRITE

THE

SEQUENCC

INSTRUCTION 'BIC''
TO SHOW THAT A
OF

THE

RLBA WORKS.

BITS

BIT CLEARED USING GROWING AND WALKING 0°'S AND 1°'S.
12 - BIS OF

15-0 ARE

RLDA

THIS TEST WILL USE THE 11 INSTRUCTION 'BIS''
TO SHOW THAT A
READ-MODIFY-WRITE SEQUENCE OF THE RLDA WORKS.
BITS 15-0 ARE

BIT SET USING GROWING AND WALKING 0'S AND 1°S.
TESY

13 - BIC OF

RLDA

THIS TEST WILL USE THE 11 INSTRUCTION 'BIC''
TO SHOW THAT A
READ-MODIFY~WRITE SEQUENCE OF THE RLDA WORKS.
BITS 15-0 ARE

BIT CLEARED USING GROWING AND WALKING 0'S AND
TEST

14 - BUS RESET OfF
THIS

TEST

WILL

RL(CS
VERIFY

(LEAR ALL BITS OF
TROLLER READY),

If BIT 14

1°'S

THAT

THE BUS RESET

THE RLCS WITH

BIT O

(DRIVE

(DRIVE ERROR)

THE PROCESSOR WILL

THE EXCEPTION OF BIT

READY)

IS SET.

AND BIT

(CON-

(COMPOSITE

ERROR)

THE

PROCESSOR Wi.i

TEST

- BUS RESET OF RLBA
THIS

TEST

WILL

VERIFY

CLEAR ALL BITS OF
TEST

16 - BUS RESET OF
THIS

TEST WILL

THE BUS RESET

THAT

THE BUS RESET OF

RLDA
VERIFY

CLEAR ALL BITS OF

TEST

TAHT

THE RLBA.

THE RLDA.

THE PROCESSOR WILL

17 - UNIOUENESS OF RLCS
THIS

TEST WILL

VERIFY

THAT WHEN THE

RLCS

(XXXXX0)

IS ADDRESSED

ONLY THAT REGISTER IS EFFECTED.
BOTH THE RLBA AND THE RLDA
ARE SET UP WITH KNOWN DATA, THE R!DA IS WRITTEN, THEN THE RLBA
AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.

SEQ 0024

M2
Page 25

TEST 18 = UNIQUENESS OF

RLBA

THIS TEST WILL VERIFY THAT WHEN THE RLBA (XXXXX2) IS ADDRESSED
ONLY THAT REGISTER IS EFFECTED.
BOTH THE RLCS AND RLDA ARE
WRITTEN WITH KNOWN DATA, THE RLBA IS WRITTEN, THEN THE
AND RLDA ARE VERIFIED THAT THEY DID NOT CHANGE.
TEST

19 -~ UNIQUENESS OF

RLCS

RLDA

THIS TEST WILL VERIFY THAT WHEN THE RLDA (XXXXX4) IS ADDRESSED
ONLY THAT REGISTER IS EFFECTED.
BUTH THE RLCS AND RLBA ARE
WRITTEN WIEHT KNOWN DATA, THE RLDA IS WRITTEN, THEN THE RLCS
AND RLBA ARE VERIFIED THAT THEY DID NOT CHANGE.
TEST 20 - UNIQUENESS OF
THIS

TEST

WILL

RLMP
VERIFY

THAT

WHEN THE

RLMP

(XX¥XX6)

IS ADDRESSED

ONLY THAT REGISTER IS EFFECTED.
THE RLCS, RLBA AND RLDA ARE
WRITTEN WITH KNOW DATA,
THE RLMP IS WRITTEN, THEN THE RLCS,
RLBA AND RLDA ARE

TEST 21

VERIFIED

THEY DID NOT

CHANGE.

= NOOP FUNCTION
THIS

TEST WILL

VERIFY THE

OPERATION OF

ABILITY OF

CONTROLLER READY

ON PDP=11"'S ONLY,
FUNCTION.

THE

SINCE ON AN LSI-1"

ERRORS ARE CHECKED.
TEST

THAT

THE

NOOP

(0)

IS A MAINTENANCE

TO RESET AND NO

22 = TEST NOOP DOES NOTHING
THIS TEST WILL CHECK THAT THE NOOP FUNCTION WILL
ANY REGISTERS OF THE CONTROLLER.

TEST

23 - TEST OF
THIS

NOOP
TEST

FUNCTION

DISTRUB

INTERRUPT

TEST WILL

(RL11

NOT

CAUSE

ONLY)

INTERRUPT

TO CHECK THE

FROM THE

CONTROLLER USING

INTERRJUPT LOGIC AND VECTOR.

24 = TEST PRIORITY BR LEVEL
THIS

TEST WILL

CHECK

THAT

THE

WE VERIFY THAT ABOVE THE LEVEL
AND BELOW IT, IT WILL.
TEST 25 = GET
THIS

PROPER PRIORITY

[S ON

THE BOARD WILL NOT

THE BOARD.

INTERRUPI

STATUS FUNCTION
TEST

WilL

VERIFY

THAT

THE

GET

STATUS

FUNCTIOn

(2)

WILL

SEQ 0025

Page 26

COMPLETE CORRECTLY.
THE RLDA IS SET UP AND GET STATUS IS
ISSUED.
CONTROLLER READY IS CHECKED AS WELL AS ERROR BITS.
(FIRST TEST A NRIVE MUST BE PRESENT.)

TEST 26 - GET

STATUS FUNCTION INTERRUPT

THIS TEST WILL VERIFY THAT THE GET STATUS TUNCTION WILL GENERATE AN INTERRUPT ON COMFLETION.
TEST

27 - GET STATUS FUNCTION GENERATES OP]
THIS TEST WILL PROVE THE ABILITY FCUR OPI (OPERATION INCOM) TO
SET AND THAT THE DRIVE COMMAND IS BEING TRANSMITTED (ORRECTLY.
THE

OPI

COMMAND WORD

(RLDA)

IS SET UP WITH THE MARKER BIT ONLY.

IS EXPECTED TO RESULT,

TEST 28 ~ OP1

THIS

.S CHECKED.

UNDER INTERRUPT

THIS TEST WIL! CHECK THE ABILITY OF AN OP] TO CAUSE AN INTERRUPT
TO OCCUR.
WE SEND ONLY THE MARKER BIT WITH THE GET STATUS
COMMAND AND EXPECT AN OP] ERROR.
TEST

30 - READ HEADER FUNCTION INTERRUPT
THIS TEST WILL CHECK THE ABILITY CF
TO INTERRUPT ON COMPLETION.

TEST 3N

- REPEATED RD HDRS YIELD SAME
THIS

TEST WILL

CHECK

AND HEAD BITS OF
TEST

THE

(YL AND HD

THAT ON RCPEATED READ HEADERS

THE HEADER WCRD

(RLMP)

THE

CYLINDER

SAME.

THAT FOLLOWS THE TWO
CRC-16 CALCULATION OF

TWO HEADER WORDS.

33 = (HECK CONSECUTIVE HEADERS
THIS

TEST

THE

ARE ALWAYS THE

32 - CHECK OF HEADER CRC
THIS TEST WILL VERIFY THE HEADER CR(C
HEADER WORDS IS ACTUALLY THE (ORRECT

TEST

READ HEADER FUNCTION

TEST WILL

CHECK

THAT

HEADEKS ARE

CHECK

THE

SEEK FUNCTION

(ONSECUT]VE.

34 - SEEK FUNCTION
THIS

TEST WILL

READY AND POST NO ERRORS.

CYLINDER + ORWARD SEEK.

(3)

(OMMAND WORD

TO RESET

CONTROLLER

IS LOADED WITH A ONE

SEQ 0026

Page 27

TEST

35 - CHECK DRIVE READY ON SEEK
THIS

TEST

WILL

CHECK

THAT

DRIVE

ISSUEANCE OF A SEEK COMMAND.

READY

CLEARS AND RESETS ON

TEST 36 = SEEK FUNCTION INTERRUPT
THIS TEST WILL CHECK THE ABILITY OF A SEEK COMMAND TO GENERATE
AN [INTERRUPT ON CONTROLLER READY RESETTING AND NOT ONE ON DRIVE
READY RESETTING.
TEST

37 = TEST DIFFERENCE WORD TRANSMISSION
THIS TEST WILL TRY TO VERIFY THAT BITS 14-7, 6, 2, 0 OF THE
COMMAND WORD GET TRANSMITTED CORRECTLY.
WE ISSUE SEEKS FROM
TRACK O WITH COMMAND WORDS OF WALKING AND GROWING 0°'S AND 1°'S.

ALL SEEKS ARE VERIFIED WITH A READ HEADER AND RETURN TO TRACK
O BEFORE NEXT PATTERN IS ISSUED.
TEST

38 = VERIFY HEAD SELECT O VIA RD HEADER
THIS

TEST WILL

READ HEADER.

TEST

VERIFY

THAT HEAD O CAN BE

39 = VERIFY HEAD SELECT 1
THIS TEST WILL
READ HEADER.

TEST 40 = VERIFY

THIS

VERIFY

THAT

TEST WILL

VERIFY

HEAD

CAN BE

THE

TEST WILL

WORD RETURNED

RIGHT HEAD SEILECT.

= VERIFY HEAD SELECT 1
THIS

VIA RD HEADER

VERIFY

TEST

TIME

TEST

THE WORD RETURNED

THIS

IS DONE BY

WILL

CHECK

THAT

TRANSMITTED PRIOR

AND RE-LOADING

THE

RLMP BY A GET

THE

RLMP BY A GET

AT WHICH DP WD GETS

THIS

DOES GET

VIA GET STATUS

STATUS CONTAINS THE RIGHT HEAD SELECT.
TEST 42 =

SELEZTEC AND READ VI]A

HEAD SELECT O VIA GET STATUS

STATUS CONTAINS THE
TEST 41

SELECTED AND READ VIA

IS CORRECT.

ISSUING A

THE

RLDA.

THE

DIFFERENCF

WORD

(RLDA)

ACTUALLY

TO CONTROLLER READY RESETTING.

SEEK,

THE

WAITING FOR

SEEK

(ONTROLLER READY

THEN VERIFIED

TO SEE

SEQ 0027

Page 28

TEST 43 ~ EXTENSIVE CHECK OF

(RC

THIS TEST WILL MORE EXTENSIVELY CHE(K THE CRC LCGIC BY POSITIONING AT DIFFERENT POINTS ON THE PACK AND CHECKING THAT THE

HEADER CRC

RECEIVED

TEST 44 - VERIFY GET

IS CORRECT.

STATUS WHILE

THIS TEST WILL CHECK THE
THE DRIVE IS SEEKING.

DRDY

IS LOW

ABILITY

TO PERFORM A GET

STATUS WHILE

SEQ 0028

MAIN.
MACY11 30A(1052)
22-NOV-78
CZRLAB.P11
22-NOV=-78 15:21
77
129

203
279
372
516
679
700

780
874
975
1000

1026
1051
1076
1118
1154
1187

1225

1261

15:28
TABLE OF

CONTENTS

GLOBAL DATA
PATTERNS FOR REGISTER R/W

PATTERNS FOR DIFFERENCE WORD
GLOBAL TEXT
GLOBAL ERRORS
INITIALIZATION CODE
GLOBAL SUBROUTINES
ROUTINE TO CHECK FOR CONTROLLER ERRORS

LOAD RL(S
ROUTINE TO CALCULATE CRC
*+«TEST 1+« -~ RLCS ADDRESSABILITY
*+TEST 2+« ~ RLBA ADDRESSABILITY
*+TEST
««TEST
*«*TEST
**TEST
*+TEST
*«TEST

3«+
4+~
S++
6+~
7+«
8+*
**TEST 9»+

~
-~
-

RLDA ADDRESSABILITY
RLMP ADDRESSABILITY
READ WRITE OF RL(S
READ WRITE OF R.BA
READ WRITE OF RLDA
BIS OF RLCS

- BIC OF RL(CS

«+TEST 10+*+ - BIS OF

RLBA

1296
1328
1359
13N
1427
1453
1476
1518
1560
1604
1657
1686
1740
1777
1829
1854
1889

«*TEST
*+«TEST
**TEST
**TEST
*«TEST
*«TEST
*«TEST
**TEST
*+TEST
*«TEST
*«TEST
**TEST
**TEST
*«TEST
#«TEST
**+TEST
*«TEST

11+~
12+«
13+«
14x+
15+«
16**
17++*
18+
19*+
20*»
21*+
22+«
23+«
24*+
25+«
26*+
27+*

-~
~
-

BIC OF RLBA
BIS OF RLDA
BIC OF RLDA
BUS RESET OF RLCS
BUS RESET OF RLBA
BUS RESET OF RLDA
UNIJQUENESS OF RLCS
UNIJQUENESS OF RLBA
UNIQUENESS OF RLDA
UNIQUENESS OF RLMP
NOOP FUNCTION(RL11 ONLY)
TEST NOOP DOES NOTHING
TEST OF INTERRUPT
TEST PRIORITY BR LEVEL
GET STATUS FUNCTION
GET STATUS FUNCTION INTERRUPT
GET STATUS FUNCTION GENERATES OP] w/0 GS BI

2004
2052
2094
2168

*«TEST
*+TEST
*#TEST
*##TEST

31++
32++
33%+
34++

-~
-

REPEATED RD HDRS YIELD SAME (YL AND HD
(CHECK OF HEADER (RC
(HECK CONSECUTIVE HEADERS
SEEK FUNCTION

1919
1957
1978

21N
2221
2267
2384

2432
2479
2526
2574
2659
2789
2928

*«TEST 28+ - OPI UNDER INTERRUPT
*+TEST 29*+ - READ HEADER FUNCTION
*«TEST 30+« - READ HEADER FUNCTION INTERRUPT

**TEST 35++ - CHECK DRIVE READY ON SEEK
*«TEST 36+ - SEEK FUNCTION INTERRUPT
*«TEST 37«+ - TEST DIFFERENCE WORD TRANSMISSON
*«TEST 38+« - VERIFY HEAD SELECT 0 VIA RD HDR
*«TEST 39+« - VERIFY HEAD SELECT 1 VIA RD hDR
#+TEST 4Q*» - VERIFY HEAD SELECT O VIA GET STATUS
*«TEST 41++ -~ VERIFY HEAD SELECT 1 VIA GET STATUS
*#«TEST 42++ - TEST TIME AT WHICH DIF WD GETS TRANSMITTED
*«TEST 43++ - EXTENSIVE CHECK OF HEADER CRC
*«TEST 44«- VERIFY GET STATUS WHILE DRDY S LOW
DIAGNOSTIC SUPERVISOR -- LOW (ORE SET UP

SEQ 0029

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-N0Ov-78 15:21
1

2
3
5
6

14
15
16
17
(4)
(4)
(4)
(4)
(4)

22-NOV-78

15:28

000000

000600

002000

Sv(

SVCINS=0
SVCTAG=0
.=2000

002000

POINTER BGNSFT ,BGNSW,BGNDU,BGNAU

002000
002000
002000
002001
002002
002003
002004

BGNMOD
162
132
122
114
101

MDHEDR
HEADER
LASCIT
LASCID
LASCII
LASCIT
LASCIL
BYTE
BYTE
BYTE
LASCII

LASCIT
.WORD

.WORD
.WORD

.WORD
.WORD
.WORD

(5)
(&)

E
PAGE 1

.ENABLE AMA
.ENABLE ABS
ME,CND ,MD
.NLIST

9
10
11
12

30A(1052)

002100
002102

000014
000000

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

(ZRLA,B,0,60,60,4,RLO1
78/
72/
/R/
/L/
/A7
O
0
O
/B/

70/
O
4
LS$HARD
L$SOFT
L$HW
L$SW
LSLAST
O
O
O
O
LS$DISPATCH
0
0
O
CSREVISION
(SEDIT
60
60
0
0
0
L$DVTYP
0
L$DR
LS$DRST
L$AU
L$DJ
1.
0

SEQ 0030

MACY11
22-NOV-78 15:21

ASSEMBLY ROUTINES

CZRLAB.P11
(4)

002104

(4)

002106

002110

30A(1052)

22-NOV-78

011514
012352

LWORD
.WORD

002122

PAGE 1-1

SEQ 0031

LSINIT
LSCLEAN

ENDMOD

DEVREG

000090
000001

15:28

0466122
002122

000001
0001C"

.WORD

DEVTYP
JASCIZ

<RLO1>
/RLO1V/

BLKW

030460

000

BGNMOD

.EVEN
GLBEQAT
EQUALS

DRDY-BITO
INTEN=B]T6
ERR=BIT15
DERR-BIT14
OPI-BIT10

;DRIVE READY (RLCS)
s INTERRUPT ENABLE (RLCS)
;RL11 ERROR (RLCS)
;RLO1 DRIVE ERROR (RLCS)
;OPERATION INCOMPLETE (RLCS)

BAI7=BITS
BA16=B] 74
NXM=BIT13
0S0=0
DS1=BIT8
DS2=BIT9

;EXTENDED ADDRESS BIT 17 (RLCS®
;EXTENDED ADDRESS BIT 16 (RLCS)
sNON-EXISTANT MEMORY (RLCS)
;DRIVE SELECT O (RLCS)
;DRIVE SELECT 1 (RLCS)
;DRIVE SELECT 2 (RLCS)

CRDY-BIT?7

DS3-BIT8.BIT9
NOOPQO=0

NOOP7=BIT1!BIT2!BIT3
WRCHK=BIT]

GSTAT=B]IT?
SEEK=BITZ2!BIT1

RDHDR=BIT3

WRITE=BIT3.BIT1

;CONTROLLER READY (RLCS)

;DRIVE SELECT 3 (RLLS)

; FUNCTION-NOOP
(Q)

s FUNCTION=NOOP(7)
;WRITE CHECK FUNCTION

;GET STATUS FUNCTION
:SEEK FUNCTION

;READ HEADER FUNCTION

;WRITE DATA FUNCTION

READ=BIT3.BIT?
GODRVR=B]T1.B]T7

JREAD DATA FUNCTION
;CRDY AND DRDY

GSBIT=BIT1
MK=B]T0

JGET STATUS BIT (RLDA)
sMARKER BIT (RLDA)

DRST=BIT3

SIGN=BITZ2

RHHS=BIT(

STHS=BIT6
DAHS=BIT4

;DRIVE RESET (RLDA)

;SIGN BIT {(RLDA)

HEAD SELECT

IN READ HEADER

JHEAD SELECT IN STATUS BACK
;HEAD SELECT IN SEEK

JOFFSET FOR HARDWARE P-TABLE
(SR-0
VECT-2

PRIOR-4

DRBT=6
INT=10

JOFFSET FOR SOF TWARE P-TABLE

002122

002124

000000

GLRBDAT

.SBTTL

GLOBAL DATA

PWRFLG:

.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

UuT:
UNITST:

RLCS:

RLBA:

RLDA:
RLMP:

BCSR:
BPRIOR:
BVEC:
DRIVE:
B.(CS:
B.BA:
B8.DA:
B.MP:
DERFLG:
E.CS:
E.BA:
E.DA:
E.MP:

E.MP1:
E.MP2:

PFLG:
TRPFLG:

000000

002214

~nN)

WN—JO\O(D\JOV!J\WN—'Og

Sy N

108

SEQ 0032

"nNo

BGNMOD

INTFLG:
LDCSR:
SECMSK:
XPOLY:
ERRVEC:
BCCFBK:
CALBCC:
TEMP?:
TEMP3:
TEMPS;
TMPO:
TMP1:
TMP2:
GDDAT:
:
BDDAT
FIRST:

CYLMSK:

MXSECT:
MAXSEC:
DWORD:
MAXCYL:

.
.
.

OOOO0OCOOOOOOOOOO

002122

;DRIVE UNDER TEST

;PROCESSOR TYPE

O-UNIBUS

1=0-BUS

s INTERRUPT OCCURANCE FLAG

G 3
PAGE 1-2

ENDMOD

200000 OO0OVOOOOH 2 NOOOOOOODOO

002°22

NOWH

15:28

miunn

N ——

000000
000002
000004

22-NOV-78

SA2MO

63
70

30A(1052)

—rr

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOV~-78 15:21

0001

;. OCATIGN TO FORM RL(CS
sMASK OUT SECTOR

.LOCATION USED BY
BY
BY
BY
BY

JLOCATION USED
JLOCATION USED
;LOCATION USED
;LOCATION USED

'‘SIMBCC''
'‘SIMBCC''
'‘SIMBCC''
'‘SIMBCC''
''SIMB(CC'’

JFIRST SECTOR READ
JMASK CYLINDER AND HEAD SE.ECT
sMAX SECTOR ADDRESS +1
;MAX SECTOR ADDRESS

JD'FFERENCE WORD

(SEEK)

JMAXIMUM CYL INDER ADDRESS

ASSEMBLY ROUTINES

CZRLAB PN

SUFRRU
LS BRI

d
D
D
d
D
d
e
d ed
D
d
—

000000
000000
0000C0
000000

30A(1052)

22-NOV-78
GLOBAL DATA
SVHD:

.WORD

15:28

H
3
1-3

PAGE

0
0
éUORD

SEQ 0033
s SAVE CURRENTM HEAD SELECT
JREASON FOR DROP I[N AUTOSIZE

WHY :

.WORD

.SBTTL

PATTERNS FOR REGISTER R/W

T.CNTLR:
TMPFNC: .WORD

*PATTERNS USED FOR LOADING/READING REGISTERS
000000

BEGPAT: ?

JGROWING 1

S W
OO0

D -

124
125

MACY11
22-NOV~-78 15:21

00NN
NN = O

el
b
b
)
)
b
—

;GROWING O

VAN AN

sk —

141

JWALKING

22-NOv-~78

PAGE

1-4

3
SEQ 0034

20000

40000

100000

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

b
d ed

b b
d
—

JWALKING O

137777

072777

:
ENDPAT

177777
000000

.SBTTL

PATTERNS FOR DIFFERENCE WORD

SKLST:

.WORD
.WORD
.WORD
.WORD
.WORD

—=OVONONEWN=O

IANASIANIACTANTAN
AN, W1aN 1oV 1oV 1oV
FIN)
= b e i b b b D D =

NNNNNN 2o 3

15:28

PATTERNS FOR REGISTER R/W

WD
—

30A(1052)

b md

353 SRS 8TRS VORI Rt S mmwg

D _y

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOvV-78 15:21

JSHIFTING ©

JSHIFTING O

222

JGROWING 1

QUAMAX:
HALMAX:

.
|

;GROWING O

ASSEMBLY ROUTINES

(ZRLAB.P11

236
%%g

002572
002574

MACY11

22-NOvV-78 15:21

30A(1052)

040000
000000

002576
002600
002602
002604
002606

247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
S;g

002612
002614
002616
002620
002622
002624
002626
002630
002632
002634
002636
002640
002642
002644
002646
002650
002652
002654
002656
002660
002662
002664
002666
002670
002672
002674
002676
002700
003070
003570

<78

003570

284
285
286

003570
003606
003631

246

sgg

287

002610

288
289

003636
003643
003650

291
292
293
294

003663
003670
003675
003700

290

003656

000000
000002
000Co4
000010
000020

40000
00000

JPATTERNS FOR

TEST OF

(SPAT:

044040

060
042040
015
000015

O
BIT1
BIT?
BIT3
BIT4

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD

BIT6
BITS8
BIT9
1576
1574
1570
1560
1540
1500
1400
1576
1574
1566
1556
1536
1436
1136
76
6
16
36
76
176
576
1576
O
.WORD
.BLKW
160.

CSEND:
ERPOINT :
ERCOUNT :
HDRBUF: .BLKW
ENDMOD

BGNMOD

GLBTXT

NORES:
NODRY:
DEMES:

.ASCIZ
_ASCIZ
.ASCIZ

LSBTTL

047&8

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

000100
000400
001000
001576
001574
001570
001560
001540
001500
001400
001576
001574
001566
001556
001526
001436
001136
000076
000606
000016
000036
000076
000176
000576
001576
000000
000000
000074
000240

0461440
042040
051104

046530
050117
051103
043116

041504
052114
000012

047117
044522
000126

000

000111
000103

000

000113
000

PAGE

.WORD
.WORD

000040

047516
047516
060

15:28

1-5

PATTERNS FOR DIFFERENCE WORD

SKEND:

528

241
242
243
264
245

22-NOV-78

GLOBAL

NXMMES: _ASCI2
OPIMES: .ASCIZ
HCRCMES:.ASCIZ
HNFMES:

DCKMES:
DOLTMES:
MSCRLF:
LF:

ASCIZ

.ASCI2
.ASCIZ
.AS(IZ
LASCIZ

SEQ 0035

RLC(CS

JSHIFTING 1

BITS

:GROWING 0

JSHIFT O

;GROWING 1

0
60.

TEXT

/NO CONTROLLER/
/NO DRIVE CONNECTED/
/ DRV/
/

XM/

/ OPl/
/ HCRC/
/ HNF/

/ DCK/
/ DLT/
<*S><1¢>
<15

ASSEMBLY ROUTINES
MACY11
CZRLAB. P11
21
22-NOV-78 15:

295

29%
297

298

003702
003710
003763

30A(1052)

000120

GLOBAL TEXT

JASCIZ
.ASCI2

NOPINT:

.ASCI2

WCKMES:
WCKINT:
RHDMES:
RHDINT:
SEKMES:

SEKINT:
GSTMES:
GSTINT:
ARLCS:
ARLBA:
ARLDA:

305
306
307
308
310

LASCIZ
.ASCIZ
LASCIZ
JASCIZ
LASCIZ

_a_n_a_a_n_au_n b b b b

EM2:
EM3:

ON= = N))OOO =
NNONNNINNN
=2 OO

EM13:
EM14.
EM1S:

EM16:
EM17:

EM30:
EM30A:
EM32:
EM33:
EM34:
EM37:
EM4T :
EM42:

EM4L3:
EM4LS :

102

044502

051440
046103
051440
046103

LASCIZ
LASCIZ

LASCIZ
LASCI2
LASCI2

.ASCJZ
ASCIZ

LASCIZ
.ASCIZ
JASCI2
ASCIZ
ASCIZ
ASCIZ
LASCIZ
LASCI2Z

LASCIZ

.ASCIZ

EM4S :
EM4E:

ASCIZ
LASCIZ

EMS2:
EM54
EMSS
EMS6
EMS7

LASCIZ
LASCIZ
JASCIZ
.ASCIZ
LASCII
LASCIZ
LASCIZ
JASCIZ
LASCIZ

EM4L7 :

020124
052111
020124

.ASCIZ
.ASCIZ
.ASCIZ

EM4 :
EMS:
EM6:
EM7:
EM11:

AFREG:

044502

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

CRTIM:
DRTIM:
EM1:

BEREG:

314
315
316

.ASCIZ

.ASCI2Z
.ASC]2Z
L.ASCI2
_ASCI2Z
.ASCIZ
_ASCI2
_ASCIZ
_ASCIZ
LASC]2Z

ARLMP:

m
312
313

15 :28

COMP:
OPIERR:

NOPMES:

300
N
302
303

317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
3
342
343
344
345
346
347
348
349
350

22-NOV-78

EM61:
EM62:
EM63:
EM64 :

ASCIZ

LASCIZ

PAGE

1-6

/ COMP/
/FORCED OPI(GET STATUS) CAUSED OTHER ERRORS/
/NOOP OPERAT]ON-FLAG MODE/
/NOOP OPERATION=-INTR. MODE/
/WRITE CHECK OPERATION-FLAG MODE/
/WRITE CHECK OPERATION-INTR. MODE/
/READ HEADER OPERATION-FILAG MODE/
/READ HEADER OPERATION-INTR. MODE/
/SEEK OPERATION-FLAG MODE/
/SEEK OPERATION=INTR. MODE/
/GET STATUS OPERATION-FLAG MODE/
5g§T §TATUS OPERATION-INTR MODE/
/ BA: /
/ DA: /
/ MP:
/BEFORE COMMAND: /
/TIME OF ERROR:
/
/CONTROLLER TIMED QUT/
/DRIVE READY TIMED OUT/
/CAN NOT ADDRESS RLCS/
/CAN NOT ADDRESS RLRA/
/CAN NOT ADDRESS RLDA/
/CAN NOT ADDRESS RLMP/

XRLCS READ/WRITE ERROR (BIT O DON'T CARE)X
XRLBA READ/WRITE ERRORX
XRLDA READ/WRITE ERRORX
/0P] WOULD NOT GENERATE INTERRUPT/
/NO INTERRUPT FROM NOOP(0)/

/NOOP(Q) MODIFIED RLMP/

/NOOP(Q) MODIFIED RLBA/
/NOOP(Q) MODIFJIED RLDA/
/INTERRUPT PRIORITY FAILURE/
/GET STATUS WOULD NOT INTERRUPT/

/GET STATUS SHOULD NOT INTERRUPT/
/RLMP CONTAINED WRONG STATUS/
/0P] DID NOT SET~GSTAT WITHOUT GS BIT/

/0P] DID NOT SET-GSTAT WITHOUT GS AND MK BITS/

/READ HEADER WOULD NOT INTERRUPT/
/BAD CYLINDER OR HEAD SELECT IN REPEATED READ HEADER TEST/
/BAD HEADER CRC ON READ HEADER/
/SECTOR ADDRESS OUT OF SEQUENCE DURING CONSECUTIVE READ HEADERS/
/WRITING RLMP MODIFIED RLCS/
/WRITING RLMP MODIFIED RLBA/
/WRITING RLMP MODIF]ED RLDA/
/SEEK WOULD NOT INTERRUPT/
/DRIVE READY CAUSED EXTRANEOUS INTERRUPT/

/BAD SEEK-TEST OF DIFFENCE WORD/
/BAD HEAD SELECT VIA RD HDR/

/BAD HEAD SELECT VIA GET STATUS/
/LOALING RLDA BEFORE DRIVE READY ON SEEK/<15><12>
/DRIVE READY DID NOT SET/
/BIT SET INSTRUCTION ON RLCS YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLCS YIELDED WRONG RESULT/
/2!T SET INSTRUCTION ON RLBA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLBA YIELDED WRONG RESULT/

SEQ 0036

007406
007440
007472
007525
007560
007625

102

052502
102
051127
127
051127
051127
051127
127
046122
000170

=2\

102
044502

W) —d =2 AN

007025

—

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOV-78 15:21

010016

30A(1052)

051440
046103
051040
042522

051040
047111

044524
047111
0471M

047111
044524
041440

22-NOv=-78

GLOBAL TEXT

EM6S :
EM66 :
EMG7 :
EM70:
EM71:
EM72:

15 :28

EM73:
EM74 :

.ASCJZ
JASCI2
JASCIZ
LASCIZ
JASCIZ
LASCIZ
LASCIZ
JASCIZ

EM76:
EM77:
EM101:
EM102:

JASCIZ
LASCIZ
_ASCIZ
BLKB

EM?7S:

LASCI2

PAGE

010016

B8GNMOD

GLBERR

010016

BGNMSG

ERRO

0100°6
010022

004737
004737

010342
010376

JSR
JSR

PC,LINET
PC, INEZ2

010026
010032

004537

012430

JSR
ENDMSG

R5,CKERLT

010032

104023

EMT

CIMSG

L10006:

010034

BGNMSG

004737

010342

JSR

PC,LINET

010040
010044
010044
010044

004537

012430

JSR
ENDMSG

RS, CKERLT

EMT

($MSG

L10001:

104023

BGNMSG

010342

013746
013746
012746
012746
010600

002236
002234
011020
000003

062706

004537

104014

urQurghurd

—_

004737

;CHECK ERROR LIMIT

sCHECK ERROR LIMIT

ERRZ
JSR

PC,LINE1

PRINTR
MOV
MOV
MOV
MOV
MOV

BDDAT ,~(SP)
GDDAT,-(SP)
HFRMT4 ,~-(SP)
#3,-(SP)
SP,RO

000010

ADD

#10,SP

012430

JSR
ENDMSG

RS5,CKERLT

EMT

L10002:

ERR1

010034

(elole]

SEQ 0037

ENDMOD
GLOBAL ERRORS

/BIT SET INSTRUCTION ON RLDA YIELDED WRONG RESULT/
/BIT CLEAR INSTRUCTION ON RLDA YIELDED WRONG RESULT/
/BUS RESET DID NOT CLEAR RLCS/
/BUS RESET DID NOT CLEAR RLBA/
/BUS RESET DID NOT CLEAR RLDA/
/WRITING RLCS MODIFIED RLBA/
/WRITING RLCS MODIFIED RLDA/
/WRITING RLBA MODIFED RLCS/
/WRITING RLBA MODIFED RLDA/
/WRITING RLDA MODIFIED RLCS/
/WRITING RLDA MODIFIED RLBA/
{gbCS CONTAINED FOLLOWING ERROR(S):
/

.SBTTL

1-7

.EVEN

010016

010032

H#FRMT4 ,GDDAT ,BDDAT

CSPNTB

;CHECK ERROR LIM]IT

ASSEMBLY ROUTINES
MACY11
CZRLAB. P11
22-NOvV-78 15:21

010106

010154
010160
010160
010160

GLOBAL ERRORS

15:28

EMY
BGNMSG

m 3
PAGE 1-8

ERR3

010342
010376

013746
013746
013746
012746
012746
010600

002234
002236
002226

062706

000012

#12,5P

004537

012430

R5,CKERLT

104014

JSR

#ERMTS ,=(SP)

SP RO
CSANTB

BGNMSG

004737
004737

010342
010376

002236
002234
011020
000003

010214
010216

013746
013746
012746
012746
010600
104014

062706

000010

004537

012430

010230

EMT
ADD

PC,LINET

PC,LINEZ2
HFRMT4 ,GDDAT ,BDDAT
BDDAT,~(SP)
GDDAT ,~(SP)
HFRMTS ,-(SP)
#3,-(SP)

SP,RC
CSPNTB

#10,SP

JSR
ENDMSG

R5,CKERLT

EMT

(SMSG

010342

JSR

PC,LINE

010234
010249
010240
010240

004537

012430

JSR
ENDMSG

R5,CKERLT

EMT

(M54

010242
010246
010252
010256

BGNMSG

004737
004737
004737

ERRE

JSR
JSR
JSR

18:

ERRS

004737

010242

;CHECK ERROR LIMIT
]

010230

L10005:

;CHECK ERROR LIMIT

ERRS

PRINTB
MOV
MOV
MOV
MOV
MOV

BGNMSG

104023

1
p
-

CEMSG

JSR
JSR

:
L 10004

104023

#4,-(SP)

( 10003:

010162
010166
010172
010172
010176

PC,LINE1
PC.LINE2
NFRMTS,
TMPO ,BDDAT , GDDAT
GDDAT, = (SP)
.- (SP)
BDDAT

TMPO, = (SP)

011056
000004

104023

SEQ 0038

CSMSG

004737
004737

010162

010222
010226
010226
010226

22-NOv-78

104023

010110
010116
0 0114
01 0120
01 0120
01 0124
01 0130
01 0134
010140
010144
010146
010150

30A(1052)

PRINTS

;CHECK ERROR LIMIT

ASSEMBLY ROUTINES

22-NOV-~78

CZRLAB.P11

010256
010262
010266

1 30A(1052)

22-NOV-78

GLOBAL ERRORS

15: 28

N 3
PAGE 1-9

SEQ 0039

H#FRMT99 ,-(SP)
#i,~(SP)

012746
012746

SP,RO
CSPNTB

N4 ,SP

R5,CKERLT

L10006:

104023

;CHECK ERROR LIMIT

C$MSG

BGNMSG

004737

010342

PC,LINET

013746

002236
011127

BDDAT,~(SP)

#FRMTG6 ,BDDAT

HFRMTG,
= (SP)
#2,-(SP)

000002

000006

ADD

#6,SP

010334

012430

JSR

RS.,CKERLT

010340
010340
010340
010342

L10007:

104023

005046
153716
013746
012746
012746

LINET:

ENDMSG
EMT

CSMSG

PRINTB

#FRMT1,RLCS,<B,DRIVE+1>
-(SP)
DRIVE+1, (SP)
RLCS,=(SP)
HFRMT1,-(SP)
#3,-(SP)

002147
002130
010672
0000603

SP,RO
CSPNTB

000010

(4)
(4)
448
(1)

(10)
(9)
(8
(7)
(6)

2222222222922

RERRRRRRRRRRR
SRR RRSNGRERS @
o

010376

()
‘8)
(7)
(6)
(3)

SP,RO
CS$PNTB

010326
010330

0
010452
010456
010462
0104566

013746
012746
013746

002152
004436
002150
004431
004460
010732
000006

000016
013746
012746
013746
012746
012746
012746

002156
004452
002154
004444
010751
000005

#410,SP
PC

LINEZ:

PRINT3

MOV
MOV
MOV
MCv
MOV

MOV

vov
A0V

NFRMT? ,#BEREG,#ARL(S,B.(S,#ARLBA,B.BA

B.8BA,-(SP)

#ARLBA
, - (SP)

B.(CS,=(SP)

#ARLCS,-(SP)

G,
- (SP)
#BERE
WFRMT?2,-(SP)

#16,SP
#FRMT2A ,#ARL DA B.DA , #ARLMP ,B.MP

8.MP,~(SP)

N#ARLMP
, - (SP)

8.DA,-(SP)

#ARLDA,~-(SP)

- (SP)
#7PMT2A
#5,--(SP)

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOvV-78 15:21

(3)

010472

010474
010476
010502
010502
010506
010512
010516
010522
010526
010532
010536
01050
01052

013746
012746
013746
012746
012746
012746
012746
010600
104014
062706

(13)
(12)
(11)
(10)
(9)
(8)
(7)

010546
010552
010556
010562
010566
010572
010576

013746
013746
013746
012746
013746
012746
012746

010602
010606
010610
010612
010616

010620
010620
010624
010630
010634
010636
010640
010644
010644
010650
010654
010660
010662
010664
010670
010672

010732
010751
010764
011013
011020
011053
011056
011127
011164
011225

22-NOV-78

GLLOBAL ERRORS

010600

(4)
(64)
449
(12)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)

(6)
(3)
(4)
(4)
451
452
453
(8)
(7)
(6)
(3)
(4)
(4)
454
(8)
(7)
(6)
(3)
(&)
(&)
455
456
460
461
462
463
464
465
466
467
468
469
470
471

30A(1052)

MOV
EMT

104014
062706

012746
010600
104014
062706
000207

012746
012746
012746
010600
104014

ADD
PRINTB
MOV
MOV
MOV
MOV
MOV

MOV
MOV

000006

MOV
EMT
ADD
PRINTB
MOV
MOV

000016

002174
002172

MOV
MOV
MOV
MoV
MOV

MoV

MOV

EMT
ADD

000020
LINE3:

007560
011013

000002

062706

000006

012746
012746
012746
010600

007625
011013
000002

104014
062706
000207

00000¢

049445

047503

047045
045
052045
045
047045
045
047045
045
040445
045

15:28

052045
033117
022466
000124
054105

040445
022516
051105
022516

040514
040501
047522
042101

SEQ 0040

SP,RO
CSPNTB

#4,SP
#FRMT2 ,#AFREG,#ARLCS,E.CS,#ARLBA,E.BA
E.BA,-(SP)
N#ARLBA,-(SP)
€.CS,=(SP)
#ARLCS,=-(SP)
NAFREG,~(SP)

NFRMT2,-(SP)
#6,-(SP)
SP,RO
CSPNTRE

#16,SP
#FRMTZ2B,#ARLDA,E.DA,#ARLMP
E .MP E.MP1 E . MP2
E.MP2,-(SP)
E.MP1,-(SP)
E.MP,~(SP)
N#ARLMP,
- (SP)
E.DA,=(SP)
N#ARLDA,~(SP)

RERMT2B,-(SP)

#7,-(SP}
SP.RO

C$PNTB
#20,SP

PRINIB
MOV
MOV
MoV
MOV
EMT

#FRMT3, #EM101
HEM101,-(SP)
#FRMT3,~(SP)
#2,-(SP)

EMT

052116

RTS

ADD
PRINTB
MoV
MOV
MoV
MOV

052045
022524
047445
022516
040445

PAGE 1-10

SP,RO
CSPNTR
#6,SP
#FRMT3,#EM102
#EM102,-(SP)
RERMT3,-(SP)
#2,~(SP)
SP.,RO
CSPNTB
#6,SP

ADD
RTS

FRMT1:
FRMT2:
FRMT2A:

.ASCIZ
LASCIZ
_ASCIZ

/XACONTROLLER: XO6X%XA
/ANXTXTX06XTX06/
/XTX06XT%06/

FRMT4:
FRMT99:
FRMTS5:
FRMT6:
FRMT11:
FRMT12:

ASCII
_ASCIZ
LASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

/INXZAEXP'D: X06XA REC'D: %06/
/IN/
/XNXALAST: XO6XA PRES: X06%A EXP'D: XO6XN/
/XNXAAT PROCESSOR LEVEL YO6%N/
/XAERROR LIMIT EXCEEDED-DROPPEDIN/
/XNXADRIVE DID NOTM RECOVER FROM POWER FAILURE %N/

FRMT2B:
FRMT3:

.ASCIZ
_ASCIZ

DRIVE:

/XT%06XTX06XA X06XA 206/
/INXT/

%01/

ASSEMBLY ROUTINES
MACY11
CZRLAB. P11
22-NOV-78 15:21

672
673
474
475
476

011304

047045

011336

052045

30A(1052)

15::28
22=NOV ~78
GLOBAL E RRORS

040445

FRMT13:

LASCIZ

PAGE 1-11

SEQ 0041

/ANATXA - WILL NOT

TESTIN/

.EVEN

4«80

011336
011340
011342
011344
011346
011350

BGNMOD

000005

BGNHW

174400

000160
000240
000000
000001

011352
011352

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

L10010-L$HW/2
174400
160
240

:CSR
JVECTOR
JPRIORITY

JRL1T

L10010:
ENDMOD

011352
011352
011352

HPTCODE

ENDHW

011352
BGNMOD

000003

(00000
000012
000000

BONSW

DROP:
:
MERLMT
T.SIZE:

SPTCODE

. WORD

L10011-L%5wW/2

.WORD
.WORD
.WORD

ENDSW

t10011:
ENDMOD

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

DSPCODE

s b

(alolalalololeletotel

014072

D and
e

DISPATCH

N
——aa N N T
NN N 39
FrRoRRRSANNS

b cd

=D —d —d

—d
D

d
e

nd cod

d
D

d e

)

b aed =

BGNMOD

(3)
501
502
503
504
505
506
(3)

011336

—

488
489
490
491
492
493
494
(3)
495
49
497
498
499
500

ENDMOD

011336

—d

487
(3)

011336

olelelelelelelclololelelelele)

481
482
483
484
485
486

:DRIve

(BITS 8,9,10)

=1,

RLVIT

ASSEMBLY ROUTINES

MACY11
22-NOV-78 15:21

NWNIWINRND
PO NOND) —

GLOBAL ERRORS

2L 2L 2E 2T 2T 2P 2F 2F oF oF
2R 2L L

OO\ NN NN S BN B B

G
O
Sur G
S

R 2
R
N
R
N

— =

.WORD

—

020570
020634
020760
021354
021506
021650
022010
022162
02251C
023206

PNOMNONIN)
2 — 2 —

3
b —d

D =D
e} ——d
b

b
b
b

d wed

D wd
b

PAGE

1-12

SEQ 0042

T14
T15
T16
T17
T18
T19
T20
T21
T22
T23
T24
T25
T26
T27
128
129
T30
T3]
T32
T33
T34
T35
T36
137
T38
T39

T4O
T4
T4
T43
T&4

ENDMOD

.SBTTL
BGNMOD

C11514

—d

15:28

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

e
P o o

NNNN

P
Y

(S RV LV LY IV I

(@]

22-N0OvV-78

WORD
WORD
WORD
WORD
.WORD
.WORD
WORD
WORD
.WORD
WORD
LWORD

011514

elelelelolololololelolololaloldle

~ N~ NTviviviviviuaioau

WNOWNN
=
aaa
=N~ 2OV
NN S W

o Qunr G

(6)

NI TN

(6)

NS
IS NN

(6)
(6)

VAN AN N

(6)

Gunr Guur Gunr oG GourSrue Sy St G
Gunr S
S S G W
i G S
S
S

(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6>
(6)
(6)
(6)
(6)
(6)
(6)

Guer Qe Gunr Ganr e Qunr Qo Goisr G Gunr G
i
T i QU U
U
U
QU S
W

(6)

elelololololololololalolololalslolololalolelololalololololols]

(6)

(6)
(6)
(6)

Gusr ot
O

CZRLAB.P11

30A(1052)

INITIALIZATION CODE
INITCODE
BONINIT

BRESET
EMT

104033

012700

104050

103004

000034

013737
000473

002012

012700

000037

104050
103404

012700
104050

000040

#EF .PWR

EMT

CSREF
G

MOV

002122
NOPWR:

CSRESET

READEF

#EF .PWR RO

BNCOMPLETE
NOPWR
NOPWR
BCC
MOV
LSUNIT,PWRFLG
CONT
BR
READEF
#Ei .RESTART
MOV
WEF .RESTART
,RY

EMT
CSREFG
BCOMPLETE START1
B(S
START1

READEF #EF .START

MOV

EMT

#cc,START,RO

CSREFG

sNO,BRANCH

JYES, SET POMER FLAG
;GO TO CONTINUE POINT

JRESTART?

JSTART???

MACY11
22-NOV-78 15: 21

ASSEMBLY ROUTINES

CZRLAB.P11

529
(2)
530
531
532
533
534
535
536
537

011574
011576

538

011604

(3)
(3)

011554
011554
011556
011562
011566
011570
011572

103010

012700
012701
005020
005301
001375

30A(1052)

202700
000100

BNE

BR
CONTINUE :
MOV

011576
011602

012700

(2)

011604

103447

560
51

011606
011612

005737
0010M
012737
013737
012737

117777
002012
002676

002126
002124
002676

011636
011642
011650
011654
011654
011660
011662
011662
011664
011670
011672
011676

005237
062737
005337

002126
000002
002124

002676

013700

002126

539

52
563
544
945
56
547
548
549
(3)
(3)

550
(2)
551
552
553
554
555
556
557
558
559
560
561
562
562
564
565
566
57
568
569
570
571
572

573

576
575
(7)
(6¢)

011614
011622
011630

011700
011704
011710
011714
(€11720

011724
01°730
011734
011740
011744
011750
011754
011760

104042

103406

012000
012004

012004
012010

000036

EMT

002124

NXT:

START:

XXX :

REST:

START
READEF #EF .CONTINUE
#EF . CONT INUE ,RO

CSREFG

wuT
XXX
#-1,UNITST
LSUNIT,uUT
#ERCOUNT-2 ,ERPQOINT

INC
ADD
DEC
GPHARD
MOV

UNITST
#2 ,ERPOINT
uuTt
UNITST,RO
UNITST,RO

EMT

002140
002144
002142
002146
002260

1%:

013700
010037

002140
002130

CONT:

TST

002122

BEQ
DEC
BR
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ADD
MOV
ADD
MOV
ADD
MOV
TST

005037

002200

012746
012746

000340
013544

C$GPHRD

BNE

TST

BEQ
CLR

SETVEC
MOV

MOV

:CONTINUE??2?

CONT

TST
BNE
MOV
MOV
MOV

3COMPLETE
BCS
1%

002122

011360

SEQ 0043

BCOMPLETE
BCS
CONT

005737
001746
005337
000743
012037
012037
012037
012037
012037

011764
011770
011772
011776

4
E
1-13

BNCOMPLETE
CONTINUE
BCC
CONTINUE
START1: MOV
H#ERCOUNT
,RO
MOV
#64
. R1
1%:
CLR
(RO)+
R1
DEC

000407
104050

22~NOv-78 15:28 PAGE
INITIALIZATION CODE

;DONE ALL UUT'S
:NO

PWRFLG

NXT
PWRFLG
NXT
(R0O)+,BCSR
(RO) +,BVEC
(RO)+,BPRIOR
(RO)+,DRIVE
(RO)+,T.CNTLR

;POWER FLAG

:YES,

TO O

DONT DEC

;GET NEXT ONE

;GET CONTROLLER TYPE

BCSR,RO
RO,RLCS
42 ,R0
RO,RLBA
#2,R0
RO,RLDA
#2 ,RO
RO.RLMP
PWRFLG

T.SIZE

;DO WE

TRPFLG

:CLR OUT

ERRVEC,#TRPHAN,#340
#2'0,-(SP)
#TRPHAN,
= (SP)

sNO

WANT

TO CHECK UNITS??

TRAP FLAG

JSETUP VECTOR TO CATCH NON-EXIST

ASSEMBLY ROUTINES
MACY11
(ZRLAB.P11
22-MOV~78 15:21

577
(3)
(3)
578
579
S80
581
582
583
584
585
586
587
588
(8)
(7)
(6)

(3)
(4)
(4)

589
590

591

592
593
594
595
596
597
598
599
600
601
602
603
(3)

(3)
604
605
606
607
608
(7)
(6)
(3)
(4)
(4)

609
610
(3)
(3)

012014
012020
012024
012026
012032

012036
012036
012042
012044
012050
012052
012060
012062
012070
012076
012104
012106
012114
012114
012120

012124

012130
012132
012134

012140

012142

012146

013746

012746
104037
062706
005777

002212
000003

MOV
MOV
EMT

9000010

ADD
TST

170072

CLRVEC

013700

002212

005737
001404
012737
000415

002200
003570

002256

012777
053777
032777
001016
012737

000200
002146
000001

170032
170024

003606

002256

104036

22-NOV=78
15:28
PAGE
INITIALIZATION CODE

013746
012746
012746
010600
104014
062706
000434

002256
011304
000002

005737
001457

002122

170040

MOV
EMT
TST
BEQ
MOV
7%:

MOV

1-14

8%:

PRINTB

000006

SEQ 0044

ERRVEC,=(SP)
#3,-(SP)

C$SVEC

#10,35P
aRL(S
ERRVEC

JACCESS

TRPFLG
7%
#NORES
, WHY

sNO,

ERRVEC,RO
CSCVEC

#200,3RLCS
DRIVE ,aRLCS

g;.aRLCS

#NODRY , WHY

#FRMT1S WHY

;DID IT TRAP

012701
012777
053777
032777
001023

000074
000200
002146
000001

012200
012200

012700

000012

012206
012210

005301
001367

012204

012212
012212

012216
012222
012224
012226

012232
012236

012236
012242

104026

002126

IT'S DRIVE

;CONTROLLER READY
JSELECT DRIVE

;DRIVE THERE
JYES

;SETUP ERR MESS

= (SP)
WHY
#FRMT13,
= (SP)
#2,-(SP)
SP.RO
C$ANTB

5%:

167746

167740

167732

011225
000001
000004
010342

CHECK

;SETUP ERR MESS

TST

PWRF LG

END

:ngENT POWER FAILURE????

s THERE WAS A RECENT POWER FAILURE, THEREFORE
JSIXTY SECONDS FOR THE DRIVE TC (OME READY

012150
012154
012162
012170
012176

CONTROLLER

JRELEASE VECTOR

#6,SP

ny
o

(5)
(4)
(3)
(2)
576

30A(1052)

WILL

WAIT

MOV
MOV
BIS

#60. ,R1
#200,3RL(S
DRIVE ,3RLCS
%gRDY.aRLCS

;SIXTY SECOND TIMEOUT
:SET CRDY
;SET IN DRIVE SELECT
sDRIVE READY???
;YES, THEN START TEST

WA TMS
MOV
EMT

#10.
#10. RO

JWAIT A SECOND

DEC
BNE

;SIXTY

PRINTB
MOV
MOV
MOV

NFRMT 12
N#FRMT12,-(SP)
#1,-(SP)

;DROPPING DRIVE

ADD

¥4 ,SP
PC,LINE1
UN]TST

BIT
BNE

EMT

6%:

JSR
DODU
MOV
EMT

CSWIM

SECONDS GONE BY

sNO, GO BACk

SP,RO
CSPNTR

Ws!TST,RC
($DODU

:GiVE DRIVE INFO
;TELL SUPERVISOR TO DROP [T

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV~78 15:21

30A(1052)

"5:28
22-N0v-78
INITIALIZATION CODE

012244
012244

DOCLN

000013

o oHrNOO

REFRGRRE

\t
DARRRRR
AN

[aS1aSIaNTANT
S 1oST ST N1\ ToN ST O T1o0 0 1aW1a0)

000200

167660
167646
167640
167632
167€24

3%:

END:

000340
013552
002144
000003

103002

005237

#13,3RLDA
#204 ,aRLCS

;SETUP DR RST
2GS FUNC

BIC
BIT

#200,aRLCS
#200,3RLCS

JISSUE IT
;WAIT FOR READY

SETVEC

BVEC,#INTSRV,#340

MOV
MOV

#INTSRV,=(SP)
BVEC,-(SP)

CLR

PFLG

8EQ

MOV

DRIVE ,aRLCS

1%:

#340,-(SP)

#3,-(SP)
CSSVE(
#10,SP

EMT

C$RDBRU

8CC

Li0012:

012352

INC

JSELECT DRIVE

BNCOMPLETE

104011

;CLR PROCESSOR

LAG

. Q-BUS

PFLG

;NO,

Q-BUS THEN

ENDINIT

EMT

CSINIT

ENDMOD

012352

E&GNMOD

012352

CLNCODE

BGNCLN

012352
012352
C12356

012700

000340

012360
0" "366

032777
001774

000200

167542

012370

042777

000100

167532

012376
012376
012402

013700
104036

002144

012404
012410

005737
001402

002122

012412

005337

002122

012¢41¢

MOV
MOV

READBUS

002176

;FORCE AN ABORT

C$DCLN

MOV
EMT
ADD

000010
002176

SEQ 0045

EMT

BIS
(%:

6 4
PAGE 1-15

104041

1¢:

SETPR]
MOV
EMT

#PRI0O7
#PR]07,RO
($SPR]

BIT

#CRDY ,aRLCS

BEQ
8IC

#INTEN,SRL(CS

CLRVEC
MOV
EMT

BVEC
BVEC,RO
CSCVEC

TST

PWRFLG

BEQ
DEC

’$:

PWRF LG

s TREAT

POWER FAILURE

MACY11
22-NOv-78 15:21

ASSEMBLY ROUTINES

CZRLAB.P11

012416
012416
012416

30A(1052)

L10012:

104072

012420

BGNMOD

012420

012422
012422
012422

000240

ENDCLN

EMT

10014

104055

012424

B8GNMOD

012424

DRPCODE

ENDDU

EMT

“$DU

ADDCODE

BGNAU

000240

NOP

t 10015:

104054

012430

ENDAU

EMT

($AU

ENDMOD

LSBITL

GLOBAL

012430

BNHNMOD

GLBSUB

012430
012430
012432
012432
012434
012440
012442
012446
012454

(KERLT:

012456

CSCLEAN

NOP

ENDMOD

012426
012426
012426

SEQ 0046

BGNDU

012424

1-16

ENDMOD

012420

22-NOv-78
15:28
PAGE
INITIALIZATION CODE

SUBROUTINES

INLOOP

EMT
CSINLP
BCOMPLETE

B(CS

011354
170230

170224

011164
000001
000004
010342

002126

011356

99%

TST

DROP

aLT

99%

8tQ
INC
P
PRINTF

99%

99%
aERPOINT
oERPOINT ,MERLMT

#FRMT11

MOV
MOV
MOV

#FRMT1? ,-7SP)
#1,-(SP)
SP,R(

ADD

#6 ,SP

EMT

COPNTF

JSR

PC,LINET

MC\

UNJTST,RO

;DROP "THE UN]TY

ASSEMBLY ROUTINES
MACY11
22-NOV=-78 15:21
CZRLAB. P

(3)
694
(3)
695
696
697
€98
699
700
701

012506
012510
012510
012512
0125%2

30A(1052)

104044

99%:

000205

.SBTTL

15:28

SUBROUTINES

PAGE

1-17

SEQ 0047

EMT
DOCLN
EMT

C$DODU
CSDCLN

RTS

ROUTINE

TO CHECK FOR CONTROLLER ERRORS

"ttQt'.'tt*'tttt'tfittt't"tttttttt.*t'fitfittttt'ttt*tt*ifi!'t!ttfl'

703
704
705
706
707
708
709
710

;-THIS ROUTINE

s*ACCORDINGLY.

WILL

'ERROR ME SSAGE .

lllllll’l.

'EXAMPLE

711
712

721

GLOBAL

104053

702

713
714
715
716
717
718
719
720

22-NOvV-78

012514
012520

002160
176000

002162

(HERR:

002262

000004

199%:

002262

000002

¥
°1.3

002162
001777

012574
012600
012604
012606
012612
012614
012622
012624

012630
0 2634
012636
012644

012646

2 ¥

012701
005737
100003
004537
003702
032737
001405

007625
002162

1¢:

013260
040600

002162

99¢:

002160
013260
020000
013260

JSR

DERFLG
#176000,€.2S
199%
RS

TMPFNC
, #GSTAT

98¢

1%
{?PFNC.#UR(HK

3%:

THE

TEST

.CLEAR OUT DRIVE ERROR FLAG
JANY ERRORS SET
YES, INVESTIGATE

JIF

NO, EXIT
SFUNCTION-NOP, RESET, GETSTATUS
JYES, GO CHECK IF ONLY DRIVE ERROR
.YES SERVICE ERROR

JGET E.CS

#140000, RO
1%
RS

*DRIVE ERROR ALONE?

#EM102,R1
E.CS
99%
RS, FIX

;JGET START OF STRING
21S COMPOSITE ERROR SET?(BETTER BE®
JIT'S NOT SOMETHING [S WRONG

#DLRR,E.CS

DERFLG
RS,FIX

002162

THEM

ERROR PRINTUUT WITH

R5,CHERR

€S,RO

012572

FOR ERRORS AND PRINT

THE

AND PICKS HEADER FROM R3

41777 RO

140000

RLCS

MERGE

RLCS CONTAINED FOLLOWING FRKOR(S):
HCRC
HNF
DRV ~ OPI
SEEK UNDER INTERRUPT

ROUTINE USES RO,R1

CALL

CHECK

IT WILL

:qu.E.CS

Rg.le

*NO, GO SERVICE
SYES, EXIT

JYES, PUT "'COMP'* IN STRING

;llcwl'

;DRIVE ERROR SET?
JNO, CONTINUE
JSET DRV ERROR FLAG

:Y%g. PUT "DRV'' INTO STRING

'_n

vla

JNON-EXISTENT MEMORY ERROR?

JNO, CONTINUE
JYES, PUT "WNXM'' INTO STRING

ASSEMBLY ROUTINES
}1
MA(Y
CZRLAB.P11
22-NOV-78
115:2

012652

003636

002000

30A(1052)

002162

2 2-NOV-78

ROUTINE

4%:

002162

013260
010000

002162

013260
012726
012730
012736
012740
012744
012746
012754
012756
012762
012764
012770
012772
012776
013000

004000

6$:

013260
010000

002162

7%:

0132¢0

013017

000205

#81T11,E.CS
5%
RS,FIX

HEADERCRC ERROR?

8IT
BEQ
JSR

#BIT12,E.CS
8%
RS,FIX

JHEADER NOT FOUND?

BR
BIT
BEQ
JSR

8%
#BIT11,E.CS
7%
RS,FIX

:PUT *'CRLF'* IN STRING
;DATA (CRC ERROR?

BIT
8EQ

#BIT12,E.CS
8%

.DATA LATE ERROR?

JSR
DLTMES

8%:

013260

104462
000454
003700
010242

IS OPl SET?
GO CHECK BITS 11 & 12
Rg;lOFI'' INTO STRING

DCKMES

013260

013002
013002
013004
013006
013010

#0PI,E.CS
6%
RS,FIX

HNFME
S

002162

R5,FIX

JSR
JSR

RS,FIX

.WORD

ERRDF

TRAP
.WORD

:"HCRC''

:NO, GO PUT ''CRLF'"
IN STRING
REL"HNF''
IN STRING

JNO. GO CHECK DATA LATE

IN STRING
:PUT "DCK’*

JDCK!
INO,

GO PUT

IN "'CRLF'’
IN STRING

JHEADER FROM TEST
;PUT TERMINATOR IN

CLRB

GO CHECK HEADER NOT FOUND

:GO PUT "HCRC''
IN STRING

JSoLT

RS,FIX

MSCRLF

RES TMS:

SEQ 0048

8IT
BEQ
JSR
OPIMES
BIT
BEQ
JSR

HCRCMES

S§$:

PAGE

'Nx"l'

NXMME
S

013260
004000

15:28

TO CHECK FOR CONTROLLER ERRORS

300.,LF ,ERR6
TSERCODE
300

.WORD

RTS

.WORD

ERR6

JEXIT ROUTINE

.SBTTL LOAD RL(CS
"ttttttflQ"t'fi.ttt*it"t"i.'t.*"tfitt.tttt'tfitfit!‘tti'ttttt'ttt
.

ROUTINE

. N

7O LOAD RLCS WITH FUNCTION

CALL:

JSR
.WORD

RS, LDFUNC
;BITS

W= =2\ —d =2

—

=~ PNV N NNINOAN
= NN
NN
W~
NN

o
ro
P

-—

OOOOOSOOOOO

.t
002204
002160

002150
000013
000004

LDF UNC: MOV
TST

BEQ
MOV
MOV

167074

002150
002150

167046

000200

167036

99%:

(RS)+ ,LDCSR

DERFLG
98$%
B.cS,-(sP}
#13,aRLDA

JAND

TO BE

PERFORMED

TO BE LOADED,

FUNCT ION

INTR ENABLE ONLY

JGET BITS TO LOAD

3ggo~o~mmbbb
RBEREFLORENRRES

Pt Py Grunr P
Pur S
uur Pour Guuer G
Qoo G
pur Guer Poaey Ginr S

NN NN NN NN N NN N N NN NN
e
D A
bt
b
b
b
b h
D
o

leoleleolololalolololaloleololololels]

ASSEMBLY ROUTINES
MACY11
CZRLAB P11
22-NOvV-78 15:21

010346
042737
013737
042737
013737
012703
006237
001404
022323
005337
001374
032737
001401

002204
013232
013232
002262

000109

22-NOV-78
LOAD RL(CS
98¢%:

1%:

01323¢

012776
002146
000200
002°0¢4
013¢72
000200

013200

30A(10520

002204

2%:
3%:

002294
002204

(%:

166702

5%:

166714

15:28

MOV
BIC
MOV
B1(
MOV
MOV
ASR
BEQ
MP
DEC
BNE
BIT
BEQ
TST
MOv
MOV
BIS
BIS
MOV
JSR
BIC
MOV

013234
013236
013240
013242
013244
013246
013250
013252
013254
013256

HDRLST:

NOPME
S
NG INT
WCKME
S
WCKINT

OKHDR:

004372
004250
004301
004147

#INTEN,FNDFNC

JONLY FUNCTION

LDCSR,FNDFNC

FNDF
, "TMPFNC
NC
#HDRLST
k3
FNDFNC

2%
(R3)+,(R3)+

FNDFNC

#INTEN,LDCSR

3%
(R3)+
(R3) .R3
R3,RESTMS

ORIVE,LDCSR
#200.(DCSR
LDCSR,aRLCS
RS ,BEF ORE

#200,3RLCS
0

.WORD

SEQ 0049

;SAVE R3
JCLEAR ALL BUT FUNC & INTR EN

R3,-(SP)

(SP)+,R3
RS

FNDFNC:

1-19

#177661,LDCSR

RTS

013232

PAGE

JSAVE FUNCTION

;GET HEADER LIST
JALIGN TO RIGHT

.BUMP R3 BY 4
JFOUND IT
sNO,KEEP LOOKING
;YES,DO WE WANT FLAG OR INTR
;FLAG BRANCH
JINTR POINT TO THAT ONE

;SET HEADER
;SET _UP HEADER
sSELECT DRIVE
;CONTROLLER READY

JRESTORE RZ

JEXIT

GSTMES
GSTINT
SEKMES
SEKINT

RHDME
S
RHD INT

004207

:'ttttfi‘ttttfi'.'fit*tttt."".ttt*'fifit'ttttt'tfitt-t'ttittt.ti'ttt!

;*ROUTINE TO MOVE ASCI] STRINGS
:*USES REGISTERS R1 - WHERE STRING IS BFING BUILT
CALL

JSR

MoV
MovR

(RS)+ R0
(RO)+,(R1)+
1%
-(R1)
RS

BNE

TSTR
RTS

.WORD

RS,FIX

sADDRESS OF

;GET ADDRESS AND MGVE RETURN
¢GET BYTE AND UPDATE
JWAT(H O BYTE

166632
166626

002150

002152

BEFORE: MOV

MOV

. (S,B.(S
aRLBA B.BA

TERMINATOR

:?Q?? UP OVER ZERO BYTE

sLOAD REGISTERS BEFQRE FUNCT]OM
RS ,BEFORE
JSR
JCALL:
017737
017737

STRING TO MOvVE

cREAD (S
JREAD BA

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV-78 15:
3

856
857
858
859
860
861
862

013306
013314
013322

864
865
866
867
868
869
870
871
872
873
874
875

013324
013332
013340
013346
013354
013362
013370

863

017737
017737
000205

166622
166616

30A(1052)

002154
002156

15:28

MOV
MOV
RTS

L 4
PAGE 1-20

SEQ 0050

aRLDA,B.DA
aRLMP ,B.MP
RS

;READ DA
;READ MP

;LOAD REGISTERS AT ERROR
R5,AFTER
JSR
JCALL:
017737
017737
017737
017737
017737
017737
000205

166600
166574
166570
166564
166556
166550

002162
002164
002166
002170
0021722
002174

AFTER:

MOV
MOV
MoV
MOV

aRLCS,E.CS
aRLBA E.BA
aRLDA,E.DA
aRLMP E .MP

ROUTINE

TC CALCULATE CRC

MOV
MOV
RTS

.SBTTL

876

877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911

22-NOV-78
LOAD RLCS

JREAD (S
JREAD BA
;READ'
DA
:READ MP

IRLMP E .MP1
IRLMP E .MP2
RS

JREAD MP
JREAD MP

JRIOJTINE WILL CALCULATE A CRC-16 CRC ON A WORD OF
;1-16 BITS

IN LENGTH,

CALL:

RESULT

JSR

.WORD
.WORD
.WORD

013440
013444
013450
013452
013456
013460
013464
013470
013474
013476
013500
013504
013506
013514

SIMB(C:

002220
002222
002224
002214
002224
002222

000001
002214
002210

’%:

002214

MOV

MOV
0%
MOV
MOV
MOV

CLR

MOV
ROR
ADC

BIT
BEQ
COM

MOV
(oM

BIC

002224
002214
002224

RO, ~(SP)
R1.-(SP)
R2.~(SP)

(R§)
. TEMP2
+

(R5)+. TEMP3
(R5)+_ TEMP4
BCCFBK
TEMP4 RO
TEMP3
RO
#1.R0

BCCFBK
XSOLY.RO
R

RC,BCCFBK
TEMP4

BCCFBK,RO
TEMP4 R

R1.R2

002214

002210
002224

’

002224

RO, TEMP4

IN '°'CALBCC''

RS, SIMBCC

ROUTINE USES RO,R1,R2

013372
013374
013376
013400
013404
013410
013414
(013420
013424
013430
013432
013436

IS RETURNED

JNUMBER OF BITS (1-16)

;DATA FOR CRC CALCULATION

sPREVIOUS OR STARTING CRC
(SHOULD BE

ZEROED FOR START)

;SAVE RO
;SAVE R1

;SAVE R2
;GET NUMBER OF BITS

;GET DATA FOR CRC CALCULATION
JGET STARTING CRC

;GET PRESENT CRC
JROTATE NEW DATA
JMERGE NEW WITH OLD

JBIT O SET
s 1F NOT CONTINUE

*GET CRC POLYNOMIAL (CRC-16)
“COMPLIMENT POL YNOMIAL

~CLEAR CARRY

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOv-78 15:21

005337
3

30A(1052)

22-NOV=-78

PAGE 1-21

SEQ 0051

ROUTINE TO CALCULATE CRC

002220
002224

15:28

DEC
BNE
MOV
MOV
MOV

002216

TEMP2
1%
TEMP4, CALBCC
(SP) +,R2
(SP)+,R1

MOV

000205

JROUTINE

égP)+,R0

TO SET

FLAG

;RETURN

TRAP OCCURRED

;"'TRPHAN'® IS IN LOCATION 4.
013544
013550

005237
000002

002200

TRPHAN:

013552
013552

005237

002202

000002

013560
013562
013566
013574

010146
012701
032777
001011

003720
000001

012700

000001

013576

TRPFLG

INC

INTFLG

;INDICATE

JRETURN

TRAP

BGNSRV

013556
013556
013556

013576

INC
RTI

INTSRV:

s INDICATE INTERRUPT

ENDSRV

104027

L10016:

JROUTINE TO WAIT FOR DRIVE
WIDRDY: MOV
R1,-(SP)

166334

1%:

005301
001367

MOV

#DRDY ,aRLCS

WAITUS
MOV
EMT
DEC
BNE

M1
#1,R0
CSWTU
R1
1%

BNE

TRAP

000310
004547

012601
000205

2%:

017500
000200
000001

.WORD

ERRS

RTS

;SAVE R1

;TIME OUT OF

;DRIVE READY?
JYES,

200 MILLISECONDS

EXIT

JWAIT A WHILE
JCHECK

TIME UP

;NO, GO CHECK DRIVE READY

TSERCODE

200

MOV

READY

200. ,DRTIM,ERRS ;DRIVE READY DID NOT SET

.WORD

010230

#2000. ,R1

BIT

ERRDF

104462

001367

RT]

DRTIM

(SP) +,R1

JRESTORE

JEXIT

JROUTINE TO WAIT FOR CONTROLLER READY
WTCRDY: MOV
R1,=(SP)
; SAVE R1

166270

1%:

MOV
BIT

BNE
WAITUS
MOV
EMT
DEC
BNF

#8500. ,R1

SWAIT 800 MILLISECONDS

#CRDY ,aRLCS

:CONTROLLER READY

CSwTU
R*
1%

;CHECK [F

2%
#1
#1,R0

JYES, EXIT
JWAIT A WHILE

TIME UP

:NO GO BACK

MACY11 30A(1052)
22-NOv-78 15:28 PAGE 1-22
ROUTINE TO CALCULATE CRC
22~-NOvV-78 15:21

ASSEMBLY ROUTINES

CZRLAB. P11

958
959
960
961

(3)

(5)
(%)

013654

004537

013660
013660
013662
013664
013666

104462
000144
004522
010242

013676

000402

013672
013676
013700

004537
012601
000205

013324

2%:

3%:

013702

SEQ 0052

JSR

R5,AFTER

;GET REGISTERS

ERRDF

100.,CRTIM,ERR6 ;CONTROLLER TIMED oUuT

TRAP
.WORD
.WORD
.WORD

CRTIM
ERR6

JEXIT

JSR

R5 ,AFTER

;GET REGISTERS

{3SRCODE

(SP)+ ,R1
R5

MOV
RTS

JEXIT

ENDMOD

LSBTTL
013702
013702

*«TEST T« - RLCS ADDRESSABILITY

BGNTST

saxaaSTART OF

TARS

TESTwawx

§ AR R AR AR R ANRRANRRNN RN A AN ANRRNRNNRRRNRRRARNRRRRRARRRRRNRARRNRN
:TEST

TO SEE

IF WE

CAN ADDRESS THE

SAND STATUS REGISTER.

IF WE

CONTROL

TRAP WE WILL REPORT

*THE ERROR AND ABORT.
AFTER THIS TEST WE ONLY KNOW
g}gfig WE CAN ADDRESS THE REGISTER.

013702

""tt*ttt***t*tttttttt*t*ttttttfi*ttt**fi*tttttttttttfittt*ttt'*fiiitt

013702
013706
013706
013712
013716
013722
013726
013730

005037

002200

012746
012746
013746
012746
104037
062706

000340
013544
002212
000003

013734
013740
013740
013744
013746

005777

166170

013700

002212

005737
001407
013737

002200

104036

104461

000000
004575
010034

1$:

2%:

SETVEC

. CLEAR

TRAP OCCURANCE

SET TO CATCH TRAP

#340,-(SP)
- (SP)
#TRPHAN

MOV
EMT
ADD

#3,-(SP)
C$SVEC
#10,SP

TST

aRLCS

sADDRESS RLCS

TRPFLG

; TRAP OCCURRED???

MOV

RLCS,GDDAT

;SET U® ERROR DATA

ERRSF

Q. ,EM1,ERR1

CLRVEC
MoV
EMT
TST

002234

TRPFLG

ERRVEC,#TRPHAN.#340

MOV
MOV

MOV

000010

002130

CLR

BEQ

TRAP
.WORD
.WORD
.WwORD

, - (SP)
ERRVEC

ERRVEC
ERRVEC,RO
C$CVEC

TSERCODE
0
E/?
ERR1

JRELEASE TRAP VECTOR

sNO,

IKAY PROCEED

;BUS TIMEOUT IN ADDRESSING RLCS

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV-78 15:21

(3)

997

(3)
(3)

998

013772
013772
013774
013774
013774

30A(1052)

22-NOV-78

CKLOOP

ENDTST

L10017:

104001

PAGE

1-23

««TEST 1+ ~ RLCS ADDRESSABILITY

3s:

104006

15:28

LSBTTL

013776

BGNTST

013776

STARS

EMT

($CLP

EMT

CSETST

SEQ 0053
JCHECK IF /FL:LOE IS SET
JenaxEND OF

TESTawxn

«+TEST 2%+ -~ RLBA ADDRESSABILITY
;enxxSTART OF

TESTaenx

——

—

el —d 2

—

ed
b

OO~~~ O~O~A~N~AAO0OO0OO0O0O0~A~000A~ PN N NN ~0O0O
NFOWN WRSIAND N AWNWNININIRD)
2 3 S (NN = 2N WESHNON N2
= an) o
NSRRI
NS
NN o
e
= OO 00 N
e NN
~ W=~ OO0~

IR RANRRRNNRNNNNNRRRNRN
S AR AR RNNANRR AR RANNNNNNNNNNR
R AR R ®

JTEST

TO SEE

JREGISTER.

014012

014016
014022
014024

014030
014034
014034
014040
014042
014046
014050
014056
014056
014060
014062
014064
014066
014066
014070
014070
014070

CAN ADDRESS

THE BUS ADDRESS

JAND ABORT.
AFTER THIS TEST WE ONLY KNOW THAT
é#ERgAN ADDRESS THE REGISTER.

013776

013776
014002
014002
014006

IF WE TRAP WE WILL REPORT THE ERROR

005037

002200

012746
012746
013746
012746

000340
013544
002212
000003

062706

000010

005777

166076

013700

002212

104037

104036
005737
001407
013737

A RN

1%:

CLR

2%:

SETVEC

MOV

000001
004622
010034
104006

sADDRESS RLBA

TRPFLG

;TRAP OCCURRED???

RLBA,GDDAT

;SETUP ERROR DATA

TRAP

ENDTST

104001

aRiBA

CSBTTL

1. ,EM2,ERR1

T$ERCODE

sNO,

sBUS TIMEOUT

EMT

CSETST

#«TEST

3+« - RLDA ADDRESSABILITY

RRARNNAAANAANRNR

TRAP VECTOR

CONTINUE

1
EM?2
ERR1

BGNTST
STARS
SRR

JRELEASE

.WORD
.WORD
.WORD
CKLOOP
EMT

C$CLPY

;SET TO CATCH TRAP

TST

ERRSF

L10020:

#340,-(SP)

ERRVEC
ERRVE(,RO
CS$CVEC

RN A ARRR A AN AR

. CLEAR TRAP OCCURANCE

ERRVEC,#TRPHAN,#340

#3,-(SP)
CS$SVEC
#10,SP

MOV

AR A ANNAANA

EMT
ADD

TST

104461

TRPFLG

#TRPHAN,
- (SP)
ERRVEC,-(SP)

BEQ

002234

AR AR AR AR RN AR R AR AR

MoV
MOV
MoV

(LRVEC
MOV
EMT

002200

002132

AR AR T A RN

sCHECK

IN ADDRESSING RLBA

/FL:LOE

s*awxEND OF

IS SET

TESTanwx

sonexSTART OF

TESTwwxx

SRR P AN AN AN A RN AN AN N RNANN NI N RN RRRAANANR

:TEST TO SFE IF WE CAN ADDRESS THE DISK ADDRESS

AR AR

RN RN

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV=78 15:21

1031
1032
1033

103%

014072

1035
1036
1037

(2)

",-'ttt'tt*ttttt*ttttttt'ttt'tittttttltt't'tttfifitfittttttttttttttt'

005037

002200

(7)
(6)
(5)
(&)
(3)

012746
012746
013746
012746
104037

000340
013544
002212
000003

15%%

014076
014102
016106
014112
014116

062706

000010

1040
1061

014124
014130

005777

166004

002212

1042

014136

014142

013700
104036
005737

001407

0141446
014152

013737

002134

1822

1045
1046

(3)
(5)
(5)
(5)
1047
(3)
1048
(3)
(3)

1049

014130
014136

014152
014154
014156
014160
014162
014162
014164
014164
014164

104461
000002
004647
010034

(2)

002234

104001

.SBTITL
014166
014166

#340,-(SP)
#TRPHAN,
= (SP)
ERRVEC,
- (SP)
#3,~(SP)
CSSVEC
#10,SP

ST
CLRVEC

3RLDA
ERRVEC

BEQ

_WORD
.WORD

CKLOOP
EMT
EMT

ERRVEC ,RO
CSCVEC
TRPFLG

RLDA, GDDAT
2. ,EM3_ERRI1

T$ERCODE
2
EM3
ERRI
C$CLPY

LEAR TRAP OCCURANCE

;ADDRESS RLDA
*RELEASE TRAP VECTOR

:TRAP OCCUFRED??7?

*NO, CONTINUE

:SETUP ERROR INFO
*BUS TIMEOUT IN ADDRESSING RLDA

;CHECK
;AR

/FL:LOE

xEND OF

IS SET

TESTw%wx

CSETST

*+TEST 4»% - RLMP ADDRESSABILITY

BGNTST
STARS

;ax%%START OF

TESTwwws

. tittttttttttttttttttttttt'tttt’ttttt*fitttt*t*tttttttttttttfitttt

*TEST TO SEE IF WE CAN ADDRESS THE MULTIPURPOSE
‘REGISTER.
IF WE TRAP WE WILL REPORT THE ERROR AND
*ABORT.
AFTER THIS TEST WE ONLY KNOW THAT WE CAN
*ADDRESS THE REGISTER.

1062

014166

005037

002200

(7)
(6)
(5)
(4)
(3)

014172
014176
014202
014206
014212

012746
012746
013746
012746
104037

000340
013544
002212
000003

014172

MOV
MOV
MOV
MOV
EMT
ADD

MOV
ERRSF

ENDTST
£10021:

014166

1063

TRPFLG

SETVEC ERRVEC,#TRPHAN, l3~0 ;SET TO CATCH TRAP

MOV
EMT
ST

3¢

104006

1059
(2)

CLR

TRAP
.WORD

1050

1055
1056
1057
1058

1%:

2%:

002200

}825
1053
1054

SEQ 0054

$TARS

014072

(3)
(3)

22-NOV-78
15:28
PAGE -24
*«TEST 3%+ - RLDA ADDRESSABILITY

;REGISTER IF WE TRAP WE WILL REPORT THE ERROR
SAND ABORT.
AFTER THIS TEST WE ONLY KNOW THAT
*WE CAN ADDRESS THE REGISTER.

1038 014076

014120

30A(1052)

STARS

;"ttttttttttittttttttfitfitttttitttt*t*'tttttttttttttt'*ttttttttttt

1%:

2%:

CLR

SETVEC

MOV
MOV
MOV
MGy
EMT

TRPFLG

-CLEAR TRAP OCCURANCE

ERRVEC,#TRPHAN.#340

#340,-(SP)
#TRPHAN
- (SP)
ERRVE(,=(SP)
#>.-(SP)
C$SVEC

:SET UP TO CATCH TRAP

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOv-78 15:21

30A(1052)

16&2

014214

062706

000010

ADD

#10,SP

1065
1066
(3)
(3)
1067
1068

014220
014224
014224
0164230
014232
014236

005777

165712

013700
104036
005737
001407
013737

002212

TST
CLRVEC

aRLMP
ERRVE(
ERRVEC ,RO
CSCVEC
TRPFLG
3$

1071
(3)
(5)
(5)
(5)
1072
(3)
1073
(3)
(3)
1074

016246
014246
014250
014252
014254
014256
014256
014260
014260
014260

}898

014240

002234

104461
000003
004674
010034

3%:

104006

ENDTST
L1002¢2:

10400

1075

18;9
1078
1079
1080
1081
1082
(2)

.SBTTL
014262

BGNTST

0146262

STARS

1089

3. ,EM4,ERRT
T$ERCODE
3
EMS
ERR1

EMT

CSETST

;BUS TIMEOUT IN ADDRESSING RLMP

JCHECK

“$CLPY

/FL:LOE

sxvxxeND OF

IS SET

TESTawex

##TEST S5«« - READ WRITE OF RLCS
Jaxe«START OF

. (CONTROLLER READY)
STARS

014262

TESTewwe

R AR RN A RN RN NN N AARA RN RN N AN AN SN RN

NANA

1092

014266

104004

1094
1095
1096
1097
1098
1099
1100
1101

014270
014270
014274
014302
014310
014316
014320
014326

011337
052737
013777
032777
001403
052737
017737

1106

014352

014334
014342
014350

IS ALWAYS WRITTEN TO A ONE.

""tttttttt.tttttt'*t'i't"'ti'ifit"t't'tfi'fi.Qtt'lt.ttt.t'l't't'tt

014262

1102
1103
;}8?

ERRSF
TRAP
.WORD
WORD
.WORD
CkLOOP
EMT

SARE DON'T CARE BITS AT THIS TIME AND BIT 7

183?

163%

;TRAP OCCURRED???
;NO, CONTINUE
JSET UP ERROR INFO

:TEST THAT WE CAN WRITE/READ BITS 8,9 AND BITS 6-1
SOF THE CONTROL AND STATUS REGISTER.
BITS 15-10 AND 0

1085
(2)

SEQ 0055

sADDRESS RLMP
JRELEASE TRAP VECTOR

RLMP,GDDAT

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

1083
1084
1086
1087

MOV
EMT
TST
BEQ
MOV

002200

002136

22-NOV-78
15:28
PAGE 1-25
*+TEST 4*x ~ RLMP ADDRESSABILITY

012703

042737
023737
001404

00257¢
BGNSEG

CCTEST:

002234
000200
002234
040000

002234
165620
165612

140000
165576
000001
002234

002234
002236
002236
002236

99%:

MOYv

#(SPAT ,R3

EMT

($BSEG

MOV
BIS
MOV
BIT
BEQ
BIS
MOV

(R3) ,GDDAT
#200,GDDAT
GDDAT ,aRLCS
#DERR,aRLCS
993
#ERR!DERR,GDDAT
aRLCS ,BDDAT

sGET PATTERN INTO GDDAT
s INSURE GO IS SET
sLOAD RLCS (CONTROL AND STATUS)
;IF DRIVE ERROR PRESENT
s THEN EXPECT DRIVE ANC
;COMPOSITE ERROR
JREAD RLCS BA(CK

"RRDF

4, ,EMS,ERR?

sWRONG DATA [N RLCS

BIC
(MpP
BEQ

#DRDY ,BDDAT
GDDAT ,BDDAT
1%

;SET UP TABLE POINTER OF
sx**«START OF

PATTERNS

SEGMENT*x=w

s IGNORE DRIVE READY
;DID WE READ WHAT WE LOADED
JYES, THEN BRANCH

ASSEMBLY ROUTINES
N
~

*!qu\t-dChOOo"‘JOWAJ\UUNWv-JChOCD‘JO“v\IUVV\/“VWv-JCDS;

00 7~

—

22-NOV-78 15:21

014352
017754
014356
014360
014362
014362
014364

104462
000004
004721
010046

014366
014370
014374

005723
020327
001335

30A(1052)

15:28
PAGE 1-26
*+TEST S5+* - READ WRITE OF RLCS
TRAP
. WORD
. WORD

1%:

104010

22-NOvV-78

000012

. WORD
ESCAPE
EMT
. WORD

SEQ 0056

ZSEPCODE

EMS
ERR2
SEG

JIF

CSESCAPE

/FL:LOE SET LOOP,

ELSE EXIT SEG

10000%-.

e e

D =

e R

w VALV, 1V, TURR S N S RONTVY] NN
N NN NN AN N NI NN RN ATV NONON) D 2 S S (NN
~ NN
e e N = OO00NN

014376
014376
014376
014400
014400
014400

TST

002674

MP
BNE

ENDSEG

10000%:

104005

ENDTST

L10023:

104001

.SBTTL

014402

BGNTST

014402

STARS

D d e
) N
D e

—r —d —d )

ey d
e

) e

B ek

D d

)

D e

— ed d e md md b —d ek D D

N
—

o~ —h PN

(3)

(R3)+
R3,#CSEND
CSTEST

;BUMP FOR NEXT PATTERN
;CHECK FOR END
JNOT END, LOAD NEXT PATTERN

;****END OF

SEGMENT+as

;""END

TESTxnxx

EMT

CS$ESEG

EMT

C$ETST

*+TEST 6%+ - READ WRITE OF

RLBA

;#%*xSTART OF

TESTxxn«

:;*fittit*tttttfi*ifi'*tfitt"ttttfittfitttttttttttttittfitt*ttttttttttt

;TEST THAT WE (AN WRITE/READ BITS IS THRU 1 OF

d e

— el ek wed md

) wmd )

— e el ) bk

D ad ed

N o

D~ P N

ah =D

e el

T ~~ o~

O WWOWVIW VI

CZRLAB.P1

MACY11

«BUS ADDRESS REGISTER.

FOUR PATTERNS ARE USED:

THE

GROWING 1,

;GROWING O AND SHIFTING 0.
BIT O IS ALSO LOADED BUT
. SHOULD ALWAYS COME BACK AS O

014402

SHIFTING 1,

STARS

SIRARANRRRRNRNAAAANNAARNAN
AN RN ARNAANANARNARRARNAAANNNARNRARRAANARRAS

014402

014406

C14406
014410
014410
01441«
014420
014422
014430
014436
014444
014452

014454
014454
014456
014460
014462

014464
014464
014466

012703

002264

BGNSEG

104004

011337
N0S737

000001
002234

023737
001404

BATEST:

002234
002260

165470
002234

002234
165474

002236
002236

2%:

104010

000012

#BEGPAT ,R3

EMT

($RSEG

MOV
TST
BEQ
BIC
MOV
MOV
(MP
BEQ

ERRDF

104462
000005

004772
010046

MOV

TRAP

1%:

.WORD
.WORD
. WORD
ESCAPE
EMT
.WORD

JGET START OF PATTERN LIST

;ttatSTART

SEGMENT xxwnn

(R3) ,GDDAT

;GET PATTERN TO SEND

2%
#8170,GDDAT

;NO,
JKEEP RLBA EVEN (UNIBUS)

T.CNTLR

GDDAT ,aRLBA
aRLBA ,BDDAT
GDDAT ,BDDAT

5.,EM6,ERR?
;SERCODE

EM6
ERRZ2
SEG

(+ESCAPE
10000%-.

JRL11?2?

;LOAD PATTERN TO BUS ADDRESS
;READ IT BACK
IS IT CORRECT?
. 1F SO, BRANCH

;DATA WRONG [N RLBA

J1F

/FL:LOE

SET LOOP,

ELSE EXIT

SEG

22-NOV~78

15:28

PAGE

F
.5
1-27

SEQ 0057

«*«TEST 6%+ - READ WRITE OF RLBA

»H

WINOD 000000 N N NWWNWVIWVNWVHAIN
N NN N
NOVONON
o
(032870 Yo Yo IV 1aS 1V, IV, 1V, IV, IV, IV TV, TV NIV, TUNTUNIV, U W SO O
o~
gvvwmagomwvv0vvvvmbwmagogwggmngmaoovmwombwwvvav»oomVOm

30A(1052)

b
D e
o
e
—

002472

— e

;BUMP FOR NEXT PATTERN

R3,#ENDPAT
BATEST

:CHECK FOR END
INOT END. BRANCH FOR NEXT

ENDSEG

100008
:

104005

ENDTST
L10026:

104001

BGNTST

014504

STARS

EMT

CSESEG

EMT

CSETST

**EST

.SBTTL

014504

;4xx*END OF SEGMENT %+

7%« ~ READ WRITE OF

TESTexwe

RLDA

;*x«*START CF

J1EST

;anxeEND OF

E AN

THAT WE

TEST#wae

A AR AN AR R R AR AN R R AR R RN ARR NN AR AR ARRRRRORNARN R AR

CAN WRITE/READ

THE

DISK ADDRESS REGISTER

JALL BIT POSITIONS ARE WRITTEN USING FOUR PATTERNS:

;GROWING 1, SHIFTING 1, GROWING O AND SHIFTING 0

014504

STARS

""""tttttttttttt**i*i*tt*ttt't*ttttt*tttktfitttttttt**t'tt*t*tkttt

] =D
d
]

)
b

b
—

B
D

104604

i
P

-—

002264

BGNSEG

DATEST:

011337
013777

002234
002234

165410

017737
023737
001404

165404
002234

002236
002236

d —d —d =D

)
e
e g
s

012703

#BEGPAT ,R3

EMT

C$BSEG

MOV
MOV

(R3) ,GDDAT
GDDAT ,aRLDA

JGET PATTERN
;LOAD PATTERN IN DA

MOV
(MP
BEQ

aRLDA ,BDDAT
GDDAT ,BDDAT
1%

JREAD PATTERN BA(CK
;IS IT CORRECT?
JBRANCH IF CORRECT

6..EM7 ERRZ

;WRONG DATA [N RLDA

TRAP

000006
005020
010046

¢:

104010

000012

005723
020327
001352

MOV

ERRDF

104462

.WORD
.WORD
. WORD
ESCAPE
EMT
.WORD
ST

002472

(MP
BNE

gSERCODE

EmM7
ERRZ2

104005

10000%:

ENDTST

Emr1

JSET UP POINTER TO PATTERN LIST
;xxx«START OF

SEGMENT*xx«

SEG
CSESCAPE
1C000s-.

JIF

(R3)+

JBUMP POINTER

DATEST

;NO, BRAN(CH BA(K

R3,#4ENDPAT

ENDSEG

g W

~—b

—t

s el

—

(R3)+

TST
cMP
BNE

014500
014500
014500
014502
014502
014502

005723
020327
00134¢

014470
014472
014476

s W W

—

] P

S S WS W

WS WS B

ASSEMBLY ROUTI NES
MACY11
CZRLAB.P11
22-NOV-78 15:21

(LESEG

/FL:LOE SET LOOFP,

ELSE EXIT SEG

;AT END OF PATTERNS?
Jowx*END OF

SEGMENT xwe«

senwwapND

TESTwwexe

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOv-78 15:21

014570
014570

22-NOV-78

15:28

6 5
PAGE 1-28

««TEST 7+~ - READ WRITE OF

L10025:

104001

EMT

RLDA

SEQ 0058

CSETST

e P R

)

SIS BRYRTERES
uaythD(xn*q0nfi\4\lbuu\4\/\'u"v-J<)$; ST
383 ?O
AT EBEIRSY

(3)

30A(1052)

«*TEST 8#x - B]S OF

RL(CS

01457/
014572

ggxggr

W
R
R
IO YL
I

— i d

§¢§;SPREVIOUS DATA PATTERN

014572

MAAALLLLASALASALS
LA LSS
Rs it l il
ittt il il
it
ld
)

014572

014576
014576
014600

014624
014632
014634
014642

014650

014656
014664

014666
014666
014670
014672

014674
014676
014676
014700

014702
014704
014710

b
b
)

—

prhar
gt Qi

POl
o O o
NNNN

014712
014712

lolelele

TEST#w#x

:TEST THAT WE CAN USE THE "BIS'' INSTRUCTION ON THE CONTROL
SAND STATUS REGISTER.
BITS 8,9 AND 6-1 ARE TESTED T0
:SET INDIVIDUALLY AS WELL AS COLLECTIVELY WITHOUT DESTROYING

— ad —d b b
d
d
D
b
d
D
d
—d
—

W
G
N
U

~NJ~ ~~nNohuroron) PONI
A AN A A AAANINININND
wn) WIANNIND) = 2 <~ a2 A WNN= NN
(N
2
~ N

;%%x*«START OF

::tQfifitfitfitifittttt*tfit*"t**ttltfifi**ttt*fi*tt!'*'tflttt*ttttttttttt

— d e d b

L N

.SBTTL

072703

002576

BGNSEG
"

104004

012777
011337
052737
051377
032777
001403
052737
017737

0642737
023737

001404

0002C0
002234

165322

002234

002236

#(CSPAT ,R3

EMT

($BSEG

MOv
MOV

#CRDY ,aRLC(CS
(R3) ,GDDAT

JINSURE GO IS THERE
JSET UP EXPECTED RLCS

BIS

(R3) ,aRLC(S

;BIT SET PATTERN IN RLCS

8IS

16527¢

002234
002236
002236
002234

MOV

104462
000007

8IS

#ERR'DERR,GDDAT

Mov

104010

000012

002674

cIF

99%

L10026:

JSBTTL

SET

THEN

;RACK

BIC
CMP
BEQ

#DRDY ,BDDAT
BDDAT ,GDDAT
2%

;READ RLCS TO CHECK 'BIS'’

ERRDF

7..FM61 ,ERR2

JWRONG DATA [N RLCS

.WORD
.WORD
.WORD
ESCAPE
EMT
.WORD

7
EM61
ERRZ
SEG
(SESCAPE

TS7T
(MP

(R3)+
#({SEND ,R3

;CLEAR OUT DRIVE READY
;DID BIS WORK?
;BRANCH [F OKAY

T$ERCODE

JIF

10000%-.

($ESEG

EMT

CSETST

##TEST Qas = BIJ

SET LOOP,

ELSE EXIT

;GET NEXT PATIERN

;AT END OF LIST

EMT

/FL:LOE

JBIT OR TLEARED OTHER BITY

;NC GO BACK FOR TEST OF
JNEXT

ENDSEG
ENDTST

ERROR BIT

SEXPECT IT ON THE READ

aRLCS,BDDAT

BNF

10000$:

SEGMENT#x«e»

. IN GDDAT

ADERR,aRLCS

TRAP

006515
010046

#CRDY ,GDDAT

817

BEQ
99% :

JGET BEGINNING OF LIST

;xexxSTART OF

R. (S

PATTERN

cnewxfEND OF

SEGMENTawex

suewenfEND OF

TESTwaws

SEG

ASSEMBLY ROUTINES

CZRLAB.P11i
1226

MACY11

22-NOV-78 15:
21

30A(1052)

22-NOv-78

014716

BGNTST

1229

014716

STARS

1230
1231
1232
1233

01477¢

1236

014716

(2)

1237
(3)
1238
1239
1260
1261
12642
1263
1264
1245
12646
12647
1248
}Sgg

014722
014722
014724
014724
014732
014740
0147644
014750
014756
014760
014766
014774
015002
015070

1251
(3)
(5)
(5)
(5)
1252
(3)
1;;%

015012
015012
015014
015016
015020
015022
015022
015024

1254

(015026

1257

015036

1255
1256

015030
015034

012703

002576

BGNSEG

104004
012777
012737
041337
041377
032777
001403
052737
017737
042737
023737
001404

001776
001776
002234
165160
040000

165176
002234

140000
165136
000001
002236

002234
002236
002236
002234

'$:

1465152
99%:

104462

000010
006576
010046

’%:

104010
000012
005723

020327
001333

(3)
1259
1260

015040

104007

ENDSEG

0000
:

ENDTST
£10027:

LSBTTL

015042

BGNTST

1265

015042

STARS

1206

1267

SEQ 0059
TESTeeen

RN NI RRRANRARANANRAAAANRAC RO AARA A RS

AN AN AN R AR RN N AR A AR R A AN NN AN R A AR NN AR NN AN NN

ANNARRN S

MOV

#CSPAT ,R3

EMT

($BSEG

MOV
MOV
BIC
BIC
BIT
BEQ
BIS
MOV
8IC
MP
BtQ

#1776,3RLCS
#1776,GDDAT
(R3),GDDAT
(R3) ,@8RLCS
#DERR,aRLCS
99%
#ERR!DERR,GDDAT
aRLCS,BDDAT
#DRDY ,BDDAT
BDDAT,GDDAT
2%

JSET ALL SETTABLE BITS
;SET UP EXPECT DATA IN
;GDDAT
;CLEAR BITS IN RLCS VIA "BIC"
;IF DRIVE ERROR BIT SET
SEXPECT IT SET WHEN WE
;READ IT BA(CK
sMOVE RLCS TO BDDAT FOR COMPARE
;CLEAR DRIVE READY
:DID "BIC'" WORK PROPERLY
;BRANCH IF OKAY

ERRDF
TRAP
.WORD
.WORD
.WORD
ESCAPE
EMT
.WORD

8. ,EM62.ERRZ
TSERCODE
8
EM62
ERR?
SEG
CS$ESCAPE
100008-.

JWRONG DATA [N RLC(S

TST

002674

}%gz
(2)

AR AN AN A AA A AN RA VAN R AN

104005

}Sg}

1-29

;***«START OF

STARS

015036
015036

015040
015040

JTEST THAT THE "BIC'" INSTRUCTION WILL WORK ON THE
;CONTROL AND STATUS REGISTER.
BITS 8-9 AND 6-1 ARE
JTESTED.

(3)
(3)

1258
(3)

PAGE

*«TEST 9«x -~ BIC OF RLCS

135;
(2)

15:28

(R3)+

(MP
BNE

R3,#(SEND
$

EMT

(SESEG

EM”

CSETST

««TEST

10+~ - BIS OF

;GET BEGINNING OF PATTERNS

s***«START OF

JIF

/FL:LOE

SEGMENT#xe«

SET LOOP,

ELSE

EXIT

SEG

sGET NEXT PATTERN

JAT END OF LIST
:NO, GO BACK WITH NEXT PATTERN
see**END OF

SEGMENTw#w«

so*v*END OF

TESTwwew

R.BA

seve*START OF

TESTweee

""t'.'tt!tt.tt't‘."tt.itt""t."tt't"'t.tttt.t"'.'tt.'t'tt.tt

JTEST THAT THE 'BI<"' INSTRUTTION WILL WORK ON THE BUS

;ADDRESS REGISTER.

BITS 15-0 ARE LOADED, ONLY BJTS 15-1

ASSEMBLY ROUTINES

CZRLAB.P11

MACY11

22-NOV~78 15:21

30A(1052)

1268

1269
1270
(2)

1271
1272
1273

1274
(3)
1275

015042
015046

015046

1282
1283

012703

002264

BGNSEG

104004
005077

°$:

1€5056

000001

002234

015100
015106

017737
023737

165026
002236

002236
002234

1286
(3)
(5)
(5)
(5)
1287

Q15116
015116
015120
015122
015124
015126

106462
000011
006661
010046

015126
015130

104010
000012

1289
1290

015132
015134

005723
020327

(3)
153&

1291
1292

»+TEST 10+« -~ BIS OF RLBA

011337
005737
001403
042737

}Sgfi

PAGE

015074

015114

015140
015142

1-30

SEQ 0060

FOUR PATTERNS ARE USED:

JGROWING O, AND SHIFTING O.
STARS

015042

1277
1278
1279
1280

1281

15:28

JARE EXPECTED BACK.

015050
015050
015054
015060
015064
015066

1276

22-NOV-78

051377

001404

(01343

002234
002260

165032

002472
ENDSEG

10000%:

;GET START OF
caewaSTART OF

#BEGPAT ,R3

EMT

($BSEG

aRLBA

:CLEAR 'BA"’

(R3).8RLBA

;BIS RLBA WITH PATTERN

Pt )

;BRANCH If

(R3) ,GDDAT
T.CNTLR
3s
#1,GDDAT

MOV
CMP

aRLBA BDDAT
8DDAT ,GDDAT

ERRDF
TRAP
. WORD
.WORD
.WORD
ESCAPE

9. .EM63,ERR?
T$ERCODE
9
EM63
ERRZ
SEG

;WRONG DATA

IN RL#A

JIF

SET LOOP,

TST
oy 2

(R3)+
R3,A#ENDPAT

JGET NEXT PATTERN
.DID WE COMPLETE LIST

EMT

C$ESEG

EMT

(SETST

EMT
.WORD

BNE

JSET EXPECTED
SRL1T
;NO
JBIT O CAN'T SET

JREAD 'RA'’
:DID RLBA LOAD PROPERLY?

CS$ESCAPE
10000%-.

/FL:LOE

YES

ELSE

1338

015746

BGNTST

1300

015746

STARS

015146

JTEST THAT THE ‘BIC'* INSTRUCTION WILL WORK ON THE BUS
JADDRESS REGISTER.
BITS 15-1 ARE TESTED WITH & PATTERNS
JGROWING 1, SHIFTING T, GROWING C AND SHIFTING O.
STARS

1046001

%sgg

1301
1302
1303
1304
2)

LSBTTL

senaefND OF

TESTewen

«=TEST 11« <« BI( OF RLAA

JoevaSTART OF

TESTerwne

R R

1307

015146

012703

(3)

015152

104004

1308

015152

002264

BCNSECG

MOV

#BEGPAT ,R3

EMY

($8SEG

JGET

START OF

;vveaSTART OF

)

1305

1306

EXIT SEG

.NO, GO BACK FOR NEXT,.
cennefEND OF SEGMENTwanx

015142
015142
015144
015144
C15144

ENDTST
L 10030:

T T

IN RLBA (UN]BUS)

(3)
(3)
1293
(3)
(3)
1294
1295

104005

T T T

LIST
SEGMENT *an«

MOV
TST
8EQ
BIC

BiS

SHIFTING 1,

MOV

BEQ

2%:

GROWING 1,

LIST

SEGMENTweee

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV-78 15:21

30A(1052)

22-NOV-78
15:28
PAGE 1-31
«+TEST 11#+ - BIC OF RLBA

1309
1313
1311
1312
1313
131,
1315

01515
015354
015162
015170
015174
015200
015206

1318

015216

(5)
(5)
(5)
1319

015220
015222

(3)
1§35

015226
015230

104010
000012

1321
1322
1323
1324
(3)
(3)
1325
(3)
(3)
1326
1327

015232
01523&
015040
015242
015042
015242
015244
015244
015244

005723
020327
001345

1%%?

015246

BGNTST

1332

015246

STARS

015246

:TEST THAT THE ‘BIS'* INSTRUCTION WILL WORK ON THE DISK ADDRESS
:REGISTER.
BITS 15-0 ARE TESTED WITH 4 PATTERNS, GROWING 1,
SSHIFTING 1, GROWING O, AND SHIFTING 0.
$TARS

}%}9
(3)

015214

015216

015224
015226

012777
012737
041337
061377
017737
023737

001404

177776
177776
002234
164732
164726
002236

164750
002234

002236
002234

1333
1334
1335
1336
(2)

MOV
MOV
BIC
BI(
MOV
CMP

#-2,3RLBA
#-2 . GDDAT
(R3),GDDAT
(R3) ,IRLBA
ARLAA,BDDAT
BDDAT . GDDAT

ERRDF

10.,EM64 ERR2

BEQ

106462

TRAP

000012
006742
010046

002472
ENDSEG
100008:

1704005

ENDTST
L10031:

104001

1%%3

(2)

18:

SEQ 0061

.SBTTL

TSERCODE

.WORD
.WORD
.WORD
ESCAPE

10
EM64

15T
CMP
BNE

(R3)+
R3,#ENDPAT
1%

EMT

($ESEG

EMT

C$ETST

EMT
.WORD

ERR2
SEG

C$ESCAPE
100008-.

;SET RLBA TO ALL 1'S (BIT 0=0)
$SET UP EXPECTED RESULTS
:IN GDDAT
:BIC RLBA
:READ RLBA
:BIC WORK OKAY?

:IF YES BRANCH

;WRONG DATA IN RLBA

;IF

/FL:LOE

SET LOOP,

ELSE EXIT

;GET NEXT PATTERN
THAVE WE COMPLETED L]ST
:NO, GO BACK FOR NEXT
iwax2END OF SEGMENT*w=«
;aexeEND OF

TESTewws

««TEST 12+« - BIS OF RLDA
;#*%*START OF

TESTwews

;.‘tltt‘..tfifi'tttt'ttfit't'ittfi..fi."'*fitt'fi..t‘t.it""fitfi.fi"""

""'t.'tttfifittfi'tfltflt'tt"'tt't..fi.ti.'fi'.tfi'fit't"'!lt.itttttt.tt

1337

1338
1339
1340
(3)
1341
1342
1343

015252
015254
015254
015260

005077
011337

164654
00223

1345
1346

015270
015276

017737
023737

164640
002236

1349

015306

1344

1%2;
(3)
(5)

015246
015252

015264
015364

015306
015316

SEG

012703

002264

BGNSEG

104004

051377
001404

104462
000013

164644

18:

002236
002234

MOV

#BEGPAT ,R3

EMT

($BSEG

CLR
MOV

aRLDA
(R3),GDDAT

;CLEAR 'DA"’
*SET EXPECTED

MOV
CMP

@RLDA,BDDAT
8DDAT . GDDAT

:READ RLDA
:1S RLDA CORRE(T

BIS
BEQ

(R3) ,aRLDA

ERRDF

11, ,EM6S,ERR2

TRAP
JWORD

T3ERCODE
11

;GET START OF
PxaxsSTART OF

LIST
SEGMENT
s» s

:BIS RLDA

:1F OKAY BRAN(H

;WRONG DATA [N RLDA

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOvV~-78 15:21

(S)
(5)
1350
(3)

015312
015314
015316
015316

007025
010046

015320

000012

1352
1353
1354
1355
(3)
(3)

015322
015324
015330
015332
015332
015332

005723
020327
001351

1§g%

1356
(3)
(3)
1357
1358

015334
015334
015334

30A(1052)

2%:

104010

002472
ENDSEG
10000%:

104005

ENDTST
L10032:

104001

;%28

22-NOV-78
15:28
PAGE 1-32
««TEST 12+« - BIS OF RLDA

LSRTTL

.WORD
.WORD
ESCAPE
EMT

.WORD

EM6S
ERRZ
SEG
CSESCAPE
10000%-.

TST
(MP
BNE

(R3)+
R3.,#ENDPAT
1%

EMT

C$ESEG

FMT

CSETST

SEQ 0067

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

JGET NEXT PATTERN
JHAVE WE FINISHED?
.NO GO BACK
;anxxEND OF SEGMENTxxww
sanxxEND OF

TESTrxxn

»«TEST 13+« - BIC OF RLDA

}%2}

015336

BGNTST

1363

015336

STARS

015336

;TEST THAT THE 'BIC'® INSTRUCTION WORKS ON THE DISK
;ADDRESS REGISTER.
ALL BITS ARE TESTED WITH FOUR
JPATTERNS: GROWING 1, SHIFTING 1, GROWING O AND SHIFTING O
STARS

(2)

1364
1365
1366
1367
(2)

1368
1369
1370
1371
(3)
1372
1373
1374
1375

015336
015342

""i’itktt*ttfiti*tt*‘fitttfiIfi'“'!ti’tfifittl’tfi"fiit.tfi"fittfiti'l’t"".

012703

1376
1377
1378
}ggg

1381
(3)
(5)
(5)
(5)

015406
015406
015410
015412
015414

104462
000014
007106
010046

(3)
1;3%

015416
015420

104010
000012

015422
015424
015430
015432
015432

005723
020327
001345

1384
1385
1386
1387
(3)

015416

TESTawx»

;"t*titt*t.ttttttiitttttitt'tfifitRififitit*ttt'tit"fi""'it"fi'tit'

015342
015344
015344
015352
015360
(C15364
015370
015376
015404

1382

;uxanaSTART OF

002264

BGNSEG

104004
012777
012737
041337

041377
017737
023737

001404

177777
177777
002234

164544
164540

002234

164562
(02234

1%:

MOV

#BEGPAT ,R3

EMT

C$BSEG

MOV
MOV
BIC

#-1,3RLDA
#-1,GDDAT
(R3) ,GDDAT

B8IC
MOV

002236
002236

BEQ

ERRDF
TRAP
.WORD
.WORD
.WORD

12. .EM66 ,ERR2
TSERCODE
12
EM66
ERRZ2

EMT
.WORD

(SCSCAPE
10000%-.

002472
ENDSEG
10000%:

ESCAPE

TST
(MP
BNE

LIST
SEGMENTaxwx

JSET RLDA TO ALL 1°'S
;SET EXPECTED DATA
JSET FXPECTED DATA

(R3) ,3RLDA
aRLDA ,BDDAT
GDDAT ,BDDAT
2%

CMP

2%:

:GET START OF
cxxxxSTART OF

J'BIC'" RLDA
READ RLDA

;DID 'BIC'' WORK?

:1F

IT DID BRANCH

;WRONG DATA [N RLDA

SEG

J1F /FL:LOE SET LOOP, ELSE EXIT SEG

(R3)+
R3,#ENDPAT
1%

JGET NEXT PATTERN
;DONE?
JNC GO BACK
;xsxxsfEND OF SEGMENT*xew

ASSEMBLY ROUTINES
MACY11
CZRLAB. P11
21
22-NOV-78 15:

015632
015434
015434
015434

30A(1052)

104005

22-NOv=78
15:28 PAGE 1-33
««TEST 13*+ - BIC OF RLDA
ENDTST

10400

LSBTTL
015436

BGNTST

015436

STARS

EMT

CSESEG

EMT

CSETST

SEQ 0063
sexxxEND OF

TEST#wex

*«TEST 14*x - BUS RESET OF RL(CS
sxxwxSTART OF

TESTaswx

;:ttfittt*ttt*tt*fifiti**tt*tfitfi*tfitfi*tfi*tfit**tttkfitttt*fitttfififitktit

;TEST THAT A BUS RESET WILL CLEAR THE PROPER BITS

;OF THE CONTROL AND STATUS REGISTER.

THOSE BITS ARE

;1F BIT 14 (DRIVE ERROR IS NOT SET).

BIT O (DRIVE READY)

JBITS 6~1,8,9,10,11,12,13,15.
.IS A DON'T CARE.
;14

(DRIVE

ERROR)

BIT 15 WILL CLEAR ONLY

IF AT THE START UP THIS TEST BIT

SET WE WILL

INSIST

THERE AFTER

;THE "RESET'' ALONG WITH BIT 15 (COMPOSITE ERROR).

§125;0 ARE NOT WRITEABLE.

015436

BITS

:;fittt*tttt*t*kttttt*t*tttitilfittttttttl*ttOttttttttttttfitttttttt

015436
015436
015442
015444
015452
015460

000377
000200
040000

002234
164442

140000

002234

000100

W)
— =
Pl af alal oy o

Ghsiry
G
G

VWAL
VNN
ALV
LV BV LV, 1V, LV, |

OO0O0O0

G
P
GG
it P
Qe Qi G
v

164456

1%:

2%:

015506

OOO0O0O0O0COO0

SETPR]

000340

164414

000001

002236

002236
002236
002234

000015
007171
010046

JWAIT IN CASE OF DRIVE ERROR

2%
aRLCS,BDDAT
#DRDY ,BDDAT

;
;READ RLCS
:CLEAR OUT DRDY - DON'~ (ARE

13. ,EM67 ,ERR?2

:WRONG DATA [N RLCS

TRAP

.WORD
.WORD
.WORD

B8DDAT ,GDDAT
3%
T$ERCODE

104001

L10034:

BGNTST

;DID INIT WORK
;YES, BRANCH

13
EM67
ERR?

ENDTST

LSBTTL

015546

C$RESET
RO

BNE
MOV
8IC

EMT
DEC

ERRDF

;PRIORITY TO SEVEN

#PR]107,R0O
C$SPR]
#377 ,’RLCS
;LOAD ALL RLCS LOADABLE BITS
#CRDY,GDDAT
;SETUP EXPECTED
#DERR ,aRL(S
;DRIVE ERR SET?
1%
JIF NOT DON'T EXPECT IT
#DERR'ERR,GDDAT
;IT'S SEI, INIT BETTER NOT (LR
#100,R0
;SET UP A WAIT LOOP
;BUS RESET

CMP
BEQ

104462

W#PRIO7

MOV
EMT
MOV
Mov
8IT
BEQ
BIS
MOV
BRESET

senanfND OF

EMT

TESTw:
«x

CSETST

»«TEST 15+« - BUS RESET OF RLBA
JenenSTART OF

TESTwnnn

ASSEMBLY ROUTINES
MACY11
CIRLAB.P1
22-N0OvV-78 15:21

015546

aTa¥ o ¥ o

015546

5
PAGE
1 34

15+« -~ BUS RESET OF

015570
015574
015574

015576
015604

0127:7
00573?
001403
052777
005037
104033

017737
001404

AR R AR AR NN AR AN AR

015616
015616
015616

A AN A AN AR AANA

177776
002260

164356

MOV

#-2,3RLBA

000001
002234

164342

BEQ
8IS
CLR

2%
#1,a3RLBA
GDDAT

EMT

CSRESET

164330

TST

2%:

002236

MOV

BEG

TRAP
.WORD

000016
007226
010046

1%:

104G01

JSBTTL

015620

BGNTST

015620

STARS

ARAA

1'S

JCLEAR EXPECTED DATA

. ISSUE BUS

INIT

aRLBA ,BDDAT

;READ RLBA

14.,EM70,ERR2

;WRONG DATA IN RLBA

;IF

CLEAR BRANCH

EM70
ERR?

ENDTST

L10035:

:NO

{2ERCODE

.WORD
.WORD

AARNARR RN

JRL11?2?

ERRDF

AN AR

;SET BA TO ALL

T.CNTLR

BRESET

104462

015616

THE BUS ADDRESS 1S LOADED WITH 177776

é?figsls EXPECTED TO BE ZERO AFTER THE RESET
N

015554
015560
015562

SEQ 0064

RLBA

THAT A BUS RESET WILL CLEAR THE ENTIRE

:BUS ADDRESS REGISTER.

F PRt P

SUFTHY W

:TEST

015546

—r b

*«TEST

15:28

TAR

22-NOV-78

$tt§ttttttttttttt*ttttt'ttttttttttttttt*tttttitttttt'ttttfittittt

o¥ o

b
comd

143
(2)

30A(1052)

Jx%x*xEND OF
EMT

TESTxwxx

CSETST

«*TEST

16%+ - BUS RESET OF

RLDA

;*x%«START OF TESTxxx»

:TEST

THAT A BUS RESET WILL CLEAR THE ENTIRE

AN N AR R AR

AR AR RN RN AR AR RARNARNANNNNRCARRRRNRANN
S

:DISK ADDRESS REGISTER.
THE DISK ADDRESS IS LOADED WITH 177777
g?figsls EXPECTED TO BE ZERO AFTEP THE RESET.

015620

:;ttttttfitttttttttfi*t*tti*'tttt*ttttttttfitttt*tttttt**t*ttttttltt

015620
015626
015632
015632
015684
015642
1470

015644
015644
015646
015650

012777
005037
104033

017737
001404

104462

000017
007263

177777

002234
164274

1646306

002236

MOV
CLR

#-1,3RLDA
GDDAT

MOV

aRLDA ,BDDAT

JREAD RLDA

15.,EM71,ERR2

;WRONG DATA [N RLDA

BRESET
EMT

BEQ

ERRDF

CSRESET

TRAP

T$ERCODE

.WORD

EM71

.WORD

;SET DA TO ALL 1°'S
sCLEAR EXPECTED
;ISSUE BUS INIT

;IF

CLEAR BRANCH

ASSEMBLY ROUTINES

CZRLAB.P11
(5)
1471
1472
1473
(3)
(3)
1474
1475
1476
1477

1478
1479

1480
2)

1481
1482
1483
1484
1485
1486

(2)

1487
1488
1489

1490
1491
1492
1493

1494
1495
1496

1497
1498
1499
1500
1501
1502
(3)
(5)
(5)

(5)

1503
(35
1504
1505
1506

1507
1508
1509
1510
1511
(3)
(5)
(5)
(5)
1512

MACY11

1
22-N0OV-78 15:

015652
015654
015654
015654
015654

30A(1052)

010046

22-NOV-78

15:28

PAGE
1 35

1%:

.WORD

ERRZ
;eexsEND OF

ENDTST

L10036:

104001

SEQ 0065

*#TEST 16+ - BUS RESET OF RLDA

.SBTTL
015656

BGNTST

015656

STARS

EMT

TESTwwnsx

CSETST

«%TEST 17+% -~ UNIQUENESS OF RLCS
sax*xxSTART OF

TESTw*wx

M ttitt*ttttttt*t*tttttttttttivt*tfitfitfit*fitt'tttttittttt'tt*ttttt

:TEST THE UNJQUENESS OF THE CONTROL AND STATUS
:REGISTER.
THE _RLBA AND RLDA ARE PRELOADED WITH
THE RLCS IS THEN
1177776 AND 177777 RESPECTIVELY.

;LOADED TO INSURE THAT NEITHER THE RLBA OR RLDA
;ARE MODIFIED BY THE WRITING OF THE RLCS.

015656

STARS

;:tt'tttt*ittfifit'tttfitt"'t'tttittttttitttittttttttt*tfiittittittt

015656

015664
015672
015700

012737
012777
012777
013777

000201
177776
177777
002204

002204

MOV
MOV
MOV
MOV

164240
164234
164222

;SET DRIVE AND CONTROLLER READY
;SET RLBA 1O ALL 1'S
;SET RLDA TO ALL 1'S

#DRDY
! CRDY ,LDCSR

#-2,aRLBA
#-1,3RLDA
LDCSR,aRLCS

JWRITE RLCS

;CHECK THAT RLBA REMAINED UNEFFECTED
015706

022777

177776

164216

cMP
BEQ

#-2,3RLBA
1%

015716
015724

012737
017737

177776
164202

002234
002236

MOV
MOV

#-2,GDDAT
aRLBA BDDAT

015732
(015732
015734

1046462

ERRDF

16. ,EM72 ,ERR?
TSERCODE
16

015714

001412

015736

000020
007320

015742
015742

104006

015740

TRAP

010046

1$:

CKLOOP

EM72
ERR2

C$CLP

;RLBA OKAY?

JYES, GO CHECK DA
;SET UP EXPECTED

JREAD RLBA

;CS MODIFIED BA

sCHECK IF /FL:LOE IS SET

015744
015752

022777
001412

177777

164162

#-1,3RLDA

JYES,

015754
015762

012737
017737

17 7777

002234
002236

#-1,GDDAT

sSET UP EXPECTED

17. ,EM73 ,ERR2
};ERCODE

:CS MODIFIED DA

015770
015770
015772
015774
015776
016000

1046462

164146

@R DA ,BDDAT

EM73
Enn2

;RLDA OKAY?

CONTINUE

AD DA

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV~-78 15:21

1513
1514
1515
(3)
(3)
1516
1517

016000
016000
016000

1520
1521

016002
016002

30A(1052)

ENDTST
L10037:

104001

}g}g

(2)

JOBTTL

(2)

1258

016002

CSETST

*«TEST 18x* - UNIQUENESS OF RLBA
;anaxSTART OF

TESTanws

002234
164112

140000

00223

1535

016034

012777

177777

164072

016026
016042

THE

'-.-ttttwtfittfitttttttttttttttttttttttt'tttttttttttttttttitttitttiti

000200
040000

013777

002234

005077

164064

164074

}ggg

99%:

MoV
BIT
BFQ
BIS

#CRDY ,GDDAT
#DERR,QRLCS
99%
#ERR.DERR,GDDAT

;CONTROLLER READY
:IF DRIVE ERROR IS
:SET THEN EXPECT IT
;SET WHEN WE READ IT.

MOV

#-1,3RLDA

:LOAD RLDA

MOV
CLR

GDDAT ,aRLC(S

3RLRA

:LOAD RLCS

;CLEAR RLBA

:CHECK IF RICS IS OkAY

1540
1541
1542
}gzz

016046
016054
016062
016070

017737
042737
023737
001404

1545
(3)
(5)
(5)
(5)
1546

016072
016072
016074
016076
016100
016102

104462
000022
007406
010046

016102

104006

;gzg

0163104

022777

%ggg

016112

001412

1552

016114

012737

1555
(3)
(5)
(5)
(5)

016130
016130
016132
016134
016136

106462
000023
007440
010046

}ggz

EMT

TESTwans

JRESPECTIVELY.
THE RLBA IS THEN WRITTEN TO INSURE
: THAT NEITHER THE RLCS OR RLDA ARE MODIFIED
,BY WRITING THE RLRA.
STARS

012737
032777
001403
052737

1§2;

JanxaEND OF

;TEST THE UNIQUENESS OF THE BUS ADDRESS REGISTER.
JRLCS AND RLDA ARE LOADED WITH XXX20X AND 177777

016002
016010
016016
016020

}2%9

SEQ 0066

'-.-ttt'ttttnttttttttt*ttttttttittttntitttttttttkttttitttt*tttttttt

1530
1531
1532
1533

1534

BGNTST
STARS

1522
1523

1524
1525
1526
1527

22-NOv-78
15:28
PAGE 1-36
«xTEST 17%* - UNTQUENESS OF RLCS

016122

017737

164056
000001
002236

002236
002236
002234

1%:

177777

164006

164022

002234

002236

MOV
BIC
CMP
BEQ

@RLCS,RDDAT
#DRDY,BDDAT
BDDAT,GDDAT
1%

:READ RLCS
: IGNORE DRIVE READY
:CS 0K?
;YES, GO CHECK DA

ERRDF
TRAP
.WORD
.WORD
.WORD
CKLOOP

18.,EM74,ERR2
TSERCODE
18
EM74
ERR?

:BA MODIFIED CS

EMT

C$CLP1

#-1,3R' DA

;1S RLDA OKAY?

BEQ

:IF OKAY BRANCH

MOV

#-1,GDDAT

JSET UP EXPECTED

ERRDF
TRAP
.WORD
.WORD
.WORD

19, ,EM7S5,ERR2
T$SERCODE
19
E'75
ERR?

:BA MODIFIED DA

MOV

@RLDA ,BDDAT

;CHECK

/FL:LOE

;READ RLDA

IS SET

ASSEMBLY ROUTINES
MACY11
CZRLAB. P11
22-NOv=-78 15:21

22-NOV-78

C .6
PAGE 1-37

15:28

*«TEST 18+ ~ UNJQUENESS OF RLBA

2%:

L10040:

10400°

LSBTTL
016142

BGNTST

016142

STARS
RN

SEQ 0067

;aanaEND OF TESTeees

ENDTST

EMT

CSETST

=«TEST 19++ - UNJQUENESS OF RLDA
sa**xSTART OF

TESTwewx

NN AR N AR AN NN AN N AR I A A AR ANRNNNRRNRNNNNANNNANARNAANONANNNNNAS

:TEST THE UNIQUENESS OF THE DISK ADDRESS REGISTER.
:AND RLBA ARE LOADED WITH XXX20X AND 177776

:RESPECTIVELY.

THE RLC(CS

THE RLDA IS THEN WRITTEN TO INSURE

s THAT NEITHER THE RLCS OR THE RLBA ARE MODIFIED

J
o

—d e b ed d

— d o

FEEFOERTLS

wvi AlVY
Ea ALY AV LV 1V ]

d d >

016140
016140
016140
016140

30A(1052)

;BY WRITING THE RLDA.

016142

STARS

016142
016150
016156
016160
016166
016174
016202

012°37
032777
001403

052737
013777

012777
005077

000200
040000

002234

140000

002234
163734
163730

002234

177776
163726

163752
99% :

MOV
BIT
BFQ
BIS
MOV

#CRDY ,GDDAT
#DERR,aRLCS
99%
N#ERR!DERR,GDDAT
GDDAT ,aRL(S

s CONTROLLER READY
;1F DRIVE ERROR SET
;s THEN EXPECT IT LATER

(LR

aRLDA

;CLEAR RLDA

MOV

#-2,aRLBA

;L0AD (S

;LOAD BA WITH ALL

1'S

;CHECK IF RLCS IS OkAY
016206
016214
016222
016230

017737

163716
000001
002234

002236
002236
002236

016232
016232
016234
016236
016240
016242
016242

MOV
BIC
cMP
BEQ

ERRDF

JREAD Rt (S
- IGNORE DRIVE READY
;RLCS OkAY?
;YES, THEN BRANCH

20.,EM76,ERRZ

;DA MODIFIED (S

TRAP

ESERCODE

.WORD
.WORD

EM76
ERR?

EMT

C$CLPI

.WORD

1%:

aRLCS,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT
1%

CKLOOP

JCHECK IF /FL:LOE 1S SET

016244
016252

022777
001412

177776

163660

(MP
BEQ

#-2,3RLBA
2%

016254
016262

012737
017737

177776

002234
002236

MOV

#-c,GDDAT

aRLBA ,BDDAT

JREAD R]LBA

ERRDF

21.,EM77,ERR2

;DA MODIFIED BA

.WORD
.WORD

21
E/*77

016270

016270
016272
016274
016276

104462

000025
007525
010046

163644

MOV
TRAP

.WORD

TSERCODE

ERR?

;1S RLBA OKAY?
JBRANCH IF OKAY
JSET UP EXPECTED

ASSEMBLY ROUTINES
MACY11
CZRLAB.PIN
22-NOV=-78 15:21

" OEMT

104001

SEQ 0068

TESTewws

CSETST

*«TEST 20%* - UNIQUENESS OF

016302

RLMP

;#%**START OF

016302

TESTawx#

STARS
RN

AR R

R AR R R AR RNN AN ENRRT ANRRNNNANRANRRNNNNNNRNNNRNRNRARR
NS

JTEST

THE UNIQUENESS OF

LRLMP

IS WRITTEN.

THE MULTI-PURPOSE

:WE WILL WRITE THE RLCS, RLBA, AND THE RLDA,
WE

;OF THE RLCS, RLBA,
STARS

016302

THEN GO BACK AN VERIFY

RLDA.

THEN THE

THE

CONTENTS

140000
002234
177776
177777
163562

000200
040000

WINIAN
1% [a¥] &f\)
~n)

012737
032777
001403
052737
013777
0127:7
012777
005677

N NNW
SO

016302
016310
016316
016320
016326
016334
016342
016350

=0
OO

""tttttttttttt*ttttt*tti'tt't*l'ttQt'i*tttfitkti*t*ttfi.t'tt'ttti"t

—_——
O
oD

3RERER &3ag

MOV

BIT

BEQ

.
99% :

BIS
MOV
MOV
MOV
CLR

#CRDY,GDDAT

#DERR,aRLCS

99%

HERR!DERR,GDDAT
GDDAT ,aRLCS
#-2,3RLBA
#-* ,aRLDA
aRLMP

. CONTROLLER READY
;1F DRIVE ERROR SET
;THE EXPECT IT LATER
sLOAD (S
;LOAD BA WITH ALL 1°'S
;LOAD RLDA
JWRITE RLMP

;CHECK IF RLCS IS OKAY
016354
016362

016370
016376

017737
042737
023737
001404

163550
000001
002234

002236
002236
002236

104467

WD
o )=
o OO
[y g
"\)O&

—

OO0

XXX 2R 2R 2%

OO
OO0

016406

QOO0

O VBN

N~ ~ AN

2O~

— el = b A N) D b2
AN
%OOO‘O‘O’\O‘O‘O‘O‘O"

*#TEST

;x%*%END OF

d b D
e
— rd o
— aed cdd o e
d
b d e d
—

1621

15:28
PAGE 1-38
19*+ ~ UNIQUENESS OF RLDA

22-NOV=78

016300

—

1599
160)
1601

30A(1052)

MoV
BIC
CMP
BEQ

aRLCS ,BDDAT
#DRDY ,BDDAT
GDDAT ,BDDAT
1%

ERRDF

201.,EM44 ERR?

TRAP

00031
006041
010046

1¢:

104006

T$ERCODE

.WORD
.WORD
.WORD

201
EM44
ERR?

EMT

C$CLP

(KLOOP

JREAD RIS
: IGNORE DRIVE READY
JRLCS OKAY?

;YES,

THEN BRANIH

;MP MODIFIED CS

;CHECK IF /FL:LOE IS SET

022777
001412

177776

163512

CMP
BEQ

4-2,aRLBA
c$

;IS RLBA OKAY?
;BRANCH IF OKAY

012737
017737

177776
163476

002234
002236

MOV

#-2,GDDAT

aRLBA ,BDDAT

JSET UTM EXPECTED
JREAD RLBA

211. ,EM4S ERP?

;JMP MODIFIED BA

106462

000323
006074

MOV

ERRDF
TRAP

.WORD
.WORD

T$SERCODE

¢
EM4S

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22~NOv-=-78 15:21

30A(1052)

(5)
1643

016444
016446

010046

16644

Q16450

022777

1647

016460

017737

1650
(3)
(5)
(5)
1é2%

016474
016474
016476
016500
016502

104462
(000324
006127

1652
1653

016504

016504
016504

ENDTST
. 10042:

(3)

1222

}223

1654
1655
(3)

1é§é

016446
016456

016466

016504

104006

001412

012737

2%:
177777

163456

163450

002236

177777

%ggg
1659
1660
1661
1662
1663
(2)

ERR?

(MP

#-1,3RLDA

:DISK ADDRESS OKkAY

BEQ

MOV

002234

SEQ 0069

.WORD
(KLOOP

EMT

010046

104001

22-NOV-78
15:28
PAGE 1-39
*«TEST 20%x - UNJQUENESS OF RLTMP

CsCLP
3%

JCHECK IF

/FL:LOE

JYES, CONTINUE

MOV

#-1,GDDAT

aRLDA ,BDDAT

;SET UP BAD

ERRDF
TRAP
LWORD
.WORD
.WORD

212. ,EML6,ERR2
T$ERCODE
21¢
EM46
ERRZ

;MP MODIFIED DA

JSET UP EXPECTED

Jxnr*fEND OF

EMT

TESTrwxx

CSETST

LSBTTL

#xTEST 271+ — NOOP FUNCTION(RL11 ONLY)

01650¢

BGNTST

Jx**xSTART OF

016506

STARS

TESTxanx

""*tt*l’tfittttfittt‘k*ttt't"i.‘*fit*'.tt*tttttttt*tfit‘tifitifi*ti"!t

1664

JTEST

1666
1667
1668

016506

JTIMEOUT OF 200 MILLISECS IS ALLOWED.
DRIVE O
JSELECTED SINCE THE DRIVE 1S NOT NECESSARY.
STARS

1669
1670
1671

016506

005737

002260

016514

004537

013014

1665

(2)

1672

s
1675

1676

016520

1677
1678
1é;é

016522
016526
016526

%2%?

016530

1682

01653

1683
(3)
1é§2

THAT NOOP WILL

FUNCTION.

WE WILL

ISSUE

NOOP AND WAIT FOR CONTROLLER READY TO SET.

016512

0716534
(01653
016534

IS SET

THE
IS ALWAYS

.'"ttttl’fi*t't*tt'tttt*'fi"'tttt'tfi*tlt*'t"t.i"..'*t'tt'fifit'ttttt

001410

000000

004537

013624

104006

004537

TST

99%

JSR

RS ,LDFUNC

NOOPG

2%:

012514

T.CNTLR

BEQ

JSR
CKLOOP
EMT

RS ,WT(RDY

JSR

RS, CHERR

($CLP

998:

104001

ENDTST
L10C43:

;RLV11??
JYES

SKIP

TEST

;ISSUE FUNCTION OF
;NOOP(0)

JWAIT FOR CONTROLLER READY HIGH
;CRECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;xnexfEND OF

EMT

(SETST

FOLLOWING WORD

FUNCTION

TESTwwnx
’

ASSEMBLY ROUTINES

CZRLAB.PIN

MACY11

22-NOV=78 15:21

30A(1052)

}ggg

22-NOV=78

15:28

PAGE

1-40

*«TEST 22** - TEST NOOP DOES NOTHING

.SBTTL

SEQ 0070

~*TEST 22+~ - TEST NOOP DOES NOTHING

122%

016536

BGNTST

1690

016536

STARS

016536

;TEST THAT ISSUING A NOOP FUNCTION DOES NOTHING.
THIS IS DONE BY WRITING
;THE RLBA, AND RLDA, READING THE RLMP AND MAKING SURE NOTHING CHANGES.
STARS

(2)

1691
1692
1693
(2)

1694

:;*t'tfitt*tttttttQttfit*t"'Qtttfl'**tt***t*fit***tt**fittti'ttt'tt'*t

: SRR RRA AR AR AR A AR AR A AR AN AR RN RRAN AR AR

1695

016536

005737

402260

1698
1699
1700

016544
016552
016560

012777
012777
005077

000001
000002
163352

1703
1704
1705
1706

016572
016576
016600
016604

004537
000000
004537

013014

016604

104006

1708
1709
(3)
1;?6

016606
016612
016612
016614

004537

1711

016616

017737

}ggg

};8%

1;8;

1712

016542

016564

001476

017737

023737

1715
(3)
(5)
(5)
1;?2

016634
016634
016636
016640
016642

104462
000312
005141
010046

1717

016644

104006

1719
1720
1721

016646
016654
016662

012737
017737
023737

1;?5

};g%

1724

(3)
(9)
(5)

1;3%
1726

(3)

016632

016670

016672

016672
016674
016676

016700

016702

163346

TST

163362
163352

002234

013624

012514

001404

163314

002234

002236

T.CNTLR

JRLV'1?2?

MOv
MOV
CLR

#1,3RLDA
#2,3RLBA
SRLMP

;LOAD DISK ADDRESS
;LOAD BUS ADDRESS

aRLMP,GDDAT

JREAD RLMP

JSR
NOOPO
JSR
CkLOOP

RS5,LDFUNC

s ISSUE

R5,WTCRDY

;WAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET

EMT

C$CLPT

JSR
ESCAPE
EMT

LWORD

RS, CHERR
TST
C$ESCAPE
L10044-.

MOV

aRLMP BDDAT

BEQ

ERRDF
TRAP
.WORD
.WORD
.WORD

000002
163252
002234

002234
002236
002236

(KLOOP

B E

MUV
MoV
(MP

#2,GDDAT
®RLBA,BDDAT
GDDAT ,BDDAT

ERRDF

203.,EM15,ERR?

.WORD

ERR?

FOLLOWING WORD

sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT TST

;READ RLMP

JRLMP OK?

JCHECK

/FL:LOE

SET

;SET UP EXP'D BA
JREAD BA
;BA 0OK?

JYES

T$ERCODE
203
EMI1S

CkLOOP

EMTY

FUNCTION OF

202. ,EM14 ERR?
T$ERCODE
202
EM14
ERR?

C$CLPT

TRAP
.WORD
.WORD

010046

GDDAT ,BDDAT

EMT

8EQ

104462
000313
005167

104006

(MP

1%:

RRANARAR AR AR R RAAARANARNR

BEQ

MOV

104010
000124

016624

};}2

J**xxSTART OF TESTwawe

cscLP?

JCHECK

/FL:LOE

ASSEMBLY ROUTINES
MACY11
CZRLAB P11
21
22-NOV-78 15:

VW WNINWWW

ISRt
v} S "t
N e(N

SO
DWN
WN—=O0

—
d
ad
—d e

T Y
e
s
S
R

~N NNNNNNAANNNNAAAANN

1727
1728
1729
1730
1731

016704
016712
016720
016726
016730
016730
016732
016734
016736

012737
017737
023737
001404

000001

163216

002234

30A(1052)

22-NOV-78

6 6
PAGE 1-41

*«TEST 22++ - TEST NOOP DOES NCTHING

002234

002236

#1,GDDAT

;SET UP EXP'D DA

cMP

GDDAT ,BDDAT

;DA OKAY

BEQ

ERRDF
TRAP

000314
005275
010046

.WORD
.WORD
.WORD

016740

3%:

016740
016740
016740

ENDTST
t 10044:

JSBTTL
016742

BGNTST

016742

STARS

SEQ 0071

MOV

104462

104001

15:28

aRLDA ,BDDAT

JREAD DA

204. ,EM16,ERR?
TSERCODE

204
EM16
ERRZ?

xnkxEND OF

EMT

TESTewex

CSETST

«#TEST 23«+ - TEST OF

INTERRUPT
sxnxwxSTART OF

TEST®xwe

""t.fil’fififitfi't‘ttttttfit*Qtitiitttttt'*fifitiQl*t'tttittttfitttttfl LA A

JCHECK THE INTERRUPT WITH A NOOP.
WE WILL SET UP THE
JINTERRUPT VECTOR, LOWER THE PSW TO ZERO AND ISSUE

;A NOOP.
THE INTERRUPT SERVICE ROUTINE WILL SET A
;FLAG UPON INTERRUPT AND RETURN IN LINE.
WE WAIT 200 MILLISECONDS

;LOOKING FOR THAT FLAG TO BE SET BEFORE CALLING [T
JAN ERROR.
IF THE INTERRUPT SENDS US TO ANOTHER
;VECTOR ADDRESS THEN THE ERROR HANDLER WILL REPORT

J"'TRAP TO XXXX FROM YYYY'' AND RETURN
TO DJAG SUP MONITOR.
é{gggRRUPT GOES TC ABOVE 100C WHO KNOWS WHAT WILL HAPPEN.

016742

THE

""tt'ttttfi'tttt*i‘tti!Qtti'ttttt't'tttfikttt.tii'ittt"fiQtt.'tittt

1760

1761

1762
1763
1764

1765

1767

(3
(5)

(5)

1768

016742
016746

005737
001426

002260

016750
016754
016754

005037

002202

012700

000000

004537
000100
004537
005737
001004

013014

104041

TST

99%

(LR

INTFLG

013624
002202

TST
BNE

EKRDF
TRAP

.wORD

002202

SETPR]
#PRIOO
MOV
#PR100,RO
EMT
($SPR]
JSR
RS, LDFUNC
NOOPQO INTEN
JSR
RS ,WTCRDY

104462

000026
005107
010016
005037

T.CNTLR

BEQ

. $:

INTFLG

2%
22.,EMI13 ERRO
gngCODE

.WORD

EMI13

INTFLG

WORD

ER"0

JCLEAR

INTERRUPT OCCRUANCE

JSET PSW TO O

FLAG

sISSUE FUNCTJON OF FOLLOWING WORD
JNOOP AND INTERRUPT ENABLE
JWAIT FOR CONTROLLER READY HIGH
sDID INTERRUPT OCCUR
. [r SO BRANCH

ASSEMBLY ROUTINES

C(ZRLAB.P11
1769

(3)

1;;?
1772
1773
1776
(3)
(3)
1775
1776

017016

01702C
017024
Q17024
017024
017024

MACY11 30A(1052) 22-NOV-78 '5:28 PAGE 1-43
H

22-NOvV=78 15:21
104006

004537

*oTEST 23«e ~ TEST OF
(KLOOP

EMTY

1212514

JSR

99%:
ENDTST
£ 10065:

1040C1

};;g

1781

017026

STARS

017026

1786
1787

017026

005737

002260

1790

017034

012737

000340

1793

017050

104004

1795

017052

005037

002202

1;3;

1;32

1796

(3)

s CHECK (ONTROLLER FOR ERRORS

seeneefND OF
Emr

IS SET

TESTawww

CSETST

P AN N R A AN NN TN R

TEST#waw

R AN N RN AN NN AN RN RN NN RN NN P ARNARANRNRARANRAS

STEST THAT PRIORITY GIVEN IS ACTUAL PRIORITY OF CONTROLLER.

1783
1784
1785

};gg

RS, CHERR

/FL:LOE

;oe«aSTART OF

BONTST

(2)

JCHECK IF

($CLPY

eoTEST 24ee = TEST PRIORITY BR LEVEL

017026

1782

SEQ 0072

LSBTTL

1;;3
2)

[NTERRUPT

017032
017042

017056

:THE BOARD WILL INTERRUPT.
SAND WORK DOWN TIL [T DOES
S1ARS
IR

001456

013737

002142

002234

B8tQ

T.CNTLR

JRLVITPT

MOV

#340 ,BDDAT

JSET UP

EMT

C$BSEG

MOv
BGNSEG
"%

(LR

SETPR]

8PRIOR,GUDAT

INTFLG

BDDAT

1;3;

017062

017056

013700

00223¢

MOV

BDDAT ,RC

1798

(17064

004537

(013014

JSR

RS ,LDFUNC

104041

EMT

WE KNOW

TRYING TO INTERRUPT AT

R AN RN P A RN PN NN RO AR NN NNA I AR AN N C NN NP ARRNARNENAN S

TST

(N223%¢

WE WILL START
INTERRUPT.

CARNNNRS

JYES, SKIP TEST
INJTIAL

GET GIVEN PRIORITY
;*eveSTART OF

SEGMENT
ww e«

;CLEAR

INTERRUPT OCCURRANCE

¢ ISSUE

FUNCTION OF

SSET PRIORITY

($SPR]

FOLLOWING WORD

.
ASSEMBLY ROUTINES
o
MACY11
CZRLAB.P11
22-NOV~78. ¢ : 21

?gg?

017070

000100

1802

O17072

004537

(3)

017076

104010

1803

1é8z

017100

000070

1805

012102

004537

1806
(3)

017106
017106

017112

023737

002236

1811

017122

005737

002202

1814
(3)
(5)
(5)

017130
017130
017132
017136

104462
000314
005243

1816
(3)
(3)
1817
1818
1819

017140
017140
017142
017144
017146
017152

104010
000014
000405
005737
001772

1822
(3)

017156
017156

}g;%

1é?§

}ggg

(3)
823

;ggtg

017126

017136

017154

017156
017160

017166

002012
001004

202234

000040

G02236

BDDAT,GDDAT

:SHOULD

INTFLG

:DID

’$

L 10046

LSBTTL

}g;}

017172

BGNTST

1833
183%

017172

STARS
A

/FL:LOE SET LOOP, ELSE EXIT

;NO, BRANCH

TST

INTERRUPT

INTERRUPT OCCUR

JYES, 0K

2C4. .EM17,ERR7
TSERCODE
204
EM17

ERR?7

SEG
. $E SCAPE
10000%~.
(s
INTFLG
2%

;IF

/FL:1OF

SET

LOOP,

ELSE

EXIT

S5EG

:DID INTERRUPT OCCUR
JNO, OK

:YES, ERROR

CSESEG
#40,5DDAT

ENDTST

104001

;IF

sannaEND OF SEGMENTe®ee

erL

017170

;g%g

EMT
SUR

4%:

(3)

C17170

L10046~.

;CHECK CONTROLLER FOR ERRORS

TST
C$ESCAPE

ENDSEG
T0000$:

6%:

1&3&

LWORD

B8R

017170

RS, CHERR

ESCAPE
EMT
.WORD
8R
TST
8EQ

1§

*IF /FL:LOE SET LOOP, ELSE EXIT TST

JSR

.WORD

002202

;WAIT FOR CONTROLLER READY HIGH

L10046~.

ERRDF
TRAP
LWORD
.WORD

0%:

TST

LWORD

1826

1827

CSESCAPE

BNE

000765

100331

EMT

8GE

010304

106005
162737

RS ,WICRDY

ESCAPE
EMT

104010

1808

JSR

ESCAPE

(12514

000060

SEQ 0073

NOOPO ! INTEN

713624

017110

017120

I
22-NOV-78
15:28
PAGE 2
«+TEST 24»~ - TEST PRIORITY BR LEVEL

1é8;

}g?g

017076

30A(1052)

SNEXT LEVEL

;enenfND OF TESTeens
EMT

CSETST

««TEST 25ex = GET STATUS FUNCTION
;eaeaSTART OF

TESTewes

AR 2222222022222
2220

JTEST GET STATUS FUNCTION.
THE GET STATUS FUNCTION WILL
JWORK IF DRIVE IS LOADED AND READY OR NOT.
THE RLDA
;1S LOADED WITH THE GET STATUS AND MARKER BITS (BITS 1,0)
JAND THE FUNCTION
IS ISSUED.
wE WAIT 200 MILL ISECONDS
%;ggsCONYROlLER RCADY.

VERIFY THAT NO ERRORS OCCUR.

ASSEMBLY ROUTINES

MACV}1
22-NOvV~-78 15:2

—~

NN NN
HN~ ~

000000
~

—_

— e —D b

e D ek e D d b

GRRRRIPRRPRPE
= OO0~
O
SN -

~nJ

CIRLAB.P1

30A(1052)

017172
017200
017204
017206

027727
004537

V00013
013014

004537

01362¢

017212

1064006

017214

004537

017212

017220
017220
017220

"‘,K’1l’

6
SEQ 0074

#GSBIT MK.DRST,aRLDA

RS.,LDFUNC

JSR
(KLOOP
EMT

RS ,WTICRDY

JSR

R5,CHERR

($CLPI

EM”

000002
013014

;u*aaSTART OF

INTFLG
#PR]00

MOV

#GSBIT!MK ,aRLDA ;SET UP DA

000340
00220,

OO0

TRAP

N
(o)

\J\J\JV\‘\\NJ\I\J\J\IV

b —
b oD
d =D
d
D
b
b
b

’$

012514

013624
000340

(KLOGP
EMT
(LR

000000

000003
013014

.WORD
.WORD
.WORD

JSR

002202

162606

#PR100,RO
C$SPR]

JSR
RS ,LDFUNC
GSTAT ! INTEN
JSR
RS ,WICRDY
#PR]0O7
SETPR]I
MOV
#PR107.RO
Emr
($SPR]
TST
INTFLG
BNE
23
ERRDF
28. ,EM30,ERRD

013624

SETPR]
MOV
EMT
MOV
JSR
GSTAT
JSR
SETPRI
MOV
EMT

TESTanwn

INTERRUPT = SHOULD GET AN INTERRUPT

(LR
SETPR]

MOV
EMT

162472

TESTwwnw

««TEST 26%+ - GET STATUS FUNCTION INTERRUPT

JCHECK GET STATUS UNDER

000000

STATUS

(SETST

BGNTST

002202

JGET

;WAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET

JuenwxfEND OF

1 10047:

104001

JSET GET STATUS AND MARKER BIT

JISSUE FUNCTION OF FOLLOWING WORD

;sCHECK CONTROLLER FOR ERRORS

ENDTST

LSRITL

OOO0OO00OOOOO0

(3)

JSR

’S:

oo~y o

GGGaEEBCGRRRERC
AR
N e e D)
N W =
N W)~
NW
4~
NN
W)
N

~I2XZ
~ 3@ ~NON

—a

1875

MOv

GSTAT

(VALY IV,

a0 00 30

—

s
—_
O
=
—

—_—

000000
——

1874

PAGE 2-1

v«TEST 25%+ - GET STATUS FUNCTION

162734

1859

1871

15:28

,'.'t..'Qt'.'t'Q..'.t""t‘Q'tt'.t.'...'t.!tt..t'ttttt'!'.tt"'.t"

1855

187C

22-NOV=78

JCLEAR INTERRUPT OCCURANCE
;PSW TO LEVEL O

cISSUE FUNCTIUN OF FOLLOWING WORD
;GET STATUS, INT ENABLE
JWAIT FOR CONTROLLER READY HIGH

;01D

INTERRUPT OCCUR

; YES-BRANCH

TSERCODE

28
EM30
ERRO

($CLPY

JCHECK

/FL:LOE

IS SET

QS5,(CHERR

JCHECK CONTROLLER FOR ERRORS

INTFLG

;CLEAR

INTERRUPT OCCURANCE

#PRIOO
;PSW TO LEVEL O
#PR]I00,RO
($5PR;
HGSBIT!MK
,aR. DA ;SET U° DA FOR GET STATUS COMMAND
RS,LDFUNC
JiSSUE FUNCTION OF FOLLOWING WORD
JGET STATUS ~ SHOULD NOT CAUSE AN INTERRUPT
RS ,WICRDY
JWAIT FOR CONTROLLER READY HIGH
#PRIQ7
#1107 ,RO
($SPR]

ASSEMBLY ROUTINES

CZRLAB.P11

1880
1881
1882
(3)
(5)
(5)
(5)
1883
(3)
}ggé

017346
017352
017354
017354
017356
017360
017362
017364
017364
017366

1886
(3)
(3)

017372
017372
017372

1888

MACY11

22-NOV-78 15:21

005737
001404

30A(1052)

3$:

212514
ENDTST
L10050:

104001

2222 ~ Sosoon
m/\ Sos

BESBETTBBRBRCB
TS

1%%%

1
1905
1906
1907
1908
1909
1910
(3)
1911
1912
19'3
(3)
(5)

LSBTTL
017374

BGNTST

017374

S1ARS

2-2

TST
B8EQ
ERRDF
TRAP
.WORD
.WORD
.WORD
(KLOOP
EMT
JSR

INTFLG
;DID INTERRUPT OCCUR
33
;NO -~ BRAN(CH (0OK)
281, ,EM30A,ERRO
TSERCODE
281
EM30A
ERRO
;CHECK IF /FL:LOE IS SET
C$CLPY
RS5,CHERR
sCHECK CCNTROLLER FOR ERRORS
JexxsEND OF

EMT

=#TES]

SEQ 0075

TEST*www

CSETST

27x+ - GET STATUS FUNCTION GENERATES OPI W/0 GS BIT
s*xx*START OF

7 CTwwnn

. lt'tttttttttttt.tttttt"'ti*tfifittttit't*t*tt*ttttitttttt‘tttt*t

:WE SET MARKER BUT NO GET STATUS BIT IN THE RLDA AND
;ISSUE A GET STATUS WE SHOULD RECIEVE AN OPI ERROR.
;VERIFY THAT CONTROLLER READY SETS AND CPI SETS

017374

STARS
.

SN A AR AR AN R AR A AR AR R AR N A AN IR R

017374
017402

017406
017410
017414
017422
017424
017432
017436
017436
017440
017446
017450
017450
017452

017454
017456
017460

1916

017460

1917
1918
1919

PAGE

SVERIFY THAT GET STATUS FUNCTION WILL NOT COMPLETE
:WITHOUT SENDING OUT THE GET STATUS BIT IN THE RLDA.

(5)
(5)
}g}g
(3)
(3)

°5:28

«#TEST 26%* - GET STATUS FUNCTION INTERRUPT

002202

104462
000431
005335
010016
104006
004537

22-NOv-78

017460
017460

012777
004537

000004
004537
032737
001405
012737
004537

104006
032737
001004
104462
000035
005431
010016

000001
013014
013624
074000

162532

MOV
JSR

(02162

003710
012514

012776

002000

002162

1%:

2%:

A#MK, aRLDA
R5.,LDFUNC

GSTAT
JSR
RS ,WTCRDY
BIT #74000,E.CS
BEQ
1%
MOV
#OPIERR,RESTMS
JSR
RS, CHERR
CKLOOP
EMT
C$CLPI
BIT
#OP] E.CS
BNE
2%
ERRDF
29, ,EM33 ERRO
TRAP
TSERCONE
.WORD
29

.WORD
.WORD

104001

.SBTTL

AT ANRR AR RARARRN AN CAANNNNNNR

;SET ONLY MARKER BIT!!
sISSUE FUNCTION OF FOLLOWING WORD
JGET STATUS
;WAIT FOR CONTROLLER READY HIGH
'

;IS OPl SET?
; YES=-BRANCH NO-CHECK TIMEOUT

EM33
ERRO

ENDTST

L 10057

AN RN AR

sxw*«END OF

EMI

CSETST

*=1EST 28~+ - OP] UNDER [NTEKRUPT

TESTwx=«

ASSEMBLY ROUTINES
MACY1
CZRLAB.P11
22-NOV-78 15:21
1920
1921
1922
(2)
1923
1924

1925
1926
1927

(2)

1928
1929
1930
(3)
(3)

LANINWWN
A NN NN NWNA N IS (N
~O
v N AN~ v
OO0 ToNCcnEWIuLOS

[

—

aed

‘O(INr\(hO(hO’\flV\fi“01?g" RRRRRRGREGG

30A(1052)

017462
017462

22-NOV-78

15:28

L .6
PAGE 2-3

*+TEST 28+~ - OP] UNDER

INTERRUPT

BGNTST

s*xx«START OF

QTARS
R

SEQ 0076

RN N

AR RN

R AR

TESTwwwax

AR AN R R AR RRARRRRR A RRN RN NN RAAN RN RN AR RS

:FORCE AN OP] ERROR UNDER INTERRUPT
*AN INTERRUPT WILL OCCUR FROM OPI.

TO VERIFY THAT
TKE OPI IS FORCED

:USING A GET STATUS WITHOUT THE GET STATUS BIT SET

:IN RLDA.
STARS

017462

;:t*t't*itfittfittitittfittt'tttttt*ttttttttfi*tt*ttttt*t*t*ttttttttt

017462
017462
017466
017470
017474
017502
017506
017510
017514
017514
017520
017522
017526

000000

005037
012777
004537
000104
004537

002202
000001
013014

012700

000340

MOV

005737
001004

002202

TST

104041

017530
017530
017532
017534
017536

000036
005046
010016

017540
017540

104006

017542
017550
017552
017560
017564
017564
017566
017574
017576
017576

SETPRI
MOV

012700

EMT

CLR

162432

MOV

JSR

104006

032737
001004

JSR
SETPRI

EMT

BNE

ERRDF

104462
000037
005431
010016

TRAP

2%:
074000

002162

003710
012514

012776

002000

AMK,aRLDA

RS ,LDFUNC

GSTAT!INTEN

013624

104462

032737
001405
012737
004537

#PRI100
#PR100,RO
C$SPRI
INTFLG

1%:

002162

C$SPRI

INTFLG

C($CLP1

BIT
BEQ
MOV
JSR

#74000,E.CS
1%
H#OPIERR ,RESTMS
RS, CHERR

EMT
BIT

C$CLPT
ggPI.E.CS

ERRDF

31.,EM33,ERRO

. WORD

104001

JSBTT.

;1S OP] SET?

s YES=-BRANCH NO-CHECK

EM33

ERRO

;tttnEND

" EMT

/FL:LOE IS SET

sCHECK 1F

;?ERCODE

ENDTST

L 10052

s INTERRUPT OCCUR

30.,EM11,ERRO

CKLOOP
EMT

.WORD

FOR CONTROLLER READY HIGH

T$ERCODE

30
EMN
ERRO

CKLOOP

;WAIT

#PR107,RO

.WORD
.WORD
.WORD

TRAP

3%:

RS ,WICRDY
#PRIO7

JSET ONLY MARKER BIT!!
2ISSUE FUNCTION OF FOLLOWING WORD
;GET STATUS

CSETST

««TEST 29+« - READ ‘i€ ADER FUNCTION

TESTawxne

TIMEOUT

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22~NOV-78 15:21

017610
017610

PAGE 2-4

««TEST 29%* - READ HEADER FUNCTION

SEQ 0077

;ttttSTART

TESTwxxx

$CHECK THAT READ HEADER WORKS, THAT WE CAN ISSUE
1T, GET READY BACK WITHOUT ANY ERRORS SETTING.
STARS

=
N

15:28

fit*tttttt*tttttfit*fittt't'tfitttttt**tfii*itttt*tttfi*tt*ttttt*tttt

017610

;:ttttttttttifittt'*t*tfitttt't*fititfiQtfittt*ttittitttttttitttttt*tt

—

)

D nd

22-NOv-~78

BGNTST
STARS

-—

§§§§§ SELLTE

1958
1959

30A(1052)

017610
017614
017616

004537
000010
004537

017622
017622

104006

017624

004537

017630
017630
017630

01304

JSR
RDHDR
JSR

013624
2%:

012514

RS,LDFUNC
R5,WTCRDY

CkLOOP
EMT

“$CLPI

JSR

R5,CHERR

;s JSSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH

;READY
JCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;uxwsEND OF

104001

EMT

TESTawas

CSETST

*«TEST 30%+« - READ HEADER FUNCTION INTERRUPT

017632

sx«xxSTART OF

017632

TESTw*xw

STARS
ttfittttfittfifittttktt*tfi'ttttt!ttttttt*t*k*ttttttt*ti*tfittttttttt

$CHECK THAT READ HEADER WILL GENERATE AN INTERRRUPT
SUPON COMPLETION WITHOUT ANY ERRORS SETTING
STARS

017632

;:tttfiittt*tt*ttttitttttt't'ifitttttttt*t!*tttttttttttttttfifiitfittt

000000

005027

002202
013014

104041

SETPRI
MOV
EMT
CLR

012700

000340

005737
001004

002202

017676
017700
017702
017702

002043
005553
010016
104006

#PRI0O
#PR100,RO
C$SPRI
INTFLG

JSR

RS, LDFUNC

JSR
SETPRI
MoV
EMT

RS ,WICRDY
#PRIQ7
107,R0
C$5PRI

BNE
ERRDF

2%
35, ,EM37,ERRO

.WORD
.WORD

35
EM37

RDHDR! INTEN

0136¢4

TST

104462

N
N
N N
S

012700

104041

o fetetete

SUGEH 39

017632
017632
017636
017640
017644
017650
017652
017656

TRAP

i ¥

.WORD

CKLOOP

EMT

INTFLG

TSERCODE

ERRO

C$CLPY

PSWTO O
;CLEAR INTERRUPT OCCURANCE
2 ISSUE FUNCTION OF FOLLOWING WORD

JREAD HEADER, INTR, ENA
JWAIT FOR CONTROLLER READY HIGH

; INTERRUPT HAPPEN

s YES=CONT INUE
.

JCHECK [F /FL:LOE IS SET

CZRLAB.P11

MACY11 30A(1052)
22-NOV-78 15:28 PAGE 2-5
*+TEST 30++ - READ HEADER FUNCTION INTERRUPT
21
22-NOV=-78 15:

ASSEMBLY ROUTINES

017704

017710
017710
017710

004537

012514

JSR

SEQ 0078

;CHECK CONTROLLER FOR ERRORS

RS5,CHERR

;axxEND OF TEST#ess

" EMT

104001

LSBTTL

CSETST

»«TEST 31xx - REPEATED RD HDRS YIELD SAME CYL AND HD

BONTST

017712

017;12

;ax2xSTART

TESTwanwn

STARS
P

;CHECKT THAT READ HEADERS WILL RELIABLY READ THE SAME
WE WILL READ HEADERS VERIFYING
sCYLINDER AND HEAD SELECT.

. THAT WE ALWAYS READ THE
STARS

017712

SAME CYLINDER AND HFAD SELECT.

""tt&ttttttt'tfitit'ttfifi'ttttttttttfi!tttttttttttkfifititttttt*tttttt

017712
017716
017722
017724
017730
017730
017732

012701
004537
000010
004537

017734
017740
017740
017742

004537

017744
017752
017760
017760
017762
017762
017766
017770
017774
017774
017776

013737
043737

020000
020004
020004
020006

004537

020010
020016
020024
020032

013737
043737
023737
001404

MOV

013624

JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
1ST

JSR
ESCAPE
EMT
.WORD

RS,CHERR

MOV
BIC

E.MP,GDDAT
SECMSK,GDDAT

EMT

($BSEG

JSR

RS,LDFUNC

;ISSUE FUNCTION OF FOLLOWING WORD

RS ,WICRDY
SEG

JWAIT FOR CONTROLLER READY HIGH

JSR

RDHDR

99% :

104010

000122
012514

104010
000112

002170
002206

002234
002234

104004

004537
000010
004537

;SET UP TO DO 100 RD HDR'S

000144
013014

2%:

013014
013624

97%:

104010
000054

012514

104610

000044

002170
002206
002234

BGNSEG

002236
002236
002236

RDHDR
JSR
ESCAPE
EMT
.WORD

#100. ,R1

RS, LDFUNC

(SESCAPE
L10055-.
TST

C$ESCAPE

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
JWAIT FOR CONTROLLER READY HIGH

;IF /FL:LOE SET LOOP, ELSE EXIT TST

sCHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT TST

L10055~.

C$ESCAPE

JREAD FIRST HEADER (ASSUME GOOD)
;MASK AWAY SECTOR BITS
;xxxxSTART OF

SEGMENT ==«

JIF /FL:LOE SET LOOP, ELSE EXIT SEG

1C000%-.

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG
CSESCAPE
10000%-~.

;CHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT SEG

MoV

E.MP,BDDAT
SECMSK ,BDDAT
ggfiAT,BDDAT

sREAD HEADER
JMASK AWAY SECTOR BITS
. 1S HEADER CORRECT

BIC
(MP
8EQ

ASSEMBLY ROUTINES

CZRLAB.P11

2041
2042
(3)
(5)
(5)
(5)

2043

020034

020034
020036
020040
020042

2044
262%

020044
020044

2046
2047
2048
(3)
(3)
2049

020046
020050
020052
020052
020052
020054

(3)
(3)

2050
2051
%82%
Sgéé

020054
020054

MACY11 30A(1052) 22-NOV-78 15:28 PAGE g-é

22-NOV-78 15:2i

*#TEST 31+« - REPEATED RD HDRS YIELD SAME (YL AND HD

ERRDF

104462
000044
005613
010162

TRAP
.WORD
.WORD
.WORD

4%:

104006
005301
001344

ENDSEG
100C0$:

104005

ENDTST

L 10055:

104001

JOSBTTL

36.,EM4T ERRS
TSERCODE
36
EM41
ERR4

CKLOOP
EMT

C$CLPT

DEC
BNE

R1
2%

EMT

C$ESEG

EMT

CSETST

JCONSTANT CYL & HS
JCHECK IF /FL:LOE

;PERFORM ALL READ HDR'S
;IF NOT GO BACK AND DO ANOTHER
saxxxEND OF SEGMENT*w#«
sxxnaEND OF

BGNTST

020056

STARS

2057
2058
2059
2060

020056

;CHECK THAT WE CAN READ THE HDCRC AFTER A
:READ HEADER AND THAT IT IS THE CORRECT CRf
.FOR THE HEADER.
STARS

2061
2062
2063
2064
2065
2066
2067

020056
020062
020066
020070
(020074

005037
004537
000010
004537

262%

C20076

000114

2069
2070
(3)
26;%

020100
020104
020104
020106

004537

2072
2073
2074
2075
2076
2077
2078
2079
2080
2081

020110
020116
020122
020124
020126
020130
020136
020144
020150
020152

013737
004537
000020
000000
000000
013737
013737
004537
000020
000000

2056
(2)

(2)

(3)

020074

TESTawen

++TEST 32+ - (HELK OF HEADER (RC

020056

IS SET

;***xSTART OF

TEST*xx«

""it*tt'*t*t't**fi't*t**t"tt*t.ttfittttttttfittttl’t*fifi*tfit'tttttttt

""tfitt'ttttktttfitt'tk.i't'tt'kfi*ttt*ttfitttfifitttfittfifitttit'*tt"i*

020126
013014
013624

104010

104010
000104

012514
°

002170
013372

002216
002172
013372

020124

020154
020152

2%:
3%:

($:

CLR
JSR
RDHDR
JSR
ESCAPE
EMT
.WORD

3%
RS5,LDFUNC

JSR
ESCAPE
EMT
.WORD

RS, CHERR
TST
(SESCAPE
L10056-.

sCHECK CONTROLLER FOR ERRORS
sIF /FL:LOE SET LOOP, ELSE EXIT TST

MOY
JSR
16.
.WORD
.WORD
MOV
MoV
JSR
16.
.WORD

E.MP,2%
RS.,SIMB(C

sREAD HEADER WORD
.GO CALCULATE CRC
;16 BITS
JHEADER GOES HERE
JSTART WITH 0 CRC

RS,WTCRDY
TST
C$ESCAPE
L10056-.

Q
0
CALB(C,5%
E.MP1,48
RS,SIMBCC
O

;ISSUE FUNCTION OF FOLLOWING WORD
JREAD HEADER
;WAIT FOR CONTROLLER READY HIGH
;JIF /FL:LOE SET LOOP, ELSE EXIT TST

JGET SECOND HALF

SEQ 0079

ASSEMBLY ROUTINES
MACY11
CZRLAB P11
22-NOV-78 15:21

2082
2083

020154
020156
020164
020172
020200

013737
013737
023737

020202
020202
020204
020206
020210
020212

" 04462
000045
005704
010162

020c12
020212
020212

000000

001404

002216
002174
002234

30A(1052)

22-NOV-78

c .7
PAGE 2-7

15:28

**TEST 32+ ~ CHECK OF HEADER (RC

.WORD

002234

MOV
MOV

002236
002236

cMwP

CALBCC,GDDAT
E.MP2 ,BDDAT

;STORE CALCULATED CRC AS GOOD
;THIRD READ OF DB GETS (RC

GDDAT ,BDDAT

8EQ

;1S CRC CORRECT?

ERRDF

6%:

;IF SO CONTINUE

37, ,EM42,ERRS

TRAP

;;ERCODE

.WORD
.WORD

EM4?
ERRé

ENDTST

L10056:

104001

LSBTTL

020214

BONTST

020214

STARS

SEQ 0080

seexxEND OF

TESTxwwn

C$ETST

EMT

#++TEST 33%+ - (HECK COMSECUTIVE HEADERS
;axxxSTART OF

AR AR R AR RN AR R AT RN

AR RN A AR

TESTwxnw

AANARA AR NANRAR AR

;CHECK THAT THE HEADERS ARE CONSECUTIVE.

ANNNC AR R

WE WILL DO

;40 (FORTY) READ HEADERS AND STORE EACH.
AFTER WE HAVE
JREAD THE FORTIETH HEADER WE WILL VERIFY THAT

JTHEY
. THAT

020214

STARS

CAME IN SEQUENTIAL, THAT O FOLLOWS
THERE WERE NO ERRORS.

AR R AN RA A RN AR IR

R AR

39,

RN R R R AN AR A NR R

NNRRARNRRN R

jela]

CWVQW‘\WN—‘O‘O@\‘O\\AJ\WN‘O%@\‘

ok —D —d
kb
b
b =D
b
d

i i Gl gl Qi

b
D
b
D ad
)
d
b
d
2 md
b

L L1 NT 01,1, T, U1, W], U], ¥ e P

LASLAS LS AN TN N1 ST NN TN TS TN ST AN TN [, W LN 1,8 1,8 1,81, 1,8 1, ¥

i NN

2106

020214

005037
012703
012701
012737
053737
013777

002240

CLR
MOV
MOV

MOV

000200
000200

2%:

1%:

161634
161636
161632
161626

003070
000050
002162

002162

006147

012776

BiS
MOV
BIC
BIT
BEQ
MOV
MOV
MoV
MOV
DEC
BNE
MoV
MOV
MOv

FIRST
#HDRBUF ,R3
#40. ,R1

#RDHDR
CRDY ,B.!
(S

#200,3RLCS

sDONE?

#40. ,R1

JHAVE WE READ FOURTY HEADERS
.GO BACK UNTIL FOURTY DONE
;GET LIST OF HEADERS
;CHECK FOURTY OF THEM

1%
@RLCS, (R3)+
JRLMP, (R3) +
SRLMP, (R3) +
aRLMP, (R3) +
R1
2%
#HDRBUF ,R3

(R3) ,E.CS

E.CS

MOV

rsT

FLAG

DRIVE ,B.CS
B.CS,a3RLCS

TST

BPL

sCLEAR FIRST READ DONE
. STORE HEADERS
;FOURTY HEADERS

99%

DMES ,RESTMS

(R3)+

LSRN

30A(1052)

002170
002172
002174
012514
020530

SNNV=200V00N

S-S
i
S
S-S

HB8DDWNW

002236
002240
000001
002236

020472
020474

043737

020502
020506

020506

002240
002234

002234
002236

002234

002206

002236

002234
002242
002244

002220
002220
002220

002206

002234

020502

7
D
15:28 PAGE 2-8
**TEST 33x+ ~ CHECK CONSECUTIVE HEADERS

22-NOV=-78

99%.

e -

DS IS TS TNT N T,NT,NT,NT N a8 1,1,V 1,0 1,0 n

ASSEMBLY ROUTINES
MACY}1
CZRLAB.P11
22-NOvV-78 15:2

3%:
(%

(R3)+,E.MP

MOV
MOV
MOV
JSR
JMP
TST
MOV
TST
BNE
MOV

(R3)+,E.MP1
(R3) +,E.MP2
R5,CHERR
7%
(R3)+

(R3) ,BDDAT

FIRST

4%
#1,FIRST
BDDAT ,GDDAT

MOV

B8R
INC
CMP
BEQ
BIT
BNE

;GET HEADER
;1S THIS FIRST READ?
;NO, BRANCH

;SET FIRST READ DONE FLAG
;SET UP NEXT READ EXPECTED

;GO SEE IF TEST 1S DONE

3$
ggCMSK,BDDAT

;1S NEW HEADER SEQUENTIAL?
JYES THEN BRANCH
;IS NEW HEADER ZERO?

GDDAT
BDDAT ,GDDAT

s INCREMENT EXP'D HEADER

GDDAT
, TEMP?
CYLMSK, TEMP?
ggSEC1,TEMP2

MOV
BIC
CMP
BEQ
BIC

;CHECK CONTROLLER FOR ERRORS

SECMSK ,GDDAT

;NO,

THEN ERROR GO REPORT

;YES, CHECK IF LAST HEADER WAS
;MAX ADDRESS, IF SO BRANCH
;STORE NEW DATA AS OLD

;AND PERFORM NEW RD HDR

JEXPECTING ZERO SECTOR

5%:

005037

002240

FIRST

000046
005742
010046

020520
020524
020526
020530
020530
020530
020530

062703
005301
00132

;ERROR WILL MAKE US M]SS
JNEXT SECTOR SEQUENTIALLY

38. ,EM43 ERR2
;gERCODE

104462

020510
020512
020514
020516
020516

EM43
ERR?Z

6%:

104006

# 6.R3

R1
99%

7%:

104001

sxwnefND

EMT
#+TEST

CLEAR FIRST FLAG

;HAVE WE DONE THIS ENOUGH
;NO, GO BACK DO IT AGAIN

END IST

L10057:

JSTART OVER;

JCHECK IF /FL:LOE IS SET

CS$CLP

000006

.SBTTL

020532
020532

SEQ 0081

TESTxwsax

CSETST
342+

SEEK

FUNCTION

BONTST
STARS

s*xxxSTART OF

TESTw#xx

';tt'.tttt"tttt.t*'t.t"""ttt'fitlktttfi*t*ti*ittitttttt'tttt'tQ

*CHECK THE SEEK FUNCTION RETURNS CONTROLLER READY
02053¢

;WITH NO ERRORS.
‘WE DO NOT (HECK
STARS

;"'...tt"tt"fit.

WE ISSUE A ONE TRACK IN WORD
THE RESULT FOR POSITION
MA

RRASERERR

SEEK.

NERREE RN

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOvV=-78 15:21

\'v
-onuéhgfingxrgéynuuugflagynauuanuuu»
O~ ~
NS
e AN = D

020532
020540
020544
020546
020552
020552
020556
020560
020560
020562
020566
020566
020566

012777
004537
000006
004537

013624

012700

000002

104026

000205
713014

*wTEST

SEQ 0082

H#BIT7!MK!SIGN, dRLDA
SET UP DA-DIFF=1,MARKER, TOWARDS
JISSUE FUNCTION OF FOLLOWING WORD
s SEEK

RS, LDFUNC

RS ,WTCRDY
#2

JWAIT

FOR

CONTROLLER READY HIGH

#2. RO
CSwim

2%:

sCHECK IF /FL:LOE IS SET

C$CLPT

012514

RS,CHERR

ENDTST
L 10060:

1040C°

D
b d

.SBTTL

020570

BONTST

020570

STARS

;CHECK CONTROLLER FOR ERRORS
;4ae*END OF

EMT

TEST*#we

CSETST

«~TEST 35+« - (CHECK DRIVE READY ON SEEK
JexxxSTART OF

TESTwenx

—m

)

15:28
PAGE 2-9
34x+ - SEEK FUNCTION

161374

104006

004537

22-NOV-78

d e

b e

oINS

D N

2177
2178
2179
2180
2181

30A(1052)

RSRRds

sttt

22223

SCHECK THE SEEK FUNCTION RETURNS DRIVE READY WITH

WE ISSUE A ONE TRACK INWARD SEEK.
;NO ERRORS.
JNOT CHECK THE RESULT FOR POSITION
STARS

020570

3222222

';t**t'ttt't'tt!ttttttttttt*ttt‘Qtt**'fitfitikfifii*tttitttttt'*itti*

020570
020576

012777
004537
000006
004537

000201
013014

161336

013624

104006

004537

012514

013560

10400¢

004537
020632
020632
020632

#3177
MK ,aRLDA
RS5,LDFUNC

:SET DA, MARKER, DIFF=1.
:éggge FUNCTION OF FOLLOWING WORD

R5.,WTCRDY

*WAIT FOR CONTROLLER READY HIGH

EMT

C$CLPT

JSR

RS, CHERR

EMT

($CLPI

JSR
CKLOOF
EMT

RS .,WTDRDY

JSR

RS, CHERR

(KLOOP

104006

004537

MOV
JSR
SEEK
JSR
CKLCOP

012514

C$CLPY

ENDTSY
104001

L10061:

SCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
JCHECK [F /FL:LOE IS SET
;WAIT FOR DRIVE

;(HECK CONTROLLER FOR ERRORS
JxenaEND

EMT

(SETST

READY

JCHECK JF /FL:LOE IS SET

TESTansxn

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV-78 15:21

30A(1052)

15:28
PAGE 2-10
*«TEST 36%* - SEEK FUNCTION INTERRUPT

22-NOV-78

.SBTTL

2
2223

020634

BGNTST

2226

020634

STARS

*«TEST

SEQ 0083

36%* -~ SEEK FUNCTION INTERRUPT

saxxxSTART OF

TESTwene

sCHECK THAT CONTROLLER READY RESETTING WHEN THE SEEK IS
JINITIATED CAUSES AN INTERRUFT BUT DRIVE READY WILL

2230

JNOT.

020634

STARS

WE ALSO MONITOR FOR ANY ERROR BITS SETTING.

".'tttttfifit!ttt*tttttQt"tttttttttttttttfittt*tttfi.'t'fit".tit'.fit'

005037

002202

012700

000000

012777
004537
000106
004537
000240
005737
001004

000205
013014

104041

002202

2248
2249

020710
(020714

004537

020714

104006

2251

020716

005037

002202

2254
2255
(3)

020722
020726
020726

004537

013560

2257

020730

006162
010016

2261
(3)

020744
020744

(5)

020746

1%:

2%:

104006

012514

104016

012700

000340

005737
001404

002202

104041

020742

161260

NOP
TST

BNE
ERRDF
TRAP

020700
020702
020704
020706
020706

2259

INTFLG
JSET PSW TO O
#PRIQ0O
#PR100,R0O
C$SPR]
MOV
#BIT7'MK.SIGN,aRLDA
;SET UP RLDA
JSR
RS, LDFUNC
sISSUE FUNCTION OF FOLLOWING WORD
SEEK. INTEN
;SEEK AND INTR. ENA.
RS,WTCRDY
JSR
;WAIT FOR CONTROLLER READY HIGH

013624

(5)
(5)
(5)
2245
(3)

(3)

CLR
SETPR]
MoV
EMT

104462
000052

*DID INTERRUPT OCCUR
“YES, GO CHECK DRDY

TSERCODE

LWORD
.WORD
.WORD

40
EM4(7
ERRO

EMT

C$C.P1

JSR

RS, CHERR

EMT

C$CLPT

CLR

INTFLG

;CLEAR INTERRUPT OCCURANCE

JSR

RS.,WIDRDY

:WAIT FOR DRIVE READY

EMT

CSCLPT

SETPRI
MOV
EMT

#PR107
#PR]I07,RO
C$SPR]

8EQ

ERRDF

42, ,EMS2,ERRQ

LWORD

CKLOOP

(KLOOP

5¢:

INTFLG

2%
40. ,EM47,ERRC

(KLOOP

TST

TRAP

INTFLG

T<SRCODE

JCHECK IF

/FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

“CHECK IF /FL:LOE

IS SET

;DID DRIVE READY CAUSE
JNO,

CONTINUE

INTERRUPT

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOV-78 15:21

(9)
(5)

2262
(3)
2263

2264
(3)
(3)
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
(2)
2275
2276
2277
2278
2279
2280
2281
2282
2283
(2)

020750
020752
020754
020754
020756
020756
020756

30A(1052)

006213
01001¢

22-NOV-78

G 7
PAGE 2-11

*«TEST 36+« - SEEK FUNCT] ON | NTERRUPT

6%:

104006

15:28

.WORD
.WORD
(KLOOP
EMT

EMS?2
ERRO

JCHECK [F /FL:LOE

C$CLPT

ENDTSTY

L10062:

1040C"

LSBTTL

0206766

BGNTST

020760

STARS

SEQ 0084

IS SET

JantvfEND OF TESTwenx
CSETST

tMT

««TEST 37« - TEST DIFFERENCE WORD TRANSMISSION
J*xx«START OF

TESTne»

;"tfifitl'*'tt't.fi*"*'fiifi"'t"tfi.Q.Qt'tfit*t'ttt"tttt'tt.tttt'tt'

;VERIFY THAT

s IRANSMITTED

THE DIFFERENCE WORD LOADS AND

CORRECTLY.

WILL

ISSUE

;DIFFERENCE WORD CONTAINING ALL OF

SEEKS WITH

THE

THE BIT PATTERNS FLOATING 1,

;GROWING 1, GROWING O AND SHITING 0.

THE SEEK WILL

;START FROM TRACK O EACH TIME AND WILL RETURN THERE

;EACH,

THUS BOTH DIRECTIONS FOR PATTERNS WILL BE CHECKED.

;READ HEADERS ARE USED TO VERIFY THE
é%fiSgRS ARE MONITORED AND REPORTED.

020760

SEEK CORRECTNESS.

.'"'t"tfi*i'*fifitt*fi.*t't.t'".Qt.t'fiti'.tfi'.t.ttfi"ttlttttttl'tttt

2284

2285
2286
2287
(3)
2288
2289
2290
2291
2292
(3)
2293
2294
2295
(2)
2296
2297

2298
2299

300
2301
2302

2303

S 353

rororONY

020760

012703

002474

BGNSEG
s

104004

004537
000010
004537

013014

013624

98%:

012514

013737
043737
001482

002170
002206

EMT

($BSEG

JSR

R5,LDF UNC

;ISSUE FUNCTION OF

JSR

RS ,WTCRDY

JWAIT FOR CONTROLLER READY HIGH

EMT

C$CLPT

JSR

RS5,CHERR

EMT

C$CLP

MOV

E.MP_ BDDAT

;READ HEADER

8fQ

99%

;IF

CKLOOP

(KLOOP

104006

021010
021016
021024

#SKLST,R3

RDHDR

104006

004537

Mov

002236
002236

BI(C

JNOT ON

SECMSK ,BDDAT

TRACK ZERO CALCULATF

.ON ZERO.

021026
021034
021042
021050

042737

013777
052777
004537

000120
002236
000001
073014

002236

161072

161064

BIC

MOV

BiS
JSk

JGET LIST OF DIFFERENCE WORDS
s****START OF SEGMENT#ww»

;READ HEADER

JCHECK

/FL:LOE

FOLLOWING WORD
IS SET

sCHECK CONTROLLER FOR ERRORS
JCHECK

;CLEAR OUt

/FL:LOE

IS SET

SECTOR

ON TRACK ZERO, H.S.

DIFFERENCE WORD AND PUT

T BACK

#RHHS ,BDDAT

;CLEAR OUT HEAD SELECT

¥ ,aRLDA
RS,LDFUNC

sSET MARKER BIT
2¢SSUE FUNCTION OF

BDDAT ,aRLDA

;PUT

ZERO, Ok

CYLINDER AS DIFFERENCE WORD

FOLLOWING wORD

ASSEMBLY ROUTINES

CZRLAB.P11

22-NOV-78 15:21

2308
2309
2310
2;?%

021054
021056
021062
021062

000006
004537

2312
2313
2;%2

021064
021070
021070

004537

2315
2316
2§?;

021072
02107€
021076

004537

2318
2319
2;36

021100
021104
021104

004537

2321
2322
2323
2324
2§3%

021106
021112
021114
021120
021120

004537
000010
004537

2326
2327
2§3§

021122
021126
021126

004537

2329
2330
2331
2332
Sggz

021130
021134
021142
021150
021156

005037
013737
013737
043737
001404

2335

021160

(3)
(5)
(5)
(5)

2336
2§§;

021160
021162
021164
021166

021170
021170

MACY11

30A(1052)

22-NOv-78

SEEK
JSR
CKLOOP
EMT

104006

012514

104006
013560

89%:

104006
012514

104006
013014
013624

9¢$:

104006
012514

104006

002250
002236
002236

104462
000053
006263
010110

104006

2338
2339
2340
2341
2342
2343
2;22

021172
021176
021204
021210
021212
021216
021216

011377
052777
004537
000006
004537

2345
2346
2;2;

021220
021224
021224

004537

2348
239
(3)

021226
021232
021232

004537

160736
000005
013014

160730

R5,WTCRDY
CSCLPT

JSR
CKLOOP
EMT

RS5,CHERR

JSR
{KLOOP
EMT

R5,WIDRDY

JSR
CKLOOP
EMT

RS, CHERR

JSR
RDHDR
JSR
CKLOOP
EMT

R5,LDFUNC

JSR
(KLOOP
EMT

RS, CHERR

CLR
MOV
MOV
BIC
BEQ

GDDAT
BDDAT , DWORD
E.MP,BDDAT
SECMSK ,BDDAT
5%

ERRDF

43, ,EMS4,ERR3

TRAP
.WORD
.WORD
.WORD

C$CLPT

($CLP

CSCLPY

RS ,WTCRDY
8CLP

CS$CLPY

T$ERCODE
43
EM54
ERR3

CKLOOP
EMT

99% :

MOV
BIS
JSR
SEEK
JSR
(KLOOF
EMT

(R3) ,aRLDA
#SIGN!MK ,@RLDA
R5,LDFUNC

JSR
CKLOOP
EMT

R5,CHERR

JSR
(KLOOP
EMT

RS,WTDRDY

104006

012514

104006

5%:

013€24

013560

PAGE 2-12

««TEST 37%+ ~ TEST DIFFERENCE WORD TRANSMISSION

013624

002234
002236
00217C
002206

15:28

B7%:

C$CLPY

RS.,WTCRDY

CS$CLPY

CSCLPY

($CLPI

SEQ 0085

s SEEK
JWAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;WAIT FOR DRIVE READY
JCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;ISSUt FUNCTION OF FOLLOWING WORD
;READ HEADER
JWAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;CLEAR EXPECTED
;SAVE DIFFERENCE WORD
JREAD HEADER
JMASK OUT SECTOR BITS
;BRANCH IF ON ZERO TRACK

JCHECK

/FL:LOE

IS SET

;GET DIFFERENCE WORD
;SET SIGN (TOWARDS SPINDLE) AND MARKER
;ISSUE FUNCTION OF FOLLOWING WORD
;SEEK
JWAIT FOR CONTROLLER READY HIGH
sCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE 1S SET
JWAIT FOR DRIVE READY
sCHECK IF /FL:LOE IS SET

ASSEMBLY ROUTINES
MACY11
CZRLAB.PIN
22~NOv-~78 15:21

NN
P
oS BEERUEEHT

2381

021234
021240
021240

004537

021242
021246

004537

013014

021250
021254
021254

004537

013624

021256
021262
021262
021264

004537

021266
021272
021276
021304
021312
021320

011337
011337
013737
043737
023737
001404

30A(1052)

22-NOV=78

012514

104010

000054
006263
010110

021334
021336
021342
021344

005723
020327
001402
000137

002236
002236
002236

8%:

104462

9% :

104006

JISSUE FUNCTION OF FOLLOWING WORD

JSR

RS ,WTCRDY

JWAIT FOR CONTROLLER READY HIGH

EMT

CSCLP

JSR
t SCAPE

RS,CHERR
SEG

. WORD

100008~.

MOV
MOV
MOV
BIC
CMP

ENDTST

L 10063:

LSBTTL

021354

BGNTST

021354

STARS

;CHECK CONTROLLER FOR ERRORS
JCHECK

/FL:LOE

IS SET

JREAD HEADER
JCHECK

/FL:LOE

IS SET

JCHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT SEG

CS$ESCAPE

(R3) ,GDDAT
(R3) ,DWORD
E.MP BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT

BEQ

ERRDF

44 . ,EMS4 ,ERRY

. WORD
. WORD
.WORD
CKLOOP
EMT

TAA
EMS4
ERR3

JGET EXPECTED CYLINDER
JSEYT UP DIFFERENCE FOR SEEK
;READ HEADER FROM RLMP
cCLEAR QUT SECTOR BITS
;DID SEEK CO TO THE RIGHT
cTRACK,

SO,

GO GET NEXT

T$ERCODE

cCHECK

CSCLPT
(R3)+

CMP

R3,4SKENC

JMP

BEQ

020766

ENDSEG
10000%:

104001

RS.,LDFUNC

TST

002574

021350
021350

104005

JSR

TRAP

10%:

021352
021352
021352

CSCLPT

EMT

021350

EMT

CKLOOP

00064

021322
021322
021324
021326
021330
021332
021332

RS5,CHERR

RDHDR

012514

SEQ 0086

JSR

CKLOOP

104006

002c 34
00225C
002170
002206
0022%%

PAGE 2-13

x«TEST 37«% ~ TEST DIFFERENCE WORD TRANSMISSION

104006

000010

15:28

10%

EMT

CSESEG

EMT

CSETST

/FL:LOE

IS SET

;BUMP PATTERN

;DID WE DO ALL PATTERNS?

cYES,

GO TO NEXT TEST

JNO, GO BACK WITH NEXT PATTERN

sexaxEND OF

SEGMENTwens

sxnewfEND OF

TESTawax

«+TEST 38«+ - VERIFY HEAD SELECT O VIA RD HDR

SINKARNARNNNANIRARRN

;exexSTART OF

AR AP R

AR R ARG

N AN N AR AN NN ANNA

“THECK THAT WE (AN SELECT HEAD SELECT ZERO.

TESTwenn

ONEN N AN RO NN RINNS

ISSUE

ASSEMBLY ROUTINES

CZRLAB.P1

2392
2393

(2)
2394
2395
2396
2397
2398
2399

2600
2401
2402
(3)
2403
2604
2605
(3)
2406
2407
2408
(3)
26409
2610
2e
(3)

21
22-NOV~78 15:

021354
021362

012777

005037

004537
000096
004537

021416
021422
021422

004537

004537
000010
004537

(3)

021424
021430
021432
021436
021436

004537

(3)

021440
021444
021444
021446
021450
021456
021464
021472

013737
042737
023737
001404

2429
26421
2422

2623

PAGE 2-14

=«TEST 38++ - VERIFY HEAD SELECT O VIA RD HDR

00000 1

002234

160552

998 :

MOV

(LR

2%:

01304
013624

104006

004537

2617
2418
2619
(3)

15:28

SEQ 0087

.'.'Qt..ttt.ttt'.t'tt.itfii"'it.ttitttltQt....t't'tfitt'.ht"ttt.tt'

021410
021414
021414

2415
2416

22-NOV=78

é?isg TO HEAD SELECT O AND VERIFY WITH READ HEADER.

004537

2614

30A(1052)

021354

0214602
0214606
021406

2612
26413

MACY11

021474
021474
021476
021500
021502
021504

021504
021504
021504

012514

013560

89%:

104006

012514

104006

013014
013624

GéS:

104006

072514

104010

000036

002170
177677
002234

002236
002236
002236

000055
006322
010162

104001

:égggf FUNCTION OF FOLLOWING WORD

R5,WTCRDY

‘WAIT FOR CONTROLLER READY HIGH

JSR

RS, CHERR

EMT

“$CLP1

JSR

RS.WTDRDY

EMT

cscL”

JSR
(kLOOP

RS, CHERR

Emr

C$CLPT

JSR
RDHDR
JSR
CKLOOP

RS ,LDFUNC

EMT

CSCLPY

JSR
ESCAPE
EMT
.WORD

?ngHERR

MOV

E.MP BDDAT
4177677 ,8DDAT
ggDAT.BDDAT

(KLOOP

ENDTST
:
L1064

OBITL

C$CLPT

R5.WTCRDY

CSESCAPE

SCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;CHECK
;WAIT

45. ,EMS5 ,ERR4

. WORD
.WORD
. WORD

EMSS

FOR DRIVE

*«TFEST

IS SET

READY

JCHECK IF /FL:LOE IS SET
. CHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;ISSUE FUNCTION OF FOLLOWING WORD

;READ HEADER

;WAIT FOR CONTROLLER READY HIGH

JCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
JIF /FL:LOE SET LOOP, ELSE EXIT TST

JREAD HEADER FOR HEAD

JMASK ONLY HEAD SELEC(CT
s COMPARE HEAD SELECTS
. IF

EQUAL

CONTINUE

ZgERCODE
ERR4

‘--tttE‘\JD

EMT

/FL:LOE

L10064~.

ERRDF
TRAP

5¢:

JLOAD HS=0 INTO RLDA

RS, LDFUNC

8I(
(MP
B8EQ

104462

sSET MARKER [N RLDA
JSET EXPECTED

JSR
SEEK
JSR
(KLOOP
EMT
(kLOOP

104006

#MK ,aRLDA
GDDAT

TESTxaex

VIA RD HDR

CSETST
3G

<~ \ERIFY

HEAD

SELECT

ASSEMBLY ROUTINES

C(ZRLAB.P11

MACY11

22~NOV-78 15:21

30A(1052)

22-NOV-78

02150¢

BOGNTST

2437

021506

STARS

)
2438

2439
24640
(2)

2641
2642
2643
2444
2445
2446
2647
24648
(3)
2649
2450
2451
(3)
2452
2453
2454
(3)
2455
2456
2457
(3)

K 7
PAGE 2-15

«*TEST 39+« ~ VERIFY HEAD SELECT 1

2434
24635

24636

15:28

VIA RD HDR

JeanaSTART

SEQ 0088
TESTwannn

':t'tt..!'t'.tl'tfittfitt't."t.'.'ttttt"fi*"."'fi'i'..Q""'fittt'

"CHECK THAT WE CAN SELECT HEAD SELECT ONE.

ISSUE

*SEEK TO HEAD SELECT 1 ANC VERIFY WITH READ HEADER.

021506

STARS

;;t'Qt't.ttfi.'.'tfit..lttti"Q'Q.tQ.!tt..fi..fi.itttttttfit"..t.'it'

021506
021514
021522
021526
021530
021534
021534

012777
052777
004537
000006
004537

021536
021542
021542

004537

021544
021550
021550

004537

021552
021556

004537

021556

104006

021560
021564
021566
021572
021572

004537
000010
004537

021574
021600
021600
021602

004537

021604

013737
042737
012737
023737
001404

021612
021620
021626
021634

021636

000001
000020
013014

160420

160412

99% .

’%:

013624

104006

012514

104006

013560

89%:

104006

012514

013014

013624

104006

012514

104010

000044

002179
177677

000100
002234

002236
002236
002234
002236

000056
004322
010162

SWAIT FOR CONTROLLER READY HIGH

RS, CHERR

JSR
LKLOOP
EMT

R5,WTDRDY

JSR
CKLOOP

RS, CHERR

EMT

($CLPT

JSR
RDHDR

R5,LDFUNC

C$CLP

C$CLPY

SCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK [F /FL:LOE IS SET
JWAIT FOR DRIVE CLEAR
;CHECK IF /FL:LOE 1S SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
sISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER

JSR
CKLOOP
EMT

R5,WTCRDY

JSR
ESCAPE
EMT
.WORD

RS, CHERR
TST

JIF

MOV

E.MP _BDDAT
#177677 ,BDDAT

JREAD HEADER
sMASK FOR H.S.
JSET EXPECTED
;CORRECT HEAD

(MP
BEQ

ERRDF
TRAP

ENDTST

RS ,WTCRDY

JSR
KLOOP
M7

MOV

RS5.,LDFUNC

;SET MARKER IN RLDA
*LOAD HS=1 INTO RLDA
:éggg& FUNCTION OF FOLLOWING WORD

#MK ,aRLDA

BIt

104462

#DAHS ,aRLDA

MOV
BIS
JSR
SEEK
+SR
(KLOOP
EMT

.WORD
.WORD
.WORD

C$CLPI

($ESCAPE
L10065-.

#RHHS ,GDDAT

ggDAT.BDDAT

;sWAIT

FOR CONTROLLER READY HIGH

JCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
/FL:LOE

JYES,

SET LOOP,

CONTINUE

46. ,EMSS ERRG
TZERCODE

EMSS
ERRS

,'""YN[)

YE(;YttQQ

ELSE EXIT

TST

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-N0OV-78 15:21

(3)
(3)
2477
2478
2479
2480
2481
2482
2483
(2)
2484

021646
021646

30A(1052)

L10065:

104001

.SBTTL

021650

BONTST

02165C

STARS

N
~ OO0 NN B

A LA IASTAS
AN TAS [y ¥)

A ANUNWANIAVNIN
A AW

SEQ 0089

CSETST

*«TEST 40*+* - VERIFY HEAD SELECT O VIA GET STATUS
s*xx«START OF

TESTwwwx

:VERIFY WITH GET STATUS

021650

STARS

SRR AR AR R AN RN AR AR AN AN NN RN A RANRANRRRRARRN RN R R RN R AR NAR

021650

012777

000001

021656

005037
004537
000006
004537

002234
013014

021674

104006

021676
021702
021702

004537

021704

004537

160256

2%:
3%:

013624

012514

104006

013560

104006

021712
021716
021716

004537

021720

012777
004537

012514

104006

000004
004537

W mpd_a_ha-a_NNLN_hd

EMT

VIA RD HDR

:CHECK THAT WE CAN READ BACK HEAD SELECT 0 WITH
:A GET STATUS FUNCTION.
SELECT H.S. 0 WITH A SEEK

021710
021710

2511

. ltt'tttttt*tfitttfi*tfittt'tttttttitkitttttttttfittitttttt*tttttttfi

2485

2486
2487
(2)
2488

15:28 PAGE 2-16
*«TEST 3G+« - VERIFY HEAD SELECT 1

22-NOvV-78

021740

104006

021742
021746
021746
021750

004537

021752
021760
021766
021774

013737
042737
023737
001404

021776
021776

104462

000003
013014

160206

013624

104010

000036

177677

00223«

#MK,aRLDA

CLR
JSR

GDDAT
R5,LDFUNC

SEEK
JSR
CKLOOP
EMT

002236
002236
002236

RS ,WTCRDY

C$CLPT

JSR
CKLOOP
EMT

R5,CHERR

JSR
CkLOOP
EMT

R5.WIDRDY

JSR
CKLOOP
EMT

RS, CHERR

MOV

C$CLPY

C$CLP

C$CLP
#GSB]T .MK,aRLDA

;SET MARKER IN RLDA
;LOAD HS=0 INTO RLDA
;SET UP EXP'D
:égggf FUNCTION OF FOLLOWING WORD
;JWAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR cRRORS
sCHECK IF /FL:LOE IS SET
JWAIT FOR DRIVE READY

;sCHECK

/FL:LOE

IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
JSET UP FOR GET STATUS IN DA
sISSUE FUNCTION OF FOLLOWING WORD

JSR
GSTAT
JSR

R5,LDFUNC

EMT

C$CLPT

JSR
E SCAPE
EMT
.WORD

R5,CHERR
TST
C$ESCAPE

sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT 7ST

MOV
BI(
CMP
BfQ

E.MP BDDAT
4177677 ,BDDAT
ggDAT,BDDAT

;READ STATUS FOR HEAD SELECT BIT
;LEAVE ONLY H.S. BIT
;1S HEAD SELECT CORRECT?

ERRDF

47, EM56,ERRS

CKLOGP

012514

002170

MOV

AN AR RN

TRAP

RS .,WTCRDY

;GET STATUS

;WAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET

L10066-.

T$SERCODE

JYES,

CONTINUE

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOV-78 15:21

(5)

022000
022002

30A(1052)

000057
006355
010162

22-NOV=78

15:28

m 7
PAGE 2-17

**TEST 40** -~ VERIFY HEAD SELECT O VIA GET STATUS

.WORD
.WORD
.WORD

6%:

EMS56

ERR4

ENDTST

022006

L10066:

104001

.SBTTL

2528

022010

BGNTST

2530

022010

STARS
SRR

2534

022010

2537
2538
2539
2540
2541
2542
2543

022010
022016
022024
022032
022036
022040
022044

012777
052777
012737
004537

000001
000020
000100
013014

004537

013624

022044

104006

2545
2546

022046
022052

004537

(3)

2548
2549
(3)

000006

022052

104006

022054
022060

004537

022060

160116
160110

002234

012514

013560

104006

004537

012514

104006

012777
004537
000004
004537
022112

000046

256G
2561
(3)

022114
022120
022120

004537

022122

000003
013014

013624

104010

(3)

;a%xxEND OF

EMT

TEST#wws

CSETST

#*TEST 41xx - VERIFY HEAD SELECT

VIA GET STATUS

s*xx«START OF

AR AR A AR N AR AN AR A AR AR AT RN N RANNR RN

TESTwwxx

P ARRAR AN RN ANANRNANNANRAARS

. CHECK THAT WE CAN READ BACK HEAD SELECT 1 WITH A GET
s STATUS FUNCTION.
SELECT H.S. 1 WITH A SEEK AND VERIFIY WITH
;GET STATUS
STARS
RN

(3)

SEQ 0090

104010

000036

012514

160036

2%:
3%:

AN R AR A AR

AN AN A AR NN

MoV
BIS

MOV
JSR

SEEK
JSR
CkLOOP
EMT

AMK, RLDA
#DAAS , aRLDA
#STHS . GDDAT

R R AN AN AR RN

:SET MARKER IN RLDA
*LOAD HS=1 INTO RLDA
*SET UP EXP'D

R5, LDFUNC

‘é?EEE FUNCTION OF FOLLOWING WORD

RS,WTCRDY

‘WAIT FOR CONTROLLER READY HIGH

CSCLPT

JSR
CKLOOP
EMT

RS, CHERR

JSR
CKLOOP
EMT

RS, WIDRDY

JSR
CKLOOP
EMT

RS, CHERR

MOV

AR AR AR AR AR RN N AR AR R AN

C$CLPI

C$CLPT
CseLp

H#GSBIT!MK,aRLDA

*CHECK IF /FL:LOE IS SET

:CHECK CONTROLLER FOR ERRORS

*CHECK IF /FL:LOE IS SET
:WAIT FOR DRIVE READY

‘CHECK IF /FL:LOE IS SET
:CHECK CONTROLLER FOR ERRORS
“CHECK

/FL:LOE

;SET UP FOR GET

SET

STATUS

IN DA

JSR
GSTAT
JSR
ESCAPE
EMT
.WORD

RS, LDFUNC
TS7

;IF

JSR
£ SCAPE
EMT
.WORD

RS,CHERR

JCHECK CONTROLLER FOR ERRORS

RS ,WTCRDY

CSESCAPE
L10067-.
TST

(<SSCAPE
L10067-.

;ISSUE FUNCTION OF FOLLOWING WORD

;GET STATUS

;WAIT FOR CONTROLLER READY HIGH

JIF

/FL:LOE

SET LOOP,

ELSE EXIT

ELSE

EXIT

TST

MACY11
22-NOovV-78 15:21

ASSEMBLY ROUTINES

CZRLAB.P11

2562

022124

022146

022150
022150
022152
022154
022156
022160
022160
022160
022160

013737
042737
023737
001404

002170

177677

002234

30A(1052)

22-N0V-78

15:28

7
PAGE 2-18

«#TEST 41%+ -~ VERIFY HEAD SELECT 1

E.MP,BDDAT
#177677 ,BDDAT
GDDAT ,BDDAT
G}

002236

SEQ 0091

VIA GET STATUS.

JREAD STATUS FOR HEAD SELECT BIT
JLEAVE ONLY H.S. BIT
;1S HEAD SELECT CORRECT?
JYES,

C(ONTINUE

48. ,EM56 ,ERRS

T$ERCODE
48

104462

000060
006355
010162

EM56
ERR4

6%:
ENDTST

L10067:

104001

.SBTTL

022162

BGNTST

022162

STARS
P

JuxexfEND

EMT

TESTwwnn

CSETST

**TEST 42+

TEST

TIME AT WHICH DIF

sexwaSTART OF

WD GETS

TESTwwnx

JVERIFY THAT THE DIFFERENCE WORD ON A SEEK IS
JTRANSMITTED PRIOR TO CONTROLLER READY

TRANSMITTED

SETTING.

THIS

;1S DONE BY SETTING A KNOWN DIFFERENCE WORD IN
JTHE RLCA ISSUING A A SEEK, WAITING FOR CONTROLLER READY

; (BUT NOT DRIVE READY), WRITING A DIFFERENT RLDA AND WAITING
THE RESULTANT POSITION SHOULD BE
READY.
THE FIRST RLDA ONLY.

;FOR DRIVE

;OF

THAT

$TARS

022162

:.'tfittt*tttt*tttttttttttititttt.ttttittttttttttttttttttttiittttt*

022162
022166
022170
022174
022174

004537
000010
004537

022176
022202
022202

004537

013014

013624

99%:

104006

012514

104006

013737
043737
012777
032737
001403
052777
013737
042737
023737
101007

002170

R5,LDFUNC

2 ISSUE FUNCTION OF FOLLOWING WORD

JSR
CKLOOP
EMT

RS,WTCRDY

JWAIT FOR CONTROLLER READY HIGH

JSR
CKLOOP
EMT

RS, CHERR

MOV
81C
MOV

E.MP,GDDAT
SK
, GDDAT
SECM

JSR
RDHDR

002234
002234

157706

000100

002234

000020
002234
000100
002226

157670

002226
002552

2%:

C$CLPT

#MK
, aRLDA

BIT
BEQ
BIS

ggHHS.GDDAI

BI(
CMP
BHI

#RHHS
, TMPQ
%g”O.HALMAX

MoV

#DAHS
, dRLDA

GDDAT, TMPQ

;READ HEADER

;CHECK IF /FL:LOE IS SE1

sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET

JREAD HEADER
;CLEAR SECTOR BITS
;SET MARKER IN RLDA
JTEST 4.S.

;1F ZERO, CONTINUE
JONE, SET SO WE WILL REMAIN THERE
;STORE HEADER
;CLEAR H.S. FROM STORED WORD
;WHERE ARE WE?
JBRANCH [F ON INNER HALF

MACY11
22-NOv-78 15:21

ASSEMBLY ROUTINES

CZRLAB.P1

2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618

022270

052777
063737
000403
163737
$3777
012737
032777
001003
052737
004537

000006
004537

30A(1052)

8 8
15:28
PAGE 2-19
22-NOvV=78
*aTEST 42%+ - TEST TIME AT WHICH DIF WD GETS TRANSMITTED

157636

BIS

002550
002550
000001
000020

002234

B8R
su8
BIS

000020
013014

002230

000004
002550

002234

157612
002230
157576

ADD

3%:

4%:

5%:

013624

104006

004537

013777
004537

022404
022410
022410

004537

022412
022416
022416

004537

022420
022424
022424

004537

022426
022432
022434
022440
022440

004537

022442
022446
022446
022450

004537

022452
022460
022466
022474

013737
043737
023737
001404

022476
022476

104462

QUAMAX
, GDDAT
QUAMAX, aRLDA
MK, TMP
ggAHS.QRLDA

012514

C$CLPT

012514

RS, CHERR

104006

C$CLPT

013560

RS.WIDRDY

8%:

104006

C$CLPT

012514

RS, CHERR

104006

C$CLPI

013014

RS .LDFUNC

013624

RS ,WTCRDY

104006

C$CLPY

012514

RS,CHERR

TO CHANGE

ONLY

“CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
;SEND IN NEW DIFFERENCE WORD
JWAIT

FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

JWAIT FOR DRIVE READY
;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET
;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
JWAIT FOR CONTROLLER READY HIGH
;CHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
;IF /FL:LOE SET LOOP, ELSE EXIT TST

BFQ

E.MP,BDDAT
SECMSK ,BDDAT
GDDAT ,BDDAT
10%

JREAD HEADER
;CLEAR SECTOR ADDRESS
;1S HEADER CORRECT?
s IF SO BRANCH

ERRDF

5¢.,EMS7 ,ERR4

104010

C$ESCAPE
L10070-.

002236
002236
002236

;:ELSR SEEK,

TST

000036

002170
002206
002234

JSET UP ANOTHER 'RLDA'' FOR LOADING

‘WAIT FOR CONTROLLER READY HIGH

TMP1,aRLDA
RS ,WTCRDY

104006

;SET UP EXPECTED HEADER
;SET DIFFERENCE WORD IN RLDA

RS .WTCRDY

R5,CHERR

157536

;SET UP EXPECTED HEADER

s CONT INUE

:ééégf FUNCTION OF FOLLOWING WORD

C$CLPT

902230
013624

;ON OUTER HALF, SET SEEK TO GO IN

#DAHS
, TMP1
R5.LDFUNC

C$CLPY

104006

022370
022376
022402
022402

#SIGN,aRLDA
EgAMAX.GDDAT

TRAP

T$ERCODE

SEQ 0092

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22-NOV-78 15:
1

(5)

022500
022502
022504
022506
022506
022506
022506

30A(1052)

000062
006414
010162

22-NOV-~78

108
:

.WORD
.WORD
.WORD

L10070:

ERR

.SBTTL

022510
022510

;x%**END OF

EMT

SEQ 0093

50
EMS7

ENDTST
104001

15:28
PAGE 2-20
*«TEST 42%+ - TEST TIME AT WHICH DIF WD GETS TRANSMITTED

TESTawe

CSETST

**TEST 43+~ - EXTENSIVE CHECK OF

BGNTST
STARS

HEADSR (RC

;#*%*START OF

TESTa#w«

';t'tifittt.Q'tfi*ttttfi*ttt*'fittfittfit***tt'ttlitfittt.ttttttttttt'tt

;MORE EXTENSIVE CHECK OF HEADER (CRC.

WE WILL SEEK

AND READ HEADERS VERIFYING HDR CRC ACROSS THE
;PLATTER USING THE GROWING O, GROWING 1, SHIFTING O AND

;GROWING O PATTERNS FOR TRACK ADDRESSES.

022510

STARS

::tttittfiitttfittittt'*t"*'tt*i**tt***ttti*t**tttit*ttttttt*fiittt

012703

002474

BGNSEG

104004

004537

1%:

013014

004357 013624

022530

104006

022532
022536
022536

004537

022540
022546
022554

013737
043737
001461

#SKLST,R3

FMT

($8SEG

JSR

RS5,LDFUNC

JSR
(KLOOP
EMT

R5,WICRDY

JSR
CKLOOP
EMT

R5,CHERR

MOV

E.MP BDDAT
SECMSK ,BDDAT
5%

RDHDR

98%:

012514

104006

002170
00206

MoV

002236
002236

BIC
8tQ

CS$CLPI

C$CLPT

JGET LIST OF DIFFERENCE WORDS
J***xSTART OF SEGMENT*xw«

sISSUE FUNCTION OF FOLLOWING WORD
.READ HEADER
JWAIT FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS

;CHECK IF /FL:LOE IS SET
;READ HEADER
;CLEAR QUT SECTOR
;IF ON TRACK ZERO,

H.S.

ZERO, OK

;NOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT [T BACK
;ON JERO
022556

042737
013777
052777
004537
000006
004537

022612

104006

022614
022620
022620

004537
104006

000100
002236
000001
013074

013624

012514

002236
157342
157334

BI(C

#RHHS ,BDDAT

:CLEAR OUT

BIS
JSR
SEEK
JSR
CKLOOP
EMT

AMK , 3RLDA

*SET MARKER BIT

RS ,WICRDY

*WAIT TOR CONTROLLER READY HIGH

MOV

JSR
(KLOOP
EMT

BDDAT . aRLDA
RS,

DFUNC

C$CLPI
RS, CHERR

($CLPY

HEAD

SELECT

*PUT CYLINDER AS DIFFERENCE WORD

‘éEEEE FUNCTION OF

FOLLOWING WORD

*CHECK IF /FL:LOE IS SET

:CHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:LOE IS SET

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOV~78 15:21

022622
022626
022626

004537

022630

004537

30A(1052)

013560

22-NOv-78

012514

104006

022650
022650

022652
022656
022656

004537
000010
004537

013624

96%:

004537

012514

104006

002234
002236
002170
002206

RS ,WTDRDY

JSR
CKLOOP
EMT

RS, CHERR

JSR

R5,LDFUNC

JSR
CKLOOP
EMT

R5,WTCRDY

JSR
CKLOOP
EMT

R5,CHERR

004537

022756
022762
022762

004537

022764
022770
022770

004537

022772

004537

C$CLPT

EM54
ERR3

5%:

104006

022750
022754
022754

CSCLP

SEQ 0094

;JWAIT FOR DRIVE READY

sCHECK IF /FL:LOE IS SET
;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

s ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
;WAIT FOR CONTROLLER READY HIGH
JCHECK IF /FL:LOE IS SET
sCHECK CONTROLLER FOR ERRORS
JCHECK IF /FL:I.OE IS SET
sCLEAR EXPECTED
s SAVE DIFFERENCE WORD
;READ HEADER
sMASK OUT SECTOR BITS
JBRANCH IF ON ZERO TRA(K

51..EM54 ,ERR3
;?ERCODE

000063
006263
010110

011377
052777
004537
000006
004537

CSCLPT

GDDAT
oeDAT, DWORD
E.MP BDDAT
gECMSK,BDDAT

002250
002236
002236

104462

022722
022726
022734
022740
022742
022746
022746

CHECK OF HEADER CRC

JSR
CKLOOP
EMT

RDHDR

104006

005037
013737
013737
043737
001404
022710
022710
022712
022714
022716
022720
022720

013014

PAGE 2-21

*#TEST {3+« -~ EXTENSIVE

89%:

104006

15:28

157206
000005
013014

013624

104006

012514

104006

013560

104006

012514

104006

013014

C$CLPY

157200

CKLOOP
EMT

sCHECK IF /FL:LOE

IS SET

(R3),3RLDA

RS LOFNE

;GET DIFFERENCE WORD
*SET SIGN (TOWARDS SPINDLE) AND MARKER
:égggF FUNCTION OF FOLLOWING WORD

R5.WICRDY

‘WAIT FOR CONTROLLER READY HIGH

C$CLPT

JSR
(KLOOP
EMT

RS, CHERR

JSR
C(KLOOP

RS,WIDRDY

EMT

($CLPI

JSR
(kLCOP
EMT

RS,CHERR

JSR

kS, LDFUNC

C$CLP

“CHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET
;WAIT

FOR DRIVE READY

JCHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET

¢sSSUE FUNCTION OF FOLLOWING WORD

ASSEMBLY ROUT] NES

MACY11
22-NOV-78 15:21

CZRLAB.P11

27641

022776
000

000010
004537

30A(1052)

023006
023012

004537

023012

104006

2749
2750
2751
2752
2753
2754

023014
023020
023024
023032
023040
023046

011337
011337
013737
043737
023737
001404

2756

023050

(3)

RDHDR
JSR
CKLOOP
EMT

013624

012514

002234
002250
002170
002206
002234

JSR
CKLOOP
EMT

002236
002236
002236

2775
(3)
(5)
(5)

023122
023124
023126
023130
023136
023144
023152

023154

023154
023156
023160

(5)
2776
(3)

023162
023164
023164

2779
2780
2781
2782

023166
023170
023174
023176

9%:

2783

023202

002170
013372

02307¢

R5,CHERR

C$CLPY
(R3),GDDAT
(R3) ,DWORD

E.MP ,BDDAT
SECMSK ,BDDAT
ggDAT,BDDAT

1C%:

002216
002172
013372

023126
023124

JCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;CHECK IF /FL:LOE IS SET
JGET EXPECTED CYLINDER
;SET UP DIFFERENCE FOR SEEK
JREAD HEADER FROM RLMP

:CLEAR OUT SECTOR BITS
;DID SEEK GO TO THE RIGHT
;TRACK,

SO,

GO GET NEXT

C$CLP

0
0
CALB(C(C,20%
E.MP1,21%

cCHECK IF /FL:LOE IS SET
;GET HEADER WORD
;GO CALCULATE HEADER C(CRC

;16 BITS

;HEADER GOES HERE

;START WITH 2ERO CRC

R5.,SIMB(C

21%:
002216
002174
002234

52
EM54
ERR3

E.MP,10%
RS,SIMB(C

002234
002236
002236

0
0

CALBCC,GDDAT

E.MP2 BDDAT
??2AT,BDDAT

;MOVE CALCULATED CRC TO GDDAT
;GET HEADER CRC FROM RLMP
;IS CRC CORRECT?
;IF SO CONTINUE

53. ,EM42 ERRG
;%ERCODE

104462

000065
005704
010162

EM42
11%:

104006

005723
020327
001402
000137

C$CLP

;READ HEADER

JWAIT FOR CONTROLLER READY HIGH

T$ERCODE

104006

2767
2768
2769
2770
2771
2772
2773

8%:

RS ,WTCRDY

SEQ 0095

52. ,EM54 ERR3

104462
000064
006263
010110

013737
004537
000020
000000
000600
013737
013737
004537
000020
000000
000000
013737
013737
023737
001404

15:28
PAGE 2-22
*#TEST 43#+» ~ EXTENSIVE CHECK OF HEADER CRC

104006

2746
2747

22-NOv-78

ERRS

C8CLPI

002574

022516

(R3)+

R3,#SKEND
12%

sJCHECY

/FL:LOE

;BUMP PATTERN

IS SE-

;DID WE DO ALL PATTERNS?
JYES, CONTINUE
;NO, GO BA(CK FOR NEXT PATTERN

ASSEMBLY ROUTINES

CZRLAB.P11

2785
(3)

023202
023202
023202
023204
023204
023204

MACY11

22-NOvV~78 15:21

30A(1052)

F
8
22-NOv-78
15:28
PAGE 2-23
*«TEST 43+ - EXTENSIVE CHECK OF HEADER CRC

ENDSEG
10000¢:

104005

ENDTST
L10071:

104001

SBTTL

023206

BONTST

023206

STARS
e

EMT

CSESEG

EMT

CSETST

#«TEST 44xx -~ VERIFY GET

SEQ 0096

sxxx*END OF

SEGMENTxww«

;ax*%END OF

TESTwwww

STATUS WHILE

sax*«START OF

WA RARAT AR

P RAAARNRARRREANTAANRNS

DRDY

S LOW

TESTwarax

AARARRRAAANRARARANRNARANCNRE AN N AN

;VERIFY THAT WE CAN ISSUE GET STATUS AND RECIEVE

:THE

- TARS

STATUS WORD WHILE

NN R AR R

004537
000010
004537
023220

104006

023222
023226
023226

004537

023230
023236
023244

013737
043737
001461

1%:

013014

012514

104606

002236
002236

AR AR A A A AN

DRIVE

IN NOTION SEEKING

RN RANAAAARANARNRRARRRRRAARRANAN
A AR AR
AR RS

JSR

RS, LDFUNC

JSR
CKLOOP
EMT

R5,WTCRDY

JSR
K 00P
EMTY

RS, CHERR

%
8IC
BEQ

E.MP ,BDDAT
SECMSK ,BDDAT
5%

RDHDR

013624

002170
002206

R R

THE

(8. P1

($CLPT

sISSUE FUNCTION OF

;READ HEADER

FOLLOWING WORD

JWAIT FOR CONTROLLER READY HIGH

sCHECK IF /FL:LOE IS SET

;(HECK CONTROLLER FOR ERRORS

cCHECK [F /FL:LOE IS SET
;READ HEADER
;CLEAR OUT SECTOR
;IF ON TRACK ZERO,

H.S.

ZERO, 0K

sNOT ON TRACK ZERO CALCULATE DIFFERENCE WORD AND PUT [T BA(CK
cON ZERO
023246
023254
023262
023270
023274
023276
023302
023302

042737
013777
052777
004537
000006
004537

023304
023310
03310

004537

023312
023316
023316

004537

023320

004537

000100
002236
000001
013014

013624

104006

0125

104006

013560

104006

012514

002236
156€52
156644

BIC
MOV
8IS
JSR
SEEK
JSR
(kKLOOP
EMT

JSR

CKLOOP
EMT

JSR

C(kLOOP
EMT

- SR

#RHHS ,BDDAT

;CLEAR OUT

BDDAT ,aRLDA

:PUT CYLINDER AS DIFFERENCE WORD

#MK , 3R

HEAD

SELECT

*SET MARKER BIT

RS, LDFUNC

:ggggf FUNCTION OF

RS ,WTCRDY

‘WAIT FOR CONTROLLER READY HIGH

C$CLPT
RS, CHERR

C$CLPI
RS ,WTDRDY

C$CLP1

RS, C(HERR

*CHECK IF

/FL:LOE

FOLLOWING WORD

IS SET

;CHECK CONTROLLER FOR ERRQRS

SCHECK IF /FL:LOE

IS SET

;WAIT FOR DRIVE READY

SCHECK IF

/FL:LOE

IS SET

;"HECK (ONTROLLER FOR ERROKS

ASSEMBLY ROUTINES
MACY11
CZRLAB.P11
22~NOv~78 15:21

2830

023324
023324

2833

023326
023332

(3)
2831
2832

30A(1052)

22-NOv-78

(KLOOP
EMT

013014

013624

104006

004537

012514

104006

023350
023354
023362
023370
023376

005037
013737
013737
043737
001404

002234
002236
002170
002206

RS, LDFUNC

JSR
CKLOOP

R5,CHERR

077601
000005
013014

004537

013624

C$CLPT

156514

#77601,aRLDA

156506

104006

012777
004537
000004
004537
023472
023476
023476
023476

104006

004537

;CHECK IF /FL:LOE IS SET

;ISSUE FUNCTION OF FOLLOWING WORD
;READ HEADER
JWAIT FOR CONTROLLER READY HIGH

;CHECK IF /FL:LOE IS SET

sCHECK CONTROLLER FOR ERRORS
sCHECK IF /FL:LOE IS SET

;CLEAR EXPECTED
sSAVE DIFFERENCE WORD
;READ HEADER

sMASK OUT SECTOR BITS
;BRANCH IF ON ZERO TRACK

#SIGNIMK ,aRLDA

R5,LDFUNC

<GET DIFFERENCE WORD
*SET SIGN (TOWARDS SPINDLE) AND MARKER
‘é??flf FUNCTION OF FOLLOWING WORD

RS ,WTCRDY

‘WAIT FOR CONTROLLER READY HIGH

C$CLPY

01254
0000035
013014

RS, CHERR

C$CLPT

156456

;CHECK IF /FL:LOE IS SET

“CHECK IF /FL:LOE IS SET

;CHECK

CONTROLLER FOR ERRORS

JCHECK IF /FL:LOE IS SET

AMK ! GSBIT ,aRLDA
R5,LDFUNC
sISSUE FUNCTIOM OF

013624

RS,WTCRDY

012514

RS, CHERR

C$CLPY

JWAIT

10400°

" EMT

CSETST

HRDPRM

000025

BGNHRD

.WORD L10073~L $HARD/?

FOLLOWING WORD

FOR CONTROLLER READY HIGH

JCHECK IF /FL:LOE IS SET

;CHECK CONTROLLER FOR ERRORS
;oeasEND OF

023500
023500
023500

C$CLPT

56
EMS4
ERR3

052777

104006

C$CLPT

SEQ 0097

[S LOW

TSERCODE

104006

004537

RS ,WTCRDY

DRDY

54, ,EM54 FRR3

006263
010110

004537
000006

STATUS WHILE

GDDAT
BDDAT ,DWORD
F.MP ,BDDAT
ggCMSK,BDDAT

002250
002236
002236

104462

012777

C$CLPT

JSR
RDHDR
JSR
(xLOOP
EMT

cMT

PAGE 2-24

*«TEST 44x+ - VERIFY GET

104006

0045%7
000010
004537

15:28

TESTweas

ASSEMBLY ROUTINES

CZRLAB.P11

2872
2873

MACY11
22-NOV=78 15:21

(4)
(&)
(4)

004130
023570
000001

(4)
(4)
(4)
(4)

000031
023554

(4)
(4)
(4)
(4)

001031
023606

(4)
(4)

002032
023575
000340
000000
000007

2874

22-NOV-78

*«TEST

177776

000000
000776

2876
(4)
(4)
(4)

2877

023550
023552

003032
023615
003400
000000
000007

023554

L10073:

o
N

052502
051104
046122

042526
042526
000
104

000
023624

STATUS WHILE

CSRMSG,CSR,0,160000,177776,YES
T$CODE

CSRMSG
TSLOLIM
TSHILIM

VECMSG,VECT,0,0,776,YES
T$CODE
VECMSG
TSLOLIM
TSHILIM

BRMSG,PRIOR,0.340,0,7,YES
T$CODE

BRMSG

340

TSLOLIM
IM
TSHIL
DRMSG,DRBT,0,03400,0,7,VES
T$CODE
DRMSG

03400

M
TSLOL
TSHIL
IM

ENDHRD
.EVEN

042101
000123
000
042514

CSRMSG:

LASCIZ

/BUS ADDRESS/

CNTMSG:
BRMSG:

.ASCIZ
LASCiZ

/RL11/
/BR LEVEL/

05117

VECMSG:

LASCIZ

/VECTOR/

044522

042526

DRMSG:

JASCIZ

/DRIVE/

.FVEN

BGNMOD

000614

000130
023656
000001

SF TPRM

BONSFT
.WORD L10074~L$S1/2
OF
GPRML
DMSG,DLT,7,YES
T$CODE
.WORD
?NSG
. WORD
. WORD
XFERF

[S LOW

CNTMSG,CNT,1,YES

ENDMOD

023624

DRDY

T$CODE
SNTMSG

020123
051505
030461
020122
00C:14
052103

023624

H 8
PAGE 2-25

44x+ - VERIFY GET

.WORD
GPRMD
-WORD
.WORD
.WORD
-WORD
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD

023554

023554
023562
023570
023575
023602
023606
023614
023615
023622

15:28

GPRML
.WORD
.WORD
. WORD
GPRMA
-WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
-WORD

160000

2875

(4)
(&)
(4)

30A(1052)

SEQ 0098

ASSEMBLY ROUTINES
MACY11
CZRLAB.P1
22-NOV-78 15:21
1

(5)
2897

15:28

023654
023656

DRDY

SEQ 0099

IS LOW

T$CODE

EMSG
177777
1$:

002130
023702

GPRML

TSLOLIM
TSHILIM
SMSG,SIZE,1,YES
T$CODE
?MSG

ASCIZ
.ASCIZ
LASCIZ

/DROP ON ERROR LIMIT/
/AUTOSIZE/
/EQROR LIMIT/

000001

023656

STA TUS WHILE

EMSG,ELT,0,177777,0,177777
,YES

177777
000000
177777

2898

I
8
PAGE 2-26

««TEST 44« - VERIFY GET

001032
023713

(4)

2899
(2)
(3)

22-NOV-78

006044

(4)
(4)
(4)
(&)

(4)
(4)
(4)

30A(1052)

L10074:
051104
052501

105

023730

050117
047524
051122

047440
044523
051117

DMSG:
SMSG:
EMSG:

.EVEN

023730

ENDMOD

024114

26114

JAREA RESERVED AS PAT(H AREA FOR DIAGNOSTICS.
;. 241164 WAS SELECTED AS 'ASTAD'' TO PROVIDE APT TO LSI-11

;BIT 7 OF

JWHEN RUNNING ON THE LSI-11 UNDER APT,
02414

LASTAD

024114

LSLAST::

COMPATIBILITY.

'LASTAD'' MUST BE CLEARED TO ACHIEVE A VALID MAILBOX ADDRESS

.EVEN

ASSEMBLY ROUTINES

CZRLAB.SUP

2928

13799
13800

054710
054712

13802
13803

054776

13801

13804

054714

MACY11

23-0(1-78 09:51
000000
000000
000000
000000
054722
500200

30A(1052)

22-NOV-78

DIAGNOSTIC

15:28

PAGE 3

SUPERVISOR == LOW CORE SET UP

.SBTTL

DIAGNOSTIC SUPERVISOR -- LOW (ORE

.WORD
0
.WORD
C
.WORD
0
WORD
O
END.SUPV . ¢?
.END 200

SEQ 0100
SET UP

sSPACE FOR USER POOL POINTER
;SIZE
s CHECKSUM (NOT CURRENTLY USED)
;SIZE CF H.W. PTAB. ALLOCATION

BIT13 = 020000

BIT14 = 040000
BIT15 = 100000

BIT2
BIT3

BIT4
BITS

= 000004
= 000010

- 00002
- 000040

043172
043202

Ry
<

0
<

(=4

024164
047474
003702
011724

053272
011576

- 00007
(SPNTF

043154

(211l lalalalalalalalalalalalnlalalalal

000016

neann

(W,]

= 000200
CRDY
CRLF
043572
CRTIM
004522
CSEND
CSPAT
=
(SR
CSRMSG
CSTEST
CURR.S
CURR.T
CYLMSK
C$AAD
(SAAE
C$AAK
CSAAL
C$ABRT=
C$ADR

000002
002000
004000
010000

023575
002144
033204
033116
002152
002150
002154
002156
002216

SEQ 0101

=
=
=

000040
000100
000200
000400
001000

G
G
G
6

TABLE

K
PAGE 4

BIT1
BIT10
BIT11
BIT1Z2

=
=
=
=
-

SYMBOL

15:28

BITOS
BIT06
BITO7
BITO8
BITO9

000100
000200
000400
001000
031602
047214
002142

22=NOV-78

aTATAYAT
A RN )

BITO4 = 000020

30A(1052)

[

BITO3 = 000010

6
G

024440
024356
026720
012424
004501
024146
013324
045060
026050
004436
004431
004444
004452
000010
030716
030732
030744
030752
030766
030776
014410
000020
000040
002214
002140
002236
013272
002264
004460
024114
043370
000001
000001
000002
000004

—_ =

ABOFLA
ABOPAS
ABO.FM
ADDCOD
AFREG
AFS]
AFTER
ALLOC
APT.ER
ARLBA
ARLCS
ARLDA
ARLMP
ASSEMB=
ASAAV
ASAAW
ASAAX
ASAAY
ASAAZ
ASABA
BATEST
BA16
=
BA17 =
BCCFBK
BCSR
BODAT
BEFORE
BEGPAT
BEREG
BGN.SU=
BINMSG
BITO =
BITOO =
BITO1 =
BITOZ2 =

23-0CT-78 09:

[alalalalalalalalalalnlalalalalalalnlalalalal

CZRLAB.SUP

MACY11
bt bt bt

ASSEMBLY ROUTINES

CZRLAB.SUP
EMS4
EMSS
EM56
EMS7
EMS
EMOY
EM62
EM63
EMO4
EM6S

002172
002174
044240
000204 G
002240
013260
024160 G
024162 G
047412
031146

007171
005020
007226
007263
007320

FLG.MA
FNDFNC
FORM.T
FREE
FRMTT

031106
013232
040010
045316
010672

EM?73

007353

EmM77

FLA.SE

FRMT11

007406
007440
007472

FRMT12
FRMT13
FRMT2

007525

FRMT2A

END
ENDPAT
END.OF
END.SUENVIRO
EOP.CH
EOP.FM
EOP.IN
ERCOUN
ERPOIN
ERR
ERRFOR
ERRHAN
ERRVEC
ERR.HR
ERR.NU
ERR.SF
ERRO
ERR1
ERR1FO

012306
002472
032470
054722
024166
053370
026734
031100
002700
002676
100000
037714
036514
002212
037452
024116
(037456
010016
010034
040000

ERR3

010110 G

ERRZ2

ERR4
ERRS
ERR6

ERR7
ESC.PC
Ev.COU
£.BA
E.CS
E.DA
E.MP

G
G

010046 G
010162 G
010230 G
010242 G

010304 G
036506
024120 G
002164
002162
002166
002170

FRMT2B
FRMT3
FRMT4
FRMTS
FRMTS
FRMT99
FEAU F$BGN =
F$CLEA=
FEDU
=
FSEND =
F $HARD=
FSHW
=
FSINIT=
FSJMP =
FSMOD =
FEMSG =
F$PWR =
FSRPT =
F$SEG =

15:28

PAGE 4-1

GLBDAT
GLBEQA
GLBERR
GLBSUB
GLBTXT
GODRVR=
GSBIT =
GSTAT =
GSTINT
GSTMES

002122
002122
010016
012430
003570
000202
000002
000004
004372
004333

GSHILI=
GS$LOLI=
GENO =
G$OFFS=
GS$OFSI=

000002
000001
000000
000400
000376

047360

GSEXCP= 000400

011164

G$PRMA= 000001

010751

GSRADB= 000000

011225
011304
010732
010764
011013
011020
011056
011127
011053
000015
000040
000007
000016
000041
000004
000013
000006
000050
000000
000011
000017
000012
000003

F$SOF
T= 000005

F$SRV = 000010

FeSUB = 000002
F$SW = 000014
FSTEST= 000001

GARBAG
GDDAT
GETCHR
GETCMN
GETPAR
GETSWI
GET.TW

22-NOV-78

SYMBOL TABLE

E.MP1
E.MP2
FILL
FILL.C
FIRST
FIX
FLAGS
FLAGST
FLAGTA
FLAG.l

007106

EM74
EM75
EM76

23-0(7-78 09:51

30A(1052)

006263
006322
006355
006414
004772
006515
006576
006661
006742
007025

EMGO

EMG7
EM7
EM70
EM71
EM72

MACY11

044744
002234
043450
047034
040526
046030
045600

G
G
G
G
G

037644
013552
030452
037502
025504
032454
000041
000041
000041
000041

LSDTP
L $OU
LSDUT
LSDVTY
LSEF
LSEFLG
LSEXP1
LSEXP2
LSEXP3
LSHARD

002040
012420
002076
002114
002056
002034
002042
002044
002046
023502

G
G
G
G
G
G
G
G
G
6

ISMOD
ISMSG
ISPWR
I$RPT
I$SEG

Q00041
000041
000041
000041
000041

LSHPTP
LSHW
LSICP
LSINIT
LSLADP

002022
011340
002104
011514
002026

G
G
G
G
G

LSMREV
LSNAME
LSREPP

002050 G
002000 G
002066 G

=
=
=
=
=

LSHPCP

LSLAST

I$SRV = 000041
I$SUB = V00041
I$TST = 000041

JSJMP = 000167

000040
000200
000120
000020
000100
000004
000010
002552
030656
030566
024402
003650
024152
024144
024142
003070
013234
030526
003656
000020

HRDPRM

023500 G

INITCO
INITIA
INIT.M
INIT.R
INPUTA
INTEN =
INTFLG

INTFOR
INTSRV
INVAL.
INVINT
INV.SW
IN.SUF
ISAU =
ISCLN =
I$DU =
ISHRD =

IS$SFT = 000041

GSRADD=
GS$RADF=
GSRADL=
GSRADO=
G$RADT=
GSXFER=
GS$YES =
HALMAX
HCORED
HCOREQ
HCORET
HCRCME
HC.ADR
HC.DEF
HC.DIA
HDRBUF
HDRLST
HERTZ.
HNFMES
HOLDSP=
HW.ADR
H$AAB
ININIT

SEQ 0102

ISINIT= 000041

GSPRMD= 000002
GSPRML= 000000
GSRADA= 000140

HPTCOD

G
G
G
G

011336 G
024150 G
050206
024372 G

011514 G
043420
031504
024206
044346
000100
002202

KBPTR
KBUF
LDCSR
LDFUNC
LF
LINE.F
LINET
LINE2
LINE3
LOAD.F
LOGMSG
LPBFR
LPCNTR
LPT.AD
LPT.RE
LSI.RE
LUP
LUP.AD
LSAPT
L$AU

024224
024226
002204
013014
003700
024442
010342
010376
010620
031102
043412
024222
024220
030544
030540
030534
051506
036512
002036
012424

L$CCP

LSAUT

LSCLEA
L$CO
LSDEPO

LSDESC
LSDEVP
L$DISP
L$DR
L$DRCT
LSDRS
LSDRST

G
G

LSREV

002016 G

024114 G

002010 G

G
G

LSSOFT
LSSPC
LSSPCP
LSSPTP
L$STA
LS$SW
LSTIML
LSTIMU
LS$TIM1
LSTSTI
LSUNIT
L.CLK.
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007

023626
002062
002020
002024
002030
011354
002014
002054
002052
002100
002012
030512
010032
010044
010106
010160
010226
010240
010302
010340

002106 G

L10011

011362

G
G

002074 G

012352 6
002032 G
002071 G

00212
002064
011364
002112
002070
002072
002112

G
G
G
G
G
G
G

L10010

L10012
L10013
L10014

L10015
L10016
L10017
L10020
L10021
L10022
L10023

011352
012350
012416
012422

012426
013556
013774
014070
014164
014260
014400

G
G
G
G
G
G
G
G
G
G
G

054314 G
033216

033214
002252

002246
002000
030554
011356

G
G
G
G

024156 G
024564
033172
020000

003636
011606
047652
043376
013244
002000
003710
003643
000000
000001
000000
000001
000001
000001
000001
047106
043074
024130 G
002176
044720
050226
000004
000000 G
000040 G

PRI02
PRIO3
PRIQ&
PRIOS
PR106
PRIO7

SPTCOD
SPV.SE
START
START(

START1
=
STHS
STRCHR
STRT.T
ST.SET
SINIT.
SUPERV
SUPFLA
SUPV.T
SUP.PR
SVCGBL=
SVCHAN
SVCINS=
svesuB=

PRNTST
PRO. (M
PTAB.S
PUTCHR

PWRFLG

PWR.FA
PWR.FL
PWR .MS
PWR. SA
PWR.
P.CLK.
QUAMAX
RDHDR =
READ
=
READ.P
REGBAC
REGSAV
REQN.P
REQN.T
REST
RESTMS
RE.SET
RHDINT
RHDMES
RHHS
=
RLBA
RLCS
RLDA
RLMP
RSTACK
053540

SAVEDO=
SEARCH
SECMSK
=
SEEK
SEGSTA
SEKINT
SEKMES
SET.MA
SFTPRM
SHIFT
=
SIGN
SIMBCC
SIZE
SKEND
SKLST
SMSG
SPEC.U

026050
045546
002206
000006
024414
004301
004250

031272
023624
054376
000004
013372
000004
002574
002474
023702
031006

011352 G
000400
011614
053266 6

SVCTAG=
SVCTST=
SVHD
SWCHAN
SWITCH
SW.ADR
SW.PTA
SYS.FT

SSLSYM=
TEMP2

TEMP3
TEMP4

TERM]
TERMLI
TERMTA
TEST.M
TIMFLG
TiM.CO
TIM.OP
TMPFNC

TMPO
TMP1
TMP2

T00.MA

TRPFLG
TRPHAN
TST.AB
TST.TO0
TYPEC
TYPEPC
TYPFLA
TYPLIN
TYPNUM
TYPSTR
TYP.ER

043654
037462

TY.UNI

932474

T$ARG(C= 00000
T$CODE= 002130
T$ERCO= 000062
TSERRN= 000066
TSEXCP= 000000
T$FLAG= 000040
T$HILI= 177777
TSLOLI= 000000
TSLSYM= 010000
TSNEST= 177777
TSNSKO= 000000
TINSK1= 000005
T$SAVL= 177777
T$SEGL
= 177777
T$SEKO= 010000
T$SUBN= 000000
T$TAGL= 177777
TSTAGN= 010075
T$TCMP= 000000
TSTEST= 000054
TSTSTM= 177777
T$TSTS= 000001
T$SAU = 010015
T$$CLE= 010013
T$$DU = 010014
T$SHAR= 010073
TSSHW = 010010
T$SINI= 010012
TSSMSG= 010007
T$$SEG= 010000
T$$S0F
=
T$$SRV=
T$$SW =
TSSTES=

WN—=O

G
G

SEQ 0103

VNN

NOOP7

NOPINT
NOPME
S
NOPWR
NORE
S
NO. CLK
NO.FLA
NO.LPT
NO.PTA
NR
NUMBIN
NUM. LA
NUM.NO

024172
024174
000001
053656
003675
024140
024114
053612
002244
053336
047576
003606
000000
000016
004014
003763
011536
003570
030502
047372
044710
030706
000000
040034
040202

15:28

WN=O

015544
015616
015654

MIN. IN
MIN.US
MK
MODR
MSCRLF
MSG.AD
MSG.TY
MUL
MXSECT
NEWPR]
NEXTAR
NODRY
NOOPQ

22-NOvV-~78

SYMBOL TABLE

ettt
o
o — — —f — —f

014502
014570
014714
015040
015144
015244
015334
015434

30A(1052)

POPINININD)
= —d md b b b b b D b 2

L10024
L10025
L10026
L10027
L10030
L10031

MACY11
23-0(T1-78 09:51

[aIalaTa)

ASSEMBLY ROUTINES

CZRLAB .SUP

021354
021506
014166
021650
022010
022162
022510
023206
014262
014402
014504
014572
014716
002126
024132

017026 G
017172 G
017222 G

729

017374 o
017462 G
017610 G

130
131

017632 G
017712 G

132
133
134
135

T3¢

140
T4
142

743

014072 G

020056
020214
020532
020570

T44

G
G
G
G

17
T8

020634 G

137

020760 G

. ABS.

054720

ERRORS DETECTED:

UNITST

UNIT.D

SYMBOL TABLE

16K

WHY
WIDTH
WRCHK
WRITE

060
0

(31

PAGES)

031010
024374 G

. MA
UN]
JSER.P
USER.T
w7
VALID.
VAL.LA
. SW
VAL
VECMSG
VECT
WCKINT
WCKMES

DSKZ:CZRLAB,DSKZ
: CZRLAB=(ZRLAB/ML ,(ZRLAB.P11,(ZRLAB. SUP
RUN-TIME: 41 39 1 SECONDS
RUN-TIME RATIO: 251/82=3.0
(ORE USED:

N 8
PAGE 4-3

15:28

024376 G
002124
024634

002256
060402
000002
000012

SEQ 0104
WTCRDY

WTDRDY

XEQDIA
XEQSUB
XEQ.CL
XEQ.CM
XEQ. IN
XEQ.LA
XEQ.OP
XEQ.PR
XEQ.TE
XPOLY
XTIME
XTIMEN
XTIMST

013624
013560
053424
053412
033134
030444

" XXDP.D

026110
032754
002210
052276
053122

$SAV3

052320

XXX

XSALWA=
XS$FALS=
F S=
XSOF
X$TRUE=
$BREG
SENDAD
$SAV2

$SAV4
$SAVS

030464
011636
000000
000040
000400
000020
031160
053376
054442
054456
054474
054514
054720

(alalalnla)

738
139

124
125
126
127
128

22-NOvV-78

30A(1052)

[aEalalalalaIR IaTalalalalalal

ASSEMBLY ROUTINES
MACYT1
CZRLAB.SUP
23-0CT1-78 09:51