Digital PDFs

MAINDEC-8E-D3ACN)

December 1971

50 pages

Original

1.4MB

Document:	dec-8e-euzc-d
Order Number:	MAINDEC-8E-D3ACN)
Revision:
Pages:	50
Original Filename:	https://svn.so-much-stuff.com/svn/trunk/pdp8/src/dec/dec-8e-euz/dec-8e-euzc-d.pdf

OCR Text

IDENTIFICATION

PRODUCT

cons:

PRODUCT NAME:
DATE

CREATED:

DEC-BE-Euzc-D
Toe-E

DECTAPE FORMATTER

DECEMBER 7,

1971

MAINTAINERI

DIAGNOSTIC PROGRAMMING GROUP

AUIHoni

B RUC E

H A N5 E N
COPYMGHT©
DIGITAL EQUIPMENT

CORPORANON

/V’7/
COPYRIGHT 1971
DIGITAL EQUIPMENT CORPORATfON

ABSTRACT
TOE-E DEOTAPE PORNATTER
TRACKS ON A OEOTAPE MOUNTED
THE

PROGRAM RECORDS THE
ON THE TU56 DECTAPE

TIMING

ANO MARK

TRANSPORT.

PROGRAM INTERACTS HITH THE OPERATOR VIA THE TELETYPE TO
OBTAIN THE NECESSARY DATA FOR EACH SET OF OECTAPES TO BE
As SOON AS ONE SET OF TAPES Is FORMATTED. THE
FORMATTED.
PROGRAM Ts READY TO FORMAT ANOTHER SET.
THE

THREE FULL PASSES ARE REOUIRED TO COMPLETELY rORMAT EAOH DEcTAPE.
AND UP To THO OEcTAPES MAT BE FORMATTED AT A TIME IUNITS O AND 1
UPON COMPLETION Of A CYCLE.
NITH A TDa-EI TOT CODE or 677X).
NEH TAPES MAv BE MOUNTED AND FORMATTED AS THE LAST. HITH A
MINIMUM OF OPERATOR PROGRAM COMMUNICATION.
ONE TAPE ExcLuOINc
TAPE SETUP TIME. REQUIRES THREE MINUTES FROM START TO PINTSN'.

REQUIREMENTS
EQUIPMENT
POP-OE.

TELETYPE,

TDBIE

(TOT CODE 677x}.

AND

TU56

OECTAPE TRANSPORT}

STORAGE

THIS PROGRAM USES LOCATIONS BOOB-3409.
IN THE LAST MEMORY PAGE.

THE LOADERS MUST BE STORED

PRELIMINARY PROGRAMS
ALL BASIO POP-OE DIAGNOSTIO PROGRAMS AND MAINOEc-OE&OSAIN)
SHOULD HAVE BEEN SUCCESSFULLY RUN.

LOADINO PROCEDURE
LOAD THE

PROORAM INTO PIELO

USING THE STANDARO OINXRT EOAOERZ

STARTINO PROOEOURE'
STARTINO AODRESS

AND

PRESS LOAD
SET SHITOH REGISTER TO Ozzfi
”UNIT" 1: PRINTED ON THE
CLEAR ANO THEN CONTINUE.

ADDRESSI_ NON RRESS
TELETTPE.

MOUNT THE OEOTAPES TO OE MARREO ONTO THE TAPE TRANSPORTS. HITH JUST
ENOUOH TURNS or TAPE ON THE RIOHT HAND REEL or EAcR TRINSPORT TO
MAKE SURE THAT NO THO TAP: UNITS ARE SET TO THE
PROVIDE A ORiP.
SET THE SHITCH ON THE TOO-E To HTH
SAME ONTT NUMBER.
rOR
suI TcH
EAOH TRANSPORT In S: USED. SET THE RRIT: ENABLED-UNITE
TO HRITE ENAOLEO. AND THE RznoTE-ORr-LOOAL SHITOH To REMO

POSITION.
LbsR.

OPERATING PROCEDURE
THE PRINTDUT "UNTTT"
THE PROGRAM AND OPERATOR NOH CONVERSE.
Is ASKING HHIGH OEGTAPE UNITS HILL BE USED.
THE OPERATOR
TYPES ONE OR THO UNIT NUMBERS. CORRESPONDING TO THE DECTAPE
FOR INSTANCE. IF THE
UNITS UPON NHIcH HE HAS MOUNTED TAPES.
OPERATOR HAS MOUNTED TAPES ON UNITS P AND-1. HE HDULD TYPE O 1SPACES ARE IGNOREO. So
(HHERE .
SISNIFIES CARRIAGE RETURN).
IT MAKES NO DIFFERENCE IF THE OPERATOR TYPES SPACES BETHEEN
THE UNIT NUMBERS.
ONLY ONE SPECIFICATION OF A UNIT IS STDNIEIOANT. I. E. TYPINC OOOIII HAS THE SAME EFFECT As TYPING Oi.
ONCE THE OPERATOR HAS SPEDTEIED THE UNITS HE HISHES To USE. THE
PROGRAM TYPES "FORMAT7".
THE OPERATOR RESPONDS BY TYPINO MARK_
OR MARK xxxx..
IF HE TYPES MARK-. THE-PROCRAM ASSUMES 2OI-HOROS
27O2 BLOCKS (STANDARD PDPOC FORMAT).
OTHERHISE xxxx IS ACCEPTED
AS A DECIMAL NUMBER OF HDRDS PER BLOCK AND MUST BE DTVISTBLE
NOTE THAT TYPINO MARK SSA HILL CAUSE THE PROGRAM TO
BY 3.
GENERATE A STANDARD POP-IO FORMAT OECTAPES IIICETOI BLOCKS DE
ODD HORDS. HHIOH IS EOUIVALENT TO IIOEISI BLOCKs OP zOO HORDS
HHERE EACH HORD IS 36 SITS RATHER THAN 12 BITSI.

THE PROGRAM NOH TYPES Pxxxx HORDS. YYYY BLOCKS OKT (YES OR NO)’.Y
xxx: AND YYYY ARE
THIS SERVES As A FINAL CHECK FOR BLOCK COUNT.
OCTAL VALUES REPRESENTING THE PINAL OUTCOME or A EORMUALA SOLVED BY
THE PROGRAM. DETERMINING THE NUMBER OE BLOCKS THAT MAY BE HRITTEN
ON A DECTAPE KNOHING THE NUMBER or HORDS,
Ir A ND
ANSHER IS OTVEN.
OTHERHISE (IF YEST- THE PROCRAM
THE PROGRAM REVERTS TO "FORMATT".
TYPES OUT "SET SHITCH TO HTM". THEN THE OPERATOR
HITS CARRIAGE RETURN ON THE TELETYPE AND THE TAPE ON
FIRST UNIT SPECIFIED BEGINS TO MOVE IF THE SHITDH IS SETZ
,

ALL OF THE TAPES SPEciFIEO HAVE BEEN MARKED. THE PRTNOUT “SET
SHITCH To OFF" APPEARS.
THEN THE OPERATOR RESETS THE HTM
SHITCH TO OEF. AND STRIKES THE RETURN KEY ON THE TELETYPE.
SECOND
NOTE THAT DURING THE SECOND PASS HITH
STARTING THE
PASS.
MULTIPLE DECTAPE UNITS. AS SOON AS ONE TAPE STOPS AND THE NEXT
TAPE STARTS. THE FIRST TAPE Is COMPLETED AND MAY BE REPLACED HTTH A
FRESH TAPE IN PREPARATION PDR RECYCLIND.
ONCE

THE PROGRAM CONTINUES BY ITSELP UNTIL COMPLETED. AT HHTCH TIME
THE "FORMAT" PRINTOUT OCCURS.
TYPING "SAME-T REPEATS THE ENTIRE
PROCES§ HITH THE ORIGINAL OONSTANTS. THE NEH DECTAPES MUST BE MOUNTED
AND READY TO HRITE TIMING AND MARK TRACKS BEFORE A CARRIAGE RETURN
Is HIT ON THE TELETYPE AFTER THE TYPEOUT "SET SHITOH TO HTM".
ALSO. IN RESPONSE TO "DIREOTT". TYPING nRDR-" CAUSES THE PRINTOUT
AND THE LAST 22 SLOOR HuMBERSp
OF THE UNIT NUMBER OF THE
"RDFP" CAUSES THE PRINTDUT OF THE UNIT NUMBER AND THE PTRST 22 BLOCK
NUMBERS! ANO "RESTARTP" RETURNS THE PROGRAM TO "UNITTP
NUMBERS ARE PRINTED As "SOON" HHERE N Is THE UNIT NuMBER

OECTAPE

UNIT

THE
FOLLOW NC ARE SEVERAL EXAMPLES OF SUCCESSFUL OPERATTDN.
ALL OPERATOR
UNDERL NED STATEMENTS ARE PRINTED BY THE PROGRAM.
RESPONSES SHOULD BE FOLLOHED BY A CARRIAGE RETURN.
A.

CREATE A STANDARD PDPHS

5;
CA 1

1
T

MARK

R05.

TAPE

ON UNIT 1

27!: BLOCKS.

OK?

(YES on NO)

YES
SET

SNXTCH

NTM

SET SHITOH‘TEFOEE
EORHATT
““‘""

CREATE

STANDARD POP-1O FORHAT TAPES.

THO

TIME

UNITS

0-1

UNIT? O1
EURFTTT MARK 384

UZSE‘WOROS. 1102 BLOCKS

4.3

ERRORS

4.3.1

ERRORS TYPED
OR "FORMAT?"

4.3-2

ERROR

"UNIT"

MESSAGES

FOR

NOT

ANO

RESPONSE

OKT

"FORMAT" REVERT BACK TO "UNIT?"

MARK XXXX

CHARACTER IN xxxx IS NOT 9&9
xxkx cANNOT BE OIVIOEO EVENLY av,3
THE NUMBER or HOROS PLUS 15_EX€E§DS 7777(3).
THE NUHBER OE BLOCKS OENERATEO av xxxx
A

OEcIHAL
NOT OIVISIBLE BY
TOO HANY HOROS
TOO MANY BLOCKS

ExcEEOS

4.3.3

(YES OR NOT

7777

ERROR HESSAGES VOR RESPONSE TO "SET SHITOH TO
1.

SETUP?

,;;I

HTHWZ

iNDICATES AN ERROR IN THE OEOTARE SETUE
(SEE SECTION ‘11 FOR OEGTARE SETUPT
ONE or THE UNITS SPECIFIED IS IN
HRITE LOGK POSITION.NOT SELECTED.
OR THE HRITE ELIE-TLOP IS UNABLE TO
BE SET.OR THERE HAY BE A TIMING ERROR.
(AFTER MESSAGE REVERT BACK TO "UNIT"
.

2; SHITOH NOT SET To HTH OR SINGLE LINE FLAG PAILEB TO SET
SET SHITOH TO HTN.
THIS TYPE OUT SAYS THAT EITHER THE SHITcH
ON THE M869 MOOULE IS NOT SET TO THE HTH
POSITION OR THE TIMING GENERATOR P08
HRITTNG THE MARK ANO TIMING TRACKS IS
NOT SETTING THE SINGLE LINE FLAG:
REOOVERYI
Ir THE SHITOH HAS NOT SET TO HTH POSITION
SET THE SHITOH ANO HIT CARRIAOE RETuiN
ON THE TELETYPI.

Ir THE SHITOH HAS SET TO HTH ROSITION
AND THIS TYRE OUT OcGURREO. TRY ZGIIN_.
OR ExAHINE THE TIMING GENERATOR cIRcUIT.
‘.3.4

ERROR MESSAGES FOR HARRINO ANO VERIEYING A TAPE

”)

XXXX

PC
PC
pC
PC
PC

XXXX

MARK TRACK ERROR PHASE Y
BLOCK NUMBER ERROR PHASE
DATA ERROR PHASE Y
CHECKSUM ERROR PHASE Y
TIMING ERROR PHASE Y
WRITE ERROR PHASE Y

XXXX
XXXX
XXXX

XXXX

EOUALS THE PROGRAM COUNTER

XXXX
Y

EQUALS
RECOVERY

THE

PASS

WHICH

HAS

AT
IN.

TIME OF THE FAIKURE;
(SEE SECTION 414)

AN ERROR SHOULD CAUSE DOUBT CONCERNING THE ENTIRE PROOESSA
RESTART MAY BE MADE (EX EPT IN PHASE 0) BY TYPTNO "RETRY-”
O 60 BACK TO PHASE 1. TYPE "RESTARTu" To RETURN TO "UNITY"
RETRY CAUSES THE PROGRAM

ALTHOUGH
A

RHASE
RHASE
PHASE
PHASE
PHASE
PHASE

THE

TTMTNC AND MARK TRAOK FORHARD
READS MARK TRACK REVERSE
HRTTE DATA. FORHARD BLOCK AND REVERSE BLOCK
DISPLAYS BLOCK NUMBERS TN AC REVERSE
READS DATA PORNARD BLOCK AND REVERSE BLOCK
READS REVERSE BLOCK NUMBERS IN REVERSE
HRTTE

ix
2|
3:
4!

MAY

ENTIRE PROGRAM

DETAILS OF OPERATION

RESTARTED

D2BO ANY

NUMBERS PORNARD

AND

NRTTEs

NuMRERS rORNARD

AND

cALcULATES THE CHECKSUM

TIME;

STORACE

AND

THE PROCRAM NRITES TIMINO AND MARK TRACK ON A DECTAPE PORNARD
THEN IT READS THE MARK TRACK TN TN: REVERSE
HTTH HTM SHITCH SET.
THE PROGRAM CHECKS ALL
DIRECTION HTTH THE SNITCH SET TO OPP.
OF THE MARK TRACK ONCE TT is TN SYNC.
(SE: FLOH PICURE i; HHEN
IT FINISHES READTNO TH: MARK TRACK REVERSE. IT BOUNOES OPP THE
TO
END BONE AND STARTS HRITTNO EEROES
THE PTRsT BLOCK MARK.
THE PROORAN TS NON TN SYNC.
THE PROCRAM NON CONTINUES HRTTTNO
FORHARO BLOCK NUMBERS. REVERSE CHECKSUM. DATA. CHEOKSUM. AND REVERSE
HHEN IT SEES THE ENE EONE.
BLOCK NUMBERS rOR THE REST or TAPE.
TT TURNS AROUND AND STARTS OTSPLAYTNC THE REVERSE BLOCK NUMBER
N0N THE
TN THE ACCUMULATOR UNTIL TT HITS THE END EON: AOATN.
TAPE TURNS AROUND AND STARTS READTNC AND COMPARINC ALL PORNARD
BLocK NUMBERS. REVERSE CHECKSUM. ALL DATA. CHECKSUM AND RzVERst
THIS OOMPARTSON TS
BLOCK NUMBERS THAT HAS HRITTEN TN PHASE 2.
THE TAPE TURNS
DONE ON ALL BLOCKS UNTIL THE END zONE Is REACHED.
AROUND TN THE END EONE AND STARTS LOOKING POR REVERSE BLOCK NuMBERS
TNE
AND COMPARING THEM ALL THE HAY OOHN TAPE TO THE END EONE'.
FORMATTING IS NON COMPLETE THE TAPE STOPS. AND "PORMATR TS TYPEO
OUT HAITINC FOR NEH DIREcT ONS.
THE NUMBER OP BLOCK
or HORDS PER BLOCK
THE FORMULA

FRAMES TO BE HRTTTEN

BLOCKS PER TAP!

FUNCTION OF THE NUMBER

t!21208l)/(NH¢15)152

HHERE NH EOUALB THE NUMBER or HOROS TO BE HRITTEN. IS USED 97 THE
PROGRAM TO COMPUTE THE NUMBER Or DLDCKS. BUT I! ADJUSTED BY TH
RROCRAM TO PROVIDE THE STANDARD PDP- O PORMAT OP

IATAIiDT
ISA-BIT) NORDS.

HORDS.

THEORY

Tig-éiz
i29kilisziDT

ANO STANDARD POP-II FORMAT OP
BIIOT BLOOKS.

BLOCKS.

THE

CHEcKSUMs

IS DONE THROUGH AC BITS $..3}
THE POLLDHINC DESCRIPTION Ts HOH THE MARK TRACK Ts
9,
HRITTEN.

THE

HRTTINC OF THE MARK TRACK

AND

HTTH ENOUGH TURNS TO CREATE A PULL:
THE
REOUTREs A SEOUENCE OP THREE DATA NORDS FOR

INSTALL THE TAPE
REVERSE END ZONE
sz PATTERN.
ADAA

OAAO
4464

THE

MARK

TRACK

THE

HORDS

HRTTE

THE

END ZONE SHOULD
ABOVE THREE uoRDs

quTE

THE

RELOH

APPEAR

THREE

(SEE

HORDs

1311011OE1D1

ABOUT 1D FEET
‘096(10) TIMES.

COVER

THE REVERSE

g5555ia>>1

TAPE.

EXPAND CODE 99

THREE HDRDS OF EXPAND CODE SHOULD
EXPAND CODE.
POLLOH EACH BLOCK.

TIMEsl

IMMEDTATEL?

O4D4
DADA
D4D4

IN
D.

THE

MARK

TRACK

THE HOROS

(555525));

APPEAR AS 01D101O1DiD1

PDRHARO BLOCK MARK AND REVERSE GUARD REDUTRE THREE HORDSZ
O4O4
4654
4D4D

HHTCH APPEAR ON THE MARK TRACK As D1D1ADO11DED :éesziaTTZ
E.

LOOK HlRK. REVERSE CHEcKSUM: REVERSE FINAL; REVERSE
PREFINAL CONSIST 0P SIX PDP-B MEMORY HOROSTHE

Zfllfl

0056
£092
BB‘G
Z656
4009

THESE

HOROs

APPEAR ON THE MARK TRACK As

Duiozofiaiafiziaiuboiazaaz

T10101D1DIOTT
MARK TRACK CODE FOR DATA IS CENERATED Iv
4A4D
O044
ADDD

THREE HORDs APPEAR As 111DDD111DDD (7U?flll)) AND ARE
A§¢1DT TIMES {OR A 129 HDRD BLOCK.
THE PREFiNAL. PINAL. CHECKSUM. AND REVERSE LOCR CONSIST OP
51x POP-a NORDS.
THESE

REPEATEO
5.

£44B

4444
4044

4442
4444
4a44

THESE

Honos

APPEAR

ON THE

MARK TRACK

111a11i1iai1i1ici1iixz11

(73737373<a)r;
H,

THE

GUARD

AND REVERSE BLOCK MARK CONSIST OF THREE HORDS

404%
0449
0404

uHicu APPEAR As 1aiaa1izz1a1 (5145:5)11
GENERATE 2792(5)
TIMES.
19!

EXPAND CODES

BLOCK PATTERNS.

REPEAT

THROUGH H.

276265)

