Digital PDFs

AH-B001B-MC

January 1978

313 pages

Original

15MB

view download

OCR Version

13MB

view download

Document:	CZRMDB0 RM03,02 FUNCTIONAL TEST 2 JAN 1978 bw
Order Number:	AH-B001B-MC
Revision:	000
Pages:	313
Original Filename:	CZRMDB0__RM03,02__FUNCTIONAL_TEST_2__AH-B001B-MC__JAN_1978_bw.pdf

OCR Text

FUNCTIONAL TEST 2

AH-B001B-MC
COPYRIGHT ©1977

FUNCTIONAL TEST 2

CZRMDBO

AH-B0OG1B-MC

JAN 1

&
COPYRIGHT©1977
IN USA
FICHE2 OF2 MADE

ZRPSQ

780105

BO1
.REM

00010000
23- NOV-77 12:19

PDP18E£®1000!

CZRMDBO RMO3/2 FCTNL TST

PRODUCT CODE:

AC-BO0O0OB-MC

PRODUCT NAME:

CZRMDBO RMO3/RMO2 FUNCTIONAL TEST,
PART 2

DATE CRERTED:

1 RUGUST 77

MRINTRINER:

DIAGNOSTIC GROUP

RUTHOR:

DOUG RIIKONEN

AN H

IDENTIFICATION

1 A
KT T Srb DR

Y
30(1046) 23-N
MRCY1l

S ittt attat

CZRHDB

Eagons *u&r nnv°2$;E§n IN tu?annanunL.
'é US

EsP

I-1

SCRIKD IN THIS DOCUMENT
IS FURNISHED TQ THE PURSHA.-R

US?

N%% COMPUTER SYSTEM AND CAN BE COPl1 O

(W] H INCLUSION OF DIGITAL’'S CW
GHT NOTICE) OMLY FOR USE IN SUCH
SYSTEM, EXCEPT
RS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

QAHEY LI
COPYRIGHT

QRN RS AT T BEY BT
(C)

1977,

DIGITAL EQUIPMENT CORPORARTION

CZRMDBO RMQO3/2 FCTNL TST 2
CZRMOB.P11
23-NOov-77 12:19
53
4

MARCY1l 30C(1046)

23-NOv-?7

12:38

COl

PAGE @2

. PRGE

1)
56
57
S8
s9

CONTENTS

INTRODUCTION

RBSTRRCT

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

HARDMARE REQUIREMENTS

MEDIAR REQUIREMENTS

PREREQUISITE DIRGNOSTIC PROGRAMS

SHITCH OPTIONS

STARTING

HAL TING

LORDING

RESTARTING

PROGRAM I.0.

CONSOLE DIRLOGUE

PROGRESS REPORTS

PERFORMANCE REPORTS

OPERATOR INTERFRCE

PROGRAM HALTS

BIRRZER2E
BB IRR LSV 28 BBIRR2ERTS

Pt P

Pcn Pt Pt Pt e

OPERRTING PROCEDURE

ERROR REPORTS

ENVIRONMENTAL SUPPORT

PROCESSOR COMPRTIBILITY

SEQ@ 0002

CZRMDBO KMO3/2 FCTNL TST 2
CZRMDB.P1!
23-NOv-7?7 12:19
109

MACY1l 30(1046)

23-NOV-77
2.

12:38

DOl

PAGE 3

DUAL PORT CONFIGURATIONS

SEG 0003

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-Nov-77 12:19

MARCYL1l

30(1046)

23-NOV-77

12:38

EOL

PRAGE 4

110

PAGE 2

111

lle

{ia

MEMORY PRRITY HARDWRRE

{ig

MEMORY MANRGEMENT HRRDWRRE

iig

RACT,APT COMPATIBILITY

iég

XXDP COMPRTIBILITY

igé

OPERRTING SYSTEM COMPATIBILITY

123
le4
125

SEQ 0004

TEST DESCRIPTION

CZRMDBO RMO3-/2 FCTNL TST 2

awvuvwc\c‘c‘o"c‘o‘c‘g
LW~ DOVODNTN LW
C G0N

s s Pt et et s (e e (s Pt (et e Pt Pt et Pt Pt Pt Pt Pt st Pt ot Bt Bt Pt Pt Pt Pt Pt Pt Pt

s P Pt i Pt ot P

e P Pt Pt Pt st P Pt Pt Prmp Put Pt Pt Pt s P [

2B S S h F SR 588 YRRELR-EBBYR

CZRMDB.P11

M NINNN
oo~

23-NOV-77 12:19

MRCY11 30(1046)

@23-NOV-77

12:38

FOL

PRGE S

SEQ 000S
PARGE 3

1.0

INTRODUCTION

1.1

ABSTRRCT

HE RMO3 SUBSYSTEM FUNCTIONAL TEST .5
R STAND RLOP( PROGRAM WHICH
USEg
FENCTIWF?RNS
TO_
VERIFY
THE
OPERABILITY
OF THE PMO3 DISK
suBsSYST
TICULRR, THE
PROGRAM SERVES THE
OLLOHING PURPOSES:
TO EXC&ICITLY ESTRBLISH CONFIDENCE IN THE BRSIC OPERARTIONS OF THE
DISK
ING
MECHANICAL
POSITIONING
RND
DRTR
TRANSFER
OPERRTIONS;
TO
IMPLICITLY
ESTARBLISH
ELELTRICAL INTERFRCE;

T0 VERIFY T

MASSBUS CONTROLLER,

CONFIDENCE

THE

FUNCTIOMLITY OF THE RMO3 SUBSYSTEM,

MRSSBUS ADAPTER AND THE DISK DRIVE.

HE 7537“£§ conpn{§£o Pnnrs

seouenc

1aRT1

PART

DRIVE/RDAPTER

INCLUDING

uuxcu WOULD NORMALLY BE RUN

BRIEF

THE

PART 1 TESTS HOUSEKEEPING

ND MECHANICAL
Pog
TIONING opsnm'xons PQR? TESTS WRITE, READ AND
cuscx
0"2 gs HERDER AND oarn PART 3 tESTS WRITE,

unxrs

REARD AND WRITE CHECK OPERARTIONS usxnc DGTR

1.2

UNIT UNDER TEST

THE UNJT
conc*svs

L¥DER TEST
(UUT)
IS
THE
RMO3
DISK
SUBSYSTEM
WHICH
HE
RHXX MAS
gus
comnou.en
me RMO3 MASSBUS ADAPTER

ANO

THE STORRGE MODULE DISK

2.0

OPERATING REQUIREMENTS

2.1

HARDKARE REQUIREMENTS

ERO?VETE

AND

THE FOLLOWING

2555?}6%?IS

1S CONSIDERED nu

MINIMUM

REQUIRED

PDP- 'é PROCESSOR

MEMORY
16K
KWll-L OR KWll-P CLOCK
PROGRAM LORDING DEVICE
TERMINAL

RH11 OR RH7?0 CONTROLLER
UNIT UNDER TEST,

NOTE THAT A DISK PACK IS

INTEGRAL OF

HRROWARE

LOAD

CONFIGURATION,

AND

REQUIRED

THE STORAGE MODULE DISK

EXECUTE

ASSUMED

YHE RMO3 SUBSYSTEM

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOoV-77 12:19
182
183

MACY1l

30(1046)

23-NOV-77

12:38

GOl

PAGE &

WHERE THE UNIT UNDER TEST CONSISTS OF ONE TO EIGHT RMO3 RDAPTERS,
DRIVES AND DISK PRCKS.

SEQ 0006
DISK

[AVIAUAV gV AV gV Ea N Ta N TN 1A VYAV 4]nn
L) 0= 0t et et $me s Pt s pe e ) QO
OCuONCMNLWNN—~=0W [+

mmmgmgm.-.-.-._.-.-.-.-.-._.-.-.-.-.-.QRRZEREB
S SRR LEH 282 BZRRE

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB.P11
23-NOov-77 12:19

MRCY11l

30(1046)

23-NOV-77

12:38

HO1

PRGE 7

SEQ 0007
PAGE

2.2

MEDIR REQUIREMENTS

eronE
" TelTing
CBEGINE"Tbn iaruNT
C 1hé Back B GE"FoRATreD
ok
BUT MUST NOT cournxn NEEDED xnronnnrxou BECAUSE THE
PACK
uxLL ae uax?rsu ounxnc THE TEST
NOTE

WHEN THE PROGRAM

IS LORDED VIR THE RMO3

SPéRsTOR SPE&?FICgLLY EN¥EBS SSDRIU
NUMBER DURING CONSOLE DIQLOGUE

2.3

PREREQUNSITE DIRGNOSTIC PROGRAMS
RMO3 DISKLESS DIRGNOSTIC,

3.0

OPERARTING PROCEDURE

3.1

LORDING

CZRMJ-B

THE PROGRAM MAY BE LORDED BY EITHER OF THE FOLLOWING MEDIA:

sgé

PRPER TRPE,

.XXDP MEDIR,

USING THE STRNDARD PRPER TAPE LOADING PROCEDURE;
USING THE ARPPROPRIATE LORDING DEVICE.

223
ggg

NOTE

523

N _THE PR
VIR TH
BRIVE
o g5RAMNt LOR
“PERTEo
O ESS"RH03
The

;

2es
ggg

OPERRTOR
PECIFICALLY
NUMBER DURING CONSOLE

ENTERS
THE
DIALOGUE.

DORIVE

231
e3e2
3.2

SWITCH OPTIONS
THS FOkLOHING SWITCH OPTIONS ARE

OF THE

PROGRAM.

PROVIDED

TO ENHANCE

THE

UTILITY

CZRMOBO RMO3-/2 FCTNL TST e
CZRMDB.PL1
23-NOv-77 12:19

240
24l

MACY11l

30(1046)

SW1S
SWIY

@23-NOV-7?7

12:38

I01

PRGE 8

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)

SEQ 0008

CZRMDBO RM0O3-2 FCTNL TST 2
c ZRMOB .P1l
23-NOV-77 12:19

MRCY!l

30(1046)

23-NOV-77

12:38

JO1

PAGE 9

SEQ 0009

PRAGE S

SW13
SWle
SW1l
SW10
SWO9
SWoe
THE

INHIBIT ERROR TYPEOUTS
UNUSED
INHIBIT TEST ITERATIONS
BELL
ON
ERROR
LOOP
ON
RROR

LOOP ON TEST IN SWO7-00
LOW ORDER 8 SWITCHES

Eggg 0;0

3.3

SPECIFY

(SWO07-SW00Q),

ARE

USE?

THE OCTAL NUMBER OF THE TEST

CONJUNCTION

STRRTING

THE PROGRAM

TEST CONDITIONS IF

STRRTS AT LOCATION 200,

WHICH

PROVIDES

RUNNING IN AN AUTOMAYIC ENVIRONMENT.

A STAND-RALONE ENVIRONMENT,

WORST

CRSE

IF RUNNING IN

THE PROGRAM USES CONSOLE DIALOGUE TO

THE OPERATOR TO CONTROL TEST CONCITIONS.
3.4

WITH

WHICH THE PROGRAM WILL

ALLOW

HALTING
THE PROGRAM CRAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE.

3.5

RESTRRTING
THE PROGRAM CRN BE RESTARTED AT RDDRESS 200.

4.0

OPERARTOR

INTERFARCE

4.1

PROGRAM 1D
THE PROGRAM TYP?S

ITS TITLE AND MAINDEC NUMBER THE FIRST

IS
_STARTED AFTER BEING LORDED.
IF THE PROGRAM IS RESTARTED.

4.2

CONSOLE

ENTERS

DIRLOGUE

WHEN THE PROGRAM IS RUNNING IN STAND
ALONE
MODE,
CONSOLE DIRLOGUE SEWNENCE AFTER TYPING THE PROGRAM I.D..

TIME

PROGRAM IDENTIFICATION DOES NOT OCCUR

THE FIRST QUESTION TYPED OUT

THE OPERATOR RESPONDS WITH A Y,

IS:

“TYPE HELP TEXT

IT
(Y

OR_N)??*.

THE PROGRAM WILL TYPE R BRIEF HELP

MESSAGE WHCIH WILL LIST SWITCH OPTlons, ETC.

OO NN LWh--

RRDERIE

Pt Pt Pt (it Pt Pt Pt Pt Pt

WWwWwWwwWwwww

SSRIRRIEREE
S

CZRMOBO RMQO3/2 FCTINL TST 2
CZRMOB.Pi1
23-NQv-77 12:19

MACY1l

30(1046)

23-NOV-77

12:38

KOl

PAGE

SEQ 0010
PAGE 6

cvoa

COND QUESTION TYPED OUT

fisss
(Y

N)?2?*

IS,

“CHANGE RMO3 uuxeus RODRESS

F rflg

aus RODRESS OFTHE RMO3 1S NON

ucsr
?ns T?rzfigospi
\Trr
Sw:u'
R6oR
crg)gezoonssigsaflosfifigggffl
anoai
HSR
ooggsno?:niggbuo
WITH A Y, THE PROGRAM
SKIPS TO T
QUESTION
o,
5 RSNgBLE
SEly
1E 0hTESTED. O
THE OP R?gR $
0¥ CES
OEPRATOR

CAN
T

TERMINATE MIS

SAME

INPUT H

DEV

IF THE PROGRAM 1S Resranreo

DEVICES

TH R CRRRIQGE RETURN.

THE FIRST QUE

THE

YPED

Y rus TEST 1S

OPERAT

RWiSE, THE TEST
D FOR' THE FIRST

RESTARTED USING THE sans osvxces RS THE LAST T1

Rgagnars

4.3

THE

DIALOGUE

~USE

IF THE PROGRAM WERE ST

PROGRESS REPORTS

AN END OF PRSS REPORT OCCURS EACH TIME THE
PROGRAM
IS
EXECUTED
FOR
E%LQNBEVICES
IN THE TEST QUE.
THE END OF PASS REPORT INCLUDES R
MESSA
AN ERROR SUMMRRY.

4.4

PERFORMANCE REPORT

NO PERFORMANCE REPORTS RRE GIVEN
PROGRAM.

4.5

DURING

THE

EXECUTION

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF

UNIT

THE

PROGRAM HALTS

PROCESSOR HALTS RRE DUE TO THE TRAP CATCHER.

4.6

THE PROGRAM.

ERROR REPORTS

%R? l.f NE OF THE
ERROR REPORT CONTRINS

BEI

ESTED,

THE TEST NUMBeR,

THE

NUMBER

THE

THE ERROR NUMBER FND TPE VALUE OF

T
e RT
e
Si
YET COMPREHENSI nggnxp N or ?fii é 53 5 5 MESSAGE IS

NORMALLY
FOL
HERDERS AND DATA PERTININENT
RCTURL TEST RESULTS.

MORE
PAIRS
THE
ERROR,

LINES ournxmxuc DATA
INCLUDING
EXPECTED
AND

C 0 Rfl03/2 FCTNL TST e
23-NOv-?77 1 2:1

MACY11 30(1046)

23-NOV-77

12:38

LOL

PRGE 11

SEQ 0011
PAGE 7

5.0

ENVIRONMENTAL SUPPORT

S.1

PROCESSOR COMPARTIBILITY

THE RMO3
YSTEM FUNCTIONAL TEST IS EXECUTABLE ON ANY PODP-11
PROCESSOR PROVI ING PREVIOUSLY
MENTIONED HARDWARE REQUIREMENTS ARE
MET
%832&;’““* DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO

sustnxu onra

S.2

ER OPERATIONS.

DURL PORT CONFIGURRTIONS
YSTEH FUNCTIONAL TEST

DOES_

NOT

SPECIFICALLY

TEST

EXECUTION

THE

IS EXECUTABLE ON RMO3
RMO3 ADAPTER BUT
T
ouAL PORT LOG
SUBSYSTEMS HAVING THE DURL PORT OPTION PROVIDING THE DUAL PORT SWITCH
IS SET TO THE APPROPRIATE PORT (R OR B)

S.3

MEMORY PARITY HARDWARE

MEMORY PRRITY MARDWARE IS NCT USED DURING THE

RMO3 SUSBYSTEM FUNCTIONAL TEST.

5.4

MEMORY MANAGEMENT HARRDWRRE

MEMORY MANRGEMENT HARDWARE IS NOT USED DURING THE RMO3
FUNCTIONAL TEST.
CRPRBILITIES OF THE MASSBUS CONTROLLER.

SUSBYSTEM

S.5

RACT1l, APTLIl COMPRTIBILITY

APTI11

THE RMO3 SUSBYSTEH FUNCTIONRL TEST IS COMPATIBLE WITH
RCT11
AND
IN BOTH DUMP
RAND AUTOMATIC MODES.
FURTHER,
THE PROGRAM WILL

5.6

XXOP COMPATIBILITY

DUMP

THE RMO3 susavsrsn runc I0NA: T ST IS COMPATIBLE WITH XXDP IN
AND CHRIN MODES
ROVIDES oxn PROTECTION IN THE CRSE WHERE

OF QUICK
géSEUTE QUICK PRSS DURING THE FIRST PASS IN SUPPORY

THE RMO3 IS THE XXDP Lonotfic ODEVICE

VERIFY

CZRMOBO RMO3/2 FCTNL TST 2

CZRMDB.P11

23-Nov-77 12:19

MACY1l 30(1046)

23-NOV-77

12:38

MOl

PRGE 12

408

410

SEQG 0012
PAGE

S.7

OPERRTING SYSTEM COMPATIBILITY

THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM.

§TIS:19

MACY11

30(1046)

23-NOV-?7

12:38

NOl

PAGE

SEQ 0013

6.0

TEST DESCRIPTION

CONTROLLER RCCESS TEST
PURPOSE
:
TO VERIFY THAT THE UNIBUS ADDRESS OF THE RMO3
CORRECT, RS DEFIMNeD AT LOCATION SBARSE.

SUBSYSTEM

PROCEDURE:

TH$ TEST TgéES TO ACCESS ALL
MASSBUS
CONTROLLER
REGISTERS
HE
$8A
RD
SS.
REGISTER CONTENTS ARE IGNORED DURING
THE TEST, AND THS TEST
FRILS IF A
BUS
TIMEOUT
OCCURS
FOR
RNY
REGISTER TRANSFER.

RLONE

IF T“i TEST rm%s AND THE PROGRAM
IS
ENVIRONMENT,
I.E.,
LOCATION 42 IS O,

TO0 LOCATION 204 wHiCH ALLOWS THE OPERATOR

RODRESS

VIA CONSOLE DIALOGUE.

OTHERWISE,

THE END OF PRSS HANOLER.:

RUNNING
IN
A
STAND
THE PROGRAM WILL JUMP

'TO

CHANGE

THE

$BASE

THE PROGRAM ESCAPES TO

’

4el

PRGE 9

DEVICE AVRILABLE TEST

Pt Pt Pt Pt Pt Ps Pt

LfLrLLrrccrk

B\DQ\JU‘U‘&UN’—

e Pms

CZRMDBO RMO3/2 FCTNL T
CZRMOB.P
23-Nov-?

PURPOSE
:

AND

70 VERIFY THAT

IS NOT

THE UNIT UNDER TEST

IS AVAILABLE FOR

LOCKED OR PROGRAMMED TO THE RLTERNRTE PORT.

TESTING,

PROCEDURE
:
THIS TEST

SELECTS

THE

REGISTERS 1 AND 2 TO VERIFY THAT

FOR TESTING,

?85{835

BIt

12"

VICE

AND

INDICRTED BY DVR STATUS,

RMCS2.

RERDS

CONTROL

STATUS

THE SELECTED DEVICE IS AVAILABLE
BIT

OF RMCS1

AND

NED

THE RESULYS OF THE TEST CAN VARY AS

.NON;X%STQNT DEVICE - TH$ DEVICE IS NONEXISTENT OR IS LOCKED
ON THE RLTERNARTE PORT AND IS
THEREFORE NOT AVRILABLE FOR TESTING;
.DEVIC$ NOT AVRILARBLE - THE DEVICE EXISTS BUT IS
THE ALTERNATE PORT Ai.D IS NOT RVRILABLE FOR TESTING;
.BUS TIMEOUT

- THE MASSBUS CONTROLLER

FRILED

SEIZEC
DETECT

BY
A

CZRMOBO RMO3-2 FCTNL TST @
CZRMDB.P!!
23-Nov-77 12:19
467

MACYL1l 30(1046)

23-NOV-77

12:38

NONEXISTENT DEVICE;

BOe2

PAGE 14

SEQ 001y

c ZRMOBO RMO3/2 FCTNL TST 2

CZRMOB.P11

23-NOV-77 12:19

MACY1l

30(1046)

23-NOV-77

12:38

co2
PAGE

SEQ 0018
PAGE

.DEVICE AVRILABLE - THE DEVICE IS AVAILABLE FOR TESTING.
PR GRRH
igflPE T? THE SUBPRSS HANDLER WHICH

NEXT DR VE

TED

IF THE

SELECTS

DEVICE IS NOT RVRILABLE.

THE

DRIVE TYPE TEST
PURPOSE :

T0 VERIFY TMT THE UNIT UNDER TEST IS AN RMO3 SINGLE PORT OR
DUAL PORT SUBSYSTEM
PROCEDURE
:

OF
3 845PORT R
B0AE P58t BUCE A0TO THETGSSUBPASS
T T HANDLER
GEVIGEWHICH
T3,WILL SELECT mé
Nsxr
II'vc ?ce ro&
TESTING.
THIS TEST RERDS

DRIVE

WRITE/RERD HERDER AND DATR (FORMART)

TYPE

TESTS

PURPOSE:

UNCTIM?T
Rh #‘Emsm‘%‘) S%geSTEH USRE‘;E Q"EE“?of VQRIRBLES
Wo'éfl }o”gLDE WORD COUNT, HERD MOTION, HERD SWITCHING
ERROR
PROCEDURE
:

TERls coim on CRaCREeciiveg T
;g’ @%
CENE &

éST EXER?%SES
A

“:E%ffius

c.igxs

[

nnuniain

8\0 NN LWhu—-0O

S
s08
S09

&EEE§?FON TI
EXECUTES

DIFFERENT

VMIM.DsiVET?g

T A U LT LER0RS “W:WEQTCS%QS

rccxs FOR PRIMARY ERRORS WHICH PRECLUDE

TEST

s“co&a
f0 ¢H%CEY%COPL& LOOPS I?ngoe%éo Sggg;gg

THE RERO HEMER AND DATR PORTION OF THE TEST, VERIFYING

CZRMDBO RMO3/2 FCTNL TST 2

CZRMOB.P11

23-NOV-?7 12:19

MACY1l 30(1046)

§$§
526

258
§30

531

532

633
534
535
836

5§37

23-NOV-?7

12:38

DOe

PAGE 16

SEG 0016

THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND.

e "“” *
TRA cx

SECTOR) rom

FORMAT Z2EROS - 18

sn
sge I %’?"é "’SSS ‘E ?oa"f
uenuxss nu. rzsrs nRE m 16 en (32

CZRHDGO RMO3/2 FCTNL TST 2
CZRMOB. P11
23-Nov-77 12:19

MACY11l

30(1046)

23-NOV-7?7

12:38

EQ2
PAGE

SEQ 0017
PAGE 29

THE TEST

SECTOR

SEEKS 10 CYLINDER 0,

AND_"OATA

"ARE

ZEROS,

18 BIT FOR

THE

CRUSING THE DEVICE 70 USE NO

READ

ANO

COMPARED

THEN WRITES H§QOE

WITH

K POSITIONS THE HERD SUCH THRT

FORMRT ZEROS

ITE GRTE.

THE

HERDER

IMPLIED

THE WRITE BUFFER.
THERE

THE

THIS TEST IS THE SAME RS THE PREVIOUS TEST,

IS WRITTEN IN

AND DRTR

R AND DATA FIELDS ARE ALL

16 BIT FORMAT

EXCEPT THAT DATA

ZERO FILL TEST
THE TEST EX cu
TES A SEEK TO CYLINDER O TO

OTION

ING DATA TRANSFER.

INSURE THAT

THERE

THIS IS FOLLOUED BY
A

WRITE HE
AND DATA COMMAND WITH THE WORD COUNT
EQUAL
TO
THE
SIZE
OF
THE
HFSDER WHICH CRUSES THE RH70 TQ ZERO FILL THE DARTR
FIELD.
THE RERD HEADER AND DATA COMMAND
THAT
FOLLOWS
RERDS
A
FULL

SECTOR AND VERIFIES THRT DATR WAS ZERO FILLED.

FORMAT

CHECK

THE

ZEROS

TEST WRITES HERDER AND AN ALL

2ZEROS

DATRA

FIELD,

_THEN

gggFggflgRgogngE CHECK HERDER AND DATA COMMAND AND VERIFIES THERE

FORMAT

CHECK

ZEROS W/

WCE ERROR

THE TEST HRITES
COHPLEWENT NG
THE

RDER RND QN

L ZEROS DATA
FIELD.
AFTER
HE
WRITE
BUFFER,
THE TEST

PERFORMS
R WRITE CHECK HERDER RND DATA_COMMAND AND VERIFIES
THE

CORRECT WRITE CHECK

ERROR

IS DETECTED.

THAT

pe
Pt P
e P
e Pt Pt
s et

NOWNILW—-0O

oty

% g&mmwwmmrwwo A

CZRMDBO RMO3/2 FCTNL TST 2
e
23-NOv-77 12:19
CZRMOB.P11

MACY1l

30(1046)

23-NOV-77

12:38

FO2
PRGE

SEQ 0018
PRAGE 30

FORMAT ONES

THE TEST WRITES HERDER AND AN

RLL

ONES

DRTR

FIELD,

THEN

READS THE HEADER AND DATA VERIFYING THE READ BUFFER WiTH THE
WRITE BUFFER., THE ALL ONES FYELD ISA CONSTANT FREGUENCY, AND
THE DRIVE SHOULD USE NORMAL WRITE GRTE.

FORMAT CHECK ONES
THE TEST FORMATS AN ALL ONES
DATA
FIEL
CHECK HERDER AND DRTA COMMAND, VER
ERRORS.

THE

PERFORMS

IFY 6 THAT THERE ARE NO

WRITE

FORMART CHECK ONES W/ WCE ERROR

THE TEST ronnnrs ALL onss onrn

THE LAST WORD OF THE unxr;
BUFFER.

COMMAND 1S EXECUTED,

AND

CHECK ERROR 1S DETELTED.

FIELD,

THEN

COMPLEMENTS

A WRITE CHECK HERDER AND DATA

THE TEST VERIFIES THAT THE CORRECT WRITE

FORMAT MULTIPLE SECTORS

THE vssr sesss
TO CYLINDER O TO

MOTION
DURI
FOLLOWS,
WITH T

COUNT

bua

INSURE

THERE

HERD

TRANSFER.
THE WRITE HERDER AND DARTR COMMAND
WORD counr EQUAL TO MULTIPLE SECTORS.
THE WORD

RERD HEADER AND DRTA PORTION OF THE TEST IS SET

FOR ALL OF ms rms

SECTOR AND THE HERDER OF THE SECOND SECTOR.

FORMRT WITH HEAD SWITCHING

THE TEST SEEKS TO CYLINDER O TO

INSURE

THERE

HERD

MOTION
DURING
DARTAR TRANSF ER.
THE WRITE HERDER AND DATA COMMAND
STARTS WITH CYLINDER
O, TRACK
O, SECTOR 31.
THE
WORD
COUNT
IS

EQUALTM

MULTIPLE

SECTORS WHYCH CAUSES THE SUBSYSTEM TO SWITCH

CZRMDBO RMO3-2 FCTNL TST 2

CZRMOB.PLL
650
651

23-NOv-?7 12:19

MACYLll

30(1046)

@23-NOV-77

12:38

GOe
PRGE

SEQ 0019

FROM TRACK O TO TRRCK 1 AFTER THE FIRST SECTOR IS
RERD

HERDER

AND

DARTR

COMMAND

USES

THE

SAME

WRITTEN.

THE

WORD COUNT AND

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P!1
23-NOv-77 12:19

MRCY1l

30(1046)

23-NOV-77

12:38

HO2

PRGE 20

SEQ 0020
PAGE 31

STARTING SECTOR.

FORMAT WITH IMPLIED SEEK

AND

;g TS

EKS TO THE LQSY CyLl

PRIOR TO WRITING HMERDER

HE EXPLICIT

SEEK

INSURES THAT THERE

gshhflfls *52" gsgg "8Pé82T?8RINGINCLU6"Pt ?Hé EXPLICIT SEEK
IE

REPEATED FOR RERD HEADER AND
D

FORMART WITH MIDTRANSFER SEEK
THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER

TRACK
Nz CTOR 3* CRUSING R &DTRQNSFER SEEK _RFTER THE FIRS?
SECTOR Ig
TTEN. HE SAME SECTORS ARE READ WITH READ HEADER

AND DATR COMMAND.

FORMRT ERCH SECTOR ARDORESS

HEADERS AND DARTA OF EACH SECTOR ON CYLINDER
O, TRACK

ARRE

AND

FORMATTED AND READ WITH THE PROGRAM VERIFYING HERDERS AND DATA.

FORMART ERCH TRRACK ADORESS
THIS

TEST

FORMATS SECTOR O OF

ERCH

TRACK

ON CYLINDER

RERDS ERCH SECTOR WITH THE PROGRAM VERIFYING HERDERS AND DRTA.

FORMART PRIME

CYLINDERS

THIS TEST FORMATS AND RERDS SECTOR 0,

CYLINDER,

1.E.,

CYLINDERS

1,2,4,3,...,512.

TRACK

O ON ERCH

PRIME

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 | e:19

MRCY1!

30(1046)

23-NOV-77

12:38

102

PAGE 21

SEQ 0021

PRGE 32

NNNININNNNNINNYY
) =2 1oe et Pt 0m Pms Pt P pe P O
OOLONCNLWN—0OV

721

FORMRT LAST SECTOR
THIS TEST READS HEADER AND DATA ON THE

LAST

SECTOR

CYLINDERTM 822, 'TRACK 4, SECTOR 31, AND VERIFIES THAT CBt stasos

FOR W/ ROE ERROR
THIS TEST READS MULTIPLE

SECTORS

STARTING

SECTOR AND VERIFIES THAT AOE STATUS SETS.

FORMRT

WITH

%S TEST USES AN ILLEGAL SECTOR RDDRESS AND
ETS.

INVALID

THIS

TRACK

VERIFIES

THRT

VERIFIES

THART

RDDRESS

TEST USES AN

IRE STATUS SETS.

FORMAT

LAST

INVALID SECTOR ADORESS

IRE STA

FORMAT

THE

ILLEGAL

TRACK ADDRESS

AND

INVALID CYLINDER RDDRESS

THIS

TESYT

USES AN

IARE STATUS SETS.

FORMAT RT

ILLEGAL

CYLINDER RUDRESS AND

VERIFIES

THRT

OFFSET

THE PROGRAM SETS OFFSET MODE AND EXECUTES R WRITE HERDER AND
gggflgNSOHHQND
VERIFYING
THAT OFFSET MODE IS RESET BY THE WRITE
)i

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOv-77 12:19

MACYll

30(1046)

23-NOV-77

12:38

JOe2

PRGE 22

SEQ 0022
PAGE 33

IVC FORMAT TEST

VOLUME VALID IS RESET BY SETTING

AND

RESETTING

DIAGNOSTIC

ODE
THE TEST THEN EXECUTES R WRITE HERDER _AND DRTR COMMAND AND
VERIFIES THAT
INVALID COMMAND STATUS SETS.
THE TEST IS
REPERTED
FOR RERD HERDER AND DARTR COMMAND.

FORMAT ERROR TEST(18 AND

16)

R SIN
E SECTOR IS FORMATTED WITH THE
OFFSET
REGISTER
SE T
FOR
16
FORMAT AFTER WHICH THE SAME SECTOR IS RERD IN 18 BI )
FORMAT WI H THE PROGRAM VERIFYING THAT
FORMAT
ERROR
STATUS
IS
THE
SAME PROCEDURE IS REPERTED WITH THE SECTOR WRITTEN I N
SET

18 BIT FORMAT AND READ IN 16 BIT FORMAT.

FORMAT HCE

(FIRST AND SECOND HERDER WORDS)

THESE TWO TESTS WRITE
AN

INCORRECT

HERDER

THEN

REARD

THE

HEADER AND VERIFY THAT THE CORRECT HERDER ERROR IS DETECTED.
THE
SETUP THE CORRECT HERDER,
THEN COMPLEMENT BIT O ANO USE THE

IED

BUFFER

WRITE

THE HERADER.

THE PROCESS IS REPERTED

ERACH BIT POSITION HRS BEEN SEPARATELY TESTED.

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.PI11
23-NOV-77 12:13
799

MACY1l 30(1046)
\

23-NOV-77

12:38

KOe

PAGE 23

SEG 0023

CZRMDBO RMO3-/2 FCTNL TST e
CZRMOB.P11
23-Nov-77 1 e: 19

MARCY11l 30(1046)

801
802
803

TITLE

LO2

PAGE 24

SEQ 0024

CZRMDBO RMO3/2 FCTML TST 2

; aCOPYRIGHT (C) 197
1 #DICITAL
EQUIPHENT CORP.

(o)
8
N
DONCN LW~ DO

12:38

; PROGRAM REVISION #001

800

BRRERPRBt it Pt Pt Pes s Pt Pect Pt Pt

23-NOV-77

et vunst, MASS. 01754
R

;:PROGRRH B8Y DOUG RIIKONEN

P%THIS PROGRAM WA
;:PQCKRGE

000001

$Tn=1

OPERRTIONRL SWITCH SETTINGS

‘e

SWITCH

USE

HALT ON

LOOP ON

ERROR
TEST

i~
sE
E

TM
s
e

13
12
11

o @
;
B

10
9
8

INHIBIT ESROR TYPEOUTS
e~n§L
EXTENDED STATUS
INHIBIT gsnn I0NS

7
6
S

TNi128
TNEY
TN32

9
3

s
;¥

"SPTTL

1
?

BEL
OR
L
ON
ERROR
LOOP ON TEST IN SWR(7:0>

TN1B
TN8

TNY

TN2
TNL

BRSIC DEFINITIONS

é:éckTI&IRDDRESS OF THE STRCK POINTER ##x 1100 %#¥%

CEQUIV %ng?snnon

_EQuIv

IOT.SCOPE

: sBASIC DEFINITION OF ERROR CALL

:'BASIC DEFINITION OF SCOPE CALL

. #MISCELLANEOUS DEF INITIONS

HT=

177774
177772

1977.

mmmcee
eceoceeseeecccccccccce=

s
s

00
177776

JAN 19,

.'BTTL
e

001100

RSSEHBE D USING THE POP-11 MARINDEC SYSMAC

(MAINDEC-11-DZQRC-C3),

LF=

PEEUIV

577;76

CR=
CRLF=

200

§¥KLMT= 17277y

PIRQ=

177570
177570

DSWRz
ODISP=

000000
000001
0ooace

RO=

17777

17757
177570

;3C

::CODE

rgs HORIZONTAL TRB

FEED
RE TURN
IRGE

::CODE

::C

ARR QGEugsTURN-LINE FEED

; ;sPROCESSOR STRTUS

s :STACK LIMIT

;;3nocnnn INT §5u3§
ssoussr REGISTER
TCH REGISTER
;;Hnaofiggi
: 1 HRRD

ISPLAY REGISTER

. ¥GENERAL PURPOSE REGISTER DEFINITIONS

Ri=
R=

%1
%2

::GENERAL REGISTER
: 'GENERAL REGISTER
: GENERAL REGISTER

CZRMDBO RMO3/2 FCTNL TST 2
CIRMOB.PI1
23-NOV-77 12:19

858

MACY11l

30(1046)
23-NOV-?7
BRSIC DEFINITIONS

SP=

12:38

SEQ 002S

in
INTER

PROGRAM COUNTER

*PRIORITY LEVEL

PRO=

PAGE 25

::&fi"‘}t RECIZTER

B3
PC=

MOe

ocrmm

;PRIORITY LEVEL

&
-|'§HITCH REGISTERTM
WiS=z
1

Wiv=z
SWl3=
Sklex
SWilz
z

Y4
20000
10000
4000
e

WU/ =

SKS=

SkObs=

SWITCH DEFINITIONS

100

B D
=

et~

Y=
S0z
EOUI&

e
1

SHO9, SKS
,
,

v
.
.EQUIV

.Egfllg

,» Sk

.Eouiv

:gfig

.EQUlvV
.EQUIV
-l??gfl

, Sl
, SWO
B}T

DEFINITIONS

T3z
BITies
8IT1li=
BI¥
z

2
10000
4000
?008

BI1T07?=

200

Bi73d= 488
2

(BITOO

BITLS)

000100

008040
8

0020
000010
000004
000002
000001

MACYL1l

30(1046)

23-NOV-77

BARSIC DEFINITIONS
T06=

12:38

SEQ 0026

102

BITOlz
BIT00=
.EQUIV
.EQUIV

s %

1709,8179
708,BI78

T 7,8*77
T06,
Tg
TOS.SIT
1T04,BITH
1703,8173
ITS&,BITE
1701,817}1
1700,8170

éc “CPU”

TRARP

VECTOR flDDRESS;

RESVEC= 10

ppeee

PRGE 26

Ji18
§¥T83:

AND OTHER ERRORS

TB%TVECSIH
TR
Cs v

530 T"
:: TR

PHR

BPTVEC= 1M
107
8: e0

i
3

z 24

TPVEC=

,,TTY

TKVEC=

D AND ILLEGAL INSTRUCTIONS
TRRP

AKPOINT TRAP (BPT)
T7QUTPUT TRAP (10T)
R

EMTVEC= 30
TRAPVEC=3Y4

FRIL

PIRQVEC=240

ATOR TRAP (EMT) %xERROR#x
TRAP
INTER VECTOR

; PROGRAM INTERRUPT REQUEST VECTOR

RMO3 REGISTER BIY DEFINITIONS

;RMCS1

CONTROL STATUS REGISTER
un

.SBTTL

<
O
—
b

#%SCOPE#%

,.TTY KEYBOARD VECTOR

;FUNCTION CODES

000020

NO2

100

-EQUIV
.EQUIV
.EQULV
.EQULYV
.EQUIV
.EQULV
.EQUIV
LEQULY

552

JOODODOODD
fim.—.—-.—.—-.—»—.—.—

N—0OVONTN
LW

CZRMDBO RMO3/2 FCTNL TST 2
CZRMUB.PI1
23-NOv-77 l12:19

BIT1l
gIros
1104
BI703
BIT02
BIT01
81700
000077

; DEVICE
AVAILRBLE-READ ONLY
:FUNCTJON CODE
tFUNCTION CODE
EUNCTION CODE

:FUNCTION CODE
"FUNCTION CODE
160 BIT
iFUNCTION CODE MASK

(BITS 01-05 OF RMCS1)

000000
000002
000004
600006
goooig
00012
000014
000016
000020

; NOP_COMMAND
: ILLEGAL COMMAND
:
SEEK COMMAND
RECAL
IBRATE
COMMAND
i DRIVE
CLEAR
COMMAND
RELEASE
COM
'OFFSEY
COMMAND
'RETURN TO CENTERLINE COMMAND
READ IN PRESET COMMAND

22hNov-73 18,10
Pl oB
SER
968
365
970
971
972

%
975

BO3

PAKACK
mgncx
L
&r
¢

£
LF

976

985
386
988

9g7 |

989
990
991
%
994
996
997
99g
999
1000
1001
1002
iooqm

%22
%@5

onooc,o:i
000062
000066
000064

000070
000072
000074
000076

002000
001000
000400
000020
000010
B00004
000002
000001

iwsoos

1007
ioae

1957
{8‘35

=
z

; PRCK ACKNOWLEDGE COMMAND

=
:
=

Iu.san COMMAND
LFJL OMMAND
;
H C

(N &

=
=

JsICLE AL e

LF4

LF¥6
ILFS4

ILFBN

RO
/H
ILF?4
ILF76
;RMOR
TAY
TR2
TA1
SAl6
SR8
SAY
SR2
SA1

=
=
=
=
DISK RODRESS REGISTER
=
BIT10
=
8 109
=
108
=
78-4
=
1703
=
%TO&
=
701
=
1100

2
5

:
WHsIuLJFS&
=
ILFBb =

;
;
KOG
BaTa
COMMAND
G&
&
TA
C
:
m omn COMMAND
s ILLEGAL
: ILLEGAL COMMAND

; TRACK
; TRACK
;ma?(
:
g
(BECT
;
SECTOR
:SECTOR
:8ECTOR

S 4
5 e
1
SS

16
8
4
2

: TRACK
, SECTOR MASKS

003400
000037

18{?

1012
1013
1014
1018
1016
1017
1018
1019

977

980
383

SEQ 0027

v &
M ’3&63“8%a:§?s#°§x¥’osr?n??x

100000
040000
00
010000
004000
002000
001000
000400

200300
000001

TAOMSK
SADMSK

=
=

sRMDS

DRIVE STRTUS REGISTER

&TA
ERR
PIP
MOL
WRL
LBT
PGM
DPR

=
=
=
=
=
=
=
=

it
OM

A
=

003400
000037
BITIS
BIT1N
emg
BITI
BITLI
8IT10
81709
81708

81700
81700

; TRACK RDDRESS MASK
:GECTOR RDDRESS MASK
sATTENTION ncnve
com%&&'é
nggi
xn PROGRESS
En
T
cu.x TRANSF ERRED
£
: WE
mbsm

'SSL
OFFSE 55£ ACTIVE

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NQV-77 12:19

iasg
1883

ERROR REGISTER sl

DCK

HCE

HCRC

ECH

WCF

PAR
RES
FER

000004
000002
000001

115760

000377

002000
001000
000100

003700
100000

010000
001000

000100

o
o

&}
~N
O

[

1068
1069
1070
1071
1075
107
107y
1078
107
{077

;RMER1

IRE
AOE

1063

Re83 B 1 ETERE
1T oeb itone. ©8
axfis

SEQ 0028

oam cr:cx ERROR

1
1

106
1064
}065

CO3

30(1046)

1
1

1031
1032
1033
1034
103S
1036
1037
1038
1039
1040
1041
1042
1043
1044
10N485
10496
1047
1048
1049
10S0
10S1
1052
1083
1084
10SS
10S6
1067

MACY11l

==
=
==

§ rll)é
T
1
T
T

T83

1705

ex;oe

SIT%

:
;,
,
sE

mon
ERROR
RROR

nmuas

Rxc STE

éncmxou REFUSED

ILL;A m«{. 5«

NOTMSK
-ors'u
RC
! HCE ! ECH!
WCF ! FER
;“Nomsx':' ISgss
%R%“figgpsgr; 1 DURING NON - DARTR
! COMMANDS,
) HOUSEK EPING
ITIONING COMMANDS
:RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

sRMLA

LOOK AHERD REGISTER

SCY

S T10

;SECTOR COUNT = 16

¢l

8*789

1358782 &Y Z 3

:RMMR

MAINTENANCE REGISTER

WRITE ONLY BITS

oec§

BIH&

D10
ncbx
MK

=
=
=

BITI12
gxru
IT10

MSER

sgg

SCO
SCTMSK

BERY

MUR

ngg

ngr

=
=

377

BITO6
003700

81113
109

eqos

sMASK FOR ATTENTION BITS

;sec;oa couu; = 3

SECTOR COUNT = 1
SECTOR COUNT MASK

; DEBUG CL

§ e

suom‘gk BLOCK

: %ogfi

:0JAGNOSTIC TIMEOUT
: agrsflms CLOCK
:RE
TR
SUNIT

SON
;

SEEK

.gfl1¥§firgu.f

MidP

51783

Eu&r PRB'TEET

MSC
OMO

=
=

BIT0I
BITO0

!SECTOR COMPRRE
*DIAGNOSTIC MODE

1702

INDEX PULSE

CZRMOBC RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOov-77 12:19
1080

1282
1
1084

e
x%

100000
040000

MACY1l 30(1046)
@23-NOV-77
12:38
PAGE 29
RMO3 REGISTER BIT DEFINITIONS
;

RERD ONLY BITS

0cC
RG

=
=

BIT1S
T14

{mosa

002000

R
EER
=
Plé;g

183%

1093
1094
1097

199
1038

1104
{{82
1107

al';xo

:BR }. B

PHA

10?7

;WR AREA

000040
000020

W
EECC

=
=

T
BITOY

:LORD CLOCK
‘EMBLE ECC OUT

000002

LST

g 781

Eb%(s’ascron AND TRACK

2000
000001

430000

020000
000
020024

1 ég

OMD

2
=

81703

LT Rs eToR:

100

T1C MODE

DRIVE TYPE REGISTER

BlTig

gxna
ITil

i YoPE BRIVE 20 o

=
=
=

;RMOF

OFFSET REGISTER

010000
004000
002000
000200

FMTIE
ECI
HCT
OFD

=
=
=
=

001777

&vLMSK

\RMOC

DESIRED CYLINDER nooness REGISTER

RMMR2

MAINTENANCE REGISTER #2

Hgé
1123

reo

:LOOKING FOR avnc

MOH
DRQ
NGPRT

mt})

1117
1118

CONT

.RMDT

TN
1112
1113
1114
115

: 0CCUPIED
:RUN AND GO

i
T11

1100

1185

SEQ 0029

1124

100000

RGA

1127

8?00%

1130
1131
1132
1133
1139
113¢

001000
00
00
00
000040
000026

BIT12
BIT11
BITIO
BITO?

1777

READ ONLY BITS

IMOVING HERD= 1
!DRIVE REQUEST REQUIRED
s STNGL
IVE TYPE

g R

:16 BIT
FORMAT
:ECC INMIBI
' HEADER COMPARE INHIBIT
!OFFSET FORMWARD

MASK FOR CYLINDER ADDRESS

BITIS

:PORT R REGUEST

157

a%ng

BB0g
BBO8
807
806
BB0S
B804

=
=
=
=
=
=

BIT09
BIT08
g{ro;'
706
B8IT0S
BITOY

'¥AG BUS
:TAG BUS
:TRG BUS
'TAG BUS
:TAG BUS
: TRG BUS

SEQUENCE TEST BIT

EOQS

1136
1137
1138
1139
1140

000010
000004
000002
000001

1154
1155
1156

11582
1158
1159

1160
116l
1162
1163
1164
1165
1166
1167
1163

1169
1170
1171
1172
1173
1174
1178
1176
1127
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191

81701
IT00

:TAG BUS
:TAG BUS

:TAG BUS

BITIS

:BR0 SECTOR ERROR

8{713
112

:OPERARTOR PLUG ERROR
COMMAND ERROR
s INV

BIT1Y

010000
004000
002000
00
000010

BITII
BIT10
BIT0?
8IT03

1147
1148
1149
1150
1151
1152
1183

100000
040000

1146

: TAG BUS

GISTER 2

1145

g*rga

702

1141

1142
1143
1144

SEQ 0030

77
12: 38
PAGE 30
T DEFINITIONS

CZRMDBC RMO3/2 FCTNL TST 2
23-NOov-77 1 e:19
CZRMOB.P11

INCOMPLETE

S§YSTEM CLOCK
:L0SS
b ? BIT CLOCK
EVICE CHECK
!DATA PARITY ERROR

MNEMONICS

BITIS

100000
0000

:SEEK

BITIG

TURING DETECTED SECTOR ERROR

usen DETECTED SECTOR

RMO3 HEGISTER INDEX VALUES

000000
000006
000012
000014
00C016
000020
000024
000026
000030

06
12
14
16
20

24
26
30
32

00003¢
000034
000036
000040
000042
000044
000046
0000S0

*
33

ye
44

50
g2
&4
86
80
62

000054
000062
000064
000066
000070
7
000074
000076
000077

TATUS REGISTER

Rscxsrsn

'ERR
SATTENTI
o

MARINT
T
:DRIVE
;3§R
IOFF

ss REGISTER

Y REGISTER
xsr;a

GISTER
nscxsrsn
REGISTER
G ;52

:ng?fifle

: ERROR ng o;e
PO;

:ESS PR

LEGRL
:
:JLLEGAL
; ILLEGAL
: JLLEGAL
:ILLEGAL
:ILLEGAL

TER

REE2§§ER

GISTER
REGISTER
REGISTER
REGISTER
REGISTER
REGISTER

SO
52
54
56
60
62

64
b
7

:JLLEGAL
s JLLEGAL
: TLLEGAL

249

ILLEGAL REGISTER 74

:MASK FOR REGISTER INDEX NUMBER

IDXMSK

s CONT

DISK

ILLEGAL REGISTER 72

:ILLEGRL REGISTER 76

CZRMOBO RMO3/2 FCTNL TST 2

CZRMOB. P11

23-NOV-77 12:19

MACY11 30(10%)

23-NOV-7?

12:38

FO3

PRGE 31

SEQ 0031

H CONTROLLER REGISTER BIT DEFINITIONS

{}%

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

figus

sRMCS1

CONTROL STATUS REGISTER #1

e
MCPE
PSEL
A17

==
==

8i7ia
BIT13
BIT10
grmq

P REAFER
ims
:;

ROY

S TSZ

;RMCS2

RH CONTROL STATUS REGISTER #2

DLT

g 115

:DATAR LATE-READ ONLY

A
=
MXF
=

g 109

3;:{

BITO?
BIT06

ONLY
%%no ONLY
SurggrmY-READ

1133
fi%
1200
1201

433009
020000

1203

000100

1202

iaoq

001000
00
000200

Ale

158?

1208

1598
1211

HE
1214

100000

e
NED

250000
010000

100
001000

108

112
§ 113
108

INT

, .

ORLY
CRROR
PARITY
CSNTSSL OBUSRERD
;
XTENSION
XT NSION

ORLYY
°m8"r$"‘£§a§‘“
DRIVEREAD° ONG
:RITExjgIen

eo
T
sus
7T
PARITY

5 DAT

1217
1218

000200
000100

MOPE

ORIR

1221

000010

BAI

BIT03

Elka‘egs nooasss INCREMENT

000001

ul
U0

81186
I7

;UN{T gELECT
'UNIT SELECT

{Sg

000007

(ONTMSK

1230

1231

100000

1239

010000

1237

006100

1512

1223

1224
iaesaas
1227

000004
000002
.

sUNIT SELECT MASK

BITI2

.un;rs CHECK

RSN Ko oRD

WCEHI

=
=

BITO3

BITO6

{

IPCKI
IPCKO

=
=

BITOI
BITOO

: INVERT PRRITY CHECK
CHECK
RT PARITY

29
04

R
- O
bt REZTSTE
NG
'BUS RDDRESS REGISTER

IPCK3

IPCK2

1548
1246

200900
000004

Amic.
RMBA

000010

TUNI éaecr

.RMCS3 RH?0 CONTROL STATUS REGIST
nSong PARITY EFROR
BITIS
=
APE

000010
00000M
000002
000001

1247

BIT02

JUNIT SELECT MASK

1238
1239
1240
1241

igzg

SBTTL

RMCS2

81702

:xmsmr
ENARBLE
RT PARITY CHECK

; nvEm PARITY CHECK

RH CONTROLLER REGISTER INDEX VALUES

=
=

!CONTROLLER STATUS REGISTER

7 %2

RMO3/2_FCTNL TST
P11
23-Nov-77 12:19

R PR

000000

GO3

PARGE 325

SEQ 0032

NDEX VALU

RMBRE
RMCS3

=
=

;DATA BUFFER

ABR

120254

176700

2u~§gflg 320703 ADDRESS AND PRIORITY

.SBTTL

TRAP CATCHER

S0
82

:BUS ADDRESS EXTENSION
;CONTROL STATUS REGISTER 3
;

=0
#ALL UNUSED LOCATIONS FROM
4 - 776 CONTAIN A “.+42 HALT*

lSEOUENCE YO CATCH ILLEGAL TRAPS AND INTERRUPTS
000174
C0000QG
000000

lLOCflTION 9 CONTRINS O TO CRTCH IMPROPERLY LORDED VECTORS
DISPREG:
SWREG:
.SBTTL

=1
.WORD
.WORD

O
O

; ;SOFTWARE DISPLAY REGISTER
; s SOFTWARE SWITCH REGISTER

ARCT1! HOOKS

H * 33030 A 33 G0 U 3% 3 3 U 3% 3 2 3 3 3

3 3 % %A% WK% E R E WL NN W E NN AR E RN R R WX E NN EEE RN R R

: HOOKS REOUIRED BY RCTI1
000046
0000Ss2

033156
000052
000000
000200

000200

000200
000137
001100

$5vP

: SAVE PC

SENDRD

;3 1)SET LOC.46 TO ARDDRESS OF SENDAD IN .SEOP

15350

.=8SVPC
.SBTTL
; THE

;32)SET LOC.52 TO ZERO
::

RESTORE PC

STARTING ADDRESS

PROGRAM

.=1100
.SBTTL

STARTS

g?%nr

LOCATION

200

:JUMP TO START OF PROGRAM

APT PRARAMETER BLOCK

!llllll!llllll!lllillIllllllllllllIlllllil!lllilllill!lllliilll

ssr LOCATIONS 24 AND
Y4 RS REQUIRED FOR APT

l!Illllllllllllillllllll!llllllllllilllllllll!lilbi!l}l!llillll

000024

200

§§§§z£s§EEEEFQ}L°?oBINT To START OF PROGRAM
7 STAR

izz?uoa ..POI“} ;o gg; agox

000044

cY 800R£SS PNTR.

=. $X "52§er LOCATIONCRSSN Efi
IillllIllilllli‘llIll}!llil!ll!lllll"llillilllllllllllllllllll

'ssTUP APT PRRAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIARGNOSTIC

*INTERFACE SPEC.

2888
Shee

O
W

CONTROLLER REGISTE

RMOB

Pt P Pt P Pt Pt Pt P
s s Pt e P P (o o B P P Pt P

VR o FRRRRRRR
RERER
SR EREEERRLY R IR TN
\rq2\rqv
LW OWMm
NN £ Whyr-

ot ot ot ot Pt s

Pt P Pt Pt e Pt
Pt P

23-NOov-77

nvs§§1 =

Bt P Pt Pom Pt Pt Pt Pt Pt Pt et Pt P
s Bt s Bt P
Bt 5t

MACYL1l 30(10”6)

000000
001icee
000001

SAPTHD:
SHIBTS:
SMBADR:
$TSTM:

.WORD
.WORD
.WORD

O
SMAIL
1

;1 TWO HIGH BITS OF 18 BIT MAILBOX RADODR
; s RODRESS OF APT MAILBOX (BITS 0-1S)
;iRUN TIM OF LONGEST TEST

CZRMOBO RMO3-2 FCTNL TST 2
CZRMOB.P11
23-NOVv-77 12:19
1308
130S

001106
001110

000002
000002

{385 Ooiiiz BROYIR

MACY11l

30(1046)
23-NOv-?7
APT PRARAMETER BLOCK

SPRS;H:

SUNITM:
TAGRDR

. HWORD

;5838

12:38

HO3

PRGE 33

;3RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT

SEQ 0033

(QUICK VERIFY,

icrsuo-sM?E%Tf?fEkcqwnhBoxEFRA,
BF uBaPETS FOF EACH AODITIONAL UNIT

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19
{ggg

.SBTTL

131
310

; #USED
001114

O0111N

1316
1317
1318
1319

001114
001116
001117
00li120

000000
000
000
000000

1321
1322
1323
1324

001ie4
001126
001130
00113;

000000
000000
000
001

1326
1327
1328
1329

001134
001136
001140
001142

%{ ix

000000

133¢
1333

001150
001151

000
000

1320

132S

13%3

I03

PRGE 34

SEQ 0034

COMMON TRGS

;iTHIS TABLE CONTAINS VARIOUS COMMON STORRGE LOCATIONS

{gig
1314

12:38

oH o B3 3006 330 36 36 36 36 5 06 36 36 38 6 38 3838 36 36 36 36 38 36 38 36 36 30 36 38 36 36 38 3 36 96 3% 36 38 36 36 35 38 3% 46 38 3 30 3% 38 38 3 38 96 3 3 36 36 06 3% 06 ¢

1311

131S

MACY1l 30(1046)
23-NOV-77
COMMON TAGS

001122

001132

SCMTRG:

000000

THE PROGRAM.

.=TRGARDR

;s START OF COMMON TRGS

STSTNM:
SERFLG:
ICNT:

. WORD
.BYT
.BYTY
.WORD

0
0
0
0

; ;CONTRAINS THE TEST NUMBER
; s CONTA
ERROR
FLRAG
; s CONTA]
UBTEST STERQTION COUNT

SLPERR:
RTTL:
TEMB:
SERMAX:

.WORD
.WORD
.BYTE
.BYTE

0
8]
0
1

; s CONTA
RETURN FOR ERRORS
; ; CONTA
TAL S"RRORS DETECTED
; s CONTR
ITEM CONTROL BYTE
; ;CONTRINS MAX. ERRORS PER TEST

SGDADR:
$BDADR:
SGODAT:
SBOORT:

.WORD
.WORD
.WORD
.WORD

. WORD

0
0
0}
0]

(03

s ; CONTAR]
; ; CONTA :g
; s CONTR
; ;CONTRINS

.BYTE
.BYTE

0
0

;;RUTOHRTX(f‘ %82 ihDICQTOR
; 3 INTERRUP
NOICATOR

LPRDR:

SERRPC:

000000
000000

T08:
SINTARG:

.WORD

; s CONTR

RDDRESS

,;CONTQ1:§ PC OF gRST ERROR INSTRUCTION

RDORESS
OF *GOOD’' DRTA
%SS OF 'BRD’ DATA
’
' DATR
"BAD’ DRTA

; ; RESERVED--NOT TO BE USED

{::g‘s 88{{?5 ?995098
133 001156 177570

SWR
.muono gsun
DISPLAY: .WORD DOISP

RD
TCH REGISTER
Ezmggfgg 8? ?&va GISTER

1338
1339
13490

001162
001164
00l16b

$TKB:
$TPS:
$TPB:

177562
177564
177566

5 TTY
FER
i3 TTY
NTER
STRTUS REG.
;:; TTY PRINTER BUFFER REG.

1342
1343

001171
001172

SFILLS:
SFILLC:

.BYTE
.BYTE

1337

1341

1394

1345
1346
1347
1348
1349
1360
1351

1352
1363
1354
1355

1356

001160

00}1?0
001173

001174
001176
001200
001202
001204
001206
001210

001212
001216
001217
001220

177550

000

STPFLG:

000000
000000
000000
000000
000000

177607
7
01S
000012

ng
1362
1363

SNULL:

0le

{ggg
1361

$TKS:

177%.2
177564
177566

000377

177560

.BYTE

;; JIY KBD

.BYTE

ADDRESS
RDDRESS

s ; CONTAINS NULL CHARACTER FOR FILLS

e
12

5 : CONTR N? 8 OF FILLER CHQRGCIERS REOUIBED
;;_I.NSER
ILb CHARS. QFTER AR
“LINE FEED

$TMPO:
STMP] :
WORD
sSTMP2:
WORD
STMP3:
WORD
STMPY:
WORD
STIMES: O
SESCAPE: O

STATUS

0
0
0
0
0

$B8FLL:
$QES:
SCRLF:
SLF:

.RASCIZ
.RSCII
.RASCII
.RSCIZ

<«207><«377>¢377>»
-7/
«1S
<12

'8BTTL

APT MAILBOX-ETRBLE

TERM

VRILABLETM

FLAG

: s
USER
F
D
i
R
F
;3
R
F
s
R
FINE
; s
USER
F rfio
s : MAX
OF ITERATIONS
;;ESCRPFOSN E
RODRE

(BIT<07>=0=YES)

;;C
BELL
; s QUESTION
; ; CARRIAGE RETURN
cLINE FEED

e 3006000000 06 00 0006 006 00 0636 06 00 6 00 0600 30 06000 00 0000 6 06 00 0000 00 0000 0000 0000 0000 00 8 1000 00 004000 30 030 36 00 0030 36 00 0 3

;élglllllllllliillilllllllIlllllllll&lllllllilllll!lll!llllllllll

001222
001222
00leed

.EVEN

000000
000000

SMAIL :

SMSGTY:
SFATAL:

.WORD
.WORD

AMSGTY
AFATAL

; ; APT MAILBOX

;:MESSAGE TYPE CODE
;;FATAL ERROR NUMBER

CZRMDBO RMO3/2 FCTNL TST 2
CZRMO8.P11
23-NOV-77 12:19

1364

001226

1366

0012

1368

00123

1365
1367

1369

ooxag

1371
1372

1373
1374
{gg

000000

001234

000000

001240

000000

1370 001245
00124
001243

001244
00l246
001250

000
000

000000
000000
000000

1378

1383
iggg

S$DEVCT:

.WORD

RDEVCT

;;:DEVICE

-WORD

- WOR

SENV:
SENVM:

.BYTE
.BYTE

MSGLG:

SETABLE :
§SWREG:
SUSWR:
SCPUOP:
.

.WOR

.WORD
.WORD
. WORD

AUNIT

;;PASS Eoum

001253

000

NUMBER

;;;Eg

RENV
AENVM

2 JENVIRONMENT BYTE
;;gvxaomsm ngog E3 S

AMSGLGE

ASWREG
AUSWR
ACPUOP

:RPT SWI

BIT 10=R

$MAMS1: .BYTE

AMAMSL

SMTYPL: .BYTE
.

AMTYPl

TM
§MAOR1:

.MORD

AMADRI

8IT
BIT

é / ?:%
'PD@=07,0=10
IME

;;HIGH neggsss M.S. BYTE

:MEM. T
ELku
fitn.rvpsgng
c-Eont(:HégT BYTE)

g "M%E axposommoa
L”fc3 BLKS] 3

HIGH

""MEM.LAST
R DR.=x3 BYTES,THIS WORD AND LOW OF “TYPETM ABOVE

$MaMS2:

.BYTE

AMAMS2

1382

001260

000000

SMAOR? -

. WOR

AMADRZ

; iMEM.LRS

1395

001264

000000

AMADR3

iMEM.L

1338

001270

1399
1400

001272
001274

1402

001300

{401

000
000

$MAMSH: .BYTE
SMTYP4: .BYTE

AM- >4
AMTYPY

SVECT1: .WC~D
SVECT2: “°§8

AVECTL
AVECT2

sosxn:

- WO

nosxn

SCOW2:

.uong

nco:s

00000Q

S("HS:

- WORD

000000

SOOWS:
sggu;:
SOOK
SETEND

$MADR3:

.WORD

000300

SMADRY:

. WORD

176700

SEISE:

120254
ogoooo

000000

001302

000000

1405
1406

001306
001310

000000
000000

1408
1409

001314
001316

001312

001320
001322
001324
001326

000000
000000

o
o
(=}
o

s
Bt Bt Bt Pt Pt B

DU NN EWNN—-0O

Pt Bt B

e B
Pt Pt Bt
e et P
e Da

fEXfELELLLLL

1407

001304

W
n
o

1404

[

1403

001276

AMTYF

SMAMS,. .BYTE
SMTYP3: .BYTE

SCOML:

SO0MO:
SO0W]:

§. UW3:
SODW4:

LMEXIT
—

001266
001267

.BYT

000
000

r
m
[3]

139%
1397

001262
001263

SMTYF2:

1333
1394

000

.WC
.

. WOR
.WORD

.WORD
.WORD

.WORD
WORD
W
.WORD

; THE REGISTER

AMAMSI
RAMIYP3

ABASE

;;HIGH ROOFE :s M.S. BYTE

;;rin.mr‘;,

::MEM.LAS

SS,M.S
,BLKbY

SS, BLK#

::INTETM PT
;:INTEn~ ®PT
:;

:0EV
i
DEV

VECTOREI aus PRIORITY#!
VECTOR22BUS PRIORITY#2

m%s

::0EV S&.

%“

RDD
RDD
RDOW

JCONT

;iDEV

D
iDEV
;;DEVIC

i v§c
,,&v ¢
;iDEVIZ

EQUIPMENT UNDER TEST

LER

RIPTION WORDS]

8&97 ON WORDS2

TOR
WORDS®
RIPTOR WORDSI

PTOR

INPUT BUFFER

WORD®2

RIPTOR
WORDS3
CRIPTOR WORD#®Y

scn{PToa WORD #5
SCRIPTOR WORD#6
SCRIPTOR WORD#7

:STORING DRIVE STARTUS

ss,euua

ss,guua

;;HIGH
;;gn.r

;;

RDOWM

;i HIGH
SS,M.S.BYTE
;:MEM.TYPE,BLKb

ACOM1

" CLOCK

9=rtomxm POINT Paocssson
8=FEMORY MANRGEMENT

0012S6

001257

NT TRBLE

:;APT SWITCH ng 1ST
;;USER SWITCHE
éi??";?fi'%l?"gg

1390

1331

oa;ss

LENGTH

11/04=01, u/os-oa 11/20=03, 11/40=04, 11/45=05

tm
:¥

COUNT

:;I1/0 UN]JT

AMSGAD

1386
{3'3&3 001254 000000
1389

;;TEST NUMBER

APASS_

001252

SEQ 003S

RTESTN

.WORD

1379

1382

PAGE 35

.WORD

sunxr.

12:38

STESTN:

$PASS:

000000

1377

1380
1381

MRCY11 30(1046)
23-NOV-7?
APT MRILBOX-ETABLE

JOJ3

IS USED FOR

CZRMDBO RMO3-/2 FCTINL TST 2
23~-NOv-77 12:19
CZRMDB. Pll

DONCNLEW

1450

IRE FEARIRE

nrsn

.WORD

;augx

;D1
:CONT

£SS
* R

GISTER

RMCST: " WOR
RMERLI: . WO
2"“2*: .uggo

:
xgs
:
FATTENTT

RMOFI: .WORD
RMOCI: .WORD
RMCCI: .WORD
R
. HORD
RME
¥
- WORD
RMECIT: .WORD
RMEC2I: .WORD

;orr?c
ngcx TER
:DES RE?
YLINOER REGISTER

R:BB : Iuoag
snor#l agao
RMSNI: .WORD

PUTBUF
:

001400

gnggéo: ggggo

001412
88141

TUS
REGISTER
GISTER
GXS¥ESEGISTER

:DATA
FER
i BafE TYPE RE x?EER .l
ESER¥E# NUMBE
GISTER

:CLRRENT
CYLINCER REGISTER
‘MARINTENANCE
REGISTER #2

;ERROR REGISTER 2
:ECC POSITION REGISTER

{ECC PATTERN REGISTER
BUFFER

IS USED FOR

-REGISTER OUTPUT BUFFER

pnkggo:
HOR
RER10:
Rt

30:

sgfi

R TAus REGISTER

.WOR

* 0R0

: . WOR

arvenrx

RMCR0:
. WORD
528?50’ .uogo

0014ee
0014c4
0OC1426
0014
0014
0014
001436

nnx

:8“&
,orr

RMCCO:

i C

g:gggg

: US

.WORD

.MWORD

ECC PR TERN REGISTER

NORD IS A BLANK
TSTQUE:

n REGISTER

"2
NTENRNC

.BLKW

nscxsvsn 82

:gc? fgflREGISTE

ACH WORD OF THE
HE LOW BYTE AND

000012

cxs ER

'5828

n CIG: .WORD
C20:

iSvsgecxsrsn

s Rgcx§gga sl

RMSNO
RMOFQ:¢ Zuéno
.WORD

RMOCO: .WORD

001440
001442
001444
001446

001450

CONTROL
svnrus REGISTER

RM 30: .WOR

1457 QOI4le
1458 0014%8

001400

1454
1455

£L£L
NNN
[P AN

SEQ 0036

con7not STATUS REGISTER
;WORD
COUNT
REGISTER

RMDALl: .WORD
Rngéfx: . WORD

1425 314

— b

PRGE 36

Recxsrsn INPUT BUFFER

s THE REG*STER OUTPUT

00{902

1466
1467
1468
1469
1470
1471
1472

KO3

:RSSEMBL ING DARTA GOING TO REGISTER

iHSl

1459
1460
1461
1462
1463
1464
1465

12:38

hncs
WORD
MICl:
. WORD

S ISP IR

ot Gt et ot Pt Pt Pt Pt $e

s ot et Pt Pt ot Pt e P

Pme

fJ’.-CIII-C fff‘&&&lll&é&‘
L&*I&I A5 3BIE ALY

1428

30(1046)
23-NQv-77
RPT MARILBOX-ETRBLE

:
GETBUF

001330

BEE8988EReeRRrRaRRes

1420

MACY11l

TEST QUE CONTARINS
THE ATTENTION BIT

THE DEVICE NUMBER IN
IN THE HIGH BYTE. R ZERO

AND REPRESENTS ThE END OF THE QUE.

10.

; TEST

QUE

cznnoeo RMO3/2 FCTNL TST 2

CZRMOB.P11

23-NOV-?7 12:19

MACY11 30(1046)

@23-NOV-77

APT MAILBOX-ETABLE

12:38

LO3

PRGE 37

SEQ 0037

147

:MEDIA ENABLE 1S SET IF THE BAD SECTOR
F L ES HAVE BEEN RECOVERED

i:gg 001474 000000

HEDENS -

1481
1482

:LOCATIONS “ASNOCTM AND "nsroc
onsss RSSIGNED BY rue eao

1478

{FOR THE UNJT UNDER TEST

1483
001476 000000
1484 001500 0060000
1486 001502 000000
i:gg 00150~ 000000

1488
1489

ngs

As n .WOR
-WOR
CLKADR: .RWCRD
CLKVCT: .MWOURD

T INDEX TRBL
READ BY THE GET

i:gé 00iS06 000027

1480

CETINX

1493

; THE PUT

1494

001535 000027

neenrxvs
gv

OT R”ISELET ZERO.

mm THE CYLINDER, TRACK AND SECTOR
E

gsac
chx
x, AND S on
'NI
S’ Of xuxx CLOCK
nooaess OF KW1l CLOCK

conrnx
A BYTE LIST OF REGISTERS WHICH
SUBROUTINE.
THE LIST IS TERMINATED 8Y

;GET INDEX TRBLE

]NDEX TRBLE ICONTAINS
A BYTE LIST OF REGISTERS WHICH

RRE WRITTEN BY THE PUT SUBROUTINE.
nscntxve
gvre

#urxnx

;PUT TRGS HERE

; PUT

THE LIST IS TERMINARTED BY
INDEX TABLE

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-M0v-77 12:19

.SBTTL

R
R aRe

1
1
1
1
!

MRCY11 30(1046)
23-NOV-77
12:38
ERROR POINTER TRBLE

SEQ 0038

ERROR POINTER TRBLE

.fidVITHRE,
¢norsa
¥
Su

1811

1510

1516

PRGE 38

; #THIS TABLE CONTAINS THE INFORMATION FOR EQCH ERROR THAT CAN OCCUR.

1
1509

1812
1513
1514
1815

MO3

001564

SERRTB:

?8’%&:"%«8?&"?55"&(ChTP TR 1iTRolf 15 pemTInenT.
D‘
Y PERT
NT DATA IS (SERR

e I5eR
EM
DH
pr

RBL

CORTAINE

4 BOINTERS EXPLAINED AS FOLLOWS:

POINTS 10 THC ERROR MESSAGE
ATA" HEADER
ATA FORMAT

o—NZQs4ETlaoFtOlgoXaQtiIyaoOiOta-m2z4agLg*|NoI=gWFgBOQolN0OretQL2w=-o9tnrb=WERgolIMbe])OSotiuYokt(WAoZ48V'¥[H]S+=WQrR4oA40oiSoutN—wtt[—@za4@[]+TgrFEowtriyoo—uwti[aQ]-wa>=wnr]oFMZrtIsortWOooguon)wl(Wzx>—Te3)]WF40EI0ENo4TO8oHtuYoL[=L-&>xVo}m}[)=3—OXglOOgPl0vidNl=-4i[m“]Wo-w=p]e
AIA!8QWAU5OnlTNsOaI508lNol.lPD83F7O1DQm8O01DR11OFo81T5U1YN6OR5DN111s8NwY)6aV15si9AVq8T|SA|Ae|581Y.QRA16aosR11A18]BqIV5RaV1.sE[V1q58B116nG-u18%n68o1H8o1'B.T1m8Ox!n5a;8sR15q1
a4noo=ldeollo—lt|ow“ooV[w>g¥L)Yn7]]]| N-W2oQo( oxQ 44a7 ->> a[[l++ e==t=tM)(7&=@ 9Wwl W— a- Lx3@[o]H] W=Netre=—eY[[(“oo W- oQ= oH >P Lg>3 +&']])4L b—r—F4WQQ -4[++ ==tM)8Wo wW[ Q- —- zXzz-=]| ooylgootl0Y|((oQ W|rzaW 4-YV&7i))] o=44g==t-oo( W< O> —z— n4dr= L
)[
MACY11l

; ERROR

~-— WX4[ D-- Wz-

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19
30(1046)
23-Nov-77
ERROR POINTER TRBLE

12:38

NO3
PAGE 39

SEQ 0033

ERROR

; ERROR

ERROR

— W 4 W [&] (] [7] |W[+
4

4
[+

oN[¥%WOo
eNIpX=JNt—OTAtIl——SWtt)——y[»et}L[O—QxozWxT=o]==—IN—44loEro=StfT—ivotRlOoe[tilWm[QQ -4m[Dn-L x|w+[«4+o—B¢H—tetNM=lguERolI=iYJtoOl[i(1[=44zz [m[(LT=V7[)4+*]1+]]=WqeR-4]at]NoyIT4VHI—RoT=gY[N=s[7tTg4V][([[-4QQQ o42o<-- Ve+=8'L[['}]r]4+«4~=TeF—4ltiOEroy=l—RaI—=giaMO—=TtigW(([4oz 4am(wo9<[z-78Wg2[[«+n]]]++}=B—4M-gwE8ootilXSodotlIuNoToOtMil-4Qo4x<—ma4m[( Ww[[[[+»+
ounfg3358 NS

s ERROR

~==
EXO
lL
g vl ol ol

T2 85av-73" 18 19
30(1046)

-NOV=-7?
ERROR POIN ER TRBLE

—sailsiui

12:38

Q [

2& 3&21) &]2 &3o &WY w&e4>[+

8888

gSiO88Ng5Yg68B-W[¥YS]TPp-Ghev8i8&P8Nv58eWgPP88e5P88N5PWPLPPD8NT&L8T8B5e[O¥Y]DD&LA3S58NLb3Ne&8LwRee68N8L86L3L8BTA wLLDLLRLLeDL,DLLLl
o o 4[+
Pll

MARCY1l

BO4
PAGE Y40

SEQ 0040

GO NOT RESET BUT DRIVE IS RERDY

INCORRECT FUNCTION CODE

)& w-

a [¥Y] (& - (73] - w[
4 [}

23-NOV-7§ 12:19

CZRMDBO RMO3/2 FCTNL T9T @
Pt Pt Pt P

st Pt P

6
631
833
63

065576
071524
071650
071740

0017274
001776
002000

%ng
1524
0716S0

002004
002006
002010
002012

065616
071Se4
0?1950
071740

002014
002016
002020
002022

065626
071524
71950
07!

6.‘?

001764
001766
%1770
1772

s ot Pt (ot P

637
638
639

g:?

002002

s Gt Pt Pt Pt Pt P Pt Pt Pt Pt P

644
64S
6‘49
E:B
649

658

002026

Pt Pt (s Pt et pacn. Pt Pt Pt Pt Pt Pt Pt Pt P

659

665
666

065636

065646
071524

671

672

002044

065656

002054

065666

Pt Pt Pt Pt P

680

681

683
684

0715

g7ices

21330

INCORRECT CYLINOER RDDRESS

INCORRECT WLE STATUS

;ERROR

INCORRECT UPE STARTUS

;ERROR 2S5

INCORRECT WCF STARTUS

EMT23
EHTI
EPTI
T1

EMT2Y
EHTIL
E Tl
Tl

EMTES
EHTIL

;ERROR

EMT26
ENTI

INCORRECT WCE STATUS

123
:ERROR

EMT27

INCORRECT MOPE STATUS

i11

679

MT22
HT1
EDT!

;ERROR

EMT30

HT1

£
1

SEQ 0041

INCORRECT DISK ADORESS

4 b" T
B
2193
678

PRGE 4l

;ERROR

871538

670

cOoH4

EFTIL

Seu4

002034
002036

885348

;ERROR

gg;

Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt

651
652
653
6SH
655

S
MT21

12:38

EHTL
EETI
Tl

650

; ERROR

071740

b4e

643

ERggfl &OIN?ER ¥95LE
23-NOY-77

mm
mOo

CZRMDB.P11

MACY1l 3Q(1046)

INCORRECT DCK STATUS

LR3YIFRNARFYLERYISgNZA82NF8Ymmmn
wWWw i Q¥¥e -2:Y - - WWWW .z22 ._

]L=UoLFTON=yWXLlrLt~LwILoiOLo4&wu[+LNLNL—0MMN—NyetEoL—NTNltLtON~LWoo4]OZQ"DwL9L42ns[tt0LLe(WMDr-ot]VLea]EtLt—XWDJMO£0[[LLo(xQW4ov-+==at]]4|eLoLNLoeMNo=lD0E4=oelWIte—0l¢eTo1)T]MtO)|e([L-4o|zLvaDx"=['28]+}LTLkee0MF-teTo=ottI0—ttlIRTWDMRO))([[=L4QD@<-WWe=@*1tTpl]4]DalOalOk0YeM—oIIlb[WIlD0—aITlWD-MTVoO)WM)D=[(o@v4Q2WW-e+L74Oxl3]b]aDlaOlW0=aMO=OIlN=toNTtlW0=aXN]tlLtWoaNV)l(0|=[NoNaQxlD@X¥LaV14-]loYny}tNalNo40elM—=tu~0gl—aiaEwl—=—atuXel-MaOiloe4-@[|OWx3uaL1a[82+)

RNSR8gn(OEdiIVgSoe4REaSTRQgASG8N[ST|x]VNE9}TRI(YgNm=]RAG37ETOe£mownRDTQAN[NI0ITYSN?[NxQ]NQTN4AFROT8[2NoWEAgoNO2lnS7a)O3N2VbtmWRom#UNEDO?TN.3?9NO4o-vRoNBT£(D1A)20T2Lxm)[Ty
CZRMOB.P11

CZRMDBO RMO3/2 FCTNL TST 2
23-NoV-77 12:19
MACY1l
30(1046)
23-Nov-?7?
ERROR POINTER TRBLE

12:38

DO4
PRGE 42

DPE SHOULD NOT BE SET (NOT A DARTA COMMAND)

SEQ 0042

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19

1741

1742
1743
1794
1745

002164
002166
002170
002172

065774
071524
071650
071740

1748
1749
1750
1781
1762

002174
002176
002200
002202

066004
071524
071650
071740

002204
002206
002210
002212

066016
071524
071650
071740

1763
1764
1765
1766

002214
002216
002220
002222

06
071524
071650
071740

1769

224

1743

1755

1756
1757
1788
1789

1761

1762

1770

002226
002230
002232

071524
071650
071740

1776
1777
1778
1779

002234
00223
002240

066046
071524
071650

1780

1783

1783
1784
1785
1786
1787

1790
1791

1792
1793
1794
1795
1796

002254

06E06M

071524
071650
0717490

EOM

PAGE 43

Y41

LOST "MOL" DURING PACK ACKNOWLEDGE

;ERROR

42
EMTH2
EHT1
EDT1
EFT1

UNSAFE ERROR DURING PACK ACKNOWLEDGE

;ERROR

“OPI* ERROR DURING PACK ACKNOWLEDGE

“RMR* ERROR DURING PACK ACKNOWLEDGE

EMTHS

“ILR" ERROR DURING PACK ACKNOWLEDGE

46
EMTHE
EHT1
EDT1

“ILF*

47
EMTH?
ENTL
EDT1
EFTI

COMPOSITE ERROR STATUS

PARITY ERROR WRITING REMOTE REGISTERS

;ERROR

EMTYI
EHTL
EDT1
EFT1

EMTH3
EHT1
EDT1
EFTI

EMTHY
EHT1
EDT1
EFT1

EHT1
EDT1
EFTI
;ERROR

EPROR DURING PACK ACKNOWLEDGE

EFT1
;ERROR

071524
071650
071740

12:38

;ERROR

071740

002244
002246
002250
002252

002256
002260
032262

30(1046)
23-NOV-77
ERROR POINTER TRBLE

;ERROR

1771
1772
1773

1775

MACY11

;ERROR

EMTSO

EHT1
EDT1
EFT1

INCORRECT

SEQ 0043

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-Nov-7?7 12:19

1797

1798
1799
1800
1801

0Oc226M
00ecebb
002270
002272

74
071524
8?1650
071740

180S

002274

066106

1807
1808

002
002302

iBOE

1804
1806

{810
1811
1812
1813

1814
1815
i18l16

0022

%530‘4

066124

002314
002316
002320

066142
071524
071650

1827

002324

066

1829

002330

071650

1820
1821
1822

1823
i&:'#

1826
1828

1830
1823

1834
1835
1836
1837

1840

1841

1842
1843
1844

002322

0e6202

1849
1850
1851
18S2

;ERROR

066212
07152
071650
071740

INCORRECT IRE STRTUS DURING SEEK COMMAND

OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE

EMTSI
EHTI
D71
FT1

EMTSe

83
EMTS3

OPI ERROR DURING SEEK ~ MEDIUM IS ON LINE,
ON CYLINDER LATCH DIDN'T RESET

SY4

EMTSHY
EHT!
EDT!

SEEK INCOMPLETE ERROR DURING SEEK COMMAND

EFTL

;ERROR

5SS

EMTSS

DEVICE CHECK DURING SEEK COMMAND

EHTL
EDTL

EFT1
;ERROR

;ERROR

PIP IS STILL SET RFTER SEEK - SKI IS RESET

§7

RATAR DID NOT SET DURING SEEK CQMMAND

EMTISE
EHTI
EDTL
EFTL

EMTS?7
EHTI
EDTI
EFTL

;ERROR

002354
002356
002360
002362

SEQ 0044

EHTI
EOT!
EFTL

071524
071650
071740

1847

1848

;ERROR
;

071740

PRGE 44

EDTI
EFT1

071S

066164
071524
071650
071740

FOu4

EHTIL

071740

002334
002336
002340
002342

002346
002350
002352

;ERROR

071650
071740

071Se4
071650
07i740

1819

;ERROR

071524

306
002310
002312

MACY11l 30(1046)
23-NOV-?7_
12:38
ERROR POINTER TRBLE

60
EMTE0
EHTIL
EOT!
EFT]

IVC ERROR DURING SEEK COMMAND - LOST

VOLUME VALID

RSSUME

cznnoeo RMO3/2 FCTNL TST 2
CZRMOB.P!1
23-NOV-77 12:19

1855
1856
1857

1858
1869
1860

iaax

002364

002366
002370
002372

066230

1865
1866

1867

002400

1869
1820
1871
1872
1873
1874
1875

002402

002404
(002406
002410
002412

00D0OC
000000
000000
DOOOOO

002414
002416
002420
002422

D66266
071524
071650
071740

i£7e
1878

1879
1880
1881
1882

ieeq

002374
002376

1885

1886

1887

1888
1889

1891

1882
1893

1894
1895
1836
{eq7

xeqé

1900
1901
1902
1903

1306
1907
1908

002426

002430
002432

066306

002444
002446
3450
82

066340
071524
071650
071740

002454
002456

066352
Q71624

EMTEL

PRAGE 4S

SEG 0045

ERRONEOUS IVC ERROR DURING SEEK COMMAND VOLUME VALID 1S STIL SET

62
EMTH2
EHTI

MOL IS ZERO,

BUT OPI WRS NOT

REPORTED DURING SEEK COMMAND

EDT1

EFT1

:ERROR

63
0
0
0
0

UNUSED

:ERROR

DRIVE DID NOT DETECT "IVC"” ERROR DURING SEEK

DRIVE EXECUTED R SEEK WITH ERROR SET

: ERROR

EMTEY
EHTI
EDT1
EFT1

MT6S

EHT]

071650
071740

066326
071524
071650
071740

071524

002434
002436
002440
002442

GO4

EHTI
EDT1
EFT1
{ERROR

066250
071524
071650
071740

1868

:ERROR
:

071524
071650
071740

1863

1864

MACY1l 30(1046)
23-NOV-7?
12:38
ERROR POINTER TRBLE

EDT1
EFT1

:ERROR

b6
EMTE6

UNEXPECTED ERROR SET

IN RMERI

EHTI
EDT1
EFT]

:ERROR 7

UNEXPECTED ERROR SET IN RMER2

{ERROR

ERRONEOUS “IRE" ERROR DURING RECALIBRRTE

EMTE?
EHTI
EDT1
EFT1

70
EMT70
EHTI

CZRMOBO RMO3/2 FCTNL

CIRMOB.P1I
1909
1910

TST 2

23-NOVv-77 12:19

002460
002462

071650
071740

1914

002464

066362

1920
lgSé
1

ra |
76

1915

i3ls cosige
1919 %S:?
1923
1924
{985

002500
002502

1929

1930
1931
1932
1933

135

1936

002506
002510
002S12

002S14

6372
1624

066410

1942

002S32

121
foe3d G31o3e
%5 gesig grice
1964
1985

1966
1967
1%8

1960
1961
1962
1963
1964

0Q2s

6466

71650

002584

;ERROR 7?71

EMT?71

;ERROR

PRGE 446

SEQ 0046

“ILF*" ERROR DURING RECRLIBRATE

7?2
MTZ72
HT1

“OPI” ERROR DURING RECALIBRATE DUE TO "MOL"” =0

EDTI
EFTL

;ERROR
73
:

EMT73

*OP]” ERROR DURING
RECALIBRARTE BECAUSE ON
DROP

CYLINOER DIDNT

EHXTL
EDT!
EFT]

;ERROR

EMT?7Y

*IVvC” ERROR DURING RECALIBRARTE - "Vwv*

EPTI
;ERROR

ERRONEQUS *“IVC"” ERROR DURING RECALIBRATE - "vv" = 1]

EFT}
;s ERROR

7%1’76

*SKI” ERROR DURING RECALIBRATE

i
;ERROR

155‘0

7?77
MT??7

“DVC"” OCCURRED DURING RECRARLIBRATE

HT1

D71

071740

06ES00

HO4

o
T1

071740
64

12:38

DT1
FT1

071524
071650
071740

066426

@23-NOV-77

ERROR POINTER TASBLE

071650
071740

19% 002sSee 071740
1330
1946
1947
1948
i9‘49

30(1046)

£PISSh
87194

lgse;

MARCY1]l

EFT]
;ERROR

100
EMTI00

LCST

"MOL*TM

DURING RECALIBRATE

- "OPI"

CZRMDBO RMO3-2 FCTNL TST 2
CZRMOB.PI11
23-NOv-?7 12:19

MACY11l 30(1046)
23-NOV-77
12:38
ERROR POINTER TRBLE

196S

002556

0715e4

EHTI

1967

002S62

071740

EFTL

002564
002566
002570
002572

066516
071524
071650
071740

002574
002576
002600
002602

066534
071524
071650
071740

1966 8025&8 071650
1970
1971
1972
1973
1374

1977

1978
1979
1986
1981

1984
198S
1986
1987
1388
%989

1991

1992
1993
1994
1995
i‘?%

1998

1999
2000
2001
2002

200S

2006
2037
2008
2009

201%

201
2014
201S
2016

2013

2020

002606
002610
00etl12

066544

066556
071524
071650
071740

002624
002626
002630
002632

066574
071524
071650
07174C

002634
002636
002640
002642

066604
071524
071650
071740

002644
002646
002650
002652

066614
071524
071650
071740

002e54

0ObbE34

PRGE 47

EDTI
;ERROR

;ERROR

071524
071650
071740

002614
002616
002620
002622

I04

101

LOST “VvV"” DURING RECALIBRATE - “IVC” = 0

102

"ATATM DID NOT SET DURING RECARLIBRATE

EMT10!L
EHTIL
EDTI
EFT1

EMT102
EHTI
EDTI
EFT1

103
EMT103

*“OM” DID NOT RESET DURING RECALIBRATE

104

“PIP" IS STIL SET RFTER RECALIBRATE

10S

UNEXPECTED "ILR" ERROR DURING RECALIBRARTE

106

UNEXPECTED “RMR” ERROR DURING RECALIBRATE

107

"UNS"” ERROR DURING RECALIBRATE - AC POWER IS LOW

110

CANNOT RCCESS MASSBUS CONTROLLER VIA UNIBUS

EHTI
EDTI
EFT]

;ERROR

EMTIOY
EHTIL
EDTL
EFT1

EMT10S
EHTIL
EDTI
EFTL

EMT106
EHT1
EDTIL
EFT1

EMTLI07
EHTL
EDT!
EFT1

EMTLI0

SEQ 0047

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.PL1
23-NOv-77 12:19
2021
2022
2023

002656
002660
002662

071546
071666
071756

202
2027
2028
2029
2030

002664
002666
002670

066646
071552
071670
071760

002674
002676
002700
002702

066654
071552
071670
071760

002704
002706
002710
002712

066662

2048
2049

002714
002716

066676
071556

20S1l
205%

002722

071762

'
20es

2031
2032

2034
2036
5837
2039

2040

2041
eg4e
2043
2044

20s0

2054
2055

066704
071524
071650
071740

202
2063

002734
002736

066714
071524

29
2070
20?1
20?2
2073

002744
002746
002750
002752

066724
071524
071650
071740

002754

086734

2057

2058

20s9
2060

e061l

o4
206S
206b
2067
2068

002740
002742

2075

2676

111
EMTILL
EHTLLI
EOT111
EFTIL11

NONEXISTENT DEVICE

;ERROR

112
EMTile
EHT11l
EDT111
EFT111

DEVICE NOT AVAILABLE

113

BUS TIMEOUT-NED STRTUS FRILURE

114

DEVICE NOT AN RMO3

;ERROR

EMT113
0
0
0

EMT11M
EHTIIY

EDTILIM

EFTLIY

;ERROR

071650
071740

2074

PRAGE 48

;ERROR

071672

002724
002726
002730
002732

JO4

EHTII0
EDT110
EFTL110

000000
000000

2046

2047

MACY1l 30(1046)
23-NOV-77
12:38
ERROR POINTER TRBLE

115

RMCS1 NOT INITIALIZED BY UNIBUS

116

RMBR NOT INITIALIZED BY UNIBUS

EMT11S
EHT1
EDTI
EFT1

EMT116
EHTIL
EDT!
EFTIL

;ERROR

117
EMTL117
EHMTL
EDT1
EFTI

RMCS2 NOY

INITIALIZED BY UNIBUS

120

RMER]1 NOT

INITIALIZED BY UNIBUS

EMT120

SEQ 0048

CZRMDBO RMO3/2 FCTNL TST e
CZR08 P11
23-NOvV-77 12:19

2077
2078
2079

0027
0027
002762

071524
071650
071740

%7@#

744

e08s
2086

%5’70
772

2081

eo8e

766

8 1524

2090
2091
209%¢
2093
204
209s

002774
002776
003000
003002

066754
(071524
(71650
071740

2097

003004
003006
003010
003012

066764
071524
071650
071740

2104
2105

003014
003016

066774
071524

2107

003022

071740

08?7
088

2089

209
2099
2100

2103

2106

2110

2111

2112
el13
2114
el1z
2118
2119
el20
elal

2124

2les
2l
2127

MACY1l

30&10‘!6)

ERROR POINTER TRBLE

;ERROR

071524
071650
071740

003234
003036
003040
3042

067014
071524
071650
071740

OC2044
003046
003050

067026
071524
071650

2le8

003052

071740

2131
2132

0030S4

067040

KO4

PRGE 49

12l

EMTi21

RMAS NOT INITIALIZED BY UNIBUS

EHT!

EDTI
EFTL
;ERROR

;ERROR

071650

003030

12:38

EHTIL
eEOT1
EFTL

71650
071740

067004

23-NOV-77

122

RMMR1 NOT INITIALIZED BY UNIBUS

123

RMDS NOT INITIALIZED BY UNIBUS

12M4

RMEC2 NOT INITIALIZED BY UNIBUS

EMT122
EHT1
EDTI
EFT1

EMT123
EHTIL
EDTI
EFT1

EMTi2Y
EHTL

EDT!

EFT1
;ERROR

125

EMT12S

RMMR2 NOT

INITIALIZED BY UNIBUS

EHTIL
EOTI
EFT1
;ERROR

;ERROR

126
EMT126
EHTL
EDTI
EFT!

RMCS1

127

RMBA NOT CLERRED BY CONTROLLER CLERR

EMTI2?
EHTI
EDTL

NOT CLEARRED BY CONTROLLER CLERR

EFTL

;ERROR

130
EMTI30

RMCS2 NOT CLERRED BY CONTROLLER CLERR

SEQ 0049

Sg~bm7TT[nONunT—[yunyAT7I%YunrLNT
m—olwrQ4a&)[+Ve===gIV0oVtIV0moY]l(eV—NY[&Woaxvbxo=oemO—@oteU0oyNmia—oQaet=nN)l[Qox4¥Vc2](——=MN4ot]mW=eag0o]i—e=v]JgN~mwo4@x-[0eMNTV4mI=V4I0oFmlVIV=NYl][W4x@=L]vg0miD)=qoOoO=0m—=gt=Tm=gMlWo4x[v+[4=FVIVgIVo]FoQYt]UWo4<=ob'»—I0W=VeLNoIeVDLItoO0FYNL)N[l—TV_wQ4<—bs|*+4W1—ooi=Vgtal—-1tyV
RALS 2 4

V—)dVT=VPTSVToGlVT32oGlVFT3]GEoV)YEVT8PGSVT,TVTo=lU,vNelV)To2AoGlV3ATvlVL8SSlVY=T}V)TVTNTVTTV2LYvV8AYAvVY3S=4lWY8YI,TlVTolVT,STWT,vmVeTW2TFovlVOS8TSVPTR3gROVTNY8GTVIPAS=VqTGo=VIT=AlVtTB2oASlVnAE8IvlVS8TOVTY8RGTlVIvGlVeIOGtlTyPRlVTLG9=VATG+=AV=IAlVA5=VILvVIR=ITeVa[=I4Ml7R]V=EIVoA=VIo=VqbIYOoV=IoO=LA=L4T3ILoU=VA8Q=LU4VE8oLfU
CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NoV-77 12:19

003074
003076
003100
003102

0031€4

067064
Q071524
071650
071740

D0DE71%e

MARCY1l
-NOV-?77
30(1046)
ERROR POIN ER TABLE

140

12:38

RMMR1

RMCS1

LO4Y
PRAGE SO

RMER1 NOT CLEARED BY CONTROLLER CLERR

RMAS NOT CLERRED BY CONTROLLER CLERR

NOT CLERRED BY CONTROLLER CLERR

RMDS NOT CLERRED BY CONTROLLER CLERR

RMEC2 NOT CLERRED BY CONTROLLER CLEAR

RMMR2 NOT CLEARRED BY CONTROLLER CLERR

NOT CLERRED BY ERROR CLERR

RMCS2 NOT CLERRED BY ERROR CLERR

SEQ 00S0

23-NOv-77
12:38
ERROR POINTER TRBLE

30(1046)

PARGE S!

41—

MOXIXL

£
w

e P

RMDS NOT CLERRED BY DRIVE CLERR

RMER! NOT CLERRED BY DRIVE CLEARR

e pe g

—A A~ =N

mmmMmmMme—
MOIxX S
“d—-~E

; ERROR

RMRS NOT CLERRED BY DRIVE CLERR

RMMR1

£
o

NOT CLERRED BY DRIVE CLERR

RMMR2 NOT CLERRED BY DRIVE CLERR

; ERROR

RMCS1 NOT CLERRED BY DRIVE CLERR

MM
e—

MoIxIXxXL
—=V

mmMmmime—

nNoIxIxL
—“—

s ERROR

mMoxrxL

DDNTN LW -0

; ERROR

mMmMmMTe—

; ERROR

R RRRRRRLY

067256

RMERZ2 NOT CLERRED BY DRIVE CLERR

£
~N

; ERROR

NnOoIXL
AN

1538

; ERROR

wn
o

067246
§£isgu

571538

[

[ LA AV
AV Y]

et Dt o

; ERROR

rorory

MO4

HT1
0Tl
EFTL

mMMMme—

MACY11l

MHTYIMe—
noIxXL
5 putpur
po T,

871

e Pt Pree Prs Pt P

Pt P

tAtS e

(a0
oV 1oV IV gV V] ¥ oV o VI S EaT], %], 0 1]

CZRMOBO RMO3/2 FCTNL TST @
CZRrM0O8 Pll
23-NOV-77 12:19

EMT1S0

RMEC2 NOT CLERRED BY DRIVE CLERR

SEQ 0051

CZRMDBO_RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

2245
2246
2247
2248
2249
2250
2251

003zse
003260

071524
071650
071740

2253
2254
2255
2256
2e57
2258
2259
2260
2261

003264
003266
003270
003272

067266
071524
071650
071740

003274
003276
003300
003302

067300
071524
071650
071740

2264
2265
2266
2267
2068

003304
003306
003310
003312

067312
071524
071650
071740

003314
003316
003320
003322

067330
071524
071650
071740

003

067346

Q0333
003336
003340
003342

067
071524
071650
071740

003344
003346
003350
003352

067372
071524
071650
0717490

003354

067404

2271
2272
2273
2274
2275
2276
2277
2278
2279
280
2281
2282

sS4

2285
2266
2288
2289
223
2

2295
22%
2297
2298
2293
2300

003326
003330
003332

MACY1l 3D(1046)
23-NOV-77
ERROR POINTER TABLE

12:38

NO4

PAGE 52

SEQ 0052

EHTL
EDT1
EFT1
;ERROR
151
.. EMT1SI1
EHTI
. EDTI
¢
- EFTI

MEDIUM NOT ON LINE

;ERROR

162
EMT152
ENT1
EDT1
EFTL

DRIVE FAULT

;ERROR

153
EMT153
ENTL
EDT1
EFT1

UNSRFE SHOULD BE SET BECAUSE DVC

;ERROR

154
EMT154
ENTL
EDTI
EFT1

UNSRFE SHOULD NOT BE SET,

155

VOLUME VALID NOT SET BY PACK ACK

;ERROR

071524
071650
071740

EMT155

IS SET

IS LOW

EHTL
EDTI
EFT1
;ERROR

156
EMT156
ENT1
EDTI
EFT1

OFFSET MODE NOT SET BY OFFSET COMMAND

;ERROR

157
EMT1S?
EHT1
EDTI
EFT:

OFFSET MODE NOT RESET BY RTC

;ERROR

160
EMT160

RMOF NOT RESET BY RIP COMMAND

COMMAND

CZRMNB0 ?fl03/2 FCTNL TST 2
CZRMUB.P11
23-Nov-77 12:19

MACY1l 32&&096)
23-NOvV-77_
OR POINTER TRBLE

2301

003356

071524

EHTI

003362

071740

EFT1

003364

gsmw

00337¢
76
003400
003402

067426
071
071650
071740

23
ag

]

a%
]
2310

2313

2314
2318
2316
2317

8318

e
2321
2322
2323
2324
2325
2326
2327

0C3360

003366
003370
003372

071650

071320
071606
071704
0717794

2329
2330
2331
2332
2333
2334

003MIYN
00316
003420
003422

0674
071524
071650
071740

2336
2337
2328
2339
2340
2341

003424
00326
003430
003432

067456
071524
071650
071740

2343
2344

003434
00343

067464
071524

2346
2347

003442

071740

003444

067472

2328

5335

2342

2345

gaqme

2350

2351
2352
2363
2354
2365
2356

003440

003446
003450
003452

;:ERROR

PRGE S3

161

EMT161

RMDA NOT RESET BY RIP COMMAND

ENT1
EDTI
EFTL

: ERROR

15;

EMTIB2
EHTL
EDT1
EFTL

RMDC NOT RESET BY RIP COMMAND

;ERROR 163
:
EMT336
EHT336
EDT336
EFT336

DRTA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH
WRITE BUFFER

:ERROR

16M

OPI SHOULD NOT BE SET

éss

IVC SHOULD NOT BE SET

166

IRE SHOULD NOT BE SET

; ERROR

;ERROR

1650

071524
071650
071740

BOS

EDT1

071524
071650
071740

00340M
003406
003410
003412

12:38

Ennsu
HT1
Eon
FT1

MT165
me
DT1
EFTI

EMT166
EHTI

EDTI
EFT]

ERROR 167

;ERROR

ENT167

NEM SHOULD NOT BE SET

EHT]
EDT1
EFTI
170

UNUSED

SEQ 00S3

CZRMOBO RMO3/72 FCTNL TST ¢

CZRMOB.P11
2357
2358
2359
61

2365
2366
2367

2370
2371

23-Nov-77 12:19

003454
003456
003460
003462

000000
000000
000000
000000

003464

067510

003466
003470
003472

071524
071650
071740

€378
2380
2381

5383

2386
€387
2388

53%

2391
2392

2393
23
2395

239
2393

2400
240!
2402

003504
003506

067530
071524

003S14
003516
003520
003Se2

067540
071524
071650
071740

003510
003si2

0CX¥s26
003530
003s32

071524
071650
071740

00353

067560

3536
40
42

(071524
071650
071740

003544
003546
003550
003552

067566
(071524
071650
071740

ial

240s
2406
2407
2408
2409

e4le

12:38

PRAGE SM

SEQ 00S4

Q
0
0
0

; ERROR é?*
“ATA* NOT SET DURING RETURN TO CENTERLINE
MT171
EHTIL
EDYI
FT1

172

EMTL72

“"ATATM NOT SET BY OFFSET COMMAND

i
Eng
; ERROR

071650
071740

067552

23-NOV-?7

ERASZ POIN?ER TRBLE

;ERROR

003474

she Er3 o
237v 00%% 071740
s
23

MACY1l 3Q(]046)

COS

MT173
HT1

RMER2 NOT INITIALIZED BY UNIBUS INIT

EoT1
EFTL

; ERROR

: ERROR

é?‘i

RMER2 NOT INITIARLIZED BY CONTROLLER CLEAR

17'?'
EMTLI?S

SELECTED DEVICE IS IN WRITE PROTECT

176

CANNOT SET DIRGNOSTIC MODE

MT174
H
EDT!
EFTL

EHTI
DTl
EFT]

;ERROR

EMT176

EHTI
EDTIL
EFTL

;ERROR

177

INCORRECT *MOL"TM STARTUS DURING DIRGNOSTIC MODE

<00

INCORRECT “PIP*” STATUS DURING DIRGNOSTIC MODE

EHTI??
HT1
EDT!
EFT]

CZRMOB0O RMO3/2 FCTNL TST 2

CZRMO8.P11

23-NOV-77 12:19

2413

003s54

897500

2415
2419

003S60
003S6e

071650
071740

003Se4

067612

70
72

071650
071740

2427
e4e8
2429
e430
243l

003574
003S76
003600
003602

067624
071524
071650
071740

2434
243S
2436
2437

003604
003606
003610
003612

067636
071524
071650
071740

003614
003616
00
003622

067650
071524
071650
071740

2414

Silg
gég
242l

24ee
e4e3
a9

S‘é‘s

53235

N
2440

244l
2442
2443
2444
2445

003556

0036k

Fanld
003632

071740

2454
2455

067676

2456
2457
2458

S4ea

246§

2462
2463

24EN
2465
2466

2467
2468

1855
1650

003636
003640
003642

071524
071650
071740

003644
003646

067706
071524

3650
3652

12:38

PAGE SS

SEG 00585

MT200

EDTI
EFTY

; ERROR Eo#

MT201

071524

00330

23-NOV-??

ERROR POINTER TABLE

1SeM

[
2450
245]
2452

MACYL1l 30(1046)

DOS

INCORRECT “WRLTM STATUS DURING DIAGNOSTIC MODE

EHTL

EDT1
EFT1

;ERROR 202

INCORRECT “SKI” STATUS DURING DIRGNOSTIC MODE

;ERROR 203

INCORRECT “DVC" STATUS DURING DIAGNOSTIC MODE

;ERROR

204

“yv"” WAS NOT RESET BY MAINTENANCE UNIT RERDY

205

SELECTED DEVICE HARS A PERSISTENT "SKI* ERROR

EMT202
EHTL
EDTI
EFTL

EMT203
EHTL
EDTL
EFT)

;ERROR

EMT204
EHTI
EDT!
EFT1

EnToo>

E?Tl

EFT]

; ERROR

Eos
MT206

“LBC*” DID NOT SET DURING DIARGNOSTIC MODE

207

UNEXPECTED LOSS OF *“MOL"TM - MEDIUM IS OFF LINE

EHTI
EDTI
EFTL

;ERROR

071650
071740

EMT20?
1

1)
81
FT1

;ERROR

210

UNEXPECTED LOSS OF VOLUME VALID - "Vvv*

= 0

c*nnoeo RMO3/2 FCTNL TST 2

CZRMO8.P11
2993
F
24?1
2472

23-NOV-77 12:19

003654
0036Se
003660
003662

067720
07152M
071650
071740

003664
003666
003670
003672

067726
071524
071650
071740

003674
0O( %76
003700
003702

067742
071524
071650
071740

003704
O 3706
0.2710
003712

0677
071524
071650
071740

2497
24398
2499
2500

003714
0°371p
0O 3720
003722

067766
071536
071660
071750

2503
2504

724

2475

2476
2477
ew;g
4

35
2432

2483
248y
24 S
2« »

Sog
24e9

S430
249,
2432
24393

249

5204
2605
2506
2SU?

2508
2509

2s10

2511
2512
2613
2514

2518
2S1b

eslt?
2€i6
2519

2521

2522
223

2524

003726
003730
003732

0M6)

070020
071Sed
071650
071740

003744
003746
3750

070030
071524
(071650

0717?40

-NOV-77

ROR POIN ER TABLE

12:38

PAGE Sb

EMT210
EHTl
EDTI
EFT1

;ERROR

211

UNEXPECTED MECHANICAL MOTION - “PIP” = 1

;ERROR

212

UNEXPECTED DEVICE FAULT - "DVCTM = 1

213

UNEXPECTED SEEK INCOMPLETE ERROR - “SKI” = 1

214

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

215
Emals

DRIVE DID NOT DETECT “IVC* ERROR DURING RECALIBRATE

21?

INCORRECT *IVCTM STATUS

217

INCORRECT “IRE” STATUS

:ERROR

;ERROR

071536
071660
071750

003734
00373
003740
003742

3782

MACY1L1 3

EOQS

EMT211
EHTI
EDTI
EFT1

EMT212
EHTI
EDT!
EFT1

EMT213
EHTI
EDT1
EFTI

EMT214
EXTR2
EDT2
EFTe

HT2
EDT2
EFT2

; ERROR

;ERROR

EMT216
EHTL
EDT!
EFTI

Emaw
HT1
Eon

FT1

:ERROR 220

INCORRECT "WLE" STATUS

SEQ 00Se

23-NOov-?77
ERROR POINTER TRBLE

30(1046)

12:38

FOS

PRGE 57

EHTEEO

003754
003756
003760

003762

; ERROR

INCORREC!

“OPI"TM STATUS

; ERROR

RMO3 DID NOT DETECT RMR ERROR

; ERROR

RMO3 DID NOT DETECT PARITY ERROR ON MARSSBUS CONTROL BUS

; ERROR

071740

070060

071524
071650

0000

UNUSED

0000
n
n

000000
000000
0CcoCca0
000000

UNUSED

00o0ooOn
n
o

070070
071562
071674
0717eM

UNUSED

; ERROR

n
~N

071740

oOooon

RIEY4

CZRMOBO RMO3/2 FCTNL TST 2
CZRMO8. Pii
23-Nov-77 12: 19

MRCY1l

UNUSED

;sERROR

230

UNUSED

: ERROR
000000
000000

000000
000000
000000
000000

000000
000000

004052

; ERROR

000000

SEQ 0057

CZRMDBO RMO3-2 FCTNL TST 2

CZRMOB.P11
€581
es82
2583
2584

2s8s
e58%

es87
2588
2589

es30
€591
2532
2533

2SN
2595
253%
2597
2538
2599
2600

2601
260e
2603
2604
260S
2606
2607

2608
2609
2610
cbll
ebi2
2613

0040S4
0040Se
004060
004062

004064
004066
004070

23-NOV-77 12:19

004074
004076
004100
004102

000000
(000000
000000
000000

2ble
cel?
2618
2619
2620
2621

ebee
2623
2624
262s
2626
ebe?
2628

2629
2630
eb3l
2t3e
2633
cb34
2635

000000
000000
000000

004124
004126
004130
004132

000000
000000
000000
000000

004134
004136
004140
004142

000600
000000
000000

004144

2636

004146
004150
004152

UNUSED

;ERROR

232
o}
0
0
0

UNUSED

;ERROR

233
0
0

UNUSED

234

UNUSED

235

UNUSED

236

UNUSED

237
0

UNUSED

240

UNUSED

0
0

0
o

;ERROR

cElY

26l1sS

23!
0
0

000000
000000
000000

004114
004116
004120
004122

12:38

0
0
0
c

;ERROR
000000
000000

23-NOV-77

ERROR POIN¥ER TRBLE

000000
000000
000000
000000

004072

004104
004106
004110
004112

MACY1l 30(1046)

;ERROR

000000
000000
000000

0
0
0
0

o
0
0
0

0
o}
o

;ERROR

GOS

PAGE S8

SEQ 00ss8

C2RMOBC RMO3-/2 FCTNML

CZRMOB.P11

TST 2

23-NOV-77 12:19

MRCY1l

30(1046)

ERROR POINTER TARBLE

gp3a BRiizd BRARRY
?

2633
2640
264!
b4

004160
004162

000000
000000

b4y

%‘4164

PQ00

246
2647
2648
2649

0041720
004172

2643
eb4s

4166

2650

el g
176

2653
2654
265S
2656

004200
004202

G
60

004212

000000

2665

004214
004216

000000
000000

2664
2667
2668
2669
2670

004220
004222

2672
2673
2674
267S
2676
26727

004224
004226
004230
004232

000000
000000
000000

2679
2680
2681
282
2683
o684

D04234
004236
004240
00M242

070144
071524
071650
071740

2689
1%

004244
%:?H

70154
718

2689
%90
91

0042

671

2678

268S

Ssge
2692

; ERROR

PAGE S9

SEQ 0058

SH 1

UNUSED

0]
0

; ERROR

Sqa

UNUSED

0
0
0

;ERROR

2661
2662
2663

HOS

0
0

0000

2657

12:38

OO
000000

23-NOV-?7

243

UNUSED

;ERROR

000020
000000

244
0
0

UNUSED

0
0

;ERROR

;:ERROR

716

0
0
0
0

UNUSED
.

246

EMT246
EHTL
EDTI
EFTI

247

MT24?
HT1

“QTAR" NOT RESET BY GO WHEN "ERR" = O
.

“ATA” NOT RESET BY WRITING RMARS

DT1

071740

EFTL

;ERROR

250

“ATARTM WARS RESET BY GO WHEN “ERR” =

Cc2 RMDB0 RM0O3-/2 FCTNL TST 2
C ZRMOS. Pll
23-NOoV-77 | 2:19

2?-"0V-77
ERROR POIN ER TABLE

30(1046)

0042sH
00%858
(0.0 72
DoY2H2

12:38

I10S

PRAGE 60

EMT2SO

PROGRAM

INTERRUPT WAS NOT GENERATED

: ERROR

PROGRAM

INTERRUPT SHOULD NOT HAVE BEEN GENERRATED

; ERROR

OFFSET MODE WRS NOT RESET BY WRITING RMDC

2720

; ERROR

INCORRECT “ILF* STRTUS

;ERROR

INCORRECT “ATRTM STATUS

071740

070254
071574
071674
071764

070264
071524
071650
071740

mmmmn
MoIT XN

Pt Pt Pt Pmn Pt Pt Pt Pt P

Q0 ey
DONONLW—0O 3859
R2E

LAV IAT1,V]
NN
o

; ERROR

nRyRrRYRNPYNY nn
NANNNNNNNNNY

RRRER
BEB SRR

2693
oM

MRCY11l

; ERROR

INCORRECT "ILRTM STATUS

; ERROR

INVALID IRE STATUS DURING SERRCH COMMAND

: ERROR

*IVC” WAS NOT DETECTED DURING SEARRCH COMMAND

SEQ 00&0

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

2749

Dnu3sy

2751
2752

004360
004362

2750

§724
2755

2756
2757
2758
2759

g7eD
2762

2763
2764
2765
2766

070276

0043Se6

0715824

00436M
(004366
004370
004372

070310
071524
071650
071740

004374
004376
004400

070330
071524
071650

071740

004408
004406
00QN4I0
004412

070340
071524
071650
071740

00M4IN
004416
004420
004422

070350
071524
071650
071740

2786
2787

004424
004426
004430
004432

070370
071524
071650
071740

2790
2791
2792
2793
2794

004434
00446
004440
004442

070410
071524
071650
071740

2769
2770
27?1
2772
2773
s??fl

2?76

2777
2778
2779
2780

5785

2783
2784
2785

2788
2789

2797
2798
2799
2800
2801
2802

004q44
004846
004453
004452

070422
071524
071650
071740

JOS

PAGE 61

SEG 0061

EMT260

EHTI

071650
071740

004402

5768

MACY11l 30(1046)
23-NOV-77
12:38
ERROR POINTER TRBLE

EDOTI
EFTI

;ERROR

261

DRIVE EXECUTED SEARCH WITH ERROR SET

262

“LBC” ERROR NOT SET DURING DIAGNOSTIC MODE

EMT261
EHTI
DT1
EFTI

EMT262
EHTL
EDTI

EFT1

:ERROR

263
EMT263

*SKI* ERROR DURING SEARCH COMMAND

264

*IVC" ERROR DURING SEARCH - LOST VOLUME VALID

:ERROR

265
EMT265
EHT
T
EFTI

ERRONEOUS 1VC ERROR DURING SERRCH - VOLUME IS VALID

;ERROR

266
EMT266
EHTI
EDTI
EFTY

DEVICE FAULT

267

SKI SHOULD HAVE BEEN SET BECARUSE CYLINDER
ADDRESS IS TOO LRRGE

EHTI
EDTL
EFT1

;ERROR

;ERROR
:

EMT26M
EHTI
EDT1
EFT1

EMT267
EHTI
EDTI
EFT1

(DVC)

DURING SEARCH
o

12:38

; ERROR

270

EMT270

KOS

SEQ 0062

PRGE &2

OP1 ERROR DURING SEARRCH BECRUSE MOL = O

71650
71740

gsogURING SEARCH BECRUSE ON CYLINDER

; ERROR

LOST MOL DURING SERRCH,

; ERROR

PIP STIL SET ARFTER SEARRCH

; ERROR

PARITY ERROR_OCCURRE
REGISTERS BUT MXxF DI

; ERROR

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE CRTA

‘m

071650

B0uie2

070440
071524

23-NOovV-77_
ERROR POINTER TRBLE

30(1046)

ol
-0
O

00u44sY
004456

MRCY11l

OPI IS NOT SET

WRITING REMOTE
NOT S ET

WHI LE

DOV L WO

JYIYY 5 @8
s
3 Stk aahRRRR

C’RHDBO RMO3/2 FCTNL TST 2
CZRMOB. P11
23-Nov-77 12:19

Hed

2846
2847
2848
2849

2852

2854
e8ss
c8
e8S?
2958
2853
2860

COMMAND STRRTED

071740

; ERROR

276

;8;6“ ERROR DURING DRTR TRANSFER BECAUSE "MOL* WRS

070556
071524
071650
071740
; ERROR

“0PI” ERROR DURING DATA TRANSFER BECAQUSE 1} O

CyLinuvek DIDN'T DROP OR 2) SERRCH TIMED OUT OR
3)

RUN TIMED OUT

CZRMOBO RMO3/2 FCTNL TST e

CZRMOB.P11
2861
2862
2863

e8b4
286S

e86?
2868
2869
2870
2871
2872

287s
2876

2877
2878
2879
2880
288l
et
et 33
2884

004S4y
0Q04S46
Q0NMSS50

004Sse

004554
004556
004560
004562

23-NOov-?7 12:19

070610
071524
071650
071740

004574
004576

004602

070652
071524
071650
071740

2891
2832
28393
2894
2895
2896

004604
004606
004610
004612

077ob6M4
(071524
071650
071740

2898
2899
2300
2301

004614
004616
004620
004622

070676
071524
071650
071740

004624
004626
004630
004632

070710
071524
071650
071740

004634
004636
00440
004e42

070722
071524
071650
071740

2830

2897

2904
2905
2906
2907
2908

2910

esll

2912
2913
2914
sgig

23-NOv-77

ERROR POINTER TRBLE

12:38

LOS

PRGE 63

SEQ 0063

EMT277
EHTL
EOTL
EFT]

071740

070630
071524
071650
071740

30'(21046)

070572
071524
071650

004564
004
004570
004572

2636
2887

MRCY11

;ERROR
H

;ERROR
;

;ERROR

; ERROR

;ERROR

300
EMT300
EHTI
EOTI
EFT1

301
EMY301
EHTI
EQTI
EFT]

“IVC”
ERROR DURING DARTR TRANSFER BECRUSE VOLUME
WRS NOT VALID

ERRONEOQUS “IVC” ERROR DURING DATR TRANSFER - VOLUME
IS VALID

302
EMTI02
EHTIL
EDTI
EFT]

*ILR” ERROR DURING DARTR TRANSFER

303

*“ILFTM ERROR DURING DRTR TRANSFER

80‘0

“RMRTM ERROR DURING DATR TRANSFER

305

INCORRECT “IRETM STRTUS DURING DATA TRANSFER

206

“SKI* ERROR DURING DATA TRANSFER

EMT303
EHTI
EDTI
EFTL

MT304
EHTI
EDT!
EFTI

EMT30S
EHTI
EDTI
EFT1

-EMT306
EHTI
EDTI
EFTI

’

gy
REES g”§

RMO3-/2 FCTNL TST 2
P11
23-NOV-7? 12:19

0OM6NY

MACY1l 30(1046)
23-NOV-?7
ERROR POINTER TABLE

:ERROR

070732

004646
§7xseq
oo46s0
071650
004652

071740

004654
004656
004660
004662

070752
071524
071650
071740

004664

07076M

004670
004672

071650
071740

00479
004676

070776
071524

4?7

71740

004?08

071010

714

(071030

%:7
7

004730
004732

004736
004740
004742

DEVICE FRULT DURING DATA TRANSFER

:ERROR

311
EMT311

LOSS OF BIT CLOCK DURING DARTAR TRANSFER

MY310
EHTI
EDTI
EFT1

EHT1

EDT1
EFT1

:ERROR

312

EMT312
EMTL

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER

Egn

:ERROR

313

EMT313

UNSARFE ERROR DURING DARTA TRANSFER

(DVC = Q)

E”H
971
;ERROR

194

31M4

MT31l4

DRIVE TIMING ERROR DURING DRTA TRANSFER

Pn
:ERROR

071650
071740

071524
071650
071740

DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER

Exg

71650

004734 071054

SEQ 006Y

: ERROR

071524

ongqa
071824

HT1

PAGE &4

EDT1
EFTI

@3&@ §$i &g
71
71 8

307
MT307

12:38

315

EMT31S
EHT]

WRITE LOCK ERROR

EDTI
EFT1

:ERROR

gn?axs

EHT]
EDT!
EFT1

ERRONEOUS WRITE LOCK ERROR

CZRMDBO RM0O3/2 FCTNL

C7RMDB.PI11
2973
2974
2975

TST 2

€3-NOV-77 12:19

0C4744

071066

004

071740

0O47s4

2984
e393S

004756
004760
004762

071076

29138
2949

004764

071106

2976
S77
78

5330
2931

252

533

2991
2932
2993
29

2995

293%
2997
2998
2999
3&)?

3002
3003
3005
3006

3008

3009
3010
3011
3012
3013

318

3019

301

3018
019

3020

302

3023

3024
325
3026
gggg

004746
0047

30(1Q46)

;ERROR

004774
004776
005000
005002

071116
071524
071650
071740

071124

005006
005010
005012

071524
071650
071740

00S014
00S016
D05C20
005022

071134
071524
071650
071740

00S024

071146

005026
005030

071524
071650

00S034
005036
005040
00S04e

071160
071524
071650
071740

317
EMY3L?

12:38

NOS

PAGE bS

HERDER CRC ERROR DURING DARTA TRANSFER

EHT1
EDTI
FT1

;ERROR

021524
CT1650
071740

071524
071650
071740

23-NOV-?7

ERRCR POINTER TRBLE

071524
071650

004766
004770
004772

MACYL!

320

EMT320

FORMAT ERROR DURING DATA TRANSFER

EHTIL
EDTI
EFT1
;ERROKR

321
EMT321

HERDER COMPARRE ERROR DURING DARTA TRANSFER

322

HERDER ERRORS SHOULD NOT BE SET

323
EMT323

DATA CHECK ERROR DURING DRTR TRANSFER

32M

CORRECTRBLE DARTA CHECK ERROR DURING DATAR TRANSFER

32?

UNCORRECTRBLE DRTR CHECK ERRGCR DURING DRTA TRANSFER

EHTL
EDT!
EFT)

;ERROR

EMT322
EHTI
EDTI1
EFT1

EMTI
EDTIL
EFT1

;ERROR

; ERROR

EMT 324
EHTI
EDT!
EFT1

EMT32S

EHTIL
EOTIL

071740

EFTIL

;ERROR

326

EHT326
HY
ECTL
EFT!

DATA PARITY ERROR DURING REARD COMMMAND

SEQ 00eS

B ERSERRR f Sy ]

0 RMO3/72 FCTNL TST 2
P11
23-NOv-77 12:19

00SOMY

071178

0050s2

071740

MACY1l

30(1046)
2;-NOV—?7
ERROR POINTER TRBLE

;ERROR

>
721650
8
B

00S066
005070
005072

005076
00S100
00S102

071524
071650
071740

00S104
005106
005110
00S112

071244
Q71524
071650
071740

00S1l4
005116
005120
005122

Q71262
071524
071650
071740

00S124
00Si2e
005130
005132

071300
071524
071650
071740

00S134
005136
00S140
00Sid2

071320
071606
071704
071774

8
3
8
2

;ERROR

OFFSET MODE NOT RESET BY WRITE COMMAND

23?

DRTR PARITY ERROR DURING WRITE COMMANO

331

EHT331

WRITE CLOCK FALURE DURING WRITE COMMAND

HT1
EDTI
EFT1

071740

071232

SEQ 0066

EDTI
EFTI

071524
071650

g 8
d

005074

PRGE 66

EFTI
; ERROR

071220

BO6

o1l
o

005828
8?1650
00S062
071740

00S064

327
ENMT327

12:38

; ERROR

gB?

MT332

DATR LATE ERROR DURING DATA TRANSFER

EHTL
EDTI
EFT1

; ERROR

33?

PIP STIL SET AFTER DARTR TRANSFER - SKI = O

334

LOST MOL DURING DRTAR TRANSFER - OPI = O

; ERROR

g3§
MT33S
EHTI
EDTI
EFT1

LOST VOLUME VALID DURING DARTA TRANSFER -

;ERROR

336
EHngS
EHT336
EDT336
EFT336

DATR RERD DOES NOT COMPRRE WITH DATA WRITTEN

;ERROR

ENT333
EHTI
DTl
EFTI

EHT33‘4
HT1
EOTI
EFTI

IVC

SRR
ZRM08
T
3087

SN I

00Siv4

g . &gl

(071330

00S1S4

O BB 2
;ERROR

7
BRh

3092

%gg

071340

3{@

169

1
3104

1
00S172

71
071774

%1?‘0
176
00500
00Se0e

071360
071524
071650
071740

00S204
005206
005210
005212

071372
071524
071650
071740

3122

005214

071404

3ics4

00Se

i Ey
i

31%
31
3109
3110
3111

e
3114

311S
3116
3117
3118

3120
312l

)

3123 00521

071632

3125

00se22

072014

00Se24

(071416

00S2e34
005236
00S240
005242

071426
071524
071650
071740

3157
3158
31

3130
3131
31%%

glg

1
3137
3138
giag

005226
005230
00s232

337
EMTI3?

WRITE CHECK ERROR NOT DETECTED

2‘49

WRITE CHECK ERROR AT UNEXPECTED RDDRESS

PT ?
e
; ERROR

B &R K
3099

C06

MT340

EPT33E
» ERROR

3;#

INCORRECT DATR DURING WRITE CHECK ERROR

DY
EFT336

; ERROR

;ERROR

071724

g“?

*~IvC* ERROR NOT DETECTED DURING DARTAR TRANSFER

2‘4;

“FER” NOT DETECTED DURING DATA TRANSFER

344

“HCETM NOT DETECTED DURING DATR TRANSFER

MT342
ENWTIL
EDT1
EFTL

MT343
EHTI1
EDTIL
EFT1

MTI4Y

g&flgq
DT

EF T4y

; ERROR

071524
071650
071740

E"?

MT34S

“BSETM NOT DETECTED DURING DATR TRRANSFER

EHTI
EDTI
EFTL

; ERROR

EH?

MT346
EHTL
EDT!
EFT1

HERDER ERROR WAS DETECTED W/ HCI SET

60 007

CZRMDBO RMO3/2 FCTNL

CIRMOB. P11
3141
3142
3143

TST 2

23-NOV-77 12:19

00S244

071442

3150
3151
315
31

005254
005256
005260
005262

071454
071524
071650
071740

3156
3{57

005264

o;iwa

3160

0068272

071740

3168
3165
3166
3167
3168
3169

005274
005276
00S300
00S302

071502
000000
000000
000000

3171
3172
3173
3174
3175
3176

00S30M
005306
00S310
00S312

071506
071644
0717236
072024

3178

00S314

071516

071650

MRCY11

30(10%)

ERROR POIN ER TRBLE
;ERROR

Jids D0cses 0r1esg
Jlve 0%esad 971538
3132

3163

3170

3177

3179

00S316

3181
3182

382

3180

347
EMTIY?

12:38

LOST VOLUME VALID DURING SERRCH - “IVCTM = O

;ERROR

“ATA” DID NOT SET DURING SEARCH

ENMT3S0
EHT1
Eon
FT1

351
sm?sx

EFT]

: ERROR

25?
0
0
0

: ERROR

:ERROR

071524

M¥3s2

PROGRAM TIMEOUT WHILE TESTING RMLA

LOOK AHEARD TEST FRAILS

3SM4

BSE SHOULD NOT BE SET

MY3s3
HT363
9‘!35
135

EMT3SY
HT1

181

071740

3%33

:NUMBER,

1.E.

MT -

i
3?33
3195

319

SEQ 0068

:ERROR 350

PUT ERROR T
"SBTTL ERROR
B‘YSBL"EUSAGE

3190

PRGE 68

DATR TRANSFER NOT ABORTED W/ COMP ERROR StT

3{33
31%
3187

D06

EoT1
EPT

3128 R025%% 97iesd

3ies

-NOV-?7?

s THE snnoa maus ABOVE CONSISTS OF FOUR WORD ENTRIES FOR ERCH ERROR
E_RDDRESS

N
E:zgs P“onmv%
sss
EFT -

!THE EMT ENTRY IS THE RDDRESS OF THE TRBLE OF ERROR MESSAGE STRINGS
:FOR THE PARTICULAR ERROR.
ERCH ERROR MESSRGE TRBLE LISTS THE RDDRESS

CZRMOBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

MACY1l 30(1046)
23-Nov-?7
ERROR TRBLE USRGE

12:38

EOH

PRGE 69

gxq7

198
3533

:,NO nsac: Rnoa
TY ss
ou éns
O BE TYPED F

3201

:0F

3202

3203

SEQ 0069

ons

vn snnoa ggs ncs
STRINGS HHICH ARE TO BE FORMATTED AND

Es MIL

T
v H;
EMT E

SIN THE
:DATA
uous

EMT ENTRY IS ZERO, THERE IS

NEFT
ENTRIE? ARE RADDRESSES OF TRBLES

? ORMATION FOR A GIVEN ERROR. ERCH ENTRY

n§k MAY OR MAY cgr HAVE
AN ASSOCIATED LINE OF
LINE MUST HAVE
AN ASSOCIATED F
nT

3205
3206

.Hsnotn
Tua ! A HERDER LINE MAY BE PRINTED WITHOUT ANY
:BUT R DATA LINE 1S NOT PRINTED WITHOUT A HERDER, AND ERCH onrn LINE

gggg

,IN SUMMARY,

3211

35{3
3215

gggg

32l

IMUST ARLSO HAVE A FORMAT.

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE

EACH TRBLE IS A LIST OF ADDRESSES uuxcu osr:hes THE LOCATIONS

:OF MESSARGE STRINGS, HERDERS, DATR OR FORMA

cznnoeo RH03/2 FCTNL TST 2
CZRMDB.P11
23-NOV-?77 12:19

MACY1l 30(1046)
23-NOV-7?
START OF PROGRAM

3219
321

3218

3553

.SBTTL
005324

3221
3225

322

3224
3225
322;
ggge

00534

ooooog

01374
012746
000002

6YS:
.SBTTL

: ;CLEAR

00S342

012706

001114

3233
XN

0
0

022706
00137

001154

012706

001100

oosagg

012737

060560

000020

3233

0 376

01737

3243

O(.42%6

012737

3245
3246

00Suse
0US4Ys0

01
005037

3235
3°3%
3237

onsggg

00Ss>e6

005026

3249

45y

003%;

gggg

3264
3255

% §1g§ 8855;8 000004
65184 01
1775
001154
§3

001012

3262
3263

gggswo
€542
00554
6550

000403
012716
000002
012737

[«]

3esg §§§§5§
3271

005604
00S&12

81 73;
01

MOV

MOV
CLR

177570
177277

000174

9839

::SIZE roa

! EQUAL "ov

001156
173416

005550
000176

CLR

6SS:
001154

001156

66S:

678:

001244

001154

E THE COMMON TRGS

comgn mcgg
($CMTAG) m&'
SSCHT

;;FIRST LOCATION T0 BE CLEARED

(RE)+

8SWR,RE
-

; ; DONE?

S 39(

: :CLERR MEMORY LOCATION
-ggop BACK

1F NO

TUP THE STRCK POINTER

cvg

::JOT

VECTOR FOR

3COPE ROUTINE

shs.a ik ey
..L VEL 7
mafi5 vecron FOR TRAP CALLS
oaqoabc+aCEVEL
Ng0;E$+"EEVE 7
:

VECTOR FOR ERROR ROUTINE

ousn FAILURE VECTOR

2
,,éNEg&R#

PiCL

'1Pgu%
’E A

NUEEER

OUNTER
xrsnnrxons

%on RROR RDDRESS

i%*ufi
QLNIT ;59
T LOOP
nogaess FOR SCOPE
00P ADDRESS

ITCH ngsg IF

rup roa A

?R IT 1S

678

BR
MOV
RTI
MOV

66$
2668, (SP)

.,ennucu I
no rxnsour TRAP occunnso
,,nfigfic us
sun IS NOT
= : TBRANCH
IF NQ g;
:1GET UP FOR TR
srunn

osugsc SWR

: ;POINT TO SOF TWARE

CLR

$PAS

MOV

#$SWREG, SWR

s001SP,DISPLAY
s-1,ISLR

JiSET l}; Sn
;i SETUP F

vsc gfis ER.

BNE

MOV
MOV

THARE
R

au
.osufi SWR

Séée
£8$:

,,PUT NEW PS ON STACK
:PUT NEW PC ON “STACK
,,POP NEW PC AND PS

MOV
MOV
MOV
cHP

23933 880538 001243
—

3267

<556
564

nN)e—
NE
WO
NW

3264
3265

3258
3259
3260
3961

0127
022

MOV

B
MOV
MOV
MOV
MOV

s INITIARLIZE THE SYSTEM

PR6, - (SP)
s64s, - (SP)

.,xnxranxzs R rsu
MOV

46b 6{ 3? ooswsé 88{{35

3256
3267

MOV

3250 00547y OIS;W 005474 001124
3561

*fiéTI

CHP

MOV
MOV
RTI

CLR

£2
0 do g s
329 0 04 st;g; 823;38
«
3241 syl 0Ol
3242 D420 012737 000340 36
3244 00SHM 81 g;
6
3047

SEG 0070

START OF PROGRAM

RESET

000300
00S342

3231

3232

PRGE 70

:CLERR AND SETUP FOR TEST EXECUTION
NOP

3229

3230

FO6

START:
00024

0053
0053
oosaqg

12:38

;;AND R
,,rnv 10

TOR
HxESunns SWICH REGISTER
oxspunv REGISTER
£ HARDMARE SWR

SWR

.g; RSG stanv
(8P)+,98ERRVEC
; ;RESTORE ERROR VECTOR
CLEAR PASS _COUNT

ng:?gxzs.semvn¥YFS
EET USE
USERNON-RPT
SIZE UNDER
RPT
SKITCH

6:& ~PT SWITCH REGISTER

CoJRMDBO RMO3/2 FCTNL TST 2
23-NOov-77 12:19
CZRMO8 .Pl1

00S618

_SBTTL

000042
00li24e

000001

001154

000176

000001

006204

006012
006014

006014

s-1
6

BEQ

TYPE

GET VALUE
TST

BNE
CMPB

GO6

PRGE 71

SEQ 0071

001150

718:

728:

000041

064562

YPE

H IF YES

FOR SOFTWARE SUiTCH REG

é
s NV, 81

: JARE

§¥
STRING

BPANCH
i §
:ARE WE

énc UNDER XXDP/ACT?

ING UNDER APT?

..ganncu

BNE

728’

: SBRANCH

MOVB

81, SAUTOB

: ;SET AUTO-MODE INDICATOR

698

.RSCIZ

sun SSWREG

s28

iSOFT

sWltCH REC SELECTED?

IF NO

:IGET SOFT-SWR SETTINGS

GET OVER THE ASC

<«CRLF>9CZRMOB - fifi03/Rfl02 SuUBSYS FUNCTIONRL TEST,PRARY 2 J<CRLF>

877, 3841
s

;

157

:1S LOC 42 ZERQ 7

TSTEB

SENV

TYPE

HALT

BNE
-

BEQ

, XDPMG
108

QRO FROH XXDP PEDIN 7
ANCH

:TYPE THE MESSAGE

!NO -~ NOT IN STANDALONE

STANORL ONE

1S APT ENVIRONMENT ZERO ??

!YES - PROGRAM IN STANDALONE

; PROGRAM NOT RUNNING IN STANDRL NgleagE IEOSIZI
NG IS RLLOWED

ks12:

001300

BITB
BNE
MOV

158:

ALLOWED ??

:NO
'YES - §£T 8£v1cz MAP FOR ALL DEVICES

goevfi

;c#s

MOV

s8ITQ,RY

IBIT MaP

;3 ART FROM

MOV

$BASE

| RO

MOV
MOV

Rl nficggt 0)
rReéS2 (RO,

‘k
:RERD

BNE
MOV

MOV

BIT

88177, SENVN

208
8377, SDEVM

CLR
CLR

000010

718

cHPB
BNE

000042

001e43

70%

;FIND OUT IF PROGRAM IS RUNNING IN STANDALOMNE MODE

001242

NORD, 2842

s ;FIRST TIME?
;;%RNCH IF NO
PIACT-117

BEQ
CHP

59205

000077

12:38

INC
Efi

g;sua

005762

00S
00Ss772
005776

23-NOV-?7
YPE PROGRARM NAME

000042

0056725

00S664
00S&66
00S674
00S674

30(1046)

.SBTTL
_TYPE PROGRAM NAME
;i TYPE THE NAME OF THE PROGRAM I F FIRST PRSS

172727277

033156

e h

RERR
\lU‘m?U

UU&:

R Fassmzsss
s an: 22# Frany ERRERERE

3272
3273

MACY11

BEQ
8IS

TYPE

MOV

sCLR, AMCS2(RD)
sNED,

S1(RO),R3

THE DRIVE O

agonsss

;
;

*r MAP

CLEAR

IVE ADDRESS
STATUS 70 SEE NED BIT

gflgxr §£

N IF
HECK THE

SO
DVA BIT

sDVA,R3

ofiqxg
nvnaneLE

17¢

:NOT rvpe THE NONE-EXIST MESG

NOTEX

:NOT EXIST DRIVE

168
R4, SDEVM

R1,-(SP)

NO
T THE BIT MAP

:DRIVE NUMBER

CoRMDBO RMO3/2 FCTNL TST 2

CZRMOB.P11

23-NOv-77 12:19

122
38 RS

1044

3330

3334

00612S

%i%

00619

3337
3338

006140

3336

103344
000137

23-NOov-7?7

TYP

178:
000007
20s:
006772

12:38

HOB

PRGE 72

GET VRLUE FOR SOFTWARE SWITCH REGISTER

2701

MACYL11l 30(1046)

AEE

'éEQRBgEEITTnE DRIVE RDDRESS

CMP

1s$

87 ,R1

BRQNCH IF NOT

BYTE

BHIS

;GO TO COMMON START CODE
JMP
CMNSTRRT

;ALL DRIVE CHECKED

SEQ 0072

C6.400

005327
1000e4

000001

o64071

oo 0

004737

828%3
PLOBo0TRTE
P Bmufimmo-o

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB. Pil
23-NOV-77 12:19

106

MACYHL SREIOVRL

STANDRLONE
:
JSR

gSE

: SEE

8S:

007124
001176

000116

ROCHR

o
Nt

L£QONL

Hooueo

829599
—NNLLTLELE

vesp PREVIOUS PARAMETERS

BEQ

208

csr NEW PQRQHETERS

TYPE

?ege
CMPB
BNE

;SEE

001176

308:

QSTMRK
&s
,HELPQST

; YES, RESPONSE??
0 _RE SPONSE
?

INOT_YES OR NO, TYPE *7°
' RETRY
WANT

csr R

SAVE Sno
scno RESPONSE
;WAS ITY;S
A
RESPONSE 22

JHELP

vss - 1vp: HELP TEXT

208

NO
-

,UBUSQST

MOV

<§P>+ STMPI

snve nno ECHO RESPONSE

ROCHR
1ST

(SP)+

s READ
CLERR

30$

NO
!

BNE

,§TMP]

STMPL,8’Y

¥B¥3 cnnucg RDDRESS 7

001176

uns xr YES RESPONSE 77

001276

4os:

*NTERRUPT
VECTOR

TYPE
RDOCT

, CLSPRN

BEQ
CHP

(o} §
8160000, STMP!

PYES-SKIP TO NEXT ENTRY
snss
DRESS IN I1/0 PRGE”"

(SP)+,$TMP]

cunngg FOR
BUS TYPEOQ
noons s

,,co TYPE--OCTAL nscxx(nLL DIGITS)
;GET MNEW aug Sgoness

:CARRJAGE RETURN??

BLOS

408

825L02

;EPE WARNING MESSAGE

MOV

STMP1, SBASE

:STORE NEW BUS ADDRESS

ggps

064155

MORE cuanncrsn
THE STACK

NSLOI
tense -(SP)

MOV

001176

YPE
nov

TYPOC

063572

rsp;;isrnpx
tTnpx .y

DIRLOGUE 10 cnnuce THE UNIBUS nognsgs

064130
001276

HELP

SER mms TO CHANGE RH03 UN

cCHMPB

000131

STMPL,8'N

RESPONSE

zoc
TYPE

001176

TYPE

20s:

063772

g}"" 8y

IF OPERATOR WANTS HELP FXLE

ROCHR

103566

SPONS

READY

TYPE
BR

000131

AIN PREVIOUS PARAMETERS??

CHPB

3 ¥

CNSLOO

{ECHO

c::a

;SEE

34 SST START 27

(ip“ STMP1

TYPE

063601

z
Dg i

s () 0
P

o8r
pisthd
8=t s () e pa

108

MOV
000131

160000

; INTTIALIZE CONSOLE

D?V%CES FOR TESTING
IF THS USER WANTS TO KEEP SRHE

109%:

013737

PC, STKINT

;SEE IF THIS IS THE FIRST STRART RFTER PROGRAM WAS LORDED

001176
001176
001176

001176

SEQ 0073

ue PP oRSoF TuekE ' 81 TCR REGTSTER

YES

EZRHDBO RMO3/2 FCTNL TST 2
ZRMOB.P11
23-NOvV-77 12:19

3396
3397
33
3399
3400

3401
3402
3403
3404
3405
34906
407
408
3409

00636M
006372
006376
006402
006406
006410

ooswlé
0OCouMl
006416
DOKN20
OX -424
O(b4ob
O
434
D
443
ODeude

113737
105037
104401
013746
104403
003
000
10440
604413
12637
0014]e2
2737
101003
04401
73.9

001272
Q01177
064236
001176

001000

3431
432
3433
MM
43S
343¥%
37
3438
3N39

006556
006556
00¢ .62
00559%
0065
0N=S76
0Ouob02
006610

8g6337
6337
006337
006337
006337
113737

001176
001176
001176
001176
001176
001176

3441
3442

006610
006634

005037
104401

001300
064423

3444
3445
3446
3447
3448
3443
3450

0066
006626
006632
0066
006644
DO6646
00bbS2

10MM11
012637
104v31
023727
001021
000137
012737

3440

000736

3443 0066é0 104401

MOVB

SVECT1, STMPI

STMP1+]

CNSLO3

(SP)
- I,
$TMP

001176

064266

OC-+64
O(-470
OCoN79
006500
0OC->08
006510
006eSIM
00¢S20
OOvwSe2
006523
00tS24
006530
006532
006536
006540
006546
006550

006554

0} ¥

001176

413
4184
341S
H16
3417
3418
3419
420
21
3422
3423
344
3425
3426
3427
3428
3429

M30

001176

JO6

_PRGE 74
23-Nov-77
12:38_
GET VALUE FOR SOFTWRARE SWITCH REGISTER

30(1046)

063572

M1 0 4 TR
Rl
3412 OLo:ES 60623; 001176
07 237
&XX6237?
oosag;
002
10037
104401
013746
104403
001
000
104401
104413
012637
001424
023727
002403
1049401

MACY1l

0oli2ze
001176

60S:

708:

001176
001176
001176
001176
001177
064342
001176

B8R
MOVB
MOVB

(S5P)+,STMP]
70
#1000, STMP1
60S

; CARRIARGE
RETURN?
; YES=SKIP TO NEXT ENTRY
;VECT?R RODRESS <« 100077
;YES!!
;TYPE WARNING MESSRGE
:RETRY

CNSLOM
0s
§TMP1 SVECTL

SVECTi+1,8TMP]
TMPL

, CLSPRN

(SP)+, STMP]
308

87
STMPL,
8 os
CNSLO6

000007

064376
80Ss:

006014
000377

SS LERDING ZEROS

;GET NEW

%08

sTHPL

VECTOR ARDDRESS

;STORE NEW VECTOR RDDRESS
; TYPE CURRENT PRIORITY

;;SAVE STMP1 FOR TYPEOQUT
;GO _TYPE--OCTAL RSCII
1

DIGIT(S)

; s SUPPRESS LERDING ZEROS

;GET NEW PRIORITY
; CARR]
RETURN??
; YES-SKIP

TO NEXT

;nge% PRIORITY??

ENTRY

YES!!

;s TYPE WARNING MESSAGE
; RETRY

;STORE NEW PRIORITY

TMP1
THP1

001273

90s:

STMPL
STMP]
STMP1,SVECT1+1

;DIRLOGUE TO INPUT DEVICE NUMBER S
CLERR DEVICE MAP
SOE VM
cL
:TYPE
INPUT_
INSTRUCTIONS
,CNSLD?

357%

001176
001176
001176

s TYPE

001176

; ;SAVE STMP1 FOR TYPEOUT
;560 TYPE--OCTAL RSCII

s+ TYPE 3 DIGIT(S)

CNSLOS

001176

; TYPE CURRENT VECTOR ADDRESS

3
0
, CLSPRN

I,
- (SP)
$§TMP

063572

SEQ 0074

(SP)+ STMP]

:TYPE
PROMPTING CHARACTER
GET RESPONSE
'ECHO RESPONSE

000101

§THP1, #’A

; TEST ALL DRIVES??

001300

X512
8377, SDEVH

‘AUTO SIZE
;TEST ALL DEVICES

" PROMPT
TMP

1108

cznnoeo RMO3/2 FCTNL TST 2
CZRMOB. P11
23-NOV-?7 12:19
34S1

482

3453

006660

006662

345y 00»::)«38

3485
3456

3457

ooe,gg
006

&703
71

0O04NM

MACY1l

104401

06357S

62«0;
3727

001176
001176

000015

001176

000060

o4Y

126

825“

KDE»

30(1046)
ag NOV-27
12:38
GS ?
GET VALUE
FOR SOFTWARE SWITCH
REGISTER

1008:

001176

1108:

a0 oos;xs 353-453
ooe; 001176 000067
7
683401 063601

1208:

3464

1308:

461 %7
7

762

3465

006742

006736

013701

001176

3467
3468

006
006756

042702
050237

177400
001300

3470

006770

101334

042701

177770

466 006746 116102 064774
3469
3471

006762
006772

122737

000377

TYPE

RDCHR

MOV

1408:

;SKIP TO NEXT ENTRY

(SP)+ STMP!

EST n&éponss

,PROMPT

sTHPl
tmpx sCR

CMP

TMP1, 8’0

gh;

BLE

sn%x
87
1308

NOV

smm m

TYPE
BR
BIC

QSTMRK
{00s

MOVB

mmbum) R2

CHPB

na’n SOEVM

BIC
BIS

001300

140$

TYPE
CHP
BEQ

BHI

SEQ 0075

81C377,R2
R2, SDEYM
1008’

:TYPE PROMPTING CHARACTER

RESPONSE

; CRRRIAGE RETURN??
;NUMBER

0?7

nfiaaen
> 779
:NO!
rvpe g
RETRY

Rl-DRIVE NUMBER

: DECODE DEVICE NU neen

:CLEAR UNUSED BIT
'SET DEVICE # m

:DONE 22’
'NO

c’mo RMO3/2 FCTNL

CZRMOB.P11

TST 2

23-NOV-77 12:1

33:;3

006772

33:75

3478

007002

34;3 %775

MACY1l

137

001300

010137

001450

16311

007022

3499
348

gmg
70

006302
105702

007044

000763

007030

116361

062701

3488
3489

007040
007042

33:91

Co70M6

00S011

3494

0070S0

004737

3438
3499

007062
007064

000775

8876"%’

1(73:145

3490

" 3493

nov

MOV

064774

000002

108:

000001

208 :

258 :

3510
3511

3512
3513
3514

007110
007112
007114
007116

308
40§
:

.SBTTL

000042

007124
007124

007126
007132
00713

00100S
104407
ooowg;
127

000001

004737
013746

821325
1400
000300

2ie Dorlee
208003 007180
007150

3517

3518
3519

007150
0071S6

117737

005037

1722?74

001474

oy
gég

MOV

PAGE 76

SEG 0076

0G1150

001234

6u4S:

(R1)

'R] = 2803555 OF FIRST ENTRY IN QUE

JINITIALIZE ENTRY POINTER

iRs
= BEVICE ROMBER
115 mxs DEVICE IN MRP 77
;

R DEVICE NUMBER IN QUE

RS
1578

R2
R2

ADD

82,R1

BEQ
INC

25S$
R3

CLR

(R1)

novmc

POINTER

vxc POINTER
VICES 27
ogvags
NUMBER

108

ENTER NEX

JSR

PC,SIZCLK

:SEE

30s

BRroR
HALT

4od

: TERMINARTE TEST ous
IF CLOCK PRESENT

NSSCCOELOCK
1S PRESENT
'

GET vm.ue FOR SOF TWARE suncu
ar%e
'I'H]
gss

CMPB
¢

658:
RERDY:

aRe
Ra‘Ro

ATATBL (R3), 1(R1) :ENTER nm:m
ON BIT IN QUE

64S:

mbe+a Rl

m TSTQUE

;

MOVB

:SIZE FOR CLOCK

040204

303 007672 123727 001242 000001
3504
0071
oowog
3505 0071
023727 001154 000176

336
3507
X088
3509

LO6

GET VALUE FOR SOFTWARE SWITCH REGISTER

001402
005203

Fe
ogroce 999393
3497 007060 000000

3500
gssgé

12:38

nsssnel.s TEST QLsJE rnogooevxcz NRPRO

1273? 001452

3484

3485

23-NOv-?7

CMNSTRRT:

60
BR7ais
QbEnog ~oodo!
33:35
%m
§gosg
3483

30(1046)

BNE
GTSWR
BR
MOVE
NOP

gznv sl
sun SSWREG
65s’

658
81, SAUTOB

cxsrsn
ngfl UNDER XXDP/RCT?

ING UNDER APT?
su cu REG SELECTED?

m
,,cs SOF sun SETTINGS

; ;SET AUTO-MODE INUICARTOR
:RERDY TO START TEST

CLR
JSR
MOV

CTLFG
PC STIINT
PRE, - (SP)

a6, -5P)

L 08P NEW PE AND
Ba K

MOVEB

JTSTQUE,SUNIT

;LOARD UNIT NUMBER

noy
CLR

MEDENB

:CLEAR T
mnx%
i

CONTROL-C FLRG
on STACK

:CLEAR MEDIA ENRBLE

MACY11

MO6

PAGE 77
23-Nov-77
12:38
CONTROLLER RCCESS TEST

30¢ 1046)
Ti

2z SRS

t4 Ti:

18:

10
7¢
7o

CONTROLLER RCCESS TEST

00000000 000000 0003000 000 30 0000 3000 000 00 00 000 0000 000 00 00 000 00 00 000 00 0000 00 00 003000 0000 30 0000 6 00 00

NOP
MOV
MOV

ll;,

PRDOR

;START OF TEST

81S,SLPERR

MOV

MoV

184t TeBYNGRePR TR ABY

M
v

CLR
MOV

RAIL Box

; ;PUSH ERRVEC ON STACK

; ; PUSH ERRVEC+2 ON STACK

RSV
v

£
£
o

MOV

BRI
R
RARAARR
AZINIE R Qe Ln
e S A ES

SEQ 0077

g o MU AEIEIE U000 0 00 08 00 00 06 3 00 O 36 08 2 30 08 3 30 08 0% 96 06 3% 36 38 3 36 9% 36 36 3% 36 06 3% 9 08 3% 3 36 38 30 36 9 3 3 9% 3 36 3% 3 3 3 3% 4% 3 3% %

g TEST

R
8

) CRARERE,

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.PL1L
23-NOv-7? 12:19

MOVB
MOV

{ROVE bR CoUNT REGTSTER

;MOVE BUS RDDRESS REGISTER

;MOVE CONTROL STATUS REGISTER

MOV

MOV
MOV

; MOVE DATA BUFFER

MOV

. . POP

?TREK

INTO

ERRVEC+2

§Tncx

INTO

ERRVEC+2

; : POP grhéx INYO
ERRVEC
;N0
BUS
TIMEOUT OCCURRED

; ROJUST srggg

38:

-.PoP STALK INTO ERRVEC

eT
:

ACCES

US CONTROLLER

6576 R OFPAES HANDLER

G
§ 5 ORI IE 0000 0

7 TEST

00000 00 0000 00 00 00 00

00 00 00 00 008 00 00 00 000 T8 00 00 0 0000 00 00 00 00 00000 00 00 0 000 0

DEVICE RVRILABLE TEST

(2222222222222 2222 22222222222

t&12

SCOPE

N8P

MOV

001ee6

8STACK, SP

LRLILALSLIRLI22222222322222
22

:SC
CALL
;?TRR
OF TEST
; INITIARLIZE
STACK POINTER
; RO=UNIBUS
RODRESS
(R}) =
DEVICE BEING TESTED

MOV
MOV
[0}

$BASE, RO

JSR
BR

PC,CNTCLR
;GO TO 28 IF NO ERROR
cs
;RETURN HERE IF ERROR

NOP

TEST

NUMBER

IN RPT

MRIL

BOX

cznnoeo Rfl03/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

MACY1l

332;9 %;353 683139 007540
35;8
TM
13746 000NN

30(1046)
T2

)

NOG&

23-NOV-77
12:38
PRGE 78
DEVICE AVRILABLE
TEST

RROR
Snp
MOV

SEQ 0078

NUMBER
7%
;GO TO 7?8:ERROR
IF ERROR
WRS DEFINED
FOUND BY SUB
Emzsg -(SP)
: s PUSH smvsg 3

3¢€80
3*31
33235

TM
%7‘43‘0
v42

137%
137 ?
0137

€0
%
0.. <
000,30

00000M

000006

MOV
MOV
MOV

3584
X35

7950
7456

016037
Q16037

000018

001176
001174

MOV
MOV

RMCS1(RQ),$TMP1 ;GET DVA STATUS
RHCSE(RO) TMPO ;GET NED STATUS

gég

ggnoa

:NONEXISTENT DEVICE

S,fl{

agvn,smm

oggxce AVRILABLE??

ssnon

:DEVICE NOT AVRILABLE

CMP
MOV

(SP)+, (SP)+
(«gpn, RRVEC+2

s RDJUST smcx

3536
3537

007464
007470

012637
012637

33‘55311)

887504

w-uhx’

g'g%

%gig

803%:1’5

332%

%7520

1041 62

3597
353

007524
007526

022626
8‘5"37

3600

007536

gg;g

353%
3

%3%

53‘583

000006
000004

772073 0003213% 010000 001174
004000

001176

°2 000

007532
007640

012637 00000N

104113

000137

032732

78:

007544

3610

007544

312

037650

)+, ERRVEC+2
P)+;ansc

(5P)+' ERRVEC

113

$EOSP

POP STRCK INTO ERRVEC+2
'fvhéx INTO ERRVEC

kgnex STENT DEVICE??

§mcxINTO ERRVEC+2

; - POP smcxINYO ERRVEC
:BUS TIMEOUT (04 TRAP)

9s:
Y

*S;»llllllill!Illli!lllllllillllllllllllillllilllllllil!ll!!lillll

0D00OY

007546

8002«40

007554
007560
4

013700
013701
012737

012706

SCOPE

NOP

001100

001276
001450
000003

3617

007572

007576

DOO40M

004737

046660

364
3625

7616
7

61 37
12737

5000
7726

3618

ERROR

RRVEC +2

007544

3613
3614
33212

MOV

; ;PUSH ER vec+a ON STACK

‘#lllllIllill!ls;:lgl:l;gG;E;:llllll!lllllllllii!llll!llllllll!l

gg%

351$

3$:

5§

000036

332%

3607

MOV
MOV

RRVEC42, - (SP
RgEanvtc

MOV

MOV
MOV
MOV

001226

JSR

-sconf'
anL
#STACK, SP

senss RO
grout Rl
STESTN

TAR

TEST

NITI%E
smcx

POINTER

RESS
(n
=
vxcs BEING TESTED
::SET
TEST NUMBER IN APT MnIL BOX

PC,CNTCLR

2s’

;GO TO 28 IF NO zn OR

3619 007503 006240
3620 077602 104000
3621 0372% 000137 007722
2
:«;e:aE Ejsxo ug;a?
26 001506
’

NOP
ERROR
MP
MOVB

asngg IF ERROR
NUHH R oe INED BY SUB
0T
;GO TO wt IF ERROR WARS FOUND
R r TINX
:SETUP GET INDEX TABLE

326

007632

JSR

PC,LET

3628

007640

00029

3631

007652

00142S

3227 03763
3629
30

007642
007644

4737

ouog

104000
022737

037516

001507
0013%6

MOVB
MOV

NOP

020024

001356

3$:

ERROR
CHP

BEQ

820 sINX+1
35S . AM

nnor mpur BUFFER = 5§

#SNGPRT, RMOTI

: ERROR NUHBER SPECIFIED BY GET
SINGLE PORT RMO3?

3s
c3

0 GET oaxgs TYPE

:G0 TO 36é‘
NOE

HERE

YES

IF ERROR

23-NOovV-

2737

7654

P 4

7662

8
N
N
® RSN

sz 19

024024

GEREERRSe

P11l

02002S
0240es

MACY L1 30(10%)
001356

001356
0013S6
1176
1200

:38

IvEOYeeE 1i&i

csng

BO7

PRGE 79

PRT,RMOTI

g NGPRT!BITO, nmn
g PRT!BITO,RMOTI

RROR
MP

s
T,iTH’é
sDULPRT. §THP

SEG

ogg&. PORT RMO377?

gng
gsng
Vv
v

us:

032732

3-NOV-77?

:NOT AN RMO3
:GO TO SUBPASS HANDLER.

hesr Y
FORMAT ZEROS - 18
*é::}lllllllllllllillll!lllllilllillllllll!llllllllllllll!lilllli

9 NNNNNSN 9

001434

fet=t=tewtatetet

0000000

We Ehoarne IR
85
%RN
9
4 §§9§§

[t et ettt

108

MOV

MOV
MOV
MOV
MOV
MOV

1404

1400
001174

001176

208:

. WORD

Pt Pt

BR
108

e
e e (O O)

001400

e
MP

smon

0200
037766

nnmtugsmcx POINTER

cvuroen 0

zgg;s

st
>+1>,
%40
ozsk?sné

5321

: TRSK DESCR 5

unna_ FER RRDORESS
AND DATA
L ZEROS DATR PATTERN

Pfl& DEVICE FOR TEST

OR #

1808

:DATA

:GO GENERATE DATA BUFFER

DATA TRANSFER

PC, TSTPRP

[
2+ Lg‘uoaos

o 3os IF NO ERROR

rxuzo BY TSTPRP SUBROUTINE

0 T0 1808 IF ERROR WAS FOUND

:SETUP PRRAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

MOV

MOV
MOvV8
MOVE
\'%

Dt Ot Pt Pt P

DCNDCXDC‘;
R8B!
P

JSR

010S26

1otoTest
ogvxcs mcIN APT
TESTEDMAIL BOX

csmcx
aase
STN

; PREPARE DEVICE FOR

P
ot Dot P

Dot Pt Pomt Bt v Pt P

0000000000

e 0=t G

e
MOV
MOV
MOV
MOV

;SETUP PRRAMETERS r%mmnm DATR BUFFER

e
1485

0000000

001226

n
~

-t=te]

R
i

lIlllIllll!llllllll.ll{l!llll!!illlill!llllllllllil!il!illll!ll

GRREERERSN NN

c
c

/2 FCTNL
T

v
MOV

JSR

NOP

:gfigmco RMCS10
NX, R2
, (R2)+

s CHANGE COMMAND TO SEEK

‘WRITE REGISTER INDEX TABLE

, (R2)+

SRMOF . (R2)

sRMCS], (R2)+
8200, (R2)+

PC,POT

4oé

0 WRITE Recxsrsns VIR PUT SUB

;GO TO ubs IF NO ERROR

:RETURN HERE IF ERROR

007

€0 0379

oE 9d ¢99 !9g

(2]

037432
04032%

037516

010ses

045420

01026

MACY11

3?‘0(1046) F

4OS$

ERROR

1, o

508

JSR

Sea 0080

ERROR DEFINED BY PUT SUB

;GO TO léOS IF ERROR WARS FOUND

PC, TIMOUT

; GO RERD SEEK STRTUS

608

SRROR
mP

180$

iWAIT FOR SEEK TO COMPLETE

o 10 d’%dasao
RgSOZTERS VIR GET SUB

JSR

;GO TO 1

!E ?R

IF _ERROR

FIP(D

Y GET SuB
FOUND

;VERIFY THE RESULTS OF THE SEEK C

;&SEKSTS

; GO VERIFY
R‘W
? gSEK sgaRRTION

RROR P
1
h (3
180s

RER;4 ‘E
RSERROR WASOUTINE
O) IF KSTS
K5Fl10 1808
FOUND

D&J(k?n

§|

.60 To us_a'x‘cr)s gggsv:ns VIR PUT SUB

e
P

1808

SRS
IF
GO T0 1603

zga

a0S:

:Rn»si (Ré:+

ngva
vB

;WRIT FOR WRITE COMMAND TO COMPLETE AND RERD STATUS

010see

o40s1e

Q08:

010526

ST
IF ERROR WAS
;G0 TO 160:
;

180%

oomeng LR O

: VERIFY Rguus oF WRITE COMMAND
J

¢,PRIERR

5 ROR

1808

PRGE 80

; SETUP ron RERD ING SYRTUS AND THEN WRIT FOR SEEK 10 COH’LETE
JSR
PC,GETSTS
;SETUP FOR STRTUS

4
e
X

ZEROS le:
- 1

NSP

0000
[N

-NQV-77

WRITE HERDER AND DATA
€
:LORD
"éé’im“’é"%‘" ANO DATA
EXECUTE
s SETUP %
3833
opurérd(
{EXTEND REGISTER INDEX TABLE

RRRRY

Sren Dt Pt Pt Pt

[t et e et ettt ot ot et et

[0 o]le ole o clele o ale]

e Gt et e e P

0000000

e
o
Pt
e Ot P

010S26

] TR DRERS B JINIR
5
ottt 1=
52
2 :

o fums

RPonE

o-o-fi

P
Ppmpm

s
®
8
YT
83 B YR S
3731

#3181

CO7

IMP

100s

PC,A(SP)+

1808

;GO CHECK roa PR MARY ERRORS
RE

xr NO ERROR

qu av mxsna SUBROUTINE
MORE ERROR CHECKS

co TO 1808 IF ERROR WRS FOLND

CZRMDBO RMO3/2 FCTML TST 2

CZRMDB.P11
79

23-NOV-77 12:19

MACY1l 30(1046)

010314

§7us gioaw omrgg 053016
3
0329

§Nm7 i &
749

;:;EO

010

{&;’g

137

3756 8‘3335“8

736

01026

5;% 103
737 041344
3
133?% %}
E:?sis oi& 1m038

3757
3758

01
010354

137 010526

33761 81035-4 812737 000073 001400

g;sq
iwo 12;3? 63}‘-?-25 o01404
3765 §1§§’7~o
3767 o{
g 6%1%95 010526
3768
018:2
3;573 010406
3771
3772

3773

010%06
010412

004737
004737

040326
037516

3779 818:1’3 00404
3:7755 ofo-«e ?8.,5’38
3777 010424 000137 010526
3773 010430
3780
3781

gxgjao

737

%% oiow:’az %35%

040512

3788

053016

7%
foew 010526
g;gg Heug
§i$§§ %1
7
g;gg 010MC
8}0&94 %-43;

373é 1

908

37
g;g §1
oimmq fi 1 :3’9 010526
3795 oxm;g 004737 041344
g;gg

8%837"

%oqqo

3798
010563 104
3799 010502 004736

@23-NOV-7?7

12:38

FORMRT ZEROS - 18

100$:

gga

f;(l:ogmsrs

JSR

PC.3(SP)+

JSR
BR
ERROR

PC, SECERR
1208

1108

E Pom
P

1808

JSR

1208:

PC.J(SP)+

IMP

1808

sRERD HERDER AND

MOV

"°X
3R

D07

PRGE 81

SEG 0081

;GO VERIFYR?SULTSs Iro%nsggggsrzn
; RETURN

Snbné?fixmoBY omsrs SUBROUTINE
OR CHECKS

1r ERROR WAS FOUND

;GO crccx ron sscowamr RRORS
RET ‘gge
0 TM3 JF NO ERROR
:ERROR
FINED av secsnn suemunne
:GO BRCK FOR MORE

CHECK
;GO T01905
IF ERROR
ms FOUND

DATA FOR
23
?ESECTOR JUST mxnsu
RE choen 8 DATA COMMAND

38UFu"b
C?SRSUT SUB
ol .60 TO 1382InsRfii&& TERS

N%on 180%
§nP

v PUT SUB
:GO TO 1955 ?R gfifi&aNEung

1308:
:WAIT FOR RERD TO com.sre AND GET STATUS
JSR
PC, I1MOUT
,mIT FOR READ o COMPLETE

JSR
BR
ERROR
JP

GET
VIRGET SUB
wbs
:GO TO 140: xr ADNOREGISTERS
Ss R ROR
RSQ "?me av csr SuB
180%
:GO TO 190: IF ERROR WAS F

gga

Pg PRIERR

140S:
.VERIFY THE RESULTS OF READ OPERATION

’

1508

NOP

1608

1508

TR
e
1808
JSR
PC.CTRSTS
BR
1608

ERROR
JSR
PC,3(SP)+
IP
1808

:GO CHECK FOR PRIMARY ERROR?R

; RETURN F:Rtm !
'

A ;G0S TO 1905eIF ERROR
e WARS FOUND

VERIFY

OF oam mmsren
R%ULsgs

Ennons ngx Rgmsrsuenourme

eos
IF ERROR ms FOUND

JSR

PC, SECERR

;GO cuccx FOR SECONDARY ERRORS

ERROR
JSR

PC,3(SP)+

ennon
o‘%nfmeo BY SECERR SUBROUTINE
:G0 BRCK FOR MORE ERROR CHECKS

sgp

1708

.GO TO 1%0?' NO ERROR

cznnoeo RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

3800
3801

3802

3803
3808

MRCY11 30(1046)
23-NOV-7?
12: 3e
TM
FORMAT ZEROS - 18

010SOM
010510

000137

010526

010510

004737

037064

IMP

1708:

: VERIFY DRTR

3809 01% 633%05

3808
3809
%}?

010522
(010524
010526

000240
104000

38l

381S

3816
3817

3820
3821
382%

010526

010526
mgg

000004

01053

013700

gmswg
01054
010554

ocx:e:;os: 001100

013701
012737

1450
000005

3829 gmsou

8127;:7 6%23

3832

0127

3830
3831

010612
010620

3833
%33?;

010634
010640

384s
g;

gg-:g

012737
0127

%3686

0047

036620

010640

004737

034000

81 46
010650
010652
010654

000404
000240
104000
000137

011326

1
1

81
1

010626

oxgw 154130
010660

1
1

3855

;G0 _COMPARE WRITE, RERD DATA BUFFERS

1808

)

~08°?o 1985 IF NO ERROR

;RETURN HERE
IF ERROR
'ERROR 8 DEFINED BY CMPBUF SUBROUTINE

1071

81 13
01 5-4
0107

FORMAT 2EROS - 16

11
11
11
1

?
000240

MOV

001226

37766

108:

33 W 3

W W W K% X% EWE %

MOV
MOV

8STACK, SP

$BASE , RO

TSTO#‘ R1
#S,STESTN

; SCOPE anL
smm ngr

mmélzs TRCK POINTER

ho =UNIBUS RDORESS

*(R1) =
DEVICE BEING TESTED
::SeT TEST NUMBER IN APT MRIL BOX

:SETUP PRRAMETERS F
NERATING DATA BUFFER
MOV
%085
;CYLINDER = 0
MOV
.9
:TRACK = SECTOR = O

MOV
MOV

001404

MOV

001400
001174

MOV
MOV

001178

MOV

208:

JSR

hng
8¢4C< less >+1> RMWCO

16 BIT FORMAT
34
WORDS

vy
§10
8ZEROS, $TMPO

i MRITE HEADER AND DATA
:USE ALL ZEROS DATA PATTERN

PC . GENBUF

;GO GENERATE DATA BUFFER

w% RMBAO
8l,STMP1

,DATA BUFFER RDDRESS

: PREPARE DEVICE ron oam mmsrsn
JSR
STPRP
REPARE DEVICE FOR TEST
. WORD 554130 ; TRSK osscnxpvoa
BR
:GO TO 30% IF NO ERROR
NOP
;RETURN
RERE IF ERROR
ERROR
'ERROR # DEF INED BY TSTPRP SUBRGUTINE
bz 3]
1808
;GO TO 180§ IF ERROR WRS FOUND

30$:

001400

SCOPE
NOP

MOV

881275

010554 012737 000000 001434
Ol
12737
001406
3827 ng% 19737
Q0143¢
3828 010576 01737 |
140

3843

;GO TO 1808 IF ERROR WRS FOUND

llllilllll!lll{lllilll!llllllillll!llllllillllllllllll!!llll!lvi

tét1s,

3824
3825
3826

383%
3837
3838
3839
3840
3841
38'43

1808

PC, CMPBUF

hssr

3818 0l
3819

SEQ 0082

o SR 30 U030 300 30 30 35 36 36 36 96 36 36 U 96 3 38 38 3 36 36 3 3 96 3 36 3 3 3 3 3 98 3 3 3 3 3 % 3 % 3% % 3 3

3813
3814

PAGE 82

JSR

NOP
ERROR

180S:

EQ?7

: SETUP Pmmersas EXECUTE SEEK TO GET DRIVE ON CYLINDER
.gsgx'coRMCS10
s CHANGE COMMAND TO SEEK
nov

novg
MOV
MOV

MOV

MOVB

JSR
BR
HOP

,(h
)+
, (R2)

:WRITE REGISTER INDEX TRBLE

mncsl ( a)o
8200, (R2)+

PC,PUT

4oé

GO WRITE REGISTERS VIR PUT SUB
"RETURN HERE IF ERROR

:GO TO ubs IF NO ERROR

CZRMDBO RMO3-/2 FCTNL TST 2

CZRMUB. P11
23-NOV-77 12:19
3856 010726 104000
3857
010730 000137 011328
3332’3 010734
3860
3861 010734 oovg? 037432
3862 010740
737 040326
3883 010744
3865

3959

3868
3869

gxom
16750
010752
cugrsu

004737
0O0Y
000240
104000

MACY11l 30(1046)

408 :

037516

010762

004737

3878

01077M

00473%

387s
3876
3877

3879
339:13

3882
3883

010766
010770
010772

016776
011002
01l

3894 011010
3885

3886
3837

011014

011020
011024

000405
000240
104000

60S:

011326

012737

000063

112722

000002

012702 001540

3892

011042

011044

:aec:t,:E

70S:
001400

3900
3901

011064
011066

000240
104000

3903

011074

3906

3907

011074

011100

004737

3909
- 3910
3911

011104
011i06
011110

10400C
004736
000137

004737

040326

180%

;GO TO 160: IF ERROR WAS FOUND

JSR

PC.SEKSTS

:GO VERIFY
R§suus OF SEEK OPERATION

JSR

PC,(SP)+

:GO BACK

P
MOV

MOV

MOVB

?8}{

0OO40S

3908 011102 0060240

g808:

080512

011326

708

1808

0 708 IF NO ERROR
:"ERROR
RETURN & hsncDEFINED
IF ERROR
BY SEKSTS SUBROUTINE
on
ons ERROR CHECKS

;GOTO 1808 IF ERROR WAS FOUND

1G0, RMCS10

cpurmk+3 R2
SRMWC, (R2) +

#RMBA’ (R2)+
#R’MCS], (R2)+

:LORD WRITE HERDER AND DATA

SEXTEND REGISTER INDEX TRBLE

ggogfikan
ITE REGISTERS VIR PUT SUB
80$
GO TO 902 y ERROR
180$

HERE IF ERROR

ROR DEF INED TMY PUT SUB

GO 10 1éos IF ERROR Wh. FOUND

:WAIT FOR WRITE conmno TO COMPLETE AND RERD smws
JSR

037516

3902 011070 000137 011326

GO nsno REGISTERS VIR GET SUB
OR
RE IF ERROR
RROR
FINED BY GET SUB

:SETUP RAND sxscurs WRITE HERGER AND DATA conmno

104000

3899 011062 000404
3905:

Jme

000240

004737

011056

:GO TO sbs;r

BR
oP
ERROR
IMP
.

011052

3898

60¢

MOVB
MOV

3897

PUT SUB
;GO TO 1605 ROR
IF DEFINED
ERROR WRSBY FOUND

98 GET

112722 0O0OCH
000000
(127

3833
011046
000137 011326
3894
0110s2

1808

SEG 0083

BR
NOP
ERROR

maaae
gfifi% ua; %
3890 011040 %«m
3891

b, 2

PARGE 83

:VERIFY THE RESULTS OF THE SEEK COMMAND

045420

000137

FO?7

FORMAT ZEROS - 16
ERROR

JSR
NOP
ERROR

3870 8110762
756 000137 011326
3874

12:38

:SETUP FOR RERDING STATUS RAND THEN WAIT FOR_SEEK TO COHPLETE
13
PC,GETSTS
;SETUP _FOR STATUS
ISR
PC.TIMOUT
*WAIT FOR SEEK TO COMPLETE
508 :
;GO RERD SEEK STATUS

33371

39;3

23-NOV-7?7

ISR

csr

sWAIT
FOR COMMAND TO COMPLETE

.GO READ 'REGISTERS VIR GET SUB

9ot

;G0 T0 90s ¥r NO HERRon

JMP

180$

:GO TO 1éos IF ERROR WAS FOUND

NOP
ERROR
90§:

; VERIFY RESULTS QOF WRITE COMMAND
JSR

PC,PRIERR

ERROR
JSR
IMP

PC,a(SP)+
1808

NOP

1008

;RE URN
HERE IF ERROR
RROR DEFINED BY GET SUB

;GO cnecx roa PRIMARY ERRORS

o 1008 IF NO ERROR

: RETURN hen IF ERROR

'ERROR # DEFINED BY PRIERR SUBROUTINE
:GO ancx FOR MORE ERROR CHECKS
:GO TO 1808 IF ERROR WARS FOUND

CZRMDBO RMO3/2 FCTNL TST 2
23-NOV-77 | e:19
CZRMOB. P11l

3915 81111-4

391
ggm

11114
111

004737

3916
3917
333}8

0111
0111
ifi

3920

3321
3322

3923
3324
3325

3326

Foo8

3329
3930

3331

0111

ERROR
JSR
Ine

PC,J(SP)+

1808

:ERROR # oermeo BY DTRSTS SUBROUTINE
:GO BACK FOR
RROR CHECKS
;GO TO1
IF ERROR WAS FOUND
;GO CHECK FOR ssconomy ERR

OMI344

JSR

PC izcenn

011144
011146
011150

000240
104000
004736
000137

011326

ERROR
JSR
IMP

PC,J(SP)+
1808

011154

012737

000073

Olilbe

012737

104572

011200

104000

011326

011206

011212

$737

040326

737

011230

004737

39539'5;

011234
011236
011240
011242
8“244

000405
000240
104000
004736
000137

3958
gggg
391

01!
811
11
8{{554

000240
68:
000137

3965

011276

000240

3967

011302

004736

120

RETURN

o T0 1?&:
sRETURN HERE IF
"ERROR# DEFINED BY SECERR SUBROUTINE
1GO BACK FOR MORE ERROR CHECKS
;GO TO 1808 IF ERROR WAS FOUND

;READ HEADER AND DATA FOR SECTOR JUST unmsn
MOV

001404

MOV

REARD HERDER 8 DATA COMMAND

JSR
BR
NOP

CHANGE BUS RDDRESS
xrt
Rggxsrsns
viAa PUT sus
30: :GO TO 1303 xr ERROR
; RE
RE IF ERROR

InpP

180%

ERROR

1308:

#RH! GO, RMCSI0

caurrub RMBRO

smon DEFINED

BY PUT SUB

:GO TO 1808 IF ERROR WARS FOUND

:WRIT FOR RERD TO conm.srs AND GET STATUS

JSR
ISR

BR
NOP
ERROR
JmP

PC, TIMOUT
PC GET

1408
1808

SHAIT on READ TO COMPLETE

ng REG ERS VIA GET SUB

;GO TO 1405
NO
RETURN HERE IF ERR
ERROR DEF INED BY csr SUB
:GO TO 19031
F ERROR WAS FOUND

040512

1408:
;VERIFY THE RESULTS OF RERD OPERATION
JSR
PC.PRIERR
:GO CHECK FOR PRIMARY
ERRORS
BR
15808
.GO TO 150% xr NC ERROR
NOP
:RETURN HERE IF ERROR
ERROR
'ERROR 8
DEFINED BY PRIERR SUBROUTINE

011326

505

3955
737 0S3016
3957 oug
011254 %wos

011326

3%3
011277'8 %337 041344
3964 011274
39%5 011303 104000

001400

037516

3942 011220
011216 00ON0M
000240
011222 104000
Q11224 000137 011326
011230

BR
NOP

1208:

SEG 0084

;GO VERIFY RESULTS OF DATA TRANSFER
‘2 T 1ég30£r NO ERROR

%z 7

011159

PRGE 84

PC,DTASTS
1168

CilldM

000137

3953

JSR
BR

011326

011140
011142

1108

12:38

13?7

011202
011206

3943
3944
3945
39-«_;
3948
3949
3950
395]
3952

_23-NOV-77

FORMART ZEROS - 16

NOP

393%
3’3333;
3939

3940

100S8:

0S3016

3932 011170
3333
011179 004737
000404 037766
3334 011176 000240
3935

MARCY11 30(1046)
T8

GO?7

1608

JSR

PC,3(SP)+

GO BRCK

JSR
BR

PC.DTRSTS
1608

;GO VERIFY
mmsrsn
coR§oRESULTS
1 OFIF DATR
NO ERR

NOP
ERROR
JSR
INP

JSR
BR
NOP

ERROR
J

1808

PC.3(SP)+
1808

MORE ERROR CHECKS

;GO TO 1808 IF ERROR WRS FOUND

RE IF ERROR
1
BY Rgogsrs guenounnc
:GO BACK
:GO T0 1
IF ERROR WRS FOUND

ERROR s

PC,
SECERR
1708

:GO CHECK GOFORTO SECONDARY
ERRORS
1708 IF NO ERROR

PC,A(SP)+

GO BRCK FOR MORE ERROR CHECKS

RETURN HERE IF ERROR

'ERROR & DEFINED BY SECERR SUBROUTINE

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDS.P11
23-NOV-77 12:19

3968

3969

3970

011304

011310

000137

MACY1l

011326

011316

104572

3376
3377

011322
011324
011326

0240
104000

gg;g

011320

3984

511326

011326

000004

011346
011354

3335

11354

012737

000006

399%
3997
3998
3999
4000
400l
:885

011376
011404
O0l1l4l2
(11420
0Oli426
011434

01
01
01
01
0l
004737

036620

400N
4

Biiquo

737

034000

4010

011454

000137

012142

011460

012737

00000S

001226

0i1440

4
Y
41
4006 011458 9093
H
811422 ?89538

wo1

4018
4
¥

4022
4023

;GO TO 1B0S IF ERROR WAS FOUND

PC, CMPBUF
au#SNE

RE
TA BUFFERS
g?nfi?xnc sooflésg 38 ?“ u??

180$

go ? 1

OF READ aurren

30£r NO ERROR

sRETURN MERE
{ERROR 8 DEFINED BY CMPBUF SUBROUTINE

011460
iq

011502
11

112722
7

011522

000404

011524

2ERO FILL TEST

W EE % H R

W% % E

SCOPE

Ny
MOV
108:

MOV

scops CRLL

$BacE a8
rsro¥s

“bu? RESS
(Rl) ogvxceasxnc TESTED

STESTN

;s SE

RPT MAIL BOX

; SETUP Pgnenersns rgn GENERARTING DATA eurrsnl

3994 811
81
3995 011370 Ol

4 i

180$

SEQ 0085

!Illllli!lllllllllllillllllllllll!llllllllll!llIllllil»!lIi!i!li

3989
ggg?

4Ol4

PRGE 85

436936 35 38 08 38 36 3 36 96 35 3 3 3% 3 36 3% 3 36 3 3 95 3% 3 % 3 4 3 3 3 % 36 2 % 3 3 % 3 3 W 3 35 W3 %X

irssr &

401

NOP
ERROR

180S$:

128 BH3¥ Bivsg
ik
3388 011342 013701 001450

38§§

HO7

.WORD BUF TWO

0402

3981

393

IMP

VERIFY 9@5“
. WORD

3980

3982

23-NOV-?7
12:38
FORMART 2EROS - 16

1708:

39;1 11310
4737 037084
3373 811314 ?83526
3374

30(1046)
TS

7
7

000240

ngv
MOV

000032

20$:

MOV
MOV
MOV
MOV
MOV
JSR

8' :838
orfifxs RMOFO

o<fc<aless >+1>, RMWCO
$BUF ONE , RMBRO
sliH, RMCS 10
8ZEROS , $TMPO
sl,$TMP]
PC, GENBUF

: PREPARE DEVICE FOR onrn Tnnnsrsn
JSR
pg rg
§P

. WORD
Rop
egaon

308$:
001400

INP

!$ch ssc?on
15 957
“FORMAT

WORDS
onrg BUFFER noonsss
SWRITE HERDERAND DAT
'USE ALL ZEROS DATA pnrrsnn
;GO GENERRTE DATR BUFFER
DEVICE FOR TEST

4130 rnsx oeSca PT
8
RETURN :.gn ¢ 88adR MO ERROR
EEERHE
FINED BY TSTPRP SUBROUTINE
1808

;GO TO

180S

IF ERROR WAS FOUND

: SETUP PRRRHETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

osssx'co RMCS10

MOVB
M VB

cnnor (Ra)+
SRM
s! éna)+

MOV

MOV
JSR

NOP

5
R
pC,PUT

4o$

: CHANGE COMMAND TO SEEK

:WRITE REGISTER INDEX TRBLE

-GO WRITE REGISTERS VIR PUT SuB

;GO TO 408 IF NO ERROR
;RETURN HERE

IF ERROR

CZRMDBO Rnoaxa FCTNL 15T

CZRMDB. P11
Y024

011526

3859

011534

4028
4029

011534

23-NOV-7? 15 19

MACY11

4030

004737

040326

011544

004737

037516

4036
4037

011552
011554

000240
104000

3833

011562

403S

4038

011550

000404

011556

000137

012142

4O42

011562

004737

04S420

YoMy

011570

000240

YoM |

4O43

4045

4oNe
404?

011566
011572

000405

4051

011602

812737

177776

4053

011616

0127

001540

4057
4058

011636
011642

112755
0047

00
037766

4060
406]

011650
011652

:823

011654

000240
104000

011660

000137

012142

4065
406b
46?

011660
011664

004737
004737

040326
037516

4069
40?0

011672
011674

000240
1049000

:ggg

011702

4052

011610

012737

000063

4OS4 011622 11272
40SS
011626
112722
000004
4056 011632 112722 000000

4059 011646 000404

4062

4068 011670 0OONOM
4071

011676 000137 012142

4074
4075

011702

004737

4079

011714

004736

4076
4077
4078

011706
011710
011712

00040S
000240
104000

JMP

040512

:38

107

PAGE 86

SEQ 0086
ROR DEFINED BY PUT SUB

180$

;GO TO 1éos IF ERROR WAS FOUND

:SETUP FOR RERDING STATUS AND THEN WRIT FOR SEEK TO COHPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS
S0S$:

JSR

PC. TIMOUT

:GO READ SEEK STATUS
JSR
PC.GET

.GO RERD REGISTERS VIR

608

;GO TO 608 IF NO ERROR

JmpP

1808

;GO TO 1808 IF ERROR WRS

NOP
ERROR

608 :

{WAIT FOR SEEK TO COMPLETE

JSR

708 :
001402

JSR
NP

PC.

704

GET

SUB

“RETURN HERE IF
ERROR
:ERROR DEFINED BY GET SUB

FOU

:VERIFY THE RESULTS OF THE SEEK COMMAND

NOP

012142

4050

zEso FILL TE ?

ERROR

004736
000137

011602

40S$:

104000

011574
011576

:gzg

-NOV-77

ERROR

037432

011590

011544

104000

402S 011530 000137 Claivd

4031
4032
4033
4034

30(1046)

SEKSTS

GO VERIFY RES
ULTS

SEEK

OPERATION

0 TO 708 IF NO ERROR

s RETURN HERE IF ERROR
"ERROR

PC,3(SP)+
1808

& DEFINED BY

SEKSTS

SUBROUTINE

1GO BRCK FOR MORE ERROR CHECKS
;GO TO 1808 IF ERROR WRS FOUND

;SETUP mo sxscurs WRITEHERDER AND DATA COMMAND

001400

nov

MOV

MOVE
MOVB
MOVB

MOVB
JSR

NOP
ERROR

808§ :

1C2+1)>

RMWCO

WH! GO

:FORMART PARTIAL SECTOR

S10

'LOAD WRITE HEADER AND DATA

"*’3 R2

TEXTEND REGISTER INDEX TRBLE

oflnué, (R2)+
(R2)+
l (R2)+
8RMCS

oeo

(R2)+
1)1

180$

.GO WRITE REGISTERS VIA PUT SUB

:GO0 10 B80S IF NO ERROR

;RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUB

:GO TO 1808 IF ERROR WAS FOUND

:WAIT FOR WRITE connnno TO COMPLETE AND RERD STATUS
JSR
PC 1 o
sWRIT FOR COMMAND
JSR

Rscézrsns

VIR

:GO TO 9bs IF NO ERR

IMP

1808

;GO0 TO 1905 IF ERROR WAS FOUND

NOP
ERROR

308 :

RERD

; s URN HERE IF ERROR
ROR DEFINED BY GET

GET

TO COMPLETE
SUB

SUB

; VERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

BR
NOP
ERROR
JSR

1008

PC,d(SP)+

.GO TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
'ERROR 8 DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

cznnoeo RMO3/2 FCTNL TST 2

CZRMOB.P11

23-NOV-77 12:19

4080

811753

000137

0l2142

4082

011722

004?37

053016

4084
4085
408

011730
811733
011734

000240
104000
004736

w081

4083

:08?

0117

011726

8{{;35

000405

000137

MACY1l 30(1046)

100S:

23-NOV-?7

2ERO FILL TEST

IMP

1808

JSR

PC,DTASTS

012142

108

wgéé ox17ws 004737 041344

NOP
ERROR
JSR
NP

JSR

4030

011746

0DOO40S

4032
4033

011752
011754

011756

011762

012142

ERROR
JSR

4095
4036
4037

104000
004736
000137

4099
4100

011762
011770

012737
012737

177376
000073

4104

012012

000240

:}85

012022

4091 011750 000240
4094

4038

4101

011776

012737

104672

4102 012004 004737 037766
4103 012010 000404
4106

012014

411l

012022
012026

004737
004737

4114

01203

104000

:fi?

012044

4112
012032
00040M
4113
012034
000240

040326
037516

4115 012040 000137 012142

4118

4119

012044

004737

4120
4121
4122
4123
4124

012050
012052
012054
015323
01

0O0Q40S
000240
104000
?
137

4126

012064

004737

4125

4127

012064

00040S

4129
4130

:igé

012074
012068
8{5104

104000
004736

4133

4135

4128

4134

1537

040512

o012142
0S3016

nov

001404

MOV

012104

004737

041344

O0leli2

000240

PAGE 87

SEQ 0087

;GO TO 1808 IF ERROR WAS FOUND

1108

PC,(SP)+
1808

PC, SECERR
1208

PC.I(SP)+
1808

;GO VERIFY R SULTS OF DATA TRANSFER

TO 1108 IF NO ERROR

: RETURN BERE IF ERROR
"ERROR
osrxneo BY DTASTS SUBROUTINE
GO encx FOR MORE ERROR CHECKS

;GO TO 1808 IF ERROR WAS FOUND

;GO cuscx FOR SECONDARY ERRORS

0 T0 1208 IF NO ERROR

: RETURN hsns F ERROR

"ERROR # oerxnco BY SECERR SUBROUTINE
;GO eacx FOR MORE ERROR CHECKS

;GO TO 1808 IF ERROR WAS FOUND

oeurrub

;2538 FULL SECTOR
HERDER & DATA COMMAND

CHANGE BUS RDDRESS

PUT
unxvt REGISTERS VIR PUT SuUB
1abs ;G0 TO 1505 IF NO ERROR

ERROR

1808

NOP

1308:

81024256, +1>, RMRCO
8RH' GO RHCSIO

JSR
BR
JMP

; RETURN HERE 6‘ ROR
ERROR DEFINED

BY PUT SUB

;GO TO 1605 IF ERROR WAS FOUND

sWAIT FOR RERD TO COHPLETE AND GET STATUS
JSR
PC 1 o
:WAIT FOR READ TO COMPLETE

JSR

BR
NOP

ERROR

1408

Imp

0 RERD REGISTERS VIR GET SJB

1405 :GO TO 1405
IF NO ERROR
; srunn HERE IF ERROR

180$

ERROR DEFINED BY GET SUB

;G0 TO 1éos IF ERROR WAS FOUND

s VERIFY THE RESULTS or Rsno OPERATION

JSR

1508$:

150s

;GO CHECK FOR PRIMARY ERRORS

PC,3(SP)+
1808

.GO TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
*ERROR & gerxneo BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR
KS
;GO TO 1808 IF ERROR WAS FOUND

JSR

PC.DTRSTS

;GO VERIFY RESULTS OF DATA TRANSFER

1608

PC,PRIERR

BR
NOP
ERROR
JSR
InP
NOP

012142

000405

IMP

JO7

: RERD Henosn AND DATA FOR SECTOR JUST WRITTEN

000240

000137

012110

001402
001400

104000

4106 012016 000137 012142
4109
4110

NOP

1208:

12:38

1608

:RETURN

Y0 1608 IF

HERE IF

ERROR

ERROR
JSR
JnP

PC.I(SP)+

1808

"ERROR # DEFINED BY DTASTS SUBROUTINE
: GO encx FOR MORE ERROR CHECKS
:GO TO 1808 IF ERROR WAS FOUND

JSR

PC, SECERR

GO CHECK FOR SECONDARK¢ ERRORS

HOP

1768

.GO TO 1708 IF NO ERROR

;RETURN HERE IF ERROR

CZRMOBO RMO3/2 FCTNL TST 2
CZRMOB.PL1
23-NOV-77 12:19
4136

4137
4138

4139
4140

015}1w

012.16
0lel20
O0l2124

MACY11 30(1046)
23-NOV-7?
12:38
T
ZERO FILL TEST

104000

004736
000137

ERROR

012142

170S8:

414z 0121
737 037064
4143 012153 103566
Yi4y

012132

FVERIEY D
.WORD

104572

4145

012134

000402

4147

012140

104000

JSR
INP

.WORD

B8R

4i46 012136 000240
:{33

012142

NOP

4153

iresr 7
Q0l2142

4184

Q12142

000004

4156

012146

012706

312?

012170

4155

4167
4168
4189

012144

012152
012156
Q12162

000240

013700
013701
012737

$877.
001100

001276
001450
000007

001226

012737

4ibs

Oigelz

Qlg7gr

177376

001402

012737

0G0O00L

001176

4167

012176

0122

012737

12737

001434

001406

;gogo 001432

108:

MOV
MOV
MOV

MOV

001404

MOV

4171l
:izg

012
012254

004737

JSR

4174
417S

012254

004737

4177

012262

000404

:igé

012274

4183
4184

012274

012737

00000S

4186

012302

115322

0006

4188
4189
4190
4191

0‘33§S
012
012326
012332

112722
11572
11272
0047

0l2242

012260

154130

180$

;s RETURN hcnz F ERROR

BUFTWO

TARTING nogoaess RERO BUFFER

0 180%8 IF NO ERROR

:ERROR 8 oerxneo BY CMPBUF SUBROUTINE

118722

200
037766

FORMAT CHECK ZEROS - 16

_WORD

30$:
001400

%W W% %N % ¥

: SCOPE

8STACK, SP

$B8ASE, RO
TSTQUE,RI
87,STESTN

:START OF g

;INITIRLIZE TRCK POINTER

'RO=UNIBUS ADDRESS
P(R1) =
DEVICE BEING TESTED
::SET TEST NUMBER IN RPT MAIL BOX
.

orfirxs

nnoao

!TRACK = SECTOR = O

onE

§*o
ozehos MPO

'WRITE HERDER AND DATA
‘USE ALL Z2EROS DATR PATTERN

PC, GENBUF

:GO GENERATE DATR BUFFER

Botce $ass >+1> RMWCO
8], STMPIL

116 BIT FORMAT

;2 + 256 WORDS

:DRTA_BUFFER RDORESS

: PREPARE DEVICE FOR DATA TRANSFER
JSR
PC, TSTPRP
. PREPARE DEVICE FOR

034000

4185 012302 012702 001535
oxegx

MOV
20$:

4178 012264 000240
4179 012
104000
4180 012593 000137 012716

4187

WRIT
TA BUFFERS
srnn? nnsoonés 'or HRI E BUFFER

;SETUP PRRAMETERS FOR GENERATING DATA BUFFER
MOV
o,anoco
sCYLINDER
= 0

MOV
MOV

4176

GO BACK FOR MORE ERROR CHECKS
;GO TO 180§ IF ERROR WAS FOUND

PC.CHPBUF
BUFONE

SCOPE

4168 012226 812737
001400
4169 01223 012737 065106 001174
4170

:ERROR # DEFINED BY SECERR SUBROUTINE

2X222232222XX2XX22XX2222X222222 2222222222222

MOV

012170

4i16S 012208

NOP

4162
4163

4ied

PC,(SP)+
1808

SEQ 0088

o 3033 G040 08 30 30 36 36 30 3 36 36 36 36 3 36 3 36 3 36 3 3 3 3 9 3 36 3 36 3% 3 3 36 3 % 3 9 % 3 2 3% % 3 % 3 3% 3% 3 3

4161

4152

PRGE 88

ERROR

180S8:

4150

KO7

NOP
ERROR
IMP

159130

308

;TRSK DESCRIPTOR

2608%

TO 308

TEST
IF

NO ERROR

: RETURN hene IF ERROR
:ERROR 8 ocrxne BY TSTPRP SUBROUTINE
;G0 TO 2608 IF ERROR WAS FOUND

: SETUP pmnnersns AND EXECUTE SEEK TO GET onxve ON CYLINDER
®SEEK !GO, RMCS10
: CHANGE COMMAND TO SEEK

nov

MOVB

MOVB
MOVB
MOVB
JSR

sPUTINX ka

onngn (R2)+

:WRITE REGISTER INDEX TRBLE

8RMOC . (R2)+

#RMOF| (R2)+
sRMCS] . (R2)+
8200, (R2)+
PC,PUT

;GO WRITE REGISTERS VIA PUT SUB

cznnoeo RMO3/2 FCTNL TST 2
CZRMOE.P11
23-NOV-77 12:19

4192
4193
4194
4195
:{gg

01233
01
01234
012350

000404
4
0
1

012716

4198
4199

(Q123S0

004737

037432

420l

012360

4200

4202

4203

stgzg

012354

004737

4204

012360

004737

4206
4207

012393
0123

000240
104000

:g?g

012376

4205 012364 000404

MACY11 30(1046)

40S$:

040326

50S:

000240

4216

012410

004736

:gig

012416

4217

4220

012406

012412

608 :

012716

012416

012737

000063

ye2q4
4225
Yeob
4227?

012434
012440
012444
812450

112722
115;22
112722
004783

00000M
000000
000200
037766

4229

012456

000240

Y222 0i24e4 012702 001540
4223 812430 112722 002002

4230
4231l
:ggg
4a34

423S

4236

012454 0004

012460
012462
012466
oxawgs

012472

012716

004737

040326

4237 012476 0O0O4OM4
3533 oi
:oqo 3

260$

2608

JSR

PC,SEKSTS
70¢

NOP

JSR
708:

001400

4247

012520

104000

Y PUT SuB
FOUND

{WAIT FOR SEEK TO COMPLETE

;GO TO sba ;r

RE xr ERROR
oe INED BY GET SuUB

;GO TO aéos IF ERROR WRS FOUND

PC,a(SP)+

MOV

MOVB
MOVB
MOVB
JSR

sRMBA’ (RP)¢
sRMCS], (R2;+
8200, (R2)+
PC,PUT

MOV
MOVB

;GO vsgxrY RESULTS
OF
SEEK opsnnrron
T0 708
IF NO ERROR
sRETURN

HESE

ERROR

IERROR
8 DEFINED BY SEKSTS SUBROUTINE

1GO BACK FOR MORE ERROR CHECKS

;GO TO 2608 IF ERROR WRS FOUND

BR
80S$:

ERROR
P

:L0AD WRITE HEADER AND DATA

sPUT Nk+3
$+

'IXTEND REGISTER INDEX TABLE

WRITE REGISTERS VIA PUT SUB

80d

;GO TO 905 xr NO_ERFUR

2608

S 25 NED BY PUT _SUB
;GO TO 2b60S IF
“WRS FOUND

unn

5 RROR

:WAIT FOR WRITE gonnnuo
YO COMPLETE AND. RER?
STATUS
JSR

JSR

909

JnP

2608

BR
EQSOR

s VERIFY RESULTS OF

4245
4246 012514
012516 00040S
000240

ROR WRS

:SETUP AND EXECUTE unxrs"gcnoen AND DATA connauo

037516

040512

ERROR

neno necxsrsns VIR GET SuUB

IMP

4243

004737

GET

60¢

90§ :

012510

GO TO 260S

PC. TIMOUT

4240
815285
6001%9 012716
3535
012510
4244

;GO0 TO uos xr on
HE
65 ?n gs

NOP

104000
000137

004737

JSR

ERROR

000137

40s$

SEG 0089

:VERIFY THE RESULTS OF THE SEEK CO

104000

ye2l

4228

NOP
ERROR

4212
012376 004737 045420
4213 012402 000405
012404

BR
NOP
snnon

:GO RERD sgex STATUS

037516

421l

4215

23-NOV-??
FORMAT
CHECK 12:38
fsgos PRGE
- 16 89

sSETUP FOR RERDING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS

4208 012372 000137 012716
4214

LO7

JSR

BR
NOP

ERROR

OR COMMAND TO COMPLETE

RERD' ngxsrzns VIA GET SUB

;GO TO 9bs xr NO e on
NED av ?
c suB

:GO TO 2655
IF QSR

unxre COMMAND

PC,PRIERR

10Os

;GO cuccx ron PRIMARY ERRORS

: RETURN AERE T1F 1008
ERRORIF NO ERROR

'ERROR # DEFINED BY PRIERR SUBROUTINE

CZRMOBO RMO3/2 FCTNL TST 2
CZRMOB. P11
€3-NOov-77 12:19

wtwtet

(el

004736
000137

il
A

gcl1271e

012716

beicistan &Ribiz
yY R

ooo0000

1108:

004736
000137

23-NOV-77
12: 38
PQGE 90
FORMAT CHECK ZEROS -

JSR

PC,I(SP)+

PC.DTASTS
1109

IMP

éS

PC 2(sp)+

JSR

PC, SECERR

IMP
NOP

ERROR
JSR

012716

00S3
37766

040326
037516

012716

o40s1e

1208:

001400

053016

041344

; GO BRCK EOR MORE ERROR CHECKS
0 TO 2608 IF ERROR WAS FOUND
;GO vcaxrv R§§ULT8sOF
DflTR TRRNSFER

RETURN AE

”°§£o§ TP ERRORRAS FOUND

gerxne

1208

PC,3(SP)+

2608

1365

avagrnsrs
suaaourxne

;GO cuzcx ron sscouonnv ERRORS
xr NO ERROR

;ESRggh§€IHED BY SECERR SUBROUTINE
; GO BRC

OR MORE
0 70 2

ERROR CHECKS
IF ERROR WRAS FOUND

unxre Rgrfs?HEgK AOMMAND
PUT SuB
;GO TO 1488
Rfingg"gggxne 35gfizosue
;GO TO aQSs IF

;WAIT FOR WRITE SHE?K
T0 COHPLETE AND GET“STRTEBR RERD 10 COMPLETE
JSR

2a"

1408

NOP
ERROR
R,
o

RO’
TERS VIR GET SuB
1%025 ;GO TO 14§§
Rf
Rg§£§g
260$
;GO TO aASs
IF
FOUND
ERROR
FINED BY GET Sus

i VERIFY T“fi Res“bsb
PRIEAR
& CHECKOEEE“;IEQRR _PRINGRY ERRORS

1S0S:

JSR
JMP
JSR
BR
N

o1271e

SEQ 0090

;WRITE CHECK HERDER AND DARTAR FOR SECTOR JUST WRITTEN
MOV
.HCH'?O,RMCS10
JSR
BR
NOP
ERROR
MP
260s
OR WRS
F
130S:

012716

2608

ERROR
JSR

012716

et Pt

30(1046)
17

1008:

053016

041344

01273;
0047
000404

alela]

4es

o]e vlele o ole olalale alele

Hgg;

Ve Pt
Pt Pt Pt
Pt Pt Pt Pt Pt i Pt Pt P

4254

00000000000

3ehoo
B E5S

etwtetedwpatetes

15250

A
FPRoleRs: £

glasee

n
V

4eus

4249
4250

MACY11l

160S8:

IF NO ERROR
RROR

RERBEN. REINED BY PRIERR SUBROUTINE

PC,3(SP)+

;GO BACK FOR_MORE

PC,DTASTS

;GO VERIFY RESULTS OF OATA TRANSFER
;G0 TO 160§
7~ NO ERROR

Sgoe(SP)¢

;GO BQCK.ESRTBOQEOER?QRESBSRKEG

PC,

1
A8 LRTM

260s
1608

SECERR

1708

;GO 19

ERROR CHECKS

IF ERROR WAS FOUND

BRROR8 BEFINED ByBTRSTS SUBROUTINE
S FOUND

ERROR

8 DEFINED By SECERR SUBROUTINE

czanoeo RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19
4304

012710

4306
4307

0i2716

4305
:308

0l2712

004736

000137

MACY11

012716

H I

4315
4316
4317
4318
4319

012720
012722
012726
012732
01273

40
012706
013700
813?01
012737

8127w4

012737

4322

4353

4324

012752

tério:

0004

001100
001276
001450
000010

001226

881q3~

012737

012766 012737 |
14
012774 812737 03566
1404
013002 012737 6ooase 001400
013010 012737 065106 001174
0130l6 012737 000001 001176

:ggg

013030

013024

004737

036620

4334
4335

013030

004737

034000

4337

01303

00040M

013034

154130

108:

013042

3335

013050

4340

4343
4344

1040

43y

NOP

30s

2608

ERROR

1127

013075

112722

000000

MOVE

0004

037766

JSR

000137

013636

ooq7gq

4363
4354

013114
013153

000240
104000

:ggg

013124

4369

0130a3

813103

4358

FOR DATA TRANSFEP
PC, TSTPRP
PREPRRE

00000S

435

4355

DEVICE
JSR

012737

1127

4350 013102 112722

wasé

;16 BIT FCFMAT

.WORD

13112

013]

013124

308:

:GO GENERATE

154130

;SETUP Pmnnsrsns mo
MOV

0034

;

;TRSK DESCRIPT

:GO

TEST
IF

8RMOF| (R

BY TSTPRP SUBROUTINE

10 2608

IF ERROR WPS FOUND

S10

CHANGE COMMAND

1O SEEK

‘WRITE REGISTER INOEX TRBLE

sRMCS] , ( 21+

.aoo (ka)*

-go WRITE ngssrzns VIA PUT

;GO0 TO 408 IF NO ERR

2608

;GO0 TO 2608 IF ERROR WARS FOUND

NOP
ERROR

NO ERROR

xscurs SEEK TO GET DRIVE ON cvungc

MOV

MOVB

FOR

TO 308

snnon 8 DEFINED

upu xnx ha
nngg )+
sR

DEVICE

DRTA BUFFER

RE TURN AERE IF ERROR

MOV
MOV
MOV

000200

SECTOR
= O

<) l2f\ >+1> RMWCC :2 ¢ 256WORDS
oeufg:g
‘DATA bJFFER RDORESS
s%
SWRITE MERCER ANC DATA
czshos MPO
'USE ALL OMES DATA PATTERN
agnbx
8l

013050

013072

4349

.rfitxs

: TRA

MOV
MOV
MOV
MOV
MOV

013636

4348

810,STESTN

MOV

000137

1635

#STACK, SP
$BASE, RO
TSTQUE,R1

CY énocn

013044

4345 013
0127
434, 013083 11572

CAL

8'25838

JSR

: PREPRRE

EEEEEEE

:STRRT OF TEST
:INITIALIZE STACK POINTER
{RO=UNIBUS RDDRESS
;(R1) = DEVICE BLING TESTED
:;SET TEST NUMBER IN APT MAIL BOX

MOV

208$:

001400

; SCOPE

22222 T T

W W WA WA E W NE MR R

;SETUP PRRAMETERS FOR GENERATING DATA SUFFER

4338 013040 000240
4339

NOP
MOV
MOV
MOV
MOV

1432

4326
4327
4328
4329
4330
4326

TSRS SR I 2SS

FORMART CHECK ZEROS W/ WCE ERROR

SCOPE

1406

4325 012760 Bigrgr O

4331

ERROR CHECKS

;GOTO 2608 IF ERROR WAS FOUND

0336333698 3 38 3 36 3 9 3 3 25 9 3 3 06 36 3 3 6 96 3 3 3 3 % 3 32 3 9 %W

012716

0127%4

GO BACK ron none

260s

XYT T2

*kTEST 10
012716

PC,3(SP)+

SEQ 0091

2608:

4313

:gg?

1708:

431}

4314

23-NOV-77
15 38
Pnce 91
FORMRT CHECK
ZEROS - 16
JSR

012716

N310
‘4312

NO?7

30(1046)
17

:RETURN HERE IF ERROR
'ERROR DEF INED BY PUT SUB

40S$:

004737

037432

:SETUP FOR REMDING STATUS AND
JSR

PC,GETSTS

THEN WRIT FOR SEEK

TO COMPLETE

:SETUP FOR STATUS

SUB

28
KFfody

0000000

Wwwwwww

Pt Pt Pt Pt Pt P

nEEREE0

~N
n

[y -

;Tlgzlq

MACYLl

Pt Pt P

00013

004737
00040S

39{60“5)

23-NOV-77

12:38

BO8

PRGE 92

SEQ 009

FORMAT CHECK ZEROS W/ WCE ERROR

040326

cos

037516

16O READ 3EEK STELY
6048

;GO TO

013636

608

;GO TO esos IF em&a uag FOUND

Pt P

s Puses Pt Pt

000000

Pt P
P
Pt Pt Pt P
—

[ATR)

WWWwWwww

004737

oo4737

[—

CZPHDBO RMO372 FCTNL T
23-NOov-7

013636

012737

000063

PC, TIMOUT

ERR:
OR
JP

s VERIFY ms RESULTS OF

045420

104000
004736
000137

JSR

208
001400

JS
BR
NOP
ERROR
JSR
IMP

GO RE
GISTERS VIA GET SUB
r % Rsnog

RgnoaDE nsér 5"22? SUB

THE SEEK C

PC.SEKSTS
704
PC,3(SP)+

260s

sWAIT FOR SecK TO COMPLETE

;GO VERIFY nzsu’rs
OF SEEK OPERATION
F NO ERROR
Rewrm
ns IF
oa
"ERROR# DEFINED BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 2608 IF ERROR WRS FOUND

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
8lH! GO, RMCS10
:LORD WRITE HEADER AND DRTA

.-a

o1
11

MACY11l

1540

013636

SR § RS

B B
500 013636
88 6831:99
¥ 004737 0N0S12

st Puit Put Pt Puus P

Gt Pt Pt fn Pt st Pt o

3310
ggxa
19

3
3

3344

MOV
MOV

5:385 B9°5c2 3ERROR
CHECK 12;
"? v-77

JSR
PR

808

FRROR

opumma R2
5+
SRMIC ,

2608

B oRDLE 1NED B7 PUT SUB
;GO TO 2653
?? Efia&a
FOUND

:WRIT FOR WRITE COMMANO TO COMPLETE AMD n:no STRTUS

208

gl GO TO 902’ Ifsepg 58 Rfiéfi
BT TR O
T GO E
ERROR
&"B&ff
Sm 260% GO TO 2655
uagEREST&Em sus

;s VERIFY ag

J E'L

1S 3: mygflcm

C,PRIE

;GO CHECK FOR PRIMARY ERRORS

004736
000137

JSR

PC,a(SP)+

00S137

013636
053016

013636
041344
013636
104570

1108

1208:

JMP
JSR
BR
N
ERROR
JSR
(2
JSR
RO
NOP
ERROR
JSR
Ie

: SETUP

PC g(spn
260
PC,SECERR

1208

PC
2(59»
260

unm: CHECK

B8NOP

ERROR

180$:

IMP

()

2608
PC,DTRSTS
1108

s ALTER onm BUFFER
BUF TWO-2

104000

70
000137 013636
74

;EXTEND REGISTER INDEX TRBLE

.GO WRITE REGISTERS VIA PUT SUB
y»' NO'.ERROR
;G0 TO abs

1008

004737
000405
1
%7
1
004737

S€@ 0093

1208(he)+

330 012737
0000S3 001400
733 037766
366

3Q¢( 0%)
3?16

00040S

e Bt et s e

3 333333333IF
TP
ot SRNES W NN LWN=-O

Prat Pt Pt Pt Pt Pt

000000000000 000000000

[y twtepetetad

0000000

LLELELELLLLLE

otettt
et et et et ettt

23-NOV-7§ 5 19

/2 FCTML T

cO8

T S

1008 IF NO ERROR

MORE E

e e
KS

;GO TO 2608 IF ERROR WRS FOUND

;GO VERIFY R$SU.TS OF DATA TRANSFER
%r NO ERROR
;Rgunfi
IF
'ERROR 8
INED BY DTASTS SUBROUTINE
:GO BARCK FOR MORE ERROR CHECKS
IF ERROR WAS FOUND
;GO TO
;GO CHECK FOR secommv ERRORS
TOr EREAT MO ERROR
; RETURN
smon%zx
8Y
ERR SUBROUT INE
:G
nogs
cKS
;GO TO asm emon WRS FOUND

: COMPLEMFNT LAST DRTA WORD
HEADER AND DATh COMMO*O

oucu
co"fi 8§ 0 1'7‘5
uao COMMAND
PUT
s TERS VIA PUT SUB
IF
1ebs ;GO TO 1808
.EURND-EE
F ERROR

2608

RROR DEF INED BY PUT SUB

GO TO aéos IF ERROR WAS FOUND

canoeo RMO3/2 FCTNL

CZRMOB.P11

TST 2

23-NOV-77 13:19

Y4as

Y439
Y440

013374

w43

0134

:::g
HIRY
4449

13416

oxa«oég

4452
ws3

013‘458
0134

Y4yl

Y42

YY4Y

013N

013

ox:mg

Y445 813:1
4450
Y451

4y4S4
4455

013w
013434
013432
013436

004737

0326

000404

037516

6001

013636

004737

040S12

000240

mogg

000405
000240

104000
004736
000137

013636

MACY11

30(1046)

710

NOV-77

DDB

ro MAT CHECK isggs
W/ uc ennon

SEQ 0034

sWAIT FOR WRITE cuecx COMMAND TO COMPLETE AND REARD STATUS
JSR

JSR

PC, TIMOUTY

PC'GET

1903

:G0 TO 1§o

ImP

2608

GO TO 260s IF

BR
NOP

206s

NOP

ERROR

1908:
:CHECK FOR PRIMARRY RRORS
JSR
PC,PRIERR
ERROR
JSR
2008$:

sWAIT FOR COMMMAND TO COMPLETE

ano

PC.3(SP)+
2608

g
STERS VIR GET SUB

on gsnme

;GO CHECK

6F ERROR

BY GET SUB

OR WAS FOUND

.2 PRIMARY ERRORS

.GO T0 2008 IF NO ERROR
;RETURN HERE IF ERROR

:ERROR
8 DEFINED BY PRIERR SUBROUTINE
:GO ancx FOR MORE ERROR CHECKS

:GO TO 2608 IF ERROR WRS FOUND

CZRMDBO RMO3/2 FCTNL TST 2
CZRMO8.P11
23-NOV-77 12:19
T 4
w588

013436

W89

013444

wbl

ywe2

813:28
0Ol
013462
oxg:;a

4468

m:«sos

Y469
44?70

::;é
4473
Y474

8001
13232
737

013510
013512

104337
000451

013514

013737

4475

013522

012737

4478
Y479
Y480
4481

w483
Y484
4485
Y486
y4g8?
w488
Y49

::gg

BNE

gan

001340

001140
001140
001142

013737

001334

013536
013594
013552

115737
112737
004737

000022
000200
037516

001506
001507

mgzg
0l
013S6M
013570
013576
013604
813610

000240
104000
000137
013636
0137
00!
0137
104570
oos;
001140
%3
001134

013616
013620
013622

013624
013632
013634

013636

1402
104340

ooouo;

023737
001401
104341

20SS:

001140

001136

001142
001140

210

PCgmsrs

:GO VERIFY
: RETURN

BIS

PC,3(SP)+
ssb
ncsa; sco?m
sWCE , $4D0A

ERROR
BR

337
260%

. GO

:ERROR #
:GO BRCK

Rncséx $BDDAT

7S OF DATR TRANSFER

ng IF

F NO ERROR

x"r%ggav R%gsvs SUBROUTINE
CHECKS
:GO 10
F ERROR WRS FOUND
:LORD EXPECTED
STATUS

:LORD RECEIVED STATUS

:WMRITE CHECK ERROR NOT DETECTED

s VERIFY m: nooasss
?F THE WRITE CHECK ERROR
BUF TWO-2 , SGDADR
LORD EXPECTED noonsss

nov

suB

:LORD RECEIVED RDDRESS

sebaon
",

: DECREMENT RECEIVED RDDRESS

;GET WCE DATR AND
VERIFY }r IS OK
MOV
GETINX
MOVB
SETINX+1
JSR
PC GET

2308:

001136
001142

ERROR
JSR
P
MOV

MOV

210Ss:
001134

Y482 013556 0O040M

4493
4494
4495

013636
DO1340
040000

SEQ 0095

:MAKE SURE THE WRITE CHECK ERROR WRS DETECTED
BIT
oucg,RMCS21
12
WRITE CHECK ERROR SET??

0S3016

104570

::;; 013530 162737

Y92

001340

NOP

013SI4

Y0
4491

040000

MACY11 30(10%)
23-NOV-7?
15:33
PRGE 95
T10
FORMAT CHECK
S W/ WCE ERROR

Y463
ywied
Y465
Y466
Wwe6?

ggar 7

EO8

NOP
ERROR
JnP
MOV
MOV
coM
cMP
BEQ
ERROR

2208:

2608:

gfl

P
BEQ
ERROR

230s

GO TO eéos

:SETUP FOR READING RMDB
ngno REGISTERS VIR GET SuB

R}\‘OR

HE
F ERROR
OR DE xnso BY GET SUB
%3co T0 aéos IF ERROR WAS FOUND
1,880
LORD RECEIVED DATA WORD
aurmb- scoom
LORO EXPECTED DRTA WORD
, SBOROR
; IS_ADDRESS OK??
34

;

YES!
nooness OF WCE INCORRECT

DAT, $BDDAT
2608
341

;15 _DATA WORD OK??
YES!
uuexpscreo WCE DATA

4498

H IllllillllillllllllIllll!lillllllIllllll!llll}‘llllllillliI»l»lI«ll

4500

lllil!Ililll!lllllIillll!lllllllll!lllIllll!llllllllllillllli!i

4499

hesr 11

4501

013636

4504

013642

4507

013656

4502
4503
4505
4506

:g%

4S.0
411

4512

013636
013640

000004
000240

013646
013652

813700
013701

013664
013664

013672

012706

012737

t4711:
001100

001276
001450

MOV

000011

001226

000000

001434

000000

SCOPE
NOP

001406

MOV
MOV

108:

MOV

FORMAT ONES -

#STACK, SP

¥gnse hg
ToUE, Rl

811,STESTN

; SCOPE CALL
:START OF TEST

SINITIALIZ2E STRCK POINTER

:RO=UNI
:(R1) =

RDDORESS
DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DRTR BUFFER
MOV

MOV

80, RMDCO

0, RMDAO

sCYLINDER
= O

mncx = SECTOR = O

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19
4513

4514

013700

013706

8137 7

012737

MACY1l 30(1046)
23-NOV-??
12:38
Til
FORMAT ONES - 16

o;gggo

0143

140

4518

01373

:ggg

013750

4519

4522
4523

012737

Q13744

004737

013750

004737

000001

036620

4524 Q13754 154130
4535 (013756 Q00404
4526 013760 003240

034000

4528
:ggg

014436

4537

013762

1049000

015764
013770

000137

4532

013770

012737

4534

(014002

112722

4531

4533 (013776 012702
4535
4536

014006
0l40le

4638
4539

0I4Co2
QINCo6

4537
4540

014016

1535

037432

J140SY

006240
104000

4549
4550
455
4652

014050

004737

040326

Q014054

004737

037516

4EG4
4555

Ql4dee
Q14064

000240
1049000

3225

014072

4559
4560

014072

004737

4563
4Sed
4565

014102
014104
QI4106

104000
004736
000137

4553 014060 GO0

4556 014095 000137 0i4436
0OO40S

4662 014100 000240
:ggg

4568

0i411g

045420

014436

ox s

;2 + 256 WORDS

. WORD
NOP

582130 : TRSK DESCRIPTOR
TO0 308 IF NO ERROR
s RETURN hcae IF ERROR

JmP

1808

ERROR
308:
001400

:ERROR # oerxneo BY TSTPRP SUBROUTINE
;GO TO

180§

IF ERROR WAS FOUND

: SETUP Pnnansrens AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV

. T INX, R2

s
SR

MOVB

, (R2)+

: CHANGE COMMAND 10 SEEK

"WRITE REGISTER INDEX TRBLE

'(R2)+
(R2)+

srRMCS], (R2)+

8200, (R2)+
PC,PUT
.GO WRITE REGISTERS VIA PUT SUB
4od
;GO TO 408 IF NO ERROR

JmP

1808

NOP
ERROR

4os:

gx:co RMCS10

MOV

MOVB
JSR

004737

014076

:GO GEMNERATE DARTR BUFFER

000200
037766

014044

456l

PC, GENBUF

112722
004737

115722

4547

4548

JSR

MOVB
MOVB

014436

4546

ORI
HERBER
‘USE TERLL
ONES BRD.
DATR DATA
PATTERN

ggoosq
0032

000137

014044

4543

sk
AmesTo”
;§§

112722
112732

014040

:232

nov
MOV

8 +C24256, >¢1> RMWCO

: PREPARE oevxcs ron onrn TRANSFER
JSR
STPRP
PREPARE DEVICE FOR TEST

000006

00040M

OI4C3N
Q014036

;16 BIT FORMAT

MOV
20$:

SEQ 0096

ornrxg RMOF O

0I4G32

4541
4542

001176

PRGE 96

MOV

$le
0isry7 822645 291400
ws19 OiPss
ox3388 812?
001174

FO8

:RETURN HERE IF
OR
:ERROR DEFINED BY PUT SUB

;GO TO 1808 IF ERROR

:SETUP FOR RERDING srnrus AND THEN WAIT FOR SEEK TO COHPLETE
JSR

50S8:

JSR

PC,GETSTS

PC. TIMOUT

:GO READ SEEK srnrus
JSR

'WAIT FOR SEEK TO COMPLETE
RERD REGISTERS VIA GET SUB

;GO TO sbg ¥r NO ERROR

JMP

180$

;GO TO 160: IF ERROR WARS FOUND

NOP
ERROR

608

:SETUP FOR STATUS

ETURN HERE IF ERROR
OR DEF INED BY GET SUB

:VERIFY THE RESULTS OF THE SEEK COMMANC
JSR
PC; SEKSTS
:G0 VERIFY
R;SU%TS sesx

708

ERROR
JSR
IMP

PC.a(SP)+
180$

NOP

70$:

08
I

: RETURN he IF ERRO

opennrxon

‘ERROR # oerxnco BY sexsrs SUBROUT INE
;GO an,x FOR MORE ERROR CHECKS
;GO TO 1808 IF ERROR WAS FOUND

;SETUP AND EXECUTE WRITE HERDER RND DATR COMMAND

CZRMDBO RMO3-2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19

MACY1l 30(1046)
23-NOV-77
12:38
T11
FORMAT ONES - 16

4571 8191§ 11 385 %302
1127

4575 01414 66-47

037766

457

ouu?i

457
4S24

81%
014140

1127
7

4576

4527

014150

014152

0O0040M

4579
:gaacll

Q14156
014162

000137

014436

4582
4583

QI4162

004737

040326

4€ 3%

014179

000240

00ded

4578 Q14154 10~+oog
4S84

014166

004737

4535 Ql4172 00040
4E-7?
4E 8
32 ag
4£q]

0I4176
Qi4200
014204

4532

Q14204

4E36

014216

4539

4£33
4594
4E95

:ggg
4600
460l
4602
4603

:ggqs

000137

014436

01424

004737

053016

014230
014832
014234
014236

8{:290

DO4736

000405

000137

014250

000405

JSR

NOP

ERROR
90s :

4610

014266

004736

4612

014264

4613

014260

014436

1008

108

000073

4616

014264

012737

4620

014306

000240

:gsa

0143ie

4617

0l4272

012737

104672

4618 owaos
737 037766
4619 014304 000404
4621
4622

014310
014312

104000
000137

01443

sRMCS], (R2)+
8200, (R2)+

GO WRITE REGISTERS VIA PUT SUB

804

;GO TO 808 IF NO

ERROR

1808

;GO TO 1808 IF ERROR WAS

,ngunu

RE 6F ERROR

:ERROR DEF INED BY PUT SUB
FOUN

Rsno REGISTERS VIA GET SUB

90&

:GO TO 90:
*r RROR

180%

OR DEFINED

PC,PRIERR

JSR

PC,(SP)+

JSR

PC,DTRSTS

Ine

001400

]F ERROR

1008

1808

TO 1203

F NO ERROR

:ERROR
RETURN o ERE
Raoa
osrxr(o BY PRIERR suenounne
) 98“ "ORSOEga

T0 1

:GO VERIFY

ERROR uns FOUND

suus OF DATA TRANSFER

PC.(SP)+

: GO o 1108 IF NO ERROR
:RETURN HE
F ERROR
"ERROR &
mzo 8Y DTARSTS SUBROUTINE
:GO BRCK FOR MORE ERROR CHECKS

JSR

PC, SECERR

: GO cuecx FOR SECONDRRY ERRORS

JSR

PC,I(SP)+

GO aacx FOR MORE ERROR CHECKS

IMP

InP

1108

:GO CHECK FOR PRIMARY ERRORS

BR
N
ERROR
JSR

NOP
ERROR
1208:

GET SuB
:GO TO 1605 IF ERROR WASBY FOUND

4614

4615

IMP

BR
NOP
ERROR

014436

000137

SEQ 0097

m«{. 35

: VERIFY ngguus OF WRITE COMMAND

4608
014252 000240
4609 014254 104000
461l

PRGE 97

sWAIT FOR WRITE conmuo T0 COMPLETE AND READ STATUS
JSR
PC, xnou
unér FOR COMMAND TO COMPLETE

4606 owaaw 004737 041344
4607

808 :

104000

004736

PC. Pl

ERROR

040512

8%3‘3

JSR

NOP

000137 0144386
000405
00C240
109000

SRMBA | (R2)+

037516

014210
014212
(14214

MOVB
MOV
MOV
MOVB

104000

004737

GOS8

1808

1208
1808

:GO TO 1808 IF ERROR WAS FOUND
o 1Eos &r NG ERROR

:'ERROR
RETURN 8 AE
RRO
oermso BY SECERR SUBROUTINE
:GO TO 1808 IF ERROR WRS FOUND

:READ HERDER AND DATA FOR SECTOR JUST WRITTEN
MOV

001404

MOV

.Reno HEADER 8 DATA COMMAND

8BUF TWO, RMBARO

BUS RDDRESS

JSR
BR

PC.PUT
mnt REGISTERS VIR PUT suB
1303 :GO TO 1305 1F NO ERROR

ERROR
IMP

:ERROR DEF INED BY PUT SuB
GO TO 1808 IF ERROR WAS FOUND

NOP
130$:

#RH! GO, RMCS10

RETURN

1808

HERE IF
ERROR

CZRMOBO RMD3-/2 FCTNL TST 2

CZRMDB.P11
"252

23-NOV-77 12:19

MACY1l 30(1046)

442

004737

014372

004736

@:3
oi::asn oooa«o:og
4645 gwa%
104000
4646

1408:

1N
737 0NOSI2
814333
%wgs
0143328 000240
014320
OO4726
gi::‘% %1 014436
014360
814374

000137

4654

053016

014436

OI4414

000137

014436

4658

014420

004737

037064

4660

014426

104572

4655

4656

4657

4659

014420

014424

4661

014430

:ggg

014436

103566

PAGE 98

SEQ 0098

g eEe
RF Rngi
035 ;GO0 TO 1483
53N
RROR 1808
mx)r $RR°¢ sus
5
;G0 TO 165: ?R Eifl&a

i VERIFY 53
THS RESUI’-‘YSP%E
AD opmméocuecx ron
1gbs
T PR MARY
s F ERROR
NO Esnon
NOP
s RETURN ‘%c
e pC.a(SP)+
ES’%‘: P F1nEp oY Paesn SHarOUTINE
1508 IMP
1903
SoiI?RESRESWAS FOUND

3538 0{3300
737 041344
&so oimgs %ugs

464653 31%?3
%5808
014412 004736

12:38

T11
FORMRT ONES - 16
JWALIT roa Reno T0 conpms AND GET STATUS

£
s s gu
%8&
§14§§§
%
4630
}:
9 014436
46
§m§§§
6831:g9
2233
L)

o3
4
4637
4639
:23?

23-NOV-7??

HO8

1608:
1708:

JSR

PC,DTRSTS

JSR

PC,R(SP)+

s sn
RETURN O‘SERFI&D
BY omsrs RROR
SUBROUTINE

JSR
Egp

PC, SECERR
1708

;GO cm:cx ron SECONDARY ERRORS
TO 1708 IF NO ERROR

ggp
ERROR
IMP

ERROR
JSR
IMP

: VERIFY 9mn
SR

000402

180S:

1808

PC,2(SP)+
1808

PC cnpau:»'

co ancx FOR MORE

GO 10 1

ERROR CHECKS

IF ERROR WAS FOUND

ESRBR
.“Séfmavcsecena SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

:GO TO 180S IF ERROR WAS FOUND

;GO COMP

WRITE, RERD DATA BUFFERS

_WORD

BUFON

:STARTING

1808

RE
gnu ‘OSRE ROR
ERROR & DE nco ev CMPBUF SUBROUTINE

. WORD

%bg 014434
014432 00024
4663
1040

1608

;GO venxrvn;guus
Of onm TRANSFER

NOP
ERROR

aurmo

ADDRESS' OF WRITE BUFFER

; STARTING MQORESS Of READ BUFFER
eos IF NO ERROR

4666

; X 12222222Y:¥2:X2zx1z22712:x*22222:z:xx22222:xx22:X;22TX2XT222Y2XX2XX2X22222
L3

4668

o 3506333 36 3 36 36 36 36 6 06 06 06 06 96 36 36 06 36 36 0% 06 0 36 3 3 3% 3 4 30 36 9 3 3 3 38 36 38 36 3 3 3 3 3 3 3 3 36 3 3 3 3 3 36 3 3 3 3 3 % %

4667

4£69

4670

hss 12

014436

00000M

:6;1
0{:::0 0?0;“0 1
£7% B lem me
4674
4675

:2;;

4678

0144
0I4456
014464

13701
012737

1450
000012

001226

12 737

000000

001434

12737

000000

001406

t&t12:

scops

FORMAT CHECK ONES - 16

K,SP

X
MOV
TSTQUE , R1
108:

MOV

sl2,STESTN

: SCOPE an

S;?'T‘I

¥ POINTER

!(R1) = DEVICE eemc TESTED
::GET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERRTING DARTA BUFFER
MOV

MOV

80, RMDCO

80, RMDAO

:CY LINDER = O

TRRCK = SECTOR = O

CZRMOBO RMO3/2 FCTNL TST
CZRMOB.P11
aa-nov-7§ 13-19

4681

4682
4683
4684
4685

814282

01y
014514
014
01w

4686

014536

:saa

14850

4687

4690

4691

4692

4633

012737

81 732
012737
gxgrg;
127

012737

814544

004737

014550

004737

014554

154130

014556 000NN
4694
014560 DOO240
4695 014562 104000

MACY11 30(1046)

T12

0 9000

1432

172376
oagsh
-

1402
1404
001490

000001

001176

036620

108

23-NOV-7?
FORMART
CHECK 12:38
Snc - PQGE 99

MOV

001174

8¢ C24256.>+1>,RMWCO
8BUFONE ,RMBRO
sl
10

MOV

208 :

8FMT16 , RMOFO

MOV
MOV
MOV
JSR

oon%;

MP0

PC, GENBUF

30s

Jme

2608

o 308 IF NO ERROR
::ERROR
RETURN » hene
F ERROR
osrgnso BY TSTPRP SUBROUTINE

NOP
ERROR

;TRSK DESCRIPTOR

4639
4200

014570

012737

00000S

4702

014602

112722

000006

MOV

4705

4706
4707

81#61

115;55

0000C0

MOVB

4708
4709
4710

014632

014634
Q14636

00040M

8200, (R2)+
PC,PU

4703
4704

014606
Oi46l2

11572
112722

4714

:;}g

014654

004737

037432

014650

004737

040326

4720

014654

004737

037516

4722
4723

014662
OlI4664

000240
104000

4721

014660

000404

4724 814666 000137 015212
:;g

4727

14672

4728

Ql4672

4731

014702

3;33

813;93

4729

014676

004737

00OM40S

4730 014700 000240
4732

4736

014704

045420

MOV

MOV
MOVB

MOVB
JSR
BR

ERROR

4os:

000137

JMP
JSR

508 :

ISR

‘WRITE REGISTER INDEX TRBLE

L (R2)+

s
'(R)+
SRMOF | (R2)
+

sRMCS] . (R2)+

4od

WRITE Recxsrsns vIA PUT SUB
;GO TO wbz IF NOHE

2608

;GO TO esos IF ERROR WARS FOUND

;RETURN
HERE IF ERROR
ERROR DEFINED BY PUT SuB

PC,GETSTS

JSR

PC,GET

‘WAIT FOR SEEK TO COMPLETE
.GO READ REGISTERS VIR GET SUB

60$

;GO 70 60S; NO ERROR

JMP

2608

;GO TO aéos IF ERROR WARS FOUND

NOP
ERROR

60$:

:SETUF FOR STATUS

PC. TIMOUT

;GO READ SEEK STATUS

iR ETURN HERE IF ERROR
RROR DEF INED BY GET SUB

:VERIFY THE RESULTS OF THE SEEK COMMAND
JSR

NOP

ERROR
015212

sPUTINX, R2

:SETUP FOR RERDING srnrus AND THEN WAIT FOR SEFK TO COHPLETE

104000

004736

0 2608 IF ERROR WAS FOUND

.SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON chxnoen
MOV
355 1GO,RMCS10
: CHANGE COMMAND TO SEEK

000240
104000

014644
014644

4719

001400

19525 11
000200
014626 004737 037766

4715

4716

308:

000034
000032

4711 OI4640 000137 015212

:;ig

;GO GENERATE DATA BUFFER
. PREPRRE DEVICE FOR TEST

154130

015212

001535

:USE ALL OMNES DATA PATTERN

PC, TSTPRP

_WORD

000137

012702

;a + 256 WORDS
‘WRITE HEADER AND DATA

:DATA BUFFER RDORESS

JSR

014S6M
014570

014576

;16 BIT FORMAT

: PREPRRE DEVICE FOR _DATR TRANSFER

034000

463
:ggg

4701

SEQ 0099

»08

JSR

PC SEKSTS

:GO VERIFY
n;sugrs SEEK OPERATION

PC,J(SP)+

co BARCK FOR MORE ERROR CHECKS

70$

2608

RETURN fieng
ERROR

NO ERROR

xneo av ssxsrs SUBROUTINE

;GO TO 2608 IF ERROR WAS FOUND

:SETUP AND EXECUTE WRITE HERDER AND DARTR COMMAND

cznnoeo RMO3/2 FCTNL rsr 2
CZRMOB.P11
23-NOV-77 12:19
4737

0l47l2

012737

4738
4739
4740
4741
4742
4743

014720
014724
014730
014734
QOIN790
QI479M

0127
11287
112722
112722
112722
004737

4745
4746

Q14752
014784

000240
104000

:;:g

014762

4244 Q014750 000404
474?

014756

4750
4781
4752

014762
014766

4764
4755

014779
014776

4763

000063

1540
02
000004
000000
000200
037766

000137

015212

004737
004737

040326
037516

(014772

00OC +0M

015000

000137

015212

4759
4760

01500

004737

040512

4763
4764

:;22

015014
015016

812353

104000
004736

000137

015212

4767

015024

004737

0S3016

4269
4770

015032
015034

000240
104000

:;;g

8{S°q°

000137

4786

:;gg
4761
4762

4768
4771

015004

015010
015012

015030

015036

000240
104000

000405
000240

000405

004736

JO8

MACY1l 30(1046)
23-NOV-77
12:38
PRGE 100
T12
FORMART CHECK ONES - 1b
001400

ERROR

80S$:

015212

4784

01S06M

015072

012737

ooq785

0000S3

4787
4788

015100
015102

000240
104000

4790

015110

4783

4785

015064

4786 015076 0004

037766

4789 (015104 000137 015212
4792

:LORD WRITE HERDER AND DATA

{EXTEND REGISTER INDEX TRBLE

.GO WRITE REGISTERS VIR PUT SUB

eot

;GO 70 808 IF NO ERROR

260%

;GO TO 2608 IF ERROR

:RETURN MHERE 5‘
RRO
:ERROR DEF INED BY PUT SuB

904

:GO TO 90$ *r noflsknon

IMP

2608

;GO TO 2608 IF

NOP
ERROR

908 :

:RETURN
HERE 6' ERROR
: ERROR ES;INE
BY GET SUB

OR WAS FOUND

: VERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY snnons

BR
oP

100s

1108

1208
:

001400

100s

.GO TO 1008 IF
:RETURN RERE IF ERROR

PC,3(SP)+

"ERROR # DEFINED BY ansnn SUBROUT INE
:GO BACK FOR MORE ERROR
CHECKS

JSR

PC.DTASTS

:GO VERIFY R;SULTS OF DATA TRRNSFER

JSR

2608

1108

PC,J(SP)+

Inp

2608

1208

JSR
NOP
ERROR
JSR
IMP

PC, SECERR
PC,J(SP)+
260s

;GO TO 2608 IF ERROR WRS FOUND
.GO

TO 1108 IF NO ERR

sRETURN HERE IF ERROR
{ERROR 8
DEFINED BY omsvs SUBROUT INE
:GO BRCK

FOR MORE

ERROR CHECKS

:GO TO 2608 IF ERROR WAS FOUND

;GO CHECK ron SECONDARY ERRORS
T0 120:05
ERROR
: RETURN hcne IF ERR
'ERROR 8
DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

;GO TO 2608 IF ERROR WAS FOUND

sWRITE CHECK HERDER AND DRTAR FOR SECTOR JU sr WRITTEN
MOV

JSR

.ucu'co RMCS 10

C.PUT

WRITE

CHECK

COMMAND

17é REGISTERS VIR PUT SUB

1305

;GO TO 1503 xr NO ERROR

JMP

2608

:GO TO a&os IF sROR WAS FOLND

NOP
ERROR
1308:

ERROR

ERROR
JSR

015212

000137

oPuaéNk+4 R2
2+
SRMBA' (R2)+
sRMCS], (R2)+
oaoo (R2)+
PUT

ERROR

015060

4780
4781
4782

JMP

8WH' GO, RMCS10

:WAIT FOR WRITE COMMAND TO COMPLETE ANO RERD STATUS
JSR
PC, TIMOUT
;WAIT FOR COMMAND TO COMPLETE
JSR
PC GET
.GO RERD'REGISTERS VIR GET SUB

4774 ox%gau 004737 OM1344
4775 015050 000C40S
4776 015052 000240
4277 015054
109000
4778 015056 604735

4?79

MOV

MOV
MOVB
MOVB
MOVB
MOVB
JSR

SEG 0100

iR
e URN HERE IF ERROR
ROR DEF INED BY PUT SUB

;WARIT FOR WRITE CHECK TO COMPLETE AND GET STATUS

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19
4293

015110

004737

040326

4794
4795

015153
0151

504737
000M0M

429
4298

81 1
0151

104000
000137

015212

737

0NOS12

:799

weéu
4

015122

018132

15132

181

§§§2
10

1
1
1
{g
1;

48]

4818
4819

4821

4822
4823
4824

KO8

MACY1l 30(1046)
23-NOV-7?
12:38
PAGE 101
T12
FORMRT CHECK ONES - 16
JSR

037516

JSR
BR

000240

NOP
1408

737

0151

JSR

015212

181

o4 1344

xgsgg

015206
015212

1508

053016

181
151
15164
i i

000137

;WAIT FOR READ TO COMPLETE

3 Eno RE
;GO0 TO 14 S IF NO E

svsns VIR GET SUB

2608

Ss 525
;G0 T0 2608
IF ERR

Y csr suB
FOUND

&m fi“é ROR

PC,DTARSTS

;GO vsaxrv RESULTS OF DRTA TRANSFER

NOP
ERROR
JSR
ImP

PC,3(SP)+
2608

: RETURN HEREIF ERROR
‘ERROR
oerxneo BY DTRSTS SUBROUTINE
;GO ancx FOR MORE ERROR CHECKS
;GO TO 2608 IF ERROR WAS FOUND

JSR

PC, SECERR

:GO CHECK FOR SECONDARY ERRORS

ERROR

PC,a(SP)+

;GO encx

NOP

JSR

015212

170$:

1508

;GO cnecx ron PRIMARY ERRORS

PC,J(SP)+
asbe

JSR

1608

PC,PRIERR

: RETURN hsgs1sosoér
ERR NO ERROR
Egflggcfi cg
F 10
I"EDEBY
PnIERfiEEUgROUTI"E
asoi
IF ERROR WARS FOUND

NOP
EESOR
JMP
BR

04900

604 39

PC, TIMOUT

PC GET
1408

;VERIFY THE RESULTS OF NRITE CHECK OPERATION

151
{i iiua 88313?
5 7 015212
181

ERROR
JMP

SEQ 0101

1608

1708

2608

o 1608 IF NO ERROR

o 1708 IF NO ERROR

: RETURN hsne F ERROR
'ERROR &Egrrneo BY

ECERR SUBROUT INE

R MORE ERROR CHECKS

0 2608 IF ERROR WRS FOUND

015212

2608:

4827
4828

015212

iresr 13
FORMAT CHECK ONES W/ WCE ERRORS
fs#»lslllllllllillllllllllll!lllIllllllllll!lllll!llllilllllllfllli!

4830

015212

4832

015216

483N

015226

:359

015240

4826

o SO0 3000 36 05 3 3 35 30 3 U 3 3 3 36 36 36 4F 36 3 3 3 36 3 36 3 3% 9 3 3 3 3 36 9 3 3 3 9 3 3 W 3 3% W 3 3% W % W W% KW K ¥ W®E % WEE

4831 81?514 000240
4833

015222

012706

001100

013705

001450

013700

4g83s 015232 012737

4838
4839

015240

000004

NOP

MOV

001276

000013 001226

012737

SCOPE

001434

MOV
MOV
108:

MOV

SCOPE

#STACK, SP

$BASE ho
rsrou$

813,$ tsrn

CAL

,svnn§ #s

SINITI anzs srncx POINTER

'RO=UNIBUS RDDRESS

J(R1) =

DEVICE BEING TESTED

::SET TEST NUMBER IN APT MRIL BOX

s SETUP PRRQHETERS ron GENERATING DATR BUFFER
MOV

RHDCO

c LINDER
= 0

4a42
oxgsga 815737 1; 376 Sglwoa
443 015270 012737 103566 001404

MOV
MOV

o<ec<2$ess
>+1> RMWCO
$BUF ONE , RMBA

a
+ 256 WORDS
‘DATA BUFFER RDDRESS

4845

MOV

lONtS S$TMPO

USE ALL ONES DATR PRTTERN

4844

012737

ooogse

881490

4e4e

015312

012737

000001

001176

4e4e

015324

4g4?

015320

12737

004737

065044

036620

MOV

1174

MOV
208
:

JSR

sleH RMCS10
sl,$TAPI

PC. GENBUF

'WRITE HEADER RAND DATA

:GO GENERARTE DATA 2UFFER

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB. P11
23-NOV-77 12:19

LOS8

MACY1l 30(1046)
23-NOV-77
12:38 PRGE 102
T13
FORMART CHECK ONES W/ WCE ERRORS

4849

4550

4851

4852
4Y&S3

4gsy

48Ss

015324

(015330
ngggs

015333

004737

154130
ggowow

104000

000137

016130

4859
4860

015344

012737

00000S

4863

115755

0034

4865
Heag
486
4268

0l
1
1
015408

1157
Yd
66q7
GO040M

4870

015412

104000

4eed

4659

4871

0153%6

015410

0127
11272
1127

1535
06

(015420

004737

037432

:g;g

015430

015424

004737

040326

4880

015430

004737

037516

4E 12

01843

000240

3&52

15446

4879

4E31 015434 00040M
4633

015440

0ISY46

004737

4832
4833

015460
015462

004736
000137

016130

48397

015466

012737

ooogsa

4900

O01¢.0M

112722

4303
4304

015520
0ISS24

73
00040M

4649

015452

0OO40S

4830
015454 O 1040
4891 015456 104000
:ggg

4896

015466

490!
4902

015510
018514

112722
11272

00000

00
809;

37766

PREPQRE DEVICE FOR TEST

;TASK pESCRIPTOR

IF NO ERROR
;s RETURN heae T01F 308
ERROR

'ERROR 8 DEFINED BY TSTPRP SUBROUTINE

2608

:GO TO 2608 IF ERROR WRS FOUND

opu

MOVB

#RMOF ' (R2)+

ERROR

40S$:

JMP

NX, R2
, (R2)+

‘MRITE REGISTER INDEX TRBLE

"(R2)+

sRMCSL, (R2)+
oeog (R2)+
PC,.PUT
.GO WRITE RE xsrsns VIR PUT SUB
4ot
:G0 TO qba£¥ HE
URN

2608

HERE IF ERROR

‘ERROR DEF INED BY PUT SUB

;GO TO 2608 IF ERROR WRS FOUND

:SETUP FOR RERDING srnrus AND THEN WRIT FOR SEEK TO COMPLETE
JSR

508 :

JSR

PC,GETSTS

JSR

NOP

ERROR
608:

JmP

PC.GET

60¢$

2608

s VERIFY Tns nesubrs
or

nop
ERROR

708:

001400

JSR
e

;SETUP FOR STATUS

PC. TIMOUT

;GO RERD SEFK STATUS

045420

4898 015474 015702
1640
4899 01800 [je722 880002

154130
308

MOV
MOVB
MO
MOV
JSR
BR

104000

4 8

PC, TSTPRP

;SETUP PRRAMETERS AND EXECUTE SEEK TO GET ovae ON CYLINOER
MOV
oss;xsco RMCS 10
;s CHANGE COMMAND TO SEEK

MOVB

4e N 815442 000137 016130
NE37

TMP

NOP

4875

48?6

001400

000240

016130

4874

308:

000137

015420

ERROR

015414

33;5

_WORD
BR

NOP

815
183w

81
1

JSR

240

4
:ggs

486
4

: PREPARE DEVICE FOR DATA TRANSFER

034000

SEQ U102

'WAIT FOR SEEK TO COMPLE.E
RERO REGISTERS VIR GET SUB

;GO TO sbs
;F RROR

HERE IF ERROR

ROR DEF INED BY GET SUB

:GO TO eéos IF ERROR WRS FOUND
rue SEEK COMMAND

:GO VERIFY
n;sui sesx opsnmmn

PC,3(SP)+
2608

;ERROR
RETURN fiERE
:GO aacx

os xr

av ssxsrs SUBROUT INE
on
€ ERROR CHECKS
0 10 2608 xr ERROR WAS FOUND

unsrs"ggnoen AND DATA COMMRNG
;SETUP AND exscurs
MOV

MOV
MOVB

opuzguk*g
SRMWC, (R2} +

MOV
MOV

sRMCS] . (R2)+
oaog (R2)+

MOVB

JSR
BR

:EXTEND REGISTER INDEX TRBLE

sRMBA’ (R2)+

PC,PUT
80¢

: LORD unxre HERDER ANU DATA

.GO WRITE REGISTERS VIR PUT SUB
:GO 1O 808 IF NO ERROR

CZRMDBO RMO3/2 FCTNL

CZRMOB.P11
4905
4

49g9?

23-NOV-77 12:19

015526
015530

015532

TST 2

015836

MACY11l

0155

4q]

137 016130

015560

sSaoa
IMP

90s$:

4323

3929

016130

100S:

737

053016

)

040512

gaa

NOP

RROR

% fer moy
Y4337 81§1§1 68:'%
:iis gx
4 000137 016130
4

:qas

015624

8%55233

1108

004737 041344

000405

u339
8&% ?EN
4938 015632 004736
000137

016130

00S137

104570

4947

015644

012737

0000S3

4350
4951

015660
015662

000240
104

333,

18670

4949 (0I1Sf56 DOO4OM

037766

016130

015652

004737

gxsbgw 000137

4955

:g%?
8393?2
4oZg D}SSQ
81?900 00‘4;37
8834
4953
(15702
000240
4960

SEQ 0103

2608

nsrusm HERE IF ERROR
RROR DEFINED BY PUT SUB

;GO TO esos IF ERROR WRS FOUND

90¢

:GO TO %r Dag

260$

ol “Fcé
oGS“ suB
;GO TO eéos IF ERROR WRS

SOPR
PC

260

newan

g(smo

i
ROR pc.acspre
$SRY
IoP
2els
R

PC,DTASTS

JSR

PC, SECERR

sgzon
JSR

PC,3(SP)+

;GO CHECK"“ép"'}“*;‘""g
roa
sgnon

1208

Emgg
0

BRCK

8Y PR ERR8ugaoun~e

ERROR WAS FOUND

. *saw 3,o R
R‘f&xp'fa& avngoa
RSTS sueaounne
GO TO 2608 IF smon ms FOUND
;GO VERIFY

OF oam mmsrsn

;GO cuecx FOR secoromv ERRORS
.

G0 T0 Eos IF NO ERROR

Eiflgg" .“BEF:&ED Bv”cszcem SUBROUT INE

:GO BACK FOR MORE ERROR CHECKS

2608

;GO TO 2608 IF ERROR WAS FOUND

:ALTER DATA aurrsn
coM

4345

4948

103

’

015640

4946

1208

W41

494

PRGE

; VERIFY RESULTS
OF wms conmno

§i§§

MOS8

sWAIT ro§smxrs S: 9
¥° COMPLETE ANO an Ts;mugomo TO COMPLETE
an
PS cér
GO RERD'RE xsr RS VIR GET SUB

3920

wgé

12:38

FORMAT CHECK ONES W/ WCE ERRORS

JnP

B80S :

23-NOV-77

NOP
ERROR

43is Big
4916 015554 000137 016130

33{7

T13

000240
104000

3319 1
737
4913 81??33 83737 839??2

39{3

30(1046)

015704

104000

001400

UF TWO-2

:SETUP AND WRITE CHECK
MOV

JSR

HEADER AND DATA COMMAND
MCS10

-LOAD COMMAND

mx'r‘s

1805

;GO TO 1902
IF

i, 2

2608

GO TO eéos

NOP
ERROR

180S:

sucw

: COMPLEMENT DATR WORD

IF ERROR
?R Ecrmeo Y pur SuB

SWRIT ron unns CHECK connmo 10 comu:re

58 R
NOP

ERROR

GISTERS VIR PUT SUB

nsno STATUS

Pc'”‘l
RD'RES&&ReasCS'x‘B’"‘c‘E? ggaconmers
12025 GO TO 1982 RF
URN

HERE

ERROR

ennon DEF INED BY GET SUB

lele]

RMDBO

RMO3/2

4961

4964
4965

ZRMDB. P11

332%
496

4967

12:19

015706

000137

016130

015712

004737

0M0S12

oxsreg

000240

015712
0i5716

015722
015752
0157

4973
49794

015732

497

TST

23-NOV-77

4968
4969
4970
:3;5

FCTNL

015732

01s7wg

000405

30(1046)

T13

23-NOV-7?

FORMAT cuecx
JMP

1908$:

016130

032737

0NM0000

ERROR
JSR
IMP

2008 :
001340

s MAKE

:g;; 015742

004737 083016

4979
4380
w8l
4

015
gxg 9
01
15;35

0s '20
7
137
013737

RROR
SR
JIMP
MOV

4975

016004

104337

4978
43:9

016006

012737

104670

001134

4994

0160.J

112737

000022

001506

499

816094

737

037516

4999

(16054

ggn

4378 315;28 888333

4384

335?

1§

018776

016006

855737

040720

NOP

001140

013737 0013490 001142

4995

(016036

16050

112737

4998

Q16052

oggeqo

s000
500
&0

016056
8150?8
160

137
81373;
137

oog

5003
5004
5095

016076
815105
01611

005137
3837
14

5007
5038
5009
6010

815114
016116
016116
016124

000405

506

S011
ggig
501‘!

5G!5
€016

0ibll2

016126
016130

2058:

2108$:

4990 016014 013737 001334 001136
3991 016022 162737
001136

uqqg

€200

;VERIFY

001140
001134

104341

MOV

ERROR

001507

2308:

FOR PR]IMARY

;RETURN

HERE

2208:

2608$:

YES!

CHECK ERROR

SET??

28527“575

;GO VERIEYR;SULTS °';°§5“g£2825r5"

PC,3(SP)+
2608
Rncse $GDDART

"ERR.R 8 oerxgsg BY DTASTS SUBROUTINE
:GO BRCK FOR
£ ERROR CHECKS
;GO0 TO 2%
F ERROR WAS FOUND
:LORD EXPECT
TRTUS

DAT

§é DOAT

RETURN hsas ERRO&

;LOAD RECEIVED STATUS

'WRITE CHECK ERROR NOT DETECTED

THE unxrs

CHECK

aaos ;GO TO aéos T

naoo ¢£ INX+1

ERROR
;LOAD EXPEC reo ADDRESS

:LO0AD RECEIVED RDDRESS
: DECREMENT RECEIVED ADDRESS

;SETUP FOR RERDING RMDB

Eno Rscésrsns VIR GET

e
N HERE

260%
co 10 2608 xr
RMDBI
. $860R
UFTHO 2, scoonr

CoM
cHP
BEQ

GDDAT
$GDROR, SBOROR
2208

2608

ERROR

IF ERROR

DEFINED BY PRIERR SUBROUT INE
ga MORE ERROR CHECKS
;GO TO 2608 IF ERROR WAS FOUND

CHECK ERROR WRS DETECTED
RMCS21
;1S _WRITE

JSR

cMP
BEQ

ERRORS

:G0 TO0 20178 IF NO ERROR

'ERROR @
:G0 BACK

SRMDB c;

IMP
MOV
MOV

ERROR WAS FOUND

;GO CHECK

MOVB

001136

001142

A
sébnon

MOVB

SEQ 0104

ERRORS

MOV
SuB

ERROR

001142
001140

2108

104

;GO TO 2608

PC,3(SP)+
26ls

THE noo«sss
MOV
!

ERROR
001140

PAGE

NES W/ WCE

;GET WCE DATR AND VERIFY 17 1S 0K

104340

023737
001401

BIS

016130
ooxasg
104576

NO8

200s

sune THE WRITE
BIT
sWCE,

BNE

016130
0013490

2608

:38

:CHECK FOR PRIMRRY snaons
JSR
PC,PRIERR
NOP

104000
0047
000137

001072

MACYL1l

340

$GDDRT, SBODAT
gsos

FINE

SuUB

RROR

av GET SuB

on
WAS FOUND
iL
RECEIVED DATA WORD
L
EXPECTED DATA WORD
; 1S_RDDRESS OK??
YES!

nooness OF WCE INCORRECT
; 1S_DATA WORD OK??
YES!

uncxpecrso WCE DATA

483 3638 3 48 3 48 35 3 96 3 3 3 3 3 96 95 3 3 3% 96 3 6 3 3 3 3 % 4 3 3 W 3 W % 3 % 9% % %% % W% % EEEWE R ®EEEREEE®EE W W®

iTESY 14

FORMAT MULTIPLE SECTORS

3 SPIEE I 0000 0000 00 06 00 36 00 00 06 00 0 00 4 B 0000 00 30 06 36 30 00 36 06 00 00 00 30 36 06 06 06 00 06 00 00 0 06 0 00 06 08 00 30 00 48 30 30 36 06 0 36 30 3¢

CZRMDBO RMO3/2 FCTNL TST 2

CZRMDB.P11
5°1?
801

8”’1%
161

23-NOV-77 12:19

MACY1l 30(1046)

TSTIY:

%33
smg 016132
1613
0l

%1
8022
5023

1 go
6
@15
§1§7
16140
0161w 013701
1450
igigg 012737 000014 001226

23-NOV-?7

]2:38

BOS

PAGE 10S

SEQ 0.05

FORMAT MULTIPLE SECTORS
SCOPE
NOP

MOV
MOV
MOV
MOV

s ngx SP
R
?én
TQu Rl
o1y4,STESTN

gé( x POINTER
1) = DEVIC uc TESTE
TEST NUMBER IN APT mn. BOX

%
; SETUP Pmrsns ron csm:mnnc DATA BUFFER
205e oioish
digZ¥
gi&
Hov
F Ay
'c?oa
5029
1
737
8‘%
14
MOV
hns
6
BIT
F
soatla gig §i 37 1
{485
%3 ou ¢ ue>+1> Rmcbbgu?%gogn
FOR a secrons

2% dieste B15H3s & 391480
R o1 0i57T oooar oo1ize

5035 81533 00N737 035526

5039
5038

1624

208:
.

2830
§im B0
50'0$ gs&g %0

5043 { ¥ 6&0‘39
S0MY
§i%
1
016704
045

308:

001400

805

§i§§

sosé o1
S064 81534:
5065

sowE

37 037432
004737 040326

smsosg

§i&3

78-07

8070

016354

037516

5071 012%26 104000
€072 015360 000137 016704

'z‘*?msl

USE
AL ZEROS DATA PATTERN
:GO GENERATE DATA BUFFER

ggson
MP

DEVICE FOR TEST

532130i TRSK DESCRIPT
GO ro1 smon
308 IF NO ERROR
s RETURN WERE

:ERROR # gsq Y TSTPRP SUBROUTINE
$ IF ERROR WRS FOUND

1808

;SETUP PRRAMETERS

£s pia
016320

805
iéi?é
sosg
i

o
JSR

DRI TECTEABERAdo. DATA

TR TRANSFER
,mpmng v Ice r oa 2°
PRE

5139 016242 004737 034000

SOM7
5048
5049 8%5%

o 2&2

XECUT sesx TO GET
ON chmoe
'
mm\‘:f
COMMAND TO
%Egm(chhe?:cg
mxre Rscxsren
INDEXSEEKTRBLE

BR
ggn

PC. PUT

b, o

1808

NOP
4o$
ERROR

bg
unm % oasrsns vIA PUT SUB

;60 TO 4 ¥ rwso F BYERROR
PUT SuB
:GO TO xéos xr

OR WRS FOUND

: SETUP r?gnnenoxgg smgug AND THEN WRIT rg27$£§ 0£°SCS"P§ETE
JSR
PC. TIMOUT
:WAIT FOR SEEK TO COMPLETE

508
:

:GO RERD SEEK STRTUS
‘Jaga

NOP

ERROR
JHP

ES;GU

.co 10 sbs¥R£RO
REG
ogTsns VIR GET SuB

1808

ERROR DEFINED BY GET SUB
:GO TO 1éos IF ERROR WAS FC'IND

RE IF ERROR

RMO3
TNL
TST
zm,eopu /aagcno"b 7 15:19

558;3

016364

MACYLl

30(1046)
F
! 3913

v-77

n&ft 3gec?@&& 106

60$:

;VERIFY THE

%8 g:&s
1636M
? o4s420
2073
ESZS
i‘égm 1 47
01
5080
5081
012%3 &1§ 016704
smsSEHE 016404

VERI

708:

cOoS

RESULTS OF THE SEEK COMMAND

é‘a
Esam
InP

PC,
708 SEKSTS
bC 3(SP) +
1802

;GO VERIFY
SEEKERROR
OPERATION
) R§ T orF NO
Zéflégcx FoRm:o BY 55055735 sutsanounne
;G0 TO1 IF ESROR WAS FOUND

gfimg
81540-4
812737
ggooss
001400 sSETUP “:8exscu“s“m
S"E‘E“OE
5%
016412
018702
1540
sPUT rdua
5097 016816 112722
SRMUIC, ( 5+
srvg gxgu
1127
38
car:aalt
?rm ois:
fi
00
MO
oeoosfhau
164
7
037766
ggn
E&P(JT
.

£4 fiei3
Sl
o”’wq

5095
815:20
ooocxgg 016704
%
16454
5094

01644

"Qn:oa
MP

80s$:

2099 stwsq 8: 73; 8“0335
gioo 16460
37516

L gy me

180%

sxrsno REGISTER INDEX TRBLE

WRITE 588&5*:::5 VIR PUT SUB

:GO T0 1653 9 ESR&:

ETE
'En“? ; Ugommo To COHPLETE
GO RERD'REGISTERS VIR GEY

COMPLETE

RAND

STAT

gy
"
sgsoa
me&
GET SUB
ImP
180$
;GO TO 1éos IF DE
ERROR
WRSBY FOUND

90S$:
: VERIFY

gme 016476 004737 040512

ffixrs
HERDER AND DRTA

R AND DATA. conm

160 0 a1 nerxar 5”93? SUB

sWAIT ro&zsamx
€ 38 n'rgu oc
JSR
.

1 016472
164 000137
1
5104
016704
gig 016476

SEQ 0106

WRITE COMMAND

gf: PRIERR

;GO CHECK roa PRIMARY ERRORS

§"§§oa

be. 3(5P) +

Zgngg":
b xrio BY PRIERR suenounnc
BAC

)

gflsa

s;tl:b(s)msrs

;GO vsmrv
ngsmn.réao;"m”zns;nnmmsrsn

016704

L18:

Inp

1808

?
wy
3{53
isgzs
Do
0413
1
§12§ %333

)

an
NOP

PC, SECERR

: GO fluscx FOR SECONDARY ERRORS

JMP

bC 3(5P)

1808

Egnggc: %51%2 avngscsnn
suanounns

5%?3

5“5

§16

gfla §%2 ig %1
11

gi};
11

gig

§{§SZ§

gigg,g

gxes

125%

128

016556

004737
?

137

1mgoo

5159 8152?3 8831
1

016704

1008

063016

016704

JES

ggsoa
1208:

1008

1902

F NO ERROR

TO: Eoi 2 sfingaRAS FOUND

RETLRN

xr smoe ms FOUND

1208

(SP)+

E 7?1 Em NO ERROR

s RETURN

Eoi 9ESR0RNAS FOUND

CZRMDBO RMO3/2 FCTNL TST 2

CZRMO8.P11

23-NOV-77 12:19

MACY1l 30(1046)

T1Y4

23-NOV-?7

12:38

DOS

PAGE 107

SEQ 0107

FORMAT MULTIPLE SECTORS

2150

3131
16556 %337
2737 8%7756
00S3 001400 s WRITE CHSCK
SECTORS
M IRvIA DATA
sxgs 8153&4
JSR "“‘REEH“"B
PC,P? 835215“‘ 382
m;g@x“??%&
PUT COMMAND
SUB
51332 oigs;g
oM
B
1303 :GO TO 1
S:
gxa& 81527*4 104838
Egson
65’59& %&3‘6
Y PUT suB
6137 016576 000137 016704
JMP
1808
;GO TO 1
IF E
gig
5140
Si41
5142

016602
016602

004737

5144
5145

016614
016616

3240
109000

gize

oxse.as

5143 815&1
swg

737

040326

037516

815153

000137

016704

5149
S1S0

016624

004737

040S12

5152

016632

5151

815530

000405

61583

016634

104000

gigg

31&&

000137

016704

5157

01664

053016

5159

0166

161

5158 315622 M
8122?.2

NOP
ERROR

1408

016674
016676
016700

1508

%igé

016704

6170

016704

le0s

016704

016710

5180
5181
S182

giga

PC,3(SP)+

:GO ancx

JSR

PC,DTASTS

;GO vsnxrv

F ERROR
v csr suB

170$:

ImP
JSR
BRNOP

RROR
SR
JMP

1608

PC,3(SP)+

1808
P
CERR

130?5

PC,2(SP)+
1808

co T

ERRORgsrx

Rzruan
o aacx

xr NO ERROR

ev ”OAERR
suenounne

nogz

1eos IF smoa RHS FOUND
SULTS

OF mm TRANSFER

"§ sfis NO ERROR

Rgoasvs
SUBROUTINE
KS

T0 wos IF saaon WAS FOUND
;GO cuscx ron SE
Y ERRORS
9%2?
NO ERROR
RETURN

'ERROR #
:GO BACK

rmeo
CERR SUBROUTINE
FOR MORE ERROR CHECKS
:GO TO 1808 IF ERROR WRS FOUND

0000 00 00 0

00000 00 0O

000000 00U 00000 00 0000 00 000063000 00 0

FORMAT W/ MEAD SWITCHING

300 0

X Y 2222222122222x22:12xX22X2:22x2x222X2X2X:XXXTZXX2XXTXTLTISLTITZILS
R L]

016704
016706

00COOY
000240

016714
016720
016724

013700
013701
012737

016732

1808

RROR

hssr 1S

6179

5177
5178

ERROR

§ s SR IRIRIEIE 3 00

016704

FDED

180$:

S174
5176

1808

65
:GO TO 1808 IF

JSR

NOP

683

S173

§17S

1S0s

000240

68:000
736
000137

;G0 TO 14

NOP

gigaa oiu,se 000137 016704
5164 01 E
7
OM 1344
5165
Exss
%.8%
5166 0166 000240
5167
5168
5169

h{, 2

;VERIFY THE RESULTS OF WRITE CHECK OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

000240

5154 016636 04736
gxw

1308:
:WAIT FOR WRITE gns;x
TO COMPLETE AND GETHsmrgs
JSR
OR WRITE CHECK TO FINISH
JSR
&z
a;no
TERS VIR GET SUB

012706

té11s:
001100

001276
001450
00001

SCOPE
NOP
MOV

001226

108:

MOV
MOV
MOV

gmcx SP

$B8ASE, RO
TSTQUE, R
815, STESTN

;SCOPE
:START

CALL
OF TEST

:INITIALIZE STACK POINTER

IRO=UNIBUS RDDRESS
:(R1) = DEVICE BEING TESTED
}.GET TEST NUMBER IN APT MAIL BOX

cznnoeo RMO3./2 FCTNL TST 2
CZRMO8.P11
23-NOV-7? 12:19

5185
6186

016732

0157 ?

oooogg

gie7 0}27“0
oi ; 7 gooo
m

MACY!1 30(10451
T15

88143w

1306

5192
6193

016776
017004

gigg

017016

5194

5197
€198

0127
012737

065106
000001

017012

004737

036620

017016

004737

034000

6199 017022 154130
017024
000404
€501 017026 000240

ggv

017030

001174
00117&

5204

017036

104009

000137

5205.E?

817035

015737

6209

017050

112722

000006

2515
Bi78eq 1187s8
5213 017390 115;55

35
2

5210

5214
5215
6216
6217

6218

17094 012702

017054

004737

6227

017122

004737

8229
6230

017130
017132

000240
104000

017126 0O0N04

040326

037516

017140

€235

017140

6237

017146

6236
€238
5233
€240

004737

017144

000405

017150
017152
0171849

104000
004736
000137

001400

:GO TO 1808 IF ERROR WAS FOUND

;SETUP PARAMETERS
AMD EXECUTE SEEK TO GET: CHANGE
DRIVE ON
CYLI oen
MOV
:§5§ GO, RMCS10
COMMAND T0 SEEK
MOV
NXha
‘WRITE REGISTER INDEX TRBLE
MO

, (R2)+

:GO TO 1808 IF

€231 017134 000137 017460

gsgg

30S:

‘ERROR # DEF INED BY TSTPRP SUBROUTINE

180$

027432

017122

180$

004737

017116

24
5225
5226

JmP

ERROR

154130 ; TRSK ocscax
PTOR
T0 308 IF NO ERROR
: RETURN fienc IF ERROR

-GO WRITE ggcx
STERS VIR PUT SUB
;GO TO 408 IF NO ERROR

017460

017112

308

PC,PUT
404

000137

5221
5222

_WORD
NOP

JSR
BR

017100

017112

:GO GENERARTE DRTA BUFFER

SRMOC
. (R2) +

037766

000240
104000

PC, GENBUF

MOV

004737
000404

017102
017104

‘USE ALL ZEROS DATA PRTTERN

000034

017074
017100

2553

5223

112722

8ZEROS, $TMPO
al,STHP]

: PREPARE DEVICE FOR on A rnnusrsn
JSR
PC, TSTPRP
REPRRPE DEVICE FOR TEST

017460

1635

srnaTTn; ORm
LRS} SECTOR

JSR

MOV
MOV

208:

'é i

#1C<<é+asa YR 41D, RMWCH:u086 COUNT FOR 2 SECTORS
s
RMBAO
:0ATA BUFFER nooness
shiH RHCQ*
(WRITE HEADER AND DAT

017032

SEQ 0108

MOV
MOV

MOV

5200

gggg

23-NOV-77
12:38
PAGE 108
FORMAT W/ HERD SWITCHING

s SETUP pnnnncrsns FOR cenennrxnc DRTA BUFFER
MOV
RMDCO
;CYLINDER
= 0

sxgg 8157sw 8157 7 1#8993 -fixugs
5190 016762 012737 633322 001404
5191 016770 81273;
001400
a0

EQS

045420

000240

HOvE
aamcel
CR2)+
noxs
8
(R2)+

NOP
ERROR

40$ :

ERROR WAS FOUND

;SETUP FOR Renornc srnrus AND THEN WRIT FOR SEEK TO COHPLETE
JSR
PC,GETSTS
;SETUP FOR STARTUS
508:

JSR

PC TIMOUT

;GO READ SEEK STATUS

ISR

PC,GET

604

GO0 TO sbs IF

JMP

180$

:GO TO 1905 IF ERROR WAS FOUND

NOP
ERROR

608:

:WAIT FOR SEEK TO COMPLETE

B8R

RERD
nscxsrsns VIA GET SUB

,RE URN
HERE IF ERR
RROR DEF INED BY csv suB

:VERIFY THE RESULTS OF THE SEEK COMMAND

JSR

NOP

017460

;RETURN HERE IF ERR
: ERRGR gerxneo 8Y puv suB

ERROR
JSR
IMP

PC.SEKSTS

70$

PC,a(SP)+
1808

:GO vcnxrv RESULTS OF SEEK OPERATION

: RETURN

7os IF NO ERROR
RROR

‘ERROR #
xnso BY SEKSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 1808 IF ERROR WAS FOUND

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19

FOS

MACY1l 30(1046)
23-NOV-??
12:38 PARGE 109
T1S
FORMAT W/ HERD SWITCHING
708:

017160

5241

5243

So4?
Seyg
5249

5250

17160

8157

17172
0171
QI
01

e
1272
7

001400

17195 1
01721

&N?

6258
6269
€260
8261
5262
6363
sesg

017230
017234
0172940
017242
017244
01724
017252

004737
004737
0O00Od
000240
104000

€567

017252

004737

sess“

€268
5269
6270
5271

JSR

g};sgg 000137

017460

So74

017272

0047

053016

8277
52

0173u2
017304

109006
004736

€276 8173no 00240
8531

000137

017316
017320
017322

05
000240
104000

seE 91: 017312
5282
6283
Soa4

6285
5286
8287
5288

'55::«30Ei

017324
017326
017332

90s§ :

017460

000053

017332

012737

€294
5295

01734
017350

000240
104000

004737

6233 017344 000404

037766

€296 017352 000137 017460

SRMBA’ (R2)+
sRMCS], (R2)+
osoo (R2)+

PC . POT

goé
180$

ORD WRITE HERDER AND DATR
sxrsno
REGISTER INDEX TRBLE

GO WRITE REGISTERS VIR PUT SUB

;GO TO ab TURN
IF NO HERE
ERRORIf ERROR
PUT SUB
;GO TO 1808 95 OR
IF DEFINED
OR mg BY FOUND

JSR

1008

BR
NOP
ERROR
JSR

90!
180$

,m T FOR COMMAND TO COMPLETE
grsas VIA GET SUB
:GO TO 9bs
%
ERR
URN HER:I RROR
RROR DEF INED v cer SuB

;G0 TO 160 IF

PC,DTASTS

;GO vsnxrv

ERROR
JSR

PC,3(SP)+

OR # DE xnso BY omsrs suenounus
:GO BACK roa nonsoi

JSR

PC, SECERR

JSR
nP

PC.3(SP)+
1808

NOP

JNP

B8R
NOP
ERROR

001400

1008

;GO CHECK FOR PRIMARY ERRORS

PC.J(SP)+

ImP
JSR

1208:

PC,PRIERR

OR WAS

)TO 100%
oar NO ERROR
:ERROR
oe mso av PRIERR SUBROUTINE
;GO aacxnoagoi CHECKS

Lics

STATUS

PC TIMOUT
GET

: VERIFY RESULTS OF WRITE COMMAND

737 041344

6291

017343

JSR
JSR
BR
NOP
ERROR

017460

004736
000137

BR
NOP
ERROR
by 2

160 Rncgéo
oPUTIuiu»g
(R2)+
,
SRMC

:WAIT FOR WRITE COMMAND TO COMPLETE AND READ

080S12

g;g

557

80S$:

000137 017460

0004

MOV
MOVe
MOVB
MOVB
MOVB

040326
037516

DOO40S
000240
104000
004736

017276

MOV

017356
017260
017262
017264

£275

:SETUP AND sxscurs WRITE HERDER AND DATA. conmuo

oo
00

5251
017515
00040M
%g
12320 000240
17222 104000
6364
(017224 000137 017460
6255
017230
.c,afs?E

SEQ 0109

;RETURN HE

1808
1108

1808

1208

GO TO 1
GO

Rgflunu 23

IF ERROR WAS FOUND

SULTS OF DRTR TRANSFER

o 1108 IF NO ERROR

F ERROR

) (3 smoa uns FOUND

;GO cuecx FOR SECONDARY ERRORS

GO TO 1208 IF NO ERROR
; RETURN bERE IF ERROR
:ERROR # DEFINED BY secenn suenounne
:GO BACK ron nons ERROR
C

;GOTO 1808 IF ERROR uns FOUND

:WRITE CHECK HERDER AND DATA FOR SECTORS JUST WRITTEN
MOV

JSR

NOP
ERROR

JMP

s cn GO,RMCS10

-READ HERDER 8 DATA COMMAND

GO WRITE Rscxsvsns VIR PUT SUB

130s

;G0 TO 1508 1F no ERROR

180$

GO 10 1605 IF ERROR WAS FOUND

"RETURN HERE IF
E
ERROR DEF INED BY PUT suB

czmoeo RMO3/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19
5297

017356

5300
5301

817
017

ggg

8"373

%:7 7
737

104

€309

017400

004737

§311

017406

000240

6313

0174.>

%37

8310 017409 000405
017410

017420
017432

104000
004736

000137

017460

§323

017940

004737

0O4134M

6325

017446

000240

6324

017444

6326

017450

5328

017454

6327

6329
ggg?

017452
017460
017460

000405
000137

017460
053016

1508

Le0s

017460

S340
341

017474
017500

5344
E34s

S346
€347

JSR

PC,a(SP)+

GO ancx F

BR
NOP

150?

;GO venxrv

IMP
JSR

DEFINED

F ERROR

BY GET sus

170$:
1808

RIERR

O CHECK FOR PRIMARY ERRORS

; RETURN

1808
PC.DTASTS

RE TO 120:
r NO ERROR

:ERROR & DE
m:o

PRIERR SUBROUTINE

T0 1

IF ERROR WAS FOUND
OF onm mnnsrsn

nonsog CHECKS

R‘%“‘sgs
; RETURN %gg

ERROR
JSR

PC.3(SP)+

{ERROR #
xrco av omsrs SUBROUTINE
:GO BRCK FOR MORE ERROR CHECKS

JSR

PC, SECERR

;GO CHECK FOR SECONDARY ERRORS

JSR

017460

1808

17048

;GO TO 1808 IF ERROR WAS FOUND
.GO TO 1708 IF NO ERROR

RETURN HERE IF ERROR

PC,3(SP)"

1808

:ERROR

:GO BACK

gcrmeo BY Rgscsm SUBROUT INE
FOR MORE ERROR CHECKS

:GO TO 1808 IF ERROR WARS FOUND

017470

017506
017506

017514
017522

000004
000240
012706

013701
012737

013700

012737

012737
012737

t&716:
001100

SCOPE
NOP
MOV

#5°ACK, SP

;scopg CALL
:START
OF TEST
SINITIALIZE STACK POINTER

001450
000016

001226

MOV
MOV

STQUE, R}
816, STESTN

:(R1) =
DEVICE BEING TESTED
::SET TEST NUMBER IN APT MRIL BOX

%0809

%1434

001276

203

MOV

1406
1432

1402
6349
(017536
0127
103566
1404
5350 017544 012737 000062 001400
6§36] 017552 012737 065106 001174
017560

FORMAT W/ MID TRANSFER SEEK

X 122222222222%222:122222:x:2:1x2:222:32X222X1x2:2:2*X2XX22XX22TTTX2L
XS

€348 017530 01273; 1 6993
6352

RROR

PfRE

X 1222221222222 2222:3222X22X2222XXT2RX2
X222
L)

017460
017462
017464

JSR

hesr 16

5§33
5337
6338

§339

ERROR

5333

6335

:GO TO 1605 IF ERROR WRS FOUND

£332
334

180$

ns;

1408:
: VERIFY me nesuus or WRITE cnecx OPERATION

104000

004736

iy 2

ERROR

§319
§320

5319 017424 oooqg
6318 017426 000240

sWAIT FOR WRITE CHECK TO FINISH
REREGISTERS VIR GET SuUB

;GO TO 1405

ERROR

109000

137
0047

PC, TIMOUT
PC GET

1408

NOP

8%77353
017420

8%%3‘5

NOP

040512

gg{g
5316
%3355

JSR
ISR

000137 017460

§312

sWRIT FOR WRITE cuecx 10 COHPLETE AND GET STATUS

040326
037Si6

17372
017374
017400

5303057
5378

SEQ 0110

1308:

6302 017366 J0ONOM

6305

GO9

MACY11l 30(1046)
23-NOV-?7
12:38
PRGE 110
T1S
FORMRT W/ HEAD SWITCHING

012737

000001

001176

108:

BASE, RO

: SETUP Pnnnnemns F
MOV

csr«:mrmc DRTA BUFFER

MOV
MOV

. 2037,
RMDRO
ornns RMOFO

MOV

ozshos smpo

MOV

MOV
MOV

MOV

Lf’g

:RO=UNIBUS noongss

:CYLINDER
= 0

smm AT LAST TRACK & SECTOR
& BIT FORMAT

+SssYHRO 41>, Rnucb uono COUNT FOR 2 SECTORS
o'f
;DATA
BUFFER RDORESS
MC810
unmz HEARDER AND DATA

sl,STHP]

:USE ALL ZEROS DATR PATTERN

CZRMDBO RMO3/2 FCTNL TST 2

CZRMOB.P11

ggga

;

817395
1?7

23-NOV-7?7 12:19

004737

036620

034000

5356

?3@5 81;§;E 993135
5359

017500

ooong

gggg

§32? 813283 ?83808
817503

000137

020234

S
366

017612

012737

000005

5367
5368

1761
0l
0l

369
6370

01
017634

Eg;g

{;g 4

gg?
7
5373

81;240
17694
817520

015

1137

1187
112722

ii 75
7

MACY11 30(1046)

T16

20s:

017666

£380
8381

017666

004737

30s$:
001400

040326

5386

017676

004737

037516

639]

017714

S394

(017714

395 (017720 000405
€33 017722 000240

045420

2322 817758

020234

£397

oi;;aw

238?

017734

sS40

004737

1ougoo

403

017734

012737

ooooeg

406

017752

11572

00004

404 017742 0127
00154
S40S 01774 112722 000002
&407

017786

11272

S40e 017762 112722

006000

000200

;GO GENERATE DATA BUFFER

41 5 TASK ossvflifififii

30s

JmP

180$

ESROR

DEVICE FOR TEST

189 T0 osflés NO ERROR

EERSR AEFxneoBY TSTPRP SUBROUTINE

;GO TO 180S IF ERROR WAS FOUND

MOV

SsPUTINX, R2

MOVB
MOVB

8RMOC
| (R2) +
+
SRMOF | (R2)

40S$:

'WRITE REGISTER INDEX TARBLE

, (R2)+

v
MOV
JSR

sRMCS], (R2)+
8200, (R2)+
PC,PUT

ESROR
ImMP

180$

SRP

4ot

GO unxvs Rscxsrens vIA PUT SUB

:GO TO ubs IF NO

ERROR

S gg"ogfxne
PUT SuB
;GO TO 1605
IF ERROR WASav FOUND

:SETUP FOR RERDING STATUS AND THEN WAIT FOR_SEEK TC COHPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS
508
:

JSR

PC. TIMOUT

:GO RERD SEEK STATUS

JSR

5387 oi;;Ue oooqgu
§§g§ 317732 080808
5390 017710 000137 020234
§393

SEG 0111

PC, GENBUF

ERP

037432

004737

017676

PAGE 111l

:SETUP PRRAMETERS AND EXECUTE SEEK TO GET DRIVE ON chxnoen
MOV
8SEEK !GO, RMCS10
; CHANGE COMMAND TO SEEK

037766

317572

5383
5384
5385

JSR

. HORD

M
000032

5382

12:38

FORMAT W/ MID TRANSFER SEEK

: PREPRRE gsvxcs Fg
gnrgprnnnsrsn

5376
1
8377 817523
017662 000137
020234
gg;g

23-NOV-??7

HOS

608
:

ggp
ERROR
P

PC,GET

604

180%

*WAIT FOR SEEK TO COMPLETE

0 RERD REGISTERS VIR GET SuB

;G0 T0 sb ; N0H§ROR ROR
: SngR DE xneé
BY GET suB
:G0 T0 1605 IF ERROR WRS FOUND

s VERIFY THE RESULTS or THE SEEK COMMAND

JSR

70&

180?

eggon
708:

001400

EKSTS

BR
NOP

905P)e

;GO VERIFY aesumrs OF SEEK OPERATION
:RETURN

hgoHERE T0IF gs
IF NO ERROR
ERROR

ggflggcz 2EFINED BYR§E§ST§
suenourxwe

;G0 T0 1505 9 ESRSSNARS FOUND

qurs Hgngen AND DRTA COMMA
:SETUP nn8 Exzcurs

MOV
MOVB

opurxnk+3
cnnuc (Rai+

MOVB

sRMCS!,

MOVB

#RMBA RS)*

(R2)+
8200, <he)+

LORD WRITE HEADER AND DATA

exrsno REGISTER INDEX TABLE

CZRMDBO RMO3/2 FCTNL TST
2
CZRMOB.P11
23-NOV-77 12:19

S4I0 0177722 00040

S409

01?7

004737

8411

017774

0002

8412
8413
g:ig

8416

012776
020000
020004

104

E417

020004

004737

S42C

020016

000240

g:ga
§425
€426
42?7

020026

8429

(020036

418

020010

004737

6419 (020014 000404
842l

020020

109

MACY11 30¢( ows)
23-NOV-77
12:38
PAGE 112
T1
FORMAT W/ MID TRANSFER SEEK

037766

004737

S48

00040S
000240

S430

020040

004736

020234

80S$:

JSR

037516

JSR

NOP

ERROR

€433

(02004

004737

053016

6435

(20054

000240

5437

5438 020062
5439
S440

(020066
020066

S441

020072

S443

020076

100S

137 020234

1108:

041344

5450

020106

012737

000053

5483
S4S4

020122
020124

000240
1049000

g:gg
S4S8

020132

460

020136

S4y4q

S4S]

020114

004737

S4S2 020120 0OO40M

037766

§455 (Q20iee 00C137 020234
6459

020132

0047.°

S462

020144

000240

004737

S461 0e0142 GOO4OY
6463
464

020i4
020150

104000
000137

RE TURN Hene

ERROR DEFINED

040326

1208:

001400

BY GET Sus

:GO TO 160; IF ERROR WAS FOUND
R TURN Fen; IF ERR
s

INED BY PRIERR SUBROUT INE

1808
1108

:GO TO 1éos OAF NO ERKUR

:RETURN HERE IF

JSR

PC,3(SP)+

JSR

PC, SECERR

JSR
NP

;GO TO 1808 IF ERROR WRS FGUND

1808

1208

"ERROR8 DEFINED BY omsrs SUBROUT INE
GO BACK FOR MORE

;GO CHECK ron SECONDARY ERRORS

GO 01

; RETURN 3

PC,a(SP)+
1808

CHECKS

;GO T0 1805
IF ERROR WAS FOUND
s IF NO ERROR

RROR

"ERROR# DE mso BY SECERR SUBROUTINE

GO ancx FOR MORE ERROR CHECKS
;GO TO 180§ IF ERROR WAS FOUND

:WRITE CHECK HERDER AND DATA FOR SECTORS JUST WRITTEN
MOV

JSR

8LCH! GO, RMCS 10

Reno HEADER & DATA COMMAND

PC. PUT

1sbs

GO TO 130:1 5 ?R

IMP

180$

;GO TO 1603 IF ERROR WAS FOUND

JSR

PC, TIMOUT

NOP
ERROR

£ REGISTERS VIR PUT SUB

HERE
IF ERROR
oa oe INED BY PUT SUB

1308
sWAIT FOR WRITE cuecx TO COMPLETE RND GET STATUS

037516

ISR

020234

F ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

ERROR

020234

180$

:G0 TO 905 IF

PC.DTASTS

104000

0047
000137

020106

304

;WAIT FOR COMMAND TO COMPLETE

Efig Rgcxsrens VIR GET SuB

JSR

IMP

NOP

020100
020102

G446

PC, TIMOU

PC’ cs

co ancx FOR MORE ERROR CHECKS

ERROR

Sy42 (020074 000240
S4y44
S44s

OR WARS FOUND

PC,J(SP)+

NOP

736

00040S

g FINED av PUT SUB

;GO TO 1905 xr

JSR
BR

104000

004737

; ER
RN HERE IF ERROR

NOP

020234

00040S

unm: REGISTERS VIA PUT SUB

30s:
s VERIFY RESULTS OF WRITE COMMANO
JSR
PC,PRIERR
:GO CHECK FOR PRIMARY ERRORS
BR
1008
GO T0 100$ IF NO ERROR

104000

000137

5436

JMP

040512

m
020052

1808

:G0 TO ebs
%F ERROR

PUT

:WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

040326

g:gé
6434

InpP

NOP

ERROR

104000

(02" 132
02ul3N

eot

JSR

§422 020022 000137 020234
020026

B8R

SEQ 0112

B8R

NOP

ERROR
IMP

PC GET

,unu FOR WRITE CHECK

RERD REGISTERS VIA GET SUB

14908

:G0 TO 140: IF NO ERROR

180%

:ERROR DEFINED BY GET SUB
:GO TO 1808 IF ERROR WRS FOUND

RETURN HERE

IF ERROR

TC FINIGH

cmnoeo RMO3-/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:189

g:gg

020154

L1%4
S468

020154

DO4737

470
6471

020162
020164

000240
104000

5469

5472
23;3

020160

00040S

S47S

020174

004737

0S3016

47?7

(030202

02020N4

020234

S482

004737

041344

5483

0307220

484
S48S
486
4”7
Sug8
g:%

0320214

020222
020224
020226
020230
(020234
020234

1508

000405

000240
104000
004736
000137

1608:

020234

170%:

XYY

020234

(00234
020236
020240

5499

(020250

0DOO00H
40
012706

001100

013700

001276

012737

000017

001226

013701

001450

023254
020262
ozoess

012737

000000

001434

6508
5509
6510
6611
ggig

02031
020

638323

020334
020342

812737
12737
012737
012737
004737

001404
001400
001174
001176

5516

020346

4737

034000

§520

020360

104000

020270

1608

92 ?1205IF NO ERROR

:GO ancx ron noeso R CHECKS
10 1808 IF ERROR WAS FOUND
;GO vsmrv RESLLTS OF DATA TRANSFER

GO TO 1203 IF NO ERROR

: RETURN BEREIF

JSR
IMP

PC,a(SP)+
1808

JSR

PC, SECERR

:GO cusc
K FOR SECONDARY ERRORSG

PC,a(SP)+
1808

:RETURN HERE IF ERROR
'ERROR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 180 IF ERROR WAS FOUND

NOP
ERROR
JSR
IMP

1708

:ERROR # oerme

ERROR

BY omsrs SUBROUTINE

:G0 BRCK noac
OR CHECKS
o T0 1
xr ERROR WRS FOUND
.GO TO 1708 IF NO ERROR

211222 1 1221221212223

FORMAT W/ IMPLIED SEEK

L S

o 360 03606 3 3698 3 36 3 36 3 3 3 46 3 3 3 B 3 3 3% 3 3 3 36 3% 3 36 46 3 36 3 3 36 36 3% 3 3 9% 3 3 3 3 3 3 3 3 k3% 2 % I % XX WK% %%

tér17:

5500
gggé
5503
5504
6505

012737

000000

001406

506 020%3
812737
001432
5507
020
12737 010999
176
001402
065106
000001
036620

SS14

5515

PC,DTARSTS

hesr 17

€495
5436
5497

5498

JSR

;RE"URN
AERE IF
{ERROR# DEFINED ev PRIERR SUBROUT INE

180S8:

5432
494

PC,(SP)+
1808

491}

6483

JSR
JMP
BR

104000

004736
000137

02021M

1568

NOP

S479
0208
5480 020210
S48l

NOP
ERROR

020234

5478

SEQ 0113

s VERIFY ms RESULTS OF WRITE CHECK OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS

040512

0047 36
000137

020200

MACY1l 30(1046)
23-NOV-?7
12:38 PAGE 113
T16
FORMAT W/ MID TRANSFER SEEK

1408

oao'.%
8%3{7‘.

S476

J0O9g

6517 020352 154130
6518
020354
000404
6513 (020356 000240

SCOPE
NOP
MOV

TSTQUE, R1

2(R1) = DEVICE BEING TESTED

MOV

$8ASE, RO

MOV

817, STESTN

MOV

108:

#STACK, SP

;SC
SaLL
;START Of TEST
:INITIALIZE STRCK POINTER

'RO=UNIBUS ADORESS

*.SET TEST NMUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
o,moco
;CYLINOER = O
MOV
RMDRO
mncx = SECTOR= O

MOV
MOV

208

MOV
MOV
MOV
MOV
JSR

crfins
RMNFO > #2>+1), Rmcb &uono
BIT COUNT
FORMATFOR 2 SECTORS
BCPCC(24256.
$BUF ONE , RMBRO
s, RMCS10
$2EROS, $TMPO

;0RTR BUFFER RDORES s
unm HEADER AND DAT
{USE ALL ZEROS DATA pmrsnn

8], STMPL
PC, csneur

:GO GENERARTE DATA BUFFER

: PREPARE DEVICE FOR omn TRANSFER

JSR

. WORD
BR
NOP

ERROR

TSTPR

PREPARE DEVICE FOR TEST

154130 msx oe4CRIPTOR
308
TO 308 IF NO ERROR
s RETURN hsne IF ERROR

'ERROR # DEF INED BY TSTPRP SUBROUTINE

CZRMDBO RMO3-/2 FCTNL

CZRMOB.P11
5521
gggg

TST 2

23-NOV-77 12:19

020362
020366

000137

MACY1l

021032

836 020366 013737 001434 021034
0c0374

012737

001466

6528
6523

(G0Nl
(QoOMIM

1
11@72

6537

(0204

315;37

googg

5542

(020456

004737

037432

gg:g

020466

6547

65549

NOP

Qo04be

004737

040326

020466

004737

037516

020474

000240

5550

020N76

22555

020504

5554
5555

020504

02510
K12
020514

6559 (02051

5560
gssx

ssaaE

020524

737

0s
240
1049000

6o~4735

000137

085420

021032

E564 oeossg 013737 021034 001434
8568 0205
012737 000063 001400
€566

6573
6574

Q. J572
QOcUS79

000240
104000

8576

020802

6572
6578

570

(020576

;SETUP FOR READING STATUS AND

JSR

508 :

o40M

000137

JSR

PC,GETSTS

PC. TIMOUT

:GO READ SEEK STATUS
JSR

NOP

ERROR

60S:

JMP

604

GET

1808

IF ERROR

THEN WRIT FOR SEEK

TO comu»:rs

;SETUP FOR STATUS

'WAIT FOR SEEK TO COMPLETE

REARD REGISTERS VIA GET SUB

ETURN HERE 5‘ ERROR

RROR DEF INE

GO T0 1éo IF ERROR WR

BY csr suB

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC SEKSTS
;GO VERIFY RESULTS OF SEEK OPERATION

BR
NOP
ERROR

JSR

708 :

70$

GO TO 708 IF NO ERROR
; RETURN HERE IF ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE

PC,J(SP)+

GO BACK FOR MORE ERROR CHECKS

1808

:SETUP AND EXECUTE WR

;GO TO 1808 IF ERROR WRS FOUND

HERDER AND DATA €

MOVS
JSR

8200, (R2)+
PC,PUT

021032

:CHANGE COMMAND TO SEEK

:WRITE REGISTER INDEX TRBLE

;G0 TO sbs IF NO ERROR

000200
037766

00N
0000

2722
737

180%

SRMUC, (R

1127
112722

00564

:SEEK TO LAST CYLINDER

sRETURN HERE

MOVB

S0
(,0554

6570
6571

INX, Re
, (R2)+

0ge

001540

115755

;SAVE CYL INDER ADDRESS

! GO, RMCS10

&»S
ouHco RHCSlo

012702

Sf.&?,“

MOV
MOV

0,540

§567

sssg
6569

40S$:

104000

6561 020500 000137 021032

6556
555
6558

MOV
MOV

000240

EE48 020472 D00~

8822.

E 952“75 SEEK 10 GET DRIVE OFF CYLINDER

:ERROR DEF INED BY PUT SUB
;GO TO 1808 IF ERROR WRS FOUND

021032

5546

ERROR
h{y o

104000
000137

6543

;GO TO 1808 IF ERROR WRS FOUND

0032
00
068230
037766

0co450
020452

5541

SEQ 0114

sRMDC
. (R2)+
s
(R2)+
sRMCS], (R2)+
ogoo (R2)+
PC, POT
:GO WRITE REGISTERS VIA PUT SUB
40o$
;GO TO 408 IF NO ERROR

§537
€538

020456

1808

114

MOV
MOVB
OvB
ov8
JSR
B8R

11372
118222
112782
11275;
%3
oM

gggg

IMP

MOV

001400

PAGE

FORMAT W/ IMPLIED SEEK

:SETUP Pmmrsagm

001434.

KO9

12:38

8SE K

GM
OcTM
020
020M
G0N0
Q20N
0o0N4%

23-NOV-77

MOV

€30
6531
5532
33
5534
6535

6536

T1?

308:

524

€526

30(1046),

MOV

MOVB
MOVB
BR

NOP
ERROR
808:

IMP

opunniua Re

;RESTORE DISK ADDRESS
'LORD WRITE HERDER AND DATA

JEXTEND REGISTER INDEX TRBLE

sRMBA' (R
srRMCS| (Ran
.GO WRITE REGISTERS VIA PUT SUB

80¢

;G0 To 808 IF NO ERROR

180$

:GO TO 1808 IF ERROR WRS FOUND

"RETURN WERE IF ERROR
:ERROR DEF INED BY PUT SUB

CZRMDBO RMO3-/2 FCTNL

CZRMO8.P11

TST 2

23-NOV-77 12:19

MACY11

5577

5278

5579

020602

737

632

(O %1N

000240

ggg
5587
ssg
&8¢,
85590
8591

020624

ogosg

§§3..3

€580

Q2%

58] 0O¢ %l
6583

0f 616

5584 QOc

5592

6é %6
0O ngs
0O =
O

737

0S
. 240
104600

0S3016

Q04737

6597

G 5

240

NOP

ERROR

S60b

5607

00674
0c %76

020700

000137

021032

ssxg

0207084

012737

0000S3

6618

020720

00C24

8611
5613

0207

020712

004737

5614 020716 OOuU~OM
ssxg

6617

020722

020730

6622

(20730

020734

004737

ssgg

742

00024

sszt:g;

020752

S623 020740 000404
5629
6630

5631

040326

020756

1208:
001400

0004US

6632 020760 000240

IF ERROR

ROR oermco BY GET SUB

;GO TO xéos IF ERROR WRS FOUND

JSR

PC.DTASTS

040512

1108

AT
JMP
1808
JSR

OR MORE ERROR CHECKS

1808

PC, SECERR
1208

co T0 1808 IF ERROR WRS FOUND

;GO VERIFY
a; TS or DATA TRANSFER

- Tm
Ffa e
s
IF ERROR WARS FOUND

:GO cuccx roa SECONDRRY ERRORS
sRETURN

PC,2(SP)+

1808

F NO ERROR

; RETURN

.GO TO 1208 IF NO ERROR
HERE IF ERROR

SERROR
#&
DEFINED BY SECERR SUBROUTINE
:GO ancx FOR MORE ERROR CHECKS

:GO TO 1808 IF ERROR WAS FOUND

;WRITE CHECK HERDER AND DATAR FOR SECTORS JUST WRITTEN
MOV

JSR

NOP

ERROR

JmP

oucu'Qo,RMCS10

1303

180%

Rsng r;nogn 8 DATA COMMAND

GO mx'r‘s
£ xs ERS

;G0 T0 505

sfi

;GO TO xéos

VIA PUT SUB

INE

v PUT SuB

ESROR

1308:
:WRIT FOR WRITE cnsgx
10 conPLsrs AND GET smrgs
JSR

JSR

NOP

104

004737

WAIT FOR COMMAND TO COMPLETE

0 RERD’
Rsccx)arsns VIA GET SUB

:GO TO 90s;r

PC,J(SP)+

ERROR
JSR

037516

746 000137 021032

020752

q0¢

JSR

JNP

BR
NOP

1040

621

5626

037766

020724 000137 021032

552{3
5620

Lio8

000405
OC 1240
104000
004736

PC.GET

180$

NOP

£3 P aY g
G n;g
006

PC, TIMOUT

swtla § Jus,§
137 021032
5602 G tu”u 004737 OM1344

5603
55283

115

1008

021032

w§

PARGE

0Du40S!2

000137

ngg

LOS

908§ :
: VERIFY Rgsuus OF WRITE COMMAND
JSR
PC.PRIERR
:GO cuecx ron PRIMARY ERRORS
BR
160s
ro 1 s IF NO ERROR
NOP
RSTURN ns RROR
ERROR
xrio BY PRIERR SUBROUTINE

004736

0§

ISR

000137 021032
737

12:38

FORMAT W/ IMPLIED SEEK
JSR

037516

104000

6595
6¢

117

23-NOV-?7

sWRIT FOR WRITE COMMAND TO COMPLETE AND Reno STATUS

040326

"fi

30(1046)

ERROR
1408:

iz 2

pC 7

wbs

180$

OR WRITE CHECK

RERD REGISTERS VIR GET SuB

;GO0 TO 1¢oos IF Es
NO
OR
,Rs; s?

INE

TO FINISH

3 RROR

av csr suB

;GO 10 xéos IF ERROR WAS FOUND

:VERIFY THE RESULTS or WRITE CHECK OPERRTION
JSR

NOP

PC.PRIERR

1sbs

- GO cnscy FOR PRIMARY ERRORS

0 TO 1508 IF NO ERROR

s RETURN hsne IF ERROR

SEQ 0115

CZRMOBO RMO3/2 FCTNL TST 2

CZRMOB.P11
5633

8634

Egg
ggg

020762

02076M

Bof

%0
iB8l
4
ssq
{
éfiw 5181

5645

oeioxs

23-NOV-?7 12:19

gxfi
1
1632

30(1046)

117

104000

004736

000137

021032

004737

053016

1
021032
00N737 OMI34M

1608

ooowgs

3239
%18‘3 ?89'508
6648 021024 004736

5649
St S0
8651

MACY11

000137

021032

170%:

1808:

55235 02{8333 %8386
Ssggg 351035

é&

S656

5657

SE58

5659

5660

23-NOV-??

oaioas

116

ERROR

;ERROR 8 DEFINED BY PRIERR SUBROUTINE

JSR

PC,3(SP)+

JSR

PC,DTARSTS

ggon
SR
P
JSR

pc.a(SP)+
1808

eggon
JSR

BRuoao
)

000004

o5igre

D173y

5675

02“35

12;37

201498 1ss )

1406

259 gfiw
86573; 8313236
1150

s‘g

039000

ooi i;:

208:

PC,3(SP)+

1808

;G0 TO 1

ERROR CHECKS

IF ERROR WRS FOUND

;GO VERIFY RESULTS OF DATA_ TRANSFER

T 1EMF NO ERROR

RER;LRN.
1&0 %c

RSTS

OUTINE

B RROR LhEaKE
eas IF ERROR
WAS FOUND

;GO cnscx roa secormmr ERRORS

r NO ERROR

%33"0‘5251&0
evRROR
SECERRCHECKS
SUBROUTINE

o 1eos 17 ERROR WAS FOUND

200s

’

TEMPORARY STORAGE

FORMAT EACH SECTOR RDDRESS

goofits*n

MOY

oV
MOV

MOV
MOV
MOV

?8%

1 R A

W W R KW R WS KN %R

. HORD

snp

308:

ERROR
IMP

NERATING DRTA BUFFER

;CYLINDER = 0

My
qu(S*gS>¢1> RMWCO

‘nggxrzrgengzcrm =0

Eéfi ése WORDS
TA BUFFER ADDRESS
'WRITE HEADER AND DATA

g:%

Q#o

{USE SECTOR FOR DARTA PATTERN

3é&'rtfir

:GO GENERRTE DRTA BUFFER
o

gflugo: TRSK oescR§ %5
8

1908

—

é
23S ngs "S IN RPT me BOX

;paspmejgsvxce ronTomn TRANSFER

ooowgq

&g
85122 ?8%08
5686 021.6M 000137 021562
021170

1708

s SETUP PQRMTERS F

gg;é 8511
81573; %9392 %1485
56
02111y
1arg;
0
1404
5674 oeugs 127
%woo

gggg

PC, SECERR

’
2228
851064 012737 000000 001434

oz'.{ss

1608

:GO BACK FOR MORE

S 021064
851% 137?!‘5 %6038 001226 108: MOV

Eggé 85 i§9

1808

SEQ 0116

33 3038 34 36 3 3 36 3 36 36 3 3 36 36 3 36 3 3 9 3 3 9% 98 3 9% 3 98 38 3 98 3 3 3 3 3 3 36 3 3 3 3 3% % % 3 3% 3 % % W %% %W X E %R

t&120:

55229

5683

PRGE

S0 30 30 0006 30 3 00 3 08 3 38 3 3 3 3% 3 3 3 3 3 3 3 3 3 % 3 U 3% 23U W BN W

Sl mind B o

S680

MOS

FORMAT W/ IMPLIED SEEK

hssv 20
021036

12:38

DEVICE FOR TEST
30%55 NO ERROR

Eagg ‘ngmeo
BY TSTPRP SUBROUTINE
;GO TO 1908 IF ERROR WARS FOUND

cznnoeo RMO3/2 FCINL TST
CZRMO8. P11
23-NOV-7? 12:19

5689
ggqo
91
ssgg
gg

1170

157 ?

11872

11
1

181

5539 851

5698
5699
6200
6701
5783
Y4
g;&
5706

ix 7

ix 75

)

ag;
7
oy
000240
683039
1

021562

021254

004737

037432

6710

021260

004737

040326

6713
6714

02i272
021274

g;i;

(021276

0CGl24%0
104000

021302

5718
§719

5723
g;eag

021314
gg}g;g

736
000137

021562

5726

0213c2

004737

053016

5728

02.. .0

000240

57230
§73]

0213
021333

6709
5711

037516

§715

000137

021562

021302

004737

080512

021312

109000

S727

€729

(021306
021316

02'"6

021332

004737

000405
000240

00040S

NOS

23-NQV-77
§E 8
PAGE
17
FORMAT ERCH
SECYOR RDORESS

MOV

om&;,msn

MOV

s”nCs| (Sau

208§

,
..

;WRIT FOR WRITE conmno TO COMPLETE AND RERD
JSR

JSR

pc’ csr

304

;GO TO qb

JMP

1908

;GO TO 1408 IF

NOP
ERROR

q0$:

1008

PC,I(SP)+
18908

:GO BACK

JSR

PC,DTASTS

GO VERIFY ngsuus OF DATA TRANSFER

ERROR

:GO CHECK FOR SECONDARY ERRORS

€739

021362

021562

5741
E742
6743

021362

012737

000073

012737

104572

001404

INED BY DTASTS SUBROUTINE

PC, SECERR

JSR
P

OCI400

Y0 1108 IF NO ERROR

n; 1F ERROR

JSR
ERROR

1208:

"ERROR

.GO

:GO BACK

104000

s RETURN

FOR MURE ERROR CHECKS
;GO TO 1908 IF ERROR WARS FOUND

PC,3(SP)+
13908

00u 39
000137

021370

1108:

1108

GO TO 10N§ IF NO ERROR
: RETURN ng IF ErROR
'ERROR 8 9: INED BY PRIERR SUBROUTINE

JSR
P

021364
(021356

744

FOUND

JSR
NP

NOP

£7%0

um HE RE 6? ERROR
5 gerxne
Y GET SuB

100s

000:-+0

021352

Rgcogrms VIR GET SUB

BR
NOP

021350

6737
6738

STATUS

;WAIT FOR COMMAND TO COMPLETE

:VERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

€735

6736

PC, TIMO

004737

000405

1908

IF ERROR

JSR

02134
021342

021346

,aewan HERE

;SETUP INPUT necgsrgn
eurrsn FOR READING STATUS

(04000

OM134d4

:ERROR DEFINED BY PUT SUB
;GO TO 18CS IF ERROR WAS FOUND

NOP

021562

JC.(R2)+

ERROR
JMP

ERROR

736
000137

lg%(han
P
T
GO WRITE REGISTERS VIA PUT SuB
eod
;GO TO ed$ IF NO ERROR

§732
6733

£734

SEQ 0117

MOVB
JSR
BR
NOP

5712 021270 00OMOM

§720
5721
5722

021268

30(1046)
T20

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
ol ! ?o RHCS10
:WRITE HEADER AND DATA
MOV
ow’r Nk, RS
‘WRITE REGISTER INDEX TARBLE
MOVB
s DR, (R2)+

851
1
02l
021244
el
021
021254

g;g;

MACY11l

12068

PC.3(SP)+
1908

FOR MORE ERROR CHECKS
:GO TO 1908 IF ERKOR WARS FOUND
.GO TO 120% IF NO ERROR

; RETURN HERE IF ERROR

‘ERROR

1GO BACK

DEFINED

BY SECERR SUBROUTINE

FOR
€ ERROR CHECKS
;GO TO 1308 IF ERROR WAS FOUND

:RERD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
8RH! GO, RMCSI0
'READ HERDER 8 DATA COMMAND

MOV

#BUF TWd, RMBRO

:CHANGE BUS RDDRESS

CZRMO8.P11

aa—nov-7§ 15:19

CZRMDBO RMO3/2 FCTNL TST

57945
57\09
574
5
574
575?

0213
1
1
14
1410
1414

737
oM

5
575
5758
E;s&g

gwg
14
oeng
6214

000137 021562

5761
5762

021436

004737

5765

0214

576

104

0001

MACY11

037766

021562

sng

273
77

5774

1444

S5l
1

{
1
1

1
i
i

i
gnag

gfl;g
7
5790

6§79

gg‘n

5794
57

1
1
1
1
1
1

gx
1

oowrg

0001

021540

737

NOP
ERROR

1408:

021562

1508
)

18358
1

1708

021562

062737

000001

6798

gggg

B31S54

021556

021562

103402

000137

021!

wme REGISTERS VIA PUT SUB
Fnosfnan
TURN
F ERROR
OR DEFINED BY PUT SuB

1908

TieN HERE 6‘ ERROR
R DFFINED BY GET SuB

;G0 TO xéos iIF ERROR WAS FOUND

E
NOP

PC,.DTRSTS

JSR

1608

JSR

JMP

Bk
NOP
ERROR
1808:
001406

JmP

r? 1&0&: NO ERROR

nm Fi

® DEFINED BY PRIERR SUBROUTINE

:GO aacx FOR MORE

moa CHECKS

;GO VERIFY

or oam TRANSFER

;GO T0 1

RESULT

n;
R
: RE TURN Re

PC 3(SP)+

;smon '

IF ERROR WRS FOUND

NO ERRUA

rx:gsgsémgmsrs

1908

+60

PC, SECERR

;GO CHECK FOR SECOMDARY ERRORS

1708

co T0 1

:GO TO 1208

F ERROR ms FOUND

IF NO ERROR

PC.3(SP)+

GO BACK FOR

190s

;G0 T0 1

RROR CHECKS

IF ERROR WARS FOUND

:G0 C
WRITE, RERD
DATA BUFFERS
ISTARTING
RDCSSS’ OF
WRITE BLFFER
:STARTING ROCUNESS OF REARD BUFFER

180§

. GO r? 1808 IF NO ERROR
;RETURN HERE IF ERROR

:ERROR 8

1908

DEFINED BY CMPBUF SUBROUTINE

;GO TO 1908 IF ERROR WAS FOUND

; INCREMENT nooness nno FORMAT NEXT SECTOR
ROD

1908:

RMDAO

- ADVANCE SECTOR COUNT

CHPB

-gl , RMDRO

,o NE ALL SECTORS??

15%

:GO oo NEXT SECTOR

BLO

omm:

; RETURN fiE
IF EF~
"ERRUR 8 C.FINED BY SECERR SUBROUTINE

JSR
PC, CMPBUF
_WORD
BUFONE
"WORD BUF TWO

5796 gaxsus 122737 000037 001406
5797

:G0 TO 190: IF ERROR WRS FOUND

; VERIFY DATA

104000

1908

190s

000137

corox

PC,9(SP)+

NOP
ERROR

037064

PC,PUT
136:

JSR

gsoa

1608

OM 1344

021562

118

150s

Inp

0S30.6

PRSE

RESULTS OF RERD OPERATION
PC. PRIERR
;GO CHECK ron PRIMARY ERRORS

ERROR

133 021562

7§

s J

;VERIFY THE
JS

040512

iy 2

;WAIT FOR RERD TQ C(T)HPLETE AND GET smwsm T FOR READ T0 COMPLETE
125
:S'cér
R;sonfé srgans VIA GET SUB
BR
1408
;G0 TO Mg; NO a&m

gsw-oa 000405

SRS SRERERAGRSHELS

5763

B10

FSSm? ERCH éfc?gn noone§§
-NQV-77

JSR
BR
NOP
ERROR

1308:

sirse*E
1414
5
§;§3 gwio 8:733 8393 sE
5755
1424
oM

5764

?aé

30(1046)

S YES!

Seq 0118

CZRMOBO RMO3/2 FCTNL T
c ZRMOB.P11
23-NOV-7

r15:19

:&TEST 21

HRARY

SEQ 0119

FORMAT EACH TRACK ADDRESS

2 T D PO YD

YRARRNRY

14
158:
1
iwou
0011

001176

30,
001400

PEARRRAR

8STACK, SP
I. ts*n

28\,
"03
:8\'
MOV
JSR

fi%’smxngmcx POINTER
:§Evm§IN nfi?ngu BOX

esr&:mnm DATA BUFFER

oo.

0 RMWCO
41>,

ou < $26 .>

0
i*
sl,$THPL

PC.

GENBUF

YLxmcR =

-0

.15
S T r&m?fl
éfir
WRIT nSE
usé
Fn& m%rgnPATTERN
:GO GENERATE DATA BUFFER

RANSFER EPARE DEVICE FOR TEST
PREPARE RV ICE PR R,
. WORD 4130: TRSK DESCRIPTOR

034000

e Bt et ot

208

ERROR
JHP

%v
o

e Gt P

RETURN
FERE TFERROR T ERROR
:ERROR # ggr;nso 98;TSTPRP SUBROUTINE

1908

;serup EXECUT

ERROR WAS FOUND

rsflugnoen AND DATA
“R
C "

2!(heR%»

SRHOE| (R3)+

baTA

fTE :EcxsrsnINDEX TARBLE

+
’
SRIIC(RS)

SRMBA’ (R2)+

(R2)+
PSIPQT .60 T0 Bogz
Pfig‘o ggasvsns VIR PUT SUB

fia

808
4

ocu4?

3
%

s SETUP Pmrsns F

9t s Pt ot s s pme (IO

500

R
23K+
gieRs 3

001226 L08:
i::w

50 P

Pmtnnt P

Pt P

Pt et Bt Pt

SRS IPPRR,

£0

Pt
e o
P
s P
Pt

Pt Pt ot Bw

s P

s Pt

ERERRPOREE

pepopend

000

Q‘é§ i

RRRKPRRR

?s‘llllllllll'lll!!lll.l!l!llllllllll 39635 95 35 4 3 90 3 3 35 3 3 3% 36 4 3% 3% 3 % % 3% % % % % % %

s P

REREEKRERRRER

R
R S

H lil.l.l'llll.l!lll!Ilill"ll!Illlll!llllllll.lllllllllllll!!ill

RELNRERR

it&

BA
Y

5801

)

C10

037432

004737
004737

040326
037516

Sm 1908

chim
e e tran
GO TO 195:
?fl Esnén

;SETUP INPUT REGISTER BUFFER FOr RERDING STRTUS
JSR

;WRIT FOR WRITE

{gfi

PC,GETSTS

W
TO COMPLETE AND RE

C,GET

STATUS

F?T FOR COMMAND TO COMPLETE

;GO RERD'REGISTERS VIR GET SUB

CZRMDBO RMO3/2 FCTNL TST 2

CZRMO8.P11
5857
S8S8

T
sasasw

23-NOV-77 12:19

022014
02°016

.
2026

5863

208
a3 B

8301

104000

0O 46
0i.J52

5875
%77;

5&8 683735
ageosa“ 000137

022306

65878

0Oc

041344

6879

(L)

Sbol

Job

Qc 072

000

00N737

000405

207N 000240
2076

6882

022100

106

z 3

004737
000405

gsswa

J
gnop

1008

108

022306

S 17
St g

022106

012737

000073

seqla

oegiez

oowgz

037766

5894 &gsxaw 000137 022306
Ssgg

140

5897
€838
022140
6899 (02214
£300 oealgg
8901 022l
5902
022154
6903 022156
gqo-o 022162

seos:s

004737

004737
060240
104000
000137

037516

040512

000404

5437

oae}se

004737

€910

022172

104000

£912

022176

2308 265158 3823%
€911

022174

040326

0047

000137

022306

;GO TO 308 _IF NO ERROR
RE TURN HERE IF ERROR

SETF BRRREG e TM2

001400

;GO CHECK FOR m MARY ERRORS
: GO ro oér
s

RsROR I‘EREID BY msm sueaounus
+60BAck 3R 70 1

AP
eRtoR oWRS FOUND
IF ERROR

IMP

PC,3(SP)+
190s

JSR

PC, SECERR

;GO cnecx ron secommv ERRORS

PC,3(SP)+

GO aacx FOR MORE ERROR CHECKS

Egzoa
JSR

JSR
1208:

PC,PRIERR
100s

PC,DTASTS
1108

Ine

1208

1808

;GO VERIFYRggu.rs OF DPTA TRANSFER
F NO ERROR

EE;OR 9‘
o“noggosngoa
FINED BY nsrsEUE”OUTINE

IF ERROR WAS FOUND

;s RETURN
"ERROR

Rfloér NO ERROR

RgE:

INED BY secem SUBPOUT INE

:GO TO 1908 IF ERROR WAS FOUND

s RERD HERDER AND onm FOR secron JusT um'rsu
MOV
aRH
RMCS
no HERDER a onm COMMAND

MOV

.Btgn

snnon
1308:

oaurubnano

130:
PUT

60 T0 1

um
WT
RS VIA pur suB

190$

GO TO 1éos xr enaon

§m:o ev PUY suB

:WAIT FOR READ TO COMPLETE AND GET STATUS
JSR
PC,TI MOUT
:WAIT FOR READ TO COMPLETE
ISR
GET
. GO Rgao
GISTERS VIR GET SuB
BR
mbs
:GO TO 1682 IF NO
OR
NOP
TURN HERE
IF ERROR
ERROR
ERROR DEFINED BY GET SUB
JmP
1908
;GO 10 1808 IF ERROR WAS FOUND
1408

s VERIFY THE RESULTS OF RERD OPERATION
g,‘;“

Rop

ERROR
022306

SEQ 0120

JSR
BR

NOP

022114 012737 104572 001404

seqesE
%ex% %3«0
6893 022132 104000

PAGE 120

AT
e
I
1

ERROR

000137

90$

104000

004736

12:38

MP
1908
:GO TO 140s
90s$:
; VERIFY Rgguus OF m*rs COMMAND

022306
053016

6871
5872

23-NOV-77?

FORMAT EACH TRACK RODRESS
BR
NOP

1
022306
R

004737 040512
0S

%;43

Tel

DO0NON
000240

5864
5865

sas?

MACY1l 30(1046)

D10

JSR
IMP

Pgbs IERR

PC,J(SP)+
1308

;GO CHECK FORP’fmerEzgoggaon

RETURN

'ERROR

ae ¢

2RRok

oe o BY PRIERR SUBROUTINE

) anc FOR MORE ERROR CHECKS

;GO TO 1908 IF ERROR WAS FOUND

0372 _FCTNL ;;T s
Pl
23-Nov-77
12:19

73;

0s3016

137

022306

oM 1344

000137

022306

004737
1
04572
40N
001240
ogg
1

037064

737

000400

022737
103402
000137

ELD

MACY1! 30(1046)
23-NOV-77 12:38 PAGE 121
T2l
FORMAT ERCH TRACK RDDRESS
1580sSs:

1608

PC gmsrs

IMP

1908

1708

JSR

P; SECERR °

:GO CHECK FOR SECONDARY ERRORS

Snnon
R

PC,a(SP)+

'ERROR 8 DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR
.WORD
.
BR
NOP
snnon
MP

001406

0127%

001100

5954
€955

(022322
(Occolle

013701
012737

001450
000022

812737
12737
0l

000001

2334
2
Q2

ggss,g
5958
5959
5360

2316

022334

%3
0Oc2
€94 0O 3
6962

QBco

£965 (¢4
oL,
gtx?
%8

022406
oeg:;g
[

0137

Y2122

812737
10
12737 %
012737

012737

012737
004737

i s

000021
036620

MOV

0QI43Y4
0014
0014

%woq
1400

001402

MOV
MOV

GO TO 1708 IF NO ERROR
;RETURN HERE IF ERROR

;GO TO 1908 IF ERROR WRS FOUND

:GO COMPARE WRITE, READ DATA BUFFERS
: STRRTING ao?mEss OF READ BUFFER
;G0 _TO I1&)$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # ocqneo BY CMPBUF SUBROUTINE
:GO TO 1908 IF ERROR WAS FOUND
:STARTING ADDRESS' OF WRITE BUFFER

FORMAT NEXT TRACK

RMDAO

: ADVANCE TRACK COUNT

oons ALL TRACKS??
' YES!
:GO oo NEXT SECTOR

XTI IYYIYRRYZYSIZYIZXXSRSRZ2XX2X22 2222222222232

FORMAT PRIME CYLINDERS

224

L
222 2
1122222222223 212232223X222222222X22222X

CAL

og;acx SP

Esmn:
5 OF %esr
;mn%bgs STACK POINTER

TSTOUE, Rl
822, STESTN

J(R1) = DEVICE BEING TESTED
P.SET TEST NUMBER IN APT MAIL BOX

$B8ASE, RD

{RO=UNI

RDDRESS

108:
s SETUP Pnnmersns FOR GENERATING DATR BUFFER
MOV
o
;CYLINDER = Q
MOV
g
:TRACK = SECTOR = O

158:

001174

001176

MORE ERROR CHECKS

;GO TO 1908 IF ERROR WAS FOUND

82000, RMDARO
1908
15$

MOV

001226

130$

Y2222

térez: SCOPE
NOP

001276

180%

8400,

cHP
8LO
INP

190S:

R Y

8.32312

PC, CMPBUF
BUF TWO
BUFONE

ADD

hEST 22

sggg

190s

: INCREMENT RDDRESS

H R I

3323
835 % 000004
6951 022313 00G240

1708

: VERIFY DATR

001406

;GO VERIFYR;
SULTS OF DATA TRANSFER
0 1608 IF NO ERROR
RS ng IF ERROR
ROR %
.
R
NED BY DTRSTS SUBROUTINE

PC,(SP)+

by 2

180S:

160

022306
002000
021624

JSR
8
OP
ERROR

SEG 0121

208

MOV

aFfT]

MOV

.Rnbco mPo

MOV
MOV

MOV

MOV
JSR

{16 BIT FORMAT

Bugo:%

;2 + 256 WORDS
‘NATA
BIFFER QNNRESS
‘WRITE HERDER AND DATA

s],$TMP]
PC. GENBUF

;GO GENERATE DATA BUFFER

asa >+1> RMWCO

'USE CYLINDER FOR DATR PATTERN

czmoeo RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19
5969

£970
§971

oaase

004737

6972
5973
5974
5975
6976
gg%
5979

0N
&N§
24
Q22432
(022434
022440

gsel

%é

xi 7

€984 Oc TMMb2
5385 8:“92
5386
XN

112722
ug;
11

5980

(Bcou7e

ug_ga
1127

599
12755
S99 (& J
6047
5990
2512
00o40M
5991 8525“ 000240
5992
(22516 104000
€993 0c.S20 000137
299-4 022524

§99%6
2997
5999
6000
6001

034000

023030

2440 st;gs %oggg 001400

2383 0c 2
5987

154130
000N 0
000240
104009
000137

022524

004737

022530

004737

037432
040326

000137 023030

6008
6009
6010
6011
6012
6013
gig

2552
“23%
O
562

73§
0
104000
60-4735
000137

o40S12

737

053016

oee_gas

5019

00N7
%3
40
104

037516

601
6018
6019
6020
2855

2608
85261

0S
40
104000
004736
000137

6023

022612

004737

6024

022616

00040S

023030

023030
041344

1§41 0
a0s

T0 308 IF NO ERROR
:ERROR 8 DEFINED BY TSTPRP SUBROUTINE
;G0 TO 1908 IF ERROR WRS FGSuUND

s RETURN hea IF ERROR

HERDER AND omn MMAND

MOV

ShiM!

m:(s

l"ngv

MOV

MOVB

JSR

80S$:

;TARSK oede

190%

;SETUP AND EXECUTE WRIT

037766

g%
6004

02-56M

30S8:

.WORD
B8R
NOP
ERROR
ImP

MOVB
MO

023030

SEQ 0122

: PREPARE DEVICE FOR DATA TRANSFER
JSR
P
gwP
Ripngs DEVICE FOR TEST

Oc °S34
ges«g
254
2544
oS

6005
6006

F10

MACY1l 30(1046)
23-NOV-77
12:38
PRGE 122
T22
FORMAT PRIME CYLINDERS

OP
ERROR
JMP

5nc

E
HER

sPUTINK R2

REG

o DATA

R INDEX TRBLE

8RMOF
| (RD) +
sRMIC
| (R3) +
#Rr3A’ (R2) +

sRrCS], (R2)+

oeog (R2)+
PC,POT
GO WRITE REGISTERS VIA PUT SLB
80é
:GO TO 808 IF NO ERROR
: RE TURN r;ne ar ERROR
: ERROR ESRINE BY PUT SUB
190%
;G0 TO 1508 IF
OR WAS FOUND

:SETUP mggr REGISTER BUFFER FOR RERDING STATUS
J
PC,GETSTS
;WAIT FOR WRITE COMMAND TO COMPLETE ANO RE
smrus
JSR
PC, TIMOUT
:WATT'FOR COMMAND TQ COMPLETE
JSR
PC.GET
0 RE R:GISTERS VIR GET SUB
BR
304
;G0 TO
F
uE RROR
NOP
unn
RE IF ERROR
ERROR
rxrco BY GET SUB
30S$:
:VERIFY RESULTS OF WRITE COMMAND
JSR
P&PRIERR
:GO CHECK FOR PRIMARY ERRORS
BR
s
:GO TO 1008 IF NO ERROR
NOP
; RETURN
RE IF ERROR
ERROR
:ERROR #
1
BY PRIERR SUBROUTINE
JSR
PC.a(SP)+
:GO BACK
mo& CHECKS
L00s
Ime
1308
;G0 T0
1
IF ERROR WAS FOUND

108

Nz 2

190$

Js.n

PC.DTRSTS

B
NOP
EP]ROR
Jer
IMP
JSR

:GO TO 1§5§
{3

1108

WARS FOUND

;GO VERIFY
n;gu.rg OF DATA TRANSFER

PC,9(SP)+
1908

s IF NO ERROR
snnon oermco av DTASTS SUBROUTINE
) aacx FOR MORE ERROR CHECKS
:GO TO 1908 IF ERROR WAS FOUND

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

1208

RE TURN ficRe

;GO TO 1208 IF NO ERROR

RMO3/2 FCTNL T
.P11
23-NOV-7

RRRRR
&

2620

26eh
32

Rl
o

¢
C

§T15:19

MACY L1 3gééous)

000240

023030

040326

1208:

001400
001404

o4osle

Ng: Q

;RETURN HERE IF ERROR

h(r o

MOV
JSR
BR
NOP

ERROR
MP

1308:

BR
NOP

ERROR
1408

JmP
JSR

1508

FINED

és ?R

190$

;G0 10 140s

F ERROR

Y PUT SUB
FOUND

1403 :GO TO 1402 RERERAORF ERROR
190%

;GO TO 190: IfF

Ec
Iri

BY GET SuB

KRS FOUND

:GO TO 1508 IF NO ERROR

PC,(SP)+
1908

:GO encx

JSR

PC.DTASTS

: GO vsnxrv

RSRURN

1608

JSR

PC,a(SP)+

JSR

Pg SECERR

TP
BR

NOP

ERROR

JSR

1708:

:GO CHECK FOR PRIMARY ERRORS

SR
JMP

NOP

1608

C;PRIE

1508

041344

037064

; RERD HERDER 8 gRTR COMMAND

ERROR

023030

S10

oeurtubRMBARO
BUS RODRESS
PC,P
unx;s REGISTERS VIR PUT SuB
IF
130: :G0 TO 153

s VERIFY THE RESU%YS OF RERD OPERRTION

053016

023030

Eo Szcx Psa 3522
sn35°‘"" EUEROUTI"E
0 1908 IF ERROR WARS FOUND

sWAIT FOR Reno Tg C?HPLETE AND GET srnrus

NOP
RROR

023030

PC,3(SP)+
190s

SEQ 0123

; RERD HER%ER AND DATA
FORC SECTOR JUST WRITTEN

037516

023030

123

sao

023030

000073
104572
037766

GlO

Fgggg v;;;nengE?N ge

InP

s VERIFY DATA

190s

1708

PC,3(SPI+

1908

JSR

PC, CMPBUF

180$

IF ERROR
xnso 8Y PRIERR SUBROUT INE

RROR CHECKS
IF ERROR WAS FOUND

: RETURN 3

SULTS OF DATAR TRANSFER

IF NO ERROR

ROR

'ERROR8 DE INEO BY DTRSTS SUBROUTINE

;GO aacx FOR

;GO T0
1

RROR CHECKS

IF ERROR WAS FGOUND

:GO CHECK ron SECONDARY ERRORS

TO 170: xr NO ERROR
Rsrunn fisas
ROR o

xnco av secsna suenourxnc

MORE ERROR

CHECKS

o 1908 IF ERROR WAS FOUND
:GO COMPARE WRITE,

RERD DATA BUFFERS

_WORD
BUFONE
.WORD BUF TWO

'STARTING ADDRESS' OF WRITE BUFFER
srnnrxuc nooonsss OF RERD BUFFER

ERROR

'ERROR # DEFINED BY CMPBUF SUBROUTINE

NOP

s RETURN hsns TO0IF 180$
ERRORIF NO ERROR

CZRMDBO RMO3-/2 FCTNL TST 2

CZRMDB.PL1

608e

23-NOV-7? 12:19

853804

000137

MACY1l 30(1046)

T22

023030

881934
823937
§§§§2 85 10
13
4 ve
1466

2838
853834 6831g§ 022350
gggg 023030

180$:

6095

SEQ 0124

1908

;GO TO 1908 IF ERROR WAS FOUND

AND FORMAT NEXT PRIME
85b5flgf CYLINDER COUNT
agb RDDRESS Bfi co

001434

1908:

?ng

:e g.,nnoco

oous ALL CYLINDERS??

13?

05bé NEXT CYLINDER

FORMRT LRST SECTOR

llillIlllll‘lilllIllllllvllllll!lllllllllill!llllllllilllll«lllll

+&123;

3033 000004
000240
§{§;§3

°°{§9°

gigo

833832

012737

000023

13701 o014

SCOPE

NOP
:83

MOV

001226

108

MOV

; SCOPE CALL
aST

:START OF ngr
.% Iagng
TACK POINTER

KkSP

?g‘r‘ ¢ 81

:(81) z

vm?m TESTED

823, STESTN

::SET TEST NUMBER IN APT MAIL BOX

: PREPARE DEVICE FOR DARTA TRANSFER
:

siow

023056

003537

6107
6108

023066
gsgg?g

000240
000

2182 853825 630489
gi?g

PAGE 124

; o SR80 0 OE 3 3045 6 36 90 90 38 3 38 36 3 3 3 3 3 3 36 38 3 3% 3 3 U 3% 3 3 36 3 3 3 1 3 36 3 3 3 2 3 3 2% % 9 % 3% % ¥ %

3032
§§§§

218%

H10

FORMART PRIME CYLINOERS

PATEST 23

609%
6097

2838

12:38

: INCREMENT

Eggé
609

23-NOV-??

oaao;s

137

034000

Jagno

023326

NOP
ERROR

308

6111

5113

1
76
737
Y
1434
2{%4 853?04 8$S737 88&039 8814 6

tiie BB Bigod Do R

by o

)

PcfiIao PTQSK oeécnxgggg DEVICE FOR TEST

:GO TO 308 IF NO ERROR

:RETURN HERE IF ERROR
'ERROR & oerxneo 8Y TSTPRP SUBROUTINE

1908

;GO TO 1908 IF ERROR WARS FOUND

;SETUP PRRAMETERS

NG LAST SECTOR

ggfl,flfigné
2037

oFM

Lnsr CYLINDER
Rg =F3Rsccron 31

oy .<,c<§s§§2‘w o 40 SAL O]
gv

g}ig 023134 012737 000073 001400

6117

3126

0127

104572

001404

MOV

8BUF TWO, R

#RH!GO, kncsxo

oarn BUFFER RDDRESS

6120

853142

0127

1535

MOV

SPUT INX, R2

:WRITE REGISTER INDEX TABLE

a{eq

oeaisa

1ie;aa

000004

MOV
ngva
MOV

:ovg

n8v
MOVB

:Sgsa
(Rgii

ORHCgl 2)+
8200, (ha)+

6121
3146 11272 8300
Elsg
Ssglgi
ils"ss
06
1
i
1127
-%fifigz
g15§ 8531§3 115755 888885
gig; 023176 112722 000200
6129

2{3?

023202

exgg
61

022202

004737

6136

C23212

104000

Rnoé R2)+
8.SRBS,EREN
(R2)+

:WRITE HEADER AND DATA

1208:

6134
023206
000404
6135
(023210
000240

037766

: READ HERDER AND DATA OF LAST secroa
PC,PUT
unxrs REGISTERS VIR PUT SUB

B8R
NOP

ERROR

1308

;GO TO 1532
INF 5
?IF ERROR
HERE

ERROR DEFINED BY PUT SUB

;§

RMO3/2 FCTNL

REBBESERBOR
2B 3 It

oooroe bt

Bt 5t Bt -« Bt ot Pt ot e P

e Gt Bt Pran Bt P Pt Bt Bt Bt Pt et Pt Pt Pt Pt Pt P

ot Bt Pt Pt Pt e Pt Pt Pt s P Pt

- g+ g+ o1 oTs o1 oT . aT0 o+ ol o oTs o a¥e a2u o¥o ¥ g g e o) oo oT o3 oY X0 Y0 oT e o

vo o

£ £ £ £ £ £ L £ £yt
2N 3T ELFRETR CTONNNNDNNNE
CEoENFR
LN B SE SF R 65538 W
~

.Pl11

TST

23-Nov-77 12:19

023214
023220

000137

0233eb

023220

004737

037432

85323.3
39

ooq?g?
737

040326
037516

023240

104000

gsaaaw
00040M
323
000240

MARCY1l

30(1046)

Ta3

040512

geeg*gg
3
02> ,g

000137
%337

023326
053016

04000

023252

00040S

023264 000240
oegzs
04000
823
604735
g

023279 000240

G2 3302
023302
023312
023314

8533358
3320

02332

023326

JMP

023326

00N737

041344

000137

wbs

ERROR

IMP

1408:
: VERIFY

THE

JSR

RESULTS

jcos.

TO 1508 IF NO ERROR

sRET Fcne IF ERROR
ERRORoermeog
BY PRIERR SUBROUT INE
:GO BRCKF
€ ERROR CHECKS

JSR

PC,a(SP)+

1GO BACK FOR MORE ERROR CHECKS

JSR

PC, SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,3(SP)+

1GO BACK FOR MORE ER

snaon . ocnneo BY omsvs SUBROUT INE

,co TO 190§ IF ERROk WAS FOUND

1708

RROR
SR

TO 1608 IF NO ERROR

RE TURN heRsIF ERROR

190s

GO TO 1708 IF NO ERROR
s RETURN UERE IF
ERROR

'ERROR # oc me BY gecsm
s.:anounne

1908

:GO 10 1908 IF smoa uns FOUND

1908:
R

000004
000240

RBRRT

tiray;

023346

012737

000024

0233S4

004737

023362

0OUMGTN

023366

104000

ERROR

013701

154130

023364 000240

001480
034000

SCOPE
NOP

001100
001276

023360

;GO CHECK ron PRIMARY ERRORS

1608

JuP

170S:

RERD OPERATION

;GO TO 1908 IF ERROR WAS FOUND
:GO VERIFY
RESULTS OF DATA TRANSFER

NOP

023326

190s
PC.DTASTS

1608

GO TO 1§os IF ERROR WARS FOUND

PC,3(SP)+

O
JSR

ERROR
RROR DEF INED ev GET suB

1508

NOP
ERROR
JSR

012706
013700

023342

IF ERROR WARS FOUND

unn FOR RERD TO COMPLETE
; REGISTERS VIA GET SUB

PC;PRIERR

(22222222 XXX

023332
023336

SEQ 01e2sS

;GO TO 140:
I sea
3
sr N HERE
IF

1908

hesr 24
023326
023330

1908

PC TIMOUT
C GET

BR
NOP

023326
023326

;GO TO

12S

INPHT REG;STE? 8¥FFER FOR RERDING STATUS

104000

004736

190$

ERROR

0004
000240

LRST SECTO

JSR
JSR

023246

004737

E ?8 PRGE

{WAIT FOR RERD TO COHPLETE AND GET STATUS

023242 000137 023326
023246

FORMAT

130S8:
; SETUP

I10

23-NOQV-7?7

: PREPRRE

Y222

X222

222X X2XX222XX22X2X22XXXXXXLETRTTL
]

NIRRT TR

R R W

R SRR E

SRR

:SCOPE CALL
:START OF T

MOV
MOV

8STACK, SP
$BASE, RO

SINITIALIZE smcx POINTER
:RO=UNIBUS RDDRESS

MOV

824, STESTN

P.GET TEST NUMBER IN APT MRIL BOX

MOV

001226

XXX

FORMAT W/ ACE ERROR

TSTQUE, R

DEVICE

FOR DATA

_WORD

154130

JSR

NOP

PC,

30s

TSTPRP

:(R1) =

TRANSFER

DEVICE BEING TESTED

PREPRRE DEVICE FOR TEST

;TASK DESCRIPTOR

10 30:

xr NG CRROR

; RETURN hens IF ERROR

'ERROR # DEFINED BY TSTPRP SJBROUTINE

CZRMOBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

J10

MACY11l 30(1046)
23-NOV-77
12:38 PAGE 126
Ta4
FORMART W/ ROE ERROR

6193

853 70

000137

023624

5199
6197
6198

023374
0234

012737
012737

8814
20

00143
001406

8157 ?
012702
1lgzeg

73
001
0OOOCE

001400

gigg

6199
65200
601
6202
6203
6204

6205
6206
6207
6208

6209
6210

621l
6212
6213

6214

6215

62lb
6217

023410
3«53
N
023432
023440
D24

8157
175993 881402
18737 10457
1404

U23M70
023474

115752
112722

85’"50
3454
023450
02346M
923500

023500

012737

11272
11572
112722
112722

023500

004737

023506
023510

000240
104000

023504

000404

30S:

001432

MOV
MOV
MOV
MOV
MOV
MOV

MOV
MOVB
MOVB
MOVB

000004

037766

1908

;GO TO 1908 IF ERROR WAS FOUND

:SETUP PRRAMETERS FOR RERDING 2 SECTORS STARTING WITH LAST SECTOR
MOV
8822. ,RMDCO
i START AT Lnsr chxnoen
MOV
82037 RMDAO
i TRRCK
= s_cron 31

N
888882

000000
000200

IMP

SEG 0126

80$:
1258:

sFMT18, RMOFO
16 BIT FORMAT
8CPC<<
+Sss.>na>¢1>,nnucb
. FORMAT 2 SECTORS
sBUF
T
MBAO
:DATA BUFFER RDDRESS
. H!?O AMCS10
'WRITE HERDER AND DATA
sPUTINK, R2
'WRITE REGISTER INDEX TRBLE
SRMDA,
(RD)+

+
(R3)
"(R3)+
SRMUC
| (R2) +
sRMBA’ (R2)+
SRMDC,

MOVB
MOVB

sRMCS], (R2)+
8200, (R2)+

JSR

PC,PUT

NOP
ERROR

;G0 TO 1308 IF NO EER°

1908

:GO TO 1905 IF

; E URN HERE
IF ERROR
ROR DEF INED av PUT SUB

6218
023512 000137 023624
gg S 023516

130S:

bool

:SETUP INPUT REGISTER BUFFER FOR READING STATUS

. J

Eggg

023516

004737

037432

6225
be2b

023522
023526

004737
004737

040326
037516

6228
6229

023534
023536

000240
104000

gggé

023544

6224

6227 023532 000404

6230 023530 000137 023624

6233

6234

023544

004737

6237
6238

3554
023€56

104000
004736

6235

6236 8535?2
6239

851529

338305

000137

040512

023624

éeqi 0c o4 004737 053016
B4 024570
6243 QB¢ 672
644 0c 574
6e4S 023576
646 023600

338“05
240
104000
4736
0137

023624

6248

004737

041344

6247

023604

JMP

GO WRITE REGISTERS VIA PUT SUB

130s

JSR

OR WRS FOUND

PC,GETSTS

:WAIT FOR RERD TO COHPLETE AND GET STARTUS

JSR
ISR

BR
-

140S:

NOP
ERROR

ImMP

c x ou

qbs ;GO TO 1403
190$

sWAIT FOR READ TO COMPLETE
ng g&srsns VIA GET SUB

RE;UR
RE IF ERROR
OR DEFINED BY GET SUB

:GO TO 1éos IF ERROR WARS FOUND

;VERIFY THE RESULTS OF RERD opsnnrxou

JSR

PC.PRIERR

:GO CHECK FOR PRIMARY ERRORS

ERROR
JSR

PC,J(SP)+

‘ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
1508

1608:

IMP

BR
NOP
ERROR
JSR
INP
ISR

150s

1908

1608

.GO TO 1508 IF NO ERROR

;RETURN RERE IF ERROR

;GO TO 1908 IF ERROR WAS FOUND

PC.J(SP)+

:GO TO 160% IF NO ERROR
RETURN FERE IF E.QOR
'ERROR ® DEFINED BY DTASTS SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

PC, SECERR

:GO CHECK FOR SECONDARRY ERRORS

1908

;GO TO 1908 IF ERRGR WAS FOUND

cznnoeo RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

6249
6250
651

sesg
625

6254
6255
sesg

oeasxg
0c36l
Ocwld

0 ©16
Ssasgg
3

K10

MACY11l 30(1046)
23-NOV-?77
12:38
PAGE 127
Teu
FORMAT W/ AOE ERROR

000405
080533
104

0047
000137

BR
NOP
ERROR

023624

170S:

023624

JSR
InP

i70$

SEQ 0127

Rs 8
ROR #

PC,3(SP)+
1948

o 10 170$ IF NO ERROR
1F ERROR
e INED BY sscsna SUBROUTINE

GO BACK FOR MORE ERROR CHECKS
:GO TO 1908 IF ERROR WAS FOUND

190S:

bS8

; o B3T3 30046 30 26 06 36 36 35 38 3 35 36 36 3 3620 3 36 3 3 3 3 % A 3 3 3 3 % 3 W % 3 % 3 W W% %N W% W E WK% ®EEE R

6260

A3 3033 3 4% 36 3 35 3 36 3 3 3 48 36 3 36 3 36 3 3 2 3 3 9% 96 3% 3 5 3 36 3% 96 3 3 3 3 3% 3 9% 3 3% 3 W 3 % 3 W %W X% ® %%

6259

cRTEST 25

ESes 853524

00N

segg oe%g 888290
6268
6265

023630
023634

012706
813700

Hras: SCOPE
NOP

001100
001276

MOV
MOV

co nLg

8STACK, SP
*ens
ho

108:

6270
6271

: SETUP Pnnanerens ron csusnnrch DATA BUFFER
;CYLINDER = O

023652

012737

000000

MOV

001434

6272 02360 012737 0000
001406
02366 012737 0000
001432
6274 023674 012737 177376 001402
6275 023702 012737 103566 0DO1404
6276 853710 012737 000062 001400
6273

6277
6278
6279

gfll)

3716
023724
023732

023736

012737
012737
004737

001406
000001
036620

6@
6263

02373

004737

62R4 023742 154130
6o 1S
023744
DO040M
66 023746 000240

034000

6 8

023752

000137

024352

6291
62

023756

0157 7

ggoosg

-4

bo-?

629

023750

023756

104000

sagg 023764 0127
6299

163

890038
0 115755
115755
883064

02401N

112722

00117+
001176
208 :

nov
MOV
MOV
MOV
MOV
MOV
MOV
JSR

000000

104070

SEC

FOR DATA PATTERN

;GO GENERATE DRTA BUFFER

190%

ERROR

308:

001400

‘ERROR 8 DEFINED BY TSTPRP SUBROUTINE

;GO TO 1908 IF ERROR WAS FOUND

:SETUP AND EXECUTE unxrs HERDER AND DATA COMMAND
MGV
? csxo
:WRITE
HEADER AND DATA

‘

MOV

sPUTINKR

MOVE
HOvB

novE

MOVB

ERROR

000240

'USE

JnP

6304

024034

srRMOAR0, $TMPO
al,STMP]
PC. GENBUF

:TRACK= 0, SECTOR = 30
19 BIT FOAMAT
;a 256 WORDS
:DATA BUFFER nooness
unxrg “582‘ DATA

54130 Tnsx DESCRIPTOR
3
T0 308 IF NO ERROR
: RETURN AER IF ERROR

024032

cabRnoao
Rfigcgs
.(&
5 >+1> RMWCO
8BUFONE , R
sl nncé*o

. WORD
NOP

£30]
Doudoq broes 839508
6302 853853 883«84
€303

BEING TESTED
:;SET =TEST DEVICE
NUMBER
IN APT MAIL BOX
P(R1)

: PREPRRE DEVICE ron DRTQ TRANSFER
JSR
TSTPR
. PREPARE DEVICE FOR TEST

s 35"23339. 115755 020099

£593
6538

15$:

82S, ts% N

INI Ianzr TACK POINTER
:RO=UNIBUS ADDRESS

023640
013701
001450
6267
02364
012737
00002 001226
gg 023652
bobb

MOV

FORMAT INVALID SECTOR RDDRESS

To¥B

NOP

sRmoC!225%:

‘WRITE REGISTER INDEX TRBLE

SRnOE,(Re)s
sRMBS’
(R3)+
+

sRMCS], (R2)+

s20Q,(Re)+
0 WRITE REGISTERS VIA PUT SUB
804
;GO TO ebs xr NO ERROR
URN HERE

IF ERROR

ERROR DEFINED BY PUT SuB

CZRMDBO RMO3/2 FCTNL TST 2
23-NOv-77 12:19
CZRMOB.P11
000137

02435

o240Me

004737

037432

80$:

g243s2

~
]
~N

o40s12

RSt

Pt P
P

SIREFTE
Lo

a0s

004736
000137

034000

904

RE xsr RS VIR GET SuB
;GO ebsnsno
xr ERR

Jne

1908

.GO TO xéos IF ERROR WAS FOUND

OP
ERROR

JSR

PC,PRIERR

ERROR
JSR

PC,(SP)+

NOP

1008

IMP
JSR

oP
ERROR
1108

1208:

1obs

190$
PC,.DTRSTS
1108

JSR

PC,d(SP)+

JSR

PC, SECERR

ERROR
JSP
h{z o

PC,3(SP)+
190¢

Inp
BR
NOP

1308

1208

, TURN HFRE xr ERROR
OR DEFINED BY GET

:GO CHECK ror "nxnnnv ERRORS

RETURN fisg;

F NO ERROR

INED av PRIERR SUBROUTINE
#
JERROR
RROR CHECKS
: GO ancx FOR OREOE

IF ERROR WAS FOUND
GO 10
: GO vsnxrvR; TS OF DATA TRANSFER
F NO ERROR

: RETURN 8 AEEF
xnso 8Y ornsrs SUBROUT INE
"ERROR
:GO BRCK FOR

;GO 10 1

RROR CHECKS

IF ERROR WRS FOUND

;GO CHECK FOR SECONDARY ERRORS

:GO TO 1 os F NO ERROR
:RETURN HERE IF
‘ERROR8 DEFINED av SECERR SUBROUTINE
) encx FOR MORE ERROR CHECKS
;GO TO 1908 IF ERROR WAS FOUND

:CLEAR “IRE" ennon nno PREPRRE oevxcs
PR? DEVICE FOR TEST
STPRP
JSR

. WORD
NOP

ERROR
12SS$:

Nz o

154§30 : TRSK DESCRIPTOR 0 TO 125% IF NO ERROR
s RE TURN hcas IF ERROR
{ERROR gsr¥nso BY TSTPRP SUBROUTINE

O 1908 IF ERROR WRS FOUND

190$

;RERD HERDER RAND DATA FOR SECTOR JUST WRITTEN
MOV

MOV

104572
037766

024352

EQ 0128

;GO TO 1908 IF ERROR WRS FOUND

BR
0e43se

JSR
BR

041344

0243s2

190S$

CTOR noénsss
PAGE

s VERIFY RESULTS OF WRITE COMMAND

0S3016

024352

IMP

L10

;WRIT FO? WRITE COHHRN%UTO COMPLETE AND RERO STRT
SR
PS
é SR COMMAND TO COMPLETE

Pors Pt Pt Pt Pt Pund Pt P
s Dot P
Pt Pren P
P
P
Pt Gt Pt Pt P

0243S2

12:38
23-NOv-77
FORMAT INVALID St

; SETUP INPHT REG;STEE E¥FFER FOR READING STRTUS

BENERYEBYNY-Zoc2RE

30(1046)
Tes

<B4

y
i

N§§§§§§§FX SRR FRRRRRLIRRRRORRRAY= :it
:S8
$2 £ 2 E22
822 T 2
8i

B33 8393t

024070

£.C

6338

854033

A AT
SRRY

o
w

e
T Y

ac BRERARRRRRR D N0 L W 088

LECTTTLLLLE

630S
6306
6307

MACY1!l

130$:

JSR
BR
NOP
ERROR
JMP

#RH!GO,RMCS10

sBUF TWO, Rnan

;RE RD HEQO R 8 DATA COMMRND

DRESS
CHANGE
B
PUT suB
viR
REGISTERS
unxvt
PUT
PC.
E IF ERROR
IF NNOHERE
GO TO 1égs
130s
RROR DEFINED BY PUT SUB
;GO TO 1éos IF ERROR WAS FOUND
190$

B4 AR AIAAT AR IR AR 4§§§§§§§%§§2@13&’E

SRl B
024222

gsagég

SNELIE TE 5

004737

037432

0326

s WALT FO?
RERD TS C?HESETE AND GET S‘I’RTIJSWa T FOR RERD TO COMPLETE

ggfl

NOP

@gg 137 024352

1408:

Y
&%

2“03

5:&
6406

2’4%

’

1608

394
346
3s2

0243s2

418

ERROR

;GO0 TO lésRR?i ESR&Q&D Y &fmosua

MNP

Smon
SR
InP

150

PC,3(SP)+
1308
Tc!omsrs

CHECK ron mxmv ERRORS

. RETURN

F NO ERROR

ERROR s m&_av
DEFI
msm sueaourms

xr smon uas FOUND
;GO vcnxrv RESU.TS orro%nsgsgssrsn

e, a(sP)+

Rggm"o
Egv:LRAORmsrsCrECKS.OUTINE
B BAcK ?Sarx?
NORE

PC.3(SP)+
1908

;‘ERROR
RETURN 8 !ffigc
? 230&
INED BY sscsna suaaourms
!GO BRCK ;GOFOR TOMORE
ERROR CHECKS
1908 IF ERROR WAS FOUND

1308

?gbgecsnn

10 190: IF smon WAS FOUND

;GO cnecx rosTa sicowagvNgngggga

1808:

737

103402
000137

023666

; INCREMENT RDDRESS QNfi FORMAT NEXT SECT OR

190$:

BLO
IMP

1ss

R Y Yz Yz

hesr 26

ES
co oo NEXT SECTOR

zXYzIIIZ XYY YRXIYSXYYZX:SIXZX:ISEZXYX SR 2222222222222 22 )

FORMAT INVALID TRACK ADDRESS

llllllllllIlllIlllilllllllllllllllllllb}llllll!lllllIllllllllll

024352

BBuE 3PN Wik
oaoe:agg

Ngson
5887

’ ggn

1708:

tat2

Bata
Beif2S 3R8%%S
B:il 024356 oxa;os }é?"
2‘3{?,

NP
gga

NOP

P BET Y B

6401
6402

053016

§i§ 004737 O41344
16 %
683
935:[
000137

ERROR
JSR

1508

000137 024352

3
:ug
334

EngR 1908
NOP

02462 %733
@?fi
1
024352

T§bg£T.60 T0 14§§
RsaoRE%%?;RS VIR GET SUBL

; VERIFY Tgs RESU#TS
OF REQD OPERRT ON

024250 004737 0M0S12

4]8 AR3
8sin

SM A

; SETUP INPBT REG;%TEE gyFFER FOR RERDING STRTUS

%57 83?%16

0047357

M10

012737

000026

001226

108

SR
:83
MOV
MOV

osgngxhsp

iANI&?LBEZE
263RY B Yesy
5*2°'§ POINTER

826, STESTN

,,ssr TEST NUMBER IN APT MAIL BOX

389358,

R Lehe TREREEING TESTED

004737
S4130

024474
04476
0c4S00
C24SoM

000240

\l\aooougw
W

Pt Pt

034000

39(10“6)

158:

208

025100

MoV
MOV

MOV
MOV

cuH Rncélo

JSR

Pé GENBUF

ngz

'R"2$3¢f7"90

o Pt s Pt e e O

MOV

MOVB
MOVB

MOVB
MOVB
JSR

Q40326
037516

025100

o4osie

:GO GENERRTE DARTR BUFFER

'ERROR ® DEF NED BY TSTPRP SUBROUTINE
;GO

1908

IF ERROR WRS FOUND

HEROER AND DATA COMMAND
CS10
WRITE HEADER AND DATRA

oPUT Nk Re

(R2)+
(RE)+

,
,

unxre REGISTER INDEX TRBLE

(R2)+

SRMEC, (R2) +
+
#P+aQ’ (R2)

sFnCS), (R2)+
8200, (R2)+
PC,PUT

80¢

GO WRITE REGISTERS VIA PUT SUB
.60 TO ebs ;r noHEnRon

1908

;G0 TO 1868 IF ERROR WAS FOUND

NOP
ERROR

; SETUP

PQRE DEVICE FOR TEST

190%

MOV

037432

:USE SECTOR FOR DRTA PATTERN

JMP

HOVS
MOV

80s:

nra BUFFER zoonsss
NRITE HEADER AND NDATA

ssfuao ; TRSK oeécaPTOR
;
ro 308 IF NO ERROR
: RETURN hcas F ERROR

ERROR

:
308

15 BIT FORMAT
256 WOR

. WORD
B8R
NOP

;SETUP AND sxecure WRIT
MOV

0esi00

SEQ 0130

n é »ro
Ler >+1> RMWCO

: PREPARE DEVICE FOR DRTA TRRNSFER
JSR
PC, TSTPRP

830137

23-Nov-7?
is ?g HuE 130
FORMAT INVAL
ACK RDURESS

; SETUP PQSQHETERS
FOR GENERQTING DARTA BUFFER
; h NDER 352
MOV
?o
i TRACK = 5,SECTOR = O

Pt Pt fmn Pt ot ot

SERLEKFo8

n
~N
o

PRPOO POE

§§§§§§££éé§ & :

D2v46N
Qo447

1%7
1¢7
127
127
12737
E?g?

[ pF S P,V
VI,

e Pt Pt Pt P

88828838

18737

" MACY11

—-—L
L LLLL

RMO372 FCTNL TST 2
P11
23-Nov-77 12:19

,RE URN
HERE IF ERROR
ERROR DEF INED BY PUT SuB

INPUT REGISTER BUFFER FOR RERDING STRTUS
JSR
PC,GETSTS

;WAIT FOR WRITE COMN AND TO COMPLETE AND RERD STQTUS
PC, TIMOUT
FOR COMMAND
JSR

JSR

0s:

B8R
NOP
ERROR
Jnp

; VERIFY RESULTS

JSR

BR
NOP

ERROR
JSR

PC'GET

eot

;GO TO 9 ;RE xr ERROR
mon DEFINED BY GET SUB
;GO TO 1§os IF ERROR WARS FOUND

190$
OF

NRITE

TO COMPLETE

no Recxsrens VIR GET SUB

PC,d(SP)+

COMMAND

; GO CHECK FOROPRIHRRY ERRORS

1008 IF NO ERROR
: RETURN hene IF ERROR

"ERROR 8 DEFINED BY PRIERR SUBROUTINE
: G0 encx FOR MORE ERROR CHECKS

CZRMDBO RMO3/2 FCTNL TST ¢
CZRMOB. P11
23-NOv-77 12:19
6473
6474
6475
64

64
6478
6479
64A0
£4s!

000137

025100

737

053016

025100

,03

O413494

BuB8 OSuETE

025100

024676
(24702
02N470N
024706
024710
024712
024716

034000

64549

6465

6489
6490
6491
6482
6493
644
6495
6496
6497
6498

1108
T

B2B1 Bsuzig
6502
65,3
BSO4
BE
S
&
6L
65J7

D24732
024736
024790
029742
GedTyd
750

6509
6510

024750

6
8

100s

Bll

MACY1l 30(1046)
23-NOV-77
12:38
PARGE 13}
T26
FORMAT INVALID TRACK ADDRESS

6511
6512
6513
6214
6515
6516
6517
5618
65,3

024754
024760
(024764
0247
0247
Ge4772
024776

6521
6602
6523
6234
6525
6526
6827
6528

024776
025002
02004
029006
025010
025012
025016

1208

IMP

1908

JSR
ggp

PC.DTASTS
1168

;GO venxrv

1255

SULTS OF DATR TRANSFER
? ‘é8303' NO ERROR

PC 3(SP)+
1908

Efl§§c:

ISR
BR
NOP

PC,SECERR

;GO CHECK roa SE
co %fi :r ,.5’**%3,.
RETURN
Egnon
x ggnxneo avngscena sugaourxus

1208

§§§°fl

SR
. WORD

DE
P&E
PC TS Pnspnns
32130 msx DESCRIPT

Snnon
M

1908

JmP

1902

3(5P)e

INED BY DTARSTS sueaourlne
cg TO: 505 2 53253KWAS FOUND

noagoi gRERROR WAS FOUND

: CLEAR ~}n£" ERROR

1268

DEVICE FOR TEST
TO 1ess IF NO ERROR

MOV

JSR
BR
P

MOV

037766

NOP
Ennoa
1308:

: 17
r
1 PUT :GO TO 1 sRET
ub,nneno

1908

;GO TO 1

;SETUP INPUT REGISTER

FECRRTEE
&Y

;WAIT FOR RERD TO C
T
JSR

SE-céT

LY
ERR
Ine OR

1908

1408

éss

R & DGTR COMMAND

vxn PUT suB
av PUT sug

FER FOR RERDING STATUS

ETE AND GET STRTUS

JSR

ues

OR 8 ¥Nso BY r TPRP SUBROUT INE
1908 IF
ERROR WAS FOUND

; RERD HERDER RND oam F&?CTOR JUusT bRITng

10457¢

025100

;GO TO 1908 IF ERROR WAS FOUND

gggon
P

025100

SEQ 0131

ggsflggg EgTCgSSLETE

;GO TO 1482f“goaggfionF_ERROR

INED BY GET SUB

;GO TO 130 IF ERROR WRS FOUNO

; VERIFY THE RESULTS OF RERD OPERRTION

JSR

1sbs

JSR

PC,a(SP)+

ERROR

025100

1S0S:

T0 1 s F NO ERROR
As
x v PRIERR SUBROUTINE
snaon '

RIERR

BR
NOP

; GO CHECK FOR PRIWY ERRORS

ncx ron
ennoa CHECKS

0 190§ IF ERROR WAS FOUND

1848

a3
BB |

STRroa Pt %ahSNv-73
§

: gg

737

6531

.6
kSJS
%

18 0e

Cll

OTH 3T BRARV TVatB PRack EBoARE s

0S3016

ggfl

NOP

7§
1 025100
&m

004737

1608

041344

2%33 025046 %
gézg 85282£ 000137 025100

1708

gg:q

180$:

025056

6545

geib Realee Rs37% BNEW BBINK
72
8 B
BB e
gssx
100
23

6555

gRSR

T%?ECERR

;GO CHECK FOR
SE

ggfl:OR
JMP

PC. 3(SP)+
1802

g&gz EFI&DEBYSECERR Sl..OROUTI
TQORSOS 19“:5558WAS FOUND

?"rg

FORMAT NEXT TRARCK

129’

flimifig?flT“STs SLgROUT"‘
T0 §
I ES:SS HAS FOUND
8 '5%

00N AL TRACKE??

EGSbb NEXT TRACK

h T 27

FORMAT INVALID CYLINDER RDORESS
ilill}llllillllilllllllllllllllllllllllllll!§llllililllil!llll»l

025100

?Qr

108:

6564

. SETUP Pmmsrsns FOR

6565 025126 012737 001467 001434
6
6
6568

85213'4
i
%1

8157
127
1

6570
6571
6572

&1
0
Gc

1
19737
012737

ggg

02S212

127

%14
14
1-485

6573 025206 06'4737 33820
gg
78
6579

85?.31
16
025220

02-4
1541
00040M

034000

6582
6583

025226
025232

000137

02562¢

28? 852555 1

RV
Hov

osmcx sp

6561 glég 159 38837 001226

GO BQCK

; &nu"n"unnu"luuununnnnunnuuunnuuu:

gswsss 025{13 013700 201528

6569

RETURN

Pgo (SP)+
1 i

)

Eéga 85’21% 8?9502 001100
gs&e

; GO VERIFY R$§ULTS
OfrosSRE;282556R

§§§oa
MP

; INCREMENT ROORESS

6552

TEfingSTS

Seq 0132

MOV

158:

1400
1124
001176

MOV
MOV
MOV

MOV

MOV
MOV
MOV
20%:

JSR

T3‘tR tn
g

mc RBYTER1L BoX
iiR{8 g$vxcs
rEar kTMS

GENERARTING DRTA au»'r
g“ r&
$mr m Lnsr CYLINDER + 1

MT1

RACK
16 BIT

8C1C(28256.>41> ,RMWCO

;2 +

8l
$+
nmbco strPo
,$nbx

mns »-?
YL

nen}

RHMBRO

PC,

; PREPARE DEVICE FOR

:DATA

uonos

a ron omn PATTERN

:GO GENERATE DATA BUFFER

DATA TRANSFER

JSR
_WORD
ga

Pg T RP
R&'Pngs DEVICE FOR TEST
1541
; TASK pESC
3
308
35 NO ERROR

JMP

190$

ERROR
308:

: n muzt mcx POINTER

ESRg n‘fnfmsoBY TSTPRP SUBROUTINE

:GO TO 1908 IF ERROR WRS FOUND

CZRMDBO RMO3/2 FCTNL TST e
CZRMOB.P11L
23-Nov-77 12:19

MACY11l

30(1046)
Te?

23-Nov-77
FORMAT rnanx

D1l

PAGE
: 38
CYLINOE

; SETUP QND EXECUTE HRIT
ol ?o

133

SEQ

noonsss

HERDER AND onrn connnuo
S10
fE

oo
VUK
0

:Pu? N% e

R
DO NN LEWhe—-0

ARHLLAALERR? FEFERREEES AL

(a5

s
PS

sl (R2)+
(R2)+
ar

V(R3)+
, (R2) +
SRMUC
s8R A (R2)+

6595

A FEEEEERS
A
pan
ouw BIRRZER

AND DATA

T cxs ER 1n~sx TRBLE

2]
025626

037432

040326
037516

025626

o40s12

1908

80S:
; SETUP

;GO TO 140s

;WARIT FOR WRITE COHHRND TO COMPLETE AND RE
PC, TIMOUT
JSR

JSR

PC GET

ERROR

1908

B8R
NOP

S0S:

JmP

904

02S626

BR
J

O41344

025626

034000

FOUND

Pgopnxsna

JSR

PC.DTASTS

1108

PC,I(SP)+

JSR

PC, SECERR

ERROR
JSR

PC,J(SP)+

BR
NOP

1208:

COMMAND

1268

50: IF NO ERROR

Y ERRORS

xgsgsav
paxena suenourrne
cKS

0 1908 xr ERROR HWAS FOUND
: GO vsnxrv
R;SULT
RsRURN

1908

190s

9, csr SuB

;GO CHECK roa PR

130s

NOP
ERROR
JSR

JIMP

OR DEF INE

RSRURN
PC,3(SP)+

JHP

STQTUS
OR COMMAND TO COMPLETE

:GO TC xéos IF ERROR WRS FOUND

JSR

1108:

BY PUT SUB

RERD’
ngxsrsns VIR GET SUB

:G0 TO 90: xr
HF

; VERIFY Rggqus WRITE

100S:

IF ERROR

INED

INggT REG%ETER B¥FFER FOR RERDING STRTUS

ERROR

0S3016

gs ?R

NOP
025626

GO WRITE REGISTERS VIR PUT SUB

;G0 TO abs
¥rNO ERROR

OF DATA TRANSFER

IF NO ERROR

ng
xgggiavngrnsrs
SUBROUTINE

GO TO 1908 IF ERROR uns FOUND
:GO cnccx FOR SECONDARY ERRORS

:GO TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
"ERROR # DEF INED
:GO BRCK
FOR

BY sscsnn SUBROUT INE
ERROR CHECKS

:GO TO 1908 IF ERROR WAS FOUND

;CLERR “IRETM ERROR QNO PREPRRE DEVICE
PC TSTP
PREPARE DEVICE FOR TEST
JSR
. WORD
BR

154130 rnsx DESCRIPTOR

125$

;GO TO

1258

IF NO ERROR

0133

C’RHDBO Rfl03/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

BEM]1

02S43M

000240

6643

0OSH40

000137

025626

6646
bEN?

SSE"““

81 737

000073

6649
6650

(0254
02S46M

004737
DOOHON

037766

006472

000137

025628

004737

037432

025502
026506

004737
004737

040326
037516

02SSIN

000240

6642

gg:g

6648
6651
6662

6653

0co5436

02544

025466
025470

gggg

025476

6656
gggg

025476

65659

6b60
6661

10400C

025516

NOP

ERROR
125§:

001400

737 104572 001404

00C240
104000

6662 025512 00040M
p664

Ell

MACY1l 30(1046)
23-NOV-77
12:38
PRGE 134
127
FORMAT INVALID CYLINDER ARDDRESS

6568

1308:

004737

040512

6673
Eg;g

D553
gggg:g

0047
0001

025626

6676

6677 02€550 0GI40S
6678 025552 000240

025544

004737

053016

6679

(025554

6681

gsgssa

0256206

6670 025530 DOO40S
6671 026532 000240
6672 025534 104000

025556

000137

gggg

5631
6682

02S60M

6694

025620

6693

025612

025626

062737

000001

022737

103402

001777

6695 025622 000137 025142
6636

02Seeb

BUS RDDORESS

:GO WRITE ngx TERS VIR PUT sus
:GO TO 1308 IF NO

JmP

130%

:GO TO 180% IF ERROR

ERROR

1408:

JMP

;RETURN HERE
IF E
: ERROR osrxneo ev PUT SUB

PC, TIMOUT
PC.GET

SWAIT FOR READ TO COMPLETE
GISTERS VIA GET SUB

1463

;GO TO 14

NO ERROR

190$

;G0 TO xéos IF ERROR WAS FOUND

URN HERE IF ERROR
on

FINED BY GET SUB

: VERIFY rgs RESULTS OF RERD OPERATION

PC.PRIERR

1508

;G0 CHECK roe PR

SR
NP

PC,3(SP)+
1808

GO BRCK

JSR

PC.DTRSTS

NOP
RROR
1508

BR
NOP

ERROR

104000
004736
000137

oeurrub RMBRO

PC.PUT
1308

NOP

1608

025574
026576

O 1908 IF ERROR WAS FOUND

JSR
BR

JSR
ISR

éia% oeséiu 004737 041344
eohe 852273 82030

6686
6687
6688

osr;nto BY TSTPRP SUBROUTINE

sWAIT FOR RERD TO COHPLETE AND GET STATUS

104000

004736

:ERROR

1908

:SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

025524

6680

MOV

104000

6669

;RETURN HERE IF ERROR

:READ HERDER AND DATA roa SECTOR JUST WRITTEN
MOV
8RH'GO,RMCSI0
s READ HEROER 3 DATA COMMAND

NOP
ERROR

6665 025520 000137 025626
sssg

IMP

SEQ 013y

170S:
001434

001434

1608

JSR

PC,3(SP)+

ggn
RoP

T$¢§E°ERR

ERROR
JSR
INP

1908

PC.3(SP)+
1908

Y ERRORS

éos IF NO ERROR
;s RETURN hs F ERROR
:ERROR & rxnso BY paxsnn SUBROUT INE

nonsos CHECKS
IF ERROR KRS FOUND

;GO vsnxrv

1S OF onrn TRANSFER

ng Lsos IF NO ERROR
: RETURN AE
ERROR '

:GO BRC

xns

ev ornsrs SUBROUT INE

o 1

IF ERROR WAS FOUND

;GO

ERROR CHECKS

;GO CHECK Soa ssconoanggngRRgR
. RETURN F0E
| TF ERROR

:ERROR
8 DEFINED BY sscsnn SUBROUT INE
GO ancx FOR MORE ERROR CHECKS
;GO TO 190§ IF ERROR WARS FOUND

; INCREMENT ADDRESS AND FORMAT NEXT CYLINDER
RDD
#1,RMDCO
ADVANCE CYLINDER COUNT

CMP

01?77 RMDCO

ooue ALL CYLINDERS??

JHP

158

G0 oo NEXT SECTOR

8LO
190s:

1908

YES!

CZRMDBO RMO3-2 FCTNL TST 2

23-NOV 77 12:19

CZRMDB.P11

MACY11l 30(1046)

127

6697

6098

65699

6702
6703
6204

0256

ggggas

g;gg

025654

6211
6712
6713
6714
6715

025654

6210

025670
76
025

013700

012737
012737
01273;
0le7
012737

888% 001434
001406
oowag
0
1773
0014
103S66 001404

025740

004737

034000

6727
6728
6729

025

000
000137

026520

012737

00001S

6724 025744 154130
6725 025746 000404
6726 025750
0
6730

6731

6732

025760

6733 025766
6734 025772
6735 025776
673 026002
67237 026006
67238 0260l
6239 (026016
674%0
6741
6742 026026
6743 026030
E;@ 026034
6746

6747

(026034

6749

026046

6761
6752

026056
026062

012702 001535
112722 %05
M
112722
000032
1127
1127
%goo
11271
00
004737 037766
oM
3240
104000
000137 026520
(12737

002063

112722

00000M

6748 026042 012702
001535
112722 000002
6750

026052

112722
112722

000000
000200

SCOPE

NOP
MOV
MOV

C°1276

6723

784
760

+&130:

000004
800.;'40
12706 001100

001400
oooog
marg;
02571
6716
0014 001174
0127
0257
6717
6718
025726 012737 000001 001176
6719 026734 004737 036620
g;g? 025710
6722

PAGE 135

SEQ 013S

I3z

FORMRT AT OFFSET

22222222222 X 22222222 2 2 )

o B3RO0 U606 3000063 0 3 08 3 3 00 3 36 30 3 30 30 3 0% 96 36 36 36 3 9% 3 0% 36 36 3 36 3 36 56 3 3% 3 2 3 3 3 3 3 3 3 3% 3 % 3 % X # KXW R %

0uld4sO 001226
42 013701
6206 02564
012737 000030
6707
6205

12:38

FORMAT INVALID CYLINDER RDDRESS

hssr 30

6700

6201 oesssg

23-NOV-77

F11

108:

MOV
MOV

MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV
JSR

TESTED
aemc
(Rl)
MAIL BOX
IN APT
NUMBER
:SET =TEST DEVICE

mo
orhng
8C4C< lesa >+x> RMWCO
$BUF ONE

0
om-co knc
npé
u
smfix
PC GENBUF

15$:
20$:
: PREPARE oevxce FOR DATA TRANSFER

. WORD
BR
NOP

30S$:

001400

°¥$
tsm
nao

mcx POINTER

: SETUP PRRAME TERSr%gensammc DATA BUFFER

JSR

001400

osmcx sp

SCOP anL
nnméug:

ERROR
Imp

é§“§
ECYOR FOR DATR PRTTERN
us
:GO GENERATE DATA BUFFER

PC, TSTPRP

PREPARE DEVICE FOR TEST

130$

SERROR ® DEFINED BY rsrpnp SUBROUTINE
:GO TO 1908 IF ERROR WAS FOUND

54130 ; TRSK DESCRIPTOR 10 3os xr NO ERROR
3
s RETURN hERE 1IF ERR

:OFFSET osvxcs FOR WRITE
nov
MOV
MOV
MOVE
MOVB
MOVS
JSR
BR
NOP
ERROR

:CYLINOER = O
:TRACK = SECTOR= O
;1s BIT FORMAT
;2
+
WORDS
oam Burrsn R RDDRESS
AND DATA

%r ETYGO,RMCS10

:CHANGE TQ OFFSET_COMMAND

sPUTINX R2
'"WRITE PUT INDEX TABLE
s
, (R2)+
| (R2) +
SRMDC
(nsn
srRMCS] (R2)+
8
(R2)
TERMINATE TARBLE
PC,PUT
GO WRITE REGISTERS VIA PUT SUB
3s$
:GO TO 388 IF NO ERROR
;RETURN HERE IF ERR
:ERROR DEFINED BY pur suB
190%
:GO TO 1808 IF ERROR WAS FOUND

358
:SETUP AND EXECUTE WRITE nsnoen AND DATA conm:mo AT OFFSEY
MOV

WH! GO, RMCS10

MOV
MOVB

.Punnk Re
SRMWC, (R2)+

MOVB
MOVB

sRMCS], (R2)+
8200, (R2)+

MOVB

SRMBA | (Re)

RITE HEADER AND DATA COMMAND

unns REGISTER INDEX TRBLE

cznnoeo RMO3/2 FCTNL T;T 2
CZRMO8. P11
23-NOV-7?
12:19

oaggss
6754 02607

4737

MACY11 30(1046)
23-NQV-77
ge
T30
FORMAT AT orrss

037766

JSR

0726
6257 Do6o7e
0261 109000
6831:3:9 026520
g;ss,g
6760

ERROR
MP

026104

E,’-,’-Eé

026104

004737

037432

6763
6764
6765

026110

004737

040326

27770_’1

026132

026114

004737

6773

026132

004737

6776
6777
gm

026142
026144
02"}§

104000
0047
000137

6774

026136

00040S

6775 026140 000240
6780 oes:
E15;:

JSR

6786

02617

037516

30$:

6788
6789
6790
6791

176 00Q40S
Q000240
026202 104000
026204 004736

041344

026206

000137

026520

6794
6795
6796

852558

812783
187

%ogxs
1635

6799
6800

02623
%&9

112722
11723

000000

6808

026256

687

026066

6732

6793

026212

6797 Q0e2bead 112722
6798 026230 112722 %oo: 34”
000032

1008

1108:

PC,GETSTS

9ot
1908

:GO TO 9bs
¥rNO ERROR
RE IF ERROR
RROR DEFINED BY GET SUB
;GO TO 1éos IF ERROR WARS FOUND

PC,PRIERR

ERROR
JSR
JMP

PC,3(SP)+
1908

1208:

100s

:GO CHECK roa PRIMARY ERRORS

1oos
: RETURN F: FE

'ERROR 8 DEFINED BY PRIERR SUBROUTINE
1GO BACK FOR
RROR CHECKS
;G0 TO 1
IF ERROR WAS FOUND

PC,DTASTS

1108
PC,a(SP)+
130s

15 OF mm mmsren
n;gu.
3:
RE
TURN
ficns
ERROR s %51
TASTS SUBROUTINE
:GO
BARCK :GO TO 1 avnSoa
CHECKS
IF ERROR WARS FOUND

JSR

PC, SECERR

:GO CHECK FOR SECONDARY ERRORS

PC,(SP)+
1908

BR
NOP
ERROR
JSR
IMP

1208

;GO VERIFY

.GO TO 120$ O&F NO ERROR
sRETURN HEREIF ERR
'ERROR8 DEFINED BY sscena SUBROUTINE
:GO BACK ron nonsognnon HECKS

.OFFSET DEVICE ron 99
MOV
-co RMCS10
MOV
IPUT

001400

IF ERROR WAS FOUND

s CHANGE TO OFFSET COMMAND
SWRITE PUT INDEX TRBLE

zg (kau
(R2)+
onnor (R2)+

'}°X"
33

oaoooman
0 WRITE REGISTERS VIR PUT SuB
12$s
;G0 TO 1éss IF NO ERROR

ERROR

1908

NOP
125%:

MOVB
MOVB
MOVB
MOVB

0240

F NO ERROR

JSR

BR
NOP
ERROR
JSR

104000

686 026ebe 000137 026520

ETREDE
Y"fim su8
;GO TO 1953?R ESn&a

JSR

NOP

2801
%
112;57
839922
see% oc@
oM
02be60

BR
NOP
ERROR
mp

026520

004737

wms ascxsrsns VIA PUT SUB
GO TO abg;

;VERIFY RESULTS OF WRITE COMMAND

0MO0S12

026172

SEG 0136

:WAIT FOR WRITE COMMAND To COMPLETE AND Rsno STATUS
JSR
PC nno
WAIT FOR COMMAND TO COMPLETE
JSR
0 READ'REGISTERS VIR GET SuB

73?7 053016
6781
026156
%wos
6282 (026160 000240
6783 026162 68}900
6284
0o616M
36
6765 oesxsg 000137 026520
6787

1908

PAGE 136

808§ :
:SETUP INPUT REGISTER BUFFER FOR RERDING STATUS

6766
026120 000404
6767 026122 000240
6768 026124
104000
6769 026126 000137 026520
6772

aot PUT

Gll

JMP

sRMCS], (R2)+

s uan HERE IF ERROR

R DEFINED BY PUT SUB

:GO TO 1éos xr ERRCR WAS FOUND

CZRMDBO RMO3/2 FCTNL TST 2

23-NOV-77 12:19

CZRMOB.P11

&8?3
6811

oasags

012737

0000;3

i
1127 e
6814 Bl Biant

6815

MACYL1i 30(1046)

T30

88{:83

026326

6821

02633%

12:38

H1l

FORMAT AT OFFSET

SEQ 0137

PRGE 137

RERD Hsnoen AND DRTA RT OFFSET
v

A
MOVB

MOV

£a1h
i
gRAd Hshidg
6818

23-NOV-7?7

i
8P
JSR

ERROR

JMP

#RH!GO Rncgéo

: READ genogn ggrn COMMAND

SRV YTM RS TR

A
(ha)¢
oanuc
n

N
‘3‘” 360 70 ‘QB!TE,ENQeRERYE error

WRITE REGISTERS VIA PUT SUB

190$

: ERROR oerxuso 8Y PUT SUB

:GC TO 1808 IF ERROR WAS FOUND

6822 026340
ggga 026344

1308:

6825

SWRIT ron Rsno 10 COHPLETE AND GET srnrus

eass 8sefey W
T 026520
§§§§§§ 683939
ggeq
sag?
gggg 026366

1408%:

S
mos
NgSon 190$
snp

66835 026366 004737 040512

:VERIFY THE

6839

1508

6834

oo
El
¥
6838
376 104000
gg:? 026
025:06

Ee:a

000405

137 026520

6842 6esuos 004737 053016
026:13

g§§§3836
5832 §§§413
4

§§§7

§§§3§§

000137

6850

§§§:3&

8§§§g§

6853
£854

026440
Qeob442

004736
000137

026520

852“23

737

037064

Egié
6855

2339
6

685

026446

4
026464

Garieh
el
6863 026462
6864

026464

026520

004737 041344
1

103566
104572

BRI

104000

000137

READ opsnnr ON
HS RESULTS
? or E
5 CHECK FOR PRIMARY ERRORS

160:

s
g
ERROR
JSR

PC,3(SP)+

ERROR
TM0
EaBok”
T
i3
crua
‘ERROR® DEF INED BY PRIERR SUBROUTINE

JSR

PC,DTASTS

;GO vsnxrv RESULTS OF DATR TRANSFER

JIMP

BRP

ESROR
JSR
IMP

JSR

ggp

ERROR
170S:

’

JSR
MNP

VERIFY DATA
JSR

_WORD
"WORD

g,
026520

.60 TM mS%"EE
ugT suB
5
KWAS8Y FOUND
;GO TO 1655 IF gfiaon

ERROR

IMP

1908

;GO ancx roe non

CHECKS
505ERROR
IF ERROR
WAS FOUND

;GO

PC,a(SP)+

suenourxns
.“BEkaEo Efiogrnsrs
Efingg
:GO BRCK FOR MORE
E

PC,SECERR

;GO CHECK FOR sscononnv ERRORS

1608
1908

1708

PC.J(SP)+
1908
PC, CMPBUF

BUFONE
BUFTWO

1603

13908

0 TO 1608 IF NO ERROR

;GO TO 1908 xr ERROR uns FOUND

RETURN Agss

"ERRGR

F NO ERROR

INED av secean suaaourxnz

1G0 BACK roa noasognnon CHECK
GO 10 1
IF ERROR uns FOUND
g? Sgnpnns uaé 5 Rsng ann
eurrsas

WRITE BUFFE
ARYING ADORESS’OF
!STARTING ADDDRESS
OF READ eurrsn

ERROR 8 DEFINED BY CMPBUF SUBROUTINE

;GO TO 1908 IF ERROR WRS FOUND

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19
6865

0254;8

6867

gssw

6866

6868
6869

68720
ggzé

026N

032737

026506

012737

5553

026514
026520

82591

000137

MACY11

000200

001432

103566

001404

025740

JMP

MOV

Ill

PAGE

138

80FD, RMOFO

;DONE BOTH OFFSETS??

1908’

YES!

80FD, RMOFO

ssr ronunno OFFSET

8BUF ONE , RMBRO

:CHANGE DATA BUFFER

208

6881

026530
026534

6883

026546

6886

02654

012737

800000

68392

0o6ble

012737

1406

6894

QOcoblb

004737

036620

6898

026632

004737

034000

6300

02-690

000404

026520
026522
026524

000004
000240
012706

013700
013701

+a13)"
001100

001276
001450

6882 026540 012737 000031 001226
026554

IVC FORMAT TEST

o 33603006 398 3 35 36 3 35 36 3 36 45 3% 96 3% 0 4 3 U634 9% 9 36 3% 3 3 9% 3 % 3 9 % 3 3 % 3 3% % 3 3 W3

026520

000000

001434

SCOPE
NOP
MOV

MOV
MOV
108:

MOV

#STACK, SP

831, t

:;SET TEST NUMBER IN APT MAIL BOX

$BASE ho
Tsrou$

IRO=UNIBUS RDORESS
:(R1) = DEVICE BEING TESTED

:SETUP PRRAMETERS FOR GENERATING DRTA BUFFER
MOV

001406

MOV

co,Rnoco

RMORO

001432
001402
001404
001400

MOV
MOV
MOV
MOV

orhrxs
H <a$ass >§1> RMWCC
eu?
sk Rncg*o

6893

001176

MOV

#l,STHP]

6897

6899

026620

026632

026636

012737

154130

001174

MOV
158:

208
:

6902

026644

104000

027326

026652

012737

000001

001424

6309
6910

026674

112737
CO4737

000200
037766

001536

6912

026702

000240

ggig

026712

53906

6907

30$:

6908 026660 112737 000024 001535

6311 026700 0DOO404
6913
6914

B8R

NOP

30s

N, 2

130$

104000
000137

027326

6318

026712

012737

0000:3

MOV

MOVB
MOVB
JSR

6920

026726

012702

001535

358
GOi-0U

£913 02€730 $iez37 000000 06142

154130

:CYLINDER = 0

:TRACK = SECTOR
= O

.1s BIT FORMAT
;2+ 256 WORDS
:DRTA BUFFER noonsss
'WRITE HERDER AND DAT
:USE

SECTOR FOR DATR PQTTERN

:GO GENERATE DATA BUFFER
REPQRE DEVICE FOR TEST

rnsx DESCRIPTO

10 3os IF NO ERROR

;s RETURN hcne IF ERROR

'ERROR ® DEFINED BY TSTPRP SUBROUTINE

:G0 TO 1908 IF ERROR WRS FOUND

:RESET VOLUME anxo BY ssrrxnc AND RESETTING DIAGNOSTIC MODE

NOP

026704
026706

6917

PC, TSTPR

ERROR

000137

026652

PC, GENBUF

JSR

_WORD

026646

gqou

JSR

sRMOAR0

- PREPRRE DEVICE FOR onrn TRANSFER

6301 0evb42 000240
6303

KW WX W% REWEE XN

: SCOPE CALL
;?rnar OF TEST
:INITIRLIZE STARCK POINTER

6888 026562 012737 01
6839 0o6570 012737 1772376
6890 026576 0127
10
689]
012737
6895

SEQ 0138

(2 X 2 X X2 XYYz XXX X222 2222222222222
2]

irssr 3!

6876

6887

190S:

6874

éses

BIT

000200 001432

o873

6877
6878
6879

180S8:

gng

687S

30(1046)
23-NOV-?77
12: 3e
T30
FORMAT AT OFFSET

ERROR
P

RMM %o

Rnnhl PUTINX

8200, POUTINX+1
PC,PUT

;SET DIAGNOSTIC MODE

(WRITE REGISTER INDEX TRBLE

0 WRITE REGISTERS VIR PUT SUB

3sé

:GO TO 353 IF NO ERROR

1908

:ERROR DEF INED BY PUT SuB
;GO TO 18G8 IF ERROR WAS FOUND

:RETURN HERE

IF ERROR

:SET® AND EXECUTE uaxre HERDER AND DATA COMMAND
MOY/

#WH!
GO,

MOV

sPUTINX,R2

MOV

RMCS10

0 nnnhxo

:WRITE

HERDER AND DATA

"RESET DIARGNOSTIC MODE

‘WRITE REGISTER INDEX TRBLE

6328
6326
6927
6328

026752
026756
0267
026

6330
£93f
£932
65933
5334

026776
027200
027002
027004
027010

63937
2938

Boo

117

8880 Y

1l1le?
1127
1157
127

60“73

027010

004737

037432

6940
6941
6942
6943
6944
6945
66

027014
7020
027024
027026
027030
027032
027036

304737
004737
000404
D040
104000
000137

040326
037516

6949
6950
6951
6952
6953
6354
695S
635k

027036
027042
027044
027046
027050
052
027056
027056

004737
000405
000240
104000
004736
000137

6358
6959
6960
6961
6962

£363
694
695
696
6967
6968
6969

027066
027074
027105
02711
027112
027112
027116
(027120
027122~
02714
027126
027132

697
697
6974
§975
6976

027132
027136
027140
(027142
027144

6357

MOV

027064

737
1012

MOV
MOV
MOV
MOV

MOVB
MOVB
JSR

037766
027326

23-NOV-77

NOP
ERROR
80S%:

SRMMR1,

PAGE

139

SEQ 0139

(R2)+

#RMDR, LR2) +

s
,tng)+
+
, (R2)
SRMOF
ORHHC,(RS)+
+
#RMBA’ (R2)

sRMCS], (R2)+
8200, (R2)+
PC, PUT

80¢

RsISTERS VIR PUT SUB
:GO TO ebsO IFWRITE
NO ERRO

190$

;GO TO 1905 IF ERROR WAS FOUND

E URN HERE xr ERROR
ROR DEF INED BY PUT SUB

;SETUP INPUT REGISTER BUFFER FOR RERDING STRTUS
JSR
PC,GETS1S
;WAIT FOR WRITE COHHRND TO COMPLETE AND RERD STATUS
;WAIT FOR COMMAND TO COMPLETE

RERO RE XSTERS VIR GET Sus

90&

.
027326

190$

90s:

:GO TO 903 xr
DEEINE BY GET sus
;GO TO 1@05 xr ERROR WAS FOUND

; VERIFY RESULTS OF NRITE COMMAND
PC.PRIE
;GO CHECK FOR PRIMARY ERRORS
JSR
0 _TO 100% IF NO ERROR
1008
BR
; RETURN PERE
IF ERR OR
NOP

040Sle

027326

010000

001372

013737
013737
052737
104342

0UL1372
00137
010

001142
001140
001140

004737
000405
D0040
104000
004736
000137

01344

004737
040100
000404
000240
104000

034000

027326

é§:38

IVC FORMAT TEST

MOV

888802
oM
880000
0200

880409
0240
104000
000137

T3l

S;HE
{igggs 830032
---086
ocrue 115758

6329 02677

£9%

30(1046)

100S:

ERROR
JSR
JMP

8IT

BNE
MOV
MOV
8

1108:

ERROR

¢ d(SP)+

gggg

6321

MRCY1l

ads

IS IvC STRTUS SET??

RECEIVED STATUS FOR TYPEOUT
{EXPECTED STARTUS
; IVC NOT SET DURING FORMRT

1208

:GO CHECK FOR SECONDARY ERRORS
GO TO 1208 IF NO ERROR

PC,3(SP)+

:ERROR& DEFINED BY szcenn SUBROUT INE
GO aacx FOR MORE ERROR CHECKS

SECERR

s RETURN HERE IF ERROR

1908

; CLERR IVC ERROR
PC, TSTPRP
JSR
. WORD
BR
NOP
ERROR

;GO TO 190% IF ERROR KRS FOUND

Iv E,RHEREI
10
ME R2I,$BDDAT
GDDflT
MER2
ga
$GDOAT
1vC,

PC,

1208:

:ERROR
8 DEFINED BYRPRIERR
SUBROUTINE
;GO BRCK FOR_MORE ERROR CHECKS

U. DD—=w

CZRMOBO RMO3/2 FCTNL TST 2
CZRMDB.PILL
23-NOV-77 12:19

J11

040100
125$

;GO TO 190§

IF ERROR WAS FOUND

PREPQRE DEVICE FOR TEST

; TASK DESCR

:GO

TO 1258

IF NO ERROR

s RETURN hens IF ERROR

'ERROR # DEFINED BY TSTPRP SUBROUTINE

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOv-?77 12:18

000137

MACY1l

027326

000073
104572
037766

125%:

001400

001404

PRGE

140

190$

SEQ 0140

;GO TO 1908 IF ERROR WRS FOUND

MOV

JSR
BR
NOP

IMP

oeurruo RMBARO

NGE S ADDRESS

1908

INED

xrt RE TERS VIA PUT SUB
1305 ;G0 TO 130:
IF 5 ROR
Rs HF
BY PUT sus

:GO TO 1éos xr RROR WAS FOUND

:SETUP 1?Pgr REGISTEE
aurrsn FOR RERDING STATUS

;WAIT FOR RERD TO COMPLETE AND GET STATUS
JSR
Pc,vxnou
SWAIT FOR READ TO COMPLETE

Q40326
037516

JSR

1»03

ERROR

1908

BR
NOP

027326

1408:

Ay o

GET

0 RERD'REGISTERS VIR GET SUB

:GO TO 140:
1 NO san
E N HERE IF ERROR

ROR DEF INED av GET SuB

;GO TO 1§os IF ERROR WARS FOUND

s VERIFY THE RESULTS or READ OPERATION
JSR
ERR
;GO CHECK ron PRIMARY ERRORS

o40s12

508

027326

IMP

K1l

;RERD HERDER AND DRTA FOR SECTOR JUST WRITTEN
MOV
#RH' GO, RMCS10
RERO Hsnosn 8 DATA COMMAND

1308:

037432

g RRAR RRRRRRR
oE SRERR P9y,

23-NOV-?7
12:38
IVC FORMAT TEST

ERROR

027326

30(1046)
731

BR
NOP

IMP

PC,3(SP)+
1908

ERROR
JSR

TO 1608 IF NO ERROR
RETURN hsne F ERROR

ERROR .
1GO BACK

rxns BYPgasnn SUBROUTINE
FOR
CHECKS
;GO T0 1
IF ERROR WRS FOUND

010000

001372

BIT

#IVC, RMER2]

;1S_1VC STATUS SET??

1372
1372
010000

001142

MOV

RMER21, SBODAT

chsxveo STATUS FOR TYPEOUT

ERROR

342

061140
001140

BNE
1608

JSR

041344

027326

MOV
BIS
BR

NOP
1708

ERROR
JSR
NP

1608’

RHER ' $GODAT
8 vc GODAT
PC, SECERR

1708

PC,3(SP)+
1308

YES!

;EXPECTED STARTUS

;IVC NOT SET DURING FORMAT
;GO CHECK roa SECONDARY ERRORS

T? 1709 IF NO ERROR

: RETURN hsns F

ERROR

:ERROR
oerxneo ev sscsnn SUBROUTINE
:GO anc OR MORE ERROR CHECKS

co T0 1908 xr ERROR WAS FOUND

1908§:
; o 3363 3 3% 3 3 3 3 36 8 3 4 36 3% 3 36 36 36 35 36 08 3 3 3 3 36 9 3 3 3 36 3 9 6 36 4 3 3 9% % 3 9 % 3 o % W 3 W 3% 3% W WX W W % W W% » N

irssv 32
FORMART ERROR TEST - 18
*g:sslilillillilli!lilllllll!’4!»illlll!l!llll{lllllllllllllllllll
000004
000240
012706

SCOPE

001100

NOP
MOV

s SCOPE CALL

#STRCK, SP

:START OF TEST
SINITIRLIZE STACK POINTER

CoRMDBO RMQO3/2 FCYNL T Te
23-t
12 18
CZRMOS. P11l

7038
7036
7037

;ggg
7040
7041
7042
7043

7044
7045
7
704

02733
(0c”34e

027346
027354

013700
8 g g;

Q0ier
14

&fi38~

7033
7034

7354 12737
7322 8157 7 205008

027370
027376
027v0M

(O274)
0279
027
0TM

812737
12737
012737

81 737
12737
12737
737

10
000062
065106
000001
036620

004737

034000

7048
7049
7050

027440

7052
7053

QCTNNM
027446

7058
70
6

027452
027454

104000
000137

012737
012703
11272
112722
11272

000063
00153S

7004

027460
OcTM4
0e7v7e
027476
027502

7066

02751

11272

000004
000000
000200
037766

7051

7054

70?2
708

70%9
7060
7061
7062
7063

7065

7067
7068

0274580

037503
027516
027522

881400
1174

001176

11272

112722
1127%;

0047
QO0040Mq
000240
104
00013

004737

037432

7079
7080
70e)]
7202

027550
027554
027¢ .0

7
004737

Q40326
037516

000240
104000
000137

0300S0

030050

SEQ 0141

¥eass R

:RO=UNIBUS ARDDRESS

g‘ts*u

r€0

,,sér Tegfi Nunees E? MAIL BOX

:SETUP PRRAMETERS FOR GENERATING DATA BUFFER
MOV
8'3?838
;CYLINDER = O

MOV
MOV
MOV
MOV

RMOF O
o<$c<a+ess
>+1> RMWCO
oaurons

TRRCK = SECTOR = 0
.18 axr FORMAT
;2
+ 256 WORDS
:DATA BUFFER RDDRESS

MOV
JSR

8l,STMPL
PC, GENBUF

:GO GENERATE DATA BUFFER

MOV
MOV
208

RHC%*
ozekos MPO

‘WRITE
HERDER AND DATA
‘USE ALL ZEROS DATA PATTERN

: PREPRRE DEVICE ron onrn TRANSFER

JSR

001400

. PREPARE DEVICE FOR TEST

. WORD
B8R
NOP

554130 Tnsx DESCRIPTOR
0s
IF NO ERROR
RE TURN AERE TOIF 308
ERROR

Jme

180%

ERROR

208

snnon s osrxneo 8Y TSTPRP SUBROUTINE

;GO TO 1808 IF ERROR WAS FOUND

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

MOV

sPUTINK, R2

MOVB

MOV

, (R2)+

:WRITE HEADER AND DATA

‘WRITE REGISTER INDEX TRBLE

'(R2)+

,
SRMOF

(R2)+

SRMBA’ (R2)

MOV

SRMIC,(RS) +

MOVB
MOVB
JSR

sRMCS) . (R2)+
8200, (R2)+
-go WRITE REGISTERS VIR PUT SUB
PC,PUT
804
;GO TO 808
IF NO ERROR

MOVB

a0s

#lH' GO, RMCS10

MOV

MOVB

000034

027544

02752
027ted
0275t6
027872

B0 1405
001432
001402
001404

MOV

000006

7077

7C 3
704
704S
70-6
7087

u-xwgw

L1l

_23-NQvV-?7?
1? ga PQGE 141
FORMART ERROR
TEST

ngz

001226 108

030050

0Q27%3
027540
027544

7078

30(1046)
T32

000240

7069
7070
7071
7072
7073
70749

7078

02756
027% 2
027534

54130
oM

MACY1l

SSSOR
Mz 2

SRESROR
OEE 15
gS? SuB
:GO TO 1985 ?R
WASBY FOUND

180$

;SETUP INPUT REGISTER BUFFER FOR RERDING STATUS
JSR

PC,GETSTS

; WRIT FO?SgRITE COMMAND TO COMPLETE AND RERD STATUS
PC,cé
MOUT
:WMAIT FOR COMMAND TQ COMPLETE

J5R

BR
NOP

30S8:

ERQOR
IMP

PC
904

180$

GET

Rsno REGISTERS VIR GET SUB
RROR
%F
:G0 TO 9bs
RE

IF ERROR

ERROR DEFINED BY GET SUB
.GO TO 1868 IF ERROR WAS FOUND

; VERIFY RESULTS OF WRITE COMMARND

CZRMDBO RMO3-/2 FCTNL

CZRMDB.P11
7089

7090

027572

027576

TST 2

23-NOV-77

12:19

004737

0NOSI2

00Q40S

709

§§£§?§

000137

7097

027616

0ONONOS

769@

23
7

oe£§§§

736
000137

; 104

027636

ooougs

30(1046)

132

23-NOV-7?

5 OR
ERR
030050

1008

1108

004737 OM134M4

; 18 85%23% T33§08

M1l

PAGE

PC,PRIERR

142
;GO

1008

SEQ 0142
CHECK

ER A

FOR PRIMARY ERRORS

o TO 1008 IF NO ERROR

1"585
ER% e IERR sueaourxnc

PC,3(SP)+

JSR

PC.DTASTS

;GO vsnxrv

IMP

PC,3(SP)+
1808

:GO BACK

snp

1208

P
8R

g
JSR

ERROR

030050

12:38

FORMAT ERROR TEST JSR

004737 053016

100
; {01

7 188 85

MACY1l

ISR

1808

GO 10 1eos xr snaon uns F OUND

1108

PC, SECERR

eggoa be 3(5P)

SULTS OF DATA TRANSFER
r NO ERROR

o ev
RRmsrs
uenounnc

co ro 1808 IF snnon uns F OUND

;GO cuscx roa SECONDARY ERRORS

10 1agg°&r NO ERROR

GERHE".“?EFINED BY SECERR suaaourxnz

188 §7 46 %139 030050
P47109
7652

1208:

7113

; RERD HERDER AND DATA FOR SECTOR JUST WRITTEN AT

7110

o GRER BISTT BARS BRI

7115 027666 012737 104572 001404
iy ol Ry ovves
;}19 027702 000240
AT R

;igé

771

;{23

;{as

oa;;za

7129

(027730

mmie

T -

%331)

027734

1408:

7138

027750

000137

030050

7143

027754

Q32737

000020

7144

027764

004737

053016

;{33
7141
7143

027754

Q27782

001032

16 BIT FORMAT

ORI e
I RySg’gkg
n?R §u§ cuB

RE TURN ”‘"fiEI‘ sngUT U

10 o 1665°1F BRREFEEFERlo

To coansrs

oo s IEULERRTR 100°08

1408

;G0 TO
1Qggfl sfie

1808

:GO TO 1808 IF ERROR WRS
F

R0R DEF] 6a$c2‘%sue

i VERIFY IHE RESUR TSpRTeRR 0 OPERATION ek FOR PRIMARY ERRORS

2744 6839g2
7746

seos

T o

cga Tmi1?“:5”52NAS FOUND

FRROR

030050

7134
027740 006240
DOO40S
2135
027742
71

BRI

2138 o277 0ow737 ouosI2

713;

MOV cBUFTub
LA
Ng:on

000404

000137

BRCK

{WAIT FOR gsno
T0 C HPLETE AND GET STATUS

@uw guw

2188 B35 989848

1802

1308:

227

Z{np

snnon
JSR

1508
001344

s VERIFY

1sbs

150r NO ERROR

ennoahSe
INE ev PR&ERRSUBROUT INE
Rg

PC.J(SP)+

1808

THAT FORMAT ERROR

ro 18
IS SET

BIT

UFSR RMER11

JSR

PC,DTRSTS

BNE

1608

;15

_FORMAT

YES!
!

RRO

CKS

IF ERROR WAS FOUND

ERROR

SET??

.GO VERIFY RESULTS OF DATA TRANSFER

canoeo RH03/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19
71M5

02?770

nwg

7iv6
7147
714

71s0

7151

7182

027772
027779
Q¢

&&éfi

;iga

0O040S

8030050

373/

001344

1344

001142

737

000020

001140

04134y

(30030
030034

%337
0S

7188

030040

104000

71. .

030044

;igg

030050

7157 030033 000240
7161

030050

004736

000137

001140

7167

155%:

1608

170$:
H

030050

037050
0.10052
040054

000OOM
0
012706

001100

gg ool226

;
17?376

001434
001406
001432
1402
1904

7183

030142

812737

065 106

881174

7185
;igg;

03013
0301

004737

036620

7189

030162

004737

7183

030174

7182 030134
030150

012737

0000

000001

7190 030166 154130
7191
030170
000404
7132 030172 000240

034000

7194
;igg
7198

7193
7200

104000

030176
030202

000137

030572

030202

012737

000063

(030210
030214

; RETURN
'ERROR #

1GO BACK

11, $BODAT

.GO

ERROR

FOR MORE ERROR CHECKS

;ggor
:

RMcR1I’ SGOOAT

1558

RE 1F ERROR
INED BY DTASTS SUBROUTINE
*go? oar
ERROR WAS FOUND

"EXPECTED DRTR

PEOUT

BIS

arsa $4D0RT

JSR
BR

PC, SECERR
1708

;GO cuscx ron SECONDARY ERRORS
? 1708
oér NG ERROR

PC,a(SP)+

GO ancx FOR MORE ERROR CHECKS

ERROR

INP

;FORMAT ERROR NOT SET

: RETURN F(RE FE

:ERROR 8 osrmso av secenn SUBROUT INE

1808

;GO TO 180§ IF ERROR WAS FOUND

llllllllI!Il!illllllllIl!lIIIIIIIGI!lllllllllllill!llll!lllllli

?sra

030076

012737
012737
012737
012737
312737

7197

MOV

*Bbg

SEQ 0143

FORMART ERROR TEST - 16

lllIlllllil!lllIllllllllill!llilll!!lllllllIll!illillll{lllllll

030076
030104
(030112
030120
030126

7188

MOV

7177
7178
7179
7180
7181
7184

PC,3(5P)+

IMP

143

1808:

;{;1 g‘mxowo oig;ng 001575

7176

JSR

0300S0

7175 GaN070 812737
;{77;

1558

ERROR

7165

7168
7169
7170

NOP

7164

72166

N1l

23-NOV-77
1;:g§
PRGE
FORMAT ERROR
TEST
- 18

NOP
ERROR

;

104343

030042

30(1046)
132

1940

7155
7156
713

MARCY1l

012702
112722

001535
000006

SCOPE
NOP
MOV

:83

10S:
;SETUP

1400

MOV

033

P:SET TE 2‘

seaofise R

PARAMETERS

MOV
MOV
MOV
MOV
MOV

MOV
MOV

1178

#STACK 39

;
,sr Teg
,£N1
TACK POINTER

FOR

'<gft)“

ts*n

GENERATING

DATA

80, RMDCO
80’ RMOAO
sFMT16, RMOFO
sctC242 s >+1> RMWCO
ceurogs

s CYL
=
i TRACK = SECTOR = O

xs axr FORMAT
S
WORDS
ATA aurrsa nooness

TWRITE HEADER AND DR

{USE ALL ZEROS DRTA pmrsnn

JSR

PC, csnaur

:GO GENERATE DATA BUFFER

JSR

PC,

sl,sTHél

TSTPRP

EPARE

DEVINE

FOR

TEST

_WORD
BR
NOP

159130 ;TASK océcnxpron
308
:G0
TO 308 IF NO ERROR
s RETURN Asne IF ERROR

InpP

180$

ERROR

;SETUP

BUFFER

sWH, R 910

208 :
; PREPARE DEVICE FOR DATA TRANSFER

001400

R IN APT mn. BOX

#2EROS, §TMPO

MOV

308:

VICE
E?NG TESTE

AND

MOV

EXECUTE

MOV
MOVB

WRITE

: ERROR . ocr NED BY TSTPRP SUBROUTINE

O 1808 IF ERROR WRS FOUNG

HERDER

#lH' GO, RMCS10

sPUTINK, R
#RMDA, (R2)
+

AND

DATA

COMMAND

sWRITE HEADER AND DATA

"WRITE REGISTER INDEX TRBLE

MRCY1l

MOV

030S7e

808:

(R2)+

?osa
BR
NOP
ERROR
JMP

3 Po%ke“
REGISTERS VIR PUT SUB
no g%o&
;WRITE
:GO TO
e0d
URN
F ERROR
OR
DE
m
eo
BYFOUND
PUT SUB
180$
GO TO1éos IF E

JSR

BR
NOP
S0$:

sl, (R2)+

SFER FOR RERDING STARTUS
FECRTRE

ERROR
JMP

PC GET

904

180%

100$

030Ss72

-mim

[

053016

1108

030572

041344

RROR
SR
ImP
JSR
BR

;G0 TO 905
;r mon
655
;G0 TO 1
IF

£0N

868

1208:

PC,PRIERR

ERROR
rmso BY GET SUB
WAS FOUND

;GO CHECK ron PRIMARY ERRORS

F NO ERROR

RET

1008

smon' s

m:o BY PRIERR SUBROUTINE
RROR CHECKS
TO 1
IF ERROR WAS FOUND
surs OF DATA TRANSFER
: GO vsnxrv
xr NO ERROR

PC.J(SP)+

:GO BACK

1808
PC,DTRSTS
1108

RROR
SR

PC,a3(SP)+

EngEE
s
avRgogstsSt nm_ £

JSR

PC, SECERR

;GO CHECK FOR sscoromv ERRORS

JSR
IMP

PC,(SP)+
180s

JMP

B8R
NOP
ERROR

030572

OR COMMAND TO COMPLETE

nsno REGY srens VIR GET SUB

: VERIFY RESULTS OF WRITE COMMAND

A 010 U\

;o ¢4L ) A AR i A

(rQ)

o
-

sRMUC, (R2)+

; WRIT FOR WRITE &%TO COMPLETE AND REQ
STRTUS

o40s12

)

, (R2)+

YERT

030572

03??66

SEQ

;SETUP INPUT REGISTER

037432

PRGE 144

MOV

00
037766

12:38

MOV

Jae

Ble

FORMAT ERROR essr 16
23-NOV-77

040326
037516

A
SRIALALALALA
¢
N A ‘R
¢ 0
ot

30(1046)
T33

Hine g

ERPPPPPPRR

Roscotd28
18

CZRMDBO RMO3/2 FCTNL TST @2
CZRMO8. Pll
23-Nov-77 12:19

1808

GO 10 1

GO o
; RETURN !’%
"ERROR 8 Erme

1268

IF smon R FOUND

IF NO ERROR
RROR
BY SECERR SUBROUTINE

1GO BACK FOR
€ ERROR CHECKS
;GO TO 1808 IF ERROR WAS FOUND

AT ig g§ 8§m7
: READ HEROEO R AND onm rm SECTOR JUST mxm;n

MOV
MOV
JSR

BR
NOP

noeR 3 on n COMMAND
,Fo Rncsxo
onh
s5UF T,
RM
CHANGE BUS RDDRES
PC. PUT
REGISTERS VIA UT suB
IF ERROR
;Gu TO 1.‘303 nt
130s
:RETURN HERE

]

IF ERROR

0144

RM03/2 FCTNL TST
P11
aa-nov-7§ 15:19
7257 030426 104000
7268 030430 000137 030572

;

;3243

MACY11

0304

030434

oou;a'f'

839’53?2

7266
23 ?8%8
7267
030452
000137 030572
7
030456
g8

72”71
7272

0304S6
030462

004737

0M0S12

;2;3
gioied ooosy
2570
R
A%
7276 030472 000137 030572

;gg

030476

7279

3Q(1046)
3935
F -NOV-77
ERROR 12:
gsg? -PAGE EE 145
ERROR
RROR DEFINED BY PUT SUB
Je
1808 ;GO TO xéos IF ERROR WAS FOUND

1308:

;WRIT FOR RERD 73 cmere AND GET STATUS

JSR

éaop

1408:

e
§0 82
7287
7008
&
7289
~
7290 B
42
72N

;gg:

wb& ;GO TO 1482 RF %RE%&RF
180$

Rfia oc'?6
BY csr SUB
;G0 TO xbos IF ERROR WAS FOUND

: VERIFY THE RESULTS OF READ OPERATION

1508:

7:? &“ SR 02 053016 a
£3
8> B
;
e
0

ERROR
JnP

TWAIT ;gflnsns?g EchosmLsrs

JSR
BR

PC.PRIERR
15bs

P
I

pc.acspoe
180s

:VERIFY T
3
f S SET
g"@ F : EgWE
85737 000020 001344 '

/%
37
030572
013737 00l
oouug
013737
001
00114
052737 000020
001140
104343

00M737
0004

Sfi%

OM134%4

104
0047 3%
000137

030572

: P msrs1
¥RROR i

1558:
1608

58"
IMP
MOV
MOV
8IS

pc.acsP)+
es
m , $BNDAT
sc.oom
orsa

JSR
BR

PC, SECERR
1708

ImP

PC,3(SP)+
1808

ERROR
"

170%:
1808:

bop
ERROR
JSR

343

,co CHECK FOR PRIMARY ERRORS
co TO 150% IF NO ERROR

ERfimm
ERR
OUTINE
EoX FIIF
PO
N
Re
CERROR
CHECKE
;GO TO 1808 IF ERROR WAS FOUND
1S _FORMAT ERROR SET??

;GO vsnx#igs T or DATA TRANSFER
gt
Wil
“55 s CEIE
ASTS
OUTINE

€0 BAcK_ PSa aSoa
Checke
F ERROR WAS FOUND
ne
T 733 FOR TYPEOUT
xpscr
TRT
-roamr ERROR NOT SET

: GO cnscx roa sscommv ERRORS
%r NG ERROR

;:GOBETURN
s ‘Se
xr:o BY SECERR SUBROUTINE
BACK FOR MORE ERROR CHECKS

co TO 1808 IF ERROR WRS FOUND

: uuunuunuu!unnun"uunu"lnu“uuuuuunl

FORMAT HCE, FIRST HERDER WORD

nuuuuuluunnlunnuulnuunnunnnnnunun

83q§;§

1 ggg g% 4 ::
7313 Sg&éfi 81534 80833 BRiest
fl

¢c

cle

SCOPE

NOP

MOV

203
Hov

¥3522KR8P

mu$ n%
:?413;S"

SCOP$ OF
CALLTEST

; START

gssT;reo
asxm
o;vxcs
:
(m%
MAIL BOK
ART
IN
ER
TOYHMB
i ; SE ES
&NITIQ&&%E BTQEESPOINTER

SEQ 0145

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-Nov-77 12:19

oL8ZRKEE

s P

Bumn e

L
L LELLL

MOV
MOV

orhrx RMOFO
0¢1C(24266.>41> ,RMWUCO

MOV
MOV
MOV

v
8ZE
8],

MOV

108

$10
31
sTHbl

16 BIT FORMAT
;2 +
DS

:baTA

FER RDDRESS

‘WRITE HERDER AND DATA
:USE ALL ZEROS DATA PATTERN
;GO GENERATE DRTA BUFFER

163

. PREPARE DEVICE FOR TEST

NOP

154130 : TASK DESCRIPTOR T0303
IF NO ERROR
: RETURN AERE

Ny 2

240%

ERROR

! ERROR o oer Neo BY TSTPRP SUBROUTINE

0 2408 IF ERROR WAS FOUND

: COMPLEMENT DATA BIT IN FIRST HEADER WORD
10
3
, BUFONE
ggBIT IN HERDER ON??

0307
03074
030750
0307se

318:

030760

e
e

"ov

s Pt

MO
MO

St Pt Gt Pt

—

g?s

1908, BUF ONE

1908,

BUF ONE

;SETUP AND EXECUTE WRIT
MOV
v

e bt ot e s

SEEEEEERE
R
8

ERAGPS

BIC

:RESET BIT IN HERDER

;SET BIT IN HERDER

3c8:

0310S0

SEQ 0146

; SETUP PflRflHETERS FOR GENERATING DARTA BUFFER

004737

12:38
PRAGE 146
FIRST HEARDER WORD

: PREPRRE DEVICE rgn gnra TRANSFER

030?12
030716
030720
030722
030724
0307
030732

483737

7366

23-NOv-77
FORMAT HCE,

208:

03071

7328
7326
7327
7328
7329
7330
7331
7332
7333
733
7335
7336
7337
7338
7339
7340
7341
734¢
7343
7344
7345

e OO

Pt B

Al B
ol
o

utetopatwl

037

000000

7313

218 e

3?5&0“5)
108:

030626

§90

7313
7314

MACYLl

4737
4737

00040M

Ho
MO

MOV

sPuUt u§ n?¢

%:(%N

HRITE REGISTER INDEX TABLE

(R2)+

(RS )+
!
SRs
s} 732)4
(R2)+

JSR

80¢

Snp

1808

8R
NSSOR

chosn AND DRTA connano
S10
WRITE HERDER AND DATA

unxrs REGISTERS VIR PUT SUB

;G0 TO eba
IF NO ERROR
HEREEIF
Y PUT SuB

808

:GO TO 1955 ?R ESRSR ung

; SETUP INPUT REGISTER BUFFER FOR READING STARTUS
PC,GETSTS
JSR
;WAIT FOR WRITE COHHRNO TO COMPLETE RND REQD STQT S

}gR

gg. IMOuUY

904

GET

WRIT FOR COMMAND TO COMPLETE

RERD'REGISTERS VIA GET SUB

GO TO 905 IF NO ERROR

CZRMDBO RMO3/2 FCTNL TST 2

CZRMOB. P11
7369

7370
7371

031062

ggxosw
1066

;g;

031072

7374
7375
7376
7377

831072

23-NOV-77 12:19

MACY11l 30(1046)

T34

000240

031574

004737

040512

7378
7379
;383801

000405
000240
04000
73
000137

031116

O00N0S

7385
7386
;;!87

osug
0311
83}}35

000137

7390
7331
7332

031136
03114C
031142

00040S
000240
104000

7394

03114

000137

031574

7401

03“23
0311

03116k

012737
012737

000073
104572

7404
7405
;:8(7’

031176
031200
031204

104000
000137

7409

031204

004737

7412

031216

000240

90s :

031574

100S

7398
7339
7400

(31152

004737

7402
031172
000404
7403
031174
0002490

031574

7408
7410

031210

004737

7411 031214 000404

7413
7414
;:{s

031220
031222
031226

7'419
7418 031226
7419 031232
7420
7421

7422
7423
7424

031234
031236
031240
031292

031246

104000
000137

004737
000240
104000
004736
000137

037766

031574
040326

ERROR
JSR
P

1108

1208:

001400
001404

PC,(SP)+
1808

PC,a(SP)+

1108

1808

INED BY PRIERR SUBROUTINE

:GO BACK FOR MORE ERROR CHECKS
;GO TO 1808 IF ERROR WAS FOUND

;GO VERIFYa;guu OF DATR TRANSFER

s RETURNAeng
IF 11E

F NO ERROR

:ERROR %fix Y DTASTS SUBROUTINE
:GO BRCK
ERROR CHECKS
;GO
TO 1808 IF ERROR WAS FOUND

JSR

PC, SECERR

;GO CHECK FOR SECONDARY ERRORS

JSR

PC,3(SP)+

:GO BRCK FOR MORE ERROR CHECKS

InP

1208

1808

.GO TO 120% IF NO ERROR
IF E
:ERROR 8
INED BY SECERR SUBROUTINE

: RETURN

:GO TO 1808 IF ERROR WAS FOUND

_
:READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH! GO, RMCS IO
;READ HEADER & DATA COMMAND
MOV
naurmb RMBARO
:CHANGE BUS RDDRESS
JSR

BR
NOP

ERROR
JmP

umrr‘s
- GO
Ra%zrsns VIR PUT suB

1305 ;GO TS1 SR
1808

egs OR
:GO TO
IF

5 RROR

s;m:

v PUT SuB

1308:
:WAIT FOR READ TO COHPLETE AND GET STATUS
JSR

JSR

BR
1408:

ERROR
P

PC, TIMOUT

PC GET

“WAIT FOR READ TO COMPLETE

RE
nscxTERS VIR GET SUB

wbs

;GO TO 1&03

1808

ERROR
mc Y GET SuB
;GO TO 1808 IF ERROR WA FOUNO

u;ne RROR

s VERIFY JSR
THE RESULTS
or RERD OPERATION
PC,PRIERR
:GO cnccx FOR annmv ERRORS
BR
1sbs
0 TO 1508 IF NO ERROR
NOP
ERROR

031574

1808

ERROR
JSR
Ine

NOP

040512

SEQ 0147

:RETURN HERE IF ERROR

PC,DTRSTS

BR
NOP
ERROR

037516
031574

PAGE 147

HERDER WORD

98 ?R DEFINED BY GET Sus
:GO TO 1808 IF ERROR WRS FOUND

JSR

NOP

2363 031133 004737 041344

7395
739%
7397

Ennoa
MP

7384 031120 0006240

004736

T WCE, FIRST

Ele

s VERIFY RESULTS OF WRITE COMMANO
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
8R
100s
:GO
TO 1008 IF NO ERROR
NOP
:RETURN
n; IF ERROR

7% 031115 DOM737 053016

031144

12:3?

NOP

683039
1

1076
0311
0311
0311
33{{?5

7333

Sa-NOV-77

1508:

JSR
InP

PC,a(SP)+
1808

; RETUR
ERROR "

IF ERROR
INED BY PRIERR SUBROUTINE

1GO BRCK FOR MORE ERROR CHECKS
;GO TO 180S IF ERROR WARS FOUND

Emmp'f'?:”ae%?&%-fi 15:19
7425

oaxggs

2ase 031256
B3isy

742?

;:gg

031264

%3" 831?3

Eg;

0327

001466

MACY11l 30(1046)

140000

031576

010000

031576

1@7 000020 001344

;333 03;275 g?% 053016
a
5 83;
o mflgaig
?q

?34

Fle

-N v-77

PAGE

E'I‘%

:nsi.use.ms

155§

s VERIFY THAT ren

:NO !

xs SET

FER, RMERL]

vé r;r.a SET 77

&Es"islsl’msrs
RROR
I

:GO VER?A4 by su.rzg:iro%ne;gggsrsn
RSn {3.‘fégl DTRSTS guenourrc
i

R B XY B
o s B
x,fi
7440
1
1;3;
001344
88“::83
n?v
m
JMT
7941
031
0s2e
000020
;::g 833i§~3§
13
Engoa
IVERIFY THAT BAD SECTOR ERROR IS SET
Zque &
?32; ggxaw

E ? 100000 001372 '

BIT

;wg oaiaw g?gz 053016

744

1382

33 mw:o
e
;732? %ia&w

BR?§

% 3 gigm%

137

013737

031574
137

114

ggg Sgaigoew 813;5% tin.gla-;

%H:g

7460

001176

7453 031416
7460

Sies
;:fga

031424

0137

013737

031432

013737

031440
031442

000455

1g.

104572

031576

1538,

8811%4
00!

77%663 gg{:gg &ggg&' 000200 001344
mga 8%”52 %w 7 053016
7475
7474
03147
2473 B3luee
831

60~900
13

Bl
7*4?% 331514 WET
137
747

3%
3

052737

Eflgs

omov

J
NoP

RROR

1344
B34

881148

Xim
103566 B8
001174

7478
931258 813737 8912%e SR81iZe
7480 031536 1049344

s.‘

o
MOV
b

1568:

oy
MOV
nov

ERROR

Ens

TATUS

%grgmrfgosgno

rn O HERDER WORD
éo

ERB ey
ERROR IS SET

r 3 Rl , $BODAT
&Pghmspn

e
UF ONE, $TMPO
1862“27?"12“

ERROR ms FOUND

XPEC¥EB TATUS

344

SHC .Rncgfi
%(S:‘Rmsrs

\I'E BSE SET *7

Ie
ESR%K ke
95xnrragsggngéssrs
spOUTINE

, }m

187

RIS
‘E
T
TATUS
.
:FORMAT ERROR NOT SET

;GO venx#v suusorFonN(r)nE;gggs;en

r‘q (

;VERIFY THAT HERDER COMP

7450 031468 OC 29
031462

a:ig
MOV

7471

1062

‘

1 Sj’msrs

~oe
553“' bC. 3(SP)e
MOV

1558

] g,an:nex

xgsmxs BSE °?
;
:18
THiS FER 77

M¥1e, 1908

BEQ

SEQ 01 48

148

rggm éihg? En WORD

recr ion

IESHCETM SET??
; GO vsnx#vRggtfiggso%_on"gns;sggsrsn
; RETURN hERe | TF ERROR

Ennggco ggfl I:Sgs BE R%gsgsegugnourms

70 180§ IRTUS
IF ERROR
FOUND
PEC¥EB TATUS
gecsx
FOR WAS
TYPEOUT

e
5235752;;8%2052;;0

R
ING 81T POSITION
!FORMAT ERROR NOT SET

CZRMDBO RMO3/2 FCTNL

CZRNMDB. Pll
7481
7482

7483

7484
748S

031540

TST @2

23-NOv-77 12:19

Q31722
031726
0317%2
0317
03173
031790
031742

7836

031750

7635

031746

3
288 44994
NINNN
N

fetetwded

0000

000062
036620

NOP

JSR
NP

PC,J(SP)+
1808

001432
001402
001404
001400

INED BY

SECERR SUBROUTINE

1908

; SH IFT 7O _NEXT BIT POSITION

1903.

2408

aoos-

WORD

ggz

'8'

MOV
MOV
MOV
JSR

8-2
co
8BUf ONE . RMBRO
s+, RMCS
10
pC, GENB

JSR

PC, TSTPRP

PREPRRE DEVICE FOR TEST

NOP

:RETURN kens IF ERROR

Jmp
MOV

210$
8WH
! GO, RMCS10

3"0 Ng

co ancx ron MORE ERROR CHECKS
TO 1808 IF ERROR WAS FOUND

MOV

. WORD

001400

2108:

MOV

5839

:REFORMAT THE SECTOR IN 16 BIT MODE

8FAT 16, RMOFO

4130

;

: TRSK DESCRIPT

:ERROR

sFUTINK, RS

0 2108 IF NO ERROR

oerxneo BY TSTPRP SUBROUTINE

.co T0 2108 IF ERROR WAS FOUND
:SET THE GO BIT

'PUT THE REGISTER RDDRESS INTO TABLE

'EQS;I

SRMBA (RS)#

;

SRMUC, (R2)+

sRMCS), (R2)+
8200, (R2)+

PC,POT

ONLY WO HERDER uonos
SELECT THE eurr
S“HERQ
COMMAND
HE aurrsn PATTERN

MOV

:
: TERMINATOR

- GO unxrs Rgglsrens vIA PUT SUB

220s

;GO TO 2208 IF NO

ggg

2408

;GO TO 240s IF ERROR WAS FOUND

ggg

PC, TIMOUT

NOP
ERROR

2408

;STORAGE FOR BIT POSITION

JSR

’

; JUMP OVER STORAGE

oR:82:(R2)+

MOV
MOVB

2208

{EXIT IF DONE
:GO DO NEXT SECTOR

MOV

MOVB

040326

0 T0 1658 IF NO ERROR

TURN hgas IF ERROR

1808

ERROR

031750

;GO cuecx FOR SECONDARY ERRORS

aoos
108

034000

NNNNN
~
ZYRRRRRRRRYS

7528
7529
7530
7531
7532
7533
7534

031716

Y S

031672
031676
031702
031706
031712

0l
1772776

s ot Pt Pt Pt e |ol

031662
031666

180$

1688

RSL

030626

T oY Y

03164
031650
031654

SEQ 0149

;ROVANCE THE BIT POSITION AND FORMAT RGAIN IF NOT DONE

031576

7527

031644

l65S

031574

Q31574
031574
031576
031576
031600

031634
031640
031642

ERR

031562
031566
031570

031606
031614
G31622
031630

PRGE 149

:CHECK FOR OTHER ERRORS
JSR
PC, SECE

041344

031582
031554
031556
031562

031600

12:38

FIRST MERDER WORD

:
1608

Pmen G

7507

7508
7509
7810
7511
7512
7513
7514
7518
7519
751
7518
7519
7520
7521
7522
7523
7824
7525
7526

23-NOV-77

FORMAT HCE,
BR

031S4e

7S00
7501
7502
7503
7S04
750S
7506

30(1046)
3TM

000415

787 03leug
o T

7489
7490
7491
7482
7493
794
7495
7496
7497
72498
7499

MRCY11l

Gle

ERROR

;”sruan HERE iF ERROR
ROR DEF INED BY PUT SUB

;WAOT UNTIL IT FINISH

CZRMDBO RMO3/2 FCTNL TST 2

CZRMDB.P11

MACYL!l 30(1046)

23-NOV-77 12:19

T34

~g3?

5?3@

Tgag

#TEST 35

81378*
012737
012737

8157 7

g5
7228
7552

7565

720
;222

001226
032560
0014

#83
.’2°3

108:

8157 ?
032064

12737
D04N737

1
036620

032070

0Q4737

034000

032070

TM
53

] 4189

032110

7
Ss;q

“2

75;5

osa{eo

77353

032136

757581

MOV

:83
Hov

MOV

001174

MOV

001178

208
:

043737

012737

7887

(032164

11272

7589
7630

032174
032200

112722
662755

7692

032210

000404

759]

0321720

(032204

MOV
JSR
JSR

. WORD
B8R
30S:

032560

103570

328%:

1127

s SCOPE CALL

?ugflmng gncx POINTER
)
VICE xuc TESTED

o mcx sp

.§s°¥¢es*n
s1, 1308

,.sé2‘
na? ngMAIL BOX
xrm BIT POSITION

? bé

RACK

= ssc OR =

:SBUFONE
m%ala- RRBA
6. °+1 , RMWCO iSmnegfirrgfi
16 BIY FORMATaoonsss
]

)

sk Rncao
czshgs

sl,sTMP]
PC . GENBUF

érs‘_ gs

MPQ

2EROS onm pmrsnn

;co GENERRTE DATAR BUFFER

ERROR
§np

PC, TSTPR

534130

.PREPARE DEVICE FOR TEST

msx DESCRIPTOR

10 3os IF NO ERROR

25&82“.“"‘%
Be TSTPRP
85 *D
2485
ERROR SUBROUTINE
WAS FOUND

2408

ECOND HEARDER WOR

8351%
815782 -‘032150 112722 000006
160

SECOND MEARDER WORD

?z ? 032560 103570 ': COMPLEMENT
"gg DRTA gé
éu 3E

032154

FORMAT HCE,

; PREPARE DEVICE FOR onm TRANSFER

g;g 835133 828;89 032560 103570 31S:

7585

ngv

MOV

w 3

!185 6801539
4509 032732

;55;?

7684

SEQ 0150

;SETUP PRRAMETERS FOR GENERATING DATR BUFFER

15737 1i7an
3014as
1878
103208
881434
012737
001400

7564

SCOPE

5 =

;§39

PAGE 150

Ys*sglllll!l!|IIll!!lll!ll‘llllllllill’ll!llll!Illlilllill}li{llul

gx% m 81592
"S
1
i ;
1

7561

12:38

H lll!lllll!llllllllllI»lllllllllllll!lll!lilll!lllllillilllllliii

7543 83}538 000004

75
7560

23-NOV-?7

FORMART HCE, FIRST HERDER WORD

112722

0032

0002

000004

000
ggggoo
66

001400

aéc

315

éeos,BUFONE+2

1580s, BUFONE+2

?s BIT IN HEADER ON?”

RESET BIT IN HERDER

:SET BIT IN HERDER

;SETUP AND exscuzfm mérsflug?gen AND DATA conmn

n8v
MOVB

OPU??Nk
RS
SRMDA, (R2)+

MOV

'R"SE

MOVB

SRMUC. (R2) +

MOV

SRMBA’

JSR

MOVB
MOVE
BR

UR{TE ?ETER ?NBEX TRBLE

(R2)+

sRMCS], (R2)+
-aog (R2)+

80¢

DATA

(R2)+

#RM

MOVB

R AND

GO0 WRITE REGISTERS VIR PUT SUB

;GO TO gh$ IF NO ERROR

cznnoao RH03/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19
7693

032212

7694
75

(032214
032216

7538
;sgg

032222

004737

037432

7601
7602

032226

004737

040326

760S
7606

032240
032242

;ggg

032250

7610
7611

032250

004737

7113
7614
7615

032256
032260
262

000240
1049000
004736

000137

032556

7618

032270

004737

053016

7621
7622

032300
032302

104000
00.736

000137

032556

762S

Sggglo

833337

041344

7630

763]
7632
7633

032324

032330

000137

032556

7635

032330

012737

000073

7637

032344

004737

037766

032352

000240

7603
7604

035232
(032236

004737
00040M

80S$:
;SETUP

;gig
7619

5S4

037516

000240
104000

“ggg

032274

00040S

7620 032276 000240

;ggg

7626

8333?3

7627 032316 000240
7628 032320
J04000
7629 032322 6oq735
7634

7636

032336

012737

7638 032350 000404
7639

7640

032354

;g:g

032

7644
7645

032362

004737

7648

032374

000240

104672

032366

90s$:

004737

7647 032372 000404

12:38
PRGE
SECOND HERDER uono

037516

SEG 0IS1

sRETURN HERE

1808

IF ERROR

5 ?R DEFINED BY PUT SUB
:GO TO 1808 IF ERROR WAS FOUND

INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

GO RERO REGISTERS vIA GET SUB
GO TO 98¢ IF NO ERROR

1808

GO TO xéos 1 ERROR WRS FOUND

NOP
ERROR
JSR
P

100s

FOR PRIMAR

GSET

ORS

120 NO ERROR

JSR

PC.DTASTS

;GO VERIFY
R?SULTS OF onrn

ERROR
JSR

PC,3(SP)+

‘ERROR 8
INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

JSR

PC, SECERR

:GO CHECK FOR SECONDARY
ERRORS

NOP
ERROR
JSR

001400

WRITE COMMAND
PRIERR
:GO CHECK

SuB

PC,J(SP)+

NOP

1208:

; E ua HERE IF ERR
R DEFINED BY ca

;RETURN HE
F ERROR
‘ERROR
# DEFINED BY PRIERR SUBROUTINE
1GO encx FOR MORE ERROR CHECKS

108

COMPLETE

PC GET
90¢

L00s

JSR
BR

: VERIFY RESULTS OF
JSR
PC,

IMP

1808

1108

180s

1208

oC. J(SP)+
1808

;GO TO 180% IF ERROR WRS FOUND
0 1108 IF

s RETURN fiERE IF ERROR
;GO0 T0 1

TRANSFER

ERROR

IF ERROR WAS FOUND

GO TO 1303IF NG ERROR

s RETURN hcns IF
:ERROR ® DE rx D BY
CERR suenourxms
: GO ancx r
ERROR
CHECKS

S IF ERROR WAS FOUND

s RERD HERDER AND onrn FOR sscroa JUST unxrrsn

001404

MOV

8RH! GO, RMCS10

B8R

JSR

130:

;G0 10 xfios xr

ERROR

1808

;GO TO 1605 IF ERROR WAS

MOV

NOP

104000

040326

ERROR
MP

NOP
ERROR

040S12

7641 032322 000137 032556
7646

I12

-NOV-77
nnr HCE,

sWAIT FOR WRITE COMMAND TO COMPLETE AND RERD_STATUS
JSR
PC, TIMOUT
WAIT FOR COMMAND

7607 032244 000137 032556
7612

ows)

NOP

032556

032222

000240

1040
000137

;ggg

MACYI1

1308:

JMP

READ HERDER 8 DATA COMMAND

ceurrub nneno

CHANGE BUS ARDDRESS

Irt Rscxsrsns VIR PUT suB

N chs 5‘

OR DEF INE

ev pur SuB

:WARIT FOR RERD TO COMPLETE AND GET STATUS
JSR
PC, TIMOUT
“WAIT FOR READ TO COMPLETE

JSR

NOP

PC GET

1408

RERD 'REGISTERS VIR GET SUB

:GO TO 140; IF NO ERROR
:RETURN

HERE

ERROR

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:1
7649

7650
;E’,_?,é

032376

104000

032400
032404

000137

(£32556

7654

032404

004737

7655 (032410 000405
2656
03241 000238
7657 032414 1040

040512

7658

7659
;22?
7662

032416

(032420
032424

004736

000137

032556

7664
7665
7666

032432
032434
0324940

032737

001034
004737
00040S

000200

7668
7669
7670

032944
oaewgg
032v

104000
004736
000137
81373;
137
052737
013737

7653

7663

032424

7667 032442 000240
7671
7672
7673
7674
7675
7676
7677

032454
ose-«;g
03Y4
032476
032504
032612
032520

;g;g 032322
;28? 032524
7682

013737

013737
1049394

032556
001344
001344
103570
104574
032560

7686
7687
7688

032534
03263
032540

104000
004736
000137

032556

7693

032544

006337

032560

7696

032556

7685 032532 000240

7689

28as
7632

7694
7695

032544

032550
03552

001404
000137

;ggg

03250

000465

7693

032560

000000

7700

7701
7702
7703
7704

032562

0325
032670

1408

012737
012737

JMP

. ERROR DEFINED BY GET SUB

GO TO 180S IF ERROR WARS FOUND

JSR

1sb

JSR

PC,J(SP)+

BR
NOP
ERROR
Jne

001344

)

DOl142
001140
001140
001174
001176
001200

;GO CHECK ron mxnmv ERRORS

1S xr NO ERROR
;ssnaon
RETURN s (%R; T0
IF
E
INED av ansnn SUBROUT INE
encx ron MORE ERROR

1808

150¢:
: VERIFY mm HERDER conme ERROR IS SET
BIT

BNE
JSR
BR

NOP
1558:

ERROR
S
JnP

MOV
MOV
BIS
MOV
MOV
MOV
ERROR

8HCE
, RMER1 I

1608’
PC,.DTASTS
155%

PC,a(SP)+
1808
n m} gaoom
eur
+2, smpo
BUF TWO+2' STMPI
mos STMP2
344

180%

1608:
: CHECK FOR OTHER ERRORS

041344

;1S_"HCE" SET??

YES!
;GO vsnx#vRgsuus OF DRTA mnusrsn
o 1sss xr NO ERR
RETURN kns

smon "
:GO encx

r"%gsav Rgogsrs
suenounns
smon uas FOULND

necx o smrus FOR TYPEOUT
{EXPECTED STATUS
sWRITTEN HEADER
:READ HERDER WORD
'FAILING BIT POSITION
:FORMAT ERROR NOT SET

PC, SECERR

;GO CHECK roa SECONDRRY ERRORS

ERROR
JSR
IMP

PC,(SP)+
1808

"ERROR # DEF INED BY SECERR SUBROUTINE
GO ancx FOR MORE ERROR CHECKS
:GO TO 1808 IF ERROR WRS FOUND

NOP
165%:

CHECKS

T0 1808 IF ERROR WAS FOUND

JSR

165§

T0 1658 IF NO ERROR

;s RETURN hcne IF ERROR

:ADVANCE THE BIT POSITION AND FORMAT NEXT sscvon IF NOT DONE
ASL

032004

180$:

908

200§
:

010000
177776

1808

SEQ 0152

:VERIFY THE
RESU#TS
or Reno OPERATION

B8R

004737

00405

23-NOV-77
12:38 PRGE
}52
FORMAT HCE, SECOND HEARDER WORD
ERROR

000415

032524

032630

735

053016

7683

7684

MACY1l 30(1046)

J1e

001432
001402

:
:

BEQ
JHP

2008
108

190$

sSHIFT

2408

; JUMP OVER STORAGE

. WORD

MOV
MOV
MOV
MOV

TO NEXT BIT POSITION

exxr IF DONE
GO DO NEXT SECTOR

s STORRGE FOR BIT POSITION

80, RMDCO
80’ RMDRO
8FAT16, RMOFO
8-2,RMUCG

sREFORMAT THE SECTOR IN 1& BIT MODE
secron o TRRCK 0, CYL O
116 81T MOOE
12 HERDER WORD3 ONLY

CZRMDBO RMO3/2 FCTNL

CZRMDB. P11

23-NOV-77 12:19

7705

03°S76

7707

03261

7711

7706

7708

TST 2

OuscoON

012737

ooooes

737

4000

737

03061

7709 8%33 S4130
7710
6oo-+o~4
7712

7713

7714

77312

O §

103566

012737

1
15

;

03662

MACY1l

30(1046)

T3S

001404

23-NOV-?7

032636
oooogg

1i 4"

JSR

ooxsos

7718

115722

000032

7220

032670

112722

000002

112722

000200

2108:

{ERROR &

032674

112722

7723

032704

004737

032712

000240

032700

7724 032710 DOO40Y
7726

032714

00OCO0M

000000

2108

ggx

:Punnfini

MOVB

7727
8322715
000137
032732
7728
722
000240
7729

032724

3335

032732

7730

032730

DO4737

000240

040326

,(n

#RMCS], (R2)+
PC,PUT

220s

240$

JSR

PC, TIMOUT

JMP
NOP
NOP

; PUT NEWTEST

HERE

DEVICE F

Bfa ?u

EST

TO 2108 IF NO ERROR
IF ERROR

DEF nso BY TSTPRP SUBROUTINE

:GO T0 2108 IF ERROR WAS FOUND
:SET GO

BIT

; TRBLE ADORESS

;
;

;

TERMINATOR

0 WRITE REGISTERS VIA PUT SUB

;GO TO aéo$ IF NO 5 OR

ERROR

7733

(R2)+

8200, (R2)
+

2408 :

MOve
NOP
2208:

8&28 (R )+

SRMWC . (R2)
+

JSR

104000

8WH' GO, RMCS10

MOVB

037766

RETURN

Jnp
MOV

. PREPARE '

ERROR

MOVB

7722

ésfipo : TRSK DESCRIPTOR

7719

7721

%wg

unps u; auo onm COMMAND

. WORD
BR
MOV

2008

SEQG 0153
BUFFER ADDRESS

ow RMCS10

ISR

001400

153

8BUF ONE , RMBRO

MOV

7717 03,654 115725 39
112722

PAGE

NOP

8512“
03cubd

Kle

FORMAT HCE, SECOND HERDER WORD
MOV

001400

12:38

iR
s URN HERE

IF ERROR

ROR DEF INED BY PUT SUB

;GO TO afios IF ERROR WAS FOUND

:WARIT FOR TIME OUT

czmo RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19
?7

723

77237
7738
7739
7790
7741
7742

;;:3

000240

794

709
01003
00S710
001402

0327

032754
032760

MACY11

30(1046)
T35
SEOSP:

013700

001450

000137
012737

007124
001452

NOP

MOV

002
1450

SBTTL

R;fl?
QUE+2,

7747

;#TYPE_"END PRSS

s B

7749
;;ss?
032766

7754

£l2

SEOP:

032

%1115

772 033000 o33, 0915%
7759
8%%
377 100000 001230
7758
033012
7759

033014

7762
7763

033732
033024

7764

033026

7766
7767
%,sg

0330S2

7765

033032

033052

SEOPCT:

000001
033014

SENDCT:

80395;
1273
104401

0004

01374

033034

g4s:

77?0 033056 10440S
7771 0330 104401 033066
7772

033064

7774

033130

7775

000421

7776
7777

033130

01374

033134

104405

7780

033133

7783

03313

7778
7779

7781
7782

7784

7785

033136
033142

104401
005037

0331
033154

001405

0331

033162

013700
71

033164

000240

7788

033166

000137

7789

033166

033170

..678:

001126
001217
001126

000042

057364

e
51c
DEC

.WORD

BGT
MOV

.WORD
OPCT

.RSCIZ
MOV

TVPDS
TYPE

bEs:

sr?mn

Spanc>
.108800
SPRSS
(PC
|

$DOARGN
(PC)+,d(PC)+
|

SRTNAD:

. : ZERO THE

TEST NUMBER

iO
T e PSS NURBER
:;DON'T
ALLOW
A NEG. NUMBER
:LO0P?
s s YES
. 'RESTORE COUNTER
;s TYPE

ASCIZ STRING

GET OVER THE RSCIZ

<13>¢15>/END PRSS’s
$PRSS, - (SP)
,,gmgs
roa rvpeour

678

.,YEEE- cy«m ASCII WITH SIGN
¥ YPE

MOV

SERTTL, ~(SP)

,.;avc SERTTL

TYPE
CLR

SCRLF
$ERTTL

YPSR
cfi

BEQ
RESET

$DO0AGN

JSR

NOP

.WORD

842 . RO

PC, (RO)

;60

NOP

IMP

GET OVER

A cxz

TOTAL ERRORS SINGE LAET REPOR

NOP

$DOAGN:

CIMAL NUMBERS

b6S

_RSCIZ

$GETH2: MOV
SENDRD:

658

NUMBER OF ERRORS SINCE LAST REPORT YYYYYTM

TYPDS

000240

7766

7787

YYYYY RR

YPE

.. 658:

001230

NOP

CLR

7773

#XXXXX mr

RE XXXXX

:#IF THERES
R normon GO ro 1T
:#IF THERE ISN'T JUMP TO SHUT

7752

7760
7761

[y Y Y R Xy XY Yy Y:yzyI Iy ZZIZIIZIXIIZYZXTIXIZEIZYIYZRZRZRYZRZRIZZZYZ2XTZ
R}

i NCREMENT THE PRSS NUMBER (SPARSS)

7748

7783

TSTQUE

ero OF PRSS ROUTINE

7748

7746

SEQ 0154

82,R0
RO TSTQUE
b

JnP

1$:

12:38
PRGE 154
SECOND HERDER WORD

rsroue RO

RDD
MOV
TST
BEQ
001450

L12

23-NOV-??7
FORMAT HCE,

nomr

SHUT

Rsrunu LINE FEED

nooness

F NO MONITOR
c sm ms WORLD
TO MONITOR

,,snvs ROOM
PIACTLL

Q(PC)H+

FOR TYPEOUT

R OF ERRORS
CIMAL RSCIT WITH SIGN

: s RETURN

CZRMDBO RMO3/2 FCTNL TST
2
CZRMDB.P11
23-NOV-77 12:

Y b

<290
791

033172

377
033176

377

MACYLl 30(1046)
23-NOV-77
END OF PRSS ROUTINE
000

SENULL:

.BYTE
.EVEN

12:38

-1,~1,0

PRGE

1SS
+ iNULL

SEQ 015S
CHRRACTER

STRING

CZRMDBO RMO3/2 FCTNL

CZRMOB. P11

TST 2

23-NOV-7? 12:19

MACY11l

;;%
7

30(1046)

23-NCV-??

.SBTTL

SUBROUTINES

'48TTL

2797

TYPEOUT ROUTINE

7801

7802

wnxmso on me

7803

;lOf‘

;382

: #ARE

7804

Su
033176

033176
033°10
03. J6
033210

104414
032777
001402
000137

033726

7813

033214

104401

001217

03" 20

104401

020000

145746

is:

033742

768°2

00S037

09401

7803 03scS2

7624
76825

013737

033732

001226

033750

013746 033732

02
0.

&
74

113737
00146

001130

7832

033302

01374

033734

7634
783S
7836

8333%
3310
03331}

104403
003
000

7833

7837

033312

104401

033767

033322

104403

7842

7843

033325

001

7844

784S

033326

005737

033734

7840

033332

033334

104401

001217

(033340

001575

105037

BYTE

CLR

033734

MOVB
BEQ

033760

7840

7847

TYPE

MOV

003

7828 033316 013746 001132
7839

MOV

BYTE

7829
7630

055276

MOV
TYPOS
.BYTE
BYTE

060

768 083 52 00S03? 033734
7831

wpe

TYPOS

032"

(3. bl

SAVREG
BIT
esa
Jn

104402

7626

7827

éssé“‘?
“:

CLR

033732

TYPE

2s:

2 g.i
R

THE

mon HERDERS ANO ERROR DRTR
muxan
ES

, $CRL

‘ER oo

tumr -(SP)
3

TSTNMB

sresm TSTNMB

Tvol

?smne -(SP)

s TYPE a«fl

§$x§ ‘T FOR ;YPEOUT
: GO PE--OC¥F& RSCI1
;;rv
xcé (§
iig
sS LERDING ZEROS
:(ORD TEST

ERRNMB

$1TEMB, ERRNMB
2s

ERTYO2

7 ms FOR TYPEOLT
sr wnez
mé RSCII

ngmzjg

KIP

23
O

: 160
DTy
235

TST

ERRNMB

TYPE

SCRLF

CRLLED

TM8 FOR TYPEOUT

vE‘ ~UR NUMEER

E--0CTAL
RASCII
gxcén )
S
RDING ZEROS

:yPe =pCz~

::GA

:TYPE
,,g?o

'BYTE

NO ERROR

‘¥yPE "EQN

TYPOS
.BYTE
‘BYTE

ERTYO3

ROING zznos

{ro sanon NUMBER
;;savc £

tsnnpc -(SP)

NUMBER FOR

; TYPE ~TSTe"

§a

ERRNMB, - (SP)

TYPE

TYPEOUTS??

resr NUMBER, egnon NUMBER, AND PROGRAM COUNTER

MOV

INFORMATION

ERROR MESSAGE.

#5W13, ISKR
xs
s

TYPOS

033740

AN ERROR RS FOLLOWS:

neu:o FORMATTED AND PRINTED ON

TYPE uun nunee

;gig 03aceN 013746 001234
7817 033230 104403
7818 o;aegg
00
7819 03,
008
7821

SEQ 0156

n TE T_NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE

PRINTED

ERRTYP:

7638
7829
7810
7811

7620

156

RSSEMBLES AND PRINTS

.Recmoxm THE DETECTION

7800

7814

PRGE

ERROR TYPEOUT ROUTINE

;#THF ERROR

;;38

7812

Nle

03036383806 3 30 36 36 98 06 08 3 30 3 3 98 3 8 38 48 3 3 35 3 05 96 3 36 38 3 3 % 3 3 3 % 3% 3 3 B % % W %% % WK NSRS EEEER

;Zss

7817

12:38

srmc FOR TYPEOUT

F {OGRAM COUNTER

vpz--?jmg

RSCII

LEADING ZEROS

: GENERATE POINTER TO ERROR TABLE Omz S Ef OR NUMBER IS O

3s:

BEQ

CLPB

218

BOTFLG

;WS ‘AN ERROR CALLED?
*NO

vss TYPE CRLF

iCLEAR 80T FLAG

;715:19

05037

033344

8rio0:

MACY11l

30(1046)
ERROR TYP

033741
033734

B13

Bt P

001554

CHRCNT

MOV

ERRT#S,
RO

ASL
A

ADD
MOV

;CLERR CHARACTER (O
UNTER

: TRBLE

8SERRTB-B. ,RO
(RO),R1

BEQ

MOV

6S:

83360}

ELEELE
RR

K,-)

100

iz
1
1

033741

;['31

033544

17727277

033740

90s:
108:
118:

(=]

—

8’ ,R3
qs
R2, BOTRDR

BHI
MOV

S
aoInon RY

CLRB

LHRCNT

INCB

cnpg

MOV
BR
CLRB
MOVB
TYPE
. WORD

7578

XT CHRRQCTER

N. TRB??

ROJUST CHARACTER COUNT

; INCREMENT CHRRACTER COUNT
;rs‘z'p(':gn
;
VE MSS OF SPACE

I'O OF LINE??

czgs..
co
D R FOR TESTING

118, R2
cs
Z(RY)
s-1,B0TFLG

Rir ao? ?f%

BOTFLG

uns R TRe
gsuucn?soag

SCRLF

i TYPe ERROR

;YES-T

; CLERR

MOV

gornon,na

;

MOVB

8’

1518

CHAR COUNT
*Em

4., CHRCNT

RLF

TRING"’

CMRIRGE RETURN??

B0TFLG

MOV

CHRCNT

CLR

RS
NLE
A AV 4RY

crP8
BNE
MOV

TYPE

883

O
W

m S _OF PfiSSRGE STRING
gm ME SSAGE
OF STRING

(R2)+,R3
1
sCR,R3
s
CHRCNT
33
aLF,R3
3
#HT,R3
8s
CHRCNT
87, CHRCNT
78
9%

BEQ

12%:

8ot

PQINTS TO ERROR MESSAGE
H IF NO ERROR MESSAGE

MOVB
BEQ
cHPB
BNE
CLRB
BR
cHP8
BEQ
CMPB
BNE
5"03
17
BNE
BR

?Y?E

ClJa;l?

Ll
= [ @ TS Y Y

: iS
:
QS 2?3%

7S:

8s:

033741
000040

Y8R

033741

CLR

SEQ 0157

;RO POJNTS TO FIRST
FOUR NTRIES IN ERR OR

: TYPE THEEERROR 33
4s:
MOV
TS ?Q?Sa

SR L GRS

CZRMDBO ~M03/72 FCTNL T
CZRMOB.P11
23-NQv-7

CHRCNT

2,118

;

(R2)+

-(R2)

:
:

; TYPE ERROR HERDER AND ERROR DARTA

N1
TM

STRING

CRLF

BOT FLAG

HARACTER COgET

CZRMOBO RMO3.2 FCTNL rsr 2

3-NOV-77 12:19

CZRMDB.P11

-NOV-77
nounné 12:38
rvpggur

MACYL1 30(10%)
13%:

;& 8 016001 000002

we
P BEL B
7308
i
6%
5300
w
833258
7911
14

ws:

7914 83%:2 83386

1SS$:

;’3{5

7915
iy 68;40 001217
7916
S0
705
7917
52
7
7918
)
791
%
0l
7920 033660 105725
7321

7824
7925

;gs;

’?3
R

033672

168:

178:

Yo 063:“03

(033702

A8
R B
793;; 033724 oooztlog

7935

109401

188:
198:

001217

oA Gy
xms DATR RDDRESS TABLE
mg
&o%?ém“#m

.usgo

;HERDER RDDRESS GOES HERE

TYPE
TST
Q
v
MOV
3 (]
1

TYPDS
B8R

MOV

BN
BR
MOV
TST
e

?Evgs

000043

ERTYDO:

ERTYOLl:

.RSCIZ

(033760

020054

051106

021522

0S4

0SOOMC

036503

040

000040

7949

7950

(337

7952

(033774

7951

7953

7954

03376

033775

000

RCES

0S2111

062123

~TYI

YfiTao

.WORD

CRLF

GINNING OF TEXT ARDDRESS

mnt“ga COUNT

.ASCIZ

SUNITs3

ERTYDR2:

.ASCIZ

ERRs3

ERTY03:

.ASCIZ

PC=3d

ERTYOM:

.ASCIZ

.EVEN

ONE BLANK LINE

Ec
OR NUMBER

SYTE

HRCN

042524

aogrvoq

nons DATR??

eo;rL

047125

19%
3(R4)+,-(SP)
(RY)

s TEST NUMBER

033742

794

3(RY)+,-(SP)

000000

;333

:
DECINAL
el

.WORD

ERRNMB:

19%

: BINARY

TSTNMB:

033736

(RW+,-(SP)

1NO?
'RY bomrs 70 onm nooasss
:RS POINTS TO FORMA
‘WHAT KIND OF onm"

;g::g

77345

;DATA WITH HERDER??

Rp2REC

YPE

000000

SCRLF
R2
14
(R2)+,RY
(R3)+.RS
(RS)+

(nssurt Em or omm

G
:BEFORE NEXT HERDER

218

033732

033734

;R1 POINTS TO ERROR HERDER TRBLE

Cidy s
2Ea8)ga
tRoaf
21§

7940

7941

2(RO),R1

SEQ 0158

o
. lys

208:

7938 B9 b3

PRGE 158

e
:ox
moy
BEQ

1
000M0S

&Jowoz
0134
7931
714
23 Bk
%
0337{0 O0iugs 033775
A
7328
7929

MOV

Cl3

3, TEST#d

CZRMOBO RMO3-2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

MRCY11l 30(1046)
23-NOV-??
12:38
TEST PREPRRATION MODULE

.SBTTL

7
7959

;
:

ggg?

7962

7963

JSR
. WORD
BR
NOP

ERROR

7973

gir 13

gxr 11 = 1

BIT

7975

7976
7977

;
:

7979

797

7980
7882
2983

7984
7385
7986
7987

;989

034000

7990

7997

034022

7999

(34032

7996

8000

8001
8002

8003
8004
800S
gggg

030

032737

100000

045206

00114

034036

000411

0340

062716
113776
000137

034040
2

034

034712

8010
8611

Pncx ACKNOWLEDGE IF VOLUME
NOT VALID

kESERVS" Rgh Enxvsccffks

RECRLIBRATE IF POSITIONING IN PROGRES:

BITe

VERIFY

BIT§4
BIT g

=1
=1

VERIFY PACK QCKNOHLEDGE
VERIFY RECALIBRATION

BIT §

:
:
:

BIT
BfT 1
Bit O

(RESERVED

ONTROL
F

R CLEAR OPERATION
IVE CLEAR)

o
(485
ROVE
B ¥6 LSERS ERROR CALL
CLRB
atép)
"bsgflssnaga qtka
sU8
(SP)
NO
OR RETURN
Illll!lllllllll!‘llIIII»II!lllli!lil&llllllllllllllllIlll!l)llli

QELECT osvxce RND VERIFY DEVICE “VfléLnetE IF_BIT 15 SET IN TASK
8IT

BEQ

JSR

000401

000004
039042
034700

: STORE Tnss oescg%QEOnggg CLERR g;en's snag?PgnLL

BR
108:

000000

20S:
308:

8708

8009

BIT 12 = 1

TSTPRP:

53ad B3RP 842877 BB%R%
7993 0340l2 105076 000000
7994
034016
162716
000004
7995
799%

gELng oc¥rchnfio VERIFY g$vxcs
IS AVAILABLE

BIT ?

;
:

TRSK/VERIFY ? SCRIPTOR
RETURN
RE
NO ERROR
TURN HERE IF ERROR

BI} ig = i

IT 10
BIT 9

;

7981

EXECUTES

ERROR DEFINED BY MODULE

: TRSK/VERIFY DESCRIPTOR

2974

SEQ 0159

MED, WHICH THE MOOULE

PC, TSTPRP

7970

;3;5

159

TEST PREPARRATION MODULE

FIE

:
:
:
:

;ggg

PAGE

THIS HOOULE PREPQRES THE RMO3 SUBSYSTEH FOR THE EXECUTION OF A TEST,
8R
?R 32 THSFSSER IF AN ERROR I
ETECT D.
THE USER

7864
7965
7966
2967

D13

BR
. WORD

RDD
MOVB
JMP

#8]T1S, 5008

VICE??

PC, DEVSEL

#4, (SP)
xot 3(SP)
ooé

: TRANSFER ERROR TO USER

582

ECT DEVICE

- CONTINUE

snnoa NUMBER FROM DEVSEL

nnuuuuuunnnnununununuunnuuuuuuiu

034062
034070

032737
0D0Iw53

040000

034712

éLenR CONTROLLER IF BIT 14 IS SET IN TASK
BIT
BEQ

.26714, 5008

CLERR CONTROLLER??

004737

MRCYL1l

3? (1 046)
23-NOV-77
12:38
ES T PR EPARATION MODULE

JSR

o46660

000411

830000

000004
034102
03470C

—

ReoZR

G955%

Dot Pt Pt Pt Puma

034100

000000

40S:
S0Ss:
608:
S

a3471e

000004
034176
034700

160

SEQ 0160

1 GO CLERR CONTROLLER

PC,CNTCLR

282

:CONTINUE - NO ERROR

. WORD
ADD

84, (SP)

;ERROR N®NTn FROM CNTCLR
! TRANSFER ERROR TO USER

MOVB

JMP

408, J(SP)

400¢

NN RN R RN

70$%:

-0

90S:

JSR

PC GET

. WORD

ADD

MOVB

IMP

120$:

C,GETSTS

gos

#4, (SP)

708.3(5P)

4004

INO!

Y??

'SETUP INDEX TABLE
G0 GET STATUS

'NO ERROR GETTING STATUS
;;Rnoa FROM GETTING STATUS

:TRANSFER ERROR

TO USER

:GO VERIFY STATUS CLERR

PC,CLRSTS

ifgg

INO ERROR IN CLEAR

. WORD
ST

(SP)+

; ERROR é" STATUS CLEAR
:STRIP
RETURN RDDRESS TO
:SUBROUTINE AND TRANSFER

RDD

84, (SP)

IMP

4008

1008, 3(SP)

RESRRARSRER

JSR

MOVB

000000

;s VERT

# 0s

gg
80S:

seIT

BEQ

JSR

000000

PRGE

B8 17

RRsaay
Bl

000004
034146
034700
046776

EL13

;VERIFY CONTROLLER CLEAR IF BIT6 SET }N TASK

037432
037516

§§§§§§§§§5§

000100

SINEN
WWw
Nw-d

n
n

B
BTHRE FINFRIBE
EE RN

A s2rRs8sE

OO NN LW

CZRMDB 0 RMO3/2 FCTNL TST 2
CZRMOB P11
23-NOvV-77 12:19

:ERROR TO USER

o o 23030030 30 36 30 30 00 06 30 00 3830 06 38 0% 06 3% 36 38 3 38 3 3 36 36 36 96 36 96 0 36 38 3 36 06 38 08 96 90 38 06 00 36 0 36 36 36 36 38 3% 36 3 3 3 o €38
3 5

NNNN
L)
-~

SRR

S92vy
204941y
&£

010000

034712

00001e
000200
037516

001506
001507

BIT

BEQ
MOVB

MOVB
JSR
BR

. WORD

ADD

MOVB

001342

BIT

888023

000000
000200
037766

000004
034342

[T
<
WwWwo
oo

000000

o
bma ps

034254

888

-n8
[

wn
NN
N (O e
oo

8064
8065

8061

3 B2

8054
8055
8056
8057
65

LY
BE2RRISIRIIAIYf

8051

206
L£rL BYY YRR eeR

EEX$CSEE PACK RCKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS

000G00

sBIT12,500%

2408
SRMDS c;rxnx

8200, SETINX+1
PC,GET
150s

:NO ERROR GETTING RMDS

84, (SP)

: TRANGFER ERROR TO USER

1408

130s,3(sP)

MNP

400$

BNE

240%

CLR

MOV

MOVB

: PACK ACKNOWLEDGE”??

HD
:GET RMDS

SVV RMDSI

252&28

: IS VOLUME VALID??

SYES!!

:CLEAR MEDIA ENABLE

K!GO,RMCS10

<LOAD PACK ACK COMMAND

oRncs$ PUTINX ~ ;SETUP REGISTER INDEX TABLE

MOVB
JSR
gg

8200, POTINX+1
pC,PUT
iggg

;GO WRITE COMMAND
'NO ERROR LORDING REGISTER

. WORD
ADD

#4, (SP)

;ERROR FROM PUT SUB
:TRANSFER ERROR TO USER

MOVB

1608, 3(SP)

CZRMDBO RMO3/2 FCTNL TST 2

CZRMO8. P11

eosg
ggf?,o

23-NOV-7?? 12:19

034356
034360

MACY11l 30(1046)

8075

000SSO

1808:

034360

3533

032737

wg;

(034422

(034426

808S Sg;-mg
8636
8087 (034434
8088
8089
8090
%gé

000020

037432

034712

034436
034442
034450
G34452

BO99

8100
8101
8162

8103

3{%

PARGE 161

4Yo0s

004737

00041l

005726
osgns
113776
000513

:VERIFY PACK ncxnou;feoce IF #BITY SET IN TASK
BIT
s8] T4, SO0S
s VERIFY PACK RCKNOWLEDGE??
?so
su 2‘
INO!!

1908:

83950% 000000

2008:

047656

2108:

000004

034432

2208:
2308:
000000

2408:

8093

8095
8036
8037

F13

HH P Y Y Y 11Xz 222222221222 x22x2222:2X2:2:X2:2XTXX2X2222X222XX22X2XT2 XXX

£ Grioe
S GOg40)
T e
B8
8C79 0O3w40M 000000

8080
8081
8082
8083
8084

12:38

TEST PREPARARTION MODULE

8071

8072
8073
8074

23-NCV-7?7

C,GETSTS

B
BR
308
. WORD
RDD
MOVB
BR
JSR
BR

BR
.WORD
TS7T
RDD
MOVB
B8R

#4, (SP)
wo;,a(sp)
400
PC,ACKSTS
240s

2308
(SP)+

84, (SP)
400$

2208, 3(sP)

:SETUP FOR §Tmus

%8 BRhod
e iine srarus
[]

:ERROR FROM GET SUB

: TRANSFER ERROR TO USER
:GO CHECK ACKNOWLEDGE

:NO ERROR

s PRCK RCKNOWLEDGE ERROR
:STRIP RETURN TO SUB AND
:TRANSFER ERROR TO USER

HH Y YY1 222z2; 22Xz 22z221z22:1222X22222222X22222
222222222 3

Q344
oa«%
03«%
034
034476
G.
034510
4

032737
001513
112737
112737
004737
000410
000401
000000
“’53%.‘-’

113776

00M000
000012
006200

037516

000004
034506

034712
001506
001507

*RECALIBRATE DRIVE IF BIT 11 SET IN TRSK AND PIP IS ACTIVE

2508:
000000

2608:

BIT
BEQ
novg
MOV
JSR
BR
BR
.WORD

881711, 5008
8RMDS , GETINX
8200, GETINX+1
PC,GET
2708
2608

BSVB

RDD

410$

84, (SP)

,3(SP)

s RECALIBRATE??
INOY!
:LORD REGISTER INDEX TRBLE
;GO GET RMDS

:NO ERROR GETTING RMDS
;ERROR FROM GET SUB

: TRANSFER ERROR TO USER

8106
034N g?:{?"
020000 001342 2708: BIT
8107 8&2%
I
BEQ

sPIP,RMOS]
wé:og

8109
8110

.ancs$ PUYINXTM
8200, PUTINX+1

;AND REGISTER INDEX

300%

:NO ERROR

8108

034542
034£s0

8111 03456
8112

8113

8114
811s

034564

Blle

034574

8118

034604

8117

g{ég

12739 000007 001400

112737
66-4 g;

000410

000000
200

83:70755

113776

034602

0004%

034610

004737

000004

034566

000000

037432

8123

JSR

280%:
2908:

3008:

040326

8lz2l

gl22

MOVB
MOVE

0004G]

gggoo
16

MOV

001535
001536

.WORD
AOD

SRECAL
' GO, RMCS10; LORD RECALIBRATE COMMAND

PC.PUT
2908

84,

(SP)

MOVB

280$,9(SP)

JSR

PC,GETSTS

JSR

400$

PC. TIMOUT

HH Y 22X 2221222222222

O034el4

032737

000010

034712

1SINO! !PIP ACTIVE??

;GO 1SSUE RECRLIBRATE
:ERROR IN REGISTER TRANSFER
: TRANSFER ERROR TO USER

;SETUP _FOR STATUS

TWAIT FOR COMPLETION
222X222X22222XX2222XX2X2X222222 2220

:VERIFY RECALIBRATE IF BIT 3 SET IN TASK
BIT

¥8173,5008

; VERIFY RECALIBRATE??

SEQ 0161

mogop

o328, hC Ny 13T 18, 19

(D a0 0D 0D 0D 0D GO G A D GO (D 0D COAD GO D GO0 DD B

L&)

RMOBO RMO3/2 FCTNL

157

MACY11

0014

i52
ekt %
B oarsie
153 8633
128

039N

xgo

833&“

132

034652

737

1IN

OMeRd

129
131

133

062716 DOCOOM
1

034634

3108:

000000

050452

Q34700

162716

140
141
142

034704
034706
034710

000240
DOOSHO
000207

149

034712

000000

3208:
3308:

23-NOV-77

000002

w0OS:

12:38

Gl3

B
BR

,WORD

3333el

MOVB

3603 3(SP)

ADD
BR

JSR

135
Buetd 3788 ooooou
138 034672 113776 034662 00CO0O
139

Qed? Snspsgm?ou MODULE

30(1046)

A0
MOVB
SUB

4108:

NOP
NOP
RIS

500%:

.WORD

PAGE

SE@ ole2

162

NO!!

G0 stanus e
.ERROR FROM GET

4. (SP)

'YRANSFER ERROR TO USER

PC.RCLSTS

;G0 CHECK RECALIBRATE

410s

3808

'NO

ERROR DURING RECALIBRATE

4 (SP)

?Rnnsrss RNRO T0 DsER

.RETURN TO USER

3408 2(SP)
2. (&P)

.MOVE SP BACK BEFORE ERROR

. TASK/VERIFY DESCRIPTOR

CZRMDBO RMO3-2 FCTNL TST 2
CZRMOB.P11
23-NOv-77 12:19

MRCYL11l

1:;

.SBTTL

Pt Pt Pt Pos Pt Pt Pt Pt Pt Pt Pt P

OO O NNV
N L £

163

SEG 0163

BRD SECTOR MODULE

;NOT AVAILABLE FOR USE.
ey

INFORHRTION
REO?IRED BY THE MODULE INCLUDES
Rnoao

HE DESIRED CYLINDER

TRACK AND SECTOR' ADDRESS,

Bng‘c‘sxb n:”gng%fl

P
R
TR

ED&DBGQ“}010*43JNDflg%fl£hJ5h43maTQghflIGIUHCLDQ

PAGE

TtE BRaEGI%
: THE BRDsec§ FILE
OR ASSIGN&sos'*agszsfohmséasfi:oa'*?fl
A NEW SECTOR IF THE ONE ELECTED 1S
MODULE CALL

IS RS FOLLOWS,

égn
YPE

LT TR PIETE
TR T

P Pt Pt Pt P

(O (D G 0D €0 O 0 €D €D (D (D 4D 0D 4D €O (D (0 O

H13

; THE BRD SECTOR MOOULE PERFORMS TWO MARJOR FUNCTIONS

NN NNOOC OO
NN

D (D G

12:38

55,
BADSCT
, MESSAGE

ERROR

THE

MODULE

Rnmor
TURN
:igs
}F
ERROR
ng?
TI§E BRD SECTOR FILE
HE MODULE

INTENDED

TO BE

INES

THE ERROR NUMBER

CALLED PRIOR TO CRLLING THE BUFFER

TE
OF ACFORHAT
85r EET%EBU@EUT&NEHE‘“ED ORCE FOR THE EXECUTYON
L5
RO MOV 18, LI SRS TRST AT oM SEERRYER8. g0
iSO THATA REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER.

e Pt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt Pt Pt et P

aDAD 0D 0O (b G (0

30(1046)
23-NOV-77
BAD SECTOR MODULE

8181

034714

BRDSCT:

ELS%E EQERIQEESGEkEB TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES
03“;19

00533?

001474

§i§§ 83:752 I‘Alg; 036140

?fis

B18S

8139

5885

;BRD SECTOR FILE IS AVAILABLE

(22232232223222222222222222
I2S SIS SLL S22 ISSR S X

8{88

034726

8189
8}90

03“;26

kiCOVER THE BRD SECTOR FILE FROM THE LRST TRRCK
;SAVE

010046

Slgé
83:7
8?2828
001400
103566 20S$:
8193
034?40
062700
000002
8194 034744 022700 000046
g}gg

034750

103370

8197
8198

034752

012737

000003

036605

8200

0347e6

012737

001466

001434

8193 034760 012737 002000 001406

THE USER’S PUT BUFFER
gox
RO, ~(SP)

; ;PUSH RO ON STRCK

MOV
RDD

EBTBUF(RO) BUFFER(RO)
ADVANCE TO NEXT BUFFER POSITICN

BHIS

208’

CMP

lHé RO

END OF BUFFER
NO

; SET RETRY COUNT RND LORD PUT BUFFER QNO REGISTER
MOV
0} 3
RETRY COUNT

MOV

MoV

IOfi?OOO RMDRO
#822. ,RADCO

INCEX TRBLE

iSTARTING SECTOR ADDRESS
;DESIRED CYLINDER

CZRHOBO RH03/2 FCTNL TST S 3
CZRMOB. P11
23-NOV-77 12:1

8201

MACY11l

30(1046)
23-NOV-77
BRAD SECTOR MODULE

8202
3383

035002
035010

Q34774

81573

677303

8205

035016

012700

001535

MOV

8207

uasogs

112720

MOVB

035046
035052

1127220
112720
012600

000000
000200

8215
8216

035060

004737

037432

8219
8220

035064

012737

000011

8206

035022

012737
012737

112720

0100
101546

01402

MOV

01432
001404

MOV
MOV

000006

8509 03503
115750 9090
8210 83%833 115758 838885
8211
8212
ggia

ggig
8221
ge22
8223
ggsg

8226

035064

035072
035076
035100
035102

035104

8227
8228
8273
8c.J

035110
035116
035122
035126

gsgg

035132

8231

004737
000411
000401
000000

062716

113776
000137
004737
000411

037766

000006

035102
035616
037516

000401

8234

035134

062716

000006

8238

035152

004737

0S2214

eawé

035162

8243

03S16M

8239
8240

8244
8245
gg:g

035140
03Si46
035156
035160

035166
035172
035200

equ

035204

8250
8251

035204

113776
000137
000412
000401
005726

062716
1137?76
000137

035132
035616

40S$:
4ss:

000000

5S§:

608 :
6SS:

000006
035162
035616

PAGE

¥C1C258. +1>,

164

RMWCO

SEG Ole4

WORD COUNT

sFMT 16, RMOF)
sMFGFIL ,RMBRO

116 BIT FORMAT
:BUFFER RDDRESS

sPUTINX, RO

:RO POINTS TO REGISTER INDEX TABLE

SRMDR, (RQ) +

Hove
MOV

SRROS’ (Ro)+
#RMBAR. (RO)+

sRMDC
| (RO) +

sRMCS] . (RO)+
8200, (RO)+
(SP)$,RO

: ;POP STACK INTO RO

INDEX TRBLE FOR choxnc STATUS
JSR
PC,GETSTS
SETUP GET

INDEX REGISTER FOR STATUS

:CLERR THE DEVICE usxnc DRIVE CLERR COMMAND
MAV
#DRVCLR!GO,RMCS10
Lono COMMAND

508 :

70$:

000000

JSR
BR
BR
.WORD

RDD

MOVE
NP
JSR
BR
BR

. WORD

ADD

PC,PUT
45é
40$

86, (SP)

358 .3(sp)
2154
PC,.GET
60%
SS§

86,

IN PUT BUFFER

OUTGSNOMMAND
HERE IF NO ERROR
:GET RROUND ERROR #
'ERROR
8 GOES MERE

:MOVE SP TO USERS ERROR CALL

:MOVE ERROR NUMBER TO USER
GO GET STATUS
,RE URN HERE IF NO ERROR
:GET RROUND ERROR

:ERROR& GOES HERE
(SP)

sMOVE SP TO USERS ERROR CALL

MOVB
NP

s0$,3(SP)
2154

"MOVE ERROR 8 TO USERS ERROR CALL

JSR

PC,DRVSTS

:GO VERIFY
{ -IVE CLEQR COMMAND

BR
BR

. WORD

157

ADD
MOVB
JMP

754
708

(SP)+

86, (SP)
658 . J(SP)
215¢

RETURN HERE IF NO ERROR
:GET RROUND ERROR
"ERROR
8 GOES HERE

;STRIP RETURN TO SUBROUTINE

TMOVE SP YO USERS ERROR CALL
‘MOVE ERROR # TO USER CALL

75$:
032737

000100

8252 035212 00i0S0
035214 012737 000023
8254 035222 004737 037766
8255 035226 00041l
035230

000000

8263

001400

35S

035130

8635
gsgg

30S$:

I13

MOVB
MOVB
MOVB
MOV
:SET GET

12:38

000401

001342

001400

: ISSUE A PACK ncxnouLsoce
BIT
v, RMOSI

BNE
JSR
BR

MOV

xaot

IF VOLUME anxo 1S RESETY
1S
RESET 79

'NO -'
LOARD COMMAND
;GO ¢onnnno TQ DRIVE
RETURN HERE IF NO OUTPUT ERROR

opncncx Go,RMCS1d

ot
858

!GET AROUND ERROR #

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB. Pll
23-N0ovV-77 12:19

825”
8258
8259
8260
8262
8263
826N
826S

MRCYI1

23-Nov-77
BRD SECTOR MODULE

80S:

035232

035234
035240
035246
g3se

000006
03523¢
035616
037516

000000

03s2

12: 38

30(1046)

J13
PAGE

8267

000006
035262
03sS616

8271
8272
8273
8274
8275
82
8277

047656

000006
035312
035616

8279
8280
8281
82
8283

000000

SEQ 0165

;ERROR

. WORD

# GOES HERE

8s5s:

;MOVE

90s:

;GO _GET STRTUS FOR PALK ACK

TO ERROR CALL

;ERROR8 GOES HERE
;MOVE SP

_TO USERS ERROR CALL

:MOVE ERROR & TO CALL

10SS:

JSR

1108:

. WORD
TST

; GO_VERIFY RCKNOHLEDGE STRTUS

{RETURN HERE IF NO ERROR

iGET AROUND ERROR 8
;ERROR8 GOES HERE

STRIP RETURN TO SUBROUTINE
MOVE SP _TQ USERS ERROR CALL

(

ADD

)

JmP

MOov8

000000

TO USERS ERROR CALL

ERROR 8

{RETURN HERE IF O ERROR
iGET AROUND ERROR #

:
1008

1158:

iMOVE

9ss:

8268
8269

165

HOVE ERROR # TO USERS ERROR CALL

120$:

828S

8287

020000

001342

000007
037766

001400

000006
035362
035616

S-ay

040326
037516

~
n
o

035450

035446

5h
Bee0
ot
BOE
%
8
w\l
TR
82rS Sote

8290
8291
000000

;RECALIBRATE THE DRIVE IF PIP
sPIP,RM DSI1
BIT
BEQ
MOV

0s04Ss2

;LORD RECAL IBRATE COMMAND

T THE'RECAL COMMAND
RETURN HERE IF NO ERROR

PC,PUT

1258:

8R
WORD

1308

iGET AROUND ERROR 8
;ERROR8 GOES HERE

130Ss:

ADD

86,

;MOVE SP TQ USERS ERROR CRLL

135S:

145S:

1508:

:
1558
1608:

13$s

(SP)

MOVB

1253. J(SP)

JSR

PC, TIMOUT

1458

JNP

:MOVE ERROR
8 TO USERS CALL

;WAIT FOR RECALIBRATE TO COMPLETE

PC.GET
150s

iGO_GET RECAL STATUS
;RETURN Hi E_IF NO ERROR
:GET AROUND ERROR
# GOES HERE
{ERROR

86, (SP)

1408, 9(SP)

215§

HOVE 70
;MOVE
ERROR

JSR

PC,RCLSTS

;GO _VERIFY RECALIBRATE STATUS

1608

IRETURN HERE IF NO ERROR
iGET AROUND ERROR
;ERROR 8 GOES HERE

(SP)+

; STRIP RETURN TO SUBROUTINE

JSR
BR

000000

oRECRL GO, RflCSlO

;NO

JSR

1408
000006
035416
035616

IS SET
;IS PIP SET

-WORD

MOVB

. WORD

187

168

USERS ERROR CALL
TO USERS CALL

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

8313

035452

062716

000006

ggig

035464

000137

035616

gg{;

035470

8314

035456

113776

035446

MACY1l

30(1046)
23-NOV-?7
BAD SECTOR MODULE

000000

035470

035476

004737

012737

8324
g“*S

035504
035506

000401
000000

8328

03SSI4

035522

113776

000137

035506

8331

035526

004737

040326

1808:

8335 035542 830000
835; 035544 062716 000006

1858:
1908:

8323 035502 00041l

000073

037766

9333 035510 062716 000006
8332
8333
8334

8338

gggg
834]

035532
035536
(035540

004737
000411
0401

035550

113776

035542

035616

035562

004737

053016

8344

035572

035570

338336

8346

03SS74

005726

035576
03602

000412

062716
113776

gaqq

035610

000137

8351

03S614

0DOO4SE

égg% 035616

001400

000000

(SP)

166

SEQ 0166

:MOVE SP TO USERS ERROR CALL

:MOVE ERROR 8 TO USERS CALL

000006
035572

035616

2058:

000000
2108:

215S$:

IDENTIFIED BY RMDAO,

INCLUDING HERDER AND DARTA

JSR

PC,P

onu'co RMCS10

;LOAD READ HEADER AND DATA COMMAND

BR
.WORD

175§

ADD

#6, (SP)

:GET RROUND Enno
:ERROR
8 GOE

INP

2158

JSR

PC, TIMOUT

MOVB
JSR
BR
BR

.WORD
RDD
MOVB
IMP

2008:

JSR

BR
BR

.WORD

TST

RDD
MOVB

1 Os

1708, 3(sP)

PC.GET
195¢
1908

86, (SP)

1888, a(sP)

215%

PC,DTARSTS

2108

205§

(SP)+

2158

240$

:RETURN HERE IF NO rqnoa

;MOVE SP TO USERS ERROR CALL

:MOVE ERROR 8 TO USERS ERROR CALL
;WAIT FOR READ OPERATION TO COMPLETE

‘GO GET STATUS FOR READ OPERATION
'RETURN HERE IF NO ERROR
:GET AROUND ERROR #

'ERROR8 GOES HERE
:MOVE SP TO USERS ERROR CALL

:MOVE ERROR 8 TO CALL

;GO0 VERIFY RESULTS OF READ OPERATION

,Rerunn HERE IF NO ERROR
IERROR
# GOE

86, (SP)
2008, 3(SP)

JINP

1PUT COMMANO

'GET AROUND

;AN ERROR HAS BEEN DETECTED

gggg

ERROR
&

HERE

;STRIP nerunu RDDRESS TO suenourxne

:MOVE
SP TO USERS ERROR CAL
‘MOVE ERROR
8 TO USERS anL

IN TRYING TO RERD THE BRD SECTOR FILE.

:THE SECTOR WILL BE RETRIED IF POSSIBLE.

3359

035624

03Skl6

032737

010000

836!
gase

035626
035632

005337
100037

036606

8365

035634

013746

001344

8368

035652

001402

9363

1758:

1958:

83SS
8358

215

MOV

1708:

037516

000137

03SS66

8347
8348

035616

035556

8342

8343

JMP

PAGE

1s$§,a(sp)

;RERD THE SECTOR

8321

gggg

#6,

MOVB

K13

1658:

8319

8322

ADD

12:38

001446

001342

836b 035640 042716 100720
8367 035644 032737 000010 001372

81T

sMOL , RMDS I

;1S MEDIUM ON LINE

BEQ

2308

‘YES 1!

DEC
BPL

S00$
2258

; DECREMENT RETRY COUNT
IRETRY IF COUNT NOT NEG

MOV

RMERLT

BEQ

2208’

: THE RETKY COUNT HAS EXPIRED - SEE¥r
THE ERROR IS MEDIR RELATED
BIC
BIT

. -(SP)

s0CK! thc'Hce-rsh'scn <s
#DPE, RMER2]
s WAS?Hsn R DATA PARITY ERROR ~?
*NO

cznnoeo RMO3/2 FCTNL TST 2
CZRNDB.P11
23-NOV-77
12:19

8363

8370

8371
8372

8373
gg;g

(3SHSY

716

000010

0Jsobe
035664

102?
013746

001372

07 ol
035670
035674

726

082726
001022

MACY1l

2208 :

100010

8333
833%

035676

062737

035712
03571M
035722
035724

001413
682737
1407
012737

035704

035732

Q35742

8391
8392

035742

122737

162716

000002

gggg

035752

001406

O0L3012

001406

000040

001406

000003

036606

000006

162716

2258:

:
035752

035760

122737

103451

000011

035762

032737

8409

035772

012737

030006

000137

(038012

8100“6

9419
g4l

035770
036000

036012

036014
ogggés

8418 Q-

001410
012737

1o%us
15

127

8419

036026
835034

157

gu22
8423

036046
036050

00S301
001366

4ol

8424

IF NONMEDIA ERRORS DETEC1ED

036082

036062

ILE CAN BE RECOVERED FROM

82, RMDRO

; RDVANCE

BEQ
CHPB
BEQ
MOV

230$’
832, ,RMDAO
230$
83,5008

ouxr *r RtL USER SECTORS HAVE
BEEN
REINSYRTE RETRY COUNT FOR THIS SECTOR

SUB

s10., RMORO

304

(SP)

SECTOR RDDRESS

ouxr IF

ALL MFG SECTORS HAVE BEEN

s BACK

TO NO ERRUR

RET Y THE RERD OPERAT]ION

ulbs

SP TO ERROR RETURN

:GO TO MODULE EXIT

0127

140000

101546

002012

001406

000003

035064

BLO
144

036606

HEN
Reno

B8R

7?7777

600002

012701

000006

101546

102556

2558:

THE

USER FILE RERD

THE USER FILE

2sd

nsiouseHFGFIL

nne

HE BRD SECTOR FLAGS OFF

MOV

8002012, RMDRO

;READ

THE

INP

30$

:GO READ THE USER FILE

MOV

374

:WAS

PYES - RERD IS COMPLETE

BEQ
MOV
2508 :

Inptsncnrsg

ELSE
BIT

89, , RMDAO

2604

83,500$

:DUMMY THE BRD secron FILES

177277

OR ELSE DONE
CMPB

ERROR

RERD THE USER FILE IF THIS IS THE MFG FILE

OCl406
sIF

8406

BY1M

;CLEAR MEDIA ERRORS

:BRANCH

SECTOR WAS RECOVERED WITHOULT

;

g41S

‘EE§ '
:
ER2

2408:

gggg

g:{g

#BSE fOPE, (SP)+

:YES - CLEAR PAR

: THE

841l

2308

-(SP)

SEQ 0167

'ARE THERE ANY ERRORS NOT DUE TO MEDIR ?

: THE BAD SECTOR FILE cannor BE READ
S8
(SP
MOVE

00000M

8338

8410

BNE

CHMPB

8297

g:gg

(SP)

167

2308:

ggga 03S746 000137 036602

840sS

5303
MER2I,

PRAGE

: DU
DIR.
nuornea gasn on THE LARST TRQCK

gggg

8401

MOV

(sp)¢

L13

HE
snnons ocrecreo HHILE
TRYINC 10
;cov R THE BRD SECTOR FILE RRE

S}Q% 035736 600137 035064

g:gg

#PAR,

BIC

8377
gg;g
8381

12:38

gxc

837

8380

30(1046)
23-NOV-?7?
BRO SECTOR
MODULE

-(SP)

SYES - 94 IS DISABLED
USER FILE

"RELOAD

: ;PUSH

THE RETRY COUNY FOR THIS SECTOR

RO ON STACK

MOV
MOV

Rég (sp>
2.

1 PUSH
R ON STARCK
‘Aé = NUMOER OF ENTRIES IN FILES

MOV

8-1 MFGFIL(RQ)

;ENTER ALL

MOV

ADD

DEC
BNE

MOV

819, no

8-1"USRFIL(RD)

82, R0

1
2558

#6. Rl

‘RO = RCuUNESS INDEX TO FILE STORRGE
:ENTER ALL

S §u MFG FILE
2

RESS

N USER FILE

,oecae
NT COUNT
ONTINUE IF NOT DONE

:CLERR 1D,

SERIAL NUMBER ETC

CZRMOBO RMO3/2 FCTNL TST 2

CZRMOB.P11

23-NOV-?77 12:19

MACY1l 30(1046)

BRD SECTOR MODULE

ESZ‘ 8%323 82&8 101546
8427

33
3

8436

g-:g;

036068

00SO60

136076

036100
&185

012601
012600

036104

012737

A g

. Ng

8447
8448
8449

2608:

177777

DO1N7M
001400

012600

265$:

MOV
MOV

(SP)+,R]
(S5P)+.RO

; ;POP STACK INTO Rl
::POP STACK INTO RO

MOV

#-1,MEDENS

MOV

CLR

RQ,

R8 -(SP)

aurrsn(no) Pumut

hguilsgc?grfin?nosx
nce RO
3N£
;0

MOV

(SP)+,R0

; ;POP STRCK INTO RO

R R (I T YRR YER SECTOR
0%1&

010246

:LORD INITIAL VARIRBLES AND COMPUTE THE NUMBER OF SECTORS

036210
036214

012701
oao‘x‘oo

000402

03230

g473

036236

1601

010237

036606

ipUs RD 8N ahRk

coM

R'ROo"IC ! a1

R&MB? Pnfin
2°'S COMPLEMENT
R s

MOV
cms

oase ,R1
Os

cmucs WORDS PER SECTOR
xs THERE A FULL SECTOR *7

35“
3iss

}'F«S:Renem FOR PRRTIAL SECTOR

R2 -(SP)

oo
DA
R2 o RO

CLS

"gz
30SS:

3108:

gabegs %;82

BY.cteh)

nox

%& % %83 001400

8‘433
‘mae gal302
Bire B % 833308
p
83

usnschuRm

o B30 00000000005 00 00 35 00 30 A8 30 00 3 30 06 B 0 46 4 40 48 A8 30 06 36 36 98 % 4 3 35 38 96 96 0 36 4 O 33 3 3 38 3 3 3 3 % % 3 5% 3 5 % % % % %%

g?é 8&558 68%7%
8478

n?crn.mm

'YERIFY THAT THE DESIRED SECTOR xéxuor INn-ENnrcNgaos?E?OgaEINE

&323 gng
%
ln
1

8476

SEQ 0168

3008:

Baes
gis»
giszg ga1uad
88128
8462
iss
001402
8469
ew;o

PAGE 168

:SET MEDIR ENRBLE AND RESTORE THE USERS PUT BUFFER

270$:

036140

2488 BR149 BiBTE

846s

M13

2568

8456

8459

Eua

12:38

PED
e

8:??

036136

036140

2568:

102556

112
333 gnw
.B;:.’:é
{15
1 06d massg
8443 = x% 0527
oooo“:ws

8446

23-NOV-??7

3158:

;(S)?l'nncsxo

?'!.?

SuUB

é RO

958
N
INC

B8R

MOV

30S$

R2, S00S

PUSH R2 og STACK .

TRACK

Sfo
Nidze R "R‘gssx K’ sT0RAGE
‘R = NUMRER OF sscr

1§ m'g EEHE%cm ng ESnnnuo 27

5 Rb ZERO ??

.§uemncr onE §scron FROM WORD COUNT

S1r.CREMENT SECTOR COUNT
;SAVE SECTOR COUNT

CZRMDBO RMO3/2 FCTNL

CZRMOB.P11
g:gé
8483

TST 2

23-NOV-77 12:19

MACY1l

036242

012737

101562

036616

8489
8430
gwqgé

036250
036256
036264

013737
013737
013737

001N
00!S
036606

036612
036614
036610

8493
84N

849s

8496
8497
8498
8499
8500
8Sesox

3585

8504

036612

3308:

g‘c%

036

036316

8511

036320

asxg

012701
060100
021037
001405
101002

gs1s
8516
8517

036324

026037

8519
8520

036334
03633

101371
000766

8<.23
g524
g 35

005701

03%

02003

360
036362

000751

036342
O
036

8530

036356

8.9

8S3}
S‘ggfi

001413

g€ 2%
852?
g8

836

SEQ 0169

D SECTOR AND RDJACENT SECTORS IF THE SECTOR COUNT IS
SMFGFIL+14,5408 ;MOVE

THE

MOV
MOy
MOV

nsuoc.geog
A,NDR
cJos, 81

COMPAR
COMPAR
NUMGER

mdv

MOV
ROD
CMP
BEQ
BHI

swog

IFILE T0
L
il
N

STARY

OF MFG

93&:52 $ognc£
gv

ND
SS
K s;c OR RDDRESS
SECTORS YO CONFIRM

SEARCH OF THE CURRENT FILE FOR THE COMPRRING
CTOR RDDRESS

:LORD THE BASE RADORESS IN RO

8¢<(127.#%> /2> Rl
<Rl = LENGTH OF FILE
R}, RO
:START BINQRY DIVIDE AT CENTER
(RO), 5208
:DOES TRBLE ENTRY = COMPARING CYLINDER ?
34S$
PYES !
3408
:BRANCH IF ENTRY > COMPRRING CYLINDER

3408 :

001440
o
270;

103432

';2 RO

105237

:FILE ENTRY ;s GREATER THAN COMPARING CYLINDER SO SUBTRACT DISPLACEMENT
:FROM CURRENT POSITION
Su8

000002

036614

R1,R0O

3chs

3458:
.FILE ENTRY EQUALS COMPRRING CYLINDER. SEE IF THE NEXT ENTRY EQUALS
ITHE
COMPARING TRACK, AND SECTOR.
CHP
2(R0Y, 5308
JARE THEY EQURL 77
BEQ

3508:

BHI
BR

350%

3508
335§

SYES 00

:BRANCH IF MIGHER
:BRANCH IF LOWER

: THE POINTER (RC) MRS BEEN ADJUSTED. MALVE THE DISPLACEMENT AND
'CONTINUE THE SEARCH TF DISPLRCEMENT NOT ZERO
TST
R}
;1S DISPLARCEMENT ZERO ??
800003

36616

BEQ
RSR
BiC

370$
Rl
#3,R1

SYES 03
:HALVE THE DISLPRCEMENT

BLO

3708

INO 1!

CMP

3608:

RO 540$

3308

: THE COMPRRING CYLINDER,
03t362

169

MOV

ADD

8534
8535

PAGE

'50 ADD DISPLACEMENT TO CURRENT POSITION

160100

036324

036340

33SS:

000410

%iu

S‘éfié

000376

060100

000406

036332

N13

sFILE ENTRY IS LESS THAN COMPARING CYLINDER (OR TRACK AND SECTOR),

036322

8S18

12:38

:SETUP FOR A BINARY
:CYLINDER, TRACK

35ss:

76
036302
036304
(036310
036312
036314
036314

809
8510

3208:

72 013700 036616

8X
8<%

BRO SECTOR MODULE

LSS:“%%

8487

8488

23-NOV-??

3168:
:LORD PARAMETERS AND SEARCH THE MFG AND USER BRD SECTOR FILES FOR

gy Ny
-

30(1046)

001500

;1S THE NEW POINTER WITHIN BOUNDS 27

:CONTINUE SERKCH
TRACK AND SECTOR IS IN THE BRD SECTOR FILE.

:ADVANCE THE RSSIGNED SECTOR AND START THE SEARCH ALL OVER.
INCB

ASNDR

; INCREMENT

SECTOR

CIeng AMO3/2 FCTNL TST S

MACY11 30(1046) 053
NOV-??

CZrRMUB. P11

23-NOV-77

12:19

8537
g 8
&. 39
g %0
ewg
gsu
8544
gSu4s
es-og
854

03%%6
C
N

122737
10*«“3;
i
10 2

000037

001500

1500
1501

001501

%g
8552
8553

036444

8556

036444

g 4l

Yiv
“53
M
4
4
Y

1
e!'

g:g 036442 000577

001500
001476

001466
001476

BRD SECT

3658:

(036450
03I64S2
456

005337

001432
105;37
122737

036476

15%37

036
8569 &szs
%;?
832

0052
022737
%
000137

8564
8565
8566
8567
g;g

036610

036614
000037

(03650M
0%
03512
036516

000004

036615

036612
001466

036612

036614

036612
036272

0365.6

:SECTOR OK ??
;vsé '
!CLERR SECTOR AND ADVANCE TRACK

mncx oK 77

c%
AND SECTOR
ns,&m anosn
vg
YE

;REPEQT SEARCH

s
mcg

eu;s
cL
INC
CHP

BHIS
CLR
Jmp

3
5308
n%.,saos

gso

%i,5208
3
5208
325$

;

‘THE BAD SECTOR FILE

‘HAS NOT YET BEEN
036536
(36544
(036546
036554

036560

8586
8587
g5ap
£y
8530

036560
g%sgs
g
036576
036600
0366

cnsrfm NUMBER OF SECTORS TO COMPARE

;
1 ;eno
; INCREMENT "THE COMPARING SECTOR
$SECTOR OK 77

L5k secron
:x R£ NT_TRACK
i

K OK 2

;
.CLzm ézcron TRACK
mcns NT CYLINDER
iC

:YE
:CL m CYL INDER
:SEARCH NEXT SECTOR

: THE ASSIGNED SECTOR (AND REQUIRE

858‘08585

8591
8592

3168

SEQ 0170

380S$:

%77;

8583

Ség;

CHPB

375$

857s

8581

365
R
oeg . ,ASNDC

DEC

BEQ
INCB
CHPB

036614

8574
8578
8579
B8S80

831.,RSNDA
3658
R
+
A

PRGE 170

1S NOT ZERO.

s
S
R
8562 8%%
1%23:7 833?515
8563

cHP8
BH]
CL
INC
aass
cL
INC
cHP
BHIS
CLR

BlY

3708$:
; THE COMPARING SECTOR IS NOT IN THE BRD SECTOR FILES. DECREMENT THE
INUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER

gssgg

8557
8558
8559

OULE

001476

12:38

022737
001405
012737
000137

102572
102572

036250

036616
036616

3908:

cHP
BEQ
MOV
JMP

JUST SEARCHE

nomcsm§e TORS) ARE NOT IN

SEAR

HE USER FILE IF IT

SEARCHED, ELSE RSSIGN me SECTOR AND RETURN TO USER

BUSRFIL+14,5408 ; TESY
ss ADDRESS
:DONE IF BARSE
= USER
SUSRF IL+14,5408 Log aaLs,gEnogRess

400$

3208

4008:

013737
gx:«?gg
126
012601

012600
000240

00i476
001500

001434
001406

:ASSIGN THE SECTOR AND RETURN TO USER
MOV
ARSNOC , RMDCO
;LOAD CYLINOER
MOV
ASNDA
| RMDAO
:LORD TRACK AND SECTOR
MOV
(8P)+ R2
.,POP STACK INTO R2
MOV
(5P)+ RI
POP STACK INTO RI
4108:

MOV
NOP

(SP)+.R0

:POP STRCK INTO RO

PT?oaxaagcgonb ;§TIS:19

8‘59‘0

036604

000207

RTS

12:38

PRGE 171

SEG 0171

; THE FOLLOWING ARE STORRGE LOCATIONS FOR THE MOOULE

Bsdi B%ETR BO0%E

8539

036612

000000

8601

036ble

0000

8600

MACY1l 38 AOQECTOE3"8 5LE77

Cl4

036614

B982:

:HBRB

538;:

- WORD

5208:

S40S8:

. WORD

E&»BZ B

RARING CYLI DS

o Compae O

6”2
TRQCK % EECT

BQSE RODRESS

ECTOR FILE BEING SERRCHED

23-NOV-77 12:19

CZRMOB.P11

CZRMOBO_RMO3/2_FCTNL TST 2

D14

7
See@ 0172

UFPER’ GERERATOR sue&Su??NE PAGE 172

MACY1L 30C1046)

NQV-77

12:38

esog

.SBTTL

B00c
esog
gggg

;: agf
B Amac CHoRBS égrmc
LoNG ggss;npnéouonos
Tee “RUFFERS: TE
rnons "Sr“fi%fi“"
p§“$ n
gnnsmmgomn
:
omnou ron TPE éurFER 1S EXTRACTED FROM RMDC,
;

S‘aia

9615

8616
8617

8618
8619
8620
8621
8622
8523
8624
e&%eba's

’
sCALL:
(1
036620

036620
036bo2

03664
036626
w
03636
03e42
(36:50
Ot 23

2(2)

GENBUF
:

gxoo%
010146

01024
010346
0104
013
01
01
ogg;w
gmgg

001404
001402
001434
w

8628&:87 0 -6 0137{0 ?37050

8629 LSL?"EQ

8 ZB@

8631
8632
8633
%
8636

0706
0Om71d
O 716
& *qi
0 .70

0327
%;m

&:3

036754

}aoeig

03";33
036
8;%036

122763
103004
105063

xS
8638
Bo90
8c4]1
8642

010000

A"
8:3;024

0l1ce
00s2oé

0137

Ne—
WL
o

037016

n
~N

%5"_4
9"?,2‘,

672535
013702

8653

037012

000004

g
001174

001176

PC, GENBUF

RETURN HERE

MOV
MOV

RO, -(SP)
Rl -(SP)

: :PUSH RO ON
:iPUSH R1 ON

MOV
MOV
MOV
MOV
MOV
MOV
MOV
Séé

R2.~-(5P)
R4’ -(SP)
RMBAO, RO
RMWCO | R}
RMOCO . 60$
'658
58 Ti,RMCS10

5(})%

:ngszgs L LRO)

STACK
STACK

:'PUSH R2 ON STACK
:1PUSH R3 ON
STACK
:PUSH RY ON STARCK
1(0AD DATA
FER RDDRESS
;LOAD WORD COUNT
L
gmr}m CYLINODER RDDRESS
:C
TARTING TRACK, SECTOR ADDRESS
;%}'E HERDER 8 DATRY?

:WRITE HERDER WORD 81

BIT
BEQ
BIS
MOV
INC

sFMT16, RMOFO
158
#FMT16, (RO)
831.,Re
1

16 BIT FORMAT??
INO!!
:SET FORMAT BIT n
;
1
: INCREMENT

INCB
gm

(R3)
gg‘cna)

CHPB
BHIS

84, 1(R3)
2s$

258:
3CS:

MOV
MOV

é (R3)

macx OVERFLOW?
NO
zgsnacgn.gen TRACK ADDRESS

§THPO . R2

LOROPRTERN

408:

MOV
INC

158:

000001

MOV

R3.-(SP)

53;" $50)K RO

010000

5& %
39 0Ni
83C7Cosa::2
Gxrve 8?2733
BOTaR 037062
&7723
105213

@]
W
N
o

8651
62

10%:

001432

000037

8645 oas:;gs 18??31
8646 036762 105253 000001
8647
8648
esgg

037060
037062
001400

JSR

;SET_(DISABLE)
80D SECTOR FLAGS
noonsss

250
233R0
MOV
séi,mon
MOV
osgs,aa

EXTE
5
1 ADHE PO eroER
R %So woRD
82 82
FENET
: ARDVANCEgs:HeTD
§on COUNT
RDDRESSAND

CLRB
INCB

'YES - CLEAR SECTOR RDDRESS
' AOVANCE TRACK ADDRESS

gnfigg

MOV

BEQ

8610
8611
8612

]

o
m

BUFFER GENERATOR SUBROUTINE

(R3)
1(R3)

S22 Ry

$THP1 .R3

(R2)+ (RO)+

SOS

agcroa OVERFLOW ??

oké'?fcron RETR COUNT

: ong PATTERN coum
WRITE
;mcas

DRTR PRATTERN
NT WORD COUNT AND

;EXIT IF DONE

; DECREMENT SECTOR COUNT

CZRMDBO RMO3,2 FCTML TST 2
CZRNCB. P11
23-NOV-77 12:19

8658
8659
8660
86b{

037032
037039
037036
037090

00171l
00S303
0G1765
000770

8663
8664
8665
8606

037042
037042
037644
03704

012604
012603
012602

8668
8669
8670

037050

037052
037064
037056

MACY1l

E1Y

30(1046)
23-NOV-77
12:38
PAGE
BUFFER GENERATGR SUBROUTINE

508
:

012601

SEG 0173

BEQ
DEC
BEG
BR

108
R3
308
4GS

;START NEXT SECTOR IF O
; DECREMENT PATTERN COUNT
'RESTART PATTERN If 0
iCONTINUE DATA PRTTERN

MOV
MOV
MOV

(SP)+,RY
(3P)+,R3
(8P)+.R2

;;POP
STACK INTO RY
; ;POP
3TACK INTO R3
$iPOP STACK INTO R2

(8P)+,RO

; 1POP STACK

MOV

012600
000290
000207

173

MOV
NOP
RTS

(8P)+)R]

:iPOP STACK INTO RI

INTO RO

8672
8673

03706C
037062

000000
000000

608:
658:

.WORD
.WORD

;CYLINDER_ADDRESS STORAGE
; TRACK, SECTOR RDORESS STGRAGE

CZRfiDBO RMO3/2 FCTNL TST 2
CZRMDB. Pll
23-NOV-77 12:

MACYL1l

30(1046)

23-NOV-77

12:38

F14

COMPARE BUFFER SUBROUTINE
.SBTTL

PRGE

174

SEG 0174

COMPRRE BUFFER SUBROUTINE

: THIS suenour

RS
unxng

‘AND BUFTWO IS

conPnRes THE CONTENTS OF BUFONE AND BUF TWO

53
aurrzn FROM WHICH DATA WAS WRIYTEN

aur

R 70 WHICH DATA WRS RERD.

ERRORS IN aurrsn

. COMPRRISON nns PORTED TO THE USER VIR THE USER’S ERROR CALL
s CALL:
s (1)

JSR

:
(3)
S(9)
‘EE;

- WORD
BR
NOP
ERROR

CMPBUF:

001344

000100

001344

004000

001362

010000

001362

UUU§ gE8
g\l\l
e

288

——

100000

¥RBRE5RE
g5&

NNN

BES

8388

037430

000020

037430

000001

000013

untrs urr R ADDRESS

MOV
MOV
MOV
MOV

RO, -(SP)
R1.-(SP)
Re.-(SP)
R3,-(SP)

,,PUSH
PU H
PUSH
PUSH

150%

CLEAR CORRECTION FLAG

BIT

RD BUFFER

RDDRESS
RETURN HERE IF NO ERROR
RETIIRN HERE IF ERROR
ERROR DEFINED BY SUBROUTINE

RO
Rl
Rg
R3

ON
ON
ON
ON

STACK
STARCK
STARCK
STACK

#DCK, RMER1

WAS THERE A DATA CHECK 77

BEQ
817

80$
ggga,nnenxx

:NO
xgsxr A HARD ERROR 27

BI
BNE
BIT

ECI,RMOFI
80s
#FMT16, RMOFI

uas ECC CORRECTION ALLOWED ?7
:NO
1S THIS 16 BIT FORMAT 7~

BEQ

808

INO !

; CORRECT DARTR USING ECC INFORHRTION
MOV
RMBAC , RO
RO = STARTING BUFFER ADDRESS
MOV
RHECl
Rl = ECC POSITION

BIS

#BIT!S’

1508

*ET CORRECTION FLAG

CMP
BHIS

#16.,R1
208

816.,R1
.S*no

suernnc 1 WORDS WORTH
:RDVANCE BUFFER RDORESS 1 WORD

MOV

nx R2

;R2 = BIT POINTER

cHP

R3,R1

i 1S_R3 SAME AS R1 77

MOV

sll.,R3

:R3 = LENGTH OF ERROR BURST

:MOVE RO TO WORD aou~obnv OF ERRORBURST
108:

SUB
ggo

20$:

MOV

;1S BIT POSITION >
NO !!

1 WORD

R3 = BIT NUMBER

:MOVE R2 TO srnnrxfic BIT OF ERROR BURST

30$:
005203
000773
012703

. WORD

oerennxuc IF DRTA SHOULD BE conhecveo

000020
000002

N
o

000

OO NN EZWN—O

0o ) M
(0 0 00 O

Pt Pt ot ot Pt Pt Pt ot Pt Pt

NNNNNNNNN ~N

[+9]

Qecooeooong
BESRRZERCES
~BEBIRRESE28

3% 888888888§§

2(2)

358§:
; CORRECT

BEQ
ASL
éSC

35¢
R2
ggs

THE ERROR BURST

YES
snxrr BIT POINTER
: INCREMENT BIT NUMBER

c’nnoeo RM03/2 FCTNL TST
MOB. P11
23-NOV-7

CER

730

037222

030237

15:19

MACY11l

001376

0372-42
0374
gg

8740

037

10
302

éoow
12702

8741
8742

037256
oarg&g

360

8744

037266

8743 037

8745
8747
8748
8749

7274
7300
037306

037312
(3731

8750
8751

037
037322

8754

(037330

8752
8753
8755
8756

8757

8758
8759
8760
S;Eé

8763
8764

7324
7326

00000

1%00 000010

062766

017601
062766
013702

163702
%2855

000002

000010
001332

708 :

000010

001402

90§ :

302

37y
33

100S:

0373%4
(037350
037354
037362

010137
010237
062766
112776

1136
001174
000004
0Gu336

000010
000010

037370

032737

100000

037430

112776

000163

000010

340

037406

0379400

80s$:

000010

001140
001142

8767

6776

000071

014037
014137

037376

8768
8769
8770
8771
8772
8773
g;;;

508
608 :

037330
037334

8765

8766

700

010037

001403

162766

037414
037416
037416
037420
037422
037424
037426

000240

012603
012602
012601
012600
000207

037430

000000

conguaw

000002

Gl4
PAGE

175

SEQ 017

175

817

R2,RMEC21

IS mxs en SET IN ECC PATTERN ”?

B
585

erneen

BIS
ASL
BNE

R2, (RO)
R2

QDD

82, RO

MOV

708
8] ,R2

DEC
BNE

R3
40s$

ADD

82, 10(SP)

MOV

310(SP),RO

ssr THE BIT
:SHIFT TO NEXT BIT

;CONTINUE WITH FIRST BIT OF NEXT WORD
END or BURST 77
NO

;RO = WRITE BUFFER

novs SP o Rsno ADDRESS

MOV
ROD
MOV

910(SP),R1
82, 10(SP)
RMUCT , R2

BNE
DEC

1008
R2

sxx
sm
.oscasne uoao

MOV
MOV

-(R0O), $GDDAT
-m*) $800AT

;ST
57

R{ . $BDADR
R2,$TMPO
84’ 10(5P)
8336, 910(SP)

3
oranoomn
,sr
OFERRO
iMOVE SP TO use S ERROR CALL
:WRITE ERROR NUHPER IN CALL

SUB
CMP

MOV

000010

:38
N

80n nss eugrss
suenou i

8736
8737
8738

8739

V-

40S$:

hbis
g
8735 837;35 %8561
'

MOV
MOV
RDD
MOVB

‘Rl = RERD
B
novs SP 10 RETURN RDDRESS
,Ra NUMBER OF WORDS TRANSFER

RMWCO
| R2
(RO)+, (R1)+

om WORDS

90$
1108

.commue IF NOT oone
;0
COMPRRE- NO ERROR

RO, $GOROR

;ST

cooo DATR FOR TYPEOUT
oam FOR TYPEOUT

S OF GOOD DATA

: CHANGE ERROR NUMBER IF ECC CORRECTION FRILED
BIT

881115, 1508

;WAS ECC CORRECTION USED *7

MOVB

#163,310(SP)

'ECC connecnon FRILED

(SP)+,R3
(5P)+ R2
(SP)+ RI
(5P)+'RO
PC

;s POP
:1POP
:POP
:1POP

BEQ

10S$:
1108:

1S0S8:

SUB

NOP

MOV
MOV
MOV
MOV
RTS
.WORD

105

02, 10(SP)

¢!

MOVE SP TO RETURN IF ERRCR

;ECC

STACK INTO R3
STACK INTO R2
STACK INTO RI
STRCK INTO RO
:RETURN TO USER
CORRECTION FLAG

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMDB.P!
1
23-NOV-77 12:19

MACY11

30(1046)
23-NOV-7?
12:38
GET STATUS SUBROUTINE

H14
PARGE

176

SEQ 0176

g;zg

.SBTTL

8779
8780

THIS suenourxus SETS UP THE "GET INCDEX TABLETM AND THE “GET
gurr
R” R R ngxug ght SEEBYSTE" REGISTERS VIA THE GET SUBROUTINE

8783

;CQLL:

g; 1

8784
8785

3793

8787
8788
8789

8790
8791

ETURN

0374

0374
03
037436

7940
2948

010046
010146
010246

815780
012701

8792

037450

8794
8795

(037456
60

00S0MN1
1627

879
8798
8~ 19

037472
03;:7w

7
001370
?1

8802

012602

8793
?

037454
7“22

012702

110220

GETSTS:
01506
001400

000046

000002

8805
8806

037506
037510
037512
037514

012601
012600

000240
000207

2s:

38:

ys:

)

JSR

PC,GETSTS

MOV
MOV
MOV

RO, -(SP)
Ri,-(SP)
R2. -(SP)

239

MOV
MOV

0c0022

3@8? 837558 11 738 £00200
8803
8804

GET STATUS SUBROUTINE

MOV

MOVB

CLR
SuU

.ctrénx RO
sRNEC2I42,RI

sRMEC2, R2

R2, (RO}+

-(R1)
82,R2

CM
BNE
SER

-(R1)

MOV

(SP)+,R2

MOVB
MOV
MOV
NOP
RTS

8RMOB, R2

RETURN HERE

: PUSH RO ON STRCK
::PUSH R1 ON srncx
: : PUSH
ON gga

:RO=
;Rl =z

uflxrs

S or

ngxs ;

ER xnoex IN TABLE

cn nenr ro
T ua

INDEX TABLE
BUFFER

OND ING Locnrxon
xr INDEX

xuosx

ngoo (RQ)+

;WRITE TERMINATOR

(SP)+.RI
(5P)+ RO

::POP STACK INTO RI
::POP STARCK INTO RO

:.POP STACK INTO R2

cmnoeo RMO3-2 FCTNL TST 2
CZRMDB. P11
23-NOV-77 12:19

MACY11 30(1046)
NOV
-7?
GET suenou IN

12:38

Il
PAGE

177

SEG 0177

ggg

.SBTTL

8810

; THIS sueaourms R£RDS me REGISTERPS WHICH ARE LISTED IN THE

881}

cté' I

8812
8813
8814

omon

HH cu SHOUL

8820
8821
8822
8823
8824
8825
8826
8827
8828
8829

8835
8836
8837
8838
8839
8840

8841

.
037516
03

000240
062716

337530

162716
01
010146
010246
010346

037540

037542

037544

(037552

884S
8846
8847

8849

gg48

g88sy
8851

105076

010946

013746

000004

012704
012737
012737

1506
8863%

1337614

016037

NOP
ADD

CLRB

000004
000006

000010

001174

004000

001176

000000

001176

MOV
MOV
MOV

MOV
MOV

(037

060001

177700

B886)

037666

042703

177700

8862

J37672

3s:

100433

ool (37664 112403
060203

8863 037674 O011i13

000016

IN USER’S

$BASE
, RO
'EET
,R2

MOVB
BIC

000016

! ERROR

MOV
MOV

6-14“‘01
2701

0il12

:CLEAR ERROR NUMBER

1PUSH ERRVEC ON STACK

(37654
037656

0004

(SP)

ERARVEC, - (SP)

MOV

001276
881330

#4,

d(5P)

MOV

8857
8858

037652

ERMINATED W]
corme BYTE l200)
FOLLOW T
LRST ENTRY

: ;PUSH RO ON STACK
P PUSH R1 ON STACK

8a5Y
8£SS
8859

UFFER”. FOR EXAMPLE, AN
AUSE THE
SUBROU:INE to
om NTS AT THE LOCRTMION IN

84, (SP)
0. -1SP)
R1,-(SP)
R2.-(SP)
R3.-(SP)

032737
001007
062766
112776
000423
105714

HEIR VALUES IN THE CORRESPONDIMG

SuB
MOV
MOV
MOV
MOV
MOV

000004

(03
037572
(37
037

GET:

000004

000006

013700
012702

(X X

000000

8137%

037556
037562

;

(37
(376
037632
037640
875
76

8263

suenounne CALL:
:
“GET INDEX TRBLETM HAS BEEN LORDED uxm REGISTER INDEX
:
VRLUES AND TERMINRTED WITH A CONTROL BYTE
1(2)
“GET INPUT BUFFERTM IS AVAILABLE FOR USE. (NOTE THART
:
UNUSED LOCATIONS, I. 5 LENTRIES IN aurren CORRESPOND
ING
:
70 REGISTERS NOT RERD, ARE NCT CHANGED.
1(3)
JSR
PC,GET
:
BR
21
RETURN HERE IF NO ERROR FOUND
:
NOP
RETURN HERE IF ANY ERROR FOUND
:
ERROR
SUB DEFINES ERROR NUMBER

§842

ge43
8844

7
1s
mez.

eg R nss
ISTER. THE NUMBER OF
REGIS ER TO a; * vm aeu: FROM 1 TO 22; THE INDEX

8817
ggig

8834

nt né R§2

NT
-

8815
8816

8830
8831
8832
8833

GET SUBROUTINE

eIT
BNE
RDD
MOVB
gn
ST8

R4’ -(5P)

ERRVECY2,
- (SP)

RMCSI(RO) | STMP1

;GET "DVA” STATUS

RMCS2(RO), $TMPO ;GET “NEDTM smrus

sDVA, STMPI
3$
84, 16(SP)
8112, 316(5P)
78
(RY)

osvxce AVATLABLE??
YES!
unxrs
ERROR NUMBER IN USER'S

(R4),RIL
ucxbxnsx R1

'RI = REGISTER ADDRESS
:CLERR ANY SIGN EXTENSION
'CLERR ANY SIGN EXTENSION

ADD

BIC

ncwknsx R3

MOV

;s PUSH ERRVEC+2 ON smcx

:SETUP FOR TIMEOUT

ADD

2:PUSH R4 ON STACK

sGETINX ' RY
s 3 ERRVEC
sPRG , ERRVEC+2

BMI

MOVB

:'PUSH R2 ON STACK

:'PUSH R3 ON STACK

( 4)4 R3
2. R3

(Rl) (R3)

: ERRO

; DONE
2
YES!

:R3 = STORAGE RDDRESS FOR REGISTER

:READ REGISTER

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19
ees;

037676

000764

8866

037700

022626

8868
8869

037710
037716

1l1e7?6
160766

8871
8872
8873
8874

0377
0377
037732
037734

8867

8870

8377

0372

06 7;&

105714

8377

8878
8879

037742
(037746

012637
012637

8881

8883

037?54
03776
037760

0] 603
012602
012601

8885

037764

8876
8877

8884

0377ws

037752
037762

000004

000007
000002

16040S
00S003
112403
060203

8875

MACY]' 30(1046)
23-NOV-7??
GET SUBROUTINE

000016

000016
000016

012604
012600
000207

PAGE

178

SEG 0178

CMP

7$:

MOVB
SuB

#7.316(SP)
¥2. 16(SP)

'USER'S ERROR

BM]
CLR
MOVB
ADD

9g
R3
(R4)+,R3
R2,R3

SYES!!
:CLEAR REMAINING STORAGE
:LOCATIONS

MOV
MOV

(SP)+,ERRVEC+2
(SP)+. ERRVEC

MOV
MOV
MOV

(3P)+.R3
(5P)+.R2
(SP)+ RI

RTS

8s:

ROD

7ST8

CLR

000006
000004

J14

Ss:

005313
000771

12:38

9s
-

MOV
MOV

(SP)+

84, 16LSP)

(R&4)

:RESTORE STACK

‘WRITE ERROR NUMBER IN.
CRLL

;DONE CLERRING??

(R3)

(S5P)+ RY

(S5P)+ RO

]

. :POP STACK INTO ERRVEL+2
. ;POP STALK INTO ERRVEC

::POP

STACK INTO R4

2 pOP
STACK
::pOP STACK
:'POP STACK

INTO R3
INTO R2
INTO RI

::POP STACK INTC RO

*RETURN

CZRMDBO RMO3-2 FCTNL

CZRMDB.P1 1L

TST 2

23-NOv-77 12:19

MARCYLll

8887

30(1046)

.SBTTL

8888

23-NOV-77_

12:38

K14

PUT SUBROUTINE

PRGE

179

SEQ 0179

PUT SUBROUTINE

THIS SUBROUTI?( MITES THE REGISTERS WHICH ARE LISTED IN THE

8890
8891
8892
8833

H
* n-; 3 ;maOF T:&
connssponomc
58
AT g«
m T
"Plil nsc¥ E agg
F
8ER OF
5;
VARIABLE; THE INDEX meu»: nusr
RH NQTE
A CONTROL BYTE (200) WHICH SHOULD

gggg

;sueaoumi CALL:

8698
8899
8300
8301
8302

D1
:
L)
:
&)

ngtHAS
geen LORDED WITH INDEX VALUES
ERS 08
REGI TER aurr R" comnms CONTENTS OF EACH
REGISTER o ae WRI
JSR

8904
8905

:
:

NOP
ERROR

PUT:

NOP
MOV
MOV
MOV
MOV
MOV
MOV

ouou

8303

8906
8907
8308
8309
8910
8911
8312
83913
8914

891§
8916
8917

gfiP xg
9950

8321
8932
Maqea

:
;
037766
037770
037772
037774
037776
040000
O40NQ2

1
oms

13;38
1
15;85

00000Y

i 7
l53«
oy
15733 %8
880005

wssp
e

000010
%Qooo
000

00114
001176
001176

8325

Owulbb

06266

000004

000016

89¢9
8930

040106
040110

8331
932

2703

177700

BIC

gggg

040132

764

83939

OMOI3N

022626

8936 040130 %311
0O40136
040144
040152

062766
112776
162766

MOVB
BR
TS18

SS:

7$:

SETUP FOR TIMEOUT

s1l2,d16(5P)
73
(RY)

:WRITE ERROR NUMBER IN

‘USER’S ERROR CRALL
s DONE??

9g
(RY), R}

PYES!!
‘RI = REGISTER ADDRESS

MovB

mim R3

:R3 = STORAGE ADDRESS

RDD

MOV

000016
000016
000016

;

: ; PUSH ERRVEC+2 ON STACK

BMI
MOVB

BR
000004
000007
000002

WTERN:?(VERS
M
ERRVEC+2

ERRVECH2, - (SP)
S
sPUTBUF
| R2

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK

84 16(SP)

0122

060203

; ;PUSH
; ;PUSH
IPUSH
: PUSH
:'PUSH
:'PUSH

RDD

BIC
ROD

040126

RO, - (SP)
Ri.-(SP)
R2,-(5P)
R3.-(SP)
R4’ -(SP)
£
C,~(SP)

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

RMCS2(RO),$TMPO;GET “NEDTM STATUS
RMCSI(RO) §TMP] :GET “DVATM STATUS
52v ,STHP|
oggxce RVAILABLE??

177700

3s:

RETURN HERE IF NO ERROR FOUND

MOV
MOV
Sr’é

042701
060001

12403

000016

:83
MOV

8:8112
116

8535

8340
8941
BI42

18:

BSyPu

219

112776
000423
10S714

8933 g:meo
83934

74
102
0104

1004w
111401

000112

"PUT 1

MOV
MOV
MOV

1276
wgg

16037
1
17

8526
8327
8358

00;_5

000240
010046
01014
010246
010346
810-4%
013796

HE LAST ENTRY

CMP

RDD
MOVB
SuUB

ucxbxnsx R]
ucxoknsx R3

'CLERR RANY SIGN EXTENSIO

:CLERR ANY SIGN EXTENSION

mé),mn

;WRITE REGISTER

(SP)+ . (SP)+

;ADJUST STACK

»4, (6lSP)
87.316(SP)
82, 16(SP)

;WRITE ERROR NUMBER IN
*USER'S ERROR CALL

CSRMOBO RMO3-2 FCTNL TST 2
CZRMDB. P11
23-NOV-77 12:19
8943
8944
8945

040160
040160

8’5237

8946

040164

8348

040172

012603

040202

0006207

8947

8349
8950
8351

8952

040170
0N0179
040176
040200

Qlo637

012604

012602
012601
012600

000006

000004

MARCY1l

30(1046)

9s:

23-NOV-77
12:38
pUt
SUBROUTINE

L1Y4
PRGE

MOV

(SP)+,ERRV c+2

MOV

(5P)+ R4

MOV
MOV
MOV

(5P)+.R2
(5P)+.R]
(SP)+. RO

MOV
MOV

RTS

180

SEG 0180

. POP STACK

INTO ERRVEC+2

(SP)
+ ERRVEC

; ;POP STALK %NTO ERRVEC

(SP)+.R3

; iPOP STACK

' RETURN

:;POP STACK

::POP
STACK
; 1POP
STACK
::POP STACK

INTO RY

%NTO R3

INTO R2
INTO RI
INTO RO

CZRMDBO RMO3-2 FCTNL TST ¢
23-NOv-77 12:19

CZRMOS8. Pl1

8971
8972
8973
8974
8375
8976

.SBTTL

}

SIZCLK:

ALy

8357

§12:38
23-NOv-?7?2
SIZE CLOCK SUBROUTINE

30(1046)

<g
8
&

040314

Bug3k0
040324

M1lY
PRGE

000004

; s PUSH ERRVEg ON

18:

)¢

2s:

3S
(SP)+_

3s:

SeqQ 0181

ER vec+a ON STACK
-(SP)
3§8$e
;SET UP tbn BUS TIMEOUT

:is%;;kse#
000004
001502
001504

181

SIZE CLOCK SUBROUTINE

ERRVEC

)

§§2§2§EZ§§2§Z }

89sH4
89SsS

MARCY11

(SP)+

Ekavsc

TACK

;LORD ADDRESSES FOR KWll-L
;TEST FOR KWll-L PRESENT

YES - KWll-L IS PRESENT

£§E§ UP FOR BUS TIMEOUT
:LORD ADDRESSES FOR KW11-P CLOCK
TORE SP

; TEST FOR KW11-P PRESENT

(SP)+

82,4(5P)

(SP)+,ERRVEC+2

§P RRVE

YES - KHI*-P IS PRESENT
'RESTORE S
:MOVE RETURN TO ERROR
POP STACK

INTO ERRVEC+2

;- POP sTALK INTO ERRVEC
éewuan TO USER

CZRMDOBO RMO3/2 SCTNL

CZRMDB.P11

TST 2

23-NOV-?7 12:19

MACY1l

30(1046)

TIMEOUT SUBROUTINE

e977

.SBTTL

gqetaao1

1500 MS,

83;2

ICALL:
:

8385
8916
8990
8991
€933
8994

0326
0326

Bom sl
013746

MNO334

905

TIMOUT:

010046

000004

330340
04
04N3s2

1 7&9
012737
012737

040446

137%

ooxso;

O~J3e0
b4

0“\3'?,3

013700

g:o-oos
oMl
1N
o420

oMM

000300
001276

12{ ? 172540

9999 8:30\000 %?083

8938
mm
3001
9%5

Sxanx
12711
01604
ggans

000001

000006

000002

77576

fzaeg 6ooe

3011

040450

062766

000004

000012

%}q

1627

000002

000601

012637

000006

9010 Sitcm

0456

2626

157&

30[S

ONON7

9017

040476

012637

Q40504

012601

0404?72

9018

040S02

3020

040506

3855

PAGE

182

C40S10

012602

012600

000207

000007

000004

WHICH EVER OCCURRS FIRST,

SEQ 0182

2s:
38:

000015

PC, TIMOUT

MOV

RO, -(SP)

: ;PUSH RO ON STRCK

RETURN HERE

oY
MOV

EhE)
RAVEC, - (SP)

RRVEC$2. Z(SP)
848, ERRVEC

: -PUSH
;SETUP FOR BUS

MOV

sea%hno

; RO=RMO3 RDORESS

53151%540
a&‘

INO?I?

ggov,(sp)o

‘32;?5";0:0”

MOV

g%
BNE

MOV
MOV
MOV
BIC

sPRE ERRVEC+2

CLK

88177, (R1)

33
R2
é‘

RDD

84, 12tsP)

CHp

tgPH (SP)+

MOVB

o7,aée<sp)

MOV

(SP)+,ERRVEC+2

MOV

(5P)+

MOV

MOV
MOV

RTS

o
s
: JPUSH ERRVEC ON STRCK

ERRVEC+2 ON STACK
TIMEOUT - 04 TRAP

'R]=CLOCK RODRESS

;Qui?ugagfocoz,g_ocx CYCLES

81,2(R1)
'SET COUNTER
881728170,
(R1) :START COUNTER
RMCS](RO),-(SP) ;GET STATUS
81C<RDY!GO>, (SP)

BEQ
DEC
ege

SUB
Ss:

AND THEN RETURNS.

JSR
279

8??

o-ogms

9019

18 )

g:g genx 000200
1766
005302
0013?3

3016

N14

TIMEOUT SUBRGUTINE

MOV
MOV
MOV

000004

N6
3007
9008

9015

12:38

:THIS SUBROUTINE WRITS FOR GO TO RESET OR FOR R TIMEOUT GREATER THAN

8982
8983

o
8389

23-NOV-?7

82,

12(SP)

(SP)#,SRRVEC
P2

(SP)+.R1]

(5P)+ RO

*TIMER DONE??

INO!!
'DEC MNUMBER OF CYCLES
:CONTINUE IF NOT DONE

sADJUST STACK

'MOVE SP TO USER’S CALL

TWRITE ERROR NUMBER

.. POP STACK [NTO ERRVEC+2

; ;POP STALK INTO ERRVEC

1 POP

STACK

INTO Re

:POP STACK

INTO RO

:1POP STACK INTO RI
'RETURN TO USER

CZRDBO RMO3/2 FCTNL TST

B15

MACYLL 30(I0NE) 23-NOV-77 12:38 PAGE 183

SEQ 0183

%ga

sam.

9025

9029
9Q2

mm
mofi
TUS CHECKING SHOULD BE PERFORMED.
FOLLOH xs ms

%S?

(axrs 0-2) EQUAL THE UNI

9032

o reo BT IS Hcls 0

9035

9737
3938
9039

;ORIVE RE YP%T(B
;
.NO
I
i1.E.,
ncps =

or TM s&x
zgg‘rm: IS TO VERIFY THAT STflUTS IS VALID AND

3029

.CURRECT UNIT IS mcr D

R LR e P LT R Sh SR g 2 s

3036

9070

i:1.E.,

§ E THE UNIT SELECT BITS OF RMCS2

teSTED:

mxua x.e., DVA (BIT 11 OF RMCS1) 1S SET

.E., THE MASSBUS CONTROLLER IS

nm c?
éxr IS’RESET (BIT O OF RMCSI) OR THE
D men READING REMOTE REGISTERS,

PMITY ERROR 0oCC

PAR= 0,

THE

D WHEN WRITING REMOTE REGISTERS,

OR,
P

§m: SUBROUTINE ASSUMES THAT:

.STATUS ms BEEN sroaeo IN THE REGISTER INPUT BUFFER

"IN PARTICULAR, %

o;.e RMDS HAVE BEEN STORED IN THEIR

,comsponomc LocAaTidns
:

THE “GETTM BUFFER

.(SUNIT) CONTAINS THE DRIVE NUMBER

'me SUBROUTINE IS CALLED AS FOLLOKWS:

,(1)
:

JSR
BR

:
:

ERROR
JSR

:
:

040S12
040512

040516
O40522

9071
8072
9073
9074

OMNOSM
040542
043550
OM0SS6

9076
9077
9078

040564
040566
040572

9075

LECTED

:RERDY (850

Y4
S

PRIMARY ERROR CHECK SUBROUTINE

NOP
279

PC,PRIERR

774

TURN

F NO_ERROR

%
:i% *o REPORT AN ERROR

E
ER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

PC,3(SP)+

RETURN HERE IF NO MORE ERRORS

PRIERR:
062716

000004

013737

340

10S076
162716

84 37
013737
042737
123737
0D0141S
062716
112776

;CLERR USER’S ERROR CALL

A0D

000000
000004

66 7?70
1234
177770
001140
000004
00000f

CLRB
Su8

001142

001142
001140
001140
001142
000000

84, (SP)

:MOVE (SP) TO ERROR CALL

3(5P)
84, (SP)

:CLERR ERROR NUMBER
:MOVE (SP) TO NO ERROR RETURN

:REPORT AN ERROR IF THE moug UNIT

MOV

Rncsq ggoon

BEQ
ADD
MOVB

18
#4, (SP)
81, 3(SP)

BIC
MOV
BIC
CHPB

LECTED

:CORRECT

UNIT SELECTED??

stCUNTA
T
SUNIT, $G00A
:GOOD DRTR FOR TYPEOUT
8t CUNTMSK . SGDDRT
$GODAT, $800AT
;ngms EXPECTED AND RECEIVED

'DRIVE NUMBERS
'

;ERROR

000010

S
S8

BB
.?o, (3P)

O41334

JHP

108

cs:
; REPORYT

e b

72
RESPENBLER REDRSZRR
s ot Pt s

s o

Z22TPPE

T
238387

; ERROR
82

HR? NED SET??

:Es CTED STATUS
CEIVED STATUS
v:s - CHANGE nnon NUMBER

.5?9))’
(5P)
810,

?Poc
532152582
slC nor
EEP?R

108

:SKIP OTHER CHECKS

OLLER RERDY??
5

MOV
BIS

nncsx
sROY

RROR

MAS

YES

EXPECTED STATUS

osc-?ns'ncpe-co $GDDAT

Rnc§§;

:3'3(52)

82, (SP)

-RECEIVED STATUS

§p TO RETURN FOR ERROR

Nopim

PC a(g;)+

Sipgn CONTROLLER NOT RERDY

108

:SKIP OTHER CHECKS

810, (

; REPORTY AN ERROR IF GO IS NOT ZERQ AND DRY IS NOT ONE

.co ggss

BIT

8GO, RMCS11

001140

gog

nncs*stscoonr EXPECTED STATUS

000000

%839
suB

001330
001342

{RYEY
\33

[l Long
oo

[

;RECEIVED STATUS

CONTROLL R 1S NOT READY

MOVB
Sug

78:

83,

E ECTED STATUS

o&ov SEJi

g?rs
v

000000

S%c
RMC
sNE

BIC

001140
001142

Y
Y Sy

2222222722

.sxxp OTHER CHECKS

(SP)

sgg
égg

831140

0000GC1

?fl T

é% s

Egv

—

:y g

z
2z

001330

SEQ 0184

AN ERROR IF TH; o;vxcs IS NOT AVAILABLE OR IF
ICE 1S NONEXIS
I7
VR, RMCS11
v;gs AVAILABLE??

i
LAl
: §~
i & Igfi‘w
:
e : : e :ek

Pe277e
Q4061
4 00013;

333meas

162716

MACYLL 3B4iRARY eRROR ChElx dDaRBuTIRE" 1

;

040600

[

OREE BN YO

B s S nswn-o 3B8IRRZER

fwtetwiwtetetefetetedetetwtetetetwtetet
et ettt wtwt ettt et etedes

DO D SO L O DD D O LD D LD D D D DD DD D DD DD DD D DD D

PRI

9079

TIS:IQ

CZRMOB0 RMO3/2 FCTNL T
23-NOV-7
.Pll

ClS

881148

§§i

MOV

Y,RMOS1

VE READY??

3n85 33855? ‘&EQEIVED STATUS

:q(SP’)

3 3P

:ERROR SP%5 TO RETURN FOR ERROR
:MOVE

CZRMDBO RMO3/2 FCTNL

CZRMDB.P11

TST

23-NOV-77 12:19

9135

OMlll2

004736

9137

081120

000240

gi%

oMl

9136

9338

081114

mug

162716

MACY!l

9143

9144
g{ws

JSR

SUB

NOP

83“53

il
mfi:n

muzs
OM11
Q41170

918

041176

9157

9158
9159

9160
9161
8162
9163
9164

9165
9166

827 7

TM
013;_35

020000

001330

00“:8

OM1179

11
ibe716

162716

000010

004736

041202
0
g:mm 000453
1208
041206
OM12I4

041216
041224
041226
OMieNM

041236

041240
041244

032737
00I45]

032737
1
1413

2710

3{67 &i%
ied Gulss
9171 8:1%
9172
o-ugga

1005
B8
%3;?
1

9174

o-u%s

8-427;:7

9176

041306

9178

9173 041264
9175

9177
9179

0TMl

PRGE

185

PC,3(SP)+

SEQ G18S

;REPORT DRIVE NOT RERDY

010, (SP)

IRESTORE (SP)

108

000010

001344

000010

001372

000010

001414

001535
000014

888%

000000

D41324

004736

041332

000240

041340

009240

041334

gigg

041342

000010

062716

000010

000207

810, (SP)

BIT
BNE
BIT
BEQ

001140

162716

sUB

BIT
BEQ

91§:

8:1"%

16271

"TM (gni
013 3(5P)
a2, LSP)

1399 001344 001140 93S:
CO0004

RDD
MOVB
SuB

msegsu

;PARITY ERROR ??

iNO!
gfigmrco -emgr:o STATUS

v ,,E”ED STATUS

PC (SP)+

;ngflmsmgx TO USER’S ERROR
iE
o
iMOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

iRESTORE STACK

108

;REPGRT AN ERROR ;r THE RH?S DETECTED A CONTROL BUS PRRITY ERROR

s
000010

qg
gncg,*

MOV

9s:

SMCPE ,RMCS 11

Q
g?g

ISR

001142

9182

000000

001344

041226

3i83

D1S

iPARITY ON THE MASSBUS CONTROL euL‘

1142

13737

9180
9181

12:38

;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BRD

9148
9149
9150

91
9154
gigg

8s:

3143 831133 8'1457517 6313%

9151

23-NOV-?7

PRIMARY ERROR CHECK SUBROUTINE

000010

9141

9142

30(1046)

8PAR, RMER10
RO, -(SP)

%
B
BPL
MOV

?ES,, RO
B
91§
(5P)+ RO

opfirér«x RO
sRMERL, LRO)

;WAS THERE A PARITY ERROR??
INO1
!

{WAS IT THE CONTROL BUS??
:NO
gL
:0ID TEST SET PAR 27
INO!!
::PUSH RO ON STACK

;RO POINTS TO INOEX TABLE
:SERRCH TRBLE FOR RMERI

POP STACK INTO RO
Boe s e B Tesy
INQY?
1. POP STACK INTQ RO
’

MOV

MRI%GDMT

MOV

RMER{I, SBODAT

;RECEIVED STATUS

MOVB

) gtsps

;WRITE THE

JSR

PC.3(SP)+

BIC

suB
SUB

118

#DPE , RMER21

MOV

MOV
cMPB

ROD

108

#PAR, RMER]
18

NOP

#PAR

:EXPECTED STATUS

84, (SP) . MOVE SP’'TO USER'S ERROR CALL

82, tSP)

810, (5P)

ROD

810, (SP)

RTS

NOP

DAT

:MOVE SP

ERROR NUMSER

TO RETURN FOR ERROR

iREPORT THE ERROR

iMOVE SP TO NO ERROR RETURN

.RETURN TG ERROR

;RETURN $0 NO ERROR

CZRMDBO RMO3/2 FCTNL TST 2

CZRMO8.P11

e3-NOV-77 12:19

MACY1l 30(1046)

SECONDARY

ZS-NOV-77

12:36

ELS

PAGE 186

SEG 0186

ERROR CHECK SUBROUTINE

gigg

sam.

9188
g}gg

TINE
OF SECONDARY ERRORS
HE
EN§
unE CTE§E 38
a:gs
xasgfis CTION
REGISTER

9143
9134
9195

NYr*eg
sucu AN ERROR, IT MOVES
RR?R
ca*L
IN
mefi
REROUTINE
TURNS
TO nc snne WA cu
n;
TEST
%
v? suaaou'rme mrcu HEN LOOKS FOR

919!

ssmn.v ASSOCIATED WITH THE OPERATION

9192

913¢

gigg

9139
9200

3201
9502
9203
9504
9206
9207
g?g

SECONDRRY ERROR CHECK SUBROUTINE

unsuALL

ORS mve BEEN REPORTED, THE SUBROUTINE

TURNS TO m: RDDRESS rououmc THE SUBROUTINE CALL.

;cnu.:
:

:
:
:
:

JSR
BR
NOP
ERROR
JSR
272

PC,SECERR
234

RETURN HERE IF NO ERROR

O41344

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER oerx D BY SUB
PC,3(SP)+
GO BACK T0sug MORE ERROR CHECKS
RETURN HEREIF NO MORE ERRORS
NOTE: THE SUBRCUTINE RSSUMES THAT REGISTERS HAVE BEEN STORED AT THE
mpur REGISTER BUFFER.
SECERR:

9512
9213

041344

013737

00IN00

STORE FUNCTION CODE AND CLEAR uszn S ERROR NUMBER
MOV
msgo 515§
TORE FUNCTION CODE

9215
9216
gig

041360
041364
041370

062716
10S076
162716

000004
0000CO
000004

o SO 33630 3 06 3k 6 4 36 36 3 3 36 3 3 35 3 36 96 9 % 3% 36 3 3 9 36 36 3 3 36 30 3 3 3 3 3 36 3 W 3 3 % 3 3 3% W 3 3% W

04S204

9214 Q41352 042737 177701 045204

9219

8IC

RDD
CLRB
SUB

89C< o'rura'ra-tm S15$

84, (SP)
5P
84, (SP)

;MOVE(5P) TO ERROR CALL
:CLEAR ERROR NUMBER
:MOVE (SP) TO NO ERROR RETURN

X Y Y¥Z22:z2222222 2222222222222 XT22 22X

2TTIZTITIIIITEIZZI22ES R TS

ggtll

' SHECK SECONDRRY ERRORS COMMON TO ALL COMMANDS

9522

: REPORT smon IF DRIVE IS NOT RERDY,

9323 0OM1374 (032737 000200 001342

9224
9225

041402
O41M0M

001024
013737

001342

001142

BNE
MOV

9527

041420

012737

%%&o

001140

MOV

3529
9230

(MI432
OMI440

112776
162716

%3860
2

000000

9226

OM1N12

042737

9228 0OM1426 aagm
Q23]
9232

ONIYY4
041446

004736
162716

923

0M145M

041462

(032737

001423

9539

OMIM72

042737

3241

041504

062716

gggg

9235

9237

ON14582

000240

177577

041500

00S037

177776

O0li14e

001140
000004

001142

DRY = O

:YES!
'BRD onm FOR TYPEOUT

sDRY, S8DOAT

:GOOD DATR FOR TYPEOUT

MOVB
SUB

s10,.3(s5P)
82, {SP)

; ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR

NOP

00133C

I.E

:OR}VE Rehovn

8+CORY saoom

JSR
SuB

000001

aDRY, RMOSI

BIC

ROD

000010

9238 OM1464 013737 0013
9240

001142

84, (5P)

PC’ a(spn
e10, (5P)

:REPORT NOT RERDY
:RESTORE (SP) TO ERROR N

.REPORT ERROR IF GO BIT IS NOT RESET

B&S:

%R W ®E KR

BIT

BEQ

8GO, RMCS11
108

;GO_BIT RESET??
YES!

MOV

RMCS11 saoom

! BRO onm FOR TYPEOUT

CLR

$GODAR?

:GOOD DATA FOR TYPEOUT

BIC

ADD

#1CGO, $80
#4, (SP)

CZRMOBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOv-77 12:19

000004

041604
041610
04lkle

162716
000240

64
65
R6b

041612
0O4ible
041

005037
00S737
0010%;

001140
001344

9262

82{630

Ofll;gz

9270
9271
3272

041640
Q41646
OM1654

0137
042737
023737

001342
137777
001140

3279
9280
281
9282
283
WY
WS
w86
w87
92”8
989
3290
9291
3292
9293
24

8295
S2%
9297

041702
041704

041746
0OM1754
041762
041770
Q41776
042000
042004

L£E£EL
oo

e
e

:MOVE SP TO RETURN FOR ERROR
; REPORT DEVICE NOT AVAILABLE
RESTORE

IF FUNCTION CODE REAL FROM DEVICE

Rnc§ 3
onr
81C?6, 4

BIC

MOV

515$

BEQ

ADD

84,

MOVB

, SGODAT

(SP)

812, 3(SP)

SUB
JSR
SuB

NOP

(SP)

IS NOT CORRECT

:1S FUNCTION CODE CORRECT??
;EXPECTED FUNCTION CODE

s YES!
!

; ERROR NUMBER

82, lspP)
PC 3(SP)+
210, (S5P)

:MOVE SP TO RETURN FOR ERROR
'REPORT WRONG FUNCTION CODE
;RESTORE (SP)

00s?7

:OTHER ERRORS RRE SE
CLR

Lfrrg
o

208 :

258

BEQ
BIS

0S2737
013757
042737
023737
005413
716
112776

001140
001340
000377

000004
0000i4

118’ RHERZ-O”
SOULD BE SET

CHP

$GDDRT, $BDDAT

;1S_"ERRTM OK??

ADD

84, (SP)

nov; SP TO USER’S ERROR

BIC

#1CERR, $BODAT

308

q? a(s

sug
JSR
sus

unx E ERROR NUMBER

a tsp)
d(SP)+
0,(59)
xr

“TRETM

YES!

MOVE SP TO ERROR RETURN

REPORT INVALID COMP ERROR
IS

SET AND NONE OF

THE

BITS WHICH SET

*TRE %
OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH
‘SET ne IS SET

30s:

JEXPECT “TRETM =0

8377, (8P)+
3%

pce nx¢ OR MDPE SET
ves!

RMCS2I, - (SP)

géo

gggn,nnosx

ugs EXCEPTION RECEIVED??

osgnacu,5158

uas DRTA TRANSFERRED??

BIS
MOV
BIC
CHP

8 TRE, SGDDAT
RMCS!1,8B0DAT

-“TRE“ SHOULD BE SET
:BAD DRTA FOR TYPEOUT

ROD
MOVB

89, (SP)
#1%,3(SP)

CHP

35$:
408 :

$GODAT

nov

BIC
au;

000030

8RR, SGDDAT

JYES!
!
!=ERRTM

=077

nost SBODAT

MOVB

000000

040000

0000
1330
137777
OC!1I40

i IS RMER1

MOV
BEa

000010

005037
013746
0ON2726
001710
03c. 37
001407
022737
103003

{EXPECT “ERR"=0

RMER]I

S
S
R21

001372

004736
162716

SGODAT

TST

: REPORT n« snaon

041710
041714
041720
041724
041726
Q41734
041736
041744

; ERROR NUMBER

82, {SP)
PC’ a(SP)+
810, (5P)

CHP

SEQ 0187

;REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER
{ERRORS ARE SET,
OR ¥r COMPOSITE ERROR IS NOT SET AND

x oien o B
9277
9278

000010

0OM1

: REPORT ESROR

1os

000000

w67

00114

0888

3737
1413
716

811,3(SP)

SuB
JSR
sUB

NOP
P
e e

13737 091;
84 737 1 8?
013737
0O4S204

.+ 74 8:1653 004736

3258
9259
w°60
Wb
1
262
WR63

MOVB

000010

3204

OM1SH6
Q41554
oMl
OM156M

F15

30(1046)
23-NOV-?7
12:38
PAGE 187
SECONDRRY ERROR CHECK SUBROUTINE

000000

9251
ggég

000011
0000C2

|®]

9248 oMl
w50 041

112776
162716
0047
162716
000240

e
e

041510
0O4IS16
Q41522
O41Sed
041530

£888

242
9243
244
24S
246
247

MRCYI1

BHIS

BEQ

8¢CTRE | $B0DAT
$GODAT . SBDDAT

45§

iWAS DLT,

WCE,

UPE,

NED, NEM

;1S _TTRETM OK??
YES!

'MGVE SP TO USER’'S ERROR CALL
IWRITE ERROR NUMBER

RMOBO RMO3-2 FCTNL TST @2
RMOB
. Pll
23-NOV-77 12:19

PRGE

SECONDRRY ERROR CHECK SUBROUTINE

SuB

000002

82, (SP)

ISR
sgg

000010
4Ss:

188

SEQ 0188

:MOVE

PC ISP+
810, (SP)

SP TO RETURN FOR ERROR

:REPORT TRE ERROR
‘RESTORE (SP)

oo; ng:.;

ron ms FOLLOWING ERRORS:

Y Wy,

LELELELd

MOV

o ¥

IF AN UNEXPECT

SHOULD BE

. $GDOAT

csr

8tCAYR, SCDDAT
RHDS; $800AT
8tCATA, $°0DAT

:STRIP DONT CARES
‘GET RECEIVED ATR
:STRIP DONT ,GARES

ROD
MOVB

84, (SP)
86.3(SP)

IMOVE SP TO usens ERROR CALL
:LORD
ERROR
8 IN
C

PC TSP+

'REPORT ERRO

SuB

NOP

8ATA, SGDDAT

3
3313

T.$8B0DAT

82, (SP)

;EXPECT AN ATTENTION

;IS ATR OK
LYES 1)

: MOVE

810, (5P)

042240

LLLL
L

e
s Pt Pt Pt

T
-

88888

NN
(NI
NN

FBgzee
Z9898%

OTM
042226
042230
042234

MOV

S00S, $GOOAT

BIC

8tCILF, $GODAT

IF ILF DOES NOT COMPARE

czr EXPECTED

ILF

L OTHER BITS

Rnsnxt.geooar

cc RECEIVED ILF

CHP

SGODAT. $BODAT

; xs ILF oK

8+CILF
. SBODRT

BEQ
RDD

608
84, (SP)

JSR
SUB
CLR

PC’ J(SP)+
810, (SP)
$GOOAT

MOVE
SuB

:REPORT

I.E.,

MOV
BIC

60S:

10
ennon RETURN

:RESTORE S

:WITH FUNCTION coge TRBLE

000000

XPECTED ATA STATUS

1S COMPOSITE ERROR SET 77
I

:REPORT ERROR IF ILF IS INCORRECT,
Q42150
042156
O4eled
042172
042200
QM2
Q4221
ONSSIH

BIC
MOV
BIC

ISR

"RMOSI

o ATTENTION OCCURRED OR

sg*

BIS

SuB

5SS

1 POP STRCK INTO RO

BIT
BEQ

CHP
BEQ

o
(=
O

000006
000002

[

001140

[T
oy Y S

00000
0?7777
00134;

82888 88

Q45176
040000

(SP)+,R0

AN ERROR

'ATA IS NOT SET

::PUSH RO ON STACK

sxé
ko FUNCTION CODE
FNCD?B(RO) 5008 :STORE ENTRY

MOV
:REPORT

0404
0u420S2
042060
042062
042070
0M2076
042104
0“5112
0Qu4eleo
04ele2
ov2les
042134
o42140
042142
Q42146
042150

(SP)

MOV
MOV

045204
064674

[ ]

9333

9334
9335
9336
3337
9338
9339
340
9341
342
343
344
345
9346
347
348
9349
9350
9351
9352
9352

G1S

; GET AND gTORE THE EN;;Y FROM THE FUNCTION CODE TRBLE

042026
042030
042034
042042

9331

12:38

:
nrus g §e hnr
se , E.G., ATA AND ILF
:
-STATU
T
suogt
r BE SET, E.G..
WCE AND ECH
iNOTE THAT S
IS
CONDITIONAL ON The COMMAND AND OTHER
:STATUS CONDITIONS
OCK
ERROR SHOULD ONLY BE SET IF
'WRITE LOCK IS ON ANS ?Ht onn5~bIS A WRITE.

L
ONNNN
Lr—
\N\or

23-NOV-77

5 l!llllIlllIllllIllllllllIlllllllllllllllllllllllllllllllillllll

9328
329

30(1046)

1USING me FUNCT

—

3327

162716
004736
162716
000240

9
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318
9319
9320
9321
9322
9323
324
9328
326

QueQle
042016
0“3080
Qu4e0eM
042026

W
~N
£
o

3298
299
3300
9301
9302
9303
304

MACY1l

MOV

ERROR

; sp T0 USERS ERROR CALL

#2584 g(SP)
82, (5P)

WCE

500§, - (SP)

:CLERR ALL OTHER BITS

unx E
I MOVE

ERROR NLMTM
R IN CALL
Y0 ERROx RETURN

'REPORT ERROR AND RETURN
'MOVE SP TO NO ERROR
:CLERR EXPECTED STRTUS
SET

AND

SHOULD

NOT

SET

:GET WCE STATUS ENABLE

CZRMDBO RMO3/2 FCTNL TST @2
CZRMOB. Pl
23-Nov-77 12:19
?2?7?

2!
g

9359
360

MARCY11l

1340
001142

001142

000026
000002

000000

000010

30(1046)

23-NOV-77

B]S

ROV

Amcs

MOVE
SUB
ISR
SuB

ogé
a(sp)

; REPORT ERROR

7777
1344
001142

001142

000004
000164
000002

000000

000010

l?CHS§

BIC
258
908

04S176

12:38

PAGE

SECONDRRY ERROR CHECK SUBROUTINE

#4, (SP)

IF OPI

STRTUS

ooli4e

O42444

162716

000010

1108:

8184 3(SP)
S (5P)
P a(sp)+

84, (SP)

SUB

810, (SP)

S00$

-<sp)

BIT
MOV
BIC

hYygRmoSI
RHEL
? aooat
i§84¢saoonr

MOVB

0165 J(SP)

gxg

oxvco(s?)

B
sug

SET

STATUS ENRBLE

MOVB
u
S

:B]T

nov; TO u§£3¥s ERROR CALL

E ERROR NUMBER IN CALL
SR§P Tg ERROR RE TURN
REP
:RESTORE SP
IS NOT ENRBLED OR
sGET

IVC

STATUS ENRBLE

ihg ¥y SET
IVC SHOULD
BE
EET Rt%s?vgs sgarus
Sk%flfi Igg }F ENRBLED
:YES -

IMOVE SP T0 u§eS§ ERROR CALL

M55,
210, (5P)

'RESTORE SP TO NO ERROR

_THE

uLt

84, (SP)

AL e bR E
;

T OPI

R
E‘ET RECEVED sYATUS
i35;+,$BCDAT
ghggguopx 5; ENABLED

283

000000

IF ENRBLED
SbSNCH“?F
s
:MOVE
SP TO USER'S ERROR CALL

gxc

MOV

Joss

{ RECE
TVEDSTATUS.
_STRATU

IS SET RND SHOULD NOT BE

gggoggosseo?sxr ¥vc
xs SET AND

001342

SEQ 0189

‘WRITE ERROR
NUMBER
:MOVE
T0 ERROR RETURN
:REPORT ERROR
:RESTORE ERROR

PC a(sp)+
810, (SP)

988
100$:

ODRT

93:P+, teoonr

189

TWRITE sngoa sgggszg%snfinLL

HOVE
P IR R

FUNCTION CODE

TRBLE

THE ENARBLING BIT

FOR

Rneng- §PE

sn
H OF THg
R§R S
TO SEE IF AN ERROR IS SET WHEN THE
ERTTECERROR EnaLE Bt 18 RESED.

?5208513" sgngngfiau#E 330§ET
AND WRITE ERRORS ARE NOT ENABLED.
al-all]
042450

012746
§8273?

177777
004000

045176

04e46E

32737
00100z

0c4000

001342

H&HS
4246

40u4

8-1

8IRL , RMDS1

eé

ans

SSUME WRITE ERRORS ENABLED

naE,soos

ngzWRITE ERRORS ENRBLED 7°?

1208

YES

xs rue DRIVE WRITE PROTECTED ~"

0 RMO3-2 FCTNL TST 2

PRpppe fREPPRPPPYY 222
2ppPppppR
PP RPRRR
£
FhESRHS =) BBIERZORZE B L B AL et Setatrir it vet=S

P11

042470

04e4?4
ousggg
ou
042510
04SN
04522
042526
042630

23-NOV-77 12:19

89 71

4000

01373
833537
1412
062716
112776
162716
004736
162716

000023
000002
000010

042534

012746

177777

o42S46
042550
042554
04oS6h
042570
042610

001002
082716
913737
042637
001412
062716
112776
162716
004736
162716

000040
001344
001142
00000M
000025
000002
000010

42614

01274

1777277

oNo626

001002

042534

1394

001142

00000Y

MACYL1 30(1046)

042606

o426 14

042620

032737

004000

04630

042716

000010

0426

001412

OM2634
ouob42

013737
042637

001372
001142

001142

1158:

1208:

000000
1258%:

162716

000010

ON2674

012746

177777

042706
042710
042714
042722
O4e72b
042730
042734
042742
ON2746
042750

001002
082716
013737
042637
001412
062716
112776
162716
004736
162716

o426 74

001142

042754

000002

000010

BIC

MOV
BIC
BEQ
RDD
MOVB
SUB
JSR
SuB
MOV

BIT

1308:

BNE
BIC
MOV
BIC
BEQ
ROD

MOVB
SUB

000000

ISR

1358:

SEG 0190

sWLE, (SP)

RMER]1. $BODAT
(SP)+,$B0DQT
1258
84 (SP)
823,.3(5P)
82, {SP)
PC A(SP)+
s10, (SP)

WLE snn
Eser

c T RECEIVED anus
CLERR
E
IF ENRBLED
anancu
SP 10 u ns ERROR CALL
;nov;
:WRITE ERROR NUMBER IN CALL
TO0 ERROR RETURN
: MOVE
-REPOR ERROR AND RETURN
RESTORE SP TO NO ERROR

sSuB

-1,-(SP)

nuLe 500§

1308’
#WCF , (SP)
RMER|1.$BDDAT
(SP)+, $BODOART
138
#4. (SP)
825, 3(SP)
82, LSP)
PC 3(SP)+
810, (SP)

ASSUME WRITE ERRORS Eh~BLED

IARE WRITE ERRORS ENRBLED 77

IYES !¢
iDISARBLE WCF ERROR
;GET RECEIVED STRTUS
'RESET WCF IF ENRBLED
:BRANCH IF WCF OK
,nov; SP T0 USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL
;novs SP T0 ERROR RETURN
REPORTM ERROR
'RESTORE SP TO NO ERROR

;REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED

045176
001142

MOV

8-1,-(5P}

;nssuns WRITE ERRORS ARE ENABLED

BNE

140

MOV
BIC

RMER2I . $BODAT
(sP)+, $BDOAT

T REC
R SET

SUB

.a,lgp)

ro s
novs 55

810, (SP)

RESTORE sp TO NO ERROR

BIT
1408:

BIC

BEQ

JSR

1458

042700 032737 004000 045176
020000
001340
001142
000004
000024

PAGE 190

:REPORT ERROR IF ucr xs SET AND WRITE ERRORS ARE NOT ENABLED

162716 888832
o426b2
042666 004736
042670

12:38

SECONDARY ERROR CHECK SUBROUTINE

042540 032737 004000 045176

042574
o4o602

23-NOV-77

I1S

001142

sus

IHLE,SOOS
8DPE, (SP)
1.8

PC A(SP)+

;

ITE ERRORS ENABLED 7

7 DPE ENABLE

NCH 1

REPORT

STATUS
ENRBLED
0K

RE TURN

; REPORT AN snnoa xr UPE IS SET AND WRITE ERRORS ARE NOT ENRBLED
MOV
(SP)
;RSSUME WRITE ERRORS ARE ENABLED

BIT

15S08:

000000
155%:

BNE
BIC
MOV
BIC
BEG
RDD
MOVB
SuB
JSR
suB

ouLt soos

150$’
oUPE (SP)
RMCS21.$BDDAT
(SP)+, $BODAT
155%
ou (SP)
824, J(SP)
82, {SP)
PC A(SP)+
810, (SP)

: ARE WRITE ERRORS ENABLED 77

PYES
DISRBLE UPE ERROR
:GET RECEIVED STATUS
TRESET
IF ENRBLED
ennncu IF UPE OK
nov; T0 USERS ERROR CALL
;WRITE_ERROR NUMBER IN CALL
MOVE SP TO ERROR RETURN
REPORT ERROR AND RE TURN
'MOVE SP TO NO ERROR

c*nnoeo RMO3-2 FCINL TST 2
CZRMDB. P11
23-NOV-77 12:19
466
Q67

0427SM

013746

0NS176

042764

013737

001344

Q47

00412

0ON300N
043012
043016
043020

112776
162716
004736
162716

468 042760 osg?xg 1787277
470

QON2?72

042637

001142

472 ouaoss 062716 DONOOM
Q473
3474y
475
9476

3345

043024

000166
000002

MACY11l

J15

30(1046)
23-NOV-77
12:38
PARGE 191
SECONDARY ERROR CHECK SUBROUTINE

SEQ 0191

:REPORT AN ERROR 3‘ xne ;s SET AND xs NOT ENRBLED
MOV
:GET
IRE ENRBL
001142

BIS

ofC£b§ (SP)

s TQE ? R BITS

BIC

(sp>+ "$BODRT

; LERR 1RE

MOV

$BODAT

BEQ

000000

000010

1608

ROD

1608$:

84, (SP)

MOVB
sy
Js
suB

8166, 3(SP)
82, (5P)
PC 3(SP)+
810, (SP)

RECEIVED

;BRRNCH

STATUS

IF snnaLeo

IRE

IS
O

:MOVE SP T0 u ens ERROR CALL
:WRITE ERROR
N
;novs ?P 10 nnon nsrunn
'REPORY ERROR AND RETURN
MOVE SP TO NO ERROR

9479

;BIT 09_(ROE)

3481
462

:
:

RMCS]1 - TR ;
RMCS2 - DLT,NEM, MXF

:
i NOTE
:

RMER]L

3480

THE

FUNCTION CODE TARBLE

; ALL RERD/WRITE ERRORS, I.E.,

483

3:35

chénosn REGISTER IS WRITTEN

g:gg

oTE

ROE CANNOT BE SET

323é

TRE IS CHECKED RS R FUNCTION OF OTHER ERROR CONCITONS RBOVE

ayg4
3485
3486

94q3
9434
3495

043024

012746

9497

(043036

001002

9496

032737

001000

(043040

042716

9500
9501
9502
9503
9504

043052
043056
ON3K
0
0O430b4
043072

2637
001412

9506

9438

083030

177777

045176

8IC

é;: &

001142

BIC
BEQ
RDD
MOVB
SuB

nncséx seooar

000004

043104

9509
9510

Q43104

012746

177777

9515
9513

mgxés
0431

9515
9516
9517
9518

043132
043136
043140
043144

042637
00IMN12
062716
112776

9520
9521

043166
(043160

004736
162716

9519

000032
000002

000000

1708:

043152

162716

004000

001142

000002

000010

MOV

000000

suB

:REPORT ERROR
MOV

001340 001142 1758:
000004
000167

BNE

JSR

043110 032737 001000 045176
16

IS NOT ALSO SET

100000

gggg

9514 043124 013737

IF LBT

IT ONLY RESETS WHEN THE DESIRED

nas ERRORS ENRBLED 77

000010

9511

IS NOT CHECKED BECRUSE

#a0t, 5008

043100

043076

- AOE

BIT

112776
162716
004736
162716

9506

LBT

- LBT’

:REPORT
AN ERROR IF DLT IS SET AND RERD/WRITE ERRORS ARE NOT
MOV
#-1,-(SP)
; ssunsnsnnons ARE ENRBLED

9439 Q43044 853737 001340 001142 1658:
0527;5

RMDS

IS THE ENRBLING BIT FOR

BIT

8
Bl

MOV

BIC
BEQ
RDD
MOVB

sSuB

JSR
SuB

sss

(SP)+, $BODAT
1708

84,

(SP)

832, 3(SP)
82, {SP)
PC (SP)+
010, (SP)

ENARBLED

me%

RE ¥ D STATUS

:CLERR DLT
IF ENQBLED
anaucn IF OLY
OK
IMOVE
SP T0 uscns snnon CRLL
:WRITE ERROR NUMBER IN
C
'MOVE SP TO
ERROR RETURN

REPORT ERR

AND RE TURN

‘MOVE SP
TO NO ERROR

IF NEH ts SET AND Rsng/unxr
ERRORS ARE NJT ENARBLED
-1,-(5P)
SSUME E RORS ARE ENABLED

oaot s00S

Rncséx saoonr

;
-o

S ENRBLED

RBLE NEM

:GEY RECEIVED STARTUS

(SP)+, $BDDAT
1808
84, (SP)
8167 9(SP)

:CLERR NEM IF ENABLED
annncu IF NEM IS OK
nov; T0 USERS ERROR CALL
uRI € ERROR NUMBER IN CALL

PC d(SP)+
, (SP)

REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

82, (5P)

MOVE SP TO ERROR RETURN

EZRHDBO RMO3/2 FCTNL TST 2
RMOB.P1L
23-NOV-77 12:19
9522
9523

043164

952S

3164

9529 8:3190

952
9528
9529
9530
9831
QS
953S
9536

9537
9538
9539
9540
gg:l

0431
0OM
8:

12
043258
oN3e
8:3253

1274

001002
71;
137
7
825“12

716
112776

2??7?

601000

04S176

1000
1340
1142

001142

000004
000033

685716
736
162716

000002

OM324M
043250

0l274
03?337

177777
001000

Tk BER S
Xk fIoN
coion
2% Gm

K61

9663
9SHY
K6S
566
Q57
Q568
569
QS70
9S71
Qc72
9573
Sy
9575
976
9577

0ON3306
0ON3310
ONM3I3IN
0OM3322
043326
043330
043334

23-NOVv-?77
12:38
PAGE 192
SECONDARY ERROR CHECK SUBROUTINE

001412
062716
112776
162716
004736
162716

; REFORY ERROR
MOV

BIT

185S:

SEQ 0132

00000M
000020
000002

IF MXF IS SET AND REQO/HRITE ERRORS RRE NOT ENABLED
8-]1,-(5P
UME
ERRORS ARE
ENRBLED

56 5303

000000

1ass
SMXF , (SP)
RMCS21 sgooar
<sp)+ $800AT

.o
E MXF ERROR
:
EJVED STATUS
;CLEAR
M
r ENABLED

AOD

MOVB

oq (sp)

: MOV SP TO uscns ERROR CALL

suB

ISR
sus

82, LSP)

PC TSP+
810, (SP)

ERROR

axr

045176

IF nos

:DISABLE ROE

RH%RII $80DAT
)+, $BDOART

SuB

c00$:

SUB

AND RETURN
NO ERROR

8ROE , (SP)

MOV
BIC
MOVB

REP
SP

NOMBER IN CALL

RROR RETURN

nRE DATA ERRUNS EANBLED 77

001142

BEQ

onoé soos

001342

BIC

: MOVE

IS OK

xs ser AND DATA ERRORS ARE NOT ENABLED
(sp
“ASSUME DATA FRRORS ARE ENABLED

191§
sLBT,RMOSI
19S%

000010

ennncn

833, 3(5P)

BEQ
BIT
BNE

000000

22 DSTE ERRORS ENABLED 77

BNE
BIC
MOV
gIc

BEQ

000010

gg:“ S:gggs §§f?g; 002000

Q5N8
9549
9550
9551
QSSS
QcS
9504
955g
9556
CG5?
9558
9559
9c60

K15

30(1046)

180§.

32
Oqgsgs
0O

0OMN324M

MACYL11

:NO
1S LBT ALSO SET 72
'YES 1!

:GET RECEIVED STATUS
:CLEAR ROE IF ENABLED

2008
4.

:BRANCH IF AOE IS OK

(SP)

;novg

TO USERS

ERROR

s20,3(5P)

PWRI ESSRROR

PC 3(SP)+

:REPORT ERROR AND RETURN

82, {SP)

; MOVE

210, (SP)

CaLl

T0 ERROR RETURN

:MOVE SP TO NO ERROR

;81T 07 égggasorTHE FUNCTION CODE TRBLE IS THE ENABLING BIT FOR

; HERDER

RMER]1 - HCRC.MHCE,FER

RMER2 - BSE

043334
0O43342
OM3344
43382

032737
001403
(42737

002000

001362

000200

045176

0OM33S2

8127%6

1772?27

0O433SH
0ON3364
0434
0ON337
OM3v
Du3404
043406
0DN34]12
0M3420

32737
001002
0“2719
8&373
2637
001442
063716
112776
162716

THE ENABLING BIT

BIT

BEQ

2018:

BIC

: REPORT Qg ERROR

000200

Q4s176

000400
001344
001142

001142

000004
00003S
000002

;RESET

20ss:

BIT
BNE
BIC

2018’

#HCE , 5008

HERDER

;1S HCT

INO Y

COMPARE

SET

INHIBIT

IS SET

'YES - DISABLE ALL HEADER ERRORS

IF HCRC IS SET AND HEADER ERRORS ARE NOT
8-1,-(SP)
assuns ERRORS ENABLED

sHCE, SO0S
205
8HCRC, (SP)

ARE HEADER ERRORS ENABLED
ng

ENRBLED

CRC

MOV
BIC

RMERI}, $BODAT
(SP)+, $8DDAT

csr ecsxvso STATUS
*RESET MCRC xr ENRBLED

ADD
MOVB
suB

#4, (SP)
835 3(sP)
82, [SP)

nov; SP TO USERS ERROR CALL
'WRIYE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN

BEQ
000000

(HCE)

SHC], RMOFI

2lios

:BRANCH IF HCRC IS OK

CZRMDBO RMU3/2 FCTNL

CZRMOB.PL1
9578

9579

ON3424

Q43426

323?
9582

043432

9584

Q43436

TST

23-NOV-7? 12:19
004736

162716

9c83

QN343R

012799

9585

QM3INYM

001002

177777

032737

000200

000200
001344

ON3NNYG
04305

mgn;
013737

9599
9530

8:3%4
3966

%412
716

€32

O4IS00

63«42716

000002

(QM3.J6

162716

000010

0Q43SI2
(42516

01274
032737

177777
000200

959]

0NN

QM3472

3533

O4IS0M

gggg
9597

043Si2

3594

9599
9599

042637
112776

736

600 042 24 ooxage

3‘885 8*4“{9*3)3

9603 O4ISH0
9604

O43SY4

001412

062716

307

03560

162716

W08

%09

0O43IS6M

043566

%}?

0N3572

9612
3613

8:3572

%14

576

%19 0N361

%18
%19

3620
%3]
%22

004736

162716

855”

000037

000002

062716
112776
162716

00000M
000354
000002

043646

16271

000010

ggg

0N3652

004736

193

PC,(SP)+

SEQ 0193

;REPORT ERROR AMD RETURN

s10, (SP)

:MOVE SP TO NO ERROR

MOV

8-1,-(SP)

BNE

215$

ERRORS ENRBLED

O0"li42

s
RMER]

BEQ
ROD

2208
84, (SP)

:BRANCH I "'fi&&? oK
;nov; SP 10
ERROR CALL

suUg

82, ISP)

s10, (SP)

:MOVE SP TO NO ERROR

2158:

00000G

BIC

MOVB

JSR

SUB

sHCE,

‘232

Bi.
MOV

5008

;

ERRORS ENRBLED 77

5 (SP)
I, SBODAT

E HCVE
EIVED STATUS

LERY

(SP)+,$BOOAT

03b d(SP)

PC.3(SP)+

:CLEAR HCE IF ENABLED

:WRITE

ERROR NUMBER IN CALL

:REPORY

€

ERROR RETURN

AND RE TURN

220$:
;REPORT ERROR IF FER 1S SET AND nggoen ERR
MOV
817

045176

'Fenfism DAT

8 ?R%E foE

BIC

?5»,338807

BEQ

000C0OC

;ASSUME FER
IS ENABLED
;N% HERDER ERRORS ENABLED

22<€

MOVB
SUB

JSR

SuUB

ARE NOT ENABLEG

8-1,-(SP)
sHCE , S00S

BNE

ADD

2308

17 cgm
#3?

82, [SP)

PC TSP+

810, (5P)

*°

TATUS

IRESET SE&"?P ENRBLED
:BRANCH

IF FER OK

;novg SP T0 USERS ERRGR CALL
‘WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN

'REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

230S:
:REPORT ERROR IF BSE IS SET AND HERDER ERRORS ARE NOT ENRBLED
MOV
8-1,-(5P)
- ASSUME ERRORS ENABLED

gf%?i? og?gn 001142 2358:
412

PAGE

ERROR CHECK SUBROUTINE

BIT

27772

326
8:3533
36

833524

L1S

045176

600200 045176
001142

12:38

2108:
;REPORT ERROR IF MCE IS SET AND HERDER ERRORS RRE NOT ENABLED

000010

%2837

043644

627

112776

DOOOOM

043620

9623

9624

0000

ag-nov-n

SuB

ee37 001142

masgg
OM3C

0O0O04

SECONORRY

1531? oo“m“E DOil42 225%

08
3606

001142

30(1046)

JSR

000010

9586
9587
588

MACY11

BIT

sHCE, SO0S

'ARE THEY ENRBLED 77

MOV

s
RMER2I,
SBODAT

;

BEQ

2408

'BRANCH IF 83&0“

ISR

PC J(SP)+

BIC

ROD
NOVB
SuUB

000000
2408:
;BIT

suB

(sP)+, $BODAT

agksgg&%o STATUS

:CLEAR B

F ENRBLED

#4, (SP)
8384 9(SP)
82, (8P)

;nov; SP 10
RS ERROR CALL
‘WRITE ERROR NUMBE
;novs
T0 ERROR RETURN

210, (SP)

:MOVE SP TO NO ERROR

'REPORT

ERROR

AND RETURN

OF THE FUNCTION CODE TRBLE IS THE ENRBLING BIT FOR DRTS

3628
3629

:FIELD
:

9632
9633

:
ECH CANNOT SET UNLESS IT IS ENRBLED AND ECI IS RESET AND
‘OCK 1S SET.

323?

NoTE

CRRORS, 1.E.
RMCS2’ - MDPE
RMERI

- DCK,ECH

CZRMDBO RMO3-2 FCTNL TST 2
"CZRMOB. P11
23-NOV-77 12:19

MRCY1l

ML1S

30(1046)
23-NOV-77
12:38
PAGE 194
SECONDARY ERROR CHECK suenounns‘

—

:REPORT ERROR IF MOPE IS SET AND IS NOT ENRBLED

®L sfiassa %‘%fi 860158 ousi7e
I3
323
%fi
%%
94?7

%fi
9650

B4
83h 333}71
8:3;

083726

0N3732

EOM ETE ove e
gé:xa 001142
11 :;2 8%2? 00000G *
&5752
162716

000010

281 BTk BASTS AATHD ousie

qssa

043794

ooxgoe

%56

0MI7B0

042637

001142

0OM3772

112776

716

000O0M

%662
4006
9553 [ Y TE]

162716

%Es 8:3% 875759

9659

28Y BB

Agssae oo

%67

%62

044036

032737

227227

100000

&g % fiégg; %oxoo
%6

%gg

162716

000010

sib, (SP)

QBEUBETSN??EEB ERRORS ENABLED *7
UPREoup

;
€D
,nov;z
SRUE’%SRRSRCS&L
ggg&i RSOS
H

:MOVE SP TO NO snno«

e ERebleD 7

ENE

2558’

?.E

gIC

(SP)+, $BODAT

CLEm 0CK &F;KENMLED

84, (SP)

! AOVE SP T0 USERS

sue

figfnlf
$80DAT
:wlgésm

P& LTEe
810, (SP)

?“flk&?&o STATUS

”mosre

P Rep

mon Nunec

ERROR CALL
N CRLL

AND RETORN

:MOVE SP T0 NO snnon

RO R FIELD ERRORS
ARE ROT ENABLED, OR
ECI IS SET, OR
2§5 Is "QI SEI )
!

001344

2658

)

Bos
aeth,s
gg , RMOF [

”gééx SET 27

BIT

80OCK,RMER11

;15 ocx ALSO SEY ??

MOV

mtnlt saoocTn

E'I'E

B
ISR

2758:

8IY
- gzg
Q00

%Sg 53%6 &S?’E BBgR3s Oovoou

4104
984 044106
gges s YTE

SUB

JEB

1344 pO1142 2708:

27 B Ry
oo
716
000004

B
35%’
AT
:37;52%5’)
3 'A(SP)+

ousize
WZTET 001362
RASTH 004000
Budle gécég
220 m
%;é
3674

B
so
%899

MOVB

2608 :

"ég'é&"’ )

BYY

000000

000010

Egi

2508:
;REPORT ERROR IF DCK IS SET AND oam rxeko emoas ARE NOT ENABLED

9 001142 2558:

0000£

SEQ 0194
.

SUB

(SP)

e
wi(sm

LE_ECH

CEIVED STATUS

g SPeTO USERS
e
ERROR gftL

138457

Hfi&‘sfi"?%%fi‘fldfinfi

818, (SP)

novc SP TO NO ERROR

PC I(SP)+

REPORTERROR AND RETURN

(222 X2 X Y 2 X Y XY T R 2 YR XY 2 R R X X PR T X P Y R X X T X X Y Y Y 2 X X S X2 XX 222X2X2222)

'BERFORM THE REMRINING ERROR CHECKS ONLY FOR DRTR TRANSFER COMMANDS

CZRHDBO RMO3/2 FCTNL TST 2
CZRMOB.P11
23-NOv-77 12:19

9690
93]
992
9633

QN4112
O0ON4120
044122

022737
103402
000137

00003C
Qu4sISs0

MACY11l

04S20d

N1S

30(1046)
22-NOV-77
12:38
PRGE 195
SECONDRRY
ERROR CHECK SUBROUTINE

CMP
BLO
JMP

8SEARCH, 5158
280s
355%

; WAS DATR TRANSFERRED??
; YES!!

SEQ 0195

CZRN)BO RMO3/2 FCTNL TST 2
CZRMDOB.P11
23-NOV-77 12:19
%64
9695

9637
%96
%99
9200

B1l6

PRGE 196
MACYL1l 30(10"06)
EE-NOV
-77_
12:38
RROR Ct(CK SUBROUTINE

; THE F?LEOHING ;TRTUS Cf?CK
ARE FOR DATA TRANSFER COMMANDS ONLY
0‘0‘415&

1
136
194
1

9701
1%
o g

0137

0014
7
912

001332

co11ve2

040000

001330

9708
9709

0O%v200
0ON4206

9712
9713
9714

0ONM¥e2ee
O%ueMTMM
Q44236

9716
9717
9718

0OM4
0OTMM¥2SM
(OTM

9722
9723
974

OMM4
OMN306

971%

g:flglfl
%220

D0CJ1S
O

013737
163737

001332
001402

O'-Hgg

%z?
1"03
013737

373

‘4%9

Y] gme‘m

RDO
MOVB
CLR
)
ISR

000010

7 guit 0iFT3 GB3

9733
973
g;35

0ONM34%
0OMM3Se
o4M3SY

161666
73
022626

000002

oMd3S6

013737

001406

oM2737

1777‘$

g;:?

(013737
013737

2908:

001334

162716
000240

001406
00143M

Q74

3T )

CMP

o4S20e
guse
045176
045202

OM4MeY

o45202

000040

9748
9749

Q44439
O44442
(O4NM44

023727
103406
00S237

048202

000240

:$ES"FER ERROR DETECTED??

T
; ERROR

w (gp
SP)
sm

uo (

HOR COUNT ZERO??

;

on TYPEOUT
TO RETURN FOR ERROR
WORD COUNT NOT ZERO

srom: (SP)
T comsc

SGDDAT
ganx,hncsax

;NUMBER OF WORDS TRANSFERRED

.wms.gar SET 77

;EXPECTED BUS RDDRESS

% 3%31

;RDDRESS SHOULD NOT HAVE CHANGED

:létsfismu
Pg
uO (

FOR
ERROR
?Pqéxpec
ED(SP)
ADDRESS

[

8EQ
MOV
ROD

m
$BODAT
84, (SP)

n%vB

ORmcRS CTORS
,~(SP) TRANS,
(SP)

,eus RADDRESS OK”?

YES!
,aao onm FOR TYPEOUT

R8: MW
TRANSFERRED
ERRED

RMCO.
82S6.
.~ (SP)

;

aoos: " Tk
suB

acapy(SP),2(SP)
P

e
'é
é’“gcrTORRy
ECTOR
:
Rinc
3 uonm

nov
MOV
gxc

RMOAC |
RMOCO |
uc; 5108

;sronE ORIGINAL TRACK
:STORE ORIGINAL CYLINDER

RDD

(sP)4,5108

sue
MOV

Séc;

001400

9745

DNS176

MOV

"sfi\e’la
SR

fiix,msxo

;

R OF

PER SECTOR

R 8 DATA COMMAND?

BGT
3008
.com;
IF no DONE
comurec?;m:cr Srfiqoo.Og
ARTrack .S
ARG
afiéfifiss
LEROM NUMBER OF SECTORS
o&sLeLTNOER
onxtsxru
sec
BIC

045200

795 gume ge37e
9747

mcsu

rssousé

235
géa

001140

;

. REPORT ERROR IF nfi“

28ss:

0014

FO guin
019 powe
T3 owix QIiE
0O4¥364
044372

AND TRE IS ;: 0

0
T

gll‘*fl
140M

22 TR EE
oy
727 owdle 1e¥riE GO

9738
9739

: REPOR

bgos:

000004

9708 O‘N{%g 71& 000010
22 iR =
9710
9711

SEG 0136

3068:

CMP
BLO

.5 EE S0S$

sxo;,oaa.
315

;SECTOR OVEFLOWED??
NO!

3108

‘NO!

CMP

5108, 8<5#32.> ;evLmoens WORTH??

INC

5008

BLO

:YES INCREMENT CYLINDER

162737

000240

Clb

ouSe0e
o4s20e
00000S

g
3

9797
9800

3803
9804

Rodtrio

338 g5

A4
AP 35

cHP

MOVS
4
JSR

n:nr TRRCK
By

, 85 ; TRRCK ovsgrLouso”

xncnsn:nr CYL INCER
HOUL

cgg

,RMERLI

angsi?igggar

001344

001467

045176

53657

YE?
ég%g
R ooy SET
OR1TYPEOUT

50882 ;uoggT

;xs LBT CORRECT??

§:sp)
PéJ(SPI+

no
E ;P RETURN roa ERROR
:REPORY LBT IS WR

810, (SP)

SYES!!

RESTORE (SP)

CLR

$GDDAT

:SET FOR ROE=0

ans

0§’

: YES-"ROE~ SHOULD BE ZERO

BIT

¢
BH

§s$
1

340S:

736

000000

DATA FOR LBT=0

LBT BE SET??

ser 29

RECIRT ENSSOR IF “ROETM IS INCORRECT

001140
002000

33s$:

|
16
000240

CLR

RDD

Q44766
044772

Blas
$

no:usr secron

$ ;RDJUST $Rac
3
TRY ncnxn
31
RROR IF =L r~ IS NOT cofinscr

BEQ

7
162716

o<siaa.>,sxos

gng

OMM47

980£ gm

ctg

MOV
3258: n?v

&
¥

979%

3158:

8?$

979S

z
33
g8t SRS FDy

q 424 48
$ B2

1
bl4
0ON4%16
044622

3
b3]

9776

s SR 3

9770

5
B8R

REPORT

9768

SuB

310s:

526s:

OMM542

SEQ 0197

MACYLL 8¢ {8NBAavERRON Checkdikro fTRe

8IRE RMERLI

#823.,5008
3
g

51S$

RMUCI

2383 $GDOAT

axg

CMP

MOVB
S
IS
Sus

820 . 3(sP)
o , LSP)
PC TSP+
810, (SP)

CLR

NOP

:SHOULD ROE BE SET??
sNO!Y
.!Yfiggsi

g?gs
3358

TWAS ~IRETM DETECTED??

;zsg 'y

;

$HIS REARD OR WRITE CHECK 7

iNO_!!

MRS ALL DATA TRANSFERRED ??

Eé
'EE?
-n.

976b

E
f
SR A felh 201 DYil 8

J% g !

CZRN)BO RMO3/72_FCTNL 7;1’13'19
23-NovCZRMOB.PLL

: CLEAR sxpecrso TRACK

DATR FOR TYPEOUT
o B
IE 99: CORRECTY??

(sp)

'5R§P 70 RETURN ron ERROR
REP
noe IS
W
srons (sp)

;REPORT ERROR IF RMDA IS NOT CORRECT

CZRMOBO RM03/2 FCTNL TST 2

23-Nov-7?7 12:19

001344

001140

9831

ouso;E

0137%;

0;2175

9824
9825

Q45112
Q45120

023737
001413

001140

eeeg Sié?m 8'14 X 14

1365

%529 g:éfgé 1x27§§ 0000
9823 045134 162716 000055

3829
6830
6831

N4SI40
(045142
045146

004736
162716
000240

000010

BIT
BNE
Moy

noeg

MOV
cHP
8EQ
RDD
Move
sSuB
JSR

ggfe g:sose xse;?"g 000010
B0

34SS:

000000

11
16071

£
g

1413
3

981
981y
9818
991;

e e

S s duy %h

D16

000000

‘

12:38
30(1046)
PRGE 198
23-NQv- 77
SECONDRRY ERROR CHECK SUBROUTINE

001140
1142
1142

e e

002000

032737
001062

QuN77v
o4s002

2388

CZRMOB.P11

MACY11l

.IQE RMERLI

3558’

:WAS THERE AN

1RE ER ROR

;YES - DONT CHECK RMDA RMOC
iSETUP EXPECTED DI SK nbonsss

f'?g
!

EEHP
E
CTED SK
& RECEIVED
3

osl (SP)
,tsp)
P a(§$)+

;ERROR Numee
i MOVE
> RETURN FOR ERROR
{REPOR ano DISK RDDRESS

(gp

010, ¢

REPORT ERROR IF
MOV
8IC
MOV
crP
BEQ
RDD
.‘4 (SP)

TUP RECEIVED DISK

ADDRESS

RANCH 1

;RESTORE (SP)

fc? cog :SETUP RECEIVED CYLINDER
RHDé

Sc0s:

Move

SuB
JSR

suB
NOP

osé
3(sP)

PC a(sp)+
810, (5P)

I'CORREC

; SETUP EXPECTED CYLINDER

; COMPARE CYL INDERS
;BRANCH IF EQUAL

; ERROR NUMBER
:MOVE SP 1O RETURN FOR ERROR
: REPORT ano CYL INDER
RESTORE (SP)

SEQ 0198

CZRY‘IOGO RMO3/72 FCTNL TST
CZRMOB.P11
23-NOV-?77 12:19

9832

(0N51S0

062716

3533

O4S1E4

9€ 35
983%

8:51&2
166

062716
000402

ggg

O4S179

000207

38940
984]
9842

045176
(045200
045202

000000
000000
000000

9834

9837

gg:g

OMS1EQ3

Q45170

045204

10S?76

001403

162716

000000

00GOOY

000200

ELG

MACYil 30(1096)
22 NOV=-77
12:38 PAGE 199
SECONDRRY ERROR CHECK SUBROUTINE

3558:

360%

a4, (SP)

;MOVE_(SP) T0 ERROR CALL

TET8

(5P

:WAS ERROR FOUND??

ROD
BR

#4, (SP)
s

:MOVE (SP) TO ERROR RETURN

eEQ

000004
000004

ADD

3658:

RTS

84, (SP)

:MOVE (SP) TG NO ERROR RETURN

5008:
S058:
510§

.WORD
.WORD
WORD

O
O
90

: CYL INDER
: TRACK
ISECTOR

515§

SUB

3608

WORD

:FUNCTION CODE

SEQ 0199

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOS. P11
23-NOV-77 12:19

MACY1l

gg:g

30(1046)
23-NOV-77?
12:38
DEVICE SELECT SUBROUTINE

.SBTTL

F16

PRGE 200

SEQ 0200

DEVICE SELECT SUBROUTINE

9848
9849
3850
986 |
9852
9853
3854
gggg
9857
9858
9859
3860

;
:

THIS SUBROUTINE SELECTS
TEST QUEUE.

s CALL:
(1)
2(2)
23
f(4)
045206

ISR
BR
NOP
ERROR

THE DEVICE,

PC, DEVSEL
2%

062715

000004
000004

045212

FIE D)

045216

162716

3864

045222

01374

000006

MOV

RRVECY2,-(SP)

045232

01004

3868 045236 012737

045356 000004

MOV

R].

9870
gg;é

001276
001450

MOV

MOV
MOV

9865

3867
8609

045226

105076

;CLERR USER’S ERROR CALL
#4, (SP)

CLRB

9863

013746

0O45234

010149

045244

012737

045252
045256

013700
013701

3874

04S262

111160

9876

Q45274

oxsog;

045310

825407

3873

9878

877
3878

(045266

9879
ggg?

(45312
045320

3883
9884

046336

000000

98895

Q45346

00000Y4

000300

000010

016037

000000

Q327

0100G.

766
11&7;&

9889
3890
389]

112776

000407

045356

022626

9892
3833
gggg

0O4S360
045366
048374

3836
a897
9848
9899
9363

045402

990]

001021
062766

O45S3S4

eéee 045356

045402

045404

RETURN IF NG ERROR
RETURN IF ERROR
ERROR DEFINED BY SUBROUTINE

062766
112776
162766

84,

(SP)

;MOVE SP TO USER’S ERROR

:CLEAR LOW ORDER BYTE OF CALL
:MOVE SP PACK

SAVE USER’S xnronfinrxon AND SET(P REGISTERS
MOV

MOV

000006

C,-(SP)

0,-(SP)
-13P)

8208, ERRVEC

RRVEC+2

st RS
ToUE, R1

ERRVEC ON STA

;PUSH ER Rvsc+a ON STACK

PUSH no ON STACK

: P¥

MOVB

001176

MOV

(R1),

RMCS2(R0)

ACK

FOR aug
TIHEOUT

;RO = ?N*BU? RDDRESS
;n1 POIN
0 DEVICE NUMBER

;SELECT DEVICE AMD VERIFY_THAT DEV cs

xs nvnaneLe

ITE UNIT SELECT BITS

RMCS (gg),srnpl:GET “pvR* srnrus

0000'~

001174

0QUCOON
000111

000010
000010

A0D
ggva

84,
10(SP)
5111,310(59)

novs SP TO USERS ERROR CALL
SWRITE ERROR NUMBER

000010

BNE
RDD

3Ss
84, 10(SP)

SYES!?

001174

BIT

8EQ

9682 8:2353 03573; 0O4000 001176 10$:
9889

THE DEVICE NUMBER FROM THE

DEVSEL
:

9861

3662

GETTING

000004

000li2

000010

MOVB

208:
000004
000113
000002

000010
000010
000010

8IT
BR

(RO) . STMPO
;cgr “NED*

,$THPD

ogva,srnpx

STATUS

DEVICE noucxxsrsnrov

.xs DEVICE AVAILABLE”?

oxla 910(SP)

:HANDLE BUS TIMEOUT
CHP
(SP)+ . (SP)+

:ADJUST SP

30$:

:MOVE SP TO RETURN IF ERRCR

ADD
MOVE
su8

oq 10lspP)
s113,910(sP)
82, 10(5P)

35§

012601

012600

:RESTORE USERS onra AND RETURN TO ADDRESS ON STACK
MOV
(SP)+,R1
: ;POP STACK INTO RI

MOV

(5P)+.R0

' 'pOP 3TACK INTO RO

C’RHOBO RMO3/2 FCTNL

CZRMOB. P11

TST 2

23-NOv-77 12:1

9902

Q45406

012637

9904

048416

000207

000006

93903 0O4S412 012637 000004

MACY11

30(1046)

:38

DEVICESELECT suenoufing
MOV

MOV

RTS

Glb6

PRGE 201

(SP)+,ERRVEC+2

(S5P)+ ERRVEC

SEQ O

P STRCK

INTO ERRVEC+2

POP STACK INTO ERRVEC

.t 17

201

CZRMDBO RMu3-/2 FCTNL TST 2
CZRMO8B. Pll
23-NOv-77 12:19

MACY11l

23-NOv-77
12:38
PAGE 202
SEEK STRTUS CHECK SUBROUTINE

3508

SBTTL

TearPRRRHE? ES STORED IN THE PUT BUFFER.
£ K TESTS USING STRTUS

THE SUBROUTINE RETURNS TO THE CALL ING ROUTINE IF AN ERROR IS DETECTED
iAFTER HAVING LOADED THE APPROPRIAT E ERROR NUMBER IN THE “ERRORTM TRAP
{OF THE CALLING ROUTINE. SEEK STAT US IS CHECKED RS FOLLOWS:

,CQLL
S01)

JSR

;

ERROR

JSR

NOP

;

04sHe0

q42453 38518
Q4SHeH

105076

000004
000000

RDD

CLRB

883
; TEST

032737
D0l424

FER 837020

000010

001344

000010

001372

te 813737 g1
0114

o4S
g4ssSle
Q4SS1Y4
Q45520

062716
112776
162716

000004
000050
30002

162716
000437

000010

736

FOR

RET
URN uERE ;0
REP RRORAN_ERROR

ERR OR NUMBER DEF INED BY sus
FOR MORE
ERROR CHECKS
30 BACK TQ SUB
ET UR{ HERE
IF
NO MORE ERRORS

PC,3(SP)+

B6ACa

v
0014.

(SP)

;MO VE

BUS

iLoTAL Rs?¥STEP°593kERhER1?R
EIT

TO ERROR CALL

icL ¥R ERROR®

300§

CONTROL

(SP)

gb ERAR ERROR NUM

sgps,RMER21

PQRIT
I Y

;4 S

NSGERROR RETURN

§RROREHHEN0HRITING

?TY ERROR DETECTED"?

un; guague TO CONTROL BUS??

:REPORT REGISTER PAR rv ERROR VIA
001142
000000

CLR

MOV
RDD

11 $BODART
#4_ (SP)

JSR

PC.TSP)+

MOVB
sug

SuB
BR

001140
046656
001466
045656
ucno37

001406

84,

CALL

aaépép)

MRSSBUS

;DETERMINE

o4se?72

121

;CLERR uagg's ERROP

NeE deEods BReeEs
o4S4H42
045450

292

PC,SEKSTS

SEKSTS:

e[
e frem
e
e
s 0t Pt Pt

vv
&3 B

B.2:8:2

DONTNLWh— o

&5R L $88855853880

3308

SEQ 0202

SEEK STRTUS CHECK SUBROUTINE

THIS SUBROUTINE VERIFIES TH
iSTORED IN THE GET BUFFER AN

9907

9941

H16

30(1046)

000723s

#s0 3(SP)
82, {SP)

a1, (SP)
3s

s g 8 3
TU

TRTUS
novs sracx TO USER’S ERROR

S
ove SP TO RETURN FOR ERROR

RESTORE STRCK
:IRE SHOULD BE ZERO

THE VALUE OF “JRETM STATIS BRSED ON TRACK,SECTOR AND

: CYLINDER ADDRESS USED DURING SEEK OPERATION
8]AE,
is:
MOV

Brs

CHP
B4l
BIC

CMPB

BHI
CMPB
BLCS

sy 36BR°T

RMDCO, 8822.
38
aSK
1, 3008

RMDRY, 831.

38
RMDRO, 829.
2s

i3! gKI ERR&R FLRG
CYLINDER > Bee??
YES!

CLERR SK1 ERROR FLAG
SEgTOR > 317
SSCTOR > 29 *?

(‘)(“)

RHOBO

RMO3/2

9961
9962

QNSS74
045602

032737
0014

Q45612
0456 1N

10100;

3968

gzsssg

85 737

9970

Q45634

QuSENY
Q45652

RMOB.P11
9963

9364
3322
9967

9369

Q4S60M

FCTNL

TST

23-NOV-?? 13:19
001407

0000CM

2$:

oox;uq

001142

3S:

023737

001140

001142

042737
13

040000

12372?

7?37

0010M

001140
175777

9374
9975
9976

Q45654

045654

062716

00000

9978

Q45666

162716

000002

162716

000010

001148

Q45672

998]
3982
3383
99a4

QON&?
Q45702

9980

Q45674

736

000240

9987
9984
9389
9330

9331

Q45702
O4S710
Q45712
045716

032737
001427
005037
013737

062716

9993
9994
9395

045736
ON579N
Q45746

032737
001403
112776

13333

045766

000240

10001

085770

35§
. REPORT

010000

001372

001140
001372

001142

00000N

045754
045760
045762

000100

001342

000061

000000

162716
004736
162716

000002

013737

001372

001l42

{8882

046020

001142
001140
001140

10007
10008
10009
10010

046022
0460
0460

032737
001032
062716

040000

001142

10014

10015
1001€

MOV

RMER

CHP

$GOORT . SBODAT

BIC

81CIARE

01417

000004

O~6036
046044

110776
682716

000267
000002

046052

162716

000010

046056
046060

4736

000443

528:

: REPORT

000000

STATUS VIR USER’'S ERROR CALL

; ERROR 51

82, lSP)

MOVE SP TO RETURN FOR ERROR

PC I(SF,+

' REPORT xnconnzcr 1RE

810, (Sp)

NOP

RESTORE (SP)

VALID ZERO

ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT
BEQ

CLR
MOV

8IVC, RMER2]
528
$GODAT
RHEREI $BDDAT

: IVC ERROR??
INO!
!
:EXPECTED STATUS
:RECEI.ED STATUS

MOVB

osb,a(SP)

SERROR B0 IF W = 0

(SP}

BIT
BEQ
MOVB

svVV, RMOSI]
51§
861,3(SP)

suB
ISR
SUB

82, SP)
PC Q(SP)+
810, (SP)

MOV

RMER2],$BDDAT

BEQ

53§

BIC
MOV
BIC

ERROR
BIT
ens
RD

MOVB
suB

JSR

SUB

53§
:

:CLEAR SKI FLAG
!GO0 CHECK NEXT ERROR

nsl (SP)

ADD

518:

: IRE IN ERROR

85K 1, 3008
33

MOVB

STATUS

;IS IRE OK??

) SEODAT

xuconnscr “195“
ADD
(SP)

!YES! [}
:=TRETM SHOULD BE O

358

BIC
BR

SEQ

TRRCK

3%
SGDDAT

NOP

137777
046656
137777

203

;30_SECTOR FORMAT??
YES?

RMDRO+1, 84,

BH]
CLR

ISR

000310

042727
013737
042737

10013

CMPB

SuB

085776
046004
O4e012

10011
10012

PAGE

;REPORT ANY IVC
ERROR RS
:
IVC ERROR
WITH VOLUME

Q45?724

10002
10003
10009

I16

8FMT16, RMOFO
3s

BNE

9332 045730 12”76 000060 000000

9936
9937
9998

BIT
BEQ

SUB

3986

9986

COMPRRE EXPECTED AND nscsxv;o “IRETM

046656

9977 Q45660 112776 0000S1 000000

-NOV-77

saéx Srnrug CHECK su§50u§1

001432

QuS642

9379

30(104

010000

9971

9972
9973

MACY11

'MOVE SP TO USER'S ERROR
ERROR 6l

MOVE SP TO RETURN roa ERROR
nsponr ERROR VIA USER
'RESTORE SP
;RECEIVE §7nrus

81CSKI $BODAT
3008, $400AT
8tCSK1,SGDDRT

;CLEAR
D
RRES
IGET EXPECTED SK1 STARTUS
:CLERR DONT CA Ss

SKI IS NOT SET
#SK1, SBDDAT
S4s
84, (SP)

(IRE WRS NOT oerscrso)
;uag
1 DETECTED 7*
SYES
1
;nov; 8P 1O USERS ERROR CALL

.eér d(SP)
,(5P)

p a(SP)+
-10 (SP)

IBRANCH

‘WRITE
OV

REP

IF O EXPECTED

RROR NUMBER
Enaon TURN

enno

SP_T0 NO

RE TURN

ERROR

0 NEXT enaon CHECK

0203

OO0

ZRMDBO RMO3-/2 FCTNL

ZRMDB. P11

TST 2

23-NOV-77 12:19

MACY1l

10017
xooxg
ioox

mgoso

0323.;47

ON0000

001142

10022
10023

046074
046102

112776
162716

0000SY
000002

000000

10087 Bued%8 304712 ooooou

10024
10025
iooam7
10028

10029

836108
6110
ON6114

004736
162?16
000240

046116

032737

000010
000200

10931 Dueise 99357
o011y
10032 04132 31357037 137

001372

001142

10034

000000

10033

046140

05575

000004

10035

046182

162716

000002

i0037

046160

10036

{gggg

10040
10041

O46lwe

1127

046156

004736

046164

000240

162716

000055

30(1046)

23-NOV-??

: REPORT Snnon
I7

B50

020000

001344

1004

046210

062716

000004

10048

0OM6222

032737

0I10UD0

001342

000053

000000

1004 Ouelze 995357 oo1ivo
10045 owsegs 013737 001344 001142

SEG 0204

;rl‘g S"é,(ss}

34 (sP)

#54 J(SP)
82, {SP)

&uS§:

BIT

s0VC, R~cR21

g2
MOV

RDD

MOVB

:LORD
ERROR NUMBER
:MOVE
70 RETURN FOR ERROR

:REPORT SEEK ERROR
:RESTORE (SP)

:WAS THERE DVC DURING SEEK??

Se00AT
3:1&3:1 $BODRT

s NOEECTED
STATU
;Sscf?vgg gmru
H

o4, (v °)

858 J(SP)

:ERROR

:REPORT ERROR VIR USER

SuB

82, lSpP)

SuB

s10,

855

"MOVE SP TO RETURN FOR ERROR

3(2:)0

(5P)

:RESTORE SP

:REPORT ANY “OPI” ERROR AS OPI WITH MOL
:BECAUSE ON CYLINDER msu DIDN'T RESET

68:

BIT

s0PI,

=0, OR

OPI

:~0P1* ERROR??

10047 046214 112776 000 S2 000000

MGV

S2o0nT
nncg?x $BODAT
"TM (gpi
852, 3(SP)

10049
10050

BEQ
MOVB

78
#53, J(SP)

INO?!
:YES - CHANGE ERROR NUMBER

JSR

PC I(SP)+

'REPORY

10051

10052

10053
{oosg

83530
32
046240
046244

005993
112776
162716

004736

162716
00024

000002

2R
L
MOV

',Sx

{Hove 25p) 170 kRROR

JSR
PC I(SP)+
SUB
810, (5P)
NOP
-REPORT ANY DEVICE CHECK

NOP

032737

IF gx} ia SET
gqi
DOAT

MOVB
sus

JSR

046166

PRAGE 204

SEEK STATUS CHECK SUBROUTINE

000010

10042

J16

12:38

RDD

BIT

d ¥

000010

SuUB

SUB
NOP

1
10050059
ONG2SY 013746 001342

OM6264
046270
046272

042716
022726
001002
000137

O46E26

10064

046276

032737

010000

001342

020000

001344

8
Bl

6324 852733 8?0838

114

8IS

10065
xoosg

306

10068 oeeaie 991927
10069
10070
10071
10072

046332
046340
046344

013737
062716
(12776

047677
110100

001342
000004
000062

82, {SP)

s10, (5P)

:MOVE

(SP) TO ERROR

;Log ERROR NUMBER

(WAS MEDIUM
ON LINE??

I MOVE

TO RETURN FOR ERROR

“OP1"~ ERROR

:RESTORE (SP)

.SEE IF “PIP” IS 0,
“ATRTM,“MOL“AND"VV* =]
8s:
OV
RMOST,AND- (SP)

10058
10059
10060
ioosx

100&3E

sHOL , RMOST

s; ROPECTED STATUS
;RECEI ogmrus

114

001142
000000

BIC
CHP
BNE
IMP

01C<RYQPIPIMOL
VV), (SP)
8ATR!MOL
' VV, (SP)+
qs
:ERROR IN RMDS
148
:RMDS 1S OK

BIT

sMOL , RMOSI

.REPORT ERROR IF MOL = 0 AND OPI = O

4S:

10%
sOPI,RMERII

BoG

EBc1 scopaT

MOV
ROD
MOVB

RMOS!Y, $BODAT
84, (SP)
862,3(SP)

sMOL , $GODAT

;1S MOL RESET??

:NO - MOL 1;; SET
‘WAS OP] SE

EGRECTESNSTRELON! ERROR
'

:RECEIVED STATUS

CSRMOBO RMO3/2 FCTNL

CZRMOB.P11
10073
10074
1007S
}%;9

TST 2

23-NOV-77 12:19

8:&352
6356
046360
046364

635?52
7
m

MACYI1

30(104

SEEK

Tmu

000002

?32

000010

SuUB
NOP

K16

-NOV-77

?
PAGE 20S

SE2 0205

CHECK sue OUT INE
82, (SP)
PC TSP +
s10, (5P

: MOVE §P T0 RETURN FOR ERROR
:REPORY ERROR vIP USER

10979
237 020000 001392 108 BrToOR
A e Rmosr > o tbNS
2Bl
000 3] MOL3E]
1080 Sueyss B3N
gle
1t
10081
10082

8:237&
404

10084
1008S

OM64IN
8:2-4

10083

moa;
10087
10088
10093
10030

O46406

737

0MO000

013737

001342

273
013737

1342

001372

001140

062716
11e7
162716
004736
162716

]
S6
000002

10094

046456

032737

100000

001342

10096

O46466

013737

001342

001140

13737

13492

1142

i%gé

10093
10095

ON64SY

Q46464

000240

001024

BIC
MOV

sP
RMOS}!,

RDD
MOVB
SUB
ISR
SUB

000000

000010

10097 046474 063737 &1]0500

csxx RMER2]
1

MOV

001142
001142

¥
046NN
046442
046446
Q46450

I7
NE

NOP

BIT

10104

10107
10103

10109

046530

046534

O46544

162716

000010

032737

00010C

001342

030
001
0137

010000

001372

001342

1140

000240

ooxggg

10110
10111
10112

04654
046554
046556

10115

046600

%ggg«

10117
10118

8:&.512
obl6

162716
004736

000002

10120

046624

00024

OM6564

”

10116 OM6604 1107

10119

}855
10123
10124

10125

10126
10127
10128

046620

046626
OTM

,
-%

0O46¢

046634

096640
046642

~N0100

152718

1140

ISR

R£PORan:n ION NOT SET DURING

000004

SGDOAT

'37(5?%9)

PC.(SP)+
]

810, (SP)

STATUS

)ro ERROR
unn FOR ERROR

Rcsrons (SP)

grs

148"

MOV

nnos aoom

8IS
RDD

MOVB

SuB
ISR

SUB

148

00140
062716

Expecreo STRTUS

82, tgp

I
BNE
MOV

000010

osa;xs
000004
105773 0000620

0S1,

BATA!hOL
DPR!DRY

.REPORT ERROR IF VOLUME VALID IS nessr AND IVC IS ZERC
38:
81T
sVV, RMOST
;1S
VW =0
?

4 000000

)

uas “ATA" SET 77

REC 1

sngg

10114 046572 013737 B0isN2 001142

10113

A n,nnos:

RMOSI, SBODRT

:888
sSuB

igigg

no
(SP) 10 ERROR
,x.
ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
:REPORT “PIP*~ SET RFTER SEEK
;RESTORE (SP)

MOV

{moo %gfw ue;;g 0000S? 000000

18%83 046526 004736

CEIVED STRTUS

84, (5P)
858
(SP)
02, lSP)
PC TSP+
81, (SP)

MOV

10101 046522 162716 000002
1

‘EX-c2TED
S

OAT
SBODAT

BNE

B1S

0ON6

SGDOAT

REPORT AN ERROR xr “QTR" IS NOT SEY

11§:

1140

10098

;
SET??
qu991»« ngpom PIP

NOP

co?m
DA

054 (sp)

PC a(SPH

BEG
ACD

215 ive AaLSO 0 7
:NO- IVC IS SET
{EXPECTED STRTUS

;RECEIVED STARTUS
:ERROR 864

"MOVE SP TO RETURN FOR ERROR

810, (5P)

:MODIFY THE RETURN RDDRESS
NOP

ROD
1578

INQ!
!

uvc RMER2]

84, (SP)

a<sp)

1S
w (SP)

IF AN ERROR WRS DETECTED

;MOVE
(SP) TO ERROR CALL
:WAS ERROR CALLED?

'NO?!
:MOVE

TO ERROR RETURN

CZPflOBO RMO3-2 FCTNL

CZRMOB.P11
101 29
101

10131

18i32
33
101 gg
101

0O4bb4e

046650

TST

23-NOV-77

12:19

MRCYil

30(1046)

162716

000207

046656

000000

000004

12:38_

L16

PRGE 206

SEQ 0z06

SEEK STARTUS CHECK SUBROUTINE

000402

046654

23-NOv-?7

168

15%:

SuU
RT

a4, (SP)

;MOVE

300S8:

.WORD

;ERROR FLRGS

168:

(SP)

; RETURN

TO NO ERRCR RETURN

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB. P11
23-NOV-7? 12:19

MACY1l

}8f;?

.SBTTL

¢]

10138
ioiag

10143
10144

10148

1014 Sueeed

)

i1
e BigTe
1813? 46520 813;:2
10133

10154

101&2

$214

10157

046726

10158

10162

6210

012737

0127

338583

0137

1§?§L %§65q

6722

013701

046732

111160

145,

000010

046752

162766

18122 %790 8152§1

10167
igigg

000004

764

046772
046774

012600
000207

NOP
RROR

000010
.

oo1g

000002

060010

O
eos:

nassaug CONTROLLER,
YHE ORIVE.

MASSBUS RDAPTERS,

RETURN MERE IF NO ERROR FOUND

PC.CNTCLR

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

RO, ~(SP)

PUSH RO ON STACK

oy
HOV

ERRVEB#E Zspy

MOV

8PR6

MOV

000006

6794 11 ;?2 88888; ggocxg

10169 NE7ED 012637 goo0oe
101

;

CNTELR: ov

10160 uer3e Oeovee
10161

:
:

10146

101

1CALL:

SEQ 0207

CONTROLLER CLEAR SUBROUTINE

; THIS SUBROUTINE CLERRS T
IAND DRIVES, THEN SELECTS

}fiiwé

101

M16

30(1046)
23-NOV-77
12:38
PAGE 207
CONTROLLER CLERR SUBROUTINE

RLoGeo ipod
RN
Sa
'
--PUgH £R3v28+2 ON STACK
o;gs.inagsc

;SETUP FOA BUS TIMEOUT

MOV

sgagé R

MOV

MOVB

TSTQlE ,

:CLE

(R1),RMCS2(RO)

;SELECT DEVICE

MOvB

W, 0ts80"
,
c7.510(spm

;

ADb
SUB

MOV
MOV

MOV
RTS

’y

ERRVEC+2

S2(RO)
R]

(g:n, 1

ROVE
5P TO_USER"S ERROR CH

(5814, ERRVEC+2
(SP)+.RO
pC

S8U

;unx‘s THE EHSSR NUMBER

82, 10(SP)

( P)«:Ennv

;RO:nggxg

POP STACK_INTO ERRVEC+2

P pPoOP §ngk Img 1

;;POP STALK N ggnnvsc
I

:POP STACK

INTO RO

CZRMDBO RMO3-2 FCTNL TST 2

CZRMDB8. P11

23-NOv-77 12:19

MACY1l

30:1046)

CONTROLLER

fgf;?

.SBTTL

10172
10173

‘"‘3?
3

10124
ig;;g

23-NOV-?7

}2:38

BOl

Pncgusoe

CLERR STRTUS CHECK

CONTROLLER CLERR STRTUS CHECK SUBROUTINE
T

Tsrfi v;n’érx ? THAT THE
N
FER,
TH

‘USED FOLLOWING & CONT o%
:S O0F RMCS2, BECAUSE THE

r'y

SEG 0208

ROUT INE
YSTEM IS INITIALIZED BASED ONM
TINE S
D ONLY BE

CLEAR
ION, I1.E., WRITING R 1 IN BIT
OR MESSARGES RRE BRSED ON THAT CONDITION.

10177
igigg

;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.
:FOLLOWING STRTUS BITS ARE NOT CHECKED:

igig?

10182
10183

sCALL:

10184
10185
10186
10187
10188

S (1)
;
:
:
:

{gigg

10191
10182

046776

10195
10196

047002
047006

7?6
162716

000000
000004

10.98

047012

013737

001330

001142

10201
10202

047034
047042

023737
%;13

O001i40

001142

047050
047056

112776
162716
7
162716

000126
000002

e e oy XX s
10203

10204
10205
10206
10207
10208

10209
10210
10211
10212
10213
10214

10215

10216

10217

O47044
OM7064

00000M

000240

047072

00S037

001140

047104
087106

001413
062716

00000M

OM7112

047120

013737

112776

162716

047124

004736

001334

000127

000002

047132

162716

000240

000010

10220
10221

047134
047142

013737
010146

001340

10223

047146

013701

0014SC

10218

10219
10222

10224
10228

047126

0ON7144

0471S2
0847184

005046

111116
0S271e

. REPORT

PC,CLRSTS
224

RETURN HERE IF NO ERROR
RETURN HERE TO REPOR~ AN ERROR
ERROR NUMBER DEF INED BY SUB
)
GO BRCK TO SUB FOR MORE ERROR CHECKS

PC,a(SP)+

RETURN HERE

IF NO MORE ERRORS

000100

3(5P)
84, (SP)

:CLEAR ERROR NUMBER
-%sp BACK TO NO ERROR

MOV

RMCS]1,$BDDAT

;VERIFY RMCSi

CcwP
BEQ

$GDOAT, S80DR
33

:C
;xpscn»:o, RECEIVED
:BRANCH 1 s&

MOVB
SuB
ISR
SUB

8126, 9(SP)
82, (5P)
PC (SP)+
s1b, (5P)

‘WITE
ERROR NUMBER IN CALL
:
70 RETURN FOR ERROR
' REP
ERROR VIR USER
:MOVE SP BACK TO NO ERROR

ERROR IF RMC5] NOT xmnkvé

NOP

001142

000000

Loogar HIE

84, (SP)

FECIA Cov0rTION

SP 10

*S ERROR CALL

.REPORT ERROR IF RMBA NOT RESET
gs:
CLR
$GDDAT
;VERIFY RMBR IS ZERO
MOV
RMBAI, SBODAT
BEQ
7S
:BRANCH IF ZERO
ROD
84, (SP)
‘MOVE
SP TO USER'S ERROR CALL
MOVB

8127, 3(SP)

"WITE

JSR

PC . (SP)+

:REPORT ERROR VIR USER

SU8

SUB

NOP

001142

MOVE SP TO ERROR

CLRB
U8

RDD

000000

000010

047070
047076

JSR
BR
NOP
ERROR
JSR

sCLEAR USER'S ERAOR A5t
4s:

82, (5P)

8.0, (5P

ERROR NUMBER IN CALL

‘MOVE SP T0 RETURN FOR ERROR

:MOVE SP BACK TO NO ERROR

.REPORT ERROR IF RMCS2 NOT INITIALIZED

*s:

THE

ATR,ERR,PIP,MOL,WRL,LBT,PGM, VV, OM, UNS, SKI,DVC

CLRSTS:

i0193 046776 062716 DOOOOM
10197

IN PRARTICULAR,

MOV
MOV

RMCS21,SBODAT
Rl -(SP)

MOV

TSTQUE, R1

CLR

MOVB
gIS

-(5pP)

(R1), (5P)
sIR, LSP)

; VERIFY RMCS2
::PUSH R1 ON STACK

‘ExPECT IR & UNIT NUMBER
'R1

= RDDRESS OF

TEST GUE

CZRMDBC RMO3/2 FCTNL

CERMOB P11

TST

23-NOV-7§ 15:19

i%% %;};3
i 3
;1?&

MACYil

{0237

m;aa«

01135937

oou:g

Agszé

837523

0557

%ogu

10243

0OM7

m;ara

000010

ioewq

m;s:lza

ooootlos

E8 B2 MTy Rk R
ve

13533 3:7 4
102«7E
10248 04727

iS%‘?fi’ 83;31

1§5 fi;fi

10254
{oass 0-4;3-00
fc%gsg ggasa
10259

1127

131

000002

MOVB
sg

000010

ON7402

10278

D47466

1376 001142

000002

011777

é(53
16%333‘

[]

IF RMER]1

a&og?r

névE
g ?R & u&n }on ?fikon
novespsm ¥CIJ
NO ERROR

NOT RESET-IGNORE UNS

ooaT

SRR
w

'c
aaeag Teo l RECEIVED
novsP k-s ERROR CALL

:vsnxrv RMER |

(SP)

3 Emon
CALL

uéx A(SP)

, (5P)

P ' 0 p)¢
sl0, (

RET us?.fl ERROR

ERSOR

SP BARCK TO NO ERROR

%gg

L%
ouc

w (SP)

DAT

8133, 3(sP)
;gs%m
810, (

E%mz

dmw&gg.ocx SCT. TRK

ARD RECE IVED

RROR CALL
:YVE
EP
N CALL
:§A§Psm5um4FOR ERROR

3 NOERROR

-REPORT AN ERROR IF RMEC2 IS NOT RESET

17s:

CLR

fa«gg
9)

MOV8

;EXPECT

ZEROS

1§cex $BODART

;VERIFY

.135 a(sp)

B?VE EPRR

§usg

PC
5% Y

MOV

#1ST! 1772, $SGDDAT

nov

Ce=u
ERROR CALL

IN CALL

ro Rcwm rgs ERROR

001140

:EXPECT TEST BIT ON

che

g?ts)om.sabom

000136

MOVB

ués 3(SP)

uxrs ERROR NUMBER IN CALL

PC a<sm+

REP RY

000002

16281

001140 001142

10277

8:;:;8

géo&nf iaoom
1 (spgsp)

000004

}8553

SEG O

000010
ag
slb), (g;
nov SP aacx To NO ERROR
00137
“ 1ggpomERROR IF RMMR2 NOT xr;xrmbégggylg:gsg RQA, RGB
06308 881148
Bee
#ROA!
DAY

18275 onrmsoE
047462

%133 000000
000002

ioess

D4745Y4

ggo

87048 Biidl

%8?83 000000

18276

7370

047432

.REPORT ERROR

10263

Q474D

§ug
sS
R4

oo“:e

}0231 a;fi

18272

.REPORT ERROR IF RMMR
nxmm
-1
WC,LS,LST
001354 001142 l§§:
MOV
i &05 véfig m‘

%15*40

10273

cMP
§§§a

Sgg

047354

}&9 577:{“3
i§§§§
_—
18271
047424

COl

12:3

8QRSLLEE CLERR sm&45 '§u583un~£

000000

10260

10264 g:'f?m

3-NQV-?7

001140 001142
000004 000000

1% &? 1
M
ie sl
; 1 dElld
716 000010

000010,

000000

ngo

SuB

JSR

sge

;REPORT ERROR

84, (SP)

(5P)

810, (5P)

MOVE SP TO USER'S ERROR CALL
5 §P T0 RETURN FOR ERROR
ERROR VIR USER

:MOVE SP BACK TO NO ERROR

IF RMER2 NOT RESET-IGNORE SKI,DVC

209

CZRMDBO RMO3/2 FCTNL TST 2
23-NOV-7? 12:19
CZRMOB.PL1

ioeea 047476

0 ? ? oou;o

DOl

MACYL1l 30(1046) 23-NOV-7?7 12:38 PAGE 210
CONTROLLER CLERR STATUS CHECK SUBROUTINE

114

336305 881145
1%33 8:53% 8-43737
41
‘&i% 3:;'33

218:

102:qu

10293
10294
10296

1029%
10297
10298
10299
10300
10301
}oaoa

04754
047554
047562

ow;gm
047876
047600
047604
ON7612
047616
g;seo

152718 000010

013737
042737
012737

023737
001413
062716
112776
162716
004736
162716

001342
177177
000600

001140
00000
000134

000002
000010

X ow?sasEE 062716 000004
1oc3o~43
000000

10305
10306
10307
10308
10309
10310
10311

7632
047636
047640
047644
047646
047652
047684

105776
001403
062716
000N0E
162716
000240
000207

000004
000004

001142
001142
001140

Bic

MOVB
SuB
ISR

174 000000
11 7%5 %ooa
i185387 83?&52 162716
10289 047536 004736
}03"? ggm

gt.c

50”2

5x§eg$ %stnos

oevrss ERRORS
.sxx?éoé"%m ;xfin&a:
:BRANCH _IFor R gugflo

':"’E.S"Zsp)
(53
é
PC’ a(svm
010, ¢

%Nroa82&“
Rea
To
i HOVE 5P
ERROR
unn
névigp
znnon viA
SP BACK T0 no ennon

mxrmuzeo
IF RMDS NOY
.REPORT ERROR
esr DRIVE STATUS REGISTER
RMDSI, SBODAT
MOV

2158:

001142
000000

228 :
23s:
o4s:

BIC
MOV
CHP
BEQ
ADD
MOVB
SuB
ISR
38,9

RDD

1578
BEQ
AOD
BR
SUB
NOP
RTS

sgo
8¢C<DRY!® DPR)
CTED DRIVE smr S
gxps TED8 RECEIVED
3c20n
ANCH IF EQUAL
2
TO uszn s ERROR CALL
v;
84, (SP)
un Ess
uéu (S
70 RETURN ron ERROR
: MOVE
C(5P)
IDPR'DRY

PC a<sp)«
810, (SP)

REPORT ERROR TO USER
MOVE SP BACK TO NO ERROR

3(8P)
23%
84, (SP)
2ud
84, (SP)

uas ERROE DETECTED??
INO?
,vss - MOVE TO ERROR RETURN
:MOVE SP TO NO ERROR RETURN

#4, (SP)

nove SP T0 ERROR CALL

SEG 0210

EOL

30(1046)
23-NOv-?7
12:38
PAGE 211
PACK RCKNOWLEDGE STARTUS CHECK

.SBTTL

0o
800008
@]
W o]Bos BEEEEE00 DBDQDOD
() 8
80000000
W s £2
L£LLL4

SEQ 0211

PRCK RCKNOWLEDGE STATUS CHECK

; THIS SUBROUTINE CHECKS THE RESULTS OF R PRCK RCKHOWLEDGE
COHHQND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE

REPORTED TO THE USER VIR THE USER'S ERROR CALL.

;CQLL:
2(1)

JSR

:
:

PC,ACKSTS

NOP
ERROR

P3N BopECootEEs
BRI R

i Pt P B Pt P Pt Bt P Bt Pt s

272

RETURN HERE IF NO ERROR

PC,3(SP)+

GO BACK TO SUB

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUS
RETURN HERE

FOR MORE ERROR CHECKS
NO MORE ERRORS

ACKSTS:

;CLEAR USER’S ERROR CRLL
ADD
(SP

000004
000000
000004

CLRB

001342

001140
001140
ool1142

000004
000041
00002

:RECEIVED STATUS
nove SP TO ERROR CALL

SuUB
JSR

(5P)
PC a(sp)+

novs SP TO RETURN FOR ERROR
‘REPORT THE ERROR

cS:

032737
001S70

060007

001344

osoo4e
0c00s0

032737
001424

040000

001344

:SEE

olss d(SP)
s10, (5P)

IF “MOL"

sMOL
, RMOSI
28

YES!

EXPECTED STATUS

ITE NUMBER IN ERROR CALL

"MOVE SP BACK TO BRANCH
IS O

;15 _MOL SET??
YES?

MOV
BIS
MOV
RDD

RHCST SGDDAT
sMOL , $GDDAT
Rnost $BODAT
(SP)

sxpscreo 3TATUS

SuB
ISR
SUB

82, tSP)
PC’ a(sp)+
810, (SP)

'MOVE SP_TO RETURN FOR ERROR
'REPORT TH ERROR
:MOVE SP TO BRANCH

MOVB

000010

050032
050040

NOP

BIT
BNE

000000

1S_VOLUME VALID SET””

RMDS]I, SGDDAT
svv,SGDDAT
nnosx $BODAT
sP)

:REPORT AN ERROR

001140
001140
ool142

;

MOV
BIS
MOV
RDD
SU8

001342

IS O

SVV, RMDSI

MOVB
18:

IF “wv"

'MOVE SP BACK

BIT
BNE

000010

:CLEAR LOW ORDER BYTE

84, (SP)

sREPORT AN ERROR

000000

:MOVE SP TO ERROR CALL

arsp)

sus

000100

001342
000004
000155
000002

DM N LW

s P Pt P Pt e s Pt Pt P
et e e ot et it Pt Pt Pt e et it ot Pt Pt Pt Pt Pt Pt

MACY11l

fufur
LW~ 0OWVDNCNLWNY

CZRHDBO RMO3-/2 FCTNL TST e
CZRMDB. P11
23-NOv-77 1 e:l

NOP

oql J(SP)

IF UNS",“OPI” “RMR",“ILR",

géa

;REPORT AN ERROR

BITY

BEG

;RECEIVED_STATUS
MOVE SP TO ERROR CALL

HRITE NUMBER OF ERROR IN CALL

OR "ILF”

IS SET

cgné OPI'RMRYILR! ILF,RMERLI
IF "UNS*"

IS SET

SUNS RMERI1I

;WAS UNS SET"?

;NO!!

0 B G

FOL

12:38
PRGE 212
23-NOvV-77
PRCK ACKNOWLEDGE STATUS CHECK

30(1046)

RHERII saoom
SGODAT
RMER11’

001142
001140
001140

NS zne82

4 SEREEEy

MRCY11l

ou~§gs¢oonr
cwé a(sp)

000000

82, {SP)

3(SP)+

810, (SP)

SEG 0212

;RECEIVED STATUS

;EXPECTED STATUS
;MOVE SP TO ERROR CALL

{WRITE NUMBER OF ERROR IN CALL
'MOVE SP_TO RETURN FOR ERROR
{REPORT THE ERROR VIAUSER
{MOVE SP TO NO ERROR RETURN

BINGEEEERHN

38:

AR
BRRERERE:
Q0

—

|@]e)
£
L
PO MU NUN) 0 e 00 bt Bt bt Pt Pt ot e
WOV NN
L WO

Bt P Pt Pt Bt Pt e Pt Pt s Pt Pt Pt Pt Pt Dt Bt Bt et Pt D Bt Bt Bt Pt P Pt Pne Pe Pt Pt Pt Pt Dot P

3BIRREERS
PR EPIIFIEIINIIINIIIL
gg PP

(s Pt Pt s Pt Pt Dot B Pt Pt Pt Pt s Pt Pt

2828838 Ww
~
PAER PR

jele)

10369
10370

)

C¢RHOBO RMO372 FCTNL TST 2
CZRMDSB. P11
€3-NOv-77 12:19

020000

001344

001344
001344
00

001142
001140
001140

000043
000002

000000

; REPORT

0PI

ERROR
lgPI,RMERLI
RMER1], SBDDAT

RMER1I’ $GODAT
#0P1, S4DOAT
a4, (5P)
(
843 3(SP)
82, LSP)

PC'3(SP)+
(S
810, (5P)

000010

G-0202

'HQS OPI SET 27

; NO!

RECEIVED STATUS

;EXPECTED STATUS

HOVE SP 70 ERROR CALL
R OF ERROR

IN CALL

TO RETURN FOR ERROR

HS ERROR VIR USER

HOVE SP

0 ERROR RETURN

4ys:

000004

001344

001344
001344
000004
000004
000044
000002

00l14e
001140
001140

; REPORT

000000

000010

RMR ERROR
0
SRMR,RMER1I
SS
RMERL11,SB0ODAT

-UQS RMR SET??
; NO!

RECEIVED STATUS

:EXPECTED STATUS

RMER1I' SGDORT
sRMR, $GDDAT
#4, (5P)
#44 J(SP)
82, {SP)
PC A(SP)+
810, (5P)

'MOVE SP_TO RETURN FOR ERROR
{REPORT THE ERROR VIR USER
IMAUE SP TO 1.0 ERROR RETURN

ILR _ERROR
g%LR RMERLI

HgS ILR SET??

RMER11, $BDDAT

IRECEIVED STATUS

;MOVE SP TO
ERROR CARL
;WRITE NUMBER
OF ERROR

IN CALL

cS:

000002

001344

OC 1344
Cul344
0Cco002

001140
001140

000002

s REPORT

081142

T SGODRT
RMER1
sILR, SCDDAT
84, (5P

000000

;EXPECTED STATUS
;MOVE SP TO ERROR CALL

HRITE NUMBER OF ERROR IN CALL
MOVE SP_TQ RETURN FOR ERROR

REPORT THE ERROR VIR USER
!MOVE SP TO NO ERROR RETURN

ooocolo

6%:
050342
0c03<0

032737
00l4ed

000001

001344

sREPORT

ILF _ERROR
;iLF.RHERII

:WRS ILF
;NOY
!

SET??

cumoeo RMO3/2 FCTNL TST 2
CZRMDB.P1
23-NOV-?7 12:19
10424

108425
10426

10427
10428

10429

10430
10431
10432

18333
1043S

050352

050366

050374
0S0800

0S0M06

050412
0S0418
050420

0Sou22

013737

013737
&5737

716
112778

142716

004736
162716
000240

10436

050422

062716

10438

050432

001403

0SO440

000402

001344

001344
000001

00000N
0046

0002

10440

10441

10442
}8333

0S0434
0S0442
050446
050450

000004

062716

000004

162716

000004

000240
000207

MACY1l 30(1046)
23-NOV-77_
12:38
PAGE 213
PACK ACKNOWLEDGE STATUS CHECK
001142

001140
001140

MOV

RMER1I,$B0DAT

ADD
MOVB

84, (4P)
MTA a(sp)

nov; SP T0 RROR CALL
;WRITE_NUMBER OF ERROR IN CALL

PC.I(SP)+
810, (SP)

'REPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

MOV
8I¢C

000000

SuB
JSR
SUB

000010

10437 050426 10S7?6 000000
10439

GOl

NOP

RMERLI SGDDAT
sILF, $GDOAT

82, [SP)

;RECEIVED STATUS

:EXPECTED STATUS

MOVE SP TO RETURN FOR ERROR

7$:
: AUGMENT RETURN noonsss IF ERROR WRS_FOUND
RDD

TSTB

3§:

84, (SP)

vss - MOVE TO ERROR RETURN

84, (SP)

:MOVE SP TO NO ERROR RETURN

S0P
RTMS

SUB

MOVE SP TO _ERROR CALL

uns ERROR FOUND??

BEQ

ROD

8$:

§P)

a(ép)

NO?

SEG 0213

CZRMDBO RMO3/2 FCTNL TST &
23-NOv-77 12:19
CZRMDB.PL1

MACY1l 30(1046)

12:38

@23-NOV-77

HO1

PAGE 214

SEQ 0214

RECALIBRATE STATUS CHECK SUBROUTINE

.SBTTL

10445
10446

RECALIBRARTE STATUS CHECK SUBROUTINE

;:THIS SUBROUTINE CHECKS THE RESULTS OFR RECALIBRATE OPERATION

:USING THE STATUS STORED IN THE GET BUFFER.
s CALL:

,(1)

;

;
;

SuB

0CO004

050462

10473
10474

0S0476
(050604

032737
0g1430

000010

001344

10480

0SOS40

062716

0S0552

162716

0S0S60

162716
000240

0CCO10

032737

000001

~
|@]

001344

—

022011

PC,3(SP)+

000050
000002

HETE

004736
16271
00024

SP)

a(SP)

CALL sueaour

ETURN HER

RETURN HER

RRO R
8 5

REPORT RN ERROR

ERROR NUMBER DEFINED 8Y SUB

0 BACK TO SUB

ETURN HERE IF

FOR MORE ERROR CHECKS

NO MORE ERRORS

;CLERR USER’S ERROR CALL

:MOVE SP BACK TO BRANCH

84, (SP)

F“ OR "?Pi" OR &Ri” IS SET

; SEE IF “PQR“ OR *

'PAR! ILF " I1RE, RME

BIT

!NONE ARE SET - GO TO NEXT CHECK
BUS PARITY ERROR, I.E.,
g
CONTROL
' ggzgnr ANY nnssgg
BEQ

'gég

PAR, R R11

MOV
RDD

:gs “PRR” SET?"

uns “DPE*” SETY?
YES- NOT A RE’ISTER ERROR
EXPECTED STATUS

001372
001140
001140

ODPE RMER2]
BIT
18
BNE
MOV RMERII,SGDDAT
sPAR, SGODAT
BIC

000000

MOVB

STRYUS
$BDDAT _ ;RECEIVED
Rnsnl
s
¥2£RsoNUflBER
oq(gpiP} MOVE SP'TO
xn CALL

agg

PC ISP+
e10, (5P)

001142

SuB
JSR

oeISP)

,nove SP TO RETURN FOR ERROR

:GO REPORT ERROR
:MOVE SP BRCK TO BRANCH

18:

PP LIDLLIIIIIIIIINPY:
BOBJRRLONCBBSIRR2ER2

Y o

ad ol o

10471

279

CLRB

032737
0Q01SS3

JSR

ADD

050466
0s0474

[

ERROR

225

; CLERR USER’'S ERROR NUMBER

050452
0S04S6

057%36
0L 640
0SOob44
0S0e4e

NOP

PC,RCLSTS

RCLSTS:

0oso4se

i 2999299229952

TERFRIORIEREY

10456

JSR

001344

;REPORT ANY “ILF~ _ERR 2"

gég

114

MOV

000004

000000

RDD

114

GRReed

cy:

RHERl SQGT

DDART
Rl
%

MOV

SUB
JSR
agg

82,
PC I (SP)+
sld, (5P,

MOVB

000010

ERLI

BIC

114

.ILF

(SP)
.71 lSP)

;ug§."1Lr~ SET??

:EXPECTED STATUS

Rscsxvso STATUS

gv; 8 USER’'S ERROR CALL
E ERROR NUMBER IN CALL
novs SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER
!MGVE SP BRCK TO BRANCH

ST ¥

388888 33

RRRRRRRARARRBR
=]
R2ZOR2 Bw
DOV
N LWN—-O 28 ~N

2
0 RM03/2 FCTNL TST

23-NOV-77 12:19

Pt ot o

s e

Y
Y ey oy Y e e o ot T
Y

e B

Y
Ty ey o
e
O O e ol ol ] oy

RAR
wn RRARRRRRRRRRRRRARARRAR
U
oneEw KBS SFhESH
=S8 YRT oK

Y T e
Y
S
S
Ny S
N

[
@]

23-NOV-77

12:38

I01

SEQ 0215

PAGE 215

RECALIBRATE STATUS CHECK SUBROUTINE

Y = =T

Fll

MACY11 30(10 6)

: REPORT nnv “OP1” ERROR RS

0S064e
050654

032737

001433

020000

001344

OPI DUE TO "MOLTM = O

on chxuoen LATCH DION’T RESET
. opx escgg?E

BIt

BEQ

318

WAS OP1 SET

scoonr

001140

1394 001142
013737 ggoooq
833968 062716

MOV

BIC

RHERI

112776 000072 000N00
0S0704
050712 032737 010600 001342
0S0720 001403
050722 112776
050730 162716
0S0734 004736

MOVB
BIT

BEQ
MOVB
sUB
JSR

.7é 3(sP)
RMDSI

0S06586 013737 001344
050664

042737

162716

020000

000073

000002
000010

001140

000000

050742

000240

0S0744

(032737

002000

001344

050754

013737

001344

001140

050770
050776

013737
062716

001344
000004

051022
0S10e4

000240

050744

050752
050762

osmog
051010
051014
051016
0S1024

051032

051034

051092
0S1044

051052
05:1060
051065
051072
0S1100
051106
051110
051116
051122
0S11e4
0E1130

001424

042737

112776
162716
004736
162716
032737

001517

032737

001433
013737

042737
013737
062716
112776
737
1403
112776
162716
004736
162716
000240

MOV
RDD

3%:
318:

002000

001140

000070
000002
000010

000000

010000

001372

001140

010000
1372
830004
000074
000100
000075
000002
000010

001140
001142
000000
001342
00000C

810, (5P

IS SET

RE IVED T0STATUS
USER’S ERROR CALL

£ _ERROR NUMBER IN LSER'S CALL

S “MOL”TM = 07?
vsg
'NC - CHANGE ERROR NUMBER
!MOVE SP 1O RETURN FOR ERROR
:REPORT ERROR VIA USER
'MOVE SP BACK TO BRANCH

#IRE,RMERI]

;15 “I1RETM SET??

MOV

nncnxx scooar

EXPECTED STATUS

MOV
ADD

RMER]T saoonr
84, (SP)

3lT

BEQ
BIC

001142

001372

NOP

sMO(,
3s
873,3(SP)
82, [SP)
PC’ a(sp>+

:REPORT AN _ERROR IF "xne"

MOVB
SuB
JSR
Sus
4§:

050200

sug

DAT
$BODAT
RHERlI
(5P

expscreo STATUS

NOP

870,3(5P)
82, [SP)
PC'3(SP)+
810, (5P)

NO?

;RECEIVED_STATUS
MOVE SP TO ERROR CALL

unns ERROR NUMBER IN usen S CALL
:MOVE SP T0 REYURN FOR ERROR
:REPORT ERROR
'MOVE SP BRCK TO NO ERROR RETURN

:SEE IF “SKI* OR =IVC" OR “DVCTM 1S SET
#SKI!IVC!DVC,RMER2]
BIT

BEG

:REPORT ANY "IVCTM ERROR RS
LIVE WITH vw = O
;
Ennonsous IVC ERROR
:

BIT

BEQ
MOV

c$:

BIC
MOV
RDD
MOVB
BIT
BEQ
MOVB
SuUB
JSR
SUB
HOP

:NONE OF THE BITS ARE SET

81vC,RMER2]

:WRS IVC SET??

s1vC, SGDDAT
éx BODAT
nq (S
874, a(sp)
sVV., RMDSI
c$
875, 3(SP)
82, {SP)
PC ISP+
810, (5P)

;RECEIVED STATUS
ERROR CRALL
TO USER’S
:MOVE SP ERROR
NUMBER IN CALL
: unxrs
= 07
fiu
vss-NO Z"CHANGE ERROR NUMBER
MOVE SP TO RETURN FOR ERROR
nzponr ERROR VIA USER
'MOVE SP BACK TO BRANCH

ss
RMER21,$GODAT

INOT!
:EXPECTED STATUS

CZRMDBO RM0O3-/2 FCTNL TST 2
CZRMOB.P11
10557
10558

23-NOV-7? 12:19

10560 0S11
10561 051140
106562° 051142

10563 8311@2
11
10564
10565 051164
10566 051120
10567 051176
10568 051202
10569 0S1.04
10871

10572

10573

051210
0S1212

032737
0O0I44
013737

040000

001372

001140

045737 gaoggo
1372
013737
062716 000004
112776 000076
162716 000002
004736
162716 000010
032737

10684

051270

000240

10567
10588
10589

0S1272 01374
051276 042716

10591

051306

10582

061302

022726

061310

000137

{ggga

051314

10595
1059%
10697

0S1314

10588
10599
10600
10601
10602
10603
10604
10605
16607

051322
051324
051332
051334
051342
051350
051356
051362
051374

001002

032737

001030
032737
001024
013737
052737
013737
716
112776
004736

000200

1012

001372

PAGE 216

RMER2] scooar

#SK] fboo
RMER2]I, SBDDAT
#4, (SP)

876, 3(SP)
82, {SP)
PC (SP)+
s10, (5P)

BIT

BEQ
MOV
BIC
MOV
RDD
MOVB
suB
JSR
SUB
NOP

s0VC, RMER21

es
RMER21, SGDDAT
sDVC, $6DDAT
RMER2T, SBDDAT
84, (SP)
877 3(SP)
82, lSP)
PC I(SP)+
810, (SP)

;WAS SKI SET??
:NO??
:EXPECTED STATUS

;RECEIVED STATUS
MOVE SP TO USER’S ERROR CALL

uaxrs ERROR NUMBER
!MOVE SP _T0 RETURN FOR ERROR
:REPORT ERROR VIR USER
!MOVE SP TO BRANCH
;WRS "DVCTM SET??

:NO?
expscreo STATUS
;RECEIVED STATUS
‘MOVE SP TQ USER’S ERROR CALL
:WRITE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
'REPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

.SEE IF “PIP” AND “OM" ARE O, AND “ATATM, “MOL" AND "VV" ARE |
.PUT RMOS ON STRCK
RMDSI, -(SP)
MOV
81C<PYPIMOL!VVIOMIATR, (SP)
BIC
CMP

110100

BNE

0S1724

85§ :

010000

001342

020000

001344

001342

001140

010000
001342
00000Y
000100

NOP

.sxx RMER2]
78

:REPORT ANY “DVC” ERROR

001140
001140
001142
000000

001342
047676

162716 000010
051376
10608
000240
051402
10609
051404

BIC
MOV
ADD
MOVB
SuB
ISR
SUB

8s:

10606 051370 162716 000002
iggi?

BIT
BEQ
MOV

78:

10575 051220 001424
10576 0S1222 013737 001372
10677 0S1230 042737 000200
10578 05123 013737 001372
;s 88000«
10579 051244
00?7
10588 051250 112776
10581 051256 162716 000002
10582 0S1262 004736
10583 051264 162716 000010

10590

JO1

sREPORT ANY “SKI* ERROR

001140
001142
000000

000240

051212

051272

12:38

6S:

10574

{gggg

23-NOV-7?

RECALIBRATE STATUS CHECK SUBROUTINE

051132

10559

10570

MACY11 30(1046)

JMP

SATA!MOL!VV, (SP)+

85$

138

= 0 AND OPI = O, I.E., MEDIUM WENT OFF
AN ERROR IF MOL
:REPORT
WAS INITIATED
IBRATE
RECAL
nrrsn
SLINE
:DID MOL DROP??
$MOL , RMDS
BIT
$NO!¢
9:
BNE
*WRS OP1 snnon REPORTED??
80PI,RMER1I
BIT

001140
001142
000000

BNE
MOV

9%
RMDSI scoon1

SYES - DON'T REPORT MOL=0
TEXPECTED STRTUS

SUB

)
,(g
J(SP)+

!REPORT ERROR VIR USER

BIS
MOV
RDD
MOVB
JSR

SuB

gs:

NOP

sMOL , $G0DA
;RECEIVED STATUS
RMOS} seooar
CALL
oq (sb) -MOVE SP’ TO sea sosnnon
?
ERR
;WRITE
g(sb)

0,(sp

ove SP T0 RETURN ron ERROR

'MOVE SP BRCK T0 usen S BRANCH

:REPORT AN ERROR IF “vv” = 0 AND “IvC" = O

SEQ 0216

CZRMDBO RMO3/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19
10613
10614
10615
10&19

051404
0S1412
0S1414
831453

032737
001030
032737
801

MACY11

000100

001342

010000

001372

KOl

30(1046)
23-NOV-77
12:38
PRGE 217
RECALIBRATE STATUS CHECK SUBROUTINE
BIT
BNE
8IT
BNE

1061
1M
13957 001342 001140
10618
osxwas
1373;
001342
001142
10619 0514
8537
000100 001140

10620
10621
10622

051
0OS14E
0514

062716
‘éS”‘
1627.

000004
000101
000002

10624

051466

162716

000010

10623

10625
}0639

0OS1464

00N73b

051472
051474

000240

10629
10630

051474
051502

032737
001024

10632
10633
10634
10635
18236

051512
051520
051526
051532
051540

052737
013737
062716
112776
162716

100000
001342
00000M
000102
000002

162716

000010

10628

10631

0S1504

013737

10637

0SI1S44

004736

10639
10640
{8235

061552

006240

10638

051546

001342

10650

051606

962716

000004

051572
051600

10651
10652

0S16i2
051620

10654

051626

{%gg
10658
10659
10660
10661
10662
10663
10664

10665
10666
10667
10668

NOP

8IT
BNE

001140

MOV

0000OC

JSR
NOP

242737
013737
112776
162716

051624

004736

051632

000240

0S1634
0S1634
0S16H2
0S1644
051652
051654

051662
051670
0€1676
0S1702

'RECEIVED STATUS

;nov; SP TO USER’S ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN FOR ERROR

818, (3P)

sMOVE SP BACK TO USER'S BRANCH

IF ATA

1S NOT SET

®ATAR, RMDST
118

:WAS ATA SET DURING RECALIBRATE??
EY

sATAR, $GODAT
RMOS!, $BDDAT
84, (SP)
s102;3(sp
82, (5P)

sRECEIVED STATUS
"MOVE SP YO USER’S ERROR CALL
"WRITE ERROR N_MBER IN CALL

210, (5P)

;MOVE SP TO USER’'S BRANCH

IF “OM*

IS NOT ZERC BECRUSE RECALIBRATE SHOULD

PC I(SP)+

SUB

JEXPECTED STARTUS

sy, ISP
e101 3(spP)
82, (5P)

RMOSI , $GDDAT

BIS
MOV
ADD
MOVB
suB

:REPORT AN ERROR
032737
001424
013737

10655

PC. I(SP)+

:DID "VV* DROP??
INO!!
:WARS THERE A IVC ERROR??
:YES
- DONT REPORT vv=0

sEXPECTED STATUS

118:

0S1554
051562
051564

10653

JSR

;REPORT AN ERROR

0GC1:!40
001142

051554

10645
10646
10647

10648
10649

RMDSI, SGDDAT
RMOSI ' $8ODAT
svv, $600AT

SUB

10643

10644

MOV
MOV
8IS

ADD
MOVB
SUB

000000

108:

100000

sVV,RMDSI
108
#1VC,RMER2]
108

162716

032737
001430
032737
001024
013737

042737
013737
062716
112776

000001

001342

SALWAYS CLERR OFFSET MODE

001140

BIT
BEQ
MOV

80M, RMDST
1'2,3
RMOSI, $GDDRT

:WAS “OM" RESET??
SYES!!
'EXPECTED STATUS

ADD

84,

'MOVE SP TO USER’S ERROR CALL

000001
0013492

001140
001142

BIC
MOV

000103
000002

00000C

MOVB
SUB
ISR

000010

SUB

128:
020000

001342

040000

001372

001342

001140

020000
001342
000004
000:04

001140
001142
000000

NOP

a0M, $600AT
RMOS] , SBODAT
(SP)

s103;3(sP)
82, (5P)

PC . I(SP)+

810, (5P)

;RECEIVED STATUS

:WRITE EPROR NUMBER
‘MOVE SP TO RETURN FOR ERROR
'REPORT ERROR VIR USER

:MOVE SP TO USER’'S BRANCH

:REPORT AN ERROR IF “PIP” IS STIL ON, I.E., DRIVE NOT ON
:CYLINDER
BIT
#PIP,RMDSI
: 1S DRIVE OFF CYLINDER??
BEQ
13§
INO!
!
BIT
#SK1,RMER2I
(WAS "SKI* DETECTED??
BNE
138
: YES-DONT REPORT “PIP*
MOV
RMDSI, $GDDAT
{EXPECTED STRTUS

BIC
MOV
ADD
MOVB

sPIP $GDCAT
RMDS!}, $BCOAT
:RECEIVED STATUS
84, (SP) :MOVE SP'TO USER’'S ERROR CALL
#104;3.5P)
sWRITE ESROR NUMBER

SEQ 0217

CZRMDBO nnoa/a FCTNL TST 2

23-NOV-7? 12:19

CZRMOB.P1

10669

10670
10671
10672
§%;3
13675

0S1710

162716

051714 004736
0S5i7le 162716
ggxzaa 000240
17249
-

MACY11 20(1046)

SuB

000002

ISR
SUB

000010

NOP

032737
00ISi4

040006

001344

051734

8032737

000002

001344

1fig§ %xm

013737

001344

001140

10679

10680

1068]

051742

1424

1782

042737

000002

B
8EQ

©CS2006

1Co91

062014

10690

1527:6

10694

0S2014

032737

000004

001344

10696

052024

013737

001344

L1140

0S204C

013737

716

001344

000COY

001142

10702 052064
10703
10704
052072
}g;g 052074

004736
162716

000010

10695

052022

00I424

10699

052046

148

10707
10708
139709

10716
10711
10713
16714
10715
10716
10717
107.8

0S2074
052102

032737
00I430

052104
052112
052122
052130
05621
05214
8351
1S4

032737
gome«
0427,/
013737
062716
1&7,75
162716
004736

18720
. 052162

000240

001344

000200

001372

1719

05215

ig;gé

052164

10723
;0724

0S21eM

162716

062716

RMERL] scoom

{EXPECTED STRTUS

JSR
suB

PC ol P)+
s1d, (

NOP

INO?!

sILR ?

.2, (SP)

‘MOVE SP TO RETURN FOR ERROR
:MOVE SP TO USER’S BRANCH

BIT

SRMR , RM

;WAS RMR SET??

MOV

BIC

RMER1],

sypscvso STATUS

MOV

ADD

MOVB
SUB

Rnsms $8D0KT

ISR
SUB

ubs
J(SP
82, (EP)

iMOVE

PC'I(SP)+
eid, (5P)

REPORT ERROR VIA_USER
:MOVE SP TO USER'S BRANCH

NOP

BIT
BNE
BIC
MOV
RDD
MOVB
Sug
JER

MOV

1394
001142
oY

000000

000010

SUB

163:
000004

MOV

$GDDRT

m,icoom
(sP}

NO?

;RECEIVED STATUS

SP TO USER'S ERROR CALL

um
E ERROR NUMBER IN USER’ s CALL
MOVE SP TO RETURN FOR ERROR

:REPORT AN ERROR IF "UNSTM IS SET ANG ~DvC* 1S O
jWAS UNSAFE ON??
$UNS, RMER1I
BIT
INOT!
168
BEQ

10712 052114 01377~ 001344
001140
040000 001140
000107
000002

:WAS ILR SET DURING RECALIBRATE?”

BEQ

15%:
040000

:MOVE SP BACK TO USER'S BRANCH

R!1
UNS, RMER]
#ILR'RM
168

:REPORT AN ERROR IF -mm“is SET

10700
052052 112776 000106 000000
10701 052060 162716 000002
000240

:MOVE SP TO RETURN FOR ERROR

£82caLL
5P ’%%°5é‘s’%°5522
53‘?%»5‘82832
hob
MOVB
8105, 9(SP)
:WRITE ERROR NUMBER IN CALL

10697 052032 042737 000004 00:i40
10698

82, (5P)

PC. (SP)+
810, (5P)

"5“,RMER]I

BIC

000010

000240

10693

SEG 0218

BI7

BEQ

001140

052012

10632

PAGE 218

;REPORT AN ERROR IF "ILR” IS SET

(k2716 000002
10687 052000
052004 004736

10688
10689

LO1

138:
;SEE IF "{%R“ OR “RMR” OR “UNS" 1S SET

21760 DBA3F7 D0hdge oouve
18e
10686 gn% 1127‘55 %oms 000000
"

12:38

RECALIBRATE STATUS CHECK SUBROUTINE

0S1724
051732

10676
f&;?e

23-NOV-77

NOP

sDVC, RMER2]
1%
§¢ooa
nnsal
SBODAT
84, (SP)
8107 2<sp)
#2, (§
PC TSP+

"WAS THEREA DEVICE CHECK??
28“" REPORT UNSAFE

R Rn $GDDAT ExgECT STATUS
810, (SP)

RECEIVED
STATUS
v;
SP T0 USER'S ERROR CALL
ua E ERROR NUMBER
:MOVE SP_TO RETURN FOR ERROR
‘REPORT ERROR VIAUSER

!MOVE SP BRCK TO USER’'S BRANCH

:AUGMENT THE RETURN ADDRESS IF mw ERROR WRS DETECTED
ACO
84, (SP)
MOVE SP TO USER’S ERROR CALL

CZRMDBO RMO3/2 FCTNL TST 2
23-NOv-77 12:19
(ZRMOB.P11

10725

10726

052170
0S21i74

10S776

001403

000000

B8 B BR oo

~~ 0

(S2210
0S2212

10730
13731

000240
000207

MOl

12:38_
PRGE 219
23-NOovV-77
RECALIBRATE STATUS CHECK SUBROUTINE

MACY1l 30(1046)

;WAS AN ERROR REPORTED??

1578

4(SP)

:H (SP)

; YES - AUGMENT SP RETURN

RTS

; STPTUS CECK 1S COMPLETE

BEG

Sog

178

;NO!!

lR,(SP) ;NO ERROR - RETURN SP TO BRRNCH

SEQ 0219

CZRMDBO RMO3/2 FCTNL TST 2
23-N0V-77 12:19
CZRMDB.PI11

.SBTTL

10723
10734
10735
10736
10737
10738
10739
10740

0S2214

10743
i0744
{8;32

052214
052220
0S2224

062716
105076
162716

10747
10748
10749
10750

052230
05223
0S2244
USe

013737- 001330
042737
173700
(12737
004010
3737
001140

0Sse

062

io’se
:
10760

0S2274

052300
052302
052306

107684
10765
10759
1076
10768
{8;38

162716

004736
162716
000240

000002

0Sc342
346
0SC 34
oseggg
0S2366

033737 OOII40
881413
062716
112776
633716
736
162716
000240

888004
142
000002

10773
10774
10775
10779
10
10778
10779
18780
10781
10782
10783
10784
107
10786

10787
10788

(052370

037

QS2404
0S2410
0S2416
0S2422
0S2424

001413
062716
112776
162716
004736
162716
000240

0S2432
013737
062440 _010146
0S2442
~010246
052444
013701
0Se4s0
11ei02
052454
(042702
052460
052962

TO REPORT nu ERROR
ERROR NUMBER DEF INED BY SUB
G0 BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

005102
040237

001140

000004
000143
000002

e
s P

L£E£L L
o

o epwred

oocC
0008

(SP

CAL
:CLEAR ERROR usen
5 BRANCH

a(sp)

BIC
MOV

8 1C<OVATENCHSK) . $800AT
#OVA! ORVCLR¥cobn

BEQ

ROD

MOVB

000000

S
ISR
sgg

:MOVE SP TO

$GDDAT, §

4, (SP)
82, (5P)
PC 3(SP)+
s1b, (SP)

8141,3(5P)

MOV

BIC
MOV
CMP

BEQ
R0D

MOVB

000000

SUB
JSR
sgg

RMCST seoonr

sPM 1 OM
¢ DPR'DRY sbo
#MOL
zcooar $800R?t
3

(SP)

cxfia d(SP)

2,(5P)
, PC a<sp)¢
* u1b, (SP)

cu»:m oom CARES
XPECT DVA

COMPARE ' XPECTED8 RECEIVED

:BRANCH I

CALL
OR
TO
nov; SPSRR
OfF ERROR IN CALL
ro RETJRN FOR ERROR
: MOVE
: REPOR THE ERROR VIR USER
'MOVE SPTO NO ERROR RETURN

.REPORT ERROR IF RMOS NOT xnxrxaszzo

K RMDS

;CLEnn oo~r cnnes
Y & DPR
8 RECEIVED
nns g PE

EXPE

H I EounL
; SP TC ERROR CALL

HRI E NUMBER OF ERROR IN CALL

TO RETURN FOR ERROR
: MOVE
'REPORT THE ERROR VIR USER
'MOVE SP TO NO ERROR RETURN

. REPORT snnoa IF RMER1 NOT xnxranxzeo

001142

ts:

CLR
MOV

BEQ
ADD
MO /B
SUB
JSR
sgg

Q00000

000010

$GDDART

RMER11,SBODAT

8%
#4, (SP)
0143 3(SP)
, (5P)
PC a<sp>+
810, (SP)

RMRSI, $BODAT
R1,-(5P)

001450
000001
177400

MOV
MOVB
BIC

TSTQUE,R!
1(R1), R2
#+CATAMSK, R2

001142

BIC

001142

XPECT 0'S

HECK RMER]

ennncn IF EQUAL
{MOVE SP TO ERROR CALL
JWRITE NUMBER OF ERROR IN CALL
TO RETURN FGR ERROR
: MOVE
REPOR THE ERROR VIR USER
MOVE SP TO NO ERROR RETURN

. REPORT ERROR IF ATA NOT xnxrxaszso

nov

001346

:MOVE SP TO ERROR CALL

CLRB
CMP

000010

10772 052374 8?373? 001344
10771

PC,a(SP)+

F NO ERROR

NOT INITIALIZED
ERROR IF RfiCS}
.REPORT MOV
CHECK RMCS}
6 sgoonr
4s.

000010

013737 001342
ggg 10
16 §ug;37 021101

10762
C o3z
19763 0<?

ERROR
JSR
227

suB

P o o 4
o

10755
1C756
10757

HERE
REJURN.
RETURN HERE

BR
NOP

ADD

1;49

10753 05.325 112776 380141
1C/54

DRIVE CLEQR STATUS CHECK_ SUBROUT

; CLEAR USER’S ERROR CQLL

000004
000000
000004

s Pt P

0se

SEQ 0220

DRVSTS:

752

;
;
;
:

{8751

;

8388

10741
10742

NO1

12:38_ PAGE 220
23-NOvV-77
MACY1l 38(10“5)
RIVE CLEAR STATUS CHECK SUBROUTINE

8s:

MOV
COM

R2. -(5SP)
R2

R, SBDDAT

cuecx ATTENTION BIT
PUSH R1 ON STRCK

:PUSH R2 ON STACK

czmoeo RMO3/2 FCTNL T;T 2
23-NOV-?7? 12:19
CZRMOB. P11

BDE

MACY11 30(1046)
23-NOV-77
|
PRGE faé
STRTUS C cx SUBROUTIN
ORIVE CLERR

10791
72
5 001142
{
413
o
10794
11 7;5
144 000000
10795 gggz
635756 000002
1079%
18773;

TST
ggg
MOVB
SU

SEG 0221

s“ .
udw
3(SP)
, (8P)

'Is
AT srmou CLERRED?”?
anmcnov spxr Tsmxo&_cumso
?
m&s
or ERROR IN CALL
novs
§P Hg TURN FGR ERROR

;EXPECT fin DATR ON

[]

IS
P 'd(SP)+
T
OR VIR USER
NoPsuua
s10, (SP)
novs
NO ERROR RETURN
. REPORT ERROR IF mi NOT INITIRLIZED
9s:
MOV
RMMR | .sgoom
. CHECK m
BIC
suC!LS!LST, sBoDRY
oom CRRES

0882%

000010

013737

001354

001142

{oeoaogm %;E%
16R0S

%?3%
062716

00114C
000004

001142

10808

052576

004736

162716

000010

(52614

013737
042737
012737

001370
I4000C
01l

001142
001142
001140

16
112776
65715
73%
162716

DO0OOM
00014

000002

00COQ0

10820
ioaax

052640
052644
052652
052656
osassg

10823

052666

005837

001140

052672

013737

001376

001142

000004
000150
000002

000000

: REFORT emoa IF RHEC?
NOT R SET
2
s CHECK RMEC2
eeo
IBRANCH IF O
R0D
w (SP)
;nov; SP T0O ERROR CALL
MOVB
uso d(SP
iWRITE NUMBER OF ERROR IN CALL

17%:

10799

10800
10801

0S3S3d

082737

00004

10802 0S. .42 012737 (000010 001148
001140

MOV

scooh , SBDDAT
w (SP)

JSR

PC a(§pu

1036
052564 1127 000145 000000
10807 06672 162716 LCO0002

MOVB
SuB

{%?3

sUB

10811

10812
10813
10814

{ggig 052630
10817
10818

10819

10824
10825
10826
10827
10828

052700

10829
10830
{0831

052714
052720
osa;g

10834

0S2730

u:cta“:a:aEE 05
10835
10836
10837

052736
052740
052744

000240

f:’;%

001413
062716
112776
162716
004736

001140

15%:

001372

001142

000004
000147

000000

001413
062716
112776

6355348

s1d,

1%e SPm&
emoa m cnu.
TO RETURN FOR ERR

5?_“ I-%
ERROR VIR usea

0527052723

000010

10842
10843
10844

052766

188:

0S27¢6

19§:

SP T

ERROR RETURN

$BODAT
CK RMMR2
SROA'R
seoom 'CLEAR neoan;og
8TST! 1777, SGODAT
esv BIT ON

’°2°°5 T,8B0DRT

‘Smmu I;xpsE CTED8 RECEIVED

ROD
MOVB

84, (SP)
'{"5 d(SP)

:MOVE
WRITE

82, (5P)

PC (SP)+
ub,(sp)

CLR

SP TO
NUMBE

CALL
smon IN CALL
; MOVE
T0 RSRLRN FOR ERROR
;REPORT THE ERROR VIR USER
'MOVE SP TO NO ERROR RETURN
:EXPECT ZEROS

SUg
ISR
SUB

L (5P)
pc J(SPH
s18, (SP)

:MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

MOV

RMER21,SBODAT

;CHECK RMER2

agg

ub (5P)

- REPORY en:noa IF RMER2 NOT RESET

}oewx

crso AND RECEIVED
snnon CALL

geng
sus

000010

013737

024

MOV
BIC
MOV

JSR
SU8

0000i0

cxfos
3(SP)
, (5P)

mmh ;
nov; SP

- REPORT sm: OR IF Mfli NOT INITIALIZED

11S:

001142

162716

pat

g%
ROD

BEQ
RDD
MOVB

18§
#4, (SP)
0147 a(sp)
+

:BRANCH IF NO ERROR
:MOVE SP TO ERROR CALL
unne NUMBER OF ennon IN cnu.

nove SP TO NO ERROR nsrunn

23-NOv-?§ 15:19

P11

10845

{oewg;

8257 0857}2 888880
1%39
10849 0562776 001403
10850 0S3000 062716 000004
10851 053004 000402
10852 053006 162716 000004
10863

10854

053012

053014

000240

000207

coe

PRGE
NE
CHECK SUBROUT
gRiVE CLE ?RTUS
-NQV=77

MACY11l 3Q(1046)

0 RMO3-2 FCTNL TST

:38_

RS FOUND.
noonsss IF ANY sragonE
nucnsmgaewm

218:

238:

BEQ

7899

)
<s
218

RDD
sSuB

NOP

RTS

gs AN :nSOE ECTEB"

YES - MOVE SP TO ERROR RETURN
84, (SP)
84, (SP) ;MOVE SP BACK TO NO ERROR RETURN

:RETURN TO USER

€0 gzez

SEQ

czmo RMO3/2 FCTNL TST 2
23-NOV-77 12:19
CZRMDB. P11
ioeoessg

D02

MACY11 30(1046) 23-NOV-?7? 12:38 PRGE 223
DRTR TRANSFER COMMAND STATUS CHECK SUBROUTINE
.SBTTL DARTR TRANSFER COMMAND STATUS CHECK SUBROUTINE

;s THIS sueaourm;

10857

erxes THE RESULTS OF ALL DATA TRANSFER COMMANCDS

N THE GET BUFFER AND TEST PRARAMETERS
ARE REPORTED BY WRITING
ERRORS
eur R.

wesa
19859

TUSING srm s S
§TE

10862
10863
10864

:USER’S SUBROUTINE CRLL:
PC,0TA sTs
ISR
:(1)
BR
2 (2)

imfioes?

(3
(%)

10865
10866

:(5)
i (B)

10867
10868

10869
10870

i%gé

053016

10873
108749

0S3016

10875
10876
1%%
10879
10880
10881

10882

053022
053026
0S3032
053036

053046

062716

105076
162716
005037

000000
000004
056412

032737

020000

001330

013737

1330

001140

001422

10908

10903

10910

053212
0<321y4

PC,3(SP)+

RETURN HERE

IF NO DATA ERRORS

RE TURN che U REPORT AN ERROR
SUB WRIT s ERRCR NUMBER
ussn R; ro:: MORE CHECKS
T€o ALl

snnons RRE REPORTED

001031
013737
042737
013737
062716
112776
032737
001003
112776
162716
004736

:CLEAR_LOW ORDER BYTE or TRAP
‘RESTORE SP TO NO ERROR
:CLERR ERROR FLAGS

MOV

MCS11, SGDDAT

-sxpscvso STATUS

oa
PC’ a(srm

‘MOVE SP TO USER’S ERROR CALL
NUMBER
{WRITE ERROR
T0 RETURN IF ERROR
: MOVE
‘REPORT ERROR AND RETURN

JSR
BR

sMCPE . $GDOAT
seoom
RHCSI;
)
ué a(sp)
304

:RECEIVED STATUS

.REPORT ANY CONTROL BUS PARITY ERROR WHILE WRING REMOTE REGISTERS, I.E.,
'PAR=1 AND DPE = 0

BIT
BEQ
BIT

001140
001140

001142

000000

0061330
0009000

3P
84 (SP)
sods

8IC
MOV
RDD
MOVB
SuB

108:

001344
000010
001344
000004
0000SC
001000
000274
000002

CLRB
SuB
CLR

:REPORT ANY CONTROL aus PARITY ERROR WHILE READING REMOTE REGISTERS, I.E.. MCPE = I
A PARITY ERROR?
;WAS THERE
!1
, RMCS
SMCPE
BIT
i
é
BEQ

000013 000000
112775 000002

162716
004736
000466

10894 0S3112 032737 000010 001344
10895 053120 00143S
1089 053122 032737 000010 001372
053130
0563132
0S314C
05314
0S531S4
053160
053166
053174
053176
053204
053210

USERS ERROR CALL.

:CLEAR USER’'S ERROR anL AND ERROR FLAGS
MOVE SP TO USER'S ERROR
84, (SP
RDD

000004

10832
10893

10897
10898
10893
10900
10901
10902
10903
10904
10905
10906
10907

JSR
??

m THE

DTASTS:

10883 053054 042737 001330
ggoooo 001140
013737 000004 001142
10884 053062 062716

1088 053070
053074
10886
10887 053102
10888 053106
10889 053110
ioeqcln 053112

NOP
ERROR

SEQ 0223

158 :

00042S

BNE
MOV
BIC
MOV
ADD
MOVB
BIT
BNE
MOVB
SUB
JSR
BR

208
:

#PAR, RMERL I
208
8DPE, RMER21
0s
RMER1T, SGDDAT
#PAR, SGDDAT
Rnenlx SBDDART
)
onxt
158
8274, J(SP)
82, (5P)
PC TSP+
30¢

.so a(sp)
RMCS11

WAS THERE A PARITY ERROR??
no
uns IT DUE TO CONTROL BUS??
:NO?
expecrso STATUS
nscsxvso STATUS

MOVE SP TO USER’S ERROR
:DID
PYES!
'NO - CHANGE ERROR NUMBER
'MOVE SP 1O RETURN IF ERROR
'REPORT ERROR AND RETURN

NUMBER
unnsMXFERROR
GET SET

C’RHDBO RMO3-2 FCTNL TST @
CZRMDB.PL1
23-NOV-77 12:19

EO2

MRCY11l 30(1046)
@23-NOvV-?7
12:38
PRGE 224
DRTA TRANSFER COMMAND STRTUS CHECK SUBROUTINE

10911

10912

SEQ 0224

LOOK FOR ANY ERRORS WHICH MAY HARVE OCCURRED DURING COMMAND INITIARTION OR

{83}3

HECHRNICRL POSITIONING

10918

;FIRST TEST MXF WHICH WOULD INDICRTE COMPOSITE ERROR SET WHEN FUNCTION

10916

10917

0S321M

032737

001000

001340

10919

0S3224

013737

001340

001140

10918

053222

001425

10920
10921
10922

053232
0S3240
053246

042737
013737
062716

001000
001340
000004

10924
10925

053260
0S3264

162716
004736

000002

10929

0S3e66

162716

000010

igg%

053276

;CODE AND GO BIT
BIT

10923 0S32Se 112776 00027S 000000
iggsg

10928

igg?

053266

053272

000137

sMXF , $GDDAT
RHCSEI $SBODART
Pl

sus
JSR

2, (5P)
PC 3(5P)+

sSuB

056364

JIMP

053276
0S3304

10943

0S3336

10945
10946

05334
053350

0S3314

032737
001447

013737

042737

020000

001344

001140

000100

001342

00009‘4
0002 6

000000

020000

BIT
BEQ

001140

BEQ

45§

1094

BIT

001404

0S3340

032737

0S33S4
0S3362
0S3366
3370

112776
162716
004736
162716

0S3374

053376

001013
062716

000413

001010
508:

10954

053376

062716

000004

10958
10959
10960

053410
053414
0S3416

162716
004736
162716

000002

ioesg

0S3424

10957 053402 112776 00C277 000000

10964

10965
109ee

OVE SP TO
NO ERROR

SKIP TO END OF SuB

OR_IF "OPI"

BNE
R0D

MOVB
suB
JSR
SuB

0S3422

0S34ed
03432

000240

032737
00I43¢

RDD

MOovB
SuB
JSR
SuB

60S:
001372

EXPECTED STATUS

;RECEIVED STATUS
; WRS HEDIUH OFF LINE??

#VV,RMDSI

HQS “MOL"

sos’
Y, (SP)

1276, 3(SP)
82, (5P)
PC,a(SP)+
.lfi (SP)
608

; YES!!

INTERMITTENT?”

iNO?
HOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
iMOVE SP YO RETURN IF ERROR
:REPORT ERROR AND RETURN
IRESTORE SP TO NO ERROR

WHICH IS DUE _TO “ON CYLINDERTM NOT DROPPING OF

-"RUN" TIMEOUT (20 fiS) OR SEQRCH TI&OUT (50 MS)

000010

010000

IS "OPI“ SET??
NO!

RPERl SBDOQT
sMOL , RfiD

REPORT “OP]~ ERROR,

10956

10961

4osy:

SOPI RMERII
608

RPERII SGDMT

MOV
BIT

10955

(SP)

MOV

BIC

10941 0S3322 013737 001344 001142
10942 053330 032737 010000 001342

iD‘?Sg

#10,

3804

engL"HOL" ARE SET, BUT "vvTM IS RESET, INOICARTING AN INTEQHITTENT
053306

10951

uRITE ERROR NUMBER

iMOVE SP TO RETURN IF ERROR
{REPORT ERROR AND RETURN

:REPORT
AN ERROR IF “OPITM ERROR OCCURRED DUE TO “MQOL"TM =

10939

10947
10948
10949
1090

02’5 O(SP)

RECEIVED STRTUS
MOVE SP TO USER’S ERROR CALL

40$:

10934

10940

;EXPECTED STRTUS

BIC
MOV
RDD

;NO! !

;RESTORE _SP TO NO ERROR RETURN QND BYPRSS FURHTER STATUS CHECKING

{gglg

10937
10938

RMCS2], SGDDAT

40$

HMOovB
30§8:

;WAS “MISSED TRANSFERTM SET??

BEQ

MOV

001140
001142

WERE LOADED

SMXF ,RMCS21

NOP

02’? O(SP)

82, (5P)
PC,(SP;+
810, (5P)

MOVE SP TO USER'S ERROR CALL

HRITE ERROR NUMBER IN CALL

iMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RE TURN
iRESTORE SP TO NO ERROR

;LOOK FOR "IVCTM ERROR DURING COMMAND INITIARTION
BIT
BEG

#IVC,RMERZ]
708

; WAS THERE
;NO? !

"IVvC"TM

ERROR""

CZRMDBO RMO3-2 FCTNL

CZRMOB. P11
10967

10968
10969
10970
10971
10972
10973
10974
1097

0S3434
053442
053450
053456
053462
0S3420
053476
05

10976

053506

10878

053514

1L:°7

10979
10330
10981
10982
10983
10384
1098S
10986
10987

10988
10989
10990
10991
10932
10993

19994

10995
1099%
10997
10998
10999
11000
11001

063512

MACY11

23-NOV-77

12:19

013737
042737
013737
062716
1lo7
032737

001372
010000
001372
880004
0300
000100

001140
001140
00li4e

000301

000000

001403
112776

162716

004736

000002

053520
053526

032737
001510

000007

001344

05353

032737
001424

0000C2

001344

042737
013737
062716
1127276
162716

001344

000002
001344
000004
000302
000002

001140

162716

000010

0S3S40

0S3S46
053554
053562
063574

013737

053600

004736

0S3606
053610

000240

0S3610
053616
053620

032737
00I424
013737

11008

063662

;{8}?

053670

042737
013737
062716
112776
162716

004736

162716

0S3666

000240

053670
053676
053?00

032737
001424
013737

001140
001142

11016
11017
11018
11019
11028

053706
053714
053722
053726
083734

i1022

0E3742

11021

063740

001140

001140
001142

£SS:

000010

SuB

NOP

001140
001142

000000

82, (5P)

810, (SP)

= 0,

OR REPORT ERRONEOUS "IVC" ERROR

;EXPECTED STATUS

;RECEIVED STATUS
'MOVE SP TO USER’S ERROR
‘WRITE ERROR NUMBER IN CALL
:WAS VOLUME VALID??
1NOT
!
: CHANGE ERROR NUMBER

:MOVE

:REPORT

SP TO RETURN IF ERROR

“IvC* ERROR AND RETURN

'RESTORE SP TO NO ERROR

sILR, SGDOAT
RMERII, SBDDAT
84, (SPS
8302,3(SP)
82, (5P)

;RECEIVED STARTUS
'MOVE SP TO USER’S ERROR CALL
"WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR

810, (5P)

'RESTORE SP TO NO ERFOR

PC 9(SP)+

:REPORT ERROR RND RETURN

:REPORT AN ERROR IF “ILFTM IS SET
Bli
sILF,RMERLT
:WRS “ILF* DETECTED??
BEQ
90§
INO?
!
MOV
RMER1I, $GDODRT
:EXPECTED STATUS

BIC
MOV
ADD
MOVB
SUB
JSR

001140

162716

PC I(SP)+

SuB

BIC
MOV
ADD
MOVB
SUB

90s :

000004
001344
(00004
000304
000002

ISR

SUB

001344

RMER2I, $GODRT
s1vC, $GDDAT
RMERSI,SBODAT
84, (SP)
8300, 3(SP)
svV, RMDST

IF “ILF” OR “RMRTM
IS SET
BIT
8ILR!'ILFTRMR, RMER:I
BEG
100%
“NO ERRORS DETECTED
;REPORT AN ERROR IF “ILRTM IS SET
BIT
oILR,RMERL]
:WAS “ILRTM DETECTED??
BEQ
80$
INOYS
MOV
RMER11,$SGDDAT
:EXPECTED STATUS

000010

001344

PAGE 225

SYATUS CHECK SUBROUTINE

:SEE

000000

000004

FO2

65$
#301,3(SP)

SUB

001344

BEQ
MOVB

ISR

001344

042737
013737
062716
112776
162716

004736

MOV
BIC
MOV
ADD
MOVB
BIT

000000

000001

62:

:REPORT “IVC” ERROR DUE TO “Vv”

80S:

000001
001344
000004
000303
000002

eg-nov-77

DATA TRANSFER COMMAND

708:

11012
11013
11014
1101S

30(1046)

000000
001342

000010

053626
05334
053642
4
053654

11009

162716

11002
11003
11004
11005
11006
11007

TST

NOP

sILF $SGDDAT
RMER]IT, SBDDAT
84, (SP)
83027 3(SP)
82, \5P)

;RECEIVED STATUS
*MOVE SP T0 USER'S ERROR CALL
‘WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR

s10, (SP)

"RESTORE SP TO NO ERROR

PC TSP+

:REPORT ERORR AND RETURN

:REPORT AN ERROR IF “RMR"” 15 SET
BIT
#RMR, RMER 1]
;WRS “RMRTM DETECTED”?
BEG
100$
*NO1!
MOV
RMER1I, $GDDAT
:EXPECTED STATUS

BIC
MOV
ADD
MOVB
SUB
JSR

SUB

sRMR, SGDDAT
RMER|1, SBODAT
#4, (SP}
8304 3(SP)
82, (5P)

;RECEIVED STATUS
*MOVE SP TO USER’S ERROR CALL
*WRITE ERROR NUMBER IN CALL
"MOVE SP TO RETURN IF ERROR

010, (5P)

'RESTORE SP TO NO ERROR

TSP+

'REPORT ERROR AND RE TURN

SEG 0225

$=2 9 0t s Bt Bt Bt Bt 9t Bt ot ot Bt Pt s Dt Pt Pt Bet Bt Pt Pt Pums Ps Bt Bt Bt Dt Pt Pt o Pt ot Pt Pt Pt s Pt Pt Pt ot Pt e Pt P P Pt P P Pt Pt Pt s P Pt P

RMDBO RMO3-2 FCTNL TST 2
MD8.F11
23-NOV-77 12:19

1023
1024
1025

102€
1027
1028
1629
1030

1031
1032

053746
053750

000240

053750
053756
0S5376M

012737
052737
022737

gggrra
779

0S4002
0S4010

633q§§
7

122737
103459

MACY11

002000
040000
001466

001140
0Se412
061434

040000

0S6412

000037

001406

00003S

001406

010000

001432

000004

001407

1633
1034
1035
1036
1037
1036
1039
1040
1041
1042
1043
1044

054012
0S4020
054622
0S4030
054032
0S404C
054042
054046
0S40S4
05
0S4070
054072

1227
103412
1e2737
10300
032737
001402
37
013737
042737
023737
00100M
042737

001140
001344
175777
001140

00llv2
001142
001142

0M0000

056412

104

054102

062716

00000M

1045

0S4100

1047
1048

054106
OSM1IN

1050

054122

1049

064120

iOSl

0sS4lee

1053
1059
1055

054126
0S4134

1067
1268

054158
0S41S56

1056

000M12

112776
162716

004736

000305
000010

013737
042737

001372
137777

001142
001142

137777
040000

001140
001372

013737

0S4164
054166

001417
032737

040000

054176

062716

000004

1065

054214

004736

iggg

os4e24

1671
1072

054224

032737

040000

1074

054234

062716

000004

1o6).

1062

1063
1064
1066
iggg

1073

0S4179
054202
054210

054216
OgS4222

054232

1075
1076

064240
054246

1078

O0OE42€4

1877

0S4252

042737
032737

001032
112776
162716

162716
000417

056412

000306
00000°

NOP
1008
:
:DETERMINE WHETHER OR NOT "IRETM
MOV
8 1AE, SGODAT
BIS
85K .sgos
CHP
8822,
,RMOCO
BLO
1%3’
BIC
85K
1, 5008

CMPB
BLO

105§:
1108:

1158:

' 208 :
:REPORT

001140

FLAG

P15 TRACK > 477
(YES!!

RDD

84,

;nov; SP TS USER’'S ERROR CALL

MOVB
SUB
SUB

1208

(SP)

8305, 3(5P)
82, (5P)

PC ISP+

810, (SP)

1S SECTOR > 3177
PYESTY
!1S SECTOR > 2977
'NO - IRE SHOULD BE ZERO
18 BIT FORMAT??
TYESH?
:1AE SHOULD BE ZERO
:GET RECEIVED STATUS

‘WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
:REPORT ERROR RND RE TURN

'MOVE SP TO NO ERROR

AN ERROR IF ~SKI~ IS SET AND “IRETM STATUS WAS OK
MOV
RMER %.saoonr
:RECEIVED STATUS
BIC
81 CSK
ODRT

MOV

S00$

BEQ
BIT

140
8SK1, 5008

DAT

81CSK], SGODRY
sSK 1, RMER2T

180$

ADD

84,

ISR

PC I(SP)+

MOVB
SUB

000010

PYES!!
‘RESET SKI

;IS "IRETM STATUS OK??
INO!!
:IAE OK - SKI SHOULD BE O

BNE

000000

: SE
FOR “IRE” = 1
:SET SKI FLAG
:1S CYLINOER > 82277

#3].,RMDAO
1108
829, , RMDAO
105;
sFMT16, RMOFO
1108
AT
RMER1I,$BCORT
81C IRE . $BODAT
$GDOART.$BODRT
1158
aSK1,S00$

BIC
BIT

0S6412

84, RADAO+1
1108

S“°¥b£ BE SET AND CHECK FOR ERROR

cHPB
BLO
crPB
BHIS
BIT
BEG
CLR
MOV
BIC
CHP
BNE
BIC

ISR

162716

054142

1058
106C

00000U

GO2

30(1046)
@23-NOv-77
12:38
PARGE 226
OATR TRANSFER COMMAND STATUS CHECK SUBROUTINE

SUB
BR

(SP)

8306, 3(SP)
82, (5P)

slb, (5P)
1504

:EXPECTED STATUS

:WAS “SKI* SET??

INO1
!
*WAS SKI CAUSED BY IRE = 0°°

*YES
- DON'T REPORT SKI

;nov; SP TO USERS ERROR CALL

:WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
'REPORT ERROR AND RETURN

'MOVE SP TO NO ERROR

1408 :
001413
112776
162716

004736

162716

000307
000002
000010

0S6412

000000

.REPORT AN ERROR IF SKI = O AND
BIT
aSK1, 5008

IAE WAS NOT DETECTED
:SHOULD SKI BE SET??

BEQ

1580

MOVB
SUB

83077 3(5P)
82, (5P)

‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN IF ERROR

#10, (P,

‘RESTORE SP TO NO ERROR

ADD
JSR

cuB

84,

(SP)

PC J(SP)+

‘NO!!

'MOVE SP TO USER’S ERROR CALL

‘REPORT ERROR AND RE TURN

SEG 0226

CZRMDBO RM0O3/2 FCTNL TST 2

23-Nov-77 12:19

CZRMOB.P1L

11880 824562

000240

QS4262

032737

006200

001372

11087

0S4e72

032737

000200

001372

“089

05:

013;;

1372

-’-

§§1140

11081
11082

11083
11084

1108S
11086

11088

0S427?0

0S4300

001512

O0014e4

118?1] géwgié 8? 7

1508:

[ K

11092
11093
11094

054324
054330
054336

062716
112776
162716

00CDO4
000310
000002

1109
11097

Y
05S43S0

162716
000240

000010

11095

11098
11099
11100

11101
11102
11103
11104
11105

11106
11107
11108
11109
11110
11111

11112
11113
11114

11118
11116
11117

ggflg:s
0S43Se

0S43S2
0S4360
4362
0S4370
054372

0S4400
0S4406
0OS4414
0S4420
0OS4426
OSM432

0OS4434
0OS4440
0OS4442

0SH442

004736

032737
001430
032737

00l4ed
013737

042737
013737
062716
112776
162716
004736

11121
11122
11123
11124
11128
11126

11127
11128
11129
11130
i}igé
11133
11134

0OS4466
0OS4474
0S4500
054506
054510
0S4S14
0SHS16

001342

001372
002000
001372
000004
000311
000002

001140
001140
00114e

004000

EHE B8
e
11133
Baddgs B33
013737
716
112776
004736
162716
000240

BIT

BBadns

8997

MOV

RMER2

DDRT

MOVE
SUB
JSR

8310, 3(5P)
82, (5P)
PC 3(SP)+

RDD

NOP

oovs

84 (SP)

8LBC, RMER2I

BIT

-nok,nnosx

BEQ

‘RESTORE SP TO NO ERROR

1708

;1€ (BC Sset»?
!
INC

'WAS LBC ERROR BY MOL = O
SYES!?
:EXPECTED STRTUS

MOV

RMER2T . §BDDAT

MOVB
SUB
JSR
583

8311 3(sP)
82, (5P)

;nov; SP TO USER’S ERROR CALL
'WRITE ERROR NUMBER IN CALL
"MOVE SP TO RETURN IF ERROR

810, (SP)

"RESTORE SP TO NO ERROR

BIT

BEQ

MOV

sLBC ¥¢20n7

84 (SP}

PC a(SP)+

8L SC, RMER2]

1903

Rng ai Bgoonv

BIC
MOV
ADD

sL5C, $GDOART
RNMER2], $BDDAT
sy, (SP}

JSR
agg

pC.atsp)+
810, (SP)

MOVB

000010

IF “MOLTM =1

I.E.; "LBC" = 1,

:REPORT LQS OF SYSTEM CLOCK,

000000

;RECEIVED STATUS

;nov; SP 10 ussng %RROR

170
RMER2],$GDDAT

ADD

1140
1140
0Cl14e

1S "~DVC* = 177

INO!!
:EXPECTED STATUS

BEQ
MOV

BIC

"DvC” = 1

"WRITE ERROP NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR
;REP?RT ERROR AND RE TURN

a1, (5P)

: REPORT bo§s OF BIT CLOCK,

1708

001372
00000M
000312

1608
RMER2

B]C

000000

001372

I.E.,

s0VC, RMER2]

BEQ
MOV

SUB

010000

.LSC!LBC!DVC,RHEREI
,NO ERRORS SET
1808

; REPORT ANY DEVICE FRULT

000000

00137e

032737

PAGE 227

NOP

B8IT
BEQ

114
114

002000

000010

HOe

:LOOK FOR "LSC" OR "LBC"” OR "DVC"” IN ERROR REGISTER %2

1608

162716
000240

12:38_

DARTA TRANSFER COMMAND STATUS CHECK SUBROUTINE

4260

11079

23-NOV-77

MACY1l 30(1046)

s3l2 acsp)

;RECEIVED STATUS

'REPORT ERROR AND RETURN

I.E.,

"LSC” =1

;s “(sc~

INO!!

= 177

:EXPECTED STATUS

;RECEIVED STATUS
;nov; SP TO USER'S ERROR CAL.
:WRITE ERROR NUMBER
:REPORT ERROR AND RETURN
:RESTORE SP TO NO ERROR

1808:

0S54Sle
0S4SeN

032737
0015827

054000

001344

0426
0tB4E34

032737
001427

040000

001344

;LOOK FOR _“UNS* OR "DTE” OR "WLE"TM IN ERROR REGISTER sl
SUNS'DTE!WLE ,RMER]L ]
BIT
;NO BITS SET
220$s
BEQ
;REPORT “UNS” ER ROR IF "DVC” = O
;IS "UNSTM SET"”
SUNS,RMER!]
BIT
;NO!!
1908
BEQ

SEG 0227

Q RH03/2 FCTL 197

[~
@ O o
oy o O 45 o
[TV [V W
un

0S4S36
OS4HSHY
0S4S4e

054554
054S62
0S4570
0S4574
05
0546
084610

0S4614

el
N

s Pt Pt Bt (ot Pt

R
e S

Pn Pt Pt Prm Pt Pt Bt Pt Pt et Pt Pt

g iy Wy WDy Ny Sy Sy iy S Sy i S

et Dt et Bt Bt Bt Pt Bmn P

[

23-NOV-7 15:19
032737
005023
013737

2737
013737
062716
112776
162716
004736
162716

000200

001372

891344

001140

0000
001344
00000M
000313
000002
000010

054632
054640
446
0S46S2
0S4660
0S4664
0S4666
054672

042737
013737
062716
112776
162716
004736
162716

010000
001344
000004
000314
000002
000010

BIT
BNE
MOV

:
1908

200S:

001344
001344
004000
000004
000315
004000
000010
000316

001142
001140
001140
000000
001342
001400
000000

BIC
MOV
RDD
MOVB
SUB
ISR
SuB

BIT
BEQ
MOV

000000

001344

I02

2
PRGE

oovc RMER21
RHE 1£ scooar

sUNS , 8400
RMERIT seoonr
84, (SP)
n313 S(SP)
(5
.c a(spyo
810, (SP)

;REPORT ANY DRIVE TIMING ERROR,

001140
001142

004300

ORT?RRN‘g;R connnno s?nrus CHECK suenouxxns

001140
001142
000000

0S4614 032737 010000 001344
0S4622 001423
0S4624 013737 001344 001140

s Pt Pt Pt Pt

Y oy o

O e ey ey e Sy oy Y ey Y

e Pt Bt Pt ot Bt Pt Bt Bt Bt ot s Pt Pt P

Y e S

e Bt Pt P B

Y S o oY Sy S S

Pt Pt P

OO0

o¥

-NOV-77

MARCY11l 30(104

BIC
MOV
ADD
MOVE
SUB
JSR
suB

sDTE,RMERII
2008
RMER11, SGODAT
sDTE, $CDDAT
Rnenix $BODAT
(SP!
d(SP)
0314
, (5P)
PC a(sp)+
8108, (SP)

:WAS "UNS" CAUSED BY "DVC"??
IYES!!
"EXPECTED STATUS

sRECEIVED STATUS
‘WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
'REPORT ERROR AND RETURN
"RESTORE SP TO NO ERROR

,novg SsP 10 usens ERROR CALL

“DTE” = 1

xs ors SET??
NO!
EXPECTED STATUS

;RECEIVED STATUS
MOVE SP TO USER’'S ERROR CALL
ERROR NUMBER IN CALL
unxrs
‘MOVE SP TO RETURN IF ERROR
'REPORT ERROR AND RETURN
'MOVE SP TO NO ERROR

.REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE IS NOT
'WRITE PROTECTED, OR IF FUNCTION WRS NOT R WRITE

BIT

bulE,RMER]]

;WAS “WLE" SET??

0S4672

032737

0S4764
054772
054776
055000
0SSCOoM

042737
162716
004736
162716

055004

062716

000004

:OMIT DATA ERROR cuecxs IF ANY PREVIOUS enaons HAVE BEEN DETECTED
MOVE SP TO USER’'S ERRGCR
(SP
ADD

055014
055016
055022
S0

162716
000137
162716

000004
0S6024
000004

2258:

0S4700 001441
0S4702 013737
054710 013737
0S4716 052737
0S4724 062716
054730 112776
054736 (032737
0S4744 DOI40M
0S4746 032737
054754 001406
0S47Se 112776

004000
000002
00001C

OCIING

2058:
2108:

BEQ
MOV
MOV
BIS
ARDD
MOVB
BIT
BEQ
BIT
BEQ
MOVB
BIC
SUB
JSR
SUB

220%
RMER1], SBDDAT
nncnxx $GODAT
sW_E, $SGDDAT
84, (8P)
e3ls; a(sp)
.HRL RMDS1
¥
oax 3,RMCS10
210
1315 J(SP)
$WLE SGODAT
82, (5P)
PC I(SP)+
810, (5P)

:NO?
RECEIVED STATUS
EXPECTED STATUS
MOVE SP TO USERS ERROR CALL
HRITE ERROR NUMBER IN CALL
uns ORIVE WRITE PROTECTED??
INO?
uns connauo A WRITE??
YES!
cuancs ERROR NUMBER
:MOVE SP_TO RETURN IF ERROR
"REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

2208

105776 000000
055010 001404

1578

BEQ
cuB
IMP
SUB

O(SP)

225§
84 (SP)
3u40s
84, (SP)

WAS ERROR DETECTED??

!NO - DO DATA CHECKS
*RESTORE SP
'SKIP DATA CHECKS
:RESTORE SP

: CHECK HEADER ERRORS IF FUNCTION WRS NOT WRITE HERDER AND DRTA, ANC
: IF HERDER COMPARE IS NOT INHIBITED

SEQ 0228

CZRMDBO RMO3-2 FCTNL TST 2
23-NOV-77 12:19
CZRMOB. P11
11191 055032 013737 001400

11182
11193
11194
11196

0SSO40
5046
055054
08508¢

JOoe

MACYI1 30(1046) 23-NOV-7?7 12:38 PAGE 229
DRTA TRANSFER COMMAND STATUS CHECK SUBROUTINE
;GTRIP AND STORE FUNCTION CODE
RMCS10 51os
MOV
056414

032737 002000 001362
i{}gg 55064 001109

11199 0S5066 032737 000620 001344
iigg? 055074 001533
11148

11282
11203

0S5076

11212

055150

11204
112058
11206
11207
11208
11209
11210
11211
iiSii

11218

11216

11217
11218
11219
11220
11221
11222
11223
11224
11225
i}sgg

11228
11229

11230
11231

0SSION
055106
055114
065122
055130
055134
055142
0SS146
055182

0SS152

055160
0S5162
055170
055176
055204
055210
055216
055222
055224
055226

0SS5226

055234
05523

BIC
CMP
BEQ
BIT

042737 177700 0S6414
000063 0S641M
022737
001512

032737

001422
353737
2737
013737
062716
112776
162716
004736

000400

001422
013737
042737
013737
062716
112776
162716
004736
000453
032737

001453
013737

000020
001344
000004
000320
000002

001344

11238

11239
11240
J1241

055264
055272
055276

055300

112776
162716
004736

001140

001140
001142

000000

000200

001344

001140

055302
0ES310

032737
001425

000620

001344

11246

0EE326

013737

001344
000620
001344

001140
O0C1140

11244
11245

05S312
0EE320

0i3737
042737

BEQ
MOY
BIC
MOV
ADD
MOVB
SuUB
JSR
BR

001iu42

260s

$FER, RMERII

a os’
RMER1I,$GDDAT
sFER, $GDDAT
Rnsnlx $8DDAT
(5P}
d(SP)
-3éo
2, (5P)
PC a(sp>+
2ebs

BEG
MOV

RHERIscooar

ADD

oH (

MOV
BIC

MOVB
;]
JSR
BR

11542
11243

230$
RMER1I,SGDDAT
sHCRC ,$GDDART
Rnsngg saooar
)|
a4
J(SP)
-317
82, (5P)
PC ISP+

INOT!
:EXPECTED STATUS
;RECEIVED STATJS
MOVE SP TO USERS ERROR
ERROR NUMBER
WRITE
'‘MOVE
SP TQ RETURN IF ERROR
!REPORT ERROR AND RETURN
:WAS “FER" SET??

INOT!

:EXPECTED STATUS

;RECEIVED STATUS

"MOVE SP TQ USERS ERROR
‘WRITE ERROR NUMBER
'MOVE SP _TO RETURN IF ERROR
!REPORT ERROR AND RETURN

: REPORT HEROER conpnns ERROR IF SET
*WRS “HCETM SET??
HCE
BIT

000000

00042%

BIT

240$:

000321
000002

8HCRC!FER!HCE, Rnshx

: REPORT ronnaw ERROR IF SET

11232
055244
042737
000200
001140
001142
001344
013737
05
11233
062716 000004
112349 055

11235
11236
11237

BIT

BEQ
MOV
BIC
MOV
RDD
MOVB
SUB
ISR

2308:

001344

.ch,nnorx
2508

“FER” OR “HCRC” OR “HCE”
.SEE IF ANY HERDER ERRORS ARE SET
:NO ERRORS SET
2708
BEQ

001344 001140
000400 001140
001344 00J142
000004
000317 000000
000002

000020

‘WAS HCI SET?
:YES - SKIP HERDER CHECKS

BNC

‘ . REPORT HERDER CRC ERROR IF SET
:WAS HCRC SET??
$HCRC , RMER11
BIT
001344

000s01

032737

nfcrnchsx 0s
FUNCTION WRITE HEADER 8 DATA??
G 10 ;WRS
SWH'
'YES - SKIP HEADER CHECKS
asos

é ;eooar

832509 SP)
82, ( p)
PC’ 2(59)0
26b

INOT!
"EXPECTED STATUS

STATUS
;RECEIVED
MOVE SP TO USER'S ERROR

' WRITE ERROR NUMBER
‘MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

: THERE SHOULD BE NO HERDER snno«g gggnuss
DATA, OR
.COMMAND WAS ki TE HEADE
;
INHIBIT WAS SET
"HERDER COMPARE

L508:

BIT
BEQ

IHCE'F RYHCRC, Rnsnxx
0 ERRORS WERE SET
s

MOV

RMER1I, SBODAT

MOV
BIC

expscreo STATUS
MER1I, SGDDAT
#HCE 'FER'HCRC, $GODA

RECEIVED STATUS

SEQ 0229

cznnoeo RMO3/2 FCTNL T1ST 2
CZRMDB. P11
23-NOV-7? 12:19

11247

05S334

11248 0SS340
11249 05346
11260 0S53s2
11261 0S5354
“asaesa 055360
fiaagg 055364
11256
11267

062716
112776
162716
7
(62716
000137

000004

000322
000002
000010
056024

KO2

MACY1! 30(1046)
23-NOV-77
12:38 PAGE 230
DRTA TRANSFER COMMAND STATUS CHECK SUBROUTINE

2608:

11268

055364

032737

000010

11260

055374

000137

0SSel2

11264
11265

0SS4
0S54

032733
0014

100000

11267
11268
11268
11270
11271
11272
11273
11279
11275
11276

055416
055424
0S5432
055436
W4
055452
055464
S462
0SS470

0427
013737
ossns
112776
(032737
001021
112776
032737
001007

1
001140
001344 001142
000004
000323 000000
004000 001362
000324 000000
000100 001344

11277

055472

032737

000020

056414

11281

085510

112776

000325

000000

11269
11261

11262

11263

055372
0SS400

001002

112&9 0SS410 013733

}{S;‘é
11280 %2
055
11282
11283
Hgg

Hgsag

055516
055522
055524

wsé;?s
18 000004
162716
004736
162716

000002

RDD

000000

0S6414

81T
BEQ
MOV
BIC

Y
ROD
MOVB
BIT
BNE

nov; SP 10 USER’ s ennon CALL

£ emon NUMBE
VSQ?P gncrunnngrfinnon
REP
sn OR AND
MOVE
NO ERROR
onxr rumusn DATA CHECKS

80CK , RMER1 I
2908
RMER1], SGODAT
80CK
OAT

:G0 DO WRITE STATUS CHECK

;DATA CHECK ERROR””
NO!

:xpscreo STATUS

Rl $BODAT
84, (SP}
8323, 3(SP)
ggg,morr

RE IVED STATUS
usznssnnon

88174,510$

uas mxs A RERD COMMAND 77

1T sm
X
MOVB
8324, d(SP}
c
10 RECOVERABLE ERROR
BI7
oecn,mmx
1S ERROR RECOVERABLE??
BNE
276%
INO !
;D0 NOT REPORT RscovenneLs ERROR’ IF Reno COMMAND
BIT

2768:

2808:

000010

253
BR

%’3"?9)
230s

SUB
JSR
SUB

82, (5P)
PC’ a(sp)+
810, (SP)

MOVB

8325, 9(SP)

ms EcC coanzcvxon DISRBLED”?

SKIPSaon DATA WILL BE CORRECTED
umce O NON RECOVERABLE

MOVE SP TO RETURN IF ERROR
nspom ERROR RND RETURN
'RESTOR. SP TO NO ERROR

290$:

11288

11289 055530 032737 000400 001340
11296
11291
11292
11293
11294

055536
055540
055546
055554
055562

001423
Ci3737
042737
013737
062716

11296
11297
11298
Hggg

0S5574
055600
055602
055606

162716
004736
162716
000137

11301
11302

o0ssei2

001340
000400
001340
000004

: REPORT onm BUS PARITY ERROR IF sm

BIT

001140
001140
001142

11295 055566 112776 000326 000000
3

9322 J(SP)
82, (5P)
PC J(SP)+
s1b, (3P)
340$

:REPORT DRTR CHECK IF SEY

001140

055530

84, (SP)

270$:
s IF COMMAND WRS A WRITE COMMANC, GO DO WRITE ERROR CHECKS, OTHERWISE
:00 RERD inaon CHECKS
eft
88173,5108
:WAS THIS A WRITE COMMAND”
8NE
5750;
INO?!
275%:

001344

MOVB
?“S
S
SUB
e

000010
0S6024

3008:
310$:

= 1
trv snkon PE
SET??

BEQ
MOV
BIC
MOV
ADD

300%
RMCS21, SGDDAT
sMOPE . $GDDART
nncsat $BODAT
'3

NO
sxpecvco STATUS

SUB
ISR
SUB
IMP

,(5P)
pc acssm
810, (SP)
3404

MOVE SP TO RETURN IF ERROR
REPORT ERROR AND RE TURN
'MOVE SP TO NO ERROR
:SKIP WRITE STATUS CHECK

MOVB

000002

nopc,nncsex
aaés a(SP)

;RECEIVED STATUS
:MOVE SP TO USER’S ERROR

unx £ ERROR NUMBER

SEQG 0230

P Pt Pt e Pt Pt Pt Pt (ot Pt Pt Pt Pt Pt Pt Pt Pt Pt (ot Pt P
Bt Pt B P P Pt Pt ot Pt ot (ot ot Pt Pt Pt Pt Pt et Pt (s P

§§
23
i
#s

235 ‘fié
:

:TEST TO SEE THAT OFFSET MODE WAS RESET:

ég

001140
1140

MOV

BIC

001372

0137
0627;6

112
162716

0013

30
000002

032737
001423
013737
8«2737

822889

062716
112776
162716
004736
162716

056012
056016
056020
056024
0S6024
CS6032

%83-#

00004
001344

13737 001344

032737
001423

013737

000331
0000

001142

MOV

056076
056102

162716

000010

355
356
357
368

056102
056106
0Selle
0%Skl116

01374
042716
022726
001S2e

001342
[47e7?
010100

:MOVE

SP 10 USER’S ERROR CALL

;WRITE_ERROR NUMBER
ALL
:MOVE SP TO RETURN IF ERROR

‘REPORY ERROR AND RETURN
iMOVE SP TO NO ERROR

;RECEIVED STATUS

o4, (SP)

ISR
SuB

8330, 9(SP)
82, (5P)
PC A(SP)+
810, (5P)
SWCF, RMERI]

MOV ; SP T0 USER'S ERROR CALL

unx E ERROR NUMBER
TO0 RETURN IF ERROR
MOVE
REPORT ERROR AND RETURN
IMOVE SP TO NO ERROR
REPORT ERROR IF “WCFTM = 1

§3“WCFTM SET??

MOV

Rneaxg
$GDDAT
8WCF , $6DC=T

sxpscreo STATUS

3839
sSUB

331(5P)
a?sp)
82,
PC 3(SP)+

H2Y$ESP
"oU%EQEEERROR
CALL
ERROR
IF
RETURN
TO
MOVE S
:nepoar
ERROR AND RE TURN

BIC
MOV

3408

JSR
suB

nnsnix $BODAT
a1, (SP)

;RECEIVED STATUS

:MOVE SP TO NO ERROR

:REPORT “DATA LATE* ERROR IF “DLT" =

e
g
881{:9
348 822822 852715 83600u
349
112776
000332
000000
7
271
o8

:RECEIVED STATUS

I SBDDAT

RDD

géa

000t I

00J 140

{EXPECTED STATUS

-zxfiécrso STATUS

;TEST FOR_WRITE CLOCK FRILURE;

001142

001340

REPORT ERROR IF “OM"

OFFSET ON??

Rnsneibgcogar

oopsé

SuB

001140
001140

001340

oaé7
a(SP)
,(5P)

BIC

MOVB

000000

100000

352
gga

PC a<sp>+
a1, (SP)

MOV

009010

EDDRT

;1S

: TEST FOR DRTR eus PARITY ERROR; REPORT ERROR IF “DPE” = 1
gés
, RMER2T
ggyg PARITY ERROR??

001140

001344

8n8§
$GDDAT
80N 6gon

ISR
S

MOVB
SUB

3308:

055746
055754
055756
05576M

RMOS1

Rnos

001140

2
2

0s5714
5
0557
055734

80M,

MOV

RDD

000000

LW~ 00

345

001342

3208:

334 055792

335
336
337
338
339
3%0
341
342
343
344

LO2

SEG 023!

MACY11l 30(1046)
-NOV-77
12:38
PRGE 231
DRTA TRRNS ER COMMAND STATUS CHECK SUBROUTINE

1142

OOV

P Pt Bt Pt Pt Pt P Pt Pt P
(o
e s Pt et Pre Pt P @ P G

BREERRRERRRRRS

e Pt Pt

s P

s Pt o

WWwWwwWwwwwww

P Pt ot P Pt s Pt P Pt Pt P
Bt Pt P Pt e Pt mn s et Pt P

P Pt Pt Pt Pt Pt Pt Pt Pt P Pt P P
(s Bt s P
e Pt Pt e Pt B Pt Pt Pt

CZRHDBO RH03/2 FCINL TST 2
23-NOV-77 12:19
CZRMCB.PL1

2508

éo

ogLT,RMCS21

Ig“DLT* SET??

MOV

?2}¢3°°?“T

expscrso STATUS

263

'DL

gu
b

$80DAT

“889 352§§25P)
(5P)
p a(sp>+
sUB

810, (5P)

;RECEIVED STRTUS
ERROR
unn REIFTURN
T0 RE RND
MOV

ufl:gngRRORuaens
E
RROR
CALL
ERROR
REP
:MOVE SP TO NO ERROR

:LOO¥. FOR UNEXPECTED CHANGES IN DRIVE STATUS
STACK LRIVE STATUS
RMOSI, - (S5P)
MOV

BIC
CMP

BEG

OYC<P1P'HOL'VV) t2p) . CLEAR DONT CARES
sMOL!VV, (SP)+
;1S ohxvs STATUS OK??

3808

PYES!

RMDBO RMO3/2 FCTNL TST 2

g%mmég.m?o

23-NOV-77 ji2:19

{{323

{ig 3&{%
;}3@5‘ oss{

MACY! L 30(104

Hg;g 056210

3?33; p20000 001342 '
.

5737

’

040000 00:372

j2716 000010

3608:

11377

H%fi ossaig gg%g; 010000 001342
11

“fl
11333"3

“385

832552
osaag

11386

§fi7 ;
1373;

020000
001342

ossa;g

PRGE

SEQ 0232

062716

000004
000010

36P.Rflogl

18“PIP” SET??

MOV
gxs

@8
1 scoom
?gom

Exgeg?"o
s
IVED STAT

Sug

uo (5P)

8NE

8SK], RMER21

(59)

JWRS ~SK]” ERROR nspomsow

stsnsgmg

S snnon CALL

ROV $-°70°No ERROF

Ettg_ . 35%;RM s

$sMEDIUM ON LINE??

mgv

;RECEIVED STATUS

g'xg
SO\S/

8155737 861?4:2 %qu
162716

géa
=

Reggg;ssm?nexr neoxun xs NO;I:; ON LINE AND OPI ERROR WRS NOT

0C1344
00{ }:o

el
B ek
g oo
11389
736
{}33?

MO2

';EE“,IIERW'} g‘o POE;TIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR,

@21&3 8&3;15 886836

11373

j2:

DRTR Tnnggsn conmu6 s?zrus CHE x suanourme

ugs
@138 1595; 001342 001140
11367 056146 ma;:; 020000 %H:g

-NOV-77

RDD
—

o
ISR

SUB

39&,RMER] 1
RMOS] *scoom

R;&d ?88097
wé<s¢)

ENAST

PC a<sm+
810, (5P)

“23 991 ERROR REPORTED??
'EXPECTED STATUS

nmgvgsspmo USER’ SRERROR

HSESTNR

cocor

REPORT ERROR AND RE TURN
:MOVE SP TO NO ERROR

{}33%
zggg;semon
IF 3vownevxs Ngr VALID AND “IVCTM ERROR WARS NOT
11
H% 056276 03?73; 000100 001342
gt % mgs
$ssvmurt VALID??

H% %fi% 1%7 010000 001372
11399
056316 1370?3
%3?5
001140
11400 056
7
1
001140
140
"5"§§ 8&%33’
gégz‘?‘g? collu2
11%85 8?.2
11 %
000000
11404
11405
11409

056352
056356
822%0

162716
004736
162716

000002

11410

056364

(32716

000004

11414

0Se402

000402

“:88

11409

000010

3t
g
rgs oo
1i413 056376 062716 000004

gxz
MOV
8IS
nov
MOVB

3808:

SuB
JSR
SuB

3 RMER2]
icfi
ow
k31,3800
oaés d(SP)
82, (5P,
PC Q(SP)+
810, (SP)

SsIVC ERROR REPCRTED??
sygscrso STATUS
“‘CEE !
’8.1. S ERROR CALL
ERROR NUMBER

MOVE SP T0 RETURN IF ERROR
nspom ERROR AND RE TURN
"MOVE SP TO NO ERROR

:AUGMENT THE nsrunu noonsss IF nnv ERROR WRS FOUND
ADD

Lo
ADO
BR

3
84, (SP)
vyobs

MOVE_SP TO EPROR CALL

Ay,
e
'YES - MOVE SP TO ERROR RETURN

(LRMDBC RMO3/2 FCTNL TST 2
23-N0ov-77 12:19
CZRMOB.P11
{{:{2 0Se404 162716 000004
i{:ig
11419
11420

0S6410
0Se4le
0Se414

000207
000000
000000

NO2

MACY!1 30(*04?) 22-"0V~77 12:38_ PRGE 233
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE
;MOVE SP TO NO ERROR RETURN
#4, (SP)
sus
390S:
;RETURN TO USER
PC
RTS
400S:
;ERROR FLRGS
.WORD
S00%:
; TEMPORARY STORAGE
. WORD
5108:

SEQ@ 0233

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB. P11
23-NOV-77 12:19

BO3

MACY11 30(1046)
23-NOV-77?
12:38 PAGE gaw
STATIC DRIVE STATUS CHECK SUBROUTI

ii:Sé

.SBTTL

11423

THIS =4c ourx

11
11
11

if
ii
11

11448

11449

:
:

c1)

:
:
:
:
0Se416

= 0, INDICATE
¥
0ST VOLUME VALID
PIP =
1
ICRTES T
HE DRIVE IS OFF CYLINDER
SK] =
CATES
THE DRIVE HAS AN UNEXPECTED SKI ERROR

BVC = 1.

NOICATES AN UNEXPECTED DEVICE FRULT

11452
11453

0S6M426

162716

11458

0Se432

01374

001342

11456

0Se442

022726

010100

11459
11460

0Se4S0

032737

010000

001342

020000

001344

001342
010000
001342
000004
000207

001140
00114y
001142

056456
056460
0Se46b

056470
056476
056504
055512
056516
056524
056530
0Se532

NOP
ERROR
JSR
22

ROD

PC,STCDRVETS

224

RETURN HERE IF NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR nunesn DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

PC,3(SP)+

001524

001030
032737
001024

013737
737
013737
062716
112776
162716
004736
162716

0000062

00001C

(SP)

a(é

MOV

cfc<PtPen0Levv>,tsp)

BIC

CHP

PEQ

000000

;MOVE SP TO USER’S ERROR CALL

CLRB

[ (sp>
.SEE IF “MOLTM = v0~ 1,

11485 056436 0OM2716 147677
056446

JSR

:CLERR USER’'S enaon CALL

DO0O0H

11461 086422 105076 000000

11469
11470
i147]

NOTE

STCDRVSTS:

062716

11464
11465
11466
11467
11468

%?T
OFFLINE,

. THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BJFFER.

0Se416

11461
11462
11463

uaucgg"?QDSan

THGT HOL IS RMW*CQ&V‘M vfi

11450

ii:gg

ron un:xrccreo CHANGES IN DRI VE

;THE ;SELOHING CONDITIONS ARE TESTED AND REPORTED RS ERRORS

11
11
11444
ii::g
11447

STATIC DRIVE STATUS CHECK SUBROUTINE

SHOUL ‘.

ffff&-&.&t&&t&ll&&&ll‘
SRS IBURREBRNEEBYRRY

11
11
11
11
11
11
11

SEG 023u

;CLERR ERROR NUMBER

:MOVE SP BRCK TO NO ERROR RETLRN
AND ~PipP* 02

S1 -(&p)

sMOL!VV_ (SP)+

-PUT

DRIVE STATUS O STACK

nng MOL,VV AND PIP 0.K.?”
SYES!!

:REPORT AN ERROR IF MOL = O AND “OPI* = Q
BIT
#MOL, RMDSI
;1S _MOL ON 77

BNE
BIT
BNE

MOV
BIS
MOV
RDD
MOVB
suB
JSR
s0B

108
oon RMERLI
108
RMOSI, $GDDAT
sMOL , $GODAT
RMDS | saoon1
(5P)
s207 3(59)
82, (5
PC Q(SP,+
s10, (5P)

LY
TWAS “091“ SET??
:YES-DONT REPORT "MOLTM = O
JEXPECTED STARTUS

;RECEIVED_STATUS
MOVE SP TO USER’S snnon CQLL
qu E ERROR NUMBER IN CAL
MOVE SP TO RETURN FOR ERROR
'REPORT ERROR VIA USER
"MOVE SP BACK TO NO ERROR RETURN

RMO3/2 FCTNL T

23-NOov-7

056550

gees

LLLLLLLLLLLLL
L

Y
Y ey

R Sy S S

jereue B3iod

000100

001342

010000

001372

001342
000100

001140
001342
001142

000210
000002

000G00

s REPORT §?TERR0R5é§.ggbg?E VALID zgNee_ZER RNO “IvC” = 0

LLELLLLL LSS

001342

s REPORT

1342

001142

nog

T
e
e O

013746
042726
001460

1372
137577

g
057002
004

162716
004736
162716
000ecH40

QP)

IF “SKI*

= “DVC” = O

BIC
; REPORT

BEQ

50S%:
: REPORY

ERROR CALL

R IN USER’S CALL
N
?P 8 RETURN FOR ERROR

ERROR VIR USER
SP TO NO ERROR RETURN

RMER21 - (SP)

.PUT ERROR REG 2 ON STACK

608

:BRANCH IF NO ERROR

#tCSkt1DVC), (SPY+

oo C,RMER2]

Rax 5000nr
Rnenéx ODRT

ISR
SUB

PC a(SP)+
o1, (5P)

MOVB
sSuB

000010

REP
:MOVE

MoV
BIC
MOV

12
ce

SET??

S? ERROR IF THERE IS R DEVICE FAULT
ago

%1572

I”

s
RE E_ERR
Exg

J(SP)+

.10 (SP)

MOV

oall a(SP)

SUB
NOP

001372

11 7;2

‘S $25887
seoonr

Sug

; SEE

T S?"?“us e

I,RMER2I]

JSR

408:

000200

gga

MOVe

308:

?RIVE OFF CYLINDER??

325P RMOS1I

01140

000010

292 T
33

N W

M NN LWh—O

SP BRCK TO NO ERROR

, (SP (SP)

gég

201140

[

CALL

AN ERROR 1F DRIVE IS OFF gYLINDER AND “SKI” = 0

§§§:5R§EER803ET?R”USER ERROR

3(SP)+
kG

000000

B H44

RSCE%%EQSSEQE CRLL
#) HOVE SPT
e
g a sP
(

tnon
rn
N

Rho

8IT
BNE
MOV

o ol

sxgeg?go g§P?RS

5 SI, SGDDRT

001372

T e

020000

Ny
S

WAS ~IVCTM SET??

81VC,RMER2I

20$%:

T o

S
oy Sy oy S

] o

S
S
Sy

N
S

oy S

S
S

Sy S
S

N
N

[

SEQ 023S

NOP

108:

000010

Y Sy

MACYLL IQLARIE ortie Wafls LREER SDBRBUPTRe

TlS:lQ

000240

ol T

Y ey e e

0S6536

BEaRa? §§§ssmmeeas&3mgmesmmzfifi

oy o oy o)

ey oy oy ]

.P11

CO3

NOP
AN ERROR

ovc sbge

a(SP
oaié
P)
SP

*SKkI”

zgY DEVICE FRULT??

:EXPECTED STATUS
;RECEIVED STRTUS

RuBe kBE ERROR' In caLL
YR
MOVE SP TO RETURN FOR ERROR
REPORT ERROR VIR USER
:MOVE SP BACK TO NO ERROR

CZRMOBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19

040000

001372

001140

112
162716
004736
162716

000004
000213
000002
000010

057?012
057020

032737
805 g;

118
11833 0S70%4

5737

11528
11529

115830
11535

11834
11835
11836
11537

05702
82

(0570S0
057062
057064

000240

iiggg

057070
057072

11541
11542

057072

11644
11545
115846

067102
057104
057110

062716
000402

11648

057116

000240

11838

]
062715

1.643

087112

DBE”120

162716

000207

BIT
8EQ

MOV

MOV
RDD

1372 001142

0000

001140

BIC

000000

MOVB
SUB
JSR
SUB
60S:

000004

11843 057076 001403
105776 000000
11847

D03

NOP

osxx RMER21

RHERE scoonr

saoonr
Rnsnéx
84, (SP)
85K

oals 3(SP)
2, (5P)
PC a(SP)+
810, (5P)

;15 THERE A SEEK INCOMPLETE ERRCR
NO!

EXPECTED STATUS

o ToSTATUS
usen S ennon CALL

INuss s ENROR CALL
TO nsrunu ron ERRO
REPOR ERROR VIR USER
'MOVE SP BACK TO NO ERROR

. AUGMENT THE RETURN noonsss IF anv ennoa WAS DETECTED
OVE SP TO USER’S ERROR CALL
(SP
ADD

000004

00000

SEQ 0236

MACY1l 30(1046) 23-NOV-77 12:38 PRGE 236
STATIC DRIVE STATUS CHECK SUBROUTINE

708 :

80§ :

75718

a(SP)
708

SUB

84, (SP)

:NO - MOVE SP TO NO ERROR RETURN

:RETURN TO USER

BEQ
ADD
BR
NOP

RTS

84, (SP)
sod

uns AN ERROR OETECTED??

INO?
YES - MOVE SP TO USER'S ERROR RETURN

CZRMOBO RMO3-/2 FCTNL TST 2
CZRMDB.P11
23-NOv-77 12:19

MACY1!l

EO3

30(1046)
23-NOV-?7
12:38
PAGE 237
COMPOSITE ERROR CHECK SUBROUTINE
.SBTTL

SEG 0237

COMPOSITE ERROR CHECK SUBROUTINE

11550
11881
11582
11663
11884
11585
11556
11587
11568

;CALL:
(1)

JSR

115860

. WORD

; THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMERL
; THE

11589

MASKS RRE

- WORD

RPPLIED.

PC,CMPERRSTS

MASK FOR ERRCR REGISTER 1

MASK FOR ERROR REGISTER 2

11861
11862
11563
11564

:
:
:
:

8R
NOP
ERPOR
JSR

11567

sNOTE:

BITS TO BE MASKED SHOULD BE ONE;

iiégg

11568
11569
i}E;?

0S7122

11522
11673

0S7122

013737

057150

047637

11574
11575
11876

{}E;E
11579
11580

067130
0S7136
057142

001344

047637
062716
013737

000000
000002
001372

000000

062716

iisaa

057166

162716

000004

057162

105076

057172

005737

001176

11888

057200

013737

001176

062716

000004

057176

001420

11689

057206

005037

11881
11692

057216
(057224

112776
162716

000066
000002

162716

000010

11590

11893

057212

001140

057230

004736

(057236
057240

00C240

11599
11600
iiggé

0S7240
0S7244

005737
001420

001200

11603

0S7246

013737

001200

1160

0£7260

062716

00000

11694

11895
11896
11597
11598

11604

057232

0S78s4

005037

001176

PC,3(SP)+

RETURN HERE If NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN

HERE

ERRORS

BITS TO BE TESTED SHOULD

00il76

:MASK AND STORE THE
CONTENTS OF RMER1
AND RMER2
MOV
RMERII, STMPI
;STORE RMER! AT TEMP STORAGE

BIC
ADD
MOV

001200

BIC
ADD

CLRB

SuUB
:SEE

a(spy, §TmMP2

157

84,

ISR

001142

S$TMP1

ADD

SUB
NOP

84, (SP)

ngpx

MOVB
SUB

:SEE

(SP)

MOV

CLR

000000

86,

(5P

THERE WERE ANY ERRORS
BEG

001142

S§:

001140

a(sP) §TMP1
82, (SP)
RMERSI, STMP2

;CLEAR USER’S ERROR CALL

000000

11886

11887

722

CMPERRSTS:

0S71S6

11585

237

:BE ZERO

11581

11682

AND

;RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
; MASKS AND REPORTS AN ERROR IF RNY BITS ARE LEFT ON RFTER

coDAt

$BDDAT

(SP)

'MASK _ RMER1
:MOVE SP TO NEXT MASK
:STORE RMER2 AT TEMP STORAGE

:MRSK RMER2

:MOVE SP TO USER’S ERROR CALL

:CLEAR ERROR NUMBER

:LEAVE SP AT NO ERROR RETURN
IN RMER],

I.E.,

STMPI

;ANY ERRORS Y0 REPORT??
INO

‘RECEIVED STATUS FOR TYPEOUY

{EXPECTED STARTUS FOR TYPEOUT
:MOVE

SP TO USER'S ERROR CALL

866, 3(SP)
a2, LSP)

;connscrn?Le DATA CHECK ERROR #
'MOVE SP Y0 RETURN FOR ERROR

810, (sP)

"MOVE SP BACK TO BRANCH

PC 3(SP)+

"REPORT ERROR VIA USER

THERE ARE ANY ERRORS TO REPORT IN RMER2 (STMP2)
15T
$TMP2
;ANY ERRORS IN RMER2?
BEG
108
INO! !
MOV

$TMP2, SBODAT

sRECEIVED STATUS FOR TYPEOUT

ADD

4, (SP)

‘MOVE

CLR

scooAt

'EXPECTED STATUS FOR TYPEQUT
SP

T USER’S ERROR CALL

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-7?7 12:19

11606

11607
11608
11608

11610
f%gié

0S726%

057272
067276
067300
057304
057306

112776

162716
004736
162716

000240

11613
11614

087306

062716

11616

057316

001403

11619

057326

000067

000002
000010

%igg?
11622

320
05?324

057332

062716
000402
162716

000207

000000

MOVB

suUB
JSR
SUB
108:

000004

11615 0S7312 1057?76 000000
11617
11618

FO3

MACY1l 30(1046)
23-NOV-?7
12:38 PAGE 238
COMPOSITE ERROR CHECK SUBROUTINE

,{sP)
PC A(SP)+
810, (5P)

unxre ERROR NUMBER IN USER'S fALL

MOVE SP TO RETURN FOR ERROR
REPORY ERROR VIR USER
:MOVE SP TO NO ERROR RETURN

:AUGMENT THE RETURN nooness IF ANY ERROR WAS DETECTED
ADD
(SP
o E SP TO USER'S ERROR CALL

TSTB

BEQ

000004
000004

NOP

os7 d(SP)

20$:

308:

ADD
BR
SuB

RTS

a<sp)

208

84, (SP)
308

84, (SP)

; RS THERE AN ERROR CALLED??

INO?
!

*YES - MOVE SP TO ERROR RETURN
MOVE SP TO NO ERROR RETURN

RETURN TO0 USER

SEQ 0238

C RMO3-2 FCTNL TST 2

23-NOV-7T7 12:19

B
~N
SEF 5L E3BUEREERLE B& RRRY

KBS

[oaloaloalealoal sl aleal alealealoale gl alls ol ge gl ea¥ o oo at ol e als oo ol s ol ¢ ods o
unnunn
ontw

Y
e

o
Y
e

ey ey
L
Y

Y e
Y
Y
ot

e
O

S
N

S
T
T
Y
O
[

e T

o Sy =y Sy

Pll

MACYLl 30(1046)

012746

7340

012746

0S7346
0S7346

000240

05735G

pS73S4
0s7360

057362

057362
0S736M4

057364

000002

012746

012746
000002

MoV

MOV

0S?346

B4S:

057362
65S8:

10S:

000207
00S737

000137

00S324

0S7426
057434

0S1S01
042524

0O44040
006504

042524
000

DS7444

SHUT:

001326

0S7414

0S2123

RTI

#PR3,- (SP)

8648, - (5P)

; ;PUT NEW PS ON STACK

; ;PUT NEW PC ON

108
0S3440
046101
005012

100S:
-EVEN

STRCK

; ;POP NEW PC AND PS

NOP

;RRISE PRIORXTY TO INHIBIT INTERRUPT

000300

007124
0S7420
000042
032766

057420

STOP AND SHUTDOWN SUBROUTINES

;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT

000140

001002
000137
104401
005737
001402
000137

057370
057372
057376
057402
0S7406
82;:{8

SEQ 0239

PAGE 239

STOP:

0S7334

7344

GO3

STOP AND SHUTDOWN SUBROUTINES
.SBTTL

057334

23-NOV-77

12:38_

PRG,-(SP)

T NEW PS ON STRCK

HOV

ISSS -(SP)

,,PUT NEW PC ON

RTS

; CONTINUE

RTI

STACK

; ;POP NEW PC RAND PS

BNE
JMP
TYPE
TST
BEQ
JMP

TST

d8CTLFG

+b
READY
1008
42
108
SeoP

BRQNHC IF YES
CONTINUE
:TYPE THE HALT MESSAGE
RUNNING STRANDALONE ??
:YES
iNO - GO TO END OF PRSS

Jmp

STAR

GO _TO START

.RSCIZ

aTEST WRS HQLTEDQ‘CR><LF><LF:

CZRMDBO RMO3-2 FCTNL TST 2
23-NOv-77 12:19
CZRMOB.P1I

1659
660

0QS7°444
0ST4S2

012737
000002

001326

.GET THE CONTROL-C FLAG

8-1,CTLFG

MOV

SHUT2:

.ex{v FROM INTERRUPT
RTI
SAVE AND RESTORE RO-RS ROUTINES

.SBTTL

: kSAVE RO-RS

; #CALL:

‘a

; #*UPON

‘Rgnvnsc

TURN FROM SSAVREG THE STACK WILL LOOK LIKE:

;#TOP=-==(+16)

;# 42---(418)
‘8

+4---RS

i +h---RY
;& +8---R3
;#+10---R2

ge72
57510

e
e
Pt

8$§$$8?8898

0s7470
0S7474
0S7500

s Pt B

\.qu
0sS7466

Pe7462

e P

057456
V]
057460

B27.24

SDOOODDDODO

;#+12---Rl
s #+14---R0

; ;PUSH RO ON STACK

RO, -(SP)

SSAVREG MOV
AVREG:

MOV

RY,-(SP)

SrACK
ON
s
TACK
8N STRCK
Rg ON
s PUSH Rp
;$iDUSK
;PUSH R~

MOV

22lspPy, -(sp)

:1SAVE PS

MOV
HQV
RTI

SS(&P),-(%P)

; :

s,-(gg)
RRe-(2)

Hov
MOV

MOV

K
;

RS -(SP)

MOV

22(5:),-(52)

MOV

; #®RESTORE

(SP),-(SP)

; s PUSH RS

ON STRCK

OF MAIN FLOW

;;SQ!E gC 8; HEEE FLOW
A\
;;gng PC OF CALL

RO-RS

J o

IBCREZRGE '

n
RGOS
8

Pt
s e

0000000000

;#CALL:

RRARRRRRERBRAR
~
n
Aol
ovwurv
FES

R
FREZOREEBE
IRR A0— 8B
(N
£
W
~N
O IRRE R
NANINNNNNNNNNN
N
T O OO

=000
N0V

177777

SEQ 0240

HH lllilllilllllllIll!ll!lllllllllilll!!!ll!ll!lllllllliillli’llli

oo
oo
e [N1VI5

=t 9t Dt B o Pt Bt e Pt B @ P Pt Bt D0 ot Bt et Pt et Pt Pt Pt Pt Pt Pt Bt Bt Dt Pt B Pt Pt Pt P Pt s et Pt (et Pt Pt P Pt Pt Pt B Bt P Pt Pt Bt B @ Pt P
[
N
P S N S P S S
S
S Sy O e Y ¥ oY Sy o Sy oy Y e e oy e
Y S e Y ey Y oY oy ey o oy

11657
11658

HO3

MACY1! 30(1046)
23-NOV-7?7
12:38 PAGE 240
STOP AND SHUTDOWN SUBROUTINES

RESREG (SP)+,22(SP)
gaESREG MoV
(22)6,55(32)
MOV
SP)

2p)
(gh):88(
(SP)+ RS

v
MOV

.SBTTL

MOV

(SP)+,22(

MOV
MOV
MOV
MOV
MOV

(gp)o,nw
(SP)+ R3
(éP)#,RE
(SP)+, R}
(SP)+ RO

RTI

: sRESTORE

PC OF CALL

;S OF gth FLou
;;RE?}ORE
i
& MAIN kLo
::iRERISRE B& INTO
RS
; ;POP STACK
::POP STACK {NTO RY
;;POP STRCK INTO R3
; s POP STACK %NTO R2
;;POP STACK INTO Rl
; ;POP STACK INTO RO

BINRRY TO ASCII AND TYPE ROUTINE

(AN EENEE RN

(RS R AR RS RR R R AN PR AR

R R AR RN R R AR R AR RS

*ETHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO R 1E-BIT
; *BINARRY-RSCII NUMBER AND TYPE IT.

;#CALL:

MOV

TrPBN

NUMBER, - (SP)

: NUMBER TO BE TvPED
:;TYPE

CZRMDBO RMO3-2_FCTNL TST 2

CZRMDB.P11

11713
11715
11716

11714

1717

11718

11713
11720
11721

11722
11783
11724
11725

11726

11727

1i7e8

23-NOV-77 12:19

010146
000261
112737

057550
057556
057560

016601

000006

057560 806101

000060

067570

001406

057552

05757¢
057576
057602
057604
057606
057610
057616

057620

057822

105837
104401
000241

000765
012601
016666
012616

000002

000

MACY1l 30(1046)

057622

00000

11751
11752
11783

;G0 DO THE NEXT BIT
; 1POP THE_STRCK INTO R1
; 1ADJUST THE STRCK

RTI

.BYTE

(SP)+, (SP)

0.0

; : DONE?

:INO--SET THE CHARACTER EQUAL TG THIS BIT
THIS BIT
;GO _TYPE
t 1CLEAR "C~ SO CAN KEEP TRACK OF BITS
; ;RETURN_TO USER

: :STORAGE FOR ASCII CHAR. AND TERMINATOR

CONVERT BINARY TO DECIMAL'AND TYPE ROUTIME

; #CALL:
MOV
i&
P

057624

057624
057626
057630
057632
057634

05763

057642
057646
057650
057652

057660
0576be
057666

010046
010146
010246
010346
010546

012746

012703

060040

112723

11766
11767

057724
057726

103003
116563

057722

087734

000055

000001

000040

18:
2s:

060030

3s:

000774

4s:

106316

05270z

5§ :
000001

000060

NUM, - (SP)

; s PUT _THE BINARY NUMBER ON THE STACK

MOV
MOV
MOV
MOV
MOV

RO, - (SP)
R1,-(5P)
R2,-(5P)
R3, - (5P)
RS, - (5P)

; ;PUSH RO ON STACK
i iPUSH R1 ON STACK
i iPUSH R2 ON STACK
;:PUSh R3 ON STACK
; {PUSH RS ON STACK

MOV
BPL
NEG
MOVB

20(SP),RS
1§
RS
#'-,1(SP)

TYPDS

MOV

020200

000020

060105
005702
001002
105716
100407

057706

$TYPDS:

016605
100004
005405
112766

057710
057712
057714
057716
057720

117e8

BR
MOV
MOV

,SBIN
18
(SP)+,R1
2(SP),4(SP)

SBIN

177777

es:

CLR
MOVE
MOV

1160 TO THE ROUTINE

820200, - (SP)

}iSET BLAMK SHITCH AND SIGN

RO
$SDBLK,R3
8’ ,(R3)+

CONSTANTS INDEX
; 1 ZERO THE
;iSETUP THE OUTPUT POINTER
FIRST CHARACTER TO A BLANK
;1SET THE

INPUT NUMBER
i3 GET
;18R IF INPUT 1S POS.
: MAKE THE BINARY NUMBER POS.
NUMBER NEG.
CII
;i MAKE T

; 1CLEAR THE BCD NUMBER
;;GET THE CONSTANT
i iFORM_THIS BCO DIGIT
:iBR_IF DOME
;i INCRERSE THE BCD DIGIT BY 1

CLR
HOV
SUB
BLT
INC

R2
$OTBL(RO),R1
Ri,RS
4§
R2

ADD
TSY
BNE
7ST8
BMI

R1,RS
R2
13
(SP)
78

; ;RDD BACK THE CONSTANT
; iCHECK_IF BCO DIGIT=0
S iFALL THROUGH IF O
;iSTILL DOING LERDING 0°S?
;iBR IF YES

BCC
MGVB

13
1(SP),-1(R3)

: 1BR_IF_NO
{1 YES--SET THE SIGN

ASLB

BIS

(SP)

#'0,R2

SEQ 0241

i:GET =C* S0 CAN KEEP TRACK OF THE NUMBER OF BITS
;1SET CHARACTER TO AN ASCII ~0".

; 1GET_THIS BIT

: *REPLACED WITH SPACES.

11760
11761
11762
11763
11764

11765

8'0,SBIN

:;GET THE INPUT NUMBER

' 4THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO R S-DIGIT
'#SIGNED DECIMAL (RSCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
! sNUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
' sBEFORE _THE FIRST DIGIT OF THE NUMBER. LERDING ZEROS WILL ALWAYS BE

00S0G2
016001
160105
002402
005202

11769

; ;SAVE_R1 ON THE STACK

6(4P) RI

HH J 000000000 0 000 30 00 06 0 00 36 30 00 36 36 3% 06 3 263 0 38 38 36 06 30 0636 3 36 3 06 06 36 36 3% 36 3 3 9 3 3 3 38 3 36 36 96 3 4 36 3 3 9 0 2 %

057672
057674
057700
057702
057704

11784
11785
11786
11787
11788

R1,=(SP)

MOV

.SBTTL

11738

11747
11748
11749
11750

28"

SBIN:

000

11731
11732
11733
11734
11735
11736
11737

11746

PAGE 24l

ROL

ADCB
TYPE
CLC

11741
11742
11743
11744
11745

STYPBN: MOV
MOV
SEC
MOVE
1S:
BEQ

11730

11740

12:38

BINARY TO RSCII AND TYPE ROUTINE

087622
000002

23-NOV-77

I03

: i MSD?

i {MAKE THE BCO DIGIT ASCII

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB. P11
23-NOV-77 12:19

11769

11770
057744
11771 057746

057740

GS2702

11773

067784

002746

117772

0S7764

JO3

MACY1l 30(1046)
23-NOV-77
12:38
PRGE 242
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

000040

78:

11772 057750 020027 000010

11774
11775
11776

05776
057260
057762

003002
010502
00076M

11779
11780

057766
0677270
057776

100003
116663
105013

11783

060004

11785

060010

11778

11781
11782

11784

11786
11787
11788

11789

11790
11791
11792
11793
11794

{{;gg

060000
060002

8s:
177776

012605
012603

CT Y

060012
060016

DIPUT Tuxg 'HQRQCTER IN THE OUTPUT BUFFER
;1 JUST IN REMENTIN

BLTY

28’

::G0

TSTB

(SP)+

BGT
MOV
BR

8PL
MOVB
CLRB
MOV
MOV

MOV

012600

MOV

104401
016666

060024

012616

060030
060032
060034
060036
060040

023420
001750
000144
000012
00000

060040
000002

000004

000002

SDBLK:

.SBTTL

11797

RO, %10

iCHECK THE TRBLE INDEX

160
YO EXIT
P1GET THE
L
;GO cuaucs

ET3
21(SP),-2(R3)
(R3)

P iVES--SET THE sch FOR TYPING
::SET THE TERMINATOR

(SP)+,RS
(5P)+.R3

(5P)+.R2

TYPE
MOV

$0BLK
2(SP),4(SP)
(SP)+. (SP)

i ;POP STACK INTO RS
:POP STRCK INTO R3
; ;POP STACK_INTO RO

'NOW TYPE THE NUMBER
PADJUST THE STARCK
: sRETURN TO USER

10000.
1000.
.BLK

IF NO

!'POP STACK INTO RI

(SP)+'RO

elnnnv ro OCTAL

CII

,,uns THE LSD rus FIRST NON-ZERG?”

::POP STACK INTO R2

(3P)+'RI

RYI

DO THE NEXT DIGIT

8s
RS, R2
X

MOV
MOV
$OTBL:

. sMAKE IT A SPRCE IF NOT ALREADY
A DIGIT

RS B+
IR3)+

012602

060006 019601

s’

MOVB
187
CMP

105726

177777

BIS

SEG 0242

(RSCII) AND TYPE

Illlllll{llllllillllillllllI!Ilflllilllllll!!illllllllillllll!lli

11798
11799
ii%%?

iraxs ROUTINE IS USED TO cunnce 16-BIT BINARY NUMBER TO
R 6-DIGIT
"%OCTAL (ASCII) NUMBER AND TYPE IT
.grttos—--enren HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

11802

11803
11804
11805
11806

'y
Da
*
‘a

i{ggg

MOV

TYPOS
.BYTE
.BYTE

NUM, - (SP)

: s NUMBER TO BE TYPED

,,CRLL FOR TYPEOUT
:iN=] TO b FOR NUMBER OF DIGITS TO TYPE
;;M=1 OR O
,,1 TYPE LERDING ZEROS

N
M

e
:X

11809

:D=SUPPRESS LERDING ZEROS

' #§TYPON---~ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST

11810
11811

:#§TYPOS OR STYPOC
lCRLL

11812

iiSiE

.g;{poc---enren HERE

11817

‘e

MOV

NUM, - (SP)

$TYPOS:

MOV
MOVB

3(SP), -(SP)
1(SP) SOFILL

ADD
BR

82, (SP)
$TYPON

{{8{3

,.
; »*

iig{g

' a

11820
11821

0600S0
060054

017646
116£37

000000
000001

11823
11824

060066
O0&3072

062716
000406

0006002

11822

060062

112637

060275

060273

MOV

TYPON

TYPOC

MOVE

NUM, - (SP)
FOR

,.NUHBER 70 BE TYPED
:CALL FOR TYPEOUT

TYPEOUT OF A

(SP s+ SOMODE
+1

16 BIT NUMBER

: sNUMBER TO BE TYPED

!ICALL FOR

TYPEOUT

:PICKUP THE MODE
LOAD ZERO FILL SWITCH

,,NUHBER OF DIGITS TO TYPE
' 'ADJUST RETURN ADDRESS

CZRMDBO RMO3/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19
11825

11
11
11

11
11

1xgg£
11
11833

11935

11639
1i8
11838
11839

1
11
1
1

1
1
1

06014

1
1
184
0601

83888?

qg:

060275

10489
10546

ossz

137
1

105
o
00610S
006105
006105
010503
oosxo;
105337
100016
042703

060210

005704
001403

11852
11853

060214
060220

052703
052703

11855

060230

104401

11858
11859

060242
060244

11861
11325
11
11864
11865
11866
11867
11868
11869
11870
11871
{{g;g

060750
060252
060264
060266
060264
060266
060270
060271
060272
060273
060274

11854

11856
11857

11800

11874

060204

060212

060224

060234
063246

000001

112737
18737
1

11840
11841
11842
11843
11844
11845
11846
11847
11848
11849
11850

11851

060160
060162
060164
060166
0501;2
0601
0601

112737

001002

005204

MACYI1
060273

066275
060272

KO3

3001046)
23-NOV-?7
12:38
PAGE 243
BINRRY TO OCTAL (RSCII) AND TYPE
STYPOC:

STYPON:

060273
182s:

3s:

060274

177770

ys:

000060
40

060270

105337
003347

060272

060270

002402
005204

012605
012604
012603
016666
012616
000002
000
000
000
0000060

6$:
000002

000004

8s:
$OCNT:
SOFILL:
SOMODE:

.SBTTL

THE Z2ERO FILL

SWITCH

: 'SAVE
::5avE

NEG
RDD

RY
86, RY

: s SUBTRACT IT FOR MAX.

$OMODE+1, RY

MOVB

Ry $OMODE

MOV
CLR
ROL
BR

12(SP1 RS
R3
RS
3%

SOFILL,RY

:1GET THE NUMBER OF DIGITS TO TYPE

ISAVE IT FOR USE

DIPICKUP THE INPUT NUMBER
: 'CLERR THE OUTPUT WORD
: 'ROTATE MSB INTO ~C*
2160 D
8

. sGEY L§a OF THIS DIGIT
;i TYPe
THIS DIGIT?
S8R IF NO
::GET RID OF JUNK
:1TEST FOR O
! 'SUPPRESS THIS 07
SiBR IF YES

BIS
B1S

#'0,R3
8’
R3

1 MAK
1iMAKE

::GO0 TYPE THIS DIGIT

RY4

MOVB

R3, 8%

DECB
8GTY

$§0CNT
2s

TYPE

B8R

68
RY

MOV
(SP)+,RS
MOV
(5P)+ RY
MOV
(SP)+ ' R3
MOV
2(SP) 4(SP)
MOV
(SP)+. (SP)
RTI
_BYTE
O
BYTE
O
.BYTE
O
.BYTE
O
.WORD
O
TYPE ROUTINE

ALLOWED

P'GET THE 2ERC FILL SWITCH

RS,R3
R3
$OMODE
7s
$177770,R3
y$
RY
S

INC

RS
RS

R4
RS

ROL
ROL
ROL
MOV
ROL
DECB
BPL
B1C
BNE
TST
BEQ

BLT
INC

000794

::SET

::SET FOR s¥x<s) DIGITS
:'SET THE ITERATION COUNT
: 'SAVE R3

R4’ -(5P)
RS’ -(SP)

MOVB

0000!2

#1,80FILL

86, SOMODE+ 1
85, SOCNT
R3.-(SP)

MOV
MOV

MOVE

749

110337

MOVB

MOVB
MOVB
MOV

SEG 0243

:'FORM THIS DIGIT

:'DON’T SUPPRESS ANYMORE 0'S

:'SAVE

THI? DIGIT
RSCII
RSCII IF NOT ALRERDY

FOR TYPING

; SCOUNT BY |
:IBR IF MORE TO DO

;;?R IF DONE
P INSURE LAST DIGIT

ISN'T A BLANK

THESLRST DIGIT

: 'RESTORE
: 'RESTORE RY
;;gg?TORE R3
s
THE STACK FOR RETURNING
s : ETURN
: 'STORAGE FOR ASCII DIGIT
::TERMINATOR FOR TYPE ROUTINE
:'0CTAL DIGIT COUNTER
P1ZERO FILL SWITCH
: 'NUMBER OF DIGITS TO TYPE

HH (2 X 22 XXX XX XXXX2XZ2X222Z2X22:X2X222X22XX22XX22XY2X22TXTXTXTTLLR
L

11875

:#ROUTINE TO TYPE RSCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

11877

S #NOTE L :

SNJLL CONTRINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

iiggg

t#NOTE3:

SFILLC CONTRINS THE CHARACTER TO FILL AFTER.

11876
11878

'#THE ROUTINE WILL INSERT A NUMBER OF NUL# CHARACTERS AFTER A LINE FEED.

:#NOTE2:
;i

$FILLS CONTRINS

THE NUMBER OF FILLER CHARARCTERS REQUIRED.

elg]

80 RM03-2 FCTNL TST 2

23-NOV-77 12:19

[
O
S ok Y O
O N e
O T P Y Sy
O
T T
] Y Pyt Uy Ny Wy Uy iy Wy Wy Wiy WPy Wiy Wiy Wy Uiy Gy Wy Uy Wy Wy Wy Sy Sy Wty WP iy Sy Gy iy
Pt Pt Gt Pt Dt Gt Pt ot Pt Pt Pt Pt Pt P Pt Pt Pt Pt Pt s (s Pt Pt Pt Pt Pt Pt Pt Pt ot Pt Pt s Pt Pt (e Pt Pt Pt Prns P Pt Pt o Pt Pt Pt Pa s P P P Pt Pt Pras P

ZRMOB. P11

MACY11 39 52“8

ouTiIn

882

LO3

PRGE 244

tal) usxnc TRAP INSTRUCTION

gga

"oa

TYPE

La
‘a

TYPE
MESADR

STYPE:

TE’IB

88s
886

889

8383

i0578§

833

06031

10046

ggé 060304

835 &3354
15
8%
897
060326
898
ggggg
839
900
R0l
902
ok}
905

060342
06

001173

1:3’75’3:
10117: %388? ool1242
000100
&og;
1
060346

132737

737

063222

737
1003
100S

90N 060360
11204
060362

000040

ggggm

062716

000002

911

060402

001430

207 o0xe oi3u58
0w_‘osowcml

63%62

916 060416 001217

18:

001243

gau.'

MOV

E%B
BNE

BITB
gso
v

001243

SEQ O24v

, MESADR

: ;MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

gpn.c

;i52 T?engsn TERMINAL?

RO, - (SP)

2s:

MOVB

PC.SATY3
O
$APTCSUP, SENVM
60%
ys

(RO)+,-(SP)

§§
SSED
;i YE
I
ouT
SIBR IF IT ISN'T THE TERMINATOR

29?

82, (SP)

;;gg;gg; RETURN PC

BEQ

4s:

MOV

CMPB

(2P)e.RO

8HT, (SP)

ggm_r,(sp)

gnpa

85”9

ggmacm

osougqo

1osggg

060554

919

060426

004737

060510

;Esnvs RO

iSé?‘E&o"st ::
RGSM
N OF
AoGeo RING
62%
cfi"&écx
roa
np$
CONSOLE
mPTsPOOL.sEnvn
ags
32
c cx oness
consouFOR RPT
,bl1S

000200

gig

::Lugkvsuene IF NO TERMINAL

JSR
.WORD
BITB
BNE
BNE

618:
62S:

608:

910 060376 122:7]15 000011

gxg

12:38

: #CALL

881

ia
-NOV-77

SCRLF

;;PughCHARACTER TO BE TYPED ONTO STACK

iR TORE R On LOF 1T OFF THE STACK
:IBRANCH IF <HT>

: ;BRANCH IF NOT <CRLF>

& mmc%mrsgr(égum

929201 wosmg 63?5%3 601172

JSR

060440

01374

001170

gnNEe

PC, STYPEC

6§

MOV

gtu.c (SP)+
SNULL, -(SP)

“§§ 'x“r) ch)r&éonwr&%snCHARS. ?

924

060M44

105366

000001

DECB

1(SP)

::DOES A NULL NEED TO BE TYPED?

3% 060456
oa4s 909737
060SIO
105337 060554

927

ggg

000770

gg?

060464

934

060474

935

93t

Bscfmncm
sTvpEC

THIS

CHARACTER

PIGETY 'r'ueor N&tx.gfiggmns "NEEDED

3L
3592%‘2&5“’ THE NULL OFF OF STACK
::D0 NOT COUNT RS A COUNT
: 1LOOP

:HORIZONTAL TRB PROCESSOR

932

933

%r
DECB

EEco TYPE

060470
0e0s02
060E04

112716

000040

132737

000007

004737
001372

005726

060510

8s:

060SSY

qg:

MOVB

(SP)

JSR

Pc,$T1YPEC

BNE

qg’

BI18
TS

87 SCHARCNT
(SP)+

,,nspmcs TAB WITH SPACE

:TYPER SPACE

,,anmcu IF NOT AT

;TRB STOP

! 'POP SPRCE OFF STACK

CZRMDBO RMO3/2 FCTNL TST 2

CZRMOB.P11

060506

000724

938

060510

1057?77

4]
42
943
44
a5
N6
47

0OL0S2M aarsa
gosaa
0534

O 254
OIS
060552

33
xosaa7

ggg

060556

oooeo?

a3 BeRetd6 198253

060S5Y

000002

060554
000G12

000002

Aobe
ove

BTLESC J$TPB

SCHARCNT: .WORD

STYPEX: RTS
.SBTTL

PAGE 245

SEQ 0245

; ;GET NEXT CHARACTER

3$TPS

:;WAIT UNTIL PRINTER IS READY

sCR,2!lSP)
18
SCHARCNT
STYPEX
o%r (SP)
sTYPEX
(PC)+

53 CHARACTERR CARRIAGE RETURN?
CH é"' NO
,,vss--cu. AR CHARACTER COUNT
ixn
iBgmmmcnn R LINE FEED”?
YES
,,coum THE CHARACTER

;LOAD CHAR TO ee TYPED INTO DATR REG.

; :CHARACTER COUNT STORAGE

SCOPE HANOLER ROUTINE

IIlg!l!l#ll!lgl&?;gtgl:::lllllIlllillllllll#llig;I;!::II;E;E;E;T

K RRANRR fi

lmé ggg ‘&TEST mER(S»g?PNH)
INTO ?8
8 gPLQY REG. (DISPLAY<«7:0/)
DISPLAY(1S5:08>
INTO

| CRD THE ERROR FLAG (SERFLG)
NO

.sux

: #5140

! 220
#5140

®
060560
0bN060

104410

(032777

Ot 2 004737 057334
b

040000

$SCOPE:

12036J

1S:

Sye

'"fi
SWITCH 0P71883 PRO¥
L

BIT

NMIBIT

D BY THIS ROUTINE RRE:

ITER ATIONS

00P ON ERROR

LOOP ON TEST IN SWR«7:0
SCOPE
K

Ssgm
BIT

; i SCOPE=IOT

PC,STOF

IB!TIH dSWR

; s TEST

FOR CHANGE

IN SOFT-SWR

; ;LOOP
ON PRESENT TEST?

gg & gl

060574 :]o;;?;
T asrg:f oF caaeFOR THE XOR ?t?ég&%”fl
ON THE “XORTM TESTER CHANGF
;
T
TQ
_A_"NOP~ (NOP=24f)
0606 gig;-aog ogogY o
nov
'iRR\o'ESA
(SP) :é‘:fi
He R}Sfléo?s 8 THE CERRORCVES TOR
o

=12
—

L 3

&Lb%

812637 000004
005737

022626

177060

000004

MoV

’g\éu SERRVEC |

MOV

( P)+, 38ERRVEC

TST

cs:

CHP

ogo

)+, (SP)+

8&
THE E on VECTOR

¥ '?

:.R%ggmg:és%x
“F,,ER
A _TIME OUT
SENT TEST

co 08,
FOR3SWR
THE XOR ¥?E
Ressss#ec TEST?
000400 120312 6S:; 888SEND
?r OF 52
305
nT

}88su?gsgm
; ‘g’rio2i§
axg

&eey 001116

MOV

-(502, STSTAM

06107¢

RDC

s$SWOBTBL, (SP) ; ;FORM THE ADDRESS OF TEST POINTER

16
316

gégfl g?‘“ ‘:P’
[

—

o446

060670

1637

—

&&é% fib:is 120302

CLR

D606

Jolol2

\D\D\.Ds?s\D\D\D\D Vo 4] 4

‘

CMPB
BNE
CLRB
gn
MPB
BEQ
INCB

1S:

MO3

TSTB

120442

000015

12:38

TYPE ROUTINE
STYPEC:

£3 8

@23-NOV-7?7

948

120450

30(1046)

oJwe—
HWH NN

Ll
Y e e el e ey ey el Y e e e el e e e e A e e e e e e el o ol ] oY S SOy YNy DY WPy WOy Sy Ny Sy Sy Sy Wiy Wy Gy SRy GO Gy Sy SOy G
D Dn s B8 (e Pt s st Pt P P Bt Pt Pt Pt s e Bt P s ot B s (et Bt ot et Bt Bt B Pt Dt B Pt Pt Pt Pt Pt P Pt P Pt Pt P Pt Pt et Pt it Pt e Pt
sP P
0
20
SNNN
wh—-OWw
V19 477,
OO\
L

937

23-NOV-77 12:19

MACY1l

DEC
ASL

(3P)
(SP)

n“?sOUT OF RANGE
¥ime
::RANCH "f
NUMBER

%gm
1

ORaLE THE rssr NUMBER RS AN INDEX

123737

001131

oo1117

ggnnnx,ssarLc

001000

120222

381709, ISR

13737

oollaM

oollee

10037
005037

001117
001206

18:

SERFLG
STIMES
18
$BIT11,3SKR
18
§PARSS
18
ICNT
TIMES, SICNT
OVER
81, SICNT

$SVLARD:

sTs

4s:

3%:

NUTVNU NN N e s s 4t s bt e e YO U L DTV
n LWO—ONCNIWNR—O+
4+ 4+ 4+ 444
4+ + *4+ 444+ 444+ + 0LV
n o [AVIRVIQN I A VIA VAR oW g VIgR TN 1y Y]

pav
g
p
J

A A=

[
Y
TR DD S
Y
PR P
YUV S YD P D
Y
PV P
PP

St Dot Bmn

e Pt Bt Pmn

s Pme

3888800000DQDDO
N——
O NN L
Ry
mg?mgwwm: o0
L£VL
§h
L
mosogmg
023330

;;nnx.rszgons FOR THIS TEST OCCURRED?

ON ERROR?

:1LOOP

;;BR_IF NO

:!SET LOOP RDORESS TO LAST SCOPE

; ; ZERO THE ERROR FL AG

; ;CLEAR THE NUNBER OFTéggRRTIONS TO MAKE

:;ESCAPE TO THE NEXT
;s INKIBIT éTERRTXOflS’
;:BR

;3 IF FIRSTY PflS? OF PROGRAM
ITERATIONS
INHI?¥
i
ITERATION COUNT
;;éNCRE NT

5 ; CHECK
;;BR IF

ER OF ITERATIONS MRDE
T%RQTION REQUIRED

CAPE FROM ERROR ADDRESS

?¥2§fi§¥WJ%€“‘“
1 BEH
sfi APT MAILBOX
;;SET ¥Eg%NNUEESPR éggse
: 1SAVE
SS
LOOP
ERR
; ;€. vE

(1) ERROR ON NEXT TEST
NUMBER
!
t 'DISPLAY TEST
FUDGE RETURN RODRESS
FIXES PS
MAX. NUMBER OF ITERARTIONS

SOVER:
SMXCNT
$SWOBTHL:

001226

gnfi NT,STIMES

At A A

001120
001206

; ;HAS AN ERROR OCCURRED?
s;BR IF NO

001120

DN VIOV
UVNINWV

120179

SLPERR, SLPAOR
SOVER

A A

[EPTRIEY o | Y S

B0
Ro—o ERee 20

888888888§

001120
001206

~N
n

o A A 2 A o N A A S Ag
BF ERER ERBRENEr
TRoR 2RB 2 FERFRR 8¥roRas
2
8
L

F
Iothst e
K

i
e
T S
S S
N
N S

nrun oy
Q00
£L£L
o~ NLEWN—-=OW

004000

78:

001230

O
o

ey S
e
Y oy S
P

SO NI LEWN—O

00041
0327

C00446

ey oy Y oy

832933
801909

(SP)+
RFLG

1421

8s:
es:

VLUIY

Y oy Y

)

el i 8338333333=3 Sionass R

001117

; ;SET LOP RDDRESS TO OESIREC TEST
;GO _LOOP ON THE TEST
;;CLERN THE BAD TEST NUMBER OFF OF THE STRCK

B 1

2(SP)+, SLPROR
SOVER

013637
000466
00S?
0s73

oollee

SEQ O24e

PRAGE 246

MOV
BR

NO3

12:38
23-NOv-77
SCOPE HANDLER ROUTINE

30(10
0l 46)

MRCY1l

Y oy

CZRMDBO RMO3/2 FCTML TST e
23-NOV-77 12 : 19
CZRMOB.P11

s ;s STARTING

SS OF TEST 1

iSTART
; ; START ng
: :STARY

RE 55 OF TEST 7
SS OF TEST 10
g5 OF TEST 11

P IETARTING gggprss OfF TEST 2
& B
e ne
Ai
ST
OF TEST S
3883%53
fi%
::START
:ISTART 22
38 OF TEST 6
; s STARTY n&
:ISTART

¢ 58 OF TEST 12
38 OF TEST 13

;s STARY
::STRRT
t {1 START
;;grnnr
t{ETARTE

35S OF
28%
5§ OF
55 OF
-t
gggwfsg OF
» -& OF

TEST
TEST
TEST
TEST
TEST

14
1S
1B
17
20

: :STARY 23
:ISTART
! {STARTING
' !STARTING
' tSTARTING

288“‘5
RESS
ADDRESS
ADDRESS
RDORESS

OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST

&2
23
24
25
26

' ISTARTING noo~th OfF TEST 2l

Pt Pmce
P
Pt P
P
P

152

025102

1
160
162
164
166

026522
027330
030052
030574
031752

12:38
23-NOV-?7
MACYI]l 30(1046)
SCOPE HANDLER ROUTINE

154 osgsao

WO
)

15131+
186732+
15733+
1873442
T T2§+s

.SBTTL

ERR

SEQ 0247

PAGE 247

; ; STRRTING

13730+

.
.uogg

“T"éé ROUTINE

;;grnnr gg

RESS OF

s START
OF
. i START
g Of
P
ISTART
Of
: 1 START
S OF
: :STARTING RDDRESS OF

OUTINE

gg Of TEST 30
TEST
TEST
TEST
TEST
TEST

31
32
33
34
35

WI # INCREMENT THE ERROR FLAG AND THE ERROR COUNT,

::#AND
#SR GOngYO £§on
ERRT

;#THE SWITCH OPTI

ERROR

:#SW10=1
: #5W0%=1

BELL ON
LOOP ON

ERROR

; #CALL

Py
i

172

170

104410

SERROR

001

001117

206
14

(32777
001402

002000

22
226

011

001126
001132

246

032

523

0333 v

83317

266

652737

000001

001242

061310

176

105237

200 013;;§ 001116 117750
16

ggs

254

Fra]
276
304

gxo
11

312

JO4401

1
117

000002
{17666

0CI00M
1

1007
113737
004737
000
000

000777

005777
100002
000000
104410
032777
001402
013716

346

001402

314
322
322
329
326
3TM
33

342
328

005737
013716

0200""

18:

001132
00)13)

117700

121

001}24

ERROR

CKSWR

228 :

3S:

001210

;s ERROR=EMT AND N=ERRCR ITEM NUMBER

;s TEST FOR CHANGE IN SOFT-SWR

;emc
¥

::DON'T LET THE FLAG GO TO ZERQ

BIT
BEQ

8BIT10. ISWR
13

PIBELL ON E
PINO SKIP

RYTL
(39) SERRPC

2 COUNT THE NUMBER OF ERRORS
:1GET RDDRESS OF ERROR INSTRUCTION

8EQ

MOV

thE#L

Su8
MOVB

" gémpc
‘3§ PC,SITEMB
881713, aSWR

INC
MOV

JSR

TYPE

::GET THE ERROR FLAG

sTSTMM, JDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG

TYPE

cMPB

os:

ERROR TYPEOUTS

INCB

BNE

218:

117620

INHIBIT

BIT

208

117634

001000

7s:

117740

001212

PSovxnco BY THIS ROUTINE ARE:

HaLY

:
170

AND THE ADDRESS OF THE ERROR CALL

: #SW15=1

D uSW13=1

[

—

00808
LWwhyr-

TST27+

BO4

;-Il§llllIlllIlllllllllllll&ll!llllllllll!lillllil!ilillillll!lil

RREREERERERRRRRERRRERE
P RRRERRRRERER

Bt Pt
e ot S

it Dt Bt Pt Pt Pt ot ot Pt | st Bt ot Pt P

Pt Pt Pt Pt Pt

n,roronN

s 1t Bt Bt Bt Pt Bt $m Pt (et Pt Bt (s Bt Pt Bt

.WORD

.uosg

Pt Pt Pt Pt Pt Pt e

s Pt s Pon Bt Bt P

Pt Pes

e P

CEEREEEREREE LR 8 Ea
o 33888
FORRES ? LR

PREERER -3

372 FCTNL TST 2
23-NOV-77 12:19

sos

¢ SRRTYP

,SCRLF

SAPTENV, SENV

DIRING

BELL

;;g;nrp AND SAVE THE ERROR ITEM CODE
D:8KIP TYPEOUT IF SET

DiSKIP Tvggours

G0 TO USER ERROR ROUTINE

: sRUNNING IN APT MODE

BNE
MOVB
JSR

2$
SITEMB,21S
PC,SATYY

11NO,SKIP APT ERROR REPQRT
:'SEY ITEM NUMBER AS ERROR NUMBER
'REPORT FRTAL ERROR TO APT

B8R

22%

: ;APT_ERROR LOOP

"BYTE
BYTE

TST
BPL
WAL T
CKSWR
BIT
BEQ
MOV

O
O

JSWR
3%

881709, ISUR
4$
SLPERR, (SP)

P HALT ON ERROR
::SKIP IF CONTINUE
*'HALT ON ERROR!
;;rgsr FOR CHANGE IN SOFT-SWR
:1LOOP ON ERROR SWITCH SET?
J'BRIF NO
:'FUDGE RETURN FOR LOOPING

PIBR IF NONE

TST

$ESCAPE

MOV

SESCAPE, (SP)

BEG

'CHECK FOR AN ESCAPE ADDRESS
' 'FLOGE RETURN RDDRESS FOR ESCAPE

23-NOV-7§ 15:19

CZRMDBO RMO3-/2 FCTINL TST

CZRMDB.PL!
12105
121

121
i !
1

06
?

12110
12111
12112

12113
iSii;

061354

0N61362

figx

022737

001001

033156

3-NOV-77
ROUTINé
ER&OR HRANDLER

MACY1l 30(1046)
000042

000002

cO4

BNE

HALT

; IR0 0000000000 060 000

ggiagg

000000
061377
061400

STKQEND=.
.EVEN

12120

;#TK

U000 00 0000 0000 00 0 000 00000

OO0

0 0 2

NPRp°FN¥TE"S IN QUEUE

%IN ERGUEU
HUT YBOARD
,,3U
TY

8&4 R 8
STK05N| .aLno :

uoig?'-i mgggg
lglibp
12117 061376 000001
12118
12119

; ; RETURN

TTY INPUT ROUTINE

"4NABL LSB
STKCN; ':850

:;ACT-11 AUTO-RCCEPT?

: ;BRANCH IF NO
;1 YES

RYI

]

.SBTTL

SEQ

PRGE 248

#SENDRD, 3842

cHP

000000

12:38

INITIALIZE ROUTINE

12121

"#THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
'#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

12126

12122
%giga
12128

,lCflLL

15158
12129

061400

005937

061370

061376

061372

12135

061440

012777

000100

117512

12130

061404

012737

061446

000207

RTS

0100 asrxs

RERDING

1627

000007

18:

061476

821
1

00S7

]

e?c
CHP

JSR
1r

*g7

05 7444

001154
0017 000176
iaisu 05{510
“17
Beig
Riels
gl
12153
12160

ENRBLE TTY xevaonao INTERRUPT

,,RE URN TO CALLER

WILL SERVICE THE TTY KEYBORRD INTERRUPT
THE CHARACTER MROM THE INPUT BUFFER AND PUTTING

- &

$§TKSRV: MOVB

12158

vac§ ROUTINE

1
635288
003
4
82?380

121

osrxosnr srxoxn ;novs THE STARTING ADDRESS OF THE

TERS:
slkeoul ::?‘;j?? gtN0
SIKQN
gsT I b0 VECTor O
300 ao?KVEC¢5

172
14
12146
é3271
821923
15149
021
061460
12147
zfiéu7
§§i:§§
iéi:a
14
121

15133

CLEAR COUNT OF ITEMS IN QUEUE

$TKC

AND (SHUT2.,
CALLED
($C) STKINTRE&?ART
A “CONTROL-CTM
N THE OUE RT ig nnog
'{;
ADORESS
?hs ~coNYROL-C*
.upon

iaifi‘
i§{:§

12181

PC,STKINT

nov
MOV
TST

tainl
!#BY

12139
12140

MOV

MOV
S8 Th

12138

RETURN

$TKINT: CLR

81328 D8ddeo
913797
18130 Bliss
062
7
8157
061426
15133
12134 061434 0057?77 117522

igigg

JSR

061522

061522
DEIE30

022737
001004

000001

01370

2s:

NP
CHP

- (SP)
(gp)
lfClg?
(SP), 83
1gcer
APC STKINT

3$TKB,

(SP)+

SHUT2

:CLEAN UP STARC

.,CONTROL CR STQRT

(SP) . #7

.,ISIT n CoNTROL G?

81, STKCNT
33

;‘52 THE ?gsue FuLL®
NG
' BRANCH

asunsc
?:E
’ SWR
s
=
S
cHP
BNE

THE cnnancrsn
43PIEK17EPT
iis
A EONTROL C7
.,IS
L (1C)
?R HéONNSO
KE YRONRRD
,,Ihx
;i

ugo ELECTED”?
[
7 rLt
i

024
O2ue

CZRMDBO PM03/2 FCTNL TST 2
CZRMOB.P11
23-NOV-7? 12:19

12161

osx&

12i62 061
12163

061

15154
12168
{a}gg

gx
1
os{

12171

061

12173
12179
1217S
12176
12177
12178
12179

061
061
061610
051515
06161
061622
osxsg;

04401

001212

000023
117404

2716

177600

1
12

000100

605735
1

MACYI]l 30(1046)
23-NOV-??7
TTY INPUT ROUTINE

TYPE

3s:

igles
18773 1172372
wioans
12170 RIS
%1§ 6-»%
lel7e 061579

12180
12181

0616
061632

2627 000021
37

1627
1627
042716

12184

12185
12186
}gigg

061646
061654
061656
061664

117350

061370

32%:

000140
000175
oooo«oo

12182 061636
112677
177530
061642
37
061372

12183

us:

023727

061372

061377

012737

0261376

061372

1003

4s:
5$:

15T

12:38

DO4

$BELL

5§

Jfe
MOVB
BIC
cHP
BNE

g0 -(SP
33»\9
81C177, (5P
(SP)+, 521
31s

MOV
RT]
INC
cHP
BLY
cHe
BGT
BIC

MOV8
INC
cHP

BNE
MOV
RTI

SEGC 0249

: ;RING THE TT

tsp)+

cHP
8
%T

PAGE 249

(SP), 823
3
? Pv§§

8100, I$TKS

STKCNT

(SP), #140
(SP), 8175

T
840

: 'CLEAN CHARACTER OFF OF STACK
DIEXIT

;IS
IT A CONTROL-S?
; :
BRANCH IF NO
;;tc)xsaet.m eu‘uvofivg%go INTERRUPTS

==“§;
g
::cs m;é

? en nscn

T CONTROL-Q?

é" NO
EmeL TTY KEYBORRD INTERRUPTS
;;RSI'L‘RN
::C
THIS cmancrsn
S IS 1T UPPE CRSE?
P
BRANCH IF
Y
:'1s
IT A ?PECIRL CHAR?
:
IBRANCH I
SIMAKE 1T w R CASE

STKQIN

(srm;mxoxn

;;%Pur
N QUEUE
:
YE THE POINTER

%mg

srxom #STKQEND ,,co OFF mc ENJ"
’ rxosm,sn(om ¥

me POINTER

12189

H ll!Gllllllllllllllilllillllll!Illllll!llllll!ilIl!fllllllliIl§ll{

12192
12193

nnp
AND WILL
#SERVICE
THE
TEST
FOR
CHANGE
IN
ormme
sfmcu
REGISTER TRAP
#CALL WHEN opsammg
m TTY xmsnagp

12190
12191

! §50F TWARE ?é gu REGISTER C
: sROUTINE
NYERED FROM THE

12194 061666 022737 000176 001154 scsti: crP

igi%
1512
1518
132&)
12201
15585

ggisg ?01'}'72'; 117286
Risas 18I
Riol0
147838
&171% paoore
l&é? 600889
061720

?Nr:a
N
nove
cng

0051300

BNE

12206

061722

12210
12211

061732
061734

}ggia
12215

12216

F7-SWR SELECTED

TN
mn"omnmcv
1117 Rot'¥E
1T CON%OLASCII
=e iT
2
9
P

G NOT PUT IT IN THE TTY QUEUE
;i AND Ext

:#ROUTINE OR FROM THE SOF TWARE,.2”%7‘:“ REGIST?R TRARP CAL

12207
15508
12212

(SP

Y Iz Iy Y XYY YYYTYXZIYITYSSTITIIIZ IR IS SR L 4
H Y Y S Y I
*4CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY xmsnnum SERVICE

lssg
1

12209

9$7KS
g,
a%1%8,-(3F)
( S) , 87

061730

123727

001674

001150

005726
004737

061400

061740

005077

[12737

000001

0e1752

104401

062S7&

Oel744

DOel786

10440!

17214

062603

000001

! *CONTROLHg 8 BEINGSAUTOSB,
TYPED, h1 ANDT
&S:
aso

TYPE

,SCNTLG

157
JSR

OC11Sl

MOVB
$GTSWR: TYPE

(SP)+
PC, STKINT

smmc

" §MSWR

A RESULT OF R
OF
TWARE
S
TCH
Rscxsrek
esmc
SELECTED.
ARE WE RUNN
MODE?

,,eamcu IF YE

: 'CLERR CONTROL-G OFF STACK
P IFLUSH THE TTY INPUT GUEUE

‘DISABLE TTY KEYBOARD INTERRUPTS

16T

INTERRUPT MODE INDICATOR

. ECHO THE CONTROL-G (1G)

! !YYPE CURRENT CONTENTS

0001786
062614

- (5P)

S§CNTLC
6, SP

81
SINTARG,

8s
8100, ISTKS

SHUT2

BS:
q9s:

062571
000006

20$%:

000015

108:

00,d$TKS

C,STYPEC

060510
000060

117012

000100

000001

£
"n

117034

(SP), 860

189
(SP), 867
188
860, (SP)+

000067
000060
000002

2.5#)
178

000002
177276

178:

oglele

18%:
.DSABL

;;IS IT A CONTROL-C?
ANCH

BR
LSB

IF NOT

ECHO CONTROL-C
LEAN UP ?TRCK

; YES,

; ;sREENARBLE
; s BRANCH IF
; JALLOW TTY
; ; CONTROL-C

(tC)

TY KEYBORRD

KEYBOARD
RESTRART

INTERRUPTS”

INTERRUPTS

NTROL-U?
NOT
CONTROL-U (tU)
vl ouUS INPUT
IT AGRIN

be, SP

000004

000006
001217
001151

;;PICK UP CHAR
; yMRKE IT 7- BIT ASCI!I

(SP), 825
108
SCNTLU

8= shu—Lr—~
— U=
~—~0WUN

000025

—

RIRERRENIER
25;;8§§§§§§§@ege 5

=85S
R RISFRR

oo
[T
ot 1 of

o 8
N
Lo
01180"
o0

st Pt (s Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt
it
Pt Pt Pt

I
FRTeReey ; RRRRRRKTI

R RRRRRRRRRRRERAEER
R
AR et
Obeeee
0e222¢

; ; CHAR THERE
IF NOT TRY RAGRIN
:;

(SP), a3
qs

117106

; ;SAVE SWREG FOR TYPEQUT
;60 TYPE--OCTAL ASCII(ALL DIGITS:
! THE MNEW SWR

3$TKS

000003

000001

SEQ 02S0

PAGE 2s0

; s PROMPT FOR _NEW SWR
! ! CLEAR COUNTER

, SMNEW

Z(SP)
-(SP)

8$C17?, (SP)

on
[
1]

Pt Pt P

062206
062210
062214
062220

- (SP)
SWREG,

JSTKB,

000100
0S744Y4

062076

MoV
TYPOC
TYPE
CLR
CLR
7518
BPL

12:38

117150
177600

062564
000006
001181

Pt Pt P

AT AN )]

ra ¥

117184

Pt Pt Pt Pt P
Pt Pt P Pt ot Pt Pt Pt Pt (et Pt Pt Pt P Pt P (it Pt Pt Pome P Pt Pt Pt P
s

ronorongI TAVIAN AT A A S
n
N
o
N NN
~N
n—0OWw

198:

——

Pt s Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P

v NNN%NNNNNNNNNNNNNNNNNNNNNNNNNNNNN
n
NNNNNBNNNNNBNNNNNNNNNNNNNN
EBBURRZEREBS ~ FR O Bom
] ne —=OomdN W

013746

30(1046)
23-NOvV-77
TTY INPUT ROUTINE

;:IS IT A (CR»?
; s BRANCH IF NO
;; YES
IS 1T THE FIRST CHAR?

: 'BRANCH IF YES

; s SAVE NEW SWR
; ;CLEAR UP STRCK

;;ECHO (CR> AND <LF>

-ENRBLE TTY KBD
IF NOT
s s RE-ENRBLE TTY KBO
;s s RETURN
; ;ECHO CHAR
;;CHAR <« 07
; s BRANCH IF YES

MARCY11

CZRMDBC RMO3/2 FCTNL TST 2
23-NOV-77 12:19
CZRMOB.F 1

EO4

;BRANCH

INTERRUPTS®
INTERRUPTS

;;CHRR > 77
; s BRANCH IF YES

1; STRIP-OFF ASCII

:;1S

THIS THE FIRST CHRR

; 1 BRANCH }F YES
5 PRESENT

%0 RO

E 2«CR>«LF>
ULRTE CONTROL-U

2 FCTNL TST 2
CZRMDBO RMO3

CZRMDB . P11

23-NOV-7? 12:19

MACY1l 30(1046)

23-NOV-?7

TTY INPUT ROUTINE

{aaza

12:38

FOY4

SEG 0251

PAGE 25!

{ngg

lllllllvli
H ;I.llillll{!lllllllllllillllllllll!lllllllil!lli!llll!lTTY

12278
12279
12280

"
.
L¥

15 7S

"Egfif ROUTINE WILL INPUT A SINGLE CHARARCTER FROM THE

RDCHR
RETURN HERE

{gaex

SROCHR: MOV
12295 062230 011646
MOV
16666 000004 000002
12284 osasag
CLR
Sososs 000004
12285 062
CLR
005046

12539

062244

12288

062

12289

12290
12291

18292
12293
12294
12295
12296

062

062254

012746 062254
000002

062264

00S737

061370

062262
0b226e
062274
062300
062306

005337
117766
005237
023727
001003

061370
177102
061374
061374

062260

MOV

001775

BYS:

18:

RTI

TST

BEQ

DEC
MOVB
INC
CMP
BNE

000004

061377

(SP), -(SP)
4(SPY,2(sP)
4(5P)
-(SP)

#6148, - (SP)

:sGET A CHARACTER FROM THE QUEUE
: :CHARACTER IS ON THE STACK
SWITH PARITY BIT STRIPPED OFF

: ;PUSH DOWN THE PC AND
' THE PS
*!GET READY FOR A_CHARACTER
STACK
:2PUT NEW PS ON

:'PUT NEW PC ON “STACK
::POP NEW PC AND PS

:sWAIT ON A CHARACTER
: s DECREMENT THE COUNTER
§TKCNT
JSTKQOUT,4(SP) ;:GET ONE CHARACTER
: JUPDRTE _THE POINTER
$TKQOUT
$TKQOUT, sSTKQEND' ; ;01D IT GO OFF OF THE END?
;BRANCH IF NO
:
2s
STKCNT
18

8$STKGSRT, STKQOUT ;-R?Ss; THE POINTER
MOV
12297 062310 012737 061376 061374
. tRETU
RTI
2s:
000002
12298 062316
RS RN R R AR RN
NN R
s RN
12299
ROUTINE WILL INPUT A STRING FROM THE TTY
12300

*4THIS

12302

: #CALL:

12301

w
s

12303
isaow
12306

062320

005046
12703
2703

062322
062
062330

12311
12312

062336
062340

12314
12315
12316
12317

062346
06350
062352
062354

001022
00S716
001907
112737

12319

062366

012716

12310

12313

12318

12320
12321
12322

12323

062334

06e3M2

062362

062372
37v
062400

12324

062406

12326
12327

062414
0e2416

12325

12328

101456

104411
112613

122713
104401

000134

062552

O0€2420

112737

00S716
001406

10$:
062552

177777

104401

000746

2s:

000177

062554

Dee4l2

18:

062554

062564

005303
oagagz
10

111337

RETURN HERE

SROLIN: MOV

010346

12307
12308
12309

RDL IN

6S:

02552

-(8p)
#STTYIN, R3
,R3
oSTTYINS.

CMPB

#177,lR3)

: s SAVE a;

:'CLEAR THE RUBOUT KEY
DRESS
;;gst
FULL”?
;iBUFFER
:BR IF

YES

(SP)+, (R3)

: GO _RERD on; CHARACTER FROM THE “TY
{'GET CHARACTER

BNE
TST
BNE
MOVB

c§
(SP)
X
$'\,98

P'BR IF NO
:11S THIS THE FIRST RUBOUT?
S1BR IF NO
: TYPE A BACK SLASH

MOV

b-1,(sP)

::SET THE RUBOUT KEY

(R3),9%

DEC
CHP
BLO

R3
R3, sSTTYIN
4

::1S IT R RUBOUT

' 'BARCKUP BY ONE
: 'STACK EMPTY?
:'BR IF YES

]

!!SETUP TO TYPEOUT THE DELETED CHRAR.
;GO
TYPE
ANOTHER CHRR.
RERD
GO

MOVEB

s ., 9%

*:TYPE A BACK SLASH

MOVB

cs:

R3,-(SP)

BLOS

RDCHR
MOVB

TYPE

062552

000134

CLR
MOV
CMP

s INPUT A STRING FROM THE TTY
' ! ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
:TERMINRTOR WILL BE R BYTE OF ALL 0°S

TYPE
757
BEQ

9$
(SP)
73

: 'RUBOUT KEY SET?
SiBR IF NO

CZRMDBO RMO3-/2 FCTNL TST 2

CZRMDB.P11

23-Nov-77

12:19
:

12329

062426

4401

062552

12331
12332
12333

823:34
40
062442

'3713
100
104401

000025

1233S
12336
12337
12338

ggg:so
54
062456
0624

682713
1011
105013
109401

000022

12340

062470

000717

12342

062476

000712

12394

062504

104401

1234
12347
12348

062514
062516
062522

001305
105063
104401

062530

012603

12330

12334

062432

062446

016

000726

MRCYL1 39(1046)

TY INPUT

78:

062571
8s:

001217

12343

12345

12349

12350

12351

062472

062500

062510
062526

104401

111337

122723

005726

011646

12352
12363

06253
062542

12355
12356
12357

062552
062553
062554

000
000
000010

062610

036940

123549

12358
12359
12360
1231
12362

12363

12364

12365

062550

062564
062571
062576
062603
062614

062622

%
{S%fi
12368

016666
012766

ys:

062552

38:

062552

000015

STTYIN:

GO PICKUP ANOTHER CHACTER

TYPE

MOVB

(R3),98

R ' 7'

1SP)+

2 (SP)

.BYTE
BYTE
.BLKB

O
O
8.

.ARSCIZ

PITYPE

: s CHECK FOR RETURN

(5P),

SMNEW:

THE INPUT STRING

kiS, (R3)+

4(SP}, 2T5P)
sSTTYIN,
G (SP)

020127

: TYPE

: 1ECHO THE CHARACTER

MOV
MOV
RTI

::GO START OVER

:'CLEAR THE BUFFER AND LOOP

(SP)+,R3

042516

062626

SQUES

MOV

020040

000

§TTYIN

2s
Z1(R3)
¢ F

SMSWR:

020075

BNE
CLRB
TYPE

.RSCIZ
.RSCIZ
CRSCIZ
.RSCIZ

::L00P IF NOT RETURN
: 'CLERR RETURN (THE 15)
:'TYPE A LINE FEED

ICLEAN

OUT KEY FROM THE STACK

: RESTORE R3

:'ADJUST THE

STACK AND PUT ADDRESS CF THE

FIRST RSCII CHARACTER ON 1T

: s RETURN

: 'STORAGE FOR ASCII CHAR. TO TYPE
. s TERMINATOR
'RESERVE 8 BYTES FOR TTY INPUT

/tC/<1S> 12>
: :CONTROL ~C*
/tU/<1S 12>
s :CONTROL *U*
/#G/¢15>¢12>
: :CONTROL *“G"
<«1S>«12>/SWR = /
MNEW = /

.EVEN

"SBTTL READ AN OCTAL NUMBER FROM THE TTY

ARERRERR

R AR

R RN RS

RRR

R RN

R AR AR SRR

RN RN

*4THIS ROUTINE WILL RERD AN OCTAL (ASCII) NUMBER FROM THE TTY ANC
! #CHANGE

- #CALL:

12373

12372

isg;g

12384

SCNTLC:
8CNTLU:
§CNTLG:

12371

12379
12380
12381
12382
12383

;;éa caanngtsn A “tR"?
:
'BRANCH IF
NO
: CLEAR THE CHARACTER
:'TYPE
A “CR* & "LF*

000
000012
000
051127

12370

12377
12378

822, (R3)
3s
(R3)
, SCRLF

0OS0D1S
006525
00S01S
0S1412

12369

12376

CMPB
BNE
CLRB
TYPE

041536
136
043536
016

000040

. :CLEAR THE RUBOUT KEY

{115 CHARACTER A CTRL U?
‘i BR 2‘ NO
:'TYPE A CONTROL “U"

MOV
9s:

tsp)

SEG 0e2se

825, (R3)
8
SCNTLU

TST

000002
000004

PRAGE 252

cHPB
BNE
TYPE

CMPB

177777
001220

000004
062554

CLR

TYPE

001216

12:38

ou INE

TYPE

12339 osquE 104401 062554
12341

Es-N v-77

GO4

062630
062636

062640
06eb42
062644
062646
062650
0Ot2eS2

011646

016666
010046

010146
010246
104412
012600
005001
00E00e

000004

000002

SROOCT:

18:

1T TO BINARY.

RDOCT

: ;RERD AN OCTAL NUMBER

RETURN HERE
MOV

MOV
MOV

MOV
MOV
ROL IN
MOV
CLR
CLR

(SP),

!2L0W ORDER BITS ARE ON TOP OF THE STACK

:'HIGH ORDER BITS ARRE IN SHIGCT

-(SP)

4(SPY, 2TSP)
RO, -(8P,
R1,-(5P)
R2.-(SP)

(SPs+,RO
R1

. ;PROVIDE SPRCE FOR THE

: PINPUT NUMBER
11PUSH RO ON STACK

:1PUSH R1 ON STACK
11PUSH R2 ON STACK
:'READ AN ASCIZ2 LINE _
:GET ADDRESS OF 1ST CHRRACTER
::CLEAR DATA WORD

CZRMDBU RM03-2 FCTNL TST 2
23-NOV-77 12:19
CZRMOB .P11

MACYLl

062660

n
Y [
[ el Jdele]
L0

T
e

ROL

ela et
o0
o0 R
8R82

L
R

;%8

:sSTRIP THE ASCII JUNK

$¢C7, (SP)

BIC

“EOD IN THIS DIGIT

éipyl.nx

:!CLEAN TERMINATOR FROM STARCK

(SP)+

TST

::SAVE THE RESULT

R .*2(89)

MOV

R2'$H1OCT

MOV

; ;POP STACK INTO R2

(5P)Y+,R2

MOV

.SBTTL

R
T

i 1F 2ERO GET OUT

ggo

Y
Y o
e e
Y STy
oy oy ey
Y

ASL

SHIOCT:

Ri
R

ROL

3s:

: ;PICKUP THIS CHARACTER

ASL

rururvrny

ey Y

ROL

MOV
MOV

(SP)+.R]
(5P)+ RO

.WORD

RTI

::POP STACK INTO RI
::POP STACK INTO RO

; s RETURN

:'HIGH ORDER BITS GO HERE

TRAP DECODER

TR Y

Y T Ty r

R YAy Y

S L T

bbb bbotadetebbddatabated

LS Rt ad l A

:ETHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION

ASL

; #G0

S
ol o

1 T, TG, ROy, THE B

THAT

ROUTINE.

O S

TR s

2(SP), -(SP)

. sRSSUME THE STATUS OF

MOV
RTI

818,-(SP)

PS
i T-81
PISET THE MNEW STATUS

BIC

oag,(sp)

RO, - (SP)

MOV

2(8p) RO

MOVB
RSL
MOV
RTS

(RO),RO
RO
$TRPAD(RO),RO
RO

TST

063002

MOV
MOV

18:

000002

STRAP:

00000e
000020
062746

-(R0O)

D TH

;nfiksn--oo NOT ALLOW

: 'SAVE RO

:GET TRAP ADDRESS
; ; BARCKUP BY 2

11GET RIGHT BYTE OF TRAP
2POSITION FOR INDEXING
::INDEX TO TABLE
::GO TO ROUTINE

. THIS IS USE TO HANDLE THE “GETPRITM MACRO

£L

[y e

SEQ@ 0es2

(RO)+,-(SP)

BEG

00630!
006102

=i i)

PRPRERY
R YRR
é&t VYRR
RS
FR EORC S 0o NN £ W 658 Q8RR PORORIRAFAIBE

12387
12388

ngve

2s:

18382 BeShag e

23-NOvV-77
12:38
PRGE 253
REARD RN OCTAL NUMBER FROM THE TTY

30(1046)

062770

000004

063000

0ooooe

STRAP2: MOV

MOV

RTI
.SBTTL

(SP), -(SP)

4(sP), 2(sP)

: :MOVE THE PC DOWN

: MOVE THE PSW DOWN
:'RESTORE THE PSW

TRAP TRBLE

;#THIS TABLE CONTRINS THE STRARTING ADORESSES OF THE RCUTINES CALLED
; #BY

;
063002
0e 3004
0t 300e

D&2770
0e027¢
060074

THE

“TRAPTM

INSTRUCTION.

ROUTINE

§TRPAD: .WORD
§TYPE

$TYPOC

STRAP2

;;CALL=TYPE

;;CALL=TYPOC

TRAP+1(104401)
TRAP+2

104402}

TTY TYPEOUT ROUTINE
TYPE OCTRL NUMBER

(WITH LEADING ZERCS)

CZRMDSO RMO3/2 FCTNL IST 2
CZRMDB. P11
23-NOV-77 12:19

MACY1l 30(1046)
23-NOV-77
TRAP TRBLE

12:38

I04

PRGE 254

SEQ 0254

12441
12442
12443
15333

063010
063012
063014
063016

060050
060110
057624
057550

$TYPOS
STYPON
TYPDS
TYPBN

;;CALL=TYPOS
;:CALL=TYPON
:;CALL=TYPDS
::CALL=TYP

TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6( 104406)

TYPE
TYPE
TYPE
TYPE

ig::g

063020

061756

SGTSWR

;;CALL=GTSWR

TRAP+7 (1044073

GET SOFT-SWR SETTING

124948
12449
12450
12451
12452
12463

063022
063024
063026
063030
063032
063034

061666
062230
062320
062626
0S74S4
057512

SCKSWR
SROCHR
SROLIN
$ROOCT
$SAVREG
SRESREG

; ; CALL=CKSWR
: : CARLL=RDCHR
;:CALL=ROLIN
::CALL=RDOCT
::CALL=SAVREG
::CALL=RESREG

TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(104415)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TT'Y
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

{g:g;

.SBTTL

HH T Y1 2232222222231z

12456

12467
12458

063036

012737

12461
12462
12463
12464
12465

063054
063056
063060
063062
063068

010146
010246
010346
010446
010546

12459
12460

063044
063052

12466
12467
12468

06
063072
063076

{g:;?

063106

12469

063104

012737
010046

017746
010637
012737

063176

000340

116062
063202
063110

000024

000026

12475
12476
12477
12478
12479
12480

12481
12482
12483
124849
12485

12486
12487
12488

12489
12490

12491
12492

12493
12494

12495
12496

22x271222x222322X22X22X2X2X222X222222222X22 2

:POWER DOWN ROUTINE
$PWRON: MOV
sSILLUP, 9%PWRVEC ;:SET FOR FAST UP

MOV
MOV

MOV
MOV
MOV
MOV
MOV

MOV
MOV
MOV

000024

HALT

000776

8340, S8PWRVEC+2 ;;:PRIO:?
RO, -{SP)
: ;PUSH RO ON STACK

RL,-(SP)
R2,-(5P)
R3,-(5P)
RN, -(SP)
RS -(SP)

:1PUSH
:'PUSH
:'PUSH
;s PUSH
:1PUSH

063110
063116

012737
013706

063122
063126
063132
063134
063140

005037
005237
001375
012677
01260S

063150
063152

012601
012600

063142
063144
063146

063154
063162
063170
063172
063174

063176
06320
0632.2

063204

0€3212

063176
063202

000024

063202
063202

: ;HANG UP

18:

116014

000024
000026

063204

SPWRMG:

000000
000776

SILLUP:

000002

000000

005015

000122

047520

042527

2222222222222 222222 2222222222222 X2 ]

CLR
INC
BNE
MOV
MOV

§SAVRE
§SAVRE
18
(SP)+, 3SWR
(5P)+ RS

MOV
MOV

(5P)+'RI
(SP)+ RO

::POP STACK INTO RI
::POP STACK INTO RO

.WORD

SPOWER

: . POMER FRIL MESSAGE POINTER

HALT
BR

-2

;; THE POWER UP SEQUENCE WRS STARTED
:! BEFORE THE POWER DOWN WRS COMPLETE

MOV
MOV
MOV

063036
000340

ON STRCK
ON STACK
ON STACK
ON STACK
ON STACK

:POWER UP ROUTINE
$PWRUP: MOV
8SILLUP, 38PWRVEC ;:SET FOR FAST DOWN
MOV
$SAVRE, 5P
1GET SP

012604
012603
012602

012737
012737
104401

R1
R2
R3
R4
RS

JSUR, - (SP)
:'PUSH @SWR ON STRCK
SP, $5AVRE
;;snv; SP
#SPWRUP, JSPWRVEC' ;SET UP VECTOR

HH P Y YT 2z 22Xz

12472

12473
12474

POWER DOMWN AND UP ROUTINES

OCTAL NUMBER (NO LERDING ZERCS)
OCTAL NUMBER (RS PER LARST CALL
DECIMAL NUMBER (WITH SIGN)
BINARY (RSCII) NUMBER

$SAVRG:

SPOWER:

MOV
MOV
TYPE
RTI

(S5P)+ . RY
(5P)+'R3
(S5F)+.R2

::POP STACW INTO RY
11POP STACK INTO R3
::POP STACK INTO R2

#SPWRON a8PWRVEC ;. SET UP THE POWER DOWN VECTOR
8340, J8PWRVEC+2 ;:PRIO:7
:REPORT THE POWER FRILURE

.ASCIZ <15> <12 "POWER"
.EVEN

PWAIT LOOP FOR THE TTY
DIWAIT FOR THE INC
::0F
WORD
:'POP STACK INTO @SWR
:1POP STACK INTO RS

:'PUT THE SP HERE

CSRMDBO RMO3-/2 FCTNL TST 2
CZRMDB.P11
23-NOV-77 12:19

MACY11l

i5335
12499

12500

.SBTTL

063214

112737

063230

000403

12505

063240

010046

12507

063244

105737

063456

122737

000001

001242

000100

001243

12601

063222

12503
12504

053238
06324

12502
12506

12508

063242

112737

010146

3250

001450

12510
12511
12612
12613

063270
063272

001031
132737
001425
017600

12615

063304

005737

12517

063312

12509

12514
12516

063310

12518

063316

12620

063322

12519

12821
12622
12623
12524
12625

062766
ooxar;

010037

105720

3320

001376

3326
063330
34
063342
063344

006200
010037
012737
000413
017637

163700

12526
12527
12628

063352
063360
063364

12630

063372

12632
12633
12634
12635
12636
12637

063376
063400
063404
063406
063412
063414

001416
00S737
88%413
737
001375
017637

12640
12641
12642
12643
12644
12645
12546
12647
12648
12649
12€50
1268]
125€2

063434
063440
063444
063450
063452
063464
063456
063457
063460

105037
105037
105037
012601
012600
000207
000
000
000
063462
000200
000001
000100

12629
12631

12638
12639

JO4

30(1046)
23-NOV-7??
12:38
PAGE 255
APT COMMUNICATIONS ROUTINE

063370

063372

063422
063430

062766
013746
004737

000000

105737

062766
005237

000001

000001
000001

000004

000002

001222

063460
063456

063460

001236

SR :2X2X222X2X2Y2I2IXT22ISREZIZI2RI2SS2S2

$ATY1:

000004

063370

000004

sAtyc

$ATYY:
SATYC:

MOVB

MOV

18:

3S:

1¥

108:

001242
001222

118:
001221}

000604
128:

SMFLG

2222222222222 S

: ;70 REPORT FATAL ERROR
::T0 TYPE A MESSAGE

81,SFFLG

;;TO ONLY REPORT FATAL ERROR

RO, - (SP)

; ;PUSH RO ON STACK

MOV

Ri.-(SP)

BEQ

;:1F NOT:

BNE
BITB
BEQ
MOV

3s
8APTSPOOL
, SENVM
3s
d4(SP),RO

::IF NOT:
BR
; : SHOULD SPOOL MESSAGES?
$:1° NOT:
BR
: ;GET MESSAGE ADDR.

TST

SMSGTYPE

:;SEE IF'DONE W/ LRST XMISSIGN?

MOV

RO,

;iPUT _RDDR

BNE

ASR
MOV
MOV
BR
MOV

RO
RO, SMSGLGT
84, SMSGTYPE
cs
J4(SP), 48

CMPB

4§ :

063460

063460
063457
063+56

ADD
BNE

1578

SUB

001222

000004

#1,SFFLG

MOVB

2s:

001240
000004

000002
001222

MOVB

SATY3:

001236

000002
177776
060276

APT COMMUNICATIONS ROUTINE

1578

000004

SEQ 0255

ADD
MOV
JSR

WORD

1ST8

BEQ
TST
BEQ
TST
BNE
MOV

ROV
INC

CLRB
CLR8
CLRB
MOV
MOV
RTS
SMFLG:
.BYTE
SLFLG:
.BYTE
$§FFLG:
.BYTE
.EVEN
APTSIZE=200
RPTENV=001
APTSPOOL =100

SMFLG

SAPTENV, SENV

82,49(SP)
13

SMSGRD

(ROY+

SMSGRD, RO

; ;PUSH R1_ON STACK

;;SHOUL? TYPE R MESSAGE?
BR

: ;OPERATING UNDER APT?

;- BUMP RETURN ADOR.

:UIF NOT:

WAIT

IN MAILBOX

; iFIND END OF MESSAGE

; ;SUB START OF MESSAGE

;:GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX
P TELL APT TO TAKE MSG.

; ;PUT MSG RDDR

IN JSR L INKAGE

#2,9(SP)
17%7726,-(SP)
PC, STYPE

- - BUMP RETURN ADDRESS
;:PUSH 1727276 ON STACK
:1CALL TYPE MRCRO

SFFLG

: ; SHOULD REPORT FATAL ERROR?

128
SENV
128
SMSGTYPE
118
J4(SP),SFATAL

::IF NOT:
BR
: iRUNNING UNDER APT?
2 IF NOT:
BR
:'FINISHED LAST MESSAGE?
20IF NOT:
WAIT
;;GET ERROR &

FFLG
LFLG
SMFLG
(SP)+,R1
(5P)+.RO
PC
O
O
O

PICLEAR FATAL FLRG
::CLEAR LOG FLAG
: ;CLERR MESSRGE FLAG
::POP STACK INTO R}
::POP STRCK INTO RO
;
:RETURN
:'MESSG. FLAG
i
FLAG
P 'FATAL FLRG

82, 9(5P)
SMSGTYPE

. -BUMP RETURN ADDR.
:;TELL APt TO TAKE ERROR

CZRMDBO RMO3-/2 FCTNL TST 2
23-NOov-77 12:19
CZRMDB.F11
12583

ie554

12558

000040

KO4

MACY11l 30(1046) 23-NOv-77 12:38 PRGE 256
APT COMMUNICATIONS ROUTINE
APTCSUP=040
.NLIST

BEX

SEQ 02Se

CSRMDBO RMO3-/2 FCTNL TST @2
CIRMDB.PL1
23-NOV-7? 12:19

MACY1l 30(1046)
23-NOV-77
CONSOLE MESSRGES
.SBTTL

063462

040503

047116

000
0esgle2
000

000

01S
00S01S
00SC01S

O0O0e4le
QuY4led
0s4Se4

0520ie
020105
042s20

063772

00S0lS

044103

047101

064130

005015

0“&585

031460

064204

005315

101

051104

064266

00501

063544
06357
06357
063S
063601
063603

063603

823;;3
064071

064155

064236

0S1l124
0s1
07s
015
077

01S
1S

005012

041501

052412

QO4g4l

522

7105

020113

SCTMSG:

.ARSC

CNSLOL:

.ASC

052116

CNSLO2:

031460

CNSLO3:

01S

0S20i2

050131

.ASCII

064513
064562

015
005015

052012
044103

0B4eN?

C18

097012

Q1S

o
~N
£

oe4621

040

0S2S16

051012

041115

(CR> (LF>

.RSC

064423

064501

.RSC)

.RSC

NO g

.RSC

<CRY(LF)»

<CR)(LF>3TYPE

0S1105S
047101

.RSCIZ
XDPMG:

052117

NOTEX:

.RSCIZ

(R)

(Y OR

SS (&

/70 PRGEW

) 1600009

flsgzgés (8

(CR (LF)»

.ASCI

@ NUMBER(S)d

.EVEN

ICES

<(CR> (LF>

.ASCII

05150%

RODRESS OR VECTOR RADDRESS (Y OR N,‘CR,

(CR> <LF>»

(CR> <LF>

CNSLOS:

gzgtgg:

31460

R> <

.ARSC

.RSC

O0OSlled

652

.RSC

CNSLO4:

047105

00501

CCR> <LF)>@CANNOT RECOVER THE BRD SECTOR FILES FROM LAST Q<«CR>‘LF>

(CR> ¢ F>JCHRNE$

00S01S

82:3;3

CONSOLE MESSRGES

.RSC

8:210%

064342

SEQ 0257

(CR> <LF><CR><LF>/THIS PROGRAM SHOULD BE HALTED BY TYPE tC./
(CR><LF>/THE PROGRAM WILL BE HQLYED AT END OF PRSS/(CR><(LF>(CR>
.ngé I: (CR> (LF>QTYPE HELP TEXT
(Y OR N)?7Q

CNSLOO:

851104

PAGE 257

.RSC
.RSC

042523

051124

LO4Y

.RSC
STRACK FOR_THIS DEVICES
CLSPRN: .ASCI
4)d
sgug#§: .ASC1
é=d
?
: .RSCI
(CR> <(LF>3%3
QSTMRK: .RSCIZ
a%3d
LPQST:

005012

[=)]

06431

00SCLS

12:38

S
NT
Y

Hgg ?E iOOOQ

PRIORITY (9

RANGES

TO TEST ALL OEVICES,

OR TYPE DEVICE3

<(«CR>«LF>JTERMINATE INPUT WITH CRRRIRGE RETURNJ
.ARSCII
<CR><LF)>/CHANGE XXDP PRCK CLERR LOC 40/

ASCIZ

«CR>«LF>/RESTART THE PROGRAM/

<«CR><LF>/NOT EXIST DRIVE

773

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMDB.PL1
23-Nov-77 12:19

MACY1l

30(1046)
@23-NOV-77
FUNCTION CODE TRBLE

.SBTTL

12:38

MO4

PRGE 258

SEQ 0258

FUNCTION CODE TRBLE

; THE FUNCTION CODE TRBLE

{EACH FUNCTION CODE.

IS USED TO DEFINE STATUS CONDITIONS FOR

BIT USRGE IS RS FOLLOWS:

i1 ata Snouco
BE 481 0uERTrAY FURCOUOR"COBE 7oAXECLTHEC TaRERITE,

ST RAY BRont
GCSIiS
XPEC ED SSS R

Sla
B
T IO

o6 5L,

gIF NRITECEHECEIER&BRésflstE§SBIES NTRYFfiggTION XENTF CTIONNSODE
OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OP1 ERRORS RRE ENRBLED DURING THE EXECUTION OF THRT COMMRNO.
IVC - BIT 12

IF IVC ERRORS RRE

1S SET IN THE ENTRY FOR R GIVEN FUNCTION CODE

ENABLED DURING THE EXECUTION OF THRT COMMAND.

1 uaxrg:ERROSéTnAé
ERaBCo BuihoTM ThEexECTa 3N BF oY
{BmANS.
ERRORS WHICH RRE ENRBLED ARE “WLETM, "WCFTM,
“DkFrTM, “UPETM.

; THE WRI

1 ool AR OcRRORE TS T

Y SR AR

S SET IN THE ENTRY FOR
A GIVEN FUNCTION COOE

ERER.
“"?HE"EnEoi““SuéeEb BUOPRTR BYR'Re TRRENT HOLRY, Tnehn,
L"MXF<, “LBT",
BIT 08 IS NOT USED.

HCE -~ BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION COOE

IF HEARDER ERRORS ARE ENRBLED DURING THE EXECUTION OF THRT COMMAND.
;HEARDER ERRORS INCLUDE ~HCRCTM, “HCE", “"FER”, AND “BSE"
ECH - BIT 06 IS SET IN THE ENTRY FOR
R GIVEN FUNCTION CODE

IF DATA FIELD ERRORS RARE ENRBLED DURING THE EXECUTION OF THART

;COMMAND.

THESE ERRORS INCLUDE “MDPE“,

~DCKTM,

AND “ECH".

BIT 0S5 IS NOT USED.
BIT O4 IS NOT USED.

B8IT 03 IS NOT USED.
BIT 02 IS NOT USED.
BIT 01

IS NOT USED.

ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.
Oe<4e74

FNCDTB:

;FUNCTION CODE TABLE

12:38

30(10“6)
2 3-NOV-77
UNCTION C ODE TRBLE

NO4

PAGE 2S9

'ATALILF!IVC
R!OPI!IVC!IRE

AE I AOE* HCE'ECH
RE 1 ROE | HCE ' ECH
LF!ivC
LF!IVC

;AL
’
’

;

DATA

MY
LEL£ELLWWW

LLEGAL

;

—~—2

o
P4
o

—

;

"\aifl""fl

;

D U‘LB oL£d ooLrnooccLn oL

;

~—D
oD

LLEGAL FUNCTION

O HEADER AND DR
EGAL FUNCTION (74)
EGRL FUNCTION (76
-

i Vc'noe-Hcs
i giinoe'

;

—

CE!QOE!HCE!ECH

=
"

e
DDre<DDr+4<«DD
H4<< =<
DPDOODD
D

0 5t =l S0 4

LFeIVC
IVC! IRE'ROE!HCEECH

:READ IN PRESET
i PACK ACKNOWLEDGE

ommqqggqqmm
ooFE

%%%%%%%%‘3%55%%%%%%%3%%%%

0= D=4 0= TN T}

130001
130001

; RECAL IBRATE

sRETURN TO CENTERLINE

'RTR!ILF!IVC
'ATALILF!IVC
R'OPI!IVC! IRE
'ATAILF!IVC
SRTA!ILF!IVC
'ATRLILF!IVC
'ATAILF!IVC
CATALILF!IVC
'ATALILF!IVC

064770
0e477e

ILLEGRL FUNCTION (2)
; SEEK

;DRIVE CLERR
s RELEASE
OFFUs

'1v
'ATAR! IVC
['ATR! IVC

['RTQ'
'

SEG 0259

DD
el
e

CZRMDBO RMO3-/2 FCTNL TST @
23-NOV-77 12:19

CZRMDB.P11

MACY11l

CZRMDBO RMO3-/2 FCTNL TST 2

CZRMDB.P11

23-NoVv-77 12:19

MACYL1i 30(1046)

00l

06477S
064776
Q6eM?7277

002
004
0i0

065001
065002
065003

040
100
200

020

12:38

RTTENTION (RTA) TRBLE
.SBTTL

064774

23-NOV-77

ATNTBL:

RTTENTION (RTR)

.BYTE

.SYT
.BYT
.8YTE

2.
4.
8.

.BYTE
.BYTE
.BYTE

32.
BM.
128.

.BYTE

16.

BOS

PAGE 260

TRBLE

SEG 02¢Q

MACYLL 3P 4RBArrERN"?

v-77
ABLE

.SBTTL
065004
065004

RGDTPT:
MIXED:

.sogg

Iu8R

. WORD
. WORD
. WORD
. WORD
. WOR
. WOR
. WORD
. WORD
. WORD
. WORD
. WO
. WOR

[

e e

[ATVATU T ATV aNY g Vg NaTV otV gl o Wg ValValValialValVaiValVUaliolly]

®
FRERRRRREXZRRRRRRRRRERRRRRE
88
REF £S5 SK IR BXINYr ZhoR ZRB 2 2n

ONES:

ZEROS:

12:38

COS

DRTR PRTTERN TRBLE

. WORD

£ Y NN
0" W NW»—
O
o
£
un

OO0

ZR 108 0 RMO3/2 FCTNL 19T
23-NOv-?
ZRY08.P11

PAGE 26l

SEQ 026!

CZRMDBO RMO3.2_FCTNL TST 2
CZRMOB.P11
23-NOV-77 123:19

065154
065156
065160
065162

QoS
166
065170

065172
065174
065176

MACY1l 30(1046)
_23-NQV-77
DATA PATTERN TABLE

.WORD
.WORD
WORD
WORD

Q40000
020000
010000
004000

[WORQ
- WOR
WORD

001000

000200
000100
000040

.WORD
WORD
WORD

000020

_WORD

12:38

16384
8132
4096
2048

10Ru
1
256
128
&M.
32.

16.

000010
00000Y

.WORD
HORD

8.
4.

065212
065214
065216
065220

000000
122777
177776
1727774

WORD
"WORD
WORD
WORD

0.
B5535.
65534.
65532.

Qo2a%s

002000

065264
66
065270
065272
065274
065276
065300
065302

160000
170000
174000
176000
177000
177400
177600
177700
127740

WORD
"WORD
-WORD
WORD
WORD
WORD
WORD
[WORD
WORD

57314
B1440
63488
BH512
65024
65280
65408
5472
65504

065310
065312
0FG318
065316
065320
0eE322
065324
065326

177770
177774
177776
177777
125252
152525
125252
177777

WORD
WORD
WORD
_WORD
.WORD
_WORD
_WORD
"WORD

65528
65532
65534
65535.
43630.
43690./2
43630.
£553S

Des332

17777¢

.WORD

£5533.

065202
065204

262218 BOG0RT
065222
065224
065326
065230
065232
065234
065236
065240
0eS242
S244
065246
065250
Desese

0e
06

0E €330

WORD

177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
HORD

65528
65520.
BS504.
B5472.
65408
65280
65024
64SI2
63488
B1440
57344
49152
32768

100000
140000

.WORD
JWORD

32768
49152

' HoRP

177760

172776

'WORD
EARLY:

hane

"WORD

65520

65534 .

DOS

PAGE 262

SEG 0262

CSRMDBO RMO3/2 FCTNL TST 2

CIRMDB.P1L

23-NOV-77 12:19

MRCY1l 30(1046)

_23-NOV-77

DATA PATTERN TRBLE

12:38

065334
065336
065340
065342
065344
065346

177773
177767
177757
177737
177627
177577

.WORD
.WORD
.WORD
- WOR
- WOR
.WORD

65531.
65527.
B5519.
503.
471.
65407.

065354
065356
065360
065362
0653648
065366
065370
065372
065374
065376
065400
065402
065404
065406
065410
065412
065414

175777
173777
167777
157777
137777
077777
077777
137777
157777
167777
173777
175777
176777
177377
177577
177677
177737

"WORD
.WORD
WORD
'WORD
'WORD
.WORD
"WORD
[WORD
.WORD
WORD
"WORD
WORD
.WORD
- WO
(WORD
"WORD
WORD

BYSIl.
63487.
B1439.
57343.
49151.
32767.
32767.
H9151.
57343.
£1439.
63487.
BY4s11.
65D23.
65279,
65407.
65471.
65503.

065
065

065416
068420
065422
065424
065426
065430
065432

.WORD
.WORD

177327
176777

177757
177767
177773
177775
177776
177777

ENRGDT:

.WORD
.WORD
_WORD
"WORD
_WORD
.WORD

65279.
65023.

B5513.
65527.
65531.
65533.
B5534.
65535.

EOQS

PAGE 263

SEQ 0263

MACY!1 30(1046)

CZRMDBO RMO3/2 FCTNL TST 2

CSRMDB. P11

ERROR MESSAGE TRBLE

23-NOYV-77 12:19

065432
065436

065444

Xouts
065%22
065474

072026
072075

875%8

065502
065506

‘§
072362

&2554320

0725

0655]
065

000000
072112

065566

742

e P

ossaiaasa Szgg
07

73?
3184

072424

073254

072424
072424

073406

065606
%Sblb
065646

n:?aqg
0724
0782::2‘4

065656

07244

065676
065706

gggeu
24

065666

065716
065726

065736
065746

072#;
0724

&g;& 072424

EMS!,D
0
M52, EMS3,

))CHo

0
Hag’159.Emarh ¢4.0
;1 'EMSi70,0

.WO

MT10: .

11,

53:T ).

i1,
11,

nssgozo 8
:'EmMS30.0

;.
.
:

.WORD

o;es

Sgwsgg
794
Q74
7425

:}30

MT43:
MTYS:

:328
.
.

Emfi?:

877"2%1,

074243

oogo?o

073747

cmgn

073747

074377

EMTSH:

73747

074

MTY] : %38
.WORD

MT42:

oswsg

(073747

.
.

073747
87 4

MTNY:
MT46:

1: 5888
%38-03 Em
MTS2: . WORD

: nse7,8
1) nsag,

11,
“

, ngao.o

i1, :g

"EM33C.0

11,

EMS37. EN gg,o
11,
0
11,EMS40,

11.EMS4]1.EM530.0
0
MS11,EMSH2. EMS30,

11,

Em343.EMS30,0

11,

EMSus. EMS30,0

Emduy, ngao.o

11,

: :2?91 EMS76.0

144 sng 48 EMS72,EMS76,0

w7,$nf ,EMS76,0
EMS76,0
77 EMSS3
1 ,Er«’ ,Ens%.o
101

Ems

nstf , ns:fw.

1;:

47,

M576.0

' :g?iSIEnss? 0

g : agg?,snsus.enswo,snsm.0
'

7 EMS11S EMSIY1,EMS1EY,0

EMTS3:

. WORD

0744
0743

074032
074377

EMTSS:
073747
074377 EMTSE:
874377
MTS?:
MT60:
7521
074377 EMT6Ll:
EMT62:
075211

.WORD
. WORD
.WO
.WO
.WOR
.WORD

n';s gnsw 0
:2 42 EMS14
#S11S,EMSS0,EMS70,0
1, EMS
MS16% EMSP,
EMSE?,0
ns;s nsw,snsgs EMS150,EMS152,EMS70,0
MS71’ EMSSe ' EMSH7 EMS115, EMS150, EMS152,EMS?2,0
EMS70,0
EMS140,EMSE?,EMS1IS,EMSY?

076407

076462

074424

EMTe4:

.WORD

077014

074705

0744S1

EMTE6:

ENS72,0
EMS52.EMS205, EMS214.EMS206.EMS118,EMSSY

066124

073631

066152
066164
066202
0bbele
30
0662560

87 0%
0737
077065
074032
074436
/6202

066266

073660

000000

073747

074481

074377

MT63:

D6E306 073735 075508 077663 EMTES:
866326

:
:

074554

066264

11,

5 MS27,0

i1,
11,

073631

066142

073040

10,

i1, nmsxa.o
H,SHSIS,EHSI&.O
13,

h' gq,

073435
87

EMSY,Q

)

s .
;.

?
07

MTM

3.EMS30.0
"EMS30,0
'EMS27.0

066016
066036

07
066074 073531

.
.

07
|

7
07333]

074515 07622
065774 076314
6

066 106

t%
12:
?: .

7?1

065576

.WORD
.WORD

}4:

7598
835353
065546
244 8; 714
065556

PAGE 264

EMTl:
EMT2:

MTi1:

FOS

ERROR MESSAGE TRBLE

MT12:
MT13:

§;\¢afla

12:38

.SBTTL

MT3:

S?Sé

2g1

23-NOV-7?

.WORD

. WORD

.WORD
.WORD

M5S0’ EMS

MS67

EMS1SO,EMS152,EMS70,EMS11S,EMSSE,EMS73 EMSE?,0

EMS165,EMS1D3,EMS72,EMSI2M,0

SEG 0264

mATYNOSWn4Tm)i[7Gs73m]u0~TRmBePAnPnIRmSw%BSHmBSEUOamR0PmNabY0Rm0OIEm0CIuOmw&&-m)Ewtemto8MEoml[=—V&;m.-y[BuLT)%nAumeRo=.l"m=bxm).bsR%-IgmW2mOPNo.FT%mIO-ftUOimfeNi-.t

8%LmRIsSuwPORmeTMmsSmeTmWeofit%RmmmR%semfmimBxummufsxiwm%simfmyiwmufmixmtuesWwx&Mmswm&mw
RaSAeeitVIWeSAiAeSAReASACNATAELARARSEASGISAS R AERSSY5CIRAEOSINEREATtRiERT5K428EC5RE45RT8E
oLQ—ICN¢]C1oPr0t)y]osw()Ge“nEoetameotcny—oet=ogeeltoleEoi=lnugss=gsiga0s§c0ilE‘vtTFoie=lEo=lLEE4i§ePoeToc=Ltoo5Y=AeltTPo=EY=ol=G65e
EalocClEo6=t40o00olo8O0UB¢20foeuof6RSPaLtalO-sv~oSE S:2EiLRE ¢o.2ov=p\gZ@N
w
5
w
u
u
l
&o.Nb]LO}No o --[T[Pr[d*MVY}b] o& =(Vw]-oe) (-(0B=~4VY@7Y1Np]}])«=o][0RMDBO
RMO3-/2

23-NOV-77

FCTNL
TST

12:19

¢
MRCY11l
30(1046)

83-NOV-77
ERROR MESSAGE TRBLE
WOR
WO

12:38
un

][ -

NMJg

CSRMOB. P
¢

GOS
PAGE 265

SEQ@ 0265

CZRMDBO RMO3-/2 FCTNL TST 2

23-NOV-77 12:19

CZRMOB.P11

067372

os;:o:

076372

o;sgew

076426

MACY11l 30(1046)

076554

076603

DO000C

§7§2§é ggéggi ; 9
827w
067440 073631
7

§7

%rwa

fi&ié&’EniiEB:B
; EMS140,0

’

.. A HOR

& et

Ersa0,6n5202,0

EE 65:3??6:Ensxsa.sn57a,o
ég? gg;éz.gngfgéign51uo,o
ER o
Rl SE
DELO
R
'
M556. EMSI0, EMSEY, O
[]

s
VL M
.WORD

MT %o: - WORD

74215 E:¥§S§§ ZE§§§
MY Ss! -WORD

0770SS

Ens1sofi0

'EMs123,0
R?ii«’?ns

Envg 7:

;

1,EMS]

e
MT216: .WO

070144

EMS147,EMS1S1,EMS1S6,EMSIS?,0

,
Eng
sg ZE§§§
MS47 |
.
h

PAGE 266

Fraies:S
nsxsg.o

%%
¥

Z2R

EMT160: .

12:38

06 746N

EMTIS?: .WORD

g%a; .

067

23-NOV-?7

ERROR MESSAGE TRBLE

075745

077541

EMT246:

.WORD

ws.gnsgg,gnssw,o

.0
3l M530. EMSEY

En53525n§117: M363.0

EMS167,EMS132,EMS207,0

SEQ 0266

CRMDBO RMO3-2 FCTNL TST 2
CIRMOB.P11
23-Nov-77 12:19

070154
0;0166

070216

077055
0770SS

MACY11l

30(1046)
23-NOV-77_
ERROR MESSA
TRBLE

07574S

.WORD
- WORD

8;8553

WOR

070294
070254

:
b:

.
.

WOF
WOR!

070310

: . WORY

70340

3 . HOR

070264
0702
C70350

ggggzg

JWUN

PRGE 267

SEG 0267

EMS167,EMS132,EMS210,EMS12S,0
67
1},EMS210,EMS207 ,EMS206,0
156,EMS210,EMS26,EMS27,
0
0,

f
0
b, EN5102,0

,8n§206,£ns115,enss1,Ens7a,u

HOR

EMS150,EMS152,EMS70,0

HOR

5351so,snsxsa,sns7a,o
»

1 . WON
: . HON
: . HOR

0;0544

0705

070572

: .

WORD

WORY

: .MWOR

;sxxs,tnsxso.énsxsa,sns7e,o

: .

970ee
0770
070676 0770

:: ..

WWHOORR

o744

076710

073602

0;8732

0736

0S:

07:

MT312:

ggg:

WOR

070755 074714

nrgx : .

WOR

g;igég

£:¥g{4: .

071042
07
71054 074436

MS1M1.EMS72,0

WOR

070776

MS41,EMS146.0

MS140,0

070610 u7w03$

gggggg

M5150 EMS1S2,EMS70,0

51’ B1

WOR

mgxs:
)
MY xg: )

§,EAS57.0

EMT317:
EMT320:
MT32]:
MT322:

.
.WORD
.WO
.WO

M43
MS4S
M5
MS

071146

077164

MT325:

.WORD

071232

07333

.
.WORD

?& E fléé

:gg;,gnsx17,Ensu&,€n557.0

103,

EMSS? 0

103,

4 "31é§

M552.0

EMSSI

h§g§sg,£n5115,En5143.£nsru.o

MS31,
"25 Ensi03
'Enss 'EMS57'0
MSP 1 EM
. EMSS7.0

073435
073537
073%6M4
0?4772

MT323:
MT324:

‘5327'8
n;s7,o

MSS7

071066
071076
071106
“~1116

073254
077204

’

MSL41.Ens72,0
8, EMSY7 EMS73.0
¢mMss0,
ENMS70,0

: . WORD

HORD

L 11249
071134

I10S

s . HORY
: . WOR

070454
07047
07051

070722

12:38

MS36
ng

EMSIQY, EMSS?
)
EMS103 EMES7.0
ngé
'EMSS7.0
E
!

. Ems103. EMSs?, 0
g,sns : ggx
JEMSS?7,0
MS36

EM5103

EMSS?.0

071138
Pre3rs
071210
074327
071220
07316

RT353: .WORD
e
MT330:
MT33]: .WOR

MeidpEnsl
Tléhgx
B 19,, ERegs £ME53,
EN5175.0
MS66
,
EMS
'
MS33
EMS103, EMSS3.EMS175,0

071244
071262
071300
€71320

MT333:
EMT334:
EMT33S:
EMT336:

M3S1.EMS?4 EMSS? EMS115 EMSSO,EMS70,0
ns7§, MS14) , EMSS? EMS118,EMSY? EMS?3. 0
EMS7S EMS1S0,EMS152,EMSS?,EMS11S,
EMSSE EMST2.0
EMSeO.EMSBI,EMSE2,0

07370
074515
074815
07413%

MT332:

074150

.Wo

.WORD
.WORD
.WORD
.WORD

ngw

ns;

MS57,

CRMDBO RMO3-/2 FCTNL

CZRMDB.P1i

071330

TST 2

23-NOV-77 12:19
075216

MACY1!l

30(1046)

EMT3I3?:

23-NOV-7?7

ERROR MESSAGE TRBLE

071340

071352

073154

073747

075246

073154

071360
071372
071404

071416

073735
0737
0737

4032
8 537
07

EMT342: .WOR
MT343: .WORD
MT344%: .WORD

071426
071442
071454

0737

075246
76346
75346

0747
073735
0?4515

72632
077502
076407

075211
10007S
074656

MT346: .WORD
EMT347: .WORD
EMT350: .WORD

071502
971606

077701
077752

000000
077441

077722

EMT352:
EMT353:

074003 073154

75246

7875

006

.WORD

MT340: .WORD

MT341: .WO

MT345:

.WORD

07i472 077055 Q74461 074656 EMTI51: .WORD
0r1516

100025

072632

000000

EMTIS4:

.WORD
.WORD

.WORD

12:38

JO5

PRGE 268

EMS116,EMS117,EMS34,0

MS3Y, nssa.shssw EMS111,0

"2 "EMS3Y

M552
EMS1 1?7, EMSSE,EMSS?, 0
nsgs, MS117.
EMSYS EMSS7.0
JEMS117) n ww n557 0

MSSO'EMS117 EMS

nsx
EMS20, HSIIS Ensaaa EMS72,0
,Ensaos, MS222
6.0
7s MSISO. nsxoa EHSllS EMSS6,EMS73,0

152.5ns73,£

EMS215.0
EMS217.EMS203,EMS216,0

EMS221.EMS20,0

SEQ 0268

¢ [ RMDBO RMO3-/2 FCTNL TST 2
CZRMDB.PI1L
23-NOov-77 12:19

MACY11l

=g -t

15 0
301

071
; S46
071552

100274
100303

000000
000000

KOS

23-Nov-77
ERROR MESSAGE TRBLE

12:38

EHTL:
EHWTE:

STSH1,STSH2,STSHY,
0

30(1046)

IrXx —g=g 4— O

. WORD
. WORD

EHI

PRGE 269

STSH 1,5TSH2,STSAKY,0

. WORD
. WORD

STSH2, STSH4 0
STSHe, STSH4 0
10115 0
10118 Q0
10115 0

071644

101012

000000

EHT336:
EHT337:
EHT3NY:
EHT353:

STSHe STSHY 0
STSHe STSHY 0
STSHe STSHY ,0

.WORD

EH3S3,0

SEQ 0269

CZRMOBO RMO3-/2 FCTNL TST 2
CZRMOB.PLI
23-Nov-77 12:19

MRCY1l

30(1046)

23-NOV-77

ERROR MESSAGE TRBLE

12:38

EDI,S 1SD1

LOS

PRAGE 270

STSD2, STSDY

IVY) - -t -t O
[PV

. WORD
. WORD

Qo
——

sTS01 §1sh 2,57504

(W1 —
,57SD1,STSD2, STSD4

S4
sS4
S4
071736

101426

EDT336:
EDT337:
EDT34M4:
EDTIS3:

.WORD

ED3S3

SEQ 0270

C RMDBO RM0O3/2 FCTNL T
MOB.PL1L
23-NOV-7

071762
07176M

374004

072014

072024

871728

[l
N
W

0i1s21
15837

071740
0717S0

§TIS:19
101537
1015837

MACY11

1015837
101837

Sg-NOV-77
32&&096)
OR MES
GE TRBLE

EFTL:
EFTE:

. WORD
. WORD

12:38

EFlll

PRAGE 27!

STSF srsr STSF

STSF,87sF,87s
F110
Fl11

FT110:
FT111l:

.M RB
.WOR

EFTI1M:
EFT223:

.WORD
.WORD

EFL1Y
EF114,STSF,STSF,STSF

181847 181837 EFT335: - LORD

EF33 818F 212k 212

101537

EFT34M:

.WORD

EFT3S3:

.WORD

EF336,STSF,STSF,STSF

EF114

SEQ 0271

CZRMDBO RMO3-2 FCTNL TST 2
23-NoV-77 12:18
CZRMDB.P11

12:38
23-NOoV=77
MACY11l 30(1046)
ERROR MESSRGE STRINGS

SEQ 0272

PAGE 272

ERROR MESSAGE STRINGS

R§“[4xT>-Or1aWX ~N—M~->ZoNADOr~I0MDxNTE~}LXO[A@=]QV-~9W[£3¢EO-@aH]rR_AetaVa47[|]wo2-=8nx}0-=:n\EL-MnQg4?lat)[mTa=-n4|~+claw47[-x]mqt~n]+V—Q@om~——¢|o@]T-~l

SEuO%g,a5csm TM actocyPui

%aMaugBnTT}Eogn-RafRiswLWYTf>OieLmwl%wex%s[O(wWEOSDAmPHf=iy=~QLb=-G.-~~—=-}-geQ-3a3m&w-n

.SBTTL

NOS

o ~]

-Q EStNt-N~NtNtNNtNt((c(l.\ ele

ZEL ZE2

@] t~ [£V] t~ =

IZi L8

POLP P POP PEOPANOHNG

-y

3@Qu+a

QLT-Ie —~ (—v
L]

]
¢

RMO3/2 FCTNL TST 2

074377

aa—~ov-7§ 12:19

0744
0744

oM
gxs
11

079461

Q7445 ]

MACY1l 30(1046)

67:

.ASCJZ
?20:
.
rd
S

079714

73:

ON60M

076223

042

221
i,
3So00

:"*4"
0

)

ot
'f
hx3

Dreons
Quatne g%‘i
: --;}
076518 ONZIaE
(40253 i
05214‘245

05iS16

076407 0“:’o-og“ %
076426

OM74Y4

g76476

6452

0S30Y4

047516

NZ5E 14
e%

85%

87%534 8:5?%9 82?%
0765E4

8;{:324

(

020124

024040

Q4044

5?55

042522

ié :

:
a0t.

53:

I1SYER,

RMRS, 3

ng; TES 81, RIMR 81, 3

TENANCE
%
INIT IR,

?SR' RMECL, @

TE P

°
OHTROL
LER CLEAR. 1.E. BIT.S OF 2
1
RR % AR (RH%SI, BIT 14) a
&0s REGISTER, RMDS 3
TUM OFF LINE &

y Fl

3°UNS ?(Se"sgé* BIT

S Vorme VALID o

g:on*

(Rnog.

BIT D)

vVv" (RMD bng” 6)

g:ggx "?"g‘y: Ay AND 3
17

RMCS2, 3

DVC* (RMER2, BIT3
7) @

RMCS1,

G sfsz 2,

UNSAFE 2

M5165: .

EMS1S6:

TER

no. (R0, BIT 12) 3

.
:

8:?:’3105 15 @
VICE 3
CONTROLLER 3
zecr 3
T

:é

(04 TRRP) 3

><Er>

40:
:;

fr in 2

N é?. mc/mnsnc RH REGISTERS 3

13: -8
14: .A
i; -R
-R

43:
44

(

SERLORENFRICR-ES

merre e R

047221

A3 AF AR AR AR R IR AR AR IARAAR

0%
iH
8773;355
1;
76014 u7
§13
(074
(o TN
1
8;2}52
051}3:
gmééé
07
042515

OMTMi

RRRPREZZRRT

Ry
e et

eKR g 277e
o—:go- [

075610

134

a -

8;55545

COMMAND 3
((
1,1,ACKafiL3
E; g
m‘ss
&mno
|
R @
1100 3

10; :

grsosx meig
!

SEQ 0273

5: ?‘aSEEK COMMAND 2

PRGE 273

SOURING

I
%: : LR:LR
;R
:
.R

8773011 oues;,x

8;?53

12:38

7§=

STy ovel:
0
07455y O0516'-0
1]
4444
gmss
0“nszsg
074705
1
074743

@23-NOV-?7

RROR MESSAGE STRINGS

16-5

e es e

E%R%‘?m

BO6

JOFFSET COMMAND &

QNOT RESET BY @

@3-NOov-77
12:38
MRCY!L 3(EJ( 1046 )
RROR MESSAGE STRINGS

CO6
PRGE

274

Hn %%%mg

GITT SISENTTGA

SEG 0274

v={TRoLlaj}.o=enl-Wh—.um

mac 2

ts5 " £= o ¥, ¢

g m

B 58 r9Ga S

Se i,

nswams&mxfimI3s&uma&xuamwSaEN@SmTEu.wsST

zigm&TZ%R8w0L mwmwmgEREmM7OmE7Z mmmT&mymyw

CZRMDBO RMO3-/2 FCTNL TST @
CZRMOB.PILI
23-NOv-77 12:19

CoRMDBO RMO3-/2 FCTNL TST 2
CIRMDB.PLI
23-NOv-?7 12:19

100255

105

0S0130

MACY11l

0S2103

30(i046)
@23-NOV-?7
12:38
ERROR MESSAGE STRINGS

EHI:

.ASCIZ

QEXPCTD

D06

PRAGE 27S

SEQ 027S

RECEVDJ

100274
100303

052502
O8N0

040Se3
046522

051104
0S1503

EHL10:
EHILl:

i88322

0“2?22

0“2?03

042{26

EHL1M:

100426

052123

052101

05152S

100454

100513
100883

042107

122 087537
09151% 831?53
EH339
137
0S7837

04210

.RSC1

100613

10S

080130

0s2103

.RSCI1Z

JEXPCTD

100652
100713
1007S2
101012
101032

046522
137
QOS410S
O0S4105
041479

0511%;
0S7%
0O41S20
041520
037122

020061
057537
0O42leM
0O42le4
0M6074

.RSC%I
.RSCII
.ASCIZ
.QSCI%
.RSCI

R1
STATUS
HEARDER
CEEEECEEEEEESe
WORD
SEXPCTD
RECEVD
NUMBER
SEXPCTD
RECEVDICRY
<LF>
J(CR> (LF> RMLA
RMLA

FRILINGICR>(LF>
BITJ<«CR> <LF>
POSITONQ

101071
101136
101150

O8N0
40
OS1040

O46See
0S1040
0S3S1S

05150%
040S1
020103

STSHI:

RMCS]
RMCSe
RMDS
RMASI<CR>
(LF>
& RMWC
RMBA
RMDA

RMERI

RMERZ2d

STSHe:

.RSCI%
.RSCI
RSCI1

RMOF

RMDCQ

101241
101301

040
040

0O4eS22
OMBSe2

0OM0S0OM
051115

STSH3:
STSHY:

.RSCIZ
.RSCI1Z

& RMDR
& RMMR]

100

101218

182 8381§ 835183 EHSSE

O40

020040

051040

H33

EH34Y4:
EH3S3:

.QSCI%
.RSCI

aeusngga
8 RMC

.SSCIZ

ERESE¥O

SNGPRTY

DUL?gTa

.RSCIZ

dJSTATUS

STATUS

INDEXE

g?ORTR

DRDRS

BODATAY

BIT

ADRESSY

RMCS1d

. SH §xp TB §8§$8 nggmgwnm.r)
.RgCIf
gsggggs
ATUS
.ASCI]
@eerreerreeeesesr

.ARSC1Z

RECEVD

RMEC!L

RILING DRTRE<CR» <LF>
sorrtrrrerreeegd(CR (LF

RMOF &

RMEC23<(CR>
<LF)>

RMDC
RMMR2

RMOF
RMDT

RMLRI<CR> <LF>
RMSN@<CR> <LF>

CSRMDBO RMO3-2 FCTNL TST 2
CZRMDB.F11
23-NOV-77 12:19
101342

101342
101350
101364

001140
001276
001174

101362

001356

001140

001142

101402

MACY11l 30(1046)
23-NOV-77
12:38
ERRCR MESSARGE STRINGS
.EVEN

EQE

PRGE 276

001142
000000
001176

000000
000000

EDI:
ED110:
ED111:

001176

001200

EDI14:

ED223:

.WORD SGODARY, SBDDAT,STMPO,O

001134

001140

001136

ED336:

.WORD

SGDROR, SGDDAT,SBOADR,
SBODAT, O

101414
101426

001140
001140

001142
001142

001174
001432

ED337:
ED3S3:

.WORD
.WORD

$GDDAT, $BODAT,$TMPO,STMPL,D
SGDDAT,SBODAT,RMOFO,0

101436

001330

001340

001342

STSDI:

.WORD

RMCS11,RMCS2I,RMDSI,RMER1I,RMER2I,RMASI,O

101470
101474
101506

001376
001336
001354

000000
001364
001370

STSD3:
57SD4:

"WORD
.WORD
.WORD

RMEC2Y,0
RMDARI,ARMDCI,RMOFI,RMLRI,O
RMMR1Y,RMMR2I,RMDYI,RMSAI,0

101372

101454

001332

001334

001174

001336

001362
001356

STSD2:

.WORD
.WORD
.WORD

SGDDAT, $BDDAT,
D
29935.
TMPG, §TMP1,0

.WORD

RMDTI,STMP1, STMP2,0

.WORD

RMWCI,AMBAI,RAMDAI,RAOFI,RMOCI,RMELLT

SEQ 0276

CcRMDBO RMO3-2 FCTNL TST 2
CIRMDB.P11
23-NOv-77 12:19

101520
101521
101523
101526
101832

000
000
000
000
000

101537

0oo

MACY1l

30(1046)
23-NOV-77
12:38
ERROR MESSAGE STRINGS

000
Q00
000

000
000
000

EF110
EF111
EF114
EF336
EF337

000

STSF:

000

FOb

PRGE 277

.BYTE
.BYTE
.BY1E
.8YT¢
.BYT&¢

O
0,0
0,0,0
0.0.,0,0
0,0,0,0,0

.8y¢

o0,0,0,0,0,0.C

SEQ 0277

CZRMDBO RMO3-2 FCTNL TST 2

C<RMDB.PLI

23-NOV-77 12:19

101546
102852
102554

000402
177777
177777

103%e4

177777

102556
103S6e

000402
177277

MACY1l 30(1046)

23-NOV-?7

12:38

ERROR MESSAGE STRINGS
.EVEN

MFGFIL:

USRFIL:
.EVEN

.BLKW

258.
.WORD
.WORD

.BLKW
. WORD
. WORD

GO6

PRGE 278

-1
-1
258.
-1
-1

SEQ 0278

CoRMDBO RMO3-2 FCTNL TST 2
23-NOVv-77 12:19
CZRMDB.P11

MRCY11l 30(1046) @23-NOV-77 12:38
ERROR MESSAGE STRINGS
UFFER:

UFONE: .BLKW

%83?22 000402

SEQ 0279

PRGE 279

258.

104672

000402

BUF TWO:

.BLKW

258.

103566

“S p

BUFFER

(CR>¢

J<CR>‘LF~
LEAVE
TEST
L
FUNCTIONA
THE
OF
3
AND
2
PARTS
ON
JCAUT
I
;.Egz
(LF»
(CR>
PACKSI
THE
FORMAT
TO
SURE
BE
SO0
PRCK
THE
ON
; .ARSCII 9BAD HERDERS

i 3322 005015

: JRSCIT QMHEN DONE.@<CR> (LF)

LES
T
OF TESTSR(CRY
LIS
RCCE S TESTA<«CR> <LF>»
CONTROLLER

3
-ReEl
GRisil DEOLSY
gueQil O41411]
103570 03055“
ng
Ci
R
83711?
{03658
aTe
004462 042s04 .ASCI

103663
103718
103741
103767

1249
124
124
124

104167

.RSC
124 031061 8:3811
043011 .RSC

004463
004464
004465

0S1104
(047506
047506

.ASCI
.RSC]
.ASCI!

873
sTH
475

DEVICE RVRI#Rg#S STE(CRY><LF>
«(CR> <LF»
- 183¢«CR> <LF>»
FORHQT ZEROS - 16g¢<CR> <LF>

ngé

FORMAT

'?Ef
“?55355
033854 O930]
109948
.R3C
85}
Y4
838224
{04079
.RSC
11
124 030461
104141

2718
8710
11

031461

#7113

124
104223
464 04;
030524
104270
043011
032461
124
10432S
043011
306
124
104363
46 (0]
104424 (030Sed
BoR
el 043011
g SUE{24 031462
iO:bég
1%:2%0 03115: 03 52@ 8:
043011
lev
4

HOB

.ggCi
.RSC
.RSCI
.RSC!
R
.RSCig
RE
.

.RSC

eT1lY
8718
3719
8Tl
B
g;ga
a; S
89

Lk
> M eaccry
&Sg“
?"‘%‘g“
LF>
ERROR3<CRr<
HCE
H/
K
FSSHQT
1 (CR)>¢«
gx
FORMAT
-1 <CR)(LF)

RROR 3<CR>'LF>
R><L
E
2%
I
HUL
FORMAT
)(LF)
Sk CHINOS‘CR
FORMAT WW HE TR
R SEEKICR> <LF>»
FORMAT
K3<C YL
FORMAT H/IHE%XED
el
CE
FORngT Lflsgoei g(cgag%F>
anggr Im& 5 Sangogsggéeégm&f;
FORMAT CHE

>«

L i&s Qi

B o8BS BEN R 8D R
1l .RSC ngg FORMAY RROR T -1 3<CR)<LF>
124 1
105121
S e)
Bl 5 HiE R R ID o
igg%ga 88%8?; 004465 049506 .228 ?gg?( £y FORMAT HC éCOND HERDER WORDI«CR> <LF>
104737

105074
11

031524
1

004461

0S3111

042520

.RSC

RMAT

SSS(CR> <LF>»

YL INOE

813l

IvC FORHRT TE (CR>¢

)

<LF>»
OPERATIONAL SWITCH SETTINGSJ<CR>

)

040522

-ASCI

106322

047411

%ga}é

07537

0S753?7

. gg%]

?CR) (LF)»o»»oro—koooffiootrooubkvo&bta(CR) (LF>

106420

053623

0S2111

044103

.ASC

dSWITCH

1823?2

105436

026455

6455

26465

RSC

8- - -

3d I1a
OOwass -ACIT
036936 08942
102oa; 020010
.ngc
038:“0
848
105241
] 12
.RSC
040 804‘-6 80446 .ASCII
105603
& 1l
Q40 030440 00446l
106613
4

105¢e4€
108672
138717

040
020040
040

030440
034440
020040

SETA

004460
00441)l
004470

.RSCI
.ASCI
.RSCII

d
o
&

10
9
8

USEZ<CR> <LF>»

e=memeec—ecccccccoo--- d<(CR» (LF>

ON SEGTatCRy (LE).
1050
INHIBIT ERROR TYPEQUTSA<«CR: _F>
¢

S(CR> <LF>ITERARTIONSI<CR>
(LF>

INHIBIT
BELL ON ERRORg@<CR><LF»
A
R>
LOOP ON ERRCRa<C<LF>»
LOOP ON TEST IN SWR«?7:0-a.CR «_F

CoRMDBO RMO3-2 FCTNL T1ST ¢
CZRMOB.PL1
23-NOv-77 12:19

105757

105774
106010

106024
106040
106053
106066
106101
106114
10611

040

020040
020040

020040
020040
040
020040
040
00S01S
00S01S
000001

020040

033040
032440

032040
031440
020040
030440
020040
0co0

MACY1l 30(1046)
23-NOV-77
12:38
ERROR MESSAGE STRINGS

004467

004411
004411

004411
004411
004462
004411
004460

.ASCII
.ASCII
.RSCII
.RSCII
.ASCII
.ASCII
.RSCII
.RSCII

.ASCII
.ASCIZ
.END

@&
@
&
&
&
&
@
@

&
S

4
3
=@
1
O

<«CR><LF>
<«CR><LF>

106

PRGE 280

CR> <LF>
TN1288
TNEHI
(R (LF>
TIN32d<«C> (LF>
TIN1BJ<CR> (LF>
TNB@<CR> ‘LF>
TNYGCRY
(L P>
TN2G«CR> <Lk>
TNL1&<CR> (LF>

SEQ 0280

1360
1403
1404

Q47656

8083

8271

RDDW1 = 000000

1360

1406

RDOW10=
RODK11=
ADDWI2=
RDDW 1 3=
ADDW14=
RDDK1S=

000000
000000
000000
000000

RBDWe = Q00000
ADDK3
RDODWM
RDDWS
OW6
ADDKW?
ADDWB

=
= 000000
=
= 000000
=
= 000000

ADDWY =

000000

ADEVA== 000000
000001
RDR

RENV
= 000000
RENVM = D00000
AFATAL= DOO000

AMADR1= 000000

= 000000
AMADR3= 000000
AMCORN=
AMS1= 000000

1360
1360

1360
1360
1360
1360
1360
1360

1360

1360
1360
1360
1360
1360
1360
1360

130

000000
003000
000000

1411

1412

130e

35678

3568

46708

46718

4672

48708

4B3l1s

3818

39848
5338

63378
S- 52
65568
71698

60958
65578
7170

1360

1368

1360
1360
1360

1360
1360

1371
1372
1363

1398
1382

1360
1360

13%
1368

1360

1360
1360
1360

39858

398,

5497
61808
6703%
7308

S660
6181
ggsg

9526

9541

1391
1394
1397

APTENY= DOOOOI

125538
12087

12509

12551#

APTSPG=

11897

12811

125528

12318

100000

RFTS1Z=

000200

003100

3268

125508

3650

38168

4ysges

4S03s

b2bes
68788
7544

S80S

b2b3s
6879

SB806s

5807

S9S0s

9545

9792

9796

12555

50198

S020

S177s

b2bY
70308

1362

1360
11802
1189

36498

M316

1383

9511

APRIOR= 000000
APTCSU= 000040

36488

43158

1369

949

APE__

3612

43148

1330
1393

1043

10328

M4B32

S4<6Es
609/
6702y
73074

1365

= 001000

4155

54958
60968
6558
7306s

1360

RPASS = 000000

41548

3610

12332
1395

1360
1360

1360

AMTYP2=
AMTYP3=
AMTYP4z

1408
1499
1410

35668

AMSGLG=

AMTYP]=

1407

3525

1360
1360

AMSGTY= 000000

10326

35248

AMANSI=
AMAMGS 3=

AMAMSY= 000000
z

1375
iN0S

o
n

ACPUOP= 000000
ADDWO = 000000

1401

n
o

RACKSTS

SEQ Oes!

PRGE 282

CROSS REFERENCE TRBLE -- USER SYMBOLS

125¢s
1360
1360

JOb

ABRSE = 176700
RCDK] = DO0CO0
ACDW2 = 000000

12:38

-8

23-NOV-77 12:19

23-Niv-77

NN
LW
n@— 0O~
£ N
— VW NN— 0

CZRMDBO RMO3-2 FCTNL TST 2

CZRMDB.PL1

MALY1l 30(1046)

S1788

64098
70318

5179

64108
703e

38178

4SO

533648

S9S1s

6411l
7168

<oRMDBO RMO3-2 FCTNL TST 2

CIRMDB.PLY
RRGS

Q0000

23-NOVv-77

12:1
3669

44lg8s

49768

<J¥ ]

§5558

S72768
60238

RSWREG=

RTA

000000

100000

Si108s

47608

479 8

)

78S
.

6028

101es

9323

1360

BRCK

36698

12028
12018

1373

1364
10786
3484
1367

1374

1360

1400

4820
49768

S164
528ls
4
SGSSs
Y4
67768
5911

67808
6903
?0a9s

4B888s

46498

4658»

46918

43728

440N

4411

5267

819

7198

7268

§733%

57628

57698

64688
66768

64758
66838

64828
6723

64918
67738

75138

756448

76118

Ye6s

4338

87848
ol )

9074
1528

9148
61598

€32is
61668

S9308
5188s

8984
1898

9493
2e’s

69634
722348

69728
72418

6448

74688

8537
854S

8539+
8S47#

BG40
8587

8541

8584
1558

100S9

10094

742

374Ss

39%0

3963

63898
66388

Y4y0oe

49208

all

74480

100s8

4133

52358

74338

9326

43358

39138

41268

S1988

48168

741848

9324

4oN2 N

39064

Sle4s

64308
66698

74864
8543

10097

10589

3749

3752

3967

3972

46848

49278

54758

S971s
348
70038
7271s

49348

54828

60098
6e4ls
72017s
72828

49658

Se74s

SS16#

bBO168
6248
70518
7293
76188

8588

10590

10629

10632

12555

3756

378148

3785

3788#%

3978

400S5#

HOXQ

404es

1255Ss
1399

3710

37388

40898

42938

4297

43008

4304

3953

41758

4180

44498

N4B8S1is
4980

4856
5039

4610
47608

6818
780
C91ve

Slel
5309
€437
5c88e
5686
S78Ss
S91i8

61598

163

4093

41198

4340

43728

Youle

44s§

Huggn

Y464

45238

48888
SO4Y

4892
S0768s

49208
S

4924
S108¢

46358
4764

433Ss

46
47678

464 n
4?72?7

1648
313
SH408
6592
7190
791
S32ls

168
3168
SHNM
6595
§723
58268
£325

1988
C
N84
S99
7268
831
S930s

bl668

170

6288
63898

63cls
6393

6784
69498
7083

67878
6953
709t

38748

4ele

6056

25290
43

39568

3842

4elicoe

Y-4 ]

bSe6
66388

4851

46358

3874#

41198

1578

4086

6cB83s
6386

4300s

40898

1508

40828

4338
569

42938

38378

40B82%

4079

51578

3804#

Y6068

407Ss

46068
4?7

42868

3795

40759

63828
66298

BS36#
BSH4#

39498

6027

65228
6633

4O4eo»

45998

38378

60238
6156

37884

]

38!

44188

46
47288

38048

4148

37818

Hgggo

3799

41428

SEQ 0282

63758
66228

8430
8489

3924

3920¢

PRGE 283

4
158

7708#

37068

37958

7683

3792

]

8498
1448

8461w
8460

1360

1;0

?8420
338

14844
14838

76650

718
758

73898

76548

33.
039

Hssgl

48
'}

;6 78
s

7524

97248

MN774s

38 .

KOG

-- USER SYMBOLS

42Sis

"
s

2:38

You4s

737Ss

AVECT2= 000000
= 000000

45238

4yales

73284

rd-Y-4- ]

12S3s

= 000400
= 061000

Y4604

417Ss

b
]
65778

AVECT1=

Rl6
A17

Y4498

288
65368

1360
10498
3466
1360

120254

37458

39638

63cls
65298

RTESTN= (000000
ATNMSK= 000377
RTNTBL
064779
AUNIT =

AUSKR =

7388

9568

62838
65228

67808
7089
001500
00147¢

37068

39498

472288

-NQV-?77

CROSS REFE ENCE TARBLE

33208

Yylyes

RSNDA
ASNDC

MACY!l] 30(1046)

4646
N?7748
5203
£323s
SH?S
S602H
§?730
SB6Ms
5936

3878

33068

4123

Ylc6s

4130

41338

44048

4408

Y4lls

441§

Y664
4809%

46918
4813

Y640
4yslos

527
S4eh
s
SS21
S649
e
§773
€907s
6020

You4g

4251

4255

qseg

45608

4S6M

45528

49348
S119

4938
S122%

4376

§733%
S868
59718

5239
63578
c479
S6308
§737
5871
5976

52678
§362
S4828
5634
57628
$87S
6009

5271
53948
S486
S6378
5766
58788
6013

62748
5398
55168
1
S769%
5882
60169

6238

624l

6245

62488

43278
6112
52358
€327
S47Ss
5606

4931
S115s

6070

60758

6325
64308

63288
6435

6332
64688

6335
6472

6339
6b47Ss

63448
6479

6791
69638
7100

6835
6967

6R39
69728

68428
6877
71338

6846
70038
7137

6849
7007
71448

65368
6673

71038

6540
66768

710?7

65778
6680

46588
4806

60668

6533
66698

4262

46563
4802cs

6063

6193

425848

39138

Y6498
N778

0538

6188

3910

bo34s

6582
66838

66158
6687

6081

6i048

6349
64828

6£37Ss
HYB6

6853
70i?s»
7148

6£85S8#
7Cel
71558

6619
67238

6622
67¢8

49658
S126

3917

4137

4o86#

45Q9q9s

4
S150#s

6109

61521

6379
ATIE]

6382
AL

6626
6773

6864
70S1s
- 159

B2S2

66298
Yo

6898%
7056
T189s

CoRMDBO RMO3-2 FCTNL T;T 2
CIRMDB.PLL
23-NOV-?7 12:19

BRDSCT

I
8800

B8Ol
8802
B803
8804
B80S

8806

=
=
=
=
=

7194
73288
7482
76258

72278
7333
74688
7629

122ls
1139s

9712

Q34714

81774

000002
D0OOOO4
000010
000020
000040

11389
11378
1136
1135s
11348

= 000010
= 00000l

100

=
= 000400
= 001000

1132
1131
11308

BITO0
81701
BIT02
81703
BITON
BIT0S
BIiTO6
BIT07
BI1708
81709

=
=
=
=
=
=
=
=
=
=

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

9i8s
917s
9168
915s
q14s
9138
9i2s
911s
9108
3098

BIT1

= 00000l

= 000002

7231
73758
7472
76548

7234s
7379
74868
7658

7238
73828
7490
76658

3634

3636

8999

SE@ 0283

7c4ls
7386
75138
7669

7245
73898
7518
76838

72718
7393
75648
7687

7275
74188
7569
77088

72828
7422
761l
7713

7286
74338
7618

72938
7437
76188

7297
74488
7822

1022
1040
1039
1039
103
1075
1057
10596
1033
103e

1041
1078
1077
1076
1094
1093
1074
1073
1055
1054

1079
1097
1096
109%
1135
1134
1092
109!
1072
107!

1098
1138
1137
1136
1220
1219
1133
1115
1090
1089

1139
1224
1223
1151

122%
1240
1239
1221

1241

1238

1204
1132
1131
1130

1218
1150
1202
1201

1237
1203
1215
1214

1217
11982
12000

12098

11338

BBQ?
BB08
8809

BITO

LO6

MARCY11l 30(1046)
ES-NOV-T’
12:38 PQGg 284
CROSS REFERENCE TRBLE -- USER SYMBOLS

9288

3313

927
926
925
924
923
922
921
920
919

954
953
952
951
950
949
1021
1020
938
997

1003
1002
100}
1000
999
1036
1035
1034
1019
1018

BIT10 = 002000

9278

1289%'

8467

8625

9729

1031

1053

1070

1088

1114

1129

1149

1200

1213

1236

8ITIl = 0O%4000

. 90;

948

1016

1030

1069

1087

1105

1113

1128

1148

1212

1235

8095

BITle = 010000

9068

305s
‘;‘99‘48.

1015
1014
1013

1029
1028
1027

1068

1067
1066

1086

1085
1084

1112

1127

1234

804S

1233
1209

12082
123¢

8010

8?138.

égés

1026

1065

1083

000004
000010
000020
000040
000100
000200
000400
001000
033736

9268
PSs
924s
9238
9228
3218
3208
919
786l

8999
8123
B073

11171
11277

11258

B022
3308

900S

7879%

7882

7897

BPTVEC= 000014
BSE
= 100000
BUFFER
103SEH

93Ss
11448
8192«

7895#

79438

7446
B4yl

7457
12555

8373

%16

3973

3997

7674
3974

7708
4101

B1713 = 020000
BITIN = 040000
BITIS = 100000
Bl12
=
BIT3
=
BIT4
=
BITS
=
BITe
=
8117
=
BI1T8
=
8179
=
BOTADR

BOTFLG

BUFONE

033740

103566

78478

3661

5190
€953

i
4

996

78689+

3805
5349
6869

7575+
3806

1017

7832

3829
5508
6690

7577¢
3931

5673
7043

1104
1103

1126
1125

1147
1146
1148

1211
1198
1156

1210
1197

1102

1levy

1144

1158

1196

1208

1231

7997

Y143

4167

4327

451S

4659

4683

4843

SQ31

H427¢#

4474

4487

4617

4660

4943+

4989

7942

5786
7181

5818
7320

5831
7337

5963
7339%

6076
7341w

6275
7468

gyee
477

6569
7509

6715
7556

MACY1l 30(1046)

C2RMDBO RMO3-/2 FCTNL TST 2

CKSWR
CLEAN = manusd U
CLKRADR 001502
CLKVCT 001504
40
=
CLF

CLRSTS

773

CMNSTR

772

706M

CMPERR

)} 10£.

3338

73.

s
1
]
1
1
Ss
125551

CNSLDE
CNSLO?

064376
064423

34
3442

125558
1
S;t

CNTCLR
CONT

= 000100

= 000015

341

3573

10928

8438

gy4s
141Ss

DBCK

D8L

= 002000

DBEN

DCK

= (40000

= 100000

DOISP =
DE
=

B
DISPRE

DLY
DMD

177570

11
000174
=z 100000
z

z %6
DPE
DPEH] = OHGJ&D
DPELO = 020000

DPR

z
DRQ
DRVCLR=
DRVSTS

DRLP

0S221M

s 09(73 o

TRSTS 6538 1

DTE

010000

(0]
=
01000C
ODULPRT= (eou0cH

78764%

7880

788S»

78964#

79448

8963

8967 #

8969

8994

34e3

1255Ss

Yl4e

4658

§78S

S930

607S

6858

8690#

8012

101478

787;1

968%
1015S

5354
1255Ss

6501

6648

6812

Jyo4e

4767
Y

8341

10871s

125554

125558

CRLF = DO0200
001326
CTLFG

CYLMSK= 001777

?8?8

3383
3392
3397
08

0Ob4342

6201
7675

124488

064130
064158
064236
064

CNSLOS

6117
7636

1209

7895!

CNSLOL
CNSLQOSe
CNSLO3
CNSLOY

6077
7478

12 é
125S
891l
#
g

115700

064071

6034
7459

11
7462
14658
1'4920
‘}’ 8

(0S71e2

CNSLOO

5932
7400

S744
6982

3386

5889
7253

§787
71158

S00e
6860

11558
;é:gi

I °°“go§§°°oo
CHRCNT = 10491L]

SEQG 0284

PRAGE 285

CROSS REFERENCE TRBLE -- USER SYMBOLS

23-NOV-77 12:19

CZRMDB.P11

12:38

23-NOV-77

MOb

l&gl
s

11652

11961
11657+

11941

11351

12588

3S12%

11912
]116M3

1043

8366

8698

9654

9674

11264

11267

#
B
3264

3264%

12022%

12074s

1134;

113496

9160

9440

9936

1047S

10896

11317

1029S

10761

9226

Q227

10097

10294

10295

10761

3956

L 10)

4eSl!

7234

7282

S433
6382

S47S
647S

7864

gzgg
8628

10668

12368

10268
;

90
)

13368
12638
{ggg:

15 ]
1

)

12338

1336

9498

égzg

3256

]

373

10198

10097

10294

8238

107408

220

10749

39 Y g

9127

5283

92%3

1050:

35 1

o
€871

4927
S91Y4

4976
0l6

‘5’6%3

10298

104

11130

11148

3632

3636

3639

6 Hg

1068s
11088

7893

Sl%?
6159

11161

S274
624}
7382

§316
6328
7433

4293

7448

11320

441l

4460

7468

’618

§53%
6529

4599

S637
6622

7665

c726
6676

S769
6-80

CZRMDBO RMO2-/2 FCTNL TST 2
23-NOv-77 12:19
CZRMOB.PL1

MARCY11

NOB

SEQ 0285

PRGE 286
j2:38
30(1046)
23-NOv-77
CROSS REFERENCE TABLE -- USER SYMBOLS

o—v=tld —=NYoMUTeOt4IVN —=YUB@No~tLOVT—U~o£OWwVDNynOM~T [p—=oOUlYI0e4Tw+t¢UOM]LSAIPRNtS —oQUYW=e-NTytoVIOM1DO[TS—NUONYNOV0T (]ODS[No—WVCDO0 &w—TO~8VDU—nNMO~T0N —-O—0T=-CO0OC0O—NrOCOTITM
-l-4

o}YUUTYAUVCLARYS[(VYeOI=—=MeI—N1f—Y8]1alLatdndandadungsdolaolaulneoleelevl|lDMUTNYU~MVU~=Ya~4—tM—tLHOvotRT4o8]=[+
-4

3&7O4~3

[.=X]8

»]

—

o=y

-g

-—

—

IVININIV(IR115x“w5—0JNNUVNINON|.|.
1W|e1s[=47]gVN)]-t7L=]7»1}0N51]UV62NIVD7L4T74814T49F71O%YI92U03Y19=7=8Dq—wN—1t=|4=Xg2gLVn=]NVum4TM=m(L=o.t

YENT)IVIVV[DINwINIVw325.5Al.5l.9mT—au7l)Mn.wln%.mlun.V|)lN[N]7@].~~}[]4.x-=&.l4»".w5?oO70M_:5T1D73O620&lVO487.NNl609.%ib26\9—370UlYTHO%M8UM.Q1T—%YIM3D21F0OO—2%?I0N3P—55UD%—1¢7O6H5—W2Nt%=73O—849Ttot74=4o=g719,17,=|7NOvwgeo-5=dIy»~H0(-wow1nWYgN=x-eO»“ot
5Voo—)] o—@—mnwa 1HOVO—}—O~0QO¥WN[nMyOMDOTNN=NWO~E—ME~—T=NRMU=—TIUOTNNNRtO~ME—= T oSLCRo-uGnoCeo—rNAnO wnCKE
Oo—OOSDyT}RMoVT4GNU OVNVTNGUeTBIoTVsIABOV—aA~UTYNLM~TINaEVUNegMVHTrV—TgT~1coNDTRSaR=OONLoU—CVnLh—NIDT—TR0E

- TM Q= OPONTY O~
30SS

%
“
7
;
0
[
”
V
N
3
a
l
5
]
¥
e
5
l
e
“FFILXIXFMIroITFIIl|oaEJTHXInXdseuaBhlSodftm,nB0W”1N&”.m3Uo[me—%J~tl—wfl.7mWSANA7mMwNOOOL.SRLBIUORUCNROYT, [JoO{3NU?~T(—=]IYq.ONUV~O]Y%O.92ql.;fN5S1S5SxiS51S
3062
3069

3076

3111
3118
3132

MMITOWIVNI ~O0QNoQ—M0@O
@om

CZRMDBO RMO3-2 FCTNL TST 2
23-NOV-77 12:19
CZRMDB.PI1
PAGE 287
12:38
MACY1l 30(1046)
23-Nov-7?7
CROSS REFERENCE TRBLE -- U SER SYMBOLS

BO7
SEQ 028t

3139
3146
3183
3160

—U=tM=~ bLVToIRlAyoOV)

IUDHAUANILANSIASIsAlsAltsIAsI.ImAs1s1g1sS1s1s1s11s!&s11s1s1s1s11sg1s1s1‘1111
a 438

0—UY4—4U=D=URSRvYN=TDBUPMF)ADRT)DUTTA=fTTMlTNlDt=FUSRlNUGTfINee TDlTTPD}TPN$K2T=foRlRLDdSY}LES2l27UPdiM»=tEDTdRANSoE=Rd0tN=leTiOALltNN=dPNMlRNo0tR=lr-etDdetNoolrSNmdfSRKNrlNd8NvlroDSdegrdsNonfmNomdf0r=oNldL=gr4NdoNorl-=Nttoolhorod=rt

LPEWy)aWeWyIWIgW4eW[sWIFRaVe(W[sVEIFV[WIPVIFYTLiwgWTilWildiAWmW]mIRwW&ATuNzIaRxTs&WaWxa(AWx
CZRMDBO RMO3-/2 FCTNL T
CZRMO8B.P11
23-NOv- 4

6223

§71§:19
MACYLL
30C4ade) ER

cO?7

N~ 2

12555s

82738 cFRCE, 8B <

SEQ 0es?

CZRMDBO RMO3/2 FCTNL TST 2
23-NOV-77 12:19
CZRMOB.P11
EMS16S
EMS166
EMS167

EMG17
EMS170
EMS17]1
EMS172
EMS173
EMSI7Y
ENS17S
ENS176
EMS177
EMS2
EMS20
ENS200
EMS201
EMS202
EMG203
EMS204
EMS205

EMS206
EMS207
EMS2]l
EMSe10
EMS211
EMS212
EMS213
EMS214
EMS21S
EMS216
EMS217
EMS22
EMSo20
EMS22]1
EmMSoe2
EMG223
EMG224
EMS23
EMSN
EMGS
EMSep
EMSS7
EMS3
EMS30
EMS3]

EMS33
ENS3Y
EMS3S
ENS36
ENG37
EMSY
EMSH0
EMSY]
EMS42
EMS43

077014
077030
077055
072672
077102

125554
126558
126558

077164
077
077821
077027

125558
125558
125558
125558
125858
125551
186558

077514
077541
072655
077566
077577
077615
077640
077663
077701
077722
077
072700
1
100025
100075
100126
100203
0727149
072742
07277]
0730
073027
072112
(073040

125558
125558
125558
12555a
125558
125558
125558
12555
125558
126558
125558
125558
125558
125558
125558
125558
126558
125554
125558
125558
125558
12555,
125558
1e55Se

077131

077255
077304
072075
072632
077326
077343
0774911
077441
077454
0775

073050

073077

073126
073154
073225
073254
073303
072155
073331
073360
073406
073435

125558
125558
125558
125558
125558
125558
125558
12555a
125558
125558

125558

125558
12585
12555
125558
125554
125554
125558
125558
125558
125558

MACY11 30(1046) 23-NOV-?7? 12:38 PAGE 289
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEG 0288

CZRMDBO RMO3-/2 FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19
EMSHY

073464

EQ?7

MRCY11l 30(1046)
23-NOV-77
12:38 PRGE 290
CROSS REFERENCE TRBLE -- USER SYMBOLS

12555

073537
073602
073631
072220
073660

125558
12555
125558
125558
12555

EMSE2
EMSBE3
EMSEM
EMSES
EMSBE
EMSE?
EMS?
EMS?70
EMS71
EMS72
EMS73
EMS7Y
EMS?S
EMS?
ENMS77
EMIVEC=

074177
07421S
074243
074261
074327
Q74377
072315
O74M4
074436
074451
Q74461
074476
(07451S
074523
074554
000030

125558
125558
12555¢
125558
12555
125558
125558
125558
12555
125558
125558
125558
125558
125558
125558
9388

EMTIO
EMTIOO0

065502
066500

1567
1964

12555s
12555

EMTIO03
EMTIOY
EMTIOS
EMTIOb
EMTIO?
EMTL1
EMTIIO
EMTI11
EMT112

066544
066556
0665
0666
06bbl4
065506
066634
06bb46
06bbSY

1985
1992
1999
2006
2013
1574
2020
2027
2034

125558
12555
125558
125558
12555s
125558
125558
125558
125558

EMTLIY
EMTIIS
EMTIIE
EMTLIL?
EMYI2
EMTI20
EMT12]

066676
066704
066714
0e6724
065512
066734
06b744

c048
0SS
2062
2069
1581
20?6
2083

12555
125558
125558
1255S5s
12555¢
125554
12555

EMTI23

0Oeb784

EMSYS
EMSHE
EMSH7
EMSS
EMSSO

EMSSI
EMSSe
EMSS3
EMSSM
EMSSS
EMSSE
EMSS?
EMSE
EMSE0
EMSEL

EMTIL

EMTIOl
EMTI0C

EMTL113

EMT122

073707
073735
073747
073761
O
3
074032
074107
072250
074135
074

065432

066516
06bS34

0667C4

125558
125558
lggSSl
12555
12555
125558
125558
125558
125558
125558

1518
1971
1978

2041

20980
2087

3239%

125558
125558
125558

ISSSSO

12555
12555s

3240#

SEG 0289

o4SU8089IS?54dR0?5SN2AU4EK3401RHK2R6SR2R5&LO3SQN4N1&RN8KLR5ET2w93T68SU%5N0R5QS7H2O04wE2W3O7R0“RN81IR328NSH50S2ERA9G“RP%(DA53ORNO9VNL0%IA7UN47SwDYUR5OLDN9ALNPURFRQUUENmoQLPY0UYQMN1TAU2(q=RSYI=xNT—4mP=a=T~D)LsfB)N=O—e4S—=~aNaE4~=E—S4qMA—=2tstuN4URaT=4SoMO=hNt7I4TqNRDOL)lT=O4BN%O4eWLN=RAt%ODoNTt
A—LNDEUBe¢UW—NVd§raIBdoNRgNaSUdr8IAaLeVdYWNBvLSfEardLRtTT(alYdV8OBA—oIdyrE2=Nav4d8U¢1N=WiE2R=—ag¢dBVLR—ao4d2v4aLIldR=gWatSdYEaodA=eWNV2=fa4dNoao=IR2YdoNYBEyoaTLotd51Nooao=dStlaod+NeSWB—NEX=affdoeHal]dYBBoSoSiUllo~IT+lldWOPTogSolUfH)NIeRoGlSlReTLmlldToeSll]ByoS=l=loY4=S}lRVe)o}VSeG)RlIBSl4er4lo=VtIeErlSVT=T.Se}eVlTe.YlVSIeOvb.yllRVeuTe=.lllVSneA=u.RlelVnIeoo.—Yu=TdSolEe=.DUoRolI.~SVReLT=lLo.UVeoI=oG.EllVUSIg9.=VoIGelB=oL.gVSoI=lIo.VUoRLIo=l=tl.VSoL=I=lL4ID.BoooWelV4.ILSe)vRl=LWB4V.oUIoIolt=VL.IS=SIooELt=W.oL"PLWl4V
CZRMDBO RMO3-/2 FCTNL TSI 2
CZRMOB.P11
23-NOV-77 12:19

MARCY11l
(1
30(1046)
23-NOV-77
12:38
PRGE 291
CROSS REFERENCE TABLE -- USER SYMBOLS

FO?7
SEQ 0290

067666
067676
067706

2448
24sS
246
1630

2469
2476
2483

it FRLERSREREGRY B0 ZRo0RE

12555+

s
s Bt B
s 9t

070410

e 0

EMT26E

nnnnnnnan
nunnnnNUN

e P
Pt
s et B

s P

070216

125558

Bt Bt Bt

Pt Pt Pt Pt P

SRIISIIISSRIIISIIIINGS
Fooegeecen

490
49?7
SO4

3-NOV-?77

CZRMDBO RMO3-2 FCTNL TST e
23-NOv-7
.Pl1
12:19
CZRMOB
C

EF RENCE

12:38

TRBLE

GO7

PRGE 29¢

-- USER SYMBOLS

SEG 0291

2ErRR A

EMTIN3
EMTINY
EMT3NG
EMT 34

EMTIN?
L X

Sse

3 -X J
-[ X

wn ot
n ununnonnnn

P Pt P P

s Pt P

AR RN ROARAR R B

Pt P Pt Pt Pt Pt Pt P P P Pt

3 SssssssseesEsERES

NN
i
i

s Pt Pt Pt P

BeSL7E
070676
070710
070722

unnnn
[1)] Ty)
[CA VA ITATT

P Dot Pt Pt Pt Pt Pt Pt P

RO RAR R R A AR B0

et Pt

MY
MY

e Pt Dt res Pt Pt P

L &

1 3O

Pt Pt PPt Pus P

4 L. 2 2

182223
J

1255Ss
125558
uin (12,92
92 104 V]
unn [Falva
Vg Vally ¥4

Pons P

§§§’%

nininnninunn

5828

QW1 Ta b (AN gV AV IAVIA Vg

ie73

2806
e8ly

&
£

ey ey =

D65H4Y
065666

EMT
EMT304

LWUN—00
WO ORNND—

EMTI
EMT30
EMT

0Q704Sy

[

MACY1l

070440

WLWwWWwWwWwW

£99I9IIIIRIIIIIVIVNIIRGIS
£E£5LEW
U PN 0= 0 b e s pen e ) )
LMNV—O
N
oo L£n §Q¥V8
KEXES 2 R8or

ENT270
EMT27]

00000000
NNNNNNNN

i B2eEE

CZRMOBO RMO3-2 FCTNL TST 2
CZRMOB P11
23-NOov-77 12:19
30(1046)

CROSS REFERENCE TABLE -- USER SYMBOLS

SSs

125S5s

23-NOV-?7
12:38

HO?7
PAGE 293

SEQ Oe9se

MACY1l 30(1046)

CoRMDBO RMQO3-/2 FCTNL TST @2

CZRMDB.P11

065736
O714S4
Q71872
Qr1c02
071506
(07]1S16

EMT3S
EMTISO
EMT3S]
EMTISE
EMT3S3
EMTISY

066046

1727?7

06
066036

EMTYY
EMTNS

EMTNG

EMTY?
EMTS
EMTSO
EMTS]
EMTS2
EMTS3
EMTSY
EMTSS
EMTSH
EMTS?
EMT6

065460
)
066074
066106
066 124
066142
066152
066 164
0662
065466
o6b2le
066230

EMTHE0
EMTE1
EMTB2

066250
066264
066266
066306
066326
066340

EMTE3
EMTEM

EMTES
EMTEH
EMTE?

EMT?

DESY7Y

ENRGDT
EQUALS

065432
063573

EMY?0
EMTZ]
EMT?2
EMY?I
EMT?N
EMT?S
EMT?
EMY?

ERR

066
066
066372
066410
06b4Ch
066436
066456
066466

= D4

ERATYE 033176
0004

ERRVEC=
ERY YOI
EFRTDL

033742
0337t0

125558
1255S+s

125558
125554
125558
125558
125558
12555

1255Ss

125558
1255SSs
12S5SS»
12555
125558
125558
125558
125558
125558
125558
125558
125558
125558

1784
1546
179}
1798
180S
1813
1820
1827
1834
1841
1553

1849

1857
186S

12555s
1879

125558

1886
1893
1300

125558
12555+
125558
125558

1907
1914
1921
1929
1936
1943
1950
1957

12555
125558
1255S5s
125554
125558
12555
12555
125558

125558

1560

125558
125558

1013s

9269

JB2ae
fBcgr
gesa
9318
.

10161

7614
’gee

SEG 0293

PAGE 294

1255S5s

1763
1770

3580
8914
8989

107

125558
125558
125558
125558
125558
125558

171N
3180
3187
3leM
317}
3178

1721
1728
1539
173S
1742
1749
1756

12:38

CROSS REFERENCE YABLE -- USER SYMBOLS

23-NOV-77 12:19

06575k
065452
065766
065774
066004
066016

065746

EMTI6
ENMT3?
EMTY
EMTNO
EMTHY)
EMTY2
EMTY3

@23-NOVv-?7

CBls
8918

8990

101S2#

79468
79478

9271

9287

9321

32S4s
382+

3265+
JSee#

3533
3587«

783

8919+
8991+«

101S3#

7BNN

89204%
6992+

10le4es

8945+
C01b#

10165#¢

3524
3598+«

8346#
9017«

11973

3535
3599#

3536+
8841
8958

3547s
8842
8959»

119744

119768

11879#

8957
9864

9865

9868+

3548+
88456 #
8960+
98694

3552
8847»
8966+
9902+

3S§3n
88°8#»
8974 »
9903»

3579
88;9!
897Sa

10150

CIRMDBO RMO3-2 FCTNL TST 2
CZRMDB.PI11
23-NOV-77 12:19
ERTYQ2
ERTYO3
ERTYOM
ESRC
=
FER
=
FIND

033760
033767
03377S
Q04000
000020

= 00000!

7831
7837
7933
10878
1{835'

lig:g

7142

36698

36718

37068

4043
4l4es
4287
Y4188
4600
47288

40758
4145
42938
4419
46068
4729

49768

4977

4076
41758
429y
4449m
4607
H?gg.
s
S039s

5c8ls

5282

5309s

3789
33208

5151

5427
55558
S64S
57768
S908
60238
6153
6c83s
6383
65228
6630
67808
63008
70898
7191s
73c8s

FMT1E = 010000
FNCOTB
FNCMSK=

000020

5157
64338
5556
Se8ls
??
9148
6024
61598
b2ASE
63r9s
653
66388
6781
63498

9508

4083
N2lew
4301
Y4608
4636
47678

7431

3739

37458

4089¢
4213
43358
H461
464os
4768
49208
5077

S3I

53238

38378
3957

7441

8366

3746

37528

4090
Yo44s
43378
4So3s
4643
47748

41198
H24S
43728
45258
46498
4775

4i26s
4252
Y4048
4S61
46588
4803

51088

S109

4120
42518
4373
4SEO®
4650
4g02s
4928
S1158

5324

63578

38398
39638

Sie4s

Si6S

1984

S2008

5434
55888
S683s
57858
5915
60528
blb
B32le®
6390
65298
66408
67878
6950

S4408
5589
S719s
788
9c2ls
B60OS3
blbbs
b3ce
64308
6530
bbbI®
6788
69638

Y4}
5958
5720
82bs
922
60598
6167
63288
64328
65368
6670
68358
6364

5488.
5596
57268
58288
59308
6060
61888
6329
b4688
6537
66768
6836
9972.

5469
56028
5727
5864s
5933
60668
61908
63358
BY4B9
65778
6677
68428
69748

73758

7376

73828

7383

73898

361

6115

125558
10748
92I1M

11192

921M

9788

9214

40828
N1778
43008
4450
46358
4761

37388

3807
39568

7290

5.58

7469
76548

9214

3707

38048
3950

7280

4889

74688
7626

73308

7152

48888

72278

7703

9538
3528

3736
3949

70968
7228

7554

9Sis

37958
392!

gGE7

= 000010

000002
000004

SEG 0294

794948
79518
7953s

1128

5816

9315
9558

=
=

7449
76258

064674
000077

FO
Fl

JO7

MACYLll 30(1046)
23-NOV-7?
12:38
PAGE 295
CROSS REFERENCE TABLE -- USER SYMBOLS

3995

8202

SO4ls

S310

7097
72348

50768

53i6s

71038
7235

74868
7655

7487
76658

6199

e4e0

4165

8631

104
Tedles

4921

71338
7242

75138
7666

7?5158
76838

6567

6713

4325

4513

8633

8704

38748
39bY4

439278

52358

3875
39728

5236

S4758
S603
57338
5865
€971s
6067
62348
6336
64758
65798
66838
6843
70038

5476
S6308
5734
cg871s
S973s
60758
6235
63448
B476
bBH1S8
6684
684398
Y

7390

74188

7134
72718

71448
7272

9601

11199

11216

11219

37818

3782

3788

Y133%
4259
Y41ils
4593
46918
4810

4134
42868
4412
4599y
4693
4BlEs

S116

4127
42588
H440S
4sg2s
4661
48098
4935
Sl2es

Sl123

S5150#

53598

53948

5395

S4eebs

3753

39068
3975

49348

52678
S482s
S631
57628
5872
6009s
6078
bo4ls
63468
64828
b616
67238
68S0
7017s
7145
72828
7419

3907
YO0Ss

S268

5483
56378
5763
58788
1
61048
k242
B3758
6483
bbecs
67258
68588
7018

68es

7113

7179

7318

11037

67738
6861

70Sis

55188
Se44s
5770
S307s
6017
6152
6249
63828
6493
66298
6774
68984
70S3s

7619

7612

9961

SS16s
Sb38
57?698
5879
60168
61068
b248s
6376
64918

5275

76188

74338

7blls
7710%

S0e9

52748

4366

7156
72938

75668
77088

4841

49658

3914
4042os

71558
7283

75648
7684

4e81

39138
40078

7434

7189
7294

74488

S188

S347

5506

5671

7427

7507

F4
= 000040
GENBUF
036620

9498
3665

9214
383;

4001

4171

4331

6573

6719

4519

4687

4847

503S

S194

5353

5512

S67

GEY

3626
4364
4996

3698
4396
S0e8

3730
Y4y |
S100

3773
44|
5142

3866
4552
See?

3898
4584
5259

3941
4627
5301

4034
4720
5386

4067
4752
S418

4111
4794
5460

4204
4880
5547

4236
4912
5580

4278
4957
see2

037516

ggfg.

711
6661
8nNes

536

5754
6765
8049

6279

5856
6827
8076

6426

899
6941
8099

6001
6995
gles

6044
7081
8229

6894

blyy
7125
8262

7047

6226
7219
8298

7188

313
7263
8332

7324

6367
2367
88328

7511

6460
7410

7560

6S14
7603

7707

6607
-5}

KO?7

CZRMDBO RMO3-2_FCTNL TST 2
CZRMOB.P11
23-NOV-77 12:19

MACY1l

GETBUF
GETINX
GETSTS

14208
14918
3693
5852
7077
1262
12460

8844
3623%
3861
5997
7815
3231
12451

3624¥
4029
bl4i
7363
7766
12452

4479%
4193
222
7999
7773
12463

44B0%
4359
6309
8024
12439

4994%
4847
b33
8075
12440

4995
4715
B45E
8118
12441

BO47«
4875
651D
B82le
12942

BO4B*
S0e3
BBO3
873k
12443

BO97¢
5222
B6S?

BOIBe
5381
6761

8790
Sc42
6337

BENS
§707
£991

12444

12446

12448

12449

spgs
5835
6732

5132
5888
674

520
5980
95

S244
B033
811

3846
4569

6291
L8
6918

3883
46l

3930
4700

4014
4737

4052
4784

4100
4860

M4184
4897

4221
4947

4268
5048

9236

9239

11133

8220

9002

9113

9I128

11232

11242

11248

12558

9571

001330
001506
037432

GNS

eemwas

00000l

9S4s
4344

7582

GTSWR
MCE

= 104407
= 000200

HCI
HCRC
LP

= 002000
= DOO400
103566

HELPQS

IRE

3286
10348

11199

11148
1033¢
3368

10R7° =< BO0043

ILRGS0=
ILRGE2=
ILRGSH=
1LRGSe=
ILRG60=
ILRGB2=
1.8CEu=
ILRGEE=
ILRG70=
I1LRG72=
ILRG74=
ILRG76=

000050
000052
000054
000056
000060
000062
O00BEY
000066
000070
000072
000074
000076

9562
1043
125558

9468

984
s

ILFE4 = 0O006Y
ILF66 = DOOOBE
iLF?4
= 000074

11229

10318

= 000056

ILF44 =
ILF46 =
ILFS4 =

000026
000030
DO0032
0000
000036
000040
030042
DOOO4M
000046
00DOSH

3507
1043

125558

g4ls

11908
12048
10418
9604
9708

=
=
=
=

7635

3362

000077
000100
000001
DOOO0G2
DOC02Y

ILF3% =
ILF40 =
ILF42 =

ILFS6

000011

= 0020

10XMSK=
IE_
=
ILF__
=
ILFo2 =
ILFe4 =

ILF26
ILF30
ILF32
ILF34

063603

9146

3678
4381

30(1046)
23-NOV-?7
12:38
PAGE 296
CROSS REFERENCE TRBLE -- USER SYMBOLS

3715
443

3762
4532

8253

S450
B353
7114

8287

5527
BM33
7138

6565
BSOD
7252

7673

B3bb

9564

9569

9584

11199

11203

11206

11242

11245

9780

9806

9952

9969

10468

10522

9342

1032

10422

10426

10468

10489

10408

10412

10676

10680

10683

10982

7714

12446s
7466

11136
'B366

B059
7476

7870

11910

11951

8858
12378
9340

6861

8931

976§

8108
7663

6934

536
be02
6981

6403
Bod2
2060

SEG 029

5690
geur
7339

5743
671b
7519

9586

9599

9614

10525

11026

11041

12585

10492

10982

10999

11002

12555

10985

10968

8321

9718
9738
9748
9758
9768
9778
9788
9798
9808
9838

9878
9888
991
s

0308 10362

10408

11769
11778
11788
11798
11808
11818
11824
1183
11848
11858
11868
11878

5612
EsBe
7346

9130

MRCY11

§VVWVVNQ*OVWV REnes
om:mggzgzgzg

PRGE 297
12:38
23-Nov-77
CROSS REFERENCE TRBLE -- USER SYMBOLS

30(1046)

701;

9383

11951

1255%

9146

10880

437+
8487

12555

10059
11103

10064
11356

9384

10546

10883

8406

10903

10917

10920

3sss8

9095

9039

9877

10648
12555

10760

11304

11307

10066

10362

10380

10384

9162

9174

9934

10468

VNN

DN~

£ 0

PRV IIRR=RoRANN
RN

10802

10937

-0

10589
11460

—

Seees

sssas

WAoo
NN LN

1
1

Y
s
Pt

oo
— oW
WOODOD D

Y T T TPy Wy Wy ey o=t
b= ) 0o
jolellelelall
ol lellle]
Ty
Y ey
Y ey Y N T

naunan

el
<4 I

HuwnNnEnNnNwn

é%
m
x

—

T NI

s P

XXX
[« TTS]

[

ré

39
233 29 5 ow
29

X3
]
mo
p ]

RRIRIL L 11
R

>4
o

SEG 029

3238#

Y Y S

Hanuwwwan

= L 27
¥

""‘O"‘"""""""‘
- UMMM n
£r—-WwWw £ L
"nN WD OO

CZRMDBO RMO3-/2 FCTNL TST @2
CZRMOB.P11
23-NOV-77 12:19

LO?7

MO7

CZRMDBO RM0O3-/2 FCTNL TST 2
CIRMDB.P11L
23-NOvV-77 12:19

MARZY11 30(1046)
@23-NOV-77
12:38
PAGE 298
CROSS REFERENCE TRBLE -- USER SYMBOLS

PGM
PHR
PIP

10760

= 001000
= 000200
= 020000

PIRG
= 665?72
PIRQVE=
240

PLFS

PRIERR

= D02000

040512

PROMPT
063S7S
PRC
= 000000

PR1

= 000040

10188
1091s
10148
IIHSS
gy
e

1088+#

3?7

SEQ 0297

8106
11492

8284
11497

10058

10079

10084

10589

10660

10665

10760

11356

11362

11367

3r8l

399?

3949

407S

4119

4286

4404

Y449

Y592

4635

4760

3S1M

3536

3582

8847

8920

8960

8392

9869

10153

11634

4058

4102

4191

Y227

4269

4351

oo
Yy
52

12555

86SH

8668

PR2
PR3
PRY

= 000100
= 000140
= 000200

867
ge8s
859s

11628

PR6

= 000

871s

32ed

g4ss
12008

846

4387

4y32

gggg

gg?

Hg}g

3889

3932

4021

68
7637

6818
7723

2218
8062

gégg
811

28&3
8221

982&
8254

828

8322

8908

9354

9355

401

7528

7591

3834

ugés

4053

4185

HE?;

Haqa

2332

:ggg

22;?

PRS

bS
PSEL

PSWK
PUT

00Q240

= 000340

=
=

PUTBUF
PUTINX

177776
002000

177776
037766

001400
00153S

870s

g7cs

B4bs
3685

14478
&MQ&I

S8
4

QSTMRK
RCLSTS

;

%92%

3357
8132

JOMMNI2
104413

12381
3387
53.

%cm z 1%411
=

ROLIN =
ROOCT =
ROY
=

g 8

063601
osm;g

REARDY

33%3
4

RECAL =

)

RESREG=
104415
RESVEC=z 000010
REX
= 010000

793
9328
10868

= 000072

RIP

= D0O020

RLERSE= 000012
RMAS
= 000016
RPMASI

001346

s
)

4
11648
14308

3721

3764

192
q779

g"N #
“gl

706!

3243%
3462

8307

3363

124508
3403
1

)

124638

7199

3853

91
3 47

6283

7347

2293
7520

4Y2Q?

2448
7583

Y7243

116

Zggg
771S

478S

920

2;33

8060%

42?7

2?88

3373

3376

34NN

3453

3424
03

l24S1s
910

9112

10200

?u*

828

10781

12555

1164

ouB

12311

12449s

6033

796

4948

631

5055

5308%
>

B06l%

B8l109%

Bl110%

8205

6118

6202

6353

6500

3244# 124SB8E 12459% 1246B# [2474r l2uBbR 12487+

125558
10459s

4303

5091

£909%
8918

6647

CZRMDBO RMO3-/2 FCTNL 1ST 2

CZRMDB.P11
RMARSO

RMBR

001416

= 000004

RMBARE = 0000SO

RMBA]

RMBRO

001334

001404

= 000036
RMCC
RMCCI
001366
RMCCO
001436

RMCS1 = 000000

RMCSII
RMCS10

001330
001400

23-NOoV-77 12:19
14578

RMCS20
001M10
RMCS3 = 000052

RMOR

= 00C006

RMOAT

001336

RPMOUS

= 000012

RMOCO

001434

6815

soss8

5247

YiCl®
SB18#
bHBle*
7705%

41678
SBB9*
6863+
B8203%

4327%
5963
6890%
862l

4515%
6034
BIB2*
8708

4617%
6117#
7043x
9711

4683%
B20ls
711S#
9714

H4BY3w
BO7SH
71Bls

3683
4741
5387
7353
9111
10198
3830%

3719
4865
6126
75¢2b
9114
10747
3g46#

3851
4901
6209
7589
9125
10880
3883%

3887
S0s3
6299
2721
9129
10882
3930

4019
5089
b446
8060
9131
10884
3998%

40S6
52l1e
6533
8109
9143
10903
MOI4¥

4189
sa48
6737
8211
9145
12555
HOS2¥

4225
537
67S1
8849
9147

5380#
H71b#
725cH

6933'
9 k3
3]s

6j1g%
747¢
46

be76b#
6B1l#
7510

2%
6891%
7S19%

H3SI¥
6918%
7557%

b423+
6981
7582%
9729

EHI9#
2044#
7635+

11171

3317
4468
9529

3543
497Y
9640

3544
4382
9712

3585
4984
10220

8848
3070
10917

8321
909S
10819

98744
9097
1692l

9876
9098
11289

1015S5#
9284
11291

10157%
93S5S
11293

7719

8210

9717

10ell

12555

3538#%
4573
5697
7067
9092
32
371S%

3584
470S
5842
7205
9109
98
3762

S9s

S3p4s
bbY7E
7198%

B8108#

3316%
Y466
K14

7204

7352

14258

H47S

7525

7588

49390

9715

14238
9236
19508

12448
4385
5832
6816
9001
9088
9222
36bos

3320
4537
S569
gg;?
S
9030
3249
3678%

5319%
6500
7060%

S835#
bS70%
71lM%

5t 3%
65 ¥
?7]go%

12478
14278
456

3315#
4458

12499

14528
S05i%
b3SH+#
7253+
11718
14388
14658

11608
4349
s407
8322

5568

77148

5696

3763%
S349»
6501%
7400%

seyl

3829¢
S508%
6569
7509

3931%
Sp73*
p48%
Sce#

B8220%

3397#
S744s
H71G*
763b®

B8253%

6208

8287%

6296

B832l%

b44S

8467

6592

862S

9213

6926

4100%

11343

11348

1137

12555

116ls
S692

3680
5837

3848
982

4016
9121

4186
6204

Y346
6294

4534
b441

470e
6588

4Yaee
6734

S0s0
6797

Se09
6922

5368
7062

5529
7200

14268

9811

9959
4S#

9963
3546

39944
5796
b4cH
8380*

11031
4479

H16N®
Sels5#
65468
838l

11033
4994

H324s
5820
BSY?7
8383

11035
8797

N512s
S340x
6S6bd
gu0l

46B0®
S941
B712%
B409%

4840
S360%
B717
B461

SO2P:
bll4¥
6887%
8s88%

S5187#
H138¢
6892
8624

S34e#
b272%
72040%
9737

5505%
8277
7178+
9738

9
983

4017
blee

4187
620¢<

Y3427
6295

4535
6442

4703
6589

4863
673S

S0S1
6798

5210
6923

5369
7063

5630
7201

3993%
Spb9#
1?823

4163%
SBl4#
6711

N4511®
5965
?2039%

N679%
6085%
7177»

4839
6086
7316

S027%
6113
?7S52¢«

SiBebe
B1S7x
B8200%

S34Ss
6271#
846

S504#
4igs
8587«

14548
12508

7348

7521

584

INE3s
S670#
6399
7317«

36C8#
5675
6400
7553

12555

14328

4486

S001

14598

001364

6750

7066

001422

RPHMOCI

4900

gley

9957
12488

= 000034

4740

5986

= 000022

RMOC

4572

3886

RMDB

001352

4384

Yoeu

3718

5406

SEQ 0298

PAGE 299

40SS

3542

001406

RMDBO

12:38

3S4ls

RMDARO

RMOBI

23-NOvV-77

CROSS REFERENCE TRBLE -- USER SYMBOLS

12468

11?8?'

RMCS2 = DCO01Q0
RMCS2I 001340

MACY1l 30(1046)

NO?7

3826%
§795%
6419%
8199

11708
5693

368&
83

14378

YoM
525
6563.

9823

6578
526
8;;5

12555

11628

BO4?

8097

7349

862

522

585

gSESI
Se4#
gggs.

716

7717

8206

8207

23¥yaomxaocANZRTELewm¥
meK.—-wT—O-DgNWoO——oVDl4—tMO~~sNTMT—8V-o—J0eNt—M~lOn=URnFtDTTeAIN)~NOMNeyMN.TyELw=OD--O3Kt4H5TD=IO7OLFD1Nw0oN0TLy8n\0CO]MO—(T—THooe.=—Kt—e—-w2Nty051O3(—)4‘)—5-7y]01311—A1=veg—ipQo=OL—HQ—MoOF=l44aqOotHmOl1u-o1=g0~M=—TM=WaLt§>4~N4=4Wfmolm1N—D~—v=<oOeNgo§otgluo=(=})yO6oem——~Jo=DvooWWV=CllMl—%FM~NMOH=)MDNm=gOlQuTT-]w—~.OO~CnFsX—e3QtL=O4-1eo=48D10l—UOg4a—t~tMg31v7==egMoo-TDu=L4l§4=—]tW1g]20v5yo—=—NTooet=—nt4Lg=ggF0lql3o119TyoD)v0LOoo—=tlt§l=fl=lUH1o0oN)vT1qoTt=l=bllqOl1oow$Q4Hw—=Mt=1olC)Nfg=U1to2T7aOoYvNJOo=o=llll1N0FqU1p=]oOVo=OSl=4l)dl1ge0No]HOlqwlTOR0ano1lWlO]=]T—o[N0(%~NMoe1TnelOoN«pde[221Y(—1@B-o£—uu=]enn])1RR1-[X4147]21X13(2%[LTT<—u¥"3]MM:Dn])72—3%t(L==Ye=]——O4—MoM—OVDoTt]%g44g4=1Tt-N4)ooY==I=To~—vmOoeN=(—4OggNp0tl4l—=o0FtwvoD=OoIOo==19ot0M@fg=lg=VmOOooAoavMeo=vHNtu=}Ug~l==DdliOm1MD-4Oo)oOTnQ=PeoA=o)=tlUl~lN0O9lNOoo—-o)gNg=WIflOll~Me0—vwOD0mANM00yn[
Sawnrewx.MeOr —nNoO4Q=gn~o=—lMo—OtQV=O=—NgO=MoOlT0)DNMJ N4T1Oo—}WoONqTo=lMgV

D—1O9wV]asM2H%—MI.NlIMmB?0VwL—SoO(N)n%W5}@Tw~oUp]179NIDON5WVDoENMw——eOAf~m6HlO@yTn0aiNOJ]@NUC-RNw0To[e6—M&OU)VTUieo%gNL9na=Td—Ms5O~@—NIDT0V=9—O~E5TVPW11Moo0QaN—mU~OtA5%l3O=(MF~MNTU[3om%—1DW0CyN75V-q4u35Q]MTaV~y)L8]23N47,my0n1o79%nQ~=[3mT172%f3m7m902?—i%1O629£0570%739QmU9QO0235m%8%%N0uh9a—65U77%N4wnm%01485?2TMy—&ow@unnu1nJAQ£@3o\£]TnOM]0DPM2MO4mT@yOOe%MNI[TV~P30O=@ADNNwNM3—OYM%&mo1M%NPIO~T3”—gx3O0oM~V1%(ml5W4M—TTD

m3DQ&na8o0%a—nM2e9oDN6a8w-Tb90i%MDl0yO%8M1T3mN01o8.3m98MmmOe10ml38m—1@oI68Sw5NQ3mse7d“m5e3r—F8&R0fIa:ylN7ofUmI8syAl%avT0o%wips0—7g-“iO6nN7a9nN1mM6yTmT6Ow2mTIQTaY&M(8CY8O=2I03Teo8C£t”=8~tT8C40oTR0qVNTugDTmesAGaSzsBsmT-8M
PAGE 300
12:38
ES-NOV-77
CROSS REFE ENCE TRBLE -- USER SYMBOLS

BOS

.X3

L3.5

3BL]

30(1046)

MRCY11l

]2R[ -

BORt2~.R3ToEDx<TSPT&T5TnL 3AT51T&TH7AT J1NT3—oTniFodBEINIETGDTEeTLT&ATLTLBA»T8TX85887%3
.—D0-T gy —yO ——1 NOCOQ0O0O —= OO0
CZRMDBO RMO3-/2 FCTNL TST 2
23-NOv-77 12:19
C RMOB.PL1
SEQ 0299

RMO3/2

.Pll

000002

R@GA

100000

RTC

000016

SAle
SAY
SR8

sSC

SCTMSG

SC3

SCH

7180%

llevs
11258
%68

000020

D000

000010

= 000002

100000

06346e

3700
100
00

000400

= 001000

SEARCH=

SECERR

808
10038
9998

104414

000001

10N8e

000037

SCTMSK =
SCOo
=
51
=
SC2

340+

002000

000030

SHUT

SHUT2

SIZCLK
1

~N
~

KSrs
SEkE
TS”

[

0O41344

SEARACAREOR

SAVREG=

SA2

1448
éws s

= 040000

SADMSK=
SRl

0S7364

040204

TSO4

CYSF

€TSM]

€TsH2

00S324

0Sbk416
[77774

057334
101436
101454
101474
101506

101837

10107}

101180

oy S

STCORV
STKLMT=

006144

Y S

STARY

001:00

[l et ol S

STANDA

STOP
STSD1
STSD2
STSD3

igeu gGEYaBALS

9790

%96

Rt
10271

2258
10873

SEQ

7704#

Glies
8201%

12555

£i00s

o3%as

8463

8622

10813

124528

9113

9130

9146

10199

4133

3158
3848
9956

040000

SNGPRT= (020024

STARCK

RaL 82

g440

c482

4258

430

(B3

10004

10008

10019

3650
§807

3818
§352

3986
6097

S60

12235

744y

001332
001402

cO8

12585

RMWCI
RMUCO

ROB

14358
14628

RMWC

001360
001430

ua-~“*”§:””"

RMSNI
RMSNO

MACYL1 3948364
rBRENQY

-;;TIS:IQ

NN
£
o0Ww

FCTNL

9972

11030

11044

3634
528

3638
3568

7170

7308

3557

11651

5497

11057

11058

11060

4§71
6944

4739

659!

6949

45 1Y

veBex

4EY2

6421

8748

6568#
9709

67 14%
9727

S030%
e889%

0300

CCRMDBO RMO372 FCTNL TST 2

CoRMDB.PL1

101241

STSH3

1013014

STSHY

SWR

SWREG
SO

23-Nov-77 l12:19

001154

000176

1255Ss

1335

1222

S00s

= 000002
=

889¢
s

= 000001

SlkiJ3

83048

3233

13273

SHOS
SWO6

= 000040
= 000100

88Sa
8848

89s
894

SW08

= 000400

882

= 000002

8998

= 000200

SK09

= 001000

SWI10
SKHil
SWie
SWi3
SWlY4
SKHIS

=
=
=
=
=
=

Shil

002000
004000
010000
020000
040000
100000

Sie
SW3
Sli4
SWS
Sl
SK?
S8
Sli9

=
=
=
=
=
=
=
=

o
000010
000020
000040
000100
000200
000400
001000

TRG

= 020000

TQP

= 040000

8868

883s

88ls

880s
8798
878s
877
8768
87Ss

10078

TRGRADR=

13078

TR1

TAY

TBITVE=

TIMOUT

001000

11268
1103.

12249%

12466

12479%

11982

11985

12000

121894

15194

11968

12185

12155

3862
4583
5300
?1*43
124

3897
4626
5382
22s
2le

40
16
G417
3 S

4030
4751
8459
6366
7366

4066
4793
6543
6459
7409

4110
4876
6579
6513
7534

4200
4911
se2l
6606
7e02

4235
4956
s710
6660
7645

4277
SO64Y
5753
6764
7729

4360
5099
58SS
6826
8119

9146

9291

9293

9698

7823
4005

79408
4175

4335

4523

4691

7328

7513

7564

7708

79884

S0S

3772
4548
5258
984
8

040326

3694
439S
Si4l
S 98
694

892

7809

1314

9338

3729
4440
5223
6000
6994

8297
Q408
S4l1s

8331
12132%

8985s
12133+

TRE

= 040000

11978

3244+

qll

TST

= 010000

TSTNMB
TETPRP

032732
(034000

TCTQUE

OCI4E0

7809

891

000060
000064
0000IN

12217

3508

893

=
=

TRTVEC=

3284

9974

99648

Q00034

3270

896

T¥vEC
TPYEC

TR&PVE=

3cbIx

12098

998¢

0000IM4

3257

1%094

8388
8978
8368
89Ss
8948
893s
89cs
891s

TADMSK
= 003400

001114

3255

5082

897

SKO?

SEQ 02301

899
898

8878

12:38

D08

PAGE 302
CROSS REFERENCE TRBLE -- USER SYMBOLS

SWO4

23-NOV-77

SSSSO

= 000001

SKHO0

S0l
Sk

MACY1]l 30(1046)

9398

934s

11278

10272

10814

5826

5971

6104

7820+
3669
7051

147Ss

78214«
3837
7189

3477

3478

6188
3518

6283
3530

6344
3570

6430

6491

4861

6577

S039

5198

6357

5516

S681

3614

3652

3820

3988

4158

4318

4506

6638

723

6898

6972

EOS

CoRMDBO RMO3-2 FCTNL TST @2
CIRMDB.P1L
23-Nov-77 12:19

MACY1l 30(1046)
23-NOVv-77 12:38 PAGE 303
CROSS REFERENCE TARBLE -- USER SYMBOLS

4674

4834

gggs

6706

35238
43138
4S0is
46698
48298

12027
12039
12035
12036
12037
12038
12039
12040
12041
12028
12042
12043

TST1
1ST10
TST11
18712
TST13
TST1Y
TST1S
TST16
IST1?
TSTR
75720
TST21

007162
012716
013636
014436
gis212
016130
01670M
017460
020234
007360
021036
021562

18723

023030

60948

0236y
0243Se

beble
64088

12047
12048

36098
67018
68768
720298
71678

12029
12050
12051
12082
12053

031750
007726
010526
011326

7?5418
36478
381Ss
39838

12055
12030
12031
12032

104406

7930

787122

022306

TSTeH

023326

1512S
1STe6

157127

025100

TST3Y

TST3
YST30
TST31
75732
TST33

00754y
025626
026520
027326

75135
TSTY
TSTS
1ST6

1877

TYPBN

glelse

TYPDS = 10440S
TYPE = 104401

S017s
51?68
63358
S4g4s
35658
56598
S80M8

69498

12044

61798

12046

65558

73058

41538

7770
3278

7778
7933

7813
7935

5499

5809

S35y

6099

6184

9871

101586

102223

3351
3418
7814
11646
12240

3357
3423

’8ee
11720

3365
3442

3368
3443

3372
3446

3375
3452

3383
3455

3386
J4be

122sl

3362
3429
7831
11786
12270

7172

7310

7546

1244y4s

12219

12230

104402
104404

3385
12442

7927

12218

124408

3420

7817

7825

7834

7840

= 040000

10278

10362

10366

10370

1067

10708

8406
8578

8629
8580

1255Ss

iga?. 80S6
105§0 10613

8251
10619

9381
10760

9993
10944

10058
10973

10089
11356

10249

10801

\'I

000007
020000
040000
102556
000001
000002

: 888?83

0000X0

12344

3328
3372

3399
12555

12288
12108
11568
8420«
122Ss
12248

907
9455
7428
B427%

10239

11481
1G338

7742%

6266

6413

12033

l1ecle

=
=

7738%

12054

7?71
7918

12341

7736

12049

12218

UNTMSK=
UPE
=
USE
=
USRFIL
uo
=
Ul
=
\

12443
3348

S340

3402

TYPQS = 104403
uBuS@S
063772

7924
3326

7034

3397

7764
7913

TYPOC
TYPON

5181

12045

7?2?27
3298

3392

s0ee

6881

SEQ 0302

12348

9073

3408

124398

12488

7837
11858

7846
11915

2884
12077

7890
12085

10713

11130

11133

11138

10108
11352

10113
11395

10334
11400

10337
114585

12318
124418
-

12324

12329

12333

7894
12149

7907
12161

10550
114886

10589
11476

12338

12339

CZRMDBO RMO3-/2 FCTNL

CZRMDB.P1!]
WCD

= 0000S0

WCEHI
WCELO
WCF
WCH
WD

= 010000
= 004000
= 000040
= 0000Se
= 000060

WCE

TST 2

23-NOV-77 12:19
361

= 040000

= 000062

12098

12348
12358
10368
982
986

3868

4684

5690

MLE
WRL

XDPMG
xS12

ZEROS

= 004000

= 00N000

30(1046)

4458

Y4e?

497y

43983

93sM

12555

1043
4268

942S
4431

11330
4784

11333
4947

5132

s291

S450

Sele

366

3718

3830

3883

3998

4052

4168

Yyeel

4328

4381

4516

4569

c819

5835

5964

£980

6276

6292

6423

6439

6570

6586

6716

6747

9406

9410

9423

9438

q453

11130

11162

111686

11174

12558S

3999

4169

4329

S033

5192

5351

SS10

7048

7183

7322

7558

3509+
3384

122108
3394

12365
3529

3569

3613

3651

3819

3987

4157

4317

4505

7023

7171

7309

7545

8843

83916

8993

10154

12558

4?73

?g?a

1??%3

10308

1043

10168

064562

125558

065106

lgggg.

3831

D060 1M

$SAPTHD

001100

$ATYC
$ATY]

063240
p63214

SATYY
$AUTOR
SBASE

0632
NDQ1180
001276

33088

3449

125831

12546

S$ATY3

11900

12501

$8DADR
$BODART

001136

001142

12:38

PAGE 304

12502
125008
12090
13328
14018

4623

484y

7044

11169

4897

7060

5032
7182

S08S
7198

125038
3°88#
3314

5021

13278

H47Ss

YH76#

4ug9g

7474+%
q226#
93268

?671%
9238
9327

8756#%
9239#
93Y4ls

S070#
9249x
qQ342n

6559

13298

1004S%
10239¢
10338«
10578«
10760%
10834«
11055«
{{gggl
TM

Y468#

Q427+
9546
96564
982J3#%

10070
10248%

4486 %

QUYL #
9547 %
67274
9824

}éggél

10084#
10249#
10368
106i8%
10772«
10900#
11107#
113348

103Ses
10603%
10762
10884%
11091%

4190

54498

4990#

4991 #

5004

9071 %
S250#
9343

9074
9252
935S

9092*
9270#%
q3S6#

[0098#
10261+
1039%#
10649%
10788%
1094i%
11139«
[1368%

10ij4#
18870l

4493

Y3084 #

QYO
9572%
%78
9yl #

4564
9573
%36
9968#%

1008S#
10255

10382%
10633%
10781l%
(0921i»
lll2i#

]1347#

SO0 »

SHE7#
9587 ¢
q717%
99%69%

12110
11720

12161
117278

12358

SCHARC
SCKSWR

D60S5H4
061666

11917%
121948

11927%
12448
3230

11934

119438

[1948s

323!

3239

3248

3246

1347

13488

13494

13508

SCNTLC

Deoted

s$Imy

00000E

13158
1345

134Ss

12149

13468

12230

123588

q469x
9588#%
Q798l
9970

3247

12077
11719%

0O0LLIM
000000

5009

1138S*

10410%
10666%
10791
10970#
]1152#

13528
117168
14038

14048

663

10198#
10271i%
lO'-OS‘M
10684%
10800%
10989
!lle4®
114901#

polzl2
057622
001302

SCMTAG
$CM3

7321

£339

SBELL
$8IN
$COM)

001304

191

S24y

S350

7346

7510

S403

7519

SS09
7557

5565

7582

c674

7706

125048

4833

J4CH*
9530#
96554+
9812

$COuWe

SEQ 0303

CROSS REFERENCE TABLE -- USER SYMBOLS

13008

SASTAT= sxanss U

063222

@23-NOV-?7

FO8

MACY!1l

8758+

958#

98%
3271 #
9368%

Q470%
9602#
9769+
9990+

10199%
10273

10479%
10698%
10801#
1100;!
11207%

11466%

7012

9114%
972
9369%

q499%
S9603#
9770
10001%

10201
10283%
10493%
10714%
10803
11017#
]l220%
11482%

6098
71S0%

9131#
9292
935S%

S500#
W17
9795
10002%

10211
10284%

10509%
10747%
108lex
1104gi
11233%

11498%

6183
7268%

qI47%
92934
9386#

A 4s
%1y
9796 %
10008

10220%
10293%
10S26%
10748+
10813«
11041%
lloues
1]S518#

7439%

q]?7Ss
9294
41l

9515s
940 *
9722
10019
10228
10294

10S47%
107S0
10815
11
11}
#

11532%

bYle
7455s

9225#
9325+
412

95294
B4lx
9811s
10032+

10235%
1029
10S64*
10759+
10825#%
11054+
]1
*
11588+

GO8

CoRMDB0O RMO3-/2 FCTNL TST ¢
CZRMDB.P1I
23-NQV-7?7 12:19

MACY!1l 30(1046)
23-NOV-27
12:38 PRGE 30S
CROSS REFERENCE TRBLE -- USER SYMBOLS

SCNTLG
SCNTLU
SCPUOP

18515
12240
13758

123608
12333

12251

12338

12358

3310
72781

SCRLF
SDBLK

06257
062571
D0l12S0

001217

060040

13548

117582

SODWO
SODW ]
$002
SO0M3
SODWN

001303
00131
001312
001314
00i316

$SO0W6
SO0OM7

001322
001324

14118
14128

001300
(033166

14028
7760

SODWS

001320

140Ss
14068
14078
1406
14098

7?78

11786

001232

SDT8L
SENDRD
SENDCY
sENULL

060030
033156
(033022
033172

11755
1273
324§
7790»

11790
3276
7?7628

801293

13728

268

SENV

SENVM

SEOP
SEOPCT

SEQOSP
SERFLG
RMAX
SERROR

001242

SFILLS

$GORDR

$LGD0RT

7894

7907

7918

793S

3311+«
77878

3323+#

3491

3450+

34684+

3469

3478

77838

12105

13668

3558
3245+

7528
77538

11649
7763

001131
061170

13248
3239

3248%
12070s

11998

001564

15148

032732
001117

001210

001242
001326

3601
13188

3641
11956

13258

7838

13228
13518

1370s
1306

7853

7?7?7%

3308

11897

3503

11895

12087

12509

12533

77348
11996

11998

12004*

12026

12072+

12110

12079%

12080%

12081

12110

1.021s

7779&

12078%
12101

12103

125S48s

14138
[26237#
12503%
11820

12531
11981

12540%

001134

1326

4489

4989+

76734

8755+

9072

907 3

3291+

9294

DOIL1IN0

13068
701 3%
9130%

9710#%
9812
10068!

10250#
10379!
10S07&
10619+
10749«
10899%
11026
111S0¢

12026

12020%

13638
12500%
13438
13428

11902

3247%

001224
063460
D0l1172
001171

11916

11951}

12088

12110

11794

32766
(03301M

001126

SFATAL
SFFLG
$FILLC

7884

3303

SERTTL

SETABL
SETEND

7846

3282

001132

SESCAP

7813

13718

SERRPC

SERRTB

12359

1M4108

SOEVCTY

SDEVM
SOOAGN

SEQ 0304

11951

TN
7014%

9i4Ss

9711s
9821
10069%
10255
103838
10S08%
10636!
107S
10919%
11039%
111Sis¢

Y67
rd -3¢

959 &

97 14¢
98224
10083¢

1
s
10384#%
10S24#%
18?32‘
10761%
10920%
11042
11165¢

12110

SO0M

YYB87#
7152#%

Yygge
7c89%

9573!

974+«

9715
9824
10096%

97624
9940+
10097#

9323#

10272%
1859 ®#
|
&
1094 #
18 62
10939«
110S6#
11lbb#

907

Qo4

10273
[0398%
|0S4S#
18948!
10771«
10940%
11057«
11174«

12511

12110

8757%

4493
7290#

12555

4982%
7940%

4983#
7941 #

S00e*
7456%

S003#
7457

S009
747Ss

£959»
74762

bIGUr
7672

92274

ggw *

51 e

9252

9264 %

269%

92?2

9283+

97267#%
9952+
léél

9770
99654+
10113

97794«
9970
18500!

9792+#
9989%
10201

9797
10003%
10210%

9808+
10004#
10226%

9809
10031%
10228

9810#
10044+

1
¢
10411%
10S46#
10664
%
10802%
10968%
11089«
1120S+

909 »

39+

1029%%
104128
10S6es
106639
1080
10969«
11090#
11206s

9097 »

340%

1029
JOM2S#
10S63%
10682%
10814«
10987#
11105«
112182

9099

9343

10336
10426%
10S76%
10683%
10815
109868#
11106#
11219%

Slll#

9350%

10337#
10477%
10S77%
10696%
10823+
11001#
11119%
11231«

9112%

9702 #

103S0O«
10478%
10601#
10697%
10682
11002+
11120#
11232#

Sll13

97084+

103S1l%
1049l#
10602
10712%
10883%
1]101S#
11137
ll244%

9129

9709#

10237+%

10369+
10492%
10617%
10713%
10898
11016#
11138
11245+

ZRMDBO RMO3-2 FCTINL TST 2
23-NOV-77 12:19
CZRMDB.PLL
11266#%

——
)
[

—

11267«

112951

12015

PRGE 306

SEQ 030S

11292+

11306%
11400#

12014%

12028

11307%
11464%

11319
11465#

11320%
11480

l 1332#
1 1496%

0 1
{8384 18047,

12213%
7829
1§§S5

12232
12081+#
12110

12252
12089
12348

12365
12110
12358

249%
32S0#

3525
3526#%

11993+
12002

12002*
12019%

12018%
12025

12023
12100

3267

3282
5023
6882

3503
S18e
7035

3531
6341
7173

125478

1306

13618

4507

4675

4835

12507
123638
12517#%
12522%
12515
123618

12542%

125468

6414

6561

6707

38128
Sq46s

39808
6091

2 ¥

HO8

12446
813

12520

12523

{2025.

11951

Zg Ys
38
118568

§é7§.
E 8
)
11

12,

1253S

12539+

3563

33050

12450

3607

#1258

33348

38388

11834+

11845

18718

s
1)
267 % ;ggs. 15343,
124748
119¢]
12449

0e2220

12:38

CROSS REFERENCE TRBLE -- USER SYMBOLS

124948
124588

SROLIN

23-NOv-7?

UVUUND&Iggggg 0

wmmgfififig

[

P
o
N
nNO£O
L

= Jhyrnn

nrny

0t 1060

300m~¥g o—00 D DD o0
N E£— WO N OO0 noeewo
8&08NNIW8UW~08
— Or— U W WO D
No
FEGE
mSes
yflmm L ANN
L
X
X
X
2
B ¥
¥ ¥ ]
-

[

e pme (o J0—
P

[)

BERE
888888%88888
mv—.—o—b—gjo—
FRR
ERIB8 LSR8 8o

o
(=]

288888
¥
—

BREREEE

001267

30(1046)

3 tHegdr 112Rd: fhdda

Pt e s ) 0 Bt Bme 1) ) 0 s B e e (I L e D Bt s Bt Bt Bt [ J0m0 0t e P Y= P Y0~
)N
Wwwnt
WMN VWL
W WNIWWWWW
WWUHJII
W LWW
[+ Jo VRN T4 N

sor
R T

MAAZOrire
—
M4
200m

atotaterat
44

SMAIL

MRCYL1l

1;022.
768

7790

12486

12110

12270

12341

12358

]

ggg?:

12009

12026

41508

61768

43100

62588

Y4988

640Ss

46668
65528

I08

CoRMDBO RMO3 2 FCTNL TST 2
CoRMDB.PLI
23-NOV-77 12:19

MACYL1l 30(1046)
23-NOV-77
12:38
PRGE 307
CROSS REFERENCE TRBLE -- USER SYMBOLS

SRDOCT
$RDSZ =
SRESRE
SRTNRD

12451

SRCA

062626
000010
(0S57Sle
033170
#xnuxs

$SAVRE
(0OS74S4
$SAVRE
$SCOPE
D60S60
$SETUP= 000137
§STUP = 777277
S$SVLRD
061024
$SvPC = 000200

SSWR

123768
12299
116928
77898
12484

116768
12467%
3237
12558
7754
125S»
11977
12718

12483
12452
1247
1196Ss
3236
11966
120168
1276

12476%

12477»

| 2493

3237
12071

3239
12097

3241
12108

3243
12153

3245
12158

3246
12159

3247
12189

3249
1236

3276

3279

3500

820
357
550
7311
11980
12063

gel
3615
€6EeS
7547
11982
12064

8ee
3653
8810
7749
11983
12068

823
3821
955
A
11996
12066

824
3989
6100
7782
11997
1207S

1350
4159
6185
7788
11998
12082

1351
4319
626?
7790
12005
12094

1352
4507
b4iyd
11957
12006
12098

4159%

4319¢

4507+

4675+

4835+

SQ23#

Si92#
73c2#

167400

8018
3246
4675
6561
11958
}S??S

g8le
3247
4835
6707
11959
{ggég

817
3249
8023
6882
11960
12022

gl8
3250
Sise
703S
11961
1202S

Bl9
3531
S34}
7173
11968
12062

SSWREG
00124
$SWRMK= 000000
$SW08T
061076

13738
824
11992

3270
82S
120268

11961

11962

11986

S18c2#

3S3.#

341+

3571s

3615

3653#

173#

7311

7547 %

82l

12017%
12198
12292%

S$TESTN
STIMES

001226
001206

$TKB
S$TKCNY
STKINT
STKQEN=
STKQIN
STKQOU
$TKQSR
$TKS
$TKSRY

001162
061370
(061400
DB1377
061372
061374
06137E
001160
061450

b Ra i

00117

S$TMPO

001174

7035#

13508

13388
121148s
3340
12llgs
1211Se
121168
121178
13378
12132

134Se
G3Sis
7458+#
13468

3394
3417%

sTMPz
001200
$TMP3
001202
§TMP4
0C1204
$TH
= D0O0O036

13448

12012

6267#

6Sbl#

6707+

68824

12184
12297+

12186+

12168

12174«

12196

le2les

12222

12234%

12254+#

3663
S820#
7674%

3831+
S35+
8652

3993
627 7a
8759+«

41694
44«
g8848»

4329
6571#n
8321 #»

4S17%»
717
876 4%

4685#
6892+
9877

4845«
7045
1255S

5033+
7183%

3398
3427

J404#
3432

406
3433#

410
H434#

3411l
3435

412%
3436

413
3437

3414+
3445

3415
446

416#
447

7559%

767S#

8653

8849%

88S0

3350+

3588
Y41 )
7558+

3395+
3419

3351

339+
34cSH

b6718%

6893#

3352

3458
4B4Yb#

7046#

3355

346
O34+

184%

3364

1158

323#

3639%#

7460%

11673+

11574#
11576%

3520
41598

3S31s
4310

3561
43198

3S571s
4498

164
[1940#
11889

71738
1]9€l
11951

SHQ;
626’8
7302

7676%

SS00s
b40S

73ils

3365

3584#
352+

9882

7479%

1222S

346
193#

9875¢

E34ls
6058

6185+

12183%
12¢9S

3585#
SS10#
r& Y4

S332
1858

3989#

6100%
1202S

12182%
12294%
12297
12l6b%

3456
468b6%

3821%

S355»

12015%

12170
12290
leell

8923

73358
13408

1200S#

810#%

1214S
12176%
12!

8322%

13478
13488
13498
8les
4150

7755%

S665

12134
12159
121298
15295
1213}
15893
12186
12135%

3465
4518%

5iges
3%
OCllee
DCLI72

3246+

S5O0

12113
lgéEQG
€13
15184
12130%
12136.
121
12113
13142.

34S4s
4330%

£572%#

v
$'FE
$TPFLG

13648

SEQ 0306

459+«

3366

3592
Slis

478%

3374+

3638#%
G5676#

337

36b4#
5B821%

11S577%

11588

11600

12555

11603

125855

3605
4S078

36158
46bb

364M
46758

3653
4826

3812
483Ss

7538

75478

S656
b4l4Ys

SeeSs
B5S2

580
6S6ls

11987

58108
6638

12027

5946
6707

3378

3832*
596b%

S95Ss
7

33884

4000*
6278¢

3980
S023s

6091
68828

3330

4170#
B42S#

3989
S173

6100»
7026

C2RMDBO RMO3-2 FCTNL TST 2

MACY1l 30(1046)

$TPS
STRAP
STRRP2

CZRMDB.PLIL

$TRP

23-NOV-77 12:19
13398
3241
124278

11938
12412
12438

11951

063002

124528
12421

124638
1243848

12454

STRPRD

S$TSTM
STSTNM
STTIYIN

12308

12309

11."‘48!

1e443

11
1116
062554

124318
130;.
13178

STYPBN

(057550

117138

STYPE
ST
C
STYPEX

060276
060510
060556

118898
11919
11944

0S76e4

STYPOC
060074
STYPON
0601.0
$TYPOS
060050
SUNIY
001234
SUNITM
001110
SUSWR
001246
SVECT]
001272
SVECT2
001279
SXTSTR
060576
S$SGETY= 000000

= 000036

SOFILL
SHOCRT=

.8QS TNz

060273
ssense U

106121

essnse

= 00:100

118258
11824
118208
13678
1305
13748
13998
14008
119718
77828

12:38

124428

124H438

124448

1244SE

12446

124478

2448

7754%

11956

11989+

12016%

12017

12022

12026

12074

12110

12439
11933
11949

12528
119388

11939

12256

12032

12033

120348

1203Ss

12444

12431
11926
1194

12440
118278
1244}
3518+

12321

12339

12353

3410%

3411

120268

12027

120288

120298

120528

120638

[20S4s

120558

120568

12588

12628

127}

1272

12748

120408

11825#%
12084

13148
117948

1356
11951

12501

12504

1290#

125498

1295

123578

124498

124508

120368

120378

124Sls

124942

3395

12492

SEG 0307

124418

9072

11821
11968

PRAGE 308

124408

7818

120398

J0O8

CROSS REFERENCE TRBLE -~ USER SYMBOLS

001164
062730
062770

= 000016

23-NOV-?7

120418
11835

147Ss
1202S
125588

120428
118708

14918
120286

3437

15030.

120438

14868
12110

12031s

120448

12768

3234
12113

120468

12818

3249
121178

120468

12648

32S0
12118

120478

1290

77678
121198

120488

1281s

7790
123578

(20498

1293

77918
12358

120508

12958

11BM4
123658

12038%

120Sis

13107

116568
12470

CoRMDBO RMO3~-2 FCTNL TST @

23-NOv-77 12:19

CZRMDB.P1!
CRLCLR

CRLGET

CALPUT
CHLSUB

80ls

Y441

Y481

4293

5235
5516
£78S
6066
6375
6638
6972

7
55SS
s826
607S
6382
6669
7003

74
5588
S864
6104
6389
6676
7017

sagé
5SS
s871
6152
6420
6683
7051

7665

7683

7271

72282
7625

S094
5262
g429

3972

4606
4920

4635
4927

7293

7328

7654

4649
4965

737

7382

S103
5270
5436

5277

Sl
6443

5284

5118
S4EyY

5125
€295
c463

7257
7436

7266
7442

7274
745]

728S
471

69}
Y4
S324
6136
6331
650S
6679
6863
707¢e

€598
676%
£93S
6147
6338
6c1?
6£86
6902
7084

5605
c?7
€3?
6155
6348
652S
6727
6213
?09¢

€616
€779
§992
6lee
6358
6532
674
693
7099

5625
§790
6004
6169
6370
6539
675k
6944
7106

ze28

7640

7649

7657

7668

7237
7413

Qu3e
BCls

7o44
742}

7708

4658
4976

7389

S136
c47

S304

3906
Y142
4460

41?75

3913
4523

3920
4ele
4560

5433
5726
6009
6283
6536
6849
7189

S440
8733
6016
6321
(Y44
6858
7ea?

SYEB
5762
6023
6328
6615
6898
7234

S47S
S769
60S2
63325
bbee
6949
7241

5202
2
5SSO

s2l17
£389
5558

S230
SS574

738S
7606

7392
76l

5580
bbbl
4Yoel
4867
5699
9753
723
3788
4082
4372

571;
682
4102
4948
5844
6818
3804
4119
4411

5754
6941
4191
5055
5890
€310
3837
4126
4418

856
6995
4ee?
s091
5989
6929

3874
4133
Y449

532
563
Sely
6188
6482
6780
7103

5357
5644
5921
6234
649}
6787
7133

S394
se81
5930
beYyl
6522
6835
7144

5426
5719
5971
6248
6529
6842
7155

S183
S319
c48s

€226

4794

4691
5039

7418

S145
8312
47

4880

4728
076

7433

5633
5830
e0le
6192
6378
£581
6768
6952
2119

564
cg4?
6019
6el?
6385
6598
6776
6961
2128

SeN
6859
6C26
6c29
6392
k610
6783
696
7136

S685
6867
6038
6237
6434
6618
6790
6976
7147

7677

Te86

T’le

7728

7291
7480

6044
7219
4387
5es0
621y
7116

Ske2
6765
40S
430
§745
6802
3795
4089
4404

531
563
5907
6166
647S
6773
7096

Yeu4e
4934

6001
712s
4351
Seld4
6133
7069

4ye7e

309
602
5878
6159
6468
6723
2089

404e

5899
7081
4269
S133
6035
6983

4236

4300

S460
6514
3889
Y4743
5571
6649
7591
3752

3941

4752

4396

4204

SS4?
6607
3932
478S
5613
6739
7637
37;%
40
4335

gy]
b46
7646
3853
47Q?
SS34
65
7528
374

4720

4364

4111

4067

3898

4286

393

SEQ 0308

PAGE 310

4034

3866

462?

4258

956

4599
4888

35208

3773

4584

4esl

4592
4851

7618

4Ysse

538
36
603
3764
4618
S4S1]
6502
7401
3738

a4y

3949

3617

3730

23-NOV-?7

KO8

CROSS REFERENCE TRBLE -- MACRO NAMES

S301
631
741
3721
4575
S409
6448
723SS
3706

5259
6226
7367
3685
4539
8373
6355
7254
3669

=Yord
6253
6421

ESimPL
SETCC!

3698

Sea?
bluy
7263
80ls
4432
S29e
6301
7207
BOls

5198
s482
57?6
6059
6344
6629
6363

CNACMS

3573

MACY1l 30(1046)

12:38

7296
7489

7332
7617

4912

4760
5108

7448

4957

4767
S11S

7468

S160
6622

5167
5537

7358
75831

730
75h8

5702
S87°4
6047
Yi L]
6451
6625
680S
6966
71€3

6361

ST
S881
605S
6251
6463
6632
6821
6998
7158

4996

4774
S1ee

7486

5722
6893
6062
6287
647}
6642
6830
7006
7193
7378
T894

S068

sioo

4802
5150

4809
5157

7513

7564

5729
$902
6069
6304
6478
6652
6838
7018
7210

Sive

4816
5164

7611

5238
5583

5397

5412

5736
69}
6080
e316
6485
66bM
»B4S
2020
zeee

5748
8917
6108
6324
6495
6672
6852
705S
2230
7404
782!

CoRMDBO RMO3-2 FCTNL TST 2
CIRMDB.PLIL
23-NOov-77 12::9
GETDB
GETDS
GETDY
GETMR]
GETPR]
gfig%ufi

NEWTST

801
80ls
8Cls
801s
9438
ggén
]

LO8

MACYL1l 30(1046)
23-NOV-?7
12:38 PAGE 311
CROSS REFERENCE TRBLE ~-- MRCRO NAMES

3623
9438

3279

3500

9438

gsao

gS 1

POP

8018
§494
Q438

3523
5659
3547

3565
S804
J548

PUSH

8880
3017
10227
9438

8881
9018
10789
3533

8382
9019
10790
3834

8883
9020
11697
3578

12378

12460

12466

NWTSY

PUTCSI

S49}

8591

8519
8842
3164

801s

PUTDC
PUTERI

801s
801s

RGBF MC

801e

PUTMR]
REPORT

SCOPE

80ls
9438

SEG 0309

656

8663

8620
8909
9313

1421

801

8665

8691
8910
9864

1448

3605

3644

38;2

3980

4150

4310

4498

4666

4826

SOl4

S173

6332

3647
6094
ggs

3815
6179
586

983
6261
c8?7

4153
6408
3598

4313
655S
3599

4501
6701
82l

4669
6876
B432

4829
7029
8433

S017
7167
8446

5176
7308
8589

8338
7541
8590

8884
9168
11781
3580

8944
91?7
1239
8190

8946
9316
12479
B41S

8350
9903

835}
10163

8373
10165

8975
10166

9015
10167

8458

8459

8615

8617

3618

12504

3648
609S

S946

609
949
552

8666

8632
8S11
9865

6091
1)

8693
89le
9066

6176
668

258

7?69

6405
771

2947
300
12480
8416

6552

8772

Q48
901
12543
8439

6698
877

8949
9902
12544
8457

6873

8802

702¢&

8803

7164
8804

7302

8877

7538

887

1206

8694
8913
96867

12827

8786
8914
1C147

8738
8915
10149

8789
7
10180

8836
895
10151

8837
8986
1022l

8838
8987
10782

8839
8988
16783

8840
8989
11677

8841
8930
11740

3816
6180

3984
6262

4154
6409

4314
6556

4502
6702

4670
6877

4830
7030

5018
7168

5177
7306

5336
7542

5495

8288
Se60

3566
S80S

3610
5950

SETTRA

124318

12440

12441

levve

11628

11634

12443

1244y

1244¢&

12448

12449

12480

12451

12452

12463

SPwWCE

943s

9438
3646
SO
6093

1269
3812
5016
6176

1287
3814
6173
9178

1289
39890
€178
6258

1296
3982
§332
6260

1310
4lc0
6334
6405

1356
4162
c49)
9407

1359
4310
5493
6552

3520
43le
S656
6554

J5ee
4498
SES8
6698

3561
4500
S801
6700

S6M
4666
S803
6873

3605
4668
5946
6875

3608
4826
€948
7026

3644
4828
6091
7028

818S

BHSé

Qcil

9219

9304

9687

11661

11706

11730

11797

11874

11953

12058

12112

12189

1560

1567

1574

1581

1588

1595

1602
1707
1813
1921

1609

SETPRI
SETUP
Sk IP
SLASH

STARS

Q438

9438
9438
Q438

7164

SWRSY

12204

438

1RGS
TRMTRP
TYPBIN
TYPOEC
T YPNAM
TYPNUM

8018
124318
943
9438
8018
943

TYPTXY

Q438

TYPOCS
TYPOCT

*PER

3224

3229

7166

122~

32S!)8

3Si4

302

12299

7638

7540

74§

12368

12406

12456

12472

7818

7823

7832

7838

1532

1539
1644
1749
1857

1546

1553

7794

12499

7995

8008

8020

8042

8071

8093

glel

1418

7768
9438

777%
3272

Cakl ]
943

3398
384

Y
12217

801s

1518

1646
1721
1827

7304

12286

764

1623
17¢8
1834

1930
1738
1841

1937
1742
1849

1651
1756
1865

1658
1763
1872

1665
1770
1879

167
17?
1886

1679
1784
1893

1686
1781
1900

1693
1798
1307

1700
180S
1314

1714
1820
1923

CCRMDBO RMO3/2 FCINL

CZRMOB.P11

TST 2

23-NOV-77 12:19

1936

1943

et
e’’?

79
2784

1950

S
sel
s
e g
SSCMRE
SSCMTM
ESCAR

22 WY
SO

SSSKIP
.EQUAT
. HERDE
.SETUP
.
.
.

“RHé
6

. $APT
.$APTH
.SAPTY

.S$CRTC
.SCHMTR

5%
5101
13088

13088
s

g:gl
T

s
1s
ls

il
18
801ls

8018
80ls

.$01v

801s

. SERRO
. SERRY
.
T

80ils
8018
18

. SEOP

.
.
.
.

.SRERD
.$GAVE
.$SCOP

B801s

18
18
1
18

833
802
1253
1

1357¢
128S
12497

1256
1308

7743

12056

12454
12366

.zTYPO

gglo 11995

THE

10e121

ERRORS DETECTED:

¥4
e8ly

1348

1349

2693
2799

1347

l2v0M
11704

RBS.

7
8

s
R
oo

1346

8Cls
BOls

1971

134§

. $TReP
.$7YPB

142

1364

8
g é?

12110
1]16S9
1}]95]

8018

1357

g?i

801s
8018
BOls

.$SI1ZE

791

30(1046)

3003
108
3520

9438
8018
8018
801s

g
ot
o

MACY11l

000

3561
360S
T

23-NOV-77

12:38

MO8

PARGE 312

SEG 0310

CROSS REFERENCE TRBLE -- MRCRO NRMES

oghn o s
s
G
2R

B3
159
b4y

8r
13&

1978

ogh
oW
714
82l

1985

oo
oM
R

o14

&
1S

3812
3980
YTR

4150

1992

1999

2006

2013

2020

20e?

2034

836

35
844

74
85

749
861

75
86

7
8

2770
2884

g2
un
AU
38
dg
g%
A%
B
Bl
B
o
or o oay
o
EEREEREEEE

1 ;e

5033
3164

Sk
3171

5073
3178

4310
S

4498

4666
e

4826

SO14
173
S
IR

538

5332

CZRMDBO _RM0O3-/2 FCTNL TST ¢

CZRMOE.P11

23-NOV-77 12:19

MACY11l 30(1046)

23-NOV-?7

12:38

NO8

RMO3: CZRMDB.BIN,RMO3: CZRMDB. SEQ/DOC/NL : TOC/SOL /CRF=RM03: CZRMDB. P11
RUN-TIME: 6S 61
RUN-TIME RPTIO:

CORE USED:

33K

DOCUMENT PRGES:

4 SECONCS
599/130=4.6

(65 PRGES)

311

PAGE 313

CROSS REFERENCE TRBLz -- MRCRO NAMES

SEQ 0311