Digital PDFs

MAINDEC-08-DHRKD-D-D

December 1977

40 pages

Original

1.3MB

Document:	RK8E/RK8L Disk Formatter Program http://dev.decpdf.site/cover/11369/cover.jpg
Order Number:	MAINDEC-08-DHRKD-D-D
Revision:
Pages:	40
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-08-dhrkd/maindec-08-dhrkd-d-d.pdf

OCR Text

IDENTI'ICATION
Ono’s-.OI-noct

MAINDEC-fla-OHRKD-DOD

PRODUCT CODES
PRODUCT
DATE

THE

NAME!

RELEASED!

RKBEIRKGL

DISK

FEBRUARY,

1977

MAINTAINERI

DIAGNOOTIC

AUTHOR!

JOHN

INFORMATION

THIS

FORMATTER

ENGINEERING

VNOHEL/HILLIAM

DOCUMENT

PROGRAM

SUBJECT

SHOULD NOT BE CONSTRUED A3 A CUMMITMENT
DIGITAL
EQUIPMENT CORPORATION ASSUMES
THAT MAY APPEAR IN THIa
DOCUMENT.

8V
NO

HEAVEV

CHANGE

WITHOUT NOTICE AND
EUUIPMENT CORPORATION.
RESPONSIBILITY FOR ANY ERRORS

DIGITAL

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND
MAY ONLY BE USED ON COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
RELIABILITY OF

ITS

SOFIHARE

(CI

19729

EQUIPMENT

1916:1971

THAT

DIGITAL

NOT

FOR

THE

SUPPLIED BY

EQUIPMENT

USE

DIGITAL-

CORPORATION

TAuLE

CONTENTS

ABSTRACT

RESTRICTIONS
HARDHARE

PROGRAM STORAGE

PRELIMINARY PROGRAMS
OPERATOR

AND/OR PROGRAM

ACTION

STANDARD TEST PROCEDURE
RKOSJ

DRIVE

CARTRIDGE

RKOSF

DRIVE

SETUP

MOUNTING

PROCEDURE

FORMAT PROGRAM
SWITCH REGISTER SETTINGS
ERRORS
PROGRAM
APT-8

DISCRIPTIUN

HOOKS

PROGRAM LISTING

CONSOLE PACKAGE ADDENDUM

PROCEDURE

ABSTRACT
pun-O'CC

RKOE/RKBL DISK FORMATTER PNOGRAM IS DESIGNED TO WRITE
CHECK THE FORMAT OF THE COMPLETE DISK CARTRIDGE-

THE
AND

ONLY STANDARD OEC SURFACE FORMAT IS AVAILABLE (lut. SECTORS NUMBERED IN THE NORMAL NUMERICAL SEQUENCE U: 1a 2; 5:
4' 5' ETC.J.

RESTRICTIONS
RKSL CONTROL,NHICH CAN CONTROL UP TO 8 ORIVESpWILL NOT
WITH THE DNSE BUS ADAPTER. THE REASON FOR THIS STATEMENT
IS THAT THE RKSL CONTROL USES AOTD FOR EXTENDED DRIVES 4'7
WHICH IS NOT AVAILABLE ON THE waE.

THE
RUN

HARDWARE
'I...-.-

PDP-B/EpSIFyBIM OR d/A COMPUTER
OTHER FAMILY OF 8 COMPATIBLE COMPUTER NITH NECESSARY
ONCE BUS ADAPTER FOR RKBE CONTROL ONLY.

LEAST

NEEDED

ASR'S!

FOR

READ/WRITE MEMORY. AT LEAST SK OF
OPERATION OF THE CONSOLE PACKAGE.

TELETYPE OR

MEMORY

EQUIVALENT

D. RKBE DISK CONTROL 0K RKSL DISK CONTROL
E. RKOSJ OR RKOSF DISK DRIVEISJ
THE

NOTE:

UNITS.
MUST

2.2

RKOSP'S DRIVE :5 CONSIDERED AS Two SEPARATE
ANSWERING ALL QUESTIONS EACH SERPARATE UNIT
SPECIFIED! szm7p DSKIT. DSK27o ETC.

WHEN

PROGRAM STORAGE
I..---....'--—U

THE

PROGRAM UTILIZES ON OCCUPIES
THE CURRENT FIELD.

LOCATIONS

6660

4177 OF

PRELIMINARY PROGRAMS
Cup-Coco...-..--ouuc

THE FOLLOWING PROGRAMS SHOULD
FAILS TO OPERATE CORRECTLYI
AND

RUN

THE

FORMATTEH

ALL

BASIC

FOR
AND

THE RKaE
THE RKGE

CONTROLpRUN THE RKBE UISKLESS CONTROL
DRIVE CONTROL TEST,

FOR

THE RKSL

CONTROLnRUN

OPERATOR

EXTENDED

AND/OR

PROGRAM

MEMORY

THE

PROGRAM

DIAGNOSTICS

RKBL

ACTION

gnu-g-D-uouunuuounuunoun-cc-..

INSTRUCTION

TEST.

1:31

0.1

STANDARD TEST PROCEDURE
.O...-V....--.'-.------

A. LOAD THE PROGRAM INTU ANY RIM MEMORY BANK USING THE
STANDARD BINARY LOADER TECHNIQUE.

B. TO RUN THE FORMATTEN PROGRAM,
SECTION 4.4.

4.2

RKOSJ

FOLLOW THE PROCEDURE

DRIVE CARTRIDGE MOUNTING PROCEDURE

.0--.-Q...--.-GIIIU.fi-IOI-Iulo-n-IIOICU

THE FOLLOWING I: THE CORRECT CARTRIDGE NOUNTINO PROCEDURE
FOR THE RKOSJ DISK DRIVE. ANY DEVIATION ENCOUNTERED uUNINO
THIS PROCEDURE NILL BE CONsIOENEO AN ERROR CONDITION.

SET

TURN

szTcN LABELED
ac

PONER

"RUN/LOAD“

THE

"LOAD"

PusITION.

ON.

c. VERIFY THAT LIGHT LABELED “PNR“ 13 ON.
O.

NAIT FOR LIGHT LABELED

VEPIFY

I'NT".

"LOAD”

THAT LIGHTS LABELED
"no" ARE OFF.

can:

"ROY",

"ON

ON.
CYL",

”FAULT”,

"RUN"

POSITION.

AND

F. OPEN ACCESS DOOMG.

INSERT CARTRIDGE.

CLOSE ACCESS DOOR-

I. SET SNITCH LABELED “RUN/LOAD"

THE

WAIT FOR LIGHTS LABELED "ROY" AND

TOGGLE SWITCH LABELED "WT PHOT" AND VERIFY
LABELED "NT PRO?" GOES ON AND OFF.

TOOGLE sNITcH LABELEO
GOES arr,

VERIFY THAT LIGHTS
ARE OFF.

RKOSF DRIVE SETUP

"HT

LABELED

PHDT"

'ON

CYL"

COME

THAT

THE LIGHT

UNTIL LIGHT LABELED

"FAULT",

“WT",

"RD".

ON.

AND

"WT

"LOAD"

PROCEDURE

Q...C.IUD-OCICIIOOQDOIIIIODII"CF-I-IQ.

THE FOLLOWING IS THE CORRECT DNIVE SETUP PROCEDURE
FOR THE RKBSF DISK DRIVE. ANY UEVIATION ENCOUNTERED DURING
THIS PROCEDURE WILL BE CONSIDENED AN ERROR CONDITION.

SET

TURN

SNITCH LABELED
AC

POWER

0N.

“RUN/LOAD”

THE

"LOAD"

PROT"

POSITION.

VERIFY

THAT LIGHT

WAIT FOR LIGHT LABELED
VERIFY

"WT",
SET

"PNH"

LABELED

THAT LIGHTS
AND “ND" ARE

"LOAD"

LABELEO

ON.

COME

”ROY“,

ON.

“ON

CYL":

SNITCH LABELED

"RUN/LOAD"

WAIT FOR LIGHTS LABELED “ROY"

THE

AND

"RUN" POSITION.

"ON

CYL“

TOGGLE SWITCH LABELED "NT PHOT" AND VERIFY
LABELED “HT PROT" GOES ON AND OFF.

1. TOGGLE SWITCH LABELCD
GOES arr.
Jo

VERIFY THAT
ARE OFF.

FORMAT

MAKE

"NT

PHOT"

"NT",

COME

THAT

UNTIL LIGHT

LIGHTS LABELED "FAULT“,

THE

LADELEO

ON.
LIGHT

"NT

PROT"

’

"ND“:

AND

"LOAD"

PROGRAM

READY

ALL

DRIVES

FOR RKDSJ DRIVES
REFER TO SECTION

USE

FOR RKOSF DRIVES
REFER TO SECTION

USE

SET

"FAULT“:

OFF.

FORMATTED!

THE RKUS DRIVE MOUNTING PROCEDURE

4.2.
THE

RKOS

SETUP

DRIVE

ALL

SWITCH LABELED "RUN/LOAD" TO THE
DRIVES NOT BEING FORMATTED.

SET

THE

SWITCH

UZDD

SET

THE

SWITCH

"DOD.

IF IT IS DESIRED TO CHANGE THE
THE PROGRAM (THEY ARE NORMALLY
GIT I! TO A "1".
IF CHANGE
BITS 3 TO

PROCEDURE

4.5.

AND

IOT

"LOAD"

POSITION ON

PRESS LOAD

DEVICE
SET

XTGX),

IOT CODES WAS SELCCTED, SET
6 TO THE DESIRED IOT DEVICE

ADDRESS-

CODES

SWITCH

WITHIN
REGISTER

SNITCH REGISTER
CODE.

Pness KEY START (KEY START 15 KEY CLEAR AND THEN KEY
CONTINUE ON A POPE/E, PDPB/P. OR POPE/M). IF SELECTING A
PDPB/A (PRESS INIT AND THEN PRESS RUN). IF SELECTED:
ALL IOT DEVICE CODES WITHIN THE PROGRAM wILL BE CHANGED.
THE TTY WILL TYPE THE FOLLOWING PROGRAM NAME. INFORMATION,
AND QUESTION.
RKBE/RKOL

DISK

FORMATTIR

PROGRAM

FOR ALL QUESTIONS
FORMAT DISK OT

H-

DISK

FOR

YES

THE OPERATOR DESIRES TO FORMAT DISK I,
N FOR NO, ON THE TTY KEYBOARD.
QUESTION WILL THEN DE TYPED ON THE TTY.

TYPE

THE

DISK

THE OPERATOR OESIRES TO FORMAT DISK 2:
N FOR NO, ON THE TTY KEYBOARD.
QUESTION WILL THEN BE TYPEO ON THE TTY-

THE OPERATOR DESIRES TO FORMAT DISK 3,
N FOR NO, ON THE TTY KEYBOARD.
QUESTION WILL THEN DE TYPEO ON THE TTY,
IF

DISK

IF THE OPERATOR DESIRES TO FORMAT DISK A,
N FOR NO,
ON THE TTY KEYBOARD.
QUESTION WILL THEN BE TYPED ON THE TTY.
DISK

YES,

TYPE Y FOR YES,
THE FOLLOWING

TYPE v run YES,
THE FOLLOWING

“7

OTHERWISE,

FORMAT

FOR

OTHERWISE,

FORMAT

FOLLOWING

DISK

NO.

TYPE Y FOR YES,
THE FOLLOWING

FORMAT

FOR

OTHERWISE,

OTHERWISE.

FORMAT

IF THE OPERATOR DESIRES TO FORMAT DISK O,
OTHERWISE, N FOR NO, ON THE TTY KEYBOARD.
QUESTION WILL THEN BE TYPEO ON THE TTY.
FORMAT

ANSWER

TYPE
THE

Y FOR YES,
FOLLOWING

TYPE

IF THE OPERATOR DESIRES TO FORMAT DISK 5,

FOR

YES,

OTHERWISE, N FOR NO, ON THE TTY KEYBOARD. THE FOLLOWING
OUESTION WILL THEN SE TYFED ON THE TTY.
FORMAT

N-

DISK

IF THE OPERATOR OESIRES TO FORMAT
FOR NO, ON THE
WILL THEN SE TYPED

OTHERWISE,
QUESTION

FORMAT

DISK

DISK 6,
TTY KEYBOARD.
ON THE TTY.

TYPE v ion was,
THE FOLLOWING

THE OPERATOR DESIRES TO FORMAT DISK T,
N FOR NO,
ON THE TTY KEYBOARD,
QUESTION WILL THEN SE TYPED ON THE TTY.
IF

TYPE

OTHERWISE,

THE

ARE

YOU

SURE?

P. TYPING N FOR NO WILL RESULT IN REPEATING
QUESTIONS. TYPING Y FOR YES: WILL RESULT
OF

1 FOR vgs,
FOLLOWING

THE OPERATION

0- PROGRAM EXECUTION

ALL THE PREVIOUS
IN EXECUTION

SELECTED.

IS APROX. SO SECONDS PER OISK DRIVE.
AFTER ALL OISKS SELECTED HAVE BEEN FORMATTED AND CHECKED
THE TTY WILL TYRE THE FOLLOWING PASS COMPLETE MESSAGE AND

QUESTION,
RKBE/RKBL DISK FORMATTER PASS
FORMAT SAME DISKIS) AGAIN?

OPERATOR DESIRES TO KEPEAT THE OPERATION SELECTED,
FOR YES. TYPING N FOR NO WILL RESULT IN A REPEAT
INITIAL START'UP QUESTIONS.

THE

TYPE Y
OF THE

SWITCH

'5.

COMPLETE

NOT

CHANGE

SWRIIIO

SWRIIOI

CHANGE

suns-a

DESIRED

IOT

LOT

DEVICE

IOT

CODES

DEVICE

CODE,

ERRORS
QC...-

wHEN A RECOVERABLE ERROR OCCURS THE TTY
AN "ERROR HEADER" AND ERROR INFORMATION
TO THE FAILURE.

POSSIBLE

ERROR

ARE

HEADERS

DISK DATA ERROR
READ STATUS ERROR
WRITE STATUS ERROR
RECALIBRATE STATUS

WILL PRINT
PERTAINING

POLLOHS.

ERROR

AFTER THE ERROR HEADER MENTIONED
WILL PRINT SOME OF THE FOLLOWING
TAINING TO THE FAILURE.

ABOVE
ERROR

TYPED THE TT?
INFORMATION PER.

‘

PC:

PROGRAM LOCATION

GO]

EXPECTED

INFORMATION

EX:

EXTENDED

DRIVE

CMI

SOFTWARE

COMMAND

STI

CONTENTS

STATUS

DAI

SOFTWARE

CYLINDER,

SURFACE;

CA:

INITIAL

CURRENT

ADDRESS

ADI

ADDRESS

BREAK

OT!

DATA

FOUND

FAILURE

HIT

DATA

DURING

DATA

AND

SECTOR

BREAK

AFTER THE ERROR INFORMATION IS TYPED THE TTV WILL TYPE ONE
THE FOLLOWING QUESTIONS ASKING THE ERROR RECOVERY DESIRED.

THE

ERROR

WAS

KECALIBRATE

ERROR

THE

FOLLOWING UUESTION

HILL BE

TYPED.

TRY

TYPING

TO
Y

RECALIBHATE SAH‘ DISK

AGAIN?

HILL RESULT IN
ON THE DISK IN
PROGRESSING 'D THE

ERROR.

FOR

REPEAT OF THE R!TYPING N FUR NO
NEXT AVAILABLE DISK-

YES

CALISRATE SEQUENCE
WILL RESULT

THE

TYPED.

ERROR

TRY

HAS

FORMAT

NRITE

ERHOR

SAME

CYLINDER

THE

FOLLOWING QUESTION

WILL

AGAIN?

TYPING Y FOR YES WILL RESUL' IN A REPEAT OF THE NRITE
SEQUENCE ON THE CURRENT CYLINDER, TYPING N FOR NO WILL
WILL IN PROGRESSING TO THE NEXT SEOUENCIAL CYLINDCR-

IF THE ERROR HAS A HEAD OR CHECK
QUESTION HILL BE TYPED.
TRY

TYPING A
READ AND
A

FOR

CHECK

SAME

CYLINDER

ERROR

THE

FOLLOWINE

AGAIN?

Y FOR YES WILL RESULT IN A REPEAT IN THE
CHhCK SEQUENCE ON THE CURRENT CYLINDER. TYPING
NO HILL RESULT IN PROGRESSING TO THE NEXT SEOULNCIAL

CYLINDER.

PROGRAM

DISCRIFTION

I....-.---.---..-'.

THE FORMATTING IS ACTUALLY A FUNCTION OF THE RKSE 0R RKBL
CONTROL AND DRIVE LOGIC. THE PROGRAM SIMPLY WRITES DATA ON
EVERY SecTUR IN THE “WRITE ALL" MODE. THEN CHECKS TH:
DATA IN SUCH A WAY IN THE "READ DATA" MODE As TO
VERIFY THAT THE HEADER WORDS WRITTEN 0N EVERY SECTOR ARE
ALSO CORRECT. THE "READ DATA NUDE“ AUTOMATICALLY PERrURMS
A cHEcK HEADER FUNCTION.

THE FIRST THO WORDS OF EVERY SECTOR

ARE

SET

ADDRESStlgE. COMMAND REGIsTER BITS 9'11
SURFACE, AND SECTOR BITS 0-11, RESPECTIVELY)

DISK

THE

AND

ABSOLUTE
CYLINDER;

AND

THE

RtMAINDtR

OF THE DATA AREA TO ALL ZEROS WHEN THE DATA IS WRITTCN. ONLY
THE FIRST THO WORDS OF EVERY SECTOR(I.E, THE ADDRESSING
INFORMATION) ARE CHECKED HHEN DATA IS READ IN THE "HLAD
DATA" MODE.
HOOKS

ARTtB

1.1

DESCRIPTION
.I-O’UCCIO‘

TWO INTERFACES HAVE BELN PROVIDED WHICH
TO RUN UNDER THE STANDARD APT-5 SYSTEM.

ALLOW THIS DIAGNOSTIC
THESE

INTERFACES

ARE:

TIMING

2. ERROR
EACH

1.2

INTERFACE
INTERFACE

WILL BE

EXPLAINED

DETAIL.

SETUP

ONLY
NEED

HARDWARE

CONFIGURATION

WOOD

ADDRESS

22:

ESTABLISHED. THE FOLLOWING INFORMATION MUST
INDICATED!
1. SINGLE OR MULTIPLE DRIVE TESTING.
2. DRIVE OR DRIVES TO BE TESTEU.
3. DIAGNOSTIC RUNNING UNDER ARI-8.
BE

