Digital PDFs

AH-T179C-MC

April 1985

143 pages

Original

6.8MB

view download

OCR Version

5.8MB

view download

Document:	CVTSEC0 TSV05 TSV05 DATA REL APR 1985 bw
Order Number:	AH-T179C-MC
Revision:	000
Pages:	143
Original Filename:	CVTSEC0__TSV05__TSV05_DATA_REL__AH-T179C-MC__APR_1985_bw.pdf

OCR Text

PYRIGHT

CYTSECO

()

AH-T179C-MC

FIGHE 0L OF 01

1982-8

ElEREEn

Bl
TSVOS DATA RELIABILITY

MACRO M1113

14 JUUN-84

18:32

SEQ 0001

REM
IOENTIFICATION
PROOUCT

I0D:

T178C-MC

PRODUCT

TITLE:

CVTSECO

PRODUCT

DATE:

TSVOS DATA REL

JUN 84

MAINTAINER:

CSS/PGG OIAGNOSTICS

AUTHOR :

0ICx GOROON

THE INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE WITHOUT

NOTICE
AND SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE
USE
SUPPLIED

OR
BY

RELIABILITY
OF
DIGITAL
OR ITS

1984 B8Y DIGITAL EQUIPMENT CORPORATION

THE FOLLOWING ARE TRADEMARKS OF OIGITAL EQUIPMENT

OIGITAL
OEC

POP
DECUS

UNIBUS
DECTAPE

CORPORATION:

MASSBUS

—

TSVOS DATA RELIABILITY

MACRO M1112

14 UUN 84

18:%.

48
49

SEN 0007

USER DOCUMENTATION

50
S1
Se

TABLE

CONTENTS

GLOSSARY

53
S4
5SS
56

1.0

GENERAL

INFORMATION

1.1

PROGRAM ABSTRACT

S'V

S8
59
60
61
62
o3

1.1.1
1.1.2
1.1.3
1.1.4

65
66
6‘

68
69
70
71
12
73
74
75

1.2

78
79
80
81
82
83
84
8s
86
87
88
89
90
91
92
93

2.0

RELATED DOCUMENTS AND STANDARDS

1.4

OIAGNOSTIC HIERARCHY PREREQUISITES

1.5

ASSUMPTIONS

OPERATING INSTRUCTIONS

2.1

HARDWARE PARAMETERS

2.2

SOF TWARE PARAMETERS

2.3

.PAGE

HARDWARE REQUIREMENTS
SOFTWARE REQUIREMENTS

1.7

2.2.1
2.2.2

9s
9%
97
98
99
100

101
102
103
104

SYSTEM REQUIREMENTS
1.2.1
1.2.2

FUNCTIONAL DESCRIPTION
STRUCTURE OF PROGRAM
MEMORY MAP
DIAGNOSTIC IMNFORMATION
1.1.4.1 SCOPE
1.1.4.2 ERROR RECOVERY
1.1.4.3 WRITE ERROR RECOVERY
1.1.4.3.1
MEDIA/OPERATIONAL
SELECTIVE WRITE-ERROR-RECOVERY
1.1.4.3.2
OPERATIONAL WRITE ERROR -RECOVERY
1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT

2.4

T1S0S COMMAND LIST
DATA PATTERNS

EXPMPLES OF SOF TWARE PARAMETER DIALOGUE

2.3.1

BASIC FUNCTION AND DATA RELIABILITY

2.3.2
2.3.3

SCOPE LOOP SET UP IN BASIC FUNCTIONS
SCOPE LOOP SET UP IN DATA RELIABILITY

WITH ALL ERROR REPORTING ENABLED

EXECUTION TIMES

—

TSVOS DATA RELIABILITY

MACRO MI11%

105
106

2.4.1

107

119

3.0

111
112

ERROR
5.1

113
114

120

121
122

SYSTEM CONF iGURATION

2.4.2

108
109

115
116
117
118
119

SEQ 0007

14-JUN 84 18:32

TEST EXECUTION TTIMES

INFORMATION
ERROR REPORTING

3.1.1

ERROR @1

MODULO 4 BOUNDRY
ERROR 02
- TSOS NOT READY
ERROR #3
- NO RESPONSE ERRORS
ERROR 04
- NO INTERRUPT ERROR
SPECIAL CONDITION ERRORS

3.1.2
3.1.3
3.1.4
3.1.5

3.1.5.1
3.1.£.2

123
124
125
126
127

3.1.5.3
3.1.5.4
3.1.5.5
3.1.5.6
3.1.5.7
3.1.5.8

lgg

130

3.1.6

131
132
133
lgg

3.1.7
3.1.8
3.1.9
3.1.10

136

3.2

ERROR
ERROR
ERROR
ERROR

PERFORMANCE REPORT

i:g

5.0

TEST SUMMARIES

150
{gg
153

154
122
1

157

158

159

5.1
5.2
5.3
5.4
5.5

6.0

ERROR
ERROR
ERROR
ERROR
ERROR
ERROR

#7 #8 #9 €10#11-

TCC2,
TCC3,
T 4,
TCCS,
TCC6,

TAPE STATUS ALERT
FUNCTION REJECT
RECOVERABLE ERROR
RECOVERABLE ERROR
UNRECOVERABLE LERROR

€12- TCC7, FATAL SUBSYSTEM ERROR

014 - RETRY LIMIT EXCEEDED
€15 - TOO MANY INTERRUPTS
#16 - CAPSTAN RUNAWAY
#17 - DATA COMPARE ERRORS

ERROR HALTS

4.0

144
145
146
147
i:g

ERROR #5 - TCCO, UNDEFINED SPECIAL CONDITION
ERROR #6 - TCCl, ATTENTION CONDITION

ERROR €13 - RFC NON-ZERO ERROR

137
138
139

140
141

- COMMAND PACKET ADDRESS IS NOT ON A

TEST
TESY
TEST
TEST
TEST

1
2
3
4

- BASIC FUNCTIONS
- DATA RELIABILITY
- WRITE COMPATABILITY/WRITE UTILITY
- READ COMPATABILITY/READ UTILITY

S - RANDOM/OPERATOR SELECTED COMMAND SEQUENCE

DEVICE INFORMATION
6.1

6.2
6.3

GENERAL

Q-8US INTERFACE SPECIFICATIONS
BIT DEFINITIONS FOR TSVOS5/TSOS REGISTERS
6.3. 1
6.3.2

TSVO5/7S05 REGISTER SUMMARY

6.3.

EXTENDED STATUS REGISTER O (XSTATO)
EXTENDED STATUS REGISTER 1 (XSTAT1)

TSVOS STATUS REGISTER (TSSR)

6.;.%.1 TSVOS EXTENDED DATA BUFFER REGISTER (TSDBX)
6.3.4

bl
TSVOS DATA RELIABILITY

MACRO M1113

14 JUUN 84 18:32

SEN 0004

162
163
164

6.3.5
6.3.6
6.3.7

165
166

7.0 DIAGNOSTIC

EXTENDED STATUS REGISTER 2 (XSTAT2)
EXTENOED STATUS REGISTER 3 (XSTATS;
EXTENDED STATUS REGISTER 4 (XSTAT4)

MISTORY

167

168
1€9

170

1.0 GENERAL INFORMATION

171

172

173

1.1 PROGRAM ABSTRACT

174

175

176

177

178

1.1.1 FUNCTIONAL DESCRIPTION

179

180

181

THIS PROGRAM CAN BE

182

TEST, OR A COMPATABILITY TEST,

183
184
185

211
212
213
214
215

MEMORY MAP
- e e
0!
'
'
VECTOR
'
'
409 ! --- eooiao-.
'
'
!
STACK
'
2000

41000

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

OIAGNOSTIC
SUPERVISOR

216

217
218

-4

1.1.3

w
-

204
205
206
207
208
209
210

TEST,

A DATA RELIABILITY

THIS DIAGNOSTIC IS A SINGLE PROGRAM
FROM THE STANDPOINT OF THE
DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL
MODULE RELEASED INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR.

199

200
201
202
203

A BASIC FUNCTION

191

192
193
194
195
196
197
198

1.1.2 STRUCTURE OF PROGRAM

186

187
188
189
130

USED

72000

TSVOS DATA RELIABILITY

MACRO M1113

14 JUN-84 18:32

SEQ 0005

219
220

221
222

7777

223
224
225

1.1.4 DIAGNOSTIC

1.1.4.1

266
267
268
269
270
271
272
273

274
275

INFORMATION

SCOPE
THIS DIAGNOSTIC CAN TEST ONE CONTROLLER AND UP TO 2 DRIVES.
ARE ASSIGNED LOGICAL DRIVE NUMBERS O - 1 8y THE DIAGNOSTIC.
ARE S5 TESTS

TEST
TEST
TEST
TEST
TEST

THE

2 DRIVES

IN THIS PROGRAM:

1 - BASIC FUNCTIONS.
2 - DATA RELIABILITY,
3 - WRITE COMPATABILITY/WRITE UTILITY,
4 - READ COMPATABILITY/READ UTILITY.
S - RANDOM/OPERATOR SELECTED SEQUENCE UTILITY.
1]

THERE

241

263
264
265

SPACE FOR WR/RD BFRS OR OTHER PUROSES

IS ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN
8Y PROGRAMMER TO RESIDE BETWEEN THE DIAG ANC THE
SUPERVISOR.

240

242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
26l
262

FREE MEMORY

226

227
228
229
230
231
232
233
234
235
236
237
238
239

1.1.4.2 ERROR RECOVERY

ERROR RECOVERY IS PERFORMED ON READ, WRITE AND WRITE TAPE MARK FUNCTIONS
UNLESS ERROR RECOVERY IS INWMIBITED BY THE OPERATOR AT START UP TIME.
THE READ FORWARD/READ REVERSE RETRY LIMIT

AND 8 IN THE OPPOSITE DIRECTION).

PROCEDURES,

REFER TO

16 (8

IN THE

SAME DIRECTION

FOR MORE OETAILED INFORMATION ON ERROR RECOVERY

SECTION 3.0 (ERROR REPORTING) OF

THIS LISTING.

1.1.4.3 WRITE ERROR RECOVERY

THERE ARE 2 , SELECTABLE WRITE-ERROR-RECOVERY ALGORITHMS USED 8Y THIS DIAGNOSTIC:
1.
MEDIA/OPERATIONAL SELECTIVE ALGORITHM
OPERATIONAL ALGORITHM
2.
BY DEFAULT THE DIAGNOSTIC SELECTS THE FIRST ALGORITHM TO IDENTIFY
MEDIA RELATED WRITE ERRORS FROM OPERATIONAL ONES.
TO SELECT THE SECOND ALGORITHM:
ANSWER 'Y’ TO
CHANGE SW (L) ?
ANSWER ‘N’ TO
BAD TAPE SPOT DETECTION (L)

IF ERROR RECOVERY IS INHIBITED,

THE LATTER QUESTION IS NOT ASKED

AND BOTH ALGORITHMS ARE BYPASSED.

1.1.4.3, 1 MEDIA/OPERATIONAL SELECTIVE WRITE-ERROR RECOVERY ALGORITHM
SCOPE
THIS ALGORITHM IDENTIFIES MEDIA RELATED WRITE ERRORS FROM

(]
TSVOS DATA RELIABILITY

MACRO Mi113

14 JUUN 84 18:32

SEG 0006

276

OPERATIONAL

278

ALGORI THM

280

A WRITE RETRY

277

279

281

282
283
284
285
286
287
288

G SUSPECTED
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
ABORTED,
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332

ONES.

SUBROUTINE

IS CALLED BY

THE RECOVERABLE ERROR

ENTERED UPON DETECTIION OF A WRITE RECOVERABLE ERROR.

TFETI'ME!ITE
4
S.

RETRY

SUBROUTINE

IF ALL 4 REPEATS ARE GOOO,

A RECOVERABLE WRITE ERROR

ATTEMPTS

TO REWRITE

THE RECORD

SUBROUTINE

IN SAME

SPOT

WHICH
ON

TAPE

THE RECORD IS CONSIDERED AS RECOVERED ANOD
IS LOGGED AT

IF ANY OF THE 4 REWRITE ATTEMPTS FAIL,

THAT

RECORD NUMBER.

THE ROUTINE WILL ERASE

THE BAD RECORD,

AND LO

BAD SPOT AT THAT RECORD NUMBER,THE ROUTINE WILL THEN ATTEMPT TO
WRITE THE RECORD AGAIN 3 INCHES FURTHER DOWN TAPE AND
RETRY THIS SEQUENCE 4 TIMES, FOR UP TO 4 REPEATS EACH.

IF A RECORD CANNOT BE WRITTEN WITHOUT RECOVERABLE ERRORS
THEN THE ROUTINE WILL ERASE THE RECORD AND

AFTER 4 RETRIES,

REPORT RETRY FAILED ON BAD SPOT.

THE RECOVERABLE ERROR SUBROUTINE THEN CONTINUES TO CALL THE WRITE
RETRY SUBROUTINE, WHICH REISSUES THE GROUP OF 4 RETRIES,

UNTIL THE RECORD IS RECOVERED OR 20 BAD SPOTS HAVE BEEN

LOGGED

TWENTY (20) BAD SPOTS MAXIMUM ARE ALLOWED PER BOT TO EOT PASS OF TAPE.
WHEN 20 BAD SPOTS HAVE BEEN LOGGED, WETHER ON THE SAME RECORD NUMBER OR NOT,
TAPE IS CONSIOERED DEFECTIVE:
A BAD TAPE OVERFLOW MESSAGE IS PRINTED
AND THE UNIT IS REWOUND, THEN DROPPED.

ODURING THE RECOVERY PROCESS,
POSITIONING

OPERATIONS:

IT IS NECESSARY TO PERFORM SEVERAL TAPE

SPACE REVERSE,

ERASE.

A POSITION ERROR

IS DETECTED IN THE STATUS WORD DURING THOSE OPERATIONS,

THEN THE RECOVERY ATTEMPT IS

AN APPROPRIATE UNRECOVERABLE ERROR MESSAGE IS PRINTED AND THE UNIT IS DROPPED.

ALL BADLY WRITTEN RECORDS LOGGED WITH RECOVERABLE ERRORS ARE ERASED
UNTIL RECOVERED, INCLUDING THE RECORD AT THE 20TH BAD SPOT,
SO THAT ALL RECORDS LEFT ON TAPE ARE KNOWN GOOD WRITTEN RECORDS.

BAD SPOTS ARE ERASED WITH ERASE GAPS FROM 3 TO 12 INCHES

PER RETRY GROUP.

UP TO 20 FEET OF ERASE GAP COULD RESULT WHEN RETRYING TO RECOVER
A SINGLE RECORD.

THAT LONG STRETCH OF BAD TAPE WOULD THEN BE LOGGED WITH 20

BAD SPOTS AT SAME RECORD NUMBER AND THE TAPE CONSIDERED DEFECTIVE.
BAD SPOTS REPORTS

IF THE PRINTING OF RECOVERABLE ERRORS IS ENABLED,

IDENTIFIED AS THEY ARE DETECTED.

THE BAD SPOTS ON TAPE ARE

SINCE THE BAD RECORDS ARE ERASED UNTIL RECOVERED,

THE BAD SPOT ACTUALLY PRECEDES THE RECORD NUMBER THAT IDENTIFIES IT.
THE NUMBER OF REPCATS AND RETRIES ATTEMPTED IS PRINTED, FROM WHICH THE

LENGTH OF ERASE GAPS CAN BE DETERMINED:

APPROXIMATELY 3 INCHES PER RETRY.

THE STATISTICAL REPORT PRINTED AT THE END OF TEST 2 OR UPON A “PRINT" REQUEST,
CONTAINS A SUMMARY OF THE BAD SPOTS LOGGED ON THE CURRENT PASS OF TAPE.
IN THAT REPORT, ALL COUNTS ARE CUMULATIVE FROM PASS TO PASS, EXCEPT FOR
THE NUMBER OF BAD SPOTS: IT RELATES TO A “BOT TO EOT TAPE PASS" ONLY.
FOR THIS PURPOSE, A "TAPE PASS” IS A WRITE PASS FROM BOT TO EOT, OR FROM

- |
TSVOS DATA RELIABILITY

MACRO Mi113

14 JUN 84

18:32

SEQ 0007

333
334

B80T

335
336
337
338
339
340

ON ALL UNITS SELECTED.

343
344
345
346
347
348

TO CLEAR CUMUALATIVE COUNTS, ANSWER 'Y’ TO:
CLEAR COUNTERS (L) Y 2.
THE BAD TAPE SPOTS COUNT IS THEN CLEARED WHEN WRITING THE TAPE FROM B80T.

LL THE TESTS REQUESTED

341
342

349

350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371

372
373

574
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389

TO WHERE

THE DIAGNOSTIC

IS HALTED BEFORE REACHING EOT.

DON T CONFUSE THIS WITH A PASS 8y THE SUPERVISOR WHICH IS DEFINED AS A RUN THROUGH A ’
THOSE PASSES ARE IDENTIFIED AS

THE NUMBER OF WRITE RETRIES,

CUMUWLATIVE FROM PASS

"PASS” AND

T0 PASS,

"EOP",

A GLOBAL

COUNT OF HOW MANY TIMES THE GROUP OF 4 RETRIES HAS BEEN CALLED.
THE NUMBER OF WRITE RECOVERABLE ERRORS EXCLUDES BAD TAPE SPQOTS
AND REFLECTS THE SPECIFICATIONS OF THE HARDWARE UNDER TEST.

IF TEST 2 IS HALTED, THEN RESTARTED OR CONTINUED, THE RECORD COUNT
IS RESET TO ZERO AND THE BAD SPOT ID SHALL FOLLOW THAT
RESET COUNT.
SINCE ALL WRITTEN RECORDS ARE KNOWN GOOD, THE READ ERRORS CAN
BE ATTRIBUTED TO TRANSIENT NOISE, TRANSIENT ELECTRICAL MALFUNCTIONS,
OR CONTAMINANTS ON TAPE AS OPPOSED TO TAPE DEFECTS.
THE
FOR

SAME RECORDS MUST BE WRITTEN FROM TAPE PASS 10 TAPE PASS
THE BAD SPOTS ID TO REMAIN CONSISTENT IN THOSE TAPE PASSES.

EXAMPLE OF A PRINT OUT FOR A BAD SPOT ON TAPE:

CVTSE SFT ERR

00009 ON UNIT 00 TST 002 SUB 000 PC:

RECOVERABLE ERROR

WRT CMD FAILED - UNIT O
PREVIOUS CMD WAS
WRT

CMOPKT
100205
026600

TSBA
002406

RFC
000000

PASS:

RECORD:

012100

TSSR
TCC
4
100210

000000
003107
XSTO
000350

XST1
XST2
XST3
000002
100400
000000
SUSPECT BAD SPOT AFTER 1 RETRY,
SUSPECT BAD SPOT AFTER 2 RETRY,
SUSPECT BAD SPOT AFTER 3 RETRY,

SUSPECT BAD SPOT AFTER 4 RETRY,

XST14
000000
2 REPEAT
1 REPEAT
1 REPEAT

3 REPEAT

RETRY FATLED ON BAD SPOT...ERASED!

SUSPECT BAD SPOT AFTER 1 RETRY,
SUSPECT BAD SPOT AFTER 2 RETRY,

CVTISE SFT ERR

00009 ON UNIT OO TST 002 SUB 000 PC:

RECOVERABLE ERROR
WRT CMD FAILED - UNIT O
PREVIOUS CMD WAS
WRT

CMOPKT
100205

TSBA
002406

1 REPEAT
1 REPEAT

RFC
000000

026600
000000
004000
XSTO
XST1
XST2
000350
000002
100010
RECOVERED ON RETRY ¢ 1

PASS:

TSSR
T1CC
4
100210

XST3
000000

XST4
000000

RECORD:10c10

012100

TSVOS DATA RELIABILITY

MACRO M1113

14-JUN-84 18:32

390
391

tC
DR>PRI

393
394
39S
396

UNIT O
PASS:
BYTES WRITTEN
BYTES READ REV
BYTES READ REV

298

RECOVERABLE ERRORS

400

WRITE RETRIES

392

397

399

SEQ 0008

1
RECORD:10210
0,272,279,691
0,301,123,654
0,301,120,381

WRT

ROR

ROF

UNRECOVERABLE ERRORS

401

402

2 BAD SPOTS THIS TAPE PASS PRECEDING RECORD #:

404

SPEC COND

403

405
406

DR>

408

THIS

407

409
410
411
412
413
41;

EXAMPLE

HARD

FATAL

COMPARE
0

SHOMWS:

RECORD 6 RECOVEREC ON 2ND RETRY GROWP
THE 2 BAD SPOTS RESIDE IN A 18 INCH ERASE GAP BETWEEN RECORDS S AND 6
RECORD 10210 RECOVERED ON 1ST RETRY OF 4 GOOD REPEATS
3 WRITE GROUP RETRIES ATTEMPTED, RESULTING IN:
1 RECOVERABLE
WRT ERR FROM RECORD 10210
2 BAD SPOTS BETWEEN RECORDS S AND 6

41
416

417

418

419

1.1.4.3.2

OPERATIONAL WRITE-ERROR-RECOVERY ALGORITHM

420

WHEN THIS ALGORITHM IS SELECTED,

428
:gg

IF RECORD CANNOT BE RECOVERED AFTER 16 WRITE RETRY COMMANDS,
A RETRY LIMIT EXCEEDEC IS FLAGGED AND UNIT IS DROPPED.

421
422
423
424
425
:gg

431

:gg
434
435

436
437

438
439
440
441
442
443

444
445
440

THE

TSVOS WRITE RETRY COMMAND

IS ISSUED UP TO 16 TIMES OR UNTIL RECORD IS RECOVERED, ON
A WRITE RECOVERABLE ERRQR.
THE WRITE
RETRY COMMAND CONSISTS
OF A SPACE REVERSE OVER THE BAD RECORD, THEN AN ERASE OF 3 INCHES
OF TAPE AND REWRITE OF THE RECORD.
THAT COMPOSITE COMMAND
DOES NOT ALLOW THE DETECTECTION OF BAD SPOTS ON TAPE.
THEREFORE NO BAD TAPE SPOTS STATUS IS PRINTED.

1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT
A NUMBER OF SUPERVISOR TIMING DELAY MACROS, KNOWN AS WATCH DOG
DELAYS, ARE CALLED BY THE DIAGMOSTIC 7O WAIT FOR VARIOUS COMMANDS
COMPLETION.
THESE DELAYS ARE NOT CALIBRATED AND SIMPLY EXPANDS
INTO AN INLINE NESTED LOOP PAIR,
THE COUNT FOR THE OQUTER LOOP
COMES FROM THE VARIABLE ARGUMENT SUPPLIED BY THE DELAY CALLS.
THE COUNT FOR THE INNER LOOP COMES FROM THE FIXED "HEADER"
ELEMENT “L$DLY",
AS THE DIAGNOSTIC IS RUN ON DIFFERENT CPU'S, THESE DELAYS WILL
VARY IN LENGTH WITH MEMORY SPEED.

IF TIME-OUT OCCURS WHEN NO APPARENT MALFUNCTIONS IN THE TAPE
UNIT IS EVIDENT, ALL TIMINGS OF THE DIAGNOSTIC MAY BE ADJUSTED
TO MATCH MEMORY SPEED AND NOT RESWT IN TIME-OUTS, BY PATCHING

TSVOS DATA RELTABILITY
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
402
463
464
465
466
467
468
469
470
471
472
473
474
47%
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
{95
496
497
498
499

S00
S01
502
503

MACRO MI1113

14-JUN-84

18:32
THAT FIXED DELAY

ELEMENT

A PRESET

COUNT

‘HEADER"

SECTION.

SEQ 0009

'L$D_v'.

SO0 RESIDES

'L$OLY'

IN LOCATION 2116

THF

1.2 SYSTEM REQUIREMENT

1.2.1

HARDWARE REQUIREMENTS
POP-11/23 PROCESSOR WITH 32K OR MORE

CONSOLE DEVICE (VT52,LA36,ETC.)

MEMORY

PROGRAM LOAD DEVICE
TSV05/1S05

1.2.2

SOFTWARE REQUIREMENTS
DIAGNOSTIC SUPERVISOR

1.3 RELATED DOCUMENTS AND STANDARDS
DIGITAL EQUIPMENT CORPORATION DOCUMENTS:

CIQPMAO XXDP+
PROGRAMMER'S
DATE: 14 JULY 1980.

MANUAL
;

OOCUMENT

NUMBER AC-S296A AC

TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE:
DATE: AUGUST 1982

DOCUMENT NUMBER EK-TSVO0S-UG-001

TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL;
DATE: AUGUST 1982

TSVOS TRANSPORT 5SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS IN-001
DATE: AUGUST 1982

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES
ORDER OF HOST CPU DIAGNOSTIC USAGE
:
1)

CONTROL LOGIC PROGRAM

ALL

(VTSA,VTSB,VTSC,VTSD)
2)

DATA RELIRBILITY PROGRAM:
R)

B8)

BASIC FUNCTION TEST.

OATA RELIABILITY

TEST.

TESTS.

DOCUMENT NUMBER EK-TSV05-TM-001

TSVOS DATA RELIABILITY
504
505

506

MACRO M1113

14 JUN 84 18:32

SEQ 0010

1.5 ASSUMPTIONS

S07

508

509

THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK

510

PROPERLY.

S11
512

D0 NOT FUNCTION PROPERLY.
VTSA,VTSB,VTSC, AND VTSD HAVE ALL

513
S14

FALSE

ERRORS

MAY

REPORTED

THE

PROCESSOR,

MEMORY,

SUCESSFULLY RUN WITHOUT ERRORS,

ETC.,

TSVO0S DATA RELIABILITY
516
519

520
S21

522

MACRO M1113

SEQ 0011

14 JUN 84 18:3¢2
2.0 OPERATING INSTRUCTIONS
THIS SECTION CONTAINS A BRIEF DESCRIPTION OF

SERVICES.

COMMANDS

525

THERE ARE ELEVEN LEGAL COMMANDS FOR

52~
528

BRIEF DESCRIPTION OF THEM.,

526

THE RUNTIME

FOR DETAILED INFORMATION, REFER TO THE XADP. USER'S MANUA. "CH@JS).

(SUPERVISOR).

529
S31

THE DIAGNOSTIC RUNTIME SERVICES

THIS SECTION LISTS THE COMMANDS AND GIVES A VERY

THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

532

RESTART

START

START THE DIAGNOSTIC FROM AN INITIAL STATE

533
534

CONTINLE
PROCEED

CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C)
CONTINUE FROM AN ERROR MALTY

535

START

THE

DIAGNOSTIC

WITHMOUT

INITIALIZING

536

ADD

EXIT

RETURN TO XXDP. MONITOR (XXDP. OPERATION ONLY!)

538

OROP

DEACTIVATE A UNIT

540
541
542
543

DISPLAY
FLAGS
ZFLAGS

B8Y THE DIAGNOSTIC)
TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE STATE OF ALL FLAGS
CLEAR ALL FLAGS

537

539

S44

545
546

547

548
549
550

551

552
SS53
gg;

556

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START TIr

PRINT STATISTICAL INFORMATION (IF IMPLEMENTED

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY, FOR EXAMPLE, TYPE ~STA' INSTEAD OF ~START",
OPERATOR COMMANDS
THE TSvVOS DIAGNOSTIC IS A POP-11/23

AC-S296A-AC.

THE USER ENTRY

ROOT THE DIAGNOSTIC xxDP MEDIA

560
S61
562
563

800TED VIA UNIT O
ENTER DATE (DO-MMM-YR):
RESTART ADORFSS: 153726
S0 HZ? N " «CR> *

565

THIS IS XXDP..

564

566

S67
568
569
s70

s571

572

DIAGNOSTIC

SUPERVISOR

COMPATIBLE

PROGRAM
ALL LOADING AND RUNTIME INSTRULTIONS CAN BE REFERENCED IN THE
PDP-11 PROGRAMMER'S MANUAL “CIQPMAQ XXDP. PROGRAMMERS MANUAL, NMUMBER

gg‘l

8
559

CHMDLBO XXDP.

LSI? N

DL MONITOR 28K

Y<CR>

R VTISEAO

IN QUOTES.

TYPE

ENTER DATE JR ST <CR>»

“M"” OR 'H,.L

FOR DETAILS

VISEAOBINDRS LOADED
DIAG. RUN-TIME SERVICES REV D. APR 79
CVISE-A-O
TSVOS DATA RELIABILITY

UNIT IS TSvOS

TSVOS DATA RELIABILITM!

573
574

MACRO M1.1%

84
14 JUN

18:8%¢2

SEQ 0012

SHITCHES

S77

578
579

580
58]
582
583
584
585
586
587
588
589

THERE

‘&

593
594
595

598
599
601
602
603

605
607
609
610
611
612
613
614
615
616
617
618

619
620
621
622
623
624
625
626
627
628
629

SWITCHES WHICH ARE

USED

7O MODIFY

SUPERVISOR OPERATION.

SWITCH

EFFECY

+TESTS:LIST

EXECUTE ONMLY TMOSE TESTS SPECIFIED IN
THE LISY.
LIST IS A STRING OF TES?
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7.10.
THIS LIST wILL CAUSE TESTS 1.5.7.8.9.10 'C
B8E RUN.
ALL OTHER TESTS WILL NOT BE Rum.

/7PASS : DDOOO
/FLAGS :F'.GS

590
<91
592

597

SEVERAL

THESE SWITCHES ARE APPENDED TO THE LEGAL COMMWANDS.
ALL OF TWE LEGAL
SWITCHES ARE TABUWWATED BELOW WITH A BRIEF DESCRIPTION OF EACHM.
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGMATED 8' -DODOO-.

EXECUTE DOODD PASSES (DDOOD SET SPECIFIED FLAGS.

10 64000)

/€0P : 0000

REPORT END OF PASS MESSAGE AFTER EVERY

JUNITS:LIST

TEST/ADD/DROP OMLY THMOSE UNMITS SPECIFIED

OODOO PASSES OMLY.

(DODOO =

O 64000

IN THE LIST.
LIST EXA®PLE
7UNITS$:0:5:10 1¢
USE UNITS 0,5 10.11,12 (UNIT MUBERS - 0-63°

EXAMPLE OF SWITCH USAGE
:

START/TESTS:1-S/PASS:1000/E0P: 100
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS I "TMROUGH S wilL. BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) TE END OF
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES O Y.
A
SWITCH CAN BE RECOGNIZED BY THE FIRST TMREE CHARACTERS.
0L MAY,

FOR EXAMPLE,

TYPE

~/TES:1-5~

INSTEAD OF

-/TES'S-1

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED B+ EACTM
COMMAND.

TESTS

PASS

FLAGS

EOP

UNITS

X
X

X
)4

X
)|

)|
X

START
RESTARY

CONTINUE

PROCEED
OROP
AGD

OISPLAY

X
X

X
X
X

FLAGS

ZFLAGS
ExIT

FLAGS ARE

USED TO SET

UP CERTAIN OPERATIONAL

PARNE TERS

SUCr A5

575

576

TSVOS DATA RELIABILITr

MACRO M111%

JUN A4

18:3¢

3 001°

630

LOOPING ON ERROR.

631

CLEARED

632

633

634

635

636

UNTIL

ALL FLAGS ARE CLEARED AT STARTUP AMD RETMA
N

EXPLICITLY

SET

USING

Tr€

FLAGS

SMITCW.

F_AGS

ARE ALSO CLEARED AFTER A START COMMAND UMLESS SET USING T

FLAG

SWITCH.,

ALL FLAGS.

THE

ZFLAGS

MAY

ALSO BE

USED

CLEAR

WITH THE EXCEPTION OF THE START AND ZFLAGS COYWNO:
.,

COMMANDS

AFFECT

THE

CLEARED AS SPECTFIEC BY

617

COMMAND

STATE

THE

FLAGS:

THEY

THE LASY FLAG SWITCH

REMAIN

TE”

638

F_AG

EFFECT

640

HOE

HALT ON ERROR - CONTROL IS RETRMNED 'O

642

LOE

LOOP ON ERROR

644

IBRe

639

641

643

649

PRI

651

1:10,3

650

INHIBIT

655

656

INMIBIT

EXTENDED ERROR REPORTS

PRINT TEST NUMBER AS TEST EXECUTES

“BELL” ON ERROR

UNATTENDED MODE (ND MANUAL INTERVENTION)
INMIBIT STATISTICAL REPORTS (DOES NOT

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT
STATISTICAL REPORTING)

IDOR

INMIBIT PROGRAM DROPPING OF UNITS

ADR

EXECUTE

ggg

LoTv

LOOP ON TEST

662
6612
664
gg“;

CODE

IN SECTION 3.1

SEE THE XXDPe+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LCOP ON ERROR, INHIBIT ERROR REPORTS
AND

TYPE

"BELL”

ON ERROR,

YOU MAY

USE

THE

FOLLOWING

STRING:

/FLAGS:LOE: IER:BOE

668

L
672

AUTOOROP

sERROR MESSAGES ARE DESCRIBED

667

669
6;0

( TMOSE

DIRECT MESSAGES TO LINE PRINTER

657

220
1

ERROR REPORTS EXCEPTY

CALLED BY PRINTX MACRO'S)

UAM
ISR

654

ALL

FIRST LEVEL
(FIRST LEVEL CONTAINS
ERROR TYPE, MMBER, PC, TEST AND UNIT®

PNT

652
653

INHIBIT ALL ERROR REPORTS

IXEs

6 o

RUNTIME SERVICES COrMAND TMO0D€

IERe

645
646

2.1 HARDWARE PARAMETERS
e
T
-

673
‘6:_7’;

ON A "N" RESPONSE TO "CHANGE HuW?', THE DIAG SHALL RUN ASSUMING
ONE UNIT AT TSDB = 172520 WITH A VECTOR = 224 AND DRIVE=0.

676
677
678

ON A "Y" RESPONSE TO “CHANGE HW?" QUESTION, THEN
THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULLT

631

TSOB ADDRESS (0)

683
684

VELTOR (0) 224

€79
680

682

68%
6RE

VALUE

SELECT

THAT WILL

DRIVE

TAKEN ON A CARRIAGE

172520

0-1

(0)

RETURN RESPONCE.

TSVOS DATA RELIABILITY

MACRO M1113

14 JUN 84 18:32

SEN 0014

68"

THE

VALIDITY

O+

THESE

688

SETTING

THE

FLAG

689

THE

SO CALLED AUTO DROP

690

PARAMETERS CAN BE
"ADR”

CODE

692

WITH THE FOLLOWING MESSAGE
:

694

THE

BUS TRAP AT

€95
696

697

698
699
700
701
702
703

704

705

706

07
708

709
710
711

STA,

RES

TSDB(S).

NO RESPONSE,

XXXXXX

(

ON A RESPONSE FROM THE INTERFACE,

COOE

THE

UNIT(S)

XXXXXX

IMMEDIATEL
r

TSDB AD

)

SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME.

2.2 SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED WHEN (NE ANSWERS YES TO THE CHANGE SOF TWARE

QUESTION ON A START,
THEY

RESTART,OR CONTINUE.

ALLOW FLEXABILITY

THE

WAY

THE

2
723

INIT

IF THE "ADR* FLAG IS NOT SET, THE READY AND OFF -LINE STATUS OF THE
DRIVE IS
CHECKED.
A MESSAGE SHALL BE PRINTED EVERY SO OF TEN
TO WARN THE OPERATOR OF DRIVES BEING NOT READY OR OFF -LINE. THESE DRIVES

721

THE

TESTS

THE MARDWARE TESTS SHALL THEN

RESET RANDOM VARIABLES (L) N ?

719
20

AFTER

THE

THE UNITS THAT ARE NOT READY OR NOT

ON-LINE ARE DROPPED IMMEDIATELY.
BE RUN ON RESPONDING UNITS.

s
71

COMMAND.

EXECUTED

INTERFACE BAD OR NOT SET TO ABOVE ADORESS.

CLEAR COUNTERS (L) Y

CON

RUNNING

THAT CODE FIRST TESTS THE ADRRESS

DROPS

12
713

THEN BE

AND BEFORE THE HARDWARE TESTS ARE RUN.

691

693

SMALL

CHECKED BEFORE

RECOVERABLE

PROGRAM BEHAVES.

ERRORS

(L)

MALT AFTER EACH CMD (L) N

INHIBIT RECOVERY (L) N ?
BAD TAPE

SPOT DETECTION (L)

725

DISABLE INTERRUPTS (L) N ?

127

INHIBIT RFC ERROR REPORTS (L) N

129

CHANGE CHMD SEQUENCE (L) N ?

(SEE NOTE1:)

131

DEFAULT SWITCH SETTINGS (L) Y ?

733
734

100IPS (L) N

135

WRITE BUFFERING (L) N ?

737
738
739
740
741
742
743

READ BUFFERING

(L)

ANSWERING NO TO THE DEFAULT SWITCH QUESTION WILL
100 IPS QUESTION TO BE ASKED.
ANSWERING

YES

THE

100

IPS QUESTION WILL

CAUSE

INWMIBIT

THE

LAST

TSVOS DATA RELTIABILITMY

MACRC M111%

14 JUUN 84 18:3°2

SEq 0019
TWO QUESTIONS.

~44
>45

ANSWERING NO TO THE

746
747
748

CAUSE

THE

ANSWERING YES TO THE WRITE BUFFERING QUESTION WILL
LAST QUESTION.

749
750
S51
752
753
754
755
756
757
758
759
760

WRITE

INMIBIT

ANSWERING NO TO THE WRITE BUFFERING QUESTION WILL CAUSE

READ BUFFERING QUESTION TO BE ASKED.

763

® OF OPERATIONS (D)
PATTERN (D) 7 ?

764

765
766
767
768
769
770

CMD/3 (D) 4 ?
BRF COUNT (D) 2048 ?
® OF OPERATIONS
PATTERN (D) 7 ?

(D) 32000

CMD/4 (D) 3 ?
BRF COUNT (D) 2048 ?

772
773
774

® OF OPERATIONS (D)
PATTERN (D) 7 ?

32000

® OF OPERATIONS
PATTERN (D) 7 ?

(D)

32000

® OF OPERATIONS
PATTERN (D) 7 ?

(D)

CM0/S (D) 2 ?
BRF COUNT (D) 2048 ?

775

776
777
778
779
780
781
782
783
784

CH0/6 (D) 13. ?
BRF COUNT (D) 1 ?

CMD/7 (D) 27. ?
BRF COUNT (D) 2048 ?

785
786
787

32000

@ OF OPERATIONS (D)

32000

PATTERN

NOTE:

(D)

ONLY:

(O ,20,40,200) (OCTAL)
(1-27)
(DECIMAL)
(1-2¢)
(OECIMAL)

® OF OPERATIONS (D)
PATTERN (D) 7 ?

CMD/8 (D) 27. ?
BRF COUNT (D) 2048 ?

788
789
790
791
792
793
794
795
796
797
798
799

THE

THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN
OPERATOR SELECTED SEQUENCE IS T0O BE EXECUTED.
IF THIS QUESTION WAS ANSWERED Y, THE FOLLOWING
QUESTIONS MUST BE ANSWERED OR DEFAULTED WITH A <«CR>

CHARACTERISTICS COOE (0) 40 2
CMD/2 (D) 13 ?
B8RS COUNT (D) 1 ?

761

THE

NOTE1l:

762

800

100 IPS QUESTION WILI

BUFFERING QUESTION TO BE ASKED.

(1-32x)
(0-8)

(DECIMAL)
(DECIMAL
)

(1-32¢)
(0-8)

(DECIMAL)
(DECIMAL)

(1-27)
(1-2x)

(1-27)
(1-2¥)

(1-32¢)
(0-8)

(OECIMAL)
(DECIMAL)
(DECIMAL)
(DECIMAL)
(DECIMAL)
(DECIMAL)

(1 27)
(1-2¢)

(OECIMAL)
(DECIMAL)

(1-27)
(1 2¢)

(DECIMAL)
(DECIMAL)

(1-32x)
(0-8)

(DECIMAL)
(DECIMAL)

(1 32K)
(0-8)

(DECIMAL)
(DECIMAL)

(1-32K)
(0-8)

(DECIMAL)
(DECIMAL)

(1-27)
(1-2¢)

(DECIMAL)
(DECIMAL)

(1-27)
(1 2x)

(DECIMAL)
(DECIMAL)

(0-8)

(DECIMAL)

(1-32x)

(DECIMAL)

THE PROGRAM AUTOMATICALLY INSERTS A CHARACTERISTIC COOE OF

AS THE FIRST COMMAND IN THE

SEQUENCE

TABLE.

1IF

OIFFERENT CHARACTERISTIC IS DESIRED, THE OPERATOR SHOWRD
ENTER THAT CHARACTERISTIC COOE.
A TOTAL OF 7 COMMANDS
MAY BE ENTERED IN ADDITION TO THE

SET CHARACTERISTICS

COMMAND.
IF THE OPERATOR WISHES TO USE LESS THAN 7
COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN A
CONTROL Z (*Z) CAN BE ENTERED TO YERMINATE SOF TWARE DIALOGUE
.

2.2.1

COMMAND LIST FOR USE IN SOF TWARE DIALOGUE.

MACRO M1113

14 JUN-84 18:32

VB W §

(=]

801
802

803

804

805
806

8C7

WO N

808
809
810
811
812
813
814
815
816

817

818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852

SEN 0016

ORI

ROF
ROR

WRT
WiV

SRF
SRR

ORIVE INITIATE.

READ FORWARD.
READ REVERSE.
WRITE.
WRITE/VERIFY, IE. WRITE N RECORDS; READ REVERSE AND CHECV
N RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS.

SPACE RECORDS FORWARD.
SPACE RECORDS REVERSE.

RNF
RPF

READ NEXT REVERSE,
READ NEXT FORWARD,
READ PREVIOUS FWD,

RWO

WRITE RETRY,
REWIND.

READ PREVIOUS REV,

IE.
IE.
IE.

SPACE FWD, READ REV.
READ FWD, SPACE REv.
SPACE REV, READ FWD.

IE. READ REV,

MBR

MESSAGE BLFFER RELEASE
.

SFF
SFR
GES
ERS

WTM
WIR

SPACE FWD.

WRITE TAPE MARK
WRITE TAPE MARK RETRY,

SPACE FILES FORWARD.
SPACE FILES REVERSE.
GET EXTENDED STATUS.
ERASE 3 INCHES OF TAPE.
UNLOAD.
CLEAN TAPE
SET DEVICE CHARACTERISTIC.
WHERE BRf =200, 40, 20, O.
200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT)
40 = ENABLE ATTENTION INTERRUPTS.
20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS.
SEE TSV03/7S05 PROGRAMMING SPECIFICATION FOR DESCRIPTION.
JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE

OLY

OELAY “N* MILISECONDS WHERE N IS ODEFINED IN

ENO

END OF COMMAND SEQUENCE
.

CLN
SCH

2.2.2

DESCRIPTION

COMMAND

TABLE, WHERE N IS DEFINED IN THE BRF FIELD.
THE NUMBER OF JUMPS IS ENTERED IN THE 0 OF OPERATIONS FIELD

THE

@ OF OPERATIONS.

DOATA PATTERN LIST FOR USE IN SOF TWARE DIALOGUE.
PATTERN ¢

D®NON
D GN -

TSVOS DATA RELIABILITY

DESCRIPTION.
INCREMENTING PATTERN.
ALL “1"'S PATTERN,
ALL "0"'S PATTERN,

377.

“1* BIT WALKING FROM R TO L IN A FIELD OF
“0* BIT WALKING FROM R TO L IF A FIELD OF

ALTERNATING “1” AND "0”

BITS WITH ALTERNATE BYTES COMPLIMENTED.

ALTERNATING BYTES OF OO0 AND 377,

RANDOM DATA PATTERN,

NO PATTERN GENERATION.

"0"'S.
"1"'S.

TSVOS DATA RELIABILITY
854

MACRO M111t

14 JUN 84
2.3

18:32

SEN 0017

EXAMPLES OF

85S
856
857
858
859

SOF TWARE

DIALOGUE

CHANGE MW (L)
OUNITS (D)

860
861

TSOB

862
863
864
865

ADDRESS

VECTOR

(0)

(0) 224

172520

SELECT ORIVE 0-1

(0)

866

867
868
809

870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894

895

896

897

898
899
900
901
902
903
904
905
906
907
908
909
910

IN ADDITION,

REQUESTS
FOLLOWS:

ON A START,

CHANGES

THE

CHANGE SW (L)

2.3.1

RESTART OR CONTINUE

SOF TWARE

SUPERVISOR
AS

BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED
R)

8)
C)
0)

RECEIVE PROMPT (DR>)
ENTER STA/TES:1-2<CR>
ANSWER HARDWARE QUESTIONS.
PROCEED WITH THE FOLLOMING DIALOGUE
:

CHANGE SW (L)

Y<CR»>

CLEAR COUNTERS (L) N ?

RESET RANDOM VARIABLES (L) N ?
PRINT RECOVERABLE ERRORS
(L) N
HALT AFTER EACH CMD (L) N ?

INMIBIT RECOVERY (L) N ?
BAD TAPE SPOT DETECTION (L) Y
DISABLE INTERRUPTS (L) N ?

Y<CR>
?

INMIBIT RFC ERROR REPORT (L) N ?
CHANGE CMD SEQUENCE (L) N ?
DEFAULT SWITCH SETTINGS (L) Y ?

2.3.2

THE

OPERATING PARAMETERS,

TO SET UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS.
A)

8)
C)
0)

RECEIVE PROMPT (DR»>)
ENTER STA/TES:1/FLA:LOE:IER:ISR:
IDU<CR>
ANSWER HARDWARE QUESTIONS.
PROCEED WITH THE FOLLOWING DIALOGUE
:

CHANGE SW (L) ?
CLEAR COUNTERS (L) N ?

RESET RANDOM VARIABLES (L) N ?
PRINT RECOVERABLE ERRORS
(L) N
HALT AFTER EACH CMD (L) N ?

INHIBIT RECOVERY (L) N ?
BAD TAPE SPOT DETECTION (L) Y
DISABLE INTERRUPTS (L) N ?

Y<CR>
Y<CR>

N<CR>
N<CR>
N<CR>

N<CR>
N‘CR>
N<CR>

TSVOS DATA RELIABILITY

MACRC M1113

14-UUN 84 18:32

SEQ 0013

INHIBIT RFC ERROR REPORT (L) N ?
CHANGE CMD SEQUENCE (L) N ?
DEFAULT SWITCH SETTINGS (L) Y ?

911
912

913
914
915
916

2.3.3

917
918
919

RECEIVE PROMPT (DR>)

ENTER STA/TES:5/FLA:IER:ISR:IDU/EOP:1000<CR>
ANSWER HARDWARE QUESTIONS.
PROCEED WITH THE FOLLOWING DIALOGUE:

921
922

CHANGE SW (L) ?
CLEAR COUNTERS (L) N ?

923
924
925

927

929
930
931
932
933

® OF OPERATIONS (D)
PATTERN (D) 7 ?

@ OF OPERATIONS (D)
PATTERN (D) 7 ?

CMD/3 (D) 5 ?
BRF (D) 2048 ?

CMD/4 (D) 5 ?
BRF (D) 2048 ?

N<CR>
N<CR>
N<CR»>
N<CR>
N<CR>
Y<CR>
Y<CR>

Y<CR>

40<CR>

13<«CR>

1<CR>
1<CR>
1<CR>
4<CR>
1000<CR»>
10000<CR>
1<CR>
27<CR>
<t7>

(REWIND)

(WRITE)

(END)

2.4 EXECUTION TTMES

948
949
950
951
952
953

91
962
963
964
965
966
967

Y<CR>

INHIBIT RECOVERY (L) N ?
BAD TAPE SPOT DETECTION (L) Y ?
DISABLE INTERRUPTS (L) N ?
INHIBIT RFC ERROR REPORT (L) N ?
CHANGE CMD SEQUENCE (L) N ?
CHARACTERISTICS CODE (0) 40 ?
CMD/2 (D) S ?
BRF COUNT (D) 2048 ?

928

954
955
956
957
958
959
960

Y<CR>

RESET RANDOM VARIABLES (L) N ?
PRINT RECOVERABLE ERRORS
(L) N ?
HALT AFTER EACH CMD (L) N ?

926

934
935
936
937
938
939
940
941
942
943
944
945
946
947

<CR>

TO SET UP A SCOPE LOOP FOR A FATILURE IN DATA RELIABILITY
8)
C)

920

YeCR>

N<CR>

POP11/23

MOS MEMORY
LA36
TSV05/1S05

2.4.2

TEST EXECUTION TIMES (2400 FT.
TEST
ies)
TEST
TEST
TEST

NOTE:

1
2
3
4

TAPE)

BASIC FUNCTIONS - 30 SECONDS PER PASS,
DATA RELIABILITY - 45 MINUTES PER PASS,
WRITE COMPATABILITY - 20 MINUTES PER PASS.
READ COMPATABILITY 20 MINUTES PER PASS.

RANDOM/OPERATOR SELECTED SEQUENCE

-20 MINUTES PER PASS.

ALL EXECUTION TIMES ARE SHOWN FOR ONE DRIVE OPERATION.

(3¢
TSVOS DATA RELIABILITY
968

14-JUN-84 18:32

SED 0019

969

3.0 ERROR INFORMATION

973

3.1 ERROR REPORTING

970
971
972
974

LR EEETE

975
976

ALL

977

OF THE FOLLOWING INFORMATION:

978

ERROR REPORTS EXCEPT

AND @17

ERROR @,

383

(SEE 2.3.14.1 FOR LIST OF COMMANDS).

985
986

TEST @,

FOR ERRORS 01

979

980
981
982

STANDARD ERROR REPORT FORMAT:

989

XXX CMD FAILED

998
999

1000

1001

1002
1003
1004
1005
1006
1007
1008

1009

1010
1011

1012

1014

1015

1017
1018
1019
1020
1021
1022
1023
1024

A DUMP

SUBTEST @, PROGRAM COUNTER, UNIT o,

CVTSE SFT ERR XXXXX

990
991
992
993
994
995
996
997

INCLUDE

COMMAND, PREVIOUS COMMAND, PASS COUNT, ¢ OF
RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR,
TCC, TSBA, RFC, AND THE EXTENDED STATUS REGISTERS

987

988

MACRO M1113

(ASCII ERROR MESSAGE)

TST XXX

- UNIT X

PREVIOUS CMD WAS XXX
CMOPKT TSBA
RFC
XXXXXX XXXXXX XXXXXX
XXXXXX
XXXXXX
XXXXXX
XSTO ~ XST1 ~ XST2
XXXXXX XXXXXX XXXXXX

PASS:

SUB XXX
XXXXX

PC: XXXXAX
RECORD:

XXXXX

s RECORD READ: XXXXX &
TSSR
TCC
XXXXXX X
X513
XST4
~XXXXXX ~ XXXXXX

s CAUTION »
INTERPRET THAT “RECORD READ” COUNT WITH CAUTION.
IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC,
TAPE POSITION IS NOT NECESSARELY LOST. ERRORS IN READING THAT
RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY
READ FROM TAPE.
IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD COUNT
IS RESET TO ZERO ALTHOUGH THE TAPE IS NOT REWOUND. THIS IS
NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE

ON WHAT RECORD COUNT OF WHICH UNIT THE DIAGNOSTIC WAS HALTED

BEFORE RESTARTING OR CONTINUING.

IT IS SUGGESTED THAT A “PRINT” BE REQUESTED WHEN HALTING DIAG

TO GET A PRINT OF THE RECORD COUNT WHEN HALTED.

EXAMPLE OF AN ERROR REPORT:

CVTSE SFT ERR 00009
TST 002
SUB 000 PC: 010606
RECOVERABLE ERROR
WRT CHMD FAILED - UNIT 2
PASS:
2
RECORD:
254
FREVIOUS CMD WAS
WRT
CMOPKT
TSBA
RFC
TSSR
TCC
100005
002324
0C0000
100210
4
051766
000000

¢
TSVOS DATA RELIABILITY

MACRO M1113

14 JUUN-84 18:32

SEQ 0020
000371

1025

1026
1027
1028

1029

1030

1031
1032
1033
1034
1035
1036
1037
1038
1039

1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052

1053

1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1063
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081

3.1.

ERROR 01

XSTO

XST1

XST2

XST3

XST4

000350

000002

100004

000000

040055

COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY:

IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY.
ESASCé$ ?TSYSTEH FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO

3.1.

ERROR @2

TSOS NOT READY:

BEFORE ANY COMMAND IS ISSUED TO THE TSOS, THE SUBSYSTEM READY
BIT IN THE TSSR IS CHECKED.
IF THE SSR IS NOT SET, THE PROGRAM
REPORTS THE NOT READY ERROR.

THIS

THE DEVICE WILL BE DROPPED FROM THE
O°PTION IS USED.

3.1.

ERROR €3

IS A FATAL

DEVICE

ERROR AND

TEST SEQUENCE UNLESS THE

IDU

- NO RESPONSE ERROR:

ONCE THE TSDB IS LOADED, THE TSOS HAS ONE MILLISECOND TO RESPOND
OR THE PROGRAM REPORTS A NO RESPONSE ERROR.
THIS IS A FATAL
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE
UNLESS THE IOU OPTION IS USED.
3.1.

ERROR #4

NO INTERRUPT ERROR:

COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED.

THE PROGRAM REPORTS

THAT NO INTERRUPT OCCURRED.
THIS IS A FATAL DEVICE ERROR
THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE
OPTION IS USED.
3.1.

AND
IDU

SPECIAL CONDITION ERRORS:
IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF

g082R0R HANOLING ROUTINES,

DEPENODING ON

THE TERMINATION CLASS CODES IN THE
WHEN SPECIAL CONOITION IS SET:

3.1 .5.1 ERROR 05

TSSR

TERMINATION CLASS CODE O,

THE ERROR IS REPORTED, A HARD ERROR
AND THE PROGRAM PROCEEDS NORMALLY.

3.1 .5.2 ERROR #5
THIS

TCC

TERMINATION CLASS CODE

INDICATES

THAT

THE

DRIVE

THE

TERMINATION CLASS

ARE PROCESSED

UNDEFINEC

AS FOLLOWS

SPECIAL CONDITION

IS LOGGED

1,
HAS

ATTENTION CONDITION
UNDERGONE

STATUS

CHANGE

TSVOS DATA RELIABILITY
1082
1083
1084
1085

1086
1087
1088
1089
1090
1091
1092

1093
1094
1095
1096
1097

1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112

1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129

1130
1131
1132
1133
1134
1135
1136
1137
1138

Le
MACRO M1113

14 JUN 84

18:32

SEQ 0021

SUCH AS GOING OFFLINE OR COMING ONLINE.
THIS IS A FATAL DEVICE
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS
THE

IDU OPTION

3.1.5.3 ERROR 07

IS USED.

TERMINATION CLASS CODE 2,

TAPE

STATUS ALERT

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE
TO THE PROGRAM.
BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, EOT.
ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED,

THE CONDITION IS UNEXPECTED,

A HARD ERROR

3.1.5.4 ERROR 08

I. LOGGED.

THE

THE ERROR IS REPORTED AND

PROGRAM PROCEEDS NORMALLY,

TERMINATION CLASS CODE 3,

FUNCTION REJECT

THE SPECIFIED FUNCTION WAS NOT INITIATED.
BITS OF INTEREST ARE
RMR, OFL, VCK, BOT, ILC, WE, ILA, AND NBA.
THIS IS A FATAL

DEVICE ERROR AND THE DEVICE WILL BE OROPPED FROM THE TEST CYCLE
UNLESS THE IDU OPTION IS USED.
31.5.5 ERROR €9

TERMINATION CLASS CODE 4,

RECOVERABLE ERROR

TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN
THE FUNCTION WAS INITIATED.
RECOVERY PROCEDURE IS TO LOG THE

ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND.
IF RETRY LIMIT
IS REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED
IS REPORTED AS DESCRIBED IN ERROR €14 BELOW,
3.1.5.6 ERROR €10

TERMINATION CLASS CODE S,

TAPE POSITION HAS NOT CHANGED.

RECOVERABLE ERROR

RECOVERY PROCEDURE

ERROR AND RE-ISSUE THE ORIGINAL COMMAND.

REACHED BEFORE

THE ERROR

IS RECOVERED,

TO LOG THE

IF RETRY LIMJIT

RETRY LIMIT EXCEEDED

IS REPORTED AS DESCRIBED IN ERROR @14 BELOW.

3.1.5.7 ERROR €011

TERMINATION CLASS CODE 6,

UNRECOVERABLE ERROR

TAPE POSITION HAS BEEN LOST.
THE ONLY VALID RECOVERY PROCEDURE IS TO
REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE
NUMBERS.
IF DENSITY CHECK IS SEV THIS DIAGNOSTIC WILL REWIND AND
RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE

DEVICE WILL BE DROPPzD FROM THE TEST CYCLE UNLESS THE IDU OPTION 1S USED.
3.1.5.8 ERROR €12
THE

TERMINATION CLASS CODE

SUBSYSTEM IS

INCAPABLE

FATAL SUBSYSTEM ERROR

PROPERLY PERFORMING COMMANDS

LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE.

REFER TO THE

FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR.
THE DEVICE WILL BE DROPPED
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

TSVOS DATA RELIABILITY
1139
1140

MACRO Mill3

14 JUN 84

3.1.

1143

1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159

1160
1161
1162
1163
1164
1165
1166

3.1.

ERROR 413

SEQ 0022

- RFC NON ZERO ERROR:

ERROR @14

- RETRY LIMIT EXCEEDED:

ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED.
ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND
THE PROGRAM PROCEEDS NORMALLY.

3.1.

ERROR @15 -

TOO MANY INTERRUPTS:

IF MORE THAN ONE INTERRUPT OCCURS PER COMMAND,

THIS ERROR IS REPORTED.

THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM
THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

3.1.

ERROR 016 - CAPSTAN RUNAWAY:

CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINOOW AFTER LAST
COMMAND.
THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING
THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENOED STATUS REGISTER 2

1167

1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195

18:32

IF, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON ZERO, THE
ERROR IS REPORTED AND A HARD ERROR IS LOGGED.
THE PROGRAM THEN
PRO%;ED%NNORHALLY.
THE REPORTING AND LOGGING OF THESE ERRORS
IS
OPTTIONAL.

1141
1142

1144
1145
1146

WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED.
THIS IS R FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM
THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

3.1.

ERROR €17

- DATA COMPARE ERROR:

IF A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND,
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT

THT

THE TOTAL @ OF BYTES IN ERROR PER RECORD IS ALSO PRINTED.
HARD ERROR IS LOGGED AND THE PROGRAM PROCEEDS NORMALLY.

DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED
ON.
ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED.

3.2 ERROR HALTS

ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION
WITH /FLAG:HOE.

THERE ARE NO OTHER HALTS.

4.0 PERFORMANCE REPORT

: XXXXX
RECORD
PASS:XXXXX
UNIT X
XXX, XXX, XXX
XXX,
BYTES WRITTEN
BYTES READ REV XXX, XXX, XXX, XXX
XXX, XXX, XXX
BYTES READ FUD XXX,

TSVOS DATA RELIABILITY

MACRO M1113

14-JUN 84

1196
1197
1198
1199
1200
1201
1202
1203
1204

18:32

SEQ 0023

RECOVERABLE

ERRORS

UNRECOVERABLE ERRORS
SPEC COND
XXXXX

WRT
XX XXX

ROR
XXXXX

ROF
XXXXX

XXXXX

HARD

FATAL

COMPARE

XXXXX

1205

BASIC FUNCTIONS.
EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL

SUBTEST 1

1251
1252

STATUS

SUBTEST 3

SUBTEST 4

TSO5 MICROCODE

40.
LEVEL

REWIND.
+

REWIND.
REWIND AT

BOT.

WRITE/VERIFY,
+

WRITE

WRITE/VERIFY

PATTERN

WRITE/VERIFY
WRITE/VERIFY
WRITE/VERIFY
WHITE/VERIFY
WRITE/VERIFY
WRITE/VERIFY

PATTERN
PATTERN
PATTERN
PATTERN
PATTERN
PATTERN

TAPE MARK,

ERASE.

+ WRITE TAPE MARK,

WRITE

10 RECORDS

+ ERASE 10 TIMES
+ WRITE TAPE MARK.

1239

WRITE

TAPE MARK RETRY,

SUBTEST S

SPACE FILES.

SUBTEST 6

SPACE RECORDS.

1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250

GET

+ SET CHARACTERISTIC

SUBTEST 2

TSOS FUNCTIONS.

SET CHAR, DRIVE INIT, GET STATUS.
+ SET CHARACTERISTIC 200.
+ DRIVE INITIATE.
+ SET CHARACTERISTIC
20.

OV
EL WK

TEST

5.1

1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238

5.0 TEST SUMMARIES

1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225

1206

1207

+
+

SPACE
SPACE
SPACE
SPACE

2
2
2
2

FILES
FILES
FILES
FILES

REVERSE.
FORWARD.
REVERSE.
FORWARD.

REWIND.
SPACE 7 RECORDS FORWARD.

+ SPACE 7 RECORDS REVERSE.
+« SPACE 7 RECORDS FORWARD.

(PASS

ONLY)D

L
(

»
SUBTEST

SMBTEST 8

FWD RETRY,
READ FORMWARD.
READ PREVIOUS FORWARD.

READ PREVIOUS REVERSE.

o
¢
&
¢
*

WRITE/VERIFY EVEN LENGTH (RECORD 1).
WRITE/VERIFY 000 LENGTH (RECORD 2).

SET DATA BYTE SWAP.

WRITE/VERIFY EVEN LENGTH (RECORD 3).
WRITE/VERIFY 000 LENGTH (RECORD 4).

CLEAR DATA BYTE SWAP.

- READ SWAPPED
READ REV
READ REV
SET DATA
READ REV
o

READ REVERSE.
READ NEXT REVERSE.
READ NEXT FORWARD.

- WRITE/VERIFY SWAPPED DATA BYTES,

SUBTEST

DATA,

CLEAN,
+ CLEAN.
+ REWIND.

SUBTEST 11

READ
«
+«
«

1282
1283
1264
1285
1286
1287
1288
1289
1290
1291
1292

SUBTEST

1275
1276
1277
1278
1279
1280
1281

WRITE RETRY,

1274

WRITE

1267
1208
1269
1270
1271
1272
1273

+
«

SUBTEST 9

7 RECORDS REVERSE.

READ REV RETRY.

1263
1264
1265
1266

SPACE

WRITE RETRY,
+ REWIND.

1260
1261
1262

SEN 0024

125%
1254
1255
1256
1257
1258
1259

14-JUN 84 18:%2

TSVOS DATA RELIABILITY

MACRO M1113%

DATA BYTES.

RECORD 4.
RECORD 3.
BYTE SWAP.
RECORD 2.
RFAD REV RECORD 1.
READ FWD RECORD 1.
READ FWD RECORD 2.

CLEAR DATA BYTE SWAP.

READ FWD RECORD 3.
READ FWO RECORD 4.

14-AMN-84 18:3°
DATA RELIABILITY,

1297
129¢
1299
1300
1301
1302
1303

2.
3.

TME TAPE IS INITIATED WITW THE FOLLOWING COMMANDS:
SET CHARACTERISTIC 40
REWIND
WRITE 64

AT THE END OF EACH PASS, A REWIND COMMWND IS ISSUED AND
A PERFORMANCE REPORT IS PRINTED.

NOTE :

5.3

TEST

RECORDS OF RANDOM LENGTM AND DATA

WRITE AND READ COMMAMDS ARE SELECTED AT RANDOM AND ARE
EXECUTED A RANDOM MUBER OF TIMES WITH RANDOM
LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED.

WRITE COMPATAB:

IF A RESTART COMMAND IS USED TO INITIATE
TEST

TME

INITIAL REWIND COMMAND IS NOT

ISSUED.

ITv/WRITE UTILITY,

REWINDS AND WRITES RECORDS OF RANDOM LENG TS
AND RANDOTMM DATA FROM BOT TO EOT.

5.4

TEST &

READ COMPATABILITY/READ UTILITY,
REWINDS AND READS ENTIRE

5.5

TEST S

TAPE,

FORMARD AND REVERSE.

RANDOM/OPERATOR SELECTED COMMAND SEQUENCE.
A DEFAMAT SEQUENCE OF REWIND/WRITE/READ REV/READ SuWD ‘REWIND
OF ENTIRE TAPE IS EXECUTED WITe RAMDOM PATTERN
MO RECORD LENGTH OF 2048 BYTES. OPERATOR CAN ENTER
SEQUENCE OF COMMANDS P T0O SEVEN IF TwEY DON ' WANT
.
T SEQUENCE
OEFAL

%.0 DEVICE

INFORMATION TABLES

TME 1SS0S TAPE SUBSYSTEM CONSISTS OF A TSVOS Q-BUS

CONMTROLLER COMMECTED TO A TSOS ORIVE. FROM A S0F TUARE VIEWPOINT
gl&?!”"lm IS UNIQUE (FOR A Q-0US OEVICE) IN A NPBER
vS:

ALY OME REGISTER MAY BE MRITTEN DATA BAFFER),

WD REGISTERS MAY BE READ
TSSR AMD TSBA (TAPE SYSTEM STATUS
REGISTER MO TAPE SYSTEM BUS ADDRESS REGISTER),

COvWOS ARE NOT MRITTEN TO ThE ORIVE; RATWER, COPMPWND
POINTERS ARE WMRITTEN WeIO« POINT TO COMWND PAOKETS SOME
WERE

In CPL "EMORY.

TSDB (TAPE SYSTEM

W€ COPWO POINTER IS USED OY

T€ "S05 SUBSTYSTETM T0 FETOe ThE WORD(S) UIYNIN ne Covwo
PACMETM
"vE WORDS wlTHIN THE COMPVAND PACKET ARE:

etrim—
o vm————r

TEST 2

-t

5.2

SEQ 0025

1294
1295
1296

MACRC M1118

ettt
e,
e
i
.

TSVOS DATA RELIABI. [

*WCRC 1118

€3 002

14 AM 84 18:50

[ XV LV

TSYOS DATA RELIABILI''

COTMWND WORO
LOM OROER FFER
B
ADORESS
HIG+ OROER SFFER ADDRESS
GYVTE COumT

TTME TSSR CONTAINS ALL TH€E INFORMATION W00 wiLl OE NEC
ESSARY TO DETERMINE WETHER:
1. TM€ DRIVE IS READY T0 ACCEPT AMODTHER COMMAND,
2. TM€ PREVIOUS COMPWIND WAS EXECUTED wWiTMOUT ERROR
IF EITER OF Tv€E ABCYE CONDITIONS IS UNTRUE AT 0B OO
OR ~COWAND INITIATION- TIME,.IT MAY BE MECESSARY
TO GET Tr€ EXTENDED STATUS REGISTERS TO DETERMINE WAT
ACTION IS TO BE TAXKEN AMD/OR LOG THE ERROR INFORMATION.
.

EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM

ORIVE REGISTERS; RATHER, A GET STATUS- COMMAND
IS ISSUED WHICH WILL CAUSE THE TSO0S TO TRANSFER EXTENDED
STATUS INFORMATION TO THE MEMORY AREA POINTED 10 BY TeE
OUFFER ADORESS OF THE “GET STATUS- COMMAND. THERE ARE CIVE
EXTENDED STATUS REGISTERS. SEE .3.

THE TSDB MUST BE WRITTEN WITH A DATO INSTRUCTION TO
PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL
CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE
- BSYSTEM INIT.

COMMAND PACKETS MUST RESIDE On OIVINE BY FOUR
MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR WORD
BOUNDARIES) .

TSVOS DATA RELIABILITY
1384
1384

1386
1308
138

MACRO MI113

14-JUN-84 18:32
6.2

Q BUS

SEQ 0027
INTERFACE

)

SPECIF ICATIONS

INT .

N I18US

15v0
TSV S/
9
=
138

VECTOR

ADDRESS ~ REGISTER

1392

224

7725 20

1292

1394

FIRST

o
175350

res
joep o8
TSBA/T

TSVOS DATA RELIABILITY

139¢
139°
1398
1399

1400

MACRQO MI113

14 JUN-84

6.3

6.3.1

1402

18:32

B8I7 DEFINIYIWS ‘Ofl TSVOS/TSOS QEGISTERS

TSV0OS5/7S05 REGISTER SUMMARY
===

1402

srescscsccccccc-----

1403

1‘0‘

1405

1406
140~

1408
1409

1‘10

1411

SEN 0028

'Aoa-nornos'

'M!W!MS'

1433

1434
i:gz

S-cnboccppeoread

Srerdroadac d

PocnfccPercld

PoecoeocaPon-®

S--sban= *

1 O !SCE!RMR!

mxmwnuu-

-Awssa-oru

-rcx-rco-tcz-

-rcx-rco- 0!

Gccapan- el

Peccpocapecad

Geccbeon-n oe~-=-0

TSSR ¢

LR Y

1
¢

11
R

L ®

10802 0! wzupzowm -Pw
8
¢
1
13
'y

S PR

SRR

-0

(TSDBX EXISTS ONLY WEN
ENABLED BY TME EXTENDED

FEATURES SWITCH ON THE M7196)

0cuwe®

Geccbdrecdeenld

Qevcbracldocchd)

fovapocs cced

Gcccdaredrncd

Pocadoccdace

]

!N.S'LET!“LL!

!II.E"CF'ILC'

'IL“'NT!M.!

'IE ¢'VCK!PED!?

!lK'.OT'EOY'

6-c-o

0---0---0---0

@ecct®ocabrocd

Goccfeacchocch

Srcudocebancd

Poccdracbanesd

OLT!
¢
L

1
|

Gcveld

$cect

' !

COR!
!

O ! L
1!

PoccpPecaloculd

Gccclecederocd

O 200!
H
!
!

Goorbrccbdoachd

XST3 ¢

feecbeccfocctd

Geccbocandanse Gcca0ecc@acctd

'HSP'

'RCE' 0 ' 0

Gcced

Govobeccb-nond

1441
1442

1444

%z;

FATAL

PoraPocclbaced

-ccbonabacetd

foccbdrceboccd

Soccboccbocnb

Pnocfhocchannad

Goc-0eacbomst

'REVITRFI!IDCK!

! O ! O 'RIB!

S--cBoc-82-90

focebecctacs ®

Gecc-b-ccbeo--s

Gocaboccbeccb

URITE RETRY COUNT
Go-afomcbacab

S---be

-—0-=-8

TCO-TC2):

NORMAL TERMINATION

ATTENTION CONDITION
TAPE STATUS ALERT

FUNCTION REJECT

RECOVERABLE ERROR - TAPE NOT MOVED

0PI

+»

Gecobeccbocch

TERMINATION CLASS CODES (TSSR

RBPLO!O!tO!O!O!
O U
O
!
H
H
I |
H
H
LI |
!
H
H

0cect

XST4 !

! O WCF! O ! ! O 'RL7!RLE! 'RLS!RLAALS! RL2'ALL'RLO!
H
H
HE
H
H
1
!
H
1!
H
!
H

MICRO DIAGNOSTIC ERROR CODE

1451
1452

1SC !

1449
1450

Seced

1439

i““g

'AOZ' I'AOO'

1P1S! 1P141P13IP12! mvnowm- 1P08!PO7 P0G ! Posvmwoso 1P021P171P16!
(/0) TSDB t "H i1
H
by
AN
beoe
e

1443

Poccbon-a=

1440

0cc-chocebonce

1437

1438

H
#eccleccloc-0®

OPM! 'RCE! O ! O !
XST2 !¢
1
!
H
-

1432

bocobacectnea

1425
1426

1431

Oo--0---

Socc-poceabeoccd

XST1

1430

cPccehd

$cccd

1422
1423

1429

!lll'AIO'M'

XS10 !

1428

04
03

'll"GIS'AIZ'

1420

1427

'AIS'

(R/70) TSBA !

1418

1424

08
07 06

@eceb-

BT
(M/0)TSDBX !

1421

10 09

Orcrbeccobon-~

1414
1415

1419

brocecPoroccbread

(R/O)

1416
1

d-=-Prmchrcad

1412
1413

@=c=bd

RECOVERABLE ERROR - TAPE POSITION = ONE RECORD
DOWN TAPE FROM START OF FUNCTION
UNRECOVERABLE ERROR

FATAL
CLASS

CONTROLLER

CODES

ERROR

TAPE POSITION LOST

(TSSR FCO-FC1l):

0 = MICRO DIAGNOSTIC FAILURE.
1 = RESERVED

SEE ERROR CODE BYTE (XST3) FOR FAILED FUNCTION.

2 = NOT USED
3 = RESERVED FOR FUIURE USE ALWAYS READ AS A O

TSVOS DATA RELIABILITY

MACRO M1113

14-JUN-84

18:32

SEQ 0029

1454

1455
1456
1457
1458
1459

6.3.2

TSVOS STATUS REGISTER (TSSR)

$oceb

G-cob-c-0---

1462
1463

®ceb

4---0--

1465

'sC!
'

!0 'SCE'RM'

@e-eo®

Geo+-~@-=vhee

1464

1466

Y
ONL

Q-8US ADDRESS

1461

READ

1460

- &

O'l

050403

'NXH'NBA'A17' 'A16'SSR'0FL' orcx'rco-rcz- -iéi-iéé-'é']

Y I
R

ccPeccPeocad

PevccfamcProntG

1467

1468
1409
1470
1471
1472

1473

eIrv

NAME

TCC

1474
1475
1476

WRITING,

1486

SCE

FCO

WHEN

OID

SET,

NOT

INDICATES

COMPLETE

THAT

WITHOUT

MAY ALSO BE

SET

THE

ERROR

SCE,

THE TERMINATION CLASS BITS ARE

RESERVED (ALWAYS A 0)

SANITY CHECK ERROR-SETS WHEN THE CONTROLLER DETECTS

AN ABNORMAL CONDITION WITHIN ITSELF DURING EXECUTION

OF IT'S FUNCTIONS AND THE PROBLEM IS SERIOUS ENOUGH
THAT A MESSAGE PACKET

RMR

IS NOT STORED.

REGISTER MODIFICATION REFUSED.
SET BY THE TSVOS
WHEN
A COMMAND POINTER IS LOADED INTO TSDB AND
SUB-SYSTEM READY (SSR) IS NOT SET.
NOTE THAT

THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATION

CLASS (IN FACT, THE TSOS NEVER SEES THIS ERROR)
BECAUSE ON A SYSTEM WITH NO BUGS. THIS BIT MAY
COME UP ON AN ATTENTION MESSAGE.
IF ATTNS ARE
NOT ENABLED, THIS B8IT COMING UP IS AN INDICATION
gwEITFER A FATAL CONTROLLER ERROR OR A SOF TWARE

1496

1503
1504
1505
1506
1507
1508
1509
1510

ETC.

AND NXM.

1497
1498
1499
1500
1501
1502

COMMAND

SG‘ETHM OTHER THAN O (UNLESS RMR IS THE ONLY
ERROR - SEE RMR).
14

1487
1488
1489
1490
1491
1492
1493
1494
1495

LAST

BITS CONTAINED IN THE TSSR REGISTER:

1484

1485

THE

INCIDENT.
SPECIFICALLY, EITHER
AN
JQROR
WAS
OETECTED
OR
AN EXCEPTION CONDITION _CCURRED.
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ
COMMANDS,
REVERSE MOTION AND AT BOT, EOT WMILE

1477

1478
1479
1480
1481
1482
1483

OEF INITION

SPECIAL CONDITION.

SET

THE

TSVOS

PoomnBocape-a-y

NXM

4/5

NON-EXISTENT MEMORY.

WHEN

NBA

NEED BUFFER ADORESS.
WHEN SET, INDICATES
THAT
THE
TSOS NEEDS A MESSAGE BUFFER ADDRESS.
THIS
BIT IS CLEARED DURING THE
SET
CHARACTERISTICS

TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION
WHICH DOES NOT EXIST.
MAY OCCUR WHEN
FETCHING
THE
COMMAND
PACKET, FETCHING OR STORING DATA,
OR STORING THE MESSAGE PACKET.

TSVOS DATA RELIABILITY
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
153C
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552

1553
1554

1555
1556
1557
1558
1559
1560

MACRO M1113

14-JUN-84 18:32

SEQ 0030

COMMAND (IF

BUS ADDRESS BIT

17.

A17 AND A16 (BIT 08)

BUS ADORESS BIT

16.

SEE A17 (BIT 09).

SUB-SYSTEM READY.

Al7

)

Alé6

SSR

OFL

FCi1

A GOOD ADDRESS WAS GIVEN),
TRACK

THE
VALUES
OF
BITS
17
AND
16
OF THE TSBA
REGISTER. LOACED FROM T5DB BITS 01-00 WHEN TSD8
IS WRITTEN.

WHEN SET,

INDICATES THAT

THE

TSVO5/TS0S SUBSYSTEM IS NOT BUSY AND IS READY
ACCEPT A NEW COMMAND POINTER.

OFF-LINE.
WHEN SET, INDICATES THAT THE TSO05 IS
OFF-LINE
AND
UNAVAILABLE
FOR ANY TAPE MOTION
COMMANDS.
THIS BIT CAN CAUSE A TERMINATION CLASS
OF 1 (ON ATTN INTERRUPT) OR 3 (RESWLTS IN NEF).

5S,1,3

FATAL

04)

TERMINATION CLASS O1.

ARE

USED

INDICATE

ERROR WHICH HAS OCCURRED ON

BITS

ARE

VALID

ONLY

WHEN

FC1 AND

FCO

(BIT

THE TYPE OF FATAL

THE

T1S0S.

THESE

SC IS SET AND THE

TERMINATION CLASS COOE BITS ARE ALL

SET

(111).

FCO

FATAL

TC2

)

TERMINATION CLASS BIT 02.
THIS BIT, ALONG WITH
THE
TC1
AND
TCO BITS, ACT AS AN OFFSET VALUE
WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS

TERMINATION CLASS 00.

COMMAND.

VALUES OF

THMIS

EACH

FIELD

SEE FC1

THE

REPRESENT

(BIT 05).

EIGHT POSSIBLE
A

PARTICULAR

CLASS
OF ERRORS OR EXCEPTIONS.
THE CONDITVIONS
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS

APPLICABLE,
RECOVERY
PROCEDURES.
THE
COOE
PROVIDED
IN
THIS
FIELD
IS
EXPECTED
TO
BE
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR
HANDLING
OF

THE

CONDITION.

TCi

TERMINATION CLASS BIT Ol1.

SEE

TC2

TCO

TERMINATION CLASS B8IT 00.

SEE

TC2 (BIT 03).

Q-BUS ADDRESS

NOT USED.

WRI TE ONLY

SUBSYSTEM INITIALIZE

(ALWAYS A 0)

(BIT 03).

[ 9
TSVOS DATA RELIABILITY
1562
1563
1564
1565
1566
1567
1568
1569
1570

MACRO M1113

14 JUUN 84 18:32

6.3.2.1

SEQ 0031

TSVOS EXTENDED DATA BUFFER REGISTER

TSDBX

(TSDBX)

$eret

Gocnmbonchocct

boocbean -8

10!

'P21'920'919'

P18

!ttt
1
I T
T Ty

-0

(TSOBX EXISTS ONLY WHEN

1
'
e S
IS

ENABLED BY THE EXTENDED
FEATURES SWITCH ON THE M7196

1571

1572
1573
1574
1575
1576

BIT

NAME

TCC

DEF INITION
BOOT COMMAND BIT. WHEN WRITTEN T0 A 1,WITH
SSRel, CAUSES THE TAPE TO BE REWOUND TO BOT,

1577
1578

THE FIRST

1579

1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593

1594
1595
1596
1597
1598
1599

1600
1601
1602

1603

1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618

TAPE RECORD TO BE

SKIPPED,

AND THE

WHEN THE

TSDBX IS WRITTEN

SECOND RECORD TO BE LOADED INTO CPU MEMORY SPACE
STARTING AT LOCATION O.

6.3.3

14-12

RESERVED (ALWAYS A 0)

11-08 P<21:18>

COMMAND POINTER BITS 21-18.

07-00

RESERVED (ALWAYS A 0)

AND SSR=1, THE DATA IS LOADED INTO BITS 21-18 OF
THE INTERNAL TSBA REGISTER.

EXTENDED STATUS REGISTER O (XSTATO)

Geced)

Prevcrpomedoe-

'THK'

'RLS'LET'RLL'

09
@e-"@

'ULE'NEF'ILC'

boceboccd

BIT

NAME

TCC
S.2

~-8b

Pocebme=boc-b

—cpescd

'ILA'MOTIONL!
.

$o-ed

Poccd)

1
-

]

RLS

!'IE

'VCK'PED'

Secebe

TAPE MARK DETECTED.

cchoc—bom-b

TAPE

MARK

COMMAND AND AS A RESULT OF THE WRITE TAPE

MARK

DETECTED

DURING

00
*

'HLK'BOY'EOT'

DEFINITION

WAS

Pmecepocmbeo~

SET WHENEVER A
A

READ,

OR WITE TAPE MARK RETRY COMMANDS.

ecepeecdocnd

SPACE,

OR SKIP

RECORD LENGTH SHORT.
THIS BIT
INDICATES
THAT
EITHER THE RECORD’'S LENGTH WAS SHORTER THAN THE
BYTE COUNT ON READ OPERATIONS, A
SPACE
RECORD
OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE
THE POSITION COUNT WAS
EXHAUSTED,
OR
A
SKIP
TAPE
MARKS
COMMAND
WAS
TERMINATED
8Y
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT

OPERATIONAL
MOOE IS ENABLED, SEE LET) PRIOR TO
EXHAUSTING THE POSITION COUNTER.

=-=8

TSVOS DATA RELIABILITY
1619
1620

1621

MTMMACRO M1113

14-JUN-84 18:32

SER 0032

LET

1622

162?

16:1

1622

1633

16327
1638

1223
1

1641

1642
1643
1644

UNLESS

THIS

LENGTH

THROUGH USE

SET ONLY ON THE SKIP TAPE

WHEN EITHER

MOOE
THE

RLL

RECORD

WLE

3,6

WRITE LOCK ERROR.

1634
16;2
16

TAPE,

TWO CONTIGUOUS

OFF

TAPE

807

AND
THE
FIRST
RECORD
ENCOUNTERED
IS A TAPE
MARK,
THE SETTING OF TMIS BIT WILL
NOT
OCCUR

1625

1629
1630

COMMAND

MARKS ARE DETECTED OR WHEN MOVING

1623
1624

162
1628

LOGICAL END OF

MARKS

TERMINATION

IS ENABLED

WwHEN

THIS

SET CHARACTERISTICS COMMAND.

LONG,

SET,

8IT7

INODICATES
THAT THE RECORD READ WAS LONGER THAN
THE BYTE COUNT SPECIFIED.

WHEN SET, INDICATES

THAT

WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE

DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT
LOCK SWITCH ACTIVATED DURING THE OPERATION.
10

NETM

NON-EXECUTABLE FUNCTION.
WHEN SET,
INDICATES
THAT
THE COMMAND COWLD NOT BE EXECUTED OUE T0
ONE OF THE FOLLIWING CONDITIONS:

THE

COMMAND

OIRECTION

8UT

SPECIFIED

POSITIONED AT BOT.

THE

TAPE

REVERSE

WAS

TAPE

ALREADY

THE ISSUING OF ANY MOTION COMMAND EXCEPT

TSVOS DATA RELIABILITY

MTMMACRO M1113

14-JUN-84 18:32

SEQ 0033

1646
1647

1648

WHEN

1649

1650

1651

1653
1655

THE

VOLUME

COMMAND,

CHECK

EXCEPT

INITIALIZE,

WHEN

CONTAIN

WRITE

ILC

ILLEGAL

COMMAND.,

SET

AND

1657
1658

MODE
FIELD CONTAINS
SUPPORTED BY THE T1S0S.

1664
1665

1662
166

1668
1669
1670
1671
1672
1673
1674
1675
12;9
1
1678

THE

EITHER

ITS

SET,

STATUS

TSOS

DRIVYE

OFF -LINE.

TAPE

DOES

NOT

ENABLE RING (WRITE LOCK

STATUS - WLS).

1656

1659
1660
1661
1662
1663

BIT

GET

ANY WRITE COMMAND WHEN THE

1652
1654

ANY

WHEN A

COMMAND

FIELD

CODES

WHICH

ISSUED

ITS

COMMAND

ARE

NOT

ILA

ILLEGAL ADDRESS.
(MORE THAN 18 BITS OR 00D WHEN
AN EVEN ADDRESS IS REQUIRED.)

MOT

TAFE IS MOVING.

ONL

1€

)

INTERRUPT ENABLE.
INTERRUPT
ENABLE
COMMAND.

VCK

VOLUME CHECK.
WHEN
SET,
INDICATES
THAT
THE
DRIVE
HAS
BEEN
EITHER POWERED DOWN OR TURNED

ON LINE.

WHEN SET,

INDICATES

ON-LINE AND OPERABLE.

OFF-LINE.

THAT

THE

TSOS

REFLECTS THE
STATE
OF
THE
BIT
SUPPLIED
ON
THE
LAST

CLEARED BY THE

CLEAR

VOLUME

(CvC) BIT IN THE COMMAND HEADER WORD.
CAN CAUSE A TERMINATION CLASS OF 3.

CHECK

THIS BIT

PED

PHASE ENCOOED DRIVE.
ALWAYS SET, INDICATES
THAT
THE TSOS IS CAPABLE OF READING AND WRITING ONLY
1600
BPI
PHASE
ENCODED
DATA.

1682
1683
1684

MWLK

S.3

WRITE LOCKED.
WHEN
SET,
INDICATES
THAT
THE
MOUNTED
REEL
OF
TAPE
DOES
NOT
HAVE
A
WRITE-ENABLE
RING
INSTALLED.
THE
TAPE
1S,

1687

807

S.3

BEGINNING OF

EOT

S.,2

END OF TAPE.

1679
igg?

iggg

1688
1689
1690

1691

1692

1693
1694

THEREFORE,

THE
TAPE
DENOTED BY
TAPE.

WRITE PROTECTED.

TAPE.

WHEN

SET,

INDICATES

THAT

IS
POSITIONED
AT THE LOAD POINT AS
THE
0T
REFLECTIVE
STRIP
ON
THE

THIS BIT 1S SET WHENEVER THE TAPE

IS
POSITIONED
AT
REFLECTIVE S RIP.

BEYOND

THE END OF

TAPE

1713

1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731

14 JUN-84 18:32

O
R

!'COR!
'

O
S

BIT

NAME

TCC

OEFINITION

OLT

DATA LATE.
READ

09
o2

'O
I

08
o=@

!'O

!RBP!
'

ok I

Prechoa=
*

'O
T

A WRITE.

DATA TRANSFER RATE OF THE TSOS.

COR

]

' o
L4

UNC
'
=

’

THESE CONDITIONS

EXCEEDS

THE

(ALWAYS A 0)

CORRECTABLE DATA,
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED.
RESERVED (ALWAYS A 0)

12-09
08

NOT USED.

SET WHEN THE FIFO IS FULL ON

EMPTY

OCCUR WHENEVER THE Q-BUS LATENCY
14

05
*

‘mem
o

Gmecep

rmce
o

'OLT!

Puocprcad

ceehd)

(&)

sms

EXTENDED STATUS REGISTER 1 (XSTAT1)

6.3.4

SEQ 0034

o
o

1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712

MACRO M1113

TSVOS DATA RELIABILITY

RPB

READ BUS PARITY ERROR. SET WHEN CONTROLLER DETECTS
A PARITY ERROR ON THE READ DATA LINES OF THE TRANSPORT BUS.

07-02 & 00

RESERVED (ALWAYS A 0)

UNCORRECTABLE DATA ERROR.

UNC

TSVOS DATA RELIABILITY

MACRO M1113

1733

14 JUN-84 18:32
6.3.5

EXTENDED STATUS REGISTER 2 (XSTAT2)

LR R

1735
1736
1737

1738

o=t

0--

1739

'OPM!

'RCE!

L
P28

1744
1745

1746

BIT
NAME
R

TCC

-4-2-4

17‘1

1740

1742
1743

SEQ 0035

P-oc-b-c-c-p--cbt
!

e
ceb

'MCF!
e

be-=-p

brecbmccbemab

0OPM

OPERATION IN PROGRESS.

1749

RCE

7.F2

RAM CAECKSUM ERROR,

1751
1752
1753
1754
1755

-0

'RL7!RLE'

-4

'RLS!RLA'RL3!

ERRO? MIGHT

HAVE

13-11
10

-eb--=-0

1759
1760
1761
1762
1763

09-08
07-00 RL
7-0

bbb

-9

4.~

(TAPE MOVING)

CAUSES FATAL CLASS 2 BECAUSE THE

OCCURRED

DURING

THE

TRANSMISSION

THE

WRITE CLOCK FAILURE. SET DURING A WRITE TO INDICATE THAT
THE FIFO IS NOT BEING EMPTIED BY THE TRANSPORT.
RESERVED (ALWAYS A 0)

REVISION LEVEL.

RESERVED (ALWAYS A 0)
WCF

'RL2'RL1'RLO!

MECSAGE PACKET.

1756
1757
1758

DEFINITION
et

1750

1747

1748

*--

TSVOS DATA RELIABILITY
1765
1766

1767

MACRO M1113

14-JUN-84 18:32

6.3.6

SEQ 0036

EXTENDED STATUS REGISTER 3 (XSTAT3)

1768
1769
1770
1771
1772

15
¢

14
-4

1773
1774

11
-

b--cb~e-=

08
-8

$omcb

Geccbecaboncl

Gbe

MICRO DIAGNOSTIC ERROR COo0e

1775

S---B---0

1 O
!

boccbeccbonh

cbcceb

'OPI!
H

c-cbonb

Pecabemepomn-a .

REV!TRFIDCK!

' O ' 0

feecbecaboc

bocebo--bocn-s

boe-bo--bomob

¢4

'RIB'

1776

1777
1778
1779
1780
1781
1782
1783

1784

BIT

NAME

TCC

OEF INITION

15 10 08

MICRO DIAGNOSTIC ERROR CODE.

RESERVED (ALWAYS A 0)

(SEE LIST OF CODES BELOW).

1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795

0Pl

OPERATION INCOMPLETC.
SET WHEN A READ,
SPACE,
OR
SKIP
OPERATION
HAS
MTMMOVED 25 FEET OF TAPE
WITHOUT DETECTING ANY DATA ON THE TAPE.

REV

ODIRECTION OF CURRENT OPERATION WAS REVERSE (BUT
IS O IF REWIND OR FORWARD)

RESERVED (ALWAYS A 0)

DCK

S.6

DENSITY CHECK.
SET
WHEN
A
PE
IDENTIFICATION
BURST (IDB)
WAS
NOT
MOVING OFF OF BOT.

1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814

02-01

1796
1797

1815
1816
1817
1818
1819
1820
1821

6.3.7

WHEN

RESERVED (ALWAYS A 0)

RIB

REVERSE INTO

80T.

READ,

SPACE,

SKIP

COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE
BOT MARKER WHEN
MOVING
TAPE
IN
THE
REVERSE
DIRECTION.
TAPE MOTION WILL BE HALTED AT BOT.

EXTENDED STATUS REGISTER 4 (XSTAT4)

oot

4oc-t-=-= $ -t

'HSP!

'RCE'

BIT

DETECTED

NAME

TCC

#eccbocmhoc-b

'
oot

beomcbo

URITE RETRY COUNT

'
4-~-=9

OtFINITION

b mrbommh
bme= (R

00
R

!
!

beemboccdoc-t

~pm-—boe=t

L 4
TSVOS DATA RELIABILITY
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858

MACRO M1113

14-JUUN-84
15

18:32
HSP

SEQ 0037
HIGH

SPEED.

RCE

SET,INDICATES

THAT

THE

IS OPERATING

IN LOW SPEED MODE.(2SIPS)

RETRY COUNT EXCEEDED. WHEN SET,INDICATES THAT THE CONTROLLER
WAS BUFFERING WRITE DATA AND COULD NOT SUCESSFULLY QUTPUT

THE

BUFFERED RECORD

WITHIN

THE

SPECIFIED

CAUSES TAPE POSITION LOST TEFRMINATION.

NUMBER

RETRIES.

RESERVED (ALWAYS A 0)

13-8
70

TRANSPORT

OPERATING IN HIGH SPEED MODE.(100IPS) WHEN CLEAR, THE
TRANSPORT

WHEN

WRC

WRITE RECOUNT COUNTY STATISTIC. THIS FIELD INDICATES, WHEN
THE CONTROLLER IS BUFFERING WRITE DATA RECORDS, THE TOTAL
NUMBER OF CONTROLLER INITIATED RETRIES PERFORMED IN ORDER
TO WRITE THE PREVIOUS BUFFERED RECORD. THIS COUNT IS CLEARED

AFTER

IS DISPLAYED.

7.0 DIAGNOSTIC HISTORY

REVISION A

MAR

REVISION B

APR

1982

MODIFIED CZTSHC FROM TS11 FOR TSVOS
1983

UPDATED THE DIAGNOSTIC TO SUPPLY THE CORRECT

RECORD NUMBER DURING EXECUTION OF TEST @2,
REF: CHMIELECKI TO MITCHELL "TSVOS DATA
RELIABILITY PROBLEM"; 21-JAN-83.
REVISION C

JUN 1984
MINOR

CHANGES FOR

"ORION'

CPU

TSVOS DATA REL IABIL I

MACRC M111%

14 JUN 84

18:32

SEN 0038

.TITLE PROGRAM HMEADER AND
PROGRAM HEADER
LSBT

43
45

46
48 0C200C
49

50
S1
Se
53
54
55 002000
56
od
65 002000

002000
002000
002001
002002

.ENABL
.
B8GNM00D

002000

“ABLES

ABS,AMA
2000

:..

;
;

THE PROGRAM HEADER IS THE INTERFACE BETWEEN
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
POINTER BGNRPT , BGNSK, BGNSF T,BGNAL , BGNOU

L SNAME. :

HEADER

(CvTSE,C,0,5000,1
;OIAGNOSTIC NAME

/C/
/N7

VA N4
V4-Y4
7€/

002003

002014

002014
002016
002016
002020
002022
002022
002024
002024
002026
002026
002030
007030
002032
002032

002034
002034
002036
002036

002040
002040
002042
002C42
002044

LSREV::

;REVISION LEVEL

LSDEPO::

LSUNIT-:

iNUMBER OF UNITS

LsTIm::

;LONGEST

LSHPCP::

;POINTER TO W M.

QUES.

.
L$SPCP:

;POINTER TO S.W.

QUES.

/C/
70/

TEST

TImME

PTABLE

;PTR.

T0O DEF.

H.W.

LSSPTP::

;PTR.

TC S.w.

PTABLE

LSLADP::

;DIAG. END ADORESS

:
8$STA:

:RESERVED FOR APT STATS

.
LPTIP

L8CO::

LIDTYP

;OIAGNOSTIC TYPE

:.
LIAPT

;APT EXPANSION

L$OTP::

:PTR.

LS$PRIC:

;:DIAGNOSTIC RUN PRIORITY

LSENVI:

;FLAGS DESCRIBE TMOw IT wAS SETUP

TO DISPATCH TABLE

RRRRRERRRREERE

002004
002005
002006
002007
002010
002010
002011
002011
002012
002012

L $HARD

L$SOFT
LSred

LSLAST
0
0

1
0

LSOISPATCH
0

¢ PROGRAM +€ ADER ANC “AB.

MACRT TM1 (1!

4 AN M

N-ERP

SEQ 20%9

002164

017570
000000

000000
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
002110
002112
002112
0v2114
002114
002116
002116

002120
002120

024052
024000

000000
002136

104035
000000

021324
023736

023314
021316
000000

000000
000000

LSREPP
.;

Pk,

POINTER

TO DEVICE

T0 REPORT

TrPE LIST

COOE

LSEXPA::
LSEXPS
.|

LSAUT::

;PTR.

TO ADO UNIT CODE

LSOUT::

PTIR,

TO OROP UNIT COOE

LSLUN::

iLUN +OR EXERCISERS

LS$OESP::

;POINTER TO OIAG.

:
LS$LOARD.

;GENERATE

LSETP::

;POINTER 70 ERRTBL

LS$ICP::

PTR,

:
LSCCP:

;PTR,

TO CLEAN-UP COOE

LS$ACP:
:

:PTR.

T0 AUTO COOE

LS$PRT:
:

;PTR.

TO PROTECT

LS$TEST::

;:TEST NUMBER

LSOLY::

;DELAY COUNT

LSHIME::

;:PTR.

10 FILL

DESCRIPTION

SPECIAL AUTOLOAD EMTY

INIT

COOtE

TO HIGH MEM

TABLE

O
O
NN

EVENT FLAGS

LeoPC::
LSOEVP::

SREVISION

SEDI’

;DIAG.

§ 8
o

“SEF

AND EDIT

:SvC REv

5585888358

000000

..
LSMRE,

LSDVTYP
T
LSk
0
0
LAY

LSDu

L $0€ESC

E$LOAD

55855E

007000
000000

;EXPANSION WORD

oCs
003

JOEXP

L
1.
J

PROLRAM EADER

LS$INIT
L$CLEAN

L $AUTO
L$PROT
0

. WORD

.WORD

b4
MACRO M1113

PROGRAM MEADER AND TABLES
DISPATCH TABLE

14 JUUN 84

.SBTTL

18:32

SEQ 0040

DISPATCH TABLE

75
76

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST,

78
79

IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST,

:--

80 0021c2

002122
002124
002124
002126

002130

002132
002134

DISPATCH S

000005

LSDISPAT(CH:
:

024156
025644
026500
026674
027054

Tl
T3
T4

81
88
89

.SBTTL

9
9¢

DESCRIPTIVE TEXT

HEA4

:2 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER TES

St/

002136
002136
002136
002141
002144
002147
002152
002155
002160
002163
002164
002164
002164
002167

104

101

101
105
101
114
131
105

040
114
102
111
040

124

123

123
065

124

LS$DESC::

DESCRIPT

<DATA RELIABILITY

TEST>
.ASCIZ

/DATA RELIABILITY TE

122

111
111

124
124
124
DEVTYP
L$OVTYP:;

<TSV0S>

.EVEN
.ASCI2
.EVEN

/TSwS/

‘4

PROGRAM HEADEF AND TABLE
S
DEFAULT HARDWIRE

TABLE

SEQ 004]

DEFALT HARDWARE P TABLE

1o
: THE DEFAULT HARDWARE P TABLE CONTAINS DEFALLT VALUES 0F
; THE TEST-DEVICE PARAMETERS,
THE STRUCTURE OF TMIS TABLE
: IS IDENTICAL TO THE STRUCTURE OF THE RUN TIME P TABLE,
:

10C
1C1

102
103
104

105

106 002172
002172
002174

000003

002174

109 002174
110 002176
111 002200
112
113 002202
114

14 JUN 84 18:32

.SB8TTL

107
108

MACRO M1113

B8GNHW

OFPTBL

LIHM::

. WORD

L10000-L s/

.WORD

L10001 L$SW/2

DFPTBL::

172520
000224
000000

002202

. WORD
. WORD
.WORD
L10000:

172520
224
0

1 TSO8 ADODRESS.
sVECTOR ADDRESS.
sDRIVE 60 FOR DEFAWLT

ENDHW

115

116

117

.SBTTL

120
151

: THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM
;: PARAMETERS THAT CAN BE CHANGED B8Y THE OPERATOR,
;- -

llg

122
123

124 002202

SOFTWARE P-TABLE

BGNSW

002202

000051

002204
002205
002206
002207
002210
002211
002212
002213
002214
002215
002216
002217
002220
002222

001
000
000
000
001
000
000
000
000
000
000
000
000040
000015

CLRFLG:: .8YTE
RRANV.: .BYTE
HAE :
.BYTE
ERCVER:: .BYTE
BADTSW:: .BYTE
.BYTE
DINT:
.BYTE
IREC'
.BYTE
CHGFLG:: .BYTE
.BYTE
PIRE::
.BYTE
.BYTE
CHAR::
CH.EAI
CMDD::
.WORD

149 002232
150 002234
151 002236
152 002240

000004
004000
076400
000007

. WORD
. WORD
. WORD
WORD

002204
125 002204
132
133
134
135
136
137
138
139
140
141
142
143
144
145

146 002224
147 002226
148 002230

153 002242

000001
000001
000007

000003

SFPTBL

LESW
SFPTBL
1
0
0
O
1
(0]
0
0
O
0
0
0
13.

tCLEAR COUNTERS FLAG.
sRESET RANDOM VARIABLES EACH PASS FLAG.
tHALT AFTER EACH COMMAND FLAG.
1ENABLE RECOVERABLE ERRON PRINTS FLAG.
1BAD TAPE SWITCH TO REWRITE ON SAME SPOT & DETECT BAD TAPE
1 SPARE
1DISABLE INTERRUPTS FLAG.
s INMIBIT ERROR RECOVERY FLAG.
sCHANGE CMD SEQ TABLE FLAG.
1 SPARE
IIMIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG.
s SPARE.
SCHMACTERISYICS COOE (DEFAULT = 40).
sCOMMAND 2 (DEFAWLT = REWIND).

4
DATCNT
32000.
RANP

sCOMMAND 3 (DEFAWLT = WRITE)
;BYTE COUNT (DEFAWLT = MAX BUFFER SIZE).
INUMBER OF OPERATIONS (DEFAWLT = 32000).
sPATTERN (DEFAULT = RANDOM).

. WORD
.WORD
. WORD

1
1
RANP

JWORD

sBYTE COUNT
sNUMBER OF OPERATIONS
sPATTERN

;COMMAND 4 (DEFAULT + READ REV).

182

DATCNT

004000
076400
000007
000002
004000
076400
000007
000015
000001
000001
000007
000033
004000
076400
000007

32000.

RANP

2
DATCNT
32000.

RANP

13.

1
1

000033

004000
076400
000007
000001
000000
000000
000000
000000
000000

TS1MD::

5555888888848

RANP

WTBUF: :
HSSW: :
EXTFEA::.

BENBSW: : .

002252

18:3°

L10001:

181

002244
002246
002250

14 JUN R4

154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180

MACRO M1113

SOF TWARE P TABLE

L <

PROGRAM HEADER ANO TABLES

27.

DATCNT
32000.

RANP

27.

DATCNT
32000.

RANP

D4
SEQ 004r

1BYTE COUNT (DEFAULT = MAX BUFFER SI/E ),
INUMBER OF OPERATIONS (DEFAWLLT = 32,000).

tPATTERN (DEFAULT

= RANDOM).

sPATTERN (DEFAWLT

= RANDOM).

tCOMMAND S (DEFALLT = READ FWD).
1BYTE COUNT (DEFAULT = MAX BUFFER SIZE
.
tNUMBER OF OPERATIONS (DEFAWLT = 32,000).
sCOMMAND 6 (DEFAULT = REWIND).
1BYTE COUNT
iNUMBER OF OPERATIONS

1PATTERN

;1END OF CMD SEQ TABLE CODE (DEF) OR CMD 7

sBYTE COUNT (DEFAULT = MAX BUFFER SIZE).
iNUMBER OF OPERATIONS (DEFAWLT + 32000).

;PATTERN (DEFALLT

= RANDOM).

tPATTERN (DEFAULT

= RANDOM),

sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 8
sBYTE COUNT (DEFALLT = MAX BUFFER SIZE).
tNUMBER OF OPERATIONS (DEFAULT = 32000).

sDEFAULT SWITCH SETTING
1ENABLE READ BUFFERING
sENABLE WRITE BUFFERING
sRUN AT 100IPS SWITCH
tEXTENDED FEATURES SOFTWARE SW O=0FF ;1=0N
tBUFFER ENABLE SOF TWARE SW O=OFF
; 1sON

PROGRAM HEADER AND TABLES

MACROC M1113

JUUN

18:32

SEQ 0043

SOF TWARE P TABLE
195
196
197
206

.TITLE GLOBAL AREAS
.SBTTL
GLOBAL EQUATES SECTION
BGNMOD

207 002326
208
209
210
21l
212
213

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES
ARE USED IN MORE THAN ONE TEST,

THAT

EQUALS

214 002326
:

; BIT DIFINITIONS

B8IT1S=+«
8IT14==
B8IT13==
8IT12==
B8IT11==
8IT10==
8I709==
B8IT08==
8IT07==
8IT06==
8IT05==
BITOA==
8IT03==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10

B8IT00==

8IT02== 4
8IT01== 2
3

8I79==
BIT8==B8IT7==
8IT6==
BITS==
B8IT4==
B8173==
B8IT2=»
B8ITlee
8ITO==

BIT09
BITO8
BITO7
BITO06
BITOS
BITO4
BITO3
BITO2
BITOL
BITO0O

s EVENT FLAG DEFINITIONS
;s
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNILATION
000040
000037
000036
000035
000034

EF .START ==
EF .RESTART ==
EF .CONTINVE==

EF .NEWs=~
EF .PWR==

32.
31.
30.

29.
28.

: PRIORITY LEVEL DEFINITIONS
000340
000300

PRIO7== 340
PRIO6==

300

:
;
;

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED

A POWER FAIL/POWER UP OCCURRED

A NEW PASS HAS BEEN STARTED

[d
MACRO M1113
GLOBAL AREAS
GLOBAL EQUATES SECTION
000240
000200
000140
000100
000040

14 JUN 84

18:3°2

SEQ 0044

PR1OS== 240
PRIO4== 200
PRIO3== 140
PRIO2== 100
PRIO1== 40

PRIOO== 0

{OPERATOR FLAG BITS
EVL==
LOT==
ADR==
I0U=+
ISR==

4
10
20
40
100

UAMs= =

200

PNT=s=

1000

BOE ==

215
223
224
225
227
228
229
230
231
232
233

PRI ==
IXE==
IBE==
IER==
LOE=HOE==

400

2000
4000
10000
20000
40000
100000

: REGISTER USAGE.
:

RO - PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR.

R1 - COMMAND SEQUENCE TABLE POINTER.

$
:
:
:
3

R2
R3
R4
RS
R6

GENERAL PURPOSE
GENERAL PURPOSE
GENERAL PURPOSE
CURRENT LOGICAL
STACK POINTER,

- PROGRAM COUNTER.

GLOBAL AREAS

MACRC M1113%

GLOBAL EQUATES SECTION
235
236
237
238
239

240
241
242

243

244
245
246
247
248
249

250
251
252
253
254
255
256
257
258
259
260
261
262

263

264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283

14 JUUN 84 18:32

SEQ 0045

;:THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS.
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
177117

177761

15.5C=+=100000
TS.UPE==40C00
1S.SPE==20000
TS.RMR==10000

TS .NXM==4000
TS.NBA==2000
75.A17==1000
TS.A16+=400
75.S5SR==200

1S.0FL==100

TSC.FCCee177717

TSC.TCC==177761

1SPECIAL CONDITION BIT,
tUNIBUS PARITY ERROR
$1SERIAL BUS PARITY ERROR.
tREGISTER MODIFICATION REFUSED.
tNON-EXISTENT MEMORY,
1NEED BUFFER ADDRESS.
;1BUS ADDRESS BIT 17,
1BUS ADDRESS BIT
$UNIT READY BIT,
sOFF LINE.

16.

sFATAL CLASS CODE MASK.
;sTERMINATION CLASS CODE MASK.,

:THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD
100000
040000
010000
004000
004000

002000
001000
000400
000200
000100
000100

ACK .C==100000
cvC .C==40000
oPP, C==20000
SW8 .C==10000
M00. C3==4000
BRF .C==4000

00 .C2++2000
MOD .C1==1000
100 .CO==400

IE.C==200

FMT. Cl==100
VFY, C==100

000040
000040

FMT, CO==40

000020
000020
000010

CMD. C4=+20
oLY .C==20
CMD. C3==10
CMO. C2==4
CMOD. Cl==2
CMD. co--l

000002
000001

JP, C==40

s ACKNOWLEDGE BIT
;CLEAR VOLUME CHECK.
sOPPOSITE BIT

1SWAP BYTE BIT

sMODE BIT 3
sBYTE/RECORD/FILE COUNT FLAG BIT.
NOT USED
s8Y TSOS BUT USED INTERNALLY BY THIS PROGRAM OMLY.
sMODE BIT 2
sMODE BIT 1
sMODE B1T O

s INTERRUPT ENABLE
sFORMAT BIT 1
sWRITE VERIFY FLAG BIT.

INTERNAL USE ONLY.
sNOT USED BY TSO0S.
sFORMAT BIT O.
s JUMP BIT-T0 DIRECT THIS PROGRAM TO JuMP T0
sA CERTAIN LOCATION IN THE COMMAND SEQUENCE
sTABLE.
INTERNAL USE ONLY.
;1COMMAND BIT 4
s INSERT DELAY, INTERNAL USE ONLY.
sCOMMAND BIT 3
;COMMAND BIT 2

;COMMAND BIT 1
s:COMMAND BIT 0O

;8IT DEFINITIONS FOR DEVICE CHARACTERISTICS.
000200
000040
000020
000040

CH.ESS==200
CH.EAI==40
CH.ERI==20
OF TSCH=«CH.EAI

$ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT).
{ENABLE ATTENTION INTERRUPTS.
1tENABLE MESSAGE BUFFER RELEASE INTERRUPTS.
;DEFALT CHARACTERISTICS COOE.

MACRO M1113
GLOBAL AREAS
GLOBAL EQUATES SECTION

285
286

;:BIT DEFINITIONS FOR EXTENDED CONTROL WORD
000040
000030
000020

291
292

293
294
295
296
297
298
299
300

301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336

tENABLE HIGH SPEED SELECT
1ENAELE BOTH READ & WRITE BUFFERING
$ENABLE READ BUFFERING ONLY

EF .HSS5==40
EF .RWB==30
EF .RBO==20
: THE FOLLOWING

INDICATES

THE

RELATIVE POSITIONS OF

THE

STATUS WORDS

+IN THE MESSAGE BUFFER.
000004

000010
000012
000014
000016

MS.RF(C==4

MS.XS0==6

M5.XS1==10
MS.XS2==12
MS.X53==14
MS.XS4==16

sRESIDUAL FRAME
1EXT STATUS REG
sEXT STATUS REG
+EXT STATUS REG
{EXT STATUS REG
sEXT STATUS REG

OUNT.,

288
289
290

SEQ 0046

287

14 JUN 84 18:32

;:THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0.
100000
040000
020000
010000
000100
000002
000001

X0. TMK==100000
X0 .RLS==40000
X0.LET==20000
X0.RLL==10000
XO.ONL==100
XO.WLK==4
X0.80T==2
X0.EQTe=1

: TAPE MARK,

{RECORD LENGTH SHORT,
sLOGICAL EOT.
sRECORD LENGTH LONG.
;ON LINE BIT.
tWRITE LOCK BIT
;80T BIT.
;EOT BIT,

: THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2.
100000
000200
000100

X2 .0PM==100000
X2 .EFE==200
X2.8FE==100

;:CPERATION IN PROGRESS, TAPE MOVING
;EXTENDED FEATURES ENABLED
sBUFFERING ENABLED

; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER

000010

157400

X3.0CK==10

X3.RNY==157400

sDENSITY CHECK.

1 CAPSTAN RUNAWAY UDIAG ERROR COOE.

; THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4.

100000
040000

X4 .HSS==100000
X4 .RCE== 40000

tHIGH SPEED SWITCH INDICATING 100IPS
tRETRY COUNT EXCEEDED

s THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND

:PACKET ENTRIES.

CP.CMD==0
CP.ADL==2
CP.ADH==4
CP.CNT==6

;CMOPKT+0==TS0S COMMAND.
1 CMOPKT +2==BUFFER ADDRESS LOW.
:CMOPKT +4==BUFFEK ADDRESS HIGH.
sCKOPKT +6==BYTE/FILE/RECORD COUNT

GLOBAL AREAS

MACRO M1113

GLOBAL EQUATES SECTION
338

339

340

14 JUN 84 18:32

sMISCELLANEOUS OEFINITIONS.

341
342
343

000340
000012

INTPRI==PRIO7
SCHCNT==12

344

345

000020

MSGCNT==20

346

000020

004000

DATCNT==2048.

347
348

349
350
351

352
353
354
355

356
;gg

SEQ 0047/

177740
000007
000020
000020
153624
032561
177774
177740

ggg

1PRIORITY TO BE USED IN INTERRUPT STATE,
tARBITRARY BYTE LENGTH FOR CHARACTERISTIC
tBUFFER LENGTH. (EVEN @)

tMESSAGE BUFFER LENGTH IN BYTES. (EVEN @)

DIACNT==20

tOIAGNOSTIC COMMAND BUFFER EXTENT,

sMAXIMUM RECORD LENGTH IN BYTES,

1 THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE
;PROPER READ/WRITE BUFFER ALLOCATINN BY THE SUPER.

RNOPSC==177740
RANP==7

tRANDOM & OF OPERATIONS MASK.
;CODE TO SELECT RANDOM PATTERN.

RRECL==16.

;READ RECOVERY ATTEMPT LIMIT,

WRECL ==16.
RANBC==153624
RANSC==32561
NINUSE==177774

+WRITE RECOVERY ATTEMPT LIMIT.
sCONSTANT USED TO RESET RANDOM & GENERATOR BASE.
sCONSTANT USED TO RESET RANDOM & SAVE LOCATION.
sNOT IN USE CODE FOR DEVICE STATE TABLE.

NCMO.C==ACK.C!CVC.C!'OPP.C!SWB.C!M0OD.C3'MOD.C2¢M00.C1!M00.CO!IE.C!FMT
C1!FMT.CO
sNOT "COMMAND"” BITS.
;:THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TSOS5 COMMAND.

361

100013

ORI==

ACK.C!CMD.C3!:CMD.C1:CMD.CO

364

104001

ROF==

ACK.C!BRF.C!CMD.CO

367
fig

104401

ROR==

ACK.C!BRF.C!MOD.CO!CMD.CO
sREAD REVERSE

370

104005

WRT==

ACK.C!BRF.C!CMD.CO!CMD.C2

373
g;g

104105

WTvs==

ACK.C!BRF.C!VFY.C!CMD.CO!CMD.C2
tWRITE VERIFY

376

104010

SRF==

ACK.C!BRF.C!CMD.C3

379

104410

SRR==

ACK.C!BRF.C!MOD.CO!CMD.C3

382
ggi

105401

RNR==

ACK.C'BRF.C!M0OD.C1:!M00.CO!CMD.CO
tREAD REV RETRY1 - REREAD NEXT REVERSE, IE.

385

125401

RNF==

ACK.C!BRF.C!0PP.C!M0D.C1!MOD.CO!CMD.CO

388

105001

RPF==

ACK.C!BRF.C!MOD.C1!CMD.CO

125001

RPR==

ACK.C!BRF.C!'OPP.C!M0OD.C1!CMD.CO

105005

WRR==

ACK.C!MOD.C1!BRF.C!CMD.C2!CMD.CO

332%

3325
6

g;g

ggg

389

391

392

393

394

;:ORIVE INIT.
;READ FORWARD

;WRITE COMMAND

1 SPACE RECORD FORWARD
s SPACE RECORD REVERSE

tREAD REV RETRY2

{READ FWD RETRY1

tREAD FWD RETRYZ2

- REREAD NEXT FORWARD,

SPACE FWO, READ REVERSE

IE.READ FORWARD,

- REREAD PREVIOUS FORWARD,
- REREAD PREVIOUS REVERSE,

SPACE REVERSE

IE.

SPACE REVERSE,

READ FORWARD

IE.

READ REVERSE,

SPACE FORWARD

GLOBAL AREAS

MACRO M1113

GLOBAL EQUATES SECTION
39S
396
397
398
399

14 JUUN 84 18:32

SEQ 0048

‘WRITE RETRY
ACK .CtMOD .C2!CMD.C3

102010

RWD
= -

100012

mR:s

403

100011

WTM==

ACK .C!CMD. C3:CMD.CO

404
405
406

101011

WIR==

ACK .C!MOD. C1:CMD.C3:CMD. co

105010

SFF=s

105410

SFR==

ACK .C!BRF .C!M0D.CO!MOD.C1:CMD.C3

100017

GES==

ACK .C!CMD. Co:!CMD.C1!CMD. C2!CMD.C3

100411

ERS==

ACK .C!MOD. Co!CMD.C3!CMD. co

400
401
402

407
408
409
410
411
412

413
414
415

416

417
418
419
420
421
422

423
424

425

426
427
428
429
430
431
432
433
434
435
436
437

ACK .C!CMC. Cc3:!:CMD.C1

:REWIND COMMAND

tMESSAGE BUFFER RELEASE

tWRITE TAPE MARK,
tWRITE TAPE MARK RETRY.

ACK .C!BRF .C!M0D.C1!CMD.C3

:SPACE FILE FORWARD

1 SPACE FILE REVERSE
;GET EXTENDED STATUS

;ERASE 3 INCHES OF TAPE

ACK .C!MO0. £O!CMD.C3:CMD. C1

100412

s UNLOAD COMMAND

101012

CLN==

ACK. C!MOD. C1:!:CMD.C3:CMD. C1

140004

SCH=s=

ACK. C:CvC .C!CMD.C2

140006

WSHM=a

ACK. Cc!CvC .C!CMD.C2!CMD.C1

100006

DIA==

ACK .C!CMD. c2:CMD.C1

sDIAGNOSTICS.

JMP, C

3JUMP TO “M"TH COMMAND

000040

$ERASE TAPE.

:SET DEVICE CHARACTERISTICS.

sWRITE SUB-SYS MEM

000020

OLY==

DLY .C

;:DELAY "N" MS,

177777

END==

177777

:END OF COMMAND SEQUENCES

GLOBAL AREAS

MACRDO M1113

GLOBAL DATA SECTION

439

14 JUUN 84 18:32
.SBTTL

GLOBAL DATA SECTION

440

HAR

447

: IN MORE THAN ONE TEST.

441

444

446
447
448
449

450

THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

;--

443

445

SEQ 0049

002330
002332
002334
002336

002330

000000
000000
000000
000000

451

452

4S3

454 002340

002340
100017

455

Qgg

COMMAND PACKET,

<, +3>8177774

CMOPKT:: O
0
0
0

sMUST BE ON MOD 4 BOUNDRY,
$1ST
32ND
13RD
;4TH

WORD
WORD
WORD
WORD

IS
1S
IS
IS

TSNS COMMAND.
THE BUFFER LOW ADDRESS.
THE BUFFER HIGH ADDRESS.
THE BYTE/RECORD/FILE COUNT.

GET STATUS COMMAND PACKET.

MESSAGE BUFFER RELEASE COMMAND PACKET.

.
BRCPK::

e
.WORD

REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY)

GSCPK::

<. +3>8177774

.WORD

GES

tMUST BE ON MOD 4 BOUNDRY.

458
459 002344

002344
100012

460

461

462

<.+3>8177774
MBR

463
464

002350

<,+3>£177774

465 002350

102010

RWCPK::

.WORD

RWO

:gg 002352

000001

. WORD

468

WORK

sMUST BE ON MOD 4 BOUNDRY,

;MUST BE ON MOD 4 BOUNDRY,

AREA FOR ANALYSIS OF

MESSAGE

PACKET

CONTENTS.

469

470 002354
471
472

MSGPKT::

.BLKW

;1ST WORD::
;2ND WORD::
;3RD WORD::

MESSAGE TYPE.
DATA FIELD LENGTH.
RESIDUAL FRAME COUNT.
XSTATO

473

;4TH

474

;STH WORD::

XSTAT1

475
476
477
478
479

;6TH WURD::
;7TH WORD::
;8TH WORD::

XSTAT?2
XSTAT3
XSTATA

480 002374

:
MESSAGE
MSGPKO::
.BLKW

481 002414

MSGPK1::

MSGPK2::

.BLKW

PACKETS.,
8,
8,
8.

:gi 002454

MSGPK2::

.BLKW

482 002434

485
486
487
488
489

002474
002476
002500
002502

002374
000000
000020
000040

491
492
493 002506
494 002510
495 002512

000000
000000
000000

490 002504

000000

.BLKW

:MESSAGE

;
WSMBK::

WRITE
O
0
0

PACKET

;sMESSAGE

PACKEY

DEVICE

FOR

DEVICE

;sMESSAGE PACKET FOR DEVICE o3

WORD::
WORD::
WORD::
WORD::

:STH WORD::

SUB-SYSTEM MEMORY

FOR

sMESSAGE PACKET FOR DEVICE

H
SET CHARACTERISTIC BLOCK.
SCHBK
: : MSGPKO
:1ST
0
:2ND
MSGCNT
:+3RD
CH.EAI
:4TH

WORD::

MSGPKT ADDR LO(SET UP BY EXCUTE ROUTINE).
MSGPKT ADDR HI.
MSG BUFFER LENGTH (BYTES)
CHARACTERISTICS WORD(SET BY SETUP ROUTINE).

HSP & BUFFER CONTROL ON EXT'D FEATURES

CHARACTERISTIC BLOCK.
$1ST WORD:: SEL O
:2ND WORD:: SEL 2
; 3RD WORD:: SEL 4

L4
GLOBAL AREAS

MACRO M1113

GLOBAL DATA SECTION
496
497
498 002514
499 002524

500
501
502
503
504
505
506
507
508
509
510
S11
S12

002534

002544
002546
002550
002552

002554
002556
002560
513 002562
514
515
516 002564
517 002566
518 002570
519 002572
520
521
522 002574
523 002576

524

525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541

14 JUN-84 18:32

002514

:
TS05 REGISTER ADDRESSES.
TSDB : .BLKW
4
: 7SO0S DATA BUFFER ADDRESSES.
TSSR.: .BLKW
4
;1 TSOS STATUS REGISTER ADDRESSES.
TSVCT:: .BLKW
4
s 7S05 VECTOR ADDRESSES.
TSBA==TS08
;DATA BUFFER ADDRESS REGISTER.

002374

MSGPKA::

002414
002434
002454

010034
010042
010050
010056

TSSINT::

TSSCL::

MSGPKO
MSGPK 1
MSGPK2
MSGPK3

;DEVICE 0.
t:OEVICE 1.
;DEVICE 2.
;DEVICE

177774
177774
177774
177774
177777

ADDRESSES OF INTERRUP| HMANDLING ROUTINES.
TSSINO

;sDEVICE O.

TSSIN1
TSSINZ
TSSIN3

:DEVICE 1.
sDEVICE 2.
;DEVICE 3.

TS0S CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST

O
0
0

;OEVICE O
;DEVICE 1
;:DEVICE 2

;DEVICE 3

TS0S EXT.
O

:
:

UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4).
WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL =

DEVTBL::

H
:
003046
003120
003172
003244

:
TSSSK::

002616
002620
002622
002624

ADDRESSES OF MESSAGE PACKETS.

002602

002604
002606
002610
002612
002614

SEQ 0050

BTADDR::

FEA € BUF,

0
0
0

ENA SW'S, WILL BE STORED AFTER SCH CMD
;OEVICE O

;OEVICE 1
;DEVICE 2
;OEVICE 3

RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2.

.WORD

.WORD
.WORD
.WORD
.WORD

NINUSE
NINUSE
NINUSE
NINUSE
END

BAD TAPE TABLE POINTER: USED BY WRITE RETRY ROUTINE
“WRTY”

BT0

8T1
812
813

TO LOG BAD TAPE

SPOTS ON UNITS UNDER

TEST

IN BASIC FUNCTION TEST

MACRC M1117%
GLOBAL AREARS
GLOBAL DATA SECTION

18:3¢

SEQ 0051

COUNTER AREA,
002626
002626
002666
002726
002766

:
RRBC:

.BLKW
.BLKMW
.BLKUW
: .BLKW
RFUNR:
870::
.BLKW
BTL::
.BLKW
B12::
.BLKW
B873::
.BLKMW
WRTYCT: . .BLKW
PASCNT:; .BLKW
SCCNT
: : .BLKW
VFYCNT:
:
RRUNR:
:
RFREC:
:

003376

FTLCONT:
:
CNTEND
=,
RECCNT:

000550

CNTLEN==CNTEND
- CNTBGN

570

:B8YTES WRITTEN.
:BYTES READ REV,
;BYTES READ FWD.

;RECOVERABLE WRITE ERRORS.
stUNRECOVERABLE WRITE t-RORS.
+RECOVERABLE READ REV ERRORS.
s UNRECOVERABLE READ REV ERRORS.
:RECOVERABLE READ FWOERR(MS.
s UNRECOVERABLE READ FWD ERRORS.
;UNIT O BAT TAPE SPOTS LOG
;UNIT 1 BAT TAPE SPOTS LOG
;UNIT 2 BAT TAPE SPOTS LOG
:UNIT 3 BAT TAPE SPOTS LOG
;WRITE

HROCNT
:

RETRY

003406

S75
576 003410
$77 003412
578 003414
579 003416
580 003420
581 003422
582 203424
583 003426
584 003430
585 003432
586 003434
587 003436
588 003440
589 003442
590 003444
591 003446
592 003450
593 003452
594 003454
595 003456

. WORD
DATAMT:
OIABLK=» DATAWT
DATARD:
NCNT::
.
.

saadianitiiggygt :

572
573

NCNYI::.

BRFCNT:.

153624
32561

COUNTER

;PASS COUNT,
:SPECIAL CONDITION COUNT.
;COUNT OF TSOS NATA COMPARE ERRORS.
;COUNT OF HMARD ERRORS.
;COUNT OF FATAL ERRDRS,
:END OF STATICTICAL COUNTERS.
:NUMBER OF RECORDS FROM BOT: CLEARED
ON REWIND
sAND WHEN RESTARTING OR CONTINUING TEST 2.
;LENGTH OF STATISTICAL COUNTER AREA.

THE FOLLOWING ARE THE DEFINITIONS OF
USED BY THE PROGRAM.

571

S74

20
20
20

RRREC:
:

003006
003016
003026
003036
003046
003120
003172
003244
003316
003326
003336
003346

003376

BLXW

BLKW

RFBC:: .BLKW
WRREC:
: .BLKWK
WRUNR:
: .BLKW

002776

003356
003366

CNTBGN=.

WRBC:
:

000000000

547X
544
545
546
547
548
549
550
551
552
SS3
554
55S
556
557
558
559
560
561
562
563
S64
565
566
567
568
569

14 N 84

VARIABLES

;WRITE BUFFER ADORESS.
sMRITE BUFFER ALSO USED FOR DIAG CMD.

;READ BUFFER ADORESS.

:STORAGE FOR VALUE OF N.
;TEMP STORAGE FOR VALUE OF N.
1STORAGE FOR BPCR VALUE.
1CONTAINS COMMAND WORD BEING EXECUTED PRESENTLY.
:SAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY
;CONTAINS PREVOUS COMMAND WORD.

s CURRENT COMMAND LOGGING COOE
.
tRANDOM WRITE LENGTH MASK, TO BE SET 'JP Br

tRANDOM @ GENERATOR BASE.

TESTS

sRANDOM @ SAVE LOCATION.
;TIME COUNT 1.
s TIME COUNT 2.
; P COMMAND LOOP COUNT.
1 P COMMAND LOCATION COUNT.
tPATTERN

SELECT

COOE.

;CURRENT TERMINATION CLASS CCOE.
:LOCATION FOR SAVING CURRENT

; CURRENT STATUS REGISTER.

sMRITE

TAPE

MARK

FLAG

JEVICE POINTER.

GLOBAL

AREAS

MACRC Mgt

SEQ

GLOBAL DATA SECTION

ERROR FLAG AREA, THMESE FLAGS ARE CLEARED DURING
AFTER EACH COMMAND IS COMPLETED.

598
599
600
601
602
603
604
605
606

§§§§§§§§§§

59~

003460
003462
003463
003464
003465
00346¢
607 003467
608 003470
609 003471
610

6.1
612

003472

613
614
615

629
630
631
632

003514
003515
003516
003517
003520
003521
003522
003523
003524
003525

633
634

§§§§§§§§§§§

616 003472
617 003502
618 003512

619
620
621
622
623
624
625
626
627
628

0035¢6

§§§§§
000000

003526
003527
003530
003531
640 003532
641 003534
642
643
644
645
646 003536
€47

O
O
O
O
O
O
O
O
O

INITIA IZATION aNC

;0 OF RECOVERY ATTEMPTS EXECUTED.
ioRITE REPEAT ON SAME SPOT CNTR. 4 PER WRITE
(MRITE RETRY ON SAME SPOT IN PROGRESS FLAG
(MRITE RETRY ON SAME SPOT ERROR FLAG

;READ/WRITE ERROR MAS OCCURED.
; UNRECOVERABLE ERROR MAS OCCURED.
;ERROR RECOVERY MOOE.

ADOITIONAL FLAGS,

THESE FLAGS ARE CLEARED DURING INITIALIZATION.

.BLXW
.BLxw

4
4

; INTERRUPT OCCURRED FLAGS FOR EACH DEVICE.
;€07/807 FLAGS FOR EACH DEVICE (XSTATO).

EXPBOT::

.BYTE

;80T

8TPT: .

RANDOM::

VFYFILG::
RPTFLG::
SWBFLG::

IRE: :

DROPED::
Ti1SWB::
ALLEOT::
ERSFLG::

ENDFLG=.

STAFLG::

.WORD
.BYTE

;BAD TAPE SPOT POINTER TO 870-873 VIA BTADOR

IS EXPECTED,

DO NOT ABOFT ON BOT/FUNC RTI.

:RANDOM EVERYTHING FLAG.

.BYTE
.BYTE
.BYTE

O
O
O

;SET DURING WRITE/VERIFY COMMAND.
; PERFORMANCE REPORT HAS BEEN REQUESTED.
;ENABLES SwAP BYTE FUNCTION WHEN NOT EQUAL

.BYTE
.BYTE
.BYTE
.BYTE

O
O
O
O

;CURRENT UNIT HAS BEEN DROPPED
;TEST1 SWAP BYTES FLAG
;ALL UNITS
@ EOT FLAG
;ERASE FLAG:
D0 ERASE AFTER A SPACE REV TO DELETE
;BADLY WRITTEN RECORD.
1 TO 4 ERASES LEAVING
;A 3 TO 12 INCH GAP MAY RESWLT.

.BYTE

;INMIBIT RESIDUAL FRAME COUNT ERROR REPORT.

.EVEN

ADDITIONAL FLAGS,

TO ZLRO.

THESE FLAGS ARE CLFARED ONLY AFTER EEING CHECKED.

.BYTE

;START FLAG

TRAPD4:: .BYTE
MISCFG:: .BYTE
TSUNT:: .WORD
TSNP::
.WORD

O
O
O
O

: TRAPED AT 4 FLAG
+MISCELLANEOUS FLAG
sNUMBER OF THE UNIT UNDER TEST PLUS HSSPEBUF
:FOR PRINT OUT UNIT & ONLY

PWURFLG::

RETR

{RECORD COUNT MAS BEEN UPDATED FOR THIS R_CORC.
1OATA BYTES AND ERRORS MAVE BEEN LOGGED FOR TWIS RECORC.

INTFLG::
EOTFLG::

635

636
637
638
639

BGMNF LG .
RETRYC:: .WORC
RPTCNT:: BY'E
WMRTYFG:: .BYTE
WRTYER:: BYTE
RECLOG:: .BYTE
ERMLOG:: .BYTE
RERR:: BYTE
UNREC:- .BYTE
ERRREC:: .BYTE
.EVEN
ENDERF
- .

00%¢

.BYTE

;POWER

FAILURE

SET BY
FLAG

INIT

SET

CODE
ONLY

STARTING.

DURING

INIT.

:
:

OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD
SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST

OPFLAG::

.WORD
.EVEN

;READ ONLY OPERATOR FLAG WORD

SR
MACRO M111%

GLCBAL DATA SECTION

662
663
664

665

666
667
668
669
670
671
672
673
674

675

676
677
678
679
680
681

682

683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705

18:32

SEQ 0053

1 THE FOLLOWING IS THE COMMAND SEQUENCE

iHAS DEFAULT

VALUES

PROGRAM LOAD

TABLE.

SHOWN.

THE

TABLE

THESE

VALIES

1CAN BE UPDATED BY A TEST OR BY OPERATOR INPYT,
140004
000040
000001
000000

102010

000001
000001
000007

CMDSEQ: :

. WORD
. WORD
. WORD
. WORD
CMOSE2: : . WORD
. WORD
.WORD
.WORD

104005
004000
076400
000007
104401
004000
076400
000007
104001
004000
076400
000007
102010

000001
0006001
000007

1777717
1777717

SEQEND: :

1777717
177777
177777

100013

104001

104401
104005
104105

104010
104410
105401

125401
105001
125001
105005
102010

100012
100011
101011

105010
10541C
100017

SCH
CH.EAI

1
0
RWO
1
1
RANP
WRT

DATCNT
32000.

RANP

ROR
DATCNT
32000.

RANP

ROF
DATCNTY
32000.

sREWIND.
sBYTE COUNT,
s ONCE.

tPATTERN,

sWRITE.
tMAX BUFFER LENGTM,
132,000 RECORDS.
tRANDOM PATTERN,
tREAD REV,
tMAX BUFFER LENGTH,
132,000 RECORDS
sRANDOM PATTERN.
IREAD FWD.
1MAX BUFFER LENGTH,

132.000 RECORDS.
tRANDOM PATTERN.
1REWIND

RANP

sPATTERN,

tBYTE COUNT,
! ONCE .

;EXTENSTION TO DOUBLE BUFFER SIZE
1SOFT END OF SEQUENCE TABLE.

FOLLOWING IS THE

cMOTBL: :

1SET CHARACTERISTICS.

RANP
RWO

661

JUN 84

55358380080080 5388g FE 55553838858858 g

649
650
651
652
653
654
655
656
657
658
659
660

GLOBAL AREAS

ORI
ROF
ROR
WRT
WiV

SRf
SRR

RNR
RNF
RPF
RPR
WRR
RWO

MBR

WTM
WIR
SFF
SFR
GES

sHARD END 0F SEQUENCE TABLE.

TSOS COMMAND TABLE

sORIVE INIT,
;READ FORWARD.
1READ REVERSE.
sMRITE

sWRITE/VERIFY,
(MRITE ALL RECORDS, RDR AND
1CHECK DATA ON ALL RECORDS, RDF AND
1CHECK DATA ON ALL RECORDS.)
s1SPACE “N* RECORDS FORWARD.
tSPACE "N” RECORDS REVERSE.

tREAD NEXT REVERSE. [.E., SPACE FWD, READ REVERSE.
tREAD NEXT FORWARD, 1.€E., READ FORWARD, SPACE REVERSE.

tREAD PREVIOUS FORWARD. I.E., SPACE REVERSE, READ FORWARD
tREAD PREVIOUS REVERSE. I.E., READ REVERSE, SPACE FORWARD
sWRITE RETRY,

s REWIND.
1MESSAGE BUFFER RELEASE

tWRITE TAPE MARK
sWRITE TAPE MARK RETRY,
s SPACE "N” FILES FORWARD.
1 SPACE ”N” FILES REVERSE.
$1GET EXTENDED STATUS.

GLOBAL AREAS

MACRO M111%

GLOBAL DATA SECTIOWN
706
107
708
709

004020

004022
004024
004026
004030
004032
004034
004036

710
711
712
713
714
715
716
717 004040

718 004043
719 004046
720 004051

721
722
723
724
725
726
727
728

729

730
731
732
733
734
735

736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752

004054

004057

14 JUN 84

18:3¢

SEQ 0054
ERS
UNL

100411
100412
101012
140004
100006
000040
000020

CLN
SCH
DIA
JP
OLY
END

177777

;tERASE 3 INCHES OF TAPE,
tREWIND AND UNLOAD.
1CLEAR TAPE,

1SET CHARACTERISTICS.
1DIAGNOSTIC COMMAND,

AP TO THE NTH COMMAND IN THE SEQUENCE.
tOELAY

"N" MS,

;END OF COMMAND TABLE

THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND.

104
122
122

122
104
104
122
124

123
123
122
122

122
122
116
116
120
120
122
127
102
124
124
106

127
127

111

106
122
124
126

CMDASC::

.ASCII /OR1/
/
/ROF
.ASCII
/ROR/
.ASC11
/WRT/
.ASCII
/MTV/
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

105
122
116
114
103

106
122
122
106
106
122
122
104
122
115
122
106
122
123
123
114
116
110

/SRF
/
/SRR/
/RNR/
/RNF
/
/RPF
/
/RPR/

004065
004070
004073
004076
004101
004104
004107
004112
004115
004120
004123
004126
004131
004134
004137
004142

127
122
115
127
127
123
123
107
105
125
103
123

004145

104

111

101

.ASCII

/DIA/

004150

112

115

120

.ASCII

/’MP/

004153

104

114

131

.ASCII

/0LY/

004156

105

116

104

.ASCII
.EVEN

/END/

122
122

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASC11
.ASCII

/WRR/
/7RD/
/MBR/
/WTM/
/WTR/
/7SFF/
/SFR/
/GES/
/ERS/
JUNL/
/CLN/
/7SCH/

sORIVE INIT,
tREAD FORWARD.
1READ REVERSE,
tWRITE
IWRITE/VERIFY,
(WRITE ALL RECORDS, RDR AND CHECKX DATA
sON ALL RECORDS, ROF AND CHECK DATA ON ALL RECORDS.:
1SPACE "N” RECORDS FORWARD.
1SPACE "N RECORDS REVERSE.
sREAD NEXT REVERSE. I.E., SPACE FWD READ REVERSE.
tREAD NEXT FORWARD, I.E., READ FORWARD, SPACE REVERSE.
tREAD PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORMWARD
sREAD PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD
tWRITE RETRY,
sREWIND.
1MESSAGE BUFFER RELEASE
tMRITE TAPE MARK
(WRITE TAPE MARK RETRY,
1SPACE "N" FILES FORWARD,
1SPACE “N” FILES REVERSE.
sGET EXTENDED STATUS.
1ERASE 3 INCMHES OF TAPE.
tREWIND AND UNLOAD.
sCLEAN TAPE,
$1SET CHARACTERISTICS.
WHERE BRF =200, 40, 20, O.

1SEE TSVOS5./TSOS PROGRAMMING SPECIFICATION FOR DESCRIPTION.
sOIAGNOSTICS.
SEE TSVOS5/TS0S PROGRAMMING SPECIFICATION
00T MUST BE USED TO LOAD DIAGNOSTIC DATA
tFOR DESCRIPTION.
sINTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED.
tJUMP TO THE NTH COMMAND IN THE COMMAND
1SEQUENCE TABLE, WHERE N 1S DEFINED IN
1THE & OF OPERATIONS.

sDELAY “N* MS, WHERE N IS DEFINED IN
;THE @ OF OPERATIONS.
;END OF COMMAND SEQUENCE
.

D
GLOBAL AREAS

MACRO M1113%

GLOBAL TEXT SECTION

14 JUN 84 18:32
.SBTTL

754

755
756
7S”
758

775 004162

776 004231
717
778 004306
779 004346
780
781
782

783 004475
784 004521
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

800
801
802
803
804
805
806
807
808
809

810
811
812

GLOBAL

TEXT

SECTION

THE GLOBAL

TEXT

SECTION CONTAINS FORMAT

STATEMENTS,

+ MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
;+ MORE THAN ONE TEST,

759
760
761

762
769
770
771
772
773
774

SEQ 0055

: FORMAT STATEMENTS USED IN PRINT CALLS
NLIST
045
045

116
116

130
103

130
115

104
116
125
122
124
122
104
106
106
116
124
124
103
122

101

045
045
045
045
045
045
045

045
045
045
040

045
045

117

116

123
105
122
125
101
117
101
117
101
105
116
116

116
116
116

101
101
101
101
101
116
101
052
116
116

CODELM: : ASCIZ
SWSET:: .ASCI2
.EVEN
HALTM:: .ASCIZ
CHMOPKM:; .ASCIZ
.EVEN
WTVERNM: : .ASCIZ
TOERM:
: .ASCIZ
SCERM:
: .ASCI12Z
RFCERM: : .ASCIZ2
: .ASCI1Z
NSSRM:
RLEXM:
: .ASCI1Z

ATTNM:;

.ASCIZ
ASCIZ
.ASCI1Z
NOINTM: : ASCIZ2
TSAM::
.ASCI2
TOOMM:
: .ASCIZ
RNYM: :
.ASCIZ
RERM:
:
.ASCIZ
URERM:: .ASCI1Z
: .ASCIZ2
.ASCI1Z

FUNRM:
:
FATSM:
:

BEX
/8NSAUNIT wD1sA TSOS CODE LEVEL sSO3sNESN/
/8NSAUNIT wD18A TSOS SWITCHM SETTINGS sO3IsNsN/
/XXX CMD - TYPE <«CR> TO CONTIMUE/
/CMO PACKET ADR NOT ON MOOULO 4 BOUNDARY:

/7DATA COMPARE ERROR/
/NO TSVOS RESPONSE/

/UNDEF INED SPEC COND/
/RFC NON ZERO/

/TSVOS NOT READY/
/RETRY LIMIT EXCEEDED/

/ORIVE OFF LINE/

/ZFUNCTION REJECT/

/FATAL SUBSYSTEM ERROR/
/N0 INTERRUPT/
/TAPE STATUS ALERT/
/700 MANY INTERRUPTS/
/CAPSTAN RUNAWAY-GET STATUS RESW.TS:/
/RECOVERABLE ERROR/
/UNRECOVERABLE ERROR/
/9NSADROPPED UNIT #018N/
/SNSAALL UNITS OROPPEDSNSN/
.ASCIZ /9NSADIAGNOSTIC ONLY SUPPORTS ONE CONTROLLERSNSN/
TE : sD45S20AUAS : 5B 8% S2%AS
/B : $BBSN "
.ASCIZ “SNSABY

:: .ASCIZ *#D4gA BYTES IN ERROR OUT OF sDAsN"
::
s+
::

.ASCIZ
.ASCIZ
JASCIZ
JASCIZ

/8ANO DATA READESN/
/8ARECORD TOO LONG: >#04%A BYTESSN/
/9ARECOVERED ON RETRY 0wD2wN/
/8ADRIVE #D18A OFF LINEWN/
ASCIZ /8AGET STATUS CMD RESWLTS:sN/
/8NSABUS TRAP AT #06%N/
/#AINTERFACE
BAD OR TSDB NOT SET TO ABOVE ADDRESSHN/
.ASC12
/ ssessTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSsesee/
JASCIZ
79N/
.ASCIZ

:: ASCII
:

RELOAD!/

p.. .ASCIZ /98NS T/
LIST
.EVEN

8EX

GLOBAL AREAS

MACRO M1113

GLOBAL ERROR REPORT SECTION

.SBTTL

SEQ 0056

GLOBAL ERROR REPCRT

SECTION

THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS
THAT ARE USED IN MORE THAN ONE TEST.
IT ALSO INCLUDES THE ASCII MESSAGES
THAT ARE USED BY THE PRINTB AND PRINTX CALLS..

®r

®¢

814
815
816
81~
818
819
820
821
822

823 005752
005752
829 005752
005752
005756
005762
005766
005772
005776
830

14 JUUN 84 18:32

006002

016546
016546
016746

006436

012746
012746
010600
104414
062706
010267
010367

006530

004767
016702
010367
016703
016704

840 006112
006112
006114
841
842
843 006116
006116
006116
844
84S 006120
006120
846 006120
006120
006124
006130
006134

016746
012746
012746
010600
104414
062706

@STAER1,TSNP,PASCNT(RS),RECCNT(RS)

MOV
MOV
MOV
MOV
MOV
MOV

RECCNT(RS),

ADD

012,SP

TRAP

000012

PRINT8

#STAER

MOV
MOV
MOV

000001

000004

MOV
MOV

001034
175400
175376
002016

MOV
JSR
MOV
MOV
MOV
MOV

001014
001010

175354
175352

PRINTB

000774
006562
000002
000006

EXIT

000167
000000

R2,RECRED
R3,TIMEL

R4, TIME2
PC,RECTAP
RECRED,R2
R3,RECRED
TIMEL,R3
TIME2 R4

@STAER6,RECRED

1 SAVE R2
:SAVE R3

L10002:

TSNP, (SP)
OSTAER], -(SP)
04, -(SP)

SP,RO
CS$PNTB

OSTAER7?, -(SP?
01, -(SP)
SP,RO

C$PNTB

04,SP

sRETRIEVE RECORD READ
sRESTORE R2
$SAVE RECORD READ
tRESTORE R3
sRESTORE R4
;PRINT RECORD READ

MSG

MOV
MOV
MOV

RECRED, -(SP)
@STAERG,
- (SP)

MOV
TRAP
ADO

SP,RO
C$PNTB
%6 ,5P

.WORD
. WORD

o
NE.N
L10002-2

TRAP

C#MSG

ENDMSG

BGNMSG

003376
003326
175400
006436

TRAP
ADD

(SP)

PASCNT(RS), -(SP)

:SAVE R4

.EVEN

104423

016546
016546
016746
012746

DTAERM

175546

012746
012746
010600
104414
062706

010467

006102

003376
003326

BGNMSG
OTAERM:
:
OATERM:: PRINTB

STAERM:
:
: PRINTB
STAERM:

STAERM
@OSTAER1, TSNP ,PASCNT(RS),RECCNT(RS)

0
MOV

MOV
MOV
MOV

RECCNT(RS), -(SP)
PASCNT(RS), -(SP)
TSNP, -(SP)
OSTAER], -(SP)

GLOBAL AREAS

MACRO M1113

GLOBAL ERROR REPORT SECTION
006140
006144
006146

006150
006154
006154
006160
006164
006166
006170
848 006174
349
850
851
852
853

855

856

857

006312
C06316
006322
006324
858 006332
006332
006336
006342
006346
006352
006356

006362
859 006366

006366
006372
006376
006402

006406
006412

14 JUN 84 18:32

SEQ 0057

012746
010600
104414
062706

000004

#4,

000012

#12,5P

012746
012746
010600
104414
062706
016702
042702
005302
005702
001016
004767

006530
000001

010367

000004

174130
177740

001646
001642

016746
012746
012746
010600
104414
062706

000640

012746
012746
010600
104415
062706

006616
000001

016746
016746
016746
017546
016746
012746
012746

175156
175156
174056

C¢PNTB

PRINTB

OSTAER?

ASTAER7, -(SP)
e1,-(SP)

SP,RO

C$PNTB
MOV

8IC
DEC
TST
BNE
JSR
MOV

PRINTB

04 ,5P

CMOPKT ,R2

0177740,R2

50000

PC,RECTAP
R3,RECTAP
@STAERG ,RECRED

:IF CMO IS A READ
: THEN RETRIEVE
; AND
: TYPE RECORD READ

006562
000002

500004: PRINTX

PRINTX

OSTAERZ

MOV

MOV
MOV
MOV
TRAP
ADD

MOV
MOV
MOV
TRAP
ADD
OSTAER3,CMDPKT
,8TSDB(RS ) ,MSGPKT+MS RFC, TSSREG,CTCC

016746
016746
016746
012746
012746
010600

104415
062706

016746
016746
016746
016746
016746
012746

RECRED, -(SP)
ASTAERG, -(SP)

SP,.RO
CS$PNTB
06,5P
O#STAER?,

-(SP)

SP,RO
CSPNTX
04,5P

CTCC, -(SP)

TSSREG, -(SP)

MSGPKT +MS.RFC, -(5P)
8TSDB(RS), -(SP)
CMOPKT, -(SP)

002514
174016
006675

OSTAERS3, -(SP)

SP.RO

010600

104415
062706

(SP)

SP,RO

000016

PRINTYX

174000
173772
173764
006733

#STAER4 ,CMOPKT +2,CMDPKT 4 ,CMOPKT +6

C$PNTX
#16,5P
MOV
MOV
MOV

MOV

MOV
TRAP

000012

174000
173772
173764
173756
173750

006753

ADD

PRINTX

-(SP)
+6, KT
CMOP
KT
.4, -(SP)
CMOP
-(SP)
+2, KT
CMOP
@STAERA4, -(SP)
04, -(SP)
SP,RO

CSPNTX
e12,SP

OSTAERS ,MSGPKT +MS . XSO, MSGPKT +MS, XS1,MSGPKT +MS . XS2,MSGPKT +MS . XS3 ,MSGPKT +MS . XS
MOV
MOV
MOV
MOV

MOV
MOV

MSGPKT
+MS . XS4, -(SP)
MSGPKT
+MS . XS3, -(SP)
MSGPKT
«MS . XS2, -(SP)
MSGPKT
+MS . XS1, -(SP)
MSGPKT
+«MS. XSO, -(SP)
#STAERS, -(SP)

MACRO M1113
GLOBAL AREAS
SECTION
REPORT
GLOBAL ERROR
006416
006422
006424
006426
860 006432
006432
006434
861
862

012746
010600
104415
062706

MOV

000016

EXIT

000167
000432

045

101

130

STAER]:

865
866
867
868
8569
870

045
045
045
045
045
045

101
123
116
117
117
117

120

STAER7:
STAER6:
STAERZ2:
STAER3:
STAER4:

871 006745
872 006753
873 007027

874
875
876 007C66
877
878 007070
007070
007070
879

881
882
883
884
88s

SEQ 0058

000006

863 006436

006530
006562
006616
006675
006733
006740

G5J

14 JUN-84 18:32

045
045
045
000000

104423

117
101
117

045

066

130

NLIST

BEX

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCII
.ASCIZ

/#APREVIOUS CMD WAS
XXX
/
/wS11%As RECORD READ:#DSHA s/
/#NsSACMOPKTHSS2uATSBASSASARF CESSEATSSRESISATCCEN/
/#06%S52%06%S2806%S2806%S2%D18N/
/wO6%N/
/#06%N/
/%06%N/

.232£Z

STAERS:

.ASCII
.ASCIZ
.LIST
.EVEN

RECRED:

MSG

.WORD

/#AXSTONSASAXST1SSASAXST28SASAXST 38SASAXSTASN/
/%06%S2%06%S2406%S2806%S2806%N/
BEX
O

;RECORD READ FROM TAPE

GLOBAL SUBROUTINES SECTION

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
ARE USED IN MORE

THAN ONE

TEST.

;:8Y WRITING INTO THE TSSR REGISTER.

907
908

ANY ERRORS

sDETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS.

: INPUTS;

CURRENT UNIT NUMBER

sQUTPUTS

®e
®e
B¢ We

905

AFTER THE INIT,

; THE TSSR REGISTER IS TESTED FOR ERRORS.

901
902
903

;ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER

JsumMP
L10003 2

/#AXXX CMD FAILED - UNIT s#01%S3%APASS:#D5%S38ARECORD
: wDSSN/

887

888
889
890
891
892
893
894
895
896
897
898
899

.WORD
.WORD

TRAP

.SBTTL

THAT

(SP)

SP,RO
CS$PNTX
#16,5P

ENDMSG

L10003:

06,

MOV
TRAP
ADD

CARRY

CONTENTS OF

TSSR,

SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR

CALLING SEQUENCE:
JSR
PC,.FIRSTU

ERROR

C#MSG

|_|r,
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14 JUN-84 18:32
JSR
8CS
ERRDF

909

910
911
912

913
914
915 007072
916

917 007072
918 007100
919 007104
920 007110
921 007114
922 007116
007116
007122
007124
007130
007132
007136
007140
007144
923 007146
924 007150
925 007152
926 007156
927 007160
928 007164
929 007170
930 007172
931 007174
932 007176
933 007200
007202

935
936
937
938
939
940
941
942
943
944
945
946
947
948
949

951
952
953
955

SEQ 0057
PC,SOF INIT
CONTINUE

;REPORT FATAL ERROR

SOF INIT::
012775
004767
012703
004767
103416

000000
003574
000550
000070

012727
000000
016727
000000
005367
001375
005367
001367
005303
001357
017500
010004
042704
0527C«
020400
001402
000241
000401
000261
000207

000250

002524

MOV

2$:

JSR
MOV
JSR
8CS
DELAY

@0,8TSSR(R5)

PC,WSSR
9360.,R3
PC.WAITF

(SAVREG) SAVE THE REGISTERS

DO THE INIT,

WAIT FOR

;WAIT

FOR UNIT

TO BE

READY

SSR

3
250
MOV
. WORD
MOV
. WORD

172766
177772

0eC
BNE
0eC
BNE

177756

002524

3%:

176277

002200

S$:
10¢:

DEC
BNE
MOV
MOV
BIC
BIS
ce
BEQ
CLC
BR
SEC

RTYS

R3
24

8TSSR(RS),RO
RO, R4

8250.(9C)o
ttOLY.(PC)*

-6(PC)
4

222(PC)
50

:GET THE TSSR REGISTER
s TSSR CONTENTS

@tC<TS.A17!TS.A16!TS.OFL>
R4
#TS.SSR!TS.NBA, R4
tR4 HAS EXPECTED CONTENTS
R4 ,RO
;ONLY EXPECTED BITS SET ?
St
:BRANCH IF OKAY

;CLEAR THe CARRY FOR ERROR

10¢

$GO TO EXIT

1SET THE CARRY RIT

+RETURN TO CALLER

: SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG
: INPUTS:
;

CURRENT UNIT NUMBER

OUTPUTS;
H

;

007204
007204
007206
007212
007216
007220
007222
007222

104422
012746
017500
105700
100420
012727

CARRY

CONTENTS OF LAST TSSR READ
SET - READY BIT SET
CLR - TIMEOUT MWAITING FOR READY

WAITF:: BREAK
005670
002524

000025

2s:

MOV
MOV

TST8

BMI
DELAY

: DO A SUPVSR BREAK FIRST.
03000.,-(SP)
8TSSR(RS),RO
RO
3

TRAP

C$BRK

MOV

025,(PC)e+

+ 300 MSEC TIMER.
tREAD THE TSSR REGISTER
;TEST FOR READY BIT SET

1 EXIT ON STOP FLAG.
i WAIT

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

956

957

959
960
961
962
963

007226
007230
007234
007236
007242
007244
007250
007252
007254
007256
007260
007262
007264
007266

00000

016727
000000
005367
001375
005367
001367
005316

14 JUN-84 18:32

SEQ 0060

.WORD

172662

MOV

177772

177756

001356
000241
000401
000261
005326
000207

3
44

DEC
BNE
CcLC
BR
SEC
DEC

RTS

(SP)
2

;REDUCE DELAY COUNT
sRETRY UNTIL TIMER EXPIRES

i...0R HUNG UP

(SP).

;
;

= O,

.MORD
DEC
BNE
0eC
BNE

AFTER

300 MSEC.

CONTROLLER IS STOPPED.

;RESTORE STACK WITHOUT CHANGING CARRY BIT

;ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES
@

;INPUT:

oUTPUT:

R4
ADDRESS OF COMMAND PACKET
RS
CURRENT UNIT NUMBER
REQUIRES A CALL TC SOFINIT BE DONE PREVIOUSLY

978
979
980
981
982
983
984
985

TSSR CONTENTS
SET - WRITE CHARACTERISTICS COMMAND OK
CLR - WRITE CHARACTERISTICS FAILED

IMPLICIT OUTPUT:

V¢

CARRY

SOF TWARE SWITCHES SET AS FOLLOWS:
EXTFEA = EXTENOED FEATURES PRESENT
BENBSW = BUFFER ENABLE SWITCH ON OR OFF

®e

987
988
989

SIDE EFFECTS:

991
992
993

1001

1003
1004
1005

007270
007270
007274
007300
007302
007304
007306
007310
007312
007320
007322
007326

010475
004767
103401
000421
005724
011402
011203
032763
001402
005267

WRTCHK
:
MOV
10¢:
JSR
8Cs

002514

177704

40%:

TST

MOV

172774

MOV
8IT
8EQ

000012

45%

INC

R4,8TSDB(RS)
PC,WAITF
408
604

(R4).
(R4),R2

(R2),R3

OX2 .EFE,MS. XS2(R3)
454

EXTFEA

O
-6{PC)
.-4
22(PC)
. 20

CONTROLLER STILL RUNNING.
..

965
967
968
969
970
971
972
973
974
975
976
977

O
L$OLY,(PC).

: SEND OUT COMMAND
iWAIT FOR SSR

1BR, IF SSR IS SET AND OK
;:BR IF TROUBLE CARRY = CLEAR
;STEP IV
;POINT TO WRT CHARA DATA PACKET
:GET ADDRESS OF MESSAGE BUFFER
;EXTENDED FEATURES BIT SET?
{BR IF NO

1SET EXTENDED FEATURES SW SWITCH

MACRO M1:13
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION
1006 007326

1007 007334
1008 007336

1009
1010
1011
1012
1013
1014
1015

007342
007342
007344
007346
007350
007354

032763

001402
005267
000261
00040:
000241
017500
000207

000100
172762

002524

1016

1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
102R
1029
1030
1031
1032
1033
1034
1035
1036

1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058

kJr’

14 UUN 84 18:32

000012

SEQ 0061

817

508
5S4
:
60§
:
704
:

8EqG
INC

SEC
B8R
CLC
MOV

RTS

oX2.BFE ,MS, XS2(R3)

;BUFFER ENABLE

50
BENBSW

iBR,
;SET

70%

8TSSR(RS),.RO

SWITCH SET

IF SWITCH NOT SET
SOF TWARE SWITCH FOR ENABLED

$SET CARRY NO TROUBLE
sEXIT

s CARRY CLEAR

= ERROR

sRETURN TSSR CONTENTS
tRETURN

HE4

:ROJUTINE TO CHECK WRITE LOCK CONDITION

;INPUT:

007356
007356
007362
007366
007370
007372
007374
007376
007400
007406
007410
007410
007412
007414
007416
007420
007424
007426
0C7430
007432
007434
007434

010475
004767
103401
000420
005724
011402
011203
032763
001407

002514
177616

QLKCHK::
10¢:

404
:

000207

ADORESS OF COMMAND PACKET

MOV
JSR
8CS

R4,8TSDB(RS)

:SEND T

TST
MOV
MOV

404
604

(R4).
(R4),R2
(R2),R3
@X0.WLK,MS. XSO(R3)

:BR, IF SSR IS SET AND OK
;B8R IF TROUBLE CARPY = CLEAR

554
1, UNIWLK

:NO,PROCEED WITH TESTING
;:TAPE IS WRITE LOCKED

8IT

8EQ
ERRHRD

104456

000001
005653
000000
004767
000402
000261
000401
000241

R4
RS

CURRENT UNIT NUMBER

PC,.WAITF

PC,DROPU
60%

007554
55%¢:

70%

604
:
70%:

COMMAND

:WAIT FOR SSR

:STEP IT
;POINT TO WRT CHARA DATA PACKET
;:GET ADDRESS OF MESSAGE BUFFER
;IS UNIT WRITE LOCKED?

;:DROP IT
sEXIT WITH CARRY=0

;SET CARRY NO TROUBLE
JEXIT

:CARRY CLEAR
:RETURN

;ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND
:

s INPUT:
:
:

R4
ADDRESS OF COMMAND PACKET
RS
CURRENT UNIT NUMBER
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY

;

;OUTPUT:
RO

TSSR CONTENTS

= ERROR

TRAP

.WORD
.WORD
.WORD

CS$ERHRD
1

UNIWLK
0

GLOBAL AREAS

MACRC M1113

GLOBAL SUBROUTINES SECTION
1059
1060
1061
1062
1063
1064
1065
1066
1067
1Cs8
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087

14 JUN B84

18:32

SEQ 0062

CARRY

SET
CLR

WRITE CHARACTERISTICS COMMAND OK
WRITE CHARACTERISTICS FAILED

IMPLICIT OUTPUT:

:SIUE EFFECTS:

007436
007436
007442
007446
007450
007452
007452
007454
007456
007460
007464

010475
004767
103401
000402
000261
000401
000241
017500
000207

002514
177536

WRTCHR:
:

10¢:

S0
:

002524

604 :

70¢:

MOV
JSR
BCS
BR

SEC
BR

CcLC

MOV
RTS

R4,83TSDB(RS)
PC.WAITF

:SEND OUT COMMAND

504
604

;WAIT FOR SSR
;BR, IF SSR IS SET AND OK
;BR IF TROUBLE CARRY = CLEAR

70¢

;SET CARRY NO TROUBLE
sEXTIT

;CARRY CLEAR = ERROR

8TSSR(RS),RO

;RETURN TSSR CONTENTS

;RETURN

HE
4

:ROUTINE TO DO SET UP OF RUNNING CONDITIONS
: INPUTS:

1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104

CURRENT UNIT NUMBER

S OUTPUTS:
:CALLING SEQUENCE:

1105 007466
007466
1106 007470
1107 007474
1108 007500
1109 007502
007502
007506
007510
007514
007516

104422
004767
004767
103416
012727
000000
016727
000000
005367

000272
177656
000001

172402
177772

H
H
H
H
:

JSR
JSR
B8CS
ERROF
JSR

MOSET::

BREAK

JSR
JSR
BCS
DELAY

PC,FIRSTU
PC,SOFINIT

CONTINUE

;REPORT FATAL

ERROR

PC,MOSET

; DO A SUPVSR BREAK FIRST.
PC,SETDEF
PC, WLKCHK

1
1

;RESTORE DEFAWLT
;CHECK WRITE LOCK
;C=1 IS 0.K,

TRAP

sWAIT

MOV

.WORD

MOV

.WORD
OEC

C$BRK

e1,(PC).

L$OLY,(PC)e.
0

-6(PC)

GLOBAL AREAS

MACRO M111%

GLOBAL SUBROUTINES SECTION

1110

1111

1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135

007522
007524
007530
007532
007532
007534
007534
007536
007542
007544
007550
007554
007560
007562
007570
007574
007576
007602
007606
007612
007614
007620
007622
007630
007634
007636
007642
007646
007652
007654
007660
007662
007670
007674
007676
007702
007706
007712

1136
1137
1138
1139
1140
1141
1142
1143
1144 007714
1145
1146 007722
1147
1148
1149

1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160 007724
1161 007724

001375
005367
001367

JUN 84

18:2%

177756

104422

104444
005767
001064
004767
004767
005767
001415
052767
005767
001002
004767
004767
004767
000443
005767
001415
052767
005767
001002
004767
004767
004767

000423
005767
001415

SEQ 0043

1%:

172550
000216

177514
172540

000040
172526

3s:

173702

PC,SETDEF

PC,WRTCHR
11%
WTBUF

5$
OEF .RWB, TSUNT
EXTFEA

::gN WITH WRITE BUFFERING?
:

;YES SET THE BITS

;ARE WE

;:YES

SET?

;INVERT THE SWITCH
;NOW SET THE MODES
;00 IT

;sRETURN

::gN WITH READ BUFFERING?
sYES SET

THE BITS

sARE WE SET?

: YES

s INVERT THE SWITCH
sNOW SET THE MODES
;00 I7

: SUBROUTINE TO INVERT SENSE OF EXT'D FEATURES SWITCH

: INPUTS;
H

L OUTPUTS:
H

012767

140006

172376

INVRT:

MOV

#UWSHM,CMOPKT +CP.CMD

C$OCLN

;sINVERT THE SWITCH
sNOW SET THE MODES
;00 17

RTS

JSR
BR
TST
BEQ
8IS

TRAP

s YES

11%:

JSR

C$BRK

s YES,SET THE BIT
;ARE WE SET?

;AND UNIT 2

6$:

000207

PC, INVRT

TRAP

TSUNT,SCHBK
«10

173642

172562

3
OEF . HSS, TSUNT
EXTFEA
2

MOV

S$:

173612

PC,WRTCHK
HSSW

22(PC)
.-20

sRUN IN DEFAULT MODE?
s YES,RETURN
sRESTORE DEFAWLLT
:GO DO SWITCH CHECK
328 WE RUN AT 100IPS?

10¢:

172434

177564

000022
000060
177524

BNE
JSR
JSR
JSR
B8R
TST
BEQ
BIS
TST
BNE
JSR

TS1MD
108
PC,SETNEF

T1ST
BNE
JSR
JSR
JSR
BR

016767

TST7
BNE
JSR
JSR

TO SUPER

PC, INVRT
PC,SETDEF
PC,WRTCHR
11%
ROBUF
10%
#EF .RBO, TSUNT
EXTFEA
6%
PC, INVRY
PC,SETOEF
PC.WRTCHR
114

000062
000120

172426

100 CLEAN AND ABORT

TS1

172476

177624

000020

OCCLN

BEQ
8IS

173742

2%:

052767
005767
005002
004767
004767
004767
000403

;BREAK

TST

000122
000160

000030
172466

BREAK

BNE
DeC
BNE

;WRT SUB-SYS METM

| 1°
GLOBAL AREAS

MACRO M111~

GLOBAL SUBROUTINES SECTION
1..2 007732
1163 007740
164 007746
1165 007754
1166 n07760
1167 07764
1168
1169
1170

012767
012767
012767
012704
004767
000207

002506
000006
100010
002330
177452

JUN 84

)

18:32

172272
172370
172532

SEQ 00s4
MOV

MOV
MOV
MOV

JSR

RTS

QWSMBK
, CMDPKT «CP , ADL
CNT
06 ,CMOPKTCP
2100010, WSMBK

R4
OCMOPKT
PC.WRTCHR
PC

;MSG BUF

ADOR

;BYTE COUNT
; INVERT

THE

SWITCH

:00 IT

;sRETURN

: SUBROUTINE 10 SETUP DEFAULT SET CHAR CMD
: INPUTS;

1171
1172
1173
1174

1175
1176

IOUTPUTS:

1177

1178
1179

1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190

007766
007766
007772

007776

010004
010012
010020
010026
010032

1191
1192
1193
1194 010034
010034
1195 010034
1196 010040
010040
010040
1197
1198 010042
010042
1199 010042
1200 010046
010046
010046

1201
1202 010050
010050
1203 010050
1204 010054
010054
010054
1205
1206 010056
010056
1207 010056
1208 010062

012701
010167
012767

012767

012767
016767
012704
000207

140004
172332
002474
000012
000040
173,06
002330

SETOEF
::

172326
172324
172462
172456

ADDRESS OF

MOV
MOV
MOV
MOV
MOV
MOV
MOV

O0SCH, Q1
R1 "MOPKT.CP.CMD

RTS

#SCrHBY
, CMOPKT.CP . ADL

OSCHONT ,CMOPK T +CP . CNT

OOF TSCH, SCHBK +6
TSUNT, SCHBK + 10

005¢67

173432

L10004

000002

005267

TSSINL::

173426
L1000S:

173422

TSSINZ::

L 10006:

000002

005267

INC

INTFLG

ENDSRV

;RETURN

TSOS

INTERRUPTS.

;SET

INTERRUPT

OCCURRED FLAG.

RTI

000002

005267

TSSINO

; ADDRESS OF CMD PACKET

OCMOPKT
R4

BGNSRY

;WRITE CHAR CMOD
;SET UP COMMAND
;SET UP ADR LO TO POINT TO MSG BUF (MSGPXO)
:SET BUFFER EXTENT
'SL?$E CHARACTERISTIC CODE IN SCH BLOCK.
:

MOOWLES TO MANDLE

TSSINO::

COMMAND PACKET

173416

TSSINS:.

BGNSRvV

TS5IN1

INC
ENDSRV

INTFLG.2

;SET

INTERRUPT OCCURRED FLAG.
RTI

BGNSRYV

TSSIN

INC
ENDSRV

INTFLG.4

;SET

INTERRUPT OCCURRED FLAG.
RTI

BGNSRY

TSSINS

INC
ENDSRV

INTFLG-6

;:SET

INTERRUPT OCCURRED FLAG.

MACRO M111°%
GLOBAL AREAS
SECTION
NES
SUBROUTI
GLOBAL

11000C":
RT]
@0
@
B

1213

1214

1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227

1228
1229
1230
1251
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255

1256
1257
1258
1259

1260
1261
1262
1263

®e

1215

1216

010064
010C72
010074
010100
010104
010110
010112
010114
010116
010122
010124
01012¢€
010132
010134

010136
019136
010140
010144
010146
010150
010150
010152
010152
010154
010154
010160
010160

SEOQ 0065

000002

1209
1210
121,
121/

10062
010062

14 JUN 84 18:32

032767
001430

016702

066702
032702
001417
005202
111203
142703
000303
005302
105767
001401
00530c

111204
142704
050403
000401

000400

RECTAP:: BIT

MSGPK T .MS RFC,R2
DATARD,R2

;FIND LAST READ AD.

8EQ

50002%

#81700,.R2

;000 AD., REASSEMBLE

INC

;REC COUNT STARTING

6ICB

€177400,.R3

(R2),R3

SWAB
DEC

R3
R2

1578

173366

177400

500024
:

%0001:

50005:

:= R

D€EC

0 01V ]
8IC8
8IS
BR

€177400,.Ra

R4 ,R3
$
S0004

MOV

(R2),.R3

;LET R3 := (R2)

B8R

S0005$

MOV

@DATARD,.R3

RTS

;LET R2 := R2

(R2).R4

SUBROUTINE TO STORE
THE

FIRST

ENTRY

;IFB SWBFLG NE 60 THEN

S0003$

;WITH UPPER BYTE FETCH
;LET R2

SHBFLG

BEQ
50003:

000207

MOV
ADD

g 01Y]:]

177400

173230

;:READ REV FET(H

817

000001

000402

oM00 . CO, CMOWRD

S0001

B8EQ

172260
173304

011203

017703

173326

SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR
PRINTS,
INPUTS
OUTEUTS:
R3 = RECORD COUNT READ
REGISTERS:
R2, R3, Rae
CALLS:

AD.

;LOMER BYTE AD. ON SWAP

;FETCH LUWER BYTE

;LET R3

THE

;LOMER BYTE

;EVEN AD, FETCH

:= SDATARD

;READ FWD FETCH

SET CHARACTERISTIC COMMAND AS
SEQUENCE

TABLE.

INPUTS:
QUTPUTS::

REGISTERS:

CALLS:

010162

010162
010166
010172
010176
010202
010204

012701
012721
012721
012721

005721

000207

003540
140004

000040
000001

SETCH:
:

MOV

#CMDSEQ,R1

sINIT

MOV
TST
RTS PC

01,(R1).
(R1)-

;s SEQUENCE TABLE.
:SKIP PATTERN LOCATION.

MOV
MOV

@SCH,(R1)
QOFTSCH,(R1)+

SUBROUTINE
INPUTS:

CMO SEQUENCE

TABLE POINTER.

; THIS CODE SETS UP A SET CHARACTERISTIC
;COMMAND AS THE FIRST COMMAND IN THE

TO STORE A REWIND COMMAND IN THE

SEQUENCE

TABLE

E>¢,
GLOBAL AREAS

MACRO M111%

GLOBAL SUBROUTINES SECTION
1264
1265
1266
1267
1268 010206
1269 010212
1270 010216
1271 010222
1272 010224

14 JUN 84

18:32
ouUTPUTS:
REGISTERS:
CALLS:

012721
012721
012721
005721
000207

102010

SETRW:
: MOV

000001

MOV

1273

1287
1288
1289
1290
1291
1292
1293

1294
1295
1296
1297
12968
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311

1312
1313
1314
1315
1316
1317
1318
1319

MoV

MRWD ,(R1).
®&1,(R1).

187

(R1).

R1S

sCMD « REWIND,
18RF,

01,(R1).

1@ OF OPERATIONS.

1SKIP PATTERN,

1 RE TURN

SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL
DEVICES.
INPUTS
oUTPUTS:
R2 = TERMINATION INDICATOR (O<END OF TABLE.1=€E0T,
REGISTERS:
CALLS:
CMOAC,SETUP ,EXSUB,CXKHAE NEXTU,FIRSTU,VFYDAT,

1274

1275
1276
1277
1278
1279
1280
1281
1282
1283
1264
1285
1286

SFQ 0065

010226
010232
010232

010236

010240
010244
010244
010246
010254
010256
010262
010266
010270
010276
010300
010304
010306
010314
010322
010330
010336
010344
010346
010354
010354

012701

003540

021127

177777

001530
004767

104422
026767
002116
004767
105767
001435
026727
001031
105767
001026

EXALL
:: MOV
S0006$:

cre
BEQ

000726

173140

50010¢:

173140

s INIT SEQUENCE

(R1),0€END

jWHILE THERE ARE CMDS IN THE SEQUENCE TABLE.

PC.SETUP

GO SETUP THE COMMAND BLOCK.

S0007¢

NCteT ,NCNT}

1ST8

RANDOM

S0011¢
PC.CMDAC

000602

173124

B8€Q
cre

S0012¢
CMOWRD ,

1578

VFYFLG

173227

104005

BNE

173212

046767
026727
002003
012767

173116
173112
173066
173060
000022

000022

173042

016767

173036

171754

S00144:

010362

S0013%:

010362
010362
010366
010372
010376

004767
004767
012702
004767

000136
007106

010402
010402
010410

026527
001426

002604

50012¢:

RANS , BRF CNT
LENMSK , BRFCNT
BRFCNT,018.

JSR

177777

500164:

RANB , RANS

S0015¢
#18. ,BRFCNTY

sWHILE THERE ARE RECORDS "EMAINING:

C$8RX

sIF CHMD IS A WRITE THEN:
sIF

DATA

IS NOT

;LET RANB

;LET RANS

TO Bt

:= RANB

:= RANS

VERIFIED

« RANS
.

THEN:

;GENERATE

RANB

:RANDOM

sLET BRFCNT := RANS
sLENGTH
tMASK RANDOM LENGTM.
s00 NOT ALLOW BYTE COUNT OF LESS THAN 18

sCHANGE COUNT OF 0-17 T0 18.

tMOVE BRF T0O CMD PACKET,

PC.EXSUB

+ISSUE CMD TO ALL ,AWAIT INTS,CHECK STATUS.

PC,CKHAE

JSR

PC.FIRSTU

cHP

DEVTBL(RS), 6END

8eo

TRAP

BRFCNT ,CMDPKT .CP CNTY

JSR

MOV

006500

MOV
8IC
Cr

MOV

DO A SUPVSR BREAX FIRST.

sIF IN RANDOM MOOE:

S00144
RANS , RANB

B8GE
MoV

010362

S0013+4

TABLE POINTER.

1STORE CMD ASCII IN ERROR MESSAGE
.

BNE
ADD

ADD

:
500154

BGE
JSR

173122
173112
173106
173074
173054

066767
066767
016767

JSR

BREAK

#CMDSEQ,R1

01,R2

500174

tLET R2

1CHECK HALT AFTER EACH CMD FLAG.

:= 0]

:SET ALL UNITS AT BOT/EOT.

tFIND FIRST UNIT,

1WHILE THCRE ARE MORE UNITS:

C ¢,
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

1372
1373
1374
1375
1376

010434
010434
010436
010436
010444
010446
010454
010456
010456

032767

001406
032765
001001
005002

000400

173000

000002

003502

032765
001404
032767
001001

000001

003502

000001

172744

010476
010476
010502

8Iv

8I7

50020
:

500234:

005002

oM0D . CO, CMOWRD

50020%
0X0.80T7,EOTFLG(RS)
500214

+IfF

CMO

s It

NOT AT BOT

IS REVERSE

THEN:

CLR

50022

8I7
8EQ
817
ENE

500234
oCMD.CO, CMOWRD
500244

CLR

JSR
B8R

PC.NEXTU

$FIND NEXT UNIT

cP
BNE
B8R

R2, 01

sIF

$LET

THEN:

;CLEAR EQT/BOT

sELSE

FLAG,

IF CMD IS NOT REVERSE:

#X0.EOT ,EOTFLG(RS)

+IF

NOT AT EOT OR NOT

1CLEAR EOT/BOT FLAG.

A MOTION CMD THEN:

500244;
004767
000746

006464

020227
001001
000412

000001

005267

172710
172712

016767

010510
010512
010512

000655

010516
010520
010520
010522

000645

004767

500224:
S50017%:

50025%
:
172714

500114:

005350

S0007¢
:

005002
000207

EXARTN:

010524
010530
010530
010536
010540
010546
010550

StEQ 004/

CEQ

50021¢%:
000411

010460

010460
010460
010464
010466
010466
010472
010474

18. 32

1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371

010412
010420
010422
010430
010432

JUN 84

1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345

004767

006352

026527
00146%
032767
001421
032765

002604

177777

000400

172652

000002

003502

INC

500164

500254
EXARTN

IRETURN WITH R2 =

NCNT

$LET NCNT

MOV

CMOWRD , PCMOWOD

B8R

500104

JSR

PC,VFYDAT

B8R

$
50006

CLR

RTS PC

ALL UNIT

iLET R2

:= NCNT

CALLS:

EXSUB:
: JSR
500264
:
cHp

B8EQ
8IT
8EQ
817

AT EQT/BOT

. 01

s UPDATE RECORD COUNT.

1 SAVE PREVIOUS COMMAND WORD.

s IF LAST CMD WAS A WRITE VERIFY, THEN GO
s VERIFY THE LAST N RECORDS OF DATA,

$1SET

NORMAL

sRETURN,

RETURN INDICATOR.

WAIT FOR

EXCUTE .GOWAIT ,NEXTU,FIRSTU.

PC.FIRSTU

;SET UP FOR FIRST UNIT.

DEVTBL(RS), END

tWHILE

500278

THEN:

0],

SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES,
ALL INTERRUPTS, AND CHECK ALL STATUS.
INPUTS:
OUTPUTS:
REGISTERS:

ARE

o100, CO, CMOWRD
S00304
0x0.807,EOTFLG(RS)

THFRE ARE MORE DEVICES:

1 IF CMD IS REVERSE
1 IF NOT AT BOT

THEN:

GLOBAL AREAS

MACRO M111%

GLOBAL SUBROUTINES SECTION
1377 010556
1378 010560
1379 010566
1380 010570
1381 010574
1382 010576
1383
1384 010602
1385 010602
1386 010604
1387 010604
1388
1389 010610
1390
1391 010610
1392 010610
1393 010612
1394 010612
1395 010620
1396 010622
1397 010630
1398
1399 010632
1400 010640
1401

001014
032765
001406

105767

001402
004767

14 JUN 84

000001

1ST8

001252
50033
500324:

001244

S00314:

000435

026727

001011
032765

500304:

172610

001405

ALLEOT

1AND ALL

500334

I AT EOT
OTHERS AT

B8R

500344

JSR

PC.EXCUTE

$NOT

B8R

50035 ¢

sELSE

cHP

CMOLG,
02
50036

MCV
CLR

000001

003502

032767
001003

000001

172536

010664

004767

001164

010670
010672
010672
010676
010700

000405

001404

105767

001402
004767

" eIt
S0037¢:

172626

500404:

001150

010704

S0042¢4:

010704

S00414:

010710
010712
010712
010716
010720
010724
010724
010726
010726
010732

$BUT

PC.EXCUTE

81T
8EQ

032765

010704
010704

0X0.EOT,EQOTFLG(RS)

50032%

8EQ
JSR

003502

172652

010662
010664

500314

s THEN EXECUTE

s IF NOT ALL

AT EOT,

EOQT

REV CMD

FREEZE UNIT(S) AT EOT

s IF NOT AT 80T AND
AT EOT,

EXEC REV CMO

S00344:

002616
172646

010654

BNE
8I7
BEQ

172730

016567
005077

010644
010644
010652

SEQ 0048

003502

000402

004767

De,

18:32

004767

006240

000707

105767
001403
105067

172601

500274:

172573

104424
004767

S00354:

006150

S00434:
S0044¢:

IF CMO IS NOT REVERSE:

#X0.80T ,EOTFLG(RS)

500364

BTADOR(RS),BTPT
8BTPT

tCLEAR BAD SPOT COUNTS WHEN WRITING FROM B80T
iLET BTPT
sLET SBTPT := 60

:= BTADDR(RS)

#X0.EOT,EOTFLG(RS)

8EQ
BIT
BNE

500374
¢CMD. CO, CMOWRD
500404

JSR

PC.EXCUTE

50041

1578

ALLEOT
500424

8EQ
JSR

PC.EXCUTE

JSR

PC,NEXTU

B8R

¢
50026

1ST18

RPTFLG

8EQ
CLR8
DORPT

RPTFLG

JSR

PC,FIRSTU

S0043¢

:IF NOT AT EOT OR NOT A MOTION CMD THEN:
: ISSUE

CMD TO

TS0S

:IFB ALLEOT NE 00 THEN

sFIND NEXT UNIT

IN TEST

CYCLE.

1 IF REPORT HAS BEEN REQUESTED THEN:

$1PRINT

iCLR THE FLAG,
THE PERFORMANCE REPORT.

1SET UP FOR FIRST UNTT,

TRAP

CSORPT

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1433 010732
1434 010740
1435 010742
1436 010750
1437 010752
1438 010760
1439 010762
1440 010770
1441 010772
1442 010776
1443 011000
1444
1445 011004
1446
1447 011004
1448 011006
1449 011006
1450
1451 011012
1452

1453
1454 011012
1455 011012

1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489

14 UUN 84

002604

177777

000400

172450

000002

003502

032765

000001

003502

105767

172526

026527
001450
032767

001421
032765
001014
001406

001402
004767

18:32

SEQ 0067

cHe
8EQ
8IT

DEVTBL(RS),#END
$
50045
oM00 . CO, CMOWRD

8IT
BNE
8I7
8EQ
15718
BEQ
JSR

#X0.80T,EOTFLG(RS)
500474
#X0.EOT ,EOTFLG(RS)
500504
S0051+4
PC.GOWAIT

B8R

500524

JSR

PC,GOWAIT

sWAIT FOR INT,CHECK STAT

B8R

500534

;ELSE IF CMO IS FORWARD:

BIT
BEQ
BIT
BNE

#X0.EOT ,EOTFL.G(RS)
¢
50054
€CMD
. CO, CMOWRD
50055+

JSR

PC,GOMAIT

B8R

50056¢

1ST8

ALLEOT

8eEQ

001360

;WHILE THERE ARE MORE DEVICES:
s IF CMD IS REVERSE

50046¢

000402

004767

500504
:

001352

THEN:

;IF NOT AT B8OT
;BUT

ALLEOT

AT EOT

+AND ALL OTHERS AT EOT
: THEN WAIT FOR CMD END

s IF NOT ALL AT EOT, DO NOT WAIT

500514
:

:NOT AT BOT,

AND NOT

AT EOQT

500524:
S0047¢$
:

000420

011014
011014
011022
011024
011032

001404
032767
001003

000001

003502

000001

172366

011034

004767

001324

011040
011042
011042
011046
011050

000405

011034

032765

105767

001402
004767

500464
:

500544
:

172456

S0055¢:

001310

8EQ
JSR

50057+
PC,GOWAIT

JSR

PC,NEXTY

500444

RTS

s IF NOT AT €07 OR NOT A MOTION CMD THEN:
sWAIT FOR INT,CHECK STATUS.

:IFB ALLEOT NE 00 THEN

500574
:

011054
011054

011054
011054
011060
011062
011062

004767
000724
000207

006070

S0053%
:

500454:

sFIND NEXT UNIT IN TEST CYCLE.

;RETURN,

THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS

COMMAND IN THE STANDARD ERROR MESSAGE.
ON ENTRY LOCATION CMOWRD
CONTAINS CURRENT CMO AND LOCATION PCMOWD CONTAINS PREVIOUS CMOD.
INPUTS
OUTPUTS:
REGISTERS:

CALLS:

R3,

R4,

GCMDA

[ ¢
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1490 011064
1491 011070

1492 011074
1493 011100
1494 011104
1495 011110
1496 011114
1497 011120

1498 011124
1499 011130
1500 011134
1501
1502

016704
004767

112367
112367
111367
016704
004767
112367
112367
111367

000207

14 JUN-84 18:32
CMDAC:: MOV
JSR

172330

000042

MOV8
MOve
MOVB

175340
175335
175332
172310

MOV

JSR
MOVB
MOVE
MOVB

000016

175430
175425

175422

RTS

®e

®¢

1503
1504
1505
1506

026304
001403
062703
000772

000002

500614
:

@
@
@e
@0

005067
012167
011167
011167
016702
042702
010203
162703
001003
011167
000464
026727
001003
012767

REGISTERS:
CALLS:

B8R

R4,R3

RTS

000002

172150

2¢:

:= R3

OCMDASC ,R3

;SEARCH CMD TABLE.

sPOINT TO ASCII FOR THAT COMMAND

;sRETURN,

CMDLG

sCLR CMD LOGGING CODE(DISABLES LOGGING)

(R1),CMOPKT+CP,CNT

sLOAD THE BYTE/RECORD/FILE COUNT,

(R1).,CMOPKT
(R1),BRFCNTY

;LOAD THE COMMAND WORD.

$1SAVE BRF FOR THIS COMMANO.

CMOPKT ,R2
ONCMD.C,R2
R2,R3

1GET CMD.
;CLR ALL BUT CMD BITS.
$SAVE IT TWICE.

BNE
ggv

24
gRl).CHDPKTOZ

;BR IF NOT.
;:MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD.

cHP
BNE

CMOPKT , OWTM
500624

MOV

500624:

tLET R4

$UNTIL CURRENT CMD IS FOUND:

MOV
BIC
MOV

SuUB

100011

GO EXECUTE NEXT FUNCTION.

THIS SUBROUTINE LOADS THE TSOS COMMAND PACKET FROM ONE
ENTRY IN THE SEQUENCE TABLE.
INPUTS:
OUTPUTS:
REGISTERS:
R2, R3.
CALLS:
GENPAT,

MOV

171064

s INTO MSG.

sINIT CMD TBL POINTER.

500604

ADD

MOV

171074

:= &0

CMOTBL(R3),Re
500614
#2,R3
tLET R3
R3.R4
R3

MOV

000010

sRETURN,

R3 = ADDRESS OF PRESENT COMMAND ASCII.

R3;LET R3

MOV
:gg

SETUP:; CLR

172230
171126
171130
172204
171112
177740

:= CMOWRD
;R4 = CMD BINAR~,
;GET CMD ASCII.
tMOVE CMD ASCII
H
s INTO MSG.
;R4 = PREVIOUS CMD BINARY,
1GET CMD ASCII.
$MOVE CMD ASCII

OUTPUTS:

ADD

004040

010304
006203
000240
060403
062703
000207

003752

CMDWRD ,R4;LET R4
PC,GCMOA
(R3). ,STAERL.2
(R3)+,STAER1.3
(R3),STAER1+4
PCMOWD , R4
PC,GCMDA
(R3)+,STAER7+24
(R3)+,STAER7.25
(R3),STAER7+26

SUBROUTINE TO FIND THE ASCII EQUIVILENT OF THE COMMAND IN R4,
ADDRESS OF ASCII 1ST WORD IS RETURNED IN R3.
INPUTS:
R4 = PRESENT COMMAND WORD.

GCMDA:
: CLR
S00604:
cHp
BEQ
ADD

005003

®s

1507
1508
1509
1510 011136
1511 011140
1512 011140
1513 011144
1514 011146
1515 011152
1516 011154
1517 011154
1518 011156
1519 011160
1520 011162
1521 011164
1522 011170
1523
1524
1525
1526
1527
1528
1529
1530
1531 011172
1532 011176
1533 011202
1534 011206
1535 011212
1536 011216
1537 011222
1538 011224
1539 011230
1540 011232
1541 011236
1542 011240
1543 011246
1544 011250
1545
1546 011256

SEQ 0070

oCMD.C3,R3
s

#2,CMDLG

;POSITION COMMAND?

sIF CMD IS A WRITE
:WTM LOGGING CODE

TAPE MARK THEN:
IS 2.

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1547 011256
1548 011260
1549 011264
1550 011266
1551 011274
1552 011302
1553 011304
1554
1555 011312
1556 011314
1557 011314
1558
1559 011322
1560 011322
1561 011324
1562 011326
1563 011332
1564 011334
1565 011342
1566 011350
1567 011354
1568 011362
1569 011364
1570 011366
1571 011372
1572 011374
1573 011402
1574 011410
1575 011412

1576 011416
1577 011422
011426
011430
011434
011436
011444
011450
011456
011464
011466
011474
011502
011504
011504

010203
162703
001017
016767
032767
001404
012767

14 JUN 84

001006
012767
012767
005721
012167
005067
012167
010203
162703
001010
016767
004767
012767
032767
001407
112767
042767

R2,R3
oCMD.CO,R3
14

MOV

000400

171036
171026

DATARD,CMOPKT +CP . ADL

000004

172114

MOV

04 ,CMOLG

B8R

50064$

MOV

06 ,CMOLG

B8R
MOV
SUB

R2,R3

172104

8IY
8eQ

50063
:
S00644

1¢:

000004

002474
000012
171126

172152

170770
170766

171122
44:

000006
000020
003406

170734
170722

171776

171770
172020
000005

171744

000106
000002
000100
000001
000100

105067

172006

BNE
MOV
MOV
MOV
MOV
BR
MOV

BNE
MOV
MOV
ST
MOV
CLR
MOV
MOV

BNE
MOV
JSR

170666
171750
170644

Ss:

172022
170626
500654:

011510
011510
011516
011524
1597 011530
011532

016767
016767

171704
170606
171770

171706
171674

052767

010000

170570

011540
011540
011546
1603 011554

042767
016767
000207

004000
170556

170562
171646

1599

sUB
BNE

172116

000402

105767
001403

SEQ 0071
MOV

012767

162703

18:32

000001

000403

000432
010203
162703
001014
012767
012767
011167
016767
000412
010203

500664:

500634

oCMD.C2,.R3

#SCHBK
, CMDOPKT +CP, ADL
#SCHCNT ,CMOPKT «CP . CNT

(R1),SCHBK+6

;?UNT.SCHBKoIO
R2,R3

gEHD.CISCHD.CZ.RS

. CNT
OPKT
QOIACNT,CM+CP
J0IABLK,CMOPKT
+CP . ADL
(R1).
(R1)+,NCNT1
NC NT
(R1)+,PATERN
R2,R3

gEHD.CO!CHO.C2.R3

OATAWT ,CHMOPKT «CP.ADL
PC.GENPAT
#2,CMDLG
OVFY,C,CMOPKT
500654

1BR IF NOT.

+IF SO, LOAD THE BUFFER ADDR,
sIF CMD IS A READ REV THEN:
sLOGGING CODE IS 4.
iELSE - IF CMD IS A READ FWOD:
;:LOGGING CODE IS 6.

s CONTINUE.
:IS IT

sA SET CHARACTERISTICS CMD?

;BR IF NOT.
$1SET UP ADR LO FOR SET CHAR.
$:SET BUFFER EXTENT
sSTORE CHARACTERISTIC CODE IN SCH BLOCK.
sUNIT ¢
sCONTINUE.
IS IT
sA DIAGNOSTIC (DIA) CMD?
$1BR IF NOT.
;LOAD BUFFER EXTENT.
;LOAD BUFFER ADR LOW.

;POINT TO N (NUMBER OF TIMES TO EXECUTE THIS INS
s SAVE NUMBER OF OPERATIONS
;CLEAR OPERATION COUNTER.
:;gv%TPATTERN CODE FOR CURRENT CMD.
H

1A WRITE?

1BR IF NOT.
;LOAD WRITE BUFFER LO ORDER.
:GO GENERATE THE WRITE PATTERN.
sWRITE LOGGING CODE 1S 2.
;:IF DATA VERIFICATION IS REQUIRED:

BIT
8EQ
MOvVB
8IC

61,VFYFLG
OVFY .C,CMOPKT

¢
50066

CLRB

VFYFLG

;CLR VERIFY FLAG.

MOV

CMOWRD
, PCMOWD
CMOPKT
, CMOWRD
SWBFLG
S0067%

:SAVE PREVIOUS CMO WORD.
1 SAVE PRESENT CMO WORD.
1 IE SWAP BYTES IS ENABLED:

. C,CMOPKT
oSWB

:SET SWAP BIT IN COMMAND.

T
RF
. C,CMOPK
O8

1CLR BRF BIT (INTERNAL ONLY).
1SAVE 1ST WORD OF COMMAND PACKET.
1RETURN,

TS7T8

B8EQ
8IS
S0067#:

D
00PKT
., CO,CMD
oM

+IS IT A READ?

8I1C
MoV

RTS

ggOPKT.CHDSAV

:SET VERIFY FLAG.

;CLEAR VERIFY BIT(NOT USED BY HARDWARE).
:IF DATA VERIFICATION IS NOT REGUIRED:

‘{)
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14 JUN 84

18:32

1604
1605
1606

THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE
THE DESIRED PATTERN FOR THE WRITE AND WRITE/VERIFY

INPUTS:
OUTPUTS:

1607
1608
1609
1610
1611

1612 011556
1613 011562
1614 011564
1615 011570
1616 011572
1617 011576
1618 011602
1619 011606
1620 011612
1621 011616
1622
1623
1624
1625
1626 011620
1627 011622
1628 011624
1629 011626
1630 011630
1631 011632
1632 011634
1633 011636
1634 011640
1635
1636
1637
1638 011642
1639 011646
1640 011652
1641 011654
1642 011656
1643 011662
1644 011666
1645 011670
1646

1647
1648
1649
1650
1651
1652
1653
1654
1655

SEQ 0072

016703
006303
016704
005204
042704
016702
062702
004773
000207

R2,

CALLS:

PATRO

GENPAT: : :gv

L
?Og
N

171626

8iC
SuB
MOV

162704

ADD

JSR
RTS

011620

R3,

R4,

PATRY

:gTERN.RS

1SETUP PATTERN ROQUTINE

gRFCNT.Rd
4

$SET

LENGTH OF

POINTER

WRITE BFR

@1,R4
02 ,R4
DATAMT ,R2

sROUNDED UP TO NEXT WORD
sWITH FIRST WORD RESERVED
1FOR RECORD COUNT

PC.8PATTBL(R3)
PC

;GO GENERATE THE APPROPRIATE PATTERN,
;:RETURN TO SETUP SUBROUTINE.

92.R2

USED TO JUSR TO THE
:7S0S WRITE PATTERN LOOKUP TABLE.
sCORRECT ODATA PATTEPN GENERATING ROUTINE.
PATTBL
:

011642
011700
011720

011730
011754
011766
012000

012020
012052

PATRO
PATR1
PATR2
PATR3
PATRA
PATRS
PATR6
PATR?7
PATRS

s INCREMENTING PATTERN,
012703
162704
100411
010322
062703
020327
001002
012703

011674
011674

000764

011676

000207

011700
011704
1656 011710
1657 011712
1658 011714
1659
1660 011716

171664

REGISTERS:

SUBROUTINE
COMMANDS,

000400
000002

PATRO:
:
1¢:

MOV

B8R

;D0 IT AGAIN.

RTS

;RETURN,

cMe
BNE

000400

50070¢:

2s:

377,

©400,R3;LET R3 := $400
02,R4;LET R4 := R4 - 02 ;DECREMENT WORD LOUNT,.
24
1BR IF DONE.
R3,(R2).
:STORE DATA WORD.
01002,R3
1UPDATE PATTERN,
R3, 21000
:IF PATTERN HAS WRAPPED AROUND
50070%
@400,R3
s+INIT THE PATTERN AGAIN.

MOV
SuB
eMI
MOV

ADD

001002
001000

THEN:

;ALL ONE'S PATTERN,

012703
162704
100402
010322
000773
V00207

177777

000002

PATRL::

ZROPAT

MOV
SuUB
8MY

;ALL

ONES PATTERN;.

MOV

R3,(R2)+

sDECREMENT BYTE COUNT.
1OONE?,BR IF YES,
+IF NOT LOAD NEXT BYTE WITH PATTERN.

RTS

;RETURN,

1¢:

@-1,R3
#2,R4

ZROPAT

100 IT AGAIN.

TO GENERATE

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14-JUN-84 18:32

1661
1662

1663
1664 011720
1665 011722
1666 011726
1667
1668
1669
1670 011730
1671 011734
1672 011740
1673 011742
1674 011744
1675 011746
1676 011750
1677 011752
1678
1679
1680
1681 011754
1682 011760
1683 011764
1684
1685
1686
1687
1688 011766
1689 011772
1690 011776
1691
1692
1693
1694 012000
1695 012004
1696 012010
1697 012012
1698 012014
1699 012016
1700
1701
1702
1703 012020
1704 012024
1705 012026
1706 012034
1707 012042
1708 012046
1709 012050
1710
1711
1712
1713 012052
1714
1715
1716
1717

16
SEQ 0073

;ALL ZEROES PATTERN,
005003
004767

000207

PATRZ2::

177756

CLR

:CLR PATTERN REGISTER.

RTS

;RETURN,

JSR

PC,ZROPAT

1GO GENERATE

IT,

;ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES.
012703

162704
100404

PATRS:
:

000401
000002

WLKZRO:

010322

006303
005503
000771
000207

1%:

MOV
SuB

BMI

401 ,R3
02,R4;LET

: INIT PATTERN REGISTER.
R4 - 62 ;DECREMENT WORD COUNT,

+BR IF DONE.

WLKZRO

;00 IT AGAIN.

MOV
ASL
ADC

R3,(R2).
R3
R3

RTS

B8R

:LOAD DATA.
;SHIFT PATTERN,
;:ADD CARRY BACK

INTO PATTERN.

tRETURN,

:ZERC BIT WALKING FROM R TO L IN A FIELD OF 1'S.
012703
004767
000207

; MOV
PATRA:

177376
177750

JSR

RTS

9177376 ,R3
PC,WLKZRO

s INIT PATTERN REGISTER.
;G0 GENERATE ;IT.
;RETURN,

;ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES
; COMPLEMENTED.
012703
004767
000207

PATRS:
: MOV

125125
177706

JSR

RTS

0125125,R3
PC.ZROPAT
PC

s INIT PATTERN REGISTER.
:GO GENERATE IT.
:RETURN.

;ALTERNATING BYTES OF 000 AND 377,
012703
162704
100402
010322
000773
000207

:
PATRG:
1%:

177400

000002

2$:

MOV

0177400,R3

:INIT PATTERN REGISTER.

8MI
MOV

24
R3,(R2).

:+BR IF DONE.
:LOAD DATA.

RTS

{RETURN,

SuUB

B8R

02,R4

sDECREMENT WORD COUNT,

;D0 IT AGAIN.

sRANDOM PATTERN GENERATOR
162704
100411
066767
066767
016722
0007€4
000207

PATR?:
:

000002

171402
171372
171366

171376
171372
CIT:

SUB
8MI

02,R4
GIT

ADD
ADD

RANS
, RANB
RANB , RANS

RTS

MOV
BR

RANS, (R2)+
PATR?

;DECREMENT WORD COUNT
:BR IF DONE.
iGET NEW o,

:SAVE @,
s CONTINUE
:RETURN

NO PATTERN GENERATION.
000207

PATRS:
;

RTS

tRETURN,

THIS SUBROUTINE INITIATES TSOS COMMAND EXECUTION
AND $H€CKS FOR TSOS RESPONSE.
INPUTS:

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1719
1720
1721
1722 012054
1723 012062
1724 012062
1725 012066
1726 012072
1727 012074
1728 012100
012100
012102
012104
012106
1729 012110
1730 012114
1731
1732 012116
1733 012116
1734 012124
1735 012126
1736 012134
1737 012136
1738 012142
1739 012146
1740 012146
1741 012154
1742 012156
1743 012162
1744

1749
1750
1751
1752
1753
1754
1755
1756
1757
1758

1759
1760
1761
1762
1763
1764
1765
1766

SEQ 0074

QUTPUTS:

1718

1745
1746
1747
1748

14 UUN-84 18:32

012166
012170
012170
012174
012202
012202
012206
012210
012210
012214
012216
012222

012226
012230
012230
012234
012236
012244
012246
012254
012254
012256
012260
012262

REGISTERS:
CALLS:
012767

177777

005367
005767
001011
004767

171350
171344

171354

EXCUTE:
: MOV

S00714$:

1REPEAT

DEC

TST

BNE
JSR

000634

ERRODF

104455

R2,

R3,

DROPU,

MOVMSG,

FIRSTU,

NEXTU,

WSSR,

0-1,TIMEL

;INIT TIMEOUT COUNTER,

TIMEL

sUPDATE TIMEOUT COUNTER.
:IF TIMED QUT:

TIMEL

50072
PC ,MOVMSG

2 .,NSSRM,STAERM

;WAIT

:MOVE

CURRENT

PACKET

MSG.

;REPORT TSOS NOT READY

000002

004536
006120
004767
000522

032775
001756
026727
001022
010567
004767

026527
001405
004767
004767

005064

000200

002524

171266

140004

171310
004734
002604

177777

016705
016567

171256
002544

016503
005002

002544

020227
001405
012723
062702

000020

500754
:

170272
S0073¢:

S0076%
:

177777
000002

000770

003412
017567

104455

000017
004727
006120

50074

000516
004762

000767

105767
001023
126527

500724
:

S00774%:

167756
003472

000001

002524

171200

TRAP

.WORD
.WORD
. WORD

JSR
B8R

PC,DROPU

EXCRTN

;RETURN,

8IT
BEQ
cHe
BNE

@7S.SSR,8TSSR(RS)

;WAIT UNTIL DEVICE IS READY.

JSR

50071
CMOWRD, #SCH
500734

RS ,RSSAVE
PC.FIRSTU

:OROP THE UNIT,

CS$ERDF

2
NSSRM
STAERM

;IF WE ARE DOING A SET CHAR CMD THEN:

: SAVE CURRENT DEVICE POINTER.

:FIND FIRST UNIT.

cHP
8EQ
JSR
JSR

PC,WSSR
PC.NEXTU

50074+

MOV

RSSAVE ,RS
MSGPKA(RS), SCHBK

MOV
CLR

MSGPKA(RS),R3
R2

;ADR OF THIS UNIT'S MSG PACKET.
;:CLR COUNTER.

cHP
8EQ
MOV
ADD

R2, 8MSGCNT
500774

iWHILE THERE ARE MORE LOCATIONS:

500764

1578

OINT

$ARE

cMPg
BLE
MOV
ERRDF

INTFLG(RS),
01
501004

; IF MORE THAN ONE INTERRUPT HAS OCCURED:

DEVTBL(RS),
¢END
S007S4$

0-1,(R3).

@2,R2

8TSSR(RS5), TSSREG
15, TOOMM, STAERM

;WHILE DEVTBL(RS) NE @END DO
;WAIT FOR UNIT READY OR

;FIND NEXT UNIT,

TIME OUT,

+RESTORE CURRENT DEVICE POINTER.
;SET UP ADR OF MSG PKT IN SCH BLOCK.

s INIT THE MSG PACKET WITH ALL 1'S
1 UPDATE COUNTER.

INTERRUPTS DISABLED.

:BR IF YES.

{FREEZE THE CURRENT STATUS REG FOR PRINT

:REPORT TOO MANY INTERRUPTS.

TRAP

.WORC
.WORD
.WORD

CSERDF

15
TOOMM
STAERM

1€,
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1767
1768
1769
1770
1771
1772

012264
012270
012272

012272
012276
012304
012310
012312
012316

1773
1774
177S
1776
1777
1778 012324
1779 012324

1780
1781 012332
1782 012340
1783 012342
1764 012346
012346
012350
012352
012354
1785 012356
1786
1787 012362
1788 012362
1789

004767
000434

14 JUN 84

18:32

004710
50100%:

005065
052767

105767
001005
005265
016577

003472
000200
171161

170024

003376
003376

171062

012775

002330

002514

032775
001410
004767

000200

002524

1¢:

JSR
BR

PC,DROPU
EXCRTN

CLR
8IS

INTFLG(RS)
0IE.C,CMOPKT

tCLR INTERRUPT FLAG FOR THIS DEV.
$SET INT ENABLE BIT.

50101¢4:

RECCNT(RS)

tLET RECCNT(RS)

MOV

#CMOPKT ,8TSOB(RS)

tLOAD TSDB WITH CMOPKT ADDRESS

817
BEQ

#7S.SSR,8TSSR(RS)
501024

RECCNT(RS),S8DATAWT

PC,MOVMSG
3, TOERM,STAERM

104455
000003
004453

006120
004767

JSR

004616

501024:
EXCRTN: RTS

000207

;DROP THE UNIT
UNIT HAS BEEN DROPPED.

ERRREC; IFB ERRREC EQ 00 THEN
501014

JSR
ERRDF

000366

;RETURN

1578
BNE
INC

MOV

PC.OROPV

:IF NOT RETRYING

:= RECCNT(RS)

s THIS INITIATES COMMAND EXECUTION.
:IF READY DID NOT DROP THEN:
{MOVE CURRENT MESSAGE PACKET TO COMMON.
sREPORT NO TSO5 RESPONSE.
TRAP
.WORD
.WORD
.WORD

;OR0OP THE UNIT

+ @01

s THEN UPDATE REC COUNT TO WRITE IT ON TAPE

CS$ERDF
3

TOERM
STAERM

:RETURN,

THIS SUBROUTINE WAITS FOR THE TSOS INERRUPT OR DONE BIT

1790

TO SET AND ALLOWS THE

OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR.
UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR STATUS ERRORS,

1791
1792
1793

gggugYTES AND ERRORS AND PERFORM ERROR RECOVERY
S:

1794
1795
1796

OUTPUTS:

1797
1798
1799 012364
1800 012372
1801 012372
012372
1802 012374
1803 012402
1804 012404

1805
1806
1807
1808
1809
1810

SEQ 0075

012404
012410
012412
012416
012420
012424
012426
012432
012434
012434
012442
012444
012452
012454

REGISTERS:

CALLS:

012767
104422
026727
001014

1771777

171044

R2,

e-1,TIMEL
GOWAIT:: MOV
S0103¢: ;REPEAT

0y o
BNE

102010

DELAY

012727
000000
016727
000000
005367
001375
005367
001367

000012

026727
001404
026727
001014

170760

105010

170750

105410

R3.

OROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR.

BREAK

171020

IF NESSASARY.

sINIT TIME OUT COUNTER,

sREPEAT UNTIL INTERRUPT CCCURES:
:GO TO THE SUPER TO ALLOW TTY INPUT,
TRAP

CMOWRD, 2RWD
501044

10.

sIF COMMAND WAS REWIND THEN:

;WAIT

EXTRA MSECS €ACH LOOP.

MOV
. WORD

MOV

167500

. WORD
DEC
BNE

177772

OEeC

177756
50104¢:

501054
:

BNE

cHP

BEQ
cMP
BNE

CMOWRD, OSFF

501054
CMOWRD, #SFR
501064

C$BRK

010.,(PC)0

LS$DLY, (PC).
0
-6(PC)
. -4
.

;IF CMDWRD EQ #SFF OR CMDWRD EQ 4#SFR THEN

22(PC)
20

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1811 012454
012454
012460
012462
012466
012470
012474
012476
012502
1812 012504
1813 012504
1814 012510
1815 012512
1816
1817 012516
1818 012520
1819 012520
1820 012524
1821 012526
1822 012532
1823
1824 012534
1825 012534
1826 012540
1827 012542
1828 012544
1829 012550
1830 012552
1831 012552
1832 012556
1833 012560
1834 012566
1835 012572
1836 012576
012576

012600
012602
01c .04
1837 012606
1838 012612
1839 012616
1840
1841 012622
1842 012624
1843 012624
1844 012620
1845 012634
1846 012640
1847 012644
1848 012646

1849
1850
1851
1852
1853
1854
1855

012652
012656

012727
000000
016727
000000
005367

001375
005367
001367

105767
001003

016502

MOV

. WORD

MOV

. WORD
OEC
BNE
DEC
BNE

177756
501064
:

167502
003472

170€76

005767

170660

50107¢%:

002524
50110¢%:

003376
170614
000136

MOV

DINT
501074
INTFLG(RS),R2

50110

MOV
com
MOV
8IC

075.SSR,R3
R3

oeC
TST
BNE

TIMEL
R2

BNE

50103

TST
BNE

TIMEL
501124

15718

TST

170666
50111%:

MOV

170620

OEC
JSR
ERRDF

JSR
MOV
JSR

004366
00347
000042

000104
000164
000350

50112%:

170617

:SET UP A MASK FOR THE DONE BIT.
:FETCH DONE BIT.

;UPDATE TIMEOUT COUNTER.

;REPEAT

UNTIL

INTERRUPT

OR READY

OCCURES.

TIMEL

;:IF

TIME OUT HAS OCCURRED:

RECCNT(RS),80ATAWT

S8DATAWTY

PC,MOVMSG
4 ,NOINTM,STAERM

sMOVE CURRENT MSG PACKET TO COMMON AREA.
;REPORT

NO INTERRUPT,

PC,DROPU

GENDERF ,R3

PC,CLRERR

. WORD
. WORD
.WORD

:OROP THE UNIT.
;LET R3 := OENDERF
;:CLEAR ALL ERROR FLAGS

S01134:

CS$ERDF

NOINTM
STAERM

PC,CHKERR
WRTYFG

sMOVE CURRENT MSG. PACKET TO COMMON AREA.
{UPDATE THE RECORD COUNT.
;CHECK FOR STATUS ERRORS.
:IFB WRTYFG EQ 00 THEN

PC.CLRERR

:LOG BYTES AND ERRORS.
;LET R3 := OENDERF
;:CLEAR ALL ERROR FLAGS

JSR
JSR
JSR

PC ,MOVMSG
PC,RECUD

BNE
JSR
MOV
JSR

50114
PC.LOG
®ENDERF ,R3

S0114%¢:
000207

.-4

22(FC)
.-20

50113¢

1ST8

002714
003472
000002

LSOLY,(PC).
0
6(PC)

;FETCH INTERRUPT OCCURRED FLAG.

8TSSR(RS)
,R2
R3,.R¢

50111¢

812..(PC).

;IF INTERRUPTS ARE ENABLED.

TRAP

000417

105767
001006
004767
012703
004767

TAPE MARK COMMANDS

177772

005367
005702
001003
005767
001310

004767
004767
004767

1ADD DELAY FOR SPACE

167430

000200

104455
000004
004670
006120
004767
012703
004767

SEQ 0076

DELAY

000014

012703
005103
017502
040302

012662

012662
012€62

14 JUN 84 18:32

000406

001022
016577
005377
004767

RTS

;RETURN IF OONE.

e,
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
1856
185
1858
1859
1860
1861
1862
1663
1864
1865
1866

012664
012670
012670
012672
1867 012674
16868 012676
1869
1870
1871

14 JUN 84

18:32

SUBROUTINE

INPUTS:;

TO CLEAR FLAGS.

R3 = LWA TO BE CLEARED . 2,

OUTPUTS:

REGISTERS:

CALLS:
012702

CLRERR:: MOV
SOGNFLG,R2
501154: ;REPEAT
CLR
(R2).

003460

005022
020203
001375
000207

(o, o

R2.R3

RTS

BNE

ILET R2

TO WAIT

:»

sLET (R2)e

#BGNFLG

:= @0

sUNTIL R2 EQ R3

S0115%

%%%TIK

1872
1873

UNTIL

CURRENT UNIT

IS READY OR UNTIL

TIME

OUT.

OUTPUTS

1874
187S
1876

REGISTERS:

CALLS:

012767

104422
005367
032775

001003
005767
001366

177777

170522
000200

170530

WSSR:
:

S50116%:

002524

50117¢:

8¢

®s

000207

017567

016702

042702
010267
016503
005002

020227
001405
012362
062702
000770

002524
170506
177761
170472
170466
002544

000020

002354

0000C?2

MOV

170512

sINIT TIMEOUT COUNTER.
sREPEAT UNTIL DEV READY OR TIMEOUT:
;BREAK TO THE SUPERVISOR.

DEC
8Iv
BNE

TIMEL
OTS.SSR,BTSSR(RS)
S0117¢

BNE

501164

RYS

TRAP

C#BRX

sUPOATE TIMEOUT COUNTER.
;UNTIL #TS.SSR SETIN ITSSR(RS) OR TIMEL EQ &0

TIME:

;RETURN
.,

SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND
TO UPDATE

THE

CURRENT

INPUTS:
OUTPUTS:
REGISTERS:
CALLS:

MOVMSG: : MOV
(4. 01"]
8IC

MOV

ASR

50120:

o-1,TIMEL

BRE AK

TS7

170506

®r

1877 012700
1878 012700
1879 012706
1880 012706
012706
1881 012710
1882 012714
1883 012722
1884 012724
1885 012730
1886 012732
1887 012732
1888
1889
1890
1891
1892
1893
1854
1895
1896
1897
1898 012734
1899 012742
1900 012746
1901 012752
1902 012756
1903 012762
1904 012766
1905 012770
1906 012770
1907 012774
1908 012776
1909 013002
1910
1911 013006

SEQ 0077

R2,

TERMINATION CLASS

R3,

S8TSSR(RS), TSSREG

;FREEZE THE STATUS REG CONTENTS

TSSREG.R2
®715C.TCC,.R2

sEXTRACT

R2,.CTCC

MSGPKXA(RS),R3

;ADR OF

R2, MMSGCNT

;WHILE

ADO

#2,R2

8€EQ
MOV
8R

50121
(R3)+ ,MSGPKT(RZ2)
501204

THE

TERMINATION CLASS COOE.

;AND SAVE I7

C1CC

MOV

CLR

COOE.

THIS DFVICE'S MSG.
;CLQ COUNTER,

THERE

ARC

MORE LOCATIONS:

;MOVE MSG TO COMMON AREA
iUPDATE

)

COUNTER.

GLOBAL

AREAS

MACRO TMM1118

GLOBAL SUBROUTINES SECTION
1912 013010
1913 013010
1914 013016
1915
1916
1917
1918
19:9

1920
1921
1922 013020
1923 013024
1924 013026
1925 013032
1926 013040

1927
1928
1929
1930
1931

1932
1933
1934
1935
1936
1937
1938
1939
1940
1941

013042

013050
013052
013056
013064
013066

013072
013074
013 .74
013102
013104
013112
013114
013122
1942 013124
1943
1944 013130
1945
1946 013130
1947 013132
1948 013132
1949 013140
1950 013142
1951 013150
1952 013152
1953 013156
1954 013160
1955 013164
1956 013166
1957 013172
1958 013174
1959 013290
1960
1961 013200
1962
1963 013200
1964
1965 013200
1966
1967
1968 013200

01676
000207

NF,

14 AN B84 18:82

167346

50121%:

1704¢€4

SEQ 0078

MOV

RYS

MSGPX T +MS . XSO, EQTFLG

SUBROUTINE
INPUTS

TO ADJUST

sMOVE

XSTATO TO EOT FLAG.

THE RECORD COUNT.

oUTPUTS:
REGISTERS:
CALLS:

15767

001070
005365
032767
001057

032767
001453
105267
026727
001003
005065

RECWUD:
:

170441
003376
000001

170410

100000

16731¢€

170407
170336

102010

032767
001« 36
032767
001007
032767
001002
005265

cHP

003376

000442
004000

170316

000400

170306

000400

170302

1S718

BNE
DEC
817
BNE
8Iv
BEQ
INCB

50124
:

;IF RECORD HAS NOT BFTN LOGGED:

501228
RECCNT(RS)
sLET RECCNT(RS) := RECCNT(RS)
#8170,CTCC
; IF TAPE MOVED
50123
X2 .0PM MSGPVT.MC xS2
50123¢
RECLOG
sSET RECORD LOGGED,

CMOWRD , #RWO

BNE
CLR

501244
RECCNT(RS ,

B8R

50125

8IT
BEQ
8IT
BNE

08RF . C,CMOWRD
501264
&M00 . CO, CMOWRD
S0127%

INC

RECCNT(RS)

501314

81T
BEQ

#M00.CO,PCMOWD
501324

BNE

50133¢

BIT
8NE

003376

RECLOG

#M00.CO,PCMOWD
50130

50130:
000423

032767
001417
032765
001013
105767
001406
105767
001403
105767
001002
005365

000400

170264

000002

003502

50127%:

8IT

1sT8

170313

BEQ

1S18

170332

BEQ

7ST8

170273
003376

2s:
10¢:
50133¢:
50132¢:

S50131%:
501264
:

BNE
DEC

#X0.80T ,EOQOTFLG(RS)

;IF ThIS IS A REWIND CMD:

;CLEAR RECORD COUNT,

;IF BRF USED,

UPDATE RECORD COUNT.

;IF A FORWARD CMO:

;IF PREV CMD WAS A FWD ALSO:

; INCREMENT RECORD COUNT.
;1IF REVERSE CMD:
; IF PREVIOUS CMD WAS A REV ALSO:

;WHEN NOT AT BOT THEN

ERRREC

;CHECK

THE ERROR RETRY

VFYFLG

;CHECK

THE

;CHECK

24
24

RECLOG

10¢
RECCNT(RS)

(-3

INDICATOR

:BR,

IF WE ARE NOT NOW IN ERROR RETRY

;BR,

IF WE ARE NOT IN WRT/VFY MODE

WRITE

VERIFY

INDICATOR

THIS RECORD HAS BEEN COUNTED

;BR, IF HAVE ALREADY BUMPED RECORD CNTR.
;DECREMENT RECORD COUNT.,

MACRO M1118
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

14 JUN 84 18:32

1969

50125¢%:

1970 01320¢

1971

1972 013200
1973 013200

016577

1975 013206
1976 013206

00020°

1974

1977

003376

170200

S50123¢:
501224:

1978

1979

1980
1981
1982
1983

@¢

1964

1985
1986
1987
1968
1969
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003

013210
013216
013220
013226
013230
013234
013236

032767
001441

026727
001405
105767

001002
005265

100000

170236

013272

013276
013300
013300

013312
013312
013314

013320
013322
2024 013322
2025 013330

RECCNT(RS),8DATAWT

RTS

:+» RECCNT(RS,

tRETURN,

THEN AN ERROR RFC

INPUTS:
OUTPUTS:
REGISTERS:

CALLS:

1ST8

BNE
INC

003336

ILET SDATAWT

THIS IS THE ERROR CHECK SUBROUTINE.
AFTER INTERRUPT THIS
SUBROUTINE IS CALLED TO CHECK THE TSOS STATUS,
IF SPECIAL COND IS SET THEN THE TCC MANDLING SUBROUTINE IS ENTERED.
IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR,

CHMKERR:: 817
8EQ

170235

IS REPORTED,

R2,

R4,

TCCO-TCC7.

@71S5.SC, TSSREG
501344
S (Y
50135¢

ERRREC

S0136¢
SCCNT(RS)

+IF SPECIAL COND STATUS IS SET

THEN:

s IF TCC IS NOT 2 THEN:
1 IF NOT

IN ERROR RECOVERY:

$ INC SC COUNTER,

501364
:

032767
001004
032767

004000

032767
001003
012702

100000

170204

501354

170174

001412

167076

000402

S0137¢:

501414
:

012702

013304
013304
013306
013306

MOV

ce
8€Q

170224

013242
013242
013242
013250
013252
013260
013262
013262
013270

S€Q 0077

8I7

0TS . NXM, TSSREG

BNE
8Iv
eeQ

501374
0TS.UPE, TSSREG
50140¢

817
BNE
MOV

X2, 0PM, MSGPKT
+MS . XS2
501414
5 ,R2

S01424

MOV

o4 ,R2

501434

MOV

CTCC.Re

ASL

501448

817
BEQ

#8RF
. C,CMOWRD
Su1454

;MHEN NON-EXTSTANT MEMO

;AND TAPE NOT MOVED
sSET

: TAPE MOVED,

TCCS INDEX

SET

1CC4 INOEX

S0142%:
000402

016702
006302
004772

501404
:

170136

S01434:

JSR

013414

000426

032767
001422

004000

170070

S0134%4:

PC.8TCCRA(R2)

1SET DETECTED TCC INDEX
s CURRENT

TCC

Xx 2.

;GO TO THE TCC HANDLING SUBROUTINE.

1IF BRF IS USED IN THIS CMD THEN:

GLOBAL AREAS

MACRO Mi11%

GLOBAL SUBROUTINES SECTION
2026 013332

2027 013336
2028 013340
013344
0
203 013346
013352
013354
013354
013360
013362
013366
013366
013370
013372
013374

005767
0o0141°

105767
001403
105767
001411

105767
001006
005265

14 AN B84

18:82
157

167022

170151

S0147%:

170141

003356

013376

50150¢:

013376

501464
:

013376

50145
:

000207

8eQ

501504

S0144¢:

170065

AN RFC

THEN:

00 THEN

VFYFLG

IRE

BNE
INC
ERRHRD

501514
HROCNT(RS)
13,RFCERM, STAERM

170012

15718

sIF

166716

50152%:

RTS

RUWERR

501524
CMOSAV,CHMDPKT

ADORESSES OF

2070
2071
2072
2073 013434
2074 013440
013440
013442
013444
013446

THERF

1 IFB RANDOM EN 60 ORB VFTFLG NE

1ST8

8tEQ
MOV

2055
015414
013416
013420
013422
013424
013426
013430
013432

s IF

s IF NOT IN RANDOM OR IF CMD IS WT,:

RFC ERROR REPORTS ARE

ALLOWED:

1UPDATE HARD ERROR COUNT
$REPORT RFC ERROR

TRAP

. WORD

50151¢:

013412
013412

501464
RANDOM
501478

.WORD
.WORD

2039 013376

105767
001403
016767

MSGPK T +MS RFC

8EQ
1S718
8€Q

1578

170144

104456
000015
004521
006120

013376
013376
013402
013404

SEQ 00480

TCCRA:

013434
013452
013470
013600
013616
014232
014330
014472

CS$ERHRD

13
RFCERM

STAERM

:IF A READ/WRITE ERROR HAS OCCURRED THEN:

sRESTORE CMD PACKET AFTER ERROR RECOV.
sRETURN,

TCC HANDLING ROUTINES FOR TERMINATION CLASS COOES O

1CCO
1CC1
TCC2
TCC3
TCCA
7CCS
TCC6
TCC?

SUBROUTINE TO HMANDLE TERMINATION CLASS CODE O,
CONDITION ERROR.
INPUTS:
OUTPUTS

UNDEFINED SPECIAL

REGISTERS:

CALLS:

005265
104456
000005
00447S
006120

003356

TCCO::

INC
ERRHRDO

HROCNT(RS)
S,SCERM,STAERM

1UPDATE HARD ERROR COUNT.
iREPORT SPECIAL CONOITION ERROR.
TRAP

.MORD
.WORD
.WORD

CS$ERHRD

S
SCERM
STAERM

D7
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2075 013450

14 JUN 84

18:32

SFQ 0081
RTS PC

000207

sRETURN,

2076

2077
@e

2078

2079

@¢

2080
2081
2082

104455
004603
006120
004767
000207

THIS TCC

INDICATES

TERMINATION CLASS COOt

THAT

THE DRIVE HAS UNDERGONE

ATTENTION CONDITION.
A STATUS CHANLL

SUCH AS GOING OFFLINE OR COMING ONLINE.
INPUYTS:
QUTPUTS

REGISTERS:

®e

2084
2085
2086 013452
013452
013454
013456
013460
013462
013466

2083

SUBROUTINE TO HANDLE

CALLS:

TCC1::

ERRDF

R2,R4

DROPU

6,ATTNM,STAERM

;REPORT

ATTENTION-UNIT

OFF

LINE.

TRAP

JSR

003512

RTS

PC,DROPY

1OROP THE UNIT.

CSERDF

MWORD
.MORD
.WORD

6
ATTNM
STAERM

sRETURN,

SUBROUTINE TO HMANDLE TERMINATION CLASS CODE 2,

TAPE STATUS ALERT,

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE
}gp&#g PROGRAM.
BITS OF INTEREST INCLUDE TMX, RLS, LET, RLL, B80T, EOT.

OUTPUTS:
REGISTERS:
CALLS:
013470
013476
2100 013500
2101 013504

2102
2103 013506
2104
2105 013510
2106 013510

2107
2108
2109 013516
2110
2111 013520
2112 013524
2113 013526
2114 013532
2115 013534
2116
2117 013534
2118 013540
2119 013542
013546
2121 013550
2122
2123 013554
2124 013556
2125 013556
2126
2127 013562

032767
001404
105767

001401

166664

TCC2::

170010

000433

032767

170002

166644

501534

001427

105767
001403
105767
001421

167771

105767
001016
105767
001403
105267

167761

005265

TC2RTN

BIT

#X0.RLS!XO . RLL ! XO0. TMX!XO0.LET!X0.BOT
,MSGPKT +MS . XSO

8EQ

501544

1ST8

RANDOM

167714
501604
:
S0161¢:

s IF AT BOT AND BOT IS EXPECTED:

tRETURN-TCC2 CAUSED BY EXPECTED B8OT.

s IF OXO.RLS!XO.RLL!XO0.TMK!XO.LET!XO0.B0T SETIN MSGPKT.MS.
XSO THEN

501554

1 IF TCC2 CAUSED BY ANYTHING BUT EOT:
:IFB RANDOM EQ #0 ORB VFYFLG NE 60 THEN

VFYFLG

8EQ

501564

1578

IRE

BNE

501574

8eQ
INCB

501604
UNREC

501614

INC

SCCNT(RS)

7ST8

167723

003336

EXPBOT
501534

TS78

50155
:

#X0.80T ,MSGPKT +MS . XSO
50153$

1578
8EQ

8€EQ

167764

000402

8IT
8EQ

ERRREC

1 IF NOT IN RANDOM OR IF CMD IS WTV:

;IF RFC ERROR REPORTS ARE ALLOMED:
1IF

WE ARE

IN ERROR RECOVERY

THEN:

1SET UNRECOVERABLE FLAG FOR LOG.
1ELSE - IF NOT IN ERROR RECOVERY:
1 INCREMENT THE SPEC COND COUNTER.

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2128 013562
2129 013566
013566

013570
013572
013574

005265

14 JUUN 84

18:32

$UPDATE HARD ERROR COUNT,
sREPORT TAPE STATUS ALERT,
TRAP

.WORD
.WORD
.WORD

006120

C$ERMRD

7
TSAM
STAERM

S50157%¢:
501564
:
501544
:
TC2RTN:

000207

RTS

sRETURN,

SUBROUTINE TO HANOLE TERMINATION CLASS COOE 3,

FUNCTION REJECT.

THE SPECIFIED FUNCTION WAS NOT INITIATED.
BITS OF
RMR, OFL, VCK, B80T, ILC, WE, ILA, AND NBA,

INPUTS:
OUTPUTS:

2143

2174 013634
2175 013640
2176 013642

HROCNT(RS)
7, TSAM,STAERM

104456
000007
004705

2140
2141
2142

REGISTERS:

TCC3::

104455

ERRDF

INTEREST

OROPU

8,FUNRM, STAERM

;REPORT FUNCTION REJUECT.

000010
004622

006120
004767

JSR

003364

RTS

®We

000207

026727
001125
105767
001522
105767
001007
105767

167604

166356
167631

166341

000002

TCCA::

ARE

R2,.R4

CALLS:

®e

2144
2145
2146
2147
2148 013600
013600
013602
013604
013606
2149 013610
2150 013614
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170 013616
2171 013624
2172 013626
2173 013632

SEQ 008c

INC
ERRMRD

003356

2130
2131 013576

2133 013576
2134
2135 013576
2136
2137 013576
2138
2139

E 7/

PC,DROPU

;:DROP THE UNIT.

TRAP

.WORD
LWORD
.WORD

CS$ERDF

8
FUNRM
STACRM

;RETURN,

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4,

RECOVERABLE ERROR.

TAPE POSITION IS ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN
THE FUNCTION WAS INITIATED.
RECOVERY PROCEDURE IS TO LOG THE

ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND.
2 WRITE-ERROR-RECOVERY ALGORITHMS CAN BE SELECTED:
THE FIRST ONE,

VIA BADTSW SWITCH,

OOES DETECT BAD SPOTS ON TAPE.

IT CALLS A WRITE RETRY SUBR UNTIL THE RECORD IS RECOVERED
OR 20 BAD SPOTS HAVE BEEN LOGGED. ON REACHING 20 BAD
SPOTS LOGGED, A BAD TAPE OVERFLOW MSG IS PRINTED AND THE
UNIT OROPPED.
THE SECOND ALGORITHM ISSUES THE TSOS WRITE RETRY COMMANO

UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING
WITH THE NEXT RECORD ON RECOVERY.
INPUTS:

OUTPUTS:

REGISTERS:

CALLS:

cHP
BNE

CMOLG, 02
501624

1578

BADTSW

TS78

ERRREC

TST8

ERCVER

8€Q
BNE

501624
501634

R2,R4.

RTLE,

EXCUTE,

GOWAIT,

DROPU,

WRTY

:+IF CMOLG EQ 92 ANDB BADTSW NE 00 THEN

1IFB8 ERRREC EQ 00 ANDB ERCVER NE

00 THEN

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
217? 013646
2178 013650
013650
013652
013654
013656

104457

001072

105267
105267
105767

167577
167566
167561

013704
013712
013720
013726
013732

016767
016767
016767
105267
105267

167510
166412
166412
167535
167525

013736
013736
013742
013746
013752
013756
013762

005265
005067
105067
004767
105767

003316
167512
167510
000660
167502

027727
103761

167522

027727

167512

001102

001404

013774
014002
014004
014004
014010
014014
014016
014020
014024
014030
014034
014040
014044

012746
012746
010600
104414
062706
004767
005365
004767
005065
012775

014052
014052
014056
014062

105067
105267
016767

103423

501634:

15718

INCB
INCB
1S78

BNE
001174
001164
001162

MOV
MOV
MOV

INCB
INCB

CLR
CLR8
JSR

1578

000050

8EQ
cre
BLO

cre
8LO

000050

PRINTB

015177

éREC
01644

ERRREC
WRTYER
WRTYFG
501654

sRETRY FLAG FOR EXCUTE SUBR: DON'T UPDATE REC CN
tREWRITE ERROR FLAG FOR WRTY SUBR
tFIRST RETRY ON THIS RECORD: SUBSEQUENT

tRETRIES WITH TCCA4 ERRORS BY-PASS THIS SECTION

CMOWRD , WTYWRD
CMOPKT ,WTYCMD

$1SAVE WRITE COMMAND PACKET

RWERR
WRTYFG

sLOG SUBR FLAG: COUNT WRT ERRORS
;RETRY IN PROGRESS FLAG

CMOPKT+CP.CNT ,WTYBRF

WRI1YCT(RS)

sCOUNT GLOBAL WRITE RETRIES

PC.WRTY

s1CALL WRITE RETRY

RETRYC
RPTCNT

;CLEAR & OF RETRIES PER RECORD
1CLEAR @ OF REPEATS

WRTYER
50167
88TPT,040.
501664

;REPEAT RETRIES ON SAME RECORD

sUNTIL RECOVERED OR 20 BAD SPOTS

8BTPT, 040,
501704
08 TMSG2

;WHEN 20 BAD SPOTS LOGGED

;PRINT BAD TAPE OVERFLOW MSG

000001

003376
002350

167405
167447

001020

JSR

JSR
CLR
MOV

002514
50170¢%:

167334

PC,BORERS
RECCNT(RS)

sERASE BAD RECORD

105267

167372

#BTMSG2, -(SP)
e1.-(SP)

TRAP

CSPNTB

501644
:

ADD

PC,DROPU

;DROP UNIT

RECCNT(RS)
ORWCPK ,8TSDB(RS)

sREWIND UNIT

CLR8
INCB
MOV

WRTYFG
MISCFG

;RETRY COMPLETE FLAG
;D0 NOT HALT ON THIS CMD FLG

B8R

50171

INCB

UNREC

WTYWRD , PCMOWD

sLET UNREC

SP.RO

84,5P

;RESTORE ORIGINAL WRT CMD AFTER RECOVERY

501654:
000402

MOV
MOV
MOV

000004
001266
003376
003140

CS$ERSOF
T
9
RERM
STAERM

1IFB IREC EQ 00 THEN

iREPEAT

S0166¢4:

50167¢:

014070
014070
014072
014072

TRAP
.MWORD

.WORD
.WORD

166327

013764

000011
005017
006120

105767

013772
013774

SEQ 0083

501634
BEQ
ERRSOFT 9,RERM,STAERM

001404

2179
2180 013660
2181 013660
013664
2183 013666
013672
2185 013676
013702

2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224

14 JUN 84 18:32

:Bs UNREC

G/
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

14 JUN 84 18:32
S0171¢:

2225 014076
2226

2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
2239
2240

014076

000454

014100
014104
014112
014114
014120
014122
014126
014130

004767
026727
003411
012702
006202
026702
002403
052767

014100

501624
000404
167316

014162
014162
014166
014174
014200
014202
014206
014210
014212
014216

014222
014224
014224

501724

JSR

PC,RTLE

BLE

50173

sCHECK FOR RETR¢ LIMIT EXCEEDED.

CMOLG, @2

sIF READ CMC THEN:

000020

:g;

ngECL.RZ

167332

cMe
BLT
8IS

RETRYC,R2
501744

020000

166172

1R2=READ RETRY COUNT LIMIT

+IF RETRY COUNT

o0PP . C,CMOPKT

IS MORE

/ 2

THAN HALF LIMIT:

$sSET OPPOSITE BIT FOR RETRYZ2.

50174%:

005767
001007
105767
001404

50173%¢:

167316

TST

BNE

166037

TST8

RETRYC

;IF

S50175¢

THIS IS

THE ORIGINAL ERROR THEN:

ERCVER

BEQ
501754
ERRSOFT 9,RERM,STAERM

104457

;REPORT RECOVERABLE ERROR

000011

005017

006120

052767
105767

167272
001000
166013

105267

167263

005267

001011

012602
012602
004767
000167

50175¢%:

CS$ERSOFT

.WORD
.WORD
.WORD

9
RERM
STAERM

167240

INC

RETRYC

tUPDATE RETRY COUNT.

BNE
INCB
MOV
MOV

501764
ERRREC
(SP)+,R2
(SP)+,R2

:SET ERROR RECOVERY FLAG.
;POP 2 RTN ADRS FROM STACK,

JHP

GOWAIT

BIS
15718

166134

JSR

175636
176142

000402

105267

TRAP

;PROVIDED OPERATOR HAS ENABLED THE REPORT

S50176¢:

oM00.C1,CMOPKT
IREC

PC,.EXCUTE

B8R

50177¢

INCB

UNREC

;SET RETRY BIT IN CMD PACKET,
; IF ERROR RECOVERY ENABLED:

160 EXECUTE THE RETRY COMMAND.

:GO WAIT FOR INTERRUPT

« CHECK STATUS.

;ELSE IF ERROR RECOVERY IS NOT ENABLED:
1 SET UNRECOVERABLE ERROR FLAG.

S0177%:

014230
014230
014230

cMP

000002

014136

014136
014136
2241
2242 014142
2243 014144
2244 014150
2245 014152
014152
014154
014156
014160

SEQ 0084

S0172%:

000207

RTS PC

$RETURN

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR.

TAPE POSITION HAS NOT CHANGED.
RECOVERY PROCEDURE IS TO LOG THE
ERROR AND RE-ISSUE THE ORIGINAL COMMANO.
INPUTS:
OUTPUTS:
REGISTERS:

CALLS:

014232
014236
014242

004767
005767
001004

000252
167216

TCCS::

JSR

TST
BNE

PC.RTLE
RETRYC
502004

R2,R4,

RTLE, EXCUTE, GOWAIT, DROPU.

sCHECK FOR RETRY LIMIT EXCEEDED

sIF THIS IS THE ORIGINAL ERROR THEN:

GLOBAL AREAS

MACRO

11113

GLOBAL SUBROUTINES SECTION
2278 014244
014244
014246
014250
014252
2279 014254
2280 014254
2281 014260
014264
014266
014272
014276
014304
014306
014310
014314

014320
014322
014322

14 JUUN 84 18:32
ERRSOFT

104457

005017
006120

005267

105767

001016
105267
005265
016577
012602
012602
004767
000167

5020C$
:

167200
165727
167177
003376
003376

105267

502014:
502028:

000207

we
we
We
B
4
@
Be
®¢

014340
014344
014346
014352

905767
001404
105267
105267

167062

166032

TCCé6:
:

104455
000013
005041

002606

000436
004767
005767
001004

000110
167054

BNE
INCB
INC

50201
¢
ERRREC
RECCNT(RS)

1SET ERROR RECOVERY FLAG.
tUPDATE REC COUNT

MOV
MOV

(SP)+,R2
(SP)+,R2

1POP 2 RTN ADRS FROM STACK.

GOWAIT

1GO WAIT FOR INTERRUPT

50203¢:

IREC

+IF ERROR RECOVERY

RECCONT(RS), 8DATAWT

502024

INCB

UNREC

RTS

CS$ERSOF
T
10
RERM

STAERM

IS ENABLED:

$AND INSERT IT INTO WRT BFR

PC,.EXCUTE

B8R

1GO RE-ISSUE THE COMMAND.

. CHECK STATUS.

;ELSE IF ERROR RECOVERY IS NOT ENABLED:
$SET UNRECOVERABLE ERROR FLAG.
sRETURN.

SUBROUTINE TO HANOLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR.
TAPE POSITION HAS BEEN LOST.

THE ONLY VALID RECOVERY PROCEDURE

IS TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR
SEQUENCE NUMBERS.
THIS DIAGNOSTIC WILL REWIND AND RETRY THE
COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE
OROPPED FROM THE TEST SEQUENCE.
INPUTS:
OUTPUTS:
R2, R4
REGISTERS:

CALLS:

RTLE, WSSR, EXCUTE, GOWAIT, DROPU

8IT
BNE

X3.DCK ,MSGPKT+MS . XS3;IF X3.DCK NOTSETIN MSGPKT+MS_
XS3 THEN
50203

TST
8EQ

CMOLG
502044

INCB

UNREC

ERRDF

11,URERM,STAERM

INCB

167115
167112
502044:

006120
004767

tUPDATE RETRY COUNTER,

JMP

167142

163454

RETRYC

JSR

000402

036767
001016

014372
014374
014374
014400
2526 014404

TRAP
.WORD
.WORD

INC

MOV

167102

2321
2322
2323
2324
2325

;REPORT RECOVERABLE ERROR.

.WORD

1ST8

175540
176044

014330
014336

014356
014356
014356
014360
014362
014364
2320 014366

10,RERM,STAERM

SEQ 0085

000012

@¢

014326
014326

RWERR

JSR

PC,DROPU

B8R

502054

JSR

PC,RTLE

TS7
BNE

RETRYC
502064

:IF THERE IS NO DENSITY CHECK THEN:
;IF CMD IS A READ OR WRITE THEN:

:SET RD/WR ERROR FLAG,

$+SET UNRECOVERABLE ERROR FLAG.
;REPORT UNRECOVERABLE ERROR.

TRAP
.WORD

.WORD
.WORD

CS$ERDF
11

URERM
STAERM

;REPORT ERROR +« DROP UNIT.
;ELSE-IF THERE IS DENSITY CHECK:
;CHECK FOR RETRY LIMIT EXCEEDED.

1 IF THIS IS THE ORIGINAL ERROR THEN:

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2327 014406

2328
2329
2330
2331
2332

2333
2334
2335
2336
2337

2338
2339
2340
2341
2342
2343
2344
2345

104457
000013
005041
006120

014416
014416
014422

005267

014462
014464
014464

14 JUN-84 18:32

105767
001016
105267
012775
004767

012602
012602
004767
000167

167035
002350
176232
175376
175702

167000

014472
014474
014476
014500
014502
014506

$0207%:

;REPORT DENSITY CHECK ERROR

TRAP

CS$ERSOF
T

.WORD
.WORD
.WORD

11
URERM
STAERM

RETRYC

INCB

ERRREC

JSR
MOV

PC,WSSR
(SP)+,R2

{WAIT FOR SUBSYSTEM READY,
:POP 2 RTN ADRS FROM STACK,

JSR
JP

PC.EXCUTE
GOWAIT

sREISSUE THE COMMAND,
sWAIT FOR INTERRUPT

502104

INCB

UNREC

RTS

MOV

002514

11,URERM,STAERM

INC

TST8
BNE

MOV

000402

105267

50206%:

167036
167073

$UPDATE RETRY COUNT,

IRE
502074

: IF ERROR RECOVERY

ORUWCPK ,aTSDB(RS)
(SP)+ ,R2

IS ENABLED THEN:

:SET ERROR RECOVERY FLAG,

;s ISSUE A REWINO COMMAND,

1ELSE-IF ERR REC DISABLED:
:SET UNRECOVERABLE ERROR FLAG.

50210%:

014470

2347 014470
2348 014470
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360 014472

SEQ 008K

ERRSOFT

014406
014410
0l441?2
014414

014426
014430
014434
014442
014446
014450
014452
014456

502054:

000207

sRETURN

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM
ERROR.
THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING

COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY @UESTIONABLE.

REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR
ADDITIONAL INFORMATION ON THE TYPE OF FATAL ERROR.
INPUTS:
OUTPUTS:
REGISTERS:
CALLS:
TCC7::

104455

000014
004642
006120
004767
000207

ERRDF

JSK

002472

RTS

R2.

12,FATSM,STAERM

PC,DROPY

;REPORT FATAL SUBSYSTEM ERROR.
TRAP
.WORD

;:DROP THE UNIT.

.WORD
.WORD

CS$ERDF
12

FATSM
STAERM

sRETURN,

SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED.

PRINTS ERROR MESSAGE

IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ.
INPUTS:
OUTPUTS:
REGISTERS:

CALLS:

014510
014514
014516
014516

005767
001010
104455

166712

RTLE-:

TS7
BNE
ERRDF

CMOLG
502114

R2,

R4,

DROPU

;IF CMD IS NOT A READ OR WRITE THEN:

11,URERM,STAERM ;REPORT UNRECOVERABLE ERROR.

TRAP

C$ERDOF

MACRO M1113
GLOBAL AREAS
SECTION
TINES
GLOBAL SUBROU
014520
014522
014524
014526
014532
014534
014536
014536
014542
014550
014552
014560
014562
014566
014566
014570
014572
014574
2387 014576

014602
2389 014604

2390
2391
2392
2393
<394
2395
2396

014604
014606
014606
014614
014616
014622
014622
014624
014626
014630
2397 014632
2398 014634
2399
2400 014634
2401 014634
2402
2403

000013
005041
006120
004767
012602
000437

14 JUN-84 18:32

002446

50211¢%:

166725
166660

000002

166702

000020

105267

166702

105267

000207

BNE

502124

BNE
INCB
ERRDF

002376

:SET READ/WRITE ERROR FLAG.

CMOLG, @2

:IF CMD IS A WRT OR WTM:

RETRYC, OWRECL

502134
UNREC
14 ,RLEXM,STAERM

: IF RETRY COUNT HAS REACHED LIMIT:
:SET UNRECOVERABLE FLAG
;REPORT RETRY LIMIT EXCEEDED.

PC,DROPU

;OROP THE UNIT,

502144

oy o

RETRYC, @RRECL

(SP)+,Re

000020

50212¢:

BNE
INCB
ERRHRD

166646

50215%:

MOV

502144
:
RTLRTN: RTS

.WORD
.WORD
.WORD

;sELSE

50215%
UNREC
14 ,RLEXM,STAERM

;sIF RETRY COUNT HAS REACHED LIMIT:

:SET UNRECOVERABLE FLAG
;REPORT RECOVERABLE ERROR.

(SP)+,R2

TRAP
.WORD
.WORD
.WORD

:POP 2 RTN ADRS FROM STACK.

s RETURN

AND A RECOVERABLE WRITE ERROR IS LOGGED.

IF ANY OF 4 REPEATS BAD, ERASE BAD RECORD, LOG SUSPECTED
BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH.
IF RECORD NOT GOOD AFTER 4 RETRIES, ERASE IT, EXIT WITH
ERROR FLAG WRTYER SET, PRINTING RETRY FAILED.
THIS ALL SCHEME IS REENTERED 20 TIMES MAX,

SPOTS MAX ARE ALLOWED.

INPUTS:
OUTPUTS:

REGISTERS:

CALLS:

WRTY::

;:BEGIN RETRY

14
RLEXM
STAERM

- CMD IS A REARD:

SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD.
REWRITE RECORD ON SAME SPOT
REPEAT 4 TIMES.
IF ALL 4 REPEATS GOOD, RECUL=D IS RECOVERED

2405
2406
2407
2408
2409
2410
2411
2412
2413

CSERDF

;:POP 2 RTN ADRS FROM STACK.

502134:

166646

11
URERM
STAERM

:POP
RTN ADRS FROM STACK,
iAND RETURN,

JSR

MOV

2404

2414
2415
2416
2417
2418
2419 014636
2420

RWERR

CcMP

104456

000016
004556
006120
012602

INCB

;OROP THE UNIT,

(SP)+,R2
RTLRTN

.WORD
.WORD
.WMORD

TRAP

000413
026727
001007

PC.DROPU

cmPe

104455

000016
004556
006120
004767
012602

JSR

MOV
BR

105267
026727
001016
026727

001011

SEQ 0087

R3,R4

BORERS,

REWRT

;REPEAT

IE 20 BAD

CS$ERHRD
14
RLEXM
STAERM

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2421
2422
2423
2424
2425
2426

2427
2428

2429

2430

14 JUN-84 18:32
50217%:

014636
014636

014636

014642
014646
014652
014656
014664

2431 014666

2432 014672
2433 014674
2434
2435 014674
2436 014674
2437 014700
2438 014704
2439 014706
2440
2441 014710
2442 014710
2443 014714
2444 014716
014716
014720
014724
014730
014734
014740
014742
014744
2445 014750
014750
2447 014756
2448 014760
2449 014766
2450 014772
2451 014776
2452 015002
2453 015006
2454 015010
2455 015014
2456 015016
2457
015022
015022
015022
015026
015032

2465 015036
2466 015036
2467 015044
2468
2469 015046

SEQ 0084

004767
105067
004767
105267
126727
001403
105767
001761

005267

105767

001001
000457

105767
001415
005046

000454
166616
000620
166604
166600

50221%:

:BEGIN REPEAT
JSR
CLRB

000004

502204
:

166560
166560

502234:

;sCOUNT REPEATS

RPTCNT, 04

502224

tREWRITE RECORD ON SAME SPOT
sLIMIT:

4 REPEATS OR RECOVERED

WRTYER

BEQ

502214

:END REPEAT
INC
1S78
BNE

RETRYC
WRTYER
50223

sCOUNT RETRIES

T1ST8

ERCVER

;IFB ERCVER NE #0 THEN

PRINTB

O&BTMSGL1,RETRYC,<B,RPTCNT>

B8R
165273

RPTCNT

cMP8

TS78

502224
:

s BACKSPACE/ERASE ONE RECORD
sCLEAR WRITE RETRY ERROR

PC,.REWRT

BEQ

166572

PC,BORERS
WRTYER

JSR

INCB

;REPEAT

BEQ

502164

502254

;EXIT RETRY LOOP IF RECOVERED

;PRINT

SUSPECTED BAD SPOT

012746
012746

166536
166530
015112
000003

104414
062706

CLR
BIS8
MOV
MOV
MOV
MOV

-(SP)
RPTCNT,(SP)
RETRYC, -(SP)
#BTMSGL, -(SP)
03,-(SP)
SP,RO

000010

ADOD

€10,SP

156716
016746

010600

026727
001021
016567
017704
062704
010477

020427
101005
016703
060304

016514

TRAP

166504

000001

002616
166520

166524

502254:

cMP

BNE
MOV

aBTPT,R4

MOV

R4 ,3BTPT

cHP

8HI
MOV
ADD
MOV

166476
003376

502264
BTADCR(RS),BTPT

MOV

ADO

000002
166510
000050

RETRYC, @1

02 ,R4

R4, 040.

502274
BTPT ,R3
R3,R4
RECCNT(RS),(R4)

;ON FIRST

;8TPT

RETRY,

LOGG BAD SPOT

IS BOTH THE BAD SPOT

;AND THE LOGGING INDEX
;IF R4 LOS 9040,

COUNTER

THEN

;STORE FIRST 20 BAD SPOTS
;LET R4 := R4 + R3
sLET (R4) := RECCNT(RS)

:
:

502274
:

105267
105067
105067

166477
166435
166424

026727
001274

166416

:
502264

000004

502244
:

502164
:

INCB
CLRB
CLRB

ERSFLG
RWERR
RPTCNT

cMP
RETRYC, 04
BNE
502174
;END RETRY

;ERASE FLAG TO ERASE BAD RECORD
; CANCELL "LCG” ERROR FLAG ON FAILING RET
;CLEAR REPEAT COUNT FOR NEXT RETRY
;LIMIT:

CS$PNTB

4 RETRIES

L/
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
24170 015046

2471
2472

2473

2474

2475
2476
2477
2478
2479
2480
2481
2482
2483

015052
015054
015060
015062
015062
015066
015072
015074
015076

105767
001413
105767
001410

012746
012746
010600
104414
062706

015102
015102

8€Q

1ST8

165127

8EQ

PRINTB

015247
000001

045
125
105
040
104
120
040
124
040
061
040
124
054
104
101
105
101
116
045
101
104

015145

015150

015153
015156
015161
015164
015167
015172
015175
2486 015177
015202
015205
015210
015213
015216
015221
015224
015227
015232
015235
015240
015243

015246
2487 015247
015252
015255
015260
015263

502314

;IFB WRTYER NE 00 THEN

:IFB ERCVER NE 00 THEN

0B8TMSG3

:PRINT RETRY FAILED

MOV
MOV

MOV

TRAP
ADD

000004

:
502304

000207

2485 015112
015115

015134
015137
015142

WRTYER

50230%
ERCVER

0BTMSG3, -(SP)
el1,-(SP)

SP,RO

CS$PNTB
04,6P

50231¢4:

000000

015120
015123
015126
015131

SEQ 0089
15718

166412

015102

015104
015106
015110

2484

14 JUUN 84 18:32

000000

101

105
114

072

110
107
124
105
116

045

105

131
101

105

101
123
103
102
040

117

101
105
045
045
122
122
040
061

120
124
116
102
120
117
122

117

040
101
10°
101
041
045

101
124

040
111

104

123
120
124
101
123
124
106
122
104
101
105
131

RTS

WTYCMD:
WTYWRD:
WYYBRF
;

. WORD

.WORD

0
0
o

BTMSGL:

.ASCIZ

/8ASUSPECT BAD

BTMSG2:

.ASCIZ

/8NSABAD TAPE

BTMSG3:

.ASCIZ

/#ARETRY FAILED ON BAD SPOT...ERASED!%N/

;STORAGE FOR WRITE CMD WHILE RETRYING
:STORAGE FOR WRIME CMD WORD WHILE RETRYING
:STORAGE FOR WRITE BPCR WHILE RETRYING
SPOT

AFTER sD1sA RETRY,

#D1sA REPEATEN/

045
122
105
045

045
101
124
105
126

OVERFLOW:

CHANGE

TAPE!%NsN/

127
103
116
120
045
116

122
122
106
114

040

M7
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

2488
2489
2490
2491
2492
2493

015266
015271
015274
015277
015302
015305
015310
015313

117

102
040
117
056
122

105

045

14 JUN 84 18:32
116
101

123

124
056
101
104
116

SEQ 0090

040
104
120
056
105
123
041
000

.EVEN

SUBR TO BACSPACE ONE RECORD
IF THE ERASE FLAuL IS SET, THEN ERASE THAT RECORD
INPUTS
ERSFLG
1 = DC ERASE
oUTPUTS

REGISTERS:

CALLS:

2497 015316
015324
015332
015340
015346
015354
015362
015366
015372
015376
015402
015406
015412
2510 015414
015422
015430
015436

015444
015450
015454
015460
015464

015470
015470

016767
012767
016767
042767
016767
012767
005067
004767
004767
004767
004767

105767
001426
016767
012767
016767
016767
004767
004767
004767
004767
105067

166076
104410
166062
004000
164756
166040

166100
166066
164770

164762
166046

BORERS: : MOV
MOV
MOV
8IC

MOV

164750

13472

174456
174762
002072
166113
166000
100411
165764
164666
173414
174400

174704

166035
502324
:

000207

#SRR , CMDWRD
CMOWRO , CMOPKT
#8RF .C,CMOPKT

:SET COMMAND
;LET CMOWRD
sLET CMOPKT

TO SPACE REV

:= &SRR
:
:= CMOWRD CLR.BY

sLET CMDSAV := CMOPKT

ERSFLG

;WHEN ERASE FLAG IS SET, DO ERASE

BEQ

502324

CMOWRD , PCMDWD
SERS , CMOWRD

CMOWRD, CMOPKT

MOV
JSR
JSR
JSR
JSR
CLRB

CMOPKT ,CMDSAY
PC,CMOAC
PC,EXCUTE
PC,GOWAIT
PC ,CKHAE
ERSFLG

RTS

%BRF.C

CMOPKT ,CMDSAYV

¢1,CMOPKT.CP.ADL
CMOLG
tLET CMOLG
PC,CMOAC
PC.EXCUTE
PC,GOWAIT
PC,CKHAE

MOV
MOV
MOV

002014

CMOWRD , PCMOWO

MOV
CLR
JSR
JSR
JSR
JSR

7S718

166002
165770
164672
165756

EXCUTE, GOWAIT, CKHAE

;LET CMOPKTCP
. ADL
:= @0
:
:
H

:= 01

sLET PCMOWD := CMDWRD ;
sLET CMOWRD := OERS
:
;LET CMOPKT .= CMDWRD ;
;LET CMDSAV
:

:= CMOPKT

;LET ERSFLG

:8= @0

;

SUBR TO REWRITE A BADLY WRITTEN RECORD
015472
015500
015506
015514
015522
015530
015536
015544
015550
015554
015560
015564

016767
016767
016767
016767
016767
016767
012767
004767
004767
004767
004767
000207

165722
177402
177372
164610
165660
177354
000002
173314
174300

174604

001714

165724
165712
164614
165700
164602
164600
165662

:
REWRT:

;RESTORE WRITE COMMAND PACKET
;LET CMOMRD := WTYWRD
:

MOV
MOV

CMOWKOD , PCMOWD
WTYWRD , CMOWRD

MOV
MOV

CMOPKT ,CMDSAYV
;LET CMDSAV := CMOPKT
:
. ADL :* DATAWT
sLET CMDPKTCP
DATAWT ,CMOPKT +CP . ADL

MOV

2.,.CMOLG

MOV

WTYC*D, CMOPKT

WTYBRF ,CMOPKT.CP.CNT

JSR

PC,CMDAC

JSR
JSR

PC.GOWAIT
PC.CKHAE

JSR

RTS

sLET CMDPKT

PC.EXCUTE
PC

:s WTYCMD

;LET CMOPKT+CP.CNY

;LET CMOLG := @2

:= WTYBRF

;RE-WRITE RECORD

H
:

GLOBAL ARf AS

MACRC TM1118

GLOBAL SUBROUTINES SECTION

14 N 84 18:32

253"

SUBROUTINE TO LNG BYTES READ/WRITTEN.
ALSO UPDATES READ/MRITE ERROR COUNTERS.

25%9

2540
2541
2542
2541
2544
2545 015566
2546 015572
2547 0155/
2548 015600
2549 015604
2550 015606
2551 015610
2552 015614
2553 015616
2554 015622
255S 015626
2556 015632
2557 015640
2558 015642
2559
2560 015646
2561 015646
2562 015650
2563
2564 015654
2565 015654
2566 015660
2567 015662
2568 015666
2569
2570 015670

2571
2572
2573
2574
2575
2576
2577
2578
2579

SEQ 0091

015672
015€72
015674
015700
015700
015704
015706
015712

015714
015716
015716
015720
015724
015724
015730
015732
015736

015740
015742
015742
015746

INPUTS
ouUTPUTS:
REGISTERS:
CALLS:

105767

165674

105267
016704

165666
165622

001126

Wi
00152¢

162704
010502
066402

062702

066712
026767

101002
166712
010203
062703

021227
003404
162712
005213

016052
002626

165564
164522
164512

50235%
:
000010

001747

021327
003404
162713
005212

021227
003404

162712
005213

502374
:
030010

001747

S0240%

001750

S0241%:
000010

001747

50242
:

001750

000771

105767
001440

;IF DATA AND ERRORS HAVE NOT BEEN LOGGED

MOV
ADD
ADD
ADD

RS ,R2
8INC(R4),R2
OCNTBGN,R2
BRFCNT, (R2)

02 .R4

;ADJUST THE CODE FOR TABLE INDEX.

o]
SuB

$
MSGPKT «MS . RFC,(R2)

165521

MOV
ap0

502434
:

502344

sRe

gggg;YoHS.RFC.BRFCNY

ADR OF BYTE

COUNT

;ADD BRF

T0O LSW.

;IF

;R3

(R2), 0999,

S0237¢

INC

(R3)

€1000. ,(R2)

B8R

502364

MOV

R3,.R2

THE

RFC

IS LOWER

502404

MOV

R2,R3

ADD

THE

SAME

AS BRF

ADR OF 2ND WORD.

;LET

;UPDATE BYTE COUNT

;LET R2

(R3)

:= R3 + 010

ADD
#10,R2
";UNILE (R3) GT #999. DO
(R3),#999.
BLE
50241
SuB
€1000.,(R3)
;UPDATE BYTE COUNT
INC
(R2)
iLET (R2) := (R2) « 01

B8R

(SWw

;SUBTRACT RFC FROM EXPECTED BRF
.

R2.R3
#10,R3

BLE

THEN:

;SET LOG OONE FLAG.
;GET CURRENT CMD LOGGING COOE€.
;IF THERE IS A CODE THEN:

;WHMILE (R2) GT 999,

(o, o]
SuUB

001750

000771
010203
062703

502364:

Re.

ERLOG
50233
ERLOG
CMOLG R4
Ra

gfl?

165556

R3,

1S78
BNt
INCB
MOV
ST
8€Q

SUB

000771

010302
062702

:
L0G:

R2,

;LET R3

:= R2

010

;2ND WORD
.,

;R2 = ADR OF 3RD WORD.

; 3RD WORD.

:R3 = ADR OF 4TH WCRD.

;WHILE (R2) GT #999. DO

cHP
BLE
su8
INC

(R2),4999.
502434
€1000.,(R2)
(R3)

B8R

502424

1578

RUWERR

8EQ

502444

;UPDATE BYTE COUNT
iLET (R3) := (R3) « &1

: IF R/W ERROR,

;4TH WORD.

UPDATE ERROR COUNT.

THEN

@) c"n
GLOBAL AREAS

MACRO M111%

GLOBAL SUBROUTINES SECTION
2594
2595
2596
2597
2598
2599
2600
2601

015750
015722
015756
015762
015766
015770
015774

2602 015776
2603 016000
2604 016000

2605
2606

2607

2608
2609
2610
2611

016002
016006
016010
016014
016016
016022
016024
016024
016030
016034
016040
016042
016044

010502
066402
062702

105767

001404
062702
005212

14 JUN 84

016746
012746
012746
010600
104414
062706

ADD

ADO

502454 ;

164205
165506

INC
1S78
BNE
1578
BNE

(R2)
IREC
502474
OROPED
50250

#10,R2
(R2)

1 IS THE ERROR UNRECOVERABLE?

1 YES, POINT TO NEXT COUNTER,
tUPDATE THE ERROR COUNTER
1ELSE - IF ERROR IS RECOVERABLE
:

sUPDATE THE ERROR COUNTER
1 IF ERROR RECOVERY IS ENABLFD:
:IF UNIT HAS NOT BEEN DROPPED:

ERCVER

502504

ONURTY] ,RETRY(C

sPRINT

@ OF

RETRIES

TO RECOVER

MOV

005422
000002

016050

502464 :

016050

S0244
4 :

016050

502344:
502334:

000207

000020
000040

1R2 = ADR OF COUNTER,

165430

S02474:

016060
016062
016064

502461

PRINTB

016050

000100

B8R

8€EQ

502504 :

016052
016054
016056

MIRREC ,R2

UNREC
502454

1578

164165

RS5,Re

EINC(R4),R?2

1578
8EQ

ADO
INC

000010

016050

016050
016050

S€EQ 009¢

MOV

016060
002766
165502

000424

005212
105767
001020
105767
001015
105767
001412

18:32

BINC:

RYS

INDEXES TO BYTE COUNTERS.

0
40

IWRITE.
sREAD REV.

sREAD FWD.

INDEXES TO READ/MRITE ERROR COUNTERS.
0
{WRITE.

1READ REV,

sREAD FMWD.

TRANSFERRED T0 THIS SUBROUTINE TO READ REVERSE, CHECK DATA,
I;E"ASTZM. CHECK DATA, THEN CONTINUE TO NEXT COMMAND.

OUTPUIS:
REGISTERS:

CALLS:

105767

165424

(SP)

IF A WRITE/VERIFY COMMAND IS ISSUED, CONTROL IS THEN

016066

MNURTYL,

MOV
SP,RO
TRAP
CsPNTE
ADO
06, SP
1PROVIDED PRINT HAS BEEN ENABLED

100

EINC:

RETRYC,

VFYDAT :7S7T8

VFYFLG

VFEXC.
+IF DATA IS TO BE VERIFIED:

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

2645 016072

001426

2646 016074

016767

2650 016122
2651 016130
2652 016136
2653 016144

016767
012767
012767
004767

2655 016150
2656 016150

000207

2647 016102
2648 016110
2649 016116

2654

2657
2658
2659
2660

012767
012767
004767

14 JUN 84 18:32

165320

104401
000004
000030

165272
104001
000006
000002

8eQ

165322

MOV

165274
165262
165262

MOV
MOV
MOV
JSR

165310
165310

50251¢:

2661
2662
2663
2664

:
:
:
3

2665

2666

2667 016152

2668 016160

2669 016166

016767

042767

105767

165242

004000

165326

164150
164142

2670 016172

001403
052767

010000

164126

2673
2674
2675
gg;g

016202
016202
016210
016216

016767
016767
005067

164122
165174
165170

165212
164114

2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699

016222
016222
016230
016232
016236
016242
016242
016250
016252
016260
016262
016270
016272
016300
016302
016306
016310

026767
002062
004767
004767

165164

gg;% 016174

026527
001442
032767
001421
032765
001014
032765
001406
105767
001402
004767

172626
000640
002604

177777

000400

165140

000002

003502

000001

003502

165216
000064

016314

0163:4
016316
2700 016316
2701

SEQ 0093

CMOWRD , PCHMOWD

MOV
MOV
JSR

OROR , CMOWRD
#4 ,CMOLG
PC,VFEXC

RTS

CMOWRD , PCMOWD
ORDF , CMDWRD
6,CMULG
PC.VFEXC

CALLS:

004767

000056

1COMMAND IS READ REV,
1SET UP CMD LOGGING INDEX,
1GO READ ALL THE RECORDS REV,

1SAVE THE PREVIOUS COMMAND WORD.
1COMMAND IS READ FWD.
$1SET WP CMD LOGGING INDEX,
1GO READ ALL RECORDS FWO.

tRETURN,

8IC

75718

CMDAC, FIRSTU, VFISU, NEXTU, CKMAE.

CMOMWRO , CMOPKT
#BRF .C,CMOPKT

s COMMAND PACKET = READ REV OR FWD.

SWBFLG

1IF BYTES ARE TO BE SWAPPED:

8EQ

502524

MOV
MOV
CLR

CMOPKT ,CMDSAV
DATARD , CMOPKT «CP . ADL
NCNT

8IS

o5uB .C,CMOPKT

S0253¢:

$1SET SWAB BIT IN CMD PACKET.

;WHILE NCNT LT NCNTL1 DO
cre
NCNT NCNT)
8GE
50254¢
JSR
PC.CMDAC
JSR
PC,FIRSTY
502554 :
sWHILE
ODEVTBL(RS) NE #END DO
crP
DEVTBL(RS),
#END
8EQ
50256
¢
8IY
#M00.CO,CMOWRD
8EQ
502574
8IT
#X0.80T ,EOTFLG(RS)
BNE
502604
81T
#X0.EOT ,EOTFLG(RS)
8EQ
50261$
1578
ALLEOT
BEQ
5026214
JSR
PC.VFISV
502624:

000402

1SAVE THE PREVIOUS COMMAND WORD.

SUBROUTINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE.
INPUTS:
OUTPUTS:
REGISTERS:
R2

VFEXC:: MOV

502524
:

502514

502614:

502634

JSR

PC,VFISU

;SAVE COMMAND PACKET 1ST WORD.
:SAVE BUFFER START ADDRESS.
tCLEAR NUMBER OF OPERATIONS.
tWHILE

THERE ARE RECORDS REMAINING:

1STORE CMDO ASCII IN ERROR MSG.
:SET UP FOR FIRST UNIT,
;WHILE THERE ARE DEVICES REMAINING:
+IF CMD IS REVERSE

THEN:

s IF NOT AT 8OT
18UT

IF AT EOT

tAND ALL OTHERS AT EOT
s THEN READ VERIFY
:IF NOT ALL AT EOT, FREEZE UNIT(S)

1 IF NOT AT 80T AND

tMOT AT EOT, READ VFY

D&
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2702
2703
2704
21705
2706

2707

2708
2709
2710
2711
2712
2Nn3
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726
2727
2728

2729
2730

14 JUUN 84 18:32

016322

502634
:

016322
016322
016324
016324
016332
016334
016342
016344

502604;

016344

000412

032765
001404
032767

001002

004767

000001

003502

000001

165056
502654
:

000030

004767

016354
016356
016356
016362
016366

000732

016374
016376
01L376

000712

004767
005267
016767

502644:

000574

502564
:

001116

165024

165026

165030
:
502544

000207

50264 $

sELSE IF CMD IS NOT REVERSE:

817
BEQ
8IT
BNE

#X0.EOT,EQOTFLG(RS)
502654
oCMD
. CO,CMOWRD
50266¢

JSR

PC,VFISU

JSR

PC.NEXTU

B8R

502554

:IF NOT AT EOT OR NOT A MOTION CMD THEN:

s ISSUE CMD, CHECK STATUS AND DATA,

JSR

1GO FINC THE NEXT UNIT,

PC.CKHAE

INC
MOV

NCNT
CMOWRD , PCMOWOD

50253

RTS

;CHECK FOR HALT AFTER EACH CMD.

1UPDATE THE RECORD COUNT.
1 SAVE PREVIOUS COMMAND WORD.

tRETURN,

SUBROUTINE TO ISSUE COMMAND,

CHECK STATUS, CHECK DATA,

2731

INPUTS:
OUTPUTS:
REGISTERS:
CALLS:

2732

2733
2734
2735
2736

2737 016400
2738 016404
2739 016410
2740 016410
2741 016414
2742 016416

016702
062702

2744 016422
2745 016424
2746 016424
2747 016430
2748 016434
2749 016436

000772

2743

2750
2751
2752
2753
2754
2755
2756
2757
2758

B8R

:
502664

016350
016350
016350

50257%:

SEQ 0094

016442
016442
016446

036450
016456
016460
016464

020267
001403
012742

S02674:

164774

177777
$0270%
:

173424
165066

004767
105767
001002
004767

173722

105767

165054

00100¢
032765
001002
004767

VFISV::

165004

000010

000002

S0271%:

MOV
ADD
cre
BEQ
MOV

000002

502734:

R2
EXCUTE, GOWAIT, CKDATA.

DATARD,R2
8. ,R2

s INIT READ BUFFER POINTER.

tWHILE R2 NE DATARD DO
R2,DATARD
502704
0-1,-(R2)

502674

JSR
1578
BNE
JSR

PC,EXCUTE
OROPED
502714
PC.GOWAIT

1578
BNE

OROPED
502724

BNE
JSR

502734
PC,CKDATA

8IT

003502

AWAIT INTERRUPT,

sUNTIL 8 BYTES HAVE BEEN SET,
t INIT READ BUFFER.

160 EXECUTE THE COMMAND.

1 IF UNIT HAS NOT BEEN DROPPED THEN:

1GO WAIT FOR DONE BIT.
:IF UNIT HAS NOT BEEN DROPPED THEN:

#X0.807,EOTFLG(RS)

1WHEN NOT REVERSED INTO BOT,

1GO VERIFY DATA,

THEN

GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2759
2760 016464
2761 016464
2762
2763

502724

000207

SEQ 0095

RTS

SUBROQUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS

2764

AND PRINT ERROR MESSAGE ON MISCOMPARE
.

2765

INPUTS:
OUTPUTS:

2766

2767

2768
2769
2770
2771 016466
2772 016472
2773 016476
2774 016500
2775 016502
016502
016504

016506
016510
2776 016512
016512
016516
016522
016524
016526
27717 016532
2778 016534
2779 016534
2780 016540
2781 016542
016542

C16544

REGISTERS:

CALLS:

016703

166703

005703
001015

R3,

GCMOA

R4,

BRFCNT ,R3
MSGPKT+MS.RFC,R3

TST

tCOMPUTE REC LENGTH READ

BNE

ERRHRD

012746
012746
010600
104414
062706
000560

005337

020367
101417

164656

PRINTB

;WHEN NO DATA RECEIVED

502744

17,WTVERM,DTAERM

sPRINT ERROR AND EXIT
TRAP
.WORD

@DTAERA

;COMPARE ROUTINE

000001

S0274%:

BR
cme
BLOS

R3 ,BRFCNT
$0276¢
ERRHRD 17 ,WTVERM,DTAERM

016576

000536
010367
005367
005067
005002
016703
016704
105767
001401
000313

PRINTB #DTAERS,CMOPKT+CP
. CNT

; THAN EXPECTED,

ODTAERS, -(SP)

SP.RO

C$PNTB
04 ,5pP

PRINT
TRAP

17
WTVERM
DTAERM

MOV

CMOPKT
+CP . CNT, -(SP)

TRAP

C$PNTB

MOV
MOV
MOV

000002

502764
:

S0277¢

MOV
0EC

R3,CKDCNT
CKDCNT

$SAVE VERIFICATION LENGTH

CLR
MOV
MOV

R2
DATAWT ,R3
DATARD,R4

s INIT BYTE COUNTER
;1GET WRITE BUFFER ADDRESS.
tGET READ BUFFER ADORESS.

8EQ
SWAB

503004
(R3)

CLR

164564
164562
164671

1578

50300%:

@DTAERS, -(SP)
02, -(SP)
SP.RO

ADD

sAND EXIT ROUTINE

CS$ERHRD

.WORD
. WORD
. WORD

;AN ERROR MESSAGE

163560

000272
000266
000264

MOV

sWHEN REC READ IS LONGER

000021
004430

016746
012746
012746
010600
104414
062706

17
WTVERM
DTAERM

TRAP
ADD

502754

CS$ERMRD

.WORD
.WORD

MOV

104456

016552
016556
016562
016566
016570
016572

016636

CKDATA:: MOV
SUB

R2,

104456

005752

016600
016600
016604
01661C
016614
016616
016622
016626
016632
016634

164724
163662

000021
004430
005752

016546
016550

2782 016552

2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796

14 JUUN 84 18:32

06,SP

CKODFF

tCLEAR @ OF BYTES IN ERROR COUNTER.

T15W8

1 WHEN RUNNING TEST1

SUB

12,

1SWAP FIRST WORD OF WRT BFR

tWHICH CONTAINS THE RECORD COUNT

[ &
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTIONM

14 JUN 84 18:3¢

SEQ 0096

2797

tREPEAT

2798 016636

2799 016636

2800 016642

2801 016644

2802 016650
2803 016652
2604 016660
280S 016662

2806 016664
2807

020267

000234

105767

164650

001011

001406
032767
001002
105723

000001

503014:

000216

105724

S0304$:

2810 016666

50303¢:

2811

2815
2816
2817
2818
2819

016672
016676
016700
016704
016710

503024:

121314

001452

005767
001010
005265
005265

003346
003356

104456
000021
004430
005752
005267
111467

000154
164506

2825 016750

026727

000124

042767
111367
042767

2826 016756
2827 016760
016760
016762
016766
016770
016774
016776
017002
017006
017010
017012

012746
012746
010600
104415
062706

2830 017016

105723

2832 017022

105722

gggg 017016

2831 017020
2833
2834
2835
2836
2837
2838

017024
017030
017032
017036
017042
017044
017044

002017
005046
156716
005046
156716
010246

50303$
#8IT00,CKDCNT
503044
(R3).

177400
164476
177400

2s:
164500
164470

DATA

s+ IF RECORD LENGTH IS ODD THEN:
sLAST BYTE WILL BE IN

: THE UPPER BYTE.

sARE THEY EQUAL
.

TST
BNE
INC
INC
ERRHRD

CKOFF
24
VFYCNT(RS)
MROCNT(RS)
17,WYVERM ,DTAERM

:11 ST TIME THRU?Z
$8R IF NOT.
:INC THE VERIFY ERROR COUNTER,
1 INC THE HARD ERROR COUNT,
;REPORT WRITE/VERIFY ERROR,

INC
MOVB

CKOFF ;LET CKDFF
(R4),TIMEL

8GE
PRINTX

2177400, TIMEL
(R3),TIME2
0177400, TIME2

CKODFF ,011.

18R IF SO.

TRAP
CS$ERMRD
.WORD
17
.WORD
WTVERM
.WORD
DTAERM
:= CKDFF + 01
s INCREMENT 0 OF BYTES IN ERROR.
: SAVE WAS DATA FOR TYPOUT,
: CLEAR GARBAGE.
:SAVE SHOUWLD BE DATA FOR TYPOUT.
:CLEAR GARBAGE
.

:IF ERROR BYTE COUNT IS LESS THAN 11:

503054
@DTAER2,R2,<B,TIME1>,<B,TIME2>;PRINT ACTUAL

& EXPECTED DATA

164442

005226
000004

50305¢4 :

3¢:

105724

(020267
003702
005267
005767
001414

000046

016746

000026

000040
000036

COMPARED:

1 IF BYTE SWAPPING IS ENABLED THEN:

164452

000012

(R3),(R4)

8IC
MOv8
8IC

000013

ALL

s IF THIS IS THE LAST BYTE THEN:

SWBFLG

(R4).

UNTIL

CMP8

8€EQ

000202

016710
016712
016714
016716
2820 016720
2821 016724
2822 016730
2823 016736
2824 016742

8EQ
8I7
BNE
1S78

TST18

2809

2814 016670

R2,CKOCNT
503024

15718

2808 016666

2812 316666
2613 016666

cHe
BNE

{REPEAT

CLR
81s8
CLR
8IS8
MOV
MOV
MOV
MOV
TRAP
ADD

T1S78

(R3).

tUPDATE WRITE BUFFER ADDRESS.

75718

(R2).

tUPDATE BYTE COUNTER.

7578

cHp
BLE
INC
TST
8EQ
PRINTB

(R4).

R2,CKDCNT
503014
CKDCNT
CKOFF
503064
@ODTAERS,CKDFF ,CKDCNT

-(SP)
TIME2,(SP)
-(SP)
TIMEL,(SP)
R2,-(SP)
Q0TAERZ, -(SP)
84, -(SP)
SP,RO
CS$PNTX
e12,SP

$UPDATE READ BUFFER ADDRESS.

{ENO OF DATA COMPARE REPEAT LOOP.

s CKOCNT EQUALS RECORD LENGTH.
+ IF COMPARE ERROR HAS OCCURED THEN:
tPRINT & OF BYTES IN ERROR.
MOV

CKOCNT, -(SP)

(&
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION

2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853

017050
017054
017060
017064
017066
017070

016746
012746
012746
010600
104414
062706

14 UUN-84

18:32

000024
005275
000003

MOV

000010

017074

50306
:

017074

S0277%:

017074
017074

SEQ 0097

50275$:

000207

CKDCNT
;
CKDFF:

017076
017100

ODTAERS, -(5P)

MOV
TRAP
ADD

SP,RO
C$PNTB
@10,5P

RTS

sOTHERWISE,

. WORD

;3@ OF BYTES 70 BE VERIFIED

.WORD

CKDFF, -(SP)

MOV

RETURN,

-1.

10 OF BYTES IN ERROR COUNTER.

SUBROUTINE TO FIND THE FIRST DEVICE IN TH4E TEST SEQUENCE.
INPUTS
oUTPUTS:

REGISTERS:

CALLS:

017102
017106
017110
017116
017120
017124
017126
017126
017134
017136
017136
017140
017140
017146

105067

164414

026527
001003
062705
000771

002604

026527
001001

FIRSTU::

177774

000002

0026C4

177777

CLRB
CLR
S0307$: cHp
BNE
ADD

503104
:

oy o

B8NE

OOCLN

104444
016567
000207

B8R

002604

162726

S50311%:

MOV

RTS

DROPED
sCLR UNIT DROPPED FLAG
RS
;CLR DEVICE POINTER.
DEVTBL(RS), ONINUSE
s WHILE DEVICES ARE NOT IN USE:
503104
02.RS
;LET RS := RS + @02
sPOINT TO NEXT DEVICE.

503074

DEVTBL(RS), #END

S03114

s IF ALL UNITS MAVE BEEN DROPPED THEN:
;00 CLEAN CODE AND TERMINATE PASS.
TRAP

DEVTBL(RS),L$LUN
PC

SUBROUTINE
INPUTS:
OUTPUTS:

:SET UNIT 0 IN

sRETURN WITH

C$OCLN

"HEADER"” FOR ERROR REPORT

1ST DEVICE

IN RS.

TO FIND THE NEXT UNIT IN THE TEST CYCLE.

REGISTERS:

CALLS:

017150
017154
017154
017160
017166
017170
017176

105067

062705
026527
001772
016567
000207

NEXTU:
: CLRB

164346
000002

S0312¢:

002604

177774

002604

162676

DROPED

;CLR UNIT DROPPED FLAG

ADD
cHP
BEQ

02 ,RS
DEVTBL(RS), ONINUSE
S0312¢

;sUPDATE DEVICE TABLE POINTER.
sUNTIL DEVTBL(RS) NE ONINUSE

RTS

s REPEAT

MOV

DEVTBL(RS),LS$LUN

sREPEAT UNTIL THE NEXT DEVICE IS FOUND.

;SET UNIT o IN "MEADER” FOR ERROR REPORT
sRETURN,

SUBROUTINE TO DROP A DEVICE FROM THE

TEST

SEQUENCE.

GLOBAL AREAS

MACRO M1113

2894
2895
2896
2897
2898
2899
2900
2901
2902
2903

2904
2905
2906
2907
2908
2909
2910
2911
2912

ws
o0
s

2889
2890
2891
2892
2893

14 JUN 84 18:32
e

GLOBAL SUBROUTINES SECTION

017200
017204
017210
017214
017220
017222
017222
017226
017230
017234
017240
017242
017242
017250
017254
017260
017264
017266

017266
017270
017272
017274

017276
2915 017300

017300

2918 017304

2919 017304

2920 017310
017312
2922 017316

017322
2925 017322
017322
2926 017324
017330
017332
2930 017336
017336
2932 017344
2933 017350
017350

2936 017352
017360
2938 017362
2939 017366

005265
016704
042704

016503
005002
020227
001405
012723

062702

000377
002544

S0313¢:

000020

177777
000002

002340
173424
173454
157400

5EQ 0098

INPUTS;
OUTPUTS:

REGISTERS:

CALLS:

MOVMSG,

PRXST,

002514

503144

FTLCNT(RS)
s INCREMENT THE FATAL ERROR COUNT,
MOV
MSGPKT+MS.XS3,R4
;GET UDIAG ERROR CODE FROM XSTAT3,
9377,R4
8IC
MOV
MSGPKA(RS),R3
tADR OF THIS UNIT'S MSG PACKET,
CLR
R
iLET R2 := 00
sCLR COUNTER.
tWHILE R2 NE #MSGCNT 00
sWHILE THERE ARE MORE LOCATIONS:
R2, OMSGCNT
cHP
8EQ
503144
MOV
0-1,(R3).
s INIT THE MSG PACKET WITH ALL 1 S
ADD
e2,R2
tLET R2 := R2 + @2
s UPDATE COUNTER.
BR

MOV

JSR

JSR
cHp
BNE
ERROF

104455

503134

OGSCPK ,8TSDB(RS

s INITIATE A GET STATUS COMMAND.

PC,MOVMSG
R4, 0X3.RNY
503154
16 ,RNYM,STAERM

sMOVE MSG PACKET TO COMMON AREA.
1IF WE HAVE A CAPSTAN RUNAWAY THEN:

PC,UWSSR

000020
004753
006120

000402
004767

000106

105767

164155

105267

164204
176244

001404

004767

50315¢:
503164
:

016767
016700

003326

DROPUA:

003326
164172
164164

000044

104451
026527
001410
105767

001005

503204:

tWAIT A WHILE FOR SSR=1

sREPORT CAPSTAN RUNAWAY WITH TACH CNT.
TRAP
.WORD

;ELSE-IF NOT A RUNNAWAY:

.WORD
.WORD

C4ERDF
16

RNYM
STAERM

503164

JSR

PC,PRXST

;PRINT EXTENDED STATUS REGISTERS.

15718

RECLOG

:IF THE RECORD HAS BEEN LOGGED THEN:

8EQ
INCB
JSR
S0317¢:

104424
005765
001402
005365

LOG

DROPU:: INC

003366
163160

000770

012775
004767
004767
020427
001005

S0317%
DROPED
PC.LOG

DORPT
TST

BEQ
OeC
MOV
MOV
9 0V

:SET UNIT DROPPED FLAG.
;:LOG DATA BYTES + RD/WR ERRORS.
:PRINT PERFORMANCE REPORT

PASCNT(RS)

503204
PASCNT(RS)
TSNP ,DROPN
TSNP ,RO
RO

TRAP
:IF PASCNT(RS) NE 90 THEN

;LET PASCNT(RS)

:= PASCNT(RS)

C$DRPT

1SAVE @ OF UNIT TO BE OROPPED.
1RO=LOGICAL DEVICE NUMBER
;OROP THE UNIT
TRAP

C$000UV

;EXEC BGNDU-ENDD' CODE IF IDU = O
002604

162625

177774

CHP
8EQ

TST8
BNE

DEVTBL(RS), &NINUSE
503214
IREC
503224

tIF UNIT NOT OROPPED
1 IF RECOVERY

IS ENABLED

THEN:

18
GLOBAL AREAS

MACRO M1113

GLOBAL SUBROUTINES SECTION
2940 017370
2941 017372
2942 017374

2943 017376
2944
2945 01740¢

2946
2947
2948
2949
2950
2951
2952

000240
000240
000240

105267

18:32
NOP
NOP
NOP
INCB

164124

000207

017410

000000

105267

164114

50321%:
ORORTN:

DROPN:

START FLAG TO ENABLE REWIND,

INCB

DROPED

$sSET UNIT DROPPED FLAG.

RTS

sRETURN,

. WORD

;0 OF UNIT

T0 BE DROPPED

TO PRINT EXTENDED STATUS REGISTERS.

CALLS:

005597
000001

017432
017436
017442
017446
017452
017456
017462
017466
017470
017472
2961 017476

016746
016746
016746
016746
016746
012746
012746
010600
104415
062706
000207

162734
162726
162720
162712
162704
006753

PRXST::

PRINTX OGETSTM

MOV
MOV
MOV
PRINTX

000016

OGETSTM, -(SP)
01,-(SP)
SP.RO

TRAP

C$PNTX

ADD

#4,SP

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MSGPKT+MS.
XS4, -(SP
MSGPKT
+MS . XS3, -(SP)
MSGPKT
+MS. XS2, -(SP)
MSGPKT
+MS . XS1,-(SP)
MSGPKT
+MS . XSO, -(SP)
OSTAERS, -(SP)
06, -(SP)

@STAERS,MSGPKT «MS . XSO ,MSGPKT +MS, XS1 ,MSGPKT +MS . XS2,MSGPKT +MS . XS3,MSGPKT +MS . XS

MOV
TRAP
ADD

RTS PC

2963

SP.RO
CSPNTX
0.6,SP

SUBROUTINE TO HALT AFTER EACH COMMAND.
INPUTS:
OUTPUTS:
REGISTERS:
R3, R4
CALLS:

2965

2967

2975
2976
2977
2978
2979

sSET

REGISTERS:

012746
012746
010600
104415
062706

2974

STAFLG

SUBROUTINE
INPUTS:
QUTPUTS:

017412
017416
017422
017424
017426
017432

2969
2970
2971
2972
2973

SEQ 0099

503224
:

017402
017402
017406

2953
2954
2955
2956
2957
2958
2959 017412

14 JUN 84

017500
017504
017506
017512
017514
017514
017516
017516
017520
017524
017530
017534
017540

105767
001430
105767
001023

162502

164017

: ;
CKHAE

15718

HAE;IFB HAE NE 00 THEN

T7S78

MISCFG

8eEQ
BNE

104450

103023

016704
004767
112367

112367
111367

163674
17146
164552
164547
164544

MOV

MOvVB
MOvV8
MOVB

503234
503244

:IF HALT FLAG IS SET:

: IFB MISCFG EQ €0 THEN

MANUAL

+ IS MANUAL

BNCOMPLETE CKHRTN

iBR IF NOT.

CMOWRD , R4
JSR PC,GCMDA

(R3)+ ,HALTM
(R3)+,HALTM.1
(R3),HALTM.2

;
INTERVENTION ALLOWED?
TRAP
C$MANI

CKHRTN
8CC
tLET R4 := CMOWRD
: COMMAND WORD.
tFETCH ADR OF CMD ASCII.

tMOVE CMD ASCII
tLET HALTM.1 :B= (R3).
1 INTO MESSAGE.

MACRO M1113
GLOBAL AREAS
GLOBAL SUBROUTINES SECTION

2980 017544
017544
017546
017550
017552
017554
017556
017560
2981 017560
2982
2983 017560
017562
2985 017562
2986
2987 017566
2988
2989 017566
017566
2991

14 JUN-84

18:32

SEQ 0100

GMANIL HALTM,TIMELl,1,YES

sHALT

WAIT

FOR

AN OEPRATOR
TRAP

104443

000404
003436
000130
004306
000001

105067

BR
.WORD
.WORD
. WORD
.WORD

100004
:
10000¢:

000402

50324¢:

163743

INPUT,

503254

CLRB

MISCFG

RTS
.EVEN

sLET MISCFG

:8= o0

CS$GMAN
100004

TIME]L
T4CO0E
HALTM
1

50325%:
50323%:
CKHRTN:

000207

s RETURN

ENOMOD

2993 017570
2994
2995

.TITLE MISCELLANEQOUS SECTIONS
.SBTTL
REPORT CODING SECTION

2996

2997
2998

: THE REPORT CODING SECTION CONTAINS THE

:
017570
Q17570
017570
017574
017600
017600
3010 017606
3011 017610
017610
017614
017620
017624
017630
017634
017636
017640
3012 017644
017644
017650
017654
017660
017664
017670
017674
017676

010567
004767

163656
177302

026527
001562

002604

016546
016546
016546
012746
012746
010600
104416
062706

003376
003326

016546
016546
016546
016546
012746
012746
€10600
104416

002626
002636
002646
002656
020507
000005

"PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS.

LS$RPT::

177777

50326%:

BGNRPT

MOV

JSR

PC,.FIRSTU

;WHILE DEVTBL(RS) NE O6END DO
cHe
OEVTBL(RS),
6END
503274
BEQ
PRINTS

002604
020432

000012

RS ,RSSAVE

PRINTS

s SAVE CURRENT DEVICE POINTER.

;FIND THE FIRST UNIT.

sWHILE THERE ARE MORE DEVICES:

ORPT1A,DEVTBL(RS),PASCNT(RS),RECCNT(RS)

MOV
MOV
MOV
MOV

RECCNT(RS), -(SP)
PASCNT(RS), -(SP)
DEVTBL(RS), -(SP)
ORPT1A, -(SP)

MOV

SP,.RO

MOV
MOV
MOV
MOV
MOV
MOV

WRBC(RS), -(SF)
WRBC+10(RS), -(SP)
WRBC+20(RS5), -(SP)
WRBC+30(R5), -(SP)
ORPT18, -(SP)
05,-(SP)

TRAP
CSPNTS
012,SP
ADD
ORPT1B,WRBC+30(RS),WRBC+20(RS,WRBC+10(RS),WRBC(RS)

MOV
TRAP

SP,RO
CS$PNTS

MISCELLANEQUS SECTIONS
REPORT CODING SECTION

017700

3013 017704
017704
017710
017714
017720
017724
017730
017734
017736
017740
3014 017744
017744
017750
017754
017760
017764
017770
017774
017776
020000
3015 020004
020004
020010
020014
020020
020024
020030
020032

020034

3016 020040
020040
020044
020050
020054
020060
020064
020066
020070
3017 020074
3018 020100
3019 020102
3020
3021 020106
3022 020106
020106
020112
020116
020122
020126
020132
020136
020140
020142
3023 020146
3024
3025 020152

MACRO M1113

062706

000014

016546
016546
016546
016546
012746
012746

002666
002676
002706
002716
020560
000005

104416
062706

000014

010600

016546
016546
016546
016546
012746
012746
010600
104416
062706
016546
016546
016546
012746
012746
010600
104416
062706
016546
016546
016546
012746
012746
010600
104416
062706
105767
001402
004767

14-JUN-84 18:32

000612

SEQ 0101
ADD

014,SP

MOV
MOV
MOV

RRBC(RS), -(SP)
RRBC+10(RS), -(SP)
RRBC+20(RS), -(SP)

MOV

MRPT1C, -(SP)

MRPT1C,RRBC+30(RS),RRBC+20(RS)
+ 10(RS ) ,RRBC(RS)
,RRBC

PRINTS

MOov

MOV
TRAP

ADO

PRINTS

002726
002736
002746
002756
020631
000005
000014

PRINTS

003026

ORPT1F ,WRREC(RS),RRREC(RS),RFREC(RS)

0027€6
020735

000012

PRINTS

ORPT1G, WRUNR(RS ) ,RRUNR(RS) ,RFUNR(RS)

003036
003016
002776
021006
000004

75718

8EQ

000056

BADTSW

503304
JSR PC,BTRPT

PRINTS

;:IFB BADTSW NE #0 THEN

:GO PRINT BAD TAPE SPOTS WHEN

RFBC(RS), -(SP)
RFBC+10(RS5), -(SP)
RFBC+20(R5), -(SP)
RFBC+30(R5), -(SP)
#RPT10, -(SP)
5, -(SP)

ADD

#14,5P

RFREC(RS), -(SP)
RRREC(RS), -(SP)
WRREC(RS), -(SP)
ORPT1F, -(SP)

MOV
MOV

RFUNR(RS), -(SP)
RRUNR(RS), -(SP)

MOV
MOV
MOV
TRAP

ORPT1G, -(SP)
04, -(SP)
SP,RO
C$PNTS

ADD
:

MOV
MOV

MOV

TRAP
ADD

B8R

WRUIR(RS), -(SP)

e12,5P

ENABLED

MOV
MOV
MOV

JSR

SP,RO
CSPNTS

MOV
MOV
MOV
MOV

MOV

003366
003356
003336
021203
000005

176776

014,5SP

@RPT1I,SCCNT(RS),HRDCNT(RS) ,FTLCNT(RS),VFYCNT(RS)

003346

000014

SP,RO
CS$PNTS

MOV
MOV
MOV
MOV
MOV
MOV

MOV

000012
162110

RRBC+30(RS), -(SP)

ORPT10,RFBC+30(RS),RFBC+20(RS),RFBC+10(RS5),RFBC(RS)

MOV
TRAP

50330¢:

016546
016546
016546
016546
012746
012746
010600
104416
062706
004767

PC,NEXTU

503264

;FIND THE NEXT UNIT.

VFYCNT(RS), -(SP)

FTLCNT(RS), -(SP)
HROCNT(RS), -(SP)
SCCNT(RS), -(SP)
ORPTLI, -(SP)
95, -(SP)

SP,.RO

CS$PNTS
014 ,SP

L &
MISCELLANEOUS SECTIONS
REPORT CODING SECTION
3026 020154
3027 020154
3028 020160
020160
020162
3029
3030
3031
3032
3033
3034
3035 020164
020164
020170
020174
020200
020202
020204
3036 020210
3037 020216
3038 020222
3039 020224
020224
020226
020232

020236

020240
020242
3040 020246

3041 020250
3043
3044
3045
3046
3047

020252
020256
020260

020264
020264
020264
020270
020274
020276
020300
020304
020310
020314
020316
020316
020316
020320
020324
020330
020332
020334
3053 020340

020342
3055 020346
020352
3057 020354

016705

MACRO M1113

14 JUN-84
50327
:

163272

18:32

SEQ 0102

MOV

RSSAVE ,RS

;RESTORE

RPT

EXIT

CURRENT

DEVICE

000167
001130

POINTER,

. WORD
. WORD

JEUMP
L10010 2

SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS

WRITE RETRIES:

CUMULATIVE

COUNT

BAD TAPE SPOTS: COUNT PER TAPE PASS ON_Y, NOT CUMULATIVE.
COUNT OF RECOVERABLE WRITE FRRORS EXC_UDES BAD TAPE SPOTS.

016546
012746
012746
010600
104416
062706

016567
017703
006203
010346
012746
012746
010600
104416
062706
005703
001457
020327
101402
012703

BTRPT:. PRINTS

003316
021057
000002
000006
002616

163270

062704
005002

011446
012746
012746
010600
104416

062706
005202
062704
020227
001014

;PRINT

GLOBAL

WRITE

RETRY

COUNT

MOV
MOV
MOV
MOV

WRTYCT(RS), -(SP)
ORPT1E, -(SP)
@2, -(SP)
SP,RO

ADD

06,SP

TrRAP

163274

MOV
:g;

BTADDR(RS),BTPT
ggTPT.RS

PRINTS

ORPT1J.R3

000006

TST

:PRINT

BEQ
crP
8LOS

000024

& OF

BAD

TAPE

SPOTS

;PRINT RECORD #

50331
R3,020.
503324

MOV

000024

:IF R3 HI 420.

020.,R3

PRINTS

IF BAD

THEN

;20 BAD SPOTS

OCRLFSP

005744
000001

MOV
MOV

R3,-(SP)
ORPT1Y, -(SP)

MOV

SP,.RO

TRAP
C4¢PNTS
ADD
96, SP
SPOTS DETECTED

:
IS

THE LIMIT

MOV

MOV
MOV
TRAP

163202

000002

50333%$:

MOV
ADD

BTPT,R4
02,.R4

CLR

;REPEAT
PRINTS

C$PNTS

+QTPT IS BOTH THE BAD TAPE SPOT COUNTER
:AND THE LOGGING INOEX

021107
000002

503324
:
012746
012746
010600
104416
062706
016704

ORPTIE,WRTYCT(RSY

:LET R4

:= BTPT

ADD
FETCH A BAD SPOT ID

;1R2 = PRINT COUNT PER LINE:
;
;PRINT

MRPTIK,(RA)

A BAD SPOT

MOV

OCRLFSP, -(SP)

a1, -(SP)
SP,RO
CS$PNTS
04 ,SP

10 MAX

(R4),-(SP)

021174
000002

MOV
MOV

ORPTIK, -(SP)
02, -(SP)

000006

TRAP
ADD

CS$PNTS
26,5P

000002
000012

MOV

INC

sLET R2

cHe
BNE

R2,#10.
50334

:IF R2 EQ 010.

ADD

#2.R4

PRINTS OCRLFSP

tLET R4

:= R2
:=

+
+

THEN

;;COUNT PRINTS

SP,RO

;NEXT

;

:GO TO NEXT PRINT LINE PAST 10 PRINTS

MISCELLANEOQUS SECTIONS
REPORT COOING SECTION
020354
020360
020364
020366
020370
3058 020374
3059 020400
3060
3061 020404
020404
020406
3063
3065 020410
020410
020410
020414
020420
020422
020424
3067 020430
3068
020432
020507
020560
020631
3074 020701
307S 020735
3076 021006
3077 021057
3073 021107
3079 021174
021203
3081 021257
3082
3083
3070
3071
3072
3073

3085 021314
021314
021314

012746
012746
010600
104416
062706

162703
162702

14 JUN-84

18:32

SEQ 0103

005744
000001

000004
000012

suB
SuB

000012
503344

020203
001343
S0331$:

cMp

R2.R3

BNE

503333

PRINTS

O4CRLF

005741
000001

045
045
045
045
045
045
045
045
045
045
045
045

116
101
101
101

045
102
102
102

RPT1A:
RPT18:
RPTIC:
RPT1D:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCII

101
101

122
125

116
104
101
123

045
065

RPT1F:
RPT1G:
RPT1E:
RPT1J:
RPT1K:
RPT1I:

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCII

101

iLET R3
;LET R2

:= R3
:= R2

010.
410,

OCRLFSP, -(SP)
a1, (SP)
SP,RO
C$PNTS
4 ,5P

; ADJUST BAD SPOT COUNT
; ADJUST PRINT COUNT

;UNTIL R2 EQ R3

sLIMIT:

BAD

127

123
063

.NLIST

.ASCIZ

.ASCIZ
LLIST

(SP)

e1,-(SP)

MOV

SP,RO
CS$PNTS

TRAP
ADO

RS PC

SPOTS

ACRLF,

MOV

000004

123

010. ,R3
010. ,R2

MOV
MOV
MOV
TRAP
ADD

012746
012746
010600
104416
062706
000207

@4 ,5P

BEX

/#NwNSAUNIT sD1%S3#APASS :sD5#S3SARECORD : sDS%N/
/#ABYTES WRITTEN
®0D3sA s8Z3sA 8Z38A, s23%N/
/#ABYTES READ REV sD3ISA 6Z3sA 8Z36A, 82 38N/
/#ABYTES READ FWD #D3IsA,sZ3%A
8Z3%A, 8Z3%N/

/#S238AWRT#SA#ARDRY
SASARDF SN/

/#ARECOVERABLE ERRORS
58N/
058S
$054S52828D
/s#AUNRECOVERABLE ERRORS #0S%S2#05%S2#DS%N/
/#AWRITE RETRIES#S8sDSEN/
/wNsD2#A BAD SPOTS THIS TAPE PASS PRECEDING RECORD @:/
/#D5%S1/
~#ASPEC CONDwS3#AHARDSS3#AFATAL%S3%ACOMPARESN
"

/%S3%05#S53805%S3805%S38DSHNSEN/
BEX

.EVEN

104425

3087

L10010:
.SBTTL

3089

ENDRPT
TRAP

CSRPT

LOAD DEVICE PROTEC TION TABLE

:TABLE FOR SUPERVISOR TD IDENTIFY THE P-TBL FOR THE LOAD DEV

3091
3092
3097
3094 021316
021316
0c1316
3097 021320
021322
LLER
021324
3100
3101

MACRO M1113

: THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV

L$PROT::

BGNPROT

;P-TBL OFFSET OF TSD8
;P-TBL OFFSET OF MASS BUS UNIT o

.WORD 0
.WORD
1
.WORD -1

000000
177777

177777

;P-TBL

ENOPROT
.SBTTL

INITIALIZE

SECTION

OFFSET

DRTVE

-1

NONE,

= NOT A MASS BUS DE

THREE DRIVES PER CONTRO

MISCELLANEOUS SECTIONS

INITIALIZE SECYION
s102
3103
3104
3105
3106
3107
5108 021324
021324
3109
3110 021324
35111 021332
35112 021334
021334
021336
021340

021342
5113 021344
021344
021350
021352
021356
021360
021364
021366
021372
3114 021374

3115

3116 021376
3117
3118 021376
3119 021402
3120 021404
3121 021410
3122 021412
3123 021412
3124 021416
3125 021420
3126 021424
3127
3128 021430
3129 021432
3130
3131 021432
3132
3133 021432
3134 021436
3135 021440
3136
3137 021446
3138
3139 021454
3140 021454
021454
021460
3141 021462
021462
3142 021464

MACRO TMM1113

UUN 84

18:32

SEQ 0104

;00

:
;:

THE INITIALIZE SECTION CONTAINS THE COOING THAT
AT THE BEGINNING OF EACH PASS.

LSINIT:
.

032727
001421

000003

002330

INIT10:

IS PERFORMED

BGNINIT

BIT
BEQ

oBITO'8IT1, 2CMDPKT
S033Ss
ERRSF 1,CMOPKM

;IF CMD PACKET
;PRINT

IS NOT ON MOOULO 4 BOUNDRY:

ERROR MSG,

104454

000001
004346
000000

012727
000000
016727
000000
005367
001375
005367
001367
000753

TRAP

CSERSF

. WORD
. WORD
. WORD

1
CMOPKM
0

DELAY 200.

;GO TO SUPERVISOR,

B8R

INIT10

;

7518
BEQ
CLR8

CLRFLG
S03%6¢
CLRFLG

;IF CLR COUNTERS FLAG SET:

000310

160540
177772

177756

WAIT 2 SECONDS.
MOV
0200. ,.(PC). WORD
0
MOV
L$OLY,(PC)>
. WORD
(]
DEC
-6(PC)
. -4
BNE
DEC
-22(#C)
BNE
.-20

S0335¢

105767

001413
105067
005002

020227
001405
005062
062702

160602

160574
50337%:

000550

002626
000002

000770

503404
:

;LET R2

ADD

02,R2

50337¢

1578
BEQ

RRANV
503414

#RANBC , RANB

;sRESET RANDOM BASE ¢.

MOV

ORANSC , RANS

;RESET

READEF

#OEF .START

;WHILE R2 NE OCNTLEN DO
cp
R2,#CNTLEN
8EQ
503404
CLR
WRBC(R2)

:= 00

:INIT CLR FLRG.

CLR

;LET R2

;CLR ALL STATISTICAL COUNTERS.

503364:

105767
001406
012767

160547
153624

161764

012767

032561

161760

MOV

50341
:

012700
104447
103057
105267

:IF RESET RANDOM VARIABLE FLAG IS SET

;READ

RANDOM

START

SAVE

LOCATION.

COMMAND EVENT

000040

BNCOMPLETE

162036

INCB

STAFLG

INIT1S

;BRANCH IF NOT
;SET

START

THEN:

STARTING.

COMMAND FLAG.

FLAG.

MOV
TRAP

OEF .START
,RO
CS$REFG

B8CC

INIT1S

SN
MISCELLANEOUS SECTIONS

INITIALIZE SECTION
3143 021470
3144 021474
3145 021474
3146 021502
3147 021506
3148 021510
3149 021512
3150 021520
3151 021522
021522
021526
021532
021534
021536
3152 021542

3153

021542
021546
021550
021554
021556
021562
021564
021570
021572
021572
021574
021600
021602
021602
021606
021612
021616
021620

3154
3155
3156
3157
3158
3159
3160
3161
3162
3163 021622
021622
021626
3164 021630
021630
3165 021632

3166 021636
3167
3168 021642
021642

3169
3170
3171
3172

021644
021650
021652
021656
021660
021660

021664
3173 021666
3174 021670
3175 021674
3176 021676
021676
021702

MACRO M111¢%

012705

000006

012765
162705
005705
001371
022767
001425

177774

012746
012746

010600
104417
062706

012727
000000
016727
000000
005367
001375
005367
001367

000002

000001

JUNTIL

MOV
SUB

:»

ONINUSE ,DEVTBL(RS)
o RS
iLET RS :+ RS

TST

BNE

50342

PRINTF

@AUDRUN

RS EQ

s INITIATE UNIT NUMBER TABLE
1BY STORING NOT
07

IN USE

IN EACH LOCATION.

1 ,LIUNTT
S0344¢

DELAY

000025

sONLY ONE UNIT ALLOWED
§O
THE MAN

sTELL

MOV

sWATY

160342
177772

DOCLN
S0344:

MOV

S0343%:

sREPEAT

161670
161665
INIT16:

161666

161651

012700
104447
103014
105767
001010

000035

012700
104447

000037

161632

sLET RS

3UB
MOV

02 .RS
;LET RS
RS,DEVTBL(RS)

ASR
1S7

INIT1S:

LSUNIT RS

ASL

BNE
000034

1ABORT

READEF

DEVTBL(RS)
RS
tUNTIL

50343

:= RS

1STORE ALL UNIT
-

tLET DEVTBL(RS)

SP,RO

ADD

04, SP

MOV
.MORD
MOV
.WORD
DEC

025,(PC).
O
LSOLY (PC).
O
-6(PC)

DEC
BNE

-22(PC)
.-20

.-4

CSOCLN

sNUMBERS IN DEVTBL.

:= RS SHIFT

RS EQ #0

#Erf .PWR

tHAS

THERE

A POMER FAILURE?

MOV

O€EF .PWR RO

TRAP

CSREFG

8CC

INIT16

BNCOMPLETE INIT16

:BRANCH IF NOT,

INCB
INCB

STAFLG
PURFLG

s IF SO - SET THE START FLAG.
sIF SO - SET THE POMER FAIL FLAG.

RFLAGS

OPFLAG

tREAD AND STORE FLAGS SET BY OPERATOR

CLR

1578

BNE

8ccC

15718
BNE

PURFLG

tLET RS

503444
READEF #EF .NEW

READEF

TRAP
MOV

CSRFLA
RO, OPFLAG

:es 80
sCLEAR EVENT FLAG
;:IF POMER FAIL HAS NOT OCCURRED TMEN:

1tUPDATE PASS COUNT WHEN

MOV

TRAP

503454

STAFLG
503464

(SP.

CIPNTF

TRAP

:« LSUNIT SMIFT

OAUDRUN,

TRAP

BNE

177756

105767

001020

iLET RS

cw
B8EQ

160272

000004

000002
002604
002604

104421
010067
005003

MOV
6 ,.RS
;REPEAY

MOV

162705
010565
006265

103004
105267
105267

SEQ 010%

000001

160212

012700
104447

002604

503428:

18:832

005146

104444
016705
006305

005705
001370

14 JUN 84

OEF
. NEMW RO

CSREFG

1SUPERVISOR IS IN NEW PASS
tAND OIAG WAS NEITHER STARTED
#EF .RES

1 NOR

MOV

TRAP

OEF .RES,RO

CSREFG

INITIALIZE SECTION
3177

3178
3179
3180
3181
3182

3183
3184
3185
3186
3187
3188
3189
3190
3191

021704
021706
021710
021712

021712

MACRO M111%

000401

S03474:

005203

000401

503464
:

005203

S0351¢:

3192 021720
3193

503454:

021720
021720
021724
021726
021726
021734
021736
021740
021742
021744
021744
3204 021746
3205 021750
3206 021754
3207 021760
3208 021766
3209 021772
3210 021776
3211 022002

3212
3213
3214

3215

3216
3217
3218
3219

3221
3222
3223
3224
3225
3226

SEQ 010%

503474

coM

B8R

503504

INC

B8R

503514

INC

sIFCOND CC THEN
(LET RS

004767
005002

175156

026527

002604

001456
005202
010500
006200

104442
103044

011065

012065
062765
012065
011065
011067

S0344%:

177777

JSR

CLR

002524

161532

$1SET 1ST PASS IF NEW PASS AND

1STARTING

PC.FIRSTUY
R2

iILET R2 :» 80

s INIT DEVICE POINTER,

;INIT DEVICE COUNTER.

S0353¢

R2
RS,RO

tLET R2
tLET RO

:- P2 + 0}
:= RS SHIFT

ASR

8CC
MOV
MOV
ADD

503544
;IFCOND CS THEN
(RO),TSOB(RS)
1SAVE T3DB ADORESS.
(RO)+,TSSR(RS)
;SAVE TSSR ADDRESS.
02,TSSR(RS)

MOV
MOV
MOV
SETVEC

003532

1ST PASS IF NEW PASS AND

sRESTARTING

;WHILE DEVTBL(RS) NE #€END DO
cHp
OEVTBL(RS),
#END

B8EQ

002514

;DO IT

1OR ON POMER FAIL

GPHARD

002524
000002

sRESTARTED

100 NOT UPDATE IT ON CONTINUE

INC
MOV

RO.RO

;1GET HMARDWARE P TABLE FROM SUPER.
TRAP

C$GPHRD

(RO)+,TSVCT(RS)
1 SAVE INTERRUPT VECTOR ADDRESS.
(RO),TSUNT(RS)
$SAVE NUMBER OF DRIVE
(RO), TSNP
$SAVE FOR PRINT OQUT'S
TSVCT(RS),TSSINT(RS),0INTPRI

000003

MOV
MOV
MOV
MOV

®INTPRI, -(SP)
TSSINT(RS), -(SP)
TSVCT(RS),-(SP)
o3, -(SP)

000010

ADD

€10,5P

012746
016546
016546
012746
104437
062706

000340
002554

005065
005703
001410
005703
002003
005265

003472

TRAP

CLR

TST

INC

PASCNT(RS)

B8R

$0357¢

MOV

#1 ,PASCNT(RS)

B8GE

003326

000001

003326

S03564:
S0357%:
503554:

503554

503564

CS$SVEC

1SET UP INTERUPT PROCESSING CONDITIONS.

INTFLG(RS)

8EQ

000403

012765

S03528:

:= COM R3S

3sSET

S0350s:

021720

3194
3195
3196
3197
3198
3199
3200
3201
3202
3203

18:32

8Cs

103402

005103

021714
021714
021716
021716

JUN 84

——
e

MISCELLANEOUS SECTIONS

1CLEAR INTERRUPT FLAGS.

1ACTUAL PASSCOUNT UPDATE PER R3
;IF R3 LT

00 THEN

jLET PASCNT(RS)

:= PASCNT(RS)

tLET PASCNT(RS)

:s 01

MISCELLANEOUS SECTIONS

INITIALIZE SECTION
3227
3228 022060
3229 022060
3230 022064
3231
022070
022072

022072
022074
022076
022076
022102
022106
022110
022112

35238 022116
022116
022122
022124
022130
022132
022136
022140
022144
3239 022146
022146
022150
022150
31241
3242 022152
3243
3245 022152
022152
022156
3246 022160
3247 022164
3248 022166
3249 022174
022176
3251 022202
022202
3253 022210
022212
3255 022216
022216
022222
022226
022232
022236
022240
3256
3257 022244
3258 022252
3259 022254
3260

005065
004767

MACRO M1113

14-JUN-84

503544:

003376
17€ 060

50353%:

005702
001026

005114
000001

104417
062706

000004

012727
000000
016727
000000
005367
001375
005367

001367

SEQ 0107

CLR

RECCNT(RS)

B8R

503524

TST

BNE

50360%

PRINTF

012746
012746

010600

18:32

JSR

000716

PC,NEXTU

O0AUDRPM

$tCLEAR RECORD COUNT

100 IT FOR ALL DEVICES.

1 IF

THERE

ARE NO UNITS:

1PRINT ALL ‘UNITS DROPPED,

MOV
MOV
MOV

DELAY 200.

000310

TRAP

CIPNTF

ADD

04, 5P

MOV
.WORD

0200.,(PC).
O

.MORD
DEC
BNE
0€C
BNE

O
-6(PC)
.-4
-22(PC)
. 20

1GO TO SUPERVISOR, WAIT 2 SECONDS.

157766

MOV

177772

177756
BREAK

104422
104444

@AUDRPHM, -(SP)
01,-(SP)
SP,RO

:GO TO SUPERVISOR,

CHECK TTy,

OOCLN

100 CLEAN CODE

SETPRI #PRIOO

;LOWER CPU PRIORITY T0 O

L$OLY,(PC).

TRAP

C$BRK

TRAP

C$DCLN

+ ABORT PASS.

503604:

012700
104441
105767
001033
032767
001027
004767

000000

1578

160027
000020

161342

174700

026527
001421

002604

105067

161312

012746
012746
012746
012746
104437
062706

000340
023730
000004
000003

012767
000404
000167

000001

177777

503624
:

IREC

BNE
817
BNE
JSR

18
®ADR
, OPFLAG
14
PC.FIRSTU

cre
8EQ
CLR8
SETVEC

DEVTBL(RS),
0END
1¢
TRAPDA
04,0TRAP4,#INTPRI

TRAP
IS ENABLED

161164
1$:

MOV
BR

JMP

o1,TIMEL
503654

503634

#PRI100,RO

C$SPRI

tAND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRSTY
sWHILE THERE ARE MORE DEVICES:
1CLEAR TRAP FLAG
1SET VECTOR 4,PRIORTY 86

MOV
MOV
MOV
MOV

TRAP

000010

000622

s IF ERROR RECOVERY

MOV

ADD
1START 3.5 MINUTE COUNTER

tINCR TIMEL FROM 01 TO #25 By o1

OINTPRI, -(SP)
OTRAPS, -(SP)
04, -(SP)

CsSveC

#10,SP

MISCELLANEOUS SECTIONS

INITIALIZE SECTION
3261
3262
3263
3264
3265
3266

022260
022260

022264

022264
022272
022274
3267 022302
022302
022306
022310
022314
022316
022322
022324
022330
022332
022332
022336
3269 022340
3270 022344
3271 022346
3272 022352
022352
022356
022362
022366
022370
022372
3273 022376
3274 022404
3275 022406
3276 022410
022410

3277
3278 022412
022412
3279
022414
3281 022420
022420
022424
022430
022434
022440
022442
3282 022446
3283 022452
022452
022456
022460
022464
022466
022472
022474

022500

3284 022502
022502

MACRO M1113

14 JUUN-84 18:32
S0365
4:

005267

161152

026727
003134
012775

161146

000025

002340

002514

012727
000000
016727
000000
005367
001375
005367
001367

000025

012700
104436
105767
001423

000004

S03654:

MOV

CLRVEC
TS78

002604

8EQ
INC

PRINTF

175004

MOV

MOV
ASR

000U

104451

TIMEL, @25

oGSCPK,8TSDB(RS)
25

TRAPD4

FTLCNT(RS)

ONODEV, TSSR(RS)

DEVTBL(RS),DROPN

RS,RO
RO
RO

;AND GET UNITS STATUS

sWAIT

105067

161110

012746
012746
012746
012746

000340
023730
000004
000003

062706
005775

000010
002524

012727
000000
016727
000000
005367

000025

2$:

CLRB
SETVEC

sCLEAR VECTOR AT 4
;:IFB TRAPD4 NE Q00 THEN

tLET FTLCNTC(RS)

1PRINT ERROR

.WORD
MOV
. WORD

0
L$OLY,(PC)0

MOV
TRAP

04 ,RO
CSsCVvEC

DEC
BNE
DEC
BNE

:= FTLCNT(RS)
MOV
MOV
MOV
MOV

TRAP
ADD

1ST

;DROP THE UNIT

81
TSSR(RS), -(SP)
ONODEV, -(SP)
02, -(SP)
SP,RO
CSPNTF
06,5P

C$000V

TRAP

C$OCLN

TRAPDA4
04 ,0TRAP4
, HINTPR]I

MOV

@INTPRI, -(SP)

MOV
TRAP
ADD

23,-(SP)
C$SVEC
010,SP

;:CLEAR TRAP FLAG

;SET VECTOR 4,PRIORTY a6

8TSSR(RS)
25

;1CHECK FOR ADORESS
s WAIT

MOV

.WORD

DEC

;CLEAR VECTOR AT 4

025,(PC).

177772
177756

OTRAP4, -(SP)

.WORD

MOV

000004

TRAP

157432

CLRVEC

-6(PC)
. 4
-22(PC)
.-20

:SAVE @ OF UNIT TO BE DROPPED.
+RO=LOGICAL DEVICE NUMBER

MOV

DELAY

025,(PC).

MOV

: EXEC BGNOU-ENDDU COOE IF IOV = O
;00 CLEAN EABORT

DOCLN

104444

012700

cMP
BGT

OELAY

161164

002524
005543
000002

00136.

TIMEL

177756

016546
012746
012746
010600

001375
0053+~

INC

177772

003366

104437

SEQ 0108

157602

005265

104417
062706
016567
010500
006200

BNE
DEC
BNE

MOV

, (PC).
LSOLY
-6(PC>

. -4
22(PC)
. 20

04 ,RO

MISCELLANEOUS SECTIONS

INITIALIZE SECTION
3285
3286
3287
3288

022506
022510
022514
022516
022522
022522
022526
022532
022536
022540
022542
022546
022554
022556
022560
022560

104436
105767

001424
095265

016546
012746
012746
010600
104417
062706
016567
010500
006200

MACRO M1113

161014

000006

002604

;IFB TRAPDA NE 00 THEN

165174
002514

012727
000000
016727
000000
005367
001375
005367
0C1367
012775

000025

ERROR

MOV

174634

MOV

DEVTBL(RS),DROPN

RS,RO
RO
RO

$SAVE

0 OF UNIT

;DROP THE UNIT

B8GT

503674

3%:

JSR
MOV
DELAY

PC,SETDEF
R4,8TSDB(RS)

MOV
DELAY

000025

0GSCPK,8TSDB(RS)
25

sAND GET
sWAIT

UNITS

STATUS

000100

002524

S0371%:

000006

TRAP

C$OCLN

MOV
.WORD
MOV
.MORD
0eC

025,(PC)e
O
LS$OLY,(PC).
O
-€(PC)
.-4
-22(PC)
.-20

@TS.SSR,BTSSR(RS)

S03704
OTS.0FL ,8TSSR(RS)
503714
503644

PRINTF OOFLINM, TSNP

BNE
DEC
BNE

.WORD
MOV
.WORD
0eC
BNE
DEC
BNE

177756
BIT
6EQ
8I7
BNE
B8R

MOV

177772

002524

C$000V

157250

000200

IOV

:SET UNIT NUMBER

177756
002514

CSPNTF
06, 5P

TRAP

; EXEC BGNOU-ENDDU CODE IF
;00 CLEAN EABORT

44:

TSSR(RS), -(SP)
ONOOEVY, (SP)
#2,-(5P)
SP,RO

1RO=LOGICAL DEVICE NUMBER

177772

160622
005456
000002

» a1

TRAP
ADD
TO BE DRCPPED.

157306

002340

CsCveC

:=* FTLCNT(RS)

tLET FTLCNT(RS)

sPRINT

TRAP

MOV
MOV
HOV
MOV

DOCLN

004767
010475

022712
022716
022722
022724
022726

FTLCNT(RS)
ONODEV, TSSR(RS)

(0]0.0]V]

022566
022572
022576
022576
022602
022604
022610

016746
012746
012746
010600
104417
062706

INC

ASR

003127

022706
022706
022706

TRAPDA

PRINTF

104451

012727
000000
016727
000000
005367
001375
005367
001367
032775
001420
032775
001001
000457

1ST8

00000¢

022564

022640
022642
022646
022650
022654
022656
022662
022664
022672
022674
022702
022704

SEQ 0109

002524
005543

104444

022634

18:32

BEQ

003366

022562
022562

022612
022616
022620
022624
3301 022626
3302 022634

14 JUN-84

:IF 0TS.SSR SETIN 8TSSR(RS) THEN

925,(PC)e

O
L$OLY,(PC).
O
-6(PC)
.-4
-22(PC)
.-20

s IF 07S.OFL NOTSETIN RTSSR(R5) THEN
$EXIT COUNTER WHEN UNIT ON LINC
;PRINT

UNIT

OFF

LINE

EVERY

MOV
MOV
MOV
MOV

TRAP
ADO

10 SEC
TSNP, -(SP)

Q0FLINM,
02, -(SP)
SP,RO
CSPNTF
06, 5P

(SP)

MISCELLANEOUS SECTIONS

INITIALIZE SECTION
3311
3312
3313
3314
3315
3316

MACRO M1113

14-JUN-84 18:32

3317
3318 022760
3319 022760
022766
3321 022770
3322 022770
3323 022774
3324 022774
023002
3326

000412

S0370$:

016546
012746
012746
01060C
104417
062706

002604
023700
000002

012767
000402

000001

005267

160444

026727
003C16

160440

012727
000000
016727
000000
005367
001375
005367

000144

001367

3327

3330
3331
3333

023066

PRINTF

160452

S0373%:

S50375%:
000013

S0374%:

MOV
BR

01, TIMER
5C374%

INC

TIME2

cHP
8GT
OELAY

TIMEZ2,013
503764
100.

BREAK

000004

160360

503764
:

S03587%:
S03644:

503754

JHP

503664

CLRVEC

cHP

000025

BLE

167646
170360

sALLOW TERMINAL INTERRUPT

TIMEL, @25

S0377¢
JSR PC,MOVMSG
JSR PC,TCC1

S0377¢:

023072

004767

174052

023076

000167

177100

023110

104431

160421

JSR PC,NEXTU

50363¢:
503614
:

;:CLEAR VECTOR AT 4

JHP

503624

1578

PWRFLG

504004
BNE
MEMORY DATAWT

DEVTBL(RS), -(SP)
ONRDYM, -(SP)
02, -(SP)
SP,RO
CS$PNTF
06,5P

TO 013 By 01

'O BE SET ON-LINE

177756

012700
104436
026727
003404
004767
004767

105767

tWAIT FOR UNIT

177772

177214

001026

;INCR TIME2 FROM @01

157100

000167

023102
023102
023102
023106

ONRDYM,DEVTBL(RS)

TRAP
ADD

023072

023110

503734

MOV
MOV
MOV
MOV

104422
000754

3328

SEQ 0110

503724

022732
022732
022734
022734
022734
022740
022744
022750
022752
022754

G9Y

MOV

0100. ,(PC).

.WORD
MOV
.WORD
OEC
BNE
DEC
BNE

O
LSDLY,(PC).
0
-6(PC)
.-4
-22(PC)
.-20

TRAP

C$8PK

MOV

TRAP

sIF OFF LINE FOR 3.5 MINUTES

94 RO

C$CveC

:GET MESSAGE PACKET
iPRINT ERROR AND DROP OFF LINE UNIT
;REPEAT UNTIL ON LINE OR TIMED OUT.
:SET UP FOR NEXT UNIT,

;IFB PWRFLG EQ 90 THEN

tREQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS.
TRAP
CeMEM

MISCELLANEOUS SECTIONS
INITIALIZE SECTION
023112
3350 023116
3351 023124
3352 023132
3353 023140
3354 023142
023142
023146
023152
023154
023156
023162
023162

010067
016767
062767
027727

002011

012746
012746
010600
104417
062706

MACRO M1113

160270
160264
004000
160250

14-JUN-84

8GE

000004

504004:

157024
003526
167464
160323

106
105
105
040
117
115
114
117
122
127
102
123

023210

023213
023216
023221

PRINTF

MEMOM:

122
114
104
116
101
105
115

RO,DATAWT

;WHEN NOT ENOUGH FREE MEMO AVAILABLE

oMEMOM

s WARN QPERATOR

DOCLN

023164

023204
023204
023206

504014

MOV

OMEMOM,
- (SP)

MOV

SP,RO

MOV

S04014:

023174
023200

DATAWT ,DATARD
ODATCNT ,DATARD
SDATAWT , 2DATCNT

1SET RD BFR ADDRFSY

023210
000001

104444

023164
023170

SEQ 0111

MOV
ADD
cHe

160264
160256
004000

023164

023224
023227
023232
023235
023240
023243
023246
023251
023254
3368 023256
023261
023264
023267
023272
023275
023300
023303
023306
3369
3370
3371 023312
023312
023312
3372
3373
3374
3375

18:32

$+AND ABORT PASS

01,

(5P)

TRAP
ADD

CSPNTF
04,5P

TRAP

CSDCULN

$+OIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO

CLR8
MOV
JSR
CLRB

CHGF LG
OENDFLG,R3
PC,CLRERR
PWRFLG

EXIT

INIT

_ASCII

/#AFREE MEMO TOO SMALL FOR RD-WR BFRSEN/

.ASCIZ

/#%ARE-LOAD IN LARGER MEMOSN/

;LET R3

;CLR CHANGE CMD SEQ@ TBL FLAG.
:= O0ENLFLG
sCLEAR ALL FLAGS.
;:CLEAR THE POMER FAIL FLAG.
TRAP

CS$EXIT

.WORD

L10012-.

TRAP

CS$INIT

117
.EVEN

104411

L10012:

.SBTTL
10

ENDINIT

AUTO DROP SECTION

MISCELLANEQUS SECTIONS

MACRO M1113

14 JUN 84 18:32

SEQ 0112

AUTO DROP SECTION

;SECTION EXECUTED AFTER THE INIT CODE WHEN "ADR” FLAG IS SET Br OPERATOR
DROPS NIT IF NO RESPONSE
;:SECTION CHEKS FOR A VALID INTERFACE LOCATION.
:FROM INTERFACE

3376

3377
3378
3379
3380
3381 023314
023314
3382
3383 023314
3384 023320
3385 023320
3386 023326
3387 023330
3388 023334
023334
023340
023344
023350

023354
023356
3389 023362
3390 023366
023366

3391
3392
3393
3394

3395
3396
3397
3398
3399

023372
023374
023400
023402
023406
023406
023412
023416
023422
023424
023426
023432
023440
023442
023444
023444

023446
023450
023450
023456
023462
023470
023472
3407 023500
023502
3409 023506
023506
023512
023516
023522
023524
023526
3410 023532

L$AUTO::
004767

173562

026527
001525
105067

002604

012746
012746
012746
012746

000340
023730
000004
000003

017502

000010
002514

012700

000004

104437
062706

104436
105767

001423
005265
016546

012746

012746
010600
104417
062706
016567
010500
006200

177777

S0402¢:

160174

BGNAUTO
JSR PC,FIRSTU

;WHILE DEVTBL(RS) NE &END DO
cMP
DEVTBL(RS),
#END
BEQ
504034
CLRB
TRAPDA
sLET TRAPD4
SETVEC #4,8TRAP4,SINTPRI

sFIND FIRST UNIT

:B= &0
;SET VECTOR 4

MOV
MOV
MOV
MOV
TRAP
ADD

MOV
8TSDB(RS) ,R2
CLRVEC @4

TST8

160130

BEQ
INC

003366

TRAPDA4

504044
FTLCNT(RS)

;sADDRESS TS0OS INTERFACE
;CLEAR VECTOR AT 4

MOV

TRAP

:IFB TRAPD4A NE 90 1HEN

PRINTF QAUTODM, TSDB(RS)

sLET FTLCNT(RS)

;PRINT ERROR

:= FTLCONT(RS)

#10,5P

24 ,RO
C$CVEC

+ o1

002514
023604

MOV
MOV
MOV
MOV

000006
002604

ADOD

000002

QINTPRI, -(SP)
OTRAP4, -(SP)
84, -(SP)
03,-(SP)
C$SVEC

TRAP

MOV

173750

MOV

ASR

104451
000452
002514

:
S04044

S0405¢

MOV

002524

81T

000100

002524

817
B8EQ
INC

016746
012746
012746
010600
104417
062706
004767

160022
005456
000002

173566

000006

:S.RO

000V

012775
004767
032775
001423
032775
001416
005265

003366

DEVTBL(RS),DROPN

BEQ

;OROP THE UNIT:

OGSCPK,aTSUB(RS)
JSR PC,WSSR

#TS,.SSR,8TSSR(RS)
504064

#7S.0FL ,8TSSR(RS)
S04074
FTLCNT(RS)

PRINTF OOFLINM, TSNP

02, -(SP)
SP,RO

CS$PNTF

06 ,SP

:SAVE @ OF UNIT TO BE DROPPED.

;RO=LOGICAL DEVICE NUMBER

EXEC BGNOU-ENOOU CODE IF IDU = O
TRAP
CsDODV

;SEND GET STATUS COMMANO
sWAIT

1IF O0TS.SSR SETIN 8TSSR(RS) THEN
;IF @TS.OFL SETIN 8TSSR(RS) THEN
sLET FTLCNT(RS)

:= FTLCNT(RS) .+ 81
MOV
MOV

MOV

JSR PC,DROPUA

TSDB(RS),-(SP)
QAUTODM, -(SP)

MOV
TRAP
ADD

TSNP, -(SP)

S0FLINM, -(SP)

e2,-(SP)

SP,.RO
C4PNTF
#6,SP

MISCELLANEQUS SECTIONS
AUTO DROP SECTION

MACRO M1113

14 -JUN-84

3411
3412 023536

3413
3414 023536
3415 023540
3416 023540
3417 023544
023544
023550
023554
023560
023562
023564
3418 023570
3419
023574
3421
3422 023574
3423 023574
3424
3425 023600
023602

3427
3428 023602
023602
023602
3429
3430 023604
023607
023612
023615
023620
023623
023626
3431 023627
023632
023635
023640
023643
023646
023651
023654
023657
023602
023665
022670
023673

023676
3432 023700
023703
023706
023711
023714
023717
023722
023725
3433

18:32

SEQ 0113

50407¢;
000416

005265

003366

016546
012746
012746
010600
104417
062706
004767

002604
023700
000002

50406
:

504104

INC

FTLCNT(RS)

PRINTF

ONRDYM,DEVTBL(RS)

;LET FTLCNT(RS) := FTLCNT(RS)
MOV
MOV

MOV
MOV

000006

JSR PC,DROPUA

173530

DEVTBL(RS), -(SP)
ONRDYM,

SP,.RO

TRAP
ADD

CS$PNTF
06,5P

TRAP

C$AUTO

504104
:
004767

S0405¢%:

173350

000647

50403¢:
L10013:

104461
045

125
124

120
124
117
116
045
116
122
103
102
040

124
105
124
101
126
101
116
045
116
040
061
040
124
104
116

101
123
122

102
040

AUTODM:

JSR PC,NEXTU

B8R

504024

ENDAUTO

.ASCII

/#%ABUS TRAP AT #06%N/

.ASCIZ

/#AINTERFACE BAD OR NOT SET TO ABOVE AD®N/

.ASCIZ

/#AUNIT #D1#A NOT RDY®N/

101
101

045

111

105
101

040

104
122
117
123

040

117

045

125
124
104
101

NRDYM:

117

122
045

.EVEN

(SP)

MISCELLANEOUS SECTIONS
AUTO OROP SECTION
3434
3435
3436
3437
3438
3439 023730
3440 023734

MACRO M1113

<9
14 JUUN 84

000002

TRAP4::

157574

.SBTTL

3443
3444
3445

023772
023772
023774

023776
023776
023776

TRAPD4 ;LET

TRAPD4

:B=

TRAPD4

C(LEANUP CODING SECTION

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED

3446

3460 023770
023772

INCB
RTI

X441
3442

3447
3448
3449
3450 023736
023736
3451
3452 023736
3453 023742
3454 023742
3455 023750
3456 023752
3457 023756
023756
023762
023764

SEQ 0114

DEVICE BUS TRAP HANDLER
OUTPUT: TRAPD4 BYTE
1: TRAPED AT 4
0: NO TRAP

:
;
H
105267

18:32

;

AT THE END OF EACH PASS.

BGNCLN
L$CLEAN::
004767

173140

026527
001410
004767

002604

016500
104436
004767

002534

177777

S04114%:

JSR
PC.FIRSTU
;WHILE DEVTBL(RS) NE #END DO
cHe
DEVTBL(RS),
#END

8eEQ

166722

504124

JSR PC,WSSR
CLRVEC

173160

JSR

000764

504124
:

104432

000002

TSVCT(RS)

PC.NEXTU

B8R

50411

EXIT

CLN

;FIND FIRST UNIT.

sWAIT FOR UNIT READY OR TIMEOUT,
;RELEASE INTERRUPT VECTORS FOR ALL DEV.
MOV
TSVCT(RS),RO
sFIND NEXT UNIT,

.EVEN
L10014:

104412

.SBTTL

TRAP

C$CVEC

TRAP
.WORD

CS$EXIT
L10014-.

TRAP

C$CLEAN

ENOCLN

DROP UNIT SECTION

; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
; TO NO LONGER BE TESTED.
THAT CODE SHALL BE EXECUTED WHEN DOOU
:MACRO IS CALLED WHILE IDU FL 5 IS NOT SET BY OPERATOR
024000
024000

3478
3479
3480
3481

024000
024002
024004
024012
024012

L$0V:
:
010005
006305
012765

177774

016500

002534

BGNDU
:gv

002604

MOV

gg.RS

;RS

ONINUSE ,DEVTBL(RS)

$:SET NOT

CLRVEC TSVCT(RS)

= LOGICAL DEVICE NUMBER X 2.
IN USE FLAG FOR THE DEVICE.

{RELEASE THE INTERRUPT VECTOR.
MOV

TSVCT(RS),RO

MISCELLANEQUS SECTIONS

DROP UNIT SECTION
024016
3482 024020
024020
024024

02403C
024034
024036
024040
3483 024044
024044
024046

MACRO M1il3

14 JUN-84

104436
016746
012746
012746
010600
104417
062706

000006

EXIT

000167
000000

L1001S:

024064

3508
3509 024144
3510
3511 024150
024150
024152
3512
3513
3514
3515 024154
024154
024154

TRAP
MESSAGE
MOV

THE

[[V)

010005
006305
010065

002604

104442
011065
012065
062765
011065
011065
011067

002514
002524
000002
002534
003532
157416

ADD-UNIT

“EF LAUNIT'

002534
000003

005065

003472

. WORD
.WORD

Js P
L10015-2

TRAP

CsOU

SECTION CONTAINS

THE

TODING

7S SET,

THE UNIT WILL BE

THAT

CAUSES

MOV

RO,RS

GPHARD

RO,RO

MOV
MOV

(RO),TSDB(RS)
(RO)+, TSSR(RS)

ADD

TESTED AS A NEW UNIT,

RS
RO,DEVTBL(RS)

@2,TSSR(RS)

;RS = LOGICAL DEVICE NUMBER X 2.
:STORE UNIT ¢ IN DEVICE TABLE.
;GET

HARDWARE P

TABLE FROM SUPER.
TRAP
C$GPHRD

;:SAVE TSDB ADDRESS.
:SAVE TSSR ADDRESS.

MOV
MOV

MOV

MOV
TRAP
ADD

000010

CLR

INTFLG(RS)

EXIT

QINTPRI, -(SP)
TSSINT(RS), -(SP)
TSVCT(RS), -(SP)
@3, -(SP)

C$SVEC

210,SP

sSET UP INTERUPT PROCESSING CONDITIONS.
:CLEAR INTERRUPT FLAGS.
.WORD
.WORD

JS$IMP
L10016-2-.

TRAP

C$AU

.EVEN

104452

L10016:

A DEVICE

OR (B) RESUMED IN TESTING.

MOV
(RO),TSVCT(RS)
:SAVE INTERRUPT VECTOR ADDRESS.
MOV
(RO), TSUNT(RS)
:SAVE NUMBER OF DRIVE
MOV
(RO), TSNP
;SAVE FOR PRINT OUT'S
SETVEC TSVCT(RS),TSSINT(RS),#INTPRI

000167

(SP)

BGNAU

ASL
MOV

000340
002554

012746
016546
016546
012746
104437
062706

@2,

SP,RO
CS$PNTF
#6,5P

SECTION

TO BE (A) TESTED FOR THE FIRST TIME,

002524

DROPN, (SP)
QDROPOM, -(SP)

ENDDV

ADD UNIT

L$AU:
:

C$CVvEC

MOV
MOV
MOV
TRAP
ADD

104453

024070
024074
024102
024106
024112
024116
024116
024122
024126
024132
024136
024140

DROP DEVICE

.EVEN

.SBTTL

024052
024052
024052
024054
024056
024062
024062

;PRINT

4DROPDM,DROPN

173364
005065
000002

3485

3487

SEQ 0115

PRINTF

3484

3486 024050
024050
024050

18:32

ENDAV

M9
MISCELLANEOQUS SECTIONS
ADD

WINIT

SECTION

MACRO M1113

14 JUN-84 18:3°2

3516
3517
3518
3519
3520
3521
3522
3523

pee

3524

3525

HER

.TITLE HARDWARE TESTS

.SBTTL

3526

TEST

3527 024156
3529 024156
024156

3531 024156
gggg 024162
3534 024166
024166
3535 024166

3536 024170
3537 024174

3538 024200

3539 024202
024202

Tl::

105067
105067

004767

103404

024204
024206
3540 024210

3541 024212

004767

3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555

004767
004767

024226
024232
024236
024236
024244
024246
024252
024256
024262
024270
024274
024302

024302
024306
024312
024316
024322
024324
024326

3556
3557 024332

024332

157333
157326

BASIC FUNCTIONS.

TO EXECUTE

ALL

TSOS FUNCTIONS.

T1.1:

172706
162672

025074
000622

026527
001451
016502
062702
011265
042765
011265
042765

002604

016546
016546
012746
012746
010600
104417
062706

002564
002604
004162
000003

016546

11¢:

163774
172644

002544
000012
002564
177700
002574
177477

177777

002564
002574

S0413%:

sCLR THE RANDOM OPERATIONS FLAG.
;CLR EXPECT B80T FLAG.
;SUBTEST

JSR

PC.FIRSTUY

B8CS

114

PC,SOFINIT

SET CHAR,

ODRIVE INIT,

;REPORT T<S0S NOT READY

JSR

PC.MOSET

;GO DO SETUP'S

#B8F SEQO,R2
PC,.BFSEQ

TRAP

csBsuB

TRAP
. WORD
. WORD
. WORD

CS$ERDF
2
NSSRM
STAERM

;INIT DEVICE

2.NSSRM,STAERM

MOV
JSR

GET STATUS.

sFIND THE FIRST UNIT,

ERRDF

sADR OF CMD SEQ.
;SET UP CMD SEQ.

JSR
PC.EXALL
;EXECUTE CHMD SEQ ON ALL DEVICES.
JSR
PC.FIRSTU
;FIND THE FIRST UNIT,
;WHILE DEVTBL(RS) NE €END DO
;WHILE THERE ARE MORE DEVICES:
cMP
DEVTBL(RS),
#END
BEQ
504144
MOV
MSGPKA(RS),R2
;GET MSG PACKET ADR,
ADD
012,R2
sLET R2 := R2 + @12
;GET XSTAT2 ADR,
MOV
(R2),TSSCL(RS)
:STORE CODE LEVEL FROM DTR BYTE,
eIC
€177700,TSSCL(RS)
MOV
(R2),TSSSW(RS)
;STORE
SWITCH SETTINGS
8IC
0177477, TSSSUW(RS)
PRINTF
#CODELM,DEVTBL(RS),TSSCL(RS)

000010

002574

RANDOM
EXPBOT

BGNSUB

JSR

163250

012702
004767

BGNTST
CLRB
CLRB

104402

104455
000002
004536
006120

3542 024216
3543 024222

TEST

B8GNMOD

3528
3530

SEQ 0116

PRINTF

sPRINT
OSWSET,DEVTBL(RS),TSSSW(RS)

MOV
TSSCL(RS), -(SP)
MOV
DEVTBL(RS),-(SP)
MOV
&CODELM, -(SP)
MOV
03,-{SP)
MOV
SP.RO
TRAP
CS$PNTF
ADO
€10,SP
THE T1S0S MICROCODE LEVEL.

MOV

TSSSW(RS),

-(SP)

N
HARDWARE
TEST

MACRO TM1113
TESTS
BASIC FUNCTIONS.

024336
024342
024346
024352
024354
024356

3558
3559 024362
024362
3561
3562 024 366
3563 024370

3565 024370
024370
3566

024370

016546

012746

012746
010600

104417
062706
004767

14 JUN 84

3568
3569
3570
3571
3572
3573

024374
024400
024404
024410
024414

024414
024414

3574
3575 024416
024416
024416
3576
3577 024420
3578 024424
3579 024430
3580 024434
024434
024434
3581
3582 024436
024436
024436
3583
024440
3585 024444
3586 024450
3587 024454
024454
024454
3588
3589 024456
024456
024456
3590
3591 024460
3532 024464

SEQ 0117

002604
004231
000003

HOV

000010

;PRINT

504154
:

JSR

172562

000723

S04ai4s:

L10020:

T1.2:

B8R

PC . NEXTU

THE

TSO0S5

50413

ENDSUB

BGNSUB

MOV

025146
000444

JSR
JSR

163616
157112

CLRB

L10021:

104403

;SUBTEST 2

ENOSUB

08F SEQ1 ,R2

PC.B8FSEQ
PC,EXALL

STAFLG

CSESUB

TRAP

csBsuB

REWIND.

;ADR OF CMD SEQ.
;SET UP CMD SEQ.
;EXECUTE CMD SEQ ON ALL DEVICES.
;CLEAR START FLAG

BGNSUB

SUBTEST

C$ESULB

WRITE/VERIFY,

104402

TRAP

025160

MOV

000420

163572

L10022:

104403

T1.4:

104402

L10023:

T1.5:

104402

025324
000360

JSR
JSR
ENOSUB

0BF SEQ2,R2
PC.BFSEQ
PC,EXALL

;ADR OF

CMD

csBSuUB

SEQ.

;SET UP CMD SEQ.
;EXECUTE CMD SEQ ON ALL DEVICES.
TRAP

BGNSUB

;SUBTEST 4

WRITE

TAPE MARK,

Cs$ESULB

ERASE.

TRAP

MOV

025252
000400
163552

104403

012702
004767

TRAP

T1.3:

012702
004767
004767

SP,RO

sFIND NEXT UNIT,

104402

012702
004767
004767

OSUWSET, (SP)
03,-(SP)

TRAP
CSPNTF
ADD
#10,SP
SWITCH SETTINGS.

104403

012702
004767
004767
105067

DEVTBL(RS), -(SP)

MOV
MOV

MOV

3567 024372

024372
024372

18:32

JSR
JSR
ENDSUB

08F SEQ3,R2

PC,BFSEQ
PC,EXALL

;ADR OF CMD SEQ.

;SET UP CMD SEQ.
;EXECUTE CHMD SEQ ON ALL DEVICES.
TRAP

;SUBTEST S

BGNSUB

08F SEQ4 ,R2

PC.BFSEQ

CSESUB

SPACE FILES.
TRAP

MOV
JSR

csBSuLB

;ADR OF CMD SEQ.
;:SET UP CMD SEG.

csBsuB

HARDMWARE
TEST

MACRO M111°%
TESTS
BASIC FUNCTIONS.

3593 024470
3594 024474
024474
024474

004767

14 JUN 84 18:32
JSR

163582
L10024:

3602

3603 024516
024516
024516
3605
3606
3607
3608

024520
024524
024530
024534
024534
024534

3610 024536
024536

3611
3612
3613
3614
3615

ENDSUB

+EXECUTE CHMD SEQ ON ALL

012702
004767
004767

T1.6;
025366
000340
163512

L10025:

stSUBTEST 6

BGNSUB

TRAP

MOV
JSR
JSR
ENDSUB

0BF SEQS ,R2
PC.BFSEQ

PC.EXALL

104402

025440

L10026:

104402

024540
024544
024550
024554
024554
024554

012702
004767
004767

71.8:

025512

163452
L10027:

104403

11.9:

104402
012702
004767
004767

L10030:

7T1.10:

104402

012702
004767
004767

025576
000240
163412

#8F SEQ6
, R2

PC.BFSEQ

PC.EXALL

#8F SEQ7,R2

PC.BFSEQ

PC.EXALL

TRAP

#8F SEQS,R2
PC.BF SEQ
PC,EXALL

csssuB

;ADR OF CMD SEQ.

1SET UP CMD SEQ.
;EXECUTE CMD SEQ ON ALL DEVICES.
TRAP

CsesSuB

TRAP

csBsuB

;SUBTEST 10- CLEAN,

BGNSUB

JSR
ENDSUB

csesuB

1SUBTEST 9 - READ FWO RETRY,

BGNSUB

MOV

csBsuB

;ADR OF CMD SEQ.
$1SET WP CMD SEQ.
sEXECUTE CMD SEQ ON ALL DEVICES.
TRAP

JSR
ENDSUB

CsESUB

READ REV RETRY,
TRAP

MOV
JSR
JSR
ENOSUB

csesuB

1ADR OF CMD SEQ.
1SET P CMD SEQ.
tEXECUTE CMD SEQ ON ALL DEVICES.

1SUBTEST 8

BGNSUB

CsESUB

- WRITE RETRY,

TRAP

JSR

163432

104403

ENDSUB

MOV

025544
000260

1SUBTEST 7

TRAP

MOV
JSR

163472

104403

BGNSUB

cses'm

1tADR OF CMD SEQ.
;SET UP CMD SEQ.
1EXECUTE CMD SEQ ON ALL DEVICES.
TRAP

T1.7:

CsesuB

SPACE RECORDS.

104403

012702
004767
004767

DEVICES,
TRAP

104402

024536

3616
3617 024556
024556
024556
3618
3619 024560
3620 024564
3621 024570
3622 024574
024574
024574
3623
3624 024576
024576
024576
3625
3626 024600
3627 024604
3628 024610
3629 024614

PC.EXALL

SEQ 01148

104403

3595

3596 024476
024476
024476
3597
3598 024500
3599 024504
3600 024510
3601 024514
024514
024514

B1O

#8F SEQ9,R2

PC,BFSEQ
PC.EXALL

+ADR OF CMD SEQ.
1SET UP CMD SEQ.
tEXECUTE CMD SEQ ON ALL DEVICES.

HARDWARE
TEST

TESTS

MACRO M1113

BASIC FUNCTIONS.
024614

(24614

14 JUN-84 18:32

3632 024620
3633
3634
3635
3636
3637
3638

3639

3640
3041
3642
3643
3644
3645
3646
3647
3648
3649
3650

T1.11:

104402
012702
004767
004767

BGNSUB

112767
105067

CLR8

JSR

004767

L10032:

104403

020267
001402
000342

000773

004767
012767
004767
012767
004767
012767
004767
105067
012767
004767
012767
004767

104432
000574

50417¢:

156621

T1.12:

104401
171234

156506

000012

155412

000001
000011

156562
155372

000012

155360

171222
171202

171170
104001
171156

#BFSE10,R?
PC.BFSEQ
PC.EXALL
01,SWBFLG

155334

000012
171126
000011

155316

171144
156506

171114

155304

504164

INCSB

T1Sw8

WTv SWAPPED DATA BYTES,
TRAP

csssuB

tWRITE/VERIFY RECORDS 1 AND 2.

tDISABLE BYTE SWAPPING.

TRAP

t INIT WRITE BUFFER POINTER,

sUNTIL

C$sESUB

10 BYTES MAVE BEEN SWAPPED.
1SWAP DATA BYTES IN WRITE BUFFER.

1SET

BGNSUB

SWAP BYTES FLAG FOR

"CKXDATA” SUBR

1SUBTEST 12 - READ SWAPPED DATA BYTES.

MOV
JSR
MOV
JSR
MOVB
MOV

#ROR
, CMOWRD
PC,VFEXC
012 ,CMOPKT +CP .CNT
PC,VFEXC
1 ,SWBFLG
€11,0MOPKT.CP .CNT

JSR
MOV
JSR
MOV
JSR
CLRS
MOV
JSR
MOV

PC,VFEXC
OROF
, CMDWRD
PC,VFEXC
011 ,CMOPKT.CP, CNT
PC,VFEXC
SWBFLG
912,CMOPKT.CP. CNT
PC,VFEXC
#11,CMOPKT.CP .CNT

JSR

L10033:

156457

CSESUB

1ENABLE BYTE SWAPPING.
tWRITE/VERIFY RECORDS 3 AND 4.

SWBFLG

S0417¢
-(R2)

1ADR OF CMD SEQ.
1SET UP CMD SEQ.

PC.EXALL

8EQ
SWAB

JSR

1564 30

000011

104403

105067

ENDSUB

1SUBTEST

DATAWT R2
MOV
ADD
€10. ,R2
S04164: JWHILE R2 NE DATAWT DO
R2,DATAWT
cHp

016702
062702

104402
012767
004767
012767
004767
112767
012767

3671
5672
3673
3674

TRAP

MOV
JSR
JSR
MOve

105267

StQ 0119

L10031:

104403

3630
3631 024616

024616
024616

Cg'l ()

PC,VFEXC

PC.VFEXC

CNT

TRAP
csB8SuB
REV.
1CMD IS READ
sVERIFY ODD LENGTH SWAP (RECORD 4).
sCHANGE BYTE COUNT TO 10.
tVERIFY EVEN LENGTH SWAP (RECORD 3).
tENABLE BYTE SWAPPING.
1CHANGE BYTE COUNT TO 9.
s VERIFY 00D LENGTH SWAP (RECORD 2).
$CHANGE BYTE COUNT TO 10.
s VERIFY EVEN LENGTH SWAP (RF.CORD 1).
1CMD IS READ FWD.
tVERIFY EVEN LENGTH SWAP (RECORD 1).
$tCHANGE BYTE COUNT TO 9.
sVERIFY ODD LENGTH SWAP (RECORD 2).
tOISABLE BYTE SWAPPING.
1CHANGE BYTE COUNT TO 10.
s VERIFY EVEN LENGTH SWAP (RECORD 3).
1CHANGE BYTE COUNT TO 9.
tVERIFY ODD LENGTH SWAP (RECORD 4).

ENOSUB
TRAP

CLR8

T154w8

EXIT

TST

CsesuB

1CLEAR T1 SWAP BYTES FLAG
TRAP
.WORD

CeEXIT
L10017

D10
HARDWARE
TEST

MACRC M1113
TESTS
FUNCTIONS.
BASIC

14 UUN 84

18:32

3675
3676

3677
3678
3679
3680
3681
3682
3683
3684
3685
3686
3687
3688
3689
3690
3691 025072
3692
3693

SUBROUTINE
INPUTS:
ouUTPUTS:

3700
5701
3702
3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722

025074
025076
025100
025102
025104
025106
025110
025112
025114
025116
025120
025122
025124
025130
025132

025134
025136
025140
025142
025144
025146
025150
025152
025154
025156

3723
3724 025160
3725 025162
3726 025164
3727 025166
3728 025170
3729 025172
3730 025174
3731 025176

TO MOVE A COMMAND SEQUENCE TO THF SEQUENCE
R2 = FWA OF COMMAND SEQUENCE.

TABLE,

REGISTERS:

CALLS:

C12701

003540

021227
001402
012221

177777

000773

012711
000207

177777

BFSEQ:
: MOV
#CMOSEQ,R1
504204
: tWHILE (R2) NE OEND DO

S0421%:

cHe
BEQ
MOV

(R2),0€END
504214
(R2)+,(R1).

B8R

504204

MOV

RTS

OEND, (R1)
PC

1 INIT SEQ TABLE ADORESS.
tWHILE THERE ARE MORE COMMANDOS:
+MOVE COMMANDS TO SEQ TABLE.

$1STORE END OF SEQUENCE COOE.

sRETURN,

BASIC FUNCTION COMMAND SEQUENCE

3694

3695
3690
3697
3698
3699

SEQ 0120

140004

000200
000001
000000

BF SEQO:

.WORD

1
0
ORI
1
1
0
SCH
20
1
0
GES

100013
000001
000001
000000

140004

000020
000001
000000
100017
000001
000001
000000
140004
000040
000001
000000

1
1
0

SCh

177777

.WORD

102010
000001
000002
000000
177777

B8FSEQL:

104105

BFSEQ2:

004000
000001
000001
104105
004000
000001
000002

SCH
200

.WORD

1SET CHAR. 200.

(1)

;:DRIVE INIT,

(2)

$SET CHAR, 20

:GET STATUS,

(4)

:SET CHAR,

40,

(3)

TWICE.

(6)

1
0

END
RWO
1
2
0

tREWIND

WiV

tWRITE/VERIFY PAT 1.

(7)

WiV

1 WTV PAT 2,

(8)

END

DATCNT

——

MACRO M1113
HARDWARE TESTS
TEST 1:
BASIC FUNCTIONS.

3732
3733
3734
3735
3736
3737
3738
3.3%9
3740
3741
3742
3743
3744

025200
025202
025204
025206
025210
025212
025214
025216
025290
025222
025224
025226
025230

3746
3747
3748
3749

025234
025236
025240
025242

14 JUN-84 18:32

025244
025246
025250
025252
025254
025256
025260
025262
025264

3760 025266
3761 025270

3762 025272
3763 025274

3764
3765
3766
3767
3768
3769
3770
3771
3772
3773

3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788

025276
025300
025302
025304
025306
025310
025312
025314
025316
025320

025322

025324
025326
025330
025332
025334
025336
025340
025342
025344
025346
025350
025352
025354

SEQ 0121
WiV

104105

DATONT

004000
000001
000003

1
3
WiV

104105

(WTV PAT

(9)

sWTV PAT 4,

(10)

sWTV PAT S5,

(11)

sWTV PAT 6.

(12)

sWTV PAT 0.

(13)

WTM
1
1
0
WRT

sWRITE TAPE MARK,

(14)

;WRITE 10 RECORODS.

(15)

ERS
1
10

;ERASE 10 TIMES.

(16)

;WRITE

(17)

DATCNT
1

WiV
DATCNT
1
5
WwTv
DATCNT
1
6
WiV
DATCNT

3745 025232

3750
3751
3752
3753
3754
3755
3756
3757
3758
3759

E10O

104105

004000
000001
000000

1
0
END

177777

100011
000001
000001
000000

BFSEQ3:

104005

DATCNT
10
1

004000
000010
000001
100411
000001
000010
000000
100011
000001
000001
000000
101011
000001
000001
000000
177777

105410

BFSEQ4:

TAPE MARK.

t1WTM RETRY

(18)

1SPACE 2 FILES REV.

(19)

:SPACE 2 FILES FWD.

(20)

i SPACE 2 FILES REV.

(21)

1SPACE 2 FILES FWD.

(22)

177777

MON
»re

(23)

:SPACE 7 RECORDS FWD.

(24)

: SPACE 7 RECORDS REV.

(25)

$SPACE 7 RECORDS FWD.

(26)

:SPACE

27)

105005

004000

7 RECORDS REV.

+REWIND.

(28)

sWRITE.

(29)

:WRITE RETRY,

(30)

004000
000001
000001

BFSEQ6:

102010
000001
000001
000000
104005

.WORD

;WRITE TAPE MARK,

3831

3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845

sREWIND,

000001
000001
000000
104010
000007

o»-v-g gOflHwOuw%OHsij»umOo—wn& &

BF SEQS:

102010

(9]

3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830

025366
025370
025372
025374
025376
025400
025402
025404
025406
025410
025412
025414
025416
025420
025422
025424
025426
025430
025432
025434
025436

. WORD

177777

p o)
b <]

3809
3810
3811
3812

000001
000002
000000

SEQ 0122

3807
3808

025356
025360
025362
025364

18:32

3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806

14 JUN-84

0
P

MACRO M1113
HARDWARE TESTS
BASIC FUNCTIONS.
TEST 1:

1SPACE 1 FILE REV.

177777
104401

004000
000001
000001
105401
004000
000001
000001

. WORD
BFSEQ7:

:READ REV.

(31)

tREAD NEXT REV.

(32)

MACRO M1113
HARDWARE TESTS
BASIC FUNCTIONS.
TEST 1:
3846 025532

3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870

025534

025536
025540
025542
025544

025546
025550
025552
025554
025556
025560
025562
025564
025566
025570
025572
025574

3871
3872
3873
3874

3875

3876
3877
3878
3879
3880
3881
3882
3883
3884 025640
3885
3886
3887 025642
025642
025642
3888
3889
3890
3891
3892

3893
3894 025644
025644
3895
3896 025644
3897 025652
3898 025656
3899 025662

610

14 JUN-84 18:3¢2

SEQ 0123

125401

004000
0C0001
000001
177777

RNF

;READ NEXT

FWO,

(33)

RDF

:READ FWOD.

(34)

RPF

;READ PREVIOUS FWO.

(35)

RPR

:READ PREVIOUS REV.

(36)

CLN

;CLEAN,

(37)

: REWIND

(38)

. WORD
BFSEQ8:

104001

004000
000001
000001
105001
004000
000001
000001

125001

004000
000001
000001

177777

BFSEQ9:

101012

.WORD

. WORD

177777
BFSE10:

104105

000012
000001
000000

104105

000011
000001
000000

1
1
0
RWO
1
1
0
END

;:ENO OF SEQUENCE.

WiV

;WRITE/VERIFY EVEN LENGTH.

(33%)

WTV

;WRITE/VERIFY 0DD LENGTH,

(40)

.WORD
.EVEN

177777

L10017:

104401

.SBTTL

ENOTST

TRAP
TEST 2:

DATA RELIABILITY.

HEXS

TEST

T2::

112767
105067
005067
004767

000001

155636
155574
171214

155643

TO CHECK

THE DATA RELIABILITY OF

THE

TSOS.

BGNTST
MOVB

CLRB
CLR
JSR

01 ,RANDOM

1SET THE RANDOM OPERATIONS FLAG.

EXPBOT

1CLEAR EXPECT BOT FLAG.

PC,FIRSTU

tFIND THE FIRST UNIT,

WIMFLG

1CLEAR WRITE TAPE MARK FLAG

CSETST

H10
HARDWARE TESTS MACRO M1113
TEST 2: OATA RELIABILITY,
3900 025666
3901 025672
3902 025674
025674
025676
025700
025702
025704
025710

025714
025716
025722
025726
025732
025736
025740
025744
025750
025750
025754
025760
025764
025766
025770

004767
103404

14 JUN-84 18:32

SEQ 0124

JSR
8CS
ERROF

161200

104455

PC,SOFINIT

114

2.NSSRM, STAERM

+ INIT DEVICE
;REPORT TSOS5 NOT READY

000002
004536
006120

004767
012702
005302
010267
005167
004767

105767

001417
004767
105067

012721
012721
012702
005102
010221
012721

025774
025774

104422

025776
025776
026002
026004
026012
026016
026022

020127
002012
066767
016702
042702
004772

161556
004000

11%:

504224:

104105
004000
177740
000007

50423%:

504244:

003740

012711
004767

177777
162166

026040
026044
026046
026050
026054
026056
026060
026062

012701
005702
001752
105267
000240
000240
000240
004767

003540

026066
026072
026100

004767
012767
005167

OEC

R2
R2, LENMSK

MOV
MOV
MOV
coM
MOV
MOV

OMTV,(R1).
@0ATCNT,(R1).
ORNOPSC ,R2
R2

cHP
BGE

2
NSSRM
STAERM

1GO DO SETUP'S
$SET UP THE RECORD LENGTH MASK,

50425%:

;: DO A SUPVSR BREAK FIRST.

TRAP

;FILL

R1,0SEQEND

504254

SEQ

TBL

C$BRK

WITH RANDOM CMDS.

;LET RANS := RANS +« RANB

8IC
JSR
BR

50424
¢

MOV
JSR

PC.EXALL

OEND, (R1)

;STORE END OF SEQUENCE COOE IN TABLE.
:GO EXECUTE ALL CMDS IN SEQUENCE TABLE.

oCMOSEQ,R1

: INIT CMO SEQ TBL POINTER,

MOV

155450

001546

NOP
JSR

155444

ORANP, (R1)+

RAN
, RANS
B
RANS,R2
2177741
,R2
PC.8RANCMO(R2)

TST
8EQ
INCB

155440

.MORD
.WORD
.WORD

R2,(R1).

BREAK

ADD
MOV

155422

000763

000126
177740

QDATCNT ,R2

C$ERDF

$ALLOW MAXIMUM BUFFER.
coM
LENMSK
JSR PC,SETCH
;CMD 1 = SET CHARACTERISTIC.
1S718
STAFLG
1IFB STAFLG NE 060 THEN
sIF STARTING THEN:
8EQ
504244
PC,SETRW
JSR
1 CMD2=REWIND
CLR8
STAFLG
tLET STAFLG :8= 0
:CLR START FLAG.

162242
155556

026026
026030
026030
026034

PC,MOSET

MOV

155506
155502
162230
155570

155422
155416
177741
026160

JSR

MOV

TRAP

JSR

MOV

ComM

504234

ALLEOT

:SET UP A RANDOM CMD

;REPEAT

- BRF.

UNTIL EOT

IS REACHED

iFLAG ALL UNITS & EOT

:WRITE ONE RECORD BEYOND EOT ON ALL UNITS
1SO THAT SHORTER READ STOP DISTANCE
1SHALL POSITION HEAD IN CLEAN IRG GAP
;READ REV THAT EXTRA REC TO RE-POSITION THE TAPE
PC,RANRD
1SET UP READ REV/FWD CMDS,
ORNOPSC,CMDSEQ-4
10 OF RECORDS FOR READ REV,

PC,TSWEOT

CMDSEQ+4

HARDWARE TESTS MACRO M1113
TEST 2: DATA RELIABILITY,
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964

3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999

4000
4001

4002
4003

4004
4005
4006

026104
026112
026116
026122
026126
026134
026140

016767
012711
004767
105067
112767
012701
004767

026154
026154
02€156

104432
0003220

026144
026150

012711
004767

110

14 JUN-84 18:32

155434
177777

162104
155376
000001
003540
162042
177777
162052

MOV

155442

CMDSEQ.4,CMDSEQ
.14

MOV
JSR

@END, (R1)
PC,EXALL

MOVB

01 ,RPTFLG

CLRB

155363

:@ OF RECORDS FOR READ FORWARD.

1STORE END OF SEQUENSE CODE IN SEQ TABLE.
1GO0 EXECUTE READ REV/FWD OF LAST N RECORDS.

ALLEOT

;CLEAR ALL UNITS @ EOT FLAG

$REQUEST PERFORMANCE REPORT DURIMG REWIND.

MOV
OCMOSEQ.R1
JSR PC,SETRW
MOV
@END, (R1)
JSR PC,EXALL
EXIT

s INIT SEQ TBL POINTER,

:STORE REWIND IN SEQ TBL,
;STORE END IN SEQ TBL,
:EXECUTE REWIND CMD ON ALL UNITS

TST

ADDRESSES OF SUBROUTINES USED
THE DATA RELIABILITY 1EST.
RANCMO:

026356
026332
026332
026332

S€Q 0125

026332
026332

026332
026332
026220
026220
02622¢C
026220
026220
026220
026220
026220

RANWY
RANWR
RANWR
RANWR
RANWR
RANWR
RANWR
RANWR
RANRD
RANRD
RANRD
RANRD
RANRD
RANRD
RANRD
RANRD

TRAP

C$EXIT

.WORD

L10034-.

TO SET UP RANDOM OPERATIONS

tWRITE
WRITE,
sWRITE,
;WRITE.
tWRITE,
sWRITE,
{WRITE,
tWRITE.
;READ.
;READ,
;READ.
;READ.
;READ,
sREAD,
;READ.
;READ.

SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE.
INPUTS:
OUTPUTS:
REGISTERS:
R2
CALLS:

026220
026224
026226
026232

026236
026242
026246
026250
026254
026260
026266
026272
026276
026300
026304
026310

005767
001406
004767
004767
005067
020127
002030
012721
012721
066767
016702
042702
010221
012721
020127
002007

155232
000136
000160

155214

003740

104401
004000

155150
155140
177740

000007
003740

1¢:

155144

TST

WTMFLG

tWAS LAST CMD A WRITE?

JSR
JSR
CLR
cHp
BGE
MOV

PC,RAWTM
PC,RASFR
WTMFLG
R1, 0SEQEND
24
ORDR,(R1).

:STORE READ REV CMD.

ADD

RANS ,RANB

;LET RANB

MOV
MOV

R2,(R1)+
ORANP,(R1)+

;SET RANDOM @ OF OPERATIONS.

B8EQ

MoV
MOV
8IC

CHP
8GE

QDATCNT,(R1)+

RANB,R2
ORNOPSC ,R2
R1,4SEQEND
24

:NO,GO AHEAD
s YES PUT DOWN TAPE MARK
$AND SPACE FILE REV
i THEN CLEAR THE FLAG

;SET BRF TO MAX FOR READ RANDOM LENGTHS.

;LET R2

:= RANB

RANS

:= RANB CLR.BY ORNOPSC

1RANDOM PATTERN.

HARDWARE TESTS MACRO M1113
TEST 2: DATA RELIABILITY.
4007 026312

4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022

4023
4024
4025

026316
026322
026324
026330

012721
012721
010221
012721
000207

J10

14 JUN-84 18:32

SEQ 0126
MOV

104001
004000

MOV
MOV
MOV
RTS PC

000007

ORDF ,(R1)+

QDATCNT,(R1).
R2,(R1).
ORANP
, (R1) .

$STORE READ FWD CMD.
:SET BRF TO MAX TO READ RANDOM LENGTHS.
1SET RANDOM ¢ OF OPERATIONS.

1RANDOM PATTERN,

SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE,
THEN A WRITE TAPE MARK AND SPACE FILE REVERSE.
INPUTS:
OUTPUTS:

REGISTERS:
CALLS:

026332
026336
026342
026346
026350
026354

4026
4027
4028
4029
4030
4031
4032
4033
4034
4035 026356

4036 026362
4037 026366

4038
4039
4040
4041
4042
4043
4044
4045
4046 026370
4047 026374
4048 026376

4049 026402
4050
4051 026412
026414

012721
004767
005767
001002
005267
000207

104005
000102
155110
155102

RANWR:
:

MOV
OURT,(R1)
JSR PC,RANW
ST
WTMFLG
BNE
18

1s$:

RYS PC

INC

WTMFLG

?ggR?gTINE
UTS:
OUTPUTS:
REGISTERS:

sSTORE WRITE CMD.
;STORE BRF, # OF OPERATIONS,
sLAST CMD A WRT?
s YES,RETURN

1NO,SET THE FLAG

TO SET UP A WRITE/VERIFY COMMAND IN THE

SEQUENCE

TABLE.

CALLS:

012721

004767
000207

104105
000056

RANWV:
:

MOV
OWTV,(R1).
JSR PC,RANUW
RTS

:STORE WRITE/VERIFY CMD.
:STORE BRF, & OF OPERATIONS, PATTERN.

SUBROUTINE TO SET UP A WRITE TAPE MARK IN THE SEQUENCE TABLE.
INPUTS:
OUTPUTS::

REGISTERS:
CALLS:

020127
002007
012721
012721
012721
005721

003740

RAWTM:
: cHP

R1,#SEQEND
14

MOV
MOV
TST

01,(R1).
01,(R12.
(R1).

MOV

100011
000001
000001

000207

BGE

RTS PC

T, (R1).

éSTORE WRITE
;BRF

TAPE MARK

CMD.

;1@ OF OPERATIONS
: SKIP PATTERNS

SUBROUTINE TO SET UP A SPACE FILE REVERSE
INPUTS:
OUTPUTS:
REGISTERS:

IN THE SEQUENCE

CALLS:

026416
026422
026424
026430

PATTERN.

020127
002007
012721
012721

003740

105410

000001

RASFR:
:

cHP
8GE
MoV

MOV

?%.OSEQEND

#SFR,(R1).
01,(R1).

; STORE SPACE FILE REVERSE

;BRF

TABLE.

HARDWARE TESTS MACRO M1113
TEST 2: DATA RELIABILITY,
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076
4077
4078

026434

026440
026442

012721
005721
000207

14 JUUN-84

18:32

000001

MOV
TST

1%:

004000

026450
026456
026462
026466
026470
026474

066767
016702
042702
010221
012721
000207

154760
154750
177740

01,(R1).

+® OF OPERATIONS

(R1).

; SKIP PATTERNS

RTS PC

INPUTS:

012721

SEQ 0127

SUBROUTINE TO STORE BRF, & OF OPERATIONS, PATTERN IN COMMAND
SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANOS.

026444

K10

OUTPUTS;

:
H

REGISTERS:
CALLS:

RANW::

MOV

ODATCNT,(R1)

ADD
MOV

RANS ,RANB
RANB ,R2

154754

BIC
MOV

MOV

000007

RTS PC

ORNOPSC,R2
R2,(R1)+

ORANP, (R1)+»

1SET BRF TO MAX FOR PATTERN GENERATION.
;RANDOM BRF WILL BE GENERATED FOR EACH RECORD.
sLET RANB := RANB ¢+ RANS
;LET R2 := RANB CLR.BY ORNOPSC

sSET RANDOM & OF OPERATIONS.

;RANDOM PATTERN,
tRETURN,

.EVEN
026476
026476
026476

L10034:

104401

.SBTTL

ENDTST
TRAP

TEST 3:

CS$ETST

WRITE COMPATABILITY/WRITE UTILITY.

;
026500
026500

T73::

026500
026506

112767
105067

000001
155002

026512
026516
026522
026524

004767
004767

170364
160350

103404

026524
026526
026530
026532

104455
000002
004536
006120

026534
026540
026544
026546
026552
026556
4111 026562
4112 026566
4113 026572

004767
012702
005302
010267
005167
004767
004767
105067

4104
4105
4106
4107
4108
4109
4110

TEST TO WRITE RECORDS FROM BOT TO EOT.

155007

BGNTST

MOVB
CLRB

€1, RANDOM
EXPBOT
;;LET EXPBOT

JSR

PC,FIRSTU

sFIND THE FIRST UNIT,

ERRDF

2 .NSSRM,STAERM

;REPORT

JSR
BCS

PC,SOFINIT
114

;SET THE RANDOM OPERATIONS FLAG.
:B= @0
;CLEAR EXPECT BOT FLAG.

;INIT DEVICE

TSOS NOT READY

TRAP

MWORD
.WORD
.WORD

160726
004000

154656
154652
161400
161420
154734

11%:

JSR

ggg

MOV

comM

PC,MDSET

;GO DO SETUP'S

R2 ,LENMSK

sALLOW MAXTIMUM BUFFER.

:gA?CNT.R?

LENMSK

JSR PC,SETCH
JSR PC,SETRW
CLRB
STAFLG
504264: BREAK

C$ERDF

2
NSSRM
STAERM

;:SET UP THE RECORD LENGTH MASK,

tCMD 1 = SET CHARACTERISTIC.
s CMDO2=REWIND
;LET STAFLG :B= o0
;CLEAR START FLAG
;1 DO A SUPVSR BREAK FIRST,

L10O

14-JUN-84 18:32
HARDMWARE TESTS MACRO M1113
UTILITY,
RITE
COMPATABILITY/W
WRITE
TEST 3.
4114

4115
4116
4117
4118
4119
4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
4130
4131
4132
4133
4134
4135
4136
4137
4138
4139

026572
026574
026574
026600
026602
026606
026610
026610
026614
026620
026624

177777

026626

012711
004767
012701
005702
001761

026640
026642

026646
026652
026656
026662

026666
026670

4141
4142
4143
4144 026672
026672

026672

4145
4146
4147
4148
4149
4150
4151
4152
4153 026674

4161

TRAP

003740

4140 026666

4154
4155
4156
4157
4158
4159
4160

104422
020127
002003
004767
000772

026630
026634
026636

SEQ 0128

504274:

177524
S0430%:

cMP
8GE
JSR
B8R

R1,0SEQEND

MOV

#END, (R1)
PC,EXALL

JSR

161406
003540

MOV
TST

504304

PC,RANWR

50427

oCMOSEQ,R1

504264

154670

8EQ
INCB

000240
004767

000766

NOP
NOP
JSR

105067
004767
012711
004767

154652
161330
177777
161340

ALLEOT
CLR8B
JSR PC,SETRW
MOV
END, (R1)
JSR PC,EXALL

105267
000240
000240

EXIT

104432
000002

ALLEOT

tWHILE

THERE

IS MORE ROOM IN SEQ

C$BRK

TABLE:

:STORE A WRITE CMDO IN SEQUENCE

TABLE.

;STORE END OF SEQUENCE CODE IN TABLE.
sEXECUTE ALL CMOS IN SEQ TBL ON UNITS,
: INIT SEQ TBL POINTER,
tREPEAT UNTIL EOT

IS REACHED

;SET ALL UNITS 8 EOT FLAG

PC,TSWEOT

;WRITE ONE RECORD BEYOND EOT ON ALL UNITS
1SO THAT SHORTER READ STOP DISTANCE
;SHALL POSITION HEAD IN CLEAN IRG GAP
:READ REV THAT EXTRA REC TO RE-POSITION TAPE
sCLEAR ALL UNITS 8 EOT FLAG
:STORE REWIND IN SEQ TBL,
:STORE END IN SEQ TBL,
;EXECUTE REWIND CMO ON ALL UNITS

TST

TRAP

C$EXIT

.WORD

L10035-.

TRAP

CSETST

.EVEN
L10035:

104401

.SBTTL

ENDTST

TEST 4:

READ COMPATABILITY/READ UTILITY,

HRAR4

;

026674

TEST

T4::

026674
026702

112767
112767

000001
000001

026710
026714
026720
026722
026722
026724
026726

004767
004767
103404

170166
160152

104455

000002
004536

154613
154604

TO READ ENTIRE

TAPE FORWARD AWD REVERSE.

BGNTST
MOVB

€1 ,RANDOM
21,EXPBOT

:SET THE RANDOM OPERATIONS FLAG.

JSR
JSR
8CS
ERROF

PC,FIRSTY
PC,SOFINIT

:FIND THE FIRST UNIT.
s INIT DEVICE

MOVe

114
ST AERM
2,NSSRM,

:SET EXPECT BOT FLAG.

$REPORT TSOS NOT READY

TRAP

CS$ERDF

.MORD
.WORD

2
NSSRM

110

14 JUN-84 18:32
HARDWARE TESTS MACRO M1113
READ COMPATABILITY/READ UTILITY.
TEST 4.
026730

006120

4163 026732
4164 026736

004767
004767
004767
105067
012721
012721
012721
012721
012711
004767
105¢67
012701
012721
012721
012721
012721
012711
004767
105067

4162

4165 026742
4166 026746
4167 026752
4168 026756
4169 026762
4170 026766
4171 026772
4172 026776
4173 027002
4174 027006
4175 027012
4176 027016
4177 027022
4178 027026
4179 027032
4180 027026
4181 027042
4182
4183 027046
027046
027050

000002

027052
027052

104401

4184
4185
4186
4187 027052

4188
4189
4190
4191
4192
4193

.WORD

160530
161220
161240
154554
104001

114:

177777
161224
154516

PC,MOSET
JSR
JSR PC,SETCH
JSR PC,SETRW
CLRB
STAFLG
;;LET STAFLG
MOV
OROF ,(R1).
MOV
QDATCNT,(R1)+
077777,(R1).
MOV
MOV
#RANP, (R1 .
MOV
OEND, (R1)
PC,EXALL
JSR
ALLEOT

#CMOSEQ.R1
OROR,(R1).
QDATCNT,(R1).

003540
104401

@77777,(R1)»
ORANP, (R1)+

177777

O0END, (R1)

PC.EXALL

161164
154456

ALLEOT

STAERM

S
:GO DO SETUP'

;CMD 1 = SET CHARACTERISTIC.
;sCMD2=REWIND.
:8= 40
sCLEAR START FLAG
;+CMO3 = READ FORWARD.
$SET LENGTH TO MAX FOR UNKNOWN LENGTHS.
$SET RECORD COUNT TO MAX FOR WHOLE 'APE.
sPATTERN = RANDOM.

;STORE END OF SEQUENCE CODE IN TABLE.
tEXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS,
sFLAG TO ALLOW ALL UNITS AT EOT TO READ REV
;INIT CHD SEQ TBL POINTER.
;CMD1 = READ REVERSE.
:SET LENGTH TO MAX FOR UNKNOWN LENGTHS.
tRECORD COUNT = MAX FOR WHOLE TAPE.
sPATTERN = RANOOM.

+STORE END OF SEQUENCE CODE IN TABLE.
;GO EXECUTE READ REV. OF ENTIRE TAPE.
;:CLEAR ALL UNITS @ EOT FLAG

TST

104432

L10036:
.SBTTL

TEST S:

TRAP

CSEXIT

.WORD

L10036-.

T3AP

CSETST

TRAP
.WORD

CS$EROF
2
NSSRM

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE
.

4194
4195 027054
027054

4196
4197 027054

4198
4199
4200
4201
4202
4203

SEQ 0129

027060

15::

105067
112767

000001

004767
004767

170010
157774

027066
027072
027076
027100
027100
027102
027104
027106

000002
004536
006120

027114
4207 027122
4208 027126

004767
116767
004767
016767

4204
4205 027110

TEST TO EXECUTE

103404

154435

154426

104455

OPERATOR SELECTED COMMAND SEQUENCE.

BGNTST

CLR8
MOvB

RANDOM
#1,EXPBOT

;CLEAR RAMOOM MODE FLAG.
;SET EXPECT BOT FLAG.

JSR
JSR
8CS
ERROF

PC,.FIRSTU
PC,SOFINIT

:FIND THE FIRST UNIT,
: INIT DEVICE

114

2.NSSRM, STAERM

;REPORT TSOS NOT READY

.WORD
.WORD

160352
153076
161034
153066

154377
154406

11%:

MOV

PC,MOSET
PIRE, IRE

MOV

CHAR,CMOSEQ
.2

JSR

JSR PC,SETCH

:GO DO SETUP'S

STAERM

tMOVE INHIBIT RFC ERROR REPORT FLAG.
1CMO 1 = SET CHARACTERISTIC.
iMOVE CHAR CODE FROM P TBL TO SEQ TBL.

HARDWARE TESTS MACRO M1113
14 JUUN 84 18:32
TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE.

SEQ 0130

4209 027134
4210 027140
4211 027144
4212 027150

012702
004767
004767
004767

002222
000446
000442
000436

MOV
JSR
JSR
JSR

oCMOD,R2
PC,PTCMDS
PC.PTCMDS
PC.PTCMDS

;R2 POINTS TO CMD2
;MOVE CMD 2 FROM P
;MOVE CMD 3 FROM P
sMOVE CMD 4 FROM P

4214
4215
4215
4217
4218

027160
027164
027170
027174
027200

004767
004767
004767
005067
105067

000426
000422
000416
154242
154322

JSR
JSR
JSR
CLR
CLRB

PC,PTCMOS
PC,PTCMDS
PC,PTCMOS
JLOOP
STAFLG

sMOVE CMD 6 FROM P TBL T0O SEQ TBL.
;MOVE CMD 7 FROM F TBL TO SEG TBL.
;MOVE END CMD FROM P TBL TO SEQ TBL.
;CLEAR UMP CMD LOOP COUNT,
;:CLEAR START FLAG

4220
4221
4222
4223
4224

027210
027210
027210
027214
027216

4213 027154

4219 027204

004767

012701

4225 027222

021127
001574
022711
001024

4228 027234
4229 027240
4230 027242

022167
001003
062701

4232
4233
4234
4235

005267
012701
005367
001751

4226 027224
4227 027230

4231 027246

027250
027254
027260
027264

4236 027266

cggg 027272

062701
012167

000760

000432

003540

3s:
S0431%:

1777717
000040

000002
154210

154166
003540
154160

022711

000020

MOV

;MOVE CMD S FROM P TBL TO SEQ TBL.

o6CMDSEQ,R1

;INIT SEQUENCE TABLE POINTER.

sWHILE (R1) NE #END DO

;WHILE THERE ARE CMDS LEFT IN SEQUENCE

cMe
BEQ
cMP
BNE

;IS THIS A JUuMP CMD?
;BR IF NOT.

(R1),6END
504324
oUMP . C,(R1)
64

02,.R1
;LET R1
(R1).+,JL0C

CMP (R1)+,JLOOP
BNE
14
ADD
#2,R1

000002

000010

PC,.PTCMDS

ADD
MOV

154202

062701

000772

JSR

1$:

2%:

IN SOFT P TABLE.
TBL TO SEQ TBL.
TBL TO SEQ TBL.
TBL TO SEQ TBL.

B8R

INC
MOV
DEC
BEQ

TBLE:

:= R1 « @2
;POINT TO BRF.
:SAVE BRF (LOCATION).
;+HAS LOOP COUNT BE SATISFIED?
;IF NOT, UMP AGAIN.
;IF SO, ADJUST SEQ POUNTER

;AND GO TO NEXT COMMAND.

JLOOP
#CMDSEQ,R1
JLOC
3¢

;UPDATE THE LOOP COUNT.
;INIT CMD SEQ TABLE POINTER.
;DECR LOCATION COUNTER.
;IF THIS IS THE RIGHT LOCATION TO UM TO,

B8R

;00 IT AGAIN.

cMP

o0LY.C,(R1)

ADD

#10,R1

;IF

NOT,

UPDATE

SEQ POINTER

TO NEXT

CMO.

GO SET

4239 027274
4240
4241
4242
4243

027300
027302
027306
027312

001026
062701
011167

027312
027316
027320
027324
027326
027332
027334
027340

012727
000000
016727
000000
005367
001375
005367
001367

4247 027354

000715

4244 027342
4245 027346
4246 027350

000004
154126

161610

026767

154024

4252 027372
4253 027376

004767
004767

161466
161122

001002
004767

167774

4255 027410
4256 027412
4257

1 MSEC.

MOV
. WORD
MOV
.WORD
DEC
BNE
DEC
BNE

177756

004767

026727

N COUNT,

177772

4248 027356
4249 027362
4250 027362

4254 027402

;BR IF NOT.
;+R1 = LOCATION OF
; SAVE N COUNT,
;GO TO SUPER WAIT

152572

000004

002103

7%:

;DELAY?

BNE
4,
ADD
¢4 ,R1
MOV
(R1),TIME2
DELAY 1

000001

005367
001361
062701

4251 027370

64:

154072

154012

DEC
BNE
ADD

B8R

44:
50433

154024

100017

TIME2
74
04 ,R1

;LET Rl

JSR
PC,SETULP
;WHILE NCNT LT NCNT1
cMP
NCNT ,NCNT1

B8GE

cMP

BNE

504344

JSR PC,CMDAC
JSR PC,EXSUB

CMOWRD , 4GES

S04354
JSR PC,PRXST

;sPOINT

;GO CHECK NEXT CMD.

TO NEXT

;GO SETUP THE COMMAND BLOCK.
;WHIILLE THERE ARE RECORDS REMAINING:

:STORE
;ISSUE

CMD ASCII IN ERROR MSG.
CMD TO ALL,AWAIT INTS,CHECK

;IF CMD IS GET

STATUS THEN:

;PRINT EXTENDED STATUS REGISTERS.

STATUS.

1
MACRO M1113

JUUN 84

18:32

SEQ 0131

HARDMWARE TESTS
TEST S: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE.

027416
027416
027422
027426
027432
027432
027440
027442
027450
027452
027460
027462
027464
027464
027466
027466
027474
027476
027504
027506
027506

004767

012702

004767

504354:

170056

000001

MOV

167450

026527

002604

177777

032767

000400

153750

032765

000002

003502

001426

001406
001001
005002

032765

000001

003502

032767

000001

153714

001001

027514
027516
027316
027522
027524
027532
027536
027542
027550
027552

004767

504408:

SOo437¢

#M00 .CO, CMDWRD
oX0.807 ,EOTFLG(RS)

SO441
R2

B8R

504424

BIT

THERE ARE MORE UNITS:

s IF NOT AT BOT

THEN:

stCLEAR EOT/80T FLAG.
sELSE IF CMD IS NOT REVERSE:

OX0.EQT ,EOTFLG(RS)

B8EQ

S0443s

BNE

SO444

CLR

8IY

UNIT,

sWHILE

s IF CHMD IS REVERSE

S04403

BNE
CLR

S044248:

167434

000746
020227

001016
016767
005267
105267
026727

001002
004767

SO437%:

000001

153662
153656
153762

153660

oCMD
. CO,CMOWRD

JSR PC,NEXTU

B8R

S0436¢

Re.0)

BNE
MOV
INC
INCB

153662
000002

000056

s IF NOT AT EOT OR NOT A MOTION CMD THEN:
;LET R2 := &0
1CLEAR EOT/BOT FLAG.

504454
NCNT ,NCNT1
NCNT)
ALLEQT

sFIND NEXT UNIT

sIF ALL UNIT ARE AT EQT/B0T

THEN:

;FORCE TERMINATION OF COMMAND.

CMDLG,
@2

sFLAG ALL UNITS AT EOT/B0T TO ALLOW VERIFY OF O
(MHEN WRITING IS CURRENT COMMAND

JSR PC, TSWEOT

1GO WRITE/READ REV ONE RECORD BEYOND €07

BNE

S04464

SO4478

CLR8

ALLEOT

sWHEN NOT ALL SEOT, CLEAR FLAG

INC
MOV

NCNT
CMDWRO , PCMOMWD

1tUPDATE RECORD COUNT.
1SAVE PREVIOUS COMMANC WORD.

B8R

SO4334¢

S04464
:

000402
153740

027564

005267
016767

153622
153624

027576
027600
027600

000671

027604
027606

000601

027570

8IT

ODEVTBL(RS
), 6END

FIRST

S0444:

105067

027564

8€EQ

005002

027556
027556
027560
027560

BIT

SO0443¢:

027510
027510
027510

c®

sCHECK HALT AFTER EACH CMD FLAG.
$S5ET ALL UNITS AT BOT/EOQT.

e1,.R2

+FIND
JSR PC,FIRSTY
sWHILE DEVIBL(RS) NE #END 00

BEQ

SOa4ls:

000411
001404

S04364:

JSR PC,CKMHAE

004767

166262

SO44SS:
SOA47%

153626
S04344

S04324:

JSR

B8R

PC,VFYDAT

SO431¢

1 IF LAST CMD WAS A WRITE VERIFY, THEN GO
{VERIFY THE LAST N RECORDS OF DATA,

MACRO M1113
14 JUN 84 18:32
HARDWARE TESTS
OPERATOR
SELECTED
COMMAND SEQUENCE.
TEST S: EXECUTE

4315
4316 027606

1298

104432

TRAP

.WORD

W
O¢
@s
¢
@¢

027612
027614
027616
027620
027624
027626
027630
027632

000140

4317
4318
4319
4320
4321
4322

027606
027610

SEQ 0132

012203
005303
006303
016321
012221
012221
012221
000207

SUBROUTINE TO MOVE A COMMAND FROM THE SOF TWARE P TABLE
THE COMMAND SEQUENCE TABLE.

INPUTS

Re = POINTER TO SOFT P TABLE

REGISTERS:

R3,

OUTPUTS

CALLS:

PTCMDS: : MoV

0€EC
ASL

MOV
MOV
MOV
MOV

003752

RTS PC

(R2)+ ,R3

;R3 = COMMAND TABLE INDEX.

CMOTBL(R3),(R1).
(R2).+,(R1).
(R2)+,{R1).
(R2)+,(R1).

me%mm

CsExIY

L10037

TO WRITE

1MOVE COMMAND WORD.
+sMOVE & OF BYTES.
1MOVE @ OF OPERATIONS.
;MOVE PATTERN CODE.

THEN READ REVERSE

ONE RECORD BEYOND EOT

NUTPUTS:

REGISTERS:
CA_LS:

027634
027636
027640
027644

000240
000240
004767
004767

027650
027654
027662
027670
027676
027704
027712
027720
027726
0277.2
027736
027742
027744

012700
016767
012767
012767
016767
042767
016767
016767
004767
004767
004767

027746

TSWEOT: :

153540
104401

000004

153516

004000

152412
153464
161132
160566
167536

NOP
NOP

JSR PC.EXSUB
JSR PC,CKHAE

160660
167630
000002

CMOAC
. EXSUB , CKHAE

MOV
MOV

153342
153530
153530
152424
152416

MOV
MOV
MOV
8I1C
MOV
MOV

153502

152404

1SET UP COUNTER FOR EOT
;LET PCMOWD := CMOWRD

;REPOSITION TAPE

OROR , CMOWRD
tLET CMOMRD := ORDR
1BEFORE EXTRA RECORD
o4,0M0LG
18Y READING REVERSE
CMOWRD , CHOPKT
$LET CMOPKT := CMOWRD CLR.BY #8RF .C
#8RF .C,CMOPKT
CMOPK T, CHDSAV
tLET CMOSAV := CMOPKT ;THAT RECORD TO ALLOW
DATARD, CMOPKT +CP . ADL
INEXT COMMAND IN THE

JSR PC,CMOAC
JSR PC,EXSUB
JSR PC,CKHAE

: TABLE

RTS PC

t YES,RETURN

O€EC
BNE

001343
000207

02,R0

CMOMRO ,PCMOWD

JMRITE ONE RECORD BEYOND EOT
1SO THAT READ SHORTER STOP DISTANCE
1SHALL POSITION MEAD IN CLEAN IRG GAP

RO
14

TO B8E EXECUTED

1FOUND EOT YET?
tNO ,KEEP GOING

.EVEN

4363
4365

4367

027750
027750
027750

027752

104401

L10037;

ENDTST
TRAP

ENDMOOD

.TITLE PARAMETER CODING

CSETS”

MACRO M1113

PARAME TER COC ING

HARDWARE PARAMETER CODING SECTION

14 UUN 84

SENQ 0137

HARDWARE PARAMETER CODING SECTION

B8GNMOD

4372
4373

THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

4374
4375
4376
4377
4378
4379
4380
4381 027752

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE

4383 027754

027754
027756
027760
027762
4384 027764
027764
027766
027770
027772

LSHARD:
:

000031
030012
160010
177564
001032
030027
000777

027774

000776

027776

002022
030036

4385 027776

;

BGNHRD

027752
027754

GPRMA

TSSADR,0,0,160010,177564,
YES

GPRMD

TS5v(CT,2,0,777,60,776,YES

GPRMD

TS5UNT,4,0,.1,0,1,NO

000001

4386

4387
4389
4390
4391
4392
4393
4394
4395

4396
4397
4398

4399

4401
4402
4403
4404
4405

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

§ 83355 33585 BEES

4382

18:3¢

.SBTTL

4368
4369
4370 027752
4371

000001

EXIT HRD

024004

124
126
123

123
105
105

104
103
114

TSSADR:
TSSVCT:
TSSUNT:

.NLIST
.ASCIZ
.ASCIZ
.ASCIZ

.LIST
.EVEN

BEX
/TSDB ADDRESS/

/VECTOR/
/SELECT ORIVE 0-1/

BEX

ENDHRO

.EVEN

L10040:

.SBTTL

SOF TWARE PARAMETER CODING SECTION

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES
THE
MACROS ARE NOT EXECUTED AS MACHINC INSTRUCTIONS BUT ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR 10 ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

T4COOE
TSSADR
TSLOLIM
THHILIM

T4CO0E
TSSVCT
777
TSLOLIM
TOHILINM

T4CO0E
TSSUNT
1
TSLOLIM

TSHILIM

T$CO0E

MACRO M1113

PARAMETER CODING

SOF TWARE PARAMETER CODING SECTION

14 JUN-84

E11

18:32

SEQ 0134

4406

4407
4408 030060

030060
030062
4409 030062
030062
030064
030066
4410 030070
030070
030072
030C7a
4411 030076
030076
030100
030102
4412 030104
030104
030106
030110
4413 030112
030112
030114
030116
4414 030120
030120
4415 030122
030122
030124
030126
4416 030130
030130
030132
030134
4417 030136
030136
030140
030142
4418 030144
030144
030146
030150
4419 030152
030152
4420 030154
030154
030156
030160
030162
030164
4421 030166
030166
030170
030172
030174
030176

000302

BGNSFT
LS$SOFT::

000130
030666
000001

.WORD L10041-L8$S0FT/2

GPRML

000130
030705
000400

GPRML

00.130
031010
000400

GPRML

001130
030734
000001

GPRML

003130
031064
000400

004024
002130
030760
000001
003130
031041
000001
005130
031131
000001
004130
031105
000001

127044
006032
031162
000377
000000
000777

007052
031207
000037

000001
000033

NEXTSP:

CLRM,0,1,YES

RRVM,0,400,YES

RCVERM, 2,400, YES

HAEM,2,1,YES

IRECM, 6,400, YES

XFERT

NEXTSP

GPRML

BADTM,4,1,YES

GPRML

DINTM,6,1,YES

IREM,12,1,YES

CHGM,10,1,YES

T4C00E

. WORD
. WORD
. WORD

CLRM

.WORD
. WORD
. WORD

RRVM
400

. WORD
. WORD
.WORD

T$COOE
RCVERM
400

. WORD
. WORD
. WORD

HAEM

T$CO0E

T$CODE

1
T$CO0E

. WORD
. WORD
.WORD

400

. WORD

T$CO0OE

. WORD

. WORD
. WORD
. WORD
.WORD
. WORD

. WORD
. WORD
. WORD

IRECM

T$C00E

BADTM
1

T$CODE

DINTM
1

T$COOE

IREM
1

T$CODE

CHGM
XFERF

ENOSP1

GPRMD

CHARM,14,0,377,0,777,YES

T$C00€

T$C00E

CHARM
377

TSLOLIM
TSHILIM

GPRMD

cMoeM,16,0,37,1,33,YES

T$CODE

CHMO2M

37
TSLOLIM
TSHILIM

MACRO M1113

PARAME TER COOING

SOF TWARE PARAMETER CODING SECTION
4422 030200

030200
030202
030204
030206
030210
4423 030212
030212
030214
030216
030220
030222
4424 030224
030224
030226
030230

030232
030234
4425 030236
030236
030240
030242
030244
030246
4426 030250
030250
030252
030254
030256

000001
004000

011052
031227

030320
030322
030324
030326
030330
4431 030332
030332
030334

. WORD

GPRMO

NUMBM,22,0,-1,1,77777,YES

GPRMC

012052

PATTM,24,0,17,0,10,YES

013052
031356
000037
000001
000033

016052
031247
000017
000000
000010
017052
031364
000037
000001
000033

020052
031215
177777
000001
004000
021052
031227

-1
TSLOLIM
TSHILIM

TSLOLIM
TSHILIM

GPRMD

CMO3M,26,0,37,1,33,YES

TSLOLIM
TSHILIM
T$4COOE

CcMO3M
37

TS$LOLIM
TSHILIM

GPRMO

T$CODE

BPCRM

GPRMD

NUMBM,32,D,-1,1,77777,YES

GPRMO

PATTM,34,0,17,0,10,YES

177777

000001
077777

BPCRM

T$COOE
PATTM

031247
000017

000000
000010

T$CODE

T$COOF
NUMBM
1

177777

000001
07777

015052
031227

030316

SEQ 0135

177777

030262
030264

4430 030320

F11

010052
031215

030260

030266
030270
030272
4428 030274
030274
030276
030300
030302
030304
4429 030306
030306
030310
030312
030314

18:32
GPRMD

014052
031215
177777
000001
004000

4427 030262

14 JUN-84

-1
TSLOLIM
TSHILIM

T$COOE
NUMBM
-1
T$LOLIM
TSHILIM
T$CODE
PATTH

TSLOLIM
TSHILIM

GPRMD

CMD4M,36,0,37,1,33,YES

T$C0ODE

CMD4M

37
T$LOLIM
TS$HILIM

GPRMD

T$CO0E

BPCRM

-1
TS$LOLIM
T$HILIM

GPRMD

T$CO0E
NUMBM

MACRO M1113

PARAMETER CODING

SOF TWARE PARAMETER CODING SECTION
030336
030340
030342
4432 030344
030344
030346
030350
030352
030354
4433 030356
030356
030360
030362
030364
030366
4434 030370
030370
030372
030374
030376
030400
4435 030402
030402

030404
030406
030410
030412
4436 030414
030414

030416

4437
4438

4439

4442

SEQ 0136

177777

000001

07177177

GPRMOD

PATTM,44,0,17, ,10,YES

GPRMD

023052
031372
000037

CMOSM,46,0,37,1,33,YES

000033

T4C00E

BPCRM

-1
TSLOLIM
TSHILIM

GPRMD

T4CO0DE

025052
031227

NUMBM

177777

000001
077777

GPRMO

026052
031247
000017
000000

031052
031227
1777717
000001
077777
032052

PATTM,54,0,17,0,10,YES

-1
TSLOLIM
TSHILIM
T$CO0E
PATTM

TS$LOLIM
T$HILIM

000010

030052
031215
177777
000001
004000

T$CO0E

37
TSLOLIM
TSHILIM

GPRMD

024052
031215
177777
000001
004000

076004

17
TS$LOLTM
TSHILIM

CHMOSM

000001

002004

1
TSLOLIM
TSHILIM
T4CODE
PATTM

022052
031247
000017
000000
000010

027052
031400
000037
000001
000033

444)

G1l1

14 JUN 84 18:32

XFER

ENDSP2

ENDSP1
:

XFER

ENDSP3

ENDSP2:

GPRMO

CcMO6M,56.,0,37,1,33,YES

T$CO0E
T$CO0E
T$CO0E

CMO6M

37
TSLOLIM
TSHILIM

GPRMD

BPCRM,60,0,

1,1,0ATCNT,YES

T$CODE

B8PCRM

GPRMD

NUMBM,62.0,-1,1,77777,YES

-1
TSLOLIM
TSHILIM

T$CO0E
NUMBM
-1
TSLOLIM
TS$HILIM

GPRMOD

PATTM,64,0,17,0,10,YES

T4CODE

PARAMETER CODING

MACRO M1113

SOF TWARE PARAMETER CODING SECTION

4443

4444

4445

4447

4448

4449

4450

030472
030474
030476
030500
030502
030502
030504
030506
030510
030512
030514
030514
030516
030520
030522
030524
030526
030526
030530
030532
030534
030536
030540
030540
030542
030544
030546
030550
030552
030552
030554

H11

14-JUN-84 18:32

031247
000017
000000
000010

PATTM

GPRMD

033052
031406
000037
000001
000033

CMD7TM,66,0,37,1,33,YES

CMO7M
37

GPRMD

034052
031215
177777
000001
004000

B8PCRM, 70,0,

1,1,DATCNT,YES

T4CO0E

GPRMO

GPRMD

036052
031247
000017
000000
000010

NUMBM,72,0,-1,1,77777,YES

PATTM,74,0,17,0.10,YES

T4CODE
NUMBM
-1
TSLOLIM
TSHILIM

GPRMD

037052
031414
000037

cMO8M,76,0,37,1,33,YES

TSLOLIM
TS$HILIM
T$CODE

CMO8M
37

000001
000033

GPRMD

040052
031215
177777
000001
004000

BPCRM,100,0,-1,1,DATCNT,
YES

TSLOLIM
TSHILIM

T$CODE

B8PCRM

GPRMD

041052
031227
177777
000001
o777 7?7

NUMBM,102,0,

1,1,77777,YES

-1
TSLOLIM
TSHILIM
T$CO0E

NUMBM
-1
TS$LOLIM
TSHILIM

GPRMD

PATTM,104,0,17,0,10,YES

T$COODE
PATTM

TSLOLIM
TSHILIM

000000
000010

043130
031257

-1
TSLOLIM
TSHILIM

T$CO0E
PATTM

07 1017

4452

TSLOLIM
TSHILIM

BPCRM

035052
031227
177777
000001
077777

022004

TSLOLIM
TOHILIM
T4CODE

042052
031247

4451

SEQ 0137

ENDSP3:

XFER

ENOSP

GPRML

TSMD,106,1,YES

T$CO0E
T$CODE
TSMO

MACRO M1113

PARAMETER CODING

SOF TWARE PARAMETER CODING SECTION
030630

000001

030632

016024

030634
030636
030640
4455 030642
030642
4456 030644

046130
031347

4453 030632

4454 030634

030644
030646
030650
4457 030652
030652
4458 030654
030654

4459

14 JUN-84

000001

011024

006024

044130
031310
000001

001004

4461
4462

18:32

SEQ 0138

XFERT

ENOSP

GPRML

FAST,114,1,YES

XFERT

ENDSP4

GPRML

WTBF,112.1,YES

045130

031327
000001

002004

4460

111

XFERT

ENDSP

GPRML

ROBF,110,1,YES

ENDSPS:

XFER

ENOSP

ENOSP4;

XFER

ENOSP

ENDSP:

.WORD

. WORD

T$CODE

. WORD
. WORD
. WORD

T$CO0E
FASTY

.WORD

T$CO0E

.WORD
. WORD
.WORD

T$CODE
WTBF
1

.WORD

T$C0O0E

.WORD
. WORD
. WORD

T$CODE
RDBF
1

.WORD

T$COOE

.WORD

T4CO0E

ENDSFT

.EVEN
4463
4464
4465

4467
4469
4470
4471
A7
4473
4474
4475
4476
4477
4478

4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491
4492

.EVEN
030666
030705
030734
030760
031010
031041
031064
031105
031131
031162
031207
031215
031227
031247
031257
031310
031327
031347

103
122
110

031356
031364
031372
031400
031406

103
103
103
103
103

114
105
101
101
122
111
116
110
116
110
115
122
040
101
105
105
122

115
115
115
115
115

NLIST
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

105
123
114
111

123

M: .ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

110
101
110
101
104
106

117
124

106
101
111 060

104
104
104
104
104

CMO3M:
CMD4AM:
CMDSM:
CMD6M:
CMD M:

BEX

/CLEAR COUNTERS/
/RESET RANDOM VARIABLES/
/HALT AFTER EACH CMD/
/BAD TAPE SPOT DETECTION/
/PRINT RECPVERABLE ERRORS/
/DISABLE INTERRUPTS/
/INHIBIT RECOVERY/
/CHANGE CMD SEQUENCE/
/INHIBIT RFC ERROR REPORT/
/CHARACTERISTICS CODE/
MC"D/ZM

/BRF COUNT/
/78 OF OPERATIONS/
/PATTERN/
/DEFAULT SWITCH SETTINGS?/
/READ BUFFERING/
/WRITE BUFFERING/
/100IPS/

LIST
.EVEN

BEX

.NLIST
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

8EX
"CHD/3*
"CMD/4"
MCM/S "

NCHO/6M
!C"D/?u

MACRO M1113

PARAMETER CODING

SOF TWARE PARAMETER CODING SECTION
4493 031414
4494
4495

103

115

14-JUN-84
104

J11

18:32

(CMD8M:

SEQ 0139

.ASCIZ
.L1ST
.EVEN

~“CMD/8"
BEX

4496

4497
4498
4499
4500
4501
4502

(000000 800000000000008000000008000000000000004080000000000800080008088088028
(085000000000 0000000000080000002000404000000000000400048400088408888828¢

DESCRIBED IN

4503
4504
4505
4506 031422

4507
4509
4511
4512 032000

032000
032002
032004
4513 032004
4514
451S

PATCH AREA

AND AN ADJUSTMENT

PATCH::

4527
4528
4529

THE

"“LLASTAD BIT7" HACK

64,

LASTAD

000000

LS$LAST::

.S8TTL

.EVEN
. WORD
.WORD

4)
0

. WORD
. WORD

0
L10044

ENOMOD
HARD CODED P-TBL

:DIAG IS PRE-PARAMETERIZED PER TBL

4521 032004
4522 032004

4526

.BLKW

FOR

(FOR REV C).

.=, 137741

032000

4516
4517
4518
4519

4523
4524

TO ACCOUNT

"SUPPRG.MEM”

032004
032006
032010
032010
032012
032014
032016
032016
032016

BGNSETUP 1
BGNPTAB

000003
172522
000224

L10042:

L10044:
000001

.END

172522
224

¢
ENDPTAB

ENDSETUP

./2-1

IK11
PARAMETER CODING

MACRO M1113

ACK.C = 100000 G
ADR
= 000020 G
ALLEOT 003524 G
ASSEMB= 000010
ATTNM
004603 G
AUDRPM 005114 G
AUDRUN 005146 G
AUTODM 023604
BADTM
030760
BADTSW 002210 G
BENBSW 002324 G
BFSEQ
025050 G
BFSEQO 025074
BFSEQ1 025146
8FSEQ2 025160
BFSEQ3 025252
BFSEQ4A 025324

BTADDR 002616 G
B8TMSG1 015112
BTMSG2 015177
BTMSG3 015247
8TPT
003512 G
BTRPT
020164 G
810
003046 G
871
003120 G
872
003172 G
8r3
003244 G
CHAR
002220 G
CHARM
031162
CHGFLG 002214 G
CHGM
031105
CHKERR 013210 G
CH.EAI= 000040 G
CH.ERI= 000020 G

SYMBOL TABLE

BFSEQS
BFSEQ6
BFSEQ7
BFSEQ8
BFSEQ9
BFSE10

025366
025440
025512
025544
025576
025620

CH.ESS=
CKDATA
CKDCNT
CKDFF
CKHAE
CKHRTN

000200 G
016466 G
017076
017100
017500 G
017566

CLRM

030666

G
G
G
G

CMDLG
CMOPKM
CMOPKT
CMDSAV
CMDSEQ
CMDSE2

002330
003422
003540
003550

G
G
G
G
G
G
G
G
G

CMDWRD
CMD.CO=
CMD.Cl=
CMD.C2=
CMD.C3=
CMD.C4=
CHO2M
CMO3M
CMDAM

BGNFLG= 003460
BINC
016052
BITO
= 00G001 G

8IT00 = 000001 G
=
=
=
=
=

G
G
G
G
G

CMDAC
CMDASC

8IT1

= 000002 G

CMDTBL

8IT10
8IT11
8IT12
BIT13
B8IT14
BIT15
8IT2
B8IT3
BIT4

=
=
=
=
=
=
=
=
=
=
=
=
=

BITS
=
8176
=
8IT7
=
81718
=
81719
=
B0E
=
BORERS
8PCRM

000100
000200
000400
001000

002000
CO4000
010000
02000C
040000
100000
000004
000010
000020

000040
000100
000200
000400
001000
000400
015316
031215

G
G
G
G
G
G
G

BRCPK
002344 G
BRFCNT 003416 G
BRF.C = 004000 G

CMOSM
CMD6M
cMOTMM
cMD8M
CNTBGN=
CNTEND=
CNTLEN+=
CODELM

011064
004040
002222
003426
004346

CP.CNT= 000006 G
CRLF
005741 G
CRLFSP 005744 G
CTCC
003450 G
CvC.C = 040000 G
C$AU = 000052
C$AUTO= 000061
C4BRK = 000022
C$8SEG= 000004
c4s8SUB= 000002
C4CEFG= 000045
C$CLCK= 000062
CS$CLEA= 000012
C$CLOS= 000035
C4CLP1= 000006
C$CVEC= 000036
C$OCLN= 000044
C$000U= 000051
CS$DRPT= 000024
000053
000003
000055
000056
000060
000054
000057
000010

G
G
G
G

C4GETW=
CS$GMAN=
CSGPHR=
C4GPLO=

000027
000043
000042
000030

G
G
G
G
G
G

C$INIT=
C$INLP=
C$MANI=
C$MEM =
C$MSG =
CS$OPEN=
C4PNTB=
C¢PNTF=
CS$PNTS=

G
G
G
G
G

003752 G
003420
000001
000002
000004
000010
000020
031207
031356
031364

SEQ 0140

C$OU =
C$EDIT=
C$ERDF=
CSERHR=
C$ERRO=
C$ERSF=
C4ERSO=
C$ESCA=

CLN
= 101012 G
CLRERR 012664 G
CLRFLG 002204 G

B8IT01
81702
8IT03
8IT04
8ITOS

BIT06
BITO7
BITO8
BITO09

000002
000004
000010
000020
000040

14-JUN-84 18:32

031372
031400
031406
031414
002626
003376
000550 G
004162 G

CP.ADH= 000004 G
CP.ADL= 000002 G
CP.CMD= 000000 G

C$ESEG=
CS$ESUB=
CSETST=
CS4EXIT=
C$GETB=

000005
000003
000001
000032
000026

C$GPRI= 000040

C4PNTX=
C4QI0 =
C$RDBU=
CSREFG=
CS$RESE=
CS$REVI=
CS$RFLA=
C$RPT =

000011
000020
000050
000031
000023
000034
00C014
000017
000016

000015
000377
000007
000047
000033
000003
000021
000025

C$SEFG= 000046
C$SPRI= 000041
C$SVEC= 000037

C$TPRI=
DATARD
DATAWT
DATCNT=
DATERM
OEVTBL
OFPTBL
DFTSCH=
DIA
=
ODIABLK=
DIACNT=
OIAGMC=
OINT
OINTM
OLY
=
OLY.C =
ORI
=
DROPDM
DROPED
OROPN
DROPU
DROPUA
DRORTN

000013
003410 G
003406 G
004000 G
005752 G
002604 G
002174 G
000040 G
100006 G
003406 G
000020 G
000000
002212 G
031041
000020 G
000020 G
100013 G
005065 G
00352¢ G

EXPBOT 003514 G
EXSUB
010524 G
EXTFEA 002322 G
ES$END = 002100
ES$LOAD= 000035
FAST
031347
FATSM
004642 G
FIRSTU 017102 G
FMT.CO= 000040 G
FMT.Cl= 000100 G
FTLCNT 003366 G
FUNRM
004622 G
F$AU = 000015
F$AUTO= 000020
F$BGN = 000040
F$CLEA= 000007
F$OU = 000016
FSEND = 000041
F $HARD= 000004

005360
000036
000040
000035
000034

F$SEG =
F$SOFT=
F$SRV =
F$SUB =
F$SW
=

DTAER4

017410
017200 G
017324
017402
005752 G
005226 G
005275 G
005337 G

EF .RB0=
EF .RES=
EF .RWB=
EF .STA=

000020
000037
000030
000040

DTAERM
DTAER2
OTAER3
OTAERS
EF .CON=
EF .HSS=
EF .NEW=
EF .PWR=

EINC

END
=
ENDERF=
ENDFLC=
ENDOSP
ENDSP1
ENDSP2
ENDSP3
ENDSP4
ENOSPS

EOTFLG
ERCVER
ERLOG
ERRREC
ERS
=
ERSFLG
EVL
=
EXALL

EXARTN
EXCRTN
EXCUTE

016060

G
G
G
G
G
G
G
G
G

177777 G
003472
003526
030666
030430
030432
030624
030664
030662

003502
002207
003466
003471
100411
003525
000004
010226

G
G
G
G
G
G
G
G

010522
012362
012054 G

F$HW =
F$INIT=
FsJP =
F$MO0 =
F$MSG =
F$PROT=
F$PWR =
FS$RPT =

000013
000006
000050
000000
000011
000021
000017
000012

F$TEST=
GCMDA
GENPAT
GES
=

000001
011136 G
011556 G
100017 G

GETSTM

GIT
GOWAIT
GSCPK
GS$CNTO=
GS$DELM=
G$0ISP=
GS$EXCP=
G$HILI=
GS$LOLI=

000003
000005
000010
000002
000014

005507 G

012050
012364 G
002340 G
000200
000372
000003
000400
000002
000001

G¢NO
= 000000
G$OFFS= 000400
G$OFSI= 000376
G$PRMA= 000001
G$PRMD= 000002
G$PRML= 000000
G$RADA= 000140
G$RADB= 000000

G$RADD= 000040
G$RADL= 000120
G$RADO= 000020

153624
026160
003515
000007
026220
003434
032561
026444
026332
026356
026416

SCCNT
SCERM
SCH
=
SCHBK
SCHCNT=
SEQEND
SETCH
SETDEF

o
O
o0

QOO0
QOOACOHOOOAONOOOOOOOO
OO0

RPR
=
RPTCNT
RPTFLG
RPT1A
RPT18
RPT1C
RPT1D
RPT'E
RPTLYF
RPT]
5
RPTLI
RP
"J
RP 1K
RRANV
RRBC
RRECL =
RRREC
RRUNR
RRVM
RTLE
RTLRTN
RWCPK
RWD
=
RWERR
R5SAVE

026370
031010
031310
002314
104001
104401
003376
003465
007066
010064
013020
005017
003460
015472
002726
004521
003026
003036
004556
125401
177740
105401
00475TM
105001
125001
003462
003517
020432
020507
020560
020631
021057
020735
021006
021203
021107
021174
002205
002666
000020
003006
003016
030705
014510
0145634
002350
102010
003467
003452
003336
004475
142004
002474
000012
003740
010162
007766

003424
002216
001000
002000
000000
000040
000100
000140
000200
000240
000300
000340
017412
0c7612
003527
003432

RALTM
RCVERM
ROBF
ROBUF
ROF
=
ROR
=
RECCNT
RECLOG
RECRED
RECTAP
RECUD
RERM
RETRYC
REWRT
RFBC
RFCERM
RFREC
RFUNR
RLEXM

OOOOOOOOOOOO

031247

OOOOOOOOOOOO

T AT AT AT I AT T A AT AT AT T AT AT AT AT AT AT A T A
AT A T AT AT AT
AT AT

PASCNT
PATCH
PATERN
PATRO
PATR1
PATR2
PATR3
PATR4
PATRS
PATR6
PATR?
PATRS
PATTBL
PATTM
PCMOWD
PIRE
PNT
PRI
PRIOO
PRIOL
PRIO2
PRIO3
PRIOA
PRIOS
PRI06
PRIO?
PRXST
PTCMDS
PWRFLG
RANB
RANBC =
RANCMO
RANOOM
RANP
=
RANRD
RANS
RANSC =
RANW
RANWR
RANWV
RASFR

000010
000012
000014
000016
177740
003412
003414
030130
017150
177774
005543
004670
023700

oPP.C O$APTS»
O$AU
=
O$BGNR=
O0$BGNS=
otoVU
O$ERRT=
O$GNSW=
O$POIN=
O0$SETY=

004536
031227
005422
005456
000001
003536
020000
000000
000001
000001
000001
000001
000000
000001
000001
000000
003326
031422
003446
011642
011700
011720
011730
011754
011766
012000
012020
012052
011620

OO0

003531

NSSRM
NUMBM
NURTY1
OF LINM
ONEF
IL =
OPFLAG

OOOOOOOOOONOOHOOONONOOOOE

002112
002062
002010
017570
030062
002056
002020
002024
002030
002204
002114
002014
002012
002202
00232€
006116
007070
010040
010046
010054
010062
021314

023312
023602
023776
024050
024154
025642
024370
024414
024434
024454
024474
024514
024534
024554
024574
024614
024652
025036
026476
026672
027052
027750
030060
030656
032010
032016
100012
007466
023210

021316

L $HPCP
L$HPTP
LéHd
L$ICP
LSINIY
L $LADP
LSLAST
L$LOAD
LS$LUN
L$MREV
L $NAME
L$PRIO
L $PROT
LS$PRT
L $REPP
LS$REV
LS$RPT
L$SOFT
L$SPC
L$SPCP
L$SPTP
L$STA
L$SW
L$TEST
LeTIML
LSUNIT
L10000
L10001
L10002
L10003
L 10004
L 10005
L 10006
L10007
L10010

L10012
L10013
L10014
L10015
L10016
L10017
L 10020
L10021
L10022
110023
L 10024
L10025
L 10026
L10027
L10030
L10031
L10032
L10033
L10034
1.10035
L10036
L 10037
L 10040
10041
L10042
L10044

Il A ATl

O
COOOOOO
212121217
o0

031131
= 000100
IXE
= 004000
ISAU
= 000041
I$AUTO= 000041
I$CLN = 000041
IOV
= 000041
I$HRD = 000041
I$INIT= 000041
I$MOD = 000041
I$MSG = 000041
I$PROT= 000040
I$PTAB= 000041
I$PWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU= 000041
I$SFT = 000041
I$SRV = 000041
I$SUB = 000041
I$TST = 000041
JLOC
003444
JLOOP
003442
= 000040
J
JP.C = 000040
JESMP = 000167
LENMSK
003430
LOE
= 040000
LOG
015566
= 000010
Lot
L $ACP
002110
L$APT
002036
024052
L $AU
L$AUT
002070
L $AUTO
023314

OOOONOOOOO

IREM
ISR

LS$EXPS
L $HARD
L$HIME

002106
023736
002032
002011
002136
002076
002060
002124
002116
002040
002034
024000
002072
002164
002052
002044
002102
002046
002064
002066
027754
002120
002016
002022
002174
002104
021324
002026
032004
002100
002074
002050
002000
002042

SEQ 0141

L$CCP
LS$CLEA
L$CO
L $DEPO
L $DESC
L $DESP
L $DEVP
L$DISP
L$OLY
L$DTP
L$OTYP
L$OV
L$OUT
L$OVTY
L $EF
LSENVI
LSETP
LSEXP1
L $EXP4

18:32

121

G$XFER= 000004
GS$YES = 000010
002206
HAE
030734
HAEM
004306
HALTM
= 000000
HELP
HOE
= 100000
003356
HROCNT
002320
HSSHW
010000
IBE
¢00040
IDV
020000
IER
000200
IE.C
021324
INIT10
021622
INIT1S
021642
INIT1®
003472
INTFLG
INTPRI= 000340
007724
INVRT
003521
IRE
002213
IREC
031064
IRECH

14 JUN-84

N 1alal~l~l

MACRO M1113

PARAME TER CODING
SYMBOL TABLE

L11

PARAMETER CODING

MACRO M1113

SETRW
SETUP
SFF
=
SFPTBL

010206 G
011172 G

TRAP4
TSAM

SOFINI
SRF
=
SRR
=
STAERM
STAERL

007072 G
104010 G
104410 G
006120 G
006436

SYMBOL TABLE

SFR

= 105410 G

TSC.TC= 177761 G

TSDB
TSMD
TSNP
TSSR
TSSREG

STAER2
STAER3
STAER4
STAERS
STAER6
STAER?
STAFLG
SVCGBL=

006616
006675
006733
006753
006562
006530
003526 G
000000

TSUNT
TSVCT
T5.A16=
TS.A17=
TS.NBA=
TS.NXM=
15.0FL=
TS.RMR=

SVCSUB=
SVCTAG=
SVCTST=
SWBFLG
SW8.C =
SWSET

000000
000000
000000
003520 G
010000 G
004231 G

1S.SPE=
7S.SSR=
TS.UPEs
TSIMD
TSSADR
TSSCL

TCCRA
TCCO
TCC1
TCC2

013414
013434 G
013452 G
013470 G

SVCINS= 000001

TRAPD4

ABS.

013600
012616
014232
014330
014472

013576
003436 G

T$FREE= 032016
T$GMAN= 000000
T$HILI= 000010

032016

000

ERRORS DETECTED:

001

VIRTUAL MEMORY USED:

ELAPSED TIME:

002574 G
030036
030027
000003
001004

G
G
G
G

T$FLAG= 000041

004453 G
004727 G
003530 G

OYNAMIC MEMORY:

TSSSW
TSSUNT
TSSVCT
T$ARGC=
T$CODE=

010034
010042
010050
010056

TS$ERRN= 000002
TSEXCP= 000000

003440 G

000000

TSSINT

TSSINO
TSSIN1
TSSIN2
TSSIN3

G
G
G
G
G

002514 G
031257
003534 G
002524 G
003454 G

003532 G
002534 G
000400 G
001000 G
002000 G
004000 G
000100 G
010000 G
100000 G
020000 G
000200 G
040000 G
002312 G
030012
002564 G
002554 G

75.SC =

S$LSYM= 010000

TCC3
TCC4A
TCCS
TCC6
TCC7
TC2RTN
TIMEL
TIME2
TOERM
TOOMM

14 JUN-84 18:32

023730 G
004705 G
TSBA = 002514 G
1SC.FC» 177717 G

105010 G
002204 G

26207 WORDS

20614 WORDS

00:17:01

(

M11

(

103 PAGES)

79 PAGES.

CVYSEC,CVTSEC/-SP=SVC/ML, TSVL1E,CVTSEC. SRC

T$LAST= 000001
T$LOLI= 000000

T$LSYM= 010000
TSLTNO= 000005
TSNEST= 177777
TNSO = 000000
TSNS1 = 000005
TINS2 = 000002
T$PCNT= 000000
T$PTAB= 010043
T$PTHV=
T$PTNU=
T$SAVL=
T$SEGL=
T$SIZE=
T$SUBN=
T$TAGL=
T$TAGN=

T$TEMP=

T$TEST=
T$TSTM=
T$TSTS=
T$$AU =
T$$AUT=
T$$CLE=
T$4DAT=

T$$0U =
T$$HAR=
T$4HW =
T$$INI-

T$4MSG=
T$$PC =
T$$PRO=
T$$PTA=
T$$RPT=
T$$SOF=
T$$SRV=

T$$5UB=

T$$SW =
T$4TES=

SEQ 0142

1
TISWB

T1.1
71.10
T1.11
T1.12
T1.2
T1.3
T1.4
T1.5

000001
000001
177777
177777
000005
000000
177777
010045
000000
000005
177777
000001
010016
010013
010014
010044

T1.6
T1.7
T1.8
T1.9
T2
T3
T4
15
TSWEOT
UAM
=
UNIWLK
UNL
=
UNREC
URERM
VFEXC
VFISU

010003
000001
010011
010043
010010
010041
010007
010033
010001
010037

WAITF
WLKCHK
WLKZRO
WRBC
WRECL =
WRR
=
WRREC
WRT
=
WRTCHK
WRTCHR

010015
010040
010000
010012

VFYCNT
VFYDAT
VFYFLG
VFY.C =

024156 G
003523 G
024166
024576
024616

024702
024372
024416
024436
024456

024476
024516
024536
024556
025644 G
026500 G
026674 G
027054 G
027634 G
000200 G
005653
100412 G
003470 G
005041 G
016152 G
016400 G
003346
016066
003516
000100

007204
007356
011734
002626
000020

G
G
G
G
G
G
G
G

105005 G
002766 G

104005 G

007270 G
007436 G

WRTY
WRTYCT
WRTYER
WRTYFG

014636 G
003316 G

MTH
«
WTMFLG
WTR
=
WTV
=
WTVERM
WTYBRF
WTYCMD
WTYWRD
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
X0.80T=
X0.EOT=
X0.LET=
X0.ONL=

100011 G
003456 G
101011 G
104105 G
004430 G
015110
015104
015106

X2.8FE=
X2 .EFE=
X2.0PM=
X3.DCK=
X3.RNY=
X4 .HSS=
X4 .RCE=
ZROPAT
SLSTIN=
$LSTTA=

000160
000200
100000
000010
157400

003464 G
003463 G
WRUNR
002776 G
WSM
= 140006 G
WSMBK
002506 G
WSSR
012700 G
WTBF
031327
WTBUF
002316 G

X0.RLL=
X0.RLS=
X0.TMK=
X0.WLK=

000000

000040
000400
000020
000002 G
000001 G
020000 G
000100 G
010000
040000
100000
000004

G
G
G
G

G
G
G
G
G

100000 G
040000 G

011704
000001
000001