Digital PDFs

MAINDEC-08-D3R

December 1967

78 pages

Original

2.1MB

Document:	maindec-08-d3ra-d
Order Number:	MAINDEC-08-D3R
Revision:
Pages:	78
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/maindec-08-d3r/maindec-08-d3ra-d.pdf

OCR Text

-=>*E

IDENTIFICATION

Product Code:

Maindec-08-D3RA-D

Product Name:

DECTREX 1

TC0l Random Exerciser
Maindec 851

Date:

January 9, 1967

Mainfainei.:

Diagnostic Group

Author:

Keith F. Nelson

€ - .to

j¥
MAINDEC-08-D3RA-D

ABSTRACT

DECTREX 1 is a DEctape Random Exerciser for the TC01 DEctape control and any Conf:guration

of one to eigh+ TU55 DEctape transports.

Drive selection, rape clirec+ion, number of blocks, sequence

of operation and patterns generated are by random selection.

The DEctape functions exercised are

search, read data clnd write data in normal and continuous modes, read all in continuous mode, and

move ,

Also included are a short series of processor tests that are executed while wai+ing for inter-

rupts and during data breaks while searching, reading, and writing from DEctape.

REQUIREMENTS

2.1

E±i_pmep±
PDP-8 (standard)
TC01. DEctape Control

One to eight TU55 DEctape Transpor+s

One standard PDP-`8 DEcfape for each drive (27028129-word blocks)

2.2

Storage'

2.2.1

Program s+ordge -The program occupies most of memory from address oooo to 5000.

dition the JMS test uses addresses 6000 to 6200 for JMS storage.

2.2.2

Buffer Areas -The program utilizes three 129-word buffer areas as follows:

Addresses

Contents

6774 to 7174
7175 to 7375
7376 to 7576

Random data and output buffer
Read buffer 1

Read buffer 2

(Read buffers are used for WRITE DATA C MODE)

2.3

Preliminar

Programs

All par+s of +he TC0l Basic Exerciser should run before attempting to run DECTREX I.

In ad-

MAINDEC-08-D3RA-D

LOADING PROCEDURE

3.1

Method
Procedures of normal binary loading from paper tape should be followed.

STARTING PROCEDURE

4.I

Control Switch Settings
When initially starling the program, SWITCH REGISTER bits 0 to 7 are used for drive selec+ion.

Each bit is a master bit for a drive. When the switch is al the drive is selected; when ao the drive is not
selected.

Switch 0 is the master bit for drive 8, swi.tch 1 for drive I, etc.

Any configuration of switches

is considered valid except all Os.

4.2

Srdrting Address
The starting address for DECTREX 1 is 0200.

4.3

Program and/or Operator Action
Load DECTREX I into memory.

Dial the desired drive number(s) on each Tu55 to be rested.
Put each TU55 0N LINE, WRITE ENABLED with a srdndal.d PDP-8 DEctope installed.
Set the SWITCH REGISTER to 0200.
Press LOAD ADDRESS .

Set the SWITCH REGISTER fo select drives per paragraph 4. I .
Press START .

The processor halts at address 0207.
Set all SWITCH REGISTER bits +a 0 or as desired per paragraph 5 . I .
Press CONTINUE .

OPERATING PROCEDURE

5.1

Operational Switch Settings

SW0

Delete error typeouts and halts.

SWI

Delete error halts.

SW2

Type first four data compare errors in each block.

SW2

DOWN

Type all data compare errors.

MAINDEC-08-D3RA-D

-CJ`

Swl 1

DOWN

Only hit end zone once for turnaround for blocks
0000 and 2701.

Swl 1

Hit end zone twice before turnaround for blocks
0000 and 2701 .

ERRORS

All DEctape hardware malfunctions detect.ed by the program result in an error typeout and

an error halt (see paragraph 5.I) .

operation have been typed.
block.

The halt does not occur until all errors pertaining to the block and

(A read-data parity error and data compare error could occur in the same

In this case halt would not occur until after the COMPARE ERROR typeout.)

The first three lines of every typeout indicate the DEctape drive, operation direction and
mode, and the block being operated on or to be found as an end result of search .

6.1

Error Typeouts

6.1.1

Search Error T

eouts -The search error typeouts contain the following information:

Drive number.
Search direction and mode.
BIock wanted and direction.
The block number put into memory by the TC01 .
The last block number found, if more than two blocks hcive been fo.und.
The number of blocks found since the last start-up or turnaround.
DEcfape status a.

Examine the typeout in the following order:

Exc]min.e the direction of search and the direction of the block wanted. If they are

different, the error occurred before turnaround. If the directions indicated are the sclme,

the error occurred after turnaround.
b.

Examine the STAT 8 typeout.

If it is 0001, indicating a normal interrupt (DEctape

flag only), it can probably be ignored (6000 would indicate a mark track error).

If STAT a

is anything other than 0001, it caused the error typeout.
c.

Excimine the number of block numbers read (BLOCKS READ) .

ditions to note:

There are three con-

0000, indi`cating no block numbers read since start-up or turnaround; 0001,

indicating one block number was reac] since start-up or tiirnaround; 0002 or greater, :ndica+ing

that more than one block number was found.

MAINDEC-08-D3RA-D

Examine LAST BL.OCK.

This line is included only if two or more normal b'ock

numbers have been read since start-up or turnaround.

This line is pertinent only if STAT a

equals 000, .
e.

Examine BLOCK FOUND.

This line holds the contents of +he memory locci+ion +ha+

block numbers are read into and is pertinent only if BLOCKS READ is not equal lo 0000, or
the STAT a typeouf indicates that the DEctape flag is set (bit 11 a 1).
If STAT a is 0001 and BLOCKS READ is 0002 or greater, BLOCK FOUND compared .

against LAST BLOCK indicates two bl`ock numbers read that are not numerically consecutive.
If STAT a is not 0001 and BLOCKS READ is no+. 0000, BLOCK FOUND indicates +he

block where the status error occurred.
If STAT a is 0001, BLOCKS READ is 0001, and the direction of search is the same

direct.ion as the block wanted, the error was TURN AROUND .
The typeout C MODE indicates continuous mode.

typeout always indicates two blocks read.

BLOCKS READ in a SEARCH C MODE

LAST BLOCK indicates the last block found in

normal mode.

6.I.2

Write Data Error T peouts - Write data typeouts contain the following information:
Drive number.
Direction and C mode if continuous mode block is being written .
DEctape status 8.
Contents of the word coiint register (address 7754) .

6. T .3

Read Data T peouts -

6.1.3. T

Read Data Status Error Typeou+s -These read data typeouts include the following information:
Drive number
Direction and mode
Block being read
DEctape status 8 if STAT 8 typed = 0001 see WC (word count regis+er) .
Con+en+s of WC if it does not equal 0000.

(Note: If WC does not equal 0, no data compare is made.)

6.1.3.2

Read Data Compare Error Typeouts -These fypeouts include the drive number, direction, mode,

and block read.

Each pair of data words is separated by a blank line of paper.

the data generated or regenerated by t.he program.

The first octal number is

The second number is data read from rape, and the

+hird line is the memory address of the data read .

i
MAINDEC-08-D3RA-D

6.1.4

Read All Error T Peouts -

6. I .4.1

Read All Status Errors -Read All Status Error typeouts include drive number, read all direction

and mode, block number, cind DEctcipe status a.

6.1.4.2

Read All CHECKSUM ERROR -This typeout indicates an .error in parity generation (especially

if not followed by a read-all compare error) and includes drive number, read-all direction and mode,
block number, and the following:

REVERSE CHECKSUM as read From tape. If read-all direction is backward, the com-

plemenf obverse of this line is the checksum going forward.
b.

DATA CHECKSUM CALCULATED as generated by the 6-bit XOR of I.he data by the

program.

Since +he data is written to be bidirectional, this line indicates the same sum for

either direction .
c.

CHECKSUM as read from tape is in the upper six bits of the word typed (bits 0 t.o 5).

Again, if the read-all direction is backward, the complemenl obverse of these six bits would
be the REV CKSUM if read forward.
d.

LPB CALCULATED. is the sum of the first three lines, and is generated by the same

process as the TC01 parity generation circuitry.
is complete.

The LPB should equal 778 after the process

The 0 bits in the lower six bits (bits 6 to 11) of this typeout are the error(s) that

caused the typeout.

6.1.4.3

Read All Compare Error -These lypeouts follow +he same format as read-data compare errors.

If a read-all compare error follows a checksum error, ignore the checksum error.

6.1.5

Program Interrupt Errors - The

program also detects three classes of program interrupt errors.

Program interrupt and the DEcfape IOT 771 did not skip.

No program interrupt for 45 seconds if a MOVE tape or for 5 seconds if any other

DEctape function and DEctape IOT 771 did no+

PI NO DECTAPE SKIP

end of +hat period.

NO PI NO DECTAPE SKIP

No program interru.pt for 45 seconds if a MOVE tape or for 5 seconds if any other

DEctape function ]nd the DEctape IOT 771 did skip.
NO .PI DECTAPE SKIP

E]\H

MAINDEC-08-D3RA-D

Follo,wing one of these lypeouts, the program forces another error typeopt from the routine

that called the wait.for interrupt.

The second typeout indicates the exact operation that the DEctape

was doing when the PI error occurred.

6.1.6

Processor Errors - Any processor errors detected by the program result in an error halt only.

Consult the program lisfing to determine the cause of the halt.

The following rdble contains processor

error hal'ts and a description of the error:

Address

_._

3211

ISZ failed.

Address 3342 shou'ld = 0.

32T5

ISZ foiled.

Address 334] should = 0001.

3226

ROTATE 1.

Link should = I.

3232

ROTATE 1.

Data failure in AC address 3342 is

data tested.
ROTATE 2.

Link should = 0.

ROTATE 2.

Data failure in AC.

Address 3342 is

data tested .
3272

TAD failure.

Address 3347 plus acldress 3343

should = 3344.

333'

JMS failure. Address 3343 points to an address that
does nor equal itself + 1 after execu+ing a JM.S .

6.1.7

Examples of Error T Peouts -

6,.1.7.1

Example 1 search ErrorsDRIVE 8

SEARCH FWD

2677 BLOCK WANTED FWD
2700 BLOCK FOUND
0001 BLOCKS READ

0001 STAT a

(Block searched)
(Block found)
(One block number received)
(Normal interrupt)
This typeout indicates that the DEcfape drive did
not turn around and come up I.o speed in time.

MAINDEC-08-D3RA-D

