Digital PDFs

AH-E041B-MC

January 1979

136 pages

Original

7.0MB

view download

OCR Version

6.0MB

view download

Document:	CZRLBB0 RL11,RLV11 CONTROLLER TEST PART 2 JAN 1979 bw
Order Number:	AH-E041B-MC
Revision:	000
Pages:	136
Original Filename:	CZRLBB0__RL11,RLV11__CONTROLLER_TEST_PART_2__AH-E041B-MC__JAN_1979_bw.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

PRODUCT

CODE:

SEQ 0001

AC-E040BR-M(

PRODUCT NAME:

(ZRLBBO RL11/RLV11

DATE

11-0(CT7-78

(REATED:

MAINTAINER:

DIAGNOSTIC

AUTHOR:

CONTROLLER TEST PART

ENGINEERING

DEKNIS

"HE INFORMATION IN THIS DOCJUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND SHOULD NOT BE C(ONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION
ASSUMES
NO
itSPONSIBILITY
FOR
ANY
ERRORS
THAT
MAY APPEAR IN THIS
MANUAL
.
"HE

SOF TWARE

DESCRIBED

THIS DOCUMENT

FURNISHED

THE

PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM
AND (AN BE
(OPIED
(wITH
INCLUSION
OF
DIGITAL'S
C(OPYRIGHT
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ASMAY OTHERWISE BE
PROVIDED

IN WRITING BY DICITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES
NO
RESPONSIBILITY
FOR
THE
JSE
OR
RELJABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS
NOT SUPPLIEL BY DIGITAL.
COPYRIGHT

(C)

1977,

1978,

DIGITAL

EQUIPMENT

CORPORATION

Page 2

2O
N SN

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DJAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPT IONS

N -

.
0

THE SIX STEPS OF EXECUTION
SAMPLE RUN-THROUGH
HOW TO CREATE A CHAINABLE FI.E
DETAILS OF COMMANDS AND SYNTAX
TABLE

COMMAND VALIDITY

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE

HARDWARE

PARAME TERS

ERROR

Pt RFORMANCE AND PROGRESS REPORTS
DEvICE

SOF TWARE PARAME TERS

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

N —

N B WNANNWN =V =2 2O

D
—d aed

.
.
e

INFORMAT
"ON

PROGRAM ABSTRA(T

CONTENTS

“

NuNUNIrORURO
NN PO NUND

GENERAL

TABLE

TECT

INFORMATJON

INFORMATION TAB(ES

SUMMARIES

SEQ 0002

D
Pa

".0

GENERAL

1.1

PROGRAM ABSTRA(T

1.17.7

STRUCTURE OF

THIS

SEQ 0003

INFORMATION

DIAGNOSTIC

PROGRAM

OCCUPIES

14.5K

WORDS

MEMORY

AND

CUMPATIBLE

WITH

BOTH
XXDP
AND
ACT.
IT CAN BE RUN STANDALONE UNDER XXDP, AND (AN 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
A

THE ENVIRONMENT.

PROMPT

ANY OF
THE

C(HARACTER

SEVERAL

SUPERVISOR

THEN IT WILL

(DS B>).

ENTER COMMAND MODE,

COMMAND MODE

THE

INDICATED

OPERATOR MAY

COMMANDS AS DESCRIBED BELOW.
CODING FOLLOWS

IMMEDIATELY

THE

DIAGNOSTIC

TEST

BUT
THE
SUPERVISOR
LISTING
HAS
BEEN
SUPPRESSED
FOR
DISTRIBUTION.
A LIMITED DISTRIBUTION HAS BEEN MADE TO
FIELD
OF
THE
SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED
CF A SOF TWARE PROBLEM.

1.1.2 DIAGNOSTIC
THE

RL11/RLV11T

ENTER

CODING,

GENERAL
SERVICE
IN EVENT

INFORMATION

CONTROLLER

TEST

(PART

PDP-11

(LSI-11)

BASED

PROGRAM
THAT
WILL
TEST
THE
(ONTROLLER.
IT COMPLIMENTS PART 1 BY
EXTENDING THE TEST COVERAGE TO INCLUDE WRITE DATA,
READ
DATA,
WRITE
(HECK
AND
READ
DATA
WITHOUT
HEADER COMPARE.
[T IS AIMED AT FULLY
TESTING THE CONTROLLER IN THESE AREAS, BUT BY DEFAULT
ALSO
EXERCISES

THE DRIVE.

THE

TEST COVERAGE OF

1.2

SYSTEM REQUIREMENTS

1.2.7

HARDWARE REQUIREMENTS

THE PROGRAM 1S EXTREMELY HIGH.

PDP=11/LS1-11 PROCESSOR WITH 16K OR MORE OF MEMORY
CONSOLE DEVICE (LA30,LA36,VT50,ETC.)
RLT1/RLV1T CONTROLLER(S)

1 - 8 RLOT DRIVES
1 - 8 RLOIK CARTRIDGES wITH BAD SECTOR FILE

KWwl1P, kW11{ (OPTIONAL)
L INEPRINTER(OPTIONAL
)

".¢.2 SOF TWARE REQUIREMENTS
-

{ZR.BB RL11/RLVIT

(TiR 2

Page 4

{(FORMERLY MD-11~DZRLB=-A)

1.3

RELATED DOCJUMENTS AND STANDARDS

RLO1

USERS MANUAL

1.4

DIAGNOSTIC

(EK=-RLOT-UG~PRE)

XXDP USERS MANUAL

THE

RLOT

HIERAR(Y PREREQUISITES

SUBSYSTEM

<SHOULD

HAVE

SUCCESSFULLY

RUN

THE

FOLLOWING

PROGRAMS
:

(ZRLABO
1.5

THE

RL11/RLV1TT RLOT

(PART 1)

ASSUMPT IONS

HARDWARE

PROPERLY.

OTHER

FALSE

THAN

THE

ERRORS MAY BE

FUNCTION PROPERLY.

R.L01

OPERATING INSTRUCTIONS

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE

ASSUMED

PROCESSOR,

ETC.,

WORK
DO NOT

SIX STEPS OF EXECUTION

THIS DIAGNOSTIC

PROCEDURES.

SUBSYSTEM

REPORTED

2.0

THE

CONTROLLER TEST

DIAGNOSTIC

THE

SHOULD

HAS

START
THE

WHEN THIS DIAGNOSTIC

LOADED

AND

aTAéTED

USING

NORMAL

COMMAND SHOULD NOT SPECIFY AN ADDRESS,

PROPER

TRANSFER ADDRESS

IS STARTED,

THE

XXDP

BECAUSE

CODED

INTO

IT.

FOLLOWING STEPS

~ILL

OfCUR:

rAREERC RN

CTIE
1

L EZ X2 RN E2 ]

A SHORT

SERIES OF

"WARDCORE QUESTIONS'' WILL

QUESTION

L=CLK

P=CLK

MEANING

(L) N 2
(L)

S0HZ (L) N ?
{SI (LY N ?
LPT (L) N ?
MEM (K) (D) 16 ?
THE DEFAULTS

IS THERE AN L-(LOCK?
"

P~(LOCK QUESTION WIlL

P=(LOCK?

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

(SHOWN AFTER EACH QUESTION)

CARRIAGE RETURN.
IT
ASKED:
FOR EXAMPLE,

BE ASKED:

CAN BE

SELECTED

HITTING

IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL BE
IF YOU SAY
'VES''
TO
THE
L=-CLOCK
QUESTJON,
THE

NOT BE ASKED.

SEQ 0004

F
1
Page 5

I¢* NEITHER P OR L

TYPE

CLOCK ARE ANSWERED YES THE OPERATOR wILL BE ASKED TO

TWO CHARACTERS 4 SECONDS APART.

NEAERS

* STEP 2
A AAAS LSS

WHEN YOU HAVE ANSWERED ALL

ISSJE

THE

PROMPT

THE HARDCORE QUESTIONS,

°'DS=B>'',

THE DIAGNOSTIC WItt

FROM THIS POINT UNTIL

THE TIME WHEN YOU

RESTART XXDP, YOU WILL BE TALKING TO THE
DIAGNOSTI(C,
NCT
XXDP.
WE
WILL
REFER
TO
THE
PRESENCE
OF
THIS PROMPT AS BEING IN DIAGNOSTIC
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE.

AT THIS POINT YOU WILL ENTER A "'START'' COMMAND.
THIS IS NOT THE
SAME
AS
THE
XXDP ''START'' COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO
THE XXDP DOT PROMPT.
THIS
‘''START''
(OMMAND
(AN
TAKE
A
NUMBER
OF
SWITCHES
AND
FLAGS
(ALL
OPTIONAL) AND THE DETAILS OF THESE ARE SET
FORTH

USE

IN "2.3 DETAILS QF

THE PROGRAM,

ALL

COMMANDS AND

YOU NEED

TO SAY

SYNTAX''.

HOWEVER,

IS SOMETHING LIKE

ORDER

COMMAND AT

THE

THIS:

STA/PASS
: 1/FLAGS : HOE
THINGS

TO NOTE

ONLY

HERE:

THE

FIRST

THREE

CHARACTERS OF

THIS OR ANY

"DS-B>'' LEVEL NEED TO BE TYPED.

THE "PASS'' SWITCH SPELIFIES HOW.-MANY PASSES

PASS

CONSISTS

RUNNING

UNITS BEING TESTED

PASS

SPECIFIED

(THIS WILL
IN

THE

ABOVE

FULL

YOU

DIAGNOSTIC

EXPLAINED

DESIRE.
AGAINST

SHORTLY).

MAIN USEFUL

L O
HOc
IER

ALL

ONE

EXAMPLE.

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

ONES ARE:

BUT

LOOP ONE ERROR
HALT ON ERROR
INHIBIT ERROR PRINTOUT

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

{

SHORTLY)
.

824222822

+
LA

STEP 3 »
AR248l

WHEN YOU HAVE TYPED IN A "'START'® COMMAND,
THE
DJAGNOSTIC
WILL
("Mt
BACK
WITH
THE
QUESTION
"%
UNJTS?'"
TO WHICH YOU SHOULD RESPOND BY
TYPING

A WORD OF

OFVICE

THE

NUMBER OF

WARNING HERE:

DEVICES

THE

THE DIAGNOSTIT.

YOU WISH

NUMBER OF

UNITS

FOR EXAMPLE,

TEST.

DEPENDS

THE DIAGNOSTIC

THE

TARGET

IS DIRECTFD

SEQ 0005

Page 6

SEQ 0006

AT A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
DRIVES
TO
Bt
TESTED.
WHEREAS IF THE DIAGNCSTIC WAS DIRECTED AT THE
DISK CONTROLLER, “HEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
CONTROLLERS.
THE
TARGET
DEVICE
OF
A
DIAGNOSTIC
(AN
ALWAYS
BE
DETERMINED BY INSFE(TiNG THE 'HEADER'' STATEMENT NEAR THE BEGINNING
Of
THE
SOURCE
(ODE.
SHOULD BE THE DEVICE

ONE
TYPE

OF
OF

THE
OPERANDS OF
THE DIAGNOSTIC.

THE

THIS 'HEADER'' STATEMENT

L0 A82RSS
S ]

STEP 4

»
A

TR ARENRY

WHEN YOU HAVE

TYPED

CJAGNOSTIC

WILL

$E£¢?6ES“.

ONE

THESE

QUESTIONS

"HERE

ARE

THIS

REPRESENTS

ASK

ARE

SEVERAL

POSED N TIMES,

YOU

USED

THE

NUMBER

TO BUILD

TABLES

HARDWARE

P-TABLE

HARDWARE

QUESTIONS

PHILOSOPHY

WHERE N

IS THE

NEW

'HARDWARE

UNITS

QUESTIONS''."

C(ORE,

THE

ENTIRE

TESTED,

THE ANSWERS

(ALLED

THE

‘'HARDWARE

WILL BE BUILT FOR EACH UNIT TO BE
AND

NUMBER OF

UNITS.
IN

SERIES

DIAGNOSTIC

WILL

ENGIMNEERING.

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

AT
AR AN SRS

* STEP 5 «
L488442
RER 4]

AFTER YOU HAVE
THE

UNITS,

/MSWERED ALL

YOU WILL BE

THE

HARDWARE QUESTIONS

ASKED ‘'CHANGE

Sw?'' If

(SEC

YOU WANT

2.5)

FOR

T0 BF

ASKED

ALL

SOF TWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS
PROGRAM,
e,
If
YOU
WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS,

‘N

2.6),

YOU TYPE "Y' YOU WILL BE ASKED THE

AND

PROGRAM.

THE

ANSWERS

SERIES

THE NUMBER OF

WILL BE PUT

QUESTIONS

WILL

UNITS

TO BE

TESTED.

ANSWERED

THE

SOF TWARE

SOFTWARE

INTO THE
BE

QUESTIONS

SOFTWARE P-TABLE

ASKED

JUST

QUESTIONS,

THF

ONCE,

THE

TYPE
TYPE

(SEC

IN THE

REGARDLFSS

I AAXSRS
S

STEP 6

LAS 4S8

AFTER YOU HAVE

BEGIN
THAT

EXECUTE

(AN HAPPEN

THE

NEXT,

HARDWARE

DEPENDING

TEST (ODE.
ON

WHETHER

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

IF NO ERROR

IS ENCOUNTERED,

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

THEN THE

DIAGNOSTIC

THERE ART
A

SEVERAL

HARDWARL

YOU SELECTED ON

DIAGNOSTI(

WILL

THINGS

ERROR

THE

WI.L

START

CIMPLY

NUMBER OF PASSES AND RETURN T(O (OMMAND

H
1
Page 7

IF AN ERROR IS ENCIOUNTERED,

THEN ONE Of

HOE

REPORTED ON THE

DEPENDING ON THE
SET:

THE

ERROR WILL BE

THE

LOt-SET:

SETTINGS OF

THREE THINGS HAPPENS,

THE HOE AND LOE FLAGS.

DIAGNOSTIC wILL

CONSOLE AND

RETURN TO COMMAND MODE.

THE DJAGNOSTIC 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
AS IF NC ERROR HAD OCCURED.

RESUME

2.7.2 SAMPLE RUN-THROUGH
LET'S SEE HOW ALL THIS WORKS IN-A
REAL
SITI'ATION.
RECALL
THAT
WE
ENTERED
THE
COMMAND
"'STA/PASS.1/FLAGS:HOL®'.
THIS
WOULD BE A VERY
TYPICAL

WAY

TO RUN

THE

gé?ggsEDREQUESTED

AN ERROR

DIAGNOSTIC.

PASS

WILL

iS ENCOUNTERED,

THE

NO ERRORS

EXECUTED

AND

ERROR WilLL BE

ARE

THE

ENCOUNTERED,

PROMPT

REPORTED AND

THE

WiLL
BE
REISSUED (BECAUSE THE HOE §LAG IS SET},
AT THIS POINT
ARE fOUR DIFFERENT WAYS YOU (AN GET THE PROGRAM GOING AGAINS:

2.
3.

ISSUE ANOTHER °'START'' COMMAND

2. 3.4,

ISSUE A "RESTART'' COMMAND
THE

HARDWARE

QUESTIONS ARE

PROMPT

NOT

ASKED)

(EXECUTION

WILL

RESUME

THERE

STFPS

(SAME AS START COMMAND EXCEPT

ISSUE A '‘CONTINUE'' COMMAND

BEGINNING
CONSIST OF

THAT
THt

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

HALT OCCURED.

(THUS GOING THRU ALL

5, AND 6 AGAIN)

THE

WILL BF

NU QUESTIONS ASKED.

ISSUE A "PROCEED'" COMMAND:
INSTRUCTION
FOLLOWING
YHE

COMMAND AND CAN BE

EXECUTION
WiLL
RESUME
AT
THE
ERROR
REPORT (THIS [S A SPECIAL

ISSUED ONLY AT A HALT ON ERROR’.

THE MCSTM TYPICAL THING YO DO HERE IS TO ]SSUE THE
PROCEED,
DIFFERENY FLAG SETTINGS.
PROBABLY YOU WOULD WANT T(Q SAY
PRO/FLAGS: JER:LOE :+NE-Q

BUT

WwiTw

SEQ 0007

I
Page 8
THIS WILL

DO THE

*OLLOWING:

TURN ON THE

[ER

(INHIBIT ERROR PRINTOUT) FLAG

TJURN ON THE LOE FLAG

TURN OFF

RESUME

THE HOE FLAG

EXtCUTION AT

INSTRUCTION AFTER ERROR REPORT

STUDY THE ERRGR OR SCOPE

IT OR WHATE VER.

WHEN YOU'VE SEEN ENOUGH,
OUY
OF
THE
LOOP
AND

YOU WMAY HIT (ONTROL/C.
THIS
WILL
TAKE
YOU
PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE

THREE

(HOICES:

START

RESTART

CONTINIE

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

VYOU wOULD TYPE

WANT

FINISH

AND

RESUME

CON/FL
:HOE : IER=0:L0E-0
AGS
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 Wiite FLOW RIGHT
ON
THRU
NEXT ERROK OF TO END OF PASS.

é:b?gFgND OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN., YOU
7.

START

RESTARTY

YOU WC.nU (HOOSE ONE, DEPENDINC ON WHETHER
HARDWARE GUESTIONS AGAIN.

YOU WANTEL

[If
1[G

THE
THE

HAVE

ANSWER

THE

SEQ 0008

Page 9
DIALOGUE MIGHT LOOK LIKE

5042 (L) N ?
LSI (L) N ?
LPT (L) N ?
MEM (K) (D) 16 °

Y
T
S

UNIT 2

LI SR S

(SR (0) 7
VECTOR (0) ?
BR LEVEL (O) ?
DRIVE (0) 2 1
CHANGE SwW (L) ? N
EggKXXTHARD ERR 00004

TST 003 SuB 002 PC(:004130

THIS POINT

THE

DIAGNOSTIC

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

ERROR WITHOUT PRINTING ANYTHING.
THE

2000

ERROR UNTIL

COO0O00

(D)

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

LRY

DS-B>STA/PASS:1/FLAGS
:HOE

# UNITS

00O

ABOVE

YOU HAVE

LOCATED

LOOPING ON

THE

YOU CAN SCOPE

IT,

THEN “C

oJ7

“C
DS-B>CON/FLAGS: HOE IER:LOE=0
CHANGE SW (L) ?
DZRKXX EOP 1
DS=-B>RESTART/PASS:1
(HANGE Sw (L) ? N

OOTOOO

2800RSARARARESEediislsdzl
iR A2
2222222 22X
R

jo]

.R CZRKXX
DZRKXX
L=CLK (L) N 2

FROM THE

\rAdvhwivivivivivivivivivielviviviviviviolwivlioe)

THE FULL PRINT-QUT

THIS:

SEQ 0009

Page 10

2.2
THE

HOW TO CREATE A (CHAINABLE F]LE
DIAGNOSTIC

CHAIN MODE.

THA

T85R5E120¢ WAY,
YOU'
.

RECEIVED FROM RELEASE

IS WHY

HOWEVER,

[T BEARS
TO

ENGINEERING CANNOT BE

THE EXTENSION 'BIN'' INSTEAD OF

C(REATE

C(CHAINABLE

PROCRAM

RUN

FROM

'BIC''.

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
QUESTIONS AND

COMMAND
(AUSES
THE
DIAGNOSTIC
TO
ANSWERS AND THEN TO HALT, JUST WHERE

BEGIN EXECUTION OF
EQEENg?ggRAgICAS

HERE

IS A

SAMRLE

THE HARDWARE

SITS

DJALOGUE

R UPD?

RESTART:

TEST CODE.

C(ORE

TO AC«OMPLISH

THE

GO
THRU
ALL
THE
IT WOULD ORDINARILY

THIS POINT YOU CAN DUMP

LOAD MEDIUM,

WITH

THE

NEW

THIS:

XXXXXX

*(LR
*| OAD DIAG.BIN

XFER:200
(ORE:0,60€02
*START 200
L=CLK (L) N ?

DS=-B>(CI

# UNITS

(D)

(HANGE SW
PTAE END:
LA RSS2SR

*AT

SRS

(L) ? N
60632

SsRRAds

THIS POINT

*YOU MUST
LA

THE MACHINE

RESTART

202302020320

HALTS AND~»

ADDRESS

XXXXXX*

223222222222

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

(ONTAINING THE

DOING THIS

XXDP COMMAND

THAT

yOU (AN NOW BUILD AN XXDP (HAIN

FILE

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

USING

THt

SEQ 0010

Page 11

2.3

DETAILS OF

2.3.1

TABLE OF

THERE

ARE

SUBSETS OF

rOMMANDS AND SYNTAX

(OMMAND VALIDITY

FOUR WAYS OF

THE

ENTERING DJAGNOSTIC

(OMMAND MODE,

HOW ENTERED

AND DIFFERENT

DIAG COMMAND SET ARE AVAILABLE WITH EACH:
LEGAL

OPERATOR ENTERED

°'KJUN DIAG'

COMMANDS

START
PRINT

DISPLAY
FLAGS

ZFLAGS

D IAGNOSTIC HAS FINISHED ALt
I TS REQUESTED PASSED

START

RESTARTM
PRINT

DISPLAY
FLAGS

ZFLAGS

OPERATOR INTERRUPTED THE

START

DIAGNOSTIC WITH CTRL/C

RESTART
CONT INUE
PRIN:

DISPLAY

FLAGS

ZFLAGS

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART

CONT INUE

PROCEED
PRINT

I
DISPAY

FLAGS

ZFLAGS

2.5.2 CTOMMAND SYNTAX
LA AAARREESSS

SRR

ARl

tsts

YRR R

TR TR

START) /TESTS:TEST=LIST/PAS>:PASS=CNT/FLAGS:FLAG=L]IST/EOP:EOP-TNCR
AR AL

THE

ALSRSl
st
2222222
2T T L LR SRR TR T

DIAGNOSTI(

SPECIFIED.

CORE

EXECUTED

ACCORDANCE

THE MESSAGE “# UNITS?'' IS PRINTED.

WITH

THE

SwWITCHES

THE START COMMAND MAY

BE ISSUED wHEN DIAGNCSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE
FOLLOWING:
A)
OPERATOR TYPED 'RUN DIAGNOSTIC'* B) DIAGNOSTIC FINISHED
EXECUTING () ERROR WAS ENCOUNTERED
WITH
HOE
FLAG
SET
D)
OPERATOR
ENTERED CONTROL/C.

SEQ 0011

M1
Page 1?2
AFTER THE OPERA OR RESPUNDS TO '# UNI'S?'', THE
HARDWARE
DIALOGUE
IS
INITIATED.
WwHEN
IT
IS
COMPLETED,
THE
QUESTIONS
''CHANGE SW?'' IS
ISSUED, AND THE ANSWERS, If CIVEN, BECOME THE NEW DEFAULTS.
THEREFORE
égFAIETSNECESSARY TO RELOAD THE PROGRAM [N ORDER TO RETURN TO THE LOAD
ULTS.

THE

SWITCH ARGUMENTS

ARE

FOLLOWS:

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

NUMBERS

ARE

SEPARATED BY

COLONS.

THE

NUMBERS RANGE

FROM

THE

LARGEST
TEST
NUMBER IN THE DIAGNOSTIC.
THEY MAY BE SPECIFIED IN ANY
ORDER.
TESTS WILL BE EXECUTED IN NUMBERICAL ORDER REGARDLESS
OfF
THE
ORDER OF SPECIFICATION.
THE DHFAULT IS TO EXECUTE ALL TESTS.
"PASS=CNT'* IS A

DECIMAL

NUMBER

INDICATING

PASSES.
A
PASS
IS
DEFINED AS
(ALL SELECTED TESTS) AGAINST ALL

NON-ENDING

EXECUTION..B

LOE
IER
IBE
IXE

HALT ON ERROR,

CAUSING

SEPARATED BY

COMMAND MODE

ERROR IS ENCOUNTERED
LOOP ON ERROR, CAUSING THE
WITHIN

THE

SMALLEST

TO A

LINE

BLOCK

ERROR

WHERE

ENTERED

LOOP

THt

<FLAG>

WHEN

CONTINUOUSLY

C(ODING

(SEGMENT,

PRI

DIRFCT

PNT
BOF
UAM
iSR

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

IDuU

MESSAGES

NUMBER

ELEMENTS OF

COLONS,

TO BE

DIAGNOSTIC

DEFINED

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

DESIRED

"TFLAG-LIST'' IS A SEQUENCE OF

FORM <FLAG>, <FLAG=1>, OR <FLAG-0>,
HAS ONE O” THE FOLLOWING VALUES:

HOE

THE

THE EXECUTION OF THE FJLL DIAGNOSTIC
UNITS
SUMBITTED.
THE
DEFAULT
IS

PRINTER

INHIBIT DROPPING OF UNITS BY DJAGNOSTI(

INTERVENTION TESTS

SEQ 0012

N
1
Page 13
THE FLAGS NAICD OR EQUATED TO 1
ARF
SET,
CLEARzD.
A FLAG NOT SPECIFIED IS C EARED.

THOSE
EQUATED
TMTM O
ARE
IF THE FLAGS SWITCH IS NOT

"EOP-INCR'' IS A DECIMAL NUMBER

HOW

GIVEN ALL FLAGS ARE CLEARED.
PASSES)
DEFAULT

INDICATING

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

L 3222222222202

2323322222322

OFTEN

(IN

TERMS

PASS MESSAGE BE PRINTED.

322222322322232322822322222¢2008322

THE

ettt
idR
il sl

RES(TART)/TEST: TEST=LIST/PASS :PASS=CNT/FLAGS:FLAG=~LIST/EOP:EOP=INCR/UNITS
:UNIT=LIST
8820228222222 2RSS0
020022 d0fRt0RR
R0t Ridt
R RRRRlll S

THE

DIAGNOSTIC

SPECIFIED.

IN CORE

CORE ARE USED.
THE QUESTION ‘‘CHANGF
NEW
DEFAULTS.
THE

ENTERED VIA A)
THE

1S EXECUTED

ACCORDANCE

DIAGNOSTIC

IS FINISHED 8,

THE

HALT ON ERROR ()

START

WHICH UNITS ARE

TESTED.

THRU N

DESTGNATES

THE ORDER
NOT
HAVE

THE

SWITCHES

THE ONES IN

(N - NUMBER OF

CONTROL/C.

COMMAND EXCEPT:

"UNIT=LIST'" IS A SEQUENCE
FROM

WITH

INSTEAD,

SW?'' IS ASKED, AND THE ANSERS IF GIVEM BECOME THE
COMMAND
MAY BE [SSUED WHEN COMAND MODE HAS BEEN

SWITCH ARGUMENTS ARE

HOWEVER, NEW P-TABLES ARE NOT BUILT.

LOGICAL

UNIT

UNITS BEING

THE

NUMBERS

TESTED)

LOGICAL

RANGING

SPECIFYING

UNIT

NUMBER

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

IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED MUST
BEEN
DROPPED
BY
THE OPERATOR DROP (OMMAND.
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

"HE

(WHERE

NEXT RESTART.

IS AUTGMATICALLY RESET

ALL UNSPECIFIED FLAG SETTINGS ARE

TO "‘ALL')

UNCHANGED.

'tttttttiittfiitfitt”titfittttfifiittt*‘ttfi'fitt

CONCTINUE ) /PASS : <PASS=CNT/FLAGS:
<FLAG-LIST>
AA AR R RN

TR AR AN AN AR R AR ARTN RN N AN

AR AN RN

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

SOF TWARE
DIALOGUE
MAY OPTIONALLY BE REEXECUTED.
MAY NOT BF CHANGED.
THE

SWITCH ARGUMENTS ARE

FOR PASS=(NT

IN
IS

THE

START

THE

PLACE.

COMMAND EX(EFT:

DEFALT

¢.

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PREVIOUS START OR RESTART

TOOK

HARDWARE PARAMETERS

UNSATISFIED

PASS=IN"

FRTM

THE

SEQ 0013

Fage

\AAAARAARAAAARRARRSRRZR
2R

PRO(CcED)
/FLAGS : <FLAG=LIST>
LA A ARAAALAAAAARRRRdll
2D

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

THE

SAME

THE

START

COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

RSl

2222222222822 2222282

CCI/TEST:TEST~LIST/PASS:PASS~CNT/FLAGS:FLAG-LIST/EOP:EOP-INCR
LASALARSALRAR

adds

222238222

2222

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

MEDIUM WITH A BIC EXTENSION.
THE BIC

FILE MUST BE

RUN

MANUALLY

THE

PRE~-GENERATED

HANDLED DIFFERENTLY DEPENDING ON

CHAIN

MODE.

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

WHETHER

IT CAN BE

INVOKED

IT WILL BEHAVE LIKE THE BIN FILE:

THE

PRE~GENERATED

IGNORED)

OPERATOR

ANSWERS

RUN _IN CHAIN MODE,

;lE?G‘I'ISSTgE XXDP
UED.

ANY SWITCHES
FILE
IS
WILL NOT

RUN MANUALLY

TO OPERATOR QUESTIONS WILL BE

U{TH SE.REESEI;‘)\RT“ (IN WHICH CASE

WwILL

AUTOMATIC EXECUTION

COMMAND ''.R DIAG''.

SPECIFIED ON THE

CCI

THE

WwILL

COMMAND WILL

RUN
IN CHAIN MODE (EXCEPT THAT UAM
CARRY OVER WHEN [T IS RUN MANUALLY.

TO DO A CCI

ON A FULL

SIZED DIAGNOSTIC

LARGER
THAN
16K IS REQUIRED.
UTILITY IS USED TO EXECUTE THE

COMMENCE

COMMAND PROMPT

IMMEDIATELY

'DS-8>"°' WILL

CARRY OVER WHEN

ALWAYS

(14.5K WORDS),

SET

NOT

THE BIC

THERE)

MACHINE

BUT

SIZE

THE EXACT SIZE NEEDED DEPENDS ON WHICH
DIAGNOSTIC AT CCIl TIME.

AR AAN RN AN AR AT RN

DRO(P)
7 INITS:UNIT-LIST
AERARC
A A AR AR
EST
ERN

THE

UNITS

ggOCg'EngL

SPECIFIED ARE

START

DROPPED

(OMMAND

FROM

TESTING UNTIL

IS GIVEN.

THEY ARE

A DROP CANNOT BE

ADDED BA(K

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 DRNF,
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART,

SEQ 0014

Page 15
\AAA2R2ARR
2222 dR
2

ADD/UNITS:UNIT=LIST
AR AN AN EARIRER
NN P Y

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

BEEN
PREVIOUSLY
AN ADD CANNOT BE

A PROCEED.

LA 8 44281

PRI(NT)
LA A2

ALL

ISR

STATISTICS

TABLES ACCUMULATED BY

(INHIBIT STATISTICAL REPORTING)

THE

DIAGNOSTIC

FLAG 1S CLEARED.

ARE PRINTED.

THE

LA8020222202222
X2 2]

DIS(PLAY)/UNITS:<UNIT~LIST>
LA

RSl ddRdtldddld
sl

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN
FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPEC BY

OPERATOR 'DROP’’ COMMAND ARE SO DESIGNATED.
L8 8. & 82

THE
THE

FLA(GS)
AR NRY

THE

CURRENT

SETTINGS OF

ALL

FLAGS ARE

PRINTED.

ARRETATRY

ZFL (AGS)
L2 2 8022
34

ALL

2.4
THE

FLAGS ARE

CLEARED.

EXTENDED P-TABLE DIALOGUE
FULL

CAPABILITY OF

FOLLOWING DISCUSSION OF
AS SOON AS

SAY)

SPACE

THE

HARDWARE

WHAT HAPPENS

DJALOGUE

THE QUESTION "# UNITS?'* IS ANSWERED

IN CORE

INTERNALLY.

REVEALED

(WITH

IS AI LOCATED FOR N P-TABLES.

THE

ALL OF

ARE OF THE SAME FORMAT,
AND
THERE
IS
A
ONE-TO-ONE
?SA:EEN
THE HARDWARE PARAMETER QUESTIONS AND "HE SLOTS

NUMBER

THE

THE P-TABLES

CORRESPONDENCE
IN

THE

P-TABLE

SEQ 0015

Page 16
ON_THE FIRST

P-TAB_ES

ARE

TRIP THRU THE QUESTIONS,
FILLED.

THE

ALL OF

OPERATOR

THE SLOTS IN ALL

TYPES

IN LESS

THE

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
VALJE IN ANY OF TS 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 T0
THE STRING
6.7,8,9,10
(AN
INCREMENT
OF
1).
IF
THE
VALUES
ARE

ADDRESSES,

THE

SAMPLE

INCREMENT
-OF 2).

RANGE

TRANSLATES

THE

STRING 6,8,10

(AN

NOW LET US SEE HOW WE COULD LUSE 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

VALUE

FOR

THE

NUMBER

SECOND

FOR

PARAMETER

ALL

TABLES.

FEQUAL

LET

THE

(1,2,3,...,64) EXCEPT FOR UNIT SO, WHICH SOULD RECEIVE THE

THE

UNIT

DESIRFD

NUMBER

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)

UNIT 1

UNIT 21

<QUESTION

WOULD

2
?
?

75
1-20
76

<QUESTION 2> ? 21-4G,,57-64
<QUESTION 3, 2 77

ACCOMPLISH

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

CONSTANT 76 IN ALL

THE

SECOND

TIME

AFFECTED

TABLES

THRU THE

THE

THAT

TABLES 21

THE

DIALOGUE

THRU 64,

THRU

SERIES,

64.

TABLES 21

THIS PIECE OF

FORM 'UNIT

IS RESPONDED

64 TABLES.

(NOTE

THE OPERATOR

QUESTION 1

XX'' AT

SLOT

THRU

THREE

THE

END ART

GOING

SO SLOT ONE

EACH SERIES).

STAYS A CONSTANT

SINCE NO NEW EXLICIT VALUES ARE TYPED IN.

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

64.

SLOT

SO,

AND GETMS THE VALUES 51,52.53,....64

TERMINATED

2.5
THE

HAVE

wHEN

BEEN

THE

GIVEN

SOFTWARE

FOR

RECOGNIZES

THRU

THAT

AT LEAST ON QUESTION
'

SLOT

GETS

IN TABLES 51

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

EXPLICIT
VALUES
QUESTION 2).

T0O

INFORMATION IS PRINTED OUT FOR

THE BEGINNING OF

TO BY A <CR>,

ALL
64
THRU 20
RECEIVES
A

(NAMELY

HARDWARE PARAMETER>
FOLLOWING QUESTIONS WILL

ASKED

ON A

START

LOCATED
TO
THE
LEFT
OF THE QUESTION MARK
WILL BE TAKEN OM A CARRIAGE RETURN RESFONCE.

RL1T

(L)

COMMAND.

THE

VALUE

DEFAULT VALUE

THAT

¥?

ANSWER YES(Y) IF YOU HAVE
RLV"1 CONTROLLER.

BUS ADDRESS

(0)

AN RL11

(0)

CONTROL.ER,

NO(N)

YOU

HAVE

RESTART,

CUNTINUE

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR

“HE

CONTROLLER.

330?

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER.
BR LEVEL

(O)

ANSWER WITH

THE

DRIVE

(0)

INTERRUPT

THE

CONTROLLER.

TO THE

CONTROLLER.

ANSWER WITH THE DRIVF(S)

2.6

PRIORITY OF

CONNECTED

SOF TWARE PARAMETERS
FOLLOWING QUESTIONS ARE

ASKED

REQUESTED ON A START,

CONTINUE.
THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES.
THE
SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBIL!TY IN THE WAY
T
RUNS.

THE
PARAMETERS
ANSWERING (Y)ES

(AN
BE
MODIFIED ON A START,
TO THE FOLLOWING QUESTION:

RESTART,

SEQ 0017

F
2
Page 18
CHANGE

S.w.

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE PARAMETER QUESTIONS, WITH
THE
PRESENT
DEFAULT
VALUE PRINTED TO THE LEFT OF THE QUESTION MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN ON A <(CR>.
$g2¥ROL
Z
("7
Wltl
DEFAULT
ALl REMAINING QUESTIONS AND START THE

DROP ON ERROR LIMIT
TO ALLOW THE UNIT
ARE ENCOUNTERED.
ANSWER

ERROR L IMIT
NUMBER OF

TO BE

¥?
DROPPED ONCE

(D)

AUTOSIZE

(L)

SEE

UNIT

ACTUALLY

EXISTS

NOT UNIT wlLL NCT BE

SPECIFIED

TESTED.

BEFORE

TESTING

1IT

Y OR N

(OMPARE DATA ON DCK
WHEN A DATA (HECK

COMPARISON OF

DROPPING UNIT.

TG 65K

READY),

ANSWER

ERRORS

10?

ERRORS ALLOWED BEFORE

(VIA DRIVE

A PREDETERMINED NUMBER OF

Y OR N

ANSWER 1

(HECK

(o)

(L)

IS ENCOUNTERED AND DATA

DATA.

IS KNOWN,

ALLOW

INCORE

ANSWER Y OR N
# OF

WORDS

[N ERROR REPORTED

NUMBER OF MISCOMPARES

(D)

TO BE PRINTED ON CONSOLE DEVICE.

ANSWER O - 128

3.0 ERROR INFORMATION
ALL ERROR INFORMATION IS PRINTED ON THE CONSOLF DECIVE.
ERROR REPORTS
ARE AIMED AT BEINC SELF EXPLANATORY.
THE GENERAL FORMAT IS:

DZRL?

XXX

ERR

yYYYy

TST

777

WwHE RE :

XX X

IS PROGRAM LETTLR

IS SFT = SOFT ERROR
HRD = HARD ERRCR

SUB

PPP

P({:

RRRRRR

SEQ 0018

Page

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

YYYYY

122
opp

THE

ERROR NUMBER

THE

PROGRAM LISTING LOCATION

IS THE TEST NUMBER
IS THE SUBTEST NUMBER

RRRRRR

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR
ALONG wITH A ONE

LINE DESCRIPTION AND RELEVENT

DATA.

:
EXAMPLE
ONc

LINE DESCPIPTION

(OPTIONAL
(GPTIONAL

SECOND LINE)
THIRD LINE?

BEFORE COMMAND: CS:XXXXXX BAXIOOXX DA XXXXXX MP: XXXXXX
TIME OF ERROR:
(S:XXXXXX BA XXX DA OO MP O XXXXXX XXXX XX

3.2 ERROR HALTS
ERROR HALTS ARE
/FLAG:HOE.

SUPPORTED PER DESCRIBED

THERE

ARE

4.0 PERFORMANCE

AND PROGRESS REPORTS

4.1

REPORTS

PERFORMANCE

THIS PROGRAM WILL

NCT

THE

SECTION

wlTH

NO OTHER HALTS.

GIVE

ANY

PERFORMANCE

GIVE

ANY

PRCGRESS

REPORTS.

4.2 PROGPESS REPORTS
THIS

PROGRAM wliLL

5.0 DEVICE

NOT

RFPORTS.,

INFORMATION TABLES

THE RLTi/RLV11 CONTROLLER HAS
CONTRC. OfF THE SUBSYSTEM,
RLLS

CONTROL

AND

THE

FOLLOWING

STATUS REGISTER

FOUR(4)

(XXXXX(0)

BIT 15 - COMPOSITE ERROR

BIT

14 -

RIVE ERROR

BIT 13 - NON EXISTANT MEMORY ERROR
BIT 12 = HEADER NOT FOUND (WITH BIT 13 SET)
- DATA LATE

BIT i1 BIT 10 -~
BIT
G/8

(WITH BIT 10 CLEAR)

HEADER (RC (WITH BIT 10 SET)
DATA (RC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE
- DRIVE SELECT (0=3)

REGISTERS

FOR

SEQ 0019

Page 20

BIT

7 - CONTROLLER READY

BIT

6 -

BIT

_4 - EXTENDEC BUS ADDRESS

BiT

INTERRUPT ENABLE

5 = EXTENDED BUS ADDRESS

BIT 3-1

(BIT 17)

- FUNCTION CODE
0 = NOP (PDP=11) MAINT
1

= WRITE

= READ HEADEF

(BIT

CHECK

16)

(LSI-11)

2 = GET DRIVE STATUS
3 - SEEK
S = WRITE DATA

g - READ DATA
READ WITHOUT HEADER

BIT

(OMPARE

O - DRIVE READY

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

ADDRESS REGISTER

FOR READ/WRITE

(XXXXX&)

FUNCTIONS

BIT 15 = MUST BE ZERO(0)

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

BIT
BI"
BIT
BIT
61T
BIT
8IT
BIT

15 = MUST BE ZERO(0)
14=7 - DIFFERENCE TO NEW (YL INDER
6=5 = MUST BE ZERO(0)
4 = SURFACE
\
3 - MUST BE ZERO
2 - SEEK DIRECTION( 1 = IN / 0 = OUT
7 - MUST BE Z2ERO
0 - MUST BE ONE(1)

FOR GET STATUS FUNCTION

BIT
BIT
BIT
BIT
BIT

15-4 - IGNORED SHOULD BE ZEKO
3 - DRIVE RESET
2 = MUST BE ZERO
1 = MUST BE ONE
C = MUST BE ONF

)

SEQ 0020

Page 21
RLMP - MULTIPURPOSE

FOR READ/WRITE

sEa 0021

FUNCTION

BIT 15 ~ O = WORD COUNT(TWO'S COMPL IMENT)
FOR READ HEADER FUNCTION

BIT %5-0 - DISK HEADER Of SECTOR (F]RST READ)
- ZERO WORD (SECOND READ)
~ HEADER CRC

FOR GET
G

STATUS FUNCTION
T

|
I
O
D
O
IO SO RN RO R
| N SO R

) cmnd el wad
)
—d

INSION
N0 DO =PI S W

- T

STATLS

WRITE DATA ERROR
CURRENT HEAD ERROR(CHE)
WRITE LOCK STATUS(WL)
SEEK TIME OQUT(SKTO)
SPIN ERROR(SPE)
WRITE GATE ERROR(WGE’
VOLUME CHECK(V()
DRIVE SELECT ERROR(DSE’
(0)
RESERVED

SURFACE
COVER OPEN

HEADS HOME

BRUSHES HOME

]
A
I
I

SIOR
N SN ANN) -

2~0 -STATE BITS
U - LOAD STATE

)
Y

et —4

N
Y
N

e —f
e
e
e

ey ey
e

e o

Y
N
e
N
L

ot ot ot o

DODTODODTOROODDD

HAS DRIVE

(THIRD READ)

SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK = TRACK COUNTING
SEEK = LINEAR MODE
UNLOAD HEADS
SPIN DOWN

6.0 TEST SUMMARIES

TEST 01 -~ WRITE NPR INTEGRITY

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL NOT CAUSE

A BUS

TRAP THEREFORE

VERIFYING

CONTROLLER AND PROCE SSOR,

TEST (2 = WRITE FUNCTION

THE NPR LOGIC BETWEEN

THE

Page 2¢
THIS

TEST WILL VERIFY

THAT

THE

WRITE

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

TEST 04 - PROPER

INCREMENT OF

RLBA ON WRITE

WILL

THAT

TEST

VERIFY

THE

TEST 05 - PROPER

FUNCTION WILL GENERATE

BUS ADDRESS REGISTER

PROPERLY ON A WRITE FUNCTION.

INCREMINTS

INCREMENT OF RLDA ON WR.TE

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

TEST

PESET

FUNCTION INTERRUPT

THIS TEST WILL VERIFY THAT THE WRITE
AN INTERRUPT ON COMP.ETION.

THIS

FUNCTION wILL

DISK ADDRESS REGISTER

INCREMENTS

06 - FORCE HEADER NOT FOUND W!TH WRITE
THIS TEST WILL FORCE A HEADER NOT FOUND ERRUR ON A WRITE.
THE
RLDA IS SET UP TO LOOK FOR SECTOR 40, A WRITE 1S THEN ISSUED.
THE HEADER NOT FOUND ERROR SHOULD THEN SET.

TEST 07

- FORCE INTERRUPT WITH HNF
THIS

TEST

WILL

FORCE

CONTROL
.
TEST 08 - CHECK OPI
THIS

THIS

FOUND

DONE

TIME

THE

ISSUING

SETTING OF

A WRITE

SHOULD BE AROUND 200 MILLISECONDS.
TEST 09 -~ MULTIPLE

THIS

ONE
TEST

TEST

SECTOR

UNDER

INTERRUPT

HNF

(OPI)

SECTOR

40G.

FROM
THE

]SSUANCE.
TIME

OPI

TRANSFER ON WR]TE

THE ABILITY FOR

SECTOR.

ERROR

TIME WITH HNF

TEST WIL.
IS

A HEADER NOT

THE

WRITE

FUNCTION

TO WRITE

WE SET UP FOR A TWO SECTOR WRITE.

10 - CHECK DIRECTION OF

THAN

WRITE NPR

THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A WRITE FUNCTION IS FROM MEMORY TO THE CONTROLLER.
THIS IS DONE BRY
WRITING A PATTERN IN MEMORY AND ISSUING A WRITE, THEN CHECK NG
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED.

SEQ 0027

Page 23

TEST

- CHECK FULL
THIS

TEST

INCREMENT OF RLBA

WItL

16 BIT RANGE.

CHECK

THIS

THAT

THE

IS DONE BY

RLBA

CAN

INCREMENT OF

CHECK _EACH BIT TOGGLE FROM 1-0 AND 0-1.
TO 177776 REGARDLESS OF MEMORY SIZE.
TEST

12 - BA BIT
THIS TEST

13 - BA BIT
THIS

BIT

WILL

CHECK

IS DONE

FROM O

THAT BUS ADDRESS BIT

16 WILL

SET

THAT BUS ADDRFSS BIT

17 WILL

SET WHEN

ANL THAT

THE RLBA GOES TO 0.

WHEN

THE

17 INCREMENT

TEST

WILL

CHECK

16 AND THE RLBA ARE

TO GO TO ZERO.

TEST

THIS

FULL

16 INCREMENT

RLBA [S 177776.
TEST

THE

ISSUING A ONE WCRD WRITE

14 = READ NPR

SET.

THE RLBA AND BIT

16 ARE CHECKED

INTEGRITY

THIS TEST WILL VERIFY THAT "HE READ FUNCTI?? WILL NOT CAUSE
A BUS TRAP THEREFORE VERIFYINC TM = NPR L 0G
BETWEEN THE

CONTROLLER AND PROCESSOR.

TEST 15 = READ FUNCTION
THIS

TEST WILL

VERIFY

THAT

THE

KEAD FUNCTION WwltL

RESET

READ

GENERATE

CONTROLLER READY AND POST NO ERRORS.
TEST

= READ FUNCTION

INTERRUPT

THIS TEST WILL VERIFY THAT THE
AN INTERRUPT ON COMPLETION.

TEST

= CHECK DIRECTION OF

FUNUTION WiLL

READ NPR

THIS TEST WILL VERIFY THAT THE NPP DIRECTION OF A READ FUN(C~
TION IS FROM CONTROLLER TO THE MEMORY,
THIS IS DONE BY
WRITING A PATTERN IN MEMORY AND ISSUING A READ, THEN (HECKING

MEMORY TO VERIFY THAT
TEST

18 = PROPER

INCREMENT OF

IT DID NOT GET DISTURRED.

RLBA ON READ

THIS TEST WILL VERIFY THAT THE
PROPERL
Y ON A RFAD FUNUTION.

BUS ADDRESS REGISTER

INCREMENTS

SEQ 0023

Page 24
TEST 19 -~ PROPER

INCREMENT OF

RLDA ON READ

THIS TEST WILL VERIFY

PROPERLY ON A READ

TESY 20 - FORCE
THIS

RLDA
THE

TEST 21

TEST

WILL

THE DISK ADDRESS REGISTER INCREMENTS

fOUND WITH READ

FORCE

A HEADER NOT

FOUND ERROR ON A READ.

[S SET UP TO LOOK FOR SECTOR 40,

HEADER NOT

= FORCE

THIS

HEADER NOT

THAT

FUNCTION.

FOUND ERROR SHOULD

INTERRUPT

TEST WwILL

CONTROL
.

TEST 22 - (HECK HEADER

A READ

THEN SET.

WITH HNF

FORCF

A HEADER NOT

(OMPARE

FOUND ERROR UNDER

INTERRUPT

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

SECTOR

!SSUING

CAN COMPARE.

TRANSFER ON READ

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

TKE

THEN ISSUED.

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 TWwO

SECTOR READ AT SECTOR 39,

TEST

25 = FORCE NON-EXISTANT MEMORY ERROR
THIS TEST WILL CHECK THAT THE NON-EX]STANT MEMORY ERROR (NXM)
(AN SET.
WE WILL ISSUE A READ TO THE MAX]IMUM ADDRESS AND
EXPECT A NXM ERROR.
(THIS TEST WILL NOT BE DONE ON A 128k

MACHINE.)

TEST 26 =~ FORCE

THIS

NXM UNDER

TEST

TEST WILL

= (HECK

WILL

INTERQRUPT

ATTEMPT

TO FORCE

INTERRUPT

NOT BF DONE ONA 128k MA(CHINE.)

READ WRITF LOOP

VIA NXM.,

(TH]3

SEQ 0024

Page 25

THIS

TEST

WILL

WRITE

IT WITH A WRITE.
TESY 28 - CHECK OF

TEST

TO SECTOR O AND

TRY

TO RECOVER

SILO LINES

THIS TEST WILL CHECK
PATTERNS VERIFY THAT

;!ED

A PATTERN

TOGETHER.

THIS

THAT WE CAN WRITE AND READ UNIJQUE BIT
THE | INES ON "HE SILO ARE NOT STUCK OR

IS DONE WITH WALKING AND GROWING 0'S AND

29 = (HECK THROUGHPUT OF

SILO

THIS TEST WILL ATTEMPT TO CHECK THAT THE FALL THROUGH OF THE
SILO IS WORKING CORRECT_Y.
WE WRITE A SECTOR OF 128 UNIQUE

zfinggggEé¢D READ

TEST

[T BACK

(HECKING

THAT

EACH LOCATION

IS UNIQUE

30 = CHECK ZERO FILL ON WRITE
THIS TEST WILL CHECK THE ABILITY Or 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 ZEROC.

TEST

= CHECK SECTOR BITS ON HEADER COMPARE
THIS
THIS

TEST WILL CHECK THAT THE SECTOR BITS (AN COMPARE CORRECTLY.
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

THE

THIS

(HECK

WILL

FUNCTION WlTHOUT

TEST

IS SET UP TO HANDLE BUS

TRAPS.

TEST

WILL

CHECK

SPECIFIED

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

TEST

EACH SECTOR IS READ TO VERIFY THF SECTOR HAS
IF NOT THEN THE SECTOR BITS ARE NOT (OMPARING

INTERRUPT

(AN BE

GENERATED FRCM

35 - PROPER INCREMENT OF RLBA ON WRITE CHECK
THIS

1EST

WILL

CHECK

THAT

THE

RLBA

INCREMENTS PROMSRLY

DURING A

SEQ 0025

Page 26
WRITE
TEST

CHECK,

36 = PROPER INCREMENT OF RLDA ON WRITE CHE(K
THIS TEST WiLL

WRITE
TEST

CHECK.

CHECK THAT THE RLDA INCREMENTS PROPERLY DURING A

37 = MULTIPLE SECTOR WRITE CHECK

YFTUS ¥§g€ wiLL (HECK THAT WE CAN WRITE CHECK MORE THAN ONE SECTOR
L)
.
TEST

38 ~ FORCE DCK WITH WRITE CHECK
THIS

TEST WILL

WRITE

CHECK.

TEST

THIS

CHECK

THAT WE

CAN DETECT A DCK DURING A WRITE

IS DONE BY MODIFYING MEMORY BETWEEN A WRITE AND A

39 - FORCE DCK WITH WRITE

CHECK

INTERRUPT

THIS TEST WILL CHECK THAT A DCK DURING A WRITL
AN INTERRUPT TO OCCUR.
TEST

40 = CHECK ZERO FILL ON WRITE WITH WRITE
THIS

TEST WILL

VERIFY

WORD COUNTS FROM 1
TEST 41

THAT

- 42 - EXTENDED CHECK OF
THESE

TERNS.,

TESTS VERIFY

WwE

- 127,

THAT

WRITE
WE

CAUSE

CHECK

CAN SUCCESSFULLY WRITE

CHECK ALL

CHECK

(AN WRITE

CHECK

PATTERNS USED ARE WALKING 1'S,

TEST 63 =~ READ WITHOUT HEADER

(HECK WILL

0'S,

SUCCESSFULLY

GROWING 1°'S,

ALL

PAT-

0°S.

(QOMPARE

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

ADDRESS IS SET

TO ALL ONES.

TEST 4 = READ WITHOUT HEADER COMPARE
THIS

TEST WILL

(OMPARE

(7)

VERIFY

THAT

THE

INTERRUPT

FUNCTION READ WITHOUT HEADER

CAN GENERATE AN INTERRUPT ON COMPLET]ON.

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

TEST

CHECKS

THAT

THE

FUNCTION CAN ACTUALLY RECOVER DATA,

WE WRITE A PATTERN IN MEMORY AND (HE(K
OVERLAY [T WITH DATA,
TEST 46 =

(HE(K RLBA

THAT

IN(REMENT WwlTH RD w’'C HDR (MP

THE

FUNCTION CAN

SEQ 0026

Page 27
THIS TEST (HECKS THAT

FUNCTION.

THE RLBA CAN INCREMENTM PROPERLY ON THE

TEST &7 - CHE(x RLDA DOES INCREMENT
THIS TEST (HECKS THAT THE RLDA DOES INCREMENT WITH THE
FUNCTION READ wITHOUT HEADER COMPARE.

SEQ 0027

15:35

MAIN.
MACYTY 3CA(1052)
22-NOvV~-78
CZRLBB.P11
22-NOvV-78 15:28

1??
22
227
334
580
723

757
819
1056
1107
1163
1205
1248
1291

1334
1390
1453
1506
1564

1614
1670
1726
1769
1803
1843
1905
1945
1987
2026
2075

2206
2265
2301
2344
23N

2477

2574

2670
2775
2887
297C
3035
3106
3179
3252
3338
3411
3495
3572
3653
3734
3764
2800

3867
3908

TABLE

CONTENTS

SEQ 0028

GLOBAL DATA

LIST TO CHECK HEADER COMPARE LOGIC

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

ROUTINE TO
LOAD RLCS
**TEST T2
*xTEST 2%x
*«TEST 3wx
x«TEST 4ox
*&«TEST Sex
**TEST 6vn

**TEST
**TEST
«+TEST
r«TEST
»«TEST

**TEST
**TEST
*2TEST
**TEST
*«TEST
«*TEST
*«TEST
*«TEST
«*TEST
«xTEST
wxTEST

CHECK FOR CONTROLLER ERRORS

= WRITE NPR INTEGRETY
- WRITE FUNCTION
- WRITE FUNCTION INTERRUPT

- PROPER INCREMENT OF RLBA ON WRITE

- PROPER INCREMENT OF RLDA ON WRITE
- FORCE HEADER NOT FOUND WITH WRITE

7% ~ FORCE HEADER NOT FOUND WITH WRITE
8xr
~ CHECK OP] TIME WITH HDR NT FND
9ax ~ MULTIPLE SECTOR TRANSFER ON WRITE
10+« - CHECK DIRECTION OF WRITE NPR
112x - CHECK FULL RLBA INCREMENT
12%x - BA BIT 16 INCREMENT
13xn - BA BIT 17 INCREMENT
14%x - TEST READ NPR INTEGRITY
15%x - READ FUNCTION

16%+ - READ FUNCTION INTERRUPT
17%x - CHECK READ NPR DIRECTION

18%x*x - PROPER INCREMENT
19xx - PROPER INCREMENT
20xx - FORCE HEADER NOT
21xx - FORCE HEADER NOT

«xTEST
weTEST
*xTEST
*xTEST
*xTEST

22%+
23+«
24x«
25%%
26*+
27xx
28%xx

**TEST
**TEST
*xTEST
*xTEST

3oxx
334x
34xx
35%«

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

36%x
37x»
38+
39%x
40x+
4Ll%x
42%w
43xx
4L4xx

RLBA ON READ

RLDA ON READ

FOUND WITH READ

CHECK HEADER COMPARE F0GIC

INTERRUPT

CHECK MULTIPE SECTORS ON READ

FORCE HDR NT FND AT END OF TRA(CK
FORCE NON-EXISTANT MEMORY ERROR
FORCE NON-EXISTANT MEMORY ERROR INTERRUPT

CHECK
CHECK
x4« TEST 29%x - CHECK
**xTEST 30%x - CHECK
*«TEST 3Tan - CHECK
*xTEST

INTERRUPT

READ WRITE LOOP
SILO LINES
THROUGHPUT OF SILO
ZERO FILL ON WRITE
SECTOR BITS OF HEADER COMPARE

WRITE CHECK NPR INTEGRETY
WRITE CHECK FUNCTION
WRITE CHECK FUNCTION INTERRUPT
PROPER INCREMENT OF RLBA ON WRITE
PROPER INCREMENT OF RLDA ON WRITE

MULTIPLE SECTOR WRITE CHECK
FORCE DCK WITH WRITE CHECK
FORCE

DCK WITH WRITE

CHECK

CHECK
CHECK

INTERRUPT

CHECK ZERO FILL ON WRITE WITh WRITE (HE(K
EXTENDED CHECK OF WRITE CHECK FUNCTICN
EXTENDED CHECK OF WRITE CHECK FUNCTION

READ WITHOUT HEADER COMPARE FUNCTION
READ WITHOUT HEADER COMPARE FUNCTION

**TEST 45+« -~ CHECK RD W/0 HDR (MP ACTUALLY READS

INTERRUPTM

*«TEST 4bxr - (HECK RLBA INCREMENT WITH RC W/0 HDR (MP
s TEST 47%% - CHECK RLDA DOES INCREMENT WITH RD W/0 HDR (MP

MAIN.
MACY1T 30A(1052)
22-NOV-78
CZR.BB.SUP
23-0(T1-78 09:52
«015

CIAGNOSTIC

15:35
TABLE OF

SUPERVISOR == LOw CORE

CONTENTS
SET uP

SEQ 0029

22-NOV-78

062000

002000

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

BGNMOD

MDHEDR
HEADER
JASC]]
JASCI]
LASCI!
LASCI]
LASCII
BYTE
BYTE
BYTE
LASCI]
LASCI]
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

BYTE
BYTE

002064

002114

(4)

002066

00000C

(4)

002072

002112

(41

002070

002074

002112

000000

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

(Z°tRB,R,0,60,60,4,RLO1

/C/
/7/
/R/
/L/
/B/

0
0
0

/B/

/0/

L $HARD
LSSOFT
LSHW
—

002000

Sv(

000000
000000

.=2000

002000

(4)

PAGE 1

.ENABLE AMA
.ENABLE ABS
NLIST
ME,(ND ,MD

(4)

15:35

—wm

23
24

30A(1052)

QOO OO0 —rr
el
gl

RO
— =

N —= OO 00NN
INAN 2

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

$DISPAT(H

CSREVISION
CSEDIT
60

60
0
0
0
LSDVTYP
0
L$DR
LiDRST
0

SEQ 0030

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28
(4)
(5)
(4)
(4)
(%%

002076
002100
002102
002104
002106

32
33
34
35

002110
002110

002116
00211

000000
00000

37
(3)

002114
002714

046122

38
39

00212¢
002122

(5)
(%é

(2)

40
41

42
43

46
45
46
47

48
49
50

31
52
53
54

55
56
57
58
59
60
61
62
63
64

67
68
?8

*5:35

-WORD
.WORD
.WORD
.WORD
.WORD

PAGE

1-1

SEQ 0031

L$DU
14
O
LSINIT
LSCLEAN

ENDMOD

002122

DEVREG

030460

000
BGNMOD

.WORD
.BLKW

DEVTYP
LASEIZ

<RLO1>
/RLOV/

.EVEN

GLBEQAT
EQUALS

000001

DRDY=BiTO

;DRIVE READY

100000
040000

ERR=BIT15
DERR=BIT14

;R_11
;RLO1

000100

002000
000200
000040
000020

020000
000000

000400
001G00
001400

000000

000002
000004
000006
000010
000012
000014
000016
000202
000010
000002
000001
000004
000100
000100
000020
000000

73
74
;5

002004
000006
000010

¢
7

22-NOv-78

020104
000014
000000
017140
020010

30A(1052)

000002

INTEN=B]T6

OPI=BIT10
(RDY=BIT7
BA17=BITS
BA16=B]T4

NXM=B]T13
DS0=0
DS1=BIT8

0S2=BIT9
DS3=BIT8!BITY
NOOP0=0
WRCHK-BIT1

(RLCS)

; INTERRUPT ENABLE

(RLCS)

ERROR (RLCS)
DRIVE ERROR (RLC(S)

;OPERATION INCOMPLETE (RLCS)
:CONTROLLER READY (RLCS)
;EXTENDED ADDRESS BIT 17 (RLCS)
:EXTENDED ADDRESS BIT 16 (RLCS)

;NON=-EXISTANT MEMORY (RLCS)
;DRIVE SELECT 0 (RLCS)
;DRIVE SELECT 1 (RLCS)

;DRIVE SELECT 2 (RLCS?
;DRIVE SELECT 3 (RLCS)
; FUNCT TON=-NOOP (0)
;WRITE CHECK FUNCTION

GSTAT=B]T?
SEEK=BIT2!BIT1
RDHDR=BIT3
WRITE=BIT3.BIT1
READ=BIT3!B]T?
RDNHD=BIT3!BIT2.BIT1
GODRVR=BIT1:!B]T7
DRST=B]T3
GSBIT=BIT1
MK-BITO

:GET STATUS FUNCTION
;SEEK FUNCTION
;READ HEADER FUNCTION
;WRITE DATA FUNCTION
;READ DATA FUNCTION
:READ W/0 HEADER VERIFICATION
:CRDY AND DRDY
:DRIVE RESET (RLDA)
;GET STATUS BIT (RLDA)
:MARKER BIT (RLDA)

RHHS=BIT6

;HEAD SELECT

SIGN=BIT?

;SIGN BIT

(RLDA)

IN READ HEADER

STHS BITE
;HEAD SELECT IN STATUS BA(K
DAHS=B]T4
;HEAD SELECT IN SEEK
;OFFSET FOR HARDWARF P-TABLE
(SR=0

VECT-2

PRIOR &
DRBT-6
(NT=10
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
002122
002122

ENDMOD
GLBDAT

.WORD
.WORD
.WORD
.WORD

(: .WORD
:

.WORD
.WORD
JWORD

.WORD

WORD
.WORD

K: .WORD

-WORD
.WORD

. .WORD

D —D =D
ed
D e
D ed
b
ed
d
D
b
)

Y b e
YOI QU
S
T
T
e

NN NN
N PO NN NOMNOMNVPRON)
LB
D D2 aald
WA —-O0
WA = OO0 NN BN =OVOONONS

108

:
:

.WORD
JWORD
.WORD

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

J02250

02000
000000
000000
000000
000000

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

.WORD
.WORD

.WORD
.WORD
.WORD

s INTERRUPT OCCURANCE FLAG

0001

77700

o
(]

000000
000000

QOO OOODOOOCOCO ~ OW
~
OO
o

002122
002124
002126
002130
002132
002134
002136
002140
002142
002144
002146

J\—lOOOOOOOOOOO; :JJOOOOOOJ~OOOO

GLOBAL DATA

;LOCATION TO FORM RLCS
sMASK QUT SECTOR
;POLYNOMIAL FOR CRC 16

;LOCATION USED BY ''SIMBCC'’
;LOCATION USED BY ''SIMBCC''

;LOCATION USED BY ''SIMBCC''
JLOCATION USED BY ''SIMB(C''
;LOCATION USED BY ‘‘SIMB(CC"
JFIRST SECTOR READ
sMASK CYLINDER AND HEAD SELECT
sMAX SECTOR ADDRESS +1
sMAX SECTOR ADDRESS
;DIFFERENCE WORD (SEEK)
;MAXIMUM CYLINDER ADDRESS
s SAVE CURRENT HEAD SELECT
. (S - BEFORE OPERATION

;BA
;DA
.MF
;CS
;BA
;DA
MP

BEFORE OPERATION
BEFORE OPERATION
BEFORE OPERATION
AT OCCURANCE OF ERROR

- AT OCCURANCE OF ERROR
- AT OCCURANCE OF ERROR
- AT OCCURANCE OF ERROR

MACY11
22-NQvV-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11
134

35
36
37
38
39

002252

002254
002256
002260
002262
002264

600000

30A(1052)

22-NOV-78
GLOBAL DATA

15:35

BCSR:
BVEC:
BPRIOR:

.WORD
.WORD
.WORD
FNDFNC: .WORD
XMEM:
.WORD
TRYFNC: .WORD
ERFLG:
.WORD
LOP]IMX: .WGRD
LOPIMN: .WORD
UOPIMX: .WORD
UOPIMN: .WORD
OPIMN:
.WORD
OPIMX:
.WORD
PWRFLG: .WORD

LS3TTL
HDRTARB:

LIST 7D
-WORD
.WORD
-WORD
.WORD
.WORD
.WORD

CHECX HEADER (OMPARE LOGIC
JWALK 1
0
BITO
BIT1

BIT?
BIT3

S W=
O

002000
004000
010000
020000
040000

000400
001000

000200

g bt

002516

002520

00000
000001
000002
000004
000010
000020
000040
000100

C
o0.

s b

002504
002506
002510
002512
002514

000074

DERFLG: .WORD
{ RPOINT:
:
ERCOUNT

. GROW
N NN AN NN

Yole aNTs QWL P ANV, ¥}

S }
P
e
s L QS Y

ASALVALV
ALY IV, ANV, AV, |

160

161

002312
002314

SEQ 0033
;CSR FROM P TABLE
JVECTOR FROM P TABLE
JBR LEVEVL FROM P TABLE

T.CNTLR:

150
151

H 3
1-3

PAGE

JGROW O

ASSEMBLY ROUTINES

CZRLBB.P11
190

191
192
193
194
195
196

002612

22-NQv=78 15:28

30A(1052)

22-NOV-78

15:35

PAGE

077400

.WORD

.WORD
.WORD
LWORD
.WORD
.WORD
.WORD

727000
76000
74000
70000
60000
77735

002632
002636

077727
Q77717

WORD
WORD

77727
77717

200
201

0Q2636
002640

1-4

77400

Q77000
Q76000
074000
070000
060000
077735

002630

LIST TO CHECK HEADER (OMPARE LOGIC

002614
002616
002620
002622
002624
002626

197

198
199

MACY11

Q77733

.WORD

77733

JWALK O

002654
002¢56
0C2660

077637
077537
077337
076737
075737
073737
067737
057737
037737
000000

002662

002670
002676
002704
002712

000001

000010
000100
001000
010000

000002

000020
000200
002000
020000

00G004

213

002722
002730
002736

177777
177773
177737

77776
1277267
127677

177775
177757

JWORD

177777 ,177776,177775,177773,
177767 177757 .177737,177677

JWORD

177577,177372,176777
175777 173277 167777 157777 137777

002756
002762
002770
002776

157777
077777
177760
177600

137777
1277276
177740
177400

176777
167777

177770
177700

WORD

77777,177726 ,172770,177760,177740,177700,177600,
177400

176000

174000

.WORD

17700C, 176000,174000, 170000, 160000, 140000,3,7,17,37,77

000007

0Q00G17

202
203
204
205
206
207
208
3?8
N

216

215
216

002642
002644
002646
002650
002652

002742
002750

003002

003010

003016

217

218

219
220
221
gg%

226

532

0030246

177577
175777

177000

170000

000003

003036
003064

000037
0001772
001777
017777

003052

002000

003030

177377
173777

160000

000077
000377
003777
037777

000040
000400
Q0400C
040000

007052

DATPAT:

WCRD

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

Q0C777

MWOR(

0072777
Q0O0O0

LSBRYTL
BUF :

77637
77537

77337
76737
75737
73737
47737

127,377,777 ,3772,3777,727277,82777,37777.0

BUFFER FOR READ/WRTE
Aekw
1024,

£NDMOD

227

232

57737
37737
O

140000

007052

28 007052

HDREND:

WORD
WORD
WORD
WORD
.WORD
.WORD
LMWORD
.WORD
.WORD
.WORD

0a7516

(61447
]

67°'7

SBTTL

GLORAL TEXT

NORES:

LASC12

ONMOD GLRTKT! g

/NG TONTRGLLER/

SEQ 0034

MACY11 30A(1052) 22—N0VE78 15:35 PAGE %-53

047040

040
044040
044020

B
g Donag Dt Bang S
g Bt Brng St (ot St

104
040

g
S

g Do B

YOO

[92Y7,17,37,17,]

33 ISSSNS

-ASC

St b

(alninlisl (e Tem]

[ lelnls]

.
[)

Ld
.

\Y,|

b
b

D od

NOWMESE DWW
= b i D
b N IS ON =3 AN =2 (N NN =8 IS
OOV
= NIOONNOW

d
d
d
o
d

el omed ecd end
o

b
ik

b cd

h
D
et

jelelelelolelalolalelelel

020122
026516

>J> CD

047111
047440
042040
051117

wnwn
[alw]

020117
042101
040502
052103

.ASCI

wnunnm
A

041440

>>>

051503

Pt Sy B

.«

>>>>

wnnunn

-ASCI
<ASCI

040505
047117

047516

et ot b

122

g by

042522

Lt
T

010076

010045

>>>>

042507

17171717,] [V, 17,]

-AS(C

010006

NN N N NN NN NN N NN N RN RN AN NN N N SN N R R RN S N N R N

124

047503

042502

PNINININANNNINNNANNANNRNRN

042040
046440

[alnlzlslnlnlalnlalatelalalaYalnlals]

JASC

>>>>a>>>>>>>>$$$>$
wmunmnonwm
VINnUnULInmAnnNnUInNnnNnL

NORDY:
ARLCS'

g by By Sy Bruncg bing P

044522

047516
103
041040

007070

ASSEMBLY ROUTINES
1 5:28
CZRLBB.PTT
22-NOV~78

SEQ 0035

/NO DRIVE/

/CS: /

/ BA: /
DA: /
J MP: /
/BEFORE COMMAND: /
/TIME OF ERROR:
/
/CONTROLLER TIMED QUT/
/DRIVE READY TIMED 0QUT/
/ DRV/
/ NXM/
/ OPl/
/ HCRC/
/ HNF/
/ DCK/

/ DLT/
<15>
<15><12>

/ COMp/

/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/
/READ OPERATION=-INTR MODE/
/WRITE OPERATION-FLAG MODE/
/WRITE OPERATION~INTR MODE/

XREAD W/0 HEADER - FLAG MODEX
XREAD W/0 HEADER = INTR MODEX
/CAN'T SEEK TO TRACK 0/
/WRITE LOCK ERROR/
4ggcs CONTAINED FOLLOWING ERROR(S):

/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 TRACK/
/NON-EXISTANT MEMORY ERROR (OULD NOT BE FORCED/

CZRLBB P11

30A(1052)

22-NOV-78
GLOBAL TEXT

011774

040504

040524

041440

EM2S:

LASCIZ

XDATA COMPARISON ERROR - READ/WRITE ERRORX

127
105
122

044522
051122
041114
020101
041040
061114
041040
020101
040502
040505
042101
0462101
020117
020117
047522
047514
040505
044522
040505
042101
040502
040504
020111
044522
044522

042524
051117
020101
044502
052111
020101
052111
044502
042040
024104
043050
043050
04711
047111
020122
047440
042504
042524
020104
053440
042040
062040
044524
042524
042524
020101
042040
020101
042524
047040
047516
020105

EM26:

LASCIZ

EM30:

LASCIZ

/WRITE OPERATION MODIFIED MEMORY/
/ERROR ON PARTIAL SECTOR WRITE - ZERO FILI
/RLBA DID NOT INCREMENT PROPERLY/

102

0460502
122

040502
102

(a9 1aV]

N )~
2 e\ N

—

Ly —

NINON)
N
— = NUNUN.
NN NOWNNONNIMNON

046122

o0
Hon

289

22-NOvV-78 15:28

046122

041114
040504

042114

014220

051127

044522
047101
020116
052111

EM27:

EM31:
EM32:
EM33:
EM34 :
EM3S:
EM36:

15:35

JASCI2
JASCIZ
LASCIZ

LASCIZ

PAGE

K 3
1-6

MACY11

ASSEMBLY ROUTINES

SEQ 0036

/BA BIT 16 DID NOT SET ON INCREMENT/
/BA BIT 17 SET ON BA16 INCREMENT TEST/
/RLBA DID_NOT INCREMENT WITH BA16/
/BA BIT 17 DID NOT SET ON INCREMENT/
/BA BIT 16 DID NOT CLEAR ON INCREMENT/

LASCIZ
LASCIZ
LASCIZ

/RLBA DID NOT

EM4T:
EML2:
EML3:
EM4Y:

LASCIZ
ASCIZ
ASCIZ
.ASCIZ

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

EMS0:
EMS1:
EMS2:

ASCI2
LASCIZ
LASCIZ

EMSLO:

EMSLS :
EM4L7 :

LASCIZ

ASCIZ
ASCIZ

EM5SS .

LASCIZ

EM54:
EMSE :

.ASCIZ
.ASCIZ

EMS3:

EMS”:
EM60 -

EM61 :

EM6C:
EM63:

EM64 :
EM6S :

EM66 :
EM70:

LASCIZ

.ASCI2Z
LASCIZ

LASCIZ

LASCIZ
ASCIZ

LASCIZ
LASCIZ

LASCI2
JASCl/

CHECK/

INCREMENT WITH BA17/

/READ (FUNCTION 7) DID NOT INTERRUPT/
/READ(FUNCTION 7) ERROR - BAD DATA/
/READ (FUNCTION 7) ERROR AT END OF TRACK/

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/0O HDR (MP?
/0PI TIMING ERROR/
/WRITE CHECK NPR CAUSED BUS TRAP/
/WRITE CHECK DID NOT INTERRUPT/
/RLBA DID NOT INCREMENT PROPERLY DURING WR(HK/
/RLDA DID NOT

INCREMENT PROPERLY DURING WR(CHK/

/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

C(HECK

SECTOR WRITE

FAILURE/

.EVEN

014244

ENDMOD

014244

BGNMOD

GLBERR

114244

LSBTTL
BCNMSG

GLOBAL
ERRO

ERRORS

0142644
014250

004737
004737

JSR
JSR

PC,LINE

014254

004537

JSR

R5,CKERLT

014260
014260
014260
014262

104023

L10000:
BEGNMSG

PC,LINE

ENDMSG

EMT

ERR1

(IMSG

s INCREMENT ERROR AND (HECK LIMIT

(HK/

ASSEMBLY ROUTINES

CZRLBB.P11

MACY11

22-NOV-78 15:28

30A(1052)

22-NOV-78

GLOBAL ERRORS

15:35

014262

004737

015256

JSR

PC.LINET

014266

004537

020126

JSR

RS,CKERLT

014272
014272
014272

L10001:

104023

014274

BGNMSG

014274
014300
014300
014304
014310
014314
014320
014322
014324

004777

015256

013746
013746
012746
012746
010600

002170
002166
015733
000003

062706

014330

004537

014334
014334
014334

104014

ADD

#10,SP

026126

JSR

R5,CKERLT

062706

014402

004537

014406
014406
014406

015256
015312

013746
013746
013746
012746
012746

002166
002170
002160
015771
000004

104014

104023

014410

014410
014414
014420
014420

013746

SP.RO
CSPNTB

EMT

CHMSG

ERR?
PC,LINE]
PC,LINEZ2
#FRMTS, TMPO,BDDAT ,GDDAT
GDDAT ,-(SP)
, = (SP)
BDDAT
TMPQ,
= (SP)
H#FRMTS
- (SP)

000012

PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
EMT
ADD

#12,SP

020126

JSR

RS,CKERLT

L10003:

JINCREMENT ERROR AND (CHECK LIMIT

ENDMSG

JSR
JSR

BGNMSG

004737
004737

PC,LINET
#FRMT4 ,GDDAT ,BCDAT

000010

004737
004737

s INCREMENT ERROR AND CHECK LIMIT

ERRZ2

EMT

BGNMSG

SEQ 0037

CMSG

B8DDAT,=(SP)
GDDAT,~(SP)
HFRMT4
- (SP)
#3,-(SP)

014336

010600

EMT

JSR

L10002:

ENDMSG

PRINTB
MOv
MOV
MOV
MOV
MOV

104023

014336
014342
014346
014346
014352
014356
014362
014366
014372
014374
014376

PAGE 1-7

#4,~(SP)

SP,RO
CSPNTB

ENDMSG

EmM1

CHIS6

ERRS
JSR
JSR

PRINTB
MOV

PC,LINE]
PC,LINE2
#°MT4 ,GDDAT ,BDDAT
BDDAT,=(SP)

; INCREMENT ERROR AND (HECK LIMIT

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

(8)
(7)
(6)
(3)
(4)
éga

014424
014430
014434
014440
014442
014444

013746
012746
012746
010600
104014
062706

381
%%%

014450

004537

384
(3)
%g%

014454
014454
014454

%gg

014456

388
389
(8)
(7)
(6)
(3)

014456
014462
014462
014466
014472
014476

gga

(4)

391
%3%

004537

004737

014530
014530
014534
014540

012746
012746
0106C0

014520
014524

(4)
(&)

014542
014544

406
(3)

014554
014554

408
409
410
411
412

014556

28%

28;

L10004:

014506

014514

(7)
(6)
(3)

R5,CKERLT

014502

398

402
403

JSR

020440
015726
000002

014514

399
28?

(020126

013746
012746
012746
010600
104014
062706

%gg

014550

14554

014556

004537

ERRS

#6,SP

020126

JSR

RS5,CKERLT

EMT

CSPNTB

EMT

CEMSG

ERR6
JSR

JSR
JSR

PC,LINE3
PC,LINE?

.
016667
000001

PRINTB
MOV
MoV
MOV

#FRMT99
H#FRMT99,
- (SP)
#1,-(SP)
SP,RO

EMT
ADD

000004

020126

JSR

L10006:

BGNMSG

020126

s INCREMENT ERROR AND CHECK LIMIT

ENDMSG

015256

0i5534
015312

s INCREMENT ERROR AND CHECK LIMIT

CIMSG

ADD

104023

004537

EMT

000006

L16005:

SEQ 0038

ENDMSG

PC,LINE]
#FRMT3 RESTMS
RESTMS,
- (SP)
HFRMT3,-(SP)
#2,-(SP)
SP,RO

BGNMSG

104014
062706

JSR
PRINTB
MOV
Mov
MoV
MoV

104023

004737
004737

1-8

000010

BGNMSG

014512
014512

GDDAT,=(SP)
HFRMT4
- (SP)
#3,-(SP)
SP,RQ
CSPNTB
#10,SP

104023

394
(3)
égé

PAGE

MOV
MOV
MOV
MOV
EMT
ADD

015256

014512

22-NOv-78
15:35
GLOBAL ERRORS

002166
015733
200003

004737

014500

30A(1052)

PC,LINE]

CSPNTR
#44,SP

RS,CKERLT

s INCREMENT ERROR AND CHECK LIMIT

ENDMSG

EMT

CMSG

ERR7

JSR

R5,CKERLTY

¢ INCREMENT ERROR AND (HECK LIM]TM

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

014562
014562
14562

30A(1052)

22-NOV-78

GLOBAL ERRORS

L10007:

106023

014564

BGNMSG

15: 35

EMT

062706

0u0012

PRINTB
MOV
MOV
MOv
MOV
MOV
MOV
EMT
ADD

014630

004537

020126

JSR

014634
014634
014634

104014

J3R
JSR

L10010:

104023

014636

BGNMSG

014636
014642
014646
014646

004737
004737

014654
014660
014664
014666
014670

012746
012746
010600

014650

014674

014700
014700

014700

010246

013746

04716

Cier22

EMT

PRINTB
MOV

062706

000010

004537

02012¢

JSR

104014

104023

L10011:
BGNMSG

004737
004737

013746
013746
013746

H#FRMT6,
= (SP)
44 ,-(SP)

SP,RO
C$ONTB

RS,CKERLT

; INCREMENT ERROR AND CHF(CKk LIMIT

CIMSG

ERR9
JSR
JSR

002160
015733
000003

PC,LINET

PC,LINE2
HFRMTG6, TMP1,GDDAT ,BDDAT
BDDAT,~(SP)
GDDAT ,~(SP)
TMP1,-(SP)

ENDMSG

MOV
MOV
MOV
Mov
M7
ADD

014702

014702
014706
014712
014712

015236
015312

CEMSG

ERR8

004737
004737

000004

SEQ 0039

ENDMSG

014564
014570
014574
> 014574
014600
014604
014610
014614
014620
014622
014624

013746
013746
013746
012746
012746
010600

N3
PAGE 1-9

PC.LINE
PC,LINEZ
MFR
, MT4
TMPO R?
r¢,=(SP)
TMP(,~(SP)
#FRMTL
- (SP)
#3,-(5P)

SP.RO

(SPNTB
#10,SP

RS5,CKERLT

ENDMSG

EMT

(IMSG

ERR10
JSR
JSR
PRINTS
MOV
MOV
MOV

PC,LINE?
PC,LINE2

#FRMT7, TMP1 ,GDDAT ,BDDAT

BDDAT,=(SP)

WGoPAT
= (5P)

TMP1,=(SP)

s INCREMENT ERROR AND (HECK tIM]7

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

(7)
(6)

(3)

(4)
(4)
4465

446

647
448
649

(3)
(3)
450

30A(1052)

22-NOvV-78

GLOBAL ERRORS

1S: 35

8 &
PAGE 1-10

014726
014732
014736
014740
014742

012746
012746
010600

016117
000004

062706

000012

ADD

#12,SP

014746

004537

020126

JSR

RS,CKERLT

014752
014752
014752

104014

015020

015024
015024
015024

104023

015074
015100
015100
015100

EMT

BGNMSG

004737
004737

013746
013746
013746
012746
012746
010600

EMT

SP,RO
CSPNTB

CEMSG

PC,LINE1
PC,LINE?2
#FRMT8, TMPO,GDDAT ,BDDAT

BDDAT,-(SP)
GDDAT ,~(SP)
TTMPO,-(SP?
#FRMT8,-(SP)
#4,-(SP)

SP,RO
CSPNTB

104014
062706

000012

ADD

#12,SP

004537

020126

JSR

RS,CKERLT

EMT

L10013:

104023

BGNMSG

; INCREMENT ERROR AND CHECK LIMIT

ERR1T

MOV
MoV
MOV

000004

H#FRMT?7
= (SP)
#4 ,~(SP)

ENDMSG

SR
JSR
rRINTB
MG
MOV
MOV

015026

015026
015032
015025
015036
015042
015046
015050
015054
015060
015064
015066
015070

MOV

L10012:

014754
014754
014769
014764
014764
014770
014774
015000
015004
015010
015012
015014

MOV

SEQ 0040

; INCREMENT ERROR AND (HECK LIMIT

ENDMSG

EMT

C($MSG

ERR1?2

004737
004737

015256
015312

013746
013746
010346
013746
012746
012746
010600

002170
002166

PC,LINET
PC,LINE2
H#FRMT9,TMP1,R3,GDDAT
,BDDAT
(SP)
BLODAT,~
GDDAT ,=(SP)

002162
016312
000005

TMP1,-(SP)
#FRMTO,
- (SP)
#5,-(SP)

062706

000014

#14,SP

004537

020126

104014

JSR

R3,-(SP)

SP,RO
($PN'B

JSR

R5,CKERLT

ENDMSG
104023

EMT

(eMS6

s INCREMENT ERROR AND (HECK LIMIT

MACY11
22-NOvV-78 15:28

ASSEMBLY ROUT(NES

D ed

D e

d
D

D
D

) e

d
d

— e

(VL 1V, TV, [0, TV, TV, IV, [V, [V

%)
(4)

—_—

FRRRNFOERS

475
476
10
1))
(8)
(7)
6)

015102

L7,

477

(sloleolololalololols

CZRLBB.P11

477
478
479
480
481
3
3
482
483
484
485
486
487

(4>
488
489

498
(8)
(7)
(6)
3
(4)

013746
013746
013746
012746
012746
010600

002170
002302
002300
016415
000004

062706

000012

ADD

#12,SP

004537

020126

JSR

RS,CKERLT

104014

JSR

PRINTB

MOV

MOV
MOV
MOV
MOV
MOV

EMT

L10015:

PC,LINET
#FRMT10,0PIMN,OPIMX
,BDDAT
B8DDAT,-(SP)
OPIMX,~(SP)
OPIMN,-(SP)
#FRMT10,~(SP)
#4,~(SP)

SP,RO
C$PNTR

EMT

CEMSG

ERR14

015256
015312

012746
013746
012746
012746
010600
104014
062706

003052
002162
016241
000003
000010

ADD

#3,-(SP)
SP.RO
(SPNTB
#10,SP

004537

020126

JSR

R5,CKERLTM

015216

JSR
JSR
PRINTB
MOV
MOV
MOV
MOV
MoV

EMT

BGNMSG

004737
004737
010246
012746
012746
010600
104014
062706

004537

106023

015256
015312

EMT

L10017:

H#FRMT14 ,-(SP)

CEMSG

ERR15
PC,LINE]
PC,LINEZ

PRINTR
mov
MOV
MOV
MOV

H#FRMT1S ,R2
RZ2,-(SP)
#FRMT15,-(SP)
#2,-(SP)
SP,RO

JSR

R5,CKERL]

EMT
ADD

000006
02072¢

PC,LINET

PC,LINEZ2
HFRMT
14, TMP1 , #BUF
#BUF ,=(SP)
TTMMP1,=-(SP)

ENDMSG

JSR
JSR

016723
000002

INCREMENT ERROR AND (HECK LIMIT

ENDMSG

004737
004737

L10016:

SEQ 0041

ERR13

015256

104023

015216

15 :35

004737

BGNMSG

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

494
495
496
497

22-NOV-78

GLOBAL ERRORS
BGNMSG

104023

(%)

490
491
492
3
3
493

30A(1052)

4
¢
PAGE 1-11

CSPNTB
#6,SP

ENDMSG
EMT

($MSC

¢ INCREMENT ERROR AND CHECK LIMIT

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

502
503
(9)
(9)

(8)
(7)
(6)
(3)
(4)
(4)
ggg

506
(12)
(11)
(10)
(9)
(8)

015256
015256
015260
013264
015270
015274
015300
015302
015304
015310

015312
015312
015316
015322

(3
(4)
(4)
507
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(&4)
508
(12)
(11)

015326
015332
015336
015342
015346
015350
015352
015356
015356
015362
015366
015372
015376
015402
015406
015410
015412
015416
015416
0156422

(8)
(7)
(6)

015436
015442
015446

(7)
(6)

(10)
(9)

015426
015432

005046
153716
013746
012746
012746

010600
104014
062706
000207
013746
012746
013746
012746
012746
012746
012746

010600
104014
062706
013746
012746
013746
012746
012746
012746
010600
104014
062706

30A(1052)

22-NOV-78
15:35
GLOBAL ERRORS

LINET:
002135
002242

015606
000003

000010

002220
007106
002216
007101
007130
015645
000006

000016
002224
007122
002222
007114
015664
000005
000014

013746
012746
013746
012746
012746
012746
012746
010600

002230
007106
002226
00710°
007151
015645
000006

LINE2:

PRINTB
CLR
8158

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

MOV
MOV
MOV
MOV
EMT
ADD
RTS

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

PRINTB
MOV
MOV
MOV
MOV
MOV

#FRMT2 ,#BEREG,#ARL(S,B.(CS,#ARLBA
B.BA
B.BA,-(SP)
#ARLBA,-(SP)
B.CS,=(SP)
HARLCS ,=(SP)
#BEREG,~(SP)

MOV
EMT
ADD
PRINTB
MOV
MOV
MOV
MOV
MOV

SP,RO
C$PNTB
#16,SP
#FRMTZ2A,#ARLDA
,B.DA, #ARLMP B MP
B.MP,~(SP)
H#ARLMP
, - (SP)
B.DA,~(SP)
#ARLDA ,~(SP)
HFRMT2A,-(SP)

MoV
MOV

MOV

SP,RO
CSPNTB
#10,SP
PC

HFRMTZ2,~(SP)
#6,-(SP)

#5,-(SP)

SP,RQ

EMT
ADD
PRINTB
MOV
MOV
MoV
Mov
mMov
MoV
MOV
MOV

CSPNTB
#14,SP
#FRMT?2,#AFREG,#ARL(S,E.CS,#ARLBA
E.BA
E.BA,-(SP)
#AR_BA,-(SP)
E.CS,~(SP)
H#ARLCS,~(SP)
#AFREG,-(SP)
HFRMTZ2,-(SP)
#6,-(SP)
SP,RO

(3)
(4)
(4)

0154572
015454

015456

062706

000016

ADD

#16,SP

(13)
(12)
(11)
(10)
(9)

015462
015466
015472
015476
015502

013746
013746
013746
012746
013746

002240
002236
002234
007122
002232

MOV
MOV
MOV
MOV
MOV

E.MP2, ~(SP)
E.MPY,-(SP)
E.MP,-(SP)
H#ARLMP,
- (SP)
E.DA,=(SP)

(6)
(3)
(4)
(&)

015516
015522
015524
015526

012746
010600
104014
062706

MoV
MOV
EMT
ADD

#7,-(SP)
SP,RO
(i"N"B
#20,5P

509

(8)
(7)

015462

015506
015512

104014

012746
012746

007114
015677
000007
000020

PAGE 1-12

EMT

PRINTB

MoV
MOv

(SPNTB

#FRMTZB,#ARLDA,E.DA,#ARLMP
E .MP E .MP1 E .MP2

#ARLDA,~(SP)
#FRMTZB,~(SP)

SEQ 0042

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

30A(1052)

§;1

015532

512
(8)
(77
(6)
(3)
(4)
(4)
513
(8)
(7)
(6)
(3)
(4)

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

2}?

015604

015600

062706

000006

516
520
521
522
523
524
525
526
527
528
529

015606
015645
015664
015677
015726
015733
015771
016042
016117

040445
045
052045
045
047045
045
045
047045
045

047503
022516
047445
022524
052045
022516
022516
040445
022516

052116
022524
022466
033117
000
042501
046101
052502
053501

53,
535
536
537
538
gzg

016474
016550
016615
016667
016672
016723

040515
040445
042101
000116
052045
(022576

044530
051105
044522

(4)

530
531
532
533

016171
016241
016312
016415

541
542
546
547
gzg

016750

§50
(3)
551
552
553
554

016750
016750
016752
016754
016756
016760

557

016764

ggg
(3)

22-NOV-78
15:35
GLOBAL ERRORS

000207
012746
012746
012746
010600
104014
062706
012746
012746
012746
010600
104014

000207

045
045
067045
045
040445
047045
045
045
047045
045

LINE3:

010352
015726
000002
000006
010417
015726
000002

022516
022516
040445
022516

1-13

PRINTB
MOV
MOV
MOV
MOV
EMT
ADD
PRINTB
MOV
MoV
MOV
MOV
EM”

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

SEQ 0043

ADD

#6,SP

FRMTi:
FRMT2:
FRMTOA:
FRMTJB:
FRMT3:
FRMT4:
FRMTS:
FRMT6:
FRMT7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/YACONTROL_ER:
XC6%A DRIVE: %01/
/INXTXTXO6XT%06/
/%TX06XT%06/
/%T%06XTX06XA Y06A 06/
/INXT/
/INYAEXP'D: XO6%A REC'D: XO6IN/
/INXALAST: YO6XA PRES: X06YA EXP'D: YO6UN/
/INXABUS ADR: Y06XA EXP'D: XO6%A REC'D: X06IN/
/INYAWORD: %D3%A EXP'D: %O6XA REC'D: XO6IN/

FRMT11:
FRMT98:
FRMT99:
FRMT13:
FRMT1S:

JASCIZ
.ASCIZ
.ASCI]
.ASCIZ
_ASCIZ
.ASCIZ

/%AMAXIMUM TIMEOUT OF PROGRAM 1S 3 SECONDSIN/
/INXAERROR LIMIT EXCELDED - DROPPEDIN/
/XADRIVE DID NOT RECOVER FROM POWER FAILURE/
/IN/
/INXTXA - WILL NOT TESTIN/
/INYAPATTERN WAS: %06/

FRMT8:
FRMT14:
FRMT9:
FRMT10:

040445
0501017

RTS

042101
053501
047527
051101

PAGE

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

°C

/INYADA: XO6XA REC'D: Y06%A EXP'D: XO6IN/
/INYAWORDS WRITTEN: XD3%A BUS ADDR: XO6IN/
/INYAWORDS WRITTEN: XD3XA BUS ADDR: XO6%A EXP'D: X06XA REC'D: ZO6IN/
/INYARANGE XD3%A - ¥D3XA MILLISECONDS WAS %D6IN/

.EVEN

016750

016762

016764

BGNMOD

BGNHW

000005

174400
000160
000240
000000

ENDMOD

HPTCODE

LWORD

L 10020-L $HW/2

"WORD

"WORD
JWORD
JWORD
WORD

000001

£ NDHW

£10020:

17400
160
240
0

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

‘RL11=1 RLVI1=0

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

016764

000005

000000
000012
000000
000000
000000

017000
017000

BGNSW
DROP:
MERLMT:
T.SIZE:
T.DMP:
T.LMT:

.WwORD
.WORD

0
0
0

2
D
= D00 NONNENANNY

) )
— — — —{

~NC W M

e
b

= OV

.WCRD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

)

039672
031320
032000
032432
033042

DISPAT(H

DSPCODE

000057
021632
022102
022246
022376
022532
022664

023220
023522
023712
024110
024262
024460
024660
025030
025132
025256
025452
025606
025740
026060
026240
027016
027212
027356
027472
027650
030250

017100
017102

.WOFD
.WORD
.WORD

e b

BGNMOD

023C22

(6)
(6)
(6)

L10021-L$SW/?2

ENDMOD

017000

(6)
(6)
{6)
(6)
(6)

.WORD

ENDSW
[ 10021:

017000

SPTCODE

016774
016776

BGNMOD

4 WWRONLNLNLNLNODNY NN

016766
016770
016772

PAGE 1-14

ENDMOD

016764
016764
016764

22-NOV-78
15:35
GLOBAL ERRORS

—

558
559
560
561
56¢
563
(3

30A(7052)

’
P

SEQ 0044

.SBTTL

INITIALIZATION CODE

8GNMOD

INITCODE

MOV

#PR107,RO

012700

000034

READEF
MOV

#EF .PWR
#EF .PWR RO

BCC
MOV
BR
READEF
MOV

NOFWR
LSUNIT,PWRFLG
CONT
#EF .RESTART
HEF .RESTART,RO

013737
000473

002012

012700

000037

104050

103010

0C2304
NOPWR:

EMT
CSREFG
BCOMPLETE
START1
BCS

017224

017226
017226
017232
017234
017234

NOPWR

START1Y

READEF #EF .START
MOV
HEF .START
RO

EMT
CSREFG
BNCOMPLETE

CONTINUET

001375

MOV
MOV
(LR
DEC
BNE

#ERCOUNT
,RO
#64. R
(RO)
+
Ri
1%

000407

START

012700
104050

103447

000036

START1:

B8CC

'$:

CONT INUE :
MOV

READEF #EF ,CONTINUE
#EF . CONTINUE
,RC

EMT
CSREFG
BCOMPLETE
B{S
CONT

EMT
C$REF
G
BNCOMPLETE

000040

00234
000109

C$SPRI

s mae

103004

EMT

104050

012700

596
597

#4PRI0?7

000340

CONT

SETPRI

012700
104041

103404

(2)

T46

BGNINIT

104050

(3)
595

T47

T44

592
3
(3)
593
(2)
594
(%)

.WORD

ENDMOD

017140

017146
017146
017152
017154

.WORD

T45

.WORD

017140

017140
017140
017144

WORD

.WORD

SEQ 0045

T34
T35
136
T3/
T38
T39
T40
T4
T42
143

.WORD
WORD

1-15

_Lld

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

PAGE

(3)

589
(2)
590
591

033274
033564
034060
034352
034744
035244
035604
036116
036402
036672
036762
037114
037312
037450

15:35

587
588
3

22-NOV=78

GLOBAL ERRORS

583
584
585
586
(3)
(3

017140

30A(1052)

580
581
582

Genr Gunr Gaur Gueer G

(6)
(6)
(6)
(6)
6)
6)
(6)
(6)
(6)
(6)
(6)
(6)
578
579

i G

(6)

OQOOOOOOOO

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

ASSEMBLY ROUTINES

CZRLBB.P11

606

607

608
609
610

611
€12
613
614
615
(3
(3)
616
(2)
617
618
619

620
621
622

623
624

625
626
627
628
629
630
631
632
633

MACY11

22-NOv~78 15:28

017236
017262
017244
017252
017260

005737
00101
012737
013737
012737

002012
002312

017266
017272

005237
062737
005337

002140
000002
002”36

013700

002140

017300
017304
017304
017310
017312
017312
017314
017320
017322
017326
017330
017334
017340
017344
017350

104042

103406

005737
001746
905337
000743
012037

30A(1052)

002136
177777

NXT:

002140
002136
002312

002312

START:

XXX:

REST:

TST

BNE

INC
ADD
DEC

UNITST
#2 ,ERPOINT

EMT

C$GPHRD

TST

002304
002252

UNITST,RO

MOV
MOV
MOV
MOV

(RO)
+ ,BVE(
(RG)+,BPRIOR
{(RO)+ ,DRIVE
(RO)+,T.CNTLR

(RD)+ ,B(SR

;GET
sGET
;GET
cGET
;GET

MOV

BCSR,RO

;CREATE REGISTERS

ADD

#2,R0

013700
010037

002252

017414
017420
017622

005737
001064
005737
001461
005037

016772

012746
012746
013746
012746

00034y
021350
002132
0000¢2

062706
005777

000010

013700

002132

MOV

005737
001404
012737
000415

002142

TST

007052

002126

012777
053777

000200
002134

162522
165514

000002
002250
002304

MOV

RO,RLBA
#2,R0
RO,RLDA
#2 RO
RO,RLMP

TST

PWRE LG

BEQ

CLR
SETVEC

TRPFLG
ERRVEC,#TRPHAN,#340

MOV
EMT
ADD
TST
CLRVEC

#3,-(SP)
CSSVEC
#10,SP
aRLrS
ERKRVE(

EMT

CSCVEC

BUS ADDRESS
VECTOR
PRIORITY
DRIVE
CONTROLLER TYPE

:gg WE WANT TO CHECK UNITS??

‘CLEAR OUT TRAP INDICATOR
“SETUP TO CATCH TIMEOUT

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

JACCESS

CONTROLLER

ERRVE( RO
TRPFLG

MOV

S ,WHY
#NORE

MOV
BIS

#270,aRLCS
DRIVE ,aR. (S

B8R

T.SIZE

#340,-(SP)

BEQ

¢ B

MOV
MOV
MOV

162554

RO,RLCS

MOV
ADD
MOV
ADD

BNE

002142

PWRFLG

NXT
WRFLG

NXT

MOV

(ONT:

B8R

017354
017360
017364
017370
017374
017400
017404
017410

104036

uuT

UNJTST,RO

BEQ
DEC

;NO

LSUNIT
, uUT
HERCOUNT=2 ,ERPOINT

GPHARD

002254
002256
002134
002306

104037

XXX

BCOMPLETE
BCS
2%

0023C~

SEQ 0046

;DONE WITH ALL UNITS

uuT

#-1,UNITST

MOV

1-16

MOV

MOV
MOV

012037

012037
012037
012037

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

;DID TRAP OCCUR??
sNO,

CHECK DRIVE

sNOw (HECK DRIVE

FOR READY

ASSEMBLY ROUTINES

CZRLBB.P11

MACY1T

30A(1052)

22-NOV-78 15:28

651
652
653
654

017526
017534
017536
017544

Q32777
001016
012737

000001

162506

207670

002126

€7)
(6)

017550
01755

Q13746

012746
012746

002126
016672
000002

(6)
(6)

017562
017564

104014
062706

657
658
659
660
661
662

017572
017576
017600
017606
017614
017620

005737
001451
012777
053777
012701

(8)

(3)

655

(3)
(3)

017544

017560

017570

017620
017624

663
664
665
666

017626
017634
017636
017640

668
(7)

017642
017642

(6)

017646

010600

000444

012700
10026

81T

8%:

000074

5%:
162434
162426

I%:

000012
000001

012746

016667
000001

162406

ADD

#6,SP

1ST
8tQ

PWRFLG
END
#200,aRLCS

MOV
WAITMS

MoV
EmM7
BIT
BNE
DE(
BNE

PRINTF

062706

000004

012746
012746
010600

016615
000001

Mov
MOV

017676

062706

(4)

017674

104017

MOV

EMr

017702
017706
077706
017712
017714

004737

C00004
015296

(013700

002140

MOV

g;z

017716

000137

017236

DOCLA
EMT
JMP

675
676

017722
017730

013737
013737

002276
002274

670
671
(3)
(3)
672
(3)

677
678
679
680

017714

104044

017736
017742
017744
017752

005737
001006
013737
013737

00230¢e

017760

012746

000349
020110

681
682

017760
017760

(&)
(5)

017764
017770

(7)

104053

012746
013746

002272
002270

002254

6%:

ADD

JSR
DOdU

Emr

002300
00230¢
002300
002302

END:

;POWER UP
:NC

DRIVE ,QRLCS

#60. R1
0.
#10, RO

(SWIM

#1,aRLCS

END
R1

NFRMT9S
RFRMT99, ~(SP)

#4,SP
#FRMT98
#FRMTO8 - (Spk)

017662
017662
017666
017672

(4)

PRINTF

669
(7)
(6)
(3)

EMT
ADD

017656

SP RO
CSPNTB

#1,-(SP)

017652
017654

(4)

FFRMTIZ
= (SP)
#2,=(SP)

MOV
MOV
MOY

(3)
(4)

010600
104017

NORDY , WHY

FFRMT1S wWHY
WHY
, = (SP)

MOv
8IS

SEQ 0047

#1,aRLCS

PRINTB
MOV
MoV
MOV
MOV

002304

006200
002" 34

BNE
MOV

Emr

J00006

032777
001032
005301
001367

012746

4
l
22-NOV-78 15:35 PAGE 1-17
INITIALIZATION CODE

SP RO
CSPNTF

#i,~(5P}
SP,RO

CSPNTF

»,,SP

PC,LINEY

UNITST

WNITST,RC
($DODU
CSDCLN

NXT

MOV
MOV
ST
BNE
Moy

UGPIMN,OP
| MN
[Mx
, OFMX
JCPI

MoV

LOPIMX,
QP [Mx

SETVE(
MOV
MOV
MCv

BVE( ,#INTSRY,
#740

TLCNTLR

, OPIMN
LOPIMN

#340,-(5P)
#MTSRV,~(SP)
BsvEC,-(S5P)

S RN

JYRS.

THEN KEEP LIMITS SET

ASSEMBL Y ROUT] NES

<
CZRLBB.P11

017774
020000
02000¢

020006
020006

020006

MACY1Y
22-NOV-78 15:28

0127646

000003

062706

700010

104037

30A(1052)

22-NCv=78
135:35 PAGE
INITIALIZATION CODE
MOV
EMT
ADD

110022:

104071

020010
BGNMOD

020010

020030
020032
020036
020044

020046

020054
020054
020060

€20100

620102
020102
0201C2

012746
012746
013746
012746

104037
062706
032777
001774

#10,SP

ENDINIT
EMT

C$INIT

CLNCODE

SETVEC

000340

MOV

021350
002132
000003

MOV

MOV
MOV

EMT

ERRVEC ,#TRPHAN,#340
#340,-(SP)
= (SP)
HTRPHAN,
ERRVEC,=(5P)
#3,-(SP)
CSSVEL
#10,SP

000010
000200

162776

B17
BEQ

:gRDY,aRL(S

042777

000100

162166

B8IC

#INTEN,QRLCS

013700
104036
005737
001402
005337

002254

CLRVEC

RVE(

013700

002132

104036

104012

ADD

MOV

002304

L’OO?gr

EMT
TST
BEQ
DEC
CLRVEC
MOV
EMT

BVEC,RO
C$CVEC

PWRFLG

ERRVE
C

ERRVE( ,RO
% 18730

ENDCLN
EMT

C$CLEAN

ENDMOD

020104

SGNMOD

020104

020106
020106
020106

N3,~(SP)
($SVEC

BGNCLN

020104

1-18

ENDMOD

020010

020016
020010
020014
020020
020024

DRP(ODE
BONDL

000240

106065

NOP

10024

ENDDU
EM”

($Du

SEQ 0048

ASSEMBLY ROUTINES

CZRLBB L1

MAC!11

22-NOv~78 1511.8

30A(1052)

020V1Q

020114
020114
020114

15:35

INITIALIZATION CODE

005237

002144

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

BGNSRV
INTSRY:

INC

L10025:

000002

005237

020134
020140
02u142
020146
020154

005737
001424

020166
020170
020172
020176
020202
020202
020206
020210
020210
020212
020212

TMSRV:

104021

000240

020162

002144

000002

020126
020130
020130
020132
020132

020156
020156

PAGE 1-19

.SBTTL

0049

CKERLT:

027737
002416

01€76¢
162144
162140

012746
012746

016550
000001

004737

000004
015256

013700

002140

010600
104017
062706

104053

INTFLG

EM~

C$4BRT

NOP
INLOOP

99%
AERPOINT

BLT

99%

#FRMT11
#FRMT11,-(SP)
#1,-(SP)
SP,RO

ADD
JSR
DODU
MoV

#4,SP
PC,LINE?
UNITST
;DROP
UNITST
RO

EMT

DOCLN

.SBTTL

DERPOINT ,MERLMT

PRINTF
MOV
MOV
Mov

EMT

99%:

DROP

BEQ
INC

{MP

104044

000205

INC

ABDRTWA]T

TST

016770

INTERRUPT OCCURANCE FLAG

IN TIMING OPI

CSINLP
EMT
BCOMPLETE
BCS
99%

103427

;SET

RTI

RT]

104020

005277

INTFLG

ENDSRV

JROUTINE USED

020116
020122
020122
020124

ENDMOD

02010
020110
020110

22-NOV-78

CSPNTF

TH!IS UNIT

C$DODU

EMT

C$DCLN

RTS

ROUTINE

TO CHECk FOR CONTROLLER ERRORS

AR AR AR R

RN R AR A A

AR AN R R AR

P AN AN A AR RAANNANAR RN RN RARRARR RN

s*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM
s *ACCORDINGLY.
[ WILL MERGE THE ERROR PRINTOUT WITH THE

; *ERROR ME SSAGE.

TEST

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

30A(1052)

763
764
765

22-NOv-78

ROUTINE

771
772

L 4
1-20

PAGE

TO CHECK FOR CONTROLLER ERRORS

SEQ 0050

J*ROUTINE USES RO,R1

766

767
768
769
77C

15:35

CALL

020214

773
774

775
776

777

778
779
780
781
782
783
784
785
786
787
788
789

005037
032737
001001
000205
012701
005737
100003
004537

007316
032737
001405
005237
004537
007245
032737
001403
004537
007252
032737
001422
004537
007257
032737
001403
004537
007264
032737
001424
004537
007272
000420
032737
001405
005237

020434
020440
020442
020444
020444
020446

004537
007277
032737
001403
004537
007304
004537
007313
004537
002000
105011

104462
000454

002124
176000

AND PICKS HEADER FROM R3

JSR

RS, CHERR

T.CRC

#176000,€E.CS
2%
RS
#EM100,R1

002226

010417
002226
020752
040000

002226

99%:

002226

3%:

0C222¢

4%:

0207¢2

ANXM,E.CS

NON-EXISTENT MEMORY ERROR?
;NO, CONTINUE

#0P1 E.CS

6%
R5,FIX

002226

MBIT11,E.CS
5%

R5,FIX

002226

#BIT12,E.CS
8%

RS, FIX

00226

8%
#BIT11,E.CS

6%:

002226

7%:

RESTMS:

JPUT 'OPI'" INTO STRING

:.UPI'.

;HEADERCRC ERROR?

;NO, GO CHECK HEADER NOT FOUND

:GO PUT 'HCRC'' IN STRING

JUHCRC'!

JHEADER NOT FOUND?

JNO, GO PUT ''CRLF'' IN STRIiNG
:PUTF:HNF” IN STRINC

SPUT "'CRLF''~IN STRING

RS, FIX

;PUT 'DCK'"
IN STRING

#BIT12,E.CS
8%

‘DATA LATE ERROR?

R5,FIX
J
.

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

:DATA CRC ERROR?
:NO. GO CHECK DATA LATE

RS,FIX

8%:

JYES, PUT "NXM'' INTO STRING

;leml'

T.CRC

020752
020752

;y%go.Pur "DRV'* INTO STRING

RS,FIX

002124
020752

010000

RS,FIX

020752
004000

;DRIVE ERROR SET?
;NO, CONTINUE

DERFLG

00752

012000

PUT "'COMP'" IN STRING

#DERR,E.CS

020752
004000

JYES,FIND OUT WHICH
JNO EXIT
sGET START OF STRING
;IS COMPOSITE ERROR SET?(BETTER BE)
JIT'S NOT SOMETHING IS WRONG
JYES,

020752
002000

sANY ERRCR BITS SET?

;llcw..

002310
020752
020000

;CHECK CNTLR FOR ERRORS

RS,FIX

(R1)

300.,LF ,ERRE

TLERCODE

300

'.DCK.'

ING.

GO PUT

IN '‘CRLF'*

:PUTT:pLT"IN STRING

JPUT “'CRLF'" INTO STRING

;lICRLF'I

;MOVE HEADER
JHEADER FROM TEST
JPUT TERMINATOR IN

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

823
824
825
826
827
828
829
830
831
832
833
834
835

ROUTINE

007311
014514
000205

15:35

SEQ 0051

TO CHECK FOR CONTROLLER ERRORS

.WORD
. WORD

ERRG

R°S

.SBITL

PAGE 1-21

JEXIT ROUTINE

LOAD RLCS

SRR AAA AR RN AR R A AR AR AR AN AR

AN AR A AN AANAAARNNNRANAARANARRNN
AN N AR RNk

;* ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED
RS,LDFUNC
CALL:
JSR
;LOAD THE FUNCTION IN NEXT WORD
.WORD
;BITS TO BE LOADED, FUNCTION
N1
JAND INTR ENABLE ONLY
.

818
819
820
821
822

020450
020452
020454

22-Nov-78

(5)
(5)
817

30A(1052)

020456
020464
020466
020474
020502
020510
020516
020524
020532
020534
020542
020546
020550
020556

032777
001426
017737
012777
012737
053737
013777
032777
001774
013777
012537
010346
042737
013737
042737
012703
006237
001404
022323
005337
001374
032737
001401
005723
011303
010337
010337
053737

020706
02071C

052737
013777
004537
042777
012603
000205

020712
020714
020716
020720

007377
007430
007462
00752¢

040000

161556

161554
000013
000200
002134
002216
000200

002222

002222
002146

161504

177661
002146
000100
020712
002260

00214¢
002260
002260

020440
002264

MOV
MOV
MOV

161544

002216
002216
161516

161510

6%:

5%:

002146

2%:
3%

002746

161334

MOV

MOV
BIC
MOV
MOV
ASR
BEQ
CMP
DEC

BNE
BIT
BEQ

TST
MOV
MOV
MOV

BIS
CLR
BIS
BIS

002146
002146
161346

000200

BIS
MOV
BIT
BEQ
MOV

BIC

1%:

00260

000100

LDFUNC: BIT
BEQ

MoV

4%:

JSR
BIC

MOV
RTS

HDRLST:

NOPMES

NOPINT
WCKME
S
WCKINT

#B1T14 ,aRLCS
5%

:DRIVE

ERROR SET

aRLDA,B.DA

#13,aRLDA
#200,8.CS
DRIVE ,B.(S
8.CS,aRLCS
g%OO,aRLCS

B.DA,aRLDA
(RS)+,LDCSR
R3,~(SP)

JGET BITS 70O LOAD

LDCSR, FNDFNC

;SAVE FUNCTION

#177661,LDCSR

#INTEN, FNDFNC
AHDRLST .R3
FNDFNC

2%
(R3)+,(R3)+

FNDFNC

#INTEN,LDCSR

(R3)+
(R3) ,R3
R3,RESTMS
R3.TRYFNC
XMEM, LDCSR
XMEM
DRIVE,LDCSR
#200,(DCSR
LDCSR,ARLCS
RS ,BEF ORE

#200.3RLCS
(SP)+,R3
RS

;SAVE R3
;CLEAR ALL BUT FUNC & INTR EN
JONLY FUNCTION
.GET HEADER LIST
SALIGN TO LEFT
;IF EQUAL TO Z2ERO, SET R3
;BUMP R3 BY 4
;DEC FUNCTION
cFOUND IT? NO-GO BACK
cYES, DO WE WANT FLAG OR INTR?
;FLAG BRANCH
JINTR POINT TO THAT ONE
;SET HEADER
cSET UP HEADER
;SAVE HEADER FOR LATER
;LOAD E.A. BITS
JCLEAR OUT THE B]TS
JSELECT DRIVE
sLOAD FUNCT ION

JREAD REGISTERS

2 ISSUE (OMMAND
JRESTURE R3

JEXDT

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

020722

30A(7052)

22-NOv-78

LOAD RLCS

007747

15:35

PAGE 1-22

SEQ 0052

GSTMES
GSTINT
SEKMES
SEKINT

010006
007664

RHDME
S
RHDINT
WRTMES
WRTINT
RDDME
S
RDDINT
RDNMES
RDNINT
:ttitttttifit*t*tt*ifitfiit'l"itti LAAZARS SRR

;*ROUTINE

TO MOVE

ASCII

RRRRRRRERRRSR]

STRINGS

;*USES REGISTERS R1 =~ WHERE STRING IS BEING BUILT
-

e
]

CALL

JSR

MOV
MOVR

+ R4
(R5)
(R4)+,(R1)+

’

020752
020754
020756
020760
020762

012504

112421

001376

1X:
$:

105741

BNE

TSTR
RTS

000205

.WORD

RS, FIX

1%
-(R1)
RS

;ADDRESS OF

STRING TO MOVE

JGET ADDRESS AND MOVE RETURN
JGET BYTE AND UPDATE
JWATCH O BYTE

TERMINATOR

:?AE§ UP OVER ZERO BYTE
JEX

JROUTINE TO READ REGISTERS PRIOR TO OPERATION
JSR RS ,BEFORE
sCALL:
020764
020772
021000
021006
021074

017737
017737
017737
0177%7

002216
002220
002222
002224

000205

BEFORE: MOV

MOV
MoV
MOV
RTS

3RLCS.B.CS

aRLBA ,B.BA

aRLDA,B.DA
ggLMP,B.MP

JREAD (S
B8A
.

MpP

LROUTINE TO READ REGISTERS AT TIME OF ERROR
JSR R5,AFTER
;CALL:
021016
021024
021032
021040
021046
021054
021062

021064
021066
021070
021072
021076
021102
021106
021112

017737
017737
017737
017737

002226
002230
002232
002234
002236

AFTER:

002240

MOV
MOV
MOV
MOV
MOV
MOV
RTS

SIMB(C: MOV
MOV

002172
002174
002176
002154
002176

'1:

MOV
MOV
MOV
MOV
(LR
MOV

aRLCS,E.CS
JRLBA,E.BA
aRLDA,E.DA
.MP
MP
aRLE
P
E .MP1
IRLM

JREAD (S

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

;SAVE RO
;SAVE R1
;SAVE R?

(RS)
+. TEMP3

JGET DATA FOR (RC CALCULATION
JGET STARTING (Rf

gglMP.E.MPZ

(RE)+ TEMP?

(R5)+
. TEMPL
B "FBK

TEMPS ,RO

;

BA
DA
MP
MP
mp

JGET NUMBER OF BITS

"GE' PRESENT

30A(1052)

22-NOV-78
LOAD RLC(S

002174

ROR

ADC

200001

002154
002152
000241
006037
013700
013701
010102
040100
043702
050200
043737
%6

021216

001333

948
949
950
951
952

021220
021226
021230
021232
021234

013737
012602
012601
012600
000205

2%:

002154
002176
002154
002176

021236
021242
021250

964
(3)
(3)

965
9%¢

021252
021252
021256
021260
021262

002156

MoV

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

021264
021264
021266
021270
021272

000310
007217
014456

970

021274

000205

012700

000024

MOV
Mov
MoV
RTS

104027

WAITUS

104462

974
975
976

021276
021302
021310

012701
032777
001014

000620
000200

160732

;CLEAR CARRY

R1.R2

R2,RO

XPOLY, TEMP4
RO, TEMP4
TEMP?2
1%
(SP)+,R2
(SP)+,R1
(SP)+ RO
RS

sRETURN

RFADY

#100, ,R1
#DRDY ,aRLCS
2%
#20.

#20. RO
CSWTU
R1
1%

ERRDF

200. ,DRTIM, ERRS

.WORD

200

.WORD

ERRS

.WORD

cROUTINE

“GET CRC POLYNOMIAL (CRC-16)

*COMPL IMENT POL YNOMIAL

MOV
EMT
DEC
BNE

TRAP

2%:

:IF NOT CONTINUE

RO,BCCFBK

TO WAIT FOR DRIVE

WTDRDY: MOV
1%:
8IT
BNE

005301
001367

JBIT O SET

TEMP4, CALB(C

002176

RIS

TSERCODE

DRTIM

TO WAIT FOR CONTROLLER

WTCRDY: MOV
%:
glg
N

SEQ 0053
;ROTATE NEW DATA
+MERGE NEW WITH OLD

R1,R0O
BCCFBK,R2

002176

160772

TEMP3

TEMPS
B8CCFBK,RO
TEMP4 ,R1

002152
002176
002172

00044
000001

1-23

ROR
MOV
MOV
BIC
BIC
BIS
BIC
BIS
DEC
BNE

012701
032777
0010M

#1,R0
2%
BCCFBK
XPOLY,RC
RO

MOV

002154

PAGE

817
BEQ
coM
MOV
COM

?EE

;ROUTINE

960
961
962

15:35

#400. ,R1
5§°DY,8RLCS

S
ASSEMBLY ROUTI NE
MACY11
CZRLBB.P11
22-NOV-78 15:28

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

977
978
(3)
(3)
979

021312
021312
021316
021320

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

021330
021330
021332
021334
021336
021340

04462
000144
007172
014456
000205

986

021342

004537

021016

2%:

990
991

021350
021354

005237
000002

002142

TRPHAN:

993

021356

995
(3)

021356
021356

021346

000205

021016

ERRDF

020214
104010
000206

1008
1009

021422
021426

004537
000010

2 (NN

e e O

021416
021420

e AN

1-24

SEQ 0054

#20.
#20. .RO
CSWTU
R1
1%
RS,AFTER

100.,CRTIM,ERRS

TSERCODE

.WORD

(CRTIM

100

.WORD
RTS

ERRS
RS

JSR

RS,AFTER

INC

TRPFLG

BGNSEG
EMT

C$RSEG

MOV
MOV

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

JSR

RS,WTCRDY

.WORD
JSR

10000%-.
RS, CHERR

.WORD

10000%-.

RTS

RTI

SXASTART OF

SEGMENTXX

; ISSUE DRIVE RESET

005
(3)
(3)

NN =2 = =2 (NN =

HDHOME
:

021276

021444
021450
021450
021452

PAGE

TRAP

.WORD

020456

021430
021430
021432
021434
021440
021440
021442

15:35

WAITUS
MOV
EMT
DEC
BNE
JSR

000024

000001
000013

—d

LOAD RLCS

021322
021324

987

—

22-NOV-78

012700
106027
005301
001367
004537

980
981
982
983

—

30A(1052)

104010
000174
004537

020456

021276

104010
000164

004537
104070
000154

020214

002266
160652

égfiAT

ESCAPE
EMT
ESCAPE
EMT

RS,LDFUNC

:LOAD THE FUNCTION IN NEXT WORD

SEG
CSESCAPE

;CHECK FOR FL:LOE, ELSE EXIT

SEG
C$ESCAPE

;CHECK FOR FL:LOE,

SEG

:CHECK CNTLR FOR ERRORS
ELSE EXIT

SEG

éSSDR

RS.LDFUNC

:LOAD THE FUNCTION IN NEXT WORD

ESCAPE
EMT
L.WORD

SEG
CSESCAPE
10000%-.

JCHECK FOR EL:LOE,

ELSE EXIT SEG

JSR

RS,WTCRDY
SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE,

JSR
ESCAPE
EMT
.WORD

RS, CHERR
SEG
(€ SCAPE
10000%-.

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

ESCAPE
EMT
.WORD

MACY11
22-NOV-78 15:28

ASSEMBLY ROUTINES

CZRLBB PN
1016
1017
1018
1019

021454
021462
021470
021472
021500
021506

013737

042737

021514

30A(1052)

002234

002160
002160

000100
000001
002160

002160

000077

22-NOV-78

LOAD RLCS

MOV
BIC
BEQ
BIC
MOV
BIS

160540

160532

020456

JSR
SEEK
JSR
ESCAPE
EMT
.WORD

104010

000076

021532
021536
021536
021540

004537

021542
021546
021550
021554
021554
021556
021560
021564
021564
021566

004537
000010
004537

021570
021576
021604

013737
043737
001404

020214

020456

99%:

021616
021616
021620

104010
000006

021622

005037

;GET HEADER

99%

;SEEK IS NOT NECESSARY

#MK , 3RLDA

;SET TO SEEK
JSET IN DIFFERENCE

#100, TMPO

TTMP(O, 3RLDA

RS . LDFUNC
R5 ,WTCRDY
SEG
CSESCAPE
10000%-.

R5,LDFUNC

021276

RS ,WTCRDY
SEG

C$ESCAPE
100008-.
R5,CHERR

020214

002234
002150

SEQ 0055

E.MP,TMPO

#77,TMPO

CSESCAPE
10000%-.

JLOAD 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 FL:LOE, ELSE EXIT SEG

SEG
CSESCAPE
10000%-~.

104010
000040

000620
010303
0146244

1-25

SEG

104010

021606
021606
021610
021612
021614

RS, CHERR

000066

104010
000050
004537

PAGE

002160
002160

104462

E.MP,TMPO
?ECMSK.TMPO

;GET HEADER
;s IGNORE SECTOR
;ON ZERO

400. , SKHOME ,ERRO
T$ERCODE
400
SKHOME

;CAN'T SEEK TO TRACK O

ERRO

'%:

SEG

($ESCAPE

JCHECK FOR FL:LOE,

ELSE EXIT

—~b

—

1053

1055

021626
021626
021626

104005

021630

0002C7

021632

SEG

10000%-.

002266

ERFLG

;INDICATE SUCCESS BACK "0 MAIN PROGRAM

OO~ -~
VW ww
Ao
N —
OV

)

NRA~

—

v v

RRRRAGRRIFGG
QRERE

W)= O

021276
021530

15 :35

"0000%:

JXXEND OF SEGMENTZ%X

ENDSEG
EMT

CSESEG

RTS

ENDMOD

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

30A(1052)

?829

22-NOV-78
15:35
PAGE 1-26
*«TEST 1*x -~ WRITE NPR INTEGRETY

.SBTTL

SEQ 0056

#*«TEST 1+x - WRITE NPR INTEGRETY

}8?8

021632

BGNTST

1060

021632

STARS

021632

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

(2)

1061
1062
1063
(2)

1065

1066
1067
(64)
162%

021632
021636
021644
021646

1069

021650

1071
(7)
(6)
(5)
(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

021756
(021764
021772
022000
022004
022012
022014
022014
022020
022022

1091
1092
(3)
(5)
(5)
(5)
1093
(3)

022026
022032
022032
022034
022036
022040
022042
022042

16;6

1080

1089

021650

021750

022024

J**START OF TEST=*x

:"tt*ifittt"t***t******iitttt*t*fi*****t*it*tt*tt***fit*****i'it*ttt

.'"*t"iti'tttt'tttttttt*tfi*tii*t‘tittti*t****fitttttittit*tt*itit*fi

004737

021356

JSR
CKERFG
EMT
.WORD

104032
000232

BGNSEG

104004
012745

012746
013746
012746

104037
062706
005037
012777
005077
012777
005037
013737
052737
004537
013737

1%:

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

160324

002166
002166
002216

160230

5%:

SETVEC
MOV

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

EMT
ADD
CLR
MOV
CLR
MOV
CLR
MOV
BIS
JSR

C$SVEC
#10,SP
TRPFLG
#BUF ,aRLBA
aRLDA
#=-1,aRLMP
GDDAT
DRIVE ,GDDAT
#WRITE ,GDDAT
RS ,BEFORE

014456

002°32

68 :

GDDAT ,B.CS

#201,B.CS
#0P1 ,B.CS
GDDAT ,aRLCS
#100. ,R1
#CRDY ,aRL(S
6%
#20.
#20. ,RO
CSWwTU
R1

JSR
ERRDF
TRAP
.WORD
.WORD

RS,AFTER
0.,CRTIM, ERRS
TSERCODE
O
CRTIM

.WORD
CLRVEC
MOV

JXXSTART OF

SEGMENTZX

;SET UP FOR TRAP

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

BIS
BIC
MoV
MOV
8IT
BNE
WAITUS
MOV
EMT
PEC

BNE

104462
000000
007172
013700

C$BSEG

MOV

002216
0022°6
160242

CSEXIT
L10026~.

JHEADS OVER TRACK 0O
JHEADS GO HOME OKAY

EMT

MoV
MOV
MOV

160332

PC ,HDHOME

ERRS
ERPVEC

ERRVEC RO

;CLEAR TRAP OCCURANCE
;BUS ADDRESS
sLOAD DISK ADDRESS
;WORD COUNT OF 1
;SET UP (SR TO LOAD
;SET IN DRIVE
;SET IN FUNCTION
;LOAD FOR ERROR PRINTOUT
;SET

IN COMMAND

;LOAD CRDY
;CLEAR (BIT 1)
s ISSUE WRITE
;WAIT FOR CRDY
;NPR DONE
JYES, 6%
JWAIT A WHILE

A WHILE UP

;NO, GO BA(K

;CONTROLLER TIMED OuT

;CLEAR VECTOR

MACY11
22-NOV~78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

(3)
1094

(3)
(3)

SRR
VY | 1§ ey
%puu«bcxagyhuunuu
vvvv%

)
) ed

WWO

LRIV,§

D
b and o

22-NOV-78

000024

0¢2054

005737

002142

004537

021016

EMT
ESCAPE

104010

001406

EMT

LWORD

TST

104461

022076

014244

7%:

022076
022076
022076

10001%:

022100
022100
022100

SEQ 0057

INTEGRETY

C$CVEC
SEG
($ESCAPE

JCHECK FOR FL:LOE, ELSE EXIT SEG

100018-.
TRPFLG

8EQ
JSR
ERRSF

7%
RS ,AFTER
1..EM51 ,ERRO

. WORD
.WORD
.WORL

1
EMS5S1
ERRO

TRAP

000001
013145

PAGE 1-27

**TEST 1*x -~ WRITE NPR

104036

022046
022050
022050
022052

15:35

;DID TRAP QCCUR?

:NO

JTRAP ON WRITE

TSERCODE

ENDSEG

EMT

.SBTITL

022102

BGONTST

022102

STARS

EMT

SEGMENTZX

Ja*END OF

TESTaw

C$FSEG

ENDTST

L10026:

JXXEND OF

CSETST

=«TEST 2« - WRITE

FUNCTION

;**START OF

TEST=»

:.'t*tttt*ttttttl‘fi*kttt*tlk'tttfiit*ttfittttttttfifi*tt*ittfiitttttttti

D nd

WININ AN
B SPOTNVNIPRONININININ)
S D 0 B 2 a2 = 2
QOO

D eed D e

b d d b ) —d D

o oy

—

D d

—_

1095
1096
1097
1098

30A(1052)

ed d e

D D cd md

;CHECK OF WRITE LOGIC UNDER FLAC MODE, WE WILL FIRST ISSUE A
JREAD HEADER SO THAT WE DON'T WRITE ON THE BAD SECTOR
JFILE TRACK.
WE WILL WRITE A FULL SECTOx (178 WORDS) FROM
JMEMORY (BUF;.
WE (HECK THAT NOC ERRORS OCCUR.
IF WE

JHAVE

D e e
b

)

— d D e

ERROR WE WILL

DO A ''GET

STATUS'' TO SEE

022102

STARS

".'"'fi"*"""*.*t't“fi“‘t'i"'Qlfi*.'t“fi'fi'ti*"."*""‘*i‘t'it""

D d
D
| e

—t—
e
s
—

=D md
D D o
— e

JP QNN

A DRIVE

;1F WRITE PROTECT IS SET IF IT IS WE WILL ABORT THE
JTEST.
AN ERROR ON THE WRITE WILL LOOP ON JUST THE
JWRITE PORTION.
LOOP ON TEST WILL READ HEADER, SEEK (IF
NECESSARY) AND WR]TE,

022102
022106
022114
022116

004737

021256

JSR

P(C ,HDHOME

104032

CKERFG
EMT

LWORD

L1C027~-.

022120
022120

104004

BGNSEG
EMT

COBSEG

022122
022122
022126

005077
012777

000126

160120
177600

L ¥
6C114

(LR

MOV

CSEX]T

ar.._DA

#-128. ,aRLMP

JHEADS OVER TRACK (
JHEADS GO HOME OKAY

JXXSTART OF

JSET DISK ADDRESS

JWORD (OUNT

SEGMENTZX

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-N0OV-78 15:28
1136
1135

022136
022142

012777
004537

003052
020456

1138
1139

022150
022154

004537

02'276

02215¢
02215€¢

104010
000064

1142

022160

032777

040000

1145
1146

022170
022176

012777
004537

0Q0003
020456

}}%9

(3)
(3)

022146

000012

30A(105¢)

22-NOV-78
15:35
PAGE 1-28
*+TEST 2%+ ~ WRITE FUNCTION

16C102

)
SEQ 0058

MOV
JSR

#BUF ,aRLBA
RS5,LDFUNC

JSR
ESCAPE

RS ,WTCRDY
SEG

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

160054

BIT

#DERR ,aRLCS

;sDRIVE ERROR SET?

160050

MOV
JSR

MK .GSBIT,aRLDA ;SET GET STATUS OF DRIVE
RS,LDFUNC
:LOAD THE FUNCTION IN NEXT WORD

ESCAPE
EMT

RS,WICRDY
SEG
C$ESCAPE

WRITE

EMT
.WORD

CSESCAPE
10000%-.

;BUS ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

JWRITE

SEG

}}22

1147
1148
1149
(3)

022166

022202
022204
022210
022210

001425

000004
004537

022212

000030

1151
1152
1153

022214
022222
022230

013737
032737
001404

1156
(3)
(5)
(5)

022232
022232
022234
022236

104461
000003

(5)
1157
1158
1159
1160
(3)

022242
022242

1161

022244

(3)

(3)
1525

022240
022242

Q22242
022244
022244

;}gz

GSTAT
JSR

021276

104019

1{2&

1155

BEQ

WORD

002234
020000

002166
002166

01033

014244

10400°
104001

10000$:
ENDTST

L10027:

JSBTTL

022246

BGNTST

1167

022246

STARS

1168
1169
1370

(2)

1°74
1175

JGET STATUS
JWAIT FOR CONTROLLER READY

sCHECK FOR FL:LOE,

ELSE EXIT SEG

E.MP,GDDAT
#81113,GDDAT

ERRSF
TRAP
.WORD
.WORD

3. ,WRI OCK ,ERRO
TSERCODE
3
WRLO(K

sREAD DRIVE STATUS
JWRITE LOCK ERROR?
:NO, BRANCH

JWRITE LOCK ERROR

ERRO

ENDSEG

EMT

C$FSEG

EMT

(SETST

JX%END OF

SEGMENTZX

J**END OF

TESTw»

««TEST 3+« = WRITE FUNCTION INTERRUPT
J**START OF
RN RN AN AR R

AR R AN R AR R AR RN AR AR AR AN N AN AR AR

AR AR

TEST»»
I AN RRE P RO NN &

JCHECK OF WRITE LOGIC UNDER INTERRUPT MODE, WE WILL ISSUE A
sREAD HEADER SO THAT WE DON'T WJRITE ON THE BAD SECTOR FILE
JTRACK.
WE WILL WRITE A FULL SECTOR (728 WORDS) FROM MEMORY

1”7

1172
1173

SRR

;BRANCH [F NOT

10000%-.

MOV
BIT
BEQ

.WORD

6%:

cWE CHECK THAT NO ERRORS OCCUR.

022246

o NCREMENT AT THIS TIME.
STARS

WE DO NOT (HECK RLDA OR RLBA

(BUF ),

;;tttttttt.ttttQ.tttttt'ttttt'ttt'tn-fittttt'tttnt-tfifign'tttttnta-

1176

W 2O~
000
N
e
N

D
b
d
e

) e

e O 000~
—

——l

) =

_a—a.ar;;_a—b—[AS1¥
1)) NI~
A~ N~ ANV =

T e

—

e W e

b od = =

—

WIWNOOWWNDO

b ed

d ad ) b

— e

D e

:§CK38 SROGGHEREEgRTRITeugeoR
s OO N e N
o N AN e éfiggpuuumgymaunaxnau-u

—

1177
(&)
(4)

30A(1052)

H
S
22-NOV-78
15:35
PAGE 1-29
*«TEST 3e+ - WRITE FUNCTION INTERRUPT

JSR

PC , HDHOME

000112

EMT
.WORD

CSEX]T
L 10030-.

022264
022264

104004

BGNSEG
EMT

C$BSEG

022266
022272
022276
022304

005037
005077
012777
012777

102144
167750
177600
003052

022246
022252
022260
022262

004737

021356

CKFRFG

10403¢

157744

157732

:CLEAR INTERRUPT OCCURANCE FLAG

#BUF , aRLBA

:PRIORITY TO 0

SETPR]
MOV

#PRI0O
#PR100,RO

004537
000112
004537

020456

JSR

R5.LDFUNC

JSR

RS,WTCRDY

EMT
.WORD

CSESCAPE
100008-.

022336
022336
022342

012700

000340

005737
001004

002144

022344
022350

022352
022352
022354
022356
022360
022362
022362
22364

022366
022372
022372
022372
022374
022374
022374

104010

EMT

000036

104041

2%:

104010

000006

004537

104005
104001

£20214

SEG

JCHECK FOR FL:LOE.

#PRIO7

:SET PRIORITY

ENDTST

L10030:
LSBTITL

02237¢

BGNTST

022376

STARS

:WAIT FOR INTERRUPT

10 7

ELSE EXIT

#PR107,RO
C$SPR]
INTFLG
2%

;DID INTERRUPT OCCUR?
:YES~BRANCH NO-REPORT

ERRDF

&, ,EM17,ERRD

;WRITE DID NOT INTERRUPT

.WORD

.WORD
.WORD
ESCAPE
EMT
.WORD

JSR
100008:

;LOAD THE FUNCTION IN NEXT WORD

ESCAPE

TRAP

014244

;SET UP BUS ADDRESS

;WRITt UNDER INTERRUPT

SETPR]

011351

T$SPR]

;SET UP WORD COUNTY

WRITE . INTEN

MOV
EMT
TST
BNE

1062462
000004

SEGMENT%X

INTFLG
SRLDA
#-128. ,aRLMP

000000

021276

;HEADS GO HOME OKAY

CLR
{.R
MOV
MOV

012700

)

;HEADS OVER "RACK 0

;XYSTART OF

022312
022312
022316
022320
022324
022326
022332
022332
022334

104041

SEQ 0059

T$ERCODE

EM'"
ERROQ
SEG
(SESCAPE
10000$-.

EMT

(SESEG

em?

($ETST

JCHECK FOR FL:LOE, ELSE EXIT SEG

RS, CHERR

ENDSEG

SEG

sCHECK CNTLR FOR ERRORS
;XXEND OF

SEGMENTXX

ooEND OF

TEST#e

#«TEST 4Lew = PROPER INTREMENT OF RLBA ON WRITE

CCRARNEARNNA
VAN NARANY

:eeSTART OF

RN AP

TESTwe

R AT I AN NRNPR AL RNR N ARG R NRAANRNAAAN NN CTNARNDDE

(CHECK THAT THE RIBA WIL. INCREMENT PROPERLY AFTER THE

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

> % OG8N~
N1 NN

B3
B <

Qi PRSIy,
| P
- gl g4

A ASPNINPIN
A~ PNINININD

P o

)

P
I
[

Pl
S )

MACY11 SOA(TOSZ)
v~78 15:28

[ 5
22-NOV-78 15:35 PAGE 1-30
TEST 4»» ~ PROPER INCREMENT OF RLBA ON WRITE
SWRITE WAS FINISHED THE RLBA SHOULD BE

;CREATER.

SEQ 0060

128 WORDS (256 BYTES)

ENDING SHOULD BE ‘BUF + 256.°"
sWE WILL MONITOR ALL ERRORS AND RFPORT THEM ACCORDINGL
Y

022376

STARTING RLBA 1§
°

STARS

:;'Q*‘tki‘kttti*tt'.'fi'it"‘t‘t.'fifii.t"t‘llht.'lnk"tfi?tfl.lfitti'

022376
022402
022410
022412
022414

022414

022416

022444

022452
022456
022460
022464
022464
022466

022470
022474
022474
022476
022500
022506
022514

022516
022516
022520
022522

022524

00<7%7

JSk

" 046032
000116

[KERFG
EM?
+WORD

104006

BGNSEG
tMY

005077
012777
012277
012737

062737

004537
000012
004537

157624

003052

3%
157614
157612

JHEADS QVER TRA(K G
JHREADS GO HOME DKAY

JRASTART OF SEGMENTZZ

($3SEG
aRLDA
#RUF SRLBA

:256..600&1

020465¢

RS.,LDFUNC

ARITE

021276

RS ,WTCRDY
SEG

iWAJT FOR CONTROLLER READY

003052
000400

002166
002166

#BUF ,GDDAT

(SESCAPE

JOHECK

LOAD THE FUNCTION IN NEXT WORD
FOR FL:LOE,

ELSE EXIT

020214

RS, CHERR
SEG
( $E SCAPE
10000%-.
aRt BA,BDCAT
ggDAV.GDDAT

157540

002170

002170
002166

5.,EM20,ERRS

104462

gSERCODE

01141
014410

EM20

000005

sCHECK CNTLR FOR ERRORS

JCHECK FOR FL:LOE, ELSE EXIT SEG

:READ 'RiLBA® FOR PRESENT ADDRFSS
;DID 'BA' INCREMENT PROPERLY?
JYES, CONTINUE
JBA DID NOT INCREMENT

ERR4

s ¥

10400*

104001

10000%:

ENDTST

L100%1:

JULEND OF SEGMENTXX

ENDSEG

EM7T

(SESEG

Emr

CSETST

:**END QF TESTw»

*aTEST Sen « PROPER INCREMENT QF RLDA ON WRITE

022532

SEG

10000%-~.

104010

000030
017737
0237327
001404

($EXIT
L10031-.

#-728.,3RLMP

000040

004537

PC ,HDHOME

;SET UP BUS ADDRESS
SWORD COUNT
JFORM EXPECIED BUS ADDRESS
SAFTER WRITE

177600

104010

022526

022526
022526
022526
<2530
022530
C225%0

0213%¢

BGNTST

;#«STARY OF

TESTwe

ASSEMBLY ROUTINES
X ??CY 1 1
: 28
CZRLBB P
22-NOv~78

¢"532

(4)
(&)
1262

1& J3
(3)

1264
1265
1266

(3)
(3)

1276
1277

1278
(3)
(3)
1279
1280

1281
1282
1283
1284
(3)
(5)
(5
(5
1285
1286

1287
1288
(3)
(3)
(3)
1290

1-31

*#TEST S++ - PROPER INCREMENT OF

RLDA ON WRITE

SEC 0061

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

STARS

::t!fi'titlt.tl*!t'tit'tittti'tttt*fii*t**fifiit'tt'tfi'tt"ttit'tt'ifi

022532

022536
022544
022546

022550
022550

022552

022576
022604
022610
022612
022616

006737

CPEXIT
L10032-.

104004

BONSES
M1

C$RSEG

106032

005037
015777
005237
012777
012777

002166
002166
002166
177600
003052

004537
000012
004537

020456

022622
022626
022626
022630

004537

022632
022640
022646

013737
023737
001404

3%
157462

(LR
MOV

INC

157452

MOV
MOV

157440

021276

020¢c14

000030

002232
002166

002170
002170

GDDAT,aRLDA
GDDAT

sSETUP DISK ADDRESS

#BUF ,aRLBA

;SETUP SUS ADDRESS

JCREATE EXPECTED SE(CTOR
. WORD COUNT

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG
C$ESCAPE
100008-.

MOV
(Mp

E.DA,BDDAT
ggDAT.BDDAY

sREAD DJISK ADDRESS
;DID SECTOR INCREMENT PROPERLY

6. ,EM21 ERRS
£$ERCODE

;DA DID NOTM INCREMENT

ERRDF
TRAP

000006
011466
014410

JXXSTART OF SEGMENTXX

R5,LDFUNC

8EQ

104462

GDDAT

JHEADS OVER TRACK 0
JHEADS GO HOME OkAY

JSR
WRITE
JSR
ESCAPE

EMT
.WORD

104010

022660

.wWORD
.WORD
.WORD

RS ,WTCRDY
SEG

($ESCAPE
10000%-~.

JWRITE

** OAD

THE

FUNCTION IN NEXT WORD

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

. CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE,

JYES,

BRANCH

NO,

ELSE EXIT SEG

REPORT

ERROR

EM21
ERR4

2%:

022660
104005

10000$:

ENDTST

022667

PC ,HDHOME

000114

104010
000040

022650
022650
022652
022654
022656

021356

JSR
CKERFG
EMT
- WORD

022616
022620

1289

PAGE

STARS

022532

1267

1268
1269
1270
1271
1272
1273
1274
1275

'5:35

;;ttt’t'fitt'tittl*ttfitt"'ifititQ'tttfittitt‘ttfitttttttfitfittitttttt

1254

1255
1296
1257
(2)
1258
1259
1260
1261

22-NOV-78

104007

L10032:

;XXEND OF SEGMENTX%

ENDSEG

EMT

C$ESEG

EMT

(eeTST

s**END OF

TESTe»

,\i'

1292
(2>
1253

30A(7052)

MACY11
¢2-NOv-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

30A{1052)

22-Nn'-78

15:35

PAGE

K
5
1-32

*«TEST 6%+ - FORCE HEADER NOT FOUND WITH WRITE

.SBTTL

022664

BGNTST

022664

STARS

**TEST 6%+ - FORCE

HEADER NOT

SEQ 0062

FOUND WITH WRITE

s**START OF

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

*FORCE HEADER NOT FOUND ERROR TO OCCUR.

TEST»«

AR AN RAANAAN AR AARRN AR

THIS

AR RR

IS DONE

NN~
NN A~ ~

()E;bj\gg le)
w —MJ.J—J_LJCDCDE;
DWN“W‘C)(H”‘Qshd\h’\V”vLNKLA\’
R

== =

W V2O
000 NN~ ~\un

)
S
G
| J
—

NWWNW
A A NNWNWNNNW N

N\
T S QU
U QU S G Y

;BY SETTING SECTOR 40 CF THE RLDA AND ISSUING A

WRITE.
SECTOR 40 DOES NOT EXIST ON THE RLO1
§¥gg§EFORE HDR NT FOUND SHOULD SET.

022664

PACK

:;ttt*t*ttfi*it*ttt**ttttt**tttfittt*ttt**t**tttk*t**t*tttttttttttt

022664
022670
022676
022700

004737

021356

JSR

PC , HDHOME

104032

CKERFG
EMT

LWORD

CSEXIT
! 10033-.

022702
022702

104004

BGNSEG
EM"

C$BSEG

022704
922712
022720

012777
012777
012777

000050
003052

MOy
MOV

#40. ,aRLDA
#8UF
. aRLBA

022726
022732
022734
022740
022740
022742

004537
000012
004537

020456

JSR

RS, LDFUNC

JSR
ESCAPE
EMT

RS, WTCRDY
SEG
CSESCAPE

022744
022752
022760
022766

013737
042737
022737
001402

002226

022770
022774
022774

004537

02024

022776
023004
023006
023006
023010
023012
023014

022737
001404

000120

177777

1157334
157324

157322

MOV

WRITE

021276

104010

000054

.WORD

001777
112000

002160

104462

011043
014244

023016

2%:

023016
023016
023016
023020

100008:

104005

ENDTST

s INSURE NOT TO FIND HEADER BY
JSETTING SECTOR 40 OF CYL. ADDR.
“WORD COUNT

cLOAD THE FUNCTION IN NEXT WORD

SWRITE

JWAIT

FOR CONTROLLER READY

sCHECK FOR FL:LOE, ELSE EXIT SEG

10000$%-.

E.CS, TMPQ

:GET RLCS

;YES, CONTINUE

#1777, TMPO
*SAVE ERROR BITS
#81715.81712:81710,
TMPO :HDR NOT FOUND SET.

JSR

RS, CHERR

EMT

CS$CLPY

5?8

521115.81112581r1o.rmp0

ERRDF

23.,EM10,ERRO

WORD
.WORD
.WORD

23
EMI10
ERRG

CKLOOP

TRAP

000027

;XXSTART OF SEGMENTZX

BIC
cMP

BEQ
1%:

104006

112000

MOV

002160
C02160

#-1,3RLMP

JHEADS OVER TRA(K 0O
JHEADS GO HOME OKAY

TS$ERCODE

JXXEND OF SEGMENTXX

ENDSEG

EMT

:WHEN CORCED

(3SSEG

J**END OF

TEST=«

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

(3)

023020
023020

30A(1052)

22-NOv-78

—=OVO~Y
~w~NOND
N0~ 0

~ WW

RRRRARRRRSRRRY

NOW

e
—
——

~\NW
~

LSBTTL

(3)

023022

BGNTST

023022

STARS
R

FOUND WITH WRITE

SEQ 0063

CSETST

EMT

#*TEST 7+« - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT
J**START OF

TESTwx

222 Rttt
ds
st 2222222222222

£?§g§OR 40 OF RLDA AND ISSUEING A WRITE

023022

p)
WA AR AR A AR

0C 737

023022
023026
023034
023036

104032
000160

023040
023040

104004

023042
023042
023046
023050
023054
023062
023070

0¢1356

012700

000000

005037
012777
012777
012777

002144
000050
003052
177777

004537
000112
004537

020456

104041

000340

005737
001004

002144

023136
023136
023140

000054

CSEXIT
L10034-.

BGNSEG
EMT

C$BSEG

SETPRI
MOV
EMT

A#PRIOO
#PR100,RO
C$SPRI

MOV
MOV

#BUF ,aRLBA
#-1,aRLMP

INTFLG
#40. ,aRLDA

JSR

RS5,! DFUNC

JSR
CKLOOP
EMT
SETPRI
MoV
EMT

R5,WTCRDY

WRITE . INTEN

TST

’%:

R AR AN RARARA RN

JA%XSTART OF

AA NN AN

SEGMENTXX

;CLEAR INTERRUPT OCCURANCE FLAG
s INSURE NOT TO FIND HEADER BY
JSETTING SECTOR 40 OF
;WORD COUNT

CJWRITE

JWAIT

CYL.

ADDR.

;LOAD THE FUNCTION IN NEXT WORD
FOR CONTROLLER READY

C$CLPI
#PRIO7

#PR107,RO
C$SPR]

INTFLG

;DID

INTERRUPT OCCUR

ERRDF

24.,EM43,ERRC

;NG

INTERRUPT FROM OP]

.WORD
.WORD
.WORD

¢
EMu3
ERRO

ESCAPE

SEG

.WORD

10000%-.

EMT

JHEADS OVER TRACK 0O
JHEADS GO HOME OKAY

BNE

TRAP

000030
012723
014244
104010

PC,HDHOME

EMT
.WORD

CLR
MOV

104462

023134

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

JSR
CKERF G

021276

012700
104041

FELEE
OO~
00 N~
= o

IR QAR(W, 1V, 1V, WS
~ o~
-~

—
3

;TEST THAT HEADETM NOT FOUND ERROR WILL GENERATE AN INTERRUPT
sON OCCURANCE.
HEADER NOT FOUND WILL BE FORCED BY SETTING

104006

—

PAGE 1-33

*#TEST 6%+ ~ FORCE HEADER NOT

L10033:

104001

15:35

TEERCODE

C$ESCAPE

;YES OKAY

JCHECK FOR FL:LOE, ELSE EXIT SEG

MACY11
22-NOV~-78 15:28

ASSEMBLY ROUTINES

CZRLBB P11

1371
1372
1373
1374
1375
1376
1377

SRR
GO~ EREERRGGaG
O 00N~
e
NS (NN
o

—

(3)
1378
1379
1380
1381

013737
042737
022737

002226
001777

023166
023172
023172

004537

020214

023174
023202

022737
001404

023212

106462
000031
011043
014244

023142
023150
023156
023164

001402

112000

22-NOV~78

**TEST

M5
PAGE 1-34

15:35

7#*x - FORCE HEADER NOT FOUND WITH WRITE

002160
002140
00216V

E£.CS,TMPO

MOV
BIC

1%:

104006

002160

#B1T15. 81712.81710,TMP0

JSR
CKLOOP
EMT

RS, CHERR

(MP
BEQ
ERRDF

g§1715!BIT12!BIT1O.TMPO

:YES,

104005

ENDTST
L10034:

104001

LSBTTL

023220

BGNTST

023220

STARS
IR

;WDR NOT FOUND SET.

CONTINUE

CS$CLPT

25. ,EM10,ERRO
TSERCODE

EM10
ERRO

;WHEN FORCED

3%:
10000%:

JXXEND OF SEGMENTZ%

ENDSEG

EMT

($ESEG

EMT

CSETST

J**END OF

#«TEST 8ex - (HECK OPI

TESTe«

TIME WITH HDR NT FND
J**START OF

SEQ 0064

-SAVE ERROR BIT3

CMP
BEQ

.WORD
.WORD
.WORD

INTERRUPT

:GET RLCS

#1777, TMPO

TRAP

023214
023214
023214
023214
023216
023216
023216

30A(1052)

NN R R AN

R AR

AR RN R R RN AR RN

AR AR R RRANN

TESTw~
RN R AR AN AR

cCHECK OP] TIME IT SHOULD BE AROUND 200 MILLISECONDS (ON UNIBUS)
s HECK THIS BY TIMING OPI ON A FORCED HEADER NOT FOUND
. ISSUE WRITE WITH SECTOR 40 SET IN THF DISK ADDRESS

023220

STARS

.'.'l't..ttfi'tt.tt'ttttt‘ttit.ilttt'lttttt*ittti'.tt'tttlQl.t.tiflli

023220
023224
023232
0723234

023236

023240

(7)
(6)
(&)

023240
023244
023246
023246
023252
023256
023262

004737

021356

104032

JSR
CKERFG

PC ,HDHOME

000264

EmMT
. WORD

CSEXIT
L10035-.

104004

BGNSEG
EMT

C$RSEG

013700

002254

012746
012746
013746
012746

000340
020116
.
002254
000003

104036

CLRVEC
MOV
EMT
SETVE(
MOV
MOV
MOV
MOV

JHEADS OVER

TRAK 0

JHEADS GO HOME OkAY

sXXSTART OF SEGMENTZX

Bvi(
JCLEAP PRESENT INTERRUPT VECTOR
B8VEC RO
CSCVEC
BVEC . #TIMSRY,#340
JSET INTR. VEC. WITH ABORT WA[T
#360,-(SP)

#T[MSRV,-(SP)

8,5C,=(SP)
#3,-(SP)

ASSEMBLY ROUTINES
MACYil
CZRLBB.P11
22-NOV-78 15:28
(3)
(2)
1607
(3)
(3)

1408
1409
1610

}2};

023266
023270
023274
023274
023300
023302
023306
023314

023322

104037
062706

000000

012777

177777

002144
000050
003052

22-NOV-78
15:35 PAGE 1-35
«+TEST B#+ = CHECK OP] TIME WITH HDR NT FND
EMT
ADD

000010

012700
104041
005037

012777
012777

30A(1052)

SETPR]
MOV
EMT
CLR

156732
156722

MOV
MOV

156720

Mov

C$SVEC
#10,SF
#PRIOO
#PR100,RO
C$SPR]

INTFLG
#40. ,0RLDA
#BUF ,dRLBA

#-1,aRLMP

SEQ 0065

JCLEAR INTERRUPT FLAG
:SET UP FOR HDR NT FND
;BUS ADDRESS

:WORD COUNT

1613
}z}é

023330
02333

004537
000112

020456

JSR
RS, LDFUNC
WRITE!INTEN

1416
1417
1418
1419
1420
1421
1422
(3)
1423
1624

023336
0233%2
023344
02334€
023350
023354
023360
023360
023362
023366

013700
006300
006300
006300
063700
063700

002302

MOV
ASL
ASL
ASL
ADD
ADD
WAITUS
EMT
MOV
TST

OPIMX,
RO
RO
RO
0
OPIMX
, RO
0P IMX -RO
RO
CSWTJ
RO ,RDDAT
INTFLG

;NO, REFPORT ERROR

1427

023374

GETTIM

8DDAT

JGET

}2%2

(3)
(3)
1428
1429
1430
1431

023372

001427

023374
023376
023402
023404
023412
023414

104052
010037
005000
162737
100402
005200

023420

010037

1432 023416

;ggz

104027
010037
005737

000772

002302
002302

002170
002144

BEQ

002170
000012

002170

1%:

EMT
MOV
(LR
SUB
BM]
INC

B8R

C$GTIM
RO,BDDAT
RO
#10. ,BDDAT
3
RO

JLOAD THE FUNCTION IN NEXT WORD

JWAIT MAX MILLISECONDS

:SETUP FOR WORST CASE
;DID INTERRUPT OCCUR
TIME

EXPIRED

:DIVIDE
LANSWER
‘BY 10 TO GET
"RIGHT ANSWER

MOV

RO,BDDAT

JIHECK

THAT OPI

TIME

SETPRI
MOV

#PR]O7
#PR107,RO

CMP

OPIMX ,BDDAT

(MP

OPIMN,BDDAT

SWITHIN LIMITS

ERRDF
TRAP
WORD
.WORD

974. ,EMS6,ERRY3 ;0P]
TSERCODE
974
EMSG

(LRVEC

BVEC

}2%2

1437
(3)

023424
023424

012700

000340

1438

023432

023737

002302

Q02170

023442

023737

002300

002170

(3)

1228
1441

}225
J

023430
023440
023450

1444
(%)
(5)
(5)

(023452
023452
023454
023456

1446

023462

(3)

003466

1£2%
(3)

1447

023460
023462

02%70

104041

002404
003404

EMT

BLT
BLE
A ¥

104462

001716
013456

015102

013700

104036

.WwORD

002254

5¢:

MOV

EM7

SETVET

IS WITHIN LIM]ITS

C$SPR]

4
S¢

1T WITHIN LIMITS

'NO, REPORT ERROR
YES

TIMING INCORRE(T

ERR13

BVE(,RO

(orvke

;CLEAK PRESENT

BvEC,&INTSR,
83,

SET

VE(T'OR

IN OLD

TOR

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

(7)
(6)
(S)
(4)

(3
(2)

1448
1449

3)
(3)
1450
14651
(3)
(3)
1452
1453
1454
1455
1456
1457

(2)

1458
1459
1460
1461
1462
1463

(2)

023510
023512
023516
023516
023516
023520
023520
023520

30A(1052)

012746
012746
013746
012746

000340
020110
002254
000003

MOV
MOV
MOV
MOV

BVEC,~-(SP?
#3,-(SP)

062706

000010

ADD

#10,SP

104037

EMT

100008:

104005

15:35
PAGE 1-36
*+TEST 8+ - CHECK OP] TIME WITH HDR N7 FND

22-NOV-78

#340,~(SP)

#INTSRV,-(SP)

($SVEC

JAXEND OF SEGMENTX%

ENDSEG
EMT

CSESEG

ENDTST

L10035:

104007

.SBTTL

025522

BGNTST

023522

STARS

J**END OF

EMT
*#TEST

SEQ 0066

TEST=~

CSETST
9=« - MULTIPLE

SECTOR

TRANSFER ON WRITE
;**START OF

TEST==

:;Qtttttkttt**t**i**fitttitti*fittttttkfittt*tttitit*tt‘tt*ttttii'tt

;CHECK FOR MULTIPLE SECTOR TRANSFER ON WRITE. THIS TEST CHECKS
;THAT 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
STARS

023522

INCREMENT EACH TIME.

AR KRR AR AR AR AR AR

AR AR AAAACRAAARRRARRRRAAARARARC
AR
AR AR

1464

1465
1466
1467
1468
(4)
(4)
1469
1470
1471
1472
1473
(3)
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486

(3)
(3

023522
023526
023534
023536

104032
000152

023540
023544

005037
005037

004737

021356

002160
002162

023550
023550
023552
023560

002162
002160
002166
177577

020456

021276
023632

002166
002166
156452
002766
156434
156432

1¢:

JSR
CKERFG
EMT
-WORD

PC ,HDHOME

CLR
CLR

TMPO
TTMMP1

BGNSEG
EMT

C$BSEG

MOV

TMP1.,GDDAT

BIS

MoV
ADD
MOV
MOV

JSR
WRITE
JSR

ESCAPE
EMT
.WORD

CSEXIT
L10036~-.

TMPO
. GDDAT
GDDAT , aRLDA
#2.,GDDAT
#8UF ,aRLBA

#=329. ,aRLMP
R5,LDFUNC

RS ,WTCRDY
SEG
(SSCAPE
10000%-.

JHEADS QVER TRACK 0O

JHEADS GO HOME OKAY

;CLEAR TEMP LOCATIONS

JXXSTART OF SEGMENTZZ

JGET
;GET
;SET
JSET
;SET

CYLINDER
SECTOR
DISK ADDRESS~SECTOR O
EXPECTED + 2
BUS ADDRESS

;WORD COUNT-SECTOR+1

WORD

JLOAD THE FUNCTION [N NEXT WORD

JWRITE
JWAIT FOR CONTROLLER READY?

JCHECK FOR FL:LOE, ELSE EXIT SEG

ASSEMBLY ROUTINES

CZRLBB.P1

1487

1488
1489

22-NOV-78 15:28
004537

(3)
(3)

023634
023640
023640
023642

000044

1493

023644
023652
023660

013737
023737
001404

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

023662
023662
023664
023666
023¢70

1490
1491
1492

1494
1495

MACY11

30A(1052)

023706
023706
023706
023710
023710
023710

104010

002170
002166

104462

SN2 AN
aaa
)=

OV
NS N2~ O

T
N
G
U
B

EMT

C$ESCAPE

SEG

SEQ 0067

; CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE, ELSE EXIT SEG

10000%-.

MOV
CMP

BEQ

E.DA _BDDAT
BDDAT,GDDAT
2%

;READ DISK ADDRESS
;IS DISK ADDRESS CORREC(CT

ERRDF

7.,EM22 ,ERR4

;DISK ADDRESS NOT (CORRECT

.WORD
.WORD

7
EM22

TRAP

000007
011544
014410

SECTOR TRANSFER ON WRITE

R5,CHERR

.WORD

002232
002170

¢ .6
PAGE 1-37

JSR

ESCAPE

.WORD

T$ERCODE

JYES, BRANCH

NO, REPORT ERROR

ERRS

L)$:

005237
022737
001322

002160
000046

INC

002160

CMP
BNE
10000%:

104005

ENDTST

L10036:

104001

.SBTTL

ANV
A~V
i~

15:35

**TEST 9#x ~ MULTIPLE

020214

023672
023672
023676
023704

22-NOvV-78

023712

BGNTST

023712

STARS

TTMMPO

#46,TMPO
1%

JNEXT SECTOR

;AT END?
:NO, GO BACK

ENDSEG

JXXEND OF

SEGMENTZX

J**END OF

TESTx«

EMT

C$ESEG

EMT

CSETST

*=xTFST

10%*x - (CHECK DIRECTION OF WRITE NPR
;**xSTART OF

TEST=»x

t***fi*"**t\'itt"‘ll’l’fl"’*fi""‘"**t*‘***fi***fifi*****t**fi**t****t*t*tti

:VERIFY

THAT A WRITE

IS WRITING NOT READING.

WE WRITE

:KNOWN PATTERN IN 'BUFTM* (128 WORD), WF THEN ISSUE A WRITE.

ONCE THE WRITE IS FINISHED WE CHECK THAT 'BUF'' [S INTACT.
THIS IS DONE TO PROVE THAT THE NPR 1S GOING THE RIGHT

STARS

023712

.'"t*t*i*fi***t***t**fi***t*“*Q**fi***'***fi**'fi*t*"‘lfi*t****i*tiitfifi

023712
023716
023724
023726

000160

104032

JSR
CKERFG
EMT

.WORD

CSEX!T
L10037~.

023730
023730

104004

BGNSEG
EMT

($BSEG

MOV

’BUF R2

023732
023732
023736
023742

004737

021356

00305¢
000209
125252

2%:

MOV

PC ,HDHOME

4125252 (R2)+

;HEADS OVER TRACK 0
;HEADS GO HOME OKAY

sX%START OF

SEGMENTZX

JWRITE BUFFER FOR WRITE OPERATION
;ONE

SECTOR'S WORTH

-WRITE BUFFER

023746
023750

005301
001374

023752

005077
012777
012777
004537
000012
004537

156270
177600

003052
020456

30A(1052)

D 6
15:35
PAGE 1-38
**TEST 10=* - CHECK DIRECTION OF WRITE NPR

22-N0OV-78

156264
156252

R1
3%

;DONE?
;NO, GO BACK

CLR
MOV
MOV

aRLDA
#-128. ,aRLMP
#8UF ,aRLBA

.LOAD DISK ADDRESS
<WORD COUNT
.BUS ADDRESS

JSR

WRITE

021276

—_—

H BN

VNN

VNN~
e N
e =
OV
NRA S~
N E e
(NN —

OO
NN NN W (W10 QWL IV, IV IV TUS TN IV, TV, LV, TV, [V, [NV, IV, 1V, |

—
b
——

—_
=
—

VIVIN
A AN~ o~ \ N~ ~\NN N NN A A NN A A~ A~

b nd

1550

R5,CHERR
SEG
CSESCAPE
100008-.

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

003052
000200

#BUF ,R2
#128. ,R1

JSET UP TO CHECK BUFFER
JCHECK 128 WORDS

1566

024020
024024

012702
012701

024030
024030

104004

024032
024040
024044
024052

012737
011237
023737
001406

125252
002170
002166

024054
024060
024060
024062
024064
024066

010237

002162

u2407?2
024074
024076
024100
024102
024102
024102
024104
024104
024104
026106
024106
024106

104010

000066

002766

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

002170

R2.TMP1

104001

JYES,

CONTINUE

;LOAD MEMORY LOCATION OF

FAILURE

TSERCODE

8
EM26
ERRS
SEG

;CHECK FOR FL:LOE,

10001%-.
(R2)+
R1
4%

JNEXT.
;DONE?
;NC, GO BACK

CSESCAPE

6%:

10001$:

10000%:
ENDTST

L10037:
SBTTL

024110

;DATA SHOULD BE 125252
sLOAD DATA INTO BDDAT
;IS IT OKAY?

8..EM26 ,ERR8

001357

104005

JX%START OF SEGMENTZX

C$BSEG

104462
000010
012045
014564

104005

SOME DATA

020214

004537

104010
000010
005722
005301

;WRITE

sLOAD THE FUNCTION IN NEXT WORD

JWAIT FOR IT TO FINISH
JCHECK FCR FL:LOE, ELSE EXIT SEG

024010
024014
024014
024016

024070

RS5,LDFUNC

R5,WTCRDY
SEG
CSESCAPE
10000¢~.

104010
000076

024070

SEG 0068

DEC
BNE

U W G

b Qv N Ivitviivivitvitod
N
J\WN—'VV SVHLLYRNLRUR

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

BGNTST

JAXEND OF SEGMENTZZ

ENDSEG

EMT
ENDSEG

C$ESEG

EMT

C$LSEG

EMT

CSETST

*«TEST

ELSE EXITTM SEG

17x+ -

JAXEND OF SEGMENTZX
J**END OF

CHECK FULL RLBA

TEST=»

INCREMENT

;**«START OF

TESTw»

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

1567
1568
)

30A(1052)

024110

(%)
(4)
1579
1580
1581
158D
1583
(3)

1584

1585
1586

1587

1588
1589
1590
1591

1592

1593

(3)
(3)
1594
1595
1596
1597

1508

1599
1600
1601
(3
(5)
(5
(5)
1602
(%)
(3)
1603
1604
1605
1606
1607
1608
1609

15:35

E 6
PAGE 1-39

**TEST 11x+ - CHECK FULL RLBA INCREMENT

SEQ 0069

STARS
RN

1569

1570
1571
1572
1573
1574
)
1575
1576
1577
1578

22-NOvV-78

RN R AR AR AR

AR AR

R AR AR RRR

AR AR RRARN AR R

RN AR ROANRRAR

:TEST THAT THE RLBA WILL INCREMENT, WE DO NOT DO A FULL 16
:BIT INCREMENT WE CHECK THAT EACH BIT WILL TOGGLE 0 TO 1

:AND 1

TO 0.

WE DO CHECK ALL BITS EVEN IF ALL MEMORY

;1S NOT AVAILABLE.

é?ERgSE

0246110

024110
024114
024122

004737

024124

000134

024126

005037

024132
024132

104004

024134
024134
024142
024146

012777
005077
013777
004537
000G12
004537

02472
024200
024206
024214
024222

013737
062737
013737
023737
001404

024240
024244
024246
024254
024256

PC ,HDHOME

.WORD

CSEXIT
L10040-.

CLR

TMP?

BGNSEG
EMT

C$BSEG

MOV

#-1,3aRLMP

020456

dg?TE

R5,LDFUNC

021276

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG
C$ESCAPE
10000%-.

002162

177777
156100

002162

156106

3%:

CLR
MOV

15607¢

104010
000066

002162
000002
002230
002166

002166

4%:

ADD

BEQ

104010
000020

006337

002162

052737

000002

6%:

JHEADS OVER TRACK 0
JHEADS GO HOME OKAY

;CLEAR LOCATION
J%%START OF

ERR4

TSERCODE

SEGMENTZX

JONLY ONE (1) WORD
;LOAD DISK ADDRESS
.BUS ADDRESS

JLOAD THE FUNCTION IN NEXT WORD

JWAIT FOR WRITE TO FINISH
JCHECK FOR FL:LOE, ELSE EXIT SEG

;SET UP EXPECTED RLBA

JYES,

.WORD

ASL

NAARNRANANR RN RN RN AR

E.BA_BDDAT
GDDAT ,BDDAT

ESCAPE
EMT
.WORD

AN AR AN AR

WORD TRANSFER.

JPREVIOUS RLBA+2

.WORD

BCS
BIS
BR

CN2162

TMP1,GDDAT

(RANDOM) AND A 1

#2,GDDAT

9. ,EM30,ERRSG

.WORD
5%:

aRLDA
TMP1,aRLBA

ERRDF
TRAP

000011
012165
014410

000727

MOV
MOV
(MP

002170

104462

103404

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

JSR
(KERFG
EMT

104032

024154
024160
024162
024166
024166
024170

024224
024224
024226
024230
024232
024234
024234
024236

021356

(WE IGNORE NON-EXISTANT MEMORY ERRORS).

THE SAME DISK ADDRESS

;READ RLBA
JWAS IT UPDATED PROPERLY?

CONTINUE

;BA INCREMENT ERROR

EM30
SEG
C$ESCAPE
10000%-.

JCHECK. FOR FL:LOE, ELSE EXIT SEG

TMP1

JNEXT PATTERN TO TEST RLBA

6%
#BITT,TMPT
3%

;DONE?
:NO, SET IN BIT
;GO (HECK NEXT.

JEND TEST

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

[\ P Y

i i el D YV N —

Nolrde <L NTo YV, PV IAEANT V]

a b
b
a

—

~ONONONOCOON~
~O

1610

024256
024256
024256
024260
0242€0
024260

30A(1052)

F
6
15:35
PAGE 1-40
*+TEST 11x+ ~ CHECK FULL RLBA INCREMENT

22-NOv-78

10000%:

104005

ENDTST

L10040:

104001

.SBTTL

024262

BONTST

024262

STARS

JXXEND OF SEGMENTZX

ENDSEG
EMT

C$ESEG

EMT

CSETST

*«TEST

SEQ 0070

J**END OF

12+« - BA BIT "6

TEST=»

INCREMENT
s**START OF

RN AR

AR RN AR R AR R AR RN AR

TEST#*x

ARA AR KRR RRRNNRRAAANNNRRRAANNNN
R

;CHECK THAT BA BIT 16 WILL INCREMENT.
WE WILL LOAD THE
;RLBA WITH 177776 AND ISSUE A ONE WORD WRITE WE THEN

JCHECK BA BIT

;70 GO TO ZERO

024262

16 TO SET,

BA 17 T0O STAY A 0 AND

THE

RLBA

STARS

:."Qt*ttt*tlttttlttttt*ttttt*ttti'fitttt*t*tt*t.tltt'titQtttttiitt

024262
024266
024274
024276
024300
024300
024302
024302
024310
024314
024322
024326
024332
024334
024340
024340
024342
024344
024352

004737

021356

104032
000160
104004

012777
005037
012777
005077
004537
000012
004537

177776
002¢62

177777
155720

155734

BGNSEG
EMT

($BSEG
#177776,3RLBA
XMEM

021276

RS ,WTCRDY
SEG
C$ESCAPE
10000%-.

020000

024354
024360
024360
024362

004537

020214

024 364
024372

032737
001004

002226

ANXM,E.CS

3¢:

106010

000072

000G
2
012225

CeEXIT
L1004~

RS, LDFUNC

104010

104462

.WORD

MOV

"55726

PC ,HDHOME

020456

000112
032737
001002

024374
024374
024376
024400

JSR
CKERFG
EMT

JHEADS OVER TRA(CK 0O
sHEADS GO HOME OKAY

JXYSTART OF SEGMENTZX

;SET MAX BA TO INC. BA16
‘WE

DON'T WANT

TO LOAD ANY EA

:ONE WORD TRANSFER

;LOAD THE FUNCTION IN NEXT WORD
;WAIT FOR WRITE

TO FINISH

:CHECK FOR FL:LOE, ELSE EXIT SEG

:NON-EXISTANT MEMORY ERROR?

SYES,

RS, CHERR
SEG

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

C$ESCAPE

CONTINUE

10000%-~.

000020

002226

#BA16.E.CS

;DID BA16 SET?
JYES, CONTINUE

1 0..EM31,ERRC
T $ RCODE

;BA 16 DID NOT INCREMENT

ASSEMBLY ROUTINES

CZRLBB PN

MACY11
22-NOv~78 15:28

024402

16244

024404
024404

106006

024406
026416

032737
001404

024416
024416
024420
024422
024424

000013
012270
014244

024426
024426

104006

024430
024434
024442
024444
024444
024446
024450
024452

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

22-NOV=78

A
¥

000040

002226

104442

005037
013737
001404

5%:

002166
002230

ERRQ

CKLOOP
EMT

C$CLPT

BIT
BEQ

#BA17 E.CS
5%

;DID BA17 SET ALSO?
:NO, GOOD CONTINUE

ERRDF

11. ,EM32 ERRC

;BA 17 GOT CARRIED AWAY

.WORD
.WORD
.WORD

EM32

CKLOOP
EMT

CLR

Cl217C

MOV

BEQ
ERRDF

104462

TRAP

000014
012335
014410

SEQ 0071

.WORD

TRAP

.WORD
.WORD
.WORD

024454

024454
024454
024454
024456
024456
02445¢€

30A(1052)

{?ERCODE

ERRO

C$CLPT
GDDAT
E.BA,BDDAT
6%
12.,EM33,FRRG
¥§ERCODE

;CHECK THAT BA15-BA0 IS (LEAR

;READ BA

;1S BA ZERO?
;BA SHOULD BE ZERO

EM33
ERRS

6%:
100008
:

104005

ENDTST

10041

104001

LSBTTL

024460

BGNTST

024460

STARS

JXXEND OF SEGMENTZX

ENDSEG

EMT

CSESEG

EMT

CSETST

**TEST

13++ -~ BA BIT

J**END OF

TESTw»

17 INCREMENT

s**START OF

TEST=»

:;tttttt*ttt*ttittttktttttiiittt’tt.*ttQttittitttfittt'tt'ttti"'i

sCHECK THAT BA BIT 17 WILL INCREMENT.
WE WILL LOAD THE
JRLBA WITH 177776 AND BA 16 SET, WE WILLISSUE A ONE WORD
WE THEN CHECK BA17 TO SET, BA16 TO CLEAR AND
JWRITE.
;BA15 - BAO TO (LEAR.

024460

STARS

;;*ttfit*ttitfii***tt*fiittti'i'it.fii'ti'.iittikt*titttt"ittttttt'.

024460
024464

024472
024474

024476

004737
104032
0001¢2

(213%¢

JSR
CKERFG
EMT
.WORD

BGNSEG

P( ,HDHOME

CSEX]T
L10042-.

JHEADS OVER TRA(K (©
JHEADS GO HOME OkAY

JXXSTART OF SEGMENTZY

ASSEMBLY ROUTINES

1694
1695

1696

(3)
(3)

024500
024500

NS A S~ NN Y

V‘J%"\URILZIURIAR
b}
a2 O

—

b iad i b e
A
ed

W) =4O~

OO NPV~ B v

—

h v
b e

\)\‘AA—\A\"\‘\‘\J'\['\N’\AAA
NN

177777

020000
004537

024564
024572

032737
001004

020214

104010

024574
024574
026576
024600
024602

000015
012376
014244

024604
024604

104006

024606
024614

032737
001404

024616
024616
024620

104462

000040

002226

104462

;SET MAX BA TO INC. BAT6

#=1,aRLMP
aRLDA

:ONE WORD TRANSFER

R5,WTCRDY
SEG
C$ESCAPE
10000%-.

;WAIT FOR WRITE

:YES, CONTINUE

*SET BA16 IN RLCS

;LOAD THE FUNCTION IN NEXT WORD
TO FINISH

:CHECK FOR FL:LOE, ELSE EXIT SEG

ANXM,E.CS

;NON-EXISTANT MEMORY ERROR?

RS, CHERR
SEG
C$ESCAPE
100008-.

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

3 3

#BA17 E.CS

;DID BA17SET?
;YES., CONTINUE

13. EM34 ERRO

;BA 17 DID NOT SET

T$ERCODE

EM34
ERRG
4%

C$CLPT

080020

#BAT6,E.CS
5%

;DID BA16 SET ALSO?
;NO, GOOD CONTINUE

14, ,EM35 FRRO

;BA 16 DIDN'T KNOW WHEN TO QUIT.

TSERCODE
14

000016
010441
014244

EM35
ERRO

104006

005037
013737
001404

#177776 ,aRLBA

RS ,LDFUNC

00222¢

SEQ 0072

C$BSEG

#BA16, XMEM

227276

000072

024630
024634
024642
024644
024644
024646
024650
024652

2%:

155520
02045¢€

024560
024560
024562

024626
024626

EMT

177776
000020

024506
024514
026522
024526
024532
024534
024540
024540
024542
026544
024552

024554

H 6
22-NOv=78
15:35
PAGE 1-42
«+TEST 13x» - BA BIT 17 INCREMENT

104004
wvinDW

024476

NOONAN
oo

(3)

1687
1688
1689
1690
1691
1692
1693

22-NOvV-78 15:28

30A(1052)

A0 O W
vt

(ZRLBB.P11

MACY11

002166
00223¢C

C($CLP?

02170

JREAD BA

15. ,EM36,ERRL

;BA >SHOULD BE

106462

{%ERCODE

000017
012506
014470

JCHECK THAT BA15-BA0 IS (LEAR

GDDAT
£ .BA BDDAY

;1S BA 2ERD?

Z2ERO

EM36
ERR4

024654
024654

EnNDSEG

;RXEND OF

SEGMENTZX

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

1224

(3)
(3)
Y7225

024654
024654
024656

024656
024654

30A(1052)

ENDTST

L10042:

104001

PR RANRIINS

[ QY

od ol ad

NN SNNINA
~J

- ad ad a

1728
1729
730

LSBTTL
0246£0

15:35

**TEST 13++ - BA BIT

10000%:

136005

1726

1727

22-NOV=78

17 [NCREMENT

EMT

C$ESEG

EmT

CSETST

**TEST 14%% - TEST READ NPR INTEGRITY

;##START OF

TESTw#

STARS
R

AR RN RN P AR AR AR AT AR AR AR AR R R R AR ARN RN R

ANRNAERRRNRN NN

;CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF
§¥§R§ETUP LOCATION 4 TO HANDLE THE TRAP ]F IT KAPPENS

024660

RARANNN

THE

UNIBUS

b
AL EAASAAS SRS

006737

021356

JSR

SRS Ad

iRl

PC ,HDHOME

024674

"04032

V00132

024676
024676

104004

BGNSEG
EMT

($8SEG

SETVEC

ERRVEC,#TRPHAN,#340

MOV
MoV

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

i%:

012746
01274¢
013246
12746

MOV

155276

104036

104010

000030

004537

020214

104010

000020
005737

N02142

’

dtsslsl

)

JHEADS GO HOME OKAY

JXXSTART OF

SEGMENTZX

JSET UP VECTOR

#3,-(SP)

CSSVEC
#10,SP

égfio

R5.,LDFUNC

TRPFLG
#8UF ,aRLBA
aRLDA
#=1,3RLMP

;CLEAR TRAP PLAY
;LOAD BA
;LOAD DA
JLOAD W(

JSR

RS ,WICRDY

EMT
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD

C$CVEC
SEG
($L SCAPE
10000%-.
R5,CHERR
SEG
C$ESCAPE
10000%-.

TRPFLG

CLRVEC
MOV

002132

#340,~-(SP)

EMT
ADD

CLR
MOV
CLR
MOV

155304

013700

MOV

CREXIT
£ 10043~.

sttt ittt

cHEADS OVER TRA(K 0

CKERFG
EMT
.WORD

024700

SEQ@ 0073

SA%END OF TEST#e

BGNTST

0246467

1735

PAGE 1-43

ERRVEC
ERRVEC RO

;LOAD THE FUNCTION IN NEXT WORD

;CLEAR OUT VECTOR

;CHECK FOR FL:LOE, ELSE EXIT SEG

:CHECK (NTLR FOR ERRORS
;CHE(K FOR FL:LOE, ELSE EXIT SEG

sDID

TRAP

OCCUR?

MACY1'

ASSEMBLY ROUTINES

CZRLBB P
1759
1769

w'\,.av

025022
025024

025024
025024
025024

22-NOV-78

15:35

«+TEST 14x» ~ TEST READ NPR INTEGRITY

001404

8EQ
ERRDF

104462

TRAP

000021
013177
14244

.WORD
.WORD
.WORD

7%:

100008%
:

104005

J 6
PAGE 1-44

g
17.,EM52.ERRO

;NO, OKAY
sYES, PRINT ERROR

T$ERCODE

EMS2
ERRO

SY%END OF SEGMENTXY

ENDSEG
EMT

SEQ 0074

CSESEG

—

NNNORW
N—‘O\Ogv

NNSN NN~ ~NNN A~

—d vl

mndd

NN NN~

OWG%OOOm

(3)
(5)
(5

025012
025014
025014
025016
025020

22~NOV-78 15:28

30A(1052)

A
d

~nN)

1773

025026
025026
025026

ENDTST

L 10043:

1040C°

.SBTTL
025030

BGNTST

025030

STARS
IR

1774
1775

EMT

;**START OF

AR AR AR R

"".Itttttl’l’ttt‘ttttttttttttttttttitfilltittlttittttiititt*fifitt!ttt

104032
000064

1784

025046
025046

104004

BGNSEG
EMT

025050
025056
025062
025070

012737
005077
012777
012777

001750
155164
177600
003052

025076
025102
025104
025110
025110
025112

004537
000014
004537

020456

025114

004537

025120
025124

005337
001354

1788

1789
1790
1791
1792
1793
1794

(3)
3
1795

1797
1798
1799

RN R AR R AR NN AR A AR ARRNRRIRRNRARRR AN AN AN

STARS

JSR
CKERFG
EMT
.WORD

1786
1787

AR AR AR AR AR

TEST»~

:ANY ERRORS

025030

025030
025034
025042
025044

(3)
1785

CSETST

#«TEST 15+ - READ FUNCTION

1781
1782
(4)
(4)

1783

TEST=«

sCHECK OF THE READ FUNCTION.
WE WILL FIRST DO A READ
JHEADER TO FIND OUT WHERE WE ARE AND THEN !SSUE
;A FULL SECTOR READ, WAIT FOR READY AND CHECK FOR

1776

1777
1778
(2)
1779
1780

J**END OF

004737

021356

00260

PC ,HDHOME

CSEXIT
L10044-.

:HEADS OVER

TRACK 0

‘HEADS GO HOME OKAY

SXXSTART OF SEGMENTYY

C$BSEG

MOV
CLR

MOV
MOV

#1000., TMPO
ARLDA
#-128.,aRLMP
#BUF ,3RLBA

:LOAD DISK ADDRESS
-SET WORD LENGTH
*SET BUS ADDRESS

JSR

RS, LDFUNC

READ

JSR
ESCAPE
EMT
.WORD

RS.WTCRDY

“WAIT FOR CONTROLLER READY

020214

JSK

RS, CHERR

002169

DEC
BNE

1,*P0

021276

104010

000014

155160
155146

READ

SEG
CSESCAPE
10000$-.

:CHECK

;LOAD THE FUNCTION iN NEXT WORD
FOR FL:LOE,

ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS

ASSEMBLY ROUTINES
MACY?1
CZKRLBB P11
22-NOv~78 15:28

1800

(3)
(3)

1801

OOV~
AN N2 O

— Ura.aj\p;
N

0000
~ 0000 ~ ~

—r et med b

—b d —d ed ek

— e

D e e D

oovwgw NP~
2RREBRRBESBREEDX

(3)

1821

025126
025126
025126
025130
025130
025130

30A(1052)

22-N0OvV-78

*«TEST

10000¢:

104005

ENDTST
L 10044:

104001

LSBTTL

025132

BGNTST

025132

STARS

15++

15:35
-~ READ

PAGE

1-45

JAXEND OF SEGMENTZX

ENDSEG

EMT

C$ESEG

EMT

CS$ETST

**TEST

SEQ 0075

FUNCTION

J**END OF

TEST*x

16%* - READ FUNCTION INTERRUPT
;**START OF

TESTwx

'.‘ttttt*t*t**t*fi**tt*ttttt*tt*tt*tt*!t*t*tt*t*tt*ttttfit*ttfit*tttt

;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.
(HECK FOR

.FRRORS ON INTERRUPT.
STARS

025132

".'Qfittl'ttfittt*t**i*ttQ‘*ttttt*ttttttt*ttfit'tttt**fittt*ttttfittit**"

025132
025136
025144
025146
025150
025150

025152
025156
025162
025170

004737

021356

104032

EMT
.WORD

CSEXIT
L10045-.

104004

BGNSEG
EMT

C$BSEG

005G37
005077

012777
012777

002144
155064

177600
003052

012700
104041

000340

025226
025232

001004

005737

002144

025234

025236
025240
025242
025244
025244

PC ,HDHOME

000106

025176
025176
025202
025204
025210
025212
025216
025216
025220
025220
025224

025234

JSR
CKERFG

CLR
CLR

1 2 5060

MOV
MoV

1 5 5046

;CLEAR INTERRUPT INDICATOR
;SET DISK ADDRESS
sSET UP WORD COUNT
;SET UP BUS ADDRESS

#PRIO0O
4PR100,RO
C$SPR]
P5.,LDFUNC

JPRIORITY

#BUF ,aRLBA

000000

004537
000114
004537

020456

SETPRI
MOV
EMT
JSR

021276

JSR

R5,WTCRDY

EMT
SETPRI
MOV
EMT

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

READ
. INTEN

CKLOOP

104CC6

TST

BNE

ERRDF

106462

000023
010607
014244
104006

;LOAD THE FUNCTION IN NEXT WORD
JREAD UNDER INTERRUPT
;WAIT FOR INTERRUPT
JPRIORITY TO 7

INTFLG

;DID INTERRUPT OCCUR?
¢ YES=BRANCH NO~REPORT

19. ,EM4 ERRN

sREAD DID NOT

TSERCODE

LWORD

EM4

CKLOOP
EMY

($CLPI

.WORD

TO O

TRAP

.WORD

JXXSTART OF SEGMENTXX

INTFLG
aRLDA
#-128. ,aRLMP

012700
104041

JHEADS QVER TRACK 0O
JHEADS GO HOME OKAY

INTERRUPT

ERRO

;CHECK FOR LOOP

ASSEMBLY ROUTINES

CZRLBB.P11

1837

}ggg

025246

1840
(3)
(3)
1841
(3)

025252
025252
025252
025254
025254

1é2%

025254

MACY11

22-NOV-~78 15:28

004537

30A(1052)

L
6
1-46
*«TEST 16%* - READ FUNCTION INTERRUPT
22-NOV-78

020214

15:35

JSR
10000%:

104005

ENDTST
L10045:

104001

;gzz

LSBTTL

PAGE

R5,CHERR

;CHECK CNTLR FOR ERRORS

ENDSEG
EMT

C$ESEG

EMT

CSETST

SEQ 0076

JXXEND OF

SEGMENTZXX

J**END OF

TEST*=

#+TEST 17+ - CHECK READ NPR DIRECTION

1%22

025256

BGNTST

1847

025256

STARS

025256

;CHECK THAT THE READ FUNCTION ACTUALLY READS (INTO MEMORY)
JWE WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE
;A READ TO OVERLAY THAT PATTERN.
AFTER THE READ
sWE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHANGED.
;1F NOT WE ISSUE IT AGAIN AT THE SAME SECTION AFTER
JHAVING MODIFIED QUR PATTERN IN MEMORY (SINCE THERE IS
JONE 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
STARS

(2)

1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
(2)

;**START OF

TEST»«

:"l’***tl’t***tt**ttfii*tti"**ii*t*tfittt*fi*fi*ttttittttitttttttttfitt*

."'l’tt****tttt**t*****il’*‘itt*fi*t***fiti’**fi*fiitttt*tt***t*'ttktfittt

1858

1859

1860

025256

004737

(4)
1ég%

025270
025272

1863
1é22
1865
1866
1867
1868
1869

1861

1870

1871
1872
1873
1874

}g;g

1877
1878
1879
1880
(3)
(3)

JSR

PC ,HDHOME

104032
000156

EMT
.WORD

COEXIT
L10046-.

025274
025274

104004

BGNSEG
EMT

C$BSEG

025276
025304
025310
025314
025320

012737
005037
012700
012701
013720

MOV
(LR
MoV
MoV
MoV

#123456, TMPO
TMP1
#BUF ,RO
#128. ,R1
TMPO, (RO) +

DEC

025262

025324

025326
025330
025334
025342

025350

025356
025362
025364
025370

025370
025372

005301

001374
005077
012777
012777

012737

004537
000014
004537
104010
000054

021356

123456
002162
003052
000200
002160
154712
177600
003052

003052

020456
021276

CKERFG

002160
1%:
2%:

154706
154674

002166

JHEADS OVER TRA(CK O
JHEADS GO HOME OKAY

JXXSTART OF

SEGMENTZX

;SET PATTERN TO WRITE
;CLEAR PASS INDICATOR
;SET UP BUFFER BEGINNING
JWRITE BUFFER
;DONE??

BNE
CLR
MoV
MOV

2%
aRLDA
#-128. ,dRLMP
#BUF ,QRLBA

;NO, GO BACK
;LOAD DISK ADDRESS
sSET WORD COUNT
.LOAD BUS ADDRESS

JSR
READ
JSR

RS.LDFUNC
R5,WTCRDY

;LOAD THE FUNCTION IN NEXT WORD
;READ
;JWAIT FOR CONTROLLER READY

EMT
.WORD

CS$ESCAPE
1C700%-.

MOV

ESCAPE

#BUF ,GDDAT

SEG

<FOR ERROR PRINT

JCHECK FOR FL:LOE, ELSE EXIT SEG

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28
1882
1883
(3)

025374
025400
025400

004537

1é§2

025402

104010
000044

1885

025406

012702

133;

025414

001014

1886

025410

022237

30A(1052)

M6
22-NOV=78
15:35
PAGE 1-47
«*TEST 17%* - CHECK READ NPR DIRECTION

020214

003052

002160

JSR
ESCAPE
EMT

RS, CHERR
SEG

.WORD

CSESCAPE
10000%-.

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

MOV

#BUF ,R2

:SET TO START COMPARING DATA

BNE

*YES, CHECK FOR END

CMP

(R2)+, TMPG

1889

025422

001005

005737

002162

1894
1895

025424
025430

005237
005137

002162
002760

1898
(3)
(5)
(5)

(25436
025436
025440
025442

104462
000024
010646

}389

025446

6%:

1902
(3)

025446
025446

100008:

025416

;ggg 025434

(3)
1903
(3)

1(()82

*DID DATA CHANGE?

’

1890
1891
}ggg

1§3$

SEQ 0077

025444

025446
025450
025450

025450

000725

:DATA DIDN'T CHANGE, CHECK
“IF 1ST OR 2ND TIME>
1 2ND-REPORT 1ST=TRY AGAIN

INC
COM

B8R

TTMP1
TMPO

:INC PASS COUNT
*COMPLIMENT PATTERN

ERRDF
TRAP
.WORD
"WORD

2C. ,EM5,ERR9
TSERCODE
20
EMS

;READ DID NOT MODIFY MEMORY

BNE

5%:

014636

.WORD

104005

104001

;?’82

ENDTST
L 10046
:

SBTTL

G0 DO IT AGAIN

ERRY

ENDSEG

SX%END OF

SEGMENT%Y

swxEND OF

TEST*w

EMT

CSESEG

EMT

CSETST

+~«TEST

18*+ - PRCPER INCREMENT OF RLBA ON READ

}ggg

025452

BLNTST

1905

025452

STARS

1910
1911
1912
1913

025452

*CHECK THAT THE RLBA WILL INCREMENT WITH THE READ
oTHE RLBA SHOULD C(ONTAIN 'BUF +256.'' AFTER A FULL
‘READ.
$TARS

1914
1915
1916
1917
(4)

025452
025456
025464

1919

025470

1921

025472

(2)

16?%

025466

025476

TEST=x

:"iktttttttitflttt**tfifil’*t'ttitifi'tfiitt*fifitltttt*flk*tti’ttt*ittt*t

SECTOR

""Qttt.t'ttttttt'tttttttittttttfittt*tt"tlt*iititt'tttttttttitttt

004737

021356

JSR
CKERFG
EMT

104032

000116

LWORD

BGNSEG

1$505wo1mm4
1922

Jx«*START OF

005077

012777

EMT

154550

003052

154540

(LR

MOV

PC ,HDHOME

CSEXIT

:HEADS OVER TRACK 0
"HEADS GO HOME OKAY

L 10047-.

C$RSEG
an! DA

#BUF ,aR| BA

;XYSTART OF

;SET UP DISK ADDRESS

“SET UP BUS ADDRESS

SEGMENTZY

ASSEMBLY ROUTINES

CZRLBB.P11
1923

025504

MACY11

22-NOV-78 15:28
012777

177600

1924

025512

012737

003052

1927
1928
1929
1930
(3)

025526
025532
025534
025540
025540

004537
000014
004537

020456

025542

0000«C

1932
1933
(3)
(3)

025544
025550
025550
025552

004537

1935

025562

023737

}ggg

1;%%

1936

025520

025554

062737

100400

30A(1052)

22-NOV-78

154536

MOV

#-128. ,dRLMP

JWORD COUNT

002166

ADD

#256.,GDDAT

JAFTER READ

002166

MOV

021276

020214

002166

025570

1938
(3)
(52
(5)

025572
025572
025574
025576

}gzg

025602

1%:

1942
(3)
(3)

025602
025602
025602

1C000$:

(3)

025604

1943

1;22

025600

025604

JSR
ESCAPE

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

.WORD

RS, CHERR
SFG
CSESCAPE
10000%-.

CMP

3DDAT,GDDAT

;DID

ERRDF
TRAP
.WORD
.WORD

21.,EM6,ERR4
TSERCODE
21
EM6

MOV

}g%?

15%%

001404

002170

BEQ

104462
000025
010712
014410

.WORD

104G05

ENDTST

L109%47:

104001

1322

.SBTTL

JFORM EXPECTED BUS ADDRESS

R5.LDFUNC

EMT
002230

#BJF ,GDDAT

SEQ 0078

JSR
READ
JSR
ESCAPE
EMT

.WORD

104010

013737

PAGE 1-48

**TEST 18+ ~ PROPER INCREMENT OF RLBA ON READ

104010

000030

15:35

RS ,WTCRDY
SEG
CSESCAPE

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

10000%-.

E.BA ,BDDAT

JREAD

'RLBA'

JYES, CONTINUE

"BA'

FOR PRESENT ADDRESS

INCREMENT PROPERLY?

;BA DID NOT

INCREMENT FROPERLY

ERR4

ENDSEG
EMT

(SESEL

EMT

CS$ETST

JXYEND OF

SEGMENTZX

J**END OF

TESTw»

=«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 RLMA (START) + 1
STARS

1955
1956

025606

004737

(4)

025620

104032

(2)

1957

025612

162%

025622

1959

025624

1;3)

15¢?

0256764

;*«START OF

RRASEAR2RARRR

TEST=x

RRRARRRRRRRRRRS R D]

;.'ttt'ttttttttt*tttt'fitt'i.'tt‘ttifltfi"fittt"fi!.ltt't.tttt'n't't'

000114

(e
&

021356

JSR

PC ,HDHOME

Em7T

CseEX]T

CKERFG

WORD

BONSEG

Err

JHEADS OVER TRA(K 0
JHEADS GO HOME

OkAY

{10050~

RIEN

JRASTART

SEGMENTYX

ASSEMBLY ROUTINES

CZRLBB.P11

1962
1963
1964
1965
1966
1967
1968
1969
1970
1971

(3)
(3)
1972
1973

1974

(3
(3)

1975
1976
1977

MACY1?

30A(1052)

002166
002166
002166

154406

22-NOvV-78 15:28

025626
025632
025640
025644

025652

005037
013777
005237
012777
012777

003052

025660

004537

020456

025672
025674

000014
004537

025706
025714
025722

013737
023737
001404

154376
154364

JSR

R5,LDFUNC

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG
(SESCAPE
10000%-.

JSR

RS,CHERR

.WORD

10000%~.

MOV

READ

021276

020214

ESCAPE
EMY

104010

000030

002232
002166

MOV

GDDAT
GDDAT ,aRLDA
GDDAT
#-128. ,aRLMP
#BUF ,aRLBA

(LR
MOV
INC

000040

004537

002170
002170

RLDA ON READ

SEQ 0079

JSETUP DISK ADDRESS
;CREATE EXPECTED SECTOR

JWORD COUNT

JSETUP BUS ADDRESS
JREAD

JLOAD THE FUNCTION IN NEX)

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

;CHECK CNTLR FOR ERRORS

JCHECK FOR FL:LOE,

MOV

E.DA BDDAT

;READ DISK ADDRESS

ERRDF

22. ,EM7 ,ERRSG

;DISK ADDRESS DID NOT INCREMENT

.WORD
.WORD

22
EM7
ERR4

TRAP

000026
010766
014410

SEG
C$ESCAPE

(MP
BEQ

1046462

.WORD

025734

GDDAT ,BDDAT
1%
T$ERCODE

ELSE EXIT SEG

;DID SECTOR INCREMENT FROPERLY
JYES, BRANCH
NO, REPORT ERROR

1%:

025734

025734
025734
025736
025736
025736

*+TEST

1064070

025676
025792
025702
025704

025724
025724
025726
025730
025732

177600

15:35
PAGE 1-49
19++ - PROPER INCREMEN!

22-NOv-78

10000%:

104005

ENDTST
L10050:

104001

LSBTTL

025740

BGNTST

025740

STARS

ENDSEG
EMT

C$ESEG

EMT

C$ETST

JXXEND OF

SEGMENTZX

Jx*END OF

TESTx«x

=+TEST 20%** - FORCE HEADER NOT FOUND WITH READ

J**START OF

TEST=x

::ttt*tti*ttttttttttttttttttttttttttfitfitttfi*itttwt*t***'ttttttttt

;FORCE HEADER NOT FOUND ERROR TO OCCUR.

THIS IS DONE
;BY SETTING SECTOR 40 OF THE RLDA AND ISSUING A
JREAD.
SECTOR 40 DOES NOT EXIST ON THE RLOT PACK

g{zngFORE HDR NT FOUND SHOULD SET.

025740

:;ttttt*itt.ttttitatttti'*it'*iitt*ttt*fitt*ttttfitit**ttittttfiittt

025740
025744
025752
025754
025756

004737
104032

000102

0213%6

JSR
CKERF G

EMT
.WORD

BGNSEG

PC ,HDHOME

C$EX]T
L10051-,

JHEADS OVER TRA(CK 0
JHEADS GO HOME OkAY

;XASTART OF

SEGMENT%%

WORD

MACY11
22-NOvV-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P1

025756

104004

025760
025766
025774

012777
012777
012777

000050
003052

004537
000014
004537

020456

026016

104010
000036

026020
026026
026034
026042

013737
042737
022737
001404

026044
026044
026046
026050
026052

104462
000027
011043
014244

22-NOV-78

15:35

177777

154260
154250
154246

MOV
MOV

MoV

112000

002160
002160
002160

SEQ 0080

C$BSEG
.

#40.,aRLDA

s INSURE NOT TO FIND HEADER BY

#-1,9RLMP

;WORD COUNT

#BUF ,aRLBA

;SETTING SECTOR 40 OF

CYL.

ADDR.

JSR

RS ,LDFUNC

JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
SE G
CSESCAPE
10000%~.

MOV

E.CS, TMPO

:GET RLCS

BEQ

:YES,

23.,EM10,ERRO

;HEADER NOT FOUND WOULD NOT SET

READ

021276

002226
001777

c 7
PAGE 1-50

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

EMT

BIC
CMP

ERRDF

TRAP
.WORD

.WORD
.WORD

026054
026054
026054
026054
026056
026056
026056

30A(1052)

;READ

;LOAD THE FUNCTION IN NEXT WORD

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

#1777 TMPO
.SAVE ERROR BITS
#81715'81712!B1T10,TMP0 ;HDR NOT FOUND SET.

ggERCODE

CONTINUE

EM10
ERRO

1%:

10000
:

104005

ENDTST

L10057:

104001

BGNTST

026060

STARS

EMT

C$ESEG

EMT

C$ETMST

JXXEND OF

SEGMENTZXX

J**END OF

TEST==

**TEST 271+x - FORCE HEADER NCT FOUND WITH READ

.SBTTL

26060

ENDSEG

s**START OF

INTERRUPT

TEST»~

**t*tt*tt*tt***ttttttttit'tflfi*tttttt*tlttt*ttfittt*itlttitttt'tl’

: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

026060

STARS

""ttttt*t**ttt*ttttttttitttttttttt!ttttfifitt"***ti'tfitt'tttttitttt

004737

026074

104052
000142

026076
026076

104004

021356

JSR
CKERF G

PC ,HDHOME

EMT
WORD

CSEXIT
110052~.

BGNSEG
EMT

($BSEG

JHEADS OVER TRACK 0
HEADS GO HOME OKAY

;XXSTART OF

SEGMENTXX

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

026100
026100
026104
026106
026112
026120
026126

026134
026140
026142
026146
026146
026150
026150
026154
026156
026162

22-NOV-78

0D 7
PAGE 1-51

*#TEST 21++ - FORCE HEADER NOT FOUND WITH READ

SETPRI

MOV

#PR100,RO

005037
012777
012777
012777

002144

CLR
MOV

INTFLG
#40. ,aRLDA

004537
000114
004537

104041

003052

EMT

154126

154116

C$SPRI

MOV
MOV

#BUF , 3RLBA
#-1,3RLMP

020456

JSR

RS, LDFUNC

021276

JSR

R5,WTCRDY

177777

154114

READ ! INTEN

104006

EMT

SETPRI

MOV

#PR107,RO

005737
001004

002144

TST
BNE

INTFLG
2%

026174
026174
026176

104010
000G36

026200
026206
026214
026222

013737
042737
022737
001404

026224
026224
026226
026230
026232

106462
000031
011043
014244

ERRDF

104462

026234

TRAP
.WORD

112000

002160
002160
002160

1040C5

24.,EM43 ERRO
EEERCODE

104001

.SBTIL
BGNTST

;HNF DID NCT INTERRUPT

E.CS,TMPO

:GET RLCS

;YES,

ERRD

ELSE EXIT SEG

10000%-.

BIC
CMP

#1777, TMPO
*SAVE ERROR BITS
#B1715.81712.8BI1T10,TMP0 ;WDR NOT FOUND SET.

ERRDF

25.,EM10,ERRO

.WORD
.WORD

25
EM10

.WORC

£10052:

;DID INTERRUPT OCCUR
JYES

;CHECK FOR FL:LOE,

TRAP

ENDTST

;WAIT FOR CONTROLLER READY

SEG
CS$ESCAPE

BEQ

100008:

ADDR.

;LOAD THE FUNCTION IN NEXT WORD

ESCAPE
EMT

MOV

CYL.

C$SPRI

CONTINUE

TSERCODE

ERRO

1%:

026234

JREAD

EM43

.WORD

002226
001777

;SETTING SECTOR 40 OF
JWORD COUNT

.WORD

.WORD
’%:

;CLEAR INTERRUPT OCCURANCE FLAG
2 INSURE NOT TO FIND HEADER BY

C$CLP]

000340

EMT

SEQ 0081

#PRIQ7

012700
104041

INTERRUPT

#PRIOO

200000

000030
012723
014244

026240

15:35

012700

026164
026164
026166
026170
026172

026236
026236

30A(1052)

ENDSEG

EMT

CSESEG

EMT

CSETST

;WHEN FORCED
;XXEND OF

SEGMENTX%

s**END OF

TEST#=

**TEST 22%+ - (HECK HEADER COMPARE LOGI(

s*«START OF

TESTx»

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

2079
(2)

30A(1052)

026240

15:35
PAGE 1-52
*#TEST 22+* -~ CHECK HEADER COMPARE LOGIC

22-NOv=78

SEQ 0082

STARS
SRR

AR AR AR AR AN R AR A AN AR AR A NI N AN AR N RN AAR AR A AN AN

:CHECK_THE HEADER COMPARE LOGIC WORKS.
JKNOW THAT

AANARARA R

R®

UP TO THIS POINT WE

THE LOGIC FUNCTIONS PROPERLY BUT NOW WE WILL
FOUR PATTERNS
THE BITS IN THE HEADER WORD.

;CHECK ALL
A SEEK
;ARE USED A WALKING 1, GROWING 1, WALKING 0, GROWING 0.
;1S ISSUED BEFORE EACH READ TO INSURE WE ARE ON THE PROPER

;s TRACK.

ONCE WE ARE ON THE RIGHT TRACKWE LOAD THE RLDA

UPON COMPLETION WE WILLCHECK FOR ERRORS
JAND JSSUE THE READ.
;JWE THEN LOAD THE COMPLIMENT PATTERN INTC THE RLDA
JEXPECTING A HEADER NOT FOUND TO SET

026240

STARS

;;tttttt*ti*t**tt*tfittti**ttittQ***t*t**t*ttt*ttttt*ttttttt*ttttt

000540

JSR
CKERFG
EMT
.WORD

026256
026256

104004

BGNSEG
EMT

026260
026260
026264
026266

NN
R D
‘CDUHNCDCn;
N = OVONO
N WN=O
0~ 00N

ASIANTSTAN
LIS N1\ 1a 61,0 1o 1, W 1N oW1, V]

[ASIAS1a¥)

G
S
e s i o gy

004737

026240
026244
026252
026254

026272
026272
026274
026274
026300
026302
026306
026306
026310

021356

104032

PC ,HDHOME

CSEXIT
L10053-.

JHEADS GO HOME OKAY

JX%XSTART OF SEGMENTX%

C$BSEG

012700

000340

MOV

H#PRIOQ7
#PR107,RO

;PRIORITY

012703

002504

MOV

#HDRTAB ,R3

;GET LIST START

104041

SETPR]

EMT

BGNSEG

104004

004537
000010
004537

1%:

020456

104010

000500

JSR

RS, LDFUNC

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG

JSR
ESCAPE
EMT
. WORD
MOV

RS, CHERR
SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

10001$-.
E.MP,TMP]

JREAD AND

8IC

#177.TMP1
#1,ARLDA

C$ESCAPE
10007 $-.

000470
013737

002234

002162

026330

042737
012777
011337
042737
163737

000177
000001
002164
000177
002162

002162
002164
002164

#177.TMP2
TM
1. TMP2
F

000004

153652

#SIGN,QRLDA

104010

103404

001403

002164
002164
000100

153702

153636

C$ESCAPE

(RS), TMP2

2%:
3%.:

JXXSTART OF SEGMENTZX

($BSEG

004537

0202°4

TO 7

EMT

RDHDR

021276

C$SPR]

026312
026316
026316
026320
026322

026414

JHEADS OVER TRACK 0

3%
TMP2

TMP2,aRL
DA
#74HS, (R3)
4%

cLOAD THE FUNCTION IN NEXT WORD

;READ HEADER
JWAIT FOR CONTROLLRE

READY

;CHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

SAVE

HEADER

;CLEAR OUT SECTOR AND H.S.
;SETUP MARKER FOR SEEK
;GET HEADER PATTERN
sCLEAR OUT SECTOR AND H.S.
s CALCULATE DIFFERENCE TO SEEK
sBRANCYH FOR SEEK OUT
s SEEK TOWARDS SPINDLE
;GO PUT IN DIFFERENCE WORD
JWE HAVE

TO NEGATE DIFFERENCE

JSET IN DIFFERENCE WORD
;DO WE WANT HEAD SELECT AS 0?
JYES, SKIP OVER SETTING H.S.

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

052777
004537
000006

000020
020456

004537

021276

000350

026442
026446

004537

[

ASLASIASTANTAS
LN 1,1V 1,0

non)

[0,.Y0 Xo VLIV, 1V, 1V, 1V, IV TPNIYRIV. IV, V.1V 1V,

nornONY
D d D

nONINY
b D D

D D

NWNINNNWN

ARt Aot ov)Swbolat
et

026440

V1AV [,N)

(3)

026446
026450

026452
026456
026456
026460

4%:

020214

104010

004537

021236

020456

026500
026504
026504
026506

004537

026510
026516
026524
026530
026536
026544

013737
043737
011337
043737
023737
001404

021276

020214

000302

002170
002170
002166
002170

104462

000230

026562
026566
026574
026602

011377
042777
012777
012777

026610
026614
026616

004537
000074
004537

EMT
.WORD

C$ESCAPE
10001$%-.

5%:

104010

153460

000077

153452

003052

153434

177777

153446

SEG

SEQ 0083

;SET HEAD SELECT TO ONE
JLOAD THE FUNCTION IN NEXT WORD

s SEEK

;WAIT FOR TONTROLLER READY
JCHECK FOR FL:LOE,

ELSE EXIT SEG

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG
CSESCAPE
100018~.

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

JSR

RS ,WTDRDY

;WAIT FOR DRIVE READY

EMT
.WORD
JSR

CSESCAPE
10001%-.
R5,LDFUNC

JSR
ESCAPE
EMT
.WORD

RS,WTCRDY
SEG
C$E SCAPE
10001%-.

JSR

R5,CHERR

.WORD

10001%-.

SEG

;CHECK FOR FL:LOE,

ELSE EXIT SEG

cLOAD THE FUNCTION IN NEXT WORD

JREAD HEADER

(VERIFY SEEK)

JWAIT FOR CONTROLLER READY
JCHECK FOR FL:LOE, FLSE EXIT SEG

. CHECK CNTLR FOR ERRORS

SEG
C$ESCAPE

;CHECK FOR FL:LOE,

MOV
BIC
MOV
BIC
(MP
BEQ

E.MP,BDDAT
SECMSK ,BDDAT
(R3) ,GDDAT
SECMSK,GDDAT
GDDAT ,BDDAT
5%

;READ HEADER
;SAVE CYLINDER FOR COMPARE
JGET EXPECTED HEADER
sSAVE CYLINDER FOR COMPARE
;SEEK END UP OKAY
;YES, CONTINUE

ERRDF

27.,EM11,ERR4

;SEEK

.WORD

TRAP

000033
011110
014410

026556
026556
026560

RS ,WTCRDY

ESCAPE
EMT

104010

002234
002150
002166
002150
002166

JSR

SEEK

RDHDR

104010

000312

#DAHS ,aRLDA
RS, LDFUNC

ESCAPE

104010

000330
004537
000010
004537

BIS
JSR

ESCAPE

000340

026476

026546
026546
026550
026552
026554

153622

F
7
22-NOV=78
15:35
PAGE 1-53
*«TEST 22%#+ - (HECK HEADER COMPARE LOGIC

104010

026416
026424
026430

30A(1052)

T$ERCODE

ELSE EXIT SEG

INCORRECT

.WORD
.WORD

EM1]
ERR4

ESCAPE
EMT
.WORD

SEG
C$ESCAPE
1000"$-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

(R3) ,aRLDA

;SET UP DISK ADDRESS

#-1,3RLMP

sWORD COUNT

MoV

BIC

#77 ,3RLDA

MCv

#BUF ,aRLBA

MOV

;BUS ADDRESS

020456

é?in

RS5,LDFUNC

READ

sLOAD THE FUNCTION IN NEXT WORD

021276

JSR

RS, WICRDY

JWAIT FOR CONTROLLER READY

ASSEMBL Y ROUTI NES
MACY11
P
CZRLBB.P11
22-NOv-78 15:28

1,
%)

— [

~ -~ NORONWANOIOOONWN
n—

[a91pV1aV1aN)
[A9]1a%1a¥)
R QU Oy
QU S G

2163
(3)

2173

OOWWO

nOND
NONLPLNLR, VPV
AN 1aN)
NOPD
~ —~ NIND = et b d =3 a2~

SESRRE
RV QI LY O 8BBIRRR

2183

026622
026622
026624
026626
026632
026632
026634

026654
026662
026666
026670
026674
026674
026676
026700
026706
026714
026722
026724
026730
026730

.
G
7
30A(1052)
22-NOV-78 -15:35
PAGE 1-54
*«TEST 22%+ - (HECK HEADER COMPARE LOGIC
ESCAPE
EMT
.WORD

SEG
C$ESCAPE
10001$-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

020214

JSR
ESCAPE
EMT
.WORD

RS, CHERR
SEG
C$ESCAPE
10001%-.

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

153404
123400
177777

MoV
oM

(R3) ,aRLDA

JSET UP DISK ADDRESS AS
;COMPLIMENT TO CAUSE HDR NT FND
sWORD COUNT
;BUS ADDRESS

104010

000164

004537
104010

000154

011377
005177
012777
012777

003052

004537

02045¢€

000014
004537

MOV
MOV

JSR
READ

021276

002226

001777
112000

002160
002160
002160

020274

022737
001413

112000

002160

026742
026746
026754

011337
013737
005137

002166
002166
002170

002170

026760
026760

104462

626762
026764
026766

000034
011137
014410

026770
026770
026772

104010

000016

026774
026776
027002
027004

005723
020327
001402
000137

027012

MOV

8%:

104006

026732
026740

027010
027010
027010
027010

JSR
ESCAPE
EMT
.WORD

104010

000112
013737
042737
022737
001402
004537

"0001s:

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

sGET (€S

g21T15!BIT12381710.TMPO

8%
RS, CHERR

;YES,

CONTINUE

C$CLPT

(R3) ,GDDAT

;SET UP DATA FOR ERROR

GDDAT ,BDDAT
BDDAT

ERRDF

28. EM12 ERRS4

JHDR NOT

-WORD
.WORD
.WORD

EM12
ERR4

ESCAPE
EMT
.WORD

SEG
CSESCAPE
100018-.

TST

(R3)+
R3,#HDREND
7%

CMP
BEQ
JMP

026274

RS, WTCRDY
SEG
C$ESCAPE
10001%-.
E.CS, TMPO

JLOAD THE FUNCTION IN NEXT WORD

cREAD

CMP

TRAP

002660

RS, LDFUNC

#1777 TMPO
. SAVE ERROR BITS
2 "0,TMP0 ;DID HEADER NOT FOUND SET
BIT
MIT15181T1

MOV
MoV

6%:

aRLDA
#-1,3RLMP
#BUF ,aRLBA

BIC
cMP
BEQ
JSR
CkLOOP
EMT

BEQ

7%:
104005

SEQ 0084

T$ERCODE

ENDSEG

OuUT

FOUND WOULD NCT

SET

;CHE(K FOR FL:LOE, ELSE EXIT SEG

JGET NEXT PATTERN

cAT END?

JYES, EXIT TEST
;NO, GO BACK

sXXEND OF SEGMENTZX

ENDSEG

EMT

JPRINT

(SESEG

JXXEND OF SEGMENTXX

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

(3)

027012

(3)

027012

(3)

027014

2206
258%

027014
027014

30A(1052)

100008

104005

ENDTST

L10053:

"0400

3589

22-NOY~78
15:35
PAGE 1-55
*#TEST 22#%+ ~ (HECK HEADER COMPARF {0OGIC
EMY

C$ESEG

EMT

CBETST

SEQ 0085

S*END OF TESTax

LSBYTL

#wTEST 23+« - (KECK MULTIPE SECTORS ON READ
J**START OF

Sggg

027016

BGNTST

2210

027016

STARS

22n
2212
2213

027016

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

2216
2217

027016
027022

004737

027030
027032

104032
000156

2220
ESS;

027034
027040

005037
005037

2223
2532

027044
027044

104004

2225
2226
2227
2228
2229
2230

027046
027046
027054

013737
053737

002162
002160

002166
002166

027106

012777

177577

153136

(2)

(4)
(4)

5210

gsg;
<

027062
027070
027076

013777
062737
012777

2233
2234
2235
2236

027112
027116
027120
(027124

004537
000014
004537

2§§%

07126

000060

2238
2239

027130
027134

004537

2526

027136

000050

22641
2242

Q27140
027146

013737
Q23737

2265

027156

(3)

gs:z
(3>

027124

027134

027154

027156

(21356

(02160
Ou2tel

)

002166
000002
003052

153156
002166
153140

020456

021276

104010

020274

104462

AR N AR AN AR

JSR
(KERFG

P( ,HDHOME
CeEXIT
10054~

CLR
(LR

TTMMPQ
TMP1

BONSEG
EMY

($BSEG

MOV
8IS
MOV
ADD
MOV

TMP1,GDDAT
TMPO, GDDAT
GDDAT ,aRLDA
42 ,GDDAY
HBUF , 3RLBA

AR A

ARA RPN ANR AR R OO R AN RN

AN R

CHECK

AR AN A R AT PR A A E A A AR A S AT RN R ERARATAN RS

JHEADS OVER TRACK 0
;HEADS GO HOME OKAY

;CLEAR LOCATTONS

;XXSTART OF SEGMENTZX

sGET CYLINDER
;GET SECTOR

;SET DISK ADDRESS~SECTOR O
;SET EXPECTED + 2
;SET BUS ADDRESS

MOV

#-129. ,9RLMP

;WORD COUNT-~SECTOR+1 WORD

JSR
READ
JSR
ESCAPE

R5,LDFUNC

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

WORD

10000%-.

JSR
ESCAPE
.WORD

002170
002166

AR AR

EMT
-WORD

Em1

002232
00277C

A RN

AT A AN N R

EMY

104010

001404

is:

A R A AR

TESTw»

RS ,MTCRDY
SEG
(SESCAPE

RS, CHERR
SEG

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

CSESCAPE

10C00%-.

MOV
(MP

E.DA BuDAT
8DDAT ,GDDAT

;READ DISK ADDRESS
215 DISK ADDRESS CORRECT

ERRDF

2. EM14,ERR4

;DA DID NOT INCREMENT

Bf0

TRAP

TSERCODE

;YES, BRANCH

NO, REPORT ERROR

ASSEMBLY ROUTINES

CZRLBB.P11

22-NOV-78 15:28

(9
(9)
(5)

027160
027162
027164

027166
027166
027170

000016

027172
027176
027204

005237
022737
001320

2246
2247
(3)

2248
2¢49
2250
2251

027206
027206
027206
027210
027210
027210
027212

MACY11

000035
011230
014470

30A(1052)

22-NOV-78

WORD
JWORD

29
EMI14

ESCAPE

SEG

.WORD

10000%-.

"WORD

2%:

104070

10000$:

ENDTST

L10054:

104001

EMT

INC
CMP
BNE

002160

104005

PAGE 1-56

**TEST 23*+ = CHECK MULTIPE SECTORS ON READ

002160
200046

15:35

SEQ 0086

ERR&
C$ESCAPE

TTMMPO
#46, TMPO
1$

;CHECK FOR FL:LOE, ELSE EXIT SEG

:NEXT SECTOR?
?
* DONE
NO. GO BACK

;XXEND OF SEGMENTZX

ENDSEG

EMT

CSESEG

EMT

C$ET1ST

TESTx»

J**END OF

STARS
C

AR A AR AR AR AR AR NG R NN R AR

A RAAR N RN AR

ARAARNRAAARRA A AR AR A ARt

:CHECK THAT WE CAN FORCE A HEADER NOT FOUND AT THE
:END OF A TRACK DOING A MULTIPLE SECTOR READ.
WE

:StT UP TO READ TWO SECTORS STARTING AT SECTOR 39
;WE SHOULD TRANSFER 128 WORDS THEN ABORT WITH A
*HEADER NOT FOUND FOR SECTOR 40

027212

STARS

:;t*t*tttttttttttt*ttttit'ttt**tttt*tttt*tv

SBRTTL

027212
027212
027216
027224
027226
027230
027230
027232
027240
027246
027254
027262
027266
027270
027274
027274
027276

027300
027306

**TEST 24x+ - FORCE HDR NT FND AT END OF

BGNTST

004737

021356

383022222222
RR08 2822

TRACK

c**START OF

JSR

PC ,HDHOME

;HEADS JVER TRACK 0
;HEADS GO HOME OKAY

104032

CKERFG
EMT

.WORD

(10055-.

104004

BGNSEG
EMT

C$BSEG

MOV
MOV

#39. ,GDDAT
GDDAT
, 3RLDA

;CREATE LAST SECTOR

RS, LDFUNC

READ

000126

012737
013777

000047
002166

004537
000014
004537

020456

012777
012777

177577
003052

002166
153000
152774
152762

021276

104010
000054

013737

042737

002226

001777

00217y

MOV
MOV

JSR
READ
JSR
ESCAPE
EMT
.WORD

MOV

BIr

CSEXIT

#-129. ,aRLMP
#BUF
, 3RLBA

TESTxw

JXXSTART OF SEGMENTZ%

;LOAD DISK ADDRESS
;WGRD COUNT
;BUS ADDRESS

sLOAD THE FUNCTION IN NEXT WORD

RS,WTCRDY
SEG
C$ESCAPE
10000%-.

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

E.”S,BDDAT

sREAD (S
J5AVE ERROR BITS

#1777 .BDDAT

MACY11
22-NOV-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

2286

027314
027322
027324
027330
027330

922737
001402
004537

027332
027340

022737
001404

027342
027342
027344
027346
027350

112000

30A(1052)
002170

120214

4%:

104006

12000

002170

104462

CMP
BEQ
JSR
CKLOOP
EMT

#112000,8DDAT
4%
R5,CHERR

CMP
BEQ

#112000,BDDAT
1%

ERRDF

30. ,EM23 ERRO
§8ERCODE

TRAP

000036
011636
014244

.WORD
.WORD
.WORD

027352
027352
027352
027352
027354
027354
027354

22-NOv-78
15:35
PAGE 1-57
*+TEST 24x* - FORCE HDR NT FND AT END OF

TRACK

SEQ 0087

;HDR NOT FOUND SET?
JYES, CONTINUE

C$CLPT

;HEADER NOT FOUND DID NOT SET
..

EM23

ERRO

1%:
10000%:

104005

ENDTST

L*0055:

104001

.SBTTL

027356

BGNTST

027356

STARS

J%XEND OF SEGMENTXZ

ENDSEG

EMT

CSESFG

EMT

CSETST

**TEST 25%% — FORCE

J**END OF

TEST=x

NON-EXISTANT MEMORY ERROR
;**START OF

TEST»«

"'!tttttttttfitlttttttttttttttfi'tttkttttt*t'ttttti!ttttttttt*fitttt

;FORCE A NON-EXISTANT MEMORY ERROR,
JWE SET THE R.BA TO EQUAL THE
;LAST ADDRESS IN MEMORY AND ISSUE A READ.

cREAD SHOULD ABORT AFTER ONE WORD

027356

STARS

THE

TRANSFERRED

""tttttttttttttt*tttttt'*t"ttl'ttfifitittii‘ttt*fifi*'*fit'i'tt'lttit‘t

027356
027362
027370
027372

104032
0006076

JSR
CKERFG
EMT
.WORD

027374
027374

104004

BGNSEG
EMT

027376
027404
027412
027416
027424
027430

012777
012737
005077
012777
004537
000014

004737

021356

177774

000060

152630
177600
020456

152640

MOV
MOV

152624

MOV
JIR
READ

002262

CLR

PC ,HDHOME

CSEXIT
L10056~.

;HEADS OVER

TRA(K 0

JHEADS GO HOME OKAY

JAXSTART OF SEGMENTZX

C($BSEG

#177774 ,aRLBA

;LEAD BA

aRLDA
#-128. ,aRLMP
R-.LDFUNC

:LOAD DISK AVAILABLE
sWORD COUNT
;LOAD THE FUNCTION [N NEXT WORD

#BA16!BA17 ,XMEM ;SET EA BIT

JREAD

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

2328
2329
(3)
(3)
2330
2331
2332
2333
2334

027432
027436
027436
027440

000026

027442
027450

€

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

027452
027452
027454
027456
027460

04462
000037
011716
016264

(3)
(3)

027462
027462
027464

104070
000002

2335
2336

2337
2338
2339
2340
2341
(3)
(3)
2342
(3
(3)
2343
2344

2345
2346
2347

(2)
2348
2349
2350
(2)
2351
2352
2353
2354
(4)
(4)

(3)

2355
2356
2357
2358
2359
2360
2361
2362
(3)
(3)
2363
2364

027466
027466
027466
027470
027470
027470

004537

30A(1052)

021276

104010

7%7

004

020000

002226

10000%:

ENDTST
L10056:
.SBTTL

027472
027472

SEQ 0088

RS ,WTCRDY
SEG
C$ESCAPE
10000%-.

BIT

#NXME
. CS

JYES,

ERRDF

31. ,EM24 ,ERRC

JNXM DID NOT SET

.wORD
.WORD
.WORD

31
EM24
ERRO

ESCAPE
tMT
.WORD

SEG
C$ESCAPE

BNE

3%:

104001

JSR
ESCAPE
EMT
.WORD

TRAP

“04005

15:35
PAGE 1-58
*«TEST 25%* -~ FORCE NON-EXISTANT MEMORY ERROR

22-N0V-78

TSERCODE

JWAIT FOR CONTROLLER

;CHECK FOR FL:LOE, ELSE EXIT SEG

;DID NXM SET?

CONTINUE

;CHECK FOR FL:LOE, ELSE EXIT SEG

10600%~.

ENDSEG

J%XEND OF SEGMENTZX

EMT

C$ESEG

EMT

C$ETST

*«TEST 26%* - FORCE

J**END OF

TEST»«

NON-ZXISTANT MEMORY ERROR

BGNTST
STARS

;**START OF

INTERRUPT

TEST»~

,'"t*tttt*k*t!’Q*t*tfi**i**tttttttt*ittfi*tttttk*tti***t*itttttt*ttti

JCHECK THAT WE (AN FORCE AN INTERRUPT WITH A
;NON-EXISTANT MEMORY ERROR.

027472

STARS

""*!t‘i**i*l’*t*ttt**titt*ttifi*tttt*ttitttt‘tttttttttttfitttitttttt

027472

004737

021356

027506

104032

000140

JSR
CKERFG
EMT
.WORD

027510
027510

104004

BGNSEG
EMT

C$BSEG

027512

005037

002144

CLR

INTFLG

0G0u00

SETPR]
MoV
EMT

#PR]00
#PR100,R0O

027516
027516
027522
027524
027532

1777764

000060

152512

002262

MOV

PC ,HDHOME

CSEXIT
L10057-.

JHEADS QVER TRACK 0O
JHEADS

GO HOME

OKAY

JXXSTART OF SEGMENTZX
sCLEAR INTERRUPT OCCURANCE FLAG

($SPR]
#°77774 ,QRLBA
;PRELOAD BA
#BA16
. BA17 XMEM ;SET EA BITS

MACY11
22-NOv-~78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

(3)
(3)

2371

(3)
(3)

027540
027544
027552
027556
027560
027564
027564
027570
027572
027572
027574

000050

027576
027602

005737
001004

005077
012777
004537
000114
004537
012700
104041

027604
027604
027606
027610
027612

(3)
(3)

027614
027614
027616

000026

2381

027620
027626

032737
001004

(3)
(3)

(3)
(3)
(3)
(3)

027630

027630
027632
027634
027636

027640
027640
027642

027644
027644
027644

027646
027646
027646

CLR
MOV

152476

JSR

000340

002744

EMT
.WORD

CSESCAPE
10000%-.

104010

00222¢

3%:

100008%:

ENDTST

L10057:
LSBTTL

027650

BGNTST

027650

STARS

READ

sWAIT

JLOAD THE FUNCTION IN NEXT WORD

FOR CONTROLLER

JPRIORITY TO 7

SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

INTFLG

s INTERRUPT OCCUR?
JYES OKAY

ERRDF

32, ,EM&4 ERRO

sNO INTERRUPT W/NXM

.WORD
.WORD
.WORD

32
EM44
ERRO

ESCAPE
EMT
.WORD

SEG
C$ESCAPE
10000%-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

BIT

#NXM_
E . CS

;DID NXM SET?
JYES, CONTINUE

ERRDF
TRAP
.WORD
.WORD
.WORD

33, ,EM24,LRRO
T$ERCODE
33
EM24
ERRO

JNO NXM

ESCAPE

SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

BNE

104462
000041
011716
014244

;LOAD DA
;WORD COUNT

BNE

TRAP

014244

104007

RS ,LDFUNC

RS ,WICRDY
#PRI07
#PR107 ,RO
C$SPRI

TST

012767

104005

aRLDPA
#=1,3RLMP

JSR
SETPRI
MOV
EMT

ESCAPE

104462
000040

104010
000002

READ
! INTEN

021276

020000

15:35
PAGE 1-59
*«TEST 26** ~ FORCE NON-EXISTANT MEMORY ERROR INTERRUPT

22-NOV-78

104010

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

152502
177777
n20456

30A(1052)

EMT
.WORD

TSERCODE

C$ESCAPE
10000%-.

ENDSEG

;XXEND OF SEGMENTZ%

EMT

C3ESEG

EMT

CSETST

*«TEST

27%x - CHE(K READ WRITE

J**END OF

TEST=x

LOOP
J*%xSTART OF

TESTw»

"'tttttttl’t*ttttf!tttfitttt'itittittltifit!'it.i.tittttfi!i.tttittti

*VERIFY THAT THE WRITE ACTUALLY WRITES.

THIS

;TIME WE KNOW THAT THE WRITE FUNCTION GOES THRU
s THE MOTIONS BUT wt DON'T KNOW THAT THE DATA
JACTUALLY GETS RECORDED ON THE PLATTER,

SEQ 0089

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

2400
(2)
2401
2402
2403
2404
(4)
(4)

2405
24056
(3)

30A(1052)

027650

M7
15:35
PAGE 1-60
*«TEST 27** - CHECK READ WRITE LOOP

22-N0OV-=78

SEQ 0090

STARS
::ttt*tt**ttt*tttt*t*t*t***tt**tt*tfit*fi**t*tttttttkttt*tttttttt*t

027650

004737

021356

027654
027662
027664

000362

JSR
CKERFG
EMT
.WORD

027666
027666

104004

BGNSEG
EMT

C$BSEG

MOV
MOV

#BUF RO
#128. R

027670
027674
027700
027704
027706
027710
027714

104032

012700
012701
012720
005301

027746
027752
027752
027754
027756
027756
027760
027764
027770
027772
027774

027776

125252

152332
177600

027722

027730
027734
027736
027742
027742
027744

003052
000200

003052
020456

152 22¢
15¢ 314

021276
104010

000300

004537

020214

JSR
ESCAPE

104010
000270
104004

MOv
DEC
BNE
CLR
MoV
MOV
JSR
WRITE
JSR
ESCAPE
EMT
.WORD

EMT
.WORD
BGNSEG
EMT

PC ,HDHOME

CSEXIT
L10060-.

#125252,
(RO) +
R1

3¢

SRLDA

#-128. ,3RLMP
#8UF ,aRLBA
R5,LDFUNC
RS ,WTCRDY
SEG

C$ESCAPE
RS, CHERR
SEG

C$ESCAPE
10000%-.

C$BSEG
#BUF RO

003052
000200

005077
012777
012777
004537
000014

152244
177600
003052

aRLDA
#-128. ,aRLMP
#BUF ,dRLBA

021276

R5,WTCRDY
SEG
C$ESCAPE
100018-.

004537
104010

104010
000172
000404

+
(RO)

RS5.,LDFUNC

000210

004537
005737
001003

#128. .R1

R1
4%

020456

020214
002124

RS, CHERR
T.CRC

10%:

JHEADS GO HOME OKAY

JXXSTART OF SEGMENTXX
¢SET UP WRITE BUFFER

2128 WORDS/ONE SECTOR
JWRITE PATTERN TO BUFFER
;DONE?
sNO,

BRANCH BA(K

.DISK ADDRESS
;WORD COUNT
;BUS ADDRESS
JLOAD THE FUNCTION IN NEXT WORD
JWRITE THE PATTERN
JWAIT

FOR CONTROLLER READY

;CHECK FOR FL:LOE, ELSE EXIT SEG

10000¢-.

012700
012701
005020
005301
001375

JHEADS OVER TRACK 0

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

JAXSTART OF SEGMENTXX
;CLEAR QUT BUFFER BEFORE
sREAD ING
;CLEAR BUFFER
.DONE?
;NO, BRANCH BACK
sLOAD DISK ADDRESS
sWORD COUNT/ONE SECTION
;LOAD BUS ADDRESS
JLOAD THE FUNCTION IN NEXT WORD
;GO READ
;sWAI1T

FOR CONTROLLER READY

;ChECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

;WAS ERROR A DCK??

SEG

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

102018-~.
99%

s SK [P AROUND

C$ESCAPE

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

030054
030060
030062
030062

005737
001772

030064
030070
030074

005037
005037
012702
012701
012737
011237
023737
001442
010237
023737

030100
030104
030112
030116
030124
030126
030132
030140
030142
030142
030144
030146

2465

030152
030156
030160
030160
030162
030164
030166
030170
030174

24667

030176

2461
2462
2463
(3)
(5)
(5)
(S)

2464

2466

(10 030176
(9)
030202
(8)
030206
(7)
030212
(6)
030216
030222
(3)
(4)
030224
(4)
030226
2468
2469 030232
(3)
030232
2470 030234
2671
030236
030240

030242
030242
030242
030244
030244
030244
030246
0302«
"20.6E

7
N
15:35
PAGE 1-61
**TEST 27+ - CHECK READ WRITE LOOP

22-NOV=78

8%:

016774

104006

001002

002130
002122
003052
000200

99%:

125252
002170
002166

002166

002170

002162
002130

016776

5¢:

TST
BEQ
CKLOOP
EMT

C$CLPY

CLR
(LR

CDCNT
CHECK

MOV
MOV
MOV
MOV

(MP
BEQ

005737
001007
104462
000042
011774
014564

002130

013746
013746
013746
012746
012746
010600

002170
002166
002162
016042
000004

005722
005301
001324
104005

104005

0125252 GDDAT
(R2) ,BDDAT
ggDAT,BDDAT

R2,TMP1
LMT
T T,
CDCON

333%

100018-.
CDCNT

333%:

002122

104006

#BUF R2
812

C$ESCAPE

005237
000416

104014
062706

108

SEG

104010

000076
005237

T.DMP

TST
BNE
ERRDF
TRAP
.WORD
.WORD
.WORD
INC
BR
G%:

7%:

10001%:

:
00008
Y
ENDT

08 WE STILL WANT TO CHECK IT
JYES,

CHECK FOR LOOP FIRST

;CLEAR NUMBER WE'RE TO PRINT
;JALLOW HEADER ON FIRST PRINT
;COMPARE BUFFER TO CHECk WRITE
;128 WORDS
;SET UP EXPECTED
;GET DATA
;1S DATA OKAY
JYES, CONTINUE
;LOAD BAD MEM LOCATION
s CHECKED ENOUGH??

sNO

JCHECK FOR FL:LOE, ELSE EXIT SEG
JACCOUNT FOR IT

JHEADER OR JUST DATA
;JUST DATA
;BAD DATA

EM25

ERRS8

CHECK

BDDAT ,-(SP)
GDDAT ,=(SP)
TMP1,-(SP)

JACCOUNT FOR PRINT OF HEADER

EMT

SP,RO
(SPNTB

CKLOOP
EMT
7ST

DEC
ENE

ENDSEG

#FRMTG,
- (SP)
#4,-(SP)

#12,SP

$CLPI

R2)+
1

EMI

{$LSEG

Emr

"$ESEL

ENDSEG

SEQ 0091

PRINTE H#FRMT6, TMP1,GDDAT ,BDDAT

ADD

6%:

34. ,EM25 ERRS8

ngRCODE

MGV
MOV
MOV

MoV
MOV
MOV

000012

CHECK
9%

WD~

2443
2444
2445
(3)
2646
2647
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
(3)
(3)
2459
2460

30A(1052)

e
*

w
r

;BUMP BUFFER POINTER
sDONE?
INC,

GO BACK

sXXEND OF

SEGMENTXX

SXYEND OF SEGMENTXX
;oeEND CF

TESTes

ASSEMBLY ROUTINES

CZRLBB PN

(2)
2484

30A(1052)

22-NOV-78

15:35

PAGE

B 8
1-62

*««TEST 28++ - (CHECK SILO LINES

JSBTTL
03025C

BCNTST

030250

STARS

SEQ

««TEST 28++ - (HECK SILO LINES
J**START OF

:;tt.tt'fittt'tfitittttt"*t'tltttttttttt'iil

JTEST

THAT

LINES

IN /

TO SILG ARE

GOOD,

THAT

TESTw»

CRANNAARAAAANNAAT RN RN

THAT EACH LINE

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

é;RggTING 0, WALKING 0, WALKING 1

030250

:;ttttt'!**Qttt**ttttti"'i'iti*tt*itfitttttttt’tttt*tttttfiifittttt

004737

030250
030254
030262
030264

104032
000404

030266

012703

03027¢
030272
030274

104004

030310
030312
030320
030324
030332
030336
030340
030344

021356

JSR
CKERFG

2C ,HDHOME

EMT
.WORD

C$EXIT
L10061-.

002662

MOV

#DATPAT ,R3

012700
012701
011320
005301
001375

003052
000200

BGNSEG
EMT
MOV
MOV

C$RSEG
#B0F .RO
#128. R1

:WRITE PATTERN INTO MEMORY
1128 WORDS

DEC

*DONE?

012777
005077
012777
004537
000012
004537

003052
151722
177600
020456

104010
000320

004537

6%:

2% :
151724
151716

021276

000310

003052
000200

030374
030376

030400
030406
030414

012777
012777
005077

RS, LDFUNC

JSR

RS ,WICRDY

JSR

RS, CHERR

ESCAPE
EMT
.WwORD
BGNSEG
EMT
MOV
MOV

CLR

DEC

BNE
03052
77600
51626

151636
151634

dg?rs

ESCAPE
EMT
.WORD

020214

012700
012701
005020
005301
001375

(R3) . (RO)+

MOV #B8UF
, aRLBA
CLR
SRLDA
MOV
#-128.,3RLMP

104010

104004

MOV
BNE

—-

2677
2478
2679
2680
2681
2482
2483

MACY11
22-NOV-78 15:28

MOV

JHEADS OVER T 'ACK O
JHEADS GO HOMt OKAY

JXXSTART OF

‘WRITE THE PATTERN

*NO GO BACK
:SETUP TO WRITE PATTERN ONTO DISK
*LOAD DA
-WORD COUNT

SLOAD THE FUNCTION IN NEXT WORD

SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE.

SEG
CSESCAPE
10000%-.

;CHECK FOR FL:LOE,

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

ELSE EXIT SEG

:CHECK CNTLR FOR ERRORS

;YX%START OF

ELSE EXIT SEG
SEGMENTXY

:CLEAR MEMORY BEFORE READING
*128 WORDS

*CLEAR

EONE

;NO

#BUF , ARLBA

;SETUP

aRL DA

*SECTOR ZERO

#-128., SRLMP

SEGMENTXX

TO READ

*128 WORDS

[T BAZK

1T BACK

292

030420
030424

006537
000014
004537

30A(1052)

22-NOV-78

020456

JSR

READ
JSR

021276

020214
002124
"0%:

104010

000206
000404
005737
001772

016774

8%:

030502
030510
030516
030524
030532

017737
023737
001440

030534
030542
030544
030544
030546
030550

023737
001602
104010
000112

002166

151442

002170
002170

002130

016776

002122

005237
000416

030634

002164
002162

000001

005737
001007

030572
030576

BR
TST

BEQ

G9%:

003052

002130

000043
013024
014702

030600

002130
002122
002166

005237

030554
030560
030562
030562
030564
030566
030570

ESCAPE
EMT
. WORD
JSR
TST
BNE
ESCAPE
EMT
.WORD

CkLOOP
EMT

104066

005037
005037
011337
012737
012737

PAGE

1-63

*«TEST 28x+ - CHECK SILO LINES

104010

000224
004537
005737
001003

15:35

RS ,WTCRDY
G

CSESCAPE
10001%-.
RS, CHERR
T.CRC

; CHECK CNTLR FOR ERRORS

;WAS ERROR A DCK??

T.DMP

:SKIP AROUND
:38 WE STILL WANT TO CHECK IT

C$ESCAPE
100018-.
99%
10%

Z$CLPT

*YES, CHECK FOR LOOP FIRST

CDINT
CHECK
(R3),GDDAT
#BUF
, TMP?

;CLEAR NUMBER WE'RE TO PRINT
JALLOW HEADER ON FIRST PRINT
;COMPARE WHAT WE READ BACK
JBUFFER START
;START WITH FIRST

aTMP2 ,BDDAT

:GET DATA
. 6G00D?
;YES, BRANCH

T LMT
CDCONT,

333%
SEG
CSESCAPE
100018-.

;NO

s CHECKED ENOUGH??

;JCHECK FOR FL:LOE, ELSE EXIT SEG

CDCONT

JACCOUNT FOR IT

CHECK
9$

sHEADER OR JUST DATA

35. ,EM45,ERR10

104462

;CHECK FOR FL:LOE, ELSE EXIT SEG

JYES,SEE IF WE A DUMP
JCHECK FCR FL:LOE, ELSE EXIT SEG

EgDAT,BDDAT

333%:

JLOAD THE FUNCTION IN NEXT WORD

SEG

#1,TMP]

5%:

SEQ 0093

RS, LDFUNC
w
m

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

TSERCODE

2 JUST DATA
;BAD DATA BA(K

35
EM4S
ERR10
002122

002170
002166
002162
016117
000004
000012

CHECK

4%
9%:

PRINTE #FRMT7,TMP1,GDDAT
,RDDAT
MOV
BDDAT ,-(SP)
MoV
GDDAT ,~(SP)
MOV
TMP1,-(SP)
MOV
#FRMT7 ,-(SP)
MOV
#4,-(SP)
MoV
SP,RO

EMTY

4%:

sACCOUNT FOR PRINT OF HEADER

ADD
(KL OoP

(SPNTB

#°2,SP

ASSEMBLY ROUTINES

CZRLBB.P11

MACY11
22-NOV-78 15:28

030634

104006

030636
030644

062737
005237
023727
001317

000002
002162
002162

30A(1052)

002164

10001$:

005723
001203
:
100008

104005

030670
030670

ENDTST
L10061:

104001

EMT

C$CLPT

ADD

#2,TMP2
TMP1
TMP1,4129.

INC
CMP
BNE

000201

104005

15:35
PAGE 1-64
*«TEST 28+* - CHECK SILO LINES

22~N0OV-78

.SBTTL

030672

BGNTST

030672

STARS
IR

SEQ 0094

JNEXT LOCATION
JNEXT WORD

. DONE
.NO, GO BACK

;XXEND OF SEGMENTXX

ENDSEG
EMT

C$ESEG

TST
BNE

(R3)+
6%

;DONE ALL PATTERNS
;NO, GO BACK

JXXEND OF SEGMENTZ%X

ENDSEG

EMT

“$ESEG

EMT

CSETST

J**END OF

**TEST 29xx - (CHECK THROUGHPUT OF

TEST=«

SILO

;**START OF

AN AR R AR AR AR AR

R R

TEST=x

R AR RN AR AR RN NN AR AAARRNNRRARRRANRRRR
AR

;TEST THAT THE SILO OPERATES CORRECTLY, WE WILL WRITE A PATTERRN THAT CONTAINS
;A UNJQUE

PATTERN IN EACH LOCATION.

;ORDER, WE DO A ONE SECTOR TRANSFER

030672

EXPECT

IT BACK

IN PROPER

STARS

":tttfl'it*ittt!’tttt'ttfiti'tttittittttt*ttQtttttt*ttifit'*itttttitii

030672
030676

030704
030706

004737

02" 356

JSR
CKERFG
EMT

104C32
000410

030710
030710
030712
030716
030722
030726
030730
030732
030734

[e ]

——

PON

77600
51270

—

03052

2%:

(WAL,|

012777
012777
005077

_—_

030736
030744
030752

000001
000200
003052

PC ,HDHOME

.WORD

CSEXIT
L10062-.

BGNSE
G
EMT

($BSEG

MoV
MOV
MOV

MoV
INC
DEC
BNE

MOv
MOV

(LR

#1,R0
#128. ,R1

#BUF ,R2
RO, (R2)+
RO
R1

JHEADS QVER TRACK O
JHEADS GO HOME GkAY

JXXSTART OF

JINITIAL 1

;128 WORDS
;BUFFER

JWRITE A WORD

JNEXT PATTERN (1-128)
s DONE

:NO

#BUF , aRLBA

JSETUP TO WRITE

#-128. QRLMP

IRLDA

SEGMENTZX

;128 WORDS
;DISK ADDRESS 0

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

2604
2605
2606
2607
(3)
2é8§

030756
030762
030764
030770
030770
030772

2609
2610

030774
031000

(3)
(3)
2611
(3)

2612
2613
2614
2615
Sg}g

031000
031002
031004
031004

031006
031012
031016
031020
031022

004537
000012
004537
104010
000322

004537

020214

104070
000312

104004
012700
012701
005020
005301
001375

003052
000200

012777
012777
005077
004537
000014
004537

2626

031062

004537

2628
2629
(3)
(3)
2630
2631
2632
2633
2é§2

031072
031074
031074
031076
031100
031102
(031106
031110
031110

001003

2635
2636

031112
0317116

005037
005037

002130
002122

2638
5228

031130
031136

012737
012737

003052
000001

2641
2642
5222

031144
031152
031160

2645
2646
(3)
(3)

2637

2647

031122

JSR
WRITE
JSR
ESCAPE
EMT
.WORD

121276

031024
031032
031040
031044
031050
031052
031056
031056
031060

031066

003052
177600
151202
020456

151212
151210

021276

104010
000232

005737

020214

002124

10%:

104010
000214

000404
.005737
001772

016774

E%:

104006

012737

JSR
ESCAPE
EMT
.WORD
BGNSEG
EMT
MoV
MOv
CLR
DEC
BNE

99% :

002166

017737
023737
001440

151014
002170

002170
002166

031162
031170

023737
001002

002730

016776

031172
031174

104010
000116

002764
002162

RS,LDFUNC
RS ,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG
C$ESCAPE
10000%-.

SEQ 0095

;LOAD THE FUNCTION IN NEXT WORD
JCHECK FOR FL:LOE, ELSE EXIT SEG

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

;CLEAR BUFFER
;128 IN LENGTH
;CLEAR
;DOWN COUNT
;DONE?

MOV
MoV
CLR
JSR
READ
JSR
ESCAPE
EMT
.WORD

HBUF , aRLBA
#-128. ,dRLMP
aRLDA
R5.LDFUNC

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

JSR

R5,CHERR

BNE
ESCAPE
EMT
.WORD
BR
TST
BEQ
CKLOOP
EMT

8%
SEG
C$ESCAPE
10001%-.
99%
T.DMP
10%

CLR
CLR

CDCNT
CHECK

RS ,WTCRDY
SEG
C$SESCAPE
10001%-.

T.CRC

C$CLPY

;CHECK FOR FL:LOE, ELSE EXIT SEG

. CHECK CNTLR FOR ERRORS

;WAS ERROR A D(K??

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

; SKIP AROUND
;DO WF STILL WANT TO CHECK IT
sNO
;YES,

CHECK FOR LOOP FIRST

MOV

#1,GDDAT

HBUF , TMP2
41,TMP1

;CLEAR NUMBER WE'RE TO PRINT
JALLOW HEADER ON FIRST PRINT
;START GOOD AT 1
;START OF BUFFER
;FIRST WORD

MOV
CMP
BEQ

aTMP2 ,BDDAT
BDDAT,GDDAT
6%

sGET WORD
. CORRECT?
JYES

CMP
BNE
ESCAPE

CDCNT, T LMT
333%

s CHECKED ENOUGH??
;NO
JCHECK FOR FL:LOE, ELSE EXIT SEG

MOV
MOV
4$:

SILO

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

TST

000001

031172

22-NOV-78
15:35
PAGE 1-65
««TEST 29%+ - CHECK THROUGHPUT OF

020456

2618
2619
2620
2621
2622
2623
2624
(3)
2é§%

2627

30A(1052)

EMT
.WORD

SEG

(S SCAPE
10001%-.

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

2648
2649
2650
2651
2652
(3)
(5)

031176

005237

002130

005737

102122

001007

2653
2654
2655
2656

333%:

INC
TST

9% :

(6)

031256
031262
031262

000012

031264
031272
031276
031302
031310

000002
002162
002166
002162

e
o

)
)

) w—d

ONONONE
N

b
—h

ek wad
md
—

)

NN NINNN

QOOOO0O

—

031

WINNNININWN

0313
031

001315

104005

CHECK

JHEADER OR JUST DATA

.WORD
.WORD
.WORD

36
EM4&7
ERR10

B8R

T$ERCODE

CHECK

6%:

002164

BDDAT ,~-(SP)
GDDAT ,~(SP)

EMT
ADD
CKLOOP
EMT

C$PNTB
#12,SP

ADD
INC
INC

(MP

000201

BNE
10001%:

100008%
:

L10062:
LSBTTL

031320

BCNTST

031320

STARS

HEADER

TMP1 ,-(SP)
#FRMT?7 ,-(SP)
#4 ,-(SP)
SP,RO

C$CLPT

#2,TMP?2

JNEXT

TMP1,4129,

*DONE?

TMP1
GDDAT

JNEXT
JNEXT

ENDSEG

EMT

JX%XEND OF

SEGMENTZX

JXXEND OF

SEGMENTZX

J**END OF

TESTx«

C$ESEG

ENDSEG

EMT

($ESEG

EMT

(SETST

#«TEST 30%+ ~ (HECK ZERC FILL ON WRITE
;**START OF

RN AN ARRA NP AN AN RN

JWHEN WRITING PARTIAL

031320

JACCOUNT FOR PRINT OF

MOV
MOv

MOV
MOV
MoV
MOV

SRR

JACCOUNT FOR IT

PRINTB #FRMT7,TMP1,GDDAT
,BDDAT

ENDTST

104001

CDCNT

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

INC

002170
002166
002162
016117
000004

SEQ 0096

BNE
ERRDF
TRAP

202122

10
(9)
(8)
(7)

(4)

F
8
22-NOV-78
15:35
PAGE 1-66
*xTEST 29*+ - CHECK THROUGHPUT OF SILO

104462

(5)
(5)

(3)
(4)

30A(1052)

RN NN RN AR

SECTCRS

AR AN

(LESS

TESTxe

ARN R A RRRARANRAR

THAN 128 WORDS)

JCONTROLLER WILL FILL IN THE REMAINING PORTION OF
;THE SECTOR WITH ZERO WORDS.
(HECK THIS FEATURE
;WITH WORD COUNTS FROM 1 TO 127

NNRNER

THE

STARS

;;ttttttfittntnktt

(A 42 2R R

SRR R

RN R

AR EEEE AR AR R

TR R

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

30A(1052)

2683
2684

031320
031324

004737

2@3%

031334

000442

104032

EMT

2686
2é§%

031336
031336

104004

2688
2689
2690

031340
031346
031352

012737
012700
012701

2692
2693

031362
031364

005307
001374

2695
2696
2697
2698
2699
2700
2701
2702
(3)
2;3%

031372
0313764
031400
031406
031412
031416
031420
031424
031426
031426

005400
010077
012777
005077
004537
000012
004537

2704
2705
(3)
(3)
2706
(3)

031430
031434
031434
031436
031440
031440

004537

2709

031452

(4)

2691

2696

2707
2708

2710
s;;;

031332

031356

031366

2726

104004

005301
001374

031520
031524
031530
031532
031532

012720

012777
012777
005077
004537
000014
004537

052525

002162

338

150650
003052
150634
020456

150636

02127¢

020214

003052
000200

125252

003052
177600
150544
020456

18%:

150554
150552

021276

1064010
000234

004537
005737
001003

03153%

104010
00026

031540

005737

031536

104010
000336

031456
021460

2721
2722
2723
2724
(3)

002162

304010
000346

012700
012701

031462
031470
031476
031502
031506
031510
031514
031516
031516

(3)

013700

031442
031446

2713
2714
2715
2716
2717
2718
2719
(3)
2536

2725

012720

021356

000007
003052
000200

000404

020214
002124
:

076774

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

)

10%:

JSR
CKERFG

PC , HDHOME

LWORD

L 10063-.

BGNSEG
EMT

C$BSEG

MOV
MOV
MOV

#1,TMP
#8UF ,RO
#128. R1

;START WITH 1 WORD WRITE
*WRITE BUFFER WITH 52525, WE'LL
*WRITE 128 WORDS ALL THOUGH WE'RE

DEC
BNE

R1
3$

*DONE WITH BUFFER?
‘NO, GO BACK

MOV

CSEXIT

#52525 . (RO) +

TTMMP1,RO

NEG
MOV
MOV
CLR
JSR
WRITE
JSR
ESCAPE
EMT
.WORD

RO
RO, aRLMP
#BUF , RLBA
AR’ DA
RS,LDFUNC

JSR
ESCAPE
EMT
.WORD
BGNSEG
EMT

RS,CHERR
SEG
CS$ESCAPE
10000%~.

RS ,WTCRDY
SEG
C$ESCAPE
10000$%-.

C$BSEG

;HEADS OVER TRACK 0
*HEADS GO HOME OKAY

;%%START OF SEGMENTXX

:ONLY GOING TO TRANSFER < 128

“GET TRANSFER WORD COUNT
*NEGATE FOR RLMP
*STORE WORD COUNT AWAY
*SET UP RLBA

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

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

SEGMENTZY

MOV
MOV

#BUF ,RO
#128. R

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

DEC
BNE

R1
188

DONE?
*NO, KEEP GOING

MOV
MOV
cLR
JSR
READ
JSR
ESCAPE
EMT
.WORD

#BUF ,aRLBA
#-128..3RLMP
aRLDA
RS, LDFUNC

:SET UP TO READ
;128 WORDS "0 CHECK ZERO FILL
*SECTOR
:LOAD THE FUNCTION IN NEXT WORD

RS, WTCRDY
SEG
CSESCAPE
10007$-.

;WAIT TIL WE FINISH THE READ
SCHECK FOR FL:LOE, ELSE EXIT SEG

JSR
1ST
BNE
ESCAPE
EMT

RS, CHERR
T.CRC
8%
SEG
C$ESCAPE

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

B8R

g e

:SKIP AROUND

MOV

LWORD

8$ :

3EQ 0097

#125252, (ROY+

10007%-.

T.DMP

:OVERLAY IT WITH COMPLIMENT

SYES,SEE IF WE A DUMP

:CHECK FOR FL:LOE, ELSE EXIT SEG

‘DO WE STILL WANT TO CHECK IT

ASSEMBLY ROUTINES

CZRLBB.P11

2727
2728
(3)
2729
2730
2731
2732
2733
2734
2735
2736

2737
2738
2739
2740
2741
2742
2743
(3)
(3)

2744
2745

2746

2747
5748
3
(5)
(5)
(5)

2749
2750
2751
2752

031544
031546
031546
031550
031554
031560
031564
031570
031574

(9)

(7)

22-NOV-78 15:28

30A(1052)

22-NOV-78

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

10%

104006

EMT

CS$CLP

CKLOOP

005037
005037
013702
012701

002130
002122
002162
000200

012703

003052
002164
052525
002170
002170

002766

002" 30

016776

023737

031642

005737
001007

0070C2

99%:

002166

000116
005237

002130

031676
021700
031704
031710
031714
031716
031720
031724
031724
031726
031730
031734
031736
031740

031742
031744
031750

031752
031752
031752

000045
012105
015026

0021¢¢

002122

013746
013746
010346
013746
012746
012746

002170
002166

002162
016312
000005

062706

000014

010600
104014
104006

005723
005237

005301
001405
005302
003321
005037
009716

#128. ,R1

JCHECK 128 WORDS

MOV

#BUF ,R3

;SET UP BUFFER BEGINNING

MOV
MOV
(MP

#52525,GDDAT
(R3) ,BDDAT
BDDAT,GDDAT

JSET UP EXPECTED
:GET WORD
;1S WORD CORRECT?

CMP

CDCNT, T.LMT

ESCAPE
EMT

SEG
C$5SCAPE

.WORD
INC

TST

002164

Q%:

7%:
100018
:

333%

10001%-.
CDCNT
CHECK

37
EM?27
ERR"2
CHECK
12%

;WORDS WRITTEN IN R2

;ZERO WORD COUNT

JYES, GO CHECK COUNTS AND REPEAT
;NO

JCHECKED ENOUGH??

JCHECK FOR FL:LOE,
JACCOUNT FOR

ELSE EXIT SEG

JHEADER OR JUST DATA

;JUST DATA

TSERCODE

;ACCOUNT FOR PRINT OF HEADER

PRINTB #FRMT9,TMP1,k3,GDDAT
,BDDAT
MOV
BDDAT,=(SP)
MOV
GDDAT ,-(SP)

MOV
MOV
EMT

002166

12%

.WORD
.WORD
.WORD
INC
BR

MOV
Mov

6%:

TTMTMP?2

9%
37..,EM27 ,ERR1?

MOV

12%:

TTMMP1,R2

BNE
ERRDF
TRAP

005237
000417

MOV

BNE

333%:

CHECK FOR LOOP F]RST

;CLEAR NUMBER WE'RE TO PRINT
JALLOW HEADER ON FIRST PRINT

BEQ

104010

JYES,

CDCNT
(HE(K

CLR

4(%:

;NO

SEQ 0098

CLR
CLR

MOV

104462

031666

H
8
PAGE 1-68

BEQ

031622
031630
031632
031632
031634
031636

031660
031664

15:35

001772

031620

QD) 031666
(10) 031672

(8)

MACY11

R3,-(S")

TMP1,-(SP)
#FRMT9,-(SP)

#5,-(SP)
SP,R0
(SPNTB

ADD

414 ,SP

EMT

C$CLPT

INC
DEC
BEQ
DEC
BGT
CLR
BR

TMP?
R1
7%
RZ
4%
GDDAT
4%

(kLOOP
TST

ENDSEG

(R3)
+

;DONE ALL WORDS?
JEXIT TEST
;DONE CHECKING NON-ZERO WORDS

sNJ, BRANCH BA(K

JYES, SET EXP'D AS ZERC
;BRANCH BACK

JEXIT

TEST
JXXEND OF

SEGMENTZX

ASSEMBLY ROUTINES

CZRLBB.P11

(3)
2765
2766
2767
2768

2769
2770
2771

22-NOV-78 15:28

031752

104005

031754
031760
031766
031770
031774

005237
023727
001402
000137

031774
031774
031774
031776
031776
031776

MACY11

202162
002162

031346

30A(1052)

22-NOV-78

000200

34%-

ENDTST

L10063:

104001

I 8
PAGE 1-69

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

“0000%:

164605

15:35

LSBTTL

032000

BGNTST

032000

S1ARS

EmMT

C$ESEG

INC
CMP
BEQ
JMP

TTMP1
TMP1,#128.
349
35¢%

ENDSEG

EMT

($ESEG

tMT

CSETST

SEQ 0099

JX%END OF

SEGMENTZXX

J**END OF

TESTw»

#«TEST 31+« - (HECK SECTOR BITS OF HEADER COMPARE
;**START OF

TEST=x

‘

. *t*'*fit*tttttt*fi*.t*titt**it'tt'ttttttkttfitt*fi.tt't.tt'titttitt

:TEST

THAT ALL

SECTOR BITS OF

HEADER WORD

CAN COMPARE

JUNIQUELY.
WE TESTED THE HEADER COMPARE LOGIC EARLIER
:BUT THAT WAS NOT AN EXTENSIVE TEST OF THE SECTOR BITS.
;THE TEST PROCEDURE IS TO WRITE EACH SECTOR OF TRACK

;0 WITH THE SECTCR ADDRESS, THEN GO BACK AND READ
SEACH SECTOR.

If ANY SECTOR HAS ANY DATA THEN THAT

JWHICH WAS EXPECTED THEN WE HAVE AN ERROR
%$§ggR PRINT OUT WILL GIvt SFCTUR, EXPECTED AND RECEIVED

032000

;;i‘t**tfi*ttttittt'tkfit'*iititfitttltttti*thtttttttttttfittitttitt

032000
032004
032012
032014

2805

2809

004737

021356

JSR

P(C ,HDHOME

000414

EMT
.WORD

CSEXIT
L10064~.

032016
032016

104004

BGNSEG
EMT

C$BSEG

032020

005037

CLR

TTMMPO

032024
032024

104004

032026
032032
032036
032042

012702
012701
013722
005301

(KERFG

104032

002160

1%:

BONSEG

003052
000200
002160

159%:

EMT

C$BSEG

MOV
MOV
MOV

#BUF ,R2
#128. R1
10, (R2)+

DE(

JHEADS OVER TRACK 0O
JHEADS GO HOME OKAY

JA%5TART OF

SEGMENTZ%

JAXSTART OF

SEGMENTZX

. CLEAR

JWRITE A PATTERMN FOR THE WRITE
JONE SECTOR'S WORTH
JWRITE 1T
.DONE,

012777
0127:7
013777
004537
000012
004537
104010
000320
005237

177600

003052

002160
020456

—_

032046
032054
032062
032070
032074
032076

15:35

1-70

BNE

;IF NOT, GO BACK

MoV
MOV
MOV
dg?TE

#-128. ,aRLMP
#BUF , aRLBA
TMPO ,aRL DA
RS, LDFUNC

JONE SECTOR WORD COUNT
;JWRITE FROM BUF
;SECTOR
;LOAD THE FUNCTION IN NEXT WORD

JSR

RS ,WTCRDY

EMT
.WORD
INC
CMP
BNE
CLR

C$ESCAPE
10001%-.
TMPO
TMPO , #40.
199%
TMPO

BGNSEG
EMT

C$8SEG

MOV
MOV

#BUF ,R?
#128. R

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

021276

002160
002160

PAGE

22-NOv-78

VIONN
[0 Y2V
P o

001374
NN

032044

—_

2810
2811
2812
2813
2814
2815
2816
2817
2818
(3)
(3)
2819
2820

30A(1052)

elele)

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

ESCAPE

SEG

JWAIT FOR WRITE TO FINISH

- ;CHECK FOR FL:LOE,

032120
032122

032126
032126

104004

032130
032134
032140
032142
032144

012702
012701
005022
005301
001375

003052
000200

032146
032154

013777
012777

002160
003052

150072
150062

MOV

#BUF ,aRLBA

;SETUP BUS ADDRESS

032162
032170
032174
032176
032202
032202
032204

012777
004537
000014
004537

177600

150060

L 0)%

#-128. ,aRLMP

sREAD A SECTOR

021276

JSR
ESCAPE
EMi
.WORD

R5,WTCRDY
SEG
($E SCAPE
10002%-.

032206
032212
032216
032220
032220
032222
032224
032226
032232
032234
032234

004537
005737
001003

020214
002124

JSR

RS, CHERR

BNE
ESCAPE
EMT
.WORDC
BR
1ST
BEQ
CkLOOP
EMT

8%
SEG
C$ESCAPE
10002%-.
99%
T.DMP
10%

002160

020456

98%:

3%:

MOV

;220

104010

000216

104010
000200
000404

005737
001772

CLR
DEC
BNE

IST

10%:

016774

8¢:

104006

(R2)+
R1
3%

TMPQ,aRLDA

RS,LDFUNC

T.CRC

C$CLPT

ELSE EXIT SEG

sNEXT SECTOR
JALL DONE?
:NO GO BACK
;CLEAR

023727
001342
005037

000050

SEQ 0100

JXXSTART OF

SEGMENTZX

;CLEAR THE BUFFER FIRST
. 128 WORDS

;GET SECTOR

sLOAD

THE

FUNCTION

IN NEXT WORD

;CHECK FOR FL:LOE, ELSE EXIT SEG

;.CHECK CNTLR FOR ERRORS

;WAS ERROR A DCK??

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

2 SKIP AROUND
;DO WE STILL WANT "0 (CHECK
:NO
JYES,

CHECK FOR LOOP FIRST

sCHECK NOW TO SEE iF WE READ THE RIGHT SECTOR
032236

032264

002130
002122
002160
003052
000200
002170

99%:

002166
5%:

CLR
CLR
MOV
MOV

CDCNT
CHECK
TMPO, GDDAT
#BUF ,R2

;CLEAR NUMBER WE'RE TO PRINT
JALLOW HEADER ON FIRST PRINT
JEXPECTED DATA
JBUFFER

MOV

(R2)+ ,BDDAT

;

MOV

4#° 8. ,R1

JWORD COUNT

ASSEMBL Y ROUTI NES
MACY11
p
CZRLBB.P11
22-NOV-78 15:28

30A(1052)

K _8
22-NOv-78
15:35
PAGE 1-71
*«TEST 31+ - CHECK SECTOR BITS OF HEADER COMPARE

SEQ 0101

032270
032276

023737
001440

002170

002166

CMP
BEQ

, GDDAT
BDDAT

032300

023737
001002

002130

016776

CMP
BNE
ESCAPE
EMT
.WORD
INC

CDCNT, T.LMT
333
SEG
CSESCAPE
10002%~.
CDCNT

ACCOUNT FOR IT

TST

CHECK
9%

JHEADER OR JUST DATA
. JUST DATA

TRAP

;gERCODE

104010

032314
032320
032324
032326
032326
032330

032336
032342

032344

000110
005237

005737
001007

032402
032404
032406
032412
032420
032422
032422
032422

032424
032424
032424
032426
032426
032426
032430
032430
032430

002122

BNE
ERRDF

104462

000046
013105
014754
005237
000416

.WORD
.WORD
.WORD
INC

002122

013746
013746
013746
012746
012746
010600

002170
002166
002160
016171
000004

062706

000012

104014

032400
032400

333%:

002130

9%:

6%:

005301
001327
005237
023727
001243

104005

104005
104005
104001

002160
002160

ADD

CKLOOP
EMT

GOOO50

10002%:

10001$:
10000
:

ENDTST

L 10064:

BGNTST

: CHECKED ENOUGH??

*CHECK FOR FL:LOE, ELSE EXIT SEG

EM50

FRR11
CHECK
6%

sACCOUNT FOR PRINT OF HEADER

C$PNTR

#412,SP

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

LSBTTL

032432

38. ,EMS50,ERR11

PRINTB #FRMTS8,TMP(,GDDAT
,BDDAT
MOV
BDDAT ,~(SP)
MOV
GDDAT,-(SP)
MOV
TMPO,
= (SP)
MOV
HFRMT8,-(SP)
MOV
#4,-(SP)
MOV
SP,RO

EMT

104006

JXXEND OF SEGMENTX%

ENDSEG
EMT

JALL OF SECTOR CHECKED?
;GO BACK IF NOT
JNEXT SECTOR
;DONE?
;NO, GO BACK

C$ESEG

ENDSEG

;XXEND OF

EMT
ENDSEG

C$ESEG

EMT

C$ESEG

EMT

CSETST

SEGMENTZX%

;XXEND OF SEGMENTZ%
J**END OF

TESTx»

*«TEST 32«+ ~ WRITE (HECK NPR INTEGRETMY
s**START OF

TESTww

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

2891

(2)
2892

2893
2894
(2)

2895
2896
2897
2898

30A(1052)

032432

22-NOV-78
15:35
PAGE 1-72
**TEST 32++ ~ WRITE CHECK NPR INTEGRETY

SEQ 0102

STARS
d

AR TR A AR

R R R AA R AR AR R AR AR R AN AANRAARAARRAAAAAR - RARRRRAANRRARA

sCHECK THAT NPR WILL NOT INTERFERE WITH THE OPERAT.ON OF THE
;UNIBUS. WE SET UP LOCATION 4 TO HANDLE THE TRAP [~ IT HAPPENS.

032432

STARS

;;t*ttt**tt*tttt*tttittt*t**t***tt*ttttttt***tt*t*ttt**t*ttifit*tt

032432
032436
032444
032446

004737

021356

PC ,HDHOME

000372

104032

JSR
CKERFG
EMT
.WORD

032450
032450

104004

BGNSEG
EMT

C$BSEG

032452
032456
032462
032466
032470

012700
012701
012720
005301
001374

003057
000200

MOV
MOV

#128.

032472
032500
032506
032512
032516
032520
032524
032524
032526
032530
032534
032534
032536

012777
012777
005077
004537
000012
004537

003052
177600

125252

147534

299%:

147544
147542

020456

DEC
BNE

020214

104010

000300

JX%XSTART OF SEGMENTZ%

ABUF ,RO

JSETUP AND WRITE

g}252§2.<ao>+

;WRITE

299%

;128 WORDS
;DONE??

MOV
MOV
CLR
JSR

#BUF
, dRLBA
#-128. ,dRLMP
aRLDA
RS,LDFUNC

-LOAD BUS ADDRESS
;WORD COUNT

JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
SEG

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

10000%-.
R5,CHERR
SEG
C$ESCAPE

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

WRITE

021276

104010

000310
004537

MOV

CSEXIT
L10065-.

JHEADS OVER TRACK 0
JHEADS GC HOME 0OKAY

C$ESCAPE

;CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

10000%-.

JVERIFY WRITE WITH READ BEFORE WR(CHK
032540
032544
032552
032560
032564
032566
032572
032572
032574
032576
032602
032602
032604

009232

032606
032606

104004

005077
012777
012777
004537
000014
004537

147502
003052
177600

020456
021276

104010

000242
004537
104010

020214

147472
147470

CLR
MOV
MOV
JSR

READ

JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE

EMT

aRLDA
#BUF
, aRLBA

R5,LDFUNC
R5 ,WT(RDY

;LOAD THE FUNCTION IN NEXT WORD

SEG

;CRECK FOR FL:LOE, ELSE EXITM SEG

RS, CHERR
SEG

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

($ESCAPE
10000%~.

.WORD

CSESCAPE
10000%-.

BGNSEG
EMT

(B3SEG

JAXSTART OF SEGMENTZX

MACY11
22~NOV-78 15:28

ASSEMBL Y ROUT] NES

p
CZRLBB.P11

2933
(7)

(6)
(5)
(4)

032610
032610
032614

(3)
(2)
2934
2935
2936

012746
012746
013746
012746

042737
013777
012701
032777
001013

177600
002166
002134
000002
020764
002166
000201
0020C0
002166
000144
000200
000024

032762

012700
104027
005301
001367

032764

004537

021016

032770
032772
032774

104462
000000
007172
014456

032770

013700
104036

000024

033012
033016
033020
033024

005737
001406
004537

033034

033034
033034
033034
033036

MOV
EMT
ADD

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

147366

MOV
CLR

002166
002166

MOV
BIS

JSR

002216
002216
002216
147304

MoV

BIS

5%:

BIC
MOV
MOV
BIT

BNE
WAITUS

MOV

EMT
DEC
BNE

6%:

GDDAT,B.
(S

#201,B.CS

#0P] ,B.CS
GDDAT ,aRLCS
#100. ,R1
#CRDY ,QRLCS

6%
#20.

#20. ,RO

CSwTU
R1
5%

0. ,CRTIM, ERRS
0

.WORD
CLRVEC

ERRS
ERRVEC

MOV

TRAP

.WORD

.WORD
.WORD

10001%:

RS ,BEFORE

.WORD

BEQ
JSR
ERRSF

013477
014244

DRIVE,GDDAT
#WRCHK
, GDDAT

TSERCODE

TST

021016

#-128. ,aRLMP
GDDAT

TRAP

EMT
ESCAPE
EMT
.WORD

002142

TRPFLG
#BUF ,aRLBA
aRLDA

R5,AFTER

ERRDF

;SET UP FOR TRAP

cCLEAR TRAP OCCURANCE
;BUS ADDRESS
-LOAD DISK ADDRESS

;WORD COUNT OF

128

cSET UP CSR TO LOAD
sSET IN DRIVE
JSET IN FUNCTION
;LOAD FOR ERROR PRINTOUT
<SET IN COMMAND
;LOAD CRDY
;CLEAR (BIT 10)
JISSUE WRITE CHECK

JWAIT FOR CRDY
;NPR DONE
JYES, 6%

CWAIT A WHILE
;A WHILE UP

:NO, GO BACK

o CONTROLLER TIMED OUT

CRTIM

ERRVEC,RO

C$CVEC
SEG
CSESCAPE
10001%-.
TRPFLG

7%
R5,AFTER
1,,EM57,ERRO
{$ERCODE

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

;DID TRAP QCCUR?

:NO

. "RAP ON WRITE

EM57
ERRO

SXXEND OF SEGMENTXZ

ENDSEG

EMT
ENDSEG

SEQ 0103

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

JSR

.WORD

002132

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

CLR
MoV
CLR

147374

147272

PAGE 1-73

SETVEC
MoV
MoV
MOV

104461
000001

104005

15:35

*«TEST 32x+ - WRITE CHECK NPR INTEGRETY

104010

033010

033024

22-NOV-78

1%:

000340
221350
002132
000003
000010
002142
003052
147372

2937
2938
2939

30A(1052)

(LFSEG

;AXEND OF SEGMENTZX

ASSEMBLY ROUTINES
MACY11
CZRLBB.P11
22-NOV-78 15:28
(3)
252%

033036
033036

2968
(3)
2;2%

033040
033040
033040

30A(1052)

N 8
22-NOV-78 15:35 PAGE 1-74
«*TEST 32%«x - WRITE CHECK NPR INTEGRETY
100008:

104005

ENDTST
L10065:

104001

%3;9

LSBTTL

%g;%

033042

BGNTST

2974

0330472

STARS

(2)

2975

2979
2580
2981
2982

033042
033046
033054
033056

104032
000214

2984
253%

033060
033060

104004

2986
2987

033062
033066

012700
012701

2989
533?

033076
033100

005301
001374

2988

033072

004737

012720

012777
012777
005077
004537
000012
004537

(3)

033136

000132

(3)

(3)
3001
3535

033134

033140
033144
033144

033146
033150
033150

021356

:x%START OF

TEST#*x

WRITE

CHECK LOGIC UNDER FLAG MODE

003052
000200

125252

003052
177600
147124
020456

299%:
147134
147132

021276

104010

004537

CSEXIT
L10066-.

BGNSEG
EMT

C$BSEG

MOV
MOV

#BUF ,RO
#128. .R1

;SETUP AND WRITE
1128 WORDS

R1
299%

*DONE??

104010

SEGMENTZX

#125252.(RO)+

MOV
MOV
CLR
JSR
WRITE
JSR
ESCAPE

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

:LOAD BUS ADDRESS
-WORD COUNT
*CLEAR DISK ADDRESS
:LOAD THE FUNCTION IN NEXT WORD

RS,WTCRDY
SEG

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

DEC
BNE

CSESCAPE
10000$-.

JSR
ESCAPE

RS,CHERR
SEG

.WORD
BGNSEG
EMT

10000%-.

EMT

104004

;%%START OF

MOV

.WORD"

000122

;HEADS OVER TRACK 0
“HEADS GO HOME OKAY

EMT
.WORD

EMT

020214

PC , HDHOME

CSESCAPE

:WRITE

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

C$6SEG

XXSTART OF

SEGMENTZY

;VFRIFY WRITE WITH READ BEFORE wR(
K

033152

005077

033164

Q12777

2006 033156

2008

**TEST 33%% - WRITE CHECK FUNCTION

JSR
CKERFG

§882

3005

CSETST

;‘-t*tttt*tt*ttt**tt*t*ttt*t*tt*tttt*tt*ttttti*tttttttti*tt*ttttt*

033102
033110
033116
033122
033126
033130
033134

2999
3000

EMT

* WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM
*MEMORY (BUF).
WE CHECK THAT NO ERRORS OCCUR.
{TARS

2992
2993
2994
2995
2996
2997
2998
(3)

;#%END OF TEST##

SCHECK OF

033042

(4)
253%

C$ESEG

.'.'t*l’tt*tttt*ttttt*tttttttt**t***ttttttttttttttttttttttttt**ttttt

2976
2977
2978
(2)

EMT

SEQ 0104

037,

147070

(12777 ogxose
O0LSE7

177600

065k

147060
1470%€

(IR

@RLDA

#MUF R BA

&, DF N

TM/

8- 28,
9R WP

TN VAP

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

3009
3010
3011
(3)
(3)
3012
3013

033176
033200
033204
033204
033206
033210
033214
033214
033216

104010
000050

3015
36$é

033220
033220

104004

3017
3018
3019
3020
3021
%85%

033222
033222
033226
033234
033242
033246

005077
012777
012777
004537
000002

147020
177600
003052
020656

3024
3025

033250
033254

004537

021276

(3)
36?2

000014
004537

02'27¢

104010
000060
004537

020214

(3)
(3)

033254
033256

104010
000006

%853

033260

004537

3030

033264

(3)
3031

033264
033266

3097
(3)

(3)
(3)
3032
(3)
(3)
3033
(3)
36%2

033264

033266
033266
033270
033270
033270
(33272
033272
033272

30A(1052)

READ
JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE

RS ,WTCRDY
SEG
(SESCAPE
100018-.
RS, CHERR
SEG

BGNSEG
EMT

($BSEG

EMT
.WORD

3%:
147074
147002

020214
10002%:

104005

100018:

104005

10000%:

104005

ENDTST

L10066:

104007

%8%2

22-NOV=78
15:35
PAGE 1-75
*oTEST 33ee -~ WRITE CHECK FUNCTION

LSBTTL

JCHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK (NTLR FOR ERRORS
JCHECK FOR FL:LOE, ELSE EXIT SEG

CSESCAPE
10001%-.

CLR
i0)%
MOV
JSR
WRCHK

aRLDA
#-128. ,aRLMP
#8UF ,3RLBA
RS, LDFUNC

JSR
ESCAPE

RS,WTCRDY
SEG

Em7Y
.WORD

(SESCAPE
10002%-.

JSR

RS, CHERR

;XXSTART OF SEGMENTZX

sWORD COUNT
;BUS ADDRESS
JLOAD THE FUNCTION IN NEXT WORD
JWRITE CHE’K
JWAIT FOR CONTROLLER READY
JCHECK FOR FL:LOE, ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS

ENDSEG

EMT
ENDSEG

(SESEG

EMT

($ESEG

EMT

CSESEG

EMT

CSETST

ENDSEG

SEQ 0105

sXXEND OF

SEGMENTXX

JXXEND OF

SEGMENTZX

JXXEND OF

SEGMENTZXX

J**END OF

TEST=»

*«TEST 34+~ - WRITE CHECK FUNCTION INTERRUPT

%8:35;

033274

BGNTST

3039

033274

STARS

3040
3041
3042
3043
3044

033274

;CHECK OF WRITE CHECK ILOGIC UNDER INTERRUPT MODE
JWE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM MEMORY (BUF).
;WE CHECK THAT NO ERRORS OCrUR.
WE DO NOT CHECK RLDA OR RLBA
o INCREMENT AT THIS TIME.
STARS

3045
3046
3047

033274

SRR

004737

021356

J**START OF
R RN R R

A AN

A AR R A AR AT R AR A AN AR AR AN AR R ARR R AR R

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

JSR

TEST=»

PC,HDHOME

PR P

R R T KRR

N A AR AR AN AR R R R AR RN RN ARNNNAR SR AR R AN

JHEADS OVER TRA(CK 0

ASSEMBLY ROUTINES
MACY11
CZRLBB P
22-NOvV-78 15:28

033300
033306
033310

104032
000252

033312
033312

104004

033314
033320
033324
033330
033332

033334

033376
033400
033402

BGNSEG

003052
000200

012777
012777
005077
004537
000012
004537

003052

004537

299%:

125252

177600
146672

46702
1 46700

020456

021276

005077

;SETUP AND WRITE
*128 WORDS

MOV

#125252.(RO)+
R1
299%

*DONE??

MOV

#BUF , aRLBA

:LOAD BUS ADDRESS

CLR

ARLDA

*CLEAR DISK ADDRESS

DEC
BNE

MOV

#-128. ,8RLMP
RS, LDFUNC

RS ,WICRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG

CSESCAPE
10000%-.

SEGMENTZY

WRITE

“WORD COUNT

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

;VERIFY WRITE WITH READ BEFORE WRCHK
146640

003052
177600
020456

46630
1 46626
1

021276

033450
033450

104004

033452
033456
033462
033470

005037
005077
012777
012777

177600
003052

012700

000000

004537
000102

020456

CLR
MOV

aRLDA
#BUF , aRLBA

ééfio

RS, LDFUNC

JSR
ESCAPE
EMT

RS ,WTCRDY
SEG
C$ESCAPE
10000%-.
RS, CHERR
SEG
CS$ESCAPE

MOV

.WORD
JSR
ESCAPE
EMT
.WORD

02C214

000112

104010

104041

SXYSTART OF

#BUF ,RO
#128. R1

EMT
.WORD

033444
033446

033476
033476
033502
033504
033510

SEQ 0106

:HEADS GO HOME OKAY

MOV
MOV

JSR

104010

000122
004537

CSEXIT
L10067-

C$BSEG

ESCAPE
EMT
.WORD
JSR
ESCAPE

020214

EMT

igfire

104010
000160

012777
012777
004537
000014
004537

22-NOV-78
15:35
PAGE 1-76
**TEST 34*+ - WRITE CHECK FUNCTION INTERRUPT
CKERFG
EMT
.WORD

012700
012701
012720
005301
001374

104010
000170

30A(1052)

BGNSEG

002144

146564

1 46560
1 46546

#-128.
, QRLMP

;LOAD THE FUNCTION IN NEXT WORD
;CHECK FOR FL:LOE,

ELSE EXIT SEG

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

10000%-.

SX%START OF

EMT

C$BSEG

CLR
CLR

INTELG
IRLDA

:CLEAR

#BUF , RLBA

*SET UP BUS ADDRESS

INTERRUPT GCCURANCE

MOV

#-728.,3RLMP

;SET UP WORD COUNT

SETPR]
MOV
EMT
JSR

#PRIOO
#PR100,RO
C$SPR]
R-.LDFUNC

;PRIORITY TO 0O

MOV

WRCHK . INTEN

JWRITE

SEGMENTXY

:LOAD THE

CHECK UNDER

FLAG

FUNCTION IN NEXT WORD
INTERRUPT

ASSEMBLY ROUTINES

CZRLBB.P11

3090
3091
(3)
363%

033512
033516
033516
033520

3093
(3>

033522
033522

3094
3095

033530
033534

(3)

3097
(3)

033526

033536
033536

(5)
(5)
(5)
3098
(3)
363%

033540
033542
033544
033546
033546
033550

%}8?

033552

3102
(3)
(3)
3103
(3)
(3)
3104
(3)

033556
033556
033556
033560
033560
033560
033562
033562

3%8%

033562

MACY11

22-NOV~78 15:28

004537

22-NOvV~78

104010
000036
012700
104041
005737
001004

000340

002144

104462
000004
013537
014244

i ¥

104010
000006

004537

020214

10000%-

104005

ENDTST
L10067:

104001

PAGE

1-77

.SBTTL

SEQ 0107

JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
SEG
C$ESCAPE
10001%-.

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

SETPR]
MoV
EMT
1ST
BNE

#PRIO7
#PR107,RO

;SET PRIORITY TO 7

INTFLG
2%

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

ERRDF
TRAP

4. ,EM60,ERRO
T$ERCODE

JWRITE DID NOT INTERRUPT

ESCAPE
Emr
.WORD

SEG
CSESCAPE
10001%-.

sCHECK FOR FL:LOE, ELSE EXIT SEG

.WORD
.WORD
.WORD

JSR
10001%:

104005

15:35

*«TEST 34+ - WRITE CHECK FUNCTION INTERRUPT

021276

%}89
3108

30A(1052)

C$SPRI

4
EM60
ERRO

R5,CHERR

ENDSEG

;CHECK CNTLR FOR ERRORS
JXXEND OF

EMT
ENDSEG

C$ESEG

EMT

C$ESEG

EMT

CSETST

SEGMENTXX

;XXEND OF SEGMENTXX
J**END OF

TESTw»

««TEST 35+« - PROPER [NCREMENT OF RLBA ON WRITE CHECK

033564

BGNTST

033564

STARS

3112
3113
3114
3115
3116

033564

sCHECK 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)
3%3%

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

3106
3110
3111
(2)

(2)

;**START OF

TEST=*»

.':*tttt**t**ttt**t***t**tt***fii**t*t**t*tfit**tt*tt*l‘t*\tfiti*ttttt

""tti*fitt*t*****tttitti*itt***t*iifi*ttfi*!*iittktttfittt"titittttt

004737

021356

003052

PC,HDHOME
CSEXIT
L10070-.

JHEADS OVER TRA(CK 0O
JHEADS GO HOME OKAY

J%XSTART OF
JSETUP AND WRITE

SEGMENT%X

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

033622
033624

012701
012720
005301
001374

000200

012777
012777
005077
004537
000012
004537

003052
177€¢0¢

30A(1052)

299%:

125252

033670

033672
033676
033704
033712
033716
033720
033724
033724
033726
033730
033734
033734
033736

146402

020456

#128. R1

DEC
BNE

R1
299%

MOV

020214

#125252, (RO)+

MOV

#BUF ,3RLBA

CLR
JSR

ARLDA
RS . LDFUNC

WRITE

021276

#-128. ,aRLMP

JSR
ESCAPE
EMT
.WORD
JSR

RS,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR

EMT
.WwORD

CSESCAPE
100003-.

ESCAPE

104010
000" 64

005077
012777
012777
004537
000014
004537

MOV

104010

000174
004537

SEG

146350
003052
177600
020456

BRLDA

MOV
JSR

#=128. ,aRLMP
RS, LDFUNC

JSR
ESCAPE

000116

.WORD
JSR
ESCAPE
EMT
.WORD

RS,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG
C$ESCAPE
10000%-.

033740
033740

104004

BGNSEG
EMT

C$BSEG

033742
033742
033746
033754
033762
033770

005077
012777
012777
012737
062737

CLR
MOV

ARLDA
#8UF , 3RLBA

MOV

#BUF
, GDDAT

1466340
146336

MOV

READ

021276

104010

EMT

020214

104010

033776
034002
034004
034010
034010
034012

004537
000002
004537

034014
034020
034020
034022
034024

004537

146300

003052
177600

003052
000400

3%:
146270
146266

002166
002166

020455
021276

020274

104010

146214

MOV
ADD

;128 WORDS

JWRITE
;DONE??

sLOAD BUS ADDRESS
JWORD COUNT
;CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD
JWAIT FOR CONTROLLER READY

JCHECK FOR FL:LOE, ELSE EXIT SEG

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

002170

#BUF
, BRLBA

#-128. ,aRLMP
#256. ,GDDAT

JSR

RS, LDFUNC

JSR
ESCAPE
EMT
.WORD

RS, WTCRDY
SEG
CS$C SCAPE
10001$-.

JSR
ESCAPE
EMT

RS, CHERR
SEG
CSESCAPE
10701$-.

WRCHK

104010
000040

000030
017737

SEQ 0108

sVERIFY WRITE WITH READ BEFORE WRCHK
CLR

000126
004537

22-NOV-78
15:35
PAGE 1-78
**TEST 35+« ~ PROPER INCREMENT OF RLBA ON WRITE CHECK

.WORD

MOV

aRLBA,BDDAT

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

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

;XXSTART OF SEGMENTZX

;SET UP BUS ADDRESS

sWORD COUNT
JFORM EXPECTED BUS ADDRESS
SAFTER WRITE

sLOAD THE FUNCTION IN M"XT WORD
JWRITE CHECK
JWAIT FOR CONTROLLER READY
JCHECK FOR FL:LOE, ELSE EXIT SEG

s CHECK CNTLR FOR ERRORS

sCHECK FOR FL:LOE, ELSE EXIT

JREAD

'RLBA'

SEG

FOR PRESENT ADDRESS

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

3168
%193

034032
034040

3171
(3)
(5)
(5)

034042
034042
034044
034046

3%;5

034050

%1;2

034052

3175

034052

3176

034054

(3)
(3)

(3)
(3)
2177
(3)
3§;g

034052
034052

034054
034054
034056
034056
034056

023737
001404

002170

30A(1052)

22-NOV-78
15:35
PAGE 1-79
*«TEST 35+ - PROPER INCREMENT OF

002166

104462
000005
013575
014410

RLBA ON WRITE CHECK

MP
BEQ

BDDAT , GDDAT
2$

:DID 'BA" INCREMENT PROPERLY?
$YES, CONTINUE

ERRDF
TRAP
.WORD
"WORD

5. ,EM61,ERRG
T$ERCODE
5
EM61

:BA DID NOT

<WORD

INCREMENT

ERR4

2$:
100018
:

104005

10000$:

104005

ENDTST
L10070:

104001

gxgg

SBTTL

ENDSEG

JXXEND OF SEGMENTXZZ

EMT

CS$ESEG

EMT

"$ESEG

EMT

CSETST

ENDSEG

S%XEND OF SEGMENTZX
J**END OF

TESTx»

=«TEST 36%+ - PROPER INCREMENT OF RLDA ON WRITE CHECK

%13;

034060

BGNTST

3183

034060

STARS

3184
2185
3186
3187

034060

;CHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE CHECK WAS FIN]SHED.
;A FULL SECTOR WRITE CHECK THE R.DA SHOULD REFLECT AN INCREMENT
*OF TRE SECOTR.
‘'GDDAT'* WAS THE EXPECTED RLDA.
$TARS

3188
3189
23160
3191

034060
034064

034072
034074

104032
000254

EMT
LWORD

3193
3{32

034076
034076

104004

BGNSEG
EMT

C$BSEG

3195
3196

034100
034104

012700
012701

MOV
MOV

#BUF ,RO
#128. R1

sSETUP AND WRITE
$128 WORDS

2198
gggg

034114
034116

00530
001374

DEC
BNE

R1
299%

;DONE??

MOV

#8UF , GRLBA

;LOAD BUS ADDRESS

CLR
JSR
WRITE
JSR
ESCAPF

aRLDA
RS, LDFUNC

*CLEAR DISK ADDRESS
.
:LOAD THE FUNCTION IN NEXT WORD

RS,WTCRDY
SC”

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

(2)

(4)
31(3%

3197

034110

:.-ttttttttl*ttt'ttttttti*tttttttttt*ttt'Rttttfittttttttttttt*t'tttt

004737

012720

02135¢

JSR
CKERFG

003052
000200

125252

269¢:

034120

012777

003052

146116

3203
3204
3205
3206
3207

034134
034140
034144
034146
034152

005077
004537
000012
004537

46106
020456

)

(3)

034126

034152

TEST=»

""ttttt*tttttt**ttt*tt*tittttt't*ttttt**ittttttt*ttti*tttttttttttt

3201

3202

;*xSTART OF

012777

104010

177600

021276

146714

MOV

EMT

PC ,HDHOME
CSEX]T
L10071-.

;HEADS OVER TRACK O
;HEADS GO HOME OKAY

:X%XSTART OF

#126252,(ROY+

#-128.,aRLMP

C$ESCAPE

SEGMENTZZ

-WRITE

WORD TOUNT

SEQ 0109

ASSEMBL Y ROUTI NES
MACY11
)
CZRLBB.P11
22-NOv~78 15:28

3208
3209
(3
(3)

034154
034156
034162
034162
034164
034166
034172
034200
034206
034212
034214
034220
034220
034222
034224
034230
034230
034232

034234
034234

034236

000172
004537

22-NOV-78

.WORD
JSR

ESCAPE
EMT
.WORD

104010

005077
012777
012777
004537
000014
004537

15:35

PAGE 1-80

«+TEST 36%+ - PROPER INCREMENT OF

020214

000162

10000%-.
R5,CHERR
SEG
CSESCAPE
10000%-.

RLDA ON WRITE

CHECK

; CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE, ELSE EXIT SEG

JVERIFY WRITE WITH READ BEFORE WR(HK
146056

aRLDA
#BUF ,aRLBA
#-128. ,aRLMP

JSR

RS ,WTCRDY

EMT

CSESCAPE

000114

1040160

JSR
ESCAPE
EMT
.WORD

RS, CHERR
SEG
C$E SCAPE
10000%-.

104004

BGNSEG
EMT

C$BSES

CLR

GDDAT

INC
MOV
MOV

GDDAT
#-128. ,aRLMP
#8UF ,3RLBA

JSR

RS, LDFUNC

JSR
ESCAPE
EMT
.WORD

RS ,WTCRDY
SEG
CSESTAPE
1000"$-.

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

JSR
ESCAPE
EMT
.WORC

R5,CHERR
SEG
CSESCAPE
10001%-.

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

MOV
(MP

E.DA ,BDDAT
GDDAT ,BDDAT

JREAD DISK ADDRESS
;DID SECTOR INCREMENT PROPERLY

ERRDF

6. ,EM62,ERRS

;DA DID NOT

.WORD

ERR4

003052

177600
0c0456

146044

146042

5§§D

021276

ESCAPE

104010

000124
004537

.WORD

020214

3%:

005037
013777
005237
012777
012777

0C2166
002166
002166

145776

003052

145754

004537
000002
004537

020456

177600

145766

034306
034312
034312
034314

004537
104010
000030

034316
034324
034332

013737
023737
001404

021276

104462

000006
013652
014470

020274

002232
02166

MGV

WRCHK

104010

000040

002170
002170

BEQ

TRAP

.WORD

R5.,LDFUNC
SEG

10000%-.

GDDAT ,@aRLDA

T$LRLODE

sLOAD THE FUNCTION IN NEXT WORD
;CHECK FOR FL:LOE,

ELSE EXIT

ENDSE

SEG

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

JX%XSTART OF

SEGMENTZX

;SETUP DISK ADDRESS

;CREATE EXPECTED SECTOR
;WORD COUNT
.SETUP BUS ADDRESS

;LOAD THE FUNCTION IN NEXT WORD

JWRITE

CHECK

JYES, BRANCH

NO,

REPORT ERROR

[NCREMENT

EM6Z

034344

036344

SEQ 0110

CLR
MoV
MoV

034304

034334
034334
034336
034340
034342

30A(1052)

JAXEND OF

SEGMENTZX

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

(3)
(3)

034344
034344

(3)
(3)
3249
(3)
(3)

034346
034346
034350
034350
034350

3248

3250
3251
%%g%

034346

30A(1052)

10001%:

104005

10000%:

104005

ENDTST

L10071:

104007

22-NOV-78
15:35
PAGE 1-81
*«TEST 36*+ - PROPER INCREMENT OF

LSBTTL

EMT

($ESEG

EMT

($ESEG

EMT

CSETST

ENDSEG

RLDA ON WRITE CHECK

SEQ 0111

;XXEND OF SEGMENTZX
J**END OF

TESTwx

«#TEST 37+« - MULTIPLE SECTOR WRITE CHECK

gggg

034352

BGNTST

325¢

034352

STARS

3257
3258
3259
3260
3261
3062

_
034352

.THECK FOR MULTIPLE SECTOR WRITE CHECK. THIS TEST CHECKS
;THAT TWO SECTORS CAN BE SUCCESSFULLY CHECKED.
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.
STARS

3263
3264
3265
3266
3267
(4)
352%

034352
034356
034364
034366

3269
35;6

R A

R R

R R AN A

AR AR A AR R RN SRR AR

AR A AR AR NN A AN

AR AR AR NN RN AR AR R AR ARARR AR

R R

034370
034370

104004

BGNSEG
EMT

($BSEG

3271
3272
3273
32764

034372
034400
034406
(034412

012737
012737
012700
012701

MOV
MOV
MOV
MOV

#0, TMPQ
#0, TMP1
#BUF ,RO
#129. R1

3276
%S;g

034422
034424

005301
001374

DEC
BNE

R1
299%

;DONE??

3279
3280
3281
3282
3283
3284
3285
3286
3287
(3)

034426
034434
034442
034450
034456
(034464
034470
034472
034476
034476

012777
012777
013737
053737
013777
004537
000012
004537

MOV
MOV
MOV
BIS
MOV
JSR
WRITE
JSR
ESCAPE
EMT

#BUF , dRLBA
#-129. ,aRLMP
TMP1,GDDAT
TMPQ,GDDAT
GDDAT ,@RLDA
RS,LDFUNC

sLOAD BUS ADDRESS
JWORD COUNT

RS ,WTCRDY
SEG
CSESCAPE

JSR
ESCAPE

RS, CHERR
SL%

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

(3)

3288
3289

(Z)

012720

000240

03506

104010

004537

002160
002162

125252

003052
177577
002162
002160
002166
020456
021276

104010

034500

034502,
034506

000000
000000
003052
000201

020214

299%:

145610
145606
002166
002766
145552

1%:

MoV

.WORD

EMT

PC ,HDHOME

N AR RN RNNNRA R AR AR AR RN

104032
000354

034416

021356

R AR R R R AR AN R AR

TESTw«

JSR
CKERFG
EMT
.WORD

3275

004737

;**START OF

CSEXIT
L10072-.

JHEADS QVER TRACK 0
JHEADS GO HOME OKAY
,
;XXSTART OF

#125252,(RG)+

10000%-.

C$E SCAPE

SEGMENTZX

;SETUP AND WRITE
2129 WORDS

‘WRITE

;LOAD THE FUNCTION iN NEXT WORD

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

(3)
3302

3303

(3
(3)
3304
3305
(3)
3306
3307

034510

15:35
PAGE 1-82
*«TEST 37%%« = MULTIPLE SECTOR WRITE CHECK

22-NOV~-78

000230

.WORD

SEQ 0112

10000$%-.

000014
004537

002162

QO OO

013737
053737
013777
012777
012777
004537

P P OIY o Y o)
SO0

034512
034520
034526
034534
034542
034550
034554
034556
034562
034562
034564
034566
034572
034572
034574

NI
- —

;VERIFY WRITE WITH READ BEFORE WRCHK
[V, 19,1V,
[ \U],§)

(3)
3299
329
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
(3)

30A(1052)

MOV

TMP1,GDDAT

MOV
MOV

GDDAT
, aRLDA
#BUF , 3RLBA

JSR

RS, LDFUNC

BIS

MOV

020456

READ

021276

TMPO
. GDDAT

#-129. ,aRLMP

JLOAD THE FUNCTION IN NEXT WORD

JSR
ESCAPE
EMT
.WORD
2SR

RS,WTCRDY
SEG
CSESCAPE
10000%-.
RS.CHERR

000144

EMT
.WORD

CSESCAPE
10000%-.

034576
034576

104004

BGNSEG
EMT

C$BSEG

034600
034606
034614
034622
034630

013737
053737
013777
062737
012777

002162
002160
002166
000002
003052
177577

002766
00216¢€

MOV
BIS

TMP1,GDDAT
TMPO
. GDDAT

002166

ADD

#2,GDDAT

MOV

#-129. ,aRLMP

034644
034650
034652
034656
034656
034660

004537
000002
004537

020456

JSR

RS, LDFUNC

EMT
.WORD

RS,WTCRDY
SEG
CSESCAPE
100071$%-.

034662
034666
034666
034670

00453%7

JSR
ESCAPE
EMT
.WORC

RS, CHERR
SEG
CSESCAPE
10001$-.

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

MOV
CMP

E.DA,BDDAT
BDDAT
, LDDAT

sREAD DISK ADDRESS

JYES, BRANCH

ERRDF

7. ,EM63,ERRG

;DISK ADDRESS NOT CORRECT

.WORD
JWORD

7
EM63

CKLOOP
EMT

(sript

034636

034672

034700
034706

104C10

000154
004537

02C2"4

ESCAPE

1u4G10

012777

145424

MOV

165406

MOV

145404

WRCHK
JSR
ESCAPE

021276

104010

000042

020214

104210

000032

013737
023737
001404

034710
034710
034712
034714
034716

000007
013727
014410

034720
034720

104006

002232
002170

002170
002166

BEQ

104462

TRAP

.WORD

’%:

SEG

GDDAT
, RLDA

#8UF ,aRLBA

T${RCODE

ERRé&

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

;X%XSTART OF SEGMENTXZ

;GET CYLINDER
sGET SECTOR
;SET DISK ADDRESS-SECTOR O

JSET EXPECTED + 2

;SET BUS ADDRESS
;WORD COUNT-SECTOR+1 WORD

sLOAD THE FUNCTION IN NEXT WORD

JWRITE CHECK
JWAIT FOR CONTROLLER READY?
;CHECK FOR FL:LOE, ELSE EXIT

;IS DISK ADDRESS CORRECT

SEG

NO, REPORT ERROR

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

034722
034722
034722

034724
034730
034736
034740
034740
034740
034742
034742
034742

30A(1052)

10001¢:

104005

005237
022737
001233

002160
000046

002160
10000%:

104035

ENDTST

L10072:

104001

15:35
PAGE 1-83
*#TEST 37%+ - MULTIPLE SECTOR WRITE CHECK

22-NOvV-78

LSBTTL

034744

BGNTST

034744

STARS

JXXEND OF SEGMENTZX

ENDSEG
EMT

CSESEG

INC
CMP
BNE

TMPO
#46,TMPO
1%

EMT

C$ESEG

ENDSEG

EMT

«*«TEST

SEQ 0113

JNEXT SECTOR

;AT END?
sNO, GO BACK

JAXEND OF SEGMENTZZX

J**END OF

CSETST

38+~ - FORCE DCK WITH WRITE

TESTwx

CHECK

;**START OF

TEST»~

tttt!t*tt'tt**\'t**t**tttt*t*ttltttfitt*tit*tfi*ttt**ti*tttttttt*i

:FORCE

A DCK

;A SECTOR AND

WITH WRITE

1S ISSUED..

034744

CHECK.

CHANGING A WORD

THIS IS DONE BY WRITING
IN MEMORY BEFORE WRITE CHECK

STARS

.'.'iittttfittt*tttt*tt*ttttttttttt*ttttt*ttttt!t*ttttitt!tttti*t*tt

034744
034750
034756
034760

004737

021356

JSR
CKERFG

104032

EMT
.WORD

000262

034762
02,762

104004

034764
034770
034774
0325000
C35002

012700
012701
012720
005301
001374

003052
000200

035004
035012
035020
035024
035030
035032
035036

012777
012777
005077
004537
000012
004537

003052

BGNSEG

125252

177600
145222
020456

299%:

45232
45230

020214

035046
035050

JAXSTART OF SEGMENTZX%

C$BSEG

MOV

#BUF , RO

ggg

#12)252 (RO)+

BNE

2995

MoV
MOV
CLR

;WORD

COUNT

JSR

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

:CLEAR DISK ADDRESS
sLOAD THE FUNCTION IN NEXT WORD

JSR

RS,WTCRDY

JWAIT

FOR CONTROLLER READY

EMT
.WORD
JSR
ESCAPE
EMT
.WORD

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

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

(LR
MOV

an.DA
#8UF ,aRLBA

MOV

ESCAPE

104010

000200
004537

CEXIT
L10073-.

JHEADS OVER TRACK 0
;HEADS GO HOME OKAY

EMT

WRITE

021276

PC ,HDHOME

#128.,

SEG

;SETUP AND WRITE

;128 WORDS

JWRITE

;DONE?
;LOAD BUS ADDRESS

sChECK FOR FL:LOE, ELSE EXIT SEG

;VERIFY WRITE WITH READ BEFOPE WRCHK
035052
035056

145170

003052

145160

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

3372
3373
3374
3375

3376
(3)
(3)
3377
3378
(3)
3%;%

035064
035072
035076
035100
035104
035104
035106
035110
035114
035114
035116

012777
004537
000014
004537
104010
000132
004537

177600
020456

035122
035126
035132
035140

005037
005077
012777
012777

003052
145114
003052
177600

3388
3389
3390
3391

035146
035152
035154
035160

004537
000002
004537

020456

3§g%

035162

000054

3393
3394
3395
3396
3397
3398
3%3%

035164
035172
035200
035206
035210
035214
035214

013737
042737
022737
001402
004537

3400
%28;

035216
035224

022737
001404

3403

035226

3404
3405

3406

035226
035230
035232
035234

035236

3408
(3)

035240
035240

(3)
(3)

035236
035236

(3)

035240

(3)
(3)

035242
035242

3409

035242

145104
145102

021276

002160
002160
002160

1%:

104006
104000

002160

104462
000027
(G14105
014244

104005

104001

100008:.

ENDTST

-10073:

;LOAD THE FUNCTION IN NEXT WORD

SEG

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

CSESCAPE
10000%-.

BGNSEG
EMT

C$BSEG

CLR
CLR
MOV
MOV

SUF
aRLDA
#BUF , aRLBA
#~128. ,aRLMP

JSR
WRCHK
JSR
ESCAPE

R5,LDFUNC

.WORD

10001%-.

RS ,WTCRDY
SEG
C$ESCAPE

JXXSTART OF SEGMENTXZ

JSETTING SECTOR 40 OF CYL. ADDR.
;WORD COUNT
;JLCAD THE FUNCTION IN NEXT WORD
JWRITE CHECK
JWAIT FOR CONTROLLER READY
sCHECK FOR FL:LOE, ELSE EXIT 3EG

MoV
BIC
CMP
BEQ
JSR
CKLOOP
EMT

E.CS,.TMPO
sGET RLCS
#1777, TMPO
;SAVE ERROR BITS
#BIT15!BIT11,TMPO
;D(K SET.
1%
sYES, CONTINUE
RS5,CHERR

CMP
BEQ

#B1T15.B1T11,TMPO
2%

ERRDF

23, ,EM65,ERRC

C$CLPT

T$ERCODE
23
EM65
ERRO

104005

SEQ 0114

;CHECK FOR FL:LOE, ELSE EXIT SEG

EMT
.WORD

TRAP
.WORD
.WORD
.WORD

10001$:

CHECK

RS ,WTCRDY
SEG

CSESCAPE
10000%-.
R5,CHERR

EMT

002226
001777
104000
020214

#-128. ,aRLMP
R5,LDFUNC

EMT
.WORD
JSR

ESCAPE

104010

035236

3407

MoV
JSR
READ
JSR
ESCAPE

104010
000122

104004

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

145156

020214

035120
035120

035160

22-NOV-78
15:35
PAGE 1-84
*«TEST 38%+ - FORCE DCK WITH WRITE

021276

3380
(3)
3381
3382
3383
3384
3385
%ggg

(3)

30A(1052)

ENDSEG
EMT

CSESEG

EMT

C$ESEG

EMT

CSETST

ENDSEG

:WHEN FORCED
J%XEND OF

SEGMENTZZ

;XXEND OF

SEGMENTXX

*~END OF

TESTwx

PPN RE_RR_RRERRY ®
[AS1a®] NN — N\~
D
n— OO~ 00~~~ NN
—o

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

035244

BGNTST

035244

STARS
Do RN AR

N
AR
crRANRNAN

000322

3424
(3)

035262
035262

104004

34626
3427
3428
3429
3430

035264
035270
035274
035300
035302

012700
012701

3432
3433
3434
3435
3436
3437
3438

035304
035312
035320
035324
035330
035332
035336

012777
012777
005677
004537
000012
004537

035336
035340
035342
(35346
035346
035350

035352
035356
035364

021356

(3)
(3)

035410
035414

035414
035416

104032

012720
005301
001374

104010
000240

004537

E
JWORD
BGNSEG

003052
000200
125252

003052

104010
000162

ARARRRREt2

,HDHOME

CSEXIT
110074~

R RA AR

2sd2

;HEADS
*HEADS

#BUF ,RO
#128. R1

:SETUP AND WRITE
$128 WORDS

R1
299%

*DONE??

DEC
BNE

MOV

#125252,(ROY+

#BUF , aRLBA

021276

JSR

RS, WTCRDY

EMT
LWORD
JSR
ESCAPE
EMT
.WORD

CSESCAPE
10000%-.
RS, CHERR
SEG
CSESCAPE
10000$%-.

003052

CLR
MOV

aRLDA
#8UF ,aRLBA

020456

5?20

RS, LDF UNC

ESCAPE

AR AR RN

SEG

s20222

;X%4START OF

MOV
MOV

MOV

2222

OVER TRACK 0
GO HOME OKAY

C$BSEG

144722
020456

020214

KRN

EMT

#~128..3RLMP
aRLDA
RS, LDFUNC

104010

000172
004537

L2222

MOV
CLR
dg?re

000230

005077
012777
012777
004537
000014
004537

299%:

AN A AR AR

TEST=x

INTERRUPT MODE

177600

SEGMENT
%%

GWRITE

;L OAD BUS ADDRESS

>WORD COUNT
*CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

;WAIT FOR CONTROLLER READY

*CHECK FOR FL:LOE,

ELSE EXIT

SEG

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

;VERIFY WRITE WITH READ BEFORE «PCHK
144670

177600

021276

104010

3450
3451

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

STARS

004737

SEQ 0115

;**START OF

035244
035250

*#TEST 39%* - FORCE DCK WITH WRITE CHECK INTERRUPT

SFORCE A D(K

035244

035256
035260

3443
3444
3445

22-NOv=78
15:35
PAGE 1-85
*+TEST 38++ - FORCE DCK WITH WRITE CHECK

CSBTTL

(4)
(4)

(3)
(3)
3439
3440
(3)
(3)

30A(1052)

020214

MOV

#-128.,aRLMP

JSR

RS, WTCRDY

.WORD
JSR

10000%-.
RS, CHERR

JWORD

10000%-.

ESCAPE
EMT
ESCAPE
EMT

;LOAD THE

SEG
CS$ESCAPE

;CHECK FOR FL:LOE,

SEG
C$ESCAPE

;CHECK FOR FL:LOE,

FUNCTION iN NEXT WORD
ELSE EXIT SEG

;CHECK CNTLR FOR ERRORS
ELSE EXIT

SEG

ASSEMBLY ROUTINES
MACY 1
CZRLBB P11
22-NOov-78
115:28

3453

(3)
3454
3455

035420
035420
035422
035422
035426
035430
035434
035440
035444
035452

30A(1052)

M 9
15:35
PAGE 1-86
«*TEST 39%* - FORCE DCK WITH WRITE CHECK INTERRUPT

22-NOV~78

BGNSEG

104004

012700

C00000

005037
005037
005077
012777
012777

002144
003052
144602
003052

004537

020456

104041

012700
104041

000340

035502
035506

005737
001004

002144

035510
035510

104462

000102
004537

C$BSEG

SETPRI
MOV
EMT

#PRI00
#PR100,R0
C$SPRI

CLR
CLR
CLR
MOV

INTFLG
BUF
3RLDA
#BUF , aRLBA

JSR

RS, LDFUNC

JSR

RS, WTCRDY

EMT
SETPRI
MOV
EMT

C$CLPY
#PRIO7

MOV

17760C

035460
035464
035466
035472
035472
035474
035474
035500

EMT

WRCHK
. INTEN

021276

CKLOOP

104006

BNE

ERRDF
TRAP

035512
035514
035516

014146

035520
035520
035522

104010

000054

035524
035532
035540
035546

013737
042737
022737
001402

002226
001777

035550
035554
035554

004537

020214

035556
035564
035566
035566
035570
035572
035574

022737
001404

000030

014244

2%:

104000

002160
002160
002166

104462

035576

035576
035576

100018

JSETTING SECTOR 40 OF
sWORD COUNT

CYL. ADDR.

JLOAD THE FUNCTION IN NEXT WORD

JWRITE CHECK
;WAIT FOR CONTROLLER READY

#PR107,RO

C$SPR]

INTFLG

24. ,EM66,ERRO
TSERCODE

:DID INTERRUPT OCCUR
:YES OKAY

sNO INTERRUPT FROM DCK

ESCAPE
EMT
.WORD

SEG
CSESCAPE
10007$%~-.

;CHECK FOR FL:LOE, ELSE EXIT SEG

E.CS,TMPO

JGET RLCS

;YES,

BIC
CMP

#1777 TMPO
: SAVE ERROR BITS
#BI1T15'81T11, TMPD ;DCK SET.

JSR

RS, CHERR

EMT

C$CLPT

CMP
BEQ
ERRDF

#81T15.BIT11,TMPO
3¢
25.,EM6S,ERRO

.WORD
.WORD
.WORD

25
EM6ES
ERRO

CKLOOP

TRAP

000031
014105
014244

s CLEAR INTERRUPT OCCURANCE FLAG

24
EM66
ERRO

BEQ

002160

JXXSTART OF SEGMENTZX

.WORD
.WCRD
"WORD

MOV

1$:

104006
104000

#~128. , aRLMP

SEQ 0116

ENDSEG

CONTINUE

TS$ERCODE

;WHEN FORCED

JRXEND OF SEGMENTXX

ASSEMBLY ROUTINES

CZRLBB.P11

035576
035600
035600
035600
035602
035602
035602

MACY11

22-NOV-78 15:28

30A(1052)

N 9
15:35
PAGE 1-87
**«TEST 39x+ - FORCE DCK WITH WRITE CHECK INTERRUPT

22-NOV-78

104005
100008
:

104005

ENDTST

L10074:

104001

.SBTTL

035604

BGNTST

035604

STARS
R

EMT
ENDSEG

CSESEG

EMT

CSESEG

EMT

CSETST

SEQ 0117

JXXEND OF SEGMENTXX
J**END OF

TESTx«

*xTEST 40w+ - CHECK ZERU FILL ON WRITE WITH WRITE CHECK
;*%*START OF

TEST*»

LRSS RE22222230222888822202
3
2222222288 23
RSS2

*WHEN WRITING PARTIAL SECTORS (LESS THAN 128 WORDS)
;JCONTROLLER WILL FILL IN THE REMAINING PORTION OF

THE

b3 12%HECK THIS FEATURE CAN BE WRITE CHECKED
:THE SECTOR WITH ZERO WORDS.

;WITH WORD COUNTS FROM 1
STARS

035604
035604
035610
035616
025620

035622
035622

035624
035632
035636
035642
035646
035650
035652
035656
035660

035710

::**t*tttttt'tttt*t**t*titt*tttt*t**ttttttt***tttttttt*ttfi**itt**

004737
104032

.WORD

CSEXIT
L10075-.

104004

BGNSEG
EMT

C$BSEG

MOV

#1,TMP1

MOV

#128.

000274

012737
012700
012701
012720
005301
001374
013700
005400
010077
012777
005077
004537
000012
004537

000001
003052
000200
052525

144364

003052
144350
020456

021276

035714

004537
104010
000
r

Golcd1e

33%:
3%

002162

104010

000200

002162

144352

MOvV.

MOV
DEC
BNE
MOV
NEG
MOV
MOV

CLR
JSR
WRITE
JSR
ESCAPE
EMY
. WORD
JSR

ES.APE

Em7

.WORD

Lot bd WRITE

JHEADS OVER TRACK 0

P ,HDHOME

JSR
CKERFG
EMT

035712

03572y
035720
D !" 7“&

021356

JHEADS GO HOME

OKAY

JXXSTART OF SEGMENTXZ
sSTART WITH 1 WORD WRITE
JWRITE BUFFER WITH 52525, WE'LL
JWRITE 128 WORDS ALL THOUGH WE'RE

#BU‘ RO

,R1

gszszé (RO) +

JONLY GOING TO TRANSFER < 128
;DONE WITH BUFFER?
;NO, GO BA(CK

;GET TRANSFER WORD COUNT

TMP1 RO
RO
RO, aRLMP
#BUF ,aRL BA
aRLDA
R5,LDFUNC

;NEGATE FOR RLMP
;STORE WORD COUNT AWAY
JSET UP RLBA

:LOAD THE FUNCTION IN NtXT WORLD
JWRITE I
JWALT FOR WRITE TO FINISH
JOHF(Y FOR FL:LOE, ELSE FXIT SEG

RS ,WTCRDY
SEG

(SESCAPE
100008-.

RS,CHERR
SEG

8t SLAPE
100008-.

KEA[ b6

;

HE(K

J(HECK

(NILR FOR ERRORS
ELSE EXIT SEG

POk FL:LOE,

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

035724
035730
035736
035742
035746
035750
035754
035756
035762
035762
035764
035766
035772
035772
035774
035770
035776
036000
036006
036012
036014

005077

012777

144316

003052
202162

01370C
005400
010077
004537

02045¢

004537

02127¢

00001¢

30A(1052)

8 10
22~NOv-78 15:35 PAGE 1-88
*eTEST 40ve = (HECK ZERO FILL ON WRITE WITH WRITE (HECK
(LR

146306

MOV
MOV
NEG
MOV

14<300

104010

000126
004537

020214

104070

012777
013700
005400
010077
005077
004537
000002
004537

00305¢
002162

J(HECK FOR FL:LOE, ELSE EXIT SEG

100008-.
R5,CHERR
SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

TMP1,RO
RO
RO,3RLMP
aRLDA
RS,LDFUNC

144230
14422¢

0456

021276

RS,WTCRDY
SEG
C$E SCAPE
100018-.

020214
002124

RS, CHERR
T.CRC

8%
SEG
CS$ESCAPE

10%:

104010

10001%-.
99%

8%:

104006

CS$CLPT
37. .EMo4 ERRY

104407

. CHECK (NTLR FOR ERRORS

;XXSTART OF SEGMENTZX
JSET

UP TO READ

JSECTOR
JWAIT

sLOAD THE FUNCTION IN NEXT WORD

TIL WE FINISH THE WR(CHK

JCHECK FOR FL:LOE, ELSE EXIT SEG

. CHECK CNT_R FOR ERRORS

JWAS ERROR A D(K??

SYES, GIVE MOR INFO
sCHECK FOR FL:LOE, ELSE EXIT SEG
;SKIP AROUND
JYES, (HECK FOR LOOP FIRST

TSERCODE

000045
01401
015150

90%.
10001%:

104005

RS ,WTCRDY
SEG

C$BSEG
#BUF ,3RLBA

144c3¢

000016
000405

005237
023727
001250

sLOAD THE FUNCTION IN NEXT WORD

100008-.

000034

005737
001003

RS, LDFUNC

CSESCAPE

104070

004537

TTMMP1,RO

RO
RO, @RLMP

CSESCAPE

000116
104004

aRLPA
#BUF , 3R BA

0021€2
0021€¢2

000200

:
'C000$

EM64
ERR14
ENDSEG

JAXEND OF SEGMENTZY

EMT

C$ESEG

INC
CMP
BNE

TMP1
TMP1, 4178,

33%

JAXEND OF SEGMENTZZ

ENDSEG

EMT

JEXIT TEST

($ESEG

SEQ 0118

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

(4)

22-NOvV-78

¢ 10

15:35

PAGE 1 -89

*«TEST 40~+ - CHECK ZERO F ILL ON WRITE WITH WRITE CHECK

ENDTST

L1607¢:

104001

CSBTTL

036116

BGNTST

036116

STARS
MR

AREE

J**END OF

SEQ 0119

TEST»»

EMT
CSETST
w«TEST 41+« -~ EXTENDED (HECK OF WRITE CHECK FUNCTION
;**START OF

SRttt

ddRidsl

sl i

TESTw»

222223222

;CHECK OF WRITE CHECK LOGIC UNDER FLAG MCDE
JTHIS TEST IS DONE WITH ALL BIT PATTERNS
; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM
WE CHECK THAT NO ERRORS OCCUR.
sMEMORY (BUF).

036°16

STARS

;;ttttfitttttttttttt**ttti*'t*ttfiiiti**tttt*tfittfiti*ttttfitttttt'tt

004737

036116
036122
036130
036132

104032
000246

036134

012703

036140
036140

104004

036142
036146
036152

036154

036156
036160

036162
036170
036176

21356

002504

012700
012701
011302
010220
005301
001375

003052
000200

012777
012777
005077
004537
000012
004537

003052
177600

104010
000160
004537

298%:

299%:

144044

144056
144052

020456

JSR
CKERFG

PC ,HDHOME

EMT
.WORD

CSEXIT
L10076-~.

MOV

AHDRTAB,R3

BGNSEG
EMT

CSRSEG

MOV
MOV
MOV

#BUF ,RO
#128. R
(R3) .R2

:HEADS OVER "RACK 0
*HEADS GO HOME OKAY

S%YSTART OF

SEGMENTXY

;SETUP AND WRITE
2128 WORDS

MOV
DEC
BNE

R2.(RO) +
R1
299%

SWRITE
*DONE??

MOV
MOV

#BUF , ARLBA
#-128. ,3RLMP

;LOAD BUS ADDRESS
-WORD COUNT

JSR
ESCAPE
EMT
.WORD
JSR

RS ,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR

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

EMT
.WORD
BGNSEG
EMT

CSESCAPE
10000%-.

CLR
dg?,f

aRLDA
RS, L DFUNC

*CLEAR DISK ADDRESS
;LOAD THE FUNCTION IN NEXT WORD

]

021276

020214

ESCAPE

104010
000150
104004

SEG

:CHECK CNTLR FOR ERRORS

;CHECK FOR FL:LOE.

C$BSEG

ELSE EXIT

;XYSTART OF

SEG

SEGMENTZYX

;VERIFY WRITE WITH READ BEFORE WRCHK
005077

012777
212777

004537

144010

3572
3573
3574
3575
3576
(2)
3577
3578
3579
3580
3581
(2)
3582
3583
3584
3585

036114
036114
036114

020456

(3
(3)

35N

30A(1052)

200

776

CLR
MOV

aRLDA
#BUF , aRLBA

JSR

RS, LDF UNC

MOV

#-728., QRLMP

;LOAD

THE

FUNCTION IN NEXT WORD

000014
004537

30A(1052)

READ

021276

000066

JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
. WORD

R5,WTCRDY
EG
CSESCAPE
100018-.
RS, CHERR
SEG
C$ESCAPE
100018-.

104004

BGNSEG
EMT

C$BSEG

104010

000076
004537

020214

104010

03¢300
036300
036302

005077
012777
012777
004537
000002

004537

1463740

036352
036352
036354
036356
036360

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

;CHECK FOR FL:LOE, ELSE EXIT SEG

;XXSTART OF

SEGMENTZX

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

021276

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG
C$ESCAPE
10002%-.

sWAIT

020214
002724

JSR

R5,CHERR

BEQ

;CHECK CNTLR FOR ERRORS
;WRITE CHECK ERROR??

ERRHRD

410. ,ERR15 ,EM70
TSERCODE
410

003052
0cus56

143734
143722

104010

004537
005737
001404

SEQ@ 0120

CLR
MOV
MOV
JSR
WRCHK

177600

000024
036340
036344
036350

D 10

15:35
PAGE 1-90
*«TEST 41%+ - EXTENDED CHECK OF WRITE CHECK FUNCTION

22-NOvV-~78

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

TST

104463

TRAP

000632
015216
014220

.WORD
.WORD
.WORD

036362

T.CRC

sWORD COUNT
;BUS ADDRESS
;WRITE

sLOAD THE FUNCTION IN NEXT WORD

CHECK
FOR

CONTROLLER READY

;CHECK FOR FL:LOE, ELSE EXIT SEG

sNO

ERR"S
EM70

10002%
:

104005

10001%:

104005

005723
020327
001262

104005
104001

002660

EMT

CSESEG

EMT

C$ESEG

TST

(R3)+
R3,#HDREND

ENDSEG

(MP
BNE

10000%:
ENDTST

L10076:

JXXEND OF SEGMENTXZ

ENDSEG

JXXEND OF SEGMENTZX

298%

JAXEND OF SEGMENTZX

ENDSEG

EMT

CSESEG

EMTY

CiETST

J**END OF

TEST#=

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

3652
3653
3654
3058
3656
3657
(2)
3658
3659

30A(1052)

22-NOV-78

E 10
PAGE 1-91

15:35

*«TEST 41++ -~ EXTENDED CHECK OF WRITE

**TEST 42+* ~ EXTENDED CHECK OF WRITE

.SBTTL

036402

BGNTST

0364Ce

STARS
P

CHECK FUNCTION
CHECK FUNCTION

s**START OF

SEQ 0121

TESTw~»

;CHECK OF WRITE CHECK LOGIC UNDER Fi.AG MODE
JTEST IS DONE WITH ALL BIT PATTERNS
: WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM
JMEMORY

STARS

(BUF).

CHECK THAT NO ERRORS OCCUR.

".'tttttt**tttttttttktt*titt*iiktt*I**t**fl**t**t*t*ttit*ttttt**ttt

004737

02" 356

SR
CKERFG

104032

000252
012703

002504

104004

012700
012701
011302
052702
010c20

298%:

003052
000200
100000

299%:

005301

001375

012777
012777
005077
004537
000012
004537

177600
143554

020456
021276

104010

000160
004537

020274

104010

000150
104004

143564
143562

JHEADS OVER TRACK 0O
sHEADS GO HOME OKAY

EMT
.WORD

CSEXIT
L16077-,

MOV

#HDRTAB,R3

BGNSEG
EMT

~T$BSEG

MOV
MOV

#8UF ,RO
#4128. R1

MOV
DEC

R2, (RO)+
R1

;DONE ??

MOV

ABUF ,aRLBA

;LOAD BUS ADDRESS

CLR
&g?TE

@RLDA
R5,LDFUNC

;CLEAR DISK ADDRESS
;LOAD THE FUNCTION

JSR
ESCAPE
EMT
.WORD
JSR
ESCAPE
EMT
.WORD
BGNSEG
EMT

R5,WTCRDY
SEG
CSESCAPE
10000%-.
RS, CHERR
SEG
C$ESCAPE
10000%-.

JWAIT FOR CONTROLLER READY
;CHECK FOR FI :LOE, ELSE EXIT SEG

MOV
BIS
BNE

003052

PC ,HDHOME

MOV

(R3) ,R2
#BIT1S5,R2
299%

#-128. ,aRLMP

JX%START OF

SEGMENTZ%

;sSETUP AND WRITE

;128 WORDS

JGET PATTERN

;WORD COUNT

IN NEXT WORD

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

($BSEG

JXXSTART OF

SEGMENTZ%

JVERIFY WRITE WITH READ BEFNRE WR(HK
005077
012777
012777
004537
000014

143520

CLR

003052

MOV

020456

JSR

177600

MOV
READ

aRLDA

#BUF , RRLBA

#-128. ,aRLMP

K7, LDFUNC

;L0AD THE FUNCTION IN NEXT WORD

3698
3699
(3)
(3)
3700
370
(3)
(3)
3702
3703
(3)
3704
3705
3706
3707
3708
3709
3710
37N
3712
3713
(3)
(3)
3714
3715
3716
3717
3718
3719
3720
(3)
(5
(5)
(5)

3721
3722
3723
3724
3725
(3)
(3)
372¢€
(3)
(3)
3727
3728
3729
3730
3731
3732
(3
(3)
3733
(3)
(3)

3734

036550

004537

30A(1052)

021276

JSR
ESCAPE

104070

000076
004537

F 10

15:35
PAGE 1-92
**TEST 42#+ - EXTENDED CHECK OF WRITE CHECK FUNCTION

22=N0v-78

0¢0214

R5,WTCRDY
6
w
m

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

C$ESCAPE
10001$-.

036566

00006¢

R5,CHERR
SEG
C$ESCAPE
10001%-.

036570
036570

104004

($BSEG

036572
036572
036576
036604
036612
036616

005077
012777
012777
004537
000002

194010

036620
036624
036624
036626

004537

036630
036634
036640

004537
005737
001404

036642
036642
036644
036646
036650

14,3450

177600

003052
020456

3%:
434644
43432

ARLDA
#-128. .aRLMP
#BUF ,aRLBA

JSR
WRCHK

RS, LDFUNC

021276

JSR
ESCAPE
EMT
.WORD

RS, ,WTCRDY
SEG
C$ESCAPE
100028-.

02CG214
002124

JSR

RS, (HERR

Bt0

4 3

ERRHRD

410. ,ERR15,EM/
Y
TSERCODE
410

104010

000024

TST

104463

TRAP

000632
015216
014220

.WORD
.WORD
.WORD

036652

T.CRC

SEQ 0122

JCHECK FOR FL:LOE, ELSE EXIT SEG

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

JRXSTART OF

SEGMENTX%

;WORD COUNT
;BUS ADDRESS
¢sLOAD THE FUNCTION IN NEXT WORD
JWRITE CHECK

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

JUHECK CNTLR FOR ERRORS

ERR15
EM70

A Y

10002%:

104005

100018$:

104005

005723
020327
001260

104005
104001

002660

EMT
ENDSEG

C($ESEG

EMT

($ESEG

TST

{R3)~
R3,#HDREND

(MP
BNE
10060$
:

ENDTST

L10077:
LSBT

JXXEND OF SEGMENTZX

ENDSEG

298¢

ENDSEG

EMT

;%XEND OF SEGMENTXX

JAXEND OF SEGMENTZ%Z
(SESEG

s**END OF

TEST#»

eersT
«#TEST 432+ = RFAD WITHOUTM HEADFR ( OMPARE FUNCT!ON

EMT

ASSEMBLY ROUTINES

CZIRLBB.P11

3735
3735

MACY11

20-NOV-78 15:28

3CA(1052)

22-NOV-78

15:35

PAGE

G 10
1-93

«+TEST 43»% - READ WITHOUT HEADER COMPARE FUNCTION

SEQ 0123

036672

STARS

036672

“TEST THAT READ WITHOUT HEADER VERIFICATION WORKS.
THIS FUNCTION SHOULD
*READ AT THE NEXT SECTOR ENCOUNTERED.
SET THE RLDA T0 0
*AND ISSUE THE FUNCTION IN FLAG MODE.
UPON COMPLETION CHECK
*FOR ERRORS
$TARS

3742
3743

036672

BONTST

3745
3746

036672
036676
036704
036706

106032
000052

EMT
.WORD

CSEXIT
L10100-.

3748
(3)

036710
036710

104006

BGNSEG
EMT

C$BSEG

3751
3752
3753
3754
3755
3756
3757
(3)
3;%&

036712
036720
036726
036734
036740
036742
036746
036746
036750

012777
012777
(12777
0064537
000016
004537

ggzg

036752

004537

3761

036756

(2)

3737
3738
3739
3740
37241
(2)

3744,

(&)
(L)

3750

(3)
(3)

036756
036756

(3)

(036760

3762

036760

",'ifit'*‘fi'fiit'fifi‘fifi!'tfi"'t'i*itt"*"'****fitt**fl*'ifittttt.ti*tfit.i

"""fi'fi*fi".'.fit'ffifi"*.i""Q'ififl'*Q"tfifififi*'**ttt'ti*fi'fitttitfiQt

004737

027135¢

177600
003052
177777
020456
021276

104010

0000G6

JSR
(KERFG

143330
143314
143312

C202'4
100008:

104005
.

3%%0%m01mw1

;«*START OF

ENDTST

L10100:

PC , HDHOME

MOV
MOV
MOV
JSR
RDNHD
JSR
ESCAPE
EMT
.WORD

#-128.,8RLMP
#BUF , 3RLBA
#-1,8RLDA
RS, [ DFUNC

JSR

RS, CHERR

RS.WICRDY
SE&
CSESCAPE
100008~

ENDZEG

:HEADS OVER TRACK 0
"HEADS GO HOME OKAY

;XXSTART OF

:CHECK CNTLR FOR ERRORS

SXXEND OF SEGMENTXY

EMT

CSESEG

EMT

CSETST

;+%END OF

TEST»

JSBTTL

gggé 036762

BGNTST

3768

036762

STARS

3760
3770
3771

036762

“TEST THAT READ WITHOUT HEADER VERIFICATION WORKS IN
* INTERRUPT MODF
.
$TARS

3772
3773
3774

036762
036766

004737

(&)

036776

00014

(4)

036774

SEGMENTXX

:SET UP WORD COUNT
*SETUP BUS ADDRESS
"HEADER SHOULDN'T MATTER
CLOAD THE FUNCTION IN NEXT WORD
:READ DATA WiTHOUT HEADER VERIFY
‘WAIT FOR IT TO FINISH
“CHECK FOR FL:LOE, ELSE EXIT SEG

%;%fi

(2)

TEST«#

«=TEST 44x= - READ WlTHOUT HEADER COMPARE FUNCTION INTERRUPT

;**xSTART OF TEST»

:".t*".“"fi.'**‘Q"‘"'.i'l’"fiitl'.fit'*'.*t*'.tfi‘t‘.ti.fi'l't'ti

106032

021356

AR AN AR AN AN TR R R

JSR
CKERFG

PC , HDHOME

JWORD

[ 7101~,

EMT

CSEX]T

A AN AN AN NN AR ANKRR AR R AR PN RN P RN RN N RN w

;HEADS OVER TRACK 0
THEADS GO HOME OKAY

ASSEMBLY ROUTINES
MACY11
(ZRLBB.P11
22-NOvV~-78 15:28

3776
(3)
3777
3778
3779

037000
037000

3780

3781
3782
(3)
(3)
3783
3784
3785
3786
(3)
(3)

3787
(3)
(3)
3788
3789
3790
39N
3792
(3)
(5)
(5)
(5)
3793
(3)
(3)
3794
3795
3796

3797
(3)
(3)
3798
(3)

(32)

037050
037050
037054
037056
037056
037060
037062
037066

EMT

($BSEG

CLR

INTERRUPT

01270

000000

SETPRI
MOV

INTFLG
;CLEAR INTERRUPT OCCURANCE FLAG
#-128. ,aRLMP
sSET UP WORD COUNT FOR ONE SECTOR
#BUF ,aRLBA
;SETUP BUFFER ADDRESS
#-1,3RLDA
;DISK ADDRESS IS A DON'T CARE
#PRI0O
#PR100,RO

020456

JSR

RS, LDFUNC

JSR
SETPRI

RS ,WTCRDY
#PRIO7

177600

003052

177777

143234
143222
143276

MOV

MOV
MOV

EMT

RDNHD
! INTEN

021276
012700
104041

000349

MOv

EMT
ESCAPE
EMT
.WORD

104010

000030
005737
001004

104G10
000C06

037104

004537

002144

104462

1040CS
104001

C$SPR]

ENDTST

L10101:
.SBTTL

037114

BONTST

037114

STARS

FOR

INTERRUPT

#PR]107,RO

'ST
BNE

INTF.G
1%

;DID IT INTERRUPT
2IF INTERRUPT GO TO 1%

ERRDF

40.,EM4LO,ERRO

sNO INTERRUPT

.WORD
.WORD
.WORD
ESCAPE

40
EM4O
ERRO
SEG

;CHECK FOR FL:LOE, ELSE EXIT SEG

.WORD

10000%-.

JSR
:
10000$%

JWAIT

JCHECK FOR FL:LOE, ELSE EXIT SEG

EMT
020c4

;LOAD THE FUNCTION IN NEXT WORD
J INTERRUPT ENABLED

C$SPR]
SEG
C$ESCAPE
10000%-.

TRAP

SEQ 0124

JXXSTART OF SEGMENTXX

V02144

037100
037102

037110
037112
037112
037112

BGNSEG

FUNCTION

005037
012777
012777
012777

000050
012547
014244

037110
037110

H 10

15:35
PAGE 1-94
**TEST 44w+ ~ READ WITHOUT HEADER COMPARE

22-NOV-78

106004

037070
037070
037072
037074
037076
037100

30A(1052)

TSERCODE

C$ESCAPE

RS, CHERR

sCHECK CNTLR FOR ERRORS

JAXEND OF SEGMENTZ%X

ENDSEG

EMT

C$ESEG

EMT

CSETST

J**END OF

TEST=«

*«TEST 45+« -~ (HECK RD W/0 HDR (MP ACTUALLY READS
s**START OF

TESTww

.','ttttfiittt*‘titttttt*tttii*ti'*!tti*Qltfittittttii*ttfitt'tt't't't

JCHECK THAT THE READ W/0 HDR CMP FUN(TION ACTUALLY READS

swi WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE
AFTER THE READ
;A READ TO OVERLAY THAT PATTERN.
;WE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHANGED.
;1F NOT WE ISSUE IT AGAIN AT THE SAME SECTION AFTER
JHAVING MODIFIED OUR PATTERN

IN MEMORY

(SINCE

THERE

(INTO MEMORY)

.
IS

AF TER
;ONE CHANCE THAT THE DISK COULD HAVE QUR PATTERN).
;THE SECOND READ wf CHECK THE BUFFER AGAIN.
IT'S
IF
;NOT C(HANGFD WE REPORT AN ERROR

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

30A(1052)

037114

I10

15:35
PAGE 1-95
*«TEST 45++ - (CHECK RD W/0 HDR (MP A(CTUALLY READS

22-NOv-~78

SEQ 0125

STARS
":"i'fitfit"t'ttt'***ttt'ttt"*ttttfitfitfitfi'*ttttttttfifittttttttit*

006737

037114
037120
037126
037130

000760

JSR
CKERFG
EMT
.WORD

037132
037132

104004

BGNSEG
EMT

037134
037142
037146
037152
037156
037162
037164
037166
037174
037202
037210

012737
005037
012700
012701
013720
005301
001374
012777
012777
012777
012737

003052
003052

037216
037222
037224
037230
037230

004537

020456

037232

000C54

037234
037240
037240
037242

004537

037244
037250
037254

012702
022237
001014

003052
0C21¢60

037256
037262

005737
001005

002162

037264
037270

005237
005137
000724

002162
0021¢0

037274

037276
037276
037300
037302
037304
(37306

021356

104032

000016
004537

024350
0027¢2
003052
00C200

002160

MOV
(LR

MOV
MOV
MOV

002160

000050
177600

DEC

BNE
MOV
MOV
MOV
MOV

143052
143046
143034
002166

JSR

RDNHD
JSR

02127¢

ESCAPE
EMT
.WORD

104010

020214

1040160

000044

104462

009024
013230
014636

A
¥

PC ,HDHOME

CSEXIT
L10102-.

J%XSTART OF SEGMENTZX

($BSEG
#24350, TMPO
TMR

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

#40.

,ARLDA

#-128. aRLMP
#BUF
, 9RLBA
. GDDAT
#BUF

RS,LDFUNC
RS,WTCRDY
SEG

C$ESCAPE
10000%~.

;SET PATTERN TO WRITE

;CLEAR PASS INDICATOR
;SET UP BUFFER BEGINNING

JWRITE BUFFER
;DONE??

sNO, GO BACK
;LOAD DISK ADDRESS TO NONSENSE

;SET WORD COUNT
;LOAD BUS ADDRESS
;FOR ERROR PRINT
*LOAD

THE

;READ W/0 HDR (MP

FUNCTION IN NEXT WORD

JWAIT FOR CONTROLLER READY
;CHECK FOR FL:LOE, ELSE EXIT

SEG

JSR
ESCAPE
EMT
.WORD

R5,CHERR
SEG
C$ESCAPE
10000%-.

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

MOV
CMP

#8UF ,R2
(R2)+,TMPQ
6%

;SET TO START COMPARING DATA
;DID DATA CHANGE?

BNE

TMP?

TMP?
TMPO

1%
5¢:

JHEADS QVER TRACK 0O
JHEADS GO HOME OKAY

20. .EM55 ,ERRS
TSERCODE

EMS5
ERR9

JYES,

CHECK FOR END

;DATA DIDN'T CHANGE,

sIF 1ST OR 2ND TIME?

CHECK

;2ND-REPORT 1ST-TRY AGAIN
s INC PASS COUNT
; COMPL [MENT PATTERN

;GO DO IT AGAIN

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

3858
3853
(3)
(3)
3860
(3)

30A(1052)

ENDTST

L10102:

T06(CT

15:35

PAGE

J 10

1-96

*«TEST 45%+ -~ CHECK RD W/0 HDR (MP ACTUALLY READS

:
100008

" 04005

037310

22-NOV-78

LSBTTL

037312

BONTST

037312

STARS
M

SEQ 0126

JXXEND OF SEGMENTZZ

ENDSEG

EmMT

C$ESEG

EMT

C$ET

J**ZND OF

#«TEST 46%* - (HECK RLBA

TEST=»

INCREMENT WITH RD W/0 HDR (MP

J**START OF TEST»«

CARNTARNRRAAARA
NN AN ARREARTRARRERNT

A AN R

XA AN R AN RN AN AAAARNNNNARARARANRASE

:CHECK THAT THE RLBA WILL INCREMENT WITH THE READ W/0 HDR CMP
*THE RLBA SHOULD CONTAIN 'BUF

.READ.

037312

+256.''

AFTER A FULL SECTOR

STARS

:"titt'fi*fittttttt"*fittt'ittttt*lfl'tttitt.fittt*t*tt*ttfiiit'tififi*tfi

004737

037312
037316
037324
037326

000120

037330
037330

104004

037332

02135¢

104032

000050
003052

037370
037374
€37376
037402
037402
037404

004537
000016
004537

020456

037406
037412
037412
037414
037416

004537

037424
037432

037434
037434
037436
037440
037442

177600

003052
000400

142706
162676
142674
002166

002166

021276

104010

020214

104010

104462

000025

013310
014470

.WORD

L10103-.

BGNSEG
EMT

C$BSEG

002230
002170

MoV
MOV
MOV
MOV
ADD

002170
002166

FSEXIT

#60. ,3RLDA
#8UF ,aRLBA

#-128. ,aRLMP

#8UF ,GDDAT
#256.,GDDAT

JSR

RS.LDFUNC

JSR
ESCAPE
EMT
.WORD

R5,WTCRDY
SEG
C$ESCAPE
100008-~.

JSR
ESCAPE
EMT
. WORD

RS, CHERR
SEG
CSESCAPE
10000%-.
E.BA,BDDAT
?gDAT,GDDAT

RDNHD

000040

000030
013737
023737
001404

PC ,HDHOME

EMT

012777
012777
012777
012737
062737

037340
037346
037354
037362

JSR
CKERFG

MOV

CMP
BEQ

ERRDF
TRAP

.WORD
.WORD
.WORD

21. ,EM53 ERRS
E?ERCODE

EMS3
EnR4

JHEADS OVER TRA(CK 0O
;HEADS

GO HOME

OKAY

JAXSTART OF

SEGMENTZ%

;SET UP BUS ADDRESS
JwWORD COUNT
;FORM EXPECTED BUS ADDRESS

JAFTER READ

:LOAD THE FUNCTION IN NEXT WORD
;READ W/0O HDR (MP
;JWAIT FOR CONTROLLER READY
sJCHECK FOR FL:LOE, ELSE EXIT SEG

sCHECK

. CHECK CNTLR FOR ERRORS

FOR FL:LOE,

ELSE

EXIT

SEG

JREAD 'RLBA' FOR PRESENT ADDRESS
;DID 'BA' INCREMENT PROPERLY?

JYES,

CONTINUE

MACY11
22-NOV~78 15:28

ASSEMBLY ROUTINES

CZRLBB.P1T

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 (MP

SEQ 0127

1%:

104005

ENDTST

L10103:

104001

BGNTST

037450

STARS

EMT

($ESEG

EMT

CSETST

*#TEST 47+% -

.SBTTL

037450

JXXEND OF SEGMENTXX

ENDSEG

100008:

J**END OF

CHECK RLDA DOES

TEST*=

INCREMENT WITH RD W/0 HDR (MP

;**START OF

TESTw»

::tttttttttttfitt*ttttt*t'ii*tt*t*****t***i*ttttt*tfi*tfit*ttt*tt**t

sCHECK THAT THE RLDA DOES INCREMENT BY ONE AFTER A
sFULL SECTOR READ W/0 HDR CMP

;ArTER

037450

STARS
R

037450
037454

004737

02135¢

THE READ

SRRt

037464

104032

000116

JSR
CKERFG
EMT
.WORD

037466
037466

104004

BGNSEG
EMT

037462

027470
037476
037504
037510
037516

012737
013777
005237
012777

000050
002166
002166
177600

012777

003052

03,524
037530
037532
037536
037536
037540

004537
000016
004537

020456

037542
037546
037546
037550

004537

037552
03756C

013737
023737

104010

000040

020214

dRiiisd

PC ,HDHOME

cSEXTT

104010
000030
002166

002170
002170

THE

INITIAL

RLDA +

222222222

JHEADS OVER TRACK 0
JHEADS GC HOME OKAY

L10104-.
($BSEG

JAXSTART OF SEGMENTZ%

#40.,GDDAT

DA TO NONSENSE

#-128. ,dRLMP
#BUF ,aRLBA

JWORD COUNT

JSR

RS, LDFUNC

GDDAT ,aRLDA
GDDAT

RS ,WTCRDY
SEG
C$ESCAPE
1G000%$-.

;SETUP DISK ADDRESS
;SETUP BUS ADDRESS

:LOAD THE FUNCTION IN NEXT WORD

JREAD WITHOUT HEADER C(OMPARE
JWAIT FOR CONTROLLER READY

;CHECK FOR FL:LOE, ELSE EXITM SEG

RS, CHERK
EG

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

E.DA,BDDAT
GDDAT ,BDDAT

sREAD DISK ADDRESS
;DID SECTOR INCREMENT PROPERLY

C$ESCAPE
10000%-.

002232

STILL BE

MOV
MOV
INC
MOV
MOV

RDNHD

021276

THE RLDA SHOULD

3897
3898
3899
(3)
(3)
3900
(3)
(3)

30A(1052)

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

3940

037566
037570
037570
037572
037574
037576

3959
(4)
(&)
(4)

(4)
(4)

037606
037606
037610
037612
037614
037614
037616
037620
037622
037624
037624
037626
037630
037632
037634
037634
037636
037640
037642
037644
037646
037646
037650
037652

037654
037656

15:35

BEQ

ERRDF

22. ,EM54 ERRS
ggERCODE

**TEST 47%% - CHECK RLDA DOES INCREMENT WITH RD W/0 HDR (MP

104462

TRAP

000026
013400
014410

.WORD
.WORD
.WORD

104005

1040C°

10000%:

ENDTST

L1C104:

8GNMOD

NO, REPORT ERROR

EMS4
ERR4

JX%XEND OF SEGMENTZ%

ENDSEG

EMT

C$ESEG

Em7T

CSETST

J**END OF

HRDPRM

BGNHRD

000025

.WORD L107105~L$HARD/?2

GPRML
.WORD
.WORD
.WORD

004130
037660
000001

GPRMA

000031
037665

.WORD
.WORD
.WORD
.WORD
GPRMA
.WORD
.WORD
.WORD
. WORD
GPRMD
.WORD
.WORD
.WORD
.WORD
.WORD
CPRMD
.WORD
.WORD
.WORD
.WORD
.WORD

160000
177776

001031
037712
000000
000776

002032
037701
000347
000000
000007
003032
037721
003400
000000
000007

037660
037660

JYES, BRANCH

1%:

037604

037604
037604

L 10
PAGE 1-98

22-NOV-78

001404

037600
037600
037600
037600
037602
037602
037602

30A(1052)

0105

ENDHRD
.EVEN

CNTYPE
,CNT ,1,YES
T$CODE
gNTYPE

CSRMSG,CSR,0,160000,177776,YES

T$CODE
CSRMSG
TSLOL IM
TSHILIM
VECMSG,VECT,0,0,776,YtS
T$CODE
VECMSG
TSLOLIM
TSHILIM

BRMSG,PRIOR,0,340,0,7,vES
T$CODE
BRMSG

340

TSLOLIM
TSHILIM

DRMSG,DRBT,0,03%3400,0,7,YES
T$CODE
DRMSG

03<00

TSLOL
[M

T$HILIM

TESTwx«

SEQ 0128

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

3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
%g;é

037660
037665
037672
037700
037701
037706
037712
037720
037721
037726

046122
102
042104
000

102
042526
042526
000
106
000
037730

3978

037732

(5)

037740

006044

037742
037744
Q37746
037750
037752
037754
037754
037756
037760
037762
037762
037764
037766

001052
040122
177777
000000
177777

(&)

3985
3986
3987
3988
(2)
(3)

3989
3990

.ASCIZ
.ASCIZ

/RL11/
/BUS ADDRESS/

020122
000114
052103

042514

BRMSG:

.ASCIZ

/BR LEVEL/

051117

VE(MSG:

.ASCIZ

/VECTOR/

0644522

042526

DRMSG:

.ASCIZ

/DRIVE/

.EVEN

037740

037742

037770
037770
037772
037772
037774
037776
040000
040002

040004

GPRML

T$CODE
DMSG
1

.WORD

T$CODE

GPRMD
.WORD
.WORD
.WORD
.WORD

002130
040030
000001
003130
040041
000001

006044
004052
040065
177777
000001
000200

2%:

DMSG,DLT,”,YES

.WORD
.WORD
.WORD

XFERF

040004

.WORD

EMSG,ELT,.D,177777,0,177777
,YES

T$CODE
EMSG
177777
TSLOLIM

TS$HILIM

GPRML
.WORD
.WORD
.WORD
GPRML
.WORD
.WORD
WORD
XFERF
.WORD
GPRMD
.WORD
.WORD
.WORD
.WORD

SMSG,SIZE,1,YES
TS$CODE
SMSG
1
(CMSG,DMPCK,1,YES
T$CODE
(MSG
1
2%
T$CODE
LMSG,DLMT,D,177777,1,128.
,YES
T$CODE
LMSG
177777
TSLOLIM

.WORD

TSHILIM

ENDSFT

040004

SFTPRM
BGNSFT
.WORD L10106-L$SOFT/2

000025
000130
040004
000001

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

CNTYPE:
CSRMSC:

BGNMCD

037732
037734
037736

3983
(5)
3984

000
040440
051523

ENDMOD

(4)
(4)
(4)

(&)
(4)
(4)
(4)
(4)
3981
(4)
(4)
(4)
3982
(4)
(4)
(4)

030461
051525
042522

037730
037730
037730

3980

22-NOv-78
15:35
PAGE 1-99
**TEST 47+ - CHECK RLDA DOES INCREMENT WITH RD W/0 HDR (CMP

037730

3976
36;%

3979

M 10

30A(1052)

L10106:

051104

050117

067440

DMSG:

.EVEN

.ASCIZ

/DROP ON ERROR LIM]"/

SEQ 0129

MACY11
22-NOv-78 15:28

ASSEMBLY ROUTINES

CZRLBB.P11

040012

020116
020122

3991
3992

3993

040122
040130

30A(1052)

22-NOV=78

15:35

N 10
PAGE 1-;?0

*%TEST 47x+ - CHECK RLDA DOES

INCREMENT WITH RD W/0 HDR CMP

051105
044514

047522
044515

047524
000
046517
042040
047117
000
047440
042122
042440
051040
042524
047522
044575

044523

SMSG:

ASCIZ

/AUTOSIZE/

040520
052101
042040

(MSG:

.ASCIZ

/COMPARE DATA ON DCK/

020106
020123
051122
050105
000104
020122
000124

LMSG:

.ASCIZ

/# OF

EMSG:

.ASCIZ

/ERROR LIMIT/

040136

WORDS

IN ERROR REPCRTED/

ENDMOD

040514

.=40514
JAREA RESERVED AS PATCH AREA FOR DIAGNOSTICS.

;.740514 WAS SELECTED AS ‘LASTAD'' TO PROVIDE APT TO LSI-11 COMPATIBILITY.
;BIT 7 OF "LASTAD'' MUST BE CLEARED TO ACHIEVE A VALID MAJLBOX ADDRESS
JWHEN RUNNING ON THE LSI-11 UNDER APT.
040514

LASTAD

040514

LSLASY::.

EVEN

SEQ 0130

| 4

ASSEMBLY ROUTINES

(ZRLBB. SUP
«015

164885

14887

14888
‘64889

1489C

‘089

071310

071312

(77314
07°2°6

MACY1Y 30A(T0S2) 22-NOv-78 15:35 PAGEg

2%-0{1-78 09:5¢2
000000

000000

00000C
Q0uQ0C

€71322
30020C

DIAGNOSTIC SUPERVISOR -= LOW CORE SET uUP
.SBTT.

DIAGNOSTIC

.WORD

.WORD
WORD

0
0
0O

END.SUPY
- ¢/
.END 200

SUPERVISOR -- LOW CORE

SEQ 0131
SET UP

:SPACE FOR USER POOL POINTER

JSIZ2E

;CHECKSUM (NOT CURRENTLY USED)
;SIZE CF H.W, PTAB. ALLOCATION

[aIalnIalalalalalalalalalalalnlalalalalaYa]
(2}

3
H
-\
N NN
= =

b
) —
D e
D
D el
D

NN-*--?

~NW ~NNVONO
(o XY,](@I VIV IV, ¥ N6 §

)
d

)

000017

CSPNTS
000016
(SPNTX- 000075

441

RXRR
ST

000040
000100
000200
000400

—o
no ~

BITS
BIT6
BIT7
BIT8

= 000010

= 000020

BIT3

d rd i

BIT4

000
010000
020000
040000
100000
000004

=
=
=
=
=

) e

BIT11
BIT12
BIT13
BIT14
BIT15
BITZ2

000010
000020
000040
000100
000200
= 000400
- 001000
- 000002
= 002000

jololelololololelolololalelolalolalolololololololele]

=
=
=
=

053062
053074
054072
054236
000021
000020
000054
000022
000004
000002
= 000030
= 0000446

057572

——

8I1T02 = 000004

B.703
BIT04
BITO5
BITO6
BITO7
BIT08
BITO9
BIT1
BIT10

002202

BITO1 = 000002

[alalalalalnlalnlalalalalalnlialalalnlalalalnlalala]

BITO = 000001
BITOO = 000001

000000

037665
040522
040524

002154
002252
002170
020764
007130
040514
057770

= 000040

007172

BCCFBK
BCSR
BDDAT
BEFORE
BEREG
BGN.SU=
BINMSG

BA17

000022
000024
000026
000030
066202
066240
G,
002130
002122
020214
047620
062022
060710
045760
053110
042150
061342
045466
045504
020126
047102
040754 G
066204
0490752 G
066610 G
067612 G
067746 G
041012 G
045562
020010 G
046036
040041
000010
037660
064260
040564 G
064074
007316
017354
067672

CRTIM
=
(SR
(SRMSG
CURR.S
CURR.T
CYLMSK
C$AAD
C$AAE
C $AAK
CSAAL
C$ABRT=

CSPOIN= 000040
($QI0 = 000377
000007
00005C
000045
000033
000002
000025
000047
000041
000037
= 000013
000031
000026
000027
DAHS
000020
DATPAT
002662
DCKME
S
007277
DECMSG
060004
DEMES
007245
DERFLG
002310
= 040000
DERR
040526 G
000000
041046 G
000010
000000
007304
000006
040004
070456 G
070344 G
000006
000001
002134
037721

000010
045316
045332
(045344
045352
045366
045376
000020

063614
002256
037701
003052
002254
047604
047516
002220
002216
002222
002224
002156

CONTIN 017226
= 000200
CRDY
CRLF
060172

ASSEMB=
ASAAV
ASAAW
ABAAX
ASAAY
ABAAZ
ASABA
BA16
=

= 001000 G
066202

SEQ 0132

A=)
-

061460
042450
007106
007101
007114
007122

BLD.HW
BLOCK
BPR]OR
BRMSG
BUF
BVEC
B$AAB
BSAAF

TABLE

PAGE 3

ALLOC
APT.ER
ARLBA
ARLCS
ARLDA
ARLMP

007151
0460546
021016

BIT9

SYMBOL

¢ 1

15:35

AFREG
AFS]
AFTER

041040 G
040756 G
043320

22-NOV-~78

ABOFLA
ABOPAS
ABO.FM

30A(1052)

~no

ASSEMBLY ROUTINES
MACY11
CZRLBB.SUP
23-0(1-78 09:52

ASSEMBLY ROUTINES

CZRLBB. SUP
EM42
EML3
EMLS
EMLS
EML7
EMS
EMS0
EMS1

EMS?2

MACY11

23-0CT1-78 09:52

012654
012723
012767
013024
013056
010646
013105
013145

013177

30A(1052)

ERRS
ERR6
ERR7
ERRS8
ERR9Y
ESC.PC
EV.COU
E.BA

074456
014514
014556
014564
014636
053106
040520
002230

E.CS

002226

22-NOV-78

SYMBOL TABLE
G
G
G
G
G
G

15:35

PAGE

0D 1
3-1

FSMOD = 000000
FSMSG = 000011
F$PWR = 000017
F$RPT = 000012
F$SEG = 000003
F$SOF
T= 000005
F$SRV = 000010
F$SUB = 000002

F$SW

= 000014

SEQ 0133
HDREND
HDRLST
HDRTAB
HERTZ.
HNFMES
HOLDSP=
HPTCOD
HRDPRM

002660
020712
002504
045126
007272
000020
016750 G
037604 G

LPBFR
LPCNTR
LPT.AD
LPT.RE
LSI.RE
LUP
LUP.AD
LSAPT

040622 G
040620 G
045144
045140
045134
066106
053112
002036 G

HSAAB
ININIT
INITCO
INITIA
INIT.M
INIT.R
INPUTA
INTEN =
INTFLG
INTFOR
INTSRV

064606
040772 G
017140 G
060020
046104
040606 G
060746
000100
002144
054244
020110

L$CCP
L$CLEA
L$CO
L$DEPO
L$DESC
LSDEVP
LSDISP
LSDR
LSDRCT
L$DRS
LSDRST

002106
020010
002032
002011
002102
002064
017002
002112
002070
002072
002112

054102

L$DU

HW.ADR

040550 G

EMS3
EMS4
EMSS
EMS6
EMS7
EM6
EM6O
EM61
EM62
EM63
EM6L

013310
013400
013230
013456
013477
010712
013537
013575
013652
013727
014031

E.DA
E.MP
E.MP1
E.MP2
FILL
FILL.C
FIRST
FIX
FLAGS
FLAGST
FLAGTA

002232
002234
002236
002240
060640
000204 G
002200
020752
040560 G
040562 G
064012

F$TEST=
GARBAG
GDDAT
GETCHR
GETCMN
GETPAR
GETSWI
GET.TW
GLBDAT
GLBEQA
GLBERR

000001
061344
002166
060050
063434
055126
062430
062200
002122 G
002122 G
014244 G

EMG6

014146

FLA.SE

063760

GLBTXT

007052 G

INVINT

000002
000004
010006
007747
000400
000002
000001
000000
000400
000376
(00001
000002
000000
000140
000000
000040
000200
000120
000020
000100
000004
000010
045256
045166
041002 o
007264
040552 G
040544 G
040542 G
021356

IN.SUF
047054
[$AU
= 000041
I$CLN = 000041
I$DU
= 000041
I$HRD = 000041
ISINIT= 000041
ISMOD = 000041
I$MSG = 000041
I$PWR = 000041
I$RPT = 000041
I$SEG = 000041
I$SFT = 000041
[$SRV = 000041
I1$SUB = 000041
I$TST = 000041
JSIJMP = 000167
KBPTR
040624 G
KBUF
040626 G
LDCSR
002146
LDFUNC
020456
LF
00731
LINE.F
041042 G
LINET
015256
LINEZ
015312
LINE3
015534
LMSG
040065
~0AD.F
045502
LOGMSG 060012
LOFIMN 002272
LOPIMX
002270

EMGS
EM?7

EM70
END
END.OF
END.SUENVIRO
EOP.CH
EOP.FM
EOP.IN
ERCOUN
ERFLG
ERPOIN
ERR
ERRFOR
ERRHAN
ERRVEC
ERR.HR
ERR.NU
ERR.SF
ERRO
ERR1
ERRIFC
ERR10
ERR11
ERR12
ERR13
ERR14
ERR15
ERRZ
ERR3
ERR4

014105

FLAG.I

010766

014220
017722
047070
071322
040566
067770
043334
045500
002314
002266
002312
100000
054314
053114
(002132
054052
040516
054056
014244
014262
054400
014702
014754
015026
015102
015150
015216
014274
014336
014410

FLG.MA

G
G

G
G
G

G
G
G
G
G
G
G
G
G

FNDFNC
FORM.T
FREE
FRMT1
FRMT10
FRMT11
FRMT13
FRMT14
FRMT15
FRMT2
FRMT2A
FRMTZ2B
FRMT3
FRMT4
FRMTS
FRMT6
FRMT7
FRMT8
FRMT?
FRMT98
FRMT99
F$AU
FEBGN =
F$CLEA=
F$DU =
FSEND =
F$HARD=
F$HW FEINITF$JMP

045546
045506

002260
(054410
061716
015606
016415
016550
016672
016241
016723
015645
015664
015677
015726
015733
015771
016042
016117
016171
016312
016615
016667
000015
000040
000007
000016
000041
000004
000013
000006
000050

GLBSUB

020110 G

GODRVR= 000202

GSBIT =
GSTAT =
GSTINT
GSTMES
GSEXCP=
GSHILI=
Gs$LOLI=
GENO =
GS$OFFS=
GSOFSIG$PRMA=
G$PRMD=
GPPRML=
GSRADA=
GSRADB=
GSRADD=
GSRADF=
G$RADL=
GSRADO=
GSRADT=
GSXFER=
GS$YES =
HCORED
HCOREQ

HCORET
HCRCME
HC.ADR
HC.DEF
HC.DIA
HDHOME

INVAL.

iNV.SW

045052
042104

LSAUT

LSDTP
LSDUT

LSDVTY
LSEF
LSEFLG
LSEXP1
LSEXP2
LSEXP3
L$HARD
LSHPCP
LSHPTP
LSHW
L$ICP
LSINIT
LSLADP
LSLAST
LSMREV
LSNAME
LSREPP
L$REV_
L$SOFT
LSSPC
L$SPCP
L$SPTP
L$STA
LSSW
LSTIML
LSTIMU
LSTIM1
L$TSTI
LSUNIT
L.CLK.

002074 G

G
G
G
G
G
G
G
G
G
G
G

002040 G
020104 G

002076 G

002114 G
002056 G
002034 G
002042 G
002044 G
002046 G
037606 G
002016 6
002022 G
016752 G
002104 G
017140 G
002026 G
040514 G
002050 G
002000 G
002066 G
002010 G
037732 G
002062 G
002020 G
002024 G
002030 G
016766 G

002014
002054
002052
002100
002012
065112

G
G
G
G
G

031776
032430

NUM. LA
054602
NUM.NO
NUM.UN
NUNITS
NXM
=
NXMMES
NXT
NXTFOR
0CTMSG
oPI
=
OPIERR
OPIMES
OPIMN
OP IMX

040576
066206
040600

MASK.B
MASK.W
MAXCYL

(047616
047614
002217

PASS.
C

MDHEDR

002000

MERLMT

016770

PRI100
PRIO1

001244
070714

040572
040574
000001
070256

MSG.AD
MSG.TY
MUL

040540
040514
070212

NEXTAR
NOOPC =
NOPINT
NOPMES
NOPWR
NORDY
NORES
NO.CLK
NO.F.A
NO.LPT

064176
000000
007420
007377
017166
007070
007052
045102
063772
061210

NUMBIN

- 000000

054434

MIN.IN
MIN.US
MK
=
MODR

SWCHAN
SWITCH

045300
064152

TEMP2
TEMP3
TEMPS4
TERMI
TERMLI

002172
002174

066176
064000

TMPO
TMP1
TMP2

002160
002162
002164

002176

(212}

PRINTC
PRINTF
PRIOR

045154

45306

066210
070700
070664
040570
045462
017304
020440
042252

PARSES
PAR.LA

002206

002204
067736

SEQ 0134

O0%APTS=
O$AU =
O0$BGNR=
0$BGNS=
osDU
O$GNSW=
O$POIN=

MAJ.IN
MAJ.LO
MAJ.US

007313

E 1
PAGE 3- 2
[a1alaTa)

033040
9033272
033562
034056
034350
034742
035242
035602
036114
036400
036670
036760
037112
037310
037446
037602
037660
040004

TABLE

15:35

PRI02

PRIO3
PRI04
PRIOS
PR106
PRIO7

PRNTST
PRO.CM
PTAB.S
PUTCHR
PWRFLG
PWR.FA
PWR.FL
PWR .MS
PWR. SA
PWR.UP

P.CLK.

010076
010045
000010
000016
010247
010213
= 00004

RDD INT
RDDME
S
RDHDR RDNHD =
RDNINT
RDNME
S
READ

000340
061210
045460
041000
060024
002304
071150
040604
071276
071272
071274
045120

[2Ialalalalalalal

b
o
d

SYMBOL

015254
016764
017000
020006
020102
020106
020114
022100
022244
022374
022530
022662
023020

22-NOV-78

L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030
£ 10031
L10032
L10933
L10034
L10035
L10036
L10037

0065
0066
0067
0070
0071
0072
0073
0074
075
076
077
00
01
02
03
04
05
L10106
d

L10016

014260
014272
014334
014406
014454
014512
014554
014562
014634
014700
014752
015024
015100
015146
015214

—

L10000
L10001
L10002
L10003
L10004
L1000S
L0006
L10007
L10010
L10011
L10012
L10013
L10014
L10015

30A(1052)

[a)
)

ASSEMBLY ROUTINES
MACY11
CZRLBB .SUP
23-0(7-78 09:52

002214

TSSEGL
=
T$SEKO= 010000
T$SEK1= 010001

T$SEKZ- 010002

1
PAGE 3- 3

712

010107
000000
000057
177777
000001
010023

114

025256

719
T2

25606
022102

121
122

123
124

125

v26

127

128

129

130

023712

071320

ABS.

v17

120

T.LMY
T1.SIZE
T
T10

ERRORS DETECTED:

0246460

024660

025030

T18

T.DMP

024262

"15

116

T.CNTL
T.CRC

024110

31
132
133

025132

025452

025740

026060
026240

027016
027212

027356

027472

027650

030250

030672

022246

031320

032000
032432
033042

T34
135
136

137

738
739
T4
740
T41
T42
T43
T44
T45

T46
147

17
T8
9
UNITST
UNIT.D
UN].MA
UOP IMN
UOP IMX

000
G

DSKZ:(CZRLBB,DSKZ
: CZRLBB=CZRLAB/M. , (ZRLBK.P11,(ZRLRR, SUP
RUN-TIME: 66 62 1 SECONDS
RUN-TIME RATIO: 323/130-2.4
"ORE

USED:

16k

(31

PAGES)

033274
033564
034060
034352
034744
035244
022376
035604
036116
036402

036672
036762
037114
037312
037450
022532
022664
023022

023220
023522
002140
040532
045410
002276
002274

SFQ 0135

USER.P
USER.T
wuT
VALID.

040774 G

VAL .LA
. SW
VAL

VECMSG
VECT
WCKINT
WCKMES

047310
042510
047354
002262
002152

XXX

WHY

WIDTH
WRCHK
WRITE
WRLOCK
WRTINT
WRTMES
WTCRDY
WIDRDY
XEQDIA
XEQSUB
XEQ. CL
XEQ. (M
XEQ. IN
XEQ.LA

XEQ.OP
XEQ.PR
XEQ.TE
XMEM
XPOLY
XTIME
XTIMEN
XTIMST
XXDP.D

000012
010331
010161
010127

021276
021236
070024 G
070012 G
047534
045044
047216

043306

XSALWA=
X$FALS=
X$OFF
S=
X$TRUE=
$BREG
$ENDAD
$SAV?2

$SAV3
$SAVSL
$SAVS

071114
071320

AOOOO

177777

15:35

[

000000

22-NOV-78
SYMBOL TABLE
[alalalalainlialalalalalalnlnlalalnlalalalalaln] [2)
)]

TESUBN=
T$TAG.
=
TSTAGN=
TSTEMP=
T$TEST=
T$TSTM=
T$TSTS=
TSSCLE=
T$SDU TSSHAR=
TESHW =
T$SINI=
TSEIMSG=
T$$SEG=
T$$S0F
=
T$ESRV=
TSESW =
TESTES=

30A(1052)

alalalalalalalalalalalalalalalalalalalal

ASSEMBLY ROUTINES
MACY11
CZRLBB.SUP
23-0(T-78 09:52