(SE: C.)

THE END ZONE PATTERN CONSTST

THREE WORDS,

04fifl
d0fi¢

ausa
HHICH APPEARS ON THE MARK TRACK As a1aa1aalaa1a i222§c5>11
SEE rxcun: 2 run A
REPEAT THESE 3 HORDS 4ggo¢iaa TXHES.
oxzann or THE HARK TRACK AND DATA TRACKS.

Figure

Reading of

the Mark

Track

Reverse

Read

Séngle
Line

every

in
6

‘lines

Flags

Erom her

yes

Start

Read in
3 lines

Standard

End

of readr

ing

MT turn

and

start

writing

Error

Exit

Typeout

type

ret

Type
Direct

Figure

Mark

Track

and

Data

Track

Forward

Reverse

Final

Checksum

Reverse

Reverse
B

Number

Expand

/TD&E

DECTAPE FORMATTER

PAL10

V141

3-DEC-71

ITDBE DECTAPE FORHATTER COPYRIGHT
/D!GIT1L EQUIPMENT CORP.
IMAYNARD . MASS

aaia

E6 59

PAGE

1971

X1110

aai:

X2l11

ISYHBOL TABLE AUGHENTATION

'0000
0001
0002
0003
0004
0005

6771
6772

SUSS-6771
5037:6772

6773
6774
6775
6776
6777

5080-6773

0000
0000

5001
0002

JHP

SOLO-6774
SOLD-6775
SDRCI6776
SOHO-6777

IHLT PROGRAM cor

0003
0000
0000

ajsc»
7HORRING LOCATIONS
020

0020

0020
0021
0022
0023
002‘
0025
aaze

aaaa
aaaa
aaaa
aaaa
aaaa
aaaa

a027

aaaa
aaaa
aaaa
aaaa
aaaa

0030

0031
0032
0033

aaaa

aaaa
aaaa
vaaaa
aaaa
aaaa
aaaa
aLocxs. aaaa
aaaa
UTA.

u1.

H2.
us.
H4.
us.
we.

‘

PHASE.

aaaa
0000

VARI.

aaaa
aaaa

TOTAL:
VARZ.

2co~sTiNTs
0034
0035
0036

aai7

0037

aaa7

aa7a

aa?7

caa19.
caa7a.
caa7i.
Caaai.

aai7
aava
aa77
aaa7

INTERRufiftn sensuou

VOPHATTER

1971

3640

3700

c2722

2703

3341
2242
2M4}
2344

@293
0201
2269
9261
2270
f271
0277
1620
768%
77Zfl
7714
7761
@215
@313
@212
7776
7775
7772
7771
7764
7634
02‘0

c263.
C231.
Czéfi.
c231.
c272.

3273
7221
2262
2261
2275
2271
2277

3245
3J46
3W4?
3950
4&51
3352
2253
@554
2655
2056
JZS7
0660
2661
$062
2U63
$664
2665
azéé

c271.
c277.
C1626
c7722

1622

C77fifll

C7715
c7761

CRCOD D
LEYK,
LFCDD
M2,
M3:
H67
M77
H14.

BADD.
Brno

BUFFER-1
BUFFER

2312
1055

GOHP‘Ra

@422

QU1A

2417
0422
7434

GU27
0U3,
0U4I
MESS.

B125
3106
6167
6119
B111
6112
$113
2114

B115
3116
0117
0129
0121
B122
6123
0124

7752

7746

-2
«3
-o
-7

SPCUD

$071
2272
3373
3076
0075
0976
0077
$166
0181
5102
5133
D124

7454

7731
2215
2313
5212

.14
.144
2242

3377

1022
fl336
5222
2262
neon
5272
2322
3122
ooze
7723
7753

7714

"1441

3067
$275

3477

7200
7720

IT:

STX.'

TYOCT
TYPE:

TYPINI
"‘11!
NC:

”TR.

SLRogc.

DITRD
H55,
H257
H36:
H32:
H1”.
M707

H7§7
H51.
M45.
H227

M143:

H52:

PALifl

77035

05c74P£
2125
3126
4127
2139
2131
3132

3133
3134

3135
3136

3137
a14m
5141

3142
2143

FORMATTER
7747

7472
3922
7774

7471
3353
3027
3B56
9577
3133
Ewan
mama
3970
mama
came

V141

PAL1B