-_(

+`L`/`

DRIVE 8
SEARCH BKWD

0000 BLOCK WANTED FWD
1033 BLOCK FOUND
0000 BLOCKS READ

6000 STAT 8

(Error was a mark.-track error if STAT 8 is no+ normal
interrupt and BLOCKS READ = 0000. Ignore second
block number)

DRIVE 2

SEA'RCH BKWD

This typeout occurs if an end zone interrupt is received in error.

0077 BLOCK WANTED BKWD
0105 BLOCK FOUND
0000 BLOCKS READ
50cO STAT 8
DRIVE 6

SEARCH FWD
2701 BLOCK WANTED FWD

This typeout indicates that two block numbers were
found in search and that they were not sequential .

0000 BLOCK FOUND
77cO lAST BLOCK
0002 BLOCKS READ
0col STAT a

6.I.7.2

Example 2 Read Data status Error DRIVE 4

READ DATA FORWARD

0265 BLOCK
4200STATB

(816ck being read)
.

(Parity error)
(If any data errors, a second typeout follows)

DRIVE. 3

READ DATA BACKWARD
0011 BLOCK

(BIock being read)
(Select error)

4400 STAT a

7577 WC

(WC was not = 0. The program makes no da fa
comperison in this case.)

DRIVE 5

READ DATA FWD C MODE
0227 BLOCK
0001 STAT a

(Note: Normal STAT a)
(Error was WC did not go fo 0000, be for; DTF wassef)

7Fifl7 WC

MAINDEC-08-D3RA-D

6.1.7.3

Example 3Write Data status Error DRIVE I

WRITE DATA FWD

A mark-track error was received while doing a

0001 BLOCK

write data on block 1.

6000 STAT a

774;Riwc
DRIVE 1

WRITE DATA BKWD C MODE

0040 BLOCK
0001 STAT a

(Note: Normal STAT a)
(WC indicates that WC overflow had not occurred
when DTF was set).

7400 WC

6.1.7.4

Example 4 Read all checksum ErrorDRIVE 6

READ ALL BACKWARD C MODE
0175 BLOCK
CHECKSUM ERROR

(The complements of the REVCK, DATA and CKSUM

did not XOR to 77)
0033 REV CKSUM

(as read from rape)
(XOR of the data's complement)
(as read from tape)
(XOR of the complement of the above. Any 0 bits
are in error. Calculated CKSUM should = 0077.)

0022 DATA CKSUM CALCULATED

6700 C KS UM
0076 CALCULATED CKSUM

NOTE: In this case, the REV CKSUM would be the CKSUM going forward.
Realize also, that it would be complement obverse (44) going forward.

Since the DATA FORMAT written by DECTREX is bidirecfional, the DATA
CHECKSUM CALCULATED would be the same read in either direc+ion.

Also, the CKSUM going forward would be the REV CKSUM; the complement
obverse of 67 would be 01.

Note that the calculated checksum would be 67, if the block had been read
forward .

MAINDEC-08-D3RA-D

6.1.7.5

Example 5 Read Compare Error -Read-data and read-all-data compare errors follow the

same fomat.
DRIVE 4

READ DATA FORWARD

(or READ ALL C MODE)

DATA ERROR
0265 BLCX= K

4632 COR
4432 INC
7237 ADRS INC

(Pcrrtern word generated)
(Pattern word read)
(Memory address of the incorrect data)

2315 COR
2' 15 INC
7240 ADRS INC

6.2

Error Recovery
After on error typeout, the processor hqlrs.

Press CONTINUE to recover.

the program attemps to repeat the same or a similc]r operation.

same operation, the typeout and HALT again occurs.

For all errors,

If c] second error is encountered for the

However, pressing CONTINUE the second time

cau§e§ +he drive in error +a rewind, and the random selec+ions for +hal+ drive begin agclin from block 0.

If a second error is not encountered, the program completes the operation and then continues its normc]l
ran.dom selections.

For the read errors (read data and read all) the direction of the second read opercltion is opposite the direction thctr the error was originolly detected in.
and halt again occur.

If a second error is detected, a typeout

Pressing CONTINUE causes the drive to be rewound to the end zone.

occurs during the second pass, the bloc.k is read ci third time.

The Third read is in the same direction as

the first read, or the direction the error wcis origincllly detected in.
a typeout and halt occur.

If no error

Again, if any errors are detected,

In either case, the end result is thcit the drive is rewound and random selec-

tions star+ from block 0, so thdt the same read error sequence is not generated. again .

RESTRICTIONS (None)

MISCELLANEOUS

8.1

Data Format

The dal.a blocks writ.I.en by DECTREX I are formatted to be bidirectional . Whether written

forward or backward, they may be read in either direction on the TC01 with the resultant data looking
the same. The first four words of the block contain pertinent information about the block.

two words of each block are formatted as follows:

The first

MAINDEC-08-D3RA-D

-i
CONTPOL

Bit T0 INDICATE

OF WPITE

DATA
0 . FWD

WORD

C)lRE.CTION

1= BKWD

WOPO I +

t<NUMBEf] OF BLOCKS>Il

WORD ] indicates the lowest numbered block in the series with bit 0 indicating the written 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 complemenr of
bit 0 in WORD 1.

Ignoring bits 0 of the two words, WORD 2 -WORD I = number of blocks in the series.

Word 3 and word 4 of the block are random numbers used to generate the res+ of the data.
Word 5 of the block is word 3 I.olated i.ight one position.

Word 6 is word 4 rotated right one position.

This process is repeated until word 64 of the block is word 62 rotated right.

The lower six bits of word

65 of the block contain the nuiiiber of I bits in words 3 and 4.

The upper six bits of word 65 (middle

word of 129) are the complemellt obverse of the lower six bits.

Word 66 is the complement obverse of

word 64.

Word 67 is the complement obverse of word 63, et.c. , until the last word of the block is +he

complement obverse of the first word of the block.

WORD '

4036

BIocks 36, 37, 40, and

WORD 2

0042

41 were written backward

WORD 3

3252

with these two words

WORD 4

7734

as key to data pattern.

WORD 5

1525

WORD 3

WORD 6

3756

WORD 4 RAR

®tc.

WORDS RAR

WORD 65

0617

Number of bits in words 3 and 4 in bits 6 I.o ] 1
Complement obverse of same in bits 0 to 5.

WORD 126

3400

Complement obverse of word 4

WORD 127

1204

Complement o verse of word 3

WORD 128

5377

Complement o verse of word 2

WORD 129

1473

Complement obverse of word 1

RAR

WORD6

RAR

MAINDEC-08-D3RA-D

8.2

Core Map

0000

4577
NOT USED

6000
JMS

STof}AGE

tJMS TEST)

6200
6774

7'74

7'75
7375
7376

7576

PROGRAM DESCRIPTION

9.1

Discussion

DECTREX I is a random exerciser for the TC01 DEctope Control clnd clny configuration of

one to eight TU55 DEctcipe Drives.
are by random selection.

Drive, direction of operafion, number of blocks, and dafo patterns

First the pro.gram randomly selects a drive, then a number between I and

32 decimal for I.he number of blocks, and next the direction.

direction will be backward.

of the drive selected.

There is one possibility in four that the

The number of blocks is added ro or subtracted from the lost block position

If the block generated has not .been written, a write opera+ion is initiated.

the las+ block table indica.tes that the block selected has alrecldy been written, a read opera[ion is
initiated.

If READ is selected., the progrclm then general.es a random number between 0 and 7.

If the

numberis0,theblockisreadinread-aHconlinuousmode;if4,read-datanormalmode;ifanyother
number, read data continuous mode and two blocks are read.

If WRITE is selected and l'he number of

blocks is a multiple of 3 (3, 6, 9, etc.), the blocks c|re written in conlinuous mode.

Otherwise, the

blocks are written in normal mode.

The processor tests, that are run wh;Ie waiting for interrupts do nor guarantee thor the
processor operates correctly; but, other than EAE operations, should allow a reasonable amount of
confidence in the processor.

]0.

LISTINGS

MAINDEC-08-D3RA-LA
Pc,ge '2
WRITE1

1490

WRTDTY

211Z)1

WF}TIA

1455

WSTEF}R

1526

WTCNTB

3125

WTKON1

3123

WTKON2

3124

XOBSAV

2565

XC)RSuM

2531

/TCBI

RANDOM

/PAGE

EXERCISER

CONSTANTS

AND

TEMP

STOR.

3 A N a F. 8 = 6 7 7 4
3UF-F.RS=PAN8FP+291
IOT=6©©g

;G0

pr}ocEss

INTERf}uPT

*1
gB©i

54a2

JMP

8802

3834

IRECD

'+1

*4E
?ECORD,

/SEARCH

3LKFNDi

/BL.JC<,

FB0M

I DCON ,

WcLOc,
CALOc,
CDRIVE

/F03

SBCH

/T0

ST0BE

zTo

sroRE

/CU3R=NT
/SAVE

CA
DFuvE

F.OB

/DRIV:i

Tcg1

NUMBEB

TC211

SELECT

COMMAND

SWITCHES

/T0

G=IT

DRIVE

POSITION

/T0

C±IT

DRIVE

DIRECTION

/T0

C=IT

LAST

;-LAsr

DFw

BLOCK

SELECTED

WFUTTEN

MAINDEC-08-D3RA-LA
Page 13
/SuBROUTINE

ADDRESES

SRCH|T,

3EWIND,

BEPOSI

VEWDBV,

CHNGDR

SELRAN,

BANSEL

6ENPATi

PATGEN

3ANGEN,

GENRAN

3EAD1,

BDDATA

3EGENP,

PREGEN

JATACO,

CODATA

dAI T I ,

WATINT

EPRSTP,

ERSTP

JATAMV,

MVDATA

a E a Fi 0 K ,

RECORD

COCNTP,

7777

3BUFST,

RANBFR

a 8 F- L 0 C ,

PANBFR-1

3FILOC,

BUFFPS-1

JIHFLG,

VUMBLK,

F}BUFND,

f3ANBFF}+2gE]

WRTDTY,

TYWDAT

3BFW02,

RANBFR+1

BF2LOC,

BUFF.BS+2211

3EAD2,

REftEAD

aEAD2A,

REPEDA

TYPCON,

TycoNT

TYPTExi

TYTEXT

/-1

NJi

DATA

Ef]POPS

MAINDEC-08-D3RA-LA
Page 14
/MASK

AND

COMPARE

CONSTANTS

7
400D

708
721

7800
3
214
77®0
TYDRV
1 8 @ 21

121

221

77
18fl
24©

400
6©4

260

I;I 7 7
ADTY,

T Y F3 D A T

SBCHTY,

T Y S Fi a H

75,

5®75

5®76,

5076

<©©5©,

JASFLG,
0 O Z' 2

27©1

6®2]g

8|55

48.80

50
a

{©©82,

::ZZ::

3ZZ:

/CON§TANTS

F.OR

®©©g

;Egg:i;

@157

8®®0

3LKFLG,

916©

©©2j©

REBLK,

/UMS

ROUTINE

3RHERR

RETURN

F.OR

PROCESSOR
I

D161

3321

3ETUJM,

0162

©@21©

r-RSWAT.

JMRETU

TEST

MAINDEC-08-D3RA-LA
Page '5
/TC01

DECTAPE

/PANDOM

/TESTS

DATA

F}ANDOM

CONCURRENT

/DP I VES .
/MASTEp
BIT

SEOUENC;E

OPERATION

sELECTloN

EX=B=ISE:R

0F.

BIT

ANY

al=Dpv8

CONFIGUPATloN

3ITi=Df}vi

BIT7=DRv7

*2DO
3ANDEX,

CLA

AND

OSB

K776©

/SELECT

SEA

JMP

ANT

ALL

/yES

I+3

/DIT

HLT
JMP

RANDEX

0CA

MSBITS

NOT

SE._EJT

ANY

DRIVES

/WAIT

CLP

I0T

/CLEAB

STAT

JMS

/PuT

ALL

/CLB

NUMBEB

HLT

S=L:CT|0N

CMA

DCA

/CLF}D

DRIV:6
0.-i

END

ZONE

BLOCKS

ALL

/NO

/MEAT

/PANDOM

/FIRST

THE

PPOCPAM

SEL'ECTI0N

SELECT

YOFPPO,
CLA

0PEPATI0NS

DfuvE

JMS

SELf]AN

/PA,VDJMLY

SELECT

CMA

DCA

PASFLC

TAD

CDB`IVE

TAD

L§TDRV

SNA

CLA

JMP

SAMOPV

TAD

CDBIVE

CMA

'AC

DCA

LSTDRV

CMA

0CA
BSOFLG
/SELECT
1
TO
32

9235
0236
0237

4462
0111
704©

CMA

3PJ7 7

DCA

YOFPR|,

AND

JMS

BLOCKS
I

FOB

RANGEN

0PEPATI0N
/GET

3AN

-32

NUMBER

K0037

/MAKE
NUMBLK

-1

DECI

DPIVE

DECTAPE

MAINDEC-08-D3RA-LA
Page 16
/SELECT
JM§

40
76
53

DIRECTION
I

F}ANCEN

AND

K©8©3

SNA

CLA

CMA

/GET

/SET

DCA

DIBFLG

TAD

SNA

CLA

JMP

G0
FiANDOM

