MAINDEC 15 D3RA D_TC02_DECtape_Random_Exerciser_Jan70 D TC02 DECtape Random Exerciser Jan70

MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70 MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70

User Manual: MAINDEC-15-D3RA-D_TC02_DECtape_Random_Exerciser_Jan70

Open the PDF directly: View PDF .
Page Count: 65

?])P

-

~S

'])6"

c-

//1

PG

IDENTIFICATION

Product Code: MAINDEC-IS-D3RA-D

(D)

Product Name: TC02 DECtape Random Exerciser

Date:

January

14, 1970

Maintainer: Diagnostics

Group

Author: Edward

P.

SteInberger

I.

ABSTRACT

TC02

DEC

tape

Random Exerciser

is

a program for use

with

the

TC02 DECtape

control

and

from 1 to 8 TU55

DEC

tape

transports.

DEC

tape

functions

are

exercised

by

the

random

determination

of

function,

direction,

transport

number,

number of blocks

and

data

pattern

generation.

Search,

Read Data

and

Write

Data

are

exercised

in

both

Norma!

and

Continuous modes; Read All is

exercised

rn

the ContinuolJ'i mode; Move

is

exercised.

During

the

waiting

period

while

uECtape

funCIiom.

~:re

being

performed, small instruction

test

programs

are

being

executed

by

the

cer

~ra!

processor to

test

the

proper

execution

of

the

Data Break

facility.

2.

REQUIREMENTS

2.1

Equipment

2.2

2.2.

\

2.2.3

Standard

PDP-15 computer with a TC02 DECtape control

and

at

least

one

rU55

DECtape transport (up to

eight

may be

tested),

and

one

standard

PDP-9 Format

DECtape (11008 Blocks, 4008 words

each)

for

each

transport.

Storage

Program -Most of memory from 00000 to

04000.

2.3

Preliminary Programs

1C02

Basic Exerciser

3.

LOADING

PROCEDURE

3.1

Method

The

program

is

loaded

from

paper tape using the standard binary tape loading

procedure.

a.

Place tape

in

the reader.

b.

Set the

ADDRESS

switches to 17700.

c.

Set

BANK

MODE

switch to

1.

d.

Depress

I/O

RESET.

e.

Depress

KEY

READ

IN.

f.

Program

will be loaded into memory.

4.

STARTING

PROCEDURE

4.

1 Control Switch Settings

The

following

is

a table of Accumulator Switch settings and their action

on

the

program.

AC

Switch

o

2

3

10

12

13

14

15

Set

As

1

o

1

o

1

o

1

o

1

o

o

1

o

o

1

o

2

Action

-_

..

-_

..

-

...•

-_._--

...

_---_

.•.

_------

HALT

ON

ERROR

DONIT

HALT

ON

ERROR

DON

IT

PRINT

ERRORS

PRINT

ERRORS

PRINT

ONLY 4

DATA

ERRORS

PRINT

ALL

DATA

ERRORS

HIT

END

ZONE

TWICE

FOR

0000 or 1077

HIT

END

ZONE ONCE

FOR

0000 or lO77

EXERCISE

TRANSPORT

8

EXERCISE

TRANSPORT

1

EXERCISE

TRANSPORT

2

EXERCISE

TRANSPORT

3

EXERCISE

TRANSPORT

4

EXERCISE

TRANSPORT

5

4.1

Control Switch

Settings

Cont.

AC Switch

16

17

4.2

Starting

Address

Set

As

o

1

o

1

o

Action

EXERCISE

TRANSPORT 6

EXERCISE

TRANSPORT 7

The program's starti ng address

is

00100.

4.3

Operator

Action

a.

Load program

per

3.

1 .

b.

Put

each

TU55

to

be

tested

ON

LINE with

WRITE

ENABLED

and

a

standard

PDP-9 DECtape on

it.

c.

Set

the

selector

dial{s) to the

appropriate

number(s).

d.

Set

AC

switches

per

4.1

(Normal

setting

is OooXXX).

e.

Depress

I/O

RESET.

f

~

Depress

Si

ART

5.

OPERATING

PROCEDURE

5.1

Operational

Switch Settings

See

4.1.

5

.2

S ubrouti ne

Abstract

None

3

5.3

Operator

Action

"Bad"

DECtape transports may

be

"deselected"

at

any

time

by

setting

to

0

the

AC

Switch

for

that

transport.

6.

ERRORS

6.

1

6.

1.1

All DECtape

malfunctions

detected

by

that

program

result

in an

error

typeout

(if

ACS 1

is

0)

and

an

error

halt

(if ACS 0

is

1).

The

halt

wi

II

not

occur

unti I

~

errors

pertaining

to

the

block

and

operation

have

been

typed.

The

fi

rst

three

lines of

every

typeout

indicate

the

DEC

tape

dri

ve,

operati

on,

direction,

and

mode,

and

the

block

in

question.

Error Halts

Processor Test Error Ha I ts

Processor

test

errors

cause

error

halts

only.

Listed

below

is

the

location

of

these

halts

and

the

condition

causing

each.

Consult

the

program I isting

for

further

information.

These errors

are

non-recoverable,

the

program must

be

restarted

at

location

00100.

Address T

est

and

Cause

---'"

02057

lSI. Test

Locl1tion

02201 shou I d

::::

0

02063

ISZ

Test

location

02200

should

= 1

02075

ROTATE

1 Test

link

should

= 1

02102

ROTATE

1 Test

Data

Fai lure

02113

ROTATE

2 Test

Link

should = 0

02120

ROTATE

2

Tes'j'

Data

foi lure

02130 SAD

TEST

Sad

Failure

02170

JMS

TEST

JMS

failure

4

6.1

.2

DEC

tape

Test Error Halts

6.1

.2.

1

Selection

Error

If

no transports

are

selected

by ACS

10

to 17,

the

computer

wi

\I

halt

at

location

00107 to

ai

low

the

operator

to

set

the

ACS's

and

depress

CONTINUE.

6.

1

.2.2

Read

Data

Error

A "Read

Data"

error will

cause

an

error

halt

at

location

00327. To

recover,

depress

"CONTINUE".

6.1

.2.3

Vlrite

Data

Error

A "Write Datal! error will

cause

an error

halt

at

location

01064.

To

recover,

depress

"CONTINUE

II

•

6.

1

.2.4

Read All Error

.A

ilReod All"

status

error

will

cause

an error

hdlt

at

location

01677.

To

recover,

depress

"CONTINUEII.

"Read

All"

data

errors will

halt

per

6.1.2.2.

6.

1.2.5

Move Error

/':..

"f.!.f/0i~

C,t"U

\I','i!!

ccuse

an el'ra!" hoit

at

location 02351.

To

rec.:)ver,

depress

CONTINUE".

6.

1

.2.6

Search

Error

A

"Search"

error will

cause

an

error

halt

at

location

02627.

To

recover

I depress

"CONTINUEII .

6.2

Error Recovery (Non-Processor)

After

an error

typeout

the

processor will

halt.

To

recover,

depress

"CONTINUE".

For

all

errors,

the

program

will

attempt

to

repeat

the

same or a

similar

operation.

If

an error

occur<;

a

second

time

for

the

same operotion§

tnli'!

typeout

and

halt

will

occur

again.

If

"CONTINUE

II

is

depressed this

time,

the

drive

in error

wi

1\

rewind

and

the

random

selections

will commence

at

block

0

again.

If, on

the

other

hand,

no

error

occurs,

the

program

will

continue

normal

operation.

6.2

Error Recovery (Non-Processor)

Cont.

6.3

6.3.1

For

read

