Digital PDFs

MAINDEC-15-D3BB-D

February 1971

110 pages

Original

3.2MB

Document:	TC02 Basic Exerciser
Order Number:	MAINDEC-15-D3BB-D
Revision:
Pages:	110
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-D3BB-D_TC02_Basic_Exerciser_Feb71.pdf

OCR Text

?J)P-/fS
"!)tf' C TA P &

IDENTIFICATION
PRODUCT CODE:

¥AINDEC-15-D3BB-C(D)

PRODUC'l' NAME:

TC02 BASIC EXERCISER

DATE CREATED:

FEBRUARY 5, 1971

MAINTAINER:

DIAGNOSTIC GROUP

ABSTRACT
The TC02 Basic Exerciser is a series ci test programs that may be used to gain
a high degree of confidence in the data handling abi lity of a TC02 DECtape
control and any configuration ci 1 to 8 TU55 DECtape transports.
The Basic Exerciser consists of several basic routines that may be individually
selected. Each routine, with the exception of the instruction test, will operate
on either any drive or any configuration of 1 to 8 drives.
The Scope Loops wi II operate on any drive, but only use the lowest drive selected
or Drive 8 if it is selected.
These routines include:
Basic Motion or Move Scope Loop
Search Scope Loop

Read Data -S cope Loop
Write Data Scope Loop
Search Find All Blocks Test
Basic Write/Read Data Test
Parity Generation and Checking Test
Search Routine 2 (Read 256 Block Numbers and Compare or Print)
Start/Stop/Turnaround Test

REQUIREMENTS

2.1

Egui pment
PDP-15 (S tan da rd)
TC02 DECtape Control
1 to 8 TU55 DECtape Transports
API (Optional)

-1-

2.2

Storage
Basic Exerciser - Part 1 occupies most of memory from address 0000 to 4700 and
utilizes three buffer areas as follows:
Address

Function

06400 to 06777
07000 to 07377
07400 to 0777

Output Buffer Area
Input Buffer 1
Input Buffer 2

Note: Buffer addresses are relative to the extend memory
bank specified for data break.

2.3

Preliminary Programs
None

LOADING PROCEDURE
Place the ABS Binary tape in the Paper Tape Reader (high speed, if available).
Set the ADDRESS switches to 17700.
Set BANK MODE switch to 1.
Depress I/O RESET
Press READ IN

STARTING PROCEDURE

4. 1

Control Switch Settings
Any configuration of 1 to 8 drives may be selected in SWITCH REGISTER Bits 0 to 7.
Each bit is a master bit for selection of a drive. When the switch is a 1, the drive
is selected; when a 0, the drive is not selected.
Switch

Drive

8
1
2

1
2

-2-

4.1

Control SWitch Settings
Drive
-34
5
6
7

SWitch

-34
5
6
7
AC switch 12 = 0
AC switch 12 = 1

indicates do not utilize API
irrlicates utilize API
'

'!he particular routine to be used is selected by placing the nunber
of the routine in SWI'lCH RmISTER bits 14 to 17.
SWS 14 to 17

Routine

Read Par~aph

Move sccpe Locp

7.1

Search Scq>e Locp

7.2

E'F

Read Data S<:"q>e !.c>qJ

7.3

··F·-F:'··-)·-'-··~l-I·i'=f."· /

write Data Sc~ I£>op

7.4

/{/(JP;

Search Find All Blocks

7.5

WritejRead Data Test

7.6

Pari ty Generation 'lest

7.7

Basic Search Routine 2

7.8

Start/St:q;>,!Turnaround Test

7.9

t--

4.2

Starting hXh:ess
'!he Basic Exerciser starts at address 200.

-3-

7)
l,./

4.3

Program mi/or cpgator Action

Set the ADDRFSS SWI'lOHF.S to 0200.

Set the SWI'lCH ROOISTER to:
(1)

Select drives. (&WO to SWl = is invalid)
Master bit selectioo in switches 0 to 7 per paragraph 4.1.

(2)

Select Test lbltine to be rml. Place the test nUIl'ber to be run
in switches 14 through 17 per paragraph 4.1. (Also, :read the test
routine descriptioo if you haven I t already dale so.)

(3)

Select API opticn.
9.dtch 12=0 N) API SWitch 12=1 API

Press I/O RESET.

Press STAR!'.

'!be processor halts at idiress 240.

Ieset the SWITCH REX;ISTER ro 000000 or as desired for the particular test
am per paragraphs 5.1, 5.1.1, and 5.1.2.

Press OONTINUE.

5. •

OPERATING PR.O::EOORE

5.1

cperaticnal SWitdl Setting (Standard)
&WO - 1 is delete all typealts
SWl = 1 is delete error halts

SW2 = 1 is type ally first 4 Data Catpare errors

SW3,4, arrl 5 indicate the extended menDJ:y bank to use for data breaks in
routines 1, 2, 3, and 5.
Read each of the individual test descriptialS to detenn:i.ne !if any other switch

settings apply to that particular routine.

-4-

5. 1 .1

Test Routines and Applicable RUN Switches
Test Routine

Switches

o MOVE SCOPE LOOP

SWO to SW17 = 0

Change direction at end zones

SWO to SW17 ~ 0

Move tape in current direction
ei ther unti I end zone or for
approximately 18 ms for each
switch increment - change
direction at end zones or when
switches = increment count.

Switches 3 and 4 .

Se lect memory bank for search
data break.

Switches 5 to 17
=0

Turn around at end zones.

Switches 5 to 17
~ 0

Move tape in current direction
unti I end zone or for 36 ms for
each increment of switches turn
around at end zone or when
switches = increment count.

2 READ SCOPE LOOP

Switches 3 and 4

Specify memory bank for READ DATA
data breaks.

3 WRITE SCOPE LOOP

Switches 3 and 4

Specify memory bank for WRITE DATA
do ta bre oks.

Switches 15 to 17

Select data pattern 0 to 7. (See
paragraph 5. '.2.)

Switch 0 = 1

Delete all typeouts.

Switch 1 = 1

Delete error halts.

Switch 0 = 1

Delete all typeouts.

Switch 1 = 1

Delete error halts.

Switch 2 = 1

Only type first 4 data errors.

Switches 3 and 4

Select memory bank for data
breaks.

1 SEARCH SCOPE LOOP

4 SEARCH FIND ALL
BLOCKS

5 WRITE/READ DATA
TEST

-5-

5.1.1

Test Routines and Applicable RUN Switches Cont.
Test Routine

Switches

5 WRITE/READ OAT A
TEST (Cont.)

Switch 8 = 1

Halt at end of WRITE pass or at
end of READ pass. (Could be
used for Data Compatability Rotate reels of tape at HALT Press CONTINUE).

Switch 9

Ignore PARITY, DATA and WC
ERRORS. (To be used as an aid
to scoping.)

Switch 10 = 0

Take next pattern to be exercised
from SWS 15, 16, 17.

Switch 10 = 1

Exercise patterns sequentially
(after last block on tape has been
written backwards).

Switch 11 = 1

Read Data only. (SW11 overrides
SW12) (Can also be used with
switch 8 for Data Compatiblity
to make sure each reel is readable
on all drives.)

Switch 12 = 1

Write Data only. (Overridden by
SW11.)

Switch 13 = 1

Exercise WRITE/READ SEQUENCE 1
block at a time. (If DECtape
wi II run error-free in the 1 BLOCK
MODE but not 16 BLOCKS or
length of tape MODES the problem
would appear to be in synchronizing
between blocks in write or read data) •
(SW13 overrides SW14.)

Switch 14 = 1

Exercise WRITE/READ SEQUENCE
16 blocks at a time. (Overridden
by SW13 = 1.)

-6-

Usage

5.1.1

Test Routines and Applicable RUN Switches Cont.
Test Routine

6 PARITY TEST

Switches

Usage

Switches 13 & 14
=0

Exercise WRITE/READ SEQUENCE
length of tape.

Switches 15, 16, &
17

Select DATA PATTERNS 0 to 7.
(See paragraph 5.1 .2.)

Switch 0 = 1

Delete all typeouts.

Switch 1 = 1

Delete error halts.

Switch 8 = 1

Halt at end of each step (1 to 6)
in the Parity Test.
a. Could be used to prepare tapes
so that all reverse checksums are
ina known state (00) for some
other test routine. (Start parity
test with SW8 = 1 when HALT is
executed all reverse checksums
= 00.)
b. Could be used in conjunction
with SW12 for a drive compatibility
test.

Switch 12 = 1

Repeat Current Parity Test Pass.

7 BASIC SEARCH

NONE

Switch 0 will still delete all
typeouts, but the on I y reason to
run this routine is to get the typeouts.

10 START stop
TURNAROUND

Switch 0 = I

Delete all typeouts.

Switch 1 = 1

Delete error halts.

Switch 12 = 1

Repeat START FORWARD/STOP twice.
(Only exercise every 6th block the
Iength of tape.)

-7-

5.1.2

Pattern Selection Switches 15, 16, and 17
Data patterns for the Write Data Scope Loop and Write/Read Data Tests are
selectable via AC Switches 15, 16, and 17. The patterns that may be selected
are as follows:
Pattern

Description
All zeros pattern. (All ones when read in
direction opposite written.)
All ones pattern. (All zeros when read in
direction opposite written.)

A word of zeros followed by a word of ones
followed by a word of zeros.

Words of 252525.

Words of 525252.

Words of 070707 •

Words of 707070.

Words of 252525 alternate with 525252.
The first word out is 252525 and the kist word
is 525252. When read in the direction opposite
written, the first word is 525252.

5.2

Subroutine Aspects

5.2.1

Search Subroutine
The search subroutine is a CClmmon subroutine used by several of the test routines
and operates in the following manner:
a.

Symbolic location RECORD (address 0641) contains the block number that the
test routine wants the s~arch subroutine to find.

Symbolic location DIRFLG (address 0640) indicates the direction that the
block should be found in. If the contents of DIRFLG is all zeros, the block
should be found in the forward direction. If the contents of DIRFLG is all
ones the block will be found in the backward direction.

-8-

5.2.1

5.3

Search Subroutine Cont.
c.

The search subroutine always starts its initial search in the direction opposite
the direction indicated by DIRFLG (i .e., DIRFLG = 0 for forward, start
search backward). Therefore, this search subroutine wi II always make one
tum around before finding the block.

Turnaround is not made until the tape is at least two block numbers past the
block wanted (i .e ~, block wanted forward is 0005 - turnaround is made at
block 0003 going backwards).

Program and/or Operator Action
This series of routines is designed for initial checkout of a TC02 DECtape Control
and its associated drives, or maintenance and repair of the control and drives
after installation.
The following procedure could be used for initial checkout of the control and drives
and can be followed to repair malfunctions once the control and drives have been
operating.

5.3.1

Operation Check
The first routine uti lized is the TC02 Instruction Test (in Part 2). It is used to
verify control operations (see Part 2 for operating instructions).
Upon completing the TC02 Instruction Test (Part 2), read in Part 1 (this part) and
proceed per procedure given below:

5.3.1 • 1

Tape Motion and Timing Pulse Generation
Put one drive on line and start the Basic Motion Routine with that drive SWITCH
REGISTER selected.
Set the ADDRESS switches to 000200.
Put a DEC tape on the drive to be run with the tape positioned close to the front
of tape (i.e., with approximately ten feet of tape on the right-hand reel).
Set the AC switch corresponding to the drive selected to 1, and all other switches to

O.
Press I/O RESET.

-9-

5.3.1.1

Tape Motion and Timing Pulse Generation Cont.
Press START.
The program will record in memory the drive and routine selection and HALT
at address 000240.
Set all AC switches to o.
Press CONTINUE.
The tape on the selected drive should start moving forward (off the left-hand
reel and onto the right-hand reel). A select error should not be generated and bit
4 eX status A should remain 1 unless end zone is reached and detected. CO
to C2 should appear to be counting, indicating timing pulse generation; US
(up to speed) should set to 1 within a short period after tape starts moving. The
DTF should not set.
Now press STOP.
Forward tape motion on the selected drive should be set and the right-hand reel
should be free with a small amount of torque holding the tape tight.
Now, set the AC switches to 00010008.
Press CONTINUE.
The tape on the selected drive should start moving forward again and after a
short period of time, the tape on the selected drive should start moving backwards (off the right-hand reel and onto the left). Status A bit 3 should be 1
(BKWD). All other indicator observations for forward should be true.
Now press STOP again.
Backward tape motion should stop. Bit 3 of status A should remain 1 and bit 4
should go to o. The right-hand drive brake should be set and the left-hand
reel should be free with only enough torque to hold the tape tight.

5.3.1.2

New U + M Delay
The new unit and motion delay can be generated by anyone of several short
programs, but its operation must be monitored with an oscilloscope. Since the
delay time could change at a later date (for some currently unknown reason),
the time will not be mentioned here; but it can be determined from the TC02
logic diagrams. An example of a program that could be used is:

-10-

5.3.1.2

New U + M Delay Cont.
Manually move the tape until approximately an even amount of tape is
on both reels.
Start the Basic Motion Routine (Test Routine 0) as described in Paragraph
5.3.1.1.
Instead of setting all AC switches to 0 at the first HALT, set the switches to
000208.
Press CONTINUE.
The tape will rock from FWD, BKWD, FWC,· etc.
Every time tape direction changes, the NEW U + M Delay should fire.

5.3.1 .3

END ZONE Detection
The tape motion portion of the TC02 instruction test (Part 2) verifies that EN D
ZONE is detected and that END generates ERR STOP and clears MOTION
(status A, bit 4) and the BMR 1 (Buffered Motion Bit 1).
The program can be used to determine if the end zone is being detected by
starting the program and watching whether or not the tape runs off the reel.
Also watch the end bit in the error status. If the END indicator lights and the tape
does not stop, error stop in the control is not being generated and possibly END
status does not read to the AC on a DTRB. In either case, return the tape to
the reel a short distance from the start of the reel (less than 10 feet of tape
on right-hand reel) and use the Basic Motion program to scope the END ZONE
detection by setting the AC switches to 00020 to rock tape in the END ZONE
area.

5.3.2

Search Operations
For the next sequence of operations, any of the three search routines could be
used; but the Search Scope Loop (Test Routine t) is the most practical and least
complicated. When the routine is initiated, the tape starts forward until the
END ZONE is detected and then runs backward until END ZONE is again
detected and then forward again.

If the tape runs off the reel, either the END ZONE was not detected or bit 2
of status B (EN D) did not read to the processor accumulator during a Read
Status BlOT. As the tape is moving forward, make the following observations:
CO to C2 should appear to be incrementing, indicating timing pulses are
being generated.
-11-

5.3.2

Search Operations Cont.
US (up to speed) should indicate 1 shortly after the tape starts moving and
should stay on.
The STATE REGISTER should circulate and appear to remain mainly in
state data.
The DEC tape flag indicator should glow visibly, dim, and glow again as
the tape moves forward (the program does not monitor DTF but simply
waits in an ISZ loop and periodically monitors END and MOTION).
No error status should be generated except END ZONE.
The processor accumulator should appear to be incrementing by 1 as
each successive block number is read from tape and displayed.
The timing in the control should be monitored with an osci Iloscope with
reference to the DECtape TC02 timing diagrams.
With the DECtape searching backward, the same observations may be made
as forward except the processor accumulator should appear to decrement.

5.3.3

Correct Block Number
At this point it is suggested that the Search Find All Blocks Routine (Test Routine 4)
be used to prove that the control wi II correctly read block numbers. The Basic
Search Routine (Test Routine 7) may be used to gain more information if Routine 1
will not run without error typeouts.

5.3.4

Check Read Data Timing
The next step should be to verify the Read Data Timing with an osci Iloscope
utilizing the Read Scope Loop {Test Routine 2) and the TC02 timing diagrams.
Also, the TC02 instruction test (part 2) checks the Read Data Timing, that data
breaks occur at the right times and the DECtape flag sets at State check going
to O.

-12-

5.3.5

Check Write Data Timing
Next, the Write Scope Loop (Test Routine 3) may be run and the Write Data
Timing verified. This routine changes to Search Between Blocks as an effort
to keep from writing over block numbers. (Recheck the tape with Routines
4 or 7 to verify this.) Also, the TC02 instruction test times Write Dota data
breaks to insure that they occur within. the data area of tape and that the
DEC tape flag sets at the point State Check goes to 0.

5.3.6

Visual Check of Data Buffer, RWB, and LPB Util izing the Write Scope Loop
The different data patterns may be utilized visually as follows, W (WREN)
should indicate 1 for all patterns).

Pattern 0
(aliOs)

Data Buffer bit indicators 6, 7, and 8 and 12, 13, and 14
should glow dimly and the rest of the Data Buffer should
appear to be Os.
RWB bits 3, 4, and 5 should appear to remain Os.
RWB bits 0, 1, and 2 should be complementing and should
glow fairly brightly but not soli dl y.
The LPB should complement every six bits and will glow dimly.

Pattern 1
(all ls)

Data Buffer bits 6, 7, and 8 and 12, 13, and 14 should glow
dim Iy and the rest of the Data Buffer should appear to be
steady 1s.
RWB bits 3, 4, and 5 should appear to remain steady ls;
bits 0, 1, and 2 should complement and glow fairly brightly
but not sol idly.
The LPB contents are not predictable but the rate of change should
be fairly slow and discernible. (The LPB only complements on
Os and wi II contain the complement of the reverse checksum
of the block it is passing over.)

-13-

5.3.6

Visual Check of Data Buffer, RWB, and LPB Utilizing the Write Scope Loop Cont.
Pattern 2
All bits in the Data Buffer, RWB and LPB should glow dimly.
(alternate words
of Os and Is)

Pattern 3

5.3.7

(252525)

The even numbered bits of the buffers should act as a pattern 0
and the odd numbered bi ts as pattern 1 •

Pattern 4
(525252)

The even numbered bits of the buffers should act as pattern 1
and the odd numbered bits as pattern O.

Pattern 5
(070707)

The right-most three bits (of each six bits) should appear as
pattern 1 and the left-most as pattern O.

Pattern 6
(707070)

The left-most three bits (of each six bits) should appear as
pattern 1 and the right-most as pattern o.

Pattern 7
(252525
alternate with
525252)

Should appear as pattern 2. No steady states discernible in
the buffers.

Prepare Tape for Read
The Write Scope loop may now be used to prepare a tape for the Read Scope Loop
and for a further visual verification. Patterns 3, 4, 5, and 6 appearing in
the BUFFER(s) indicators should read the same in either direction.
Note that the DATA BUFFER bits 6, 7, 8, and 12, 13, and 14 appear to be in a
steady state and not to complement. Patterns 0 and 1 should be complemented
when read in the direction opposite that in which they were written. No steady
states should be discernible with patterns 2 and 7.

5.3.8

Check Correct Data
Run the Write/Read Data Test (Test Routine 5) to verify that data is correctly
read and written. Utilize the different switch configurations for a complete
test or scope loop that reads or writes. This routine does not change to search
between blocks, thus the possibility that block numbers may be written over is
greater than that of the Write Data Scope loop.

-14-

5.3.9

Check Checksum Generation
The Parity Generation Test (Test Routine 6) verifies that checksums are being
generated properly and that partiy errors will be detected if they occur.

5.3.10

Check Turnaround Function
Run the Start/Stop/Turnaround Test (Test Routine 10). All of the other routines
are designed to eliminate the possibility of a turnaround error, but this routine
tests this function to a much tighter limit.

5.3.11

Check API Option
Run test routine "API Test" (Part 2) to verify that the API works in a static
condition. Then read in this program (Part 1) and run routines 4, 5, 6, and 7
with the API option selected (SW12 = 1 at start from 00200).

ERRORS
Almost all hardware malfunctions detected by the program result in an error
message typed on the Teletype. Each error message includes drive number,
operation, direction, mode, error status, block being operated on, and correct
and incorrect data, if app Ii cabl e •

6.1

Error Typeout Descriptions

6.1.1

Search Error Typeouts
The Search Error Typeouts are in several formats. The Search Routine used by
the Parity Test and Write/Read Test uses the following format:
DRIVE X
SEARCH FWD (or BKWO)
XXXXXX BLOCK WANTED FWD (or BKWD)
XXXXXX BLOCK FOUND
XXXXXX LAST BLOCK (if BLOCKS
READ ~002)

(A)
(B)
(C)
(D)
(E)

XXXXXX BLOCKS READ
XXXXXX STAT B XXXXXXIORS

(F)
(G)

-15-

6.1.1

Search Error Typeouts Cont.
a.

This will be the first line of every typeout. Drive X is the drive that was
being operated at the time of the error.

The second line of every typeout indicates the DECtape function, direction,
and mode. (Typeout will be C MODE for continuous mode.)

This is the block number that the search routine should find as an end result
and the directlon in line B is the same as the direction in line C, the turnaround for finding the block has already been made. If the two directions
are different, the error occurred before turnaround.

This is the contents of symbolic register BLKFND and could indicate one of
the following:
1.

Should be ignored if BLOCKS READ = 000000 and the directions in
lines Band C disagree. It could indicate the turnaround block, if the
directions are the same and BLOCKS READ = 000000.

That the DECtape did not turn around in one PDP-9 block length,
if BLOCKS READ = 000001, STAT B = 000100, and the directions
i ndi cated are the same.

The BLOCK in error, if BLOCKS READ does not = 000000 and
STAT B is an error status (i.e., 600000 MARK TRACK ERROR)
other than END ZONE (500000).

This line of the typeout is included only if two or more block numbers have
been received since the search operation was started, or since the direction
bit in Status A was complemented for turnaround. Examine STAT B and if
it does not equal 000100 ignore this line. If STAT B does = 000100, LAST
BLOCK compared against BLOCK FaUN D will indicate that the last two
block numbers were not sequential or, that laRS Bit 10 is a O.

The number of block numbers received since the search operation was initiated
or since turnaround.

This is the DECtape Status B register and the laRS status, if STAT B does not
= 000100, or if bit 10 of IORS does not = 1, this is the error condition that
caused the typeout. If STAT B equals 500000 (end-zone interrupt), and the
directions in lines Band C are the same, it should mean that the drive made
one turnaround and went the length of the tape without finding any blocks.
An end-zone error before turnaround indicates that at least one block number
had been read, and that the block wanted was two or more blocks from
end zone in the direction opposite the search (i.e., BLOCK 2 WANTED
FWD or BLOCK 1075 WANTED BKWD).

-16-

6.1.1

Search Error Typeouts Cont.
The Start/Stop Turnaround Test adds one line to the format for search error
typeouts and indicates the last valid tape position and the direction
tape was moving at the completion of the last successful operation on that
drive.

DRIVE 7
SEARCH FWD
000005 BLOCK WANTED FWD
000005 BLOC K FaUN D
000003 BLOCK RD LAST
000003 BLOCKS READ
000100 STAT B 000200 laRS

This typeout would indicate that two
block numbers in a row were read that
were not sequential (last block was 3
and the next block read was 5 skipping
block 4). The last valid tape position
before Start Up the tape had been stopped
at Block 0 going FWD.

000000 FWD LAST pas

DRIVE 7
SEARCH FWD
000005 BLOCK WANTED FWD
000006 BLOCK FOUND
000001 BLOCKS READ
000100 STAT B 000200 laRS
000004 BKWD LAST pas