-u`

NJMBEf]

BACKWARDS

/D13EJTI0N

FLAG

LSTBLK
/DQIVE

WRITES

/N0i

BEEN

W3]TTEN

WRITE

CLL
TAD

DIBF.LG

/GENEPATE
SEA

BLOCK

SELECT

POS

OP-NJMBER

CLA

STL
TAD

NUMBLK

SNL

/HAS

/|F

CMA

IAC

TAB

DCA

RECORD

POSITN

TAD

..RECORD

SPA

CLA

DCA

F}ECOBD

BLOCK

/-REC:ORB

/MAKE

SELECTED

NOT

WRITE

TAD

RECOPD

BEEN

0PEfiATI0N

=0
WRIT.TEN

SELECTED

CMA

TAB

SPA

CLA

LSTBLK
/BLOCK

JMP

WRITES

/N0

JMS

BANGEN

AND

K©®®7

BEEN

W3lITTE:N

SNA

JMP

AND

KO@83

SNA

CLA

JMP

.+4
I
'+1

JMP

.+6

RDCMOD

BALLTS
3DTABi

JMP

JMS

BEAD2

f]EADI

/STATUS

EPP3P

PETURN

MAINDEC-08-D3RA-LA
Page 17
/BLOcK

HAs

TAB

I0T

BEEN

HEAD

764

TAD

pAi

:pB

/STOP

TAPE

RECORD

DCA

TAB

DIBF.LG

DCA

/MOVE

wlirHOuT

K©2uO

POSITN

/NEW

DIRECT

FIRST

/DIRECTI0N

FOUR

JMS

BEGENP

JMS

DATAC0

POSITION

WORDS

]E4D

REGEN:RATE

/REGERATE

DATA

PATTEBN

RANBFR
•8 U F F- R S

201
ISZ

COCNTB

JMP

MOFPR0

F}EAD2A

WRITES,

/DRIVE

/SE.E:T

NEW

TIIE

TEST

DRIVE

WBITE1

SELECTED

SAMDRV,

SAME

BANGEN

JMS

LAST

/BEAD

SPA

JMP

MOFPB1+1

ISZ

RSOF.LG

JMP

MOFPB1+1

AND

K0003

SNA

CLA

/FIND

ST3ING
BL.OJK

/FWD

C"A

/N0

DGA

THIS
NEW

F-OR

BACKWA3D

0IRFLG

TAD

0IPFLG

CMA

IAC

TAB

RBUFST

/FWD

DCA

RECORD

;FI.psr

BLOcK

TAD

DIBF.LG

/BKWD

GETS

TA0

3!:

gE::3D

JMP

PDSEO

3sOFLG'

REC0BD

.+1
.

/LST

SET

BLOCK+1-1

SEFuES

MAINDEC-08-D3RA-LA
Page 18
/BEAD

DATA

SUBfiouTINE

JDIRFLC=7777

BLOCK

BACKWAROS=gr

--wJ

]EAD

*4@0
3DDATA,

JMP

CLA

JMS

TAD

KO®38

SRCHIT

10T
TAB

764
K7577

DCA

/SEARCH

DATA

/129

WORDS

FIBST

BUFFEP

WCLOC

TAD

BFILOC

DCA

CALOC

JMS

WAIT]

JMP

BDDATA

TAD

WCLOC

/INTO

SNA

CLA

ISZ

RDDATA

JMP

F]DDATA

/STATJS

ERFi(READ

/N0iMAL

READ

EXIT

EXIT)

MAINDEC-08-D3RA-LA

Page '9
/TYPE

STATUS

/TEST

FOR

EBR0B

DATA

3EREAD,

CLA

DCA

READ

BLJC{

;IF

FULL

R:AJ

/STOP

TAPE

;TypE

BLOcK

ERRORS

CMA

PASFLG

JMS

EBRSTP

JMS

READTY

TAD

RECRDK

JMS

NJMBm

5457
4353
7700
]OT

772

DCA

TAD

K©®10

JMS

TYPCON

JMS

TYPTEX

/TY3E

STATUS

9063
6441
64@8

4200
7777

SD ACLA
I
WCLOC

/BEAD

129

JMP

I+10

TAB

WCLOC

JMS

TYPCON

/SHORT

JMS

TYPTEX

/TYPEOuT

WJRJl

/YES
BUFFER

8@67

1643
1677

!E§::i:p

TAD
OCA

JMS

.+3

F3 A N a F- R

BUFFRS

9201

/REGENERATE PATTERN

K76oel

DATAC0

/COYPAPE

F-Of}

TYPEOUTS

MAINDEC-08-D3RA-LA
Pc'ge 20
]EFiEDA,

LAS

AND

K6®®©

SNA

CLA

HLT

ISZ

PASFLG

JMP

REWDRV

TAD

DmFLG

CMA

DCA

DIRFLC

JMS

JMP
I
JMS
JMS

READI

/READ

0PPO§IT:I

REfiEAD+2
I
fiEGENP

/ERF}OB.

AGAINi

DATAC0

DIRECTION
Tf]Y

OVER

/PEGEN PATTEPV
/COMPARE

a A N a F F}
8 U F F F} S

0201
ISZ

COCNTR

JMP

I?EBEOA

TAB

DIBFLG

C;MA

DCA

0IBF.LG

JMS

BEADI

JMP

REREA.D+2

JMS

/ANOTHE:R

DATAC0

RANBFB

a U F F PI S

8281
ISZ

COCNTB

JMP

REBEDA

25
26
27

114©
1©46
6766

4466

590@

32
33
34

5344
3453
3451

0CA

LSTBLK

DCA

POSITN

794©

CMA

36
37
40
41
42

3452
7Bal
3854
5742
9221

DIRECT

76©©

44
45

4746
5325

3542

.3EWDBV,

TAD

TAB

UNFUNC

I0T

76,6

JMS

HAITI

E)RE "
JMP K760¢+1

DCA
IAC
DCA

LSTDRV

JMP
I
M 0 F P fi 0
<76©©,

,+1

JMS

.+2

JMP

REWDRV

MOVED+2

7600

K06©4

STATJ§

ERROR

MAINDEC-08-D3RA-LA

Page 2'
/MOVE

F.IflsT

/BLOCK

READ

/COMPARE

W0BDS
AND

PATTEPN

PpECEN'

JMP

TAB

F3BFLOC

DCA

1©

TAB

CETRED+2

DCA

TAB

DCA

GETRED

TAB

GETRED

JMS
DCA

I
I

T^D

GETREO+1

CETBED

0CA

GETF{ED

]SZ

JMP

.-7

JMS

GENPAT

JMP

Pf]EGEN

8ETRED.
MCOM0B

1114

CALOC

CMA

RECENEBATE

MAINDEC-08-D3RA-LA
Page 22
/GENERATE

/FIRST

RANDOM

FOUR

/RANDOM

DATA

WORDS

BUFFER

* 6 E) 0
9ATGEN,

WORDS

JMP

TAB

r,IN4

DCA

GENDEX

TAD

FiBUFST

DCA

GENDEX+1

TAB

RBUF-ND

PATTERN

PATTEBN
1

/T0

COUNT

FIRST

/T0

ST0BE

FP01

STABT

F30Vli

END

GENDEX+2

/T0

SToftE

TAD

RPATO+1

/T0

GET

FipAT0

TAB

BPATO+1

TAD

RPATO+1

JMS

MCOM0B

/RAVDJMS

/MA(E

COMPLIMENT

ISZ

CENDEX+1
CMA

/|NC

ADDPESS

TAB

CENDEX+2

/DECPEMENT

0TIEf]

IS=

CENDEX

/DONE

JMP

PATGEN+6

/NO

DCA

CENOEX+2

TAD

MIN6©

DCA

GENDEX

§NPATB,

TAB

K4©g©

DCA

BPATO+2

CJUNT

6®

WOFiDS

BPATO

SZL
TAB

FmsT

/T0

RAf3

/F0f"

/WORD

0F
/PAVDJM

PATTERN

RPATO+2
I

GENDEX+1

BPATO+2
MCOM0B

OBVERSE

CENDEX+2

CLA

CLL

WOPDS

GENDEX+1

DCA

APE

GENDE:X+2

PPATO+1

/MOVE

F3 P A T 0

W0f}DS

/F03

PASS

RPATO+2

BPATO+1
CENDEX*1

/|NCF{EMENT

_OJEPl

/DEcf}E:MENT

JP3EB

/DONE

/NO

ALL

ADDPESS

MAINDEC-08-D3RA-LA
Page 23
DCA

F}PATO+2

TAD

RPAT0

CLL

RAP

SZL
ISZ

PPATO+2

SEA

/CLR

,-4

/NO

TAD

RPATO+1

/GET

CLL

RAR

/BIT=1
/YES

.-4

/NO

/DONE

SEA

JMP
TAD

npATO+2

JMS

MCOM0B

AND

K770g

TAD

PPATO+2

DCA

JMP

JOBD

2ND

/MA.<E,

/MAKE

WORD

OBVERSE

GENDEX+1

PATGEN

/EX I T
/T0

CJUNT
LOW=R

/T0

ST0BE

/TO

STORE

/T0

COUNT

WORDS

UPP:R

/PATTERN

BITS

2ND

RPATO+2

SZL

cojNrlNG

/BIT=1
/yEst
COUNT
/DONEi
FIPSI

JMP

ISE

FOF}

BITS

STOPACE

MAINDEC-08-D3RA-LA

Page 24
/MAKE

COMPLIMENT

VcOM0B,

0BVEF]SE

JMP

DCA

COMSTB

TAB

COMSTR

AND

KB7©g

CLL

BAR

/SAVE

0RIG]VA.I

BTR
DCA

.COMSTR+1

TAB

COMSTf`

K887q

COMSTR+1

COMSTR+1
COMSTR

K©807

a 0 M S T f] + 1
COMSTR+1
COMSTR

K7B8®

a 0 M S T f? + 1
I
/f3ANDOM

MCOM0B

NUMBER

GENRAN.

GENE:BAT0B

JMP

CLA
TAD

RANVAR

CLL

RAL

SZL
IAC

DCA

RANVAR

TAD

BANVAR

TAB

BANN8

DCA

BANNg

TAB

F}ANN@

JMP

aANN©,

:i:x:a,
MIN6g,
COMSTR,

GENRAN

/E:XIT

AC=RANDJM

MAINDEC-08-D3RA-LA
Page 25
/RANDOMLY

SELECT

/STAYS

THIS

ROU`T|NE

FOUND

AND

DI,PECTI0N

/IS

/P0INTEPS

ARE

1Dog
]ANSEL,
JH§
AND

DF"VE

UNTIL

AND

JFuvE

POSITloN

f,ENERATED

JMP

§ELCEN

/C[T

K©©07

/SE.E:T

DPIVE

D3lvE

NUMBEF}

DCA

CDf"VE

TAD

CDF"VE

CLL

RAF3

]ANDOM

NUMBER

PTP
PAR

/POSITION

/MAKE

/BIT

JMP

T^D.

EXIST
11

CLL

RAR

DCA

JHP

.-6

EXIST,
SNA

HSBITS

FOP

UNIT

POSITION

POSITloN

BIT

/GET

11
/MASK
• /DOES

COUNT

DRIVE

/BIT
/MOVE

TAB

AND

NEG

JNIT

WITH
DF]IVES
DPIVE
EXIST

BIT
SELECT

CLA

EL+1

/NO.

THY

ACAIvi

/F0BM

POSITlovi

/FORM

0IPECTIJN

P0INTEft

DIRTBL

D I Fi I C T

P0INTEB

CDRIVE

LSTTBL
LSTBLK
I

RANSE:L

/GENEF}ATE
/WBITTEN

LAsr

POINTEf}

Block

MAINDEC-08-D3RA-LA
Page 26
DoSTBL,

PNTRS+1

DIF{TBL,

PNTR§+12

/D I RECT I 0N

PNTRS+2;3

/LAST

LSTTBL,
SELGEN,

JMP

TAD

SELVAR

CLL

RAL

/T0

S2L
IAC

DCA

SELVAR

TAD

SELVAR

TAD

SELVAR+1

DCA

SELVAR+1

TAD

SELVAR+1

JMP
SELVAR.

SELGEN
4263

2634
/MOVE

DATA

/FB0M

ADDRESS.JMS+1

/NUMBER

SUBPOUTINE

0F.

WOPOS

tl200
v| v D A T A i

JMP.

CLA

1210
1211
1212
1213
1214
1215
1216
1217
1220
-1 2 21

TAB

ISZ

MVDATA

DCA

MOVDEX

TAB

ISZ

MVDATA

DCA

MOVDEX+1

MVDATA

TAD

ISZ

MVDATA

DCA

MOVDEX+2

TAD

MOVDEX

DCA

MOVDEX+1

(SZ

MOVDEX

IS2

MOVDEX+1

ISZ

MOVDEX+2

JMP
JMP

1222
1223
1224

MVDATA

,-5
I

MVDATA

JMS+3

JMS+2

C:FT

DBIVE

POSITION
BLOCK

WB[TTEN

MAINDEC-08-D3RA-LA

Page 27
/COMPARE

DATA

SUBF]OuT|NE

/JMS+|=ADDF3ESS

JMS+2=ADDRESS

CoDATA,

JMP

JMS.+3=WC

CLA

TAB

JSZ

CODATA

DCA

CODEX

TAD

DCA

CODEX+1

CODATA

IS3

CODATA

TAD

CMA

IAC

CODEX+2

ISZ

CODATA

ADDF}ESS

/GET

ADDf}ESS

2.UNKNOWN

/GET

CODATA

DCA

/GET

C0BRECT

LENGTH

CMA

0CA

COCNTB

COL00P,

TAB

/§E:T
CoDEX

CMA

IAC

TAD

SEA

CLA

/wC)RDs

JMP

COEf]RO

/NO,

]SE

CODEX

ISZ

CODEX+1

ERROR

F'LAG

CODEX+1

ISZ

CODEX+2

/DONE

COL00P

/NO

JMP

/EXIT

CODATA

0JT

/INCH:MENT

JMP

CODEx,

TYPE

ADDRESS

ALL

DATA. ADDRESS
•/UNKNOWN /KNOWVI
DATA
ADDRESS

0
0

/LENGTH

.€2
/DATA

ERROR

CoERRo,
JMP

PRINTOUT

I§Z
COERRI

JMS

I0T

761

COCNTR
/NOT

/Fli§T
FIRST

Ef}F}STP

AND

KO01g

SNA

CLA

JMP
JMS

.+4
I
.+2

JMP

.+3

T Y F} A L L

JMS

BEADTY

/F.IRST

EBf]03

JMS

TYPTEX

/TYPE

HEADE:3

DATA

EPROP

MAINDEC-08-D3RA-LA
Page 28
7777
4441
6441

/TYPE
/CDATA

ERR0i)

/BLOCK

NUMBEB

/TYPE

(BLOCK)

@045

6262
5762

i 7 EqJ
TAB

RECROK

JMS

TYPCON

JMS

TYPTEX

/TY3E

THE

0GTAL

4353
7790
CoERR|,

CLA

AND

0SP

Klg©©

§NA

CLA

JMP

.+5

/ONLY

TAD

COCNTR

/TYPE

TAD

K7774

SMA

CLA

JMP

COL00P+5

JMS

/DONE

TypE4

AL'L

EBPloRS

DATA

TYPEOUTS

/yES.

DELETE

3E:ST
B:ITWEEN

TYPTEX

7777

/BLANt(

LINE

7 7 rb¢

/EACH

PAIR

/TYPE

C0BftECT

/TYPE

(GOR)

TAD

CODEX

JMS

TYPCON

J.MS

TYPTEX

8043
5762

77®g
TAD

JMS

CODEX+1
I
TYPCON

/TYPE

INCOP

JMS

/TYPE

(INC)

TYPTEX

8851
5643
77©8

263
®51

5643

TAB

CODEX+3

JMS
JMS

I
I

TYPCON
TYPTE:X

41
4444
6263
51
5643
770®
JMP

L3f54

7774

+]774.

COL00P+5

7774

0JTAL

0CTAL

MAINDEC-08-D3RA-LA

Page 29
/INITIATE

WPITE

/GENERATE

PATTERN

/AND

BLOCK

0PEfiATI0NS
WORDS

NUMBEFis

TAD

F3BFLOC;

18
LSTBLK

/F13ST

BLOCK

WF"TTEN

BANDOM

wof]0

NUMBLK

IAC

LSTBLK

/LST

BLOCK+1

BECOPD

fl E a 0 a D
TAD

K5075

§MA

CLA

JMP

F}EWCK

TAB

PECORD

DCA

JMS

BANGEN

DCA

12)

JMS

RANGEN

/FI.]sr

DCA

JMS

PANGEN

/2N`J

