Digital PDFs

XX-45117-83

March 1971

52 pages

Original

3.9MB

Document:	MAINDEC-08-D8SC-D
Order Number:	XX-45117-83
Revision:	0
Pages:	52
Original Filename:	http://bitsavers.org/pdf/dec/pdp12/diagnostics_set2/MAINDEC-08-D8SC-D.pdf

OCR Text

(

IDENTIFICATION

Product Code:

MAINDEC-08-D8SC-D

Product Name:

DMOl Exerciser

Date Created:

March 26 , 19 71

Maintainer:

Diagnostic Group

Author:

Edward P. Steinberger

The DMOl Exerciser is a program written to exercise the DMOl Data Break Multiplexer to
assure that it can properly interlace data breaks from several peripheral devices to the PDP-8 computer.
It does this by exercising several data break devices simultaneously.

REQUIREMENTS

2. 1

Equipment
Fa mi ly-of-8 Computer and
DMOl Data Break Multiplexer, plus at least one of the following
TC01 DECtape and/or
TC58 MAGtape and/or
338 Display and/or
Extended Memory and/or
RM08 Drum or
DF32 Disk or
RF08 Disk

(

2.2
The program occupies all of the lowest 4K of the computer's memory and uses some of this
area and areas in other memory banks (if available) for data storage.

2 .3

Preliminary Programs
The appropriate diagnostic programs for the data break devices.

LOADING PROCEDURE

3.1

Method
The program is loaded, using the "standard binary loader" technique, into memory bank 0.

•

STARTING PROCEDURE

4.1

Control Switch Settings

The following is a table of AC Switch settings and their action on the program.
AC Switch

Set As

Action on Program

Don't halt on hardware errors

Ha It on hardware errors
Don't halt on data errors

Ha It on data errors

Don't print hardware errors

Print hardware errors

Don't print data errors

Look at ACSS for disk/drum transfer
direction

4
0

Read

Suppress DECtape exercising

None

Suppress MAGtape exercising

None

Suppress disk/drum exercising

0
9

Ignore ACSS
Write

Print data errors

None

1
0

0
11

Freeze memory field

None

(

4 .2

Startir.fJ Addresses
There are two starting addresses for the program.

a. Start at location 00200 when the program is initially read into memory, to allow the
program to interrogate the operator.
b. Restart at location 00201 to avoid re-interrogating the operator about computer
configuration.

4 .3

Starting Procedure
Start the program using the following starting procedure, and ignoring those steps not

applicable to computer configuration.
a.

Load program into memory bank 0 using the "standard binary loader."

b. Mount onto a DECtape transport a reel of DECtape which has the standard mark and
timing track format (2702 blocks, 201 words each). Set the transport selector to 8, set switch to
WiITE ENABLE, set switch to REMOTE.
c. Mount onto a MAGtape transport a reel of MAGtape which is certified to operate at
80(1 bpi with the "write-lock" ring in (able to write). Set the transport selector to 0 and ON LINE.
d.

Set up the DF32, disk O, so that the upper 16K may be written on (not write-lock).

Set up RF08, disk 0, so that uppermost locations may be written on (not write-lock)

Set up RM08 drum so that track 77, sectors 50 to 77 may be written on (not write-lock).

Set up 338 Display so that it can be operated by the 8.

Set ACS to 00200.

Depress LOAD ADDRESS.

Set ACS per Section 4.1 (normal setting is 0000).

Depress ST ART.

(256K).

(

I. Answer questions asked by program with "Y" for Yes, 11 N 11 for No, and number of
extra memory banks (between l and 7) (if applicable).
m. After interrogation is complete, program will start exercising the devices whose answers
are "Yes" and the DMOl.

OPERATING PROCEDURE

5. l

Operational Switch Settings
See Section 4. l

•

5.2

Subroutine Abstracts
None

5 .3

Program and/or Operator Action
After setting up the 1/0 devices and answering the questions asked by the program, the

operator need perform no other action unless an error occurs. If a particular device consistently has
errors, it may be "turned off" by setting to 1 its ACS (see Section 4.1, ACS 6-8).
6.

ERRORS

6 •1

Error Typeouts
Since all error typeouts occur with the program interrupt facility off, a DECtape timing

error will generally occur if any non-DECtape error has been typed out. Normally, the DECtape
timing error can be ignored under these circumstances.
6 . 1. 1

Hardware Errors
Hardware errors cause an error status typeout for the device in error. Shown below are

the error status bits for the various devices.
6. 1 . 1 . 1

DECtape Error Status (TCOl) -

I o I 1 I 2 I 3 I 4 I 5 I 6 17 I 8 9 I 10 I 11
Ertor Fla~~~t
Memory field register
f
Mark Track Error
I. .
E d fl
n
ape

6.1.1.2

Timing Error
Parity Error
Select Error

DECtape Flag

MAGtape Error Status (TC-58) -

I o I 1 I2 I 3 I 4 I 5
E~orFla0~'

Tape Re:indi~
Beginning of Tape
· Illegal
Parity Error
End of Fi le - - " '

t_ MAGtape FLAG

Bad Tape
Data Request Late
Record Length Incorrect
- - - - - - - R e a d Compare Error
...__ _ _ _ _ _ _ End of Tape

I
I

~
i

•

6 . I •I .3

Drum Error Status (RM08) 6

t ~ta

I a I 9 I ~o I 11

Ti ming Error
Parity Error

6. l .1 .4

Drum Sector Counter

Disk Error Status (DF32) -

I o I l I2 I 3

s I 6 I7 Ia I 9

tPhoto-Sync

Computer
Extended
Address

Mark

lParity Error

~Non-existent Disk/
write-lock on
Data Request Late

Disk Extended
Address

6.1.1 .5

Disk Error Status (RF08) 7

P~oto-s~1
Mark., .. -,

Interrupt
Enable
Buffer

Data RQ
Enable
Write Lock-on

(
6.1.2

I 8 I 9 IJO I 1I

Computer
Extended
Memory

LParUy &.or

Non-existent Disk
Data Request Late

Data Errors
Data error typeouts present the following information:

6 .2

Offending Device (DECtape, MAGtape, DISK/DRUM

Memory Field in which error occurred

Address of "Good" Data ("GADD")

Good Data ("GOAT")

Address of "Bad" Data ("BADO")

Bad Data ("BOAT")

Error Halts
Each error, which has an error typeout, also has an error halt.

---------·-~·-

--~·~·q~------~------~--

--·

-·----·~"

9.3

DECtape Exercising
The exercising of DECtape follows this procedure:

a. Six hundred (octal) words are obtained from a random number generator and are stored
in an output buffer in memory (some memory bank). This is done with PI off.
b.

The block to be sought for writing is incremented by 3. It is initially 0.

c. The data is written on DECtape into the selected block (and the two following). While
this is taking place, the Pl facility is turned on to allow interrupts from any 1/0 devices in use.
d. After the data is written, the information is read back from the selected block (S) into
an input buffer in the same memory bank data was written from. This takes place with Pl on.
e. The data written is compared with the data read to see if any errors occurred. This
is done with the Pl on. Any discrepancies will be reported on the teletype (unless suppressed) and
wi II cause error halts (unless suppressed).
f. A new data field is selected for data transfer for DECtape. The program then returns
to Step a (above).

9 .4

MAGtape Exercising
The exercising of MAGtape follows this procedure:

a. Six hundred (octal) words are obtained from a random number generator and are stored
in an output buffer in memory (some memory bank). This is done with the PI on.
b. The data is written on MAGtape in an area not previously written on by this program.
While this is taking place, the PI facility is turned on to allow interrupts from any 1/0 devices in use.

c. After the data is written, the information is read back into an input buffer in the same
memory bank data was written from. This is accomplished by rewinding the MAGtape to "BOT,"
spacing forward as many records as necessary to get to the data, then reading it into memory. This
is done with the PI on.
d. The data written is compared with the data read to see if any errors occurred. This
is done with the PI on. Any discrepancies will be reported on the Teletype and will cause error halts.
e. The data on MAGtape is then "Read Compared" against the data in memory. This is
done with the Pl on. Any discrepancies wil I result in the hardware error "Read Compare Error".
f. A new data field is selected for data transfer for MAGtape. The program then returns
to Step a (above).

9 .5

Disk/Drum 1 Exercising
The exercising of disk/drum follows this procedure:

a. Six hundred (octal) words are obtained from a random number generator and are stored
in an output buffer in memory (some memory bank). This is done with PI on.
b. The data is written on the disk/drum into the highest 601 (octal) locations (on disk/drum O)
(265K). While this is taking place, the Pl foci lity is on.

I
1:
I

(

6.3

To recover from an l:lrror halt, depress CONTINUE. If it was a data error, the program will
continue until another data error is found for the device, or until all the data has been checked. If
it was a hardware error, the program will attempt to perform the function again, except a non-existent
disk error which is not recoverable.

RESTRICTIONS

7. l

Starting Restrictions
None

7.2

Operating Restrictions
None

MISCELLANEOUS

8 .1

Execution Time
Not applicable. Since this is an exerciser program, it does not stop on its own accord,

(

except for errors .

PROGRAM DESCRIPTION

9 .1

Interrogation
The first function that is performed by the program is interrogation. The operator is

questioned by the program to determine what peripherals are to be exercised.

9 .2

Initialization
Next, initialization takes place. Random memory fields (if applicable) are selected for

the devices being tested. The DECtape is initialized by causing it to move to the end zone at the
beginning of tape. The MAGtape is initialized by causing it to rewind to the beginning of tape;
tests are also made at this ti me to assure that the tape control is ready and that the tape transport is
also ready (and exists). A two word transfer is made to disk or one sector to the drum to initialize it.
The 338 Display is set up to execute a display program.

c:\

------~~~~~·--·--~..,.--~-~---------

c. After the data is written, the information is read back into an input buffer in the same
memory bank data was written from. This takes place with the PI on.

d. The data written is compared with the data read to see if any errors occurred. This is
done with PI on. Any discrepancies will be reported on the Teletype and will cause error halts.
e. A new data field is selected for data transfer for disk/drum. The program then returns
to Step a (above).

If a hardware error occurs during any function of a peripheral, that function will usually be
attempted repeatedly unti I it is successful, or the operator intervenes.

9 .6

Data Buffers Memory Map
The following locations in each memory bank being used for data transfer are used as buffer

areas.
DECtape Output Buffer

3200 - 3777

MAGtape Output Buffer

4000 - 4577

Disk/Drum Output Buffer

Buffer

4600 - 5377
5400 - 6177

MAGtape Input Buffer

6200 - 6777

Disk/Drum Input Buffer

7000 - 7577
,,-~,,

9.7

Display Exercising

simply. The 338 is initialized by clearing

The exercising of the display is handled

the "initial conditions", and the break field is set to 0. The display address register is then set to the
starting address of the display program. The display program, which is written in 338 display instructions, causes a square, with corners at 100, 100; 100, 1700, 1700, 1700, 1700. 100; to be displayed
in vector mode. Diagnosis of display errors is visual.

~-----,

----

PALU

EXERCISER • TAPE 1

V141

24-MA~
i

€161!13
6605
6611
6612

66:1.5
6621

6622
8624
6612

/OM01 EXERCISER • TAPE 1
/IOT DEFINITIONS
/DRUM
ORCR:6603
DRCW=6605
DRCF=6611
DREF=6612
DRTS=6615
ORSE=6621
DRSC•6622
DRCN=6624

ORES=6612

{1~24

DRF'S:6624

6601

OCMA=6601
OMAR,.6603
DMAW=6605
OCEA='6611
OSAC=6612
OEAL=6615
OEAC1;6616
OF'SE=6621
OF'SC=6622
OMAC:i6626
OCIM=6611
OIML=6615
OIMA=6616
0XAL•6643

/DISC

i
l

(1~03

6605
ti611
6~12

{1615
(1616
66~1

6622
ftf)26

Miu
4615

6616
6~43

/TC01

6761
6762
~764

6766

6771

6772
6774
6701
6711
6721
6712
6714

6716
6706

ti722
6201
6202

6214
6224
6234

OTRAJ&6761
OTCA=6762
0TXA•6764
OTLA=6766
OTSF'=6771
OTRB116772

OTLB=6774

/TC58
MTSf":i6701
MTCR=6711
MTTFh6721
MTAF=6712
IHCM:6714
MTLC=6716
MTRS=6706
MTGQ=6722

/EXTENDED MEMORY
eoF=6201
CIF=6202
RDF'=6214
RIF=6224
R!B=6234

~;:t'

"''" .,'

PALU

/OMl1J1 EXERCISER • TAPE l
6244

11141

24~MAR·H

tU9

PAGE 1•1

RMF'z:6244
/DISPATCM TO Pl SCAN FLAG ROUTINE

11l011!1
111002
011l03
"01!14
llli1llll5
02106
f/J01?J7

0020
0021
H22
0023
21024
lll025
l/Jel2 6

H27
011J30

•1

a6H

SCAN
/POINTERS, GOBS OF POINTERS
PNTR1, ME SAGE
PNTR2, INPUT
PNTR3, RANGEN
PNTR4, GET
PNTR5, OODA TA+6

2321
2254
2400

~554

2726

0020
011100
0000
elHf!I
iti3fll

2654
2720

15fU
2,461

1'416
1~H

fl032
(11033

2643
1735

IU34

21755
2637

llJel :s 5
2111J3 6
H37
11!040

2112
2641
2,2411'1

011141
H42

1255

""
43
01U4
0045
0046
0047
UH
H51

1047
2217

11!052
011Hi3
0054
0055
0086
0057
0060

0061
0062

11!063
11!064
0065

011H:l1
§402

a444
2,067

2645

1266
2~63

061110
0610
0627
(il644

111662

2634
1331
1343
0345
0365

JMP I

•20

OTFELD•
MTF'ELD,
ODF'ELD•
PNTR6,
PNTR7,
PNTR8,
PNTR9,
PNTR101
PNTR1l1
PNTR12•
PNTR1J,
PNTR141
PNTF0,5,
PNTR161
PNTR17,
PNTR181
PNTR19,
PNTR2rlJ1
PNTR2:J.,
PNTRn,
PNTR23,
PNTR24,
PNTR25,
PNTR32,
PNTR33,

(/J

"
el

/DECTAPE EXTENDED MEMORY PIELD
/MAGTAPE EXTENDED MEMORY F'IELO
/DISC OR ORUM EXTENDED MEMORY F'I[LO

EXIT

RANO:S

DO DAT A

RF'08WR
RF''18RO
RM08WR
RMHRO

OOF'LAG

OF32WR
OF'32RD
OiF'LAG
SPC:F'WD
MTf"LAG

REWlND
MT ERR
RAN01
OTRITE
!HREAD
PRINT
TYPE

MTWA IT
CRl.F

PNTR34, OECTAP

PNT'R:55,
PNTR36,
F'NTR38,
PNTR39,
PNTR4r1J,
PNTRU,
PNTR42.
F'NTR48,
PNTR49,

MACT'AP
RMH
OF'32
RF08

MEMORY
OT SAVE

OTREST
NOO!SC
015338

3000

PMESS11 MESS01

,,565

PMESS2, MESS02
PMESS3, MESS03

2171

, +1

r-~~
'-',1

~ EXERCISER ~ TAPE 1
'

PAl.111l

0066
0067
0071/l
0071
0072
0073
0074

~371

3132

MESS04
MESS1i'!6
M£SS07
MESS11J8
MESS09
MESS10
PMES15, MESS15

21075

1750
7751
1752

K775'1J,
K7751,
K7752,

0076
0077

1770

2565
:5040
:5046
3055

0U!l1l

1753
?754

K7753,
K7754,

01'!12

1755

K7755,

fll1fll3

[!l41l!f21

Kfil400,

0111.14
21111J5

0200
12rlll'J

K!Zl200,

1211Ill6

~177

BUFF1,

0U57

,377

BUFF4,

0110
0111

21014

l!l117

0U0
lil121

K7200,

7750

7751
7752
7753
7754
7755
401!1
201!1
7200
3177
5377

K0014,

U77

BUFf5,

14
61'7

~717

8UFF'2,

6777
4;;77
'?775

BUFf6,
BUF"F-3 •

3777
6711
4577

MllHotaJ,
M0316,
M0331•

·316
"331

?462
11147
5U 0
7774

/24 RM08 DRUM SECTORS

~12

/MASK FOR MEMORY F!ELD BITS
/MASK FOR DECTAP£ SUPPRESSION
/SPACE
/CR
ILF'

"40

/•CSPACEl

IZl215

0212

K0241!l,
K0215,
K0212•

lll130

011llll7
1741!1

K0007,
M0041ZJ,

0100

K0100,

100

Ki000,

10
1000
70~

K!iH1!40,

2411J

215

12!132
11l133
0134

1610

11l1:55
IH36

1!?!010
1000

l!i1:; 7

0700

:)!SCEt.,,

0140

1177
1750
t>J0'7

DI SCAD• 7177
ORUMAO, 7750
TRACK, 77

0500

INTERN, 500
AC•

0000
0000

/REVERSE DIRECTION <DECTAPE)
/GO, STOP <OECTAPEl
/•600 CSllE OF DATA TRANSFERS)
/(DECTAPE OUTPUT BUFFER> ·1
/COECTAPE INPUT eurF"ER> ei
/REWIND. ENAB~E CMAGTAPE)
/(MAGTAP£ INPUT BUFFER> e1
/(MAG TAPE OUTPUT ~UFFERl ~l
l(OISC OR DRUM INPUT BUFtER) -1
/(OISC OR DRUM OUTPUT BUFFER) 1
/MINUS 3
/MINUS N
/MINUS V
/MlGMEST DECTAPE BLOCK TO BE USEO

70
40

0126
0127

11J011J0
11HiH1l0

/CA - TClH

3000

0144
lll145
lll146
0147

1wc - rcru

K01Z171ZJ •

-2701ll

i0'10
U40
0240

fl!l 41
0142
0143

DISC
DISC
TC58
TC58

.. 4

0123
l'JU4
0125

0020

/WC /CA •
/WC /CA -

M2702J,
tiHH'l04,
K300Ql.

0122

0131

24-MA~

PMESS4,
PMESS61
PM£SS7,
PMESS8,
PMESS9,
PMES10,

l/l:l.01

0112
0113
flll 14
21115
0116

\1141

SKIP,
K0020,
K001f(),

l. INK,

SKP CLA /MAGIC INSTRUCTION

"'0

OTSTAT, 0
MTSTAT, 0

/MASK fOR MAG TAPE SUPPRESSION
/MASK FOR DISC OR ORUM SUPPRESSION
/MASK FOR TC58 BOT

/DlSC EXTENDED ADDRESS (oF 3~;
/DISC ADORESS
/ORUM ADDRESS <RM08)
/DISC EXiENOED ADDRESS <RF08)
/INTERRUPT ENABLES CRF08l
/AC AT Pl
/LINK AT Pl
/DECTAPE STATUS
/MAG TAPE STATUS

PALU

/OMl1 EXERCISER " TAPE 1
01U

0152
01!53

000RJ
0000
fiJlil 1!10
5451
5452

eu;1
I

0154
llJ155

0156
01§7

5453
§454
5455

llJ2QIB

•200

020el

,207

l'IJ0H

160!i1J

0167
§!1170

0171
0172
IU73
0174

g0H

l'IJ510
0526
0517
0000
0000
1!'000
001110
'11000

e21u ess0

START,

/MAGTAPE LOOP COUNTER
/OlSC OR ORUM COUNTER
/BLOCK LOOKED fOR

JMP

IN TERR

el2eJ2

100111

0
t

0203
212f/l4

lllel00

Ill
0

tBH

1!12eJ5

611l01

21206

!1211J6

lt'J2Ql7

72"8

02Ul

~201
~202
~21113

lll211
fl212
0213
111214
0215
fl216
0217
0220
0221
fll222
0223
0224
0225
0226
11!1227
'1J23el
0231
0232
0233

:1204
1063
4403
~064

4403
•.S27

!1225
5216
11.54
:$201
"066

4403
4327
5234
5225
1155
3202

PAG[ 1•3

e0eie

0162

9119

/NUMBER OF RECORDS WRlTT£N ON MAG TAPE
/ORUM OR DISC STATUS
/DRUM SECTOR COUNTER
/CMAAACTER FROM KEYBOARD
/JUMP TO DECTAPE STARTER
JMP ! PNTR34
/JUMP ro MAGTAPE STARTER
JMP I PNTR35
/JUMP TO ~M08 STARTER
JM!' I PNTR36
/JUMP TO DF32 STARTER
JMP I PNTR38
/JUMP TO RFlll8 STARTER
JMP I PNTR39
JMP I PNTR49
/NUMBER or EXTENDED MEMORY t!ELOS
0
OTEXER /POINTER TO DECTAPE EXEReISOR
MTEXER /POINTER TO MAGT!PE EXERCISE~
RM08EX /POINTER TO RMfllS ORUM EXERCISER
Of'32EX /POINTER TO DF32 OlSC EX£RCISE
RF08EX /POINTER TD RF08 DISC EXERCISER
/DECTAPE LOOP COUNTER
Ill
/TEMP STORAGE
0

0115

!5462

0163
fJ164
0H>5
. 0166

~~'~-..:::.~-

JMP032,

24•MAR•71

l!l
l!l
0

JMPR08,
JMP338,
'ELD,
OTPNTR,
MTPNTR,
RMIZl8FR1
OF32PR1
RFIZl8PR,
OTCNTR,
TEMP,
TEMP11 0
MTCNTR,
OOCNTR, 0
i.,OOK,
0

0160
0161

RECORD,
ODS TAT,
ORMSEC,
CHAR1
JMPOEC1
JMPMAG,
JMPRM8,

V141

!ON
JMIJI

/JNTERROGAiE OPERATOR
/(DECTAPE> TMESE AN0 1 S MAY BE R£PL.ACEO
/(MAGTAP[) BY JUMPS
/CClSC OR ORUM) rr TMESE DEVICES ARE AVAILABLE
/(338 DISPLAY)

/TURN ON PI
/IDLE HERE WHEN THERE IS NOTMING BETTER TO 00

/ l NH:RROGA TE THE OPERATOR ABOUT MACHINE CONrIGURAilON
/INITlALliE STARTER JUMPS TO ANO S
l NT ERR, Cl.A
OCA START+1
OCA START+2
OCA START+:S
OCA START•4
TAD PMESS1
/TYPE OUT HEADER
JMS I PNTR1
ASK11
TAO PMESS2
/ASK OPERATOR ABOUT DECTAPE
JMS I PNTR1
JMS TEST
JMP ASK2
JMF ASK1
TAO JMPOEC
OCA START+1
ASK2,
TAO PMESS4
/ASK OPERATOR ABOUT MAGTAPE
JMS I PNTR1
JMS TEST
JMP ASK3
JMP ASK2
TAO JMPMAG
DCA START+2

(;~
.f

t:""\

EXERCISER

··~-·

~ TAPE 1

PALU

ASK3,

121234
0235
0236
0237
0240
0241
0242

1065
44t/J3
4327
5243
5234

0243
0244
121245
0246
0247
1212§0
121251
0212
02!3
0254
1212§5
121256
121257
121200
fl261
fl262
1263
9264
0265
111266
111267
02'10
el2'11
0272
21273
0274
0275
111276
0277

Ul67
4403
4327
5253
5243
1156
3203
§272

ASK4,

~fll70

ASK51

~161

3204

4403
4327
§263
5253
i157
;,4203
!j272
1fll'11
'41113
4327
5272

§263
U60
3203
1012
44"3
4327
!i303
5272
;L 0'13

111301
0302
03QJ3
0304

4403
4404
!i277
1104
7006

0305

3162

0306

4450

0 300

0307

0 3 U'I
0311
0312
0313
0314

ASK61

:1,134
3000
1115
3'1l10
4405
llJ123

ASK7,

V141

24-10

TAO PMESS3
JMS I PNTR1
JMS TEST
JMP ASK4
JMP ASK3
HO JMP338
DCA START+4
TAD PMESS6
JMS 1 PNTR1
JMS TEST
JMP ASK5
JMP ASK4
TAO JMPRM8
DCA START•3
JMP ASK7
TAO PMESS7
JMS I PNTR1
JMS TEST
JMP ASK6
JMP ASKS
TAO JMPD32
DCA START•3
JMP ASK7
TAO PMESS8
JMS I PNTR1
JMS TEST
JMP ASK7
JMP ASK6
TAO JMPRfllB
OCA START•3
TAO PMESS9
JMS I PNTR1
JMS TEST
JMP ,+6
JMP ASK7
TAO PMES10
JMS I PNTRl
JMS I PNTR2
JMP ,-3
RAL CLL

91:13

/ASK

OPEJ.IHG~

/ASK OPERATOR ABOUT

"''
AB ''

'1:08

/ASK OPERATOR ABOUT DF32

/ASK OPERATOR ABOUT RF08

/ASK OPERATOR ABOUT EXTENDED MENORY

/ASK 110W MUCH
/POSITION BITS

RTl..

DCA F'ELD
JMS I PNTR33
/LOAD EXTENDED MEMORY F'IELDS F'OR
/DECTAPE, MAGTAPE, AND DISC/ORUM
TAD K0020
DCA 0
TAD MIHHl3
DCA 10
JMS I PNTR3
AND K0070

/STORE NUMBER OF EXTRA MEMORY
/CR-LF

BA~KS

/OMl1 EXERCISER ~ TAPE 1

al315

~40111

CCA I 0

0316
0317
032121
0321

U62

TAO F'ELO
CIA
TAD I 0

0322
0323
0324
8325
111326
0327
833111
0331
0332
18333
0334
9335
fJ336

0337

7740

SMA ScA CL.A
JMP

2000
2010
5.313

!Si! l1l
! Si! HI
JMP ,-12

5201
~000

611'32
4406
:U53
~153

i116
7650
!J727
2327
1153

11J345
11J346
0347

1290

11J3!i2

1!353
11!3!14
11J355

0356
11J357
0360
1!361

76511J

2327
1727

6616
711lH
:S151

1151
7012

762111
!J423
t364
441113

ti51

•445

0362

44511J
141112

11J363
1364

5362

3062

t/J365
0366
21367
0370
0371
t/J372

121110

0373

0374
0375
0376

\1141

5313

1117

11J351

- ---=-~~-'°'-~"',~Aj,,.__ ,

1400

0340

030

7041

0341
0342
8343

fl344

PAl..U

6145

1330
6155
7200
1376
6165
7200
5205
3161

TEST,

24-MAR-71

9119

PACI'. 1•5

, -7

JMP START•1
0

KCC

JMS ! PNTR4
DCA CHAR
TAO CHAR
TAD M0316
SNA CLA

JMP I TEST
JSl TEST
TAD CHAR

TAO M0331
SNA CU
!Sl TEST
JMP I TEST

/N-Nt/J?

/YES
/NO, INCREMENT

/Y•YES?

/YES, INCREMENT
/THEN on

/PROCESS POTENTIAL NON-EXJSTANT OJSC ERROR
NODISC, Ct..A
/READ D!SC STATUS
OEAC
NOP
OCA ODSTAT
TAO DOST AT
RTR
/NON~EXISTANT DISC ERROR7
SNL. CL.A
/N01EXIT
JMP I PNTR6
/Y[S, TYPE our H£A0ER
TAO PMEiU
JM! I PNTR1
TAO DDS TAT
/TYPE our STATUS WORO
JMS I PNTR24
/CR•LF
JMS I PNTR33
/STOP
ML.T
/NON-RECOVERABLE ERROR·RESTART
JMP , -1
PME11A, MESS11
/338 DISPLAY STARTER ROUTINE
015338, CLA
/S~T DISPLAY INITIAL CONDIITIONS TO tlJ
6145
/S(T AC TO 400111
CL.A CLL CML RAR
/CbEAR BREAK FIELO REGISTER
6155
CLA
/GET STARTING ADDRESS Or 338 PROGRAM
TAO • •4
/LOAD DAC
6165
CLA
JMP START•5
PR0338

(

"
.. / '!

I~ EXERCISER
'

/,/

TAPE 1

14!irn

PAL:l.0

11141

24-MM~ - -

F..

•400

/DISC OR DAUM EXERCISER
04011l
0401
0402

l<'l403
0404
0405
0406
0407
0410
04U
0412

0413
21414

'1200
6601
1l33
3407

DDEXER,

Cl.A
661'51

/Cl.EAR Er

7604

rAD SKIP
DCA I PNTR5
LAS

0135
7640

AND K0010
SH CLA

5423

JMP I PNTR6
L.AS

7604

010 4
1640
5365

/BIT 4 SET?
/SAVE PI STUFF

0416
0417
0420

i114

TAO 8UFF3

lll421

3014

OCA 14

0426

ii05

ION
TAO K72f21121

311115

OCA 15

1022

3226
4424
6201
~414

04;Jfll

6201
2015
§225

0431
0432
0433

OCA

,•2

JMS I PNTR7
CDF
OCA I 14

cor

IS! 15

JMP ,·5
IOF
JMS ODREST

~01112

0434

11347

04S5
0436

§235

OORITE, JMP

(16"1
7604
ll35
7640

6601

!5423

JMP I PNTR6
JMP ,

lll4:37

04411!
0441
0442
0443

/YES

TAO ,+6
TAO DDFEL.D

1230

0427

JMP ODLOOP
JMS DDSAVE

0415

~Has

I SUPP RES S D I SK 0 R C' q le · ?

/YES, EXIT

ANO Kl1l2f210
Si!A CLA

4335
6001

0422
0423
"424

AND DONE

/STORE

DATA IN OUTPUT BUFFER

/OONE
/NO

/RESTORE PI STUFF

/WRITE DATA ONTO DISC OR ORUM
/CLEAR f"LAGS

LAS
ANO Kf210Ul

l.ll445
0446

4335
U~H

ION

0447
04!50

1114

TAO BUFF3

/SUPPRESS DISC OR DRUM?
/YES I EX tT
/READ DATA FROM DISC OR DAUM
/CLEAR FLAGS
/SAVE PI STUFF
/TURN ON INTERRUPT
/OUTPUT BUF"FER

3014

DCA 14
TAD 8UFF6

II NPUT BUF"F"ER

DCA 15
TAD K7200

/COUNT

0444

5243
6601

Ill 4 !51

1113

0452

31H5
1105
3174

0453
0454
0455

0456
0457
f/J4611l
0461

SH CLA
ODREAD1

6601

JMS DDSAVE

DCA DDCNTR

1264
11r.122

TAO DOFELD

TAO , +7

3260

DCA

6201

CDF

, +1

1414

TAO I 14

/COMPARE DATA

our WITH DATA IN

~·--

/OMZ1 EXERCISER
11462
0463

TAPE 1

PM.10

7041

CIA

2,415

TAO l 15

\1141

l!l464

62'31

cor

0465

7440

4425
2174

JMS l PNTR8
I Si! DDCNTR
JMP . -10
LAS
RAR
Si!L CLA

0466

0467
0470
0471
0472
0473
0474

0475
121476
llJ477
111500
0511
05flJ2
1503
0504
0505
0506
11151117

5260

7604

7~10
1~30

JMP ,+11
JMS I PNTR7
ANO 1<0070
OCA ODF'ELD
TAO F'ELD

5305
•424
"123
3022
:1,162
7041
:1,022

24"MAR-H

9119

PAGE 1•7

/GOOD?
/NO, DAT A ERROR
/DONE?
/NO
/CHANGE MEMORY FIELD?
/NO
/YES

TAO ODF'ELO
SMA SH CLA
JMP , -7
I OF'
JMS ODREST
JMP ODEXER

774i)

!5275
•002
4347

§200

/RESTORE PI STUFF'

/RMlll8 ORUM EXERCISER SETUP ROUTINE
111510
8511
8512
11513

0514
18515
G!l516
0517
0520
li'l521
li'l522
li'l523
li'l524
li'l525

:1,315

:S235
:1,316

11243
§2111£1
16430
·~3l

:1,324
:5235

3,325
;5243
§2QH!l

16426
4427

TAO RMlllSRI
OCA ODAITE
TAO RMl?JSRE
DtA OOREAD
JM9 ODEXE-R
~M08Rt, JMS I PNTR11
RM0B~E. JMS 1 PN'fR:l.2
/Rr08 DISC EXERCISER SETUP ROUTINE
RF'08[X, TAO RF'08Rl
OCA DOR ITE
TAO RF08FlE
OCA DDREAD
Jl'IP ODEXER
Rf08RI1 JMS I PNTR9
Rr08RE, JMS I PNTRj,0
RM08~X,

/Of32 DISC EXERCISER SETUP ROUTINE
0526
0527
0530
0531
£1532
0533
0534

1333
3235
1334
3243
!>2£10
4433

4434

DF32EX, TAD OF32RI
OCA DDRITE
TAD OF32RE
OCA DDREAD
JI'!!-' ODEXER
OF'32R I, JMS I PNTR14
DF32RE. JMS l PNTR15

I~ EXERCISER
0535
0536
0537
0540
0541

0542

0543

0544
0545
0546

~
w

TAPE 1

0000
l,144

3361
1145
3362
1456
3363
1000
3364
§735

0547
0550
0551
0552
0553
0554
0555
0556
1557
9560

0000
1361
3144
1362
3145
1363
3456
1364

0561
0562

e""' ei

0563

3000

§747
0000
0000

121564

0000

0565
llJ566
llJ567

.,6el4

ei:s2

0510

53'13
1,243

PAL.111!

\1141

24-MAFt ,1

;~i:,

.<~ t~

/DISC-ORUM SAVE SUBROUTINE
OOSA\IE, 0
/SAVE AC
iAD AC
DCA DOAC
/Ll NK
TAD LINK
DCA DDLINK
/MEMORY FIELD
TAD l PNTR40
OCA DDIB
/AND LOC 0
TAO 0
OCA DDPC
JMP I DDSAVE
/O!SC-DRUM RESTORE SUBROUTINE
DDREST, 0
/RESTORE SAVED AC
TAO DDAC
OCA AC
/LINK
TAO DDL!NK
OCA LINK
/MEMORY rrno
TAD ODIB
OCA I PNTR4f1!
/ANO LOC 0
TAD ODPC
OCA 0
JMP I DDREST
ODAC,
0
ODL INK, 0
ODIS,
ODPC,

"" LOOP ROUTINE

/OISC~ORUM

0571
0572
0573
0574
0575
llJ576

0600
0601
0602
0603
0604
0605
0606
0607

'1~40

1410

1235
3375
1411J2
§200

ODLOOP • LAS
ANO KllJ11/J0
SH CLA
JMP ,+3
TAO DDREAD
SKP
TAO DDR!TE
OCA ,+1
MLT
JMP DDEXER

'1)600

•6011l
/DECTAPE STARTER ROUTINE

72011l
3175
1376
6766
1163
3435
5611J7
0202

DECTAP, CL/I
DCA LOOK
TAO K0604
DTLA
TAD OTPNTR
DCA I PNTR16
JMP I ,+1
START+2

/LOOP ON READ?
/NO, WRITE
/YES, READ

/JMS INSTRUCTION IS STOREO MERE

/~ERO

/LOAD "A" WITM

BLOCK SPECtrlER
"GO,REVERSE1MDVE,ENABLE,C~EAR~

/SET UP RETURN FROM P,J,

PAL.U

/OM81 EXERCISER • TAPE 1

V141

24-MAR•71

9119

PACr 1•9

/MAGTAPE STARTER ROUTINE
11161111
0611
0612

06:1,3
8614
111615
0616
11617
862'J
0621
8622
0623
8624
0625

7208
3150
1110
6711

'411J2
6716

6721
7482
7200
6722
S,164
3437
5625
12'13

MAGTAP, Cl.A
DCA RECORD
TAO K0014
MTCR
MTHLT11 HLT
MTLC
MTTR
MTHLT2t HL.T
CL.A
MTGO
TAO MTPNTR
DCA l PNTRU
JMfl I ,+1
START•3

/CLEAR RECORD COUNT
/SKIP IF MAG TAPE CONTROL READY
/LOAD COMMAND REGISTER WITH "REWIND, ENABLE"
/SKIP IF MAG TAPE UNIT READY
/GO

/RM08 DRUM STARTER ROUTINE
0626
fJ627
fJ6U
1631
t/J632
9633
llJ634
0635
0636
16~7

1648
9641

'642
8643

1204
7201

START•4
CL.A IAC
DRf'S
TAO BUff3
ORCW
TAD ORUMAD
ORTS
TAD RM08PR
DCA I PNTR13
TAD K7200
OCA l PNTR46
TAD I PNTR47
DCA I PNTR45
JMP I RMl!l8 .. 1

RM08,

6624

;,iu

6615
s,i41
6615
1165
3432
1,185

3784
1715
~783

'~26

/LOAD SECTOR COUNTER TO 1
/LOAD CORE ADDRESS, WRIT£
/LOAD DRUM ADDRESS, INITIATE Xf'ER

/OF32 DISC STARTER ROUTINE
0644
0645
t/J646
0647
llJ65fll
06'1
Ql6!!J2
0653
0654
0665
'11656
llJ657
1!1660
0661

7244

Of' 32,

CL.A CMA RAL.
OCA I K7758
TAD BUF"F3
OCA I K77!51
TAD DISCEA
DEAL
Cl.A
TAD OISCAD
DMAW
TAO OF"32PR
OCA I PNTR13
TAO JMPCON
DCA I PNTR46
JMP RM08+12

~475

1114
3476
p37
6615
720e
:1.140

6605
1166
3432
1306
3'/04
5241

0
1 - .....-

/SET UP W,C,
/SET UP C,A,
/LOAD CONTROL WITH DISC EXTENDED ADO•ESS
/LOAD DISC ADDRESS AND WRITE

0
-------

---

!:'1 EXERCISER

~
p A!., 111!

TAPE 1

V141

24-MAR• 11

/Rf08

OISC STARTER ROUTINE

RF08,

~
91 :..9

0662

1244

0663

3475

CLA CMA RAL
OCA I K7750

llJ664
0665

~114

TAO BUFF3

3476
1143

OCA I K7751
TAD l NTERN

/SET UP CA

6615

DIML

/SET UP INTERRUPT

j,142

TAO TRACK

0671

6643

1!1672
0673
l!J6H
0675

~140

DXAL
TAO DlSCAD

6605

Ol'IAW

11.!666
11166 7
"6 7111

~i33

3703

Q!7fa0

071!)3

171115
3704
§626
2626

11J711J4
0705

2627
2~~4

07eJ6

!1~61

0701
0702

OCA I PNTR13

3"132

0676

we
E~

BLES

/LOAD DISC EXTENDED ADDRESS
/LOAD DISC ADDRESS AND WRITE

TAO RF08PR

~167

0677

/SET UP

PACH: , 'l.

TAO SKIP
OCA I PNrn45
TAO I PNHH7
DCA I PNTR46
JMP I RM1218-1.

/SET UP SKlP CHAlN

/RETURN TO START•4

PNiR45, EXli~2
PNTR46, ElOT-1

PNTR47. EXli-4

JMPCON1 JMP I PNTR48

/DF32 OISC WAIT FOR rLAG AND NO £RRORS SUBROUTINE
07117
S7UI
IJ711

11712
0713
0714

0715
lll716
11717
072111
0721
0722
0723
8724
8725
8726

&10210
4432
6621

JMP I OF32WT

7000

3151
1375
4403

S,151
4445

11731
0732

761114
771110
7402
57aJ7

/WAIT FOR OISC FLAG
/ANY ERRORS?
/YES
/NO

LAS

Ril..

6616

!!1450

0734

Sl<P

!5707
7604
'101116
15UI
!1331
1200

~'lJk'l

111

JMS I PNTR13
OFSE

14u

0727

111733

OF32WT,

HAl..T4,

SPA

/PRINT ERRORS?

JMP HAL T4•2
CLA
OEAC
NOP
DCA DDSTAT
TAD PMES11
JMS l PNTR1
TAO DOSH T
JMS I PNTR24
Ji'iS I PNTR33
LAS
SMA CLA

/NO

JMP ! DF32WT

/READ STATUS

/TYPE OUT MEADER
/TYPE OUT STATUS WORD
/CRLF
/HALT ON ERROR?
/YES
/EXIT

/OF32 DISC WRITE SUBROUTINE
~735

0000

DF'32wR, 0

9716

8737
874"

l!J741

e142

nee

1105
JA75
1114
3476

0743
"7 414

1022

0745

6615

0746
lr!747

7200
1140

~137

075"

6605

0752
"''3
l!J7§4

6621
§336
,735

117§5

!H0

fJ7!16
fl7§7
l!J7U
17U
8762
fl763
8764
fJ765
l!J766
9767

7280
S,1"15
:J475
S,113
;5476
1022
,,137
6615
72l'J0

emu

4JQl7

""" 66U
0775

Ull62
11161"4

8776

'356
f)7!S5

CL.A
TAO K72H
OCA I K7750

/SET Ufl w

---·---

9119

PAGE 1-U

/SET UP C:,A,
OCA I K7751
/COMBINE D!SC CORE MEMORY FIELD
TAO ODF"ELD
/AND DISC EXTENDED ADDRESS
TAD OISCEA
/AND TRANSFER To DISC CONTROL
DEAL
CLA
TAD DISC.AD
/LOAD 01sc ADDRESS AND WRITE
OMAW
/WAIT FOR DISC FLAG
JMS OF32WT
/ANY ERRORS
Of'"SE
/YES, REPEAT FUNCTION
JMP DF"32WR•1
/EXIT
JMP I DF32WR
/DF32 DISC READ SUBROUTINE
OF32AD, 0
C:I. A
TAO K7200
OCA I K7751!J
TAD BUF"F6
OCA I K7751
TAO DDF"ELO
TAO DISCEA
DEAL
Cl.A
TAO 0 I SCAD
OMAR
JMS DF'32WT

66&13

1301

24-MAR•71

'!'AO BUFF'3

11'0

l!J771
21772
8773
8774

V141

PAl.U

/OM01 EXERCISER m TAPE 1

OFSE

JMP OF"32R0•1
JMP I DF'32RD
PMESU, MESS11
K0604, 0604

/SET UP we
/SET UP CA
/COMBINE DISC CORE MENORY rtrL.D
/ANO DISC EXTEND£0 ADDRESS
/ANO XF"ER TO DISC CONTROL
/LOAD DISC ADDRESS AND R£A0
/WAIT rOR DISC FLAG
/ANY ERRORS?
/YES, REPEAT FUNCTION
/EXIT

/GO, REVERSE, MOVE• ENABLE

/OM01 • TAPE2
101!10
1H0
1H1

1002

1H3

1084
11r!0 5
10e.16
1H 7
101'll

1011

1012
1013
1014
1015

0
~~~~--;...~---

8000
1346
3502
1355
6766
6774
4435

6772
?006
17 0liJ

5216
1354
ti7o4
5206

•1000

/DECTAPE S£ARCH ROUTINE
SEARCH, 0
TAO F"OUND•1
OCA I K7755
TAO K0614
OTLA
OTLB
JMS I PNTR16
OTRB
RTL
SMA CLA
JMP ,+4
TAO K0600
OTXA
JMP SEARCH+6

/SET UP BLOCK NUMBER TO CO TO F'OUND
I SEARCH, NORM. REV, ENA8LE
/LOAD A
/CLEAR 8
/WAIT FOR DECTAPE F'LAG
/READ B
/ENO lONE?
/NO
/YES, TURN
/AROUND

I~ EXERC!SER
1016
1!a17
1020
:l.2121.

1022
1023
Hl24

1025
1026
1027

1030
1llJ 31
1032
1033
1034
111.l 3 5

---~

iAPE 1

F'AL.10

\/14':!.

SMA CLA

/DECTAPE ERROR

5223

JMP

I NO

~307

J"1S DTWA 1 T

52,13
6761
701216
7006
12121121
:1,345

JMP S0RCM+3

1175
74!50
52~3

OTRA

RTL
R Ti.

/MOV: DI Rf CT I '~
/BIT lNTQ L!f'>n<

CL.A

TAO FOUND
CIA
TAO LOOK

SNA
JMP L0C8ED

?&'l41

CIA

SNI,,

1036

1352

1037
1040

16221
il,U3
6764

1041
1042
11"43
1"44
1045

162111

1046

5~11l0

5206
\!1241
6764

,+3

YES. STOP TRANs~ar/TRY SEARCHING AGP
/READ A

1420

/READ SH.iUS B

on~s

l!i772
771?J6

7041

; I 19

24"MAR·,1

TAD Klll002

SN!.. CLA
'l'AO Klll401ZJ
DTXA

JMP SEARCH+6
LOCBED • SNL CLA
JMP , -3
OTXA
JMP I SEARCH

/GET

BLOCK

~'I~_,

NUM9E'1 F< '110

/CURRENT Bl.OCIO
/YES, CH[CK OIRECTl.N
/NO, TAKE 2'S COMPLEMEN
/1,,lNK IS 1 IF BKWO AND NOT A• J~
/ADO TWO TO ENABLE TURN AROUND
/TURN AROUND (3 BEYOND>?
/YES
/CLEAR f'L.AG
/WAIT f'OR NEXT FLAG
/FOUND BLOCK FORWARD?
/NO
/YES, CLEAR f'LAGS
/EXIT

~C~ER

/DECTAPE READ SUBROUTINE
12147
U!!U5
1rll51
10§2

1053
1054
10§5

1056
105 7
1060
1061
1062
111163
1!?164
1065
1066
U'.16'

10 7 Ill

111!71

(lt'l0fll

4200
4337
!i251i'J
1020
6774
1350
6764
:1,105
351iJ1

1107
3!H!l2

'4307
4337
52511l

5647
i1H:'lfll0
!\200

4337
527111

1072
1073
1074

1020

11!l7 5
1070
111!77

:l.351
6764
:l,105

6774

OiREAD, 0
JMS SEARCH
JMS DTERR

/SEARCH OUT BLOCK

JMP ,-2

TAO OTF'ELO
OTLB
TAO Klll1311l

OiXA

TAO K721'/ll.'i

/LOAD MEMORY FIELD REGISTER
/CHANGE rROM SEARCH TO REAO OAiA CONT

/SET UP we
DCA I K7754
TAO BUF'F4
/SET UP CA
DCA I K7755
/WAIT FOR DECTAPE FLAG
JMS DTWAIT
/ERRORS?
,JMS DTERR
/YES, REPEAT FUNCTION
JMP DTREAD•1
/EX IT
JMP I DTREAD
/DECTAPE WRITE SUBRO~TINE
DTR!TE, 0
/SEARCH OUT BLOCK
JMS SEARCH
,JMS DTERR
JMP ,-2
TAO DTFEUl
/LOAD MEMORY FIELD REG!STOR
DTLB
TAD Klll150
/CHANGE f'ROM SEARCH TO WR!TE DATA CONT,
DTXA
TAD K7211l0

-,AN BLOCK

V1'1

24•MAR•'11

~501

OCA I K7754

/SETUP WC

1106
3502
4307
4337
5270
§667

TAO BUFF"1

PAl..10

/0Mlll1 EXERCISER • TAPE 1
11Hl
1101
1111!2
1103
11'!!4

1105
1106

DCA I K7755
,JMS OTWAii
JMS DTERR
JMP DTRITE•1
JMP I DTRITE

9119

PACE 1"1:S

/SET UP CA
/WAIT tOR DECTAPE tLAG
/ERRORS?
/YES REPEAT tUNCTlON
/EXIT

/SUBROUTINE TO WAIT roR DECTAPE tLAG ANO NO ERRORS
/EXIT WITH TRANSPORT STOPPED
rlJ000

1Hl7
11UJ

4435

1111

6761
0104

1112
1113
1114
1115
1116
111.7
112i'l
1121
1122
1123

1124

1125
1126
1127
UH

DTWA IT, 0
JMS l PNTR16
OTRA
AND K0200

2,353

TAO Klll003

6764

CTXA
OTRB
SMA C:LA
JMP I DTWAIT
LAS
RTI.
SPA CLA
JMP MAL T1 .. 2
OTRB
OCA OTSTAT
TAO PMES12
JMS I PNTIU
TAO OTSU T

6772
'711l0
!i71H

1604
7006
7710

!i333

6112
~146

2,3"7

••e3

1131

S,1'6
it4'5

1132

/WAIT fOR SOME FLAG
/READ STATUS A
/CLEAR GO

/ERRORS?
/NO
/PRINT ERRORS?

/NO

/READ STATUS
/TYPEOUT MtAOER

JMS I PNTR24

/TYPE OUT STATUS WORD

... , .

JMS I PNTU3

/C::R-LF'

1133

1614

LAS

1134
1135
1U6

'1'700

7402
!171117

MALT1r

SMA CLA
Ml.T

/MALT ON ERROR?
/YES

JMP I OTWAI T

/DECTAPE ERROR ROUTINE• OON'T SK[P lt ANY ERROR
1137
1140
1141
1142
1143
1144
1145
1146

-~,,,.."=""-~ ,--~-ik>;,

OTERR,

0000
1145
3074

1150
1151
1152

"130
0150
0002

0003

CL.A
OTRB

7200
6772
170111
2337
5737

1147

1153

nee

SMA CLA
f S! DTE RR

JMP I OTERR

F'OUNO•

/BLOCK FOUND

,"1

PMES12, MESS12
11:0130. 0130
K0150, 0150
K0002,
0002
K001113 I 011103

/SEARCH TO READ DATA CONTINUOUS
/SEARCH TO WRITE DATA CONTINUOUS

11".
~)
...

EXERCISER
1154
:1.Hi5

'~TAPE 1
4

11!§6

~~!ll3

1157
11611J
iU.1
1162
1163
1164

6570
~~1134

0124
0140

f'Al.U
it.06f1Hll,
'2J & !lll!l
1(06 .;['
11!614
MESS;l.6, 24~3
6570
'if'H~ 4
,?l24
i2i140

2217

0522
2217

1165

2240

22411l

1166

1,116
4011!2
IZl116

1116

~340

011110

4000

11€17
1170
1171
1172

1200
121/Ji
121112
1203
12fJ4
121115
12186
121117

121'1
1211

lil522

'2H
1111!5
3477

s.iu
~5H

1e21

1213
1214

•722

1216
1217

/E•R

/R•O
/R•SP
I A. •N

/K•SP
/SP,END

/MAGTAPE REAO SUBROUTINE
/REWIND UPE
/SPACE TO BEGINNING

~!CORO

HO KIZJ626
MTl. C:

IL 0 AQ cM wITH II 0 0 D ' : GH .i:u: A0 d'.'. ~~ .' 13 LE .r:.HH:l H AN 0 cLE AR

Cl.A
TAO 10'2H
OCA I 1<7752

/SET UP WC

TAO BUF"F5
OCA I K7753
UCl l'HHLO

MTCO

4266

JMS MHIAt'f

f2!S5

JMS tHERR

fj2fa

JMP MTREAD*i
JMP 1 MTAEAD

'~H

/A,SP

0116

MTREAD, 0
JMS REWIND
JMS I PNTRt7

1~56
~716

/iU: VERSE 1 GO
NOFHU1, f:'..'.·
IT ,c;
/5.8
/SP,[]
It'" T

1340

(fl1Jl1l11J

~
\;' ~

/SE.1.RCH,

II .r11
/SP,8

• 12 2111!

4240
'436

24•MAR-r1

'41110 2

1201!!

1212

1215

\1141

r LAG s

/SET UP C:A
/LOAD EXiENOEO FIELD RLG!ST[R1 GO
/WAIT FOR MT FLAG ANO NO [RRORS
/ERRORS?
/YES, REPEAT FUNeTION
/NO, EXIT

/MAGiAPE READ-COMPARE SUBROUTINE
1220
1221
1222
1223
1224
1225
1226
1227

12:Sl1l
1231
1232
1233
1234
1235
1236

llH'00

RDCOMP, 0
JMS ~EW!ND
JMS ! PNTR17

4240
!l436
S,355

"fAO K0636

~716

MTLC

1200

Cl.A

1lel5
3477
0

TAD K7200
DCA ! K7752
TAO BUFF"2
DCA I K7753

1021

HO MffELD

6722
4266

MTGO
JMS MTWAlT
JMS MTERR
JMP RDCOMP,..1

112

4255
5221

/REWIND HPE
/SPACE TO BEGINNING OF RECORO
/LOAD CM WITH

"ODQ,7C~.RC

C~MP.~NABL

/SET UP we
/SET UP CA

/LOAD EXTENDED FIELD REGISTER, GO
/WAIT FOR MT FLAG ANO NO ERRORS
/ERRORS?

/YES.REPEAT FUNCTION

.• ~CLEAR

FLAGS

-·-

/OM01 EXERCISER
1237

TAPE 1

v1•1

24-MAR-H

JMP I RDCOMP

/NO, EXIT

PALU

~620

9119

PAGE 1·1§

/MAGTAPE REWIND SUBROUTINE <ACTUALLY SPACE REVERSE>
1240
1241
1242
1243
1244
1245
1246
1247
1250
1251
12§2
1253
1254

1255
1256
12!S7
126il
1261
1262
1263
1264
1265

0000
1254
&716
1200
6722

REWIND• 0
TAO K0676
MTLC
CLA
MTGO
OCA I K7752
JMS MTWAIT
MTRS
RTL
SMA CLA
Jf'U~ REWIND•1
JMP I REWIND
K0676, 0676

~477

4266
670.6
1006
1700

5241

!i640
0676

671116
7510

!1263
1136

1ue
2255
?2110

!i655

IHil
14437

131115
1306
1307
1310

44 !.Hl
762l4

MTWAIT1 l!l
JMS I PNTRtS
JMS MTERR

4255
1410
5312
7604
7006

SKP

JMP HALT2•2
1,.AS
RTL.
SPA CLA
JMP MALT2•2
MTRS
OCA MTSTAT
TAO PMES13
JMS I PNTR1
TAO MTS TAT
JMS I PNnl24

17UI

!5306
6706
3147
2,326
•403
S.147

11445

?700

HALT2,

7402

0
H(PN--~_:.._;.,...,o

----==-

~--

---

WITH "000,7CH,SPACE REVERS(,ENABLE,800" ANO CLEAR 'LAGS

/SET GO
/SET UP W,C,
/WAIT fOR MT fLAG
/READ STATUS
/BOT?
/NO, TRY AGAIN
/YES, EXIT
/ODD,7CM,SPACE REVERSE,ENABL£1800

/MAG TAPE ERROR ROUTINE
MTERR, 0
/READ STATUS
MTRS
/ERRORS?
SHA
/NO
JMP ,•3
/YES
ANO K1"H
/BOT?
SH CLA
/YES, NO ERROR
!H MTERR
CLA
JMP I MTERR
/SUBROUTINE TO WAIT roR MAGTAPE tLAG ANO NO ERRORS
/EXIT WITM TRANSPORT STOPPING

001110

1266
1267
1270
1271
1272
1273
1274
1275
1276
1277
131!llll
131!!1
13tlJ2
131!!3
1304

/LOAD

JMS I PNTR33
LAS
SMA CLA
HLT

/WAIT FOR MAGTAPf rLAG
/READ MAGTAPE STATUS
/ERRORS?
/NO
/PRINT ERRORS?
/NO

/TYPE OUT MEADER
/TYPE OUT STATUS WORD
/CRLf
/HALT ON ERROR?
/YES

0
--

--------

·-

I~ EXERCISER ~ TAPE 1
1311
1312
1313
1314
1315
131,6
1317
1320
1321
1322
1323
1324
1325
1326
1327
1330

1331
1332
1333
1334
1335
1336
1337
1340
1341
1342

1343
1344
1345
1346
1347
1350
1351
1352
13§3
1354
1355
1396
1357
1360
1361

1362
1363
1364
1365
1366
1367
1370

PAl..U

JMF I MTWA IT
MHF'
JMS I PNTR43
!ON

!$666

6'712

4727
612111! 1
6721
5315

MTTR

JMP ,-1
!OF
JMS J PNTR44
JMP l MTWAIT

6002

4730
5666
rlJfllf/Jf/J

lal<Hil 0

0000
0000
3106
2132
2144

,0""
1144
3322
1145
~323

1~66

3324
1000

3325
'731

1322
UH

1323
:J145
1324
~456

1325

:s fil 11l 11J

5743
0~36

111626

0411
2303

'4017
2240
llJ422
2'15
4fllfil4
llJ124
0140
0522

V1'41

DTAC,
OTLINK,
OTlB I
DTPC,
PMES13,
PNTR43,
PNTR44,

.~.
24·MAR~ d.

~.
0119

PAGE 1•16

/CLEAR FLAGS
/WAIT f"QR
/TAPE TRA~SPQRT READY

0
0
0

MESS13
MTSAVE
MTREST

/DECTAPE SAVE SUBROTINE
DTSAVE, 0
TAO AC
QCA OTAC
TAO LINK
OCA DTLINK
TAO 1 PNTRO
OCA OTIB
TAO Ill
OCA OTPC
JMP l DTSAVE

/SAVE AC
/LINK
/MEMORY F'lE'.LO
/AND LDC l1l

/DECTAPE RESTORE SUB"OUTINE
ornEST, 21
/RESTORE SAVED AC
TAO DTAC
OCA AC
It.INK
TAO OTLINK
OCA LINK
/MEMORY F'IELO
TAO DTlB
OCA I PNTR40
/AND LDC 0
TAO OTPC
OCA Ill
JMP l OTREST
Kel636, 0636
K0626, 0626
MESS17 I 04:1.1
2303
4017
224QI
0422
2515
4004
0124
014QI
0522

/ODO, 7CH READ COMPARE, ENABLE, 800
/ODD, 7CH, READ, ENABLE, !Hl0
ID• l

1s.c

/SP,Q
IR•SP
ID1R

IU•M

/SP.D
IA•T
/A,SP
IE•R

/DMllJ1 EXERCISER ~ TAPE 1

1371
1372
1373

2217
2240
1116

1374
1315
1376
1377

4002
e116
2,340
4000

141110
1411

1402
1403

142'4
1415
106
14117
141111
1411

1412
1413
1414
1415

PAL.U

V1•1

2217
22•1
1116
4"82
0116
1340

40U

24•MAR"71
/R1SP
/SP,B
/A•N
/K•SP
/SP,END

U0f/J
1211111
1"22
1122

RM08RO,

t615

•234

6621

'5211
5~10

1~11

Jl, ~

•14"21
/RMllJ8 DRUM READ SUBROUTINE

13:41

PAGE

/R•O

1401/J

6624
?21111
1113
661113

9'19

CL.A

TAO ODfELD

TAO K3H0

ORF'S

/COMBINE MEMORY F'IELO
/ANO NUMBER OF' SECTORS
/TO ORUM CONTROL.

CL.A I AC

TAD BUF'F"6
ORCR
TAO ORUMAD

ORTS

JMS ORUMWT
ORSE
JMP RM88R0•1
JM" I RMH,_O

/LOAD CORE MEMORY ADDRESS, R[AO
/LOAD DRUM ADDRESS REGISTER, INITIATE XF£R
/WAIT FOR DONE FL.AG AND NO ERRORS
/ERRORS?
/YES, REPEAT XF'ER
/NO

/RMllJ! ORUM WRITE SUBROUTINE
1416
1417
14~11J

14U
14122
1423

1424
1425

141!6
1427
143111
14:U

1432
1433

IH0
7200
2,ti2
U~2

'624

1211
1114
6615
~J.•1

6615

•234

6621

1211
1616

RMl!IBWR, I
CL.A

TAD DDF'ELD
TAD t<3Hlll

ORFS

/COMBINE MEMORY F'lELD
/ANO NUMBER OF' SECTORS
/TO CONTROi.

Cl.A I AC

TAD BUF'F'3
ORCW
TAO ORUMAO
ORTS
JMS DRUMWT
ORS[
JMP RMl8WR•1
JMP I RMB8WR

/LOAD CORE MEMORY ADDRESS, WRITE
/LOAD DRUM ADDRESS REGISTER, lNITIAT[ xrcR
/WAIT F'OR DRUM rLAG ANO NO ERRORS
/ERRORS?
/YES, REPEAT XPER
/NO

/ORUM WAIT roR rLAG ANO NO ERRORS SUBROUTINE

6621

DRUMWT, Ill
JMS I PNTRS,3
ORSE

74UJ

Sl<P

1434

00111111

1435
14;56
1437

4432

144111

§634

JMP I DRUMWT

1441
1442

761114
'101116

LAS

/WAIT roR ORUM rLAG
ERRORS

/ANY

/NO
/YES, PRINT ERRORS?

RTL

,r,1 EXERCISER
1443
1444
1445
1446
1447
1450
1451
1452
14!53
1--t54
1455

~ TAPE 1
72"i!

6612
3151
3,363
tl403
~151

41445
tt450
1611J4
1lH

1461
1462
1463
1464
1465
14H
1467
1478

fl0HI
1105
3475
1113

15H

151U
1512
15113
151!14
1505
15'56
15fll7
151'!1
1511
1512
1513
1514
1515
1516
1517
1520

1402
§634

:$06
i~22

1U3
•615
1142
6643
1,l40
6683
4321
fl621
J661
J262

101111/J

ues

3475
1114
~476
~11'22

1143
6615
1142
·~43

1140
6605
4J21
6621
5 7 rtl1

5302

V141

SPA
JMP i-IALT3•2
CL.A
OREF"
OCA OOSTA T
TAD PMES14
JMS l PNTR1
TAO ODSTAT

7!>10

5255

14!16
1457
1460

1-411
1472
1473
1474
1475
1476
1477

- - --- -

PAl..10

HALT3,

JMS I PNTR24
JMS I PNTR33
LAS
SMA CLA
-ML. T

--~----------

24-MAh

9119

PAGE 1•18

/PRINT ERRORS?
!READ STATUS
/TYPE OUT HEADER

/TYPE OUT ERROR STATUS
/CRLF
/HAl.T ON ERROR?
/YES

JMP I ORUMWT
/RF08 DISC READ SUBROUTINE
-RF'08RO, llJ
TAD 1(7200
/SET UP we
OCA I K7750
TAD BUFF6
/SET UP CA
DCA I K775S.
/CO"BINE DISC CORE MEMORY r1c1.o
TAD ODHLO
/AND INTERRUPT ENABLES
TAO INTERN
/ANO TRANSrER To DISC CONTROL.
DlML
TAD TRACK
/LOAD DISC EXTENDED ADDRESS
DXAL
TAD OISCAO
/LOAD DISC ADDRESS ANO R£AD
OMAR
/WAIT FOR DISC FLAG
JMS RFHWT
/ANY ERRORS?
OFSE
/NO
JMP I RF'llJ8AO
/YES, REPEAT FUNCTION
JMP RF08RD•1
/RF'llJB DISC WRITE SUBROUTINE
RF'08WR, Ill
TAD K720eJ
/SET UP we
OCA I 1<775111
TAD BUF'F':5
/SET UP CA
OCA I K7751
/COMBINE DISC CORE MEMORY rIELD
TAD DDF"ELD
/ANO INTERRUPT ENABLES
TAO INTERN
/ANO TRANSFER To DISC CONTROL
OlML
TAO TRACK
/LOAD DISC EXTENDED ADDRESS
OXAL.
TAO DISCAD
/LOAD DISC ADDRESS AND WRITE
DMAW
/WAIT fOR DISC FLAG
JMS RF"08WT
/ANY ERRORS
OFSE
/NO
JMP I RF08WR
/YES
JMP RF08WR•1
/RF08 DISC WAIT FOR FLAG ANO NO ERRORS SUBROUTINE
/(TRANSFERS CONTROL TO "OF32WT" IF ANY ERRORS>

PAl.U

/OM81 EXERCISER • TAPE 1
1521
1522
1523
1524
1525
1526
1527
1530
1531

tl'llH

RF'08WT, I'll

4432

JMS I

0621

OF'SE

§721
1321

JMP I

V141

PNTR1J

RF'l'll8WT
TAO RF'08WT
OCA I ,+J

Pll

,73111
Q714

OF'32WT +5

0 71!17

Of32WT

JMP I

,+1

9119

24•MAR•7S,

PAGE 1•1'

/WAIT F'OR DISC Fl.AG
/ANY ERRORS?
/NO
/YES
/SAVE "PC"
/TRANSFER CONTROL TC
/DDf 32 ERROR TYPEOUT

/MAGTAPE WRITE ROUTINE
1532
1533
1534
1535
1536
15;57
1541'11
1541
1542
1543
15'44
1545

1546
1547

15H
1551
1!552
1553
1554
1555
1596
15'7
156'

1561
1562
1563
1564
1565
1566

1567
1571'11
1571
1572
1573

8101110
7200

l'ITRITE,

:L364
.716
72H

S,105
;5477

S.112

35H

1e21
6722

4447

li50

5352
'440

,333
4441

'14U
,132
4441

4i:S6
7240

s.ne

3150

f;334

:S120

9746
2-403
611J61
4flll'iJ4
151113

I'll

CLA
TAO Kl'll746
MTL.c

Cl.A
TAO K721!10
OCA I K7752
TAO BUfF'2
OCA I K775:S
TAO MTF'ELD
MTGO
JMS I PNTR32
ISi RECORD
JMP ,+J
JMS I PNTRS.9
JM!' MTRITE•1
JMS I PNTRU
SKP
JI'!' I MTRITE
JMS I PNTRS.9
JMS I PNTR:l.7
CL.A CMA
TAO RECORD
OCA RECORD
JMP MTRITE•2
PMES14, MESS14
K0746, 0746
MESSllJ2, 2413
61'1161
4H4
051'113

241'111

241!11

2Bfll5

2flll!J5
771'11111

nee

1600

/L.0AO CM WITH "000,7CH,3 IN, GAP,WRITE,81'110" AND CLEAR F'LAGS
/SET UP we
/SET UP CA

/LOAD EXTENDED FIELD REGIST£R1 GO
/WAIT FOR MT FLAG ANO NO ERRORS
/INCREMENT NUMBER OF RECORDS
/4e96 RECORDS• REWIND TAP[
/START OVER
/ANY ERRORS

/NO, EXIT
/YES, REWIND TAPE
/SPACE FORWARD TO BEGINNIN~ or THIS RECORD
/DECREMENT RECORD COUNT
/TRY

AGAIN

/ODO,
/T•C

7CH1

WRITE, ENABLE. see

/flJ.1

/SP,D
/E•C
/T•A
/P1E
/?•END

•1600

/DECTAPE EXERCISER
1600

1601
1602

0
==-~-=cc--

-~-~--

7200

6/64
1133

OTEXER, Cl.A
OTXA

/CLEAR EF' AND DTF'

TAO SKIP

~1 EXERCISER • TAPE 1
1603
1604
1605
1606
161117
1610
1611
1612
1613
1614
1615
1616
1617
1620
1621
1622
1623
1624
1625
1626
1627
1630
1631
1632
1633
1634
1635
1636
1637
16•UJ
1641
1642
1643
1644
1645
1646
1647
16!10
16!}1
1612
1653

1694
16§5
16!J6
16!;7
1660
1661
1662
1663
1664
1665
1666
1667

3321lJ
1604

e1a4

---- - ____ j~_ --- - ---?Ai.10

V141

6H1
1186

TAO eur:n

1106
:JlllUJ

1224
11i120
3222
4442
6201
l411il
621111

aro11

;221
1175
1311
3175
7380
1175
112111

7630

!52U
65'112
'46!0

4443

6764

4444

S,367

~010

2,1197

~111

1U5
3110

1265
11112111
J261
62"1
141111
7Ul
1~11

6201
7440
4312

PAG£ 1-20

LAS

6764
4457

;,U!J11

9119

OCA OTDATA•6
ANO Kllllll411l
StA CLA
JMP I PNTR6
JMS I PNTR41
ION
TAO K7211llll
DCA 11
TAO 8UH1
OCA 1"l
TAO ,+6
TAD DTF"ELD
OCA , +2
JMS I PNTR21
cDr
DCA I 1111
cor
!Sl 11
JMP ,-5
TAO LOOK
TAO Kllllll03A
OCA LOOK
CL.A CLL
TAO LOOK
TAO M271!111l
S!L CL.A
Jl'IP ,-5
I OF'
JMS I PNTR42
JMS I PNTR22
OTXA
JMS I PNTR23
TAO Klllllllll4
OiXA
JMS I PNTR41

764111
5423
4457
61i:lii/Jl
1105

24-MAt-. ,s_

ION

OCA 1111
TAO BUH4
OCA 11
TAO K72011J
OCA DTCNTR

/SUPPRESS DECTAPE?
/YES, EXIT
/SAVE Pl STUF'F"

/STORE DATA IN OUTPUT aurr£R
/DONE
!NO
/INCREMENT BLOCK BY 3

/RESTORE Pl STUFF'
/WRITE DATA ONTO DECTAPE
/CLEAR F'l,.AGS
/READ DATA FROM DECTAPE
/STOP TAPE1 CLEAA ENABLE ANO
/CL.EAR fl.ACS
/SAVE PI STUF'F'
/TURN ON INTERRUPT
/OUTPUT BUf'F'ER
/INPUT BUF'f'ER
/COUNT

TAC ,•"!

TAO DTFELD
OCA , •1
COF'

TAO I 11/J
CIA
TAO I 11
CDF
SH

J"4S DTDATA

/COMPARE DATA OUT WITH DATA IN

/GOOD?
/NO, DATA ERROR

---------

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

/OMILl1 EXERCISER
16711J
1671
·1672
1673
1674
1675
1676
1677
171H
1701
1702
1703
1784
1705
1706
1707
171'!1
1711

-------- --

-p

PALU

TAPE 1

7604
7011!1

763a
5200
'442
111123
3B211J
1162
2,HILI
7H0

931110

52H
IH3

------

-- --- - -- - --

- - --

V1'1

24•MAR•H

IH DTCNTR
JMJI ,•U
I OF'
JMS I PNTR42
LAS
RAR
Si!L CLA
JMP DTEXER
JMS I PNTR21
AND KllJllJ79
OCA DTF'EL.D
TAO F"ELD

U70
li261
6H2
4460

'1H1

PAGE 1•21

9119

/DONE?
/NO
/YES
/RESTORE Pl STUFF'
/CHANGE MEMORY rtELO?
/NO
/YES

CIA

TAO OTF'ELO
SMA SU CLA
JMP .-7
JMP DTEXER
1(811JllJ3A, 3
/DECTAPE DATA ERROR ROUTINE

1712
1713
1714
1715
1716
1717
1721/J
1721
1722
1723
1724
17i!5
1726
1727
17SILI
17:U
17~2

1733
17~4

1735
1736
1737
1740
1741
17'2
1743
1744
1745
1746
1747
1750
1751
1752

UH
7~114

1103
7640
•361
6112
7~11
5335

s,366

·~·3
18121
7UllJ

1012
•445

2.iil74
•413
1i05
332111
4458

1he
2.~6111

;J34flJ
62111

1010
'4445

ii25
•446
2,571
4445
1125
4446
1011

4445

OTDATA1

rlJ

LAS
AND KllJ4H
SU CL.A
JM' CHNGE1•1
lOF'
SKI' CL.A
JMFI , •14
TAO PMES18
JMS I PNTR1
TAD OTF'EL.D
RAR Cl.L

•·nt

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

/TYPE OUT MEADER

JMS I PNTRU
TAO PMES15
JMS I PNTR1
TAO K72H
OCA DTDATA•6
JMS I PNTR33
TAO OTF"ELD
TAO CHNGE1
OCA .•1

/AND DATA F'IEL.D

TAO lllJ
JMS I PNTR24
TAO Klll2411J
JMS I PNTR25
TAO I TEMP
JMS I PNTR24
TAO t<024fll
JMS I PNTR25
TAO 11
JMS I PNTR24

/PICK UP "GOOD" ADDRESS

COF

/TYPE OUT REST or HEADER

/PICK UP "GOOD" DATA

/PICK UP "BAD" ADDRESS

0
--

/OR CL.A

- - - - - -- --

-----

I~ EXERCISER ~ iAPE 1
1753

;!.125

1754
1755
1756
1757
1760
1761
1762
1763
1764
1765
1766
1767
1710
1771
1772
1713

4446
1511
4445
11450
6201
7ofll4

'Hl04
7700
'1402
!ll712
3144
0004
2215
6071/J
412104

r.:.. :10

11141

'fAO KflJ241!1
Jt>lS I PNTR25
"!'AD I TEMP
JMS l PNTR24
JMS I PNTR33
t:HNGE1.

lo!l.T
JMP I DTOA TA
FMES18, MESS18
1<0004. 4
"1ESS06, 2215
6070
4004

2225
1517

1775

l/J000

2000

/OMflJ1 • TAPE 3
•2001?J
/MAG TAP[ EXERCISER

2f1Jf116

2 flJfJ 7
201fll

2flJU
2012
2013

U:S3

F62
?6214

'1134
?'640
~423

'1604
121104
'60

MTEXER, Cl.A
MTAF"
'!'AO SKIP
OCA I PNTA26
l.AS
ANO K0021!1
SH CLA
JMP I PNTR6
ANO K0200

NOP
JMS MTSAVE
!ON

2016

., el eJ0
4332
t,fllrt'J 1
1105

2017

Jl1l13

OCA 13
TAD BUFF"2
DCA 12

211l14
2015

2020

U12

311l12

2022
211l23

:l,230

TAD ,+6

1021

TAD MTFELD

211l24

3226

~CA

211l25
2026
2rll2 7
2030
2031
2032

14763

!;225

2033

6011l2

JMS I PNTR27
CDF"
OCA I 12
CDF
!Si! 13
JMP ,-5
!OF
JMS "ITREST

2034

212l13

4344

/HAl.T ON ERROR?
/YES
/ENABLE
/R•M
/018
/SP,D
/R•V
/M•?
/ENO

/Cl.EAR MTF" AND Er

/SUPPRESS MAGTAPf?
/YES, EXIT
/BIT 4 SE:i'I

/YES
/SAVE Pt STUFF"

TAO K7200

212121

6201
3412
6201

'PICK UP "BAO" DATA

SH CLA

~
•

RAL
SMA CLA

~5'17

~712

PACE: 1•22

cor

1774

12H

9119

L.AS

2225

2H0
2H1
211J1112
2H3
2H4
2H5

24-MAf;-, 1

/STORE DATA IN OUTPUT BUFFER
/DONE?
/NO
/RESTORE PI STUF"F

/OMllJ1 EXERCISER • TAPE 1
2035
2036
2037
2040
2041
2042
2043
2044

2045
2046
211J47
2050
2fJ!51

211J,2
2053
20B4
2055
211JJ6
21/HP

206"
2"61
2"62
H63
2f/J64
2"65

2066
2067

JMS I PNTR28
MTU'

~0i2

OCA 12

s,111
:5013
1U'l5
;}173
1264
1021

TAO BUF"F5
OCA 13
'!'AO 1<7200
OCA MTCNTR
TAO ,•7
TAO MTHLO

MiAF

JMS MTSAVE
ION
TAO BUf"F2

COf'

1~12

TAO I 12

1041

CIA

6201

c: Cl F'
SU

74140
,7,7

2113

•344

6011l2
'766
6712
1~"4

21!176
2077

UUJ

2U0
21fl1

'52BllJ
4763
llJ123
;Jl1l21
S.162

21185
2Ul6
2112l7
2U.0
2111

JMP I PNTR6
Ji"1S ! PNTR29

OCA ,+1

2071
211112

2104

ANO 1<0020
SH CL.A

~260

1~~3

7~30

::?4~MAR-71

9119

PAGE 1·2~

/WRITE DATA ONTO HAG TAPE
/Cl.EAR F"L.AGS

i..AS

6 21!11

,2u

2111J2
2103

\1141

4764
6712
7604
1:'!134
76411J
!5423
4765
6712
4332
6001
012

2111'10

2el73
Ul74
U.175

PALU

/SUPPRESS MAGTAPE?
/YES, EXIT
/READ DATA FROM MAGiAPE
/Cl.EAR F"LAGS
/SAVE PI STUF"F
/TURN ON INTERRUPT
/OUTPUT BUffOR

/INPUT BUF'FOR
/COUNT

/COMPARE DATA OUT WITH DATA IN

TAO I 13
JMS I PNTR31
!Si! MTCNTR
JMP ,-1'!1

1or

JMS MTREST
JMS I PNTR311J
MTU"

/GOOO'l

/NOt DATA ERROR
/00NE7

/NO
/YES
/RESTORE Pl STUFF
/READ COMPARE DATA
/CLEAR MTf ANO EF

LAS

RAR
Si!I. CLA
JMP 'HEXER
JMS I PNTR27
ANO KH711J
OCA MTF"ELD
TAO F"ELO

/CHANGE MEMORY FIELD?
!NO

/YES

CIA

'"'
1021
'1740
!i301
,200

TAO MTFELO
SMA Si!A CLA
JMP ,-7
JMP I-HEXER
/MAGTAPE SPACE FORWARD SUBROUTINE

2112
213,3
2114

2115

0
-~~~~c--

llJ011JllJ
1370
6716
1240

SPCFWD1 Ill
TAD K0666
MTLC
CLA CMA

/LOAD CM WITH "OOD,7CH, SPACE FORWARD, ENABLE• 800" AND CLEAR FLAGS

"· /

•

•1 EXERC

ISC

2116
2117
21211l
2121
2122
2123
2124
2125
2126
2127
2130
2131

2132
2133
2134
2135

2136
2137
2140
2141
2142
2143

2144
2145
2146
2147
21U

usra
!i712
7041
3477
6722
tt-447
4441
16111l
!5712
44411l
5313

0000
~144

:.,356
:l.145
;l357
1~56

3360
1010
~361

lil32

e000

1356
3144
i357
3145

1360
3456

2160

"1110"

2172

2173
2174
2175
2176

1361
~ "'110

5744

llH0
IH0

a206
""""
i!'>u
S,532

12el0

i220
2200
0666
6363
1040
e411
2320
1401
3117

V141

TAO RECORD
SNA
JMP I SPCf"WD
CIA

74511l

2151
2152
21!53
2154
2165
2156
21!57
2161
2162
2163
2164
2165
2166
2167
2110
2171

PAL.111!

TAPE 1

OCA !

K7752

,...TGO
JMS I PNTR32
,JMS l PNTR211l
SKP CLA
JMP I SPCf"WD
,JMS I PNTR19
JMP SPCf"W0+1

----·--~--- --·

24-:>'IAR-71

9117

PAGE 1·24

•
/SET UP we
/SET "GO"•
/WAIT f"OR MT FLAG AND NO ERRORS
/ERRORS
/YES
/NO
/REWIND TAPE, TRY AGAIN

IMAGTAPE SAVE SUBROUTINE
"1TSAVEr l1l
/SAVE AC
TAO AC
OCA MTAC
/LINK
TAO LINK
OCA MTL.1 NK
/MEMORY P'IELD
TAO I PNTR40
OCA MTIB
/AND LOC Ill
TAO l1l
OCA MTPC
JMP I MTSAVE
IMAGTAPE RESTORE SUB~OUTINE
MTREST, l1l
/RESTORE SAVED AC
TAO MTAC
OCA AC
/LINK
TAO MTLI NK
OCA LINK
/MEMORY F'lE:LD
TAO MTIB
OCA I PNTR411J
/ANO LDC 0
TAO MTPC
OCA 0
JMP I MTREST
MTACr
l1l
MTLINKr 0
MT I Br
0
MTPC,
0
PNTR26, MTOATA+6
PNTR27, RAND2
PNTR28, MTR I TE
PNTR29 M";'"EAD
PNTR30, ROCOMP
PNTR31, MTDATA
/ODO, 7CH, SPACE rwo, ENABLE. 811!0
K0666, 0666
/3,J
MESSllJ3, 6363
/8,SP
7040
0411
ID• l
/S•P
2320
/L•A
1401
/Yi?
3177
I

/OMllJ1

EXERCISER
2117

TAPE 1

PAl..U

ll!fiHllllJ

V141

121

24-MAR-71

9119

PAGE'. 1•2t

/ENO

2200
2201
2202
2203
2204
2205
2206
2207
221.fJ
2211
2212
2213
2214

a21s
2216
2217
2220

2221
2222
2223

2224
2225
2226
2227
22;.U'l
2231

2200

•2201Z!

121000
7604

Ml'DATA1 121
LAS
ANO K04tlllll

0103
7642!

5223
!1,356
4403
s.021

RAR CLL
RTR
JMS I PNTR24
TAD PMES15

JMS l PNTR1

4413

TAO K72ill!I

1i05
3206
'4 !5i!

CLA

/TYPE OUT MEADER

/ANO DAU "IELO
/TYPE OUT REST or HEADER

MTDATA•6
JMS I PNTR33
TAO MTF"ELD
TAO CHNGE2

OCA

1021
S.246

~226

OCA • •1

62111
11012
tt4'5

COF'

TAO 12
JMS I PNTR24
TAD K02411J
JMS I PNTR25
TAO I TEMP
JMS I PNTR24
TAO KllJ24llJ
JMS r PNTR25
TAO 13
JMS I PNTR24
TAO Klll240
JMS I PNTR25
TAD I TEMP
JMS I PNTR24
JMS I PNTR33

1125
4446

4<446

12'13
4445
1125
4446

1511
4445
4450

6201
7604
1fl04

/QR

TAO MTF"ELO

'1"12
14'5
1074

4445
S,125

2252
2253

IOf"

SKP CLA
JMP , +14
TAO PMES16
JMS I PNTR1

76UJ

2234

2247
2250
2251

JMP CHNGE2•1

6002

1511

2236
2237
2240
2241
2242
2243
2244
2245
2246

SU CLA

§247

2232
2233

2235

/MAGTAPE DATA ERROR ROUTINE

/PICK UP "COOO" ADDRESS

/PICK UP "COOO" OATA

/PICK UP "BAO" ADDRESS

/PICK UP "BAO" DATA

CHNG£2, CDf"

LAS
RAL

'1Hl0

SMA CLA

'1402

MLT
JMP I MTDA TA

5600

/HALT ON ERROR?
/YES

/INPUT FROM KEYBOARD AN OCTAL DIGIT, SKIP IF OK
2254

0
-~~~--::=-;-·

0000

INPUT,

•

~1 EXERCISER - TAPE 1
2255
2256
22!;?
22611l
2261
2262
2263
2264
2265
2266
2267
22'10
2271
2272
2273
2274
2275
2276

- -

PAt..10

4406
~153

,.153
'111141
1360

1!:>40
5273
j,.135

77112l

5273
U53
1130

2254
§654
1357
4446
4450

QUEST,

§654

1/141

.J~S I PNTR4
OCA CHAR
TAO CHAR
CIA
?AQ K0260
SMA Si!A
JMP QUEST
TAD K00H:'l
SPA CLA
JMP QUEST
TAO CHAR
AND K00el7
!Si! INPUT
JMP I INPUT
TAO K0277
JMS I PNTR25
JMS I PNTR33
JMP I 1NPUT

/OCTAL PRINT SUBROUTINE
2277
23H
231111
231112
2383
231114
2311J5
231!16
23117
2310
23U
2312
2313
2314
2315
2316
2317
2320

l/llllH

U71
U21
~172

U71

7Ul4
7illi!l4
7"06
3171

"171

1!113111
S,36111

4446

1i11
2172
'3Gl5
1200
,677

PRINT,

l1J

OCA TEMP
TAO M"'111114
OCA TEMP1
TAO TEMP
RAL. CLL
qAL.
RTL.
OCA TEMP
TAO TEMP
ANO K01111117
TAO Klll260
JMS I PNTR25
TAO TEMP
!Si! TEMP1
JMP , -11
CL.A
JMP I PRINT
/MESSAGE PRINT SUBROUTIN£

2321
2322
2323
2324
2325
2326
2327
2330
2331
2332
2333
2334

0020

3171
445~

1~71

111362
7450
5721
7110
711110

711112
7012
4344

MESAGE, 0
OCA TEMP
JMS I PNTR33
TAD I TEMP
AND K770121
SNA
JMP I MESAGE
RAR CLL
RAR
RTR
RTR
JMS POSIT

------~--------

24-MA" 11

9119

PACE 1·26

~
,,

i---------- -

- - -- - - - -

/DMl1 EXERCISER • TAPE 1

2335
2336
2337
2340
2341
2342
2343
2344
2345
2346
2347
235f/J
23!i1
23!52
2353
2354
2355
2356
23!57
2360
2361
2362

2363
2364
2365
2366
2367
2371
2371
2372
2373
2374
2375
2376
2377

2411fi'
2491
241112
241113
2404
241115
241!J6

2407
2410
2411
2412
2413
2414
2415

--- -

2,571
11361

7450
§721
4344
!ll '11
§324
l!lfD 0lll
3172
1172

:1,131
'17U
1132
~11114

1172
4446
,744
t156
9277
1268
11077
7708
lllJllJI

1126
44'6
S,l27
4446
1763
24113

.,.,,
4015

1197
2~1111

a'n

1718

POSIT,

V141

RANGEN1 l1l
CLA
TAO RANTNO
TAO RANDEX
SU CLA
JMP RANTAD
TAO RANTBL
OCA RANOEX
TAO RANCO~
CLL RAL
SlL
!AC
OCA RANCON
RANTAD, TAD RANCON

1231
3227
:1,230

711114
7430

712111l1
3230
S.230

- -- --

·-

PACE i•2'1

lfJH

s21s

0119

OCA TEMP1
TAO TEMP1
TAO MH411l
SPA CLA
TAO Kf/111/llll
TAO Klll20e
TAO TEMP1
JMS I PNTR25
JMP I POSIT
PMES161 MESS16
I" 711
K0277, 277
K02611J, 26el
KH77, 17
K77H, 77H
/CARRIAGE RETURN-LINE F"EED SUBROUTINE
CRLF",
TAO Kll215
JMS I PNTR25
TAD Kl212
JMS I PNTR25
JMP I CRLr
/T1C
MESSll4, 2411l3
/518
65711
/SP,M
41!115
IA1G
11117
IT• A
241111
/P1E
2085
/?,END
17H
•24H
/RANOOM NUMBER GENERATOR

2,242
:1,227
7641/J

24•MAR•71

TAD I TEMP
ANO KH77
SNA
JMP I MESAGE
JMS POSIT
!Sl TEMP
JM!> MESAGE+3

2 ~ IJllJ

12(10

- - - --

PAl.U

()

~ EXERCISER • TAPE 1
2416
2417
2420
2421
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434
2435
2436
2437
244111
2441
2442
24'3
2444
au5
24'6
24'7
i4H
24!51
24!52
2453
2454
24,5
24'6
24!;7
246111
2461
2462
2463
2464
2465
2466
2467
2470
24'11

2472
2473
2474
2475
2476
2477
2500
2501
2502

1~27
;,t~27

i243
10UJ
:!,627
2227
~243

:!,243
§6Q10
2442
{!543
2432
•543
:,210

lll765
,432
~11!17

16§4

4321
1076
5336

PALU!

TAO i RANOEX
OCA I RANOEX
TAD RANSAV
RAR
TAO I RANDEX
ISl RANDEX
OCA RANSAV
TAO RANSAV
JMP I RANGEN
RANDEX1 RANTND
RANCON, 6543
RANTBL• ,•1
6543
32U
0765
5432
2UJ7
7654
43~1

111176

RIHl!I

RANTND, .. RANTND
RANSAV1 0

IH0

RAND11

7200
131116
:!.273
761UI
,261
1275
~273

1274

11114

CLA
TAI) ,•40
TAO , •24
Si!A CLA
JMP , +1fJ
TAO , •23
DCA ,•2111
TAO , +21!1
CLI,. RAL

1~3111

SIL.

70P.11

:!,274
:!,673
;)673

s,277

UC
OCA
TAO
TAO
OCA
TAO

7ilUI

RAR

~274

i6'13
2273
J3e1
:!,30 7
§644
2!:>06
6!:>43
2476
1076
?654
5432
J2Ul
6!:>43

v1•1

TAD
ISZ
OCA
TAD
J~P

,•13
6543
,•1
1076
7654
5432
32U
6543

,+14
, +13
I ,+11
I , +1111
, +13
I ,+5
,+4
,+17
,+16
I .p26

--- --- ~---,
~

24-MAR-12,

fl19

PAGE 1-28

IDMll EXERCISER • TAPE 1

PAl.UJ

2!5113
2584
2595
251116
251117

111765
2117

25Ul
2511
2512
2513
2514
2515
2516
2517
25211
2521
2522

taH0

1737
1737
1343
1118

2!535

s,353
17U
a's2

'~
-254-6

2547
2550
25!51
25'2
2553
2554
2555
25!J6
2557
2560
2561
2562
2563
2564
2565
2566
2567

Ill

Cl.A
TAO ,+40
TAO ,+24
SU CL.A
JMP , +UJ
TAD ,+23
DCA , +2li!I
TAO ,+2e
Cl.I. RAL.
Sll.

UC
OCA ,+14

TAO ,+13
TAD I ,+11
DCA I , +UJ
TAO ,+13
RAA
TAD I , +5
I Sl , +4
DCA ,+17
TAD ,+16
JMP I .-26
,•13
65'3

1~40

1737

2536
2537
2540
25'1
2542
25•3
2544

RAl\02,

3340

2532
2533

i337
1353

·~·3
2542
fl543

,•1

6543
1765

1765
i117

2117
021

.aa1

S,-176
16'4
J4'32

1176
'16!J4
5432

32UI
!i226
llHI

.. I

32U

Ill

/GET SUBROUTINE
G£T,

llJ
KSF"

6il31
§355
611136
6'!146

JMP , -1
l<RB
TL.S
TSF"
JMP , -1
TCF"

611141

5361
6042
~H54

0406
6362
4004

ltAGE 1•20

Ill

7'61UI

2524
2525
2526
2527
25311
25U

9119

4321

,325
1341
3337
1349
7194
74H
1f/Jll 1

24•MAR .. 71

...

'200
S,352
"337

2523

2534

llJ765
a1117
•321
5272
1111111110

V14'1

MESS07

JMP I GET
0406
6362
4H4

--~-----

ID1F"

/3•2
/SP,O

~
PAL.Ul

EXERCISER • TAPE 1
,,123

2570
25'1

9317

1123
0317

2512

~HilH

2600

• 2 61112!

260111

3144
101114
3145
6234

SCAN,

2601
2602
2603
26114
2605
2606
2607
26',0
2611

2'612

., 11114
100.6
1123
1366

3234
6031
14U

V141

OCA AC
RAL
DCA LINK
RIB
RAL CLL
RTL.
ANO K0070
TAO CHNGE3
OCA MEMORY

I< SF'

SKP
JMfl EXIT

2613
2614

523111
{1771

OTSF'

2615
2616
2617

7410
,637

5641

SKP
JMP I OTF'L.AG
MTSF'
SKP
JMP I MTF'L.AG

6622

!1622

2620
2621

2622
2623
262'4
2625
2626
2627
2630

2U1

(1701

1410

14u

SKP
JMP I DOF'L.AG

1643

6621

;211/J

72H
6H2
1145

2632
2633
2634
2635

62111
6H1

2U6

5~1110

'11UJ
:1,U4

[XIT,

Cl.A
CL.A

KCC

"TAD LINK

RAR CLL
TAO AC
MEMORY, CDF
ION
JMP l 0

24-MAk-11

9119

I I• S
IC•?
/ENO

/KEYBOARD F'LAG?
/NO
/YES
/OECT APE f"l,,AG?
/YES
/MAGTAPE F'L.AG?
/YES
/DISC OR DRUM DONE FLAG?
/YES
/OlSC OR ORUM ERROR FLAG!
/YES
/OR YES, DEPENDING ON DISC OR ORUM TESTED
/CLEAR AC & KEYBOAROFLAG
/RESTORE LINK & AC
/RESTORE MEMORY F'IELOS
rTURN ON INTERRUPT
/EXIT

/DECTAPE FL.AG RETURN ADDRESS
2637

flfll210

2640

§230

OTF'LAG1 0
JMJl EX IT

/EXIT TO TU~N P,J, ON

/MAGTAPE FL.AG RETURN ADDRESS
2641
2642

~0111121

5230

MTfLAGt 0
JMP EXIT
/DISC OR DRUM FLAG RETURN ADDRESS

2643
2644

0111111111
5230

DDFLAG• 111
JMP EXIT
/TYPE SUBROUTINE

PAGE: 1•30

~
•

/~ EXERCISER ~ TAPE 1
2725
2726
2727
2730
2731
2732
2733
2734
2735
2736
2737
2740
2741
2742
2743
2744
27'45
2746
2747
275121
27!51
2752
2753
2754
2755
27!:S6
2757
2760
2761
2762
2763
2764
2765
2766
2767
277121
2771
2772

2773
2774

3000
3001
3002
31211213
30ri14
3005
3006
3007
3 0 llil
3011
3012

PAl..Hl

SKP CLA
JMP , +14
TAO PMES17
JMS ! PNTR1
iAD DDFELD
RAR CLL
RTR
JMS I PNTR24
TAO PMES15
JMS I PNTR1
TAO K7200
DCA DDDATA+6
JMS I PNTR33
TAO DDFELD
TAD CHNGE3
DCA ,+1
CDF

5343
~374

4403
1022
i'lU!

7lil12
4445
1014
4403
1105
J326
4450
i022
1366
3346
621/Jl

1014
4445
1125
4446
1511
4445
U.25
4446

TAO 14

JMS I PNTR24
TAO 1<121241/J
JMS I PNTR25
TAO I TEMP
JMS I PNTR24
'!'AO K'11241/J
JMS I PNTR25
TAO 15
JMS l PNTR24
TAO K0240
JMS I PNTR25
'!'AO I TEMP
JMS l PNTR24
JMS I PNTR33

1~15
4445

U25
'44146

,,571
4-445

445121

171210

7402
5720
,,357

3000
0417
0:i23
4lil 2 4

1005
A0ri13
1715
2025
2405
2240
1001
2605

11141

1or

f!llJel2

16U

621111
1604
7004

CMNGE3.

/OR CLA
/TYPE OUT 1-lEADER

/ANO DATA FIELD
/TYPE OUT REST

/PICK UP "GOOD" CATA

/PICK UP "BAD" ADDRESS

/PICK UP "BAD" DATA

/HALT ON ERROR?
!YES

Hl.. T

JMP I DDDA TA
P'MES17, "IESS17

•3000
MESS01, 0417
0523
4024
1 '1l05
4003
1715
2025
2405
224'11
1001
26'115

10.0

IE•S
/SFl,T

/H•E
/SP,C
/0 d'1

/P1U
/T,E
/R1SP
/H1A
/V•E

or HEADER

/PICK UP "GOOD" ADDRESS

cor

LAS
RAI.
SMA CLA

9119

24-MAR•t1

PAGE 1-32

- ----

- ..

---

/OMl1 EXERCISER • TAPE 1

l'Al.U

v1•1

3113
3114
3015
3f1J16
3017
302111
3021
3022
3f1J23
3024
3025
3026
3027
3030
3031
3032
3033
3034
3935
3036
3037

'8U
Ul5
4H6
1714
1417
2711
1607
4004
0526
111113
0523
4058
2431
2H5
4f1J31
5531
0523
4IU
55U

/SP,T
IM1£

3UB
HU
311142
3143
3144
3145
3046
38'7
31!11
3011
38'2
3111!53
3H4
3H5
3016
3017
3060
3061
3062
3flJ63
3064
3"65

3066
3067
3070
3071
3072
3073
3074
3075

0
---

--~---

- -- - -- -

'"24
1il85
•H6
2.714
1.417
~7U
~607

4004
13526
~103

1523
4050
2~31

2f1JllJ5
•031
5531
11523
"IJU
'5U
S,751
IHI

.."',,,84

1286

i123
1377
tHI
15H

S,751
0

"1ESS88, 2216
61117111
41U

U23

MESSl/J9, OJ5H

2~22

2422

1.515

1515
1117
22U
'171111

11'8
2,517
1231
'17H
1117
1740
1525
8318
1710
·~u

MESS·1fll, 1117
2740

1!525

IJ3UJ

4H0

7710
MESSU 1 1411
2313
4H5
2222
1722
4023
2401
2425
23'f1J
4000

2403

"1ESS12• 2403

6061

2313

•HS
2222
2,722
4i!J23
~401

2425
23411!

2•-MAR-71

9U9

PACf 1•33

/SP,F'
/OrL

/L•O
/Wd

/N•G
/SP,O
/E1V
/I, C
/£,S
/SP,<
IT' y

IP1E
/SP,V
, .. ,y
IE1S

/SP,N
/•1N

/9,)

/ENO
/R' F'
/818

/SP,O

It ,5

IC17
/END
/£1X
/T1R
/A1SP

IM1E
IM10
/R1V
/tr ENO
/MeO
/W1SP
/M1U
/C1M

I?, END

/Cd

/SrC
/SP,E
/R•R
I01R
/SP,S
IT, A

/T1U
/S1SP
/SP.ENO
IT ·C
ni.1

I~ EXERCISER • TAPE 1
3076
3077
311!1"
311/ll
311/l 2
31e3
3HJ4
3105
3UJ6
3UJ7
31UJ
3111
3112
3113
3114
3115
3116
3117
3120
3121
:5122
3123

3124
3125

4H5

a222
2,722
4e23
:(401
2425
2341il

401il0
a403
657e
4"1/J 5
2222
s,722
42123

2401
2425

a3u

4H0
1!1422
~515

4005
2222
2,722
1Ul23

- - ---- - ~---- - - ---

PAL.10

4H5
2222
1722
4e23
241111
2425
2341il
41il00
MESS13, 2403
6570
41Ul5

2222
1122
4023
241111
2425
2340

4000
"4ESS14, 0422
2515
4005
2222
1722
4023

241!11

211111

3127

a~25

313111
3U1
3132

234111

2425
2340
4He
"1ESS15, 07''1
0414

3126

3133

:SU4
3135
31S6
3U7
3U0
3141
3142
3143
3144
3U5
3146
3147
3150
3151
3152
3153
3154
3155
3156
3157
3160
3161

'""""

171111
1484
tteiel7
·~01

411Jf117

244"

0401
244eJ

iJ4" 4
de2
111491

lll404
41/l02
lll4Ill1
24Be

e2u
a41110
241/l3
6"161

US4
0124
1!11'0
111522
~217

224"
"116

4002
1!1116
1.S4e
41000
lll41.4

021111

"4ESS18, 241/l3
6061
4011l4
0124
0141il
0522

22H
2240
1116
4002
1!1116
1341:'l
41211210

PR0338, 414

V141

24 .. MAh , 1

9U9

!'ACE 1·34

/SP,E
/R1R
/01R
/SP,S
IT •A
/TtU
/S1SP
/SP,END

~
T

IT, C

1518
/SP,E
IR1R
I01R
/SP,S
IT• A
IT •U
/S,SP
/SP,ENO
/O•R
/U1M
/SP,E
/R1R
I01R
/SP,S
IT• A
/TrU
ISrSP
/SP,ENO
IG1A
10·0
/SP,G
IO•A
IT 1SP
l81A
10.0
/SP,B
/01A
/TI END
/T1C
10.1
/SP,O
/A1T
/A•SP
/E•R
/R10
/R1SP
II IN
/SP,B
IA1N
/K1SP
/SP.END
/SET SCALE TO 1, INTENSITY TO 4

! : ---

101411 EXERCISER .. TAPE 1
~107

3162
3163
3164
3165
3166

0100
4100
1121

3167

1600

3170
3171
3172
3173
3174
3175
3176
3177

PAl..Ul
1117
110
4100
1121

4000

4000
1600

~600

5600
0

0000
4000

4000

~600

3600
7600
4000
2000

7~00

4000

~000
~165

\1141

24•MAR•'71

9119

PACt 1•3i

/ENTER POINT MOOf ANO OATA STATE, CLEAR eooRc ANO SECTORS
/SET Y•111
/SET X•100o ESCAPE
/ENTER VECTOR MOOE AND DATA STAT[
/DELTA Y•01 INTENSIFY
/DELTA X•1600
/DELTA Y•1600, INTENSIFY
/DELTA X•0
/DELTA Y•01 INTENSIFY
/DELTA Xs~1600
/DELTA Y~·1600, INTENSIFY
/DELTA Xc0, ESCAPE
/JMP I ,•1

PR0338•4
$

0
-~,;;:-~_;,,,

~
\.__¥

~1 EXERCISER • TAPE 1

----~---···
PALU!

1/141

24-MA•- ,1

9119

PAGE 1•36

•
11~11111

01H!0
0100

01111111
11111111

00000000
11111111

11111111
11111111

11!11111
111.11111

11111111
11111111

11111111

11111111
11111100

0200
0300

11111111
11111111

1.i.111111
11111111

1111::.111
11111111

11111111
11111110

0400
0500

11111111
11111111

u111111
11111111

11111111
11111111

11111111
11111H1

11111111
11111111

11111111
11111110

0600
0700

11111111
11111111

11111111
1111111111

1000
ll!B

11111111
11111111

11111111
11UIHl!l121

1200
1300

11111111
11111111

11111111
3,1111111

11111111
11111111

1111'.1.11
11111111

11111111
11111111

141110

11111111
11111111

11111111
:i.1111111

11111111
11111111

1111' 111
11111111

11111111

15H
160eJ
1700

11111111
11111111

11111111
11111100

212100
2111lil

11111111
11111111

11111111
s.1111111

11111111
11111111

2 2fJl!I
230"

11111111
11111111

:l.1111111
2,1111111

11111111
11111111

241110
2501/l

11111111
11111111

11111111

11111111
11111111

11.111111
11111111

11111111

2611le
2709

11111111
11111111

11111111
~1111111

11111111
11111111

11111111
1111 Ul llH'l

3Hl121
3100

11111111
111:\.1111

"1111111
i1111111

11111111
11111111

11111111
1111111::.

11111111
11111111

32H
3300
3400

3500
3600
3700

~1111111

111100~0

1lllill!l000

/DMflll EXERCISER • TAPE 1

PAL.U!

V141

9119

24•MAR•71

PAii[ 1 .. 37

40H
410fll
4200
4300

4400
4500
460e

4700

508111
511Jil
52""'
53H
5401!1

550111

56110
579'!1
601110
UH

6200
6300
6400

6500
660fll
6700
7000
7100

7200
7300
7400

7500
7600
7700
i

0
_._,~~~;:-- __

~.... yl

-/~ EXERCISER • TAPE 1
AC

IU44

ASK1
ASK2
ASK3
ASK4
ASl<5
ASK6
.ASK7

e216

BUH1

surra

BUF"F3
8UH4
8UF'F"5
BUHi
COF'
CHAR
CHNGEl
CHNGE2
CHNG(3
cir
CRL.r
OCH
OClM
OCMA
OOAC
OOCNTR
ODDATA
OOEXER
OOrEi.O
OOF'L.AG

QJ225

121234
lll243
0253
1(1263

0272
a;l.06
0112
0114
0111'7

0111
0113
62"1
fa153
17H
~246

a766
621rll2
2J63

PAl.U

\1141

OlMA
OlML
015338
DI SCAD

6616
6615
0365
0141!1
0137
6626
6603
6605
6611
6624
66113
6605
6612
66'-2

O!SCEA

DMAC
OMAR
DMAW
ORCF
ORCN
ORCR
DRCW
DREt
ORES
ORrS
DRMSEC
ORSC
ORSE
ORTS
DRUM AO
ORUMWT
OSAC

6624

0152
6622
6621
66'.5
tU41

211'14

OTtlATA

1434
6612
1322
6762
0170
1712

~720

DTE RR

1137

llJ4H
9022

OTEXER
OTF'ELD
OH LAG
OTIB
OTl.A

16H
H2e
2637

66U

66U
661ll1

11!>u

2~43

ouc

OTCA
OTCNTR

0018

1563

DOI.INK
001.00P

8562

8:>65

OTl..8

6174

OOPC

Ql5U
19443
11547

DTL.INK
OTPC
OTPNTR

1325

DORE.lO

DORE ST
DORI TE
OOSAVE
OOSTAT
OEAC
DEAL
DECTAP
OF32
OF"32EX
OF'32PR
QF"32P.C
OF'32RE
QF'32Rl
Df"l2WR
QF'32WT
orsc
orsE

£1435
QJ535
'8151
~~u

6615

ZbHi

~644
111~26

IU66
F55
0534
111533

0735
0707
6622
lt621

1324

6766
1323
0163

---~--24-MAk .,1.

MALT2
HALT3
HAl.T4
INPUT
INTERN
INTERR
JMP338
JMPCON
JMP032
JMPOEC
JMPMAG
JMPR08
JMPRM8
Kllll/JG!!2
UH3
K21H3A
KH04
KHB7

l<.111110
KH14
KH20
1(0040
KH70
KHl77
KUH
K0130

K015e
1<.1112210
K0212
KflJ215
K0240
Klil26f/l
Kl277
KUH
K86il0
1<1!684
t<"614

OTRA

6761

OTl~B

6712

OTREAD
OTREST
OTAJTE
OTSAVE
OT Sr
OT STAT
DTWA!T

104'7

1343
1067
1331
6711
11J14 6
i:i. Ill 7

Klll626
KliU>36
t<lll666
Klll676
Krll746
1<11/JH
1(3111f/l0
K72011l

DiXA

6764

1(7101/l

6643
2630
0162
1145
2554
1135

K77511l
1(7751
1(7752

DXAL
EXIT
F'ELO
f"OUND
GET
HAL.Ti

1(7753

K7754
1(7755

------

9:19

t3UI
1457
121733
2254
121143
121207
121161
071216
11115 7
"154
121155
1!11611J
QJ156
1152
1153

1711
1767
ra:t.30
llJ135
~110

21134
0124

PAG! 1•38
L. I NI<
L.0C8£0
LOOK
M011l11J 3
M2i004
M11Jl1J4121
M0316
M0331
M2701!!
MAG UP
MEMORY
MESAGE
MESSU
MESS02
MESSl'J3
MESSl/l4
MESSl/l6
f'IESSlll7
MESS88
MESS09
MESS10
MESS~l

111123

MESS1?

0145
1143

J175
3115
11!121
121131
0116
0117
rii12 0
~610

2u34

2321
3rllllll1J

i565
2171
2371
177121

2565
3848
U 46

3055
Je62
3074

2361

l-'r'3Sl.·--

Jl.06

111132
H5tll

~SSS14

f'iESS15

3120
3132

1151

"4ESSH

1156

0J.04

MESS:l.7
MESS18

3144

111127
111126

11.1125
23621
2357
lll11l13
1154
077~

1155
1356
1355
21721

1254
1564
0136
11.1122
0UJ5

2362
0'575
0076
llJ077

1357

MTAC::
MTAF'

2156
6712

f'ITC~~
MiC~J'!'R

eJ173

MTCR
MTOH·~
M~'E'"i~

MTEX[R
MTFEL.D

6714

6711
22H

1255
201110
0021

MHLAG
MTGO
MTMLTl
MTMLT2

2641
.,722
A14

~·TI B

"', .;ie

MTLC:
"1TLINK

. ~ P:

"4'!'PNTR
MT READ

MTREST
MTR !TE

Ill 11110
01fll1

MTRS

lll111l2

MTSAVE

~~·11

t :1 6
I

"~j

-(1110"
,.. .. fl

120:::
2144
1532
6706
2132

---~

-- ---- --

- - -

- ---

--- -

/OM81 EXERCISER • TAPE 1

PAl.U

v1•1

MTSF'
HTITAT
MTTR
MTWAIT
NOD I SC
PM[11A
PMESUJ
PMES11
PMES12
PMES13
PMES14
PM£SS,5
PHES16
PMES17
PMES18
PHESSl
PMESS2
PMESS3
PHESS4
PMESS6
PMESS7
PMESS8
PMESS9
PNTR1
PNTRU
PNTR11
PNTR12
PNTR13
PNTR14
PNTR15
PNTRS,6
PNTR17
PNTRS,S
PNTR19
PNTR2
PNTRH
PNTR21
PNTR22
PNTR2J
PNTR24
PNTR25
PNTR26
PNTR27
PNTR28
PNTR29
PNTR3
PNTR30
PNTR31
PNTR32
PNTR33
PNTR34
PNTR35

PNTR36
PNTR38
PNTR39
PNTR4
PNTR40
PNTR41
FNTR42
PNTR43
PNTR44
PNTR45
PNTR46
PNTR47
PNTR48
PNTR49
PNTR5
PNTR6
PNTR7
PNTR8
PNTR9

"853
H54

6791
IU7

t7at
S,266
1213'45

0364
""7 3
'11775

1147
S,326
2,563
8074
a356
2774
2,766
IUJ63
HU

9H5
li66
9l'067
8078
H71
1872
flfJflJ 3
9"'27
llJUI
1i1131

9132

1ils;s

eeu

ti35
1"36
111837

1e•e

POSIT

PRINT
PR0338
QUEST
RANCON
RAND1
RAND2
rtAND3
RANDEX
RANGEN
RANSAV
RANT AO
RANT BL
RANTND
RO COMP

8H4

ROF'

fJU1
1u2
f"'4J

REC:ORD
REWIND
Rf"08
Rf"08EX
Rf' l'IJ8PR
RF'lll8RD
Rf'ISRE
RF'88R I
RF'08WR
FH"08WT
RIB
Rlf
RHl8
RMl'IJ8EX
RM08PR
RM08RD
RM08RE

QllllH

lilll5

IUJ46
U62
2163

2164

2165
llJH5
~166

2167
11111147
011150
rtHl51

0052

l!Jll!i5
l'/JH6
"856
elll57
0060

1327
1330
0703
0714
0715
"961
011162
081117
lilliJ23
H24
8125
0826
23114
2277

-- - -

24•MAR•7i.
RMHRI
RMHWR
RMP
SCAN
SEARCH
Sl<JP
SPCf"WD
START
TEMP
TEMP1
TEST
TRACI<
TYPE

9119

-- - ------

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

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

PACE 1•39

fl!51!5

S.416
6244
26H

UH
1'11133
2112
lll200
tlll 71
0172
0327
1'11142
2645

2273
243fJ
24'4
25UI
2654
2127
2418
2443
205
201
2'42
1228
6U4
0161
1248
0662
111517
1'11167
1461
e525

lll524
1511
1521
6234
6224
0627
05U

0165

141111'/J
0516

0
----~~~--

-- - -

3161

0
-7Z55557?155---::---

-- - - -- - -

- -- --

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

------

,e,1 EXERCISER • TAPE 1

PALU

V141

·~---

24-MAR·t'1

~
/
'

9119

PAGE 1•40

ERRORS

DETECTED!

LINKS GENERATED! 0
RUN~TIMEI

16 SECONDS

3K CORE USEC

0 ,[,
i'

ii
11

!·:

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