OF ADDRESS 22 MUST BE SET
IF SINGLE DRIVE TESTING BIT 5
TO A ONE (1) WITH BITS 6-11 CONTAINING THE DRIVE TO BE TESTED.
IF MULTIPLE DRIVES ARE TO BE DUNE BIT 5 MUST BE SET TO A
IERO (D) AND BIT e-II CONTAINING THE HIGHEST NUMBER DRIVE
TO BE TESTED. HHEN MULTIPLE DRIVE TESTING ONLY A SPECIFIC
NUMBER OF DRIVES CAN BE INDICATED. THE PROGRAM ASSUMES THE DRIVES
ARE TO a: DONE EEGINNING WITH DRIVE ZERO (D) AND FINISHING
WITH THE HIGHEST DRIVE INDICATED. IF MULTIPLE DRIVES OTHER
THAN CONSECUTIVELY NUMUERED DRIVES BEGINNING NITH DRIVE ZERO (a)
ARE TO BE DONE; THEY MUST 6E DUNE As SINGLE DRIVES AND

TESTED

INDEPENDENTLY.

THE PROGRAM ALLOWS ONLY DRIVES
TO BE TESTED AT THIS TIME.

BIT ZERO OF
THAT

THE

ZERO

(O)

ADDRESS 22 MUST BE SET TO A
WILL RUN UNDER APT-8.

THROUGH

ONE

SEVEN

(1)

INDICATE

PROGRAM

IT SHOULD BE NOTED AT THIS TIME THAT WHILE RUNNING
UNDER APT-8 THE HARDWARE SWITCH REGISTER IS INOPERATIVE.
ONLY THE HALT AND SINGLE STEP aWITCH WILL EFFECT THE PROGRAM
RUN.

NOTE!

APT-S

7.3.1.

INTERFACES

TIMING

APT-B IS NOTIFIED OF PROGRAM nun BETWEEN .2 sec
AND am sec ON A 1.a mcnosecouo nznoav CYCLE. nus um. ALLOW
THE DIAGNOSTIC TO RUN WITHOUT causmc AN APT-S unaoux ERROR
IF THE DIAGNOSTIC IS TU 82 RUN on: THE sLowEn Mus "Emmy.

7.3.2.

ERRORS
...-.-

REPORTED TO APT-B
CAUSE A PKOGRAMMED HALT CAUSE A TIMEOUT
ERROR. IF A PROGRAMMED HALT SHOULD OCCUR, THE ERROR PC WILL
APPEAR IN THE AC ON THE DEVICE UNDER TEST. PROGRAMMEU HALTS
ARE EXPLAINEO EARLIER IN THIS DOCUMENT-

ONLY THE ERROR
SYSTEM. ERRORS

18
WHICH

PROGRAM LISTING

CONSOLE PACKAGE ADDENDUM
0"...'-.-----.---I-C..—

9.1

DESCRIPTION
..--'-.--..

THE CONSOLE PACKAGE HAS BEEN ADDED TO THIS DIAGNOSTIC TO ALLOW
THE PROGRAM TO RUN NITH NO HARDWARE SWITCH REGISTER AND TO
HAVE COMMUNICATIONS WITH THE DIAGNOSTIC VIA A TERMINAL. TH:
DIAGNOSTIC CAN BE RUN 1N THO MUDES WITH THE CONSOLE
RUNNING WITH THE CONSOLE PACKAGE ACTIVE
1)
PACKAGE .
THIS ALLOWS THE OPERATOR CONTROL OF THE DIAGNOSTIC THROUGH
THE TERMINAL, THE DIAGNOSTIC HILL ASK FOR THE VALUE OF THE PSEUDO
SWITCH REGISTEH,BEFORE CONTINUING HITH EXECUTION OF THE
DIAGNOSTIC. ALL ERRORS AND PA53 COMPLETES WILL BE PRINTED AT
THE TERMINAL. NO HALTS HILL 8E EXECUTED.
2) CONSOLE PACKAGE NOT ACTIVE-THIS WILL RESULT IN THE
NORMAL STANDALONE OPERATION OF THE PROGRAM AS DISCRIUEU IN
SECTIONS 1 THROUGH 5 OF THIS DUCUMENT.
-

9.2

RESTRICTIONS
.C..'..-Q.-.

RUNNING THE CONSOLE PACKAGE
SWITCH REGISTER BE USED.

I)
PSEUOO

REQUIRES

THAT

THE

ONCE RUNNING THE CONSOLE PACKAGE NONACTIVE AND
DESIRE TO RUN IT ACTIVE. ONE MUST RELOAD TNE DIAGNOSTIC
AND INITIALIZE FOR A ACTIVE CONSOLE PACKAGE.

NOW

INITIALIZATION

FOR

ACTIVE

CONSOLE PACKAGE

I.--9-.-..QIUQOQ-00-O-IIDIGI

SET

1.)

BITOIO

INDICATE

LOCATION 2d BITJII

INDICATE CONSOLE PACKAGE

LOCATION 21

USE

PSEUOO

SWITCH

2.)
FOR

NON

ACTIVE.

ACTIVE CONSOLE PACKAGE

IUD-UI.CQ-'.------.----..----..-

1.]
'

SET LOCATION 21 BITOII TO INDICATE NOT TO USE PSEUDO
SWITCH REGISTER, BUT TU USE HARONARE SWITCHES.

2.)

SET LOCATION 2d BITIIO
ACTIVE-

CONTROL

CHARACTERS

INDICATE

CONSOLE PACKAGE NUT

CONTROL CHARACTERS ARE USED TO GIVE THE OPERATOR
ABILITY TO PERFORM THE FOLLOWING FUNCTIONS.
RESPOND TO THE CONTROL
NOTE: THE PROGRAM WILL
CHARACTER IN FIVE (5) SECONDS OR LESS.
CONTROL

THIS WILL START THE
IN LOCATION TbUO.

CONTROL

LOADER

THAT

.U-C....-.

CONTROL

THE

THIS WILL
REASK THE

RESTART THE PROGRAM AND
SWITCH REGISTER QUESTION
DESCRIBED IN SECTION 9.6.

E
THIS WILL CONTINUE THE PROGRAM FROM
AN ERROR IF ALLOWED BY THE DIAGNOSTIC
OR FROM A WAITING STATEMENT.

CONTROL L
THIS

WILL SWITCH THE TERMINAL MESSAGES
THE DISPLAY TO A LINE PRINTER.
TO RESTORE THE MESSAGES ON THE TERMINAL
CONTROL L MUST BE TYPED AGAIN.IF
NO PRINTER IS AVAILBLE AND CONTROL L
IS TYPED THE RESULT WILL BE THAT THE
CONSOLE PACKAG‘ WILL WAIT FOR CONTROL O
THE CONTROL L wILL OUTPUT TO THE LINE
PRINTER AND THE PROGRAM WILL
ATTEMPT TO CONTINUE AS IF A CONTROL E
WAS TYPED IN.
FROM

CONTROL D
THIS WILL ALLOW THE ABILITY TO CHANGE
THE SWITCH REGISTER DURING PROGRAM
OPERATION. TYPING THIS CHARACTER WILL RESULT
IN AN INTERIGAIION OF THE SWITCH REGISTER
QUESTION AS DESCRIBED IN SECTION 9.6-

CONTROL

.C-OCCUCC

CONTROL

THIS WILL STOP PROGRAM EXECUTION ANO NAIT IN A
LOOP FOR A commua. THE ONLY my TO CONTINUE
WILL er. 1'0 TYPE A CONTROL 0, R on c .
THIS Is A NONPHINTING CHARACTER.

THIS
5 IS

TO CONTINUE

TVPED.THI5

A
A

PROGRAM AFTER A CONTROL
NONPRINTING CHARACTER.

WhITING MESSAGE
o'clwctucucuuuu

THE
TO

WAITING MESSAGE IS USED TO ALLOW THE OPERATOR
A DECISION AS TO WHAT CONTROL CHARACTER

MAKE
.

TIME

To TYPE. THIS MESSAGE MAY APPEAR AT THE END
OF PASS MESSAGE IF THE HALT ON PASS SIT IS SETaTHE CONTROL
CHARACTERS HAY NON BE USED TO PERFORM THE NEEDED FUNCTION.
THE HAITING MESSAGE MAY BE PRINTED AFTER A ERROR MESSAGE
IF THE HALT ON ERROR BIT IS SE|.HERE AGAIN THE CONTROL
CHARACTERS MAY BE USED.
THE WAITING MESSAGE ”AV BE PRINTED IF OPERATOR INTERVENTION
IS

9.6

REQUIRED.

SWITCH REGISTER MESSAGE

THIS MESSAGE IS USED TO SETUP

THE PSEUDD SWITCH REGISTER
BEFORE PROGRAM EXECUTION TAKES PLACE-THE SWITCH REGISTER
IS SETUP WHEN THE FOURTH CHARACTER IS ENTERED OR A CARRIAGE
RETURN IS TYPEO
itititiiltlitittiIt.RARita!Iii.*tiititfititttittittiiitttlitt

SRROOOO 4000

UNDER SCORING

9.7

END OF

INDICATES OPERATOR RESPONSE

PASS

-.----0----

THE NORMAL

4.4

PROGRAM

was:

COMPLETE

DESCRIBED

secwrou

USED.

ERRORS
..-'..

THE STANDARD ERROR REPORTS AS DESCRIBED
OF THIS DOCUMENT WILL BE USED.

SECTION

SWITCH REGISTER SETTINGS
-...'..-..C-.--..-'-.-.-

THE
OF

9.10

STANDARD SWITCH SETTINGS A3 DESCRIBED
THIS DOCUMENT HILL 5E USED.

SECTION

4.5

PARAMETER CONTROL WORDS
I....-Q-U~--—---.---.--

THE CONSOLE PACKAGE USES THE LOCATIONS 20 21
FOLLOWING PURPOSES-

LOCATION 20
PSEUDO SWITCH REGISTER

FOR

THE

LOCATION 21
HARDWARE IDENTIFIER

LOCATION 22
HARDWARE

IDENTIFIER

LOCATION @021
BIT

OCTAL

VALUE

FUNCTION

WHEN

FUNCTION NHEN

-..--.--...-...

PSEUDO SWITCHES

USE

HARDWARE

HAS

OPTION

HA3

OPTION

SIMULATOR

HAS

SIMULATOR

HAS

OPTION

XOR

“OOO

USE

ZOOD

OPTION

102%

OPTION

009

ZOO

OPTION

160

NOT

“O

NOT

POPS—E

7'11

MEMORY

TYPE

SIZE

POPS-E

CPU

SWITCHES

SIHULATON
SIMULATOR

XOR
TYPE

CPU

EX.

SEKISI

LOCATION OOZZ
BIT

OCTAL VALUE

FUNCTION

0..

cu...--..--

.—--..---....--

.'-...--.I-----

40GB

NOT

ACTBA

ACT

8‘

LINE

2060

NOT

ACT

LINE

IOOO

NOT

YET

“DO

OEACTIVE
PACKAGE

NNEN

FUNCTION WHEN

LINE
LINE

DEFINED
CONSOLE

ACTIVE CONSOLE
PACKAGE

LOCATION CHANGES
..-..-,--..----.

FOLLOWING LOCATIONS CAN BE CHANGED TO MEET
NEED FOR MODIFICATION OF THE DIAGNOSTIC.
THE

3637

IS THE LOCATION SET FOR
FILLER CHARACTERS AFTER

THE

THE NUMBER
A CRLF SET

SPECIFIC

OF
TO

FOUR

(4)

HD-II'OHRKD'D

PROGNAHI

lRKBE/RKBL DISK FORMATTER

PAL10

22-FEB-77

V1020

16113

PACE

PAGEI

0010

15:13

PAGE

1.;

PAGE!

0015

IRKBE/KKUL 0100 FORHAYTER PROGRAM! MU-UI-DHRKDnD
IMAlNDKC-00-DHNKD-D-D
/
I

6700

DLBC'6100

