Digital PDFs

AH-E041B-MC----

January 1979

136 pages

Original

77MB

view download

OCR Version

118MB

view download

Document:	CZRLBB0 RL11,RLV11 CONTROLLER TEST PART 2 JAN 1979 bw
Order Number:	AH-E041B-MC
Revision:	---
Pages:	136
Original Filename:	CZRLBB0__RL11,RLV11__CONTROLLER_TEST_PART_2__AH-E041B-MC__JAN_1979_gray.pdf

OCR Text

R L1

1 ’

R LV 1

CONTROLLER TEST PART 2

CZRLBBO

AH-E041B-MC

JAN 1979

FICHE 1 OF1

MADE IN USA

copvrichT 77.78 EOEDOBD

IDENTIFICATION

SEQ 0001

PRODUCT CODE:

AC-E040B-M(

PRODUCT NAME:

(ZRLBBO RLT11/RLV11

DATE CREATED:

11-0(CT-78

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

D. DEKNIS

CONTROLLER TEST PART 2

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

THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS
FURNISHED
TO
THE
PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM
AND (AN BE
C(OPIED
(WITH
INCLUSION
OF
DIGITAL'S
COPYRIGHT
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ASMAY OTHERWISE BE
PROVIDED

IN WRITING BY

DICITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES
NO
RESPONSIBILITY
FOR
THE
USE
OR
RELIABILITY OF ITS SOF TWARE ON EQUIPMENT THAT IS
NOT SUPPLIED BY DIGITAL.
COPYRIGHT

(C)

1977,

1978,

DIGITAL

EQUIPMENT

CORPORATION

VBRWND-O

GENERAL

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

CONTENTS

INFORMAT ION

PROGRAM ABSTRA(T

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

o
.

N =

R
Y. R )

PERFORMANCE AND PROGRESS REPORTS

OB WWWN
O

ERROR INFORMATION

oo
W

ASSUMPT IONS

TABLE

THE

SIX STEPS OF EXECUTION

SAMPLE RUN~-THROUGH
HOW TO CREATE A CHAINABLE FILE
DETAILS OF COMMANDS AND SYNTAX
TABLE OF

COMMAND VALIDITY

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAME TERS
SOF TWARE PARAME TERS

DEVICE
TEST

INFORMATION TABLES

SUMMARIES

ge‘

SEQ 0002

Page 3
1.0

GENERAL

PROGRAM ABSTRACT

1.1.7

STRUCTURE OF

SEQ 0003

INFORMATION

PROGRAM

THIS DIAGNOSTIC OCCUPIES 14.5K WORDS OF

MEMORY AND

CUMPATIBLE

WITH

BOTH
XXDP
AND ACT.
IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE
CHAINED UNDER XXDP, ACT AND APT IN ACT MODE (SEE '‘CREATE
CORE
IMAGE
COMMAND
BELOW
FOR
DETAILS
OF
CHAINING PROCEDURE).
IT IS A SINGLE
PROGRAM FROM THE

STANDPOINT

THE

DIAGNOSTIC

USER,

BUT

HAVE

INCORPORATED
INTO
IT
A
CONTROL MODULE WHICH WILL LATER BE RELEASED
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST
TO
THE
SUPERVISOR
PORTION, WHICH WILL ASK CERTAIN ‘HARD CORE'' QUESTIONS
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE, INDICATED
BY
A
PROMPT
CHARACTER
(DS B>).
AT COMMAND MODE
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW.

THE

SUPERVISOR CODING FOLLOWS

IMMEDIATELY

THE

OPERATOR MAY ENTER

THE DIAGNOSTIC

TEST

BUT
THE
SUPERVISOR
LISTING
HAS
BEEN
SUPPRESSED
FOR
DISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE TO
FIELD
OF
OF

THE
SUPERVISOR ASSEMBLY LISTING,
A SOF TWARE PROBLEM.

AND IT MAY BE

CONSULTED

CODING,

GENERAL
SERVICE

IN EVENT

1.1.2 DIAGNOSTIC INFORMATION
THE RL11/RLV11
PROGRAM
THAT

CONTROLLER TEST
WILL
TEST
THE

(PART 2) IS
CONTROLLER.

PDP-11
(LSI-11)
BASED
IT COMPLIMENTS PART 1 BY

EXTENDING THE TEST COVERAGE TO INCLUDE WRITE DATA,
READ
DATA,
WRITE
(HECK
AND
READ
DATA
WITHOUT
HEADER COMPARE.
IT IS AIMED AT FULLY
TESTING THE CONTROLLER IN THESE AREAS, BUT BY DEFAULT
ALSO
EXERCISES
THE DRIVE.
THE TEST COVERAGE OF THE PROGRAM IS EXTREMELY HIGH.

1.2

SYSTEM REQUIREMENTS

1.2.7 HARDWARE REQUIREMENTS
PDP=11/LSI-11 PROCESSOR WITH 16K OR MORE OF MEMORY
CONSOLE DEVICE (LA30,LA36,VT50,ETC.)
RLT1/RLV11
1 = 8 RLOT

CONTROLLER(S)
DRIVES

1 = 8 RLOTIK CARTRIDGES WITH BAD SECTOR FILE

KW11P, KW11L (OPTIONAL)
L INEPRINTER(OPTIONAL)

T.¢.2 SOF TWARE REQUIREMENTS
(ZRLBB RLT1/RLVIT

(TIR 2

Page 4
(FORMERLY MD-11=DZRLB-A)

1.3

RELATED DOCUMENTS AND STANDARDS

RLOT USERS MANUAL
XXDP USERS MANUAL
1.4

DIAGNOSTIC HIERAR(CY PREREQUISITES

THE

RLO1

SUBSYSTEM

PROGRAMS
:

1.5
THE

(EK=RLO1-UG-PRE)

<SHOULD

HAVE

SUCCESSFULLY

FOLLOWING

RLT1/RLV1Y RLOT CONTROLLER TEST (PART 1)

ASSUMPT IONS

HARDWARE

OTHER

THAN

THE

RLO1

SUBSYSTEM

FALSE ERRORS MAY BE REPORTED

FUNCTION PROPERLY.

2.0

OPERATING INSTRUCTIONS

HOW TO RUN THIS DIAGNOSTIC

THE SIX STEPS OF EXECUTION

THIS DIAGNOSTIC

PROCEDURES.
THE

THE

CZRLABO

PROPERLY.

RUN

~ THE

DIAGNOSTIC

SHOULD

HAS

START
THE

WHEN THIS DIAGNOSTIC

LOADED

AND

COMMAND SHOULD NOT

PROPER

TRANSFER

IS STARTED,

ASSUMED

THE PROCESSOR,

aTAI;TED

USING

CODED

INTO

IT.

WORK

DO NOT

NORMAL

SPECIFY AN ADDRESS,

ADDRESS

ETC.,

XXDP

BECAUSE

THE FOLLOWING STEPS WILL OCCUR:

2 22222222

c
STEP

=«

L 22222228

A SHORT

SERIES OF

"HARDCORE QUESTIONS'® WILL BE ASKED:

QUESTION

THE
e

P-(LOCK

e R

e e

IS THERE AN L-CLOCK?

50HZ (L) N ?
LSI (L) N ?
LPT (L) N ?
MEM (k) (D) 16 ?

IS THE POWER 50 CYCLES (AS IN EUROPE)?
IS MACHINE AN LSI?
IS THERE A LINE PRINTER?
HOW MANY K OF MEMORY ARE THERE?

DEFAULTS

ASKED:

L=CLK (L) N ?

P=CLK

CARRIAGE

EANINNG

(L)

N ?

(SHOWN AFTER EACH QUESTION)

RETURN.

FOR EXAMPLE,

POSSIBLE

YOU SAY 'VES''

QUESTION WILL

NOT BE

THATNOT

ASKED.

P=CLOCK?

CAN BE
ALL

THE

SELECTED

THE

QUESTIONS

L=-CLOCK

HITTING
wILL

QUESTION,

THE

SEQ 0004

F
.3
Page 5

IF NEITHER P OR L

TYPE

CLOCK ARE ANSWERED YES THE OPERATOR wILL BE ASKED TO

TWO CHARACTERS 4

SECONDS APART.

AR
R AT AR

* STEP 2 »
AR RR TR AR RN

WHEN YOU HAVE ANSWERED ALL

ISSUE

THE

PROMPT

THE HARDCORE QUESTIONS,

‘DS=8>'".

THE DIAGNOSTIC WILL

FROM THIS POINT UNTIL THE TIME WHEN YOU

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
CAN
TAKE
A
NUMBER
OF

SWITCHES

FORTH

USE

AND

FLAGS

(ALL

IN 2.3 DETAILS OF

THE PROGRAM, ALL

OPTIONAL)

AND THE DETAILS OF

COMMANDS AND SYNTAX''.

YOU NEED TO SAY

HOWEVER,

IS SOMETHING LIKE

THESE ARE
IN

THIS:

ORDER

SET

STA/PASS
: 1/FLAGS : HOE
THINGS

TO NOTE HERE:

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

THIS OR ANY COMMAND AT THE

THE "PASS'' SWITCH SPECIFIES HOW-MANY PASSES

PASS

CONSISTS

UNITS BEING TESTED

PASS

IS SPECIFIED

RUNNING

(THIS WILL

THE

IN THE ABOVE

FULL

YOU

DIAGNOSTIC

EXPLAINED

DESIRE.

AGAINST

ALL

SHORTLY).

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS,
THE

MAIN USEFUL

LOE
HOc

ONE

EXAMPLE.

ONES ARE:

BUT

LOOP ONE ERROR
HALT ON ERROR

IER

INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY

{

SHORTLY).

tRA
R kY

STEP 3 «

AR ET R RRERS

WHEN YOU HAVE TYPED IN A "'START'® COMMAND,
BACK

TYPING

WITH

IN THE

A WORD OF

DEVICE

THE

QUESTION

NUMBER OF

WARNING HERE:

‘%

DEVICES
THE

THE DIAGNOSTIC.

(UNITS?'"

YOU WISH

NUMBER OF

THE

DIAGNOSTIC

WILL

C(OME

TO WHICH YOU SHOULD RESPOND BY
TO

UNITS

FOR EXAMPLE,

TEST.
DEPENDS

THE DIAGNOSTIC

THE

TARGET

1S DIRECTED

SEQ 0005

Page 6

SEQ 0006

AT A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
DRIVES
TO BE
TESTED.
WHEREAS IF THE DIAGNOSTIC 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
C(ODE.
SHOULD BE THE DEVICE

ONE
TYPE

OF
OF

THE
OPERANDS OF
THE DIAGNOSTIC.

THIS "HEADER'® STATEMENT

AR AR AT RW

STEP 4

»
w's

TR RARR AN

WHEN YOU HAVE
TYPED
IN
THE
NUMBER
OF
UNITS
TO
BE
TESTED,
THE
OIAGNOSTIC
WILL
ASK
YOU
THE
'HARDWARE QUESTIONS''." THE ANSWERS T0O
THESE QUESTIONS ARE USED TO BUILD TABLES
IN
C(ORE,
C(ALLED
'HARDWARE

F;Eg?glfiES".

ONE

HARDWARE

SEVERAL HARDWARE

P-TABLE

WILL BE BUILT FOR EACH UNIT TO BE

POSED N TIMES, WHERE N IS THE NUMBER OF

THERE

ARE

UNITS.

THIS

REPRESENTS

NEW

QUESTIONS AND

PHILOSOPHY

THE

ENTIRE

SERIES

DIAGNOSTIC

WILL

ENGINEERING.

DIAGNOSTICS
IN
THE
FUTURE WILL 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.
AR R AR R AT RN

« STEP 5 =
ARk
ko w

AFTER YOU HAVE ANSWERED
THE
UNITS, YOU WILL BE
SOF TWARE QUESTIONS THAT
»
IF
YOU
WANT TO

ALL THE HARDWARE QUESTIONS (SEC 2.5)
FOR
ALL
ASKED ''CHANGE SW?'' IF YOU WANT TO BE ASKED THE
DETERMINE THE BEHAVIOR OF THIS
PROGRAM,
TYPE
TAKE ALL THE DEFAULTS TO THESE QUESTICNS, TYPE

PROGRAM.

QUESTIONS WILL BE ASKED JUST ONCE,

"N''.
2.6),

IF YOU TYPE 'Y'' YOU WILL BE ASKED THE
SOFTWARE
QUESTIONS
(SEC
AND
THE
ANSWERS
WILL BE PUT INTO THE SOF TWARE P-TABLE IN THE
THE

SERIES OF

THE NUMBER OF UNITS TO BE

REGARDLESS

TESTED.

TRAERRE
AR NN

«
LA S

STEP
6 ~
2

a2 ddd

AFTER YOU HAVE ANSWERED

THE

THAT

DEPENDING

BEGIN

EXECUTE

(AN HAPPEN

THE

NEXT,

SOF TWARE

HARDWARE

QUESTIONS,

TEST (ODE.
ON

WHETHER

THE

DIAGNOSTIC

THERE ART SEVERAL
A

HARDWARL

ENCOUNTERED
AND
ALSO ON WHAT SWITCH VALUES YOU SELECTED ON
COMMAND.
(ONSIDER THE POSSIBILITIES:
1.

IF NO ERROR IS ENCOUNTERED,

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

THEN THE

DIAGNOSTIC

WILL

THINGS

ERROR

THE

WILL

START

SIMPLY

NUMBER OF PASSES AND RETURN TO COMMAND

Page 7

1F AN ERROR IS ENLIOUNTERED, THEN ONE OF

DEPENDING ON THE SETTINGS OF
HOE
_

SET:

LOE-SET:

THREE THINGS HAPPENS,

THE HOE AND LOE FLAGS.

THE ERROR WILL BE REPORTED ON THE CONSOLE AND

THE

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 NC 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 THE DIAGNOSTIC.
IF NO ERRORS ARE ENCOUNTERED,
THE
gé?glsssDREOUESTED

PASS

WILL

AN ERROR IS ENCOUNTERED,

EXECUTED

AND

THE

PROMPT

WILL BE

THE ERROR WILL BE REPORTED AND THE

WILL
BE
REISSUED (BECAUSE THE HOE §LAG IS SET).
AT THIS POINT
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAINS:

2.
3.

ISSUE ANOTHER °''START'' COMMAND

2. 3. 4. 5, AND 6 AGAIN)

THERE

STEPS

ISSUE A "RESTART'' COMMAND (SAME AS START COMMAND EXCEPT

THAT

ISSUE A '‘CONTINUE'' COMMAND

THE

THE HARDWARE QUESTIONS ARE NOT ASKED)

BEGINNING
CONSIST OF

(EXECUTION

WILL

RESUME

OF
THE PARTICULAR HARDWARE TEST (MOST DJAGNOSTICS
A NUMBER OF THESE) THAT 1T WAS IN WHEN
THE
ERROR

HALT OCCURED.

(THUS GOING THRU ALL

PROMPT

NO QUESTIONS ASKED.

ISSUE A "PROCEED'' COMMAND:
EXECUTION
WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE
ERROR
REPORT (THIS [S A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).

THE MCSTM TYPICAL THING TO DO HERE IS TO ISSUE THE
PROCEED,
DIFFERENT FLAG SETTINGS.
PROBABLY ¥YOU WOULD WANT TQ SAY
PRO/FLAGS: IER:LOE : HOE=0

BUT

WITH

SEQ 0007

Page 8
THIS WILL DO THE

FOLLOWING:

TURN ON THE

[ER

(INHIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFF

RESUME EXECUTION AT

FLAG

THE HOE FLAG
INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LCOP ON

THE BLOCK OF

(ODE

THAT

REPORTED
THE
ERROR, BUT NO ERROR PRINTOUT WILL'OCCUR.
STUDY- THE ERROR OR SCOPE IT OR WHATEVER.

ODETECTED

AND
THUS YOU CAN

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS
WILL
TAKE
YOU
OUT
OF
THE
LOOP
AND
PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
THREE

CHOICES:

START

RESTART

CONTINE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND
RUNNING THE DIAGNOSTIC.
YOU wOULD TYPE

WANT

FINISH

AND

RESUME
IFf THE

CON/FLAGS :HOE : IER=0:L0E=0
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 TO END OF PASS.

éfb?}FgND OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU
1.

START

RESTART

YOU WO
D (HOOSE ONE, DEPENDINC ON WHETHER
HARDWARE GUESTIONS AGAIN.

YOU WANTEL

THE

MHAVE

Two

ANSWER

THE

SEQ 0008

Page 9
THE FULL PRINT=0OUT

FROM THE

ABOVE

DIALOGUE MIGHT LOOK LIKE

WHOM

AR A A AR R AR A AR

THIS POINT

THE

THE ERROR UNTIL

YOU HAVE

2SR

"°

LOCATED

CHANGE

? N

DS-B>RESTART/PASS: 1
5SW

(L)

8
S

N
8
8
8

THE

YOU CAN SCOPE

IT,

THEN “C

QUT

s 2222222233228

DS-B>CON/FLAGS: HOE IER:LOE=0

CHANGE SW (L)
DZRKXX EOP 1

A A AR AR ARk

IS LOOPING ON

ERROR WITHOUT PRINTING ANYTHING.

A AR AR AR R AR AR

DIAGNOSTIC

DS=-B>PRO/FLAGS:
IER: LOE : HOE=0

POO0O00

CSR (0) 7
VECTOR (0) ?
BR LEVEL (O) ?
DRIVE (0) ? 1
CHANGE SW (L) ? N
{E)IZQSKXXTHARD ERR 00004 TST 003 SuB 002 PC:004130

UNIT 2

0000

2 2

UNIT 1
CSR (0) ?
VECTOR (0) ?
BR LEVEL (0) ?
DRIVE (0O) 2?2 O

(D)

# UNITS

\Tivhwlvlvivivivivlelvivielvlvlivievlelelelele)

ENTERED:
0

.R DZRKXX
DZRK XX
L=ClK (L) N2 Y
S50HZ (L) N ?
LSI (L) N?
LPT (L) N ?
MEM (k) (D) 16 °
DS-B>STA/PASS:1/FLAGS
: HOE

0.0

0.0
D

D.O

THIS:

SEQ 0009

Page 10

2.2

HOW TO CREATE A CHAINABLE FILE

THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE

RUN

CHAIN MODE.
THA IS WHY IT BEARS THE EXTENSION 'BIN'' INSTEAD OF 'BIC''.
$85855130¢ WAY, HOWEVER, TO
C(REATE
A
C(HAINABLE
PROCRAM FROM WHAT

IT CONSISTS OF RUNNING THE PROGRAM WITH
THE
SPECIAL
COMMAND
‘‘CCI"’
ISSUED
WHERE
YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMFT
DS-B>.
THIS
COMMAND
C(AUSES
THE
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
gg$ENg?82RthCAS
IT
SITS
IN
CORE
TO THE LOAD MEDIUM, WITH THE NEW
HERE

IS A SAMPLE

DIALOGUE

.R UPD2

RESTART:

TO ACCOMPLISH

THIS:

XXXXXX

*CLR
*0OAD DIAG.BIN
XFER:200
CORE:0,60602
*START 200
L=CLK (L) N ?

DS-B>(CCI

# UNITS

(D)

CHANGE SW
PTAE END:

? 4

(L) ? N
60632

AERRRARAARA AR AN

A A AR AR A AR AR

AR R

ARk

*AT THIS POINT THE MACHINE HALTS AND~»
*YOU MUST RESTART AT ADDRESS
XXXXXX*
AR AR

TR A A AAAAA A AR

AR A AR R ARk hkw

*H]CORE 60632
CORE:
0,60632
*DUMP DKO: DIAG.BIC
THE RESULT OF

DOING THIS

CONTAINING THE XXDP COMMAND

THAT

YOU CAN NOW BUILD AN XXDP CHAIN

FILE

.R DJAG.BIC
AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION,
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND.

USING

THE

SEQ 0010

Page 11

2.5

DETAILS OF COMMANDS AND SYNTAX

2.3.7

TABLE OF COMMAND VALIDITY

THERE

ARE

SUBSETS OF

FOUR WAYS OF

ENTERING DIAGNOSTIC

COMMAND MODE,

HOW ENTERED

AND DIFFERENT

THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:
LEGAL

OPERATOR ENTERED

'KUN DIAG'

COMMANDS

START
PRINT

DISPLAY
FLAGS

ZFLAGS

D IAGNOSTIC HAS FINISHED ALL
I TS REQUESTED PASSED

START

RESTART
PRINT

DISPLAY
FLAGS

ZFLAGS

. 18

OPERATOR INTERRUPTED THE

START

DIAGNOSTIC WITH CTRL/C

RESTART
CONTINUE

PRINT
DISPLAY
FLAGS

ZFLAGS

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED
PRINT
DISPIAY

FLAGS

ZFLAGS

2.5.2 COMMAND SYNTAX
AR AL SRR

E eSS
222222223323 22232222223

STA(RT) /TESTS:TEST=LIST/PASS:PASS=CNT/FLAGS
:FLAG=L IST/EOP:EOP=TNCR
LA R

ARl

S eSS
2 22 223322 33222222 2222222222

THE DIAGNOSTIC

IN CORE

IS EXECUTED

FOLLOWING:

OPERATOR

ACCORDANCE

WITH

THE

SWITCHES

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

TYPED

'RUN DIAGNOSTIC'' B)

EXECUTING () ERROR WAS ENCOUNTERED
ENTERED CONTROL/C.

WITH

HOE

FLAG

DIAGNOSTIC

SET

FINISHED

OPERATOR

SEQ 0011

M1
Page 12
AFTER THE OPERATOR RESPONDS TO "% UNITS?'', THE
HARDWARE
DIALOGUE
IS
INITIATED.
WHEN
IT
IS
COMPLETED,
THE
QUESTIONS
‘'‘CHANGE SW?'' IS
ISSUED, AND THE ANSWERS, IF GIVEN, BECOME THE NEW DEFAULTS.
THEREFORE
IT
IS_ NECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD
DEFAULTS.
THE

SWITCH ARGUMENTS ARE AS FOLLOWS:

"TEST-LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR
DECIMAL NUMBERS
THE

NUMBERS ARE

(1-5:8-10 ETC.)

RANGES

THAT SPECIFY THE TESTS TO BE EXECUTED.

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

ELEMENTS OF

THE

PASSES.
A
PASS
IS
DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL 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 O" THE FOLLOWING VALUES:

SEPARATED BY

COLONS,

WHERE

HOE

HALT ON ERROR, CAUSING COMMAND MODE TO BE

ENTERED

LOE

LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO

LOOP

IER
IBE
IXE

SUBTEST, OR TEST) CONTAINING THE ERROR
INHIBIT ERROR REPORTING
INHIBIT BASIC ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS
.

ERROR IS ENCOUNTERED

WITHIN

THE

SMALLEST
" DEFINED

BLOCK

PRI
PNT
BOE

DIRECT ALL MESSAGES TO A LINE PRINTER
PRINT NUMBER OF TES BEING EXECUTED.
BELL ON ERROR

ISR

INHIBIT STATISTICAL REPORTS

UAM

IDU

RUN IN UNATTENDED MODE, BYPASSING MANUAL
INHIBIT DROPPING OF UNITS BY DIAGNOSTIC(

<FLAG>

WHEN

CONTINUOUSLY

CODING

(SEGMENT,

INTERVENTION TESTS

SEQ 0012

N 1
Page 13
THE FLAGS NAMCD OR EQUATED TO1 ARF
SET,
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.

THOSE
EQUATED
TO 0O ARE
IF THE FLAGS SWITCH IS NOT

"EOP=INCR'' IS A DECIMAL NUMBER

HOW

GIVEN ALL FLAGS ARE CLEARED.
PASSES)
DEFAULT

INDICATING

OFTEN

(IN

TERMS

IT
IS
DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
IS AT THE END OF EVERY PASS.

AR AR R R AR AR R AR AR AR A AR AR AR R

Akl

s e s

THE

o e o o e eo s e o e eo o o o o

RES(TART)/TEST:TEST=LIST/PASS:PASS=CNT/FLAGS:FLAG=LIST/EOP:EOP=INCR/UNITS :UNIT=LIST

L2322 2822222ttt
ssis ittt
sttt
il sl ]

THE DIAGNOSTIC

SPECIFIED.

IN CORE

IS EXECUTED IN

ACCORDANCE

HOWEVER, NEW P-TABLES ARE NOT BUILT.

WITH

THE

INSTEAD,

SWITCHES

THE ONES IN

CORE ARE USED.
THE QUESTION '‘CHANGE SW?'' IS ASKED, AND THE ANSERS IF GIVEN BECOME THE
NEW
DEFAULTS.
THE
COMMAND
MAY BE ISSUED WHEN COMAND MODE HAS BEEN
ENTERED VIA A) DIAGNOSTIC IS FINISHED B, HALT ON ERROR () CONTROL/C.
THE

SWITCH ARGUMENTS ARE

IN THE

START

"UNIT-LIST'' IS A SEQUENCE OF
FROM
1
THRU N
WHICH UNITS ARE

DESTGNATES
THE

NOT

ORDER

HAVE

COMMAND EXCEPT:

LOGICAL

UNIT

NUMBERS

RANGING

(N = NUMBER OF UNITS BEING TESTED) SPECIFYING
TO
BE
TESTED.
THE
LOGICAL
UNIT
NUMBER

THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO

IN WHICH

BEEN

THEY WERE BUILT.

DROPPED

THE

UNITS

SPECIFIED MUST

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.

IS AUTGMATICALLY RESET TO "‘ALL'")

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

't'ttt'ttittti"tt”filtittitt.tttt*ittttttt

CONCTINUE ) /PASS : <PASS=CNT/FLAGS
:
<FLAG=LIST>
AR

AR AR AR R AR AR R A AR

AR A AR R AR AR

ARk

COMMAND MODE MUST HAVE BEEN ENTERED DUE
TO
A
HALT
ON
ERROR
OR
A
CONTRCL/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

IN THE

START

COMMAND EXCEFT:

DEFALT FOR PASS=(NT IS
THE
PREVIOUS START OR RESTART

(UNSATISFIED

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PASS=(NT
.

FROM

THF

SEQ 0013

Fage 14
AAAASAS ARARttt
Rl

PRO(CCEED)
/FLAGS : <FLAG=L IST>
AR

AR R AR TR AR R RN

COMMAND MODE MUST HAVE BEEN ENTERED VIA 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

1.
R

THE

SAME AS

THE

START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED
R R R

A A

A R R

R AR AR AR AR R AR AR R AR

AR AR AR Rk

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

R R

A A A A

A A

A AR

AR AR AR AR AR R AR R AR AR AR AR ARk

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND
HALTS
AT
THE
HARDWARE
TEST
(CODE.
NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE
MEDIUM WITH A BIC EXTENSION.
THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON

RUN

MANUALLY

THE

PRE-GENERATED

CHAIN

MODE.

WHETHER

IF RUN MANUALLY IT CAN BE

INVOKED

EITHER WITH A "'START'' (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILE:
ANSWERS

TO OPERATOR QUESTIONS WILL BE

U{E’L‘ SE'BEEB?RT" (IN WHICH CASE
W

THE

PRE~GENERATED

IGNORED)

OPERATOR

ANSWERS

IF RUN IN CHAIN MODE, AUTOMATIC EXECUTION
WwILL
COMMENCE
IMMEDIATELY
EERGI.SSLTEHIE) XXDP COMMAND ‘‘.R DIAG''.
THE COMMAND PROMPT ‘DS-8>'' WILL NOT
ANY SWITCHES SPECIFIED ON THE CCI COMMAND WILL CARRY OVER WHEN THE BI L
FILE
IS
RUN
IN CHAIN MODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BU T
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.
KRR AR AR TR A A AR AR

DRO(P) /UNITS:UNIT=-LIST
LA

A sttt
s s

THE UNITS SPECIFIED ARE DROPPED FROM

%OClEjgglL

START

TESTING UNTIL

(OMMAND IS GIVEN.

THEY ARE

ADDED BAC(K

A DROP CANNOT BE FOL'.OWED BY A

THERE IS ALSO A 'DROP’'’' MACRO INTERNAL TO THE DIAGNOSTIC,
WHICH
GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE
DURATION
OF
A PROGRAM DROP,
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.

SEQ 0014

Page 15
AR

AR AR

ADD/UNITS:UNIT=-LIST
AR

R AR

RA RS

THE UNITS SPECIFIED ARE ADDED BACK (THEY
MUST
HAVE
DROPPED
BY
THE DROP COMMAND) TO THE TEST SEQUENCE.
FOLLOWED BY A PROCEED.

LA 2

BEEN
PREVIOUSLY
AN ADD CANNOT BE

PRI (NT)
LA A4 2

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED.
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.
ARAARA AR AR AR AR

THE

w®

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

AR AR A A AR AR AR AR AW

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE
FORMAT

IN WHICH THEY WERE

ENTERED.

ANY UNITS

OPERATOR 'DROP'' COMMAND ARE SO DESIGNATED.

PRINTED OUT

THE

REVEALED
:

THE

THAT WERE

DROPPED BY

THE

LA
4 8 2 & 4

FLA(GS)
LA 2

THE
LA &

& 4

CURRENT
8

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

ZFL (AGS)
Le 2

ALL FLAGS ARE CLEARED.

2.4

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF
THE
HARDWARE
DIALOGUE
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

AS SOON AS THE QUESTION "W UNITS?'' IS ANSWERED
(WITH
THE
NUMBER
N,
SAY)
SPACE
IN CORE IS ALLOCATED FOR N P-TABLES.
ALL OF THE P-TABLES
ARE OF THE SAME FORMAT,
AND
THERE
IS
A
ONE-TO-ONE
CORRESPONDENCE

?EogpbfigN

THE HARDWARE PARAMETER QUESTIONS AND

THE

SLOTS

IN THE

P-TABLE

SEQ 0015

Page 16
ON_THE FIRST TRIP THRU THE QUESTIONS, ALL OF

P-TABLES

ARE

FILLED.

THE SLOTS IN ALL

THE OPERATOR TYPES

THE

IN LESS THAN N EXPLICIT

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 EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT
VALUE IN ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE
NUMBER
ONE
PLAYED IN THE FIRST TRIP.
THC SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR.

ONE

QUESTION

HAS

IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE
USED TO INDICATE A REPETITION 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
IN
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 NUMBER 77 FOR THE LAST 44 UNITS,
THE

FOLLOWING DIALOGUE

# UNITS

(D)

WOULD ACCOMPLISH

? 64

UNIT 1

<QUESTION 1> 2
<QUESTION 2> ?

75
1-20

<QUESTION 3> ? 76

UNIT 21

<QUESTION 2> ? 21-49,,51-64
<QUESTION 3> 2 77

THIS GOAL
:

SEQ 0016

Page 17
THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 IN
TABLES.
SLOT TwO RECEIVES THE VALUES 1,2,3,...,20 IN TABLES 1

AND_A CONSTANT 20 IN

TABLES

CONSTANT 76 IN ALL 64 TABLES.

THE

SECOND TIME

AFFECTED

THRU THE

(NOTE

THRU

SERIES,

64.

TABLES 21

THAT THIS PIECE OF

THE OPERATOR IN THE FORM 'UNIT XX AT

INF

SLOT

THREE

THRU THE

ALL
64
THRU 20

RECEIVES

GOING

END ARE

TION IS PRINTED OUT FOR

THE BEGINNING OF

EACH SERIES).

QUESTION 1 IS RESPONDED TO BY A <CR>, SO SLOT ONE STAYS A CONSTANT
75
IN TABLES 21 THRU 64,
SINCE NO NEW EXLICIT VALUES ARE TYPED IN.
SLOT

TWO GETS THE VALUES 21,22.23.....49 IN TABLES 21 THRU 49, AND

64.

THAT

THRU

SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64.

THE DIALOGUE IS

EXPLICIT
VALUES
QUESTION 2).

2.5
THE

GETS

SLOT 50, AND GETS THE VALUES 51,52,53,....64 IN TABLES 51

TERMINATED
HAVE

BEEN

WHEN

GIVEN

THE

FOR

SOFTWARE

RECOGNIZES

AT LEAST ON QUESTION (NAMELY
:

HARDWARE PARAMETERS
FOLLOWING QUESTIONS WILL BE

ASKED ON A

START

LOCATED
TO
THE
LEFT
OF THE QUESTION MARK
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RL11

(L)

COMMAND.

THE

IS THE DEFAULT VALUE

VALUE

THAT

¥?

ANSWER YES(Y) IF YOU HAVE AN RL11
RLVi1 CONTROLLER.

BUS ADDRESS (0)

YOU

HAVE

1744002

ANSWER WITH THE BUS ADDRESS OF

VECTOR (0)

CONTROLLER, NO(N)

THE CONTROLLER.

330?

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER.
BR LEVEL

(0)

ANSWER WITH THE

DRIVE

(0)

INTERRUPT PRIORITY OF

THE

CONTROLLER.

TO THE

CONTROLLER.

ANSWER WITH THE DRIVE(S)

2.6

THE

CONNECTED

SOF TWARE PARAMETERS
FOLLOWING QUESTIONS ARE

ASKED

REQUESTED ON A

START,

RESTART,

COUNTINUE

CONTINUE.
THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES,
THE
SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY
IT
RUNS.
THE

PARAMETERS

ANSWERING

(Y)ES

CAN

TO THE

MODIFIED ON A START,

FOLLOWING QUESTION:

RESTART,

SEQ 0017

F
&
Page 18
CHANGE S.w.

A YES ANSWER WILL ASK THE
THE

PRESENT

DEFAULT

FOLLOWING SOF TWARE PARAMETER QUESTIONS, WITH

VALUE

PRINTED

TO THE

LEFT OF

THE

QUESTION MARK.

(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <(CR>.
ggg¥ROL
Z
(*2)
WILL
DEFAULT
ALL REMAINING QUESTIONS AND START THE

DROP ON ERROR LIMIT
TO ALLOW THE UNIT
ARE ENCOUNTERED.

(L)

TO BE

¥?
DROPPED ONCE

A PREDETERMINED NUMBER OF

ERRORS

ANSWER Y OR N

ERROR LIMIT
NUMBER OF

(D)

10?

ERRORS ALLOWED BEFORE DROPPING UNIT.

ANSWER 1 TO 65K
AUTOSIZE

(L)

TO CHECK

TO SEE

;

N?
IF

UNIT

(VIA DRIVE READY),

SPECIFIED ACTUALLY

EXISTS

NOT UNIT WILL NCT BE

TESTED.

BEFORE

TESTING

ANSWER Y OR N
COMPARE DATA ON DCK
WHEN A DATA CHECK

COMPARISON OF

(L)

IS ENCOUNTERED AND DATA

DATA.

IS KNOWN,

ALLOW

INCORE

ANSWER Y OR N
# OF

WORDS

IN ERROR REPORTED

NUMBER OF MISCOMPARES

(D)

TO BE PRINTED ON CONSOLE DEVICE.

ANSWER 0 - 128

2.0 ERROR ]NFORMATION

ALL ERROR INFORMATION IS PRINTED ON THE CONSOLF DECIVE.
ERROR REPORTS
ARE AIMED AT BEING SELF EXPLANATORY.
THE GENERAL FORMAT [S:

DZRL?

XXX

ERR

YYYYY

I8t

:
WHERE

XXX

{g PROGRAM LETTER

SFT = SOFT ERROR
HRD = HARD ERRCR

SUB

PPP

PC:

RRRRRR

SEQ 0018

Page 19

SEQ 0019

Dv FAT - DEVICE FATAL ERROR
SYS FAT = SYSTEM FATAL ERROR

YYYYY

IS THE ERROR NUMBER

122

IS THE TEST NUMBER

RRRRRR

PPpP

IS THE SUBTEST NUMBER

THE PROGRAM LISTING LOCATION

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERRORALONG WITH A ONE LINE DESCRIPTION AND RELEVENT DATA.

:
EXAMPLE

ONE LINE DESCRIPTION
(OPTIONAL
(OPTIONAL

SECOND LINE)
THIRD LINE)

BEFORE COMMAND: CS:XXXXXX BA: XXX DA : XXXXXX MP s XXXXXX
TIME OF ERROR-::
CSXOOMXXX BADOOXX DA XXX MP 2 OO XXX XXXXXX

3.2 ERROR HALTS
ERROR HALTS ARE
/FLAG:HOE.

SUPPORTED PER DESCRIBED

THERE

ARE

NO OTHER HALTS.

IN THE

SECTION

WITH

4.0 PERFORMANCE AND PROGRESS REPORTS
4.1

PERFORMANCE

REPORTS

THIS PROGRAM WILL

NOT

GIVE

ANY PERFORMANCE

GIVE

ANY

REPORTS.

4.2 PROGPESS REPORTS
THIS PROGRAM WILL

5.0 DEVICE
| THE

NOT

PRUGRESS RFPCRTS.

INFORMATION TABLES

RL11/RLV11

CONTRCL OF

CONTROLLER HAS

THE

FOLLOWING

]
I
L

et
-2

NWsHO»D

—~

(XXXXXQ)

COMPOSITE ERROR

RIVE ERROR

NON EXISTANT MEMORY ERROR
HEADER NOT FOUND (W!TH BI T 10 SET)
)
DATA LATE (WITH BIT 10 C LEAR
HEADER CRC (WITH BIT 10 SET

DATA CRC

oo
1

-3

®mmm

—

ey
—y

FOUR(4)

THE SUBSYSTEM,

RLCS = CONTROL AND STATUS REGISTER

—

(WITH BIT 10 ¢ LEA

OPERATION INCOMPLETE

= DRIVE

SELECT

(0-3)

REGISTERS

FOR

;

A|
U

)

CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS
EXTENDED BUS ADDRESS

NOANS W=

nab

[ 21V,
Ts JEN

Page 20

FUNCTION CODE

(BIT 17)
(BIT 16)

= NOP_(PDP=11) MAINT

(LSI=11)

WRITE CHECK
GET DRIVE STATUS
SEEK
READ HEADER
WRITE DATA
READ DATA
READ WITHOUT HEADER COMPARE

O = DRIVE READY

BIT

RLBA = BUS ADDRESS REGISTER

(XXXXX2)

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT O SHOULD BE 0O

RLDA = DISK ADDRESS REGISTER

FUNCTIONS

15 = MUST BE ZERO(0)

14=7 - CYLINDER ADDRESS FOR TRANSFER
6 = SURFACE FOR TRANSFER
5-0 = SECTOR FOK TRANSFER (0=47)
SEEK FUNCTION
1

3
2

MUST BE ZERO(Q)
= DIFFERENCE TO NEW CYLINDER
= MUST BE ZERO(D)

| &
IRV
|
~N
|

®mW

b
— b

e
et

)~
)

g b
g

)
)

g B

)
]

eodoodvoloslvelosfocfey

— -

FOR READ/WRITE

(XXXXX&)

SURFACE
MUST BE ZERO
SEEK DIRECTIONC

MUST BE ZERO
MUST BE ONE (1)

= IN / Q@ = OUT )

GET STATUS FUNCTION

BIT 15-4 = IGNORED SHOULD BE ZERO
BIT 3 - DRIVE RESET

BIT 2 = MUST BE ZERU

BIT 1 = MUST BE ONE
BIT O = MUST BE ONE

SEQ 0020

Page 21
RLMP = MULTIPURPOSE

SEQ 0021

FOR READ HEADER FUNCTION

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ)
= ZERO WORD (SECOND READ)
= HEADER CRC

SEEK = TRACK COUNTING

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL NOT CAUSE
A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC BETWEEN THE

CONTROLLER AND PROCESSOR,

TEST 02 = WRITE FUNCTION

——

TEST 01 - WRITE NPR INTEGRITY

——

€.0 TEST SUMMARIES

e et g

SEEK = LINEAR MODE
UNLOAD HEADS
SPIN DOWN

e e

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(VC)
DRIVE SELECT ERROR(DSE)
(0)
RESERVED
SURFACE
COVER OPEN
HEADS HOME
= BRUSHES HOME
STATE BITS
- LOAD STATE
SPIN UP
BRUSH CYCLE
LOAD HEADS
NN
AN -=O |

B
B

By Bt
et B

B
B
B
e R

Bt Bt bt Bt B

R
B
B
B
B

St Bt Bt Pt B

S—

e b

DOOOWD®OEDnEODDED

HAS DRIVE

STATUS FUNCTION

FOR GET

(THIRD READ)

oee e

BIT 15 = 0 = WORD COUNT(TWO'S COMPL IMENT)

FOR READ/WRITE FUNCTION

Page 22
THIS

TEST WILL

VERIFY

THAT

THE

WRITE

CONTROLLER READY AND POST NO ERRORS.
| TEST 03 -~ WRITE

PESET

FUNCTION INTERRUPT

THIS TEST WILL VERIFY THAT THE WRITE
AN INTERRUPT ON COMPLETION.

l TEST

FUNCTION WILL

- PROPER

INCREMENT

THIS

WILL

TEST

VERIFY

FUNCTION WILL GENERATE

RLBA ON WRITE
THAT

THE

PROPERLY ON A WRITE FUNCTION.

BUS ADDRESS REGISTER

INCREMTNTS

iresr 05 - PROPER INCREMENT OF RLDA ON WR.TE
THIS TEST WILL VERIFY THAT THE
PROPERLY ON A WRITE FUNCTION.

TEST

- FORCE HEADER NOT

DISK ADDRESS REGISTER

INCREMENTS

FOUND WITH WRITE

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR ON A WRITE.
THE
RLDA IS SET UP TO LOOK FOR SECTOR 40, A WRITE IS THEN ISSUED.
THE HEADER NOT FOUND ERROR SHOULD THEN SET.
TEST 07

- FORCE INTERRUPT WITH HNF
THIS

TEST

WILL

FORCE

A HEADER NOT

FOUND

ERROR

UNDER

INTERRUPT

CONTROL
.

TEST 08 - CHECK OPI

TIME WITH HNF

THIS TEST WILL TIME THE SETTING OF HNF (OPI) FROM ISSUANCE.
THIS IS DONE BY ISSUING A WRITE TO SECTOR 40.
THE TIME OF OPI

SHOULD BE AROUND 200 MILLISECONDS.

TEST 09 - MULTIPLE
THIS

TEST

SECTOR TRANSFER ON WRITE
THE

ONE SECTOR.
TEST

ABILITY FOR

THE

WRITE

FUNCTION

TO WRITE

WE SET UP FOR A TWO SECTOR WRITE.

THAN

10 - CHECK DIRECTION OF WRITE NPR
THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A WRITE FUN(C=TICN IS FROM MEMORY TO THE CONTROLLER.
THIS IS DONE BY
WRITING A PATTERN IN MEMORY AND ISSUING A WRITE, THEN (HECKING

MEMORY TO VERIFY THAT

IT DID NOT GET DISTURRBED.

Sea 0022

Page 23

TEST 11

= (HECK FULL

INCREMENT OF RLBA

THIS TEST WILL
16 BIT RANGE.

CHECK THAT THE RLBA CAN INCREMENT OF THE
THIS IS DONE BY ISSUING A ONE WORD WRITE

CHECK EACH BIT TOGGLE FROM 1-0 AND 0-1.
TO 177776 REGARDLESS OF MEMORY SIZE.
TEST 12 = BA BIT
THIS

TEST

15 - BA BIT
THIS

BIT

THIS IS DONE FROM 0

16 INCREMENT
WILL

RLBA IS 177776.
TEST

FULL
TO

CHECK

THAT BUS ADDRESS BIT

16 WILL

SET

THAT BUS ADDRESS BIT

17 WILL

SET WHEN

AND THAT

THE RLBA GOES TO O.

WHEN

THE

17 INCREMENT

TEST WILL

CHECK

16 AND THE RLBA ARE

T0 GO TO ZERO.

TEST 14 = READ NPR

SET.

THE RLBA AND BIT 16 ARE CHECKED

INTEGRITY

THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL NOT CAUSE
A BUS TRAP THEREFORE VERIFYINGC TM = NPR LOGIC BETWEEN THE
CONTROLLER AND PROCESSOR.
TEST 15 = READ FUNCTION
THIS

TEST WILL

VERIFY

THAT

THE

READ FUNCTION WILL

RESET

THE

READ FUNCTION WILL

GENERATE

CONTROLLER READY AND POST NO ERRORS.
TEST

= READ FUNCTION INTERRUPT
THIS

TEST WILL

VERIFY

THAT

AN INTERRUPT ON COMPLETION.

TEST

= CHECK DIRECTION OF

READ NPR

THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A READ FUN(CTION IS FROM CONTROLLER TO THE MEMORY.
THIS IS DONE BY
WRITING A PATTERN IN MEMORY AND ISSUING A READ, THEN CHECKING

MEMORY TO VERIFY THAT
TEST 18 = PROPER

INCREMENT OF

IT DID NOT GET DISTURRED.

RLBA ON READ

THIS TEST WILL VERIFY THAT THE
PROPERLY ON A READ FUNCTION,

BUS ADDRESS REGISTER

INCREMENTS

SEQ 0023

Page 24
TEST 19 - PROPER INCREMENT OF RLDA ON READ
THIS TEST WILL VERIFY THAT THE
PROPERLY ON A READ FUNCTION.

TEST 20 - FORCE HEADER NOT
THIS

TEST WILL

DISK ADDRESS REGISTER

FOUND WITH READ

FORCE

A HEADER NOT

FOUND ERROR ON A READ.

RLDA IS SET UP TO LOOK FOR SECTOR 40, A READ
THE HEADER NOT FOUND ERROR SHOULD THEN SET.
TEST 21

= FORCE

INTERRUPT

THIS TEST WILL
CONTROL
.

INCREMENTS

THE

IS THEN ISSUED.

WITH HNF

FORCE

A HEADER NOT

FOUND ERROR UNDER

INTERRUPT

22 = CHECK HEADER COMPARE LOGIC
THIS TEST WILL EXTENSIVELY
THE HEADER WORD TO COMPARE

CHECK THE CYLINDER AND HEAD BITS OF
CORRECTLY.
THIS IS DONE BY WALKING

AND GROWING O'S AND 1'S THRU THE PROPER RLDA BITS AND

READ

TO SEE

TEST 23 = MULTIPLE

ALL BIT POSITIONS

ISSUING

CAN COMPARE.

SECTOR TRANSFER ON READ

THIS TEST THE ABILITY FOR THE READ FUNCTION TO WRITE MORE
ONE SECTOR.
WE SET UP FOR A TWO SECTOR READ.
TEST

24 = FORCE HNF AT END OF

THAN

TRA(K

THIS TEST WILL CHECK THE ABILITY TO DETECT HEADER NOT FOUND
AT THE END OF A TRACK.
THIS DONE BY SETTING UP FOR A TWO

SECTOR READ AT SECTOR 39.

TEST 25 = FORCE
THIS

NON-EXISTANT MEMORY ERROR

TEST WILL

CHECK

THAT

THE

NON-EXISTANT MEMORY

ERROR

(NXM)

CAN SET.
WE WILL ISSUE A READ TO THE MAXIMUM ADDRESS AND
EXPECT A NXM ERROR.
(THIS TEST WILL NOT BE DONE ON A 128k

MACHINE.)
TEST 26 = FORCE
THIS

NXM UNDER

TEST WILL

INTERRUPT

ATTEMPT

TO FORCE AN

INTERRUPT

TEST WILL NOT BE DONE ONA 128k MACHINE.)

TEST

7 = (HECK READ WRITF LOOP

VIA NXM,

(THIS

SEQ 0024

M2
Page 25

THIS TEST WILL WRITE A PATTERN TO SECTOR O AND TRY TO RECOVER
IT WITH A WRITE.
| TEST 28 = CHECK OF
THIS

SILO LINES

TEST WILL

PATTERNS VERIFY

I!ED TOGETHER.

TEST

CHECK

THAT

THE

AND

READ UNIQUE

SILO ARE NOT

BIT

STUCK OR

THIS IS DONE WITH WALKING AND GROWING 0'S AND

29 = (HECK THROUGHPUT OF

SILO

THIS TEST WILL ATTEMPT

TO CHECK

SILO IS WORKING CORRECTLY.

PATTERNS AND READ
AND CORRECT.
TEST

CAN WRITE

LLINES ON THE

IT SBACK

THAT

THE

FALL

THROUGH OF

WE WRITE A SECTOR OF

CHECKING

THE

128 UNIQUE

THAT EACH LOCATION

IS UNIQUE

30 = CHECK ZERO FILL ON WRITE
THIS TEST WILL CHECK THE ABILITY OF THE CONTROLLER TO FILL THE
REMAINING SECTOR WITH ZEROS ON A WRITE.
WE WRITE A SECTOR WITH
FROM 1 TO 127 WORDS,
READ IT BACK AND VERIFY THAT THE NON
WRITTEN WORDS ARE ZERO.

TEST 3 = CHECK SECTOR BITS ON HEADER COMPARE
THIS TEST WILL CHECK THAT THE SECTOR BITS CAN COMPARE CORRECTLY.
THIS IS DONE BY WRITING THE SECTORS ADDRESS INTO THE SECTOR

FOR A FULL TRACK.
THE CORRECT DATA,

CORRECTLY.

TEST

32 = WRITE CHECK NPR INTEGRITY
THIS

TEST WILL

CAUSING A BUS
TEST

CHECK

TRAP.

THAT

TEST

THE

THIS

CHECK WILL

FUNCTION WITHOUT

IS SET UP TO HANDLE BUS

TRAPS.

TEST WILL

CHECK

THAT A WRITE

CHECK FUNCTION WILL

TIME WITHOUT POSTING ERRORS.

COMPLETE

34 = WRITE CHECK FUNCTION INTERRUPT
THIS

TEST WILL

CHECK

THAT AN

ISSUING A WRITE CHECK.

TEST

WRITE

33 = WRITE CHECK FUNCTION
WITH THE SPECIFIED

TEST

EACH SECTOR IS READ TO VERIFY THE SECTOR HAS
IF NOT THEN THE SECTOR BITS ARE NOT COMPARING

= PROPER

THIS

INCREMENT

TEST WwILL

CHECK

RLBA

THAT

INTERRUPT

ON WRITE

THE

RLBA

CAN BE

GENERATED

FRCM

CHECK

INCREMENTS PROMERLY

DURING A

SEQ 0025

Page 26
WRITE (CHECK.

= PROPER

TEST

INCREMENT OF RLDA ON WRITE

THIS TEST WILL
WRITE CHECK.
TEST

CHECK

CHECK THAT THE RLDA INCREMENTS PROPERLY DURING A

37 = MULTIPLE SECTOR WRITE CHECK

;?Ii ¥§gé WILL (HECK THAT WE CAN WRITE CHECK MORE THAN ONE SECTOR
TEST

38 = FORCE DCK WITH WRITE CHECK
THIS TEST WILL

CHECK.

WRITE
TEST

CHECK THAT WE

CAN DETECT A DCK DURING A WRITE

THIS IS DONE BY MODIFYING MEMORY BETWEEN A WRITE AND A

CHECK.

39 - FORCE DCK WITH WRITE CHECK INTERRUPT
THIS TEST WILL CHECK THAT A DCK DURING A WRITE
AN INTERRUPT TO OCCUR.

‘ TEST 40 = CHECK ZERO FILL ON WRITE WITH WRITE
THIS

TEST WILL VERIFY

THAT WE

WORD COUNTS FROM 1 - 127.
TEST 41

= 42 - EXTENDED CHECK OF
THESE

TERNS.

TESTS VERIFY

WRITE

THAT WE

CHECK WILL

CAUSE

CHECK

CAN SUCCESSFULLY WRITE

CHECK ALL

CHECK

CAN WRITE

CHECK SUCCESSFULLY ALL

PAT=-

PATTERNS USED ARE WALKING 1'S, 0'S, GROWING 1'S, 0'S.

TEST 43 = READ WITHOUT HEADER COMPARE

THIS TEST VERIFIES THAT THE FUNCTION READ WITHOUT HEADER COMPARE
(7) RESETS THE CONTROLLER READY AND POSTS NO ERRORS.
THE DISK

ADDRESS IS SET TO ALL ONES.

TEST 44 = READ WITHOUT HEADER COMPARE

THIS

TEST WILL

(OMPARE

(7)

VERIFY

THAT

CAN GENERATE

THE

INTERRUPT
FUNCTION READ WITHOUT HEADER

AN INTERRUPT ON COMPLETION.

TEST 45 = (HECK RD W/0 HDR (CMP READS
THIS

TEST

CHECKS

THAT

THE

FUNCTION CAN ACTUALLY RECOVER DATA,

WE WRITE A PATTERN IN MEMORY AND (HECK
OVERLAY [T WITH DATA,

THAT

TEST 4 = (HECK RLBA INCREMENT WITH RD W'C HDR (MP

THE

FUNCTION CAN

SEQ 0026

THIS TEST (HECKS THAT
FUNCTION.

THE RLBA CAN INCREMENT PROPERLY ON THE

TEST 47 = CHE(K RLDA DOES INCREMENT
THIS TEST CHECKS THAT THE RLDA DOES INCREMENT WITH THE
FUNCTION READ wlTHOUT HEADER COMPARE.

SEQ 0027

MAIN.
MACY11 3CA(1052)
22-NOv-78
CZRLBB.P11
22-NOV-78 15:28
88
154

221
227
334
580
723

757
819
1056

1107
1163

1205

1248
1291

1334
1390
1453
1506
1564

15:35

TABLE OF

SEQ 0028

CONTENTS

GLOBAL DATA
LIST TO CHECK HEADER COMPARE LOGIC

BUFFER FOR READ/WRITE
GLOBAL TEXT
GLOBAL ERRORS
INITIALIZATION CODE
GLOBAL SUBROUTINES

ROUTINE TO CHECK FOR CONTROLLER ERRORS
LOAD RLCS
*xTEST 1ax - WRITE NPR INTEGRETY

*xTEST 2%x = WRITE FUNCTION
*xTEST Jnx - WRITE FUNCTION INTERRUPT
*xTEST 4*x - PROPER INCREMENT OF RLBA ON WRITE
**TEST S*x - PROPER INCREMENT OF RLDA ON WRITE
**xTEST 6%*x - FORCE HEADER NOT FOUND WITH WRITE

*xTEST
*%xTEST
*xTEST
*«TEST
**TEST

7%x - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT
8xx - CHECK OPI TIME WITH HDR NT FND
9*x ~ MULTIPLE SECTOR TRANSFER ON WRITE
10%x - CHECK DIRECTION OF WRITE NPR
171%xx - CHECK FULL RLBA INCREMENT
12%x - BA BIT 16 INCREMENT
13%x - BA BIT 17 INCREMENT
14%*x - TEST READ NPR INTEGRITY
15%%x - READ FUNCTION
16%* - READ FUNCTION INTERRUPT
17%%x - CHECK READ NPR DIRECTION

*xTEST
*xTEST
*xTEST
*xTEST
**TEST
*xTEST
**xTEST
*«xTEST
*xTEST

21xx
22%%
23%x
24xx
25%%
26%*x
27%xx
28%x
29%x

=
-

2775
2887
2970
3035
3106
3179
3252
3338
3411
3495
3572
3653
3734
3764
2800

**xTEST
**TEST
*xTEST
**TEST
*xTEST
**TEST
*xTEST
*xTEST
**TEST
**TEST
*xTEST
*xTEST
**TEST
**TEST
*xTEST

31#x
32%x
33%x
34*x
35+«
36%x
37%xx
38%x
39%x
40%x
41%xx
42%*x
43%x
44xx
45+«

- FORCE DCK WITH WRITE CHECK
- FORCE DCK WITH WRITE CHECK INTERRUPT
- CHECK ZERO FILL ON WRITE WITH WRITE CHECK
- EXTENDED CHECK OF WRITE CHECK FUNCTION
- EXTENDED CHECK OF WRITE CHECK FUNCTION
- READ WITHOUT HEADER COMPARE FUNCTIDN
- READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT
- CHECK RD W/0 HDR CMP ACTUALLY READS

3908

*xTEST 47*x - CHECK RLDA DOES INCREMENT WITH RD W/0 HDR CMP

1614
1670
1726
1769
1803
1843
1905
1945
1987

2026
2075
2206
2265
2301
2344
2391
2477
2574

2670

38672

**TEST
**TEST
*xTEST
**TEST
*xTEST
*xTEST
*xTEST 18%x* - PROPER INCREMENT OF RLBA ON READ
*xTEST 19xx - PROPER INCREMENT OF RLDA ON READ
*xTEST 20%x - FORCE HEADER NOT FOUND WITH READ

**TEST 30%x -

FORCE HEADER NOT FOUND WITH READ

CHECK HEADER COMPARE LOGIC
CHECK MULTIPE SECTORS ON READ

INTERRUPT

FORCE HDR NT FND AT END OF TRACK
FORCE NON-EXISTANT MEMORY ERROR

FORCE NON-EXISTANT MEMORY ERROR INTERRUPT

CHECK READ WRITE LOOP

CHECK SILO LINES
CHECK THROUGHPUT OF SILO
CHECK ZERO FILL ON WRITE
CHECK SECTOR BITS OF HEADER COMPARE
WRITE CHECK NPR INTEGRETY
WRITE CHECK FUNCTION
WRITE CHECK FUNCTION INTERRUPT
PROPER INCREMENT OF RLBA ON WRITE CHECK
PROPER INCREMENT OF RLDA ON WRITE CHECK
MULTIPLE SECTOR WRITE CHECK

**TEST 4b*x - CHECK RLBA INCREMENT WITH RC W/0 HDR CMP

MAIN.
MACY11_30A(1052)
22-NOV-78
CZRLBB.SUP
23-0(T-78 09:52
4015

15:35
TABLE OF CONTENTS

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP

SEQ 0029

= OV
WNWNN

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

30A(1052)

22-NOV-78

15:35

PAGE 1

N—l—l

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

002000
000000
000000

.=2000
SvC

SVCINS=0
SVCTAG=0
POINTER BGNSW,BGNSFT ,BGNDU

BGNMOD

MDHEDR
HEADER
(Z8LB.,B,0,60,60,4,RLO1T
LASCII /C/
LASCI] /7/
LASCII /R/
LASCII /L/
LASCII /B/
.BYTE

.BYTE
.BYTE

LSDISPATCH

CSREVISION

(4)

002054

002056

002062

000000

(4)
(4)
(4)

002064
002066
002070

002114
000000
002112

(4)

002074

000000

(4)

002072

002112

CSEDIT
60
60
0

0
0

LSDVTYP

0
L$DR
L+DRST
0

SEQ 0030

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV~78 15:28

(4)
(5)
(4)
(4)
(é%

002076
002100
002102
002704
002106

32
33
34
35

002110

(5)
(%g

002110
002110
00211

002114

(3)
2)

002114

272

30A(1052)

22-NOvV=78

020104
000014
000000
017140
020010

15:35

.WORD
.WORD
.WORD
.WORD
.WORD

PAGE

1-1

3
SEQ 0031

L$DU
14
O
LSINIT
LS$CLEAN

ENDMOD

000000
0000017
046122
002122
000001
000100
100000
040000
002000

000200
000040

030460

000

BGNMOD

DEVREG
.WORD
BLKW

DEVTYP

<RLO1>

ASEIZ
.EVEN

/RLO1/

GLBEQAT

EQUALS
DRDY=BiTO
INTEN=BIT6
ERR=BIT15
DERR=BIT14
OPI=BIT10

CRDY=BIT?7

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

;CONTROLLER READY (RLCS)
JEXTENDED ADDRESS BIT 17 (RLCS)

000010

BA17=BITS
BA16=BIT4
NXM=BIT13
DS0=0
DS1=BIT8
DS2=BIT9
DS3=BIT8!BIT9
NOOPO=0
WRCHK=BIT1
GSTAT=BITZ2
SEEK=BIT2!BIT1
RDHDR=BIT3

;READ HEADER FUNCTION

000014
000016
000202
000010
000002
000001
000004
000100
000100
000020

READ=BIT3!BIT?2
RDNHD=BIT3!'BIT2!BIT1
GODRVR=BIT1!'BIT7
DRST=BIT3
GSBIT=BIT1
MK=BITO
SIGN=BIT?
RHHS=BIT6
STHS=BIT¢E
DAHS=BIT4

;READ DATA FUNCTION
‘
;READ W/0 HEADER VERIFICATION
;CRDY AND DRDY
;DRIVE RESET (RLDA)
;GET STATUS BIT (RLDA)
sMARKER BIT (RLDA)
;SIGN BIT (RLDA)
;HEAD SELECT IN READ HEADER
JHEAD SELECT IN STATUS BACK
sHEAD SELECT IN SEEK

000000
000002
002004
000006
000010

CSR=0
VECT=2
PR]OR=4
DRBT=6
CNT=10

000020
020000
000000
000400
001000
001400
000000
000002

000004
000006

000012

WRITE=BIT3!BIT1

JEXTENDED ADDRESS BIT 16 (RLCS)
JNON=-EXISTANT MEMORY (RLCS)
;DRIVE SELECT 0 (RLCS)
;DRIVE SELECT 1 (RLCS)
;sDRIVE SELECT 2 (RLCS)
;DRIVE SELECT 3 (RLCS)
s FUNCTITON=NOOP(0)
JWRITE CHECK FUNCTION

;GET STATUS FUNCTION
:SEEK FUNCTION

;WRITE DATA FUNCTION

JOFFSET FOR HARDWARE P=TABLE

JOFFSET FOR SOF TWARE P=-TABLE

ASSEMBLY ROUTINES
MACY11
CZRLBB P11
22-NOV-78 15:28

30A(i052)

22-NOv-78

15:35

PAGE 1-2

SEQ 0032

000000
000002
000004
000006
000010
GLBDAT

.SBTTL

GLOBAL DATA

CHECK:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD

:
WHY

:
CDCNT
ERRVEC:
DRIVE:
UuT:
UNITST:
TRPFLG:

INTFLG:
LDCSR:
:
SECMSK
XPOLY:

.
.

TMP
:

TMP?2:
:
GDDAT
BDDAT:
TEMPZ:
TEMP3:
TEMPS4:
FIRST:

CYLMSK: .

MXSECT:

002D

%Omfi
>P>wn IR ATSD

MAXSEC:
DWORD:
MAXCYL:
SVHD:
B.(S:
B.

=0
W
WN=0O 000NNV

U
N R
U
Yo
e
e I
e
e

il i e
e
il
il
il el cild

WWWWNINONONY
W
= O 00NN VB

Y—g——

106

BCCFBK:
CALBCC:
TMPO:

.
.

J\dOOOOOOOOOOO; :’OOOOOO 4~OQ0O

Vsl RLE

0001

77700

OOOOOOOCOOOOOOOOONOW
N
VO
o
.
o
o

000000
000000
000

ENDMOD

BGNMOD

s INTERRUPT OCCURANCE FLAG
;LOCATION TO FORM RLCS
sMASK OUT SECTOR
;POLYNOMIAL FOR CRC 16
;LOCATION USED BY '‘SIMBCC"'
;LOCATION USED BY ''SImMBCC"’

;LOCATION USED BY ‘'‘SIMBCC'’
;LOCATION USED BY ''SIMB(CC''
;LOCATION USED BY '‘SIMBCC"’
;FIRST SECTOR READ
sMASK CYLINDER AND HEAD SELECT
;MAX SECTOR ADDRESS +1
sMAX SECTOR ADDRESS
;DIFFERENCE WORD

(SEEK)

;MAXIMUM CYLINDER ADDRESS
; SAVE CURRENT HEAD SELECT
(S = BEFORE OPERATION
:BA

;DA
T MF

2C3
.BA
;DA
s MP

BEFORE OPERATION
BEFORE OPERATION
BEFORE OPERATION

AT
AT
AT
AT

OCCURANCE
OCCURANCE
OCCURANCE
OCCURANCE

OF ERROR
OF ERROR
OF ERROR
OF ERROR

22-NOv-78

GLOBAL DATA
BCSR:
BVEC:
BPRIOR:

FNDFNC:

.WORD
.WORD
.WORD

.WORD

XMEM:
TRYFNC:

.WORD
.WORD

UOPIMX:
UOPIMN:
OPIMN:
OPIMX:

.WORD
.WORD
.WORD
.WORD

DERFLG:

.WORD

.S3TTL

LIST

ERFLG:
LOPIMX:
LOPIMN:

.WORD
.WGRD
.WORD

PWRFLG: .WORD
T.CNTLR:

coO~NON
S W

i
ol
.
il
il

viviviauonnoiawug

151

159

ERPOINT:
ERCOUNT:

HDRTAB:

.WORD

15:35

H 3
PAGE 1-3

COO=H-=000O0O olelele]
e X=2%,1Y,]
OoOOoOWVo

30A(1052)

SEQ 0033

;CSR FROM P TABLE
;VECTOR FROM P TABLE
sBR LEVEVL FROM P TABLE

WORD

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOvV-78 15:28

.WORD

0
60.

70 CHECX HEADER COMPARE LOGIC

0
BITO
BIT1
BIT2

JWALK 1

BIT3
BIT4

. GROW 1

S—J—J-J.J—n—n._a.a._a_a_a—._n..\._l

173

NN =3 NN
N — YW
~N SINNWWWN
NN
~ WWWNININ
N
~N

BITS

s GROW O

ASSEMBLY ROUTINES
MACY11
CZRLBB.P1
22~NOv-78 15:28

190

191

002612

002614

077400

077000

30A(1052)

.WORD
.WORD

77400

002616
002620
002622
002624
002626
0026

076000
074000
070000
0?0000
077735
077733

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

76000
74000
70000
60000
77735
77733

200
201

0Q2636
002640

002642
002644
002646
002650
002652
002654
002656
002660

077637
077537
077337
076737
075737
073737
067737
057737
037737
000000

.WORD
WORD

77637
77537

002662
002670
002676
002704
002712

000001
000010
000100
001000
010000

000002
000020
000200
002000
020000

00C004
000040
000400
Q0400C
040000

002722

177777

177776

214

002742
002750

177577
175777

177377
173777

215

002762

077777

1772764

177740

177700

216

003002
003010
003016

177000
170000
000003

217

003030
003036
003044

000177
001777
017777

176000
160000
000007
0000
000377
003777
037777

221
222

003052

002000

225

007052

ENDMGD

228 007052<

SBTTL

202
203

205
206
207
208
g?g
211
212

213

002632
002634

002720

002730

002770

Q77727
077717

100000

177773

17776Q

WORD
WORD

177767

232

007052

067516

041440

JWALK 0

77727
77717

HDREND:

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

77337
76737
75737
73737
67737
57737
37737
O

DATPAT:

.WORD

1,2,4,10,20,40,100,200,400,1000,2000,4000,10000,20000,40000,
100000

177775

LWORD

177777 177776 ,177775,1727773,177767
,177757 ,177737 ,177677

176777
167777

JWORD

177577 ,177377,176777 ,175777 173777 ,167777 157777 ,137777

177770

JWORD

77777 177774 ,177770,177760,177740,177700,177600,177400

174000
140000
Q00C17

.WORD

177000, 176000, 174000, 170000, 160000,140000,3,7,17,37,77

000777
007777
000G00

WOR(

177,377,777 ,1\772,37727,72777,42777,37777.0

177757

LSBTTL
BUF :

227

SEQ 0034

77000

192
193
194
195
196
197

198
199

22-NOv-78
15:35
PAGE 1-4
LIST TO CHECK HEADER COMPARE LOGIC

(047117

BONMOD
NORES:

BUFFER 7 OR_READ/WRITE
Skw
1024,

GLORAL

TEXT

JASCIZ2

/N0 TONTROLLER/

GLRTXT '

SEQ 0035

264
265

247
248
249

007257
007264

007272
007277
007
007311

047040
040
044040
044040
042040

5
015

250

007313

252
253
254
255

007324
047506
007377
16
0074308 047516
007462 051127
007522
051127
00756
122
007623
122
007664- 062523
007715 »
123
007747
107
010006 042507
010045
122

251

257
258
259
260
261
262

263

264
265
266
267
268
269
270
271
272

273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288

007314

041440

010076
010127
010161
010213
010247
010303
(010331
010352
010417

042522
127
127
122
122
103
127
046122
000170

01060
010646
010712
010766
011043
011110
011137
011176
011230
011312
011351
011411
011466
011544
011636
011716

116

042522
046122
042523
110
051127
110
051104
044504

051104

116
122
042523
0445046
042110
047516

035101
035101

035120
047506
046511

052116
044522

051104

046530
050117
051103
043116
041504
052114
000

000012

046517

041522
047517
050117
052111
052111
040505
040505
045505
042505
052105
020124
040505

047516
103
041040
042040
046640
042502
124
047503
]

N
o
o

007070
007101
007106
007114
007122
007
0C715
007172
007217
Q0724
007252

233
234
235
236
237
238
239
260
261
262
243

‘3§ ~

ASSEMBLY ROUTI S
MACY11 30A(1052) 22-NOV-78 15:35 PAGE {-S 3
GLOBAL TEXT
(ZRLBB.PT1 5*’0\!-?8 15 :
000040
000040
000040
000040
042522
020105
047522
042526
000126
000
000111
000103

000
000113
000
000120

042105
020120
047440
020105
020105
020104
020104
047440
020113
051440
052123
020104

042101
044522
044522
040505
040505
047101
044522
051503

047440
042524
042524
020104
020104
052047
042524
041440

020117
042101
040502
052103
040505
047117
040505
053111
045523
053111
020117
041114
052103
045523
020122
026516

047111
047440
042040
051117
042504
020107
042504
020105
040440
020105
047111
020101
051117
040440
047516
054105

NORDY:
.ASCIZ
ARLCS:
.ASCIZ
ARLBA:
.ASUIZ
ARLDA:
.ASCIZ
ARLMP:
.ASCI%
BEREG:
.ASCIZ
AFREG:
.ASCIZ
CRTIM:
_ASCI1Z
DORTIM:
,ASCIZ
DOEMES:
.ASCIZ
NXMMES: .ASCIZ

OPIMES: .ASCIZ
HCRCMES:.ASCIZ
HNFMES: .ASCIZ
DCKMES: .ASCIZ
DLTMES: .ASCIZ
LF:
LASCIZ

/NO DRIVE/
7(S: /
/ BA: /
7/ DA: /
/ MP: /
/BEFORE COMMAND: /
/TIME OF ERROR:
/
/CONTROLLER TIMED QUT/
/DRIVE READY TIMED QUT/
/ DRV/
/ NxM/

/ OPl/
/ HCRC/

/ HNF/
/ DK/
7/ DLT/
<15

MSCRLF: .ASCIZ

<15><12>

OPIERR:
NOPMES:
NOPINT:
WCKMES:
WCKINT:
RHDMES:
RHDINT:
SEKMES:
SEKINT:
GSTMES:
GSTINT:
RDDMES:

/FORCED OPI(GET STATUS) CAUSED OTHER ERRORS/
/NOOP OPERATION-FLAG MODE/
/NOOP OPERATION-INTR. MODE/
/WRITE CHECK OPERATION-FLAG MODE/
/WRITE CHECK OPERATION-INTR. MODE/
/READ HEADER OPERATION~-FLAG MODE/
/READ HEADER OPERATION-INTR. MODE/
/SEEK OPERATION-FLAG MODE/
/SEEK OPERATION-INTR. MODE/
/GET STATUS OPERATION-FLAG MODE/
/GET STATUS OPERATION-INTR MODE/
/READ OPERATION~FLAG MODE/

cCOMP:

.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

RDDINT: .ASCIZ
WRTMES: .ASCIZ
WRTINT: .ASCIZ
RDNMES: .ASCIZ
RDNINT:
.ASCIZ
SKHOME:
.ASCIZ
WRLOCK:
.ASCIZ
EMI1:
ASCIZ
EM100
BLKB
EM4
ASCIZ
EMS
ASCIZ
EM6
.ASCIZ
EM7
.ASCIZ
EM10
.ASCIZ
EM11
.ASCIZ
EM12
.ASCIZ
EM13
.ASCIZ
EM14:
_ASCIZ

EM16:

EM17:
EM20:
EM21:
EM22:
EM23:
EM24:

.ASCIZ

ASCIZ
,ASCIZ
,ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

/ COMP/

/READ OPERATION-INTR MODE/
/WRITE OPERATION-FLAG MODE/
/WRITE OPERATION=INTR MODE/
2XREAD W/0 HEADER - FLAG MODE%
XREAD W/0 HEADER = INTR MODEX
/CAN'T SEEK TO TRACK 0/
/WRITE LOCK ERROR/
/RLCS CONTAINED FOLLOWING ERROR(S):
120.

/NO INTERRUPT ON READ OPERATION/
/READ OPERATION DID NOT WRITE MEMORY/
/RLBA DID NOT INCREMENT PROPERLY DURING READ/
/SECTOR DID NOT INCREMENT PROPERLY AFTER READ/
/HEADER NOT FOUND COULD NOT BE FORCED/
/WRONG CYLINDER ON SEEK/
/HEADER NOT FOUND WOULD NOT SET/
/DRIVE READY WOULD NOT SET/
/DiSK ADDRESS INCORRECT AFTER MULTIPLE SECTOR READ/
/DRIVE ERROR ON WRITE OPERATION/
/NO INTERRUPT ON WRITE OPERATION/
/RLBA DID NOT INCREMENT PROPERLY DURING WRITE/
/SECTOR DID NOT INCREMENT PROPERLY AFTER WRITE/
/DISK ADDRESS (RLDA) INCORRECT AFTER MULTIPLE SECTOR WRITE/
/r:DR NOT FND COULD NOT BE FORCED AT END OF TRA(K/
/NON-EXISTANT MEMORY ERROR (OULD NOT BE FORCED/

040524

041440

EM25:

LASCIZ

XDATA COMPARISON ERROR - READ/WRITE ERRORZ

042524
051117

EM26:
EM27:
EM30:

/WRITE OPERATION MODIFJED MEMORY/
/ERROR ON PARTIAL SECTOR WRITE - ZERO FILL

EM&2
EM43
EM44
EM4S

LASCIZ
LASCIZ
ASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
JASCIZ
JASCIZ
ASCIZ
LASCIZ
LASCIZ
LASCI2

EMS0
EMS1

JASCIZ
LASCI2

EM40
EM4T

=0
= =N
NONOWWNONONNY

301
302
303

B\ ) D D

304
305
306
307

EM4&7

i cnb
wub aub
s
and a

321

014220

040503
051127

042524
047040
047516
020105

LASCIZ

EMSS
EMS3
EM54
EMS6
EMS7
EM60

ASCIZ
JASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ

EM63

ASCIZ

EM61:
EM6Z

i aul o

OV NOVNEWN=O

EMS52

ASCIZ

EM64
EM6S
EM66
EM70

.ASCIZ
ASCIZ

LASCIZ
LASCIZ
LASCIZ
LASCIZ

DID NOT

SEQ 0036

INCREMENT PROPERLY/

CHECK/

DID NOT SET ON INCREMENT/

SET ON BA16 INCREMENT TEST/
T INCREMENT WITH BA16/

ID NOT SET ON INCREMENT/
ID NOT CLEAR ON INCREMENT/
T INCREMENT WITH BA17/
/READ(FUNCTION 7) DID NOT INTERRUPT/
/READ(FUNCTION 7) ERROR - BAD DATA/
/READ (FUNCTION 7) ERROR AT END OF TRACK/
-

o
[
Y

297
298
299

EM31:
EM32:
EM33:
EM34 :
EM3S:
EM36

/RLBA

[ ]

040504

011774

K 3
PAGE 1-6

22-NOV-78
GLOBAL TEXT

RRRGR

289
290
2N
292
293
294
295

15: 35

30A(1052)

OHr oMo

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NQOV~78 15:28

/NO INTERRUPT WITH HDR NT FND FORCED/
/NO INTERRUPT WITH NXM FORCED/

XERROR ON BIT BANG OF SILOX

/SILO OPERATION FAILURE/
/HEADER COMPARE FAILURE - SECTOR/
/WRITE NPR CAUSED BUS TRAP/
/READ NPR CAUSED BUS TRAP/
?READ W/0 HDR CMP OPERATION DID NOT WRITE MEMORY?
?RLBA DID NOT INCREMENT PROPERLY DURING READ W/0 HDR (MP?

?RLDA DID NOT INCREMENT AFTER READ W/0 HDR (MP?

/0PI TIMING ERROR/
/WRITE CHECK NPR CAUSED BUS TRAP/
/WRITE CHECK DID NOT INTERRUPT/
/RLBA DID NOT INCREMENT PROPERLY DURING WRCHK/
/RLDA DID NOT INCREMENT PROPERLY DURING WRCHK/
/RLDA DID NOT INCREMENT PROPERLY AFTER A MULTIPLE
/WRITE CHECK OF PARTIAL SECTOR WRITE FAILURE/
/CAN NOT FORCE DCK ON WRITE CHECK/
/CAN NOT FORCE INTERRUPT WITH DCK ON WRCHK/
/WRITE CHECK FAILURE/

SECTOR WRITE

EVEN

014244

ENDMOD

014244

BGNMOD

014244

BGNMSG

SBTTL

GLBERR
GLOBAL

ERRORS

ERRO

014244
014250

004737
004737

JSR
JSR

PC,LINE2

014254

004537

JSR

RS, CKERLT

014260
014260
014260
014262

104023

L10000:
BGNMSG

PC,LINE]

ENDMSG

EMT
ERR1

CMSG

s INCREMENT ERROR AND CHECK LIMIT

CHK/

ASSEMBLY ROUTINES
MACY11
CZRLBB.P1 1
22=NOvV=78 15:28

30A(1052)

22=NOV-78

GLOBAL ERRORS

15:35

014262

004737

015256

JSR

PC,LINET

014266

004537

020126

JSR

R5,CKERLT

014272
014272
014272

L10001:

104023

014274

BGNMSG

014274
014300
014300
014304
014310
014314
014320
014322
014324

004737

015256

013746
013746
012746
012746
010600
104014
062706

002170
002166

014330

004537

014334
014334
014334

EMT

014376

062706

000012

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

014402

004537

020126

JSR

014410
014414
014420
014420

BGNMSG

004737
004737
013746

C$MSG

ERR3
JSR
JSR

L10003:

; INCREMENT ERROR AND CHECK LIMIT

ENDMSG

002166
002170
002160
015771
000004

014410

C$PNTB

RS,CKERLT

013746
013746
013746
012746
012746
010600

104023

SP.RO

JSR

015256
015312

014406
014406
014406

GDDAT,~=(SP)
#FRMT4 ,-(SP)
#3,-(SP)

020126

004737
004737

104014

PC,LINET
#FRMT4 ,GDDAT ,BCDAT
BDDAT,=(SP)

#10,SP

BGNMSG

s INCREMENT ERROR AND CHECK LIMIT

ERR2

ADD

104023

SEQ 0037

C$MSG

000010

014336
014336
014342
014346
014346
014352
014356
014362

EMT

JSR

L10002:

ENDMSG

PRINTB
MOV
MOV
MOV
MOV
MOV

015733
000003

PAGE 1-7

PC,LINE]
PC,LINE?Z
#FRMTS5,
TMPO ,BDDAT, GDDAT
GDDAT ,=(SP)
BDDAT ,=(SP)
TMPO,
= (SP)
#FRMT5,~(SP)

#4 ,-(SP)

SP,RO
C$PNTR

RS,CKERLT

ENDMSG

EMT

CH1S6

ERRS
JSR

JSR
PRINTB
MOV

PC,LINET
PC,LINE2
#rPMT4 ,GDDAT ,BDDAT

BDDAT,~(SP)

; INCREMENT ERROR AND CHECK LIMIT

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22=N0vV-78 15:28

30A(1052)

22-NOv-78
15:35
GLOBAL ERRORS

(8)
(7)
(6)
(3)
(&)

014424
014430
014434
014440
014442
014444

000010

MOV
MOV
MOV
MOV
EMT
ADD

382

014450

020126

JSR

384
(3)
(32)

014454
014454
014454

(&)

013746

002166
015733
000003

L10004:

104023

014456
388

014456

389
(8)
(7)
(6)
(3)
(4)
(4)

014462
014462
014466
074472
014476
014500
014502

392

014506

394

BGNMSG

004737

015256

013746
012746
012746
010600

020440
015726
000002

062706

004537

104014

014512
014512

396

014514

EMT

#6,SP

020126

JSR

R5,CKERLT

BGNMSG

L10006:

104023

014556

BGNMSG

004537

s e

020126

s S S

SP,RO
C$PNTB

; INCREMENT ERROR AND CHECK LIMIT

ENDMSG
EMT

CIMSG

ERR6
JSR
JSR
JSR

PC,LINE]
PC,LINE3
PC,LINE2

PRINTB

#FRMT99

EMT
ADD
JSR

020126

412

PC,LINET

ADD

104023

s INCREMENT ERROR AND CHECK LIMIT

C$MSG

000006

EMT

000004

RS, CKERLT

#FRMT3 ,RESTMS
RESTMS,-(SP)
HFRMT3,-(SP)
#2,-(SP)

MOV
MOV

014556

SP,RO
C$PNTB
#10,SP

ERRS

MOV

408

GDDAT ,=(SP}

ENDMSG

JSR

L10005:

SEQ 0038

#FRMT4 ,-(SP)
#3,-(SP)

PRINTB
MOV
MOV
MOV
MOV

014512

(3)
(3)

M3
PAGE 1-8

#FRMT99,~(SP)

#4 ,SP

RS,CKERLT

s INCREMENT ERROR AND CHECK LIMIT

ENDMSG

EMT

C$MSG

ERR7

JSR

RS,CKERLT

s INCREMENT ERROR AND (HECK LIM]T

MACY11
ASSEMBLY ROUTINES
CZRLBB.P11
22-NOV-78 15:28
014562

014562
014562

30A(1052)

22-NOv-78

GLOBAL ERRORS

L10007:

104023

014564

BGNMSG

EMT

010600
104014
062706

000012

MOV
MOV
MOV
MOV
EMT
ADD

014630

004537

020126

JSR

014634
014634
014634

JSR
JSR
PRINTB
MOV
MOV

L10010:

104023

014636
014636
014642

BGNMSG

004737
004737

014666
014670

014674
014700
014700
014700

104023

014702

020126

L10011:
BGNMSG

014702
014706
014712
014712

004737
004737

Qie722

013746

014716

MOV
MOV

062706

013746

PC,LINE]
PC,LINE2
#FRMT6, TMP1,GDDAT ,BDDAT
BDDAT,=(SP)
GDDAT ,=(SP)
TMP1,=(SP)
#FRMT6,=(SP)
#4,-(SP)

SP,RO
C$ONTB

RS, CKERLT

s INCREMENT ERROR AND CHECK LIMIT

CIMSG

ERR9

MOV

104014

004537

EMT

PRINTB
MOV
MOV

013746
012746
012746
010600

C$MSG

ENDMSG

JSR
JSR

010246

SEQ 0039

ERR8

004737
004737

000004

N 3
PAGE 1-9

ENDMSG

014564
014570
014574
014574
014600
014604
014610
014614
014620
014622
014624

013746
013746
013746
012746
012746

15: 35

PC.LINE]
PC,LINE?2
#FRMT4
, TMPQ ,RZ

fg,=(SP)

TMPO,=(SP)
#FRMTS ,=(SP)
#3,-(5P)

SP,RO

EMT

ADD

($PNTB
#10,SP

JSR

RS,CKERLT

ENDMSG

EMT

C$MSG

ERR10
JSR

JSR

PRIN'S
MOV
MOV
MOV

PC,LINE!
PC,LINE2

#FRMT7, TMP1,GDDAT ,BDDAT
BDDAT ,=(SP)
*Ge NAT = (SP)
TMP1,=(5P)

s INCREMENT ERROR AND CHECK LIMIT

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

(7)
(6)
(3)

(4)
22%
446

014726
014732
014736
014740
014742

zzg

014746

449
(3)

014752
014752

226

014752

22}

014754

453
454
455
(10)
(9)
(8)
(7)

014754
014760
014764
014764
014770
014774
015000

(3)
(4)
zéé

012746
012746
010600

30A(1052)

22-NOvV-78
15:35
GLOBAL ERRORS

016117
000004

MOV
MOV
MOV

000012

EMT
ADD

CSPNTB
#12,SP

004537

020126

JSR

R5,CKERLT

104023

BGNMSG

EMT

C$MSG

ERR11

JSR
JSR
PRINTB
MUV
MOV
MOV
MOV

PC,LINE1
PC,LINE2
#FRMT8,TMPO,GDDAT
,BDDAT
BDDAT ,=(SP)
GDDAT ,=(SP)
TMPQ,=(SP}
#FRMT8,~(SP)

SP,RO
C$PNTB
#12,SP
RS, CKERLT

015256
015312

015010
015012
015014

013746
013746
013746
012746
012746
010600
104014
062706

002170
002166
002160
016171
000004

000012

MOV
EMT
ADD

457
2%%

015020

004537

020126

JSR

460
(3)
22%

0175024
015024
015024

22%

015026

464
465
466
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)

015026
(015032

(6)

015004

104023

BGNMSG

015036
015036
015042
015046
015050
015054
015060
015064
015066
015070

004737
004737

015256
015312

013746
013746
010346
013746
012746
012746
010600
104014
062706

002170
002166
002162
016312
000005

29%

015074

004537

471
(3)
(3)

015100
015100
015100

zg;
468

MOV

L10013:

104023

SEQ 0040

s INCREMENT ERROR AND CHECK LIMIT

ENDMSG

004737
004737

H#FRMT7 ,=(SP)
#4 ,<(SP)
SP,RO

104014
062706

L10012:

PAGE 1-10

#4 ,=(SP)

s INCREMENT ERROR AND (HECK LIMIT

ENDMSG
EMT

($MSG

ERR12
JSR
JSR

PC,LINET
PC,LINE2

000014

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

#FRMT9,TMP1,R3,GDDAT
,BDDAT
BDDAT, ~(SP)
GDDAT ,=(SP)
R3,=(SP)
TMP1,=(SP)
#FRMT9,-(SP)
#5,-(SP)
SP,RO
C$PNTB
#14,SP

020126

JSR

RS,CKERLT

L10014:

ENDMSG

EMT

(IMS6

s INCREMENT ERROR AND CHECK LIMIT

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOvV-78 15:28

-l

oo wi

RN RS n

(4)
477
478
479
480
481

475
476
(10)
(9
(8)
(7)
(6)
(3)
(4)

015102
000000000 o

473

(4)

015256

013746
013746

002170
002302
002300
016415
000004

015210

015214
015214
015214

#4,~(SP)

SP.R0
CSPNTB

#12,5P

020126

JSR

L10015:

EMT

012746
013746
012746
012746
010600
104014
062706

003052
002162
016241
000003

MOV
MOV

000010

004537

020126

BGNMSG

004737
004737

#FRMT
14 ,-(SP)

ADD

JSR

RS,CKERLT

ENDMSG
EMT

C$MSG

ERR15

ADD
JSR

L10017:

PC,LINE1

PC,LINE?2
H#FRMT14,
TMP1 , #BUF
#BUF ,-(SP)
TMP1,=(SP)

#3,-(SP)
SP,R0
CSPNTB
#10,SP

PRINTB
MoV

062706
004537

C$MSG

MOV
MOV
EMT

JSR
JSR

010246
012746

s INCREMENT ERROR AND CHECK LIMIT

ERR14
JSR
JSR
PRINTB
MOV

L10016:

R5,CKERLT

ENDMSG

015256
0715312

104023

SEQ 0041

#FRMTI0,=(SP)

004737
004737

104023

PAGE 1-11

ERR13

000012

015216
015216

15:35

PC,LINET
#FRMT10,0PIMN,OPIMX
,BDDAT
BDDAT,=(SP)
OPIMX,=(SP)
OPIMN .= (SP)

BGNMSG

486

487
(9)
(8)
(7)
(6)
(3)
(4)
(4
4,88
489
A
490
491
492
(3)
(3)
493
494
495
496
497
498
(8)
(7)
(6)
(3)

004737

104023

482
4,83
484
485

22-NOV-78

GLOBAL ERRORS

BGNMSG

004537

(3)
(3)

30A(1052)

PC,LINE1
PC,LINE2
#FRMT15 ,R2
RZ,=(SP)
#FRMT15,-(SP)
#2,-(SP)
SP,RO

CSPNTB
#6,SP

RS, CKERL1

ENDMSG

EMT

($MSG

; INCREMENT ERROR AND CHECK LIMIT

005046
153716

013746
012746

002135
002242
015606
000003
000010

013746
012746
013746
012746

002220
007106
002216
007101
007130
015645
000006
000016

013746
012746
013746
012746
012746
012746
010600

002224

062706

000014

013746
012746
013746
012746
012746

002230
007106
002226
007107
007151
015645
000006

(6)

(3)

(4)
(4)

#FRQ}1.RLCS.<B.DRIVE*1>

DRIVE+1, (SP)

RLCS,=(SP)
#FRMT1,-(SP)
#3,-(SP)

SP,RO
CSPNTB

#10,SP

LINE2:

#FRMTZ2 ,#BER
(S
EG,#A
,B.CS,#ARLBARL
,B.BA

B.BA,-(SP)

#ARLBA,
- (SP)

B.(CS,=(SP)

#ARLCS,=(SP)

#BEREG,~(SP)
HFRMTZ2,~(SP)

#6,-(SP)

SP,RO
CSPNTB

#16,SP
#FRMT2A ,#ARLDA ,B.DA ,#ARLMP ,B . MP
B.MP,-(SP)
#ARLMP,
- (SP)

B.DA,=(SP)

#ARLDA
, - (SP)

#FRMT2A ,-(SP)
#5,-(SP)

SP,RO
CSPNTB

#14,SP
#FRMT2 ,#AFREG,#ARLCS ,E.CS,#ARLBA E.BA

#ARLCS,-(SP)
#AFREG,~(SP)

#FRMTZ2 ,=(SP)
#6,-(SP)

SP,RO
C$PNTB

015466
b
d
el
i

E.MP2,-(SP)
E.MP1,-(SP)
E.MP,-(SP)

#ARLMP
, - (SP)

E.DA,-(SP)

#ARLDA,-(SP)

ald clh ch anlh

(8)
(7)

PRINTB

#FRMT2B,~(SP)
#7,-(SP)

(11)
(10)
(9)

15:35

#16,SP
#FRMT2B ,#ARLDA ,E.DA,#ARLMP
E .MP,E .MP1,E .MP2
sleleololeleleleles]

(13)

22-NOvV-78

GLOBAL ERRORS

LINET:

062706
000207

104014

30A(1052)

#20,SP

SP,R0
CiPNTR

SEQ 0042

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV=78 15:28

) 4
PAGE 1-12

CZRLBB.P11

567
548
549
550
(3)
551

552
553
554
555
556

557

(3)

PRINTB
MOV
MOV
MOV
MOV
EMT
ADD

W#FRMT3,#EM1
#EM1,=(SP)
#FRMT3,=(SP)
#2,-(SP)
SP.RO
C$PNTB
#6,SP

000006

PRINTB

010417
015726
000002

015576
015600

MOV
MOV
MOV
MOV
EMT
ADD

000006

015604

RTS

SEQ 0043

#FRMT3,#EM100

#EM100.~(SP)
#FRMT3
= (SP)
#2,-(SP)
SP.RO
CSPNTB
#6,SP

045

RERRRERIRRRIR

015606
015645
(015664
015677
015726
015733
015771
016042
016117
016171
016241
016312
016415
016474
016550
016615
016667
016672
016723

047503
022516
047445
022524
052045
022516
022516
040445
022516
022516
022516
040445
022516
040515
040445
042101

052116
022524
020466
033117
000
042501
046101
052502
053501
042101
053501
047527
051101
044530
051105
044522

FRMT1:
FRMT2:
FRMTOA:
FRMT2B:
FRMT3:
FRMT4:
FRMTS:
FRMT6:
FRMT7:
FRMT8:
FRMT14:
FRMT9:
FRMT10:

052045
022516

040445
050101

000116

FRMT11:
FRMT98:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCII

/¥ACONTROLLER: ¥O6%A DRIVE: %01/
/INXTXTX06%T%06/
/XTX06XT%06/
/XTX06XTX06%A X06%A %06/
/INXT/
/INXAEXP'D: %06%A REC'D: XO6IN/
/XNYALAST: XO6XA PRES: X06XA EXP'D: XO6%IN/
/XNXABUS ADR: XO6%A EXP'D: X06XA REC'D: XO6%IN/
/XNYAWORD: XD3XA EXP'D: %06%A REC'D: XO6XIN/
/XNYADA: XO6XA REC'D: XO6%A EXP'D: XO6XIN/
/XNXAWORDS WRITTEN: XD3XA BUS ADDR: XO6IN/
/INYAWORDS WRITTEN: XD3XA BUS ADDR: X06%A EXP'D: XO6%A REC'D: %O6%N/
/XNYARANGE %D3%A - XD3XA MILLISECONDS WAS %D6IN/
/XAMAXIMUM TIMEOUT OF PROGRAM 1S 3 SECONDSXN/
/YNXAERROR LIMIT EXCEEDED - DROPPEDXN/
/XADRIVE DID NOT RECOVER FROM POWER FAILURE/

FRMT13:
FRMT15:

.ASCIZ
.ASCIZ

/INXTXA - WILL NOT TESTAN/
/XNXAPATTERN WAS: %06/

FRMT99: .ASCIZ

/%IN/

.EVEN

016750
016750

016750
016750
016752

BGNMOD

BGNHW

016754
016756
016760
016762

016764

ENDMOD
HPTCODE

LWORD
"WORD
"WORD
JWORD
WORD

JWORD
e

542
546

RTS

GLOBAL ERRORS

LINE3:

010352
015726
000002

516
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541

015534
015534
015540
015544
015550
015552
015554
015560
015560
015564
015570
015574

514
515

15:35

000207

(4)
(4)

015532

RERRS

510
511
512
(8)
(7>
(6)
(3)
(4)
(4)
513
(8)
(7)
(6)
(3)

22-N0V-78 15:28

E &
PAGE 1-13

22-NOV-78

MACY11 30A(1052)

ASSEMBLY ROUTINES

NDHW
10020:

L 10020-L $HW/2
174400
160
240
0

:
:CSR
TVECTOR
*PRIORITY
*DRIVE (BITS 8,9,10)

*RL11=1 RLVI1=0

;

ASSEMBLY ROUTINES

CZRLBB.P11

MACY11
22-NOV~78 15:28

30A(1052)

22-NOv-78

GLOBAL ERRORS

016764
BGNMOD

016764
016764

BGNSW

017000
017000

PAGE 1-14

L10021-L$SW/2

DROP:

.WOFRD

T.DMP:
1.1LM73

.WORD
.WORD
.WORD

0
0
0

MERLMT:
V.510k*

000000

SPTCODE

.WORD

]

ENDSW
1 10021:

017000

ENDMOD

017000

BGNMOD

017000

DISPATCH

DSPCODE

.WORD

.WORD
.WORD
.WORD

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

=~
) =
)
=
=
) =
) =
il e

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

LA LA N T
e e Yt YO Y
Y
Y
QY
=000
NN N
WM - 2O

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

017070
017072
017074
017076
017100
017102

ENDMOD

016764

016766
016770
016772
016774
016776

15:35°

SEQ 0044

crtquDSHE

nony —_—
o

Y
e

i
)

e
e
cb e

e —

QO olololelels)

22-NOvV-78

GLOBAL ERRORS

15:35

WORD
.WORD
.WORD
.WORD
.WORD
.WORD

T34
T35
T36
T37
T38
T39

.WORD

T43

.WORD
.WORD
WORD
.WORD

017136
017140

017140
017140
017144

.WORD

T47

T46

INITIALIZATION CODE

BGNMOD

INITCODE

BGNINIT

SETPRI

#PRIQ7

READEF

#EF .PWR

012700

000340

MOV
EMT

012700

000034

MOV
#EF .PWR,RO
EMT
C$REFG
BNCOMPLETE
NOPWR
BCC
NOPWR
MOV
LSUNIT,PWRFLG
CONT
READEF
#EF .RESTART
MOV
#EF .RESTART RO
EMT
CSREFG

104041

104050

103004

017176

PAGE 1-15

.SBTTL

017140

T44

.WORD

ENDMOD

T40
T41
T&2

T45

.WORD

037450

017140

e
0

(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)
(6)

30A(1052)

033274

013737
000473

002012

012700

000037

104050

012700

104050

103010

012700
104050

103447

002304
NOPWR:

#PR107 ,RO
C$SPRI

BCOMPLETE

103404

BCS

—_—

(6)

NN NNNNNN

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22=NOvV=78
115:28

000040

002314
000100

000036

START1

READEF

#EF .START

START

MOV
#EF .START
RO
EMT
CSREFG
BNCOMPLETE
CONTINUET
CONTINUET
BCC
START1: MOV
#ERCOUNT
,RO
MOV
#64. R
1%:
(RO)+
(LR
DEC
RI
BNE
%

CONT INUE :
MOV

EMT

READEF

#EF ,CONT INUE

#EF . CONT INUE ,RC

($REFG

BCOMPLETE
BCS
CONT

CONT

SEQ 0045

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

30A(1052)

606
607
608
609
g}?

017236
017242
017244
017252
017260

005737
001011
012737
013737
012737

177777
002012
000312

002140
002136
002312

612
613
614
615
(3)
(3)
616

017266
017272
017300
017304
017304
017310
017312

005237
062737
005337

002140
000002
002136

002312

013700
104042

002140

617
618
619
620
621
622
623
624
252

017314
017320
017322
017326
017330
01733%
017340
017344
017350

005737
001746
005337
000743
012037
012037
012037
012037
012037

002252
002254
002256
002134
002306

2%:

627
628
629
630
631
632
633
2;2

017354
017360
017364
017370
017374
017400
017404
017410

013700
010037
062700
010037
062700
010037
062700
010037

002252
002242
000002
002244
000002
002246
000002
002250

(ONT:

636
637

017414
017420

005737
001064

002304

017426
017430
017434

001467
005037

(2)

€38

639
640
641

(7)

(&)
(5)

(&)

017312

017422

012746

017450

012746

017456
017462

017466
017472

017440
017444

017454

642

017466

(3)
(3)
bhls

005737

017434

(3)

(2)
642

103406

645
b6

017474
017500
017502

649
650

017512
017520

002136

22-NOV<-78
15:35
PAGE
INITIALIZATION CODE

NXT:
START:

XXX:

002304

016772

wuT
XXX
#-1,UNITST
LSUNIT,UUT
#ERCOUNT=2,ERPOINT

BCS

PWRF LG
NXT
PWRFL
G
NXT
(RD)+,BCSR
(RO) +.BVEC
(RO) +.BPRIOR
(R0)+.DRIVE
(RO)+.T.CNTLR

MOV
MOV
ADD
MOV
ADD
MOV
ADD
MOV

BCSR,RO
RO,RLCS
#2.RO
RO.RLBA
#2 RO
RORLDA
#2.RO
RO.RLMP

ST
BNE

PWRF
| G
5%

BEQ
CLR
SETVEC

5%
TRPFLG
ERRVEC,#TRPHAN,
#340

T.SIZE

MOV

#340,-(SP)

0000G?

MOV

#3,-(SP)

062706
005777

000010
162554

ADD
ST

#10, 5P
aRL(S

013700
104036
005737

002132

MOV
EMT
TST

ERRVEC ,RO
CSCVEC
TRPFLG

104037

001404
012737

gzg 017510 000415

012777
053777

021350
002132

MOV
MOV
EMT

CLRVEC

002142

007052

002126

000200
002136

162522
162514

:DONE WITH ALL UNITS
*NO

:GET
*GET
“GET
“GET
*GET

BUS ADDRESS
VECTOR
PRIORITY
DRIVE
CONTROLLER TYPE

:CREATE REGISTERS

;DO WE WANT TO CHECK UNITS??
*NO
*CLEAR OUT TRAP INDICATOR
*SETUP TO CATCH TIMEOUT

#TRPIHAN
, - (SP)
ERRVEC ,~(SP)
CSSVEC

ERRVEC

BEQ
MOV

7%
#NORE
S , WHY

MOV
BIS

#200,8RLCS
DRIVE ,@RL (S

B8R
%:

/
¢

SEQ 0046

ST
BEQ
DEC
BR
MOV
MOV
MOV
MOV
MOV

000340

012746
013746

UNITST
#2 ,ERPOINT
wf
UNITST,RO
MOV
UNITST.RO
EMT
C$GPHRD
BCOMPLETE
2%

002142

1-16

INC
ADD
DEC
GPHARD

REST:

0023C-

TST
BNE
MOV
MOV
MOV

;ACCESS CONTROLLER

:DID TRAP OCCUR??
*NO, CHECK DRIVE

:NOW CHECK DRIVE FOR READY

|
i

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NQV-78 15:28

017526

22-NOV-78
INITIALIZATION CODE
8IT
BNE
Mov

032777
001016
012737

000001

162506

007070

002126

013746

002126
016672
000002

000200
002134
000074

EMT

5%:
162434

162426

38:

000012
000001

PRINTB
MOV
Mov
MOV
MOV

ADD

002304

017572

IST
8EQ
MOv
BIS

MOV
WA TMS
MOV

EMT
BIT
BNE
DEC
BNE

162406

PRINTF

016667

ANORDY , WHY

AFRMT1S wWHY
WHY ,~(SP)

#FRMT13,=(SP)

#2,=(SP)
SP,RO

CSPNTR
#6,SP
6%

PWRFLG
END
#200,aRLCS

DRIVE ,aRLCS

#10.
#10. ,R0O
CSWTM

#1,aRLCS

END
R1
3%

HFRMTOS

#1,-(SP)

062706

000004

012746
012746

016615
000001

#4,SP
AFRMT98
H#FRMT98,

#1,-(SP}
SP,RO

CSPNTF

6%:

#4,SP

PC.LINET

UNITST
UNITST,RO

017236

NXT

013

002270

012746

000340

C$DODU

CSDCLN

082300
002302

002272 002300
073737
737

013746

= (SF)

002140

002276
002274
002306

012746

#FRMT99,
= (SP)

CSPNTF

000004
015256

013737
013737
005737
001

020110
002254

;POWER UP
.NC

#60. ,R1

000001

017714
017716

SEQ 0047

#1,aRLCS

012746
012746
010600
104017

017722

8%:

000006

017570

15:35 PAGE %-17

30A(1052)

002302

END:

UOPIMN,OP
IMN
UCPIMX
, OF Mx
TLCNTLR
1%

IMN
LOPIMN,OP

1%:

RLYID?

sYES,

LOPIMX,
(P [MxX

BVE( ,#INTSRY,
#740
#340,-(SP)
#MTSRV,~(SP)
BVEC,=(5P)

THEN KEEP LIMITS SET

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

(&)
(3)
é%%

017774
020000
020002

684
685
686

020006

ég;

020006

(3)

020006

012746
104037
062706

000003

MOV
EMT
ADD

700010

L10022:

104011

ggg 020010
239

020010

692
693
694
695

020010

(7)

(6)

020010

020054

EMT

CSINIT

CLNCODE

SETVEC

ERRVEC,#TRPHAN,#340

012746

000340

MOV

#340,~(SP)

013746
012746
104037
062706

002132
000003

MOV
MOV
EMT
ADD

ERRVEC ,=(5P)
#3,-(SP)
C$SVEC
#10,SP

032777
001774

020046

ENDINIT

BGNCLN

020036
020044

ggg
701

BGNMOD

012746

020020
020024
020030
020032

#3,=(SP)
CSSVEC
#10,5P

ENDMOD

020014

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

696
ggg

021350

MOV

000010
000200

162176

042777

000100

162166

1%:

BIT
BEQ

H#TRPHAN
= (SP)

#CRDY,@RLCS
1%

BIC

#INTEN,QRLCS

CLRVEC

RVEC

(3)

020054

013700

002254

MOV

BVEC RO

702

020062

005737

002304

PWRF LG

706

020070

005337

002304

DEC

PWRFLG

013700
104036

002132

(3)

703
705
(3)
(3)

706

020010

020060
020066

020074
020074
020100

104036

001402

EMT

BEQ
2%:

707

708

020102
020102

;}5

020104

;}Z

020104

;}2

020104

719
(3)

020106
020106

§?6

(3)

CLRVEC
MOV
EMT

CSCVEC

ERRVEC
ERRVEC ,RO
C$CVEC

709
(3)

020102

020106

30A(1052)
22-NCV~78
15:35 PAGE 1-18
INITIALIZATION CODE

104012

L10023:

ENDCLN

EMT

C$CLEAN

ENDMOD

BGNMOD

DRPCODC
BGNDU

000240
104055

NOP
110024;

ENDDU

EMT

($DU

SEQ 0048

—

| ASSEMBLY ROUTINES
CZRLBB.P1T

720
721

020110

727

020110

(3)

020114
020114

(2)

22-NOv-78 15:28

30A(1052)

Q20110

; 5
728

MACY1

020110

020114

K &
22-NOV=78 15:35 PAGE 1-19
INITIALIZATION CODE
ENDMOD

005237

002144

.SBTTL

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

BGNSRV
INTSRV:

INC

L10025:

000002

020116

005237

735

020122

736

020124

000002

020126

000240

(3)

020130

104020

(2)

020132

103427

7642

020134

005737

(3)

743
7644

7645
746

748
(7)
(6)

020122

020140
020142

002144

“IMSRV:

104021

001424
005277

020146
020154

027737
002416

020156
020156
020162

012746
012746

CKERLT:

01€766
162144
162140

016550
000001

(3)

020202

020206

013700
104053

(3)

020210

104044

753
754

020212
020212

000205

INC

INTFLG

EMT

C$ABRT

ABORTWAIT

NOP

INLOOP
C$INLP
EMT
BCOMPLETE
BCS
99%

PRINTF

#FRMT11

MOV

#1,-(SP)

ADD

#4 ,SP

DODU
MOV

UNITST
;DROP THIS UNIT
UNITST,RO

JSR

EMT

DOCLN
EMT

.SBTTL
SRR

DROP

@ERPOINT ,MERLMT
99%

MOV
EMT

99%:

BEQ
INC
CMP
BLT
MOV

002140

INTERRUPT OCCURANCE FLAG

IN TIMING OPI

TST

016770

sSET

RTI

000004
015256

(3)

INTFLG

ENDSRV

;ROUTINE USED

734

99%
aERPOINT

H#FRMT11,-(SP)
SP,RO
CSPNTF

PC,LINE1

C$DODU
C$DCLN

RTS

ROUTINE

TO CHECKk FOR CONTROLLER ERRORS

A AR A AR AR R AR AR R A AR R R

A A

A R AR A AR AR R AR AR A AR R R AR AR AR R AR R

s*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM
s*ACCORDINGLY.,
I7 WILL MERGE THE ERROR PRINTOUT WITH THE TEST
. *ERROR ME SSAGE
.

ASSEMBLY ROUTINES
MACY11
22=N0V-78 15:28
CZRLBB. P11

30A(1052)

763
764
765
766
767

22-NOvV=78

ROUTINE

15: 35

L &
PAGE 1-20

TO CHECK FOR CONTROLLER ERRORS

SEQ 0050

. %

s *ROUTINE USES RO,R1 AND PICKS HEADER FROM R3
CALL

020214

005037
032737

002124
176000

JSR

R5.,CHERR

T.CRC

002226

#176000,E.CS

sANY ERRCR BITS SET?

sNO EXIT
;GET START OF STRING
:IS COMPOSITE ERROR SET?(BETTER BE)
;IT'S NOT SOMETHING IS WRONG

010417
002226

#EM100,R1

020752
040000

002226

99%:

#DERR,E.CS

002226

3%:

002226

4%:

002226

020752
010000

002226

020752

004000

02000

105011

020446

104462

000454

020752

ANXM,E.CS

*NON~-EXISTENT MEMORY ERROR?
sNO, CONTINUE

:YES, PUT "NXM'' INTO STRING

#OP] E.CS

1S OPI SET?
:NO, GO CHECK BITS 11

7%:

,Dpl.ppx“ INTO STRING

& 12

:HEADERCRC ERROR?
sNO, GO CHECK HEADER NOT FOUND

#BIT12,E.CS
8%
RS,FIX

sHEADER NOT FOUND?
NO, GO PUT '‘CRLF'"
IN STRING

;GO PUT "HCRC'' IN STRING

‘PUT "HNFTM IN STRING
..mFl'

*PUT "'CRLF''~IN STRING
*DATA CRC ERROR?

*NO. GO CHECK DATA LATE

RS,FIX

:Rggk:pr"IN STRING

#BIT12,E.CS
8%

‘DATA LATE ERROR?

RS,FIX

8%:
RESTMS:

leMll

#BIT11,E.CS
5%
R5,FIX

T.CRC

002226

CONTINUE

RS,FIX

020752
020752

Y%SVPUT "DRV'' INTO STRING

8%
#BIT11,E.CS

00226

002124
020752

010000

R5.FIX

6%
RS, FIX

020752
004000

:NO,

020752

"COMP"*

DRIV: ERROR SET?

DERFLG

020752

002000

sYES,FIND OUT WHICH

YES PUT "'COMP'* IN STRING

002310

020000

;CHECK CNTLR FOR ERRORS

sNG, GO PUT IN '‘CRLF"’

'PUTT'DLT"IN STRING

PUT "'CRLF'" INTO STRING
J
.

R5,FIX
0
(R1)

300.
,LF ,ERRE

TLERCODE

300

"'CRLF’
MOVE HEADER

sHEADER FROM TEST
:PUT TERMINATOR IN

ASSEMBLY ROUTINES

CZRLBB.P11
(5)
(5)

g}g

020450
020452

020454

MACY11

22-NOV-78 15:28

30A(1052)

22-NOV-78

15:35

ROUTINE TO CHECK FOR CONTROLLER ERRORS

007311
014514

LWORD
.WORD

000205

LF
ERR6

RIS

819

L
PAGE 1-21

SEQ 0051

;EXIT ROUTINE

.SBTTL LOAD RLCS

820

;ttitttttt*tttttttttttttt'ttttQtttttttfittttttttttttttfifitt.t'ttt'

821

“x ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED

823
824
825

i
e
T

822

828
829
830
831
832
833
83
835
836

020456
020464
020466
020474
020502
020510
020516
020524
020532

032777
001426
017737
012777
012737
053737
013777
032777
001774

040000

161556

161554
000013
000200
002134
002216
000200

002222
161544
002216
002216
161516
161510

013777
012537
010346

002222
002146

161504

002146
000100
020712
002260

177661

002146

837
838
839

020534
020542
020546

84,1
842
84,3
84
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860

020556
020564
020572
020576
020602
020604
020606
020612
020614
020622
020624
(020626
020630
020634
020640
020646
020652
020660
020666
020674

013737
042737
012703
006237
001404
022323
005337
001374
032737
001401
005723
011303
010337
010337
053737
005037
053737
052737
013777
004537

862
863
864
865
866
867
868
869

020706
020710

012603
000205

020712
020714
(20716

007377
007430
007462

840

861

020550

020700

020720

042737

042777

007522

000100

020440
002264
002262
002262
002134
000200
002146
020764

000200

LDFUNC: BIT
BEQ
MOV
MOV
MOV
BIS
MOV
6%:
BIT
BEQ
5%

1%:
002146

2%:
3%

002146
002146
002146
161346

161334

MOV
MOV
MOV

BIC

002260
002260

o
002260

CALL:

4$%:

JSR

.WORD

RS,LDFUNC

#BI1T14,aRLCS
5%
aRLDA,B.DA
#13,aRLDA
#200,B.CS
DRIVE,B.(CS
B.CS,aRLCS
#200,3RLCS
6$
B.DA,aRLDA
(R5)+,LDCSR
R3,=-(SP)

#177661,LDCSR

JLOAD THE FUNCTION IN NEXT WORD

;BITS TO BE LOADED, FUNCTION
*AND INTR ENABLE ONLY

:;DRIVE ERROR SET

:GET BITS TO LOAD
*SAVE R3

:CLEAR ALL BUT FUNC & INTR EN

MOV
BIC
MOV
ASR
BEQ
CMP
DEC
BNE
BIT
BEQ
TST
MOV
MOV
MOV
BIS
CLR
BIS
BIS
MOV
JSR

LDCSR,FNDFNC
#INTEN,FNDFNC
#HDRLST ,R3
FNDFNC
2%
(R3)+,(R3)+
FNDFNC
1%
#INTEN,LDCSR
38
(R3)+
(R3) ,R3
R3,RESTMS
R3.TRYFNC
XMEM, LDCSR
XMEM
DRIVE ,LDCSR
#200,(DCSR
LDCSR,ARLCS
RS ,BEF ORE

:SAVE FUNCTION
:ONLY FUNCTION
*GET HEADER LIST
SALIGN TO LEFT
*IF EQUAL TO ZERO, SET R3
;BUMP R3 BY 4
*DEC FUNCTION
*FOUND IT? NO-GO BACK
sYES, DO WE WANT FLAG OR INTR?
*FLAG BRANCH
“INTR POINT TO THAT ONE
*SET HEADER
*SET UP HEADER
*SAVE HEADER FOR LATER
*LOAD E.A. BITS
;CLEAR QUT THE BITS
*SELECT DRIVE

MOV
RTS

(SP)+ ,R3
RS

JRESTORE R3
CEXTT

BIC

HDRLST: NOPMES
NOP INT
WCKME
S
WCK INT

#200,RLCS

:LOAD FUNCTION
*READ REGTSTERS

*ISSUE COMMAND

MACY11 30A(7052)
22-NOvV-78
LOAD RLCS
22-NOv-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

020722

007747

15:35

PAGE 1-22

SEQ 0052

GSTMES
GSTINT
SEKMES
SEKINT

RHDME
S
RHD INT
WRTME
S
WRTINT
RDDME
S
RDD INT
RDNME
S
RDNINT

020750

;titttfitttt*ti*tttttttttitt!.tlt.t.fit'tflt'tQQQQIQ"'QQ&.Q'Q.fiit.

s*ROUTINE TO MOVE ASCII STRINGS
;*USES REGISTERS R1
-

020752
020754
020756
020760
020762

012504

= WHERE STRING IS BEING BUILT

CALL

JSR

FIX:
1%:

MOV
MOVB

+ R4
(R5)

BNE

TSTB
RTS

000205

.WORD

RS, FIX

(R4)+,(R1)+
1%
=(R1)

;ADDRESS OF STRING TO MOVE
;GET ADDRESS AND MOVE RETURN

;GET BYTE AND UPDATE

sWATCH O BYTE

TERMINATOR

:Efi?? UP OVER ZERO BYTE

;ROUTINE TO READ REGISTERS PRIOR TO OPERATION

sCALL:
020764

020772
021000
021006
021014

017737
017737
017737
017737
000205

002216
002220
002222
002224

JSR RS5,BEFORE

BEFORE : MOV

aRLCS.B.CS
aRLBA,B.BA
@aRLDA,B.DA
ggLMP.B.MP

JREAD CS
BA
:
DA
.
:

MpP

NNO=—= =Y
[a]s
P eF Y

)l
——d —

o
~N

~NOwnww

—a

—d o

—d

08000000

021064

wmmmfuoog

021024
021032
021040
021046
021054
021062

—

021016

(oY o Yo o No No

e
—D e —D

;ROUTINE TO READ REGISTERS AT TIME OF ERROR
;CALL:
JSR RS5,AFTER

002226
002230
002232
002234
002236
002240

AFTER:

MOV
MOV

;READ

2§LMP.E.MP2

SIMBCC: MOV

00217
002174
002176
002154
002176

aRLCS,E.CS
aRLBA,E.BA
aRLDA,E.DA
aRLMP,E .MP
P
E .MP]
aRLM

RO,=(SP)
R1,=(SP)
R2,=(SP)

(RS)+, TEMP?

(R5)+. TEMP$

1$:

(LR

(R5)
+ . TEMP&
BC7FBK
TEMP4
, RO

;SAVE RO

;SAVE R1
;SAVE R2

;GET NUMBER OF BITS
sGET DATA FOR (RC CALCULATION
JGET STARTING (RC

SGET PRESENT (R

MACY11 30A(1052)
22-NOV-78
22-NOV-78 15:28
LOAD RLCS

ASSEMBLY ROUTINES

000001

SANIFREANSRUEKER

002174

| CZRLBB.P11

ROR
ADC

BIT

BEQ

002154
002152

—d e

0212

15:35

:IF NOT CONTINUE

#1,R0

002176
002154
002176

TEMP4
BCCFBK,RO
TEMP4 ,R1

MOV

sMERGE NEW WITH OLD
;BIT O SET

*GET CRC POLYNOMIAL (CRC-16)
* COMPL IMENT POL YNOMIAL
:CLEAR CARRY

002154

002152
002176

002176

002156

RO, TEMP4
TEMP2
1%

013737
012602
012601
012600
000205

TEM
, CALB(C
P4

RTS

(SP)
+ ,R2
(SP)+,R1
(SP)+,R0O
RS

sROUTINE TO WAIT FOR DRIVE RFADY

000144
000001

021250
021252
021252
021256

160772

WTDRDY: MOV
1%:
BIT

BNE

WAITUS

000024

021260
021262

021264
021264

014456

021274

000205

sROUTINE

012701
032777
001014

000620
000200

160732

#20.

ERRDF

200. ,DRTIM,ERRS

.WORD

200

.WORD

ERRS

RTS

T$ERCODE

DRTIM

TO WAIT FOR CONTROLLER

WTCRDY: MOV

1%:

#20. RO
C$WTU
R1
1%

.WORD

2%:

#100. ,R1
#DRDY ,aRLCS

MOV
EMT
DEC
BNE

TRAP

021272

021276
021302
021310

SEQ 0053
sROTATE NEW DATA

002154

2%:

TEMP3
RO

BCCFBK
XPOLY RO
RO
RO,BCCFBK

002172

021234

PAGE 1-23

BIT
BNE

#400. ,R1

#CPDY,aRLCS

;RETURN

CZRLBB.P11

MACY11
22-N0OV-78 15:28

30A(1052)

28-NOV-78

LOAD

RLCS

977

978

000024

981

021016

lele

EMT

DEC
BNE

$E282ERERS

N
N

WAITUS
MOV

2843

(3)
(3)
979

021350
021354

ERRDF

100.,CRTIM,ERRS

.WORD
RTS

ERRS
RS

CRTIM

JSR
RTS

RS ,AFTER
RS

002142

TRPHAN:

INC
RTI

TRPFLG

:
HDHOME

BGNSEG
EMT

C$BSEG

;XXSTART OF

MOV
MOV

#1,ERFLG
:SET ERROR FLAG
#DRST !MK !GSBIT,aRLDA

SEGMENTZ%%

s ISSUE DRIVE RESET
002266
160652

JSR

GSTAT

R5.,LDFUNC

020214

ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD

SEG
C$ESCAPE
10000%-.
R5,CHERR
SEG
C$ESCAPE
10000%-.

020456

ABZDR

R5,LDFUNC

ESCAPE
EMT

SEG
CSESCAPE

JSR
ESCAPE

RS ,WTCRDY
SEG

JSR

RS5,CHERR

.WORD

10000%-.

021276

20 N8O ON

nNO

82 £88 8

000001
000013
020456

#a s 4

021444
021450
021450
021452

{38RCODE

aWW

021442

R5,AFTER

2%:

021276

l\wvvr\)_nvvo§
WW—= =<2 NWN—= 2NN

e
VAl

R a—
-l wdd
—-,
g

021422
021426
021430

SEQ 0054

#20.
#20. ,RO
CSWTU
R1

021016

021356

021400
021402
021406
021406
021410
021412
021416
021416
021420

£ 9
PAGE 1-24

JSR
TRAP
.WORD
.WORD

021356
021356

AAOO0O0A~A~AO0O0~~0O

15:35

JSR

.WORD

EMT
.WORD
020214

ESCAPE
EMT

R5,WTCRDY

;LOAD THE FUNCTION IN NEXT WORD

;CHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE, ELSE EXIT

SEG

+LOAD THE FUNCTION IN NEXT WORD

;CHECK FOR SL:LOE, ELSE EXIT SEG

10000%-.

C$ESCAPE
10000%-.

SEG
C+E SCAPE

;CHECK FOR FL:LOE, ELSE EXIT SEG

; CHECK CNTLR FOR ERRORS

JCHECK FOR FL:LOE,

ELSE EXIT SEG

~—

ASSEMBLY ROUTINES

1016
1017
1018

021454
021462

013737
042737

1019
1020
1021

021470
021472
021500

001424
042737
012777

1024
1025
1026
1027

021514
021520
021522
021526

004537
000006
004537

021526
021530

104010
000076

1029
1030
(3)

021532
021536
021536

004537

021540

104010
000066

1032

021542

004537

}8%%

(3)
16%%

16%%

1033
1034"
1035

(3)
(3)

021506

021546
021550
021554

021554
021556

053777

000010
004537

104010
000050

10
1037
(3)

16%%

021560
021564
021564
021566

1039
1040

021570
021576

013737
043737

1043
(3)
(5)
(5)
]622

021606
021606
(021610
021612
021614

104462
000620
010303
014244

1045
(3)

021616
021616

021620

104010

000006

}825

021622

005037

1049
1050

021626

162%

021626

104005

18§g

021630

000207

}82;

162%

(3)

021604

021626

004537

30A(1052)

002234
000077

002160
002160

000100
000001

002160
160540

002160

22-NOv-78
LOAD RLCS

160532

020456
021276

E.MP,TMPO
#77,TMPO
99%
#100, TMPO
#MK . aRLDA

JSR
SEEK
JSR
ESCAPE

R5.LDFUNC

JSR
ESCAPE
EMT

R5,CHERR
SEG
C$ESCAPE

JSR

R5.,LDFUNC

EMT
.WORD

020214

.WORD

020456

99%:

021276

EMT
.WORD

020214

002234
002150

RDHDR
JSR
ESCAPE

002160
002160

100008%:

1055

021632

SEQ 0055

:GET HEADER
;SEEK IS NOT NECESSARY

;SET TO SEEK

;SET IN DIFFERENCE
;LOAD THE FUNCTION IN NEXT WORD
sCHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

10000%-.

RS ,WTCRDY
SEG

C$ESCAPE
10000%-.

E.MP, TMPO
SECMSK, TMPQ

;LCAD THE FUNCTION IN NEXT WORD
sCHECK FOR FL:LOE, ELSE EXIT SEG

10000%-.

400., SKHOME ,ERRO
TSERCODE
400
SKHOME
ERRO

;GET HEADER
s IGNORE SECTOR

:ON ZERO

;CAN'T SEEK TO TRACK O

ESCAPE
EMT

SEG
($ESCAPE

sCHECK FOR FL:LOE,

(LR

ERFLG

JINDICATE SUCCESS BACK TO MAIN PROGRAM
:%X%END OF

EMT

CSESEG

RTS

ENDMOD

ELSE EXIT

SEG

10000%-.

ENDSEG

1054

CSESCAPE
10000%-.

MOV
BIC

.WORD

002266

R5 ,WTCRDY
SEG

R5,CHERR
SEG
CSESCAPE

ERRDF
TRAP
.WORD
.WORD
.WORD

TMP0, BRLDA

JSR
ESCAPE
EMT
.WORD

BEQ

1%:

PAGE 1-25

MOV
BIC
BEQ
BIC
MOV

BIS

104010
000040

001404

15:35

SEGMENTZ%X

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

30A(1052)

1056

22-NOV-78
15:35 PAGE 1-26
*+TEST 1%% = WRITE NPR INTEGRETY

.SBTTL

SEQ 0056

##TEST 1%+ = WRITE NPR INTEGRETY

1058

021632

BGNTST

1060

021632

STARS

021632

:CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE
:UNIBUS. WE SET UP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS.
$TARS

(2)

106
1062
1063
(2)

1064
1065
1066
1067
(4)
,4)

021632
021636
021644

021646

1065

021650

1071
(7)
(6)
(S)
(4)
(3)
(2)
1072
1073
1074
1075
1076
1077
1078
1079

021652
021652
021656
021662
021666
021672
021674
021700
021704
021712
021716
021724
021730
021736
021744

1081
1082
1083
1084
1085
1086
1087
(3)
(3)
1088
1089

021756
021764
021772
022000
022004
022012
022014
022014
022020
022022
022024

1091
1092
(3)
(5)
(5)

022026
022032
022032
022034
022036

1093
(3)

022042
022042

1080

(5)

021650

021750

022040

;*#*START OF TEST##

.';ttittt**ttitttt*ttt*'t*tttt't**'ttttt*tt!*fififittttttt*fitt'tt*t't

".'tittt**li**tfit**fiifit'titttfitiil‘tttttti.fiiti*i*t.iitttitfi*itfi.it

004737

021356

JSR
CKERF G
EMT

104032
000232

WORD

BGNSEG

104004
012745
012746
013746
012746

104037
062706
005037
012777
005077
012777
005037
013737
052737
004537
013737

18:

000340
021350
002132
000003

000010
002142
003052
160330
177777
002166
002134
000012
020764

002166

052737
042737
013777
012701
032777
001013

000201
002000
002166
000144
000200

012700
104027
005301
001367

000024

004537

021016

16032

002166
002166
002216

160230

S$:

104462
009000
007172
014456

013700

002132

CSBSEG

SETVEC
MOV
MOV
MOV
MOV

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

MOV

002216
002216
160242

68 :

CSEXIT
L 10026~.

:HEADS OVER TRACK 0
*HEADS GO HOME OKAY

EMT

EMT
ADD
CLR
MOV
CLR
MOV
CLR
MOV
BIS
JSR

160332

PC,HDHOME

CSSVEC
#10,SP
TRPFLG
ABUF,aRLBA
@RLDA
#-1,aRLMP
GDDAT
DRIVE,GDDAT
MWRITE,GDDAT
RS,BEFORE
GDDAT,B.CS

BIS
BIC
MOV
MOV
BIT
BNE
WAITUS
MOV
EMT
DEC
BNE

#201.B.(S
#OPI.B.CS
GDDAT,@RLCS
#100..R1
ACRDY.ARLCS
68
#20.
#20,,RO
cSwil
RI
5%

JSR
ERRDF
TRAP
WORD

RS,AFTER
0.,CRTIM,_ERRS
T$ERCODE
0
CRTIM

WORD
.WORD
CLRVEC
MOV

ERRS

ERPVEC
ERRVEC,RO

;XXSTART OF SEGMENTXX
:SET UP FOR TRAP

:CLEAR TRAP OCCURANCE
:BUS ADDRESS
:LOAD DISK ADDRESS
:WORD COUNT OF 1
SET UP CSR TO LOAD
SET IN DRIVE
SET IN FUNCTION
:LOAD FOR ERROR PRINTOUT
SET_IN_COMMAND

:LOAD CRDY
*CLEAR (BIT 10
:ISSUE WRITE
‘WAIT FOR CRDY
:NPR DONE
SYES, 6%
‘WAIT A WHILE

;A WHILE UP
NO, GO BACK

JCONTROLLER TIMED OuT

;CLEAR VECTOR

ASSEMBLY ROUTINES

22-NOV-78 15:28

o
N
n)

~
o

005737
001406
004537

o
o
n

022054
022060

bgmmmmmwmmd—--—~—a-am-'—--—aooogwuo?uwooos
PN
NN =2C OO
NS~ W
=000
=
NN
e
' N
~

d
e

D
o =D

—
D
—

D e
D o

7$:

10001%:

104005

CSCVEC

SEG

CSESCAPE
10007$~.

SEQ 0057

;CHECK FOR FL:LOE, ELSE EXIT SEG
,

TRPFLG

BEQ
JSR
ERRSF

7$
RS ,AFTER
1. ,EM51,ERRO

.WORD
.WORD
.WORD

1
EMS1
ERRO

TRAP

:DID TRAP OCCUR?

*NO

L10026:

104001

.SBTTL

022102

BGNTST

022102

STARS

EmMT

ENDSEG

EMT

;TRAP ON WRITE

TSERCODE

JX%XEND OF

SEGMENTZ%

J**END OF

TEST=x»

C$cSEG

ENDTST

D
D el

D )
e

104461

INTEGRETY

CSETST

**TEST 2%x - WRITE FUNCTION
;**START OF

TEST#*x

D
D
N

—

021 016

.';tttfitttt'ti***fititt"t' AR AR

&~
WWW AN nono
W)= O~ O 00 ~ N

AR AR AR

A AR

AR AR AR

AR AR

ARk

sCHECK OF WRITE LOGIC UNDER FLAGC MODE, WE WILL FIRST ISSUE A
;READ HEADER SO THAT WE DON'T WRITE ON THE BAD SECTOR
;FILE TRACK.
WE WILL WRITE A FULL SECTOR (128 WORDS) FROM
sMEMORY (BUF).
WE CHECK THAT NO ERRORS OCCUR.
IF WE

D e

TST

d e

002 142

EMT
.WORD

000001
013145
014244

E
2
PAGE 1-27

**xTEST 1#*x <~ WRITE NPR

EMT

D e
D e

022100
022100
022100

15:35

ESCAPE

D e
D ed

— e

AN
D

——
—d s
il
i

— b — o~ N\

022076
022076
022076

22-NOV-78

104010

000024

022076

30A(1052)

104036

022052

(9,10,
LV, [WV)

AAQ

§3323cc

—

WWOW

CZRLBB.P11

-l

MACY11

022102

;HAVE A DRIVE ERROR WE WILL DO A "'GET STATUS'' TO SEE
;IF WRITE PROTECT IS SET IF IT IS WE WILL ABORT THE
sTEST.
AN ERROR ON THE WRITE WILL LOOP ON JUST THE
WRITE PORTION.
LOOP ON TEST WILL READ HEADER, SEEK (IF
;NECESSARY) AND WRITE.

STARS

;"t'ttt'*tttttt'ttt.i‘it'httttltt.tfitit'i"t'tttfitt'tfiittltil’fifit.

022102

004737

021 256

JSR

PC , HDHOME

022116

104032

000126

CKERFG
EMT

JWORD

CSEXIT
L10027-.

022120
022120

104004

BGNSEG
EMT

C$BSEG

022122
022122
022126

005077
012777

CLR

a7 DA

Lt
160114

MOV

#-128..3RLMP

:HEADS OVER TRACK 0
"HEADS GO HOME OKAY

SX%START OF

:SET DISK ADDRESS
-WORD COUNT

SEGMENTXX

MACY11
22-NOvV-78 15:28

ASSEMBLY ROUTINES

PN TN TN

WWONW (o ALY
IV IV TV PNV IV, IV TV IV LV, L TUN TN D o W S o0 o W N O S
VVNNNNNO&E%&&%%%
AR~
W) 2O 0
Nt LA
Qv St At it S AT NS N S

o
d
D
D
o o e
D
e e

022150
022154
022154
022156

004537

021276

022160
022166

032777
001425

040000

022170

012777
004537
000004
004537

0C0003
020456

16C102

MOV

JSR

WRITE

022214
022222
022230

013737
032737
001404

#BUF ,aRLBA

;BUS ADDRESS

RS.,LDFUNC

JWRITE

;LOAD THE FUNCTION IN NEXT WORD

JWAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

.WORD

RS ,WTCRDY
SEG
C$ESCAPE
100008~

160054

BIT
BEQ

#DERR ,aRL(S
4%

;DRIVE ERROR SET?
;BRANCH IF NOT

160050

MOV
JSR
GSTAT

#MK!GSBIT,aRLDA ;SET GET STATUS OF DRIVE
RS,LDFUNC
;LOAD THE FUNCTION IN NEXT WORD
sGET STATUS

ESCAPE

SEG

021276

JSR

EMT
.WORD

002234
020000

SEQ 0058

JSR
ESCAPE
EMT

104010

022212

G 5
PAGE 1-28

**TEST 2%* = WRITE FUNCTION

000064

104019
000030

022232
022232
022234
022236
022240
022242

002166
002166

MOV

RS,WTCRDY

;WAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE, ELSE EXIT SEG

C$ESCAPE
10000%~-.
E.MP,GDDAT

;READ DRIVE STATUS

;sNO, BRANCH

RIT

#B1113,GDDAT

ERRSF

3. ,WRLOCK,ERRO

BEQ

104461

000003
010331
014244

022242
o
N
no
no
'S
N

e
—

003052
020456

15:35

;WRITE LOCK ERROR?

D
D
ed o

—_d
0
=

012777
004537
000012

22-NOv-78

TRAP

.WORD

4%:

;WRITE LOCK ERROR

T$ERCODE

WRLOCK

ERRO

) cnld
-

b~ D

D N
D
e

D nd

—

N
el
e
e h
e
el

—d
D DD

N
B

022134
022142
022146

D e

—

D d

v, 1. STV

CZRLBB.P11

30A(1052)

022244

104009
104001

10000%:

ENDTST
L10027:

LSBTTL
022246

BGNTST

022246

STARS

ENDSEG

EMT

C$ESEG

EMT

CSETST

JA%END OF

SEGMENTZ%%

J**END OF

TEST ==

««TEST 3+« - WRITE FUNCTION INTERRUPT
s**START OF

TEST=»

:;tttt'ttittfiittt'ttt'tt'*fi"'l'titttt.ttt.'tt'tti't""tt.tt"'i

:CHECK OF WRITE LOGIC UNDER INTERRUPT MODE, WE WILL ISSUE A
:READ HEADER SO THAT WE DON'T WRITE ON THE ‘BAD SECTOR FILE

TRACK.

022246

:WE

CHECK

WE WILL

WRITE

A FULL

SECTOR

THAT NO ERRORS OCCUR.

; INCREMENT AT THIS TIME

(128 WORDS)

DO NOT

FROM MEMORY

CHECK RLDA OR RLBA

(BUF).

;;'tt.....itfi.‘i'.fi'ttt'.ttt"ttlt.t.ttt'i.'til.tQ.'..t..."'t‘i.

1176

022262

104032

000112

EMT

.WORD

CSEXIT

L10030-.

1179
(3)

022264
022264

106004

BGNSEG
EMT

C$BSEG

1182

022266

005037- 202144

}}gg

0223064

012777

003052

022312

012700

000000

MOV

1188
1183
1190
1191
(3)

022320
022324
022326
022332
022332

004537
000112
004537

020456

JSR
R5,LDFUNC
WRITE ' INTEN
JSR
RS, WTCRDY
ESCAPE
SEG
EMT
C$ESCAPE

JLOAD THE FUNCTION IN NEXT WORD
;WRITE UNDER INTERRUPT
:WAIT FOR INTERRUPT
;CHECK FOR FL:LOE, ELSE EXIT SEG

.WORD

10000%-.

1193

022336

SETPRI

#PRI07

:SET PRIORITY T0 7

(3)
1194

022342
022344

EMT
TST

C$SPRI
INTFLG

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

022352
022352
022354
022356
022360

1{;;

e
1183
1184

(3)

1§35
(3)

}}gg

022272
022276
022312

022316

022334

005077
012777

104041

104010

02233

012700

022350

001004

104041
005737

022364

000006

158?

022366

004537

1202
(3)

022372
022372

(3)

022372

(3)

022374

1583

022374

]'ggg
1207

1208
1209
1210
(2)

121

CLR

i
157744

157732

000340

’%:

104010

104005
104001

INTFLG

SETPR]

#PRIOO

EMT

C$SPR]

#8UF ,aRLBA

ENDTST

L10030:

LSBTTL
02237¢

BGNTST

022376

STARS

:SET UP BUS ADDRESS
:PRIORITY TO O

#PR100,RO

#PR107,RO

:DID

“

INTERRUPT OCCUR?

SYES~BRANCH NO-REPORT

ERRDF
TRAP
.WORD
.WORD
.WORD

4. ,EM17,ERRD
T$ERCODE
&
EM17
ERRO

JWRITE DID NOT INTERRUPT

ESCAPF
EMT

SEG
CSESCAPE

JCHECK FOR FL:LOE,

ELSE EXIT SEG

10000$-.

RS, CHERR

ENDSEG

EMT

($ESEG

EMT

($ETST

sCHECK CNTLR FOR ERRORS
SX%END OF

SEGMENTXZ

;osEND OF

TEST#e

»#=TEST 4=« = PROPFR INTREMENT OF RLBA ON WRITE
s««START OF

S MARRRREA
R AN RRE

JCHECK

:SET UP WORD COUNT

JSR
100008:

;CLEAR INTERRUPT OCCURANCE FLAG

BNE

.WORD

020214

:XXSTART OF SEGMENT%%

aRLDA
#-128. ,aRLMP

MOV

002144

;HEADS OVER TRACK 0

:HEADS GO HOME OKAY

{LR
MOV

MOV

021276
:

;
104462
000004
011351
014244

022362
022362

1203

157750
177600

CKERFG

000036

1198
(3)

1;3%

021356

SEQ 0059

PC ,HDHOME

(3)

022260

22-NOV-78
15:35
PAGE 1-29
*+TEST 3%% < WRITE FUNCTION INTERRUPT
JSR

022252

1187

004737

1177
(4)

022246

30A(1052)

THAT

TEST=e

SRR AP IR AR AR P E AT I AR R AR AR R CAC AR RN R AR TR R E AR

THE RLBA WIL.

INCREMENT PROPERLY AFTER

THE

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

K28R
& v}St

d
-t
-

22-N0v-78 15:35 PAGE %-30

TEST 4x» =~ PROPER INCREMENT OF RLBA ON WRITE

SEQ 0060

;WRITE WAS FINISHED THE RLBA SHOULD BE 128 WORDS (256 BYTES)
STARTING RLBA IS '
:CREATER.
ENDING SHOULD
"BUF + 256.°
WE WILL MONITOR ALL ERRORS AND REPORT THEM ACCORD!NGLY

022376

STARS

3 _'inltl‘l.ttt'*'."""t""'t.""."t""fi".tkfi.‘.Qtt..fl'l(i.

022376
022402
022410
022412
022414

022414

022416

ANNIN
A~ AN

30A(1052)

004737

0213%¢

104032

000116

JSk
KERFG
EM?
+WORD

104006

BGNSEG
£M7Y

005077
012777
012777
012737

157624

022452
022456
022460
022464
022464
022466

004537
000012
004537

022470
022474

004537

022444

022474

022514

#-128. , aRLMP
#BUF ,GDDAT

;FORM EXPECTED BUS ADDRESS
JAFTER WRITE

02045¢€

RS.LDFUNC

ARITE

021276

RS,WTCRDY
SEG

NAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

104010

CSESCAPE

020214

157540

002170

PS CHERR

rSESCAPE
100008~.

002170
002166

aRtBA, BDDAT

ggDAf.GDDAT

5.,EM20,ERRG

;iERCODE

;SESD"R%BA. FOR PRESENT ADDRESS

INCREMENT PROPERLY?

*YES, CONTINUE

JBA DID NOT INCREMENT

ERR4

°%:

022526
022526

100008:

ENDTST

L100%1:
LSBTTL

022532

sCHECK CNTLR FOR ERRORS

;CHECK FOR Ft:LOE, ELSE EXIT SEG

EM20

014410

104001

;LOAD THE FUNCTION IN NEXT WORD

10000%~.

022526

022530

;SET UP BUS ADDRESS
sWORD COUNT

#256. ,GDDAT

000040

104004

JRXSTART OF SEGMENTZZ

($3SEG
aRLDA
#BUF ,aRLBA

157614
157612

022516

022524

CSEXIT
L10037~,

JHEADS OVER TRACK Q
JHEADS GO HOME DKAY

002166
002166

062737

104010
000030
017737
023737
001404

PC ,HDHOME

BONTST

JWXEND OF SEGMENTZ%

ENDSEG

EM7Y

CSESEG

EmT

CSETST

;+*END OF TESTww

*aTEST Ses = PROPER INCREMENT OF RLDA ON WRITE
;#*START QF

TESTas

r;“_

b
b

AN
A~ A~ NINIPVNY
~ PONININD
&N I —
el BN\
D D s
W NOAD

VNN~ NN

ASSEMBLY ROUTINES
MACYT1
CZRLBB.P11
22-N0v-78 15:28

ASSEMBLY ROUTINES
" MACY11
CZRLBB.P11
22-NOv-78 15:28

1252
(2>

30A(1052)

¢"7532

)

xE
W '

s ’\Af\)fif\'\)gm
S ODU“hU“NgE

0o 0o

e
s
Y

AN SIASTANIAY)

P
Y

N~~~

AR AN R RN

SEQ 0061

AR A AN TR R

AR A AR R AR AR A AR

AR AR AR AR

STARS

::t!tfit"'ltllttfi.ttt'ti'ttt'.tttififit.fitfi.i"tti.k.tt."'ttt."Qt

004737

021356

JSR

022544
022546

000114

106032

022550
022550

104004

BONSE
G
EMT

022552
022552
022556
022564
022570
022576

005037
013777
005237
012777
012777

004537
000012
004537

022604
022610
022612
022616
022616
022620

000040

022622

004537

022630

000030

022632
022640
022646

013737
023737
001404

3%:
157462
157452
157440

020456
021276

104010

020214

104010

002170

R5,LDFUNC

#BUF ,aRLBA

+SETUP DISK ADDRESS

s CREATE EXPECTED SECTOR
sWORD COUNT
sSETUP BUS ADDRESS
JWRITE

*.0AD THE FUNCTION IN NEXT WORD

JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
SEG
($ESCAPE

JSR
ESCAPE

R5,CHERR
SEG
C$ESCAPE
10000%-.

;CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

E.DA_BDDAT
ggDAT,BDDAT

sREAD DISK ADDRESS

CMP
BEQ
ERRDF
TRAP

000006
011466
014410

;AXSTART OF SEGMENTZX

C$BSEG

JSR
WRITE

MOV

002170

CSEXIT

;HEADS OVER TRACK 0

JHEADS GO HOME OKAY

L10032-.

GDDAT
GDDAT,@RLDA
GDDAT

.WORD

002232
002166

PC ,HDHOME

CLR
MOV
INC
MOV
MoV

EMT

104462

022660

.WORD
.WORD
.WORD

;WAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE, ELSE EXIT SEG

10000%-.

6.,EM21,ERR4

£$ERCODE

;DID SECTOR INCREMENT PROPERLY

:YES, BRANCH

NO,

REPORT ERROR

;DA DID NOT INCREMENT

EM21

ERR4

(N WOOWNW
S o D W

—

2%:

022660
104005

10000%:

ENDTST

022662

;CHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE WAS FINISHED.
sWE RANDOMLY PICK A SECTOR (OTHER THAN LAST TRACK) AND ISSUE
;A FULL SECTOR WRITE THE RLDA SHOULD REFLECT AN INCREMENT
:OF THE SECOTR. "GDDAT"" WAS THE EXPECTED RLDA.

CKERFG
EMT
- WORD

022650
022650
022652
022654
022656

PAGE 1-3T

**TEST 5+~ < PROPER INCREMENT OF RLDA ON WRITE
SRR A T AR R

022532
022536

15:35

STARS

022532

22-NOv-78

104001

L1003%2:

ENDSEG

JAXEND OF SEGMENTZ%%

EMT

CSESEG

EMT

CeETST

s**END OF

TEST=»

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOv=-78 15:28

30A{1052)

022664

BGNTST

022664

STARS

SEQ 0062

«*TEST 6** - FORCE HEADE R NOT FOUND WITH WRITE
s**START OF

:FORCE _HEADER NOT FOUND ERROR TO OCCUR.

TESTx«

THIS IS DONE

;BY SETTING SECTOR 40 CF THE RLDA AND ISSUING A

JWRITE.
SECTOR 40 DOES NOT EXIST ON THE RLO1
: THEREFORE HDR NT FOUND SHOULD SET.

022664

PACK

STARS

;:titti!ttt*tifitttitttitfltttttifitttt’tttttfittttttfifi*tt'fitttt*tttt

022664
022670
022676
022700

004737

021356

104004

022704
022712
022720

012777
012777
012777

000050
003052
177777

022726
022732

004537
000012

020456

022734
022740
022740

JSR
CKERFG
EMT
.WORD

104032
000120

022702
022702

004537

BGNSEG

157334
157324
157322

021276

022744
022752
022760
022766

013737
042737
022737
(001402

002226

002160

112000

002160

022770
022774
022774

004537

020214

022776
023004

022737
001404

023014

1%:

002160

R5,LDFUNC

JSR

RS,WTCRDY
SEG
CSESCAPE
10000%-.

E.CS, TMPO

;LOAD THE FUNCTION IN NEXT WORD

;WRITE
;WAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE, ELSE EXIT SEG

JGET RLCS

: SAVE ERROR BITS

sYES, CONTINUE

JSR

RS, CHERR

EMT

C$CLPT

cMP

#BIT15!BIT12!BIT 10, TMPO
2%
23.,EM10,ERRO

CKLOOP

.WORD
.WORD
.WORD

ENDTST

s INSURE NOT TO FIND HEADER BY
;SETTING SECTOR 40 OF CYL. ADDR.
sWORD COUNT

#1777, TMPO

EM10
ERRC

sWHEN “ORCED

;A%END OF SEGMENTZ%

ENDSEG

EMT

;HDR NOT FOUND SET.

£§ERCODE

2%:

104005

:%XSTART OF SEGMENTZX

#BI1T151BIT12!BIT 10,TMPO

TRAP

10000%:

sHEADS OVER TRACK 0
;HEADS GO HOME OKAY

CMP

BEQ
ERRDF

JSR

BEQ

—_

#40. ,aRLDA
#BUF
, aRLBA
#=1,3RLMP

BIC

014244

023016

023016
023020

112000

MOV
MOV
MOV

MOV

002160

104006

023016

001777

CSEXIT
{.10033-.
($BSEG

ESCAPE
EMT
.WORD

022742

PC ,HDHOME

EMT

WRITE

104010
000054

K. 5
PAGE 1-32

':ttt'tt"t.Qtt'ttitittt'ttti'*itttttfifiittfit*fi't'ittti'tt"fittttt

o
nN)

-——
—_—
D
D
— v

—_ o

—

WWWNWW
A A A A~ WWWW A
NI
WWWWWA
A WNWWWWWW
W WWRI N NN WNIWNRD
NN WY
o
=OVOw
e NOWNB
WV
W=OVONA
NS WN=0O
~

(3)
1332

15:35

*«TEST 6** = FORCE HEADER NOT FOUND WITH WRITE

.SBTTL

—_— 2

o
3RS oV
REEERSN SISIICTR 33

1291

22-NOvV-78

CIESEG

s**END OF

TEST=»

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV=-78 15:28

(3)

023020
023020

L10033:

104001

BGNTST

023022

STARS

L .5
PAGE 1-33

o o Tt gttt

SEQ 0063

CSETST

EMT

*#TEST 7#%% - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT
s**START OF

e o

e e e o e ok e e e o o

e o o o o o o o

e ok e

e o

e e e o

e e o

ok e

TEST=*=

e eo

e e

:TEST THAT HEADEP NOT FOUND ERROR WILL GENERATE AN INTERRUPT
023022

0C 737

021356

—

BGNSEG

000000

——d

002144

020456

012700

000340

005737
001004

002144

104041

CSEXIT
L10034-.
C$BSEG

SETPRI
MOV
EMT
CLR
MOV

#PRIOO
#PR100,RO
C$SPRI
INTFLG
#40. ,dRLDA

JSR

RS,

JSR

R5,WTCRDY

EMT
SETPRI
MOV
EMT

C$CLP]
#PRIQ7
#PR107 ,RO
C$SPRI

#BUF ,aRLBA
#-1,aRLMP

WRITE!INTEN

021276

CKLOOP

e e e ok e

PC ,HDHOME

EMT

MOV
MOV

012777
004537
000112
004537

o e e e e e e e e e o o o o

EMT
.WORD

104004

012700

et de e e e e

JSR
CKERFG

104032
000160

WNWWWWW
A
~WNW
A~
vy
O 0o NOWVMBN WY~ =20~ 000 N

5
o o St

DFUNC

e e

e ok o e

e o

e ok e e

e ok e e o

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY

sA%XSTART OF

SEGMENTZXZ

:CLEAR INTERRUPT OCCURANCE FLAG
2 INSURE NOT TO FIND HEADER BY
sSETTING SECTOR 40 OF CYL. ADDR.
;WORD COUNT
JWRITE

sLOAD THE FUNCTION IN NEXT WORD

;WAIT FOR CONTROLLER READY

) e —D D

e e

;ON OCCURANCE.
HEADER NOT FOUND WILL BE FORCED BY SETTING
;?EggOR 40 OF RLDA AND ISSUEING A WRITE

104006

SECTERTTTTRELES

15:35

**TEST 6** - FORCE HEADER NOT FOUND WITH WRITE

023022

22-NOV-78

.SBTTL

NN B

W= O~ 000N

~WW WWWW W
NOWW

SR RN
R A
LEG A

(3)

30A(1052)

-—

N o~

—_—

)

NN N~

—

TST

104462

023134

023136
023136
023140

000054

INTFLG

;DID

ERRDF

24, ,EM43,ERRO

;NG INTERRUPT FROM OP]

.WORD
.WORD

EM<3
ERRO

ESCAPE
EMT
.WORD

SEG
C$E SCAPE
10000%-.

TRAP
.WORD

000030
012723
014244
104010

BNE

’%:

TfERCODE
2

INTERRUPT OCCUR

;YES OKAY

JCHECK FOR FL:LOE, ELSE EXIT SEG

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOv-78 15:28

013737
042737
022737
001402

002226
001777

023166
023172
023172

004537

020214

023174
023202

022737
001404

023142
023164

112000

30A(1052)

15:35

E.CS, TMPO

MOV
BIC
CMP
BEQ
1%:

#1777, TMPO

s NES NN
o o

R B8EIEBBNGE GRBRERIGG

—_—aa
—

~ o~

:GET RLCS

SAVE ERROR BITS

#B1T15'817T12'81710,TMP0
1%

CKLOOP

002160

:YES,

;WDR NOT FOUND SET.

CONTINUE

RS, CHERR

C$CLP1

§g1715331712!exr1o.rnpo

25..EM10,ERRO

(3)

— il
) D d
WWWW

PAGE 1-34

**TEST 7%% < FORCE HEADER NOT FOUND WITH WRITE INTERRUPT

002160
002160
002160

104006
112000

22-NOV-78

T$ERCODE

023210
023212

25
EM10
ERRO

014244

023214
023214
023214
023214
023216
023216
023216

;WHEN FORCED

3%:
100008:

104005

ENDTST

L10034:

104001

LSBTTL

023220

BGNTST

023220

STARS

JX%XEND OF SEGMENT%%

ENDSEG
EMT

C$ESEG

EMT

CS$ETST

J*%END OF

#«TEST 8%« = (HECK OP]

TEST=*x

TIME WITH HDR NT FND
s**START OF

TESTw~

'.‘i.tt.'tttttttltttttfit'tt'l.Qt.ttttt.tltti..".'Q.Q'fi.".i'...t'

;CHECK OPI

;"HECK

TIME

THIS BY

IT SHOULD BE AROUND 200 MILLISECONDS (ON UNIBUS)

TIMING OPI

ON A FORCED HEADER NOT FOUND

. ISSUE WRITE WITH SECTOR 40 SET

023220

STARS

IN THE DISK ADDRESS

".'RQtfilt".tttttfitittt.'i..'tQQ.QQ'Q.Q&...Q'tQ'tt".tt‘ AR AAR R AN

023220

021356

023234

023236
023236
023240
023240
023244
023246
023246

023262

002254

000340
020116
.
002254
000003

JSR
CKERFG
EMT

PC ,HDHOME

. WORD

CSEXIT
L10035~.

BGNSEG
EMT

($BSEG

CLRVEC
MOV
EMT
SETVEC

MOV
MOV

MOV

BvL
BVE(,RO
C$CVEC

JHEADS OVER

sXXSTART OF
;CLEAP PRESENT

BVEC,#TIMSRV,#340
#340,-(SP)
#TIMSRV,=(SP)

8,5C,~(5P)
#3,-(SP)

TRACK 0

JHEADS GO HOME OKAY

JSET

SEGMENTZ%%

INTERRUPT VECTOR

INTR, VEC. WITH ABORT WALT

SEQ 0064

ASSEMBLY ROUTINES

22=N0V~78 15:28

CZRLBB.P11

(3)
(2)
1407
(3)

(3)

1408
1409
1410
1411

1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422

023266
023270
023274
023274
023300

104037

062706

30A(1052)

22=NOv-78

EMT

ADD

000010

023322

012777
012777

023330
023334

004537
000112

002144
000050
003052

177777

156722

156720

020456

023374
023374
023376

000012

002170

012700

000340

023737
002404

002302

002170

023737
003404

002300

002170

104041

1%:

104036

;SET UP FOR HDR NT FND

;BUS ADDRESS
JWORD COUNT

;LOAD THE FUNCTION IN NEXT WORD

JSR

RS, LDFUNC

MOV
ASL
ASL
ASL
ADD
ADD
WAITUS

OPIMX,RO
RO
RO
RO
OPIMX
, RO
0P IMX .RO
RO

JWAIT MAX MILLISECONDS

INTFLG

;SETUP FOR WORST CASE
;DID INTERRUPT OCCUR

EMT
MOV

CSWTU
RO,BDDAT

BEQ

GETTIM

BDDAT

JGET TIME EXPIRED

SURB

#10. ,BDDAT

;ANSWER

EMT
MOV
CLR

C$GT IM
RO,BDDAT
RO

REPORT ERROR

;DIVIDE

;BY 10 TO GET
JRIGHT ANSWER

THAT OPI

TIME

2%:

SETPRI
MOV
EMT
CMP
BLT

#PRI07
#PR107,RO
C$SPR]
OPIMX ,BDDAT
4%

JIS IT WITHIN LIMITS
+NO, REPORT ERROR

CMP

OPIMN,BDDAT

sWITHIN LIMITS

ERRDF
TRAP

974, ,EMS6,ERR13
TSERCODE

sOP] TIMING INCORRECT

‘WwORD

974
EMS6
ERR13

(LRVEC

BVEC

;CLEAR PRESENT VECTOR

BLE

MOV

EMT

SETVEC

3$
RO
1%
RO,BDDAT

;NO,

;CHECK

WORD
.WORD

002254

#-1,3RLMP

;CLEAR INTERRUPT FLAG

013456
015102

013700

#BUF . aRLBA

INTFLG
#40.
, aRLDA

BM]
INC
BR
MOV

4%:

104462
001716

CSSVEC

#10,SF

MOV

002170

SEQ 0065

TIME WITH HDR NT FND

WRITE
! INTEN

002170
002144

023372

1-35

#PRI00
RO
#PR100,
C$SPRI]

MOV

002302
002302

366

PAGE

SETPRI
MOV
EMT
CLR
MOV

156732

002302

023336

15:35

«+TEST B*% = CHECK OPI

000000

(3)

1423
1424
1425

MACYil

IS WITHIN LIMITS

BVE (RO

CorvEC

; YES

RBVEC,BINTSRY,
&34

sSET

IN OLD

vECTOR

15:35 PAGE ?-32

MACY11 30A(1052)
22=NOV-78
*+TEST 8++ = (HECK OPI TIME WITH HDR NT FND
22-NOV-78 15:28

ASSEMBLY ROUT INES

CZRLBB.P11
(7)
(6)
(5)

023510
023512
023516
023516
023516
023520
023520
023520

012746
012746
013746
012746

000340
020110
002254
000003

062706

000010

104037

SEQ 0066

#340,-(SP)

#INTSRV,=(SP)

EMTY

ADD

100008%:

104005

BVEC,=(SP)
#3,-(SP)
CSSVEC
#10,SP

;XXEND OF SEGMENTZX

ENDSEG
EMT

CSESEG

ENDTST

L10035:

104001

.SBTTL

025522

BGNTST

023522

STARS
e

s**END OF
EMT

TEST=~

CSETST

*«TEST 9x% < MULTIPLE SECTOR TRANSFER ON WRITE

;#*START OF

AR AR

AR AR AR R AR

AR R A AR AR AR A AR AR AAR AR AR

TEST#=

AR AR AR AR AR AR AR R Rk

sCHECK FOR MULTIPLE SECTOR TRANSFER ON WRITE. THIS TEST CHECKS
sTHAT TWO SECTORS CAN BE SUCCESSFULLY WRITTEN.
WE LOAD

;A WORD COUNT OF 129 WORDS (ONE SECTOR + 1 WORD) STARTING AT
;SECTOR O THRU SECTOR 37 AND VERIFY THAT THE RLDA DOES
;A DOUBLE INCREMENT EACH TIME.

023522

STARS

SRR

004737

021356

104032
000152

023540
023544

005037
005037

023550
023550

104004

023552

013737

002160
002162

002166

JSR
CKERFG
EMT
.WORD

PC ,HDHOME

CLR
CLR

TMPO
TMP1

CSEXIT
L10036~.

A AR A A AR A A AR AR A AR AR

1¢:

AR AR AR

AR R

JHEADS OVER TRACK 0

:CLEAR TEMP LOCATIONS

;XXSTART OF SEGMENTZX

#-129. ,aRLMP

;GET CYLINDER
sGET SECTOR
sSET DISK ADDRESS-SECTOR 0
;SET EXPECTED + 2
.SET BUS ADDRESS
sWORD COUNT-SECTOR+1 WORD

020456

RS ,LDFUNC

021276

RS ,WTCRDY
G
( +ESCAPE
10000%-.

“WAIT FOR CONTROLLER READY?

156432

ARk kK

;HEADS GO HOME OKAY

TMP1,GDDAT
TMPO
. GDDAT
GDDAT
, aRLDA
#2,GDDAT
#BUF ,aRLBA

177577

000054

C$BSEG

00
003052

104010

AR A AR A

w
m

023522

AR AR

:LOAD THE FUNCTION IN NEXT WORD

*CHECK FOR FL:LOE, ELSE EXIT SEG

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV~78 15:28

1487
1488

1489
(3)
1236

023634

004537

023640
023640
023642

104010
000044

1491
1492

023644
023652

013737
023737

1495
(3)

023662
023662

}zgg

023672

1499
1500

023672
023676

1503

023706

}232

(5)
(5)
11(015?()’

4285

(3)
(3)
1504
(3)
1§3%

023660

023664
023666
023670

023704

023706
023706
023710
023710
023710

001404

30A(1052)

020214

002232
002170

002170
002166

SEQ 0067

JSR

RS, CHERR

SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

MOV
CMP

E.DA,BDDAT
BDDAT, GDDAT

:READ DISK ADDRESS
*1S DISK ADDRESS CORRECT

ERRDF
TRAP

:;DISK ADDRESS NOT CORRECT

.WORD
.WORD
.WORD

7.,EM22,ERRG4
TSERCODE

7
EM22
ERR4

INC
CMP

TMPO
#46, TMPO

:NEXT SECTOR
‘AT END?

ESCAPE
EMT
.WORD

BEQ

104462
000007
011544
014410

:CHECK CNTLR FOR ERRORS

*YES, BRANCH

NO, REPORT ERROR

2%:
005237
022737

001322

002160
000046

:
104005

002160

BNE
100008:
ENDTST
L10036:

104001

'428(}

.SBTTL

}55;83

023712

BGNTST

1510

023712

STARS

(2)

22-NOv-78
15:35
PAGE 1-37
**xTEST 9*x = MULTIPLE SECTOR TRANSFER ON WRITE

ENDSEG

EMT

CSESEG

EMT

CSETST

*NO, GO BACK

S%%END OF

SEGMENTX%X

;*%END OF

TEST**

**xTEST 10%** - CHECX DIRECTION OF WRITE NPR
s**START OF TEST=x

ttttt*'ttt*ttttttttttittttttttttfittttttttttt*ttttttttfifititttttt

1511
1512

:VERIFY THAT A WRITE IS WRITING NOT READING.
WE WRITE A
:KNOWN_PATTERN IN 'BUF'' (128 WORD), WE THEN ISSUE A WRITE.

}g}g

‘Lfiis IS DONE TO PROVE THAT THE NPR IS GOING THE RIGHT

1513

1516
(2)

1517
1518
1519
1520
(4)

*ONCE THE WRITE IS FINISHED WE CHECK THAT 'BUF'' IS INTACT.

023712

]ggg

023712
023716
023724
023726

1522

023730

1§§%

1524
1525
1526

STARS

;;ttttttttttttt*ttttttttitttttttitttttttttttittt\'ttt'fitttttttttt

004737

021356

JSR
CKERF G
EMT
.WORD

104032
000160

023730

104004

023732
023732
023736

012702
012701

PC , HDHOME
CSEXIT
L10037-.

BGNSEG

003052
000200

1527 023742 012722 125252

2%:

;XXSTART OF

EMT

C$BSEG

MOV
MOV

HRUF R2
8708,

MOV

:HEADS OVER TRACK 0
*HEADS GO HOME OKAY

c125252 (R2)+

SEGMENTZX

:WRITE BUFFER FOR WRITE OPERATION
*ONE SECTOR'S WORTH

:WRITE BUFFER

MACY11
22-NOV-78 15:28

ASSEMBLY ROUTINES

—

DA
~ NANANNN vN
W

BLLYERRUKZEY n
®

CZRLBB.P11

023746
023750

005301
001374

023752

005077
012777
012777
004537
000012
004537

WO WY
“wOVONO~Y
NS v

—_——
=

NN A A NN A A~

D
)
—

DEC
BNE

156270
177600
003052
020456

156264
156252

021276

004537

024020
024024

012702
012701

024030
024030

104004

020214

003052
000200

024052

024054

010237

002162

024066

000010
012045
014564

002166
002170

10001%:

10000%:
ENDTST

L10037:
LSBTTL

024110

BGNTST

;CHECK FCR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

;SET UP TO CHECK BUFFER

;CHECK 128 WORDS

;XXSTART OF SEGMENTZZ

C$BSEG

R2,.TMP1 ;LOAD MEMORY LOCATION OF FAILURE
8. .EM26,ERRS
gSERCODE

.WORD
. WORD
.WORD

001357

;WRITE SOME DATA

MOV

TRAP

6%:

104001

;WAIT FOR IT TO FINISH

#125252,GDDAT
(R2) ,BDDAT
GDDAT ,BDDAT
5%

ERRDF

024070

104005

RS ,WTCRDY

MOV
MOV

CMP
BEQ

024070

104005

sLOAD DISK ADDRESS
sWORD COUNT
;BUS ADDRESS
:LOAD THE FUNCTION IN NEXT WORD

#BUF ,R2

104462

(3)

aRLDA
#-128. ,aRLMP
#BUF ,aRLBA
R5,LDFUNC

#128. ,R1
BGNSEG
EMT

125252
002170
002166

024102

sDONE?
;NO, GO BACK

R5,CHERR
SEG
CSESCAPE
100008~.

104010
000066

SEQ 0068

R1
3%

CSESCAPE
100008~-.

012737
011237
023737
001406

V24072
024074
024076
024100

SEG

000076
024010
024014
024014
024016

15:35
PAGE 1-38
*«TEST 10** -~ CHECK DIRECTION OF WRITE NPR

22-N0V=78

104010

024032

30A(1052)

ESCAPE
EMT
.WORD
TST
DEC
BNE

;DATA SHOULD BE 125252
;LOAD DATA INTO BDDAT
;1S IT OKAY?
;YES, CONTINUE

EM26
ERR8
SEG
C$ESCAPE
100018%~-.
(R2)+

R1
4%

;CHECK FOR FL:LOE, ELSE EXIT SEG

sNEXT!

sDONE?
:NC, GO BACK

JX%END OF SEGMENTZ%

ENDSEG

EMT
ENDSEG

C$ESEG

EMT

C$LSEG

EMT

CSETST

;%XXEND OF SEGMENTZX
J**END OF

TESTw»

**«TEST 171x* = CHECK FULL RLBA INCREMENT
s**START QOF

TESTw«

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28
1567
1568
(2)

30A(1052)

024110

22-NOv-78
15:35
PAGE 1-39
**TEST 11#%% = CHECK FULL RLBA INCREMENT

SEQ 0069

STARS

tttttttt't*ttttttttt*i'ttttitittttttt*tlit.tfi't.t*ttttttttttttt

1569

*TEST THAT THE RLBA WILL

1571
1572
1573
1574

024110

SAND1 TO 0.
WE DO CHECK ALL BITS EVEN IF ALL MEMORY
*1S NOT AVAILABLE.
(WE IGNORE NON-EXISTANT MEMORY ERRORS).
‘WE USE THE SAME DISK ADDRESS (RANDOM) AND A 1 WORD TRANSFER.
STARS

1577
1578
(4)
(4)

024110
024114
024122
024124

004737

123%

024126

005037

1583

024132

104004

1585
1586

1587

024134
024134
024142

012777

177777

156106

013777

002162

156070

1590
1591
1592
1593
(3)

024154
024160
024162
024166
024166

004537
000012
004537

020456

024170

000066

1595
1596
1597

024172
024200
024206

013737
062737
013737

1233

024222

001404

1570

(2)

1280
1;32

}ggg

1§32

1598

1601

(3)

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

024146

024214
024224

024224

024226
024230
024232
024234
024234

021356

104032
000134

005077

002162

023737

156100

3$:

021276

002162
000002
002230
002166

002166
002166
002170

4%:

002170

006337
103404
052737

1609

024256

000727

TMP1

000002

(12162

#-1,3RLMP

:ONLY ONE

MOV

TMP1, 3RLBA

*BUS ADDRESS

ARL DA

(1) WORD

*LOAD DISK ADDRESS

JSR
WRITE
JSR
ESCAPE
EMT

RS, LDFUNC
RS, WTCRDY
SEG
CSESCAPE

:WAIT FOR WRITE TO FINISH
*CHECK FOR FL:LOE, ELSE EXIT SEG

MOV
ADD
MOV

(MP

TMP1,GDDAT
#2,GDDAT
E.RA,RDDAT
GDDAT ,BDDAT

:SET UP EXPECTED RLBA
*PREVIOUS RLBA+2
*READ RLBA
*WAS IT UPDATED PROPERLY?

ERRDF

9..EM30.ERR4

:BA INCREMENT ERROR

;LOAD THE FUNCTION IN NEXT WORD

10000$-.

*YES, CONTINUE

T$ERCODE

.WORD
.WORD

"WORD
ESCAPE

9
EM30
ERR&
SEG

EMT

C$ESCAPE

ASL
BCS
BIS

TMP1
6%
#BIT1,TMP1

6%:

:%XSTART OF SEGMENTZX

MOV

.WORD

002162

;CLEAR LOCATION

C$BSEG

BEQ

5$:

CSEXIT
L10040-.

:HEADS OVER TRACK 0
*HEADS GO HOME OKAY

EMT

TRAP

104010

024240
024244
024246

CLR

.WORD

000011
012165
014410

1604
1605
1606

PC , HDHOME

CLR

104462

000020

JSR
CKERFG
EMT
.WORD

BGNSEG

104010

024236

024254

.' .'tttttttttttttt*t*tttittititit't'ttt.ttititt*fittfiiit*'*'tittfiitt

1é3§

;ggg

INCREMENT, WE DO NOT DO A FULL

BIT INCREMENT WE CHECK THAT EACH BIT WILL TOGGLE O TO 1

;CHECK FOR FL:LOE, ELSE EXIT SEG

100008~

:NEXT PATTERN TO TEST RLBA
*DONE?
*NO, SET IN BIT 1

16O CHECK NEXT.
SEND

TEST

F
6
ASSEMBLY ROUTINES
MACY11 30A(1052)
22-NOvV-78 15:35 PAGE 1-40
CZRLBB.P1
**TEST 11%+ = CHECK FULL RLBA INCREMENT
22-NOvV-78 15:28

D D (NN
S 18] —_N) =

024256
024256
024256
024260
0242€0
024260

10000%:

104005

ENDTST

L10040:

104001

.SBTTL

024262

BGNTST

024262

STARS
SRR

SEQ 0070

JAXEND OF SEGMENTZX

ENDSEG

EMT

C$ESEG

EMT

CSETST

s**END OF

TEST=*«

*«TEST 12%* - BA BIT 16 INCREMENT
;**START OF
AR A AR AR AR AR A AR AR RN A

AR AR AR

AR AR R AR

TEST#»

AR AR R AR

Rk ®

;CHECK THAT BA BIT 16 WILL INCREMENT.
WE WILL LOAD THE
:RLBA WITH 177776 AND ISSUE A_ONE WORD WRITE WE THEN
;CHECK BA BIT 16 TO SET, BA 17 TO STAY A 0 AND THE RLBA

.70 GO TO ZERO

024262

STARS
e

F A AR AR R A AR

A AR AR AR AR

A AR AR A AR AR A AR AR

A r AR ARk k&

n o~

Sa
P
_

oo~

PDadaa

—

WN =00VONONRWE
SR~ e =D

ONONONONONA AN~ A0

[ ey

]

1625

024262
024266
024274
024276

021356

JSR
CKERFG
EMT

024300
024300

024302
024302
024310
024314
024322

177776

155734

177777

155726

002262

155720
020456

020000

024354
024360
024360
024362

020214

024364
024372

000020

024374
024374
024376
024400

. WORD

CPEXIT
L100417~.

BGNSEG
EMT

C$BSEG

MOV

#177776 ,aRLBA
XMEM

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY

;%%START OF SEGMENTZX

:SET MAX BA TO INC. BA16
:WE DON'T WANT TO LOAD ANY EA
:ONE WORD TRANSFER

RS5,LDFUNC

021276

024344
024352

PC ,HDHOME

RS ,WTCRDY
SEG

CSESCAPE
10000%~.

002226

#NXME
. CS

3%:

;LOAD THE FUNCTION IN NEXT WORD
;WAIT FOR WRITE TO FINISH
;CHECK FOR FL:LOE, ELSE EXIT SEG

:NON=-EXISTANT MEMORY ERROR?

:YES,

R5,CHERR
SEG

:CHECK CNTLR FOR ERRORS
;CRECK FOR FL:LOE, ELSE EXIT SEG

C$ESCAPE

CONTINUE

10000%~-.

002226

#BA16,E.CS

;DID BA16 SET?
JYES, CONTINUE

10. ,EM31 ,ERRO

;BA 16 DID NOT INCREMENT

TSERCODE
10

EM31

v ONS WA~ =0 A

i Vi
ibweawo v

S
|
i
A
N N

~ o~

N N

‘N’\& 8:4Af\fi
v

—

) e

c33RE33
~r (NP =
O~

e s

—

d -

—_

oA AAA~AON OO~
~

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOv-78 15:28

024402

016244

024404
024404

104006

024406
024414

032737
001404

024416
024416
024420
024422
024424

000013
012270
014244

024426
024426

104006

024430
024434
024442
024444
024444
024446
024450
024452

000040

002226

1044¢.2

005037
013737
001404

5%:

ERR(Q

CKLOOP
EMT

C$CLPT

BIT
BEQ

#BA17 E.CS
5%

;DID BA17 SET ALSO?
sNO, GOOD CONTINUE

ERRDF

11. ,EM32,ERRC
{?ERCODE

;BA 17 GOT CARRIED AWAY

.WORD
.WORD
.WORD

EM32
ERRO

CKLOOP
EMT

C$CLPT

CLR
MOV
BEQ
ERRDF

002170

104462

TRAP

000014
012335
014410

SEQ 0071

.WORD

TRAP

002166
002230

15:35
PAGE 1-41
**TEST 12+ - BA BIT 16 INCREMENT

22-N0OV=78

A ¥

.WORD
.WORD
.WORD

024454
024454
024454
024454
024456
024456
024456

30A(1052)

GDDAT
E.BA ,BDDAT

;CHECK THAT BA15-BA0 IS CLEAR
sREAD BA

12.,EM33,ERR4
T$ERCODE
12

;BA SHOULD BE ZERO

;IS BA ZERO?

EM33

ERR4

6%:
10000%:

104005

ENDTST

L10047:

104001

+SBTTL

024460

BGNTST

024460

STARS
MR

sAXEND OF SEGMENTZX

ENDSEG

EMT

CSESEG

EMT

(SETST

*«TEST

13++ - BA BIT 17 INCREMENT

s**END OF

TESTw+

;**START OF

TEST=x

A LSSl
22232322333323227

;CHECK THAT BA BIT 17 WILL INCREMENT.

WE WILL LOAD THE
;RLBA WITH 177776 AND BA 16 SET, WE WILLISSUE A ONE WORD
WE THEN CHECK BA17 TO SET, BA16 TO CLEAR AND
;WRITE.

;BA15 - BAO TO CLEAR.

024460

STARS

,','tttttiit't"*ltfiit't"tti"l’ttfiittt.tifitt‘*fifittfi'tttitt.t't't't

024460
024464
024472
024474

024476

004737
104032

0001€2

021356

JSR

CKERFG
EMT
.WORD
BGNSEG

PC ,HDHOME

CSEXIT
L10042~-.

JHEADS OVER

TRA(CK

JHEADS GO HOME OkAY

JXXSTART OF SEGMENTZ%%

ASSEMBLY ROUTINES

| CZRLBB.P11

MACY11 30A(1052) 22-NOv=78 15:35 PAGE1-Lg

22-NOvV~78 15:28

«*TEST 13+» < BA BIT 17 INCREMENT

024476
177776
000020

177777

155520
02045¢

155536
002262

2%:

155526

020000

~au+dunvnngu~4—a.a—flstusgcaunnunu%; SR &
NN

b D
Y
DT TN
S S
e
T
B

A A
NN
AN AN ASNINNNIN
A N o s s s NN
Y N A NN
0 L
W L
e
S
i
NN
N
O~
e OO N e BN o e e s NN =2 OO

e il

1722

1723

024554
024560
024560
024562

020214

024564
024572

000040

00222¢

3%:

002226

032737
001404

JSR
ESCAPE

RS5,CHERR
SEG

;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

LWORD

10000%-.

EMT

BIT

BNE

CKLOOP

002166
00223C

5%:

002170

024654
024654

#RA17,E.CS
43

;DID BA17SET?
JYES, CONTINUE

13. .EM34 ,ERRO

;BA 17 DID NOT SET

TSERCODE

13
EM34
ERRC

BIT
BEQ

#BAT6,E.CS
5%

;DID BA16 SET ALSO?
:NO, GOOD CONTINUE

14. ,EM35,ERRO

;BA 16 DIDN'T KNOW WHEN TO QUIT.

T$ERCODE

.WORD
.WORD
.WORD
CKLOCP
EMT

14
EM35
ERRO

(LR
MOV

BEQ
ERRDF

GDDAT
E.BA ,BDDAT
6%
15. ,EM36 ,ERR4

.WORD
.WORD

15
EM36

TRAP

024650
024652

sNON~EXISTANT MEMORY ERROR?
sYES, CONTINUE

C$CLPT

TRAP

C$=SCAPE

TO FINISH

;CHECK FOR FL:LOE, ELSE EXIT SEG

EMT

ERRDF
L

;LOAD THE FUNCTION IN NEXT WORD

BNE

.WORD

(02226

16 IN RLCS
D TRANSFER

;WAIT FOR WRITE

.WORD
.WORD

000020

aRLDA
RS,LDFUNC

X BA TO INC. BA16

RS.,WTCRDY
SEG
C$ESCAPE
10000%-.
#NXME.CS
3%

TRAP

4%:

#=1,3RLMP

;
:

JSR
ESCAPE
EMT
.WORD
BIT

ERRDF

104006

024630

#177776 ,aRLBA
#BA16, XMEM

WRITE

014244

024616
024616
024620
024622
024624
024626
024626

MOV
MOV

(LR
JSR

024574
024574
024576

024606
024614

($BSEG

MOV

027276

024552

EMT

SEQ 0072

.WORD

(SCLP?Y

T$LRCODE

CHECK THAT BA15-BA0 IS (LEAR
;READ BA
1S BA ZERD?
: BA SHOULD BE ZERO

ERR4

£%:
ENDSEG

JRXEND OF

SEGMENTZX

15:35 PAGE 1-4?

I
MACY11 30A(1052)
22-NOV=78
**TEST 13+« < BA BIT 17 INCREMENT
22-NOV-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

(3)

024654
024654
024656
024656
024656

10000%:

104005

ENDTST

L10042:

104001

.SBTTL

024660

BGNTST

02466C

STARS
AR

EMT

C$ESEG

EMT

CSETST

*«TEST

14%% ~

SEQ@ 0073

J*%END OF

TEST READ NPR

TEST==

INTEGRITY

s**START OF

AN AN

A A AR AR

A AR TR A AR AR AR R AR AR

TESTw*»

AR AR AR AR R

AR AR AR

:CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE
g?fiRngUP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS

024660

SRR AT

004737

024660
024664
026672
024674

000132

024676
024676

106004

024700
024700
024704

021356

BGNSEG

012746
012746
013746
012746

062706

155304

155276

AR R AR AT

PC , HDHOME

CSEXIT

AR AR

AR AR AR R RN AR

RN AR

;HEADS GO HOME OKAY

L1004 3~.

:%%START OF SEGMENTZX

($BSEG

SETVEC

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

MOV
EMT
ADD
CLR
MOV
CLR
MOV

AR AARA AR

UNIBUS

:HEADS OVER TRACK 0

EmMT

MOV
MOV
MOV

104037

:SET UP VECTOR

#TRPHAN,
- (SP)

ERRVEC,=(SP)
#3,-(SP)
CSSVEC
#10,SP
TRPFLG

:CLEAR TRAP PLAY

#=1,3aRLMP

:LOAD WC

RS ,WTCRDY
ERRVEC
ERRVEC RO
C$CVEC

:
;CLEAR OUT VECTOR

#8UF ,aRLBA
aRLDA

RS, LDFUNC

;LOAD BA
:LOAD DA

;LOAD THE FUNCTION IN NEXT WORD

SEG

JCHECK FOR FL:LOE,

020214

RS,CHERR
SEG
C$ESCAPE
10000%-.

:CHECK CNTLR FOR ERRORS
JCHECK FOR FL:LOE, ELSE EXIT SEG

002142

TRPFLG

104010

000020
005737

A A AR AR A

JSR
CKERFG
EMT
.WORD

10403%2

000
004537

e h

C$L SCAPE
10000%-.

:DID

ELSE EXIT SEG

TRAP QCCUR?

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22=NOV=78 15:28

1759

025012

1760

025014

(5)
(5)
(5)

025016
025020
025022

(3)

1761
1762

1763
1764

(3)
(3)

1765
1766
1767
(3)

1;2&

025014

025024

30A(1052)

001404

BEQ

104462

TRAP

TSERCODE

ERRDF

000021
013177
014244

7%:

025024

025024
025024

025026
025026

025026

10000% :

104005

ENDTST
L 10043:

104001

};gg

22-NOv-78
15:35
PAGE 1-44
«*TEST 14%** = TEST READ NPR INTEGRITY

LSBTTL

.WORD
.WORD
.WORD

;NO, OKAY

17.,EM52,ERRO

:YES, PRINT ERROR

17
EMS2
ERRO

ENDSEG

EMT

SEQ 0074

s%XEND OF

SEGMENTX%%

s*%END OF

TEST*w

CSETST

**TEST 15*+ = READ FUNCTION

};;}

025030

BGNTST

1773

025030

STARS

1775
1776
1777
1778

025030

;HEADER TO FIND OUT WHERE WE ARE AND THEN !SSUE
;A FULL SECTOR READ, WAIT FOR READY AND CHECK FOR
:ANY ERRORS
STARS

1779
1780
1781
1782
(4)
1%’;;

025030
025034
025042
025044

1784

025046

104004

1786

025050

012737

(2)

1;5%
1787
1788

};gg

;CHECK OF THE READ FUNCTION.

025056
025062

025070

004737

021356

005077
012777

BGNSEG

001750

012777

003052

020456

025112

000014

;;39

025114

004537

020214

005337

002160

025120

025124

155160

155146

021276

104010

001354

002160

155164
177600

004537
000014
004537

1798

JSR
CKERFG
EMT
LWORD

104032
000064

025076
025102
025104
025110
025110

1799

TEST*»

WE WILL FIRST DO A READ

:'-filtttttttttttttttttt*tttttttttttt**ltttt!ttttt*tttttttttttt.ttt

1791
1792
1793
1794
(3)

173%

:**START OF

::ttttttt*tttttttttttittttitt*tfittttttttttttttttttttttltttttttttt

1774

(2)

C$ESEG

1%:

PC ,HDHOME
CSEXIT
L10044~-.

EMT

C$RSEG

MOV

#1000.
, TMPO

MOV

#BUF , aRLBA

CLR
MOV

:HEADS OVER TRACK 0
:HEADS GO HOME OKAY

:%X%START OF

SEGMENTXX

@RLDA
#-128. ,aRLMP

;LOAD DISK ADDRESS
:SET WORD LENGTH

JSR
READ
JSR
ESCAPE
EMT

RS,LDFUNC

;LOAD THE FUNCTION iN NEXT WORD
:READ
WAIT FOR CONTROLLER READY
JCHECK FOR FL:LOE, ELSE EXIT SEG

JSR

RS,CHERR

.WORD

DEC

BNF

RS,WTCRDY
SEG
C$ESCAPE

:SET BUS ADDRESS

10000%-.

1:*°0

:CHECK CNTLR FOR ERRORS

ASSEMBLY ROUTINES

CZRLBB.P11
1800
(3)

025126
025126

(3)

025126

(3)
1é85

025130
025130

1801

025130

MACY11 30A(1052) 22-NOv-78 15:35 PAGE K1-4?

22-NOV-78 15:28

104005

**TEST 15%* < READ FUNCTION

10000¢:
ENDTST

L 10044
:

104001

}ggz

.SBTTL

SEQ 0075

ENDSEG

JXXEND OF SEGMENTZX

EMT

CSESEG

EMT

CSETST

J**END OF

TEST#*«

«+TEST 16%* = READ FUNCTION INTERRUPT

}ggg

025132

BGNTST

1807

025132

STARS

025132

;CHECK OF THE READ FUNCTION UNDER INTERRUPT CONTROL, WE WILL
;ISSUE A READ HEADER TO GET POSITION AND THEN READ
;A FULL SECTOR WAITING FOR THE INTERRUPT.
C(HECK FOR
.ERRORS ON INTERRUPT.
STARS

(2)

1808
1809
1810
1811
1812
(2)

o o Tt e et e gt o e ok e

025132
025136
025144
025146

1818

025150

104004

1820
1821

025152
025156

005037
005077

002144
155064

}ggz

025170

012777

003052

012700
104041

000000

1822

1825
(3)
(3)

1826
1827

025162

025176
025176
025202

025204
025210

004737

021356

104032

012777

004537
000114

177600

000340

1832

025226

005737

002144

1835

025234

025234
025236
025240
025242
025244
025244

155060

155046

104462
002023
010607
014244
104006

CSEXIT

021276

AR AR A AR AR A AR

o e

e e o e ke

A AR A AR AR R

;XXSTART OF

MOV

;CLEAR INTERRUPT INDICATOR
sSET DISK ADDRESS

SETPRI
MOV
EMT

#PRIOO
#PR100,RO
C$SPRI

;PRIORITY TO O

JSR
CKLOOP
EMT
SETPRI
MoV
EMT

RS ,WTCRDY

TRAP
.WORD
LWORD
.WORD
CKLOOP
EMT

SEGMENTZ%

INTFLG
aRLDA
#-128. ,aRLMP

ERRDF

e ok

;HEADS OVER TRACK 0
JHEADS GO HOME OkAY

CLR
CLR

TST

A Ak A kkk

($BSEG

BNE

o e ke e e ok e

L10045-.

#BUF ,aRLBA

JSR
RS ,LDFUNC
READ ! INTEN

104006

001004

PC ,HDHOME

o o

TEST#=

EMT

0)%

020456

012700
104041

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

004537

BGNSEG

025212
025216
025216
025220
025220
025224

025232

JSR
CKERFG
EMT
.WORD

000106

1828
1829
(3)
1830
(3)
1&%%

}ggz

e e ok e ke e e ok o o o o e o sk ok ok o

A AR A AR A AR A AR T AR A AR R A A AR

1815
1816
(4)
Té?;

1é?&

s**START OF

C$CLP1
#PRIO7
#PR107 ,RO

sSET UP WORD COUNT

;SET UP BUS ADDRESS

;LOAD THE FUNCTION IN NEXT WORD
sREAD UNDER INTERRUPT

;WAIT FOR INTERRUPT
;PRIORITY TO 7

C$SPRI

INTFLG

19. ,EM4,ERRD
T$ERCODE
19
EM4
ERRO
C($CLPT

;DID INTERRUPT OCCUR?

s YES=BRANCH NO-REPORT
sREAD DID NOT INTERRUPT

s CHECK FOR LOOP

MACY;1
22=N0V-78 15:2

ASSEMBLY ROUTINES

CZRLBB.P11

N
O 00~ NV
WM~

—D

3 B RRRERR, ARA

1837
1838
1839
1840

025246

025252
025252
025252
025254
025254
025254

004537

30A(1052)

020214

JSR

100008:

104005

ENDTST

L10045:

104001

15:35
PAGE 1-46
**«TEST 16** = READ FUNCTION INTERRUPT

22=NOV-78

SBTTL
025256

BGNTST

025256

STARS

RS.CHERR

SEQ 0076
:CHECK CNTLR FOR ERRORS

ENDSEG

X%END OF SEGMENTYX

EMT

CSESEG

EMT

CSETST

s%+END OF

TEST#»

#*TEST 17%% = CHECK READ NPR DIRECTION
:«xSTART OF

SRR AR AR AR AR A A A AR AR AR AR AR AR

TEST#»

A A I A AR AR AR AR A AR A AR AR AR A AR A AR

:CHECK THAT THE READ FUNCTION ACTUALLY READS (INTO MEMORY)
:WE WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE

1850

:A READ TO OVERLAY THAT PATTERN.

AFTER THE READ

;WE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHANGED.
s1F NOT WE ISSUE IT AGAIN AT THE SAME SECTION AFTER
sHAVING MODIFIED OUR PATTERN IN MEMORY (SINCE THERE IS
sONE CHANCE THAT THE DISK COULD HAVE OUR PATTERN).
AFTER
;THE SECOND READ WE CHECK THE BUFFER AGAIN.
IF IT'S
:NO CHANGED WE REPORT AN ERROR

025256

STARS

:;ttttfittttt'*tfifi*tt*ttt!Q'itt*tittttt*ti*tttfiitttit*tttititttit.

025256
025262
025270
025272

025274
025274
025276
025304

004737

021356

JSR
CKERFG

104032

000156

EMT
.WORD

CSEXIT
L10046~.

104004

BGNSEG
EMT

C$BSEG

MOV
CLR

#123456,TMPO
TMP1

012737

123456

002160

025350

025356

025372

PC,HDHOME

005077
012777
012777
012737

004537
000014
004537
104010
000054

154712

003052

020456
021276

1%:

MOV

2%:

MOV

154706
154674
002166

TMPO, (RO) +

;WRITE BUFFER

;NO, GO BACK

#128. ,R1

CLR

aRLDA

MOV
MOV

#BUF ,aRLBA
#BUF ,GDDAT

JSR

R5,LDFUNC

JSR

RS ,WTCRDY

EMT
.WORD

C$E SCAPE
1C700%-.

READ

ESCAPE

SEGMENTZX%

#8UF ,RO

MoV

;XXSTART OF

sSET PATTERN TO WRITE
:CLEAR PASS INDICATOR
:SET UP BUFFER BEGINNING

DEC

BNE

;HEADS OVER TRACK 0
JHEADS GO HOME OKAY

#-128. ,aRLMP

SEG

sDONE??

;LOAD DISK:ADDRESS

sSET WORD COUNT

;LOAD BUS ADDRESS
:FOR ERROR PRINT

sREAD

;LOAD THE FUNCTION IN NEXT WORD

;WAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE, ELSE EXIT SEG

6
22-NOV-78 15:35 PAGE 1-47
TEST 17xx = CHECK READ NPR DIRECTION

—

GRS
8
I2REEREE

NN (NN

ASSEMBLY ROUTINES
MACY11 30A(1052)
CZRLBB.P11
22=N0OvV-78 15:28

025374
025400
025400
025402

000044

025404
025410
025414

012702
022237
001014

003052
002160

025416
025422

005737
001005

002162

025424
025430
025434

005237
005137
00C725

002162
002160

025436
025436
025440

025442
025444

004537

020214

104010

4%:

5%:

104462
000024
010646

100008
:

104005

ENDTST

O \hbfiV\NKhJCDV’

ra32 -—af)
= S an)

—

VO~ 0000~

— —
—

O
& ~

1922

#BUF ,R2

TST

BNE

TTMMP1
$

INC
COoM
BR

TMP1
TMPO
1%

2 INC PASS COUNT
s COMPLIMENT PATTERN
:GO DO IT AGAIN

ERRDF

20. ,EM5 ,ERR9
£3ERCODE

sREAD DID NOT MODIFY MEMORY

(R2) +,TMPO
6%

;SET TO START COMPARING DATA

*DID DATA CHANGE?
*YES, CHECK FOR END

;DATA DIDN'T CHANGE, CHECK
:IF 1ST OR 2ND TIME?

:2ND=-REPORT 1ST=TRY AGAIN

EM5
ERRY

104001

025452

BONTST

025452

STARS

;%XEND OF SEGMENTZ%X

ENDSEG

EMT

C$ESEG

~EMT

CSETST

L10046:
.SBTTL

1918
1919

MOV
CMP
BNE

;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

6%:

- 025446

1909

R5,CHERR
S EG
C$ESCAPE
10000%-~.

.WORD
.WORD
.WORD

025446

025446
025446
025450
025450
025450

JSR
ESCAPE
EMT
.WORD

TRAP

014636

SEQ 0077

*«TEST

s**END OF

TEST=«

18+* -~ PROPER INCREMENT OF RLBA ON READ
;**START OF

TEST=*x

::Qttlt'ittt.ttttttt'itit"tttti..iit'ti'ittttt'i*tittk'tttit'tt'

sCHECK THAT THE RLBA WILL INCREMENT WITH THE READ
;THE RLBA SHOULD CONTAIN 'BUF +256.'" AFTER A FULL SECTOR
:READ.

025452

STARS

;:ittt.t'ht.Qfi't.tfitt'tt'.it"it.t.tlfi'.i‘tfi"tttttttfi.ti'ttilt.'

025452
025456
025464
025466

004737

021356

104032

000116

JSR
CKERFG
EMT
. WORD

025470
025470

104004

BGNSEG
EMT

025472
025476

005077
012777

154550

003052

154540

(LR

MOV

PC ,HDHOME

CSLxIT
L10047~,

JHEADS OVER TRACK 0

JHEADS GO HOME OkAY

;%%START OF SEGMENTZX

($BSEG
an! DA
, aRLBA
#BUF

UP DISK ADDRESS

T UP BUS ADDRESS

ASSEMBLY ROUTINES

CIRLBB.P11
1923

012777

025520

062737

025512

1927

025526

}ggg

1928
1929
1930
(3)

16%%

22-NOV-78 15:28

025504

1924

025532
025534
025540
025540

003052

004537

020456

000014
004537

1932
1933
(3)
(3)
1934,
1935

025544
025550
025550
025552
025554
025562

004537

1938
(3)
(5>
(5)
1523

025572
025572
025574
025576
025600

013737
023737

001404

025602
025602
025602

(3)

025604

1943

1;22

025604

15:35

154536

MOV

#-128.,3RLMP

:WORD COUNT

002166

ADD

#256. ,GDDAT

*AFTER READ

JSR

RS, LDF UNC

002166

MOV

READ
JSR
ESCAPE
EMT

021276

.WORD

020214

002230
002170

002170
002166

ENDTST

L10047:

104001

;322

RS, WTCRDY
SEG
CSESCAPE

*FORM EXPECTED BUS ADDRESS

:LOAD THE FUNCTION IN NEXT WORD

:READ
*WAIT FOR CONTROLLER READY
*CHECK FOR FL:LOE, ELSE EXIT SEG

10000$-.

RS, CHERR
SEG
C$ESCAPE
10000$-.
E.RA,BDDAT
BDDAT , GDDAT

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

ERRDF
TRAP
JWORD
TWORD
"WORD

21.,EM6,ERR4
TSERCODE
21
EM6
ERR4

:BA DID NOT INCREMENT FROPERLY

:READ 'RLBA' FOR PRESENT ADDRESS
iDID 'BA’ INCREMENT PROPERLY?

*YES, CONTINUE

1%:
100008:

104005

#BUF , GODAT

SEQ 0078

JSR
ESCAPE
EMT
.WORD
MOV
CMP

BEQ

104462
000025
010712
014410

N 6
PAGE 1-48

««TEST 18%** = PROPER INCREMENT OF RLBA ON READ

104010

000030

}gzg 025602
1942
(3)
(3)

000400

22-NOV=78

104010

000040

025570

177600

012737

025542

}ggg

MACY11 30A(1052)

_SBTTL

ENDSEG

S%YEND OF SEGMENT%X

EMT

C$ESEG

EMT

CSETST

s#%END OF

#+TEST 19+* = PROPER INCREMENI OF RLDA ON READ

}gzg

025606

BGNTST

1949

025606

STARS

1950
1951
1952
1953
1954

,
025606

“THECK THAT THE RLDA INCREMENTS BY ONE AFTER A
*FULL SECTOR READ, WE FIRST READ A HEADER TO FIND
‘0UT WHERE WE ARE. THEN ISSUE A READ AFTER
*THE READ THE RLDA SHOULD BE RLPA (START) + 1
$TARS

1955
1956
1957
(4)

025606
025612
025620

1959

025624

(2)

1533

025622
0256726

TEST*»

;#+START OF

TEST#w

2222332323323 22331323332323232333333332333333333323233332333332333333332331

004737
104032

000114

104004

021356

AR AR AR

R R AR AR

JSR
CKERFG
EMT

PC , HDHOME

LWORD

BONSE G

Em?

CSEX]T

AR R R RN R A AR A R AR R

AR R AR R

R R RN RN

;HEADS OVER TRACK 0
"HEADS GO HOME OKAY

{10050~
“$BSEC

SXUSTART

SEGMENTZX

TR w

ASSEMBLY ROUTINES

CZRLBB.P11

22-NOV-78 15:28

1962

025626

005037

002166

1964

025640

005237

002166

012777

003052

004537

020456

30A(1052)

22-NOV-=78

15:35

PAGE

1-49

**TEST 19+*+ -~ PROPER INCREMENT OF RLDA ON READ
CLR

GDDAT

1963 025632 013777 002166 154406

MOV

GDDAT ,3RLDA

1965

025644

012777

MOV

#-128. ,aRLMP

1968

025660

JSR

RS, LDFUNC

}ggg
1969
1970
1971

(3)
13;5

025652
025664
025666
025672

000014
004537

025672
025674

104010
000040

1973
1974
(3)

025676
025702
025702

004537

025704

104010
000030

1976
1977

025706
025714

013737
023737

1980
(3)
(5)
(5)
133%

025724
025724
025726
025730
025732

104462
000026
010766
014410

}33%

025734

1984

025734

1985
(3)

025736
025736

15;%

}g;g

(3)
(3)

1332

025722

025734
025734

025736

001404

177600

INC

154376
154364

#BUF ,aRLBA

READ
JSR
ESCAPE

EMT

.WORD

020214

002232
002166

002170
002170

;SETUP DISK ADDRESS

;CREATE EXPECTED SECTOR

*WORD COUNT

;SETUP BUS ADDRESS

;LOAD THE FUNCTION IN NEXi WORD

:READ
:WAIT FOR CONTROLLER READY
JCHECK FCR FL:LOE, ELSE EXIT SEG

RS,WTCRDY
SEG

C$ESCAPE

JSR
ESCAPE
EMT

RS, CHERR
SEG
CSESCAPE

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

MOV
CMP

E.DA,BDDAT
GDDAT ,BDDAT

;READ DISK ADDRESS
:DID SECTOR INCREMENT PROPERLY

ERRDF
TRAP
.WORD
.WORD
.WORD

22.,EM7.ERR4
T$ERCODE
22
EM?7
ERR&

;DISK ADDRESS DID NOT INCREMENT

BEQ

10000%-.

;YES, BRANCH

100008%:

104005
104001

ENDTST
L10050:

025740

BGNTST

025740

STARS
A

ENDSEG

EMT

CSESEG

EMT

CSETST

SEGMENT%X

**END OF

TEST*»

:**START OF

AR A A AR R AR AR A AR A AR AR

:BY SETTING SECTOR 40 OF

:READ.

:X%END OF

**TEST 20** - FORCE HEADER NOT FOUND WITH READ

AR AR AR R A AR AR AR R AR AR R AR AR

:FORCE HEADER NOT FOUND ERROR TO OCCUR.

THIS

TEST*=

AR R ARk Rk khk

IS DONE

THE RLDA AND 1SSUING A

SECTOR 40 DOES NOT EXIST ON THE RLOT PACK

: THEREFORE HDR NT FOUND SHOULD SET.

025740

STARS

IR AR AR

025756

NO, REPORT ERROR

1%:

.SBTTL

025740
025744
025752
025754

SEQ 0079

10000%-.

.WORD

4989

S8 CEESEIER
SR

GDDAT

MOV

021276

}3g§

nony

MCVH

004737
104032
000102

021356

JSR
CKERFG
EMT
.WORD
BGNSEG

AR R AR

R R

PC ,HDHOME
CSEXIT
L10051=-,

RN AR

AR AR

R RRRRRAARR AR

RRRR R IR AR

;HEADS OVER TRACK 0
JHEADS GO HOME OKAY

JXASTART OF SEGMENTZ%

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

(3)

025756

104004

2004
2005
%889

025760
025766
025774

012777
012777
012777

000050
003052
177777

2008
2009
2010
2011
(3)
26?%

026002
026006
026010
026014
026014
026016

004537
000014
004537

020456

2013

026020

013737

002226

2015

026034

022737

112000

2018
(3)

026044
026044

104462

5005

30A(1052)

22-NOV-78
15:35
PAGE 1-50
**TEST 20** -~ FORCE HEADER NOT FOUND WITH READ

EMT

C$BSEG

#40.,aRLDA
#BUF ,aRLBA
#-1,aRLMP

s INSURE NOT TO FIND HEADER BY
;SETTING SECTOR 40 OF CYL. ADDR.
sWORD COUNT

JSR
READ
JSR
ESCAPE
EMT
.WORD

R5,LDFUNC

;LOAD THE FUNCTION IN NEXT WORD
sREAD
;WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG

2014 026026 042737 001777 002160

002160

MOV

58}9

CMP

#1777 TMPQ

;GET RLCS

002160

BIC

BEQ

;YES, CONTINUE

23.,EM10,ERRO
T$ERCODE

;HEADER NOT FOUND WOULD NOT SET

(5)
(5)
26?&

2020
2021
2022
2023
(3)
(3)
2024
(3)
263%

%8%9

2028
2029
2030
2031
(2)

026042

026046
026050
026052

104010
000036

001404

(2)

2036
2037
2038
2039

000027
011043

; SAVE ERROR BITS

#81T15!81712!81T10,TMP0

.WORD
.WORD
.WORD

014244

R5 ,WTCRDY
SEG
CSESCAPE
100008-.

CS TMPO

ERRDF
TRAP

HDR NOT FOUND SET.

23
EM10

ERRO

1%:
;
10000%:

104005

ENDTST
L10051:

104001

ENDSEG

;%X%END OF SEGMENTZ%X

EMT

CSESEG

EMT

CSETST

s*%END OF

TEST=*«

.SBTTL **TEST 21*+ - FORCE HEADER NCT FOUND WITH READ INTERRUPT

(026060

BGNTST

026060

STARS

2032

2033
2034
2035

MOV
MOV
MoV

021276

026054
026054
026054
026054
026056
026056
026056

154260
154250
154246

SEQ 0080

s**START OF TEST=«

AR AR

A AR AR AR

A A AR AR AR AR AR R AN AR

AR R AR AR AR AR AR AR

:TEST THAT HEADER NOT FOUND ERROR WILL GENERATE AN INTERRUPT

:ON OCCURANCE.
HEADER NOT FOUND WILL BE FORCED BY SETTING
:SECTOR 40 OF RLDA AND ISSUING A READ
STARS

026060

(4)
2626

026060
026064
026072
026074

2041
(3)

026076
026076

:"tt**ittittfittt*Qti*fittt""tfit!t.i'ifitfiiitfi.'t*ttttt'tttli't.fit

004737

021356

JSR
CKERFG
EMT
.WORD

104032
000142

104004

BGNSEG
EMT

PC ,HDHOME
CSEXIT
L10052~.

($BSEG

sHEADS OVER TRACK 0
;HEADS GO HOME OKAY

;XXSTART OF SEGMENTZ%

ASSEMBLY ROUTINES

CZRLBB.P11

MACY11

22-NOV-78 15:28

30A(1052)

22-NOV-78

15:35

D 7
PAGE 1-51

**TEST 21** ~ FORCE HEADER NOT FOUND WITH READ INTERRUPT

000000

SETPRI
MOV
EMT

#PRIOO
#PRI00,RO
C$SPRI

MOV

#40. ,aRLDA

JSR

R5,LDFUNC

021276

JSR

R5,WTCRDY

EMT
SETPRI
MOV
EMT

C$CLPI
#PRIO7
#PR107,RO
C$SPRI

—_

SO0

CLR

026156
026162

000030
012723
014244

026174
026174
026176

104010
000G36

026222

013737
042737
022737
001404

;CLEAR INTERRUPT OCCURANCE FLAG

MOV
MOV

#BUF ,aRLBA
#=1,3RLMP

;SETTING SECTOR 40 OF CYL. ADDR.
sWORD COUNT

CKLOOP

002144

026164
026164
026166
026170
026172

INTFLG

READ! INTEN

000340

026154

026224

020456

—_—

026134

026126

002144
000050
003052
177777

TST

BNE

ERRDF

104462

’%:

002226
001777
112000

002160
002160

INTFLG

;DID

24.,EM43,ERRO

;HNF DID NCT INTERRUPT

SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

E.CS,TMPO

:GET RLCS

;YES,

TRAP

.WORD
.WORD
.WORD

104001

026240

L10052:

INTERRUPT OCCUR

ESCAPE
EMT
.WORD

ERRDF

ENDTST

:YES

EM43
ERRO

#1777, TMPO
“SAVE ERROR BITS
#BIT15'81712!B1T10,TMP0 ;WDR NOT FOUND SET.
CONTINUE

25.,EM10,ERRO

ngRCODE

EM10
ERRO

1%:

104005

;WAIT FOR CONTROLLER READY

.WORD
.WORD

BEQ

100008%:

;LOAD THE FUNCTION IN NEXT WORD

EEERCODE

BIC
CMP

104462
000031
011043
014244

sREAD

TRAP

MOV

002160

s INSURE NOT TO FIND HEADER BY

ENDSEG

EMT

C$ESEG

EMT

CSETST

;WHEN FORCED

JXXEND OF

SEGMENT%%

J**END OF

TESTw«

.SBTTL

**TEST 22%x* = (HECK HEADER COMPARE LOGIC

BGNTST

;**START

TEST=«

SEQ 0081

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

2079
(2)

30A(1052)

026240

22-NOV-78

15:35

E 7
PAGE 1-52

*«TEST 22%** = CHECK HEADER COMPARE LOGIC

STARS

IIRERE

SEQ 0082

AR RARRAR AR AR AR RERRR AR KRRARRRRRARRRRRRRARRRRRARR
AR AR

;CHECK THE HEADER COMPARE LOGIC WORKS.
UP TO THIS POINT WE
sKNOW THAT THE LOGIC FUNCTIONS PROPERLY BUT NOW WE WILL

;CHECK ALL THE BITS IN THE HEADER WORD.
FOUR PATTERNS
sARE USED A WALKING 1, GROWING 1, WALKING O, GROWING 0.
A SEEK
:1S ISSUED BEFORE EACH READ TO INSURE WE ARE ON THE PROPER
sTRACK.

ONCE WE ARE ON THE RIGHT TRACKWE LOAD THE RLDA

:AND ISSUE THE READ.
UPON COMPLETION WE WILLCHECK FOR ERRORS
:WE THEN LOAD THE COMPLIMENT PATTERN INTC THE RLDA
;EXPECTING A HEADER NOT FOUND TO SET
STARS

026240

SRR AR AR AR AR AR AR A AR AR AR AR AR A RA R AR RA

026240
026244
026252
026254
026256
026256
026260

004737

021356

JSR
CKERFG

104032

000540

EMT
LWORD

CSEXIT
L10053-.

104004

BGNSEG
EMT

C$BSEG

SETPRI
MOV

#PRIO7
#PR107,RO

012700

000340

012703

002504

104041

EMT
MOV

104004

SLERIR
~00N

—

ol e

NNV

b i cnd cd

a@aaaa

NN—=OOVONO
N WN=O

D i i S

o and D o

ASLAS[aN]

004537
000010
004537

ASIASLSTAN
LS LSS TSNS AN 1N W 1))

PC , HDHOME

020456

000500

026312
026316
026316
026320
026322

004537
000470
013737

002234

026330
026336

042737

020214

JSR

RS, LDFUNC

JSR

RS ,WTCRDY

EMT
.WORD

CSESCAPE
10007$-.

JSR
ESCAPE

SEG

AR AR

AR A ARk

;HEADS OVER TRACK 0
*HEADS GO HOME OKAY

:%%START OF SEGMENTXX
:PRIORITY

TO 7

:GET LIST START
;%%START OF

SEGMENTZY
"

;LOAD THE FUNCTION IN NEXT WORD

:READ HEADER

*WAIT FOR CONTROLLRE READY
:CHECK FOR FL:LOE,

ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

002162

EMT
.WORD

MOV

RS, CHERR
SEG
CSESCAPE
10001%-.

E.MP,TMP1

;READ AND SAVE HEADER

000177

002162

8IC
MOV

#177,TMP1
#1,3RLDA

;CLEAR OUT SECTOR AND H.S.
*SETUP MARKER FOR SEEK

002162

02164
02164

BIC

#177.TMP?

000004

153652

BCS
BIS
BR

2%
#S1GN, RLDA
38

:BRANCH FOR SEEK OUT
*SEEK TOWARDS SPINDLE
*GO PUT IN DIFFERENCE WORD

BFQ

“YES,

104010

002164

032713
001403

C$BSEG

ESCAPE

104010

026310

BGNSEG
EMT
RDHDR

021276

C$SPR]
#HDRTAB,R3

AR A AR AR

002164
000100

153702

153636

MOV

SUB

25:
33

NEG
BIS
BIT

(R3), TMP2

*GET HEADER PATTERN

TMF1. TMP2

*CALCULATE DIFFERENCE TO SEEK

TTMP2
TMP2 , 3RL DA
#RHHS, (R3)

:CLEAR OUT SECTOR AND H.S.

*WE HAVE TO NEGATE DIFFERENCE
*SET IN DIFFERENCE WORD
‘DO WE WANT HEAD SELECT AS 02
SKIP OVER SETTING H.S.

004537

021276

W NWWWWWWWWWWWWWWWWWANO

LS AN,
ASIASTN
1,8

153622

104010

004537

020214

104010
000340

004537

021236

104010

000330
004537
000010
004537

020456
021276

020214

104010

000302
026510
026516
026524

—

D e

)

D d

S LSLS LSS LSS
LN

SN}

N e

(.o No VIV, IV, IV 1V, [V [PNION IV, [V IV IV IV TNV, |

026530
026536
026544

026546
026546
026550
026552
026554

013737
043737
011337
043737
023737
001404

002234
002150
002166
002150
002166

BIS
JSR
SEEK

002170
002170
002166
002170

#DAHS
, aRLDA

;SET HEAD SELECT TO ONE
;LOAD THE FUNCTION IN NEXT WORD
s SEEK

JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
SEG

;WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG
C$ESCAPE

;CHECK CNTLR FOR _ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

JSR
ESCAPE
EMT
.WORD
JSR

RS ,WTDRDY
SEG

;WAIT FOR DRIVE READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

10007$-.
RS, LDFUNC

JSR

RS ,WTCRDY

.WORD

C$ESCAPE
100018~.

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG
C$ESCAPE
10001%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

MOV

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

;READ HEADER
sSAVE CYLINDER FOR COMPARE
;GET EXPECTED HEADER
:SAVE CYLINDER FOR COMPARE
;SEEK END UP OKAY

BIC
MOV
BIC
CMP
BEQ

ERRDF

104462

TRAP

000033
011110
014410

CSESCAPE

SEG

27.,EM11 ,ERRS
T$ERCODE

cLOAD THE FUNCTION IN NEXT WORD
;READ HEADER (VERIFY SEEK)
;WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS

JYES,

CONTINUE

;SEEK INCORRECT

27
EM11

ESCAPE
EMT
.WORD

SEG
C$ESCAPE
10007%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

:SET UP DISK ADDRESS

MOV

(R3) ,aRLDA
#77 ,aRLDA
#-1,aRLMP

JSR

R5,LDFUNC

JSR

RS5,WTCRDY

026562
026566
026574
026602

011377
042777
012777
012777

153460
000077

MOV

003052

MCv

026610
026614
026616

004537
000014
004537

020456
021276

10001$~.

ERR4

000230

177777

C$ESCAPE

10001$~-.

.WORD
.WORD
.WORD

026556
026556
026560

104010

SEQ 0083

R5,LDFUNC

ESCAPE
EMT

000312

004537

F
7
15:35
PAGE 1-53
*xTEST 22%* = CHECK HEADER COMPARE LOGIC

22-N0v-78

RDHDR

104010

30A(1052)

000350

gt S

(LS
1aS [ %]

N NN

COBNECERRNC
LS ERUR

000020
020456

052777
004537
000006

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

BIC

READ

#BUF ,aRLBA

;WORD COUNT
sBUS ADDRESS
;JREAD

sLOAD THE FUNCTION IN NEXT WORD

JWAIT FOR CONTROLLER READY

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

2163
(3)

026622

¢
G 7
30A(1052)
22-NOV=78 -15:35 PAGE 1-54
»*TEST 22*% = CHECK MEADER COMPARE LOGIC

104010

026624

000164

2165
2166
(3)
2{2;

026626
026632
026632
026634

004537

2168
2169
2170
g;;}

026636
026642
026646
026654

011377
005177
012777
012777

153404
153400
177777
003052

2173
2174
2175
2176

026662
026666
026670
026674

004537
000014
004537

020456

2177

026700

2180
2181
2182

026722
026724
026730

026730

104006

2184
g}gg

(26732
026740

022737
001413

112000

002160

2187
2188
g;gg

026742
026746
026754

011337
013737
005137

002166
002166
002170

002170

2191

026260

(5)
(5)

026762
026764

2193

026770

2;32

026772

000016

2195

026774

(005723

2178
2179

zgg%

(3)

2{35
(3)

2196
2197
5}33

026706
026714

042737
022737

026766

026770

026776
027002
027004

2200
2201

027010
027010

z§8§

027010

2203

027012

(3)

027010

10001$-.

153374
153362

021276

002226

001402
0064537

020214

001777
112000

.WORD

MOV
COM
MOV
MOV

(R3) ,@RLDA
aRLDA
#-1,aRLMP
#BUF , 3RLBA

;SET UP DISK ADDRESS AS
:COMPLIMENT TO CAUSE HDR NT FND
*WORD COUNT
*BUS ADDRESS

JSR
READ
JSR
ESCAPE

RS, LDFUNC

R5,WTCRDY
SEG

:LOAD THE FUNCTION IN NEXT WORD
:READ
;WAIT FOR CONTROLLER READY
:CHECK FOR FL:LOE, ELSE EXIT SEG

E.CS,TMPO

:GET €S

8%
RS, CHERR

;YES, CONTINUE

MOV

002160
002160
8%:

104462

014410

#1777, TMPO
*SAVE ERROR BITS
#81T1§!81T12!BIT’.0.TI'P0 ;DID HEADER NOT FOUND SET

EMT

CS$CLPT

CMP
BEQ

#BIT15!BIT12!BIT10,
TMPO
6$

MOV
MOV
COM

(R3),GDDAT
GDDAT ,BDDAT
BDDAT

:SET UP DATA FOR ERROR
“PRINT OUT

ERRDF

28. ,EM12,ERR4

JHDR NOT FOUND WOULD NCT SET

.WORD
.WORD

28
EM12

ESCAPE

SEG

.WORD

100071$-.

BEQ
JSR
CKLOOP

.WORD

6% :

104010

CMP
BEQ
JMP

026274
7%:

10001$:

10405

EMT
TST

002660

TSERCODE

ERR&

CSESCAPE
(R3)+

R3.#HDREND
7%
1%

ENDSEG

EMT

ENDSEG

C$ESCAPE
10007$-.

BIC
CMP

TRAP

000034
011137

;CHECK FOR FL:LOE, ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

EMT
.WORD

002160

CSESCAPE
RS, CHERR
SEG
CSESCAPE
10007$-.

EMT

013737

020327
001402
000137

.WORD

JSR
ESCAPE

104010

104010
000112

026760

020214

000154

026674
026676

SEG

EMT

2{22

(3)
(3)

ESCAPE

SEQ 0084

;CHECK FOR FL:LOE, ELSE EXIT SEG

;GET NEXT PATTERN

*AT END?
“YES, EXIT TEST
*NO, GO BACK

S%%END OF

($ESEG

SEGMENTXX

)

S%%END OF

SEGMENTXX

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOv=-78 15:28

(3)

027012

(3)

027012

(3)

027014

2204
258%

027014

30A(1052)

100008
:

104005

ENDTST

L10053:

104001

%589

CSETST

##TEST 23+« - (KMECK MULTIPE SECTORS ON READ

027016

STARS

027016

:VERIFY THAT MULTIPLE SECTORS CAN BE READ, WE WILL CHECK
s THAT THE RLDA INCREMENTS PROPERLY.
STARS

5515

SRR

027016
027022

004737

027030
027032

104032
000156

2220
gggg

027034
027040

005037
005037

2223

027044

2225

027046

2228
2229
2230
gsgg

027062
027070
027076
027104

(4)
(&)

5515
2532

2226
2227

027044

021356

0021¢0
0Ou2162

104004

027046
027054

013737
053737

002162
002160

2233
2234
2235

027112
027116
027120

004537
000014
004537

020456

(3)

027124

104010

EMT

S**END OF TESTax

2210

2216
2217

;

CSESEG

BGNTST

LSBYTL

EMT

SEQ 0085

027016

2211
2212
2213

%%88
(2)

22-NOv=78
15:35
PAGE 1-55
**TEST 22%~ - (HECK HEADER COMPARE LOGIC

2236 (027124

013777
062737
012777
012777

2§§;

027126

000060

2238
2239

027130
027134

004537

2526

027136

000050

2241
2242

027140
027146

013737
023737

2245

(27156

(3) 027134 104010

gg:z
(3>

027154

02715

001404

104467

002166
000002
003052
177577

002166
002166

153156
002166
153140
153136

021276

s**START OF TESTw»

AR IR AN

AR AR AR R AR

P( ,HDHOME

EMT
.WORD

CSEXIT
L10054-.

CLR
CLR

TTMMPQ
TMFP]

EMT

C$8SEG

MOV
BIS

TMP1,GDDAT
TMPO, GDDAT
GDDAT ,aRLDA
#2,GDDATY
HBUF , SRLBA
#-129. ,9RLMP

JSR
READ
JSR

R5,LDFUNC

EMT

(SESCAPE

JSR
ESCAPE

RS, CHERR
SEG

.WORD

10C00%-.

MOV
ADD
MOV
MOV

020214

EmMr
002232
00277C

RS ,WTCRDY

ESCAPE SEG
.WORD

002170
002166

RA NI RRA R

AR R ARG

AN AR AN AR AR AR AR RN DR IR AR AT AR

JSR
CKERF G

BONSEG

1$:

AR R AR AR AN AR

R RN

AR R AR A DR R

RRR I RRAR AR

JHEADS OVER TRACK 0
JHEADS GO HOME OKAY

:CLEAR LOCATIONS

sXXSTART OF SEGMENTZX

sGET CYLINDER
;GET SECTOR

;SET DISK ADDRESS~-SECTOR 0
;SET EXPECTED + 2
:SET BUS ADDRESS
sWORD COUNT-SECTOR+1 WORD
;LOAD THE FUNCTION IN NEXT WORD
sREAD
JWAIT FOR CONTROLLER READY?

+CHECK FOR FL:LOE, ELSE EXIT SEG

10000%~.

CSESCAPE

. CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

MOV
(MP

E.DA _BODAT
8DDAT ,GDDAT

;READ DISK ADDRESS
;1S DISK ADDRESS CORRECT

ERRDF

22.,EM14,ERRG

;DA DID NOT INCREMENT

BFQ

TRAP

T$ERCODE

;YES, BRANCH

NO, REPORT ERROR

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOv-78 15:28

027160
027162
027164

000035
011230
0144170

027166
027166
027170

104010

027172
027176
027204

30A(1052)

000016

005237

022737
001320

002160
00046

002160

70000%:

ENDTST

L10054:

104001

15:35

I 7
PAGE 1-56

**TEST 23#%* - (HECK MULTIPE SECTORS ON READ

2%:

104005

027212

22-NOvV-78

STARS

SEQ 0086

.WORD
.WORD

.WORD

29
EM14
ERR4

ESCAPE
EMT
.WORD

SEG
CSESCAPE
10000%-.

sCHECK FOR FL:LOE, ELSE EXIT SEG

INC
CMP
BNE

TMPO
#46,TMPO
1%

JNEXT SECTOR?
;DONE?
;NO, GO BACK

ENDSEG

EMT

($ESEG

EMT

C$ETST

JXXEND OF

SEGMENTZ%%

J*%END OF

TEST=»

IR RRRARIRCRARARRCRR
R AR ARRERRRKAARRAIAR AR
KRR RAARR AR AR
AR

sCHECK THAT WE CAN FORCE A HEADER NOT FOUND AT THE

sEND OF A TRACK DOING A MULTIPLE SECTOR READ.
WE
;SET UP TO READ TWO SECTORS STARTING AT SECTOR 39
sWE SHOULD TRANSFER 128 WORDS THEN ABORT WITH A

g?figgER NOT FOUND FOR SECTOR 40

027212

";fitttttititt&tttt*tttiitttttt*tiit**ttttt’

.SBTTL

027212
027212
027216
027224
027226
027230
027230
027232
027240
027246
027254

021356

PC ,HDHOME

000126

EMT
.WORD

CSEXIT
L10055-.

104004

BGNSEG
EMT

C$BSEG

MOV

#39. ,GDDAT

012737
013777
012777
012777
004537
0000 14
004537

027276

104010
000054

027300
027306

013737
042737

000047
002166

002166
153000

003052
020456

152762

177577

MOV
MoV
MOV

152774

JSR

READ

021276

002226

001777

JSR
ESCAPE
EMT
.WORD

00217y

002170

MOV

BIC

GDDAT ,3RLDA
#-129. ,aRLMP
#BUF ,aRLBA

RS, LDFUNC

RS ,WTCRDY
SEG
C$E SCAPE
E.7S,BDDAT

ok e e e e ke ok R ok

TESTx*x

JHEADS OVER TRACK 0
JHEADS GO HOME OKAY

sAXSTART OF

SEGMENTZ%

;CREATE LAST SECTOR

:LOAD DISK ADDRESS
sWGRD COUNT
;BUS ADDRESS
;READ

;LOAD THE FUNCTION IN NEXT WORD

;WAIT FOR CONTROLLER READY
s(HECK FOR FL:LOE, ELSE EXIT SEG

10000%-.

#1777 .BDDAT

TRACK

;**START OF
JSR
CKERFG

104032

e e e e e e e

«*TEST 24** - FORCE HDR NT FND AT END OF

BGNTST

004737

:READ (S

“SAVE ERROR BITS

ASSEMBLY ROUTINES

CZRLBB.P11

2286
%287

027314

MACY11
22-NOV-78 15:28

022737

112000

004537

020214

001402

027330

104006

027332
027340

022737
001404

027342

027350

112000

30A(1052)
002170

4%:

002170

CMP
BEQ
JSR
CKLOOP
EMT

#112000,BDDAT
4$
RS, CHERR

CMP
BEQ

#112000,BDDAT
1$

ERRDF

- 104462
000036

TRAP.

.WORD
.WORD
.WORD

011636
014244

027352
027352
027352
027352
027354
027354
027354

J 7
22-N0v-78 15:35 PAGE 1-57
**TEST 24** - FORCE HDR NT FND AT END OF TRACK

SEQ 0087

;HDR NOT FOUND SET?
:YES, CONTINUE

C$CLP1

30. EM23 ERRO

TSERCOD

30
EM23
ERRO

:HEADER NOT FOUND DID NOT SET

1%:
10000%:

104005

ENDTST

L710055:

104001

.SBTTL

027356

BGNTST

027356

'TARS

;%XEND OF SEGMENTX%

ENDSEG

EMT

C$ESFG

EMT

CSETST

s**END OF

TEST=»

**«TEST 25%% - FORCE NON-EXISTANT MEMORY ERROR
;**START OF

TEST=x

tttttttti*tttttttttfiiti*ttitttttttttttttit*tfiit'ttttttitttt'itt

:FORCE A NON-EXISTANT MEMORY ERROR,
sWE SET THE RLBA TO EQUAL THE

:LAST ADDRESS IN MEMORY AND ISSUE A READ.
THE
:READ SHOULD ABORT AFTER ONE WORD TRANSFERRED

027356

STARS

°*

::fittttt*tttttttttttttt""'ttttt.tt*"i'...*.itttttitt"'!.tttfit

027356
027362
027370
027372

104032

000076

JSR
CKERFG
EMT
.WORD

027374
027374

104004

BGNSEG
EMT

($BSEG

027376
027404
027412
027416
027424
027430

012777
012737
005077
012777
004537
000014

MOV

#177774 ,@RLBA

;LEAD BA

aRL DA
#-128. ,RLMP
RZ,LDFONC

:LOAD DISK AVAILABLE
:WORD COUNT
:LOAD THE FUNCTION IN NEXT WORD

004737

021356

177774

000060
152630
177600

020456

152640

002262
152624

PC ,HDHOME

CSEXIT
L10056~.

;HEADS OVER

TRACK 0O

JHEADS GO HOME OKAY

JAXSTART OF SEGMENTZ%X

#BA16!BA17 ,XMEM ;SET EA BIT

;READ

2328
2329
(3)
(3)
330

104010
000026

027442
027450

0O
€

027452
027452
027454
027456
027460

104462
000037
011716
014244

027462
027462
027464

1040170
0000C2

2341
(3)
(3)
2342

027466
027466
027466
027470

N
NN
~AWWA
A A A WWWW

027432
027436
027436
027440

LNuugyN\nunUNN&gudvux
R o AW, R YWY S

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

(3)
(3)

004537

737
004

30A(1052)

021276

020000

002226

;WAIT FOR CONTROLLER

BIT
BNE

#NXM,E.CS
3%

;DID NXM SET?
;YES, CONTINUE

TRAP
.WORD

10000%
-

ENDTST

L10056:

104001

.SBTTL

2346
2347

RS ,WTCRDY

ERRDF

3%:

027472
027472

SEQ 0088

JSR

ESCAPE
EMT
.WORD

104005

027470
027470

.
K 7
22-NOv=78
15:35
PAGE 1-58
**TEST 25%% ~ FORCE NON-EXISTANT MEMORY ERROR
SEG
CSESCAPE
10000%-.

31.,EM24 ,ERRC
T?ERCODE

.WORD
.WORD

EMZ24
ERRO

ESCAPE
EMT
.WORD

SEG
C$ESCAPE
10000%~-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

sNXM DID NOT SET

;CHECK FOR FL:LOE, ELSE EXIT SEG

sAXEND OF SEGMENTZZ

ENDSEG

EMT

C$ESEG

EMT

CSETST

s**END OF

TEST*«

**TEST 26** - FORCE NON-ZXISTANT MEMORY ERROR INTERRUPT

BGNTST
STARS

s**START OF

TEST=*=

::t**tttttt'tttt*tt*tfit*ttitt*tt*ttttttt*tittiiittt*ttfittt.tl.iti

2350

sCHECK THAT WE CAN FORCE AN INTERRUPT WITH A
:NON-EXISTANT MEMORY ERROR.

027472

STARS

;;titi'tfi'it*tttit*fittttttttttt*tttttfititt!tttttttttfit*ttt.it*tit

2353
2354

027472
027476
02750k
027506

104032
000140

CKERFG
EMT
.WORD

2356
(3)

027510
027510

104004

BGNSEG
EMT

($BSEG

(4)
(4)

004737

021356

JSR

2358
2359
2360
2361
2362
(3)
(3)

2363
2364

027512

027516
027516

027522

027524
027532

PC ,HDHOME
CSEXIT
L10057-.

005037

002144

CLR

INTFLG

012700
104041

000000

SETPRI
MOV

#PRIOO
#PR100,RO

012777
012737

177774

000060

152512

002262

EMT
MOV
MOV

sHEADS OVER TRACK 0

;HEADS GO HOME OKAY

:%%START OF SEGMENT%X
;CLEAR INTERRUPT OCCURANCE FLAG

C$SPRI
#.77774 ,aRLBA
;PRELOAD BA
#BA16!BA17 XMEM ;SET EA BITS

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

2365
2366
2367
2368
2369
2370

027540
027544
027552
027556
027560
027564

005077
012777
004537
000114
004537

(3)
(3)
2371
(3)
2§;%

027564
027570
027572
027572
027574

104010
000050

2373
gg;é

027576
027602

005737
001004

2376

027604

2378

027614

027614
027616

104010
000026

2380
ggg;

027620
027626

032737
001004

2383

027630

2§32

027636

(3)
(5)
(5)
Zég;

(3)
zé;%

(3)
(5)
(5)

2385
(3)
(3)
2386
2387
2388
(3)
(3)

2389
(3)
2§36

027604
027606
027610
027612

012700
104041

104462
000041
011716

027640
027640
027642

104010
000002

021276
000340

002144

4%:

104005

104001

#PR107,RO
C$SPRI
SEG
CSESCAPE
10000%-.

TST
BNE

INTFLG
4%

s INTERRUPT OCCUR?
. YES OKAY

ERRDF

32.,EM44,ERRO

;NO INTERRUPT W/NXM

:
J

ESCAPE

00222¢

)

10000$%:

ENDTST
L10057:

LSBTTL

%%32

027650

BGNTST

2395

027650

STARS
AR

sCHECK FOR FL:LOE, ELSE EXIT SEG

T$ERCODE
32
EM44
ERRO

EMT
.WORD

C$ESCAPE
10000%-.

SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

BIT
BNE

#NXME . CS
3%

;DID NXM SET?
;YES, CONTINUE

ERRDF

33.,EM24,ERRO

;NO NXM

TRAP
.WORD
.WORD

3%:

SEQ 0089

:LOAD DA
;WORD COUNT
;LOAD THE FUNCTION IN NEXT WORD
sREAD
sWAIT FOR CONTROLLER
;PRIORITY TO 7

MOV
EMT
ESCAPE
EMT
.WORD

TRAP
.WORD
.WORD
.WORD

020000

CLR
aRLDPA
MOV
#=1,3RLMP
JSR
R5,LDFUNC
READ ! INTEN
JSR
RS ,WTCRDY
SETPRI
#PRIO7

152476

014244

027644

Sgg}

152502
177777
020456

22-NOv-78
15:35
PAGE 1-59
**TEST 26** = FORCE NON-EXISTANT MEMORY ERROR INTERRUPT

104462
000040
012767
014244

027630
027632
027634

027644
027644
027646
027646
027646

30A(1052)

T$ERCODE
33
EMZ24

.WORD

ERRO

ESCAPE
EMT
.WORD

SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

ENDSEG

JXXEND.
OF SEGMENTZX

EMT

C$ESEG

EMT

CSETST

s**END OF

TEST=*»

«#TEST 27+x - (CHECK READ WRITE LOOP

AR AR AR AR A AR

;**START OF TEST=»
A A AR A AR

TR R AR A AR A AR R AR AR AR AR R A AR A AR AR AR AR

;VERIFY THAT THE WRITE ACTUALLY WRITES.

THIS

;TIME WE KNOW THAT THE WRITE FUNCTION GOES THRU
. THE MOTIONS BUT wE DON'T KNOW THAT

THE

JACTUALLY GETS RECORDED ON THE PLATTER,

DATA

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV=78 15:28

2401
2402
2403
2404
(4)
(4)

2405
2406
(3)
2407
2408
2409
2410

027650

m7
15:35 PAGE 1-60
**TEST 27** - (CHECK READ WRITE LOOP

22=N0V=78

o o Yot de

027650
027654
027662
027664

027666
027666
027670
027674
027700
027704

004737

021356

e e e ke e e o o e o o o o

104004

BGNSEG
EMT

C$BSEG

MOV
MOV

#BUF ,RO
#128. R1

DEC
BNE
CLR
MOV

012700
012701
012720
005301
001374

003052
000200
125252
152332
177600

3%:

152326
152314

MOV

JSR
WRITE
JSR
ESCAPE
EMT
.WORD

020214

JSR

ESCAPE.

003052
020456

CSEXIT
L10060-.

#125252, (RO) +
3%

aRLDA

#-128. ,dRLMP
#BUF ,aRLBA
R5.,LDFUNC
RS ,WTCRDY
SEG
C$ESCAPE

4%:

CLR

RS, CHERR
SEG
CSESCAPE
100008~

#128. ,R1

+
(RO)

R1
4%

aRLDA
#-128. ,aRLMP
#BUF ,aRLBA
R5.,LDFUNC

152240
152226

021276

RS ,WTCRDY
EG
C$ESCAPE
10001%$~-.

020214
002124

R5,CHERR

10%:

BN
ESCAPE

o o

e o o

o o

e eo

e e e

ok e e o

e e o

e ok e ek

sHEADS OVER TRACK 0
;HEADS GO HOME OKAY

sXXSTART OF SEGMENTZ%X
;SET UP WRITE BUFFER
128 WORDS/ONE SECTOR
;WRITE PATTERN TO BUFFER

sDONE?
+NO, BRANCH BACK
:DISK ADDRESS
sWORD COUNT
;BUS ADDRESS
;LOAD THE FUNCTION IN NEXT WORD
WRITE THE PATTERN
;WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT SEG

100008~.

($BSEG
#BUF ,RO

003052
000200

152244
177600

MOV

PC ,HDHOME

104032

027744

027776

e e e s

000362

021276

027770
027772
027774

g de e o

JSR
CKERFG
EMT
.WORD

003052
020456

027746
027752
027752
027754
027756
027756

SEQ 0090

STARS

2400
(2)

30A(1052)

T.CRC

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

sAXSTART OF SEGMENTZX%

":CLEAR OUT BUFFER BEFORE
sREAD ING
:CLEAR BUFFER
- DONE?
sNO, BRANCH BACK

;LOAD DISK ADDRESS
sWORD COUNT/ONE SECTION
:LOAD BUS ADDRESS

;LOAD THE FUNCTION IN NEXT WORD

:GO READ
;WAIT FOR CONTROLLER READY
sCRECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

;WAS ERROR A D(CK??

SEG

;YES,SEE IF WE A DUMP
JCHECK FOR FL:LOE, ELSE EXIT SEG

99%

; SKIP AROUND

C$ESCAPE
102018-,

N 7
ASSEMBLY ROUTINES
MACY11 30A(1052)
22-NOV=78 15:35 PAGE 1-61
CZRLBB.P11
22-NOV-7815:28
«*TEST 27%** = CHECK READ WRITE LOOP

2443
2444
2445

030054
030060
030062

005737
001772

2§2& 030062

104006

2447
2448
2449
2450

030064
030070
030074
030100

005037
005037
012702
012701

002130
002122
003052
000200

2452
2453
2454
2455
2456
2457

030112
030116
030124
030126
030132
030140

011237
023737
001442
010237
023737
001002

002170
002166

002170

002162
002130

016776

2651

030104

2458
(3)
(3)
5223

030142
030142
030144
030146

2461
2462
2463
(3)

030152
030156
030160
030160

(5)
(5)
(5)

2464
5222

030162
030164
030166

030170
030174

012737

104010
000076
005237

005737
001007
104462
000042
011774
014564

016774

125252

002130

002122

(10) 030176
(9)
030202
(8)
030206

013746
013746
013746

002170
002166
002162

(6)
(3)
(4)

012746
010600
104014

000004

030176

(7)

030212

252&

030226

030216
030222
030224

2469

030232

2470
26471
2472
247%

030234
030236
030240
030242

(3) 030232

(3)
(3)

2474
(3)
(%)
2475
(3)

030242
030242

030244
030244
030244
030246
03006

012746

062706

104006

005722
005301
001324
104005

104005

99% :

002166

333%:

002122

005237
000416

2467

8%:

ST
BEQ
CKLOOP

CS$CLPT

CLR
CLR
MOV
MOV

CDCNT
CHE CK
#BUF ,R2
#128. R1

;CLEAR NUMBER WE'RE TO PRINT
*ALLOW HEADER ON FIRST PRINT
“COMPARE BUFFER TO CHECK WRITE
*128 WORDS

MOV
CMP
BEQ
MOV
CMP
BNE

(R2) ,BDDAT
GDDAT ,BDDAT
6$
R2, TMP1
CDCNT, T.LMT
333$

*GET DATA
*IS DATA OKAY
*YES, CONTINUE
*LOAD BAD MEM LOCATION
:CHECKED ENOUGH??
;NO

MOV

ESCAPE
EMT
.WORD
INC

LWORD
.WORD
.WORD

INC
BR

016042

7% :

10001$:

100008:

ENDTST

L 10060:

SEG
CSESCAPE
10001%-.
CDCNT

CHECK
9%
34. ,EM25 ,ERR8
TSERCODE

SET UP EXPECTED

*CHECK FOR FL:LOE, ELSE EXIT SEG

:ACCOUNT FOR IT
;HEADER OR JUST DATA
*JUST DATA
;BAD DATA

34
EM25

ERR8

CHECK
é$

JACCOUNT FOR PRINT OF HEADER

PRINTEB #FRMT6,TMP1,GDDAT
,BDDAT
BDDAT
.= (SP}
GDDAT,=(SP)
TMP1,=(SP)

MOV
MOV
EMT

#4 ,~(SP)
SP.RO
C$PNTB

ADD

#125252,GDDAT

MGV
MOV
MOV

MOV

000012

;DO WE STILL WANT TO CHECK IT
*NO
*YES, CHECK FOR LOOP FIRST

EMT

TST
BNE
ERRDF
TRAP

G%:

T.DMP
108

SEQ 0091

CKLOOP

EMT

#FRMT6,
= (SP)

#12,5P

C$CLPT

T1S7T
DEC
BNE
ENDSEG

(R2)+
R1
5%

EMT

C$iSEG

Emr

T$ESEC

ENDSEG

;BUMP BUFFER POINTER
*DONE
?
‘NG, GO BACK
S%XXEND OF SEGMENTXX
JXXEND OF

SEGMENTZX%

;eefND OF

TESTew

CZRLBB.PN

2677
2478

MACY11 30A(1052)
22-NOvV-78 15:35 PAGE 1-62
*+TEST 28+~ ~ (HECK SILO LINES
22=-NOv-78 15 :28

ASSEMBLY ROUTINES

JSBTTL

SEQ . 092

#«TEST 28+ = (HECK SILO LINES

030250

BGNTST

030250

S t'ftt.tttfitttttttt.tttttttttttt.ttttttttn CRRRRRARRRRRRRRA RN AR

;**START OF TESTw*»

TAR

:TEST THAT LINES IN / TO SILG ARE GOOD, THAT 1> THAT EACH LINE IS
:GOOD AND CAN BE AT EITHER A 1 OR A O STATE INDLPENTENTLY OF EACH
:OTHER BIT POSITION THIS IS DONE BY WRITING PATT:RNS OF FLOATING 1,

ST;O@TING 0., WALKING 0, WALKING 1

030250

004737

021356

104032
000404

012703

104004

012700
012701

012777
005077
012777
004537
000012
004537

002662

003052
000200

003052
151722
177600
020456

6$:
2% :

151724

AR A AR AR AR A AR AR AR

JSR
CKERFG
EMT

PC , HDHOME

.WORD

L10061-.

MOV

#DATPAT ,R3

BGNSEG
EMT

MOV
MOV
MOV
DEC
BNE

CSEXIT

C$BSEG
#BUF ,RO
#128. R
(R3), (RO) +
R1
2%

MOV #BUF ,aRLBA
CLR
aRLDA

151716

MOV
fié?rs

#-128.,3RLMP
RS, LDFUNC

021276

JSR

RS,WTCRDY

020214

JSR
ESCAPE

RS, CHERR
SEG

EMT

C$BSEG

ESCAPE
EMT
.WORD
EMT
.WORD
BGNSEG

003052
000200

012777
012777
005077

R AR RT

3%:

SEG
CSESCAPE
10000$-.
CSESCAPE
10000%-.

A RAARAARAARARARS

(AR AR AR AR

;HEADS OVER T.’ACK 0
*HEADS GO HOME OKAY

:%XXSTART OF

SEGMENTXX

:WRITE PATTERN INTO MEMORY
;128 WORDS
WRITE THE PATTERN

* DONE?
*NO GO BACK

:SETUP TO WRITE PATTERN ONTO DISK
*LOAD DA

-WORD COUNT
:LOAD THE FUNCTION IN NEXT WORD
;CHECK FOR FL:LOE, ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG
;%X%START OF

SEGMENTZX

MOV
MOV
CLR
DEC
BNE

#BUF ,RO
#128. ,R1
(RO) +
R1
38

:CLEAR MEMORY BEFORE READING IT BACK
*128 WORDS
*CLEAR
: EONE
*NO

MOV

#BUF , 3RLBA

:SETUP TO READ

(LR

dRLDA

*SECTOR ZERO

MOV

#-128. ,3RLMP

128 WORDS

IT BACK

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-N0Ov-78 15:28

004537

30A(1052)

020456

JSR

RS.LDFUNC

JSR

RS ,WTCRDY

EMT
.WORD
JSR

CS$ESCAPE
10001%-.
RS, CHERR

BNE
ESCAPE
EMT
.WORD
BR

8%
SEG
CSESCAPE
10001%-.
99%

BEQ

108

READ

021276

ESCAPE

020214
002124

TST

10%:

8%:

016774

TST

CKLOOP

002130

030510

012737
012737

030516
030524
030532

017737
023737
001440

030534
030542

023737
001002

030544
030544

99%:

002164
002162
151442

002166

002170
002170

002130

016776

002130

030554

002122

5%:

030570

030572
030576

005237
000416

000012

9%:

T.CRC

;WAS ERROR A DCK??
;YES,SEE IF WE A DUMP
sCHECK FCR FL:LOE, ELSE EXIT SEG

T.DMP

:58 WE STILL WANT TO CHECK IT

;CHECK CNTLR FOR ERRORS

:SKIP AROUND

*YES, CHECK FOR LOOP FIRST

MOV
MOV
MOV

(R3) ,GDDAT
#BUF
, TMP2
#1,TMP1

MOV

aTMP2 ,BDDAT

BEQ

:GET DATA
*GOOD?
*YES, BRANCH

CMP

.WORD

INC

GDDAT ,BDDAT

CDCNT, T.LMT

333%
SEG

C$ESCAPE

10001%-.

sNO

sCHECK FOR FL:LOE, ELSE EXIT SEG

JACCOUNT FOR IT

CHECK

JHEADER OR JUST DATA

9%
35. ,EM45,ERR10

.WORD
.WORD
.WORD

35
EM45
ERR10

INC
BR

CHECK
4%

T$ERCODE

;JUST DATA
;BAD DATA BACK

sACCOUNT FOR PRINT OF HEADER

PRINTB #FRMT7,TMP1,GDDAT
,BRDDAT
MOV
BDDAT ,-(SP)
MOV
GDDAT ,=(SP)

MOV

MOV
MOV

EMT
ADD
CKLOOP

;CHECKED ENOUGH??

CDCNT

BNE
ERRDF

MOV

4%:

;CHECK FOR FL:LOE, ELSE EXIT SEG

:CLEAR NUMBER WE'RE TO PRINT
*ALLOW HEADER ON FIRST PRINT
*COMPARE WHAT WE READ BACK
‘BUFFER START
*START WITH FIRST

TRAP

002170
002166
002162
016117
000004

SEG

CDCNT
CHECK

TST

002122

;LOAD THE FUNCTION IN NEXT WORD

CLR
CLR

CMP

333%:

SEQ 0093

C$CLPT

BNE
ESCAPE

104462

000043
013024
014702

EMT

030546
030550

15:35
PAGE 1-6 3
«xTEST 28+% « (CHECK SILO L INES

22=NOV-78

TMP1,-(SP)

#FRMT7 ,-(SP)
#4,-(SP)
SP,R0O
C$PNTR
#.2,SP

ASSEMBLY ROUTINES

CZRLBB.P11

030634

MACY11
22-N0V-78 15:28

30A(1052)

22-NOV=78

001317

000002
002162
002162

002164
000201

005723
001203
10000%:

104005

CSCLPT

ADD
INC

#2,TMP2
TTMMP1

BNE

TMP1,#129.

sNEXT LOCATION
sNEXT WORD
- DONE
:NO, GO BACK

;%XXEND OF SEGMENTZX

EMT

C$ESEG

TST
BNE

(R3)+
6%

;DONE ALL PATTERNS

;NO,

GO BACK

sXXEND OF SEGMENTZ%X

ENDSEG

$ESEG

L10061:
" Emr

CSETST

.SBTTL

SEQ 0094

ENDSEG

EMT

ENDTST

104001

EMT

CMP

10001%:

104005

D 8
PAGE 1-64

*xTEST 28+% ~ CHECK SILO LINES

104006

062737

15:35

s**END OF

**«TEST 29%* = (CHECK THROUGHPUT OF

BGNTST

TEST*=

SILO

;**START OF

TEST=x

STARS
PIRRARARKRR

AR KRR AR R AR AR RAARRRAAR RN RRRRARERRRRRARRRRA
AR A RR

:TEST THAT THE SILO OPERATES CORRECTLY, WE WILL WRITE A PATTERRN THAT
:A UNIQUE PATTERN IN EACH LOCATION. WE EXPECT IT BACK IN PROPER

:ORDER, WE DO A ONE SECTOR TRANSFER

030672

STARS

::ttttitti*'fittttt'tfit'it'tttttifittttfitittitti*'tttt*'ittittt't.*

030672
030676
030704
030706

004737

021356

104C32

000410

030710
030710

030712

—_—

2%:

—

012777
012777
005077

CSEXIT
L10062-.

BGNSEG
EMT

($BSEG

PC ,HDHOME

JHEADS OVER TRACK 0
JHEADS GO HOME

JINITIAL 1

#BUF .R2
RO.(RZ)o

;BUFFER

JWRITE A WORD

s DONE
;NO

#BUF , ARLBA

JSETUP TO WRITE

aRLDA

;DISK ADDRESS 0

RO
R1

#-128. , RLMP

OKAY

JXXSTART OF SEGMENTZX

#1.R0

#128. ,R1

030736
030744
030752

000001
000200
003052

JSR
CKERFG
EMT
.WORD

2128 WORDS
JNEXT PATTERN (1-128)

2128 WORDS

CONTAINS

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

004537
000012
004537
030772

104010
000322

030774

004537

30A(1052)

JSR
WRITE
JSR
ESCAPE
EMT
.WORD

021276

020214

JSR
ESCAPE
EMT
. WORD
BGNSEG
EMT
MOV

104070
000312

3%:

R #8Van So&S

_—
—

005037

—

——d — -

104006

012737
012737
017737
023737
001440
023737
001002
104010

000116

R5,CHERR
SEG
C$ESCAPE
100008~-.

RS ,WTCRDY
SEG
C$ESCAPE
10001%-.

020214
002124

R5,CHERR
T.CRC

151014

002166
002164
002162

002170

002170
002166

002130

016776

CDCNT
CHECK

#1,GDDAT

4%:

MOV

BEQ

(MP

ESCAPE
EMT
. WORD

sCHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

:WAS ERROR A D(CK??

s SKIP AROUND

10%

MOV

;BUS ADDRESS
sWORD COUNT
:DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

10001%~.
99%
T.DMP

99%:

;XXSTART OF SEGMENTZ%X

;YES,SEE IF WE A DUMP
;CHECK FOR FL:LOE, ELSE EXIT SEG

C$CLPT
002130
002122
000001
003052
000001

;CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

SEG

C$E SCAPE

g%:

;CHECK FOR FL:LOE, ELSE EXIT SEG

;128 IN LENGTH

021276

016774

;LOAD THE FUNCTION IN NEXT WORD

: CLEAR
sDOWN COUNT
;DONE?
#BUF ,aRLBA
#-128. ,aRLMP
aRLDA

10%:

SEQ 0095

:CLEAR BUFFER

R5.,LDFUNC

104010

000214
000404
005737
001772

R5,WTCRDY
S EG
CSESCAPE
100008-.

CLR
DEC
BNE

104010
000232

004537
005737
001003

R5,LDFUNC

MOv

orv

AS 1AV

003052
177600
151202
020456

—b

012777
012777
005077
004537
000014
004537

031022

031024

15:35
PAGE 1-65
**TEST 29** =~ CHECK THROUGHPUT OF SILO

020456

003052
000200

22-NOV-78

#BUF
, TMP2

#1,TMP1

aTMP2 ,BDDAT

ggDAT.GDDAT

CDCNT, T.LMT
$

;DO WE STILL WANT TO CHECK IT

;NO
;YES,

CHECK FOR LOOP FIRST

;CLEAR NUMBER WE'RE TO PRINT

JALLOW HEADER ON FIRST PRINT
:START GOOD AT 1
:START OF BUFFER
sFIRST WORD

;GET WORD
s CORRECT?
sVES
2NO

s CHECKED ENOUGH??

;CHECK FOR FL:LOE, ELSE EXIT SEG

8
MACY11 30A(1052)
22-NOV-78 15:35 PAGE -66
**TEST 29** = CHECK THROUGHPUT OF SILO
22-NOv-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

2648
2649
2650
2651
2652
(3)
(5)
(5)

031176

005237

002130

005737
001007

002122

(%)

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

013746
013746
013746

TST

TRAP

.WORD
.WORD
.WORD
INC

002122

BR
9%:

002170

(4)
(4)

000012

6%:

031262
031264
031272

062757
005237
005237
023727
001315

104005

000002
002162
002166
002162

002164
000201

10000%
:

ENDTST

104001

L10062:
LSBTTL

JACCOUNT FOR IT

CHECK

JHEADER OR JUST DATA

9%
- +JUST DATA
36.,EM47 ,ERR10 ;BAD DATA
TSERCODE

36
EM47
ERR10
CHECK

JACCOUNT FOR PRINT OF HEADER

TMP1,-(SP)
#FRMT7 ,-(SP)

MOV
MOV
EMT
ADD
CKLOOP
EMT

#4,-(SP)
SP,RO
C$PNTB
#12,SP

ADD
INC
INC

#2,TMP2
TMP1
GDDAT

BNE

(MP

10001%:

CDCNT

PRINTB #FRMT7,TMP1,GDDAT
,BDDAT
MOV
BDDAT ,~(SP)
MOV
GDDAT ,~(SP)

MOV
MOV

000004

(3)

INC
BNE
ERRDF

104462

000044
013056
014702
005237
000416

2653
2654
2655
2656

2657
(3)
2658
2659

333%:

C$CLPI
JNEXT
JNEXT
JNEXT

TMP1,4129.

*DONE
?

ENDSEG

EMT
ENDSEG

)

EMT

($ESEG

EMT

CSETST

SEGMENTZ%%

JA%ZEND OF

SEGMENT%%

;**END OF

TEST=«

*«TEST 30%** - (HECK ZERO FILL ON WRITE

;**«START OF TESTx»

STARS
t'tfi‘t'.tttt'ttfi AR

SWHEN WRITING PARTIAL

;CONTROLLER WILL FILL

031320

J%%END OF

C$ESEG

BCGNTST

031320

SEQ 0096

A AR AR

SECTORS

AR AR

(LESS

AR AR AR

A AR AR AR AR AR AR AR

THAN 128 WORDS)

IN THE REMAINING PORTION OF
C(HECK THIS FEATURE
:THE SECTOR WITH ZERO WORDS.
:WITH WORD COUNTS FROM 1 T0 127
STARS
;;fit'."it.tt.t"

CRFAP

A AR AR AT RN RN AR

RAR

THE

RRR R

TR R AR

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

031320
031324
031332
031334

104032

000442

EMT

2686
zég;

031336
031336

104004

2688

031340

012737

000007

2690

031352

012701

000200

2692
2693
2694
2695
269

031362
031364
031366
031372
031374

005307
001374
013700
005400
010077

2698
2699
2700
2701
2702
3
2;3;

031406
031412
031416
031420
031424
031426
031426

005077
004537
000012
004537

2704
2705
(3)
(3)
2706
(3)
2707
2708

031430
031434
031434
031436
031440
031440
031442
031446

004537

2710
%;}5

031456
021460

2691

2697

2709

031356

031400

012720

012777

104004
012700

012701

2713
2714
2715
2716
2717
2718
2719

031462
031470
031476
031502
031506
031510
031514

012777
012777
005077
004537
000014
004537

2536

031516

000234

2721
2722

031520
031524

004537
005737

2724
(3)

031532
031532

2723

(3)
2725

2726

031530

03153%
031536

031540

35¢:

052525

002162

33¢:

150650

003052

150634
020456

150636

005301
001374

020214

125252

003052
177600
150544
020456

188:

150554
150552

021276

104010

001003
104010
000216
000404

005737

PC , HDHOME

.WORD

L10063-.

BGNSEG
EMT

C$BSEG

MOV

016774

108:

&% :

#1,TMP1

;HEADS OVER TRACK 0
*HEADS GO HOME OKAY

;%XXSTART OF SEGMENTX%Z

:START WITH 1 WORD WRITE

#8UF ,RO

MOV

#52525,(RO)+

:ONLY GOING TO TRANSFER < 128

#BUF , aRLBA

*SET
UP RLBA

MOV

DEC
BNE
MOV
NEG
MOV

JSR
ESCAPE
EMT
.WORD
BGNSEG
EMT
MOV
MOV

#128. R1

R1
3%
TTMP1,RO
RO
R0, BRLMP

aR' DA
RS,LDFUNC

RS5,WTCRDY
SEG
C$ESCAPE
10000%-.
R5,CHERR
SEG
CSESCAPE
10000%-.
C$BSEG
#BUF ,RO

*WRITE BUFFER WITH 52525, WE'LL

:WRITE 128 WORDS ALL THOUGH WE 'RE

*DONE WITH BUFFER?
*NO, GO BACK
“GET TRANSFER WORD COUNT
*NEGATE FOR RLMP
*STORE WORD COUNT AWAY

;LOAD THE FUNCTION IN NEXT WORD
SWRITE IT
JWAIT FOR WRITE TO FINISH
:CHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG
:

;%XSTART OF SEGMENTXX

#128. R1

;WE'RE GOING TO OVERLAY BUFFER BEFORE
*READING IT BACK.

DEC
BNE

R1
18%

*DONE?
:NO, KEEP GOING

MOV
MOV
LR
JSR
READ
JSR
ESCAPE

#BUF ,BRLBA
#-128. ,aRLMP
aRLDA
RS, LDFUNC

:SET UP TO READ
;128 WORDS TO CHECK ZERO FILL
*SECTOR
:LOAD THE FUNCTION IN NEXT WORD
A
JWAIT TIL WE FINISH THE READ
*CHECK FOR FL:LOE, ELSE EXIT SEG

MOV

#125252, (RO)+

-OVERLAY IT WITH COMPLIMENT

.WORD

RS5,WTCRDY
SEG
C$ESCAPE
10007%-.

JSR
TST

RS,CHERR
T.CRC

;CHECK CNTLR FOR ERRORS
:WAS ERROR A DCK??

SEG
C$E SCAPE

*CHECK FOR FL:LOE, ELSE EXIT SEG

EMT

020214
002124

CSEXIT

SEQ 0097

MOV

CLR
JSR
WRITE
JSR
ESCAPE
EMT
.WORD

021276

003052
000200

JSR
CKERFG

MOV

104010
000336

012720

031514

002162

704010
000346

031452

(3)

021356

012700 003052

22-NOV-78
15:35
PAGE 1-67
«*TEST 30%% = CHECK ZERO FILL ON WRITE

2683
2684
()
2é§%

2689 031346

004737

30A(1052)

BNE

.WORD
BR

10001%-.
g e

ESCAPE
EMT

TST

T.DMP

“YES,SEE IF WE A DUMP
:SKIP AROUND

‘DO WE STILL WANT TO CHECK IT

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV=78 15:28

031544
031546
031546

031620
031622
031630
031632
031632
031634
031636

30A(1052)

22-NOvV-78

002130
002122
002162
000200

012703
005037
012737
011337
023737
001441

003052
002164
052525
002170
002170

002166

023737

002730

016776

001002

99%:

002166

4%:

005737
001007

002130

333%:

002122

002170
002166

0000174

002164

031752
031752
031752

005037
009716

MoV
CLR
MOV
MOV
CMP
BEQ

#BUF ,R3
TMP2
#52525,GDDAT
(R3) ,BDDAT
BDDAT,GDDAT
12%

sSET UP BUFFER BEGINNING
;ZERO WORD COUNT
;SET UP EXPECTED
;GET WORD
;1S WORD CORRECT?
;YES, GO CHECK COUNTS AND REPEAT

CMP
BNE

CDCNT, T.LMT

SEG
C$ESCAPE

:CHECK FOR FL:LOE, ELSE EXIT SEG

.WORD
INC

.WORD

.WORD
.WORD
INC
BR
9%:

002162
016312
000005

031744
031750

C$CLPT
CDCNT
CHECK
TMP1,R2
#128. .R1

TRAP

002122

013746

EMT
CLR
CLR
MOV
MOV

TST
BNE
ERRDF

104462

12%:

6%:

002166

10001%:

3338

10001%~-.
CDCNT

CHECK
9$
37, ,EM27 ,ERR12

:NO
;YES, CHECK FOR LOOP FIRST

;CLEAR NUMBER WE'RE TO PRINT
JALLOW HEADER ON FIRST PRINT
;WORDS WRITTEN IN R2

;CHECK 128 WORDS

;CHECKED ENOUGH??

ACCOUNT FOR IT
;HEADER OR JUST DATA

s JUST DATA

;?ERCODE

EM27
ERR12
CHECK
12%

sACCOUNT FOR PRINT OF HEADER

PRINTB #FRMT9,TMP1,R3,GDDAT
,BDDAT

MOV
MOV
MOV
MOV
MOV
MOV
MOV
EMT

BDDAT,=(SP)
GDDAT ,=(SP)
R3,-(SP)
TMP1,-(SP)
#FRMT9,-(SP)
#5,-(SP)
SP,R0O
C$PNTB

ADD

#14 ,SP

EMT
TST

C$CLPT
(R3)+

DEC
BEQ
DE(
BGT

R1
7%
R2
4%

CkLOOP

INC

(LR
BR

7%:

SEQ 0098

10%

ESCAPE
EMT

104010

000116
005237

BEQ

CKLOOP

005037
005037
013702
012701

PAGE 1-68

**TEST 30** - (CHECK ZERO FILL ON WRITE

001772
104006

15:35

ENDSEG

TMP2

GDDAT
4%

;DONE ALL WORDS?
JEXIT TEST
sDONE CHECKING NON-ZERO WORDS
sNO, BRANCH BACK
JYES, SET EXP'D AS ZERO
sBRANCH BACK
JEXIT

TEST

JAXEND OF SEGMENTZX

ASSEMBLY ROUTINES
MACY11
CZRLBB P11
22-NOV-78 15:28

031752

104005

031754
031760
031766
031770
031774

005237
023727
001402
000137

031774
031774
031774
031776
031776
031776

30A(1052)

22-NOv-78

15:35

**TEST 30** - CHECK ZERO FILL ON WRITE

EMT
202162
002162

031346

INC

CMP

000200

BEQ
JMP

34%:
70000%:

104005

ENDTST

L10063:

104001

I 8
PAGE 1-69

LSBTTL

032000

BGNTST

032000

S1ARS

’

SEQ 0099

CSESEG

TMP1

TMP1,4128.

34$
35%

ENDSEG

EMT

($ESEG

EMT

CSETST

JX%END OF

SEGMENTZX%

J**END OF

TEST=x

«=TEST 371+« - (CHECK SECTOR BITS OF HEADER COMPARE
;**START OF

TEST=*«

::tQttt.t*ti*ttti.iti*'*"iitt't..tt.tififitfitt*itt'ifiitttt'tttfi‘tt

;TEST

THAT ALL

SECTOR BITS OF

HEADER WORD CAN COMPARE

;UNJQUELY.
WE TESTED THE HEADER COMPARE LOGIC EARLIER
:BUT THAT WAS NOT AN EXTENSIVE TEST OF THE SECTOR BITS.
:THE

TEST PROCEDURE

TO WRITE EACH SECTOR OF

TRACK

:0 WITH THE SECTOR ADDRESS, THEN GO BACK AND READ

:EACH SECTOR.
IF ANY SECTOR HAS ANY DATA THEN THAT
:WHICH WAS EXPECTED THEN WE HAVE AN ERROR

§$§§2R PRINT OUT WILL

032000

GIVE

SECTOR,

EXPECTED AND RECEIVED

""Qttttfittttttttfitfittttt""tit'tlQttitt'ttttt't*ttttfi"'tfi.ttttit

004737

021356

032014

000414

104032

JSR
CKERFG
EMT

.WORD

L10064-.

032016
032016

104004

BGNSEG
EMT

C$BSEG

032020

005037

CLR

TMPO

032024
032024

104004

032026
032032
032036
032042

012702
012701
013722
005301

002160

1%:

BGNSEG

EMT

003052
000200
002160

199%:

MOV

2%:

MOV

PC ,HDHOME
CSEXIT

JHEADS QVER TRACK 0
JHEADS GO HOME OKAY

#BUF ,R2

#128, ,R1

DEC

T1%P0, (R2)+

SEGMENTZ%

;AXSTART OF

SEGMENTZ%

. CLEAR

C$BSEG

MOV

sA%5TART OF

JWRITE

sONE

A PATTERN FOR

SECTOR'S WORTH

JWRITE IT

.DONE,

THE

WRITE

ASSEMBLY ROUTINES

CZRLBB.P11

22-NOv-78 15:28

gg}?

032044

001374

2812
2813
2814
2815
2816
2817
2818
(3)

032046
032054
032062
032070
032074
032076
032102
032102

012777
012777
013777
004537
000012
004537

2819
2820
2821

032106
032112
032120

005237
023727
001342

(3)

ggg%

032104

032122

MACY11

104010
000320

005037

177600
003052
002160
020456

002160
002160

104004

2826
2827
2828
2829
Sg%?

032130
032134
032140
032142
032144

012702
012701
005022
005301
001375

003052
000200

2832

032146

013777

002160

2835
2836
2837
2838
2839
(3)
2&26

032162
032170
032174
032176
032202
032202
032204

012777
004537
000014
004537

177600
020456

2841
2842
2843
2844
(3)
(3)
2845
2846
2847
2848
2§2&

032206
(32212
032216
032220
032220
032222
032224
032226
032232
032234
032234

004537
005737
001003

012777

003052

BNE

:IF NOT, GO BACK

MOV
MOV
MOV
JSR
WRITE
JSR
ESCAPE
EMT

#-128. ,aRLMP
#BUF , RLBA
TMPO, aRLDA
R5,LDFUNC

;ONE _SECTOR WORD COUNT
sWRITE FROM BUF
:SECTOR
;LOAD THE FUNCTION IN NEXT WORD

INC
CMP
BNE

TMPO
TMPQ, #40.
199%

150174
150162
150156

.WORD

000050

CLR

R5,WTCRDY
SEG
i
C$ESCAPE
10001%-.

TMPO

;WAIT FOR WRITE TO FINISH
- ;CHECK FOR FL:LOE, ELSE EXIT SEG
sNEXT SECTOR
JALL DONE?
sNO GO BACK
;CLEAR

BGNSEG
EMT

C$BSEG

MOV
MOV
CLR
DEC
BNE

#BUF ,R2
#128. R
(R2)+
R1
3%

;CLEAR HE BUFFER FIRST
;128 WO

150072

MOV

TMPQ,aRLDA
#BUF ,aRLBA

;GET SECTOR

150060

MOV
JSR
READ
JSR
ESCAPE
EMI
.WORD

#-128. ,aRLMP
R5,LDFUNC

JREAD A SECTOR
;LOAD THE FUNCTION IN NEXT WORD

98%:
3%:

150062

MOV

021276

020214
002124
10%:

016774

8¢:

104006

sggq
2852
2853
2854
2855
2856
2857

1-70

**TEST 31*% -~ CHECK SECTOR BITS OF HEADER COMPARE

104010
000216

104010
000200
000404
005737
001772

15:35

002160

032126
032126

032154

PAGE

22-NOv-78

021276

2824
2§3§

%ggz

30A(1052)

JSR
IST
BNE
ESCAPE
EMT
.WORD
BR
TST
BEQ
CKLOOP
EMT

RS ,WTCRDY
SEG
($E SCAPE
10002%-.
RS, CHERR
T.CRC
8%
SEG
C$ESCAPE
10002%-.
99%
T.DMP
10%
cscLPt

;XXSTART OF SEGMENTZ%%

:SETUP BUS ADDRESS

;CHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
;WAS ERROR A DCK??
;YES,SEE IF WE A DUMP
;CHECK FOR FL:LOE, ELSE EXIT SEG
; SKIP ARQUND
DO WE STILL WANT TO CHECK IT
NO
*YES, CHECK FOR LOOP FIRST

;CHECK NOW TO SEE iF WE READ THE RIGHT SECTOR
032236
032242
032246
032254
032260
032264

005037
005037
013737
012702
012701
012237

002130
002122
002160
003052
000200
002170

99%:
002166
5%:

CLR
CLR
MOV
MOV
MOV
MOV

CDCNT
CHE CK
TMPQ, GDDAT
#BUF LR
#:28. ,R1
(R2)+ ,BDDAT

;CLEAR NUMBER WE'RE TO PRINT
;ALLOW HEADER ON FIRST PRINT
JEXPECTED DATA
;BUFFER
sWORD COUNT
:

SEQ 0100

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-N0Ov-78 15:28

032270
032276

30A(1052)

023737
001440

002170

002166

023737
001002

002130

016776

22-NOV-78

000110
005237

032320
032324

005737
001007

333%:

002122

013746
013746
013746
012746
012746
010600

002170
002166
002160
016171
000004

062706

000012

104014

032422
032422
032422

032424
032424
032424
032426
032426

032430

005301
001327
005237
023727
001243

104005

104005
104005
104001

9%:

SEG
CSESCAPE
10002%-.

*CHECK FOR FL:LOE, ELSE EXIT SEG

CDCNT

sACCOUNT FOR IT

CHECK

JHEADER OR JUST DATA

INC

6%:

002160

000050

10002%:

10001%:

100008:
ENDTST

L10064:

BGNTST

333%

9%
38.,EM50,ERR11

.WORD
.WORD
.WORD

38
EM50
ERR11

T$SERCODE

CHECK
6%

;:CHECKED ENOUGH??

;JUST DATA
;

sACCOUNT FOR PRINT OF HEADER

PRINTB #FRMT8, TMPO,GDDAT ,BDDAT
MOV
BDDAT ,~(SP)
MOV
GDDAT,~(SP)
MOV
TMPQ,~(SP)
MOV
#FRMT8,-(SP)
MoV
#4,-(SP)
MOV
SP,RO
ADD

CKLOOP
EMT
DEC
BNE
INC
CMP
BNE

BNE
ERRDF

EMT

.SBTTL

032432

CDCNT, T.LMT

INC
BR

104006

032402
032404
032406
032412
032420

CMP
BNE
ESCAPE
EMT
.WORD

TRAP

013105

014754
005237
000416

BDDAT,GDDAT

TST

104462
000046

SEQ 0101

CMP

BEQ

002130

K _8
PAGE 1-71

**TEST 31#* -~ CHECK SECTOR BITS OF HEADER COMPARE

104010

032314

15:35

C$PNTR

#12,SP

C$CLPT
R1
5%
TMPO
TMPO ,#40.
98%

sALL OF SECTOR CHECKED?
:GO BACK IF NOT
sNEXT SECTOR
;DONE?
:NO, GO BACK

sA%END OF SEGMENTZ%%

ENDSEG

EMT

C$ESEG

JA%END OF SEGMENTZXX

ENDSEG

EMT
ENDSEG

C$ESEG

EMT

($ESEG

EMT

C$ETST

**TEST

32x% - WRITE

J%XXEND OF SEGMENTZ%X
J*%END OF

CHECK NPR

TEST=»

INTEGRETY
;**START OF

TESTs

ASSEMBLY ROUTINES

(4)
(4)

2899

2900

2901

15:35

SRR

032450
032450

032452

032470
032472
032500

AR AR

AR AR AR A AR A AR

SEQ 0102

RA AR AR AR AR AR TR AR

AR ARk

:CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE
:UNIBUS. WE SET UP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS.
STARS

032432

032432
032436
032444
032446

PAGE 1-72

**TEST 32%* - WRITE CHECK NPR INTEGRETY
AT AR AR AR AR

004737

021356

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

000372

JSR
CKERFG
EMT
.WORD

104004

BGNSEG
EMT

C$BSEG

MoV
MOV

#12

2128 WORDS

*DONE??

104032

012700
012701
012720
005301
001374

003052
000200
125252

012777

003052
177600
147534
020456

299%:

147544
147542

MOV
DEC
BNE

MoV
MoV
CLR
JSR

021276
0
004537

020214

PC ,HDHOME

CSEXIT
L10065-.

xsur RO

:195262 (RO)+
299s

#BUF , 3RLBA

104010

AR AR,

:HEADS OVER TRACK 0

*HEADS GO HOME OKAY

;%%START OF SEGMENTZ%Y
;SETUP AND WRITE

-WRITE

:LOAD BUS ADDRESS

:WORD COUNT

RS ,WTCRDY
SEG
CSESCAPE
10000$~.
RS, CHERR

:WAIT FOR CONTROLLER READY
:CHECK FOR FL:LOE, ELSE EXIT SEG

ARLDA
RS, LDFUNC

C$E SCAPE

000300

AR AR AR AR A AR R

#-128.,3RLMP

SEG

*CLEAR DISK ADDRESS
:LOAD THE FUNCTION IN NEXT WORD

:CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE,

ELSE EXIT SEG

100008~

;VERIFY WRITE WITH READ BEFORE WRCHK

005077
012777
012777
004537
000014
004537

147502
003052
177600
020456

021276

104010

020214

2895
2896
2897
2898

22-NOy-78

STARS

N
NN

(2)

032432

—

2891
(2)
2892
2893
2894

22-NOV-78 15:28

30A(1052)

472
470

MOV
MOV

ARLDA
#BUF ,aRLBA

#-128. , aRLMP
RS, LDFUNC

;LOAD THE FUNCTION IN NEXT WORD

RS ,WTCRDY
G

;CHECK FOR FL:LOE, ELSE EXIT SEG

R5,CHERR
SEG

:CHECK CNTLR FOR ERRORS
;(HECK FOR FL:LOE, ELSE EXIT SEG

wm
m

CZRLBB.P11

MACY11

C$ESCAPE
10000%~-.
CSESCAPE
10000%~.

($BSEG

JAXSTART OF

SEGMENTZ%X

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

2933
(7)
(6)
(5)
(4)

032610
032610
032614
032620
032624

012746
012746
013746
012746

30A(1052)

22-NOV-78 15:35 PAGE 1-7%
**TEST 32#%% = WRITE CHECK NPR INTEGRETY
M

1%:

000340
021350
002132
000003

147374
147366

147272

032764
032770

004537

(5)
(5)

032774
032776

(3)

033000

013700
104036

(3>
(3>

033006
033010

104010
000024

2958

033012

005737

002142

033020

004537

021016

(3)

2960

1
(3)
(5)
(5)
_(5)

032770

033024
033024
033026
033030
033032

2962
2963
2964
2965

033034

2966

033036

(3)
(3)

033034

033034
033034

104461
000001
013477
014244

'
104005

CLR
MOV
BIS

GDDAT
DRIVE ,GDDAT
#WRCHK
, GDDAT

BIC
MOV

58:

021016

104462
00000
007172
014456

TRPFLG
#BUF ,aRLBA
aRLDA

BIS

MOV
BIT
BNE
WAITUS
MOV
EMT
DEC

6%:

#0PI ,B.CS
GDDAT,aRLCS
#100. .R1
#gRDY.aRLCS
6
#20.

R5,AFTER
0.,CRTIM,ERRS

.WORD

.WORD
CLRVEC

ERRS
ERRVEC

MOV
EMT
ESCAPE
EMT
.WORD

BEQ
JSR
ERRSF
TRAP

.WORD

10001%:

GDDAT ,B.(CS

#201,B.CS

JSR
ERRDF

TST

7%:

R5 ,BEFORE

BNE

.WORD

002132

#-128. ,aRLMP

#20. ,RO
CSWTU
R1
5%

TRAP

.WORD
.WORD

TSERCODE

;CLEAR TRAP OCCURANCE
;BUS ADDRESS
;LOAD DISK ADDRESS
;WORD COUNT OF 128
sSET UP CSR TO LOAD
sSET IN DRIVE
;SET IN FUNCTION
;LOAD FOR ERROR PRINTOUT
;SET IN COMMAND
;LOAD CRDY
;CLEAR (BIT 10)
s ISSUE WRITE CHECK
;WAIT FOR CRDY

:NPR DONE

;YES, 6%
JWAIT A WHILE

;A WHILE UP

:NO, GO BACK

2 CONTROLLER TIMED OuUT

CRTIM

ERRVEC RO
C$CVEC
SEG
C$ESCAPE
10001%~-.
TRPFLG

7%
RS ,AFTER
1. ,EM57,ERRO
T$ERCODE

;CLEAR VECTOR
;CHECK FOR FL:LOE, ELSE EXIT SEG

:gID TRAP OCCUR?

:TRAP ON WRITE

EM57
ERRO

ENDSEG

EMT
ENDSEG

;SET UP FOR TRAP

#TRPHAN,
= (SP)
ERRVEC,=(SP)

CLR
MOV
CLR

MOV

000024

2953
2954

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

JSR

002216
002216
002216
147304

001367

MOV
EMT
ADD

MOV

002166
002166

032762

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

MOV
MOV

000010

2951

SETVEC
MOV

SEQ 0103

;%X%XEND OF SEGMENTZX
CIESEG

J%XEND OF SEGMENTZ%

N 8
ASSEMBLY ROUTINES
MACY11 30A(1052) 22-NOV=78 15:35 PAGE 1-74
CZRLBB.P11
22-NOV-78 15:28
**TEST 32#% = WRITE CHECK NPR INTEGRETY

(3)

033036

2968

033040

zéé% 033036
(3)
2;;23;

033040
033040

10000$ :

104005

CS$ESEG

ENDTST

L10065:

104001

%3;?

LSBTTL

s*%END OF TEST##
EMT

CSETST

**TEST 33#%% = WRITE CHECK FUNCTION

gg;%

033042

BGNTST

2974

033042

STARS

2975
2976
2977
2978

033042

*CHECK OF WRITE CHECK LOGIC UNDER FLAG MODE
* WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM
*MEMORY (BUF).
WE CHECK THAT NO ERRORS OCCUR.
STARS

2979
2980
2981
2982

033042
033046

2984

033060

104004

2986
2987

033062
033066

012700
012701

2989
ggg?

033076
033100

005307
001374

(2)

(4)
233%

zég%
2988

033054
033056

033072

;'-tttttttttttttttttfitfifitt*tttt*tttt*tttfittfitttttttttt**t'tttttttt

004737

021356

012720

EMT
.WORD

BGNSEG
003052
000200

125252

012777

003052

2994
2995
2996
2997
2998

033116
033122
033126
033130
033134

005077
004537
000012
004537

147124
020456

2999
3000

033140
033144

004537

(3)
3001
3635

033146
033150
033150

(3)
(3)
(3)

03313¢
033136
033144

JSR
CKERFG

104032
000214

033102

033110

012777

104010
000132

177600

299%:
147134

147132

021276

020214

104010

104004

MOV
MOV

#BUF ,RO
#128. ,R1

DEC
BNE

R1
299%

MOV

;HEADS OVER TRACK 0
*HEADS GO HOME OKAY

:%%START OF SEGMENT%%
;SETUP AND WRITE
:128 WORDS

#125252,(RO)+

:WRITE

MOV

#BUF , 3RLBA

;LOAD BUS ADDRESS

CLR
JSR
WRITE
JSR
ESCAPE

aRLDA
RS, LDFUNC

*CLEAR DISK ADDRESS
:LOAD THE FUNCTION IN NEXT WORD

MOV

#-128. ,9RLMP

*DONE
??

:WORD COUNT

RS,WTCRDY
SEG

:WAIT FOR CONTROLLER READY
*CHECX FOR FL:LOE, ELSE EXIT SEG

JSR
ESCAPE

RS, CHERR
SEG

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

.WORD
BGNSEG
EMT

100008~

CSESCAPE
10000%-.
C$ESCAPE

C$BSEG

:XXSTART OF

SEGMENTZX

JVFRIFY WRITE WITH READ BEFORF WR( MK

3005

033152

005077

147070

3007

033164

012777

177600

3008

CSEXIT
L 10066~.

C$BSEG

EMT

000122

PC ,HDHOME

EMT

EMT
~
.WORD"

3003
3006

;*%START OF TEST##

.'.'ttttttttttt*tttt*tttttt'ttttttttttttttttttttttttt'ttittttt*tttt

2992

2993

EMT

SEQ 0104

033156
03%77

012777
004537

3052

(0720656

147060

14705

(1R

aRLDA

MOy

a- 28,
ok WP

MOy
e

#RUF @R BA
&5,LDFUN

JLOAD

THE

FUNCTION IN NERT O WOR|

ASSEMBLY ROUTINES
MACYT1
CZRLBB.P11
22-NOv~-78 15:28

3009
3010
3011
(3)
(3)
3012
3013

033176
033200
033204
033204
033206
033210
033214

000014
004537

021276

104010
000060
004537

020214

36?2

033216

000050

3015
36?%

033220
033220

104004

3017
3018
3019
3020
3021
;8%%

033222
033222
033226
033234
033242
033246

005077
012777
012777
004537
000002

147020
177600
003052
020456

3024
3025

033250
033254

004537

021276

033254
033256

104010
000006

%8%3

033260

004537

3030
(3)
(3)
3031
(3)
(3)
3032

033264
033264
033264
033266
033266
033266
033270

(3)

(3)
(3)

(3)
(3)
3033
(3)

36%2

033214

033270
033270
033272
033272

033272

30A(1052)

104010

RS ,WTCRDY
SEG
CSESCAPE
100018-.
R5,CHERR
SEG

.WORD

100018-.

BGNSEG
EMT
3%:
147014
147002

020214
10002%:
10001%:

104005

10000%:

104005

ENDTST

L10066:

104001

.SBTTL

%8%;

033274

BGNTST

3039

033274

STARS
IR

CSE SCAPE

($BSEG

CLR
MOV
MOV
JSR
WRCHK

aRLDA
#-128. ,aRLMP
#BUF ,aRLBA
RS5,LDFUNC

JSR
ESCAPE

RS ,WTCRDY
SEG

JSR

RS.,CHERR

EMT
.WORD

%8%2

READ
JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT

104005

22-NOV-78
15:35
PAGE 1-75
*«TEST 33+« ~ WRITE CHECK FUNCTION

CS$ESCAPE
10002%-.

ENDSEG

sCHECK FOR FL:LOE, ELSE EXIT SEG
;CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

sXXSTART OF SEGMENTZX

sWORD COUNT
;BUS ADDRESS
;LOAD THE FUNCTION IN NEXT WORD
;WRITE CHECK

sWAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
sX%XEND OF SEGMENTZXX

EMT

C$ESEG

EMT
ENDSEG

($ESEG

EMT

C$ESEG

EMT

CSETST

ENDSEG

SEQ 0105

sXXEND OF SEGMENTZX
sAXEND OF

SEGMENTXX

s**END OF

TESTw«

*+TEST 34** - WRITE CHECK FUNCTION INTERRUPT
s*«START OF
AR AR R R R AR

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

3040

:CHECK OF WRITE CHECK LOGIC UNDER INTERRUPT MODE

3042

:WE CHECK THAT NO ERRORS OCFUR.

3041

R AR AN R RN RR AR

UE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM MEMORY (BUF).

3043
3044

033274

3045
3046
3047

033274

TEST»»

. INCREMENT AT THIS TIME.
STARS
DR

004737

021356

WE DO NOT CHECK RLDA OR RLBA

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

JSR

PC ,HDHOME

JHEADS OVER TRACK 0

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV~-78 15:28

3048
(4)

033300

033306

CKERFG
.WORD

L10067~-.

BGNSEG
EMT

C$BSEG

MOV

#B8UF ,RO

MOV

#125252,(ROY+

000252

3050
353%

033312
033312

104004

3052

033314

012700

003052

3054

033324

033330
033332

012720

005301
001374

125252

3058

033334

012777

003052

3060
3061
3062
3063
3064
(3)

033350
033354
033360
033362
033366
033366

005077
004537
000012
004537

146672
020456
021276

104010
000170
004537

020214

3055
gggg

3059

033342

012701

012777

000200

177600

(3)
3065
3066
(3)
(3)

033370
033372
033376
033376
033400

3069
3070

033402
033406

005077
012777

146640
003052

3072

033422

004537

020456

%82;

3071

033414

3073
3074
3075

033426
033430
033434

3076
3077

033440
033444

(3)
(3)

EMT

033310

033320

22-NOV-78
15:35
PAGE 1-76
**TEST 34*% = WRITE CHECK FUNCTION INTERRUPT

104032

362%

3053

30A(1052)

299%:
146702

146700

104010
000160

012777

000014
004537

MOV

DEC
BNE

CSEXIT

#128. ,R1

:HEADS GO HOME OKAY

:XXSTART OF SEGMENTX%

:SETUP AND WRITE
:128 WORDS

:WRITE

R1
299%

:DONE??

MOV

#BUF , aRLBA

:LOAD BUS ADDRESS

CLR
JSR
WRITE
JSR
ESCAPE
EMT

aRLDA
RS, LDFUNC

:CLEAR DISK ADDRESS
:LOAD THE FUNCTION IN NEXT WORD

MOV

#-128.,3RLMP

RS ,WTCRDY
SEG
CSESCAPE

.WORD
JSR
ESCAPE
EMT
.WORD

10000%~-.
RS, CHERR
SEG
C$ESCAPE
10000%-.

CLR
MOV

@RLDA
#B8UF , 3RLBA

JSR

RS, LDFUNC

-WORD COUNT

:WAIT FOR CONTROLLER READY
JCHECK FOR FL:LOE, ELSE EXIT SEG
'

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

:VERIFY WRITE WITH READ BEFORE WRCHK

177600

146630

146626

MOV

READ
JSR
ESCAPE

021276

#-128. ,aRLMP

:LOAD THE FUNCTION IN NEXT WORD

RS ,WTCRDY
SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

RS, CHERR
SEG

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

033434
033436

104010
000122

033444
033446

104010
000112

EMT
.WORD

3079
(3)

033450
033450

104004

BGNSEG
EMT

C$BSEG

3082
3083
30846
3085

033452
033456
033462
033470

005037
005077
012777
012777

002144
146564
177600
003052

CLR
CLR
MOY
MOV

INTFLG
aRLDA
#-128. ,aRLMP
#BUF , dRLBA

:CLEAR INTERRUPT CCCURANCE FLAG

3087
(3)
(3)

033476
033476
033502

012700
104041

000000

SETPRI
MOV
EMT

#PRIOO
#PR100,R0
C$SPRI

:PRIORITY TO 0

3089

033510

(3)
35%%

3088

033504

004537

004537
000102

EMT
.WORD

020214

020456

JSR
ESCAPE

146560
146546

JSR

C$ESCAPE
10000%-.

CSESCAPE
10000%-.

RZ.,LDFUNC

WRCHK ! INTEN

;X%START OF SEGMENTXX

:SET UP WORD COUNT
:SET U® BUS ADDRESS

:LOAD THE FUNCTION IN NEXT WORD

;WRITE CHECK UNDER INTERRUPT

SEQ 0106

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22=NOV-78 15:28

3090
3091
(3)
363%

033512
033516
033516
033520

104010
000036

3093
(3>
(3)
3094
3095

033522
033522
033526
033530
033534

012700
104041
005737
001004

3097
(3)

033536
033536

104462

(5)
(5)
(5)

004537

3098
(3)
363%

033540
033542
033544
033546
033546
033550

000004
013537
014244

%}8?

033552

004537

3102
(3)
(3)
3103
(3)
(3)
3104
(3)
3%8%

033556
033556
033556
033560
033560
033560
033562
033562
033562

30A(1052)

021276

000340
002144

’%:

104010
000006
020214

10001$%:

104005

10000%:

104005

ENDTST
L10067:

104001

.SBTTL

SEQ 0107

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG
CSESCAP
100018~-.

;WAIT FOR INTERRUPT
;CHECK FOR FL:LOE, ELSE EXIT SEG

SETPRI
MOV
EMT
TST
BNE

#PRIO7
#PR107 ,RO
C$SPRI
INTFLG
2%

;SET PRIORITY TO 7

ERRDF
TRAP

4. ,EM60,ERRO
T$ERCODE

;WRITE DID NOT INTERRUPT

ESCAPE
EMT
.WORD

SEG
C$ESCAPE
10001%-.

sCHECK FOR FL:LOE, ELSE EXIT SEG

.WORD
.WORD
.WORD

JSR

%%89
3108
3109
3110
3111

22-NOv-78
15:35
PAGE 1-77
**TEST 34#*% - WRITE CHECK FUNCTION INTERRUPT

4
EM60
ERRO

R5,CHERR

;DID INTERRUPT OCCUR?
s YES-BRANCH NO-REPORT

;CHECK CNTLR FOR ERRORS

ENDSEG

;XXEND OF SEGMENTZX

EMT
ENDSEG

C$ESEG

EMT

C$ESEG

EMT

CSETST

;4X%END OF SEGMENTZX
s**END OF

TEST»+

*#TEST 35%+ - PROPER [NCREMENT OF RLBA ON WRITE CHECK

033564

BGNTST

033564

STARS

3112
3113
3114
3115
3116

033564

;CHECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE
;WRITE CHECK WAS FINISHED THE RLBA SHOULD BE 128 WORDS (256 BYTES)
:CREATER.
STARTING RLBA IS "BUF'', ENDING SHOULD BE ‘BUF + 256."'
;WE WILL MONITOR ALL ERRORS AND REPORT THEM ACCORDINGLY
STARS

3117
3118
3119
3120
(4)
353%

033564
033570
033576
033600

104032
000256

JSR
CKERFG
EMT
.WORD

3122
3;3;

033602
033602

104004

BGNSEG
EMT

($BSEG

3124

033604

012700

MOV

#BUF ,RO

(2)

s**START OF

SRR AR A A AR A

004737

021356

003052

AR AR AR

A AR AR AR AR AAA AR

A AR

TEST»»

AR AR ARk

""ttfiitttttt'tttttttt.tt****fittt.i*ttitt.i'i*tttttti""i'ti'ti"

PC ,HDHOME
CSEXIT
L10070-.

;HEADS QVER TRACK 0
;HEADS GO HOME OKAY

J%XXSTART OF

JSETUP AND WRITE

SEGMENTZ%X

ASSEMBLY ROUTINES
M9C5g1
CZRLBB.P11
22-NOV-78 1

3125

3126

033610

033614

012701

012720

000200

125252

3127
g}gg

033620
033622

005301
001374

3130

033624

012777

003052

3132
3133
3134
3135
3136
(3)

033640
033644
033650
033652
033656
033656

005077
004537
000012
004537

146402
020456
021276

033660
033662

104010
000174
004537

020214

(3)
(3)

033666
033670

104010
000764

3141
3142
3143
3144
3145

033672
033676
033704
033712
033716

005077
012777
012777
004537
000014

3131

(3)
3137

3138

%1:3.8

3146

3147
(3)
(3)
3148
3149
(3)
3525

033632

033666

033720

033724
033724
033726
033730
033734
033734
033736

012777

17760C

146350
003052
177600
020456

004537

021276

104010
000126
004537

;

104004

3153
3154
3155

033742
033742
033746

005077
012777

146300
003052

3157
g}gg

033762
033770

012737
062737

003052
000400

004537
000002
004537

0204556

012777

3160
3161
3162
3163

033776
034002
034004
034010

034010
034012

104010
000040

3165
3166

034014
034020

004537

(3)
3{(3)2

(3)
(3)

3167

034020
034022

034024

146412

146410

104010
000030

017737

MOV

#128. R

;128 WORDS

DEC
BNE

R1
299%

*DONE??

MOV

#125252,(RO)+

SEQ 0108

-WRITE

MOV

#BUF ,aRLBA

sLOAD BUS ADDRESS

CLR
JSR
WRITE
JSR
ESCAPE
EMT

aRLDA
RS, LDFUNC

*CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

MOV

.WORD
JSR
ESCAPE
EMT
.WORD

146340
146336

#-128.,3RLMP
RS,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG
CSESCAPE
100003-.

CLR
MOV
MOV
JSR
READ

ARLDA
#BUF
, aRLBA
#-128. ,aRLMP
RS ,LDFUNC

ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD

SEG
CSESCAPE
10000%-.
RS5,CHERR
SEG
C$ESCAPE
100008~

JSR

104010
000116

033740

033754

299%:

020214

033740

3156

22-NOv=78
15:35
PAGE 1-78
*«TEST 35%% = PROPER INCREMENT OF RLBA ON WRITE CHECK

-WORD COUNT

;WAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG
:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

:VERIFY WRITE WITH READ BEFORE WRCHK

3151

31?5

30A(1052)

BGNSEG

177600

JCHECK FOR FL:LOE, ELSE EXIT SEG
;CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

:%%START OF SEGMENTZX

EMT

C$BSEG

146270

CLR
MOV

ARLDA
#BUF ,aRLBA

;SET UP BUS ADDRESS

002166
002166

MOV
ADD

#BUF , GDDAT
#256. , GDDAT

“FORM EXPECTED BUS ADDRESS
*AFTER WRITE

3%:

146266

021276

MOV

0202174

002170

#-128. ,3RLMP

*WORD COUNT

JSR
WRCHK
JSR
ESCAPE

R5,LDF'NC
RS,WTCRDY
SEG

;LOAD THE FUNCTION IN MTMXT WORD
JWRITE CHECK
JWAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

JSR
ESCAPE
EMT

RS,CHERR
SEG

;CHECK CNTLR FOR ERRORS
JCHECK FOR FL:LOE, ELSE EXIT SEG

EMT
.WORD

146214

RS ,WTCRDY

sLOAD THE FUNCTION IN NEXT WORD

LWORD

MOV

C$L SCAPE
10001%-.

C$ESCAPE
10001%-.
aRLBA,BDDAT

;READ

'RLBA' FOR PRESENT ADDRESS

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

3168
g}gg

034032
034040

3171

034042

g};z

034052

3175

034052

(3)
(5)
(5)
3{;%

(3)
(3)
3176
(3)
(3)
3177
(3)

35?%

034042
034044
034046
034050

034052
034052
034054
034054
034054
034056
034056

034056

023737
001404

002170

30A(1052)

22-NOvV-78
15:35
PAGE 1-79
**TEST 35*% = PROPER INCREMENT OF RLBA ON WRITE CHECK

002166

104462
000005
013575
014410 °

CMP
BEQ

BDDAT , GDDAT
2%

:DID 'BA' INCREMENT PROPERLY?
$YES, CONTINUE

ERRDF

5.,EM61,ERRG

:BA DID NOT INCREMENT

TRAP
WORD
.WORD
.WORD

T$ERCODE
5
EM61
ERR&

2%:
10001$%:

104005

10000$:

104005

ENDTST
L10070:

104001

%}gz

.SBTTL

ENDSEG

;%%END OF SEGMENTXX

EMT

C$ESEG

EMT

C$ESEG

EMT

CSETST

ENDSEG

S%%END OF SEGMENT%X
J**END OF TEST=»

**TEST 36** = PROPER INCREMENT OF RLDA ON WRITE CHECK

%}g}

034060

BGNTST

3183

034060

STARS

3184
3185
3186
3187

034060

:CHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE CHECK WAS FINISHED.
;A FULL SECTOR WRITE CHECK THE RLDA SHOULD REFLECT AN INCREMENT
;OF THE SECOTR.
''GDDAT'' WAS THE EXPECTED RLDA.
$TARS

3188
3189
3160
3191

034060
034064

004737

31<3§

034074

000254

3193

034076

104004

3195
3196

034100
034104

012700
012701

3198
gggg

034114
034116

005301
001374

(2)

(4)

3{32

3197

034072

034110

;;tttttt*tttt*ttttt*ttttttttttt*tttttttittttfittttttt*tttttttttttt

'-'-tt'tttttttttttttttttttttttttttttttttttttt'ttttttttfittt'tttttttt

021356

104032

012720

003052
000200

125252

299%:

012777

003052

146116

3203
3204
2205
3206
3207

034134
034140
034144
034146
034152

005077
004537
000012
004537

146106
020456

(3)

034152

012777

104010

PC ,HDHOME

.WORD

L10071-.

BGNSEG

034120

034126

JSR
CKERFG

EMT

3201

3002

;**START OF TEST=x»

177600

021276

146114

;HEADS OVER TRACK 0
*HEADS GO HOME OKAY

CSEXIT

:%%START OF SEGMENT%Y

EMT

C$BSEG

MOV
MOV

#BUF RO
#128. R1

;SETUP AND WRITE
:128 WORDS

DEC
BNE

R1
299%

*DCNE??

MOV

#BUF ,aRLBA

;LOAD BUS ADDRESS

CLR
JSR
WRITE
JSR
ESCAPE

@RLDA
RS, LDFUNC

MOV

EMT

#125252,(RO)+

:WRITE

#-128. ,3RLMP

RS, WTCRDY
SL%
($ESCAPE

:WORD COUNT
,

*CLEAR DISK ADDRESS
:
:LOAD THE FUNCTION IN NEXT WORD
;WAIT FOR CONTROLLER READY
:CHECK FOR FL:LOE, ELSE EXIT SEG

SEQ 0109

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

(3)
3208
3209
(3)

034154
034156
034162
034162

000172
004537
104010
000162

3212
3213

034166
034172

005077
012777

146054
003052

3215
3216
3217
3218
(3)
(3)
3219
3220
(3)
353%

034206
034212
034214
034220
034220
034222
034224
034230
034230
034232

004537
000014
004537

020456

3222

034234

104004

3224
3225
3206
3227
3228
gggg

034236
034236
034242
034250
034254
034262

005037
013777
005237
012777
012777

002166
002166
002166
177600
003052

3231
3232
3233

034270
034274
034276

004537
000002
004537

020456

%S}?

3214

353%

3234
(3)
353%

034200

034302
034302
034304

012777

104010
000124
004537

3239
3240
gszg

034316
034324
034332

013737
023737
001404

3243

(034334

(5)
(5)
(5)
3244
3245
3246

034336
034340
034342

3247

034344

.WORD

177600

146044

146042

10000$-.
RS, CHERR
SEG
CSESCAPE

;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

10000$-.

(LR
MOV

aRLDA
#BUF ,aRLBA

JSR
READ
JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD

RS, LDFUNC

MOV

021276

020214

BGNSEG
38:
145776
145766
145754

021276

000040
004537

;VERIFY WRITE WITH READ BEFORE WRCHK

104010

034306
034312
034312
034314

03433

.WORD
JSR
ESCAPE
EMT

104010
000114

3236
3237
(3)
3§§§

(3)

22-NOV-78
15:35
PAGE 1-80
»+TEST 36*~ - PROPER INCREMENT OF RLDA ON WRITE CHECK

020214

03164

(3)

30A(1052)

104010
000030

002232
002166

002170
002170

104462

C$BSEG

CLR
MOV
INC
MOV
MOV

GDDAT
GDDAT , @RLDA
GDDAT
#-128.,3RLMP
#BUF , 3RLBA

JSR
WRCHK
JSR
ESCAPE

RS.,LDFUNC
RS ,WTCRDY

:LOAD THE FUNCTION IN NEXT WORD
;CHECK FOR FL:LOE, ELSE EXIT SEG
sCHECK CNTLR FOR ERRORS
:CHECK FOR FL:LOE, ELSE EXIT SEG

;X%START OF SEGMENTXX

:SETUP DISK ADDRESS
:CREATE EXPECTED SECTOR
:WORD COUNT
:SETUP BUS ADDRESS

;LOAD THE FUNCTION IN NEXT WORD
;WRITE CHECK
JWAIT FOR CONTROLLER READY
:CHECK FOR FL:LOE, ELSE EXIT SEG

EMT

SEG
CSESCAPE

JSR
ESCAPE
EMT
.WORD

RS,CHERR
SEG
C$ESCAPE
10007$-~.

sCHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

MOV
CMP
BEQ

E.DA,BDDAT
GDDAT ,BDDAT
2%

;READ DISK ADDRESS
:DID SECTOR INCREMENT PROPERLY
:YES, BRANCH NO, REPORT ERROR

ERRDF

6. ,EM6E2 ,ERRG

;DA DID NOT

LWORD
.WORD
.WORD

6
EM62
ERR4

TRAP

000006
013652
014470

RS, WTCRDY
SEG
C$ESCAPE
10000$-.
RS,CHERR
SEG
C$=SCAPE
10000$-.

EMT

.WORD

020274

#-128. ,aRLMP

10001$-.

T${R(ODE

INCREMENT

2%:

ENDSEG

+ ;A%END OF SEGMENTZX

SEQ 0110

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

(3)

30A(1052)

H 9
22-NCv-78
15:35
PAGE 1-81
**TEST 36** - PROPER INCREMENT OF RLDA ON WRITE CHECK
10001%:

104005

100008:

104005

ENDTST

L10071:

104001

.SBTTL

EMT
ENDSEG

CSESEG

EMT

C$ESEG

EMT

CSETST

J%XXEND OF SEGMENTZX
J**END OF

**TEST 37%x% = MULTIPLE

SECTOR WRITE

BGNTST

TEST=«

CHECK

;**START OF

TEST=*»

STARS
:;ttt"'.t'fi'tt*tttfitt*t*fitittlfittfittt'tt't*fittfii'ttfitt**'ii*t't'

sCHECK FOR MULTIPLE SECTOR WRITE CHECK. THIS TEST CHECKS
;THAT

TWO SECTORS CAN BE

SUCCESSFULLY CHECKED.

LOAD

;A WORD COUNT OF 129 WORDS (ONE SECTOR + 1 WORD) STARTING AT
;SECTOR O THRU SECTOR 37 AND VERIFY THAT THE RLDA DOES
;A DOUBLE INCREMENT EACH TIME.

03435¢2

STARS

::tttttttttlQtt'ttt'tttt'tt.ttti*Qtt'fitttt't"i'tttt'i'i.'tfi'Q'fii

004737

021356

000354

104032

JSR
CKERFG
EMT
.WORD

104004

BGNSEG
EMT

012737

005301
001374
012777

013777
004537
000012
004537

000000

002160
002162

125252

PC ,HDHOME

CSEXIT
L10072~-.

#BUF ,RO

#129. R1

;}25252.(R0)0
299%

003052
177577
002162
002160
002166
020456
021276

104010

145610
145606

002166
002166
145562

1%:

#BUF ,3RLBA

#-129.
, aRLMP
TMP1,GDDAT
TMPO
. GDDAT
GDDAT, @RLDA
RS, LDF UNC

RS, WTCRDY
SEG

C$ESCAPE

020214

JAXSTART OF SEGMENTZ%

($BSEG
#0,TMPO
#0,TMP1

299%:

;HEADS OVER TRACK 0

JHEADS GO HOME OKAY

100008-.
RS, CHERR
L

($ESCAPE

;SETUP AND WRITE

;129 WORDS

JWRITE
;DONE??

;LOAD BUS ADDRESS
sWORD COUNT

;LOAD THE FUNCTION IN NEXT WORD
WAIT

FOR CONTROLLER READY

s(HECK FOR FL:LOE, ELSE EXIT SEG
;CHECK CNTLR FOR ERRORS

JCHECK FOR FL:LOE, ELSE EXIT SEG

SEQ 011

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

3533

034510

30A(1052)

000230

.WORD

ggg;
034512
034520
034506
034534

013737
053737
013777
012777

002162
002160
002166
003052

3298
3299
3300
3301
(3)

034550
034554
034556
034562
034562

004537
000074
004537

020456

3302
3303
(3)
3§32

034566
034572
034572
034574

004537

3305
(3)

(3)

10000%-.

:VERIFY WRITE WITH READ BEFORE WRCHK

3293
309,
3295
3296

3297

22-NOv-78
15:35
PAGE 1-82
««TEST 37#%x = MULTIPLE SECTOR WRITE CHECK

034542

034564

012777

177577

002166
002166
145512
145502

145500

TMP1,GDDAT
TMPO, GDDAT
GDDAT,aRLDA
#BUF , 3RLBA

JSR
READ
JSR
ESCAPE
EMT

RS, LDFUNC

MOV

021276

104010

000154

MOV
BIS
MOV
MOV

.WORD

RS,WTCRDY
SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

104010
000144

034576
034576

104004

BGNSEG
EMT

C$BSEG

3308
3309
3310
3311
3312
gg}z

034600
034606
034614
034622
034630
034636

013737
053737
013777
062737
012777
012777

002762
002160
002166
000002
003052
177577

MOV
BIS
MOV
ADD
MOV
MOV

TMP1,GDDAT
TMPO , GDDAT
GDDAT , @RLDA
#2.GDDAT
#8UF , aRLBA
#-129.,9RLMP

:GET CYLINDER
*GET SECTOR
*SET DISK ADDRESS=SECTOR 0
*SET EXPECTED + 2
*SET BUS ADDRESS
:WORD COUNT=-SECTOR+1 WORD

3315
3316
3317
2318

034644
034650
034652
034656

004537
000002
004537

020456

RS, LDFUNC

034656
034660

104010
000042

JSR
WRCHK
JSR
ESCAPE

RS,WTCRDY
SEG

;LOAD THE FUNCTION IN NEXT WORD
:WRITE CHECK
*WAIT FOR CONTROLLER READY?
*CHECK FOR FL:LOE, ELSE EXIT SEG

3320
3321

034662
034666

004537

034666
034670

104010
000032

JSR
ESCAPE

RS, CHERR
SEG

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

3303
3324
gggg

034672
034700
034706

013737
023737
001404

MOV
CMP
BEQ

E.DA,BDDAT
BDDAT , GDDAT
2%

:READ DISK ADDRESS
*IS DISK ADDRESS CORRECT
*YES, BRANCH NO, REPORT ERROR

3337
(3)

034710
034710

104462

ERRDF
TRAP

7. ,EM63,ERR4
T${RCODE

;DISK ADDRESS NOT CORRECT

(3)
3%5

(5)
(5)
3;3;

034712
034714
034716

000007
013727
014410

3359
(3)

034720
034720

104006

0027166
002166
145424
002166
145406
145404

021276

EMT
.WORD

020214

EMT
.WORD

002232
002170

002170
002166

RS, CHERR
SEG
CSESCAPE
10000%-.

;LOAD THE FUNCTION IN NEXT WORD

JSR
ESCAPE
EMT
.WORD

(3)
3§§;

020214

#-129. ,aRLMP

C$ESCAPE
100071%-.

CSESCAPE
10001%-.

.WORD
-WORD
.WORD

7
EM63
ERR&

CKLOOP
EMT

(:7LPI

:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

;%%START OF SEGMENTXX

SEQ 0112

ASSEMBLY ROUTINES

CZRLBB.P11

3331
(3)
(3)

034722
034722

3333
333,
3335
3336

034724
034730
034736
034740

MACY11
22-N0Ov~-78 15:28

30A(1052)

034722

002160
000046

002160

(3)
(3)

034740
034740

(3)
(3)

034742
034742

3340

034744

BGNTST

3342

034744

STARS

3337

034742

100008%:

104005

ENDTST

L10072:

104001

15:35

Jd 9
PAGE 1-83

**TEST 37%+* < MULTIPLE SECTOR WRITE CHECK

10001%:

104005

005237
022737
001233

22-NOv=78

SBTTL

ENDSEG

;XXEND OF

EMT

CSESEG

INC
CMP
BNE
ENDSEG

TMPO
#46,TMPO
1%

EMT

C$ESEG

EMT

CSETST

J**END OF

;**START OF

A DCK WITH WRITE

CHECK.

:IS ISSUED..

034744

034744
034750

THIS

TEST=*»

AR AR A AR A AR AR A ARk kR ek

IS DONE

BY WRITING

IN MEMORY BEFORE WRITE CHECK

STARS
IR

3348
3349

TESTw~

«*TEST 38+~ - FORCE DCK WITH WRITE CHECK

;A SECTOR AND CHANGING A WORD

3346

SEGMENTZ%

sNEXT SECTOR
;AT END?
:NO, GO BACK
sAXEND OF SEGMENTZX

t*tkliit*ttt*t\'l FRRAAR AR AR ARAAAAA

:FORCE

SEQ 0113

004737

021356

(4)
(4)

034756
034760

104032
000262

3351
(3)

034762
024762

104004

3353
3354
3355
3356
3357

034764
034770
034774
035000
(€35002

012700
012701
012720
005301
001374

003052
000200

3359
3360
3361
3362
3363
3364

035004
035012
035020
035024
035030
035032

012777
012777
005077
004537
000012
004537

003052
177600
145222
020456

(3)
(3)
3366

035036
035040
035042

104010
000200
004537

(3)
(3)

035046
035050

104010
002170

3370
3371

035052
035056

005077
012777

RRRRRR

JSR
CKERFG
EMT

.WORD

BGNSEG

299%:

125252

145232

145230

021276

020214

R AR AR R RRARRRRRRRRARKIARRRARRARARRARRRAAR
AR AR

PC ,HDHOME

CSEXIT

JHEADS OVER TRACK 0
sHEADS GO HOME OKAY

L10073-.
;%%START OF

EMT

C$BSEG

MOV

#BUF ,RO

:SETUP AND WRITE

MOV

#1252§2 (RO)+

-WRITE

BNE

299s

MOV
DEC

MOV

#128. ,R1

*DONE??
:LOAD BUS ADDRESS

aRLDA
RS, LDFUNC

*CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

#-128. ,3RLMP

JSR
ESCAPE
EMT
.WORD
JSR

RS,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR

EMT
.WORD

C$ESCAPE
10000%-.

ESCAPE

2128 WORDS

#BUF , aRLBA

MOV

CLR
33?75

SEG

:WORD COUNT

:WAIT FOR CONTROLLER READY
:CHECK FOR FL:LOF, ELSE EXIT SEG

145170

145160

(LR

MOV

anl DA

#BUF ,aRLBA

:CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE,

s VERIFY WRITE WITH READ BEFORE WRCHK
003052

SEGMENTX%

ELSE EXIT SEG

012777

177600
020456

30A(1052)

K
9
15:35 PAGE 1-84
**TEST 38+*+* - FORCE DCK WITH WRITE CHECK

22=NOV-78

145156

MOV
JSR

READ

021276

#-128. ,aRLMP
RS, LDFUNC
RS,WTCRDY
SEG

CSESCAPE

10000$-.
RS, CHERR
SEG
CSESCAPE
100008~

020214

;LOAD THE FUNCTION IN NEXT WORD
;CHECK FOR FL:LOE, ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS
:CHECK FOR FL:LOE, ELSE EXIT SEG

;%%START OF SEGMENTXX

C$BSEG
003052
145114

003052

035140

177600

035146
035152
035154
035160
035160
035162

020456
021276

002226
001777
104000

035216
035224

002160

002160
002160

020214

035214
035214
022737
001404

104000

CLR
CLR
MOV
MOV

RUF
aRLDA
#BUF ,aRLBA

JSR
WRCHK

RS, LDFUNC

JSR
ESCAPE
EMT
.WORD

1%:

002160

035226

MOV
BIC
CMP
BEQ
JSR
CKLOOP
EMT

RS,WTCRDY
SEG
C$ESCAPE
10001$-.

E.CS,TMPO

104005

035242
035242

104001

100008.

ENDTST

L10073:

:WORD COUNT

1%
RS, CHERR

CYL.

*WAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT 3EG

:GET RLCS

“SAVE ERROR BITS

:D(K SET.

;YES,

CONTINUE

C$CLPT
#BIT15!BIT11,TMPO
2%
:

ERRDF

23. ,EM65 ,ERRC

.WORD
.WORD
.WORD

23
EM65

T$ERCODE

ERRO

ENDSEG

;WHEN FORCED

J%XEND OF SEGMENTZ%

EMT
ENDSEG

C$ESEG

EMT

C$ESEG

EMT

CSETST

ADDR.

;LCAD THE FUNCTION IN NEXT WORD

;WRITE CHECK

#BIT151BIT11,TMPOTM

2$:
10001$%:

TMPO

:SETTING SECTOR 40 OF

CMP
BEQ
TRAP

014244

#-128.,3RLMP

#1777,

SEQ 0114

;%XEND OF SEGMENTZ%X
s*~END OF

TESTw»

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOvV~78 15:28

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV~78 15:28

30A(1052)

3410
gz};

22-NOv=78
15:35
PAGE 1-85
**«TEST 38%* = FORCE DCK WITH WRITE CHECK

SEQ 0115

.SBTTL

**TEST 39** = FORCE DCK WITH WRITE CHECK INTERRUPT

035244

BGNTST

;**START OF TESTxx

3416

035244

STARS

3417
3418

035244

JFORCE A D(K
STARS

3419
34,20
3421
3422

035244
035250

004737

323%

035260

000322

104032

EiMi

LWORD

110074~.

3424
323%

035262
035262

104004

BGNSEG
EMT

C$BSEG

3426
3427

035264
035270

012700
012701

MOV
MOV

#BUF ,RO
#128. ,R1

:SETUP AND WRITE
*128 WORDS

3429
gzgg

035300
035302

005301
001374

DEC
BNE

R1
299%

*DONE??

3413
2414
3415
(2)

(2)

(4)

3428

035256

035274

3432
3433
3434
34,35
2436
34,37
3,38

035304
035312
035320
035324
035330
035332
035336

3439
340
(3)

035342
035346
035346

(3)
(3)

035336
035340

;:tttttt*tttttttttttttttttttttt*ttttttt*ttttttttttttttttttttttttt

::ttttttttv

012720

012777
012777
005077
004537
000012
004537
104010
000240

004537

021356

003052
000200

125252

003052
177600
144722
020456
021276

104010
000230

3443
3444

035352
035356

005077
012777

144670
003052

3446
3447
3448
3449

035372
035376
035400
035404

004537
000014
004537

020456

035364

012777

(3)
(3)

035404
035406

104010
000172

(3)
(3)

035414
035416

104010
000162

3450
3451

035410
035414

004537

MOV

144732
144730

020214

035350

3445

299%:

(3)

3322}

(

MOV
MOV
CLR
JSR
WRITE
JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD

' INTERRUPT MODE
L3 2 2222323232323 3232332323233 2332333333332 3 2322323223223 22222% 1

,HDHOME

CSEXIT

#125252,(RO)+

;HEADS OVER TRACK 0
*HEADS GO HOME OKAY

;%%START OF SEGMENT%X

:WRITE

#BUF ,aRLBA
#-128. ,8RLMP
aRkLDA
RS, LDFUNC

;LLOAD BUS ADDRESS
:WORD COUNT
sCLEAR DISK ADDRESS
:LOAD THE FUNCTION IN NEXT WORD

RS,WTCRDY
SEG
CSESCAPE

;WAIT FOR CONTROLLER READY
:CHECK FOR FL:LOE, ELSE EXIT SEG

RS5,CHERR
SEG
CSESCAPE

;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

10000%-.

;VERIFY WRITE WITH READ BEFORE WPCHK

177600

021276

020214

144660

144656

CLR
MOV

aRLDA
#BUF , aRLBA

JSR
READ
JSR
ESCAPE

RS,LDFUNC

MOV

EMT
.WORD

JSR
ESCAPE

EMT
LWORD

#-128. ,aRLMP

JLOAD THE FUNCTION IN NEXT WORD

RS,WTCRDY
SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

R5,CHERR
SEG

JCHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

C$ESCAPE
10000%-.
C$E SCAPE
10000%-.

ASSEMBLY ROUTINES
MACY1 1
CZRLBB.P11
22-NOV~-78 15:28

3453
35?2

035420
035420

104004

3455
(3)
(3)
3456
2457
3458
3,59

035422
035422
035426
035430
035434
035440
035444

012700
104041
005037
005037
005077
012777

000000

3462
3463
3464
365

035460
035464
035466
035472

004537
000102
004537

020456

gzgg

(3)

3466
(3)
322;

035452

035472

012777

002144
003052
144602
003052

17760C

3468
gzgg

035502
035506

005737
001004

002144

3471
(3)
(5)
(5)
32;%

035510
035510
035512
035514
035516

104462
000030
014146
014244

3473
(3)
(3)

035520
035520
035522

104010
000054

3476

035524

013737

gzgg

035546

001402

042737
022737

3481
3482
3},,3;%

035550
035554
035554

004537

3484
34,85
3486
(3)

035556
035564
035566
035566

022737
001404

035570
035572
035574

gzgg

035576

3490

035576

3487

(3)

035576

144570

C$BSEG

SETPRI
MOV
EMT
CLR
CLR
CLR
MOV

#PRIOO
#PR100,R0O
C$SPRI
INTFLG
BUF
aRLDA
#BUF , aRLBA

MOV

001777
104000

002160

104006
002160

104462
000031
014105
014244

;SETTING SECTOR 40 OF CYL. ADDR.

-WORD COUNT

:LOAD THE FUNCTION IN NEXT WORD
;WRITE CHECK
*WAIT FOR CONTROLLER READY

C$CLPI

ST
BNE

INTFLG
2%

:DID INTERRUPT OCCUR
*YES OKAY

ERRDF
TRAP
LWORD
.WORD
.WORD

24. ,EM66,ERRO
TSERCODE
24
EM66
ERRO

JNO INTERRUPT FROM DCK

ESCAPE
EMT
.WORD

SEG
CSESCAPE
10001%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

E.CS,TMPO

:GET RLCS

;YES, CONTINUE

BIC
CMP

#1777, TMPO
“SAVE ERROR BITS
#BIT15'81T11,TMPO :DCK SET.

JSR
CKLOOP
EMT

RS, CHERR

CMP
BEQ
ERRDF
TRAP
L.WORD
.WORD
.WORD

#BIT1S!'BIT11,TMPO
3
25.,EM65,ERRO
TSERCODE

3$:
100018:

;CLEAR INTERRUPT OCCURANCE FLAG

#PRIO7
#PR107,RO
C$SPRI

BEQ
1$:

;XXSTART OF SEGMENTZX

SETPRI
MOV
EMT

MOV

002160
002160

020214

104000

#-128.,3RLMP

JSR
RS, LDFUNC
WRCHK ! INTEN
JSR
RS,WTCRDY
CKLOOP

2%:

002226

BGNSEG
EMT

EMT

000340

(5)
(5)
(5)

144572

104006
012700
104041

035532
035540

22-NOV-78
15:35
PAGE 1-86
*xTEST 39%* = FORCE DCK WITH WRITE CHECK INTERRUPT

021276

035474
035474
035500

34,77
34,78

30A(1052)

ENDSEG

C$CLPT

25
EME&S
ERRO

JWHEN FORCED
s%X%END OF SEGMENTXX

SEQ 0116

N 9
MACY11 30A(1052)
22=NOV-78 15:35 PAGE 1-8
»*TEST 39*x = FORCE DCK WITH WRITE CHECK INTERRUPT
22-N0Ov=78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

035576

104005
100008:

104005

2
035602

ENDTST

L10074:

104001

.SBTTL

035604

BGNTST

035604

STARS
=+

035622
035622

035624

CS$ESEG

EMT

C$ESEG

EMT

CSETST

s**END OF TEST*+

**xTEST 40%* - CHECK ZERU FILL ON WRITE WITH WRITE CHECK

;**START OF TEST#»

et e ok o e e e e e ok o o

o o o o o o

o o

eo o o

e eo

e eo o o e e eo

e e e ok e e e b e e e e e ke ke o

STARS

::t*t*ttti*t'tttt*tt*t'it‘i'tt*ttfit*tktitttttitttittfit*ifititttttt

004737

021356

JSR
CKERFG
EMT

104032
000274
104004

012737
012700
012701
012720

000001
003052
000200
052525

002162

144364

003052
144350
020456

PC ,HDHOME

.WORD

CSEXIT
L10075~-.

BGNSEG
EMT

C$BSEG

fiBU‘ RO

#128.

,R1

152525 (RO) +

3%:

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY

sXXSTART OF SEGMENTZZ

#1,TMP

33%:

002162

TMP1,RO

;START WITH 1 WORD WRITE

JWRITE BUFFER WITH 52525, WE'LL
;WRITE 128 WORDS ALL THOUGH WE'RE

;ONLY GOING TO TRANSFER < 128
;DONE WITH BUFFER?

:NO, GO BACK
:GET TRANSFER WORD COUNT
:NEGATE FOR RLMP

:STORE WORD COUNT AWAY

144352

;SET UP RLBA

RS ,LDFUNC

021276

RS ,WTCRDY
SEG

($ESCAPE

035712
035714

sXXEND OF SEGMENTZX

:WHEN WRITING PARTIAL SECTORS (LESS THAN 128 WORDS) THE
;CONTROLLER WILL FILL IN THE REMAINING PORTION OF
CHECK THIS FEATURE CAN BE WRITE CHECKED
:THE SECTOR WITH ZERO WORDS.
:WITH WORD COUNTS FROM 1 10 127

035604
035604
035610
035616
025620

ot s

EMT
ENDSEG

:LOAD THE FUNCTION IN NEXT WORD

:WRITE 11

SWAIT FOR WRITE

TO FINISH

SCHECK FOR FL:LOE, ELSE EXIT SEG

100008~

020214

JSR

ESCAPE

FEMmr

RS,(HERR
SEG

r$t SCAPE

. WORD
100008~
8 ORE
S ERIEY WRITE WIT: READ #F

CHECK

CNTLR FOR ERRORS

SCHMECK FOR FL:LOE, ELSE EXIT SEG
W

SEQ 0117

ASSEMBLY ROUTINES
MACY11
CZRLBB.P1
22=NOv-78 15:28

005077
012777
01370C
005400

g2
88z g882
s e

035724

035774
035776
835776

aRLDA
#BUF ,aRLBA

144306

TMP1,R0O

RO
RO, aRLMP
RS, LDFUNC

14<300

02045¢

02127¢

RS,WTCRDY
SEG

(SESCAPE

100008~.
RS,CHERR
SEG
($ESCAPE
100008-.

020214

003052
002162

($BSEG

14423¢

#BUF ,aRLBA
TMP1,RO

144230
144227

020456

RS ,LDFUNC

021276

RS ,WTCRDY
SEG

104070

CSESCAPE

000034

004537
005737
001003

20214
002124

R5,CHERR
T.CRC

108%:

104010

8%:

104006
104462

sCHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

sCHECK FOR FL:LOE, ELSE EXIT SEG

sXXSTART OF SEGMENTZX
:SET UP TO READ

;SECTOR

;LOAD THE FUNCTION IN NEXT WORD

SWAIT TIL WE FINISH THE WRCHK
;CHECK FOR FL:LOE, ELSE EXIT SEG

Q0%.

10001¢%:

104005

0021€2
002162

000200

1C000%:

;CHECK CNTLR FOR ERRORS

;WAS ERROR A DCK??

ESCAPE
EMT
. WORD
BR
(KLOOP
EMT
ERRDF

SEG

sYES, GIVE MOR INFO
sCHECK FOR FL:LOE, ELSE EXIT SEG

99%

;SKIP AROUND

. WORD
.WORD

EM64
ERR14

TRAP
.WORD

000045
014031
015150

104005

sLOAD THE FUNCTION IN NEXT WORD

100018~.

000016
000405

005237
023727
001250

8 10

15:35
PAGE 1-88
**TEST 40*+ = (HECK ZERO FILL ON WRITE WITH WRITE (HECK

22-NOvV-78

NOO

NS~

10077
537

144316

003052
202162

30A(1052)

C$ESCAPE
10001%-.

CS$CLPT

CHECK

FOR LOOP FIRST

37. ,EM64 ERR14
;;ERCODE

ENDSEG

JEXIT TEST

JXXEND OF SEGMENT%%

EMT

($ESEG

INC
CMP
BNE

TMP1
TMP1,4178.

33%

ENDSEG
EMT

;YES,

JAXEND OF SEGMENT%X
($ESEG

SEQ 0118

ASSEMBLY ROUTINES
MACYA1
CZRLBB.P11
22-NOV-78 15:2

30A(1052)

22-NOV-78

15:35

o 10
PAGE 1 89

*«TEST 40** -~ CHECK ZERO F I LL ON WRITE WITH WRITE CHECK

ENDTST

s**END OF TEST»»

L10075:

104001

SEQ 0119

EMT
CSETST
*#TEST 41%* - EXTENDED (HECK OF WRITE CHECK FUNCTION

«SBTTL
BGNTST

s**START OF

TESTw»

STARS
IRRRERRRRR AR AR AR AR AR R AR AR AR RRRRERRRRRRRARRRR

AR ARRRAR AR R

:CHECK OF WRITE CHECK LOGIC UNDER FLAG MCDE

sTHIS TEST

IS DONE WITH ALL BIT PATTERNS

: WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM
WE CHECK THAT NO ERRORS OCCUR.
:MEMORY (BUF).

STARS
AR

036116

004737

036130
036132

104032
000246

036134

012703

021356

002504

003052
000200

298%:
299%:

003052

144054

177600 144052
144044

020456

R A

A AR AR AR A AR AR AR AR AR AR AR R A AR

JSR
CKERFG

PC ,HDHOME

EMT
.WORD

CSEXIT
L10076~.

MOV

#HDRTAB,R3

BGNSEG
EMT

C$BSEG

MOV
MOV
MOV
MOV
DEC
BNE

#BUF ,RO
#128. ,R1
(R3) .R2
R2. (RO) +
R1
299%

MOV

#BUF , aRLBA

CLR

ARLDA

MOV

JSR

WRITE

021276

JSR
ESCAPE
EMT
.WORD
ISR
ESCAPE
EMT
.WORD
BGNSEG
EMT

020214

#-128. ,aRLMP
RS, LDFUNC
RS ,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG
CSESCAPE
10000%~-.

AR A AN A AR AR AR

AR AR AR AR R

sHEADS OVER TRACK 0
;HEADS GO HOME OKAY

JAXSTART OF SEGMENTZX
;SETUP AND WRITE

;128 WORDS
JWRITE

;DONE??

;LOAD BUS ADDRESS
;WORD COUNT
;CLEAR DISK ADDRESS
sLOAD THE FUNCTION IN NEXT WORD
;WAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE, ELSE EXIT SEG
:CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

C$BSEG

J%4XSTART OF

SEGMENTZ%

:VERIFY WRITE WITH READ BEFORE WRCHK
144010

003052
177600

020456

144000

143776

CLR

MOV

MOV
JSR

ARLDA

#BUF , aRLBA

#-128. , aRLMP

RS, LDF UNC

sLOAD THE FUNCTION IN NEXT WORD

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28

3615
3616
3617

036256
036260
0362064

000014
004537

(3)
3618
3619
(3)
3é36

036266
036270
036274
036274
036276

000076
004537

3621
3é3%

30A(1052)

D 10

22-NOv-78
15:35
PAGE 1-90
**TEST 41%+ <~ EXTENDED CHECK OF WRITE CHECK FUNCTION

READ
JSR
ESCAPE

RS ,WTCRDY
SEG

104010
000066

.WORD
JSR
ESCAPE
EMT
.WORD

10001%-.
RS, CHERR
SEG
C$ESCAPE
10001%-.

036300
036300

104004

BGNSEG
EMT

C$BSEG

3623
3624
3625
3626
3627
3628

036302
036302
036306
036314
036322
036326

005077
012777
012777
004537
000002

143740
177600
003052
020456

3630
3631
(3)
(3)

036330
036334
036334
036336

004537

021276

3634
3635
gg%?

036340
036344
036350

004537
005737
001404

3638
(3)
(5)

036352
036352
036354

104463
000632

%22?

036362

3642
(3)
(3)
3643
(3)
3@22

036362
036362
036362
036364
036364
036364

104005

3645
3646
ggzg

036366
036370
036374

005723
020327
001262

3649

036376

(3)

%33

(5)
3é§%

036264

036356
036360

(3)
(3)

036376
036376

(3)

036400

3650
(3)

036400
036400

021276

104010

104010
000024

EMT

020214

3%:
143734
143722

020214
002124

015216
014220

CSESCAPE

;CHECK FOR FL:LOE, ELSE EXIT SEG
;CHECK CNTLR FOR ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

;XXSTART OF SEGMENTZ%

CLR
MOV
MOV
JSR
WRCHK

aRLDA
#-128. ,aRLMP
#BUF ,aRLBA
R5,LDFUNC

JSR
ESCAPE

EMT
.WORD

RS ,WTCRDY
SEG
C$ESCAPE
10002%-.

sWAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

JSR
TST
BEQ

R5,CHERR
T.CRC
4%

;CHECK CNTLR FOR ERRORS
;WRITE CHECK ERROR??
;NO

ERRHRD
TRAP
.WORD

410.,ERR15,EM70
T$ERCODE
410

.WORD
.WORD

sWORD COUNT
:BUS ADDRESS
;LOAD THE FUNCTION IN NEXT WORD
;WRITE CHECK

ERRI5
EM70

4%:
10002%:

104005

104005
104001

10001%:

002660

100008:

ENDTST

L10076:

ENDSEG

EMT
ENDSEG

C$ESEG

EMT

C$ESEG

TST
(MP
BNE

(R3)+
R3,A#HDREND
298%

ENDSEG

JXXEND OF

SEGMENTZXZ%

s%XEND OF

SEGMENTZX

JAXEND OF SEGMENTZ%

EMT

($ESEG

EMT

CIETST

J**END OF

TESTw»

SEQ 0120

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22=NOvV-78
1 5:28

30A(1052)

3652
3653

22-NOV-78

E 10

15:35

PAGE 1-91

SEQ 0121

**TEST 41%+ < EXTENDED CHECK OF WRITE CHECK FUNCTION
**TEST 42#** - EXTENDED CHECK OF WRITE CHECK FUNCTION

.SBTTL

036402

BGNTST

036402

STARS

s**START OF

TESTw»

IRERRRRRRRARARRRARR
AR RRERR KRR RKIRR AR RARRRRARRRAARRR AR R AR

:CHECK OF WRITE CHECK LOGIC UNDER FILAG MODE

sTEST

IS DONE WITH ALL BIT PATTERNS

: WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM

;MEMORY

STARS
R

004737

021356

003052

177600
143554

020456
021276

020214

143564
143562

AR AR AR AR AR

AR ARk Ak

JHEADS OVER TRACK 0
sHEADS GO HOME OKAY

EMT
JWORD

CSEXIT
L10077-.

MOV

#HDRTAB,R3

BGNSEG
EMT

C$BSEG

298%:

MOV

#BUF ,RO

299%:

MOV
BIS
MOV

(R3) .R2
#BIT15,R2
92 (ROJ
+

BNE

299s

MOV
MOV
CLR
JSR
WRITE

#BUF
, 3RLBA
#-128. ,aRLMP
aRLDA
RS, LDFUNC

;LOAD BUS ADDRESS
sWORD COUNT
;CLEAR DISK ADDRESS
sLOAD THE FUNCTION IN NEXT WORD

RS ,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG
C$E SCAPE
1C000%-.

;WAIT FOR CONTROLLER READY

002504

100000

AR A AR AR A AR A A A AR AR AR R AR R A AR AR A AR

PC , HDHOME

104032

003052
000200

WE CHECK THAT NO ERRORS OCCUR.

JSR
CKERFG

000252

012703

(BUF).

DEC

JSR
ESCAPE
EMT
.WORD
ISR
ESCAPE
EMT
.WORD
BGNSEG
EMT

JXXSTART OF SEGMENTZX
sSEV UP AND WRITE

;128 WORDS

ET PATTERN

;DONE??

sCHECK FOR FI_:LOE, ELSE EXIT SEG
;CHECK

CNTLR FOR ERRORS

;CHECK FOR FL:LOE, ELSE EXIT SEG

C$BSEG

JAXSTART OF

SEGMENTZ%

JVERIFY WRITE WITH READ BEFNRE WRCHK
143520

CLR

ARLDA

MOV

x-128 ,aRLMP

003052

MOV

020456

JSR
READ

177600

#BUF , @RL BA
LDFUNC

;LOAD THE FUNCTION IN NEXT WORD

ASSEMBLY ROUTINES

CZRLBB.P11

MACY11

22=N0v-78 15:28

3698
3699
(3)
(3)
3700
3701
(3)
;8%

036550
036554
036554
036556
036560
036564
036564
036566

004537

(3)

036570

104004

3706
3707
3708
3709
3710

036572
036576
036604
036612
036616

005077
012777
012777
004537
000002

3712

036620

004537

(3)
(3)

036624
036626

104010
000024

3716
3717
3718

036630
036634
036640

004537
005737
001404

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

036642
036644
036646
036650

104463
000632
015216
014220

104010
000076
004537

.
30A(1052)

22-NOv=78

15:35

**TEST 42** - EXTENDED CHECK OF WRITE CHECK FUNCTION

021276
3

JSR
ESCAPE
EMT

RS ,WTCRDY
SEG
CSESCAPE

JSR

RS5,CHERR

.WORD

020214

ESCAPE
EMT
.WORD

104010
000066

BGNSEG

143450

177600

003052
020456

3%:
143444

143432

F 10
PAGE 1-92

EMT

C$BSEG

('R

aRLDA

MOV
JSR

#BUF ,dRLBA
RS5,LDFUNC

MOV

WRCHK

021276

02C214
002724

#-128. ,aRLMP

JSR

RS,WTCRDY

EMT
.WORD

C$ESCAPE
10002%-.

ESCAPE

JSR
TST

BEQ
TRAP

.WORD
.WORD
.WORD

sCHECK FOR FL:LOE, ELSE EXIT SEG

10001%-.

SEG
C$ESCAPE
10001%-.

SEG

R5,CHERR
T.CRC

SEQ 0122

sCHECK CNTLR FOR ERRORS

sCHECK FOR FL:LOE, ELSE EXIT SEG

;X%XSTART OF

SEGMENTZ%%

;WORD COUNT

;BUS ADDRESS
sLOAD THE FUNCTION IN NEXT WORD
JWRITE

CHECK

;WAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE,

ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

A 3

T$ERCODE

410
ERR1S
EM70

(3)

036652

104005

(3)

036654

104005

3728
3729
3730

036656
036660
036664

005723
020327
001260

(3)
(3)

0
036670

10002%:

104005
104001

10001%:

ENDSEG

EMT

C$ESEG

EMT

C$ESEG

ENDSEG

TST

002660

CMP

BNE
10000%:

ENDTST
1L10077:

JSBTTL

SEGMENTZ%%

JX%END OF

SEGMENTZ%%

JAXEND OF

SEGMENT%%

J**END OF

TESTw»

(R3)+

R3,#HDREND

298%

ENDSEG

EMT

JX%END OF

C$ESEG

CIETST
EMT
«#TEST 43++ = RFAD WITHOUT MEADFR (OMPARE

FUNCTION

ASSEMBLY ROUTINES
HACV11
CZRLBB.P11
22-NOv=78
1 5:28

3735

036672

30A(1052)

22-NOv-78

15:35

G 10
PAGE 1-93

**TEST 43*+ - READ WITHOUT HEADER COMPARE FUNCTION

SEQ 0123

STARS
IR

AR AR RN AR AR

AR R

AR AR RERARRR

AR RRR

AR RRR AR

:TEST THAT READ WITHOUT HEADER VERIFICATION WORKS.
THIS FUNCTION SHOULD
:READ AT THE NEXT SECTOR ENCOUNTERED.
SET THE RLDA TO 0

:AND ISSUE THE FUNCTION IN FLAG MODE.
:FOR ERRORS

UPON COMPLETION CHECK

STARS

o tttit"*Qtt'Qtttiti'ttittttt'fifi'iQtttt.tfl'"ttt.ttttit"tttitiit

BGNTST

004737

;**START OF

021356

JSR
CKERFG

104032

EMT
.WORD

000052

BGNSEG

CSEXIT
L10100-.

EMT

C$BSEG

177600
003052
177777
020456

MOV

#-128. ,aRLMP

MOV
JSR

#-1,3RLDA
RS,LDFUNC

004537

021276

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG
CS$ESCAPE
10000%~-.

004537

(020214

JSR

RS, CHERR

MOV

10000%:
ENDTST

L10100:

104007

#BUF ,aRLBA

RDNHD

.SBTTL

036762

BGNTST

036762

STARS

sHEADS OVER TRACK 0
;HEADS GO HOME OKAY

;%XSTART OF SEGMENTZXX

012777
012777
012777
004537

104005

036760
036760

PC ,HDHOME

TEST#*»

;SET UP WORD COUNT
. SETUP BUS ADDRESS
JHEADER SHOULDN'T MATTER
:LOAD THE FUNCTION IN NEXT WORD
;READ DATA WiTHOUT HEADER VERIFY
;WAIT FOR IT TO FINISH
;CHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

ENDEG

;%XEND OF SEGMENTZ%

EMT

C$ESEG

EMT

CSETST

J**END OF

TESTw»

*=TEST 44** - READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT
;**START OF

TEST#»

» tttttttttl.ttfifi‘lfit"t'.tt"tttfifl"tt'fi'.it"ttt‘t‘.\'l"tt'fi"it

:TEST

THAT

READ WITHOUT

INTERRUPT MODE .

036762

HEADER VERIFICATION WORKS

STARS

""t!"fitttttttttt't.tt"it"tfi'tfitt'tifit'ii..t.t..tt"ifi"tt.t.tt

004737
104032
000174

021356

JSR
(KERFG

EMT
LWORD

PC ,4DHOME

CSEX]T
L17101-,

JHEADS OVER TRACK 0
JHEADS GO HOME OKAY

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22=NOv-78 15:28

3776
(3)

30A(1052)

22-NOV-78

037000

012777

177600

003052

177777

43234
(3222
63216

020456

037060

3789
3790

037062
037066

3792

037070

000030
002144

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

037070
037072
037074
037076
037100
037100
037102

104010
000006

3795

037104

004537

3797

037110

(3)
(3)

3798
(3)
(3)

037110
037110

(37112

037112
037112

104462

104001

INTFLG
; CLEAR INTERRUPT OCCURANCE FLAG
#-128. ,aRLMP
sSET UP WORD COUNT FOR ONE SECTOR

MOV
EMT
JSR

#=1,aRLDA
#PRI00
#PR100,RO
C$SPRI
R5,LDFUNC

JSR
SETPRI

RS ,WTCRDY
#PRIO7

EMT
ESCAPE
EMT
.WORD

C$SPRI
SEG
CS$ESCAPE

JCHECK FOR FL:LOE, ELSE EXIT SEG

TST
BNE

INTFLG
1%

;DID IT INTERRUPT
sIF INTERRUPT GO TO 1%

ERRDF

40. ,EM40,ERRO

;NO INTERRUPT

.WORD
.WORD
.WORD
ESCAPE
EMT
.WORD

40
EM4O
ERRO
SEG
C$ESCAPE
10000%-.

JSR

RS,CHERR

TRAP

012547
014244

104005

CLR
MOV

MOV

000340

1%:

020c14
10000%:
ENDTST

L10101:
.SBTTL

3802

037114

BGNTST

3804

037114

STARS

SEQ 0124

($BSEG

sXXSTART OF SEGMENTZXZ

#BUF ,aRLBA

;SETUP BUFFER ADDRESS
;DISK ADDRESS IS A DON'T CARE

;LOAD THE FUNCTION IN NEXT WORD

RDNHD ! INTEN

021276

FUNCTION INTERRUPT

BGNSEG
EMT

MOV

000000

(3)

H 10
PAGE 1-94

**TEST 44*+ - READ WITHOUT HEADER COMPARE

037000

002144

15:35

s INTERRUPT ENABLED

;WAIT FOR INTERRUPT

#PR107 ,RO

10000%-.

T$ERCODE

;CHECK FOR FL:LOE, ELSE EXIT SEG

sCHECK CNTLR FOR ERRORS

ENDSEG

EMT

C$ESEG

EMT

CSETST

J%%END OF

SEGMENTZ%%

J**END OF

TESTx=

**TEST 45+« - (CHECK RD W/0 HDR CMP ACTUALLY READS
s**START OF

SRR AR A A A AR AR A A AR AR A AR R A AR A AR R A AR R

TESTx«

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

;CHECK THAT THE READ W/0 HDR CMP FUNCTION ACTUALLY READS (INTO MEMORY)
;Wi WILL WRITE A PATTERN INTO MEMORY AND THEN [SSUE

;A READ

TO OVERLAY

;WE CHECK TO SEE
:1F NOT WE ISSUE
JHAVING MODIFIED
:ONE CHANCE THAT

s THE

THAT PATTERN.

AFTER THE READ

IF THE WRITTEN PATTERN HAS CHANGED.
IT AGAIN AT THE SAME SECTION AFTER
OUR PATTERN IN MEMORY (SINCE THERE IS
THE DISK COULD HAVE OUR PATTERN).
AFTER

SECOND READ wt

CHECK

THE BUFFER AGAIN.

;NOT (HANGED WE REPORT AN ERROR

IT'S

ASSEHBL;1?0UTINES
MAC;11
CZRLBB
22=N0V-78 15:28
OOV~ ~O~NOWN ~
=

EERREEEEGRe B8

3814

30A(1052)

037114

110

15:35
PAGE 1-95
**TEST 45%+ - (CHECK RD W/0 HDR CMP ACTUALLY READS

22-N0Ov=78

STARS
::ttt.Qflflltififlfiitfittfitt'Q'tiittfitttfitfit'tfifitttttfi.'.'tti.ti.'.it.

037114
037120
037126
037130
037132
037132

037134
037142
037146
037152
037156
037162

037164
037166

037174
037202
037210

004737

021356

000160

JSR
CKERFG
EMT
.WORD

104004

BGNSEG
EMT

($BSEG

MOV

#24350, TMPO

104032

012737
005037
012700
01270?
013720
005301
001374
012777
012777
012777
012737

024350
002162

003052
000200

143052
143046
143034

002166

004537
000016
004537

037234
037240
037240
037242

004537

037244
037250
037254

012702
022237
001014

003052
002160

037256
037262

005737
001005

002162

037264
037270
037274

005237
005137
000724

002162
002160

037306

002160

037216
037222
037224
037230
037230
037232

037276
037276
037300
037302
037304

002160

020456
02127¢

104010

000054

020214

104010

000044

4%:

CLR

MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV

€%

TTMP1
#BUF ,RO
#128. ,R1
TMPO, (RO) +
R1

#40.

,RLDA

#-128. ,aRLMP

#BUF
, aRLBA
. GDDAT
#BUF

sXXSTART OF SEGMENTZX
;SET PATTERN TO WRITE

:CLEAR PASS INDICATOR
;SET UP BUFFER BEGINNING

;WRITE BUFFER
-DONE77

sNO, GO BACK
sLOAD DISK ADDRESS TO NONSENSE
sSET WORD COUNT
;LOAD BUS ADDRESS
;FOR ERROR PRINT

RS5,LDFUNC

ESCAPE
EMT
. WORD

R5,WTCRDY
SEG
C$E SCAPE
10000%-.

JSR
ESCAPE
EMT
.WORD

RS, CHERR
SEG
C$E SCAPE
10000%-.

;CHECK CNTLR FOR ERRORS
sCHECK FOR FL:LOE, ELSE EXIT SEG

MOV

#BUF ,R2
(R2)+,TMPO
6%

;SET TO START COMPARING DATA
;DID DATA CHANGE?

;YES,

TST

TMP1
5%

;DATA DIDN'T CHANGE, CHECK
;IF 1ST OR 2ND TIME?
;2ND-REPORT 1ST-TRY AGAIN

INC
COM
BR

TMP1
TMPQ

ERRDF

20. ,EM55 ,ERRS

.WORD
.WORD
. WORD

20
EMSS

CMP
BNE

TRAP

009024
013230
014636

CSEXIT
L10102-.

JHEADS OVER TRACK 0
JHEADS GO HOME OKAY

JSR
RDNHD
JSR

BNE

104462

PC ,HDHOME

T$ERCODE

ERRY

*LOAD THE FUNCTION IN NEXT WORD

;READ W/0 HDR CMP

;WAIT FOR CONTROLLER READY

;CHECK FOR FL:LOE, ELSE EXIT SEG

CHECK FOR END

s INC PASS COUNT
s COMPL IMENT PATTERN
:GO DO IT AGAIN

SEQ 0125

ASSEMBLY ROUTINES

MACY11
22-NOv~78 15:28

CZRLBB.P11

3858
3859
53)

30A(1052)

100008:

104005

037310

ENDTST

L10102:

104001

J 10

15:35
PAGE 1-96
**TEST 45%* - CHECK RD W/0 HDR CMP ACTUALLY READS

22=-N0OV-78

.SBTTL

037312

BGNTST

037312

STARS

JXXEND OF SEGMENTZX

ENDSEG

EMT

(SESEG

EMT

CSET.

s**END OF TEST=*»

#«TEST 46%** = (HECK RLBA INCREMENT WITH RD W/0 HDR (MP

;**START OF TEST##

- ttttt'ttt'tittt.k'fit"t'."tit.fiil*i.ttQfifittt*fiittkttttt'tttt't

:CHECK THAT THE RLBA WILL INCREMENT WITH THE READ W/O HDR CMP
:THE RLBA SHOULD CONTAIN "BUF +256."'' AFTER A FULL SECTOR

;READ.

037312

STARS

::ttttlfit"ttttt*t0...'*"'.".tfiQttiittti'fifittttififiitt"ttt"ti.

037312
037316
037324
037326

000120

104032

JSR
CKERFG
EMT
.WORD

037330
037330

104004

BGNSEG
EMT

037332
037340
037346
037354
037362

012777
012777
012777
012737
062737

000050
003052

037370
037374
037376
037402
037402
037404

004537
000016
004537

020456

037406
037412
037412
037414
037416
037424
037432

004537

037434
037434
037436
037440
037442

004737

02135¢

177600
003052
000400

142706
142676
142674

002166
002166

104010

000040

020214

001404
104462

000025
013310
014470

002170

ADD

JSR
RDNHD

021276

002230

MOV
MOV
MOV
MOV

002170
002166

PC ,HDHOME

CSEXIT
L10103-.

#40. ,aRLDA

#BUF ,aRLBA
#-128. ,aRLMP

:SET UP BUS ADDRESS
sWORD COUNT
;FORM EXPECTED BUS ADDRESS
;AFTER READ

R5.,LDFUNC

:LOAD THE FUNCTION IN NEXT WORD
;READ W/0 HDR CMP
;WAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT SEG

#BUF ,GDDAT
#256. ,GDDAT

RS5,WTCRDY

JSR

RS, CHERR
SEG
C$E SCAPE
10000%~.
E.BA,BDDAT
?QDAT.GDDAT

MOV

CMP
BEQ

ERRDF
TRAP

.WORD

.WORD
.WORD

sAZSTART OF SEGMENTZZ

($BSEG

JSR
ESCAPE
EMT
.WORD

ESCAPE
EMT
. WORD

JHEADS OVER TRACK 0
;HEADS GO HOME OKAY

SEG

C$ESCAPE
10000%~-.

21. ,EM53,ERR4
g?ERCODE

EMS3
EnR4

:CHECK CNTLR FOR ERRORS

sCHECK FOR FL:LOE, ELSE EXIT SEG

;READ

'RLBA'

JYES,

CONTINUE

;DID 'BA'

FOR PRESENT ADDRESS

INCREMENT PROPERLY?

SEQ 0126

ASSEMBLY ROUTINES

CZRLBB.P11

3897
3898
3899
(3)
(3)
3900
(3)

MACY11
22=NOv=78 15:28

30A(1052)

037444

037444
037444
037444
037446
037446
037446

22=NOV-78

15:35

K 10

PAGE 1-97

**TEST 46** <= CHECK RLBA INCREMENT WITH RD W/0 HDR CMP

SEQ 0127

1%:

100008:

104005

ENDTST

L10103:

104001

.SBTTL

037450

BGNTST

037450

STARS
e

;XXEND OF SEGMENTZ%

ENDSEG
EMT

C$ESEG

EMT

CSETST

TEST*=

s**END OF

**TEST 47x* - (HECK RLDA DOES

INCREMENT WITH RD W/0 HDR CMP
s**START OF

AT A AT A AR

A AR A AR AR AR

AR AR A A AR

A AR A AR AR

TEST==

A A AR

sCHECK THAT THE RLDA DOES INCREMENT BY ONE AFTER A
sFULL SECTOR READ W/0 HDR CMP

;AFTER

037450

STARS
e

004737

THE READ THE RLDA SHOULD STILL BE

AR AR A AR AT AR AR AR AR AR R

037450
037454
037462
037464

104032

000116

JSR
CKERFG
EMT
.WORD

037466
037466

104004

BGNSEG
EMT

037470
037476
037504
037510
037516

012737
013777
005237
012777
012777

037524

004537
000016
004537

021356

000050
002166
002166
177600

003052

002166
14254¢

142532
142520

020456
021276

104010

037540

000040

037542
037546
037546
037550

004537

037552
03756C

013737
023737

104010

000030

002232
002166

002170
002170

PC ,HDHOME

CSEXIT

INITIAL

A AR AR

RLDA +

ARk

ko k

1
kkkkk

sHEADS OVER TRACK 0
;HEADS GO HOME OKAY

L10104-~.
($BSEG

MoV
MOV

#40. ,GDDAT
GDDAT ,aRLDA
GDDAT
#-128. ,aRLMP
#BUF ,aRLBA

JSR

RS ,LDFUNC

JSR
ESCAPE
EMT

RS5,WTCRDY
SEG
C$ESCAPE

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG

MOV
(MP

E.DA,BDDAT
GDDAT ,BDDAT

.WORD

020214

AR AR AR R AR AR AR A AR

MOV
MOV
INC

RDNHD

THE

AR A ARk

sAXSTART OF SEGMENTZ%

;DA TO NONSENSE

;SETUP DISK ADDRESS

sWORD COUNT
;SETUP BUS ADDRESS

:LOAD THE FUNCTION IN NEXT WORD

JREAD WITHOUT HEADER COMPARE

;WAIT FOR CONTROLLER READY
;CRECK FOR FL:LOE,

ELSE EXIT

SEG

1G000%~.

C$ESCAPE

;CHECK CNTLR FOR_ERRORS
;CHECK FOR FL:LOE, ELSE EXIT SEG

10000%~.

sREAD DISK ADDRESS
;DID SECTOR INCREMENT PROPERLY

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOvV~78 15:28

037566
037570
037570
037572
037574
037576

30A(1052)

001404
104462

BEQ

ERRDF

22. ,EM54 ,ERR4

.WORD
.WORD
.WORD

22
EMS4
ERR4

TRAP

000026

013400

014410

037600

104001

10000%:

ENDTST

L10104:

BGNMOD

NO, REPORT ERROR

TSERCODE

;X%END OF SEGMENTZ%X%

ENDSEG

EMT

C$ESEG

EMT

CSETST

J**END OF

HRDPRM

BGNHRD

000025

.WORD L10105-L$HARD/2

GPRML
.WORD

004130
037660
000001

CNTYPE ,CNT,1,YES
T$CODE
gNTYPE
(SRMSG,CSR,0,160000,177776,YES
T$CODE
CSRMSG
TSLOLIM
TSHIL
IM

000031
037665

160000
177776

VECMSG,VECT,0,0,776,YES

001031
037712
000000
000776

T$CODE
VECMSG
TSLOLIM
TSHILIM

BRMSG,PRIOR,0,340,0,7,YES

002032
037701
000349
000000
000007

T$CODE
BRMSG

340

T$LOLIM

TSHILIM

DRMSG,DRBT,0,03400,0,7,YES
T$CODE
DRMSG

003032
037721
003400
000000
000007

03400

T$LOL
IM
T$HILIM

037660

;YES, BRANCH

1%:

104005

037656

L 10

15:35
PAGE 1-98
**TEST 47#%% = (CHECK RLDA DOES INCREMENT WITH RD W/0 HDR CMP

22-NOv=78

L70105:

ENDHRD
.EVEN

TEST*=

SEQ 0128

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-N0OvV-78 15:28

3964
3965

037660
037665
037672
037700
037701
037706
037712
037720
037721
037726

066122
102

042104
000
102
042526
042526
000
104

000
037730

030461

30A(1052)

M 10
22-NOV-78 15:35 PAGE 1-99
TEST 47%** < CHECK RLDA DOES INCREMENT WITH RD W/0 HDR CMP

000
040440
051523

CNTYPE: LASCIZ
CSRMSC: LASCIZ

/RL11/

020122
000114
052103

042514

BRMSG:

.ASCIZ

/BR LEVEL/

051117

VECMSG:

LASCIZ

/VECTOR/

044522

042526

DRMSG:

LASCIZ

/DRIVE/

051525

042522

.EVEN

037730

ENDMOD

037730

037730
037730
037732
037732

/BUS ADDRESS/

BGNMCD

SFTPRM

T
BGNSF

000025

.WORD L10106-L$SOFT/2
DMSG,DLT,?,YES

000130
040004
000001

T$CODE
?MSG

1%
T$CODE

006044

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

001052
040122

T$CODE
EMSG
177777
TSLOLIM
TSHILIM
SMSG,SIZE,1,YES
T$CODE

177777

000000

177777

1%:

002130
040030
000001

SMSG
;

CMSG,DMPCK,1,YES
T$CODE

003130
040041
000001

gMSG

006044

T$CODE

LMSG,DLMT,D,177777,1,128. ,YES
T$CODE

004052
040065

LMSG
177777
T$LOLIM
T$HIL IM

177777

000001
000200

2%:

L10106:
051104

050117

047440

DMSG:

ENDSFT
EVEN

LASCIZ

/DROP ON ERROR LIMIT/

SEQ 0129

N1 0
22-NOV=78 15:35 PAGE 1~ 100
MACY11 30A(1052)
**TEST 47*» <= CHECK RLDA DOES INCREMENT WITH RD W/0 HDR CMP
22-NOV-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

3991
3992

3993

051105
044514

047522
044515

047524
000
046517
042040
047117
000
047440
042122
042440

044523

SMSG:

.ASCIZ

/AUTOSIZE/

040520
052101
042040

CMSG:

.ASCIZ

/COMPARE DATA ON DCK/

020106

LMSG:

.ASCIZ

/# OF WORDS IN ERROR REPCRTED/

EMSG:

.ASCIZ

/ERROR LIMIT/

051040

042524
047522
044515

000124

ENDMOD

040514

.=40514

;AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS.

:.=40514 WAS SELECTED AS 'LASTAD'' TO PROVIDE APT TO LSI-11 COMPATIBILITY.
;BIT 7 OF "LASTAD'' MUST BE CLEARED TO ACHIEVE A VALID MAILBOX ADDRESS
JWHEN RUNNING ON THE LSI-=11 UNDER APT.

040514

LASTAD

040514

LSLAST::

.EVEN

SEQ 0130

ASSEMBLY ROUTINES

CZRLBB. SUP

071310
071312
071314
071316

MACY11 30A(1052) 22-NOv-78 15:35 PAGES

23%-0C1-78 09:52

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP
.SBTTL
WORD

000

WORD
.WORD
.WORD

DIAGNOSTIC SUPERVISOR == LOW CORE SET UP
0
;SPACE FOR USER POOL POINTER

0
0
O

END.SUPY=, +¢

;SIZE
sCHECKSUM (NOT CURRENTLY USED)
;SIZE OF H.W. PTAB. ALLOCATION

SEQ 0131

067672 G

[alalalalalalalalalalalala]

RN S NS ISR RS 2 SRS
& —'o\no\n\nwmbogb&—l-‘mg\‘u

—a—l—a—l—l—l—lg
[« AV PAV,
P o)

Siposeneea

KR
- —— — —d — — — — — w—
) — — — ——
- —— —
) —d )

= 001400

040762
054042
02210
054746
054764
057532
057536
057554

DS3

PONVPONINININININD
= e d e d e e d e o e d
" v
N8 NANNON)
— —
H
iy
N )
NN
ANO~NWN
S

DUNIT.
DVC.FT
DWORD
DSAAG
D$AAH
DSAAI
DSAAJ
D$AAK

e o

000010
007217
017000
000000
000400
001000

EM14

— e

DRST
=
DRTIM
DSPCOD
DSO
=
DS1
=
DS2
=

EM100

norY

037721
016766
020104

EMT.TR

elel=tetatotatololototelototototototototolotatototot=

BIT8

DRMSG
DROP
DRPCOD

040526 G
000000
041046 G
000010
0000
007304
000006
040004
070456
070344
000006
000001
002134

BEREG
BGN.SU=
BINMSG
BITO =
BITOO =
BITO1 =
BITO2 =
1703 = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BITO9 = 001000
BIT1
= 000002
BIT10 = 002000
BIT11 = 004000
BIT12 = 010000
BIT13 = 020000
BIT14 = 040000
BIT15 = 100000
BIT2 = 000004
BIT3 = 000019
BIT4 = 000020
BITS = 000040
BIT6 = 000100
BIT7 = 000200

DEV.CO
DIAGMC=
DIAG.T
DLMT
=
DLT
=
DLTMES
DMPCK =
DMSG
DPDVD
DPMUL
DRBT
=
DRDY =
DRIVE

002154
002252
002170
020764
007130
040514
057770
000001
000001
000002
000004

= 000040

N
—

BCCFBK
BCSR
BDDAT
BEFORE

BA17

MMM

000010
045316
045332
045344
045352
045
045376
000020

ASSEMB=
ASAAV
ASAAW
ASAAX
ASAAY
ASAAZ
ASABA
BA16 =

057572
057602

-b

007151

CSPOIN= 000040
($QI0 = 000377
CSRDBU= 000007
CSREFG= 00005C
CSREQT= 000045
CSRESE= 000033
CSREVI= 000002
CSRPT = 000025
CSSEFG= 000047
C$SPRI= 000041
C$SVEC= 000037
C$TPRI= 000013
CSUNBU= 000031
CSWTM = 000026
CSWTU = 000027
DAHS = 000020
DATPAT 002662
DCKMES 007277
DECMSG 060004
DEMES
007245
DERFLG 002310
DERR = 040000

mmmmrnmm

040546
021016
061460
042450
007106
007101
007114
007122

AFREG

CONTIN 017226
CRDY = 00 00
CRLF
CRTIM
CSR
= 000000
CSRMS
CURR.S

g
n—

AFSI
AFTER
ALLOC
APT.ER
ARLBA
ARLCS
ARLDA
ARLMP

BLD.HW
BLOCK
BPRIOR
BRMSG
BUF
BVEC
B$AAB
BSAAF

SEQ 0132

= 001000 G
046202

BIT9

PAGE g e

041040 G
040756 G
043320

15:35

—2
e

ABOFLA
ABOPAS
ABO.FM

22-N0OvV-78

SYMBOL TABLE

===

30A(1052)

mmm

ASSEMBLY ROUTINES
MACY11
CZRLBB.SUP
23-0CT-78 09:52

O
no

H
o

L OP IMX

002270

alalalalalalalalalalalalalalalalalalalalalalalalalalalalalala
o122 191212121212 1212 12 12

~
~

040542
021356

P
S NEHY

OO —=O O = = —d b

FgREERE
SAL
2338
&
o
~

—_—

W
~N

o
T
G

= 000006
000050

RNONN SN -=NO

[(a]alalalal

RRNS

—t

e
s

alalalalalalalala

BNl

—

015216
014274
014336
014410

)

ERR15
ERR2

015026
015102
015150

053114
(002132
054052
040516
054056
014244
014262
054400
014702
014754

IS SRR YR

ERRHAN
ERRVEC
ERR.HR
ERR.NU
ERR.SF
ERRO
ERR1
ERRTFO
ERR10
ERR11

ERR
=1
ERRFOR 054314

ERR4

00207

047070
071322
040566
067770
043334
045500
002314
002266
002312

ERR3

ININIT
INITCO
INITIA
INIT.M
INIT.R
INPUTA
INTEN =
INTFLG
INTFOR
INTSRV
INVAL.

017722

END.OF
END.SU=
ENVIRO
EOP.CH
EOP.FM
EOP.IN
ERCOUN
ERFLG
ERPOIN

ERR12
ERR13
ERR14

HNFMES
HOLDSP=
HPTCOD
HRDPRM
HW.ADR
HSAAB

010766

elelelelelelelolslels)

END

EM?7

002660
020712

HERTZ.

== i

014220

EM63

SEQ 0133
HDREND
HDRLST
HDRTAB

EM70

EM6
EM60
EM61
EM62

PAGE 3-1

—

EM64
EMES
EM66

013310
013400
013230
013456
013477
010712
013537
013575
013652
013727
014031
014105
014146

013145
013177

EMS3
EM54
EMSS
EM56
EMS7

013056
010646
013105

EMS51
EMS52

012767
013024

x 0
wrr

EM47
EMS
EM50

SYMBOL TABLE

15:35
F $MOD
F $MSG
FSPWR
FSRPT
F$SEG
F$SOF
T=

gl TTTITMmMmMmmmMmm

EM&L4
EM4S

012654
012723

bt bt bt ba®

EM43

22-N0OV-78

[a]9)

EM42

30A(1052)

ASSEMBLY ROUTINES
MACY11
CZRLBB.SUP
23-0CT-78 09:52

002100
002012 G
045112

22-NOvV-78
15:35
SYMBOL TABLE

SEQ 0134

—=O O VIS WN—=O~N

NNNNNVY

RLCS
RLDA

AN W

B O CD
b
b e
e

PAGE 5-51
READ.P
REGBAC
REGSAV
REQN.P
REQGN.T
REST
RESTMS
RE.SET
RHD INT
RHDME
S

83838888
OO0 O0OONY

& 8.

30A(1052)

leoleoleleolelelelele]

P
S
I
L,
0

RSTACK
SAVEDO=
SEARCH
SECMSK
SEEK
SEGSTA
SEKINT
SEKMES
SET.MA

L10023

23-0CT-78 0

L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014
L10015
L10016
L10017
L10020
L10021
L10022

ASSEMBLY ROUTINES

CZRLBB. SUP

L10024
L10025
L10026
L10027
L10030

SFTPRM
SHIFT

SIGN
SIMBCC
SIZE
=
SKHOME

OO0

SPEC.U
SPTCOD
SPV.SE
START
STARTC

START1

PWR. UP

NUHBIN

00000

054434

P.CLK.
RDD INT
RDDME
S
RDHDR RDNHD =
RDNINT
RDNME
S
READ

=
STHS
STRCHR
STRT.T
ST.SET
SUNIT.
SUPERV
SUPFLA
SUPV.T
SUP.PR
SVCGBL=
SVCHAN
SVCINS=
Sv(SuB=
SVCTAG=
SVCTIST=
SVHD

T$TEST=
T$TSTM=
T$TSTS=
T$SCLE=
T$SDU =

000057
177777
000001
010023
010024

TM15
11é
117
T18
T19

T$$HAR= 010105
T$$HW = 010020
T$SINI= 010022

T$8MSG=
T$$SEG=
T$$SOF=
T$$SRV=
T$$SW =
T$STES=
T.CNTL
T.CRC

T2
120
121

T.DMP

010017
010000
010106
010025
010021
010104
002306
002124

016774

122
123
724
125
126
127
128
129

T.LMT

016776

730

023712 G

133

T.SIZE
T
110

. ABS.

016772
021632 G

071320

ERRORS DETECTED:

131
132

025030
025132
025256
025452
025606

022102
025740
026060

026240
027016
02721
027356
027472
027650
030250
030672

022246

031320

032000
032432

033042

T34
T35
136

033274

137

738
739
T4
740
T41
T42
T43
T44
T45
T46

147

Té
T7
T8
9

UNITST
UNIT.D
UN].MA
UOPIMN
UOP IMX

000
G

DSKZ :CZRLBB,DSKZ : CZRLBB=CZRLAB/ML
, (ZRLBK.P11,(ZRLRB, SUP
RUN-TIME: 66 62 1 SECONDS
RUN-TIME RATIO: 323/130=2.4
CORE USED:
(31 PAGES)
16K

lalalalalalalalnlalalalalalalala]

024110
024262
024460
024660

F 1
PAGE 3-3

(BNl

m
T12
713
T14

TSSUBN=
T$TAGL= 177777
TSTAGN= 010107
TSTEMP= 000000

22-NOV-78
15:35
SYMBOL TABLE

30A(1052)

o
W
o~
o
~

CZRLBB.SUP

MACY11
23-0(T-78 09:52

[(alalalalainlalalalglalalalalalalalalalalal

ASSEMBLY ROUTINES

002276
002274

SEQ 0135
USER.P
USER.T

040774 G

XMEM

VAL.LA

XPOLY
XTIME
XTIMEN
XTIMST
XXDP.D

. SW
VAL
VECMSG
VECT
WCKINT

WCKMES

WIDTH
WRCHK
WRITE
WRLOCK
WRTINT
WRTMES
WTCRDY
WTDRDY
XEQDIA
XEQSUB
XEQ. CL
XEQ.CM
XEQ.IN
XEQ.LA

XEQ.OP
XEQ.PR
XEQ.TE

XXX

XSALWA=
X$FALS=
X$OF
F S=
X$TRUE=
$ENDAD

$SAV2
$SAV3
$SAV4
$SAVS

047534
045044
047216
043306

071074
071114
071320