AND

K®003

SNA

CLA

3ANDOM

WORD

CMA

DCA

0IRFLG

TAD

D(RFLC

TAB

RBUF.ST

D.CA

TAB

DCA

TAB

K4®gg

/IND[:ATE

TAB

/OP

/MAKE

FIRST

1®

DCA

JMS

CENPAT

TAD

NUMBLK

0CA

§AVNUM

COPTIP,

TAD

/GENEPATE

WJRD
2VD

BACKWAflD
WORD

IND.ICATE FORWAm
129 WORD PATTE.f}N

NUMBLK

CMA

DCA

TAD

BECORD

DlnFLc

SEA

CLA

/BACKWARD

TAB

RECORD

/LAST

TAD

DCA

REC0f]D

BLOCK+NJM

BLOCKS

LSTBLK

/T0

F.IND

/BLOCK

FI]ST
8=

WRITTEN

MAINDEC-08-D3RA-LA
Page 30
/TEST

/IF

F0fi

WRITE

NUMBER

JMP

.+1

DATA

MODE

BLOCKS=INC

WDCMOD

JMS

SRCHIT

WRTIAi

TAD

lot

K©215g

764

TAD

K7577

DCA

TAB

f]BFLOC

/SRCH

/0 0F!

-1

WBIT:I

DATA

WCLOC

DCA

JMS
•1

JMP

WSTERF3

TAB

SIA

CLA

WCLOC

JMP

WSTERR

TAD
CLL

0IBFLG

TAB

f}EC0BD

SPA
CLA

STL

DCA

RECORD

/pEcOBD-1

SNL

ISZ

/NO

REC0BD

NUMBLK

/DONE

ALL

WRTIA+1

/WFuTE

DATA

TAB

+1.`

BLOJKS

M0BE

PECORD

/NEW

POSITION

P0slTN

DIRFLG
DCA

DIRECT

TAB

BBFWD2

AND

K377'7

DCA

TAD

K820g

I0T

764

JMP

/DIRECTION

.FLAG

LSTBLK

/STOP

T.APE

.+1

MOFPPO

;PlANDOM

sELEcr

AGAIN

F` E W D R V

PEWCK,

JMS

BANGEN

/GET

3ANDOM

CLA
I
BEWCK-1

0CA

PECORD

/+R=AJ

DCA

DIRFLG

/ F 0 .i W A R D

JMP

RDTAB

.+1

NUMBER

/+ oR -

SPA
JMP

BLOCK

MAINDEC-08-D3RA-LA

Page 3'
STEf}F`,

JMS

TAB

BECQOK

ERP§TP

WRTDTY

JM§

TYPCON

JMS

TYPTEX

42
5457
4353
778®

77
72

TAD

SAVNUM

DCA

NUMBLr(

IOT

772

DCA

SAVNUM+2

TAB

SAVNUM+1

JMS

TYPCON
TYPTEX

JMS
JMS

67
1643
1677
L^S
AND

K6ggo

SNA

CLA

HLT

ISZ
JMP
.JHP

PA§FL6
I
I+2
COPTIP

REWDRV
SAVNUM.

/2ND

£RROR

/flEWIVD

DpivE

MAINDEC-08-D3RA-LA
Page 32
/READ

ENTIBE

/BLOCKS

SEQUENCE

ORIGINALLY

WRITTEN

*16®®
3OsEO,

TAD

AND

K3777

0CA

RECORD

TAB

RBursT

RBrwD2

1694

®143

AND

K3777

16®5

3@77

0CA

NUMBLK

1696

1949

TAB

RECORD

16®7

7®48

CMA

1611

3D77

DCA

NUMBLK

1612
1613

4462
71D8

JMS

1614

771©

SPA

1615
1616

794®
7440

CMA

TAD

/GET
/MAKE

;GET

LST

_OwEST

BLOcK

BL.]C{!+1

NUMBE.i

JF.

BLOCKS

/MAKE

NUMBER

BLKS-

/BEAD

/MAKE-'
F.IRST
B_OCK

NUMBLK

RANGEN

CLL
CLA

/READ
/NO

FWD
BKWD

SEA
IF

Br(wD

/STATUS

Ef]POP

READ

MAINDEC-08-D3RA-LA
Page 33
3DBUF|,

IS2 NUMBLK
/NO,

JMP

I+3

TAD

K2)2®©

JMp

,+5

TAD

BF2LOC

DCA

/f}EA0

A-L

CALOC

TAD

K7577

DCA

I0T

764

JMS

/STop

TA:EF

/ADDBS

BLOCKS

BJF.-F}

/129

ALL

BEAD

40BDS

WCLOC

/BESET

DATACO

PANBFB

/BLOCK

8 u r F' R s
9291
ISZ

C:OCNTP

JHP

TAB

NUMBLK

BEA02A

ENAB.ES

CENEPATED
/AGAINST

0LA

JMP

NDOFRD

TAB

DIPFLG

BL3C{I

/ANY

/YEsi

HEAD

/DONE

SNA

STOP

TAPE

/COMPAF}E

READ

J.ATA

0TIER

COMPLET=l

ERRORS

DIPECTI0N

SEBIES

/YES

SNA
IAC

TAB

RECORD

DCA

RECORD

JMS

/LAST

BLOCK

.OR-1

WAITl

1
JMP

PEAD2

TAB

WCLOC

SEA

CLA

/STATUS

ERRORi

REREAD

JMP

ISZ

NUMBLK

ftE^D2
/D0ivE.

ALL

JMP
TAB

'+3
K0200

/DOVE

ALL

JMP

,+5

TAD

BFILOC

DCA

TAB

k7577

CALOC

/STOP

fiEADS

TAPE

/ADDPIS

FIRST

/12'9

DCA

I0T

764

/RESET

JMS

/COMPARE

BUFFP

J0BD§

WCLOC

DATAC0

PANBm

ENABLES.

STOP

TAPE

/GENEBATED

BUFFRS+2©2

/AGAIV§T

F}EAD

ISZ

COCNTR

JMP

/ANY
/YES,

READ2A

TAD

NUMBLK

SNA

CLA

JMP

NDOFRD

TAD

DIPF-LG

/READ

AND

COMPARE Ef]B0f]S
READ OTHER
Dlf3ECTI0N

COMJABED

/YES

ALL

MAINDEC-08-D3RA-LA
Pc'ge 34
/LAST

BLoCK

OR-

/WAIT

/STATUS

FIV!SH

EBP0Bi

READ

FiEREAD

/COMPARE
OOF.BDi

TAB

DCA

TAB

DIBFLG

FIRST

BUFFf}

BECOR0

POSITN

/NEW

DCA

DIRECT

JMP

.+1

POSITION

/INDICATE

DIP=CTI0N

MOFPPO

PAUsE
/TC©1

DEC;TBEX

/f]EAD

DATA

/TWO

BLOCKS

TAPE

CONTINUOUS
AND

MODE

COMPABE

DATA

BEAD

#2@©@

2®®©

1©76

aDCMOD,

2®01
20©2

7648
5212

SEA

TAD

CLA

/FORWAB0S

2©©3

194©

:X: ;::8RD

2©©4

7©4©

CMA

2805

1453

29216

7440

28®7

5215

2©121
2©ii

5611
ei3ZJ4

2012

1©4®

2913
2©14

765©
5611

:i:

LSTBLK

JMP
JMP

/N0

/BLOcK+1

'+6
I
,+1

RDTAB

/BEAD

TAB

PEC0B0

SNA.

CLA

JMP

KB13g

JOT

764

TAB
TAB

K7577
K7577
I

/BLOC{r
ONLY
1

/BLOCK

JMS

TAD

wRITrEN

NOT

@/Rf gg`8#:i

WP|TTEN

.,3

TA0

0CA

DIRFLG

SPCHIT

/FIND

F]BST

a_OCK

/BEAD
DATA
/CONTINUOUS
MJDE

WCLOC

BFILOC

DCA

CALOC

JMS

WAITI

1
JMP

BDCERB

TAD

SEA

CLA

JMP

K020g

I0T

764

TAD

DIFiFLG

IAC

WHICH

/STOP

TAPE

PEAD2

TAD

SNA

/SEE

WCL0C

BLJCK

ERROR

MAINDEC-08-D3RA-LA
Pc'ge 35
TAD
DCA

JMS

/VERIFY

JMS

DATACO

LA§1

3LOCK

/ F' I B S T

RANBFR

BUFFRS+201

9291
1§2

COCNTF}

/ANY

DATA

JMP

/YES

F}EREAD

READ2A

EipJBS

MAINDEC-08-D3RA-LA
Page 36
CMA

TAD

BF.2LOC

0CA

CALOC

REGENP

DIBFLG

lAC
RECORD
F' E C 0 F] D

/VEf"FIFY

/BLOCK

0ATACO

FIPS.T

PEAO

RANBFR

BUFFPS.

0201
lsz

COCNTP

JMP

PEAD2A

TAD

RECORD

0CA

POSITN

JMP

.+1

/A.NY

DATA