[LOAD SiCTOR COUNYIR

6701
6702
6703
6700
6705

DSKPI6701

ISKXP

DCLRI6I02
DLAGI6I03

ICLEAR

TRANSFER DONE UR
015K CONTROL LOGIC
ADDRESS AND GO
CURRENT ADDRESS
UN

ILDAU

DLCAI6I00

ILoAu

6706

BRET-6705
DLDCI6I06

6707

OMAN-6107

IREAD $TATU3 REGISYER
ILDAD COMMAND REGISTER
ILuAu MAINTENANCE

0006

LDSCIJHS

ERROR

XXLDSC

0030

IOTCHNIJHS

0031

LODYRKIJMI
REDDSKIJHS

1
1
X

XCHANG

0030

RECALIJMS 1
RECEIVIJMI X

0035

KILBUFIJMS

0037

ERROR-J03

XRESTR
XNAIT
XKLBUF
IEHRO

0000

RDSTATIJHD

0000

LDADDIJHS

0001

DSKSKFIJHS

0002
0003
0005

LDCMDIJMS 1
LDCURIJMS 1
CLRALLIJMS 1

4007

PRNTER-JMS

0050

OCTELIJH! I
THUCTIJMS I
Tvrz-Jns x
CRLFIJH! I

0032
0033

0051
0036
0052
0020

0025
0021

1
1

X0087

XSDKP
XLDCM
XLUCA

1LDAD

YICKIJMS

0000

I
60

xpuu

XTDCT
XPHINT

ICILF
XAPTa
XTIHE

KAERRo-Jns

ICLDR
XFHDCT

APTBAIJMS I
TIME-J"! 1

0026

XHRYRK
XRDYRK

trick
I

XAERRD

0000
0001
0002
0003

300

0300
5001

0002

0002
0003
0010

IREV

5001
0003
I
~10
/

0010

0000

0011

0000

Auvota.

AUTOIl:

0020

IRKBE/RKDL

:20
I

0020

0000

IPSEUDD

awacn

0021

0000

ICONTRUL

IORD

0022

0000

IcaNTRuL 0000

DISK

FORMATTER

0023

0000

0020

1125

0025

1557

0026

1600
1530
1063
0600

0027
0030
0031
0032
0033
0030
0035
0036
0037
0000

0001
0002
0003
0000
0005

0006

1000
1000
1327
0752
1312
0036
0671
0700

0720
0700

0711
0705
0733

PROGNAHI

nouns-nunKo-o

0000

xnvva,
XTIHE,

AP75
KTIHE

ITICK,

AERRD
KTXCK

XCNANG'

CKANG

XNRTRK,
XRDTRK,
XRISTR,
XWAIT.

WRTYRK

xAano.

XKLBUF,

XPRINTu
XERRD,
XRUST:
XSDKP,
XLDC":
XLDCA;
XLDAD,
XCLDR,
XXLDSC:

HEDTRK
REITDR

HAIT
KLBUF
PRINT
[RFC
0031

SDKP
LDC"
LDCA
LOAD

CLDR
XLDSC

1252
1227
1200
1215

XPRN,
XFROCT,

PRN
FRDCT

XTDCT:
XCNLF.

TDCT

2201

XLUTRK:

2200
2200

XHITRK;
BGNBUF,

LOTRK
HIYRK

0000
0000
man:

AMUUNT:

0057
0060

SNITCH:

K0003,

nae:

0061

name
0007

0065
0066
0067

0277

0070

0000
7735
7760

«a.
K0007:
K0000,
"313:
K0277,
K0200:
K0260,
K0000,
K7735,
K7760.

0062
0063
0060

0007

0050

0051
0052
0053
0050
0055

0056

0071

0072
0073
0070
0075

0000
7065

0200
0060

0000
0037

0076

6201
7714

0077

7770

0100
0101
0102
0103

0000
0000

0000

K0000,
00037.
KCDF,

H0,
M10.

unxaur

0007

0000

'313
0277
0100
0260
0000

7735
7760
000
0037

GDP
.a

I10

DRIVNO: 0
0
CHAR,
0
LONAD,
HIGHADI

0105

0000
0000
0000

0106

0000

0107
0110

0000
0000

0111

0000

300N717
STCNTI;
ITCNT2:
STCNT3,

0100

UPDNE

TRKCNI,
DSKCNT:

0
0
0
0

0
0

PAL10

vxozA

IRESERVID

aa-rza-11

IRKOE/RIIL DISK PORHATTER PROGRARI HD-IO'DHRKD-D
0112
0113
0110
0115
0110

0000

0117
0130
0131
0132
0123
0120
0135
0136
0117

0000
0000
0000
0000
0000
0000
0000

0000
0000

TCNTRI:
TCNTIB:
TCNTRS:
TCNTROI
TCNTR‘U

PALII

aR-PEB-T7

v10zA

1011:

PAGE

1-:

PAGE:

0010

1011:

PAGE

1-:

PAGE!

0017

0
0
0
0
I

0130

0000

0203
0000

0131
013!

0000

0133
0130
0135
01:5
0131
0100

1503
0000

1116

GDREGE:

EXIITp
CHREGA
DTREG,
DAREE.
CARES,
ADREE,
DTREG,

0
0
0
0

DGNTDT. IRMDDK
HOHEHA, 0
DATCNTA 0
CLIENT: '1
I

0101
0142
3103

I140
010!
0100
9101
0150
0151
0:52

0153
0150
0155
0150
0151

0000

0000
0100

0000
0000

0000
0000
0000
0000

0000
0000

0151
0000
0000
0000

0000
0000

0000

0160

0000
0000

0161

0000

HUVE
XHUVE,
LDCOED, 0
ENDTST
XEND,
0
SOFT,
ADP011, DsKDA
0
DSKOA,

DSKlA,
DaKaA,

03130.
DSROA,
DSKSA.
0800A,
DSITA,
ADPOTE:
08000,
Dante,
03020.
00130,
Dsnoa.
Danae.
D8K60,
0301s,
PCDDNT.

0
0
a

DSKOB
a
0
0
0
0
0
0
0
0

[USED

ONLV

IMAKE

HDHEDF

[MAKE

DF01F

APT

0200

n200

06",

0202

6220
3130
1133

0303
0200

1015
3005

06A

0205

1002

HLT

0200

0201

RIP
DC!

RCDF
.01

FOR

APT

SVSTEH
III
TERMINAL MESSAGES ARE OKIP
ITO AvuID TIMING PROBLEMS HITN THE svsrzn
APTaA
lTElT
ON

0020

ROHEHA

TAD

TEST

INUH

0206

HOHEMA

TAD

AP1

IRKOE/KKOL 010K FDRHATTER PROGRAHI Ho-ue-DRRKD-D
0207

0111'

0210
0111

0030

JR:
IOTENN
CRLF
CRLF
PRNTER
RE01
CRL'

00s:
0052
0001
2005

0052
0001
3005
1011

0030
1005

M10

DCA
DCA

0TcN11

OUEOI.

0030
1137
1110

CRLF
PRNTER
TAD
TAD
TYPE
TAD
TVPE
TAD

REEEXV
JRP
JHP
101
CLA CLL
DCA I
181

NADDSK:

NOTDSK,

2110

101
JR!

0101
5220

AMOUNT

[PRINT

"FORMAT

018K

ITVPE

015K

ITVPE

NUHBER

IIAIT you
NOTDIK
UUES1

CHARACTER

NOT 1H1:
INETTRER 1::
IND

015K
OR ND

LDCBED
CHA

sTCNTJ
STCNTE

ITCNT1
OAHAEN

IVEa.

RAB

CLEAR DISK P01NTER

POINTER
ICDUNT DISK!
[ASK ABOUT NExT

IUPDATE

0052

DONE.

CRLP

0001

PRNTER

2100

HERO

00:0
5220

RECEIV

"ARE vuu SURE T'
IMEasAGE POINTER 0
IRATT FDR CHARACTER
/ND. START ALL OVER
INEITHER TYPE 1

[PRINT

JR!
JHP

ALLAEN

5230
1130

TAD

LOGGED

100:

CIA
DNA
JHP

DEN

1050
3000

DUNE

IANV

015K:

1N0, OPERATOR ERROR

3130

DEA
IVES: AMOUNT LOCATED
LDCIED
I
lFlRIT RECALIBRATE AND FORMAT 1N RIXTE ALL MODE
[ALL 010! DRIVEB SELECTED 0V OPERATOR,. MAKE THE FIRST
ITRO HDRD! OF EVERY 018K IECTDR EGUAL TO THE
IAOOOLUTE DIOR ADDREIO.

0533
11:0
3056

PRRDDK.

0263

0164
0265
0206

1056

JHI
TAD

01!!!

ADPOT1
DTCNTZ
STCNTl

0030

3511

PDR

K0371

00A

2130
1300

PDRNATTER

STCNTI
suite

TAD

5232

[COUNTER

lHEBlAGE POINTER

3111
5200

suns-D

LOGGED
OTCNTE

HES!

1001

IPRINT "FOR ALL DUEaTIONaInEssAGE POINTER a

TAD

DCA

SAHAGN:

az-rEB-11

IPRINT ”RKIEIRKBL 013K
IHESSAGE 1 POINTER

MEI!

2111
1110

v1AzA

5101:"

[GET sku.
IcHANGE DEVICE

XEDPON

PRNTER

ALLAGN,

3101
3130
3110
4052
0001

PAL10

ART

FDR

anvE

LDCEED

DCA

AHDUNT

TAD

AMOUNT

IHOVE

DIaK

POINTER:

PROGRAR-

[RKOEIRKSL Dian
0261
0270

3105

0271
0272
0273
0270

1150

0275
0276
0277
0300

0301

PRDORAHl

FDRHATTER

DSKCNT

DCA
DCA
TAD
DCA
TAD

3115
3116
1516
1600
5302
2116
2115

MD-“B'UHRXD'D

IcNTRS
1

PAGE!

0018

PAGE

1'5

PAGE:

0019

DIBKS

COUNTERS

FEW

TCNTH5
IFURHAT

FUNHAT

:51
131
JHP
0LT

vcuvns
rcurna
..s

7002

AMOUNT

FUR

1-4

TCNTRO

JHP

NEIFRH.

Icuuurzfl

PAGE

ADPDTZ

31A CLA

5273

1581!

aa-FEu-17

V1021

DISK

THIS

IVES: GO
IND, TRY NEXT

[KHAT

HAPPENEUTITT

IHASK
[MAKE

OUT
DISK

FONHAT:

TAD

TCNTRO

0302

1115

0303
0300
0305

0060

AND

7100
3100

CLL
DCA

DHIVNO

0306

1115
0061
1600

7A0

TCNTRO

AND

0307

0310
0311
0312

K0003
RAL

1066

32A CLA
TAD

K0200

3120

DCA

EXBIT
NENEXl

0310
0315
0316

0033
5335

REGAL
JMF

3102

DCA

3103

0317

1060

0320

3100

DCA
TAD
DCA

0313

ISET

NUMBER

EXTENDED

DRIVE

BIT

LONAD
HXGNAD

IRECALIBRATE THIS DRIVE
[RECALIBRATE NEXT EXISTING
[SETUP ADDRESS POINTER
[SETUP ADDRESS POINTER

N313
TiKCNT

[CUUNTER

RENEX1

ITIMING FOR APT
[OTHERWISE BOTH
IFURMAT A TRACK
ITU NEXT DISK

AMOUNT

FDR

TRACKS

0321
0322

0323
0320
0325
0326
0321
0330

3121
1110
«as:

LDDTRK
JMP

vsaa

CLA CLL

:10:

TAD

LONAD

loss

TAD

K0000

3102

DCA
LONAD
SZL CLA

IUPOATE

151

[TED

131

HIGHAD
TRKCNT

Jnv

quOSK

IDO

161

DSKCNT
NEXFRM

IUPDATE

1630

0332

2:03
axaa
5321
2105

0335
0336

Ych
I0

5335

0331

0333
0330

HRIDSK,

ilNEle

JMP

5276

TD NEXT TRACK
EXTENDED BIT

ISET

[UPDATE

IDU

IF NEEDED.
ARE SKIPPED

TRACK

COUNTER

TRACK
COUNTER

DISK

CHECK ADDRESSING INFORHATION ON THE 015K.
FIRST TND KDRDS OF EVERV SECTOR SHOULD EDUAL
AusaLUYE 013K ADDRESS. ALL ovnzw DATA :3

[ROUTINE
ITnE
IT":
INOT
I

CHECKEDTAD

AHUUNT

DCA
0:1

DOKCNT

7AD
DCA

ADPOTZ

0303

1150
3116

0300

1516

TAD

0337
0300

0301
0302

1056
3105
3115

CNKDSK'

IRKOEIRKSL DISK FODHATTER
0305

1600

PROGRAM!

TCNTRS
TCNTRS

HD-WO'DNRKD-D

SZA

CLA

0306

5353

0301
0350

2116

2115

JHF
151
161

CHWDAT
TCNTR§
TCNTR0

0351
0352

5300
1002

Jun
HLT

0'5

TAD

TCNTRO

AND

K0003

NEXCNK.

[AMOUNT

DISK!

TCNTRH

INFORMATION

ISUFTHARE

22-FEO'17

V102A

[CHECK THIS
ICHECK THIS
[UPDATE FOR

10113

DISK
ONE
NEXT

DIDK

INHAT

HAFPENEDT?77?

[MASK
IHAKE

OUT

0353
0350
0355

1115
0060
7100

0356
0357
0360

3100

DCA

1115
0061

TAD

DRIVNO
TCNTRO

AND

0361

7600

SIA CL‘

0362
0363
0360
0365
0366
0367
0370

0311
0372

0375
0376
0377

CHKDATI

CLL HAL

1066

TAD

3120
0033
5776'

DCA
RECAL

K0200
EXIIT

[SET

IRECALIHRAVE
ITRY NEXT DRIVE

JHP
DCA

RENEXZ

3103
1060

DCA

HIGHAD

TAD

N313

3100
5715’

DCA

TRKCNT

JHP

CHECK

3102

NUNDER

DRIVE

EXTENDED DRIVE

BIT

LONAD

STARTING 018K

[SETUP

/AHOUNT

TRACK:

ADDiESS
DD

moan
m414

3456
cane

PAGE
/

0000
0001
0002
0003
0000

0027
1710

CHECK,

TICK

0032

REDDSK

5210

JNP

7300

CLA CLL

1F NEEDED.
REDUIRED.
[READ AND cnlcn ONE CYLINDER
NENEX2

0006

1102
1063

710
TAD

K0000

0007

3102

DCA

LONAD

0010

7630

SIL CLA

0011
0012

2103
2100

162

0013

5200

0010

2105
5177'

0005

0015

FDR

APT

ISKIPPED

NuT

ITO

013K

LONAD

HIGHAD
TRKCNT
CHECK

IUPDATE T0 NEXT CVLINDER
[TIME TO SET EXTENDED BIT
IVES; BET IT
[UPDATE CYLINDER COUNTER
[CHECK NEXT ONE

161

DSKCNT

[UPDATE DISK COUNTER

J"?

NEICHK

ICNECK

182
RENEX2:

[TIMING

0419
natv
aaaa

cue:
0022
00:3

0424
0025
@426

0421

1022
0070
7650
5220
2161

TAD

AND

K0000

5716'
0052
A001

2021
0052

DNA CLA

ENDTSTI

(TEST

FOR

APT

[ARE NET

JMP

ENDTST

IND. NORMAL RUN

IS!

PCDUNT

[INCNEHENT

FRHDSK

ILUOF

PROGRAM

[PRINT

“PADS

PASS

COUNT

CRLF
FRNTER
TEIENO

CRLF

CDHFLETE'

INKBEIRKBL

DISK

0030
0‘31
0032

PHUGNAMI

FUHMATTEH

"Dina-DNRKD'D

PALIU

22-FEH-77

VIIZA

PRNTER

[PRINT

4434
5115'

MESS
NECEIV
JHP

[WAIT
ILLAGN

5221

JMP

.I!

JMP

FRHDSK

«4:1
2:35

5776'

"TRY

SAME

[NO'

FOR INPUT
ASK AGAIN

[TNT

SAME

18113

PAGE

1-6

PAGE!

0020

PAGE

1-7

PAGE:

0021

SEQUENCE“
FHOM

OPERATOR

SEQUENCE

I
I

[SUSROUTINE FOK 'EPROR31'
TVPEOUT5.

SCOPE

LOOPS.

ANU

[ERROR
I

ERRD,

«use

zone

0031

1301
1236

CLA CLk [AC
TAD
ERRO

3340
AGES

OCA
KAERRD

40::

CRLF

«use

CRLF

1636

TAD

0062

AND
TAD
DCA

uaaa

can;
aqua
anus
moan

cans
nous
not?

1352

case
0451

3251
1402
3254

0452
was:
was:

DCA

7002

HLT

CHLF

ease
oas1

PRNTER
TEXPC
TAD
OCTEL
TAD 1

«use
was:
anon

0550
1636

uae1

aava

aar;
aa12
9013

[MASK

9'11

[MAKE

ENRON

POINTER

HEADER

POINTER

[RED

JMP

NTGD

[NUT

DCA
PRNTER
TEXGD
TAD
OCTEL

tuna

asua
osas
asua
asas
asae
asor
asxa

OCTEL
TAD
DCA

XTEXT
PCNTNE

TAD

xaza

UCA
TAD
DEA

Auroxa
K7771

asxx

CLA CLL

EMA

exalt

[GET

TEXT

POINTER

THIS

ONE

[GET

TEXT

MESSAGE

7100
3236
1350
2350
Z350

CLL RAL

3325
3047

DCA
PRNTER

7002

"L7

1410

TAD I
AUTDIO
DCTEL
131
PCNTR3
SKP CLA
CRLF
131
PCNTRI
JMP
STRAUT
JMP 1
RETRNI

0052
2347

AGAIN,

5313
57na
7103
3236

DCA
TAD
xaz

Kano

Isl

PENTRZ
.92

cLL

NOTEA,

2350
£330

DCA
151
Isl

2010

131

PCNTRz
PcNTfiz

HEADS

IUI13

POINTER

[STORE FOR PRNTER
[PNINT XXl
[MODIFIED TEXT POINTER

[PRINT FOUR OCTAL

[CNECK
[RETURN

FOR
TO

NEXT XXI
QUESTION

RAL
ERRO

PCNTNZ
VENTRE
AUT010
AGAIN

JHF

S333

22-FEB-77

VIOZA

[NUT

JHP

7610

PAL10

NOTEX

TAD
9M1

2351

PENTRS
ENRU

5336

5050

FUN

EAL

MD-UB-DHRKD-D

OCA

STNAUT,

[COUNTER

vents:

T500

1236

[PRINT roua OETAL

CLA

51A

3351

601

Euno

TAD

[RKBE/NKEL DISK FORMATTER PROGRAM:

cLA

DEA

NTDD.

GD:

[PRINT
BONES?

1A:

0532
0333

TAD

[MODIFIED

[PRINT PC STORED
/GET TEXT POINTER

asu:

0530
0531

TAD

[MODIFIED HEADER

[GET

PRNTER
Texex

0526
0527

HEADER

[FNINT PEI

9415
aavs
u417
asaa

0526
0325

POINTER

[GET

K0007
HEDTAD
.91

ERRO

SIP

an1a

0513
051!
0515
0516
0517
0520
0521
0522
0523

MEED

CLL SAL
3NL

0465
case

0512

.03

PRNTER

aqua

TEXT

ERNU

HLT

4401

cuss

use:

PC STORED
[STORE FOR RETURN
[NOTIFY APT 0F ENRON
[GET

RETflN1

0000

REIRN..

1650

XTEXT,

TEXCH

0130

EXBIT
xRtG'
PCNTRl. 0
PCNTRZ, 0
NNW3,0

HEDTAD,

HEDLST:

TAD

HEDLST

ERTXl
ERTXE

ERTX3
ERTXU
7711

K7771.
I

PAGE
I

[ROUTINE TO FONHAT CYLINDER
[MAKE

VIRST

TNU

NORDS OF EVERY

SECTOR

IEUUAL T0 DISK AOOIEsSn
[

NRTTNK,

0600
0601

0000
7330

CLA CLL

0602
0603
0600
0605

3117
0035

DCA

1071
3113

TAO
OCA

CHL EAR
GDREBZ

KILBUF
K7735

TCNTP1

[SETUP COMPARE REGISTER
[CLEAR BUFFER
[AMOUNT OF lECTOflS TO DO
[SETUP COUNTER

lRKal/RKBL 013K

FORMATTER

FRDGNAHI

3113

DCA

B667

IDTE

661%

3111

TAD
DCA
TAD

I606

LODRI;

961!

1113

6612

337“

AND

@613
ubifl
E6X5

1102

3A5:

0616

11D:

@617

IIBB
3451
1054
OETD
113D
1267
AAA:

TAD
DCA
TAD
TAD
TAD
DCA
TAD
AND

362%
0621
0622
0623

0624
0625
B626

IIEO

MD-UB'DHRKD'D

TCNTR3

EXBIT

XHITRK

ICURRENT

IFUNCTION NRITE

CLA

sass

TAD

BGNaUF

one:
1A5:

LDCUR
TAD I

KLUTRK

aqua

LDADD

«an:

DSKSKP
JNP

B6fl5
@6fl6
06“?

065B
@651
0652
€653
065“

nusT

D655

5602

@656

@661
6662

AASI
SSDD
uusa
quay
1131

E66!
Dean

ausu
5352

0665

5268

@666

5291

0661

SDDD
7517

/LOAD

CURRENT

ILDAD

TRACK AND GO
ON FLAG
FOR FLAG

ISKIP

.-1

IwAIT
IREAU

1-9

PAGE:

0625

ADDRESS

STATUS

Ruuoa
OLA

IRAS

LODER
TCNTRE
TCNTR}

ISI
SKP

TCNTRE

STATUS

IERROR,

OLA

DCA
Isl
I52
JMP
Isz

NRITE

ALL

REVOLUTION
IN FIRST REV.

ICDUNT

FIRST

ISTILL
ISETUP

FOR

SECTOR

"1'

TCNTRa

TCNTRI

IUPDATE SECTOR COUNTER
/TRV NEXT SECTOR

LODRI
NRTTRR

JMP I
ERROR
some

LDDER,

PAGE

ILOAD EXTENDED DRIVE SIT
/cLEAR EXTENDED DRIVE BIT

131

EEOC
SSOD

ALL

EISIT

RDSTAT

3113
2113
2112
5211

FIELD

COMMAND

ILUAU

Tana

211A
TEID

BUFFER

R1571

anus

5251
2113

STOP

XHITRK

RSODD

SlA
JHP

6022

BUFFER

IAOD IN DRIVE NUMBER
ISETUP TRACK RORD IN

DRIVNO

I
I

ROHEMA

TAD

PAGE:

RICRAD

063%
6631
B632
6633
@634
3635
U636

064a

ISETUP TRACK RORD IN
IAOD IN EXTENDED SIT

XLDTRK

TAD

167%

1'0

SECTOR BITS
IADD IN CVLINDER

TAD

7bflfl

PAGE

[MASK

LDRAD
I

6627

5235
auaD

8611}

TCNTRE

K0637

LDCMD

1120

ZEOFEB'77

VIHEA

/STARTIND RITH O
ISTOPPER
ISBCTUR COUNTER POINTER

TCNTRE
RTTSD

TAD
LDSC

8637
6650
0641
0642
0653

FALII

NRTTRK

[THIS

CYLINDER

DONE

IERRDR. STATUS
ITExT POINTER

0657
0660

6670

RECAL
JMP I
CRLF
RRNTER
ERMESI
RECEIv
JR?

/CLEAR

wRTTRR

ITO

/RRINT

IRAIT
,.,

JMP

RRTTRK

AND

DRIVE

"TRT

SAME

FOR

VES

TRv

AGAIN"

ND
SAME EYLXNDER
IRAS NEITHER ASK AGAIN
IVES. TRv NEXT

LDDER-a

JHP

CONTROL
DISK

IRAS

SDDD
1571

RSDDO.

K7577,
I

ISUSRDUTINE

lRKeh/RKGL DISK FORMATIER RRDGRAH:

READ

STATUS

HD-UB'DHRKD-D

RALID

az-FES-TT

V1421

15:15

0671

ODOO

B672
@673

ETus
TAID

0673

0111'

6675

3122
1:22

0676
@677

ROSTA
IOIS.

DRST

IREAD

STATUS

IOT

ISRIR

TRAP

ERROR.

ISAVE

RESULTS

SRR

ERHLTSI

JMS

DCA
TAD
JHP

5671

XCSERR
STREG
STREG
RDST

IExIT

ISUDRDUTINE

LOAD

CURRENT

ADDRESS

0760
@721

ODDO

0702

1125

TAD

B703
073“
0705
B7U6
6707
071%

312A

DCA
TAD

D
DCA

LDCA.

3125

1125
STAR

IOTA.

/SAVE

ISETUR

JHR

ERRLTD.

ADDRESS

INITIAL

CURRENT

ADDRESS

ADREG

DLCA

5100
A7111
5367

ADREC
ADKEG

CAREC

ILOAD
I

JNS
JMP

CURRENT

LDCA

IEAIT

ICSERR

ISRIP

TRAP

ADDRESS

101

ERROR.

..1

I
I

ISUDRDDTINE

LOAD

TRACK

ADDRESS

REhISTtR

0711

DDDD

LOAD,

@712

3123
1123
6703

IDTST

I713
6710

0715
0716

5111

6717

5316

NTTT'

ERNLTS.

OCA
TAD
DLAG
JMP

DAREG

ISAVE

DUTBOUND

DATA

DANEG
ILUAD
I

JHS

JMP

LOAD
XCSERR
,.1

DISK

ADDRESS

IEIIT
ISKIF

TRAP

ISAVE

OUTBDUND

ERROR.

I
/

ISuSROUTINE

LOAD

COMMAND

@720

DDDD

Z721

5121
3776'
0715'
Tana
Tana

H12?
0723
0720

0725
B726
6727

6730

B731
@732

1x21
6706
512D
0717‘

LDCH:

DCA
DCA
JMS

CRREO
INHODE
ICSCKR

[CHECK

FDR

DATA

CONTROL

CHARACTERS.

CLA
CLA
I076,

ERHLTD,

TAD

CMREG

DLDC
JMP I
JMS

LDCN

JMP

5531

ICBERR
.uI

0733

ODOR

ISUBRUUTINE
D
XLDSC,

D734
D735

DINO

TOTO:

B736

DTTT'

0737

5336

5153

JHF

ERHLTOT

ISSUE

'DLSC'

DLBC
I

JHS

ILDSC
ICSERR

JHP

.-1

ILOAD
IEIIT

COMMAND

[SKIP TRAP ERROR.

IlKaE/RKIL DISK FDRHATTER PROGRAM: HD-UD-DNRKD'D
[SUBROUTINE TO

ISSUE

FALIU

"ODKP'

0K1?

DISK

22-FEU'77

V102A

10113

PAGE

1'10

PAGE:

0020

PAGE

1'11

PAGE:

0025

107

0700

0000

SDKP.

0701
0702

6701
7010

1011!

03K?

0703
0700

2300

[DISK

SKP
151
1

Soup
SDKP

ISSUE

CLDR

JHP

5700

SKIP

[DID NOT

IOT
SKIP

[EXIT

[

[SUDROUTINE

CLEAR

'DCLR"

IOT

[

0705
0706
0707
0750

0731

0000

6702
5705
0777'
5350

CLDRI
1072:

[DCLR "CLEAR IOT"
[EXIT
[SKIP TRAP ERROR.

DCLR

ERHLTEI

JNP
JHI
JHP

XCDERR
,.1

I
TD

[ROUTINE

2:00

BUFFER

WORK

KLIUF,

0752

0000

0753

7300

CLA ELL CMA

0750

1055

0755

3010

TAD
DcA

BGNBUF
AUTD10

0756

1360

TAD

K7000

0757
0760

3131

DCA

3010

DCA

0761
0762

2131

Isl
an

0763
0760

5360
5752
7000

JMF

K7000,

AUTO

AU7010

[SETUP
[CLEAR

COUNTER
BUFFER

UATCNT

[UPDATE

,.z

[NOT

KLHUE

[BUFFER

DATCNT
1

BUFFER

[START
[SITUP

INDEX

COUNTER
ALL CLEANED VET
CLEARED

Taco

0775

3601

0776

3676

0777

0007
1000

PAGE
[
I
TO

[ROUTINE

READ

AND

CHECK

CYLINDER

1000
1001

0000

REDTRK;

TAD

$1135

DCA

TCNTRI

3115
1072

DcA

7CNTR2

TAD

K7760

1005

3110

DCA

TCNTRS

1006
1007

0035

KILBUF
CLA CLL CMA

[CLEAR

DUFFER

1010

3136

OCA

soTT

[SETUP

SOFT

1011
1012

1055
0003

TAD

annaur

1013
1010
1015
1016
1017
1020

1103

1002
1003
1000

[RKDE/RKAL DISK
1021
1022

1023
1020
1025
1026
1027
1030
1031
1032
1033
1030
1035
1036
1037
1000
1001

1071
3112

7300

cnuaz,

Locun
TAD

1100

1130
0002

1130
0006

FORMATTER

DRIVNO
HDHEMA

TAD
Losc

EXUIT

MD-Ua-DflRKD-D

CLA

0070
11a2
0000

aunt
5226
Anna
1070
7650

5241
1:22
0777

[CURRENT

PAL10

FLAG

DRIVE

BIT

22-FEB-77

V102A
[CLEAR

EITENDED

K0037

[HASK

TAD
LDADD
DSKSKP
JHP
ROSTAT
TAD
DNA CLA
JHP
TAD
AND

LDHAD

[ADD IN OTHER 015K
[LOAD AND GO
[DISK SKIP IOT

SECTOR

[NAIT

FDR

[READ

STATUS

10113

DRIVE HIT

TcNTRz

.~1

DRIVE

[CURRENT FlELD
/LDAD COMMAND
ILUAD EXTENDED

TAD
AND

DNA

7650
ssae

ERROR

[LOAD CURRENT ADDRESS
[EXTENDED CYLINDER uxT

nzaqu

TAD
TAD
LOCMD

PROGRAMI

7200
3:13

[AMOUNT OF SECTORS
[STARTING WITH 0

BITS

OFF
ADDRESS

FLAG

K0000

IN FUDGE FACTOR
[SKIP IF ERROR

STAOK
STREG

IDTATUS O.K.
[GET STATUS READ

[ADD

K0010

CLA

IT A CRC
JUST A HARD ERROR
ICLEAR SOFT ERROR FLAG
[GET LAST COMMAND
[HAS

JMP
DCA

BTAER

TAD

SOFT

IND,

1002

AND

CMREG
Kano?

1003

TAD

EXIIT

[ADD

1000
1005

CIA
TAD

XHITRK

1006

DNA

CLA

1007

JMP

[GET WORD READ FROM 013K
[SKIP 1F ERROR
[FIRST NDRD O'K.
[GET WORD
[DETUP ERROR PRINTER

STADK,

1050

TAD

1051
1052

DCA

1053
1050
1055
1056
1057
1060
1061
1062
1063

TAD
AND

DCA
TAD

[SETUP GOOD FDR
[NO, DATA ERROR
[GET WORD READ

DAREG

ICDHFARE

[SKIP

ERROR

lwunu

0.x.

aNA CLA
JMP
131
7A0
DCA

TAD
DCA

DATDK
ADDED
DAREE
GDREGZ
1

DATDK,

DATER

TAD
SNA

SOFT

CLA

JHR

DATER,

1106

sTAEI,

XLOTRK
DTREG

JHP

DRIVE

XLOTRK

DATER
I

CIA
TAD

1103
1100
1105
1107

GDHEGE

JMP

FRSTOK,

1060
1065
1066

1067
1070
1071
1072
1073
1070
1075
1076
1077
1100
1101
1102

FRSTOK
XHITRK
DTREG
CMREG
K0007

EXTENDED

[SETUP

canon

PRINTER

GOOD

PRINTER

I$ETDF GOOD wono FDR PRINTER
[GET mono READ
[SETUP FDR PRINTER
[DATA canon
[GET sorT ennun FLAG
[HA5

CLEAR
sTATus ERROR

STAER
TcNTR2

Ivzs.

TAD

luau]

[ADVANDE 3 SECTOR!

DCA

TCNTRZ

181
JMP
182

TCNTRS
CHKRI
REDTRK

JMP 1
TAD

K7701

DCA
JMP

TAD
DCA

REDTRK
TCHKT
cHKER
K3600

TCHKT

BIT

[MORE

TO FORMAT

IEKIT:

O'KI

[SETUP
[ERRDR

TEXT

[SETUP

TEXT POINTER

POINTER

IRKDEIRKEL DISK FORMATTER

PAL10

22-FEO-11

V102A

10113

PAGE

1-12

PAGEl

0026

PAGE

1'13

PAGE:

0021

RAD

T330

3111
4437
0000
4433

nDU'D'DHRKD'D

PRDGNAHI

CHKER.
TCNKT:

CLA CLL CML
DCA
GDNEGE
ERROR

STATUS PDINTEN
READ DATA
TEXT
IMUDIFIED
POINTER
[CLEAR CDNTRDL AND DRIVE

lENRUR,

RECAL

5600

JNP

4452

CRLF

4441

PENTER

2000

EIHEDS
RECEIV

4434

5301
5316
5201

EUDD

[SETUP

WEDTRK

[10

JHP

DATER

JMP
JHP

0-5
REDTRK

-2

DISK

“TRV

IFRINT

SAME

AGAIN“

[CHECK NEXT
IRE-PRINT
[TRY SAME AGAIN

[1013 ROUTINE
IPACKAEE

TEST FDR APT

"ILL

NEED

AND

NO?

CONSOLE

0000
1022

AP'O.

TAD
DNA

CLA

5125

JMP

1022

TAD

0313

AND

K1311

3022
1022

DCA
TAD

0062

AND

K0007

3101
1022
0714'
7650

DCA

DTCNT1
22
K0100

TAD
AND

TAD
DCA

STCNT1

ELL CI.A

1340

CLL CLA CMA

3134

DCA
J"?

HULDBK'

3101

DCA

1157
1110

TAD

TESTING
TO DO

DNA

DISK

lv1

STCNTI
IUNE

DISK

DONE

LUCDED
BENTST
IUNIVE

SYCNTI
ADPDTI
STCNT2

DISK POINTER
[ESTABLISH DRIVE TO

[GET

STCNT3

2134

DCA
151

1340

CLL CLA

cm:

3511

DCA
131

STCNTS
STCNTZ
STDNTl

IUD

HULDSKO}
LOCDED

IMURE

2101
5356
1134

151
JHF

1041

CIA

3134

DCA

5521
K1311;

LOCDED

MD-WB'DHRKD-D

JHP I
1311

INUMHEK

PAL10

V1“2A

DONE

22-FEB-17

BENTST

1325
FADE
I

IDUBRDUTINE

Pfllnv

TNU

ucTAL

1200

0000

Want,

3106
1106

DCA
TAD

T010

EAR

7012
0062

"TR
AND

1201

1061
4436

TAD
TYPE

1210
1211
1212
1213
1214

1106
0062
1061
4436
5600

TAD

BBCNT1

AND
TAD
TVPE
JMP 1

K0001

1231
1202
1203
1204
1205
1206

SBCNTI
SBCNTI

[SAVE

K0001
K0260
IPRINT

'103T

BYTE

K0260

[PRINT SECOND
[EXIT

1001

I
[

[ROUTINE

CRLP

1215

0000

UPDNE,

1216

1300

1211
1220

1225

CLA CLL
TAD

4636

TYPE

1226

TAD
TYPE
TYPE

1221
1222
1223

4436

1224

5615

4436

JHP

K0215
K0212
ITYPE

UFUNE

1225
1236

0215

0212

K0215:
K0212:

0215
0212

IDDUTINE TD PR1NT

FOUR

1221

0000

1006

1006
3215

1203

F0001,

RTL
RTL

DCA

UPDNE

1016

TAD

3200

DEA

T001

1215
0062

TAD

UFDNE
K0007

1061

TAD

K0260

4436

YVPE
TAD

UFDNE

1215
1006
1004

DONE

THIS DRIVE

1326
1304
1200

LOCDED

TAD

FUHMATrER PRoGuAn:

1311
1556

DUNE

POINTER
[ESTABLISH DWIVE TO DO

STCNTl

TAD

2110

1175
1176
1117

DRIVE

CHA

3111

1174

TAD

ISINDLE

NUMBER

DRIVES TO BE

IGET

1101

1107
1040

INU.3EVERAL

1340
3501

[NUHDER

HULDSK

3101

OCA

DRIVE

IIDDLATE

ADPDT1
3TCNT1

5521

CONSOLE PACKAGE

NUP

APT.

ION

CLA

JMF
TAD

1131

1172
1173

APTD

DNA

5353

/RKflE/NKEL DISK

1700

AND

RTL
RAL

DCTAL

ONE

NULL

BIT

10115

/RKOE/RK6L

DISK

1244
1245

2200
5235

12l1
1250

1251

5621

PAL10

22-FEfl-11

V102A

10:13

PAGE

1-1"

PAGE:

0028

10113

PAGE

1-15

PAGE:

0029

UPDNE
1001

DCA
131

3215

teas

no-ue-DHRKD-D

RRUBIAMI

FORMATIER

J"?

u-ll

1321

TAD

K0200

0036

TYPE
JMP

FHUCT

I
Ta

ISUBROUYINE

rnxnr

TEXT

1252
1253
1250
1255
1256
1251
1260
1261
1262

0000
1300

TAD

3:21
1621

DCA
TAD

0322

AND
sNA

K1100

JHP
SHA

5x11

1265
1266

1001
1012

1261
1270
1271
1212
1273
1270
1275
1276
1271
1300
1301

1012
1012
4036

1302
1303

case

130a
1305

1300
5251
1300
5652

1301

[GET

Pan
PRN
FRUCT
FRUCT

131

1050

5306
1500
1020

1306

CLA CLL

1652
2252

1266

1263

Pan.

POINTER

CHL
IAc
RT“

RTR

1621
use:

RTR
TYPE
TAD I

FRDCT

AND

«0011

SNA

1050
5306

EXIT
K3140

1311

JHP
TAD

1500

SMA

1310
1321

TAD
TAD
TVPE
151
CLA CLL
JMP
CLA CLL

K1100
10200

JMP

Pan

2321

EAIT.

raucT
FRNOS

1310

0100

1311

3100

K4100,
13110,

«100
3100

[ROUTINE

TYPE

1312
1313

0000

131“

1311

0041
531a
6002
1200

1320

511a

1321
1322

0200
1100

1315
1316

IRKQE/RKDL 013‘
1323

1320
1325
1326

PRINT:

TL:

0005

TsF
JHP

x0e40.

JMP 1
0210

K1100,

1100

FORMATIER

PncGuAn:

1331

1300
13a:
1302
13:3
1304
1305
13l6
1541

1350
13!:
1:52
1:53
1354
1:55
1356
1351

Mo-ua-onRKo-D

K0071,
K0010;

7101

K7701,
K3600,

7701
3600

3600

HAlT

1300

CLA

CLL

6032

KCC

6031
5332

KSF

6036

KRS

6006

1L6

0001
5336
0510

Tsr
JHP
AND
TAD
DCA
TAD
DEA
131
JH!

0000

MALT:

3101

1101
3111'

2116’
4115'

22-FEB-77

V102A

FDR

KEV

FROM

UPERATUR

.-1

.-1
K0111
K0200
CNAR
CHAR

CaCHAR
INHUDE

XCGCNT

[CHECK FUR

CONTROL CHARACTERS.

CLA

1200
1200

3116'

CLA
DCA

5032

KCC

6042
1101
1001
1311

TCF

[NHOOE

TAD

CHAR

61A
TAD

K0316

1050

ONA

CLA

1360

5121

JMP

1361
1362
1363
1364
1355
1366
1361
1310

2321

151
TAD

1371
1312

RAL10

JMP

1066

0077

0011
0010

[ROUTINE
/

1321
13:0
23:1
1332
1533
13:1
13:5
1336

.-1

TC!
CLA

1101

wAlT

1312
1650

SNA

2321
5121

0111
0316

x0111,
K0316.

0331

x0531.

RETURN

POINTER

CHAR

CIA
TAD

10l1

IT
IVES
[UPDATE

[WAS

WA1T

K0331

CLA

132

uAlT

IuAs
[WAS

«up 1
0111

HAIT

[HA3

IT A Ti:
A YES
NEITHER

0316
0331

1375
1376
1377

3200

3676
3675
1400

PAGE
/
I

[ROUTINE

RECALIBRATE

SELECTED DRIVE

1000
1‘01
1002

0000

1003

1100

REITUR,

CLEAR CONTROL
CUNTRDL
[CURRENT DRIVE

1301

/LNABLE

0005

[CLEAR

TAD

DRLVNO

[RKBE/RKOL

DIS“

FORMATTER

PROGRAM]

HD-le-DHRKo-D

PAL10

22-FEB-77

V102A

0006

TAD
LDCMD
TAD
Lost

7330
3117
7326

CLA CLL CML RAH
OCA
GDHEGZ
CLA CLL CHL RTL

[MAYBE

anus

CLRALL

1015

0001
5210

.-1

1016

gang

DSKSKP
JMP
RDSTAT

[”NECALIHRATE"
[DISK SKIP IUT
[WAIT FOR FIRST
[READ STATUS

1017
1022
1021
1022

1327
7050
5225

TAD

K2000

1000

1005
1006
1001
1010
1011
1012
1013
1010

1023

1024
1025
1026
1027
1030
1031
1032
1033

1150
0002

1120

IND,

eawun

1121
0002
0001

TAO

CMREG

[ORIGINAL COMMAND
[LOAD COMMAND
[DISK 3x1? IDT

.-1

[WAIT

FOR

[READ

STATUS

LDCMD

7600
5203

SZA

1037

73a1
0005
2200
5900

CLA

0037
Saw}

SECOND

DONE

K0000

CLA

JMP

:T oNLv DONE FLAG
ERROR STATUS
[ENABLE CLEAR conrnog
[CLEAR caNTnuL
[UPDATE FOR soup RECALIDRATE
[RETURN
/u13

RESTER
CLL

INu,

IAC

CLRALL

RE5TER,

0031

STATUS

[CLEAR

[ENAHLE SET SECOND DONE FLAG

1035
1036

PAGE!

DONE

K0200

TAO

1001

[HAS

TAD

RDSTAT

1003

FLAG

Busv AND DONE
THEN ITS 0.x.
THEN 1T MUST a: JUST
IT JUST DONE

IND.

CLRALL

DONE

1066

1079

1002

BIT

STATUS

17:3.

RESTER

0000

1000
1001

DRIVE

EXPECTED

COMPARE REGISTER
[ENAELE RECALIBRATE BIT

CLA

5231

0030

[SETUP

RESTA
K2000

DSKSKP
JMP

1030

EXTENDED

[LOAD

J"?

RESTA,

PAGE!

EXDIT

/u15

JMF
TAD
SZA

ISI15

[CURRENT FIELD
[LOAD COMMAND

SNA

1327
7600
5203
0005

HOHEHA

I51
JNF I
ERROR

NESTOR
NESTOR

STATUS
POINTER

[ERHOR,

3903

ITEXT

0052

CRLF

0007

FRNTER

[PRINT

1407

I756

145»

0030
5250

ERMESE
RECEIV

[WAIT

FOR

[TNV

[TRY

AGAIN

1105
1006

5201

JMP
J"?
JMP

7361

CLA CLL

IAC

TAD

AMOUNT

1451
1060

105°
7050
5535
305°

SNA
JMP

1451

3516

OCA

1062

5600

JMP

1151
1052
1155
1051

1055
1155

5205

.93

"TRV

RECALIERATE“

INPUT
EXISTING

DISK

.U5

NESTOR

[GET

AMOUNT

[WAS

THERE

[LAST

XEND
AMOUNT
TCNTRS

RESTOR

[THY

[GET

SWITCH

DEA

[MORE

DISK
TO GO

[CLEAR

DISK

ON STSTEH
ONLY 1 LEFT
OUT

CLEAR THIS ONE

POINTER

ONE

/
/

[ROUTINE

CHANGE

DEVICE

CODES

[RKSt/RKSL

10b:

0000

1060
1065

0777‘

JHS

7010

RAR

DISK
1aoe

1457
111a

1011
1012
1473
1111

1175
1076
1177
1555

1501
15a2
1503

CHANG,

FORMATTER

RROGNAHI

JMP
AND

3310

DCA
TAD
DCA

1316
3315
1311

DCA
TAO
TAD
AND

1310

TAD
DCA
I52

3711

1511
1512
1513

Beau

1510
1515
1516

0000

JHP
JMP

22-FEB-77

[CHANGE

DEVICE

CHANG

/NO.

XCDSW
A0770

IGET

SNITCNES.

CSAVE1

[SAVE

DESIRED

18113

CODES?

CHNPOT
RESTDR
I

NESTOR

[GET

ADDRESS

POINTER

KNAIT
I

KNAIT
A7007

151

5277
5653

V102A

CSAVEE

DCA

0312

2200
2315

PAL10

CCNTRI

TAD

CHANGR,

3311
1711

1505
1556
1551
1515

JMS

0313

1551

MD-WS-DHRKD-D

SNL CLA

7620
5663
0777'

3200
1300

XCBSH

CSAvEl
KHAIT

[GET OLD CODE
[MASK
[ADD IN DESIRED
[STORE DESIRED DEVICE

NESTOR
CSAVEE

[UPDATE
[UVDATE

CODE

POINTER

CHANGE

COUNTER

CHANGR

CHANG

[EXIT

PROGRAM.

[

7007
0770
0000

7771

1520

1520
0730

1521

0701

1517

1522
1523
1520
1525
1526
1527

KNAIT,
A7007.
A0710.

CSAVEIT
CSAVEE;
CCNTRII

CHNPOT,

CHNPOT

7771
01

IDTO

IOTI
IDT2

uTuo
0710

IDT3

0705
0672

IOT“
IDT5
IOTS

0727
2000

7007
0770

K2000.

2000

[

[THIS

NDUTINE

WILL GENERATE

TIHING

NEEDED

APT

THE

SYSTEM

[

1532
1531
1552
1555

1554
1535
1536
1531
154a
1501

0000

KTICKI

7300
1022
0070
7650

ELL CLA

5351

JMP
TAD
DCA
I51
JMP
TAD

1730

3353
2132

TAD

AND

SNA

1542

5351
1353

1515

3132

1501

2350

1505

5351

OCA
ISZ
JHP

1506

0025

TIME

[GET

HARDWARE CONFIGURATION

K0000

CLA

[0N

EITICK
I

APT?

KTICK

[ND
[GIT

COUNT

[ESATABLISH TIME

CLKCNT
EXTICK

TIMING VALUE

[RETURN

COUNT

[GET

CLKCNT

[STORE IT
[TIHING NEED

CNT

VALUE

OF COUNTER
BE

DONE?

Exrzcx

1541

1355

TAD

KCNT

1555

3350

DCA

CNT

[TIMING VALUE
[INIT SECOND COUNTER

IRKBLIRKQL DISK FDRHATTER PRUGNAM1

1551

2330

1552

5136

1553

6000

couNT,

7716

CNT,
KENT,
K0106,

7776
0100

EXTICK.

MDuuu-Dflflflb-D

Ial

22—FE6-11

0102A

BEVUND

IHDVE

K71CK
KTICK

JHP

FAL16

16115

TIMING

PAGE

1-16

PAGE!

6032

PAGE

1-19

PAGE:

an}!

VALUE

-2

6160

IRuuTINE To NOIIFY

APT

us:

aEDuquu

KTIME,

1557
1568
1561
1562
1563
1564
1565
1566

0666

0111

JM:

1567

1360

CLL CL!

1576

5151

1571

6566

1577

3062

10F
"DP
TAD KCUF
060 .tl

6662

6210
1075
3560
1062
6272

IDISADLE
IDET

1NTEuuPTs
PNEDENT DATA F1ELD

IEstAaLxsuEs CURRENT

HLT
01F 16
1

JMP

[FIELD

DATA

FIELD

1. LDCATION DF

PRDH

K6566
KTIHE

K6566,

6500

I
1600

PAGE
I
I

ITuIs ~DUTINE “ILL NDTIFT AFT OF AN ERNDR AND SEND PC To
IAFT svsTEH. ALL ERRORS wILL RESULT IN PROGRAN HLT AND A TIME DDT ON
IAPT. APT uILL TAKE OVER Fnon THERE.
I

1600

6060

1601

6602

10F

1692
1603
1650
1605
1606

1206
1622
1106

CLA
361

CLA

5666

JMP

1621

1A0

1607

3222
6210

06A
RDF

1615
3210

TAD

KCDF

DC1

I.‘
anvvc

1616

1611
1612
1613

AENRU,

IDISABLE

TAD

ICHECK

AENRO
1
KERRO
SAVPC

IiETURN
IGET re
IGET

1222

TAD

161“

7002

NLT

1615

6212

c1F

1616
1617

5620

JHP
HLT

1626

6520
6036
0606

1062

INTERUPTS

Fun

APT

NDT

CURRENT

[CHANGE

Fun

INDT1F1ED AFT

AFT

FIELD

DATA

IkePLAcED wILL
06526

SVSTEM

CURRENT DATA FIELD
APT RETURN TO Fstu

ERROR

1621
1632

K6526,
KERRO,
sAvPC,

6520
ERND
0

I
I

lfllflilflKbL DISK

FORMATTER

PROGRAMS

MD-UB-DHRKD-D

[ROUTINE

MOVE

015K

PAL1U

V102A

22-FEu-11

POINTENS

1623
1624
1625

0606
1237
5010

1626
1621

3611

1636

1011

1631
1632
1633
1630
1635
1636

3201

1637
1630
16‘1

6111
6150

1602

2063
1200
6160
1260

TEIPC.

TEXT

"PC!"

TEXGD,

TEXT

"001'

6530

TEXEI,

TEXT

"211'

1200
0315

TExcH,

TEXT

":61"

7266
2320

TExsT.

TEXT

"311'

7263
6361
1266

TEIDA,

TEXT

“DA!“

6361

TExCA,

TEXT

"0A1“

1200
D160

TExAD,

TEXT

"ADI"

TEXDT,

TEXT

'DTI'

ERTXI.

TEXT

”READ

ITATus

ERTxa.

TEXT

"DISK

DATA

MOVE,

1200

TAD

ADPTI

00A

AuTD16

TAD
DCA

AD?T2

TAD
DEA
TAD
DCA

1016

3011
2201

AUTDII
"10

MCNTRI
AuTo10
AuTD11

MDVE

151

5232
5623

J"?
1n?

[FROM HERE
ITD THERE

HCNTRI
.-3

6660

ADPT1,
ADPTE,
ncNTH1,

00K6A
szaa

'1
'1

1206
6020

7260
I

2205

ERROR“

6100

0623

2001
2025

2300
0522
2217
2200

0011
231!
0660

6120

6140
6522

ERROR"

PuzuTERs

1611:

lRKDE/IKHL

018‘ FORMATTER PRDGKAHI
1103

2211

1100
1705
1106
1101
1710
1711
1712
111:
1710
1715
1116

2200

1732

PALXU

HD-UO-DNRKD-D

V1“ZA

ERYIB,

TEIT

'NRXTE STATU§ ERROR"

ERTII,

TEXT

"RECALIORATE STATUS ERRON'

22-FE8'77

1011!

PAGE

['20

PAGEI

DB!“

10113

PAGE

l'dl

PAGE:

0035

1120

950%
2320
U124

2523
“MUS
2222

1722
0000

1111

1120
1121
1722
1725
1720
1125
1126
1121
1750
1131
1732
1133
I

1130

200501,

TEIT 'IRV TO FURHAY

ERNESE,

VEIT

SAME CYLINDER

AGAIN?"

1135

1136
1131
1700
1151

1102
1103
1100

1705
1706
1101
1150

1151
1752
1753
1150
1155
1156
1151

'IRV

RECALIBRIIE SA"! DISK

AU‘INT'

1100

1161
1162
1163

1700
1165
1166
1101
1116

£110
11!?
2005
0023
B115

IRKGL/RKDL DISK FDRMATIER PfiOGNAHI
1771

0500

1712
1773
1170
1775
117a
1711

0011

2000

2022
3100

2001

2002
2003

PILII

VIDEA

22-FEH'77

251!
0U01
B101
1116

1700

GENES}.

TEXT

"IRV

TO CHECK

SINK

EYLXNuIR

AGAIN?"

2011

2000

0003
1005

2005

$313

2006

0823

2001
2010
2011

0115

2012

HD-UB'DHRKD'D

6549
0331
1‘11

2013

1600

2010

0S2:

2015

0801

201a

@701

2017
2020

1780

1116
I

2021
2022

2023
2020
2025
2020
2021

2213
1005
5722
1370
1000

YEIEND,

TEIT

HEOI,

TEXT 'NKIE/RKOL DISK FORMATTER PROGRAM"

”RKlE/NKBL DISK FOHHATTEfi 7A3! COMPLETE"

0011

2313

2030
2031
2032
2033

0006

2030
2035
2036
2037
2000
2001
2902

@522

2303

2005

1122
1501
2020
0023
6123

2300
B311
1520
1005

2000

0000

2005

2213

2006
2001

7005
5122

2050

1310

2051
2052

1000
0011

2053
2050

2313

2055
2356

1132

000a

1591

[RKOE/RKOL DISK FORMATTER PROGRAM!
2051
2060

2064

2065

0000

2066

0017

2067

2200
011“

2002

2063

2070
2071

22-FEO-77

VIMZA

1511}

PAGE

1'22

PAGE:

0036

1011}

PAGE

1-23

PAGE:

0037

232‘
0522

A020
2217
0722
0115

2061

PAL10

MO-UGIDHRKO-D

H252,

TEXT

’fOR ALL OUESTIONO;

HES},

TEXT

“FORMAT

MESH:

TEXT

"ARE

HESS:

TEXT

"FORMAT

ANSHEH

FOR

YES

FOR

NO.”

1300

2072

2125

2073
2075
2075
2076
2077
2100

0523
2511

1716
2354
4001
1623

2705
2200

3140
0611

2240

3105
2340

1722

“016
A006

1722
0010

1756
0000

0611

DISK

2215
0120
OOH“

1123
1350
0000

0122

SURE?"

VUU

0500
3117

2540
2325
2205

1700
0017

SAME

DISIKS)

AGAIN?"

2215
0120
0023

0115
0540
0011

2313
5023

lRKSE/RKSL O1!“ FORMATTER PROGRAM]
2156
2147
2150

2151
2152

HD-UB-OHRKD-O

PAL10

22'FEU-77

V102A

5140
0107
0111
1677
0000
/

2200

PAGE
I

2200

unneuru,

2200

HIIRKI.

2201

LOTRKI.

2577

ENDBUFI.

9377

ICONSOL

SRC

-V2-R0-

CONSOLE

PACKAGE

CALL COCOS" UR JHS ICDSH
WILL READ THE SWITCH REGISTER
LOCATION 20 BIT 0.

ILAS'

[THIS
[EV

[THE

FRUH

THE

PLACE

SHOULD CNECK FOR A CONTROL CHARACTER
FIVEISJ SECONDS OR SOONER.

FNOGRAN

[EVERY

[LOCATIONS THAT

NEED

SET

FOR

USING

THE

SPECIFIED

FRON

CONSOLE

THE

TERMINAL

PACKAGE.

ICOPAGS
THIS LOCATION DETERMINOS THE NUMBER OF
[CNTVAL
[PROGRAM COMPLETION! THAT ARE NEEOEO UEFORE THE PASS MESSAGE
[THE VALUE SHOULD PUT THE PASS NESSAOE OUT IN THE RANGE OF 1
[THIS SHOULD BE A ROSITIVE NUNBER,

IS TVPEO
TO 5 MINUTES.

[CBSTRI
TNIS IS FOUND IN CNTNL ROUTINE CONTROL R PART
[IT IS THE RETURN RHEN CONTROL 3 IS ENTERED (RESTART PROGRAM)
[THE RETURN JUHPS TO IOOSN UNION CONTAINS COSTRT SO PUT THE LABEL
[WHERE YOU RANT TO RESTART THE PROGRAM.

[SETUP]
[PLACE

XCSKRR

THE CORRECT

THIS IS THE HASR BIT FOR NALT ON ERROR
BIT IN THIS LOCATION FOR HALTINC ON ERRORS.

[SETUPi 1N XCS'ASS

THIS IS THE MASK FOR NALT A END OF

[THE CALL TABLE I: A CONDITIONAL ASIEHBLV.
[TO ASOEHOLE THE CALL REMOVE THE I BEFORE CONSOLIO.
[IN COMBINING THE CONSOL PAEKAGE TO A DIAGNOSTIC.
[THE

6661
0662

CALL

TABLE

lcuNIuLIo
Psxrn
PCLF-

6661
6503

THE

BEGINNING OF

PROGRAM.

PASS.

CGBTRT

PHOGNAHI

IRKBE/RKDL DISK FORMATTER

PaKEPsTB-

6663
boas

1T6:

PSIEGTFI
ACLI

EOUT

CAE-

SDUT

7421
75c:

NDLI

1M2!
1521

6663
soon

6665
DDOQ

PALlu

HD-UE-DHRKD'D

EE-FEB-TT

VlflZA

PAGE

15|13

1-24

PAGE!

0035

1-25

PAGE!

OU39

boon

DOUG

11D)

MOAI
I

seen

nsmua
/
Iillfinilltitltflnfitinit'llliiilttfittlINIDIIIIIll-titflltflnlitiitiIIIIIli

ICDPAs:
ITNIS 15 CALLEU
ITHE VALUE DFt'

[THE PROGRAM
[RANGE

AT TNE END OF
CNTVALII waL

caPAss-JHS

IEX.

EACH PROLRAM CUHPLETION
DE DETERMINED BY THE TIME IT TAKES
HANV CBPASS TO BE IN THE 1 TO A MINUTE

xcaPAs
CBPASS

CALL

THIS

COMPLETE

HLT
STARTl

JHF

IHALT

/cuNT1NUE

NON CONSOL PACKAGE
RUNNING TNIS PROGRAM

[RETURN TO LOCATION CALL PLUS UNE NITN THE AGED IF NON CONSOL PACKAGE
IIP CONTINUE TU RUN THEN RETURN TO CALL PLUSE ACID
[THE LOCATION SETUP: :5 THE MASK BIT FOR THE HALT AT END OF PAss
ICNECK THAT IT 15 CORRECT FOR THE CURRENT PROGRAM

3ODO

UDOD

ICALLs

USED

XCEPAs.

3UO1

vane

CLA

3!”?

ATTT'
5212
4776‘
“Zea
U375
Thou

JMS

SOUS
3004
38%!
3OD6
3OOT
3$1O
3011
3612

XCBPAS

ARE

JHS
JHs
AND
JHP
JNP

xcuPAs
ceuvx
CKCOUT

JMP

Couvl

152

PASCNT

4114'
0303
3953

JHs
JHS

xcecRLF

3520

1259

3221

ITTS'
uTTa'
«ace
O375
TDGO

SETUPE:

3033

220D

JHs
JM:

xcucRLr
CGGET

JHS

xcasu
14U0

AND

SO31

seam

303a
3033

Oman

3030

7646

Imam

5241

3001

2251

3202

2207

30A!
3044
sues

5230

TAD
CHA
DCA
1:1
151
JMP

3251

DCA

sane

Sela

3007

OOOO

JCS!
3851
3552
3053
3D5n
3355
JOSE
SOST

mama
CODE

DOCNT,
PAsCNT.
00351,

ASCII
RETURN

REGISTERS.

THE

ICHECK

IMASI

HIT

IHALT
ISTUP

PROGRAM

PAL1U

END

HALT

CBPASS

CONTINUE ID
EXECUTION-LOOK

5K1?

FOR

ZZ-FEB-TT

V142A

IBUHP

INPUT

1511:

PAGE

RETURN

XCBPAS

DanT

BOOB

CNTVAL-

mu1u

MESPAS,

305%

2323

3661

HOOD

ICHECR
Iu-GET

CLA

JR?
O

1r
UP

SET UP
caPAss

NEEDED
COUNT VALUE

II-CUPASS COUNT VALUE OK
IcaPAsa COUNT VALUE DN

NusET
CNTVAL

III

2252

UUPFER

NUMBER

IGET

XCBPAS

JMP

sane
1352

NosET,

5R SETTING
CDPASS

END

3035
3036
3037

Tuna

ICDNVERT IT TO
[DO A CARRIAGE

HDuDO-DHRKD-D

Isz

TAO
52A

1251

IGET

XCBINO

JHP

CKCOUT.

ICOPNNT

CLA

JR:

ConVl.

HALT

Ix: MALT U CONTINUE
150 TO HALT
ICONTINUE UN RUNNING PROGRAM
ICLAss CHECK CBPASS COUNT
ICBPAs: COUNT NOT DONE REDO PROGRAM
IcaPAss COUNT DONE sET CBPA55 COUNT

JM!

[HIDE/REEL 015K FOOMATTER PROGRAM:

CONSOLE?

[GET

xcePNT
PAaCNT
XCOOCTA

81A

«172'

ACTIVE

[FUN

SE50
2259

u11h'

UIT

IAUO

3015
3D16
3011

3022
3923
3OZO
3025
3D26
3021

XCGSW

JMS

HESPAS
TAD

WORD

CLASSIC
TNE REGISTERS.
IDEACTIVE CONsDL CHECK

301“

3613

IXS
115

31A CLA

DDPACK.

HLT

CHKCLA-XCDCNLF-XCGOCTA-XCBSw-XCOPNT-XCBINO-

CHKCLA
DOPACK
CBGET

JHF

Sbua

523D
4232

AND

IGET
IsET

COUNT VALUE
Tu NEGATIVE

DOCNT
DUSET
OOCNT
CUBY1
DOSET

ISTONE

CKCOUT
CKCOUT

IBUNP RETURN

IINOICATE

FOR

THIS

FROG

new:
VALUE

SET UP
Dr PASSEs
IEXIT POR ANOTHER PASS
ISET TU CUPRNT CBPASS

ICOUNT

TNE

NUMBER

FOR

ICEPAss CBTYPE OUT

U
a

a
TEXT

"DHRKDD

PASS

2213
D366

HOBO

2am;

/Itiiktfllllitiflflfilfitflltlltl'liltlltlIIIDUIIQIIlICIOIIODIIUtIIII'IOGIUI

ICBCKSw
/Tnxs ROUTINE LAN BE uaED INFLACE OF A READ THE SWITCHES LAO.
IROUTINE THAT «ILL CHECK UNERE To READ THE
Ice SNATCNES FNOH 1:. FROM PANEL OR PsEUDO SNITCH REGISTER

ITHE

SELECTION

DETERMINED BY THE STATE

Icecxswu

IRETURN

JM: xcusw
xcasw

BIT

IEx.

Jna

LOCATION FOLLONING CALL WITH TNE

NEXI

LOCATION

THE CBSWIT
IRETURN NITH THE

21.

IREAD

ACI

ANv

CONTRL

VALUE OF

ONITCH

COSNIT

[CALLS USED ARE-XCDCKPA—

SODE
3663
3964

GOOD

XCGSN:

6111'

ans

TODD

3065

luii

NOP
TAO

3066
3067

TTIO

CPA

7614

761“

CLA

XCUCKPA

IGO

CHECK

IGET

[CHECK
/DO

LA!

THE

FOR

INDICATOR

IF FROM PANEL
AND SKIP GET

“Dow

FROM

PANEL

WITH LA!

SETTING

IRKGI/RKIL DISK FDRMATTER PRDGKAMI
3B7!

3D71

FAL1U

MD-UG-DHRKD-D

TAD

19:0
SEE:

JMP

EZ-FEH'77

V1MEA

IPsEUOU

xcesu

IExIT

SNXTCN
WITH sTATOs

BIT

16113

PAGE

1-d6

PAGE!

@flflfl

PAGE:

OOAI

AC.

I-AEgg-AAA..-AAA-AIAAAAAAAnntunn-nutAAAA-AAAntwan-nA-AAAnacAAAAAAAAAAA

ICOTTVI
/TNIB KUUYINE I"ILL LOOK FOR A INPUT 'RUM TNE TERMINAL
[END RIHOVE ANT PARITV BITS, THEN MAKE IT A BIT ASCI.
/

CBTTVI'

IEI.

In!

Ina

xcaTTv
XCOTTVI

IREAU

ICALLS USED -NONE- BUT CCCHAR

FROM

THE CONsoL DEVICE
CALL PLUS ONE AC CONTAINS THE CHAR

CNAR

IRETURN

OFF

PAGE

ILCOA

FOR

IGET

CNAR

AND

ROUTINE

CALLED

xCBECHO

3072
3073

ODOO

3076
3077

6031
saTs
6fl36
0370
1367

3103

3074
3075

IcoTTT.

KSF
JNP
AND

(171
1200

3156‘

TAD
OCA

3101

1766'

TAD

3102

5672

JHP

AETOOARD FLAG

.-1

Ana

/MAsx FOR 1 HITS
IAOD TNE EIGTH bIT
[STORE IT

CECHAR

CUCNAR
I

IExIT

XCBTTV

IIItIIII.tDIli'lllfitlflllltitllfiflfltl'Ittttilifititltt‘tfifitlttttfitti'itlt

[CGPRNT
/THI: NOUTINE AILL TTPE THE CONTENTS or TNE ca PRINT BUFFER. TNE LOCATION
/OF THE BUFFER HILL BE IN THE AooRs FOLLOAING THE CALL.
PRINTING OF THE GUFFER
/AILL ATOP wnEN A 00 CHAR Is DETECTED. CHARACTERS ARE PACKED a PEN NORD.
/

CBPRNT'

JHS

IE1.

Ins

xcaPNT

MECSTT

ICBPRNI
ICOPRNT

NILL Us:

ICCPNT

ICAPNNT THE CONTENTS OF THE
ILOCATION OF CBPRNT BUFFEN

THE LOCATION FOLLouINu THE CALL A:
ROOTINE.RETORN TO CALL PLUS Tuu NITH ACI 0

[CALLS

USED

xcaPNT.

3103

0090
1300

3105
3106

1703

CLA CLL
TAO I

xcuPNT

3336

DCA

PTSTDR

IGET CBFHNT BUFFERS
IsTONE IN PTSTUR

IRRoE/RKOL D13! FORMATTER PROGRAM: MO-ua-ONRAo-O
23a:

3110
3115

1736

Isz

caOOI,

TAO

PALIu

xcuPNT
PTaTON

5703

JMP

T500
7OEO

EMA

IEXIT
113 AC

CML

IMAAE

CHAN

30a

3116
3117
312?

7001
TOIa
7012

IAC
RTR

IMAKE

CHAR

200

3121
3122

7012

“TN

ATEA'
173s
0363
7050

JM:
TAO

57a:

JHF

1362
7500

TAO

LOCATION

1011!

PAGE

1-27

1361

TAO
TAO
Jna
Is:
JHP

ICNECR
XCBPNT

hYTE

TENMINATE

MINUS
AFTER
AFTER

ROTATE
ROTATE

RTR

IPUT CHAR IN BITS 4-11
ICIPHNT IT ON CONSOLE

ACCTTPE
I

AND

PTETOR
IOO71

[GET

xcuPNT

13100

IAOD FUDGE FACTOR TO

(Ina

IOR 400 I:
IAnO 100
IAOU 200

SHA

1360
2336

5310

PTaTOR.

(eon
ACCTVPE

MAKE

uIT

ASCII

NONO

DATA
IHASA FOR
ICHELK IF
IIEAIT

SNA

aTea'

0000

(7100
I

STARTINb

ze-FEB-TT

VIOZA

RETURN
/GET OATA AONO
zMAaA FOR LEFT

AND
SNA

3124

THE

IBUHP

7050

3123

5365

FOR

POINTER

ARE-AEATVPE-XCAPNT

3100

3197
3110
3111
3112
3113

THE

FOLLONING OUFFER

NIGHT BYTE
00 TERMINATOR

ADD

DETERMINE
TO CHAR

200

ICOTVFE ONLv HITS u-II
IBUHP POINTER FOR NEXT NORO
I00 AGAIN
ISTOR FOR CCPRNT BUFFER

PTsTOR
COUOI

ItI'll‘ilhlifli'iItlnllflitittlilltlllIllttlll‘lfilitttllfiiflfiltitltitfititlllil

ICCPAU:
ITnIs ROUTINE HILL CHECR IF THE CONSUL PACAAGE Is ACTIVE.IF ACTIVE
III HILL RETURN TO CALL PLUS ONE Acl U. AND DO THAT INSTRUCTION.
IIF TNE CONsDL PAcRACE Is NoT ACTIVE THE CALL HILL BE REPLACED
/uITN A 7402 NALT AND THEN RETURN TO THE MALT.
/

CCPAUSI Jns

xcaPAu

(El.

Ina

/
I

ANYTHING

xcaPAus

ICHECR
INETURN

HERE

ACTIVE

CONSOL

AcTIvE

IF NOT
CONsoL

[CALLS

3131
3101
3132

auua

ICAFAU:

USED

ARE

7300

cLA CLL

0777'
5350

J"!
JMP

7000
1337

CMA

TAO

3337

DCA

1357

3737
5737

CBDD3,

-CHKCLA-

TAD
0:1

JMP

CHKCLA

[CHECK LUC 22 BIT 3 CONSOLE BIT

C5003
ICAPAU

IGO OD CONSOL PART RETURN CALL +1
IDEACTIVE CONSOLE PACKAGE PUT NLT
IGET CORRECT RETURN AOORs

XCDPAU

[SET

17‘02

ICOPAU
XCGPAU

RETURN
IGET CODE FOR "LT
[PUT MALT IN CALL LOCATION
(GO TO HALT OR RETURN TO NEAT

IN CALL

LOCATION

NALT

HERE

[RKAEIRKOL DISK FORMATTER PEOGKANI

3157
3160
3161

3162
3163

PAGE

18113

1-26

PAGE!

@002

PAGE:

anus

0077

3167
3170

0177

3366

22-FE8-77

V102A

PALIU

7002
0200
0100
3700
3677
7700
3675
0200

3160

3165

HO-OO-DNOKO'D

317i
3372

3601

3173

3600

3170

3623

3175
3176

0400

3177

0000

3435

3020

3200

PAGE
[tintlit!filtit'lttltilltitfiltttlitIt.0!IIIIRIQII‘Ill-IltlitQIIIAIItllfi

[CGCNTK

[THIS HDUTINE

PRESENCE OF

I17

CHAN

"ILL

v‘ILL CHECK FOR THE
CHECK FOR THE FOLLOWING
CGCNTR' JMS XCBCNT

JHS
JHP
JMP

(El.
/
[

CONTROL CHARACTERS

D-R-u-L-S

FOR CONTROL CHARACTER
FOLLOWING CALL IS FOR CONTINUING
IS FOR HETUNN IF XNHOOE SET AND

XCGCNTH

[CHECK

ANYTHXNG

ILUC

ANVTNING

[LUC.

THE

PROGRAM

NOT

CNTRL

CHAR

[fitTURN IS TO CALL PLUS ONE IF CONTINUE
13 TO CALL PLUS TWO 1' INHODE SET AND NOT CONTROL
[RETURN [5 TO CALL PLUS THO IF INHOOE LS NUT 5E7 AND NO
[CONTROL CflAR .,THIS WILL PRINT THE CHARACTER AND A 1
[CLEAR THE AC AND NETURN CALL't.
[RETURN

[CALLS

CHAR

ARI-CHKCLA-XCETVPE'XCBCRLF'CUbET-UPAHOW-XCGTVI-XCBPSH'

USED

I
/

ICOCNT'

3200

0000

3201

3111'
0116'

DCA

ACSAVE

[SAVE

JMS

CHICLA

[CHECK

5206
1111'

JHP

.o3

ION

AcaAvE

IOEACTAVE CONSOLEGET

xcacuT

[EXIT

3202
3203
3205
3206

some

3201
3210

3175‘

TAD
JHP
GT?
DCA

1501

HOA

3211

3110'
3255

DCA
DCA

1251

TAD

3200

3212
3213

znxezluxaL 015K
3210
3215
3216
3211
3220

3221
3222
3223
3220
3225
3226
3221

6000

FORMATTER

3256
1656

PROGNAMI

nEqu.

1050

SNA

JHF
TAO
SNA
JNP

5215
1112'

DONEA,

31A

3230

5200

J"?

3231

1113'
0711'

JMS

3232

3233
3230

0711'

TAD
J03

3235

0161‘

due

3236

2200

16!

3231
3200
3211
3202

5600
2202

JMP

3203
3200

3205
3206
3201

3250
3251
3252
3253
3250
3255
3256
3251
3260
3261
3262
3263

3260

NOT

THE

ACTIVE

01 TAuL: Nu CONTROL
ICOHVAKE CHAR TO CONTROL
[0

REDOA

INHBDE

CLA

INATLH
INO HATCH

NOT END or

[CHAR ExPECTID
[GET CHAR - NOT
ICBPRNT CNAR

(211

[GET

XCOCRLF
XCGCNT
xcacuT

CODE

[BUMP
[EXIT
[BUMP

FOR

THE

CONTENT!

100

3250

5650
0000
0000
0000

3261

3211
1575

GOTOA,

0000

INDEXA,
GETDAT.
XTABLA:
XTABLEI

anew

TAILA.

157s
7560

1560
7557
7556
1555

0000

TABLA

TABLE

7557

1556

7573
1510

7555
7573
7570

0000

3271
3272
3273

3301
3336

TABLE,

CNTRLR
CNTRLS
CNTRLE

3322
3300

3211

June

CNTRLC

CNTRLL
CNTRLO

3300
3311

3276

GDTOA
I

CNTRLD
I

Nwmuu

GOTOA

nEuu

NOT EXPECTED

CALLoe

[GET

INDEXA

CHAR

RETURN

IADD

GOTOA
GOTOA

CNAR

TABLE

CONTROL

(100

1-29

"1“

JR?
TAD
TAD
DCA
TAD

CBCHAR
XTABLB

PAGE

INDEX

5600
1773'

TAD
DEA
TAO
DCA
JMP

15:13
CNAR

FOR EXIT WHEN CONTROL FOUND
[BUMP GETDAT FUR COMPARE OF NEXT CNTRL CHAR.
[CHECK IF PROGRAM EthCTS CHAR
lllCHAR EXPECTED
0- NO CHAN EXPECTED
[BUMP

txlTA
cuanR
XCHTVFE

XCBTVPE

MATCN

[FUT

TABLE

[END

xcacNT

1650

CONSOLE

DONEA
CBCHAR

CBCHAR
xcecNY
COCHAR

1260
1255
3250

BIT

RETURN

22-FEu-17

V102A

lsz

GUITA.

FDR

[CONTALNS VOINTLR TO CONTROL
Inst CONTROL CNAR FROM TAaLz
ICHCEK run A 0 END of TABLE

GETDAT

PALlw

TAD

1366
3713’

CONSOLE

DASPLACIHENT XNTO
Auuas or TABLE A

1113'

EXITA.

FOR

BITS

CONSOLE

GETDAT
GETDAT

lNOEXA

3266

321a
3215

[SET
[GET

6011A

3261
3270

3265

[SAVE

INDEXA
ATAHLA

CLA

TAD

1370

MOSAVE

HD-UB'DHRKD-D

132
151
J"?
TAD

7600

LDC-22

PLSAVE

DCA
TAD

5226
1113‘
1650
5203
2255
2256

THE

ACTIVE

RETURN FOR
cuAR

MAIN PROGRAM CHECK

CNAR

Ac.

1:111

CHAR
GOOD ASCII CHARACTER
[RESTORE COFFECT CHAR
IGET START OF TABLE 8
[GET Nuw FAR INTO TABLE
[STONE IT
[GET TNE ROUTTNE STAHTTINE ADDRESS
FORM

[STONE IT IN HERE
IGDTO CONTROL CHAR ROUTINE
[A00 ur CNTRL ROUTINE TO EXECUTE
IOISPLACEHENT INTO CNTRL TABLE
[LOCATION OF ADDRO OF CONTROL ORAN.
IADDNS or TABLEA
[Aooks OF TABLES
ICNTNL

[CNTNL L
[CNTRL O
ICNTNL R
lCNTHL 5

aAcK

nuNITuR

203

SWITCH

ERRoR PRINTTING 02V!CE 210
START DISPLAYING CHAR. AGAIN 221
BACK TO BEGINNING OF PROGRAM 222
STOP SENDING CHAR TD DISPLAY WAIT
[CNTRL E CONTINUE WITH PROGRAH 205
[CONTROL 0 CNANGE SWITCH REGISTER ON FLY

FOR

CNTRL

223

IRKSE/RKSL DISK FURHATTER PROGRAM:

MD-OS-DHRKD-O

PALIU

22-FEU—TT

VIUEA

ISTART SENDING CHAR. TO THE DISPLAY
[THIS HILL RETURN CONTROL TO CALL THAT
ITHE CALL FOR CONTROL S.

SET

FLAG

FUR

WAS

10113

PAGE

1'30

PAGE!

00““

1'31

PAGE:

0005

3300

3301
3302

3772'
133a

CNTRLC:

DCA

INHODE

ISET

TAD

CBSETS

ICHECK

BVHETR
CBGET
XCUCNTR

ICONTRUL

7640

SZA

3304

5306
0765’

3305
3306

5600
3334

3307

0165'

3310

5735

JHP
J"!
JMP
DCA
JHS
J"?

3303

BVRETR.

SOFT

UNEXPECTEO

TVPED

CONTROL

CHAR

CLA

S TYPED IN
CONTROL 5 TVPEO PREVIOUSLY
[LEAVE VIA CNTR ENTRY ADDRESS
ICLEAR THE SOFT FLAG
IRESTORE REGISTERS
[EXIT TO ADDRESS SET BY CONTROL

IND

casafs
CBEET
l

CBRETR

3311
3312
3313

3310
3315

3760‘
333A

[CONTROL R
ICU TO TRE QUESTION CBSWIT
CNTRLR; OCA
TTVLPT
DEA
CBSETS

3772‘
0763'

COST“,

3316

3762'
5711

3317

0200

X003”.

ICLEAR

TNE

[CLEAR

SOFT

SET

TYPE FLAG
FLAG FOR

TTV

CNTRL S

INHOOE

DCA
JMS
DCA
JHP
SGN

UPAROR

[PRINT

CSSRST

ICLEAR

1005“

THE
AND CSCHAR
FLAG FOR ENTRL D 0R R
I60 TU AUURS OF CBSNIT
I005" 13 LABEL FOR CSSHIT OUESTION

I
I

ICONTRUL
I570?

SENDING

LNAR.

UNTIL

CGSETS

IIFI

C6007

IDONT

OISPLAV

RECEIVED

1330

3321
3322

7600

31A CL‘

5326

JHP

3323

7001

3320
3325

1200
3335

3326
3327
3330
3331
3332
3333

2334

IAC
TAD
DCA
ISZ

3334
3335

CNTRLS,

TAO

3320

C8001,

4761'
0765'

0200
7200

JMS

5320
0000
0000

JR?

CORETR

CBRETR
CALL PLUS

UP
RETURN

IMAKE

[GET RETURN FOR THIS CALL
IS7ONE IT HERE FOR USE 8E
ISET FLAG TO SAVE CALL

XCHCNT

CORETR
CSSETS

JHS
JHS

STUNE

NOT

SET

XCDTTVI
CAGET
XCBCNTR

IGET

CNTRLS

IIF

ILUOK FOR
REGISTERS
[CHECK

THE

FOR

CNTROL

INPUT

THE

CONTROL

CHAR

CLA
CBSET5:
CBRETR,

NOT

CNTRL

REASK

THE

TWO

0
0

ISHITCH

OUTPUT

[CONSOLE

AND

FROH ONE

THE

OUTPUT

PRINTER

011"

DEVICE
DEVICE

ANOTHER

cno:

OUTPUTS

ARE

THE

66.

TAD

3336

1764'

3337

1040
3764'

CHA

0763'
0165'

JHS

5600

JHP

3340
33“!
3342
3343

IflKaE/RIAL DISK

CNTRLL:

PROGRAM:

XCBCNT

[EXIT

TTVLPT

JMS

FORMATTER

UPARON
CDOET

[GET PRESENT COSNIT INDICATOR
ICOHVLEMENT IT
ISTOR NEH CaSwIT
'
ANU CHAR 0N NEH DEVICE
ICDPRNT
IRESTOKE THE REGISTERS

TTVLPT

DCA

HD-DB-DNRKD-o

PALID

VlflzA

22-FEB-11

13:13

ICONTRUL

ICONTINUE RUNNING VROM

INOUIRE

ERROR

I
I

3304
3305
3306

0763'

CNTRLEI

JHS

0765'

JMS

5600

JR?

UFARON

[PRINT

C65E7
XCGCNT

IGET THE REGISTERS

THE

IRETURN

CONTROL

CALL

CHAR

PLUS

ONE

ICONTRUL C

[RETURN TO MONITOR CONTROL C
3760'

CNTRLCI

6203
6007

5760

DCA
JMS
CDF
CAF

0763'

TTVLPT
UPAROU

CI?

ICLEAR THE LPT FLAG TO PRINT ON
ICOPRNT A' AND LETTER IN CRAR
IOO

ICLEAR

DISPLAY

FLO
THE WORLD
0

JMP I
l1600
IGO TD DIAGNOSTIC MONITOR
[CORR-Ilflll.tl'tltiltiRICO-DIRRIIIIlilllnlltlI!IIIOIIIQRIIIIIIIIOIIIOI
I

I
I

3360

1600
3012
3505

3515

3721
3020

0100
3623

3370

3371

0217
3671

3676
3615

3371

‘123
012!
0000
0122

3400

PAGE
I

ICONTRUL O
ICHANGE
ITHE

3000

0215

3001
3402

7600

3003

5207

300A
3505

1777'

3406
3007

2213

3010

3213
4224

3011

CNTRLD:

1213

I256

UPAROH
JMa
TAD
CSSETO
31A CLA
JHP
TAD
DCA
IS!

3214

CODOII,

THE SNITCH REGISTER
PROGRAH RUNNING-

CAUDII

ANYTIHE

ICRECK

CNTRL D

AND

THE RETURN

RETURN

ADDRS

100

SAFE

JHS

XCGCNT
CSRETD
COSETD
XCIPSN

DOA

COIETD

NOT CHANEE THE RETURN ADDRS
[GET THE RETURN ADORS AND SAVE IT
IIAVE THE RETURN HERE
IINDICATE RETURN SAVED DONT DISTROV
IGO CHANGE THE SHITCH REGISTER
[CLEAR TNE FLAG

J"!

CBEET

IRESTURE THE AC

LINK ETC

PAGE

DISK

IRKaE/"KDL

PROGNAMI

FORMATTER

30!!

56l0

3013
3010

DUDE

PALxu

MDvUS-DHRKD'O

JHP

15!!!

PAGE

1-52

PAGE!

0806

PAGE:

0001

[RETURN TO THE PROGRAH

CERETD

22-PEE-1T

V102:

0606

CGSETD.
CBHETO:

/THIU NILL TYPE
3015

OBOE

3016

1376

O
TA

3017
3020

0775'

JHS

1770'

TAD

3021
3022
3023

0775'

J"!

0773'
5615

JHS

3020

OBOE

3025

12wa

UPAROH,

ARROW

AND

THE

CHAN

CBCHAR.

"'"

[CSPNNT THE
’
ICODE FOR

(356
XCBTYPE

THE

AND

CHAR

CSTYPED

‘

[CSTVPE THE CHAR

CECHAfl
XCBTVPE

XCGCRLF

JMP

[EXIT

UPAROW

ItIiiCltlttifiillfitfitt‘lllfillfit‘lll.‘I‘lifilfifilikliifi‘i‘fifilNONIiiiiiiiifill

CSUET,

CLA
TAD

HGSAVE

1771'

"UL
TAD

FLSAVE

3031

7600

HAL

3032

7ZBO

CLA

3033

1770'
5620

TAD

3026

1772'

3027
3030

7021

3030

[RESTOHE MO
[fiESTOHE THE LINK
[RESTORE THE AC
[GET THE REGISTERS

ACSAVE

JMP

CBGET

Ititii'tltlfitfiI‘Ilififllfil‘ifilit'llllllittl'ltl"iltl‘tfililtttllfiiltlfli

ICBINUU

[CEINGU ROUTINE

WILL PRINT A WAITING
I! EXPECTING A CONTROL CHAR INPUT
FRO“ CONTROL CHAR RETURN AS CALL PLUS ONE

/AND THE FEDERAM
[If
[If

CONTINUE

No CONTROL CHAR ENTERED inn» HAITINE 13 REPRINTED
IAND PROGRAM NAITS FOR A CONTROL CHAN AGAIN.

COINGU

IE1.

JHS
XCBINO
DO ANYTHING

3035
3036
3037
300a

3001

IRKaE/HKBL

DISK

BOUO
15mm

J"!

[CALLS

USED

XCUINO,

AH:

XCGINO
NILL

[C6

/NETURN

PRINT A NAITINGANO
IS CALL PLUS ONE AC

WAIT
'0

FOR

INPUT

CONTINUE

-CHKCLA-XCSPNT'XC5TVI-CBGET-XCBCNTRo

CLA :LL

0767‘

JMS
SKP
JHP

7010
5635

FORMATTER

PROGRAM:

[CHECK

XCUINO

[ACTIVE CONSOLE PACKAGE
[NOT CUNSULE LEAVE

Mo-wa-DHRKo-D

3442

0766'

JNS

son:

3451

HATHES

3004
3445

0795'

JHS

0220

3006
3aa1

0777'
5635

JHS
JMS

saso

5236

3451

2701

3452

1120

3053
3050
3055

070%

JHP
J"?

NATMES,

CHKCLA

LUC

PALIU

BIT

CONSOLE BIT

22-FE8-77

V102A

tell!

PAGE

1-5]

XCDPNT

[INQUIN
[GET

lcsTTvl
CSGET
ICSCNTH
XCCINO
XCBINOOI

TEXT

"WAITING

WAITTING

CHARACTER

[CHECK

[EXIT ANO
[REASK

CHARACTER

CONTRUL
CONTINUE

1116
COCO

ItClIt‘llitltl'ttllttfitlRIIIIIIIIGICIJOIIICIIItittlltflttlititillnliitfi

[ceswll
[ROUTINE NILL CHECK IF CONSOL IS ACTIVE IF IT IS ACTIVE DISPLAV
[SH QUESTION . 1N NOT ACTIVE IT HILL NUT PRINT THE SN QUESTION BUT
[RETURN TO CALL PLUS ONE Ac-O,
[CBSWII HILL SET UP THE PSEUDO SWITCH
[EEGISTER WITH THE NEH DATA ENTERED
I
I

CGSHIT

JMS

[El.

XCUPSH

XCIPSN

[SET

PSEUDD

[ON

THE

CONSOL

CBSHIT

CALL

[CALL5 USED ARE oCNKCLA-XCSPSH-XCBPNT-XCEOCTA-XCSTYPE'

3056
3057
306%

3061
3062
3063

BOOB

XCUPSH,

0767‘

JMS

7018
5656

SIP

JNP

1305

TAD
SZA
JMP

CL‘

3060

160C
5760'

3065

2305

3066
3067
3070

0766‘

3071

132

CBRDPSa

JNS

CHKCLA
XCBPSN
CBSNST
C6670

CSSHST
XCIPNT

[CHECK LOC 21 BIT 3 CONSOLE CIT
[ACTIVE CONSOLE
[DEACTIVE CONSOLE PACKAGE
[IETURN WITHOUT ASKING FSEUDD SHITCH
[16 THE SOFT FLAG SET FOR SWITCH?
[SKIP IF ONE ENTRV AT ATIHE OK
ISECUNU ENTRY NITH OUT A EXIT GO TO SN QUESTION
[VIRST ENTRY SET FLAG

[COPHNT

SR-

3507

MESA

1020

EB
XCSOCTA

[GET

0763'

TAD
JHS

3072

llba

TAD

0775'

JMS

(00
XCITVPE

[GET SPACE

3073
3070
3075

2761'
avau'

I81

INHODE

[SET

1H8

XCIECHO

[Luna 70R

3076

0315

3071
3560

I770'
5028

JMS
TAO

3501
3502

3306

1357

CONTENTS OF

[CONVERT

FLAG FOR

ASCII

CHAR

EXECTED

INVUT

TSTCNA

[NOT

[STORE

DCA

CSCHAR
20

TAD
DCA

(-3

THPCNT

[GET A MINUS 3
ISTONE IN TEMP COUNT

CONTROL
NEW

TEST

CHAR

IT
SN

LEGAL

REC

PLUS

ONE

IRKDE/RKDL DISK FDRHATTER PROGRAM: HD-na-DnRKD-D
3503
3500
3505
3506

3501

0150'

GETCHI.

4315
1020
1106
1000

In:
JHO
TAD

1114'

TAD

3511
3512

seas

DCA

2306

152

3513
3510
3515
3516
3511

5303

3520

1650

TAD
sNA

3521
3522
3523
3520
3525

5302

JNP

1114'

TAD

3526
3521
3530

IGET

TsTCHA

/CHECK 1' CR 4 GOOD CHAR
[GET cusuIT REGISTER
IRDTATE IT LEIT 3 PLACES

CLL

1911}

IMP

TSYCHA,

GETCHI
ENDIT

IGET CHAR s ADD IT TD PREVqus
[SAVE New CONTENTS
IDUHP COUNT
IJMF BACK v GET NEXT CHAR
IEND a CHAR CETTPED IN

1215

ICHPL CHAR IN AC
ITEST IF IT Is A

ENDIT

[SKIP IN NOT CR.
IRAs CARRIAGE RETURN

CuCHAR
20
YHRCNT

JMP

5302

cLA

CARRIAGE

1355

TAD
GPA

5336
1114'

JH?

ERHI

INDT CH. GET CHAR
ICNECR IF IT I: IN RANGE
IIF NOT PO0ITIVE CNERR CHAR
ICEERR — CHAR TDD SHALL

TAD

CBCHAR

IGET CHAN

1350

TAD
SHA
JHP

(-270

CDCHAR

(-260

CLA

SMALLER

03!:

AND

3110'

DCA

CGCHAR

[STORE

3535
3536
3531
3500

5115

3301

5266

JHP
TAD
JHs
JR:
JHP

3502
3503

0113‘

3500

sass

3505

0000

CDCNCT.

3506
3501
3550

0000

TMPCNT.
MESA:

1100
5355
1110‘

CLA
ERR;
CDCHAR

TAD

IGET

3551

3555
3556
3551
3560
3561
3562

1520

3563

3600
3315

IExIT

ACUTTPE

11
I

xcoanF
CBRDPS

ans

ACCCRLF

DCA

cususr
xcoPsN

JHP

IExIT
IDD A

AER

ICLEAR

AGAIN

THE

PSH

IExIr

HDUTINE

PALIU

V102A

ENTRv

FLAG

see:
3616
0000

3012

FDRHATIER

0000

3510
3571
3572
3513
3570

0122

PROGRAM]

HD-Da-UHRKD-D

22-FEB'71

15113

PAGE

0120
“123

3623
3615
3611
0336
3200
3600

PAGE

ICIOCIA

[OCTAL TO ASCIA CONVERSION
[THIS NUUTINE WILL TAKE THE UCTAL NUMBER IN THE AC
ITNE RESULT WILL BE PRINTED DH THE CDNBDL TENNINAL
I
CHUCTA‘ JHS XCGDCT

AND

CONVERT

ASCII

1E1.

In:

I
I

RETURN

[CALLS USED

0000

xCooCT.

ARE

ACUDCTA
TD GALL

3221

DCA

CGYHPI

1311

TAD
DCA
TAD

1-0
CBCKP
(0001
(260

lFDSITIDN

CITHPI

/SAVE

3606

1221
0316
1315

AND

0211
1221
1006

INS

XCITYPE

(TYPE

TAD

CEYMP1

TAO

RTL
RAL
DCA
181

COYMPI
COCKP

JMP
JHF

C6000
X00001

0000

I
CBTHPIA

0000

cacxv,

2222
5206

5600

CHANGE

THE

CORRECT

FIRST CHAR
POSITIONED

PRINTING

FOR
HDRD

HERE

ISTUNE COUNTER IN HERE
IGEY F1001 NUMBER

3601

1000

RTL

ITL

3221

NUMBER

Aclu

CLL

c0000:

IAC CONTAINS

PLUS DNE

'XGBTYPE'

1106
1006

3222

3622

0009

ICGPNNI

1115

3561

3600

PAGE:

IN CHAR

CHAR

"an.

TEXT

0215

3103

3511

TsTCHA
1211

THEN

1510

3566

3515
3516

ENDIT.

THEN 260

1500
0000

0211
0001

lRKOE/NKOL D155

ERRI'

3355

3552
3553
3550

3560
3565

I'35

CONTENT!

RETURN

7110

2322

0000

CIA

1001
1355

1352
:115'
«113'

PAGE!

3533
3530

3532

1-50

CHAR

IGET A -210 A CHECK IF IT Is LARGER
ICKIR IF LE5: THEN 1
ICAENN DN CHAR NDT IN RANGE
IGET CHAR
IHASA rDR RIGHT BYTE

3531

PAGE

HAL

3510

0000

22-FEB-11

V102A

ACDEGHD
20

RTL

PALID

[MASK

[ADD

THE

PRINT CON01ANT
THE NUHBER

IPUT NEXT NUMBER
ISTDRE IT

IN POSITION

IDDNE 1E1 NITH FOUR
[NOT YET DO MORE
[DONE HITH FOUR

NUMBERS

Itil'lliifilillll!lt!IlIIIIitfltDill!Ii!!!II'lltilfllllifillltfilfilillit!!!

ICICRLP
[cflTYPE CR

AND LF

WITH FILLER! FDLLORING EACH LF

I
I
I

CBCRLF'

JH5

IEX.

JHI

XCBCRLF

AND

NIIH

PLUS

ONE

XCBCRL
ICGFNNI

IREIURN

AND

CALL

FILL
AC

IRKaE/NKEL DISK

FOAMATTER PRUGRAHI

ICALLS

3623
3°34
3625
3636

3927
3636
3631
3632
3633
363‘
3635
3636

5000

TSOO
1370
6277

TAO
J"!
TAO
CNA
OCA
TAD
JHS
152

1237

1373
C6002.

2206

3637

5233
5623
OBOE

364C

COCO

22-FEB-77

vxazA

16:13

PACE

l-3b

PAGE!

ouso

PACE:

was:

~xcaTvPE-

XCOCNLP'O
CLA CLL

764%
3356
0277

FALIO

no-ua-unaKo-u

USED ARE

[GET

(215

FILLER
CODE FOR

FILLER

J"?
JNP

FILCNT

IOTUNE

(212
ICOTYPE
FILCNT
C5002
XCOCRL

(GET

HERE

[CHECK UN FILLER CNAK
[TYPE A NON PRINTING CHAR
IEXIT
IFILLEN SET FOR B CHAR
[COUNTER FOR FILL

WOO“

FILLER,
FILCNT:

PON

CUDE

XCUTVPE

IIIIltfllltlO‘EOIIQIOOIItiltlilllitiiI'lllllfilfittlilliiilfinlfifilfl

ICBCKPA

HILL CHECK IF A CHARACTEN WAS ENTERED FROM THE
lFTHE FLAG :3 SET AND THE CONSOLE PACKAGE 1:
[ACTIVE A CHECN Is MADE To DETERHTND 1r IT 13 A CONTROL CNAR.
117 IT uAs A CONTROL CKAR THEN ITS CONTROL FUNCTION 15 PERruRMEO.
11F NOT A CONTNOL CHANACTER On A CDNTROL E-D- L- 0- IT KILL DO
/Tn£ cuuvaoL FUNCTION AND RETURN To CALL PLUS a,
[A NON CONTROL CNAHACTER WILL OE PaxNTEuANu A "1" [T waL RETURN TO
ICALL PLUS a.
115 NO FLAG IS SET on THE CONSUL 15 NOT ACTIVE TNE RETURN :3 TO
[CALL PLua I.
ITHIS KOUTTNE
ITERHTNAL.

XCOCKP

JMS

COCKPA'

IE1.

JMS
XCOCKPA
ANYTHINGLSKIP)
ANYTHINGKJNF EXIT

I
I

[CALLS

USED

XCBCKPy

O
DCA
GTF
OCA
NOA

ARE

OOBO

3642

3112-

3603

some

3640
seas
3606
3601

3171'
1591

OCA
Ksr

MUSAVE

ens;

3650
3651
3652

5261

JHP

CEUVS

uTET'
1010

JHs

CHKCLA

IRKOE/NKOL 015K

[SAVE
ICAVE
ISAVE

AcaAVE

FLSAVE

IPU1

FREEMAN!

5261
0766‘

JMs

XCOTTYI

A765’

Jns

CBGET

area'

JHs

xcacNTR

7000
azal

NOP

3661
366a

0765‘

Isl
JNs

JHP

NOT

1F CONTROL CHAR SET
NOT CONSOLE ACTIVE
CONTROL OR CONTINUE

CONTROL

CCEV:

FLAGS
FLAGS
AC

THE

IExIT

SIT

az-PEa-TT

vtazA

PAva

15:13

PACE

a-sT

CALL PLUS 1
CKAN
/GET
IGET THE PLACE
ICuECK IF CONTKOL
CNAR.
IRETURN If A CONTINUE CNAR.
IBUHP NETURN FOR CALL PLUS a
ICET REGISTERS
[SAY GOOD av

KCCCKP

COGET
XCOCKP

THE

KETBOARO PLAC
IEsz Tu CALL PLus 1
ICHECK Lac 2! BIT 3 CONSOLE
IACTIVE CONSOLE PACKAGE

MD-UC-OHRKn-O

3653
3654
3555
3655
3651
365a

cauvs,

THE

ICHECK

JHP

5601

THE
THE

ISACE

SKP

FORMATTER

IRETURN

CNAINJ

-xC8TTVI-XCOCNTE-CGG£T‘

3641

3770'

/CALL TO CHECK
IF NOT FLAG OR

[RETURN
SKIP

TO
THE

//ll‘ililflllil‘llllill'ltllfllllflll!Ilitfllfln‘illlitttttlfitttiifitlilillfi

ICOECHU
[THIS ROUTINE "ILL LOOK FOO A CHAR Pnon THE KEYBOARD.
STORE 11 IN LOCATION
PRINT CHARACTER
/CHECK IF IT HAS A CONTROL CHARACTER f SET INHOOE

CHAR

IE1.

ICALLS

COECHO
JNS

USED

J”! XCOLCH

XCOECNO

ARE

[LOOK 70R CONSOL CHAR
/RETURN CALL PLUS ONE

COPRNY
AC

CHAR

COTTPED

'ICOTTVIIXCOCNTR-COGET-XCOECH-XCOTTVPE

3663
5664

Oil!

3665

a765'

3666

2276

3661
361a

4764'
5663
aaTT
327a

3671
3672

XCOECN.

Jul
Jns

"766'

151
JMO
JNP
JHO

3673

1275

TAD

5663
BOOB

J"?

COCOA";

BIO!

INHODE:

3675
3676

INAIT

lRESTONE

XCBCNTN
ICOECN
xcuTVPE
INMODE

DCA

3674

xcaTTvx
cuGET
INHODE

ISET
IGO
(HAS

run CNAR FROM KEYBOARD
THE REGISTERS
INHODE IDENTIFINE THIS A: A EXPECTED CHAR
CHECK IF IT IS A CONTROL CHAR

[NOT

CONTROL

CONTauL CHAH OCPaNT XT
PLAC TNAT CHAR EXPECTED

ICLEAR

caCHAR

IGET

XCBECN

[EXIT

CHAH

CHAR

CONTINUE

RUNNING

D
O

IIt.ItIIC.‘II1‘OIifilfiIIOti.IIOOI..filIIIfit.flIIII'llflfili‘filiI'IIIIIOIOII
ICOTVP:
ITNIS ROUTINE

"ILL CIPRNT ON THE CONSOLE OR TNE LPT VITH DEVICE CODE 66.

COTVPE'

JMS

IEX.

JHS

XCBTVPE

XCOTVP

ICIPRNT THE CHAR IN TNE AC.
[RETURN CALL PLUS ONE AC IODOO
IOO NOT CLEAR THE LINK IN THIS ROUTINE NEEDED OYCOOCT

ICALLS USED AR: FCIHANC-XCCCNTN-ICOPNT'XCBCRLF-XCOINOU-

3677

COCO

3700

3326

DCA

3701

1321

3102
3793
373‘

7600
5312

TAD
32A

132C

XCOTVP'

JHP
TAD

TTVLPT

[STORE CNAN
[CHECK OITTY

XDDLPT

[00 OUT

PNTBUF

7177ILPT

CLA
FNYOUF

PUT

LPT

IRKGL/RKBL DISK FURNATTER PROGRAM:
31D5

bfllé

TL!

3106

and:

TaF

5325

JMP
TCF
JMP

all!
531G
1326

MD-Ua—DHRKD-D

TAD
PsTB

4322

JR:

coca

PCLF

Cauvs
PNTeUF

C6515,

DDDD
man!

PNTBUFI
TTTLPT.

came

EOHANG.

16!!!

PAGE

1-58

PAGE:

0052

PAGE

1-59

PAGE:

wuss

IGET CHAR
ICOPNNT IT
ICHECK KEYBOARD
ICLEAR THE FLAG
ICLEAR THE AC

PCLF
CaHANG

Team

Than
5611

az-FEe-TT

vxuaA

.-|

aces

XDULPT.

PALlu

JMP

HUNG

IEXIT

XCGTYP

0
0

Taco

CLA

1315

TAD

3320

DCA

one:
1012

PsKF
SIP

5122

JHP

1305

Is!
JNP
:51

CBCONT

5331
1763'

JMP

.v:

CUNsTANT Team
Ts Nuw A COUNTER
UN PRINTER DONE
INDT DUNE VET
ISAN FLAG DONE
IFstT COUNTER FAST ONE
ICNICK IF FLAG :ET VET
IMAGE uuao CUUNTs UN FAST
/KEEP IT UP FUR 5 SEC

TAD

XCBCNTR

/GET

THE

332:

CCHANC

ISAVE

TTVLPT

IALLuu

«163'

DCA
DCA
JR:

sine
4223

HESHANU
IN!

4192'

an:
JHP

5326
232C

3321

5122

I
cabvs
PNTBUF

IGET

IPNTUUF
stxw

CBHANG
.-a
PNTBUF

RETURN
IN

ADDRESS

COUNTER

IN CONTROL

RANU

PRINTING

TTV

xCuPNT

00am

CacoNT.

142a

MEsHANG,TExT

ILFT

LRRUR

xcaanF

XCBINGU

IPRINT

EBHANE

ICONIXNUE

ICOUNTEH

FUR

PALIU

V1uaA

HITTING
SAVE ADDREss
TIMER

“LPT saRoR'

Edna

use:
2211
220a

3‘55

310!
5200
Juan
3312
aaua

«123

«Tea
0122
0212

aaxs
mace

CCGT
111“

IRKeE/RREL DISK FORMATTER PuuGuAna
5303

HD-Ue-DHRKD'D

aa-FEU-TT

16:13

PAGE
llIIfilfltiillli'i!l!‘IIIIllltifiIllIt.It!!!tltttlll'ittiIttttfiiilliitili
Illtlttifill.Il'ilnilllilllfltllfltlnIiiltttlitiiilfltli'lititaltt'lflll!

ITNXS

RUUTTNE NILL CNECK LOCATION 24 THE nARo RARE CUNFIG quo.
SEE IF THE CUNsDLE BIT 3 Taco) II SET IF SET THEN RETURN
[TD CALL PLU: Tun PO A ACTIVE CONsoLk PACKAGE ACIU
ITF ND! SET THIN TU CALL PLUS UN! FOR A DEACTIVE CUNSULE PACKAGE.

ITO

Baez
1290
10E:
a317

CHICLA.

CLA
TAD
AND

BNA

7656
2230

la:

Shun

JHP

IGEI

Tana

IHAUA

CLA

THE
FUR

CUTENTA 0F LOCATION
BIT 3 tuna

CHKCLA

[ACTIVE CONSOLE PACKAGE RETURN
[CALL PLUS ONE (1) FOR ACTIVE

CHKCLA

IDEACTIVE

ICALL

CONSOLE PACRAGE RETURN
PLUS Two (2)

ICBERR
[THIS
[HILL

ROUTINE
CHECK

CaERRA

IE1.

Jns

NILL DETERMINE WHAT TO DU VREN A CBERR :5 ENCOUNTERED
CLASSIC svsTER, uxLL CHECK EBSHIT REGSETERS.
JR:

XCCERR
XCIERR

160

To CIERR CALL 1F
Is CALL FLU:

IRETURN

NUT

CONsDL

DNE

'nuue

ICALL: USED ARI -CHKCLA-xcECRLF-xcasu-ACEINCU-xcsPNT-XCCOCTA-

auea
6002

xceERR.

10F
DCA
GTF
DCA

3322
CODA
3324

AcaAVE

ISAVE

FLUAVE

(SAVE

THE PLACE

HBSAVE

ISAVE

1501

"DA

3323

DCA

Tlau
1231
3321

CLA CLL CMA

4200
101a

TAD

ACEERR

DCA
J"!

PCSAVE
CHKCLA

5263

SIP
an!

0115'

J"!

A115'

JHE

CEEET
xcaau

AND

(0000

0314

IETUPII

NTCLAs

THE HG
A I FDR TRUE LOCATION
RETTURN LOCATION
ICAVE ADU UF CBERR CALL
ICHECK LDC.22 BIT 3 CONSUL BIT
IACTIVE ¢ONSULE PACKAGE
INoT CLASSIC svsTEn
IGET TH! REGISTERS.
ICRECK CNITCH REG FOR BIT THAT INDICATES
IND ERROR nEsaAGE
[MASK FOR IIT FOR NO ERROR PRINTING

IEUBTRACT

IGET

[IF THIS ERROR MESSAGE
0027
403!

1600

81A

5255

JHP

Canola

4031

ITTS'
4712'

JHB

chCRLF

JR:

XEBPNT

5015
4172'

ERRME:
JHS

XClPNT

#032
5033
4034

CLA

TD ALWAYS

ICE PRINTED LEAVE AND VALUE AT aaua
IaxIP 1F 611 Is a PRINT ERROR HEsaAGE
IDO NUT PRINT

IPRINT

TNE ERROR MESSAGE

lRKBE/RKDL DISK FORMATTER PROGRAM:

MD-UO-DHRKD'D

HESPC
TAD
JHS
JMs

0105

A836
5637
DEED

1321
0771’
6112'

4241

MESA:

All!

A118
1322
0771'

XEBPNT

0003

ICUDCTA
ICIPNT

TAD

ACSAVE

JMS

XCBOCTA

00“

4112'
A115

JMs
Hzano

4646

1323

TAD

ABET

n111'
4172'

Jns

HGSAVE
xcaocTA

Jun

xcaPNT

H116
1320

MESFL

5051
5552
0053
4055
0055

4056
6257

“BBB
A061
“we?
‘06!
A060

4711'

4773'
A716'
4715'
7610
5213

cauuza,

5213

NTCLAS;

JMB
J"?
JMD
Jun

ILEAVE
[GET THE REGISTERS.
[CHECK Psluou SWITCN REGISTER
ICnEcK TN: CUSHIT REGIGTER
[SKIP 1F MALT
IND HALT CONTINUE

xcosu

XCHERR

(7062
PCSAVE

AUTI

0716'

4MB

A672
A073

5721

an!
Jna

PCSAVE

BB7“
D875

5607

an?

UBGET
XCGERR
“DNRKDD

TEXT

MESPC.

TEXT

PC!"

MESAC,

TEXT

ACI'

Mtsnu,

TEXT

M0!“

MEsFL,

TEXT

FL:'

1117

PC§AVE1

1111

1717

ACSAVE.

7111

neat

085“

1311!

PAGE

[-41

PAGE!

“$55

TNE REGISTERS.

Icon:

[PUT

TNE

ran

INQUIRE

ROUTINE

HLT

CALL Lac.

CEGET

ERHMESI

«mun

[GO

EDGET

ouoa

COBVZ

DEA

“15‘
“102

PAGE:

ASCII

ILEAVE

:12:

#190

l-flfi

MESS

E3612
XCUINU

«B7B

“$71

[PRINT

ICHECK swl1cn REGISTER
IsKlP SF 637 v SET

CLA

uule
2213

THL

IGET

TAD

“$76

[PRINT

0161?

xcasu

JHP

cauvz,

CBGET

1367

3170'

ICUNVENT

CLA

161m

0067

PAGE

XCBCRLF

56E?

4966

15!!!

SYSTEMENT

(Palwf FL

SIP

“DOS

FLbAVE
XCBOCTA

JMa
aKP
JMP

u71a'
4776‘
4115'

TAD
JMS
J"!
JH:

22-FEa-77

VIMEA

THE

?C3AVE

4805

IESO

FALIU
[PRINT

HESS

Tu CALL AND
IEIIT
IGEY THE REGISTERS

FAILED

HALT

111"
0520

KOBE
0630

all!
1266
naaa

DIE}
723a
oven

1521
72e6
unua

0614
1aaa

IRKflt/RKBL DISK FURNATIER
5123
4123

1777
1171

PRDGKAMI

MGBAVEI

FLSAVE;

is:

azsv

1002

aa1m
a111

3055

5112

360B
31%}

A113

3&2}

a17a

Dunn

a115

3662
3420
”“09

A176

@177

nouoo-Dnnxo-o

1177
1111

PAL!»

vxazA

aa.rau.11

IRKOE/RKOL 018K IURHATTER PRDGIAMI

MD-UG-DHRKD-D

PAL10

V1421

ZZ'FEBU7T

11111111
11111111

1
1

11111111

11900000

00000000

11111111
11111111

11111111
11100111

11111111

1
1

11111111
11111111

11111111
00000000

00000111

new

11111

110000
111111

11000000

0100

11111111

11111

0000

11111111
11111111

11111111

0300

0.00
0500

11111111
11111111

11111111

0600
0700

111111

11111111

1 11000

00000111

1000
1100

11
11

1200

1300
1000

111
111

1500

11111
11111

11111111
11111111

11111111

11111111
11111111

1600

1111

1700

1111

2000

11
11

2100

11111111

111
111

1111
1111

11111111

11111111
11111111

11111111

111111 11

11111111

1111111 1

11111111

11100111

11111111
11111111

11111111

11111111
11111111

11111111

11000001

11111111
11111111

1'02

PAGE!

0056

15113

PIGE

1'00

PAGE!

0057

11111111
11100000

11111111

1111

00000000

1111

0105

11111111

11111111
11111111

11111111

10113

2200
£300
3100

2500
2600
2700

I000

11111111

1111

11111111

3100

11111111

1111

10000001

11111111

111 111
111111

5200

1111111
1111111

1
1

11111111

3300

11111111
11111111

1111111
1111111

5fl00

111111

11111111

3500

111111

11111111
11111111

5600

5700

11111111
111 11111

[fiKaE/RKBL 015K FOHHAYVER VHDENAMI

.000
“100

0200
0300

0400
0500
0600

4700

S000
S100
5200
5300

5000
5500

5600
5700

6000

6100
6200
6300
6500
6500
6600

6700

7000
7100

7200
7300

7500
7500
7600
7700

11110000

11111111
11111000

MD-UI-DHPKD-D

PAL10

11111111

00000000

11111111

V1424

22-FEO-17

11111111
00000001

11111111
11111111

liKQl/RKBL DISK FORMATYER PROGRAH:
A0770
A7007

0353

DSK6A

0106

05K6l

0157

1070
laTl

0730
0701

0122

0337
1112

DSK7A

0107

10T2

0137

CHKfll

1001

00110

1013

0150

CHNPOT

1517

DSKCNT

0160
0105

0706
0710
0705

1637
1600
0125

CKCDUT
CLDH

3032
0105

6701

IDTS

CLKCNT
CLRALL

013a
4405

DSKP
DSKSKP
DYWEE

0041
0126

ENDBUF

CMREG
CNY

0121

ENDIT

2577
3502

1076
IOTCHN
K0003

1530

INDIQT

CNTRLC
CNTRLD

3307

CNTRLE
CNYRLL
CNTRLD
CNTHLH

1600

AGAIN
ALLAGN

0533

AUTUll
BEN
BGNBUF

BGNTST
EVRETR
CIBY1
C0072
£6073
C3370
C6075
CGCflAR

CBCKP
CGCUNT
C8001
£60010
060011
05002

3676

CNKCLA

AERRD

AUTO10

INHUDE

CHKDAT
CHKDSK
CHKER

ADPTI

APYeA

0156

1513

ADPOTI
100072

AMOUNT
APTB

V102A

03K50

1512

7701

ADREG

PAL10

4000

ASL
AESAVE

A0P72

0220
0056
1125
0024

0010
0011
aaaa
0055

0121
3306

CNTRLS
CNTVAL
COUNT

3030
0073
3661

CRLF

3315

DAREG
DATCNT
DAYER
DAYDK
DCLR

3716
3675
3622
3145

£5AV21
CSAVEZ

3110
4035
3007
3633
3150
3606

DLAG
DLCA

C5007
C66E7

3326

CBHANG

3122

C6007!
£00570
CORETR

3066

DONE
DONEA
DOPACK
00667
DRIVNU

C6003
£0000

CGSETD
065573

3424

3010
3335
3013

003037

3334
3505

£67071

3021

CAF

CAREG
acutn;
CNANG
CHANGR

CHAR
CHECK

lRKBt/RKBL DISK

16113

22-FEB-77

MD-Wl-DflRKU‘D

DLDC
DLSC
DHAN

DDCN7

1070

K0007
K0010

ERHLTO
60HL72

0020
0736
0750

3300
3333

ERHLTB

0716

tRHLTu

0707

K0037
K0000
K0077
K0100

3300

ERHLTS

0670

K0177

3311
3320
3052
1533
0052
1510

ERflLT6

0731

1515
0123

ZERO

0131
1103

3000

K0200
K0212

K0215

600663

2000
3536

K0200
K0260

0075

K0277

0065

0036
0037

K0316
K0331

tiTll
60702

1660

K0000

1371
1372
0073

16I5

02000

1627

1071

:01x3

1705

K3600

314a

60110
51017
2x1!

1717

K3700

1311

0120

K0
K0000

0061
0070

1310
0667
1571
1620
1173

EXXIA

1306
3200

K0100

:xchx

1551

K5000

e101
3007

FILCNT
FlLLIR

3600
3637

K6500

0250

FLSAVE
FORMAT

0120

K7377

3226

K6520

FPOCT

1227

K7700

1322

FRSYUK

1056
0117

K7735
31101

0071

000602

0140
0151
0101
0152
0102
0133

067001

3503

K7760

0072

GETDAT

3256

3203

x7771
KAENRO

0557

0017‘
5070!
GTF

3250
6000

KCDF

0075

KCNY

NEDL37

0553

1555
1621

05031

0103

"£0700
HIGflAD
HITRK
HOMEMA

0552

03030

KERHO
KILBUF
KLBUF
KTXCK

Dana:
Danna
DSKIA
DSKxB

3001
0124
1513
1493

1077
0101

05141
DSKIB

0154
0144
0135

0130

KTIME

0000

DSKSA

0145

1N0:XA

3255

KHAIT

HD-UfltuflfiKD-D

PAL10

V102A

03K26

PROGRAM]

0103

2200

22-FEU'77

0026

0035
0752
1530
1557
1611

16113

PRNTER
531E

0007

TEXST

1652

X0087

0000

6665

TICK
7102
TMPCNT

0027

XRDTRK

0032

6663
6661

0025

XREG
XRESTR

0506

6660

XSOKP
XTABLA
XTAHLB

0001

0006
0130

P570
073700
QUESI
RDST

LDDER
Loofil
LODTRK
LOTHK
LDWAD

0650

ROSTAT

0000

0611
0431
2201
010a

0033

M10
"31!

0077
0060

RECAL
RECE1V
REDOSK
REDOA
REDYRK

RENEXI

0076

0335
0010

MCNTR;

1601

0711

LDADD

0400

LDCA
LDC"
LDCHD

0700

L0000

0003

L030

LOCBED

0720
0002

RENEXZ
RE37A

3136
0232
0671

vocr
Ynxc~1

3506
1200
0100

TsTCflA
TYYLP7
700C!

3515
3721

7v?!
uPnRuw

0036
3015

UPON:

1215

XTICK
XYIME
XYOCT
XHAIT

3215

qur

1327

XWRTflK

1000

WASUSK
NATMtS
HRKSUF
uRTOax
uannx

0202

XXLDSC

1000
0500

xntnuu

0026
0020

0220

xcacuP
ICGCNT

0030
0032

1025

0051

30:1
2200
0321

H531

2005

M582
M253
MESO

2066

RESTEH
RESYBR

2117

RETRNI

2126

HESS

2135

SAHAGN
SAVPC

MESA
nasAc
HEJFL
MEsHAN
MESHG
HESPAS

3507
0110
0116
3706
0113

SBCNT1

1622
0106

SDKP

0700

XCOCCH

3663

SETUP:

0026

3025

XCBERH
3C61N0

0001

367092
6057

3053

HESFC
MOVE
”0A

0105
1623

BTAEfi
3700K

HDL
MnsAVE

MULDSK
NEXCHK

NEXFRH
N0$EY
NOTDSK
NOTE!
N7CLA3
NTGD
OCTEL
PAaCNT

PCLF
PCNTR:

PENTRz
PCNffiz
PCUUNT
PCSAVE
PN7GUF

PRXNT
PRN

1003

IAITA

XCGCNL

106007
xcavns

0600

3601
3200
3623

3035
3600
3000
3137
3103

aTchx

0136
1106
1001
0107

1501
7021

STCNTZ
STCNT}

0110
0111

ICIPNT
xcaPsw
xcasw

0123
1133
0307

STRAUT
67026
801700

0513

XC67TV

0122

lCaTVP
XOHANG

0276

7ABLA
7ABLB

0057
3261

3271
1113
0112
0113
0110

XCRLP

0030
0005
0052

3002
0200
0536

70007

3062

3072
3677

XDULPT

3712
3317
0135

0115

12000
X00007

0037
0050

0116

xn11nx

00:4

1660
1656
1650

XKLSUF

0035
0000

1650

xLoAu
XLDCA
XLDCN

YEXDT

1662

XLDSE

TEXEND
7EXEX

2021

anYRK

0733
0053

xMov:

0133

TEXGD

1606
1600

xPRlNT

0036

72100

1602

IPRN

0007

TCNTRZ

0070

TCNTR3

0050
3050
6662
0507

VENTRa
TCNTR5

TEIAD
TEXCA
TEICM
7EXOA

3720
1312
1252

XCLUN

3056

XEND

0063

0550
0551
0161
0121

XCOPAU

10030

YCNTRI

XTEIT

0043
0002

0059

1325

PSKE
PSKF

LDAD

PAGE:

0760
0670

0302
0263

K7000

FRMOSK

0087

1-05

1326

3012
3051
0100
0705

K7577

PAGE

1323

1730

05K2A

FORMA7IEH

1320
0070

0063

1756

6700
0740
e100

0058

0062

200262

3103

PAGE!

0060

200251

LRROR

1-00

0672
0727
0030

1556
1370
0066
1226
1225
1321
0067

EHRI
ERRMES

PAGE

0033
3257
3260
0505

0027
0025

0051
0030
0031
0006

IRKaL/KML

DISK

FDRMATTEi

ERRORS DETECTED!

UN“

x32

GENERATED:

RUN-YIHE:
3K

CORP.

USED

SECONDS

PROGRAM

MD-uo-DHRKD-o

PALIO

vuu

za-FEa-TY

PAGE

1-46

PAGE:

mace