{6359

3-Dac-71

PAGE

1-2

~31
.3B6
a
-4

-3z7
SDSOT

ASLNS
CEXPC
BB77

NUDTA
a

REVBLK. a
sacxon
acxon.
CHKSUH.
sauoao.

IYYPE THE CHARACTER IN THE AC ON THE KEYBOIRD PRfoER
3144
9145
a145
u147
@153
a151

mama

RSENd:

TLS
TSP
JHP
TCF
JHP

5146
6042
5544

7PRINT
B152
B153
B154
B155
B156
B157
B169

zaaa

6046
4041

B153

QU-

1-1

RSEND

"7"

ILOAD AND PRINT. ctzia FEAC
lHAIT ron CONFIRMATION
.IENOLESSLY
ICLEAR THE FLAG ANVHZY

ON THE KE?BOARD TYPER

;t1
tor

6002
7303
1B47
4144
5566
1561

CLA
TAD

CLL

JHS

5277‘

astuo

ICtAC)¢ctL)-B
["7”
[TYPE THE CHARACTER

Jug?!
IN

;o1

7n£st4n7
'

70207APE CONTRDL WORDS
B161
3162
B163
B164
B165

1450

0714B”: 1437

B4BB
ZBBB
SBBB
10BB

0754?”:

B166
B167
B170
B171
B172
B173
B174

3155
B724
B657
B613
B637
B702
14BB

BINGO:
BXNCON
SELTiHn ET!"

0725550

3473
2960

0730951 303a
0719204

1259

MARKER. ZMKTK
BLKERRI EBLK
DATEHR: ZDATA
gHKERR. EPAR
DOHARKD STMK

’5)

fifiy

ITDBE

DCCTAPE

FORMATTER

2222

2222
5221

5621
2515

2222

2223
2224
2225
2226
2227
2212
2211
2212
2213
2214
2215
2216
2217
2222
2221
2222
2223
2224
2225
2226
2227
2230
2231
2232
2233
2234
2235
2236

6222
7242
1222
3212
1412
3221

2237
2242
2241
2242
2243
2244
2245

2246
2247
2252
2251
2252

-222

1971

/PAGE

PATCH

MESAcE.

7212

xor
CLA
TAD
DCA
YAD
USA
TAD
RTR
RTR
RTR

4222

JMS

1221
4222
5227
2222
2222
2236

TAD

1221
7212

7212

252227.
TYPECH.

ISET

MESAGE
12
12

[ADO LOCATION
IAUTO INDEX REGISTER
[FETCH FXRST HORD
(SAVE :T

HSRGHT

IROTATE

TYPEgH
HSRGHT
TYPECH
MESA6E45

2
2

asz To YHE RIGHT

ITYPE IT
IGET DATA AGAIN
ITYPE RIcHT HALF

ICONYINUE
[TEMPORARY SToRAcE
[TYPE CHARACTER IN ciA236oi1
A

113 IT END or MEss1557

3N4
JHP

22277

AND

5412
1253
7522

C(ACTn-1

CMA

NSRDNT

JHS
JHP

7452

TAD
SMA

IVES: ExxT
ISUBTRACT 42
I<421

N42

5233

JHP

}63

IND

1254
5246
1261
7442
5242
1255
5246
1262

TAD

2342
MTP

IVES! ADD 322
ITO coozs <42
lSUBTRACT 3
115 IT 2:327
IND
IVES! CODE 43

JHP
TAD
32A

JHP
TAD
JMP

1&3

MTP.

7742
2212

1-1

DLA

M42.
2342.
2212.

.42

342
212

HTP
2245

JHP
JMP

[SUBTRACT a
118 IT 2:207
IND
IYESI CODE 4! Is
ICARRIAG: RETURN 1215)
1422 222 TD OTHERS >42
-

;+3

TAD
TLS
TSP

ILINE-IEED 4212)

2215

J"!

1257

2342

2212
MTP
22

TAD
52A
JMP
TAD

7442
5245
1256
5246
6246
6241
5247
7222
5622

i6i59

3-DEC-71

Vltl

/TYPE CANNED MESSAcEs.;...
IYHANKS 70 DIGITAL_8~18-U
I
JMP
.21

ICONSTANTS
2253
2254
2255

PALiB

TYPECH

[TRANSHIT CHARACTER
IHAIT run THE FLAG
INOT SET YET
ISETI CLEAR c442)
IRITURN

PAGE

1'3

IYDSE DECTAPE FORMATYER
d256
$257

£215

3245

1971

F900

6261
6262
6263
6264

6662
6632
1667
3626

TYPN,

56 -. 59

3-DEC-71

PAGE

1-4

215
245

)RoUTINE HAIIS UNTILL
ISIGNIFIED BY A CR.
6266

Vl‘i

PALIZ

COMPLETE

HAS BEEN ENszED

MESSAGE

10?
KC:
TAD
DCA

[CLEAR Ac. KEYBOARD FLAG
IGET BUFFER ADDRESS
/sYoRE FOR THE CHARACTER STRING

BADD
H1

IREAD AND RESPOND WITH IHE CHARACTER
6265

2626

6266
6267
6276
6271
6272

6631
5266
6636
4144
3426

NTYRTN.

15?

.-1

KRB
JHS

DCA
II?

fiHARACTER

6273

1426

TAD

6274
6275
6276
6277

7641
1666
7656
5266

CIA
TAD
SNA

TAD
ch
TAD

1426

7641
1655
7646
5265

6365
6366
6367
6316
6311

1657

TAD

4144
7366
6662
5666

JHS

SPACE:

H1
.

ll? 6NARADIER

6361
6362
6363
6364

RSEND
H1

32666
CLA
NTYRTN+1

JHP

6366

INORMAL RETURN. INCRENEN? QUEEER_
/NAIT FOR KEYBOARD
IFLAG To RAISE
[GOT rLAc. RESEY 1?. GET CHARACTER
[SEND CHARACTER BACK
ILvo CHARACYER iNID BUFFER AREA

KSF
JHP

an.

IGNORE X7

ICHARACTER INTO INE'AD
/suarnAct.ER6N SPACE coo: ?24Gi
[COMPLETE COMPARISON
/HAS 1? A SPACE?
zvzs: no NOT INcRENENr BUFFER
-

_.-

,££:
;
‘9

EXIT FROM nourxNE
ICHARACTER TO Ac_
/SE7 A: To suaTRAc?_tR t215)
ICOMPLETE conpAntsoN
/NAS II 6R7
INOI INCREHENT aurrER t NAII
-

‘

cacao

52A

61A

JMP

NTYRTN

‘

7CARRIADE RETURN roUND. ExlrerDN ROUTINE

YYPN

/RIIURN TO CALL

ISEND

OLA

ID?
JHP

CLL

zcxve KEYBOARD L}NE 6:26
IEXECUTE LINE FEED.
IEXIT HITH C(ACC) 6 AND chI-6

12666
I

/66N§ARE A STRING of cNARACTERs 1N
770 A EHARADTER STRING AFTER A JMS

"BUFFER"
IN A561!
'

6312
6313
6314
6315
6316
6317

6666

7246

1312
3616

1697
3611

COHPRE.

CLA
7A6
USA
7A0
DOA

CHA
coups:

16
aADD

/cIA61-7777
ISUBYRACT 1 Von ZNOEX>8EG 1
IAUTO INDEX 1 SET 76 66A sz1N6
IAUYO INDEX 2 3:? f6 BUFFER-1
ILOAD x2
_

ITDBE

CECTAPE

FORMATTER

szRO.

FOUND

040

0320

1410

TAD

0321
3322
2323
0324
0325
0326
0327
0330
0331

7041
1411
7640
5332
1410
7440

5321

JHP
15:
JHP

0332
0333
0334

0335

TAD
52A
TAD

1410

x2
CLA
CERR

.-6
r

/ERROR

FOUND.

cERR.

TAD

7640

524

5332
5410

JHP
JHP

DOESN'T COMPARE OR TTEL
RETURN To TNO PLUS TRE

ICHARACTER FROH pRocRAn
/TO SUBTRACT FROM
zcuARACTER 1N BUFFER
ICOMPARE?
lNOIRESYNC FDR NON COMPARE EXIT
IYESI CHECK FOR 5000 EXTT
IXF 0. EXIT GOOD,
IND! TEST NEXT CHALCTER
141 TO x11TOTAL 2 FROM TRE 0)
1*: 70 X1: EXIT

52A

2010
5410

ONE

OK.

{6i59

360Ec.71

ONE PLUS
x1

TILL

xi.

JMP

v141

PAL10

CHARAcTERs

ICOMPARE
IA

1971

x1
x1

AND EXXT N0 COMPARE

RESYNC

ICHARACTER FROM PROGRAM
IIS THIS EXIT KEY? (0000)
INOI GET NEXT
IYESV EXIT. NOT COMPARE

OLA

1-2
I

)TYP; qNE FOUR CHARACTER OCTAL WORD GIVEN TO TEE
7ROUTINE VIA ClACC).
3336
0337
0340
0341
0342
0343
0344

0345
0346
0347
0350
0351
0352
0353
0354
0355
0356
0357
0360
0361
0362
0363
0364
0365
0366
0367
0370
0371
0372
0373

B803

TYCT,

3376

1376
7012
7012

7012
3373
1373

0037
1377
3372
1373
7006
7004
0040

TAD

C6060
TYCI;+1

TU1
~

l6 BITS RIGHT
.

TYCI1¢2

TYcT§+2
00007
_

TYcT162

RAL
AND

1376
0037

1377
3373

0000
0000

ISTORE HORD GIVEN
ITO CtAcca AGAIN

TH1

/5AvE ROTATED VAtuz. 151 Two
ITO CTACC) AGAIN
IISOLATE SEODND OHARAOTER
ICONVERT TD Ascll
ISTORE As FleT PARTXAL 2
/ROTATEO VALUE STORED Aaov:
<

'RTL

3372

3373
4502

004
TAD
RTR
RTR
RTR
00A
TAD
AND
004
TAD

1372

1376
7006
7004
~0040
1373

C(ACC)IE ON EXXT

I3 BITS LErT
[ISOLATE FIRST cHARAcTER
ICONVERT 131 To A501!
115T AND 2ND CHARACTERS READY
IOHIGIDNAL HORD
r/ISOLATE 4TH OHARAOTER
ICONVERT>4 TH To A601:
ISTORE 4TH FOR A MOMENT
.

c0700

TAD
DOA

TYCT141

TAD
AND
TAD
004
TAO

TH1

TYCT1¢1
.

c0007

6699!.'

TYcT142
TN1

IDRIGIONAL HORD

RTL

TTOT1.

RAL
AND
TAD
DOA
JHS
0
0

00700

TTOT1+2
TYcT162
1

TYPE

IPOSTTIDN 2T 3RD CHARACTER
IISDLATE 3RD CHARACTER
ICONVERT TO A6011

IOONVERSXON COMPLETEITYPE THE rOUR OHARAOTIRO
/T!RST 2
/s:ODND 2

PAGE

1.5

z~<\

/795E

DECTAPE
3374
2375

3376
3377

FORMATYER

PALlZ

1971

393%

5736

JMP

YYCY

ISOME

CONSTANTS

223%

7H1;

6265

6069

C6365:

6062

@468

646$

FOR

THE

IVARXOUS ERROR MESSAGES
/"NOT

3450
B461
6402
2453
2464
z4z5
5406

54E7

4522

011

1617

DECIHAL"

JMS I
1617
244a
2405

2440

@455

D311
1501

9311
1531
1409
5247

TYPE

INO
IT
[DE
ICI
IHA

14am

JMP

DUX

)"TO MANY WORDS"
3416
3411
3412
$413
6414
6415
6416
B417
B422
B421

4502
2417
1745
1561
1631

02:

4927

1722
6423
000%
5247

JMS I
2417
1745
1501
1631
4027
1722
6423
6900

JHP

TYPE

710

/0_

[MA
[NY
/ u
IOR
IDS
lea
aux

7"TO MINY BLOCKS"
0422
B423
5424
B425
6426
B427
6436
B431
G432
6433

4562

6434

4592

03.

2417
174a
1561
1631

174a

4692
1417

4662

INY
/ a

1417

1L9

0440
$441
D442

1631

6313

0313
2366
5247

ISB

JMP

04:

aux

fixvxsxéL: BY 3"
1M3

1617

2440
B411

2449
6411
2611

2214

(CK

2366

1617

2611
2311

70‘
[H5

1561

7"Nof
i435
9436
B437

JMS x TYPE
2417
770

2311
D214

TyPE

(:0

$0:

(v!
(S!

IBL

V141

3-DEC-71

IKILL

KEY

IEXXY

F'ROM ROUTINE

ROUTINE

“ 59

PAGE 1-6

/YDSE

DECTAPE
2443

3444
3445
3446
Z447

$459
3451
3452
3453

FOGMATTER

P‘Lifl

1971

2542

@540

2231
4063
Zflzfi
4532
4345
290%
5653
1D61

6231
4663

JHS

3-DEC-71

[BY
3

0000

QUX.

V141

[BE

TYPE

4345
BOOB

lCR‘LF

JMP I
INIT

4‘1

IENO

ITHE CODING BELOW CREATES THE BLOCK NUMBER
/CONVERSION PRIOR TO THE TAPE ”RITE.
3454

3632

3455
D456
D457
D469

3323
7102
1023
7012

6651
3366

D471

D472
D473
D474

5475
0476
@477
@500
6561
D552
D563
D504
2505

1B23

7046
7flfl4
6646
3357
1D23

2335

3313
1023
7346
7666
6637
1366

BOSE
7777
7700
2600
0299
@030

D515
D516
D517
2529
D521
@522

7202
1322

SODI
5721
lflflfl
7452

C7069
v1
H4

RTL

c3765V2
H4

RTR
_
‘

60007
v1

TAD

JHP
V1!
V2:

60070
v3

HQV
RTL

TAD
TAD

1313
5654

55B7
9516
0511
B512
0513
$514

RTR

RTL
AND

1367

OBOE

CHA
RAR
AND
DDA
TAD
CHA

7016

ISAVE HDRD

RAL
AND
DCA
TAD

7652

5566

DCA
cLL
TAD
DMA
RTR
AND
DcA
TAD
CHA

7352

6461

2462
@463
D464
2465
D466

D467
D47D

MES:

v2
v3
ME:

.64
1
.41

DDDD
DDDD~

7777
V3:

PATCH.

77am
DID!
DDDD
DDDD

cLA
TAD
DDA

JHP
sTART

HLT

‘

»4 o -. “I o

PAGE 1-7

/TDBE

DECTAPE

6666
6661
6662
6663
6664
6665
6666
6667
6616
6611
6612

6613
6614
6615
6616

6617
6626
6621
6622
2623
6624
6625
6626
6627
6636
6631
6632
6633

6634
663!
6636

FORHATTER

corvnxcnv

6666

4666

6666
7266
1412
6773
5263
6775
6772
7416
4567
7266
5666

STALL.

6666

1971

P4L16

6
CLA
TAD x 12
$656
JMP .-1
SDLD
5657
SKP

JMS

Yo a: NRITYEN
INAIT FOR GUADLINE FEAG
/NORD

ILOAD DAYA REG!STERS
[CHECK

FOR

TIMING

ITIMING ERROR

SELTIH

CLA

JMP x

37416

ISO

GET

6666

IWAIT TILL WORD COUNT REGISTER GOES TO ZERO
IBLOCK NUMBER ERROR
6
ZBLK.

7266

6L4
TAD
snLc
JMS
2663
4666
6L4
TAD

1627
6774
4562

2663
4666

7246

1213
4561
4562

JHS
JHS

-7

DTA

6214
1763
1346
1625
1562
6522
4666
5344

TYPE
_

II:
IEND

664
EBKK
TYQCT
TYPE

[DOUBLE SPACE
[BL
166
[K
INU
[H9

1346

1625
1562
6522
4666
JHP

6651
6652
6653
6654

6655

20‘714

IER
IEND
zcon

6L4

1627

TAD

6774
4562
2663
4666

SDLC

7246
1237
4561
4562
4646
6461
2461
4666

JHS

‘

DTA
_,

2663
4666
6L4
TAD

663
JHS
4646
6461
2461
4666

[STOP MOVEMENT or $45:
X

4646
6214
1763

4646

6666
7266

26666

IDATA canons
6637
6646
6641
6642
0643
6644
6645
6646
6647
6656

i6i59

3-DEC-71

V141

[STOP THE TAPE

TYPE

I
1

cn4_,
26414
TYocx
TYPE
/64
ITA
IEND

PAGE

1-3

/TSBE

DECTAPE
2656

FORMAYTER

copYfichT

IMARK
339%

3660
3661
2662
3663
3664

722%

2665
3666
2667
2676
3671
2672
2673
2674
9675
2676
3677
2790
@721

ZHKTKn

6774

4522
2223
4222
7242
1257

3-DEc-71

ZCOM

TRACK ERROR
2

CLA
TAD
SDLC
JMS

1%27

V141

PALIB

JMP

5344

2657

1971

DYA

/STOP THE TAPE
I

TYPE

[PC
IEND

2203
4fl6fl
CLA
YAD

JMS
JHS

CHA
ZHKTK

TYOCT
YYPE

4521
4502
4242
1501
2213

4242
1521
2213

/MA
IRK

4024

2291
$313
4602
5344

2261
2313
4260
JMP

IRA
/CK
l 6
ZCOH

IPARiTY ERROR
2722
2723
2724
2725
2726
2727
2712
2711
2712
2713

2714
2715
2716
2717
2722
2721
2722
2723

2222
7222
1227
6774
4522
2223
4222
7242
1322
4521
4522
4222
2312
2523
1323
2515
4222
5344

2212.

CLA
TAD

SDLC
JMS
2223

UTA

ISTOP THE TAPE
:

TYPE
1

CH;

722
ZEAR
TYOCT
JMS
:
JHS x TYPE
/’”

4242
2312
2523
1323
2515
4222
JHP

/CH
1::

xxs
IUH
’2
Icon

772MiNs ERROR
2724
2725
0726
2727
2732
2731
2732

2222
7222
1227
6774
4522
2223
4222

IPc
[END

4222
CLA

zrtu.

CLA
TAD
sDLc
JH:
222:
4222

DTA
_

7Y2:

/SYoP THE TAPE
‘

ibiS§

PAGE

1-9

7TosE

DECTAPE FORMATTEP
5733
3734
5735
5735
3737
5745
5741
5742
5743

5744
5745
5745
5747
5755
5751
5752
5753

5754
5755
5755
5757
5755
5751
5752

5753

COPYPIGHT 1971

7245

CLA

1324

2411

TAD
JHS
JHS
4040
2411

1557
4555

4555

4551
4552
404$

1535
1363
3355
4552
5522
2217
2245
2515
5123
5545
4565
4543
5555

5762
2725
4555

I
I

7Tx

IN!
7N5
7 5

"ERROR

PHASE x"

2555.

TAD

5522
2217

PHASE
PFORM
TFORH
TYPE
IER
755

2245

2515
5123
5545
4545
4543
5555.

7PH
IAS
7E
7 x

TAD
USA

YFORM.

PFORN.

PAGE

TYDCT
TYPE

7TYPE

JMS

TsisP

3-DEc-71

cHA
ZTIM

1511
1557

1511

V141

PAL15

7HHAT PHASE or 5PEPAT15N
IHAS THE MACHINE TN
7HHEN ERROR OCCURED

IcnoLP

JMP
I
RETRY
4565

7EN§
.41

7HERE aTARTs TRIS PROGRAM.

IT HILL ASK THE
ASK HIM P5P
7A DIRECTTDN 5N NHAT T5 55 HITH THE DRIVES.

75PEPAToa

FOR

DRIVE NUMDERS. THEN

7THE sEnuENCE 75R MAPKTNG A TAPE HOULD APPEAR 133

7UN1TT

(5 OR

1 OR B i)

7PDRMATT (MARK 1215)
72277 50555. 5254 BLOCKS.OK7
«_

YES on N5

7(YESI

7THAT DATA IN PARENTHESIS IS TYPED BY THE 5PERATbP

7TH: DOESN’T TYPE THE PAPENTHES:S)

717 HE HAD ANsuEPEfi N5. "FORMAT?" HOULD 5E TYPED DDT’
71P TH: DRIVE uAs WRONG. HE 55515 TYPE REsTAR
71r HE HA5 TYPED "HARK" IN RESPONSE T5 wronnA 7w
7TAPE 55515 5: NARR25 HTTN THE STANDARD PnPus 555
71? HE HAD TYPED "MARK 354" THE TAPE NOULD
7a: MARKED uxTu THE sTANDAnD PDP-15 coNrgcunATIDN
7N5TE| THE 5555 AME BLOCK NUMBERS ARE TYPEB IN ocTXL
71? A MISTAKE occuns ON THE OPER570RS‘PAR?
PEEERANCE
7T5 BLOCK 4 wonn SIZE) HE HILL 5: TOLD Aaou

z“
IGURAT15N.

HZTH

1-15

xTaaE

CECT1PE

r0=MATTER

1929

1971

1921

1992

i993
1994
1995

1993

1997

4592
4543
4399

START.

4592
2513
1124
7749
9999

TYQU.

ran

JMS

FOR

JMS
TAD
IAC
994
99A
99A
TAD
CIA
TAD
SNA

1955
7941
1479
7459
5244

1917

1929
1921
1922
1923

{924

1925

1923
1927
1939
1931
1932
1933

1943
7941
1479
7719
5293
1944
7949
1479

7799
5293

1937

7912
9951
4347
2979

1941

£942
i943

i044

1479

5213

7260

TYGU
BER
97999
REPEAT
era
CRCHK

ITSOLATE OTA
/co CHECK ran REPEATED pTA
IINCREHENT erur aur;_RTn;
zco LOOK AT NEXT CHAR.

BFR

,,_

oxcn

CRFLAG
c239

BFR
CLA

Tvou
9231

BFR

cLA

JMP

an:
IS!
JMP

ITNTTTALIEE POINTER iBPR)_,
ItBADD-BUFFER-i. so BUMP THE AC)
[To START or INPUT aorfEé
IINITIALIZE DTA cOUNTER T079

’

JHP
TAD

T49
RTR
AND

/GET NUMBERS

ICLEAR FLAG so an NoT_AcéE§TiaLE
/cET cooc FOR CAR. RETN
INEGATE IT
ISEE xr NEXT cHAR. IN
IBUFFER 1s CAR. RETNL
IVES: SEE IF 9.92 LEGAL HEPE
IND! so c'.R, :5 LEGAL Now
ISEE 1F 9 XS LEss THKN
IASCII 9 4269:
ISUBTRACT BUFFER DAT]
I15 11’ 1.235 mm A3“ 92
/vEs: TELL OUTson uoRLo
INC! SEE lP GREATER THAN
/A59 1: 1 I261)
ISUBYRACT aurrER DATI
/GREATER THAN Asst! 77
/YESl TELL OUTSIfiE uoRLn
IND: ACCEPT BUFFER

CRFLAB
cacao

SPA

CMA
TAD
SHA

TYPIN
BADD
BFR
DCTR

TAD
91A
TAD

/"UNIT?"

DCA

vALcNK.

TYPE

/IT

JMP

3346

1934
1935
1933

1949

cRCHK.

/SET UP TYPER

/LE4EN9

/?
IEND

1937

3346

1-11

ICR4LF

7749
9999

4593

1913

PAGE

DECTAPE NUMBERS To a:

TYPE

/UN

1911

1915

THE

2516
1124

1919

7991
3979
3374

4543
4399

/WAIT

1912
1913
1914

Taiso

3-9Ec-71

.1999

xMAKE A CALL
/HORKED.
1999

V141

2AL19

ITHIS SECTION CHECKS TO SEE IF THERE HAS BEEN 3N?
7VALTD INPUT ONCE A CARRIAGE RETURN IS SEEN
CLA
[CLEAR AC
OKCR.

ANn

sToRE 9

/YDBE

RAL15

V141

1045

1346

TAD

ERFLAE

/LOAD CR FLAG!

1646

765%

SNA

1347
1fl50
1351

5230

JMP

CLA
START

1374
1376
3375
7E46
3775
723%
1376
3375
4745

TAD
TAD
DCA
CHA
DCA

OECTAPE

1052

1053

1554
1055
1656

1357
1flbfl

FOQHATTER

INITiA

1971

ucTR
OBUFAD
DBUFPT
DBUFPT

DBUFAD
DBUFPT
GETDTA

1551

4552

1562

1E66

$617
2215
5124
7745
5555

@617
2215
0124
774B
@006

1557

4553

1575

4471

JHS X
J"! I
B315
23B1
$322
5313

1553

1554

1855

1a71

1572

1573
1574

$575
1076

1677

1155

5315
5351

5322

5313
5555
5351
5755
1255

JMS

MEANS NO

TYPE

[MESSAGE OUT
IFD
IR”
[AT

0909

JMP
JMP I
MARK

1153

1154
1155

1155
1157

1115

JHS

4471
5322
5554
5322

IEND
TYPIN
COMPAR

IHAIT FOR A REPLY
70:0 HE YYPE "MARK"?

in
IA

r‘(\

2K
(END
5‘3

l‘i

ITO "ARK A TAPE

JHP
JHP

5311
5715

COHRAR
In
In
7R

B322
0394
0322
flflflfl

5555

5‘3

111
ITYPE BLOCKS

RDR

2577

IF HE TYPID "R67" (READ AND TYPE FIRS? 12
7BLOCK NUHBERS FORulfibi}
/SEE

1111

(471

JHS 1 EOHPIR

1112

6322
B354
5306
0000

0322
5554
5355

5555

5321
5725

JHP
JHP

1113
1114

1115
1115
1117

1s SET To STKRT

(Riga ANn TYPE FTRST {2

i152

1-12

ICOHPLEHENT THE Ac ANQ.
IYERHINATE DTA LIST HTTH 7777
ICLEAR Ac Ir com: THRU LbC IT
/AND RESET LIST POINTER
/TO START or LIST
/55 GET A DTA NUMBER

75:: T? HE TYPED "RDR"
)BLOEK NUMBERS TN REVERSE).
1151

PAGE

GOOD

/5T No VALID INPUT! RESTART
INOT 5: so HAVE VALxé INRuT
/CALCULATE END or 67A LIST +1
ISTORE IT IN BUFFER POINTER. THEN

IXNFORH THE OPERATOR THAT THE PROGRAM
/7YPE "FORMAT" AND HAIT EOR THE REPLY

YNIT.

CLA
TAD
DCA

JMS

{5359

3-DEC-71

75
IF

.*3

2+1

/T08E

:ECTAPE
1122

FOQMATTER

PAL1O

1971

RDFA

2622

ISEE

/TYPE

TYPED

)USING THE SAME

”SAME"

1121

4471

1122
1123
1124

2323

0323

@311
$315

0301
0315
@335
@000

IA
IN
/z

JMP

;.3

JHP I
SNCHK

.+1

1125
1126

1127
113a
1131

3365
2636

5332
5731
325%
ISEE

1132
1133

1134
1135
1136
1137

114D
1131
1142
1143
i144
1145
i143

4471

JHS
O322
.2335
2323
m324
3331
O322
@324
OOOO

2323
$324

3321
2322
7324
Dana
4152
5229
3133
BBDB

TAPE

ITO MARK

BEFORE

"RESTART"

COMPAR
IR

/E
/S

IT
IA
IR

iI
/O

JMS
JHP
CETOTA.
CRFLAO.

BEFORE).

COMPAR

VYPED

2322
m30s

OU
_

START

NUDIA
D

IMUSI BE NONSENSE
/$TART ALL OVER
IPOINTER TO ROUTINE ?O SUITCN UNITS
/=z. OR NO GOOD: NOT O. CR 15 OK

ISUBROUTXNE To CHECK FOR REPEATED DTA NUMBERS
# To COMPARE To LIST IS IN Ac ON ENTRT4£TRIS
[ROUTINE STORES THE OTA A IF IT Is NEH AND IGNORES
717 IT IS NOT-CALL BY JHS REPEAT HITH DTA 0 IN AC
/DTA

1147

1153

1151
i152

1153
1154

1155
1156
i157
i160

1131
1132

1133

OOOO
3377
1376
3375
1374
704a
3373
2373
5364

REPEAT.

DNUM

DBUFAD

DBUFPT
DCTR

COMCTR
COMCTR

1377

ISZ
JMP
TAO
DCA

3175
2374
5747

DCA
TAD
OCA
TAO
CHA
DCA

OOMCRK.

Is:
JHP

DOCOMP
DNUM
I
I

DBUFPT
DCTR

REPEAT

ITEM STORAGE rOn NEH DIA g.
/INITIAL:2£ POINTER IOBUEPT)
ITO START_OF DTA LIsf
ILOAD NUH. OF DTAs STORED
ICOHPLEMENT IT
[STORE IN COMPARE COUNTEO
IDONE HITH ALL COHPARES?
INOI so no COMPARE
xvzs: STORE NEH DTZN
/AT END or LIST
IINCR. a or DTAs STORED
IRETURN
_

7THIs SECTION DOES THE ACTUAL COMPARISON BETNEEN
ITHE D?A# PASSED To THE ROUTXNE AND A NUMBER ON THE LIST

i164
i165
1136

1775
7O41
1377

OOCONP.

TAD

CIA
TAD

PACE

BLOCKS

{MEANING MARK

CONSTANTS

{3i59

3-DEc-71

v1¢1

DBUFPT
DNUM

/GET NEXT DTA NUMBER FROM LIST
/NECATE IT
/ADD IN OTA NUMBER Pissza

1-13

/IO&E

DECTAPE
1157
1172
1171
1172

FORMATTER

7652
5747
2375
5356

1971

SNA

JHP
152

JMP

isi59

PAL12

V141

CLA

IARE

REPEAT
DBUFPT
concnx

IYESI RETURN
/NOI INcRENENT LIST pDINTER
ISEE IF DONE ALL COMPARES

3nDEC-71
THEY

THE

PAGE

1-14

SAME?
_

I
.

1173
1174
1175
1176
1177

2222
2222
2222
3162
2222

COHCTR.
OCIR.
oeurpr.
usurAO.
uNun.

/COUNTER FDR D or LIST COMPARISONS To BE DONE
ICOUNTER FOR A or DIAS IN LIST
/POINTzR To CURRENT POSITION IN OTA LIST

2
2

_‘__

DIAsuF

xsrART

OTA

L157

Nun.
ITEM STORAGE FOR OTA

/
/

PAUSE
1222

~1222

INARR HAS TYPED

1N1 IF H1-1 Is NOT A "Kn.AsspR: THAT
NuHBER HAs TYPED IN. AND VERIFY THIS. Ir y1;1 Is
/A "K", ASSUME STANDARD FORMAT.IH1ILASY ENTRV INTO THE
/A

1222

1566

1221

3324

1222

3fl31

1223

72lfl

$224

1826
3025

MARK.

Since

TAD

H5
TOTAL

DCA
22A

BUFFER)

IADDRESS OF FIRST BINARY
ICONSTANT roa ch TO BIN_'
IHILL BE BINARY EGUIVILANT

isAv: ecx1) FOR DECREHENT YHROUOH BUFFER

1225

ONc.

OLA
TAD
22A

CMA

H1
H1

IDECREMENT BUFFER ADDRESS
/AODRESS BY 1
[Hi-SHEEP ADDRESS

/LOOK FOR END or PROCESSING BY LOOKING FOR A "in

1226

1056

TAD

LETK

1227

7041

CIA
TAD

IN BUFFER

[LETTER ASOII "K”
[SuBTRACT FROM CHARAETzR
IIN Burrcn
IEOUALT
IYZSI SEE IF OIvlslaLE BY 3
_

1212
1211

1212

1620
7653
5244

OLA
DIV3

SNA

JMP

7VERir7 THIS CHARAOTER As BEING or DEOIMAL ORIGIN
£21:

1243

TAD

1214

7241

CIA
TAD
SPA

JHP

1215

1422

1222

7712
5473
124a
7242
1422

1223

7722

SHA

1224

5473

JHP

$216

1217
1222
1221

€260
H1

DLA

TAD

2u1
2271

CHI

TAD

I
I

H1
CLA
ou1

/AscII FOR 2
110 SE! Ir CHARACTER
1:8 LESS THAN 262
Its 111
IYESB NOT DEDINAL CHARACTER
IASCII ran 9
/72 5:: Ir GREATER THAN
/9
IIs ITT
[NOT A DEDIHAL-OHARAETIR
H

-,_,-

.“

Is DECIRAL. NON CONVERT IT To DINAR?
gnzngngzg POSITION or cHARAcI:R IN BUFFER RA? 2:

7CHARA§IER

/12.122.1222.

:11,

/736E

DECTAPE

1225
1226
1227
123%

FORMATTER

1971

1420

TAD

0054

AND
SNA
JMP

7450
5242
/NOT

SET

PAL10

c0017

7141

CLL

CIA

3023
1424

DCA

SZL
JHP
DCA
ISZ
JMP

5474

3031
2023
5235

1242
1243

2024

IBS:

5223

/LAST

IIF

1244
1245
1246
1247

1250
1251
1252
1253

1254
i255
1255
1257
1250

1261
1252
i263

1031
7450
1042
1034
3031
3032
1031
7100
1061
2032
7440
7420
7410
5253
7040
5476

TOTAL
I

ICHECK ON TO MANY WORDS
ITO MANY WORDS CALLED FOR
IKEEP RUNNING SUM

OUZ

TOTAL

ILAST ADDITIONI
IND: ADD AGAIN

.-6
FOR

IS?

JMP

ONE

/NUMBER OF ADDITIONS
ITO NEGATIVE FOR 152
IBINARY POSITION IO C(ACC)
/ADD TO PRESENT TOTAL

”5

CHARACTER

NOT

DIvs.

ADDITION

/FINAL

NORMAL

THIS

POSITION COMPLETED
INEXT POSITION
/00 NEXT CHARACTER

COMPLETED.
INPUT

TOTAL

TAD
SNA
TAD
TAO
DOA
DCA
TAD
CLL
TAD

Ts:

VAR1

SEE

DIVISIBLE BY 3

IGET TOTAL NDRDS
xxr TOTAL 0. NDRMAu INPUT
I129 OCT. THIS TEST REDUNDANT
IADO CONSTANT 15 To TDTAE
IFOR FUTURE CONSIDERATIONS,
[3 DF WORDS/3 FDR MARK TRAcK HRITING
IRESTORE IN THE ADD
ITO DIVIDE BY 3. LINK KEEPS DVERFLDu
/SUBTRACT 3
ION EACH DIVISION. KEEP RUNNING SUM
IIr A0 a 0.ND REHAINDER_,V
INHEN LINc GOES TD 0. DIVISIDN ENDED
INDN SEE IF IT DIVIDEO EVENLY
ISUBTRACT 3 MORE
IIP 0.0K. OTHERNISE ERROR
INOT DIVISIBLE BY 3
,

:201
00017

ToTAL
VAR1

TDTAt

;-e
cLA
I

004

)CDRRECT "VAR1" I THE NUMBER OF NDRDS/S)
IAOOED JUST ABOVE AND AN INHERANT 42 DUE
ICONFIEURATION TD BE NRITTEN.

1264
1255
i266

1267

1063

TAD

1032

TAD
CIA
BOA

VAR1

7941
3032

VAR1

SZA

SNL
SKP
JMP
szA
JHP

FOR
To

THE

415

HARK TRACK

[SUBTRACT 7 FROM PRDNY SETUP
IGIVING THE NUMBER of TIMES
ITO BE USED LATER IN_A :52
IDATA MARK HILL BE NRTTTEN

iCOMPUTE A VALUE FOR ToTAL NUMBER or BLOCKS
7RECDRO sIzE o 15 INTO 636160 DcT;
i270

1653

TAD

PAGE

CONVERSION LOOP

1231

TAD
TAD

i6359

3-DEC-71

IBS

1232
1233
1234
1235
1236
1237
124%
1241

1031
7430

V141

/ISDLAYE THE NUMBER
IFOR PROPER CONVERSION
/IF 3. No BINARY CDNVERsIDN NEEDED
[YESI 0: INCREMENT BINARY CONVERSION

C7714

[EXTENDED 64 VALUE:

SETS A642

1-15

r-Vx

/TDBE

DECTAPE

1271
1272
1273
1274
1275
1276
1277

1320
1301
1332
1323
1304

1305
1306
1357

1310

FORMATTER

3020

DCA

4755

JHS

1050
7100
1031
2026
7410
5475
7420
5275
2020
5274
7300
1026
7040
3033

TAD
CLL
TAD

710R3N0

ISZ
SKP
JHP
SNL
JMP
XSZ
JMP
CLA
TAD

N1
I

FORM10
C1620

YOTAL
BLOCKS
I

V141

3-ozc—71

{5159

CLL
BLOCKS
VARZ

IHRIYING
ISEE MARK WRIT!

;-5

}-10

FOR BLOCK AND RECORD SIZE HAVE BEEN
YELL OUTSIDE HORLD AND GEY THE UK:

)COM9UTED}
1311

1312

1313
1314
1315

1316

i317
1322

1321
1322
1323
1324

1325
1326
1327
1330

i331
1332

i333

1031
1054
3031
1031
4501
4502
4027
1722
0423
5400
1026
7001
4501
4502

0423
5400
710
:40

4N5

2356

1722

1713
7733
3105
2540
1722
4010

1755
4543

$347

1350

4471

TOTAL
TOTAL
vvoc?

Iv»:
( N

[on
(as

Yvon?
TYPE

[TYPE OUT BLOCK £5
ITO FOOL THE OPERAfoR

[IN OCTAL
[TYPE MESSAGES

0
[Lo

{CK
IS.

?OK
[1:

{YE
(s
[on
7 N
(0’

700417
IEND

JHS 1
735E

i345
1346

0313

4016
1735
4543
0000
4503

ISUBTRACT 15 FROM TofAL
INORDS FOOLING 09504700_
Icoanzcrso FOR TAP! NRITINE
Iron OCTAL TYPEOUT
ITYPE OCTAL H0005
ITYPE 025540:

1. END
BLOCKS

JHS I

2355

1337

1344

JHS 1
JHS I
4027
1722

0313

1336

1343

c7761

4002
1417

1334
1335

1341
1342

TOTAL

700
001
TAD

4002
1417
1713
7733
3105
2340

$340

710

TYPIN

YES on

0331

JH3 I
0331

0:05
0323

0305
0323

IY
IE
IS

IHAIT FOR REPLY

No ANSHER was GIVEN

COMPKR

PAGE 1-10

7521 run 440000
IPATCH To CHECK r00 sfbli0 r0001:
IVERNIER AOJUSTMEN? roa iohnULi
lACClZ CARRY FUNCTION
IHORD COUNT
/41 To BLOCK.COUNT
ITO HANY BLOCKS CAELED FOR
/CARRY INYO A0002?
7N0: CONTINUE COUNY
IYESI FULLY DIVIDEU?
7N0: CONTINUE Pnoczss
764A007+ ctLa-D
Iroa MARK TRACK (can: 950: FR

OU3

CMA
DOA

IVALUES

pALia

1971

710011 17 10

FRHT)

CTADE

FORMATTER

2000

0000

5472

JMP

1353

5754

JMP

1354
1355

3220
1556

SHCHK

1400

7200

1421
1432
1423
1494
1425

3030
1161
1027
6774

1426

1427
1‘10

3220

1412
1413
1414
1415
1416

i417
1422
1421

1423
1424

1425
i426
i427

THE

TAPE

IHRITE

TIMING

SYHK,

CLA

INTO
AND

MOTION.
MARK

PHASE
DT14Da

1033

TAD

3025

DCA

VARZ
we

CEZ,

ABOUT
DCA
TAD

1065

3022
4222
202a
5216
5232

DCA

anon
1032

iNBLSYA

JHP

HDZ

TAD
DDA

1314

TAD

427a
5622

JMS
JHP

1320
4270

H014

5432

CRCFPA

i433

1324
4300

i434
i435
i436
1437

1333
4270
2024
5234

DYRK.

MAKE A RESTART
IOPTXON POSSIBLE

END

TNE

ran

SAME

EON:

IADDRESS or

DATA

/NDT END FOOTAGE
IOK NRITE INTERBLDCK

SVNé

INBLSY
.-2

INTERBLDCK SYNC

3524

1432

ITO

FEET

JMS
:52
JHP

VARIABLES ARE SET:

/END. HRITE. DD
IGET UNIT NUMBER
ILOAD COMMAND REGISTER

H1
REE
SETUP
H1
6E2
N144
N1

JMS
:52
JMP
TAD

ALL

TRACK

DTA

/RESET

VAR1
H5
18!
SETUP
I

IHRITE
1431

.+1

IHRITE

4422

1-17

DCA
TAD
TAD
SDLC

131D
4270
2929
521a

PAGE

0143?

/HRITE

1411

16159

3-DEC-71

/END

F10PAT

FORH10A

ISET

1422

Vl‘l

PAL10

1971

1351
1352

TAD
Jns

INRxTE

HORDS

IADDREss or DATA
[GO OUT AND NRTTE 1
[GD 00 AGAIN

INBLSY
FDRHARD
ran
SETUP

THE

BLOCKMARK AND REVERSE GUARD
IAUDRESS

or PATTERN

LDCNNARR.

TAD

NLnar

JMS

SEYUP1

REVERSE CHECKSUM.

sz ETNAL.

REV

IHRITE THE DATA TRACK
/ADDREss or PATTERN
TAD
Dz
JHS
18!
JHP

SETUP
us
2

DTRK

INOH NRTTE DATA

__'

MARK TRACK AGAIN

PREFINAL

/TDBE

DECTAPE

FORMATYER

COPYPIGHT

IHRITE

1442
1441

1337
4320

prcnc,

1442
1443

1346
427%

GRB.

1444
i445

4222
2025
5230

PAL12

1971

TAD
JHS

V141

16359

3-DEC-71

PREFINAL. FINAL. CHECKSUM.
rEz
IADDREss Dr DATA
SETUP1

PAGE 1-18

AND REVERSE LOCK

/HRITE GUARD REVERSE BLOCK

1446

5R2
SETUP

TAD

JMS

ITHIS COMPLETES 1 BLOCK. GO BACK AND uniTE
IHRXTE INTERBLDCK svnc
INBLSY
JMS
H6
:52
/ToTAL NUMBER or atocxs
HDZ
zquTTENT NO!
JHP

DATA BLOCKS HRITTEN NON WRITE BUFFEé zoNE or INTERELDCK
M143
l198 EXPAND conzs AT END of BLOCKS
H1
lNBLSY

IALL

1447
1452
1451
1452

1453

TAD
DCA

1123
3026
4222
292%
5251

JMS

i455

i456

1457

i465

1451
1462

i¢63

1464

1465

1466

3020
1352
4275
2929
5255

6772
7610
4567
1373
3032
5667

1467

1603

i472
i471

2222
3212
1261
3125
4524

2472

1473

i474
1475

£476
£477

2'2

2222
3212
1262
3125
4524
2125
5324
5722

1524

$525
1526

1527

H1
EZM

JMS

SEYUP

15:
JHP
SDST
SKP
JHS
TAD

H1
uzzr

WRITE ANDTQER {221:

or END BONES

DLA

SELTIH

ITIMING ERROR

c1_

PHASE
.t1

JHP 1
HNTH

SETU§A

5274
5670

1522

DDA
TAD

DDA

2125

i521
1522
1523

HEZF.

SETUPIA

DCA
TAD
DDA

H3
wc

JHS x

NAT?

IS!
JHP
JMP

IHORD TD BE HRITTEN

mini TRAcK

.-2
SETUP
h

22A
TAD
DCA

JMS

15!
JHP

SYNC

13!
JMP

IFINISHED BLOCK NRtTTING.

1454

TR: REST

uc
1

VAT?

1'2
JHP 1 SETui1

7THEsE ARE THE DATA CONFIGURATION! FOR TR: HZRR TRACK

'71,:

/TDBE

DECTAPE

FORMATTER

CUPVRIGHT

1971

/REVERSE END
1510
1511
1512
1513

1514

REZ,

4444
4444

4444

IINTERBLOCK
1514
1515
1516
1517

1514

1824

4444
4444
4444

3-DEC-71

V141

ZONE

4444
4444

4444

PALifl

ION

TAPE

5555

(OCT)

/ON

TAPE

2525

(OCT)

SYNC

4
0454
0404

0404

BLOCK MARK AND REVERSE GUARD

IFORHARD
1520

1524

1521

4444

1522
1523

4464

4444
4444

FBM.

4444

ION

TAPE

2632

/Locx MARK. REVERSE cHECKsun.
)AND REVERSE PREFINAL

1524

i525

g526

1527
1534

i531
1532

1524
9040

uLHRr.

REVERSE FINA!

1
4444
4444
4444
4444
4444
4444

$000
4000
004D
DEED
4002

(OCT)

1510131fl

/ON

TAPE

[ON

TAPE AS 707$

(OCT)

20474 MARK
i533

i534

1535
£536

1533
4444
4444

02'

'4
444B
BB44
4659

4000

)PREPINAL- FINAL.

i537
i549

i541

4542
1543

i544
i545

1537

(OCT)

FEED

4444
4444
4444
4444

4N4 REVERSE [48K

‘l
4444
4444
4044
4440
4444
4644

4444
4444

run cnzcxsun.

ION

TAPE

AS 73737373

(047)

)FORUARD GUARD AND REVIRSE BLOCK NUMBER

$546

1546

$547

4444
4444

1554

6R2!

'I
4045
B449

ION

744: AS 5145 4047)

HI 6359

PAGE

1-19

/T08E

DECTAPE

1551

FORMATTER

1554
1555

1552

EZH:

2422
4224
2242

1561
1562

flflflfl
3226
1231
1371
7642

1563

5756

1557
1562

1564

1565
1566

1567
1572

1571

1572

1573

3222
1372
3226
5772
1326
7161
1121

2221
1622

PAGE

1.22

ZONE

I
-

2422
4224
2242

ISUBROUTINE
IYO SPECXFY
1556

{6i59

3.DEC.71

V141

2424

/FORNARD END
1552
1553

PAL12

1971

FlflPAT.

SEE

USER

2222

(OCT)

TYPED

MARK

384

JMP
22A

BLOCKS
TOIAL
N617

OLA
F12PAT
H1

TAD

c1121

ocA

BLQCKS

c1121.

JMP I
r12RTN
-617
1121

:1.

2221

H6173

STANDARD POP-12 FORMAT

DCA
TAD
TAD
32A

F128AK.

TAPE

ION

ICLEAR LOO}

BLOCKS IN CASE NOT i2éroRNAT
TYPEo av USER

[AND GET NUMBER
was IT 3547

IND-RETURN
lYES-CLEAR H1 FOR uAiT L00?
[AND ADJUST BLOCK TDTAL FOR
V

l1122(OCTAL)

BLOCKS.

.41

.1622
/THE MARK TRACK HAS BEEN HRITTEN. ANO TAPE 15
inoviNc EORNARD XN_TH§,72RHARD END ZONE. 5T2?
)THE TAPE AND SEE IF THERE ARE ANY TAPES LEFT To
IMARR-er so 62 DO THEN. ELSE TELL OPERATOR To TQROH THE
/"OFF/HTH” suxT2H_TO "OFF“
72: HILL THEN CONTINUE AFTER THIS AchON
_

/~{“
,/

IKILL waTE.sToR YAPE
1622
1621
i622
i623
1624

7222
1227

MHTH.

OLA
TAD

DTA

SDLC
JMS
JMP

6774

4777'
5574

NUDTA
T

INESSAOE
1625
1626
1627
1612

1611

1612

i613

1614

1615
i616

5617

1622

4522
2325
2442
2327

1124

2312
4224
1742

err.

423

DONARK

39 THE OPERATOR

TYPE

2325
2442
2327

75:
/T
[SH

1124
2312
4224

ITT

1742

I0,
I07

1726

2622
452a

2622

5621

IUNIT

(

JHS
JNP

ICH
IT

1..

I
!

TYEIN
3&1

/quT 72R CR

7515'

/TDDE

DECTARE
1621

EDRMATTER

CORYRTCRT 1971

3327
1164
1627
6774

1625
1626

3626
6776
5226
6776
2626
5226
6773
7416
5246

1627
1636
1631
1632

1633
1634

1635
1636
1637
1646

PSER,

TAD
TAD
DCA
5656

JMP

.-1

:52
JMP

SDRC
SDST

7416

SKP

JMS

1647

4567
6135
1111
7646
5236

1656

4552

1651

1111
7656
5256

TAD
SNA

1166

TAD
TAD
82A

1652
1653

1654
1655
1656

1657
1666
1661

6771

1664

1667

1676

.1671
1672

7646
4576

1677

‘5§2

JMS

JMs
TAD

4532
1112

1113

JMS

SPEED

1? SET AFTER HAIT RDUTTNE

erAC HAS SET
/READ IN A LINE

TAPE

CLA,
1

M25

JHS

45g:

JR:

1114
7646

TAD
52A

4576

JMS

INDT

55 YET

IF TAPE

Is STILL

[STILL IN END ZONE
ICET THE MARK TRACK
[18 TT EXPAND C66:
‘

‘

INOT YET.CHECK FOR A 52.AND ADVANCE
/YES IT IS EXPAND God:
[SET UP FOR 198 EXPAND CDDEs
_

M25
CLA
MARKER

IMARK

TRACK ERRDR
ITNcREMENT COUNTER

VAR2
H6

INUMDER Dr BLDCKs

sstnT

ISTART OF A STANDARD BLDDK_
IFIRST EXPAND CDDE AT BEczNNTNc
ID! BLOCK
IHARK TRACK ERRDR
IRIAD MARK BLDCK NUMBER

M25
z
T

CLA_
MARKER
ssosoT

‘_

M26
CLA

:
1

MARKER
sstnT
M3;
CLA
MARKER

ECNE

.-5

END

/Y:s.READ IN SOME MDRE
ITs TT END ZONE

ITHE TAPE SHOULD_B! IN SYNC NOH
[READ THE REST or EXSAND 666:

ssosnT

CNT

TAD
52A

176:

SEE

ICHECK

CNT
I

TAD
52A

JHS
JHS

CLA
sczxpc
M366

DCA

RSTBLK.

,-11
ssusoT
M55
CLA
.-3

MTR

/TTMTND ERRDR

SELTIM
M5K77
M55

JHP
TAD

JHS

1766

IREAD THE COMMAND REGISTER
ICHECK FOR A TIMING ERRDR

152

4576

1765

OFF

ISKIP 0N QUAD LINE

.n1

52A

7646

1764

CLA
TAD
DCA

1761

1762

.43

JMP

7646
4576
2127
5263
1633
3625

1673
1674
1675
1676

1766

JMP
JHS

7646
4534

1112

1666

,.A

AND
TAD
52A

1112

1663

1665

THAT SHITCR

7266
1126
3127
4532

1662

SURE

READ

5056
SKP

6776
6772

1646

MAKE

MARK TRACK
/REVER5E CD
IUNIT
ILDAD COMMAND REGISTER
lSTALL-ROUTINE TD CET UP

AND

1-21

PAGE

soRc

5236

1642
1643
1644
1645

DT3666
DTA

SDLC

JMP
$055
JHP

1641

TAPE

{6&59

3-DEC-71

V141
[CHECK

SNOFF

/REVER5E
1622
1623
1624

PAL16

IMARK TRACK ERROR
IREAD MARK CUARD

IHARK TRACK ERRDR

LINES

ITDSE

OECTAP:

1727
1712

1711

1712
1713
1714
1715
1716
1717
1722
1721
1722

FORMATTER

1971

1132

TAD

3127
4532

DCA

1115

TAD
SZA

JM3

7542
4572
2127

.JMS
Is:
JHP

5311

1726
1727
1732

7322
1232
7224
3224
4532
1116
7542
4572
2224
5323

1731

1130

TAD

1732

3127

DOA

1733

4532

JHS

1734

1117

1723
1724

1725

1735

1736

1737
1742

1741
1742

7642
4572
2127
5333
4532

V141

PAL12

CNT

550501

MARKER

.-5
CLL
vAR1

OLA
TAO

RAL
us
SSOSOT
M72

OOA

JMS

TAD
52A

JHS
.

ONT

OLA

MARKER
.-5

559501
M51

1745
1745
1747
1752

4532

JMS

SSOSOT

1121
7642
4572

TAD
52A

1751

4532

1752
1753

1112
7640
4572

1755
i756

2225

IS:

5273
1131
3127

JHP

RSTBLK

TAD
DOA

M327

1751
1752

4532

JHS

1743

1112
7342

1734

4572

1725
1733
1747
1772
1771

1772
1773

5361
4532
1122
7642

4572
1227

cLA
MARKER

l
I

ssosoT
OLA
MARKER

ONT

7RIAO BLOCK NUMBER

IMARK TRACK ERROR
IREAD EXPAND CODE
~

‘

ONT

,.§
ssOSOT
M22
CLAN
MARKER
DTA
.

IEND 07 ON: BLDOK.MARK TRACK ERROR

IRINTSKED ALL aLocRs
INDIDO OTHER BLOCKS
ISET UP FOR :NTzRaLOeK SYNO AT :NO or TAPE
_

ICHECK FOR 199 EXPAND EOOEs

M25
CLA
MARKER

/‘§\

;;;

ssosaT

52A
TAD

‘

M25

TAD
52A

JMS

IREAD REVERSE GUARD

M45

TAD
52A

Ts:
JMP
JHS
TAD

TRACK ERROR

IMARK

ONT

JHS

IREAD PF.P.CK.L

M73

JMS

2127

eLocKs

ssDSOT

4572

JHS

H4.
I

rs:
JHP

JMS
JMS

TRACK ERRDR_

/MARK

ICOUNT FOR NUMBER

.-5

TAD
52A

JMS

MARKER
H5

:52
JMP

JHS

/NUMBER or DATA MARKS
IREAD DATA MARKs

OLA

1744

1732

TRACK ERROR

IHARK

cNT

CLA
MARKER

1757

/READ L.cK.E.Rr

M12
OLA

TAD
32A

1754

PAGE 1.22

1122
7542

1743

13352

3.DEc-71

[MARK

TRAOK ERROR

‘

NOSE

DECTAPE

FOHMATTER

1774
1775
1776

2030

1777

3133

5774

5776

waaLxN,

2030

42000

2000
2021
2002

1356
3030
1033

DaLKN.

2003
2004
2025
2006
2007
2010
2011
2012
2013
2014

2015
2016
2017

2020
2021
2022
2023
2024

2025
2026
2027
2030
2031
2032
2033
2034
2035
2036
2037
2040
2041
2042
2043
2044
2045
2046
2047
2050
2051
2052
2053
2054
2055
2056

1971

SOLE
1
JMP
DBLKN

PAL10

V141

OUT

0217: DATA

AND

3025

DCA

3137
1137
4477
3140
6775
1161

DCA
TAD

BLK
aLK
MESS
REVBLK

IINITIAL

071400

IEDRUARD.HR17E.GD

DTA

IUNIT

6774

6776

7006
7004
7700
4357
1062

1.23

xNUNDER

BLOCK

NunaEns 7020620

or BLOCKS

BLOCK

ICOMPUTE THE COMP

OBVERSE

Dr 22v

BLK

ILOAD THE CDHMAND REGISTER
ICHECK To MAKE SURE HRIYE is SET

RTL
RAL
SMA

CLA
NLO

JHS
rAD
DCA

3127

IHRXYE FAILED 7D SET

M6.

CNT
_

$050
JHP

6773
5223
6775
2127
5223
6775

IROUTINE TO GET UP TO SPEED

.-1

SDLD

152
JMP
SOLD
5057

6772

CNT

,.4

SKP

7410

JMS

4567

LXNE,

SELTXM

soss
_

JHP

6776

6772

[URITE

ITIMING ERROR‘
ALL ZEROES 70 THE riRST BLOCK

.-1

ILoAD THE DATA BUFFER

SOLD
SDRC
SDST

6775

SKP

7410
4567
0135
3106

JMS

1113
7640
5234

SOLD
SDST
SKP
005
JMP

6772

NDDLR.

CLA

ITIHING ERROR

NTR

070
M26

CLA
LINE

JHR

6775

SELTIH

usR77

AND
DCA
TAD
TAD
32A

1106

7410
4567
5265
7300

SOLD
TAD
TAD
SDLC
SDRC

1027

6771
5234

PHASE
VARZ

DcA

PAGE

.+1

xco

TAD
DDA
TAD

JMS

£6i59

3-DEC-71

1
cLL

SELTIM
NDoaLK

ITIMING ERROR
160 AND NRITE REVERSE GUARD
IBEGINNING 0F aLocR.uR!?E 5A?A AND BLOCK
_

NUMBER

ITDBE

DECTAPE

V141

N44;
u4L

TAO

BLK

4346

JM5

04L

IHRITE EIGHY LINES
IEND or ExPANO CODE.BEOINNiNc
IGET EDRNARD BLOCK NUHaEé
INRITE XT

7200
4346

OLA

JMS
OLA
JMS
JMS
JHS
TAD
01A

H4L

IHRITE

FIRST

0020 or REV

04L
04L

/$ECOND

HORD

OF REVERSE

N4L

TOTAL

/FIRST 0020 or REVERSE CHECKSUH'
[NUMBER or DATA NORDS To B! URfTTEN

DOA

[SET UP COUNTER

.ms
152
JMP

4346

2060
2061
2062
2063
2064
2065
2066
2067
2070
2071
2072
2073
2074

4346
1137

7200
4346
4346
4346

2100

1031
7041
3024
4346
2024
5274
7300
1135

2101

4346

2075
2076
2077

2102
2103
2104
2105
2106
2107
2110
2111
2112
2113
2114
2115
2116
2117
2120
2121
2122
2123
2124

2125
2126
2127
2130
2131
2132

2133
2134
2135
2136
2137
2140
2141

2142
2143
2144
2145

PAGE 1-24

i6i59

PAL10

JHS
JMS

FORMATTER

2057

7200
4346
4346

4346
4346
1140
4346
7240
4346
4346
2137
7200
1137
4477
3140

6772

NDDBLK.

wOATA.

1971

5256

JHP

6774

SDLC

6771

5055

5335

JHP

6777
7200

6776
0135
1122
7640
5335
5745
2400

IINCREMENT COUNTER

.-2
cLL
nsx77

ICOME

,,’

aAcK TO NRTT: LAST NORO

ANO

CHECKSUM

IFINISH CHECKSUN
IFIRST NDRD or REVERSE.LOQR
[LAST HORD OF EL: AND HALE Dr OUARD
IREST OF OUARD
IGET REVERSE BLOCK NUMDER
_

OHA
04L

»‘

04L
BLK
ELK

H533

/CDHPUTE NEH BLK NUMBER

REVBLK

SELTIH
H6
NOaLK

ITIHXNO ERROR
xT DON: HRITINe ELR AND DATA
_

xxs
IND

.-1

OT1000
OTA
‘

SDRC

.-1
’

AND
TAO

nsK77
M22

32A

CLA

JHP
x
JHP
DBLOCK

5-6

,11

IEND OP BLOCK NUMBER AND HALF OF EXPAND CODE
IEND OE EXPAND DOOE

1165
1027

5326

CUZRD

"‘L

Is:
SOso
JHP
SDRD
cLA
TAO
TAO

6773

N5_

REYBLK

DOA
SDST

JMS

NUMBER

GUARD

N4L
u4L
04L
04L

CLA
TAO

sxp

BLK

w4L

JMS
JHS
JMS
JMS
TAD
JMS
OLA
JHS
JHS
TS!

7410
4567
2025

CLA
TAO
JMS
CLA

JMS

3-OEc-71

ISIARCH EOR END EON:
/GET UNIT
ILOAD THE COMNANO nEc~
_

’

/—.;\

’

/TDSE

BECTAPE

FORMATYER

CODYDIGHT

1971

2146

2222

2147

e773

2152

5347

2151
2152
2153
2156
2155

e775
3772
7412
4537
5745

2156

2222

C2.

@222

2157

2222
1227
5774
4522
2223
4222
7242
1357
4521
4522
4242
2722
1124
2542
2222
5777
2744

NLO.

2222

02230

1372
3232
7322
1233

BLCSD:

2169
2161
2162
2163
2164
2165
2166

2167
2175
2171
2172
2173
2174
2175
2176
2177

2222
2221
2222
2233
2224
2225
2225
2227

2212

2211
2212
2213
2214
2215
2215
2217
2222
2221
2222
2223

222‘
2225

3225
3137
1165

H4L,

PAL12

Vl‘l

.‘1

[SKIP

SKP

JMS
JMP

TAD

24L

DTA
TYPE

4920
CLA
TAD

CMA

JMS
JMS
4042
2722
1124
2540
0522
JMP
ECOM

[PC
IEND
HLO
TVOCT
TYPE

IIT
IEND

TAD

DOA
CLA

cLL

TAD

VARZ

DCA
DCA

PHASE
ua‘

5L5
2T1222

JHS

SEETIH

TAD
DOA
SD50

no_

JMP
SDRD
IS!
JMP

I'i

3127
6773

5221

6777

2127
5221

ISTOP THE TAPE
[LOAD THE COMMAND REGISTER
7

SDLC
JMS
2203

4567

6772

/T!NING ERROR

SELTIH

1262

3142

2N QUAD LINE FtAc
ILOAD THE DATA BUFFER
ICHECK FOR A TtnlNG ERROR
,

7412

e774
1137
4477

PAGE

5050
JMP
SDLD
SDST

TAD
TAD
SDLC
TAD
JHS
DCA
SDST
SKP

1227

$ei59

3-DEc-71

274

ISET up 702 THE
ISET ELK To 2
[FORWARD READ

NUMBER 27 fiLbcis

[UNIT
71232 THE COMMAND REG
_

BLK
COMPLEMENT DBVERSE

MEss

ICALCULATE THE

/TTMXNG :Rnon
[WAIT To GET UP To SPEED
ISET UP COUNTER
ISKIP ON A QUAD LIN: PEA:

REVBLK

CNT

/READ THE DATA aurPER To cEEIR ELI:

CM?
2'4

1-25

/TDBE

DECTAPE
2226
2227
2232
2231
2232
2233
2234
2235
2236
2237
224%
2241
2242
2243
2244
2245

2246
2247
2250
2251

2252
2253
2254
2255
2256
2257
2260
2261
2262
2263
2264
2265
2266
2267
2272
2271
2272
2273
2274
2275
2276
2277
2309
2321
2302
2303
2364
2325
2366
2307
2316
2311
2312
2313
2314

FORMATTER

7269
3142
4527

1971

BLCSDA-

DCA

JMS
TAD
52A

5777 l
6772

JHP
SDST

7419

sKP
JHS
TAD
CIA
TAD
SZA

4567
111%
7041
1137
7640
4571

JHS
JMS
JMS
JHS
sown
SDST

4532
4532
4532
6777
6772
741a
4567

6773

5260
6777

6772
741a
4567

CHKSUM
SLRDRC
M26
CLA
SRDRC§4

BLK
CLA
BLKERR
ssnsor

55psoT
SSDSOT

RDATA:

JMS

SELTIM

AND

MSK77

JMS

acxoa

TAD
c1:
DCA
5030

?inz

MARK

[TIMING

ERROR

[ELK NUMBER ERROR
GUARD
REVERSE LOCK

[READ
[READ
[READ

CHECKSUH

/TXMXNG

ERROR

[GO

”w

JHP
soao
SDST

[READ

THE DATA BUFFER

SKP

DAfRD
CLA
DATERR

TAD

DATRD

6772

SDST
SKP

4567
ausz
4541
1142
6135
7a01
1052

[SET UP COUNTER

JMS

7416

111a
4541

6772

BLOCK
BACK

LINE

OUT 10 cuzcxsun ROUTINE
[NUMBER or uonus PER Buocx

4572

6777

SINGLE

TOTAL

111a
7642

5321

715 X?
7N0.co

SKP

SELTIM

6773

1.26

[READ THE DATA BUFFER

DATRD

526a

pAGE

DATRD

DCA
TAD
SZA

7410
4567
2024

[READ

sngrn

JMS

3112

E6559

3-DEC~71

V141

CLA

1113
7642

2135
4541
1231
7041
3924

P1116

JHS

JHS
Isa
an
SD30
JMP
SDRD
snsv
SKP

ERROR

ITIMING ERROR

szuvxn

us_

RDATAOS

[READ REVERSE CHECKSUM
I'1

[READ

sEETIM
c7750

JMs

acgon
cnxsun
nsx77

XAC
TAD

[DATA

Icuch FOR A TIMINE :RROfi

AND

751v: THE DATA wono

acxon

JHS

TAD

[TIMING :Rhon

c7720

[TIMING ERROR
[CHECK CHECK SUM

/T35E

‘33.

SECTLP:

FCDMATTE?

cCPchGHT

1971

2315

7642

SBA

2316
2317
2322
2321
2322
2323
2324
2325
2326
2327
2332
2331
2332
2333
2334

4573
6772
7412
4567
4527
1125
7642

JMS
SDST

2337
2342
2341
2342
2343
2344
2345
2346
2347
2352
2351

5336

2352
2353
2354
2355
2356
2357
2362

2361
2362
2363
2364
2365
2366
2367
2372
2371

JMS
JM5
742
$24
an

6772
7412
4567
1112
7241
1142
7642

4571

JMS

PAGE

CLA

CHKERR

ICHECKSUH

SELTIM
SLRDRC
M31

ITIMING ERROR
/ADVANCE A SINGLE EINE FtAc
ILDOK FOR REV BLK NUMBER

ERROR

CLA
saaac+4

TAD

ITIHING canon

SELTIM
24722

CIA
$42
524

JHS
5252

6773

FEVBLK

6772
7412
4567
7322
2137
1137
4477
3142
6772
7412
4567
2225
5227
1165
1227

JMS
CLA
Is:

BLOCK

READ

wIYH ONE COMPUTED

BLKERR

IBLOCK

NUMBER

ERROR

.-1

SELTIM
CLL
BLK
BLK

MESS
REVBLK

TAD

JMS
DCA
$257

ICDMPARE

CLA

JMP
5222
SDST
SKP

6777

ITIMING

ERROR

SKP
‘

JM5
152
JMP

742
TAD

sDLc
sass
JHP
son:

6774
6771
5361
6776
2135
1122
7642

c4.

2377

3124
2422
1242
3232
7322

DBLOCK.

.2422

/TIHING ERROR

519524
271222
DYA

.-1
.

HSK77

$24

CLA

1
RoaLKs

2224

SELTIM

AND
TAD
JMP
JMP

5361
5771
2442

3235
1164

16359

3-Dgc-71

SDST
SKP

2372

2422
2421
2422
2423
2424

v141

SKP

5777»

2335
2336

PAL12

222
,.g
.61

2224

TAD
224
CLA

C37

224

PHASE
CLL
DISBLK

TAD

of3222

/REVERSE.GO

1-27

ITDSE

DECTAPE

2435

1227

TAD

2426

6774

SDLC

2427
2412
2411
2‘12
2413
2414

7322
6771

E6359

PALiD

V141

214

IUNIT
71242 THE COMMAND chrsrta

3-Dac-71
,

2415
2416
2417
2423
2421
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434

2435
2436
2437
2448
2441
2442
2443
2444
2445
2446
2447
2459
2451
2452
2453
2454
2455
2456
2457
2469
2461
2462
2463
2464
2465
2466
2467
2470
2471
2472

DISLUP4

5212

JMP
CLA
SDRD
DOA
SDRC
AND
TAD
SZA

7322
6777

3236
6776

2135
1113
7449
5226
1236
2235
5223

5212
1237

CLA
SUSS

JHP
TAD

ISZ
JHP
JMP
DISEND.

TAD

I'i

015247

ISAVE

MSK77
M26

/H4sx Our THE MARK TRACK
ICHECK FOR BLOCK NUMBER

DISEND
nxso4r

/NOT BLK MARK.CHECR ran 2N5 20M:
IDISPLAY THE NUMBER in THE 4c

.-1
DISLUP
roun

SEA

214

1227

DISLUP
274

1241
3232
1233
3224
7221

DXSBLKn
DXSDATA
FOUR:

U
B

C34
C54

0653
5065

DCA
TAD
DCA

11$

SEARCH FOR THE NEXT aLbck
1? END ZONE

/NO.GO GET NEXT LXNE‘
ISTOP GET READV TO READ.
ILDAD THE COMMAND REGISTER
_

.‘1

m“

cs‘
PHASE
VAR2
us

7557 UP FOR

NUMBER of BLbcRs

IAC
TAD
DOA
TAD
TAD
SDLC

3225
1164
1227
6774
1262
3127
6771

v422

273222
074

ISET UP TO CHECK ark REVERSE
72:42 szzns: so

IUNIT
IL04D THE conn4~2 22313122
..

TAD
DCA
5085

an?

JMP

5256

SDRC
CLA

6776
7222
2127

6771

160

RDBLRSI TAD

1233

5256

THE DATA BUFFER

D!§BLK

TAO
SDLC

JMP
I
BLCSD

CLL

JHP

6774
5634
2222
2222
2222
2224
2223
2225

1-28

CLL

5212

7642

PAGE

RDBLR.

XS!
JHP
$055

5264

6777
3127

6776

21§5
1113

$030
064
SDRC

72:42 THE 0474 aurrzn 4MB

67222 I?

4u4v

AND
TAD

113$!

/TDEE

46’

DECTAPE

FOFMATTER

{6359

PAL10

V141

2473
2474
2475
2476
2477
2500
2531
2502
2503
250‘
2505
2506
2507
2510
2511
2512
2513
2514
2515
2516
2517
2520
2521
2522
2523
2524

7640

52A

CLA

715 IT BLOCK NUMBER

5264

JMP

RDBLK

1127
1025
7640

TAD
TAD
SEA

we.

4571
7001

JHS
IAC

1025
3025
2024
5264

2576
2577

1622
3133

6771
5306
6776
0135
1122
7540
530a

1971

IBLOCK NUMBER ERROR

TAD

IINcREMENT

UCA
X52
JMP
SUSS
JMP
SDRC
AND

IINCREHENT

BLK

H5
RDBLK

COMPARE COUNTER

NUMBER FOR

counfcn

0'1

CLA

2'6

1027

TAD

DYA

e774
7001

SDLC
1A6
DCA
JMS
JMP
JMP
INIT

5724
1061

/LOAO THE COMMAND REGISTER HiTR UNXT STOP
PHASE
NUOTA

0520
.71

[END 60 BACK To DIRECT

‘

2600
2601
2602

2603
2604
2605
2606
2607
2610
2611
2612

2613
2614
2615
2616
2617
2620
2621
2622

2600

02600

7300

905‘:

1164
1027
6774
e771
5204

TAD

52A
JHP
TAD
TAD

6774

SDLC

5220

1113
3022

5220

IREVERSE READ co
IGET UNxT
7LOAO THE COMMAND 02015122”
ISKIP ON A SXNGLE EINE FLAG
y

IREAO THE OOHMANO Radisizn

[IS IT END 20M:
IVES
IND GO BACK AND LOOK AaAiN
IranuAnO READ so
‘

IUNIT

..2

“

ILOAD THE cOMMANO REGISTER

TAD
00A
sass
JHP
sons
LA

1062
3127
e771

2625
2626
2627

OT3000
UTA

soss
JHP
5000
AND

0135
1122
7640
5204
1165
1027

2624

OLE

TAD

sOLc

6776

e770
7200
2127

2623

cLA

TAQ

_s:
JHP

RorAi.

7A0
DCA

1-29

MSK77
M22

JMP

4777i
5776’

PAGE

CNT
CLA
BLKERR

TAD
SEA

3030

3-OEc-71

ISET UP COUNTER 70 R260 22 BLOERS

ITDSE

DECTAPE

FOQHATTER

1971

V141

ISET UP BUFFER

ADDRESS

IGO SINGLE LINE

FLAGS

2632

1267

TAD

2631

3211
6771

DCA

BADD
x2

$055
JHP

.-1

2632
2633
2634
2635
2636
2637
2642
2641
2642
2643
2644

2645
2646
2647
2652

5232
6777

2135
1113

7642
5232

3411
2222
5232
1227

2677
2722
2721
2722
2723
2724
2725
2726
2727

2712

2711

2712

JHS
2424

2142
2222
1227
7226

2142

JMS
JHS
4345
2222
TAD
22A
TAD
DDA
TAD

1267
3211

1411

JM5
JHS

4521
4522
4345

:5!
JMP
JMP

5267
5472

2135
1122
7642
5323
1164

ISEARCH FOR

BLOCK NUMBER

/NDT BLOCK NUMBER YET so BACK
IOK BLK NUMBER STORE TT 223T

IINCREMENT COUNTER
22

BLOCKS YET

DTA

/sToP THE DTA

NUMBERS

AND

07!

UNIT#

TYPE

DTA

[UT
IA
/:ND
IGET UNIT

NUMBER

1
T

TgDcT

IAND TYPE

IT OUT

TYPE

M26

N1_
DADD
x2

1
1
I

x2
TYQCT
TYPE

4345
2222

2222
2222

6771
5323

THE COMMAND REDXSTER

RTL

2222
1113
3222

6776

CLA
RDPA144
DNT
x2
23

RDFA1¢4 INOT

2222
TAD

4521
4522
4345

6774

BLOCK

2424

7322

M26

SDLC

4522

1165
1227

[READ

TAD

OUY

‘Msx77

152
JHP

6774

222.

214
TAD
TAD
5212
soss
JMP
soac
AND
TAD
$24

PAGE

THE DATA BUFFER

[READ

2N7

JMP
TAD
DCA

1127

ITYPE

2651
2652
2653
2654
2655
2656
2657
2662
2661
2662
2663
2664
2665
2666
2667
2672
2671
2672
2673
2674
2675
2676

SDRD
DCA
SDRC
AND
TAD
52A

3127
6776

{6i59

3-DEC-71

PAL10

ICRBLV
IEND
IHILL TYPE ALL
722 HORDS
[ADDRESS or BLOCK
INUHBERS TD INDEX
IFXRST on NEXT BLOCK
ITYPE :T DUT
.

/c56Lr
ICR&L'
[END

[COMPLETE

,.6
I

ISO

CLL
271222
DTA

IFDRHARD READ DD

AsK

ran PDRMAT

IUNIT
ILDAD THE COMMAND
ISKIP DN A SXNGLE

UTN: FLAG

.-1
_

HSKT?
M22

JHP

DLA
2'.

TAD

273222

aggstgan
N,_,V

IRIAD TM: coMMAND 22213722
ICHECK FOR END zoN!
INOT YET GO BACK
IREVERSE'READ ac

ADAiN

1-39

/TDBE

DECTAPE

2713
2714
2715
2716
2717
2720
2721
2722
2723
2724
2725

2726
2727
2730
2731
2732
2733
2734
2735
2736
2737
2740
2741
2742
2743
2744
2745
2746
2747
2750
2751
2752
2753
2754
2755
2756
2757
2760
2761
2762
2763
2764

2765
2766
2767

3000
3001
3002

3003

FORMATTER

1971

PAL10

V141

DTA

IUNXT

1027

TAD

6774

SDLC

1062
3127
6771
5317
6776
7220

TAD

DCA

GMT

RETRYI

[-1
CN?
RDFAi

JHS

TYPXN

4471
0322
0305
0324
0322
@331
0000
5472
7200
1165
1027
6774
1062
3127
6771
5345
6776
2127
5345
6771

JHS

CDHPAR

5352

JHP

l'i

6776
0135
1122
7640
5352
1164
1027
6774
7201
3030
5767
1633

SDRC
AND

MSK77

4503

0322
0305
0324
0322
0331
0000
JMP
CLA
TAD

TAD

ofiozz
DTA

I'i

cur

IEND
IGUESS HE DOESN'T

HAN?

.3000

0000

50507SDSD
JHP
SDRC

IFORHARD READ GO
IUNIT
ILOAD THE COMMAND azctsfta
[WAIT

LINES

IREAD THE COMMAND azcxsrzn

CNT
0"

H22

CLA
I.‘

076006

07‘

mi:

PHASE

l
JHP
gel
PSER‘11

3000

6773
5201
6776

JHP

TAD
YAD
SDLC
CLA
DCA

REVERSE

H6_

JMP

[7
/R

TAD
DCA
5055

TAD
SEA

NUMBERS

ISTORE

/R
IE

SDLC

SDRC
ISE
JHP
SDSS

PAGE

ILOAD YHE COMMAND REGISTER

sass
JHP
sonc
CLA
ISZ
JHP
JMP

2127
5317
IS226

§6is9

3-DEC-71

[ADVANCE SIX LlNES
[SKIP ON QUAD LINE rtxa
[READ COMMAND REGISTER

TR? ZGAIN

1-31

/TDBE

OECYAPE

FORMATVER

1971

3994

6772

SDST

3925
3996
3997
3919
3911
3912
3913
3914
3915
3916
3917
3929
3921
3922
3923
3924
3925
3926

7416

sxP
JHS

3927
3939
3931
3932
3933
3934
3935
3936
3937
3949
3941
3942
3943
3944
3945
3946
3947
3959
3951
3952
3953
3954
3955
3956
3957
3969
3961
3962
3963
3964
3965
3966
3967

4567
6771
5267
6776
6772

.'1

JHS

SELTIM

soss

5215
6776
6772
7416

sunc
susr
SKP

4567

JMS

6135
3196
1166
5666

AND
DCA

JMP

ERROR

/READ

THE COMMAND

ISAVE

ITIHING ERROR
THE MARK TRACK LIST

BITS

MTR
SDSQT

IADVANCE THREE LiNES

ISKIP

0N SINGLE

LIN: rtAd

ITIMING ERRDfi

JHS
soss
JHP
snnc
susr
sxp

JHS

6772

7416
4567
6135
3196
1166

4'1

AND

HSK77

MTR

DCA
TAD

an
ASLNS

JHP

CEXPC-

ITIMING ERROR

SEQTIM

JMS

5627

ITIHING ERROR

SELTIH

sass
JHP
$656
$657
SKP

6776

1112
7649
4576
5656

ITIMING

SKP

5244

4227

FLAG

SINGLE LINE

HTR

JMP
sonc
susr

7416
4567
6771

7649
4579

sass

6772

1124

SELTIM
MSK77

JHP

A3LN56

ISKIP

7'1

TAD

6771
5236
6776
6772
7416
4567
6771
5236
6776

6666

PAGE

lTlMING ERROR

sELTIM

JMP
sonc
5057
5K?

6771

1196

i6i59

3-DEC'71

V141

sass

7416
4567

6666

PAL19

TAD
TAD
SEA

MTR

JHS

MARKER

M52
CLA

ASLNS

JHS
TAD
524

JHS
JMP

M25

TRACK ERROR
[READ THREE MORE LINES
’15 :7 25 Now

IHARK

CLA

.4..

MARKER
czxpc

INO .MARK TRACK Ennog
/Ytsnxr xs EXPAND eon: Nunézn 1
.

1-32

‘1§;;r

/TDBE

DECTAP:

FORMATTER

1971

PAL12

ISIXBIT

V141

COMPLEMENY

xoR

3-DEC-71

I6i59

PAGE

1-33

suBROUTINE

ENTERED NITH DATA wDRD To BE XORED IN A:
/THO SIX-BIT COMPLEMENT XDRS MILL TAKE PtACE To Loc CHKSUM
xuxTR THE RESULT IN CHKSUH

ISUBROUTINQ

367%

202%

3271
3372
3073
3074
3275
3276

7242
3143
1143
3142
7241
7124
1143
1142
3142
1143
7112

3277
3122
3121
3122

gz>\

3123
3124
3125
3126
3127
3112
3111
3112
3113
3114
3115
3116
3117
3122
3121
3122
3123
3124
3125
3126
3127
3132
3131
3132

3133
3134
3135
3136

3137
3142
3141
3142
3143
3144
3145
3146

SBCXOR.

@
CHA

DCA

SBHDRD
SBHDRD
CHKSUH

TAD

AND
CIA
CLL

ICOMPLEMENT HORD
IAND SAV

RAL
sauoRo
cuxsun
cnxsun

TAD

TAD
D34
TAD
RTR

sDuoRD
CLLIRTRIRTR

7212
7212
3143
1143

2142
7241
7124

2135
3142
5672

RAL

SRDRE.

saUDRD
cRKsun

25577
cugsun
SchoR

sosa
SKP

.63

JHP
$255
JHP
SDRD
2:4
SDRC
AND
JMP

6777
3112
6776
2135
5722

NUDTA.

.-1
.

DATRD
.

"$277
1

SRDRC

LSTET.

1754
3353
1753
2237
7642
5346

TAD
D24
TAD
AND
52A

1753

TAD
2:4
IS!
JMP

TBUFPI
x

ZOOM; HERE
LSTEND.

Isa

TBUFPT

32227
CLA

JMP

3227
2754
5733
2333

saUDRD

JHP

6773
7412
5326
6771
5324

2222

CHKSUH

CXA
CLL
TAD
TAD
AND
DcA

1143
1142

2222

ssuDRD

DCA
TAD
AND

I
I
AT

LsTEND
TBUFPT

DTQV

CURRENT VALUE 0? DATA LisT PTR
[STORE IT AS TEN.eur.RTR
IGET A DTA 2 FROM THE EIsT
IGET

IIS 1T A 7777
IYES END or LIST
INDIGET 1T BACK

IchREMENT LIST POINTER
IRETURN
9E_LTST TD RESET PDTNTERs 1ND RETURN To CALL42
NUDTA
[INCREMENT RETURN RoiNTER

LSTRT

NUDTA

2ND

/TDBE

GECTAPE

FORMATTER

1971
I

3147

1752

TAD

3152
3151
3152
3153
3154

3754

I
DGA
JMP
DBUFAD

5334

STRTPT.
TBUFPT.
LSTPT,

1176

2222
1175

3222
3221
3222
3223
3224
3225
3226
3227
3212
3211
3212
3213
3214
3215
3216
3217
3222
3221
3222
3223

3156
2221
2212
2144
1752

BTNGGN.

2222

DTABuF.

32M)

DSZBE

4522
2325
2442
2327
1124
2312
4224
1742

SNCHR.

2724
1522
4523
7222
3256
6775
6771
7412
5224

6774
1162
1227
3257

1257

6771
5232

FOR

START

PAGE

1-34

LIST

GET FIRST DYA# AND RETURN
START or DATA uTsT
ITEM STORAGE FOR BOT PTR
IPOINTER To CURRENT VALUE 2? DTA
IGG
To

LIST

PTR

FORMULA TRANSLATIDN SEchoN

.41

[CHECK
I
JHS
2325
2442
2327
1124

suxTGH

IF SET TD wTM PostTioN

23:2

I$H
/o

1522
JMS
GLA
DGA
SOLD
$055
SKP

NEssZGE

117
/

"C\

/NT
IN
/HATT FDR CR

2724

SEE

ITYPE OUT
/SE
IT
/SN

TYPE

1742

TYPIN

15’

1‘

GNTERL

/2LEAR SINGLE AND GUAD FLAGS

JHP

Ts:

.44
GNTERL
_

JHP
.-4
JMP
SHCHER
[ERRORATYPE ERROR MESSAGE AND Go To SHGHR
/SEE Ir THE DRIVE ls GK
[LOAD CR To CLEAR TIMETNG ERROR
SDLG
SDLD
/L2AD DATA 922222 To GLEAR s G FLAGS
TAD
/SET NRITE
DT2422
DTA
TAD
/GET UNIT
.

RSTSH.

DGA
TAD
sass

SAN

JHP

.-1

SDLG

1257
6774

TAD
SOLD
SDRC

7226
7224

IPOINTER

6774

6776

LSTPT
NuDTA41

i6i59

3-DEG-71
ADR

1752

5216
5267

6775

/GET

2221
2212
2144

2256

3224
3225
3226
3227
3232
3231
3232
3233
3234
3235
3236
3237
3242
3241

V141

STRTPT

DBUFPT

ICONSTANTS
3155
3156
3157
3162
3161
3162

PAL12

RTL
RAL

[STORE

121v

‘

SAv
_

SAv

ILDAD THE TRANSPGRT
/READ THE connlNfi REGISTER AND CHECK
_

ITDBE

CECTAPE

FOQMATTER

1971

3242

7520

SMA

3243
3244
3245
3246
3247
3252
3251
3252
3253
3254
3255
3256
3257

5260
7024
7510
5260
7004
7710
5260

JMP
RAL

4777

JMS
JMP
an

1400
0000
Z000

CNTERLn

SAVI

3260
3261
3262

4502

ERCHK:

JMS

3263
3264

3265
3266
3267
3270
3271
3272
3273
3274
3275
3276
3277
3320
3301
3302
3303
3306
3305
3306
3307
3310
3311
3312
3313
3314
3315
3316
3317
3320
3321
3322
3323
3324
3325
3326

JMP
RAL

ERCHK

SPA

CLA
ERCHK
NUDTA

5655

2305
2425
2077
0000

1000

SYART

JHP

SHCHER.

JMS

4216
1724
4223
2524
4224
1742
2724

2327
1124
0310
4216
1724
4223
0524
4224
1742
2724

1542
1722

4223

1124
2312

1116

2714

2542

4226

4006

1421
2742
2621
1114
2524

1114
2524
4224
1742
2325
2442
4543
2222
5222

ICHECK

WRITE

IURITE

P15:

1-35

BE SET
SET

NOT

ICHECK

HLO

IHLO
/CHECK

SELECT

AND

TYPE

.ti

TYPE

4024

1740
2325
2442
4543
2222
122

IINCORRECT SETUP
ISE
ITU
IF
[END

SHCHK

712125

/SELECT on TiMING 52225
zcuzcx OTHER onrva IF ANY
ICHECK OTHER 221v:

6‘1

1411
1625

1421
2742

2621

Rstsn-il

1116

2714
1411
1625

16359

3-DEC~71

STHK

2305
2425
2077
2000
5666

2327

ERCHK

V1‘1

spn

5213

4522

P4112

22222

xrsss

OECTAPE

FORMATTER copvnrcur

3327
533%
3331
3332
3333
3334
3335
3336
3337
3340
3341

7220

3376
3377

1665
3133
34mm

3409

SNOFF,

3256
3775
6771
7410
5776’
22so
5332
7230
5741
1622

ZEDE

1971

CLA
05A
SOLD
$055
SKP

PAL:@

v1t1

{5359

3-ch-71

CNTERL

ICLEAR

ANY

FLAGS
‘

OFF

JMP
ISZ
JMP

IFLAG SHOUEDN'Y

PAGE

THAT

ARE

SET

CNTERL
.-4

CLA
.

JHP
PSER

.34zz
/1NPuT
BUFFER.
S

.¢1

BUFFER FOR
B

TELETYPE THIS MUST BE AT THE END or FROGRAM

1-33

DECTAP;

9999

11111199

99999999

9199

11111111

11111111
11111111

3-959-71

11111111

11111111
11111111

11111111

11111999

11111111

111i1111

11111111

9:119

11111111

9399

11111111

11111111
11111111

9499

11111111

11199999

99999999

11111111
11111111

11111111

11111111
11111111

11111111

11111111
11111111

11111111

1299
1399

11111111

1499
1599

11111111
11111111

11111111

1699

11111111

2999

11111111

9999

9799

1999

1199

1799

11111111

16359

V141

1971

9299

9599

59"\

9399:7759

/T58[

11111111

PAGE

11111111

99999999

11111111

11119999

99999999

11111111

11111111
11111199

11111111

99999999

11111111

11111111
11111111

11111111

11119999

11111111

2199

11111111

2299

11111111

11111111
11111111

11111111

11199991

11111111
5.1133111

11111111

11111000

00000000

11111111
00000000

1 111111

11111111

2500

000060

{30000011

2600
2700

11111111
i111i111

11111111

11111111
11111111

111111

11111111

11111 1

11111111

99999999

3999

11111111

11111111
11111111

11111111

3299
3399

11111111

11111111
99999999

11111111

3999
3599

19999999

99999919

99999999

19999999

99999999
99999999

19191919

99119999

2399
2499

9199

3999
3799

11111111

99999999

11111111

11111111
99999999

11111111

99999999

11111111

99999999

11111111

11999999

99999999

‘

11199999

99999999

9999 9999

99999911

99999999

1-37

/TD€E

DECTAPE

FORMATTER

1971

PAEID

V141

3-DEC-71

§6359

PAGE

1-38

4806
4162

42W@
439%
4429

450%
46MB
4769

5003
51MB

52MB
SSEG
5450

55MB
569%
5709

6066
6100
AZEE
6330
6460
650D
6600
6793

7fllB
7126
7206
73Bfl

7460
756a

76ED

77am

,,‘Q\

,,J

/T08E

CECT6PE
A3LNS
BADD
BCXOR
are

BINGO
BINCON
BLCSD
BLCSDA
aLK
BLKERR
BLoCKS
BUFFER
c2227
62217

C2275
C2277
C2762

C1‘

C1101
c1622
C2
C221
C223

6212
C215
c245
6262
C261
c272

2271

6277
:3
2342
C4

C6262

c7222
c7722

C7714

c7761
CERR
CEXPC
CE!

CHKERR

cugsun
cu:

CNTERL
COHCHK
COMCTR
COMPAR
COMPRE
CRCHK

FORMATTER

1971

PAle

3227

CRCOD

2255

2267

CRFLAG
DATERR
DATED
DBLKN
DBLOCK

1146

2141
7272
$166
3155
2222
2227

2137
2171
2026
3422

DBUFAD
DBUFPT
DCTR
DISBLK

2172
2112
2222

2422
1176
1175
1174
2435
2436

V141

3'DECI71
M14
H143
M144
M2

M22
M25
M26
M3
M326
M327

PAGE
2264

aux

2447

2123
2265
2262
2122

RDATA
RDBLK

2255

2112
2113
2261
2126
2131

2172

$2507

DNC
DNUM

1223
1177

2121
2122

DOCOHP
DOMARK
DY2422

1164

2124

2156
2242
2241
2255
2256
2257
2243
2244
2245
2246

071420

DZ
ERCHK
EIM
F123AK

2442

F12PAT
F12RTN

2224

FEM

2247

2372
2441
2377
2251
2252
2253
2254
2332

32§6

1412

2173
2142
2127
3256

1156
1173

2221
2312

1216

FEZ‘

FORM12
FOUR
GETDTA
GRB
GR!
235
IE!
XNBLSY
[NIT
IN171
IT

LETK
LPCOD
LXNE
LRCFP
LSTEND
LSTPT
M15

1572
1556
1326
1522
1537
1355
2437
1145

1442
1546
1242

1147

2116
2117
1222

2235
2236
2242
1573
1572
2252

DTABUF
DTRK

2677

2142

2132

072222
DT3222
UTA

2626

REVBLK
252
RSEND
RSTELK
2575M
SASLNS
SAV
secxon
592022
scExPc
SOLE
SOLD
sch
$222
$252

2412
1244

071220

2464
2442
2622

2726

2426

2174
2162
2165
2161
2163
2164
2227
3162
1434
1533
3262
1552

RuaLKs
RDFA
RDFAl
RDR
REPEAT

RETRY

DISDAT
uxsEND
DISLUP
DIVE

2237
2234

1-39

2125
2114

2253

2111
2262
1571

2263

2454

2222

2277

2135

2221
2246

2126

1622
2265
2136

$055
5257
SELTIM
SETUP

SETUP!

1512
2144

1673
3224

2133
3257
3272
2143

2134
6774

6775
6776
6777
6773

3222
6721
6772

2167
1472
1,522

SLRDRC
SPcoo
SRDRC

2127
2266
3122

$32527
STALL

2622

2132

3133

START

STHK
512727

1422

1244

ST!
SHCHER

2122
3267

1625
2515
1442

1222

3152

1514

2763

SHCHK

3222

2232

3327

1255

1622
2422
2412

sworr
TBUFPT
TFORM

1422
1261
2272

2256
2257
2234

1432
3146

31:4

2115

2422
2434

2152
2273
2274
2275
2276

TOTAL

721
71:7
TICTi
TyOCT

TYPE

3123

2756
2231

2376

2336
9221
2121

TYPECH

2122
2222

TYPIN

2123

/TDSE

OECTAPE

FORMATYER

TVPN

fiZéD

TYJU
V1
V2
V3

lflfll
2526
75m7
2513
1924
Z932
¢ass
222m

V‘LC'JK
VARl
VARZ

W1
“2
”3

azzl
2522
$923
2146

H4L
N5
N6

HAiT
“6

”DATA
HDBLK

HDBLKN
HOOBLK
”02
"EB?
HLHRF
HL0

x1
X2

EBLK
Econ
EDATA
ZHKTK
EPAR

ETfH

@924
@925
3134
Z155
2fl71
zese
1776
2065

143a
1455
1524

2157
eago

6011
2613
a744
6637
a657

0762
B724

DziEcvzox

LINKS GENERAYEDI

ERRORS

RUN-VINE!
3K

CORE

USED

SECONDS

1971

PAu1z

V141

3-DEC-71

{6&59

PAGE

1-45