/VES`i

REREAJ

E]RJB§

M 0 F- P F] 0

aDCEPB ,

TAB

WCLOC

/ERROR

SNA

JMP

/yES

,+6

CMA

'AC

TAD

K7577

0CA

WCLOC

JMP

.+1

COUNT

2VD

BLOCK

BLJCK

/wC-129
/TY3E

STATUS

EBF}OR

STATUS

EBPOP

F] E R E A D

DIRFLG

/BAckwABDS-1
/FORWARD+1
RECORD

fl E 0 0 P D

I'-6
1321

/TYJE

MAINDEC-08-D3RA-LA
Page 37
/WPITE

/IF.

DATA

CONTINUOUS

NUMBER

0F.

MODE

BLOCKS

INCREM:NT

42200
rdDCMoo,

OCA

TAD

NUMBLK

TAB

KO©©3

TF]ECTF}

SNA
JMP

SWCMOD

SMA

JMP

]SZ

TBECTR

JMP

WDCMOD¢2

/AN

INC

/yES

WPIITE

/GONE

PAST

.+3

100E

/NOT

INC

WBTIA-1
SWCM00,

TAB

TPIECTP

/MA<E

CMA

/OF

0CA

TBECTP

JMS

GB0UPS

0F
/2ls

0ATAMV

/MAKE

RANBFR

NUMBEf3

5
JOMPLIMENT

PATTE.3N

BUFFEPS

i.OVG

BUFFRS

7376
JMS

TAB
SWCMDL,

;F-IND

SRCHIT

KD15g

lot

T^D

K7175

DCA

TAB

PBFLOC

FmsT

a.OcK

/WRIT:i

DATA

/-129

CONTINUOUSLY

764

TIMES

WCLOC

DCA

CALOC

JMS

WAITI

1
JMP

WDCEBB

TAB

s=A

CLA

JMP

WDCERPl

TAB

0IRFLG

SEA

CLA.

all

/NOT

.NORMAL

IVITERRUPT

I.WCLOC

/WC

NJT

ZEBO

STL

TAD

K8803
/BACKWAPDS

SEL
CMA

-3

IAC

TAB

RECORD

DGA

F}ECORD

IS=

TRECTR

JMP

SWCMDL

JMP

WDINC

.+1

/DONE ALL
/N0i
D0
NEXT

3. BLOCKS

MAINDEC-08-D3RA-LA
Pcige 38

2253
2254
2255
2256

3277
1443
7®4|
1117

WDCE:BF{,

TAB

DCA

WCLOC

TBECTR

/BLOCK

/FIND

WAS

WHICH

/ERROR

CMA

IAC

TAD

K7577

SPA

JMP
ISE

JMP

,+3
TBECTR

.-4

C;LA

TAB

DIRF.LG

CLL
SEA

/FORWARD

C;LA

/BACKWARD

STL
TAD

MAK=L1

-2

TRECTR

S=L
CMA

IAC

TAB

PECOPID

DCA

RECORD

JMP

WSTERR

TRECTRi

<7175,
<®15©,

.+1

/BLOCK

E]RJR

/TY3EJUT

WPITE

ERROR

MAINDEC-08-D3RA-LA

Page 39
/R.LAD

ALL

/f3EV

CKsuM

/CKSLIMS

ROUTINE

DATA

AFiE.

AND

CrfsuM

GENERATED

AND

ARE

R=A)

TESTEJ

#248¢
3ALLTS,

TAB

DIF}FLG

SNA

/BACKWARDS

IAC

/FORWARDS

/+1

CMA

IAC

TAD

RECOFiD

DCA

RECORD

TAB

F{EC0fiD

F0Fi

BAC1-I

FOR

/CANT

F.WD

SPA
JMP

a+4

TAB

K5©76

SPA

CLA

JMP

.+4

CLA

JMP
I
M 0 F P I) 1
/FIND

THE

/CLEAF}

.+1

BLOCK

PEA0

2417

RAEFLG

242©

2421
2422
2423
2424
2425
2426
2427

764

243©

2431
2432
2433
2434
2435
2436
2437

AND

CHANCE:

ERP

F-LG

ALL

SBCHIT

DIRFLG

P E C 0 Fi D
RECORD

773

-1

CLA

RASEBB
BLKFND
]AC

PECORD
CLA

PASEPP

R=AJ.

/CL=A3.

27®1

ALL

f}EAD

ALL

EBB.

FL.

MAINDEC-08-D3RA-LA
Page 40
/CHANGE

READ

TAB

K012g

I0T

764

TAD

K7571

DCA

TAD

ALL

CONTINUOUS

WGLOC

BFILOC

DCA

I:ALOC

JMS

WAITI

1
JMP

/READ

ALL

TAD

454
455

640
770
111
676

SEA

CLA

JMP

TAD

Ko2@a

I0T

764

BABEBR

/STOP

TAPE

STATUS

ERROR

MAINDEC-08-D3RA-LA
Page 41
/GENEBATE

CKSUMS

2456

1376

TAD

F{ADLOC

2457

3fai@

DCA

246©
2461

1117
3®11

TAB

I(7577

DCA

2462

3364

DCA

CKSUMB

TAD

AND

KO®77

DCA

REVCHK

TAD

JMS

XOPSuM

AND

TEST

/CLR

SuM=82)

ACcuMu_ArED

L`KsuM

10
/SAVE

BEVEBSE

CKSUM

1©

/GENERATE

DATA

SUM

ISZ 11
JMP
,-3
TAD

CKSUMf{

CMA

AND

KO©77

0CA

DATASM

TAB

AND

K77@0

0CA

FWDC:HK

TAD

DATASM

DCA

CKSuMR

TAB

FWDCHK

JMS

XORSuM

TAD

PIEVCHK

JMS

XORSUM

TAB

CKSuMR

SEA

CLA

JMP

CKSERB

3ADCHK,

TAD

DCA

/SAVE

DATA

Sull

/SAVE

FOPwA]D

/DATA

SUM

1©

POSITN

C.MA

TAD

CALOC

DCA

CALOC

JMS

BEGENP

JMS

DATAC0

2516
2517
2520
2521
2522
2523
2524
2525
2526
2527

3444
4464
4465
6774
7292
®291
2377
2©72
55©5
5730

2530

Z1217

M 0 F' P P 0 - 2

BANBFB

8 U F- F R S + 5

RAEF-LG

ISZ

COCNTR

JMP

BEADi2A

JMP

'+1

/MAKE

FINAL

/SUM

/N0i

EBROPl

PIEC0BD

CHECKSUM

FJPIWAF!D

SJM

CKECK

MAINDEC-08-D3RA-LA

Page 42
/FORM

/SAVE

PESULTS

BIT

X0RSUM,

XOR

0F.

IN
JMP

AND

CK§UMi

CK§uMB
.

CMA

OCA

X0BSAV

CMA

DCA

X0BSAV+1

TAD

XORSAV

/T0

COUNT

PASSES

CMA

AND

CKSUMR

DCA

XORSAV+2

TAD

CKSUMR

/MAKE

PARTIAL

HALF

SUM

CMA

AND

XORSAV

/OTHER

TAD

XORSAV+2

/COMBINE

AND

K®®77

DCA

CKSUMB

SJM

/CLB

ISZ

XORSAV*1

/DONE

UppEP

JMP

;DONE

ALL

Exlr

TAB

XOPSAV
a,MOVE

OVER

/XOR

UPpEB

XOPSUM

BTB
RTR

PTP
DCA

XOF}SAV

JMP

XOQSUMt5

CKSEBR ,

ERRCKS

•J A T A S M ,

FwOcHK ,

aEvcHK,

0
0

CKSUMR .
XOR§AV,

3A!ERR:
JMP

55ERSESFLG
,+1

S R H E: 8 a

*812®,

{757|,

':#:g:

.®12©

7571

EUFFRs"

LWR

MAINDEC-08-D3RA-LA
Page 43

/CHECK

SUM

EBROP

TYPEOJT

*268©
26©©

4 7 21 1

26©1

1071

TAD

RECRDK

2602
2603

5q6

JMS

TYPCON

5®7

JMS

TYPTEX

0042
5457
4353

42
5457
4353
7777

26®4
26©5
2 6 21 6

2697
2618

=RRCKS,

JMS

CSECON

/TY]A_L

4562
6257
6277
TAB

CSEGON+1

JMS

TYPC:ON

JMS

TYPTEX

/ R E V C; H K

62
4566
7 7 qJqJ
JMS

CKSTYP

/TYPE

2625
2626
2627

TAD

CSECON+2

/DATASM

JMS

TYPCON

JMS

CSECON+3

263©

JHS

CKSTYP

42
1305

JMS

CALCTY

45©6

JHS

4257

JMS

CKSTyp

1 7 Zl 6

TAD

704©

CMA

2631

2632

2633
2634
2635
2636
2637
2640
2641
2642
2643
2644
2645
2646

TAD

CSECON+4

/TYDATA
/CHECKSUM

/FWD

CHECK

/CHK

SUM

TYPCON
CSECON+5

AND

37%6

DCA

13©6

TAD

CSECON+5

JMS

CALCTY

JMS

K©877

CSECON+5

TYPCON
TYPTEX

54
166©

1642

L671
CMA

DC:A

JMP

C;HK

RADCHK

R A E F' L G
REWDRV

,+3

.+1

/CKSUMP

SJM

MAINDEC-08-D3RA-LA
Page 44
2657

5257

266©

4507

JMS

2661

21@43

2662

5©45

2663
2664
2665
2666
2667

4353
0D63
6555
77ag
5657

4353
63
6555
7708

267®
2671

527©
452]7

2672.

@®43

2673
2674
2675
2676

4154
4365
5441
6445

3KSTYP,

JMP
I

TYPTEX

JMP
CALCTyl

CKSTYP

JMS

TYPTEX

CALCTY

JMP

43
4154
4365

2&]7

4477

5441
6445
4477

2709

5670

JMP

CSECON,
REVCHK

?'5A?%
FWDCHK

C K § u M F!

TYRALL

c}isEt]]

J.no]d^.I.

I-d^isHo

©'

i+,
bwr
LIH
C]NV

80219H

VNS

V|O

SV|
££9T

£ , 9 I.
£9
I

N00d^J.

x]J.d^i

OO|OM

swr
Swr
C]VI

£908
4¢€,

swr

Tb,9

I-2 |Z

I,,9

ggb9

8££2

LLlb

LLlb
£9

NOod^i

x]J.d^i

swr

J.OI

2Z4

Voa

b2+'

CIvl

ZZ+'

Nood^i

x]J.d^i

92£2
£34Z
3£Z
£Z£Z

2az2
Tzfz

ST£Z

£€,S

9T£Z

fs£,

Lj ,-I.

rbq. L L

r4r4 L L

gz4Z

£,££
ZLL9

C]VI

swr

`HVHdd:

s`nJ.Vis

9E£,
bb£T

T4Z

Z o Z) ca

£££b
££b€

4 a. g ,

swr
swr
swr

X0t'3Jd

NoO]so
I

uodti]

llv

9 t! S b
T4gT
Tz4,
49bb

0v]tl/

97 e6Dd

Vl-Vtl8o-80-J]aNlvw

MAINDEC-08-D3RA-LA
Page 46
/TC®1

RANDOM

/TYPEOUTS

EXERCISEf?

AND

SOME

CONTB0L

ROUTIN:S

INTERRUPT

ROUTINE

*5@®0

/WAIT

FOR

/SYNC;HRONIEE

d^TINT,

PROCESSOR

JMP

TESTS

3®0®

5289

3®01
3®02
30®3

1323
3325
6761

TAB

WTKON1

0CA

WTCNTR

lot

761

3©®4

AND

K987®

3®®5

7640

S=A

CLA

3®0¢

5211

JMP

'+3

3©®7
3®1®

1324
3325

TAD

WTKON2

/OHAN3E

DCA

WTCNTR

/45

162
217
4331

IS2

FRSWAT

/F!]§T

JMP
JMS

RESETD
SETIDX

/N0

/START

0 1
6 6
0

/GET

/MOVE

F.UNCTI0V

/NO

§ECOND§

SECOND

WAIT

STAT

ENOUGH
WAIT

§:COND

COUNT

FOP

MOVE

PPOGPAM

WAIT

R:STORE

AND

LINK

ION

JMP

,+1

TEST

lszTST
BESETDi

DCA

ISZ

PICNTR

SKP
JHS

SETIDX

/INDICATE

FRSWAT

NOT

TAO@

DCA

ISZ

PIDEXI

TAB

LKSAVE

/RESTORE

BAR

LIW

CLA
TAB

ACSAVE

/PIESTJBE

ACCuMULATOR

ION

JMP

/PETuPN

FB0Vl

_A§T

INTEPRUPT

FIBST

WAIT

C13|03dx]

H9noN]

diHs

cio

]dvio3a/

+,
003E8S

dwr
ZSI
4£9T
TS9T

99
4S9§
Id

ON,

L 1. L L

x]id^i I swr

Idyl dots/

dj.Sdd]

OOJt]8S
ON/

JJS

SOVIJ

^NV/

swr
Voa
VW0

T££

10`1

J0I
1S:i

9Noi

1X]N

0Cl

oN/

0:i!vM;

ciNisid I c}wr`
81N0lM ZSI

i+.

,ONJ.sid

sNj.sj.d

dwr
LLEO

9TTS
9TD9
LLLL

10N

]@IM11]X]