errors ("Read

Data"

and

"Read

All"),

the

direction

of

the

second

read

operation

to

the

original

error's

direction.

A

second

error

will

cause

another

typeout

and

ha

It.

Depressing

"CONTINUE"

wi

II

cause

the

drive

to

rewind

to

end

zone.

If

no

error

occurs

on

the

second

pass,

the

block

will be

read

a -third

time in

the

original

direction.

Any error

will

cause

a

typeout

and

halt.

The

end

result of

repeated

errors

is

rewind

to

end

zone

and

random

selection

starting

with

block a to

prevent

the

same

read

sequence.

Error T ypeouts

Search

Errors

"Search"

error typeouts

contain

the

following

information:

Drive

Number

Search

Direction

and

Mode

Block

Wanted

and

Direction

Last N umber Put in Memory by TC02

Last BI()ck

Number

Found if More than

Two

Were Found

Number

of Blocks Found

Since

Last

Startup

or

Turn-Around

DECtope

Status

B

Example:

DRIVE

4

SEARCH FORWARD

000123 BLOCK WANTED FORWARD

000070

BLOCK

fOUND

000073

~AST

BLOCK

000004 BLOCKS

READ

000100

STATUS

B

6

6.1.2

DECtape Test Error Halts

6.

i

.2.

1 Se lectj on Error

If

no transports

are

selected

by

ACS

10

to

17,

the

computer will

halt

at

location 00107

to

allow the

operator

to

set

the ACS's

and

depress

CONTINUE.

6.

1

.2.2

Read Data Error

A "Read Data" error will cause an error

halt

at

location

00327.

To

recover,

depress

"CONTINUE".

6.1

.2.3

Write Data Error

A "Write

Data"

error will cause an error

halt

at

location 01064.

To

recover,

depress

"CONTINUE".

6.

1

.2.4

Read

All

Error

ft,

"Read All" status error will cause an error

hdlt

ot

location 01677.

To

recover,

depress IICONTINUE". "Read All"

data

errors will

halt

per

6.1.2.2.

6.

1

.2.5

Move Error

'-"

"Move" error will cause an error

halt

at

location

02351.

To

recover,

depress

!ICONTINUEII.

6.1.2.6

Search Error

A "Search" error will cause

an

error

holt

at

location

02627.

To

recover,

depress

"CONTINUE" .

6.2

Error Recovery (Non-Processor)

After

an

error typeout

the

processor will

holt.

To

recover,

depress

"CONTINUE".

For all errors, the program will

attempt

to

repeat

the some

or

a similar

operation.

If

an error occurs a second time for the same

operation,

the

typeout

and

halt

will

occur

again.

If

"CONTINUE"

is

depressed this

time,

the

drive in error

will rewind

and

the random

selections

will

commence

at

block 0

again.

If, on

the

other

hand,

no error

occurs,

the program

will

continue

normal

operation.

5

6.2

Error Recovery

(Non-Processor)

Cont.

6.3

6.3.1

For

read

errors ("Read

Data"

and

"Read

All"),

the

direction

of

the

second

read

operation

to

the

original

error's

direction.

A

second

error

wi

II

cause

another

typeout

and

halt.

Depressing

"CONTINUE"

will

cause

the

drive

to

rewind

to

end

zone.

If

no

error

occurs

on

the

second

pass,

the

block

will

be

read

a

third

time

in

the

original

direction.

Any

error

will

cause

a

typeout

and

halt.

The

end

result of

repeated

errors

is

rewind

to

end

zone

and

random

selection

starting

with

block

0

to

prevent

the

same

read

sequence.

Error T ypeouts

Search

Errors

"Search"

error

typeouts

contain

the

following

information:

Drive

Number

Search

Direction

and

Mode

Block

Wanted

and

Direction

Last

Number

Put in Memory by TC02

Last Block

Number

Found

if

More

than

Two

Were

Found

Number

of Blocks Found

Since

Lost

Startup

or

Turn-Around

DECtape

Status

B

Example:

DRIVE

4

SEARCH FORWARD

000123

BLOCK WANTED FORWARD

000070 BLOCK

FOUND

000073

LAST

BLOCK

000004 BLOCKS

READ

000100

STATUS

B

6

6.3.1

6.3.2

6.3.3

Search

Errors

Cont.

The

above

example shows

that

the control was

operating

with Drive

114,

search-

ing in

the

forward

direction

for

block #123. It

encountered

block

#70

after

block

#73 (should have

been

#74).

Up

to this time

it

had

read

4

blocks.

DEC-

tape

status was

normal.

The

block

sequence

was not

consecutive,

no doubt

due

to

the

loss of

bit

15

of the block number.

Write

Data Errors

"Write

Data"

error typeouts

contain

the following information:

Drive Number

Direction

and

Mode

DECtape Status B

Contents

of Word

Count

Register (Location

00030).

Example:

DRIVE

1

WRITE

DAT

A

BAC

KWARD

CONTINUOUS

000765 BLOCK

600000

STATUS

B

777634

we

The above example shows

that

a mark

track

error

occurred

whi

Ie

writing

data

backwards in the continuous mode in block

#765.

Read Data Errors

"Read

Data"

error typeouts

are

of

two types -status

and

data

compare.

7

6.3.3.1

Status

Error Typeouts

These typeouts

contain

the

following

information:

Drive

Number

Direction

and

Mode

Block Being Read

DEC

tape

Status

B

Contents

of

WC

if

not

0

(Note:

No

data

comparison if WC is

not

0).

Example:

DRIVE

7

READ

DATA

BACKWARD

CONTINUOUS

001065 BLOCK

440000

STATUS

B

777400 WC

The

above

exomple

shows

that

an

attempt

to

read

data

from

block

#1065 on

drive

#7

in

the

backward

direction

in

continuous

mode

caused

a

select

error.

Since

WC

is

not

0,

no

data

comparison was

made.

6.3.3.2

Data

Compare Errors

These typeouts

contain

the

following

information:

Drive

Number

Direction

Mode

Block Read

8

6.3.3.2

Data Compare Errors

Cont.

6.3.4

Correct

Data

Erroneous Data

Address of

Incorrect

Data

Example:

DRIVE

5

READ

DATA

FORWARD

DATA

ERROR

001074

BLOCK

400000 COR

322667

INC

010374

ADDRS

OF

INC

000027 COR

067365

INC

010375

ADDRS

OF INC

The above example shows

that

an

attempt

to read

data

in

the

forward

direction

from block #1074 resulted in

data

errors.

In

the

first printout:

the

correct

data

was 400000,

the

data

from

tape

was 322667,

the

incorrect

data

is

in

location

010374.

Read All Errors

"Read

All"

error typeouts

are

of three types -

status,

data

compare,

Checksum.

6.3.4.1

Status Error Typeouts

Same format as "Read

Data"

-see

6.3.3.1.

9

6.3.4.2

Data Compare Error Typeouts

Same

format

as

"Read Data

ll

-

6.3.3.2.

6.3.4.3

Checksum Error Typeouts

These

typeouts

contain

the

following

information:

Drive

Number

Read

All

Direction

and Mode

Block

Number

Reverse Checksum

for

Tape

Data Checksum

Calculated

from

6-bit

XOR

of

Data

by

the Program

LPB

Calculated

by

Program

(6-bit

XOR

of

RC,

DC,

C

above).

Example:

DRIVE 8

READ

ALL BACKWARD

CONTINUOUS

000000

BLOCK

CKSUM

ERROR

000033

REV

CHECKSUM

000022

DATA

CHECKSUM CALCULATED

670000 CHECKSUM

000076 CALCULATED

LPB

The above example shows a checksum

error.

The

6-bit

complement XOR

of

the Reverse Checksum,

Calculated

Data Checksum and Checksum should be

000077.

However,

it

caiculated

to

000076.

6.3.5

Program Interrupt Errors

The program

detects

3 c lasses

of

program

interrupt

errors.

After

the

Pl

typeout

the

program forces an

operation

typeout

so

that

the

function

being

per-

formed may be

determined.

6.3.5.

1 Program Interrupt

and

No

DECtape F lag or Error F lag Skip

The

following

typec.,ut will

occur:

PI

NO

DECTAPE

SKIP

6.3.5.2

No

Progrcm InterruRt

or

DEC

tape

F lag or Error F lag Skip

after

Timeout

If

no

PI

or DECtape hardware flags

occur

after

5 seconds for

all

functions

except

"MOVE

II

(which allows

45

seconds)

the

following

typeout

wi

\I

occur:

NO

PI

NO

DECTAPE

SKIP

6.3.5.3

No

Program Interrupt but DECtape F lag or Error F lag Skip

ofter

Timeout

If

no

PI

occurs,

but hardware flags do

occur

after

timeout

(5

or

45

seconds)

the

following

typeout

will

occur:

NO

PI

DECTAPE

SKIP

7.

RESTRICTIONS

7.

1

Starting

Restrictions

None

7.2

Operating

Restrictions

Do

not

"deselect"

a transport merely

to

change

a reel of

DEC

tape

and

then

reselect

it.

If

a reel of

DEC

tape

must be

changed,

Stop

the

program,

change

the

reel

of

tape,

then depress

I/o

RESET

then

START

with

00100

in

the

Address Swi

tches

•

11

8.

MISCELLANEOUS

8.

1

Execution

Time

Program does

not

stop unless

an

error

occurs.

8.2

Data

Format

The

data

blocks

written

by the Random Exerciser

are

formatted

to

be

bi-

directional.

Whether

written

forward

or

backward,

they

may

be

read

in

either

direction

on

the

TC02 with

the

resultant

data

looking

the

same.

The

first four words

of

the

block

contain

pertinent

information

about

the

block.

The first two words

of

each

block

are

formatted

as follows:

WORD 1

r~-----------

-------

------------

i 0

LOWEST

L--L-.

BLOCK

NUMBER

r

Control

bit

to

indicate

direction

of

write

data

o - forward

I -

backward

WORD 2

I--r-

----------

------

--:

! 01 WORD

1+

, I

i

_____

NU~BER

OF

BLOCKS

.......J

f

Complement

of WORD 1

BIT

0

I - forward

o -

backward

WORD 1

indicates

the

lowest numbered

block

in

the

series

with

bit

0

indicating

the

wirtten

direction

of

the series of

blocks.

WORD 2

is

1

greater

than

the

highest

numbered

block

in

the

series,

bit

0

in WORD 2

is

the complement of

bit

0 in WORD

1.

12

8.2

Data Format

Cont.

Ignoring bits 0

of

the two words:

WORD 2 - WORD 1 = number

of

blocks in

series.

WORD 3

and

WORD 4 of

the

block

are

random numbers used to

generate

the

rest of the

data.

WORD 5 of

the

block

is

WORD 3

rotated

right

one

position

using on

18-bit

rotate.

WORD 6

is

WORD 4

rotated

right

one

position also using on

18-bit

rotate.

This process

is

repeated

until WORD 128 is WORD 126

rotated

right.

WORD

129 is the complement obverse of WORD

128.

WORD 130

is

the

complement

obverse

of

WORD 127,

etc,.

until

the

lost word

of

the

block

is

complement

obverse

of

the

fj

rst word

of

the

block.

WORD 1

WORD 2

WORD 3

WORD 4

WORD 5

WORD 6

WORD 253

WORD

254

WORD 255

WORD 256

400617

000626

732654

201356

355326

100567

124675

321540

151777

061773

9.

PROGRAM DESCRIPTION

9.

1 Discussion

Block 617 to

625 inclusive

were

written

backwards using

these two words for

data

pattern

WORD 3 Right

One

WORD 4 Right

One,

etc.

Complement obverse of WORD 4

Complement obverse of WORD 3

Complement obverse of WORD 2

Complement obverse of WORD 1

TC02

DECTAPE

RANDOM

EXERCISER

will

exercise

a TC02 DECtape control

and

any

configuration

of

from 1 to 8 TU55 DECtape Drives. Drive,

direction

of

operation,

number of blocks,

and

data

patterns

are

by random

selection.

First

the

program randomly

selects

a

drive,

then a number

between

1 and

32

(decimal)

for

the number of blocks,

then

the

direction.

There is

one

possibi

lity

in four

that

the

direction

will be

backward.

The number of blocks

is

added

to

or

subtracted

from

the

last block position of

the

drive

selected.

If

the

block

generated

has not

been

written,

a

write

operation

is

initiated.

If

the

lost

block

table

indicates

that

the

block

selected

has

already

been

written,

a

read

operation

is

initiated.

If

READ

is

selected,

the

program then

generates

a random number

between 0

and

7.

If

the

number

is

0,

the block

is

read

in "Read All

Continuous"

mode; if

4,

"Read Data Normal

II

mode; if

any

other

number, "Read Data

Continuous" mode

and

two blocks

are

read.

If

WRITE

is

selected

and

the

13

9.

1 Discussion

Cent.

number of blocks

is

a

multiple

of 3 (3,

6,

9,

12,

etc.),

the

blocks

are

written

in continuous

mode.

Otherwise,

the

blocks

are

written

in normal

mode.

14

PAGE

1

004000

0044~0

000030

000031

00100

~0100

70,7704

fi'0101

750004

00102

503411

00103

74"'200

00104

600111

00

1

135

2035

10

00106

102633

00107

740040

00110

600100

00111

0434'53

00112

75"'0~1

00113

043447

00114

707554

~011'5

1022~7

0011f)

16~451

00117

102244

00120

600116

0';'121

203401

~0122

043452

00123

750004

00124

503411

vHH25

741200

0012t-

600105

00127

043453

00130

10~551

00131

750001

00132

043457

00133

?03436

00134

343452

00135

7512~0

00136

600231

00137

20

3436

0eJ14~

740001

0.0141

343401

00142

el43452

00143

750001

00144

043474

~e14'5

100516

001

6

5034~4

~0147

74vH~el

0\(J15~~

043455

00151

100527

00152

503425

00153

751200

DTRF15

.TITLE

DTRE1'5

.ASS

/TC02

RANDOM

EXERCISER -PDP-15

RANBFR=4000

BUFFRS=RANBFR+400

WC=30

CA=31

.LOC

RANOEX

LAS

AND

S~A

JMP

LAC

JMS

XX

10~

LEM

/READ

ACS

AND

RUBOUT

/SEE

Ir

ANY

TRANSPORTS

.+5

/WERE

SPECIFIED

(MESS1

ICONTROL

COMES

HERE

MSPRNT

/IF

NONE

JMP

RANDEX

OAC

t>.1SBITS

CLA!CMA

OAC

FRSWAT

707554

ICLEAR

"8"

JMS

REPOSt IPUT

ALL

DRIVES

IN

END

~ONE

D~M~

LSTBLK

ICLEAR

NUMBER

OF

BLOCKS

JMS

CHNGDR

ICHECK

TO

SEE

IF

ALL

WERE

CLEARED

JMP

.-2

INO,

THEY

WEREN'T

LAC

ONE

()AC

LSTDRV

RDSWCH

LAS

/THIS

SEQUENCE

AND

RU80UT

IALLOWS

THE

OPERATOR

SNA

/TO

DESELECT

JMP

RANDEX+5

I"

BAD

TRANSPORTS"

DAC

MSBITS

/VIA

THE

AC

SWITCHES

IRANDO~

SELECTION

OF

OPERATIONS

MOFPRO

JMS

RANSEL

ISELECT A

DRIVE

CLA!CMA

OAC

PASFLG

LAC

CDRIVE

TAO

LSTDRV

SNA!CLA

/LAST

JMP

SAMDRV

LAC

CDRIVE

CMA

TAO

ONE

OAC

LSTDRV

CLA!CMA

OAG

RSQFLG

/CHECK

TO

SEE

IF

/THIS

DRIVE

WAS

THE

ONE

SELECTED

IYES,

IT

WAS!

ISELECT

NUMBER

OF

ALOCKS

FOR

OPERATION

(1-32)

MOFPRl

JMS

RANDl

/GET A

RANODM

NUMBER

b.NO

TERSEV

CMA

/MAKE

-1

TO

-32

(DEC)

DAC

NUMBLK

ISELECT DIRECTION

TO

GO

JMS

RAND2

IGET

ANOTHER

RANrOM

AND

THREE

SNA:CLA

PAGE

2

0.~154

130155

00156

00157

00160

00161

00162

1313163

1313164

00165

000166

00167

130170

00171

00172

00173

00174

013175

00176

00177

00200

00201

00202

00203

00204

00205

00206

00207

00210

00211

00212

00213

00214

00215

00216

00217

00220

00221

~H~222

130223

00224

013225

0022

6

00227

00

230

013231

00232

00233

021234

RANOEX

7400~1

V'43446

223451

7552(~0

60V'721

203446

750200

744002

203455

741400

600171

740Q1V'1

343401

363467

Ql43472

741100

143472

203472

740001

3634'51

741HHI

600721

100540

503413

741200

601431

503425

750200

601221

100253

600272

203432

707544

203472

063467

203446

063445

100400

777400

100626

004_000

004400

443442

600325

600

123

100516

741100

600146

443474

DTRE15

CMA

IsrT

BACKWARDS

DAC

OIRFLG

IDIRECTION

FLAG

LAC*

LST8LK

SNA!CLA!CLL

IHAS

DRIVE

BEEN

WRITTEN

ON?

JMP

WRITE1

INO,

WRITE

LAC

I)IRFLG

IGENERATE

BLOCk

SELECT

POSITION +

OR

-

NUMBER

S~A!CLA

CLL!CML

LAC

NUMBLK

S2L

JMP

.+3

CMA

TAO

ONE

TAO

..

POSITN

DAC

RECORD

SPA

1-

RECORD?

D~M

RECORD

IMAKE

= 0

IHAS

BLOCK

SELECTEO

BEEN

WRITTEN

IIF

NOT,

WRITE

OPERATION

SELECTED

LAC

RECORD

CMA

TAD

..

LST8LK

SPA

IHAS

BLOCK

BEEN

WRITTEN?

JMP

WRITE1

INO

JMS

RAND3

AND

SEVEN

SNA

JMP

RALLTS

AND

THREE

SlA!CLA

JMP

RDCMOD

RDTAB

JMS

RDDATA

JMP

REREAD

IBLOCK

HAS

BEEN

READ

WITHOUT

PARITY

ERROR

LAC

TYTHOU

707544

ISTOP

TAPE

LAC

RECORD

DAC

..

POSITN

INEW

POSITION

LAC

DIRF"LG

DAC

..

DIRECT

IDIRECTION

READ

IMOVE

FIRST

FOUR

WORDS

TO

REGENERATE

DATA

PATTERN

JMS

PREGEN

IGENERATE

DATA

PATTERN

LAW

-400

JMS

CODATA

ICOMPARE

400

WORDS

RAN8FR

IGOOD

DATA

HERE

RUFFRS

I?

DATA

HERE

1St

COCNTR

JMP

REREDA

IREREAD

BLOCK

IF

ERROR

JMP

ROSWCH

IGO

BACK,

READ

ACS,

SELECT

NEW

DRIVE

IDRIVE

SELECTEO

SAME

AS

LAST

TIME'

TFST

FOR

SERIES

SAMDRV

JMS

RAND1

IGET

A

RANDOM

SPA

IREAD

THIS STRING?

JMP

MOF"PRl

+ 1 IF' I

NO

1

NEW

'BLOCK

IS~

RSQF"LG

PAGE

3

V'lV'J?35

0k1236

(110237

00240

00241

00242

00243

00244

00245

00246

00247

00250

00251

00252

00?53

00254

00255

00256

00257

00260

00261

00262

00263

00?64

00265

00266

00267

00270

00271

00272

00?73

00274

00275

00276

00277

00300

0(11301

00302

00303

130304

00305

00306

00307

00310

~1{1311

0031?

0~L313

00~14

00315

00316

00317

RANOEX

600 146

503425

7512~0

740001

043446

740~HH

343401

343407

043472

203446

363472

503373

043472

601070

000000

102353

203426

707544

777400

040030

203364

040031

101701

000100

620253

200030

751200

440253

620253

750001

043457

102726

102754

203472

102670

203511

10

2633

70

7572

10

2670

203512

102633

200030

741200

600315

102670

203513

102633

600325

100400

777405

340031

DTRE1'>

JMP

~OFPR1+1

AND

THREE

SNA!CLA

IFORWARD?

eMA

INO,

GO

BACKWARD

DAC

OIRFLG

CMA

TAO

ONE

TAO

RBUFST

DAC

RECORD

LAC

DIRFLG

TADo

RECORD

AND

INDEP

IMASK

TO

DAC

RECORD

JMP

RDSEQ

IGO

READ

IFORWARD

GETS

IFIRST

BLOCK

IBACKWARD

GETS

ILAST

BLOCK

10

BITS

lAND

STORE

IREAD

DATA

SUBROUTINE

(1

BLOCK)

IDIRFLG=777777

(BACKWARD),

0

(FORWARD)

RDDATA

0

JMS

SEARCH

LAC

TRETHO

13000

707544

ICHANGE

SEARCH

TO

READ

DATA

LAW

-400

OAC

Wc

IINITIALllE

WORD

COUNT

LAC

BF1LOC

DAC

CA

lAND

CURRENT

ADDRESS

JMS

WATINT

IWAIT

FOR

COMPLETION

100

IDTF

JMPo

RDDATA

LAC

WC

SNA!CLA

lSi

RDDATA

/STATUS

ERROR

EXIT

JMP*

RDDATA

INORMAL

EXIT

ITYPE

STATUS

ERROR

ON

READ

1

BLOCK

ITEST

FOR

DATA

ERRORS

IF

FULL

READ

REREAD

CLA!CMA

DAC

PASFLG

JMS

ERSTP

ISTOP

TAPE

JMS

TYROAT

LAC

RECORD

JMS

OPRINT

LAC

(MESS2

JMS

MSPRNT

707572

IREAD

"B"

JMS

OPRINT

LAC

(MESS3

JMS

MSPRNT

LAC

WC

SNA

ISHORT

JMP

.+5

INO

JMS

OPRINT

LAC.

(MESS4

JMS

MSPRNT

JMP

REREDA

JMS

PREGEN

LAW

"373

TAO

CA

ITYPE

BLOCK

NUMBER

/TYPE

"BLOCK"

ITYPE

CONTENTS

OF

ITypE

"STATUS

8"

ITYPE

C(WC)

ITYPE

"W.C."

IREGENRATE

PATTERN

"B"

PAGE

4

~032V1

00,~21

~032?

00~23

00324

0032'5

00326

00327

00~30

00331

00332

00333

00334

00335

00336

010337

00340

00341

00342

00343

00344

00345

00346

00347

003501

00351

00:S5?

00353

00354

010355

00356

00357

003601

00361

00362

00363

00364

00365

00366

00367

00370

0121371

00372

00373

00374

00375

00376

00377

00400

00401

00402

00403

00404

V"403?4

7774f1'0

1006?6

vH~4V'~~0

0044V"0

75V"00.4

7511~0

740040

443457

600.3fll

203446

74QHHH

043446

100253

600274

H'0400

777400

100626

004000

004400

443442

600325

203446

740001

043446

100253

600274

777400

100626

004000

0104400

443442

600325

(>03410

243506

707545

101701

500000

600376

163451

163467

750001

063445

20340 1

043452

600123

102340

600361

000000

203405

040010

777774

043440

DTRE15

nAC

.

+4

LArl

-400

JMS

CODATA

RAN8FR

8UFFRS

LAS

IHALT

REREDA

SPA!CLA

XX

/YES

PASFLG

REWORV

DIRFLG

ISr

JMP

LAC

CMA

DAC

DIRFLG

JMS

RDDATA

JMP

REREAD+2

JMS

PREGEN

LAW

-400

JMS

CODATA

RANBFR

BUFFRS

IS~

COCNTR

JMP

REREDA

LAC

DIRFLG

CMA

OAC

DIRFLG

JMS

ROOATA

JMP

REREAD+2

LAW

-400

JMS

CODATA

RANBFR

BUFFRS

ON

ERRORS?

/REWIND

DRIVE

IF

NOT

FIRST

ERROR

ICHANGE

TO

READ

IN

OPPOSITE DIRECTION

IREAD

DATA

IERROR,

AGAIN,

TRV

AGAIN

IREGENERATE

PATTERN

ICOMPARE

DATA

IDONE

ALL

BLOCKS?

INO

ICHANGE

DIRECTION

/READ

AGAIN

IANOTHER

STATUS

ERROR

ICOMPARE

DATA

READ

ISr

COCNTR

IDONE

ALL

BLOCKS?

JMP

REREOA

INO

REWDRV

LAC

REWIND

XOR

UNFUNC

707545

ICLEAR

AND

LOAD

"A"

JMS

WATINT

500000

IERROR,

END

OF

TAPE

JMP

.+10

DrM

..

LSTBLK

D~M"

POSyTN

CLA!CMA

DAC"

DIRECT

LAC

ONE

OAC

LSTDRV

JMP

RDSWCH

JMS

MOVER+2

JMP

REWDRV

/CLEAR

LAST

BLOCK

lAND

POSITION

FOR

DRIVE

ISET DIREcTION

FOR

DRIVE

BACKWARD

ISET

LAST

DRIVE

TO

1

IGO

BACK

ALMOST

TO

BEGINNING

IMOVE

FIRST 4

WORDS

OF

BLOCK

READ

lAND

REGENERATr

COMPARE

PATTERN

PREGEN

0

LAC

RBFLOC

DAC

10

LAW

':"4

DAC

CNTR

PAGE

5

00405

el

~14

0

t"

~04~7

004H~

00411

~~412

"""413

"'0414

"'~41':5

vH~

416

00417

00420

00421

00422

~0423

vh~424

0~425

00426

"0427

0B430

~0431

00432

00433

00434

00435

00436

00437

0~44e

00441

00442

eJ0443

00444

00445

00446

00447

0045P.'

00451

00452

00453

00454

00455

00456

00457

00460

00461

00462

00463

eJ0464

00465

00466

00467

RANOEX

220031

HW467

060010

75"J01

3400~1

040031

443440

600405

100417

62~4V'!0

0vH1!000

777774

043440

203407

~43463

203406

043464

203502

043501

223463

043502

100467

063464

443463

750001

343464

043464

443440

600426

777604

043440

203

50

1

744020

741400

2434~"~

0435

03

063463

100467

063464

203502

043'501

?03503

043502

443463

75(i1(i1~1

343464

043464

443440

600444

620417

000000

DTRE15

LAC:.

CA

JMS

MCOMOB

OAC.

10

CLA!CMA

TAO

CA

DAC

CA

IS2

CNTR

JMP

.-7

JMS

PATGEN

JMP.

PREGEN

/GENERATE

RANDOM

DATA

PATTERN

/FIRST

FOUR

WORDS

nF

PATTERN

ARE

IN

/RANDOM

BUFFER

WORDS

1

TO

4

PATGEN

0

LAW

-4

DAC

CNTR

II~ITI4LIlE

A

COUNTER

LAC

RBUFST

DAC

PNTRl

/AND

TWO

POINTERS

LAC

RBUFND

DAC

PNTR2

/FOR

WORD

TRANSFERS

LAC

TEM2

DAC

TEMl

/MOVE

TEM1

LAC.

PNTRl

OAC

TEM2

/AND

TEM2

JMS

MCOMOB

/FORM

COMPLEMENT

OBVERSE

DAC.

PNT

R2

/AND

STORE

IN

RUFFER

}S2

PNTRl

/INCREMENT

FORWARD

ADDRESS

CLA!CMA

TAD

PNTR2

/DECREMENT

BACKWARD

DAC

PNTR2

1St

CNTR

/DONE

41

JMP

.-13

INO

LAW

-174

DAC

CNTR

GNPATR

CLL!RAR

StL

/FOR

174

(OCT)

MORE

LAC

TEMl

XOR

MUCH0

OAC

TEM3

DAC.

PNTR1

/FORM

~EXT

WORD

lor

RANDOM

/PATTERN

JMS

MCOMOB

DAC.

PNT

R2

LAC

TEM2

/MOVE

DAC

TEM1

/A

LAC

TEM3

/FEW

DAC

TEM2

/wORDS

/STORE

IN

BUFFER

ISTORE

COMP

OBVERSE

1St

PNTRl

/lNCRE~ENT

FORWARD

ADDRESS

CLA!CMA

TAD

PNTR2

IDECREMENT

BACKWARD

ADDRESS

OAC

PNTR2

1St

CNTR

IDONE

ALL?

JMP

GNPATR

INO

JMP.

PATGEN

ICOMPLEMENT

OBVERSE

SUBROUTINE

MCOMOB

0

PAGE

6

RANnEX

DTRE15

00470

74 4

001

rMA!CLL

00471

043454

nAC

NUMBER

00472

143456

OtM

OBVERS

00473

777772

LAW

-6

00474

043477

nAC

TALLY

00475

203514

LAC

(SEVEN

00476

04:<465

OAC

PN

TR

3

00477

?034'54

LAC

NUMBER

0~5001

74HW0

SKP

00501

7420,10

LOOP

RTL

00502

742010

RTL

00t)03

74?:11

,~

RTL

00504

043454

OAC

NUMBER

00505

523465

AND

..

PN

TR

3

00506

243456

XOR

oeVERS

00507

043456

DAC

OBVERS

00510

443465

IS~

PNTR3

00511

203454

LAC

NUMBER

00512

443477

1St

TALLY

00513

600501

JMP

LOOP

00514

203456

LAC

OBVERS

00515

tl2(}1467

JMP..

MCOMOR

IRANDO"1

NUMBfR

GENERATORS

00516

000000

RANDl

0

00517

200525

LAC

Rl

005201 74 4

010

RAL!CLL

00521

741400

S~L

00522

340526

TAD

Rl+1

00523

040525

OAC

R1

00524

620516

JMP

..

RANDl

00525

00~171

Rl

171

00526

000003

3

00527

000000

RAND2

0

liH?l53V'1

200536

LAC

R2

00531

744010

RAL!CLL

00532

741400

S~l

00533

340537

TAD

R2+1

00534

040536

OAC

R2

00535

620527

JMP

..

RAND2

00536

000015

R2

15

00537

000003

3

00540

000000

RAND3

0

00541

200,547

LAC

R3

00542

744~10

RAL!CLL

00543

741400

StL

00544

340550

TAO

R3+1

00545

040547

DAC

R3

00546

620540

JMP

..

RAND3

00547

000031

R3

31

00550

~00003

3

IRANOOMLY

SELECT A

DRIVE

ISTAYS

IN

THIS

ROUTINE

UNTIL

A

IORIVE

IS

FOUND

AND

DIRECTION

AND

IPOSITrON

POINTERS

ARE

GENERATED

00551

000000

RANSEl 0

pAGE

7

RANOEX

DTRE15

~W)5?

10({1527

JMS

RAND2

IGFT A

RANDOM

NUMBER

00553

'503413

AND

SEVEN

/MASK

OFF

UNWANTED

BITS

~"r;5d

~43436

DAC

CDRIVE

/SAVE

~05'55

744020

CLL!RAR

~0r;56

742020

RTR

~121557

740020

RAR

00'560

043'5(116

OAC

UNFUNC

IDRIVE

NUMBER

~0r;61

203436

LAC

CDRIVE

~0562

740001

CMA

~121563

11143440

OAC

CNTR

00'564

2121343121

LAC

TWOHUN

IFINO POSITION

~Vl565

443440

1St

CNTR

IOF

~0566

74100121

SKP

IBIT

0\1'567

600572

JMP

EXIST

IWITH

RESPECT

00570

74412120

CLL:RAR

ITO

00571

60(1565

JMP

.-4

lACS

0121572

c:;12134'53

rXIST

AND

MSBITS

IASK

WITH

ACS

1210573

74120121

SNA

IOOES

UNIT

EXIST (TEST

UNIT?)?

00574

600552

JMP

RANSEL+l

INO

0057'3

21213436

LAC

CDRlvE IYES

121121576

343403

TAD

POSTBL

0121577

043467

DAC

POSITN

IF'O-RM

POSITION

P-oINTER

012161210

21713436

LAC

CDRIVE

012161211

343366

TAD

OIRTBL

0121602

043445

DAC

OIRECT

IF'ORM

DIRECTION

POINTER

0121603

21213436

LAC

CDRIVE

012161214

343374

TAD

LSTTBL

0121605

043451

OAC

LSTBLK

ILAST

BLOCK

WRITTEN

POINTER

0121606

62(21551

JMP.

RANSEL

IMOVE

DATA

SUBROUTINE

1#

OF

WORDS

IN

AC,

ORIGIN JMS+l

IDESTINATION JMS+2

012161217

~12I00(1!12I

MVDATA

0

0061''1

~43440

DAC

CNTR

1210611

7501211211

CLA!CMA

121121612

3612161217

TAD.

MVDATA

01216

13

04012110

OAC

10

0121614

44121607

IS2

MvoATA

121121615

7501211211

CLA!CMA

0121616

3606l~7

TAO.

MVDATA

0121617

040011

oAC

11

121121620

44121607

Is~

MvDATA

00621

22001121

LAC.

10

00622

~6012111

DAC.

11

1210623

44344121

IS~

CNTR

00624

6121121621

JMP

.-3

012162'3

6206~7

JMP.

MVDATA

ICOMPARE

DATA

SUBROUTINE

1#

OF

WORDS

IN

AC,

CORRECT

ADDRESS

IN

JMS+l

IQUESTIONABLE

ADDRESS

IN

JMS+2

0121626

0000010

CODATA

(II

0121627

043440

OAC

CNTR

00630

220626

LAC.

CODATA

IG.ET

CORRECT

ADDRESS

0121631

043463

OAC

PNTRl

0121632

440626

IS~

CODATA

PAGE

8

RANOEX

DTRE1&:;

vl;~

{-

3 3

?206?6

LAC*

CODATA

IGET

QUESTIONABLE

ADDRESS

L~0634

V'l4~464

nAC

PNTR2

.10t3S

750'~(il1

CLA!CMA

~IJ636

V14~442

OAC

COCNTR

ISET

NO

ERROR

FLAG

f~

vlb 3 7

440626

1St

CODATA

00(,4'"

223463

COLOOP

LAC"

PNTR1

V1

f~A

4"\

7400°1

CMA

~I

'-~

n 4?

343401

TAD

ONE

~l

f~

6 4 3

363464

TAD*

PNTR2

00644

74v~200

S2A

~h~

6 4

>3

6006'33

JMP

COERRO

(~0

6 4

{,

44:;463

1St

PNTR1

00647

4434t14

ISZZ

PNTR2

1!1(.1650

443440

1St

CNTR

00651

600640

JMP

COLOOP

00652

620626

JMP

..

CODATA

00653

443442

COERRO

YSl

COCNTR

IFIRST

ERROR?

00654

600673

JMP

COERRl

INO

00655

1027?6

JMS

ERSTP

ISTOp

TAPE

00656

7075':>2

707552

IREAO

"A"

~0657

>303402

AND

ONETHO

00660

7412010

SNA

I"ALL"

MODE?

~0661

600664

JMP

.+3

INO

00662

102765

JMS

TYRALL

IYES,

GO

TYPE

00663

741000

SKP

00A64

102754

JMS

TYRDAT

00665

203515

LAC

(MESS5 ITYPE

"DATA

ERROR"

00666

102633

JMS

MSPRNT

00667

203472

LAC

RECORD

00670

102670

JMS

OPRINT ITYPE

BLOCK

NUMBER

00671

203516

LAC

(MESS2

00672

102633

JMS

MSPRNT

ITYPE "BLOCK"

00673

750004

COERR1

LAS

00674

742010

RTL

0067'5 740HH'J

SMA

ISHOULD

ONLY

4

BE

TYPED

00676

600703

JMP

.+5

INO,

TYPE

ALL

ERRORS

00677

777774

LAW

-4

IYES

HAVE

00700

343442

TAO

COCNTR

14

BEEN

00701

741t1100

SMA

ITYPED?

0eJ70?

600646

JMP

COLOOP+6

IYES,

DELETE

REST

OF

TEST

00703

102714

JMS

CRLF

00704

223463

LAC*

PNTRl

00705

102670

JMS

OPRINT ITYPE

STANDARD

00706

203517

LAC

(MESS6

00707

102633

JMS

"iSPRNT

lAND

"COR"

0071~

223464

LAC"

PNTR2

007

11

102670

JMS

OPRINT ITYPE

INCORRECT

00712

203520

LAC

(MESS7

ftHP13

102633

JMS

MSPRNT

lAND

"INC"

00714

203464

LAC

PNTR2

0071'5

102670

JMS

OPRINT

ITVPE

ADDRESS

OF

INCORRECT

00716

203521

LAC

(MESSa

00717

102633

JMS

MSPRNT

ITYPE

"ADDR"

0072'"

600646

JMP

COLOOP+6

IINJTIATE

WRITE

OPERATIONS

PAGE

9

~~P21

V'\-'1722

~ln23

0~724

Vl0

7

25

00726

00727

l~073~

~h~731

0073?

00733

00734

00735

00736

00737

0074~

00741

00742

00743

00744

00745

00746

00747

00750

00751

00752

00753

00754

0(21755

00756

00757

00760

00761

00762

00763

00764

"0765

00766

00767

00770

00771

0077?

00773

vHH74

00775

~0776

00777

01000

01001

01002

01003

?0~4V'5

V'4r~10

?23451

0.60.~10

?034r:;5

74~"'V'1

343401

363451

043472

77670.0

343472

74V"100

601034

203472

06V"010

100540

V"6Q\010

1~0516

06e010

100527

503425

751200

740001

043446

343407

04~010

040011

754002

740020

360010

060011

10Q\417

203455

Q\43475

203455

740001

043472

203446

74\?1200

203472

363451

04347

2

601332

10?353

203370

707544

777400

040030

203405

040031

101701

DTRE15

/GENFRATE

PATTrRN

WORDS

AND

18LOCK

NUMBERS

WRITE1

LAC

R8FLOC

nAC

10

/SET

UP

10

FOR

STORAGE

LAC

..

LST8LK

DACo

10

IStT

UP

FIRST

WORD

LAC

NUM8LK

CMA

TAD

ONE

TAO

..

LST8LK

OAC

RECORD

LAW

-1100

TAO

RECORD

ILAST

BLOCK+1

SMA

/RF.WINO

UNIT?

JMP

REWCK

IYES

LAC

RECORD

DAC

..

10

JMS

RAND3

DACo

10

JMS

RAND1

DAC

..

10

JMS

RAND2

AND

THREE

SNA!CLA

CMA

DAC

OIRFLG

TAD

RBUFST

DAC

10

/FIRST

RANnOM

WORD

ISECOND

RANDOM

WORD

IFORM

DIRECTION

lAND

STORE

DAC

11

IFORM

FIRST

WORD

CLA!CLL!CML

IINDICATE

RAR

18ACKWARD

TAO

..

10

lOR

2ND

WORD

DAC

..

11 IINDICATE

FORWARD

JMS

PATGEN

IGENERATE

256

WORD

PATTERN

LAC

NUMBLK

DAC

SAVNUM

ISAVE

NUMBER

OF

BLOCKS

CORT1R

LAC

NUMBLK

CMA

DAC

RECORD

LAC

OIRFLG

S2A

IBACKWARD

IS

LAC

RECORD

ILAST

BLOCK

+

NUMBER

OF

ALOCKS

TAO"

LSTBLK

DAC

RECORD

ITO

FIND

FIRST

BLOCK

TO

BE

WRITTEN

ITEST

FOR

WRITE

DATA

cONTINUOUS

MODE

IIF

NUMBER

OF

BLOCKS

=

INC

OF

3

JMP

WDCMOD

JMS

SEARCH

WRT1A

LAC

FIVTHO

ISEARCH

TO

WRITE

DATA

707544

IXOR

INTO

"A"

LAW

-400

DAC

WC

ISET

UP

WC

L~C

RBFLOC

OAC

CA

lAND

CA

JMS

WATINT

,WAIT

PAGE

10

RANrEx

DTRE15

~1/'04

~0'~lr~

1.

elP

IOTF

1111005

6~l:i

042

JMP

WSTERR

~1Vl0f,

?0C'0~0

LAC

WC

V11(HD

7442~~c;,

S2A!CLL

Iwr

=

tl?

V1101V1

601042

JMP

WSTERR

INO

01~11

;>03

44

6

LAC

DIRFLG

01~1;>

34~472

TAD

RECORD

01013

7 411

\~

0

SPA

01014

7'-;4002

CLA!CLL!CML

01 015

043472

OAr.

RECORD

Vl

P'

16 75040' 0

SNL!CLA

IRECORO

-17

"1°17

443472

IS2

RECORD

INa

+1

~:l1

\'120

443455

rs~

NUMBLK

IDONE

ALL

BLOCKS?

VlH~21

A0V'l776

JMP

WRT1A+l

INa,

DO

ANOTHER

01022

203472

WDINC

LAC

RECORD

v11023

063467

DAC*

POSITN

INEw

POsITION

0H~24

203446

LAC

DIRFLG

(II1Ci!25

063445

DAC*

DIRECT

INEW

DIREcTION

01026

2\~4~01

LAC

RAN8FR+1

01'~27

503373

AND

tNDEP

el1Vl30

063451

OAC*

LSTBLK

INEW

LAST

BLOCK

01031

203432

LAC

TYTHOU

01032

707544

707544

IXOR

INTO

"A"

<STOP

TAPE)

01033

600123

JMP

RDSWCH

IGET

C(SR)

THEN

SELECT

AGAIN

01034

100540

REWCK

JMS

RAND3

IGET

RANDOM

NUMBER

01035

7411(:\0

SPA

1+

OR

-?

01036

6~H~361

JMP

REwDRV

1(-

)

01(1137

143472

D~M

RECORD

IREAD

BLOCK

(IJ

01040

143446

[)~M

DIRFLG

IFORWARD

01041

600211

JMP

RDTAB

01042

102726

WSTERR

JMS

ERSTP

ISTOP

TAPE

-

LEAVE

FLAGS

01043

102776

JMS

TYWDAT

0H144

203472

LAC

RECORD

0H145

102670

JMS

OPRINT

ITYPE

BLOCK

NUMBER

01046

203522

LAC

(MESS2

01047

102633

JMS

MSPRNT

ITYPE "BLOCK"

VlH~50

203475

LAC

SAVNUM

01051

043455

DAC

NUMBLK

0H'l52

707572 707572

IREAD

"B"

01053

102670

JMS

OPRINT

IPRINT C(B)

01054

203523

LAC

(MESS3

01055

102633

JMS

MSPRNT

ITYPE "STATUS R"

01056

200030

LAC

WC

0111J57

102670

JMS

OPRINT

IPRINT

C(WC)

01060

203524

LAC

(MESS4

01061

102633

JMS

MSPRNT

ITYPE

"WC"

01

Vl

62

75~0e4

LAS

01063

751H'0

SPA!CLA ISTOP

ON

ERROR?

Vl1~64

74e040

xx

IYES

01V'65

443457

1St

PASFLG

12ND

ERROR?

V'1V166

600.3Al

JMP

REWDRV

IYES,

REWIND

01067

60~763

JMP

CORT1R

INa

IREAD

ENTIRE

SEQUENCE

oF'

8L

OCKS

lAS

ORIGINALLY

WRITTEN

01070

204000

RDSEQ

LAC

RAN8FR

IGET

LOWEST

BLOCK

pAGE

11

RANDEX

OTRE15

01071

~0~373

AND

TNOEP

01(A72

~43472

DAC

RECORD

~1f173

21f14

C

-H'!1

LAC

RAN8FR+l /GET

LAST

BLOCK+1

01,~74

~03,,73

AND

INOEP

01"P5

043455

DAC

NUt-1BLK

/MAKE

NUMBER

OF

BLOCKS

~1~76

203472

LAC

RECORD

1i11077

7

4'''~H''

1

CMA

01100

3434~5

TAD

NUMBLK

Ql1HH ""43455

nAC

NUM8LK

/5ET

UP

NUMBLK

""11

02

H'I1i1516

JM5

RANDl

/GET A

RANDOM

01103

7~51~0

SPA!CLA!CLL

/READ

FORWARD?

01104

74(?1\'l~3

CMA:CML

INC'

RAr.KWARD,

AC=

-0,

L:1

01H~'5

1i14~446

nAC

DIRFLG

~110n

203472

LAC

RECORD

01107

741400

S~L

0111""

343455

TAO

II,JUMBLK

01111

043472

DAC

RECORD

~1112

203455

LAC

NUM8LK

IMAKE

NUMBER

OF

BLOCKS

NEG

A T I

VE_

01113

74~1t101

r.MA

~1114

0434'55

OAC

NUMBLK

01115

1002"3

JMS

RODATA

/READ

FIRST

BLOCK

01116

61£'1i1272

JMP

REREAD

/STATUS

ERROR

IN

READ

e11117

443455

RDRUF1

1St

NUMBLK

IREAD

ALL

BLOCKS?

01120

601123

JMP

.+3

INO

V'l1121

203432

LAC

TYTHOU

/GET

CONSTANT

TO

STOP

TAPE

vH122

601130

JMP

.+6

01123

203365

LAC

BF2LOC

01124

040031

DAC

CA

/SET

UP

CA

01125

777400

LAW

-400

01126

040030

OAC

we

lAND

WC

01127

75~000

CLA

01130

707544

707544

IX

OR

INTO

"A"

01131

777400

LAW

-400

01132

100626

JMS

CODATA

/COMPARE

DATA

01133

004000

RAN8FR

01134

0Q144Q10

BUFFRS

01135

443442

ISl

COCNTR

IANY

DATA

ERRORS?

01136

600325

JMP

REREOA

IYES,

READ

OTHER

DIRECTION

01137

2

121

3455

LAC

NUMBLK

01140

74121?!0

SNA

IDONE

COMPLETE

SERIES

01141

601214

JMP

NDOFRD

IYES

01142

203446

LAC

OIRFLG

INO

01143

7412

00

SNA

Vl1144

343401

TAO

ONE

0114'5

343472

TAO

RECORD

ILAST

BLOCK

+1

OR

-1

01146

!2143472

DAC

RECORD

V'lU47

11211701

JM5

WATINT

IWAIT

01151i1

V'l0""100

100

IOTF

01151

f00272

JMP

REREAD

/STATUS

ERROR,

REREAD

1i'1152

20~030

LAC

we

0115~

74V'200

S~A

IWC

:

~?

Vl1154

6"'0272

JMP

REREAD

INO,

REREAD

011

55

443455

IS~

NUMBLK

IDONE

ALL

READS?

01156

601161

JMP

.+3

INO

01157

203432

LAC

TYTHOU

IyES,

GET

READ

TO

PAGE

12

0116~

V'l1

j

61

(II

1 1

6?

( 1 6 3

01164

vh

1 6'5

01166

01167

01170

01171

0.1172

"'11

73

"'1174

01175

01176

01177

01200

01'201

012132

01203

01204

0120'5

01206

01207

01210

01211

01212

01213

01214

01215

01216

01217

01220.

01221

01222

01223

01224

01225

0.1226

01227

0.1230

01231

01232

0123~

0.1234

01235

01236

01237

01240

01241

01242

01243

01244

MH166

;;>03364

04V'!031

777400

04~~030

75~~00

707')44

7774V'0

j 011'6?6

004W~0

(i\0')~1r~1

44~442

600325

;;>03455

7412013

6flh

214

203446

7412~~

343401

343472

0.43472

lfiH

701

000100

600272

200030

740200

600272

601117

203472

063467

203446

063445

600123

203446

740200

601232

203472

740001

363451

740.200

601235

60"'211

203472

7412(?!0

60"'211

102353

20341'7

707544

777000

040030

203364

"40031

101701

OTRE15

JMP

.+6

15TOP

TAPE

LAC

8F1LOC

nAC

CA

15ET

UP

CA

LAW

-400

OAC

WC

CLA

707544

IXOR

INTO

A

LAW

-400

JMS

CODATA

RANBFR

RUFFRS+401

rSl

COCNTR

JMP

REREDA

LAC

NUMBLK

ICOMPARE

DATA

IANY

COMPARE

ERRORS

IYES.

READ

OPPOSITE

DIRECTION

5NA

IRE

AD

AND

COMPARE

ALL?

JMP

NDOFRD

IYE5

LAC

OIRFLG

INO

SNA

TAO

ONE

TAD

RECORD

OAC

RECORD

JMS

WATINT

j 00 IDTF

JMP

REREAD

LAC

WC

S2A

IWC

=

07

JMP

REREAD

JMP

RDBUF1

ILAST

BLOCK

+1

OR

-1

IWAIT

ISTATUS

ERROR,

REREAO

INO,

REREAD

NDOFRD

LAC

ICOMPARE

FIRST

BUFFER

RECORD

OAC"

POSITN

LAC

OIRFLG

INEW

POSITION

DAC

..

DIRECT

/NEW

DIREcTION

JMP

ROSWCH

IGO

BACK

FOR

ANOTHER

IREAD

DATA

CONTINUOUS

MODE

/TWO

B~OCKS

AND

COMPARE

DATA

READ

RDCMOD

LAC

OIRFLG

S~A

IFORWARD?

JMP

,+7

INO

LAC

RECORD

CMA

TAD

..

LSTBLK

S2A

JMP

,+5

IBLOCK

+1

WRITTEN?

JMP

RDTAB

IBLOCK

NOT

WRITTEN.

READ

ONLY

1

LAC

RECORD

SNA

JMP

RDTAB

IBLOCK

0

BACKWARDS.

READ

ONLY

1

JMS

SEARCH

IFIND FIRST

BLOCK

LAC

TRTETH

/13000

707544

IXOR

INTO

"A"

(CHANGED

TO

READ

CONT)

LAW

-1000

DAC

wC

ISET

UP

wC

AND

LAC

RF1LOC

DAC

CA

ICA

FOR

2

BLOCKS

JMS

WATINT

/WAIT

FOR

END

OF

TRANSFER

PAGE

13

RANf)EX

DTRE1';

911?4~

00~100

100

10TF

911?4f-

6i-H314

JMP

ROC

ERR

IERROR,

SEE

WHICH

RLOCK

1';'1247

200/13;1

LAC

WC

9112';~

74r~2\~?

S~A

IWC

=

~?

01:251

6~(:)272

JMP

REREAD

INO

911252

2133

4

32

LAC

TYTHOU

IGET

"STOP"

01253

7~n';44

707544

IXOR

PHO

"A"

01?54

203446

LAC

OIRFLG

01255

7412~0

SNA

V11256

343401

TAD

ONE

01257

343472

TAO

RECORD

01f?60

043472

OAC

RECORD

01261

1001400

JMS

PREGEN

IVERIFY

LAST

911262

777400

LAW

-400

IBLOCK

01263

lVlV1626

JMS

CODATA

IFIRST

01264

004~00

RANBFR

01265

0050~0

8UFFRS+400

911266

443442

IS2

COCNTR

IANY

DATA

ERRORS

01267

60(7325

JMP

REREDA

IYES,

REREAD

01270

750001

CLA!CMA

01271

343365

TAD

8F2LOC

01?72

914V1031

DAC

CA

01273

1.00400

JMS

PREGEN

01274

203446

LAC

DIRFLG

01275

74120.0

SNA

01276

3434v"1

TAD

ONE

01277

7400(:)1

CMA

013091

343401

TAO

ONE

01301

343472

TAD

RECORD

01302

043472

nAC

RECORD

01303

777400

LAW

-400

01304

10V1626

JMS

CODATA

01305

004QHH!

RAN8FR

01306

0044910

RUFFRS

01307

443442

ISl

COCNTR

/ANY

DATA

ERRORS?

013191

600325

JMP

REREDA

/YES,

REREAD

01311

203

472

LAC

RECORD

INO,

SET

NEW

01312

063467

[1AC*

POSITN IPOSITION

01313

6iHH 23

JMP

RDSWCH

IGO

BACK

FOR

ANOTHER

JOB

01314

200030

RDCERR

LAC

wc

01315

7412910

SNA

IERROR

IN

2ND

BLOCK?

01316

601324

JMP

,+6

/n:s,

COUNT

ALOCK

01317

7491910.1

CMA

01320

343401

TAD

ONE

01321

340777

TAD

WRT1A+2

1-400

(OCT)

01322

914V~30

DAC

WC

01323

60PJ272

JMP

REREAD

ITYPE

STATUS

ERROR

911324

203446

LAC

DIRFLG

01325

741200

SNA

IBACKWARD

(-1

)

(111326

343401

TAO

ONE

IFORWARDS

(

+1

01327

343472

TAD

RECORD

[7;1330

043472

DAC

RECORD

01331

60~272

JMP

REREAD

/WRITE

DATA

CONTINUOUS

MODE

IF

/NUMBER

OF

BLOCKS

IS

AN

INCREMENT

OF

3

PAGE

14

RANnEX

DTRE1e;

01332

'14~~~5

WOr.MOO

n2M

TRECTR

Vl1333

?0~4'55

LAC

NUM8LK

011334

343425

TAD

THREE

(il133'5

7412~({!

SNA

IAN

INCREMENT

OF

37

Vl133A

601343

JMP

SWCMOD

IYES,

WRITE

CaNT,

01:~37

74011(il0

SMA

IGONE

PAST

07

013401

f,00774

JMP

WRT1A-1

IYES,

NOT

INC,

OF

3

01~41

44:;5v~5

1St

TRECTR

lNG,

COUNT

1

01342

("11334

JMP

WDCt-1DD+2

lAND

REPEAT

(il1343

;;>035(11'5

swCMoD

LAC

TRECTR

ItH344 7400011

CMA

(.i!1345

0435015

nAC

TRECTR

01346

777(lJ00

LAW

-1Ii3

0 0

IMAKE

PATTERN

~H347

100607

JMS

MVDATA

13

8UFFERS

01350

vH~4000

RAN8FR

ILONG

01351

0044010

RUFFRS

01352

102353

JMS

SEARCH

~H353

203367

LAC

FIFTHO

115000

(SEARCH

TO

WRITE

CaNT)

01354

707544

SWCMDL

707544

IXOR

INTO

"A"

01355

776400

LAW

-1400

15FT

UP

WC

01

356

040030

nAC

WC

IF

OR

3

BLOCKS

01357

203405

LAC

R8FLOC

01360

040031

OAC

CA

lAND

CA

01361

HH701

JMS

WATINT

IWAIT

01~~62

0100100

100

IDTF

01363

6014(115

JMP

\.IoCERR

INOT

NORMAL

INTERRUPT

01364

20(11030

LAC

WC

01365

740200

S~A

IWC

= 01

01366

601405

JMP

WDCERR

INO

01367

203446

LAC

OIRFLG

01370

7542010

S~A!CLA!CLL

IF"ORWARD7

01371

740002

CML

INO,

SET

LINK

01372

343425

TAO

THREE

IGFT

3

01373

740400

SNL

IBACKWARD

01374

601377

JMP

,+3

INO

01375

740001

CMA

IYES,

-3

01376

3434011

TAO

ONE

01377

343472

TAO

RECORD

01400

043472

DAC

RECORD

fi'1401

750000

CLA

01402

4435015

1St

TRECTR

IDONE

ALL

01403

601354

JMP

SWCMoL

INa,

DO

NEXT

3

01404

601022

JMP

WDINC

IYES

01405

1435015

WQCERR

OtM

TRECTR

01406

2001030

LAC

WC

01407

740001

eMA

01410

3434011

TAO

ONE

I

-WC

01411

340777

TAD

WRT1A+?

I

-400

(OCT)

01412

7411

00

SPA

01413

601416

JMP

,+3

01414

44350~

IS~

TRECTR

01415

601411

JMP

.-4

01416

203446

LAC

OIRF"LG

01417

754200

SlA!CLA!CLL

IF'ORWARD?

01420

740002

CML

INO,

BACKWARD,

MAKE

-1

OR

-2

PAGE

15

01421

Vl142?

01423

01424

01425

01426

~1427

(111430

0,1431

01432

vl1433

(111434

01435

01436

01437

(111440

01441

01442

"H443

1111444

01

445

01446

01447

01450

01451

01452

01453

01454

01455

01456

(111457

01460

01461

01462

01463

01464

01465

01466

01467

0147V1

01471

01472

01473

01474

(111475

(111476

01477

01500

01501

RANOEX

2035(115

74040(1

6v'l1426

74vH101

343401

343472

(1143472

6~1042

203446

74120V'!

343401

7400(111

343401

343472

043472

7411(110

60(11123

343376

75"'100

600145

14347

1

102353

707554

203446

741200

343401

343472

043472

707561

741000

601556

707601

601455

203435

74(11001

343401

343472

750200

601556

20343

1

707544

777374

040030

21013364

040(1131

101701

eI~0100

601657

200030

DTRE1e:;

LAC

TRECTR

SNL

JMP

.+3

CMA

TAD

ONE

TAn

RECORD

OAC

qECORD

IBLOCK

IN

ERROR

JMP

WSTERR

ITYPE

OUT

WRIT[

ERROR

IREAD

ALL

ROUTINF

IREV

CKSM,

DAT~,

AND

CKSM

ARE

READ

ICKSMS

ARE

GFNFRATED

AND

TESTED

RALLTS

LAC

DIRFLG

SNA

IBACKWARDS?

TAO

ONE

INO,

FORWARD

CMA

TAO

ONE

1+1

FOR

RACKWARD,

-1

FOR

FORWARD

TAO

RECORD

OAC

RECORD

SPA

JMP

RDSwCH

TAO

"1BLOCK

SMA!CLA

ICAN'T

DO

0

lOR

1100

ANn

CHANGE

TO

READ

ERROR

FLAG

ALL

JMP

MOFPR1

IFINn

THE

RLOCK

ICLEAR

READ

ALL

D~M

RAEFLG

IClEAR

READ

IFIND

BLOCK

DTF

AND

EF

All

ERROR

FLAG

JMS

SEARCH

707554

ICLEAR

LAC

OIRFLG

SNA

TAO

ONE

TAD

RECORD

OAC

RECORD

707561

ISKIP

ON

ERROR

FLAG

SKP

JMP

RASERR

IDECTAPE

ERROR

707601

ISKIP

ON

DECTAPE

FLAG

JMP

.-4

INO

FLAGS,

CHECK

AGAIN

LAC

8LKFND

IGET

CURRENT

DECTAPE

CMA

TAO

ONE

TAD

RECORD

BLOCK

NUMBER

S2A!CLA

lIS

IT

THE

ONE

WE

ARE

LOOKING

FOR?

JMP

RASERR

INO,

ERROR

ICHANGE

TO

RFAQ

ALL

CONTINUOUS

LAC

TWVTHO

ISEARCH

TO

READ

ALL

CONT

707544

IXOR

INTO

"A"

LAW

-404

OAC

wC

15ET

~r.

FOR

404

WORDS

LAC

8F1LOC

DAC

CA

15ET

CA

JMS

WATINT

IWAIT

100

IOTF

JMP

ERRRAR

IREAD

ALL

STATUS

ERROR

LAC

wC

PAGE

16

01'502

01503

VllS04

~1505

01506

01'507

01510

01511

01512

01

1'513

01514

01515

01516

01517

01520

01

521

01522

011523

01524

0152f5

01526

01527

01530

01531

01532

01533

01534

01535

01536

01537

01540

01541

01542

01543

01544

01545

01546

01547

0155V'1

01551

131552

01553

01554

01555

01556

f/!1557

0156()l

01561

01562

01563

01564

RANDEX

7402()l0

f-01657

?Vl~432

707544

203404

014

(1\

~~

lei

777400

~43440

143437

2044C'!2

503421

043473

22V'1010

1015M~

443440

601516

203437

503421

043444

7700(110

520010

043450

HH560

203473

HH560

203437

7401001

503421

740200

601602

203472

063467

750001

34~031

040031

10V'14V'0

777400

100626

0040V'10

004403

443471

443442

6003

25

600121

143457

602562

~00000

740001

Ql43501

777775

043477

DTRE1~

~lA

Iwr

=

VI?

JMP

ERRRAR

INO

LAC

TYTHOU

ISTOP

TAPE

707544

IXOR

I~TO

"A"

/GrNERATE

CKSMS

ANn

TEST

SUM

=

0eJ

LAC

RADLOC

DAC

10 /SrTUP

10

LAW

-400

nAC

CNTR

lAND

COUNTER

FOR

OlM

CKSUMR

/PROCESSING,

cERO

CHECKSUM

LAC

RUFFRS+2

AND

SEVSEV

nAC

REVCHK

ISAVE

REVERSE

CHrCK

LAC*

10

jGET

NEXT

DATAWORD

JMS

XORSUM

IXOR

INTO

CHECKSUM

lSi!

CNTR

IOONE?

JMP

.-3

INO

LAC

CKSUMR

AND

SEVSEV

OAC

DATASM

LAw

10000

ILOAD

AC

AND*

10

ICOMBINE

DAC

FWDCHK

IYES,

GET

FINAL

IMASK

lAND

SAVE

wITH

770000

WITH

FORWARD

CKSM

lAND

SAVE

JMS

XORSUM

ICOM8INE

FWDCHK

AND

DATASM

LAC

REVCHK

JMS

XORSUM

ICOM8INE

WITH

REVCHK

LAC

CKSUMR

CMA

AND

SEVSEV

S~A

lIS

RESULT

01

JMP

ERRCKS

INO,

ERROR

RADCHK

LAC

RECORD

OAC*

POSITN

IUPDATE

POSITION

TABLE

CLA!CMA

TAD

CA

DAC

CA

ISUBTRACT

1

FROM

CA

JMS

PREGEN

IGENERATE

PATTERN

LAW

-400

ICOMPARE

AGAINST

JMS

CODATA

IPATTERN

OBTAINED

RANBFR

IFROM

TAPE

RUFFRS+3

IS2

RAEFLG

IS1

COCNTR

JMP

REREDA

IANY

READ

ALL

INO,

ANY

DATA

IYES,

YES

INO,

GO

BACK

ERRORS

ERRORS

JMP

RDSWCH-2

RASERR

D~M

PASFLG

JMP

SRHERR

ITC02

RANDOM

EXERCISER

-

TAPE

2

IFORM

6-81T

XOR

OF

AC

AND

CKSUMR

ISAVE

RESULTS

IN

CKSUMR

XORSUM

~

CMA

DAC

TEM1

LAW

-3

OAC

TALLY

PAGE

1 7

RANnEX

DTRE15

01565

203~~1

LAC

TEMl

01566

744010

RAL:CLL

01567

74?010

RTL

01570

742010

RTL

01571

742~10

RTL

(1)1572

01435011

OAC

TEM1

01'573

50~421

AND

SEVSEV

01574

243437

XOR

CKSUMR

(1)1575

043437

OAC

CKSUMR

01~76

2~3501

LAC

TEM1

01~77

443477

1St

TALLY

01f,~0

601567

JMP

.-11

01"131

621560

JMP

..

XORSUM

ICHECKSUM

ERROR

TYPEOUT

01602

102765

ERRCKS

JMS

TYRALL

ITVPE

OUT

HEADER

016133 2VJ3472

LAC

RECORD

0161214

11212670

JMS

OPRINT ITYPE

OUT

BLOCK

NUMBER

0161215

20352'5

LAC

(MESS2

01606

1V12633

JMS

MSPRNT

ITYPE "BLOCK"

01607

203526

LAC

(MESS9

01610

102633

JMS

MSPRNT

ITYPE

"CKSUM

ERROR"

1211611

11212714

JMS

CRLF

01612

203473

LAC

REVCHK

131613

102670

JMS

OPRINT ITYPE

OUT

REVCHECK

01614

21213527

LAC

(MESS10

01615

102633

JMS

MSPRNT

ITYPE "REV"

13

1616

10

1

647

JMS

CKSTYP

ITYPE

"CHKSUM"

01617

11212714

JMS

CRLF

01620

21213444

LAC

DATASM

1211621

1026713

JMS

0PRINT ITYpE

DATA

SUM

1211622

7602413

LAW

24121

1211623

11212661

JMS

TYPE

1211624

1030313

JMS

TYDATA

1211625

1131647

JMS

CKSTYP

ITYPE

"CHKSUM"

121

1626

10

1653

JMS

CALCTY

01627

102714

JMS

CRLF

01630

2121345121

LAC

rWDCHK

1211631

1121267121

JMS

OPRINT

ITYPE

FORWARD

CHECKSUM

1211632

11211647

JMS

CKSTYP

ITYPE

"CHKSUM"

121

1633

11212714

JMS

CRLF

1211634

21213437

LAC

CKSUMR

1211635

741211211211

CMA

1211636

51213421

AND

SEVSEV

01637

12143437

DAC

CKSUMR

01640

10267121

JMS

OPRINT ITVPE

CALcULATED

CKSM

1211641

HH653

JMS

CALCTY

01642

203530

LAC

(MESS11

01643

11212633

JMS

MSPRNT

ITYPE

"L.p.B."

1211644

750001

CLA:CMA

01645

0I4~471

OAC

RAEFLG

1211646

6~H54e1

JMP

RADCHK

1211647

1210121000

CKSTYP

1Il

1211650

203531

LAC

(MESS12

1211651

11212633

JMS

MSPRNT

01652

621647

JMP..

CKSTYP

PAGE

i8

01653

01654

Vlln55

V'J1656

V'J1657

VI

16M'!

01661

(/11062

01f163

01664

Vl166~

01666

01667

(111670

01671

01672

01673

(111674

01675

01676

01677

0170'"

01701

01702

01703

01704

~1705

01706

01707

(111710

01711

01712

01713

01714

01715

01716

01717

01720

01721

01722

01723

01724

01725

01726

01.727

01730

01731

01732

01733

01734

01735

00,rt~0

?0~532

102633

621653

1027?6

lv~2765

203472

102670

?03533

1112633

7"'7572

102670

203534

102633

200030

102670

203535

102633

7500Vl4

751100

740040

600361

000000

2035~6

040.001

777774

043507

707552

503416

740200

601714

777750

04351717

443447

601721

102015

7130042

6132046

143447

443460

741000

102015

200000

063461

443461

201?0013

740010

203433

700042

620000

043433

OTRE15

CALCTY

VI

l

~r.

(MESS13

JMS

MSPRNT

JMP*

CALCTY

IREAD

ALL

STATUS

ERROR

TYPEOUT

rRRRAR

JMS

ERSTP

ISTOP

TAPE

JMS

TYRALL

ITYPE

HEADER

LAC

RECORD

JMS

OPRINT

ITYPE

OUT

BLOCK

NUMBER

LAC

(MESS2

JMS

MSPRNT

ITYPE

"BLOCK"

707572

/RFAD

"8"

JMS

OPRINT

ITYPE

OUT

B

LAC

(MESS3

JMS

MSPRNT

ITYpE

"STATUS

R"

LAC

WC

JMS

OPRINT

ITYPE

OUT

WORD

COUNT

LAC

(MESS4

JMS

MSPRNT

ITYPE

"W.C."

LAS

SPA!CLA

ISTOP

ON

ERROR?

XX

/YES

JMP

REWORV

IWAIT

FOR

INTERRUPT

ROUTINE

ISYNCHRONI~E

PROCESSOR

TESTS

WATINT

0

LAC

(JMP

I

RECD

DAC

1

LAW

-4

DAC

WTCNTR

/INITIALIlE

COUNTER

FOR

5

SECONDS

707552

IREAD

"A"

AND

SEVEN+3

17000

S~A

lIS

FUNCTION

"MOVE"

JMP

.+3

INO, 5 SEC.

OK

LAW

-30

ICHANGE

COUNTER

OAC

WTCNTR

ITO

45

SEC.

IS~

FRSWAT

IFIRST

PROGRAM

WAIT?

JMP

RESETD

INO,

RESTORE

AC

AND

L

JMS

SETIDX

IYES,

SET

UP

ION

ITURN

ON

PI

JMP

IS~TST

IGO

TO

FIRST

TEST

RESETD

D~M

FRSWAT

IINDICATE

NOT

FIRST

WAIT

rSr

PICNTR

ICOUNT

PI

COUNTER

SKP

INOT

~ERO

JMS

SETIDX

IlERO

LAC

0

OAC*

PIDEX1

ISAVE

OLD

PC

IS~

PIOE Xl

LAC

0

RAL

IRESTORE

LINK

LAC

ACCUM

/RESTORE

AC

ION

ITURN

ON

PI

JMP*

0 IEXIT

IINTERRUPT

RETURNS

HERE

tRECD

OAC

ACCUM

/SAVE

AC

PAGE

1q

RANOEX

DTRE15

~1736

7~76nl

7076~1

ISKIP

ON

OTF

~1737

74HH1Vl

SKP

INONE

01740

601743

JMP

• + 3 IOtCTAPE

FLAG

~1741

7~7561

7075Al

15KIP

ON

ERROR

FLAG

01742

6017~2

JMP

r--JOTSKP

INa

DEC

TAPE

FLAGS

01743

70.7572

707572

IRE"AD

"8"

~1744

~43476

DAr.

S8RECO

ISAVE

B

01745

22

1701

LAC*

IoIATINT

01746

740001

CMA

IcOMPARE

FLAGS

SET

~1747

50.3476

AND

S8RECO

IAGAINST

FLAGS

ALLOWED

01750

741200

SNA

IANy

ILLEGAL?

~1751

441701

1St

WATINT

INa,

INCREMENT

TWICE

~1752

441701

1St

~ATINT

IYES,

INCREMENT

ONCE

~1753

20170.1

LAC

WATINT

01754

063462

DAC*

PIOE X

2 15

AVE

C(WATINT)

017'55

443462

IS2 PIDE X2

IMORE

POINTER

01756

203435

LAC

BLKFND

ICLEAN

UP

el1757

503373

AND

INOEP

IBLOCK

NUMBER

01760

el4343'5

[lAC

8LKFNO

IFROM

TAPE

01761

621701

JMP*

WATINT

IExIT

.EJECT

PAGE

20

RANO[X

OTRE1e;

~H

7f)?

102726

NOTSKp

JMS

ERSTP ISTOP

TAPE

01763

203537

LAC

(MESS14

01764

102633

JMS

MSPRNT

ITYP[

"PI"

Vl176~

6"'?0~5

JMP

PTSTNS

01766

0091(~00

PTSTNO

0

01767

443507

IS2

WTCNTR

I~AITEO

LONG

ENOUGH?

01770

621766

JMP*

PTSTND

IN~.

00

NEXT

TEST

01771

7000

L2 rOF+10

IYES,

TURN

OFF

PI

01772

707601

7076~1

ISKIP

ON

OTF

01773

741000

SKP

01774

601777

JMP

.+3

~h

77~

707561

707561

ISKlp

ON

ERROR

FLAG

01776

740001

CMA

INO

FLAGS,

STORE

-1

~1777

043476

DAC

SBRECO

lOR 0 IF

ANY

FLAG

02000

.

1027~6

JMS

ERSTP

ISTOP

TAPE

02!IJ01

203540

LAC

(MESS15

0201)2

102633

JMS

MSPRNT

ITYPE

"NO

PI"

02003

443476

1St

SBRECO

IANY

D[CTAPE

FLAGS

02004

60?0917

JMP

PTSTNS+2 IYES

02005

20~541

PTSTNS

LAC

(MESS16

02006

102633

JMS

MSPRNT

ITYPE "NO"

02007

203542

LAC

(MESS17

02010

102633

JMS

MSPRNT

ITYpE

"OECTAPE

SKIp"

02011

441701

ISr

WATINT

02012

750001

CLA!CMA

02rtJ13

043447

OAC

FRS~AT

02014

621701

JMP*

WATINT

0201C;

0000~0

SETIDX 0

02016

777772

LAW

-6

02017

~43460

DAC

PICNTR

02020

202025

LAC

PITBL

02021

~43461

OAC

PIoEX1

02022

20(>045

LAC

PIRTBL

02023

043462

DAC

PIDEX2

02024

622015

JMPit

SETIDX

0202"5

002026

PITBL . + 1

02045

.LOC

PITBL+20

02045

002035

PIRTBL

.-10

IPROCESSOR TESTS,

RUN

WHILE

WAITING

FOR

INTERRUPT

IISl

TEST

-

2.6

SECONDS

02046

7591001

ISlTST

CLA!CMA

02047

042204

OAC

TEST5

02"'50

142201

OlM

TEST2

02051

142200

DlM

TEST1

02052

442200

ISl

TESTl

0212153

442201

1St

TEST2

02054

602052

JMP

.-2

02055

202201

LAC

TEST2

02056

740200

S~A

02057

740040

XX

02060

750001

CLA!CMA

0212161

342200

TAO

TEST1

02062

7402e0

SlA

0.2063

740040

XX

02064

442204

1St

TEST5

PAGE

21

02'~6,)

V!2066

02067

1I!2070

V'211!71

(1)2072

(11;;'073

0?074

Vl2P7S

1I!2076

~~2~~77

021011!

02101

02102

02103

02104

02

HP:;

V'J2106

02107

0211V!

02111

02112

02113

0211

4

~;;'115

02116

02117

02120

02121

02122

02123

02124

!t!2125

02126

02127

02130

02131

02132

02133

02134

02135

02136

02137

02140

02141

02142

02143

!t!2144

02145

02146

02147

RANOEX

741000

6020f51

101766

20?2V'J1

744002

7411!0?0

7400H'l

740400

740040

74vHHH

343401

342201

740211!0

740040

442201

602070

HH766

202201

744000

742010

742020

741400

740040

74~011!1

343401

342201

740200

740040

442201

602106

101766

142203

2022V'J3

542203

7410\?l0

740040

442203

602125

101766

7762V'J0

042200

777600

V'J42201

203543

042202

202?05

!t!42203

745000

202203

062202

442203

DTRE1e;

SKP

JMP

15~TST+3

JMS

PTSTND

/ROTATE 1

TEST

-

3.9

SECONDS

ROT

iTS

LAC

TEST2

CLL!CML

RAR

RAL

SNL

XX

CMA

TAD

ONE

TAO

TEST2

Si!A

XX

IS~

TE5T2

JMP

ROT1TS

JMS

PTSTND

/ROTATE 2

TEST

-

3.9

SECONDS

ROT2TS

LAC

TEST2

CLL

RTL

RTR

Si!L

XX

CMA

TAD

ONE

TAD

TE5T2

S~A

XX

15i! TEST2

JMP

ROT2TS

JMS

PTSTND

/SAD

TEST

-

2.1

SECONDS

SADTST

Di!M

TEST4

LAC

TEST4

SAD

TEST4

SKP

XX

15~

TE5T4

JMP

SAOTST+l

JMS

PTSTND

/JM5

TEST

- 3

SECONDS

JMSTST

LA~

-1600

OAe

TEST1

11600

LOOPS

LAW

-200

OAC

TEST2

/200

JMS

•

LAC

(6000

nAC

TEST3

/FIRST

ADDRESS

OF

JMS

LAC

JMSCON

OAC

TEST4

SKP!r:LL

LAC

TE5T4

OAC. TEST3

IS~

TEST4

PAGE

22

~;?15V'

02151

~215~

02153

02154

0215'5

0215A

02157

0216V'!

02161

02162

(112t6~

021"4

02165

02166

02167

02170

02171

02172

02173

··02174

02175

02176

02177

0220(11

02201

02202

02203

02204

02205

02206

~2207

02210

02211

02212

02213

02214

02215

02216

02217

0222(11

02221

02222

02223

02224

02225

02226

02227

0223(11

02231

02232

02233

02234

44~20~

44(>201

/S02145

202206

(1162202

606000

7776W0

(1142201

402140

0422912

741000

202202

740001

362202

503375

740200

740040

442202

442201

A021A3

442200

602136

101766

602046

(11000(110

000000

0(;H1000

""00000

000000

106000

602156

0(11~(II00

102225

203377

243506

707545

HH701

500000

602336

7500(111

063467

063445

102244

602211

622207

00(11(1100

143436

203430

(1143443

203453

503443

150200

602242

DTRE15

JMPRET

1St

TEST~

ISiZ

TEST2

JMP

.-5

LAC

RETJMP

OAC*

TEST3

JMP

A000

LAW

-2(110

DAr:

TEST2

XCT

JMSTST+4

nAC

TEST3

SKP

LAC

TEST3

CMA

TAD*

TEST3

AND

MASK

StA

XX

ISr

ISr

JMP

ISr

JMP

JMS

JMP

TEST3

TEST2

.-10

TEST1

JMSTST+2

PTSTNO

ISrTST

TEST1

'"

TEST2

(1\

TEST3 0

TEST4

'"

TEST5

'"

JMSCON

JMS

6000

RETJMP

JMP

JMPRET

IREWINO

ALL

SELECTED

DRIVES

TO

REVERSE

END

tONE

REPOSI 0

JMS

RSFDRV

/RESET POINTERS

FOR

FIRST

DRIVE

LAC

MOV8AK

IGET

MORE

BACKWARDS

XOR

UNFUNC

ICOMBINE

WITH

UNIT

NUMBER

707545

ICLEAR

AND

LOAD

A

JMS

WATINT

/WAIT

500000

/EXPECT

END

~ONE

AND

EF

JMP

MOVER

IMOVE

ERROR

(INCORRECT

STATUS>

CLA!CMA

DAC*

POSITN

DAC*

OIRECT

JMS

CHNGOR

JMP

REPOSI+2

JMP*

REPOSI

IRESET

CURRENT

ORIVE

RSFORV

0

OtM

CDRIVE

LAC

TWOHUN

DAC

COMBIT

LAC

MSBITS

AND

COMBIT

IINDICATE

END

~ONE

lAND

BACKWARElS

ISET

UP

NEXT

DRIVE

IREWIND

NEXT

DRIVE

IALl

DRIVES

IN

END

tONE, EXIT

POINTER

TO

FIRST

ORIVE

SELECTED

/tERO

CURRENT

ORIVE

/SET

UP

COMBIT

StA!ClA

lIS

THIS

DRIVE

SELECTED

JMP

RSFDRl

IYES,

SE1pOINTER

PAGE

23

RANOEX

DTRE15

ClJ2235

203443

LAC

COMBIT

ClJ2236

744020

CLL!RAR

IMOVE

nRIVE 81T

RIGHT

V12237

~4:\443

OAC

COMBIT

~2?4Vl

443436

ISr

CDRIVE

IINCREMENT

DRIVE

NUMBER

ClJ2241

6~?231

JMP

RSFORV+4

IHAVE

FOUND

FIRST

DRIVE

SELECTED

0,224(>

1022f3

RSFDRl

JMS

GNPTRS

IGENERATE

CONTROL

POINTERS

02243

622225

JMP*

RSFDRV

IEXIT

ISELECT

NEXT

DRIVE

OR

RESET

TO

rIRST

AND

SKIP

02244

~H'l~0(1l0

CHNGDR

Q!

Vl2245

203443

LAC

COMBIT

IGET

DRIVE

BIT

0224fJ

744020

CLL!RAR

IMOVE

RIGHT

0,2247

740400

SNL

ICHECKED

ALL

DRIVES

02250,

61212254

JMP

.+4

INO

0,

22 51

10,

2225

JMS

RSFDRV

IYES

RESET

TO

FIRST

02252

442244

IS2

CHNGOR

IINCREMENT

02253

622244

JMP-o

CHNGDR

lAND

EXIT

02254

043443

DAC

COMBIT

02255

443436

ISl

CORIVE

02256

':>03453

AND

MS8ITS

02257

751200

SNA!CLA

ITHIS

DRIVE

SELECTED?

02260

602245

JMP

CHNGDR+l

INO

0,

22 61 1022 63

JMS

GNPTRS

IGENERATE

DRIVE"

POINTERS

02262

622244

JMP*

CHNGDR

IEXIT

IGENER~TE

LAST

RECMRD,

DIRECTION

AND

UNIT

NUMBER

IPOINTERS

FOR

DECTAPE

rUNCTIONS

02(>63

~0V'1000

GNPTRS

'"

02264

203436

LAC

CORIVE

IGET

DRIVE

NUMBER

02265

744020

CLL:RAR

1212266

74012120

RAR

1212267

742020

RTR

IREPOSITION

FOR

STORAGE

02270

043506

DAC

UNFUNC

lIN

UNIT

FUNCTION

REGISTER

02271

203436

LAC

CORIVE

02272

34230,3

TAD

PNTRS

02273

043467

DAC

POSITN ISET

UP

POSITION

02274

203436

LAC

CDRIVE

0,2275

342314

TAO

PNTRS+11

02276

043445

DAC

DIRECT

IDIRECTION

AND

Pl2277

203436

LAC

CDRIVE

02300

34.2325

TAD

PNTRS+22

02301

043451

DAC

LSTBLK

ILAST

RLOCK

BLOCK

POINTERS

02302

622263

JMP-o

GNPTRS

02303

0,02304

PNTRS

•

+1

02314

.LOC

.+10

0,2314

002315

• + 1

02325

.LOC

.+10

02325

00('326

• + 1

02336

.LOC

.+10

IMOVE

ERROR

02336

10234121

MOVER

JMS

.+2

1212337

602211

JMP

R[POSI+2

02340, 000,000

0,

02341

102726

JMS

ERSTP

ISTOP

TAPE

02342

102734

JMS

TYMoVE

ITYPE:

OUT

HEADER

02343

707572 707572

IRE

AD

ItB"

PAGE

24

RANDEX

DTRE15

02344

102670

JMS

OPRINT

ITYPE

OUT

A

02345

203544

LAC

(MESS3

1112346

tta2633

JMS

t-1SPRNT

ITYPE

"STATUS

R"

0234 7

75~004

LAS

02350

751100

SPA!CLA

02351 74"'040

XX

02352

622340

JMP*

MOV[R+2

ISEARCH

ROUTINE

-

FINO

BLOCK

INDICATED

IBY

THE

cONTENTS

OF

"RECORD"

IN

THE

DIRECTION

IINDICATED

BY

"DIRFLG", 0-FWD, -1-8KWD

02353

000000

SEARCH

0

02354

203446

LAC

DIRFLG

02355

754200

S2A!CLA!CLL

IFORWARD?

02356

740002

CML

INO,

BACKWARD

02357

20

3425

LAC

THREE

ICOMPUTE

02360

741400

S~L

ITURN

02361

602364

JMP

.+3

IAROUND

02362

740001

CMA

IPOINT

02363

343401

TAD

ONE

IF

OR

02364

343472

TAD

RECORD

IDECTAPE

02365

740001

CMA

ISEARCH

02366

343401

TAD

ONE

lAND

02367

043500

DAC

TAPONT

ISTORE

02370

203446

LAC

OIRFLG

02371

751200

SNA!CLA

IFWD

OR

BKWD?

02372

203371

LAC

FTYTHO

IBKWD

(40'('HUJ)

02373

343412

TAD

SEAFOR

ISEARCH

FORWARD

02374

343506

TAD

UNFUNC

ICOMBINE

IN

UNIT

NUMBER

02375

707545

707545

ICLEAR

AND

LOAD

HA"

02376

203372

LAC

loCON

18LKFNO

02377

040031

DAC

CA

ISET

UP

CA

02400

75e001

CLA!CMA

02401

043434

OAC

RLKFLG

ISET

UP

BLKFLG

02402

101701

JMS

WATINT

02403

000100

100

IDTF

02404

602503

JMP

SRE~TS

IERROR,

SEE

Ir

END

~ONE

02405

102441

JMS

SRCONT

02406

602412

JMP

SRTARN

IBLOCK

=

BLOCK

rOUND

02407

602412

JMP

SRTARN

IGONE

PAST

BLOCK

02410

707554

707544+10

ICLEAR

AC,

XOR

A

02411

602402

JMP

.-7

IHAVEN'T

REACHED

BLOCK

YET

02412

707552

SRTARN

707552

IREAD

"A"

02413

740001

CMA

02414

503432

AND

TYTHOU

IMOTION

BIT

02415

343371

TAD

FTYTHO

140,000

O2416

707544

707544

IXOR

"A"

(TURN

AROUND)

02417

203472

LAC

RECORD

02420

740001

CMA

02421

343401

TAO

ONE

02422

043500

DAC

TAPONT

15ET

UP

TAPONT

02423

750001

CLA!CMA

02424

043434

DAC

BLKFLG

lAND

BLKFLG

02425

101701

JMS

WATINT

IWAIT

02426

800100

100

IOTr

02427

682562

JMP

SRHERR

IERROR

PAGE

:?';

RANnEX

DTRE15

1712

4

30

10?441

JMS

SRCONT

ICHECK

RELATION

OF'

9LOCK

?2431

62?

3')

~~

JMP*

SEARCH

IFOUND

ALOCK,

rXIT

02432

60(,')1)2

JMP

SRHERR

~2433

750001

CLA!CMA

~2434

343434

TAD

RLKFLG

02435

751201£'

SN.A!CLA

IREAD

?

8LOCK

NUMBERS

0243A

60?'533

JMP

SRCMOD

IYES,

CHANGE

TO

CONTINUOUS

MODE

02437

707544

707544

/XOR

INTO

"A"

<CLEAR

FLAGS)

02440

6024?5

JMP

.-13

IFIND

RELATION

OF

RLOCK

FOUND

TO

BLOCK

ISaUGHT

AND

TEST

BLOCK

NUMBERS

TO

BE

CONSECUTIvE

02441

17l00GW0

SRCONT

'"

02442

443434

1St

RLKFLG

IFIRST

sLaCK

NUMBER?

02443

7410V'l0

SKP

INOT

FIRST

02

444

602

461

JMP

SRFBLK

IFIRST,

JUST

SAVE

IT

V'l244'5

707552

7075'52

IREAD

"A'/-

0244A

503371

AND

FTYTHO

140,000

02447

7502!i'l0 Si!A!CLA

IBACKWAROS

02450

740001

CMA

IYES,

-1

02451

7412'10

SNA

02452

343401

TAD

ONE

IFORWARD,

+1

1£'2453

343470

TAD

PREBLK

ILAST

BLOCK

+1

OR

-1

02454

740001

CMA

02455

343401

TAD

ONE

02456

343435

TAO

8LKFND

02457

7502(110

S~A!CLA

ISLOCKS

CONSECUTIVE

02460

602562

JMP

SRHERR

INO,

ERROR

02461

203435

SRFBLK

LAC

BLKFND

02462

043470

OAC

PREBLK

02463

343500

TAO

TAPONT

02464

741200

SNA

IFOUND

BLOCK?

02465

622441

JMP~

SRCONT

lyES

02466

442441

ISr

SRCONT

02467

755100

SPA!CLA!CLL

IBLKFND

GREATER

02

470

7400(112

CML

INO, LESS

02471

707552

707552

IREAD

A

02472

503371

AND

FTYTHO

140,000

02473

741400

Si!L

02474

602500

JMP

.+4

02475

7502CJ10

S~A!CLA

IIF

FORWARD

HAVE

GONE

PAST

02476

442441

TS~

SRCONT

IBACKWARD

1£'2477

622441

JMPo

SRCONT

02'500

7512V'l0

SNA!CLA

02512'1

442441

IS~

SRCONT

~2502

622441

JMPo

SRCONT

02503

707572

SRE~TS

707572

IREAO

"8"

02504

742010

RTL

IMrVE

Ei!

BIT

INTO

0

02505

7541V'1~

SMA!CLA!CLL lEND

i!ONE

INTERRUPT?

02'506

60?562

JMP

SRHERR

INa,

SOME

OTHER

~2'j07

2~B5C'1~

LAC

TAPONT

~2"1C'1

74010\11

SMA

IBLOCK

0

OR

1

~2511

6~?'515

JMP

.+4

02512

343376

TAO

MBLOCK

02'513

7501(110

SMA!CLA

IBLOCK

1077

OR

1100?

02'51 4

602530

JMP

.+14

INO,

TURN

AROUND

PAr.E

?6

RA\Jl[X

DT~E1r;

I'"

?')

1 S 7

'5

(~,j

v'

4 lAS

02'116

742v~1

~

RTL

\-12'117

740f)"1

~

RAL

1ij2')2~

75n1V'vI

SMA!CLA

II\J F W

FnRMAT

TAPE?

02'521

602412

JMP

SRTARN

IYES,

TURN

AROUNO

0?5~2

?0343?

LAC

TYTHOU

120,~0Q1

(II?523

707544

707544

IXOR

INTO

"A"

(GO

AGAIN)

V1?524

101701

JMS

WATINT

IWAIT

FOR

Et

(112);2'5

~~W0\~0

'50Vl~H~0

IERROR,

ENn

tONE

02');:>6

6025A?

JMP

SRHERR

02'527

602412

JMP

SRTARN

k}

2 5 3 0

443434

ISt

RLKFLG

INoT FIRST INTERRUpT

02')31

602562

JMP

SRHERR

lEt

IS

ERROR

02532

602412

JMP

SRTARN

ITURN

AROUND

V12533

203435

SRCMOD

LAC

8LKFND

IFINn

DIFFERENCE

02534

740001

CMA

lIN

NUMBER

02535

34~401

TAO

ONE

IOF

0;:>536

34~472

T

A[)

RECORD

IBLOCKS

02537

741100

SPA

02')40

60:::?543

JMP

.+3

02541

74(11001

CMA

IMAKE

NEGATIVE

02542

343401

TAO

ONE

02543

040030

DAC

WC

IF

OR

WORD

COUNT

02544

203423

LAC

TENTHO

110,000

<CONTINUOUS)

02t)4t)

707544

707544

IXOR

INTO

"A"

02'546 HH7011

JMS

WATINT

02')47

000,100

100

IDTF

02550

602562

JMP

SRHERR

INOT

NORMAL

INTERRUPT

02551

203435

LAC

8LKFND

02552

74~HHH

CMA

02553

343401

TAD

ONE

02554

343472

TAD

RECORD

02555

75V120Ql

S~A!CLA

ICORRECT

BLOCK?

02556

602'562

JMP

SRHERR

INO,

ERROR

02557

203423

LAC

TEN

THO

110,000

02'560

707544

707544

IXOR

INTO

"A"

<CLEAR

CONT)

liI2561

6223'53

JMP*

SEARCH

ISEARCH

ERROR

TYpEOUT

02562

102726

SRHERR

JMS

ERSTP

ISTOP

TAPE

02563

102743

JMS

TYSRCH

ITYPE

HEADER

02564

203472

LAC

RECORD

"'2565

102670

JMS

OPRINT ITYPE

sLOCK

NUMBER

02566

203545

LAC

(MESS18

02567

10(>633 JMS'MSPRNT ITYPE

"BLOCK

WANTED

02570

203446

LAC

OIRFLG

02571

751200

SNA!CLA

0~57?

602575

JMP

.+3

02'573 1031(1\0

JMS

TYBKW

/TYPE

8ACKWARDS

0?'574

741000

SKP

02-57'5

103H'4

JMS

TYFWO

ITYPE

FORWARD

0257A

10?714

JMS

CRLF

02577

2034~5

LAC

8LKFND

02600

10?670

JMS

OPRINT ITYPE

BLOCK

FOUND

02601

203546

LAC

(MESS19

02602

102633

JMS

MSPRNT

ITYPE

"BLOCK

rOUND!

PAGE

?7

RANn(X

DTRE15

(~?

f '"

~

750.~~~1

CLA~rMA

~)?604

3434~4

TAD

RLKFLG

~260"

751100

SPA:CLA

D'26v'6

602613

JMp

.+5

~2607

203470

LAC

PREBLK

02f..1V'

HJ267~

JMS

OPRINT ITYPE PREVIOUS

BLOCK

Vl?~ll

(>kL~c;47

LAC

(MESS2~

v'261~

10;:>633

JMS

t-1SPRNT

ITYPE "LAST

BLOCK"

0;;>613

44~434

1St

8LKFLG

02614

74 D'0v'0

NOP

'~2A1S

?~~

3 4

~

4

LAC

RLKFLG

02f-11S 10(>6 70

JMS

OPRINT ITYPE

OUT

QUANTITY

OF

BLOCKS

1'(>"'17

?035,)0

l.AC

(MESS21

~2b2~

102633

JMS

MSPRNT

ITYPE

"BLOCKS

READ"

02621

707572 707572

IRFAD

"B"

02622

H'J2670

JMS

OPRINT ITYPE

OUT

B

~12623

203551

LAC

(MESS3

02f24

H'l2633

JMS

MSPRNT

ITypE

"STATUS

A"

0262~

750'-104

LAS

02626

751100

SPA!CLA /HALT

ON

ERROR?

.02627

740040

XX

IYES

02630

443457

1St

PASFLG

ISECOND

ERROR?

02~31

6~H:~361

JMP

REWDRV

/YES,

REWIND

DRIVE

02632

602354

JMP

SEARCH+1

INO,

SEARCH

AGAIN

ITYP[

TEXT

ROUTINE

~2633

000000

MSPRNT

~

V12634

503552

AND

(7777

?2635

043466

DAC

PNTR4

~2636

750004

LAS

02637

740010

RAL

02640

751100

SPA!CLA

02641

622633

JMP

..

MSPRNT

0264;:>

223466

LAC

..

PNTR4

02~43

742020

RTP

02044

742020

RTR

02645

742020

RTR

02646

742020

RTR

02647

740020

RAR

02650

102661

JMS

TYPE

026'51

543411

SAD

RUBOUT

02652

622633

..

IMP

..

MSPRNT

~2653

223466

LAC

..

PNTR4

02654

102661

JMS

TYPE

02655

'543411

SAO

RU80UT

02656

62;:>633

JMP

..

MSPRNT

02657

443466

lS2

PNTR4

021'6~

60(>636

JMP

MSPRNT+3

~2b61

(-'I~W0ri'0

TYPE

0

0266?

503411

AND

qUBOUT

~2A63

70~4(.'!6

TLS

02664

7e1~401

TSF

0266'5 61!l?664

JMP

.-1

02666

700402

TCF

02667

622661

JMP

..

TYPE

ITYPE

OUT

CONTENTS

OF

AC

IN

OCTAL

PAGE

28 R

"

~~!1

E

'J:

DTRE1'5

f!l?t..7()

vhhW?0 OPRINT

(i1

02671

04~5""4

[lAC

TE"'14

0?67?

750CW4

LAS

02(,73

74r~10

RAL

~2('74

7511V'v)

SPA:CLA

02675

(,

2?

6

7~'

J"'1P*

QPRINT

0267f,

777772

LAW

-6

'112677

~43441

OAr

r:NTRl

0(17(1H'I

203504

LAC

TE"'14

02701

744010

RAL:CLL

02702

74(i1~~1C~

RAL

02703

74?01~

RTL

02704

0435?4

OAC

TE"'14

02705

503413

AND

SEVEN

02706

243363

XOR

ASC

I I

0,2707

102601

JMS

TYPE

0,2710

203504

LAC

TEM4

02711

443441

IStz

r:NTR1

Vl2712

602702

J"'1P

.-10

02713

(-2?67~

JMP* OPRINT

02714

00V10~0

CRLF

VI

02715

75001214

LAS

02716

740010

RAL

02717

7511''10 SPA!CLA

02720-

622714

JMP*

CRLF

02721

760215

LAW

215

02722

102661

JMS

TYPE

02723

760212

LAw

212

02724

102661

JMS

TYPE

02725

622714

JMP*

CRLF

ISTOP

TAPE

ON

ERROR,

LEAVE

FLAGS

SET

02726

00000,0 ERSTP 0

02727

707552 707552

IRE"AD

"A"

02730

503432

AND

TYTHOU

ISTOP

02

73

1

343411

TAO

RU80UT

IDON'T

CLEAR

DTF

AND

EF

02732

7rtl7544

707544

IXOR

INTO

"Aft

02733

62?726

JMP* ERSTP

ITYPE

"MOVE"

AND

DIRECTION

02734

00(110~H~

TY"'1oVE

(2]

"'2735

103040

JMS

TYDRV

02736

203553

LAC

(MESS22

02737

102633

JMS

MSPRNT

02740

l030'16

J"'1S

TYOIR

02741

102714

JMS

CRLF

02742

622734

J"'1P*

TYMOVE

ITYPE

SEARCH

DIRECTION

AND

MODE

02743

00091?(.iJ

TYSRCH

0

02744

103040

JMS

TYDRV

02745

102714

JMS

cRLF

0274(-

203'5")4

LAC

(MESS23

02747

n1?633

JMS

MSPRNT

02750

1031il56

JMS

TYDIR

02751

10~070

JMS

TYMODE

02752

102714

JMS

CRLF"

02753

622743

JMP*

TYSRCH

pAGE

'29

RA~nEX

DTRE15

/TYPE

"READ

nATA" nlREcTION

AND

MODE

"'2754

~0'~vW0

TYRDAT

~

~\275"

10311 40

JMS

TYORV

~275f

10?71.4

JMS

~RLF

~2757

HB020

JMS

TYREAD

0276V

103~3fA

JMS

TYOATA

02761

10~vJ~6

JMS

TYOIR

tA2

76'

103"70

JMS

TYMODE

~~2763

10(,714

JMS

r;RLF

~~;:>

764

62;:>7'54

JMP*

TYROAT

/TYPE

"READ

ALL"

DIRECTION

AND

MODE

,~2765

00

~JI~",

r;r.

0

TYRALL

0

1':2766

10:~

{'

4 0

JMS

TYORV

0.2767

102714

JMS

CRLF

0277'"

103020

JMS

TYREAO

02771

10312134

JMS

TYALL

02772

103056

JMS

TYDIR

02773

10307~

JMS

TYMOOE

02774

10'714

JMS

CRLF

~2775

t2?765

JMP*

TYRALL

/TYPE "WRITE

DATA"

DIRECTION

AND

MODE

02776

~00000

TYWDAT

'"

~2777

103040

JMS

TYORV

039100

102714

JMS

CRLF

03:HH 10391?4

JMS

TYWRIT

03~~0?

1039130

JMS

TYDATA

12l3;

i1

03

103056

JMS

TYDIR

03004

103070

JMS

TYMODE

031710'3

102714

JMS

CRLF

03006

622776

JMP*

TYWDAT

/TYPE "WRITE

ALL"

DIRECTION

AND

MODE

03007

00"'~1110

TYWALL

0

03~1Ci'l

103040

JMS

TvnRV

913011

102714

JMS

GRLF

03?'12

103024

JMS

TYWRIT

03013

103034

JMS

TYALL

03014

1030'36

JMS

TYDIR

03015

103070

JMS

TYMODE

03016

102714

JMS

CRLF

03017

623007

JMP*

TYWALL

/TYPE "READ"

03020

00000.0

TYREAD

0

~31l121

2035'35

LAC

(MESS24

030

22

10

2633

JMS

MSPRNT

12l3V123

623020

JMP*

TYREAn

/TYPE

I,

WR

I TE"

~39!24

"'00000

TYWRIT

0

03025

21213556

LAC

(MESS25

113'''26

102633

JMS

"1SPRNT

03027

n2312l24

JMP*

TYWRIT

/TYPE "DATA"

'13

03~

000000

TYDATA

0

03031

203557

LAC

(HESS26

03~32

102633

JMS

MSPRNT

03033

623030

JMP*

TYDATA

PAGE

~CJI

R.llNnEX

DTRE15

ITYP[

"ALL"

(Jj~7I34

(,11001~00

TYALL

~

~1,~

\1\3 5 ;)0356'11 LAr (MESS27

v!~~03A

1"'?6~3

JMS

'1SPRNT

Vl3

i1

37

6230,34

JMP*

TYALL

ITYPf

f1RIVE

ANfi

NUMBER

V'~V14Vl

"'(7)~vl00,

TynRV

~~

"'3~41

7500V!4

LAS

(7)30.42

740010

RAL

03i'143

7511~0,

SP.A!CLA

03(144

623040

JMP*

TYDRV

Vl3

ii14

'5

2CJ1~~5hl

LAC

(MESS28

03V146

102633

JMS

MSPRNT

03V147

203436

LAC

CDRIVE

1il305CJ1

741200

SNA

03051

343422

TA[1

TEN

030'52

243363

XQR

ASCII

03053

102661

JMS

TYPE

03054

102714

JMS

CRLF

03CJ155

623040

JMP*

TYDRV

ITYPE

"FORWARD"

OR

"BACKWARD"

(7)3056

00000(7) TYDIR

CIl

03057

707552

7075'52

IREAD

"A"

(7)306(7)

5133371

AND

FTYTHO

1400(7J00

03061

741200

SNA

03062

6030A5

JMP

• + 3

03CJ163

2035A2

LAC

(MESS29

IBACKWARD

(7)3064

7410(7)0

SKP

(7J3CJ165

203563

LAC

(MESS30

IFORWARD

03(7J66

1Vl2633

JMS

"1SPRNT

03067

623056

JMP* TYDIR

ITYPE "CONTINUOUS" IF

NOT

NORMAL

MOOr

Vl3070

(7)~.H,!(7)(?\0

TYMODE

(7)

03(7)71

707552

707552

IREAD

"A"

03072

503423

AND

TE~JTHO

/1''1000

03Vl73

741200

SNA

03Vl74

623070

JMP*

TYMODE

03075

203564

LAC

(MESS31

(7J3076

102633

JMS

MSPRNT

ITYPE "CONTINUOUS"

03(7)77 62307(7) JMP*

TYMODE

ITYPE

"BACKWARD"

03HJ0

0000(7)0

TYBKW

0

03HH

203565

LAC

(MESS29

03102

102633

JMS

MSPRNT

03103

6231(7)0 JMP*

TYBKW

ITYPE

"FORWARD

ft

CJl3104

VlVl0C1l(7J0

TYFWD

0

03105

2035('6

LAC

(MESS3Vl

Vl3106 10

2633

JMS

"1SPRNT

03107

623104

JMP*

TYFWD

03110

21'5212

MESS1

?15212

ICR,LF

(7J3111

316317

316317

IN,O

03112

240324

240324

ISP,T

03113

322301

3223~1

IR,A

03114

316323

316323

IN,S

PAGE

31

RA"JnEx

OTRE1':>

Vl311 S

32?317

320317

IP.O

0311f-

~2?3?4

322324

IR.T

\.13117

3232

40

323240

IS.SP

~312(l1

323~?-;

3233~5

IS.E

03121

~14305

3143~5

Il.E

Vl312?

3~n3:?4

3033:?4

IC.T

03123

3

;1'5

30

4

3~53C~4

IE.o

0312

4

21'3212

215212

ICR,lF

03125

377~?0

3770(1)0

IR.o.

0312f-

?4?3V12

MESS2

?403~2

ISP,R

03127

31 4

317

314317

Il.O

0.3130

313313

303313

IC.K

0,H31

21"'212

215212

ICR.lF'

~3132

377000

3770(1)0

IR.

O.

03133

24~~323

MESS3

240323

/SP,s

(1)313

4 3243(/'1

3243~1

IT,A

03135

324325

324325

/T,U

0313(-

323240

3232417l

IS,SP

03137

302215

302215

18,CR

03140

212377

212377

IlF,R.O.

03141

24(1)327

MESS4

240327

ISP,w

03142

25631113 25631713

I,C

03143

256215

256215

/,CR

03144

212377 212377

IlF,RO

0314'5

304301

MESS5

304301

/o,A

(l)314A

3243~11

324301

IT,A

03147

240305

240305

ISP,[

03150

322322

322322

IR,R

03151

317322 317322

IO,R

03152

215212

215212

/CR,lF

(1)3153

3770(110

377000

IRa

03154

;:>4030l3

MESS6

2403(J13

ISP,C

03155

317

322

317322

IO,R

0315A 21

t5

212

215212

ICR,lF

03157

377000

377000

IRa

1713160

240311

MESS7

240311

ISP,l

03161

316303

316303

IN,C

03162

215212

215212

ICR,lF

03163

377000

377000

IRa

(113164

240301

MEssa

2417l3(1)l

ISP,A

0316'5

3043(114

304304

10,0

03166

322323

322323

IR,S

03167

24~317

24171317

ISP,Q

~3170.

306240 306240

IF,Sp

03171

311316

311316

11,N

03172

3~3215

303215

IC,CR

03173

212377

212377

/IF,RO

~3174

303313

MESS9

303313

IC,K

0317»

32332'

323325

IS,U

0317A

31»240

315240

IM,SP

1113177

30»322

305322

IE,R

03200

322317

322317

IR,O

03201

322215

322215

IR,CR

~3202

212377 212377

IlF,RO

~3203

24~322

MESS10

240322

ISP,R

PAGE

32

RANnEx OTRE1')

03?~4

3~53?6

~053?6

IE,V

03;;05

?4

(71:377

240377

ISP,RO

Vl320A

24'~31

4 MESS11

240314

ISP,L

03?(II7

2563;>0

?5~320

/.

, P

"132101

25A302

2563~2

I.

,8

03211

?56215

256215

I.

,

CR

03212

212377

212377

ILF,RO

0~~213

24013

01

3 MESS12

24~1303

ISP,C

03214

310305

3103l~5

IH,E

03215

303313

303313

IC,K

03216

24

0323

240323

ISP,S

03217

321=;315

325315

IU,M

03?2

01

377000

3770010

IRO

03221

;:>403013 MESS13

240303

ISP,C

03222

301314

301314

IA,l

03223

3033?5

3033;:>5

/C,U

03224

3143

01

3143""1

Il,A

03225

32430.5

324305

/T,E

03226

304377 304377

IO,RO

03227

215212

MESS14

215212

/CR,LF

03230

320.256

320256

IP,

•

03231

311256 311256

I I , .

03232

240.377

241?1377

ISP,RO

03233

215212

MESS15

215212

ICR,LF

03234

316317

316317

IN,O

k13?35 ;:>40320

240320

ISP,P

03?36

256311

2563J1

I.

, I

03237

256377 256377

I.

,

RO

03240

240.316

MESS16

240316

ISP,N

03241

317377

317377

IO,RO

1'J3242

2403"'4

MESS17

240304

ISP,O

03243

30531713

305303

IE,C

03244

3243l1'll

324301

IT,A

03?45

320305

320305

IP,E

03246

240323

240323

ISP,S

03247

313311 313311

IK,

I

0325ti1

320215 320215

IP,CR

03251

212377 212377

ILF,RO

03252

24"'302

MESS18

240302

ISP,B

0.3253

314317 314317

IL,O

03254

303313

303313

IC,K

03255

240.327

240327

ISP,W

03?56

301316

301316

IA,N

1713?57

324305

3243"'5

IT,E

03260

304377 304377

IO,RO

03261

240302

MESS19

240302

ISP,B

03262

31

4

317

314317

IL,O

~3?63

30~313

303313

IC,K

03264

240306

240306

/SP,F

V'l3?65

317325 317325

IO,U

03;?6f-

31fd(l14

316304

IN,O

03267

215212 215212

ICR,LF

0327111

377000

377000

IRO

03271

240314

MESS20

240314

ISP,L

03272

301323

301323

lA,S

PAGE

33

RANnEX

DTRE15

~3273

324?4~

32424~

IT,SP

~3274

3~?,"314

302314

/8,C

1113/75

317303

3173!1'3

IO,C

03276

313215

313215

IK,CR

03)77

21?:n7

?1?377

ILF,CR

~3300

240302

MESS?l

?4!i'302

ISP,R

L~3301

314317

31431

7

/L,Q

03302

303313

303313

IC,K

~3303

323240

323240

IS,SP

~3304

322305

3223~5

IR,E

03305

3013~4

3013~4

IA,O

Vl330f,

215212

215212

ICq,LF

;(\3307

377000

377000

IRO

033H'I

215212

MESS22

?1~212

ICR,LF

03311

315317 315317

/M,O

03312

326~~OI5

3263"'5

/V,E

03313

240377

24C?1377

ISP,RQ

03314

3233015 MESS23

323305

IS,E

0~~315

301322

301322

IA,R

03316

303310 303310

/C,H

03317

240377

240377

ISP,RO

033?0

322305

MESS24

322305

/R,E

03321

301304

301304

IA,D

03322

?4V'!377

240377

ISP,RO

(113323

327322

MESS25

3273?2

IW,R

03324

311324

311324

/1.T

0332'5

305240 305240

IE,SP

03326

377000

3770~0

IRO

03327

304301

MESS26

304301

IO,A

03330

324301

324301

IT,A

03331

240377 240377

ISP,RQ

03332

301314

MESS27

301314

IA,l

03333

314240 314240

Il,SP

03334

377001'"

377000

IRO

03335

215212

MESS28

215212

/CR,lF

03336

215212 215212

/CR,LF

03337

304322 304322

IO,R

03340

311326

3113?6

I I , V

03341

305240

305240

IE,SP

03342

240377 240377

/SP,RO

03343

3023(111 MESS29

302301

IS,A

03344

303313 303313

ICK

03345

327301

327301

hJ,A

03346

322304

3223~4

IR,D

03347

240377

240377

ISP,RO

03350

306317

MESS30

306317

/F,O

03351

322327 322327

IRdr4

0335?

301322 301322

IA,R

03353

304240 304240

IO,SP

03354

3770"'0

3770~0

IRa

0335'5

303317

~ESS31

303317

le,o

~3356

316324 316324

IN,T

(~335

7

311316 311316

I I , N

03360

325317 325317

IU,O

03361

325323 325323

IU,S

PAGE

34

'~3

3

6?

v)3363

03364

0~-565

~3~6f,

'~3367

0;q70

~337'1

~337?

~n373

03374

03375

03376

"'3377

03400

~3401

034_0?

V'!3403

03404

03405

~3406

03407

03410

03411

03412

03413

03414

03415

03416

03417

03420

03421

03422

03423

03424

0342'5

03426

03427

03430

03431

03432

03433

03434

03435

03436

03437

(,113440

~3441

k13442

03443

03444

03445

03446

RANr'lEX

?4~~77

vV\fl'?A0

0.0

4,377

00500V'!

00?315

(~1

t:;

0(/1

(,II

'-"05\~00

0401;1(il11

003435

V'lVl1777

0(,11?326

017777

7767Vt0

060400

400000

000001

001000

0'-"?304

0044

02

003777

004377

~H?J4000

060400

01.30377

021400

00f?1007

000070

~H!10700

007000

070000

700000

V100077

000010

010000

000037

000003

003000

0130V10

000200

012000

020000

000000

0000V10

000000

00f?1(~(i'l0

00vHHH~

vH10000

0000Vl~

(iHiH~000

000000

vH!J0000

000"''''0

000000

DTRE15

24f?1377

/CONSTANTS

ASCII

?60

BF1LOC

BF2LOC

DIRTBL

FIFTHO

FlVTHO

FTYTHO

IDCON

8LKF\lD

INDEP

1777

LSTTBL

MASK

17777

M8LOCK

MOVBAK

MUCHQI

40Vl000

ONE

1

ONE

THO

POSTBL

RADLOC

RBFLOC

RBUFND

R8UFST

REWIND

RUROUT

SEAFOR

SEVEN

7

SEVSEv

70

700

7000

70000

7000~0

TEN

10

TENTHO

TERSE

V

THREE

3

TRETHO

TRTETH

TWOHUN

TWVTHO

TYTHOU

/VARIA8LES

ACCUM

0

RLKFLG

BLKFND

CDRIVE

CKSUMR

CNTR

0

CNTRl 0

COCNTR

COMBIT

OATASM

DIRECT

DIRFLG

/SP,RO

RUFFRS-1

ICONSTANT

FOR

nATA

STORE

RUFFRS+400

/AODRESS

OF

SErOND

BUFFER

PNTRS+12 /DIRECTION

TABLE

15~00

/SEARCH

TO

WRITE

CONT

5000

40000

/BACKWARO

/MASK

FOR

BLOCK

NUMBER

PNTRS+?3 /LAST

BLOCK

WRITTEN

TAALF

-1-11~0+1

/-NUMBER

OF

BLOCKS

060400

/MOVE

BACKWARDS

1000

PNTRS+l

AUFFRS+2

RANBFR-1

RANBFR+377

RANBFR

060400

377

1?!214((10

77

10000

37

3000

13000

200

12000

20000

lAC

AT

P.I

~

/DRIVE POSITION

TABLE

/LOCATION

-1

OF

FIRST

DATA

WORD

(READ

ALL)

/MASK

FOR

10-17

/MASK

/CONTINUOUS

/MAsK

/SEARCH

TO

READ

'/SEARCH

TO

READ

CONTINUOUS

/SEARCH

TO

READ

ALL

CONTINUOUS

/GO,

STOP

((I

/NUMBER

OF

BLOCK

FOUND

((I

/CURRENT

DRIVE

NUMBER

I?!

/CALCULATED

CHrCKsUM

/EXTRA~EOUS

COUNTER

/CDUNTER

FOR

OPRINT

~

/COMPARE

ERROR

FLAG

~

/BIT

POSITION

FOR

TEST

AGAINST

S.R.

o

/SAVED

DATA

SUM

((I

/CONTAINS

OIRrcTION

READ

((I

/INDICATES DIRECTION

TO

GO

PAGE

35

RAI\.jDEX

OTRE15

~3447

~V'r;,~'~0

FRSWAT

0

:;1:~

4

'5

~~

0C11~~"'0

rWOCHK

V'

/FORWARD

CHECKSUM

034~1

~H:'l0(?l0\~

LSTBLK

0 /LAST

BLOCK

WRITTEN

POINTER

~)45?

0000.00

LSTORV

0 INEGATIVE

OF

LAST

ORIVE

SELECTED

;;j;5453

000000

MSBITS

'"

IHOLO

UNIT

BITS

0.~~454

000\~00

NUMBER

0 ISTORE

FOR

MCOMOR

vB455

0000.00

NUMBLK

0

INUMBER

OF

ALOCKS

WITH

WHICH

TO

OPERATE

0j45~

00(11~V'0

08VERS 0 I08VERSE

NUMBER

03457

vH~W0"'0

PASrLG 0

0346~

0.0.00V'0 PICNTR 0

IPI

COUNTER

03461

000rlVl0 PIDE X1 0

IPI

POINTER

0.3462

r!I\ih'!0C"0.

PIDE X2

(I!

IPI

POINTER

0~~463

00(l1v'0(1

PNTR1

0

/EXTRAI\JEOUS

POINTER

03464

00(1!0(iH~

PNTR2

0

IEXTRAI\.jEOUS

POINTER

034615 o elliHH'l 0

PNTR3

0 IPOINTER

FOR

MCOMOB

03466

0V10'1e10

PNTR4

12)

IPOINTER

FOR

MSPRNT'

03467

000.000 POSITN

~

03470

0000.(il0

PREBLK

0.

03471

000.000

RAEFLG

0

IREAD

ALL

ERROR

FLAG

03472

0.0000.0

RECORD

0.

03473

000000

REVCHK

0 IRE

VERSE

CHECK

FROM

TAPE

03474

000.000

RSQFLG

0.

03475

00

(iHHHlI

SAVNUM

QI

ISTORE

NUMBER

OF

BLOCKS

1:13476

000.000

SBRECD

0.

ISTATUS

OF

B

03477

000000

TALLY

0.

ITALLY

FOR

MCOH08

0.3500 0.0.0000

TAPONT

0

ITURN

AROUND

POINT

FOR

SEARCH

0350

1 000.000

TEM1

12)

ITEMP

STORAGE

03502

000000

TEM2

0 IFOR

PATG£N

03503

000000

TEM3

0 ISUBROUTINE

03504

000000

TE

M

4 0

ISTDRAGE

FOR

OPRINT

03505

000000

TRECTR

0

ICOUNTER

FOR

WRITE

DATA

CONTINUOUS

03506

000000

UNFUNC

0 IUNIT

NUMBER

0~S'507

0000t1!0

WTCNTR

0 IWAIT

COUNTER

~H10000

.END

0.3"10

003110

*L

0.3511

003126

oL

03512

003133

oL

03'513

003141

*L

0.3514

003413

oL

0.3515

003145

oL

03516

003126

oL

03517

003154

*L

03520

003160

oL

03521

003164

*L

03'522

003126

*L

0.3523

003133

ttL

03524

003141

*L

03'525

003126

oL

~'3526

003174

*L

~3C:;27

003203

*L

03530

003206

*L

(7,3531

003213

oL

03532

003221

*L

03533

003126

oL

V'3534

003133

oL

PAGE

36

RANf)EX

DTRE15

73535

00~141

*L

3"\~6

601735

*L

?3537

003227

*L

C"354V1

003233

*L

V3'541

003240

*L

(?3542

003242

*L.

03543

006000

*L

03544

003133

*L

(1'3545

0032"52

*L

~3546

~03261

*L

"'3547

003271

*L

~~3S50

003300

*L

03551

003133

*L

03552

007777

*L

03553

003310

*L

03554

003314

*L

03555

003320

*L

V'3556

003323

*L

V'3557

003327

*L

0356~

003332

*L

03'561

003335

*L

03562

003343

*L

03'563

003350

*L

03564

003355

*L

eJ3565

003343

*L

03566

003350

*L

5I2E=03567

NO

ERROR

LINES

PAGE

37

RA~nEx

DTRE1~

ACCUM

03433

ASC

I I

03363

AF1LOC

0331-4

RF2LOC

03365

RLKFLG

~3434

ALKFND

03435

RUFFRS

~04400

r;A

0121012131

CALCTY

1211653

CDRIVE

1213436

CHNGOR

02244

CKSTYP

"'1647

CKSUMR

1213437

CLOF

712112112104

CLON

712112112144

CLSF

7121012101

CNTR

03440

CNTRl

1213441

COCNTR

1213442

CODATA

006?6

COERRO

1210653

COERR1

121121673

COLOOP

12112164121

COMBIT

1213443

CORT1R

121121763

CRLF

1212714

DATASM

1213444

DIRECT

1213445

DIRFLG

1213446

DIRT8L

12133f\6

EEM

71217702

ERRCKS

1211602

ERRRAR

1211657

ERSTP

12127?6

EXIST

1210572

FIFTHO

1213367

FIVTHO

121337121

FRSWAT

03447

FTYTHO

1213371

FWDCHK

1213450

GNPATR

1210444

GNPTRS

1212263

IOCON

1213372

INDEP

1213373

tREeD

1211735

JSlTST

121212146

JMPRfT

1212156

JMSCON

02205

JMSTST

1212134

KRR

7003t2

KSF

7003~1

LEM

707704

LOOP

~0501

LSTBLK

1213451

LSTDRV

03452

PAGE

~8

LSTTqL

MASK

MBLOCK:

MCOMOR

MESS1

MESS1

v]

,MESS

11

MESS12

MESS13

MESS14

MESS15

MESS16

MESS17

MESS18

MESS19

MESS2

MESS2~

MESS21

M[SS22

MESS23

MESS24

M'[SS25

MESS26

MESS27

MESS28

MESS29

MESS3

MESS30

MESS31

MESSA

M£SS5

MESS6

MESS7

MESS8

MESS9

MOFPRO

MOFPR1

MOVBAK

MOVER

MSAITS

MSPRNT

MUCH0

MVDATA

NOOFRD

NOTSKP

NUMBER

NUMBLK

OBV[RS

ONE

ONE

THO

OPRINT

PASFLG

PATGEN

per

PICNTR

03374

03375

03376

00467

03110

03203

032')\6

03213

~3221

03227

03233

03240

03242

03252

03261

03126

03271

03300

03310

03314

i2J33?0

.03323

03327

03332

03335

03343

03133

03350

03355

03141

03145

03154

03160

03164

03174

00130

00145

03377

02336

03453

02633

03400

00607

01214

01762

03454

03455

03456

03401

03402

02670

03457

00417

70029.l2

03460

OTRE15

PAGE

3Q

RANnEx

DTRE15

PIDEX1 034(,1

PIOEX2

03462

PIRTRL

02045

PIT8L

020?5

PNTRS

02303

PNTR1

03463

PNTR2

03464

PNTR3

V'l3465

PNTR4

03466

POSITN

03467

POST8L

03403

PRE8LK

03470

PREGEI\J

0V'1400

PSA

7002~4

PS8

700244

PSF

700201

PTSTND

01766

PTSTNS

02005

RADCHK

01540

RADLOC

03404

RAfFLG

03471

RALLTS

01431

RAN8FR

~040~0

RANDEX

00100

RANDl

00516

RAND2

00527

RAND3

00540

RANSEL

00551

RA5ERR

01556

RBFLOC

034~5

RBUFND

03406

RBUFST

034et7

RCF

700102

RD8UF1

01117

RDCERR

01314

RDCMOD

01221

RDDATA

00253

RDSEQ

01070

ROSWCH

00123

RDTAR

00211

RECORD

133472

REPOSI 132207

REREAD

00272

REREDA

00325

RESETO

01721

RETJMP

02206

REVCHK

03473

REWCK

01034

REwDRV

00361

REWIND

03410

ROT1TS

"'2070

ROT2TS

02106

RRB

700112

RSA

700104

RS8

700144

PAGE

40

R

U,JD

E X DTRE15

RSF

70Q11V'1

RSFORV

0222'5

RSFORl

02242

RSQFLG

03474

RUROUT

03411

R1

00525

R2

00536

R3

0~547

SAOTST

02124

SA""ORV

00231

SAVNUIv1

03475

SBR[CO

03476

SEAFOR

03412

SEARCH

02353

SETIOX

02015

SEVEN

03413

SEVSEV

034t21

SRCMOO

02533

SRCONT

02441

SREi!TS

02503

SRFBLK

02461

SRHERR

02562

SRTARN

02412

SWCMOL

01354

SWCMOO

01343

TALLY

03477

TAPONT

035vH'

TCF

700402

TEMl

035~1

TEM2

03502

TEM3

03503

TEM4

03504

TEN

03422

TENTHO

03423

TERSE

V

03424

TEST1

02200

TEST2

02201

TEST3

02202

TEST4

02203

TEST5

02204

THREE

03425

TLS

700406

TRECTR

03505

TRETHO

03426

TRTETH

03427

TSF

700401

TWO

HUN

03430

TWVTHO

03431

TYALL

03034

TY8KW

03100

TYOATA

03030

TYOIR

03056

TYORV

03040

TYfWO

03104

TYMOOE

03070

PAGE

41

RANOEX

DTRtl';

TYMOVE

1212734

TYPE

~2661

TYRALL

0:?765

TYRDAT

12127~4

TYREAD

03

121

?

121

TYSRCH

1212743

TYTHOU

1213432

TYWALL

030~7

TYWOAT

02776

TYWRIT

03024

UNFUNC

035~6

WATINT

017V11

WG

~"-'0030

WDGERR

01405

WDGMOO

01332

WDING

01022

WRITE1

013721

WRT1A

1210775

WSTERR

~1042

WTCNTR

03507

XQRSUM

0156121

.EOT

0000121

PAGE

42

Rf>f\jnEX

DTRE15

.EOT

000P0

WC

~00030

CA

000031

RAr-..:DEx

0~10Vl

ROSIot4C

H

0V'1123

MOFP~O

0121130

~OFPR1

00145

RDTA8

00211

SA~ORV

002;:ril

ROOATA

0121253

REREAD

00272

REREDA

003?5

REWORV

00361

PREGEN

00400

PATGEN

00417

GNPATR

00444

MCOMOB

00467

LOOP

0f'l501

RAND1

00516

R1

00525

RAND2

00527

R2

00536

RAN03

1210540

R3

00547

RANSEL

00551

EXIST

00572

MVOATA

00607

CODATA

00626

COLOOP

00640

COERRO

00653

COERR1

00673

WRITE1

00721

CORT1R

00763

WRT1A

00775

WDINC

01022

REWCK

01034

WSTERR

01042

RDSEQ

01070

RDBUF1

01117

NDOFRD

01214

ROC

MOD

01221

RDCERR

01314

WDCMOD

01332

SWCMOD

01343

SWCMDL

01354

WDCERR

01405

RALlTS

01431

RADCHK

01540

RASERR

01556

XORSUM

01560

ERRCKS

1211602

CKSTYP

01647

CAlCTY

01653

ERRRAR

01657

WATINT

01701

PAGE

43

RANOEX

OTRE15

RESETl)

017?1

IRECO

~1735

NOTSKP

01762

PTSTNf)

"'1766

PTSTNS

02005

SETIOX

02015

PIT8L

02025

PIRT8L

02045

IS2TST

02046

ROT1TS

02070

ROT2TS

02106

SAOTST

02124

JMSTST

02134

JMPRET

02156

TEST1

02200

TEST2 022"'1

TEST3 022"'2

TEST4 022"'3

TEST5

02204

JMSCON

02205

RETJMP

02206

REPOSI

02207

RSF"ORV

02225

RSF"OR1

02242

CHNGOR

02244

GNPTRS

02263

PNTRS

02303

MOVER

02336

SEARCH

02353

SRTARN

02412

SRCQNT

02441

SRF"BLK

024f11

SRE2TS 025et3

SRCMOD

02533

SRHERR

02562

MSPRNT

02633

TYPE

02661

OPRINT

.

02670

CRLF"

02714

ERSTP

02726

TYMQVE

02734

TYSRCH

02743

TYROAT

02754

TYRALL

02765

TYWOAT

02776

TYWALL

03007

TYREAO

03020

TYWRIT

03024

TYI)ATA

03030

TYALL

03034

TYORV

03040

TYI)IR

03056

TY~OOE

03070

TYAKW

03100

TYF"WO

03104

PAGE

44

RANOEX

DTRE1e;

MESS1

03110

MESS2

03126

MESS3

03133

.MESS4

03141

MESS5

03145

MESS6

03154

MESS7

03160

MESS8

03164

MESS9

03174

MESS1Vl

03203

MESS11

03206

MESS12

03213

MESS13

03221

MESS14

03227

MESS15

03233

MESS16

03240

MESS17

03242

MESS18 0·3252

MESS19

03261

MESS20

03271

MESS2i

03300

MESS22

C!t3310

MESS23

03314

MESS24

03320

MESS25

03323

MESS26

03327

MESS27

1213332

MESS28

1213335

MESS29

1213343

MESS30

03350

MESS31

03355

ASC

I I

03363

RF1LOC

03364

RF2LOC

03365

OIRTBL

03366

FIFTHO

1213367

FIVTHO

1213370

FTYTHO

1213371

IOCON

03372

INOEP

1213373

LSTT8L

1213374

MASK

03375

M8LOCK

03376

MOVBAK

03377

MUCH0

034"'0

ONF

03401

ONfTHO

03402

POSTBL

03403·

RAOLOC

03404

RBFLOC

03405

RBUFND

03406

RBUFST

03407

REWIND

121341121

RUBOUT

03411

SEAFOR

03412

PAGE

45

RANDEX

DTRE15

SEVEN

03413

SEVSEV

03421

TEN

03422

TENTHO

03423

TERSE

V

03424

THREE

034?5

TRETHO

03426

TRTETH

03427

TWOHUf\J

03430

TWVTHO

03431

TYTHOU

03432

ACCUM

03433

ALKFLG

03434

ALKFNO

03435

CDRIVE

03436

CKSUMR

03437

CNTR

03440

CNTR1

03441

COCNTR

03442

COMBIT

03443

DATASM

03444

DIRECT

03445

DIRFLG

03446

FRSWAT

03447

FWDCHK

03450

LSTBLK

03451

LSToRV

03452

MSBITS

034'53

NUMBER

03454

NUMBLK

03455

OBVERS

03456

PASFLG

03457

PICNTR

03460

PIDEX1

03461

PIDEX2

03462

PNTR1

03463

PNTR2

03464

PNTR3

03465

PN·TR4

03466

POSITN

03467

PREBLK

03470

RAEFLG

03471

RECORD

03472

REVCHK

03473

RSQFLG

03474

SAVNUM

03475

SBRECD

03476

TALLY

03477

TAPONT

03500

TEM1

03501

TEM2

03502

TEM3

035"'3

TEM4

03504

TRECTR

03505

UNFUNC

03506

PAGE

46

RANOEX

DTRE15

WTCNTR

03507

RAN8FR

vH~4000

RUFFRS

eI~44e10

CLSF

700001

CLOF

700004

CLON

700044

RSF

700101

RCF

700102

RSA

700104

RR8

700112

RS8

700144

PSF

700201

PCF 70e1202

PSA

.

700204

PSB

700244

KSF

700301

KR8

700312

TSF

700401

TCF

700402

TLS

700406

EEM

707702

LEM

707704

MAIN

DEC

EVALUATION

REQUEST

After

sufficient

familiarization

with

the

operation

and

documentation

of

this MAIN DEC,

please

indicate

your assessment

of

the

following

areas

and

return this

form

to

Digital Equipment

Cor-

poration.

IDENTIFICATION: MAINDEC

NO.

_______

Program

Title

__________

_

USAGE: Used by: Field

Service

0 Production 0

Other

______________

_

Frequency

of

Usage:

Daily

0

Weekly

0

Monthly

0

SUGGESTIONS FOR IMPROVEMENT

1.

Are

the

program loading and

operating

instructions:

c1ear?O,

incomplete?

0,

difficult

to

follow?O

2.

Do

the

error reports and program

documentation

provide

sufficient

diagnostic

information.

in

all

cases?

0,

in most

cases?

0,

in

very

few

cases?O.

Suggestions for improvement:

o

3.

Is

the

program

effective

in

isolating

malfunctions: in

all

cases?O,

in most cases

?D,

in

ve/Y few

cases?

O.

Would

additional

Scope loops or Switch Register control

be

helpful ?

__

Suggestions for improvement:

4.

Does

the

program

ever

fail

to

detect

malfunctions exposed

by

other

software ?

________

_

Were Margins

used?

Please

describe

malfunction in

detail:

5.

Does

the

program

ever

report

non-existant

malfunctions?

________________

_

Please

indicate

erroneous report

and

any

pertinent

operating

conditions:

6.

Does this MAIN

DEC

ever

expose

malfunctions in

the

Central Processor

or

other

peripheral

units not

detected

by

the

appropriate

MAINDEC?

_____________________

~

Please

describe

malfunction

and

MAINDEC(S) used:

7.

Does

the

documentRovide

a

general

understanding

of

the

functional programming requirements

of

the

system?

Good

,FairO,

Nonen.

Would a

general

description

of

programming

re-

quirements

increase

t e

effectiveness

of

thi'slAAINDEC?

________________

_

Remarks:

......................................................................................... Fold Here ......................................................................................... .

............................................................................

Do

Not

Tear

-Fold Here and Staple .•...............................................................

BUSINESS REPLY MAIL

NO

POSTAGE STAMP NECESSARY IF MAILED

IN

THE

UNITED

STATES

Postage will be paid by:

momoamo

Digital Equipment

Corporation

Diagnostic

Programming

Group

146

Main

Street,

Bui

I ding 12

Maynard,

Massachusetts

01754

FIRST CLASS

PERMIT

NO.

33

MAYNARD, MASS.