Digital PDFs

AC-9148C-MC-B01

March 1978

178 pages

Original

10MB

view download

OCR Version

8.6MB

view download

Document:	CZR6RC0 RK611 USER DEFINED TEST AH-9149C-MC MAR 1978 bw
Order Number:	AC-9148C-MC
Revision:	B01
Pages:	178
Original Filename:	CZR6RC0__RK611__USER_DEFINED_TEST__AH-9149C-MC__MAR_1978_bw.pdf

OCR Text

R K6 1

USER DEFINED TEST

AH-9149C-MC

MAR 1978

CZR6RCO

copvrigHT“76-78

SOEOREN

FICHE1 OF1

MADE IN USA

00
=]

BO1
12HOR1CZR6RCSEQ
02-DEC-77
11:59
PRGE 2

00010000

.REM «

IDENTIFICATION

TURU NS 0

s hs e e e s e e

=00 U £ WO DD NN LW

PDP10 411
0o
780 2 gg
CO RKbl1/06 U
DEFINED MACY11l 30(104s)

PRODUCT CODE:

AC-9148C-MC

PROBUCT NAME
:

CZR6RCO RKb611-/06 USER DEFINED TEST

DARTE:

FEB 1978

MAINTAINER:

DIAGNOSTIC GROUP

RUTHOR:

MARY TEGROTENHUIS

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT
NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS
R COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORRTION ASSUMES NO
REPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER
A
LICENSE
AND
_MAY
ONLY
BE USED OR COPIED IN RCCORDANCE WITH THE TERMS OF SUCH
LICENSE.

DIGITAL EQUIPMENT CORPORATION RSSUMES NO RESPONSIBILITY FOR THE USE OR
g%k% BE
LITY
OF
ITS
SOFTWARE
ON
EQUIPMENT
THAT IS NOT SUPPLIED 3Y
COPYRIGHT

(C)

1976,

1978 BY DIGITAL EQUIPMENT CORPORATION

780223

CZR6RCO RKB11-06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

MACY1ll 30(1046)‘ 02-DEC-77

11:59

COl

PARGE 3

TABLE OF CONTENTS

1.0

RABSTRACT

e.o

REQUIREMENTS
2.l
HARDWARE REQUIREMENTS
e.2
PRELIMINARY PROGRAMS

3.0

OPERQTIgg PROCEDURE AND CONTROL FUNCTIONS

3.1

3.2
3.3
g.g

ST
rxnc L? ONS
CONSOLE
YCH REGISTERS
'sorrunas

SHITCH REGISTER

3.6 . Exggu?
ON TI

3.7
4.0

IZE

USER DEFINED TEST FUNCTIONAL DESCRIPTION
9.1

snTsoanR vgnnnuo
ss

Yy.1. é *PU s?t%?
10 PRPER TAPE
4.1.3

4y.1.8

4.1.5
4.1.6
4.1.7
4.1.8

4.1.9

gpg

n:gr T FROM PAPER TAPE

TIMEOUT
ITERATION COUNT
gan gnrn PATTERN
FFER

FER

DUMP

4.1.10 COMPILE
4.1.1]
RUN
4.1.1
T
#é"e
4.1,
T
kg
LINE

Yy.1.14

4.1.15 PRINT LINE
4.1.19 NEW TEST
PRINT REGISTER
4.1.17

¥y.2

4:1:19
Formar
4.1.so 1327555
LECT
DEFERRE
4.2.1
vsrsn uncrxou COMMAND
4.2.2

:'2'3

BUFFER INITIALIZE

TAaT2,0 OMPAR

4.5.5 35013?53 COHPSRE
4.2.6
4.2.7
4.2.8
4.2.9

SEQ@ 0002

CZR&RC.PL1

02-DEC-77 11:07

MRCY1l 30(1046)

4.3
4.4

4.5

Bt Bt ot P

Pt Pt Pt Bt Bt Pt Dot Pt Pt P

Pt et Pt Pt P

e—

NPVTU
R MY TUNY P MY 6= 0 e s st s s e e 0 O O O O Q
MNOCN LW~ ODODO NN L WN-O0m
own

102
103
104

Pt P

02-DEC-77

5.0

11:59

DOl

PAGE 4

LINE NUMBERING
TIME OUT
TEST LOOPING AND LOOP COUNTERS

ERROR REPORTING FORMATS
RMAT
5.1
UBSYSTEM DETECTED ERROR
UNSOLICITED ARTTENTION

o—v—r—»—-»—r—-o— u—»—o—-»——»—-o
DO mxuh—n

CZRERCO RKB11-/06 USR DEFINED

5.2

WITH DRIVE CLERR
HflfiEflsiTED YQTR TYPESET
WITH

ATT NT*S“

g NOT CLERR
AR
COHHQND

SUBSYSTEM_ TIMEOQUT

CLEAR _CONTROLLER ?%2 NOT CLEAR ERROR
NO_ATTENTION IN ATTENTION gSEgRY REGISTER

:11 CONTROLLER ERROR WHILE DRIVER SERVICING
. S DRIVE PRARITY NH%%E GATHERING STARTUS
SELECT
1.1 HULTIPLE DRIVE

FORMAT

APPENDIX A - DATAR PRTTERNS

APPENDIX B - COMMAND SUMMARIES

SEQ 0003

EOL

11:59

PAGE S

SEQG 0004

RABSTRACT

THE

USER

DEFINED

TEST

PROGRAM

PROVIDES

THE

CAPABILITY

SAVING, RECALLING, AND EXECUTING TEST PROGRAMS

ENTERING, EDITING,

DESIGNED'BY THE USER.

THE USER DEFINED TEST OPERATES INTERACTIVELY TO ALLOW THE USER TO
DEVELOP R SPECIFIC TEST MADE UP OF SUBSYSTEM COMMANDS, CHECKING,

AND REPORTING IN ANY SEQUENCE.

AN INTERACTIVE COMMAND SET IS DEFINED TO_

USED

INTO

TWO

ENTERING

RETRIEVING, EDITING, AND EXECUTING TESTS. THIS COMMAND
STORING,
SET INCLUDES OTHER
COMMANDS 'THAT PERFORM_COMPRRE OPERATIONS
?:gflgfiagsg;ESONTROL VALUES, INITIALIZE THE BUFFER, RND INITIALIZE
THE

INTERACTIVE

COMMANDS.
#
¥

COMMAND

SET

THESE RRE:

DIVIDED

TYPES

DEFERRED WHICH ARE THE COMMANDS THAT MAKE UP THE TESTS.
IMMEDIRTE WHICH ARE EXECUTED WHEN THEY RRE ENTERED.

IN CORE IN

STORED
S ARE ENTERED THEY
T0 ADDT
sgonnggouacs
on“?ne
CAN aE oong
A SOURCE nssn. ngrxné
RFTER THTM SOURCE HAS BEEN EN
INES.

A PRTTERNS ENTERED.

FR ?" PAPER T TAPE.

g ¢t
L

]

BEFORSEDEXECUTION

LATI

g
(2]

OURCSN 80 E

OBJECT ARER,

THE SOURC

EITHER
REEXECUTED.
AFTER
CODE
OBJECT
ALONG WITH ANY SPECIAL DR
TYPE
OF CODE
AN
RERD
ER_AND 08
IN THE SOURC
AND
EXECUTED.
IF
SPE
sgggERNS ARE PLACED IN T

STORED IN cgfis é”
v

cuTioN

ECT ?ooc

(@]

—

m
(@]

WHEN THE DEFERRED C
TM

1.0

m
r
m
-

02-DEC-77 11:07

02-DEC-77

:mm»—o.ncn\umnJ:wmo—o..om\umnme-—D.nm\sa\m.:umo-o.nm\:o‘m:wm-—o.omvgm:wm-—o.o

Pt ot Bt et Dot Pt Pt Pt ot Pt Pt ot

s Bt Pt et P

s Bt Pt Pt Pt B

WEOMOOM N NNNNNNNNNC OO

ot Pt P

Pt B

Pt Pt Bt Pt

e Pt et et Pt et P

Pt Pt Pt et B

TNININTNINNNNOINE L L L L £ L L L L WWW

Pt Pt Bt Pt ot Pt Pt Pt Pt Pt P

ININIRENINTN
L)

CZRERC.P11

MACY11l 30(1046)

CZRERCO RKB11-/06 USR DEFINED

_THE

EITHER

CONVERSELY,

¢
SOURCE
CODE 15 PLACED

RREA
O0BJ ECT
CoDE 15 PLACED IN THE
THESE
WE3IE PUNCHED,
PATTERNS
DPTA

APPROPRIATE BUFFER WHEN

THE

TAPE

THESE
THE IMMEDIATE COMMANDS ARE EXECUTED WHEN THEY ARE ENTERED.
COMMANDS ARE NOT ENTERED INTO THE SOURCE AREA AND DO NOT BECOME
PART OF THE COMPILED TEST.
THEY CAN BE EXECUTED AT ANY TIME
EXCEPT WHILE COMPILING OR EXECUTING R TEST.

THE GENERAL
INTERACTIVE COMMAND
(WITH THE EXCEPTION OF
THE
SPECIAL DRTA PRTTERN COMMAND, SEE PARAGRAPH B8.1.5) FORMAT IS:

RZ,
... (RETURN)
INTERARCTIVE COMMAND,PARAMETERL,PARAMETE
THE INTERACTIVE COMMAND IS TESTED FOR LEGALITY.
IF IT IS NOT ONE
THE
DEFINED COMMANDS,
THE COMMAND
1S REJECTED AND AN ERROR

MESSAGE IS PRINTED.

THE _COMMAND IN ERROR 1S ECHOED BACK TO

SHOW

THE ERROR
AND
THE ENTIRE COMMAND MUST
BE
REENTERED.
THE
PARAMETERS ARE ACCEPTED WITHOUT CHECKING UNLESS SPECIFIC CHECKING

DEFINED

FOR

THART

COMMAND

THE

FOLLOWING

COMMAND

CZRERCO RKB11/06 USR DEFINED
CZFBRC.P11
02-DEC-77 11:07

MACY1l

30(1046)

U 0= s s et Pt Pt Pt s Pt Bt s [
OO0 D DO DDDDDD ®
N—O0OONONLWN-0OW @

11:59

FO1

PRGE b

SEQ 000S

DESCRIPTIONS.

185
186
187

e0l

02-DEC-77

ANY ONE OR ALL OF THE PARAMETERS
MAY
BE
OMITTED.
AN
OMITTED
PARAMETER
WILL
DEFAULT
TO
THE
VALUE
LAST SPECIFIED FOR THAT
PARAMETER.
R CARRIAGE RETURN WILL CAUSE THE REMAINING PRRAMETERS
TO
DEFRULT.
IF A PARAMETER IS TO BE SPECIFIED AFTER ONE THART IS
OMITTED, THE SEPARATOR (,) MUST BE PROVIDED.

e.0

REQUIREMENTS

HRROWARE REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE USER DEFINED TEST:

OLONOCNLEWN—O

m.—.;—.—.—.—.—p—p;—;—.

LANIAVIAV
gV gV gV bl oWl V] ¥ 4V)

PDP-11 SYSTEM (16K MEMORY)
CONSOLE TERMINAL

RKO6 UNIBUS CONTROLLER
1 T0 8 RKO&/RKO? DRIVES
RK06-RKO? DJISK
E
DGE.
PRAPER TRPE
READER (OPTIONRL)
PAPER TAPE PUNCH (OPTIONAL)

2.2

PREL IMINARY PROGRAMS

THE CONTROLLER DIAGNOSTIC AND/OR DRIVE DIAGNOSTIC SHOULD
BE
RUN
TO
DIAGNOSE
FRULTS.
HOWEVER,
THIS PROGRAM DOES NOT RELY ON AN

OPERATIONAL

SUBSYSTEM.

FEATURES

g2l

OPERRTING PROCEDURE AND CONTROL FUNCTIONS

3. 1

PROGRAM LOADING

THE PROGRAM CAN BE LOARDED FROM

OWVONOCNLW

£W

PROVIDED

3.0

LOARDER
v

ARE

FACILITATE

LOOPING ON A TEST OR ERROR FOR TROUBLESHOOTING PURPOSES.

SnE$NRBLE.

FROM

ANY

MEDIA

PAPER

SUPPORTED_

TARPE

IT CAN ALSO BE LORDED BY ACT

THE PROGRAM DOES NOT DESTROY THE LOADER.

USING

XXDP
APT

THE

BUT
IN

ABSOLUTE

IT IS NOT

DUMP

MODE

CZRBRCO RKB11-06 USR DEFINED
CZREBRC.PI11
0e-DEC-?77 11:07

MACY1l

30(1046)

3.2

02-DEC-77

11:59

GOl

PRAGE

SEQ 0006

STARTING LOCRTIONS

PROGRAR IDENTIPIES 1 TSELE
"
COMPUTESAND TYPES.
THE MAXINUM NUMBE

OF NORDS FOR DATA TRRNSFER COHHRNDS (BASED ON MEMORY SIZE)
AND
H§ n§ R?E
HP TO PRINT HELP FILE®.
R S
l®) IS
THEN PRINTED

erv THE PROGRAM 1S READY FOR A connnnn

THE R%STQRT R?DRESS

WHEN THE PROGRAM

INITIALLY LOARDED.

EXCEP

3.3

TO S

ALSO 200.

“HELP” MESSAGE.
IS

THE SAME MESSAGES

ANKE

PRINTED

THE HELP FILE IS AVRILABLE ONLY

CONSOLE SWITCH REGISTER
THE CONSOLE SWITCHES
ARE_USED
TO
PROVIDE
CONTROL
FUNCTIONS.
THESE
FUNCTIONS
AND _SWITCH RSSIGNMENTS GENERALLY CONFORM TO THE

SYSMAC STANDARD WITH THE EXCEPTIONS NOTED:

SAITOH

FUNCTION

HALT ON ERROR

LOOP ON TEST.

WHEN THE SWITCH IS RESET AFTER

_THE

NRRNUMBER OF LOOPS. 'NNN 15 A DEGIMAL NUMBER.

INHIBIT ERROR TYPEOUT

INHIBIT INERATION

BELL ON ERROR

LOOP

ERROR

THIS

SHITCH

CONFORHS
TO
ETEC

TESTPoRseTLy, ROEREXeolryon {5,

THE
THE

AgSranish
i

WITHOUT AN ERROR THE TEST IS
RGQIN
STQRTED
FROM
THE FIRST COHHRND RS LONG RS SNITCH REMAINS SET.
NH%N SNITCH
aa 2
E
é L
__TERMINATE
ND TYP
THE NUMB
OF LOOPS RS
WHEN SHITCH 9 WAS R

INHIBIT ALL DRTR COMPRRE ERROR REPORTING.

NHsN SET
ERRORS

FORCE
REPORTING
OF
ALL
WHEN
RESET
REPORT
ONLY

COMPARE ERRORS.
0

WHEN SET FORCE SHORT
ERROR
FULL ERROR REPORT IS GIVEN.

REPORT.

DARTA
COMPARE
THE
FIRST 10
WHEN

RESET

CZRBRCO RK611-06 USR DEFINED
02-DEC-77 11:07
CZR6RC.P11

297

MACY1l

30('1C46)

3.4

02-DEC-77

*SOF TWARE’

11:59

PRGE 8

SEQ 0007

SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON R SWITCHLESS PROCESSOR

(I.E

4ui9% RBarddel'ls RO oRESERTand
bl E-JEETA" SOPTARE: B

REGISTER.
E’ SWITCH REGISTER IS LOCATED AT LOCATION
176(8).
THE SETTINGS OF THE 'SOFT“QRE’ SWITCHES
RRE
CONTROLLED
THROUGH_

KEYBOARD

EXCEPT

WHEN

THE

G'.

REELE

ouONOCNLWw-0O

m.—.—.—.—.—...._g_p..p_

WWWwWWwWwWwWwWwwWw

368

TINE HHICH RbL;R
BY TYPIN

THE PROGRAM WILL

REC

NIZE

PR RAM

NEW =’

aflflGE H?g
;? LEADING
ND _’ CONTROL U' FUNC ONS MARY Bt

DURING SWITCH ENTRY.

HARDWARE

SWITCH

POSIT

ALL

MAY

USED

REGISTERS,

THE

PROGRAM

ey Loe

SHITCHES IN THE 'UP’

THE ENTIRE SWITCH

ZtROS ARE NOT R;QU*RS? ’RUBOUT’
USED TO CORREC
NG ERRORS

IF _ THE

WILL

TIME

IS AT A HIGHER PRIORITY PROCESSING AN

ERCH TIME SNITCH SETTING ARE ENTERED,

SWITCH

RNY

RSO T oYA LT B

SWR = NNNNNN

ON PROCESSORS WITH

* CONTROL

THE

SWITCH

’SOFTWRRE’

FINDS ALL 1b

REFERENCES

BE TO THE ’SOFTHRRE’ REGISTER AND THE PROCEDURES DESCRIBED

QBOVE MUST BE FOLLOWED.

3.5

UNIBUS QDDRESSES

£ ar T

TR R THEFRGL T AL OES OF THESE PA55EVERS RS OORAM 15
UNIBUS
ADDRESS

RKO6-RK0O7
TAG NAME

LOCATION
PAPER TRPE
READER

DATA BUFFER
TAG NAME

LOCATION
STATUS REG
TAG NAME
LOCRTION

277400
RKBRS

23342

177552

PTRD8

1730
177550
PTRSR
1726

VECTOR

210
RKVEC

23344

NOT

USED

CZR6RCO RKB11-06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07

MACY1l 30(1046)

02-DEC-77

353
364

355
356
357

329
g;a

PAGE 9

SEQ 2008

177556
PTPDB
1734
177554
PTPSR
1732

TAG NAME
LOCATION
STATUS REG
TRG NAME
LOCATION

NOT
USED

3.6 EXECUTION TIME

368

369
370
371
372

I01

PQPER TRPE
PUNC
onrn BUFFER

358
359
360
361
362
363
364
365

11:59

EXECUTION TIME WILL DEPEND ON THE SPECIFIC TEST

DEFINED

USER.

3.7

THE

TEST PROGRAM SIZE

375
376
377
378
379

THE TEST PROGRAM SIZE IS LIMITED BY THE STORAGE PROVIDED
IN
THE
PROGRAM FOR
SOURCE
AND
OBJECT
CODE.
IT
IS
NOT POSSIBLE 10
SPECIFY THE EXACT MAXIMUM NUMBER OF SOURCE LINESTM
POSSIBLE
SINCE
THE
SOURCE LINES AND
THE RESULTANT
OBJECT CODE VARIES FROM
COMMAND TO COMYMAND.
HOWEVER,
THE
APPROXIMATE
MAXIMUM
IS
200

381
ggg

COMPILED CHECKS ARE PERFORMED TO INSURE THAT NEITHER
OR OBJECT CODE WILL EXCEED ITS RESPECTIVE STORAGE.

380

e
ggg

souncs

4.0

LIMES.

WHEN

THE

TYEST

1S ENTERED AND WHEN THE TEST IS
THE

SOURCE

USER DEFINED TEST FUNCTIONAL DESCRIPTION

388
389
gg?

FOLLOWED BY THE DEFERRED COMMAND SET.

392
393

THE FOLLOWING 1S AN EXAMPLE OF WHAT IS consxoeneo
TYPICAL
USRGE
OF
THE
USER
DEFINED
TEST.
THE
USER
WILL USE THE IMMEDIRTE

395

DRIVE

398
399

CHANGE THE ENTERE? 8 FERRED connauos
AFTER THE
TEST
HAS
BEEN
ENTERED
AND
EDITE
THE
HPILE
COMMAND IS EXECUTED
IF THE

403

EXECUTED.

394

396
397

400

401
402
404

405

:8;

THE
INTERACTIVE COMMAND
SET
IS
DESCRIBED
IN_THE
FOLLOWING
PARAGRAPHS.
THE
IMMEDIATE
COMMAND
SET
IS
DESCRIBED
FIRST,

COMMANDS TO SET UP THE ITERRTION COUNT AND

£NP¥T oqrn PQTTE2

COMMAND
TEST THE

HE TEST

TIMEOUT,

SELECT

THE

STC THEN CHOSING FROM THE DEFERRED

TIME WHILE
RING THE
NDS nnv BE useo TO DISPLARY AND/OR

COMPILE 1S SUCCESSFUL (NO ERRORS REPORTED) THE

OT,S

COMMAND

Exzcureo
T0 THE
STORE
THE SOURCE AND ALL ENTERED ohrn PATTERNS ON
PAPER TAPE.
RUN COMMAND IS THEN USED TO HAVE THE TEST
IF A CHANCE TO THE PROGRAM 1S DESIRED,

IS RERD IN THE EDITING PERFORMED,

ETC.

COMPILED AGAIN,

THE SOURCE TYPE

PUNCHED AGARIN

’ ANY TIME THE OBJECT CODE MAY BE SAVED BY DOING AN OT,0

connnno TO PUNCH
A TAPE WITH THAT CODE.

CZRBERCO RKb11-/06 USR DEFINED
02-DEC-77 11:07
fLL Lk ££
[Vl et ol o T S XY Sy
-0
OLONTN LW ow

CZRBRC.P11

MACY1l 30(1046)

4.1

02-DEC-77

11:59

JO1

PAGE 10

SEQG 0003

IMMEDIATE COMMAND SET

4Y.1.1

DRIVE SELECTION

DRIVE NUMBER

DN,

WHERE DRIVE NUHBER IS A SINGLE DIGIT O THROUGH 7 TO SPECIFY THE
THIS DRIVE NUMBER WILL BE USED UNTIL EITHER
DRIVE TESTED.
ALTERED BY ANOTHER DN COMMAND OR A DIFFERENT DRIVE _NUMBER
IS
WHEN THE PROGRAM
SPECIFIED RS PART OF A SUBSYSTEM COMMAND (SF).
IS INITIALLY LOADED THE DRIVE NUMBER IS SET TO 1.

42l

?
DN,

WILL CAUSE THE NUMBER OF THE DRIVE THART IS PRESENTLY SELECTED
BE TYPED.

4.1.2

OUYPUT TEST TO PAPER TARPE

WHERE O IS OBJECT CODE

07,0

WHERE S IS SOURCE CODE

O0T.S

THIS COMMAND IS PROVIDED TO ALLOW EITHER THE SOURCE OR THE OBJECT

ONLY THE SOURCE CODE CAN BE PUNCHED BEFORE
CODE TO BE PUNCHED.
THE "COMPILE COMMARND HARS BEEN ISSUED, BOTH CAN BE PUNCHED RFTER

THE “COMPILE" BUT BEFORE THE “RIIN“ ’AND ONLY THE OBJECT CODE CAN
BE PUNCHED AFTER THE “RUN". ALL TEST SPECIFIC PARAMETERS (DRIVE
NUMBER.

CYLINDER,

TRACK,

ETC.),

THE USER DEFINED DATAR PATTERNS,

AND THE RANDOM DAtA PRTTEAN ARE ALSO PUNCHED.
4.1.3

COPY TAPE

(COPY TAPE)

THE PAPER TRAPE LOADED IN THE REARDER IS REPRODUCFD CN
IT MAY BE EITHER SOURCE OR OBJECT CODE.

4.1.4

THE

PUNCH.

INPUT TEST FROM PARPER TARPE.
IT

(INPUT TEST)

THE NEXT TEST ON THE PARPER TAPE
IS RERD.
THE
TEST MWILL BE
RECOGNIZED RS SOURCE OR OBJECT CODE AND THE CODE PLRCED IN THE
APPROPRIATE BUFFER.
CONTROL WILL BE RETURNED TO THE CONSOLE

CZRERCO RKB11-06 USR DEFINED
CZRERC.P11

02-DEC-77 11:07

MACY11l 30(1046)

:gg

469
420

KO1

471

THIS

CONTINUES

UNTIL

TEST

SOURCE
CODE IS READ OR ALL TESTS HWAVE BEEN EXECUTED (TAPE SUPPLY
EXHAUSTED).
WHEN R TEST
OF
GSOURCE
CODE
IS
READ
CONTROL
IS
RETURNED TO THE CONSOLE RS FOR THE INPUT TEST COMMAND.
4.1.5

TIME OUT

TO, NNNNN

480
48]

WHERE NNNNN IS A DECIMAL NUMBER THAT WILL vnnv THE TIME
DURATION
OF
A
SUBSYSTEM
TIMEOUT
(SEE PARAGRAPH
4
THE
VALUE HAS NO

482

RELATIONSHIP TO TIME,

487

483
484
485
486

IT IS SIMPLY THE NUMBER or TIMES A SOF TWARE

LOOP
IS
EXECUTED. ' IT
‘IS
PRESET
TO 2000.
EXPERMENTING WITH
anues 1S SUGGESTED RS THE BEST PROCEDURE
TO
FIND
THE
DESIRED
VALUE
FOR
A
GIVEN
PROCESSOR
AND
MEMORY
CONFIGURATION.
THE
TIMEOUT FALUE IS OUTPUTED WHEN R TEST IS PUNCHED,
EITHER
SOURCE

:gg

OBJECT.

IS STORED.

4ar

WHEN THAT TEST IS READ, THE ASSOCIAtED TIMEOUT VALUE

NNNNN MUST BE 32767(10) OR LESS.

10,7

:gg

SEQ J010

(INPUT TEST STRING)

NEXT TEST IS RERD FROM' TAPE.

:;g

494
435

PAGE 11

THIS COMMAND DIFFERS FROM THE INPUT TEST COMMAND IN THAT
IF
THE
TEST
IS
OBJECT
CODE, THAT TEST IS IMMEDIATELY EXECUTED AND THE

472
473
3;2
47?

11:59

AFTER THE TEST IS LORDED.

:gg

476

02-DEC-77

WILL CRUSE THE TIME OUT VALUE TO BE PRINTED.

4.1.6

:gg

ITERATION COUNT

1C, NNNNN

500
ggé

WHERE NNNNN IS THE DECIMAL NUMBER or TIMES THE NEXT TEST EXECUTED
WILL BE ITERATED (32767(10) OR LESS)

503
o]

IF THE TEST IS WRITTEN ONTO PAPER TAPE EITHER RS souncs OR OBJECT
CODE,
THE
ITERATION COUNT
IS ALSO WRITTEN.
WHEN THE TEST IS

282

LOADED FROM PAPER TAPE, THE WRITTEN ITERATION COUNT IS USED.

507

I1c,?

WILL TYPE THE CURRENT ITERATION COUNT ON THE CONSOLE.

U 0t 0 ps pt e Pt Pt P

e = (O

OWwoONTNLWN-0OWw

508

4.1.7

SPECIAL DRTR PATTERNS

DP,BUFFER NAME,DDDD----D(RETURN)

?EEDG---D(RETURNJ

WHERE PATTERN NAME IS
X, Y,

OR Z AND WHERE DDDD----D IS THE OCTAL

A DAtR PARTTERN.
DATA TO BE USED RS

CZRERCO RKE11/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11 :07

MACY1l 30(1046)

02-DEC-77

11:59

LOL

THE TOTAL LENGTH OF
D IS

CARRIAQG

;TURNR

SEQ@ 0011

PRGE 12

snnxnnfe

WORDS

ATA

LESS.

PATTERN

TWO

ENTRY

CONSECUTIVE

AND

R SINGLE

CARRIAG
URN RETURNS THE CARRRIAGE BUT IS IGNORED AS FAR RS THE
ATA PRTTERN S CONSERNSB
é‘ LE§5 THAN 32 WORDS RRE ENTERED THE

EMAINDER OF

THE WORDS

ARE zERO

FILLED.

PER
EACH LINE HUST BE LIHITED TO 8 HORDS (48 ASCII CHRARACTERS)
Ngé HE CARRIAGE RETURN MUST BE TYPED.
gé
LINE
RLTHOUGH & ASCII CHRR TERS AR REQUIRED TO FILL A SINGLE WORD, R

CARRIAGE

RETURN

SOMETHING

OTHER

THAN MODULE & CAUSES LEFT

JUSTIFYING OF THE PRRTIAL WORD GIVEN AND USING IT RS A FULL WORD.

OR Z) MAY BE
SPECIFIED
IN ANY COMMAND
INVOLVING PATTERN QELECTION TO SELECT THE SPECIAL PATTERN. IF

THE PATTERN NAME (X

THE NAMED SPECIAL PARTTERN HRS NOT BEEN DEFINED PRIOR TO ITS
A PATTERN OF ALL ZEROS WILL BE SUPPLIED.

USE,

PUNCHED
L?% SPEC%RL DATR PATTERNS THAT HAVE BEEN DE FINED D W WILL BE
TEST.
THESE DATA PATTERNS ARE RETRI EVED WHEN THE TE ST
IS LORDED.

4.1.8

EDIT BUFFER

EB,BUFFER NAME,WORD POSITION,DDDODD----D(RETURN)

" DODDD----D(RETURN)
(RETURN)

TO BE EN? S ég? SOEETigN ig RN 0 TAL NUHSEB ?HE FIRST

WORD IN THE BUFFE

R
S SPECIFIED

NTRY PRO
FOR__TH!
COMMAND.
THE
AND ANY
IS NOTP CLERRED
SipyREENEE T ?EE ? N BUFFER
EN?FICQNTCHANGED
AS BEFORE,
"E_ UNCH QNGED
BY THE

ORDS NOT

PQRTIRL WORDS RRE LEFT JUSTIFIED ANL

4.1.9

SRO FILLED.

BUFFER DUMP

BD,BUFFER NAME,

NUMBER OF WORDS

NHERE BUFFER NQHE CAN BE SPECIQL BUFFER

OR Z, THE RERD

(R)

OR THE HEADER (H) BUFFER’ (SEE_SUBSYSTEM
BUFFER,
OR WRITE
COHNRND RERD QLL HEADERS). THE PRINTOUT _STARTS WITH WORD 0O AND
PRINTS THE NUMBER OF WORDS SPECIFIED (OCTAL).

4.1.10

COMPILE

CO,NC,BII

CZRERCO RKE11-/06 USR DEF INED
02-DEC-77 11:07
CZR6RC.P11

MACY11 30(1046)

02-DEC-77

11:59

MO1

SEQ 0012

PAGE 13

THIS COMMAND CRUSES THE STORED DEFERRED COMMANDS TO
BE
COMPILED
A_
TEST SEQUENCE.
THE OPTIONRL PQRQMETER (NC) SPECIFIES IF

I TETLCTS,10 SR BYGIM8 GHERK,, SR NO-SHEci NeRe, T ix 1
NORHRL CHECKING

IF THE PARAMETER IS

COM2ILED FOR NG-CHECK EXECUTION.

GIVEN

THE

TEST

WILL

NO-CHECK PERTQéNé ONbY T? ALL SUBSYSTEM COHHQNOS (SEE DESCRIPTION
OF THE
TEM
FUNCTION COMMAND AND THE COMMANDS LISTED IN
APPENDIX B.2) WITH THE EXCTPTION OF THE RS?D ALL HERDER.
THIS
COMMAND CANNOT BE EXECUTED IN NO-CHECK MODE.
THE OPTIONAL PRRAMETER (t

I) SPECTFIES

THAT

ALL

DATA

TRRNSFER

T3 SDEFERD
mier it SpRerrdiRG 81, BRuEEECYRECeROCRAN
SRERemeaT
THE
INTERNAL _ PROGRAM CHECK THQT LoOKS FOR WORD COUNTS THQT RRE
;gTER THAN THE

FER SIZ

THE

TRANSFER MW RC COUNT OF ANY SIZE

IT SHOULD BE NOTED THAT AFTER THE

WILL

RACCEPT

THE

SOURCE

CODE

COMPILE

STILL VALID AND CAN BE EDITED OR SAVED.

4.1.11

PROGRAM

RUN

e P
s Pome
e
Bt Pt ot
P
P

OONCNLW—0O

609

620

A_ RUN
THIS COMMAND CAUSES THE OBJECT CODE TO BE_ EXECUTED.
COMMAND GIVEN BEFOREA TEST IS COMPILED IS REJECTED WITH AN_ERROR
EXECUTING A RUN COMMAND CARUSES THE SOURCE CODE TO BE
MESSAGE.
LOST.

4.1.12

EDIT RADD LINE

ER,LN,NEW COMMAND

?HERE
N IS_TH ?HBER BECIMR ) THAT SPECIFIES
TE
T
WHERE NEW COMMAND IS
INSERTIO
INSERTED INTO THE SOURCE.

THE LINE THRT HRS QT THE ENTRY POINT) T0 THE END OF THE TEST NILL

BE INCREMENTED.

4.1.13

EDIT DELETE LINE
ED,LN

WHERE LN IS THE NUMBER IN DECIMAL OF THE LINE TO BE DELETED.

CZRBRCO RKb11-/06 USR DEF INE D

CZR6RC.P11

02-DEC-77 1 1:07

636

MACY1l 30(1046)

02-DEC-77

4.1.14

PRINT TEST

638

11:59

NO1

PAGE 14

SEQ 0013

€40

THIS _COMMAND HILL CAUSE THE STORED SOURCE TO BE

b4e

BEGINNING OF ERCH LINE

646

TELETYPE.

4.1.15

b6SY

4.1.16

NUMBER,

4.1.17

PRESENTLY "EXECUTING.

ITERATION

WHERE

£72

POSSIBILITIES ARE:

EZ;

NUMBER

NAME

=
— 00000000
WO
W0

CSl
WC
BA
DA
cse

THE

COUNT,

ALL

STORED

PARAMETERS

STALL, CYLINDER NUMBER,

(DRIVE

TRACK, SECTOR,

PR,REGISTER SELECT

[ ]
|4V

PRINT REGISTER

668

PRINTED

THIS COMMAND CRUSES THE PROGRAM TO INITIALIZE ITSELF BY CLEARING
THE SOURCE COMMANDS, CLEARING THE COMPILED TEST, AND_TERMINATING

ETC.) ARE NOT CHANGED.

PRINTED

662

671

NEW TEST

ANY TEST

666

WILL

WHERE LN IS THE DECIMAL NUMBER OF THE LINE THART IS TO BE PRINTED.

660
661

(DECIMAL)

PL,LN

656

658
659

NUMBERS

PRINT LINE

648

650

LINE

SPECIFIED

SELECT

—-

OCTAL

THE

UNIBUS

NUMBER

RDDRESSRBLE

NMEMONIC

DESCRIPTION
o

D an G

e e

COMMAND STRTUS REG 1
WORD COUNT
BUS RDDRESS
DESIRED RDDRESS - TRRCK & SECTOR
COMMAND
STATUS REG 2

BS
ER
ASOF
DC

DRIVE STATUS
ERROR_REGISTER
ATTENTION SUMMARY & OFFSET
DESIRED CYLINDER

DATA BUFFER

MR1

NAME.

MRINTENACE REGISTER

THE

CZRBERCO RKb611-06 USR DEF INED
02-DEC-77 11:07
CZRBRC.P11

MARCY1l 30(1046)

02-DEC-77

11:59

14
15
16
17

4.1.18

BOe

SEQ 0014

PRGE 1S

MRe
MR3
POS
PRT

MRINTENANCE REGISTER 2
MAINTENANCE REGISTER 3
ECC/POSITION
ECC/PRTTERN

HELP
HP

THIS COMMAND WILL CAUSE A SUMMARY OF THE

BE PRINTED.

INTERACTIVE COMMANDS

IT IS VALID ONLY AFTER THE PROGRAM IS FIRST LORDED.

[

4.1.19

FORMAT SELECT
FT,NN

NNNNNNNNNNN
m...p_y_p..)_.p_.—._.—._
owvoNoCNIWN—0O

709

72l

WHERE
NN SPECIFIES THE FORMAT AS

OCTAL

_NUMBER

(24

FOR

SECTOR/TRRACK AND 26 FOR 22 SECTOR/TRACK).
THE FORMAT DEFAULTS TO
2b.
THE SELECTED FORMAT RPPLIES TO ALL COMMANDS AND WILL
REMAIN
AS SET UNTIL CHANGED.

AS PART OF THE TEST.

THIS VALUE IS ALSO OUTPUTTED TO PAPER TAPE

CONSEQUENTLY,

CHRANGE THE FORMART SELECTED.

INPUTTING

TEST

FT,?

WILL CAUSE THE FORMAT VALUE TO BE PRINTED.
Y.1.20

ORIVE TYPE SELECTION

DT,DRIVE TYPE

WHERE DRIVE TYPE IS R SINGLE DIGIT & OR 7 TO SPECIFY
RKO& OR RKO7 RESP

THIS DRIVE TYPE WILL

BE USED UNTIL ALTERED BY ANOTHER
THE

DT COMMAND. WHEN THE PROGRAM IS IN 1 ;IQLLY LORDED,
DRIVE TYPE IS SET TO & FOR RKOb OP ERRTION
DT,?

L%ECQUgEDTHE DRIVE TYPE THART IS PRESENTLY SELECTED

4.2

DEFERRED COMMAND SET

#x%x

IMPORTANT

THE DRIVE TYPE CANNOT BE SPECIFIED OR ALTERED

CAN

ARLSO

CZR6RCO RK611-06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

MACY1l

30C1046)

02-DEC-?7

11:59

caoe
PAGE

SEQ 00iIS

ANY OF THE DEFERRED COMMANDS.
IT MUST BE SPECIFIED OR ALTERED ONLY BY THE DT
COMMAND IN THE IMMEDIATE MODE. SEE
4.1.20
SUBSYSTEM FUNCTION COMMAND

SF,SUBSYSTEM COMMAND,DRIVE NUMBER,CCC,T,SS,

NUMBER OF WORDS,DATA PATTERN’

WHERE ALL NUMERIC VALUES RRE OCTAL AND:

SF IS SUBSYSTEM FUNCTION COMMAND.
SUBSYSTEM COMMAND IS ONE OF THE FOLLOWING:
RD
WD

CS
DC
RC
DS
PA
UL
SS
OF

RERD DRTA
WRITE DRTA

ESNTROLLER CLERR
EK

CLEAR SUBSYSTEM
DRIVE CLEAR
SS?G&IBRRTE
ELECT
PACK
RCKNOWLEDGE
UNLORD
START SPINDLE
OFFSE T

RERD ALL HERDER

DRIVE N H?FR S_THE Ngflflsg OF THS gRIVE TO BE_ADDRESSED.
IF UNSPECIFIED
THE LRST
DRIVE ADDRESSED WILL BE USED.
CCC IS THE CYLINDER ADDRESS OR THE OFFSET VALUE
SUBSYSTEM COMMAND IS OFFSET.
T

THE

TO0

IS THE TRACK RDDRESS

SS IS THE SECTOR RDDRESS
NUMBER

WORDS

THE

NUMBER

WORDS

§ EB ?2 ?H THE nnyfnun nfi Eafigi'xs EEPgSTEB HHEN

THE TEST IS COMPILED UNLESS THE COMPILE COMMAND IS GIVEN

“é H

THE

DESCRIPTION).

BII

PRRAMETER

(SEE

COMPILE

COMMAND

DATA PATTERN IS AN ALPHABETIC CHARACTER
TO
SELECT
THE
DESIRED DATA PATTERN FROM THE VARIOUS PRTTERNS ARVRILABLE

CZR6RCO RKH11-06 USR DEF INED
CZR6RC.P11

02-DEC-77 11:07

MACY1l 30(1046)

02-DEC-7?7

11:59

D02

PAGE 17

SEQ 0016

801
§§§

EE APPEND x A
H
TERS
aém
3&&'5 é°§ Fmgsnffgggnos
u?
THiS 0gnflsfifl E Had VYAké?

892
807

SSIUE“R“"EEE“
Pax °$u8?1HE&«E?ER“LS“EBRE?QEE‘RE&ERPQNWEERE‘?N
THE COMMAND RLL
MAINING
PRRAMET
FAULT.

0000 G000 00 0D 00 (O
D
UM 0 0 e s Bt pmt Pt Pt Pt s
-O0oNTM
N LWU—-0O

§Spnnmons

(
ng mge vgppuso IF A PflRRflETER IS onxnso AND
LLOWING Pmknns
Gl
OMITTING T
R PRRMETER
EFUL
TO HA
R__GENERAL
PURPO%
T
E§
?RH}#ECM
63
3%
gbRESS
v?HE
IMMEDIGE
COMMA
O SPECIFY Tl{ DESIRED DRIVE BEFORE THE

GENERARL PLRPOSE $
gfis'%égzflelfgs%F MORE THRN ONE

IS NOT
GENERAL

NOTE THRT THIS
XECUTED.
IN THE
RIVE IS TO BE USED

?gm PRTTERN PRRAMETER WILL
ONITT;fi THE

T0
RNHQNER

THI

CRUSE

R AS IT WAS LRS; INITIQLREEPRRTIFFT!?H SHET THI

ee:
5

eg&éfifi?Ofl SPEED SHOUL BEFRST FO
?gEESPE%I&‘:'LY ?RN*S
scorltic
meboses,
TE REFRNITALE, Coovens
G, € CHTFES
AN

829

R
...gsw ook s e il
IS INVOKEE
nc FUNC IONS THAT DETECT THE OCCURRANCE OF

831

INHIBIT

826

836

ggg

gag

THE NO-CHECK CRPMILITY OF THE COMPILE
LURES

SYSTEM

Efifi%fi&?@**&%fifié

THE

COMMAND

CONTROLLER

PLIES
OR_

THE

DRIVE

RRE

XECUTED REGRRDLES

o, °gé5¥ssr L UERANCE

8 l-é HOOE g USE Tl'giggST PRO&RHFPE sE RSNSISLE
FOR T STING
FOR ERRORS AND CLERRING ERROR CONOIT

THE hRITE HERDER CmRIS IH’LEEENTED &;;UCH

THsgICFTIHE

EYL‘Iq[?DEz

841
B:S

';ag?mmsi

84S

g:g

SPECIRL DATA PRATTERN BUFFER

850
851
852

DOES
OF
THESE BUFFERS MUST BE SPECIFIED USING TRE SPECIAL DRTR AND
PATTERN
(DP) COMMAND TO LORD ALL _OF BUFFER X, ALL OF BUFFER Y,
THE

gga
8ss

(CYLIN?ER2 TRRCK
;&5 ?P éE FORERTTEE
#HEHERDER
0850{’89
IF (S:ZECIFI$D RS ZERSATERU‘.I;EDTTHE SggRECT
ESR

TBTStoR

AL BRCES B
LaCeTIOn. 2 8RRISRNDZ NRRE0l USED
AND _ WRITTEN RS

THE HERDERS ON THAT CYLINDER RND TRRCK THE WRITE HERDER COMMAND
NOT ALTER THE CONTENTS OF BUFFER X

R Z.

THE

CONTENTS

FIRST 2 WORDS OF BUFFER Z (66 WORDS REQUIRED FOR HERDERS).

CZR6RCO RK611-/06 USR DEFINED

CZR6RC.P11
ggs

02-0EC-?7 11:07

MACY1l 30(1046)
4.2.2

ggg

EQ2

PAGE 18

SEQ 0017

BUFFER INITIALIZE

WHERE THE ALPHABETIC CHARACTER SPECIFIES THE DRTA PATTERN TO BE
USED (SEE APPENDIX A FOR THE AVRILABLE PATTERNS).
THE OUTPUT
BUFFER NILL BE INITIALIZED TO THE PATTERN SELECTED.
CHARACTERS
Z RRE VALID TO SELECT THE USER DEFINED DATAR PATTERN.
IF

865
EE?
868
g;?

11:59

BI,ALPHABETIC CHARACTER

861
862
863
864

869

02-DEC-?7?

Tfis épscan DATA PATTERN HAS NOT
BEEN USER DEFINED BEFORE IT IS
SELECTED A PRTTERN GF ALL ZEROS WILL BE USED.

4.2.3

DATA COMPARE

DC, NNNNNN

g;g

874
875
876
g;g

WHERE NNNNNN IS
R OCTAL VALUE SPECIFING THE NUMBER OF WORDS TO BE
COMPARED STARTING AT THE BEGINNING OF THE OUTPUT AND INPUT
BUFFERS.
IF NNNNNN IS OMITTED THE NUMBER OF WORDS 1IN THE LAST
INPUT DARTA TRANSFER ARE COMPARED.

879

A DATA MISCOMPARE WILL CAUSE THE GOOD AND BAD DATA TO BE REPORTED

gg?
882
883
ggg

ggg
Sgg

890
891
ggg

IN THE ERROR REPORT.

4.2.4

STARTUS COMPARE

SC,STATUS WORD NUMBER,EXPECTED VALUE,MASK
WHERE ENTERED VALUES ARE OCTAL AND:

STATUS WORD NUMBER IS THE DRIVE STATUS WORD TO BE
COMPARED.
STATUS WORDS ARE DESIGNATED O THROJUGH 7 AND
ARE ARBITRARILY RSSIGNED RS FOLLOWS:

Bas
B6
897

B0
13 N3RSk
LINE
BR LoRb
o1
01
{2
ME220CE
LINE
WoRD
03 IS
LINE B WORD 1

ggé

07 IS MESSAGE LINE B

898
899
900

gga

] {s
L}ng A
0s IS
SAGE
L
8
06
IS MESSAGE LINE &

90s

908
908
910
911
912

WORD 2
WORD 2
WORD 3

WORD 3

gépscrso VALUE IS THE VALUE THE STATUS SPECIFIED

SHOULD

)
¥

MASK SPECIFIES WHICH BITS RRE TO BE conpnaso IN THE
STATUS WORD READ AND THE EXPECTED VALUE.
R ONE IN R
SPECIFIC BIT POSITION
ALLOWS
THRT
BIT
POSITION
COMPRRISON TO OCCUR AND R ZERO INHIBITS COMPRRISON.
MASK IS INITIALLY SET TO 077777 WHEN THE PROGRAM
IS

MACY1l

30(1046)

02-DEC-77

11:59

LOARDED.

JD D DD ODD O
1 9= 4t bt pa s e [,
OVONTN
Lw

CZRGRCO RKb11-/06 USR DEFINED
02-DEC-?77 11:07
CZR6RC.P11

FO2
PRGE

SEQ 0018

(BIT 1S OF DRIVE STRTUS WORDS IS ALWAYS ZERO.

ONCE MASK HARS BEEN SPECIFIED,

USED

THAT
VALUE

STORED

SUBSEQUENT

SPECIFICRTION.

COMMAND

THART

INCLUDES

A STATUS MISCOMPARE WILL CAUSE THE GOOD AND BAD STATUS
BE REPORTED.

4.2.5

RND

FOR SUBSEQUENT SC COMMANDS UNTILL IT 1S CHANGED BY
MASK

WORDS

THE

EXPECTED

MRSK SPECIFIES WHICH BITS ARE

SHOULD CONTRIN.
REGISTER

SPECIFIC

THE

AND_

BIT

NUMBER

THE

UNIBUS

TO BE COMPARED.
VALUf

THE

POSITION

COMPARI'SON
TO OCCUR

THE

EXPECTED

ALLOWS

RDDRESSABLE

SPECIFIED

COMPARED

_VALUE.

THAT _ BIT

THE

ONE

IN AR

POSITION

ZERO INHIBITS THRT COMPARISON.

MASK IS INITIRLLY SET
TO
177777
WHEN
THE
PROGRAM
LOADED.
ONCE THE MASK HAS BEEN SPECIFIED, THRT VALUE

IS
IS

STOREDRgg USED IN SUBSEQUENT RC COMMANDS'
UNTIL THE MASK
IS

CHANGED

A SUBSEQUENT RC COMMAND THQT INCLUDES A

MASK SPECIFICARTION.

s%gég ER

4.2.6

MISCOMPRRE

WILL

CARUSE

GOOD

AND

BRD

VALUES

NAME

RW,REGISTER SELECT, VARLUE
WHERE ENTERED VALUES ARRE OCTAL RAND:
#

THE NUMBER

THE

MNEMONIC

THE
__UNIBUS
ADDRESSABLE
REGISTER
OF
THE
RK611 TO BE
WRITTEN.
(SEE PRARAGRAPH 4.1.14 FOR LIST OF NUMBERS
AND
NAMES.)
VALUE

THE

VALUE

TO BE

LOARDED.

ANY REGISTER AND ANY VALUE MAY BE SPECIFIED.
FOR READ ONLY BITS.

CHECK

MADE

CZRBRCO RKB1i-06 USR DEF INED
02-DEC-?77 11:07
CZRPC P11

971

MACY!l 30(1046)

4.2.7

02-DEC-7?7

SEQ@ 0019

ST, NNNNN

97S
976

WHERE NNNNN IS A DECIMAL NUMBER SPECIFING
A
CONSTANT
TQ
DELRY
EE;EEEN SUBSYSTEM FUNCTION COMMANDS.
NNNNN MUST BE 32767(10) OR

4.2.8

PRINT MESSAGE

983

PM, MESSAGE

98S
986
987

WHERE MESSAGE CAN BE ANY RSCII STRING
UP
T0 70 CHARACTERS
_IN
LENGTH.
THART MESSAGE 1S PRINTED ON THE CONSOLE TERMINAL WHEN THE
PM COMMAND IS EXECUTED.
THE HESSQGE IS PRINTED ONLY
DURING
THE

990

COUNT

389
995

4.2.9

A RUN COHMQND I?HEXECUTED AND

GRERTER

(SW3 SET AND ERROR

ITERATION

IF LOOP ON TEST (SNIH SET) OR LOOP ON

UNIBUS INITIALIZE
uI

999

THIS COMMAND WILL CAUSE A RESET TO BE EXECUTED TO CLEAR ALL UNITS

1000

000000000000 00000000000
U
TU NN 0= s e s e he e 1 b= == ) OO o
LW
OVODNCN LW OLDDN o

ERROR

997

CONNECTED TO THE UNIBUS.

4.3

LINE NUMBERING

RS DEFERRED COMMANDS RRE _ENTERED AND STORED,

DECIMAR

ENE

NUMBERS

_THE

THE PROGRAM

COMMANDS SEQUENTIALLY.

gg?g%?gGR?PLgsED IN THE EDIT COMMANDS (ER AND ED)

AND

_RSSIGNS

_THE LINE

FOR

LINE

)

OF THEUTEST AFTER

SUPPRESSEE gURING SUBSE ENT TEST ITERQTI NS

991

Y oY oy Sy ShY Sy SN Iy

PAGE 20

STALL

973

981

11:59

GO2

WHEN A LINE IS ARDDED OR DELETED FROM THE SOURCE,

ARE

RENUMBERED

IMMEDIATELY.

THE STORED LINES

SUBSEQUENT L INE ORIENTED COMMANDS

Y e

e e

MUST TAKE THE NEW LINE NUMBERS INTO CONSIDERATION.

4.4

TIMEOUT

TO PREVENT “SILENT

DEATH”

SITUATIONS

(THE

PROGRAM

STARTS

OPERATION
ON
THE RKO6_SUBSYSTEM AND THE SUBSYSTEM NEVER SIGNALS
COMPLETION) A SOFTWARE TIMER IS EMPLOYED. " ERCH TIME THE
PROGRAM

MACvll

30(1046)

02-DEC-77

11:59

PAGE 21

SEQ 3020

Re8ke +AHr SRERRZACESFEoTHE
U9\ HBARCEGES BY*FHR"E“ Aga¥3hRal8
B o8 A ot rdHE
LA BB T COMPLETE, T PR
THE RERSONRBLE PERIOD OF TIHE JUST MENTIONED IS NOT CALIBRATED TO
REAL
TIH§.
CQ% 0%
NOT
POSS BLE
BECARUSE
OF VARIOUS
CONF IGURRTIONS OF
MEMORIES RND PROCESSOR

ODODOODOOOOSO

e
e B
s
e
s P
s
Bt Pt
s P P
e bt

29
0
31

X
34

TO ENHANCE THE USEFULNESS OF THIS TIMEOUT FERTURE,

VARIABLE.

g%
38
39

4.5

BEING LOOPED,

S.0

THE

THESE RRE

WHEN

AND IS REPORTED (SWITCH 13 RESET) AND WHEN LOOPING

ERROR REPORTING FORMRTS

REP RT FORMATS

ARE

DEFIN

FORMAT 1

IS FOR ALL

ERROR

?T SIC5
8
8 2 SRE é Eg'fED) WHERE CFORM
nano RbRRnEre 2
RND RKb1 1 REGISTER ONTENTS ARE APPLICABLE
COMPARISON

ERROR

REPORTING,

AND DRTA COMPARE.

1I. E

srmus

conRRRE

COMPARE,

P
ot P
Pt B
s P
s Bt Pt Pt Pt ot
s Bt Pt Pt
00 Dt 9t Bt

TIMER

WHENEVER A TEST IS

EARCH LOOP IS COUNTED.

THE LOOP COUNT IS REPORTED IN TWO INSTANCES.

%gR?ERM?gS¥ES

Piae Pt B

Pt o

THE PROGRAM WILL LOOP

TEST (SWITCH 14) OR LOOP_ ON ERROR’ (SWITCH 9).

1046

000000000000 00000D0000000000 o
@ NNN NNNNNNNO
OO
I NN wn
CQOUONCNILWN—OLONOCNLWNN—~OoO NN
L |8]

THE

THE DEFAULT VALUE

TEST LOOPING AND LOOP COUNTERS

USING THE SWITCH OPTIONS PROVIDED,

1047

1052

(SEE_TIMEOUT COMMAND DESCRIPTION).

OF THE VARIABLE IS LARGE ENOUGH TO INSURE COMMAND COMPLETION.

o000
L£LL
L
nLwn

165
5%

CZR6RCO RKE11-06 USR DEFINED
De-DEC-77 11:07
CZRBRC.P11

5.1

FORMRART

FORMAT

| HARS THE FOLLOWING ENTRIES:

ERROR MESSAGE
XXX = CMND LINE

NUM

DRIVE=
CMND=

CURRENT OPERATIONS:

PARAMETERS GIVEN:

CYLNDR

SECTOR

TRACK

OFFSET

BRH

BAL

WDC

CZRHRCO RK611-06 U
CZRE6RC.P11

MACY1l 30(1046)

02-DEC-77

11:59

102

SEQ 0021

PAGE 22

€SI

€S2

PREVIOUS OPERATION:
DRIVE=

) WG

I W LININU T NI U MU NU DU MU N 8 5t B

s s e Pt Pt Pt ps

CNLWN=-=DODONOCNLWN—-DOVONTNLWN—-OODO
NN LWNN—-OO00 N NLWN—

1090
e Dot Dt Gt Pt Pt Pt ot B Pt Bt Pt Bt Pt (Bt Pt et s P Pt Pt B ot et Pt ot Pt Pt Pt Bt Pt Pt Pt Pt Pt Gt P Pt et e Pt Pt Pt Pt
s et Pt Pt P Pt Dt Pt Pt Pt Pt Pt Pt Pt Pt s Pt Pt Pt Pt Pt Pt Pt Pt et P Pt Pt Pt Pt Pt s Pt Pt Pt et ot 00000000

ODOODODQQO\D\D&O\D\D\D\D% S

APPLICABLE REGISTERS:

RSOF

ECC/POS

ECC/PAT

CMND=

PARAMETERS GIVEN:

CYLNDER

SECTOR

TRACK

OFFSET

BAH

BAL

WDC

XXXXXXXXXX = NUMBER OF LOOPS

ALL THE ENTRIES LISTED ABOVE WILL NOT RAPPEAR
IN EVERY_ _REPORT.
FOR
ENTRIES THAT ARE NOT PERTINENT TO THE OPERATION ARE OMITTED._
EXAMPLE, THE PARAMETERS GIVEN ENTRIES ARE NOT RPPLICARBLE TO A

PACK ACKNOWLEDGE OPERATION SO ALL THESE ENTRIES ARE OMITTED IF PR
IS THE FAILING COMMAND.

THE NUMBER OF LOOPS ENTRY IS PRINTED ONLY IF THE TEST IS RUNNING
WITH LOOP ON ERROR OR LOOP ON TEST SET.
WITH THE EXCEPTION OF
THE ERROR MESSAGE ENTRY,
THE ENTRIES LISTED ABOVE RRE SELF

EXPLANATORY.
.1

ALL ERROR MESSAGES ARE LISTED BELOW.

SUBSYSTEM DETECTED ERROR

THIS MESSAGE IS PRINTED WHENEVER THE PROGRAM IS ALERTED _THART THE
THIS INCLUDES ALL THE ERRORS
SUBSYSTEM HAS DETECTED AN ERROR.

DETECTED IN THE CONTROLLER OR DRIVE.

5.1.2

UNSOLICITED ATTENTION

THIS MESSAGE INDICATES AN INTERRUPT WARS RECEIVED FROM A DRIVE BUT
NO OPERARTION HAS BEEN STARRTED ON THRT DRIVE.
THIS MESSAGE WILL

BE SFEN IF WRITE LOCK IS CHANGED OR £ DRIVE IS STARTED_ MANUALLY.
THE MESSAGE IS NOT PRINTED WHEN Te CHANGE OCCURS _IF THE PROGRAM
IS AT COMMAND LEVEL (INTERRUPTS ARE LOCKED OUT) BIT IS PRINTED RS
SOON RS CARRIAGE RETURN IS TYPED ON THE CONSOLE.

S.1.3

UNEXPECTED DATA TYPE ERROR

THIS MESSAGE INDICATES AN INTERRUPT OCCURRED THRT WAS

CRAUSED

CZRBRCO RKB11-06 USR DEFINED
CZR6RC.P11

02-DEC-77 11:07

MACY1l 30(1046)

1137

DATA

S.1.4

63
3?

OPI, HUNC, OR WCE) WHEN NO COMMAND OR A

ATTENTION DID NOT RESET WITH SUBSYSTEM CLERR
THIS MESSAGE INDICQTES AN ERROR OF THE SRME

5.1.6

TYPE

"ATTENTION

ILLEGAL DRIVER COMMAND

THIS MESSAGE IS AN INDICATION OF
AN
IT
SH OULD
PROBLEM
NEVER
APPERR.
DIAGNOSTIC ENGINEERING.

INTERNAL
PROGRAM
INTERLAU
IF IT DOES, PLEASE NOTIFY

SUBSYSTEM TIMEOUT

§.1.7

THIS MESSAGE INDICATES THAT
THE SUBSYSTEM_FRILED
TO SEND AN
INTERRUPT WITHIN A RERSONABLE PERIOD OF TIME.
“REASONABLE" IS
SUFFICIENTLY LONG SO THAT THE INTERRUPT SHOULD HAVE OCCURRED.

S.1.8

CLEAR CONTROLLER DID NOT CLERR ERROR
THIS HESSRGE INDICRTES THRT THE CONTROLLER ERROR

WHEN

8s
gg

(DCK,

SEQ d022

DI D NO RESET WITH ORI
RIVE CLEAR"
THE DIFFERENCE IS THAT THE
SUBSYSTEM CLEAR GENERQTES RESET TO ALL DRIVES.

PAGE 23

ATTENTION DID NOT RESET WITH DRIVE CLEAR

5.1.5

727

TYPE

Joa2

THIS MESSAGE INDICATES A DRIVE CLERR
COMMAND
WRS
NOT
ARBLE
TO
RESEYT
THE
DRIVE ATTENTION SIGNAL.
THIS IS R CATRSTROPHIC ERROR
§3$E;EEP$EOGRQN.
THE HIGH RTTENTION SIGNAL WILL CAUSE CONTINUOUS

ERROR

11:59

NON-DATA TRANSFER COMMAND WAS'BEING’EXECUTED.

= OVDMNCN LW

Pt Pt Pt ot Pt Pracn Pt Pt Pt Pt et Pt Pt Pt P Bt ot Pt P Pt Pt it Pt Pt Pt Pt Pt P Pt ot Pt P Pt Pt Pt Pt Pt it Pt Pt e et Pt et P Pt Pt Pt ot Pt Pt Pt P P
ot Bt Pt ot Pt s Pt Pt Pt Pt P Pt P P P Pt Bt Bt ot $ Pt Bt Bt Pt ot Pt e Pt Pt P (s Pt P B P P Pt P Pt P Pt Pt B Pt Dt Dt B Dce Pt Pt B Bt Pume P

oo NUNN nnnunnnnNE
L L L L L LLL LW

ODDNOCN LW~ OV NN LWN—-0
L

1138

73
74

02-DEC-77

A CONTROLLER CLEARR WRS DONE.

WAS

NOT

RESET

_THIS
HARS THE SAME IMPLICATION

AS “DRIVE HARD ERROR®” MESSAGE BUT AT THE CONTROLLER LEVEL.
5.1.9

NO ARTTENTION IN ARTTENTION SUMMRRY REGISTER
THIS MESSAGE
INDICATES AN
INTERRUPT WAS
CONTROLLER BUT NO DRIVE HRS RARISED ATTENTION.

S.1.10

RECEIVED

FROM

THE

COMMAND

AND

DATA LATE WHEN UNLORDING HEADER

THIS MESSAGE IS PERTINENT TO THE

RERD

ALL

HERDER

MACY11l 30(1046)

02-DEC-77

11:59

KO2

PAGE 24

SEQ 0023

INDICARTES PROBLEM REACHING THE DATA BUFFER.

[=]

[ ]

v—o—;\-;o—o—v—o—o—o—r—.—v—o—-o—o—o—-—o—u—o—-o—o-p-o-»-»—o-v—o-—.-—»—-o—»—w—o—»—»—-u—n—v—-u—o—»—.—»—u—-—o—»—
NN RN D VRY AL NNV
PV RN R UMY
£E W UUUUUWNNUNNNNNNNNNN
gV 0gV Iai Vg=HIg DVgOO
VIAVIVIN
G VA VAOVAV I el e Lol
MYt b=t Al
b e IV
b b=
O OVAV
QOO
o 0 BURN EOR
B BB NN E ORI OD Do £ L OB B IRR Lot
n9RR eS8

CZRB6RCO RK&11 706 U
0e- D
CZRBRC.P11

S.1.11

CONTROLLER ERROR WHILE DRIVER SERVICING

THIS HESSRGE INDICATES A

CONTROLLER

ERROR

OCCURRED

WHILE

THE

PROGRAM
WAS DOING SERVICE TYPE OPERATIONS.
THESE SERVICE
OPERATIONS ARE OF THE “DRIVE SELECT” OR "DRIVE CLEAR"TM NATURE _AND
ARE PERFORMED WHEN THE PROGRAM IS GATHERING STRTUS FOR REPORTING,
CLERRING ERRORS,

S.1.12

ETC.

DORIVE PARITY WHILE GRTHERING S

THIS MESSAGE INDICATES THAT
THE
DRIVE
HAS_
DETECTED R
SERCON
PRRITY ERROR WHILE THE PROGRAM WAS DOING THE SERVICE OPERRTION

DESCRIBED RBOVE.

S.1.13

MULTIPLE DRIVE SELECT

THIS HESSQGE IS SELF-EXPLQNRTORY AND WILL APPEAR WITH A SUBSYSTEM

DETECTED ERROR MESSRG

5.2

FORMAT 2

THESE ARE REGISTER
THREE ERRORS ARE REPORTED USING FORMAT 2.
COMPARE ERROR, STATUS COMPARE ERROR, AND DATA COMPRARE ERROR.
THE REGISTER AND STATUS COMPARE ERROR REPORT FORMAT IS:
XXX=CMND LINE NUM

ERROR MESSAGE (STATUS OR REGISTER COMPARE ERROR)
NN=REGISTER NUMBER OF STATUS WORD NUMBER
(VARLUE EXPECTED)=GOOD DRTA

(VALUE RECEIVED)=BRD DARTR

(SPECIFIED MASK)=NUMBER OF LOOPS
THE DRTA COMPARE ERROR REPORT FORMAT IS:
XXX=CMND LINE NUMBER

DATA COMPARE ERR ON WORD NNNN
(DATAR)=GOOD DATA

CZRBRCO RKb11-/06 USR DEFINED
02-DEC-77 11:07
CZRBRC.P11

MRCY11l

30(1046)

02-DEC-?7

11:59

LO2

PRGE 25

SEQ 0024

(DRTR)=BAD DATA
XXXX=TOTAL MISCOMPARES

mmmmw\h:\luvuvuvmmogmmwmggfig it

XAXXXXXXXX=NUMBER OF LOOPS

W=DV ONTNLWN—-ODLD NN LWNN—-O

RNV
NIV
RV VYD

APPENDIX A

THE FOLLOWING DATA PATTERNS HAVE BEEN DEFINED.
RDDITIONAL
PRTTERNS WILL BE INCLUDED WHEN THEY BECOME KNOWN.

PATTERN *RTM

PATTERN *B”

177777

000000

177777

125252

052525

(32 WORDS)

05252eS

000000

000Ca0

PRTTERN “C*
125252

177777

000000

177777

125252

PATTERN "E”

PATTERN *F*

PATTERN “G"

000031

17727277

00800
00000
00017
000037
000077
000177
000377
000777
001777
003777
007777

017777
037777
077777
172777

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000

170000
160000
140000
100000

1252s2

177776

177775
172773
177767

1772757
177737
177677
177577
177377
176777
175777
173777

167777
1577277
137777
077777

PATTERN D"
0525es

0sases

et Pt B et ot e Pt Pt P Pt Pt Pt s et Pt B Bt Bt ot ot P Pt Pt Pt Pt e Pt P et o Dot Pt Pt Bt Pt Pt Pt ot Pt ot Pt Pt (s Pt s Pt s ot s
Ww W
W ) W W) W Wt W W W W W W(NIRRT
INIATNINISTAIRININTININIRIATIN
A WWWWW W
wWw
onun i nLLr
L LFLLWwww W QW W GG WL N NININT N PO
NS 4 pes bes ps e pot Poms e P Qo
oOwm NN LEWNU—OWDm
NN LW —OOd~N TN LW OO0 L W
OW
U L W
0O 00

e Dt

CZRLRCO RK611-06 USR DEFINED
CZKeRC.P11
02-DEC-?77 11:07
MARCY11l
30(1046)

02-DEC-77

000001

11:59

PATTERN *H"

MO2
PRGE 26

Q77777
037777

868834
PATTERN “I"

00000e

(32 WORDS)
155555

155555

SEQ 00es

132777
157777

CZRERCO RKB11-/06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

MACY1l 30(1046)

O02-DEC-7?7

11:59

NO2

PAGE 27

1361

1362

APPENDIX B

1363
1364

1365

136
1367
1368

1369
1370
1371
1372

;g;g

SEQ 0026

B.1
B.1.1

COMMAND SUMMARIES
eemmmmmemmcme—ea-

USER DEFINED COMMAND SET
IMMEDIARTE COMMANDS

ALL DECIMAL VALUES MUST BE LESS THAN 32767(10).

1377

{g;g

1380

138!

COMMANDS

MNEMONIC

PARAMETERS

DRIVE SELECTION

OUTPUT TEST

1387

INPUT TEST

NONE

1390

ITERATION COUNT

, NNNNN

1393
1394

SPECIAL DATR BUFFER

,PATTERN NAME
'po0D....D

1396
iggg

COMPILE

,NO CHECK
' INCREMENT INWIBIT

1399

EDIT ADD LINE

i:gg

EDIT DELETE LINE

,LN

1404
1405
1406

EDIT BUFFER

€8

,BUFFER NAME
"WORD POSITION
' DDDD--D

1408
{:?g

BUFFER DUMP

,BUFFER NAME
"NUMBER OF WORDS

i:ié

PRINT TEST

PRINT LINE

NONE

NEW TEST

NONE

1362
1383

1384

138%
1386

%ggg

1395

138?

1407

1313
1415

1416

INPUT STRING

,DRIVE NUMBER

NONE

,LN

'NEW COMMAND

,LN

CZR6RCO RKB11-06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

MACY1l 30(1046)

O02-DEC-77

11:59

BO3

PRGE 28

SEQ 0027

Pt Pt Pt
s P
(it
P
s Bt et Bt P
e ot Pt
s Bt Pt
B
Pt Bt ot Pt B

LfLfrLrrrrrcrrrs
L
LcLLEL
£ £ GGG
LW W W W W RN NIV R MM NN Y > e
—0VONCNILWN-OVONCNLWNN—-OVD

1417

1442
1443

ThAr

RUN

NONE

PRINT REGISTER

,REGISTER NUMBER

HELP

NONE

TIME OUT CHANGE

,SONSTRNT
’

B.1.2

COPY TAPE

, NONE

FORMAT SELECT

,FORMAT

DRIVE TYPF SELECT

,QRIVE TYPE

DEFERRED COMMANDS

ALL DECIMAL VALUES MUST BE LESS THAN 32767(1).

COMMANDS

MNEMONIC

1447
1448
1449
1450
1461
1452
1483

SUBSYSTEM FUNCTION

,SUBSYSTEM COMMAND
'DRIVE NUMBER
' ¢cC
'T
'SS
"NUMBER OF WORDS
'DATA PATTERN

1455

BUFFER INITIALIZE

,PATTERN SELECT

1467
1458

DATA COMPARE

DC
oC

NONE
, NNNNN

1460
1461

STATUS COMPARE

,STATUS WORD SELECT
"EXPECTED VALUE

1464

,REGISTER NAME OR

1446

1465

1466
i34
1469

1470

1471

1472

NUMBER

PARAME TERS

JEXPECTED VALUE
" MASK
RW

,REGISTER NAME UR
, VRLUE

CZR6RCO RK6i1-/06 USR DEFINED
CZREeRC.P11

De-DEC-77 11:07

MACY1l 30(1046)

1473

1474
1478

02-DEC-?7

11:59

cod

PRGE 29

SEQ 0028

STALL

, NNNNN

PRINT MESSAGE

, MESSAGE
NONE

‘D\D\D%

Dt Bt Pt Bt ot Pt Pt Pt ot B

Bt Pt

e Pt P

Pt Pt Pt Pt

e ot Pt P

nnnnsLrLrLLffLrrLsrrrrLr
L L L
QOO0OOWLH
D
W— 0w~ onsL

Pt Pt

UNIBUS INITIALIZE

B.2

SUBSYSTEM COMMANDS
3

COMMAND

RER? ORTA
WRITE DQTR
WRITE CHECK
WRITE HEADER 8 DRTA
RERD HERDER

LERR SUBSYSTEM
K

CONTROLLER CLERR

ECAL1ERATE

T
DRIVE S
PACK flCKNONLEDGE
UNLOARD

STQRT SPINDLE
OFFSET
READ ALL HERDER

MNEMONIC

CZRBRCO RK611-/06 USR DEFINED

02-DEC-77 11:07

1504

167000

PAGE 30

SEQ 0029

R6RCO

.DEFINE SWITCHES

511/05 USR oerineo

'%DIGIT Egg
PMENT gonp
: #COPYRIGHT

(C)

1976,1977

;nnvuna

01784

;Pnocnnn BY MARV TEGROTENHUIS

ITHIS PROGRAM WAS ASSEMBLED USING THE POP- 11 nnxnoec SYSMAC
:PQCKRGE (MRINDEC-11-D2GRC-C3), JAN 19, 1977
SBTTL

OPERATIONAL SWITCH SETTINGS
SWITCH

000011

177776

177774
177772
177570
177570
000000
000001
000002
000003

WV
W

001100

LA S

.SBTTL

USE

SR 83

WIWIWI

]

§TN=1
8

000001

W WIWIWE

S5 BBNRREER-

D03

SE iNE svghnc MACRO
23“ kx

.TITLE

WLV

N 3= b= s s st Pt s o s Bt (O Q0

W~ O DONTNLWNN-OW @~

e P

i [VaJ"a)

Pt Pt B

0t e Dt Bt Bt Bt et Pt P

Bt B Bt P

Pt Bt ot Pt Pt Pons Pt s s Pt s Pt

i i INUINNNTUUHN
WL
£
£t
NLWN O NN LW

11:59

.LIST

1524

02-DEC-77

; #ax REV 00?
ST
HC MD,CND

1282

e Bt Gt Gt P

30(1046)

CZR6RC.P11

MARCY!l

iNIRH] So0es TupEouTs

BELL ON ERROR

155101" M1SComane paiving
SHORT REPORT FORMART

BRASIC DEFINITIONS

s#INITIRL ggoness OF THE STACK POINTER #¥x 1100 *x#
_EQUIV

EMT, ERROR

; ;BASIC DEFINITION OF ERROR CALL

; CODE FOR HORIZONTRL TAB

CRLF=

200

JEQUIV IOT.SCOPE
:'BRSIC DEFINITION OF SCOPE CALL
%¥MISCELLANEOUS oerxwrvrons

LF=
CR=

12
15

:CODE FOR LINE FEED
,,cooe ron nnnxnc RETURN

177776

,,Pnocesson STATUS WORD

IRG=

177772

"gngfi

DDISP=

177570

:HARDWARE

PS=

‘$EU§¥ T???gfi

DSWR=

177570

:CODE F

ARRIAGE

K LIHIT

GISTER

25 ?
Rsouesr REGISTER

RS E 3“§

DISPLAY REGISTER

kEGENERQLOPURPOSE REGISTER oerégfirgons Q

Ri=

R2=
R3=

%2
%3

RETURN-LINE FEED

::EENERRL REG%? E

: ' GENERAL REGISTER
: GENERAL REGISTER

CZR6RCO RKB11-06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

U LW~
O DD

= =~ O O 00000000
VDD DD O DDDOD MOMOD@ME
D@ N NNNNNNNYNNO

N L£WN=-O0®NN
L WO OO NN LW~V NN
L WMR— ODM N

= et

e Bt e s P P

et P

oo
000 00O 0 O

s s Bt e Pt Bt s

s Pt Bt Bt Bt et

s Pt Pt et Bt

s Pt P P

T YT UL

s Pt s Dt it Pt (o

ot Bt Pt s s Pt P

e Pt

1560

MRCY11l

30(1046)
02-DEC-77
BARSIC DEFINITIONS

0cooa?

RY=
RS=
Rb=
R7=
SP=
PC=

000000

PRO=

000004

000300
o00340

100000
Q40000
020000
010000
004000
002000
001000
000400
000200

Qoo 2
0000u1

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100

11:59

%4
%S
%6
%7
%6
%7

EQ3

PAGE 3l

SEQ 0030

; ;GENERAL REGISTER
: 3 GENERAL REGISTER
: GENERAL REGISTER
1GENERAL REGISTER
: 'STACK POINTER
: : PROGRAM COUNTER

. ¥PRIORITY LEVEL DEFINITIONS

PRi=
PRZ=
PR3=
PRY=
PRS=
PRb=
PR7=

: sPRIORITY LEVEL O

40
100
140
200
240
300
340

;s PRIORITY
; s PRIORITY
: :PRIORITY
:PRIORITY
P:PRIORITY
:'PRIORITY
:'PRIORITY

. #"SWITCH REGISTERTM

SWITCH DEFINITIONS

SWiS="

SWid=
SWi3=
SWl2=
SWll=
SWi0=
SW09=
SWo8=
SWo7=
SW0b=
SW0S=
SWo4=
SW03=
SWoe=
SWOl=
SWo0=
_EQUIV
.EQUIV
_EQUIV
"EQUIV
-EQUIV
-EQUIV
-EQUIV
-EQUIV
-EQUIV
.EQUIV

100000

4000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
e
|
SWO9, SWS
SWO8.SW8
SWO7,
SWO6.SWe
SWOS,SWS
SWOY,SW4
guog,sua
SK02,SW2
SWOI,SW!
SWOO,SW0

. #DATA BIT DEFINITIONS

8IT15=

BITi4=
BIT13=
8ITi2=
BITII=
BIT10=
g1T09=
BITO8=
BIT07=
B8IT06=

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

100060

40000
20000
{0000
4000
2000
1000
400

200
100

(BITOO TO BIT1S)

1
2
3
4
S
b
7

CZR6RCO RK611.06 USR DEFINED
CZR&RC.P11 ~ 02-DEC-77 11:07
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631

000040
000020
000G 10
000004
000002
000001

1633

MACY1l 30(1046)
02-DEC-77
. "BRSIC DEFINITIONS
BITOS=
BITO4=
BITO3=
BIT02=
8IT0l=
BIT00=
EQUIV
.EQUIV
'EQuIv
'EQUIV
"EQUIV
.EQUIV
"EQUIV
"EQuIv
"EQUIV
'EQUIV

11:59

FOJ3

PAGE 32

SEG 0031

40
20
10
¥
2
|
BIT09,BITY
BITO8,BITE
BITO7.BIT?
BITO6.BITE
BIT0S.BITS
BITO4 BITY
BITO3.BIT3
BIT02.BIT2
BITOI.BITI
BITOO0.BITO

;$BASIC “CPUTM TRAP VECTOR AODRESSES

1634
1635

000004
000010

ERRVEC= 4
RESVEC= 10

TIME OUT AND OTHER ERRORS
,,Rsssavso AND ILLEGAL INSTRUCTIONS

1637

000014

TRIVEC= 14

P! TRACE TRAP

1636

000014

1638
1639
1640

1641

1643
1644
1645
1648

1650
1651
1655
1656
1658

! ! BREAKPOINT TRAP (BPT)
,,ggpurxourpur TRAP (IOT) ¥%¥SCOPE¥¥
Al

000034

TRAPVEC=3Y4

! ISTRAPTM TRAP

EMTVEC= 30

000174
000176
000200

,,EHULRTOR TRAP (EMT) #%ERROR%

TKVEC=
60
TPVEC=
6Y4
PIRGVEC=240

.SBTTL TRAP CATCHER

000000

1649

BIT

BPTVEC= 14
I0TVEC= 20
PWRVEC= 24

000060
000064
000240

1eu3

000014
000020
000024

000030

1642

1663
1664

TBITVEC=14

'!TTY KEYBOARD VECTOR
:!TTY PRINTER VECTOR
! ! PROGRAM INTERRUPT REQUEST VECTOR

s #ALL UNUSED LOCATIONS FROM
4 - 776 CONTAIN A

.42, HALT"

000174

! \SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
lLOCRTIOng CONTAINS O TO CATCH IMPROPERLY LORDED VECTORS

000000
000000

DISPREG:
SWREG:

000200
000137

004116

.WORD
.WORD

.=200
Inp

O
O
28UDTSRT

: ; SOFTWARE DISPLAY REGISTER
! ! SOF TWARE SWITCH REGISTER

CZR6RCO RKB11-06 USR DEFINED

MACY11 30(1046)

02-DEC-?7

1223

.SBTTL

COMMON TAGS

1662

:#USED IN THE PROGRAM.

CZRERC . P11

02-DEC-77

11:07

{661

3
}22
1668

Y2222

001100

1668
1669

001102
881183

167}

001106

1679
1675

001114
’!111

1677
1678

001120
001122

1670

001100

000000

xs7§
001110
1673
001112

PAGE 33

SEQ 0032

2222222222X2XXX2XYX2 XXX

TSI

282222

§PASS:

.=1100

.WORD

; ;START OF COMMON TRGS

: :CONTARINS Psés COUNT

§TSTNM:
SERFLG:

.BYTE
.BYTE

O
O

:'CONTRINS THE
TEST NUMBER
i :CONTRINS gfig
OR FLAG

0000

PADR:

.WORD

::C NTR}N?

000

SITEMB:
SERMAX:

.BYTE
.BYTE

000000
007000

$GDHOR:
$BOADR:

.WORD
.WORD

£100
000000

1600 001156
903000
}Eg
fig §§§80
8

1134

SCMTAG:

000
000

1676 fiixxxg 000800

1683

11:59

iTHxs TRBLE CONTARINS VARIOUS COMMON STORAGE LOCATIONS

1666

1667

COMMON TRGS

GO3

1684
1666
1687
1689
1690

881135
001138
001142
Ooilue
8811;3

go
199000
177570
135288
177564

1694
1695

001156
081157

0ie
006

1635
1535 ooiieq
081155 177358
002

SICNT:

.WORD

LPERR: .WORD
SERTTL: .WORD

SERPPC: .WORD

3500AT: '5030
HORD
T

$AUTOB:

O
1
O
O

.BYT

SINTRG: .BYT 00
SWR :
HORD OSuR
DISPLAY: - .WORD DDISP
STka.
157gea
$TPS: 1775e4

shocl:
$FILLS: CBYRER
.BYTE o2

SFILLC:
STPFLg:

.BYTE
.BYTE

12
O

: 'CONTARINS

TEST ITERATION COUNT

835 k

05 g

': 'CONTRIN
:CONTAINS

S? ncg RRORS
TOTAL ERRORS DETECTED

: 1CONTA

PC OF LRST ERROR INSTRUCTION

::CONTAINS ITEM CONTROL BYTE
?‘°°"T“{§§ MAX, ERRORS
PER TEST

:'CONTRINS ARDORESS OF ’'GOOD' DATA
; i CONTRINS ADORESS or 'BRD’ DARTA

CONTAING *Ba0”.
,,RESERVENS--NOE
?Tgaas USED
'

;s AUTOMA
CATOR
,,xnr
RRU&? 3885 fnofcnron
TcH
REGISTER
!v
\
,,nooasss
3? g“%Pan
STER
-T¥¥:§§
er
SETTY
NTER STATUS REG. noonsss

--ES%S’*‘”""
RRRCTER
FORE Eébuxneo
1160
fnso?BEILLER
cannacrsas

,,INSERT FILL CHARS. AFTER
A "LINE
FEED"
DISTERMT
O}LR?LS
anc (BIT<07>=0=YES)

isqg
o {{so 800000
1&39 881185
199289 000377

"‘Efipé "JRSCIZ
8
: ReaaPtFogN_ERROR
gEELL:
<207>¢377><37?7> "538
BE noonsss

178? 081172 000812
1702

LF: = 'n§c§§ 2>
P QEE
l«llllllllllllllliilll'lllilllll‘il!llllill!lllllll!llllllli*l!ll

{;03

1174

0000

e
Sils o
1785 891588 383333
UU

1708
1709
1710
1711
1712
i713
1714

00128:
0012
001210
001212
0Cl2l4
00l2le
001220

000000
000400
000000
000026
000000
000000
000000

PQGBTL 558“S° PSRQ"ETERSPUNCH coos (OBJ cY on SOURCE )

e
e |
TRKNUM: . WOR
s

SECNUM: .WORD
WOCNT:
.WORD
"WORD
FORMAT: .WORD
SUBCMD: .WORD
ETATRD: .WORD
STVAL:
.WORD

400
O
26
O

el R

(oI e

'LR3T ¢SIVEN $RRINOER \ADRR

*LRST GIVEN
SECTOR RDDRESS
SLAST GIVEN WORD COUN
*FILLER
'LAST FORMAT SELECTED
:LAST ENTERED SUBSYSTEM COMMAND
'LAST SELECTED STATUS MESSAGE
"LAST VALUE READ FROM STATRD

SRREREFE

883888

MRC- 11

02-DEC-?7
STORED PRRAMETERS

30(1046)

SEQ 0033

677777

,tgg géfs séERT E
MASK

??g§¥:

'5858

i77777

,&gg
vzu Rscxsrsn MASK

PARTXDF:

.BYTE

LNCNT:
DRVTYP:

.BYTE
.BYTE

evrs

REEVBEE ZuSRB

6
101
O

NG
BT 8
PQTEBFE Byt
8
OPFLGS:

NOCK =

IT1

LA ¥

ERES én Esho FROM REGNUM

SSE?SEOE}EETggggtno anxo SOURCE)
SLnsr PATTERN SELECTED
:USER HAS DEFINED PAT X

SR BDNR
o
Y
Y| E flg
F
A RANDOM PAT

*NUMBER OF LINES IN BUFFER
‘t
5{ x¥§uo R{EE TYPE, O=RKOB,

’

sBIT | - NO CHECK M

EN&TEH

g
T

;Efr é
-

; SOURCE_FILE_POINTER
PUNCH FILE SIZE. Nun OF BYTES IN

Eveso' T

NCREMENT INHIBIT SWITCH

MAT

000000
000000

SFPTR:
PUFLS2:

.WORD
.WORD

000

‘Bt 3 - se

855

000000
000000
000000

COMSZE: .WORD
LOFFST: .WORD

O
O

003720
000040

PATX:

TOVAL:

.WORD

.BLKW

000040

PATY:

.BLKW

;uscn DEFINED PATTERN Y

000040

PATZ:

.BLKW

:USER DEFINED PATTERN 2

000040

pgggTL

égh¥gOL PgRQNETERS

; RANDOM PATTERN STORAGE

PRINH:

§v¥é

T
sgngn-

a;}e

OBJSZE:

.WORD

$D1000

STALL

WORD

CHNFLG: .BYTE

oo
N
oo
NN
oL
NNNNN
- 0000
oL

$D2000

000000

PATPTR: .WORD

000400
000000
000000
000000
000000

MAXWDS:

TEMP2:
OBUFPT:
IBUFPT:

.WORD

.WORD
_WORD
.WORD

4OO

O
O
O

SOURCE o8
SEEESLRT0N
oavn COMPARE SIZE PRRAMETER
:LAST OFFSET

gtseoerxneo PATTERN X

; TIMEOUT V

$ERRPC,LINNUM

.
HPVLD
Zgzgg
377
TEMPl:

4=RKO?

E $$

g.oco NN L WY

Ty,
TSy Sy
Y
|
Y
O
e
e
e
e e
e e

NN N NN NN NNN NNN NNNNNNY
Noooooooo
o
v
OV NN
L Whr—

PAGE 34

.fioso

i
10

11:59

angx:

srsggé Ig;;s
PATSEL: .BYTE

£k LL
£W o—

s Pt Bt P
e
Bt Bt

1772777

UMV

n
£
N

—_

8 88

FRELANMBom
=

\J\IB\I\IVV\IVV\J\IW

1718

533388888828 =

CZR6RCO RKB1i-06 USR DEFINED
0e-DEC-77 11:07
CZRBRC.

s PRINT xnuxsrv SWITCH
:CHARINING
F

A
AME DRIVE SWITCH

BB
g es
HELP VALID suxrcw
:0BJECT FILESIZE

:POINTER TO PATTERN BUFFER
s MRX IMUM uono counr (SET BY PROGRAM}

: TEMPORARY STORAGE

: TEMPORARY STORAGE
:0UTPUT BUFFER POINTER
*INPUT BUFFER POINTER

CZRBRCO RKE11-06 USR DEFINED
CZR6RC.PI11
0e-DEC-77 11:07

1771

1772
1773
1774
177S
1776
1777
1778
1779
1780
i;gé

001712

001714
001716
001720
001722
001724
001726
001730
001732
001734
001736

000000

0000009
000207
004437
000000
000000
177550
177552
177554
177556
000102

1783

%;gg
1786

1787
1788

1789
1790

1791

1792

1793
1794
1795
1796
1797
1798
1799
1800
1801
1802

igga

200000

000002
000004

000006
000010

0000le

000014

000016
000020
000020
000024
000026
000034
000036
000030
000030

000032
000032

iggg

1807

000101

MACY11 30(1046)
02-DEC-77
CONTROL PARAMETERS

OFPTR:

.WORD

RKCS1=

RKWC=
RKBAR=

RKDR=
RKCSe=

RKDS=

; CONTROL AND STATUS P"GISTER 1

&
10

,DES%RED TRACK SECTOR REGISTER
AND STARTUS REGISTER 2

@2
4

;

RKDCYL=
RKDB=
RKMR1=
RKMR2=
RKMR3=
RKPOS=
RKECPS=
RKPAT=
RKECPT=

20
2
26
34
36
30
30
32
32

.SBTTL

DRIVE COMMANDS

RKRSOF= 16
RKDC=

;ECC PRTTERN INFORMATION
;ECC PRTTERN INFORMATION

; SELECT DRIVE

: PACK _ACKNOWLEDGE
;DRIVE CLERR
; UNLOAD
;START SPINDLE
:RECAL IBRATE

OFFSET= 115
SEE
117

;

STATUS REGIST

OR REGISTER

,RTT?NT ON
AND OFFSET REGISTER
; DES
CYL zgsfl REGISTE
;DESI
YL
R REGISTER
;DRTA
ER
; MRINTENANC gEGISTER 1
; MRINTENANC
GISTER 2
; MRINTE
GISTER 3
;ECC P iT}ON NFORMATION
;ECC POSITION INFORMATION

SELDORV= 101

;

000141
000164

:DRIVE

RDDATA= 121
WRDATR= 123
RDHERD= 125
WRHERD= 127
WRTCHK= 131

000140

:WORD COUNT REGISTER
:BUS ADDRESS REGISTER

RKER=_

00giel
000123
000125
000127
000131

18eS
1826

;OBJECT FILE PQINTER

:STORAGE FOR _ITERATION COUNT
i RETURN CONSTRN
:JUMP CONSTANT
:LOW ORDER LOOP COUNTER
iHI ORDER LOOP COUNTER
:PAPER TAPE READER STATUS REGISTER
:PAPER TAPE RERDER DATA REGISTER
{PAPER TAPE PUNCH STATUS REGISTER
;PAPER TAPE PUNCH DARTA REGISTER
;READ ALL HERDERS BUFFER

RKOb CONTROLLER REGISTER DEFINITION

1815
1816
1817
igls
igég

18eM4

SEQ 0034

.SBTTL

PACK=
103
CLEAR= 10S
UNLORD= 107
SRTSPL= 111
RECAL= 113

1821
igss

PRGE 35

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.BLKW

000103
000105
000107
000111
000113
00011S
000117

O
000207
004437
O
O
177550
177552
177554
177556
102

103

CNTSTR:
RTSPC:
JSRR4:
LPCNT1:
LPCNT2:
PTRSR:
PTRDB:
PTPSR:
PTPDB:
HDBUFF:

1808
1809
1810
1811
1812
1813
1814

11:59

; FFSET
; SEEK

:READ DATA
iWRITE DATA
{READ
HEADER
SWRITE HERDER AND DATA
:WRITE CHECK

THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER
TO SIMULARTE R SPECIFIC DESIRED OPERATION

RELERS= 140

ROSTAT= 141
ROALHD= 164

; RELEARSE DRIVE

:GET _ALL STATUS FROM DRIVE
;READ ALL HERDERS

C2RBRCO RKG11-00 USR DEFINED
CZReRC.P11
02-DEC-77 11:07

1827

1828
}ggg

000176

000177
000300

}ggé

1833

}ggg
1838

CONCLR= 176

SUBCLR= 177
INTRZ
300
.

000001

600005

{ggg
1838

MACY1l 30(1046)
02-DEC-77
DRIVE COMMANDS

000001

000100

o
1842
901000

11:59

JO3

PAGE 36

SEQ 0035

: CONTROLLER CLEAR (BIT 15 OF CS1)

:SUBSYSTEM CLEAR (BIT & OF C€S2)
:GENERATE INTERRUPT TO CPU

DRIVER ISSUED SERVICE COMMANDS

DR.SEL= 00!

OR.CLR= 00S

sDRIVE SELECT

'DRIVE CLEAR

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

GO=

BITO

1E=

8116

INTE RUPT ENABLE

1844

004000

002000

P
BRl7= BITY
COT=
BITIO
¢fo=

BITLI

cournethg 6258 OUT WAITING oR

1846

010000

BITI2

! CONTROLLER DRIVE FORMAT (0=22 SECTOR,

1843

1845

e
ug 2885533R

ROLLER onxvs TYPE (0=RK06, 1=RK07)

DRI

1847
1848

020000
040000

CFMT=

S§PAR=
1=

BIT13
BIT14

!DRIVE
BUS
PARITY ERROR DETECTED BY B ONTROLLER
:DRIVE
INTERRUPT

}ggg

100000

CCLR=

BITiS

' CONTROLLER CLEAR

1849

100000

1862
{gga

CERR=
;
:

BITIS

000001

B.BAl6= BITO

{ggg

000020

8.CFMT= BITY

000032
000004

igg?

ERROR

THESE BIT OEFINITIONS ARE USED FOR ADDRESS
THE HIGH BYTE OF RKC

1855

1856
1857

! CONTROLLER

B.BA17= BITI
8.CDT= BIT2
.SBTTL

:BUS ADDRESS BIT 16

‘BUS ADDRESS BIT 17
! CONTROLLER DRIVE TYPE (0=RKOb, 1=RKO7)

!CONTROLLER DRIVE FORMAT (0=22’ sscroa 1=20 SECTOR)

CONTROL AND STATUS REGISTER 2 BITS

1862

000007

DRVMSK= 7

sMASK FOR DRIVE

1864
1865

000610
000620

RLS=
BAI=

,DESELECT OR RELERSE DRIVE IN BITS 0-2
85 INCREMENT INHIBIT

1863

1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
ig;g

0006010

060040
000040
000100
006200
600400
001000
062000
004000
010000
020000
040000
100000

{ggg
i881

1882

000001

1=20 SECTOR)

ESL=

BIT3

BIT3
BITH

CLR=
6CLR=
IR=
OR=
UFE=
MDS=
PGE=
NEM=
NED=
UPE=
WCE=

DLT=

BITS
BITS
BITE
BIT?
BIT8
BIT9
BITiO
BIT!I
BITi2
BITI3
BITIH
BITIS

.SBTTL

ERROR REGISTER BIT DEFINITION

ILC=

BITO

;#ILF=

BITO

SELECTION CODE

'DESELECT OR RELEASE DRIVE IN BITS 0-2
CL AR CONTROLLER AND ALL DRIVES
!CLEAR CONTROLLER AND ALL DRIVES
! INPUT
RERDY
OUTPUT REROY
‘UNIT FIELD ERROR
*MULTIPLE anvs SELECT
! PROGRAMMING ERROR
'NON-EXISTENT MEMORY
!NON-EXISTENT DRIVE
{UNIBUS PARITY ERROR
'WRITE CHECK ERROR

'DATA LATE ERROR

: ILLEGAL FUNCTION CODE

CZR6RCO RK611-06 USR DEFINED
CZRBRC.PI11
02-DEC-77 11:07

1883
1884
1885
1886
1887

000002
000004
000004
000010
000020

1888

000040

1897
1898
iggg

020000
J40000
100000

.389
1830
1891
1892
1893
1894
1895
1896

000100
0e
000400
000400
1000
002000
004000
010000

iggé

KO3

MACY1l 30(1046)
02-DEC-77
11:59_ PAGE 37
ERROR REGISTER BIT DEFINITION

SEQ 0036

SK]1=
ILF=
NXF =
DRPAR=
FMTE=

BIT!
BITe
BIT2
BIT3
BITM

; SEEK INCOMPLETE
; ILLEGAL
DRIVE FUNCTION
; ILLEGRL DRIVE FUNCTION
;ORIVE DETECTED DRIVE BUS PARITY ERROR
;FORMAT ERROR

ECH=
BSE=
HCRC=
HVRC=
COE=
IDRE=
WLE=
DTE=

BITH
BIT?
SITB
178
BI19
BITIO
BI711
BITl2

;ECC HARD
; BRD SECTOR ERR
;
HERDER CRC E
R?OR
;HERDER VRC
; CYLINDER RDDRESS OVERFLOW ERROR
;INVG%ID DISK QODRESS ERROR
s WRIT
%OCK ERR
;DRIVE
TIMING

UNS=
DCK=

BITIN
BIT1S

.SBTTL

STATUS REGISTER BIT DEFINITION

DTYE=

OPI=

BITS

BIT13

;DRIVE TYPE ERROR

; OPERATION (SERRCH) INCOMPLETE

;ORIVE UNSAFE
;DATA CHECK

1903
1904

000001

DRA=

BITO

1906

1305

000004

OFST=

B8I7e

1907
1908
1909
1910
1911

000010

000020
000020
000040
000100
200

SPOLSS= BITH
DCLO=
BITH
OROT=
BITS
vv=
BIT6
DRY=
8117

SPEED LOSS
;DC_LOW
:DRIVE _OFF TRACK
: VOLUME VAL ID
DRI&E
REQDY

1913
1914
191§
1916

000400
004000
020000
040600

DDT=
WRL =
PIP=
DSC=

8IT8
BIT1l
BITI3
BITIY

iDRIVE TYPE (0=RK06, 1=RK0?7)
iWMRITE LOCK
{POSITIONING IN PROGRESS
;DRIVE STATUS CHANGE

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

1912

{gig

000200

100000

{gég
{ggé

1923

000017

000020

ACLO=

DRDY=

SVAL=

BIT3

BIT?

BITIS

MESMSK= 17

PAT=

BITY

DRIVE AVAILABLE (CONTROLLER IS SET IF
THIS BIT IS RESET

DRIVE OFFSET
LOW

;DRI

;STATUS VALID
; MESSAGE MARSK

;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES

1924

000040

DMD=

BITS

:DIAGNOSTICMODE

1826

000200

MIND=

BIT?

HRINTE INOE

1925

1927

1928
1929
1330
1931
1932
1933

}ggg

1936
1937
1938

000100
000400

001000
002000
004000
010000
020000
040000

100000

000040

MSP=

MCLK=

BIl>
BIT8

MERD=
BIT9
MEWD=
BITIO
PCA=
BITI1
PCD=
BITle
ECCW=_
BITI3
WRTGAT= BITIY

RDGARTE= BITIS

; MAINTENANCE SECTOR PULSE
; MAINT
NQNCE

iMAINT
ENCODED READ DATA
HRINTENQCNE ENCODED WRITE DRTA
PRECOHPENSRTION RDVRNCE
: PRECOMPENSATION DELR
{ECC_WORD 15 BEING RE
OR WRITTEN
IWRITE GATE

!READ GATE

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A

S.DRA=

BITS

;DRIVE AVAILIABLE

CZR6RCO RKG11/06 USR DEF INED

CZRERC.PL1

02-DEC-77 11:07

MACY1l 30(1046)

02-DEC-77

000100

S.vv=

1941
1942
1943
1944
1945
1946

00040
60100
002000
004000
010000
020000

5.TvPe= BIT8
S.FORM= BITS
§.0FF= BITiO
S.WRL= BITLI
§.SPIN= BIT12
§.PIP= BITI3

ig:g

000200

040000

iggg
195]

000040

S CRy=

BITH

BIT?

DEFINITION OF DRIVE STATUS BYTE 00 MESSRGE B

S.ICYL= BITS

1329
1960

219900
620000

236002
BITiS
gio
o?’ 31113

040000

}gga
iess

ooooso

1969

000400

1329
1968

1970
1971

1972
1973
1974
ig;g

:WRITE LOCK ERROR

§.UNS=

BITIY

'ORIVE UNSAFE

.SBTTL

DEFINITION UF DRIVE STATUS BYTE 01 MESSAGE A
: TRANSDUCER OK

S.CART=

CRRTR

081008
00200

g PoK=
‘Fwb=

030000

§.UNLD= BITIH

¥Te

BITS
BITiO

S.REV= BITI1!
§.LO0AD= BIT12
§.RTZ= BIT13
.SBTTL

1983
1984

001000

§.XERR= BIT9

198
1988
iggg

010000
020000
040000

§.NMOV= BIT12
S.LIMD= BIT13
S.BRKE= BIT1H

1985
1386

080488

00200
00500

iggé
1993

1994

000007

100000

S.SECT= BITY
§.WCLK= BITS

5.hgglz BITE

g.HHD-- gfre

g.gzg:
IPLO=

g§710
T11

.SBTTL

COMMON MASKS

M.DRV=

M. PRR=

esugneg
HEHE
:DOOR INTERLOCKED
PEER_OK
ORWAR

INTERLOCK

RE ERSE
: HEADS Lonoxnc
‘RETURN TO ZERO

:HEADS UNLORDING

DEFINITION OF DRIVE STATUS BYTE Ol MESSAGE B

000020
000040

808§°°

SEEE%
vag LSS
OFF TRACK

S. zoag- 91;4

1979
1980

{335

ILLEGRL CYLINDER RDDRESS

‘AC_LOW
'DRIVE FRULT
' ILLEGAL FUNCTION
‘DRIVE DETECTED DRIVE BUS PARITY ERROR
:SEEK INCOMPLE TE

BIT1I

gis
HM= BITE
S.D00R= BIT?

ig;g

:DRIVE STATUS CHANGE

§.WLE=

888?08
000200

004000
010000
020000

‘DRIVE RERDY

‘DRIVE TYPE
DRIVE FORMAT
SOFFSET
‘WRITE LOCK
:SPINDLE ON
'POSITIONING IN PROGRESS

SBTTL

S.ACLO= BITH
S.FLT= BIT?
S.ILF= BITB
5.PAR= 8119
§.65KkI=
BITIO

{325

s VOLUME VALID

BITIY

000100
000200
000400
001000
002000

0045000

PAGE 38

§.D05C=

1952
1953
1954
1955
1956

1957

LO3

DEFINITION OF ODRIVE STATUS BYTE 00 MESSAGE A

1939

1940

11:59

BITIS

; SECTOR ERROR
WRITE CLOCK AND NO WRITE GATE

'WRITE cnr; AND NO TRANSISTIONS

HUE?IPLE
HEAD SELECT
: INDEX ERROR

iQIBIT
ERROR
L0
ERROR

!SEEK AND NO MOTION
:LIMIT DETECT ON SEEK
: SERVO-BRAKE
:DRIVE CODE

'PARITY

SEG 0037

CZRBRCO RKB11-06 USR DEFINED

CZRBRC.P11

1995
1996
1997

1998
1939
2000

02-DEC-77 11:07

000003
017760
017760
077770
000760
007000

MACY1l 30(1046)

02-DEC-77

COMMON MASKS

M.ID=_
3
M.COIF= 17760
M.CRDD= 17760

M.SER=
77770
M.SECT= 760
M.HERD= 7000

11:59

MO3

PAGE 39
;BYTE ID
;CYL%NDER DIFFERENCE/OFFSET
; CYLINDER ARDODRESS
;ORIVE SERIAL NUMBER
; SECTOR _COUNT
; HERD DECODE

SEQ 0038

30(1046)
02-DEC-77
11:59
PRARGE 40
PARAMETER BLOCK ALLOCRTION

28 2
2
2
B

W
NE W
WMV
MG BEWI WG
WO W WL BRI

W WA NN
b e e
[ = NUTW
TM N U
= U

il d-fotoinoltaiatadabbbe
bbbt bbbt b d £ S L E LA St bbbt

WI WS WOWE GBI
G B R B WS we W

PRARAMETER BLOCK ALLOCRTION

38SRS
RESSES

SEQ 0039

.SBTTL

MRCY11

L2 S

SONOCNLW—-O

COMMAND

* DRIVE NO.

TRACK

i CYLINDER ADDRESS

SECTOR

iBAlb-17,FORMAT,DRV TYPE!

OFFSET

i BUS RDORE s (LOW 16 9175)

i 10

i DESIQESR$SQCK
nuo sscron

i 26

i
!
i
i
i

WORD COUN
'S COMPLEMENT
PROGRAM onx
STATUS xnronnnvxon
cgggggg 2“8 STATUS REGISTER 1
¢
srnrus REGISTER 2
gono COUNT REG sn

i
i
i
i
i
i
i
i
i
i
i
i
i
i

DESIRED CYLIND
ATTENTION sunnnav AND DRIVE OFFSET
ERROR REGISTER
STATUS REGISTER
MES
L}NE A STATUS BYTE 0O
n-gsn
LINE B
§TATUS BYTE 0O
ME
LINE A STATUS B\ TE Ol
MES
LINE B
STRTUS BYT. 0l
MES
LINE A
STATUS BYTE 10
MESSAGE
LINE B STATUS BYTE 10
MES
LINE A STATUS BYTE 11
MESS
#xne
TATUS BYTE 11
ECC
I1TION INFORMATION
ECC PATTERN INFORMATION

i 12
i 14
i 16
i 20
: gs
i 30
i 32
i34
i 36
i 40
iy
i yy
i 4p
i 50
i 52
i 64
i 5p
i 60
i 62

Iililll*llllllllil!!illll!li!iil!*!l!!ii}!!!!!*ll

PRRAMETERS PASSED TO THE ORIVER

THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS

;DRIVE NUMBER

N~~~

—

”~

m
—

: COMMAND
gYLINDER ADDRESS

ox
o
2
]

P
"

NN LU0
£o

ooo0le2
000014

TO THE RKO6/RK07 DRIVER

o
N
"

000000

DVVUVVVUVVVODUVY

St Pt Pt Pt Pt Pt Pt Pt Pt o

RN
0000000000

CZR6RCO RK611/06 USR DEFINED
02-DEC-77 11:07
CZR6RC.P11

NO3

D 17)
NT)
FORMATION

PROGRAM DEVICE STATUS REGISTER DEFINITION
000001

000040

BITO

;DRIVE IN USE

BITC2

;ORIVE POSITIONED FOR DATA TRANSFER

BIT1

8173
BITHY
DRVDSC= BITS

;DRIVE POSITIONING

;UNEXPECTED ATTENTION
:DRIVE HAS HARD ERROR
:DRIVE STATUS CHANGE DID NOT CLEAR

BO4

MACY1l 30(1046)
02-DEC-77_
11:59 PAGE 41
PROGRAM DEVICE STATUS REGISTER DEFINITION

gggg

000100

CMDTO=

20s9
2060
206l

000200
000400
001000

W.WCK= BIT?
NOCHK= BIT8
PBSVAL= BIT9

SWRITE FOR
WRITE WRITE CHECK
iNO_CHECK 20 NOT SET INTERRUPT ENABLE
: PARAME TER TRTHS H? VAL ID

206
5067
2068

004000

002000
620000
040000

DRPDRvV= BIT10
NODSC= B8IT11
BQ.INIT=
UNCD= BIT13
BITIY

;ATTENTION SET BUT DCS RNO FQULT RESET

gggg

gg%g

100000

BITH

SEQ Q040

NOngg¥INflgéggN60 COMMAND FOR RT

;

(SET WHEN
E

ERHINGTION OR

;ORSSQ$R§VE
ESOH
TEST SEQUENCE
10RIVE
re 8a0eB ok 0 ERNoR
; PRRAMETER BLOCK ENQUEUED IN INITIRTION QUEUE

DTBAII= BITIS

:INHIBIT BUS ADORESS INCREMENT

gg;é

.SBTTL

PRRAMETERS PASSED FROM DRIVER TO PROGRAM

2073
sg;g

i
;

THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETURNS
FROM THE DRIVER TO THE CALLING PROGRAM

5073
2078

000020
000022

piC35Z
P.WCR= 28
@22

000030

P.DCYL= 30

2079
2080

000024

2082

0000

000026

2081

P.BAR=

P.DTS=z 24
26

,DE {

P.ASOF= 32

;AT

083
c084
208s
2086

000034
000036
000040
000042

P.ER=
P.DS=
P.AOO=
P.BO0=

088
2089
2030
2091
20392
2033
2094
sggg

000046
0000oso
0000S2
000054
000056
000060
000062
000064

P.B0l=
46
P.R10=
S0
P.Bi0=
52
P.Rll= 54
P.Bll= Sb
P.EPOS= 60
P.EPRT= b2
PRTCON=6Y4

2087

000044

Sggg
2099
2100
2101
2102
2103
2104
210s
2106
2107
2108
2109

2110
2111l
2ll2

002142
002143
002144
002146
002147
002150
002151
002152
088154
002156
002160

002162
00e2le4
002166

000
000
000000
000
000
0a0
000
000000
000000
000000
000000

000000
000000
0000G0

m«g
SHHAND
31GIST ER RECISTER2
HORD
¢ A0 é’fi?fls

P.AOl=

; D&

34
36
40
42

;E
; STATUS
;
3
;

Ygl

Y/OFFSET REGISTER

8§T§R
STER
A
STATUS BYTE 00
g TATUS
BYTE 0O

TATUS

BYTE Ol

;
MESS
2
TATUS
BYTE Ol
s
MESS
JATUS BYTE 10
;MES
g
TR
BYTE
10
; MES
TATUS BYTE 11
;HESSRGS ? STATUS BYTE 11
;ECC POSITION INFORMATION
;ECC PARTTERN INFORMATION
; PRINT CONTROL WORD

.SBTTL

PARAMETER BLOCK O FOR DRIVE

PARMO:

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

.WORD
.WORD
.WORD

MES

KREGISTER
CTOR REGISTER

O
O
O
O
O
O
O
O
O
O
O

O
O
O

; DRIVE NUMBER
; COMMAND
; CYLINDER RDDRESS
; SECTOR_RODRESS
; TRRCK RDDRESS
;OFFSET VAL
;BUS
R
35S (BITS 16 AND 17)
;BUS
RDDRESS (BITS
15)
; WORD COUNT (2°S_COMPLEMENT)
,PROGRRH
IVE STATUS INFORMATION
; COMMAND
TATUS REGISTER 1

:COMMAND AND STATUS REGISTER 2
'WORD COUNT REGISTER
:BUS ADDRESS REGISTER

r 1

CZR6ERCO RKb611/06 USR DEF INED
CZRBRC.P11
02-DEC-77 11:07

CZR6RCO RKB11/06 USR DEFINED

CZRBRC.P11

gfia

%gi;g

02-DEC-77 11:07

MACY1l 30(1046)

02-DEC-77

.:828

i
EE B
2117

B
.WORD
O

2418
2120

SR
8O
.WORD

axag

.fioso

iz
Ssea faens
gigg 062226 000600

i
CWORD
O

2121
e
153
BBssie 8888
2125 002220 000000

2132

2133

002230
002231

000
000

co4

PARAMETER BLOCK O FOR DRIVE

oooa%

Si%‘f

11:59

"WORD
‘WoR8
WORD

O
8O
0

PAGE 42

: DESIRED (T:$QCK ngo SECTOR REGISTER

B
STATUS RE

B
s
a
v

Thsci
LI 37‘“33
0 3103 OV
6
gg
g
ne

;EAs;g;us
TAT avre 18
t
{heB 2TAThe BVY
IT. Bin ? smru:T; g;rs u

EES
ERFIEACT pepemmrye
'PRINT CONTROL WORD

.SBTTL

PRRAMETER BLOCK 1 FOR DRIVE

PARML:

.BYTE

SEQ 00M1

omve NUMBER

Sy
fesca ooogog
2139 062235
aor
8142
BRss3
883
3139 ooae:o 000000
S10 BRSEYE ROPRS

BYTE

i
.afls
0
BIE
80
.sono
88 8

R
;
Sgrugmgtsns
16 AND 17)
: BUS nooness( BITS O - 15)
SRS BLE ErafE TS
o0

Si:" gggggg 888880

-WOR

:uono ¢

2147

CWORD

aw§ SOPSEQB

88§§

2148

002266

Rgxzi‘, TRR

1583

§§§§§§R§§%x &3 gzcron REGISTER

2149 002264 %80

WORD

CATTENT

0000

CWORD

S{ES Ooae?w 00%
fis e oo
eisg 002302 oooo
125 BRs38¢ 888338

WORD O
il
5820
0
HORE
B

21s0

002264

2161

oosg;g 000000

2159
2160
2161

002310
002312
002314

000000
000000
00000C

.WORD
'5828

WORD
"WORD
JWORD

O
O
O

DES

CYLINDER REGISTER

;ERR?J %1 ;n

:§1atus

/OFFSET REGISTER

; MESSAGE txns A sm;us ans og

fi?
LI S gmrb’g gvr 81
eI
LIS B SaTLe VI O
ncssnce LINE B s;gws ens {?
iE22R%k LINE B 27ATUR BYTE 11
ECC POSITION INFORMATION
'SC? PATTERN INFORMATION
'PRINT CONTROL WORD

CZRGRCO RKE11-06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

MACY11

30(1046)

02-DEC-77

ERROR POINTER TRBLE

11:59

DO4

PAGE 43

S{gg

.SBTTL

5154

'T”ISI§?8L§g$?S;“}$S
THE
1nronnnr§on
FOR
E“fiSE§RR°R Tunlefizg o§cun

%
hgggrxon
s1 TE"?tH§g

4norea

[A]
[y =t
O
==
NOWW

RECS

Z2RR

ekatitol

002316
002316

R
T28

HE:

ESINTE 13 TH6 BATA rommen

.,POINTS 7O THE DRTR HERDER

.ASCII

<12>3% RKb11/RKO6-RKO? USER DEFINED TEST #3<15><12>

.RSCIZ

12>
/CZRB6RCO/¢1S><

i%fi

Egégzz

002495

~/TYPE HP TO PRINT HELP FILE/<1S><1>

§§8§ g

STAR:
SCTOBG:

.ASCIZ
.ASCIZ

/%/
/TEST PROGRAM TO BIG/«<1S><¢l2>

NOROOM:

.RSCIZ

/SOURCE FILE FULL/<(15
12>

EQSGN:
BRDOEC:

.ASCIZ
.ARSCIZ

/=/
~/INVLD DECIMAL/<1S>
<12

;

ggg:sz

.ASCIZ

104

7111
N

046126
Hsgg

020104
040515

002540
002546

042105
7115

0582111
006504

2209
2210
2211

7
002575
002602

1
ell
111
046040

1
005015
0S3116
04711

3
000
042114
020105

eciy
2215
2216
2217

26
002632
002640
002646

o40S
042524
047111
041517

2e
006See
046126
040524

04eS1S
000012
020104
00eS14

585

: ;POINTS TO THE ERROR MESSAGE

HELPQ:

0415?5

2205
2206

ITEM IN THE TABLE CONTAINS 4 POINTERS sxanx~£o RS FOLLOWS:

044040

053517

228#

SERRTB:
PROGID:

o41See

123

e
e
ge

snca

uui H ITEU 35
BLE IS PERTINENT.
fl§ éNLYESPERTINENT
DRTR 7IS (SERRPC

REBEIRR RS0 8 BB SRREOR 2B IVt 2

U NN 0 9t st s Pt s Dot P Pt s s Pt P P Pt s e P Pt s Pt Pt Pt (s Pt s s P et P s Pt st

N PURUNLIN MU FU RXFLNS MV N N PLTUNY P TUNUN Y

165

e
g

ERROR POINTER TRBLE

1
00251

ggig §§Sgig

111

711

83815?

1? §§§é

020104 IVDEDT: .RSCIZ /INVLD EDIT CMND/<1S><12>
041440
Ole

2&8"

IVDADD:

.RSCIZ

/INVLD NEW CMND/<¢15><¢12>

IVOLN:

.ASCIZ

~/INVLD LINE NUM/<1S><12>

828?63 IVOPAR: .ASCIZ /INVLD PARAMETER/<15>
1>
BADOCT:

.RSCIZ

/INVLD OCTARL/¢1S><12>

SEQ DON2

CZRBRCO RKBE11/06 USR DEFINED
CZR6RC.P11
0e-DEC-77 11:07
22ls

2219

eee
eee

002656

002664
7

000012

042510
046111
450

222es 8857§8 835%1
29

eee

736

31
1

MACY11l 30(1046)
02-DEC-77 11:59
ERROR POINTER TARBLE

0S011N

043040

117

0SH4SIM

020105
14

85?18?

2524

3517

0S310
Q46102

EO4Y

PAGE 44

.ASCIZ

/HELP FILE RVAILABLE ONLY RS FIRST COMMAND AFTER PROGRAM LORD./<15>¢l12>

IVORUN:

.ASCIZ

/NO OBJECT/<¢15><¢l12>

NOSRC:

.ASCIZ

/NO SOURCE/«15><12>

0104

080522

s Xl SOlp 047440
gl gggé?g
ol
8827 H

047216

Sgga

8%3%82

020105

045517

005018

c23sS
ngg

8% .37
ocigég

116
051688

020117
042503

047523
00S015

5238

oC .23

020114
0%61%1
0S1le2

047503
0S110S
00S01S

3é 0057 2 8: gg pS011S 046111 COMPOK: .RSCIZ /COMPILE OK/<(1S><¢12>
111

0S2116 051105

INTERR: .ASCIZ

/INTERNAL COMPILER ERR/<15><12>

111

0S3116
020122

04712S

0M2114

BADCOM:

.ASCIZ

~/INVLD OR UNDEF CMND/<1S><la>

127

051117

020104

IVDWCT:

.RSCIZ

/WORD CT TOO BIG/<¢15><12>

£eld3
2eNd0
2241
ce4e

003030
00R136
0
44
0.
'S2

040516
118
0O42440
000

cedd

047440

ced3

00
¢ 63
B0

2247

003101

2c48
c249
c2S0

0S2040
043511

047517
00S01Ss

ccSl
ccse

003106
003114
003lee

003138
0031

0Sei03
041040
600

116
4144

053112
04?711

42114
0104

IVONC:

.ASCIZ

~/INVLD CMND IN NC/<15><l2>

€255

003146

047111

046126

020104

BRDDRV:

.RSCIZ

~/INVLD DRV NUM/<¢1S5><12>

2263

003222

000

SSSS

8;0582

Q42504

PRERR:

.ASCIZ

~/RERDER ERR/¢15> (12

2cbB
2269

003246
883254

e27e

003273

5525 o3les 047111
oog"""é?;' 086126
Bog0is 020104
oocole BADTYP: .ASCIZ ~/INVLD DRV TYPE/(15>X<12>
2258 883166
2259
003174
ggééoq
8886
0s4Se4
Hogo PUERR: ASCIZ /PUNCH ERR/<(1S> (12>
?1l
120
00320;
5560
22
8835?-4 oqewsg 83115 83561
C
2264

2229 D0 38

§§8§1

201

0S1440
820123

006522

094522 042526 STNTVD: .RSCIZ <12>/DRIVE STATUS NOT VALID/«1S><12>«<la>
QS24
Q47516

0S2Sed
0201

047524

040524

5571 D035 dosnis U ighg Doesow
22?3

(003300

075

020114

044515

041823

SEQ D043

HPFILE:

020122

gsgo

]

TOTMSC:

.ASCIZ

/=TOTAL MISCOMPARES/<1S><12>¢12>

CZR6RCO RK611-/06 USR DEFINED
CZRBRC.P11
0e2-DEC~?77 11:07

003306
??3314

MACY1l

30(1046)
02-DEC-7?7
ERROR POINTER TRBLE

11:59

FOY4

PRGE 4S5

SEQ D044

o42522

046517
006523

IOBFSZ:

.ASCIZ

/=MAX WCRD COUNT FOR DATA TRANSFER/(1S><12>

BADSEL:

.ASCIZ

/ILLEGAL REG SEL'D/<15>¢i2>

LPLABL:

.RSCIZ

LCNTOF:

.RSCIZ

/% LOOP COUNTER OVERFLOW #/¢15>¢l2>

DMPHDR:

.ASCIZ

/WORD #

SPACEL:

.RSCI1Z

SPACE2:

.RSClz

8 OF LOOPS/<15S>
(12> 1>

CONTENTS/¢1S>
<12

Illlllllllillillilllllllllillllllllllllllllllll!illll*!illlllll

frufu YN NP
WWWLWWWWWWWW
PO
be e ot Pt e ot et P Pt

cour

!HORD 1
; #WORD 2

0
1

e
3
q

5
6

INTERARCTIVE COMMANDS
g

RLt
THE INTERARCTIVE COMMANDS.

*Hfli }

or_t

SS OF INTERQCTIVE COHHRND PROCESSOR

lHORD 3

THE
ILAT]ION RO
H%S COMMAND.
RQOSEEERSE NUHSEP bf gflR?Eés
QSSOCIRTED WITH

nuono Y4

DEFERRE? nooRESs or EXECUTE ROUTINE
FOR THIS conNO.
1f IMMEDIRTE,
ALL O’S

MMEDIATE

;Egggllga%g IS USED IN COMMAND ENTRY AND TEST

8
9
0
1
2322

TRBLE OF

HIS TRBL

!l!llllglg!llllllllIlllllllllllllllll!Illlllllillllllll!!ll!iil

003534
003536
003544

003576

177777

000000

177272727

000000

177777

000000

1727777

000000

1777277

000000

ICTBL:

.EVEN

.ASCII

"WORD
-ARSCI1
-WORD
.ASCI1
"WORD
.RSCI1
"WORD
"ASCII
. WGRD

/TO/

TORTE,-1,0
/DN/
DNRTE -1,0
/DT/
DTRTE,-1.0
/07/
OTRTE,-1,0
/IT/
1TRTE,-1,0

; TIMEOUT
;DRIVE SELECT
;DRIVE TYPE
:OUTPUT TEST
s INPUT

TEST

CZR6RCO RKb11/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
003606

0S2103
02214

004116

004114

BRI 2o30ERENaSN 2

LO0~

ARGl ARSI
O 9

?‘3?9&%‘5‘39 0022222

Qe
s e pe L 0 ()

8% 813858
%2 Bolak

Q0
-

2330
2331

MACY1l

172277

000000

177777

000000

1772777

000000

1727277

000000

1727777

000000

177777

000000

1772777

000000

1727777

000000

177777

000000

177777

000000

177777

000000

177777

000000

1772777

0c00oo00

1777277

000000

1777277

000000

177727

000000

000010

000000

000001

.20536

000001

020204

000003

017610

000003

020026

000002

020426

000001

020446

000001

013516

000000

021464

GO4

02-DEC-77
11:59
PAGE 46
TRBLE OF INTERACTIVE COMMANDS

30(1046)

.ASCII

/7CT/

;COPY TRPE

7157

; INPUT STRING

CTRTE,-1,0
ISRTE,-1,0
/és/
ICRTE,-1,0

/FT1,

FTIRTE,-1,0
/EB/

ESgTE,-l,O

/70P/
OPRTE,-1,0

7€0/
CORTE,-1,0
/ER/
ERRTE,-1,0
/ED/
EDRTE,-1,0
/PT/
PTRTE,-1,0

/7PL/

PLRTE,-1,0
/NT/
NTRTE,-1,0
/RU/
RURTE,-1,0
/PR/
PRRTE,-1,0
7HP/

HPRTE,-1,0
/82/
BDRTE,-1,0
/SF/
C$SF,
10,0
/Bl/

CSCBIS:

;FORMAT SELECT
;EDIT SPECIAL

BUFFERS

;SPECIAL DATA PATTERN
;COMPILE
;EDIT RDD LINE
;EDIT DELETE LINE
;PRINT TEST

;PRINT LINE
;NEW

TEST

3 RUN

;PRINT REGISTER
s HELP

;BUFFER DUMP
; SUBSYSTEM FUNCTION

BUFFER INITIALIZE

'SPECIAL TAG FOR BUFFER INIT
:DATA COMPARE

§SC 3,ESSC
/RC

; STATUS COMPARRE

cgfic,3,ESREGC

chu,2,ESRW

. WOR
.RSC I
-WORD
RSCI1

; ITERATION COUNT

Cs81,1,E8BI

7DC/
csgc 1,ESDRTC

W
.RSCII

SEQ J04S

CSST,1,ESST

;REGISTER COMPRRE
;REGISTER WRITE

; STALL

/PM/’

; PRINT MESSAGE

/7Uls

;UNIBUS INITIARLIZE

CSPM, 1 ,ESPM

CSUI 0,ESUI

;END OF TABLE

!llllil!llll!!llllillllllllllIililillll*lllil!l*lilll!*llllllli
UDTSRT

SBTTL
INITIRLIZE THE COMMON TRGS
: ;CLERR THE COMMON TRGS (SCMTAG) RRER

CZR6RCO RKb1:/06 USR DEFINED
CZRBRC.P11}
02-DEC-77 11:07

5488 0111 giage
oo41izy

28706

S 31230
73?7

i 818797

001100

820348 JR883E

Yoy

034370
000340

177?777

CHEE

?ég

004234

737

000176

ROV
MOV
MOV

s e P
Dot Pt Pt P

39
o g S

SEQ 0046

; +FIRST LOCATION TOQ BE CLERRED
; ; CLERR MEMORY LOCRTION

Q0P _BACK
TUP

THE

IF NO

STACK POINTER

830ab?&%fifl@%fii cevE“’ VECTOR FOR TRAP CALLS
R FRILURE VECTOR
834 a.bunvsc

8SPWRON,9

T FOUND OR

WARE SWITCH REGISTER.

00C0o04
8?114
1

14
4716

CMP
BNE

BYS:

668:

BR
S?Y

CHEATM
T

NO TIHEOUT TRQP OCCURRED

65%
8658, (SP)

HARDWARE SKWR
,,BRQNCH IF NO TIMEOUT

IS NOT =

T UP FOR TRAP RETURN

,,POINT TO SOFTWARE SWR

MOV

RKVEC,R1

JSR
MOV

R
PC
séxzs
s%

cLC
ROR
BIC

RO
#8170

ADD

RO, IBUFPT

{SET_THE iNPUT BUFFER POINTER
gLEgsE
MICOLE OF BUFFER ARER

DIVéoiTBYTHO FOR MAXIMUM WORDS

RO, MAXWDS
PC STKINT
PROGID
RO, -(SP)

SET_MAX HORD VQLUE
JINITIALIZE KEYBOARD
TYPE PROGRAM NAME

ngv
?ug

MOV
cLC
ROR
SuB

MOV
JSR
TYPE
oV

TYPOC
TYPE

67%:

oggstSSRSPan,,TRY
-856“’TO ol
BISL av- AEC
REFERE

8& tgfivst

MOV

001710

MOV
MOV

001706

NRRRBYEY

S ACK, SP

4?7

Serog 2 55?9“952 REGIS‘ER IF
Hov 225§“§§Eanv2”

£300eH
C.J00es

004254

004412

#5CHTAG,
R
(RE)+
#54R, R6 ,,oonsv

,,xnxrzaers A FEW VECTORS

DD NN LN -

it s

240

MOV
CLR
CHP
ENE

001140

00004

00422y
0042
042

HOY

30(1046)
02-DEC-77
11:59
PAGE
INITIALIZE THE COMMON TRGS

J01100

Yeeb
884152
BRaZ8E 815737 17728

oo4214Y
004ee2

MRCY11L

'A ;N?R(R1)+

GET VECTOR STORQGE RADDRESS

NDLOCOOBUFPT SET o0truT RLFPER” b?nren
nENngc,Ro
sub?g?RFXXD bgng“ CODE

oENDLbc IBUFPT

82, RO

xoersz

CLR
MOV
RTI

;
267S, -(SP)

1578

HPVLD

BEQ

; ;RESTORE ERROR VECTOR

COMLEV

CLEQR CARRY
DIVéogugE
THO FOR TWO BUFFERS

TYPE

MAX WORDS

iLABEL I

S PUT NEH PS QN STACK

2PUT NEW PE
ON
STACK
; ;POP NEW PC AND PS
; TEST

HELP FILE

VALID

INO - DON’T PRINT HELP QUESTION

! YYPE HELP QUESTION
TYPE
HELPQ
lllllllfllillill‘iiilfii!iilllll'iilliliillll!lllllllilllill‘l{!lli'l

-1

CZR6RCO RK611/06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:

MACY11l

30(1046)
02-DEC-77
11:59
COMMAND LEVEL ROUTINE

104

PRGE 48

SEQ 0047

g::a

.SBTTL

244y

; #THIS ROUTINE WAITS FOR AND ACCEPTS
R COMMAND FROM THE COSOLE AND DECODES

:#IT TO DETERMINE IF THE COMMAND IS IMMEDIATE, DEFERRED, OR AN UNDEF INED.
:#1F THE COMMAND IS DEFERRED IT CALLS THE DEFERRED COMMAND PROCESSOR IT

n
£
£
~N

e44s
2446

:%(DCMDPR).

2448
2449
2450
2451
2482

004416

104401

2461
2462
2463
2464
2465
2466
2467

004422
004424
004426
004432
004434
004436
004440

104411
012601
004437
004470
005722
005712
100005

2471
2472
2473
2474
2475
2476
2477

_
00MYS0
004452
0Ov454
004460
004462
004466

004476
000403
004437
004476
105037
000753

2479

004474

000400

004502

104401

002435

COMLEV:

TYPE

RDL IN
MOV
JSR
28
757
TST
BPL

004704

5465
OBudas 883935 ooooao
2470

004470

004476

2485

004510

18:

001672

4s:

104401

003053

2s:

104401

033544

3s:

5335 004506 000743
2484

001170

3s
BR
JSR
33
CLRB
BR
TYPE

2496
2437

RS
R2)
!

WORD

THE

‘RERD COMMAND L INE
:MOVE ADDR OF COMMAND
R
;CALL INTERACTIVE conmnno DECODE
{ERROR RETURN, GO TO ERROR
(BUMP TO PARAM WORD
:TEST PA®AM WORD
'IF DEFE: ED, BRANCH. ELSE

'DE
cTo
E

ys
R4, DCMDPR

HPVLD
COMLEV

BROCOM

$QUES

PLRC D IN R2 BY ICOEC.
!ERROR RE TURN
IRETURN
COMMAND LEVEL
:JUMP TO DEFERRED CMD PROCESSOR
:ERROR RETURN
CLERR
LP VALID SWITCH
RET
COMMAND LEVEL
TYP

STTYIN

BREDIATE
COMMAND
Eo&nesWARS

ano COMMAND nessncs

TYPE LINE

IN ERROR

:FOLLOWED BY QUESTION MARK

COHLEV

TRETURN TO COMMAND LEVEL

o 363636 35 36 36 3 3 3 36 3 3 3 36 96 3 36 36 36 3 3 3 3 3 3 3 36 3 3 3 3 U 3 3 I 3 3 I 3 3 3 3 3 3 A

'4BTTL

DEFERRED connnnos INPUT PROCESSER

: ¥RETURN:

2495

2ND

; TYPE COMMAND LEVEL DESIGNATOR

(R2)+
(R2)
18

TYPE

2488

2494

THE

IS THE RDDRESS OF A SPECIAL

(SP)+,R1
RY, ICOEC

: BENTRY:

2489
2490
2491
2432
2493

IMMEDIATE

(ICTBL)

(R4)+

,STAR

2486

2487

RTS
Rq
ERROR - nov
(RY) ,RY
RTS
R4
,,i!ll!lllillllllllililll!iii!!llillllllllll!lii‘!illllill!!llll!

)

2481

COMMAND

NORMAL - TST

T
;¥
;#

ngg

2480

THE

RETURN TO COMLEV

1% )

2454
2455
2456

2478

1IF

:#INTERACTIVE COMMAND TARBLE
: #ROUTINE
FOR THAT COMMAND.

2453

2459
2460

COMMAND LEVEL ROUTINE

JSR

3 A 3 3 I I I 3 I 2 3 % W K K %2

DCMDPR

;¥WITH R1 POINTING TO xnpu? CMND.
NORMAL

TST

(RY)+

u
RTS
RY
T
ERROR
MOV
(RY),RY
S
RTS
RY
i #THIS ROUTINE WILL PLRCE THE DEFERRED COMMAND
,nxnro THE SOURCE FILE. THE SOURCE FILE EMPTY

s #(SFEMP) FLAG IS CHECKED AND IF SET THE SOURCE
'»FILE

IS CLEARED AND COUNTERS & POINTER

INITIALIZED.

‘%A LINE NUMBER IS PREFIXED TO THE DEFERRED
: ¥COMMAND AND STORED WITH THE COMMAND.

THE

CZR6RCO RK611-06 USR DEF INED
CZRERC.P11
02-DEC-77 11:07

JO4

MACY11 30(1046)
02-DEC-77
11:59 PAGE 49
DEFERRED COMMANDS INPUT PROCESSER

2498

s #LINE TERMINATOR (NULL)

SEQ 00N8

IS KEPT WITH THE COMMAND.

2499
2500
sggé

;#1000 WORDS ARE ALLOCATED FOR SOURCE FILE AND
;%#IS NOT ALLOWED TO OVERFLOW. WHEN THIS ROUTINE IS
:ggthgonx MUST BE POINTING TO THE INPUT DEFERRED

ggga

! !lllllll!lllllllllll!lllllilllll!llll!!l!llll*llillillli*lllll!

2S0S

004510

2509

004522

2511
2512
2513
2514

2s
25

004512

001243

4532
004540
004844
004550

0137
013705
162705
005025

001710
001710
000002

00454

001375

004652

sg{g

€56

2519

2520
2521

DCMDPR:

010546

105037

4526

2515

2516

010346

004562

004566
004574

0137g;

001700

105037

013705

013737
162737

18:

001246

001702
001702

2s:

2522 004602 063737 001710 001702
004610 020537 001702
2524 004614 101406
2523

2525
2526

004616
00462¢

1044C1
012665

2528

004626

011404

2527

2529
2530

23]

Sgga

004624

004630
004632

Or ‘636
oo4b4e

883232

002465

113725
112118

004660
004662

001243

68?59?

005724
000204

LNCNT

'CLERR LINE

MOV
MOV
suB
CLR

xeurpr SFPTR
IBUFPT,RS
82, RS
(R8)+

:SETUP SOURCE FILE POINTER
:SET UP TO CLEAR SOURCE FILE.
'START CLEAR | WORD EARLY
:CLEAR TO ZEROS

;LOOP UNTIL INPUT BUFFER CLEARED

3s:

4s:

RS -(SP)

MAXWDS, R3

DEC

CLRB

SFEMP

MOV

MOV
SuB

COUNYER

‘SET aurrensxzs

; AND

;CLEAR SOURCE FILE EMPTY

SFPTR, RS

;SET UP RS AS SOURCE FIL. PTR

nnxuoé TEMPL
TEMPI

;STORE SF_SIZE
TALLOM FOR THIS LINE

RS, TEMPL

IBU#PT TEMPI
3s

conpur; LRST ADDR OF SF
OR SUFFICIENT ROOM FOR
fos LINE. BR IF YES

MOV

(SP)+'R3

BR
INCB

MOVE
MOVS

ggga

NOROOM
{sP)+,RS
(R4),RY

TST
RTS

:TYPE NO ROOM MESSAGE
:RESTORE RS
sroas

iSET_UP ERROR RE TURN

)
LNCNT

;GO _TO EX
:BUMP
LINE cou

&§5)+

;gssr
IF nsr
C“fifi noveo IS NULL

LNCNT, (RS)+
(R1)+, (RS)

VTS
A
MOV
(5P)+.R3
5% :

srone RS

ADD
CMP
BLOS

MOV

2%
Douesy
Oioege Joiee
2637
004656 012603

25238
ggag

CLRB

TYPE
MOV

01260

000414
105237

:STORE R3

BNE

001234
001700
000016

R3, -(SP)

MOV
MOV

001246

(05303

MOV

(R4)+
RY

SPUT LINE counr
¥~
SOURCE
:MOVE INPUT
URCE

EESTSRSFSS”‘“
SOURCE FILE PTR
IRESTORE R3

iSET UP NORMAL RETURN
'RETURN TO CALLER

S245

PR TTE YEERRCH BYTE STRING FOR COMMA OR NULL & rXx¥Ruxymaxyexxx

2544

‘a

2643

: XENTRY

Sg:g

JSR

2547
2548

: *RETURN
e
RTS

5§§?

2549
2552

2553

004664

000

BSCN

R1 POINTS 10r:nsr CHAR OF STRING
PC

WITH R1 NOW POINTING TO FIRST CHARACTER
AFTER A COMMA OR TO THE NULL

llil!!lllllllllllill!ll*lll!!*!ll!llll!i!**ili***!lliiii*lli!i*

NOLL

.BYTE

CZRBERCO RKB11/06 USR DEFINED
02-DEC-77 11:07
CZR6RC.PL 1

os4

004665
004666

004664

MACY1l

30(1046)

02-DEC-77

11:59

PARCE SO

SEQ 0049

SERRCH BYTE STRING FOR COMMA OR NuLL
.RSCII

COMMAR:
SBSCN:

18:

CMPB

BEQ
CHPB
BNE

004665

2s:

RTS

< 333030400

/,”/

(R1),NULL

sTEST FOR NULL

' RETURN

2
(R1)+,COMMA
18

‘BR IF YES
17:ST OF CIMMA
;L00P_IF NJT

0236 00 00 000 0 000 00 36 00 00 300006 0000 00 000

IO 00 0 R0 00

ég;;hY INTERRCTIVE COMMAND DECODE ROUTINE
Ly
t¥

JSR

: *RETURN:
Ly
e
¥

R RN

NN RN

R4, ICDEC
WItH RI CONTAINING THE FDORESS OF THE COMMAND LINE

MOV
RTS
15T
RTS

(R4) ,RY
RY
ERROR RETURN
(R4)
+
RY
NORMAL RETURN

lNHEN RETURNED R2 WILL POINT TO THE SF"OND WORD OF
iTHE MRTCHING TARBLE ENTRY

lTHIS ROUTINS
SERRCHES THE TRBLE OF _INTERACTIVE
; ¥COMMANDS
OKING FOR A MATCH FOR THE COMMAND

;!POINT%D 70 BY RI. iF ng MATCH THE

ROUTINE RETURNS

;: #BACK
TO RETURN 1.
IF
MATCH OCCURS
RET URN IS TO RETURN 2.
; ¥R2 POINTS TO SECOND WORD OF TRBLE ENTRY WHICH IS
: ¥ADDRESS
OF INTERACTIVE COMMAND PRi(ESSOR

: #SUBROUTINE. THE CALLING ROLT(NE MUST
§STORE R2 BEFORE CALLING TCOECS
QOO0
OO
DCP‘E
O 4= b b pe

5 3306 0

001702
001703
001702

003534

ICDEC:

18:

000010

2%:

3s:

004760
oo4762

4s:
X

1 36 0006 36 36 0 3 3 3606 3 30 2 2 0

MOV

R3, -(SP)

:STORE R3

DEC
MOV

RI
#ICTBL,R2

:RESTORE R1
70
:ADDRESS Of T

BEQ
CMPB
BEQ

38
(R2),STAR
2%

;snr$neg COMMAND.
R IF HIT
; TEST
IF
END OF TFiLE.
PIF YES DO ERROR ~cTURN

MOVB
MOVB
MOV
CMP

00243S

004754
004756

000036 06 06 0006 00 06 0 30 06 0 0 0600031 06 00 00 000000030 0003 30

R+ TEMPI
(R1) tsnpx+x
TEMPL,R

R3, (R2}

ADD
BR
MOV
BR
TST
157

$10,R2
18
(R4) ,RY
ys
(R4) +
(R2)+

MOV
RTS

(SP)+,R3
RY

novs COMMAND INTO R3
N
WORD
;AL
N F?R AST OF COMPARE

BEG NNING OF CMD
_NTO R2

:TEST TRBLE ENTRY f 3AINST

:BUMP R2_TO NEXT TRBLE ENTRY
;LOOP - TEST NEXT
‘SET UP ERROR RETURN
JJUMP TO EXIT
:SET UP FOR NO ERROR RETURN

aunp R2 TO SECOND WORD
:0F TABLE

;RESTORE R3
:RETURN TO CALLER

212222222222%1227*12:12222222322222122X22332XX2XX2TXTXXTTXTE2TLI
2L

'48TT.

EDIT ADD LINE ROUTINE

JSR

; #®ENTRY:

RY4,EARRTE

cznsnco RK611/06 USR DEFINED

CZRBRC.P11

02-DEC-77 11:07

MACY1l 30(1046)

02-DEC-77

EDIT ADD LINE ROUTINE

gg}?

261

2615

;nouvxues CALLED

2616

Se16

RTS

H
: #THI

PRAGE S1

SEQ 00S0

§§ ?8xgls TO COMMAND LINE R2 POINTS TO 2ND WORD

E!RETURN

2614

11:59

LO4

ECEIN
TINE

RY+2

IF ERROR

IF NO ERROR

TRV

2624

:;#FILE
#NOT _ADDED
AND AN RROR xsnspokrso THE SOURCE
LENGTH IS cuecxso FOR SUFFICIENT ROOM.

2625

2620

00476M

004766

004764

010046

004770

010246

EARTE:

010146

NEW

LINE INTO THE

RO, -(SP)

;;PUSH RO ON STACK

R2,-(SP)

PPUSH R2

MOV

Ri,~-(SP)

635
90urrq
Diocue
2634
4776
019 05 001246
2635 00S002 013700 001710

nov
MOV
MOV

Re's(2p)
SFPTR,RS
18uFPt, RO

2639

BLOS

2631

T
Comengs'fis*s%s"%o Bl
lDEFERRED conmnno IF
THE connnuo 1S

S&S?
2629

BRIoS ol

S USED TO

MOV

838
%‘Sgi’g
%3788 884023
26
501 320500

} 'PUSH Ré ON STACK

ON STACK

1iELoH
B2 ON 2TAcK
'Long
SOURCE
§1Ls PTR INTO RS
'GET START OF INPUT BUFFER

R
CMP

hageRa'Rd
RS, RO

TYPE

?ga

NOROOH

g
sescn

TYPE NO ROOM MESSAGE

MOV

R ,-(sp)

QSNRE2§ ?F nscg* hé“s NUMBER

Sg:e oogosé oiegoa 00124:

5839

{fig;;,sg

srone oscooeo LINE NUMBER

2653

JSR

PC, SBSCN

,BUHP Rl TO NEXT PARAM (NEW CMND)

2640

005020

005022

101403

104401

asgé §§SOES 8§3§§9
2645

qgggga

gos

o;q

ooga?s

00246S

Y4666

031314

O
o e
DR
26
101064
005070

004737

004666

sead B02000
diad7 Ooqeed
oosioe ogg;gg 004704

gggg

6
1?§ §g 2
2c5p
2118
Dosve
2660 005114 100446

Sees
002158 B75TaE
2663 005122 005200
2664
2665

005124
005130

110037
010500

001243

ggg

PC!DECBIN

L
BHI
23%
ggg

L
R4, ICDEC

BMI

228

MOVB
MOV

RO, LNCNT
RS, RO

TST

wov
INC

(R2)+

RLClsp)
RO’

00D
THE HRX HORD R manD
cnscx IF ROOM FOR THIS CMD
IF YES

;89";°R§X§5 NEXT PRRAM (LN)
T 70

BIN

e
NGH 3TF§g€cx
YES (ERROR)
;ggggge
NEW COMMAND
'a

| 3R0 WORD OF ICTBL
B0n%
52
|8 380,Ko
:BR_IF nxnus NOT DEFERRED CMND

iDEC_BACK
TO 2ND_WORD¢
'ADD [ TO OLD LINE TOTAL
*STORE IT OFF
:STORE R4 FOR REFERENCE

CZRBRCO RKb11/06 USR DEFINED

CZRBRC.P11

02-DEC-77 11:07

MACY11 30(1046)

2672
2673
2674
2675
2676
2677
2678

005136
005140
(0JS142
005146

001375
005205
010537
012601

005152
2679
005154
7680

101376

co8l
2682
2683

005160
005162
005166

001373
062700
010005

2685

6172

105872,

005150

0051;4

005204
005210
005212
88 19

020537
001417
110325
0770

005236

2701

005244

86 404

2700
27
S;ou

agg

5232

00S240

00
008350

118:

000002

801375

109401
000410
6 Y401
o405
104401
000402

269

16
(005222

001246

6003 000001

BEly Opesdd
S8
89
00
1376
U

108:

114045

2684 885172 11§$50

2599

104401

401
005724

2705 88?5&5 012605

12%:

: NUMBER ;ncu NON-NULL CHQR
SAND ONE FOR NULL
‘STORE NEW SF LINE POINTER
RESSVERR1 (COMMAND LINE PTR)

BNE

118
1(R0)Y,R3

TEST
fiuflggx? oB&nsr
cunn
MOVED IS
CED

MOVB

BNE
ADD
MOV

20S:

002532

21s:

002554

22s:

002575

238:

25$:
ggg:

BNE

BNE
CMP

14
RS, SFPTR

gn
YPE
BR

:GO UN IL L
:SF RESEQUENCED, EXIT TEST
'BR IF YES, EXIt
nove IN NEW
LINE NUMBER
RANCH TO NEX é ;

25§

TYPE

s TYPE INVALID LINE NUMBER

(5P)+. R3

*ERROR RETURN

(SP)+,RS

:POP STACK INTO RS

,,pop STACK INTO R3

(5P)+.R2
(SP)+.RI
(SP)+. RO

:POP STACK INTO R2
:POP STACK INTO Rl
::POP STARCK INTO RO

H o 3636 36 3 36 26 36 36 36 36 36 36 36 36 36 36 36 36 36 3% 36 36 36 3 3¢ 36 36 36 36 36 36 36 98 36 36 36 36 36 96 36 36 36 36 36 36 3t 36 36 3 36 36 3¢ 3 3 3 36 36 3 3¢ 3 3 3¢ %
"48TTL EDIT DELETE LINE ROUTINE

2715

s ENTRY:

2717

2718

IVOLN

358
(R4)+

RTS

2719
2720
2721

s TYPE INVALID NEW COMMAND

BR
TST

000204

2716

1VDAROD

tRY), RY

005264

ENTERED

;rvps INVRLID EDIT

MOV

MOV
MOV
MOV

YPE BRD NUMBER

gvozor

2ss

MOV

DDEC

TYPE

IS NULL

nor 3°"ETETE¥§EGNfi:ggh LOOP

30¢
R3, (RG)+
133

258

TYPE

NTO SF

2710
2711

2713
2714

nove NOT DONE, LOOP
:GET_RO_OFF NULL PAST LINE NUM
:STORE RO ron REFERE CE

nov; nsu COMMAN

MOV

012602
012601
012600

118
82, R0

n; c
or OLD SF TO
NEH LRS cunn
(3
#

TSTB

012603

65256
5260
005262

-(RO).-(RS)

RO’ RS
(R} (ROY+
(R1)4
ées

MOVB

BEQ
MOVB

002512

:SCAN INPYUT C nnnno
FRocr
TRoE1 C%0 RE e ok oox
Ot roa

108
RS
RS, SFPTR
(SP)+,R1

005264

2712

SEQ 00S1

BNE
INC
MOV
MOV

CMPB

001246

N
1%

706

270
2708
2709

PARGE S2

*NEW LINE & MOVE OLD SOURCE TO MAKE ROOM

70
00S!
0
8877
832143
982557

2695

MO4

sROUTINE TO DETERMINE HOW FAR TO MOVE SFPTR TO ACCOMMODATE

gggg

2690
2691
2682
5233

11:59

EDIT ADD LINE ROUTINE

5289

esag

02-DEC-?7

1
‘x

JSR

WITH R1 POINTING

RY,EDRTE

Y0 INPUT COMMAND LINE (THE EDIT

DELETE connnno) nno R2 POINTING TO THE SECOND
WORD OF THE TABLE

(IC TBC)

2
nsrunn RTS
RY
ERROR RETURN
sx
RT
RY+2
NO ERROR RETURN
!¥THIS ROUTINE WILL REMOVE THE COMMAND DESIGNATED BY THE

C%RSRCO RK611/06 USR DEF INED
R6RC P11

02-DEC-77

11 :07

MACY1l

11:59
02-DEC-77
' EDIT DELETE LINE ROUTINE
30(1046)

NO4

PRGE S3

; #LINE NUMBER FROM THE SQURCE FILE.

SEQ 00Se
THE REHRINING

: ¥COMMANDS ARE MOVED UP IN THE SF_AND RENUMBERED.
D% THE sg%kggngL?EQUENCE OF OPERATIONS 1S PERFORMED:

ll.

NUMBER FROM INPUT COMMAND

CONVERT LN FROM RSCII TO BINARRY

i3.

CHECK IF LN EXISTS IN SF
gELETE COMMANDC FROM SF BY MOVING REST OF

; %S,
; %6,

DECREMENT LINE NUMBERS WHILE MOVING COMMANDS.
ggflU$T AND STORE POINTERS AN NEW LINE

R
,l

ROUTINES CALLED
DECBIN
SBSCN

2T
i
P
1 2
s ¥

o 363636 36 36 36 36 3 36 36 36 36 3 36 3 3 3 36 36 36 36 36 36 6 36 3¢ 36 96 36 36 08 36 36 36 36 36 3% 36 36 36 3 3 36 36 3 36 36 6 3¢ 36 36 3 3 36 36 36 36 36 3 36 3 3 3
VO~V DDDDOD
O—-OONWN—-O
e (s = 9w v ww
o
m~
[+ 0 B e
)
O
unnUNWM
0o
OVVVTVO
>t
pr LT
z

‘nooness OF LN ON STACK

' DECODE LN TO BINARY

STORE DECODED LINE NUMBER
,ce UMBER OF LAST LINE
CLERR UPPER BITS

-0
NO

O n PUA) oNen—-N o

SR on B o808
8C»—-u—w
o-—-mu—o-—-v-wtggmwmm.coo~N ~N
£ 3= LN
no CNDS VW LU= £

005360

EDRTE:

22
IBUFPT,RO

éRO),RQ

RO,S"PTR

o000
oco0Qon

005266

000000

22%

+
(RO}
2%
13

TEST IF VALID LINE NUMBER
- GO PRINT ERROR
NO

csr RADORESS OF START OF SF
STEST IF THIS IS LINE TO BE

;DELETED. BR IF YES

HECK IF STILL IN SF

:BR IF Nb (ERROR)
;TEST FOR_NUL L

iBR IF NOT NULL, CHECK NEXT
FOUND NULL, BR'TO TEST FOR LN
BER AN

i
8702

£W
|17

005362
005364
005366
005370
005374
005376
005400
005402

- 00000

HOVE IT 7O OVERLAY OLD CMD.

001246

5
2

6%:

RO, RS

(ROY+

4§
R2
SFPTR,
RO,
R2
(RO)
(RO)+, (RG)+

:STORE RO FOR_REFERENCE

'LOOK_FOR_NEXT
NULL
:BR_IF NOT, CHECK NEXT CHAR
;GET SOURCE FILE PIR
;i

JEST

IF END OF SF

ggcxr Y%S END OF MOVE

'MOVE BYTE TO OVERLAY LINE

CZRERCO RKb11-06 USR DEFINED
CZRBRC.PL1
02-DEC-77 11:07

2778

2779
27eC
2781
2782
2783
2784

2785

2786

g;gg

2789

2790
2791
2732

2793

2754

SEQ D0S3

BEQ

00SY0&
005410

00077S
010537

BR
MOV

6
RS, SFPTR

'END OF THAT LINE, CHECK IF MORE
:MOVE NEXT CHAR Of THIS LINE
:STORE NEW SF POINTER

005420
(00%422

00100;
152737

BNE
BISB

gs
81, SFEMP

:SKIP IF NOT ZERO
{ELSE SET SOURCE EMPTY FLAG

005432

020500

RS, RO

CHECK IF rxn&suso
,LOOP IF NOT

(RY)+

;SET _UP NORMAL RETURN

00SY4IN4
DOS5430

105337

105025

005434

001375

DOSH36

005724

005440
005442
005446

005450

001234

DECB

8s:

CLRB

218:

[04401

002575

22%

BR
TYPE

012605
012603
012602
012601
012600

2807

s 2 ST

: TYPE BAD DECIMAL MESSAGE

IVOLN

s TYPE INVALID LINE NUMBER MESSAGE

(SP)+,RS
(5P)+.R3
(SP)+.R2
(SP)+.RI
(SP)+.R0

; sPOP
:1POP
:1POP
; ;POP
:1POP

258

MOV

tRY), Ry

MOV
MOV
MOV
MOV
MOV

RTS

S0e

BADDEC

TYPE

000204

IE 00 I

:GO TO NORMALEXIT
S TYPE INVRLID EDIT MESSAGE

25s

TYPE

308

'CLEAR REST OF SOURCE FILE

308
IVDEDT

253

iDEC TOTAL LINE c UNT

(R8)+

CHP
TST

002512

:TEST IF BYTE MOVED WAS MOVE

LNENT

BNE

104401

000405

011404

005476

000001

20s:

005462

00S46M
005466
NOS470
005472
005474

78:

001243

002532

000402

(005464

001246

000411
104401

005454

2797

5383

PAGE S4

001773

005456

2798
2799
2800
2801
2802

BOS

005404

2795

2796

MACY1l 30(1046)
02-DEC-?7?
11:59
EDIT DELETE LINE ROUTINE

'SET UP ERROR RETURN

00 00 00 00 00 0630 00 0030 3000

éaTTL

PRINT LINE ROUTINE

2811

;: #RETURN

RTS

¥ENTRY

2810

JSR

INTO
INTO
INTO
INTO
INTO

:RETURN TO CALLER

2808

26809

STACK
STACK
STACK
STACK
STACK

RS
R3
R2
RI
RO

36 30 06 0 0 36 300 36 0600 3600 03 3630 0 300 0T

4 PYRTE ON PLRTE

!NITH Rl POINTING TO connhno (PRINT LCINE)

2812

2813

RTS

RY42

RR RETURN

P %#THIS ROUTINE HILL PRINT s
A rnch LINE FROM THE

*¥SQURCE FILE.

814

2818

R
IF

BER

IS GIVEN WITH THE PRINT

*ans (PL) REQUEST THE ROUTINE PRINTS THE SPECIFIED

2816

IF LN IS NOT SUPPLIED THE LAST COMMAND

SS{S

iENTERED IS PRINTED.

2819

!ROUTINES CALLED

282¢

ggsg

: !!lllllll!ll!l{!!il!lllilll*ll*llllllll!!ll*!!!l!llllll*!ll!!li

2820
2821

‘a
L

2826

005500

2831

005510

2827
2828
2829
2830
2832
2833

005500
005502
005504
005

010046
010146
010346
010546

005514
005516

00106l
004737

105737

PLRTE:

001234
004666

YPDS
TYPE

DECBIN

MOV
MOV
MOV
MOV

RO, -(SP)
R1,-(SP)
R3,-(SP)
RS’ -(5P)

:;PUSH
11PUSH
}:PUSH
::PUSH

BNE
JSR

228
PC, SBSCN

'BRANCH IF NO SOURCE
:BUMP R1 TO NEXT PARAM

TST8

SFEMP

RO
Rl
R3
RS

ON
ON
ON
ON

STACK
STACK
STACK
STACK

:YEST 1F ANY SOURCE CODE

CZR6RCO RK611-/06 USR DEF INED
02-DEC-77 11:07
CZR 6RC.P11

; TEST

DECBIN
Pé

091243
177400

LNCNT'RS
ax?;zbo RS
18:

cs:
001246

IBUFPT,RO

(RO) Ré

Ss:

SF [
-E R 0
R0
Ss$
(R 0 )

38:

-(SP)

4s:

i NUMBER TO
RE
;ERROR

CONVERTED LN

;GET srok?oL NE

; CLEAR UPPER

TSST xg&&? kéfl NUMBER

95?*’?“‘33s YthEOUNDLN
oF F

F NO (Eakbfl-INVRLID LN)

RO
-(RO)

(RO)+, (SP)

e
P
Poxfivsn
1GET SF

T NEXT
F THIS

CHAR
IS LN

Pnsr NULL
?ngng
BR IF NO LOOP TO FIND NULL
UMP RO PRST
CLERR NEXT STRCK WORD
LINE NgflgERRON STACK

EQSGN

002510
005632
001171

IF NULL

NO LN PRINT LAST CMND
CONV RT RSC%NnhINE

K IF ST

(R Q)
2l $
éR
0+
wwm

001710

(SP)+,R3

SEQ 00Ssu4

PRGE SS

SRIINIFERE
T £4

CGaS

031314

£N

YT
T

82323888
2
oy
e
fhie o
012605

11:59

(Rl)

105711
001424

00SS2e
00SSa4

MACY1l

02-DEC-77
PRINT LINE ROUTINE

30(1046)

RO,6
63:

TYPE LINE
; TYPE CRRIARGE RETURN

SCRLF

iSET UP NO ERROR RETURN

R4+

00esie

20s:

002575

218:

003007

22s:

508:

30$
BADDEC

; TYPE BAD DECIMAL MESSAGE

25s

; TYPE INVALID LINE NUMBER

IVDLN

2s5s$

; TYPE SO _SOQURCE MESSAGE

NOSRC

tRY), R

{SET UP ERROR RETURN

(SP)+,RS

,,POP STACK INTO RS
;POP STACK INTO R3

(SP)+.R3
(SP)+.R1

,,POP

000204

TACK

INTO Rl

’kPOP TACK INTO RO

(SP) 'RO

; o 363636 35 36 36 35 3 36 35 36 3 36 36 36 36 36 36 3 36 36 3 36 3 36 3 36 3 3 36 36 36 3¢ 3 36 3 3¢ 36 3 3t 3 36 3 3 36 3 3 3 3 3 3 3 3 3 3 3 XX X ¥ X R

SBTTL “PRINT TEST Rourxne

*ENTRY
JSR
lNITH
Rl POINTING
TO COMMANDTRTE
(PRINT
TEST)
ERROR RETURN

RE URN

RIS

RTS

R +2

NORMAL RETURN

lTHIS ROUTINE WILL PRINT THE ENTIRE CONTENTS
: #OF THE SOURCE FILE.

CZR6RCO RKb611-06 USR DEF INED
0e-DEC-?77 11:07
CZR6RC.P11

MACY!l

30(1046)
02-DEC-77
PRINT TEST ROUTINE
; BROUTINES
;

< B

N?YPE

11:59

DOS

PAGE Sb

SEG 00SS

CARLLED

TYPDS

;;lllllll‘lllllll!l!llllllllllllll!llllllllllllllllllllllilllllll

PTRTE:

PRI PR
S §sa

B8 0100, )

0346
17 g

2906
a7
303
310

2911
2912
2913
2314
315
5316
g317
2918
2913
2920
2321
2922
2923
2324
2925
2926
2327
2928
2929
2930
2931
2932
2933

2334
2935
2936
2937

2938
2339
2940
2941
2942
2343
2944
294S

\J\l9§§\|V ~NN

OLoz44
Ors7sg

005
oas

00S76d
005770
00577
005778
005774
005776

001710

lééflég
1044

401

002510

199900
720

001171

10037

1376
020003
1361
05724
403
104401

O11404

RO, - (SP)
R3.-(SP)

,,PUSH RD on STACK
;
§H ON STACK

BNE
MOV
MOV
CLR

20§
gggspv RO
TR,R3
~(SP)

:IF NONE aanncu EXIT
EE g T OF SF
T SOURCE FILE PTR
:CLEAR NEX srncx WORD

1578

001234

13700
Bl
BiZig

MOV
MOV

3s:

novg

TYPDS

TYPE

005742

18:

2s:

208:
acs

EQSGN

;HT »xu; ON STACK
:TYPE EQUAL SIGN

RO, 1S

TST8
BNE
cnp

tno)4

go R3

'TEST FOR NULL
PIF NOT LOOP UNTIL NULL
;Esr
IF LRST LINE PRINTED

25%

co TO NORMRL EXIT

. WORD
TYPE

TYPE
MOV
MOV

012603
012600
00020.

(RO)+, (SP)

?Es IF ANY SOURCE

MOV
TYPE

?s?

003007

SFEMP

ggg

ISET UP TYPE RDDRESS
' TYPE COMMAND

SCRLF

; TYPE

(3q)+

CARRIAGE RETURN

87NORHAL 88¢URN

NOSRC
tRY), Ry

:TYPE NO SOURCE
'SET ERROR RETURN

(SP)+,R3

; ;POP STACK INTO R3

éSP)+RO

,kPOPSTRCK INTO RO

o 3638 3 36 36 96 06 3 36 36 36 06 38 3% 36 36 36 38 3% 36 36 36 36 3 36 36 36 36 3¢ 36 36 36 3 36 36 38 36 38 3 36 36 36 98 3 3 3 3 3 36 3 3 0 36 36 3% 36 36 36 3 3¢ 3¢ 3¢ ¥

"&88TTL

: BENTRY:

:
X

FORMAT SELECT ROUTINE
JSR

]

flRETURN:

RY,FTRTE

RTS

R4+2

WITH R1 POINTING TO COMMAND
ERROR RETURN

NO ERROR RETURN

lTHIS ROUTINE WILL SELECT THE FORMAT (24 OR 26,0CTAL) THAT IS TO

:%BE_USED FOR THE SUBSYSTEM COHHQND%EDRLL COMMAANDS WILL BE EXECUTED
:#WITH THIS FORMAT UNTIL IT IS
C
006000
006004
006006
006010
006014
006016
006022
006024
(006030

004737
105711
001417
121127
001006
013746
104402
104401
000406

004666

lllillll!l!lll!llilllllllllll!llli!llllilllll!lllllll!ll!l*llll

AtRTE:

JSR

BSCN

;BUMP TO NEXT PRRAMETER

1578

(Rl)

000077

CMPB

(R1), %’

TEST IF ouesrxon

001212

MOV
TYPOC

FORMAT, - (SP)

ELSE GET ronnnr STORED
IPRINT IT

001171

BEQ

BNE

TYPE

$CRLF

TEST IFN

NO CH nncs EXIT

NO
- SKIP PRIN

;GO TO EXIT

CZRBRCO RK&XI/OS USR DEFINED
CZR6RC.P
0e-DeC- 77 11:07

2946
2947

031160
ool1z212

002640

FORMAT SELECT ROUTINE

MACY1l 30(1046)

02-DEC-77

18:

MOV

JSR

208

MOV

11:59

; ERROR RETURN

;STORE NEW FORMAT

(SP)+,FORMAT

58:)+

208:

MOV

(R4),RY

308:

:PUT VALUE FOR CONVERSION ON STACK

PC,OCTBIN

ggr

SEQ 00Se

PAGE S7

R1,-(SP)

2s:

TYPE
RTS

EOS

:GOOD RETURN

;SET ERROR RETURN

8ARDOCT
Ry

*PRINT ERROR MESSRGE
'RETURN

SFEIEIE 00000 3000 00 000 000630 3000 00 30 3630 30 3000 30 3600 030 3600 23000 036 300 060 00 0 000

QBTTL

TIMEOUT gggNGE R8UTINE

,!ENTRY.

000

ITH R1 POINTING TO COMMAND
ORTE

'iRETURN

RTS

RY42

ERROR RETURN

NO ERROR RETURN

—e(NL

001260

[

006100

e be )

8rh80

004666

:#THIS ROUTINE WILL CHANGE THE TIME OUT DELAY FOR SUBSYSTEM OPERATIONS.
< 3698 32 30 36 36 36 36 3 36 36 36 36 36 36 06 36 06 36 3606 30 06 30 06 060 30 30 30 06 06 636 36 36 00 36 30 3030 30 30 36 96 30 30 036 06 00 00 30 3 06 3000 00 20

YdRTE:

000077

001260

00es12

PC, SBSCN

BNE

ggps

1gcnu:

1518
BEQ
CMPB

MOV
TYPDS

001171
031314

ISR

2%:

MOV

;BUMP TO PARAMETER

(R
19
(R1),8'?

STEST IF O
*EXIT ~ NO TIME OUT CHANGE
TEST IF QUESTION
- SKIP TYPE
NO
GET TOVAL TO STACK
ITYPE IT

TOVAL, - (SP)

:GET VALUE FOR CONVERSION

R1,-(SP)

18:

JSR
208
MOV
EET

(SP)+, TOVAL
58:’*

:CONVERT VALUE TO BINARY
"ERROR RETURN
!STORE VALUE
:SET GOOD RETURN

208 :

MOV

(RY) ,RY

;SET _ERROR RETURN

308:

TYPE
RTS

PC.DECBIN

BRODOEC
RY

: TYPE MESSAGE
‘RET URN

; llllllll!!ll&!llllll!lllllllllllllllllil!!ll*llllllll!llllli!ll
'4gTTL DRIVE NUMBER cuauce ROUTINE
: XENTRY:

‘¥
¥

JSR

NRTE

WITH Rl POINTING Tb THE COMMAND FIELD IF DN
COMMAND OR SUBSYSTEM COMMAND PARAMETER IF

svesvsren FUNCTION COMMAND

.snnon RETURN:

Rgs

énq),nq

.No ERROR RETURN:

éfi“"

lTHIS RQUTINE CHANGES THE “DRIVE"TM PRRAMETER BY STORING
N IT THE VALUE SPECIFIED BY_THE "DN" OR *SF*

iCOHHRNDS NOTE R1 MUST POINT TO THE COMMAND

iFIELD (DN) OR THE SUBSYSTEM COMMAND PRRAMETER (SF).
iROUTINES CALLED
: #0CTBIN

CZR6RCO RKE11-06 USR DEF INED
CZRBRC.P11
02-DEC-77 11:07

SEQ 00s?

R1,-(SP)
PC.OCTBIN

18:

MOV
JSR
28
MOV
CMP
BHI
ggr

(SP),DRIVE
(5p) 4, 87
38
58:)*

nooness OF RSCII
C
'CONVERT TO BINARY
:ERROR RETURN
:STORE NEH DRIVE NUMBER
TEST IF VALID DRIVE
; YES - T¥PE BAD DRIVE NUM
;SET NORMAL RETURN

2s:

55P€

éagoocr

; TYPE

LO—
)L Ll)trer—
N—L£—L
L LN

fzhL£~—n»—C383£
N =N
L
-

s
—

ys:

031160

0y
e

003146

ON STACK

TYPE

001171

002640

PUSH R1

001176

001176
000007

00622

R1,~(SP)

PC’SBSCN
(R1>
18
(R1),8'?
ys
DRIVE, - (SP)

000077

0000SY

MOV

JSR
TST8
BEQ
CMPB
BNE
MOV
TYPOC

004666

220o

O
1

C &

DNRTE:

828KR QO

ErreRrres

2BINIIRR
IS £ £

3%:

ggg:

012601

éunp R1 TO NEXT PARAM
STEST IF PARAM NULL
'NO DRIVE CHANGE EXIT
STEST IF oussrxon
INO- SKIP TYPE
'GET DRIVE NUM TO STACK
STYPE IT

SCRLF

CMPB
BEQ

(R1), 0",
18

TYPE

TEST IF NULL ENTRY
YES
NO DRIVE cnancs EXIT

BADDRY

MOV
MOV

INVALID OCTAL NUMBER

:PRINT MESSAGE

tRY), RY

'SET ERROR RETURN

(SP)+,R1

RTS

000204

;

POP srncx

INTO RI

R IXXz2iz22z2:2zX222222xX222222222:XX:TZ2X2X
X222
Y]

FagTTL

: BENTRY :

xrsnnrxogsgounr gunngsTnourxne
E

;}RETURN:

RTS

; &

—8he08

004666

000077

[

001171

031314

2s:

xfw R1 POINTING TO INPUT COMMAND
R
R4+2

ERROR RETU
NO ERROR RETURN

CALLED:

0000000 0 0 00 0 3 3800 00 06 00 00 6 30 36 36 30 38 3030 36 30 36 38 30 06 06 98 6 38 30 38 00 06 06 8 4 3% 3% 3 0 3

JSR

PC . SBSCN

:BUMP R1

BEQ
CMPB

18
(R1),8°"

JIF NULL, EXIT. NO CHANGE IC
TEST IF’ QUESTI

ITCNT, -(SP)

cer ITERATION CNT TO STACK
STYPE IT

1578

(RD

BNE

gzpe

1gcnu»'

MOV

R1,-(SP}

MCV
TYPDS

001232

£
o

-0
00
£

006314

ICRTE:

RTS

ROUTINES

tw
DECBIN
-!
SBSCN
s RO
O

O
—

3020

FOS

30(1046)
02-DEC-77
11:59
PRGE S8
DRIVE NUMBER CHANGE ROUTINE

: #5BSCN

e
Ny W
Y
O
[

DONCNLWNH—O

0OQO0000000
wunuwuuugufigw

3002
3003
3004
3005
3006
3007
3008
3009

MACY11l

JSR
20%

PC. DECBIN

TO NEXT PARAM (IC)

rssr ron NULL

NO
- SKIP TYPE

: ADDRESS OF PARAM ON STACK

:CONVERT IT TO BINARY
:ERROR RETURN

cznsnco RK611-06 USR DEFINED
CZR6RC.
P11
02-DEC-77 11:07

3058

3059
3060
3061

006316

322
324
326

012637

005724
000403
011404

GOS

MACY11l 30(1046)
02-DEC-?7?
11:59
PAGE S9
ITERATION COUNT CHANGE ROUTINE

001232

3062 006330 104401 002s12
ggga

006334

MOV

18:
20$:

000204

(SP)+, ITCNT

15T
BR
MOV

:STORE ITERATION COUNT

(RY)+
308
(RY)

TYPE

308:

:SET UP NORMAL RETURN
:SET UP ERROR RETURN

aaobec

RTS

:TYPE BAD DECIMAL MESSAGE
: RE TURN

3065

MK Y Y Y Y

3067

3068

iENTRY

3069
38;?

lRETURN
,;

3072

WITH THE §SSN}ISA$SX * OR Z RS CHOSENB
’;25"

3066

'4BTTL

SEQ 0058

nq+e

RETURNS MAY BE USED T0 Tennxnnrs

3078

.uxruour nrr cT

3081

;on A

3083

309

006336

3090

006346

006394

100000

001702

EBRTE:

006362

010046

001702

3095
30
3097

006364
006366
006370

010146
010246
010346

3100
3101
g}gg

006376
006402
006404

004737
105711
001541

004666

3104

006406

121127

000130

3107

Q06420

(52737

000377

3109
3110
3111

006430
006434
006436

121127
001006
012703

000131

06372
05374

006412

810546
010946

001006

006426

000421

006442

152737

006450

000410

DPRTE:

DPRTE]:

BIS

RO, -(SP)

MOV
MOV

RS, - (S5P)
RY. -(ZP)

001362

000377

BNE

MOV

BISB

001240

B8R

CMPB
BNE
MOV

BISB
BR

IXI22XI 2222222222222
22X22X2 22222 4

881715, TEMP!

MOV

CMPB

18:

0,0,0,0

DPRTE]
TEMPI

JSR
1578
BEQ

001237

SBSCN
Iz

B8R
CLR
MOV
MOV
MOV

3106 0Ou64I4 012703 00126

3113

0S2737

3094

006362

x
1Y

COTeur .WORD

000402
00S037

3112

NES CALLED:
OCTBIN

000000

006354
076356

3108

E
e

000000

3091
3082

IF LESS T&SN S

nrznso THE REMAINDER WORDS ARE

000000
000000

éou583; ogcua

%WORDS RRE

;zsno F&hu‘

3084
3085

3105

NPUT onrn
v.THE (IF nO

3 ?HE NE oi ?

3082

3098
3099

no ERROR nourxne

;uono FoSnn* (6 OCTAL CHRRA ERgEHI H0$upggnexr A 0).

3077

3033

TO THE xupur COMMAND

ERROR RETU

IX ]

3076

3063

u TH RI Potnrx

;Tuxs ROUTINE WILL RCCEPT 32 WORDS on LESS nno sxons

38;3
307s

3086
3087

IYXZZRZZ YR 2 2RSS Y222 222222222228 3

SPECIAL onrn PQTTERN ROUT INE

:SET FLAG FOR EDIT BUFFER

:SKIP
CLERR EDIT BUFFER FLRG
;PUSH RO ON STACK

Ri.-(SP)
R2.-(SP)
R3,-(SP)

,,PUSH Rl ON STACK
'PUSH R2
ON
3TACK
11PUSH R3 ON STACK

PC.SBSCN
(R
208

Qunp R1 TO NEXT PARAM (PAT NAME)
:TEST PARAN
L
:CANNOT ARCCEPT NULL, BRANCH TO ERROR

(R1),8°'X

TEST PATTERN NAME FOR

8377, PATXDF

,ssr PAT
X DEFINED SWITCH

#PATX,R3

(R1),8'Y
2s
sPATY R3

8377, PATYDF

; ;PUSH
RS 85
TACK
i PUSH RY
TACK

OR %

SET UP R3

uITH RDDRESS OF AREA

:T0 STORE onrn PATTERN

:SET PART Y DEFINED SWITCH

S SFH ESHES BURR PR BRY YORYT '\go—v—o——-.—n
NL

MRCY1i

Y
et
e

n
nN OO

006377

Sfi;fi

001702

004666

S06

R3,

:SYORE R3 (BUFFER

B
S

AD, SBSCN

JSR

PC.OCTBIN

448

:TEST ;oxr FLAG

(ELSE

AREA)

e 10 NEXT PARAM, WORD NUM

BUMP TO

:GET RDORESS

PARAM

RT ¥r TO OCTAL

‘SET

TO INDEX INTO BUFFER

MOV
S
gs

09232,R

(SPY+.R
sgg

:SET MAX ?r 5 17

MOV

81032, R4

;ggr RY FOR cggur

DEC
BNE

RY
44s

:ARER,
:LOOP

MOV

81032, R2

:SET TOTAL WORD COUNT

‘'R

POINTS TO THE PATTERN STORAGE RRER

USED RS R SWITCH,

D
:
:
:

COUNTER
TICKING OFF & RSCII INFUT
cmmcr'nsn% WCN)
POINTS
Y0
MF
. "ARY CONVERSION BUFFER
COUNTER TO LIMIT
Itw UT TO 32 WORDS. ALSO

MOV

R2, RO

;nxuogzr
0
:ERROR, EDIT

8-1,(R3)+

REMAINOER OF BUFFER LENGTH
IS OUT OF BOUNDS

:SET PATTERN

32 WORDS

STORAGE

; THE REGISTERS USRGE FOR'THE RETMAINDER 1S RS FOLLOWS:

45§ :

gcsg

86 R4

MOVB

FORCE EXIT

AR 1985 £ TURNS

MOV

c§:

SET

WHEN NULL

RE TURN xgogersc ¢o;

R3
PC, SBSCN

MOV

#C{TBUF , RS
(R1)+, (RS)+

(CARRIAGE

(CVTBUF)

IF $§2 CONSECUTIVE

TYPED.

RESET CR SWITCH
:BUMP RI TO NEXT PRRAM

'SET UP CVTBUF POINTER

(DATA)

SET UP CONVERSION COUNT

iMOVE RSCII CHAR TO CVTBUF. IF

BEQ
CLR
DEC
BNE
BR
TST
BEQ

6$
R3
RY
c$
10%
R3
78
Si

;é;?;flL WORD COUNT)

coM

'SETTING CR SWITCH FOR RBOVE

BEQ

114

'YES, O FILL REST OF WORD. GO TO CONVERT

SER
78:

POINTS TO THE RSCII %NPUT DATR

CLR
JSR

4s:

6S:

112725

TEAP]

RI.-(SP)

DEFINED SWITCH

e RO G FmBER
START OF EDIT
;3Su % S ugxga§oo§8§s

00kb32

;g;r PAY 2

(SP),R2
Rgp !

004666
006336
000006

0377 PATZDF

ERROR

2oy
A

e o Pt P

SENFh LR B SESSR e

s Pm Pt Pt Bt Bt Pt Pt e Dot Pt Pt e Do Bt Pt Prrn Pt Pt P (s s e
W
O

MOV

RDO

000040

et ot ot Pt Pt P
B b Bt Bt P

; INVRLID PATTERN NRME,

MOV

39%:

(g*),rz

2
8PATZ,R2

000040

199979

CMPB

SEQ 0059

BNE
MOV

BIs8

00124l

031160

[y,

s Gt P

8825;5

HOS

02-DEC-77
11:59
PRGE 60
SPECIAL DATR PATTERN ROUTINE

30,04,

2s:

WWWWWWWWWWWWLWWWLW
W LWL WL LM W W W WL W) ) W) ) LGN () W) W) W) (W) LW W L) W W

CZRERCO RKH11-06 USR DEFIMNED
0e-DEC-77 11:07
CZR6RC.P11

000006

8s:

CHP

000060

CLE

MOVB

DEC

RY. 86
RS

8°0,(RS)+

‘0 (NULL) EXIT koop CLEAR CR SWITCH IF
'SET (NON-NULL
CHAR TYPED). DEC CONVERT
*COUNT AND
'LOOP. IF ONE WORD RERDY,
:BRANCH TO CONVERSI1ON
'TEST IF CR SWITCH SEY. IF NOT
'SET CR SWITCH. IF SET, CLERR R2
TO'PREPARE FOR

'TEST IF PARTIAL WORD TYPED.
:AND'PLACE

{CHECK

IN PAT STORE.

IF DONE.

IF NOT,

GO TO

lale)

NN
p.o

RGRCO RKB11-06 LSR DEFINED

6RC.P11

02-DEC-77 11:07

3170
3171

006636
006640

005304
001374

3173
3174
3178
3176

0066
0BP%6
Ous6S4
0066

737
716
012620
302

3172

3177
3178
3179
3180

3195

3182
3183

3184
3185
3186
2187

3188

3189

006642

(12746

00R6
0OC
006664
006566

5702
001407
005703
001736

006674
0065676

104411
012601

006670
006700
006702
0067084

104401

000407

006714

000402

006710

012605
012603
012602

3202
3203

3204

3205

gggg
3208
3209

3218
3219
3220
3221
3222
3223
3224
3825

11:59

I0S

DEC
BNE

RY
9s

JSR
21s
MOV
DEC

PC,oCcTBIN
(SP)+, (RQ)+
R2

MOV

PAGE 6l

SEQ 0060

-cvraur -(SP)

;START OF CONVERT. RESET CVTBUF PTR

TST
BEQ
TST
BEQ

Re
128
R3
4s

:TEST IF WORD CNTR O.
‘EXIT IF YES
: TEST CARRIAGE RETURN SWITCH
:IF NOT SET, GET NEXT & CHAR.

RDL IN
MOV

(SP)+,R1

;READ_NEXT INPUT LIN
E
:GET RDDRESS OF INPU

TYPE

128:

218:
258:

006726
006730
006732

3201

003521

002640

3194
3195
3196

006734
006736
006740

118:

20$:

104401
012604
011404

3187
3198
gégg

108:

031160

02-DEC-7?7

SPECIAL DATR PATTERN ROUTINE

002616

006716
006722
006724

006726

30(1046)

104401

3190
3191
3133
31

006336

006731
012604
005724

006706

MACY11

308:

012601
012600
000204

BR
MOV
15T

, SPACEB

308

25$

MOV
MOV
MOV

TYPE

TYPE
MOV
MOV
MOV
MOV
RTS

:LOOP TO PROCESS NEW ans
"RESTORE R4 FOR RETURN
:NO ERROR RETURN

1VDPAR

s TYPE INVALID PARAMETER

BRDOCT
tSP)+,RY
(RY),RY

: TYPE BARD OCTAL cunnncrsns
'RESTORE R4 FOR RETU
:ERROR RETURN

(SP)+,RS
(5P)+.R3
(5P)+.R2

; ;POP STACK INTO RS
.,POP STACK INTO R3
;POP STACK INTO R2

(SP)+.RI
(SP)+.RO
R4

'POP STACK INTO RI
: POP srncx INTO RO
k

o 26369 3 3 3 3 36 3 3 3 3% 3 3 3 36 3 3 % U 3 3 3 3 3 3 3 3 3 3 3 3 3% 3 3% 3% 3 3 3 W 33 % I W W X

"48TTL
Sk

PRINT REGISTER Rourxns
ENTRY: JSR
PRRTE

RETURN:

‘x
,l

RTS

W3 K

Wk 3 WK HE XXX

uxtn R1 POINTING TO INPUT COMMAND
RY

R4+42

ERROR RETURN

NO ERROR RETURN

; ¥THIS ROUTINE %L READ THE RK611 UNIBUS VISIBLE
'¥REGISTER AND
HE VALUE (OCTAL) ON THE

:xTERMINAL. THE REGISTER MAY BE SPECIFIED IN OCTAL
; ¥FROM 00 70 17 (NUMBER 13 RESERVED FOR FUTURE USE)

:#0R NMEMONICALLY RS:
'x
NUMBER NAME

DESCRIPTION

¥
x

01
02

WORD COUNT
BUFFER ADDRESS

'u
' ¥
¥
'y
' x

04
as
06
07
10

‘x
¥
'x

12
13
14

csl

WC
BA

COMMAND STATUS REGISTER 1

ADDRESS - TRACK AND SECTOR

DESIRED

DB
MR
POS

DATA
DAINTENGRGE REGISTER 1
ECC POSITION REGISTER

cse
05
ER
ASOF
oC

ELSE

:TYPE & SPACES TO ALIGN DATA INPUT

4§
(SP)+,RY
(Ry)+’

:CALL CONVERSION
:CONVERSION ERROR ROUTINE
:STORE CONVERTED VALUE IN PAT STORE
:DEC_TOTAL WORD COUNTER

COMMAND
STATUS REGISTER 2
DRIVE STATUS
ERROR_REGIS
nvrenré ST2LRMARY AND OFFSET REGISTER
DESIRED
CYLINDER

CZRGRCO RK611/06 USR oerxnso
CZRERC.P11
02-DEC-?7 11:

3226
3227
3228
3229
3230
3231

3237
3239
3240
3241
3242
3243
3244

3245

3247

3248
3249
3250
3251

30(1046)
02-DEC-7?7
11:59
PRINT REGISTER ROUTINE

i
15
PAT
‘u
s
MR2
u
MR3
.;Rourxucs CALLED
%
YPOC
D%
sescu

gsgg

3234
3235

MACY1l

006742
006742

006744
6750
675¢
006754
006760
006762
0067;3
0067
006772

010346

004737
105711
001416
121127
101404
004737
007044
00040S
010146

006774

004737

007002

012603

007000

7004
7010

007014
007014

007036

813337
013703
006303

PRRTE:

004666
000067
007056
031160
001224
001224

ys:

3s:
18:

2s:

023554

3268

007036

104401

002640

20$:

003365

218:
258 :

362
3263

gggg

(007042
007044
007050

007052
007052

007054

000406

000402
104400
011404

JSR
MOV

MOV
MOV
ASL

RDD
MOV
TYPOC
TYPE
1ST

001171

308:

012603

BR
MOV
208

063703
0] 1346
104902
104401
005724

007034

MOV

JSR
1578
BEQ
CHPB
BLOS
JSR
21s

007016
887822
76249
007026
007032

3269
3260
3261

PAGE &2

SEQ 0061

ECC PATTERN REGISTER
MAINTENANCE REGISTER 2
MRINTENANCE REGISTER 3

HH [T 22X 22222222 Y22 X222 2 2222222222222

3252
3253
3254
3255
3256
3257

JOS

0002nN4

R3,-(SP)

PC’ SBSCN
(R
18
(Rl) 967
T3
PC,RGDCDE
3s
R1,-(SP)

PC.OCTBIN
(SP)+ . R3

:PUSH R3 ON STACK

eunp R1 TO NEXT PRRAM (RN)
:TEST IF PARAM NULL
‘N0 REG specxrxso USED LAST REG SELECTED
STEST IF NUMERIC PRRAMETER
:YES
- SKIP
GO DECODE REGISTER
:ERROR RETURN
:GET nooaess OF STRING FOR CNVERSION

:CONVERT IT

;ERROR RETURN

GET CONVERTED NUMBER

R3, REGNUM
REGNUM, R3

:STORE INTEGER
:

:SHIFT R3,

RKBAS, R3
(R3),-(SP)
SCRLF
{RY)+

BR
TYPE
MOV

Ss
BADSEL
tRY), RY

1GOTO EXIT
:TYPE BAD REGISTER SELECTION
:SET UP ERROR RETURN

(SP)+,R3

;

MOV

BRDOCT

TYPE BAD OCTRL ME SSAGE

POP srncx

3266

; o 3636 3 36 36 36 3 3 36 3 3 36 3 36 3 3 3 3 3 96 3 3 3 3 3 3 3 3 3 36 3 3 3 3 W 3 U

3268

nenrnv-

"4BTTL

3269

3270

INDEX BY 2

308

RTS

3267

MULTIPLY

:COMPUTE RKb11 RDORESS
‘PUT sséscrgo REGI;TER CONTENTS ON STACK
:TYPE
REGISTE
TYPE CARRIAGE RETURN & LINE FEED
!SET UP NO ERROR RETURN

TYPE

INTO R3

3 3 3 3 3 3 3 3 I I I 3 ¢ 3 3 3¢ X W % W WK ® K%

CONVERT REGISTER nnns (RSCII) TO REGISTER NUMBER (OCTAL)
JSR

;lRETURN:

RTS

NORMAL RETURN

TM
;«

3274

;rus ASCII NAME OF THE REGISTER IS DECODED INTO AN OCTAL VALUE
007056

3280

007064

3281

Pc+a
ERROR RETURN
WITH R3 CONTAINING THE REG NUMBER

:§§ogéaso TO SELECT THE REGISTER. THIS OCTAL VALUE IS PLACED

3277
3278
3279

RTS

cos

foR1I POINTING TO THE REG NAME

3271
gg;g

gg;g

' R IYII222222222222X22X22X222222X2 2222222222222 222222
(R1),8'A
; TEST xr FIRST CHAR IS A

121127

000101

R&DCDE: CMPB

012703

000007

MOV

007062

001003

007070

000533

BNE

87, R3

4y0$

NO
-

SKIP

ssr FOR ASOF

:GO TO EXIT

CZR&RCO RK611/06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07
3282
3283

3284

3285
336
3287

3:38

3533

007072
007053

121127
1003

007104

000525

3871§3

02270;

0071

007106
007112

00;{

12703

000002

ielle?
001012

000103

éoiége

3291 007152 888%03
3292

007130

3294

00713

3293
3295
323
3297
3298
3299

3300

3301

3302

000102

21127
1026
005201
{21127

000104

5$:

012703

000003

121127

000123

007162

000476

807155

007164

3308

007206

3310

007204

000101

007212

007214

012703

000010

8s:

{ell27

00010S

9§

012703

000006

21127

00011S

0627.1

000002

007226

001003

3714

007230

3315

000012

00O04S?

007ez2

3313

oxe7gg

007220

3312

007234

000451

3216

00723

3318

007244

3320

007254

001003

007262

000436

3317

3319
3321

3322

3323

007242

001051

007250

121127

007e

007264

000016

012703

000017

12%:

121127

000120

138:

000430

007300

3329

0073

3328

3330

3331

3332
3333
3335

3336
3337

007304

000425

(R1),#'C
5§

:TEST IF C

:BUMP R1 TO 3RD _CHAR

:SET FOR CSl

84, R3

:SET FOR CS2

(R1),#'D
9s
R1
(R1),#'R

sTEST
INO ;BUMP
:TEST

#3,R3

:SET_FOR DA

(R1),#’'S

*TEST IF 2ND CHAR S

40s

408

535
BR

4yo$

BNE

40$

408

BNE

108

404

BNE

138

CMPB

(R1), %1

CMPB

CMPB
MOV

CMPB

Zé R3

(R1),#'B

BR&;EET IF THIRD CHRR IS 1

IF D
SKIP
TO 2ND CHAR
2ND CHAR R

JEXIT

’

SET FOR DS

:TEST IF 2ND CHAR B
;SET FOR DB

$10,R3

:SET FOR DC

(R1),%'E

;TEST IF E

#6,R3

:SET FOR ER

(R1),8'M

:TEST IF M

#2 Rl

sBUMP R1 TO 3RD CHAR

118

40%

BNE

128

408

40s

BNE

15§

MOV

$12,R3

BNE

CMP8

G0 TO EXIT

82 Rl

521),0'1

BNE

MOV

118:

:SET FOR BA

4yoé

CMPB
BNE
INC
CMPB

s TEST IF B

82, R3

ADD

000061

012703

007276

3327

108:

000062

3326

MOV

(21127

001003

MOV

000013

007270

007272

78:

012703

3324

3325

6S:

000102

0004

CMPB
BNE

MOV

121127

001003

CLR

007140
007144
00714
007150

001003

g:ze

3s:

007154

(R1),8'B
2s

ADD

00006 I

000004

007200

3311

2s:

012703

000510

cMPB
BNE

MOV

007132

3306

3309

18:

000002

3383
oo;i;g 0?1003
00000S
3305 887175
Sw;o
3307

KOS

MACY!1 30(1046) 02-DEC-77 11:59 PAGE 63
CONVERT REGISTER NAME (RSCII) TO REGISTER NUMBER (OCTAL)

¢13,R3

(R1),%'2

s TEST IF 3RD CHAR 1

:SET FOR MRl

; TEST IF 3RD CHAR 2

#16,R3

;SET FOR MR2

817,R3

:SET FOR MR3

(R1),%'P

s TEST IF P

INC

:BUMP R1 TO 2ND CHAR

BNE

148

MOV
CMPB

007312

001012

007316

lelle?

000117

CMPB

012703

000014

MOV

$14,R3

;SET FOR POS

012703

000015

MOV

#15,R3

:SET FOR PAT

007314

005201

007322

001003

007330

000413

007324

007332
007336

000410

148 :

BR
BR

(R1),8'0
0s

:TEST 2ND CHAR O

SEQ 0062

nzasnco RK611-06 USR DEFINED
CZRBRC.PL1
02-DEC-77 11:07

3338
3339
3340
3341
3342

007340
007344
007346
007352
007354

121127
00500
012703
o402

LOS

MACY1l 30(1046)
02-DEC-7?7
11:59
PAGE 6M
CONVERT REGISTER NAME (RSCII) TO REGISTER NUMBER (OCTAL)

000127
000001

15S8:

013616

208 :

3333 003353 000;07 000002
g 45 887329 838269

40$

3346

CMPB
BNE
MOV
8R
MOV

ETS
?2

(R1),8"W
208
81,R3

IFW
:BR
TO
Eknon
EXIT
ISET FOR WC

S8(SP)+, (SP)

:SET ERROR RETURN

:g SP)
PE

;SET FOR GOOD RETURN
;

) \

< 36303 36 3 30 35 36 36 3 3 3 36 36 38 36 3 36 3 36 3 36 36 3 2 3 3 3 3 3 3 3 3 3 3 % 3 3 3 3 3 I 3 2 3 3 3 3 33 2 % 3% 3 3 %% X% %% %%

3347

"agTTL HELP anurour ROUT INE

§§§é

iTH S Rouréns PRINTS A SUMMARY OF THE COMMANDS

3348
3343

S%
;;

' sAND

3353

§g§§
007366

(007372

7400

336

3363
3364

gggg

)

3359

RY,HPRTE
y'

~PRRAME TERS nvn LABLE TO THE USER.

Dx ROUTINES CALLED

3354

3358

ENT
?
RETURN RTS

7374
7404

007406
007410
007414

105737

001672

8441

002656

001006

05724

000204
104401

000773

TYP

' !lllllllllnllllI!lllll<lllllll»l*iill»l!!llll*i!ll‘ll!}ll!l!*llll‘lll
L

HPRTE:

491616

28:

034636

18:

3367

TSTB

HPVLD

TYP

Hprxbs

BNE

TYP

:TEST IF HELP FILE VALID

ENDL

TST

RTS
TYPE

cooo RETURN

R
HPDATA

:RETURN
:TYPE HELP FILE

; o 363036 36 3 2 36 36 36 3 36 3 36 36 36 36 36 36 3 3 3 3 3 96 3 3 3 3 36 3 3 36 36 36 3 36 3 36 3 3 3t 3 3 3 3 3 3 3 3 3 3 3 3¢ 3 3 3 3 3 3 3 3¢ % #

3368

éaTrL

3369

33;?
3372
3373

NEW TEST nourxne

ENTRY

JSR

4, NTRTE

%
RETURN: JMP
cthsv (RETURN TO COMMAND LEVEL)
'uru S ROUTI
LEARS T
RCE AND OBJECT FILES
: #AND” TERMINggEg Snv TEgg gggSENTLY EXECUTING. ALL

3374
3375
3376

: #STORED TEST
P
: #ARE LEFT CHRN o ?

gggg
gggé

:. Rourxnss CALLED
,{llllllIlll!llllll!lll!lill!lli!l!lllllllllli!l!l!lll*li*l!!ili

;nn usuégu i

gg;g

3383 B974i8
Y
NTRTE: wov
3385 887458 818842
n8v
3386 007422 152737 000377 001234
BISB
3387
3338
3389
3390

0QQ7430
007434
007442
007450

10SQ37
012737
013737
105037

001235
034634
001710
001116

3392

007460

013703

001246

3391

007484

105037

001243

001712
001246

CLRB
MOV
MOV
CLRB
CLRB

MOV

IS L0 T

gnn

ND MUST

R3, - ($P)
g
33?7 srsnp

VLDOBJ
#OF ILE, OFPTR
IBUFPT,SFPTR
LINNUM'

LNCNT

SFPTR,R3

UTPUT BUFFER
npur BUFFER
MEMORY,

THE

REINITIALTZED.

.PUSH R3 ON STACK
"PU H Rg 8 TACK
: $ET SOURCE FILE EMPTY

:CLEAR OBJECT VALID
"RESET OBJECT rst POINTER
'RESET SOURCR FILE POINTER
!CLEAR LINE NUMBER
:CLEAR LINE COUNT

SEQ 0063

CZR6RCO RK611-06 USR DEF INED

CZRBRC.P11

02-DEC-77 11:07

3335 887490 863023

7964

001700

gge

001674

RO7472

3399

007502

013703

3402
403

007512
117 14

3405
gqg;

007520
007524

Q7474

832476

380 %
404

3408

0B07816

g&%fi?,

001712

MACY11l 30(1046)

012706
000137

18:
-

CLR

MOV

MAXWDS, RS

MOV

OBJSZE,RS

MOV

(3P)+.R

noz

g:?g

MOS

PAGE &5

(R)+ '

SEQ 0064

:SET UP REGISTERS

:AND_CLEAR SOURCE

'FILE

?ggrg,R3

28
(SP)+,R

,,POP

MOV
JMP

#1100)SP
COMLEYV

6Lsnn OFF STACK
:GO TO COMMAND LEVEL

ENTRY:

BNE
MOV

001100
004416

11:59

NEW TEST ROUTINE

1375
0126

0126

02-DEC-77

WP R

TERS AN

ELan oBIEre TR e

::poP

TACK

STACK

INTO RS

INTO R3

; l!llllllllllllllillllllllll!lIilll!l!llll{li!!l!lllllll!l*l!il!

P&RTTL aurrsn DUMP ROUTINE
,;

Eq,BDRTE

lTHIS ROUT?RE
HILL DUMP THE R-AD, WRITE, HEADER, OR SPECIRL BUFFER THE

3413
3414

:%WORDS IS NOT GIVEN THE LAST SPECIFIED WORD couur 1s usso IN THE CASE
:%0F THE READ OR WRITE BUFFER OR 32 IN THE CASE OF A SPECIAL DATA BUFFER.

TM12

3415

3416
3417

: xNUMBER OF WORDS DUMPED IS GIVEN'ASA PARAMETER. IF THE

007530

o 363 36 3 36 3 36 36 3 3 3 36 3F 3 3 3 26 3 3 3 36 3 3 3 96 3 3 3 36 3 3 3 36 I 3 3 3 3 3 3 I 3 3 3 3 3 3 3 2 3 3 3 3 3 3 % 3% 3% % 3 ¥ % %

007530

010046

007534
007536
007540

010246
010346
005002

3418

007532

3422

007542

004737

007550

001522

3426

007556

001003

1211272

34.3

007602

3419
3420
3421

3423
3424

3425
3427
gwsg

007546

007552
60
gg

BARTE:

010146

105711

1elle?

000122

3703
044

001710

3439

3440
3441
3442
3443
3444

3445

4y4e

447

3448
3443

007606
007612
007614
007620
007622

007626

087630
007634
007636
007642
007644
(007650

007652
007656

007660
007664

012702

121127
001003
012703
000423
121127

001003

001262

001362
000132

121127

000110

012703
012702

001736
000102

000407

001057

3%:

:GET _BUFFER PARAMETER

21s

gfl g EK

}{PUSH R
::PUSH R3 ON STACK
:8LEAR FOR POSSIBLE WORD COUNT

TEST IF IT IS NULL

E - sx P TO ERROR EXIT

;s TEST 1 READ BUFFER

MoV
BR

é UFPT,R3

:
:

385
BR

gsurpv
sg
’ R3

;Nos'Eocit
SK§PnooR£ss OF WRITE BUFFER
’Eb

CMPB
BNE
MOV
BR
CMPB

(R1}, 8'X
3s
#PATX,R3
S$
(R1),8'Y

*TEST IF SPECIAL BUFFER X
INO- SKIP
JELSE GET ADDRESS OF BUFFER X
;G0 DO _IT
rssr IF BUFFER Y

#PATY,R3
S§
(R1),%'2
4y4$
8PATZ,R3

ELSE GET ADDRESS OF BUFFER Y
:G0
DO IT
TEST IF BUFFER 2
NO- SKIP
cer RDDRESS OF BUFFER 2

(Ri) #'H

s TEST IF Henosn BUFF ounp

#HDBUFF ,R3
$102,R2’

:SET ADDRESS FOR HERDER BUFF
!SET SPECIAL BUFF LENGTH IF WRD CNT NULL

CMPB

MOV

(R1),%'W

840, R2

BNE

Ys:

MOV
BR
CMPB
BNE
MOV

44§

CMPB

001462

R2. -(5P)
R3,-(5P)
R2'

:PUSH RO ON STACK

,,PUSH R

(R1),#'R

BNE

2s:

8127og
00041
121127
001003
012703

PC, SBSCN

CMPB

000040

000131

JSR

BEQ

18:

RO, -(SP)

R1,-(SP)

1518

000127

000130

MOV

MOV
MOV
CLR

004666

3330
DO;S;S
4> 887
00 001903
868433 001706
3434
3435
3436
3437
3438

NUMBER OF

MOV
MOV

'NO- SKIP
BS

T ADDRESS OF RERD BUFFER
011
*TESYT
IFf
WRITE BUFFER

:SET_WORD COUNT FOR SPEC BUFF

NO
- SKIP

ING- SKIP TO ERROR EXIT

CZRGRCO RKE11/06 USR DEF INED
CZR6RC.P11
02-DEC-77 11:07

3450

007670

004737

345]
3452
3453
3454

007674
007676
007700
007702

105711
001007
005702
001402

3456

007706

000410

3458

007714

000405

004666

MACY11l 30(1046)
02-DEC-7?7
11:59
BUFFER DUMP ROUTINE

c§:

3455 007704 010201
3467
3459

007710
007716

3460
3461
3462
3463

007720
007724
007726
007730

3465

007734

3464

3466
3467
3468
3469
3470

007732

010146

031160

(04401

003465

€500

0.2700
0102496
104402
104401
012346

007760

005202

007756

3473
3474

007762
007764

001206

6S:
78:

8%:
000004

9s:

003530

108:

104402

3482

010010

3484

010016

3485

349y

3u4gs

002640

20S:

104401

002616

011404

010024

012603

010030

012601

010026

3135

104401

000406

010022

3468

3490
3491

118:

000402

010024

3489

001171

010014

3486

3487

010032
010034

001171

21%:

248 :

:GET_NUMBER OF WORDS PRRAM

PTEST IF NULL
'NO - SKIP TO USE GIVEN VALUE
JELSE USE DEFAULT uono NUMBER
:IFNO WRD CNT INR2, GO USE WORD COUNT

'ELSE SET TO Re coun?
:GET WORD COUNT

MOV

R1,-(SP)

;SET UP TO CONVERT PARAMETER

JSR
208
MOV
CLR
CLR

TYPE

PC.OCTBIN
(SP)+,R1
R2
RO

DMPHDR

MOV
MOV
TYPOC
TYPE
MOV

b4, RO
R2.-(SP)

INC

OEC

25%

248

MOV

{RY),RY

TYPE

:GO_CONV
ERT
:ERROR RETUR
:STORE WORD couuv GIVEN
:CLERR COUNTERS
: TYPE DUMP HERDERS

SPACE2
tR3)+,-(SP)

:SET NUMBER OF COLUMNS COUNTER
:SET TO PRINT WORD NUMBER
PTYPE IT
*TYPE FORMAT SPACES
:GET WORD TO TYPE
;BUMP WORD COUNTER

RI
118

osc NUHBER OF WORDS TO TYPE COUNT
xr EXIT

10%
SCRLF
4s
SCRLF
tRY) +

IF
NOT O, GO TYPE FORMAT SPACES AND NEXT COL
ELSE LF-R AND START NEW LINE
LOOP
RETURN CARRIAGE
:SET UP NO ERROR RETURN

BADOCT

IVDPAR

(SP)+,R3

hunaea OF COL COUNT

:REPORT NON-OCTAL PARAMETER

;REPORT INVALID PARAM

'ERROR RETURN

;POP STACK INTO R3

MOV

(5P)+ R2

,,POP STACK INTO R2

MOV
RTS

(SP)+.RO
RY

:'POP STRCK INTO RO

MOV

012600
000204

SEQ 0065

WDCNT,R1

MOV

012602

R2,R1

PAGE 66

MOV

BNE
TYPE
BR
TYPE
15T

001367
104401
000760
104401
005724

3483

DEC
BEQ

007770
007772
007776
010000
010004
010606

TYPOC

3475 007766 005300

3481

(R
78
R2
X3

005301
001405

3476
3477
3478
3479
3480

PC,SBSCN

ISTB
BNE
TST
BEQ

MOV

004737
010010
012601
005002

007740
007744
007746
007750
007754

3471

3472

013701

JSR

NOS

(S5P)+ R

:POP STACK INTO RI

o S35 963 3 9 3 3 3 3 36 3 3 3 3 3 3 36 3 3% 3 3 3 3 3 36 36 36 3% 3 3¢ 3 3 3 3 3 3% 3% % 3 3 3 3 3 % 3 % %

*48TTL

RUN ROUTINE

ENTRY: JSR
RETURN: RESET

W 2 3 2 B 3 3 3 W W H ¥R

3496
g:gg

e
;;

R4 RURTE
STACK, JUMP TO COMMANO LEVEL

3489
3500
3501
gggg

¢ruxs ROUTINE CHECKS TO BE SURE OBJECT CODE EXISTS.
"%IT THEN CHECKS THE NOCK SWITCH TO ses IF THE OBJECT
: #lJAS COMPILED WITH THE NOCK OPTION. IF IT WAS_THE ROUTINE
lPROCEEDS TO CLEAN OFF THE STRCK AND EXECUTE THE OBJECT CODE.

3504
3508

;xr THE NOCK SWITCH IS OFF THE ROUTINE CHECKS THE CONTROLLER
! *ERROR BIT AND THE DRIVE INTERRUPT BIT (BIT 1S & 14 OF CSI).

CZRERCO RKBII/OB USR DEF INED
CZR6RC.P1
02-DEC-77 11:07

MACY11 30(1046)
02-DEC-??
RUN ROUTINE

3506

11:59

BO6

PAGE 67

SEQ 0066

;#]F EITHER IS SET A SUBSYSTEM CLERR IS EXECUTED BEFORE THE

3511

'#WAS LEFT UNCLERRED

IN THE SUBSY

;:s:nnr OF THE OBJECT FILE.

3512

i#1T THEN CLEANS OFF

3518

PuTHIS ROUTIN; RLSO RCTS n; A MONITOR TO CONTROL THE

3&13

:#THE STACK 1S CLERNED UP TO PREVENT nccxbenrnL OVERFLOW.

3%13

3516
3517

THE STACK AND ooes R JSR TO THE

: #LOOPING ON
O?JECT. 1T
HANDLES THE ITERATION
:%COUNTING AND RESTARTING THE OBJECT FILE, MAKING SURE

3520

P #WHEN LOOPING IS DONE OR WHEN TEST IS RBORTED

3522

i%THE STACK AND JUMPS TO COM LEV

3521

353
3525

3526

3527

3528
3529
3530
3531

;% (ABORTING IS PRESENTLY unoerxnso) THE ROUTINE RESETS

010036

j0S737
151
182737
01370;

001260

023600

000377
023554

001234

1STB
BEQ
BISB
MOV

gigigg
010110

3§zgg
73;

140000
000040

000000
000010

géa
BIS

3536
3637

010116
010153

3538
0101
3539 010136

013737

105037

37
012737

709
3

001235
001103

001232
010152

1100
1116

3540

010142

004737

3542
3543

010150
010152

0CO4SH
032777

040000

gggg

8%3%25

68?533

001103

gg:g

8%8{;2

88?665

001000

gg;g

8%8589

6883?1

001103

3551

010206

062737

3544

3552
3553
3564

CLR

010054
018823
0l
010670

010046

001724

RURTE:

005037

010074

3541

»*

0017

010042

3532

ggg&
3635

5037

010146

010160

010214
oxggag
(010222

000401

001012

034634

000001

005537
103002
104401

001724

Q04000

3555 01C326 080741

gggg

3%8532

03?557

3559
3560
3561

010244
010246
010252

(01332
004737
012706

001714
001110

016670
001100

MOV

1IS:

170760

170742
001722

170702

;SET_TIMEOUT VALUE

MOV
MOV

TEST 9BJECT VAL ID
INO_OBJE
ODE
'SET SOURCE FILE EMPTY
:GET UNIBUS
ADDRESS
RROR FLAG

ITCNT.CNTSTR
sLO0C2$, SLPERR

:S
,scr

JSR

L INNUM
PC,OF ILE

160 10 ongcr

BR
BIT

RUEXIT
$SW 14, 3SWR

ggge

gERFLG

; TEST IF ERROR FLAG SET

gag

rguq,asun

s TEST IF LOOP ON ERROR SWITCH

gkaa

gERFLG

;NO LOOP ON ERROR, CLEAR FLRAG

BNE

ADD

28:

LOC3S:
5§

TOVAL _W.SEC

vLDOBJ
RUEXIT
8377, SFEMP
RKBRS , R2

CLERR

1S:

3%:

;CLERR LOOP COUNTER

LPCNT2

SERFL

LPRET: MOV
CLR
LOC2$:

LPCNT!

CLRB

003431

3558 010240 885333 001714

CLR

:gena-oxRxcsxtné) rfi ; rgzconr ERR OR DEV INTERRUPT
8SCLR, Rxcsa(RaJ , Sgk iuegzsrsn917 5 CS2

#STACK, SP

Lot2s
18

81, LPCNT1

TION'C

:s CLEAN
s> PSUEDO LINE COUNTER
INITIALI
:GO0D_RE TURN

‘ABORT RETURN
:LOOP ON TEST?

:ADD ONE_TO COUNTER

RDC
BCC
TYPE

LPENTE
as
LCNTOF

:PROPAGATE CARRY
*TEST IF COUNTER OVERFLOWED
P TYPE oveanou WARNING

gag

tgggg,aswn

é23§9¥5 xgs?ggéonsv

BNE
JSR
MOV

LPRET
PC, PRLPCT
#StAck, SP

DEC

(PRET

CNTSTR

'RETURN TO LOOP
‘DEC IT COUNT

:BACK TO TEST
:GO PRINT LOOP COUNTER
:CLEAN STACK

CZR6RCO RKG11/06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

3562

010256

00S03?

3¥eb

§i§§98
010274

010302

3553
3567
gggg

3570
3571

010262

010276
Bigggz

10§337

MACY1l 30(1046)
02-DEC-?7
RUN ROUTINE

001116

CLR

001663

000137
684485

004416
002756

JMP
TYPE

T§§§c§F12“23¥1"°

ETRTE

RUEXIT

SEQ 0067

:SET LINE NUMBER TO ZERO

gUSFLG

?SS

RURETN:
RUEXIT:

PRGE 68

L INNUM

1578

439 013026

11:59

CO6

?unp To INPUT TE%?

s
g UN

;{unp 78 Sonnnno bSVEL
:TYPE NO
OBJECT C

o 3636069636 3 36 38 3 30 36 36 36 38 3 3 35 3 35 36 3 96 36 3 3636 3 2 3 2 3 3 3 3 3 3 36 38 3% 9 3 3 3 3 3 3 3 % W 3 I X KE I X H K% ® X W E

3&;

éeTTL

74
35;3

;;

EOHPILE nggrxuc R4 CORT

RETURN RTS

Ryi2

FOR

T RNS.
ng sgttsRERE

RROR AND ERROR
NDLED
LOCALLY

3577

’;Tnxs ROUTINE ncrs RS R nouxron FOR THE COMPILE PROCESS.

3580

ILOCRTE T

3578

; #THE DEFE
;#FILE.
THE NT sfl

3579

gggé
3583
3§8§
3589
3590

359]

3582

3533
gggg
3536

;rnxs ROUTINE
:8THE FIRST
: #NULL

S%THE NO CHECK

;#IF NO CHECKIN

:Vflkfio

360S
3606

COMPILE COMMAND PRRAMETERS. IF
cxrx§§ NO CHECK AND THE SECOND SPECIFIES
FOR DATA TRANSFERS,

ITCH IS RESET.

TCH xs s r THIS

;1S NULL
THE BUS
;%ELSE IT IS SET.

gggg
3604

NO cnec

¢§§ N

3601

cxg

: #BUS nogfisss

3537
3598
3539
3600

THIS

lTHE specxr?c
“"§°" TOfigurxnscou?go
‘%IS
THEN
GIVEN
?3"?227P§88$1N£
GENERATE THETO OBJECT
.Sogsé
RS POINTS TO WHERE THE OBJECT CODE IS
BE

3586

3587
3588

RY FOR

TE FROH O¥RCE
THE

IN TEST

¥TEH

3£° TO DETERMINE

EXECUTION,

INCREMENT INHIBIT

IF THE SECOND

SWITCH IS RESET,

&R CHECKIS MADE TO INSURE THE COMMAND LINE NUMBERS ARE
#RETR Evg ssugcur ALLY. IF NOT, AN “INTERNAL ERROR” MESSAGE

PuIN T

rnés Li

JE T FIL

counf IS TESTED AGAINST THE

AN RTS PC 1S INSERTED

IF ng
sakon HAS BEEN FOUND THE

Fan IS SET.

A COMPILE OK MESSAGE
I

;xr ANY OF THE SPECIFIC DEFERRED COMMAND PROCESSOR
: ROUTINES RETURNS AN ERROR, A MESSAGE AND THE

3607

:%xBAD LINE IS PRINTED. THE COMPILE ERROR FLAG IS SET

3610

4uuen COMPILATION IS DONE,

3614

;; ROUTINES CALLED

3&82

3611
ggig
3615
3616

3617

IF THE FIRST IS

IF NOT NULL

¢nuo THE NEXT LINE IS PROCESSED.

THE COMPILE ERROR FLARG IS

:¥CHECKED. IF SET, THE VALYD OBJECT CODE FLAG IS NOT
4551 AND CONTROL' IS RETURNED TO COMMAND LEVEL.
s x
tx

SBSCN
1CDEC

REQUIRED DEFERRED COMMAND PROCESSOR

(C$XX)

CZR6RCO RKB11
CZRBRC.P11

06 USR DEFINED
02-DEC-77 11:07

MACY11

%18
ggfl
362S

10310
010312

10314

CORTE:

010046
010146

10246

,,PUSH ao on STACK
srncx

H V

R3,

)

R’ (26

ACK

L ¥

TR
B
resr xr
°“§$“p2ézfi"xgsr
E°s§“§ET
no"fuccxSWITCH
eunpIg str PQREHETER

8%8‘@
biS782 B300%4 001%S g)
010412
013701 001710

BT
MOV

£l BiB% 8%
§i§§§§

ggu? 1

13703

§6§323

001674

18:

49 OigN38 091308
36
818:@
E&SQ
001235
3651
010436
012704
000001
325
Bifaug 8igrey 00t7e0
gggg O{O“ES 1a?qa£

ag.)

gggg §;§§ga gfiggag 004704
3658
010462
472
000000
3659 oxowgg 810532
0104

GeR®
reTa

1664

105721

38:

i T
ggga
§{§§g§ iggg%? 001243

3668 018504 013737 001674 001702
3666
3667
3668

010512
010516
010524

006337
062737
652737

3670

010536

101743

3672
3673

010542
010S46

3669 010832
010540

001702
034634
000012

0s37 001702

000423

105737
001010

001664

001702
001702

G
éfi" .,
SNOCK , OPFLGS
fgl?ascn

iy_IE JHAT ML

583

ge:gzs R3

ser OBJECT SIZE FOR CLERR

aorllelRE-CS
IBUFPT, Rl

<R4)+

CL
MOV
OOV
g:za
532
JSR
22%

vLDOBJ
81, R4
JRR4.R3
g?'(nx)+
R4, ICDEC

RY, 3(R2)

§ErT 8“5zé'r’*lSimm
SOURCE FILE POINTER

CLERR oercr FILE

ShEEc"
%figm
&ooga’kcr INDICARTOR
x
NE NUMBER
‘E%aésfioa".‘iés
NS L TNE
:TEST CORRECT LINE NUMBER IN SOURCE

: DECODE INTERACTIVE COMMAND
JUMP TO COMMAND COMPILE ROUTINE
;R gn Rtrunn

7678

(R1)+

FOR NULL

MOV

oerzs TEMPI

CHP

RS,fsnpx

:CHECK IF ROOM

B8R

23s

N0 - TYPE"E

mew
gzge
52'L”C"’

o
SSST
&5 %as¥
NE PROCESSED

ASL
ADD
SUB

'MULTIPLY BY TWO(BYTES)
IGET LQ? ngones
F OFILE
"ALLOW FOR
xT COMMAND

BLOS

ug:

PP
S¥ER
b AR
R C CROR [BReE
A TER
?égannocx'anil OPFLGS $b§2“p§H5;°2§égN

CLR

7578
BNE

TRCK

EE
CHPB
3?88
%sga

£2
BlRe
e
353;
18354 121527 000054
3239
818323 ?2&799 000002 001245
3639 0103;3 004;37 004666

3671

RO, - (SP)
Ry,-(SP)

'ns’gfimég?'ezs“‘fm

%4 BIB3E 433937 BRieEd
3&33 010342 142;37 000006 001245

3660

SEQ 0068

e a?s'*’

35:5

PRGE 69

MOV
nov

¥3 Qi) ML ooe

D06

H ;l!ll!lllllllllllllli!l (22 2T XTI 2T 2RISR

%58 010352 010946

3644

11:59

é 810310

363
3624

30(1046)
02-DEC-7?7
COMPILE ROUTINE

TEMP1
'OFI#E TEMP1
MPI

2s’

CSERR
358

TGETbercr FILE SIZE(NORDS)

; YES - GO GET NEXT LINE
:TEST IF COMPILE sanoa
ERROR EXIT

CZRbRCD RK611/06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

3674

Q010550

3679

010570

3681

010572

012604

368S

010602

012600

3689

010610

3691

810616

36785
3676
gg;g
3680
3682
3683
3684

3686
g%gg
3690
3692

010554
010L60
0igsed
010570

010574
010576
010600

010604
010606

MOV

,,POP STRACK INTO R4

(SP)+,R0

; :POP_STACK INTO RO

NOSRC

; TYPE NO SOURCE MESSAGE

INTERR

; TYPE INTERNAL ERROR

238:

104401

003007

20%:

104401

003023

21s:

104401

003053

e2s:

104401

002510

010660

104401

000000

152737
000676

000377

=1{

TYPE
TYPE

TYPE

40S:

001664

26%:

, BADCOM

CLR
MOVB
TYPDS

-(SP)
(RO)+, (SP)

MOV
TYPE

ho 4yos

TYPE

010656
001171

TYPE

. WORD

TYPE

BIsS8
BR

EQSGN

SCRLF

3711

lCflLLED RS FOLLOWS:
JSR

R4 csxx WHERE XX IS THE COMMAND MNEMONIC

RTS

g;ig

3718

37:9

; TYPE CARRIAGE RETURN

SET ERROR FLRG
PROCESS NEXT COMMAND

DEFERRED COMMAND PROCESSOR ROUTINES

;THE RETURN IS:

3717

;ADDRESS OF REST OF BAD LINE
TYPE BAD LINE

; #ALL ROUTINES THAT PROCESS DEFERRED COMMANDS RRE

3713

3714

; TYPE BAD COMMAND ERROR

CLERR NEXT STRCK WORD
HOVE LINE NUMBER TC STARCK
,TYPE IT

o 336 96 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 36 36 36 36 36 38 36 38 36 36 36 36 36 36 38 36 36 30 36 36 96 3 36 36 36 36 36 36 96 36 9 3¢ % 3 %

QBTTL

3712

; sPOP STACK INTO R3
; ;POP STACK INTO Re
,,POP STACK INTO R1

; TYPE EQUAL SIGN

53?7,CSERR
33

3709
3710

;POP STACK INTO RS

(SP)+,RY

; TYPE MESSAGE

002437

3707

3708

)

SCTOBG

MOV

104401

010037
104401

010664
010672

(SP;+,RS

SETUP RETURN
;RETURN

010650
010684

3704
g;gg

MOV

;MOVE RETURN TO 0BJ FILE

SET 0BJECT VALID
SET OBJECT FILE POINTER
TY € COMPILE OK MESSAGE

{(RY)+
R4

00S046
112016
104405

010656

3703

vLDOBJ
Rs OFPTR
cOMPOK

TST
RTS

010636
010640
010642

3702

35%:

RTSPC, (RS)+

coMB
MOV
TYPE

SEQ 0069

005724
000204

000757

010644

3700
3701

MOV

001235
001712
002772

PAGE 70

(SP)+,R3
(SP)+,Re
(SP)+,R1

01osgg

3699

001716

EOB

MOV
MOV
MOV

000762

0106

11:59

012603
012602
012601

1Lo22

3695

02-DEC-?7

COMPILE ROUTINE

012605

000765

010624

3636
3697
3698

105137
010537
104401

010614

3693
3694

013725

MACY1l 30(1046)

RTS

R4+2

FOR ERROR RETURN

FOR NORMAL RETURN

'luHEN THE ROUTINE IS CALLED R1 POINTS TO THE COMMAND FIELD,
; #R3 CONTRINS THE JSR R4 CONSTANT

3720

g;sé

!RS POINTS TO THE OBJECT FILE WHERE
T INSERT
T O?JECT CODE, RND R2
RBLE.
T
WORD OF
:POINTS TO THE

3723

:ITHE OBJ’CT CODE WILL CONSIST OF JUMPS TO SPECIFIC SUBROUTINES

37eS
3726
3727
3728
3729

lPROCESSOR ROUTINES WILL INSERT THE JSR RY (004437 OCTAL)
lFOLLOHED BY THE ADDRESS OF THE COMMAND EXECUTIO
¢ROUTINE THIS ADDRESS IS TRAKEN FROM THE 4TH NORD
lOF THE INTERACTIVE COMMAND TRBLE. THE EXCEPTION TO
lTHIS IS THE SUBSYSTEM FUNCTION INTERACTIVE COMMAND

3724

lTHIS ROUTINE

; #WHERE THE SPECIF]IC COMMAND IS EXECUTED

THESE

CZR6RCO RKE11-06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
3730

FO6

MACY11 30(1046)
02-DEC-77
11:59 PAGE 71
DEFERRED COMMAND PROCESSOR ROUTINES

SEQG 0070

: ¥WHERE THE RDDRESS OF THE SUBSYSTEM COMMAND

3731
g;gg

*#EXECUTION ROUTINE IS FOUND IN THE SUBSYSTEM COMMAND
iTRBLE (scCTBL).

3734

nr
connauo Pnocesson ROUTINES ALSC PLACE THE

3736

lTHE og:
CT

3735

E REQUIRED BY THE EXECUTION ROUTINES IN

3737

;vna

g;gg
g;:?

FILE. THE

oué o

PRRAMETERS WILL

HER aur 1S ALWAYS

:;PanE
sPROCES ? TfiguoéNE
spg
"Us #E
;
Trg
nuo THE sxscu
IONRS T0

’I!lllIllll!lllllllllllillllllllllllll!lllll!lllIllll*!l!lllilll

g;:?
37‘0‘;

3748

; o JE 3630 36 36 3 36 3 36 36 36 36 3¢ 36 3 3 26 36 36 3 3 36 3 3 36 36 36 3 38 36 36 3 3 3% 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 9% 3 I 3 3 3 3 % 3 3 % %
'&BTTL PRINT MESSAGE PROCESSOR

3797

;Rsrunu

3750

;lOBJECT CODE::

3754

!THIS ROUTINE GENERATES THE CODE TO PRINT A MESSAGE OF UP

3746

: BENTRY

g;:g

3781
g;gg

1
;;

3755

3758

010674

004737

3761
3762

010702
010704

001411
010325

3760 010700 105711
010796

004666

022222

el
g;gg izl
010714 ol
6613%2

3768 010716 032706 000001
3769

010722

001401

3771
3772
g;;a

010726
010730
010732

105741
005724

3770

3775

RTS

RY+2

RY’

ERROR RETURN

NO ERROR RETURN

(40 CHARACTERS)

ON THE TERMINAL

llllllll!!Iilllillllllll!lllllllI"lll'llillllli!i!ll!lll!lll!lill

3769

3763

R4, CSPM

JSR
R4, ESPM
<MESSRGE>
WHERE MESSAGE IS UP TO 20 WORDS

;#7020 WORDS

g;g?

ISR

RTS

010724

105025

CSPM:

s’
2s:

000204

JSR

PC SBSCN

:BUMP R

BEQ
MOV

2s
R3, (RS)+

JEXIT *r YES (
;énasn JSR
RY

(St
BNE

D,
1’
81,RS

IRcF palion
RouTINe
EL22$
Ngcr MOVED
NULL?Robess
E#EST ir RS IS EVEN

(RS)+

:AND nnk; EVEN.

7578

CMP

BIT

(R2)+. (R2)+

BEQ

1STB
157

-(R1)
(R4)+
RY

CLRB

RTS

i TEST x} neé

:1F NO

NULL

nsssnc£>
oug ANT

Y0 4TH WORD (EXECUTE ADDR)

CLERR NEXT LOCATION

:DEC R1
YO POINT TO NULL IN SOURCE
;serugooc RE TURN
i RETURN

llllllllll«llll!llllIlllllllillll!l!llll!!il!l!{ll!!lillllllllll

3776

*&BTTL

3778
g;gg

‘u
¥

JSR
JSR

R4.CSRW FOR REGISTER WRITE
RY.CSSC FOR STATUS COMPARE

3781

; ¥RETURN:

RTS

ERROR RETURN

3783
3784

;l
: ¥0BJECT CODE:

JSR

ESRC OR ESRW OR E$SC

3777

3782
3785

FIELD

RTS

RY+2

NORMAL RETURN

CZRERCO RKB11-06 USR DEFINED

CZR6RC.P11]

02-DEC-77 11:07

MACY11l 30(1046)

02-DEC-7?7

11:59

GO6

PAGE 72

SEQ 0071

3786
3787
g;gg

¥
¥
;:

3790
3791

‘#THIS ROUTINE HAS THREE ENTRY POINTS, ONE FOR EACH
:®OPERATION. THE LINK 10 THE PROPER EXECUTION ROUTINE

g;gg

;:IS GENERATED.

3794

: #EACH PARAMETER x§ TAKEN FROM THF COMMAND LINE

379¢

;%#IF PROVIDED,

798
3799
ggg?

;#AND THE REGISTER WRITE
(
ISTER NUMBER
AND
; #THAT WHEN ONE COMMAND CHANGES THE VALUE IT

3796
797

IS ALSO STORED

FOR POSSIBLE

IF IT IS PROVIDED.

LATER USE.

IS NOT

:#SUPPLIED, THE VALUE GIVEN THE LAST TIME IT WAS SPECIFIED IS USED.
¥NOTE_THA? THE Pnnnnirgn aggn
FOR THS REGISTER COMPARE
; #BOTH COMMANDS.

H %*

gggg

;:THE REGISTER RSSIGNMENT

3804

380S
3806
3807

VALUE) IS THE SAME.
IS CHANGED FOR

IS:

CS1 (CONTROL AND STATUS 1)

"
2"
-~

2
3

3809
3810
3811
3812

"
E
‘¥
‘x

S
6
7
10

3814
3815
3816
3817

%"
;¥
‘¥
¥

13
14
15
16

1 (MRIN
REGISTER
ECC P°§¥T£S" REGISTER
ECC PRTTERN
REGISTER
MR2 (MAINT
E REG 2)

ggs?

!¥THE STATUS WORD ASSIGNMENT IS:

3822
3823
3824
3825
3826
3827
3828
3829
ggg?

;¥
0
LINE R WORD O
;%
1
LINE B WORD O
e
2
LINE A WORD 1
"
3
LINE B WORD |
2"
4
LINE A WORD 2
"
s
LINE
B WORD @
S
6
LINE R WORD 3
e
?
LINE B WORD 3
HH 33 3 36 3 36 3 3 3 3 36 36 38 36 36 3 3 3 36 35 36 38 3 56 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3% 3 3 3 3 I 2 B I W 3 W B 3 3 % % W % W ¥*W* %

3808

12"

3813

;¥

ggig

3832

010734

012737

001224

001702

CSRW:

012737

001224

001702

CSRC:

012737

001216

001702

CS$SSC:

010742
010750

012737
000415

3836
3837

010760
010766

012737
000406

(Qi0776

012737

3838

3833

3840
3841

(
S
T)
(BUFFE
SS)
(DESIRED TRACK AND SECTOR)

cs2 (

TRO#

STRTUS 2)

(
ATUS)
A
?SN ER)
ASOF (ATT
SUMMARY AND OFFSET)
DC (0:;5
D cvkxuoen)

gs (DR

MR3

FER)

(MAINTENARNCE REG 3)

; *

3833
3834
3835

BR
DR

010752

(010770
011004
011004

010046

000002
000003
000003

001704
001704
001704

CSRCWS:

MOV

cnsguun TEMP]

; STORE RW PARAM BRSE

MOV
BR

82, TEMP2
CSRCWS

; STORE NUMBER OF PARAM
; BRANCH _TO COMMON RTE

MOV
BR

83, TENP2
CSACWS

; STORE NUMBER OF PARRM
; BRANCH TO COMMON RTE

MOV

83, TEMP2

MOV

MOV
MOV

SREGNUM, TEMP!

#STRTRD,

RO, -(SP)

TEMPL

: STORE RC PRRAM BASE

; STORE SC PRARAM BASE

; STORE NUMBER OF PARAM

; ;PUSH RO ON STACK

THIS MEANS

CZRGRCO RKG11-/06 USR DEFINED

CZRBRC.P11
3842

011006

02-DEC-77 11:07
010446

3843
39:4

011010
011014

013704
013700

39:7

011024

105511

MACY11

001704
001702

3842 011020 004737 004666

30(1046)

02-DEC-7?

18:

3848 B11858 991183 oooosy

J0e0
885 oii0%t
BHiB38 0O14L7
181483 000067

R4, -(SP)

JSR

PC, SBSCN

Bls

TRy,

MOV
MOV
1578

Red Bi948 BYIT3E
3856 011054 010310

?8%
375
MOV

3658

3857

3859

011

01106

011

sgg

101496

3860

011064

3863
3864
3665
3866
3867
3868
3869
3870

011079
011076
011100
011102
011106
011110
011112
811114

005720
005304
001347
013700
010325
022222
0I[225
81502

001702

3872

011120

023727

001704

3874

011130

QBi202

382§
38

3871

3873

3875
3876
3877
3878

3879
3880

3881
3882

3883
3884

gggg
36887

8110?3
1107

Olille

011126

011132
011134

011136
011140

004737

MOV

811140
12610

012C2

140

4$
20$:

104401

003365

218:

012604
011404
012600

MOV

228:
25$:

000204

PRGE 73

;

AND STATUS COMPARE PROCESSORS
:PUSH R4 ON STACK

TEMP2, RY
TEMPI.RC

éer NUMBER OF PARAM
:SET PARAM BRSE

(P>

:TEST FOR NULL (REMARIN PARAM DEFAULT)

;BUMP R1 TO NEXT PRRAM

?E§¢°Yr EuYE5Paran muLL

?3
S84), 867

T
FgSRSEXT
E§£ 9““
+EL.c a08RakCH

38 fiéggés

c
REGISTER
ESRSE
885
:STORE REG NUHBER

R3, (RO)
(SP)+,R3

IRESTORE R3

R1,-(SP)

;SET UP TO CONVERT PARAM

JSR

PC.OCTBIN

1ST
DEC
8NE
MOV
MOV
CMP
MOV
MOV

(RO)+
RY
18
TEMP1,RO
R3, (RS)+
(R2)+, (R2)+
(R2), LRG)+
(R8)$,<n§)+

'BUMP RO TO NEXT PARAM STORE
:DEC PARAM COUNT. TAKE
TONLY 3 PRRAME TERS
IRESET TO anss ron Pnann INSERTION
: NSERT J
CONSTAN
UMP
o urn uoao
xnsenr XECUT
gr
R on srnrus WO NULL

CMP

TEMP2, 82

TEST xr RH(ONLY a Pnnnn)

208
MOV

MOV

000002

002640

011152
011154
011160

3s:

000407
104401

(000402

011156
011156

2s:

26049
005724

011144
011146

40$:

031160

HO6

MOV

ng
Kloe

3853 01{0:" 010333 007056

11:59

(SP)+, (RO)

MOV
TST

(SP)+ RY
(RY)+

BR
TYPE

MOV
MOV

ISP+ _RY
(R4), RY

MOV

RTS

NSE

; TYPE

(SP)+,RO

; POP srncx

'RESTORE R4 FOR RETURN
:BAD RETURN

JRET

INTO RO

o 3638 3 3 36 3 3 36 36 3 38 36 4 36 36 3 36 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3% 3 3 % 3 2 W 3 I I I K 3 3 4 I I I 3k 3¢ W W KX E XX R

3890

*RETURN

3893

INVALID OCTAL MESSAGE

;BAD_REG SELECTION MESSAGE

éaTTL _BUFFER xngrranzg
Pnocssso

3835

T OUT. ELSE

BADSEL

388

;

:RESSTORE R4 FOR RETURN
'NORMAL RETURN

25%
BADOCT

22%

TYPE

(RO)+, (RS)+

BINARY

: STORE PARAM

(RO)+. (RE)+

BEQ

MOV

:T0

¥ENTRY

lOBJECT CODE:

RTS

Ry’

RY+2

OR JSR R4,CSCBI

ERROR RET(RN
NORMAL

ROUTINE

3894

3897

:¥THIS ROUTINE GENERATES THE LINK TO THE BUFFER INITIALIZE EXECUTION

gggg

JSR

RTS

RY,ESBI

CEXECUTION'LINE COUNT CONTROL><PRTTERN NAME>

SEQ 0072

CZR6RCO RKB11-06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07

3838

MACY11

106

30(1046)
02-DEC-77
11:59
PAGE 74
BUFFER INITIALIZE PROCESSOR

;#THE PATTERN NAME

SEQ 0073

IS ENTERED RS THE LOW ORDER BYTE OF THE PARAMETER.

3899
3900

:#BIT 1S IF THE PARAMETER BYTE 1S USED T0 TELL THE BI EXECUTION
;Ir THIS IS AN INTERNALLY censanrso BI ORA USER COMMAND. 1IF

3904
3905

§Tuxs Rourxuc HAS A SPECIRL ENTRY (CSCBI). THIS ENTRY IS USED
;uuem DATA TRANSFER Rnrxou Reouxnss BUFFER INITIALIZATION.

3907
338%

!OB EC
onrn TRRNSFER JSR (SEE DESCRIPTION OF
!SUBSYSTEH FUNCTION PROCESSOR).

3910
3911

lTHE RANDOM PATTERN IS GENERATED AND STORED IN THIS ROUTINE IF
lPRTTERN R IS SELECTED.

3901

%USER COMMAND,

gggg
3906

3916
3917
3918
3919
3320
3321
3922
3923

011162
011162

011164
011170
O0l1i72
011174
011200
011204

0ll2le

022222

Q11224
011e3g
011232

630027
1015
012700

011220
011222

3932
3933
3334
3935

011236
Oli242
011246
011252

3937

011260

3938
3939

3340
ggzé
3943

004737
111100
001002
113700
0S2700
000401
010046

3927
3928

3936

010046

011206
811205

011210
011214

3329
3930
3931

110037
010325

0li225
010025

004666
001236
100000
001236

00:562

105:37

001242

011264
(Qllee4

012600

MOV

2s:

3s:

005724
000204

PC. SBSCN
(R1),R0
18
PATSEL, RO
#BITIS. RO
csceil’

MOV

RO, -(SP)

R TO THE SPECIAL ENTRY INTO THE

CMP

(R&)+_ (R2)+

; :PUSH RO _ON STACK

:BUMP R1 _TO NEXT PARAM
IMOVE PAT NAME INTO RO
JIF NOT NULL BRQNCH ELSE
‘MOVE ~A* INto
:SET BIT 15 FOR LINE COUNT CONTROL
:BRANCH AROUND SPECIAL ENTRY
PUSH RO ON STACK

RO, PATSEL
R3) (RG)+

érone PRYTERN SELECT
P INSERT
J;R CONSTANT

MOV
MOV

‘R2), LRG)+
RO, (RS)+

: INSERT E cur; RESS
} INSERT ;go;x NTO PRTTBL

JSR
MOV
MOV
CMP

PC, SRAND
SHINUM, (RO)+
SLONUM' (RO)+
sPATR+100, RO

:GENERATE R
VALUES
;LOAD PATR WITH HI VALUE
:LOAD PATR WITH LO VALUE
PRTTERN FULL?

PATROF

ser PAT R DEFINED SWITCH

CMPB
BNE
MOV

RO, #'R
3
8PRTR, RO

BNE

MOV

(SP)+,R0

coMB

15T
RTS

:BUMP R2 Xg uono T0

: RANDOM
PATTERN
INO BRANCH our
:GET
RDDRESS OF PRTR STORE

NO
- DO IT RGARIN
.POP STACK

(R4)+’
RY

INTO RO

éer NORMAL RETURN
PRETURN

o 363836 36 36 36 3 36 3 3 96 96 3 36 36 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3% 3 3t 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 % 3¢ W 3 2 %W W E R

"85TTL

3946

nnsrunn

3948

lOBJECT CODE:

3947

RO, -(SP)

JSR
MOVB
BNE
MOVB
BIS
BR

CSCBII: MOVB
MOV

ooo122

034170
034266
034270
001662

001367

18:
CSCBI:

004737
gxa?ao
013720
022700

011256

011266
011270

CSBI:

3944
3945

THIS INDICATOR CONTROLS LINE

§ JE 0036006 06 00 36 36 36 36 96 38 36 6 36 36 36 38 36 9638 18 3636 36 36 36 36 36 36 36 36 36 36 96 36 36 36 3436 36 3636 8 38 36 6 30 30 38 3636 36 36 20 3¢ 3 34 30 0 %

3324
3925

3926

1S IS R ONE.

?npsbin R°8R£"§Hé"

ggig
3914
3915

BIT

*couur INCRE ntnr ounxnc EXECUTION.

: SENTRY

DATA COMPRRE PROCESSOR

RY, CSDC

RTS

RY+2

RTS

R4’

ERROR RETURN

NORMAL RETURN

3949

gggg

3952
39583

:%#THIS ROUTINE GENERATES THE LINK TO THE DATA COMPARE EXECUTE.
#THE COMPARE LENGTH PARAMETER IS TAKEN FROM THE COMSZE

JSR

$0C

COMPARE LENGTH (OCTAL)

CZR6RCO RKB611-06 USR DEFINED
02-DEC-77 11:07
CZRERC. P11

MACYLl

02-DEC-77
11:59
TR COMPARE PROCESSOR

38(1046)

JOb

; #PARAMETER STORAGE LOCATION IF IT

SEQ 0074

PRGE 7S
IS NOT GIVEN WITH THE COMMAND.

IT IS STORED IN COMSZE FOR POSSIBLE LRTER

'#USE. (COMSZE WiLL ALWAYS BE EITHER THE DATR COMPARE
:#LENGTH PARAMETER OR THE WORD COUNT OF THE LRST
lINPUT DATA TRANSFER.

L ELL
oL

W W W LX) I

SN
NNg
(nm
g\urw-vvw

NW—NNON-

LO—NLO

SEERESO8E8a8e

W W LD ) W

OCO000000000000000000

L WD WU N

NNN

FERRENS
TR EZRS Lo

el elTSPttt
el et et wtot ey
Pt Bt B
ot s ot s s et s o B
s Pt Pt Bt Pt Pt B P

l!5lllllilllill!lllll!lliillllllllllllll!llll!llllll!ll!ll!l!ll

CSDC:

004666

031160

001254

2s:

001254
002640

MOV

; :PUSH RO_ON STACK

PC. SBSCN
(R
es
R1,-(SP)
PC.OCTBIN

MOV
CMP
MOV
MOV

R3, (R5)+
(R2)+ (R2)+
(R2), lRS)+
COMSZE, (RS)+

: INSERT fsn
R4 CONSTANT
:BUMP R2 TO WORD
4 AT ICTBL
: INSERT EXECUTE RTE RDDRESS
P INSERT COMPARE LENGTH

TYPE
MOV

RDOCT
tRY), RY

;s TYPE_BAD DECIMAL MESSAGE
ISET FOR ERROR RETURN

(SP)+,RO

; POP srncx INTO RO

MOV

gg’

208:
208

RO, -(SP)

JSR
1578
BEQ
MOV
JSR
208

MOV

RTS

(SP)+,COMSZE

‘82”

TBUMP R1 TO NEXT PARAM
TEST IF PARAM NULL
‘BRI E
ISET UP OR CONVERT

:CONVERT PARAM TO BINARY
,ERROR RE TURN
'STORE COMPARE LENGTH

:SET FOR NORMAL RETURN

TRET

o 363835 36 3 3 3 3 36 3 36 36 36 3 3 3 3 3 3 2 5 3% 9 3 3 3 3 3 3 3 3 3 3 3 3 % 3 3 3 3 3 3 A ¥ I

'48TTL

: XENTRY

STALL PROCESSOR

iRETURN¥

JSR

R4,CSST

RTS

RY+2

RTS

:lOBJECTJCODE soT
;.
STALL ounnfxon (OCTAL)

% Wk WK% W W W% EE R E %

ERROR RETURN

sNORMAL RETURN

’*Tuxs ROUTINE GENERATES THE LINK TO THE STALL EXECUTE.

,lTHE PARAME TER
: #DECODED FROM hscI DECIMAL I
‘%IN THE PRRAMETER ET?“
LOCATION “STALL*. IT IS THEN
*%PLACED IN THE
OBJECT CODE. IF THE DELAY IS NOT
: #SPECIFIED IN THE COMMAND THE OLD VALUE OF
l'STRLL" IS USED.
S0

(thngythJU

s
Pt
e
Pt P
s
e Do
e

[t
et et etetted

000000000

5 33T

004666

CSST:

031314
0ol12s5e

18:

000 0600 00 00 00 00 6 38 00 006 00 00 06 0030 3600 638 36 36 36 06 36 36 30 36 36 30 36 36 36 04 36 36 36 96 06 36 00 30 6 36 30 36 330 06 3000 36

JSR

PC,SBSCN

BEQ
MOV
JSR
208
MOV
MOV
CMP

$
1,-(SP)
PC,DECBIN

7518

(SP)+.STALL
R3, (R&)+
(R&)+, (F)+

;BUMP R1 TO NEXT PARAM

STEST IF Pnann NULL

N
:BR_IF
SSET UP FOR CONVERT
: CONVERT PARAM TO BINARY
:ERROR RETURN
:STORE STALL VA
*INSERT JSR R4 CONSTANT
‘BUMP R2 TO 4TH WORD ICTBL

CZRBRCO RK&11/06 USR DEFINED
CZRERC.P11
02-DEC-77 11:07
4010

4011
4012
4013
4O0l4
401S
3819

011400

011402
011406
011410
011412
011416

011420

011225

013725
005724
000403
104401
011404

MACY11

30(1046)
02-DEC-7?7
STALL PROCESSOR
MOV

001252
002512

000204

208:
308:

(R2),

MOV
TST
BR
TYPE
MOV
RTS

’

4020

:85§

: BENTRY

.Rerunn

4023

.oa:scr CODE:
3
;¥

4026
4027

:ggg

4030

011422

010325

4033

011430

005724

4031
4032
:ggg

011424
011426

011432

JSR

RTS

JSR

: INSERT STALL PARAMETER
‘SET UP NORHRL RE TURN
:BR _T0 RETUR
:TYPE eng oscxnnL MESSAGE
ssr UP RROR RETURN
iR

nqle

NO ERROR RETURN

RY,ESUI

lll!illlllllllIllillllllllllllll!l!llllliillllillllllll!!!!l!l!

CSUI:

022222
011225

MoV

R3,

CMP
MOV
TST

000204

(RS)+

(R2)+, (R2)+
(RE) {RS)+

RTS

; INSERT JSR R4 CONSTANT

:BUMP R2 TO 4TH WORD OF TABLE
. INSERT EXECUTE ADDRESS

!NORMAL RETURN

'RETURN

3635 36 36 36 3 36 3 36 38 36 36 36 363 36 36 3 3 3 3 38 3 3 6 3 3% 9 3 3 3 36 3 3 3 3 I 3 3 3 W I U 3 3 I 3 3 3 2 I I

"4BTTL

4039
4040

! ¥FORMAT 1S:
e
uoag:

4042

WORD3:

SCTBL:

.RSCII1

4038

;¥THIS

4041

:833

4050
4051
4052
4053
4054
4055
4056
4057
4058
40589
4060
406l
4062
4063
4064
4065

: INSERT EXECUTE ADDRESS

:#THIS ROUTINE GENERATES THE UNIBUS INITIALIZE LINK
;xnro THE OJBECT CODE.

4036

4o46
4047
4048
4049

(RS)+

SEQ 0075

UNIBUS INITIRLIZE PROCESSOR

4037

4045

PAGE 76

[ 2 X T X2 Y X222 X222 2222222222222
2222222222222 )

"dBTTL

:ggg

KO6

sTALL, (RS)+
(RY)+
308
BRDDEC
tpq) RY

4018

4019

11:59

011434

011436
Oll442
Ol1444
011450

011462
011456
011460
011464
011466
011472
011474
011500
gxxsoa
011506
011510
011514
011516
011522
011524
011530

Q42122

021712
042127
02 762
(41527

(021776
044127
021672
044122
021646
045523
021660
041503
021540
051503
021524
041504
021564
041522
021474
0S1504

SUBCOMMAND TRBLE

TABLE

CONTAINS

ORD2 :

ALL

THE

SUBSYSTEM COMMANDS.

THE

I 3 W I 5 3% W % %%
TRBLE

SUBCOMMAND MNEMONIC

RESS OF EXECUTION SUBROUTINE FOR THIS COMMAND

THE NUMBER OF PRRAMETERS

THIS COMMAND REQUIRES

!!IlllI»ElElllli!!ll!llllllil{llllll»illllllllllllllll!l!lllillii
L v

00000S
000005
000005

000005
000004
000004

000001
000001
000001
000001

.WORD
"ASCII
.WORD
.ASCI1

.WORD
"RSCII
.WORD
.ASCI1
.WORDTM
.RSCII1
.WORD~
-ASCI1
.WORD
.RSCII1
.WORD
.ASCII
.WORD~
.ASCI1
.WORD
.ASCI1

/RD/

ESRD,S
/uWD/
ESWD,S
/WC/

ESWC,S
/WH/
ESWH,S
/RM/
ESRH,4
/SK/
ESSK,H4
/CC/
ESCC,1
/CS/
ESCS,1
/DC/
ESOC,1
/RC/
ESRC,
!
/DS~

;REAU DATA

;WRITE DATA
sWRITE CHECK
;WRITE HEADER
;REARD HEARDER
: SEEK

; CONTROLLER CLEAR

; CLEAR SUBSYSTEM
;DRIVE

CLEAR

; RECAL IBRATE
:DRIVE SELECT

CZR6RCO RK611/06 USR DEFINED
CZReRC.P11 ~ 02-DEC-77 11:07
4066

011532

021552

4069

011544

QY6125

MACY1l

30(1046)
02-DEC-77
SUBCOMMAND TABLE

000001

40Es 011238 021210 0000DL
4070
48?1
4072

Q1154
01185
011554

1578
182
021610

.WORD

ESDS,!

-AscI1

suL/’

LO6

PAGE 77

‘HORD. E8PA, 1

000001
000001

4975 BHiee8 B3L2 oooooe

JWORD
‘asci1r
.WORD

ESUL,1
/Ss/;
ESSS,
1

1
‘WORS

SEQ 0076

$ PACK ACKNOWLEDGE

; UNLORD

;START SPINDLE

-FORBT £86F 2

4076
11230 Male3d 000004
4077 011574 000000
4079

11:59

OFFSET

#ALL HEADER READ

sNULL TO TERMINATE TRBLE

636363 3 3 3 3 3 3 3 38 3 3 3 3 3 3 3 3 3 3% % 3 33 33X B W W W WX

4080

égrrh SUBSYSTEM Funcrxsn PROCESSOR

4082

4Reruan

4g8y
4085

lOBJECT
J

4088
4089

H
‘x

4O81

4083

:ggg
4030
4091
4092
4093

L ¥
‘¥
ta
‘¥

JSR

RTS

Ry’

RTS

DE:

R4+2

R W WKW

I I

W B A EEEE S

ERROR RETURN

NORMAL RETURN

SXX :WHERE ESXX IS THE COMMAND EXECUTE ROUTINE

OPERATION FLAGS.BIT

1 ST = No CHEGK NG

CEMENT INHIBLT

Eiv 5 2E]2 B528908 ?o&
:RS USE STORED PARGMETER “DRIVE",

DRIVE NUMBER

CYLINDER NUMBER OR
TRACK
NUMBER
SECTOR NUMBER

s IS 1S DRIVE TO BE
USED
OFFSET :DEPENDING ON COMMAND

4034

4096
4097
4038

' #THE NUMBER OF PRRAMETERS IS VARIABLE DEPENDING ON THE
' ¥SUBSYSTEM COMMAND. THE NUMBER 15 SPECIFIED IN THE THIRD
;uoao OF THE SUBSYSTEM COMMAND TABLE (SCTBL).

4100

WORD COUNT

lTHIS ROUTINE PROVIDES THE LINKS TO THE VARIOUS EXECUTION ROUTINES FOR

4101

;suasvsrsn oGOMANDS .

4103

A
e RGO ROUTINE

4102

4104

4noons§§ The ISR

S AHIs BY PROVIDING THE PROPER DESTINATION

QO A RAME TERS REQUIRED
BY. THE

16 PUACED

lFOLLOHING THE JSR COMMAND.

TH-THE OBTECT

FILE' IMMEDIATELY

4106

uunsn THE ROUTINE IS ENTERED, THE REGISTERS MUST BE SET

4103

R -zgxurs TO THE SF MNEMONIC IN THE SOURCE FILE LINE

411l

R3-CONTAINS JSR R4 CONSTANT

4113

i *

RS-POINTS TO THE 1ST UNUSED LOCATION IN OBJECT FILE

4115

'%IF THE SC PARAMETER IS GIVEN IN THE SOURCE LINE THE SC

4117

i ¥IS FOUND,

4112

4116

4118

4119
4120

4121

RY-NA

; ¥13 USED To LOCATE THEPROPER ENTRY IN THE TABLE.

; ADDRES

} ¥STOR

N ERROR

IS REPORTED.

IF A HIT OCCURS,

INEMONIC

IF NONE

THE

OF THE SECOND HORD OF THE TABLE IF LORDED INTO R2 AND

é" SUBCMD
RS THE INDICATION OF THE LAST COMMAND

' x5p SrP1ED

THE
SC PAR

NULL,

THE

STORED VALUE

‘#IN SUBCMD IS PUT IN R2 WHICH EFFECTIVELY LOCARTES THE TRBLE

CZR6RCO RK611-/06 USR DEFINED

CZRBRC.P11

D2-DEC-77

11:07

:igs

02-DEC-?7?

11:59

MO6

PAGE 78

SEQ 0077

SUBSYSTEM FUNCTION PROCESSOR

lTHE REHRINING PRARAMETERS IN THE SOURCE RARE THEN

1158

"’“°S§S§SB
oyI PRene
0eR TS U2eD.
1 T BORamETER
© C0
:#1S GIVEN, IT
D IN PARAMETER STORAGE AND BECOMES

,;vampz?fisi?rséfi‘es#GEisly
S *F
Yo

it
4

arsuwumc THE PATTERN SELECT PARAMETER REQUIRES OUTPUT BUFFER

I
*EN RY (
R4,
CSCBI).
THIS GE

L LLLLLLLLL
L
LILLfrLrLrrrLrr
LI
LL L LrLL L L L

30(1046)

}ENTRY

:{28

SNNININNC O T OO O T O NN NN
£ £ L& £ £5 L E £ QD @
\Noon .:wn»—-o.nm\w*m:wm»—o.om\w‘m.:umu-o.omwm:fsmo—-éf‘n’mw

MACY1l

TICQL 10

e Bloseyrion
Sl Ty Koo

(#LINK TO B IN THE OBJECT FILE WILL BE INSERTED BEFORE
I»Tl{ LINK TO THE SUBSYSTEM COMMAND.
l»fl NULL DRIVE
PQRMTER IS SPECIAL BECARUSE IT reQulrCS

ICONSIDERQTI

!N8T
; #ROUT

COHPILED TEST IS RERD FR M _Pf *ER_TRPE.

xé02 EERoR

15 gET0T -1 It THEDRIVE IS

KEY
OES TO THE STORED DRIVE
!PRRMETER FOR THE DRIVE NUMBE

lTFE OFFSETI(%%MOFRgOUI%E USIgLEBPflRMETsSEégFCSET)

*‘ g;ORE CcvLl

m&n VQS g“ EE
SPECIRL CRS

lTHE WORD COUNT PARARMETER IS CHECKED TO INSURE THE
§BUFFER IS LARGE ENOUGH. IF NOT AN ERROR IS PRINTED.

5 332600 00063000 00 3030 06 08 060036 08 00 0036 06 06 06 606 060 0000 00 6 0000 06 0098 00 006 3600 00 0 3000 06 6 3006 30 00 00 00 06 3606 3 2 20

011576

0i1576

011600

011662
Qilgbe

cssr.

010046

010246

004737
1l2137

004666
001702

011614 111137 001703
011622

005301

Qlie2d4

013702

011640

001602

011646
Qi1es0
11654
011660

005722
000137
124127
001423

18:

001214

B11e39 433537 BAiss
011e42

105137

001665

Q12242
0000sH

MOV

RO, -(SP)

JSR
hove

PC’ SBSCN
i§1>+ TEMPL

MOV

3s:

- (SP)

; ;PUSH RO ON STACK

:!PUSH R2_ON STACK

'BUMP R1 TO NEXT PARAM
ng§c§STrcnfif OF SUB CMND.

MOVB

(R1),TEMPL+1

EeggscsuéFch§
OF SUB CHND

DEC

‘8E$RSEE¥Tr§é ;SLENEHESQé;Egossn T

MoV

suBchD,R2

EcET 2ND
uoaovnoonlggfi LAST CMND

BNE

TST
JMP
CMPB
BEQ

(R2)+
41§
-(R1),%’,
78

chp
2s:

R2.

COMB

Z(R2), #"OF

OFFLRG

L sr SOEMAND OFPET
‘IF_NO,

BRANCH ELaE

!SET OFFSET FLAG

!BUMP R2 TO SECOND WORD
G0 _T0 FIL ogECT
*TEST IF 51 8RR comma
'BRANCH IF YES. ELSE

CZR6ERCO RKB11/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
4178

4179
4180
4181
4182
4183
41849
4185

011662

011670
011672
011676
011702
011206
011710
011712

023727

OOéooe
105137
012702
023722
001405
005742
001502

4186
4187
4188
4189

011714
0117220
011722
011726

062702
000770
0106237
000410

4191
4192
4193
4194

011734
011740
0li742
011748

024227
001002
105137
005722

4190

011730

013702

001665
011434
001702

001214

043117
001665

011770
0117?74
011776
012000
012002

105137
000506
105711
001005
005700

001666

4207
4208
4209

0120
012012
012014

105137
000513
020027

001666

4206

oxaogg

1116

4210
4211
4212

012020
012022
012026

4214
4215
4216
4217
4218
4219
4220
Yool
4222
4223
4224

012032
012034
012036
0120492
012044

0100496
010246
012702
111100
004437

012050
012052
012054

000000
012602
012600

4226

012060

104401

4213

4225

422?

012030

012056

002017
020027
001401

012064

000415

012072

000412

4228
4229

012066
012066

423

012074

005726

012102

000406

4230

4232
4233

012076

004666
0000SH

104401

109401

8%:
93:
i0$:

000016

BNE
CoMB
MOV
CMP
8EQ
TST
BEQ

128:

138:

004016
011206

002616

218:

002640

22%:
248
258 :

TEMP1, 8" 0F

T3
OFFLAG
#SCTBL,R2
TEMPL, tR2)+
6$
-(RZ)
268

;TEST

SEQ 0078
IF OFFSET

IBRANCH IF no ELSE
:SET OFFSET FLAG
;LOAD RDDRESS OF SUBCMND TRBLE
ITEST IF TABLE ENTRY MATCH
IYES, FOUND A HIT. ennncu
:TESY IF TABLE ENTRY NULL
‘IF YES, NO MATCH IN TARBLE, ERROR

ADD
BR
MOV
BR

86, R2
1
R2,SUBCMD
qs’

:BUMP R2 TO NEXT TABLE ENT
h
'BRANCH TO TEST NEXT ENTRY
!STORE RDDRESS 2ND WORD, LAST CMND

CMP
BNE
CoMB
TST

=(R2), b"OF
8s
OFFLAG
(R2)+

MOV

SUBCMD, R2

;GET 2ND WORD ADDR LAST CMND

CLR
JSR
CMPB
BNE
TST

RO
PC, SBSCN
(R),w",
118
RO

COMB
BR
1518
BNE
TST

SAMDR
188
(R1)
128
RO

rssr IF LAST CMND OFFSET
SIF _NO, BRANCH. ELSE
'SET OFFLAG
:BUMP R2 ancx TO SECOND WORD
:CLR RO FOR Pnnnn COUNT ING
JBUMP R1 TO NEXT PARAM
ITEST IF COMMA
:BR_IF NO
:TEST IF DRI 'E SELECT PARAM
1GO TO BUMP8 LOOP
:SET SAME onxvs SWITCH
:GO 1O BUMP 8 LOOP
:TEST PARAM NULL
INOT NULL
'TEST IF DRIVE SELECT PARAM

COMB
BR
CMP

SAMDR
418
RO, 816

;
RIVE FLAG
160_TO FILL OBJECT
:TEST IF YOO MANY PARAM

BNE

000012

003101

CMP

BNE

118:

000437

00O4SS

ys:
cs:

6%:

4201
4202
4203
4204
4e0s

001111

31S:

001214

81175
011752
011756
01i762
Q011764

011766

043117

000006

4195
4196
4197
4198
4199

4200

005000
009737
121127
001005
005700

001702

NO6

MACY1l 30(1046)
02-DEC-7?7
11:59
PAGE 79
SUBSYSTEM FUNCTION PROCESSOR

BGE
CMP
BEQ

18%

4yis

:G0_TO FILB OBJECT

MOV
MOV
MOV
MOVB
JSR

21¢
RO, 812
13¢
1 48
RO, -(SP)
R2'-(SP)
sc8cBIS,R2
(R1),RO
RY, C§CBI

.WORD
MOV
MOV

O
(SP)+,R2
(SP)+.RO

ser Rs WITH RDDRESS OF “ex- EXEC ROUT
‘LOAD RO WITH PAT SELECT CHA
:JUMP TO SPECIAL BUFFER xnxrraszs
JENTRY. A JSR R4, BI (PATTERN
INAME) ‘WILL BE INSERTED INTO
{0BJECT FILE.
'ERROR RETURN POINT
:RESTORE Re
RESTORE RO

TYPE

IVDRAR

TYPE INVALID PARAMETERS

BRDOCT

: TYPE BAD OCTAL MESSAGE

TYPE

TST

TYPE

188

268
26%

(SP)+

IVvOWCT

268

{BRANCH TO ERROR
SPATTERN SELECT PARAM?
'IF YES BRANCH ELSE

:G0 10 BUMP
& (0O
,s vz o

GO TO BUMP
& LOOP

:DUMP BAD VALUE

'TYPE INVALID WORD COUNT

Dleco

4SE] §15§?§

4262
4263
4254
4265
436h
4267
4268

012216
gezgn
0122
012226
012232
012034
012240

4270

012

4272
4273
4374
4275
4276
4277
4278

Qlg2sd
012256
012264
012266
012274
012300
012302

4269

Qigeya

4571 0155496

4279
4280
4281

4282
4283

012306
012312
Qlgdld

012320
012324

012602
10146
004737

012066
g2oce7
001010
021637
101405
032737
001001
00074;
020027
001412
(05700
001003
021627

jole

000002

000007

001200

001256

0Ig

418:
000010
000026

000010

001666

ooii7e
001245

012336

013725

001256

105037
000402

001665

#10

001245

28%

(SP)+,DRIVE(RO)
82, RO
10
OF FLAG

408
(s:)+, CYLNUM
1

(SP)+,LOFFST
189

R3 (RS)+

(Ré)+ (RS)+

468:

468
CSECTE0,0PFLGS

SAM DR
"¥-}

0-1

(RS)+

gnb
428:
439:

DRIVE,

(RS)+

OPFLGS, (RS)+

IN NO CHECK

i TYPE MESSAGE
;POP STRCK

INTO Re

POP STRCK INTO RO
'h

7 nooness OF PARAM ON STACK

convsnr ASCII OCTAL TO BINARY
:BAD CONVERT, NON OCTAL NUMBER
uono
coggr
PARAM?
ELSE

TFSTir WORD couur IF TO BIG
SET
INMIBIT
ELSE TEST IF BAICOUNT
OKAY
- BIG WORD
YES

ELSE GO
ch NUM

826, FORMAT

001666

4287

001405

PC,0CTBIN

ssecfao OPFLGS

001245
0glele

177777

001665

012342
012346

408

113725
005300

Ri,-(SP)

178:

198%:

105037
000402
113725

(SP)+,R2

$BAIT, OPFLCS

001245

001665

142737
028737
DGI4D3
152737
105737
001405
112725

;SET UP ERROR RETURN

iSP),MRXNDS

£380 000008

011500

(P4),RY

001700

328:
188:

S8
737
1023
012637
767
012637
764

;DUMP BRD DRIVE NUMBER

RO,

000004

INVALID COMMAND

(SP)+
, BRDDRV

000010

001435
105737

4288
4283

148:

031160

; TYPE

IVONC

26$

éSP)+,RO

012600
204

012326
012330

012334

208:
cbs:
¥
133

011404

4284
4285

4286

c88:

00314

TYPE

PORTSERROR
PRRAM
OFF
ANCH.

QHE TER?

ELSE STORE

SK{ LEGAL DR%VE TEST

fe§
fl§“§
gflRPROPER STORAGE
LQG SET
H 7O STORE OFFSET

§§§ °*:g$‘§é~*‘"°‘“
UE

T NUM 55 gflgflfl
FOR THIS CMND

ERR
C

’

! NGPE ;snns DRIVE

A
"5

4es3

012136
Q12130
Q12144
Q12146
Qlaise
0121549
Q12162
812169
012166
012172
012174
012176
012200

00S726
109401

27s8:

003123

-4

4246
4247
4248
4249
J2s0
4251
4252
4253
4254
4255
4256
4257
4258

12112
QI21i4
0121
012120
Qizige
012133
012129
QI2ise
0121
012132

104401
000403

SEQ 0079

DO —4—4

4o
4837
4238
4239
4gd0
424l
4242
4243
youy
4245

012104
012110

BO7

30(1046)
11:59
PAGE 80
02-DEC-77
SUBSYSTEM FUNCTION PROCESSOR

4 OUHD
NI~
DD NN

4234
4235

MRCY11l

e
% =37
Nha
48

CZRfiRCO RK611/06 USR DEFINED
CZReRC.P11
02-DEC-77 11:07

HRT

IS CORRECT

THE FLAG
SWITCH SET?

i INSERT DRIVE NUM OF
iCLEAR SAME ORIVE SNITCH
; INSERT DRIVE NUM PARAM

OFFLAG

: INSERT OPERATION FLAGS
DEC PQRQH NUMBER
:IF_NOW ZERO, EXIT
TEST OFFSET'FLAG SET

LOFFST, (RS)+
OFFLAG

:CLEAR OFFSET FLAG

RO
S0$

449

458

; INSERT OFFSET VALUE

CZR&RCOPT¥611/06 USR DEFINED
02-DEC-77 11:07
CZR6RC

012350

4290
4291

013725
300
ive
7

LELEEE L EELLEE LL£ELL

Ye
42N

MACY11 30(1046)

02-DEC-?7

11:59

ca7z

PRGE 81

SEQ 0080

SUBSYSTEM FUNCTION PROCESSOR

4ys:

001200

yss:

001202

MOV

CYLNUM, (RS)+

BEQ

50S

DEC

MOVB
DEC

001204
001206
001702

0421ee

001206

001254

S0S:

fiége
AoV
C:E
oV
ggT

TRKNUM, (RS)+

gggnun (RS)+
(RS) +
u88m
TEMP1, 8~RD
HBENT
COMSZE
SSS

; INSERT CYLINDER NUMBER

,ggc PARAM nuneen
ZERO,

EXIT

6gssnr fRflCK NUMBER PARAM
PARAM NUMBER

IF $£E§3R NUH PARAM
IEsEE%oEB Eoum PARAN
TEST IF RERD DATA COMMAND
ELSE
Eflgfig
WORD COUNT FOR DRTR COMPARE
;SET
NO ERROR RETURN

o 3030963 36 36 3 X 36 36 35 3 3 3 3¢ 36 36 36 36 3 3 3 3 38 3 96 3 3 3 3 3 3 36 3 3 3 3 3 % % % 3 3 3 33

"&BTTL 0urpu1 TEST ROUTINE

DN
N LW

JETHIL

st Puss P

LALELELELELE ELEL L L L L L
I

P P

Py
M

EREREEESTS

o ot

'y
‘¥

ETURN:

E:
. %

RY, OTRTE

.
3.

ERROR RETURN

RTS

RY+2

Rouréug

n;s *CH FELE

NORMAL RETURN

s 10 Sc PUNCHE (SOURCE OR OBJECT)

CHECK
THR
ComPU ES THE S
xzt OF THRT

10
COOE
ILE

4. PUNCHES
THE o
oR
P Or e B (G,PURCRED{SOURCE OR OBJECT)
B: THE
ESF?PQ‘H
cs uuxc gs USER DEFINED TEST PRTTERNS HAVE

WA WA %N EE W EE R R

BEEN DEFINED

ALL OF THE STORED TE?T spsgégxg gnnnnsrsns(onxvs

3 gs* pn??ERNS HflgBEEN
é§g22$05882&03
uuxtu"flgsh
5. gggcxs
.

PUNCHES THE souncs OBJECT FI

EREELEPRRRR

OTRTE

SENA

Qo
oL

s e

NN
unnL
L

Pt s

{sn

PC. SBSCN

BEQ

208

gnze
TsT8

001235

BEQ
MOV

001174

MOV

gge
2s:

001234
043123

RO, -(SP)
R3.-(SP)

S18

000117

043117
001712
034634

MOV
MOV

004666

et et it Pt P

Pt et P P

0O000000000000
0000

,,lllllll!l!lllllllllilIlli!llll!!lllllllllll!lll!Illll!lllllllll

001174

7518

BNE
MOV

RS, -(SP)

:;PUSH RO ON STACK
on srncx
,,PUSH R
PUSH R

?E”P n

ST I

F YES

TO NEXT PARAME TER

AM NULL

aRnNcn TO ERROR

égx),o'o

TEST I# PRRRMETER IS “0"

vLDOBJ

;TEST IF VALID OBJECT CODE

218
#*0F , PUCODE

OFPTR,R3

"BRANCH TO EXIT FOR ERROR
sron OUTPUT DATA TYPE
iLE

POINTER(END OF FILE)

3gr1Lé R3

LENGTH OF FILE IS DIFFERENCE

SFEMP

: TEST SOURCE FILE EMPTY

228
#"SF, PUCODE

:SFEMP SET, ERROR
:SEY PUNCH'FILE CODE TO SOURCE

CZR6RCO RK611/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07

MACY11l 30(1046)
02-DEC-7?
11:59
OUTPUT TEST ROUTINE

q339 815§é3 943;83 flgigxfi
4338 iS%SB 812985 figif
Y

12534

3§§g
§i§§33
gég;gz
8?2928
e
o
Y

43¢

4358

012566

004437

012760

8*5323 8S88 881588

3§§3 fligggg 895335

015000 BiSZ:i
17 1!6?88
Y4436e
giSESS
:ggg oiggig 8?3;37 012760

MOV

.
38:

ys:

389

3368
g%ggég 1 zoo 001462
4369 012626 012703 000100
4370 0l2%
43?7 012760
3%3 Eigggg7"

el
q§72 §i§§

§697§§ §8§§§§
:3;7
1
4
1
”S;S §1§§§§ §i§g§ 345;4

3qgg?
578 815275
fikedh 8?5785
fo%e 8NN
vy
001710
4382

0127

i ;1

3333
:385

012;14

00572:

4388

012724

000410

001250

2742 ~12760

”
6%

IOB:Oé

003007

22s:

:ggg

8}5;;8

4339

4400
4401

012750
012752
012754

012605
012603
012600

012756

000204

FORnggu COUNT AND

RY, PUNCH

NOTogegt
gg$NCH9NSLSE
SET
ancu
COUNT
AND
SPUNCH IT

(RS)+

ggfi
Tgr

?vps

B8R

cfig?h go
R4, PUNCH
$OFILE, RO

PUCODE
wror
1BUFPT,RO

PUF SZ R3

UNCH

5R2)+

?vopnn

258

TEST PRTY DEFINED

TEST PAT

FINED

+;SET1o,
Bsgflnoon 5? PRT Z AND
Puuéh COUNT AND
: PUNCH PRT
$RR°R PRTTERN DEF INED

4R
§E¥ nno%:gr Rnnoon PART

EE?

RaN

E' OF 0BJ FILE

LolUi SDR OF e,
0
SOURCE
gerPUN H counr

RROR

;SET NORfiflb ¥srunn

?vps
xnanxo PARAM

E;PE

éégonun

: TYPE NO OBJECT CODE

T;PE

éngsnc

; TYPE NO SOURCE CODE

'SET ERROR RETURN

23§:

?YPE
MOV

tRY),RY

)

MOV
MOV
MOV

(SP)+,RS
(5P)+.R3
(5P)+ RO

ggg:

sgnrv
#100,R3RO

MOV

0{2;34

SET R3

EES
MOV
%gg

8s:

:ggx

RRSENSET
PAT
DEFINED
SWITCHES
rest i S oERYE g ror o
PUNCH PQTTERN X

CoP
MOV

218:

sGET ADDR OF END OF SF+1(1ST EMPTY)

,g%FEERE¢$E és sou?gEPEst EE§?§E
’089 §8§CHS§8§§QRT OF STORED PARAM
§
S
D PARAM

R4, PUNCH

MOV

002756

4396
4337
4338

SEQ 0081

JSR

7%:

683:8%

003207

céggk go

MOV

gsg

815353

011404

MOV

g
MOV

:ggg

#PATXDF, RS

208:

81574

53@
o
(e]

ggéa
E(’gzrz
RO
MOV
%100, R3
JSR
RY, PONCH
$g¥e (RS)

4389 815758 985461 002616
439

§BU;S;L§%
3300005 RO
266
RH,P
NH

§8§a

PAGE 82

FPTR,R

age
ngv

DO7

gusnn

: TYPE PUNCH ERROR

; ;POP STACK INTO RS
:'POP STACK INTO R3
:'POP STRCK INTO RO
RETURN

!l!l!llllll!!!lll!lllllll!!l*lilliilll‘l!*llllllllllllflll!lllll*

QBTTL

PAPER TAPE PUNCH ROUTINE

cznsnco RKBII/OB USR DEF INED

CZR6RC .P11

02-DEC-77 11:07

MARCY1l

Y402
4403
Y404
4405

EQ?Y

PRGE 83

SEQ Q082

MEMORY ARER POINTED TO BY RO.

THE

VALUE

5300 3000000 0000000 00 06 06 00 06 00000 00 06 36 0636 06 00 30 30 3630 36 36 08 00 30 00 0000 20 00 3000 000030 00 00 00 0000 090 3000 00 00 0 0 00 00 0

4409

012760

Y414
4415
4416

013004
013006
013010

5303
001367
005724

4418

013014

011404

4419
4420
Y421

11:59

PRPER TAPE PUNCH ROUTINE

;xu R3 FROM THE

:Hgg

4417

02-DEC-77

;%
ENTRY:
JSR
RY, PUNCH
¥
RETURN: nrs
RY
ERROR RETURN
;
RTS
RY+2
NC MAL RETU
lTHIS nourrus WILL
PUNCH THE NUMBER OF ewrss xuoxcnrso BY

4406

4410
Y411
Y412
4413

30(1046)

012766
012774
012776
013000

013012

013016

042777

032777
001774
100406
(12077

000100

100200

166744

166736

PUNCH:

1S:

166730

BIC

#100200, SPTPSR
18
208
(RO)+, aPTPDB

<TS

RY4

DEC
BNE
TST

000204

208:

000204

#000100, aPTPSR

BIT
BEQ
BMI
MOVB

MOV

;RESET_INTERRUPT ENABLE

TEST FOR ERROR OR READY
LOOP UNTIL ONE OR THE OTHER
:BR TO ERROR EXIT IF ERROR
:LORD BYTE FOR
PUNCH

R3
18
(R4)+

:DEC BYTE
COUNT
:LOOP IF MORE TO PUNCH
:SET GOOD RETURN

(RY),RY

:SET ERROR RETURN

: RETURN

RTS
RY
: RETURN
ll!lllll!lllllllllllll!llllllllllillll‘lllllllll!llllllllllllll
QBTTL INPUT TEST AND INPUT STRING ROUTINE

4422

Y423

ENTRY:

JSR

R4, ITRTE OF

RETURN: RTS

Ry’

3355

;cnnxn FLAG.

4429
4430

*rznsr THE
*%PATTERN

4433
4434
4435

:#THE PUCODE IS THEN CHECKED FOR OF OR SF
THE NUHBER or evrss
; *INDICATED IN PUFLSZ IS RERD AND STORED IN_THE APPROPR
‘#FILE.
THE OUTPUT BUFFER IS THEN INITIALIZED TO THE pqrrsnn

:3%;

l!lll!!}lll!llllllll!lllll!!llllll&il!llllllll!l*lllllll!llllll

'!THIS ROUTINE HAS TWO ENTRY POINTS.

4431
4432

013020
013026
013026

010046

013040

0127

013030
013032
013034

Y447
yy4g
4449

Q1
012052
013823

152737

010346
010546
0127

000001

001663

xsnrs:
ITRTE:

013322
012705
7

4450
yyS1
Y452

01
013062
013066

14
012703
012700

yys4
4455

013076
Q13100

013322
105725

4456
4457

813072

013102
013104

4437

001407
012703

001174

000066

MOV

JSR

208
MOV
TS78

001237

BEQ
MOV
MOV

000100
001262
013402

JSR
18:

000100

BISB

MOV
MOV
MOV

Y446 oxgggg 004437 013344

4453

THE ENTRY AT ISRTE SETS THE

STORED PRARAMETERS ARE RERD IN.
THE USER DEFINED
IF PATXDF IS _NOT
O 100(3

STORED IN PATX: IF PATYDF
oF 78 A6
RERD AND STORED IN PATY; src FORPnr?enn

;xnoxcnrso IN PATSEL

4442
4443
Y444

4445

NORMAL RETURN

FLAGS ARE CHECKED.

:%8YTES ARE READ
‘%100(8) BYTES RRE

4436
4439
Y440
Y441

RY+2

ERROR RETURN

3353

Y426

RTS

ISRTE

208
1578

BEQ
MOV

#1,CHNFLG
RO, -(SP)

R3,-(5P)
RS' -(5P)
cpacooe RO

6,R3

aqhsno

#PATXDF , RS
(RG)+

:SET CHARIN FLRG
:PUSH RO ON STACK

,,pusu R3 ON srncx
:PUSH RS ON STRC
SGET noonsss OF STORED PARAM

:SET NUMBER OF BYTES

:RERD PARAMETERS FROM TAPE
{ERROR RETURN
iGET_ADOR or PATD DEFINED
:TEST PAT
X o;rxnco

FLAGS

18
#100,R3
#PATX RO

: BRANCH é‘ NOT SET, ELSE
ser BYTE COUNT FOR PAT READ
'SET FOR RERD INTO PAT X

(RS)+

i ERROR_RETURN
:TEST PAT
Y DEFINED

R4, RDLONT

2s
$100,R3

:READ IN PAT X

:IF NO, BRANCH. ELSE
'SET BYTE COUNT

CZR6RCO RKE11/06 USR DEFINED
CZR6RC.P1
02-DEC-77 11:07
4458

013110

012700

4460
Y461

813150
013122

01332
10872

Y463
Y464

0131
oxgxaa

012703
2739

Y4
4467
4468

013142
013144
013146

063335
60576
1407

4459
Y462

(0131194

013152

00M437

001407

4465 013136 8694

FO7

MACY11 30(1046)
02-DEC-77
11:59
PAGE 84
INPUT TEST AND INPUT STRING ROUTINE

001362

MOV

013402

JSR

208
7578

2s:

000100
01462
3s:

SPATY, RO

:SET

(RS)+

'ERROR RETURN
:TEST PART 2 DEFINED

R4, ROLONT

:IF NOT,

JSR

R4, ROLONT

:RERD IN PAT 2

#100,R3
#PRTZ2.RO

MOV

#PATR, RO

:SET

MOV

4471

013160

004437

013402

JSR

R4, RDLONT

8158

8377, SFEMP

4472

013164

4474

013174

4473

4475

013166

013770

wi?6

015
b

4478

013216

4477

4479

01332

152737

012700

3727
1006

013210

013737

Q13,32

0415

060037

000377

001234

001174

043117

001250

001712

034634

001712

4430
4481
w482

013. 24
013230
013234

63700
105037
6050 7

001710
001234
001235

4484
Y485
4486

(013242
813323
013

06370;
oxoag
6050 ?

001250
01246
001663

4488

1aag£

804437

4483 013240

4487

013.
-6

4489
4430

0130
013c70

4432
4433
4494
4495

0133
0l
0Ol
12
(01331

10083

013703

(01250

13;2;
113737

001236

14
4437

4496

81331

005724

4448
4499

013322
813325

104401
5037

4497
4500
4501
4502
4503
4S04
4505

4506

1gaaa
013334
013334
013336
013340
013342

00040S
11904

012605
012603
012600
000204

001663
010036

003223
001663

MOV

PUFLSZ,OFPTR

STEST IF CODE 1S OBJECT

RG, OFPIR

SADD IN START OF FILE ADDRESS

MOV
CLRB
CLRB

1BUFPT,RO
SFEMP
vLDOBJ

- CORRECT RO_AND
:SOURCE FILE TO BE RERD
:CLEAR VLDO?J CAUSE SOURCE

ADD
MOV
CLRB

PUFLSZ,R3
R3,SFPIR
CHNFLG

:COMPUTE SIZE OF 30URCE
:STORE
END OF SOURCE CODE ADD
:CL
CHAIN FLAG

JSR

R4, ROCONT

:READ FIL;

JSR

PATSEL , 68

:GO TO BUFFER INITIALIZE

MOV

(RY),RY

MOV
MOV

MOV
RTS

ENTRY:

'GET

: IF

!SET ERROR RETURN

(SP)+,RS
(SP)+.R3

(5P)+.RO
R4

; ;POP STRCK
:1POP STACK
1POP

T T T T

RETURN:

’

TO RUN

s TYPE READER ERROR
ICLEAR CHAIN FLAG IF READ ERR

S x

PRERR
CHNFLG

4509

512
c13

CHAIN FLAG SET

:SET NOR..AL RETURN

PAPER TRPE PUNCH ROUTINE

INDEX

(R%)+

'SBTTL

:gxo

OF DATA FILE

; TEST CHRIN FLAG

4507
4508

SIZE

'ERROR RETURN
SGET PATTERN SELECT

RY,ESB}

308

JSR

RY, RERD

RTS

RY+42

RTS

NEW

;LOAD RI WITH ADD_OF SOURCE BUFF

PUFLSZ,R3

TYPE
CLRB

RO, R3

BEQ
JSR

ELSE

(GET FILE'SIZE

S§

O
CHNFLG
7S
RY, RURTE

TST

30S:

IGET RDOR OF OFILE

RDD

.WORD
1578

208:

sOFILE,RQ

MOV

208
MOVB

78:

'ERROR RET RN

iSET NO SOURCE SWITCH

'BR_IF NO,

MOV

6%:

FOR RERD RANDOM PAT
RERD RRN?OH PARTTERN

MOV

013302

:SET gv?: COUNT

PUCODE . #"OF

#100,R3

CMP

BNE

8s:

13402

44§ 013253 604437 020536

208

4S$:

ELSE

: ERROR RETURN
:TEST RANDOM PATTERN DEF INED
JIF
_NOT
H. ELSE

000100
00isS62

BRANCH.

:SET BYYE CUUNT
:SET FOR RERD INTO PAT 2

(RS)

012703
0.2700

INTO PATY

208
1578
BEQ

013150
013154

READ

4469
4470

FOR

:READ IN PAT Y

BEQ

MOV
MOV

13402

SEQ 0083

INTO RS
INTO R3

STACK INTO
-RETURN

T T

T T T T Y P ST T

ERROR RETURN

NORMAL RETURN

;#THIS ROUTINE READS THE NUMBER OF BYTES INDICATED IN R3 AND
; #STORES THEM IN CONSECUTIVE MEMORY LOCATIONS STARTING

T Y Y

CZR&RCO RK611-06 USR DEFINED
CZR6RC. P11
0e-DeC-77 11:07

MARCY1l

4514

ynT

4515

166354
166342

neno:

RDORESS

PRAGE 85

SEQ 0084

IN RO.

WL OGP

MOVB
BEQ

aPTRgg,(RO)
WSTA

7578

166320
100200

166312

RDCONT
: 958
ROLOOP: BIT

XREAD:

; 8ENTRY :

:SET READER GO BIT
TEST IF ERROR OR DONE
(LOOP

co TO ERROR EXIT IF ERROR

(RO)+

LSE

HPTY
Sarn gg
RD NEXT

ACTER

889";££B§;
8”'5 ?
:TEST FOR ERROR OR DONE

BMI

XREAD

JIF EIT 53 SET GO TO ERROR

DEC
BNE

R3
RDCONT

RTS

MOVB

000204

;CLEAR INTERRUPT ENARBLE

gBTRSR
£100200, 3PTRSR

BEQ

166304

0000100 JPTRSR

SPTRSR
#100200, 3PTRSR

BEQ

BMI

PRRP
G ()

BIC

WSTART: INC
WLOOP: BIT

166334

Pt P

VPP IPRPRORE
oL 83 ¥38e T8RS
g

Pt et (s Pt Pt Pt Pt Pt Pt ot

000100
166350
10.200

4527
45e8

000000000000 00000000

4ESE

THE

GO7

§ 3 IR 300000006 00 0t 3600 00 30 0000 00 300600 00 300000 00 06 00 06 00 00 00 300 00 00 00 0000 000000 00 000000 00 0000 00 0000 2 00 00 2 0 2

Pt Pt Pt Pt Pt Pt Pt P

4813

4ys18

30(1046)
02-"eC-77
11:59
PAPER TAPE P. ICH ROUTINE

75T
RTS
MOV

‘x

RDLOOP

SPTROB, (RD) +

(RY)+
RY
(R4) ,RY
an

{LOOP IF NO BITS SET

'ELSE

STORE

BYTE READ

:DEC BYTE COUNT
'IF NOT ZERO,
LOOP

:SET NORMAL RETURN
'RETURN
'SET ERROR RETURN
RY,ESPM

:RETURN

nsssnca

:?S:E“a
UTINE PS
31 TM nss AGE FOUND
BJ CODE
lFOLLOH?
é ? E zr ER THE M ssnEE ? SINTED R4 IS

: #QDJUSTED TO SKIP OVER THE MESSAGE CONTENTS.
: sROUTINES CALLED:
,i
TYPE

ll!!lill!lgllllllll!*ll*l!llllili!liIlllllllill!!illlll!llliill
001116
001232

001714

ESPM:

CMP

BNE

001722
013546
001171

=13516

INC

18:

2%:

TST
BNE
MOV
TYPE

. WORD

TYPE

1518
BNE
gage

TsT8

NNUM

;s INCREMENT PSU?DO
LINE COUNT

LPCNT!
2%
R4, 18

PTEST IF LOOP count HAS COUNT
:YES - DON’T PRINT MESSAGE
{GET noongss OF MESSAGE
! TYPE MESSA

:NO,

SKIP
P

$CRLF

;s TYP

cnaflxncz RETURN

ITCNT,CHTSTR

tRY) +
2s
524)

S TES
N?L#(END OF MESSAGE)
'LOOP IF NO
}Esr ren seconoLNUtE.tiIT

(RY)+

3s:

RTS

: XENTRY

JSR

,:Hecx IF FIRS

eunsfikns NSND NO(L

:TWO NULLS MAY BE PRESENT TO
: INSURE WORD AL IGNMENT

:RETURN

!lllll!llll!llllllilllllll!*l!!*lill!l‘lllilllll*ll!llllllllii!
"48TTL COMMON DRIVERCALL

:RETURN

RTS

onan WITH RS POINTING

TO ACTIVE

PRRAM BLK

CZR6RCO RK611-06 USR DEFINED

0e-DEC-77 11:07

CZRB6RC.P11

MACY1l

30(1046)
02-DEC-77
COMMON DRIVER CALL

11:59

HO?

PRAGE 86

; #THIS ROUTINE CLEARS THE DONE FLAG,

4570

SEQ 008S

CALLS THE DRIVER WITH

';?SESCTIVE PARAMETER BLOCK, RND CALLS THE WRTCH DOG

; &

.xr men LOOPS WAITING FOR *
= (INDICATING AN INTERRUPT
lHITH WITHOUT ERROR) OR WARITING FOR CON ROLLER READY
“%(IF THE NO CHECK BIT IS SET IN THE ACTIVE PARA

:gheocg& LEum:u EITHER OCCURS THE ROUTINE Reruans T0
X

JSR

;

18:
2s:

. WORD
JSR
1578
BNE

sér

000014

105762

O
o0
e
=]
LN
oo
b 1)

[A
oo
£
no

&
2

Aeaad
gy

0000000000000

PPt Dt Pt ot ot et Pt ot Pt Pt P

LYz

BRVCAL : cbne

Q
MOV
TST8

000000

Izerzr2222222222222
222222222222 3

;CLEARR DONE FLAG

RS, IS
PC,C. INIT

:GET PARAM BLOCK RDDRESS
S& DRIVER

PC,W.WTCH
DONE
3s

BLK RDORESS PARAMETER
g T}r%
ONE SET
vs INT OCCURRED, OPCOMP.

KBRS, R2
RKCS1{R2)

22 K OFF,
MUST GET
Rxanse ADDRESS
:TEST FOR RERDY

SNOCHK, P. PRST(RS’ TESTIF ng cuecx OPERATION
ARDY,

;

3$:

DONE

LOOP

Iill!’ili’!Illlllllllllll!Ill!i!llllllllilllllllilllllilili!l}l
"88TTL ERROR FREE RETURN FROM DRIVER

lENTRY JSR

PC,

ERRFRE WITH RS POINTING TO ACTIVE PARAM BLK
PC

lTH
S
SET%
THE DONE FLAG AND RETURNS TO
SLI TR
£THISFoug

001667

uuuluunnunnuuuui"unnn"uinnuuuunuu

tknraz- come

DONE

2ET DONE FLAG

lll!..l!!illlliill!llllll*lll*il*!ll!l*llll!illillllii!!lllll&!

sgnk snnoa RET%RN FROM on§vsn (DRIVE

NTRY

lTH S

ERROR)

onvena WITH RS POINT NG TO ACTIVE PARAM BLK

TINE Ig §$E BY THE

lggcflsg N THE

DRIVER WHEN AN_ERROR

SUBSYSTEM OPERATION OR WHEN A TIMEOUT

lflhk EHBS;SREHOERROR REP8RT§HIN ngniRgngPéN
THIS ROUTINE.
lINFORHRTION AS WELL
R
OPERATIQON,

mc VE ggéné%gé
;xs

MATION QBOUT THE FRILING

FAILURE w-'onmr on I

AKEN FROM

TAKEN
ggSPERR
IONF ?nronnmxon

BLOCK

lTHE WORD IN LOCARTION 72 OF THE PRRAMETER BLOCK IS
&fl PRINT CONTROL WORD. THIS WORD IS SET UP_WHEN THE
; ¥PARAME TER B%OCK I? EORDED BEFORE THE CALL TO THE
:¥DRIVER AND TELLS THE ERROR REPORT WHICH GROUPS OF
;#DATA _IN THE PARAMETER BLOCK IS PERTINENT TO THIS
:%OPERATION. THIS ALLOWS THE REPORT TO BE CUSTOMIZED
*QND SPECIFIC FOR THIS ERROR.

CZR&RCO Rxsxxfos USR DEFINED
CZRERC.P
02-DEC-77 11:07

MACY!1l

4626

107

30(1046)
02-DEC-?7
11:59
PRGE 87
ERROR RETURN FROH DRIVER (DRIVE ERROR)

SEQ 0086

;#EACH BIT IN THE PRINY CONTROL WORD INDICATES THAT Q

462?
4628
4629
4630

: #GROUP OF WORDS OR BYTES IS OR IS NOT TO BE INCLUDED IN
:#THE REPORT. IF SET THAT GROUP IS INCLUDED, THE PARAMETER
:#BLOCK ELEMENTS TO PRINT CONTROL WORD BIT ASSIGNMENTS ARE
:#AS FOLLOWS:

4632

4634

;

4635
4636
NG 37
4638

‘¥
;%
]
; #

4640
:g:é

2
*

4631

4633

4639

4643

4649

46550
Y651
4652
4653
4654
4655
4656
4s5?
4658
4659

013652

013660
013666
013674
013700
013706
013714
013722
013727
013734
013742

041412

0S2116
040522
006472
05001
052517
0S110S
035116
0l2
041516
05104

3
S
6

WORD
WORD

WORD 26 8 30

CRAN BE

RBBREVIATED

THE

32
34

THRU

PREVOP:

.RSCIZ

<12>/PREVIOUS OPERATION:/<¢1S><12>

00501

APRES:

.RSCIZ

<«12>/RPPLICABLE REGS:/<15><12>

040520

820522

833111

047105

020123
0S 10%
0S0101
1101
3305
00

04251

p4252e4

013774
014000

006472
05141%

1e
041125

013753

013766

014006
014014

0O4344

052123
046511

Y668
4669
4670
4671
4672
4673
4674
4675
4676
4677

014022
01402S
014032
014040
014046
014054
014061
014066
014074
014102

00S015
0le
0S1531
042504
0%210;
05111
07S
046040
0S2Slb
0]

4679
4680
4681

014110
014112
014120

000075
046503
054503

014103

o 36006 36 06 36 36 06 36 38 36 36 06 36 38 96 06 36 36 36 6 36 08 38 36 36 3606 36 36 16 36 36 36 36 96 36 06 38 30 36 06 06 36 3698 26 36 36 3

o44S26
050117
047511
000
046120
042514
035123

047440
0O44S2d
001
2se

042520
047117

1522

PRRMGVN:

.ASCIZ

FRILING

<12>/CURRENT OPERATION:/<16><12>

013760

4678

4,5,86

.RSCIZ

Yebe

4666
4667

BYTE

BYTE 7
WORD 10 8 12
WORD 16 & 20
WORD 22 8 24

REPORT

WORD 2

L0ROP:

00S01S

4663

ELEMENT

guzsaz

013750

4664
4665

BLOCK

Ay X

:#_INE NUMBER, THE DRIVE, AND COMMAND BY SETTING
iSNITCH REGISTER 0. THE REST OF THE ERROR REPORT
:%1S SUPPRESSED, THE OTHER £RROR REPORTING CONTROLS
lRRE STANDARRD

4660

4661

; #THE ERROR

Y64y
4645
4646
Y4647

4648

12 ]

PARAMATER

26 36 06 2 3 3 26 20 2

<12>/PARAMETERS GIVEN:/<1S><1>

046505
047505

0S4523

052040
052125

SSTO:

.RSCIZ

«12>/SUBSYSTEM

05252
042sed
042524
o42440
005018
046503
047111
020115

851508
020115
052103
0S1)22
000
042116
020105
005015

SDETER:

.ARSCIZ

<(12>/SUBSYSTEM DETECTED

PLINE:

.ASCIZ

/=CMND LINE

o44522

042526

FDRIVE:

.RSCI1Z

/DRIVE=/

042116
047114

0000?75
O0S1104

FCMND:
FPARMI:

.RSCIZ
.ASCIZ

/CMND=/
/CYLNDR

NUM

SECTOR

TIMEOUT/<15>¢l12>

ERROR/<(15S> (12>

/<15><1e>

TRACK

OFFSET

2 2

Que)

02-DEC-77

2523

Diyise

oldier 29002 gu 0] 020040 FPARMZ:

Dugac3

4690
4691
4632

463

OI4iT%

014202
014208
0142]2

Olusse

:g% 81'423‘4
463

0S009

098
02004

DI1448

091939 000w

Diusas

920000

:gge 8%:533
455
4700
0

0003

041504

0l4ed

BE3T0F

tol

Oi4¢
0142

12
11

120

020040

031139
583

uDC )

: . .ASCIZ /CSl

cs2

. .ASCIZ /DA

BO/<1S> <12

FPARM3:

ooo0e8

010

asclz

FPaRms:

%083.3 FPARMB: .ASCIZ /ggor/
Sggmo
FP
123

RRM7:: .ASCIZ 7

47
814324
4700e5 8{3
38 m
%g
I
fi 02001040 FPARMB:. .ASC .ASCI 8L
8§§fi838
014346
0143SY4

Sgwq
11

9 ik By

5;15 813355 §§

a7is gigaéfi Da0as
4716

mee

923% Eggggg
1

8%01

1755 Dlud
osau
d
gl45ry
02
0000

Osi117 Oocsd4
34

720? 014
Olwe
:;S
464e
4723

.ASCI1Z B8ECC/POS ECC/PAT3(

6é

Bl
1101

219; B
047289 Bl
042117 GDDART: .ASCIZ
0

=GOOD WORD/<16>¢12>

-8R0 WORD
<15 <12>
S

475
Qld§§§ 919
agh4 052
333524
819 SCERR:
47586 8i:
0513523 Boe052
.ASCI Z <12>/STATUS COMPARE ER
4727
8561
§§7§
08
q;gg 8%:23‘4

12%3 00583% FDATC: .ASCIZ <12>/DATA COMPARE ERR ON WORD /

ool

0144

620040
620040

8 fng o

4717

SEG 0087

o. nsciz saam

§g§8:8 FPARMY: .

:gg
é 914305 20l 12038 §§84q§
4
4708
4709

PAGE

11:59 PAGE 88

oel (24

JE8% OI4Ig 041504 020113 020040
q68s gquss gu311? 0S50
4689

Ja7z

052103

4e82

020000

1:59

BOOART:

101

.Olgg 85066?3
et R

.RSCIZ

2 /=STATUS WD NUM/<15>¢12>

:;733gé gi014zs87]sg 852%T%2 %géfié 0“7840 MSKLAB: .RSCIZ /=MR
473e 0ids7e o0sQlS 000 QU4S07 RCERR:
4733 Ol4EDe D0s21%5 Doiise Oui

ROR/ < 16> < 12

.ASCI Z

12R >COMPARE ERROR/ asS D
<12>/RSK
EGI/(
STE15

040S20

1i22

MARCY11l

%0107
12
020105
0S10
1122

8ZZR RZR
FRRL
- 00
Y L o
)
R
wn RRR
SE- & &hb—
RWNZE
[

nNE
(e ]Y

p42520
o40440
044524
000

.RSC1Z

/7=REG NUM/ (15> <12

HARDER:

.RSCIZ

/DRIVE HAS HARD ERROR/<¢1S><1a>

SCNCLR:

.RSCIZ

/STATUS CHANGE NOT CLERRED/¢(1S><1e>

DSCNOT:

.ASCIZ

/NO DRIVE

STILSZ:

.RSCIZ

/SEIZED OTHER PORT/<15><12>

BARDATT:

.RSC1Z

/UNEXPECTED RTTENTION/<15>
12>

164034

RO, -(SP)
Ri,-(SP)
R2,-(SP)
R3,-(SP)
R4’ -(SP)

; ;PUSH
:PUSH
$1PUSH
P1PUSH
P1PUSH

8377, DONE

:SET DONE FLRAG

#Sk10, aSWR

19:

56S8:

000010

000014

015006
000044
000020

000064
000014

13
§

014646
000040

000014

S0S:

RO
R1
R2
R3
RY

ON
ON
ON
ON
ON

STACK
STACK
STACK
STACK
STACK

:CLERR REPORT PRSS SWITCH
'BELL ON ERROR?

188eLL
gggxa,asun

iNONG BeLLCoH
ERROR REPORT?
Exnnxa?§

RKBRS, R2

;GET BASE
.RESET IE AND DO CONT CLEAR

8CCLR,RKCS1(R2)

000000

023452

STATUS CHRNGE/<¢15>
12>

RPEWIT

001667
164050

014675

SEQ 0088

REGLAB:

DRVERR:

001164
020000

KO?7

11:59
PARGE 89
02-DEC-77
ERROR RETURN FROM DRIVER (DRIVE ERROR)

30(1046)

g4asee
0S1117

75359

- N

5
Tad
Lol
REZR R

W
e
b e e e [
[@ TY
Je AL Je ol o
s P
Pt Pt

33
REFHEREEBREZ
NS

RIBFEeinn WNCRDJIREHEwyfl‘

\JV\J::

oNN
oocoL£

s e e el e sl el

==t

i
TR 8 4t 0t et s st Pt Dt Bt Pt P Pt P s e O

g46S17

00000 [=4
Q?
59987
&2 8°"§.—.—.-—-.2% 22
2Om
gyzggg
~fufu
8R
O—\JV-C’SI N0
L£NNO
U-C:I-Ig
RRRRINERYY
:SRS
RE

F&
o
EEEE
DFERRN
14

wintwivwippwiwtwntetetetetwtet
et etetotetetud ot wtetetututodetod
LELELLELLLLLELL
L
£

OOO00COOOO0000000000000000D000

el wiwt et

000000000000 0000000000000D000

£
~
o
W

CZR6RCO RKb11/ 06 USR DEFINED
CZR6RC.P11
0e-DEC-77 11:07

;JUMP TO EXIT
36$
: TEST CONTROLLER ERROR FLAG
CEFLG
:SKIP TO TYPE OUT
3s
: TESY UNEXPECTED ATTENTION
SUEXATT,P.PRST(RS)
55$
s UNEXPECTED ATTENTION REPORT
BADATT
b4Y4, PRTCON(RS)
!SET PRINT CONTROL 70 LIMIT REPORT
ogROHRo,P.PRST(RS) : JEST DRIVE HARD ERROR
:NO_- BRANCH
'HARD ERROR REPORT
HARDER
bDRVDSC,P.PRST(RS) !TEST STATUS NOT CLERRED ERROR
INO -~ BRANCH
SIS
'REPORT STATUS NOT CLEARED ERROR
,SCNCLR

cznsnco RK611/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
4794

032765

004000

47de BleEs
B3%4
(015230 6 4401

014762

4795

015208

015212

001402

4799

4800 015234
4801
483

015242
8lgsqq

LO7

MACY1l 30(1046)
02-DEC-77
11:59 PAGE 90
ERROR RETURN FROM DRIVER (DRIVE ERROR)
000014

014000

TYPE

014061

104408
J04401
010500
683H8§

4813
4814

QIS3I04
0158310

104401
104401

801171
014112

015316

104401

001171

015332

004737

016120

18352

106

4816

018314

4817 01532
4818 015335
4819

1
104414

104414

8153
01834
ngguu

4824
4825
4826
4827
4828

016354
015360
015364
018370
015372

104401
016503
032703
001001
000443

015400

032703

483

ngwog

4834

015416

001402

4836

0154

4838

015434

0OCI1406

018440

1044914

4829

018374

4831

015404

4830

483

4835

4837

1841

0154

013430

4839

015436

4841

01§wwa

4840

4842
4843
4844
4845
4g4g
4847
4848
4849

015444
015446
015450
(0iS452
015484
(016460
015464
016466

23
33:
19%:

014103

05737
1006
777

104401

001402

40l

32703

000001

17§:

013753

4s:

000001

014120

000002

104401

014161

2703

000001

o4401

001171

46S$:
45§

:TYPE
SUBSYSTEM
DET. ERR,
CLEER
Hgs
3v$
gSINT
SWITCH)
:PUT ans NUMBER ON STARCK

TYPDS
TYPE
MOV
TYPE

000007
000002

000001

5% :

PLINE
RS . RO

FORIVE

? RLF
MND
LF

TYPE SUBSYSTEM TIMEOUT

'PRIN
P TYPE LINE NUM MESSAGE
iSET RO TO BEGINNING OF PARAM BLK
:TYPE "DR]VE"

'SET R2 FOR BYTE OPERATION
:PRINT FIRST LINE (DRIVE NUM)
: TYPE *COMMANDTM

IPRINT 2ND LINE (COMMAND)

bcnoro P.PRST(RS) ;TEST TIMEOUT
258

7578
BNE
BIT

RPSWIT
178
#SWO, ISWR

TYPE
MOV
BIT
BNE
BR

CUROP
PRTCON(RS)
,R3
#3,R3
4
68

BIT

kBITO,R3

JSR

TYPE

PC, READRG

309

PARMGVN

BEQ

468

BIT

bBITI,R3

TYPE

BEQ

TYPE
TYPE

BIT

FPARMI

45§

:TEST 2ND PRSS
IYES - SKIP (SHORT FORM TEST)
TEgT
IF ?HORT REPORT SWITCH SET
T

: TYPE “CURRENT OPERATION"
:GET PRINT CONTROL WORD
STEST IF GROUPO OR I TO BE PRINTED
SYES SKIP TO annr NG
:SKIP TO NEXT REPORT GROUP TEST

:TYPE HERDING "PARAM GIVEN"

: TEST FOR GROUP O

: TYPE GROUP 0 HEADINGS

:TEST FOR GROUP 1

; TYPE GROUP 1 HEADINGS

kBIT0,R3

s TEST IF MUST PRINT GROUP D

SCRLF

COM

FPRINT
FPRINT
FPRINT
MOV
ADD
BIT
BEQ
BIS

:GO RERD REGISTERS

, FPARM2

CLR

FPRINT

005102

SSTO

BIT
BEQ

BEQ

005002

1049414
104414
104414
010500
0k2700
032703
001406
0S2702

égosvsn
R2
LINNUM, - (SP)

BNE

013652
000064
000003

bcnoro DRvSZD,P.PRST(RS); TEST TIMEOU

?595
CLR
MOV

TYPE

163566

{' 16ST
BRIVE
REPORT STILL SEIZED ERROR

:BR_IF NO’

FPRINT

258%:

LSZ

;TEST NO srnrus CHANGE

no - BRANCH

TYP
TYP

001671

8NODSC,P.PRST(RS)

s2s

BEQ

COM
FPRINT

765 000100 000014
1402

4820
4821
482
482

B
TYPE

015268
015266
018272
813g7~

4815

BEQ

BIT

4ed7
48
4.J9
4810

01%300
015332

BIT

766 010100 000014 S4S:

001403

3584
{ 23 68508$
g4 014025
4805
81?5?5
4e0b 015260 013746 001116

4811
4812

6SI1S:

SEQ 0089

RS, RO
#P. BAHI, RO
#BIT1,R3
63
%1 R2

sCLEAR BYTE REPORT CONTROL

PRINT LINE (CYLINDER)
E % E%

P
NE (SECTOR)
PRINT LINE (TRRCK)
:PRINT LINE (OFFSET
'SET TABLE POINTER ron GROUP 1
:SET RDDRESS
:TEST IF MUST PRINTM GROUP 1
INO, SKIP TO NEXT GROUP TEST
*MAKE SURE R2 SAYS BYTE

CZR6RCO RK611/06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

MACY1l 30(1046)

02-DEC-7?

4850

015472

104414

FPRINT

uasg

184

109414

FPRINT

CLR

183481 oo01171

48%e
012 18
loe73r O9ier:
Y
fifggig é§39§§
qess

ols

weel
H

01
1

12603
1
Sa

yeed

126

qggo 81§§§§ 81 o]
4

016670

6S:

filssas

00473;

4393

gircgi

4871

015560

812293

88?383

4874

015572

4877

015604
1

3 ;S

oiggig

[

(4 S

ggg:

(1
31§

TEST 2ND PAS

ENE - 5R2NCH
gnouno EXIT
sPRINT LOOP COUNT

PC,PRLPCT

(SP)+,RY4_

; ;POP STACK INTO RY

(5P)+ RI

::pOP STACK INTO RI

(SP)+.R3
(SP)+. R2

:1POP STACK INTO R3
;;ng
TARCK
INTO
R2

(5P)+ RO

::POP STRCK INTO RO

882783

000004

SéT

ugxra,ns

104401

014205

000010

40S$:

Séé

g?ira,na

104401

014226

41s:

géa

TYPE

3g§rw,n3

FPARMY

: TYPE GROUP 3 HERDINGS

104401

014247

4es:

gég

gegrs,na

FPARMS

; TYPE GROUP 4 HEADINGS

goe

Eg#P.C31,R0
Rg,
!

nafgog

000040

OiSBH“ 103;14 000010
§1§2§3 881488

812&&2 109414
i el g;xq 000020
813293 881483
oxss;w

oxg;gg

015704
167

104414
703

016724

sPRINT LINE (LORD COUNT)

;c,suéonr

§8§q 4

4904 812753 1045419

4905

MOV

H3s:

49 é §1§71

'PRINT LINE (BUS RDD LO)

%%R

qgga 8i§903 ?84414

4899
49

*R2 SAYS WORD

016622

:Sgg gigggg
é; 00
1
§1§2§3 §§441q 000016

:qu

BEQ
JSR

MOV

4880 §15513
Y
014270
:agx isse 399705 886555

Y4uégg
3887
uggg
48
3894
Y 35

SEQ 0030

:PRINT LINE (BUS ADD HI)

MOV
MOV

:g;g 812253 égfzgg 000020
:g;g

PARGE 91

OPE" | SCRLF

q§2§ §*§E§§ §‘§gga
:ess

MO?7

ERROR RETURN FROM DRIVER (DRIVE ERROR)

48S1 §1§w75 005002

M §i§

11:59

104401

000026

000040

001171

)

83 )

TYPE

TYPE
£Y$E

ADD
FPRINT
FP§INT
Eéo
FPRINT
EpglflT
BEQ
gov

FBBINT
93

108:

FPRINT
SET

FgRINT
TYPE

‘%nggnsufl LOOP CONTROL
;

:TesT

408

FPARM3

,?Pnnns
hg?$§FR3

: TYPE

:TEST

IF MusT

PRINT GROUP 2

GROUP 2 HERDINGS

FOR GROUP 3

:TEST FOR GROUP Y4

*TEST FOR GROUP 5

: TYPE GROUP 5 HEADINGS
:TEST ]JF MUST PRINT GROUP 2

Eggr-rénggcgrn
TO GROUP 2 VALUES
1SET
nog
S
;PEINT ang (CS1)
.

#BIT3,P3
eg !

5$R§¥T %Igss§c25§nr GROUP 3
ENS - RQNSH

#P.

:PRINT LINE (WORD COUNT)
;$E§¥T %‘Rfiséagéifi¥ gggfip Y
INO - éanncu

WCR,

;

$BITY, ' R3

9§

sg,ggs -

;ss; ngkg ETR TO GROUP 4 VALUES

;351N¢ LINE (DESIRED TRACK/SEC)

;PRINT LINE (DESIRED CYLINDER)
;TEST
F MUST PRINT GROUP S

oe*rs,aa

NG - BR

128

, SCRLF

’

!PRINT LINE (RTTN SUM & OFFSET)

CZR6RCO RKB11/06 USR DEFINED
CZRERC.P11
02-DEC-77 11:07
4906

015730

4308
4909
4910
4911
4312
4913
4914

015740
015742
015746
015752
015754
015760
015762

4907

4915
4916

4917
yc1g
4319
4320
4321
4yso2

4523
43824

015734

015764
015766

015772
(015776
016002
016" 24
016Ude
016010

016014
Q1670

44, S
4326

oxsu§8
0166

4958
4529
4930

815033
01604
016046

4327

433]
4932

4933
4334
4335

4936
4937
4938
4939
4940
4g4]l
4942

104401

032703

001427
012704
104401
010500
062700
104414
005304
001375
104401

012704
104401
104414
005304
001375
104401

104401
023727

10142
105737

016034

001016

016052
016054

001002
012705

016066

000137

016060
Q016064
016072
016076
016102
016106
016110
O0i6114

60 137
12708
105737
104401
5002

105037
012705
105737
001402
012705
000137

NO7

MACY11 30(1046)
02-DEC-77
11:59 PAGE 92
ERROR RETURN FROM DRIVER (DRIVE ERROR)

001172

TYPE

000100

BIT

000004
014275
000034

118:

BNE
TYPE

001171

000010
014332

128:

000001

1SS:

158
89, RY
FBARM?
RS, RO
#P.ER,RO
RY

18
SCRLF

k1G,RY
, FPARMS

:TEST IF MUST PRINT GROUP &

:NO_ - BRANCH
:SET COL COUNT TO 4
:TYPE GROUP & HEADINGS
ISET TABLE POINTER TO GROUP & VALUES
:SET RDDRESS
'PRINT COLU
:DEC counr LOOP UNTIL Z2ERO

MOV
TYPE
FPRINT
DEC

;SET COL COUNT TO 10
TYPE GROUP 7 HEADINGS
TPRINT COL
:DEC COUNT, LOOP UNTIL ZERO

TYPE
CMP

'SLF
CINNUM, 8]

s TEST IF FIRST LINE IS ERROR

BNE
TYPE

001171

1172
001116

BEQ
MOV
TYPE
MOV
ADD
FPRINT
DEC

SLF

kBITe,R3

SEQ 0091

12%
SCRLF

001671

BLOS
TST8

001671
002142
001670

CoMB
MOV
1578

RPSWIT
sPARMO, RS
PBSW

SET SWITCH
:SET RS T0 PARAM O
uns THAT RIGHT?

TYPE
CLR

PREVOP
Re

rvpe “PREVIOUS OP~ HDR

002230

013700
015272

001671
002142
001670
002230
015520

4943
434y
4945

BNE

168:
18%:

BNE
MOV

JMP

16%
RPSWIT
18%

168
8PARM! RS

19%

:IF_YES BYPASS 2ND PRSS (PREV OP)
TEST IF SECOND PRSS IN REPORT
YES
- EXIT

YES - SKIP
NO
- SET TO PARAM 1

;GO _PRINT PREVIOUS OPS.

CLRB
RPSWIT
IRESET 2NO PASS SWITCH
MOV
$PARMO, RS
iSET_RS TO PARAM O
TST8
PBSW
:
;TEST PB SWITCH. WAS THAT RIGHT?
BEQ
20%
PYES- SKIP
MOV
8PARM1, RS
INO - SET RS TO PARAM 1
208:
IMP
308
:GO TO EXIT
, filllllllllli!l!llllllillllllllilil!ll!llll!filll!iillllll!llllll
I»lllll!lllllil!!llllliilllllll!lll!!llllllllllllilll!llllllllll
"48TTL RERD RKG11 AND DRIVE STATUS REGISTER ROUTINE
: XENTRY:
JSR
PC,RERDRG

33:9

;!RETURN:

4948
4949

;ruxs ROUTINE READS ALL THE RKG11 REGISTERS AND ENTERS THEM INTO THE
;.Pnannsrgn BLOCK. IT THEN TRIES TO RERD SEDRIVE STATUS REGISTERS

495 ]
4952

‘#WHILE READING DRIVE REGISTERS, A _MESSAGE IS PRINTED TO ALERT THE
%USER THAT THE DRIVE STATUS IS NOT VALID.

4350

4953

4954

#AND IF

(016120

Q016120

010046

4957

Q016124

010346

(016132

105737

4958

4969

4960
4961

016122

016126

016136
016140

SUCCESSFUL,

PUTS THEM INTO THE BL

IF AND ERROR OCCURS

o 3083 3 4 3 3 6 36 3 36 3 3 3 3 3 3 3 36 36 3 3 3 36 36 3 3 96 3 3 3 3 3 3 3 3 3 3 W 3¢ 3 3 3 3 3 3 W W 3 W 3 3 3 3 2 W

4955

4956

RTS

AEADRS:

010246

012705

001402
012705

MOV

RO, -(SP)

: ;PUSH RO ON STACK

MOV

R3’-(5P)

::PUSH R3 ON STACK

MOV

002142

001670

002230

MOV

TST8

BEQ
MOV

R2,~(SP)

#PARMO, RS

PBSK

8%
#PARMI , RS

W 4 W %2 %

i PUSH R2 ON STACK

GET ADDRESS OF PARMO

1S PARMO PRESENTLY SELECTED?

vss SKIP
"ELSE GET ADDRESS OF PARM 1

CZR6ERCO RKG11-06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
4362

016184

010S00

4363
4964
4965
4366

016146
016152
016156
0161

013702
osa7g8
0162
162

4968
4969

0161
015153

1
16220

4367

4970

0161

oxgg

4371
4372

016206
0l6ele

4974

(016222

4973

4975

4976
4377
43978

125

12558

01
016220

002

QOlee26

012737

016416

815;23
012
042703

016260
016264

000014

33;3 S{ESEE ggo

000010
100000
177770

600010

000000

4981
4982

(10362
01273;

000026
000061

000000

762

200

000000

43983
4984

016272
016300

4986

016314

4985
4987

(016306
016316

43988 016322
4989

016330

0137
737
1007

737

032765

0010

023600
000377

023632
023616

023634

;GET WORD COUN

RKOC(R3),

{GET

(RO)+

P.PRST(RS)

RKDS(R2) ! (RO)+

;RET STATUS REG

868, A. RBNL

‘SET TIME ouf

: INSERT DRIVE NUMBER

MOVB
MOV

R3,RKMR1(R2)
#1 RKCSI1(R2)

:SET DESIRED srnrus BYTE SELECT
:D0 DRIVE SELECT

MOV
8IsB

BIT

BNE

W.S5EC, W.DRV
#377 W.TIME

8RDY, RKCS1(R2)
TCH

18
RKCSl(Ra)
[ ;
#DRA,RKDS(R2)
S§
RKMR2(R2), (RO)+

INO - GO TEST READY AGRIN
:TEST CS1
FOR ERROR
IYES ~ SKIP
;TEST IF DRIVE AVAILRBLE
iNO - PRINT WARNING
:STORE BYTE R

CMP

R3, 83

(TEST IF ugno 3 RETRIEVED

000036

MOV

000177
015036

BEQ
INC
BR
MOV
MOV

4§
R3
33
#177 ,PRTCONCRS)
#DRVERR,A.ABNL

MOV
MOV

(S5P)+ R2
(5P)+ RO

4998
4999
5000
5001
002

016366
(016370
016372
016374
016402

03
000732
012765
012737

004
5005

016412
016414

012602
oxesog

5007

016420

5003 016410 012603
006

016416

00020

016432

005046

016442
0le442

000757

104401

003240

000064
023564

5008 016424 012766 000077 000064
€009
i
0O00C0O00

6010

016434
016440

012746
000002

4$:
7§:
6%:

S§:

016442
6YS:

.SBTTL

; ¥ENTRY:

:CALL HIM

BR
TST
BMI
BIT
BEQ
MOV

000003

000034

rsc

schoro P.PRST(RS)

355

0l6e

,ssr UP TIMEOUT DURRTION
g
unrcu DOG SOMETHING TO TIME

BIT

(016362

016356

RETURN

R3,RKCS2(Re)

4997

4936

STATUS

RKCS2(R2) . R3
:GET CS2
TO STORE DRIVE NUM
8CCLR,RKCS1(R2) ;SET CLERR CONTROLLER
81777%0,R3
:CLERR ALL BUT DRIVE NUMBER

007765
00- b2
100427
032762
801423
15258

000012

:CLEAR PROG

MOV
MOV
BIC

8153
016334
016340
(016342
(016350
(16352

000001

*R;? SYLINDER

CLR

BNE

2%:

FER nooness
2IRED ADDRE
SS

RKASOF (R2), (RO)+' :GET AT
RKER(R2), (R0)+ ;GET ERROR nsc

4990
4991
4932
4993
4994
4935

000000

;GET
1GET

MOV
MOV

JSR

000100 000014

RKWC(R2), tROY+

RKBA(R2).(RO)+
axontss),(nn)+

EEE
1S:

:GET PARAM BLOCK RDDRESS

MOV
MOV

MOV

3s:

RS, RO

RKBAS , R2
'GET RK BASE ADDRESS
sP_CSi, RO
:BUMP BASE TO REG RETURN ENTRIES
RKCS1(R2), (RO)+ ;GET CS1
RKCS2(R2) . (RO)+ ,gET cs2

MOV
023564

SEQ 0092

MOV
RDD
MOV
MOV
MOV

000016
000014

000012

MOV

000020

01620

81&?34
016240
016246

8%:

023554
000016
000000
8880

016216

gososs

BO8

MACY1l 30(1046)
02-DEC-77
11:59 PAGE 93
READ RKS11 AND DRIVE STATUS REGISTER ROUTINE

MOV

RKMR3(R2)| (RO)+ ;STORE BYTE B

(SP)+,Ré

RTS

CLR

-(SP)

TYPE

MOV
MOV
RTI

-DID HE TIME OUT?

sYES- TYPE WARNING AND EXIT

NTVD

‘YES
- EXI
: BUMP n TO NEXT WORD NUMBER
GO
IT
;SET PRINT CONTROL
:RESTORE DRIVER RETURN

: ;POP STACK INTO R3
:POP STACK INTO R2
::POP STACK INTO RG

: TYPE WARNING ABOUT STATUS VALID

&77PRTCON(RS) ;DO NOT PRINT STATUS WORDS
#6438, - (SP)

1.PUT NEW PS ON STACK

:PUT NEW PC ON
~STACK
::POP NEW PC AND PS

ERROR RETURN FROM DRIVER (CONTROLLER ERROR)
JSR

lRETURN RTS

;E CONERR WITH RS POINTING TO ACTIVE PARAM BLK

CZRGRCO RKB11-06 USR DEF INED

CZRERC.P11

02-DEC-77 11:07

MACY11 30(1046)

11:59

cOo8

:#0CCURS WITH THE CONTROLLER ERROR BIT SET
bblE;;l!Illlllilllll!llllll!llllllillllllllllillllilllll!llilllll

016444

oy B

BLIER
$7.D

95
BieisR A38997 BR835E‘ (QEASES
soag oxs:sq 001402
§§Ss 8;%“93 68%795 886630 162440 1§:

By
gsgs
ggg

.Suio S8R
gguls,asua

5031
soag

BPL
TYPE

3%
SDETER

667

50%3 815?8? 8?3953 023570

s
6036

15503
1651

100002
[

o01402s

Slecls 020127
Do

000040

16514

5040

O016L'2
01686
016530
016532

§{2533

001402
005721
000771

016137

séwé 1s§wn 6933§6

023454

6043

01654

004737

016120

gg:s

1 27

o?oggx

5037
€038
€039

50Uy

gxsggs
{g

023570

33:

016544

023452

5052 016614 004737 016622
016620

MOV
CLR

9§:

108:

2%:

000207

BEQ
TST
BR

.uoso

ETABL(R1), 108

JSR

PC, READRG

co GET RKb1l RE

gége

;1 855%3R

PC, sucour

:GO_TO SWITCH CONTROL

CLR

CLRB
Hov
MOV
MOV
JSR

: XENTRY:

~JSR

061

5062

5069

0166

8070

6071

016630
016632

OF ERROR MESSAGE

SS OF nsssncz coes HERE

gnn conrngkksn snnon WORD
ERROR FLRAG

E#
5CLE§5RROR FLAG
()2, RDRKCSE(RE) CLgna
11006 2TACk
INTO RO
c§CLR
CONTROLLER
#1E, RKCSI(R2)
;SET IE AGAIN

sgg

PC, SWCONT

PC’

IF NO LOOP OR HALT

gEPERR,(SP)

IF LOOP ON ERROR

Egsgg ?gfiglgus TO EXECUTE NEXT COMMAND OR LOOP ON
HALT

IF HALT ON ERROR

100000

162310

: « 3636 36 3 36 3 3 3 3 3 36 3 36 3 3 3¢ 3 3 3 3 3 36 36 3 3 3 36 36 36 36 3 3 36 3 3 3¢ 36 36 36 36 3 3% 3 36 3 I 3 3 3 3 3 36 36 36 3 3 3 3 3 2 3 3% %
SLCONT: BIT
#SW15, 3SWR
;TEST HALT ON ERROR

032777

001000

162276

1S:

152737

000001

001103

001401
000000
001411

016656

005046

6072 016652 013716 00.i110
S073

E.LONT

;?$T

032777

016642

016644

SHICTESRO0
SO LEEL TOcTESE °17 19
JTEST IF ALL BITS TESTED

;3;

sggg

5067
5068

:GET ERROR WORD

:GO REPORT NO ERROR ENTRY
iBUMP R BY 2
;:LOOP

:RETURN RTS

016622

i:NO8E T -L O3
¢ rror
BRANCH
1NH?8?§K§§1¥5°EXIT

RTS
PC’
:RETURN
;QE#;t!!g::#gfilgg;#;stl#Eg#lI'!llil!l!!illllll*l!lilllill!l!!l*!li

5056

5066

iU
R O STANK
T DONE

9’
(R1)+
8%

gggg

2883
5065

E.CONT,RO

=R
CMP
R1, s40

S04 81&?90 ?8203; Sagqsg
2049 oxssoB
16278 81595%
o1 ocos 000040 000010
50
5051 016606 0127
000100 000000
5053
gggg

SEG 0093

; #THIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR

BRIzl
Bigmue
4

503

PAGE 94

ERROR RETURN FROM DRIVER (CONTROLLER ERROR)

5018

205]

02-DEC-77

BEQ
HALT

BIT

#SW9, ISWR

BEQ

CLR

-(S

BISB

MOV

ERFLG

SLPERR (SP)

:TEST LOOP ON ERROR
:SET ERFLG TO LOOP ON TEST FOREVER

:FUDGE RETURN FOR LOOP
::PUT NEW PS ON STACK

CZR6RCO RKb611-/06 USR DEFINED
02-DeC-77 11:07
CZR6RC.P11

8f7d BieEQ BABade °'°°*°

S076

016666
016666

000207

MARCY1l 30(1046)
02-DEC-77
11:59
SWITCH CONTROL TEST

D08

PRGE 95

MoV
RTI

#64S, - (SP)

es:

RTS

"SBTTL

PRINT LOOP COUNTER IF NOT ZERO ROUTINE

64S:

S+ RIILEI I I I I I

5079

;;PUT NEW PC ON_
STACK
1!POP NEW PC AND PS

i RETURN

RN SRR

< 36338 3036 362636 30 0608 06 90 06 638 08 30 3036 06 00 30 0 9000 06 00 00 00 1030 30 06 0303000 06 30 00 00 3030 00 00 3 0 3000 3 030 0 2 30000 0 0 308

016670

005737

001722

PALPCT: TST

LPCNT]

s TEST IF LOOP COUNTER ZERO

SO08S

016704

J12746

001;22

18:

;chngx =(SP)

;GET ngonssg OF LOOP COUNTERS

S088
5089
S030
S091
S09e
93

0167
0i6722
016724
016730

104401
000000
104401
000207

T 9017
001724
0 figa i

8 BlerR B hron
003411

= 0t e

s s e

e = O

O O

O NGNS
NSNS
ey
T

MY UMD MY b

. WORD

;RESULTS GO HERE

ERROR REPORT PRINT ROUTINE

(TRAP CALL):WITH R2 A SWITCH SUCH THAT
IF NON-2ERO THE OCTAL TYPE
ngIS aoavrs AND IF ZERO 1IT
WORD.
:WITH RO CONTRINING THE

]

FPRINT

ADORESS OF THE DATA TO

i¥

016754

5§$bhe SE¥EL§§OpOR PRINT

'8BTTL

; #RETURN:

005702
001403
005046
12016
0401
012046
104402
104401
000002

#EPLQBL

L &

S098
5049

016732
016734
016736
016740
016742
0le744
016746
016750

(Ep?2,8§3°

éége
RTS

wiwswswr
@

UMY UMV

MOV

s 1F ZERO - EXIT

;XENTRY:
‘a

S095

[l o

2s:

;-ll*ll!l!lil!lllllll!flillllill*lllll!!lll!llllililll!lill!lllll

v st gt At
i nninidiun

BNE

BE TYPED.

RTI

--lilli!!l!!*llllsillliiii!!ll!lllll!llllllllllllll*lillllllil!ll

FEPRINT: TST

003530

18:
2s:

:TEST IF BYTE OPERRTION

BEQ
CLR
ggve

18
-(SP)
(§0)+,(SP)

:BRANCH IF NO,
ELSE
:CLERR WORD
STACK
iMOVE BYTE FOR PRINT ON STACK

MOV
TYPOC

(ROY+,-(SP)

;MOVE WORD ON STACK
; TYPE BYTE OR WORD

TYPE

RTI

, SPRCE2

s RETURN

;-lllIillllll!!ll&llllill!!!ll!l‘li!!!lllllil!ii!l!!llil!lll!l!l!
'8BTTL STATUS conpnng EXECUTION
i XENTRY:

‘x

'y
2]

JSR

RY, ESSC

«(STATUS WORD NUMBER>
(EXPECTED VALUE>
(HQ?K)

;:RETURN:

RTS

;lTHIS ROUTINE FIRST GOES 10 THE DRIVER PRRAMETER BLOCK TO CHECK

;l{F THS STATUS
HAS
READY BEEN R$TRISVED QNg STSRE? THERE.
;#IT
35, THE_STATUS
IN THE
AMETER
BL 2K 1S
USED
IN THE
s #TES
IF STATUS HRS NOT BEEN STOR ED
DRIVE SELECT

:¥SPECIAL IS ISSUED TO THE DRIVE TO GE} ALL THE STATUS

; #WORDS.
s %

;¥THE COMPARE ONLY TESTS THE BITS THRT CORRESPOND TO ONES

s %IN THE MASK.
_IF A M%SCOHPRRE QCCURS THE _NUMBER OF THE
#STATUS
WORD TESTED,
THE EXPECTED VALUE, THE
RECEIVED VALUE,
’

CZRBRCO RKb611-06 USR DEFINED
CZRERC.P11
0e2-DeEC-77 11:07

MARCY11 30(1046)
02-DEC-77
11:59
STATUS COMPRRE EXECUTION

gxga

017610

2133 217818 84823 2iile

Essc:

SR
Giftk BeRy
Boieks
€137 017626
012705 002230

£
Qifen g 001000 oo s
140 017642 112765 000141 000001
6141
§142

017650
017654

514y

5143

5§45

0176

004737
812400

013570

2%:

12401

2402

865300

i §17s;g
Bizesy 8??88g
eaig coooe
5148
S149
017674 005102
€150

017676

040201

5153 817704 001447

sxgq

017706

022777

002000

6156

017716

10440]

001164

5185

017714

OLI402

161224

17610

MERoReTe

gl
MOVB

ggeSVALPeRsTRG
T STRRS D gl
SRDSTAT, P.CMND(RS) ;SET TO DO READ STATUS

O
MOV
#PARM] , RS

G0’ 70 DRIVER CALL
:STORE STATUS WORD NUMBER

MOV

(RY)+.R2

:STORE

MOV

6160
162

017736
017792
017744

013746
10440S
104401

164

017754

0l2446

161

€163

§165
5166

€167

017750

017728
0177

017774

0110496

§171
§172

017776
020

S174
§17S

6176
gigg

2{;3

§18]
§182
5183
5184
€185

104402
104401

012446

017766
017770

6173

104401

017764

S168
S169

§170

162704

020006
020010

0200i4
858853

104402
104401
104402
104401

012446

00111
014061

014520

BIC

R2,R1

BEQ

3s’

JEQUAL - EXIT

883533

016622

004737

016670

"BELL ON ERROR?

vt ;

BNE

MOV
TYPDS
TYPE

LIANNUM, -(SP)
,PLINE

:PUT LINE NUMBER ON STACK
JLARBEL *7

MOV

tRY)+, - (SP)

*GET _STATUS WORD

TYPE

SBELL

86, RY

'BACK UP RY TO PARAMETERS

SCERR

JSR

STYPE IT

PTYPE STATUS COMPARE ERR

GDDAT

STYPE IT
:TYPE LABEL

BODAT

STYPE IT
:TYPE LRBEL

MSKLAB

‘TYPE IT
:TYPE LABEL

IRY)+,-(SP)
PC,PRLPCT
sg,suconr

*GET GOOD WORD

:GET BRD WORD

$GET MASK

‘EETflSNS“ITCH CONTROL FOR LOOP

'8BTTL
REGISTER COMPARE EXEC 1] TIgN
:
L
o o B3N I6 32U

- BRANCH

STYPE IT
PTYPE LABEL

tRQ), -(SP)

%§g

'YES

STWDNM

MOV

TYPOC
TYPE

- BRANCH

s INHIBIT PRINT?

tR4)+,-(SP)

MOV

'NO

kSWI3, aSWR

MOV

TYPOC
TYPE

gg:

:CLERR UNTESTED BITS IN

BEQ

TYPOC
TYPE

014504
014571

#5W10, ISKR

TYPOC
TYPE

014467

MASK

:SHIFT ST WO FOR CORRECT INDEX

R
Ol
:: COMPLIMENT
STORE ir
MASK

TYPE

014550

:STORE EXPECTED VALUE

S
MOV
(RO),R3
coM
R2

BIT

000006

104402
104401

(R4)+ R1

ASL

SUB

(17732

HEST
P alock Bitron
:ELSE s;r RS T0 BLOCK 1

PC, DRVCAL
(R4)+,RO

001033

SRARERENT. CINE COUNT

JSR
MOV

BIT

0177

SEQ 009S

5157 017755 03277% 020000 161210 4S:

§168

PRGE 96

; #AND THE MASK ARE REPORTED.
Iy Y YY1 2222222z222222:2:222:X:x2:XXXX:12:XXX2XX2XX2XXXX2XTXTX2LTLY

8
131

EOS

3600 036 36 36 36 3636 3 36 36 3 3 3 36 36 3 3 3 3 3 36 36 3 3 3% 3 3 3 3 3 3 3 2 3 2 2 % % 3% 3% 3 % % %

S%ENTRY: JSR
RY
ESREGC
‘x
CREGISTER NUMBER>
' x
(EXPECTED VALUE>
;#
(MASK)>
!#RETURN: RTS
RY

CZR&RCO RKe&11l
CZRERC.P11

06 USR DEFINED
0e-DEC-77 11:07

MACY1l

186

#17T TO THE EXPECTED VALUE.

iIN THE MASK RRE COMPRRED.

A COMPARE PR
i#IF

&VQLUE READ, AND

g2le

02006

6214
5215
5219
2!
521
821
s
5c21
sceg
g2
Sced
6228
S22

(0200
020074
0c0100
C°,0106
020110
201%3
1
020122
850153
0l
02013
020136
020142

1402
éngo
27?7
001033
6&2704
3738
1044
104401
04401
12446
104402
104401
012446

€8
€229
5230
8231
5232

146
020152
020154
020122
0201

104401
010346
1044
104401
012446

0200?;

858194

11003
10300
102

nunwn
o
L LW
-0

ASL
RDD

023554

104402

J0116
020000

MOV
MOV
coM

BIC
BIC
CMP
BEQ
BIT
BEQ

004737
000204

161046

161032

3%:

00000%
001116

BIT

BNE
SuB

2s:

R2,Rl
Re.RO
RO,R1
18
#SW10, AISWR
38

; IF ZERO,

INHIBIT PRINT?

kSW13, aSWR

tRY)+, - (SP)

MOV

R3,-(SP)

YES - ?RQNC

REPOS

GDDRY

BDDAT

tR4)+,-(SP)

JSR
JSR

AC,PRLPCT
PC. SWCONT

MSKLAB

;GO0 TO SWITCH CONTROL FOR LOOP

RTS

"48TTL

DATA COMPARE EXECUTION

(NUMBER OF WORDS>

JSR

MP EK I0R
R NUMBER

REGLRB

18:

: XENTRY:

JON R4 FOR REPORT DRTR

LINE NUMBER ON STRCK

RCERR

MOV

ENENERE RN

BRANCH

- BRANCH
NO
RING BELL

28
86, RY

MOV

NO ERROR.

BELL ON' ERROR?

SBELL

tR4Y)+,-(SP)

TYPOC
TvPE

SS
TE
C
{GET CONTENTS
COORE RGR¥N FOR REPORT IF ERROR
flflgk
EMEN
UNTESTED BITS IN EXP. VAL.
;CLEAR
;CLEAR UNTESTED BITS FROM REG
,COHP TWO VALUES

(RO) . R3
R3,R0
R’

MOV

TYPE

REGNUM CORRECT FOR INDEX

RO
RKBAS, RO

,PLINE

TYPOC

014504

GET REGISTER NUMBER
iGET EXPECTED VALUE
GET MASK

(R4)+.R1
(R4)+. R2

TYPE

TYPOC
TYPE

; INCREMENT PSUEDO LINE CNTY

(Rq)+ RO

LIANUM, -(SP)

TYPOC
TYPE

014467

L INNUM

MOV

TYPE

014633

Dlebel

TYPE

TYPDS

014061
014601

2533 02016 104401 oivs7y
£23S 0201?3 004737 016670
020176
020202

MOV

MOV
MOV

002000

THE EXPECTED VALUE,

!illlillIllllllllllllllllllIll!llillll'lllillllllll!lillll!l*!l

ttnscc INC

001116

Bu0Sa0
0001
14427

THE REGISTER NUMBER,

—0

005237
012400
812401
12402
006300
863700

CES AN ERROR,

HE MASK ARE PRINTED ON THE CONSOLE.

020026
020032
020034
020036
020040

2570
853028
6211 028823

5236
5237
5232

T BE SHIFTED LEFT ONE BIT BEFORE IT IS USE D RS THE INDEX.

004
Qe
020052

se2e?

R 611

THA
THRT CORRESPOND TO ONEo
ONLY T HE BITS
I

!THE REGISTER NUMBER RPPEARING IN THE PARAMETER 1 S_AN 0CcTAL
; #VALUE .
HIS VALUE IS USED RS AN INDEX TO SEL ECT THE DESI R o}
iREgISTER
SINCE THE REGISTERS RRE ON WORD BO UNDAR IES , _THE VALUE

5206
€207
528

g8el3

SEQ 0096

ITHIS ROQUTINE DIRECTLY RCCESSES THE DES IR ED

18?7

€188
2199
1390
§191]
€192
$193
SI94
€195
5196
§197
198
5199
5200
S201
€202
€203
S04
520S

FO8

PRGE 97
30(1046)
02-DEC-77
11:59
REGISTER COMPARE EXECUTION

R RN RN

RY,E.DATC

AR RN

R RN

SRR RERRRRRN

THE

CZR6RCO RKB11-06 USR DEF INED
CZRBRC.P11
02-DEC-77 11:07

MRCYL1

38&%0“6)
02-DEC-77
11:59
A COMPRRE EXECUTION
;#RETURN:

RTS

GOS8
PAGE

SEQ 0097

:#THIS ROUTINE WILL COMPARE THE CONTENTS OF THE INPUT BUFFER
;#TO THE CONTENTS OF THE OUTPUT BUFFER.
THE NUHBER OF

IHORDS COMPARED IS SPECIFIED RS THE PARAMETER
IIF MISCOMPARE OCCURS,

THE GOOD RND BRD WORD

:zfggaPS?NTED
MmaER
b THE HoR1 "Iscongsgggnpnaso&
: #PRINTED UNLESS SHITCH REGISTER

;#CASE ALL MISCOMPARES ARE PRINTED
8253

020204

8256
gggs

00212
oeggég

2s2d BEs%

2509 989558

SN0 0000000000 00 00000000 0000 000000 00

013700
0{3301

RAeide

S267

>
24

001710
001706

14
7

2571
S278

o
Gc .2

MOV
MOV

OBUFPT R1
(R9)+,R2

:START OF OUTPUT BUFFER
; COMPARE COUNT

uys:

053
703

160666

2s:

160652

2573 R578 B9 ooiiie
2777

000002

S31

020324

104401

014434

0. 0334

104401

001171

00
OWw
— M- nNonN

28828

532=8

00314

5279

RIRRILRAIAR
A “uno
JRRLORZBIBSEREER

o
2578 §L3§f§ E
1 ?3%4

ool

1606186

3%:

BNE

ggc

Eognr rgz COMPARE LENGTH

BR
BIT
BEQ
TYPE

18
#SW10, aSKR
c$
$BELL

:LOOP
:BELL ON ERROR?
:NO BRANCH
'RING
BELL

BNE
TST

128
R3

*YES - SKIP PRINT
nnv snnons YET COUNTED”

MOV

LINNUM, - (SP)

Py LI

INC

138:
118:
160540

RS
(ROY+, (R1)+

RS
118

kSwW3, SR

'ERROR COUNT

:CLERR COUNT FOR REPORT
con RRE DATA
RR

counr FOR PRINT

SINHIBIT PRINT?

; Rgn AN éNE
NUMBER

NUMBE

TYPDS
TYPE
CMP

PLIN
ha "l

. TYPE
fi 25 5
ESY
FOR TO MANY ERRORS

éT

:gux, 3SWR

TE?T su}rcu & asr

TYPE
MOV

FDATC
RS, -(SP)

:TYPE DARTA COMPARE ERROR
SRROR u?no POSITION

TYPE
CMP
MOV
TYPOC
TYPE
MOV

, SCRLF
Z(ROJ, -(R1)
(R1)+,-(SP)
GDDRT
tRO)+,-(SP)

IRETURN CARRIAGE
'BACK UP DATA POINTERS
1G0OD WORD
'TYPE IT
:TYPE LABEL
eno WORD

TYPE

BDDAT

LRB L IT

8LOS
Q

TYPOC

014504

020000

BIT

TYPOC

014467

INPUT BUFFER

CLR
CMP

BNE

6S:

:START OF

CLR

25e8 & 5 OB ooriew
€570 O ;g §§:777 000004

’!Nggs NT PSUEDO ane COUNTER

18:

002000

R?knun
S, -(SP)

IBUFPT RO

PUSH RS ON STACK

AR AR

ttoflTc MOV
INC

MOV

SceS
Se

ooiite

R R AR

138

égc

TST

BIT

#Sid13, ISKR

BEQ
BNF

NO
- SKIP SWR TEST
T WITH

ERRO

RIN

TYPE

:COUNT ERROR
s TEST IF ANY ERRORS OCCURED

148

iNO - EXIT

128

:YES, RETUR

‘CHECK IF INHIBIT TYPE OUT

CZR6RCO RK611-06 USR DEF INED
. P11
CZRBRC
02-DEC-77 11:07

743308

£538
S$300

IDH;O;

884737

MACYI1l

30(104¢)
02-DEC-7?7
11:59
NDATA COMPRRE EXECUTION

01260S
000204

SEQ 0098

PUT ERROR COUNT ON STACK

TOTMSC
AC,PRLPCT
PC. SWCONT

LRBEL I7

;gg:

TYPE
Jgn
J8R

MOV

(SP;+,RS

. :POP_STACK INTO RS

'LBTTL

<(VALUE>

TYPE

;GO TO SWITLH CONTROL

RETURN TO OBJECT CODE
llIlllIl%llllilll!lll!lllll!llillilillllllllIlllll!lllliilllill

NTRY:

(&E Eh§

rRETURN RTS

O
0 NN
L Whe—

L)
pe brbs Pms ps Pt Pt

R3,-(SP)

l
v
[NINIRIN RINININININ

PAGE

MOV

TYPOC

003273
16670
16622

HOS8

ITHIS ROUTINE PLACES THE VALUE GIVEN IN THE REGISTER
;#SPECIFIED. NO ATTEMPT IS MADE TO PROTECT THE USER
: #AGAINST WRITING READ-ONLY BITS OR AGRINST CAUSING

; #UNEXPECTED INTERRUPTS.
020426
00432
020434
020436
020442
020444

005237

012410
000204

<RI

EbRW:

001116

IO RO

023554

INC

MOV
RSL
RDD
MOV

RTS

;enrnv-

0 000 3 0 00 00 30 0B 000000 00 00 0 0000 00 000 0000000000

L INNUM

(R4)+, R0
RO
RKBAS, RO
(R4)+, (RO)
R4

"&BTTL

STALL Exscurxon

: INCREMENT PSUEDO LN CNT

IGET REG NU
:ALIGN RO tnscxsrsn NUM) FOR INDEX
:COMPUTE RDDRESS
;Lono VALUE
; RETURN

R RN
R RN

M OF nILL SECONDS>

;nsrunn- RTS

&USED FOR THE DELRY TIM
020446

005237
012737
012437
112737

001116
000340
023632
000177

812337

001704
020s1e
023634

004737

012737
000204

001704
015036
000000

iilllllllll!lil!!i&*!l!&llllll!ll!lllll!llllll!lllll*!ll!iill*i

177776

EdsT:

023616

023564

023564
177776

18:
2%:

: INCREMENT LINE COUNT

INC

L INNUM

MOVB

8177, a TIME

MOV

MOV
JSR

oet
NL
Pc,a.uTc

MOV

TEMP2

MOV

apno ps’

s%%ag ALL INTERRUPTS

MOV
MOV

MOV

8PR? . PS
(R4)4 W.DRV
TE"PS

'LOCK OUT ANY INTERRUPTS
;Lono MS DELAY INTO TIMER

TIHER TO THINK IT IS

.unr HINGR DRIVE

'STORE STACK POINTER

se UP TIMER RETURN
RLL TIHE
%

ESTORE STACK POINTER

oonvskn A.ABNL ;RESTORE ABNORMAL RETURN

llilllllll!l!*iilllllil!il!lllfil!li&lillll!!lllll!!i*ll!lllllll
RTS

"48TTL

; ®ENTRY:

BUFFER INITIALIZE EXECUTION
JSR
RY,ESBI
(EXEC UTng LINE COUNTER CONTROL> <PRTTERN>

l
!RETURN RTS

lTHIS ROUTINE FIRST CHECKS LINE COUNT CONTROL AND IF R ONE

RGRCO

RKB11

SR DEF INED

E%Rg E?P11 ! /85 Hec 77 11:07

MACY11l

5354

BUFFER INITIALIZE EXECUTION

PAGE

100

SEQ 0099

005714
100002
005237

§364
§365
€366
6367
5368

020554
0205
0205
020574
oeosgg

3737
063737
013702
012401
680127

020546

0206

0604
8§5514

llllill!!lllllllilllll!l!llIll!llll!llllllill!llIlil!llllllll!l
.=20536

020536

0205
020533
oS42

£
§§;?
gg;g

108

;eurrsn IS INITIALIZED.

§360
§361
5362

629

11:59

lTHE SELECTED PATTERN IS THEN GENERATED AND THE ENTIRE OUTPUT

6357

6363

02-DEC-77

;xncnsncnrs LINNUM.

EEEE
5358
5359

30(1046)

013737

1004

85 610 868?3

12?683

001116

001706

001700
001700
001706

88%238

000130

sga?

ggflsgg

63?685

6383
sagg

020660
85(

007567
120627

5337
65 8
6389

02N674
02ub?6
020702

005003
012700
010122

2355

059778

88339

5335

020;15

120123

000102

238?

850340

65?127

000103

5403
404

020746
020750

010103
000752

€408
S409

020764
020766

010103
000743

530 0oU6Ed 012701

000132

001462
000101

%gas 050670 8?%76? 177777

5330 0207

810322

2333 858313 868%2?

001704
001704

BPL

1S:

MOV

2s:

000122

>
Eg;g
8352&5
§25Tg%
88}588
5376 020632
(20127 000131
S37 oo BOlgRy
3332 8502:3 868%9% ool
<k

001704

ssax:

000036

2339 858 g5 88%881
7
2332 8583%3 868;2? 17777
€402 0ef74e 012501 125252

2406
050726
bR
be oooio
8407
020760
012701
052525

7ST
INC

(R4
L INNUM

s TEST IF LINE COUNT TO BE INC.
:BRANCH IF NO
xnc LINE COUNT

ADD
ADD
MOV
MOV
énge

MAXWDS, TEMP2
nnxuos TEMP2
OBUFPT 'R2
(R4)+,R1
gé #'R

THE LAST USABLE BUFFERLOC
:D0_RGAIN FOR LA T eurr ADDRESS
:SET BUFFER POINTE
:GET PARAMETER
zgnoon PATTERN?

MOV
JMP
gnga

268

$PATR,R1
gé,o'x

:GET RDDRESS OF STORED PAT
GO INITIQLIZE WITH PATTERN
Pg

IMP
CMPB
e
BR
MOV

3%:
4§:

OBUFPT, TEMP2

SPATX,R1
268
R1,8'Y
e
268

PUTE AND STORE

co
INITIRLIZE WITH PATTERN
P
I
s
‘GO INITIALIZE WITH PATTERN
'GET ADDRESS OF STORED PRY

gé,s'z

Pn 27

S$:

BR
ggga

26$
Sé"'“

:GO INIT anzs WITH PATTERN
:TEST IF PAT

6S:

CLR
MOV
MOV

R3
#36, RO
R1, {R2)+

:0THER 30 WORDS
:SET COUNT FOR OTHER 30 WORDS
'PUT IST WORD IN BUFFER

eVv

8O
R1, (R2)+

;PUT LAST WORD OF PAT IN BUFF

8%:

gnga

gé,u'e

-fio B”

qs;

gnza

Ré 8'C

IPAT C?

MOV
8R

R1,R3
6§’

:0THER 30 THE SAME
GO _INITIALIZE WITH PATTERN

MOV
BR

R1,R3
X3

:OTHER 30 THE SAME
:GO INITIALIZE WITH PATTERN

78:

10s:

gnga

MOV

CBR
MOV
BR

MOV

LNEB
MOV

#PATZ,RI

8177777 R1

R3. (R2)+

28¢

Ri????? a3
)
,
68
$125252,R1

Rig*P
#052525, R1

GE noo RESS

;1ST AND LAST WORD OF PATTERN

;PUT IN OTHER 30 LOOP

:GO SPRERD THRU BUFFER

°§Hsgng0Lngrogoao OF PATTERN
:GO_INITIALIZE WITH PATTERN

:1ST AND LAST WORD OF PATTERN

iPAT
D”
:1ST AND LAST WORD

CZR6RCO RKB11/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07

S410

020770

120127

000105

020776
(021002

012701
812700

000001
000020

021010
021012
021014

005300
001403
006301

411

02077M

g414

021008

S412
6413
6415
€416
6417

001083
10122

2419
251818
B35
S420
021622
2701
S42l

021853

187go

100000
000020

JO8

MACY1l 30(1046)
02-DEC-77
11:59 PAGE 101
BUFFER INITIALIZE EXECUTION

118:

12%:

138:

S424 oaxggg §§1sxo

2156
051948 898524
6427 021044 120127 000106
428

021050

001016

8430

021056

O0l27

5429

S431

oexgsa

02l062

815786

010122

E432

851054

435

(21072

S4y40

021106

021112

00102!

6444
S44s

Q021122
021126

158:

177777

pocoe1

005300

6436
E437

E441

S446
S44?
448
5449
6450

0216794
851100

S4c4

S4S5
€456

6457
6468

8469
6460
6461
462
€463
€464
465

021152

021164
021156

168:

RI,lR2)+

DEC
BEQ
ASL

RO
138
R1

MOV

#100000 ,RI
820, RO

BEQ

28$

Y
BIC

B
CMPB

:BASE WORD INTO BUFFER

:DEC COUNTER
:1ST HALF GENERATED, EXIT
:TWO OPERATIONS 1O

CORpLNUE
THE PATTERN
:SET BASE FOR SECOND HALF
:SET A COUNT

'PATTERN GENERATED, GO SPREAD IT
1]

ds
RI,®'F

IPRT F?

8177777 Rl

:BASE WORD FOR PATTERN

MOV

RI,{R2)+

:PUT IN BUFFER

Bee

R TP DR CRE T NG OF PAT

BNE

MOV
DEC

184

821 RO

16%

i SHIET FOR NEXT WORD OF " PAT

:SET COUNTER

'DEC COUNT

:SET BRSE FOR 2ND HALF
:SET COUNT

120127

000107

188%:

CMPB

R1,#'G

‘PAT G?

012700
010122

000020

19§:

MOV
MOV

820, RO
RI, LR2)+

'SET COUNT
:PUT IN BUFFER

006001

000020

20%:

218:

5300

881442

021164

012701

000001

021176
021200
021202
021204
021206

005300
001402
006301
00077.
010122

001017

012700
010122

BNE

DEC
BEQ
ROL
BR
MOV

000020

228

:DEC COUNT
CEXIT_1ST MALF IF ZERO
:SHIFT
PRTTERN
:LOOP
:SET _2ND HALF COUNT

MOV

R1, (R2)+

;PUT IN BUFFER

BEQ

28%

ROR

BR
CMPB

BNE
MOV

31%:

23%:

22$

RO
208
Ri
19%
820, R0

DEC

000110

(021170
021174

MOV

#100000, R1
$17,RO

0773
(20127

02liee

;BASE WORD FOR PATTERN GEN
:SET A LOOP CNTR

BIS
MOV

860122

021150

#1,R1
820, RO

178:

021146

g453

6452

MOV
MOV

100000
000017

005300
881402
6101
000773
012700

021144

:PAT E?

15¢

0S2701
2700

021130
021132
021134
(021136
021140

g4S1

Ri,®'E

BNE

MOV

21 051058 Doeads

000773

CMPB

MOV
MOV
DEC
BEQ
ASL
BR
MOV

218
R1,#'H

24d

$1.Rl

s20. RO
RI, tR2)+
RO
23%
R1
318
R1, (R2)+

:SHIFT THE PATTERN
:DEC COUNT

;

:LOOP
‘PAT H?

;BASE WORD FOR PATTERN

:SET COUNT
'PUT IN BUFFER

:DEC_COUNT
"EXIT IST HALF IF ZERO
:SHIFT PATTERN
:LOOP
:PUT LAST WD GENERATED IN AGRIN

SEG 0100

CZRERCO RK611/06 USR DEF INED
CZRERC.P11
02-DEC-77 11:07

466

5467
5468
6469
5470
6471
472
473

S474

021210

851253
12
021222
021258
0212
02123
02123

40
8475 8511544
5476 oexegg
S477 85155
5478
€479
5480

S48l
6482

65483
Sug4
€485
6486

6487

6488
g489
5490
54a]
5492
6433
S494

5495
5496

012701

1 783
7
120127
1000
12701

12122 000040
0237 001704
1417

26%:

MOV

:SET COUN

001562

28S8:

DEC
BNE
CMP

012700

005741
0l2122
020237

021304

(021310
021312

:SET NEW BASE FOR 2ND HALF

248 :
258

010103
0917

000017
000111
155555

#40000, R1

:SET COUNT
:GO_USE PREV GENERATE OPERATION
JPAT 1
:NO BUT roncs usz OF PAT 1
JWORST CASE
P

(021270
021272
021274

021302

MOV

$17,R0
148
Ri,s'l
254
8155555, R1

300
001372
022701

021300

040000

MOV
BR
cMPB
BNE
MOV

1254
021256
021260

021264
02126k

KO8

MACY11 30(1046)
02-DEC-77
11:59 PAGE 102
BUFFER INITIALIZE EXECUTION

001007
010201

001373
000403

013701

278:

328:
001704

MOV
BR

MOV
CMP
BEG

(R5 (R2)+
R2 Thpa
305

BNE
MOV

29%
R2 R1

MOV

(R1)+

TST
CMP

BNE

001706

29%:

000753
000204

R1,R3
as

MOV

RO
278
8PATR,R!

JALL WORDS THE s ME
GO xnxranxzs WITH PRTTERN

:PUT IN BUFFER
:CHECK BUFFER FULL
'YES, EXIT
*DEC’ COUNT
:NG - LOOP

1)
(R2)+
R2, TEMP2
324

303

OBUFPT,R!

;RESET R1 TO START OF
:0UTPUT BUFFER. FROM THIS
JPOINT ON THE INITIALIZE
:PATTERN 1S SPREARD THROUGH THE
: OBUFF.
:LOOP
:RETURN

BR
268
308$:
RTS
RY
; l!llllllll!lll*llll!lllll!i&lli!lil!l!illl!!ll!llll!lllll!l*ll!
"4BTTL

PARAMETER BLOCK SELECTION

5497

: XENTRY:

5500
5501
gggg

*rnxs ROUTINE SELECTS THE PARAMETER BLOCK TO BE USED IN THE
: #NEXT OPERATION AND SETS THE PRRAMETER BLOCK SWITCH ACCORDINGLY.
4Rs IS LORDED WITH THE PRRAM BLOCK RDDRESS

5504
5505
5506

lIN ADDITION, THIS ROUTINE TAKES CARE OF INSERTING THE DRIVE
:¥NUMBER RND NO CHECK INDICATOR IN THAT PARAM BLOCK
‘%IT ALSO Incaensnrs THE LINNUM (PSUEDO LINE COUNT).

g:gg

6507

5508

021314

6E09
6510
5511
6512
6513
66514
6515

021320
021324
021330
021332
021336
(021342
021346

5517

831352

65516

8518
6519

6520
6521

JSR

;nsruan RTS

021350
021356
021360

021366
021370

005237

012705
105737
001002
012705
105137
111465
105714
100403

112437

000404
113765

105724
005065

o 3636 96 36 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 38 36 36 96 6 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 38 36 36 30 38 36 36 36 36 36 3 3 36 3 3 3 96 3 6 3 3% 3 % %

001116

PASEL:

002230
001670
000000

18:

002142
001670

001176
001176

000014

PC, PBSEL

INC

MOV
TST8
BNE
MOV
COMB
MOVB
TSTB

2%:

BR
MOVB

33
onxvs P.DRVN(RS)

3%:

1STB
CLR

;s INCREMENT LXNE NUMBER COUNT

cpnano,as
JSET RS WITH PARAMD
PBSW
115 PARAMO TO BE USED NEXT
18
1YES (PARAM1 WAS USED LAST)
#PARM1, RS
INO- SET TO PARRAMI
PBSW
'SET PBSW
(R4),P.DRVN(RS);MOV IN onxve PARAM
(R4)
uns 1TA DRIVE NUM

BMI

MOVB
000000

L INNUM

NO? GO CHANGE IT

(R4Y)+,DRIVE

vssv PUT IT IN PARAM STORAGE TOO.

R
PRST(RS)

: BUMP
CLERR PROG STAT WORD

:GET sronso DRIVE NUMBER

SEQ 0101

CZR6RCO RKGB11/06 USR DEFINED
CZR6RC.P11
0e-DEC-77 11:07

g522
Egsa

021374
851482

132714
Bgéflgg

00000

2252

Ssmg

?3 3

000002

gsgg

lhsg

6527

1416

1427

MACY11l 30(1046)
02-DEC-77
11:59
PRARAMETER BLOCK SELECTION

100000 000014

0400
000014
0004 O0CC007

2 Bsidap
1435 132768
@oURsQ 000007
23]
148755
BRARTS
6532 0214S2 001403

6533 021v + 152765 000020 000007
(02142 000207
S53S

LOS8

PAGE 103

SEQ 3102

BITB
B%Q

88AII, (R4Y)
B

; TEST BRI INHIBIT SWITCH
NOT SET, SK

4s:

Bé B

ggocx (RY)

,TEs’r 1 no CHECH

SS:

BICB

aig

BISE
Bi%8
BEG

s0TBARII,P RST(RS) SET FOR INHIBIT INCREMENT

sNOCHK,
P T(RES ssr ng L sns
#8.CDT CSlH(R
LD .NFO

DRVIYEMP.
°'°"“.S’?Rs> %«E‘%‘“
L
e
EeEm T
Teut
- SKIP TO EXIT

BISB
IB CFMT,P. CSlH(RS) :NO - SET THE 24 SECTOR MODE BIT
RTS
PC
- RETURN
li!liiiii!lilli{iiiil;illili&iiiii*&iiil;iilii;;i&1!*{!{11;!1!1

E534

ss-

gggg

SBTTL

gggg

lRETURN

g:?

lTHIS ROUTINE EXECUTES R UNIBUS INITIALIZE

5542

5543
SS44

5548
E546

-lENTRY

021464
(021466

Q021472

00000S
005237
000204

UNIBUS INITIQLIZE
EXECUTE
JSR

RTS

Ry’

lill!lillill*llllllil!ll!liI!!llllll!lllllllllllllllll!!llllill

001116

6547

EfiUI

RESET
%g

;UNIBUS RESET
&N?REHENT LINE NUMBER

L INNUM

T
RY
; lill!!ll!lll!lllllll!!!llllll!ll*lll!lilllllllli!illl!illl!lll}

QBTTL

SUBSYSTEM COMMANDS EXECUTION

5549

<(NO CHECK> ' <DRIVE>

5551

(TRACK>

S548

;RENIRY:

55880

E ]

S§552

JSR

RY4,ESXX WHERE XX IS THE SUBSYSTEM CMND

<CYL NUM> gR
(QFFSET>
(SECTOR>

CWORD COUNT>

ggga

*RETURN RTS

gggg

iTHIS ROUTI

HAS

MANY

ENTRY PQINTS, ONE

FOR

ERCH

TEM

HHQNSU NECH ?NTRY IS SPECIAL 1IN THRg THE S SPEE EgT?ON

6557

lCODE IS PUT INTO THE PRRAMETER BLOCK ALONG WITH THE

5560
6561
5562
5563
5564

!THE PRINT CONTRgL
WORD
I? PUT INTO THE LRST WORD (WORD 66)
lOF THE PARAMET
BLOC
HIS WORD CONTROLS WHICH INFORMATION
IIN THE PRRAMETER BLOCK IS PRINTED IF AN ERROR OCCURS.
lREFER TO DRVERR FOR R DESCRIPTION OF THE WORD ARND
!THE RESULTING DATR REPORTED.

gggg

5568

5566

§RPPLICRBLE PARAMETERS.

EQRC.

ggse
02{5?3 0?0%3? 822{35
ss?g 851314 615788 0881 q
52;1
02{528 0?0;37 gggi;;
S7 831230 6157
000104

ESPA
ESCS

gg?

ESCC:

S574

7
5577

021500

112703

o 363 36 96 36 26 36 36 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 36 96 36 3 36 36 3635 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 36 30 6 36 3 36 36 36 3 36 3 36 % 3 %

000113

€567

021474

012700

000104

(021534

000137

022132

1544
021550

127
000Ss70

104

851240

615?88

88 176

MOVB

SRECAL ,R3

gQCB
MOV
%SCB
MOV

ggggk
R3
8104, R0
0S
gc R,R3
Hk

MOV

8104, RO

]

JMP

0 EP’

MOV
BR

#1094 RO
ONEP’

MOVB

$CONCLR,R3

;RECAL IBRATE ENTRY

REPORT FORMAT ENTRY

; PACK ACK ENTRY
UBSYSTEM CLERR ENTRY
-&EPOR? EORHQ
:REPORT FORMAT

; CONTROLLER CLERR ENTRY

REPORT FORMAT

104

SEQ 0103

ggv

3109 RO’

#SELDRV, R3

:DRIVE SELECT ENTRY

MOVB

ocbenn R3

;DRIVE CLEAR ENTRY

E§vs

s N

Y5°g8 3

ngbSR? EORHRT

ESSS:

MQVB

8SRTSPL
,R3
S

SPIN
ENTRY
RN

00011S
000165

ESOF:

MOVB

8OFFSET,R3

;OFFSET ENTRY

000164
00016S

ESAH:

SRDALHD, R3

;READ ALL HEADERS

00012s
000165

ESRH:

MOVB

SRDHERD, R3

;READ HERDER ENTRY

000117
00c1ies

ESSK:

MOVB

ESWH:"

868183

ESDC:

88818

ESuL

ge8144

21314

000001

18:

O+
N—Ww

000001
000010

O
=W

000001

847

BeeBie
Be505E

MOS8

30(1046)
02-DEC-?7?
11:59
PRGE
SUBSYSTEM COMMANDS EXECUTION

ESDS:

—_
W

}}\I\J\J\J\l )02
p=a s e
FSRERER o Lo PRI
¥4

NNNNNNOC OO0

INTNENEN]
o
e

00 Pt ot B Pt ot Pt Pt ot Pt Pt s Pt et Pt P Pt (ot Bt Bt s Bt Pt Pt s o ot i Pt

200e

000S56

MACY1l

000101
000104

—

Dt Pt

o Pt

e Pt

s Pt

RO 0 6 0 0 O G O
bt JIDNOUN
L WM

6
Se610

112703
012700

8 ® 8k 88R
(=]

RRES RS 23T

—

on
N

s Pt e P
s P

5583

Pt PPt it Pt Pt

5578
5579
5580

RRRRAIRERRRRMmIm
DD LODD LR o D ok R SRR n

CZRB6RCO RKb611/06 USR DEF INED
CZR6RC.P11
02-DEC-77 11:27

000001
000010

MOVB

ESV

EEV

MOVB

SSV

ESV

gbsg,

;hsétgo
?fi%éégo

#SEEK, R3

*REPORT FORMAT

'REPORT FORMAT

ENTRY

:REPORT FORMAT

:SET REPORT FORMAT
:REPORT FORMAT
: SEEK_ENTRY

?gn
mMovB

8165, R0

:REPORT FORMAT

HRS
SEL P.CMND(RS)
oukHEno

MOV
MOV

Igflrp RO
MAXWDS| R1

ssr RO AT START OF INPUT BUFF
*SET R1 WITH NUMBER OF WORDS

MOV

8&8

éno)+

Cngg"gg§FER
LOCARTION

MOV
MOV
JSR

(SP)+,R1
(SP)+'RO
PC, PBSEL

Rssrone
,nuo RO
READ DATA,

ESV

EBUFPT P.BALO(RS) ;(OAD BUFFER ADDRESS

ESWD:

JSR

ngva

suhggrnP.CMND(RS) ;LORD FUNCTION CODE

ESWC:

MOVB

oukrcux P.CMND R( R%’ 6RO figgégxnoongsg FOR WRITES

BNE

MOVB

§5798° MOV

MOV
MOVB
MOV

MOVB
MOV

NEG
THREEP ?gn
" CMP

LOOP UNTIL

GET PB ASSIGNMENT

onbonrn P.CMND(RS .LOAD FONCTION CODE
BSEL

oegrpr P.BALO(

-WRITE DATA,

GET PB ASSIGNMENT

-WRITE CHECK,GET PB ASSIGNMENT

S)abOaYPUSKES

(Rq)l
(Rg ) { LORD GEb EORESS
P. N(R
(RH)+ gak

(R4)+.P.SECT(RS ) :LORD SECTOR ADDRESS
(R4)+ P.WC(RS) ';:LOAD WOR

P. c(RS)
ggoggSEL

sROALHD, R3

sMAKE WORDggunr 2’'S COMP
;GET_PB_RSSIGNMENT

'TEST IF READ ALL HEADERS COMMAND

CZRSRCO RK611/06 USR DEF INED
0e-DEC-77 11:07
CZR6RC.P11
S
5635

852060
“Eggg

001003
0%2765

S6e38
5639
Se40
Se4
Se4

(022100
828104
22112
0c2ll
082155

1le4eS
2465
59
004737
036S

6uN
Se4S
Se4e
647

Oceles
022132
0cel
852136

7
o404
004737
10365

S649
5650
SES5]
6E52
£653
5654

(0c2l46
0e215e

004737
000204

00168?

2038 855579 b13362 B3Ba0s

648

g 75
St .

665

Ocelee

c2l4ye

112465

10065

BNE

MOV
MOVB
MOV

000010

00000S
000004
021314
000001

TWOP:

021314
000001

ONEP:

000006

GODRV:

000064

013570

*88TTL
Seelsq
186

1049412
Q42777

000100

157542
157540

CTRTE:

o) afS 6327$§ 100200

157514

2s:

100600

157472

G$:
33:

187464
100200

157466
187458

ys:

O
O

216
>0

001779
pode

0
O

6
M

3.77?7
001774

2777
001774

5669
S670

C
8

4%
"S9N

S6?¢

*°

S67
S678
6679
S6B80
Se81
s682
$683
Se84
568S

Y4
0O.-279
0Occe?6
022300

€67

S686
687

StE8

- SKIP

MOVB
Move
BR

RADD
(R4)+,b SRER(RE) ;
(P4)+,P.SECT(RS) ;LORD SECTOR RDDRESS
GODRV'

MOVB

R3)P.CMND(RS)

JSR

MOVB
TST8
BR

PC, PBSEL

-GET PB ASSIGNMENT

bno FUNCTION CODE

(R4)+,P.0FST(R$)
OFFSET
(RY)+
-BUHP R4 TO NXT COMD

GODRV

JSR

PC, PBSEL

MOV
JSR
RTS

RO'PRTCON(RS) ' ; INSERT FORMAT WORD
PC. DRVCAL
:CALL DRIVER
RY
! RETURN

MOVB

GET PB ASSIGNMENT

R3,P.CMND(RS) Lbno FUNCTION COOE

COPY TAPE ROUTINE

:#TAPE BEING RERD, EITHER SOURCE OR OBJECT

18:

€671
S&7

onoaurranLO(RSJ -LORD RDDRESS OF HEADER BUFFER
P.CMND(RS):LOAD FUNCTION CODE
(R4)+ CYLN(RS) ;LORD CYLCQDDRESS

;%THIS ROUTINE WILL PUNCH
R TAPE THART IS IDENTICRL TO0 THE

157522

566
5e68

SEQ 0104

; !lIlllilillllllllllli!lllllll!illlllilli!l!llll!i!l!illl!llllll

59
0 5138 0o a7r 799430
5660 O ’175 03.7?27 100200
SeeM
S66S

NOS

02-DEC-?7
11:59
PAGE 10S
SUBSYSTEM COMMANDS EXECUTION

30(1046)

3%
<0

10041
?7

157500

040M

0760

04401

003223

208:

104401
1049413
005724
000204

003207

3CS:
40s$:

600402

SAVREG

BIC

BIC
INC
BIT
BEQ
BM]
BIT
BEQ
BM1
INC
BIT

BEQ
BMI
MOVB
BIT

#000100, 9PTRSR

;RESET IE,

PTR

8000100, JPTPSR_ :RESET IE. PTP
JPTRSR ' SSET READER ENABLE
#100200, PTRSR ;CHECK PTR DONE OR ERROR
18
:NO
- LOOP
20$
'ERROR
- EXIT
$100200, 9PTPSR ;CHECK PTP DONE OR ERROR
2$
INO
- LOOP
ERROR - EXIT
308

JPTRSR
100200, IPTRSR

TARRT READ
EST DONE OR ERROR

38
208

NEITHER - LOOP
JERROR- EXIT

BEQ
BM1
BR

4$
308
33

:NEITHER - LOOP
;ERROR -EXIT
‘00 NEXT RERD

TYPE
RESREG

,PUERR

; PUNCH ERROR

RTS

;;PE
TST

OPTRDB,aPTPDB
$100200,9PTPSR

4SQERR
(RY) +

:MOVE DARTA TO PUNCH
;CHECK IF DONE OR ERROR

:RERDER ERROR
:GOOD RETURN

RLiURN

lllllll&Illlill!l!lllillllllllilillllllllllllllllll!lllll{lllli
"48TTL ROUTINE TO BUILD MERDERS

;#THIS ROUTINE WILL BUILD HERDERS AS THEY ARE EXPECTED TO BE FOUND

;20N THE PACK WHEN THE sscron FIELD
OF A WRITE HEADER COMMAND IS

:#SPECIFIED RS ZERO. IF ANY VALUE OTHER THAN O 1S ENTERED AS THE

‘#SECTOR VALUE THE ROUTINE GOES TO THE SPECIQL DATRA PHTTERN BUFFERS
; #AND TRANSFERS THE DATA FOUND_IN
P
PRT
Y, AND THE FIRST TWO

;uonos OF PAT Z INTO THE OUPUT surrsn fo BE WRITTEN RS THE HERDERS.
RIZIITITIIZIZELIZLILL
LSS 2222222222 s sl sl et it i it il istl)

gsw

MACY1l

CZR6RCO RK611/06 USR DEFINED
CZRB6RC.P11
02-DEC-77 11:07

Oge
Qee

S704
5705
S706

022356
022360
852362

S708
5709
5710
S711
5712

022370
022374
0ee3
Oe2a4
0Oece40e

5703

707

022354

2364

S71S 025398

5716
S717
5718
5719
5720
§721
S722
5723
S724
5725
5726
5727
§728
5$729

5730
S731
573¢
§733
5734
5735
5736
5737
5738

5739
57406
5741
5742
5743
574
5745

022412
022414
QOc2416
022420
0ecuvee
0Oca2424
0e2439
0e2e432
022434
022436
022440
022442
022444
022446

$701
5702

022
QOee

ot Pue

Qee

36%089

5698

$699
$700

R22
BRR-=oO —Ran
|=}
R ifigfigggi
NN
£
(=]
888
AR
R
o
8 So=88ah RROS2LZERR
n
SIS
RRERORYRYU

S697 835

BLDHOR:

104412

02-DEC-77_
11:59
TO BUILD HERDERS
gflVREG
oV

001702

SEQ 0108

PRESET FOR 26 SECTORS

BEQ

LEAR LOCATION TO BE USED RS FLAG

8B.CFMT,P. csxntné) ;TEST IF THAT IS RIGHT

oB8uUFPt . R

csr BUFFER RADDRESS

ggt
BNE

(R4)+ R2
(RY)+,R3

:GET TRACK PAREMETER
;GET_SECTER annsrsn

ASL
ASL
ASL

R2
Re
R2

BIS

ggx

sa1150 TENP)
(RY)+, fl1

- SKIP

Bos
MOV
MOV

NO - SET FOR 24 SECTORS
:GET CYL NUMBER PARRMETER
*ADJUST TRACK roh CORRECT POSITION

i IF SECTOR NOT

#140000, R2

EMPI1,R2

Sg,sa

0 GETHORS FROM PAT X,Y,Z BUF

sSET NO BAD SECTOR BITS

: INSERT FORMAT BIT

:COMPUTE VRC

)

INC
DEC
ggz

o1 RY
3'R3
n4,R3
R1,(RS)+
R2, (RS)+
R3, (RS)+

R2
RO
&g

; INSERT WORD 1
: INSERT WORD 2
; INSERT _WORD 3

2s:

MOV
MOV
ggb

8PATX,R1
RO, R3
RO o

:GET ADDRESS OF PAT
X eurrzn
,MULTIPLY SECTOR COUNT BY 3
:TO GEY THE NUMBER OF WORDS REQUIRED

3s:

MOV
DEC
EEEREG

(R1)+, (RS)+
RO
3s

s MOVE HEADER WORD
:DEC_COUNT
;LOOP UNTIL DONE

BIC
BIC
BIS
MOV
MOV
MOV

0olee2

106

%26, R0

BIS

18:

PRGE

TEMP]

MOVB
MOVB

140000
001702

BO9

CLR

BITB

0oooo?

s
s pe

022302
gss
310
022314

30(1046)
ROUTINE

000

S690
S691
5632
S693
S6EM

MACY11

;BUMP
SECTOR COUNT
: DECREMENT COUNTER
,%ggg IF NOT YET ZERO

lllllilllll*llil!llllll&!!ill!lll!l*llll!llll!l!l!l’!l!!*!l*l*i

'&BTTL

DRIVE Tygchunnce ROUT%EE

WITH R1 POINTING TO COMMAND FIELD FOR DT COMMAND

:ENTR

R4,DTR

lERROR RETURN:

MOV

!NO ERROR RETURN:

RTS

TST

(RY),R4

RTS

(RY)+

:%¥THIS ROUTINE CHRANGES THE “DRVIYP’ PARAMETER BY STORING
*I IT THE VALUE SPECIFIED BY THE ’'DT’COMMAND
§ HIEIEIEI 000 60600 0600 06 000 00 00

022450

DTRTE:

B RN

R AR AR AR EERE N AR AR RN T ERR

CZR6RCO RK611/06 USR DEFINED
02-DEC-77 11:07
CZR6RC .P 11

MRCY1l

02-DEC-??
11:59
DRIVE TYPE CHANGE ROUTINE

30(1046)

004666

000007
S%:
BbS:

000006

001171
0000s4

4s:

350

gso

MPB
BNE
1518
BEQ
MOV

001244

82 Eh— 80—0—
[V
]
8
RS TErza
o= L=
Lol
VE AN
222 SENENR
¥
= ON=NNLENO
-y

R1,-(SP)
PC. SBSCN

15TB

000077

031160
001244
001244

000006

oolau4

000007

003166

001244

CMPB
BEQ
MOV
ggn

(R1), 8",
18

cHPB

78:

89:
18:

(R1),8'"
4§
gnvrvp
S
87,-(SP)

MOV
TYPOC
TYPE

PAGE

(RD)

B8R

MOVB

29s:
308:

001244
000004

MOV
JSR

ca9

107

SEQ 0106

::PUSH R1 ON STACK

'BUMP R1 TO ""°XT PARAM

STEST

IF NULL

'BR_IF_YES & EXIT
‘SEE IF "2
'BR IF NO
‘Ebs FT ET EXISTING DRIVE TYPE
H
0
;ELSE SETUP FOR RKO?7

- (SP)
86,
SCRLF

R1,-(SP)
PC.OCTBIN

(SP)+,DRVTYP

; SEE _IF NULL
;BR_IF YES,
NO CHRNGE-EXIT

:ELSE

EEE
iER

GET ADDR OF ASCII CHAR

T0 BINARY
25RETURN

86
DRVTYP,

BEQ
CHPB
BEQ

78
87
DRVTYP,
8%

MOV

IRY),RY

MOV
RTS

(SP)+,R1
RY

; ;POP STRCK INTO Rl

CLRB

DRVTYP

;CLE?R FOR RKO6

MOVB

#4, DRVTYP

308

TYPE

B8R

TST

BADTYP

;BRI
ES
; PRINT ERROR MSG
;SET ERR RETURN

;§E¥ TO LOAD RKO? TO P.CS1H(RS)

;EX

(R4+

;SET NO ERR RETURN
sEXIT

BRDOCT

: INVALID OCT NUMBER

2s:

TYPE
BR

CEPRO:

.ASCIZ

/CLEAR CONTROLLER DID NOT CLEAR ERROR/(15><¢12>

CERR1i:

.ASCIZ

/NO ATTENTION IS ATTENTION SUMMARY REGISTER/<¢1S><l1a>

RER

jethrtr
et R

006522

O L£=Nre=
O

Oe2742

000
ounwn
OQr—= L=y

o
»
W
n
o
n

o
¥

;EXIT
29s
HH lilllllllllill*li*lll!llfll!I"lllill!ll‘llllllll*llllil!ll!!llli{ll
'$B8TTL ERROR MESSAGES FOR CONTROLLER ERROR RETURN

o42524

s
-

CERR2:

.RSC12Z

ZUNSOLICITED RTTENTION/<15>¢12>

CERR3:

.RSCIZ

/UNEXPECTED DRTAR TYPE

CERRY:

.RSCIZ

/RTTENTION DID NOT RESET WITH ORIVE CLERR/<¢15>
12>

CERRS:

.RSCIZ

/ATTENTION DID NOT CLERR WITH SUS-SYSTEM CLEAR/<¢15><12>

CERRG:

.RSCIZ

/ILLEGAL

CERRS8:

.RSCIZ

/DATA LATE WHEN UNLOADING HERDER/<¢15><l1a2>

CERR9:

.RASCIZ

/CONTROLLER ERROR DURIM. DRIVE SERVICING/<15>¢l@>

CERR10:

.RSCIZ

/DRIVE

CERRIS:

.RSCIZ

/7MULTIPLE

ERROR/<(1S5><¢12>

N
n

[ ]
W

222

—

1=V W—-O

nNEs 2=RO

DRIVER COMMAND/(1S><12>

e P

[

o44522
ou4s22
sé

(=}
(T4
n

gt—-o—»—

2RE 8 BRRR
-00
[ ] nwo
T, TSV 8
Ot
oLr Son WRARS

o
O W=

o
B
7522

NWOO~—
n
onnnPt Pt ot Yt e s L e
=-

04
83144

16&
2101
1

g!: ZZRRA 2 $I08

ol
051165

101

—-OoQLorun
U 0=s e pe e ()
NOMNEe=N)
NNL==0

1440
3 91

8501

.—é

il
14
10

D09

02-DEC-77
11:59
PAGE 108
ERROR MESSAGES FOR CONTROLLER ERROR RETURN

30(1046)

|l
nd ol

[

2z
SRRy ac
P
[

2E
BRE

—;
iy

s P
s Pt

et ot P

023340

15
000
104

RREZRE
n

RER
Y

oi
RHS

et
RRRARRRRRNRRRRES
K8
S28
ok BER£

A
@

047523

Q47125

022746

FRRRRRRRRRRRLRR
J
(NN RINININ
N NN

PPt o
et Pt Pt Pt ot P
P

OO NN
£ WO

iAT
3
SHERES

s802

MACYL11l

0 SRRRRES RA22 2
.—mfu——.
oW NW2
oA &8 £ o 25

CZRERCO RK611/06 USR DEFINED
CZR6RC .P11
02-DEC-77 11:07

PARITY WHILE GATHERING STATUS/<¢1S><12>

DRIVE

SELECT/<15>¢1&>

SEQ 0107

CZRBRCO RK611-06 USR DEFINED
CZRBRC.PIL1
02-DEC-?77 11:07
$858
5859
S860

023431
023436
023444

116
047Se22
051124

S866
5867
S868
5869
5870
$871
587
587
5874

023452
023454
853“28
34
(23462
853“64
3466
853972

000
023454
023401
833431
3431
023431
3431
3333
3261

S876
5877
£878
$879
5880

023474
853468
35
023502
023504

023431
3166
3106
023033
022776

587%

S&31
S882
5883

gggg

M7,

023506
023510
023512

023S14

020117
0ellee
006531

EOS

MACY1l 30(1046)
02-DEC-?7
11:59
PRAGE 109
ERROR MESSAGES FOR CONTROLLER ERROR RETURN
83%}82

CERR7:

000012

/NO ERROR ENTRY/<15><12>

CERR7,CERRI11

CEFLG:
ETRBL:

3217

.BYTE

CERRIS
CERRIY4
CERRI13
CERRIZ
CERRI1
CERRIO
CERR9

. WOR
. WO
.WORD
.WORD
WORD

CERR?7
CERRE
CERRS
CERRY
CERR3

.WORD

CERRIB

.WORD
.WORD
.WORD

023431

.EVEN
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
WORD

.WORD

2746
022671
022622

gggg

.RASCIZ

SEQ 0108

; CONTROLLER ERROR FLARG

CERR8

CERR2
CERRI
CERRO

.SBTTL

TEMPORARY CONTROLLER REGISTER STORAGE

gggg

023516

000000

T.CS1:

.WORD

TEggg?gRERSIORflcE FOR COMMAND AND STATUS

g;go

023520

000000

T.CS2:

.WORD

TEEES???ERSTORRGE FOR COMMAND AND STATUS

583c

0Oz2ss>22

0000G0

T.WCR:

:TEHPORQRY STORARGE FOR WORD COUNT REGISTER

S84
5895
gggg

0235
023530
+23532

000000
000000
000000

T.DA
T.
T.ASOF:

5893

S8
$899
5900
5901
S902
$903
S904
gggg

0235

023534
023536
023540
0e3s4e
023S44
023546
023550
023552

000000

.WORD

O
O
O

; TEMPORARY
: TEMPORARY
,TEHPORgg;

T.ER
1.05
T7.MR1
T.MR2
T.MR3
T.P0OS
T.PAT
T.08

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

O
O
O
O
O
O
O
O

; JTEMPORARY
; TEMPORARY
; TE
RARY
;TE
Y
; TEMPORARY
TEMPORRRY
; TEMPORARY
; TEMPORRRY

.SBTTL

DRIVER PARAMERTERS

177440

RKBAS:

.WORD

000240

RKPRI:

.WORD_

000000
000000
000000
000000
000000
000000
000000
000000

gggg
5903

023554

5911

023560

S910
S912
S913

.WORD

T.BR:

023556

000210

023562
023Se4

013644
015036

RKVEC:

.WORD
.WORD
.WORD

.WORD

R.NORM: ERRFRE
R.ABNL: DRVERR

177440

210

PRS

TEMPORARY

STORAGE

FOR BUS RDDRESS REGISTER

STORAGE
FOR DISK TRACK AND SECTOR
STORAGE FOR DRIVE CYL INDER
¥0RQGE FOR ATTENTION SUMMARY
ST
ST
ST
STORAGE
STORAGE
STORRGE

ERROR REGISTER
DRIVE STATUS REGISTER
MAINTENANCE REGISTER 1
Hfi%NTENflNCE REGISTER
MAINTENANCE REGISTER 3
ECC POSITION
STORAGE FOR ECC PATTERN
STORAGE FOR DRTA BUFFER REGISTER

; ADDRESS OF RK611

FOR
FOR
FOR
FOR
FOR
FOR

UNIBUS RDDRESS BLOCK

,QDDRESS OF R611 VECTOR
;RKB11

INTERRUPT PRIORITY

;ADDRESS OF NORMAL RETURN FROM DRIVER
:ADDRESS OF RBNORMAL RETURN FROM DRIVER

cstRco RK611-06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
5914

§915

5919
591
5918

027756

023570

2350

MACY11 30(1046)
02-DEC-7?7
DRIVER PRRAMERTERS

016444

AR.CONT:

000000

53921
£922

000001
000002

CONERR

E.CONT: _WORD

11:59

FO9
PAGE

110

SEQ 0109

: ADDRESS OF CONTROLLER ERROR RETURN

'CONTROLLER ERROR STATUS

:
:
:

THIS LOCATION IS CLERRED WHEN EVERY COMMAND
15 INITIRTED.
IF
A CONTROLLER ERROR
OCCURS THE FOLLOWING BIT ASSIGNMENT IS

;o UseD:

000004
000010
000020
000040

E.CCLR= BITO
E.NOAT= BITI

E.UATT= BIT2
E.UDRT= BIT3
E.CLART= BITH
E.SCLR= BITS

:CLEAR CONTROLLER DID NOT CLEAR ERROR
'NO RTTENT% %N ATTENTION SUMMARY REG
PUNSOLICATED ATTENTION (SEQUENTIAL ONLY)
:UNEXPECTED DATAR TYPE ERROR
SATTENTION DID NOT RESET WITH CLEAR
sue YS sn CLERR DID NOT CLERR DRIVE

5928

000100

E.ILLD= BITH

ILLEGRLE“ufié

5930
§93]1
§932
ggga

001000
002000
040000
100000

E.CERR= BIT9
E.DPRR= BITIO
E.CMTO= BITIN
E.MDS= BITIS

CONTROLL R ERRORDURING DRIVER SERVICING
:DRIVE DE sctso PRRITY"E
:CONTROLLER
COMMAND
T
OUT (QUEUED ONLY)
'MULTIPLE DRIVE SELECT

023572

000000

O.WARIT:

.WORD

023574
023576

000400
000400

W.MTIM:
W.MILI:

.WORD
.WORD

400
400

£923
5324
5925
gggg
6329

6935

5936
§937
gggg

000400

E.0LT=

BIT8

N UNLORDING HEARDER

5940

: PARAMETER BLOCK OF THE DRIVE

‘WAITING FOR COMMAND COMPLETION
:LOOP COUNTER FOR MILISECOND SCAN OF DRIVE
‘16 MILISECOND TIME FOR PROGRAM
:

CPU

VALUE

S9y1
5942
5943
594y
5945
5946
5947
5948
5949
5950
6951
§952
6953

023600

000300

W.SEC:

.WORD

300

(023602

023604
(023606
023610

003000

030000
000000
000000

W.BSEC:

.WORD

3000

30000
O
O

IMINUTE TIME FOR START SPINDLE
:ADDRESS USED FOR READ ALL
HEADERS
NUEBERHESDE goens LEFT TO RERD FOR RERD

5958
6959
ggg?

023612
(023613
023616

000
002
000

I.ISRL:
H.HERD:
W.TIME:

.BYTE
.BYTE
.BYTE

O
2,4,10
O

: INTERRUPT OR RELEARSED COMMAND ISSUED
*HERD DECODES
'DRIVES BEING WATCH-DOG TIMED

.SBTTL

INTERRUPT MASKS

INTMSK:

.BYTE

€954
6955
ggg;

Eggg
gggg

5329
€968

53969

023617

023620

Q023621

000

001

002

W.MIN:
.WORD
HOR.AD: .WORD
HDR.CT: .WORD
oo4

010

;

1.0RV:

: INTERRUPT MASKS FOR DRIVE

. INTERRUPT MRSK FOR DRIVE O

INTERRUPT MASK TABLE
.BYTE

.BYTE

:
—
—m—e:
:
11,05
100
:
11710
:
11,20
:
1134
:
11/40
;
11,4
400
:
11,50
:
11/70
*SECOND COUNT COUNT FOR ALL COMMANDS
;
EXCEPT éTRRT SPINOLE
;8 SEC
OR DRIVE CYCLE DOWN

. INTERRUPT MASK FOR DRIVE 1

IN PRRAMETER BLOCK

C%R&RCO RK611-06 USR DEF INED
De-DeC-77 11:07
RC P11

023622
023623
023624
023625
023626
023627

023630

023632

MACY11l

30(1046)

INTERRUPT MASKS

oo4
010
020
040
100
eoe

002142

300000

02-DEC-77

.ETE

.8YTE
.BYTE
.BYTE
.BYTE
.BYTE

11:59

GO9
PAGE

111

SEQ 0110

; INTERRUPT MASK FOR DRIVE 2

10
a0
40
100
200

: INTERRUPT M- K FOR DRIVE 3
INTERRUPT MASK FOR 8R¥VE Y
: INTERRUPT MRSK FOR DRIVE S
: INTERRUPT MASK FOR DRIVE &
INTERRUPT MARSK FOR DRIVE 7

.SBTTL

PRRAMETER BLOCK

TRBLE

PBLKT:

PRRMO

.SBTTL

TIME FOR WRTCH-DOG TIMER

W.ORV:

.WORD

; ADDRESS OF PARAMETER BLOCK GIVEN WITH

iDRIVE CALL.

MUST BE LORDED INTO PBLKT

; TIME FOR INSTRUCTION

IN PRRAMETER BLOCK

CZR6RCO RKB11-06 USR DEFINED

CZRGRC.P11

02-DEC-77 11:07

MACYI1l 30(1046)

02-DEC-?7

11:59

HO9

PRGE 112

RK611/RK06-RK07? UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

.SBTTL RKb11/RK06-RKO? UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

Eggé
5c3

; #COPYRIGHT (g "é975
1975 1977

gq
930
gggé

‘#DIGITAL EQUIP
: ®MAYNARD, MA.
: #AUTHOR: ' ROY SPITZER

5993

.SBTTL

#WATCH-DOG TIMER

gggg

H‘illlllllllllll!llllllll!lllllllllllillllllllllllllilllll!llllll

6997

;;

THE WATCH-DOG TIMER DOES
A Pssuoo-rxnxnc OF RKOB- RKO? UNIBUS

5993

i *

RERL TIME g (Kué
" KHI#Hk) IS O;HE §¥?§EFOR

i
‘»
"

e ae el IR el
s
TIHE
ou? HIL#
BEs ankgso ?fi TSEQSSSERSnngsvxc STRTUS
REGISTER OF
THART DRIVE'S PRRAMETER BLOC

5998

2881
efiog

12"
P

£
6006
ggg;

X
R

281

6011
ggig

SUBSYSTEH connn«o sxnce

T GURARANTEE THAT

HILLI
ggc ?flins uuth fi Rtggé
unrc:-ogg TIQE¢ WILL gcau THETDRIVE§ IN US
: R
rE

NTS

THE
THE
n
LLYEECONB? PSS
uhsgnoT1 82 5 ?xNOLs MBER
OMMAND .

"
;¥

HE DRIVER WILL USE THE LOCATION W sec AS THE TIME
anxr FOR ALL OTHER COMMANDS.

6014

FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL

28{9
6018

;%CALL

6021

soeg

Eggg

:; 33 36 3 36 36 3 3 36 36 3 36 36 3 36 3 36 36 36 36 3 3 3 2 3 36 36 3 3 36 3 3¢ 3 3 30 3 30 36 36 2 A 36 6 3 3 9 3 36 3 3 3 3 3 3 3 ¥ 3 ¥ % 3¢ % ¥ %

6015

P #

ggxg

6022

2853

Q1QS4

W.WTCH:

£828 Bz3p3d B183d
6030
6031

023640
023642

010346
010246

5033

gggsgo

05837

023574

013737
105737

023576
023616

023554
023632

6032
6034

023644

654

013746
1034

6035
6036

023656
023664
023670

001426

6039
6040
6041

023700
023704
023710

013702
005337
001016

6037

6038 023672

177776

OPERATIONS ONLY ONE OPERARTION WILL BE WARTCHED.

WATCH UP TO 8 OPERATIONS SIMULATEOUSLY.

JSR

RETURN

013737 023560 177776

PC,W.WTCH

IF NO DRIVE ORDER EXCEEDED ITS TIME LIMITY

OTHERHISE nN RBNORMAL RETURN TO THE ROUTINE ADDRESS

# cnr ON R

NL W

2; g RN?

H 9 RAM §;E ET US REG

PPRO RIARTE

PARAME

noro FLAG

LOCK WILL £ SE

MOV

RS -( P)

MOV
MOV

R3,-(SP)
R2, -(SP)

: SAVE R3
ON THE STACK
snvs Ra ON STARCK

DEC

W.MTIM

?ECRSHENT nkaxsscono TIMcR

W.MILI,W.MTIM
W.TIME

REINITIALIZE MILLISECOND TIMER
CHECK IF DRIVE IS BEING TIMED

Hov

MOV

023574

FOR SEQUENTIAL

BNE

MOV
TSTB
3EQ

MOV

MOV
DEC
BNE

PS, -(5P)
20s

208

RKPRI,PS

RKBRS, R2
W.DRV
208

i20VE

ON T

TACK

RQ ON UE BTACK

PROGRAM STATUS WORD ON STACK

RETURN

Lotx OUT RKO&-RKO? INTERRUPTS

:LORD BASE OF RKO6-RKO? REGISTERS
‘DECREMENT COMMAND TIMER
'RETURN IF NO TIME OUT

SEQ 0111

CZR&RCO RKBII/OG USR DEFINED
CZR6RC.P1
0e-DEC-77 11:07

6042

6043

023712

105037

013705

023630

604S
6046

023722
023730

0S276S
020537

000100
02357¢

6048

023734

001002

6050
6051
6052
6053
60S4
605S
6056
60S7

023736
023742
023746
023752
023754
023756
023760
023762

005037
004737
012637
012602
012603
012604
012605
000207

6047

6049

30(1046)
02-DEC-77
*WATCH-DOG TIMER

023616

023716

6044

MACY1l

023572
027216
177776

Ss:
20s:

109
PAGE

113

SEQ 0112

CLRB

W.TIME

BIS
CMP

$CMDTO P.PRST(RS’ SET COMMAND TIME OUT
RS,0.WAIT
CfiECK IF DRIVER IS HRITING FOR

BNE

CLR
JSR
MOV
MOV
MOV
MOV
MoV
RTS

0.WRIT
PC,R.HBNL
(5P)+,PS
(SP)+,R2
(SP)+,R3
(SP)+,RY
(SP)+,RS
PC

CLERR WAIT FOR COMMAND COMPLETION
:BRANCH TO ERROR ROUTINE
{RESTORE PSW
:RESTORE R2
:RESTORE R3
;RESTORE RY
:RESTORE RS
:RETURN

MoV
000014

11:59

PBLKT,RS

;RESET TIMING INDICATOR

LORD ADDORESS OF PARAMETER BLOCK
TRBLE FOR INDEXING

COMMAND COMPLETION

DO NOT ALTER WAITING FOR

OMMAND COMPLETION

C2RHERCO RKE11-06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

J0O9

MACY1l 30(1046)
02-DEC-77
11:59
PAGE 114
#RK06 INTERRUPT SERVICE ROUTINE

gggg

.SBTTL

2820
i

; ‘"“nnu“unnunniuuiuunnnunuuunnuuu;n
;

2825

S
;I

6064

gggg

6067

E07s
28;3

M
Ty

6075

6068
6069
220

"
e
"

gg;g

6078

ggg?

6079

6082

#RKO®&

SEQ 0113

INTERRUPT SERVICE ROUTINE

THIS ROUTINE

WILL

SERVICE

ALL

UPON RECEIVING AN INTERRUPT,

RKO®&

THIS ROUTINE WILL

PERFORM ONE OF THE FOLLOWING SERVICES:

1.) SERVICE PORT WARS SEIZED BY OTHER PORT

2.)
3.)
4.)

SERVICE
ssnvx
REQUE

DRIVER IS WARIT FOR COMMAND COMPLETION
POSITIONING COMPLETION
onnnflo IF DRIVE WRS RELERSED

5.) 10
NG SERVuéu%oRKOE6
SRRo0INED
"?n?s
DRIVER." THE COMMAND WILL BE ISSUED
THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM.
THEY ARE:

1.) A.NORM RDDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)

2.)

3.)

A.ABNL ADDRESS OF ABNORMAL RETURN

FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE RPPROPRIATE

PARAMETER BLOCK WILL BE

6085

FOR THE CONTROLLER ERROR RETURN,

‘x

ROUTINES USED

;¥

(UNSUCESSFUL COMPLETION OF COMMAND)

A.CONT ADDRESS OF CONTROL ERROR RETURN

ggga

2889
6088

INTERRUPTS.

IN RS.

THE REASON FOR THE CONTROLLER ERROR.

6089
6030
6091
6092
6083
6094
6095
6096
6097

ix
D
e
s
P
e
s
‘e
%

g}g?

:; 36 36 36 36 36 36 36 3 36 3 3 36 3 36 36 36 36 ¥ 9% 5% 36 3 I 36 2 3 3 3 3 3 3 3 3 I 3 3 3 3 3 3 I 3 3 3 3¢ 3 3 3¢ 3 36 3 I 3 3 % 3 3 I 3 3 % 3% %

gggg

023764

6104

023770

6107

023776

6105
6106
6108
6109
6110
6111
6lle
6113

Q@.RMOV
R.CONT

R.NORM
R.A
1.CST
1.STR

010546

023766

010446

023772
023774

010246
010146

0240
024004
024012
024020
024022
024030

I.INTR:

010346
010046

013702
016237
032737
001407
052737
004737

MOV

023520
023520

100000
027242

023570

(QUEUED ONLY)
(SEQUENTIAL ONLY)
(?EQUENTIRL ONLY)
(SEQUENTIAL ONLY)

RS, -(SP)

;STORE RY ON THE STACK

R2,-(SP)
R1,-(SP)

:STORE R2 ON THE STACK
,srons Rl ON THE STACK

RKBARS , R2
RKCS2!R2),T.CS2
#MDS, T.CS2
18
oE MDS,E.CONT
PC,R.CONT

:LOAD R2 TO RDDRESS RKO®6 REGISTER
:STORE €S2
:CHECK IF MULTIPLE DRIVE SELECT
iNO, CONTINUE PROCESSING
:SEY MULTIPLE ORIVE SELECT
*REPORT ERROR

R3,-(5P)

MOV

RO, -(SP)

MOV
MOV
BIT
BEQ
BIS
JSR

;STORE RS ON THE STACK

R4, -(5P)

MOV

MOV
MOV

023554
000010
001000

(QUEUED ONLY)
(QUEUED ONLY)

I.ISSuU
I.CCLR

6102

6103

C.OPT
Q.PUSH

THE LOCATION E.CONT CONTAINS

;STORE R3 ON THE STACK

;STORE RO ON THE STARCK

Pl
o]

fi(‘)

000137

026214

024040

10S737

023612

024050
024054

105037
000473

023612

Bt P Bt Ps s Bt Pt Pt Pt ot Bt st Bt ot et Bt ot ot ot e ot

(et Pt Pt ot o

s Pt

oo oL
L L L L L L L L WWWWWWn
DONOCNLZW—-ODO
NV LW OWVDNCN LWL—-ODLDNOCNLW N—-0W

s s Pt ot Bse Pt s o B B Bt s s Bt Pt Pt ot Poa Pt s P

UMD NI Y e s pe s pe e

gmmm?
NN
W—-QOONNTNE

024034

s Pt et P P

i el ot ad ad s al e al - ad e als aT e at oTo aTu ol s AT aTs aT s o aTe T oo gTu 8o o o80T o4 230 o o o8 o o3u oY o7 o¥0 33 Yo Y0 o T 10 o8

[elg]
N
0.0
oo

RCO RKb11/06 USR DEFINED
P11
02-DEC-77 11:07

024044

1410

024046 100403

0240S6

MACY11

K09

30(1046)
02-DEC-77
11:59
PAGE 11S
¥RKO6 INTERRUPT SERVICE ROUTINE

IMP

18:

000137

105037

023612

024066

032737

010400

024074
024076

001413
013704

023520

024106
O0coMil2

013705
016237

023630
000000

023516

024124

016237

000012

023536

024140

001041

024142

032737

024150

001007

025176
023520

024132

032737

024406
000001

164000

023520

016237

000014

023534

024160

032737

125700

023534

024166

001407

024152

024170

0S273?

000010

024176
024202

004737
000137

027242
026214

024206
024212

024216

10S037
005037

013705

023616
023632

024222

052765

010000

024230
024234

024240

005037
0049737

000137

023572
027216

024244

013705

023572

024252

000137

025176

024256

013704

023520

024250

001002

023570

I1.ISRL

cnecx IF INTERRUPT OR RELEASE

CHECK IF DRIVE AVAILABLE

cutcx IF RELEQSE COMMAND

S$:

CLRB

I.ISRL

;CLEAR FLAG

6S:

BIT

SNED'UFE, T.CS2

CHES?TFQ?EEONEEXISTENT DRIVE OR

BEQ
MOV

7S
T.CS2

:NO, WAIT FOR DUAL RCCESS INTERRUPT
:LOAD R4 FOR onxve NUMBER

MOV
MOV

PBLKT ,RS
:STORE PRRAMETER BLOCK RDDRESS
Rxcsxtaa) T.CS1 :LOAD TEMPORARY CS1 FOR STATUS REPORT

1.ERRC

:REPORT ERROR

MOV

RKDS(R2),T.DS

;STORE STATUS REGISTER FOR COMPARISON

BNE

1.100

INO, CONTINUE PROCESSING INTERRUPT

JMP

BIC

023536

: RETURN

024102 042704 177770
000137

I.RTRN

BMI

CLRB
BR

024062

024120

1578

BEQ

SEQ 0114

JIMP
78:

BIT

1.ISRL
1.1Go

YES,CLEAR FLAG
:CONYINUE PROCESSING INTERRUPT

1.RTTN

:GO PROCESS DRIVE ATTENTIONS

ofc<ohvn5K> RY KEEP DRIVE BITS

#DRA, T.05

cnggg 1IF DRIVE SEIZED BY OTHER

:CHECK IF ANY DATA TRANSFER ERROR EXISTS

BIT
BNE

MOV
;

#DLT ! WCE ' UPE!NEM, T.CS2
108

RKER(R2),T.ER

;s INDICARTE ERROR

:STORE ERROR REGISTER

CHECK FOR DATA TRANSFER ERROR TYPE ERROR

BIT

#DCK ' OPI'WLE ! COEYHVRC!BSE'ECH,
T.E

BEQ

118

WAIT FOR RELERSE OF RKO& DRIVE

10S:

BIS

JSR
IMP

PC.R.CONT
I.RTRN

:REPORT ERROR
:RESTORE REGISTERS

118:

CLRB
CLR

W. TIME
W. DRV

;RESET TIMING ON THIS DRIVE
CLEAR TIMING COUNT FOR THIS DRIVE

023630

000014

PBLKT,RS

BIS

convszo,P.PRsr(RSJ:SET DRIVE SEIZED IN THE
PROGRAM DRIVE STATUS REGISTER
0.WAIT
ICLERR WAIT FOR COMMAND COMPLETION
PC,R. ABNL
: INDICATE RBNORMAL TERMINATION

JIMP
1.100:

as:

;SET UNEXPECTED DATAR TYPE ERROR

MOV
CLR
JSR

026214

8E.UDAT,E.CONT

sNO,

MOV

I.RTRN

0.WAIT,RS

Loggoggsgxru PARAMETER BLOCK

!GO RESTORE REGISTERS

;LOAD PARAMETER BLOCK ADDRESS

BNE

1S COMMAND WAITING PROCESSING

IMP

I.ATTIN

*NO, PROCESS ATTENTION

MoV

T.CSe,RY

"YES,

DO PROCESSING

; STORE RKCS2 FOR DRIVE NUMBER

INTO RS

cznsnco RK&II/O& USR DEF INED
CZRBRC.P
02-0EC-77 11:07

21;9

024262

042704

LOS

MACY11l 30(1046)
02-DEC-77
11:59 PAGE 116
#RKO6 INTERRUPT SERVICE ROUTINE

177770

SEQ 0115

BIC

84C(DRVMSK>
,R4

;MRSK OUT UNNECESSARY BITS

E};é oauagg 1a?§o~ 000000

ggga

g§DRVN(RS),RH

;CHECK IF DRIVE NUMBER IS EXPECTED

2177
sigg

BNE
JMP

108
I1.HDAL

:NO. EXECUTE NORMAL DATA TRANSFER
:GO'EXECUTE SPECIRL HERDER SEQUENCE

SLERR ML

1?7

6175 85
g figoogé
£176 024276 122765 000164 000001 3$:
U

385
4

886025
1

024644

HE BENE BERY MU
6182

024322

105037

tos:

023616

HAL T
CMPB
gt

CLRB

HE G sy R e
6185 (Bae4342 001021
6186 024344 016237 000016 023532
6187
(024352
133737 023617 023533
6188
024360
001004

I
BNE
MOV
BITB
BNE

2%3?

JMP

6189

0e43-2

004737

027230

gigg

024372

0S276S

000010

6199

024400

004737

026664

6197

024406

013765

023516

5 oS?vc& 3590n
#RDALHD, P. cnno(né):CHECK IF RERD ALL HERDERS

W.TIME

EgRCpmEno comLerIon

: ES T TIMING ON TH ; ORIVE

S RO
g X
:
$§ ;OR
RKASOF (R2) . T. ASOF stoas ATTENTION SUMMARY
INTMSK,
n
T éor+1hgcxflépognxve
ATTENTION SET
158
I.ERR

JSR

PC,R. NORM

BIS

SUEXATT,P.PRST(RS)

JSR

PC,1.CSTS

: STCRE CONTROLLER STATUS

MOV

T.CS1 P CS1(RS)

;GET ERROR RKCS!

gggq 02444 ggagés 010400 000020
6205 024450 001046

iT
BNE

#NED! UFE,P.CS2(RS) 6§§$C§IE§DIE gng NON-EXISTENT DRIVE OR
5$
Evss REPOR% ERROR

6207

1.RTRN

E{gg

02436

024404

000137

00040S

026214

000014

15S:

1.ERRA:
000016

I.ERRC:

B8R

1.RTRN

I.ERR

E NORMAL RE URN

RESTORE REGISTERS

;SET UNEXPECTED RTTENTION

:STORE PATTERN AND POSITION INFORMATION

8}33
%85
thcpv?
EPRf?ET)REST
3 Ecc
ENTROLLERN>
6200 85335q
02442 0?2727
155&2 8885%3
000030 00062
000060 1I.ERR MOV
RKECPS(R 5 ,P.
'P.EPOS(E&)
52 SRE
POSI%ION T ATUS
2581 gg::aq 00:033 026232
JSSTRN RO, CCLR
;Eksnn SgNTROLLE
6206

024452

004037

026770

6208
6209

024460
024466

112737
004037

00000S
026314

6210

024456

024472

026214
026214

023516

JSR

RO, 1.STAT

mOvVB
JSR

#DR.CLR, 7.CS1
RO, 1.1s5u

1.RTRN

:GATHER DRIVE STATUS

:ERROR RETURN

;LORD COMMAND
: ISSUE
SRI VE CLERR
:ERROR

RETURN

BS15 Ooucoa Obragy 023617 023533

BI18 INTMSK, T.ASOF+ L e ATEDRIVE ERROR

b215 024512 004737 027242

JSR

PC,R.CONT

2%:

boel
Uoipud Daord? Q01000 Qess4d s
6223 024550 052737 002000 023570

ggia

024504

052737

000020

ggig

024516

000137

026214

ggig

gggggg

83?335

Q40000

6220 85423
o4

6225

024556

024562

023570

004737

027242

026214

8E.CLAT,E.CONT

Ese? RTTENTION DID NOT RESET

I.RTRN

:GO RESTORE REGISTERS

gés

§§ DSC, T.MR2

cnscx 5ECERIVE
STATUS CHANGE CLERRED

BIT
BIS

M5.PAR.T.ARI
'NB“
'x‘uéicB?é"Sefififiéél CERMINAT
ION
SE. opnn E.CONT
:SEY DRIVE PARITY ERROR

IMP

1.ATRN

IMp
023542

8§S7S§ googug 000014
000137

BIS

BIS
JSR

nepoarngTROLLER ERROR

#DRVDSC, P. PRST(RS) SE DSC DIDNOT CLEAR

PC.R.CONT

INDICQTE CONTROLLER ERROR

RETURN

g
R6RCO ?TBII/OS 8 9§FINE87

R6RC.P
6226

6e2?

30
6231

000020

000014

020000

023542

020000

000014

029566

032765

024606

001413
052?62

024630

000137

c2e21y4

004737
000137

027216
0e621Y4

£228 Baize 834847
gedgld At374

024634

024640

MACY11

cs:

R gedelt
108:

016237

000000

023516

BS“EZS 881322

100000

023516

I.HDAL:

027216
026214
000016
023617

023532
023533

5§

023572
023616

855235

023606

BBB0sH

;GO RESTORE REGISTERS

RBNL

:GO REPORT ERROR

:GO RESTORE REGISTERS

*READ ALL HERDERS INTERRUPT SEQUENCE

MOV

RKCS1(R2),T.CS1

;svoas csx TO CHECK CONTROLLER

$CERR,T.CS1

cuecx

Eéo

0.WRIT

FC NTR

iNO, cué

ITING FOR

RROR

Sfikinr ON

onnnno COMPLETE

A Yol o ol

JSR

T.CS1,P Sl(RS) §
PC,? ¢st
8RE E ?ROLLER REGISTERS

J4R
IMP

PC,R.
ABNL
I.ATRN

MOV

RO, I.CCL R

RKASOF (R2)

:CLEARSO?TROLL R

?ND?CQTE
ERROR RETURN
:RESTORE REGISTERS
nsor srons ATTENTION SUMMARY

géga
CLR
CLRB
CLR
JHP

;stnsxnso ,chsc DR$VSERTTEEEISN
1- :sr
0.WAIT
ERR unxri
2 COMMAND COMPLETION
W. TIME
RESETné onxv
W.DRV
;
oun1
:
1.ERRA

MOV
MOV

ERBatRAY
GET éRgflo%"“*or
RKBS( (riye
), (R1)+ EEIP‘“"
080 REROER
ns

MOV
MOV
MOV
g gE

RKDB(R2) (R1)+
R1,HOR.AD
RKES2(R2),T.CS2
38‘;7' T.CS2

;GET
T
sroae noonsss FOR nexr ADER
;STORE ggs 03
cuccx FOR DATA LATE
cngchE
rT:
ATE

023610

gfig
CLR

ggg.cr
0.WAIT
W.DRV

IF92
NONo%?vgkssugeflE§¥
;EEDTOEREED
*ING FOR COMMAND
COMPLETION
CLEQR TIME our couur FOR THIS DRIVE

8838%e
026214
013765

hrnn

IMP

1.RTRN’

000024
023606
000010
100000

023572

025070
025072

JSR

{ngRN

L b232

cwgcxnxr
HARD DRIVE ERROR

og PIP, T.MR2 cuébx SR?SE Es 8YCLING DOWN
1gsUNLD
P.PR T(RQN SE%ngTVE
UN o oaxvs TO CYCLE UP
NTHE
a 2 ss?
£ -OND

the
MOV

000016

:ogvuno P.PRST(RS)

SEQ 0116

31$
SES
ngva

?8283’ BESEIE
0823632

e§r

JIMP

.SBTTL
024644

MO9

QE DEC-77
* 3
PAGE 117
#RK06 INTERRUPT SERVICE
ROUTINE

30(1095)

023544

000056

CLR
CLRB
MOV
MOVB
JSR
I.RTRN
MOV

W.TIME
#3, RKMR1 (R2)
#DR.SEL,T.CS1
RO, 17 1S8u

:CLEAR WATCH DOG TIME ON THIS DRIVE
:LOR nnx T;nnncs REGISTER FOR SECTOR COUNT
;LORD SELEC
AND
:GET SECTOR COUNT
:ERROR RETURN
T.MR3,P.B11(RS);LORD SECTOR COUNT

OO0

004737

027230
026214

016562

800002
00004
000007
165777

£
£

112765
016562
000137

000125

Nc‘g £00 LOO £0O

555 5558 55

CZRSRCO RK611/06 USR DEFINED
0e-DEC-77 11:07
CZRe RC. P11
000137

000016

oceel4
000400
Q27242
026214

02-DEC-77
MACY11 30(1046)
¥READ ALL HEADERS

RE WO ODNTNLWN~O

NO9
PRGE

PC,R.NORM

000020
o

MOV

P.CYLN(RS),RKDCYL(R2)

;LOAD CYLINDER noonsss REGISTER

000016
000000

MOVB

P. CSl(RS),RK S1(R2)

$RDHERD, P.CS1 (RS}

SSUE READ HERDER

JMP

023570

MOV
MOVB
BIC

MOV

JMP
358:

BIS

JSR
IMP

s INDICATE NORMAL TERMINATION

IRESTORE REGISTERS

I.RTRN

"SECT(RS)'RKDA(R2) ;LOAD SECTOR AND TRAC
P.CSIH(RS)'P.CS1+1(RS) ;STORE BITS 8-1S o cSl
ofc<cor-crhr>,9.csxég§) ,ggggfi ALL BIT> Z¥CEPT FORMAT AND

1.RTRN

$E.DLT,E.CONT

PC.R.CONT
1.RTRN

023516

BIT
BEQ

8CERR, T.CS1
13

164000

023520

BIT

001007
016237

000014

023534

MOV

02se3e

032737

125700

023534

02s240

001407

000000

023516

025204
0esele

032737
001441

100000

02s214

032737

025222
025224

000010
02724e
026214

025260

023520

023570

I.ATTN:

042765

000006

0es3le

024406

02S316

040000

025324
025326
02533¢
0es340

BNE

000016
023533

1 FOR COMPRRISON
REGISTER

:CHECK IF CONTROLLER ERROR OCCURRED
iNO, CHECK IF ATTENTION

#DLT'WCE
! UPE 'NEM, T.CS2
18

RKER(R2),T.ER

: INDICATE ERROR

;STORE ERROR REGISTER

cuecx FOR DATA TRANSFER ERROR TYPE

BIT

#0CK' OPI'WLE

BEQ

18:

BIS

BIC

! COE THVRC ! BSE'ECH, T.ER

8E.UDAT,E.CONT

:NO DATA TRANSFER ERROR

;SET UNCXPECTED DATA TYPE ERROR

REP?R
: RESTORE chxsrsns

JSR
IMP

PC.R.CONT
1.RTRN

MOV

1.CS2,RY

sSAVE CS2 FOR REGISTER NUMBER

CLRB
CLR

W. TIME
W. DRV

RESET TIMER VALUE

MOV

OFF JUNK
ofc<ohvnsx>,nq :STRIP
:CLEAR WATCH ooc TIMER

PBLKT,RS

STORE Pnnansrsa BLOCK RDDRESS IN RS

CLERR DRIVE POSITIONING nno onxve POSITIONED FOR DATR TRANSFER
IN PROGRAM DEVICE STATUS REGIS ER
! DRVPDT,P.PRST (RS)
$DRVPOS

000014

JIMP

1.ERRC
#DI,T.CS1

GO REPORT ERROR
s CHECK IF ANY DRIVE ATTENTION

023516

GS:

BIT

BNE
IMP

68
1.RTRN

023532

68:

MOV

Rxnsorzna) T. nsor

026214
016237
105737

;STORE COMMAND AND STATUS

:CHECK IF ANY DATA TRRNSFER TYPE ERROR EXISTS

023630

025304

;SET DATA LATE WHILE UNLORDI*G HEADER

:REPORT ERROR
'RESTORE REGISTERS

%¥DRIVE ATTENTION SCANNER

RKCS1(R2),T.CS1

016237

,svo E COMMAND ISSUED

Rssrbns REGISTERS

MOV

025176

025242
025250
025254

SEQ 0117

118

INTERRUPT SEQUENCE

JSR

.SBTTL

[saloptenkenloaloadoaloadoadoads
ade gl s alsale ol e ol
W
LW WWWWWWWWWWWWILW

11:59

TSTB

T.ASOF +1

IYES, PROCESS INTERRUPT
:RESYORE REGISTERS

STORE ATTENTION SUMMARY

cHECK IF ANY ATTENTIONS SET

CZR6R00 RK611/06 USR DEFINED
CZRBRC.P
02-DEC-77 11:07

MACY11

000002
027242
0ese 1y

023570

023617

023533

002004
027242
026214

023570

30(1046)

¥DRIVE

80013%
042765
00S

’S:

11273;

026314

013765
032765
001004

0P 3542
0+0000

000040
000040

004000

000014

00000S
026314

023516

023532
0e361?

000032
000033

000020

02350

025572
025576

023544
000200

025602
025610

013765
03276S

025616
025620
025626

001404
052765
00go4a?

025630
025634
025640
025644

105037
005037
004737
000563

023542
040000
000040

PBLKT

; STORE PRPAMETER
EEOCK TRBLE

BIT
BEQ
JMP

P. DRVI‘((RS) RY

#Rsrtné)
8E.UNLD,P
118
I.UNLD

CHEC§N6£ DRIVE UNLOARDING

8DRVPOS
, P .PRST(RS)

:RESET DRIVE POSITIONING

BIC

CLR

BIT

BEQ
BR

MOV

BIT
BNE
8IS

MOVB

168:

CONT

R.CONT

kTRN

:STORE DRIVE NUM

sekvxce DRIVE IN POSITION AFTER ERROR

Rxnnl(Ré)

éu

.on SEL

CS1

-CLEAR MAINTENANCE REGISTER 1
;LORD COMMAND
SELECT DRIVE WITH ATTENTION HIGH
OR RETURN

T HR3 P. BOO(RS) STORE STATUS BYTE
OUTHESS 8
F
FLY,P 00(RS)’ cusc IF DRIVE
:NO,
CHECK FOR DRIVE STATUS CHANGE
as
x RERR

Pnbcsss ERROR

T.MR2,P.RO0(RS)

;ST

MAINTENANCE REGISTER 2

#5.0S¢,P.ADO(RS)' CHE K FOR
138

PROC

DRIVE STATUS CHANGE

DNODSC P. PRST(RS’ StT DRIVE STARTUS CHANGE
I.RERR’
koczssERROR
#DR.CLR,T. Csl1

; LORD COMMAND

;CLERR DRIVE STATUS CHANGE

JSR

RO, 1.1ISSU

MOV
BITB

BEQ
BIS

T.RSOF ,P. QSOF(Rss STofiECK
TENTION SUMMARY
F ATTENTION RESET
INTMSK.P. nsor+1<nsi
158
YES, CONT NUE INTERRUPT PROCESSING
;SET ATTENTION DID NOT RESET
8E.CLAT,E. CONT

JSR

PC,R.CONT

I.RTRN

;FLAG ERROR
;RESTORE REGISTERS

MOV
BIT

T.MR2,P.RO0(R 5)

;STORE MAINTENANCE REGISTER 2

BEQ
8IS
BR

168
#ORVDSC, P.
1.RERR

CLRB
CLR
JSR

W. TIME
W. DRV
PC,R.NORM

1.RTRN

000014

INTERRUPT

MOV

1.RTRN

158:

; YES GO PROCESS

YES GO PROCESS 17
;SET'UNSOLICATED ATTENTION
:GO REPORT ERROR
;GO RESTORE REGISTERS

JMP
c00oo40
0ooo40

7$
oe Nonr E. CONT

;CHECK IF DESIRED INTERRUPT

MOV

827242
026214

SEQ 0118

INTMSK, T.RSOF+1

JSR

13%:

119

as
os UATT,E. CONT

MOVB

128:

PAGE

BITB
BNE
BIS

MOVB

0o0og42
000042

SCANNER

JSR

023516

304037
GoeelM
13765
2?65
001401
000461

B10

JIMP

JMP

11%:

11:59

:SET NO ATTENTION IN ATTENTION SUMMARY
;GO REPORT ERROR
iGO RESTORE REGISTERS

JSR

000014

ATTENTION

BNE
8IS

023630

000000
020000

02-DEC-77

ERROR RET*N

:”

WITH DRIVE CLEAR

#5.0SL,P.ROO(RS) CgECK IF DRIVE STATUS CHANGE

e
CONTINUE INTERRUPT PROCESSING

PRS’(RS) ser DRIVE STATUS CHANGE DID NOT CLEAR
GO’ PROCESS ERROR

;RESET TIMING ON THIS DRIVE

:CLEAR DRIVE TIMING COUNT
: REPORT SUCCESSFUL COMMAND COMPLETETION
:RESTORE REGISTERS

I.RTRN

CZR6RCO RKb11-06 USR DEFINED
02-DEC-77 11:07
CZR 6RC. P11
639
6395
2339

042765

68 mwn

b4
6404
29

0256

(074

714
14

2?6
23

72?

0137
01
137

825;52

013;55

025774

14
112737

G0 fo

641
6413
g:{q

026002

000004

000014

004033

I1.RERR:

004737
000137

6423
6424
b42S
6426
6427
6428
g:gg

026044
026046
026054
026056
026064
0ecb072
026100

001017
032737
001413
0S2765
113737
013737
000137

023516

6431
6432
6433
6434

026104
026110

004737
000137

6436

026114

T.ASOF, P.ASOF (RS)
T.ER,P.ER(RS)

£6°§'§?8§(RS)

'
#DR.CLR,T.CS1

00000S

RO, I.1S8u

026314

020000

023542

020700

000014
023616
023632

027216
026214

000014
0e3s16

0ebi4e
825154
26160

012737
4737
0415

000020
027242

023570

b446
6447
B448
6449

026162
026170
026172
026200

032737
001403
052765
105037

040000

023542

000040
023616

000014

;LORD COMMAN
:CLEAR
%VE ERRORS

INTMSK, T.RSOF +1 Efiggfi 1 x$¥sntxon RESET
SE? ngfienrgguvs S N8T RESET
CLAT,E.CONT :REPOR
3 R.CONT

krnn
cs:

RESTORE Recrsrens

:ggvnno P.PRST(RS)

;CHECK IF nunRo DRIVE ERROR

OgsPIP
T.MR2
1

cuécxnir
QRIVEIS UNLORDING
:NO, REPOR

10%:

PC,R.RBNL

: REPORT ERROR

.SBTTL

CRAUSING DRIVE TO UNLORD

I.UNLD:

$E.UNLD, P PRST(RS)

8E. UNLD,P. PRST(RQ)
s;v
ve UNLORDING DUE TO ERROR
INTMSK, W.T
IMING
ON THIS DRIVE
u.essc,u.onv
Lono 8 SECONDS ron CYCLE UP TIME
1.RTRN
IRESTORE REGISTERS
I.RTRN

#0R.CLR.T.CS

RO, 1. xséu

!RESTORE REGISTERS
:CLEAR DRIVE UNLORDING BECRUSE OF ERROR

;LOAD IN DRIVE CLEAR

;GO

Tomvs CLEAR

xn1nsx<nq>,7.nso#+ cuscx IF ATTENTION CLEARED
S
CONTINUE
8E.CLAT,E.CONT ;SET’ QTTENTION DID NOT RESET
:REPORT ERROR
PC.R.CONT

023533

b44c
6443
g::g

DRIVE STATUS
i ERrORRRER

023570

000014

2:‘00
Sggig 8&414 023617
by4yl 852144 68?4

AR
TIMING FOR THIS DRIVE
t&
MATE00e
TT é

T.-0A.P.DTS(RS)
7.0C P.gCYL(RS)

023534

020000

T.WCR.P.WCR(RS)

64 é 026036 032765 000020

0S276S

SDRVPDT,P. PRST(RS) pEBE¥ P?géTéPEANG IN PROGRESS BECRUSE

T.Bn,#.gna(ngm

meg

026214

BIC

0177743 P. CSl(R KEEP connnug §3
836, 7.C51°
URRENT CONTROLLER STATUS
T.CQl,P.CSl(RS) nxe GOOD MESSAGE
7.C52.P.CS2(R5) ;:STORE CONTROLLER REGISTERS

023520
2

023 17
023u02

SEQ 0119

#ATTENTION ERROR HANDLER

N DAY

77741
36

027242
026214

S BRROR waddER PACE 12
W. TIME

023533

026026
026032

Cl0

TENTION

UTS s

6413
:go

643S

46)

wsw Bl

6:07
;36 i3;5
6 fs fie
g:?g

30(1

.SBTTL

025646

6400
6401

MACY11l

15s

15%:

209%:

1.RTRN

iRESTORE REGISTERS

#5.0SC, T.MR2

cnscx IF DRIVE STAUS CHRANGE RESET

W.TIME

RséT TIMING ON THIS DRIVE

20%

'YES,

CONTINUE

UDRVDSC,P.PRST(RS) SET DRIVE STAUS CHANGE DID NOT CLEAR

CZR6GRCO RKB11,/06 USR DEFINED
CZR&RC.P11
02-DEC-77 11:07

BYSO

sugé

026204

026210

00S037

009737

14
Q1
£a2y
le
815887
6455
0262202 012602
456
Qigena
Y

6458

(026226

605

6459 026230 006002

MACY11

D10

30(1046)
02-DEC-77
11:59
PAGE
#ERROR CRUSING DRIVE TO UNLORD

023632

027216

SEQ 0120

CLR

W.DRV

sCLEAR TIME COUNT

MOV
nov
MOV
MOV

(SP)+,R0
)R
(SP)+'R2
(5Py+.R3

MOV

(SP)+ RS

!RESTORE RS

JSR
I.RTRN:

121

MOV

RTI

PC,R. ABNL

(3p)+ RY

REPORT ERROR
RESTORE RO
RESTOR
RESTORE
R5
,RE§T8R R3
'RESTORE

*RETURN

CZRGRCO RK611,06 USR DEFINED
CZRERC.P11
02-DEC-77 11:07

E10

MACY11 30(1046)
02-DEC-77
11:59 PRGE 122
#CONTROLLER CLEAR ROUTINE

SEQ 0121

2325

.SBTTL

g:ga

;‘I»l»lli!lllll»lllll!llIlllllll#lllllliil!ll‘llill!Ili!lll!llllllli

6465

6466
6467

e
tx

6468

6469

6471
6472

‘%
Ly

6470

#CONTROLLER CLEAR ROUTINE

THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER

AND CHECK IF THE CONTRO.LER ERRORS nRs RESET.
IF THE ERROR IS NOT
CLERRED, THE ROUTINE RS SPECIFIED IN A.CONT WILL BE CALLED WITH

E.CCLR SET IN E.CONT.

USE

6473
g:;g

3
H

R2
RS

ADDRESS OF RX06 REGISTERS
RDDRESS OF PRRAMETER BLOCK

6476
£477

‘¥CALL
S%

JSR
RO,I.CCLR
<RDDRESS OF ERROR RETURN>

——eoiee-

g:;g

g:g&]

:; 33 3 3 3 3 3 3 3 3 3 36 36 36 3 36 3 3 3 3 3 3 36 36 3 3 3 3 3 3 3 3% 3 3 3 3 3 W ¢ 3¢ 3¢ 3 96 3 36 3 3 3 3 36 3 3 3% 3 3 3 3 3 3 3 3 % %

6482

026232

026240

016237

000000

100000

000000

6486
487
p488

026254
026256
(026264

001407
052737
0049737

000001
027242

023570

E:g?

026272

000200

6492

026274

012762

6483

012762

023516

g:gg 026246 032737 100000 023516

6489 026270 011000

6493
6494
6495

026302
026310
026312

112737
005720
000200

000100

177777

000000

023612

1I.CCLR:

RETURN

MOV

BIT

RKCS1tR2),T.CS1 ;STORE C(

#CCLR,RKCS]1(R2)

;CLEAR CINTROLLER

BEQ
BIS
JSR

cs
oE CCLR,E.CONT
R.CONT

:YES, RETURN TO DRIVER PROCESSING
:SET CLEAR CONTROLLER DID NOT CLEAR ERROR
:REPORT -ONTROLLER ERROR

RTS

' RETURN

MOV

#IE,RKCS1(R2)

MOV

SS:

MOVB
TST
RTS

8CERR, c
T sx

(Rb) RO

#-1.1.ISRL
(RO +
RO

AND STATUS REGISTER 1

CHEEERAFE RORROLLER CLEAR DID

:SET UP (RROR RETURN

;SET INTERRUPT ENABLE

SSET INTERRUPT ENRBLE ISSUED
noJusr FOR NORMAL RETURN
‘RETU

CZROERCO RK611-06 USR DEF INED
CZRERC.P11
02-DEC-77 11:07

MACY11

F10

30(1046)
02-DEC-77
11:59
PAGE 123
#*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

SEQ 0122

g:gg

.SBTTL

#COMMAND ISSUED BY DRIVER SERVICE ROUTINE

5“98
49

;illllil!lllllll!ll’lillllllll!lllllilllllllll}lllllllllllliillll
;

6500
6501
6502

a
1
x

THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CSl
AND CHECK IF A CONTROLLER ERROR OCCURRED.
IF A CONTROLLER
ERROR OCCURRED,
E.CERR WILL BE SET IN E.CONT AND

6504

S x

ADDRESS IN A.CONT.

6506
6507
6508
6509
EE{?

‘x
‘%
;%
"
¥

USE
-a-

R2
RS

ADDORESS OF RKOB REGISTERS
RDDRESS OF PARAMETER BLOCK

6512

;%CALL

JSR

6514
6515
6516
6517
6518
6519

s x
;
1
;#
x
Ta

RETURN

6503

650S

6513

SEE?

026314

6528
6529

6531
6532

013746

023516

I.ISSU:

00S037
116537

023520
000000

023520

026340
026346

116537
142737

000007
177753

023517
023517

026354
026362

013762
105762

023516
000000

000000

6527 026332 013762 023520 000010
6533
6534

0263
006370

6536

026402

100375
004737

0263

032737

026412
026414
026422

026430

026536

100000

023516

001406
0S2737
004737

100000
027242

023570

032737

024000

023516

176400

023520

131761

023534

001437

2§3é 026426 000440
6543

6545
6546
6547
6548
gg;g

6551

I.STOR

026436
026440
(026446
(026450
026456

001027
032737
001023
032737
001017

026460

122716

00000S

MOV

18:

; STORE COMMAND

xssueo

1.¢82’°
:CLEAR TEMPORARY CS2
P.DRVN(RS),T.cS2’ Lonooan
IVE NUMBER

MOVB
BICB

P.CSIH(RS),T.CS141 ;ST
ITS 8-15 OF CS1
ofc<e.coreé.crnr>,rcsx+* !CLESsIvLL BIES EXCEPT

MOV
1STB

T.CS1,RKCS1(R2) xssuc ComMA
RKCS1tR2)
JWAIT
FOR nenov

T.CS2 RKCSé(RE) -L0AD oné

8PL
JSR

18
PC,1.STOR

BEQ

BIT

BEQ
8IS
JSR

2$
cE nos
E.CONT
CONT

BIT

2§:

T CS1,-(SP)

CLR
MOVB

MOV

6537 026404 032737 001000 023520

6544

1.CCLR

:; 363636 3636 36 36 3 38 3 3 3 3% 3 3 3 3 3 3 3 3 3 3 3 33 3 3 3 3 3 3 3 3 3 3¢ 3 3% 3% 3% 3 3 3 3 36 3 3 3 3 3 3 33 3 3 3 % X X % X%

(026320
026324

6538
6539
6540

ROUTINES USED:
—eececcccce--

. %

§25
6S26

6535

RO, I.IS5U

ggs:i
6524

CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE

8CERR, T.CS!

#MDS, T.CS2

NUMBER FOR COMMAND

;GO _STORE REGISTERS

cuccx xr CONTROLLER ERROR OCCUERED
TURN

cutcx IF MULTIPLE DRIVE SELECT

:NO, CHECK FOR OTHER CONTROLLER ERRORS
:SE} MULTIPLE DRIVE SELECT FLAG
!REPORT CONTROLLER ERROR

:RETURN

. CHECK

IF ANY CONTROLLER ERROR

BNE
BIT
BNE
BIT
BNE

78
SUFE ! PGE ! NEM! NED! UPE ! WCE'DLT, T.CS2
78
8ILC'DTYE!FMTE'ECH!
BSE'HVRC ! COE ! DTEOPI!DCK, T.ER
78

CMPB

8DR.CLR, (SP)

8IT

8CTO!SPAR, T.CS1

IS SET

;CHECK IF CLEAR DRIVE

CZRERCO RKB11/06 USR DEFINED

CZR6RC.P11

02-DEC-77 11:07

6552
6553
6SSH
6555
6556

026464
0ce46b
026474
026500
026502

001003
052765
004037
026530
012762

6559

026514

000200

656]

026516

0S2737

001000

6563
6564
6565
£See

026524
026530
026532
026534

004737
005726
011000
000200

027242

gezg Bbeid

R8s

MACY11

000020
0c2k23e

000014

000100

000000

023570

G10

30(1046)
02-DEC-77
11:59
PRGE 124
#COMMAND ISSUED BY DRIVER SERVICE ROUTINE

DO NOT SET DRIVE HARD ERROR

S8DRVHROD,P. PRST(RQ);SET HARD DRIVEERROR

3%:

RO, I.CCLR’

cs:

?IS,RKCSI(RE)

:GO’ ISSUEA CONTROLLER CLEAR
:ERROR RETURN
357
INTERRUPT ENABLE

RETURN

#E.CERR,E.CONT

;SET CONTROLLER ERROR DURING

78:

1098:

(30,+
+

giugr QURSOR NORMAL RETURN

PC,R.CONT

: " DRIVER SERVICING
;REPORT ERROR

:RETURN

(SP)+
(RO),RO

PADJUST STACK
'ADJUST RO FOR ERROR RETURN

SEQ 0123

CZR6RCO RKb11 -06 USR DEFINEC
0e-DEC-77 11:07
CZRBRC.P11L

MACYil

30(1046)

#STORE RKbB11

.SBTTL

6567
6568

02-DEC-77

11:59

PRAGE

UNIBUS REGISTERS

125

SEQ QJla4

#STORE RKbll UNIBUS REGISTERS

(3T YIRS PRS2
.l

H10

IRITS AT RITILLI SIS

2222222222222 2L )

THIS SUBROUTINE IS CALLED By THE RKO6 DRIVER TO STORE ALL

RKb11

TEMPORARY LOCATIONS.

: #CALL

JER

USE

ADDRESS OF RKB11 REGISTERS

PC,1.STOR

RETURN

6598

0
026662

0000000000000
00

000303 3 36 38 3 36 08 3 36 36 36 36 3% 36 36 30 36 36 36 3 3% 3¢ 34 36 36 3% 36 06 38 3636 90 30 96 3 30 08 3090 3 06 36 08 30 08 30 36 06 3% 3 06 3 3 0 0 3 0 3 2 %

023516

1.STOR: MOV

023536
023534

MOV
MOV
MOV
MOV

023530

MOV

RKDCYL (R2) . T.DC

MOV
MOV

. T. MR
RKMR2(RS)
RKMR3(R2),T.MR3

MOV

T.PART
.
RKECPT(R2)

023520
023522

023532
6
&
2237
237
0

3540

002030
000032

3542
023544

023546

023550

MOV
MOV

MOV

MOV
MOV

RTS

RKCS1(R2),T.CS1 ;STORE ALL CONTROLLER REGISTERS

RKCS2(R2) . T.CS2 :~
RKWC(R2),
. WCR

EXCEPT DRTA BUFFER

RKBA(R3)
. T.BA
RKDA(R2)
. T7.DA
RKDS(R2),T.0S
RKER(R2) . T.ER

F
(R2), T. ASOF
RKASO

RKMR (RS),f.nR

RKECPS(R2},T.POS

: RETURN

CZR6RCO RKG11/06 USR DEF INED
CZReRC.P11
02-DEC-77 11:07

MACY11l 30(1046)
02-DEC-77
11:59
%#STORE CONTROLLER STATUS

I10

PAGE 126

SEQ 0125

6333

.SBTTL

Bbgé

; ‘ll!lllllliillllllllllllllll!lllillili!ll!llllllllllllllilllllll

6603

6606

6610
6611
6612
ggia

S
L
TM

6615

‘%CALL

JSR

ggig

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

6620

bbee
6623

¢
S

228;

6607
6608
6609

THIS SUBROUTINE 1S

6624
gggg

COMMAND AND STATUS REGISTER 2

uono COUNT REGISTER
S ADDRESS REGISTER
DESIRED TRACK AND SECTOR

STATUS REGISTER
ERROR REGISTER
ATTENTION SUMMARY/OFFSET REGISTER
CYLINDER ARDORESS REGISTER

PC,I1.CSTS

CONTENTS

L
D

R2
RS

RKOb BASE ADDRESS
ADDRESS OF PARAMETER BLOCK

ememe———
mes=ece-

s %

ggsg

CALLED BY THE RK06 onxvsn AT PRIORITY 7.

THE FOLLOWING REGISTERS WILL BE STORED

e
e
E

6621

6629
6630

#STORE CONTROLLER STATUS

:; Y 2Y22222222222222222222222222X2223X22 2222222222222
BIC

#177741,P.CS1(RS)

222222 232

026664

042765

177741

000016

1.CSTS:

;CLEAR ALL BITS EXCEPT FUNCTION
:OF LAST COMMAND ISSUED

6631
6632
6633
6634
6635
6636
6637
6638
ggag

026672
026700
026706
026714
026722
026730
026736
026744
026752

042737
053765
016265
016265
016265
016265
016265
016265
016265

000036
023516
000010
000002
000004
000006
000012
000014
000016

023516
000016
000020
000022
000024
000026
000036
000034
000032

BIC
8IS
I1.CST1: MOV
MOV
MOV
MOV
MOV
MOV
MOV

#36,T.CS!
T.C51.P.CS1(RS)
RKCS2tR2),P.CS2(RS)
RKWC (R2) ,P.WCR(RS)
RKBA(R2) ,P.BAR(RS)
RKDA(R2),P.DTS(RS)
RKDS(R2),P.DS(R5)
RKER(R2) :P.ER(RS)
RKASOF (R2) ,P. RSOF (RS)

:CLEAR FUNCTION OF CS1 STATUS
:GENERATE CS1 STATUS INFORMATION
*STORE COMMAND AND STATUS REGISTER 2
:STORE WORDCOUNT scxsrsn
:STORE BUS ADDRESS REGISTER
:STORE DESIRED TRACK AND SECTOR
:STORE DRIVE STRTUS REGISTER
:STORE ERROR REGISTER
srgggsgrrsnrxon SUMMARY AND

6641
642

026760
026766

016265
000207

000020

000030

MOV
RTS

RKDCYL (R2),P.DCYL (RS)
PC

srons CYLINDER ADDRESS
‘RETU

30(1046)

#GATHER DRIVE

026776

112737

000001
026314

023516

023542
023544
0oooc2

000044

005062
112737
004037
027200
013765
013765
032737
001407

K IC 30 I 30E K K MK K K e o

TR TR

000026

PRGE

127

SEQ 0126

00 D0 00 0 0T 300 0000 00T

300 0

00000

0 S

THIS SUBROUTIN£ WILL BE USED TO GATHER DRIVE STRTUS
BYTE
ND 11. IT 1S ARSSUMED THRT THE DRIVE
IT RUNS AT PRIORITY 7.

HRS PREOIOUQLY BEEN SEIZED.
<noosess o# ERROR RETURN>

JSR

RETU

THIS ROUTINE ARSSUMES THE FOLLOWING REGISTERS CONTAIN:

K B ¢

R
D

000001

012762

STATUS

J10

#GATHER DRIVE STRTUS

S 330 0000000 00

CALL

11:59

CONTENTS

R2
RS

RKO6 BRASE RDDRESS
RADDRESS OF PARAMETER BLOCK

oo o M e i o

.SBTTL

026770

02-DEC-?77

ROUTINES USED:
I.1SSu

I.STAT:

MOV

81,RKMR1 (R2)

; LORD HQINTENQNCE REGISTER

MOVB

#DR.SEL, T.CS1

< 3696 36 3 36 36 36 36 36 3 36 3638 36 3 3t 36 36 36 36 36 48 36 36 36 3¢ 36 36 36 36 3 3 3 3 3 3 38 96 3 34 36 08 08 3 36 36 30 96 36 30 3¢ 28 3% 3% 36 3 6 3¢ 3¢ 34 3¢ 3

;

FOR STATUS BYTE 0Ol

000046
000026

MOV
MOV

T.MR3P.B0O1(RS)
#2, RKMR1 (R2)

:LOAD CO.1MAND
GET STRT¥SBYTES 01l
: ERROR RE TURN
:STORE STATUS BYTE 01 MESS
:STORE STATUS BYTE Ol MESS
:C0RD MAINTENANCE REGISTER

000001
0ee314

023516

MOVB

#DR.SEL, T.CS1

;

023542
023544
000003

0000S0

T.MR2, P RO1(RS)

ggn

RO, 17 18U

MOV

T MR2, P R10(RS)

MOV
MOV

000001
026314

023516

MOVB

%gn

RO, 1-1S8U”

023542
023544
000026

000054
000056

MOV
MOV

T.MR2, P R11(RS)
MR3
P.B11(RS)

000001
026314

023516

MOVB

ggn

RO, 1~ 1S5U

023542
023544
001000

000040

MOV

T.MR2,P.AO00(RS)

BEQ

000042
023544

CLR

MOV
BIT

cgnnnno

;GET STATUS BYTES 10
TURN

T.MR3 P.B10(RS)
83, RKMR1 (R2)
#DR.SEL,T.CS1

RKnR1tRa

#DR.SEL, T.CS1

T.MR3)P.BOO(RS)
#S.PAR, T.MR3

000052
000026

!""FOR STATUS BYTE

RABun

MOV

RO, 1. IS5U

—~~D
o

ggfl

—OD

MACY11

STRTUS BYTE 11 MESS
ORE STRTUS BYTE 11 MESS
;LOQD MAINTENANCE REGISTER
;
FIR STATUS BYTE 0O

—~ DD

CZR&RCO RK611-06 USR DEFINED
0e-DeEC-77 11:07
CZR6 RC.Pl1

:LOHD COMMAND
{GEY STATUS BYTES 00
:ERROR R TURN
:STORE STATUS BYTE 00 MESS A
iSTORE STATUS BYTE 0O MESS B
:CHECK IF BAD PARITY DETECTED BY DRIVE
iNO, RETURN NORMALLY

CZR6RCO RKB11/06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

6700

027166

6701
6703
g;ga

027174
(027200
027202

6705

027204

6707

027214

6706

027212

052737

004737
011000
000200
052765

005720
000200

002000

027242
001000

MACY11 30(1046)
02-DEC-7?7
11:59
%#GATHER DRIVE STATUS

023570

000014

BIS

K10

PAGE 128

os DPRR E.CONT

3%:

JSR
MOV
RTS

(Rb) RO

S$:

BIS

#PBSVAL,P.PRST(RS)

RTS

157

CONT

(RO, +

SEQ 0127

; INDICATE BAD PARITY DETECTED BY DRIVE

:REPORT ERROR
RETURN

'LORD RO FOR ERROR RETURN

:SET PARAMETER BLOCK STATUS VALID

noJusr RO FOR NORMAL RETURN
: RETURN

CZR6RCO RKB13-/06 USR DEFINED
CZRBRC.PI1
02-DEC-77
11:07
g;?g

MACY!1l 30(1046)
02-DEC-77
11:59
#COMMON DRIVER RETURNS
.SBTTL

L10

PAGE 129

SEQ D128

#COMMON DRIVER RETURNS

6711
2713
Egiq

027216
755%
7

105037
upH???
000207

023617
174336

R.ABNL: CLRB
g?R
S

INTMSK
Pg,aQ.RBNL
P

; INHIBIT FUTURE DRIVE INTERRUPT REPORTING
,&N?ICQTE ABNORMAL RETURN
s RETURN

6715
671;
g;%e

027230

105037

023617

R.NORM:

INTHSK
PC, dR.NORM
PC

,INHIB&T FUTURSLDRQVE INTERRUPT REPORTING
; INDICATE NORM
RETURN
;RETURN

6719

027242

105037

023617

R.CONT: CLRB

INTMSK

;s INHIBIT FUTURE DRIVE INTERRUPT REPORTING

004777

174304

PC,adR.CONT

,INDIC

6720
6721

evee

6723

og?safl
027240

Q47?727
0207

027246
8 7252

105037
0059;7

0e72e2

000207

7286

174322

023616
023632

CLRB

JSR
RTS

CLRB
CLR

W. TIME
W.DRY

RTS

JSR

;RESET
WATCH DOG TIHING ON THIS
VE
; CLEAR é ING COUNT
F THIg Qns
; RETURN

CONTROLLER ERROR

CZR6RCO RK611l~/ 06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07

MACY1l

30(1046)
02-DEC-77
#COMMAND INITATOR

.SBTTL

#COMMRND

11:59

PRGE

130

SEQ 0129

INITATOR

SUBSYSTEM CLEARR
REARD ALL DRIVE STATUS
RERD SPECIFIED HERDER

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS
JSR

PC,C.INIT

(ADDRESS OFf PARAMETER BLOCK)>

RETURN

FOR THE SEGUENT AL opsnnréons
LOCATIONS,

AND INTM

THE DRIVER WILL LOARD THE

.INIT:

7777
2356

MOV

MOV
MOV
MOV

000016

RI,-(SP)
RO’ -(SP)
PS’-(SP)

MOV

P. bRVN(RS) RY

BIC

023600

MOV

023617
023616
023632

023554

RS, -(SP)

R4’ -(SP)
R3!-(SP)
R2.-(SP)

MOV
MOV
MOV

MOV
MOV
ADD

177776

s wswswewswe

[y Sy ws

Gt P

027362

OO0

027346
027354

74
73

O
NI NWW

Pt P

e P

027264

o8 QO0CO0O0000

o 36 3636 36 36 36 36 36 36 6 36 36 36 96 36 3 36 36 36 36 36 36 36 36 36 36 36 36 3¢ 3¢ 36 36 3 36 06 96 36 36 36 36 38 38 38 3% 3 38 3 3 3 3 3¢ 3¢ 3¢ 36 3¢ 3¢ 3¢ 3¢ 34 3¢ 3% 3¢ 3¢

()

ROUTINES USED
(92
=
n-

THE FOLLOWING

CORROL
CONROLLER CLEARR

2 b2

S 2 22

THI? EUBROUTINE WILL INITIARTE ALL COMMANDS RS _SPECIFIED

BY
THE COMMAND FIELD OF THE PARAMETER BLOCK.
SPECIAL COMMAND RARE ALSO EXECUTED:

v4>4»4!:

CALL

W WIS e G WEBE B

S SRR 2SR L 2

s we s we W
8 o0

o 3636 36 36 36 36 38 36 38 36 3¢ 36 36 36 98 3¢ 38 3% 36 36 3 3 38 3 36 38 3 36 3 36 3¢ 3 36 36 3 36 3 3¢ 2 3 36 36 3 30 36 3 38 08 3 36 38 3 36 36 3 36 3% 3% 3 3% 3 2 %

RKPRI; PS
aés(gfi) RS
SP)

c¢c<oavnsx$ RY

:STORE RS ON STACK

'STORE R4 ON STACK
;STORE R3 ON STACK
:STORE R2 ON STACK

:STORE Rl
ON
STACK
;STOR
RO
ON
STACK
:STORE
PSW_ON STACK

LOCK oUT RKO& INTERRUPTS
;
Pannfiirsn BLOCK ADDRESS
o
T RETURN

srone DRIVE NUMBER
g ouY ggnx

LO D PRRAMETER BLOCK TRBLE

MOVB

MOVB
MOV

ORV(RH) INTMSK’ ;LORD INTERRUPT MASK
1 DRV(R4) W.TIME ;SET WATCH-DOG TIMER FLAG
W.SEC, Wohv
tono WATCH-DOG TIME

MOV

RKBRS, R2

;LORD R2 WITH RKD& RDDRESS BASE

IN PROGRAM DEVICE STATUS REGISTER EXCEPT
RESET RLBR?ITS
VE IN USE
ggITEEEOR WRITE CHECK

DROP DRIVE FROM TEST SEQUENCE
INHIBIT BUS RDDRESS INCREMENT

cstRco RK611/06 USR DEFINED
CZRERC.PI1
02-DEC-77 11:07

g;g?

027366

042765

6782

0273794

027376
027402
027404

010500

062700
010501
062701

6787
6788

027410
0274l

005020
020001

6791

027422

6783
6784
gggg
6289

027414

075176

MACY11 30(1046)
02-DEC-7?7
#COMMAND INITATOR

000014

000016
000062

101775

6792
6793
6794
E;gg
6797

6798

010465

005062
132765
001402
000137

000026
000040

027446

122765

000107

RS, RO

; STORE PARAMETER BLOCK ADDRESS

CLR
CMP

(RO)+
RO, R1

;CLEAR RET
PARAME TER
;cuscx IF
~1§H£

RY,P. CSE(RS)

on
afi

MOV

000001

030156
000001

3S:

sP ! csx RO
RS, R
»P. spnr R1
18’

1.ISRL

eose

6805

6810
6811

6812
6813
6814
6815

CMPB

SUNLORD,P.CMND(RS)

027454

101174

BHI

25$

&TART SPINDLE

027456

027464

122765

103540

000117

000701

cMPB

BLO

¥SEEK,P.CMNG(RS)

20$

;NO,

6820
6821
6822
ggga

02751M
027516
027524
027532

801007
016562
016562
000431

6825
6826

027534
027542

682
ggso

85755
7560

6831

0275k2

027506

122766

000020
000002
023572

000010
000014

000117

000001

000002
000004

000020
000006

122765
001007

00011S

000001

016562
000916

000032

000016

122765

000111

00000%

6&%:

023604
000113

023632
000001

7%:

6827 027544 116565 000006 000032
027570
027572
027600
027606

001003
013737
122765
001003

PACK RCKNOWLEDGE
;CHECK

]F DATA TRANSFER

WRITE DATA
RERD HERDER
HRITE HE ADER

WRITE

CHECK

MOV
BIS
CLR

P.CS2(RS), Rxcsa<ha) -Lgnga
oonvpos P PRST(RS) ;:&E
0.WRIT
,CLtnn un}

BNE
MOV
MOV
BR

13
.AG. CHECK FOR
OFFSET
P.CYLN(RS), RKDCY( (R2) :LORD CYLINDER ADDRESS
P.SECT(RS) RKDAR(R2) :LOAD SECTOR AND TRA
8$
;G0 YSSuE CommanD

CMPB
BNE

SOFFSET,P. CHNO(RS)
68

CMPB

SS:

DRIVE COMMANO

QELECT DRIVE

,9:5 oRtA rnnnsren COMMAND
: "READ DATR
.
!
;

016562
052765
00S037?

Rscnt¥eanrs
OFFS
SEEK

oy
:

027466
027474
027502

6832
6833
6834
6835

;CHECK IF POSITIONING COMMAND

:
:
.

6816
6817
6818
6819

CLEAR
MNEXT RETURN PARAMETER

CLtnR RELERSE on xurennupr ISSUED

RKMR]1 (R2;
06 MAI nvsnance REGISTER 1
csxrs P. CHND(RS) cwscx IF specan COMMAND
33
:NO, PROCESS
C.SPEC
;JufiP TO SPECIAL COMMAND PROCESSOR

6806
6809

:CALCULATE FIRST LOCATION TO BE CLEARRED
:STORE PARAMETER BLOCK ADDRESS
:CALCULATE LAST LOCATION TO BE CLERRED

CLR
BITB
BEQ
JMP

6799
6800
6801
6804

SEQ 0130

MOV

CLRB

000020

027426
027432
027440
027442

PAGE 131

#1C<DRVUSE ' W. WCK ! NOCHK ! DRPORV!DTBAII> ,P.PRST(RS)

BLOS

6790 027416 105037 023612

N1O

BIC

RDD
MOV
ADD
18:

11:59

MOVB

MOV
BR

CMPB

BNE
MOV
CMPE
BNE

8SEEK,P.CMND(RS) ' ; CHECK IF

vgonunaen
SITIONING
OR COMMAND

SEEK

;CHECK IF OFFSET
CHECK FOR UHLOQO

P OFST(RS), nsot(RS);STORE OFFSET

P.ASOF (RS) |nxnsortaa) :LORD OFFSET REGISTER
8%
;GO ISSUE COMMAND
ISRTSPL P.CMND(RS)

;CHECK

IF srnar SPINDOLE

78
"NO' CHECK IF
R
W.MIN,W.ORV
:LOAD WATCH ooc TIHE FOR 1 MINUTE
$RECARL,P. CMND (RS - CHECK IF RECAL
8s
nb CONTINUE

8s:

TMITARTOR

MOV
Move

SNOCHK
| P.PRST(RS)

108:

#CERR, T.CS1

JCLEAR DRIVE TIMING COUNT

C.RTRN

IRESTORE REGISTERS

\J&VOV%&E

o8O BReoS
N-—&;»-NU‘U‘U'

000020
000010
000014

031136

000016
000000

27s:

30S8:

000001

C.SPEC:

ITE connnno SHOULD BE ISSUED

SWRDRATA, P. csxtnsi
268
IS

.SBTTL
000141

;

25%

HE
COMMAN

HRITE
COMMAND

#id_ WCK P.PRST ( Ré %
RE ET unx?s Fgg HRITE cuscx
P. CSleRS)|P cs%oxt RS sronz exrs 8-15 OF cs1
P.CMND(RS),P. ¢ S

268:

000020
000020
000400

'RKDA(RS)

8W. WCK,P.PRST (RS}

25%:

000014

:INDICATE COMMAND IS FINISHED

gugTCHK,P énnotns&o
;CHE x HéTE
cuzcx connnno
P.SECT(RS)

000016

100008

was onxvs

W.DRV

P.WC(RS) . RKWC (R2) :LOARD
COUNT REG
P.CYLN(RQ),RKOCYL(RE) L ORD
CYbRNgfig
noonsss Rscxsvsn

000014

02357

030156

WAT
?fié
IRESET TIH

P.BALO(RS),RKBA(R2) Lonaoggs RDDRESS Rgcxsren

000001

177750

GIVE NORMAL RETURN

# WATCH DOG TIMER

118
W.TIME

(RS

-MOVE C

#¢C<B.CFMT!B. ¢DT!B.BA 16

e4 OO IDDODOI
20 =M~ O=M~O
V<L OO0-4<NO—~<C

030062

WTCH

RKASOF(RE) nsot;S one ATTENTION SUMMARY
INTMSK, Tnéor+1 ;cfiegx INTERRUPT Hns occunnso

11%:

c0s:

030054
030070

;CHECK_FOR ERROR

SRBERNEILT

Boos88

1ss

PC.R.NORM

030046

:CHECK IN NO CHECK M

RKES1(R2),T.CS1 ;STORE COMMAND AND STATUS REGISTER 1
:82,7.6s1
TWRIT FOR RERDY

158

016562

:LOAD RECAL TIME FOR 8 SECONDS

P.CSIHIRS),P.CS141(RS);STORE BITS 8-15 OF (Sl
8#C<CFMTICOT> ,P.CS1(RS)’ CbERR ALL BITS EXCEPT FORMAT

308
;N0 SKIP CLERR OF INTERRUPT ENRBLE
8IE P.CSI(RS)
:CLE
NTERRUPTNS
P.CS1(RS),RKCS1(R2) ; ISSUE COMMA
PC.W.WTCH
;CALL WATCH DOG TIMER

137

030036
030044

W.BSEC,W.DRV

SEQ 0131

°$é
TYPE
P.CMND(RS),P.CS1{RS) :MOVE
COMMAND INT
i, WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK

023516
023532
023533

PAGE 132

;

0.WAIT

§?§

LORD

lDfBflII P. PRST(RQ) ;CH
27%

8BRI.P.CS2(RS)
:SE
P.CS2(RS),RKCS2(R2)
#NOCHK
, P. PRST(RS)néc
308
81E,P.CS1(RS)

. gwi.r'-o-or-

023516
023516

Bll

CQI(RS) Rxcsxtha)
Resto

c.n

po]T))

000016
000000

11:59

MU
e X
CZU
OO Xirere

g882g}_o)BES:
ng

#COMMAND

02-DEC-77

000014

=
=M E—
AN
3
ONNUNO
N N
G
WWW—WOW
NNNNNNN-=NNN

[

30(1046)

02363¢
000017
000016

013737
116565
042765

027610
027616
027624

MACY11l

CZR6R00 RK611/06 USR DEFINED
CZR 6RC.P 11
02-DEC-77 11:07

INTO
C

.BAI7>,P.CS1+1(RS)

;CLERR ALL BITS EXCEPT

o;xvt TYPE, AND afis ADDRESS
1

NG _FOR_COMMAND

F_INHIBIT BUS ADDRESS INCREMENT
aBUS RADDRESS INCREMENT
NO CHECK MODE
EAR_OF INTERRUPT ENABLE
RUPT ENRBLE
OMMAND
ISTERS

#SPECIAL COMMAND PROCESSING

CMPB

#RDSTAT,P.CMND(RS)

;CHECK

IF RERD DRIVE STRTUS

001132

03020e

042765

BNE
H v

838154 P1ezee 388857 BER81Y
165777

88880 888848
{8 jiezss
737

g§&76§

023634

MOVH

000016

888818

WNCN
L WN—-OW0

E8tC<CFMT!
ngfiB%s"§°8§ifif(nsk°“27835
E??s312"8r cSl
CbT) P.CSlafiB bERRYgtL BITS EXCEPT FORMART

PC 1. csrx

nxna
aooz r
P.CS1(RS) cuséx F C
ICERR,
)P,

;YES,

RO, I.CCLR

VE_STA

;Ehshn

IND

RROR

000036

conn P.DS(RS)

052737

8301%
137

100000
88729
113

023570

122765

000140

000001

10%:

023572

VDDO—-DVXDD

N ODDMOONN
WM

000137

VDV

8%:

RESTORE REGISTERS

e @M
=

:CHECKIF DRIVE AVAILIABLE

.BRVS£8NP PRST(RS)NO}NgiER;ENSSHVE &2 SEIZED BY OTHER PORT

3 H

000014

RO, I.STAT

cnrusn DRIVE STATUS

,ERROR RE TURN

W.T ne
W. DRV

;

00001

9TOP_WAT
u-ogc T*HING ON DRIVE
SET S“

SNOCHK, P. PRST(RS’ -CHECK IF

NO CHECK MODE

REPORT nSuP

RKCSI(RS)
C. ATRN

:CLERR INTE "? ENRBLE
:RESTORE REGISTERS

,ne ORT COMMAND COMPLETE

8E.MDS,E.CONT

pchnhcbnr

;SET MULTIPLE DRIVE SELECT

: INDICATE CONTROLLER ERROR

CRELERSP. CHND(RS)

AZbo.uarr

;CHECK IF RELERSE COHHQND

{89OrE"Paknt
YER B Ork HBORESS In

#RLS,P.CS2(RS)

165777

00 MESSAGE B

EE
00 MESSAGE
A

ggso'urs P.csa(néaspgggcx F NON-EXISTENT DRIVE OR UNIT FIELD ERROR

63:

042765

R REGISTERS

000020

000014

030516

W.TIME
Rséegu
10
TIM I?G ON THIS DRIVE
T¢
W. DRV
cuggéc
OUN
LERR WA
SNOCHK, P. Pasrtnsi
NO CHECK MODE
I
TURN
8s
Y ?x I cnr; NOR
8MDS,P.CS2(RS) £CH§¢x ?P gg* IPLE DRIVE SELECY
1
E
CONTROLL
6$

000020

030466
030474
030502
030510

CONTROL

nxha ),P noo<

000040
000042
000016

[ Y SNy ""“"""D

PROCESS OTHER COMMANDS

S R
N RE comaNDBnuo STATUS REG.
3
ig m&S ! (k
wmSFORCRERDY
MO
!

000014

316839

SEQ 0132

BCsTches RREST?Zzss'm%

es:

6308

LAl AL AL AL AU AC AL Al A
DD D DO OO DD D

133

030164

MARCY11

CZR6RCO?TSII/O& USR DEFINED
CZR6RC.P
02-DEC-77 11:07

Cll

EC-77
6éE§ZI
PAGE
30¢ 1 046) )
02-DE
%S PEC IAL COHHRND PR

P csécRS) RKCSE(
ISRL’

sr Rsksnsg ;

S OR DESELECT
LAG FOR RELERSE COMMAND

PCSIH(RS)
P. CSl*l(RS):STORE BITS 8-15 OF CSI
#tC<CFMTICOT> ,P.CSI(RS) TM ;CLEAR ALL BITS EXCEPT FORMAT
"7

TM41
¢

AND DRIVE TYPE

CZR6RCO RK611-06 USR DEFINED
CZRBRC. P11
02-DEC-77 11:07

694
694

MACY1l

D11

30(1046)
02-DEC-77
11:59
PAGE
¥SPECIAL COMMAND PROCES ING

134

#SELDRV,P.CS1(RS)
#NOCHK, P. PRST( RS)

SEQ 0133

;STOREC COMMAND

BAE78

feies

32Ri88

000016
000014

000137

000100
000016
031136

000016
000000

118:

CS1(RS) NQSE?OIN
BLE
CSI(RS) nxcsxtha) 1SSUE nnnno

122765

000164

000001

138:

ORDGLHD P. CHND(RS)

016537
2765

023572
800010
000020

023606
000007

000024

023610

127
000403
12737
168
165
0165
11656
042765
112765

INTERRUPT ENABLE

unxr

;CHECK

IF READ ALL HERDERS

227 uHi?“ué‘ SS"Efiflhhuo EbnnPLETIon

égi‘mCSIH(R ) 8&2cx??‘aa“22R§88 FORMANT
HEROER COUNT
Lonb
9fl
IN
SECTOR
'GO0 ISSJUE RERD Hsnoen connnno

CY(N(RS) Rkocvt(
R2)

00012S
000400

000016
000014

#RDHERD,P.CS1 (RS} ;STORE nsno HEROER connnno
sNOCHK, P. PRST (RS) gHE?
? 85

000016
031136

000000

000176

000001

002

HDR.CT

anoc noonsss
cron

84C<CFMTICOT> ,P
°515§8 bgns ALL BITS sxcspr DRIVE TYPE

ch
LL;GRL
CSl(RS)
Rxc51(ha):
C.R
fons Recxsrsns
308:

#CONCLR, P. CHND(RS)
328

IVER COMMAND

; CHE K IF CONTROLLER CLEAR
g
equren CLEAR

RG, I.CCLR

CLE

TROLLER

40§

: INDICATE NORMAL RETURN

RROR RE URN

SNOCHK, P. PRST(RSS
cx IF NO CHECK MODE
40
Nb
?AT NonnaL
RETURN
RKCS1(R2)
IRESET INTERRUPT
ENABLE

000014

000177

000001

328:

000100
027242

023570

348

0127
01626
032765
0014

000040
000000
100000

000010
000016
000016

368:

000001

023570

004737
ooo437

027242

013746

023576

016265

000000

#SUBCLR, P. CMND(RS)

368
®E. ILLD,E.CONT
PC.R.CONT
C.RTRN

cuficxnar
suasvsrsn CLEAR

YEQ
BSYSTEM
;SET I#LEuflL DRIVER COMMAND
I REPORY
ERROR
'RESTORE REGISTERS

RKCS1tR2),P CSl(hg Ug gg SHNRNO AND STATUS REGISTER 1
#CERR,PCQl(RS
IF CONTROLLER ERROR RESET
3?
MMAND
s81T10,E.CONT
set
vsren DID NOT CLERR
#SCLR RKCS2(R2)

PC,R.CONT
C.RTRN
000016

- LOAD ae

Sty
-tmg R e
P.CSIH(RS),P.C +1(R$) TSSQVEITS 15 OFC

0ooo0c

05%7%9

3610
020
000006
00001
00001
000016

000400

1406
052737
004737
000457

T RE

ss?onzREGISTERS

oao ,HOR.CT
22$

026232

682755

c.a RN

:CHECK IF NO CHECK MODE

SSUE

SUBSYSTEM CLERR

CONTROLLER ERRO

R PORT ERROR

RESTORE REGISTERS

37%:

W.MILI,-(SP)

Lono 16 MILI-SECOND COUNT FOR ATTENTION

38%:

RKCS1(R2),P.CS1(RS);STORE CS1

T0 DISAPPEAR

CZRBRCO nxsxx/os USR DEFINED
CZR6RC. P
02-DEC-77 11:07
7004

031060
031062
031064
031066
031070

001411
00S31
00136
005726
052737

040000

000016

000040

023570

7011

031076

DO473?

027242

7014

031104

005726

;8{5
7015
7016
7017
7018

031102

032765

MACY1l 30(1046)
02-DEC-/7
: 59
#SPECIAL COMMAND Pnocsssxnc

7005
70
7007
7008
7009
7010

0310.

000415

031106
031114
031116
031124

032765
001010
(12737
Qle7

7021
7022
7023
7024
7025
7026

031136
031142
031144
031146
031150
031152

012637
012600
012601
012602
012603
012604

7028

031156

000207

;853

7027

;833

031132

031154

000014

1777?77
000100

023612
000000

177776

398:

40§ :
C.RTRN:

012605

;ggé

7034
7035
;839

'
¥
'x

7038

:#CALL

7041

H %

7039
7040

;835

031160

010046

7047
7048
7049
7050

031162
031164
031166
031172

010146
010246
016600
005001

7052
7053
7054
7055

031153
0312
031202
031206

66204
142
121627
001420

031214
031216
031222

003030
122716
002425

7056

7057
7058
7059

JSR

PC,R.CONT

REP

(SP)+

ADJUST STACK

1ST

BIT
BNE
MOVB
MOV

DRIVE ATTENTIONS

C.RTRN

T ERROR

'RESTORE REGISTER

#NOCHK, P. PRST(RS) :CHECK IF NO CHECK MODE
C.RTRN
:YES, RESTORE REGISTERS
8-1,1.ISRL
:SET' INTERRUPT ENABLE SET
sIE’ nxcsx(na)
§£ énr RRUPT ENRBLE

JSR

PC,R.NO

NOICRTE

MOV
MOV
MOV
MOV
MOV
MOV

(SP)+,PS
(SP)+ RO
(5P)+.R1
(SP)+.R2
(sp)+,a3
(5P)+ R

;REST
;
gr
IREST
:RESTORE
iRESTORE
‘SE T

RTS

:RET

(SP)+. ns

REST

NORMAL TERHINQTION

PSH
RO
R1
R2
R3
RY

OCTAL TO BINARY CONVERSION ROUTINE

031174

MOV
JSR

RETUR

031210

122716

0000S4

000060
000067

<nooness OF ASCII STRING)>,-(SP)
CTBIN

Do B

OCTBIN:

MOV

RO, -(SP)

2s:

MOVB
BEQ
CMPB
BEQ

CLR

000010

005002

THIS ROUTINE WILL CHECKR STRING OF ASCII CHRRACTERS TERMINATED

WITH A NULL <000> OR COMMA.
IF THE CHARARCTERS ARE LEGAL
IT WILL GENERATE TWO BINARY WORDS PLACING THE LOMW 15 BITS
ON THE STACK AND THE HIGH 16 BITS IN LOCARTION SHIOCT.

tx
x
- ¥

;8:;

7051

vss FINISH COMMAND
DECREMENT 16 MILISFCOND COUNT
cuccx on*vs INTERRUPT RGAIN
;ADJUST STACK
ssr SUBSYSTEM CLEAR DID NOT CLERR

; i!lllllllllllll&lll!lll!!li!llll!lillllllllllll!&llllllllll!!!*l

7033

7046

;CHECK IF ATTENTIONS CLEARED

39§
(SP)
38%
(SP)+
8E.SCLR, E.CONT

MOV

.SBTTL

8DI,P.CS1(RS)

SEQ 0134

BEQ
DEC
BNE
75T
Bis

000400

027230

BIT

135

MOV
MOV
MOV
CLR

CMPB

8GT
CMPB
BLT

R1.-(SP)
R2'-(SP)
10tsp> RO

I I I

; SAVE RO

:SAVE RI
:SAVE Re
'GET ADORESS OF ASCII STRING
:CLERR DATR WORDS

(RO)+,-(SP)
38
(SP), 8",
38

;PICK THIS CHARACTER
‘IF ZERO GET OUT
i CHECK IF COMMA
:IF COMMA GET OUT

4§
%' 7,(SP)
ys

£'0, (SP)

:MAKE SURE THIS CHARACTER IS
AN OCTAL DIGIT

CZR6RCO RK611/06 USR DEFINED
CZR6RC.PL1
02-DEC-77 11:07
7060

031224

03122
0312
ng 3

7065
7066

031:36
031240

7068

031528

7070
7071

1252
031256

010166
010237

ogxesu

812501

;8;9

031270

031274

062716

7078

031276

00S726

7080
7081

031302
031304

012601
012600

7084

031312

00000C

7067
7069

1824

12494

831

7072

031262

031266

7073

707’8
7079

;gg

;ggg

031300

83{3?8

F11

30(1046)
02-DEC-?7
11:59
PAGE 136
OCTAL TO BINARY CONVERSION ROUTINE

006301

7061
706
7063

7064

’

MACY1]l

ASL

ggg 02
0]
02

ROL
ASL
ROL

;oe
2716

ROL
BIC

2601

177770

763

726

012602
012600

000207

0000!0
031312

3s:

.SBTTL

;

(SP)4,R1

:ADD THIS DIGIT

(5P)+

'CLEAN PARTIAL FROM STACK

F
#1C7,

(SP)

MOV
MOV

R1, 10(SP)
R2 SHIOCT

MOV

(5P)+.R]

RDD

82, (SP)

TST

JUNK

:LOOP

ISAVE RESULT

;RESTORE R2

(5P)+ RO

TRESTORE RO

:RESTORE R]

:RDJUST RETURN

i RETURN

(SP)+

;CLEAN UP PARTIAL FROM STACK

(SP)+.R]
(5P)+ RO

;RESTORE
IREST

:HIGH ORDER BITS GO HERE

(SP)+,R2

Sgg

ésp)L,(sp)

.WORD

;STRIP THE ASCII

(SP)+,R2

MOV

MOV
MOV

SHIOCT:

ADD

RTS

868369

MOV

4s:

012602

R2
RI
R2

ASL

MOV

000002

SEQ 013S

‘REST

Rl
RO

;Egr “°°§§§SESSOERR°" ROUTINE ON STACK

DECIMAL TO BINARY CONVERSION ROUTINE

;ggg

55 SEIEIEIEI I 0000000 06 00 30 00 00 00 00 00 30 06 06 00 00 06 06 00 20 00 000000 000 00 00 00 00 00 00 0000 00 00 00 00 00 00 306 30 0 010 6 00 0 0 00 0

;8gé

7093

: #CALL

703s

7094

‘e

70%

‘a

;ggg

031314
031316

010046
010146

7104

031322

016600

031320

031326
031330
031332
031336

7109
7110
7111

031340
031342
031344

7114
7115

031354
031360

7112
7113

JSR

031346
031352

010246

00S046
005002
122710
001001

112002
112001
001427

120127
001424
(22701
003034

DECBIN:

0000SS
2%

0000SY
000060

oEcexn

STRING>,-(SP)

ERROR RETURN>

R
MOV
MOV

RO, -(SP)
Rl -(SP)

MOV

16tsPY, RO

MOV

000010

BINARY WORD PLACING IT ON THE STACK.

(ADDRESS OF ASCII

CRDDRESS Of

RE TURN

7101
7102

7105
7106
7107
7108

MOV

. 3%

;?38
7103

IT WILL GENERATE A

R R R R R R

RN RRRNRR RN

:SAVE RO
:SAVE Rl

R2.-(SP)

'SAVE R

CLR
CLR
CMPB
BNE

-(SP)
R2
8’-, (RO)
2s

:CLEAR DATA WORD
'SIGN
SET POSITIVE
1SEE IF
R MINUS SIGN
:BRANCH IF NO MINUS SIGN

CHMPB
BEQG

RL, s,
38

MOVB
MOVB
BEQ
CHPB
BGT

1GET

RESS OF RSCII STRING

(RO)+,R2
(RO)+.RI
38

:SAVE FOR LATER USE
IPICKUP THIS CHARACTER
:GET OUT IF ZERO

8 0,R!
cs

:MAKE SURE
.
A DIGIT

:CHECK IF COMMA
:GET OUT IF COMMA

THIS CHARACTER
BETWEEN O & 9

CZRGRCO RK611/06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07
031

835431
716

831363
14
031402
031482
0314

gosgxs
11646
316
316
062616

031374

831@12
1412

031416
Y

ngwsg
14

001026

125480
163701

060116

MACY1l 30(1046)
02-DEC-77
11:59 PRGE 137
CECIMAL TO BINARY CONVERSION ROUTINE

000071

CMPB

8'9,R]

BLTY
8IT

170000

8857
1401

P
:SAVE FOR LATER
! Ty
: 8
: #10

R}, (SP)

c$
$'0,Rl

3s:

(SP)
(SP), -(SP)
(5P,
(5P)
(5P)+, (SP)

BVS
SUB
%

747

:DON’T LET MUMBER GET TO BIG

ADD

c$
#170000, (SP)

BNE

ASL
MOV
ASL
ASL
ADD

000060

SEQ 3136

75T
BEQ

'BRANCH IF NUMBER WOULD OVERFLOW

;g RFLOW ISN’T ALLOWED
'STRIP AWAY THE ASCII JUNK
:0

R2
4§

R}N Tuigflo}cal
LOW

’

LOWED

:CHECK IF NUMBER IS NEGATIVE
:BRANCH IF NO

97348
000010
815@33
012601
225%
38820 oooooz

Moy
MOV
MOV
hob
RTS

(2P)+,10(SP)
(§P)+:§8
(5P)+ RI
Rt
Y
’
)
PC

‘*‘5’(‘58“’?
THE NUMBER
;32%5
H%
;RESTORE RI
e
ORETURN
’
;32483~

031452
031454

005726
012602

c§:

TST
MOV

(SP)+
(5P)+,R2

;CLEAN PARTIAL NUMBER FROM STACK
;Resrgsg R2

(SP)+'RI
(5P)+ RO

—

o
O

X
o
<

000207

031462

031464

O
[N

Y
031460

oaiu3e
ngwgi
031440
03lqus
1450

012600

MOV

013616

MOV
.SBTTL

(s, 4, (SP)

R TS

TYPE ROUTINE

REST
RI
;ns;voas RO

;Pg

:G0

nooasgs OF ERROR ON STACK

PROCESS

ERROR

HI 2221221322222 z222z22z27:x%:z:x2z2z2z:1:22z:x2:xx2:x:22x*x222222XXXX2XT2X22X22 222 2]

! kROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

;.Noriié

g?YLLs gonrérns THE NUMBER OF QILLEH Eunsgcrgss fitbuxneo.

I ¥NOTE3:

SFILLC CONTRINS THE CHRRACTER TO FILL AFTER.

:; %CAL L:
;#1)

-loq

USING A

- %#0f

e
s ot
o
e ot P
Pms ot

mwgwmsc:;
ROFRB0 2R

000000000
WWWWLWWWLNKY

T3]0 ¥ O g o o O o o i

[N RININ
A

agiusg

NN N NN N NNN N NN NNN N NNN NN NN

122701

0313
0313

[

7116

Gll

188685

001157

STYPE:

ggla

017600
112046
00100S

005726

000002

18:

2s:

INSTRUCTION

, MESADR

; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

?IPFLG

;gég I?E?ESQ TERMINAL”

TYPE

MESADR

HALT

000407

TRAP

000000
010046

YPE

; ;HALT HERE IF NO TERMINARL
; sLERVE

MOV

RO, -(SP)

; s SAVE RO

Move
BNE

(RO +,~-(SP)
4s

: ;PUSH CHARACTER TO BE TYPED ONTO STHCK
;3BR IF IT ISN’'T THE TERMINATOR

MOV
TST

2tsP),Ro
tSP)+

; ;GET RDDRESS OF ASCIZ STRING

; : IF TERMINATOR POP IT OFF THE STACK

)

CZR6RCO RKE11/06 USR DEFINED

CZR6GRC.P11

02-DEC-?7 11:07

MACY1l

30(1046)

02-DEC-7?7

TYPE ROUTINE

11:5S9

2458 B3tetdv BLS58 ooooce

g%:S:

M
HSY

(SP)+. RO
a3l

;i;§

ys:

ggga

891,(591

7174

031522

000002

657Z58

000011

7177

031532

1g2716

000200

717

7178

Bglésa
1

1542

905

RTI

CMPB
B

109401

TYPE

HLl1l

PAGE

8CRLF, (SP)

(SP)+

2188 B3jed8
718d
99473
A% 318
BiE
AGTaEs B3tk

;{gg

031566

5k
35
23.lmPe GELLC CSp)e

7189

031572

7s:

7191
7192

16
031604

7190

;{ga

83157

031610

013746

001154

105366

000001

304737
105337

031636
031702

277

000770

MOV

7198
7199

031612

031616
031535

112716

004737
682737

000040

031636
000007

8s:

031702

L))

147306

;eou 03{535 10037
7582 831252 ié3§

o
88881§

031702

7207

1660

1666

7210

031670

7212

031700

;g{g

031704

7213

s
13
,,85%8
rB¥urn
pc

ANCH IF «(HT>

;;mn IF NOT <CRLF>
;;POP_

::&5R CRARRCTE
fg
TPe
% 1re Pl
TR FICCER CHARS. 7

"Efié ngr FILLERCHARS. NEEDED
:'DOESR NULL NEED YO BE TYPED”

,,Eg

;1 LOOP

STYPEC
SCHARCNT

(CRY(LF> EQUIV

:ITYPE A CR AND LF

F NO--GO POP THE NULL OFF OF STACK

2!
YPE A MNOL
.00 NOT counr ns A COUNT

:HORIZONTAL TRB PROCESSOR

758§
831235 -%87
7203 031636 10S777

7211

1(SP)

SEQ 0137

BLT

JSR
DECB

;igg
7197

LECB

$NULL, - (SP)

138

122766

031676

001402

031702

000000

105227

,.REPLQCE TAB WITH SPACE

:TYPEA SPACE
,,enancnIF NOT AT

a§
3STPS

"cg
gg HflRflg gg
DIWAIT UNTIL PRINTER IS RERDY

BNE

.,BR é N8

$TYPEX

BEQ

STYPEX

$TYPEC: TSTB

fiSb
CHP

1S:

,(SP)

pc,$TYPEC
87, SCHARCNT

CLRB

000002

8’

JSR
BITB

cCMPB
INCB

SCHARCNT: .WORD

glgggcasrpe
sCR,2l5SP)
HARCNT

LORD
BE TYPED INTO DATA REG.
xs CHQRHCTESA CRARRIAGE RETURN?

,,YES--CL AR
X

CHARACTER COUNT

8LF.2(SP)

,,IS cunnncrsa R LINE FEED”?

(PC)+

: PCOUNT THE CHRRACTER

:BRANCH IF YES

: 'CHARACTER COUNT STORRGE

§TYPEX:

RTS

;g}g

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

7218

; ll!lllll!llll!llllllllll!llllllllili!lllllllll!lllllllllllll!ll

7219
7220
7221

000207

000012

47300
00002

MOVB

iTHxs ROUTINE IS USED TO CHANGE
A 1; BIT BINARY NUMBER TO R S-DIGIT
:#STGNED DECIMAL (RSCII) NUMBER nuo YA 1T. DEPENDING ON WHETHER THE
P¥NUMBER IS POSITIVE OR NEGARTIVE
R SPH.E OR A MINUS SIGN WILL BE TYPED

7222
;gga

:¥BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:gsftnceo WITH SPACES.

7225

7226

MOV

TYPCS

NUM, - (SP)

:PUT THE BINARY NUMBER ON THE STACK

,,co TO THE ROUTINE

CZRERCO RKG11,06 USR DEF INED
C ZR6RC. P11
02-DEC-77 11:07
7228
7e23
7830

7831
7832

031706
031706
031710

7233

723

031732 688905

7838

031720
83{;29
031734

010246
010346

010546

012746
oxssgqs
112766

7239
7240
41

031792
031744
1750

005000
012703
112723

7244

031762

160105

;gua
031354
7243 831755

Il1

30(1046)
02-DEC-?7
11:59
PAGE 139
CONVERT T BINRRY
RY
TO TO DECIMAL
DECI
AND TYPE
TY
ROUTINE
u
$TYPDS:

010046
010146

031712
031714
oaxrég

7e34
;;535

MACY11

00000!

032122
000040

1508? 032112

3s:

7245

831754

002402

7248

031772

060105

4§ :

7253

032004

106316

c$:

;ggg

oai;gg

880795

2 Bl
g
7825 035009 10gabs

7254
7255

7256

032003
032010

032016

103003
116663

052702

000001

000060

7257 oaeoéa 053702 000040

177777

7829
032030 d0eoon
7060 032032 020027 000010
7261

032036

032040
032042
032044

003002
010502
000764

7267
7268
7269

032052
032060
O

116663
105013
012605

030066
032070
032072

012602
012601
012600

835838

7270

032064

7279
7275

032074
032100

7278
7879
7280

032112
032114
032116

7871
7872
7873

7676
7277

7281
7882
7283

032106
032110

032120
032122

78:

012616
000002
023420
001750
000144
000012
000004

MOVB

CLR
MOV
MOV

177776

:SET BLANK SWITCH AND SIGN
;;gv Fr_fi w;u} Nggseen

;;nnxé 7
"

8’ -,1(SP)

;iMAKE

THE

gxnngv NUMBER POS.
.

ASCI]

NUMBER NEG.

RO
#$DBLK,R3
8’ ,
(R+

;3 ZERO_THE CONSTANTS INDEX
$ISETUP THE OUTPUT POINTER
s
HAR

SUB

R1,RS

:FORM_THIS BCD DIGIT

égc

; 'INCREASE

CLRB
MOV

BLT
ADD

R2
R3
SOTBL (RO),R1

4§

R1,RS
'

LANK
EETnE
rxggr
guneggTER
TO
A
BLA
;;c%% THEHEONS?RNT

i8R

IF DONE

i AROD

BACK

THE BCD DIGIT BY |

THE

CONSTANT

B
BHIC
78

0K
12 BGD QIel
=0
iBRITF egC LEADING D757

BCC
MOVB

;3BR IF NO
P 'YES--SET THE SIGN

ASLB

BIS

(SP)

68
1(SP),-1(R3)

2'0,R2

8' 'Re

: 'MAKE

THE BCO DIGIT ASCII

IT A SPACE IF NOT ALREADY A DIGIT

; 'CHECK THE TRBLE INDEX

8s:

8GT
MOV
BR

ggza

8s
RS,R2
68

:1G0_TO EXIT
PIGET THE LSO
::GO CHANGE
TO ASCII

MOVB
CLRB
MOV

-1(SP),-2(R3)
(R3)
(SP)+,RS

::YES--SET_THE SIGN FOR TYPING
:'SET THE TERMINATOR
;POP STACK INTO RS

MOV
MOV
MOV

(5P)+.R2
(5P)+ RI
(5P)+ RO

1 iPOP STACK
:'POP STACK
::POP STACK

MOV

032122
000002

RS -(SP)

1iPUSH R2 ON STACK
:iPUSH R3 ON STACK
:PUSH RS ON STACK

noye Reg
R
RO, 810

012603
604401
0leb66

220200, - (SP)
§g<sp).ns

BLT

{83685

177777

MOV
ggt

CMP

002746

7862
7263
7264

;Sgg

6S:

. ;PUSH RO ON STACK
;PUSH R1 ON STACK

R2.-(SP)
R3.-(SP)

NEG
18:

RO, - (SP)
R1,-(SP}

MOV
MOV

MOV

020200
000020
000055

MOV
MOV

SEQ 0138

TYPE
MOV

000004
$DTBL:

$DBLK:
.SBTTL

MOV
RTI
10000.
1000.
100
10.
.BLKW
BINARY

LT TNCREMENTING L [HE OUTPUT BUFFER

::GO DO THE NEXT DIGIT

éép’*

53325 ;HSOLSD THE FIRST NON-ZERO?

(S5P)+.R3

$DBLK
2(SPJ,4(SP)
(SP)+. (SP)

iPOP STACK INTO R3

PINOW TYPE THE NUMBER
:'ADJUST THE STACK
: sRETURN TO USER

TO OCTAL

(RSCII)

INTO R2
INTO RI
INTO RO

AND

TYPE

CZRSRCO RK&11 36 USR DEFINED
02-DEC-77 11:07
CZRBRC. Pll

MACY1l

J11

11:59
PAGE 140
02-DEC-77
BINRRY TO OCTAL (RSCII) AND TYPE

30(1046)

SEQ 0139

360000 30 00000 06 00 00 00 00 0003000 06 00 00 30 00030 0006 000 30 08 00 30 36 0 0 36 0830 06 06 36 0 30 30 00 30 06 300 08 08 36 30 30 0 00 0000 00 00 3 0 2

iTHIS ROUTINE IS USED TO CHRNGE R 16-BIT BINARY NUMBER TO R 6-DIGIT
:#0CTAL (ASCII) NUMBER _AND
T YPE IT
' ¥§TYPOS~---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
lCflLL
;l

HOV

NUM, -(SP)

3 &
]

.BYTE
.BYTE

N
M

; ¥

s %

TYPQS

; %
,l

; ¥STYPON----ENTER

; #§TYPOS OR STYPOC
#CALL:

,;
,;

MOV
TYPON

; NUMBER TO_BE TYPED
!CALL FOR TYPEOUT

,,: i 52 3 FOR NUMBER OF DIGITS TO TYPE

A
HERE

TYPE

OUT

WITH

1=]YPE_LEADING ZEROS

o SUPPRESS LERDING ZEROS

THE

SAME

PRRAMETERS

THE

: s NUMBER TO_BE TYPED
“ICALL FOR TYPEOUT

NUM, - (SP)

*STYPOC---ENTER HERS FOR TYPEOUT OF AR 16 BIT NUMBER

FEBRARERORP2
2T

QOO
LWNNNL ~Nooo
£ L LWWWO
Ww<L
[ O NN
NN

ottt =ioistotet 0t teters)
25589922808
O
A e e B FIZYTUR
008

o [ ]=]
=)
n (Vn ENONOW—
(=] 0000w
£ WENLWON

{

}

Rk sy

0000000000000
00

[

~ NNNNNNN ~
W WWWWwWwWww w
n fu.—.—-p—.p—p—.—.—.

OowoNON
LW

7312

1WIWWWWWW
LWL
rufyrrufyrurrn
Uhuhufuruno

; #CALL
:
w
s

032274

000000
000001}
032357
000002

000001
000006
00000S

032355

032355
032357
032354

$TYPOS:

STYPON:

MOV
MOVB

d(SP), -(SP)
1(5P)
) SOFILL

ADD
BR

o; (SP)
$TYPON

MOV
MOV

R3,-(SP)
nq -(5P)

MOVB
MOVB
MOVB

MOV

032357

18:
2s:

3%:

177770

#1,80FILL
86, SOMODE
+1
85, SOCNT

,,SET THE ZERO FILL SNITCH
i 3ET FOR SIX(6) DIG
P GET THE ERATION-COONT
!!SAVE R3
:!SAVE RY
: !SAVE_RS
1!GET THE NUMBER OF DIGITS TO TYPE

-(
SP)

MCVB
MOVB
MOV

RH $OMODE
SOFILL,RY
12(SP) RS

TST

48 :

; s NUMBER OF DIGITS TO TYPE
; s ADJUST RETURN RDDRESS

sohooe+1 RY

CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
8PL
BIC
BNE
BEQ
INC

PICKUP THE MODE

,,LOQD ZERQO FILL SWITCH

(SP)+, SOMODE+1

MOVB

NEG
RDD

000006
032356
032355
0000l1e

032356

NUM, - (SP)

MOVB

STYPOC:

,,NUHBER 70 _BE TYPED
;CALL FOR TYPEOUT

MOV
TYPOC

. ; SUBTRACT IT FOR MAX. ALLOWED
: 1SAVE IT FOR USE
iGET THE
ZERQ FILL SHITCH
;1 PICKUP
THE INPUT
NUMBER
CLERR THE OUTPUT WORD

6,RY

R3
RS
3%
RS
RS
RS
RS,R3
R3
$OMODE
7s
$177770,R3
4g

,,ROTQTE MSB INTO "C”
DO_MSB

i ;FORM THIS DIGIT
; ;GET_LSB_OF THIS DIGIT

,,TYPE THIS DIGIT?
R_IF NO

*GET_RID OF JUNK

*TEST FOR O

.,suppnsss THIS 07

Sg
RY

IF YES

::DON*T SUPPRESS ANYMORE 0'S

A
@4

LAST

CZPSRCO RK611/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
7340
7341

032276
032302

0S2703
052703

734

3le

109401

734

7344

7345
7346

gggaog

(032316

(032322
032324

000060
000040

110337

032352

105337

032354

003347
002402

K1l

MACY1l 30(1046)
02-DEC-77
11:59
PAGE 141
BINARRY TO OCTAL (ASCII) AND TYPE

032352

2398
935350 995594
7348 835333 R0304e
7350

032334

012604

7351

03233

012603

7353

oggags

012616

7365
7356

(32352
032353

7352

7354

7357

7358
7359
;gg?

032340
(0323

(32354

032355
032356

016666

000002

7364
7365
7366
7367
7368

MOVB
TYPE

78:

DECB

6S:

BRC
BV

0002

000
000
000

032360
032362
032364
032366

'ENABL

000000
000000
000000
000001
032367

: 'RESTORE RY

.BYTE
BYTE

.BYTE

os
Cep)e.RS
(S5P)+.R3

2(SP) 4(SP)
(SP)+. (SP)

O
O
O

.BYTE
O
.WORD
O
TTY INPUT ROUTINE

LSB

STKQEND=.

032370

ii ISR
eRSL aeT DIcIT | ¢ BLANK
20 P0re
;;RE?TORE R3
::SET

THE STRCK FOR RETURNING

; s RETURN

: :STORARGE FOR ASCII DIGIT
: 'TERMINATOR FOR TYPE ROUTINE
:P0CTAL DIGIT COUNTER

22 ZERO FILL SWITCH
: NUMBER OF DIGITS TO TYPE

O
O
O
|

;#TK

7375

: sNUMBER OF ITEMS IN QUEUE
P IINPUT POINTER
: SOUTPUT POINTER
::TTY KEYBOARD QUEUE

_INITIALIZE ROUTINE

P MCALL:

:%THIS ROUTINE WILL INITIALIZE THE TTY KEYBORRD INPUT QUEUE
‘%SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARRD INTERRUPT

7376
;g;g

L%
x

JSR
RETURN

7379

032370

005037

032360

7381
7382
7383

032402
032410
032416

013737
012737
012737

032362
032440
000200

032364
000060
000062

MOV
MOV
MOV

032430
032436

012777
000207

000100

146506

MOV
RTS

032374

032424

012737

005777

032366

146516

032362

$TKINT: CLR

MOV

TST

PC, STKINT

STKCNT

; ;CLEAR_COUNT OF ITEMS IN QUEUE

#STKQSRT,STKQIN ;:MOVE THE STARTING ADORESS OF THE

STKQIN, $tKQOUT ;:QUEUE INTO THE INPUT & OUTPUT POINTERS.
#STKSRY, J8TKVEC ;:INITIALIZE THE KEYBOARD VECTOR
8200, 98tKVEC+2 ;;“BRTM LEVEL 4

IS TK

$100, 3$TKS
PC

: JCLERR DONE FLAG

*ENABLE TTY KEYBOARD INTERRUPT
:RETURN TO CALLER

7388

; #TK_SERVICE ROUTINE

;gg?

;:?¥ Rsngagcoagsecnnancrsn FROM THE INPUT BUFFER AND PUTTING

7389

*%¥THIS ROUTINE WILL SERVICE THE TTY KEYBORRD INTERRUPT

7392

PulIF ¥HE CHARACTER IS A “CONTROL-C"TM (1C) STKINT IS CALLED AND

;gga

7395

W K E KR

.EVEN

7371

7385
;ggg

: 'COUNT BY 1

(5P)+ RY

$TKCNT: .WORD
STKQIN: .WORD
$TKQOUT: .WORD
$TKQSRY: .BLKB

7372
;g;a

7384

$OCNT

:'SAVE FOR_TYPING

HH 3638 36 3636 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 I 3 3 3 3 3 3 3 3 3 3 3 I A 3 A

;393

7380

:1GO TYPE THMIS DIGIT

MOV

RTI

SOFILL:
SOMODE:
.SBTTL

R3, 88

1:BR IF MORE TO DO
:BR IF DONE

MOV

SOCNT:

000
000000

: ;MAKE THIS DIGIT ASCII
i MAKE ARSCII IF NOT ALREARDY

2%
68

MOV

8s:

#'0,R3
8’
.R3

8GT
BLT

MOV

000004

7362

7363

BIS
BIS

SS:

SEQ D1M0

:%UPON RETURN EXIT IS MADE TO THE "CONTROL-C” RESTART ADORESS (UDTSRT)

032440

117746

146502

$TKSRv: MovB

d$TKB, - (SP)

; ;PICKUP THE CHARARCTER

C%RBRCO Rf&ll/fl& USR 0 FINED
11:07
6RC.P
02-DEC-7
7396

7345

032444

042716

MACY1l

30(1046)

TTY INPUT ROUTINE

177600
000003

005726

18:

839435 BBabd5
2%

000176

00114C

022737
001004
10%401

000001

032360

012737
oooooe

2 ?

fs#?IK NT

,,TYP

#SWREG, SWR
?

032367

032366

032362

%§$MP

Bzg

UDTSRY

89) .7

GRS
TYPE
SBELL

Snucn ?
8

ONTR L€ (10)

"éEEQN
KEY
NTRO
R S RRT

"ggnngub EOS§EOL G?
szu»:crso7
:.ég ?8FT- un ANGE

e e

gnp

égg),oea

'égggéHRIgOSSROL-7

318:

CcL
1ST
ggga

J$TKS
(SP)+
I$TKS

..DISRBLE TTY KEYBOARD INTERRUPTS
: CLERN cHnn OFF STACK
PIGAIT FOR
A
A %#flRTHERE

BIC

cfcx7# (SP)

;;nnxs IT ?7-81T RSCIT

n ¥

OlOD,DSTKS

"R ;BQELE TTY KEYBOARD INTERRUPTS

INC

STKCNT

,,couur THIS CHARACTER

Bg$

? “"?n spssinL CHAR?

ys:

aéc

agp) 8175

?Nve
gNE

(§K5+fiasrxoxn ,,nngggurTH Pg ggggs
é;xgiu.osrxosno ::§:gncE IHE
N6

Y ¥

RTI

MOV

#STKQSRT, STKQIN ,,SE§ET THE POINTER

§ 5 R0

00000 00T 0000

MO\ 8

CE$

g&*xs -(SP)

(SP), 8140

EEES?PYH?Ténfi ACTER

g 17 UPPER CASE?

,,nnKE IT ¥PP§R CARSE

00000 000 000000000 000 00033 000000 066 3

iSOFTHflRE SWITCH REGISTER CHANGE ROUTINE
;Rour}ns S ENTEREP FROM THE TRRP HA

' %GERVICE THE TEST FOR CHANGE IN SOFT

032656
032664

032710

022737
00l1a4

001300

000176

146252

146246
177600
000007

001140

3s:

32s:

032644
032646
032654

TYPE

é P+

146344

2b3e

SeQ o141

527

146366

199833
838368

142

JIRING THE TTY BELL
,,E§§¢N CHARRCTER OFF OF STACK

146400
146372

PRGE

,,STRIP rneogggsL e

BEQ

001164

000023

L1l

o,01725<sp)

CHMP
2s:

11:59

egg

851857
4847% 832578

02-DEC-77

0 0 B

AND WILL

saxvcu REGISTER TRAP

*CQLk
HHEN
opsnnrxng
IN TTY INTERRgPT nogs
$cKsu
FT-SWR SELECTED

eue

,.EXIT IF NOT

1ST8

3$TKS

MOVB

asrxa -(SP)

DIYE

BNE

PUIF NOT,

BPL

BIC
CMP

15§

$1C17? (5P)
(SP), 87

;IS
A CHRR unxrxnc7

;3 IF NoY, EXIT

:IMPYE IT 7-BIT ASCII
:115 IT A CONTROL-G?

PUT IT IN THE TTY QUELE

CZR6RCO RKb11-06 USR DEFINED
02-DEC-77
CZRBRC.P11

MACY11l

30(1046)
02-DEC-77
TTY INPUT ROUTINE

11:59

M1l

PRGE

143

SEQ 0142

;s AND EXIT

7452
7453

lllllllllll!lllllllllllllll!lllllllllillIllllllllllllllllllflllll

ARTE5
005726

112737

001134
032370
146210
000001

032742
032746

104401
104401

033650
033655
000176

032760

104401
0S046
0S046

033666

032776
033002

117746
042716

146144

177600

033006
033012
033014
033820
033024
833032
033034
033042

021627
001ri1s
104401

000003

A P4358

03576
848554 188374

833008

033054
033060
033064

033636
00006
01135

000137

000100
004116

021627

0000es
033643
000006

062706
000737
021627
001022
00 66
00140
01667
062706
109401

gz21ee?

198:

146102

000004

000001

0ooo100

146006

AUTOB, k1

B
CLR

o
astks

TYPE

146030

NiNG IN AUTO-MODE?

R SRTRCTEE A

,SCNTLG

; ;ECHO THE CONTROL-G (1G)

TYPE

, SMNEW

’

,,Tzcs CURREN;OSONTENTS

"3 §v§eBESCTnL RSCE?(RLL DIGITS)

: PROMPT FOR NEW SWR

CLR

2(spP)

BBl

)

8 acaIn
"?RoF

BIC

MOVB

JSTKB, -(SP

ofc17},(s

:;PICK UP CHAR

gng

éfip’-'a

;518 IE nlgonr$0L
-C?

;BSE

gcg;Lc

,,Ysshflsfigo ?ggTROL C ($C)

$L§B

MOV

-(?Eé

gghrnc,sx
£100, I$TKS

; : CLEAR_COUNTER
TH
E_NEW SR

PIMRKE IT 7-BIT ASCII

anggLEr§T5KEYBOARD INTERRUPTS?
LLOW T staonno INTERRUPTS

JMP

UDTSRT

,,CONTROL C RESTART

Sng

(32) #25

égnfig nI 0“5$OL-U’

208 :

ADD

ke SP

SCNTLU

"ves

194

'LET’S TRY IT

108:

EE
TST

4(SP)

118:

ADD

%6, SP

8%:

14§

;B8

sl,S$INTARG

sagggn (P

Yxoc

;:01
§99L§ TTY KEYBOARD INTERRUPTS
::SEY
INTERRUPT MODE INDICATOR

TSPE

gnga

000001

000002
000006
001171
00113S

Ega

MOVB
$GTSKR:

00001S

031636
000060

is:

001135

146150

063706
121787

8?29?;

000001

hconTROL
" asxnc
19 PASSEDTYPED,
TO_THIS
POINT EROM ELTHER THE TTYINTERRUPTSERvICEOF R
iCONTROL
AND THE SOF TWARE SWITCH REGISTER BEING SELECTED

15§:

168:

TYPE

BEQ
MOV

TYPE

e MS

118
2(SP), 3SR

ECHO CONTROL-U (tU)

gnbne PREVIOUS INPUT
AGRIN

"éénfiéa“xé%’
IS IT THE FIRST CHAR?

"YES

BRANCHIF YES
,,snve E s

:CLEAR UP STACK

gnga

SCRLF

fégTflG,sl

.,ECHO <CR> AND <L

MOV

#100, 3$TKS

::RE-ENRBLE TTY KBD INTERRUPTS

JSR
CMP

PC,STYPEC
(SP), 860

,,ECHO CHAR
:ICHAR < 07

RTI

: ggnfigfla%g ;5¥ KBD INTERRUPTS
RN

CZR6RCO RKB11-06 USR DEF INED
CZRERC.P11
02-DEC-77 11:07
7508

033150

002420

7610

033156

003015

033164

005766

7509

033152

BIC

000002

001403
006316
006316
006316
00Se66

7619
7620

033210
033212

000667
104401

7522

033216

056616

000720

CMP

001170

33220

011646

033230

000004

35536
(033242
8.:3 PYY
03 °44

012746
000002

033244

005737

032360

7842
7643
7€44

03
03.
03

005337
117766
005237

032360
177102
032364

7646
7647

03 :7
(033300

33532

84vfiau

7648

7549
;gg?

SO0

2
-6
-4

033306

0lekbe

Q0% 46

00177%

023727

001003
012737

000002

000004

18$:

BR
TYPE

7$
$QUES

:GET THE NEXT ONE
DITYPE ?(CR)<LF>

BIS
BR

LSB

SROCHR:

648
1s:
00000

2(5P)

-2(SP), (SP)

20s

1115 THIS THE FIRST CHAR

;SET IN NEW CHAR

: 'SIMULATE CONTROL-U

010346

7658

033314

012703

7660

033324

033312

005046

3320

052703

0333
033330

104410
112613

033332

1614Sh

122713

ROCHR
RETURN HERE

:sGET A CHARACTER FROM THE QUEUE
: 'CHARARCTER IS ON THE STACK
;i WITH PARITY BIT STRIPPED OFF

MOV

(SP),-(SP)

: ;PUSH DOWN THE PC AND

CLR

4(SP)

:1GET

MOV
RTI

8E4S, - (SP)

11PUT NEW PC ON
~STACK
i :POP NEW PC AND PS

157

STKCNT

; ;WRIT ON A CHARACTER

DEC
MOVB
INC

§TKCNT
ISTKQOUT,4(SP)
$TKQOUT

: s DECREMENT THE COUNTER
;:GET ONE CHARACTER
:UPDATE THE POINTER

BNE
MOV

4 |
; ;
BRANCH %F NO
8STKQSRT, $TKQOUT ;. RESET
THE POINTER

032366

032364

BEQ

cHP

2s:

RTI

4(SPY,2(SP)
-(SP)

;I THE

READY FOR A _CHARACTER

:JPUT NEW PS ON STACK

§TKQOUT, 88TKGEND ' ; :DID IT GO OFF OF THE END”

. : RETURN

S
R
R
NN
=fiESfiE ROUTINE WILL INPUT R STRING FROM THE TTY
RETURN HERE

SROLIN:

MOV

R3,-(SP)

: ;SRVE R3

033544

MOV

sSTTYIN,R3

033636

:'GET ADDRESS

000177

108:

CLR

CMP

' RDDRESS OF FIRST CHARACTER WILL BE ON THE STACK

:'TERMINATOR WILL BE A BYTE OF ALL 0°'S

-4p)

JaSTTYIN?2,R3

BLOS

CMPB

8177, tR3)

ROCHR
MOVS

(SP)+,

RN RN
R RN

;s INPUT R STRING FROM THE TTY

ROL IN

w
033310

75663

178:

7686

76861
7662

:'BRANCH IF YES

P BRANCH IF YES
:3NO, SHIFT PRESENT
::
'CHAR QVER TO MAKE
33
ROOM FOR NEW ONE.
; IKEEP COUNT OF CHAR

CLR

032367

;EEE

7659

000002

032364

7552
7€53

7657

JICHAR > 77

178
(SP,
(SP)
(SP)
2(5P)

;¥
e
‘¥
‘a

7634

7841

. ;BRANCH IF YES

;5THEE ROUTINE WILL INPUT A SINGLE CHARARCTER FROM THE TTY

7528
7529
7630

763
7638
7539
7840

(SP), 867

SEQ 0143

HH I Y 221211222222 222%2z2222222222:32:*322:22*22222X23222XXX223LXXXX22
2222

;gsg

7535

PAGE 144

BEQ
ASL
RSL
ASL
INC

.DSRBL

752S

N1l

:'STRIP-OFF RSCII

TST

177776

11:59

860, (SP)+

000002

7253

7633

18%

000060

033170
033172
033174
033176
033200

7621

BGT

042726

7613
7614
7615
7516
7617

033204

18%

000067

033120

7618

BLT

02iee?

7515

7612

MACY1l 30(1046)
02-DEC-77
TTY INPUT ROUTINE

(R3)

:'CLEAR THE RUBOUT KEY

;'BUFFER FULL?
:'BR

IF YES

GO READ ONE CHARACTER FROM THE TTY
:'GET CHRRACTER

2'1S IT A RUBOUT

(SP)
78
$°\,9¢

tsP)

033643

4s:

033542
033542
000015

3%:

;3 JYPE R "CR” 8 "LF~
;; TYPE THE INPUT STRING

; ;G0 PICKUP ANOTHER CHRCTER

.-TYPE

SQUES

[

:'CLEAR THE BUFFER AND LOOP

:IECHO THE CHARACTER

(R3),9%
9§

hiS, (RI+

; ; CHECK FOR RETURN
;;LOOP IF NOT RETURN
;;CLEAR RETURN (THE 15)

1727777
001172

; ;G0 START OVER
; ;1S CHARACTER A "tRTM?
; ;BRANCH _IF NO
; ;CLEAR THE CHARACTER

822, (R3)
3s
(R3)
, SCRLF
grrvxu

001170

;; TYPE R LINE FEED

; ;CLEAN RUBOUT KEY FROM THE STACK
; ;sRESTORE R3

; ;RDJUST _THE STACK AND PUT ADDRESS OF THE

.RSCIZ

.EVEN

.SBTTL
S5

pr4
m
E

; ;RESERVE
; ; CONTROL
; ;CONTROL
; ;CONTROL

TO TYPE

72 BYTES FOR TTY INPUT
*CTM
"U"TM
*G"

SMNEW:

; s TERMINRTOR

A
VRVY

020127

; ; STORAGE FOR RSCII CHAR.

NAAA
U
e e

.A
.RSCIZ

; s RETURN

STTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
SMSWR:

000
0cogile
000
os1127

FIRST ASCII CHARACTER ON IT

repepop
nuuion

000002
000004

00s01S
006525

;;BR

;s TYPE A CONTROL "UTM

8%:

001171
033544

000004
033544

; ;CLEAR THE RUBOUT KEY
; ;1S CHARACTER AR CTRL U?

825, (R3)
8s
$CNTLU

ré ¥

033542

0000Ce2

s:BR_IF VI
;;SET¥EPEO TYPEOUT THE DELETED CHAR.

ANNNNOO
bt
= =)
neoOco
YN N\

o= e ()0 ()
)= U
=2

Q)) : —
008 Al
8rR FRFORCLRNG
o

)

Qng
-

Broresy
FQE

-0
-0
W~
oM

R3, sSTTYIN

4§
(gg),es

&2823BnBa8
a0
e
e Bt O s () 0= () 02 O 0=

k-1, (sp)

69:

033542
033S4e

00002S

SEQ 0144

145
;;BR IF NO
;; IS THIS THE FIRST RUBOUT?

68
'\, 98
qs

033542

033544

000134
033542

000134
03354¢
17727277

NELOONNIONO

000746
005716
0014

PRGE

(SP)

e
Pous P

l33q
i

11:59

88553 e

—8

1
4

02032

033674

30(1046)
02-DEC-?77
TTY INPUT ROUTINE

001022
00s?71

033
833390

MARCY1!

cZ R6RCO _RKb611/ 06 USR DEFINED
.Pll
CZR6
02-DEC-77 11:07

Bl2

DOUBLE LENGTH BINRRY TO DECIMAL ASCII CONVERT ROUTINE

MMM

U000

30003 0 00300

0 0 0 2

:4THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED

‘el Bhes]

CZRBRCO RK&11-/06 USR DEF INED
=77 11:0 7
Ge- DECCZR6RC.P 11

*aCyvll

30(1046)

DOUBLE

02-DEC-77

LENGTH BINRRY

; #DECIMAL

7620

(RSCII)

%CALL

788
7859

MOV

RETURN

S¥

JER

$DB2D:

033776

18:

2s:

#PNTR, - (SP)
.

4s:

$TNPWR:

034054

; sPOINTER TO LOW WORD OF BINARY NUMBER
. s THE FIRST ADDRESS OF RSCIZ

;1S ON THE STACK

: SAVE REGISTERS

MOV
MUV
MOV
MOV

(R2)+ . R2
2i0. 48
8STNPWS RY
83TNPHR+2 RS

,,ss UP TO DO 10 CONVERSIONS
: {ADDRESS OF TEN POWER

&Rq),nx

.,SUBTRRCT TEN POWER

CLR

PJE

gaosfgbjno
(R2)+,R1
R

(RS),R2

BLT
INC

3s
R3

288

égq)+,R1

(R4)+,R2

BIS

R3 tno)+

.WORD

CLRB

(RO)+

DEC

BNE

RESREG
RTS
145000

::85¥
QBBQE§§ Sf nggfgvgra gglgfi STACK
PICKUP THE BINARY NUMBER
s CLEARR PARTIAL

: 'RESTORE SUBTRACTED VALUE

(R )+’ (RS)+

MOVB

:PICKUP THE DATA POINTER

;;BR_IF TEN POWER TO LARGE
;1ADD 1 TO PARTIAL
:LOOP

ADD

CMP

000060

THE BINARY NUMBER MUST BE

2(SP),R2

SUB

3s:

THE SIGN OF

MOV

HS&
MOV

B3o8s8

000012
034010
034012

SAVREG

PAGE
1 46

DECIMAL QSCII CONVERT ROUTINE

pPC, 38$0B2D

7626
7627

000002

Cle

NUMBER.

;#POSITIVE.

;Saé

1*059

: sMOVE TO NEXT TEN POWER

: JCHANGE PARTIAL TO ASCII

JSAVE IT
: 1 DONE?

(PL)+

:BR _IF NO

,,TERMI NATOR

,,RESTORE REGISTERS
: 'RETURN
:11.0E09

35632
2765

160400

;:1.0€E08

158300

;;1.0€E07

?;1100

:;1.0E06

{oaaqo

s ;1.0E0S

Saqao

;;1.0E04

érso

::1.0E03

éqq

::1.0E02

éa

;;1.0€E0!

{

:;1.0EQ0

mt'TTM

SEQ 0148

CZR6RCO RK611/06 USR DEFINED

CZR6RC.P11
767

767

;g;g

02-DEC-77 11:07

340S6

34060

000000

000014

MACY11 30(1046)

02-DEC-77

11:59

PRAGE 147

DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINE
0

SDECVL:

.BLKB

.SBTTL

12.

. . RESERVE STORAGE FOR ASCIZ STRING

SAVE AND RESTORE RO-RS ROUTINES

7680

HH 6963638 3 3 3% 3 3 36 3 3 38 3 3 3 36 36 36 36 36 36 36 3 3 3 36 3 33 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3% 3 3 9% 33 % % 3 % 3% % %% * %W X%

7682
7683

:%CALL
:
tx
2nvasc

7681

: SAVE RO-RS

;ggg

; 8UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
]

7686

P ATOP=-~(+16)

7687

14 42--=(+18)

7688

;% +4---RS

7689
7630
7691

;% +6---RY
‘¥ +8---R
; #+10---R

7692
7633
7694
7695

4074

769

34076

7299

;#+l2---R]
:%414---R0

4074

7698

034100

7700

034104

7699

01014

010346

7701

833108

010546

7703
7704
705
;;89

034114
034120
8341
341

7708
7709
7710

7711

7712
7713
7714
7715
7716
7717
7718
7719
7720
7721
7722

;;ga

110

034132

034132
034136
034142
034146
034152
034154
034156
034160
034162
034164

034166

0104946

016646

016646
016646
016646
000002

MOV

RO, -(SP)

: ;PUSH RO ON STACK

MOV

R2,-(SP)

::PUSH R2 ON STACK

MOV

010246

034102

7702

$SAVREG:

81004

MOV

R3,-(5P)

MOV

RS -(5P)

MOV

000022

MOV

000022
000022
000022

R1,-(5P)

MOV
MOV
MOV
RTI

R4, -(SP)

1PUSH RS

ON STACK

(SP)+,22(SP)
(SP)+.22(5P)
(5P)+.22(5P)
(SP)+.22(5P)
(SP)+.RS
(5P)+.RY
(5P)+.R3
(SP)+.R2
(5P)+ R1
(SP)+ RO

; sRESTORE PC OF CALL
P IRESTORE PS OF CALL
:'RESTORE PC OF MAIN FLOMW
: 'RESTORE PS OF MRIN FLOW
::POP STRCK INTO RS
:1POP STRCK INTO RY
;:POP STACK INTO R3
:1POP STACK INTO R2
::POP STACK INTO RI
::POP STACK INTO RO

22(5P) . ~(5P)
22(SP) . -(SP)
22(5P) . -(SP)

OF MAIN FLOW

:'SAVE PC OF MARIN FLOW
. :GAVE PS OF CALL
H
PC OF CALL

: *\RESTORE RO-RS
; %CALL:
‘x
RESREG

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

000022
000022
000022
000022

$RESREG:

.SBTTL

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

RANDOM NUMBER GENERATOR ROUTINE

7727

;%WITH A RANGE OF O TO 2(+33)-1.

7729

7731

7730

:'PUSH R4 ON STACK

:'SAVE PS

HH Y Yy

7728

:'PUSH R3 ON STACK

22tsP), -(SP)

772S

7726

$1PUSH R1 ON STACK

222222222222 2222222222222:12XXX22222X2X22222XX22222222L]

:kTHIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
s %CALL:

JSR

RETURN

PC, SRAND

: sCALL THE ROUTINE

: 'RETURN HERE THE RANDOM

: 'NUMBER WILL

SEQ 0146

CZRBRCO RKb11-06 USR DEFINED
CZReRC.P11 ~ 02-DEC-77 11:07

034170
034170
034172
034174
Q34ize

Q34214
03421
0342
03422
0Q34¢
0342
034234
034240

7752

7753
7754
7755

7756
7757
7758
77593
7760
7761
7762
7763
7764
7765
7766
72767
7768
7769
7770
7771
7772
7773
7774
7775
7776
7777

[55Y

norY

7742
72743
7794
7745
7746
7747
7748
7749

-0

[N}
8:)
L£Lr

034

~N
NN
£L

7739

El2

30(1046)
02-DEC-77
11:59
PAGE
RANDOM NUMBER GENERATOR ROUTINE
X

010046
010146
010246
013700

013701

o
&3

7732
7733
7734
7735
7736
7737
7738

MACY11

101
00Se0e
001374
3700
1
3701
8827
SS01

034264
034266
034270

MOV
MOV

RO,
-(SP)
R1.-(SP)
R2'-(5P)

; ;PUSH RO ON STACK
:'PUSH R1 ON STACK
; PUSH_R2 ON STACK

MOV

SHINUI. RI1

JISET R1 WITH HIGH

MOV

034266
177771

18:

034270
034266
001057

000207
176543
123456

SHINUM:
SLONUM:
.SBTTL

{SET RO WITH LOW
SHIFT co¥nr

PISET

INC
BNE
ADD
ADC
RDD

Re
1S
SLONUM, RO

: 'CHECK FOR oou$
: :CONTINUE SHIFT
LOOP
:A00 NUMBER TO MAKE X 129

RDC
RDD

R{
847401, Rl

RT S

ASL
ROL

MOV
MOV
MOV
MOV
MOV

Q012602
012601
012600

SLONUM, RO
8-7,R2

MOV

ADD

34222 SIOIg; 034266

034256
034
034262

; ; SHINUM, SLONUM

SRAND:

O3ue70

SEQ 0147

148

SHINUM,R1

#1057, R0

RO, SLOAUM
R1’ SHINUM
(SP)+,R2
(SP)+ RI
(S5P)+.RO

.WORD
176543
.WORD
123456
ROUTINE TO SIZE MEMORY

;:SHIFY RO LEFT AN
: 'ROTATE CARRY INTO Rl AND

; PROPOGATE CARRY
: RDD

R TO MAKE X 129

:ADD LOW CONSTANT

: PROPOGATE CARRY
;'ADD HIGH CONSTANT

,,snve RO
:SAVE R1
1POP STACK INTO R2
,,POP STACK INTO RI
; § POP STRCK INTO RO
}

'RETURN

llllilllllllll!lllIll!ll!lllliilliilillllil!l!il!lillll’li!i!il

'icn

;;

;

JSR

RETURN

PC,SSIZE

;lSLSTQD WILL CONTRIN THE LRST AVAILABLE MEMORY LOCATION

034272
034274
034276
034302
034306

010046
010146
013746
013746
010600

034310
0343le
034316
Q343
0343

104400
012637
012737
012701
00S711

7780

034333

7782
7783
7784
7785
7786
7787

034344
034350
034354
034360
034362
034384

00077S

662?01
1 0006
012637

01e637
010137
012601
012600
000207

$SIZE:
000004
000006

000006
034336
020000

000002
000006
000004
034366

MOV

MOV
MOV
MOV

RO, -(SP)

,,snve RO ON THE STACK

Ri’-(SP)
:SAVE
AMERRVEC -(sp) ,,snv
aosnnvscie -

R1 ON THE STACK
PRESENT ERROR VECTOR PS & PC

ERRVEC Pé TO THE Pnessfit
:SET THETRAP
usu OLD PSW AND PC ON STACK
MOV

MOV

000004

18:
2s:

MOV
TST

15T

BR
SuB
MOV

MOV

MOV
MOV
MOV

RTS

snve THE STACK POINTER

(SP)+ acennvec 2’

;SAVE

THE PSW IN QSERRVEC+2

828, JbER

,,SET FoR

(R1)

,,TEST THIS ADORESS

oeoboo Rl
(R1)+

18
%2 Rl
RG' SP

ouT

,,STEP
TO NEXT RDDRESS

,,rnv HER
og
E THE
S

(sb)+,aasnnvsc+a ,,Rssroas ennon vecron
(SP)+ . J#ERRVEC

R1,SLETAD
(5P)+,R1
(5P)+.RO

,,LRST ADDRESS
RESTORE R}
: 'RESTORE RO

CZR6ERCO RKB11-06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
7788

;;gg

034366

MACY11l 30(1046)
02-DEC-7?
11:59
ROUTINE TO SIZE MEMORY

000000

SLSTAD:

.SBTTL

7791

7792
7793

034370

012737

83:4
Yl
034412
034418

810145
10246
010346
810945

034376
(034404

7800

034416

012737
010046

010546

7801
7802
7803

034420
034424
034430

017746
010637
012737

;882

034440

000776

7804

034436

000000

034530

000340

144514
034534
034442

000024

000026

MOV
MOV

000024

012737

034530

7811
7812

034464
034460

005037
005237

034534
034534

012677
012605
0126049
012603
012602
012601
012600

144446

034450
034464

034466
034472
034479
034476
034500
034502
034504

013706
001375

034534

18:

4536

SPWRMG:

000000
000776

SILLUP:

2830
7831

JSUR, = (SP)
:JPUSH @SWR ON STACK
SP, $5AVRE
: 'SAVE
8SPURUP, 98PWRVEC' ; ;SET UP VECTOR

:IPUSH
:2PUSH
;JPUSH
:'PUSH

RS’ -(3P)

R1
R2
R3
R4

ON
ON
ON
ON

STACK
§7ACK
STACK
STACK

;:PUSH RS ON STACK

-2

: :HANG UP

034526

034530
034532

034534
Q34536

034544

012737
6 401

000340

000024

000002
000000
005015

000122

047520

042527

§SAVRG:
SPOWER:

;;GET SP

:10F

$SAVRE
$SAVRE

MOV
MOV
MOV
MOV
MOV
MOV
MOV

(SP)+, 3SWR
(5P)+.RS
(SP)+.RY
(SP)+.R3
(SP)+.R2
(SP)+.R]
(5P)+'RO

MOV

000026

$SAVRG, 5P

CLR
INC
BNE

034524

7828
7829

MOV
MOV
MOV

MOV

7825

R1,-(SP)
R2.-(SP)
R3,-(5P)
Rq,-(gp)

:POWER UP ROUTINE
$PWRUP: MOV
$SILLUP, J8PWRVEC ;:SET FOR FAST DOWN

012737

034514
034522

034370

000024

034506

7826
7827

MOV
MOV
MOV
MOV

HALT

7821

7822
7823

8340, 98PWRVEC+2 ;:PRIO:?
RO, -{SP)
:1PUSH RO ON STACK

;'llll&ll!lll!l!l!l!lllllllllllll!llllllllllll!l!llllil!iillliiil

034442

7814
7815
7816
7817
7818
7819
7820

. : CONTRINS THE LARST RDDRESS

:POWER DOWN ROUTINE
$PWRON: MOV
#SILLUP, 8PWRVEC ;:SET FOR FAST UP

7808
7809
7813

SEQ 0148

POWER DOWN AND UP ROUTINES

MOV

7807

7810

PAGE 149

;'ll!ll!liillllllllillll!l!ill!ll!llllllllllli!llllll!llll!l*ill!

7794
7795
7796
7797
7798
7799

.WORD

Fl2

MOV
TYPE

PIWAIT LOOP FOR THE TTY
PIWAIT FOR THE INC
WORD

: POP STACK
::POP STACK
: 1POP STACK
:1POP STACK
:1POP STACK
: ;POP
STACK
;1POP_STACK

INTO JSWR
INTO RS
INTO R%
INTO R3

INTO R2

{NTO R1
INTO RO

#SPWRON, 9#PWRVEC' ; ; SET UP THE POWER DOWN VECTOR

#340, I8PWRVEC+2 ; :PRIO:7
'REPORT THE

POWER FAILURE

.WORD

SPOWER

:;POWER FAIL MESSAGE POINTER

HALT
BR

-2

;s THE POWER UP SEQUENCE WARS STARTED
:: BEFORE THE POWER DOWN WAS COMPLETE

RTI

O
.ASCIZ

<15><12>"POWERTM

JPUT THE SP HERE

.EVEN

;ggg

.SBTTL

7834

;'Ili*‘!lil**fi*l*ill*lill*l*ll*llllli!i!lillillll!ill*lllll!llili

7836

;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING RDORESS

7835

:4THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP* INSTRUCTION

7837

; #OF THE DESIRED ROUTINE.

;ggg

; %GO

7840

034546

010046

7842
7843

034554
034556

005740
111000

7841

TRAP DECODER

034550

016600

000002

S$TRAP:

THAT ROUTINE.

THEN USING THE RDDRESS OBTRINED

MOV

RO, -(SP)

; s SAVE RO

TST
MovB

-(RO)
(RO),RO

; BACKUP BY 2
; ;GET RIGHT BYTE OF TRAP

Mov

2(8P),RO

; ;GET TRAP ADDRESS

IT WILL

CZRB6RCO RKb611/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07
7844

oausso

;939

S66

7345

833

006300

866088
62

MACY1l

034602

;823

: s THIS

7851

034570

011646

;gsq

034606

000002

034572

016666

000004

000002

7857

lTHIS

;gg?

;ggg

7862

034602

;%Ea

614

7863
7864
7665
78

034570

$TRPAD:

11GO TO ROUTINE

4y(sp},2ispP)

TRAP

TQB#S
CONTAINS

AP~

TEST FOR CHANGE IN SOFT-SWR
TTY TYP f"
HARACTER ROUTINE

$SAVREG ,,CRLL SAVREG

TRAP+12(104412) SAVE RO-RS
Rurxne

FPRINT

TRAP+14(104414) FAILURE

;g;g

039635

7638

0347

830
Bra
7891 034782
789%

789
7894
7895
7896
7897
7898

7899

756

;94
2
035000
035006

(035014
035022

(035030

00040
?

&ae
1

020040
020040

042526

2
561

111

020040
042040

020040
042054

047040

CALLED

TRAP+7(104407)
TRAP+10(104410)

83:2

7887

ROUTINES

SCKSWR
,,CRLL-CKSHR
iRBEHR
ALL
=RDCHR

79;;

7880
52 gfieéx 85918? 830104
7638 B:bte 035131 oocpie Osiil
788
§§§§g§
13%
1 838515
7684
F31
04
7635 034706 830640 020040 020040
7886
03N7IN

THE

GET SOFT-SWR SETTING

03N074
HPDATA:

TRAP+6(104406)

034626

OFILE:

ADDRESSES

;;CALL=GTSWR

7874

oq;ggg

STARTING

TRAP+S(

032656
833328

042?15

THE

INSTRUCTION.

:;CALL=TYP

039620
833233

0u3561

I 'RESTORE THE PSW

TYPDS

7871
737

DOWN

STRAP2

SGTSWR

;

.WORD

032746

0346

THE

ROUTINE

034616

7875

:MOVE

,,nove THE PSW DOWN

TRBLE

;ggg

INDEXING

::INDEX TO TABLE

THE “GETPRITM MACRO

(SP),-(SP)

ngv

031466
032156
032132
Bga;?a

787

SEQ 0149

RTS

034604
834506
034610
4612

1S0
; ;POSITION FOR

MOV

#BY THE

PARGE

$TRPAD(RO),RO

RTI
.SBTTL

Gle

IS USE TO HANDLE

STRAP2:

;ggg

11:59

ASL

MOV

7848

7925

30(1046)
02-DEC-77
TRAP DECODER

$TYPE
STYPOC
$TYPOS
TYPSN

;;CALL=TYPE
;:CALL=TYPOC
::CALL=TYPOS
,,SQLL rvpgg

ROLIN

ALL=ROL

ESREG

; ; CALL=RESRE

.WORD

.ASCII

::CALL=FPRIN

TRAP+1(104401)
TTY TYPEOUT ROUTINE
TRAP+2(104402)
TYPE OCTAL NUMBER (WITH LEARDING ZEROS)
TRAP+3( 104403)
rvps OCTAL NUMER (NO LEADING ZERGS)
Tnnp+qc183484) E BETRL NUMEER (RS P;R gngr CALL)

10440S)

TRAP+11(104411)

TRAP+13(104413)

TYP

CIMAL NUMBER

TTY TYPEIN

RESTORE

RO-R

PRIN

/IMMEDIATE COMMAND SUMMARY:/<15><¢12>¢12>

.ASCII /COMMAND

rnxnc

(WITH

OUTINE

ROUTIN
z

NMENONIC

PARAMETERS
/< 15> ¢12> < 12>

,DRIVE NUMBER/<15>¢12>

40
/516

1198
020105

2103
20040
020040
020116

020040
044522

046525

.ASCII

/DRIVE SELECY

CZR6RCO RKB11-06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

73?? 81-??3
7

037080
Q3 56

;eos

350

7908

035114

7904

8?3335 020855

7932
7903

MACY1l

[
.

Jgg

020040
8?8838

B 348 8%

;9?3

oM4522

044522

oggiaa

It
7914
;915

741218

11:59

H12

PAGE 151

SEQ 01S0

.ASCI1 /

,? (PRINT DRIVE SELECTED)/¢15>¢12

020040

5308 & .cidd
4

30(1046)
02-DEC-7?7
TRAP TRBLE

051117

035182
1;3

042523
c

;

052116

(042526

040518

04251

.ASCI1

/FORMRT SELECT

.ASCII

/OUTPUT TEST

,FORMAT (24 OR 26)/¢
1S ¢ 12>

osaxo;

BAUS

(PRINT FORMAT SELECTED)/<15>¢1l

Eg:zgg
.ASCII

7328 832200 ooobdh BRDAA 053155
7954
7955

035502
(35530

030040
020040

0200MD
020040

020040
020040

-ASCII /INPUT TEST

,0 (OBJECT)/<1S>
12>

,S (SOURCE)/<1S><12>
<12

)
(12> 12>
IT/¢15

CZR6RCO RKbil/06 USR DEFINED
CZRBRC.P11
0e-DEC-?77 11:07

020040
11

MACY11

30(1046)
02-DEC-?7
TRAP TABLE

11:59

I12
PRGE

1S2

SEQ 0181

0selll

02004

0s0
Eé%lafl

.RSCII

/INPUT

.RSCII

/COPY

.RASCII

/ITERATION COUNT

STRING

IS/<1S
2> <12

Q
TAPE

CT/ /1S

80—»—-.—-5—0—»—-.—-5—-»—»—»—
~NO
nN £ PEEERSoR

o
AR
(0(08

O 000000000
(V]
oo o

.RASCII

0
036206

020106

O4z1lee

,NNNNN

»7

.RSCII

12> <1

/BUFFER

DUMP

(DECIMAL COUNT)/(1S>¢12>

(PRINT COUNT)/7<1S><12><
12>

,BUFFER NAME(H,R,W,X,Y,

OR 2)/¢15

,NUMBER OF WORDS/¢15><12>

MACY1l

CZRERCO RKb11-/06 USR OEF INED
02-DEC-77 11:07

CZR6RC .P11

006523
o4 123
1
1
11

gi2
042520

/SPECIAL

PRGE

153

DATR PATTERN

SEQ U1Se

,PATTERN NAME

(X,Y,2)/¢(15>
(12>

Lr—-W—~-OLOLENN LD
oo —-o0OnNOONONNLE

REERCaSGR

ooun
oONNOO0OOOoO—N-—
L
QO—N+—0O—00—~
00 r—

.RSCII

/EDIT

BUFFER

>
12>
,PATTER NAME (X,Y,2)/<1S

.ASCII

,STARTING WORD NUMBER/<15><¢12>

.ASCII

,D0..D(UP TO 32 WORDS)/¢1S><12>

oo40

§O

[

,D0DD...D(32 WORDS)/7¢(1S><12>«¢<1>

.ASCII

§§§§ et

72
RRRR

fifiastDCKND%
:
SEYE
%88‘2
2
3
3 RE$2EEE8
iss 5R
i&

T
£

.ASCII

J1la

W
==

28
o

A
208

2
4
;

044503

11:59

0s20
011
0og4

BrRy

8024

0362
0362
036240
36246
36254
036

DOMMPO@D
00000

1
1
1
1
1
1

OO NN L

8013

29
7
¥ AR

8012

30(1046)
02-DEC-77
TRAP TABLE

0S1504
036720

103
042514

020040

044520
020040

.RSCII

o]0]

/COMPILE

12
@ M~

NC (NO CHECK) ¢15>¢12,

CZR6RCO RKB11-/06 USR DEFINED

CZR6RC.PL1

8068

pe-DEC-77 11:07

367

8069 8367
8070

792

gg%“
0200

MACY11l 30(1046)

7014

020

820040
020040

020040

O41050

051525

2116
0‘411{5

044440
pseltll

ON6040

047111

040
44

00N0
20101

S
ag

fw ewy

oER A

8084

(037060

nglB

808S
8889

7082

0111

370?3
3;?

2S1
'43.1

8090
8091
80

037114

03712£

(0371
8371 36

0421

0201

0.
8:‘

B
R om
gggg 83;&75 8:
8100

8101
8102
8103

7206

817

0372£
0372
83?"36

&
¢

?é"'

037272

2111 040440

o040

“’ .

8360"00

0040
02004

0‘07116

_ASCI1

,NEW COMMAND/< 15> (12> 12>

028&8

.ASCII /EDIT DELETE LINE

,LINE NUMBER/(15> (12> 1>

02010S

S mok ol e

0040
042108

ERY

B
020124
020040

.ASCII

/PRINT TEST

PT/<1S>X<(12>¢1&>

.RASCII

/PRINT LINE

037344
037%%8

(Sl
04SN

g?lél
-3 g

S8 e ey

Bi2l

037404

0S1120

047111

020124

044514
020040

,LINE NUMBER/<1S><¢12>

0040
0040
3508

811S
8l16

037412
037420

L RO SR

.ASCII /EDIT ADD LINE

0040

037300
0373(5

8122
8123

(BUS INCREMENT INHIBIT)/ /(1S

0040

8109
8110

,BI1

og42522

8105 037552
OME1lE 60
O8i3
gig% 8:33;585 meég a‘i (1): Ssgég:
8108

.ASCI1l

%E ;8 020040

g8uBso 0371§ %1&
8089

SEG 01583

047503

§§?8§ g

8083

PAGE 154

02C 40

807

8080

11:59

020048 020040

2075 036785 059040 BDaseid
B4igus
8075 83
m”fi%1 H23]9
04SSO3 0oessl
807
02(338 8388:'08 020040
807
807

02-DEC-7?7

TRAP TABLE

Kle

(042516
020040

020040
020040

,LINE NUMBER/<1S> (12>l

R
3
3

R
3

020040

747

375

)

anozg

020040

Ll2

PAGE 155

SEQ 0154

0s2l16

020040

.ASCII

/NEW TEST

NT/1S>
> (12>

.RASCI1 /RUN

RUZ¢IS 12> <1>

.ASCII

/PRINT REGISTER

.ARSCII

/HELP

HP/<¢15><¢12>¢<12>

.ASCII

/TIME OUT CHRNGE

Hook
B 220

ik
Q00

[

Lo
O

3887

2558
£

77
837a8
Bl
o3

esl
1

343
1

ocO000
[(Yleleslele
nNnLLrrLre—
000 OoOoONNNNNOOOO0

11:59

020040

§g;§§§ 365§“§ 047?

3*)\!
~N

et s Bt B (s Bt Bt Pt

NNNININNNNZWINWELE

s P Pt e Pt et e Pt Pt Pt Pt Pt Bt B P

NNNNNNNNNNOOC OO

e e P Pt it ot e P

MACY1l 30(1046)
02-DEC-77
TRAP TABLE

SR olle B pad

s Pt Pt s Bt bt Bt Pt frme s B

L L L L L L L L EWWW

o P

e B

[WIN]

e Bt Bt s Bt b ot Pt Pt

0 0000 40 QD00 GO CO €000 G0 D 4D 000D/ 4D €D G AD €O 0D 4D (D €O €D (D O (D D €D A GO (D T D 4B €D (D 4D 0O D €D KOO0 CD O D (DD AD (D O D (D

.nm\w*mJ:wmo-o\nmflc'm:wg;o-ommvg!mzwg;o—o\nmvmmzumv-o.omu%:wk‘% BIRR ¥

CZR6RCO RKb11-/06 USR DEF INED
CZR6RC.P11
0e-DEC-77 11:07

47440

Gupslt
20040

047116
o44503

024040

040060
040066
040074

020040
020040
051120

020040
037454
047111

020040
024040
020124

040116

046101

020114

042504

,REGISTER NAME OR NUMBER/<15><12>

,NNNNN (DECIMAL)/<¢15><12>

042504

ggggés §§0090 020040
004

040115 B257ie DBeds: Oosdis

.ASCII /

.ASCII

,? (PRINT CONSTANT)/<15>¢12><¢12>

/ALL DECIMAL VALUES MUST BE 65535(10) OR LESS/<1S>«<la>«la>
1>

CZR6RCO RK611,06 USR DEFINED

CZReRC.P11

02-DEC-77 11:07

8184
1

01
0O40l46

i
i
SSOH
Blgg 8: 12

8194

0246

819S
8199
819
8198
8199

858?

0e
8203
8204
8205
8206
8207
208

02SY
Dags
85
76
0304

Sgig
040340
040346
0403SY

8593

gq?s

Bele
8213

OHO4IM
0404

8819
g2l
8518

]
o4se
0:0960

8cel
8222
8223
822

0O40S
040506
82 4

826

0-36

8211}

821v4
821%S

90 oqléég
651
8%?? 8: 116 0S1440

geég 848:g§
ces

040515

10M

020040

(474
5216
1511
0040
042515

020040
047105
020040
040520
042524

lgbg 0515631

452

2506
7117
020040
0S1440
020040
45Y4
123

1440

047118

o004

020040
020040

0208&
U

020040

0511?4

0531{

0201?5

020°40
020040

020040
020040

020040
020040
0040
0040

82884
ot
O

8233
823
8235

0406

0606
40614
040622

.ASCI1 /DEFERRED COMMAND SUMMARY:/
/<15 <12><¢12>

.RSCII /COMMAND

NMENONIC

PARAMETER/<(1S> 12> 1>

.ASCI1 /SUBSYSTEM FUNCTION

,SUBSYSTEM CMND/ (15> (12>

.ASCII ~

,DRIVE NUM/<(1S><¢12>

.RSCII

,CYLINDER/¢1S> 12>

.ASCI!

, TRACK/¢15>
(12>

0040

02084

0040
6040

8558 Qugte3 021108 Gocois orells
8232

SEQ 0155

o040

B
3
823
08

PAGE 156

020040

516
02
020040
0l

0S4se2

ggggio 04710}

85011
4524
020040
020040
020040

048;

Y760
814

gigg

11:59

032465

1
1

8190

02-DEC-7?

TRAP TRBLE

5B poms
g
0e0le4
1525

1 goe

81
8183

MACY1l 30(1046)

Mlc

c 304

004

82
48
02004
020040

80“8
ec.oo4
040
0820040
020040

8 004
004
020040

020040

820040
0040
0S2054

MACY11l 300104 6)

CZRBRCO RKB11/ 06 USR DEF INED
11:07
CZRERC.P11
02-DEC-7

8oc8
8553

8271

8272
8273

8274

041100
041106

Q41138
Ga1158
041136

OM41144
0411

Q11

8278 Qall>
Be73 Buibof
8278

827
8280
go8]
82
82
82
8285
8286
887
8288
8289
8290
8291

041

1214
Q41
0412
1236
1
1
Q412
Qulchy
(M1272
OM13
041306
Q41314
041322

g deadpsinasassed pgd
QO——N
L

826
8267

——0
OO+

[ag

NGO29L§~—§ 2308
3 =)

S
82
1978

004

X R

1056

557

gi0u3
1998

8260
82

23 ROPePoePogeRRD

GHigTs
1658

g PPWoeR

¢ 004

838
8o

005015

7 g

(40666
Q40674
0407
gua7
71
07
07
07
a
g7
754
07
Q7
776

fuooes
Gaoces 80o

045503
020040

TABl
c

.ASCII

11:59

N1le

PAGE 157

SEQ 0156

,SECTOR/¢15>
¢ 12>

.ASCII

,WORD COUNT/<¢15> (12>

.RSCII

.DATA PATTERN/¢1S><¢12>

=0
=

841
8242
8243
24y
245
824
824
824
824
82
8251
82
825
8254

8533
8530

o40see
02004

(PN

040630
040636

ENW
[, TV

8236
8237

TRA P

02-DEC-77

.RSCII

/BUFFER INITIALIZE

,PRTTERN SELECT/(1S>(12>
12>

.RSCII

+DATR C(

LNNNNNN

.RSCII

+STATUS COMPARE

,STATUS WD SELECT/<1S>
<12

PARE

(OCTARL)
“<1S» <12« 1>

CZRBERCO RK611/06 USR DEFINED
CZRBRC.P 11
02-DEC-77 11:07
8292
8293
B2M

041330
041336
041344

829
8297

04l
OTMl

829%

8298

8299
8300
8301
8302

B39
8305

oqlggg

1333

0S2123
0S3440
14
c

HOS
141
1416
14

ouly

0414

8389

83“

8310
8311
gg}g

0Od!
041506
83{ 14

052101
020104
838633

051525
042523
805015

020040
020040

0040
0040
Q42454
04c524

0040

MACY1l

30(1046)
02-DEC-?7
TRAP TABLE

20040

Bl3

PAGE 1S58

SEQ 0157

.ASCII1

,EXPECTED VALUE/<¢15>¢12>

.ARSCI1

,MASK/<15> ¢12>¢12>

020040

0373 Osasid
0

11:59

020040
020040

8308
941469
D040 250010
8309 Q4iu3e DS0999 0o0040 959040
020040

020040
40
5623

02004C°
026040
005015

8314 gzlgé
12 828505 051511
Sl
B
pm e ol

2317 Gis

8319 8:1525 83
8
8321

1593
0OM1S

8322
ggg&

0416
041610

£32S

041616

004
oM

042516
0S2S16

0201

047440
00eS1S

041624
041632
041640
Q41646
041654
041662
041670
041676

020040
020048
020040
020040
0c0048
020040
101
012

020040
020040
020040
020040
020040
020040
042625

8335
8336

041704
041712

0426824
0SO011S

020122
051101

041677

122

8339 041734 0viSe

8340
8341
8342

8343
8344
8345
8346
8347

041742
041750
041756

2522
042515

041771
(041776
042004
(042012

040
020040
020040
020040

04176M

052518

,REG NAME OR NUM/<15>(12>

20043
020030
0040 020040

8326
6327
8328
8323
83330
8331
8332
8333

8334

.ASCIZ /REGISTER WRITE

oqasog

026040
040516
020122
000012

020040

020040
020040
020040
020040
020040
0S3054
005015

0S1511

047503
020105

EVEN

ENDLOC:

.ASCII

.ASCI1

/REGISTER COMPARE

.ASCII

, VRLUE/
(15> < 12> < 12>

,REG NAME OR NUM/<15><12>

850038 020040

40
0107
047440

Oc ~040
040516
122

020040
020040
020040
020040

020040
020040
020040
(20040

006515

012

,EXPECTED VALUE/<1S5>¢12>

8348 giE05e

3
?§§§29??????9?????9??39?3
ot

020040
Q42sel

30(1046)
02-DEC-77
TRAP TABLE

11:59

Cl3

PRGE 159

SEQ 01S8

o40
0040

.RSCII

SMASK/<1S>
(12> <1

.RSCII

/STALL

,NNNNN

.ASCII

/PRINT MESSAGE

,MESSARGE
/(15> (12> <1&>

.RSCII

/UNIBUS INITIALIZE

Uls<iSr<iar<«la»

.ASCII

/ALL DECIMAL VALUES MUST BE LESS THAN 6SS3S(10)/<«iSrci2x
12> <12

051531
047503
0S1504

.RSCII

/SUBSYSTEM COMMANDS:/7<1S5><¢12><12>

047101
020040
020040
047105

.ASCI1I

/COMMAND

(DECIMAL)/7¢1S>12>¢12>

0471

¥5298
sm§§§Lo

[

8357

AAVRUNN PRFVNUNVN
nn R)r\mm
a8g
RE
S;»—.—o—
£ FE5Y0BR
Yt ety2 ot

835S

PP PR PPTRRRPLR
RV oV g8 W TgRT oV iVnrnun
a LAVAALATI
W
&
ot FEER £
£

o420

22PPR

8350
83s1
8

MACY1l

s 5

CZR6RCO RKe11/06 USR DEFINED
CZR6RC P11
02-DEC-77 11:07

NMENONIC/<1S>
12> ¢12>

CZRH6RCO RK611/06 USR DEF INED
CZR6RC.P11
02-DEC-77 11:07
8:0“

2522

§:§;
8408

OH?él?

g:?g gas
OM

B41l

8‘015
841

606

gst;
1

8418
g:lq

-3
1

g:as

8414

gg;z

0OM42632
DHSSHO

&?‘fi

041440
02?040

gfi
Y
B3
B

8423

‘bbb

g4i1S11

g&
40

MACY11l 30(1046)
02-DEC-77
TRAP TABLE
00S01S

o40

0050151 020040
02010S
020040

0S3440

8:9

2sey

5503

0200“%

020040
020040

01
B enes
n

0280“0

020104

8288

871 Qua7Ea Qoo
8436 g:gggg

(02D0M0

RD/¢1S> (12>

.ASCII

/WRITE DATA

WD/<15>¢<12>

.ASCII /WRITE CHECK

WC/7¢<1S> 12>

.ASCII

/WRITE HERDERS

WH/7<¢15> (12>

.ASCII

/READ HERDER

RH/7<15>¢1e>

.ASCII1

/SEEK

SK/7¢<1S> 12>

£
o

0OM27S4

.ASCI1 /READ DRTA

020040

)

BY433

SEQ C1S59

(=]

S REd

Pand

0:2;26

8:29

lee

PAGE 160

020040

— (O

0Od4

D13

020040

Base Duss0a Daoorg Ccogry OS3WO

8426

11:59

02004 DSINW0
Egég
1101

.ASCI1 /CLEAR SUBSYSTEM

CS/7<15 12>

.ASCI1

~/CONTROLLER CLERR

CC/<18> <12

.ASCI1

/DRIVE CLERR

DC/<1S»<¢12>

9449 043102 (o00N) GZ004D 020040
84S gzgléq
é3
4YsSily

.RSCII /RECRLIBRATE

RC/7¢<1S> (12>

84S6

.ASCII

8437

g4"3

(O43006

09 3 GBIy
h’

B441

0O43L 26

BY446

DO43061

B4y
8Y43
g4yd
gY44S

4523

S0S

(020040

5340
020040
16&
o4y7522

8:3534
3042
(043050
(43056

4
Y
020040
006503

I1
1101
020040
012

1440
o040
O414N40

043066
043074

8363:0
0

14
040

051101
020040

84S
8453
84S
8455

138
0431
(OM3136
043144

11
02004
020040
006503

1 6
02004
020040
012

2010S
020040
0S1040

8457

043154

0OS1440

41505

8447
gY48

8458
8459

043147
043162
043170

104

8:4 22

(042sesd

104

834552

42526

0c20l1ed
020040

020040
020040

020040
02004C

]

/DRIVE SELECT

r—
e osn

DS/¢1S> (1>

MACY11l

cZ R6RCO RK611/06 USR DEFINED
02-DEC-77 11:07
(o4 R6 RC.P11

0S1504

TRAP

TABLE

11:59

E13
PRGE

161

SEQ 0160

.RSCII

/PRCK ACK

PR/7¢1S>¢12>

040517

.ASCII

/UNLORD

ws<1s> <>

.ASCII

/STRART

.RSCII

/0OFFSET

OF 7<15> 12>

.RSCII

/RERD ALL HERDERS

< 12>
12X >X
AH/ ISX<I2

.ASCII

/DRTA FQTTERNS:
/<15 <i2><1

.RSCII

/PATTERNS "R” THROUGH "I* ARE PROVIDED./«<1S><12>

.ASCIZ

/REFER TO THE FUNCTIONAL SPEC FOR DETRILS./<15><(l12><12>

SPINOLE

SS/1S
>

0S1440

042523
020040
020040
020040

IR ZRARRARARSAR
mmwommo
O
N—=—N—0
o TM L
U
S
T, T T T,
T
T
O L0
oo ILwon
RE-S2RRG2

0000
onstn

O
-

nGoo

Uy
N

02-DEC-77

040440
020040
020040
050040

—XLn

g
o

L)
e pe

Or= Ot)~ OL Ng
£S
LN
o

——

SR NOO»-

§§§§§§§§”§5
RRBAR
RR2R
TR 2Kl'\)(D"--8
ZonaE 293 5

Q45503

fargZZRS Bl

g RZZZZER
RA

O43534
g4354e

8e2RRP
SRIRATE2PPRIPIRAZRT
LY

Www
N

22222222
222 2222222222222

RAREEPFRPPRPPPPRLwe;
Rk
in
We
® SR 2BRIFERYRSLRBR
LK & QWO o

sasssasggggges
g $fi§§aw2;a
92
S

317

30(1046)

.END

59148
59128
47618
ce43s

023564

ggDOEC

Oflg?ag

4867

SO02%

S340%

gsgé:

gggg

sgg;

BROSEL
003365
BRADTYP
003166
BRI
= 000020

ce83s
22s8s
18658

3260
5771
6881

3880

BAle
BRA17

18418
18428

023566
3562
015006
0030S3

BROOCT 882640

BAII

BDDAT

= 000004
=
=

00
001000

43754

22168
17328

6722
6716
4786
2478

2953

3695

3026

S5344®

59138

6712

2868

2982

3062

3190

3633

3642

4esl

3258

3482

4014

3878

3976

Y229

5783

4830

4837

5321

5522

014504

4yz2ss

S172

5231

5291

BITO

= 000001

16318

1838

1855

1881

1903

20s1

a4ee

BIT1
BIT10
BIT1L
BITie
BIT13
BITi4

=
0000
= 002000
=
0
= 010000
=
020
= 040000

16308
1611e
16108
16738
lepgs
16078

1731
1843
1844
1846
1847
1848

1856
1872
1873
1874
1875
1876

1883
1894
189S
1896
1897
1898

2052
1929
1914
1931
191§
1916

4833
1943
1930
1945
1932
1333

4847
1956
1944
1958
1946
1947

BIT2
BIT3
BlT4
BITS

=
=
=
=

000004
000010
000020
000040

16298
16288
le27%
éssgl

1732
1733
1858
ég%g

1857
1863
1865
1867

1884
1864
1887
16888

1885
1886
1907
1909

190S
1906
1908
1924

20s3
20s4
1923
1938

BIT6e
BIT7
BIT8
BITS

=
=
=
=

000100
000200
000400
001000

16258
16248
16238
16228

1839
1840
1841
1842

1868
1869
1870
1871

1889
1890
1841
1893

1910
1911
1892
1928

1925
1912
1913
1942

1939
1926
1927
195S

S693

6529

6875

6959

89S

6946

69%9

6243

6302

648Y

BORTE

B8IT00
BITO1
BITO2
8IT03
BITO4
8IT0S
BiTO6
BIT07?
BITO8
BIT09

007530

=
=
=
=
=
=
=
=
=
=

BIT1S =

000001
002
0QOO0M
000010
000020
000040
000100
000200
0004
001000

1000

2361

34168

16218
16208
16198
16188
16178
16168
16158
16148
16138
16128

1631
1630
1629
1628
1627
1626
1625
1624
1623
léeee

16068

1849

1877

BLOHDR
BPTVEC=
BSE
=
B.BA16=
B.BR17=
B8.COT =

022302
00001Y
000200
000001
002
000004

5604
1638
18908
18558
18568
18578

6146
6875
6875
5528

6312

6548

6529

6875

CCLR

100000

18508

4780

4977

482

5047%

S8b6#

B.CFMT=
COT

CEFLG

CERR

000020

= 002000

023452

100000

18588
18438

4782

18498

S630s

1850

5530

6288

S045%

3533

5633
6838
6184

1899

18917

1934

6535

VoIV
NELNY
IV IV O
\O\DQQ\D*$$
N
nINn
O—0OnN
~NINV L£-DWVN—N

A.CONT
A. NORM
BRDATT
BROCOM

R.RBN¥

699%

Lolodedat
e ' 1)

19068
46578

ACLO
= 000010
APRES
013727

SEQ 0l61

MRCY1l 30(1046)
02-DEC-77 11:59 PRAGE 163
CROSS REFERENCE TABLE -- USER SYMBOLS

5925

4900

5928

[lotensdiloted.

CZR6RCO RKB11/06 USR DEFINED
CZRBRC.P11
02-DEC-77 11:07

F13

68S0

5929

6306

6994

CSRERCO RKBLI
CZRBRC.P1I

06 USF DEFI €D
0e-DEC-77 11:07

MARCYLl

CERRD

Q22622

57878

5883

CEFFID
CERRI

02333
853“31

Sg46s
Seecls

5873
S87¢

CE ‘R13
CERRIY
CERRIS
CERR1®
CERR2

0~”3431
C 3431
023401
02343l
022746

022776
023033

58638
58648
58538
S8658
58728

SeJbs
Sg1ls

S870
5869
S868
S884
S881

CERR?
CERR8
CERRS

(023431
023217
023261l

$8588
58328
58388

5861
5875
S874

CHNFLG
1663
CKSWR = 104407
CLEAR = 000105
CLR_
= 000040
CMDTO = 880 00

17548
78718
18098
18668
29;7.

Ot
= 001000
COMLEV
004416
COMMA
00466S

CeEr-1

023675

CERR]

CERR3
CERRY

CFMT

= 860000

CNTSTR

compP

3431

1714

002772

573948

58628

5871

5880
5879

5862

5863

see4

5865

6838

6893S

6946

6969

4817
3558%
6312
2477

4988
4549
6548
248e

6045

18938
2439
25548

4800
3S36%
6146
a4els
2558

2973
6977

4302#*

ig46s

17728

22328

6288
3563

3677

17398
18278
5021s
2343
15468
15478
18448
2331
46498
30888
17068
2365
39228
3921
23658

3369%
S57S
5914
3bces
7206
7177
BSYY
SeS6#
4B2Y4
3153
4265%
3914s
4218
3924+
4216

CSERR
CSPM
CSRC
CSRCWS

001664
010674
010752
011004

17558
2377
2371
3834

3631*%
3759
38358
3837

CSRKW

010734

2367

2373

39%1s

3832

CSSC
CSSF
CSST

010770
011576
011350

2369
2363
2375

3838
41594
4001#

C.RTRN

031136

6859

6887

chol, Sl

Y439%

44Bb®

4493

5876

4499»

SS81

0012SM
000176
01B44Y
010310
000015
000200
004000
022154
013652
006336
001200
011162
011206
011210
004016

0ileze

SEQ J1e2

Se82

COMSZE
CONCLR=
CONERR
CORTE
CR
=
CRLF
=
¢70__
=
CTRTE
CUROP
CvTBUF
CYLNUM
cs8l
cscBl_
csCB8II
CSCBIS

CsS0C

30(1046)
02-DEC-77
11:59
PAGE 164
CROSS REFERENCE TRBLE -- USER SYMBOLS

3406

3567

69es

6932

7216
7216

3172
4290

3672

3704%

3840

e915

6922

6936

6953

6975

6980

6990

6999

7012

CZR6RCO RKb11-06 USR DEFINED

CZR6RC.P11

02-DEC-?7 11:07

MACY1l 30(1046)

02-DEC-7?7

11:59

H13
PRGE

16S

SEQ 0163

CROSS REFERENCE TABLE -- USER SYMBOL.S

SCKSPEC z ?88633

¥4

1933-

89}
gxwé

6312

BSTRER. 093848

P23y

aunn

oegexn

?sug.

2749

2837

2976

18488

3533

6332

7004

16538

2409

6270

6306

6546

4585

4600%

4773%

S024%

4993

6135

6918

17058

3012

3021%

4260%

4281

S517%

S519

DRVCAL
863570
ORVDSC=
000040

45808
20568

S141
4791

5649
6220

DRVPDT=
ORVPOS=
prRvsZD=

2053
20528
20668

6328
6328
4797

639
635
4800

6386
S344
6422
6321

Y48
5913
6553
6766

6817
6158

6920

S767

5769

S777%

§5779%

6437

6551

6686

6693

6897

7770

7774%

77?7S%

DCLO

= 000020

DOT

= 000400

031314

DISPLA

DISPRE

OLT
=
OMD
=
DMPHOR
DNRTE

DONE

001142
000174

100000
Q00040
3465

006144

001667

19088

1913

16878

18778
19248
22958
2323

17588

DPRTE
005323
OPRTEL1
0C6
DRA
=
000001
ORDY
=
000200

2341
3091
19038
19129

DROT
= 000040
DRPAR = 000010
DRPDRV= 0020

19058
18868
20648

OIVE

001176

DRVERR
015036
DRVHRD= 000020
vMSK= 000007

DRVTYP

Q03004
8885

001244

DRVUSE= 000001

gch R= 88888%
.

.SEL= 00000

¢
=
DSCNOT

Q400
4731

47668
20558
18628

17288

20S1s

fgéé'
18338

19168
47528

]

2401%

6140
3465
30058
4580%
30324
3033

6780

S002
4788
b129

5529
6780

6208

6278

6371

S76b%

6413

2400
6780

6879

6146
2739

6312

6548

2419
2861

2423
2905

3361
3699

8325#

2398

2399%

2410%

7769

4796

1686
5524
6548

Ennss

aawg

§s 8%

EBRT
ECCW
=
ECH
=
EDRTE
EMTVEC=
ENDLOC
EQSGN
ERRFRE

006346
020000
000100
00526
000030
041616
002510
013644

233
19328
18898
347
16418
2417
22008
46008

5912

ETABL
ESAH'

023454
021634

5040
4076

58684
55934

16348

5752

6672

15828
20698
18968

ERRVEC= 000004

S046
6227
6170

3056

6357

WR
= 177570
DTBAII= 100000
DTE
= 010000

809954

2409

6548

6679

4005

71018

030#

7782»

7783%

CZR6RCO RKb11-/06 USR DEFINED

MARCY1l 30(1046)

eS8l
ESCC
ESCS
ESDRTC
ESD
ESOL
ESOF
ESPR
ESPM
ESRC
ESRD
ESREGC
ESRH

Y491
55758
55728
5253
SS8ls
S578%
SS90s
55698
4s4gs
SSe64
Se06s
S200%
SS96#

CZRBRC.P11

020536
021540
021524
020204
021564
021552
851622
1510
013516
0e 1474
0el7le
020026
G21646

0e-DEC-77 11:G?
2365
4058
4060
236?
Y062
4066
4074
4068
a37?
4064
4046
2371
4054

02-DEC-?7

11:59

2373
2369
4056
4072
2375
2379
4070
4050
4048
4052
53218
59308
gggg:

53188
S133s
55998
55878
S334s
S5438
S584#
Seecs
S619s
Se0es
6487
6561
6213

6377

6418

6442

E.CONT

023570

S030
b442%

SO44%
B4B7®

59158
H539%

Hllo®
6S61¥

H150%
H700%

E.OLT = 000400
E.DF
=
002000
E.ILLO= 000100
E.MOS_= 100000
E.NORT=
002
E.SCLR= 000040
E.UATT=
000004

59298
S9318
S328%
59338
S322¢
S9268
£9238

62
6223
6968
6112
6339
7009
6345

E.UNLD= 020000
FCMND
(QlMll12

20678
46808

6231
4814

FDATC
FORIVE
FFPRIN
FMTE
_=
FORMAT
FOURP
FPARM1
FPARMZ2
FPARM3
FPARMY
FPRRMS
FPARM6

Q14434
014103
016732
000020
001212
022016
014120
Q14161
01420S
014226
014247
014270

FPARNG Olu3as
FPRINT= 104414
FTRTE

006000

47178
46788
S103s
18878
17118
5618
468l8
46878
463918
46348
46978
47008

47068

4g8l2
4898
2337

SEQ Ol&Y

S3608s

020426
017610
021660
021610
020446
021464
021576
021776
021762
021672
000001
001000
888888

59248

PRAGE 166

CROSS REFERENCE TABLE -- USER SYMBOLS

ESRW
E$SC
ESSK
ESSS
ESST
ESUI
ESUL
ESWC
ESWD
ESWH
E.CCLR=
E.CERR=
E.gh?g:

E.UDAT= 000010

I13

6150

5281
4810
7876
6548
2942
S62SHe
483
4835
4871
4B7Y
4877
4880

4918

4815
4899

2937

6213%
H334*

6223*
698B8%

6294*%
63%*

6316%
7009%

£339x

634SR

B377%

pH1BH

4844
78768

4850

4852

4853

4886

4887

4892

4833

6700
6539

6316

6934

6351

6426

2949%

4273

4840
4304

4842
4913

B436

4843
4919

CZR6RCO RK611-06 USR DEFINED
02-DEC-77 11:07
CZRBRC.P11
GDDAT

GNS

014467
ARERER

GO
= 000001
GODRV
022142
GTSWR = 104406
001736

000011
000400
023612
001710

ICDEC
ICRTE
1CTBL
IDRE
=
1E
=
ILC
=
ILF
=
INTERR
INTMSK

004704
005254
N353y
002ud0
000100
000001
000004
003023
023617

INTR
=
10BFSZ
I0TVEC=
IR
=
ISRTE
ITCNT
ITRTE
IVDRDD
IVDEDT
IVDLN

000300
003321
000020
000100
013020
001232
013026
002554
002532
0025

O
n
[A]
o
n
o

5t
e 5

.ISRL

023ble

Se2e8
7864

Se88
7865

5640

5645

SeYas

5635
6268#
6361%

6958
%
6964

J13

PAGE 167

SEQ 0185

CROSS REFERENCE TARBLE -- USER SYMBOLS
7866

7867

7868

7871

7872

7873

7874

7875

7876

2511
5256
3656

esle
5608

2522
5617

2635

2756

2844

2900

3389

3427

3644

BSS6

6844

6885

6951

7018

6232

6257

6343

637S

6416

6427

6440

6711%

6715%

6719%

3058

3536

4549

2791
2795

2870

3484

Y4eee

6387
6300%
e48es

63964

6633
6769

6903

61974

6330

6119%

6122%

*
6944

7017%

3358

6548

83448
8398

(DU(DN:U‘(DQ L-WWNOW—-OLNDOW

H
=
HVRC
=
H.HERD
IBUFPT

023606

et et et 0t Dt Dt et 5t 0t

R.AD

S169

11:59

4790

HARDER
(14646
HCRC
=
00

HOBUFF

30(1046)

7863

02-DEC-77

MACY11l

44540

4389

6554

4387

6914

6979

x
6493

6790%*

K13

CZRERCO RKB11/06 USR DEFINED
CZR6RC.P11
02-DEC-77 11:07

MACYll 30(1046)
02-DEC-77
11:59 PAGE 168
CROSS REFERENCE TARBLE -- USER SYMBOLS

I[.ISSU

026314

6209

6279

6358

6372

6414

6438

6S24s

6673

6680

6687

664

I.RTRN

0e2b214

bllY4
6280

6152
6283

6202
6318
6439

6207
6334

BY4Y

6210
6341

6216
6347

6225
6359

6234
6373

6237
6380

6ese
6392

6254
6412

6584#
64360
3652

6429
66708

6190
6296

6534
6353
17748

6420
6M11

6162
6292

17528
S318#

3390#
E334#»

3539%
§362*

3562%
SSO8x

4548 *
5544%

4806

4924

S134x

5160

Seg0s

5219

£255»

5274

010152
010246

3537
3557

3541
35608

35438
3569

2752

2782%

2840

3391#*

3663

001722
001724

17758
17768

1.100

1.STAT
1.STOR

Q24244

(026770
026536

I.UNLD
JSRRY

0eb6llM
001720

LINNUM

0011186

LNCMT

001243

LOFFST

001256

KIPARO=

LOC2S
LOC3S

LPCNT!
LPCNT2

x#%xux U

LPRET010135
MaxXWDS
001700

6120

641S
6206

7765

1727
17408

5230
17668

MCLK
=
MDS
=
MERD
=
MESMSK=

000400
001000
001000
000017

IND
=
MSKLARB
MSP
=
M.CRDD=
M.CDIF=
M.DRV =
M. HERD=
M.ID
=

000200
(014571
000100
017760
017760
0007
007000
000003

19264
47348
19258
1997
19968
1993
2000#

M.SER = 077770

1998%

= 002000

19278
18718
1328
1921

6137

2509#

blb4s

2649

2664

S081

s08s

3sc9
2510

4551
5083
2se0

2636

3394

4249

S364

5365

S609

5110

6837

6912

5175

5234

6133
4587

6508
sse?

6883

6910

6928

6949

6972

6981

SbeM

5697

5764

70468

3525%
3526#%

3932
24c8»

4287

3651#%
3552#%

1929

199Ss

M.PAR =
000
M.SECT= 000760

19944
1999

NEM
= 904000
NOCHK = Q00400

20608

18738

6842

3691

4391

0002
004000
002465
003007
DO7416
004664
00000
001674

1731s
20658
21968
2235
2353
25538
1885
17638

3633
4794
2525
egze
3383
2556

2643

2654

3398

3645

3665

OCTBIN

031160

2947

3019

3123

3173

034634
001712

3388
17718

001706

OFFLAG
00166S
OFFSET= 000115

OFILE
OFPTR

17698

17568
18138

2417%
4173%
5590

3540
3388%

3638
6368
2640
2916

e
6780

NOCK
=
NODSC =
NCROOM
NOSRC
NTRTE
NULL
NXF
=
OBJSZE

OBUFPT

6453

2531

Y 657%

2530%

6432
6924

SEQ 31866

3431

4180%
6825

3643
3399

5525

5257

€363

£366

4193%

3667
3676%

3245

S488

4263

3460

4285

3860

3967

4341
4340

4378
HY77%

4474
Y478%

7877%

42B8#*

424ys

701S

CZRBERCO RKbi1/06 USR DEFINED
0e-DEC-77 11:07
CZRERC.P11

PACK
=
PRRHSV
PRRM
PARMI
AT
=
PRTPTR
PATR
PATRDF
PATSEL
PATX

0103
7 s
14
002230
000020
881676
1562
001242
001236
1 6;

PATY
PATYDF
PRTZ

1362
(001240
001462

POATXDF

123

PATZ
ésq
PBLK
PBSEL
1314
PESVAL= 001000

PBSHW

PCR
=
PCD
=
PGE
=
PIP
=
PIRQ
=
PIRQVE=
PLINE
PLRTE
PRERR

PREVOP

PRINH
PRLPCT
PRNOGID
PRRTE
PRTCON=
PRO
=
PR]
=
PR2
=
PR3
=
PRY
=
PRS
=
PR6
=
PR?
=
PS
=
PSW
=
PTPDB
PTPSR

PTRDB
PTRSR
PTRTE

001670

004000
010000
002000
020000
177772
000240
014061
005500
003223

(013700

001662
016670
0B02316
006742
000064
000000
000040
000100
000140
000200
000240
000300
000340
17?7776
177776
001734
001732
001730
001726
005700

= $020000
=
0200
OTRTE
012426
0.WRIT
(023572

17308

ommwvml}‘»—wo\l»
ax
i

oP1

190S#

L13

PAGE 169
11:59
02-DEC-77
CROSS REFERENCE TRBLE -- USER SYMBOLS

30(1046)

SEQ 0167

S74
638#%
6312

5?77

g4y2x
£S48

5580
4261

42?7 )

4275 )

Yese

5589

Se46s

6050%

6160%

6164

6180%

H246%

b2S9*

H274#

6818%

4937
4940

4958
4961

5133
£137

S509
ss12

5979

3935

4375

4470

S370

5480

4452

5374

5721

4458

8378

4368

44BM

8382

B156
6619

6324
Sk22

6349

6767%

4959

5135

5510

5513#%

s221

5276

so81s

S176

5235

5301

4825

SO01¥

S008#%

S648*

5345

6032

6038%

6658%
€670

5663

5671

u4s2e¥

4ysa7

4490
4357
4448
4362

S o= O 0= b=s s s e e
WO L=t
= OO =

SPELGS BBiba

MACY11l

sseg

se32

cS86

5641

6878»

Se46

6546

5162
5675

4519

60Se*

6761

6762%

7021%

S657%

S659%

S660

SE6b*

5667

6940

6957»

001174

17048

MACY11l

0e-DEC-77

M13

11:59
PAGE 170
CROSS REFERENCE TRBLE -- USER SYMBOLS

30(1046)

4349

4379

Yy4Yy

Y47s

Yy77
4370
7793%
6375
6366

448y
4376
7794%
E408*
6362%

4487
4383
7803%

6639%
6383

44098
7809#%

S635%

6861

6958

6697%

590S*

S616%
6834

5620%
6840

SEQ 0168

7822%

6827%
5696%

. . s s s s g .« .

VOVVVVIVVDOVDVDOD

C C

CZRERCO RKB11-/06 USR DEFINED
02-DEC-77 11:07
CZR6RC.P11

000016

2& 7%
Y0

694S#

6176
6955
6400
6875
%
6351

6793
6977
gwog;
885#%
6952

bb3ox
»
6894
6969*

6287

6874

6894

6959

6912

6916

6943

656 *

2 4%
Y9

Be3d

EE93

000020

6633%

H791%

6881%

000002
000030

6285

6821

5965

géz

6350

6765

0oooo?

9901*

VVUVVVIVTVOVIVL

6903&

Sb36%
ngi

6636%

6638%
4788

6158
6436%
6920+
6286

D4411
13406
RDSTAT= 00014}

4791

b220#
BSS3*
6349
6864

&86¢2
bE634x
3321

3322

3813

6176

6955

4471

4488

6971

H97?§

4794

H192%
6448*
6928
6822

45268

6841#%

Se44

4532

6809

N13

CZRBRCO RKbB11-06 USR DEFINED
CZRERC.P11 . 0o-DEC-77 11:07

MACY1l 30(1046)
02-DEC-7?7
11:59 PRGE 171
CROSS REFERENCE TABLE —- USER SYMBOLS

ROY
=
READ
READRG
RECAL =
REGLAB
REGNUM
REGVAL
RELEAS=
RESREG=

4985
4513w
43548
5566
E28
3548

18408
4946
4819
18128
y7dis
17168
17178
18248
5658

6938
©728

15338

45971

6186

6256

6336

6531

6639

6828%

6853

3565
15868

3831
3833

4288
4890

4,53
47u0%

4983
4965

5206
G977

bG3I1E
6333

59098
94985

6039
W99l

6584

6108
G051k
bEAGH

6183
6886%

6269

6527

6S8S

6Bl6%

BI6LE

6691E

6792k

6379

6419

3046

3100

76358
3341

RKBA

17888

RKASOF= D00OIE
= 000009

RKBAS
023554
RKCSI = 060000

32788

4968

6901

5043
6834

23249

3832

7655

78758

3854

6587

£635

2835

6EbLE

3535k
b343%
49963

9966
63E7E
£286%

4976
6990k
6588

14979%

S050%

= DODODG

12308
68934
17898

5321
Q962%
653D
2003
6109

6636

6822%

BBEYY

RROCYLE 009950
VL2 B333;

17328
17338

£3pex
5893*

65
8338

6641
B%dF

6B21%¥
BERyt

6B63¥
&e%P

HI6SH

6590

6638

RKCS2 = 000010

RKDA
RKDB

= 000029

6291%
£S00°

17968

RKEGPS= 0000
RKECPT= 000032
RKER
= 000014

18018
18038
17928

RKMR2
RKMRJ
pUPAT
RKPOS
RKPRT
RKVEC
RKWC

000039
0000
0000ID
000030
0235
053286
= 000008

17388
17998
18028
18008
89118
3912
17658

001230

1718

RKMR1 = 000026

RLS

RMASK

=
=
=
=
.

= 000010

RPSAIT
RT3PC.

RUEXIT
RURETN
RURTE =
R.ABNL

001671
001716

010308
010276
010036
027216

R CONT

057548

R.NORM

027230

2AvREG= 104913

17358

6265

6382%
£9S5a

6566

6199
4372

65
6897
G143

4995
4399

€594
6895

498ix

B4BY
E£974x

6267

6309

BUSSY
£983%

63568

6293

6309
6905

GO0

6677%

6762

18648

6038
€9108
Q967

642

6586

6634

6862%

17608
17738
3629
3269
538
€081

4772%
3679

4820

4856

4926

492B%

4936k

3842
3265
32358
B6I61

3566

35688

uuss
6236

6253

6431

6451

67118

6563

6701

65198

6935

6983

6398

2011

Lre7e

dioge

JeQlw

R0y

4e7E

Neres

S333°

S9s5

5633

5753

9846

8113

6189

2BSCN . 004666

3628y

SCERR
3CLR
=
SCNCLR
SCTBL
2CT06G
20ETER

47558
18678
Y7478
40u4Ss
21938
G6658

014520
000040
1467S
011434
002437
014025

B30
£330

6161

6282

6918

6291

2663

9632
5050

5032

bood

6718s

2945
6992

6858

2833

8317
6931

2937

6340

BS5H¥
7018#

GEBYE

6921

€396

6488

7019

2966

3916

3007

3963

4001

41e2

RESVEC= 000010
RGOCDE
007056

6848

£W

000200
013394
016120
000113
019633
001024
001596
000]40
104413

SEQ 0169

3152
4332

MACY11l

CZR6RCO RK611-06 US
CZRbRC.P1!

3389%

5302
3543
5216

3547
5267

3556
5270

4822
740S

S025
7444

5028
7499

3561

2594

5236
2408#*
5213

7405

7444

7467

s0es

S1S4

5213

5267

5028

5157

5216

5296

FT YT

1 2

6986

3538

4011

000010
000020
000040
000100
000200
000400
0010
000002
greg
GO4000
010000
020000
0000
100000
000004
000010
000020
000040
000100

NN81x
°onl

5177
2402
5157

= 000004

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

Y473%
e8se

SWO03
SWO4
SW0S
SW06
SW0?
SW08
SW09
SW1
SWi0
SWil
SWl2
SW13
SliY
SW1S
SWe
SW3
SwW4
SWS
SWe

3530%
2759

S066#
2400%
5154

SWi2

3386%
2690

4130

SWREG
000176
SW0
= 000001
SWO0
=
001
SWB1
=

2898
e674%

4188%

001216
014762
177774
003240
001220
014550
000177
(01214
100000
016622
001140

002435

15398

TAR

STRTRD
STILSZ
STKLMT=
STNTVD
STVARL
STWONM
SUBCLR=
SUBCMD
SVAL
=
SWCONT
WR

e831
2634

6831

L2 X

000002
001ee2
003530
003521
020000
000020
Q00111
014000
001100
0Clese

%
2784
2535#

o—o—»—o—r—o—o—o—r—u—u—-.—o—gr—»—o—o—o—»—o—o—o—o— OO‘WOV%V\JNU‘\)\P—\!

SK1
=
SMASK
SPARCE2
SPACE®
SPAR
=
SPDLSS=
SRTSPL=
SSTO
STACK =
STALL

SEQ 0170

S&31
6819

NV
L
bt e L e () 0 0 ) 0=
oo
[0} MODODHOHOON0 OO
e
W= oNU-0 W
NOOO=MOO—NWN
LN NDOO-NWW L0NN
£ NO W

001204
000010
Q000117
000101
022010
DOl234
001246

oo,
DDOOONNDDODOO®

SECNUM
SECT20=
SEEK
=
SELDRvV=
SETADD
SFEMP
SFPTR

Bl4

30(1046)
11:59
PAGE 172
02-DEC-77
CROSS REFERENTE TRBLE -- USER SYMBOLS

CZR6RCO RK611/06 USR DEFINED

CZRBRC.P11
SW?
Sk

= 000200
= 000400

SW9

= 001000

.ACLO=

pD2-DEC-77 11:07

BRHM=

. RK;:
.CART=
S.DCLO=
01
S.DIB8 = 002000
S.DOOR= 000200
S.DRA =
40
g.BgOTz

.DRY =
S.DSC =
FLT =

00
0000

.F
=
.FWD =

S.HOFL=x 000200

S.HDHM=
S.ICyL=
S.ILF =
S.LIMD=
S.LORD=

S.MHD =
S.NMOV=
S.0FF =
S.PAR =
S.PIP =
S.PLO =
S.REV =
S.RTZ =
S.SECT=
S.SKI =
S.SPIN=
S.SPLS=
S.SPOK=

000040
000040
000400
020000
88

(010000
002000
001000
020000
QO4000
004000
8880
02
002000
0l
010000
001000

S.T
= 000400
S.UNLD=
0000

g.UNS =
W

S.WCLK=
S.WGAT=
S.WLE =
S.WRL =
S.XDOK=

0040
000100
004
004000
0000

FoiSte= e

159648
1595y

15944s
19521

MACY!l 30(1046)

3547

S069

PAGE 173

SEQ 0171

6218
6361

6366

622l
6229

6698
6424

2521
gggg

19678

1989%
1969

1959s

198Ss
19688
19388
19608
19408

19478
19538

19424
1871#s
198¢2s
19668
19S1s
19S4s
1988
1973s
1983s

19878
19438
19558
19468
19864
19728
19748
1979%
195648
19458
1958»
19708

6383

6446

2522*
3832#

2523
3835%»

2587 %
3838#%

2588%
3844

2589
3866

3090*
Y4163%

3092#*
4165%

3119
4178

3665#%
4182

3666#%
4300

3839*

3843

3872

6339

S343

G363%

5364 %

G365%

S476

5485

1941#
19758
193 #
19398

1980#
1981
1957
19494»
19658

it]

1702

17678
ggggl

25e0x
ggggi

TEMP2

001704

17684

3833%

(022050
000060
006062
003273
00les0

11:59

CROSS REFERENCE TRBLE -- USER SYMBO.S

TEMP1

THREEP
TKVEC =
TORTE
TOTMSC
TOVAL

02-DEC~-77

Cl4y

5595
16438
32l
2272
17428

5598
7382%
296648
5300
2971

3836%

Se01
7383#%

56328

2978%

3527

CZR6ERCO RKb11-06 USR DEF INED

CZRBRC.P11

02-DEC-77 11:07

MACY11l 30(1046)

18438

2392

TYPDS =
TYPE
=

17078

10440S
104401

TYPOS =

104403

T.ASOF

023532

T.8BAR

023524

T.CS!
T

.cs2

3698
Eggg

4807
guag

5161
qué

4832

483S

4836

854

48s5S

4867

4871

S156
5234

516
526

S163
276

5166
5281

5169
sS4

S17
528

5175
523l

f302
Eags
78664

303
§23g

Mol
228

ey
g 87

Ges
230

A9
5299

&109
5757

6187

6211

6256%

6257

6336%

6408

6416

6440

6184

6197

6208*

b24l#x

BREY

ERAd

ErES”

6300
6529

ba3S

6302
653!

6332
6535

6403

b525#

B312

6409

6548

6590*

BIBE.

BSE

g2d0”

6689

6696

4337

HY4g2x

T7.DR
T7.08

}. MR1

0235:0

1:PRs

BEda

UDTSRT

004116

T.PAT
T.POS
T.WCR_~

b6186*%

4918
7343

6858!

6854

c888s

6131%

6183%

640

6587#

B4Ol®

6357%

B371%

6526%
58948
S30Ss

BS27
6406

6537
65808%

4Q7

Sgel

143%

146

Bados

7274

@8 o
& o o
EEEER

259 #*
8938

023526
02355e

4916

58968

023520

2393s
3052
2460

786548

023516

4293

2972
E;HO

2180

104404

5900:

£189s
134#

6593#

Bdfss

BEAD

1656

23838

BEED

S304s
S3038
58928

UEXATT=
UFE
=
UNLORD=
UNS
=
urPr
=

000010
000400
000107
040000
020000

20548
18708
18'08
189848
18758

4784
6125
S584

3387%

3528

WCE _ =
WOCNT
WLE
=
WLOOP
WRDATR=
WRHERD=

040000
0012
004000
013356
000123
000127

18768
17098
18958
45198
18168
18188

6140
3457
6146
4520
S620
5603

17218
1910

6597
6596#
6404

BDIA*

023550
023546
023See

vLLOBJ
001235
vv
= 000100

SEQ 0172

2904
2;33

4910

TYPON

PAGE 174

E;g?

4
R

TYPOC = 104402

11:59

CROSS REFERENCE TARBLE -- USER SYMBO.S

TRABGES 888833
TRKNUM

O02-DEC-77

6140

6586#

7402

922

7399

6402

ED3E

4323
7411

b413%

6546

6585#%

6410

6S89#

e309%

4933
7465

B437%

Yoy

5007
7466

H4B83#

7485

6132
6203
6797

6546

6306

6546

6306
4299
e3l1e

6546
4302

3650%

6916

3675%

£869

TM
q9 11

CZR6ERCO RKB11-/06 USR DEFINED
CZR6RC.P11
0e-DEC-77 11:07

ElY

MACY11l 30(1046)
02-DEC-77
11:59 PAGE 175
CROSS REFERENCE TRBLE -- USER SYMBOLS

WRL
= 004000
WRTCHK= 000131

19148
18198

5623

686S

W.DRV

023632

W.MILI
W.MIN
W.MTIM
W.SEC_

023576
023604
023574
023600

4983
bY428x

59388
S954s
59378
3527%

S336%
H4SO*

5985
H721%

W.WCK = 000200
M.WTCH
023634
W.8SEC
023602

6780
4987
6233
4529
7458

6841
S341
6428
4535
7615

6867
60288
6836

4776

5027

5156

W.TIME

023616

4984«
6398%

H1SS*
E833%

H1B1%
6B3b*

6233%
6857%

b24YB%
6909*

b2blH
6%27%

62754

6323%

6390%

6399+

6042*
6769%

B1SY*
6856*

bl82%
6308%

B232%
6926#

6247%

6260%

6276%

6322%

6389

6852

6899

5218

5269

7411

7608

2944
4ygsl

2973
490S

3014
4916

3053
4922

3255
Sag4

4YSse

4813

3549%

S071%x

7747

7752%

7757%

7809
7463%

78264
7482

7502

7615

4855
7738

4906
7745

4923
7751%

7216
7758%

7598

7608

3537%

5072

6035
6833
6033%
4983

S337%
B427%

7001

6035%
59518

S39608%
BY43®

XRERD

013434

S$”ODRT

0Gl126

20598
4584
59538
4s21
16838
16788
16808

THARC
SCKSWR
SCMTARG
$CM3
=

J31702
(B32656
001100
000000

7182%
74448
16668
16968

7192%
7871
2385

2386

7399

7480

76084

SCRLF

001171

17008
;gég

2865
4836

2909
4854

$OBLK
$D82D
SOECVL
SOTBL
SERFLG

032122
033700
(034060
032112
001103

7240
5086
7631
7243
16698

7274
76298
76774
72788
3532%

7282

SERRPC
SERRTB

001116
002316
00l11e
001162
0011S6
001155

16768
21768
16738
1697
16948
16938

1752

SAUTOB
DROR

SBELL

SCNTLC

RMAX

SERTTL
SESCAP
SFILLC
SFILLS
s

]

SGTSWR

001134
001122

0011e4

033636

001115

0011e0

001le4

032746
= 000001
SHINUM
(034266
SHIOCT
(C31312
SICNT
001104
SILLUP
034530
SINTRG
001135
SITEMB
O00I11Y4
SLF
001172
SLONUM
N34270
SLPRDR
001106
SLPERR
001110

16988

1675»

16778

16798

74668
1521
3933
7071%
1670%
7793
16848
16748
17018
3934
1671
16728

SEQ 0173

718S
7216
7869
1522
773
70848

7199

3545

6040*
6770%

6770

6036
6720%

7208%

6873
6846

7213

7216

477
5758

7501

7588

CZRBERCO RKB11/06 US
0e-DE
CZRBRC.P11
SLSTRD
SMAIL =

30(1046)

77844#
7169

77884

NNN
wWwn
Lo
2 Ll

F1Y4

PAGE 176
11:59
CROSS REFERENCE TARBLE -- USER 5YMBO.S

MACY11l

02-DEC-77

7322%

7333

73598

7520

759!

7608

SEQ 0174

7821
7216

78284

23%6

7403

1528

STYPON

032172

7408

7409

7439

7615

1530

1531

1532

1696

1697

7420
7540

7448
7542

7475

7433
7545

7434
7547#%

7436#

7418

7424#%

7446

74624

7472

7484+

7504#

78664

78678

7868%

7869

78708

7871

78728

7873%

7571

7589

7603

76078

72034

7204

7506

7315#

1698

7825

78744

7875s

CZR6RCO RKB11-06 USR DEFINED

CZRBRC.P11
$TYPOS

032132

02-DEC-77 11:07

$.5.5M= #axune U
SOFILL

032355

= 043561

73088

434

6899
7309%

164848

45478
76158

MACY11 30(1046)

02-DEC-77

11:59

Gl4

PAGE 177

SEQ 017S

CROSS REFERENCE TRBLE -- USER SYMBOLS

7865

gggs

3232

7313%

697
7323

47658
76778

51328
7805

16524

16554

Se04

5937

7029

7358%

16658

5359
7827

17438

7216

6057
174Ss

72828

6292
17478

73863

6483
17498

73678

6494
1762%

7368

6532

6846

6887

17818

23198

2389

73698

76078

7608

CZR6RCO Rkb11-06 USR DEFINED
02-DEC-?7 11:07
CZR6RC.P11

20
N
NOC

184 (]
16468

ESC
EE¥PR

16468
15108
16468
16468

T
MYTRGS

16588

1703

209

NEWTST

16968

PARMOF
POP

18
16468
4395
16468
4189
1s
1s
16468
Is
18

PUSH
P.DRVR
GDEF
REPORT
R.DRIV
R, QORV
SCOPE
SETPRI

16468

2001
27204
450
262
4328
5885
1783

MACYLl

02-DEC-77
11:59
PRGE 179
CROSS REFERENCE TRBLE -- MRCRO NAMES

30(1046)

SEQ Q0176

7773

2129
2797
4859
2739
4440

3030
S303
300S
so21

3193
577
309
5253

2434

7536
7867

7869

2381
2893

2441
292s

S0s4
233
99

5065
S347
6026

7869

7871

3486

7753

3416

3939

3978

4240

3914

3922

391

7801

7696

5986

16468

TYPOCY

16468

7467

SOECBN
SCCTBN

18
ls

708S
7029

SSET

78558

7864

.EQURT

1510

1536

7865

7866

7867

7871

7872

7873

7874

7875

7’872

7873

“874

7875

7876

CZRBERCO RKbE11-/06 USR DEF INED

CZR6RC.PL1L
HERDE
SETUP
. SWRHI
.SWRLO
SCATC
SCHMTR
$0B82D
SPOWE
.SRAND

. SRE

02-DEC-77 11:07

15108
15108
15108
15108
15108
15108
15108
15108
15108

15108

SSAVE
SSIZE
STRARP
STYPD
STYPE
STYPO

15108
15108
15108
15108
15108
15108

ABS.

043Sekl

ERRORS DETECTED:

1S11
2383
1522
1532+
1646
1659
7616
7789
7723

1533

MACY1l 30(1046)

02-DEC-77

11:59

Il4

PAGE 180

SEQ 0177

CROSS REFERENCE TRBLE -- MACRO NAMES

1834

7360

7678
7759
7832
7216
7146
7283
000
O

RMO3: CZRERC, RMO3: CZR6RC. SEQ/SOL /CRF /NL : TOC/DOC/EQ: GNEWSW=RMO3: DRIV10,RMO3: CZRGRC.P11

RUN-TIME: 30 23 1 SECONDS

RUN-TIME RATIO: 604.55=10.8
CORE USED:
42K
(83 PAGES)

DOCUMENT PAGES:
EOF 1CZRBRCSEQ

177
ooo10000

780223

POP10 411