A-NO/

dcIS/

]dvL

ESI
dlHS

9VIJ

IX]N

]Wclwco

s.nivis

distiti]

x]idAi
swr

swr
`dxsioh`

ESI
V|0
OV|

8XJ0Id
ZXI0Id I

dwr

1NIIVN

^NV/

1VIS

OO9G

O£Z

££

gbo£

0N/

tlNlr

CNV/

CIV1

3^VS0V

sN8nl]t]

OO9T

voa

]^vsHi

10]

TZ4

Ss8s

dwr

dxsioN

a l. |9

00Jt]as V3c)
2££ 101

|Vtl

]^vsJ
oi

OOZT

©££0

1]0/
lNIIVM

]Avs/

]dv|0=0

t]OJ

C022
0822
8£9£

ON/

S9Vl.. lv9]llI
N00

8
1]S
lIVM

tloivinwnoov

]t]]H

Vac,

,ooJt]|

idnt]d]iNI

0£££

I. L |9
9z££
8®£

£8££

Ssg£
£8£

t]]j.]V/

Z7 a6Dd

Vl-Vtlca-8o-3]aNlvw

MAINDEC-08-D3RA-LA
Page 48
31®4

45.2)7

3TSTNS,

31®5
3106

0056
5777

31©.7

45217

JMS

3118

®©44

3'111
3112
3113
3114
3115
3116
3117
3120

4543
6441
6845
0063
5351

44
4543
6441
6045

6®77
22©0
7®48

3121
3122

E162
5600

JMS

TYPTEX

5777
I

TYPTEX

5351
6077
ISZ

WATINT

CMA

DCA

FRSWAT

JMP

WAT|NT

TKONI

/WAIT

I:OUNT

TKON2

/WAIT

COUNT

TCNTB

SETIDX,
TAD
DCA

PICNTR

TAD

PITBL

DCA

PIDEXI

TA.D

PIRTBL

DCA

PIDEX2

JMP

K7 7 7 TY .
P I C N T Fi ,

PIDEX1'
PIDEX2,
PITBL,

plTBL+7

3154

3155

JMP
K7772Y

PlfiTBL,

SET|DX

SECONDS

SO^00]SIlilw

VWO

0,I

0V|

ZdwJL

||H
IN§

|Vt]
tJvd |1S
Zdw310Vl

£91no8V

`SIT.I.0!

IS]i

]iviot]/

isldciN I swr
£+1siEsl dwr

c"S
§dwJ1

Tdw3|
HO

Zdw3L

a-'
ZdwJL

TdwII
TdwJI

ZdwJ|
Sdw]L

VDC)

VWO

]i]"

0NIIIVM

soNoO]slillw

,1§|z§I

ino8v

J,s]i

z§I/

0 0 z f tl

lN)

toJ

TX]tl|O]O

doJ

Nnt]

IS]l

Sls]i;

SS]00dd/

67 e6Dd

Vl-VU8a-80-D]aNlvw

MAINDEC-08-D3RA-LA
Page 50
/ROTATE

TEST

aoT2Ts,

ALSO

TAB

ABOUT

MI_Ll§ECONDS

TEMp2

CMA

TAB

3245
3246
324'7

7440
7402
2342
236

SEA
HLT

5©

JMS

l§z TEMP2
JMP POT2TS
I

NDPTST

/TAB

TEST
AOD
EVERY
COM
/ABOUT
86 MILLISECONDS
TAOTST,

DCA

TAD

PRANI

CLL

RAL

SZL
IAC

0CA

PRANI

TAD

PRAN2

TAB

PRANI

DCA

PBAN2

TAD

PRAN2

0CA

TEMP4

TAB

PRAN2

TAD

TEMPS

CMA

IAC

TAD

TEMP4

SZA

TEMPS

PAN

]ino]x]

ni]tlwr
swr

]8v

(wrri:t])J

9NilNno:
00Z

Wrni]t]

dwr

£9LL

toJJ

0 Q] 9 4

Swr/

,00|sW

8089

,NOWs

ggzb

ONISJ.c]

` J.§|

`,dw31

,SdwJJ

`ZNv8e
`TNvt]c

+£9Z
£9Zb

`Tdw3|

`8dwJI

`£dwJ|

isizsl

H01]J

dwr
Esl

TdwJI

dwr

z+1sisHr

Swr

J.SJ.doN

ESI
ZSI

8dwIJ.
fdwJJ.

dwr

t+ni]t]wr
13^ 8ZT 3^Ocl/
0NV dwo: 3NI/

1|H
Y£S

f dw31

I+'
S]SS]dcI0V

wotlj

0V1

tod/

]t]Vdhoo/

Ntlni]t];

` n J. I a W r

X©89{H

§wr
wrnJ.]t]

82T

]ino]x]/

swr wct]=. Ntlni]t]
c]wr I:t]cis;

00lswr

ol;

f dHJ|

£9

]^Ilno]sNcO

lnoE]V

8ZT

Eo]

dwr

VOC)

dwrl]tl ovi
a-. dwr

Beo9/
SS]800v
lv 9N|lt]VIS/
swr 8zT '=t]cis;

•

X£944x
SC]NO]]SIlllw

Swr

Voa

£c]WJI

ESI
£SI
Voa
OV|
Voa
ovi.

£dwJI
dwJ1
f dwJI I
dwJ|
dwal
Noxswr

2S[

Zc]W3|

C]VI

X8fl94X

VOCI

ZdNjJ.

OVI

00|Swr

Voa

TdwJI

civi

Silns]t]

s]Ssvd

£T

`isiswr

]t]vciwoo

]xVw

ONV/

is]1

swr/

LS a6Dd

Vl-Vtl8q-80-J]ONIVW

MAINDEC-08-D3RA-LA
Page 52
PAUSE

/TC©1

DECTEX

;:5W:§B

TAPE

i::EDEiv5iAiEL5:T#pE

tL 3 4 0 0

34®0
34©|

528©
4217

REPosl,
JMS

JMP
RSFDRV

34®2
3483

1149
104.6

TAD

1{©604

TAB

UNFUNC

3404
3485

6766
4466

I0T

766

JMS

34®6

500©

58@0

3497

5340

JMP

MOVEF3

CLA

C;MA

0CA

CLA

CMA

,
/f]ESET

P0|NTRS

/MOVE

/SET

FIBST

0FuvE

BACKWARDS

/+P3SITI0NE0
STATUS
A

UNIT

WAITI

/INDICATE

EXP=CT
/NOT

POSITN

/INDICATE

DIBECT

/INDICATE

END

STATUS

END

ZONE

BAC{WARDS

0CA

JMS

CHNGDR

/SET

JRIVE:

JMP

REPOSI+2

/REWIND

JF3IVE

JMP

/GOT

FiEPOSI

/PESET

Cuf}FZENT

/FIP§T

DRIVE

.B§FDRV,

DRIVE

EXPECTED

ALL

POINTERS

0BIV=Si

E:XIT

SELECTED
JMP

CLA
DCA

CDPIVE

TAD

K4©©O

DCA

COMBIT

TA0

MSBITS

4261
5617

INITIALLY

AND

COM.BIT

SEA

CLA

/THIS

DPIVE

JMP

RSFDRI

/YES.

SET

TAD

COMBIT

CLL

FiAB

S=LECTEO

COMBIT

/MOVE

ISE

CDBIVE

/IN:R=MENT

JMP

RSFDRV+5

FOUND

3SFDf31,

JMP

FIRST

JMS

PO[VTEP

DCA

/HAVE

3435
3436

/SET

BSFDRV

DBIVE

GNPTRS

COMPABE

DRIVE

BIT

NUM

SELECTEJ

/GEVE3ATE

/EXIT

CONTROL

P0INTEPS

slc3t]laNI
t]OJ/
alNc ^OIJ.03tjlo +/

Sic.Jt]I0NI doJ/
'St]00V tlNd .sod +/
t]=8wnN

Z`T`©

S|l€

3^Ido/

£9££
stlJ.c]N9

C]Vl

2Z+StJINd

Voa

H|81§|

CIVJ.

SdLNd

Voa

NIIS0d

J^Idclo

110
OVJ-

dwr

`StliciN9

]dvio]o

t]]8wnN

ilNn ONv
`08WO]81Svl

]J.vu]N]9/

,8J-tgh

OVJ.

J^It]Clo

CIV,i

J^IdcI0

did
t]J.a

3^Ido/
•

I/ltd

]^It]o

ciwr

Voa

I.33t]IC]

TT+St]lNd Owl
J^Id03 CIVI

Voa

0NnJNn

N0|1|S0d/

ti=8HnN

sNo|ioNnj
st]iNlod

8ooNHo

§t]]1NI0cl

t]oJ/

Nolio]t]IO;

]lvtl]N]0/
I

dwr

st]idN9

ON/

Cl=|0]|=s

swr

I + a C] 9 N H 0
V|O

SIHJ./

sJ. I 8sw
J- I 8 w o 0

J^ I t] 0 0
|I8woO

i I X3/
d|XS

`1IX]

't]ONI/

]^lEo

WrN

011Jsjtl/

|SdlJ

do9NH0
I
do9NHO

ON/

1X-:N
Jt]vdroc

118

isvl/

011|
]^oW/
3^Itio 130/
I

c]IXS

C]W
eo

V|0

dwr

]^Itlo

lsdlJ

.]^IUCI

01
10 jl3S/

I.X]N

89 e6Dd

Vl-Vtlca-80-J]aNlvw

MAINDEC-08-D3RA-LA
Page 54

.+1

/T0

/FOB

DRIVE

G.=IT

LAST

RECOPD

/6
/7
/T0 GET LAsr
JilRECTION
/Dlf}ECTI0N
-JN!T
8

/1
/2
/3
/4

/5
/6..

/7
/T0

GET

/DRIVE

/1
/2
/3

/4
/5
/6
/7

J
J

JMS
'+2
RE`PoSI.2
I

ERBSTP

MOVEB-1

772MOVER-2
MOVER-3

J
J

TYPCON

TYPTEX

K6©©®

CLA

MOVED+2

/TYMOVE

LAST

3LOCK

WF"TTEN

NUMBEB

I.]^
W0018

ONroEv

Narii

8OJ/

dwr

Siz]ds

33S/

dwr
swr

Ndvlds
lN03t]s

Cl ^ i > 3 0 1 8 = W 0 0 I E] /

101
dwr

9{
Nt]vj.t]s

dwr

4-'

o]LOV]t]

HCIE

1iN]^VH/

ISvcl

oNro--Z3

]NO9/

I
IIIVM

9|JW18

Swr
VOCI
VW0

00|vO

OMH8

Jt]VJ.S/

1NI0c

]lv0ICINI/

Ot'vMt]OJ/

£-HC016

£+X0O|8
Ot]vtHr:v8/

0MJ/

Voa

10'

994

0V|

N00CII

Voa

1N0dvI

0V|

9|JEI0

VNS

V|O

OVI

©©,9„

0VL

OTZ©H

OVJ.

ONnJNn

OV|

C]dooJd

VW0

0VI

VW0

OVI

SI/

C]tv"Ov8 ,oN/
OWMdoJ/

£9£
££9£
Z£9£
T£9£
£Z9£

Z£S

0£9£

£ZS
9Z,

goo
9b,
sT£
¢4
£
a,gT
9949

:3;£u
29£
£Z9£

ea9£
T39£

gg9£
£1:

|NS
£0©©y

Ovl

|J.S
V|O

VZS

OIJdl0

•dwr

C)VI

110
H 0 t] v I s

V|0

0 © 9 £ t,

C"H8
riMj

¢==ol]t]Ic]

N0110]tjlG

£££4=/

O]1volc!^!Iz

(C"uO]W

ONI]

]Nlj.nod

yool8/

H3dvis/

9s e6Od

vl-vtlga-8o-]]c]Nlvw

MAINDEC-08-D3RA-LA
Page 56
SBTARN,

IOT

761

CMA

3643
3644
3645
3646
3647
3650
3651
3652

7041
3156
7048
3157
4466
0091
5555
4263

3653

3654
3655

AND

K®280

TAB

Ko4rao

lot

764

TAB

RECORD

C:MA

IAC

DC.A

TAPONT

/|N

/D0

TURN

C;ASE

MOTI0N=g

AP3UVD

CMA

DCA

BLKF.LG

JHS

WAITI

SRCHEB

1
JMP

JMS

SBCONT

/CHK

56©E]

JMP

SEABCH

/FOUND

5555

JMP

SiRCHER

/GONE

f3ELATIJN

0F.

BLOC<,

PAST,

BLOCK

EXIT