In this case, notice that the difference between BLOCK and LAST POSITION is
1 and that the operations were in opposite directions. This indi cates a turnaround
error. If these lines differ by more than 1, the error would have been on a
start-up.
DRIVE 8
SEARCH FWD
001077 BLOCK WANTED BKWD
000773 BLOCK FOUND
000000 BLOCKS READ
600000 STAT B 000200 laRS

6.1.2

This typeout indicates a Mark-Track error
(600000 Stat B). Block Found should be

Read Data Status Error Typeouts
The first three lines of the read-data typeouts are in the same format as the search
typeouts. The first two lines contain drive number, operation and direction, and
the third line is the block being operated on and for Test 5 the direction the block
was written. Again, depending upon which test routine is being run, one of several
typeouts could occur.

-17-

6.1.2

Read Data Status Error Typeouts Cont.
DRIVE 1
READ DATA FWD
000046 BLOCK WRITTEN FWD
420100 STAT B 000200 IORS

This typeout indicates a Parity Error was
detected reading Block 46 in the Forward
direction

Note: If any Data Errors in the block, this typeout will be followed by
a Data Error typeout (see Paragraph 6. 1.5) •

DRIVE 2
READ DATA BKWD
000100 BLOCK
777757 DATA
4201000 STAT B 000200 IORS

(This typeout is used by the Parity
Generation Test. The Data line of
of this typeout indicates the data pattern
written to test parity. In this case, the
reverse checksum is 20; (CHECKSUM going
forward was 75). The LPB at the end of a
block in read data should always be 77 for
normal operation).

DRIVE 2
READ DATA FWD
000100 BLOCK PARITY ERROR EXP
020000 DATA
000100 STAT B 000200 I~S

(This typeout is also used by the Parity
Generation Test and could follow the
one above. The typeout indi cates that a
parity error should have been generated,
but was not received. Again, the Data
line of the typeout indicates the data
pattern written to test the parity circuitry.
Notice the complement obverse relationship
between the two data typeouts. In this case,
the CHECKSUM has been rewritten to 02
in WRITE ALL, it was 75 after 00 after reading the
block. READ DATA and STATE CHECK going
to 0 and 1 PB not equal to 77 is 1 to PARITY
ERROR. See paragraph 7.7 for a complete
description of the parity test.)

DRIVE 8
READ DATA FWD
000001 BLOCK
777400 WC
000100 STAT B 00020010RS
In the read data typeouts, the contents ci the word count register (address 30) are
included only if the we did not go to O. Or, if the DEC tape status B was normal
(000100) and the WC did not go to 0, the above typeout would occur.

-18-

6.1.3

Checksum Error Typeouts
The Parity Generation Te st writes various data patterns in the first and second
characters of each block. Since the reverse checksum is written to 00, the
checksum generated by the TC02 should either be the complement of the first
character in the block or if the first two characters are written should equal 77.
The following typeouts could occur if the parity generation is failing.

6.1.4

DRIVE 4
READ ALL FWD
CKSUM ERR
000200 BLOCK
040000 DATA
730000 DATA CKSUM EXP
770000 CKSUM READ

(First word of block as read from tape.)
(What the contents of the Checksum should be.)
{Checksum from tape as Read-In Read-All.}

DRIVE 6
READ ALL FWD
CKSUM ERR
000020 BLOC K
757500 DATA
770000 DATA C KSUM EX P
750000 CKSUM READ

(F irst Data word of block as read from tape.)
(What the contents of the Checksum should be.)
(Checksum from tape as Read-In Read-All)

Write Data Status Error Typeouts
Write data error typeouts also include drive, operation, and direction, block being
operated on, and the error status.
DRIVE 6
WRITE DATA FWD
000765 BLOCK
777715 WC
600000 STAT B 000200 laRS

(This typeout indicates a mark-track error
while doing a Write Data Forward on block
0765. The we typeout indicates that the
error occurred with 63 8 words left to be
written .)

DRIVE 7
WRITE DATA BKWD
000005 BLOCK
7777400 WC
000100 STAT B 000200IORS

(If STAT B indicates a normal block interrupt
(000100) and the we has not gone to 0, this
typeout occurs.)

-19-

6.1.5

Data Error Typeouts
A data error mayor may not follow a parity error typeout; it could also occur
without a parity error. Again, the first three lines ci the typeout are the same
as for search errors: drive, operation and direction, and block number (including
the direction that the block was written in.)
DRIVE 6
READ DATA FWD
000241 BLOCK WRITTEN FWD
252525 DATA WR 01400 ADRS
252527 DATA RD 014400 ADRS

(Data Written and its Memory location)
(Data Read and its Memory location)

525252 DATA WR 014001 ADRS
525256 DATA RD 014401 ADRS

PROGRAM DESCRIPTION

7. 1

Basic Motion or Move Scope loop (Routine 0)
This routine rm y be used as a visual verification of the tape motion operation of
the DECtape drives and some sections of the TC02 control. Initially, the routine
starts tape moving in the FWD direction and periodically monitors the tape motion
bit (Status A Bit 4) and the contents of the Accumulator Switches.
The program utilizes the DTLA lOT to load a MOVE FWD (on the lowest drive
selected) into the TC02 Status A register. Status A Bit 4 is then monitored, by the
program for approximately 17 ms using the DTRA lOT.
If the motion bit does not go to 0 during the 17 ms, the program reads the accumulator
switches. If the switches are all 0, the program then returns to the loop monitoring
the tape motion bi t • If the switches are not a" 0, the program ISZ·s a core memory
location and when this memory register is equal to the contents of the AC switches
or greater than the contents of the AC switches tape direction is reversed by the
program, using the DTXA lOT with AC bit 3 on a 1.

If Bit 4 of Status A goes to 0 during the 17 ms loop, Status B is read. If Bit 2 of
Status B is a 1, indicating End Zone, tape direction is reversed and tape motion
is set to a 1 by a DTXA lOT with AC Bits 3 and 4 on a 1. If Bit 2 of Status B is a
0, tape motion is set to a 1 by a DTXA lOT with AC Bit 4 on a 1 and tape direction
is not reversed.

-20-

7.2

Search Scope Loop (Test Routine 1)
This routine starts forward in search function and reverses direction at End Zones.
The DECtape flag and all error status except end zone are ignored. The program
starts forward in search and displays the last block number received in the AC
while doing a series of lOT NOPls for approximately 36 ms. At completion of
the lOT NOP loop, the program tests for end-zone status and complements the
direction bit if end zone was reached. If end zone was not reached, search
enables are reset and the motion bit in Status A is set to a 1 if it was cleared.
This scope loop also monitors AC switches 5 to 17 and if they are not equal to 0,
the program will increment a memory location and will couse the tope to search
in the opposite direction if the contents of the memory equals or is greater than the
switches.
The DECtape 10TIs used are DTCA, DTRA, DTXA, and DTRB.
While the tape is moving backward, the AC should appear to increment and while
tope is moving backward, the AC should appear to decrement.
AC switches 3 and 4 may be used to specify on extended memory bank and if
they are not both equal to 0, the respective memory bank will be used for reading
block numbers into.

7.3

Read Scope Loop (Test Routine 2)
This routine storts forward in read data and sets up to read in 256-word blocks.
When end zone is reached the tape is run backwards in read data. For any other
error, the tope continues in read data in the same direction. Each time an end
zone is reached, tape direction is reversed.
AC switches 3 and 4 may be used to specify on extended memory bank to read data
into. None of the other AC switches are pertinent.
The DECtape 10TIs exercised are DTLA, DTDF, DTEF, DTRA, DTXA, and DTRB.
Unlike the MOve and SEARCH Scope Loops, this routine uses the SKIP 10TIs to
monitor flogs.

7.4

Write Data Scope Loop (Test Routine 3)
This routine starts forward in search. When a block number is found, the program
changes to write data for one block, then bock to search (picking up the next
block in sequence) and then to write data again. The program continues in that
mode until end zone. Upon reaching end zone the tape is started backwards in

-21-

7.4

Write Scope Loop (Test Routine 3) Cont.
search and is again changed to write data when a block is
found. Each time an end zone interrupt is received, the
tape direction is reversed. For any other error status,
the function is reset to search and tape direction is not
reversed. Any of the eight data patterns in the Write/Read
Data Test may be selected by placing the pattern number in
switches 15, 16, 17. See paragraph 7.6. The routine has
to be restarted from 200 to change pattern or extended
memory selections.
AC switches 3 and 4 may be used to select on extended memory
bank for pattern generation and to output patterns from.
The DECtape rOT's exercised are DTLA, DTRA, DTXA, DTDF, DTEF,
and DTRB.

7.5

Search Find All Blocks (Test Routine 4)
Before a program can verify that the DECtape system can write
correctly, it must prove that the system can write correctly,
it must prove that t.he system can read correctly. Sincea
DECtape with a, so-called, virgin tape pattern is not always
readily available and a DECtape with correctly written block
numbers is usually available, the first verification of read
operations must be a Search Test. Search Find All Blooks
moves the DECtape backward into the end zone, reads the tape
forward, and verifies that blocks are numbered 0000 to 1077;
then moves the tape into forward end zone, reverses the tape
and tests that blocks are numbered 1077 to 0000. Or, if
PDP-7 format tapes are specified (SW 13=1 at Start), the blocks
should be numbered 0000 to 1101 and 1101 to 0000.

7.6

Write/Read Data Test (Test Routine 5)
The search routines establish a minimum capability to read
known data from tape. This routine establishes the ability
to write data and further establishes the ability to read
data. The test includes eight selectable data patterns and
three selectable modes of operation. The basic sequence of
operation is write forward, read backward, read forward, read
backward. The sequence may be selected for 1 block at a time,
16 blocks at a time, or the lenght of tape. The program
recylces and runs until STOP is depressed. At the end of each
complete sequence (the length of tape), the program types out
the pattern number and END. The eight write patterns are as
follows:

o
1

2
3

4
5
6
7

000000
777777
000000, 777777, 000000 (alternate words of O's and l's)
252525
525252
070707
707070
252525, 525252, 252525 (alternate words of 25's and 52's)
- 22 -

7.6

Write/Read Data Test (Test Routine 5) Cont.
The pattern to be written is selected in SWITCH REGISTER
bit 15, 16, and 17. Place the number of the pattern
desired in these switches.
Switches 13 and 14 are used to select the sequence of
operation as follows:
SW13

SW14

Operation
Write and read sequence the length
of the tape.
Write and read sequence in 16 block
increments.
Write and read sequence one block at
a time.

1
SW1O=O

Take the next pattern to be exercised
from SWs 15, 16; and 17.

SW1O=1

Exercise sequentially through the
patterns; i.e., after one complete
sequence the length of tape with
pattern number 3, exercise pattern
number 4, after exercising 4 go to 5.
Patterns are not changed until block
1077 has been written backwards.

SW9=O

Type out parity error information and
data errors.

SW9=1

Ignore parity and data errors. Mark
track, timing, and select errors are
not ignored.

SW12=e

Sequence from write to read data

SW12=1

Write data only.

SWll=O

Sequence from read data to write data.

SWll=l

Read data only (SWll overrides SW12)

SW8=1

Stop at the WRITE PASS one direction
or, stop at the End of a READ PASS
both directions.

Switches 3 and 4 are monitored for extended memory selection
at the start of each new pattern selection and this selection
is held until that pattern has been exercised the length of
tape.
- 23 -

7.1

Parity Generation and Checking Test (Test Routine 6)
The complete test of parity generation and checking requires
several passes over a series of blocks. The steps that the
program takes for a complete test of the parity circuitry
are as follows:
STEP 1

Write reverse checksums to 0 (actually written to
77 going backward and should equal 00 going forward).

STEP 2

write data patterns. Various data patterns are
written in the first and second charcters of each
block and the rest of the block is written to zeros.
(Note: the checksums generated are either the
complement of the first character or 77a, if the first
two characters are written).

STEP 3

Read/Verify checksums. The checksums are read back
and verified to be the complement of the first
character in the block or 77, if the first two
characters of the block are non-zero.

STEP 4

Test no parity errors. The blocks are read in both
directions and no parity errors should be generated.

STEP 5

Write blocks to w~ong parity. The checksums are
written to be the same as the first characters in the
block so that theLPB will not equal 77 when the block
is read.

STEP 6

Test for parity errors. The blocks are read in both
directions and parity errors should be generated~

The program then repeats from step I and will run util STOP is
depressed.
If an error typeout is generated indicating PARITY ERROR EXPECTED,
the contents of the LPB can be determined by the following
procedure:
a.

The typeout includes the first data word of the block as
read forward or the last word of the block if read
backward (actually same word but complement obverse if
read backward).

This word will contain either one or two non-zero 6-bit
characters that do not equal 77 (BKWD).

If there is only one 6-bit character, the LPB should be all
O's at the time it is strobed for parity error. This is true
whether read occurred in a forward or backward- direction.

- 24 -

7.7

paritY'Gehra'tion:'and Che'ck~n9 Test (Test Routine 6) Cont.
d.

If the read direction is forward and there are two
non-zero characters in the first word, the LPB should
be equal to one of the characters at the time it is
strobed for parity error; i.e., WORD=020200, LPB=02.

If the read direction is backward and there are two
characters not equal to 77, the LPB should have equaled
the complement of one of the characters when it was
strobed for parity error; i.e., WORD=775757, LPB=20.
Two switches apply to the Parity Test, switch 8 and
switch 12.
SW8 = 1 is Halt at end of Each Pass
SW12 = 1 is Repeat Current Parity Test Pass

7.8

Basic Search Routine (Test Routine 7)
In this routine, the tape is searches in either direction
until a series of 256 block numbers are read and stored.
(Or until end zone is reached or some error status is
generated.} The decision is made to either type out all
of the block numbers or to have the program verify that
the block number read are sequential. When started the
program types:
DRIVE 8 (or which ever drive is selected)
TYPE IN F FOR FORWARD
ALL OTHERS BACKWARD
At this point, type in a "F" to search forward or any other
key to search backwards. The program will search in the
direction selected until an error status or end zone occurs,
or until 256 block numbers have been read and stored in
memory.
It then types:

xxx xxx
XXXXXX

STATB
BLOCKS

000200 IORS
READ

If an Error Status other
than DTF

To have the program verify that the block numbers are
sequential, type in a "C". Any other character typed in
causes the program to type out the complete series of block
numbers.
If a "C" is typed, tne program types out block
numbers that are no sequential. The program always types
the first and last block numbers read as follows:

xxxxxx
xxxxxx

FIRST
LAST

- 25 -

7.8

Basic Search Routine (Test Routine 7) Cont.
The following series to typeouts would occur if the Search
Direction was forward, 256 block numbers were read without
an Error Status and the second selection was to compare
block numbers:
DRIVE 7
TYPE IN F FOR FORWARD
ALL OTHERS BKWD F
TYPE IN C FOR COMPARE
ALL OTHERS PRINT C
000061
000460

FIRST
LAST

The folJ.owing series to typeouts could occur if the Search
Direction was backward and an END ZONE was detected while
searching and the selection was to PRINT:
DRIVE 7
TYPE IN F FOR FORWARD
ALL OTHERS BKWD 8
5000000 STAT B 000200 IORS
000016 BLOCKS READ
TYPE IN C FOR COMPARE
ALL OTHERS PRINT P
000015
000015
000005
7.9

FIRST
000014
000004

000013
000003

000012
000002

000011
000001

000010
000000

000007
LAST

000006

Start/Stop/Turnaround Test (Test Routine 10)
When the ability to correctly read block numbers has been
established, a more thorough test of the DEC tape motion controls
can be given. The Start/Stop/Turnaround Test verifies the
following operations:
TURNAROUND Both direction on BLOCK 0 BDWD then FWD/STOP
Start FORWARD/STOP
Start BACKWARD/STOP
Start FORWARD/Wait UP TO SPEED/Turnaround/STOP
Start BACKWARD/Wait UP TO SPEED/Turnaround/STOP
The sequence is repeated for the length of tape.
tested in both directions on block 1077.
- 26 -

Turnaround is

7.9

