Digital PDFs

MAINDEC-12-D3DB-D

May 2000

68 pages

Original

2.8MB

Document:	Tape Data Exerciser
Order Number:	MAINDEC-12-D3DB-D
Revision:	0
Pages:	68
Original Filename:	http://bitsavers.org/pdf/dec/pdp12/diagnostics/MAINDEC-12-D3DB-D_Tape_Data_Exerciser.pdf

OCR Text

0:::

l.oJI

"'u.
QC

I!-

""aII
z

II
IO

I!-

U· t

•II- t I
<II[

...,.. i

t.
I

...
.....
""' °'.... ...
• z
....
llL

-•

Ill
t

::>

C'lll

w
a
z

""'

41(

(.!>

12.

0
llL

U»

Cl>

(,51

11111

....

<
0

0
C>
::Ill:

,...

][.

"I[

•IL• l

........

-11
Z•I

••

Cl
.... ' l

0
0

l!:

II-

-....

:::>

a
0

:::>

0
0

a::

l.oJI

:z:

...
w

<O[

..a:

or::

:z:
<

...:x:
:::»

~~~!~ACT
•!"•••9'"!"11f

TH£ POP.12 TAPE EXERCISER PROGRAM IS A OYNAM?C TEST Of TME
L!Nc;TAPE CONTROL ANO TAPE TRANSPORTS, ?T MAY BE USEQ To
tEst A CO~TROLLER WITH rROM 1 TO 8 TAPE TRANsPORT UNITS• ANO
A POP•i2 WITH UP TO 32·K or MtMORY,
2I

MACHIN£
REQUIREMENTS
.... - ....... -

-P-•••--~----e~---~~

Aa
81
O~

2sl

A STANQARO PoP•12A OR 8 COMPUT!R1
POP•12 LINC 5 TAPE CONTROLL£~1
A ~!NCmTAPE TRANSPORT
AN ASR~IJ tELETYPE OR EQUIVALENT

STORAG~
~-1!"'""!l!' •

..,

THiS PROGRAM MAY ONLY 8E RUN lN MEMORY ritLO 0 ANO OCCUPIES
VIRTUALLY
or TMt LOWER HAL, or fitbO a. LOCATIONS
ea3377 INGL SlVEa LOCATIONS '400j7777 ARE USED ,OR I~PUTm

'bL

nU~PUT sur,tRS~

2o2

PRELIMINARY PROGRAMS
-·-------·---~~---~9

ALL POP•B ANO LINC•MOOf BASIC INSTRUCTION DIAGNOSTIC ANO
EXERClsERS INCLUDING TApE co~T~oL TtST MUSl HAVE SUCCISS'ULLY
RUN PRIOR TO RUNNING !APE [XERCXSER TtSTe

2,3

~Q!Q!NC ~ROCEO~R'
-•··~~---e•••9~~•

J,1

11ETHOD

•4!'·---

TMiS PROGRAM CAN BE LOADED INTO MEMORY wITM TM£ BINARY LOADER,
IT MAY ALSO Bt LOAOEO INTO MEMORY BY USING LAP6•DtALa

STARTING
PROCEOURE
- -...
~

~P.~•-----~---P•-••

TH~ PROCEDURE TO SETUP THE TAPE PROCESSOR rOR DIAGNOSIS IS
eRITICAL1 ANY ERROR IN THE STARTING PROCEDURE MAy R£SuL.T 1N
AN ERROR,

TAPE TRANSPORT
11

2,
31
41
~;

SCOPE CVR 14>
11

PL.ACE CHANNEL SELECTOR TO 1 & ~.

DATA TERMINAL PANEL

MOUNT A CERT1r1ED POP•12 TAPE !wHICH HAS BEEN MARK[O WITH "MARK 1~00 11 >
ON ALL. DRIVES TO Bt TESTED,
stT THE UNIT SELECTOR SWITCH ON EACH TRANSPORT To AN
INCREMENTlNG NUMBER STARTING WITH UNIT 0,
StT THE LOCAL/REMOTE SWITCH TO R£M0TE ON EACH DRIVE,
S~T WRITE ENABLE SWITCHES ON EACH DRIVE,

ROUTE ANAl..OG CHANNEL. t .. cfO 4 COUNTiR•gL.OcKwlS~ TO THE
ENO or ROTATION, THE$£ ARE USED ONLY TO CONTROL. THE
POSITION or THE DISPLAY,

COMPUTER

1,
21

31
4,
5,

SET THE LErT SwITCH£S TO 020w,
SET TH£ RIGHT $WITCHES TO x0xx.
CRErER TO SECTION 4111
StT THE MOO~ SWlTCM TO LINC•MOOE,
otPRtSS IIO PRrSET.
DtPRESs START LErT SWlTCMts CLS)e

TH£ PROGRAM IS NOW RUNNI~G, TAPE UNIT ~ SMOU~C START MOVING
iN TME REVERSE OtRECTlON, WHlN TH[ COMPUTER 11 T~ANsr£RR1NG
6ATA lN NO•PAUSE MOOE• THE PDP•12 MAINOEO NUMBER (03DS) WlLL BE
DISPLAYED ON THE OlSPLAY SCRE;N,

4,1

~O~!~O~

SW&TCH_S[iTINGS

--eo~~-----Q--~--~•a~~p

RIGHT SWITCHES

ASW ,'~1
~SW

RSW
RSW
4,2

O[~ETE

R~COVERAS~E

ERROR MAbTS, AND RESTART CURRENT FASS

1~1
0E6ETE ER~OR MESSAGE,
6al~ NUMBER D' EXT~A TAPE TRANSPORT
9011~NUM8E~
EXTRA 4K MEMORY

UNITS,

r?ELDS1

SiARTiNG AOORtSS
~~-------~~-~~--

LI Nc,;;,MODE

210

l. l

201

l..b NC .. MOOE

ONLY T~Est
~AOGRAM1

MOVE TO~ARO S~OCK (MTBi TE~T1 UPON COMPLETION 0,
THlS T£ST ON UNiT m, ~~Ii To TM£ OATA T£ST1
DATA TEST ENTRY AOOR[SS1

TWO ADDRESSES ARE VAbID STARTtNa ADDRESSES roR THIS

5,
W"~ll:ill-1!11'!,;J

VAbUE OP THE

TM~ ~R~OR iYPE•OUi MESSAGE !S
~ou~rE~ E~ROR ~acArION,
'fl>!£ TYPE
ERROR (I. E,' ERl) I

IH1s bisTING Musi se:

fll'INO

TM!! ERllHlRS ARE I

SKIP ON TAPE DONE rAI6t0 8
r•c lN ERROR, AC CONTAXNS THE BAO VAb~E OF THt TAC,
B~O StARCHs AC CONTAIN$ TH£ BAO VA6UE Or TME 'ACe
TA~E lNTERAUPT r•I~~o TO CAUSE AN 1
UNEXPECTED INTrR~UPi~ r~oM AN
MO'flON E:RROR 8
DATA 'RRDRe NDN~GRQUP TAPE INIT
OATA ERRORa A G~OUF TA~£ l

ER 11
E:R 21
[~ 31
!!!ii 4 i
~R 51

ER cl
10~

11
GI

34©0m3111 CONTA N
CONUINi

DATA E:RROR ts
OATA ANO T
THE; OAT$. IN

fi:IH~OR

YONS

~ESiRXeT!ONS
-~!"'f-=t!'<'-'f"'g~l!G~

D ~
S AR

,tIr
!

ON
TON

Tl ME

=-~--c;:o--------~

THE EXECUTION TIME IS VARIABLE
'MOUNT or EXTRA MEMD~Y~ TME M
SE CONSIDERED
MtNUT£5 P~R T
8,

ANO
0

ERROR U
·~--

. . ----@'---Alt

XXXX•Rt~ER

iO b0CAiION xxxx

or ~RRQR ~NCOVNiER~o.

THE ~ISilNG TO rx~D THE iVP[

OV[RNlGMT RUNSI
'f'"-------------~~

OL.E ll:RROlll
IF ~SW mr IS SET TD A CNEa THE TEST WlbL Hf:![ our ANY RE
T i:»ASS 1 !H!S %$
ONDii!ON ENCOUNTERED AND RESTART i
A~E IN ca:NtRAl,
E TO THE FACi THAT SEARCH ANO DATA
NDNA~COVERABLEa

10e

!RROR oErlNiitONS
~~------fi----~---

ERROR 1 SKIP ON
!N P

IN M

DONE

&:AROR

A WR!

'l'H[ i

THt V
EiHIOR

TMf
!.OC I

LDC,

10??

EC A M
CONT A

t
I

101; CONiAI

ERROR 4 TAPE IN
UPT FAILED
PT BIT Ai
xoawo, I
OONE FLAG,
TEA OE
HAVE OCCURR~D BUT Ii 0
TAPE INTEARU~T FLlP~FLOP NOT StTl
£R~OR 5 UNEXPECTED INT£RRUFT
•0002 OBTAINED AN 8 MODE %NTE~RUPT NO SUCH
INTERRUPT iS LEGAL
*0041 LINC MOOE lNiERRUPT
iHE PROGRAM DIO NOT EXPECT A P~OGRAM INTERRUPT, THE
xoa WORD (Bfi !) WAS 0 T~ERErORE NO INi[RRUPT WAS
EXPECTED,
00046 LlNC MODE INTERRUPT
THE PROGRAM DID EXPECT A PROGRAM INTERRUPT rRoM THE
TAPE CONTROL BUT Ii WAS ~Di r~OM TH~ TAPE CONE PLAG,
SKIP ON TAPE DONE MAV HAVE FAlLEDe

c A TEST

tXECUT£0 A
ST TE OV

or i

SET THE LINK TO

HE E

Ir THE 6!NK~0
MOTION
THE MOTION SHOULD EQUAb A ti
1

A 1~ DR A 0~

ERROR 7 OATA ERROR e RDCa ROE
CMtCK lNiO MEMORV
la

A REAC OR REAO ANO

iHt OAiA PiELO REGISTER CONTAINS !ME MtMORV rIE~O JN
ERROR1

2r
31

LOCAilON e115

(~Er[R

~OCATION

~016

GOOD DATA
GOOD DATA!,

is A 10 Bli AOO~[SS OF TME BAD OAiA

LOCATION

TO ~ECiION I>e

ZS A 10 iIT AOOR~SS XN ~OF1 WHERE
STORED (340~ iHRU 3111 CONTAlNS TME

THE AC CONTAINS THE GOOO OAiA
CRErER TO 119 roR PAT

THE LOCATION MTtNiT
1 (
NUMBER ON THE TAPE f N

~RROR
8 DATA
GROUP {RCG)

.. RCG

THE DATA ~!
ii:RROR I

TlON
TION

3»

~OCAT

CON'l'A i NS

A RUO ANO CHE

EXE:

!S A 10 81T
TQ
ION

~~ErER

XS A

GOOD OAiA iS Si'
OA'i'A) e

lNS i'Ht GOOO

IJCK

¥ F'

or me::

OATA

x>~

IN LOF' 1 W~t~[ TME
INS TM£ GOOD

iHE AC

THE LOCAT~ON MYXNST e1 (
> CONTAINS iME
OUP
COUNT AND THE eLDCK NUMBER ON THE TAPt IN ERRDRs

A F'UHRN a

.
II

TO.DETERlNE TM~ MEMORY AOORESS or A DATA tRROR ANQ Ir'S VA~ut
ArTER YHE MACMINE MAS COM,bETEO TY~JNG TMt ERROR ~EPoRT.
As iHE GOOO DATA ts IN THE ACa
81

EXAMINE ABSObUTE ~OCATION 0~15,

C1 SET THE LErT SWITCH BITS 2°11 EQUAb TO THE
VALUE or LOCATION ~015 BIT~ 2°11,

D1 SET L£rT SWiTCH BITS 0a1 EQUAL To THAi or BITS
3e4 Or THE DATA rlELD LIGHTS 0
E1 SET TH[ !NST, r1ELO SWITCHES EQUAL TO TMAT

or B%TS

0e2 or THE CATA ritbD LIGHTS.

r, DEPRESS EXAM,
Ga THE BAO DATA WlLL NOW APPEAR 1N THE M£MORV eurrtR,
111

DATA PATT~RNS
•ee••e-w~•,.·~

0000

7717

00H AND 7'!77

71'!7 ANO '11&100

E•
FI
Ge

70'10

HI
II
JI
KI

LI
MI

0707
7070 ANO ~7i'7
r1l'707 ANO 711J70
5252
2525
5252 ANO 2525
2~45 ANO ~1J2
COUNT PAi"l'ERN

x
PO~

~OAOE:R

>i[AIJI N M
~EA01N

SfOFl[IJ IN

KhS AND iW i
U:JCA'i'Hlil!S

POP~12

RIM LOADER

~SA

F'OLLO~i$

A
H~S'fi'-l\H'''

fl,

ON U

CO~l'-H!N'fS

AR
NG

KR!!
152

1'10~

'}'{Q<\

11Q5
7166
77t>7
7770
n11

5;s51
1 Ht>

ft
'Ji
1'774'
1715
111'6

;it:;rn
3776

il:R

ca.L
~TL
~SIY

IOI<

CHANNEL 1

N Ui;jK

JM!fl.,1

6!21J<i!

Ck.e'.iH~
AOQ~ES

DC:A ?
DCA T!i;M!i'

JMF

('i

JMP ;;

!Nt 'i'
S &.Fil OF" iHN

~LACINa

TH£ RIM LOADER IN CORE MEMORY By WAY or TH£ OPERATOR

~ONSDLf

KEVS AND SWITCMES IS ACCOMPLISM[O AS 'DLLDWS1

SET TM~ STARTING ADDRESS 7756 IN T~E LErT SW!TCHES 1

SET THE FlRST tNSTRUCiION (60321 %N THt ~l~MT SWITCHES 1

PR~Ss

SET THE NEXT INSTRUCTION i6e311 IN iME RIGHT SWii~MES1

PRrss THE rlLL STEP SWITCH,

REPEAT STEPS D ANO E UNTl~ ALL 16
DEPOSlTEDa

THE rILL SWITCH,

l~STRUCJlONS

HAVE BEEN

0 L[AO A TAPE IN RIM roRMAT, PLACE THE TA~E JN TM£ RtAO£R,
THE L~'T $WITCHES TO THE STARTING ADDRESS 7756 OP THE
R!M LOADER (NOT or TME PROGRAM BEING REAO)e PRiSS TM£ START
LS KEV; ANO START TM£ TELETYPE R~AOER 1
S~T

Al>IPENCtX 8
P0Pe12 CONTROL WORD

wo1

rO~MAf

LOCATION 0021

-·---F~----~-~~-----•~

NOT US£0

1•2
3
5

EXTENDED UNIT CROUP
EXTENDED ADDRESS OPERATION
NO'\' USEC
TAPE INTERRUPT (ONLY tr 6!0)

PAUSE'.

"I" BIT

"IJ" BIT

W02

L0CAT10N 0022

9•11

TAPE lNSTRUCilON ruNCilON

·~·-~~---~---?.-------

use:o

0•6

NOT

?e9
10;11

EXTENDED MEMORy rI!LOS
LINC MEMO~Y rlrLDS

w03

- - ... - -

LOCATION 0023

NOT USED

~~~-Q·--~~---~------~

1Q3

QUART~R

tts°)

NO'I'

- 1
~04

USED

B~OCK

NUMBER

NUMB[R (AOD 710!

LOCATION 1~24

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

0~i1

EXTENO[D ADDRESS (USEO IN XA MODE ONLY>

XOB

LOCATION 0026

q~---~---~~--w-•u~--~

0 .. 2
3,.,4
5
6
I
8
9

iz._,11

EXTENOED MEMORV BITS
NOT USEO
TAPE INTERRUPTS
MOOE
~Al NT
EXTENOEO ADDRESS MODE
EN
ENAB~t

DO NOT F1WSE
HOl,,D \JN IT MOH ON

EXiENOEO UN!f

G~OUP

TA~[

DATA EXERCISER MAINDEC .. 12@D3DB

PAl.10

\14'11

/F0Pe12 TA~E OATA tXERCIStR MA?NDECe1~~030B
ICO?VRtGHY 191~, DIGITAL EQUIPMENT CO~Pee MAYNARD•

MAS~e

/STARTING ADDRESSES
I
I

200 kINCaMOOt,

MOVE !OWARO 91.0CK TEST

201 LINCeMOCt 1

OATA H:Si

/f.!SW

011!1

/FlSW

1~1

/RSW
I

0"'8!!i

/Fl$W

9•1U

c0m1
0003
0004

NUMBER or EXTRA MEMORY BANKS

I'** ER 5 ·~• IN 8 MOO!
!•••
~R 5 ••~ IN e MOCt
/TVPE OUT ~OINTER

1(011102 q

0lH2

>OO<AC:,

11lta2!0

*20
VA~I

/STORACE ARtA 'OR
,•000
0000

2~00

001!ll3
Ji1ll!!fa

. ei025
(11026
0027
0030
P'031
01.l132

J001Zl
,<001!l
00tlllll

0033

~ll!H

~034

,1II!"0
. 1 000
,,100
.1200

0035
rio36
0~37

~!11i!!e'

0000

RESTA~T

NUMBER or EXTRA T~ANS~ORTS

Ml.T

UH.T

0!1390
,. 2120

21022
0023
0024

MAI.Ta

GFIUTU THAN liJ

c01112

ii.100111

£R~OR

'111

00H
74132

210213
2;,21

Rt;COVt
ERROR

CHIUTl:R '!'MAN 0

f1Jli'!01
0002

Otl.ET~
Of;!.,f:T~

foUS'!'[R, 0
wo1,

wo2,

0
0

W03e
W04 8

f2l

UNZ'f I
XOl:hH')'
F'ttLDN,
AC a
S'l'AC,

CTEMlB

/WORoi
/WOfH)a

/WORO~
/WORD~

/UNIT SIYS ClN 6s1aS>
/EXTENDED OPERATrONS evrrtR
/r?ELO NUMBER iEf TMER ~ BiTS o~ 5i

/AC

[?)

/UVE:O UP£ AC

0
0
0
C'l'E:MJ1
CSTAR'I', 0
K010fll r
100
K02'il01
200
Q!lii:hJ,

IMAS"f'~R WOl'40

/QUARTER NUMB(~,
IQN BITS

B~OCK

NUMBER SAVt

;BN JeU BITS

/STARTING ADDR£SS O~ "LITTLE F~OGRAM"

CURRENT FASS,

;pgpolc

rA~E

DATA £

/LINC
0040
!1104:1.
0042
0043
012144
0045
0046
l1l047
00!5@)
005:!.
121052
0053
n!54

0055
0tll56

!llel57
0060
11!061

INTE~RUFT

(3040

;:;40

0000

1,.!i\IH~,

lll.316

0002

1200
11!136

6151
7402

;20111

;;: .. o;sos

HA!

ca.A

TAO
63,51
~I.. T

C!..A

Cl.,A
TAD

6141
6061

xxx roR INTtARUPT

I !,.JM~
I MANQl..!NG

TSi'MQR, POP

7200

7'1ftl2
12 !1Hll

/AN LNO? MAYBE AN

LNO~

TAO
6151

7~U

~ANDlE~

111J37
6151

1036
6151

/CHAN~E

I'( !!11,li:'UJ

1<eu0

/$KIP tr TA~E OONt SET

I t11ai~ tR '

!H:l~

/CL,EAi11 '!'A

OOfl!E

K0Uill

1010 TAPE OONf. CLEAR?

61'1
SKP
Fl I. 'i'

1'f&:S

/NO.TA,E OONE Oto NOT

CL.A
Lit>lC

MAG'UPs 1,.JMP

ROUTINt
TO FOP,.6 HOOE

ICMAN;E BACK iO 1,.JNC
lhlT

TA~[

DATA £X~~CJS£~ MAfND£Cw12s0308

Pl AL.Ul

PAGE

VUi

/CHECK THE INSTRUCTION MTS
/START TA~E MOVING TOWARD BLO~K 0~0
011

vHHi2

0i1J6J
0064
Pl'1!65
0066

L11Hl1

0723

MU'fST s Cl..R

BKWR01

~~!!'!!!

AXO
MTii•~~

~067

1;416
7133

0
S'!'r.!
1.JMP

403"

STC

11!
l{JQl

111

i;;ifl!'14

1~40

STAC
SAit

00i!5

0S3e

00'16
ii'll'.!77

'.7133
0~51

l.-MP
A0

121100
(1J 1ril 1

6104

0073

17!102

6~24

0107

1120
0H1
114111
0031

fllU0

1460

s.e.t"'

0111
121112
0113

f:1001

0106

)()(

/NO• UC
/SKI~

b,001=1!11

Iii

/OK SO ,Ari
IU A

l r :!.

sue

6124

0123

011.6
0111

0Hi11
601

!..I;

71!166

1.,JMF

0120
0121

1~40

SAE:

121123

6104

TEST
CON

013.4
21115

0031
7133

T tQUAl AC& £~~OR ••• ER 2 •••
Tlvt c MOULD eg MlNUS OR I)

01,

1:456

0122

r1.AQ IS NOT 5ET ••• [R 1 •••

UC!l!AC?

A!£

0104

TAPE

/RUO UP£ AC

LJMP

50
7f':.s3

0103
0105

nc
s

rnee;s

/i;~ROR,

)()()(

sue

L.JMf$
1..JMP

1
TT

x)\)(
L00P0~

l'l'tST THE DONE
AG
1COMFARE EXPECTED O?STANC~ TO ~
/ltRRoR, BAO "

ARCM" COMPUTATION ••• ER 3 &•e

iAPE OA'fA EXERCISER MAI
/ArrER rlNDING St.
01,24
0125
0126

,;723

0127

6124

0:1,30

1ia20

0131
11!132

0766

4VJ3l,

STC

01.33

Hli21B

L[).U2~

121134

01i'!111;!
0001
k:011

0135
0136

F'OBwRO,

F'ORWRD,

HE:
t.JMP

L.OA•~W

tN £XP£CTE0 TA~t B~OCK

Ct.R

0~53

1Bi!

L.JMFI

(~4U

STD

('.ll 44
0145

/MOVt TOWA~O BLOC~ 111

Mitll•20

/WU T roR

LJMF

,ai

/WAIT roR TAPE OONt

• ii!l,

TAPE AC
T NUMSE:llU

SA[
STAC

0146
47
5e!
'11151

l001
<&<21Zi

1..JMF

6155
1160

L Jt.;P

121155

/WAIT UNTlt. Ii IS 'OUNO

/!..C>AO

6141

0153

F'OBwRO
STAC

0142
0143

0152

/MOVE TOWARD BLOCK me

MT9•2~

,.,.,

iH40
0141

roRWA~O

OCK

0010

0010
<J450

k1'72:S
07'7

0137

1011 "SEA CM" FoR

•
suen

/¥
ii,

/NO~

rROM

I..

0156
0151

621!12
4i'!61

L,JMP
STC

016£!

6~42

LJMP

OATUM
MAG UP
TS'fMOR

AFI THE INPUT
fH61

0002

(lJ162

7300

C:l..E'.AR•

R JN ll'!ELD 0

POP
CL.A Cl,.!,,

TAO
DC:A

0163
'1!164
wi. 65
0166
i!l:!,67

ION
UF A FIOIN'fER

HD
DCA

DCA I

01
01 1

!Sf

5161

JMP

li\172

614

n1<+

4tH'lii!

4001

•'2 00
0201

c<:1e2
6161

'~1<'!0

1'>2

01'3

ri. 75

M401'.'0 e
K4i2l21t
1*20!1J

121

.. 4000
4~01

L,JMP

LJMF

MTl!ITS'l'
CL,E A'I

L,OC:ATION

/DONE 1
IND s MORE: TO DO

/NOW GO DO S

T1..q

T49[

DATA ~XERCI

Z
/'HHS

0202

Cl..R
$'l'"'

SH~

'"' 1
L.Oll

Hi\Si!!:f'l

l\ilr kL !

•2flJ
L.JMF

PAH

IFIOU'!'i NE

STA

FATPNT

0211
ill212

C'ii66

0213
111214

3 :!. ,.,.
0Kl6i

0216
0211
1"122111

0221
0222
m2iN

.,,71

St'l'•U

1!66

Ao&ifa

1'221

XSK•211J

6216

4i21
1~31

4i22
16~1

!1!224
022!5

41!123

0226

1631
d24

0227

, STC

1..IJJIMP

FU NO OM

LJMFI

ne:

1..JMP
STC

WOi
W03
RANDOM
W04

BLOCK PA'!'TDN

CL.EAR

WO!'llC

i!'ORM iilORIJ 2

WORC :S
ANO l!j()RO 4

1~op;;,12

!E:l<i.'.RC SER MAX

xos

e:xcriet

'110:!1DB

/TMJS SECTION OF CODING SETS UP FOR EX
0260

lllliH

EX'iEND

AODP.~SS

LJMP

6344

0266

/~Xi£NOEO

H~.,20

~'4111!

N'l'O AC

/M.UK TO ii rT J

iJ'n
~l2M

ORD 1

/G~T

OPEP.A'fiONS

ROR

8 ! 'I'S

'1126
Tille

02£3
t'1274

ISA\I

0275

2s21

0216

000
6316
:?lll24
3716

02;,
0300

0301

0302

0f11

0303
03215

6H'1
7637
4024

l?.!3216
0301

63ilHll
1 "iHil

0304

;GE r
/NON .. !!

e:n1.

AOD

WIH

e;x
RANDOM

EXT
XT2 Q

0Ji0
0311
111312
0313

D 4

K4Hl:'l

,
INOo

!I 3117

/GU V!ORO 4 AG
AOIJ 'lll701

llJ~'n

'14H

!l!J14

£lt'f4

tXTJ t

0316
0317

0320
0321

'11322

sci,. ·~z

'.,.,~

1110

it242
01il17

/2 L

0323
!1l324

2~21

ACO

0451

APO

0325

6307
76Ji

I..
i..
STC

0'1'2

EXT0

f'J326
0327

4022
6271

('1331

1!i'i1?10

0332

i:lf."27

fll33J

;305

1..J1<1FI
L.DA
l"U'.i.DN

121334

2026

ADD

0335

4fll26

S'i'C

0336

21323

ADD

0337
r!340

1!>69
7"60

BC1. +2iil
?760

~341

24U
41'!32

0330

0342
0343

6~14

EXT4,

ROR

RANDOM

;MAKE NtGA'fI\IE
/00
/HS,

/NO,

HA\I[ 'fl-!£

THE
NEW ~I

W02

5
XOlilWD
XO!llWD

wo3

ADD

1<0'170

STC
1..JMP

QNBI\/

PAUSES

/Gti ~IELO AGA!N
/MOVE 5 RlGHi
/COMBINE Wii~ OT~ER BITS
/ANO STORE:
IGH WORD 3
/MASK TO B!TS 8 TO ll

;STORE IN QNBN SAVE

;PD~~l2

fAF~

MAi

DATA t

/T~IS

0344

121345

0346
11J:S47
e;s!Hl
el351
0352

0353
l?l3!H

1000
n022
1:500
';"i'40
4!1121

211>0:,S

SECTION OF CODING StT

2~21

S'!'C
AOO

1120

A()A<11jj?El

?776
04°71

7'176

F'IE:L,DN
f E:l.DN

AP0<1>21il

"'4

RANOOM
W02

NONEX'f

0~16

~:H,3

TO ~lNC MEMORY rtELO

/~ASK

BCL.<1120

63<H

)(

T WORD 2

0364

0J6'

Ulil FOR N

NO"l!!:XT, 1..0A

0J61i.'!
li!361
0362

171

t( !O~iil

2il21
1

IAl>ll:l SA
!GU li.lfllC

1'f NO'l' ti! Olli U

/NCh

n n ~ o~ 1@ GET
AND

'f~Y

ACHqN

GHT SW!TCMU
/MASK TO rttkD BJTS

366
6J!H1

ION

0J;6

M'f El
Ki0~3B

0317
0400

ril!:ll!n
(»~IH1

:.'!
L.JMP

040

101?10

60A

l1l
0404
040!5

1000
6'413

0406

10H

040i

0410
11

i?l4i2

2 11

t'lili 13

INCH
/GU WORD J

/MASK TO BiTS ~ iO 11

•20

1561!1

NONEX:!

1'10NEX2~

/GEi

Wi:J3
!di!

110

107'0,

NONE

IS'l'

IN ( ~ TO 2

10
lN QNSN SA

9 TO 11 >

/P0~@12

iAPE OATA £XER~IS£R ~A!NDEC~&29D30~

l'Al..10

\13.41

20aiJAN@H

/THIS SECTION 0' CODING StTS U, iH' "~AUSE" B?T
/I' nNo PAUSE" IS SPECIF!ED 1 CONTROL WILL THEN GO
/TO TH[ TAPE INiERRUPT ENABLE @IT HANOLER
~414

1000

PAUSEti, LOA

0415

~i21

W01
COM

0416
0417
0420
0421
fl.1422

e01"
1560
;137
0302
1140

71'Ji

F'<OR

xoewo

0425

i'JCL • 21
., ., 67

0427

6436

I. .J "4 p

0~70

/MASK TO ",AUi£" asr
2

ADM

11l~26

0426

/COMPl.,E;Mt;NT AC

BCL•U

1'60
7161

13423
111424

/GtT WORD 1

12 RIGHT
/COMBINE WITH XOB WORD

/MASK TO "DON'T PAUSE" err

AeE•2~

/SKIP IF' SET
DISPCH

/TAPE INTERRUPT ENABLE BIT HANDLER
/THIS SECTION OF' COOING IS ENTERED ON~V
/THE "NO PAUS'" BIT IS TRUt 11l430

1HS

0431
0432
0433
121434
0435

0021

1560
?671
211126
4&126

TllllNe:N; I.DA
W01

/Ge:T WORD 1

BC1,.•2~

7 611
ADD

STC

/MASK TO BIT '

xoewo
XOSWD

/COMBINE WITH OTHER BITS
/ANO UORt

FAG!!:

YA~[

OAT! tXERCIS(R MAlNDEc~12-03oa

VU1

r "'ROOIH,M
/THIS IECTION 0, CODING DIS?Ai
/TD TH[ APPROPRIATE SECTION Of ;oOiNG TO HAND~I
/TH& PART?CUl..ARS R£1.AilNG To EACH MAG TAPE INSTRUCTION
0436

01il11

DISPCH 9 Cl..R

0437
044121
0441
0442
121443
0444
121445

2r1
1 6121

AOO
BCt,.•U
'111121
A0A•2!ll
1..JMP
S'l'C
1.JMP
'l'ABU:1; LJMP

~446

1!1447
0450
0451
0452
0453

1110
1120
6446
4~45
6445
64!56
6~60

1..JMP

/G(:T WORD 1
W01

/MASK TO PUNCTXON errs
/AOC lN "MASTt~ JUMP"

TAiH.U

.•1
I

ROSUB

RCKSIJS

/S'l'OR'
/tl<E:CU'l'E
/RUO ANO e11&:C1<

/R£AD ANO CHiCK GROUP

(Ill>
{~)

6'456

L.JMP

ROSUB

6462
73.06
7332

LJMP
LJMP
1.JMI"

M0\ISU6

/Rf;AO
/MO\/£ TOWARD 81.0CK

nn(:!!)

WROTG:

/WR

/WR T~ ANO CHECK G~OUP

0454
0455
0456
0451

7U6
6464
6,04

L.JMP
L.JMP'

WRITE

/WR IT~

14 l
!5 >

/CME CK

0460

0461

wR KG?

6~66

L.JMFI

L,JMP

CHI< SUB
RUD
INCR

611116
6466

RCKSU8, 1..JMP

ROCK GP

RDSUB1

LJMP
MOVsua; L.JMP

7&123

0463

CMKSUS e 1..JMP

f.11465

6466
7454
6466

~466

1020

!NCR,

0467
0470
0471
0472

00ii51
2020
04'11
6501

1
ADD

l.JMP

INCFU

0601
7131

L.H'

1
BE:i..L.

04;3
0474

0475

L.JMP

1..JMP
LOA•2lll
0flli0
[Sfi'

1~20

0476

0020

111477
0511!0
051111

0011
;J.!040

0502

k1020

0503

6221

t~004

tNCRAu

CHECK

INCR

/INCREMENT MASTER WORD

L0A•21?l
AP0•~0

ANO C1>1ECK

INCR
MOVE
INCR

0462
0464

MASTER

Ct.R
STA

MASTER
LJMP

DA'IL.UF'

/GO BACK Ar:.AtN

(&>

1~0~~12

TAP( DATA EXERCISER MAf NDECs12~0JOB

21;,JAN'"'h

PAl..111'

!l'.uu:

/TAPE 2
/THIS SECTION or CODING MANO!..ES TME INSTRUCTIONS "REAO"
/AND "~EAO AND CHECK BLOCM"

REAO,

0504

21J00

ADD

0505

4701

STC

RtXIT

0506
0507
051121
0511
01!>12

1020
76U!

L.0U2!1J
1..JMP

0513
0514
0515
121!516
0517
052111
0521
f1l522
0523
0524

5575

1020
6610
754'11

RJUMP

L.0A•2fll
L.JMP
1..JMP

RCMK

BCl.•20

1,60
7757

'17,'1
Ai!E:•2lll

04'10

6;31

LJMP

U!H

1..0A

QN9N
Liii'
L.JMP

0032
~~6Q!1

6722

L.JMP

0525

6i'!1
4644

0526
0527
0530

26124
111123
.,,67

TMA

211132

0532

156121
70H

0535

0601
6722
6101

0533
111534
0536
0537
0540

0542
0543
0544
111545
21546
111547
0550
0551

0111

.,.,.,

APO
1,.JMP

6563
0450
6552

0553

4035

0554

2l~27

0555
c.1556

2631
4561

0557

2561

0560

7~57

e561

. 1000
7511

/SET UP FOR RETURN

1rROM rl.AG HANDLING
/MASK xoswo TO ExTtNDEO ACOREIS MODE etT
/EXTENOEO AOORtSS MOOE?

/NO

/YtS
/GET ~N•BN
/MAS BL.OCK B£EN WRITTEN?
1No,

/YtS,-OK, SAVE PATTERN WORO

/Gf T tXTENOEO ADDRESS
!LOAD TMA SETUP REGISTER
/EXEC~TE

"ROt OR RCC SN"

QNSN

/GU CINeSN

1
WRJTEN

/MAS BLOCK BEEN WR?TTEN

RU?'!'
PATJMP
QN8N

/YES, OK, SAVE PATTERN WORO
IG[T 9N•BN

/CLEAR To BLOCK NUMBE~
IN01

hJT

/MASK '!'O CIN

10, o~ B"

REODJ'

1or

/Ill'1 QIU

U£

LJMP
L.OA•U
400
L.SKP

1020

0552

MTXECl'f

1rROM 1NSTAUCT10N &xECUTlON

EXTENDED AODRtSS MODE

S'fC
ADO
8CL•2lil

<1451

,_,4(110
~1456
,1011

WO~

7000
L.H'
LJMP
L.Jt<!P

2~32

156111

PATJMP

eel •ii!lt!I

4(144

lil541

~562

REO"lEX, ADO

RE ONEX
WR I TEN
REXXT

ADO

L.JMP

M'l'SET

STC

lr!ERE IF' NOT

0531

TOlf'1,.Ac;

src

/SAVE RETUAN AOORESS
/SET UP RETURN JUM'

• •4

/NOT Q0
/Qll 1 l NSTRUc'l'I ON
/WILL BE STORED lN Q1
;NOT ~0, %NSTRUCf 10N WlLI.. BE STO~EO !N Q~

CL.R

CST ART
F'Itl.ON

l,.DPCON

IG£1' 'IE!..D BITS

ADD

STC

L,DfRD1

/ANO STORE

RE0"1X1 1

ADD

L.DF'RDl.
COMON7

/G~T

LDF'RD1 1

1.JMP
0

STC
ADD

LJMP

MOVPRO

LDr INSTRUCTION
/SET UP ttMOVL.I'" AND nMOV~Of"
/STORAGE ftELO LDt GETS STORED ~ERE
/MOVE "LITTLE ~ROGRAM" 1 TM£N EXECUTE IT

TAP[ DATA tXERCIStR MA!ND£~~1a~c30i
0563
0564
056!5
0566

0567
0571?!
11rs11

0572
0573
0574
0515
0576

05;7

11i:l00
0!in1

1120
?1i5
047121

6,75
2643
4'61
403,
6~57

10211J

0643
4,61

/MER[ !r DATA 11'1£1..0
i.OA

REDDF'1

Fl El.ON
ACH1•(?15

AH•20
1..JMP

1Gn ~ u:1..o

;SUBTRACT 2

,•5

AOD

l.01CON

STC

L.0P'RD2.

Sic

CSiARi
REONX1

l.JMP
l.0A•2il
LOI"

STC

L0,RD1

L.0A•211J

1020

'11602

5535

LOV
STC

0603
0604

1021/J

1.0.\•2!8

0605

5534

0606

412135

LIP"
STC
STC

0607

6;61

L.JMP

0603

\1:\41

7175

0600
0601

!21642

MOVL,011'

MO\li.lF'
CST.UH
1..0,RO~

IF'XEL.0 2?
/Vts

/S'l'ORE AWAY

/SET UP QUARTi~ STORAGE AOOR£SS
/Sti VP MEMORY, ETC,
/SU VP
!STORAGE ll'U:L.O
/DATA ll'IE:l..O

/INSTRUCTION F'lEL.0
/SET VP QUARTER STORAGt AOORESS
/GO EXECUTE 1..lTTI..£ PROGRAM <£V£NTUA1..1..Y>

/POP.12 TAP[ OAT~ EXERClStR MAINDtCmia®0308

0610
11l611
0612
11l613

0614
0615

1000

1912

1560

,.,., 0
L~5.:i

0621

RCl·H<,

!..DA

/~~i

Mi!NSi
BCL•20

/C!,.EAR ALI. Bui INSTRUCTION Exteurto

"!1'!0

L.JMP

• 11:4

l.JMP

xx)(

TAC
AU

EHl03

1!!621

i0H
06\1126

1.DA

196111

.,.,,.,

SCL•221

ic45ii
67e2
2021

LJMP

0625

1120

.,.,Ai£'"I
ADO

AOH,111

1'60
417'1

111636
f/J637

ADD
BCl,•2£1
41'1'1
ROR

4646

STC

3,73

e:su

1.orcoN, 1..0;

S'l'C

lNSiRUCiION EXECUTED

l"REAg ANO CMECK" lNST~UCTlON7
!NO
/YES, RtAC TAPE AC
/URO'

INOa

/G&:'I'

>COSWO

063£1
0631
H32
&1633
0634
063,

064£1
4661

F'AGE;

Ir rL,AGS OK UPO~ INSTRUCTION COMFl.EiION

0451(J
'733

0626
2'627

~ERE

0617
0620

0624

V141

/R~iURN

11l616

0622
111623

PAl,;11i'l

~RROR

*** CR ~ ••t

xoe WORO

/MASK TO EXTENDED ADDRESS SIT
/URoT
E:X'l'OCM

rt EL.ON

/NO
/YES, C:ALCUL.A Tr
/WHER~

DAT CMK
MTINST•1

/CATA
/JS S'l'ORE'.0
/G!'.T QN .. BN

:I.
OATAOO

/Rf GMT 1 PL.ACE To roRM ,lRST CATA ADORES!
!STORt AWAV ADDRESS

/MASK TO 2 QUARTER BITI

IJAU
0640
11!641

1ra2w
1400

0642

<;~01
<J~41

0643
0644
ei645
0646
0647
06513
Ei651
i'J652

6644
Hl20
IOH121

VS.41

MA1

LOA•20
K1400e

140121

1..1,

i..01CON, i..Of
FATJMP, 1..JMP

LOA•20

DATAOO, 0

7'160

l,.JMP

162£1.!

esr.•20

0653
6654

2tH
4015
U76
J377

STC
SET•2fi'l

111655

0!117

0656

1311

0657

066(1!

\l!l66i
l'.l662

2H0

1
1

•

sueu
1:S
1.6

3;$11

SE:t•ill'

"/ ~.,.,

1~00
~66'1

1'1140
3!U.3

SAVA

0~1'1

COM

'3261

ROL.+20

R!665
0666

0~'41

i..O~

11136

L.0A•21D
1..01"

SA!'.•20
l.t~p
L fl.

ll;16;(/J

0671

J640
1475
7'133

0673

1Hl?l
01115

3674
l'i675

06211
6711

0676

u237

!2!6?2

DATCMK~

xxx

l.JMP

OA'!'INp, XSK•20

TST1

6~65

l.JMP

OA'l'CMKt112

0100

6161
6701

RE>O p

l.JMP

Cl.EAR

1..JMP

0~01

EXTocH, l..IP'

9.1702
0703
;iii04
2'7fi

6210
4667
6~40

L.OC:AT!ON

1N$i~UCTION

/SET THE AC TO 7777
/SET THE 1..tNK
/IT WXL.L er usio tN "TIT1"

/CHECK DATA tX~tCTtC
/CMANGE OATA rtEL.0
/AGAINST CATA ~£AO
/DATA ERROR ~*• ER 1 ~~~
/l..OAO THE AC WlTH THE VA~Ut IN ~oc 00.5

00~5

Liil'

0677
91701

/SET ~017 ;o A COUNT

/UV£

0663

~ATA ~iAO

/SET ~~1~ TO TME STARTING ADOR!SS OF TM£ !X~[CTED DATA
/L,OAO TME AC WITH A "CDP N"

111664

0661

1$,T ~115 TO STARTING ADDRESS O' TMi

L. l:>A

DATCHK
STA

/CMANGE DATA F?E~DS
/STORE NEW DATA TMERE
/SET UP ADDRESSES TO CMECK DATA
/AOOR~SS or DATA READ
J$W~TRACT 1 FROM TM£ AC
/SET ifT ~1 or TM[ AC

LJMP
STC
1..JMP

/TEST THE LIMIT or LOC 15
1TtST MORE DATA TO TEIT 7
/YU, GO PO IT
I

NO, EXlT

COMON4
OATCHK

PATJM,..,4

/StT UP rOR EXTENOtD AODRE!SING MOOE CATA
/STORt PROPER ~L.D'" ro~ ACCESSSNG OATA

/~0Pwl.2

TAPE DATA EXERCISER MA!NDEC~1i•D3DB

PAL.10

V141

2hJAN.;.H

fllAGt

/THIS SECTfON or COOING ~•NDL[! TM[ rNSiRUCTJON "READ AND
0712!6
0707
0H0
0711
0712

0113
fll'114

eih5

2Hl1i

ROCKGP, AOO

5022
0601

STC

RG£XI'!'

LIP'
L.JMP
!.JMP
L. ill'
LJMP

62!211l
?1!122
Q!~01

6137
;?Ul

RGC:ON1; 1..xr

l!J?16

6122

11l717

7fll22

012121

H~20

!.JMP
LOA•218

0721

1..JMP

iJ0el1

111122
111'123
0724

114flJ
0834

CTEM3

0234

XS1<•211l

0;21

671!5
102111

LJMP

11l726
111727
11l73li!I

5'75

111732

111121
6144

1!17:51
0133
lll734

0735

1?!736
1?!737
fll74li!I
11!;41

7~111l

750
1111121
"1127
2631

i04S

0742

. 0'742

;6!57
0641!1

0743

1'11

0
C:OMON~

Rc;e;x n
1

COMON2

PEN
RG&: XJ'1'

!.JMP
STC
1.0A•fUI
1.JMP
1.JMP

RGCON1

1SrT UP TO COUNT BLOCKI cRETURN WlTH SN %N AC>
/MAS !LOCK CNUMSER IN AC> BEtN WRITTEN!
/NO, ~XIT
/Y£S, SET AC TO 1

/DONE TESTING 91.0CKS?
/ND
/SET UF RETU~N JUMP

iOP'L,AG

F!JUMP

RQCHK

MTS ET

I.DA

FIEl.DN
AOO
STA
1.0F'RG3.
1.JMP
1..0,Ria., 1.or
1.JMP

ICMECK EXTENDED ADORtSS1NG TAPE/MEMORY WRAPAROUNOt ETC1
11LLE~AL OPERATION EX%T J~MP

/ADO To s1.0CK NUMBER

AOM

RGCON2 1 1..0A•20

/SAVE RETURN ADDRESS

1.0fl'CON
COMON7
MOVFIRO

1NSTRUCTlON tXECUTiON
/SET UP ,OR RETURN

/~ROM

/,~OM

'LAG HANDLING

/GET 'lELD

/ANO 'TORI AS STORAGE 'IELO
1itT UP "MQVLtr" ANO "MOVbOr"
/STORAGE 'IELO GETS STOREO M&RE
/MOVE "LITTl.E PROGRAM"1 T~tN ~XECUT£ lT

1PO~e12 TA~[

OAiA EXERCIStR MAf NOEOs12sC309

PA~1~

V1~1

2~148

!RETURN HE~E If rLAGS OK UPON INSTRUCitON
RGCHKr

/R~AD

121'44
0745
121746
121747
121750

0003
<)450

6137

LJMP

0751
0;52

01il111
21!134

Cl.R
AOO

0753
11l754
121755

0756
0757
1?!760
0761

?733

2~41
e~01

0641
6762

121764

0034

0?65

0~1!11

0166
0767

6162

01'10

1..H'

C!ll:M:S

ROR

0774

7760

0'775
121H6
0777
1012.10

1~20

1..JMP
8S£•l?i9

2e!Q!0

2t'!!ll0

0076
3317
012177

STC
SET•21ll
;5317 s£r+221

1004

Hl05
1006

,1036
0~40

1007

1415

COMONJ
1.0,RG~

BCI. • 2i'l

412.115

?'Si'!
0641

PA'l'F'RM
1<1.'400
1

AOO

., .,.,

1003

WR I TEN

1714

urn

/~ET

I.%,
LJMP
S'f C

11!304

1002

CU:M3

0773

121711
!!!712

,,.,.,
1..or

suen.
1'
16
11
1

1..or

5At+21!l

x:o

1010
111311
1012
11H3
1 el 4

'7733
15237

LJMP

)($1(+2"

7004
1020

L J14!"

i..011'RG3"'2

1\11
1016
1017
1 0
1 21
1022

•20
Ke0!1l1 e

234

XSK<1>a6
LJMP

6753
6161
70-22

~GEx IT•

LJMP

'?El.0 ttt.D'" tS STOR£0 MtRt
JUMP lS STORlO MER[, ~ETUAN WtTM DATA STORED
/GET Si.OCK NUMitR

/STORAG~

/PATTE~N

/COMPUTE CATA 'XELO TO ACCESS DATA
/$TOR' "LO'" lNSTRUCTlON ~SN AC rROM COMON~)
/Gti ibOCK NUMIER AGAIN
/MASK TO BN 1~e11
14 Rt~Hi To

AOORUS

/Sti OHA 11'1

BIT

!SUBi~ACi ~

/STORt IN 15 (CATA READ>
/SET YP 1~ rOR CHECK CATA
/Sti U' 11 ro~ COUNT

(4~0)

/OAiA EXPECiEO "LOP"
/DATA-READ rlELO "LD?"
/COMPARE AGAINST OATA READ

/NQe QATA [R~O~ ~ft* ER 8 @~•
/CCM?AREO 4H7
1N01 Go 9ACK roR NEXT CATA WORO
/BLOCK

CH'.M3

;rJND OUT Bl.OCK PATTERN ADCRESS
/TMlS RETU~N SMOUbD NOT BE USEO
/STORt AWAY

0034

BLOCK NU~BER

!GU CHECK DAU

L.0A•2f6

i.,,DF'RG~,

/NO, tRROR ••* ER 2 ••@
/SET UP TO COUNT BbOCKI

L0fl'RG2, LDF'
PATF'RM, L.JMP
I. 0 A
CTE:M3

511lfll6
2!1134
1!:hUl

TAPt AC

/HR07

COMONa

L.JMP
Ull,,'!'
S'l'e
AOO

0H0
4162

xxx
1

RGCONJ, 1.1,

6722

0;62

0163

LJMP

I.. pr

0~01

TAC
Al[

?ON

RGCONJ
AR

!NC:R[MEN'I'

/DONE AL BLOCKS?
/N01 ~
Ai ~OR NEXT

/EXIT

;PDP•1.2 TAP( OATA tXERC!SEA MA!NDtO•ii•C309

fl>Al.,U

948

21 ... JAN..,11

VU1

/THIS SECTiON or CODING HANOL£! THE INSTRUCTION "MOVE"
1~23

2000

HJ24

5105

102!5
1026
1027

102111
7610
5575

U30

3,12

Ul32

0241

1033

11:l4!a

1034

3112
001

1031
111135
1036
1037

1040
1041
1042
1043
il1JH
i1114!J
111146

,;641

7540

1766

7567
11lH3

i051
1052
1053

71H

11115'

i056
11115 7
1060

102e
0~7til
'7176

7166
?'67
(l IJllJ

7Ul1

1'1164

02313

il!l65

787!5

1066
1067

nrn

ie170

;760

1071
1072

0456

1074
1~75
1'!' 7 6

A~f•2S

Ll;
HOCH,

7776

MCHK,

C'l01!'eJ

TDrLAG
RJUHP
MTINST
1
7

HtXIT•1
HCM
MT!ET
MFAC
MTXEQT

MExlT•1

/SAVE·~ETU~N ADDRESS
/SET UP RETURN JUMP

,
1rROM INSTRUCTION ~XECUTION
/NOt GtT THE LAST TAP£ ?NS,,
1rtELD 1
I

/SAVE THE VALU' %N "113T"
/SAVE THE PREVIOUS I l'T
I BIT 0 11 ?
!
I
I

NO 'XlT

YES EXCQUTE THIS MTIJ

/SET Up A RETURN ADO,
/SET THE "1" BIT IN TH~ MTi
/EXEcVTE "MTB"
/RETU~N HERE1 TAC~S 7

/VIS ~xIT

TS?GN&

/NO tEST THE LIMiT$

MCHK
MTSET
10

/FROM rLAG HANDLING
/StT 10 TO •1 f11S COMP>

TAC
Ai!E•~lll

MCOMP1

L.JMP
xsi<•20
LJMP
APO
L.JMP
LJMP
LS1<P
AOD
STC
L.JMP
SAE:•20

MEl<PT,

MBUMPa

3014

5076
7101
146'.9

LJMP
L0A•2e
LJMP
LJMP
S£T•2S

0
MEXIT

LJMP
MPAC
/SET BzT "7"
LJMP
MTXEQT
/£XECTUE "MTB BN"
/RETURN HERE Ir rLAGS OK UPON INSTRUCTION COMPLETION

(()~711!

0~51

STA
IBIT
AP0•20
LJMP
L0A•21
LJMP
LJMP
LJMP
LJMP
TAC

LJMP
LO'

7&.161
.,,,411

i061
1062
1063

1073

MCH,

1308
7104
0~41!l
~~£11

ADD
STC
LDA•20
LJMP
sTe
ADD
Lor
ROL

n.214
1rll211l
71/JH

U47
105el

UJ54

MOVE,

1~H7

7733

LJMi:i

i100
Hllll
1102

"'066

L.JMP

;•003

.. 450

Ai!E

1111l3

7~67

L.JMP

1104
11 l1l !5

•'1'1111
7105

MCHK1r

MCHK1

MCOMP

.•3

SUBT1

/R£AO SACK TM£ TAPE AC
n&;RO'f
/'f'tS

/NO, FlRST NUMBER READ BAC~?
/NO
/YES, POSITIVE AC?
/NO, NEG AT I VE

/Yl:S, DE::CREMEN'l'

K0001
MEX PT

MCl'lK1

xxx

MB UMP

TAC

MTXEQT

/SAVE

;XS TME NUMBER R£AO !QUA!.
/TO TM~ NUMBER E::XPECTt07
/NO, ~RRQR *** ER 3 •••
/Y~So SET UP rOR NEXT NUMB[R
/READ jAC AGAIN
;!E:Ro7

Cl.~

ME'.X IT 1

LJMF

/EXIT

/P0Pu12 TAPE CATA EXERClSER MAlNDt0•1i•D308

PAl..1fll

V141

/THIS SECTJON Or CODING HANDLE$ THE INSTRUcTlONS nw~
/AND "WRITE ANO CHtCK ~1,.0CK"
1106
11217

1110

1111
1112
111-l
1114

ii15

ii.16
1117
1120
1121
i122
1123
1124
i.125
1126
1127

1131!1

1131
H32
1133
1134
1135
~136
1137
1140
1141
:1.142

12120
7610
5!§75
19221
7241
7540
1560

WR 1TE I

s~c

TOF'L.AG
RJUMP

LDA•22'
LJMP
1..JMP

HTS ET

,,,.,

EICL.•2!0
77fJ7 .

0470
7143

1..JMP

AU+U

0~11l1

62U
5125
2646
0§1111
11!640
6254
5h7
3,73

0681
6236
11!140
1~22

5i37

ui•e

l!ll!IH
211l24
0il23
7567

L.111'
L.JMP

STC
AOC
1.0F'WRl~

I. Ir

WCMK

wRlNh
1
COMON4
L.0,WRi,
DATADO
1

LOii'
LJMP
STC
ADO

HTlNSh1

i..111'

L.JMP
Sh
UNBNSV

STC

STA
0

ADD

PA TERN
WPAT

/F'AOM INSTRUCTION EXECUTION
/SETUP F'OR RETURN

/FROM rL.AG HANOI.ING
/MASK xoewo TO EXTENOtD A~ORESS MODE ilT

/EXTENDED ADOAESS MODE?
/NO
/VES, SET UP roR EXTtNOEO ADDRESS MOOE DATA
/STORE PROPER "LO'" '0A STORING DATA
/GET AOORESS WMERE CATA SHOUl.0 BE STOAfD
/CHANGE CATA rtEL.0
/PUT QATA PATTERN lN MEMORV
/SAVE PATTlRN TVPt ClN AC UPON RETURN)
/GET 9N•BN

COMON5

/CALCU1,.AT£ BLOCK STATUS WORD ADDRESS
1SAVE

,•2

/STOR' rQR EXECUTION
/CLEAR STATUS WORD

W04

/GET ~XTENOEO ADDRESS
II.CAO TMA SETUP RtGlSTtR
/EXECUTE "WR! OR WRC BN"

TMA

L.JMP

~~Gt

/StT UP RETURN JUMP

L0U21!1
1.JMP

20 .. Jt.i

M"f')(EQT

l~tH~ .. 11?

21'JmrJAN1111171
PAl.10
v1•1
'i' APE DATA tX£RcISER MA%ND£ce1i•03DS
/HERE !r NOT ~XTENOEO AODRESS MOOE:
wRlNEX, ADD
rltl.DN
/GET FJEL.0 NUMSER
H4J 2027
ADO
LDrCoN
1144 2631
1145
1146
1147

i150
1151
1152
h53
i154
1155
1156
1157

1:160
1161

1162

LOP WR;)
S'fC

41'11

BCL•2~
471"!

t.OF'l<IR2
MTXNSh:I.

/STOR£ AWAY ro~ EX~CTUJON ANO ruru~E USE

ADD

~i301

ROR

IRIGMi 1 PL.AC& TO 'ORM CATA

4646
2046

51'0

OATAOO

AOO

<;'1601
rb6465

L0F'WR2; I.Oil'

5157
3573
1560

6254

5317
3573

STC

wPH

/SAVE FATTERN TYPE <IN AC UPON RETURN)

AOO

MTINST•i

/GU QNeBN

BCL•20

6236
111'40

1171
1172

5~73

STC

1fll41l!

1174

0Hil

STA
0

3573

AOC

70210
Ll fl'

L.JMP

1560

BCL.•2fll

0111

171

1177

k1101

1200

t214

1201

J45!1l

1202
i203

1020

1.0A•221

~~4E!fiJ

4211!1
L.S!<P
Cl.R
STC

A~O

LJMP

.ur

L.JMP

7206
1J456
0011
4035

1212
1213

7511

<l~40

/MASK To BN Bns

COMON5

/CALCULATE BLOCK STATUS WORO AOORtSS
/SAVE

UNINSV

!H6

3212
7657

/CHANGE DATA 'IEL.0
/PUi OATA ~ATT£RN IN MEMORy

STA

H1e 1322

121''
1211

AWAy ADDRESS

PA TERN

;;601

1207

!STQR~

/GET ACORESS WMERt OATA SMOUL.0 8£ STORiO

L.JMP

1166
1167

t21!14
121115
1206

/MASK TO i QUARTER Bt'fS Cl. AND 2>

L. H'

1165

11?5

/Gn !dN•BN

DA TAOC
1

156UJ
7HS

i17J

PAGE U

l.040

::.z12

i:i64

i16J

i41

/STORE roR EXECUTION

M'!'INST•i

;GU QN1111BN

WRHH'

/0,

/EXECUTE TO CLEAR STATUS WORO

....

TO QN

/0, QR Ir?

/%,,QIU
/NOT Gill
;Qm, JNSiRUCitONS

;NOT ~0, iNSiRUCTtONS Wlb~ 9£ ~iORtQ IN Q~
CST AR'f

L.0,WR3
COMON'?

LJMP

MOVPRO

1.or

/MUI<

/WlLL BE STORED lN Q1

LJMP

WR t NX1, ADD
L,OF'WR~,

•• 2

IGET bO' INSTRUCTION
/SET UP "MOVL!'" ANO "MOVLor"

/STORAGE r:ELO LOr GETS S!OREO M£R[
.
/MOVE 7LITTLE 'ROGRAM"t TM[N EXECUTE ii

/POP~l~ TA~[

OATA EXERCISER MA!ND£Ceia~o~o•

ii::!l!11WJ,U.

/HERE ?F OATA rtti,,D
1.214
i215
1216
1217

1~00

1232
1233
1234
1235
1236
1237
1240

/SUBT~'UC"i'

717'5

e~10

1231

ADA•211l

1120
1175
7226

1226
1227
1230

1~r ~1

Fl EL.ON

122ia

i225

1..ta

<.'027

1221
i222
1223
1224

WR%0Ft

2643

A~E:•2i!I
i ""'
1..01CON

STC

CS'T'ART

Sic

7ii!U
102s

l.JMP

4035

0643
5212
1020
0642
5535
1020
[)~03

5534
4035
7212

IF'JtL.Q 2?

l.JMP
AOD

5212

1.DA•20
l.OF'

/YU
1.0fl'WR~

WR1NX1

1.orwRJ

L.Dfl'

STC

MO\IL.DP'

L. l 1'
STC

S'fC

CS'l'ART

L.JMP

tSTORt AWA'f

/StT VP QUARTER SiORAGt AOORES'
/SET UP MEMORY, EiC,
/SU UP

Sic
L.0A•211J
1..0A•20

MOVL.l'
i.Ol"WR3

/S'l'OIUGE F' u:1sc

1DATA ru:L.o
/INSi~UCilON F'Z£1.0
/SET UP QUART!~ STORAGE

AOCRESS
/GO EXECUTE i.fTTLt PROCRAM CEVENTYALL.Y>

/PDP~12 TA~E

DATA EXERCISER MAf NDEC•12•030B

llAl.11

a1•..1•N•7t

V3,4l

Ut4a

PACE IS.

/RETURN HERE iF rl.AGS OK UPON lNSTRUC!JON COMP~E!lON
1241

1242
1243
1244
124!5
1246
1247

1250
1251
1'.252

i253
1254
:1255
i256
12!'7

1260
1261
i262
1263
1264
1265

i266

1000
1512

1568

one

iS4el

13"5
1466'

i"CMK,

tGrT INSTRUCTION EXECUTED

L.OA

MT!NST

/Cl.EAFt I ANO U

BCL.•20
0030

STA

/SAVE roR rUTURE REFER~NCE

wINST
SAE•l!fil

/WAJTt AND CMECK %NSTRUCT10N7

071114

WRC

'2'5

ii.JMP
TAC

• •4

i;,ll/H,1;'5

0456
7"33

1.JMP

JOO<

:t.SH.

L.IH

0126
kl325

1000

1,73
1160

elH
31114

xoawo
ROR•ae

/HRO?

AOO

1..U•2•

7301

L.JMP

STA

K~H1

WCON'l't

/EXTENDED ADDRESS MOOEt
/NC, GO OlR£C'l'bY TO EXECUTE "MTB BN•1"
!YU, SAVE

1s4e

i2i2
1273
1274
1275
1276

67111J

AD.hU
67718

04!51

APO

7217

1.JMP

0~11

CLR

• •:S

7301

1.JMP

WCONU

12'1

~N•BN

/SAVE roR 'UTURE RErERINC[

1267
1271!1

130111
1120

IR ' ut

/MOVE EXTENDED ADDRESS BIT INTO L.INK
/t;U

ST.&•2111

0~72

/NQ,E~ROR en

/CU XOB WORD

I.DA
MTjNSh1

IHNST1, 0

/NOe WRrTE XNSTRUC'l'ION
/RUD TAPl AC

MTl:MP

/SUBTRACT 1H7
IL.EGITIMATE NEXT BLOCK?
/'t'U

IN01 NEXT BLOCK IS 8

1POF~12 TA~E

DATA EXtRCIS~R MAf NOECm12~D3DI

1277

t.04•2~

11lJ2f!I

1300

WTE'.MP, r!!
WCClN'f:!., LJMP

1302
1303

31i63

AOO

i:H'll ,.,.,6

131114

4032
1i2111

1305

eJIHIZI

1Jfi!l6

!3(117
13 UJ
1311

1312
1313
1314

i315
1316
1317
i321lJ
i:S21

1322
i32!
i:S24

1325
U26
1327
i33fl)
1331

STC
wiNn,

1~6111

COMON~

WXNS'i'1,
QNEilN

/WRIT~

WCONTI

2'121

ADD

4121
74!54

S'!'C

W01
WD:I.

1..JMP

Cl-It CK

11120
0ilH

0641
11'/J'IQI
0lll!UI

WCONTi, L.01U21lJ
fl)
WPAT,
t..Dii'
UNBNSY, 0

L.OA

1,H
0001
4021
6,S4
6466

.,8CL•2fll

WiX1T1

INSTRUCTION?

/NO

1vu. AOO 4 TO

/WORD 1
/EXECUTE A "CMlCK BN"
IG[T ~ATT,RN TYPE WRITTEN IN Sl.OeK

ZN BLOCK PATTEAN lNOICATOR
/GU WOROl
/STOR~

W01

L.JMP
L.JMP

INST~UCT?ON [X[CUT~C

STA

1111H

1SfT UP ANO EXlCUTt "MTB s~~l"
/MOVE "BN" BACK

t.l:h+U

21;JAN•

/GET ORXGlNAL

1..rH •iUJ

WR!
L.JMP

316

VS.41

/GU NUT 81.0CI<

SAE•21ii!

1lllH
0H4

PAL.:1.el

WO:I.

REAO
tNCR

/CkiAR ,UNCTION SITS TO
/C EAT& nRDC"
/S'l'OR~ BACI<

/GO TO SUBROUTINE TO EXECUTE "Roe !N"
/EX IT

)

/~0Puli

TAPt DATA EXERCISER MAtNOEC•12·D~oe

21111JAN..,71

PA!.10

/TAP[ 3
ITHJS SECTION O~ COOING HANOL.~S TH£ INSTRUCTION "WRI
1332

i333

1334
1335
1336
1337
1340
1341
1342
:U43

;J61211
6020
7453
1eiH
riiu 1

1..JMP
1.0A

r UL.ON

2631
7657

!0601

1
COMON1
wca:x IT

ADO

1.0l"CON

L.JMP
I.ill'

COMON1

COMONZ
1
COM ON~

~601

I.JM?
WGCON1; L.l,

1344

6162

1.JMP

5353

src

1347

156111

iCL.•2m

i:S!HI

7 '1"14
0H4

1345
1346
13!H
1352
1353

6131

2~34

0601
0640

1.Dll'WG$

ADO

C'i'EMJ

1114
L

4
1

PATEAN

ROii!

lr
1.0li'WG1~ L.DF'

1354
i:S!5!5

6254
536;5

LJMP

1356
1357
iJU
1361
1362
i:S63
i:S64
1365
1366
1367

21!134

ADO

C'l'EM3

LJMP

1
COMON5

1..1;

0601
1~2fill

0Hfl
0641
1S40

WGPAT

STe

6236
5366

wc;Pn,

STC
ADA•H

e
0

11i1UJ

L0A•21

1370

0f/JU

1372
1373

01!134

CTEM3

L-CZ34

)($1(•2~

1314

7343

L.JMP

1:s15

1'1120
7412

5;n;

L.0A•20
1.JMP
STC

14"10

1020

L.0A•2S

1401
1402

7430
7540

1403
1404

,l.000

1534
1120
re40

5410

~640

7511

L.JMP

1.JMP
1.0A
MOVl.Ir

AOA•2111
40

STC

L.Dli'wG2, L.Or
L.JMF'

~AO£

ANO CHECK ~ROU~"

/CMEt~ £XTENOED A00RES$INGj TAPE/MEMORV
llLl.E~AI. OPtRATlON EXIT JUMP

1SET VP "MOVI.%'" ANO "MOVLOll'"
!SET UP TO COUNT iLOC~l,\R£TU~N WJT~ il.OCK NUMl£Rl

/COMPUTE DATA 'lELD TO STO~E DATA
/STOR~ "LOr" INSTRUCTION SlN AC rROM COMON~)
/GET BLOCK NUM9£R
/MASK TO BN 1io11
14 RlGMi TO rORM ADDRtSS

/CMANG£ OATA 'IELO TO STOR! OATA
/PUT ~ATTE~N lN MlMORY

/SAVE ,ATTIRN ADDRESS
IGET ibOCK NUMIER

/COMPUTE BLOCK STATUS WORD AOORESS
ISTORt
/GET ~ATTtRN AODREIS
!S'l'ORt AWAY

/BL.OCK NuMBER
1~

WGCON1

wGRE:T

RJUMP
WGCHK

MT SET

1.0F'WG2
MOVPRO

WRAPAROUND, ETC,

IStT WP INSTRUCTION ll'IELO

11 NCRtMEN'!'

ADM

1376
1377

1405
1406
1407
14UI
1411

..,

I.Of
STA

0001.'l

i:sh 1140

)

WRCKGP, L.!11'
L.JM!'

IOONE ALL BLOCKS (AND QUARTERS)?
/NO, GO BACK TO DO NEXT BLOCKCGUARTER)
ISEi Up RETURN JUMP

1'ROM INSTRUCTION EXECUTION
/SET u~ roR Rt,URN
/'~OM

'LAG HANDLING
/Gli "lliiLt" PROGRAM INSTRUCTION rIElO
/MAKE AN
l"LOr" INSTRUCTION
/STOR~ AWAY

/EXECUTE TME L.O'

/MOVE "L.IiiL.E 'ROGRAM"1 THfN EXEeU'l'E IT

AC)

/PDPu12 TAPl DATA EXERCtiEA MAi

I <4!

/RETURN Mt~E ArTER

0~11
6'12~

LO:i.•211!
713
L. Ifl'
L.JMP

1421

1..JMP

H1113

AIJO

1412

tlll20

1413

1414
1415
'1.410

wGRe:Te

Q3PAT

sre

QJf11A'l""'1

5426

1421

1422

5425
1s21

L.Oi•2i

142:5

14H

1424

0~1!11

0US

1426

6Bl'H!I

1427

,~10

G!PATa

1
WRIU'.N
Q3PAh:I.

STe

1417
142!il

1425

HNG

1..1 r
1..0,

L,D,Wc;?

/GET IL.OCK PATTERN ADDAtiS ro~ Q3
N£t0 NOT 81 Rt~C~OlO

f~3

/UV[

IGtT "INSTRUCTAON rx~LC"
/STORE roR &xt UilON
!GrT STORACt ADORtlS

1..JMF

1.JMP

PROGRAM"

"I..?'!'

IUECUTE '1'1'4£ L.DF'
l'lL.L-C3 AGAIN ( 11 ~1TTL.l 11
/QN TH£ DATA O~lGlNAL.L.V STORED
/GO TO TAP~ 00Nt ~OUTiNE A,TER bOAOIN~ MEMORY

/RETURN HE~E I' rL.AGS OK UPON iNSTRUCilON COMPbETiON
0H3

14311!
1431
1432
. ·1433

,;33

i434

1Cll41/!

WGCMKo

r,.;450

3,13

1435

1~5ei

1436

2fil!3
2flllll3

TAC
A![
1.JMP

A05
SH
WGQNBN
AOD

1440

.,,,.6

1441

1fi!lilllll

1442

0ia21
i561!l

i444
1445
1446

0007
31!114

4'1121

STC

1447

1fll20
0IUllJ

1..!H.•21ll

i4:S1

i44J

1450

14!51

1452
1453

411132

6706
6466

ADO
L.JlllP

1..0A
WCl1

!AUD T
lil!EROY

MTlNi'l'•1

/NO, iRROR **~ ER 2 @tt
/GU QN.,BN

CT!:Mt

IAOO !ilN

)()()(

i<0H2

COMON6

WGQNBN;

/SET UP ANO EXtCUTE "MTB iN+QN•1"
/Cl.EA~

OUT ,UNCTION BITS

Klill301

wo1

/PUT IUCK
/GU

GINBN
ROCKGJ!I

IPL.AC' IN QN .. BN

!NCR

/EXIT

/QN.,BN 0, WRG lNST~UCTlON

fil

STC
1..JMP
WGEX!T, LJMF

/UVE

/GU WORD:!.

.,BC1,.•21Z!
AOO

/EXECUTE A "RCG QNBN"

1POP~12

TAP[ DATA ~XERCZSEA MAiNDECa12e03DB

P.t.1.1.l!l

VU1

- AN"''1i

ll!AGE

/THIS SECTION or ~ODIN~ HANOl..~S TMt INSTRUCTION "CHECK"
1454

2000

1455
1456
U57

5510

CMtCKt

AOO
STC
1..DH2fll

1s2e

1..JMP .

76tti

146fli

5575

S'l'C

1461
1462

1f~lf
7~1112

1.DU·2fil
1..JMF

7~4fll

1463
i464

0ii25

1.JM!ii
ROA+28

1465
1466

0n2

11'.!!H

L.OA

1467

0~52

1.470
i4h

L.H

1414
1,69
7 "18111
7476

1472
1473
1474

i475

1476

1477
15lllfll

;u1

1502

0003

1503
1504

045PJ
1733
7101

1505
151!16

LJMP
iCL•U

1..JMP
BCL•20
611lU
I.XIII'

1..JMP

5572

1511!1

7510

CCMK

/SET YP RETIJRN JUMP

1rROM INSTRUCTION tXtCUTJON
!SET UP ,OR RETURN

'1..AG HANDbXNG
/MOVE EXT, AOORESS BIT INTO TM£ LlNK
/GEi TME BLOCK NUMBER

,•4

1YU

MT SET

1Y~OM

/EXTE~OEO

I di

WR lTEN

ADOR&SSXNG 7

/NO, MASK to BITS 3•11

/TMEN CHtCK JT
/EXTENOEO AOOFIESSlNG, MASK TO SITS a;1i
ITMEN CHECK IT l' IT MAS B£EN WRITTEN %N

/N01 TM£ BLOCK MAS NOT SttN WRtTT&N 1N1 EXIT
/EXECUTE "CHECK BN"
/RtTUFIN MERE IF' F'l,,AGS OK IJPON INSTRUC!lON COMPLETION
/RUD TAPE AC
CCH1< 1
TAC
Ai[
IHRoT
)()0(
1NO, ERROR ••• ER 2 ••f
CCHKA 1 L.JMP
1CMtCK TAPE MOTION
CH£CKl
1..JMll'

L.JMP
1..JMP

CEXU•i

MTXE:QT

Cl.Fl

01/iU

1507

TOF'L.AG
RJUMF

701Ul

6HS

i'.!501

CE:X IT

QNIN

1560
061111
6722
1;H

STC

CEXI'l't

l.JMF

Mil NS'I'

/Cl.UR MT INST
IUl'f

EXl:RC

MA!

!ROUTINE
MOVE "1.ITTL.E 'R
AM" TO IPPA~~RIATE
/THEN !X[CUTE IT
/ENTER ilTM OAiA rl
SET rOR
l"L.JTtLE P~DGRIM" WI~~ BE MD D F~OM MINST TMEN EX
1511
1!312

01!111

MOVttROP

'i'iHI

AOD
L.JMP

if>li!i

lnhill

1!515
1516
1517
152111
1521
1522
1523
1524
1525
i526
1527

21'1lH
4r!IU
01iJ'12

STC

i5::13

i5:S5

1536
15:!!7

11'0
LDA•arll

STA• 2il
XSt<+22l
LJMP

0n~

1l!IH

1t2QJ

1534

MTlClQ'f 1111

1sn

t531

/iUBi~ACT 1 'ROM TME AC
/S!T QATA '1£bD BIT

/STOA& DESTlNAVtON AOCRtSS IN
/SET ORIGIN AOORtSS INTO ~2

sO•as u

'111ei
:1.fUa1
111111

0i35

1532

sn~u

d13

153f!J

CSURT

suen.

2(il!Ul

1566

/SET COUNT C®7) INTO
/MOVE THE PROGRAM

Q~lll

I.DA
CSU RT

1G£T 'TARTING AOORESS 0,

ni•alli

bJMP 1

JMP

6H!IJ
5!531
0BH
0 fiHil ii

MOVL,OF', 2i

0H6
7'37

MO\fJMP1

MO\IL.If~

TED

ca.R

:1.513
i514

2135

MEMO~V

STC
0

DJ~

LJMP

MO\IJMP

1sto~E

/CMAN~t
/CMAN~t

?ON

FoR EMEeUTXON
INSTRUCTION rt
DATA rst~O

/JUMP TO W1,,1TTLE P~OGAAM"

IP0Pw12 TAP£ OAiA tXERC!StR MAlNDEC•12•030B

ll'Al..U

VU1

29.i.JAN .. 11

23848

PAGE 21

/SUBROUTINE TO SET UP MAGTAPE iNSi~UCiiONS
/SUBROUTINE [S ENTERED W%TH "WHERE TO GO i ' INTERRUPT OCC~RS AS £XPECJ[O" IN A~
ISUBROUTIN[ tXliS WITH CONTtNTS or XO~ WORO IN AC AND IN xos
i540
1541

1542
1543
1544
1545
1546
1547
15513
i551
i552
i553
1554
1555
1556
1557
1560
1561

1562

15U
1564
1565
1566

MTSE:T 1

~ur

STC

MA(iT A,

AOC

AOO
!!IC1.•H
7671
AIU

xoewo

2ti26

156'!1
7677
0~!UJ

l.JMP
AOci

7552

,.,,4

35214

LJMP

L.DA•21B
L.NOP

1020
111916
41i41

nc:

AOO
BCL. •2il

2s21

1'H

MT£X H

...•3
~

/SAVE lNSTAUCiZON WHERt Wt HOP£ IT WI~L STAY
/SAVE RETURN AOCRESS
IGltT XOB WORO
/MASK TO TAPE lNTtRRUPT BIT

1sp ~n?

/YES, SET LOCATION TO A L.NOP

CCMKA

TSTMOR"'1
w01

ZN CASE lNTE~RUPT OCCURS

/tARON£0USLV

/MASK TO lNSTRUCTlON 8ZTS

714S

1740

3613
5'12
2H2

AOC

ROCCON

Sic

MTINST

1STORt

MUNSh1

/MOVE QN•IN ZNDSCATOR
lliU !COB WORD

'''3
2026

ADC

QNBN

XOBWO

0iU
7'66

ADO
00
MT&.'.lq T, LJMP

1567

0011

ITMJS JS TME ~LITTLE '~OGRAM"
/EXECUTE TM£ ,OLLOWING MAGTA~l !Nl+RuCTlON9 SY JUMPING MERr
MTXEQT, Cl.R

1570

11l!'iH

1571

6iS1

1512

1513

15'74
1575

0eJ!lleJ

/EXIT

109

ION
MTINsT; 0

/MAGTAPE INSTRUCTION

0Hl!I

dH
?610

/LOAD XOB

I. xfl'

Fl.JUMP,

1.JMP

TOll'l,.AG

/QN•BN
IStT INSTRUCTION 'IEl.O BACK TO 0
INORM~l.LY THlS 1.0CAT!ON WiLL CONTAJN
IAN "LJMP TOrl.AG" TO PROCEIS TAPr OONi FLAG
IMOWEV[R, THIS LOCATION WIL.L CONTAIN
l"l.JM~ WGRiT" IF A "WRG" INSTRUCTION
/JS B~ING EXECUTED

,,op;12 TA,£ DAT~ EXERCISER MAf N0[0~1a9D30a
PAL10
V141
r4e
/THIS IECi?ON 0, COOING HANDLES SOM£ or TH~ eALCWL~
'S
/COMMON TO THE "WRliEW ANO "
IXN PARTICULAR, THIS ROUTINE
UP
A "MD.
IN~
ltNTER W!iM BLOCK NUMBt~ O' 8b0CK TC 9£ "MOVED TO" %N AC
1576 40~2
COMON~, Sic
QNBN
/STOR~ BN XN QNeeN bOCAi?ON
1577
i600

20e0
5601

ADO
STC

0
C6tXIT

i601

2s21
1560

AOC
BCL•i0

wO~

1602
160~

1604

t605

i606
1607

00~7

2311
4921
7023

7~17

;

ADD

STC

LJMP
C61XIT, LJMP
l~OUTlNE

1610
1611

1.,,Hl

1613
i614

7161

1612

1U5
U:l.6

i617

045l'
7621

AH
LJMP

ztn

STO
L.JMP

7625

1621

1622

13436
1~25

1624

7145

1625

wlilU

~~11

1626
1627

050fll

i630

1 "l1llll
0k'!26
1560
7617
045k'!

1631
1632
1633

1634
1635
1636

'l'll'L.AG e

e;rb1112

7733

6042

!GET XOB WORO

/MASK TO PAUSE BIT

."'"

LJMP

Tl.,AG

LJMP

Tl,,,AG
1

ST0•2~

l..Ifl'
1.J14P
TL.AG,

wo~

MOVE

LIH

1560

04u

Keem~

To HANDLE "TAPE OONE" rLAO I' NO lNTE~RUPT OCCURS

xoewo
eca. •20
1167 .

i.621!1

1623

TOfl'l.AG~

0026

LlCTICN

OOUP

L.NOP

JOEi
I OF'
1..IJ A

/M,R£ tr NOuPAUSE MODE

;WAIT 1 MORE CYCLE TO ~LLOW Pl TO OCCUR
/TURN orr PI
/GCT X08 WORO

xoewo

/MASK TO TAPE lNTtRRUPT BiT

BCl. •21i1
76'17
Ai[
1..JMP
L.JMfl!

/PAUSU

/NO, NOT PAUS'
IY£S1 PAUS£t !I TAPE DONE !tT7
/NO, NOT srr. £RRO~ ~~' ER 1 ··~

U¥~10R

/lS TAPE XNTERRUPT BIT SETY
/y[S, tRRORa NO INTERRUPT OCCURR£0 ••t ER 4 t•~
/ALL OK, SO rARo CMECK "TAPE DONE" IN SwMOOE

/PD~~;;

TIP[ DATA !KERC1$ER Ml!NDtc .. 1a.03DB

PAl..1121

Vs.41

2e .. ..11111 .. 1i

PA Gt

/RANDOM NUMBER GENERATOR ~ EXIT WITH RANDOM NUMBER IN AC
1637
1640
1641
i642

1643

1644

1645
1646
i647
1650
1651
1652
1653

l,01il0

5656
3654
3655

STC

ROL.•21r'

STC

5~5!5

ADO

36'!5
36'4

ADO
ROl..•20
S'fC
ADO

0:u1
5~54

3655

~JMP

1656

5256

1666
1667
i6;21
1611
1612

AOC
AOC

~~61

1UJS1

166!5

LOA
iil

16!54
16!5!5

i6!57
i660
1661
1662
1663
1664

RANDOi'!,

~001/J

~SRI&

5663
211100
57H

1ilU
eiH
1120
'1131
11140
1,34

1673

112111
011141
1460
01H

1674
1675
16'16
1677
1100

7671
102111
0642
5;35
7700

ldl..F'Xt
MAl."'1,

RANX IT
HAL.F'X
HALF'V
1
HAl.,F'Y

HAL.F'V
HAl.F'X
1

HALF'X

MAL.fl"!'

•• :s

E'li fll1

ion

RANl< t'f, JMP

/THIS SECTiON or CODING HANO~ES SOME 0, THE CALCULATIONS
/COMMON TO "RiAO", "ROCKG~". "WRITf", "WRCKG'" suaROUTlNES
/lN PARTICULAR, TH1S SUeROUTJNt SETS ~p LOCATIONS "MOVbtr~ ANO "MOVl..011""
/£NT£R W!TM F'ltLD WHER~ PROGRAM lS STORED !N AC
C0MON7, $TC
C7TEMP
/SAVE AC
AOO

STc

C1'1'tMP~

LDA•2~

cn::x n

/SAVE RETUAN

tGrT bCF' F'OR PAOGAAM STORAGE
/SUBTAACt 41

AOh2flJ
17'$1

/STOR~

STA

MOVLI''

JNITRUCTJON F'iE~O JNSTRMCTiON

ADA•~?l11

/AOD 41

SA!•H

/TOO li'AR?

RoccoN; 1ea

LJMP

.@3

LD'

1..0020
STC

C7txrT, LJMll'

MOVL.Dr

1NO

1vrs, F'ORM L.011'2

/STOR& DATA F'ICLD lNSTRUCT?ON
/[l(l T

/~DP;12

DATA EXERCtSE~ MAJ

Q <U1

ISYSR0UT&N£ TO ~ANOl.E "I" BIT or
/(CHECKS TAPE MOTION AriER INS
/RETURNS To bOC$1 1' Al.L o~.

101,
I

/Gti ~ONiENTS Or ~

Cl1ECK.l e 1.l:>A

1701

1~£1111

~ l02

ll!f!H
s1;s2

cu:xn

/SIT Up EXIT L,QCATXON

2641
411103
IJ223
'1716
J,'12
ta3UI

AOD

K141110
;s

)($1(+2fli

/SMOR'f DILl,,AY

11n
i'1i!4
1'10!5
1706
Htif7
1110
1'111

1'12
ih3

11i:u;

1'14
1'11'

0'H
6151

i '116

4fiiH

1h'1

0511.1111

it2s

1'121

1722
ih3
it24

ins

1126

t;21

1'13lll

ne:

STC
L.JMf'l
AOC
ROR•2fl>

t..CA•~0

5fl.!flH.~

5fljf/H:j

11111

M'f4NST

/TO

IOB
6U1

1<400r!'l1

src:

/~OAO

1C1,,U~

IOI

6154

THE TAPE MAlNTe REG
ACe

1R[A0°UN!TS A~D MOT!ON lNTO AC
/MASK TO MOTION SIT

6U4
BCL.•i!!l!

1~H

/MOVE "I" 9?T XNTO 1..!NK

IH'!' YI' AC

71&1

1'161

!0452
71:!!11

045e

x){)i

,,33
7132

1..JMP

aom

i731

'1733

1732

7732

111!4

AiE•2fJ

cu:x rr,

1..JMP
LJMP

l00(

•

/YU, OK
/OOES MOU 0Ni!i!1

1NO tRROR ~*~ IR 6 *~•
/YES, ~Xl'f ROUTNE

/COMMON [R~O~ MAl..T SU!~OUT1N£
1133
1134
ii'3S

i7J6

1737

4'304

)00( 0

0~H

61i192
2Hlll

xxuc:

sre
lOi
xor

!OlSAiLE

ADO

Si'!' c

5157

RSW

0516
.:1241
04$1

AOD
LI F'

LJMF

XXR •

1151

XXXPC::

xxri

lOO<PC e

LJMP

AGE

1
)t)(

HHH SW i
REST Alil

XXXAC

hi.

XXXPC

l'iiSW
A?iO

:ti1H:l!I!
0~1Z!4

AD ~IGHT SWJTCHiS

ROt..

4
3

lNTE~RUPT$

'1J

/EICAPE TC RESTART ADDRESS

/ll!;IP ... 12 TAPE OA'l'A O'.£RCUER MAtNDtO•U.,030B

FIAl...1111

V10

/COMMON ROUTINE TO SUBTRACT
1 rRoM TME NUMBER !N TH£ AC

1?60

5764

1761

0011
0rll1'1

1762

1763
1764

1220
UH

1 '165

612100

SUBT11

STC

•4

CL.R

COM
1.AM•21D
tZ

1.JMP

/A ROUTIN£ TO SET BIT n;n Or TME
/TAP[ iNST~UCTION

1711
1772

i'77rll

UH
1''12
16H
aiil20
5!)72

J,;;3

681118

2007

2rll07
etHS

1766
1767

)

MPAC,

1.0A
MTiNST
BS&:•2rll
HZlil

stc

1.JMP

MTlN$T
0

•2007
XAC:,

Hl!llll

/STORAGE

2~11lJAN11111

148

PAGt H .. 3.

/FOP;12 TA~~

!XERC!

20221
2021

MAI

P.t.L'il!l

2~20

4'2020

1090

/THIS SECTION or CODING ~AN
SOME Or TM[ CA~CUl..ATlONS
/COMMON TO TH~ "REAO AND OHEC~ GROUF" ANO "WR!'t ANO
llN ~A~TICUl..ARe TMlS StcTlON CM£CKS FOR!
I
1> £XiEN0£0 ACD~£SS%NG MODE
I
ai TAPt OR MEMOAV WRA~eAROUNQ
ICOM~UTES STARTING AOORESS or 11 1..ITTLE-PRoGRAM"
/ANO CMECKS FOR TRANS,£~ INTO NONeEXISTANi M£MORY
COMON1 8 l..OA
0

211.!2~

0~013

.. :1,35

21!123

2024

0641
11H

STC
LOP'
i\OA

2025

2020

2026
hJ27

V:U1

CU,'.X l T•212flillll
0

xoewou000

1'6"
7757

BC!.. •i?~

!BI'!' SEU

20321

15450

6133

\,,,,IMP

2032

1~H

h33
2034

211:.52

l..OA
QNIN•!iH0
BCt. •21

ICL.!Af~

13 1.t~T

0n1

2036

0243

203i'
2'1140
2041
21,1J42

:t1411l
2il33
1Hlll

211J32

2tH;'S

15H

2fll44

2045
2046
2047

2050

611161

20!51
2k'l52
2053

2054
21!!55
211!56

2057

lilPI

/UVE
!Ge;i QN .. BN

BC1,,•2lil-

/Ci.E

177fll
S'l'C

IUVE

-nu

1171/i
0471

errs

/NON

INOs

PlE iii ITH

IYUB
I

I'!' .. 2

STAR

iliil::
'r QN

CCOi\11•

or iii

01!!

2064

7115

20!!i!5
2066

6015

~4;

1H~

21!126
1
,rfll10

illl4£!
2026

IGE'!' QN•9N

C'l'!Mi•!Hil
L.OA

. C'l'ltMadiaH
C'!'IM2
ADO
dt!•21il
t..JMP
CCON1
Af:JA
CTEM1"'20H
Al:>A•2Z
-

111!1£1

/YES, 11..i.tGAb OPERATION

QNBN•aura

2033
1:.i.2!11

21.liM:l
21Zi61

2M7
2310

RO~

;11111
4Ul2
211!12
0~70

CUxIT"2

.,.,.,

1561!1

?ONS

!GET l<OS WORD

2ii'J31

2l?i35

NS'!'fl!U

/MASK TO [~iENCED ADO~tSS IIi

.,.,,"/

GROIJ~''

/STORE BA

!3 'f

S,.jH

/P0Pa12 TAP£ DATA £X£RCISER MA!~DECm12•030i
CCON21

1~20

20?6
2Z'11
2100

14H

1400

1a"0

STA
CSURh20flllll

2101
H02

2iltl3
211114

2111!5
21f/J6
21111?
21UI

2111

2112
2113
2114
2115
2116
2117
212s
2121

2122

1.0A•2~

CTEM21

ADA

11'14

.,.,., 4

A A•if!I

04'1

Al'O

612?
1IH

L.JMP

LDA

4l36
"'16
1:560

1ns
~242

1121
e~S3

CCON3

, H;L.ON*U~I
Klll!UIU•il!llU
ADO
C'fE:MthtUH
STC
RS.hi
aci.. •2111

2i:s1

ROX
AO •U

Kf/J0UA 1 3

2123
2124

011117

COM

2i36

ADD

C'f(M4

APO•U
LJMP

CUK J'l'•2

2125

111411

2126
2127

1 lil21i1

CCON31

2130

0"91

t<H!UA, 1

2131

2132
UH
2134

2135
2136

6133

L.0A•29

/ADO .. ~
14 OR GAEATEIU
/NO a Al.I,. C'll<

1GiT QONYtNTS O' 'lELD
ADO 1

/STORt

/FltAO RIGHT SWITCHES
/MASK TO tXTENOEO MEMORY ~~lT~MES
12
/AO

5E'~T

/MAKE MENUS
/COMB:Nt WITH W'Jl~O•&"
/OOES NEXT rrtLO EXIST?
INO•

hl'I'

/JNCR~MENT

Exlf LOCATION

ADM
CUXIh2HllJ
I.DP'
1

1149

nu
0641
ei~es

PAGE H

/GET ~N BITS 9•11
/AOC QN B

C6S:M1•Ul!ll!l

2fB2i'

IS£i U~ STARTING ~~OREIS 0, PROGRAM

11H
2133

1129

U;JAN•H

1/141

L.0h2~

2075

21135
1f!l2111
efllH

PAl.1fll

LIP

6135

C1£XIT~

L.JMP

"'"'"'

CTtM4t

•

/EXIT

/TEMP STORAGE 0, UPPER M£MOFIY IANK NUMBERS

MAI

l!l

'111

ITM!S SECif ON

/COMMON iQ
/1 N F'A~T H'.:U!,,A"' p
/SETilNG
2137
2Hf/J
2141

10111ra
eil!UJ
4U1

2142

'1J64QI

2143
2144

1iH
2i:s3

2145
2146
2141
215111
2151

2152
215~

21 !H
:HS5
U!H

2157

COM

111J4ll!
21U4
11/JH

S'l'A

c;nx? T111tfllfaill
0

!GU QN Bi'l'S

suns.A

211114

21632

1'61i!
,. ca 11H11
1tH{l!
2rz134

1S1JBTFIACT :1.

/ITOR~ IN 14

i.,DA
QNiN•ZHl'il

/GET fdN•BN

BCL.•2~

/MASK iO BN BlTS ~ TO 11

71BH

Si A

/UORE

CT!:M3eUIHI
t.Dr
1

0641

aiBl!I

i..Ht'

Ill

CHX ii~ L.J~P

/El( 1'!'

HlN or coo I NG
TO TM& l'IREAIJ

ltN PA~TlCU!,,ARs TM!S
/TO ACCESS DAYA ZN

/ENTtA WIT~ BLOC~

ltX!T W?TM ff~grn l
2162
2163
2164

42!111
28H

COl~ON~,

C~TEMA@2H~

AOD

STC

1..01"

c::u:'q

/SAVE ~X!T ADDRESS

0640

22!31

AOD

CHE:MA

/G~T

1,613
1110

IH::L•21'1i

/MASK TO i!N

AOA
7nt1i

I AOO

77"14

0451

APO

2:1j11.1

2116
2117
2200

1120

2202

lS.20

2203

0!ai4l'!

2204

.(1641

22t?l5
2:;:06

229!

BbOCK NUM~tR
s;s

/BllJ<<'I
§Ill d!

62210
10111111
3

ONS

/UV!!: AC

4206

H6i'

INS'f~UCT

?ON

2165
2166

:an

CTUU.•HH

L.~MP

6i6:1.

WITM ~NJ TD 1

111!

0
STC
L.011'
110•

01!117

2161

COMON2; t,.tlA

6157

2Ul1J

G~OUFl 11

Gi'.T

INS

l~~r

~tr

?NS'f~UCTiON

ADO

~12l

0 Mt.Kt

I
2@ft!0

xn"'a
MOvur"' 000
Al:lA"'

ioN

t.,O

L. I
C3EXX'I', 6
C~
MA~ l1l

0
/E:X ! 'f

/TEMP

•

PA!,,1111
U.;_;JAN•'11
~O
FAGt
/F0P912 TA,E OATA EXERCISER MAINOE0•12v0301
/THIS SECTION or COOING MANOLtl SOME or THE CA~CUl,,AilONS
/COMMON TO TH£ "RtAD" ·~o "w~!TE" SUBROUTINES
llN ~ARTICULARo THIS ROUT?N£1
I
1) SETS UP THt DATA ADDRESS 'OR tXTENOED AOD~ESS MOOE AOORESl!NG
I
2) CAL.CUL.ATES THE DATA rIEL.O-JNSTRUCTION ,OR Acc;ss1N~ Ii
COMON4~

LOA

221"

iH&J

2211
2212
221:5
2214
2215
2216

01i!H

0
STC:

0641/l

1cn woAo•

21!124

0
LOF'
LOA
wg4•21i!H

iel411J

STA

/SAVE DATA ADDRESS

2211

2220
2221
2222
2223
2224
2225
2226
2227
22H
2231
2232
2233
2234
2235

4235

111JH

1'UH
6"'

C~t:X IT111201!J~

8 I. •2111
611111.10

1 lll""

DAT AD0•2f':H'llll
1..0A

2646

2024

W04•21UH/l

1~'611J

BCL•211l.

1111

117'1

11H
2021
11221

ADA

~242

ROL

ADA•2B
L. or
LO'
LH'

0641
060!11

6235

/G!T WORD 4 A~AlN
/MASK TO "tXT JltLO" BITS Clll,1>

F' UL.ON•2f2101?1

064111

/MASK TO "ADDRESS ilTS"

l'l. L.E~T

/COMBJNt WlTM OTHER FftL.O 8lT5
;COMBINE WITH BASIC "LDF'"

1
0

C4tX l T, L.JMP
/EXIT
•
/THIS !ECTiON or COOING MANOLtS SOME or TM[ CALCULATIONS
/COMMON TO TME "WR!TE" AND "WRCKGP" SUIFlOUTINES
/lN PARTlCULARe THIS AOuTt~E gOMPUTES-AN AOOREIS F'OR ~~STA
/F'OR PATTERN WORD STORAG£ VOA A PART%QUL.AR BL.OCK ON A PARTICULAR TAPE
WlTM BL.OCK NUMBER JN AC
/EXIT WITH ADDRESS IN AC

/ENi~R

2236
2237
22411l
2241
2242
2243
2244
2245
2246
22-17
2250
2251
2252
2253

1~20

7007

4246

0~40

1"""
2s25
111241
1120
2'0121S

COMON~o

C4TEMA .. 20H
STC
0
I.OP'
L.OA
UN i T•allllll0
ROL.
1
ADA•20

C4Te;MA 1 0

32f!le

AOA•2'1J
BL.KTBI.

ei91l121

LI F'
L.JMP

1120
'1641
2' <100

/SUBTRACT '770

ADA•2!
1011

LO'

/SAVE

/GET UNlT NUMBCR
11 LE'T
/ADD IN "TRIMMfO B~OCK NUMBER"
/ADO lN TABL£ £NTRV ADDRESS

1
0
0

/EXIT

1POP·l.~

TAPE OATA t~ERCZS£A MA!ND£c,.,1a•03DE

VU:i.

/TAPE 4

2254
2255
2256

4214
11Jl/Hll 6

1020

/SUBROUTINE TO PUT A PATTERN N
/~UBROUiIN~ lS ENTEREC WliH
roR STORAGE IN THt AC
/SUBROUTINE EXITS WITM "PATTERN ADDRESS" IN AC AS I "~JMP l
/OITA rtE~O IS SET PREVIOUS TO ENTERING TM?S ROUTINE
PA'f[RN 1 S'f'C
PSA\/EeUH
/SAVE ITORAGE AODRiSS
DJR
IGLi NEXT PATTtRN AODR£SS
L0A+2flJ
PATPNT; l.JMP
PAT1
PJMP .. 2000
ISTOR~ lN JUMP LOCATION
src
/lNCR~MENT PATTERN POINTER
t.0H2~

22!H

6303

2260
2261

42'16

U20

2262
2263

0H2
1140

~J257

PATPN'l'•20H

2264

2265
2266
2267

2270
2271
22'12

2273

2214

ADM

1~611!

SAE:•2~

6335
6213
11112e

L.JMP

l.5MP

,•4

4257

PAT1
PATPNT•2Hlll

I.. H2fll
I.JM fit

6~11J3

L.OhUl

1s20
0PJH

PISAV£c

2216 6276

PJMp,

221'!5

2277
2311HIJ

2:S2!1
2302

01H6

22'16

0~41
lil~Hl

63132

i!£1'0£S

P[)(

/NO
/YE:S1 RESET

/Gt'f STORAC[ AOOR[SS
/SA VE:D AOC~US

OJFI

l.JM~

/GONE'. TOO F'AR?

PJMP

£00
L.DI"
L. l I'

LJMP

/JMP 'fi-!EFIE
/PICKUP TM!'. JUMP

/EXIT

1PDP~t2

TAPE DATA EXERCIS!R MAf ND£eg12~o:soa
2303
2304
231?)5
2306
2307
2311'11

637'1

2311

~IH6

2312
2313
2314
2315

2316
2317
2320
2321
2322
2323
2324
2325
2326
2327
2330
2331
2332
23:53
2334

l'006

PAT1,

l'AL.10

vu1

2i;,JAN"'1

i ill8

DJR
L.JMF'

OJR

2EROES

/iH:RoS STORED

1-1006

1.JMP
OJR

ONES

/ONES S'l'QRE:O

0006

U'.RON£

;~EROEI

ONEU:R

;ONES AND iEROtS STORED

SEVi!tR

l'fm'10 S'l'OR!O

i!!ERUV

1!11'1Sl'1 S'l'OREO

S~ 'VAL T

11@701

iERAL T

107011 1011 ALTERNAT!NC STORED

f:I\ITWO

;5252 STORED

TWOP' l \I

12'2" sro11te:o

F'l\IAI.. T

t52,2s 2525 Al..TERNATlNG S!OREO

TWOAI. T

116451

COUNT

1COUNT PATTERN STORED

•• .a .. ueia

!SUBTRACT 1

6335

6355

1.JMP
DJR
1.JMP
DJR

6~22

l'006

6143

L.JMP

DJR
1.JMP
DJR
1.JMP
DJP!
1.JMP
OJR
1.JMP
DJR
1.JMP
DJR
1.JMP
OJR
I.JM!'
OJR
1.JMP

r,Hll06
6466
li.ll:H'l6

6~11

"""6
6,3,
0"706
6;61
~·006

6604
0H6
6627
0~06

6653
0i06
6677
ISTOR~

233~

4341

2336
2337
2340
2341
2342
2343
2344
23415
2346
2347
2350
2351
2352
2353
2354

rHiJU

0017

1220

i!UoU; STC
CLR

2000

21211!10

40216

4302

'1061

7377
6765
~J221

6351
6277

51~2

AL.TERNATING STORED

Al..T[RNATING STORED

COM
L.AM•20

0
BSE+2eJ

2ees

11~1

U:ROU

1620

t3e0e1

AND ONES iTOR!D

STC
AOO
STC

SE'l'+20

1317
1.JMP
)(5!<•20
1.JMP
1.JMP

/SET DATA P'J£1.0 BIT
6

?EX I TeZ00113

/SET PO l NTER
/SA\/£ RETURN AOORESS

/SET 7 To m400

.,TST

/ITORt
/COUt<JT
II.COP
/EXIT

• •2

?JMP•1

ll'AGE U

;POFl111

TAP~

DATA EXERCISER MA!NDtc~1a~c~os
/SToRt ONES

2355
2356

2357
236el
2361

2362
2363
2364
:?365

2366
2367

4361
l'011

eei11
1ZH

2312

2373

2::sH

:?JYs

2:s1o

STC

8 •4 .. 211Hll0

COM

l,.At-H•211l
Ill

:1.620
211101/J

21'11!11'11

4006
200111

AOO

6
0

SEi+2~

0212
0067

d17

/SUSiRACi 1

Cl..R

i'JHS

2:ste 1$11
23f 1

ONES t

1siT ~AiA '!ELD 8lT

9S&:•20

STC

PU p .. 20H

IS&i fi'OINUR

/SAVE RETURN ADOR!$S
/SILT

COM

6765
0227
63'12

1..JMP
xs1020
1..JMF

~fll11

Cl.,R

'fST

o•2

/COUNT
/l..OOP
/Cl,.E~FI

PJMP•1
/EJ<?T
/STORt itROES ANO ONES Al..TtRNAi£1.,Y

23;7

441113

241!11!
2401
2402

0e11

URONE; S'l'C
Cl..R

2403
2404

2405
2406
2407
2410
2411

2412
2413
2414
2415
2416
2417

iJlllH
162'!!

0
B$!!•211l
21lliil0
STC

20H

ADO

4302
0i6'1

STC

1311

1~'17

S£'fo1i:U

0456

LSt<P

kl!B17
6165
0227

COM

2420

00:1.1

2421

6211

1 $4 ... ~!Hlll

!SUBTfilACT 1

COM

L.AM•20

6~14

L...IMI'

:l.iil211!

2H0
4006

'!'O e4H

/UT AC TO 111'1
1S'l'OIU:

621'1

0~17

7311

I.JM?

Xlh<•21tl
l.JMP
c: L. Fl
LJMP

ISEi CATA rIEL.O B?T
6
0

/SET ~Q iN'l'ER

/SAVE RETURN AOOR£SS

PE:l<i 'f' .. 21/Jli:Hl

.,tn

/SU 1 'fO •4H

/SKtP WITH ~000 AC
/COMPl..EMEN'f' AC
/STCIR&:

ICOUN'f

IL.COP

PJMFI•~

1un

/C:LE.U~

/PDP .. 12 fAPE DATA tXERClS[R MAf N0[0•1i•D309

PAL.11

\11111

2tl:l;,JAN11171

/STOR[ ONES AND lEROES ALTER~ATELY
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434
243!5
2436
2437
2440
2441
2442

4426

ON£UR ~ STC

05'11

Cl..R
COM

0~17

1220

1.AM•20

!'l!i1JH

1&20
211100
40186
2H0

, •4a21Ul0

/SET DATA rIELD BlT

BS£•211l

2000

STC

ADO

I?)

0067

STc
sr:t.221

.PUXT•20iH?t
,

0011
676'

COM
LJMP

TST

XS1<•20

4302

1371
~227

6~36

6277

7377

1.JM!l'

l.JMP'

/SUBTRACT 1

1sn POINTER
/SAYE RETURN ADDRESS
/SU 1 TO ;,,41210

ICOMPl.EMENT AC
/Sf OR£
/COUNT

,.3

11.00P

• •4e2fi'l,0

/SUBTRACT 1

PJMP+1

/STORE '!070
2443

4~47

SE\IUR, STC

2444
2445
2446
2447
24!50
2451
24'2

01111

CL.R
COM

2453
2454
2455
2456
2457
2460
2461
2462
2463
2464
246!5

0911
12H
l'l fJllJ f/I

1t2'!1

2u0
4el06
20H
4U2
0067
1h1
1'!120

71!170
67~5

0227
6461
ri011

62ri

L.AM•2il
0

/SET DATA rttL.D BlT

BSE•2il
2000
STC:

ADO

nc:

/SU POINTER

6
0

PU I T.. uru
S£T•20 .,
7~11

L0A•211J
7070

LJMP

/SAVE RETURN ADDRESS

!SET ~ TO .. 41(1)0
/SU AC TO '107111

TST

ISTOR~

L.JMP

/COUNT
11,.ooF>·

LJMP

PJMP·•2.

/El<IT

XS1<•2~

CLFI

/CLEAR AC

PAGE 31

/PD~ul2

i&P[ DATA tXERClS[R MA!NDtCm1ie030!

PAl.10

\1141

/STORE fll'1el1

2466
2467

402
01H1

iH:RSEV e SiC

2470

111h7

COM

2411
24f2

12H

LAM•20

247~

2474

2475
2476
2477
251Hl
251!!1

2502
250:5
2504
2505
2506

•4 ... 21llWl?J

/SUBiFUCT 1

Cl,,R

l:'l~IHI

!Sti CATA 'lEL.O BIT

1620
201110
41!11116

BSlf •iHIJ
20s0

STC

20210

ADO

nc:

4302
01167
7,71

SET•2ti

.PtX
, l T•211!0SI

1~71

0'107

LDA•21
071!!'1

6'165

L,JMP

1iH

0227
6~04

/SET F'OlNiER
/SAVE RETURN ADDRESS
/SU ~ TO w4H

/SU AC '1'0 071'1
TS'I'

Xil02ia
L.JMI"
Cl.R

8 •4slililll

e •2

/$TOFIE.'.
1eOUN!
/L.OOP

2s1a

""11
6217

2511
2512

l!lll11

Cl..~

l.Z2S

t..AM•i~

01i11.10
1620

2H€1
4H6

2~1!10

afllH
STC
AllD

!!:!

ISAV[ RE'l'U~N AOllRtSS

43S2

STC

PEX l 'l' .. 21l!Hl
1

IU'I' 1 TO a4H

25!7

2513
2514
2515
2!U6

2517
2520
2521
2522

4'15

0011

252:5
2!524

0i!l6'1

2525

1020

2526

0711!7
k!ili17

2527
25313
2531
~532

2533
2534

7377

PJMP•1
LJMP
/STORt 701fll,071!!1 AL.TERNATJNG
S!VALT,

/IUE!TFIACT 1

COt-1

/SET DATA ;rct..o Bl'!'

BH•U

sn•2e

1sn l"OIN'i'EA

/StT AC iO 0707

t.DA•21ll

0101
COM

TS'I'

6165
C227

1..JMP

)($1(4'20

6!)27
0011

L,JMP

e !11;5

CL.Ill
L.JMP

PJMfht.:i,

6211

/CL.UR AC
IOI'!'

ICOMPitM!:N'f AC
/$TOR
1COUN!
IL.OOP
/Ci.,EAR AC

IDIT

1~u

"'I\

/PDP~12

TAPE OiTA EXERCISER MAiNDECv12sO:SCI

ll'Al.U

/STOR~ 0711JY,7~70

Al.TERN4TJNG

i!ERALT, STC
Cl.R

, •4 .. 2'/l00

2111•.JAN•n.

\1141

/SUBTRACT 1

25:55

4541

2536
25:\17
25411J
2541
2542

0011

1620

2543

2i!fUI

0
9S[•2RI
2e1B0

21iHll1'

AOD

Ill

!HT 1'.'0lNTER
/SAVE RETURN ADDRESS

4302
011161
'1311

SET•2il

/SU

UIH

1.0hU

2544
2545
2546
2547
2550
2551
2552
2553
2554
2555
2556
2551
2560

0U1
122111
~He

?ns

COM
LAM•2ril
/SET DATA F'IEl.0 BIT

PE>< n .. un

7"J11

To ,.4!1111l

!SU AC TO 7rl!711'

78'1el

COM

PJMP"'3,

/COMPf EMENT AC
/S'l'OR_
/COUNT
/LOOP
/CL.EAR AC
/&:xlT

,•h2H0

/SUBTIUCT 1

0917
6765
0221
6553

1.JMID
)($1(•21

LJMFD
CLR

• 11113

0fi4IU
6271

1...JMP

TST

/STORE 5252
~561

4565

u1;
2563 0i'i
2562

2564
2565
2566
2567
2570
2511
2572
2573
25?4
2575

1220

F' I vn10; STC

c3R
C
M

llH

1..AM•21
liJ

21!1210

i6H

BSE•U
2HI

411106
2BH
431212

STC
400
STC

PO I Te20H

0S67

SET•i!D

i~71

1srr DATA rIEl.O BIT
6

POINTER
/SAVE.RETURN AOORtSS

/$Ei

/SU 1 TO ~4tll0

7"$77

25;6

1"2111
5252

L.0A•211l

25;7

6765

261!10

0227

LJMP
XSI0211l

52!52

/SET AC TO 5252

.,TST

/STORE
/COUNT

26"1

6577

1..JMP

, n2

2602

k'.'11111
6277

Cl.R
LJMP

/1,.00P
/CL.EAR AC

PJMP•1

/EXIT

~603

1'4e

PACE 4tJ

/~OF,..12

TAP( DATA £XERClitR MAf N0[0~1211103CI

1110

;;:;~Jt.'.

23G~8

/STOR; 2525
2604

2605
2606
2607

4610
u011
00:1.1

1220

TWOP-!V, STC

e <ii'"'2H~

CbR
C: M
LAM•2e
0

261fZI

00t111'11

2611

1620

2612

201ill1l
4!111116

STC

2ilH

AOC

11!

4:502

STC:
SE'l'•2S
1:511

2613
2614

2615
h16

2617
2620

2621
2622
2623
2624
2625
~626

0ra61
7371
1ra20

2,2,

/SUBTRACT 1

/SET OATA rIEl..C BlT

BSE'.•211.l
2iU

PEX n .. 211.1u

/Sr;T 1 TO .. 400

/Sti AC TO 2!!12!1

L.0A•2!ll

25!5

/SU ~CINTE:R
/iAVt RETU~N ADDRESS

6'165
!0227

LlMP

.,'I'S T

IS'l'OR;

022

LJMll'
C:l..R

e 111i2

/l.OOP

1.JMP

PJMP<t1

li'.~t'I'

"fU.1
62'1'1

X t<•2S

/COUNT

/Cl,.E:AFI AC

/SioR; 'at2.a,a5 AbiERNATlNG
2027
26321

2631

4H3
PJIU.
0SH

f."l\IAL i; STC

··'lll~i~ltl

1,.AM•2~

2632
2633

1220
0000

Ill

204

1620

Ue:•U

2635
2636
2637
2640
2641
2642
2643
2644

2Hrll
4!i5i!'i6
:2HS

ST e

AOD

4H2

STC

FUlh2fl'lfii0

SEY•2fill

2645
2646
2647
265t!l

2651

2692

e2101

/SET DATA rlt~~ BXT

1sn 1110 lNTl!'.R

/SAVE RETURN ADDRESS

1311

2525

01/Ji't
6165

6~45
0~11

COM
LJM!:I
XS1<<1o20
I. ,JM !l'
Cl.,FI

6211

LJMP

PJ14Pw;i

111>20

1:;i221

/SUBTRACT 1

Cl..PI
COM

/UT '! TO .;,41\111'!
/SE:T AC TO 2525

L,0A<1>221

/COl"IPL.E'.ME:N'l' AC

TST
$ .,

/CLEAR AC

j':

1POP•12 TAP£ CATA £XtRclSEFI MAfNoEc•13•o~oe

PAl.1111

V10

211l;JAN•11

/STORE 2645, '132 Al.TERNATlNG
2653

4657

2654

J011

2655
2656
26!ii

2660
2661
2662
2663
2664
266'
2666
2667
26?0
2611
2672
2673
2674
26f5
2676

0011

1220

TWOALT, STC
Cl.R
COM
l.AM•2fll

~9H

.•41112000

2000

4006

BSE•20
2000
STC

200111

AOO

4302
0067

STC

1620

StT•2rll

nn
1020

N'n

L.0A•20
5132
COM
1..JMP

5132
011117
6765
0227
6671
0011

XSl<•2~

6277

/SUBTFUCT 1

/SET CATA Pil.EO BIT
6
0

/S£T PO INTER
/SAVE.RETURN ADDRESS

PEX XT•211!00
7

/SET 7 TO 11114li!llll
/S&:T AC TO 51U

TST
7

l.JMP

,.3

1.C~RMP

PJMP•l

/COMPl..lMENT AC
/STORt
/COUNT
II.COP
/Cl.EAR AC
/ElclT

/STORE COUNT PATTERN
2677

211110

27181
2102
2703
271!14
2705
2706
2707
2710
2'11
2712
2713
2714
2h5
2716
2717
2720
2721

47G!3
0111
0~17

1220
0H0

1620
2He
401!16
2HllJ

4302
01'67
7~71

1i2S
Dl1J01
6765
0227
6713
0'111

6277

COUNT1

STC
Cl.A
COM
1.AM•ifli

H1112H0

/SUBTRACT 1

/SET DATA 'IEl.O BIT

SSE•2111

STC
AQO

se:h2e

nc:

'A0A•2"
"'..,.,.
1

l...IMP
XS1<•211l
1...JMP
Cl.R
l.JMP

PD? T•2il1J"

/SET FIOINiER
/SAVE RETURN ADDRESS
/SET 1 'l'O .i.O!lll

/INCREMENT AC
TST
1

,1114

PJMP•1

/STORE
/COUNT
/L.OCP

/CL.EAR AC
/EXIT

23;0

PAGE 0

/P0Pe12 TAPE DATA £XERCllER MAf NOECm12sD~Oi

2~:148

11141

/SUBROUTINE TO CHtCK TO SE£ If
OCK "N" HAS
WRI
l"N" iS IN ACa TAPE DRIVE NUM6ER IS JN bOCATIDN "UNIT'
/ROUTINE tXITS TO 1..JMP•1 tr UNWRirTENe l..JM?@2 tr W~tTT£N

WSA\l[ .. c01iH'l
0

/SAVE AC

4155

ST C:

Wfllh!T"'2H0

/ANO SA\/[

0•40

l..Ofl'

1um

AOA•Zill

2722

4756

2723
2124

21l111!0

2j25
2?26
2127

2156

2'l31il

?Hl7

rz:u

WR li!!N s

AOO

ADD

7111117

4156
:tiH
21125

STe

~h6

27!56

ADO

2741

27'43
2'1'44

4156
2156
041111
6153

2132
2733
27:54
2 35
2'137
2741

2142
2745

2'46
2747

2750
2751
2752

2753

L.OA

112~

ADA•U

32H
4141

AIJD
S'l'C
ADO

GU,

S'l'C
ADO
AU•20

L.JMP -

1~21!1

L0l•2al

2755

1
ACID

eimru

4755
2756
0641

2754
2755
2756

6755
iillHl!l

2757

4763
0011

flJ6!1J!!J

STC
ADO

L.0;
I.. I'

WNExIT, l.JMP
WUVE•

/SUBTRACT 710

WSAV["'2eeJm

/SAVE
/HT UN l T NuMHR
/ROTA it 1 L,tF'T

WSAVE

/ADO lN "TRIMMED" BL.DCK NUMBER
/ADO SN TABLE ENTRY AOORESI

Bl.Ki Bl.

ISTORi: AWAY
/GET ~ONTENTS O' Bl.OCK STATUS

Ge:Te2~~1Z!
t

WSAVE'"li~H

wSA\1£

/NON•~tRO'I

INOe lt~o.

WNtX?T•i
WNE':Xl'I'

Wfll!:l<l T•20H

WSAVE:
1
eJ

fil!lli7

2762

1220

2764

60018

:2163

~112100

suer1a•2as~

Cl.Pl

COM
L.AM•2EI
SUBHB, 0

l.JMP

/'l'MtN

IG£T STATU~ wo~c
IE)(tT

/SUBROUTINE TO SUBTRACT 1

2760
2761

e:xn

/VtS, JNCR!MEN' EXli POINT

suer1A, sic

/GET ~ONTENTS or 0

/GlT Bl.OCK NUMBER

WUVE

UM%h21l1H
ROI..
l.

!ili41

!NT

ll.Gi'.

tPOPm12 TAP[ DATA ExtRClSER MA1NDECn12•030i

PAl..:Li!

v14:1.

21111,JAN•'T:I.

/ROUTINE To CHECK ACROSS 1..INK HEMORY PAGE BOUNORY
2765

1H6

2766

5el15

STA•2fa
S'!'C

1!1111

CL.Pl

2;67
21711J
27h

'fS T,

2"86

1!5621

TS '1'1 e

AOC

6
SAVe2~'='0

BCt.•U
6SU

2772

6 Hill

2t14

14H

27h

?014

2717
3"11.10

401111
05H

STC
IOB

3001
3002
3SU
31H4
3"85
3Ql06
H!ll7

6214

ROii'
ROR

641
1..U+2fll
1.JMP

....

2773

D.JFI
SAE•2lll

0 llllll6

2t75 1tn

3010
3011
3012
311113
3014

391'

1.JMP

0~01

AOA•U

0~41

lfl412

?i12

1..0,

0640
U411J
2t61

5913
011JH

11112s

3016

0tai6

3017
311JU

0412
&SH

3022

6676

3;21

11'1'1

1120

l!l~H

/SAVE A1Ct

/TUT 'OR 11"1?

SAV•1
1

OATCHK•UH
•• 1.. 2u0
STC

UVA,

SAV1

1..JMP

/YES, CHANGE LO; ROUTINE

/TUT 1.lNK

/~UOZNG RESTORE
/OATCHI< L.OCATtON

/CMANGE DATA rXEl..D
/RUTORE A~C.

I.DA •2111

D. 1111
1.!r•U
LJMP
I. I P'

/NOt Ex!T

0
0

OATtNC

/READING OR WRITING
/W~ITlNG, EXIT TO YMIS rtELO

/RlAOlNG, EXIT TO 'IELC 1i7

FIAGt 44

/~0Pe12

TAjE DATA EXERCJStR MA!ND£aeta~o30I
3200
::1200

ue00
3400

PAl..10

111i3200

IBbOCK PATTERN TABl.E
81..KTBI.., 0
•Bl..t<'i'Eli.:•21iH5

IOATA BUrrrR e

40~

1..0CATfONS

11..lNC INSTRUCTION OEPlNITIONS
2000

A001t2~H

1us
1140

AOhU!H

1201'1J
1240
1H0
1300

l.AM11112iH

AOM!!11U
MUl,,ll!1i411:l
L.CA11~U
L.0Hll!1~f!i!l

4Hl'IJ

STC114'1JH

11140
1ue

ST Al:l.lf40
STH11,40

0240
031!!0
0i540

l'HH.r;IDi1Ul
lllOR!!03tHli

0~1~
~lll:!.1

l.N0Ps~lll16
Ct.lhS~U

0e.l4e

H.hfllO

0see

6111

"IU6
0H4

0fa24

SC"'l!l030

L.Hl..T!!WiSl!I

l..JMP1tfl0~
DJFl11101!1tu
ESH'1101111l!4
Sli'h0~~4

11141

i41

/POP~1~

TAPE DATA EXERCISER MAf NOEC•1i•03DI
0181115
1,.,,

16H
1640
'1017
14421
14110
0440

QACll!l1l~fil!5

BCl..•1'40

BShl~fll!I
BC01111~40

COM!i!0111s,7

SAh140
SH0111114H

k'456

SNS!i!0~4'1J
L.SKP111£!456

0451
1)452
"453
0454
045!5
041110
0415

AP011111J4U
l.fh04'2
lU!!!04'3
F'l.,011!0454
Ql.,l1!0'''
SXL.•llJ4H
l<Sh1'41!5

04,e

15ee
021rn

11JfS14

01111'
01H
111141
11411J

AHl!llll~U

SR0!!115H

X$1<!!11HfH
ATRUh4
RTA1111JllU
SAMlilllll1H
Olh0Uel

0!011~4'8
RSWgf/1516

111!5u
0;17

1..sw1110511

06llJl!l

lOB!!!dll/J
L.1''1l'l6H

el!JH

e64e
~71112

kl'""

0701
1.1706
0704
k110!5
0707

0103

L.011'!11!!~40

ROt111111792
AD01fJ7H

RCG•ete1

WR JtH11716
WR011107U
WCGll!071!1!5
cH1<•0trn

MTB1112111113

l"H1
0!1121
0023

AXOUilU.

IJ416

$T0!!!0~16

XOA•e~u

TMA!!!l!l~23

0411

TWC•0~1'1

•'002

POP•0lllllJ2

6141

rt003

L.INC116141
TAC!l0~03

PAL.1111

VS.41

2fil11111!1AN.,7:1.

~~I 0

PAGE:

/POP•l2 TAP[ DATA tX£RcISER MAINDEce1a oso1
1111

3145

i'l'Ab.12'

V~41

21il111J4Nc_

·~us
/~OUTlNE

TO DISFl.AY A MESSAGE
/ON TH~ VR1~ OlSPl..AY
J145
3146

011161

uu.

3147
31511J

0U4

3151

!Cl.H

li!52

3i53
3154
3155
:Si!56

:H57

:siU
3161

001SP1

nr·a~

ODTAB!,.•211111lht
4
SAM
nc
:I.

4211!11

SAM

116'7

osc:•:ali'

111JH

'ol

0H'1
1 ~6111
11n
7151
06H

SA&:•i~

TAG•2H0
-- 'ed
0
1.111'
T'L.AG
i.JMF
1.J~P

7621

!SU 7 TO
/TAii.~ ENTRY AOORtSS
/SAM~~! CMANNEI. 4

1SAI/£ XN L.OC 1

CMANN£1,. 0
/DIC QXSPl..AY
ISAMP~'

II.DAO TM£ AoC•
IU ti TME: ENO!
/N01 R£1111£X[CU'fli:
1YU1 EXIT

ITABl.E Or CURRtNT VERSION 0, TMIS
/PROGRAM TO et OIS~l.AVEO
3162
:SU3

3164

Ji65
:5166

3167

4117

OOTABl..o 4117

:St41

3641

l!llH
0HllJ
4122

llliU
HIH

/SPACI:

4U2

/SPAC~

26!51

3110

3111

1'.iHlll

3n3
3114

3641

0HRI

H41
Hill!!

3175

&:H50S

01iH~0

3172

3176

3177

she
4 3..,.,

4117

,117

5177

2651

TAG,

2~!!11

/0
/SfilACE

/ENO 0, TM! MEISAGt

U14!!!

/P0~~12

TAP! DiTA EXERCISER MAiNDECe12•D3DS
3824

~At.1"'

V141

2fl;JAN•11

•30iM
/P0Pe~2

LINK MOOE [RROR

/MANDI.ER
312l24

3025
3026
3027
3030
3031

3032
3033
3034

H35
:!036

3037
3040
3041
311142

3043
3044
3045
3046
3047
30!50

3"51
3&952
3053

3054

0011
7113

)( )('

1~68

SC1,.+H
6111181/J

6 001/J

5945
111128
-'325'
7121
1021!1
0303
7121

S'fC

n20

L.JMP
L.OhU
Hf/J3

PRINTR

1,.J14P

PRlNTR

L.JMP

PFUNTR

AOD

7121
3(;45
67'1

ADD
L.JMP

ROL
ST A+il

1!!243

116111
T&M!I',

1'11111
112£1
02H

"26!

t..iJMP

3j4~

ADO

XS1<•2lll

023'?

LJMP

3"05'6

102flJ

3057

~21'

"31!&9
3061

7121
0212

1.002111
fll212

3063

1121

3fll64

L.JMP

"'6Slll

715E'!

TEMP

sunu
3

BCL.•2111
.,.,.,,

; 11143

3065

AOi+U

7121

u120

3055

31362

TE:l'Hh•2000

L.OA+2lil

312111

SHiii
1~H

sn•Zl!I 1'1
111'&

CRl..F' I

PRlNTR
TEMP
17
T£MP•2
IL.OAO TM£ A,C,

l.0A•20
0~15
LJM~

L IJ'
L.JMP

PR!NTA
PRINTR
l1l

XXR

/IHTM

021~

/PAINT lT
II.CAO THE A,C:,
/WJTH 0212
/PRINT IT

5415

PACI: 41

,,cP~1a y~~~

DAYA EXERCIS£R MAJNDEC~12~o~os

l1J

\1141

i48

/TEST THE DONE 'I.A@ lN a MOD[
~066

5015

3Z67

1i20

nor.

~100

3011

~:llei0

1..lH+20
0U0

3012
30f:5

6151

uu.
1..DAe2fS

3075

"lll!ll Ill
1020
"el00

3076
:S077

6HS

1....IMP

30?0

:rn74

<ir'ilm2fll02)

IOI

1..Ht. T
llJl1Ji!l0
L. l'

O~H

41*• ER 1 ee@

IA ROUTINE TO BUFrER TME MTB BY 3 91..0~KS
31f!Jel

1su

3101
3U2

31'\13
3iei4

::u.05
311116

£~'11

0011
2:1.22

0451
n.1;;;

312l7

:1.lii~l/J

311<5

1101

3111

166el

:uu

0fl.IH
fll941

3112

U14
3115
3116
3117
3120

TS 1GN1 ~ ST H2El
'!'SI GN1 l2l

IT AC
K2ifli03A

/NO COMPl.~MENT !T
/AOD ;s

UH'!'•~

1N ,

!,,.,IMP

1..tu

i'SiGN:;wU01!i

un,

BC0•21!l

7052

f!j

L.JM~

MCCH

1,.JMP
0240

024115

Ki40,

3121
3122
3123

011102
61H6

PRlN'iF1 0 PCP
6046

6fll41

:5124

S32J
6042

60"11
JM!'I

312~

3127

120~
6~41

313i2l

6£'l00

:H26

:H31
3132
3133
3134
3135

1~21Z!

8207
7121

!'61110

6475

1..H'

APO

214!ii1

Mtxn .. +

U4:11

k.ANC

LJM?
9[1..L,

LOA.:.20
0i;fll7

t..JMF'
Ur
L.J~P

l!l!

/Wf'HlNbl. ::S cm
/XOR TSXGN
/ANO

inn

i.01"

060~

nw4

AP0~2~

COM
ADO
Af.'JO

PR!NTR
0
! ~IC:RA.,>'I

/BEYOND TME BLOC~ ?
/NOe ~bl.. OKe DO TM£ NEXT BL.OC~
IVUe F'ORGti H

/~0Pw12

TA;E DATA EXERCISER MAJNDECe13e0301

FAl..:l.2l

:l.1111111

11111111

1uu;u

VU1

2fam,JAN .. n,

g48

11111111
11111111

11
111auei

11111111

1111ha

11111111
11111111

"2~0

uuau

11111111
11111111

11111111

11U111i

11111111
11111111

UU1Ul

0~1il0

1UU1U

111111.U

uuuu
u.uuu uuuu

1U.U1U

1Zi4H

111.11111
111113.il

11111111
:!.1111111

U11UU.
11.111111

11U1111
1UUU1

:l.1111111
11111111

11111111
11111111

1:U1UU

11U11U
U1U 1

11111111

1UU.U1

:l.1111111

11111111
11111111

111
11111111

11111111

111111

000"
0100

011H'0
0600

0111Hl0!21

C121011!00HJ

1:l.:l.1U11

uu.uu

111

UUU.11
11 11:11

11111111

uuuu

11111111
11111111

11111111

11U1~:U

11UU11

1111

11111111

111:1.UU
1U1UU

1UUl,U

11111111

11111111
11111111

1111

1202!

111iiii1

11111111
111H1U

11111111
:l.U.11111

11111
h111U1

11111111
11111111

11111111

1111.1111
11111111

11111111

1:.Sllll

uuuu uuuu

1411l2!
1

11111111
11111111

11111111
11111.111

11111111

:UU.U.11

11111111

111

itlariO
j,'1011!

11111111
11111111

111U.1U
11111111

11111111
11111111

21llll!!0
2101?1

000"0001

Wlill/JHHID

11111111

11UUU

22flll!l
2300

11111111
1111i111

11u.u.u

11UUU

uuuu

11111111

HHU.11

2400

11111111
11111111

UUU11
11111112.

250il

2611121
212'0

11111111
11111111

11111111
i11111U

11111111
1111hU.

1
UU11U

3Q1~0

1:1.111111
11111111

11111111
11111111

111~1111

11111111

U:Ul1U

11111111

;uH

11111111

11U111!'!£J

0e101.i10111

11111111

3200
3300

1001210000
00000000

00000000

000llll?'l000
000~1!111J00

00000000
IH:HHH:J!1.llil0

¥:ii,:i0000"1fl!
l:l2J00fll11H'Hl1

012l llJ!ll 13~00

Zi2111ll1HHH~0

0100
11i111l0

3400
3!U!l0
36fllll!
~700

11111111

1111UU
U1U.1U

U.111111
1U1U11

1U1HU

1UU1U
U1U1U

UUU.11

11111111

uuuu

U.UiU.1
U11U11

UHU

11111111

1
11111111

11111111
11111

11111111
111111U

111:1.U

11111111

U.111111

1111UU.
11111111

u. uuuu.

1U.11111

01Zl!!l210~fiH!J

11111111
11111111
0000001/Jfil
0el01Zll!H31'il0

uuuu

111U

u.u.uu
uuuu.

U.Uilfi!H

1UUU1

uuuu
11111

uuuu
11111111
0011HH!0U
000001'll1l0

PA Gt

TAJE OATA 'XERCISER ~Ai
AC
ADA
AOO

0030
1
00
114121

DA'l'CMK

066'1

DA'nNC
DATl.,UP

0~76

111*11

LOI!'

1Ho

3145

1..0F'WG~

:5162

L.Cll'WR;L

1
1U!5
U57
12:&.2

0221

DATUM
ootsri
DOUB!..

010
04:$6

1.0,iH'Hl

0'51ll

BCL

1540

OJi:I

001!!6

LCH,,

1~H

11CO

1U0

DSC

7140

LI-ii.. 'f

i1H8H

ADM

.aFo
A'i'~
AXO

BELL

BKWRO

04!51
ral14
0~!!11

:s1;s1
01!1~4

91..KTEll..
~H

e1~Xf'f

e2un

C3EX?T
C:si'EMA

C4EX!T
e4TE:MA
euxn

cn:x n
C1TE:MP
CCMK
~ci:oo

CCONi
CCON2
C:CON:S
t=hn'
C:MfCM:

CMf'.!::10
C:M!<

C~l<SUB

enxn
CL~AR

C:l,,R
COM
COMON:l.
00MON2
COMO NJ
C0MON4
COMON5
C0MON6
C:OMON7
COUNT

EX!1

e:xt:s

lilh6

LJMP
LNOP

LOOP!!l1

EXTOCM
E:X'iENC

0n1
liil]i()~

1,,$1<?

0260

L,,SW

0;sm1

02H

2246
1601

F' U'.1..DN
F'l\IAl..T

M4Hl0

11011.1

nvnio

002'1
2627
2!561

:1,66;5

F'l..O
rot:HIRD

1!!124

'CHH>lRCI

0u0
2'?41

151!12
1!lhH
211161
21375

136130

UNTE:R

11131110

UiUNi'

04~56~

MAGT Mil

MASTEfl

MSUMP
MCOH
MCM

0r4u

liJ~H
Ii') 0li1

Rt:lCKGF

1il66
111'2

RhO

0!UJ4

RICOOI'
Ftl:ONEX
RECINlU,
REST AR

mn1

lil~U

:i,1114~

~Jii:l1;

0J17

2020

2122

MPAC
M'fi

INC!'(
INCFU

0'117

0464
1132
0161
>?011

1H~

ROO

04!!12

MOVE

1'?01

1U'1
lllU0

006

1'11
104

IS!'!'
HUI

~ANOOM

RCMK

MC:OMP

MAl,.!l"Y

!!1032

041!6

eih,;

:!.~,:;

2127

MCMK1

0~55

Qj,.I
QNelN

Q!111!:,

2,175

1~54

1426
&llifll'

~CQ

Iii~

s,f!U

MAL}')(

QiH~n

QAO

RANl<!'f

MCMK

111111

R~!<SUS

ROecoN

16'3

RD!
RQSIJB

rne~

0'?06
0~56

0!U;s

0,,,
0iri!4

IOB

K01301

dm2'1A

1(0002

1
1657

1<240
1(4000

2017

K40f2l1
K$'f

LAM

6
01 5
04:1.5
1200

2102
0034

t..DF'

064J
:i.000
111640

2136

l.Ofl'CON

0631

CSTARi

3056
0035

C'fe'.M:l.

0033

C'fe:M2
C'f~MJ

DATADD

2216
221ii17
2235

CRt,.F'

e'!'EM4

1.0,WR~

1.JNC

E:ltTlil

El<H

0 .. 3

0a02

Ur
[)ff2

2U5
2161

0~46

l.D1CON
Ul.i.
1.,0F'RDJ,

IZl~61

NOlllE:X1
NONEX~

04216

~10NE:XT
ONES

0:H4

NON EX~

0~13

2355

SF'A
SFIC

ONUtR

2422

SNS

PAi1

2303
2254

STA

PHERN

~mo

1,50fll
1~ 4lli

TA~!!'. 0

lHFI MA!

Ill

S't'AC:

0031

WRINXl.

s'fe

4ll!til0

1Ul6

S'i'D

r4U

S'i'H

1~4l1J

lillHTE
Wlllt'f!i:N
WSAVl'.

SUB'f1
SUfll'i:i.A

1160
2757
2763

wH;MP
XAC

l.JH

!!!U!!h9

2122

27'6

iilil1

l<OA

XSi<

02H
;,02<4

e412JIZI
C446

7{08W0

TA1i1L£1

i.;003

)()(

TAG

3111

17,~

-)0()(

1133

TE'.MP

1610
:511145
1&21
;1.625

0i2;s

eEROU

a':J'
2335

U~ONt

2~17

i1!£UEV

206

Sl<L

ue
foru1G
t'LAG

TL.AG
'!'MA

TlifN&:N

04;,w

TSiGN
i'S!GN1

31"1

TS'!'

'i'S'i'1
T$TMOFI

TTo;
twe

31 H
2765

2171
0i112

::seu
11!42,?
2n:s

TWOA!.. 'l'
TtHH' l \I
UNE!NSV

1322

WtlG

0,.1115

WCONT1

1H1

uNf T

WCMK

2604
£'1025

:i,241

wCoNT2 1316
~BU
wlH
0022
wo2
0023
wo:s

WOii

0~24

wtxn

1331

WGeON1

1430
134:3
1453

wGf::l·U<

wGe:xn

WCf'H

1~63

WGQNBN

:!,<l511J

WlNSf

1412
i305
1263

WG~ET

W1NS'l'1

27~5

WNE'.X!T
Wil'A'f
WfH'.!
wReKtlfil

1h1
e7eJ4

wRi

1;532
0'106

WR!Dr

1214

\.iRtNE'.X

H43

0fl!U

XXlilAC

011.!IH

lOO<PC

11'111

i!!Ei:UI.. '\'

:i.0

....

•

<I(

II
&
N

...........
>

_,,....
ISi

...

11.

I")

0
Ill
N

....
II

w
Q
z
<

ex:

""'....

fl)

><
w

......

ISi

w
u

w
.....
w

.-f'
Ill
CIL

0
Ill..

.....

....
°'

... .... .....
0

\al
ll.
4111

,.,_

til

CID

w
z
w

(/)I

0
IX

a:
w

(I)

t..I

"IC

..,

,._

(/)

::::>
LaJ

:::>

..,