E]ROR

CMA

TAD

/BEAD

SNA

BLOC;K

JMP
/HAVEN'T

I0T
JMP
/F.]ND

/T0

PELATI0N

/BLOCK

NUMBEfis

JMP
BLKF.LC

SKP
JMP

SBFBLK

I0T

761

AND

K©400

SZA

CLA

CHA

BLOCK

SOUGHT

SplcoNT,
IS3

/yES
JHNG
BEACIED
/WAIT

BLOCK

AND

NUNS

FOB

FOUND

TEST
CONSECUT I VE

.
/FIRST

BLOC(

/NOT

FlpsT

/FmsT,

uusr

/BKwftDS

VUMBEP

SAVE

/-1
/FWD

/+1
/LAST

BLOCK

/BLOCKS

/NO,

+JR-1

CONSE:UTIVE

ERROR

YET

MODE

idntld]iNi

ONnot]v

ist]Ii_-

Ntni/
to8t]J
ioN;

§1

33/

IJ.IVM

t]JH0t]S

dwr
g©©g

NIV9V

J.]S/

N0lloh

NIV9V

oNnoav`Ndni
]dtl

oNnot]v

Nt]rii

g©£Z 'to

N]Y:Y

t]0]

s]^/
lvwdoJ

|IVM/

MEN/

ioN;

TO{Z

„o0|8/

l|H

S]^/

tl=H10

idnEti=i^I

]W0S

`ON/

3NoZ

oN]/

Swr

dwr

£T+.

|NS
dvd
SV|

V|0

dwr

Ndvj.t]s

0VI

goz©X

10]

dwr

ty+.

C]Vl

Tg£ZW

VWS

V|O

I do a „0018/
dotld]

2Z£

VWS

c]wr

0Vl

IN0d,1
ti]Hous

10
11833

VNS
0NV

J.OI

,S|£3tls

1N00t]S

I
1 N 0 0 tl S
V13

|N00t]S
CI M y 8 /

I.svd

]Nos

=^vH

aMj

J. N 0 0 t] S

]1/

V|0
+,

SS3|
t]:J.Vltj9

,ON/

|J.S

ONJHl8/

0NnoJ

,S3A/

=S„00|8/

clwr

Esl

J-N03tJS

Vds
110

VIJ

|N00tls

VNS

0VI

0NJyl8

uV1

1N0dvl
HISJt]d
0V1

ONJHIS

V00`
`Hl8jHs

Z9 e6Od

Vl-V¥8q-80-3]aNlvw

MAINDEC-08-D3RA-LA
Page 58
SBCMOD,

TAD

3755

1D41

3756
3757
3760
3761
3762
3763
3764
3765

7041
1040
75ao
7841
3443
1135
6764
4466

CMA

IAC

TAB

RECORD

3766

BOD1

3767
3770
3771
3772
3773
3774
3775
3776
3777

5555
1041
7041
1040
7649
5555
1135
6764
5680

BLKFND

/|N

/FIND

NUMBEFi

DIFFERENCE

BLOCKS

SMA
CMA

/MAKE

IAC

0CA

WCLOC

TAD

K01©O

lot

764

JMS

WAITl

JMP

SBCHEF}

TAD

BLKF.ND

CMA

IAC

TAB

RECORD

SEA

CLA

JMP

TAD

KOIog

I0T

764

JMP

SRCHEP

/FOP

WORD

/SET

CONT|N

/NOT

NORMAL

/RIGHT

C3UV!T

M)DE

IVTERBUPT

BLocrf
/NO,
/cLEAal

=RFioR
CoNTIN

MODE

a-Jyl8/

zl+'
c]Wr
V|O Vds
SNOX]S

C]VI
VWO
r,ffim

9S
9945

'9,

£€£,

4S,i
Z,

x]id^i I
NOod^i

swr
I

swr

^lwovs

Swr

^J.CluoJ

CIV1

N00C]I

ZO£,

9gg,
a , el I
OT,4

c]HS

V|O

^iHotis
Swr

vNs

avL

©g94

£T

9",
£ i fl b

ZT®,

Sb,9
9€Tb

£T@,

0@,,

1: 0 ,

940T
2' E i £

£988
£££b

TTB,

gig,
£®Bb

4s,s

I
I

Swr
Swr

X0d03H

ST{,

I f ty
Zzzg

c]wr

swr

£+,

9|Jt'I0

g©44
g 0 , ,.

S,,9
9ST,
49
£S£,

4£,a
XJJ.d^|
N00d^|

distjtl]

C]V-I.

swr
`tlt]]Htjs
8 0 8 , i,

ino]d^i

sout]]

Hot]v]§z

69 e6od

Vl-vtl8a-80-D]GNIVW

MAINDEC-08-D3RA-LA
Pc,ge 60
TAD

SE`KONS+1

jMS
JMS

I
I

TYPCON
TYPTEX

SEKONS

/ P R -= a _ K

54
4163
64DO

4254
5743
5377
IS£
MOP

TAD

SEKON§

JMS

TYPCON

JMS

TYPTEX

42
5457
4353
6309
6245
4144
7790
IOT

772

DCA

§EKONS*3

TAD

SEKONS+2

JMS

TYPCON

JMS

TYPTEX

4190

'®154

AND

4191

7650

SNA

HLT

4192

74212

41D3

2151

ISZ

PASF.LG

4194

5797

/2ND

4|®5
4106
41®7

JMP
JMP

I
I

/R.I"VD

411©
4111

4112

4113

©©aB

4114
4115

4547
4557

.+3
,+1

§ I A f} a H + 1
PEWDBV

SEKONS,

BLKFLG

PREBLK

.+1
21

3AC;KTY,

TYBKW

FORDTy,

TYFWD

=Rf}OR

0BIVE

II0SV

d3MO|

J.xlN 00/
9VIJ t]vJ13/

avH3^i

IIVM/

a,8OH
£{©©X

c]wr

Jot
i-`

OVIJ

|ndlno/
3>VW/

OJ. Itv=.|0/
NIVOV

]HVW/

9,ZP

£,8,

dwr

gpz,
a,

V10

I,a,

S|1

Z,Z,

JSL
0V|
C]NV
VW0

dwr

0Yl

T-JIJlt]J
t]YHO^|

Plo

,ds
SVI

IXJN IJO/
1 n cl 1 n 0 /

ONE/

S3^/

1Ix3
3€VSS3W

I-JIJlt]O

Voa

dwr

,tl,Ho^1

dwr

Swr

uvHo^i

dwr

I+ix]i^i
ix3i^i

I©2s
¢£Z,

£aau
98Z,

1ndlno/
SJOvld

t] I A 0 /
J^OW/

I:YSS]W

dvHO

t]dn

oi itv]lo/
|XJN

S3^/

1X31^|

CIN]/

IJO/

Jl t]0/
o]]d

]NIl

ON/

-Ndrl=d

Sd]10V8VL0

£+I

]9vltitlvo/

139/

IX]N

3yvw/

c]wr
VZS

Voa

t]OJ.SXI

ZSI

J.XJ|^1

C]VI

t]01SXI

1X]1^1

£TZs
0,,4
gz£T
g@?a

gz££
0 %. 9 i

C]VI

2) , ® 4

VW0

V|0
` 1 X I. 1 A 1

dhr

©¢Z4

883§

8 © Z ty tt

]N|inot]

ix]j.

]ci^1/

[9 a6IJd

Vl-W8a-8o-3]oNlvw

MAINDEC-08-D3RA-LA
Page 62
4247
4250
4251
4252
4253
4254
4255

00®©
525®

0
:RLFLF,

JMP

76D4

LAS

7710

SPA

CLA

565©

JMP

12721

TAD

K©215

TLS

.
/DELETE

TVP=OJTS

CRLFLF
/CA]RIAGE

F}ETuf]N

1TSF

JMP

,-1

8CLA

TAD

K8212

/LIVE

FEED

0].1]

'
]NIl

1]S

S9VIJ

]^V]l

dlsti]

c]Wr

101

T94

C)NV

g®zOH

0VL

£O©©H

101

dwr

`dot]d]

do|,S/

`dolsxl

dwr
VW0

JXvW/

tloJ

Swr

1 n c] J. n 0 /

`disd]

]dvl

d^03^i

3d^i/

tj]ddn

t]VHO^|

VOC]

t]0|SXL

IVE
0VJ-

80|S`X1

ONV

£®®gy

0vl

02©®H

£
02

|t/I
|1t]
`

tlolsxI

CIV|

c]Wr

`t]^oo^1

Oz
@£

lvl:o

-Nit]ri?a

Swr

d^00^|

dwr
Swr
Swr

1Noo^.1
I
d^OO^|
t]^03^1

]9vrtjt]vJ/

S.IN]1No0139/
SS]dc}OV

0VJ.

Voa

dolsxI

Swr

JIJldo

Swr

t]^00^1

tloISXJ.

]^VS/

doJ.SXI
dwr

`
OV

SS]H00V

g¢£p

a. £ ,

T8£,

3£9g
¢£,
¢£,
fl £ ,
Z' S Z ,

gz££
P! a 4 i

Voa
`lNOLi^i

SIN]1N00

gz££
Z£Zs

£¢£,
Z®£,

£4Zb
9£Z,
S£Z,
£Zb
£4Zb
Z4Zb

]d^J./

C9 e6Oc]

vi-vtiga-8o-3]aNlvw

MOVE

AND

TyMOVEI

D]F}ECT|0N

JMP

JMS

TYDRV

JMS

TYPTEX

7777
5557
6645
®077
JMS

TYDIB

JMP

/TypE

TYMOVE

sEApcH

Tysf`CH,

DmECTloN
JMP

JMS

TYDRV

JMS

AND

MODE

TYPTEX

6345
4162
4358
TJrdJ 7
JMS

TYDIP

JMS

TYM00E

JMP

/TYPE

TYSRCH

READ

DATA

TyBDAT,
JMS

AND

MJD:I

TYDRV

JMS

TYREAD

JMS

TYDATA

JMS

TYDIP

JMS

tYMODE

JMP

/TYPE

DIBECTI0N

JMP

TYRDAT

READ

TyBALLj

ALL
..

JMP

JMS

TYORV

JMS

TYf3EAD

JMS

TYALL

JMS

TY0IB

JMS

TYMODE

JMP

TYRALL

DIBECTI0N
.

AND

MbJE

I:OCW

X3J.d^J.

vivo^i

oNv

dwr
4£g©

I,P9

I,,,
0
dwr

swr

`VLvc]^L

VIVCI

XJJ.d^J.
dwr

ilt]M^i

Jd^|/

dwr
rbqJ L 1>

8©§,
9T£

Z9L9
•

swr
`ilHM^i

31]8M

X]1d^i

OVJd^|

Jd^|/

c]Wr
LLEb

S,Z9
•

dwr

swr

`C]V]tl^1

0V3t]

||VM^|

Jd^|/

dwr

Swr

|"M^|

Swr

||V^1

Swr
Swr

J00W^1
dlo^1

^t]o^1 Swr
' dwr
`llvM^i
N0|J.0]dl0 llv ]lIEM ]c]^l/

I.vc}M/`j.

•

]cuh

Nolio]alo

c]wr

Swr

^t]a^J.

§Wr

|It]M^1

Swr

vlvo^1

Swr

t]]0^1

Swr

J00W^|

dwr

vivo