Start/Stop/Turnaround Test (Test Routine 10) CONT
Since the tape is up to full speed before turnaround, the
tape must be up to speed again by the time it returns to that
same point on the tape.
(This is a TUSS spec and should not
be confused with the programming spec. Normal search operations
should wait for 1 more block to pass before doing a turnaround.
The routine does each step of the operation for each drive
selected. After each "STOP" for the last drive selected and
before starting the next operation on the first drive, the
program times out 1/2 second. Normally, the sequence will
exercise all blocks equally the length of tape.
If AC SW12 is a 1 the program will repeat Start FORWARD/STOP
twice and every sixth block will be exercised the length of
tape.

27 -

~AGE

TC029X

TC0281
,TITLE TC02Bl
tABS

707541
707542
707544
107545
707561
7217562
7076211
021000
061000
060000
.. ~.f200"
005"0"
003",,0
0200""
04"0""
100100
O10801
020"""
",,0100
000400
77"'00
777400
0,,"031
""""31
0,,64"0
",,'00'
0103"fJ
",,6377

007400

ITC02 BASIC EXERCISER POp-1S .. PARTl
ITAPE: 1
IEQUATE: O£CTAPE lOT'S
OTCA-701541
OTRA-701542
OTXA-707544
OTL,A-OTCAlOTXA
OTEF'-707561
OTR8,,707562
OTOF'-707601
IEQUATE O[CTAPE rUNQTIONS (STAT A)
SRCHF'W121000
SRCHBWI61000
MOVBt<WI6""""
ROATA'I22000
WRALL,'0""
ROALL"30"0
IBIT CONSTANTS EQUATED
GOBITIZ""II
OIRBITI40"00
E!BIT.S."".e0
MOOEST.10'81
PARBITi20111
OTr81TI101
£NABLI140"
IABOUT 36 MSEC
BLKTIMIL.AW -3000
BLENT~'L.AW -480 1.2~6 rOR BLOCK WC 8400 OCTAL
IWORO COUNT
WCL.OC'~8
ICURRENT AOORE5S
CAL.OCI31
BU"EA.6.""
BU"R2.8U"ER·4fJfJ
INHCLA.:SfJfJ
BLKf"NO.BU"ER-1
BU"R3.8U"R2·.00
I

,EJECT

PAGE

1C029)(

T00291
I

00fJ20
O0020
00fJ21
OO022
O0023
12101124
121""25
00026
O0027

lIN CASE or CAL,
.L.OC 20
000020
700304
7003r?J1
741000
740040
700042
703344
620020

IORS .. 10
1<5"SKI'

HLT
ION
DBR

JMP. 20

.EJECT

TC02BX

TC0281
ISTARTING ADDRESS IS 200
ISET SW REG TO SE~ECT ORIVES 8IT~=DRIVE e S~l 15 DRV 1
ITO SW' IS DRIVE 7 IS~14

to SW17 SE~ECT TES~

,.0 IS MOVE TIMED TURN AROUND AC

sws~e

IS BOuNCE

1.1 IS SEARC~ SCOPE LOOP TIMED TURN .ROu~D
1-2 IS READ DAT. SCOPE LOOP BOUNCE O~~ E~

aF~

18~ IS WRITE DATA S90PE LOOP BOUNCE Off ft
1-4 IS SEARCH rIND ALL BLOCKS

1-'
IS WRITE AND REAAO DATA TEST
1-6 IS PARITV GENERATION TEST
,.7

IS READ 256 BLOCK NUMBERS AND COMPARE OR
1-10 IS START • STOP • TA

ISW12 - 1

PRI~T

THEM

IS USE API rOR INTERRUPT

IPATTERN SELECTION fOR 3 AND 5 IS
ISW1' TO SW11
180 ALL ZEROS 11 ALL ONES 82 ALT wORD 0 wORD 1
IS 252525 '4 IS 525252 .5 IS 070707
1.6 IS 70'010 ., IS 252525 525252

,.3

I
I

IOTHER swITCH CONTROLS TEST 5
ISWS • 10
IS 16 SLOCKS
ISWS • 20
O~ 30 IS 1 BLOCK
ISWS • 40
IS WRZTE ONLV
ISWS • 10e
OR 140-15 R[AD ONLV
ISWS I 200
IS SEQUENCE PATTERNS
ISWS • 1001 IS HALT A'T£R WRITE PASS OR READ PASS 80TH DIRECTIONS
ISWS • 411
IS DE~ETE ERROR CHECKING THAT OOES NOT STOP TAPE
ISWS 3,4 AND' NON e WILL USE EXTENDED MEMORy (4K AT A TIME)
181 • • BANK 0 -011 ~ BAN~ 1 -011 - BANK 2 ~0 11 • BANK 3
1118 , BANK 4 -101 ! BANK 5 .110 • BANK 6 "111 • BANK ,
ISWITCH CONTRO~ TEST 6
ISWS • 108e IS HA~T END or PASS
ISWS '41
IS REPEAT ~AST PASS
I
I

ISTANDARD
ISWITCH e IS CELETE A~~ TYPEOUTS
ISWITCH 1 IS DELETE ERROR HALT
ISWITCH 2 IS TVPE ONLY 4 OATA ERRoRS
.EJECT

PAGE

00200
1210200
1210201
1210202
00203
2102214
0020'
00206
00201
00210
00211
01212
00213
00214
00215
00216
00211
0022121
00221
00222
00223
00224
21122'
00226
el221
00230
01231
01232
01233
01234
0123'
01236
01237
IIJ4(1
0(1241
00242
01243
00244

TC02BX

151210214
50455'
7412121210
60021216
7400421
60020e1
040643
15001214
504556
:544551
740100
60021214
1501214
'04'56
344560
12148244
204561
040264
344562
04026'
204563
041213
150004
5,,4564
74020"
lrlJ134'

TClaB1
ISELECT TESTS SETUP tOR
IrlRST DRIVE 0 TO DRIVE TABLES
.LOC 2021
TCi2J2tS LAS
A~O (116eli2J2I
SlA
JMP ,.:5

ITEST NU~8ER TO ~lG~
lOR If Ac c 0 ~O uRIVES
JMP TC02TS
DAC "1SBITS
LAS
AND (1'
TAO (TSTTB\.. . . NOTTBL.
SMA
11..£GAL. TEST NUMBER
INa
JMP TC~2TS.~
L.AS
AND (17
TAO (JMPtt T5TTSL.
OAe GOTST
LAC (1102
DAC ElBLOK
lEND BLOCK IS EiBLOK·l
TAO (11711'
OAe ENOBLK
LAC (OTRA·l~
OAe WTF"LGS*l
LAS
AND (4121
SZA
JMS APISET
I.AC GOTST
~~T

2rUJ244

140040
UUJ266
160340
160341
160342
12103"3
6e123'
204565
040001
62024'

IMASK DRIVE 8ITS

~\.T

JMS RSF'ORV
OlM. POSITN
DlMtt DIRECT
D!Mtt L.SBLOI<
JMS NEWDRV

IGET F'lRsT DRIVE

10 DRIVE TABL.ES

IDONE ALL DRIVES
10 NEXT DRIVE TARLES

JMP '.-4

GOTST

LAC (JMP. 2
OAC 1
J~P. T5TTB\.
.EJECT

I~OC

C~ANGE

TO + TEST NUMBER

PAGE

,
12112J24'
flII2I246
121121241
121 I2J 2'
flI02'1
flI0252
0121253
12102'4
0fl12"

flI0264
I2IflI'264
12112126'

TCI2J29X

TC0281

12112J12I646

TSTT9L

~l2JflI713

1210121164
001fl124
001162
1210'-'43
002266
121032121
121034,3
0fl1fJ256
121012102121
12J0"'~12I'0

PTTRNA
SRE~LP

ROElLI'
wOElLP
SRCHTS
WR'ARO
PARTST
SAOH2R
STRSTP
NOTTBl., •
Ei!Bl.OK
ENOBLK

• 1..00 T5TT91..·11
121

121
.EJECT

PAGE

TC02BX

00266
00261

6210266
140641
204566
040642
5021643
74022121
600301
2210642
440641
744020
600271
100322
620266

0127~

00271
0"212
0"273
0021.4
00215
00216
00217
210300
0"3e1
011:3,02
01':503

0130 ..
0e:S8!S
003"6
00:587
08310
00311
01312
00313
"0314
00315
""316
01317

""32"
00321

10322
11323
11324
01:525
01326
08321
08330
08331
11332
00333
00134
00335
210336
02133'

60"303
200642
'144020
440641
544561
60"311
040642
'00643
'741288
608304
180322
6203113
100266
440383
620303
6011322
200641
74402"
7420221
'140021
0406332"1lI641
3445721
0.. 1340
344571
041341
3445'11
0421342
62e322

TC0281
IRESET SEI.ECTtON TO F'IRST DRIVE
JMP •
1S T ART wITH DRlv£ 8
D~M CDRIVE
LAC (4000210
ISET COMPARE Bli
DAC CBIT
AND MSBITS
SlA
IDRIVE SELECTED
JMP .... 5
IYES
ISET uP
l.AC CBIT
IF'OR NEXT DRIVE
IS~ CORIVE
RCR
JMP RSF'DRV ... 3
IGENERATt UNIT TABLE
JMS S£TUNT
IADDRESSES POS roR lOTS
JMPo RSF'ORV
ISEl.EC+ NEXl DRIVE SKIP
IEXIT AOOAS IF l.AST OR!Vr PAST
NEWORV JMP •
LAC CBIT
RCR
IPOSITION
IS~ CDRIVE
SAO (10021
JMP ,.'
OAC celT
ANO MSBITS
IDRIVE SEL,ECTED
SNA
INO TRY NEXT
JMP NEWDRV.l
IS£T UP THIS DRIVE
JMS SETUNT
,EXIT
JMP. NEWORV
IRESET TO F'IRST DRIVE
JMS RsrORV
ISTEpt rOR SKIP
lSi! NEWORV
JMP. NEWORV
SETUNT JMP •
I,.AC CDAIVE
RCA
IPOSITION DRIVE
RTR
INUMBER POA
RAR
IDECTAP[ FUNCTIONS
DAe UN"-UNC
,GEN£RATE TABI.E
l.AC CDRIVE
TAO (POSTSI.
IACDRESSES
OAC POSITN
TAO 0.1
OAe OIRECT
TAO (111-'
OAC l.SBLOK
JMP .. SETUNT
,EJECT
~S'ORV

PAGE

7
QJ0~4QJ

2121341

QJ0!42

2121.343
21213'3
2121353

T0028)(

TC0281

2100000
0~0012!12!

POSITN
D!RECT
L.SBL.OI<
POSTBL.

12!00012!0

OIRTBL.

QJ00rUJ0

LSTTBL.

00021021
QJ0~QJ12!0

210363

021363
2121373

21
21
21
12!

.L.OC P05T8L.+10

".I.OC OIRT8L.·10
12!

.I.OC L.STTBL.·10

00373
00314
021375
01316
00377
021400
00481
0214212
2121'-03
00404
0841'
·00'-86
021487
00'-10
0,,411

6003'3
204572
340631
121754'
70'1'72
'141200
62121317
721'1562
544573
600411
104423
104304
104153
600374

210412

'04'74
7402021
620373
600405

01413
08'-14
0"'-15

70~314

IRESERVE 8 L.OCATIONS.
rOR DIRECTION
IPOSITION AND
IL.AST BL.OCK WRITTEN

IEAC~

/REWINO 1 DRIVE TO REVERSE ENDtONE
REWORV JMP •
LAC (GOB[T.OIRBIT
TAO UN"UNC
OTI.A
IMOVE TAPE BKWD
DTRB·10
IWAIT rOR fL.AGS
SNA
JMP .,,2
OTRB
SAO (52100210
ICAN ONL,Y BE ENDtONt
JMP ,t5
/MOVE ERROR TYPEOUT
MOVERR JMS 5T'TAP
JMS TVMOVE
JMS £RAHLT
JMP FtEWORVt1
IORS
IE' SHOUL,D IORS
ANO (2210

SIA

JMP. REWORV
JMP MOVERR
• EJECT

T002BX

00'16
00411
00420
00421
00'22
00423
00424
00425
210'26
210421
"0'30
00'31
00432
00'33
0"'34
210'35
2121'36
01431
0a440
004.'1.
00442
00'43
0e.44
0S445
00.4,
flJ0 •• ,

00.'"

00451

0".52
00'53
0"45.
00'"
00456
0"4"
00460
00461
00'62
0"'63

60"416
754000
5.0633
'44002

204575

141400
771776
3406;34
0406;35
344515
5421634
20'516
544576
1410021
204571
340631
707545
,,0001
040636
100'06
600446
600446
'0155.
600441
1500211
040636
101552
74aa01
!HJ 4600
34.601
101544
2210634
0421635
1210506
6221416
600'60
701554
6210451

TC02Bi
ISEARC;' ROUTINE
IrIND B~OCK IN (RECORD) iN
IDIRECTION INDICATED BY OIRFLG=LAM IS BK~D
IOIRrI.G-0 IS F'WD
SEARCI-I JMP.
C~A!CL.1..

/FORwARD
SAD DIRFLG
/YES IS SET LINK
STI.
LAC (2
/BKWD 15+2
Si!L,
IFWD IS ~2 FOR TA
LAW 82
TAD RECORD
/TURN AROUND B~OCK
OAC TAPONT
TAO (2
/F'ORWARO
SAO RECORD
/WANf BLOCK FWD
L,AC (SRCHBW ENABLI
ISTART BKW IS WANT rWO
SAO (SRCHBW ENABLI
SKP
/START IS FWD TO FI~D BKWD
L,AC (S~CHFW ENABLI
TAO UNFUNC
OTL,A
CL,AICMA
OAe F'RSrLG
JMS SWTBLK
/BL,OCK-TAPOINT
JMP OOTURN
IBLOCK PAST TAPOINT
JMP DOT URN
INOT RCHED TAPOINT
OTXA.10
JMP ....
/rOUND TURN AROUND POINT ON TAPE
lOR PASSED IT
DOTURN CL,AICM.
OAe F'RSF'LG
OTRA.10
CM.
lIN CASE GO CLRO
AND (GOSIT
TAO (OIRBIT
ICHNG DIRECTION
oTXA
I.AC RECORD
OAe TAIIONT
/WAIT rOR BLOCK INT
JMS SWTBL,K
JMP. SEARCH
IrOUNO BL,OCK EXIT
/PAST BL,OCK ERROR
JMP SRERR1
INOT REACHED yET
DTXA·11ZJ
/WAIT NEXT BL.OCK
JMF' •• '
.EJECT

PAGE

TC028)(

00~64

20~635

00465
00'66
00467
00'721

54e!634

"0~71

"21~'2

021~'3

021.'4
00.'5
0"~'6

021'"
211510
00501
00502
00503
00504
2121505

21e'''6
211'01
se'l21
00'11
00512
021513
218514
"0'1'
8e'16

g"l'
0"20

10521

600560
'1137572.

504602

7412130
613215613
2210635
741100
600446
540264
600446
34.562
540264
60"446
440636
6130560
6130446

6021506
204603
040031
1012'2
600464
206317
4421636
60B,.4
S04604
0463"
540635
600'37

Tceasl
IS££ I' ERROR INTERRUPT IIJAS
IPRopER END lONE
LAC TAPONT
SRCHE~
SAO RECORD
IAF'TER TURr-. AROU'D
JMP SRERR1
IEVERY ERR F"LAG IS ERROR
OTRB·113
ANO.(E2BIT
SNA
INOT END ~ONE INT
JMP SRERR1
LAC TAPONT
SPA
IBLOCK " OR 1 TR~ AR~D
JMP OOTURN
IYES SEE r F' B°L.K e
ILAST ON TAPE TURN AROUND
SAO Ei!BLOK
JMP OOTURN
IYES
TAD (117771
SAD Ei!BLOK
JMP OOTURN
lSI F'RSrLG
1M ORE THAN 1 BLOCK RO
IYES SHOULD BE TuRN ARNO
JMP SRERR1
IBEfORE HU S
JMP OOTURN
IWAlT rOR OTF' OR ERR F'LAG
ID£TtRMINE-OREATER OR ~EsS
ITEST SLOCK NUMBERS TO B[ CONSECUTIVE
SWTBLK JMI' •
LAC CBL.KF'ND
OAe CAL.cC
JMS WTF'L.GS
IWAIT F'OR
JMP SRCHEi!
IERROR OR
LAC BI.KF'ND
ICECTAPErLAG
IS! ,.AsrLG
JMP SNOT'S
AND ("7'1
OAe BI.KrND
SWTTES SAO TAPONT
IBI.OC~ • I..OOKEC rOR
JMP SWTXIT
/YES GET OUT
• EJEC·T

PAGE

TC028X

12'0'22
00523
00524
012'525
00526
00521
12'8530
12'21531
12'0532
121121'33
12'0534
00'35
12'1'36
0"31
1218>15,4121
08'.41
0"42
01'43

740001
300635
440506
741100

00544
00'.5
0"'46
1218'.'
01'50
121"'51
00552
1lI1!553
00".

".",
0""6

8""7
01'60
IIJI'61
08'62

TC02B1
eMA
ADO TAPONT

IS~ SWTBL.t<
SPA
JMP •• 6
DTRA·121
AND (DtR8IT

~00534

107552
5~46e1

7412012'
44"506

6210537
707552
74212'01
60053121
21210631
0412164121
21216317
048637
620506
712115'2
504601
751200
21214605
141200
117717
3406:57
546377
74100121
681'56"
206311
680520
188563
184153
680411

IMA~E

BLOCK rOUN'

ISTEP

xlr ADORES~

IB~OCK

rou~D LES~ OR
THA~ SEARCHED

IGREATER

IBLOCK rOUND L.ESSER
lAND rWD aIR I s ~"O T REACHED
SWTSL.K
JMP SWTxrT
DTRA·10
eMA
JMP ... 6
>'/SAVE LAST TwO
SWTXIT LAC LSTBLK
IBL;OCK NUMBERS
OAe LSTBLK.l
IF'OR ERROR INFO
LAC 8L.I<F'NO
OAC LSTBLK
JMP. SWTS!./<
INOT FIRST BLOCK NUMBER
IS[E I' CONSECUTIVE WITH LAST
SNOTFS OTRA·10
AND CDIRBIT
IF OR WARD GOING
SNAfCL.A
lIS .1
LAO (1
IBAC~WARa
SNA
lIS wpl
L.AW ,,1
TAD LSTBLI<
S~A

IS~

SAO BL.I<F'NO
SKP

SRERR1

JMP SAERRl
LAC Bl.t<P'ND
JMP SWTTES
JMS SRtRAO
JMSfRRHLT
JMP S£ARCH.l
.EJECT

PAGE

TC02BX

TC0281

00563
00!564
00565
00'66
00567
00"0
00511
00"2
00513
00"4
005'5
0""6
210"1
"0600
006211
"0602
00603
210604
00'0'
00606

600563
104423
104316
104124
006141
566445
447100
21210633
740200
60051'
10,4411
'41000
104416
2121637'
104467
104124
004651
655644
17000121
,,777'
34121636
141100
600620
200637
104461
104124
006244
005441
636417
20121636
34460'
104467
104124
63012162
454144
1'''00121
104447
62121563
000000
000000
00000121
12100000
"00000
000000

SRERRO

~0601

01610
0e611
08612
021613
00614
00615
00616
01617
"8620
01621
le622
01623
1211624
01625
01626
0e611
1218630
1211631
08632
1211633
00634
0e635
"0'36
00631
00640
00641
00642
"0643
00644
00645

0000~0

000000
000000
000000
000000
00l'!0el0
2'00000

JMP ,
JMS STPTAP
JMS TVSRCH
JMS TVPTEX
6141
566445
447'00
LAC OIRF'LG

I~A

INTE
10 EOM

S~A

JMP ,.3
JMS TVF'WD
SI<P
JMS TVBKW
LAC BL..KF'NO
JMS TyPBLK
JMS TYPTEX
4657
655644
710000
LAW -1
TAO F'RSF'LG
SPA
JMP
L.AC LSTBLI(
JMS TYPBLI<
JMS TYPTEX
6244
'441
636411
I.AC 'RSF'LG
TAD (1
JMS TVPaL-1<
JMS TVPTEX
63121062
454144
110000
JMS TVSTAB
JMP. SRERRO
0
0
0

,'0
lUND

IEOM

,.,

UNrUNC
NO£X
DIRF'LG

RECORD

TAPONT
F'RS'LG
LSTBLI<
CORIVE
CBIT

MSBITS
TIMCTR

~D£X1

""
"00
0

"0
0

0
.EJECT

IRO
ILA
1ST tOM

IS R
,iEAO
IEOM

PAGE:

00646
0C!J641
21216521
210651

210652
2121653
00654
00655
"'0656
00657
"'0660
210661
210662
00663
30664
00665
00666
0066'
006121
00611
00612
00673
0216'14
00615
00676
0"6'11
001£10
001fl11

"""12

021103
0£1?04
00'flI'
00'06
00707
00710
0""11
0fl1'12

TC02B)(

2214600
340631
107545
1421644
175000
21421632
-1211552
5046021
74122121
600102
440632
600654
150004
741200
600651
4421644
'40644
6006'4
1400"'1
300644
'41100
6210652
'1211552
'4~2101

5046210
344601
,,,7544
600651

'-""'2

504602
141200
600'11
204512
101'44
600651
2046021
60"'01

TCC!JaS1
IPROGRAM TIMED TUR~ AROUND
IUSES MOVE ON~V TIME rROu SWS
IMOVE FORWARO
PTTRNA LAC (GOBIT
1+ DRIVE NUMBER
TAD UNF'UNC
ISTART TAPE
DT~A
OlM TIMCTR
BL,KTJM
OAC NOEx
DTRA·10
AND (GOBIT
SNA
IGO BIT STILL SET
J~p PTTE~
INO
11 BLOCK TIME PASSED
IS~ NOE)(
JMP ,-5
INO
LAS
SNA
IWAIT FOR E~
lIP' AC • 0
JMP PTTRNA.~
ICOUNT NUMBER OF' BLOCKS
lSI TIMCTR
SAO TIMCTR
JMP ,.5
CMA
lIN CASE SWITCHES
IwERE CHNGO
AOD TtMCTR
SPA
JMP PTTRNA.4
OTRA.1-"
eMA
ANO (GOBIT
TAO (OtRBIT
OTXA
JMP PTTRNA.J
OTRg·11J
PTT£J
AND (E:!BIT
SNA
lEND !ON£
JMP ,.4
INO GO JUST C~EAREO
~AC (GOBIT.OIReIT
OTX4
JMP PTTRNA.J
LAC (GOBIT
JMP ,-3
,EJECT

PAGE

1'3

ra2l113
~0114

T02l29)(

2214606
340631
,7217545

00115
"'0116 ' :14~644
'5021ra4
"0111
504607
O21'20
344610
~00'21
210122
~40031 ,
210123
1732421
04063,2
2121'24
7,,7'02
212112'
220031
2121'26
721,17214
01.'2,1
72100210
0eJ1321
70212111
211'31
7212102121
01732
440632
10'33
6210'73'1
21e'34
21113'
121'512
521 .. 6212
211'36
',402210
211'3'
611"6
08'.'
721"52
00'''1
210142
'401211
521462121
01'43
00" ....
""'44
ru" .. , 15212104
~1"611
00''''
141200
01'41
600716
01"0
44216'."
218"1
140101
211'52
017,53
3210644
0,1,,4
'411218
6210117
211'"
21075.
'015'2
'4(111101
218'"
504600
087621
;.'44601
01'61
210762
'0'544
621'0716
00'63

TC02B1
ISEARCH BOU~CE O~~ E~ OR
ITURN ARO~NC rIMED AC SWiTCHS
l.AC (SRC~F'W
SRE~U'
,TAO UNF"UNC
,START TAf'E ~wD '
OTt.A
liERO BL.OCK COUNTER
O!M'TIMCTR
LAS
AND (102100
TAO (BUrrER
l,sET CA
OAC CAL.OC
l.AW 13240
IABOUT 36 MSEC
OAC NOE:X

EEM

l.AC- CAl.OC
L.EM
lOT
lOT
lOT
lSI NOE)(
JMP ....
OTR9t121
A~O ([!BIT

SIA

JMP SAEITA
OTRA·10
CMA
ANO (GOBIT
OT)(A
l.AS
AND (1177'
INA
JMP SREiI.P.~
lSI TIMCTR

ISHOUL.D CAUSE
181.001< NUMBER TO
IS~OW IN AC
ITIME OUT
IENO ~ONE SET
IYES TURN AROUND

IRESET GO

NECESSARY

ITIMEOUT DR
IWAIT rOR EZ TO TA

eMA

SREiTA

ADD TIMCTR
SPA
JMP SRril.p.~
OTRA·10
eMA
AND (GOBIT
TAO (D!RB!T
OT)(A
JMP SRe:~l.Pt3
.EJECT

IT!M£O OUT T~IS OIR
INO

lIN CASE GO AL.ROY-!
.ITURN AROUND

PAGE

TC029X

21121164
00165
00166
021167

204612
340631
777400

012177~

e.4~030

P.l0171
2121772
021173
"0174
210775
0121116
00777
010'2121

750004
504601
344613
040031
200030
74120121
601002
101561
74121210
61211121121'
12176211
6-0e17"
77"00
0421632
440632
6121101211
721'572
'121461212
74022121
62112122
7217552
74"'0211
'0461210
"""'44
60016'
204"2
691020

1212,001
0U~'2

010_t3
0101214
O100'
12111211216
0112107
01010
1211011
211012
01813
211014
2112115
01016
01017
211120
01821
01122
1211023

7217545

TC2I~81

IREAD DATA BOUNCE Off
LAC (ROATAF'
TAD UNF'U"-iC
on.A
81,.ENTH
DAe WCI.OC
LAS
AND (1000121
TAO CSUF'F'R2-1
CAC CAL-OC
LAC WCL-OC
SNA

1.00P

RD£lL~

JMP ,.:5
OTEF'
SKP
JMP ,.3
OTOF'
JMP •• 7

ILAP-1 BL.OCK WORD COUNT

If OR EXTENDED MEMORY BITS
Iwe GO TO 0
IYES
IERROR F'LG SET

INO·
10ECTAPE F'I.G

1_ 121 ~AIT

I.AW .'0121

OAe ND[X
lSI NO£X
JMP.-S,

ISTATUS

AND eEIBIT
51.
JMP ,.6

IE! SET
IYES TURN AROUND

eMA
AND (GOBIT

lIN CASE GO CLRO

ITIME SAfE TO XOR TO
A

OTRe·18

OTAA.10
OT)(4

JMII' RDEII.P.3.
I.AC JMOV8KW
JMP ,-3

.EJECT

!'AGE

012124
01025
01026
01021
eJ103t?J
01,031
01032
01".133
01034
01035
01036
01031
01040
01.rIJ41
01042
"1043
01044
01045
"1046
0104'
"2,0'"
02,051
"1052
010'3
01"'.
el1~_'!J

"10'6
0s;e"

rU.fJ60

01061
01e62
01063
"1064
01065
01066
,,".,61
02,070
01171
01072
01073
"10'4
0107'
01016

T0029)(

750004
504614
e4116~

101077
204606
340631
707545
2046'03
040031
70156'1 _7'4100"
601061
701601
60103'
'''''61
141000
601061
204615
,,,'544
771400
"4"030
204603
341161
04""31
'07561
141000
601061
'07601
6010'4
10'552
14'''01
5046""
344615
'0'544
601033
'21"'2
'04602
741200
6010"
204"2
6"1065
204600
6"1065

1C"291
IWRITE DATA BOUNCE OF'r Ei!
ISCOPE: L.OOP
wDElLP LAS
AND (7
DAC PATNUM
IGENERATE PATTER~
JMS GSTPAT
L.AC (SRCHrW
TAD UNFUNC
ISTART SRCioI F'wD
OTL;A
LAC (8L.KP~O
OAC CAl-DC
IWAIT F'OR
OTEF'
SKit
1F"L.ACiS
ITEST F'OR E~
JMP WO£~TA
OTO;
JMIt .-'
OTE,
SI(P
ISEE IF' El
JMP WDE~TA
LAC CWRALL.
IC~NG TO W~I_TE DATA
OT)(A
BL.ENTH
IL.AM -BLOCK WOK
OAe WCL.OC
LAC CBUF'rER-1
11400, E)(TENO BITS
TAO xTOF'LO
OAC CAL.OC
,WAIT F"OR F'LGS
OTEF'
SKP
JMP .+3
OTO'
JMI' ,-4
) I N CASE GO C,L.RO
oTAA+U'
eMA
ANO (GOBIT
TAO (WRALL.
OT)(A
IC~NG BACK TO SEARCH
JMP WOE~L~+~
OTRB+10
WOE~TA
ANO ([IBIT
SNA
IE2 INTERRUPT
JMIt •• 3
INO
,YES
LAC (MOVBKW
JMP WOE~TA.Z
ICI1A'IGE Ot REeT r Or'-'
LAC (GOBIT
JMP WO£i!TA.Z
.EJECT

•

PAGE

TC02BX

01011
01100
01181
01102
01103
01104
011'05
01106
01181
01110
01111
211112

601071

0111~3

"11t4
0111'
01116
01·111
01120
01121
01122
01123
01124
0112'
01126
01121
01130
01131
01132
01133
01134
0113'
01136
211137
01140
01141
01142
01143
01144
0114'
01146
01147

1114~21

2'421632
'·5212104
504601
2141161

344603
040010
2211160
504614
344616
040645
201161
'140200
'10'1702
620645
601121
601131
601133
60113'
601140
601142
601144
601146
154000
601150
754001
601150
75.002
6'01150
204617
7440,,21
60115"
204620
601136
204621
601136
204622
601136
204611
'44002

TC02B1
IGENERATE 1 OF' 8 STANDARO ~ATTERNS
GSTPAT JMP •
Bl.ENTH
DAe NOEx
LAS
AND ,'10000
DAC XTOF'LD
TAO (BUF'F'ER"1
CAC 121
LAC PATNUM
"AND ('1
TAD eFt-ATTSL
CAe NCEXl
LAC XTOF'LD
IEXTENDED MEORY IND
S!A
,YES SET EXTEND ~OOE
EEM
JMP. NOExl
PATTBL JMp pAT0
JMp I'AT1
JMP PAT2
JMp pAT3
JMP PAT4
JMP PAT5
JMp PAT6
JMp PAT1
PAT0
Cl.A!Cl.l.
JMp GENPAT
~AT1
CI.C!CL.L.
JMP GENpAT
PAT2
CI.AISTI.
Jr-tp GENPAT
L.AC (2'2525
PAT3
CLI.
JMP GENPAT
PAT4
L.AC ('25252
JMP PAT3·1
I.AC (0'0'0'
PAT5
JMp PAT3·1
L.AC (70''''0
PAT6
JMP PAT3.1
LAC (2'252'
PAT7
STI.
.EJECT

PAGE

17
01150
01151
01152

011'53

01{54
0115'
0~1'6

01157
0116'0
01161

TC028)('
06~01'0
44~632

601155
107704
621077
741400
7:40001
601,l50,

TC02S1
GENPAT' DAC- 10
ISZ NOEx
JMP ,.3
LoE M,
JMpt- GSTPAT
S!t.

000'000 '

PATNUM

30000121

)(TOF'LO

eMA
JMP GENF'AT
0

,EJECT

INOT DONE YET Sn: IF' CMP

PAGE

TC02SX

01162
01163
01164
01165
011'66
01167
01110
211171
01172
01173
011'74
011 T!5
011"6
011'"
0i2e~

0120'1
012fJ2

011-03
01204
0120'
01,106
01207
01210
01211
01212
01213
0121'4
02,215
01216
01211
01220
01221
01222
01223
01f2~

0112S

100313
100303
601162
140634
140633
100~16

440634
1e1554
20~317

040637
101272
6O,1212
20637'
4'4:11636
-'4,063.
601170
100563
10''-153
20063.
440634
344605
540264
601216
601161
707572
'04602

141200
681202

20.6!4
54026.
141000
601.202
100303
6011'6'
601226
601202
0

TC0281
IT£Sl ~OR CONS£CUTIVE BLoCK
INUMBE~S LENGTH OF' TAPE
1"10VE TAcE INTO REVERSE E~D ~O~E
SRCHTS JMS REWORV
JMS NEWDRV
JMP .-2
IBLOCK 0
rINDAL OlM ~£CORD
IF'WD
Oi!M OIRF'LG
JMS SEARCH
ICOUNT FOR "lEXT BLOCK
lSi! R[tORO
OT)(A.10
IRE SET ENABLES
LAC 8LKF'ND
OAt LST8LK
IWAIT rOR PROGRAM INT
JMS WT'LGS
IERROR STA'rUS RETURN
JM;P F' I NOE i!
LAC BI.I<"ND
ICOUNT BLOCKS READ
lSi! F'RSF'I.G
S,AD R£eORD
IRECORD roUND OK
JMP FINDAL.3
SRrERR JMS SRERRO
JMS ER~~LT
LAC RECORD
lSi R[CORD
TAD (1
ILAST 8LOCl( ON TAPE
SAO ~!8l.0K
JMP ,+6
IVES
JMP rINDAL.Z
IRE AD DECTAPE STATuS
F'INDEi! DTRS.,.0
AND ([!8IT
SNA
lEND lONE
INO, ALI. OTHER STATUS IS ERROR
JM' SRF'ERR
LAC RECORD
lEND lONE IN ERROR
SAD [ISLOK
SKI'
INO
JM'P S¥H'ERR
JMS N[WORV
I SI< I" N'. I • IF' ALL DRIVE DONE
JMP 'INDA!.
JMP SA-BACK
JMP SR'ERR
,EJECT

PA-GE

01226
01221
eJ1230
eJ1231
01232
0123,3
01234
01235
01236
01231
11'11240
'01241
01242
11'11243
01244
0124'
0124'6
01247
0125'"
'012'1
012'2"
01253
01254
0125'
01,25.6
11'11'251
el16fJ
"1261
01262
"1263
01264
01265
01266
01261
02.270
01211

T002B)(

200265
0.40634
17'777
eJ40633
100,416
701554
177777
340634
040634
206317
040637
101212
601251
440,636
206377
'40634
601233
1210563
104153
201634
34 .. 562

0~"634 ,
141100.
601263
601·232
10"'2
504602
'14120"
60124'1
20rJ634
14e101
,,,,.,247
1"e303
60,.,226
601165
621,.,241

, TC0291
IS£ARC~

SKWOS rIND

SRBACI<

I.AC [NOSLK
OAe RE'CORD
L.AW -1
OAe DtRF"LG
JMS S:EARC~
OT)(A·10
LAW -1
TAO RECORD
OAe RECORD
I.AC BI,.;I<'ND
OAC LSTaLK
JMS wT'L.GS
JMP BI(Woti
IS! F'RSrlG
LAC BL.I<F'ND
SAO ,RECORD
JMP SRBACI<.'
JMS SRERRO'
JMS ERRHLT
L.AC 'RECORD
TAD (711.",
OAe ",[CORD
SIDA
JMP ••'6
JMP SRSACK.4
OTRB.11
AND fEISIT
INA
JMP SRBERR
LAC REC'ORO

IB~OCX N0MBE~SDEC~EME~T
II.ENGT~ OF' TA"E

SRBERR

9KWOEI

ScM A

JMP' SRBERR
JMS NEWORV
JMP SRBAel<
JMP rINOAL.
JMP SAB£RR
.EJECT

rOR
11. 4 5 T,BL OCI( C\N'T APE:
IBACKwARnS

IrIND IT

IRESET ENABL.ES

ILAST BLOCK .. 1
IrOR TVPEOUTS
IwAIT rOR'INT.
IERROR STATUS RETURN
ICOUNT BLOCI<S
IRIG~T BLOCK
IVES WAIT rOR NneT
I

IOONE BLOCK 0
IVES
IREAO DECTAP£ STATuS
IMASI< F'OR EI ERROR
IE!
INO AL.L oT~ER S,TATUS IS ERROR
IPAST BL.OCI<
INO EZ WAS IN ERROR
ITAI(£ N.I. H' NOT DONE
IAL.L ORYVES

~AGE

TC02B)(

01272
el1213
01274
01215
01216
"1277
"130"
"1301
"1302
01303
"1304
01305
0138-6
01307
01310
01311
01312
01313
01314
0131'
"f1316
01317
01320
01321
01322
0"1323
01324
0132'
11326
0t327
01330
01331
02,'32
01333
01334
0133'
0133,6
01337

6liU212
707552
504623
74121200
777770
14121210
771610
041542
140"0'
204624
040002

01:S~0

01341
01342
01343
01344

100~42

4400e1'
6,,,1306
4-41542
601306
,,,00132
,,,7552
504600
34462'
'07544
104124
17"7'
777777
5"65700
601651
167700
104447
6212'12

'''''61

1410,,8
621272
'07601
621272
10'5'2
'04626
741200
621212
'00314
504514
740200
441212
621272

TC02Gl
IWAIT 'OR INTERRUPT TEST r~AGS A~D 8IT 1~ or IORS
lINT ROU~I~E IS ySl l:
wn'LGS JMP •
IREA~ STAT A
DTRA·1~
/"'IASK Orr r:
AND (100"
lIS IT MOVE.F"UNTION
SlA
INO 5 SECO~D wAIT
LAW -10
IMOVE ~ET LA~ w11 0
5NA
/~OVE IS 45 SEC01\;QS
LAW -110
O'AC CL,rCTR
wTPION OlM
LAC eLl/TTOK
OAC 2
ION
I
lSi 7
JMP ,-1
IS! C'-'CTR
JMP ,.3
ror
IHER£ IF' NO INTE~RUPT
WTTOUT OTFU·10
ANO (GOBIT
TAO, (I NHC,-R
ISTOP TAPE
OTXA
INO P, I •
JMS TVltTEX
ITVP!: OUT
71'717
171111
INa
56"00
601651
IP .I
I, EOM
167'0"
JMS TVSTAB
,rOL.L.OWEO BY OPERATION
JMP. WTF'L.GS
IRETURN ArrTER INT
oTEr
wTTOK

SKit

J"P. WTF'L.GS

IE' • 1

OTO'

JMP. WTF'l.GS
OTRS+S,I
AND COTrBIT
SNA
JMP. WTF'L.GS
IORS

AND (200
SiA
lSi WTrLGS
JMP. WTF'LGS

.EJECT

10Tr • "
10TF' DOES NOT • 1
100ES BIT 10 or tORS • OTF'
ISKIP F'OR ALL OK EXIT

PAGE

TC"2B)(.

. TC0281 '

ISELECTION 1510 RUN INT£RRUPTS

lorr ,rROM API INSTEAD or PI

ISET UP wTFLGS TO JMP TO WA'IT AP
I

21134'

~1346

211347
21135"
01351
0'135.2

-21i353
01354

>0135'

013'6
0135,7

02,3'60
01361

01:'62

01363
01364

;601345

20'41627

APISET

0412,13

2214630
. 040010

20463'1
0.6""10

544632

6'''136''
344'"

601353

2,,463.~

04 "~J'4 4

2".4634
2140051
6213:45

JMP.
(JMP WAITAP IINSTEAD OF
DAC WTFLGS.l
16TRAMAKE IT A J~P
LAC (3'
ITO STORE ,JMS
OAC 10
lAC (JMS CH~ERR IGET ~I~ST API ERROR JMS
OAC. 10
ISTORE {NTO CHAN LOC
SAO (JMS CH31E~ ISET'UP ALL CHAN
IYES SET uP OT A~D RTC .
JMP ,.3
IE:RR JMS .2
TAO C2
ISTORE
IT
JMP .-'
LAC (JM~ OTAPI ISET UPDECTAPE
OAC 44
IAPI CHANNEL
LAC (JMS CLF"API IAPI CHANNEL
l RT.e AP % CHAN ~ E: L
OAC 51
JMP. APISET
IEXIT
LA~

ISTARTING SELECTION wAS TO USE:
IAPr lNSTE40 OF' PI

01365
0.,~366

01367
0137"

01371

81372
"",J,.73

"t3'4

7""'2
'04623

LAW -1
OAe 7

2fJ463'

LAC (WTAPI+a
OAC 2
LAC (4000021

7fJII.4
70fJEl42
''''5fJ4
00fJ"""

01410

CLL

'7·'777

"1413
"1414

01'07

LAW -4164
OAe CLF'CTR

74,41,0"

".""fJ2

01406

AND (72100

'SNA

".1'42

""411

01415

OTRA.10

S!A
L;'AW -4'4

171324
741200
173614

04."'"
1."000

"14'2

wAlTA"

'.02""

"1375
81376
"1377

014'.

15 SEC CoUNT NOT MOVE

14' SEC COUNT MOVE
ITO COUNT CLOCK INT

DIM 18

2fJ4566

CLON
ION
rSA

WTAPl

6014'06

CAL
JMP ,-1
HI.T

'400.0
I

'1TURN CLOCK ON

IPI' ON
IENABLE ApI

IWAXT F'OR BREAKS

ICOT A PROGRAM

INTER~UPT

IIF' MALT IS EXEeUTEO PROBABLY CAusED BY
IPROGRAM INTERRUPT INSTEAD OF' API
ICHECK ADDRESS 0 TO SEE IF' IT POINTS TO HLT
,EJECT

ERROR

PACE

TC029X

TC0291
IAPI INTERRUPT ON CHANNEL 44 (DECTAPE)

lIS JMS TO OTAPl
I

21411
a1·12

e1413

01414
W31415
211416
01417
12114221
01.21
01422
01423
01424
0-1425
01426
01421
01430
01431
1211432
1211'33
01434
01435
01436
1211431
1211440
rU.441

601411
700002
105514
703304
201411
544636
141002'
10331214
20 G!l0G!l G!l
740200
1400-40
601327
61211425
140040
601427
14121040
601431
740040
601433
14121040
61211435
1421040
601437
74004121

601441

rll1452

74121040
601443
' .. 1210-40
60144'
1400421
601447
140040
6t14!51
1400421

014-53

6211453

~1442

02,443
01444
01445
01-446
01441
12114'0
1211451

211.-'4

'1421040

JTA~I

JMP •
lOr
ISA·10

DBK

LAC OT'~I
SAD (WTA~I

CH0ERR
CH1ERR
CH2ERR
CHJERA
CH4ERR
CI-I5ERR

IPI OCCUR ALSO
IAPI DID'NT BI.OC~ PI
ITEST DECTAI'E F'LAGS

J~ID •
I-II.T
JMP •
I-I\.T
JM~ •
I-II.T

IAPI ERROR
IEXECUTED JMS IN 40

I-II.T
JMP •
I-II.T
JMP •
I-II.T

IEXECUTED 43
ICAN'T GET I-IERE
144 GOES TO DTAPJ

IoII.T

/EXECUTEO 46

iMP •

CH1ERR

JMP

CH10£R

JMP •

CH13[R

CLOCI(

OBI<

JMP •

CH12ER

FR,~M

LAC G!l
S!A
I-II.T
JMP WT'OK

CH6ERR

CH11EA

ICO~E:

INO
ICLEAR CLOCK FLAG

SK~

IDISA81..E pIE
ITURN A~I OFF'
ICLEAR OECTM'E AcTIVE

IEXECUTEO 41
IEXECUTED 42

IEXECUTEO 45

HI.T

IEXECUTED 41

HI. T

IEXECUTED 5"
ICAN'T GET HERE CI.OCK GOES TO CLFAPI
IEXECUTED 51

JMP •
HI.T

JMP •

HI.T

J~p

HI.T

•

.EJECT

IEXECUTED 52
IEXECUTED 53

PAGE

TC029)(

TC02B1

01455
01456
1211451

6014'5
1421040
601451
140040
601461
14212140
601463
740040
601465
1.40040
601467
7400.40
601471
740040
601473
740040
601475
140040

CH14ER

0146~

01461
01462 .
01463
01464
01465
014,66
0146,7
01470
01471
01472
,·01'473
014174
01415
01476
01477
601~71
01!"'0 '740040
01501
6~1501
01502
740040
60150~
01"3
740040
01'''.
01505
6015e5
74110 .. 0
01'''6
6015217
I?Jl"07
1418040
01510
601511
01'11
741040
0,1'12
601513
01'13
740140
01'14

01''1'

01"16
01'17
01'20
01'21
01522
01'23
01'24
01'2'

60151'

74,0040
601517
'740040
601521
'413040
601523
74'2104"
601525

CH15ER
CH16[R
CH,17[R
CH20ER
CH2.1ER
CH22£R
CH23E~

CHi4ER
CH25[R
CH26ER
CH27£R
CH~0ER

CH31ER
CH32ER
CH~3£R

CHI4£R
CH35ER
CH36[R
CH37ER

JMP •
IEXECUTE 54
HI.T
JMP
IEXECUTE 55
HI.T
JMP •
'IEXECUTE 56
HI.T
JMP •
HLoT
IEXECUTE 51
JMP
"jEXECUTE ,621,
HI.T
JMP
IEXECUTE ,61
HLoT
JMP •
IEXECUTE 62
HLoT
JMP •
IEXECUTE 63
HLoT
JMP •
IEXECUTE 64
HLoT
JMP •
H\.T
IEXECUTE 65
JMP •
IEXECUTE 66
HLoT
JM' •
HI. T,
IEXECUTE 67
JMP •
IEXECUTE '70
HI.T
JMP •
IE'XE CU'TE 71
H\.T
JMP •
HI.T
IEXECUTE 72
JMP •
H\.T
IEXECUTE 73
JMP •
HLoT
IEXECUTE 74
JMP •
IEXECUTE 75
HLoT
JMP' •
H\.T
IEXECUTE 76
JMP •
H\.T
IEXECUTE
JMP •
• EJECT

!'AGE

TC02BX

TC0281
IC~OCK INTERRUPT ~ROM APi
ICOMES TO CLF'API

01527
01530
01531
01532
01533
01534
01t;35
01$36
01537 "
01540
01'41

601526
441542
601535
700002
705514
703304
6211313
777777
040007
700044
703344
621526

CLF' AP t

01542

000000

01543
01544
01545
01546
01547
01550
01551
01552
01553
. 0155:,.
01'"
01556

750004
504614
041160
1502104
504626
740200
601622
101077
1603421
161341
1603.2
1013213
6211553
2214605
042260
140633
220342
34rl1633
040634
12121416
204615
701544
7774021
040eJ0
204603
34.1161
0421031
101152
601570
1210303
601563
200633
042261
740001
i'J40633

CLrCTR 0
ITO COUNT CLOCK INTR
ITC02 BASIC EX£RCIlER TAPE 2
IWRITE DATA ~ATTE~NS·0 TO 7 'ROM SWITC~ES
IWRITE AND READ DATA ~ENCT~ 16 BLOCKS OR 1 BLOCK oF' TAPE SWITC~ES
wRARO
LAS
AND <'1
OAe PATNUM
LAS
AND (10e
SlA
JMP ROI.OOP-Z
IGENERATE PATTER~
JMS GSTPAT

~1526

01~J"
01'611

0'1561

01'62
03,563

01564
01'565
01566
01561
01510
211"1
01512
0151'3
01514
01575
01516
0157?
01600
01601
01602
01603
016e4
01605

JMP.
ISl C~F'CTR
JMP •• ~
IC~

154+121 .

OBK
JMP WTTOUT
LAW .1
OAC 1
C~ON

OBR
JMP. CL.F'API

IWAITED

~AX

TI~E

INO

ITIMED OUT
IDISABLE API ANO PIE
ICLEAR CLOCK' ACT I V£
ITYPtOUT
ISET FOR CL.OCK I~T
IENABLE CLOCK
ICLEAR CLOCK ACTIVE
IGO BACK TO WTAPI

DiM.

POSITN

DlM. DIRECT
D~M. LSBLO'K
JMS NEWDRV

JMP .-4
LAC (1

10 DRIVE TABLES

100 ALL DRIVES

DAe B~l(tNC

WR'IRS

oeM o't RF'LG

LAt. LSBLOK
TAD DIRrLG
OAe "rECORD

IGET LAST WRITE
IF'WD IS 1 AHEAD

JMS SEARCH

LAC (WRALL
OTXA
BLENTH
OAC wel.oc
LAC (BUF'F'ER-1
TAO XTOF'LO
OAC CAL-CC
JMS WRSWS
J"1P .-'
JMS NEWORV
JMP WRf'IRS
LAC DIRF'LG
DAC WRPASD

CMA

DAC DIRF'LG

ICHNG TO wRITE DAT4
I~AM -WC

ITEST SWTTC~ OF
INCTDONE ALL
IOONE' All. JR I VES
I~O

ISET UP OTioIER

~RITE

PASS ON NEXT DRIVE

PAGE

TC028X

01606
01607
01610

202260
740001
344605

12'1611

~42260

'01612
"1613
01614
01615
01616
01611
01620
.. 01621
01622
01623

750011'4
504561
14L'J200
140040
750004
504564
74020"
,601714
. 777.771
L'J42251

TC0281
I..AC BI..I<INC,·

IDIRECTION

C~A

TAD (1

DAe BL.KINC
LAS
AND (1000
. S2A

HL.T

LAS '.
AND (4121
S!A
JMP ROTERM

/WRITE ON1. Y
lYES

LAW .. 1
OAe RPASF'L.
.EJECT

/SET 1ST RD F'LG

PAGE

01624
01625
01626
01627
0163~

01631
01632
01633
01634
~1635

01636
01631
01640
01641
01642
01643
, 01644

TC~28X

22~)34~

e40634

100416
204631
101544
171400
040030
204613
341161
040031
102046
601612
701554
71740~

21400321
2046421
341161

el1645

~421031

01646
01647
01650
01651
01652
01653
01654
01655
01656
01651
016621
01661
01662
01663
211664
016-65
211666
211661
01610
01671

102142
001000
2~"'635

21421634
102132
601626
102046
601612
701554
7774021
21421030
20'-613
040031
1El2142
007400
2021635
0421634
1212132
601626
601636

TC0281
IREAD LOOP LENGTH OF TAPr 1 OR 16 BLOCKS
IGET NEXT BLOCK
ROL.OOP LAC. POSliN
INU~BER
DAe RECORD
JMS SEARCH
IrI~Cl IT
LAC n~OALL
,TO RD DATA
DTXA
ILAM ... WC
BL.ENTH
CAe WCLOC
ISET CA A"JD WC
LAC (BUF'FR2"1
TAD XTOF'LJ
DAC CAL.OC
IwAIT FLAGS RD SWS
RDF'IRS JMS ROSwS
'LAST Bl.OCK RD
JMP ROt-END
IRESET ENABLES
DTXA·10
BI..ENTH
INEXT BLClCK
DAC WCL.OC
IINTO 3RO SUF'rR
l.AC (BUF'F'R3"'1
TAO XTOF'I.D
DAC CAl.Oe
ICOMPARE WRITTEN
JMS COOATA
IAGAINST READ
BUF'F'R2
INUMBER oF' NEXT
l.AC TAPONT
IBI.OCK IN SEQUENCE
OAe RECORD
IC~ECK ERRORS
JMS ROERCK
lAND RESTART
JMI' ROL,OOp*2
IWAIT DONE BLOCK
JMS ROSWS
IRD ENDED
JM~ RDI.END
IRESET ENA8LES
DTXA·l2l
8LENTH
IStT we
DAC WeLOc
lAND CA
LAC (BUF'P'R2-1
OAe CALOC
ICOMPARE: DATA
JMS COO.TA
IAGAINST 3RD BU~
BUF'rR3
INUMBER oF' NEXT
LAC TAFtONT
191.00K IN SEQUENCE
DAC RECORD
JMS RCERCK
IERROR, Re:SYNC
JMP RO!.OOP*2
JMP RorIRS
INO ERROR
,EJECT

PAGE

2'1

TC02BX

2'1672
01673
01674
01675
01676
01677
01'100
017111
2'17112
2117113
017"4
01705
01786
01711
01711lJ
01711
01712
01713
"1714
01'1'
01116
01117
211721
01721
01722
01123
01724
21172'
81126
111'27
81730
211131
81732
01733
01734
0113'
01'36
01731
01140
01741
01742
211'43
01144
01'145
01746
01747
017521

777401
340031
504611
041617
102142
001001'lJ
1210303
601624
200633
740001
040633
202260
740001
344605
042260
442257
741000
601624
75""04
,,,.567
741lJ200
740841
150"04
504626
740201
601622
200633
74121.
6.1563
221342
'411264
74100'
601'63
1042'16
201161
344641
104112
104124
004556
441700
75211804

~1751

6015.'

5"4'7~

741200
601543
201160
344605

50~614

TC0281
ILOOP BACK AND WAIT 2ND 8UF'F"~
ITO fILL. UP
RDI..END 8L.ENT~·1
TAO CAL.OC
AND (11771
DAC ,.2
ICHECK L.AST DATA
JMS COcATA
BUF'F'R2
loONE READ ~ASS ON ALL DRIVES
JMS NEWORV
INO START READ PASS ON NEXT
JMP Rcl.OOP
L.AC OIRF'L.G
IMAKE: CONSTANTS
C~A
DAe OIRF'LG
IOTHER DIRECTION
LAC SL.t<INC
CMA
TAO (1
OAe BL.t<INC
IREAO BOTH DIRECT
IS! RPASf"L.
St<P
IYES
JMP RDL.OO~
ROTERM LAS
AND C1000
SeA
HL.T
LAS
AND <UHI
S~A
IRO ONL.V
JMP ROI.OOP"Z
LAC OlRF'L.G
S!A
JMft WR'IRS
LAC- L.SBI.OK
IOONE L.ENGTH TAPE
SAD E!BL.OK
st<P
IOONE 1 PASS
100 NEXT SEQUENCE
JMP WRF'IRS
JMS TVCRLF'
L.AC PATNUM
TAO (260
JMS TYPCHA
JMS TYPTEX
4556
lEN
447700
10 EOM
LAS

ANO (200
SNA

JMP WRARD
LAC PATNUM
TAO (1
AND ( 7
JMP WRARD+2
.EJECT

PAGE

1211152
1211'53
1211754
01"5
1211756
01157
01'621
1211761
01762
01763
12117,604
1211".-9
QJ17',6
0116"
01"1
01171
QJ1712
01173
1211714

QJl11'
01176
01171
"20021
028_1
02002
02803
02004
020"5
02116
02887
0281121
212811
02112
02113
02e14
02015
02016
02817
02120
212121
02122

02023
02824
02'2'
02026

TCI2I28X

61211752
101212
6121212127
212121121321
7412121210
612122140
20C'J634
06121340
342260
040634
750804
504,6:4'2

TCl2l281
IWAIT F'OR WRITE F'l.AGS
IT£ST SWITCH OPTIONS
JM'P •
WRSWS
JMS WTF'LGS
JMP WREiTS
LAC WCL.De
SlA
JM'P wRSERR
LAC RECORD
DAC. POSITN
TAO BLI<INC
OAC RECORD
LAS
AND (3m

1~;12t"

621752
5,,4643
741121210
602003
20121633
5:04556
12140632
208634
'04556
540632
74101210
621152
'''''52
50460S
71211544
441152
201633
74QJ200
621152
2012163~

0603.2
621752
602015
'50flJflJ4
5fJ4644
141200
602025
'07552
504600
741200
442015
622ftJ15

INEW POSITtO\:
INEXT TO 8E WRITTEN

SNA

Il.ENGTH OF' TAPE
lyESGET OUT

S~A

132 BLOCKS

JMP. W'RSWS
AND (20

WRTERM

Iii/AIr FOR FLGS
INOT NOqMAI. STAn'S

JMP WRTERM
LAC 01RF'LG
AND (1'
DAe NDEx
LAC RECORD
AND (1'
SAD ND~x
SI(P
JM". WRSWS
OTRA·111
AND (GOBIT
OTXA
IS'! WRSWS
LAC DIRFLG

s2A

INO 1 BLOCK

IOON£ 16

lyES

INOT REACHED 16
ISTOP TAPE
ISTEP EXIT

JMP. WRSWS
IUPDATE LAST Bl.K
LAC RiCORD
IIF' GOING ;ORWARD
DAC. LSBLOI<
JM'P. WftSWS
IIF' SW 18-1 AND MOTION NoT a 0 IGNORE ERRORS
GOeLRD JM1' •
LAS
AND (40121
SNA
JMP •• 4
OTRA+10
AND (GOBIT
SNA
IS~ GOCLRO
JMP. GOCLRO
.EJECT

PAGE

TC028X

TC0281

02027
212030
02031
el21Z!32
022133
02034
02035
02036
02037
212rll40
02rll41
02rll42
02043
212rll44
212045

707572
5046212
74120"
60212140
20!l1634
5421264
602003
741100
602003
102015
601760
11214423
104363
104153
601563

WRElTS

02046
021147
212"50
02051
02052
02"53
02054
020"
212056
02m"
020613
02061
G!I2m62
02"63
02064
9206'
02166
02"67
02010
02171
02"'2
02013
02114
02075
92076

602046
142262
101272
602105
2012"'J30
74020"
602116
200634
060340
342269
049635
75000.
'94642
741201
602077
504643
'4m209
692101
200633
504"6
040632
200635
'94'56
5.0632
692101

DTR8.U~

AND ((leIT
SNA
JMP WRSERR
LAC RECORD
SAO E~BLOK
JMP wRTERM
SPA
JMP WRTERM
jo/RSERR JMS GOCLRO
JMP WRSWS.6
JMS STPTAP
JMS TYWOAT
JMS £RRHLT
JMP WRF'XRS
IWAIT rOR READ DONE
ITEST SWITCH OPTIONS
JMP •
ROSWS
D~M RSE:F'LG
JMS WTF'LGS
JMP ROE~TS
LAC WCI-OC
S!A
JMP ROSERR
LAC RECORD
OAC- POSITN
TAO BI-KINC
OAe TAPONT
LAS
AND (30
SNA
JMP ROSW
AND (21
S!A
JMP ROSW.2
LAC OIRF'LG
AND (1'
cAC NOEx
LAC TAPONT
AND (1'
SAO NOEX
JMP ,.3
.EJECT

lEND lONE
IERROR
INOT Et STATUS ERR
lEND OF' TAPE
IrOR~ARO

lEND OF' TAPE
IBACK WARD

ICLR ERR n"G
ISTATUS ERR
Iwe GO TO "
INO ERROR
INEW POSITION

IL.£NTH OF' TAPE

lOA. SHORTER
11 BLOCt<
IYES 1 ONLY

ISEE If" CONE
11 6 BLOCI(S

INOT DONE 16

PAGE

30
~2e77

02100
02101
02102
eJ2103

021Q14
021Q15
02106
02107
021121
1212111
02112
212113
02114
02115
02116
02117
02120
02121
02122
02123
tlJ2124
02125
02126
02121
02131ZJ
02131
02132
021~3

02134
0213'
02136
02131
021411
02141

TC028X

TeS281

442046
622046
707552
5046121121
707544
622046
701572
504602
74120121
61212116
2021634
540264
602101
741100
602101
102015
602055
104423
104340
104522
200030
740200
104330
104447
777'71
12142262
602055
602132
442262
44226'
6021421
442132
622132
104153
622132

ROSW

ROElTS

ROSERR

ROERCK

ISl ROSWS
JMPo RDSWS
D'T'RA+ll2f
AND (GOBIT
DTXA
JMPo RDSWS
DTRB"'l121
AND (El8IT
SNA
JMP ROSERR
LAC RECORD
SAO E~BLOK
JMP ROSw+2
SPA
JMP ROSW+2
JMS GOCLRO
JMP RDSWS·7
JMS STPTAP
JMS TVROAT
JMS WRIDIR
LAC weL-OC
S!A
JMS TVPWC
JMS TVSTAB
LAW .. 1
OAC RSEF'LG
JMP ROSWS·"
JMP •
IS~ RSEF'LG
IS! COF'LAG
__lMP '•• 3

IS! ROERCK
JMPo ROERCI<
JMS ERRHLT
JMP. RO[RCI<
.EJECT

ISTEP EXIT
ISTOP TAPE
IOO~E

IE~

ALL XIT

INT

INO STAT ERR

IEOT FWD
IVES
IEOT BKWD
IVES

ISET STATUS FLAG
ISTATUS ERR
ICOMPARE [RRO
lONE OR OTHER
INO ERROR
,SKIP EX!T

PAGE

TC2I2BX

Tea2Bl

02142
02143
02144

602142
77111'

CODATA

~2145

777400
e421632
204610
341161
042263
222142
341161

02146
02141
021521
212151
02152
212153
02154
02155
212156
212157
02160
02161
212162
02163
02164
212165
02166
02167
02178
02171
212172
1tJ2173
02174
02175
1tJ2176
021'1'
02280
"2281
82212
1tJ2283
02284
1tJ22'"
O2286
1tJ220'
212218
82211

~42265

~42264

442142
75210214
5214644
142120O
622142
201161
74B20e
'07702
222263
562264
602204
201633
34460'
342261
740200
602204
222263
74.Ha01
562264
741881
102221
102212
602175
222263
562264
'41001
102221
102212
6022".

COSAME

JMP •
LAW -1
DAC COFLAG
8LENTH
DAC NOEX
LAC (BUFfER
TAD XTOfLD
DAe GEDATA
LAC. CODATA
TAO XTOfLD
OAC INOATA
lSi CODATA
LAS
AND (4210
SZA
JMP. CODATA
L.AC XTOF'LO
SlA
EEM
L.AC. GEDATA
SAO. INOATA
JMP COSAME
LAC OIRF'LG
TAD (1
TAO WRPASO
S!A
JMP COSAME
LAC. GEOATA
CMA
SAO- INOATA
SI(P
JMS COERRO
JMS TSCTRS
JMP .,,6
L.AC. GEOAT4
SAO- INOATA
SI(P
JMS COERRO
JMS TSCTRS
JMP COSAME
,EJECT

1-256

IGENERATED AODRESS
IINPUT ADDRESS
IOELETE ERROR CHECK

ISAME DATA
IVES

IRO oPOSITE WRITE
INO
ICOMPLEMENTS •
IVES

IWORDS •
IVES
ICOMPARE ERROR

PAGE

02212
02-213
"22'14,
022'15
~l2:216

0~217

0222:0
02221
02·222

022'2~3

022'24
02~a:2;5

(2ra:2;2:6
0'22-2:'
022:;s,)

TC02BX

0130000

442263
442264
440632
622212
707104
622142
6'02221
442265
602227
104'423
10:434'21
le-4S22

75"04

"2231

51f;4·61J2
1'412""

0221'3
"2234
"2235
"2236
"2231
"2240
02241
02242
"2243

20226'
344645
74"10"
622221
1".276
222263
104536
104124
006762
''00001;

02;a'!:t

022~4

02,24'
02246 .
022.,
022'"

2122',-

022,52

321;53
021·'.
1i72!5~

11722'6
"2251
"2260
"22'61

02262
02263
02264

"226'

6022-3'

202263

10"'.'
222264
10.536
10~124

117&6244
0000'17
212264
104547
622221

0000""
",,"0""
000033
000003
0001021
000000

",,"""0

TC02B1
IINCREMENT COMPARE ADDRESS
lEX IT IF LAST WORD
TSCTRS (21
lSi! GEDATA
1St INOATA
ISl NOEX
JMP. TSCTRS
LEM
JMP. CODATA
COERRO JM' ,
IFIRST ERROR
1St COF'LAG
JMP ,+4
INO
ISTOl' TAPE TyPE ~DR
JMS STPTAP
JMS TYROAT
ITYP WRITE. DIR
JMS WfH 01 R
LA-S
ITYPE ALL ERROR
AND (1000""
5NA
IYES
JMP ,+5
LAC Cor LAG
TAD (777714
SMA
100NE 4 ERR TYPE
IYES STOP AT 4
JMP. COERRO
ISPACE BETWEEN PAIRS
JMS TYCRLr
LAC. G£OATA
10ATA WRITTEN
JMS TYOATA
JMS TYPTEX
6'162
IWR
77
IEOM
IWRITE AODRS
L.AC CEDATA
JMS TyPAOR
10ATA READ
LAO- INOATA
JMS TyOATA
JM'S Typ:TEX
6244
IRO
I[OM
17
IAORS DATA READ
LAC INOATA
JMS TYPAOR
JMP. COERRO
ICOUNT READ PASSES
RPASF'L

""
""
INDATA "
COF'LAG "
", EJECT'

BL.KINC

WRPASD
RSErLG
CEDATA

ISAVE LAST WRITE DIR
IREAD STATUS ERROR f"LAG

PAGE

:5:5

~2266
~2261

02270
02271
~2272

)

02273
02274
02275
02276
02271
023QJ0
023QJ1
02312
0231:5
02314
0230'
02316
02317
02310
02311
02312
02313
02314
0231'
02316
02311
0232"
02321
02322
02323
023204
0232'
02326
02327
02330
02331
02S:52
02333
02334
02335
02336
02337
02342'
02341

TC02BX

22121265
040634
'71"7
040633
1rlJ0416
204637
717'44
777400
04rlJI30
2rlJ4613
040031
2000321
7402101
74"200
602301
1401rlJ1
046401
2rlJ46e3
040031
177776
040130
214646
'107544
1211272
602764
2000:51
74fJ211
602764
117171
:541634
04fJ634
7411021
602331
2fJ4646
602214
2~46ee

701544
100303
602266
150104
504561
'4(lJ2~0

'40040
150004
504564
740200

TC02B1

IPARiTY GENERATION AND CHECKING FIRST PASS
IWRITES REV CK SUMS TO 0
1(11 GOING BACKwARDS) 2ND PASS
IGENERATE PATTERNS ~RD PASS
ITEST CHECKSUMS 4 READ BOTH DIRECTIONS
IrOR NO PARITY ERRORS
15 GENERATE WRONG PARITY IN BLOCK
16 READ BOTH DIRECTIONS EXPECT PARITY ERRORS
ISTEp 1 WRITE REVERSE C~ECKSUMS TO 0
PARTST LAC ENOBLK
OAC RECORD
LAW ~1
CAC OIRF"LG
JMS SEARCH
LAC (JfJQJQJ

PARL.P1

OTXA

B~ENTH

OAC WC~OC
L.AC (BUF"FR2~1
CAC CA~OC
L.AC WCL.OC
eMA
S2.
JMP

.,.s

CMA
OAC BUF'rER
LAC (BUF"F"ER"1
OAC CAL-OC
LAW -2
CAC WCLDC
LAC (1 "UlfJ
OTXA
JHS WTf'L.GS
JMP WAERR0
LAC wCL.OC
S!A

JMP WAERRfJ
LAW -1
TAO RECORD
OAC RECORD
SPA

JMP ,.3
LAC C1700fJ
JHP PARL.P1
LAC CGOBIT
OTXA
JMS NEWORV
JMP PARTST
LAS
AND (1000

S!A
HLT
LAS
AND (40

5!A

IBKWOS
IFIND BL.OCK UP]
ICHANGE TO READ
IOUMMY READ
ITO GET TO
IRE VERSE C~ECKSUM

11 WORD ~ErT TO READ
IALL 1'5 TO WRITE

12 WORDS

IC~ANGE

ISRC~ TO WRITE ALL
TO WRITE AC2

ISTATUS ERROR

/we • 0

INO STATUS ERROR
/BLOCK .. 1

IOONE
IYES

YET

ICHANGE BACK TO READ

ISTOP TAPE

1 0 af\1 E ALL DR I VES
INO DO NExT

IE1\';) OF rASS HI.. T
I~LT

END OF PASS

IREPEAT WRIl£ SEr

PAGE

TCfZl2BX

02344

602266

TCfZl2B1
JMP PARTST

.EJECT

ISTAV IN STEP 1

PAGE

02345
023t46
02347
02350
02351
02352
02353
02354
02355
02356
02357
023612l
02361
02362
02363
12!236t4
02365
02366
02367
02370
02371
02372
02373
1il237t4
02375
02376
02311
024fUI

82401

02402
02403
02404
024il5
02406
02407
2I2lf10
02411
02412
1212413
02414
212415
1212416
212411
02420
212421
212422
212423
02424
~2425

TC02B)(

140634
1-4Z633
21214647
12140I2!U~

146400
100416
204615
707544
2046~3

12140031
777777
040030
101272
603001
202030
740200
603001
201634
161637
060340
440634
22212110
046t400
750200
602354
7075t4t4
2046iJ3
041131
777111
04103"
101272
603005
2ill634
12160342
060340
440634
206400
:544650
14120121
204651
046400
544651
602422
5~4652

741200
60243~

21216400
544652
6212432

TC02B1
IPARITV TEST STEP 2
IWRITE PARITY PATTERNS
IflRST SLIDING BITS THEN
IA COUNT PATTERt\J
1ST ART BLOCK 0
PART52 DlM RECORD
O~M OIRrLG
LAC (PARTBL.
OAC 10
IF'IXED PATTERNS
IF" I1~S T IS I2l
OlM BUrrER
JMS SEARCH
L.AC C501ilf21
/WRITE DATA
PARWLP OTXA
L.AC (BUfrER!'!l
QAe CALOC
L.AW -1
11 WORD
OAC WCI..OC
JMS WTFLGS
JMP WOERR0
IWOATA STAT ERR
L.AC WCL.OC
Iwe GO PAST 121
52A
IYES ALSO ERROR
JMP WOERR0
LAC RECORD
CAC. I..ST81..1<
CAC. POSITN
IS! RECORD
LAC. 11
CAC BUFrER
IDONE: ALL fIXED
S~AICl.A
JMP PARWLP
INO
IWRITE INCR
PARWL2 CT)(A
IPATTERNS
l.AC (BUrFER"l
1000000 TO
oAe CALOC
1"7100
l.AW -1
11 WORD pER Bl.OCK
CAC WCL.OC
JMS WTPl.GS
JMP WO£RR1
L.AC RECORD
DAC. L.SBLOI<
INEw BL.OCK
OAC. posrTN
INEw POSITION
IS~ RECORD
IGET LAST PAT
LAe BUF'rER
1.1 TO u~pER 6
TAO (1000121
IGONE 00 TO 71
SNA
lyES STAT 01211 TO 7771
LAC (1121100
DAC BUrrER
SAO (11211210
JMP ,.3
AND (1700
SNA
lIN DOUBLE I~CREMENT
,YES
JMP ,.6
LAC BUF'FER
IDO~E TO 777700
SAO (7700
JMP •• 5
IYES
.EJECT

PAGE

T'C-028X

02,42\6

02~33

344626
046400
7500021
6:-02376
2046021
107544

0·24.34

100303

~2427

024.30
22~~31

02;4'32
'02'~35

6,02345

02;436
0·2437

-750004

;90-4567

0,2:-4'421

'7~402"'0

~2'4-:41

1'40040
:'750,1;11'4

0:2:-4,..2

TCf2B1
TAD (100
DAC BUrrER
Cl.A
JMP PARWL2
L.AC (G08IT
DTXA
JMS N£WDRV
JMPPARTS2
LAS
AND (1000
StA
HL.T
,WAS

0.2~.·3

';5;0,4.56 ·4

-AND (4t!

;J24t~'4

--7;4-~a_00

S"i!A

",:2:*45

,;6'0-23-4'

,JMP

~cARTS2

.EJ£CT

IUPDATE LwR

BITS

ISTOP TAPE
IDONE Al.L DRIVEs
INO
lEND OF PASS
IYES

H~T

IRE;P(AT PASS
IRE,PE AT G(N PAT

PAGE

02446
02441
02450
024!1
02452
02~53

)

02454
02455
02456
02451
02460
02461
02462
02463
02464
212465
02466
02467
02470
02471
O2472
02473
02474
02475
02476
02477
02588
02'11
82'12
02513
02'14
02'0'
02'86
02507
02510
02511
02512
02513
02514
212515
02516
02517
02'20
02521
02522

TC02BX

TC02B1

140634
140633
10"416
204637
707'44
204603
0421031
771400
04fUJ30
200030
740200
602457
204567
701544
101212
603013
206400
504652
741200
682414
77"080
602476
206400
244653
560031
741000
603022
208634
568342
60250'
448634
204561
602452
204600
107544
UHJ303
602446
750004
5214567
740200
'4021421
15"004

IPARITy TEST STEP 3
tREAO BLOCKS TEST
IF"OR CORRECT PARITY GENERATED
PARTS3 D~M RECORD
DlM DIRF"LG
JMS SEARCH
ISEARCH TO REAO DATA
LAC (3000
OTXA
LAC (8UF'F'e:R~1
CAC CALOC
BLENTH
DAC WCLOC
IWAIT ro~ LAST
l.AC WCLwOC
SlA
10ATA WORD
JMP •• 2
ICHANGE rO
LAC (1000
OTXA
iREAO ALL
JMS WTF'L.GS
JMP RAERR2I
LAC BUF'F"ER
IrEST rOF<
AND (7700
SNA
11 OR 2 CHAR
JMP ,.3
11 CHAR
12 CHAR CKSUM
L.AW 10000
JMP ,.:5
ISHOUI..D • 77
LAC BUrF'ER
11 CHAR
XOR (7702100
ICIoiECKSUM • COMp
SAD- CALOC
SKP
ICHECKSUM INCO
JMP PARCI<E
I..AC RECORD
SAO- L.SBLOK
IOONE: ALL. BI..OCI<S
JMP ,.4
IVES
IS! RECORD
ICIoiANGE BACK
L.AC (1080
JMP PARTS3.~
ITO READ OATA
L.AC (GOBIT
OTXA
ISTOP TAPE
PAR3NO JMS NEWORV
IOONE 1 ALL. DRIVES
JMP PARTS3
INO 00 NEXT DRIVE
L.AS
ISTOP END OF"
AND (10210
SlA
IPASS UP
HL.T
IYES
L.AS
AND (40
SlA
JMP PARTS3
IREPEAT PASS & 1

'04564

740200
602446

,EJECT

PAGE

02523
02524
2'2525
02526
02527
02530
02531
02532
02533
02'34
02'35
0253'6
02'37
02"40
02'41
02'~2

02'43
02-'44
02545
02546
02547
0255"
02551
02552
02553
e2554
02555
02556
02'57
025621
02'61
02'62
02563
02564
02565
02566
02567
025721
025'1
02512
02573
212514
02575
02516
02517
eJ26~0

02601
02602
02603
02604
02605

TC02BX

220342
040634
711777
~40633

1~0416

204631
70'544
777400
040030
204603
04e031
101212
603012
777177
34"634
0~0634

750100
602531
204600
7217544
12J0303
602523
140634
140633
1"2J416
204637
717544
771400
0411030
2fJ4603
040031
101272
603106
200634
440634
560342
602572
150000
602555
204600
7",544
1021303
602551
7500214
50456?
740200
740040
750004
504564
7402el0

602523

TCfJ2B1
IPARITY TEST STEP 4
IREAD BLOCKS aOTH DIRECT!ONS
ISHnU~D NOT GET PARITY ERROR
PARTS4 LAC. LS8LOK
OAC RECORD
1ST ART
18ACKWARDS
LAW -1
DAC DIRF'LG
JMS SEARCH
ISEARCH TO
LAC (321210
IREAO DATA
DTXA
8L.ENTIof
OAC WCL.OC
LAC (BUF'F'ER-l
OAC CAl.OC
JMS WTF'LGS
IMAY BE PARITY ERROR
.IMP RDPERR
l.~W .. ,1
IBLOCK 01<
TAOR£CORD
DAe R[CORD
SMAle!.A
IOONE BLOCK 0
INO
JMP PARTS4.~
L.AC (GOBIT
OT)(A
ISTOP TAPE
IDON£ AL.l. DRIVES
JMS NEWORV
JMP PARTS4
INO DO NExT
IBI.OCK 0
PART4A OlM RECORD
IF'ORwARD
DlM OtRF'l.G
JMS SEARCH
IREAO DATA
LAC (3000
OTXA
BL.ENTIof
OAe wel-oc
LAC (BUF'F'ER~1
OAC CAI-OC
JMS WT'l.GS
JMP ROP[R1
LAC RECORD
IS! RECORD
IDONE Al.L F"ORWARD
SAD- L.58LOl<
JMP ,.3
1,(£5
CL.A
JMP PART4A.~
I.AC (OOBIT
ISTOP TAPE
OTXA
PAR4ND JMS NEWDRV
INOT DONE ALL DRIVES
JMP PART4A
LAS
AND (1000
SlA
IHALT END Of PASS
HL.T
LAS
AND (40

SlA

JMP PARTS4
,EJECT

IREPEAT PASS

PAGE

02606
02607
02610
02611
212612
212613
02614
02615
212616
02611
212620
02621
02622
O2623
O2624
02625
02626
02627
0263fJ
02631
02632
02633
02634
0263'
02636
02637
212640
02641
212642
02643
02644
0264'
02646
02647
2126'0
212651.
02652
02653
212654
212655
212656
02657

TC02BX

140634
140633
100416
20.631
7rl'7544

777400
2140030
2,,.603
~40031

200030
74fl001
140200
6212611
204646
7217544
777776
04003O
204603
0402131
206400
544654
146400
111272
6212777
200634
.40634
560342
602644
204646
602612
204600
107544
101303
6026216
7502104
504567
741200
740040
75000.
504564
740200
602606

TC0281
ISTEP , WRITE BLOCKS TO
IWRONG PARITY
PARTS5 O~M RECORD
OlM OIRF'LG
JMS SEARCH
l.AC (3000
DT)(A
IREAD DATA
BL£NTH
CAC wCL.OC
LAC (BUF'F'ER"'1
OAe CALOC
LAC WCL.OC
CMA
IWAIT FOR
S~A
INEXT TO LAST WORD
JMP , ... 3
L.AC (17000
ICHANGE TO WRITE ALL
OTXA
LAW ~2
IUNLESS cH.RACTER
OAe WCL.OC
LAC CBUF'F'ER'-1
lIS 7777
IwRITE CHECKSUM
OAC CAL.OC
ITO SAME AS OATA
I.AC BU'F'£R
SAO (177700
oeM BUrF'ER
JMS WTF'LGS
IWA STATUS ERROR
JMP WA£RR2
LAC RECORD
lSi! RECORD

SAO. L.SBL.OK
JMfIt ',.3
LAC (1'1800
JMP PARTS5.~
L.AC (GOBIT

ICONt AL.L. BLOCKS
IvES
INO CHANGE BACK
ITO READ OAT A

DT)(A

,STOP TAPE

JMS NEWDRV
JMP PARTS'
I.AS
AND <102121
S2A
IoIL.T
LAS
AND C.0
SeA
JMP PARTS5
.EJECT

lEWD OF' PASS HALT

IREPEAT PASS

PAGE

4'0

TC028X

TC0281
ISTEP 6 PARITY ERROR TEST

18 L.. O'C I( S HAVE BEEN \lriR I TTE~,: TO WRONG PARITY

PARITY ERRORS READ 80TH DIREr.TIO'S
ISTART
D~M DIRFLG
IwITi.! BLOCK
'"
,FORltfARD
JMS SEARCH
IRE AD DATA
LAC (3000
O"l')(A
L.AC (BUFFER""'1
OAe CAL-OC
BLENTH
DAC WCLOC
OTR8.121
IWAIT FOR
SNA
IFLAGS
JMfit .-2
DTR8
SMA
ISHOULD BE ERROR FLAG
JM"P pAF~ERE
INO ERRO~
AND (PARBIT
,PARITY ERROR
SNA
INO
J/'1P PARER£:
L.AC RECORD
IS! RECORD
SAO. L,SBLOK
100NE ALL fORWARD
JMP •• 3
IVES
CLA
JMP PARTS6.~
L.AC (GOBIT
OT)(A
ISTOP TAPE
JMS NEWORV
JMP PARTS6
100 NEXT CRIVE
,EJECT

IS,",OUI..O GET

22662'

t-2661
02662
02663
026c64
~'26&5

02'666

0266'

140634
140633
1il0416
204631
107544
2046'03
040031
71741iH~

0261~

0'421030

02-6'11

7'0'572

02'117'2
02;"'13

6~i6;'11

0'2'87-4

0it:15
02616
~lc671

02';""
02'11
02'02
02103
02'04
0270'
82'06
02'0'
02110
02111
02'12
02'113

'-41.20'21

'''''62

74'0100
6'031221
504600
7412210
6~312"

290634
440634
560342
602710
75000"
602664
204680
'0'544
100383
602660

PARTS6

Di!M RECORD

PAGE

1(029)(

02714

220342

~2715
~2716
~2717

02720
02'21
02722
02123
02724
1212'25
1212'26
02727
02'30
02731
02'32
02'33
02734
02135
1212736
02'37
02740
PJ2'41
PJ2'42
92'43
02'44
92145
02746
02'47
02"0
92"1
92"2
92753
02754
027'5
02'5'
02"7
PJ2'60
02'61
1212762
1212763

~4r,634

777777
~40633

100416
204637
707544
21214603
~40PJ31

777400
12140030
101272
741000

TCPJ291
IREAO B~OCKS BACKWARDS FOR PARITV ERRORS
PART6A LAC. L.SBLOK
CAC RECORD
LAW .1
CAe OIRF'LG
JMS SEARCH
IF'IND IT B,ACKWARDS
ITO READ DAiA
LAC (3000
OT)(A
LAC (BUF"F'ER a 1
CAe CAL.OC
BL.ENTH
OAC WCL.OC
JMS WT'l..GS
SI<P

603132

7PJ7572
244655
740209
693132
777777
340634
04PJ634
'151100
692722
21&')4600

797544
1018303
6212714
150PJPJ4
'04567
...J4I208
74.040
..750004
5PJ4564
74021121
6"266PJ
104124
7,'777
45'644
12106077
602266

PAR6NC

JMP PAAEE1
OTR9.3,1I
XOR (42011210
S!A
JMP PAREE1
L.AW -1
TAO RECORD
OAC RECORD
SMAIOL..
JMP PART6A.~
L.AC (00911
OTXA
JMS NEWCRV

JMP PART6A

L.AS
AND (1000
IIA
HLT
LAS

IFlARITY ERROR ANC DTFlII:I,
INO

IOONE " BACKWARDS
INO DO NExT BL.OCK

ISTOP TAPe:
100 NEXT CRIVE

lEND OF" PASS HL.T

AND (411

S!A
JMP PARTS6
JMS TyPTEX
777177
4"644
6877
JMP PARTST

,EJECT

IREPEAT pASS

,P:AGE

02764
02'65
02'66
02161
02"70
027'1"1
02-'~72

212173
02-"~7:4

02;"·'

TC,02BX

102766
602212
602766
104423
10'4400
2210634
1214461
10433e

1'214447
1041!)3

2127']"6

6:22'766

0.~"'"
03~0:e0

1:027'66

flJa'0t1

2131':'2
213'0;13
030tH

6~-2'6121

104423
104363
10"153
62123'52

2132105
2132106
2132'21"
2130121
03011
03012

1214423
1214363
1214153
1210416
2214615
60.23.,6

213013
0ae14
03"1!
215.1116

1214423

21301"
0321221
213121

,.04353

2210634
1214467
121 ••• 7
104153
62124521

TC0261

IPARI TV TE'STERROR TYPEOUTS
/WRITE ALJ. ERROR TyPEOUT
wAERR2I JMS ~A£RRT
JMP PARTST;4
wAERRT JMP •
JMS STPTAP
JMS TYWALL
LAC RECORD
JMS TVP8LK
JMS T¥PWC
JMS TYSTAB
JMS ERRHLT
JMP. WAERRT
WAERR2 JM'S wA'ERRT
JM;f'

PA~TS5·2

/WRITE OA'T:A E'ARQR TYPEOUT
wDERR0 JMS S1'P1AP
JMS TYWOAT
JMS ERRHL.T
JMP PARWL.P.2
IA~SO A wRITE OATA ERROR TYPEOUT
WOERR1 JMS STP-TAP
JMS TVWOAT
JMS E~AHI.T
JMS SEARCH
LAC (!5lZ1rIJ2I
JMP PARWL.2
IREAO ALI. STATUS ERROR TyPEOUT
RAERRIZI JMS 5TPTAP
JMI TVRAl.1.
LAC ~ECORO
J~5 TV'BLK
JMS TVITAa
JMS tRAMLT
JfI1 P PA RT S3,.2
,"EJECT

r:'AGE

43
03022
03023
03024
032125
03026
03021
03030
03QJ31
03032
03033
03034
03035
03036
0303'
03140
03041
0~"42

03043
03044
03045
03046
03141
QJ3151
03151
03052
03153
"3154

0385'

03"6

03.',

0316.
e3fJ6i
03162

0~"6:S

03164
83165
13166
03.67
0~e70

030'1

TC02BX
1~442J

104353
104124
,,'777
43'300
636555
004562
62772121
200634
104467
2064021
104536
206400
!04652
744000
'412210
1440212
'70000
7414021
246400
11Z14536
104124
104353
006365
55004'
706011
104276
207 IlJIlJ IlJ
184213
104124
43530"
63655'
00624'
414471
104153
200634
4421634
5621342
6flJ2511
602450

TC02B1
ITVr:'E OUT CHECKSUM ERROR
PARCKE JMS STPTAP
JMS TVRALL
JMS TVF'TEX
,.,7777
435300
leK
636555
ISUM
.562
IER
621700
IR17
LAC RECORD
JMS TVPBLI<
LAC BUFFER
JMS -TVOATA
LAC BUrF'ER
AND

("""

CI.I.
SNA
STI.
L,AW 102100
Si!L,
XOR BU"'FER
JMS TVOATA
JMS TVPTEX
4353
6365
550045
106""
JMS TVCRLF
LAC BU'FR2
JMS TYPCON
JMS TYPTEX
435301)

6365"
6245
414477
JMS £RR~LT
LAC RECORD
!S~ RECORD
SAO- LSBLOK
JMP PAR3ND
JMP PARTS3*2
.EJECT

ICK
ISU
1M E
IXP EOM

leI<
ISUM
IRE
lAO [OM

PAGE

TC02BX

TC0281

Q!32'12
032'73
03074
03075
032176
03·07'
03100
03101
03182
03103
03104
03105

1'1l4423
104340
20677'
10 4536
104447
104153

IRElo PARITy ERROR BACKWARD
RDI'£RR JMS STPTA?
JMS TYRDAT
LAC 8UF'F'R2.1
J""S TVoATA
JMS TVSTAB
JMS £RRHLT
L.AW .1
TAD RECORD

7411'1l0
602547
040634
602527

03106
03107
03110
03111
03112
21;5113
03114
0311'
035.16
03117

1&4423
1214340
206400
1214536
104447
200634
440634
'60342
602514
602553

""7'
340634

SPA

JMP PART4A.2
OAe RECORD
JMP PA~TS4.~
IREAO PARITY rRROR ~ORWARD
ROPER1 JMS STPTAP
JMS TYROAT
L.AC BUrF'ER
JMS TYOATA
JMS TVSTAB
L.AC RECORD
lSl RECORD
SAD- L.SBL.OK
JMP PAA4NO
JMP PART4A.2
,EJECT

PAGE

TC02BX

0312t?J
1213121
03122
r2J3123
r2J3124
0312'
03126
1213127
0313121
03131

104536
11214447
21210634
UH153
440634
56121342
61212712
61212662

1213132
r2J3133
1213134
0313'
1213136
1213137
121314121
1213141
1213142
03143
03144
03145
03146
03147
12131'0
031'1
12131!J2
031!J3
031'.
03155
031'6

11213144
21216777
104536
11214447
104153
177777
34121634
741100
60274'
6121272121
603144
104423
104340
1-04124
2116141
62'164
711114'
6262'"
62110.5
70607"
623144

103144
2~640"

TC02B1
ITYPE OUT rOR NO PARITY ERRO~
IPARITY EXPECTED DIRECTlnN IS FiYf)
PARERE JMS PARi--IDR
l.AC 8UrF'ER
JMS TYOATA
JMS TYSTAB
l.AC RECORD
JMS ERRHl.T
ISZ RECORD
SAO. LSBl.OI(
JMP PART6As2
JMP PARTS6.2
INO PARITY ERRORwASwEXPECTED o P~EC BKWD
PAREE1 JMS PARHDR
l.AC eUF'F'R2 ... 1
JMS TYCATA
JMS TYSTAB
JMS [RRiofl.T
l.AW .. 1
TAD RECORD
SPA

PARHOR

JMP PAR6NO
JHP PART6A.~
JMP •
JMS STPTAP
JMS TYROAT
JMS TYPT£X
61141
62'164
711114'
6262'7
62011.'
7"'1177
JMP. PARHOR
.EJECT

IPA
IRIT
IY E
IRRQ
IR E
IXP EOM

!'AGE

TC02BX

TC0281

03157
03160
03161
eJ3162

010rl!0C
020002'
100000

ITABLE: or r'ARITy F"IXED PATTERNS
PARTS!.. 1000~
20000
4021021
100000

03163

200000

213164
0316!5
03166

4~"2J000

21~16?

213170
031'11
031'12
011 '1"3
031'·...
0S'!7"
03~16

031'1'
03100
0~201

~rJI:e'2

0'3213
2132214

0a2S'
03~06

03201

04~000

'160000
'1500210
'1:;50000
6100210
"0000
310000
0101£10
020200
0~Hlj4l00

1'01000
20·2000

.0'.00'0
16'600
"'500
13'3'00
676700
,,5700
313100
00000O

0321~

104431

03211
213212
03213
03114

104124
""71"
111777
641160
450051
56B946
084651
6221"46
516267
416244
,,0000
150000
1213425
544656
'44002
2046et6

O3115
03216

2I~ll1

O3220
03221
03222
03223
03224
03lj!'25
03226
03221
03230
03231
03232
03233
213234

03235
03236
03231

14~400

344601
340631
'107545
204610
0412'031
140030

200000

400000
'160000
'150000
?30000
610000
"0000
31"000
101'lUIJ

20200
4'400
lele0'0
202000
404~HnJ

167600
'1''1500
131300
61"00
''''700
313'00

lEND OF' TABLE
TAPE :5
ITC02 BAstC EXERCIsER
ITC02 BASIC SEARCH ROUTINE 2
IREADS A st~tES OF' 256 BLOCK NUMBERS
IINTO MEMOAv ANO Wl~L PRiNT THEM OR
ICOMPARE ANO PAINT ERRORS
SRCH2R JMS TVPORV
JMS TV'-TEX
'177777
171177
647160
ITVP
4~0051
IE I
5621046
IN F'
I F'O
0946"
620046
IR F'
516267
IORw
416244
lARD
.,,0000
1?7
C1,.A
ITYPE OUT OTHER WAIT KEY
JMS TVOTj.fR
IF' TYPED 1
SAO (306
IYES AC : 4
STL
LAC (SRCHF'W
twAS IT roRWARO
SNL.
INO GO BACKWARD
TAO (DIRBIT
TAO UNF'UNC
OTL.A
LAC (BUF'F'ER
OAe CAl-OC
OlM WCL.OC

PAGE

TC02BX

TCm281

03240
03241
03242
0:5243
03244
0324'
03246
0:5247
032'0
032'1
032'2
032'3
03254

707572
741200
603240
741100
603317
204644
540030
6032';S
707554
440031
603240
20461Zl0
707544
104124

SR2WLP

032'5

OTRS·10

IWAIT FOR FLAG

SNA

Jr.lP .... 2
SI'A

JMP SR2E~T
L.AC (400

SAO WCI..OC
JMP ,.4
OT)(A·10

tS2 CAI.OC
JMP SR2WLP

L.AC (GOBIT
OTXA
S~2REQ

JMS TYPTEX
.EJECT

IERROR FLAG UP
lyES CHECK El
IOONE 256 BLOCKS
IYES
IRESET EN4BL.ES
ISTEP "oaRESS
IWAIT AGAIN

ISTOP TAPE

PAGE

TC02BX

03256
03257
03260
03261
03262
03.263
03264
032·65
032'66
03267
03270
03'271

"'''77
7,,777
647160
450051
560043

0'3.272

0'317'3
213;1-14
03115

12132'16
0~f17

03310

033'1
1213302
033113
033114
033215
PJ3306
03307
0331'''
03311
03312
0~313

03S14
03315
11'3316
0331'
03320
PJ3S21
03322
033'23
03:12.
031,2'
0:5$26
03127
03330
03331

TC2l2S1

~0465"

620043
515560
416245
.,,02100
204605
04121010
204603
040011
"""77
10342'
04012112
104216
206400
104213
104124
46!5162
63641"
2002112
544651
61213332
22102111
5214614
544614
1',..216
221lJ011
11214213
2021121121
44012110
51214660
540030
'41"00
603310
104124
544163
64"00
100303
603210
603210

SR2F'RS

SFtaENO

,'77.,7
717777
64'160
450051
560043
4657
620043
515560
416245
1700'021
LAC (1
OAe 1121
LAC (BUFF'ER!I!1)
DAe 11
LAW ,,1
JMS TYOT~R
CAC 12
JMS TYCRLF'
L.AC BU'rER
JMS TyPCON
JMS TyPTEX
465162
6364'7
LAC; 12
SAD (303
JMP SR2COM
LAC 11
AND (7
SAO (7
JMS TYCRL.'
LAC. 11
JMS TyPCON
LAC 10
IS! 11

ITvp
IE I
C

fa
IR C
IOMP
IARE
IEOM
I

ITYPEOUT
IF'IRS BLOCK

IrIR
1ST [OM

lyES COMPARE

AND (".,
SAO WCLOC
SICP

JMP SR2END,,3
JMS TyPTEX
544163
64170e
JMS NEWORV
JMP SRCH2R
JMP SRCH2R

,EJECT

II.AS

IT rOM

PAGE

TC02BX

TC0281

1213332
03333
03334
0333'
03336
1213331

111711
040012
2046121

SR2COM

0334~

1213341
213342
213343
213344
21334'
03S46
2133 .. ,
033521
03S'1
03S52
03S'3
2133'"
033"
B3S'6
flI3S"
03360
03361
213362
213S63
23364
03365
03366
0336'
0337"
033'1
03372
0:S313
213374
133"
033'6
213377
03 •• '
03'11
03412
213403
213"04
21341'
213'06
213'01

03-11]
0~'11

213'12
213413
213414
2'3415
03416
213'11
034221

~40013

7211552
51214601
7412122121
111177
1412210
221461215
3622111
50460 ..
5621013
62133121
440012
603356
104216
10427'
200011
344661
043357
20 IlHUI 0
104213
104276
2012113
344661
24336'
2211i11i1

IS! 12

10.213

683372 ,,7"7
21421812
440818
200010
'400321
603313
683336
1217"2
50462121
7412121210
104423
12144.,
2iUJ0321

10.467
104124
6321062
~54144

77000"
20210321
344662
1421021
603255
544662
6213210
204605

LAW .. 1
DAe 12
LAC (BUFFER)
OAC 13
OTRA.1"
ANO (DIRBIT
S!A
LAW .1
SNA
LAC (1
TAC. 11
AND ("77
SAO- 13
JMP SR2CM

-SRICM

SRiE!T

JMP ,.'
JMS TVeRLF"
JMS TyeRLF"
LAC 11
TAD (I..AC
OAC ,.1
LAC
JMS TYPCON
JMS TVCRL'
LAC 13
TAD (LAC
OAe ,·1
LAC
JMS T'fPCON
JMP ,.3
LAW -1
OAe 12
lSi iii
L.AC 11
SAO WCI-CC
JMP SRIENO
JMP SR2COM.4
OTRA·l"
AND (GOBIT
S2A
JMS STI'TAP
JMS TVSTAB
LAC WCLOC
JMS TYPBLK
JMS TyPTEX
6321062
454144
710000
l..AC wel.Oc
TAO (777716
SMA
JMP SR2REQ
SAO (7'17776
JMP SRCH2R
LAC (1

ISET FIRST ERROR
IFL.AG

IGET DIRECTION
IF"ORWARD
INO BKWOS IS -1
IBKWO
INO FWD IS +1
ILAST BLOCK + OR ~
IMASK OVER 4096
ISEQUENTIAI..
lyES NUM OK
INEW ERROR
INO STILL IN ARow
IGET LAST BLOCK NUMBER

ITYPE F'IRST IN ERROR
IGET CURRENT

ISKIP FLAG RESTORE
IRESET FIRST ERROR
IOONE ALL

IMOTION STIL~ = 1
lyES STOp TAPE
INUMBER OF' 8L~CKS

IS
IREA
/0 EClM

IREAD 2 BLOCKS
IMORE THAN 2
/READ ANY BLOCKS
I NO, NOT EVE ~I 1
IIF' 1 OR 2

Cl~E

TC02BX

TC02-81

23422
<:3423

0~001r2!
20~663

I THE~j TYPEOUT
DAC 10
180TH
LAC (LAC 8u FrER-1

040011

QAC 11

7342-4

603276

J"rp

2'3~21

SR2n~S-1

,EJECT

/RESTART

A ~'C!

PAGE

03'25

TC02BlC

TC02B1

603425

ITYPE OUT ALL OTHERS tWD OR COMPARE
IWAIT ,OR KEyBOARD FLAG
JMP ,
TVOT~R

~3426

(,,4~H~11

03'27
034321
03'31
03'32
03433
03'34
03'3'
03436
03431
03'421
03441
03'42
03'43
03'44
0344'
03.46
03.41

104124
11171'
415454

03""
03451
03452

~0"64

504562
63~07'

440011
603444
104124
606251
566400
770000
603445
104416
104212
700301
603446
'''0312
744000
62~42'

DAC l'

JMS TyPTEX
777117
415454
5764
504562
630071
!Sl l'

JMP •• 6
JMS TyPTEX
606251
566400
710000
JMP ,.2
JMS TYBKW
JMS SPACE2
.KSF'
JMP ,,,1
KRB
Cll.
JMP. TVOTHR
.EJECT

IAlL
lOT
IHER
IS EOM
ITYPE 8KWD
IPRI
INT EOM

PAGE

TC028X

03453
k13454
03455
034'6
03457
03460
03461
03462
03463

177717
040017
100373
777777
060340

0346A

03465
03,466

034:61
03410

03411
03.72
03473
03414
03415
03476
034'7
03500
03501
0:5502
03'03
03'04
03'0'
03!S2J6
0350'
03'10
0:5511
03J12
03'13
213514
0;'515
03'16

213511

~3520

03621
21~S22

213523
03524

06~341
1003~3

61£'3455
440017
603470
20 4 561
540264
603455
104112

140634
140633
103665
707554
204605
040634
160340
16P.l341
101212
603537
206377
440636
!544605
'41000
603537
060340
140634
,"7"
04"'633
103711
2Z4664
540264
6Z3522
7211552
'211545
'0'512
1421100
6213522

TC0281
1ST ART STOP TURN AROUND TEST
STRSTP LAW ..,1
DAC 11
/3ACK TAPE 11\! T 0 [2
JMS REWDRV
LAW ... 1
DAC. POSITN
DAC. DIRECT
JMS NEWDRV
JMP STRSTP*Z
12NO PASS
IS~ 17
JMP ,.4
IYES
LAC (1102
17 FORMAT TAPES
SAO ElBLOK
/YES GO BACKWARD AGAIN
JMP STRSTP·2
ITIME OUT 500 MSEC
JMS WT~ALF'
ISTART TAPE FORWARD, SHOULD 8E FAR ENOUGIo1
IINTO ~NO lONE TO PICK UP BLOCK "
/FORWARD ON START
STRElF' D!M RECORD
/BLOCK "
IFORwARD
OlM OIRFLG
IFIRST OUT OJ:" £t
JMS STRFwD
OTXA·10
LAC (1
DAe RECORD
INOW GO TO
IBL.OCK 1
021'1* POSITN
DiM. DIRECT
JMS WTF'LGS
JMP STEiER
LAC BLKF'ND
IS! F'RSF'L.G
SAO (1
SKP
JMP ST[~[R

DAC. POSITN

DiM RECORD
L.AW ;:'1
DAe DIRF'LG
JMS TABKWD
L.AC (11Z0
SAO [lSLOI(
JMP ,.3
OTRA.10
DTLA
OTR8.112!
SMA

JMP ,.2
,EJECT

ITURN AROUND
ISHOULD GET
10 BKWDS

IIF 7 FORMAT TAPES
IGO BKWD F'ART~ER
IWAIT FOR E~

~AGE

03~25

03526
03521
0353121

~3531

03532
03533
03534
1213535
03536
1213531
0354~

1213541
1213542
03543

03'44
213545
03546
03'4'
1213'5'
03"1
1213'52
1213553
1213'54
035"
1213'56
1213'"
12135'0
1213'61
03562
1213563
03564
121356'
121:5566
12135"
03"0
12135'1

TC02BX

,,'717
~62l34e

216121341
14121634
11213613
21214600
11211544
100303
61213471
60~544

11210563
104153
16121342'
160341
61213534

",777
12140211'
11214112
22"340
34412121
04.121634
140633
1412112101
34"265
'411121121
60412144
103665
21214600
11211544
11210303
6121354'
4401211'
61213572
"l2IlUI.

51214564
'402021
'62135.6

T00281
INOW TURN AROUND S~OULD pICK UP BLOCK 0 rOR~ARD
ICOMING OUT OF" END tONE
LAW .. 1
DAC_ POSIT".J
DAC- DIRECT
OlM RECORD
100 roqwARo TUR\ AROu~O
JMS TAF'wO
LAC (G081T
DTXA
ISTOP TAPE
JMS NEII/DRV
JMI' STRElP
JMf' STF'WD1
STElER JMS SRE~RO
JMS ERRrfLT
DiM- POSITN
DlM. CIRECT
JMf' STElER.~
ITEST START rORWARO ArTER
Irwo STOP IF" PAST TEST SwITC~
lIS sET MA~E 2 PASSES AN~ PROCEED
ITO COUNT 2 STARTS
ST'w01 LAW .. 1
IIr F"AST TEST = ~
CAe l'
J~S WT~ALP

L.AC- POSITN
TAD SP'WDK
DAC RECORD
OiM OtRF"L.G
CMA
TAO £NCBLK
SPA
JMP ,£ITST
JMS STRrwD
L.AC (G08IT
OTXA
JMS NEWDRV
JI'IP STn~Ol.3
lSi! l'
JMP ,'.,
LAS
AND (40
seA
JMP 5T'W01.2
,[JECT

ISTOI',TAI'£

12ND PASS
I'AST TEST
I~AST

)VES

n::ST

P'AGE

TC028X

03572
213573
213574
03575
213576
03511

1214112
22,Qj 340
344121
040634
177777
0421633
103103
2214'60'"
7217544
10213213
6213573

2136'0'~

2136''01
2136412
036'0;3
036':e4

21360"
2136"0'6
03607
2136'121
213e'11
03'ft12

213613
213614
213615
213616
2136'11
21362"
03621
Qi3622

03623
03624
121362'
1213626
03627

10,4112
22,03,40
344122
04;0634
1421633
10:3665
1217554
4421634
101272
603631
206371
4421636
5421634
1410021
603631
0621340
344562
0421634
111717

21~.321

e!40633

03"31
03:632

103711

03~6'33

101544
1021303
603,605
6213646

03'6'34
121363'
03636

204621~

TC0281

ITEST STARl aKWD AFTER STOP fWD
STBKwl JMS wT~ALf"
ILAST POSITION
LAC. POSITN
/ .. 3
TAO SSKWI<
,S~OULD fIND 8KW!;
oAe RECORD
LAW ~1
OAe otR~LG
1ST ART TAPE
JMS STRSI<W
LAC (G08IT
OT)(A
ISTOP TAPE
,ALL DRIVES
JMS NEWDRV
,NO
JMP 5T81(\II1 ... 1
IT£ST START r~D AFTER BKwD
STrwo2 JMS WTlo+ALF'
LAC. POSITN
TA,O SPWDK2
,SHOULD fIND
,rwo ArTER STP BKWO
CAe R,£CORO
OlM OIRF'LG
1ST ART TAPE
JMS STRF'WD
INOW WAIT rOR 1 MORE BLOCK
lAND 00 A 8KWO TURN AROUND
IPASS OVER
DTXA·ll21
IS! RECORD
11 BLOCK
JMS WT'LGS
,STATUS ERROR
JMP SF'2[RR
SF'2ERT LAC BL.KF'NO
IS~ F'ASF'LG
SAO RECORD
SKP
IWRONG BLOCK
JMP SF2ERR
OAC. POSITN
IBL.OCK ,.1
TAO (1171"
IF'OR TURN AROUND
OAe RECORO
LAW -1
,SET BKWOS
OAC OIRFLG
)00 TURN AROUND
JMS TABKWO
LAC (GOBIT
ISTOP TAPE
OTXA
JMS NEWORV
100NE AI.l. DRIVEs
INO
JMP ST'W02
JMP STBKW2
.EJECT

F'AGE

TC028X

TC0281

03631

200634

SF'2ERR

2!364~

542J264

03641
03642
03643
03644
0364'

604044

12l12'563

104022
10i2J416
603611

03646
"'3641
03650
eJ3651
03652
eJ3653
213654

104112
220340
344123
04eJ634
11111'

036"
036'6
0365'
2136621
03661
03662
03663
03664

4421634
1421633
103613
204600
10'544
10e30J
603646
603544

~40633

103103

l.AC RECORD

SAO E~8L.OK
JMF' tElTST
JMS SRERRO
JtJ.S TyPAl)
JMS SEARCH
JMF' SF'2ERT
INOW TEST START 8KWO ArTER STOP 8K..JD
ST8KW2 JMS WTHALF'
ILAST POSITIO~
LAC. POSITN
1..,5
TAO SBI<WI(2
ISHOUL.D FI~D o~.,;
OAe RECORD
ISTAQT 8KWD
LAW ",1
OAe OIRF'L.G
1ST ART TAPE
JMS ST~BKW
INOW TEST F'WD TURN AROUNO
IfWO TA
rs~ RECORD
ISIoIOULD FINO +1
OZM OIRf'LG
ITURN AR~Ur-,.J
JMS TArWD
LAC (GOBIT
ISTOP TAPE
OTXA
JMS NEW OR V
IDONE Al.L
INO 00 NEXT DRIVE
JMP STBKW2
JMP ST'W01
.[JECT

PAGE

56
~3665

TC2I28X
603665

~3666

2e'4577

03661
03610
03611
03672

340631
1217545
103721
623665

03673
213674
03675
213676
213677

6213673

03'0P1

03701
21;57212
213'213
eJ;J'fj4

03'05
03706
213701
213'121
213711
03712
03713
03114
03'15
"3'16
0:5'11
031221

1211552

7402101
5046210
344601
101544
103121
62:5673
621371213
204576
340631
701545
103162
623703
603711
10'552
1402101
5214600

344601
'21'544

1213762
623711

TC02B1
ISTART TAPE F"ORwARD
JMP
LAC •(SRCHF";<j+ENA8LI
TAD UNF"UNC
1+ DRIVE
ILOAD STAT A
OTLA
JMS SF'TROL.
JMP. STRF'ioJO
/TUR~ AROUND GO FWD
J~p
TAfwD
•
DTRA+1~
1 p" CASE
CMA
IGO CLRD
ANO (G08IT
TAD (OtR8IT
ICOMP DIRECT
OTXA
JMS SF'TROL
JMPo TAF'WO
1ST ART TAPE BACKwARDS
STRBKW JMP ,
LAC (S~CHBW+ENA8LI
1+ DRIVe:
TAO UNF'UNC
ILOAD A
DTLA
JMS SBTROL
JMPo STRBKW
100 TURN AROUNO BACK~ARDS
iABKWD JMI' •
DT~U·10
lIN CASE GO = "
eM4
AND (GOBIT
TAD (OtRBIT
ICOMP D!RECTION
OTXA
JMS SBTROL
JMPo TABKWD
.EJECT
STRF"WO

PAGE

TC02BX

TCel2B1
ICONTROL SEARC~ rWD ROUTyNE
ICOMPARE rOR CONSECUTIVE SLOCK NU~8ERS
/ERR IF' PAST 8~OCK EXIT ~N BLOCK NUM8ER
/

213721
03122
213123
03724
03125
213726
213727
e1373~

03731
213732
213133
213134
213735
03736
213137
213740
213741
213'42
213143
213144
213145
03146
03'41
03750
0j'51
2131'2
031'3
2137'4
2137"
03'756
03'"
213160
213.,61

603721
777777
0a10636
7217554
2214603

SrTROL

214~H~:51

1211212
6213753
206311
4a121636
6213737
5214604
21406:51
6213745
344562
540631
'4121021
6213753
3446o,
21421631
540634
603756
1400211
3406:54
142112121
6213124
1210563
1214022
le0416
2210634
060340
160341
623721

SF'COMP

JMp ,
LAW .. 1
oAC rRSF'LG
DTXA·10
LAC (8 LI( r :~ D
OAC CAl..OC
J~S WTF'LGS
JMP SF'ERRO
LAC BLI(F'NO
lSi! rRSF'LG
JMP ,.4
AND (1717
oAC LSTeLK
JMP SF'COMP
TAD (117711
SAO LSTBL.K
SI(I'
JMP SF'ERRO
TAO ( 1
DAC LSTaLI(
SAO RECORD
JMP SF'ERRO·J

IfIRST BLOCK fLAG

/STATUS ERROR
/rIRST BLOCK
INO

IGET RID Or GARBAGE
ISAVE B~OCK NUMBER
ICOMPARE
ITHIS BI.OCK
11 MORE THAN LAST
IYES
INOT SEQUENTIAL

181.0CI<

L.,OOI<EO F'OR

IYES

Ct-1A

S'ERRO

TAO RECORD
SMA
JMP SF'TROI.·J
JMS SR£RRO
JMS TyPAD
JMS SEARCIof
I.AC RECORD
OAC- !'OSITN
O!M- DIRECT
JMP. SF'TROI.
.EJECT

I!'AST 81.0CI<
INO WAIT NEXT

IN[W !'OSITION
lAND DIRECTION

~AGE

iC~2BX

TC0281
81<WO cO\Jn~Ol.
ICHECK F'OR C~'\ISECUTIVE BLOCK f\!U~gERS
IERROR IF" PAS" dLOCK ""ANTEC'
SBTROL JMP ,
ISET F"IRST
LAW -1
DAe r~SF"LG
lal-oct< "LAG
D")(A"'1'"
JMS WTF'LGS
JMP S8E~RO
IS"ATUS E~ROR
LAC 8LKF'NJ
Ir:IRST BLOCK
lSi! F'RSF'LG
JMP ,.4
1"-:.0
AND (7177
CAe LSTBLI<
/SAVE BLOCK NUMBER
JMf' S·BCOMP
TAO (.1
I"~IS BLOCK
SAO LSTBLK
11 U:SS TI-IAN LASi
SKf'
IVES
J~f' S8ERRO
TAO (717771
OAC LST8l.K
IE)CIT BLOCK
SBCOMP SAC RECO~D
JMP S8ERRO·3
IYES
/SEARC~

03762
03763
03164
0'3765
213-166
03167
0~3 7 7 eJ
03:771

03,.,2
0'3'73

0~'74
f'~175

";3776
0;5'111

0'4'Ql021
zfiJ,4fl01
0111,0·02

603762
777777
040636
,,,,554
101272
604'012
221·6377
440636
-6213776
5214604
04·0:63"
60·4e 121 4
34461215
5.40631
1-4121210
,6-0'·4.012

04003
214004
04005
04006
04007
04010
04011
214012
214013

344562
040637
540634
604015
7421001
340634
741100
603765
12121563
1214022

~tUJ14

100416

04015
0."'16
214011
04020
042121

2210634
06034121
111771
060341
623762

OMA

SBtRRO

TAO RECORD
SltA
JMP SBTROI.·3
JMS SRERRO
JMS TYPAD
JMS SEARCH
LAC RECORD
OAC-POSITN
LAW .1
DAC- DIRECT
JMJ'* SBTROL

,EJECT

IPAST BLOCK
INO

/NEW POSITION
lAND
IDIRECTION

~AGE

TC028X

04022

604022

el4~23

220340

TC02B1
ITY~E

TYPAD

OUT l.AST aLOCK P051TI0\ ANn
JMF'

•
LAC. POSITN

04025
04026

220341

JM5 TyPCCN
LAC. DIRECT

7412~0

5~A

04~21

604032
104416
141000
104411
104124
2'05441
636400
605763
111771
171771
110000
104153
624022

~4~24

04030
04031
04032
04033
04034
04035
04036
04031
04040
04041
04042
04043

H~4213

J~p

.+3

JMS

TY91(~

51(~

JMS TYF'wD
JMS TYPTEX
5441
636400
605163
117111
777771
710000
JMS ERRHLT
JMP. TY~AD
.EJECT

I LA
1S T

11'05
ICI1 LF"

ICR LF"
IE OM

JIRECTtO~

PAGE

TC028X

TCeJ281

IT£ST TURf\; AROUND 30TIoj
IDIRECTIONS ON LAST BL..CCI(

J ~\

TAP€"

1
~4044

777777

04~45

~40011

04046
04047
04050
04051
04052

240633
340265
k:l4t'1634
100416
777777

040~3

06~341

04054
04'05:5
04056
04051
04060
04061

200634
06e340

04~'6'2

04rtM'3
r2!4064
04065
042166
04067
2142110
214011
214012
214073
214014
04015
04QJ'16
04017
04100
04101
04·102
"4103
04104
041,05
041fJ6

04107
04110
"4111

FEtTST

LAW -1

DAC. DIRECT
LAC RECORD
DAC. POStTN
LAC ENOBLK
DAC ~ECORD

20~2&5

040'634
140633
103673
701572
74,0100
604062
204664
540264
604071
4421017
6214075
204600
7217544
604062
771777
060340
040633
103111
204600
707544
10"3t"3
604044
104124
777777
455644
71000"
603453

LAW .. 1
DAC 17
DAC DIRF'I.~
TAD END8LK
DAC RECORD
JMS SEARCH

o~M 0 I R'f'Ui

IFI\J'J LAST 8LJo("1
tWAS BKwO

TA
LAST BLOCK
IF'OR:.;ARD
I~OW

Irl~D

JMS TAlwD

F"EtW£l

OTRe.10

St-1A
JMP ,-2
LAC (1100
SAD ElSLOK
JMP ,.2
tS~

JMP ,.4
LAC (GOBIT
DTXA
JMP F'EZ!wEi!
LAW .. 1
DAC. POSITN
DAC OIRF'LG
JMS TABI(WD
I.AC (G08IT
DTXA
JMS NEWQRV
JMP "EITST
JMS TYPTEX
7"17",
455644
""""fJ

JMP STRSTP
.EJECT

IWAIT FOR

19 F'ORMAT
IYES
12ND E~ 7 fORMAT
IYES
IHIT Ei!
ITwICE F'OR
/7 fORMAT

IINDICATE E~
INOw TA
IrIND LAST BI.OCK
IBACKWARDS
ISTOP TAPE
IDONE ALI. DRIVES
INO
ITYPE END

IRESTART

PAGE

TC028X

TC02B1

~4112

604112

IJUST TIME OUT
IIofALr A SECOND
WTHALr JMP •

~4113

2e 4 665

L.AC (2'2056

04114
04115
04116
04111

~40016

440016
604115
624112

DAe 16
lSi 16
JMP .-1
JMP. WTHAl.F'

0412~

~0~0e5

04121
04122
04123

771775
2l~0003

711173

5
SF'WDI(
117715
SBKWI<
SF'WOK2 3
S8KWK2 177173
ILAST TAPE OF TC02 BASIC EX£QCISER
ITVPE TEXT QOUTINE
IMASSAGE PACKED 6 91T coots
IASCII -24e STORED AF'TER JMS
IS CAR R£T LINE r[£o
17' CIofAR IS rOM
TVPT[X JMP •
LAC- TYPTEX
IS! TYPTEX
OAe TYPSAV
CMA

11"'"

04124
04125
04126
04121
04130
04131
04132
04133
04134
04135
04136
84131
2I~14&!1

604124
224124
444124
0442216
140001
140200
604135
104216
6~412!5

140001
742020
'42820
142820
0442-07

04'141
04142
'4202QJ
04143
'42020
04144
742028
04145 .-- 104163
204207
04146
104163
0414'
204206
QJ 41_'"
S41'51
1S4163
6S4125
84152
04153
QJ415.,4

04'155
04"c156
04151
04162'
04161
04162
04163
214164
04165
04166
04167

S~'

JMf' ,. 3
JMS TYCRL.F'
J~p TyPTEX.1
CMA
RTR

604153
150004
504666
74e200
624153
204153
74210421
624,:153
604163
504667
544667
624124
34467~

RTA
RTA

OAe TYPSAV·1

RTR

RTR
RTR
JMS TYPCIotR
l.AC TYPSAV·l
JMS TYPCIotR
LAC TYPSAV
JMS TYPCHR
JMP TYPTEX.l
ISTOP ON ERROR I~ OELETE SWS NOT sET
ERRHLT JMf' .,
LAS
ANO (6212100"
S~A

TVPCIotR

JMP. ERRHl.T
LAC ERRHLT
HL.T
JMP. ERRHL.T
JMP.
AND (77
SAD (7'
JMP. TVPTEX
TAO (240

TC02BX
2417~

l4171

HH112
624163

TC02Bl
JIo1S TyPCHA
J~P'.

TVPC4R

,E:JECT

~AGE

TC029X

TC0291

214172
04173
214174
04175
04176
04111
0420e
04201
04202
04203
04204
04205
04206

604172
Z442215

TYPCIo,u

JMI'
DAC SAVCMA
L.AS
SPA
JMP. TYPCHA
LAC SAVCHA
TL.S
TSF'
JMP ,-1
TCr
JMP. TYPCHA

SAVCHA
TYPSAV

0
I!I

214201

752'2e4

7411Ze'

624172
20 4 205
700406
100401
6042Z1
7~0402

624112
l00000

2'0000'"
00rlJ0rlJ0

04210
04211
04212

~00000

e00000
000000

rlJ

04213
04214
0421'
214216
04211
04220
04221
04222
04223
04224
0422'
04226
04221
04230
04231

604213
1214244
10 4 265
204212
10 4 265
204211
104265
204210
104265
204207
104265
204206
124265
1042'12
624213

04232
04233
04234
0423'
04236
04231
0424"
04241
04242
04243

604232
10 4 244
204210
104265
204207
104265
204206
10 4 26'
10 4 212

624232

ITVPE CONTENTS OF' THE
lAC IN OCTAL
TYPCON JII1P •
JMS DECONT
JMS TYPOCT
L.AC TYPSAV*~
JMS TyPOCT
L.AC TYPSAV*3
JMS TyPOCT
LAC TYPSAV*2
JMS TYPOCT
l.AC TYPSAV*l
JMS TYPOCT
l.AO TVPSAV
JMS TV"OOT
Jr-iS SPACE2
JMP. TVPCON
ITYPE OUT L.OWEST 3 CHAR
lIN OCTAl.
TYPCOJ JMP •
JMS DECONT
LAC TYPSAV*Z
JMS TYPQCT
LAC TYPSAV*l
JMS TYPOCT
LAC TyPSAV
JMS TYPOCT
JMS SPACE2
JMP. TYI'CQJ
.EJECT

PAGE

TC028X

TC0281

6e'4244
244236

DECONT

e4245
~424!)

74202~

64
e4244

24247

74~02~

0425~

0442e7

04251
04252
04253
12'4254

742"2~
74~02t?!
0442H~

142e20

~42S5

?4e102~

04256

044211
7420212!
7400221
044212
742020
740020
624244
604265
504614
344641
104172
624265
604272
1214124

0~257

04262

04261
04262
04263
04264

04265
042'66
04267
04210
04271
04212
04273
04214
04275
04276
04277
043110
0431111

04302
04:503

04304
04305

04306
04301
04310
0~311

04312
04313
04314
04315

JMP •
DAC TVPSAV
RTR
RAR
DAC TVPS.AV·l
RTR
RAR
DAe TVPSAV*2
RT'R

RAR

DAC TYPSAV"';S
RTR

TYPOcT

SPAC[2

RAR
DAe TYj)SAV*4
RTR
RAR
JMP. DECaNT
JMP •
AND (1
TAO (260
JMS TYPCHA
JMP. TVPOCT
JMP •
JMS TYPTEX

~00011

624272
604216
204671
104172
21114672
104112
624276

JMP. Sj)ACE2
JMj) •
LAC (215
JMS TYPCHA
LAC (212
JMS TyPCHA
JMP. TYCRL.'
ITYPE OUT HEAOERS
IDRIVE X
IOPER OIR MOOE
ITVPE OUT MOVE TAPE
TYMOV£ JMP •
JMS TyPORV
JMS TYPTEX
555766
450064
416045

604304
104431
1"4124
555766
450064
416045
770000
104501
10444',
624324

TYCRLF'

770000

JMS TVPDIR
JMS TYSTAB
JMP. TYMOVE
.EJECT

IMOV
1£ T
IA,PE
ItOM

PAGE

TC028X

04316

604316

04317
0432~

04321
04322
04323
214324
04325
214326
04327
!lJ4330
04331
214332
214333
12'4334
04335
12'4336
04337

04340
04341
04342
04343
04344
04~"5

04346
04341
04350
"4351
".4352
04353
04354
QI~35!5

043.56
04351
04360
04361
04362

104431
104124
634541
624350
770000
1214501
200634
104467
624316
621433~

1!lJ4276
20012'30
104213
1!lJ4124
671643
16770"
624330

604340
1214431
U,4124
624541
440044
416441
7700021
104501
200634
1214461
624340
6214353
10 4431
104124
624541
4421041
545411
104501 '.
624353

TC2I281
ITVPE OUT SEARC~
TVSRCH JMP •
Jt-1S TVPi)~V
JMS TvprEX
634541
624350
770000
JMS TYPOIR
LAC RECORD
JMS TYP8LK
J~Po

ISEA
IRCH
IEOM

TYSRC~

ITYPE OUT COr.,jTENTS OF" WORD COUNT REG
JMP •
TYPWC
JMS TYCRL.F'
LAC wCI..OC
JMS TyPCON
JMS TyPTEX
6116.3
IW.C
167700
I,EOM
JMPo TYPil/C
ITYPE OUT READ DATA
TYROA' JMP •
JMS TYPDRV
JMS TYPTEX
6'24541
IREA
440044
10 0
416441
lATA
7100021
I[OM
JMS TYPDIR
LAC Rt.CORD
JMS TY·'-SI.K
JMP. TYROAT
ITYPE OUT READ AI.1.
TYRALL JMP •
JMS TYPDRV
JMS TYPTEX
624541
IREA
440041
10 A
545411
ILl.; tOM
JMS TYPDIR
JMPo TYRAL.1.
.EJECT

?AGE

TC029X

04363

6,,4363
10 4 431

TC02Bl
OUT I-IRtTE DATA
JMP •
JMS TyPDRV
JMS T'1'PTEX
676251
64451210
44-4164
417100
JMS T'1'POIR
LA'C RECORD
JMS TYPBL.K
JMS TVPWC
JMS TYSTAB
JMP* TYWOAT
ITVPE OUT W'R I TE AL.1.
TYWAL.L J"'fP '.
JM'S T..,',. O:RV
JMS TvprEX

IT'1"P£
043~4

04365

1~4124

04366

616251

04367

64'4500

043'10
043'1'1
04312
04373
04374
043'15
04316

444164
41770/21
104501
20'0634
104467

04'S?"?
04'~:'0

04i .ffft

044"2

04'''':5
elcf~14

04405
04406
04401
04410

lt4330

10 4 447
62 4'3'63

6044130
104431
104124
616251
644500
415454
7700021
1214501
624400

04411
04412
04413
04414
1214415

604411
104124
004661
441700

04416
04417
04420
04421
04422

604416
104124
004253
674477
624416

04423
12144'24
04425
04426
04427
04430

604423
70"52
504600
344625
181544
624423

624411

TYwDAT

616251

64450121
415454
7121000
JMS TYPOIR
JMP. TYWAI.L.
ITYPE OUT F'WO
JMP •
TYF'WO
JMS TY!'TEX
4667
44771U'
JMP. TVF'wD
ITVPE OUT Bf(WO
TYBf(W
JMP •
JMS TVPTEX
4253
674477
JM". TVBKW

ISTOP TAPE ON ERROR
II.£AVE ALL. F'~.GS SET
STPTA' JMP •
OTRA.S,fJ
AND (GOBIT
TAO ( I NHCL.R
OTXA
JMP. STPTM)
.£JECT

/WRI
ITE:
IDAT
IAEOM

IWRI
ITE
IAI.L
IEOM

IFW
10 [OM

IBK
IWO [OM

~AGE

TC028X

24431

62'4431

Z4432

1,,4124
777777
177771
446251
66452121
770000
20Ql641
741200
344571
344641
1&,.172
104276
624431

~4433

04434
214435
04436
~4431
e444~

04441
~44",42

12'44'43
04444
04445

04446
~4447

044.521
214451
~4452

04453
94454
0'4455
04456
044''1
044621
94461
04462
., ·04463
04464
0446'
214466
04467
044721
04471
0!4472
04473
04474
04475
04476
04477
0450~

"60444 ,
104276
707572'
104213
104124
636441 .
640042
00007'1
72121314
104213
104-124
515762
63772121
18.276
104276
624441
604461
044500
.104276
"204500
104213
104124
42545'
435371
624467
0000021

TCk'J2B1
ITVPE OUT DRIVE NUM~ER
IrlRST LINE Or EvERY TvprOUT
TyPDRV JM~ •
JMS TY~TEX
777777
717777
446251
loRI
6645210
IVr.
710000
IEOM
LAC CDRIVE
SNA
TAD (10
TAD (260
JMS TY~CHA
JMS TYCRL,F'
JMP. TYPORV
ITYPEOUT DECTAPE STAT 8
IrOLLOWED By tORS CONTENTS
TVSTAB JMP •
JMS TYCRLr
OTRB·10
JMS TyPCON
JMS TYPTEX
636441
ISTA
649042
IT B
021007'1
IEOM
IORS
JMS TYPCON
JMS TYI'TEX
515'162
IIOR
637718
,S EOM
JMS TYCRLF'
JMS TYCRLF'
JMP. TYSTAB
ITYPE OUT THE AC CONTENTS
lAND THE WORp BLOCK
TYPBL!< JMP •
OAC SAVBLK
JMS TYCRL."
L.AC SAVSL.K
JMS TYPCON
JMS "T"YPT£X
425451
IBL.O
435377
ICK
JMP. TYPBLK
SAV8LK 0
.EJECT

PAGE

Tcra2BX

045"1
04522
04504
04505
04506
04507
0'451"0
04511
04512

6134501
107552
504601
7402021
604510
104411
141000
104416
707552
5·0;4650

0~513

"412'130

045133

04'514
.04'515
0,4516
04'5~11

ITYPE OUT DIRECTION AND t.10DE
TYPDIR JMP ,
DTRA+10
AND (DIRBIT
slA
JMP ,+3
JMS TYF'WO
SKP
JMS TYBI<W
DTRA+10
AND (MODEBT
SNA
JM·P. TYPOIR
JMS TYPTEX
4300
Ie
5'5574·'4
IMOO
457700
IE.17
JMP. TVP01R
lTYPE OUT ~RrfE DIRICTION
wRlOIR JMP •
JMS TYPTEX
6762
I WR .
516464
IITT
455677
lEN £OM
L.AC WRPASO
SlA
JMP ,+3
JMS TyrWO
JM~. WRIDJR
JMS TyBI<W
JMP. WRIOIR
ITYPE O~)'T ACCONTENTS ANO THE
IWORD CATA ArTER CR L.r
TYDATA JMP •
DAC SAVBLK
JMS T'VeRL."
L.ACSAVBL.K
JMSTyPCON
JMS TyPTEX
444164
10AT
4'10.077
14 EOM
JMP*,TYOATA
ITYPE OUT (AC) AND AORS
TVPAOR JMP •
JMS TYPCON
JMS TVPTE:X
414462
IADR
6377021
IS rOM
JMP* TYPADR
,END

6'24'501
1-'04124
0'043'00
"~':.'4

kl'46'20

'451700

0'45021

6'2-4',!i01

04522
'0'4'523
0'4',24
0'4,525
04526
04'27
045313
04531
04-532
04533
04'34
:04535

604522
1",4124
0'061'62
455677
202261
7-402130
604534
1'04411
624522
114416
624522

04536
04'37
04540
04-'41
04542
04543
04544
0'4'5-45
04-546

604536
04.500
104216
20.500
1'04213
1'0'124
444164
410017
''62:4'536

04541
04551
04552
04553
04554

6t4'4l7
104213
104124
414462
63170"
624547

04555
04556
04557
0456e1
04561

116000
2100017
717167
620245
0011212

045'5~

Tcra2B1

~16464

0000"~

ttL

*L
ttL
ttL
ttL

PAGE

TC02BX

e4562
2'4563

777771

~4564
~4565

04566
214567

04570
214571
04"2
04573
04574
04575
04576
04517
04600
214601
04602
214613
04604
214605
214606
21460'
214610
04611
214612
214613
214614
0461'
214616
214617
04620
04621
04622
04623
04624
0462'
04626
04627
04630
04631
214632
04633
04634
04635
04636
0463'
046421
04641
04642
04643
04644
04645
04646
04647
04650

TC02S1

620002

AL
AL
ttL
ttL

40000~

7~7552

~00214el

210100el
1ZJ00343
000010
2'60000
500000
0002210
0021002
061400
2121400
0200021
04el000
121002121
006377
007777
r210~2101

12121000
070000
006.400
2117717
022000
006777
21002107
210521210
0"1117
25252'
52'252
0721707
707010
007210"
001327
00'030"
000100
601365
000037
10142'
181523
. 101411
UH,'26
001410
. ' 0"1406
r,l" 3 a " "
00'317
000260
000030
00021221
021040121
771774
017000
003151
0100210

*L
ttL.
ttL
ttL
ttL
·L
·L
·L
ttL.
*L
*L.
ttL
*L
AL.
AL.
*L
AL.
AL
*\..
AL.
AL.
*L
.L.

*L
*L.
*L.
*L
ttL.
ttL.
·L
ttL
·L
*L.
ttL
*L
·L
AL.
ttL.
.L.
*L.
*L.

.L.

AL.
AL
AL.
AL
*L
ttL
*L
ttL

PAGE

70
~4651

04652
04653
214654
214655
214656
214657
214-6621

TCe281

TC02BX
:'J'12)100
l0770r?l
77"0~0

7777e2
422100
2'0~32'6

?2J~303

'l'J0777

*L
*L
-L
*L
*L
ttL
ttL
oL

214661

2~~000

ttL

04662

777776
206377

ttL.

eJ4663

214664
21 4"6'5
2146-66
214·6-61
214&70
214'6:11
04612

71011.210

ttL

27"2056

ttL

6000""0
""00071

2'00'24-e

000215
21021212

*L
*L
*L
*L

SI~E:214673

NO ERROR LINES

PAGE

TC02BX

APISET
AKIoiDEl

~1345

8UF'F'F~3

~"'74~0

01257
BLENT~ 71140·?
8LKfND 0216377
8LKINC e2262
BLKTIM 7750er
BUffER 0064ee
BUF"F"R2 12l"'7012l~
CAlOC 210"12131
02642
CBIT
CDRIVE 02641
CHI2IERR 01425
CHi ERR 1211421
CH10ER 1211445
CH11ER 1211447
C1ol12E:R 01451
CH13ER 01453
CH14ER 01455
CH15ER 1211457
CH16ER 01461
CH17ER 121146:5
CH2ERR 1211431
CH20ER 1lI1465
CH21ER 01467
CH22ER 1211471
CH2:5£R 1211473
CH24ER 1211475
CH25ER "1477
CH26ER 015211
CH27ER "1503
CH3ERR '!11433
C~30E:R
1211505
CH31£R 01507
CH32E:R 1211511
CH33ER 01513
CH34£R 1211515
CH35ER 01517
CH36ER 211521
CH31ER 1211523
CH4ERR 1211435
CH5ERR 1211431
CH6£RR 1211441
CH7ERR 014.3
ClfAPI 1211526
CLF'CTR 1211542
712112101214
CLOF'
7002144
CLON
CLSF'
7121212101
COOATA 1212142
COERRO 02221
COfLAG 1212265
CQSAME 121221214
DECONT Cl4244
DIRBIT 0412l021{'1

TC0281

PAGE

TC02BX

DIRECT
DIRF'(.G
DIRT9L
norU~'..

0~341
~Z633
~0J53

DTAP!

~1411

DTCA
DTDF'

DTEr

210446
7211541
7217601

7"7561
DTF'SIT 02!010eJ
DTLA
707545
DTRA
101542
IjTRB
1211562
1211544
DTX"
EEt-1
7211102
ENABLI 000400
rNOBLK 00265
ERRHLT 04153
Ei8IT 1'-0:0021
Ei9LOt( 210264
rElTST 214"44
rE:ilojE:~
04062
F'INOAL 01165
F'INOE:~
01212
F'RSF'l.G 80636
GEOATA 02263
GENPAT 011521
GOBIT 0200021
GOCLRD 02rll15
GOTST
00244
GSTPAT 211011
INDATA 02264
IN~CLR

QH!J1300

KRB
100312
KSF"
100301
LEM
101704
L59LO)( 1Z10342
L5TBLK 00631
1.5TTBL. 00363
MOOEBT 010000
MOV9KW 06000fl1
MOVERR 00405
MS9IT5 00643
NDEX
00632
NOEXl
00645
NDTT8L 080256
NEWDRV 0rll3rll3
PAReIT 020"0~
PARCKE 2132122
PAREEl 03132
PARERE 03120
PARHDR 03144
PARLPl 02274
PART8L 213157
PARTST 212266
PARTS2 02345

TC02B1

. PAGE
PARTS3
PARTS4
PARTS5
PARTS6
PART4A
PART6A
PAR~LP

TC028X

'·3
~2446

02523
el260~

2!266e
~2551

02114
2'2354
Ql2376

PARWL2
PAR3t..JD ~2511
PAR4NO 212574
PAR6NO ~2745
PATNUM 2'1160
PATTBL ~1117
PAT0
Pl1127
PATl
01131
PAT2
211133
PAT3
01135
PAT4
0114~
PAT5
211142
PAT6
211144
PAT7
211146
PCF'
721212212
F'OSITN 021340
I'OST91. 00343
F'SA
1021204
PS8
71Z121244
PSF'
70212211
PTTEi!
021"212
F'TTRNA 021646
RA[RRe ~~2113
ReF'
7210102
ROALl. 0213000
ROATAF 212221021
ROERCK 212132
ROEi!l.P 2121'64
ROEi!TS 2121215
ROF'IRS 211636
ROL.ENO 01612
ROLoOOP 01624
ROPERR 03"72
ROPERl 03106
ROSERR 02116
ROSW
022177
ROSWS
212046
ROTERM 01114
RECORO 00634
REWORV 00373
RPASF'L 212257
RRB
7""112
RSA
72121104
RSB
700144
RSE:F'LG "'2262
RS!='
71210101
RSF'ORV 00266
SAV8LK 04500

TC0281

F'AGE
SAVC~A

TC02BX
04212!5

SBCO~P

04"H~4

S8ERRO
SBKWK
SBKWK2
SBTROL
SEARCH
SETUNT

04012
~4121
~4123

0316~

~0416

00322

~F"COMP

03745

SF'ERRO
SF'TROL
SF'WDK
SF'WDK2
SF'2ERR

~3753

213721
eJ4122
94122
03637
SF'2E~T '03617
SNOT'S "0'0544
SPACt2 0·4~72
SRBACK ,'0;12'26
SR8ERR .1'J1:24?
SRCHBW ··06100~
SRCHE.i 00464
SRCHF,.W 2121000
SRCHTS 01162
SRCH2R 03210
SRERRO 00'63
SRERR1 00562'
00113
SRE~LP
SREiTA 00156
SRF'ERR 01202
SR2CM
"3370
SR2ce~
03332
SR2END 03313
SR2ElT 03371
SR2F'RS 03217
SR2REQ 03255
SR2WLP 0324121
STBKW1 03"2
ST8KW2 03646
ST£~ER
03'37
STF'WD1 03544
STF'WD2 03605
STPTAP 04423
STRBKW 03103
STREi!F' 03471
STRF'WD 03665
STRSTP 03453
SWTBLK 00'06
SWTTES 00520
SWT)(IT 1210531
TA8KWD 03'11
1213673
TAF'WD
TAPONT 00635
TCF'
700402
TC02TS 0020~
TIMCTR 00644

TC02B1

PAGE
TLS
TSCT~S

TCe2BX

7~"406
~2212

T5r
7210401
T5TT8!. ~0245
~4416
TYBKIoi
TYCR!." ~4276
TYOATA 04536
TYF'WD
~4411
TYMOV[ 2!4~H"4
TYOT~R
213425
~4022
TYPAD
TYPADR 2'4541
TyPBLK ~4467
TYPC~A
04172
TYPC~R

~4163

TYPCO~

214213
2'4232
04501
04431
l'!4265
04206
04124

TYPC03
TyPOIR
TYPOR\!
TYPOCT
TVPSAV
TyPT£X
TYPWC
TYRALI.
TY~DAT

TYSRCH
TYSTAB
TYWALL.
TYWDAT

UN'UNC

Ql4330

04353
04340
04316
04441
04400
04363
01631

WAERRT 02'66
WAERRI 02764
WA£RR2 02771
WAITAP 01365
WCI-OC 000030
WOERRI 03001
WDERRl 03005
02,024
WO£~LP
WD£~TA
01067
WRAI.L 0052'00
wRARO
01'43
WRE~TS
02021
WRF'IRS 01563
WRIOIR 2'4'22
WRPASO ~2261
WRSERR 02040
WRSWS
01752
WRTERM 02003
wrAP I
~1406
WTF'LGS e'1272
wTHALF' 04112
WTPION f:'I1302
WTTOK
~132?
WTTOUT ~1313
XTOF'LO 01161

TC02Bl

PAGE

TC028X

TC02B1

PAGE

TC028X

WCLOC "~0213e
CAL.OC 0CH""'31
OTF'8n" 0~0102
TC~2TS
C2!2e?·
GOrST
'-"0244
T5TT8L. 021245
NOTT8L 02121256
E~8L.OK

21~264

ENDBLK ~el265
RSF'ORV 21~266
INI-4CLR 21021300
NEWQRV 2103213
5ETUNT 021322
POSITN 0213421
OIRECT 021341
L.S81.0K 00342
I'05T81.. 00343
et2l353
OI'~T81.
L.STTBL. 021363
REWQRV 00313
£NABLI 1211210421e
MOVERR 01341215
SEARCH "21416
OOTURN "0446
SRCIofE~
1210464
SWTBLK 00506
SWTTES 00520
SWTXIT 021531
SNOTF'S "0544
SRERR1 00'60
SRERRO 00563
UNF'UNC ee631
NOEX
0e632
O!RF'L.G -0e633
RECORO me634
TAPONT 1210'35
F'RSF'L.G 00636
LSTBL.K 021631
CORI"E 0rlJ641
12121642
CBIT
MSBITS 021643
TIMCTR "0644
NO£X1
2121645
PTTRNA 210646
PTTEi!
0131212
SRElLP 00113
SREi!TA 00756
ROElL.P 00164
WOEi!LP 01024
WOEi!TA 01216'
GSTPAT 01071
"ArT91. 01117
PAT0
211127
PATl
1211131
PAT2
01133

T02l281

~AGE

TC029x

~AT3

01135

~AT4

PATr;

21114'"
7-1142

PAT6

~1144

PAT?
GENP.,.

("1146

~ATNUM

:31160

XTDF"lO

2'1161

SRC~HS

Z'1162

rINDA\..

SRr;"(RR
F'INDEi

SRBACI(
SRBERR
81(WDEl
WTF'lGS
WTPtON
WTTOUT
WTTOK
APISET
WAITAP
WTAPI
DTAPI
CH0ERR
CHi ERR
CH2ERR
CH3ERR
CH4ERR
CH5ERR
CH6[RR
CH1ERR
CH10ER
CH11ER
CH12ER
CH13ER
CH14ER
CH15ER
CH16ER
CH17ER
CH20ER
CH21ER
CH22ER
CH23ER
CH24ER
CH25ER
CH26ER
CH27ER
CH30ER
CH31ER
CH32ER
CH33ER
CH34ER
CH35ER
CH36ER
CH37ER

~115?!

~1165

211202
2'1212
211226
01247
~1257
~'-1272

01302
01313
~1327

C'l1345
01,::565
01 406
et1411
01425
01 4 27
211431

01433
01435
211437
01441
01443
014.5
01447
01451
0145~

01455
01457
01461
01463
01465
211467

01471
01473
01475
~1477

01501

~1'03

C31505

01507
01511
01513
~1515

211517

i2'1521
01523

TC0281

PAGE
:!..F'API
~~rCTR
",~A~D

. . ~F'IRS
Q':lI..OOP

TC028X
211526
01542
01543
211563
~1624

c:1rI~S

('11636

~OLENO
~!JTERM

~1672

~qSWS

io/~TERM

GOCLRO
wqElTS
w~SERR
R~SWS

ROSW
ROElTS
RQSERR
RQERCK
CODATA
COSAME
TSCTRS
COE:RRO
RPASrt.,
BI.I<JNC

PlRPASO
RSEF"LG
GEDATA
INOATA
CO"LAG
PARTST
PA Rl.P1
PARTS2
PARWL.P

01114
01152
Ql20213
"22115
~2021

~2040

02046
0212111
021215
02116
el2132
02142
1212204
02212
1212221
1212251
121226121
1212261
1212262
'02263

1212264
02265
1212266
1212214
1212345
02354
PARW~2
02316
PARTS3 212446
PAR3NO 02511
PARTS4 212523
PART4A 02"1
PAR4NC 02!S14
PARTS5 212606
PARTS6 ''''2660
PART6A 02114
PAR6NO 1212145
wAE:RR0 02164
wAERRT "'2166
WAERR2 02111
RDAL.I. 00300"
wOERR0 03001
wOERR1 03005
RA£RR0 03013
PARCKE 032122
ROPERR 213012
RDPER1 el3106
PARERE 03120.
PAREEl 213132

TC0291

TC028X
PARj.jDR
P~RTB~

SRCH2R
SR2wLP
SR2RE.Q
SR2F"RS
SR2ENO
SR2COM
SR2C1't1

~3144

213157
0321~
~3242
~3255

23211
'213313
03332
03J7~

S~2E~T

03377

TYOTHR

03425
03.453
0.J 4 71
:121.3537

STRSTP
STRElF"

STEi!ER
STF' WO;~
STBK~1

STrW02
Sr2ERT

e3'4.4
'''.3512
'03605
f):3617
:036'37

SF'2E·RR
·STBKW2
STRF"W,O

·~366·5

TAF'WO

03673

0.3646

STRBKW

03'~3

TABKWO
SrTROi.
SF'COMP

1213111
121:5'21
1213145

SF'E:R~O

-133'153
03'62
S800MP 04004
SBER.RO 04012
TYI'AO
04022
F'[i!TST 04044
F'E! WE~i! 1214062

SBTROi.

WT~ALF'

Sn-lOK
SBKWt(

SF'WOK2
SBKWK2
TyPTEX

ERRHLT
TYPCH·R
TyPCHA
SAVCHA
TYPSAV
TY"CON

TYPC03

DECO NT

TyPOCT

SPACE2
TVCRLF'
TYMOVE
TySRCI-I
TYPWC
TYRDAT
TVRALL

04112
04120
" •.121
04122
04123
04124
04153

04163
04172
04205
04206
04213
eJA232

04244
04265
Q!4272
04276
04304
""4316
04330
04340
04353

TC028X

TYWDAT
TV WALl.

"'4:563

TYF'WC'

04411

~440?

TYBKw
0441t.
STPTAP ~4423
TyPDRV 04431
TYSTA8 04447
Ty P 8LK 2'4461
SAV8LK ~4507
TyPDIR \'4501
WRIDIR C'~522
TYDATA 04536
TYPADR ~4547
WRALL 0'-"5000
BlKP.JD 006377
BUF'fER 02l640i2'
eUrfR2 0~'00~
BUF"F'R:5 02'7400
MOOEBT eJl2112100
GOBIT 020000
PAABIT 02001210
SRC~F'W 021000
ROATAF' 022000

orRBIT 04000~

MOVBI(W-060000
SRCHBW 062,0021
ElBIT 100000
CI.,SF'
700001
CL.OF'
700004
CL.ON
7002144
RS'
700101
RCF'
7021102
RSA
700104
RRB
700112
RSS
71210144
PSF'
700201
Pcr
7002212
PSA
'''0204
P5B
700244
I(SF"
700301
I(RB
700312
Tsr
700401
TCF'
700402
TL5
700406
OTCA
707'41
OTRA
707542
L'TXA

7~7544

707545
707561
1e17'62
1('17601
7t'l7702
7t'l1104
BL)(TIM 715"'00
BI.ENT~ 717400

OTlA
DTEf
DTRS
OTOF'
EEM
LEM

TC02B1

PAGE

TC~2BX

TC~2B1