`J.vc}M^i

]iltlM

]c]^J./

99 e6Dd

Vl-Vtl8Cl-80-J]aNlvw

MAINDEC-08-D3RA-LA
Page 66
/TYPE

ALL

TyALL,

JMP

JMS

TYPTEX

TYALL

4154
5 4 fl 0
77@®

JMP

/TYPE

DPIVE

AND

Tyoftv,

NUMBER

JMP

LAS
SPA

CLA

JMP

TYDPV

JMS

TYPTEX

7777
7777
' 4462
5166
4500
0977
TAB

CDBIVE

SNA
TAD

K©®1®

TAD

1{260

TLS
TSF

JMP

'-1

TCF
JMS

TYPTEX

TYDBV

7777
770©
JMP

;TypE

454f]

5348

541
4542
1513
1541
4515

761
137

FonwARDS

TyDIB,

JMP

JOT
AND

761
K04¢g

SNA

CLA

546
4547

650
355
347
740
5347

JMP
TyBKw,

TYDIP
JHP

4 5 5 Qj

4 5 fl 7

JMS

TYPTEX

4551
4552
4553
4554
4555
4556
4557

JMP

TYFWD-2

JMS

TYBKW

4253
6744
qqJ7 7

5747

JMP

TYBKW

43j7

JMS

TYFWD

574@

JMP

TYDIR

4 5 6 21

:3:7

TYrw:;s

)

Ty#:x'

4561
4562
4563
4564

4667

444@

44„©

77@qJ

7 7rA,V)

5757

JIIP

TYFWD

BACKWAPD
I

][oh

lvwHON

io.tw

J00W^|

x]1d^i

Jclow^|

ivMsb]

a-9T@

XjuNJ9
"OGMJ

€£98
99S2

C)3t]|J9
NvdN]9
1V-dN]O

®£€0
g£Z©
190©

1IJ]Z3

T£T@

^|OdoJ

S-TI,

^|^It]O

0£T8

SH3t]t]]

8¢.92.

t]Vt]t]t]J

£fl£2

dlsHE]

£OB¢.

c!|suJ

Iz-£,

J-SIX3

gzoT

loJt]I0

Zg©g

9|Jd_IO

940@

laJ.dlc'

bbot

03VIVC]

9992!

^WVIV0

0490

WSVLVo

T9£Z

JIJldo

8€Zb

N00JS0

T¢£z

J.I8W00

©go©

t]Tldoo
tllsw00

Z,,I
Ss4B

JOIV0

do9NH0
J^Idoo

££,£
S;,gfl

d^1SWo
t]t]JsXO

Z€92
®9gz

VIV00o
EIN00O
t]wnsHO

€ZZT
Z£©¢
b9£z

XJ000

§§ZT

Tdt]300
0t]HJ00

£T£T
T9ZT

doo|00

£bzT

9|JH|8

£STO

0NJHIE]

i,©E

st]JJnE]

g{Tf

^|0|V0

g£9Z

^lHOV8
]^VSOV

bTTb
ZZT£

OO|TJ8

S£@B

00|ZJ8

£@TE

dwr
L LTJrA

S,,,

£ggg
© ill £ ,

swr
c]Wr

J.OI

T9£

0NV

®®T@H

VNS

vlo

snonNlj.N00

clwr

€£Tg
T949
€9£S

,]O()h'^|

]d^i;

49§,
99€P
S9S,

Z9 e6Dd

vi-vtl8a-8o-3]c]Nlvw
a`

MAINDEC-08-D3RA-LA

3127

K 8 f' 1 ®

NUMBLK

rbTJJ 7

ACSAVE

4114

K ffl a 2 fl

BACKTY

PASFLG

BFILoc

a®75

K a a 3 fl

PATGEN

@63@

PICNTR

BF.2LOC

E1`2}3

KB837

BLKFLC

3157

3142
3143
3144

K@04@

PIDEXI

P I. D E x 2

BLKFND

a©4i

K885©

BUFFBS

7175

PIBTBL

CALCTY

267®

K807g
K8077

PITBL

3154
3145

CALOC
CDRIVE

8044
0945

KOIOO

PNTRS

3 5 I) 1

K8128

POSITN

2) 8 5 1

CHNGDR

K813©

POSTBL

K015@
K02B©

P PI A N 1

1043
3346
3347

CKSEBR
QKSTYP
C.K S U M R

COCNTR

COD^TA
CODEX

COERR0

COERRI

COL00P

1243
0850

COMB I T

PBAN2

K0212
K8214

B12

PRECEN

8160
8547

K®215

4270

PTSTN0

3©64

K®24©

@136

PTSTNS

3 1 2) 4

0137
0140
81

RADCHK

2512
25

K8400
K0604
K0614
K0700

PBEBLK

R A D L 0 C;

RAEFLG

RALLTS

K10g®

RANBFR
Fi A N D E X

CRLFLF

1442
4258

K16
K260

C§ECON

2 7 .a 1

K27©1

8 A N N 2'

DATAC0

0965

K3777

RANSEL

0©70

K4®©®

2561
80

K5875
K5976
K60go

01
0147
0154

K7088
K7175

2)124
23©©

BBUFND

K7571
K7577

2575
¢117

R D a U F- 1

C 0 M S T F3

CORTIB

DATAMV

DATASM

DIRECT

2) 7 5 5

DIRFLC
DIBTBL

DplvTY
ERRCKS
E R Rfi A R

RANGEN

RANVAR

RARERR

RASERB

f] 8 F L 0 C
RBFWD2

RBUFST

K76©O

Z1543

BDCERR

E f3 S T P

4321

K7600X

3553

fi D C M,0 D

ExlsT

1©25
©131

K770©
K776®

RDDATA

K7763X
K7779

3554
2)112

GENDEX

4115
9162
2562
9675

K7772Y
K7774

3141
1354

GENPAT

2) 0 6 1

LKSAVE

3126

GENPAN

0735

LSTBLK

Z1853

ERRSTP

EEBrT
FORDTY
FRSWAT
FWDCHK

GETRED

LSTDRV

0054

G N P A T f]

2' 6 2 6

LSTTBL

1@45

GNPTRS

3461

MCOM0B

07®3

IDCON

Z] © 4 2

MIN4

i®753

JOT

684®
3834

MIN6®

2)754

IRECD

MOFPPO

2}221

8235

ISZTST

322)4j

MOF.pal

JMRETU

3321

MOVDEX

1222

JMSKON

3352

MOVEB

354©

S®47

JMSLOC

3351

MSBITS

JMSTST

338g

MVDATA

12¢©

K©@02

Z1,2

NBIT8

352j©

K©®©3

2)125

NDOF-BD

1725

K®@'©7

Z12®

NDPTST

335B

NDTSKP

5©55

NEWDftv

2)®57

VZOVJt]

€@t@

C)t]03)t]

0,00

c]NJ0It]
W0t]33t]

90@.
T40O

IS0clltl

geb£

TC)vJt]

£9®C

Z0v3t]

@Tc

M]0|S|

£®&

|8||S|

f bat

Elow00W

£flf a

£€qg
9zT£
€£t
TbT£
2TT8

yl8|S|
J^VS„
,£££tl
^2444H
0444H

PT90H

gTTE

®¢£gy

2zT@

S|||Vtl
9|JJvtl

T£Tg

t]JBNVu

££9

x]c]Nva

O@zO

N]9Nvtl

Zgfl@

BNNVE

TS£O

HV^Nvtl
13SNvt]

Zgf a
OogT

00|J8t]
Ed]Svd
dt]]uvt]

ZOO
T4SZ
8ZSZ

ZOMJ8d

3gT0

ONJn8d

©OT@

£TTE
94SZ

I:3:88

E:8E

£,gfl

8t]30Clt]

££Oz

00W00d

OCOZ

VIY00d

®8,8

0JS0d

gE9T

8Vldt]

¢£¢.

^|OVJt]

OO,a
Z£Sz
9£€z

OOIC)Vt]

SII8Sw

£,8@

J.SldoN
0t]J00N
81ISN
vlvc]^w

0€££
S2£T
ggg£
g¢Zt

dHSJ.ON

£€Z'£

^tloM3N

£€g@

9lJSvd
xi8wnN

TSTg
44gE

N30J.Vd

0¢9¢

TXJ0Id
t]|N0Id

fbT£
Z,Tf

|81Id
|81t]Id
zx30Id

S,T£
sT£
Tf

st]J.Nd

TO££

IEIIS0d
NIIS0d

£,gT
Tsog

aNvt]d
TNvdd

£,££
9o££

xl8Jt'd

99T%

ONJ.Sid
N303t]d

90£
£,£e!

SNIsld

b¢T£

WH00Vt]

2t€2

s££
91:TZ
4ZT2j

£€££

©@£Z

X£9££H
g94£H
@®44X

g£Tf x

g£OEX

9bT¢,

9£©£H

4,T¢

08219W

OSTg

ggo£H

zT©

444£X

£,T@

ggg,y

TZTz.
f gT@

ZbTg

I,TB

@,T%

T@£Zy

O9Zy

9Tx
©gBTy

,B9gH

,I?ax

9zTg

££T¢
9£T¢
¢42,
T£Z¢

ZTZ@W

©,2l©H

I:T¢

@€Doy

@gT@

££8gw
B£©gy

£T¢
f zT4'

B0Tgx

g£T@

9?Tgx

b!SZ

g£"tH

£TTa

gs"H

T¢£z

8fl8©X

£1;I:E

n`1]dwr

Tz££

NioHSwr

2€££

+SIS`Wr
O'Olswr

©¢££
T€££

2gggH

Z£T@

£808w
foggw

92T¢
£2Tg

©T0gH

Z£T@

Ozogw

££Tg

g£@©H

91:T®

££©Ow

TTT¢

dJ.VdN9

9797

SdldN9

T9¢£

Z9NIW

N000I

2,fie

Otlc]Jow

TzZ¢

101

®¢®9

TddJow

€£2¢

X]0^OW

22ZT

8J^Ow

gbsf

,rvlw

fc£?

bc42

003tjl

£©£

1''SIZS|

@¢2£

2£©
fp,GT

2j¢22

££ZZ

9,0@

4s,,
£z,,

Z£,,
40TC

S3|ItlM
ONION

00W00M

tlt]J00M

00|OM
|NIJVM
IIIVM

ONnJNn

|IdM^|
|VoM^|
||VM^1
1X3J.^|
H0t]S^J-

OVJd^|
|Vclt]^|

||Vd^1
X]Ld^L
N00d^|
3^OW^|

VJ.VO^1

I,,

t]IC]^|

a,gb

OMJ^|
^80^1

9BTB
g¢,b
99£b
££€b
TTg,

I00W^|

My9^1

4,£b

t]VHO^L

O£Z,

|N00^|

2£2,

t]^00^|

Bf b

ls10V1

Zszf

J.N0c]VI

9€Tg

Zdw]L
,:dw]J.

Tb££

Zb££

£dwJI

£'££

t]L03tll
£dwJL
,dw3J.

S,££
££

||V^1
tJOISX|

£@£,
0z£,
££Zz

NdvIUS

S£9£

ICIWOMS

£Z2Z

CI0WOMS

2TZZ

|IH0t]S

SSZ'g

H|8Jt]S
S123t]S
1N00t]S
00W0tls
^|H0gs

Z&{£
9Z££
£99£
£€££
€bT2!

t]t]JHt]S

©¢©,

t]v^|as
Nvt]|JS
NJ3|JS

T9©T
99gz
9,©T

X011JS

T£T£

a]H3tls

s€Tp

gTTb

SNOX]S

wnN^vs

®££T

03Jd8S

g£Tf

H0t]VJs

Z'@9£

EZ£¢

8££@
££b£

^EOWVS

9|JOSH
Tt]CIJstl

VI-vtl8cl-8o-J]aNlvw

S`.

MAINDEC-08-D3RA-LA

TEMP5
TPECTR
TXST0B

REREAD

BEPEDA

RESETD

3345
2277

4320

RETJMP
RETUJM

TYALL

45i03

TYBKW

REVCHK

TYCHAR

4547
423B

TYCONT

4272

TYCOVR

43D4

0©56

TYDATA

4474

3222
3236

TYDIB

454@

TYDRV

R.P A T 0

D7DO

TYFWD

RSFDRV`

5417
3435

TYMODE

TYMOVE

4511
4557
4565
4400

8350

TYPCON

f] 1 8 6

@325

TYPTEX

SAVNUM

1570

TYRALL

§ a F] E C D

313@

TYRDAT

S E A F} C H

3600
411
1

TYREAD

0187
4432
4423
4457
4411
4200
4450
4441
4465

F] E W C K

R E W D Fi V

REW I ND

ROTITS
ROT2TS

RSFDRI
RSGFLC
S A M D F} V

SEKON§

§ELCEN
SELRAN

TYSRCH
TYTEXT
TYWALL

SELVAR

TYWDAT

SETIDX

TYWBIT

SRCHER

UNFUNC

@046

SBCHIT

WAITI

0066

3gao

SRCHTY

WATINT

SRCMOD

WCLOC

%@43

S F3 C 0 N T

WDCERB

§RE=TS

WDCMOD

2253
22

SRFBLK

WDINC

SRHEBB

WRITES

SPTARN

WRITEI

SWCMDL

WRTDTY

SWCMOD

W F3 T 1 A

TADTST

W S T E F( R

TAPONT

WTCNTR

TEMPI

WTKONI

TEMP2

WTKON2

TEMPS
TEMPO

SltlvH J M0lj

a-vtl8a-8o-3]aNlvw

r¢

MAINDEC-08-D3RA-D

a-vtlca-80-3]aNlvw

MAINDEC-08-D3RA-D

iiiiE

`1J)

a-vtlga-8o-3]aNIVW

I,in
£

--.--`-------.---+-,.---,----.--

`'- +-±-_ - - -_ +-