Digital PDFs

AH-T179D-MC

September 1987

143 pages

Original

6.7MB

view download

OCR Version

5.8MB

view download

Document:	CVTSED0 TSV05 TSV05 DATA REL SEP 1987 bw
Order Number:	AH-T179D-MC
Revision:	000
Pages:	143
Original Filename:	CVTSED0__TSV05__TSV05_DATA_REL__AH-T179D-MC__SEP_1987_bw.pdf

OCR Text

TSV05 DATA REL

CVTSEDO

AH-T179D-MC

10F1 SEP 1987

nan
MADE IN USA

SEQ

TSVOS DATA RELIABILITY

MACRO VOS.03

Fridsy 22-May-87 08:12

Page 2

.REM

;

IDENTIFICATION

9
10

PRODUCT

ID:

AC-T178D-MC

PRODUCT

TITLE:

CVTSEDO TSVOS DATA RELIABILITY

PRODUCT

DATE:

4-NN-87

MAINTAINER:

CSS/PGG DIAGNOSTICS

AUTHOR :

DICK GORDON

29
30

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO
CHANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL

RESPONSIBILITY FOR

EQUIPMENT

CORPORATION.

ANY

DIGITAL

ERRORS

EQUIPMENT CORPORATION ASSUMES NO

THAT

34
35
36

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT

THE FOLLOWING ARE

42
43

OIGITAL
DeC

AFFILIATED COMPANIES.

1983,

APPEAR

THE
USE
SUPPLIED

IN THIS

OR
BY

DOCUMENT.

RELIABILITY
OF
DIGITAL
OR ITS

1987 BY DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF

PDP
DECUS

MAY

DIGITAL

UNIBUS
DECTAPE

EQUIPMENT

CORPORATION:

MASSBUS

000

TSVOS DATA RELIABILITY

MACRO V0S5.03

Friday 22 May-87 08:12

Page 3
SEQ 0002

usen DOCUMENTATION TABLE OF CONTENTS

Te
T o

52
53
5S4
SS

GLOSSARY

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

1.1.1

1.1.4

61
62

1.1.2
1.1.3

FUNCTIONAL DESCRIPTION

STRUCTURE OF PROGRAM
MEMORY MAP
DIAGNOSTIC INFORMATION

1.1.4.1 SCOPE

1.1.4.2 ERROR RECOVERY

1.1.4.3 WRITE ERROR RECOVERY

1.1.4.3.1

68
69

1.1.4.3.2

MEDIA/OPERATIONAL

SELECTIVE WRITE ERROR-RECGVCRY
OPERATIONAL WRITE-ERROR-RECOVERY

1.1.4.4 DIAGNOSTIC TIMING ADJUSTMENT

1.2

74
;2

SYSTEM REQUIREMENTS

1.2.1
1.2.2

HARDWARE REQUIREMENTS
SOFTWARE REQUIREMENTS

1.3

READ NEXT

REVERSE,

READ NEXT FORWARD,
READ PREVIOUS FWD,
READ PREVIOUS REV,

814
815
816
817

WRITE RETRY,

IE.

IE.
IE.
IE.

SPACE FWD,

READ REV.

READ FWD, SPACE
SPACE REV, READ
READ REV, SPACE

REV.
FWD.
FWD.

REWIND.

818

MESSAGE BUFFER RELEASE.
WRITE TAPE MARK.
WRITE TAPE MARK RETRY,
SPACE FILES FORWARD.
SPACE FILES REVERSE.
GET EXTENDED STATUS.
ERASE 3 INCHES OF TAPE.
UNL OAD .

819
820
821
822

823
824
825
826

CLEAN TAPE
SET DEVICE CHARACTERISTIC.

WHERE BRF =200

200= ENABLE SKIP TAPE MARKS STOP (STOPAi LCIiICAL EOY)

ENABLE ATTENTION INTERRUPTS.
ENABLE MESSAGE BUFFER RELEASE INTERRUPTS
SEE TSV0S/T7S0S PROGRAMMING SPECIFICATION FOR DESCRIPTION.
JUMP TO THE NTH COMMAND
IN THE COMMAND SEQUENCE
TABLE, WHERE N IS DEFINED IN THE BRF FIELD.

THE

NUMBER

THE

DLY

DELAY

END

END OF

JUMPS

IS ENTERED

IN THE

& OF

“N* MILISECONDS WHERE N IS DEFINED IN

OPERATIONS FIELD

OPERATIONS.

COMMAND SEQUENCE.

DATA PATTERN LIST FOR USE IN SOF TWARE DIALOGUE.
PATTERN

DESCRIPTION.

Y o)

2.2.2

=
=

INCREMENTING PATTERN.,
O - 377,
ALL "1*'S PATTERN.
ALL “0“'S PATTERN,
“1* BIT WALKING FROM R TO L IN A FIELD
OF "0"'S.
0" BIT WALKING FROM R TO L IF A FIELD N 1" S.
ALTERNATING “1* AMD “O*
BITS UITH ALTERNATE BYTES COMPLIMENTED.
ALTERNATING BYTES OF 000 AND 377

[+ RNT- JV.F YV 1V

COoDE

RANDOM DATA PATTERN,
NO

PATTERN GENERATION.

TSVOS DATA RELIABILITY

854
855
856
857

MACRO V0S5.03

Fridey 22 Mey

2.3

08:12

EXAMPLES OF

Page

SEQ 0017

SOF TWARE DIALOGUE
CHANGE MW (L)
OUNITS
TSDB

(D)

ADORESS

VECTOR

(0)

(0) 224

172520

SELECT DRIVE 0-1

(0)

IN ADOITION, ON A START, RESTART
CHANGES TO THE SOFTWARE

OR CONTINUE THE SUPERVISOR
OPERATING PARAMETERS, AS

REQUE STS
FOLLOWS:

CHANGE SW (L)

2.3.1

BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED

A)
8)
C)
o)

RECEIVE PROMPT (DR>)
ENTER STA/TES:1-2<CR>

ANSWER HARDWARE QUESTIONS.
PROCEED WITH THE FOLLOWING DIALOGUE:

CHANGE SW (L)

CLEAR COUNTERS (L) N

RESET

RANDOM

Y<CR>
?

VARJABLES

(L)

PRINT RECOVERABLE ERRORS
HALT

AFTER EACH CMD

(L)

(L) N
?

Y<CR>
?

INHIBIT RECOVERY (L) N ?
BAD TAPE SPQOY DETECTION (L) Y ?
DISABLE INTERRUPTS (L) N ?
INHIBIT RFC ERROR REPORT (L) N ?
CHANGE CMD SEQUENCE (L) N ?
DEFALLT SWITCH SETTINGS (L) Y ?

2.3.2

<CR>

Y<CR>»

<«CR>

710 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 OIALOGUE:

CHANGE SW (L) ?
CLEAR COUNTERS (L) N ?
RESCT RANDOM VARIABLES (L) N ?
PRINT RECOVERABLE ERRORS
(L) N ?

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

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

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

HALT

AFTER EACH CMD (L) N

N<CR>

TSVOS NDATA RELIABILITY

MACRO V0S5.03

Fridey 22-May

87 08:12

911
912

218

S-1

SEQ 0018

INHIBIT RFC ERROR REPORT (L) N
CHANGE CMD SEQUENCE (L) N ?

913

gig

Page

DEFAULT SWITCH SETTINGS (L) Y ?
2.3.3

918

B8)

355

920

RECEIVE PROMPT

(DR>)

ANSWER HARDWARE QUESTIONS.

PROCEED WITH THE FOLLOWING DIALOGUE:

923
924
925

CHANGE SW (L) ?
CLEAR COUNTERS (L) N ?
RESET RANDOM VARIABLES (L) N

926

PRINT RECOVERABLE ERRORS

930

DISABLE INTERRUPYS (L) N ?

927
928
929

931

CHANGE CMD SEQUENCE (L) N ?
CHARACTERISTICS CODE (0) 40

93S

BRF

937
938
939

PATTERN (D) 7 2
CMO/3 (D) S ?
BRF (D) 2048 ?

934

CMD/2 (D) S ?

936

(D) 2048

® OF OPERATIONS (D) 10 ?
PATTERN (D) 7 ?
CMD/4 (D) S ?

3‘42

BRF

945

2.4 EXECUTION TIMES

949
950

2.4.1

(D) 2048

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

N<CR>

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

Y<CR>

Y<CR>
40<CR>

13<CR>
1<CR>

(REWIND)

1<CR>

1<CR>
4<CR>
1000<CR>

10000<CR>
1<CR>
27<CR>
<t2>

(WRITE)

(END)

SYSTEM CONFIGURATION
cee
e
emee aeee.s

952

POP11/23

954

LA36

MOS MEMORY
TSV0S/T1505

2.4.2

TEST EXECUTION TIMES

961
962
963
964

TEST
TEST
TEST
TEST

967

NOTE:

322

COUNT

¢ OF OPERATIONS (D) 10 ?

949
941
942

960

INHIBIT RFC ERROR REPORT (L) N ?

932
933

95S
956
957
323

(L) N ?

HALT AFTER EACH CMD (L) N ?
INHIBIT RECOVERY (L) N ?
BAD TAPE SPOT DETECTION (L) Y

953

<CR>

ENTER STA/TES:S/FLA:IER:ISR:IDU/EOP:1000<CR>

951

Y<CR>
N<CR>

T0 SET UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY

919

946
947
948

TEST

(2400 FT.

TAPE)

1 - BASIC FUNCTIONS - 30 SECONDS PER PASS.
2 - DATA RELIABILITY - 45 MINUTES PER PASS.
3
WRITE COMPATABILITY - 20 MINUTES PER PASS.
4
READ COMPATABILITY - 20 MINUTES PER PASS.
S

RANDOM/OPERATOR

SELECTED SEQUENCE

-20 MINUTES PER PASS.

ALL EXECUTION TIMES ARE SHOWN FOR ONE DRIVE OPERATION.

TSVOS DATA RELIABILITY

968

MACRO V0S5.03

Fridasy 22 May-87 08:12

393

3.0 ERROR INFORMATION

971
972
973

3.1

974

975
976

3;;

Page

5-2

SEQ 0019

ERROR REPORTING
e

e e emmmea

ALL

ERROR REPORTS EXCEPT FOR ERRORS o1

OF THE FOLLOWING INFORMATION:

AND 017 INCLUDE A DUMP

979
980
981
982

ERROR &, TEST 0, SUBTEST #, PROGRAM COUNTER, UNIT o,
COMMAND. PREVIOUS COMMAND, PASS COUNT, 0 OF
RECORDS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET,
TCC, TSBA, RFC,
AND THE EXTENDED STATUS REGISTERS

ggg

STANDARD ERROR REPORT FORMAT:

ggz

TSSR,

(SEE 2.3.i4.1 FOR LIST OF COMMANDS).

987
988
989
990
991
992
993

CVTSE SFT ERR XXXOXXX
TST XAX
SUB XXX
PC: XXXXXX
(ASCII ERROR MESSAGE)
XXX CMD FAILED - UNIT X
PASS: XXXXX
RECORD: XXXXX
PREVIOUS CMD WAS
XXX
« RECORD READ: XXXXX
CMOPKT
TSBA
RFC
TSSR
TCC
WX
AUAUAA
XAUAXAX
XA
X
AXAAXX

995
996
ggg

XXXXXX
XSTO
AAUXAXN

994

AXAXXX

XST1
XUAXXN

999

iggg

1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
igii

igiz

1017
1018
1019
1020
1021
1022
1023
1024

XST2
XN
+

XST3
XUXAUAX

CAUTION

XST4
XXX

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

EXAMPLE OF

A PRINT

THE RECORD

COUNT

WHEN HALTED.

AN ERROR REPORT:

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

TSVOS DATA RELIABILITY

MACRO V05.03

Fridey 22-May-87 08:12

Page S5-3

SEQ@ 0020

000371
XSTO

XST1

000350
ERROR

000002

COMMAND PACKET

xST2

XST3

100004

ADDRESS NOT

XST4

000000

040055

ON A MODULO 4 BOUNDRY:

IF THIS ERROR IS REPORTED, THE PROGRAM DID NOT LOAD PROPERLY.
(Tlggfs!Eé§ ?TSYSTEH FATAL ERROR AND THE PROGRAM MUST BE RELOADED TO

ERROR

¢2

TSOS NOT

READY:

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

THE

NOT

READY

ERROR,

THIS

&H$I8§V§55Ugébl. BE DROPPED FROM THE

ERROR

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 DEVICEF WILL BE DROPPED FROM THE TEST SEQUENCE
UNLESS THE IDU OPTION IS USED.
ERROR 04

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.
SPECIAL

IF,

AND
IDU

CONDITION ERRORS:

DURING EXECUTION,

AN INCIDENT OCCURS FORCING THE TSSR

SPECIAL CONDITION BIt TO SET, THE PROGRAM WILL SELECT ONE OF

goggROR HANODLING ROUTINES,

DEPENDING ON

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

.5.1 ERROR 05
THE
AND

TERMINATION CLASS CODE O,

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

.5.2 ERROR 06
THIS

TSSR

TCC

TERMINATION CLASS CODE 1,

INDICATES

THAT

THE DRIVE

THE

TERMINATION

ARE

PROCESSED

UNDEFINED SPFCIAL

CLASS

AS FOLLOWS

CONDITION

IS LOGGED

ATTENTION CONDITION

HAS UNDERGONE

STATUS

CHANGE

TSVOS5 DATA RELIABILITY

1082

1083

1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097

MACRO V0S5.03

Friday 22 May 87 08:12

Page S 4

SEQ 0021

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

IDU OPTION IS

3.1.5.3 ERROR 47
A

STATUS

USED.

TERMINATION CLASS

CODE 2,

TAPE

CONDITION HAS BEEN ENCOUNTERED

TO THE PROGRAM.

BITS OF

INTEREST

STATUS

THAT

MAY

INCLUDE TMX,

ALERT
HAVE

RLS.

ACTION TAKEN DEPENDS ON THE TEST BEING EXECUVED.
IF

THE CONDITION IS UNEXPECTED,

HARD

ERROR

3.1.5.4 ERROR 08
THE

RMR,

LOGGED.

THE

FUNCTION WAS

ILC,

NOT

WLE,

RLL,

PROCEEDS

FUNCTION REJECT

INITIATED.

OFL,

VCK, BOT,

ILA,

TERMINATION CLASS CODE 4,

NORMALLY.

AND NBA,

BITS

INTEREST

THIS IS A FATAL

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST
UNLESS THE IDU OPTION IS USED.

31.5.5 ERROR

TAPE POSITION IS
THE FUNCTION WAS

ONE RECORD
INITIATED.

EOT.

THE ERROR IS REPORTED AND

PROGRAM

TERMINATION CLASS CODE

SPECIFIED

SIGNIFICANCE

LET,

ARE

CYCLE

RECOVERABLE ERROR

BEYOND WHAT 1TS POSITION WAS WHEN
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
TAPE

010

TERMINATION CLASS CODE

POSITION HAS

NOT

CHANGED.

RECOVERABLE ERROR

RECOVERY

PROCEDURE

LOG

THE

ERROR AND RE ISSUE THE ORIGINAL 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.7 ERROR

011

TERMINATION CLASS CODE 6,

TAPE POSITION HAS BEEN LOST.

REWIND

AND

START

QVER

BOT

THE

ONLY

UNLESS

UNRECOVERABLE ERROR

THE

VALID RECOVERY PROCEDURE
TAPE

HAS

LABELS

NUMBERS.
RETRY THE

DEVICE

3.1.5.8 ERROR

SEQUENCE

IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND
COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

@12

TERMINATION CLASS CODE

FATAL

SUBSYSTEM ERROR

THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE.
REFER 70 THE
FATAL CLASS COOt FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR
MATION ON THE TYPE OF FATAL ERROR.
THE DEVICE WILL BE DROPPED
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

TSVOS DATA RELIABILITY

MACRO V0S.03

Fridey 22-Mey 87 08:12

Page S S
SEQ@ 0022

iizg

3.1.6

114)

IF,

1142
1143
1144

1145
1146

ii:;

3.1.7

1149

THE RESIDUAL

FRAME

COUNT

TS NON ZERQ,

THE

ERROR ¢14

RETRY LIMIT EXCEEDED:

ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE

1152

ON R READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND

THE PROGRAM PROCEEDS NORMALLY,

3.1.8

1158
1159

ERROR 015

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

i}g(l)

1162

AFTER EXECUTION,

WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

iig}

RFC NON ZERO ERROR:

ERROR IS REPORTED AND A HARD ERROR IS LOGGED.
THE PROGRAM THEN
PROCEEDS NORMALLY,
THE REPORTING AND LOGGING OF THESE ERRORS
IS OPTIONAL.

ii'.si(i)

1155
iigg

ERROR 013

THE

3.1.9

TEST

CYCLE

ERROR €16 -

UNLESS

THE

IDU OPTION IS USED.

CAPSTAN RUNAWAY:

1165

CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST

1167
1168
1169
i%]’?

THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2
WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED.
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM
THE TEST CYCLE UNLESS THE IDU OPTION IS USED.

1166

1172
i%;}
1175
1176
1177
1178
1179

iig{l)

1182

1183

1185
1186
iig;

3.1.10

COMMAND.

THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING

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 THE
DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED
ON.
ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED.
THE TOTAL # OF BYTES IN ERROR PER RECORD 1S ALSO PRINTED.
A
HARD

ERROR

THE

PROGRAM

PROCEEDS

NORMALLY.

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

4.0 PERFORMANCE REPORTY

1191
1192
1193

UNIT X

1194
1195

AND

3.2 ERROR HALTS

1189
-t

LOGGED

THERE ARE NO OTHER HALTS.

PASS
: XXXXX

BYTES WRITTEN

RECORD
: XXXXX

XXX, XXX, XXX, XXX

BYTES READ REV XXX,
XXX, XXX, XXX
BYTES READ FWD XXX, XXX, XXX, XXX

TSVOS DATA RELIABILITY

MACRO V0S.03

Friday 22-May 87 08:12

1196

RECOVERABLE ERRORS

1200

SPEC COND

1201
1202
1203
1204
1205
1206
1207
1208
1209
{gfi)

HARD

XXX

RDR

XXX XK

XXX KX

XXXXX

FATAL

XXX XX

ROF

AXX XX

COMPARE

XXX

XUXXX

S.0 TEST SUMMARIES
aaaaa- 5.1

TEST

}

BASIC FUNCTIONS.

EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL

1214

SUBTEST

1216

1217
1218
1219

1223
1224
1225

1226

1227
1228

SUBTEST

1235

SUBTEST 3

SET CHARACTERISTIC
GET STATUS
SET CHARACTERISTIC
T1S0S

MICROCODE

20.
40.

LEVEL

(PASS

ONLY)

REWIND.

REWIND AT BOT.

WRITE/VERIFY PATTERN 1.
WRITE/VERIFY PATTERN 2.

« WRITE/VERIFY PATTERN S,
e WRITE/VERIFY PATTERN 6.

« WRITE/VERIFY PATTERN O.

SUBTEST 4

WRITE TAPE MARK,

ERASE.

< WRITE TAPE MARK.
«

WRITE 10 RECORDS

WRITE TAPE MARK.

« ERASE 10 TIMES
+

SUBTEST S

1244

WRITE

TAPE MARK RETRY,

SPACE FILES.
o SPACE 2 FILES REVERSE.

« SPACE 2 FILES FORWARD.

1245
ig:{;

1251
1252

STATUS.

« WRITE/VERIFY PATTERN 3.
+« WRITE/VERIFY PATTERN 4.

ig:?

1250

DRIVE INITIATE,

«
«

1239

1249

GET

WRITE/VERIFY,

1238

1248

1237

1242
1243

DRIVE INIT,

. SET CHARACTERISTIC 200.

+«

1231
1232

1236

CHAR,

TSOS FUNCTIONS.

REWIND.

1229
1230

ifi?fl

SET

«
«
«

igg&)

1222

XX LXK

igg

1215

SEQ 0023

WRT

UNRECOVERABLE ERRORS
XXXXX

Page S 6

1197

figg

______________________________________________

o SPACE 2 FILES REVERSE.
« SPACE 2 FILES FORWARD.

SUBTEST 6

- SPACE RECORDS.
+

REWIND.

«
«

SPACE 7 RECORDS REVERSE.
SPACE 7 RECORDS FORWARD.

« SPACE 7 RECORDS FORWARD.

Page S 7

SEQ 0024
+

SUBTEST

«
+«

SUBTEST 8

SUBTEST 9

+«

READ

10 -

READ FORWARD,

+«

READ PREVIOUS REVERSE.

FORWARD.

&
&
¢
®

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

SET DATA BYTE SWAP.

WRITE/VERIFY EVEN LENGTH (RECORD 3).
WRITE/VERIFY 00D LENGTH (RECORD 4).

CLEAR DATA BYTE SWAP.
READ

READ REV RECORD 3.

+«

READ SWAPPED DATA BYTES.

REWIND.

WRITE/VERIFY SWAPPED DATA BYTES.
0

READ

CLEAN,
« CLEAN,

1277
1278
1279
SUBTEST

REVERSE.
FORWARD.

-«

SUBTEST 11

NEXT
NEXT

READ FWO RETRY.

1275
1276

READ REVERSE

READ

SUBTEST

WRITE DATA.
WRITE RETRY,

1270
1271
1272
1273
1274

REWIND.

READ REV RETRY,

1267

1268
1269

SPACE 7 RECORDS REVERSE.

WRITE RETRY,

Fridey 22-May-87 08:12

1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266

MACRO V0S.03

TSVOS DATA RELIABILITY

REV

RECORD

SET DATAR BYTE SWAP,
READ REV RECORD 2.

READ REV RECORD 1.
READ FWD RECORD 1.

READ FWD RECORD 2.
CLEAR DATA BYTE SWAP.

READ FWD RECORD 3.
READ FWD RECORD 4.

TSVOS DATA RELIABILITY

iggg

MACRO VOS5.03

Fridey 22-May-87 08:12

5.2

TEST 2

Page 6

SEQ 0025

DATA RELIABILITY.

1296

1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS:

1300

2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND ARE

1297
1298
1299

SET CHARACTERISTIC 40
REWIND
WRITE 64
RECORDS OF RANDOM LENGTH AND DATA

1301
1302
1303
iggg

1306
igg;

1309
igig

5.3

TEST 3 -

REWINDS AND WRITES RECORDS OF RANDOM LENGTHS
AND RANDOM DATA FROM BOT

5.4

TEST &

REWINDS AND READS ENTIRE TAPE,

5.5

TEST S

1323

A DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FWD/REWIND

OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN
AND RECORD LENGTH OF 2048 BYTES. OPERATOR CAN ENTER

1326
igg;

SEQUENCE OF COMMANDS UP TO SEVEN IF THEY DON'T WANT
DEFAULT SEQUENCE.

6.0 DEVICE INFORMATION TABLES
6.1 GENERAL
- THE T1SOS TAPE SUBSYSTEM CONSISTS OF A TSVOS Q-BUS
CONTROLLER CONNECTED TO A TSOS DRIVE. FROM A SOF TWARE VIEWPOINT
THIS CONFIGURATION IS UNIQUE (FOR A Q-BUS DEVICE) IN A NUMBER

iggg

WAYS:

1340

ONLY ONE REGISTER MAY BE WRITTEN -

1343

ig:;

1346

1347

1348
1349

1350

FORWARD AND REVERSE.

RANDOM/OPERATOR SELECTED COMMAND SEQUENCE.

1324
1325

ig:é

TO EOT.

READ COMPATABILITY/READ UTILITY.

igig

1329
7o
1331
1332
1333
1334
1335
1336
1337

IF A RESTART COMMAND IS USED TO INITIATE
TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED.

WRITE COMPATABILITY/WRITE UTILITY.

1312

1320
iggé

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

NOTE:

igiz

1315
igig

EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM
LENGTHS AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED.

DATA BUFFER),

TWO REGISTERS MAY BE READ REGISTER

AND

TAPE

SYSTEM BUS

TSDB (TAPE SYSTEM

TSSR AND TSBA (TAPE SYSTEM STATUS
ADDRESS

COMMANDS ARE NOT WRITTEN TO THE DRIVE;

RATHER,

COMMAND

POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME-

WHERE IN CPU MEMORY, THE COMMAND POINTER IS USED BY
THE T7SOS5 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND

PACKET.

THE WORDS WITHIN THE COMMAND PACKET ARE:

TSVOS DATA RELIABILITY

MACRO V05.03

Friday

22-May-87 08:12

Page

oos

6-1

SEQ 0026

1351
1352
1353

1.
2.

.
COMMAND WORD
LOW ORDER BUFFER ADDRESS

135

BYTE COUNT

1354

1357
1358
1359

1360
1361
1362
1363

1370

THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NECESSARY TO DETERMINE WHETHER
1. THE DRIVE IS READY TO ACCEPT ANOTHER COMMAND,

2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR.
IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT "JOB DONE"
OR “COMMAND INITIATION" TIME,IT MAY BE NECESSARY
70 GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT

is’fs’é

1366
1367
1368
1369

RHIGH ORDER BUFFER ADORESS

ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION.

|
'

€. EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM
DRIVE REGISTERS; RATHER, A “GET STATUS" COMMAND
IS ISSUED WHICH WILL CAUSE THE 7505 TO TRANSFER EXTENDED
STATUS INFORMATION TO THE MEMORY AREA POINTED T0 BY THE
BUFFER ADDRESS OF THE

g]lé

“GET STATUS” COMMAND.

EXTENDED STATUS REGISTERS. SEE .3.

THERE ARE FIVE

1373
1374
1375
1376

THE TSOB MUST BE WRITTEN WITH A DATO INSTRUCTION TO
PROPERLY WRITE THE COMMAND POINTER. A DATOS WILL
CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE
SUBSYSTEM INIT.

1378
1379
1389
1381
1382

COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR
MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR WORD
BOLS'DARIES) .

TSVOS DATA RELIABILITY

1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394

MACRO VOS.03

Friday 22-Mey

6.2

@ BUS

87 08:12

Page

SEQ 0027

TINTERFACE SPECIFICATIONS

T1SVOS/

INT,

1505

VECTOR

FIRST

224

UNIBUS

ADDRESS

772520

TSBA/TSDB
TSSR

772522

TSVOS DATA RELIABILITY

MACRO V0S.03

Fridey 22 May 87 08:12

Page 8
SEQ 0028

1396
1397
1398
1399

1400

1401
1402
1403

6.3

6.3.1

BIT DEFINITIONS FOR TSVO5/TS0S REGISTERS

TSVOS/TS05 REGISTER SUMMARY
15

1404

1405

1406

1407

1408
1409

1410
1411
1412

1413

1414

1415
1416

(R/0) TSBA

GOrwe=m@m—mP=—=

'fllS'
!

'AIG'A13'l12'

'All'AIO'AO9'

Pocmeocr@ee=

(W/0) TSDB

1P1S!
¢
&

(R/0) TSSR

(W/0)TSDBX

Gecm@ocrcPread

ee®

ecvoecc@rand

-P14~913-912-

°911-P1o-909-

1425
1426
1427
1428

XsT1

xs12

1442
1443
1444

1445
1446

1447

la48

1449
1450

145)
1452

[]

ensbled by the Extended

o---eo

'HSP:'RCE'

TERMINATION CLASS CODES
AL
O

l144)

NORMAL

Features switch on the M7196)

[}

[]

AR TR

]

¢ :'6-;Gfi5§-6-:
T

FATAL
=

=
=

UNRECOVERABLE ERROR

I TR

T fmne RETRY CONT

[]

FOR

NOT

ONE RECORD

MOVED

TAPE POSITION LOST

MICRO DIAGNOSTIC FAILURE.
USED

(TSSR FCO-FC1):

RESERVED

TCO TC2):

TAPE

CONTROLLER ERROR

CLASS CODES

NOT

TERMINATION

RECOVERABLE ERROR

FATAL

V0 10PI! IREV! Tnfizoék: :-6-;'6-séié;

RECOVERABLE ERROR - TAPEFGSE%;%SN =
DOWN TAPE FROM START OF

[]

oy
T
[]

(TSSR

[}

ATTENTION CONDITION
TAPE STATUS ALERT
FUNCTION REVECT

~No

1439
1440

:568'569-666: ;5653664§96i§ ;565;515§5i8;

T idRe” DIAGNOSTIC
ERROR CODE *

XST4

1438

1431
1432
1433

1437

?66&7 -ééé-'é'-'é'E 10 IMCF! 0 ¢ ;-{)-;él:;;;?l..b; :RLS:RLCU?Li: :iié-éii-fié'
¢

1435
1436

[]

LT o iR
6 107101 :fiéfiv'é'E'é'? 101010

XST3

1434

-566'56?-568- :ioésuo4:i03:'A02'A01'A00'

[]

1429

1430

BT1+ 101010 -6éi-656-6i6- sfii&e ''''' ETsoéi e;n;t;-;nly-;;nr-\ °°°°

W=
O

1424

Eir}i: ofa(.é-iéi-éifi 7&16:»’:’?&[6- ;i(i?fio??6N£? TE 'vcx-p€6: :iik-ébi-ééin

1420

1421
1422
1423

'SC ¢ 9'6'?§éé?§fi§§ -fiifiofiéi-iii- -iié-ééfi-éfii- s?&i:?éés?cée -?éi'?éb-'6°-

1417

1418
1419

FUTURE

USE

SEE ERROR CODE BYTE (¥ST3) FOR FAILED FUNCTION.

ALWAYS

READ

TSVOS DATA RELIABILITY

1454
145S
i:g{;

MACRO VOS5.03

Fridey 22-Mey 87 08:12

6.3.2

Pege 9

SEQ 0029

TSVOS STATUS REGISTER (TSSR)

1458
1459
ifi?

Q-BUS ADDRESS

{:g%

1464
1465

'SC ! ! O !'SCE'RMR! INXM!NBA'A17! 'A16!SSR!OFL! !FC1!FCO!TC2!
H
LI
!
!
L
¢
!
LI
'
4
L
H
!
'

1‘“

@ - - -

READ ONLY

@ - - -

* -

* - -

- -

'TC1:TCO! O !
e
!
!
!

* - -

1467

1468
1469
1470

1471
1472
1473
1474
147S
1476
1477
1478
1479

BIT

NAME

TCC
ool

1480

1486

SCE

FCO

1488
149]
1492
1493

THE TERMINATION CLASS BITS ARE

RESERVED (ALWAYS A 0)

Senity Check Error-Sets when the controller detects
sn abnormal condition within

tself during execution

it's functions snd the problem is serious enough

that @ Message Packet is not stored.

RMR

1494
1495
1496

REGISTER MODIFICATION REFUSED.
SET BY THE TSVOS
WHEN
A COMMAND POINTER IS LOADED INTO TSDB8 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 B8IT MAY

1497

COME UP ON AN ATTENTION MESSAGE.

1498
1499
15580
1501

SPECIAL CONDITION.
WHEN
SET,
INDICATES
THAT
THE
LAST
COMMAND
OID
NOT
COMPLETE
WITHOUT
INCIDENT.,
SPECIFICALLY, EITHER
AN
ERROR
WAS
DETECTED
OR
AN
EXCEPTION CONDITION OCCURRED,
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON
READ
COMMANDS,
REVERSE MOTION AND AT BOT, EOT WHILE
WRITING, ETC.
MAY ALSO BE
SET
B8Y
THE
ERROR
BITS CONTAINED IN THE TSSR REGISTER:
SCE
SOMETHING QTHER THAN O (UNLESS RMR IS THE ONLY
ERROR - SEE RMR).

i:g,:)

i:gg

ee-a-l-

RMR, AND NXM.

1481
i:a

1487

DEFINITION
ce

IF ATTINS ARE

NOT ENABLED, THIS BIT COMING UP IS AN INDICATION
OF EITHER A FATAL CONTROLLER ERROR OR A SOF TWARE
B8uG.

1502
1503
1504
1505

1508
1509
1510

NXM

4/S

NON EXISTENT MEMORY,
SET
BY
THE
TSVQS WHEN
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.

NBA

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

* -

TSVOS DATA RELIABILITY

MACRO V0S.03

Fridey 22 May 87 08:12

Page 9 1

SEQ 0030

COMMAND

(IF

A GOOD

ADDRESS WAS GIVEN).

A17

BUS ADDRESS BIT 17.
Al7 AND A16 (BIT 08) TRACK
THE
VALUES
OF
BITS
17
AND
16
OF THE TSBA
REGISTER. LOADED FROM TSDB BITS 01 00 WHEN TSDB
IS WRITTEN.,

1518

A16

BUS ADDRESS BIT

1520

SSR

SUB SYSTEM READY.
WHEN SET, INDICATES THAT THE
TSVOS/TS0S SUBSYSTEM IS NOT BUSY AND IS READY T0

5.1.3

1529

NEW

16.

SEE Al7

(BIT 09).

COMMAND POINTER.

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

FC1

FATAL TERMINATION CLASS Ol.
FC1 AND
FCO
(BI7
O4)
ARE
USED
TO
INDICATE
THE TYPE OF FATAL

ERROR WHICH HAS OCCURRED ON
THE
T1S0S.
BITS
ARE
VALID
ONLY
WHEN
SC IS SET
TERMINATION CLASS CODE BITS ARE ALL SET

1537

FCo

FATAL

TC2

TERMINATION

THE

TERMINATION CLASS 00.

TC1

WHENEVER

BIT

02.

TCO BITS,

THIS BIT,

ACT

(BIT
ALONG

AS AN OFFSET

0S).
WITH

VALUE

AN ERROR OR EXCEPTION CONDITION OCCURS

COMMAND.

THE

EIGHT POSSIBLE

OF ERRORS OR EXCEPTIONS.

THE CONDITIONS

VALUES OF

CLASS

AND

SEE FC1

THE SE
AND THE
(111).

THIS

EACH

FIELD

REPRESENT

PARTICULAR

IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND,

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.

1549

TC1

TERMINATION CLASS BIT

01.

SEE

TC2

(BIT

03).

1551

TCo

TERMINATION CLASS BIT

00.

SEE

TC2

(BIT

03).

NOT USED.

1558
1560

Q@ BUS ADDRESS - 2 -

WRITE

SUBSYSTEM INITIALIZE

ONLY

(ALWAYS A 0)

TSVOS DATA RELIABILITY

MACRO VOS5.03

Fricey

22-Mey

6.3.2.1

87 08:12

Pege

SEQ@ 0031

TSVOS EXTENDED DATA BUFFER REGISTER

BT 110' 0 : 0 :

5P2159205919!

5918!

G-

-e

TSOBXi

-~
@

NAME

@-=--e

BIT

TCC

[]

RESERVED

'TMIC!

RLSILETIRLL !

G-

~®

(TSDBX exists only when
enab'ed by the Extended
Features switch on the M7196)

[}

(ALWAYS A 0)

INTERNAL

EXTENDED STATUS REGISTER Q

COMMAND POINTER BITS 21 18. WHEN THE TSDBX IS WRITTEN
AND SSR=1, THE DATA IS LOADED INTO BITS 21-18 OF

07 00

RESERVED

THE

SSR=1, CAUSES THE TAPE TO BE REWOUND 10 80T,
THE FIRST TAPE RECORD TO BE SKIPPED, AND THE
SECOND RECORD TO BE LOADED INTO CPU MEMORY SPACE
STARTING AT LOCATION O.

=—@0-

DEFINITION

11-08 P<21:18>

6.3.3

(7SDBX)

=-e

BIT

NAME

TCC

TMK

5.2

RLS

(ALWAYS A 0)

(XSTATO)

'WLE!NEF!ILC!

TSBA REGISTER.

!ILA!MOT!ONL!
e

OS5
!IE

!VCK!PED!

MARK

DETECTED.

SET

WHENEVER

TAPE

MARK

WAS
DETECTED
DURING
A
READ,
SPACE, OR SKIP
COMMAND AND AS A RESULT OF THE WRITE TAPE
MARK
OR WITE TAPE MARK RETRY COMMANDS.
RECORD

LENGTH

SHORT,

THIS

BIT

INDICATES

!WLK!BOT!EQT!

DEFINITION
TAPE

THAY

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
SK]IP
TAPE
MARKS
COMMAND
WAS
TERMINATED
BY
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT
OPERATIONAL
MODE IS ENABLED, SEE LET) PRIOR TO
EXHAUSTING THE POSITION COUNTER.

TSVOS DATA RELIABILITY

MACRO VOS.03

Fridey 22-May-87 08:12

Page

10 1
SEQ 0032

1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630

1631
1632
1633
1634
1635
1636
1637
1638
1639

1640
1641
1642

1643

1644

LET

LOGICAL END OF

UNLESS
12

RLL

THIS

THROUGH

USE

RECORD

LENGTH

INDICATES

WLE

NEF

3.6

MODE

THAT

THE BYTE COUNT

TAPE.

SET

ONLY ON THE SKIP TAPE

MARKS
COMMAND
WHEN EITHER TWO CONTIGUOUS TAPE
MARKS ARE DETECTED OR WHEN MOVING
OFF
OF
807
AND
THE
FIRST
RECORD
ENCOUNTERED
IS A TAPE
MARK.
THE SETTING OF THIS BIT WILL
NOT
OCCUR
THE

SET

TERMINATION

IS ENABLED

WHEN

THIS

CHARACTERISTICS

LONG,

SET,

COMMAND.

BITY

THE RECORD READ WAS LONGER THAN

SPECIFIED.

WRITE LOCK ERROR.
WHEN SET, INDICATES
THAT
A
WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT
LOCK SWITCH ACTIVATED DURING THE OPERATION.

NON - EXECUTABLE FUNCTION.
THAT

ONE OF

THE

WHEN

COMMAND COUWD NOT

THE FOLLOWING CONDITIONS:

THE

COMMAND

DIRECTION

BUT

SPECIFIED

POSITIONED AT BOT.
THE ISSUING OF ANY

THE

SET,

INDICATES

EXECUTED

TAPE

REVERSE
WAS

DUE

TAPE

ALREADY

MOTION COMMAND EXCEPT

TSVOS DATA RELIABILITY

MACRO V05.03

Friday 22-May

87 08:12

Page

SEQ 0033

1646
-

WHEN THE

COMMAND,

ANY

WRITE

ILC

1660

ILA

1663

MOT

EXCEPT

INITIALIZE,
CONTAIN
STATUS -

1655

VOLUME CHECK BIT

ANY

WHEN THE

GET

DRIVE

TSOS IS OFF-LINE.

COMMAND WHEN

A
WRITE
WLS).

IS SET,

STATUS

THE

TAPE

DOES

NOT

ENABLE RING (WRITE LOCK

ILLEGAL COMMAND.
SET WHEN A COMMAND IS
ISSUED
AND
EITHER
ITS
COMMAND
FIELD OR ITS COMMAND
MODE
FIELD
CONTAINS
CODES
WHICH
ARE
NOT
SUPPORTED BY THE TSOS.
ILLEGAL

ADDRESS.

TAPE

MOVING.

AN EVEN ADDRESS
IS

(MORE THAN 18 BITS OR 0ODD WHEN
REQUIRED.)

ON LINE.
WHEN SET, INDICATES
ON LINE AND OPERABLE.

THAT

THE

TS0S

1IS

1668

INTERRUPT ENABLE.
ég;;:&)\PT
ENABLE

1672

VCK

VOLUME CHECK.
WHEN
SET,
INDICATES
THAT
THE
ORIVE
HAS
BEEN
EITHER POWERED DOWN OR TURNED
OFF LINE.
CLEARED BY THE
CLEAR
VOLUME
CHECK

REFLECTS THE
STATE
OF
BIT
SUPPLIED
ON
THE

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

PED

PHASE

ENCODED

DRIVE.

1682

S.3

WRITE LOCKED.

WHEN

ALWAYS

SET,

BOT

S.3

MOUNTED

EOT7

S.2

INDICATES

THAT

REEL

SET,

TAPE

INDICATES

DOES_

NOT_

THE

THAT

THE

TAPE

IS,

HAVE

BEGINNING OF TAPE.
WHEN
SET,
INDICATES
THAT
THE
TAPE
IS
POSITIONeD
AT THE LOAD POINT AS
?g;??ED

1692

THIS BIY

THE TSOS IS CAPABLE OF READING AND WRITING ONLY
1600
BPI
PHASE
ENCODED
DATA,

WRITE ENABLE
RING
INSTALLED.
THEREFORE, WRITE PROTECTED.

1687

THE
LAST

THE

END OF TAPE.
THIS BIT IS SET WHENEVER THE
IS
POSITIONED
AT
OR
BEYOND
THE END OF

TAPE
TAPE

REFLECTIVE

THE

BOT

STRIP.

REFLECTIVE

STRIP

TSVOS DATA RELIABILITY

1696
1697
iggg

MACRO V0S.03

Fridey 22 Mey 87 08:12

6.3.4

1700

SEQ 0034

EXTENDED STATUS REGISTER

1701
1702
1702

Page

(XSTAT1)

)

15
1S

14 4

1704

'OLT! + O ICOR! O ! 1 O+ O 1 0! IRBPT O 1 O

1707

1705

[

1708
i;gg

BIT

NAME

TCC

DLY

i?iz
1714

1715

i;%g

};5%

12 09

1724
?
i752

i;g;

07-02 £ 00

1729
1730
1731

T
>

1 O1 O 10! 10U O
S

DATA LATE. i

SET WHEN THE F IFO IS FUL

READ
OR
EMPTY
ON
A WRITE.
THESE CONDITIONS
OCCUR WHENEVER THE @ BUS LATENCY
EXCEEDS
THE
TRANSFER

NOT USED.
COR

DEF INITION

DATA

i;i;
1720

RATE

THE

TS05.

(ALWAYS A 0)

CORRECTABLE DATA.
CORRECTABLE

DATA

ERROR

HAS

BEEN ENCOUNTERED.

RESERVED (ALWAYS A 0)
RPE

UNC

READ B US PARITY ERROR.
A

PARITY

RESERVED

ERROR

THE

SET
READ

(ALWAYS A 0)

UNCORRECTABLE DATA ERROR.

WHEN CONTROLLER DETECTS
DATA LINES OF THE TRANSPORT

BUS.

TSVOS DATA RELIABILITY

i;g}

MACRO VOS.03

Friday 22 Mey 87 08:12

6.3.5

Page

SEQ 0035

EXTENDED STATUS REGISTER 2 (XSTAT2)

1735

i;g;

1739

YOPM! IRCE! O ¢+ O ¢ £ O !WCF! O ¢ 1 O IRL7IRLE! 'RLSIRLAIRLS! IRL2IRL1IRLO!

17‘1

@ = ==

1736

1740

T T
14

* -

13
H

Tt i

12
-

11
L

===

® -

10
-

09
'

- - - @

08
-

* -

07
-

- -

06
H

* -

05
L

- @

04
'

* -

03
!

02
L.

01
H

1742
1743
1744

BIT

NAME

TCC

i;:;

0PM

OPERATION IN PROGRESS.

1749
1750

RCE

7.F2

RAM CHECKSUM ERROR.
CAUSES FATAL CLASS 2 BECAUSE THE
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE

1753

13-11

1756

1759

09 08

1761
1762
1763

07 00 RL
70

174S
1746

{;gé

i;g;

1760

DEFINITION
ddecceeee-

(TAPE MOVING)

MESSAGE PACKET.

RESERVED (ALWAYS A 0)
WCF

WRITE CLOCK FAILURE.
THE FIFO

IS NOT

RESERVED (ALWAYS A 0)
-

REVISION LEVEL.

SET DURING A WRITE TO INDICATE THAT

BEING EMPTIED BY

THE

TRANSPORT.

00
!

TSVOS DATA RELIABILITY

1765
1766
i;gz

MACRO VOS.03

Fridey 22-May 87 08:12

6.3.6

Page

EXTENDED STATUS REGISTER 3 (XSTAT3)

1769

1770

i
o P

~
~J

[

1771

MICRO DIAGNOSTIC ERROR COOE

08
L4

07
-

- O

O4
- -

02
-

[]

! O 10PI! IREVITRFIDCK?S ¢+ O !
]

[]

]

)

[)

]

1778

BIT

1781

1S 10 08

MICRO DIAGNOSTIC ERROR CODE.

1783

RESERVED (ALWAYS A 0)

1785

NAME

TCC

DEFINITION

OPI

OPERATION INCOMPLETE.

OR_

1787

0S5

1792

1794

1798

02-01

1801
1802
1803
1804

1807

6.3.7

1795
1796

1811

REV

DIRECTION OF

WHEN A READ,

SPACE,

MOVED 25 FEET OF TAPE

DCK

S.6

DENSITY CHECK.,

SET

WHEN

IDENTIFICATION BURST (IDB)
MOVING OFF OF 80T.

RIB

(BUT

WAS

NOT

DETECTED

WHEN

REVERSE INTO BOT.
A
READ,
SPACE,
OR
SKIP
COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE
B80T MARKER WHEN
MOVING
TAPE
1IN
THE
REVERSE
DIRECTION.
TAPE MOTION WILL BE HALTED AT BOT.

EXTENDED STATUS REGISTER 4 (XSTATS)

1813

!HSP;

EQCEz

1615

@ - -

]

cee

OPERATION WAS REVERSE

RESERVED (ALWAYS A 0)

BIT

CURRENT

RESERVED (ALWAYS A 0)

®enece

1819

SET

HAS

IS O IF REWIND OR FORWARD)

1812

1820

QOPERATION

WITHOUT DETECTING ANY DATA ON THE TAPE.

1789

1790

SKIP

(SEE LIST OF CODES BELOM).

NAME

eees

TCC

-0

-e

0!'o0
.

* - -0

DEFINITION

--o

*- =

-~ o

0!
-

WRITE RETRY COUNT
-

* -

00
WYW 3

1786

1779

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

MACRO VO05.03

Fridey 22-Mey 87 08:12

Pege

14 1

SEQ 0037

HSP

High Speed. When set, ndicates that the transport s
operating
in high speed mode.(100ips) When clear.the
trensport
is operating in low speed mode.(25ips)

RCE

Retry Count Exceeded.

When

set,indicetes thet

Causes Tape Position Lost termination,

13 8
7

7.0

RESERVED
WRC

DIAGNOSTIC

(ALWAYS

HISTORY

MAR

1982

APR

1983

MOOIFIED CZTSHC FROM TS11 FOR TSVOS

1847

REVISION B

UPDATED THE DIAGNOSTIC TO SUPPLY THE CORRECT
RECORD NUMBER DURING EXECUTION OF TEST @2.

REF: CHMIELECKI 7O MITCHELL *“TSVOS
RELIABILITY PROBLEM”; 21-JAN-83.

1852
1853

REVISION C

REVISION D

DATA

JUN 1984
MINOR CHANGE>
APRIL

"ORION"

CPU

1987

CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH

THE NEW TSVOS MICROCODE (REVISION 2). THE NEW
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE.

.TITLE PROGRAM HEADER AND TABLES
.SBTTL
PROGRAM HEADER
.ENABL
=
BGNMOD

ABS,AMA
2000

LKJ

;
3

1919 002000

output
retries.

Write Recount Count Statistic. This field indicates, when
the controller is buffering write date records, the total
number of controller initiated retries gerformcd in order
to write the previous buffered record.
This count is cleared
after it is displayed.

REVISION

1848
1849
1850
1851

the controller

was buffering Write Data end could not sucessfully
the buffered record within the specified number of

THE PROGRAM HEADER IS THE INTERFACE BETWEEN
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
POINTER BGNRPT ,BGNSW,B
T,BGNAU,
GNSF
BGNDU

PROGRAM HEADER AND

TABLES

MACRO V0S.03

Fridey 22-May

87 08:12

Page

14 2

SEQ 0038

PROGRAM HEADER

1920
1928
1929 002000
002000
002000

103
126
124
123
105
000
000
000
104
060
000000

005000
030014

030122
002174

002204
032004
000000
000000
000001

000000

002124

000000
000000
000000

003
003
000000
000000

000000

002164

L $NAME;

HEADER

CVTSE,D, 0,5000,1

;DIAGNOSTIC NAME

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE

L$REV:
:

;REVISION LEVEL

L$DEPO:
:

LSUNIT::

:NUMBER OF UNITS

L$TIML::

;LONGEST

TEST TIME

L$HPCP:
:

;POINTER

TO H.W.

QUES.

L$SPCP:
:

;POINTER TO S.W.

QUES.

L$HPTP:
;

;PTR.

L$SPTP::

;PTR.

T0 S.W.

LSLADP::

:DIAG.

L$STA::

;RESERVED FOR

DEF.

H.W.

PTABLE

END ADDRESS
APT

STATS

L$CO::

L$DTYP:

;DIAGNOSTIC TYPE

L$APT::

sAPT

L$OTP::

+PTR.

L$PRIO::

;sDIAGNOSTIC RUN PRIORITY

L4ENVI::

;FLAGS DESCRIBE HOW IT WAS SETLP

L$EXPY:
:

$EXPANSION WORD

L$MREV::

$SVC REV AND EDIT ¢

LS$EF::

sDIAG. EVENT FLAGS

EXPANSION

TO DISPATCH TABLE

L$SPC::
L$OEVP:
:

+ POINTER TO DEVICE TYPE LIST

L$REPP:
:

+PTR.

TO REPORT

CODE

/C/
/N/

/17
/S8/
/€/
0
0
0

.ASCII

70/

.ASCII

70/

. WORD

5000

.WORD

L $HARD

.WORD

L$SOFT

.WORD

LKW

.WORD

L$SW

.WORD

L$LAST

.WORD

L$DISPATCH

.WORD

.BYTE
.BYTE

c :REVISION
C$EDIT

. WORD
.WORD

0
0

.WORD

L $OVTYP

PROGRAM HEADER AND TABLES

MACRO V0S.03

Friday 22-May-87 08:12

Page

14-3

SEQ@ 0039

PROGRAM HEADER

002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106

002110
002110
002112
002112
002114
002114
002116

1930

002116
002120
002120

017630
000000
000000

024112
024040
000000

002136
104035
000000
021364

023776

023354

021356
000000
000000
000000

L$EXPA:;

L$EXPS:;
L$AUT::

;:PTR.,

TO ADD UNIT

L$DUT:
.

iPTR.

TO DROP UNIT CODE

L$LUN::

:+LUN FOR EXERCISERS TO FILL

L$DESP:
:

;POINTER TO DIAG.

L$LOAD::

;GENERATE SPECIAL AUTOLOAD EMT

LSETP:

;POINTER TO ERRTBL

L$ICP::

;PTR.

T0 INIT COOE

L$CCP::

;PTR.

TO CLEAN-UP CODE

L$ACP:
:

;PTR.

T0 AUTO CODE

L$PRT:

;PTR,

TO PROTECT

L$TEST::

: TEST NUMBER

L$OLY::

;DELAY COUNT

L$HIME::

iPTR.

TO HIGH MEM

CODE

DESCRIPTION

TABLE

.WORD

L$RPT

.WORD

L$AU

. WORD

L$DU

.WORD

L$DESC

EMT

E$LOAD

.WORD

L$INIT

.WORD

L$CLEAN

.WORD

L$AUTO

.WORD

L$PROT

.WORD

. WORD

PROGRAM HEADER AND TABLES

MACRO VOS.03

Friday 22 May-87 08:12

Page

SEQ 0040

DISPATCH TABLE

1937

.SBTTL

ODISPATCH TABLE

‘0.

s+
t

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST,
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST.

:--

1945
1952
1953

002122
002122
002124
002124
002126
002130
002132
002134

DISPATCH 5

000005
024216
025704
026540
026734
027114

.SBTTL

1955
1956

.WORD
.WORD
.WORD
.WORD
. WORD

DESCRIPTIVE TEXT

;00

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

1957
1958
1959
St/

.WORD

L$DISPATCH:
:

101

124

040

114

122
111
111

123

124

102
111

123
065

DESCRIPT

<DATA RELIABILITY TEST>
.ASCIZ

/DATA RELIABILITY

124

1960
124

L$DESC::

126

DEVTYP
L4OVTYP:;

<TSVOS>

.EVEN

.ASCIZ

.EVEN

/TSVOS/

HEADER AND TABLES

MACRO V05.03

Ffriday 22 May 87 08:12

Page

16
SEQ 0041

HARDWARE P-TABLE

.SBTTL

DEFAULT HARDWARE P TABLE

;

:
;

002172
002172
002174
002174
002174
002176
002200

000003

THE

DEFAULT

HARDWARE

TABLE

THE TEST DEVICE PARAMETERS.
IS

IDENTICAL

BGNHW

TO THE

CONTAINS
THE

STRUCTURE OF

DEFAULT

STRUCTURE

VALUES
THIS

THE RUN TIME P

TABLE

TABLE.

DFPTBL

L$HW::

. WORD

L10000 L$HU/2

.WORD

L10001

OFPTBL:
172520
000224
000000

002202
002202

.WORD
.WORD
.WORD

L10000:

.SBTTL

: TSDB ADDRESS.

172520

824

: VECTOR

ADDRESS.

;ORIVE 60 FOR DEFAWLT

ENOHW

SOFTWARE P-TABLE

LR]

;

THAT

BGNSW

CAN BE

CHANGED

THE

THE PROGRAM

OPERATOR.

SFPTBL

;:CLEAR COUNTERS FLAG.

sRESET RANDOM VARIABLES EACH PASS
sHALT AFTER EACH COMMAND FLAG.

RANP

L$SW/2

FLAG.

:ENABLE RECOVERABLE ERROR PRINTS FLAG.
:gQRRgAPE SWITCH TO REWRITE ON SAME SPOT & DETECT BAD TAPE
;DISABLE INTERRUPTS FLAG.
+ INHIBIT ERROR RECOVERY FLAG.
zgg:ggf CMD SEQ TABLE FLAG.
]

sggzgng RESIDUAL FRAMECOUNT ERROR REPORT FLAG.

pr]

ga €

.BYTE
.BYTE
HAE
::
.BYTE
ERCVER:
: .BYTE
BADTSW:: .BYTE
.BYTE
DINT::
.BYTE
IREC::
.BYTE
CHGFLG:
: .BYTE
.BYTE
PIRE::
.BYTE
.BYTE
CHAR:
:
CH.EAI
CMDD:
. WORD
.WORD

wWwo

CLRFLG:
:

RRANV:
:

OCOO0COO0OOOON_D‘ DDHH:
P -]

L$SW::
SFPTBL::

§§§§§§§§§§§§ 8

000052

002202

THE SOFTWARE P TABLE CONTAINS THE VALUES OF

PARAMETERS

1CHARACTERISTICS CODE (DEFAULT = 40).
;COMMAND 2 (DEFAULT = REWIND).
1BYTE COUNT
iNUMBER OF OPERATIONS

;PATTERN

;COMMAND 3
(DEFAWLT = WRITE)
;BYTE COUNT (DEFAULT = MAX BUFFER SIZE).
sNUMBER OF OPERATIONS (DEFAWLT = 32000).

tPATTERN

(DEFALLT

;COMMAND 4 (DEFAWLT

RANDOM),

= READ REV).

PROGRAM HEADER

AND

TABLES

MACRO V0S5.03

Fridey

22 May

08:12

Page

16
1

SEQ 0042

SOF TWARE P-TABLE
DATCNT
32000.

RANP

4
DATCNT
32000,

RANP

13.

;BYTE COUNT
;:NUMBER

(DEFALLT

OPERATIONS

= MAX BUFFER SIZE).
(DEFAWT

zPATTERN (DEFAULT = RANDOM).
;COMMAND S (DEFAULT = READ FWD).

32,000).

;BYTE COUNT (DEFAULT = MAX BUFFER SIZE)
tNUMBER OF OPERATIONS (DEFAWLT = 32,000

;PAYTERN

(DEFAULT

;COMMAND 6 (DEFAWLT

RANDOM).

= REWIND).

;END OF CMD SEQ TABLE CODE (DEF) OR CMD 7
;BYTE COUNT (DEFALLT = MAX BUFFER SIZE).
{NUMBER

:PATTERN

2036 002310

2041 002322
2042 002324
2043 002326
2045 002330
002330
2047 002330

OPERATIONS

(DEFAWLT

(DEFAULT

RANDOM).

(DEFAULT

RANDOM).

32000).

:END OF CMD SEQ TABLE CODE (DCF) OR CMO 8
;BYTE COUNT (DEFAULT s MAX BUFFER SIZE).
;sNUMBER OF OPERATIONS (DEFAWLT = 32000).

TSIMD::

.WORD

RDBUF
: :
WTBUF
::
HSSW: :

.WORD
. WORD
. WORD

REV:

.WORD

EXTFEA

BEPBSU

L10001:

. WORD

.WORD

ENDSUW
ENOMOD

;PATTERN

sDEFAULT SWITCH SETTING
;ENABLE READ BUFFERING
;ENABLE WRITE BUFFERING
t1RUN AT 100ips SWITCH

+EXTENDED FEATURES SOF TWARE SW 0=0FF
; 1=0ON

sMICROCODE REVISION LEVEL
;BUFFER ENABLE SOFTWARE SW O=0FF ;1=ON

PROGRAM HEADER
SOF TWARE

AND

TABLES

MACRC V05.03

fridey 22 May

87 08:12

Peage

SEQ 0043

TABLE

2060

.TITLE GLOBAL AREAS
.SBTTL
GLOBAL EQUATES SECTION

207§ 002330

BGNMOD
jee

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT
ARE

USED

THAN

ONE

2079 002330

EQUALS
:

: BIT DIFINITIONS

BIT1S-= 100000

BIT14==
BIT13==
8IT12-=
BIT11-BIT10==
8I709==
BIT08-=
BITO7==
8IT06==
BIT0S-BITO&==
BI103-BIT02-=
BIT01==
BIT00==
[

BIT79==
BIT8==

BIT6==
BITS=»

BIT4s==

BIT73==
B8IT2==
BIT]=s
BITO==
:

:+
:
000040
000037

000035
000034

40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1

8IT09
BIT08
8IT07
B8IT06
B8IT05

B8IT04

8IT03
81702
81701
B8IT00

EVENT FLAG_DEFINITIONS
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

}

EF _START==
EF .RESTARTs=
EF .CONTINUE ==
EF .NEW==
EF .PUR==

32.
31.
30.
29.
28.

5
;

s PRIORITY LEVEL DEFINITIONS
000340
000300

PRIO7==

PRIO6==

340

300

;

START

COMMAND WAS ]SSUED

RESTART

CONTINUE COMMAND WAS ISSUED

;

i
H

NEW

COMMAND

PASS

HAS

WAS

ISSUED

BEEN

STARTED

A POWER FAIL/POWER UP OCCURRED

GLOBAL

AREAS

MACRO V05.03

Fr'day 22 May 87 08:12

Peage 17-1

GLOBAL EQUATES SECTION
000240
000200
000140

000100
000040
000000

PRIQS==

240

PRIO3==
PRI02==

140
100

PRIO4== 200

PRIQl==
PRIOO==

40
O

;OPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

2080
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098

100000

}

EVL==
LOT ==
ADR==
IDY==
1SR==

4
10
20
40
100

BOE ==

400

UAM= =

PNT ==

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

;
3

H
H
i
i
i
:
H

200

1000

2000
4000
10000
20000

40000
100000

REGISTER USAGE.
RO
PASSES PARAMETERS TO/FROM DIAGNOSTIC SUPERVISOR.
R1 - COMMAND SEQUENCE TABLE POINTER.
R2 - GENERAL PURP(U>t REGISTER.
R3 - GENERAL PURPQOSE REGISTER.
R4 - GENERAL PURPJSE REGISTER.
RS - CURRENT LOGICAL DEVICE NUMBER X 2.
R6
STACK POINTER.

PROGRAM COUNTER,

SEG@ 0044

GLOBAL

AREAS

GLOBAL

EQUATES SECTION

MACRO

2100
2101
2102
2103
2104
2105

/0S5.03

Ffriday 22 Mey 87 08:12

Page

SEQ 0045

: THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS.

1S5.5C==100000

sSPECIAL CONOITION BIT.

15.UPE ==40000
1S.SPE==20000
TS .RMR==10000
TS .NXM==4000
TS.NBA=22000
TS.A17==1000
75.A16==400

;UNIBUS PARITY ERROR
;SERJAL BUS PARITY ERROR.
sREGISTER MODIFICATION REFUSED.
sNON-EXISTENT MEMORY,
tNEED BUFFER ADDRESS.
:BUS ADDRESS BIT 17,
;BUS ADDORESS BIT 16.

1S.0FL==1

;OFF

75C.TCC==177761

; TERMINATION CLASS CODE MASK.

TS.SSR--ZOO

T<C. FCC--177717

;UNIT

READY

LINE,

;FATAL

CLASS

BIT.

COOE

MASK.

: THE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD
ACK.C==100000

CvC.C==40000
oPP , C==20000
SWB.C==10000
MO0 .C3==4000
BRF .C==4000
MOD.C2==2000
M00.C1==1000
MOD.CO0==400
1€.C==200

; ACKNOWLEDGE BIT

;CLEAR VOLUME CHECK.
;OPPOSITE BIT
;SWAP BYTE BIT
sMODE BIT 3
;1BYTE,RECORD/FILE COUNT FLAG BIT,
;:MODE BIT 2
:MODE BIT 1

:MODE BIY ©
+ INTERRUPT ENABLE

FMT.C1==100
VFY.C==100

;FORMAT BIT 1
sWRITE VERIFY FLAG BIT.

FMT . CO==40

;FORMAT

JP . C==40

CMD.Ca==20
DLY.C==20

CMD.C3==10
CMD.C2==4
CMD.Cl==2
CMD.CO==1

SED

1BY TSOS BUT USED INTERNALLY BY THIS PROGRAM ONLY.

;NOT USED BY TSOS.
BIT

INTERNAL USE ONLY.

;JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO
;A

CERTAIN LOCATION

sTABLE.

;COMMAND BIT 4

s INSERT DELAY.

sCOMMAND
s COMMAND
; COMMAND
;COMMAND

THE

INTERNAL USE ONLY.

BIT
BIT
BIT
BIT

3
2
1
O

INTERNAL

COMMAND

SEQUENCE

USE ONLY.

;81T DEFINITIONS FOR DEVICE CHARACTERISTICS.
000200

CH.ESS==200

000020
000040

OF TSCH==CH_EARI

CH.EAI==40
CH.ERI==20

:ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT).

sENABLE ATTENTION INTERRUPTS.
$ENABLE MESSAGE BUFFER RELEASE INTERRUPTS.

sDEFALLT CHARACTERISTICS CODE.

GLOBAL AREAS

MACRO V0OS.03

Friday 22-May 87 08:12

Page

SEQ 0046

GLOBAL EQUATES SECTION

:BIT DEFINITIONS FOR EXTENDED CONTROL WORD
000040
000030
000020

EF .H55==40

;ENABLE HIGH SPEED SELECT

EF .RBO==20

;:ENABLE READ BUFFERING ONLY

EF .RWB==30

;ENABLE BOTH READ £ WRITE BUFFERING

:THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS
;IN THE MESSAGE BUFFER.
MS.RFC==4
MS.XS0==6

MS.XS1l==10
MS.XS2==12

000016

MS.XS3==14
MS.XS4==16

;RESIDUAL FRAME COUNT.
;EXT STATUS REG O

;EXT STATUS REG 1
;EXT

STATUS

REG 2

;EXT STATUS REG 3
;EXT STATUS REG 4

sTHE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0.
100000
020000
010000
000100
000001

X0 . TMK==100000
X0 .RLS==40000
X0.LET==20000
X0.RLL==10000

s TAPE MARK,
;RECORD LENGTH SHORT.
;LOGICAL EOT.

XO. W K==4
X0.B0T==2
X0.EQT==]

;WRITE LOCK BIT
;807 BIT.
;EOT BIT,

XO.0ONL==100

;RECORD LENGTH LONG.

sON LINE BIT,

;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2.
100000

X2 . 0PM== 100000

000100

X2 .BFE==100

X2 EFE==200

;OPERATION IN PROGRESS,

TAPE MOVING

;EXTENDED FEATURES ENABLED

;BUFFERING ENABLED

;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3.
000010
157400

X3.DCK==10
X3.RNY=2157400

sDENSITY CHECK.
;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
sRETRY

COUNT

EXCEEDED

;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==T7S0S5 COMMAND.
;CMOPKT .2=sBUFFER ADDRESS LOW.
;CHOPKT .4==8UFFER ADDRESS HIGH.

;CKDPKT.62=BYTE/FILE/RECORD COUNT

GLOBAL

AREAS

GLOBAL

EQUATES SECTION

MACRO VOS.03

220%

538;

2206
2207

2208
2209

SEQ CO47

000340

INTPR]I==PRIO7

;PRIORITY T0O BE USED IN INTERRUPT STATE.

000012

SCHCNT==12

000020

MSGCNT==20

sBUFFER LENGTH, (EVEN o)
;MESSAGE BUFFER LENGTH IN BYTES.

177740
000007
000020
000020
153624
032561
177774

RNOPS(C==177740
RANP =327
RRECL==16.
WRECL =516,
RANBC==]153624
RANS(C==32561
NINUSE==177774

sRANDOM ¢ OF OPERATIONS MASK,
:CODE TO SELECT RANDOM PATTERN.
;READ RECOVERY ATTEMPY LIMIT.
:WRITE RECOVERY ATTEMPT LIMIT.
s CONSTANT USED TO RESET RANDOM # GENERATOR BASE.
;CONSTANT USED TO RESET RANDOM @ SAVE LOCATION.
sNOT IN USE CODE FOR DEVICE STATE TABLE.

000020
004000

2221

177740

ggg%

Page 20

sMISCELLANEOQUS DEFINITIONS.

2210
2211
2212
2213

2214
2215
2216
2217
2218
2219
2220

Fr gey 22 Mey 87 08:12

gsg;

;ARBITRARY BYTE LENGTH FOR CHARACTERISTIC

DIACNT==20
DATCNT==2048 .

NCMD .C==ACK C!CVC.C'OPP . C*'SWB.C'MOD.C3'MOD.C2'M0D.C1'M0D.COIE.CFMT
Cl1'FMT CO
sNOT

“COMMAND* B81TS.

; THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TS0S COMMAND.

2226

100013

DRI=»

ACK.C'CMD.C3'CMD.C1'CMD.CO

2229

104001

ROF = =

ACK.C'BRF .C'CMD.CO

2232
Sgg}

104401

RDR=»

ACK.C'BRF .C'MOD.CO'CMD.CO
;READ REVERSE

2235
gggg

104005

WRT ==

ACK . C'BRf .C'CMD.CO'CMD.C2
;WRITE COMMAND

2238

104105

WiVses=

ACK.C'BRF
C'VFY C'CMD.CO'CMD.C2

2241
sg:g

104010

SRF = =

ACK . C'BRF .C'CMD.C3

2244
gg:z

104410

SRR==

ACK.C'BRF
. C!'M0D.CO'CMD.C3
; SPACE RECORD REVERSE

2247

105401

RNR = =

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

22950

125401

RNF ==

ACK . C'8RF . C'OPP C'MOD.C1'MO0.CO'CMD.CO

2253

105001

RPF ==

ACK . C'BRF .C'MOD.CL1!'CMD.CO

2256

125001

RPR==

ACK
. C'BRF C'OPP_ C'M0OD.C1'CMD.CO

2259

105005

WRR - -

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

2227
2228
ggg(l)

2239
2240

55:3

sggé

ggg;
ggg;

(EVEN o)

;DIAGNOSTIC COMMAND BUFFER EXTENT,
sMAXIMUM RECORD LENGTH IN BYTES,
s THIS COUNT SHOULD Bt A MULTIPLE OF 256 TO INSURE
:PROPER READ/UWRITE BUFFER ALLOCATION BY THE SUPER.

sORIVE INIT.
;READ FORWARD

;WRITE VERIFY

iREAD

REV

;SPACE RECORD FORWARD

RETRY]

;READ REV RETRY?

;READ FWD RETRY)

;READ FWD RETRY?

REREAD

REREAD NEXT

REVERSE,

If.

FORWARD,

IE.READ FORWARD,

REREAD PRt VIOUS FORWARD,
REREAD PREVIOUS REVERSE,

SPACE

FWD,

READ

REVERSE

SPACE REVERSE

IE.

SPACE REVERSE,

READ FORWARD

IE.

READ REVERSE,

SPACE FORWARD

| s
|

GLOBAL

AREAS

GLOBAL

EQUATES SECTION

2260
2261

MACRO VO0S5.03

Fridey 22 Mey 87 08:12

Pege 20 1

SEQ 0048

;WRITE RETRY
102010

RWD==

100012

MBRs=s=

100011

WTM==

101011

ACK. C!M00D.

<'CMD.C3

ACK. C:CHO. C3:CMD.C1

ACK. C:CMD. C3:CMD.CO

;REWIND COMMAND
;MESSAGE BUFFER RELEASE
;HWRITE

TAPE MARK,

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

;WRITE TAPE MARK RETRY,

105010

SFFss

105410

SFR=s

100017

GES==

100411

ERSs=s=

100412

UNL==

ACK .C!M00. Co:CMD.C3:CHD.C)

101012

CLN==

ACK. C!M00. C1:CMD.C3:CMD.C)

140004

SCH==

ACK. C!CvC. C:CMD.C2

140006

WSM=»

ACK. c:cvC. C!:CMD.C2!'CMD.C1

100006

DIA==

ACK. C:CMD. c2!CMD.C1

:DIAGNOSTICS.

000040

JMPss

JP .C

;JUMP TO

000020

DLYss

oLY .C

;DELAY

“N" MS,

177777

;:END OF

COMMAMD SEQUENCES

177777

ACK. C!BRF .C!M00.C1:CMD.C3

:SPACE FILE FORWARD

ACK. C!BRF .C!M0D.CO'MOD.C1:CHMD.C3

;:SPACE FILE REVERSE

ACK. C:CHOD. CO!CMD.C1:CMD.C2:CMD.CS

;GET EXTENDED STATUS

ACK, CtMOD. Co:CMD.C3:CMD.CO

;ERASE 3 INCHES OF

TAPE

sUNLOAD COMMAND

;ERASE TAPE.

:SET DEVICE CHARACTERISTICS.
;WRITE SUB SYS MEM

“N"TH COMMAND

<4
GLOBAL AREAS

MACRO V05.03

Fr 'dev 22 Mey 87 08:12

Page 21

SEQ 0049

GLOBAL DATA SECTION
.SB8TTL

GLOBAL

DATA SECTION

THE GLOBAL DATA SECTION CONTAINS DATA
IN MORE THAN ONE TEST.

002330
002332
002334
002336

02330
000000
000000
000000
000000

COMMAND PACKET,
<.+3>£177774

]
*
CMOPKT; ; 0

002340

100017

]

GSCPK; :

ARE USED

sMUST BE ON MOD 4 BOUNDRY.

;157
;12ND
:3RD
;4TH

0
0
0

GEY

THAT

WORD IS TSO5 COMMAND.
WORD IS THE BUFFER LOW ADDRESS.
WORD IS THE BUFHFR HIGH ADDRESS.
WORD IS THE BYTe/RECORO/FILE COUNT.

STATUS COMMAND PACKET.

=
.WORD

<.+3>£177774
GES

;MUST

BE ON MOD 4 BOUNDRY.

MESSAGE BUFFER RELEASE COMMAND PACKET,
002344

002344
100012

BRCPK: ;

<.+3>E£177774

.WORD

REWIND

002350

002350
002352

102010

000001

RUCPK;

002354

COMMAND

PACKET

<.+3>£177774

. WORD
. WORD

RWD
1

WORK

MSGPKT : .

.MUST BE ON MOD 4 BOUNDRY.

MBR

(USED

;MUST

ERROR

AREA FOR ANALYSIS OF MESSAGE PACKET

.BLKW

s1ST

002474

002476
002502
002504

002506
002510
002512

MSGPKO: :

MESSAGE :ACKETS .
.BLKW
.BLKW

MSGPK]
: :
MSGPK2: :

BLKW
.BLKW

MSGPK3: :

002374

000000
000020
000040
000000

000000
000000
000000

SET

8.
8.
8.

WORD::

;STH
;6TH
;7TH
;8TH

XSTAT1
XSTAT2
XSTAT3
XSTAT4

WSMBK; :

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

;4TH

;STH WORD::

MSGPKT ADDR LO(SET UP BY EXCUTE ROUTINE).
MSGPKT

ADDR

HI.

:3RD WORD:: MSG BUFFER LENGTH (BYTES)

(o]

€0
el

sMESSAGE PACKET FOR DEVICE e2
;MESSAGE PACKET FOR DEVICE o3

CH.EAI

WRITE
0

XSTATO

sMESSAGE PACKET FOR DEVICE
sMESSAGE PACKETY FOR DEVICE

;2ND WORD::

MSGCNT

MESSAGE TYPE.

DATA FIELD LENGTH.
RESIDUAL FRAME COUNT.

:1ST WORD::

CONTENTS.

soND WORD::
;3RD WORD::

CHARACTERISTIC BLOCK.

SCHBK: : MSGPKO

ONLY)

ON MOD 4 BOUNDRY.

;4TH WORD::

002374
002414
002434
002454

RECOVERY

SUB-SYSTEM MEMORY

WORD::

CHARACTERISTICS

HSP & BUFFER

CHARACTERISTIC BLOCK.
$1ST WORD:: SEL O

;@ND WORD::

s3RD WORD::

SEL 2
SEL

WORD(SET

CONTROL

SETUP

ROUTINE
).

ON EXT'D FEATURES

GLOBAL AREAS
GLOBAL

MACRC V0S.03

Fridey 22 Mey 87 08:12

Page 21-1

SE@ 0050

DATA SECTION

002514
002524
002534

002514

SDB::

1505 REGISTER

.BLKW

TSSR::
.BLKW
TSVCT:: .BLKUW

TSBA==TS08

ADDRESSES.

4
4

; 7S0S5
:7S0S5

ADDRESSES OF MESSAGE PACKETS.

ADDRESSES OF INTERRUPT HANDLING ROUTINES.

MSGPKA:: MSGPKO
MSGPK 1
MSGPK2
MSGPK3

002554
002556
002560
002562

010074
010102
010110
010116

TSSINT::

TSSINO
TSSIN1
TSSINS
TSSIN3

3
TSSCL: :

505 CODE LEVELS,

002604
002606
002610
002612
002614

002616
002620
002622
002624

177774
177774
177774
177774
177777

003046
003120
003172
003244

002374
002414
002434
002454

002574
002576
002600
002602

STATUS
VECTOR

;DATA BUFFER ADDRESS REGISTER.

002544
002546
002550
002552

002564
002566
002570
002572

:7S0S DATA BUFFER ADDRESSES.

:DEVICE O.
;DEVICE 1.
:DEVICE 2.
;OEVICE 3.

sDEVICE O.
;DEVICE 1.
;:DEVICE 2.
;DEVICE 3.

0
0
0

WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST
sDEVICE O
;DEVICE 1
:DEVICE 2
;DEVICE
3

TS0S EXT.,

FER & BUF.

ENA SW'S,

UILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST

TSS5SW::

O
0
0
0

UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4).

DEVICE
zDEVICE
sDEVICE
2
SDEVICE 3

:
;
DEVTBL::

WHEN DEVICE IS NOT IN USE, IT,S LOCATION WILL =
RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUHBER X 2.

BAD TAPE TABLE POINTER:

BTADDR::

.WORD
.UORD
.WORD
.WORD
.WORD

NINUSE
NINUSE
NINUSE
NINUSE
END

USED BY WRITE RETRY ROUTINE

"WRTY" TO LOG BAD TAPE SPOTS ON UNITS UNDER TEST
BTO

GLOBAL AREAS

MACRO V0S.03

Fridey 22 May 87 08:12

Page 22

SEQ 0051

GLOBAL DATA SECTION

2430

:
002626
002666
002726
002766
002776
003006
003016
003026
003036
003046
003120
003172
003244
003316
003326
003336
003346
003356
003366

2431 003376
2432
2433

002626

COUNTER AREA.

CNTBGN=.

WRBC:: .BLKW
RRBC:: .BLKW
RFBC:: .BLKW
WRREC:: .BLKW
WRUNR:: .BLKW
RRREC:: .BLKW
RRUNR::
.BLKW
RFREC::
.BLKW
RFUNR::
.BLKW

B870::
B8T1::

.BLKW
.BLKW

BT2::

.BLKUW

873
.BLKW
WRTYCT:: .BLKW

PASCNT::

.BLKW

SCCNT:: .BLKW
VFYCNT:: .BLKW

003376
000550

HROCNT::
FTLCNT::
CNTEND=,
RECCNT::

.BLKW
.BLKW

.BLKW

20
20
20
4
4
4
4
4
4

21.
2l.

2l.
2l.
4

4
4
4
4

2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429

CNTLEN==CNTEND CNTBGN

H
H

;:BYTES WRITTEN.
:BYTES READ REV,
;BYTES READ FWO.

;RECOVERABLE WRITE ERRORS.
sUNRECOVERABLE WRITE ERRORS.
;RECOVERABLE READ REV ERRORS,
;UNRECOVERABLE READ HEV ERRORS.
;RECOVERABLE READ FUWOERRORS.

sUNRECOVERABLE READ FWD ERRORS,
sUNIT

O BAT

sPASS

COUNT,

TAPE SPOTS LOG

:UNIT 1 BAT TAPE SPOTS LOG
sUNIT 2 BAT TAPE SPOTS LOG
;UNIT 3 BAT TAPE SPOTS LOG
sWRITE RETRY COUNTER
;SPECTAL CONDITION COUNT,

oCOUNT OF 7505 DATA COMPARE ERRORS.
;COUNT OF HARD ERRORS.,
;COUNT OF FATAL ERRORS.
sEND OF STATICTICAL COUNTERS.
;:NUMBER OF RECORDS FROM BOT: CLEARED
ON REWIND
;AND WHEN RESTARTING OR CONTINUING TEST 2.
;LENGTH OF STATISTICAL COUNTER AREA.

THE FOLLOWING ARE THE DEFINITIONS OF VARIABLES
USED BY THE PROGRAM.

DATAWT:: .WORD
DIABLK==DATAWT
DATARD:: .WORD

O
O

;WRITE BUFFER ADDRESS.
:WRITE BUFFER ALSO USED FOR DIAG CMD.
sREAD BUFFER ADDRESS.

NCNT1:: .WORD
BRFCNT:: .WORD
CMOWRD:: .WORD
CMDSAV:: _WORD

O
O
END
END

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

CMDLG:: .WORD
LENMSK:: .WORD

O
O

s CURRENT COMMAND LOGGING CODE.
sRANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS

NCNT::

.WORD

PCMOWD::

RANB::
RANS::

TIMELl::

.WORD
.WORD

.WORD

TIME2::

.WORD

JLOOP::
JLOC::

PATERN::

CTCC::

.WORD

.WORD
.WORD

WTMFLG::

END

153624
32561

(o]

0
(o]

.WORD

.WORD
.WORD

O
O

.WORD

RSSAVE::
TSSREG::

.WORD

1STORAGE FOR VALUE OF

sCONTAINS PREVOUS

COMMAND

WORD.

1RANDOM ¢ GENERATOR BASE.
sRANDOM & SAVE LOCATION.

s TIME COUNT 1.
s TIME COUNT 2.
:JPP COMMAND LOOP COUNT.
JMP COMMAND LOCATION COUNT.

;PATTERN SELECT

CODE.

sCURRENT TERMINATION CLASS CODE.
sLOCATION FOR SAVING CURRENT DEVICE POINTER.
1 CURRENT STATUS REGISTER.
;WRITE TAPE MARK FLAG

GLOBAL AREAS

MACRO VO5.03

Friday 22 May-87 08:12

Page 23

SEQ 0052

GLOBAL DATA SECTION
2462
2463
2464
2465
2466
2467
2468
2469

ERROR FLAG AREA,

THESE FLAGS ARE CLEARED DURING INITIALIZATION AND

AFTER EACH COMMAND IS COMPLETED.

RETRYC:
:
RPTCNT:
:

.WORD
.BYTE
WRTYFG:
; .BYTE
WRTYER:
: .BYTE
RECLOG:
: .BYTE
ERLOG:: .BYTE
RUWERR:
; .BYTE
UNREC:
: .BYTE
ERRREC:
: .BYTE
EVEN

2470

2471
2472
2473

2474 00
2475

OF RECOVERY ATTEMPTS EXECUTED.

000000000

BGNFLG=,

xURITE REPEAT ON SAME SPOT CNTR: 4 PER WRITE RETRY
;WRITE RETRY ON SAME SPOT

IN PROGRESS FLAG

+WRITE RETRY ON SAME SPOT ERROR FLAG
sRECORD COUNT HAS BEEN UPDATED FOR THIS RECORD.

;1DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD.

sREAD/WRITE ERROR HAS OCCURED.

s UNRECOVERABLE ERROR HAS OCCURED.
sERROR RECOVERY MODE.

ENDERF =,

2476
2477
2478
2479

003472
003502
003512
003514
003515
003516
003517
003520
003521
003522
003523
003524
003525

INTFLG::
EOTFLG:
:
BTPT::
EXPBOT:
:

.BLKW
.BLKW
.WORD
.BYTE
RANDOM:
: .BYTE
VFYFLG:
: .BYTE
RPTFLG:
: .BYTE
SWBFLG:
: .BYTE
.BYTE
IRE::
DROPED:
: .BYTE
T1SW8:
:
-BYTE
ALLEOT:: .BYTE
ERSFLG:
: .BYTE

003526

ENOFLG=.

FLAGS,

00000000000
MM

ADDITIONAL

.BYTE
.BYTE
.BYTE
MISCFG:: .BYTE
TSUNT:: . WORD
TSNP
;
. WORD

CLEARED DURING INITIALIZATION.

1BAD TAPE SPOT POINTER TO B870-BT3 VIA BTADDR

sB0T IS EXPECTED, DO NOT ABORT ON BOT/FUNC RTI.
;RANDOM EVERYTHING FLAG.
$1SET DURING WRITE/VERIFY COMMAND.

s PERFORMANCE REPORT

HAS BEEN REQUESTED.

1ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO.
+INHIBIT RESIDUAL FRAME COUNT ERROR REPORT.
;CURRENT UNIT HAS BEEN DROPPED

tTEST1

SWAP BYTES FLAG

tALL UNITS
@ EOT FLAG
;ERASE FLAG:
DO ERASE AFTER A SPACE REV TO DELETE

:BADLY WRITTEN RECORD.

TO 4 ERASES LEAVING

;A 3 TO 12 INCH GAP MAY RESWLT.

ADDITIONAL

STAFLG:
:

ARE

s INTERRUPT OCCURRED FLAGS FOR EACH DEVICE.
;EQOT/BOT FLAGS FOR EACH DEVICE (XSTATO).

.EVEN

PWRFLG:
:
TRAPDA
::

THESE FLAGS

0
0
0
0
0
0

FLAGS,

THESE FLAGS

ARE CLEARED ONLY

1START FLAG -

AFTER BEING CHECKED.

SET BY INIT COOE IF STARTING.

+POWER FAILURE FLAG - SET ONLY DURING INIT.

s TRAPED AT 4 FLAG

sMISCELLANEQUS FLAG
tNUMBER OF

THE UNIT LMER TEST PLUS HSSPEBUF

¢
xFOR PRINT OQUT UNIT

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

OPFLAG:
:

. WORD
.EVEN

sREAD ONLY OPERATOR FLAG WORD

GLOBAL

AREAS

GLOBAL

DATA

MACRO VOS.03

Fridey 22 Mey-87 08:12

Page 24

SEQ 0053

SECTION

;THE FOLLOWING IS THE COMMAND SEQUENCE TABLE.

y+HAS

DEFAULT

VALUES

PROGRAM LOAD

SHOWN.,

;CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT,

CMDSEQ::

.WORD

CH.EAI

.WORD

. WORD
CMDSE2::

.WORD
.WORD

.WORD

177777
177777
177777
177777
177777

RWD
1

;REWIND.
t1BYTE COUNT.

.WORD
.WORD
.WORD
.WORD

WRT
DATCNT
32000.
RANP

sWRITE,
tMAX BUFFER LENGTH,
132,000 RECORDS.
;RANDOM PATTERN,

.WORD
. WORD

DATCNT
32000.

RANP

RDR

sPATTERN.

;:READ REV.

sMAX BUFFER LENGTH.
;32,000 RECORDS

. WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD

RANP
RDF
DATCNT
32000.

RWO
1

s RANDOM PATTERN.
{READ FWD.
tMAX BUFFER LENGTH.
;32,000 RECORDS.
sRANDOM PATTERN,
s REWIND .,
t+BYTE COUNT.

. WORD

RANP

:PATTERN.

.WORD

.BLKW
SEQEND:: .WORD

.WORD

VALUES

CHARACTERISTICS.

:ONCE.

. WORD

003740
003742
003744
003746
003750

;SET

. WORD

2543
2544
2545
2546
2547

SCH

.WORD

THE TABLE

THESE

RANP
1

40.
END

END

s ONCE
.

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

WORD

ENO

.WORD

END

sHARD END OF SEQUENCE TABLE.

DRI

+DRIVE INIT.

RDR

sREAD REVERSE.

WiV

tWRITE/VERIFY,
(WRITE ALL RECORDS, RDR AND
sCHECK DATA ON ALL RECORDS, RDF AND

.WORD

END

; THE FOLLOWING IS THE TSOS COMMAND TABLE
CMOTBL::

.WORD

ROF

.WORD

WRT

.WORD
.WORD

SRF
SRR

.WORD

. WORD

.WORD
.WORD
.WORD

RNR

RNF
RPF
RPR

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

WRR
RWO
MBR
WTM
WTR
SFF

.WORD

GES

.WORD

SFR

{READ FORWARD.

tWRITE

sCHECK DATA ON ALL RECORDS.)

1SPACE "N” RECORDS FORWARD.
1SPACE “N" RECORDS REVERSE.
sREAD NEXT REVERSE.

I.E.,

SPACE FWD,

READ REVERSE.

sREAD NEXT FGCWARD, I.E., READ FORWARD, SPACE REVERSE.
1READ PREVIOUS FORWARD. I.E., SPACE REVERSE, READ FORWARD
tREAD PREVIOUS REVERSE. I.E., READ REVERSE, SPACE FORWARD

;WRITE RETRY.
;sREWIND,
tMESSAGE BUFFER RELEASE
;WRITE TAPE MARK
tWRITE TAPE MARK RETRY,
;SPACE “N" FILES FORWARD.

1 SPACE

“N" FILES REVERSE.

;GET EXTENDED STATUS.

GLOBAL AREAS
GLOBAL

MACRO V0S5.03

Friday 22-Mey-87 08:12

Page 24-1

SEQ 0054

DATA SECTION

2571 004020
2572 004022

100411
100412

.WORD
JWORD

ERS
UNL

;ERASE 3 INCHES OF TAPE.
{REWIND AND UNLOAD.

2575 004030
2576 004032
2577 0040334

100006
000040
000020

.WORD
.WORD
.WORD

DIA
UMP
DLY

;DIAGNOSTIC COMMAND.
;JUMP TO THE NTH COMMANO IN THE SEQUENCE.
{DELAY "N* MS.

2573 004024
2574 004026

gg;g 004036

101012
140004

.WMORD
.WORD

177777

.WORD

gggg

CLN
SCH

END

CMDASC::

.ASCII
.ASCII
_ASCII
CASCII
CASCII

/DRI/
/ROF/
/RDR/
/WRT/
/MTV/

;ORIVE INIT.
{READ FORWARD.
;READ REVERSE
.
JWRITE
;WRITE/VERIFY.

;SPACE "“N* RECORDS FORWARD.
1SPACE “N"
RECORDS REVERSE
.
;READ NEXT REVERSE. I.E., SPACE FWO READ REVERSE.
;READ NEXT FORWARD, I.€.. READ FORWARD, SPACE REVERSE.
;READ PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD
;READ PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD
{WRITE RETRY.
;REWIND.
;MESSAGE BUFFER RELEASE
{WRITE TAPE MARK
{WRITE TAPE MARK RETRY.
;SPACE "N* FILES FORWARD.
;SPACE "N” FILES REVERSE.
;GET EXTENDED STATUS.
;ERASE 3 INCHES OF TAPE.
;REWIND AND UNLOAD.
;CLEAN TAPE,
1SET CHARACTERISTICS.
WHERE BRF=200, 40, 20, O.
1 SEE TSV05/7S0S PROGRAMMING SPECIFICATION FOR DESCRIPTION.
;OIAGNOSTICS.
SEE TSVOS/TSOS PROGRAMMING SPECIFICATION
;FOR DESCRIPTION.
00T MUST BE USED TO LOAD DIAGNOSTIC DATA
1INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED.
;JUMP TO THE NTH COMMAND IN THE COMMAND
: SEQUENCE TABLE,
WHERE N IS DEFINED IN

104
122
122
127
127

122
104
104
122
124

111
106
122
124
126

2588
2589
2590
2591
2592
2593
2594
2595
2596
2597
2598
2599
2609
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611

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

123
123
122
122
122
122
127
122
us
127
127
123
123
107
105
125
103
123

122
122
116
116
120
120
122
127
102
124
124
106
106
105
122
116
114
103

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

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
-ASCII
.ASCII
JASCII
.ASCII
.ASCII
.ASCII
-ASCII
.ASCII
CASCIT
.ASCII
.ASCII

/SRF/
/SRR/
/RNR/
/RNF/
/RPF/
/RPR/
/WRR/
/RWD/
/MBR/
/WTM/
/WTR/
/SFF/
/SFR/
/GES/
/ERS/
/UNL/
/CLN/
/SCH/

00414S

104

111

101

.ASCII

/DIA/

004150

112

115

120

LASCII

/a®/

2613 004153

104

114

131

.ASCII

/DLY/

5212 004156

105

116

104

.23251

/END/

2614

COMMAND TABLE

THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND.

004040
004043
004046
0040S)
004054

2€12

;END OF

;

2582
2583
2584
2585
2586

2587

;CLEAR TAPE.
;SET CHARACTERISTICS.

(WRITE ALL RECORDS,

RDR AND CHECK DATA

;ON ALL RECORDS, ROF AND CHECK DATA ON ALL RECORDS.)

;THE @ OF OPERATIONS.
;DELAY

"N MS,

WHERE N IS DEFINED IN

;THE © OF OPERATIONS.

;ENO OF COMMAND SEQUENCE.

GLOBAL

AREAS

GLOBAL

TEXT

MACRO VOS.03

Ffriday 22 May 87 08:12

Page 25

SEQ 0055

SECTION

2619
2620
2621
2622
2623

.SBTTL

GLOBAL

TEXT

SECTION

jee
¢ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN

2624

;

2625
2626
2627

gggz

2634

;

THAN ONE

FORMAT

TEST.

STATEMENTS USED IN PRINT

CALLS

2637

2640 004162
2224‘5 00423]

045
045

116
116

045
045

CODELM:: .ASCIZ /wNwAUNIT sD1sA TSOS CODE LEVEL sO3sNEN/
SWSET:: .ESE£Z
/9NSAUNIT #D1sA TSOS SWITCH SETTINGS sO3wNaN/

2643 004306

22244; 004346

130

103

130

HALTM::

2646 004430
2647 004453

104
116

101
117

124
040

UWTVERM:: _ASCIZ /DATA COMPARE ERROR/
TOERM:: .ASCIZ
/NO TSVOS RESPONSE/

2649 004521

122

106

103

RFCERM::

2648 004475
2650 004536
2651 004556

125
124
122

2632 004603

104

2654 004642

106

2653 004622

106

2655
2656
2657
2658
2659

004670
004705
004727
004753
005017

116
124
124
103
122

2661
2662
2663
2664
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676

005065
005114
005146
005226
005275
005337
005360
005422
005456
005507
005543
005570
005653
005741
005744

045
045
045
045
045
045
045
045
045
045
045
045
040
045
045

2660 005041

125

115

116

104

_ASCIZ

/XXX CMD

TYPE

<CR>

TO CONTINUE/

éI\ECIZ /CMD PACKET ADR NOT ON MODWLO 4 BOUNDARY: RELOAD!/

.EVEN

SCERM::

_ASCIZ

/UNDEFINED SPEC COND/

126
124

NSSRM::
RLEXM::

_ASCIZ
.ASCIZ

/TSVOS NOT READY/
/RETRY LIMIT EXCEEDED/

125

116

FUNRM::

_ASCIZ

/FUNCTION REJECT/

117
101
117
101
105

040
120
117
120
103

NOINTM:: .ASCIZ
TSAM::
ASCIZ
T0OMM:: _ASCIZ
RNYM::
_ASCIZ
RERM::
_ASCIZ

116
116
116
116
104
101
101
101
101
101
116
101
052
116
116

045
045
045
045
064
116
122
122
104
107
045
111
052
000
045

123
105

122
101

116

104

CMOPKM::

.EV

111

124

122

ATTNM::

FATSM::

URERM::

_ASCIZ /RFC NON ZERO/

.ASCIZ
_ASCIZ

_ASCIZ

DROPDM:: .ASCIZ
AUDRPM:: _ASCIZ
AUDRUN:: .ASCIZ
DTAER2:: .ASCIZ
OTAERS:: .ASCIZ
DOTAER4:: _ASCIZ
DTAERS:: .ASCIZ
NURTY1:: _ASCIZ
OFLINM:: ._ASCIZ
GETSTM:: ,ASCIZ
NOOEV:: .ASCII
.ASCIZ
UNIMLK: _ASCIZ
CRLF::
.ASCIZ
CRLFSP:: .ASCIZ
.LIST

/DRIVE OFF LINE/

/FATAL SUBSYSTEM ERROR/

/NO INTERRUPT/
/TAPE STATUS ALERT/
/700 MANY INTERRUPTS/
/CAPSTAN RUNAWAY-GET STATUS RESWLTS:/
/RECOVERABLE ERROR/
/UNRECOVERABLE ERROR/

/#NsADROPPED UNIT sD1sN/
/#NsAALL UNITS DROPPEDSNEN/
/wNsADIAGNOSTIC ONLY SUPPORTS ONE CONTROLLER®N®SN/
“wNwABYTE :sD4nS28AWAS
: 8B888S528AS /B : wB8SN ~
"wD4sA BYTES IN ERROR OQUT OF wDAmN“
/#ANO DATA READSN/
/#7QE"ORD TOO LONG: >#048A BYTESsN/
/wARECOVERED ON RETRY owD2uN/
/#ADRIVE sD1sA OFF L INESN/
/#AGET STATUS CMO RESULTS:sN/
/wNsABUS TRAP AT #06#N/
/#AINTERFACE BAD OR TSDB NOT SET TO ABOVE ADDRESSSN/
/ eeeeeTAPE IS WRITE-LOCKED AND WILL CAUSE ERRORSessee/
/wN/
/wNwS7/
BEX

GLOBAL

AREAS

MACRO

GLOBAL ERROR REPORT

VOS.03

May

08:12

.SBTTL

2680
2681
2682

2683

2695 006006

2705 006112
2706

016546
016546
013746
012746
012746
010600
104414
062706

000012

012746
012746

006530
000001

104414
062706
010237
010337
010437
004737
013702
010337
013703
013704

007066
003436
003440
010124
007066
007066
003436
003440

013746
012746
012746
010600
104414
062706

003376
003326
003534
006436

SECTION

THAT
THAT

ARE
ARE

USED
USED

PRINTB

SECTION CONTAINS THE PRINTB AND PRINTX CALLS
THE ASCII MESSAGES

IN MORE THAN ONE TEST.
IT ALSO INCLUDES
BY THE PRINTB AND PRINTX CALLS..

DTAERM
OSTAER), TSNP ,PASCNT(RS),RECCNT(RS)

¢STAER7

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

TIMELl,R3

TIME2, R4
@STAERG ,RECRED

:SAVE R2
;SAVE R3
:SAVE R4

sRETRIEVE RECORD READ

;RESTORE R2

: SAVE RECORD READ

;RESTORE R3
;RESTORE R4

;PRINT

RECORD

READ

RECRED,
- (SP)

9STAERG,

02,-(sP)

EXIT

L10002:

MSG

JEMP
L10002-2-.

003376
003326
003534
006436

ENDMSG
TRAP

BGNMSG

STAERM:
: PRINTB

STAERM
@STAER]1, TSNP ,PASCNT(RS) ,RECCNT(RS)

- (SP)

SP.RO
C$PNTB
06 ,SP

.EVEN

STAERM::
016546
016546
013746
012746

BGNMSG

OATERM: :PRINTB

000167
000000

2710 006120

006134

SEQ@ 0056

ERROR REPORT

THE GLOBAL ERROR REPORT

007066
006562
000002

104423

006120

GLOBAL

DTAERM:
:

2707
2708 006116

2709

®s

2684
2685
2686
2687
2688 005752

2694 005752

Page

SECTION

2679

2711

Friday

C$MSG

GLOBAL

AREAS

GLOBAL

ERROR REPORT
006140
006144
006146
006150

2712 006154
006154

006160
006164
006166

2713
2714
2715
2716
2717
2718
2719
2720

006170
006174
006200
006204
006206
006210
006212
006216
006222

2721 006246

2722 006266

MACRO VOS5.03

012746
010600
104414
062706
012746
012746
010600
104414
062706
013702
042702
005302
005702
001016

SEQ 0057

000004

(SP)

C4¢PNTB
PRINTB

006530
000001

012,5P

#ASTAER?

OSTAER7,

01, (sSP)

(SP)

SP,RO

C$PNTB

000004
002330

MOV
8IC
DEC

177740

010124
010124

013746
012746
012746
010600
104414
062706

007066
006562
000002

012746
012746
010600
104415
062706

006616
000001

013746
013746
013746
017546
013746
012746
012746
010600

003450
003454
002360
002514
002330
006675
000006

062706

000016

013746
013746
013746

002336
002334
002332
006733

104415

o4,

SP,RO

000012

004737
010337

012746
012746
010600

2724 006366

Page 26

SECTION

104415

2723 006332

Ffriday .2 May 87 08:12

000006

000004

CMOPKT ,R2
$177740,R2
R2

TST

MOV

R3,RECTAP

BNE
JSR

PRINTB

500004
PC,RECTAP

oSTAER6 ,RECRED

o4 ,SP

:IF CMD IS A READ

; THEN RETRIEVC

; AND
: TYPE RECORD READ

RECRED,
OSTAERG,

02, (SP)

S0000+4
:

PRINTX

(SP)
(SP)

SP,RO
C$PNTB
06, SP

#STAERZ

OSTAERZ, -(SP)
el,-(SP)

OSTAER3.CHDPKT.aTSDB(RS).HSGPKToHS.RFC.TSSREG.CTSSV

CePNTX
o4, 5P

CTCC.-(SP)
TSSREG,
- (SP)

MSGPKT -MS.RFC,

STSDB(RS)
. -(SP)
CMOPKT, - (SP)

(SP)

0STAERS,
- (SP)
%6,

(SP)

SP RO

C$PNTX

PRINTX

OSTAER4,CMOPKT.2,CMOPKT.4,CMDPKT
.6

CMOPKT
+6, -(SP)

CHOPKT
.4, -(SP)
CMOPKT.2. -(SP)
O#STAERE

o4, (SP)

-(SP)

SP,RO

062706

000012

013746
013746
013746
013746
013746
012746

002372
002370
002364
002362
006753

C4PNTX

PRINTX

ADD
012,5p
#STAERS ,MSGPKT+MS. XSO ,MSGPKTMS, XS] ,MSGPKT«MS_ XS2 ,MSGPKT +MS
. XS3 MSGPKT.MS
., XS

MSGP
-MS. XS4,
KT
-(SP)
MSGPK
. XS3,-(SP)
T+MS
MSGPKT
. XS2,
-MS
-(SP)
MSGPKT.MS
. XS1, (SP)
MSGPKT.MS,
XS0, - (SP)
#STAERS, -(SP)

GLOBAL

AREAS

GLOBAL

ERROR REPORT

MACRO V0OS.03

Fridey 22-Mey 87 08:12

012746

000006

MOV

06,

006424
006426

1044)S
062706

000016

TRAP
ADD

C$PNTX
016,5P

.WORD
. WORD

JsuMe
L10003 2

2725 006432

010600

MOV

EXIT

006432
2726 006434

000167
000432

2727
g;gg 006436

045

101

130

STAERL:

006530
006562
006616
00667S
006733
006740
006745
006753
007027

045
045
045
045
045
045
045
045
04S

101
123
116
117
117
117
117
101
117

120
061
045
066
066
066
066
130
066

STAER7:
STAER6:
STAER2:
STAER3:
STAER4:

S;:é 007066

000000

2743 007070
007070
2744 007070

104423

STAERS:

RECRED:

.SBTTL

2748

2750

‘

2749

2751
2752
2753
2754
275S
2756

2757
2758
g;zg
2761
2762
2763

2764

2765

2766

BEX
/8AXXX CMO FAILED

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCII
.ASCII
.ASCIZ
.ASCII
.ASCIZ
LIST
.EVEN

/#APREVIOUS CMD WAS
XXX
/
/%S11sAs RECORD READ:%DS#A «/
/#NsACMOPKT#S2#ATSBA%SASARF CHSSHATSSRES3ISATCCEN/
/#06%S2%06%S2806%S52806%5298D
18N/
/#06%N/
/#06%N/
/%06%N/
/#AXSTOuNSA4sAXST1xS4sAXST2oRS48AXSTINS48AXSTA%N/
/#068S28068S2806%S2806%S52%806%N/
BEX

UNIT s#D1sS3sAPASS :#DSe#S3ARECORD : sDSeN/

:RECORD READ FROM TAPE

TRAP

GLOBAL

SUBROUTINES SECTION

: L X 3

;

THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES
THAT

ARE

I
H

sROUTINE

USED

TO DO

IN MORE

SOFT

THAN ONE

INITIALIZE

TEST,.

THE

CONTROLLER

:B8Y WRITING INTO THE TSSR REGISTER. AFTER THE INIT,
;THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS
;DETECTED SHOUWD BE TREATED AS DEVICE FATAL ERRORS.
:

: INPUTS
H
;
RS

CURRENT UNIT NUMBER

;OUTPUTS;
3

2772

sCALLING

2773

.NLIST
.?3%%2

:
H
H
H

(SP)

SP,RO

ENDMSG

2767
2768

2769
g;;o
1

MSG

.WORD

L10003:

2745
2;4?
2

SEQ 0058

SECTION

006416

006422

2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740

Page 26 2

CARRY

CONTENTS OF TSSR,

SEQUENCF
:

JSR

IF ERROR

SET IF INIT WAS OKAY
CLEAR IF FATAL ERROR
PC,FIRSTUY

C$MSG

GLOBAL

AREAS

MACRO V0S.03

Friday

22-Mey

87 08:12

Page

26-3

SEQ 0059

GLOBAL SUBROUTINES SECTION
2774

JSR
8CS
ERROF

2775

2776
2777
2778

2779
2780 007072
2781
2782 007072
2783 007100
2784

007104

2785 007110
2786 007114
2787 007116
007116

2788
2789
2790
2791
2792
2793
2794
2795
2796
2797

007122
007124
007130
007132
007136
007140
007144

007146
007150
007152
007156
007160
007164
007170
007172
007174
007176

2798 007200
2799 007202

PC,SOFINIT

CONTINUE

;REPORT

SOFINIT::
012775
004737

012703

004737

103416

012727
000000
013727
000000
005367
001375
005367
001367
005303
001357
017500
010004
042704
052704

020400
001402
000241

000000
012740
000550
007204

002524

JSR

000250

ERROR

s+ (SAVREG) SAVE THE REGISTERS
3+ DO _THE INIT,

#0,dTSSR(RS)

2%:

FATAL

PC,WSSR
©#360. ,R3
PC.WAITF

sWAIT FOR UN1T
;

34
250

WAIT

TO BE READY

FOR SSR

8250.(PC)~

002116

bSDLY.(PC)o

177772

-6(PC)

177756

-22(PC)
.-20

00524

34:

MOV

RO,R4

1GET THE TSSR REGISTER
1 TSSR CONTENTS

#7S.SSR1TS.NBA,R4

;R4 HAS EXPECTED CONTENTS

:BRANCH IF OKAY

01C<TS. A17!TS.AL6!TS.OFL>,R4

176277
002200

000401
000261
000207

24
aTSSR(RS),RO

R4 ,RO

S4:

104%:
]

SEC

RTS

sONLY EXPECTED BITS SET

10¢

;CLEAR THE CARRY FOR ERROR
1GO_T0O EXIT

sRETURN

$SET THE CARRY BIT
TO

CALLER

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG

:INPUTS:
3

CURRENT UNIT NUMBER

CONTENTS OF LAST
SET

CLR 2815 007204
2816
2817
2818
2819
2820

007204

007206
007212
007216
007220
007222
007222

104422
012746
017500

105700
100420

012727

READY BIT

TIMEOUT WAITING FOR READY

AITF:
005670
002524

000025

24:

TSSR READ

SET

:+
200"

DELAY

9#3000.,-(SP)

8TSSR(RS),RO

34
25

DO A SUPVSR BREAK FIRST.

s+ 300 MSEC TIMER.
tREAD THE TSSR REGISTER
1 TEST FOR READY BIT SET
s+ EXIT ON STOP FLAG.

WAIT

TRAP

C$BRK

MOV

0825,(PC)e.

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

007226
007230
007234
007236
007242
007244
007250
007252
007254
007256
007260
007262
2826 007264
2827 007266
2828
2829

MACRO V05.03

000000
013727

000000
005367

001375
205367
001367

Fridev 22-Mey 87 08:12

Page 26 4

SEQ 0060

002116

.MORD

.WORD
DEC

MOV

177772

177756

2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843

DEC

(SP)
2%

;REDUCE DELAY COUNT
;RETRY UNTIL TIMER EXPIRES

;

C = 0,
.OR

BNE
DeC
BNE

AFTER

300 MSEC.

C' = 1, CONTROLLER IS STOPPED.
;RESTORE STACK WITHOUT CHANGING CARRY BIT

éép)°

:ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMAND AND CHECK FEATURES
B

:INPUT:

COMMAND PACKET

SOFINIT

UNIT

NUMBER

DONE PREVIOUSLY

ouTPUT:

R4
ADDRESS
RS
CLRRENT
REQUIRES
A CALL

CARRY

2845

TSSR CONTENTS
WRITE CHARAC TERISTICS COMMAND OK
SET

CLR

WRITE CHARAC TERISTICS FAILED

2846

IMPLICIT

QUTPUT:

SOF TWARE

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

©¢

8BS

2847
2848
2849
2850
2851
2852

sSIDE EFFECTS:

010475
004737

103401

WRTCHX
::
MOV
10%:

002514
007204

00044
005724
011402

011203

032763
001402
005237

40%:

000200

002322

TS7

R4 ,37SDB(RS)
PC,.WAITF
404

604

(R4).
(R4) ,R2

(R2),R3
:§2.EFE,MS.XS2(R3)

000012
454

EXTFEA

CONTROLLER STILL RUNNING..

HUNG UP

26844

L$OLY, (PC)e-

;SEND OUT COMMAND

sWAIT FOR SSR

;BR, IF SSR IS SET AND 0K
;B8R _IF TROUBLE CARRY = CLEAR
sSTEP IY
sPOINT TO WRT CHARA DATA PACKET
1GET ADDRESS OF MESSAGE BUFFER
sEXTENDED FEATURES BIT SET?
18R _IF NO
;SET EXTENDED FEATURES SW SWITCH

(PC)
22(°C)

GLOBAL AREAS
GLOBAL
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881

MACRO V0S5.03

SUBROUTINES

Fr'dey 22 Mey 87 08:12

032763
001402
005237
016337
042737
022737
001406
012737

000001

007374

052763

000000G 000000G

000100

000401

2886 007410
2887 007414

017500
000207

000241

000012

002326
000000G 002324
017700
002324
000001
002324

000261

2884 007404

2885 007406

SEQ 0061

SECTION

007326
007334
007336
007342
007342
007350
007356
007364
007366

2883 007402

Page 26 S

002322

0X2 .BFE ,MS.XS2(R3)
S04
BENBSW

MOV
BIC
ce
B8EQ
MOV

XST2(R3),REV
917700, ,REV
1 ,REV

8IS
S5
:

002524

817
BEQ
INC

60$:
70%:

SEC
B8R
CLC
MOV

RTS

55¢

01 .EXTFEA

X2 . EXTF ,XST2(R3)

;BUFFER ENABLE SWITCH SET

;BR,

SWITCH NOT

SET

;SET SOF TWARE SWITCH FOR ENABLED
sMICROCODE REV LEVEL
;CLEAR UNWANTED BITS
;IS IT A NEW MICROCODE
s+NO BR
sALWAY EXTENDED FEATURE FOR NEW
;sMICROCODE
sEXTENDED FEATURE ALWAYS SET IN
sMICROCODE

704

;SET CARRY NO TROUBLE
sEXTTY

aTSSR(RS),RO
PC

;sRETURN

;CARRY CLEAR
sRETURN TSSR

= ERRQOR
CONTENTS

;ROUTINE 10O CHECK WRITE LOCK CONDITION

;INPUT:
ADDRESS OF COMMAND PACKET
CURRENT UNIT NUMBER

2899 007416
2909 007416
007422
2902 007426
2903 007430
2904 007432
2905 007434
2906 007436
2907 007440
2908 007446
2909 007450

007450

007452

007454

007456
2910 007460
007464

2913 007470
2914

007472

291S

007474

2916 007474

010475
004737
103401

002514
007204

005724
011402
011203
032763
001407

WLUKCHI:;
10%:

404
:

000261
000401
000241

000207

604

(R4).
(R4),R2

(R2),R3

#X0.WLK,MS_XSO(R3)

55¢
1, UNIWK

104456

000001
005653
000000
004737

R4 ,3TSDB(RS)

PC,WAITF
404

017240
SS4:
604
:

704
:

;sSEND OUT COMMAND
sWAIT FOR SSR
;BR, IF SSR IS SET AND 0K
;B8R IF TROUBLE CARRY = CLEAR
;STEP 17
;POINT TO WRT CHARA DATA PACKET
;GET ADDRESS OF MESSAGE BUFFER
;IS UNIT WRITE LOCKED?
sNO,PROCEED WITH TESTING

;sTAPE IS WRITE LOCKED

;OROP I7

704

;SET CARRY NO TROUBLE
sEXTY

;EXIT

WITH CARRY=0

;CARRY

CLEAR

;RETURN

‘0

;ROUTINE TO ISSUE A WRITE CHARACTERISTICS COMMANDO
H

s INPUT

.WORD
.WORD
.WORD

PC,DROPY

604

TRAP

ERROR

CSERHRD

1
UNTWLK
0

iKS

GLOBAL AREAS
GLOBAL

MACRO V0S5.03

Fridev 22 Mey 87 08:12

Page 26 6

SEQ 0062

SUBROUTINES SECTION
H

ADDRESS OF COMMAND PACKET

RO
CARRY

TSSR CONTENTS
SET
WRITE CHARACTERISTICS COMMAND OK
CLR
WRITE CHARACTERISTICS FAILED

RS
CURRENT
REQUIRES A CALL

UNIT NUMBER
TO SOFINIT BE OONE PREVIOUSLY

{OUTPUT;
H

2931

;
:
;
H
;

IMPLICIT OUTPUT:

2939

sSIDE EFFECTS:

2941

2942

2944
2945
2946
2947
2948
2949

2950
2951
2952
2953
2954

007476
007476
007502
007506
007510
007512

007512
007514
007516
007520
007524

010475
004737
103401
000402

000261
000401
000241
017500
000207

002514
007204

002524

WRTCHR:
:
10%:
MOV
JSR
B8CS
B8R
S04:

604 :
704 :

SEC
BR
CLC
MOV
RTS

R4 ,3TSDB(RS)
PC.WAITF
S04
604

;SEND OUT COMMAND
;WAIT FOR SSR
:BR, IF SSR IS SET AND 0K
;:BR IF TROUBLE CARRY = CLEAR

;SET CARRY NO TROUBLE
;EXTT
:CARRY CLEAR = ERROR
;RETURN TSSR CONTENTS
;RETURN

704

@TSSR(RS) RO
PC

2957
2958
2959
2961

‘e
:
;ROUTINE TO DO SET UP OF RUNNING CONDITIONS
;INPUTS;

2963

2962

;

2964

CURRENT UNIT NUMBER

2366
2967

:{OUTPUTS;

2969

sCALLING SEQUENCE :
:

JSR

;

B8CS

JSR

MOSET::

BREAK

:
2973

2978 007526
007526

2979 007530

104422

004737

010026

JSR

ERRDF

JSR

PC.FIRSTU

PC,SOFINIY

CONTINUE

PC.MOSET

;REPORT FATAL

;

PC.SETODEF

ERROR

DO A SUPVSR BREAK FIRST,
TRAP

;RESTORE DEFAWLT

C$BRK

'GL('BAL AREAS

MACRO VOS.03

Fridey 22-Mey-87 08:12

Page 26 7

SEQ 0063

GLOBAL SUBROUTINES SECTION
2980 007534
2981 007540
2982 007542
007542
007546
007550
007554
007556
007562
007564
007570
2983 007572
007572
2984 007574
007574
2985 007576
2986 007602
2987 007604
2988 007610
2989 007614
2990 007620
1 007622
2992 007630
2993 007634
2994 007636
2995 007642
2996 007646
2997 007652
2998 007654
2999 007660
3000 007662
3001 007670
3002 007674
3003 007676
3004 007702
3005 007706
3006 007712
3007 007714
3008 007720
3009 007722
3010 007730
3011 007734
3012 007736
3013 007742
3014 007746
3015 007752
3016
3017 007754
3018
3019 007762
3020
3021

004737
103416

007416

012727
000000
013727
000000
005367
001375
005367
001367

000001

JSR
B8Cs
DELAY

PC, WLKCHK

013737

000207

;WAIT

81.(PC)~

002116

5$DLY.(PC)-

177772
.

177756

;BREAK TO SUPER

104422

104444
005737
001064
004737
004737
005737
001415
052737
005737
001002
004737
004737
004737
000443
005737
001415
052737
005737
001002
004737
004737
004737
000423
005737
001415
052737
005737
001002
004737
004737
004737
000403

;CHECK WRITE LOCK
;C=1 IS 0.K.

;00 CLEAN AND ABORT
002312

14:

010026

007270

34
OEF . HSS, TSUNT
EXTFEA

003532

007764
010026
007476

24:

002316

000030
002322

003532

PC,SETDEF
PC,WRTCHR

114
WTBUF
S$
9EF .RWB, TSUNT

4
PC,INVRT
44
:

002314

St:
003532

007764
010026
007476

003532

PC., INVRT

EXTFEA

007764
010026
007476

000020
002322

104
PC,SETDEF

PC,WRTCHK
HSSW

002320

000040
002322

TS1M0

64:

PC.SETOEF
PC, WRTCHR
114

RDBUF
10
0EF .RBO, TSUNT

EXTFEA
64
PC., INVRT

PC,SETDEF
PC,WRTCHR

11¢
002504

;RUN IN DEFAULT MODE?
s YES,RETURN

sRESTORE DEFAWLT
;GO0 DO SWITCH CHECK
;00 WE RUN AT

:ng WITH WRITE BUFFERING?

{YES SET THE BITS

ARE WE

SET?

INVERT THE SWITCH
NOU SET THE MOOES

xDO I7

RUN WITH READ BUFFERING?

xYES SET THE BITS
;ARE WE SET?
: YES
s INVERT THE SWITCH
;NOW SET THE MODES
;100 IT7

10¢:

TSUNT,SCHBK+10

;AND UNIT ¢

11%:

s RETURN

s+
H

SUBROUTINE TO INVERT SENSE OF EXT'D FEATURES SWITCH

s INPUTS;
3

100ips?

sNO
sYES.SET THE BIT
;ARE WE SET?
; YES
s INVERT THE SWITCH
;NOW SET THE MODES
;00 I7

6(PC)
4

22(PC)
20

C$BRK
C$DOCLN

GLOBAL AREAS

MACRO V0S5.03

Fri.day 22-Mey-87 08:12

Page 26 8

SEQ 0064

GLOBAL SUBROUTINES SECTION
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041

H
:
:OUTPUTS::
:

007764
007764
007772
010000
010006
010014
010020
010024

012737
012737
012737
012737
012704
004737
000207

140006
002506
000006
100010
002330
007476

002330
002332
002336
002506

INVRT::

3042

3045

s INPUTS:

3047

oWSM , CMOPKT.CP.CMD
OWSMBK ,CMOPKT.CP ADL
06 ,CMOPKT+CP . CNT
£100010, WSMBK
OCMOPKT R4
PC,WRTCHR
PC

;WRT SUB-SYS MEM
:MSG BUF ADDR
sBYTE COUNT
s INVERT THE SWITCH
:
;00 I7
;RETURN

: SUBROUTINE TO SETUP DEFAWLT SET CHAR CMD

gg:z

3046

3048

3049
3050

;sOUTPUTS::
:

ggg%

3053
3054
3055
3055
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067

MOV
MOV
MOV
MOV
MOV
JSR
RTS

010026
010026
010032
010036
010044
010052
010060
010066
010072

010074
010074
3068 010074
3069 010100
010100
010100
3070
3071 010102
010102
3072 010102
3073 010106
010106
010106
3074
3075 010110
010110
3076 010110

012701
010137
012737
012737
012737
013737
012704
000207

140004
002330
002474
000012
000040
003532
002330

SETDEF
::
002332
002336
002502
002504

;

005237

003472

L10004:

000002

005237

003474

TSSIN1::

L1000S:

000002

005237

TSSINO::

003476

TSSIN2:
:

ADDRESS OF COMMAND PACKET

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

OSCH,R1
R1,CMOPKT.CP.CMD
oSCHBK , CMDPKT.CP, ADL
OSCHCNT ,CMOPKT «CP . CNT
SDF TSCH, SCHBK -6
TSUNT ,SCHBK - 10
OCMOPKT R4
PC

;WRITE CHAR CMD
;SET UP COMMAND
sSET UP ADR LO TO POINT TO MSG BUF (MSGPKO)
1SET BUFFER EXTENT
;STORE CHARACTERISTIC CODE IN SCH BLOCK.
sUNIT o
;sADDRESS OF CMD PACKET
s RETURN

MODULES TO HANDLE TSOS INTERRUPTS.
BGNSRV

TSSINO

INC
ENDSRV

INTFLG

$SET INTERRUPT OCCURRED FLAG.
RTI

BGNSRV

TSSIN1

INC
ENDSRV

INTFLG+2

$SET

INTERRUPT OCCURRED FLAG.
RTI

BGNSRV

TSSIN2

INC

INTFLG-4

1SET

INTERRUPT

OCCURRED FLAG.

GLOBAL AREAS

MACRO V0S5.03

Friday 22-May

87 08:12

Page 26-9

SEQ 0065

GLOBAL SUBROUTINES SECTION
3077 010114
010114
010114
3078
3079 010116
010116
3080 010116
3081 010122
3082
3083
3084

010122
010122

L10006:

000002

005237

TSSINS::

003500

L10007:

000002

ENDSRV
RTI

BGNSRV

TSSIN3

INC
ENDSRV

INTFLG+6

INPUTS:
OQUTPUTS:

REGISTERS:

CALLS:

010124

010176
010176
010200
010204
010206
010210
010210
010212
010212
010214
010214
010220
010220

032737
001430
013702

063702

032702
001417
005202

000400

177400

105737

003520

001401

RECTAP: :BI7

BEQ
MOV

002360
003410
000001

111203
142703
000303

005302

003420

ADD

BIT

B8EQ

INC
MOVB

81C8
SWAB
DEC

TST8

BEQ
DEC

005302

111204
142704
050403
000401

500034
:

177400
500024:

011203

S0004
$ :

000402

017703

173170

S00014:

500054:

000207

INTERRUPT OCCURRED FLAG.
RTI

ggBR?gTINE
INTS.

010132
010134
010140
010144
010150
010152
010154
010156
3099 010162
010164
010166
010172
010174

1SET

TO RETRIEVE RECORD

COUNT

READ FROM TAPE FOR

ERROR

R3 = RECORD COUNT READ
R2,

R3,

oM0D . CO, CMDWRD
S00014
MSGPKT+MS.RFC,R2

;READ REV FETCH

#8I7T00,R2

;000 AD.,

R2
(R2),R3
#177400,R3
R3
R2
SWBFLG
500034

;REC COUNT STARTING
sWITH UPPER BYTE FETCH

sFIND LAST READ AD.

DATARD,R2

500024

sLET R2

MOVB
BICB
BIS
BR

(R2),R4
$177400,.R4
R4,R3
S0004
¢

MOV

(R2),R3

S00054

MOV

aDATARD ,R3

RTS

:= R2

;IFB SWBFLG NE ¢0 THEN

sLET R2

:» R2 -

REASSEMBLE

;LOWER BYTE AD.

;FETCH LOWER BYTE

iLET R3

SUBROUTINE TO STORE A

(R2)

;LET R3

sEVEN AD.

:= QDATARD

FETCH

sREAD FWD FETCH

SET CHARACTERISTIC COMMAND AS

THE FIRST ENTRY IN THE SEQUENCE TABLE.

INPUTS:
QUTPUTS:

REGISTERS:

CALLS:

010222
010222

012701

003540

SETCH:
:

#CMOSEQ,R1

1INIT CMD SEQUENCE TABLE POINTER.

ON SWAP

GLOBAL AREAS
GLOBAL

3129
3130
3131
3132
3133

MACRO V0S5.03

Friday 22-Moy

87 03:12

SEQ 0066

SUBROUTINES SECTION

010226
010232
010236
010242
010244

012721

012721
005721
000207

140004

MOV

OSCH,(R1)-

; THIS CODE SETS UP A SET

000001

MOV
157
RTS PC

#1,(R1)(R1).

1 SEQUENCE TABLE.
:SKIP PATTERN LOCATION,

000040

MOV

:
1

H
3141
3142
3143
3144
3145

Page 26

010246
010252
010256
010262
010264

012721

012721
012721

005721

OUTPUTS:

REGISTERS:

CALLS:

SETRW:: MOV

000001

MOV

MOV
187

000207

RTS

3
:

CMDAC,SETUP,EXSUB,
CKHAE ,NEXTU,FIRSTU, VFYDAT,

177717

011232

104422
8831?2

cMP
BEQ
JSR
500104: BREAK

003412

004737

011124

013737

MOV

003432
003434
003416
003416
000022

000022

003416

002336

S001S5¢:
S00144:
S00134:
S00124:

¢CMDSEQ,R1

;INIT

(R1),0END
S0007+4
PC,SETUP

;WHILE

SEQUENCE TABLE POINTER.
THERE

ARE CMDS

IN THE SEQUENCE

NCNT NCNTl

TRAP
sWHILE THERE ARE RECORDS REMAINING:

JSR

PC CHDAC

1STORE CMD

BEQ
cMP
BNE
7578
BNE
ADD
ADD
MOV
81C
cMe
BGE
MOV

500124
CMOWRD, OURT
S00134
VFYFLG
S00144
RANS ,RANB
RANB , RANS
RANS ,BRFCNT
LENMSK , BRFCNT
BRFCNT , 218,
S001S4
018. ,BRFCNT

MOV

BRFCNT,CMOPKT-CP.CNT

RANDOM

TABLE.

;GO SETUP THE COMMAND BLOCK.
; DO A SUPVSR BREAK FIRST.

ggg

1578

003516

;sRETURN

CALLS:

021127
001530
004737

003434
003432
003434
003430
003416

OPERATIONS.

R2 = TERMINATION INDICATOR (O0=END OF TABLE,1=E0T)

gggbg;:

104005

;1 SKIP PATTERN

REWIND.

OUTPUTS:

003540

003420

SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL
DEVICES.

012701

001435
023727
001031
105737
001026
063737
063737
013737
043737
023727
002003
012737

(R1)-

REGISTERS:

003515

;
R

01,(R1)-

003414

;CMD

81,.(R1)-

INPUTS:

105737

ORWD, (R1)-

CHARACTERISTIC

;COMMAND AS THE FIRST COMMAND IN THE

%HES?gTINE TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE

102010

000001

POFTSCH, (R1)-

ASCII

IN ERROR MESSAGE.

;IF IN RANDOM MODE:
;IF

CMD IS A WRITE THEN:

3;IF DATA IS NOT

TO BE VERIFIED THEN:

tLET RANB := RANB + RANS
;GENERATE
tLET RANS := RANS « RANB
;RANDOM
sLET BRFCNT := RANS
sLENGTH
sMASK RANDOM LENGTH.
;00 NOT ALLOW BYTE COUNT OF LESS THAN 18
s CHANGE COUNT OF 0-17 TO 18.
tMOVE BRF

TO CMD PACKET.

C$BRK

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

3185
3186
3187
3188
3189

010422
010426
010432
010436
010442
010442
010450

010452

010460
010462
010470
010472

010474
010474
010476
010476
010504
010506
010514
010516
010516

MACRO V0S.03

Fridey 22-May 87 08

004737
004737
012702
004737

010564
017540
000001
017142

026527
001426
032737
001406
032765
001001
005002

002604

177777

000400

003420

000002

L ISSUE CMD TO ALL.AWAIT

PC| CKHAE

{CHECK

o1 R2

(LET

pC.FIRSTY

500164
:

000001

003502

000001

003420

‘FIND

EACH

LSET

FIRST

810D CO. CHDRD

CMD IS REVERSE THEN:

,IF

NOT

(LET

ARE

INTS,CHECK STATUS.

CHD

ALL

UNIT'

THERE

BOT

JELSE

FLAG

UNITS

BOT/EOT.

UNITS:

THEN:

;CLEAR

500224

500204:

AFTER

,WHILE

500216

EOT/BOT

CMD

FLAG.

IS NOT

REVERSE:

X0 .E0T ,EOTFLG(RS)

500234
3CMD
. CO, CMOWRD
500244

S00234:

CLR

005002

HALT

DEVTBL(RS). 9END

o
2X0"BOT,EOTFLG(RS)

500214
:

:IF

NOT

‘CLEAR

AT EOT OR NOT A MOTION CHMD THEN:

EOT/BOT

FLAG.

500244
:

017210

010532
010534

020227
001001
000412

000001

010536
010536
010542

005237
013737

003412
003420

010556
010560
010560
010562

SEQ 0067

004737
000746

010550
010552
010552

PC.EXSUB

003502

010520
010520
010520
010524
010526
010526

Page 26

JSR
JSR
MOV
JSR

000411

032765
001404
032737
001001

000655
004737
000645
005202
000207

016126

500224
:
500174
:

500254
:
003424

50011¢4:

S0007%:
EXARTN:

JSR
BR

PC,NEXTUY

JFIND NEXT UNIT

R2,01

.IF

56016
$

cMe

500254
EXARTN

figs

NCNT

500104

JSR

PC.VFYDAT

50006

CLR

RTS

sRETURN WITH R2

CHOWRD , PCMOWD

ALL

{LET

LET NCNT

LIF

:» NCNT

UNIT

INTERRUPTS,

INPUTS.:
oUTPUTS
;

REGISTERS:

CALLS:

AND

EOT/BOT

THEN:

61.

.UPDATE RECORD COUNT.

:SAVE PREVIOUS COMMANDWORD.

LAST

CMD

WAS

WRITE

VERIFY.

THE LAST

:SET NORMAL RETURN INDICATOR.
;RETURN.

N RECORDS OF

THEN GO

L VERIFY

SUBROQUTINE TO ISSUE COMMAND TO ALL DEVICES,

ALL

ARE

CHECK

ALL

STATUS.

EXCUTE ,GOWAIT ,NEXTU,FIRSTU,

WAIT FOR

DATA.

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

3282
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3558

010564
010570
010570
010576

010600
010606
010610
010616
010620
010626
010630
010634
010636

010642
010642
010644
010644

MACRO

004737

V0S.03

Frigay

017142
002604

177777

032737

000400

003420

032765
001014
032765

000002

003502

000001

003502

105737
001402

003524

001421

001406
004737

010672
010700

010704
010704
010712
010714
010722
010724

08:12

64:

0047%7

cHe

DEVTBL(RS ), 6END

;WHILE

BIT

500274

THERE ARE MORE DEVICES:

CMD

IS REVERSE

©X0.B0T,EOTFLG(RS)
S0031
4
#X0.E0T,EOTFLG(RS)

;IF

NOT

AT BOT

;BUT

ALLEOT
50033
¢

;AND ALL OTHERS AT EOT

BEQ

500324

PC.EXCUTE
;IF

T JSR

UNIT.

;IF

500304

8IT
BNE
8IT

UP FOR FIRST

oM0) . CO, CMOWRD

BEQ

50032" BR

012114

SEQ 0068

;SET

JSR

000402

500344

NOT

THEN:

EOT

; THEN EXECUTE REV CMD
ALL AT EOT, FREEZE UNIT(S)

.
AT

EOT

;IF NOT AT BOT AND

PC.EXCUTE

;NOT AT EOT, EXEC REV CMD

500354

;ELSE IF

S00344:
500314
:
00304
BR

000435

023727

003426

000002

003502

016537
005077

002616
172606

003512

032765
001404
032737

000001

003502

000001

003420

001011
032765
001405

001003
004737

010730
010732
010732
010736
010740

000405

105737

001402
004737

S00364
:

S00374:
012114

003524

500404:

012114

010744

S00424
:

010744

S0041
4 :

010750
010752

500534

010724

010744
010744

PC.FIRSTU

BEQ

012114

Page

JSR

TS78
BEQ

010650
010650
010650
010652
010652
010660
010662
010670

gggge;:

026527

001465

Mey

004737
000707

017210

500354:

S00274:

BNE
BIT
BEQ

CMD IS NOT REVERSE:

CMDLG,
2

500364
#X0.B0T,EOTFLG(RS)
500364

;CLEAR BAD SPOT COUNTS WHEN WRITING FROM BOT

MOV
CLR

BTADOR(RS),BTPT
aBTPT

BIT
BEQ
BIT

#X0.EOT ,EOTFLG(RS)
S00374

BNE

500404

JSR

PC,EXCUTE

50041
¢

1578

ALLEOT

{LET

;LET BTPT
@BTPT :» 00

BTADDR(RS)

oCMD
. CO, CMDWRD

BEQ
JSR

50042
$
PC.EXCUTE

JSR

PC.NEXTU

S0026¢

;IF NOT AT EOT OR NOT A MOTION CMO THEN:
;ISSUE CMO TO TS05

;IFB ALLEOT NE 60 THEN

;FIND NEXT

UNIT

IN TEST

CYCLE.

GLOBAL AREAS

MACRO VO0S5.03

Fridey 22 May

87 08:12

Page 26

SEQ 0069

GLOBAL SUBROUTINES SECTION
3299
3300
3301
3302

010752
010756
010760
010764

3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316

010766
010766
010772
010772
011000
011002
011010
011012
011020
011022
011030
011032
011036
011040

010764

105737

001403
105037

003517

15718

BEG
CLRB

003517

DORPT

104424
004737

S00434 :
cooeas

017142

88?2%3

002604

177777

032737
001421
032765
001014
032765
001406

000400

003420

000002

003502

000001

003502

105737

003524

004737

012424

001402

011052
011052
011054
011054
011062
011064
011072
011074

000402

004737

500504:

012424

S00474
:

000420

032765
001404
032737

001003
004737

3338
3339
3340
3341
3342

000405

105737

001402
004737

000001

003502

000001

003420

S00464:

S0054
4 :
012424

003524

S005S$:

012424

3344 011114

S00S74:

3346 011114

S00564:

3348 011114
3349 011114

3351 011120
3352 011122
3353 011122

;IF REPORT HAS BEEN REQUESTED THEN:
;CLR THE FLAG

;PRINT THE penroanuncé REPORT.

JSR

PC.FIRSTU

;SET

ggg

gEVTgL(RS).OEND

BIT
BEQ
8I7
BNE
8I7
BEQ

MO0 co CMOWRD
50046
#X0. 801 EOTFLG(RS)
S0047$
#X0 .EOT,EOTFLG(RS)
S0050$

BEQ

S0051
$

UP FOR FIRST

TRAP

C$DRPY

UNIT,

;WHILE THERE ARE MORE DEVICES:
;IF

CMD IS REVERSE

;IF

NOT
;BUT

THEN:

BOT

ALLEOT

EOT

;AND ALL OTHERS AT EOQT

JSR

PC.GOMWAIT

;THEN WAIT FOR CMD END

500524

JSR

PC.GOWAIT

;WAIT

FOR INT,CHECK STAT

500534

;ELSE

:IF NOT ALL AT EOT.,
;NOT AT BOT,

DO NOT WAIT

AND NOT AT EOT

S00524
:

3336 011074
011100
011102
011102
011106
011110

S0043%
RPTFLG

S00S514:

3324 011052

3327
3328
3329
3330
3331
3332
3333
3334

1578

3318 011044
3320 011044
3321 011046
3322 011046

RPTFLG

004737
000724
000207

017210

S00534:

S004S4:

BIT

IS FORWARD:

#X0.EOT,EOTFLG(RS)

BEQ
BIT

S00544
6CMD
. CO, CMDWRD

JSR

PC.GOWAIT

50056
$

1578

ALLEOT

BNE

CMD

500554

BEQ
JSR

500574
PC.GOWAIT

JSR

PC.NEXTU

50044¢

RTS

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

FOR INT,CHECK STATUS.

;IFB ALLEOT NE #0 THEN

;FIND NEXT UNIT

;RETURN.

IN TEST

CYCLE.

GLOBAL AREAS
GLOBAL

MACRO VOS.03

fridey 22 Mey

87 08:12

Peage 26

SEQ 0070

SUBROUTINES SECTION
THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS
COMMAND IN THE STANDARD ERROR MESSAGE.
ON ENTRY LOCATION CMDWRD
gsgagéNS CURRENT CMD AND LOCATION PCMOWD CONTAINS PREVIQUS CMD.

®e

3355

GUTPUTS:

REGISTERS :

R3,

011124
011130
011134
011140
Cl1144
011150
011154
011160
0ll1l64
011170
0l1174

RTS

R4,

GCMDA

CALLS:
CMOAC:: MOV
JSR
MOVB
MOVB
MOVB
MOV
JSR
MOVB
MOVS
MOVB

CMOWRD,R4;LET R4 :s CMOWRD
;R4 = CMD BINARY,
;GET CMD ASCiI.
(R3).,STAER] .2
;MOVE CMD ASCIi
(R3)..STAER].3
3
(R3),$TAER]
-4
;INTO MSG.
PCMOMD, R4
;R4 = PREVIOUS CMD BINARY.
PC,GCMOA
;GET CMO ASCII
(R¥)., STAER7.24
;MOVE CMD ASCII
(R3)..STAER7.25
(R3),$TAERT-26
;INTO MSG.,
PC.GCMOA

;RETURN.

GO EXECUTE

SUBROUTINE TO FIND THE ASCII EQUIVILENTY OF
ADDRESS

ASCII

INPUTS:
OUTPUTS :

REGISTERS:

1ST

R4
R3

WORD

IS RETURNED

IN
R

FUNCTION.

THE COMMAND IN R4.

=
=

PRESENT COMMAND UORD
ADDRESS OF PRESENT COMMAND ASCII.

@80

CALLS:

011176
011200
011200
011204

011206

011212
011214
011214
011216
011220
011222
011224

026304
001403
062703
000772

003752
000002

CLR

R3;LET

cMe
BEQ

CMDTBL(R3),R4
S0061
4

B8R

S0060+4

MOV

R3,R4

ADD

R4 ,R3

ADD

S00614:

010304
006203
060403
062703
000207

GCMDA: :
S00604:

ADD
RTS

004040

tUNTIL

sLET

JLET

S#CMDASC,R3
PC

;INIT

CMD TBL POINTER.

CURRENT

CMD IS FOUND:

;POINT

:SEARCH

ASCII

FOR

THAT

CMD

TABLE.

COMMAND

tRETURN

SUBROUTINE LOADS

§=;8¥SIN THE SEQUENCE

THE

TSOS

TABLE.

COMMAND PACKET

FROM ONE

®e

THIS

92,R3

agg

011230

005003

011232

005037
012137
011137
011137
013702
042702
010203

162703

SETUP: ;

ouUTPUTS;

REGISTERS:

CALLS:

R2,

R3,

GENPAT.

CLR
MOV

CMOLG
(R1).,CMOPKT

sCLR CMD LOGGING C00€(DISABLES LOGGING)
;LOAD THE COMMAND
Wi

MOV

(R1),BRFCNT

:SAVE BRF FOR THIS COMMAND.

MOV

(R1),EMOPKT.CP.CNT

MOV

CMOPKT R2

MOV
suB

R2,R3
#CMD.C3,R3

B81C

ONCMD .C,R2

;LOAD THE BYTE/RECORO/FILE COUNT,

;+GET CMD.

;CLR ALL BUT CMD BITS.

;SAVE 1T TWICE.
+POSITION COMMAND?

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

3412
3413
3414
3415

011270
011272
011276
011300
011306
011310

011316
011316
011320
011324
011326
011334
011342
011344
011352
011354
011354

MACRO

001003
011137
000464
023727
001003
012737
010203

162703

001017
013737
032737
001404
012737

V05.03

Friday

002332
002330

100011

000002

003426

000432
010203
162703
001014
012737
012737
011137
013737
000412
010203

000001

003410
000400

002332
002330

000004

003426

162703

001010
013737
004737
012737
032737
001407
112737
042737

R2,R3

50064
$

:IS IT A READ?
:BR IF NOT.

sIF SO, LOAD THE BUFFER ADDR.
+IF CMD IS A READ REV THEN:
1LOGGING COOE IS
4
:ELSE

06 .,CMOLG

CMD IS A RCAD FWD:

1LOGGING COOE 1IS 6.

‘SRSI;
CHARACTERISTICS CcMO?

002332
002336

OSCHBK,CMDPKT
.CP . ADL
OSCHCNT, CMOPKT <CP.CNT

002504

TSUNT, SCHBK <10

sSET UP ADR LO FOR SET CHAR.
:SET BUFFER EXTENT
s STORE CHARACTERISTIC CODE IN SCH BLOCK.
sUNIT o
sCONTINUE

002336
002332

R2.R3

(R1),SCHBK+6

ggfio.c1:cno.c2.a3
SDIACNT
, CMOPKT+CP .CNT
?gigeLx.cnova.cp.AoL

(Rl)o.NCNTl
NCNT
(31)3,PATERN
gcno.CO!CMD.C2,R3

003406
011616
000002
000100

002332

000001
000100

003516
002330

003426
002330

000402

003420
002330

IS 2.

:gno.ce.ns

000005

013737
013737

;:WTM LOGGING COOE

sggN}INUE.

003414
003412
003446

003516

:MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD.

105037

;IF CMD IS & WRITE TAPE MARK THEN:

50063+
04 ,CMOLG

1¢:

000020
003406

$
, WTM
CMOPKT
500624
02,CMOLG

oMOD., CO, CHOPKT

500644
:

002474
000012
002502
003532

;BR IF NOT.

DATARD, CMDPKT.CP
. ADL

S00634
:

SEQ 0071

:gno.co.as

162703

001006
012737
012737
005721
012137
005037
012137
010203

24:

500624
:

000006

Page 26 15

gRl).CHDPKT-Z

000403
012737

Mey 87 08:12

DATAWT, cnova CP.ADL
S¢:
01,VFYFLG
OVFY.C,CMOPKT

500654:

003424
003420

500664:

50066+

+IS

ls
DIAGNOSTIC (DIA) CMO?
:

lLOAD BUFFER EXTENT.
iLOAD BUFFER ADR LOW.
sPOINT TO N (NUMBER OF TIMES TO EXECUTE THIS INS
$SAVE NUMBER OF OPERATIONS

sCLEAR OPERATION COUNTER.
x%éV%TPATTERN CODE FOR CURRENT CMD.
5

A WRITE?

$BR IF NOT
:LOAD WRITE BUFFER LO ORDER.

GO0 GENERATE THE URITE PATTERN,
tWRITE LOGGING COOE IS 2.
;1 IF DATA VERIFICATION IS REQUIRED:

sSET VERIFY FLAG.
;CLEAR VERIFY BIT(NOT USED BY HARDWARE).
+IF DATA VERIFICATION IS NOT REQUIRED:

VFYFLG

:CLR VERIFY FLAG.

CMOWRD, PCMOWD
CMOPKT
, CMOWRD

:SAVE PREVIOUS CMD WORD.
1 SAVE PRESENT

CMD WORD.

GLOBAL

SUBROUTINES SECTION

105737

001403
052737

003520
010000

002330

004000
002330

002330
003422

011616
011622
011624
011630
011632
011636

500674
:

SEQ 0072

7578

SWBFLG

;IF

8IS

#5uW8 . C, CMDOPKT

:SET SWAP BIT IN COMMAND.

O0BRF . C, CMOPKT

;CLR BRF BIT (INTERNAL ONLY).

81C

MOV
RTS

013703
006303

Page 26

BEQ

042737
013737
000207

Friday 22 Mey-87 08:12

®s

3469 011564
3470 01157¢
3471 011572
3472
3473 011600
3474 011600
3475 011606
3476 011614
3477
3478
3479
3480

MACRO VOS5.03

®e

AREAS

GLOBAL

500674

CMOPKT,CMDSAV
PC

SWAP

;SAVE 1ST
sRETURN.

BYTES

WORD

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

INPUTS:
QUTPUTS:

REGISTERS:

CALLS:

R2,

R3,

PATRO

ggTERN.RB

;SETUP PATTERN ROUTINE

ngCNT.R4

:SET

81C

01.R4

;ROUNDED UP

JSR

PC,aPATTBL(R3)

ADD

RTS

SUBROUTINE
COMMANDS.

PATR7

L
?gz

02,R4
OATAWT ,R2

COMMAND PACKET.

R4,

: . zgv
GENPAT

SuB
MOV

ENABLED:

LENGTH

WRITE

TO NEXT

POINTER

BFR

WORD

;WITH FIRST WORD RESERVED
;FOR RECORD COUNT

02 ,R2

;GO GENERATE

;RETURN

T0O

;7SOS WRITE PATTERN LOOKUP TABLE.

T'Y¥E

SETUP

APPROPRIATE PATTERN.
SUBROUTINE.

USED TO JUSR T0 THE

;CORRECT DATA PATTERN GENERATING ROUTINE.
011702
011740

PATTBL
:

011760
011770
012014
012026
012040
012060
012112

011702
011706
011712
011714
011716
011722
011726
011730

001002
012703

011734
011734

000764

011736

000207

012703
162704

000400
000002

PATRO:
:

1$:

001002
001000

PATRO
PATR1
PATR?2
PATR3
PATR4
PATRS
PATR6
PATR?7
PATRS

; INCREMENTING PATTERN.

O -

MOV

sSuUB

2%:

;DECREMENT WORD COUNT.

24
R3,(R2).

cHe
BNE

R3,01000
S00704

;D00 IT

RTS

;RETURN,

MOV

S00704
:

0400

:= R4 - 02

BMI
MOV

ADD

000400

0400,R3,;LET R3

02,R4;LET R4

377.

$1002,R3

tALL ONE'S PATTERN.

;BR IF DONE
.
sSTORE DATA WORD.
;UPDATE

PATTERN,

sIF PATTERN HAS WRAPPED AROUND
;INIT

THE

PATTERN

AGAIN.

THEN:

TO GENERATE

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

3526
3527 011740
3528 011744
3529 011750

012703
162704
100402

§§§§ 011754

000773

ggg} 011756

000207

3530 011752

MACRO V0S.03

Frigey 22 Mey 87 08:12

177777
000002

PATR1::
ZROPAT:

010322

14:

005003

ggzg 011766

000207

3538 011762

004737

PATR2::

011744

gg:é

ZROPAT

;00 IT

R3,(R2)-

RTS

+IF NOt LOAD NEXT BYTE WITH PATTERN.
AGAIN.

;RETURN .

CLR

;CLR PATTERN REGISTFR.

RTS

;RETURN .

JSR

PC.,ZROPAT

:GO GENERATE IT.

;ONE BIT WALKING FROM R TO L IN A FIELD OF ZEROES.
011770
011774
012000
012002
012004
012006

3549 012010
gggg 012012

012703
162704
100404
010322
O0O€*N3
005503

000401
000002

PATRS::
WLKZRO:

000771

000207

1%:

gggfi

MOV
SUB
8MI
MOV
ASL
ADC

#401 ,R3
02,R4;LET R4
1
R3,(R2)R3
R3

RTS

B8R

WLKZRO

;INIT PATTERN REGISTER.
R4 - #2 ;DECREMENT WORD
:BR IF DONE.
iLOAD DATA,
{SHIFT PATTERN.

COUNT.

:ADD CARRY BACK INTO PATTERN.

;00 IT AGAIN.
;RETURN .

;ZERO BIT WALKING FROM R TO L IN A FIELD OF 1°S.

3554 012014

012703

gggg 012028

000207

3555 012020

004737

17737

PATRA::

011774

MOV

JSR

RTS

3558
ggzg

0177376,R3

;INIT PATTERN REGISTER.

;RETURN .

PC.WLKZRO

:GO GENERATE ;IT.

;ALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES
; COMPLEMENTED.

3561 012026
3562 012032
gggz 012036

012703
004737
000207

125125
011744

PATRS::

3222

MOV
JSR
RTS

0125125,R3
PC.ZROPAT
PC

;INIT PATTERN REGISTER.
;60 GENERATE I7.
1RETURN .

;ALTERNATING BYTES OF 000 AND 377.
012040
012044
012050
012052

012703
162704
100402
010322

gg;g 012056

000207

3571 012054

177400
000002

PATRG::
1%:

000773

24:

3574

3575

;ALL ONES PATTERN;.
;DECREMENT BYTE COUNT.
;:D0NE?,BR TF YES.

;ALL ZEROES PATTERN.

3537 011760

3567
3568
3569
3570

SEQ 0073

# 1,R3
02.Ra
1

MOV

gggz

3543
3544
3545
3546
3547
3548

MOV
SUB
BMI

Page 26 17

MOV
sUB
8MI
MOV

$177400.R3
02,R4
24
RS, (R2).

;INIT PATTERN REGISTER.
;DECREMENT WORD COUNT
.
:BR IF DONE.
;LOAD DATA.

RTS

;RETURN .

B8R

:00 IT AGAIN.

;RANDOM PATTERN GENERATOR

3576

012060

3578
3579
3580
3581
3582

012066
012074
012102
012106
012110

3577 012064

162704

000002

063737
063737
013722
000764
000207

003434
003432
003434

100411

PATR7::

003432
003434
GIT:

SUB

8MI

ADD
ADO
MOV
BR
RTS

61t

,R4

RANS
, RANB
RANB . RANS
RANS, (R2)PATR7
PC

;DECREMENT

WORD

:BR IF DONE.
:GET NEW 0.
:SAVE o.
: CONTINUE.
s RETURN

COUNT

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

MACRO VOS.03

Fridey 22 Mey 87 08:12

Page 26 18

SEQ 0074

NO PATTERN GENERATION.
000207

012114
012122

012737

177777

005337
005737
001011
004737

003436
003436

003436

PATRS8::

RTS

H
:
:
H
H
H

THIS SUBROQUTINE INITIATES T7S0S COMMAND EXECUTION
AND CHECKS FOR TS0S RESPONSE
.
INPUTS:
ouUTPUTS
REGISTERS:
R2, R3,
CALLS:
DROPU, MOVMSG, FIRSTU, NEXTYU, WSSR.

EXCUTE:: MOV
S00714%: ;REPEAT

104455

000002
004536
006120
004737
000522

012166

3609 012174

012176
012202
012206
012206
012214

012216
012222

012226
012230
012230
012234

032775
001756
023727
001022
010537
004737
026527
001405
004737
004737

017240

002524

003420

140004

003452
017142
002604

500744
177777

012740

000767
013705
016537

003452
002544

016503
005002

002544

020227
001405
012723
062702

000020

012266

000770

105737

001023

S00754:
002474

S00734%:

S00764:

S00724
PC ,MOVMSG
2 .NSSRM, STAERM

177777

PC,DROPU

TIMEOUT
-

COUNTER.

sUPDATE TIMEOQUT COUNTER,

sIF

TIMED

OUT:

:MOVE CURRENT PACKET MSG.
;REPORT 7505 NOT READY

TRAP

:OROP THE UNIT,
sRETURN.

8I7
BEQ
ce
BNE
MOV
JSR

#TS.SSR,@TSSR(RS)
SO0714
CMOWRD, #SCH
S00734
RS ,RSSAVE
PC,FIRSTU

:WAIT UNTIL OEVICE IS READY.

cre
BEQ
JSR

DEVTBL(RS),8END
S00754
PC.WSSR

S00744

MOV
MOV

RSSAVE ,RS
MSGPKA(RS ), SCHBK

MOV
CLR

MSGPKA(RS),R3
R2

;ADR OF

cHe

R2, MMSGCNT

;WHILE

MOV

sINIT

500774

1,(R3).

02 .R2

S00764

1578

DINT

WE ARE DOING A SET

2
NSSRM
STAERM

CHAR CMD THEN:

;SAVE CURRENT DEVICE POINTER.
sFIND FIRST UNIT,

sWHILE DEVTBL(RS) NE 6END DO
sWAIT FOR UNIT READY OR

PC.NEXTU

BR
BNE

;IF

CS$EROF

.WORD
.WORD
. WORD

EXCRTN

ADD

S0077%

TIMEL

sINIT
sWAIT

BEQ

000002

002212

BNE
JSR
ERRDF

JSR

017210

012242
012242
012246
012250
012250
012254
012256
012262

012270
012270
012274

500724
:

1, 7TIME]

TIMEL

JSR

000200

sRETURN.

DeEC
187

012774

;FIND NEXT UNIT.

TIME OUT,

;RESTORE CURRENT DEVICE POINTER,
;SET UP ADR OF MSG PKT IN SCH BLOCK.
THIS UNIT'S MSG PACKET,
;CLR COUNTER.
THERE
THE

MSG

ARE

PACKET

sUPDATE COUNTER,

;ARE

:BR

INTERRUPTS

YES.

LOCATIONS:
WITH

DISABLED.

ALL

1'S

lamun&u
GLOBAL

3636
3637
3638
3639

MACRO V0S.03

SUBROUTINES SECTION

012276

012304

012306
012314
012314
012316
012320
cl2322

3640 012324
012330
012332
012332
012336
3646 012344
012350
012352
012356

Fridey

22 Mey

126527

003472

000001

017537

002524

003454

003412

016577

003376

171022

S2 012364

012775

002330

002514

012372
012400
012402
012406
012406
012410
012412
012414
012416

032775

000200

002524

004737

012774

001410

ERRDF

15.TOOMY.STAERM

3TSSR(RS ), TSSREG

,IF MORE THAN ONE INTERRUPT HAS OCCURED:
;FREEZE
;REPORT

100

THE CURRENT

MANY

STATUS REG FOR PRINT

INTERRUPTS.

CLR
8IS
7578
BNE
INC

INTELG(RS)
;CLR INTERRUPT FLAG FOR THIS DEV.
1€ . C, CMOPKT
iSET INT ENABLE BIT.
ERRREC;IFB ERRREC EQ 00 THEN
2 IF 'NOT RETRYING
501014
RECCNT(RS)
:LET RECCNT(RS) := RECCNT(RS) - o1

MOV

6CMOPKT , 3TSDB(RS )
875 .5SR, @TSSR(RS)

501034

PC , MOVMSG
3. 710ERM.STAERM

i THEN UPDATE REC COUNT TO WRITE IT ON TAPE
;LOAD TSDB WITH CMDPKT

ADDRESS

iTHIS INITIATES COMMAND EXECUTION.
*IF

READY DID NOT

DROP TREN:

;MOVE CURRENT MESSAGE PACKET
{REPORT NO 1505 RESPONSE
.

TO COMMON.

TRAP

.WORD

‘WORD
017240

003436

003420

012727
000000
013727
000000
005367
001375

000012
002116
177772

102010

TOERM

STAERM

.DROP THE UNIT

501024:
EXCRIN:

RTS

RETURN.

;
:
;
;

THIS SUBROUTINE WAITS FOR THE TSOS INERRUPT OR DONE BIT TO SET AND ALLOWS THE
OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR.
UPON APPEARANCE OF THE INTERRUPT OR DONE. CHECK TSSR FOR STATUS ERRORS.
LOC BYTES AND ERAORS AND PERFORM ERROR RECOVERY IF NESSASARY.

GOWAIT::
301034,

oUTPUTS;
REGISTERS :

CALLS:
MOV

R2,

R3.

DROPU, MOVMSG., RECUD. CHKERR. LOG, CLRERR.

o 1,TIMEL

;INIT TIME OUT COUNTER.

cre

CMOWRD , 6RWD

160 TO THE SUPER TO ALLOW TTY INPUT.
TRAP
C$BRK
IF COMMAND WAS REWIND THEN:

DELAY

10.

sWAIT

;REPEAT

BREAK

001014

PC . DROPU

:
177777

WORD

CERDF

JSR

:
:

BNE

501044

;DROP THE UNIT
RETURN ' UNIT HAS BEEN DROPPED.

RECCNTC(RS ), 3DATAWT

JSR
ERROF

000207

104422
023727

15
TOOMM
STAERM

PC,DROPU
EXCRTN

004453

012737

CSERDF

WORD
"WORD
WORD

000003
006120
004737

TRAP

JSR
BR

BIT

012424
012432
012432
012432
012434
012442
012444
012444
012450
012452
012456
012460
012464

SEQ 0075

INTFLG(RS).#1

BEQ

104455

26-19

501004

MOV

S01014:

eoe

8LE
MOV

S0100%:

002330

Page

CHPE

017240

003472
000200
003471

012422
012422

87 08:12

104455

000017
004727
006120
004737
000434
005065
052737
105737
001005
005265

012364

'REPEAT

UNTIL

INTERRUPT

OCCURES:

EXTRA MSECS EACH LOOP.
OV
WORD
FoV
WORD
BEC
BNE

#10.,(PC)O
LSDLY. (PC)e
O
~6(PC)
et

GLOBAL AREAS
GLOBAL

Friday 22 May 87 08:12

Page 26 20

SEQ 0076

SUBROQUTINES SECTION
012466

3678
3679
3680
3681
3682
3683
3684

MACRO V0S.03

012472

012474
012474
012502
012504
012512
012514
012514
012514
012520

012522
012526
012530
012534
012536

012542

012544
012544
012550
012552

005367

001367
023727
001404
023727
001014

177756
003420

105010

003420

105410

012727
000000
013727
000000
005367
001375
005367

001367

105737
001003
016502

000014

003472

002524

012600
012602
012604
012610

005337
005702
001003
005737
001310

003436

012612

005737

003436

012632

012636
012636
012640
012642
012644
012646
012652
012656
012662
012664
012664
012670
012674
012700
012704

S0106+4
:

002212

017502
040302

001022
016577
005377

004737

104455
000004
004670
006120
004737
012703
004737

S0107$:

DELAY

12.

;ADD DELAY FOR

CMDWRD EQ@ OSFF

OR CMDWRD EQ@

SPACE

003376
170554

50110%:

SO0111%4:

1578
BNE
MOV

DINT
S01074
INTFLG(RS),R2

S01104

MOV

170560

TAPE MARK COMMANDS
MOV
.WORD

;FETCH INTERRUPT

OCCURRED FLAG.

;SET UP A MASK FOR THE DONE BIT.

TIMEL
R2
501114
TIME]L
501034

;UPDATE TIMEOUT COUNTER.
;REPEAT UNTIL INTERRUPT OR READY QOCCURES.

TIME]L

;IF TIME OUT HAS OCCURRED:

187

;FETCH DONE BIT.

SO01124
RECCNT(RS),a0ATAWT
SOATAWT

PC,MOVMSG

& ,NOINTM,STAERM

JSR
MOV
JSR

PC,DROPU
PENDERF ,R3

501134

JSR
JSR
JSR
7578
BNE

PC ,MOVMSG
PC,RECUD
PC,CHKERR
WRTYFG
S0114%

PC,CLRERR

ARE ENABLED.

DEC
TST
BNE
TST
BNE

JSR

S01124:

INTERRUPTS

812.,(PC)O
L$DLY,(PC)O
6(PC)
. 4
22(PC)

@TSSR(RS),R2
R3 R2

ERRDF

017240
003472
012724

#TS.SSR,R3

;IF

22(PC)

THEN

MOV
8IC

BNE
MOV
DEC

012774

012774
013060
013250
003463

0SFR

BNE

comM

003436

000417

004737
004737
004737
105737
001006

;IF

177756

012566
012572

012616
012620
012626

CMOWRD, OSFF
S010S$
CMOWRD, 8SFR
S0106%

177772

000200

012612

cMe
BEQ
cHP
BNE

MOV
.MORD
DEC
BNE
DEC

000406

005103

BNE

002116

012703

012574
012574

501044
:

S01054
:

012556
012560
012560

012564

DEC

;MOVE CURRENT MSG PACKET TO COMMON AREA.
;REPORT NO INTERRUPT.

TRAP
.WORD
.WORD
.WORD

;DROP THE UNIT.
;LET R3 := GENDERF
;CLEAR ALL ERROR FLAGS

sMOVE CURRENT MSG. PACKET
;UPDATE THE RECORD COUN
;CHECK FOR STATUS ERRORS
;IFB WRTYFG EQ 00 THEN

C$ERDF
&
NOINTM
STAERM

TO COMMON AREA.

GLOBAL

AREAS

MACRO

V0S.03

Friday

22-Mey-87 08:12

Page 26-21

SEQ@ 0077

GLOBAL SUBROUTINES SECTION
012706
012712
012716

004737
012703
004737

015626
003472
012724

012722

S50113%:

000207

®s

012722
012722

012724
012730
012730
012732
012734
012736

JSR
MOV

JSR

PC.LOG
OENDERF ,R3
PC,CLRERR

RTS

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

50114¢:

3721
3722
3723
3724
3725
3726
3727
3728
3729

012702

003460

;RETURN IF

SUBROUTINE TO CLEAR FLAGS.
INPUTS:
R3 = LWA TO BE CLEARED
OUTPUTS:
REGISTERS:
R2
CALLS:

CLRERR:: MOV
OBGNFLG,R2
S0115¢: :REPEAT
CLR
(R2)oy o
R2,R3
BNE
501154

005022
020203
001375
000207

RTS

iLET R2

DONE.

OBGNFLG

sLET (R2)+ := 00
sUNTIL R2 EQ R3

SUBROUTINE TO WAIT UNTIL
INPUTS:
QUTPUTS:

CURRENT UNIT

IS READY OR UNTIL

TIME OUT.

REGISTERS:

CALLS:

012740
012740

012746

012746
012746
012750
012754
012762
012764
012770
012772
012772

012737

104422
005337

177777

003436
000200

003436

WSSR:
:

S50116%:

MOV

003436
50117%:

;INIT

TIMEOUT COUNTER.

;REPEAT

BREAK

0EeC

002524

0-1,TIMEL

UNTIL

TIMEL

817
BNE
TS7T
BNE

#TS.SSR,ATSSR(RS)
S01174
TIMEL
S01164

RTS

THE

CURRENT

CALLS:

017537
013702
042702
010237
006237
016503

003454

MOVMSG: : MOV

MOV

81C

MOV
ASR

MOV

TRAP

C4¢BRK

;UNTIL

#T7S.SSR SETIN aTSSR(RS) OR TIMELl EQ 0

sRETURN.

REGISTERS:
012774
013002
013006
013012
013016
013022

TIMEQUT:

;UPDATE TIMEOUT COUNTER,

SUBROUTINE T0 MOVE THE LLKRRENT MESSAGE PACKET

TO UPDATE

INPUTS:
QUTPUTS:

DEV READY OR

:BREAK TO THE SUPERVISOR.

R2,

TERMINATION CLASS

R3,

aTSSR(RS5), TSSREG

,FREEZE THE STATUS REG CONTENTS

TSSREG,R2

;EXTRACT

R2,CTCC

sANL' SAVE IT

#7SC.TCC.R2

CTCC

TO THE COMMON AREA AND

CODE.

MSGPKA(RS),R3

;ADR O

THE

TERMINATION CLASS

THIS DEVICE'S MSG.

COOE,

GLOBAL AREAS

MACRO V0S5.03

Ffriday 22 May-87 08:12

Page 26-22

SEQ 0078

GLOBAL SUBROUTINES SECTION

3777
3778
3779
3780
3781
g;g%

013026
013030
013030
013034
013036
013042

3784
3785
3786
g;gg

013046
013050
013050
013056

005002
020227
001405
012362
062702

S01204:

000020
002354
000002

000770
013737
000207

002362

003502

3789
3790
3791
3792

g;g}

105737
001070
005365

3799 013100

001057

3798 013072

3800 013102

032737

3801
3802
3803
3804
3805

013110
013112
013116
013124
013126

001453
105237
023727
001003
005065

3807
3808
3809
3810

013132
013134
013134
013142

000442

3812 013152

001007

3811 013144

3813 013154

3814 013162
ggiz 013164

032737
001436

003465

003376

000001

003450

100000

002366

003465
003420

102010

003420

032737

000400

003420

032737

000400

003424

001002
005265

013170
013172
013172
013200

3823 013202

3824 013210
3825 013212
3826 013216

3827 013220

000423
032737
001417

032765

001013
105737
001406

003424

000002

003502

S01204%

MOV
RTS

MSGPKT+MS . XSO,EOTFLG
PC

;WHILE THERE ARE MORE LOCATIONS:
+MOVE MSG TO COMMON AREA.
;UPDATE COUNTER.,

105737

003465

005365

003376

001002

:MOVE XSTATO TO EOT FLAG.

TSTB
BNE
DEC

RECLOG
501224
RECCNT(RS)

BNE

501234

CALLS:

BIT

B8I7

501244
:

#B8I70,CTCC

501234
RECLOG
CMOWRD , SRWD
S01244
RECCNT(RS)

S01254

BIT
BEQ

98RF . C, CMDWRD
501264

BNE

501274

BNE
INC

501304
RECCNT(RS)

501314

8IT
BEQ

6100 .CO, PCMOWD
S01324

BNE
1578
BEQ

S0133%
ERRREC
K

BEQ

BIT

;IF RECORD HAS NOT BEEN LOGGED:

S01274:

B8IT

15718

24:

10¢:

;LET RECCNT(RS)

:IF TAPE MOVED

:= RECCNT(RS)

OX2.0PM,MSGPKT+MS
. XS2

BEQ
INCB
cHP
BNE
CLR

BIT

003471

003516

3830 013232

ggg% 013240

000400

105737

001403

3831 013234

R2, ®MSGCNT
50121
(R3). ,MSGPKT(R2)
02,R2

s SET RECORD LOGGED
;IF THIS IS A REWIND CMD:
sCLEAR RECORD COUNT,

;IF BRF USED.,

UPDATE RECORD COUNT,

#1100 .CO, CMDWRD

;IF A FORWARD CMD:

o100 . CO, PCMDOWD

;IF PREV CMD WAS A FWD ALSO:

S0130%:

3828 013224

3829 013226

cHe
BEQ
MOV
ADD

RECUD::

003376

013170

;CLR COUNTER.

SUBROUTINE TO ADJUST THE RECORD COUNT.
INPUTS:
OUTPUTS:
REGISTERS:

003376

004000

:
:
:
;

3795 01306
3796 013064
3797 013066

3817
3818
3819
3820
3821
3822

S01214:

CLR

#X0.80T ,EOTFLG(RS)

VFYFLG

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

;WHEN NOT AT BOT THEN
1CHECK THE ERROR RETRY INDICATOR
1BR, IF WE ARE NOT NOW IN ERROR RETRY

;CHECK THE WRITE VERIFY INDICATOR
;BR,

IF WE ARE NOT IN WRT/VFY MODE

18R,

IF HAVE ALREACY BUMPED RECORD CNTR.

TS7T8

RECLOG

s1CHECK IF THIS RECORD HAS BEEN COUNTED

0tC

RECCNT(RS)

;DEéRerENT RECORD COUNT.

BNE

104

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION
013240

501334

013240

501324

013240

S01314:

013240

501264
:

013240

501254
:
016577

013246
013246

000207

013250
013256
013260
013266
3865 013270
3866 013274
3867 013276
3868
3869 013302
3870
3871 013302
3872 013302
3873 013310
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890

003376

170140

501234
501224
:

®e

013240
013240

3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864

87 08:12

©r

3847

Fridey 22 Mey

3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846

MACRO VOS.03

032737

001441
023727
001405

105737
001002
005265

100000

003454

003450

000002

RECCNT(RS),aDATAWT

RTS

;LET

QDATAWT

RECCNT(RS)

;RETURN,

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 HANDLING SUBROUTINE IS ENTERED.
IF THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR,

THEN AN ERROR RFC

INPUTS:
QUTPUTS:

REGISTERS:

CALLS:

B8EQ

1578

BNE
INC

003336

SEQ 0079

MOV

CHKERR:
: 8IT
BEQ
cHP

003471

Poge 26 23

IS REPORTED,

R2,

R4.

TCCO-TCC7.

#71S.SC, TSSREG

:IF SPECIAL COND STATUS IS SET THEN:

501344
C7CC, 02

501354

ERNREC

501364
SCCNT(RS)

sIF TCC IS NOT 2 THEN:
sIF

NOT

IN ERROR RECOVERY:

;INC SC COUNTER.

501364
:

032737
001004
032737
001412

004000

003454

040000

003454

032737
001003
012702

100000

002366

501374
:

000005

000402

012702

501354:

000004

S0141%4:

BIT
BNE
817
BEQ

0TS .NXM, TSSREG
50137%
0T7S.UPE, TSSREG
501404

BIT
BNE
MOV

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

501424

MOV

04 ,R2

501434

MOV

CTCC.R2

s WHEN NON-EXISTANT MEMO

1tAND TAPE NOT MOVED
$SET

s TAPE MOVED,

TCCS INDEX

SET

TCC4 INDEX

501424
:
000402

013702

003450

S01404%:

1SET

DETECTED

TCC

INDEX

GLOBAL

AREAS

MACRO V0S5.03

Friday 22 May-87 08:12

Page 26-24

SEQ 0080

GLOBAL SUBROUTINES SECTION
013352
013352
013354
013360
013362
013362
013370
013372
013376
013400
013404
013406
013412
013414

013414
013420
013422
013426
013426
013430
013432
013434

006302
004772

501434
:

000426

032737

001422
005737
001417

R2
PC,aTCCRA(R2)

013454

004000

003420

501444

S01344:

gg?iég.CHDURD

002360

gg?figIoHS.RFC

105737
001403
105737
001411

003515

RANDOM

003516

VFYFLG
501504

105737
001006
005265

003521

§g§51$

003356

HROCNT(RS)

501474
;

;IF BRF IS USED IN THIS CMD THEN:
;IF
:IFB

501474

104456

RANDOM EQ

THERE

AN RFC

THEN:

40 ORB

VFYFLG NE

;IF

IN RANDOM OR

NOT

; UPDATE

HARD ERROR

;REPORT RFC ERROR

013436

501504
:

013436

S01464
:

013436

S014S¢:

001403
013737

013452
013452

000207

501444

003467

003422

002330
501524
:

1ST8

8EQ
MOV

ggEgg‘
1
CMDSAV, CMOPKT

;IF

RTS

tRETURN,

ADDRESSES

TCCRA:;

TRAP

C$ERHRD

TCC

HANDLING

A READ/WRITE ERROR HAS OCCURRED THEN:

;RESTORE CMD PACKET

ROUTINES

13
RFCERM
STAERM

FOR

TERMINATION

AFTER ERROR RECOV.

CLASS

CODES

TCCO

TCC1

TCC2

TCC3
TCCa
TCCS
TCC6
TCC?

013474
013512
013530
013640
013656
014272
014370
014532

CMD IS WTV:

.WORD
.WORD
.WORD
S01514:

105737

COUNT

000015
004521
006120

013436
013436
013442
013444

THEN

;IF RFC ERROR REPORTS ARE ALLOWED:

13 ,RFCERM,STAERM

013436

013454

s CURRENT TCC X 2.
;GO TO THE TCC HANDLING SUBROUTINE.

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

OUTPUTS:
REGISTERS:

UNDEFINED SPECIAL

D7/

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

3944
3945
3946 013474
3947 013500
013500
013502
013504
013506
3948 013510

MACRO VOS.03

Friday 22 Mey

87 08:12

Pege 26 25

SEQ 0081

CALLS:
005265

003356

TCCO:
:

104456
000005
004475
006120
000207

INC
ERRHRD

HRDCNT(RS)
S5,SCERM,STAERM

;UPDATE HARD ERROR COUNT.
;REPORT SPECIAL CONDITION ERROR.
TRAP

RTS PC

;RETURN
.,

SUBROUTINE TO HANDLE
THIS

TCC

INDICATES

TERMINATION CLASS CODE

THAT

THE

DRIVE

HAS

UNDERGONE

CS$ERHRD

S
SCERM
STAERM

.WORD
.WORD
.WORD

ATTENTION CONDITIGN.
A

STATUS

CHANGE

SUCH AS GOING OFFLINE OR COMING ONLINE.
INPUTS:
OUTPUTS:

REGISTERS:

R2,R4

CALLS:
3959 013512
013512
013514
013516
013520
3960 013522
3961 013526

TCCl::

104455
004603
006120
004737
000207

017240

ERRDF

JSR

RTS

OROPU

6,ATTNM,STAERM

;REPORT

PC,DROPU

;DROP

SUEROUTINE TO HANDLE

ATTENTION UNIT

Ofi;AtINE.

.WORD
.WORD
.WORD

THE UNIT.

C4EROF
6
ATTNM
STAERM

tRETURN,

TERMINATION CLASS CODE 2,

TAPE STATUS ALERT,.

A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SICNIFICANCE
}SPL?E PROGRAM.
BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT,

EOT.

OUTPUTS:

REGISTERS:

CALLS:

013530
013536
013540
013544

032737
001404
105737
001401

3976 013546

000433

3978 013550
3979 013550

032737

3982 013556

001427

3984
3985
3986
3987
3988

013560
013564
013566
013572
013574

105737
001403
105737
001421

3990 013574
3991 013600
3992 013602

105737

003521

105737

003471

3971
3972
3973
3974

001016

000002

002362

TCC2::

003514

170002

8Iv
BEQ

EXPBOT

TC2RTN

BI7T

#XO.RLS!'XO.RLL!'XO. TMC!XO.LET!X0.B80T ,MSGPKT «MS

BEQ

501544

TSTE

RANDOM

7578

VFYFLG

1sT8

IRE

BEQ

002362

S01534:

003515

BEQ

003516
501554
:

©X0.8B0T ,MSGPKT «MS . XSO
S01534

BEQ

BNE

7578

S0153¢

+IF

;IF AT BOT AND BOT IS EXPECTED:

sRETURN-TCC2 CAUSED BY EXPECTED BOT.

XS0

OXO.RLS!XO.RLL!XO.TMK!XO.LET!X0.BOT SETIN MSGPKT.MS.XSC THEN

501554

,IFB

W JF

70602 CAUSED BY

RANDOM EQ

ORB

ANYTHING BUT

VFYFLG

EOT:

THEN

501564

50157%

ERRREC

NOT

IN RANOOM OR

CMD IS WTV:

.IF RFE ERROR REPORTS ARE ALLOWED:
.IF

ARE

IN ERROR

RECOVERY

THEN:

GLOBAL AREAS
GLOBAL

MACRO VOS.03

001403
105237

3996 013614
3997 013616
gggg 013616

000402

003470

005265

003336

4000 013622
4001 013622

005265

003356

013626
013630
013632

104456
000007
004705

013626

4003 013634

501604
:
501614:

501564
:

:883 013636

S01544:

4007

000207

TC2RTN:

4013
4014
4015

;
:
:

4017

4016

4018
:8%8
013640

013640
013642
013644
013646

4022 013650
figz 013654

501614

INC

SCCNT(RS)

INC

HRDCNT(RS)

:SET UNRECOVERABLE FLAG FOR LOG.
sELSE
IF NOT IN ERROR RECOVERY:
; INCREMENT THE SPEC COND COUNTER,
tUPDATE HARD ERROR COUNT,

7,TSAM,STAERM

;:RFPORT

TAPE

STATUS

ALERT.
TRAP

.WORD

4006 013636

4013

501604
UNREC

006120
S0157¢:

4010 013636

BEQ
INCB

ERRHRD

4004 013636

4021

SEQ 0082

. WORD
. WORD

4005
«

Page 26 26

SUBROUTINES SECTION

3993 013606
ggg‘s 013610

4002

Fridey 22 Mey 87 08:12

10445S
000010
004622
006120

004737
000207

RTS

TSAM

STAERM

;RETURN.

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3,
FUNCTION REJECT.
THE SPECIFIED FUNCTION WAS NOT INITIATED.
8Its OF INTEREST ARE
RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA.
INPUTS:

QUTPUTS:

:
H

REGISTERS:
CALLS:

TCCY::

ERRDF

017240

CSERHRD
7

R2,R4
DROPU

8,FUNRM, STAERM

JSR

;REPORT

PC,.DROPU

RTS

FUNCTION REJVECT.

;DROP THE UNIT,

TRAP
. WORD
. WORD
. WORD

CS$ERDF
8
FUNPM
STALRM

tRETURN,

4025
4026
4027
4028
4029
4030
4031
4032
4013

:
:
3
H
H
F
3
;
H

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,
DOES 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

4037

WITH

4034
4035
4036

4038
4039

4040

4041

H
H
H

3
H
H

UNIT DROPPED.
THE SECOND ALGORITHM ISSUES THE TSO0S WRITE RETRY COMMAND
UP TO 16 TIMES BEFORE DROPPING THE UNIT OR PROCEEDING
THE

INPUTS
OUTPUTS:

REGISTERS:

CALLS:

RECORD

ON RECOVERY,

R2.R4,

RTLE, EXCUTE, GOWAIT, DROPU, WRTY

GLOBAL

AREAS

GLOBAL

SUB:» JUTINES SECTION

4042
4043
4044
4045
4046
4047
4048
4049

MACRO V05.03

023727
001125

105737

002210

105737

003471

001522

001007
105737
001404

4050
4051

013716

013720
013720
013724
013726
013732
013736
013742

013744
013752
013760
013766
013772
013776
013776
014002
014006
014012
014016
014022
014024
014032
014034

014034

014116

000002

87 08:12

TCCa::

002207

002213

10523%7
105237
105737
001072

003471
003464
003463

013737
013737
013737
105237

003420
002330
002336
003467
003463

005265
005037
105037
004737
105737
001404

003316
003460
003462
014676
003464

105237

027727

103761
027727

103423

cHe

SEQ 0083

CMOLG, 2

;IF CMOLG EQ 62 ANDB BADTSW NE 60 THEN

BNE
TSTB
BEQ
7STB
BNE

501624
BADTSW
501624
ERRREC
501634

BEQ
ERRSOFT

501634
9,RERM,STAERM

;1IFB ERRREC EQ #0

ANDB ERCVER NE

00 THEN

ERCVER

TRAP

.WORD
_WORD
.WORD

105737

001102

Pege 26 27

1STB

104457
000011
005017
006120

167462

S0163%:

015146
015144
015150

167452
015237
000001

062706
004737
005365
004737
005065
012775

000004
015356
003376
017240
003376
002350

105037
105237

003463
003531

1578
uNE
INCB
INCB
;agfl

IREC
501644
ERRREC
WRTYER
gg}zg?

MOV

sRETRIES WITH TCC4 ERRORS BY PASS THIS SECTION
CMOWRD , WTYWRD
;SAVE WRITE COMMAND PACKET

MOV
MOV
INCB
INCB

S01664:

WRTYCT(RS)

;COUNT GLOBAL
# OF

JSR

PC,WRTY

;CALL

WRITE

BEQ

S01674¢

8LO

ERRORS

RPTCNT

UR*YER

WRITE RETRIES

RETRIES PER RECORD

;:CLEAR ¢ OF REPEATS
RETRY

;REPEAT RETRIES ON SAME RECORD

aBTPT
, 840,
501664

cre

aBTPT,040.

sUNTIL RECOVERED OR 20 BAD SPOTS
sWHEN 20 BAD SPOTS LOGGED

PRINTB

6BTMSG2

;PRINT BAD TAPE OVERFLOW MSG

JSR

PC,BORERS

1ERASE BAD RECORD

CLR
MOV

RECCNT(RS)
PRUCPK ,8TSDB(RS)

DEC
JSR
S01704:

CMOPKT ,WTYCMD
CMOPKT.CP.CNT ,WTYBRF
RWERR
;LOG SUBR FLAG: COUNT WRT
WRTYFG
sRETRY IN PROGRESS FLAG

;CLEAR

B8LO

002514

sRETRY FLAG FOR EXCUTE SUBR: DON'T UPDATE REC
sREWRITE ERROR FLAG FOR WRTY SUBR
;FIRST RETRY ON THIS RECORD: SUBSEGQUENT

RETRYC

cre

000CS0

:IFB IREC €EQ 40 THEN

CLR

7578

000050

C$ERSOF
T

9
RERM
STAERM

;sREPEAT

INC

CLRB

501674
:

012746
012746
010600
104414

014112
014112

003426

Fridey 22 Mey

CLR8
INCB

S01704

RECCNT(RS)
PC , DROPY

WRTYFG
MISCFG

MO )
MOV
MOV
TRAP
ADD

;DROP UNIT
sREWIND UNIT

;RETRY COMPLETE FLAG
:00 NOT HALT ON THIS CMD FLG

#B8TMSG2,
81, (SP)
SP,RO
C4PNTB
@4 ,5P

(SP)

67
f

GLOBAL
GLOBAL

AREAS

MACRO VOS.03

Fridey 22 Mey 87 08:12

4092 014130
4093

4094 014130
4095 014132

:ggg 014132

013737

015146

003424

4102 014140
4103 014144

000402

105237

501644
:

003470

000454

014152
014154
014160

014550
003426

003411
012702
006202

000020

4108 014166

002403

:i?g 014170

023702
0S2737

501624
:

000002

003460

005737
001007
105737
001404

014212
014214

104457
000011

014222
014222
014226
014234
014240
014242

005237
052737
105737
001011
105237

4123 014252

004737

4120
4121
4122
4123
4124
4125

4126 014246
4127 014250

4129 014256

4130
4131 014262
4132 014264

:igz 014264
4135 014270
4136
4137 014270
:igg 014270

4140

414]
4142

;RESTORE ORIGINAL

WRT

CMD AFTER RECOVERY

501714

INCB

UNREC

501724

JSR
cMe

PC,RTLE
CMOLG, #2

;CHECK FOR RETRY LIMIT EXCEEDED.
;IF READ CMD THEN:

BLE
MOV

501734
PRRECL ,R2

;R2=READ

ASR

BLT

501744

;LET

UNREC

:B=

UNREC

601

;

020000

002330

BIS

RETRYC,R2

RETRY

COUNT

LIMIT

sIF RETRY COUNT IS MORE THAN HALF LIMIT:

o0PP . C, CMOPKT

;SET

OPPOSITE BIT FOR RETRYZ2.

501744
:

014176
014176
014202
014204
014210
014212

4119

cHe

4111 014176

014216
014220

WTYWRD, PCMOWD

S0171%:

004737
023727

4107 014162

MOV
501654
:

4098 014136

4099
4100 014136
4101 0l4140

4112
4113
4114
4115
4116
4117
4118

SUBROUTINES SECTION

:gg? 014.22

4104
4105
4106

Page 26 28

S01734:

003460
002207

ST
BNE
7578
8EQ

ERRSOFT

RETRYC

s IF

501754
ERCVER
501754

9,RERM,STAERM

000137

THE

ORIGINAL

RECOVERABLE

ERROR

THEN:

ERROR

TRAP
.WORD

003460
001000
002213

5017S4:

003471

RETRYC
#M0D.C1,CMOPKT
IREC
501764
ERRREC

012114

JSR

PC,EXCUTE

501774

INCB

UNREC

002330

MOV
MOV

012424

003470

JMP
501764
:

C$ERSOFT
9

.WORD
RERM
.WORD
STAERM
;PROVIDED OPERATOR HAS ENABLED THE REPORT
INC
8IS
7578
BNE
INCB

000402

105237

+REPORT

005017
006120

012602
012602

THIS

(SP).,R2
(SP).,R2

;:UPDATE RETRY COUNT,
:SET RETRY BIT IN CMD PACKET.
;:IF ERROR RECOVERY ENAFLED:
:SET

ERROR

RECOVERY FLAG.

:POP 2 RTN ADRS FROM STACK.
;GO0 EXECUTE

GOWAIT

THE RETRY

;GO0 WAIT FOR INTERRUPT

COMMAND.

CHECK STATUS.

;ELSE IF ERROR RECOVERY IS NOT

ENABLED:

s SET UNRECOVERABLE ERROR FLAG.

S01774;

000207

501724
:

;
3

RTS PC
SUBROUTINE

s RETURN
TO HANDLE

TERMINATION CLASS CODE S,

TAPE POSITION HAS NOT CHANGED.
ERROR AND RE-ISSUE THE ORIGINAL

RECOVERY
COMMAND.

RECOVERABLE ERROR.

PROCEDURE

T0O LOG

THE

Q 0084

GLOBAL AREAS
GLOBAL

MACRO VOS.03

Friday

22-May

@
wo
we
“e

4148 014272
4149 014276

415C 014302

4152

4153

4155
4156
4157
4158
4159
4160
4161
4162
4163

014304
014304
014306
014310
014312
014314
014314
014320
014324
014326
014332
014336
014344
014346
014350
014354

4164 014360
4165 014362
014362
4167
41683 014366
4169 014366
4170

004737
005737
001004

014550
003460

TCCS::

104457
000012
005017

006120

005237
105737
001016
105237
005265
016577
012602
012602
004737
000137

502004
:

003460
002213
003471
003376
003376

167042

502014
:

003470

502024:

000207

we
W

B¢

4173
4174
4175

4176

4190

®e

B¢

®e

4177
4178
4179

4181
4182
4183 014370

014376

033737
001016

000010

014400
014404
014406
014412

005737
001404
105237
105237

003426

4191 014416
4192 014416

0l4416
014420

0la4a22

002370

003467
003470

502044;

104455

000013

005041

REGISTERS:

CALLS:

SEQ 008S

R2.R4,

RTLE, EXCUTE, GOWAIT, DROPU.

JSR

PC,RTILE

BNE
ERRSOFT

502004
10,RERM,STAERM

TST

;CHECK FOR RETRY LIMIT EXCEEDED

RETRYC

sIF

;REPORT

THIS

THE

ORIGINAL

RECOVERABLE ERROR.

ERROR

THEN:

TRAP

CSERSOFT

.WORD
.WORD
.WORD

INC

RETRYC

;UPDATE RETRY COUNTER.

BNE
INCB
INC

502014
ERRREC
RECCNT(RS)

;SET ERROR RECOVERY FLAG.
;UPDATE REC COUNT

JMP

GOWAIT

502024

INCB

UNREC

RTS

MOV
MOV
MOV
JSR

012114
012424

000402

105237

INPUTS:
OUTPUTS:

1578

4171
4172

4185
4186
4187
4188
4189

Page 26 29

SUBROUTINES SECTION

4143
4144
4145
4146
4147

4151

87 08:12

IREC

;IF

RECCNT(RS),aDATAWT
(SP)+ ,R2
(SP).,R2
PC,EXCUTE

ERROR

RECOVERY

POSITION HAS

ENABLED:

; AND INSERT IT INTO WRT
;POP 2 RTN ADRS FROM STACK.

i1GO WAIT

BFR

;GO RE ISSUE THE COMMAND.
FOR INTERRUPT . CHECK STATUS.

;ELSE IF ERROR RECOVERY IS NOT ENABLED:
;SET

UNRECOVERABLE ERROR FLAG.
;RETURN.

SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6,
TAPE

10
RERM
STAERM

BEEN LOST.

THE

ONLY

UNRECOVERABLE ERROR.

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
DROPPED FROM THE TEST SEQUENCE.
INPUTS:
OUTPUTS
REGISTERS :
R2, R4
CALLS:
RTLE, WSSR, EXCUTE, GOWAIT, DROPU
817
BNE

X3 DCK,MSGPKT+MS. XS3;IF
S02034

TST

CMDLG

8EQ
INCB
INCB

50204
4
RWERR
UNREC

ERROF

11,URERM, STAERM

X3.D0CK NOTSETIN MSGPKT.MS,
XS3 THEN

1 IF THERE IS NO DENSITY CHECK THEN:
;IF

CMD

A READ OR

WRITE

THEN:

:SET RD/WR ERROR FLAG,
$1SET UNRECOVERABLE ERROR FLAG.
;REPORT

UNRECOVERABLE ERROR.

TRAP

. WORD
.WORD

C4ERDF

11
URERM

17/

WGLOBIL

GLOBAL

AREAS

MACRO VOS5.03

006120

4195 014432

000436

4197 014434
4198 014440
4199 014444

004737
005737
001004

4194

4196 014434

4200 014446

4201

014446
014450
014452
014454

4202
4203

014456
014456
014462
4205 014466
4206 014470
4207

014474

4208 014502

4209 014506

014510
4211 014512
4212 014516
4213
4214 014522
4215 014524
4216 014524
4217
4218 014530
4219
4220 014530
4210

4221
4222

dey 22 Mey 87 08:12

014530

004737

SEQ 0086

017240

502034
:

014550
003460

005237

105737
001016
105237

012775
004737
012602
012602
004737
000137

003471
002350
012740

002514

003470

S0207%:

PC,RTLE

BNE

502064

;ELSE-IF

THERE IS DENSITY CHECK:

;CHECK FOR RETRY LIMIT

RETRYC

EXCEEDED.

;IF THIS IS THE ORIGINAL ERROR THEN:

11,URERM,STAERM

INC
7578

STAERM

DROP UNIT,

;REPORT

DENSITY

CHECK

59209
RAP

RETRYC
IRE

;UPDATE RETRY COUNT,
:IF ERROR RECOVERY IS ENABLED

502074
ERRREC
GRWCPK , 3TSDB(RS)
PC,WSSR
(SP).,R2
(5P).,R2

JSR
P

PC,EXCUTE
GOWAIT

502104

INCB

UNREC

RTS

CSERSOF
T

11
URERM
STAERM

THEN:

;SET ERROR RECOVERY FLAG,
;ISSUE A REWIND COMMAND,
;WAIT FOR SUBSYSTEM READY,
;POP 2 RTN ADRS FROM STACK.
;REISSUE THE COMMAND,
;WAIT FOR INTERRUPT

;ELSE IF ERR REC DISABLED:

:SET UNRECOVERABLE ERROR FLAG.

50210%:

502054:

000207

@
G0
B¢
@e

4240

JSR

BNE
INCB
MOV
JSR
MOV
MOV

012114
012424

000402

105237

502064:

003460
003521

G0
me

REFER

THE

ADODITIONAL

FATAL

REGISTERS:

CALLS:

TCC7::

ERRDF

CLASS

INFORMATION

INPUTS:
OUTPUTS.:

104455

;RETURN

SUBROQUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM
ERROR.
THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING
COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE.

®e

4;s

4239

502054

006120

4230
4231
4232

4237

.WORD

;REPORT ERROR .

.WORD
.WORD
.WORD

4227
4228

4235 014546

PC,DROPU

1ST

104457
000013
005041

4223

4233 014532
014532
014534
014536
014540
4234 014542

JSR

ERRSOFT

4224
4225

4236

Page 26 30

SUBROUTINES SECTION
0laaz4
014426

4193

R2,

CODE

FIELD

THE

TYPE

THE

FATAL

TSSR REGISTER FOR
ERROR.

12,FATSM,STAERM

;REPORT

FATAL

SUBSYSTEM ERROR.

;OROP

THE UNIT.

000014

006120
004737
000207

017240

JSR

PC,DROPY

RTS

TRAP
. WORD
.WORD
.WORD

C$ERDF
12
FATSM
STAERM

;RETURN
.

SUBROUTINE T0 CHECK FOR RETRY LIMIT EXCEEDED.
PRINTS ERROR MESSAGE
%ZPEngEDED AND DROP UNIT UNLESS COMMAND IS A READ.
(VASCH

GLOBAL

AREAS

MACRO VOS.03

GLOBAL

SUBROUTINES SECTION

Fridey 22 Mey 87 08:12

424}
4242

:
:

:gfi

4245 014550

4246

014554

005737

001010

4247 014556
014556
014560
014562
014564
4248 014566

104455
000013
005041
006120
OC4737

:ggg 014574

000437

4249

014572

4252 014576

4253 014576

4254 014602
4255 014610
4256 014612
4257

014620

4258 014622
4259 014626
014626
014630
014632
014634
4260 014636
4261 014642

4262 014644

4263

4264 014644

4265 014646
4266 014646
4267 014654
4268 014656
4269 014662

014662
014664
014666
014670

012602

105237

023727
001016
023727

001011

105237

104455
000016
004556
006120
004737
012602

017240

003467

003426

000002

003460

000020

023727

001007
105237

017240

000207

003460

000020

S0212%:

003470

RTLRTN

INCB

RWERR

BNE

502134

(SP). .R2

;DROP THE UNIT,

;POP

RTN

ADRS

FROM

:AND RETURN.

:IF

;IF

CMD IS A WRT

RETRY COUNT

OR WTM:

HAS REACHED LIMIT:

INCB
ERRDF

UNREC
14 ,RLEXM,STAERM

JSR

PC, DROPU

;SET UNRECOVERABLE FLAG
;REPORT RETRY LIMIT EXCEEDCD.

B8R

502144

cHe

RETRYC,ORRECL

;IF RETRY COUNT

502154
UNREC
14 ,RLEXM,STAERM

;SET UNRECOVERABLE FLAG
;REPORT RECOVERABLE ERROR.

;OR0P THE UNIT.

(SP).,R2

:POP

2 RTN

;ELSE

TRAP
WORD
LMORD
.WORD

CMD IS A RERD:
HAS REACHED LIMIT:

;POP 2 RTN ADRS FROM STACK.

;
;

SUBR TO REWRITE A BAD, BUT RECOVERABLE WRITTEN RECORD.
REWRITE RECORD ON SAME SPOT: REPEAT & TIMES.

AND A RECOVERABLE WRITE ERROR IS LOGGED.

JRETURN

ANY

RECORD NOT

RECORD 1S RECOVERED

& REPEATS BAD,

ERASE BAD RECORD,

LOG SUSPECTED

BAD SPOT, RETRY AGAIN. RETRY 4 TIMES, UP TO 4 REPEATS EACH.

;

ERROR FLAG WRTYER SET,

:
$
H

GOOD

AFTER

RETRIES,

ERASE

IT,

PRINTING RETRY FAILED.

EXIT

WITH

THIS ALL SCHEME IS REENTERED 20 TIMES MAX, IE 20 BAD

SPOTS MAX ARE ALLOWED.

C$ERDF
14
RLEXM
STAERM

ADRS FROM STACK.

TRAP
LWORD
'MORD
.WMORD

IF ALL 4 REPEATS GOOD,

C $ERDF
11
URERM
STAERM

;SET READ/WRITE ERROR FLAG.

CMOLG, 02
S02124%
RETRYC,OWRECL

TRAP
.WORD
JWORD
_WORD

STACK.

RTS

502144:

THEN:

;REPORT UNRECOVERABLE ERROR.

RTLRTN:

;

4285

PC, DROPY

A READ OR WRITE

(SP)+.R2

4280

4283

11.URERM,STAERM

CMD IS NOT

MOV

502154:

;

4282

;IF

JSR

BNE
INCB
ERRHRD

4278

4281

CMOLG
S0211%$

MOV

104456
000016
004556
006120

42;; 014674

4279

TST

e
BNE
cHe

003470

R4,

DROPU

BNE

MOV

S0211%$:

R2,

CALLS:

ERRDF

000413

012602

42
4276
4277

RTLE::

OUTPUTS:
REGISTERS :

SEQ 0087

S02134$:

4270 014672
4271 014674
4272

4273 014674

003426

Page 26 31

CS$ERHRD
14
RLEXM
STAERM

I<7

GLOBAL AREAS

MACRO VOS5.03

Fridey 22-Mey

87 08:12

Page

SEQ 0088

GLOBAL SUBROUTINES SECTION
@0

4286

4287

®e

®s

4288
4289
4291
4292
4293
4294
4295

4290

CALLS:

014676

WRTY::

;:BEGIN RETRY

014676

502174
:

4296

4297 014676
4298 014676
4299 014702

4300 014706

4301 014712
4302 014716
4303 014724
4304 014726
4305 014732

4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317

014734

014734
014734
014740
014744
014746

014750
014750
014754
014756
014758
014760
014764
014770
0.4774

4318
4319
4320
4321
4322
4323
4324
4325
4326

INPUTS
QUTPUTS:
REGISTERS:

015000
015002
015004
015010
015010
015016
015020
015026
015032
015036
015042
015046
015050
015054
015056

4327
4328
4329
4330
4331 015062
4332
4333 015062
4334 015062

004737
105037
004737
105237
123727
001403
105737
001761

015356
003464
015532
003462
003462

105737
001415

002207

101005

013703
060304
016514

PC ,BORERS

;BACKSPACE/ERASE

WRTYER

;CLEAR WRITE RETRY ERROR

INCE

RPTCNT

; COUNT REPEATS

BEQ

502224

PC.REWRT

sREWRITE

RPTCNT, 04

;LIMIT:

RECORD

ONE

REPFATS

RECORD

SAME

OR RECOVERED

502214

;END REPEAT
INC

BNE

RETRYC

;COUNT

WRTYER

502234

S02164

1578

ERCVER

PRINTB

@#BTMSGL,RETRYC,<B,RPTCNT>

BEQ

RETRIES

502254

;EXIT

;:IFB

RETRY

ERCVER NE

¢0

LOOP

RECOVERED

THEN

sPRINT

SUSPECTED

003462
003460
015152
000003

003460

000001

002616
166460
000002
166450
000050

003512

502254:

SPOT

(SP)
RPTCNT ,(SP)
RETRYC, (SP)
OoB8TMSGLl, (SP)

ADD

£10,SP

RETRYC,#1

;ON FIRST

MOV

BTADDR(RS),.BTPT

;BTPT IS BOTH THE BAD SPOT COUNTER

ADD

92 ,R4

MOV

003376

502264

aBTPT R4

R4 ,aBTPT

cHe

R4 ,040,

BHI

502274

MOV
ADD

BTPT,R3
R3,R4

INCB

ERSFLG

MOV

RECCNT(RS),(R4)

;IF

;AND

THE

LOGGING

|LOS

640.

THEN

;STORE FIRST 20
;LET R4 := R4 .

sLET

RETRY,

(R4)

BAD
R3

LOGG BAD

502264:

03, (SP)
SP,RO
C$PNTB

cHe

BNE

003512

003525

BAD

CLR
BISB
MOV
MOV
MOV
MOV
TRAP

000010

INDEX

SPOTS

RECCNT(RS)

502274:

105237

SPOT

WRTYER

BEQ

1578

502234:

;REPEART

JSR

1578

502204
:

;REPEAT

CLRS
cHP8

502224:
003460
003464

023727
001021
016537
017704
062704
010477
020427

000004

BORERS, REWRT

;BEGIN REPEAT

JSR

003464

005237
105737
001001
000457

005046
153716
013746
012746
012746
010600
104414
062706

502214
:

R3,R4

tERASE FLAG TO ERASE BAD RECORD

SPOT

GLOBAL

AREAS

MACRO V0S.03

Fr'day 22 May 87 08:12

Page 26 33

SEQ 0089

GLOBAL SUBROUTINES SECTION
4335
4336
4337
4338
4339
4340
434)
4342
4343
4344
4345
4346
4347

4348
4349
4350
4351
4352
4353
4354
4355

015066
015072

105037
105037

003467
003462

015076
015076
015104

023727
001274

003460

015106
015106
015112
015114
015120
015122
015122
015126
015132
015134
015136

105737

003464

105737
001410

002207

012746
012746
010600
104414
062706

015307

001413

000004

502244
:

502164:

;CANCELL

RPTCNT

"LOG” ERROR FLAG ON FALLING RET

;:CLEAR REPEAT

cHP

RETRYC, o4

BNE

502174

1578

WRTYER

7518

ERCVER

PRINT8

oBTMSG3

COUNT

FOR NEXT

;LIMIT:

RETRY

RETRIES

;END RETRY

8EQ

B8EQ

502304

502314

;IFB

WRTYER

;IFB

ERCVER

#0
NE

THEN
00

THEN

;PRINT

RETRY

FAILED

000001

MOV
MOV

MOV
TRAP
ADD

000004

S0231%:

015142
015142

:
502304

015144
015146
4356 015150

4358 015152
015155
015160

015163
015166
015171
015174
015177
015202
015205
015210
015213
015216
015221
015224
015227
015232
015235
4359 015237
015242
015245
015250
015253
015256
015261
015264
015267
015272
015275

RUWERR

CLRB

015142

4357

CLRB

RTS

WIYCMD:
WTIYWRD:
WTYBRF
:

.WORD
.WMORD
.WORD

O
O
O

BTMSGL
:

.ASCIZ

/#ASUSPECT BAD SPOT

BTMSG2:

.ASCIZ

/wNs#ABAD TAPE OVERFLOW:

OBTMSG3,
81, (SP)

SP,RO
C$PNTB
04, 5P

:STORAGE FOR WRITE CMD WHILE RETRYING
;STORAGE FOR WRITE CMD WORD WHILE RETRYING
:STORAGE FOR WRITE BPCR WHILE RETRYING
AFTER mD1sA RETRY,

sD1sA REPEATEN/

CHANGE TAPE !#NsN/

(5P)

GLOBAL

AREAS

MACRO V0S5.03

Friday

22 May

87 08:12

Page

SEQ 0090

GLOBAL SUBROUTINES SECTION

015300
015303
015306
015307
C15312
015315
015320
015323
015326

105
116

000

C4]
045

045
116

BTMSG3:

101

.ASCIZ

/#ARETRY FAILED ON BAD SPOT...ERASED'SN/

040
111
104

015353

.EVEN

;

003424
003420

002330
002330
003422
002332

015530
015530

015532
015540
015546
015554

;
H

REGISTERS:
CALLS:

EXCUTE,

GOWAIT,

QUTPUTS:

BORERS : : MOV
MOV
MOV
BIC
MOV
MOV

CLR

003420
015146
015144
002330

003424
003420
002330
003422

CMOLG

BEQ

S02324

RTS

ERSFLG

CMOWRD , PCMOWD
OERS , CMOWRD
CMOWRD , CMOPKT
CHOPKT . CMDSAV
PC.CMDAC
PC . EXCUTE
PC.GOWAIT
PC . CKHAE
ERSFLG

THAT

COMMAND
CMOWRD
CMDPKT

:=
:=

CMDSAV

PSRR

CMDWRD CLR.BY ¢8RF.C

CMDPKT

sWHEN ERASE FLAG IS SET,

:LET PCMOWD :
;LET CMOWRD :
;LET CMOPKT :
;LET

CMOSAV
;

;LET ERSFLG

DO ERASE

CMOWRD
PERS

CMDWRD
CMDPKT

REWRT::

MOV

CMDWRD,PCMOWD

;RESTORE

MOV

WTYCMD, CMOPKT

sLET

WTYWRD.CMOWRD
CMOPKT .CMDSAV

;
;
;

SUBR TO REWRITE A BADLY WRITTEN RECORD

MOV

TO SPACE REV

;LET CMDPKT.CP.ADL

;

MOV

RECORD

CKHAE

;LET CMDLG := 80

PC.CMDAC
PC.EXCUTE
PC.GOWAIT
PC . CKHAE

MOV
JSR
JSR
JSR
JSR
CLRB

502324:

CMOWRD , PCMOWD
;:SET
#SRR, CMOWRD
iLET
CMOWRD , CMOPKT
sLET
OBRF
. C . CMDPKT
CMOPKT.CMOSAV
;LET
21 ,CMOPKT.CP.ADL

JSR
JSR
JSR
JSR

MOV
MOV
MOV

105037

013737
013737
013737
013737

THEN ERASE

1 = DO ERASE

003424
003420
002330
003422

000207

SET,

ERSFLG

TSTB

001426
013737
012737
013737
013737
004737
004737
004737
004737

INPUTS :

105737

015470
015476
015504
015510
015514
015520
015524

THE ERASE FLAG

;

013737
012737
013737
042737
013737
012737
005037
004737

SUBR TO BACSPACE ONE RECORD

WRITE

COMMAND PACKET

;LET CMOWRD := WTYWRD
CMOPKT

;LET CMDSAV

WTYCMO

CHMOPKT

:
H

GLOBAL AREAS

MACRO V0S5.03

Friday 22-May-87 08:12

Page 26-35

<€Q 0091

GLOBAL SUBROUTINES SECTION
4402 015562
440% 015570

4404

015576

4405 015604
4406 015610

4407 015614
4408

015620

::?3 015624

013737
013737

012737

004737
004737

004737

003406
015150

000002

002332
002336

MOV
MOV

003426

011124
012114

012424

017540

MOV

62.CMDLG

JSR
JSR

PC.CMOAC
PC.EXCUTE

JSR

PC.GOWAIT

JSR

000207

DATAWT , CMOPKT-CP . ADL
WTYBRF , CMDPKT+CP . CNT

RTS

;LET
iLET

iLET

CMOLG

CMOPKT-CP.ADL
CMOPKT.CP.CNT

;

4414
4415

;
;

OUTPUTS;
REGISTERS:

LOG::

TSTB
BNE
INCB
MOV
TST

4418
4419
4420
4421
4422

015626
015632
015634
015640
015644

105737
001126
105237
013704
005704

4423 015646

001520

4425 015654

010502

4424 015650

003466
003466
003426

162704

000002

4426 015656
4427 015662

066402
062702

016112
002626

4429 015672
4430 015700

023737
101002

002360

4428 015666

:23% 015702

063712

163712

003416

010203

062703

000010

4437 015714
4438 015714

021227

001747

4440 015722

162712

001750

::gz 015710

4439 015720

003404

444% 015726

005213

4443
4444
4445
4446
4447
4448

000771
010302
062702

000010

021327

001747

4450 015746

162713

001750

4449 015744

003404

4453 015754

000771

4455
4456
4457
4458

010203
062703

000010

021227

001747

;IF

;ADJUST

RS .R2

;R2 =

INC

(R3)

$1000. ,(R2

BEEN LOGGED

THEN:

THE

CODE FOR

TABLE

INDEX.

ADR OF BYTE COUNT LSW.
;ADD BRF

;IF

THE

RFC

TO LSW.

IS LOWER

THE SAME

AS BRF

;SUBTRACT RFC FROM EXPECTED BRF.
;R3

$10,R3

502374

ADR OF

2ND WORD.

iLET

;UPDATE BYTE COUNT
(R3)

(R3)

;OND WORD.

50236¢

MOV
RS, az
{LET
ADD
010,R2
;WHILE (RS) GT 0999.
cHP
(R3),0999.

BLE

S0241¢

INC

(R2)

AND ERRORS HAVE NOT

nssva.ns.nrc.(az)

BLE

SUB

DATA

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

;WHILE (R2) GT ¢999.
cMP
(R2),0999.

SUB

502424 :

ERLOG
S02334
ERLOG
CMOLG,R4
R4
502344
92.R4

R2,R3

ADD

502414:

R4,

MOV

SuB

S0240%:

R3,

cHP
BHI

ADD

S02364:

R2,

axnccn4) R2
OCNTBGN, R2
BRFCNT, (R2)
nscva.ns RFC.BRFCNT
50235

005212

015756
015760
015764
015764

ADD
ADD

502374
:

335 015752
4454 015756

SUB

502354:

015730
015732
015732
015734
015740
015740

CALLS:

MOV

002360

4433 015706
4434 015706

INPUTS

BEQ

003416

RECORD

;

PC . CKHAE

SUBROUTINE TO LOG BYTES READ/WRITTEN.
ALSO UPDATES READ/WRITE ERROR COUNTERS.

xig

;
:
;

;RE-WRITE

:
;

DATAWT
WTYBRF

4411
4412

4413

:=
:=

$1000. ,(R3)

810

,R2

ADR

3RD

WORD.

4TH

WORD.

DO
;UPDATE BYTE COUNT

ILET (R2) := (R2) « o1

;3RD WORD.

S. 2404

MOV
R2,R3
iLET
ADD
#10,R3
H&UHILE
(R2) GT 0999.
R2).9999.

R3
DO

010

;R3

ADR

THEN

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

MACRO V0S.03

44T9 015770
44€0 015772
4461 015776

003404
162712
005213

4463 016000
4464 016002

000771

001750

105737

003467

105737

016120
002766
003470

001440
010502
066402
062702
001404
062702
005212

016070
016074
016100
016102
016104

013746
012746
012746
010600
104414
062706

502434:

002207

003460
005422

4491

016110

502464:

4493 016110

502444;

4495 016110

502344
:
502334
:

BINC:
000100

4505 016120
4506 016122
4507 016124

000000
000020
000040

;LET

;UPDATE BYTE COUNT

(R3)

RS, R2

;IS

AOD

210,R2

;YES,

50245
¢
(R2)

50246

(R2)

éINC:

THE

;4TH WORD.

R/W ERROR,

UPDATE

ERROR

COUNT.

ERROR UNRECOVERABLE?

POINT

COUNTER.

;UPDATE THE ERROR COUNTER

IREC

:IF

7STB

DROPED

;IF UNIT

TST8

ERCVER

PRINTB

ONURTY1,RETRYC

50250+

{UPDATE THE ERROR COUNTER
JELSE - IF ERROR IS RECOVERABLE:

IS8

502474

;R2 = ADR OF COUNTER.

EINC(R4),R2
OWRREC ,R2
UNREC

INC

(R3)

;IF

ADD
ADD
TSTB

50244¢

502504

ERROR

;PRINT

RECOVERY

ENABLED:

HAS NOT

BEEN DROPPED:

¢ OF

RETRIES

RECOVER
MOV

RETRYC, -(SP)
MOV
ONURTY]1, -(SP)
MOV
02.-(SP)
MOV
P RO
TRAP
C$PNTB
ADD
66, SP
;PROVIDED PRINT HAS BEEN ENABLED

000002

S02474:

4503 016116

RWERR

BEQ

4488 016110

4501 016112
4502 016114

TSTB

BNE

S02504:

000207

50242+

BNE

003522

SE@ 0092

INC

002213

50243
21000. , (R2)
(R3)

BEQ

S024S4;

age 2

BLE
SUB
INC

MOV

4486 016110

4497 016110
4498 016110

BEQ

000010

000424

005212
105737
001020
105737
001015
105737
001412

Friday 22-Mey 87 08:12

RTS

INDEXES
0
40
100

TO BYTE COUNTERS.

JWRITE,
{READ REV.
;READ FWD.

INDEXES TO READ/WRITE ERROR COUNTERS,

JWRITE,

{READ FWD.

{READ REV.

IF A WRITE/VERIFY COMMAND IS ISSUED,

CONTROL

IS THEN

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

MACRO VO5.03

Fridey 22 Mey

4510

43513

H
:
3

4511
4512

4514
4515
4516
4517 016126
4518 016132

43519 016134

4520
4521
4522
4523
4524
4525

016142
016150
016156
016162
016170
016176
4526 016204

4527
4528 016210
4529 016210
4530

0l6212
016220
016226
016232
016234
016242
016242
016250

016256

016262
016262
016270
016272
016276
016302
016302
016310
016312
016320
016322
016330
016332

016340
016342
016346

:
105737

001426
013737
012737
012737
004737
013737
012737
012737
004737

013737
042737

105737

001403
052737

003420

004000
003520

002330
002330

010000

002330

013737
013737
005037

002330
003410
003412

003422
002332

023737
002062
004737
004737

003412

003414

011124
017142

026527

002604

177777

000400

003420

000002

003502

000001

003502

003524

SEQ 0093

THIS

CALLS:

MOV
JSR
MOV

MOV
MOV

50251
:

000207

INPUTS:
oUTPYUTS:
REGISTERS:

MOV
MOV

003424
003420
003426

TRANSFERRED

BEQ

003424
003420
003426

Page

SUBROUTINE

READ

REVERSE

READ FORWARD, CHECK DATA, THEN CONTINUE TO NeExt

VFYDAT:. .T1ST8B

003516

003420
104401
000004
016212
003420
104001
000006
016212

08:12

CHECK DATA,
COMMAND.

VFEXC.

VFYFLG

sIF DATA IS 10 BE VERIFIED:

502514

CHMOWRD
, PCMOWD
ORDR , CMDWRD

;SAVE THE PREVIOQUS COMMAND WORD.
;COMMAND

IS READ REV,

ORDF , CMDWRD
#6,CMOLG

;COMMAND

IS READ FUWD,

$SET UP CMD LOGGING INDEX.
;GO READ ALL THE RECORDS REV.
:SAVE THE PREVIOUS COMMAND WORD.

04,CMOLG
PC,VFEXC
CMOWRD
, PCHMDWO

JSR

PC,VFEXC

RTS

:SET UP CMO LOGGING INDEX.
;GO READ ALL RECORDS FWO.

sRETURN,

:
H
3
:
H

SUBR?UYINE TO EXECUTE THE READ AND VERIFY, FORWARD OR REVERSE.
INPUTS:
QUTPUTS:
REGISTERS:
R2
CALLS:
CMDAC, FIRSTU, VFISU, NEXTU, CKHAE.

VFEXC::

MOV

502524:

50253¢:

;COMMAND PACKET = READ REV OR FWD.

#8RF
. C,CHOPKT
SWBFLG
502524
#SuWB
. C,CMOPKT

MOV
MOV
CLR

CMOPKT ,CMDSAV
ODATARD,CMOPKT-CP
. ADL

;IF BYTES ARE TO BE SWAPPED:
$1SET SWAB BIT IN CMO PACKET.

NCNT

:SAVE COMMAND PACKET

1ST WORD.

1SAVE BUFFER START ADDRESS.
;:CLEAR NUMBER OF OPERATIONS.

;WHILE NCNT LT NCNT1 DO
cop
NCNT _NCNT1

(WHILE THERE ARE RECORDS REMAINING:

JSR
PC,CMDAC
JSR
PC.FIRSTY
sWHILE
OEVTBL(RS) NE O0END DO
cHP
DEVTBL(RS),
6END
BEQ
502564

;STORE CMO ASCII IN ERROR MSG.
:SET UP FOR FIRST UNIT,

B8GE
502554 :

CMOWRD
, CMOPKT

8IC
1S78
BEQ
8IS

B8IT

50254¢

o100 .CO,CMDWRD

BEQ
8IT
BNE
81T
BEQ

502574
¢X0.B0T ,EQOTFLG(RS)
502604
¢X0.EQT ,EOTFLG(RS)
S02614

BEQ

502624

1818

ALLEOQT

;WHILE THERE ARE DEVICES REMAINING:

+IF CMO IS REVERSE THEN:
s+ IF NCT AT BOT
;BUT IF AT EOT

1AND ALL OTHERS AT EOT

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

4567 016350

4568

4569 016354
4570
4571 016354
4572 016356
4573 016356
4574

MACRO V0S5.03

004737

Fridey 22-Mey 87 08:12

016440

4577 016362
4580 016364

4581
4582
4583
4584
4585
4586
4587

4588
4589
4590
4591
4592
4593
4594
4595
4595
43597
4598
4599
4600

4601
4602

016372
016374
016402
016404

016404

000402

004737

502614
:

016440

;sTHEN READ VERIFY
:IF NOT ALL AT EOT, FREEZE UNIT(S)

JSR

PC,.VFISU

S0263¢

JSR

PC.VFISU

;NOT AT EOT,

S0264
¢

;ELSE IF CMD IS NOT REVERSE:

817
BEQ
81T
BNE

#X0.EQT ,EOTFLG(RS)
S02654
#CMD.CO,CMOWRD
S02664

JSR

PC,VFISU

JSR

PC . NEXTU

B8R

502554

JSR
INC
MOV

PC,CKHAE
NCNT
CMDWRO
, PCMDWO

502534

RTS

;IF

NOT

BOT

AND

READ VFY

502634
:
502604
:

000412

032765
001404
032737
001002

000001

003502

000001

003420

004737

016440

502574
:

502654
:

016410
016410
016410

SEQ 0094

502624
:

4575 016362
4576
4578 016362
4579 016364

Page 26-38

: IF NOT AT EOT OR NOT A MOTION CMD THEN:
;ISSUE CMD, CHECK STATUS AND DATA.

502664
:

004737

016414
016416
016416
016422
016426

000732

016434
016436
016436

000712

004737
005237
013737

502644
:

017210

017540
0034]12
003420

502564
:
003424

502544
:

000207

oUTPUTS

003410
000010

020237
001403

003410

012742

REGISTERS:

VFISU::

MOV
ADD

004737

012114

001002
004737

012424

105737

S02674 :

177777

000772

003522

INPUTS:

CALLS:

ce
BEQ

MOV

502704
:

CHECK DATA,
R2

EXCUTE,

0-1.-(R2)

S02674

JSR

PC,EXCUTE

BNE
JSR

S02714
PC.GOWAIT

OROPED

AWAIT

GOWAIT,

DATARD,R2
:INIT
#8. ,R2
sWHILE R2 NE DATARD DO
R2,DATARD
502704

15718

: SAVE PREVIOUS COMMAND WORD.

TO ISSUE COMMAND,

CHECK STATUS,

;CHECK FOR HALT AFTER EACH CMD.
;UPDATE THE RECORD COUNT.

iRETURN,

013702
062702

SUBROUTINE

;GO FIND THE NEXT UNIT.

INTERRUPT,

CKDATA,

READ BUFFER POINTER.
;UNTIL 8 BYTES HAVE BEEN SET,
+INIT READ BUFFER.

1GO EXECUTE THE COMMAND.
1 IF UNIT HAS NOT BEEN DROPPED THEN:

GO WAIT FOR DONE BIT.

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION
016502
016502
016506
016510
016516
016520

001006
032765
001002
004737

016524

502714:

003522
000002

003502

502724
:

000207

®e
@
®e
@
®

163703

005703
001015

4649

46353
4654

4655

4656
4657

4659
4661

1578

SEQ 0095

DROPED

;IF

S02724
$X0.BOT ,EOTFLG(RS)
S0273%

JSR

PC,CKDATA

RTS

UNIT

HAS NOT

BEEN DROPPED

;WHEN NOT

THEN:

REVERSED INTO BOT,

THEN

;GO VERIFY DATA.

502734:

013703

4650
4651

Page 26 39

8NE
8IT
BNE

016526

016524

4634 016524

4635
4636
4637

105737

Fridey 22-May 87 08:12

4624
4625
4626
4627
4628
4629
4630
4631
4632
4633

MACRO VOS5.03

003416
002360

INPUTS:
DUTPUTS:

104414
062706

ERRHRD

PRINTB

010337
005337
005037

017136

017140

;COMPUTE REC LENGTH READ

MSGPKT +MS.RFC,R3
R3

;WHEN NO DATA RECEIVED

17,WTVERM, DTAERM

;PRINT

502744

ODTAER4

502744:

502754

cHe
BLOS

R3,BRFCNT
502764

ERRHRD

; COMPARE

PRINTB

17, WTVERM,DTAERM

UTAERS,CMOPKT.CP.CNT

ERROR

AND

ROUTINE

EXIT
TRAP

17
WTVERM
DTAERM

MOV

SOTAERA, - (SP)

TRAP
ADD

C$PNTB
04,5P

PRINT
TRAP

CS$ERHRD

01, (SP)
SP.RO

;WHEN REC READ IS LONGER
; THAN EXPECTED,

;AN ERROR

MORD
"WORD
"WORD

17
WTVERM
DTAERM

MOV

CMDPKT.CP.CNT.

MESSAGE

S0TAERS,

MOV

02, (SP)

MOV

S02764
:

5021774

MOV
DEC
CLR

R3,CKDCNT
CKOCNT
CKOFF

CS$ERHRD

. WORD
'WORD
"WORD

MOV

000536

R4,

MOV
MOV

002336
005360
000002
00C

R3,

GCMDA

ON MISCOMPARE
.

BRFCNT,R3

sSuB
1231

104456
000021
004430
005752
013746
012746
012746
010600

R2,

CALLS:

BNE

003416

TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS

ERROR MESSAGE

REGISTERS :

CKDATA: : MOV

005337
000001

020337
101417

SUBROUTINE

AND PRINT

{AND EXIT

ROUTINE

SP.RO

TRAP
ADD

;SAVE VERIFICATION LENGTH

C$PNTB
#6, 5P

;CLEAR @ OF BYTES IN ERROR COUNTER.

(SP)

AREAS

GL OBAL

SUBROUTINES SECTION

017002
017010
017016
017020
017020
017022
017026
017030
017034
017036
017042
017046
017050
017052
4701 017056

4702
4703 017056
4704 017060

SEQ 0096

003406
003410
003523

CLR

;INIT BYTE COUNTER

MOV

DATARD . R4

:GET READ BUFFER ADDRESS.

BEQ
SWAB

S03004
(R3)

MOV

105737

001406
032737
001002

$0301%4:

017136

T15W8

;REPEAT

{WHEN RUNNING TEST1 SuUB 12,

;SWAP FIRST

WORD OF

WRT

;WHICH CONTAINS THE RECORD COUNT
;REPEAT

UNTIL

ALL

DATA

BFR

1578

SWBFLG

:IF BYTE SWAPPING IS ENABLED THes;,

#81700, CKDCNT
S03044

;IF RECORD LENGTH IS ODD THEN:

1578
1578

503024
503034

(R3).

(R4).

THIS IS THE LAST BYTE

COMPARED:

;IF

8I7
BNE

105723
105724

WRITE BUFFER ADDRESS.

R2,CKDCNT

8EQ

017136

;:GET

BNE

003520
000001

DATAWT ,R3

1578

S03004:
020237
001011

Page 26 40

THEN:

;LAST BYTE WILL BE IN

: THE UPPER BYTE.

S03044
:

503034
:
S0302%
:

121314
001452
005737

017140

005265

003346
003356

001010
005263

104456
000021
0044 30
005752
005237
111437
042737
111337
042737
023727
002017

TST

BNE
INC
INC

010600

104415

062706

105723
105724

(R3),(R4)

;ARE

CKDFF

11 ST TIME THRU?

24
VFYCNT(RS)
HRDCNT(RS)

ERRHRD 17 ,WTVERM,DTAERM

017140

24%:

003436
003440
000013

INC

MOVB
8IC
MOVB
8IC
g&
PRINTX

005046

153716
005046
153716
010246
012746
012746

BEQ

(R4),TIME]
0177400, TIMEL
(R3),TIME2
0177400, TIME?
%%gion

THEY

:BR IF SO.

EQUAL
.

:8R IF NOT.
;INC THE VERIFY ERROR COUNTER.
;INC THE HARD ERROR COUNT,
;REPORT

CKDFF*LET CKDFF := CKDFF - #1

WRITE/VERIFY ERROR.

TRAP

LWORD
.WORD
.WORD

000012

£ exzecveo DATA
LR
-(SP)

8IsB

TIME2,(SP)

8IsB
MOV
MOV
MOV
MOV

TIMEL,(SP)
R2, - (SP)
o0tAER2, -(SP)
#4,-(SP)
SP,RO

ADD

$12,5P

TRAP

503054
:
34:

1S7E
TST8

17
WTVERM
DTAERM

;INCREMENT ¢ OF BYTES IN ERROR.

CLR

005226
000004

C4ERHRD

1 SAVE WAS DATA FOR TYPOUT.
;CLEAR GARBAGE.
;SAVE SHOULD BE DATA FOR TYPOUT.
;CLEAR GARBAGE.
;IF ERROR BYTE COUNT IS LESS THAN 11:

@DTAER2,R2,<B,TIMELl>,<B,TIME2>
;PRINT ACTUAL

016760
016764
016770
016776

87 08:12

016752
016754
016756

005002
013703
013704
105737
001401
000313

Fridey 22-Mey

DX
[Y]

4662 016654
4663 016656
4664 016662
016666
4666 016672
4667 016674
4668
4669 016676
4670
4671 016676
4672 016676
4673 016702
4674 016704
4675 016710
7676 016712
4677 016720
4678 016722
4679 016724
4680
4681 016726
4682
4683 016726
4684
4685 016726
4686 016726
4687 016730
4688 016732
4689 016736
4690 016740
4691 016744
4692 016750
016750

MACRO V0S5.03

GL OBAL

sUPDATE WRITE BUFFER ADDRESS.
tUPDATE READ BUFFER ADDRESS.

-(SP)

CHePNTX

AREAS

GLOBAL

SUBROUTINES SECTION

4705
4706
4707
4708
4709
4710
4711

i 4712

017062
017064
017070
017072

017076

017102
017104
017104
017110
017114
017120
017124
017126
017130

MACRO V0S.03

105722
020237
003702
005237
005737
001414
013746

013746
012746
012746
010600
104414
062706

Fridey 2, -Mey 87 08:12

017136

017136
017140

S027S4:

000207

HAS

BYTES

OCCURED

IN ERROR.

MOV
MOV
MOV

;OTHERWISE,

CKDCNT.
CKOFF:

.MORD
CWORD

O
O

;0 OF BYTES TO BE VERIFIED
1.
;0 OF BYTES IN ERROR COUNTER.

§fi§fi?§’1"s

RTS

003522
002604

FIRSTU::
177774

503074
:

THEN:

CKDCNT, -(SP)
CKDFF, (SP)
P0TAERS, -(SP)

03, -(sP)
SP,RO

C$PNTB
010,5P

026527
001001

002604

177777

S03104:

104444

016537

000207

002604

002074

50311%4:

105037

003522

THE FIRST

DEVICE

IN THE

TEST

SEQUENCE.

OUTPUTS:
CALLS:

CLRB
CLR
cMe
BNE
BR

DROPED
RS

;CLR UNIT DROPPED FLAG
;CLR DEVICE POINTER,

DEVTBL(RS), ONINUSE
503104
92.RS
iLET RS :=
S0%074

cHe
BNE
DOCLN

DEVTBL(RS), 6END
503114

MOV

DEVTBL(RS),L$LUN

RTS

sWHILE DEVICES ARE NOT

IN USE:

TO NEXT

;IF

;POINT

TO FIND THE NEXT UNIT

DEVICE.

ALL UNITS HAVE BEEN DROPPED THEN:

;D0 CLEAN CODE AND TERMINATE PASS,
TRAP

SUBROUTINE
INPUTS:
OUTPUTS:

$:SET

UNIT

¢ IN

;RETURN WITH

C40CLN

"HEADER" FOR ERROR REPORT

1ST

DEVICE

IN RS.

IN THE TEST CYCLE.

REGISTERS:

CALLS:

NEXTU:
: CLRB
503124
:

TO FIND

RETURN.

REGISTERS:

ADD

000002

017214

;PRINT

ERROR

502774
:

017210

BDTAERS,CKOFF ,CKDCNT

COMPARE

S03064
:

017142
017146
017150

017200
017200
017206

:IF

000010

4740

4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753

;CKDCNT EQUALS RECORD LENGTH,

CKOFF

TRAP
ADD

®e

4739

S0306$

;UPDATE BYTE COUNTER.
;END OF DATA COMPARE REPEAT L0OOP.

MOV

4733
4734
4735
4736
4737
4738

BEQ

SEQ 0097

MOV

017136
017140

017156
017160
017164
017166
017166
017174
017176
017176

(R2)R2, CKDCNT
503014
CKDCNT

PRINTB

017136
017140
005275
000003

017134

017134
017134

1578
cHe
BLE
INC
ST

4713 017134
4714

4716
4717
4718
4719
4720
4721
4722
4723
4724
472S
4726
4727
4728
4729
4730
4731

Page 26 41

GLOBAL

s REPEAT

OROPED

sCLR UNIT DROPPED FLAG

sREPEAT UNTIL THE NEXT DEVICE IS FOUND.

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

4754 017214

MACRO VOS.03

062705

4755 017220
4756 017226

026527
001772

4758 017236
4759
4760

000207

4757 017230

016537

Friday 22 May 87 08:12

000002

002604

177774

002604

002074

4764
4765

H
:

4762
4763

:
:

ADD

02 ,RS
DEVTBL (RS), #NINUSE
503124

RTS

003366

DROPU:: INC

4769 017250
4770 017254

042704
016503

000377
002544

MOV

4771 017260
4772 017262

4773 017262
4774 017266

4775 017270
:;;g 017274

4778
4779
4780
4781

017300
017302
017302
017310

4782 017314
4783
4784

017320
017324

4785 017326
017326
017330
017332
017334

4786
4787 017336

4788 017340

:;gg 017340

013704

005002

020227
001405

012723
062702

002370

012775
004737

004737

020427
00100S

002340
012740

012774

000402

:;gz 017356

004737

015626

017362

4799 017364

4800 017370
:ggé 017372
4803 017376
4804 017376

4805 017404

o 1,(R3).
92,R2

503134

MOV
JSR

OGSCPK BTSDB(RS)
PC.W

PC, HOVHSG

R4 , 6X3 . RNY
503154

16 ,RNYM, STAERM

105237

503154
:
503164
:

003522

104424

005765

001402
005365
013737

013700

003326

DROPUA:

003326
003534

003534

017450

503204:

LOG

;WHILE

:= R2

;IN%T

THERE

;CLR COUNTER.

ARE MORE LOCATIONS:

THE MSG PACKET WITH ALL 1°'S
:UPDATE COUNTER.

sINITIATE A GET STATUS COMMAND.
sWAIT

A WHILE FOR

:MOVE MSG PACKET

+IF

SSR=1

TO COMMON AREA.

WE HAVE A CAPSTAN RUNAWAY

;REPORT

CAPSTAN RUNAWAY

THEN:

WITH TACH CNT.
TRAP
C$ERDF

;ELSE IF NOT A RUNNAWAY:

.WORD
.WORD
.WORD

16
RNYM
STAERM

503164

JSR

PC,.PRXST

sPRINT

75718
BEQ

RECLOG
503174

;IF THE RECORD HAS BEEN LOGGED THEN:

JSR

PC.LOG

1LOG DATA BYTES

INCB

50317%:

SEQUENCE.

3AD§OOF THIS UNIT'S MSG PACKET.

sLET R2

004753
006120

003465

4797 017362
4798 017362

503144

ERRDF

104455
000020

9377.R4

MSGPKA(RS),R3

TEST

; INCREMENT THE FATAL ERROR COUNT.
;GET UDIAG ERROR CODE +ROM XSTATS.

MSGPKT«MS, XS3,R4

R2, MMSGCNT

cHP
BNE

PRXST,

FTLCNT(RS)

cMe

JSR

157400

105737
001404

017352

002514

503144
:

MOVMSG,

BEQ

;SET UNIT o IN "HEADER" FOR ERROR REPORT
;RETURN,

A DEVICE FROM THE

CLR
R2
;LET R2
;WHILE R2 NE &MSGCNT DO

MOV
ADO

000770

4792 017344
4793 017350
4794

503134:

177777
000002

017452

017344

BIC

000020

004737

4791

MOV

TO DROP

REGISTERS:
CALLS:

005265

:UPDATE DEVICE TABL_E POINTER.
sUNTIL DEVTBL(RS) NE ONINUSE

DEVTBL(RS),L$LUN

SUBROUTINE
INPUTS:
OUTPUTS:

4766
4767 017240

4768 017244

SEQ 0098

cMe
8EQ

MOV

4761

Page 26 42

DROPED

DORPT

TST

BEQ
oEC
MOV

MOV

EXTENDED STATUS

REGISTERS.

$1SET UNIT DROPPED FLAG.

- RD/WR ERRORS.

:PRINT PERFORMANCE REPOR¥R b
PASCNT(RS)

503204
PASCNT(RS)
TSNP, DROPN

TSNP, RO

s IF PASCNT(RS) NE 00 THEN

iLET PASCNT(RS)

:= PASCNT(RS)

;SAVE # OF UNIT TO BE DROPPED.
;RO=LOGICAL DEVICE NUMBER

C$DRPT

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

4819

4820
4821
4822

017442
017442

017446

4823
4524 017450

4825
4826
4827
4828
4829
4830
483)
4832 017452

017452
017456
017462
017464
017466

4833 017472

017472
017476

017502
017506
017512
017516
017522
017526
017530
017532
4834 017536
4835

026527
001410
105737
001005
000240
000240
000240
105237

4843
4845
4846

oot

26 43

SEQ 0099

;DROP

THE UNIT

TRAP

002604

177774

ce
BEQ
7578
BNE
NOP
NOP

002213

DEVTBL (RS), SNINUSE
503214
IREC
503224

NOP
INCB

003526

STAFLG

sIF

UNIT

;IF

;SET

NOT

DROPPED

RECOVERY

START

FLAG

IS ENABLED

ENABLE

THEN:

REWINO,

503224
:

105237
000207

003522

000000

S03214:
DRORTN:
DROPN:

012746
012746
010600

005507
000001

PRXST:
:

104415

062706
000207

DROPED

;SET UNIT

;RETURN,

.WORD

;# OF

DROPPED FLAG.

UNIT

T0O BE DROPPED

SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS.
INPUTS:

OUTPUTS:
REGISTERS:

CALLES:

PRINTX

OGETSTM

MOV
MOV
MOV

104415
062706
013746
013746
013746
013746
013746
012746
012746

INCB

RTS

PRINTX

OSTAERS,MSGPKT+MS. XSO ,MSGPKT «MS

MOV
MOV
MOV
MOV
MOV
MCV
MOV
MOV

002364
002362
006753
000006
000016

TRAP
ADD

RTS PC

TO HWALT

REGISTERS:

AFTER EACH COMMAND.

R3,

HAE

CALLS:

105737
001430
105737

001023

002206

003531

CKHAE
::

1578

HAE
; IFB

BEQ

503234

7578

BNE

MISCFG

503244

MANUAL

;IFB

THEN

MISCFG €Q

:IF

60
s IS

OGETSTM,
#1, (SP)
SP,RO

(SP)

TRAP
C4PNTX
ADD
04,5P
XS1,MSGPKTMS . XS2 ,MSGPKT -MS . XS3 ,MSGPKT .MS

002372
002370

SUBROUTINE
INPUTS:
OUTPUTS:

017540

CsDODU

;EXEC BGNDU ENODU CODE IF 1DU = O

4837
4838
4839
484]
4842

08:12

DODV

10445]

4817
4818 017442

®e

017430

4814 0.74%2
4815 017434
4816 017436

22 Mey

017412
017420
017422
017426

Fr 'day

4807
4808
4809
4810
4811
4812
4813

VOS.03

®e

4806 017410
017410

MACRO

THEN
MANUAL

HALT

FLAG

SET:

;
INTERVENTION ALLOWED?

MSGPKT.MS
. XS4, -(SP)
MSGPKT.MS
. XS3, (SP)
MSGPKT«MS
. XS2,-(SP)
MSGPKT.MS
. XS1,-(SP)
MSGPKT-MS
. XS0, -(SP)
OSTAERS, -(SP)
96, (SP)
SP,RO
C4PNTX
016,5P

GLOBAL

AREAS

GLOBAL

SUBROUTINES SECTION

017554

4847 017556

4848
4849
4850
4851
4852
4853

017556
017560
017564

017570
017574

017600
017604
017604
017606
017610
017612
017614
017616
017620
4854 017620

4855
4856
4857
4858
4859
4860
4861
4862
4863
48¢4
4865
4867
4868
4869

017620
017622
017622

MACRO VOS.03

Friday 22 May 87 08:12

SEQ@ 0100

104450

103023

013704
004737

112337
112337
111337

BNCOMPLETE CKHRTN

MOV

003420
011176
004306
004307
004310

MOVE

MOV
MOVE

000404
003436
000130
004306
000001

000402

503244
:

003531

4881

(R3). HALLTM.]
(R3),HALTH.2

GMANIL

;LET

HALTM, TIMEL>1,1,YES

;MOVE

CMD

CMD ASCII.

ASCII

HALTM.]1 :B8= (R3).
; INTO MESSAGE.
sHALT

CKHRTN

; COMMAND WORD.

WAIT

FOR

0€PR¢;22

INP uT.

.WORD
.WORD
.WORD

B8R

503254

CLRB

MISCFG

RTS
.EVEN

;LET MISCFG

:8=

C $GMAN
100004

TIMEL
T$CODE
HAL TM

503254
:
S50323%:
CKHRTN:

000207

017630

;RETURN

ENDMOD

LTITLE MISCELLANEQUS SECTIONS
.SBTTL
REPORT CODING SECTION

; THE REPORT CODING SECTION CONTAINS THE

4874

4882
4883
4884

sFETCH ADR OF

(R3).,HALTM

BCC

100004
:
100004:

4875
4876

4879
4880

JSR PC,GCMDA

.= CMOWRD

C$MANI

TRAP

NOT.

. WORD

4870
4871
4872
4873

4877
4878

;LET R4

B8R

017626

017626
017626

;B8R

CMOWRD , R4

104443

105037

Page 26 44

“PRINTS"

CALLS

THAT

GENERATE

STATISTICAL

REPORTS.

017630
017630
017630
017634
017640
017640
017646
017650
017650
017654
017660
017664
017670

017674
017676

017700
4885 017704

010537

003452
017142

026527
001562

002604

016546
016546
016546
012746
012746
010600
104416
062706

003376
003326

004737

L$RPT::

177777

503264:

BGNRPT
MOV
RS ,RSSAVE
JSR
PC,FIRSTU
;WHILE DEVTBL(RS) NE

cHP

BEQ

PRINTS

#END DO

DEVTBL(RS),
#END
503274

1 SAVE CURRENT DEVICE POINTER.
sFIND THE FIRST UNIT.
;WHILE THERE ARE MORE DEVICES:

PRPT1A,DEVTBL(RS),PASCNT(RS),RECCNT(RS)

MO
v

MOV
MOV
MOV

PRINTS

MCV
MLV
TRAP
ADOD

RECCNT(RS), J. (SP)
PASCNT(RS), ), (SP)
DEVTBL(RS), ), (SP)
ORPT1A, ( SP)

04, -(SP)

SP,RO

C4PNTS
012,5P

@RPT18,WRBC+30(RS),WRBC+-20(RS5),WRBC-10(RS),WRBC( RS)

MISCELLANEOUS SECTIONS
REPORT

Fridey 22 May

08:12

Page

26 45

SEQ@ 0101

CODING SECTION
017704
017710

017714

017720
017724

017730
017734
017736
017740

4886

MACRO VOS.03

017744

017750
017754
017760
017764

017770
017774
017776

020000
020004
020004
020010
020014
020020
020024
020030
020034
020036
020040
4888 020044
020044
020050
4887

020054

4889

4890

4891
4892 020142
4893

020146
4895 020146
020146
020152
020156
020162

016546
016546
016546
016546
012746
012746
010600
104416
062706

002626
002636
002646
002656
020547
000005

016546
016546
016546
016546
012746
012746
010600
104416
062706

002666
002676
002706
002716
020620
000005

016546
016546
016546
016546
012746
012746
010600
104416
062706

002726
002736
002746
002756
020671
000005

016546
016546
016546
012746
012746
010600
104416
062706

003026
003006
002766
020775
000004

000014

PRINTS

000014

PRINTS

000014

000012

003036
003016
002776
021046
000004

PRINTS

PRPT1F ,WRREC(RS) ,RRREC(RS),RFREC(RS)

PRINTS

ORPT1G,WRUNR(RS)
,RRUNR(RS ) ,RFUNR(RS)

CSPNTS

000012
002210

1578

BEQ

020224

S0330¢4:
003346
003366
003356
003336

ADO
0l14,5P
OQPTID.RFBCoSO(RS).RFBCO?O(RS).RFBC~10(R33°RFBC( RS)
RFBC(RS),
RFBC-10(R

012,5P

;IFB BADTSW NE 60 THEN
JSR PC,BTRPT

PRINTS

:GO PRINT

BAD TAPE SPOTS WHEN

ENABLED

ORPTII.SCCNT(RS).HRDCNT(RS).FTLCNT(RS).VEESNT(RS )
VFYCNT(R
FTLCNT(R
MOV
HROCNT(R
MOV

MOV

SCCNT(RS

MISCELLANEOUS SECTIONS

REPORT

MACRO VOS.03

Fridey 22-Mey-87 08:12

Pege 26-46

SEQ 0102

CODING SECTION
020166
020172
020176
020200
020202
020206

012746
012746
010600
104416
062706
004737

020212
020214
020214
020220
020220
020222

000612
013705

021243
000005

MOV
MOV
MOV

SP,.RO

ADD

014,5P

PRPTLII,

05,

JSR

503274
:

003452

PC NEXTU

503264

MOV

RSSAVE RS

EXIT

000167
001130

sFIND THE NEXT UNIT.

;RESTORE CURKENT

RPT

(SP)

C$PNTS

TRAP

000014
017210

(SP)

DEVICE POINTER.

. WORD
. WORD

o
NN
L10010 2-.

SUBR TO PRINT BAD TAPES SPOTS DURING THE REPORT PRINTS
WRITE RETRIES: CUMULATIVE COUNT
BAD TAPE SPOTS: COUNT PER TAPE PASS ONLY, NOT CUMULATIVE,

COUNT OF RECOVERABLE WRITE ERRORS EXCLUDES BAD TAPE SPOTS.

4909
4910
4911
4912

020224
020224
020230
020234
020240
020242
020244
020250
020256
020262
020264

BTRPT::

003316
021117

PRINTS

ORPTIE,WRTYCT(RS)

;PRINT GLOBAL

000002
000006
002616
163230

WRITE RETRY COUNT
MOV
MOV

MOV

003512

MOV
:g;

BTADDR(RS),BTPT
ggvpv,n3

PRINTS

@RPT1J.R3

BAD

TAPE

4913
4914
4915

4916

4917
4918
4919
4920

4921
4922
4923
4924
4925

000024
012703

R3,020.

000024

MOV

920. ,R3

005744

;PRINT

503314

BLOS
503324

012746
012746
010600

157

BEQ

RECORD

¢ IF

BAD

;IF R3S HI 020. THEN

S0%32%

PRINTS

MOV
MOV
MOV
MOV

R3,-(SP)
oRPT1J, (SP)
02, (SP)
SP.RO

;20 BAD SPOTS IS

OCRLFSP

TRAP
C$PNTS
ADD
06, SP
SPOTS DETECTED

THE LIMIT

MOV

OCRLFSP, -(SP)

TRAP

C4PNTS

MOV
MOV

000004
003512
000002

MOV
ADD

S0333$:

CLR

BTPT R4
02,R4

;LET

;REPEAT

PRINTS

BTPT

{R2
SRPT1K, (R4)

;

ADD
sFETCH A BAD SPOT 1D

@2
=

;PRINT

PRINT
A

BAD

06, 5P
COUNTER

;

000001

021234
000002

SP RO
C$PNTS

SPOTS

021147
000002
000006

02,-(SP)

MOV
TRAP

ADD
;BTPT IS BOTH THE BAD TAPE SPOT
{AND THE LOGGING INDEX
;PRINT

WRTYCT(RS), -(SP)
ORPTIE, -(SP)

COUNT
SPOT

PER LINE:

01, (SP)
SP.RO
04, 5P

10 MAX

MOV
MOV
MOV

(R4),-(SP)
ORPTIK, (SP)
02.-(SP)

MISCELLANEOQUS SECTIONS
REPORT

MACRO V0S.03

Fridey 22 Mey-87 08:12

Page 26-47

020370

020372
020374

4926 020400
4927 020402
4928 020406
4929 020412

4930 020414
020414

020420
020424
020426
020430
4931 020434
:ggg 020440
4334 020444
4935 020444

:ggg 020446
4938 020450
4939 020450

010600

104416
062706

005202
062704
020227
001014

4944 020547

4945 020620

4946 020671

000012

000004
000012
000012
503344:

005741

;LET RS
sLET R2

;

TO NEXT

010.
010.

LINE PAST
MOV

cMP

R2,R3

503334

sUNTIL

R2 EQ R3

;LIMIT:

6 OF

PRINTS

#CRLF

OCRLF ,-(SP)

MOV

SP,RO

.NLIST
_ASCIZ

BEX
/#NeNsAUNIT sD1xS3sAPASS:s0SsS38ARECORD
: sDSSN/

045

101

102

RPT1C:

.ASCIZ

/s#ABYTES READ REV sD3wA ,wZ3wA,uZ3sA,
8Z3uN/

045

101

102
102

045

045
045
045

101

104
101
123

RPT1B:

RPT10:
RPT1F:

.ASCIZ

/#AUNRECOVERABLE ERRORS #DS#S52#05#528058N/

.ASCIZ

065
123
063

RPTIK:
RPT1I:

_ASCIZ
_ASCII
.ASCIZ

.ASCIZ
.ASCIZ

.LIST

.EVEN

4957

4958 021354

104425

L10010:

01,-(SP)

C4PNTS
04 ,5P

#D3sA, #Z3%A 8Z3%A $Z38N/

/sABYTES READ FWD sD3sA,8Z3sA
8Z38A, SZ3%N/

.ASCIZ
_ASCIZ

RPT1G:

4956

/w#ABYTES WRITTEN

.ASCII

125

RPT1E:
RPT1J:

SPQOTS

MOV

RPT1A:

101

BAD

045

10 PRINTS
PCRLFSP,-(SP)

MOV
01,-(SP)
MOV
SP,RO
TRAP
C$PNTS
ADD
o4,5P
sADUUST BAD SPOT COUNT
sADJUST PRINT COUNT

116

127
045

/#S238AURTES4SARDRESASARDF
SN/
/#ARECOVERABLE ERRORS
#DS5#S2#DS#S2%DSeN/

/s#AWRITE RETRIESHSB8sDSEN/
/wNsD2#A BAD SPOTS THIS TAPE PASS PRECEDING RECORD @:/

/wDS#S1l/
*"wASPEC CONDsS3sAHARDSSIsAFATAL%S3SACOMPARESN"
/#S3%DS#S3INDSESI8D5HSINDSHNEN/

BEX

ENDRPT

TRAP

4960

.SBTTL

4962

pee

:&;

s THE SUPERVISOR USES THE TBL

CS$RPTY

LOAD DEVICE PROTECTION TABLE

;TABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV
-

4967 021356

:= R3
:= R2

THEN

PRINTS

C$PNTS
06 ,5P

;

RTS

101
116

4963

;COUNT
NEXT

045

000207

045
045

4961

#10.

#1
02

TRAP
ADOD

4950 021117
4951 021147

4959 021354

«
-

000004

062
122

021354

R2 EQ

R2
R4

104416
062706

123
101

4955

:=
:=

MOV

045
045

4952 021234
4953 021243
4954 021317

R2
R4

SP,RO

TRAP
ADO

000001

49547 02074}
4948 020775

4949 021046

#10. ,R3
#10. ,R2

BNE
503314:

LET
;LET

R2,010.
sIF
503344
PRINTS OCRLFSP

SuB
SuB

001343

012745

R2
92 ,R4

CMP
BNE

020203

010600

49542
4943 020472

INC
ADD

000002

104416
062706
162703
162702

0106C0

020460

49541

000006

005744
000001

012746

020462
020464
4940 020470

MOV

012746
012746

020450
020454

4966

SEQ 0103

CODING SECTION

BGNPROT

TO WARN THE OPERATOR WHEN HE TRIES TO TEST

THE LOAD DEV

MISCELLANEQUS SECTIONS

MACRO V05.03

Fridey 22-May-87 08:12

Page 26 48

SEQ 0104

LOAD DEVICE PROTECTION TABLE

aoes 02135

L$PROT:
:

4969 021356

000000

LLea9TM1 021362

177777

4970 021360

.WORD 0

177777

-WORD -1
.WORD

4972 021364

-1

;P TBL

4974

.SBTTL

4977

foo
; THE INITIALIZE SECTION CONTAINS

4978
4979
4980

i AT
$on

4981 021364
acsn 021364

021374
021376

021400
021402
4986 021404
021404
021410
021412
021416
021420

021424
021426

021432

4987 021434

4993
4994
4995
4996
4997

021444
021450
021452
021452
021456

032727
001421

000003

002330

012727
000000
013727
000000
005367

001375
005367

001367

BIT
BEQ
ERRSF

OFFSET OF

DRIVE

1 = NOT A MASS BUS DE

NONE,

THREE DRIVES PER CONTRO

THE CODING THAT

IS PERFORMED

EACH PASS.

PBITO!'BIT1,6CMOPKT
503354
1, CMDPKM

;IF

CMD PACKET
;PRINT

DELAY 200.

000310

IS NOT

ON MODULO 4 BOUNDRY:

ERROR MSG,

1GO TO SUPERVISOR,

002116

177772

TRAP
.WORD

C$ERSF
|

BNE
DEC

.-4
222(PC)

.WORD
CMDOPKM
.WORD
O
WAIT 2 SECONDS.
MoV
0200. ,(PC)e
.MORD
O
MOV
L4DLY,(PC).
.WORD
O
DEC
-6(PC)

177756

000753

BNE

INIT10

;

1STB
BEQ

CLRFLG
S03364

:IF

.-20

S0335%:
105737
001413

002204

105037
005002

002204

020227
001405

000550

5001 021470

000770

S03374:

002626
000002
503404:

5003
gggg 021472

5010 021506

TSDB

BGNINIT

004346
000000

005062
062702

5006 021472
5007 021476
5008 021500
5009

INIT10:

104454
000001

4998 021460
4999 021464
5002 021472

INITIALIZE SECTION

THE BEGINNING OF

L$INIT::

4389 021436
4991 021436
4992 021442

OFFSET

ENDPROT

4975
4976

4983 021364
4984 021372
4985 021374

TBL

P TBL OFFSET OF MASS BUS UNIT &:

CLRB
CLRFLG
CLR
R2
JLET R2
JWMILE R2 NE_GCNTLEN DO
C
R2, SCNTLEN
BEQ
503404

CLR

;INIT

COUNTERS FLAG SET:

CLR FLAG.

CLR
ADD

WRBC(R2)
92,R2

503374

RRANV
503414
PRANBC , RANB

+IF RESET RANDOM VARIABLE FLAG IS SET

ORANSC , RANS

sRESET RANDOM SAVE LOCATION.

iLET R2

;CLR ALL
R2 « @2

STATISTICAL COUNTERS.

503364 :
105737
001406
012737

002205

153624

003432

1STB
BEQ
MOV

012737

032561

003434

MOV

;RESET RANDOM BASE 6.

THEN:

MISCELLANEOUS SECTIONS

MACRO VO5.03

INITIALIZE SECTION

5011
5012 021514
5013 021514

021514
021520
021522
021522
021524
021530
021534
021534

Friday

22 Mey

50341
:
012700

104447

000040

003526
000006

012765

177774 002604

005705
001371
022737
001425
012746

S03424:

000002

012727
000000
013727
000000
005367
001375
005367
001367

104444

000001

021676

105237

021702
021702
021704
021710
021712
021716
021720

10442]1
010037
005003
105737
001020

LREAD

LET

{LET RS

JUNTIL

50342%
31.L $UNIT

COMMAND EVENT

;SET

RS EQ

START

STARTING.

COMMAND FLAG.

S0344

INIT1S

ITELL

THE

ALLOWED

MAN

MOV
MOV
MOV

JWAIT

s ABORT

MOV

503434

;REPEAT
$UB
02 .RS
(LET RS
ROV
RS . DEVTBL(RS)
157
BNE

003526
003557

INIT16:

JLET RS

ASR

INIT1S:

LSWNIT.RS

DEVIBL(RS)

RS
503434

JONTIL

LSUNIT

SHIFT

ADD

SP RO
C$PNTF
o4,5P

MOV
WORD

825, (PC)O

WORD
DEC
BNE
DEC
BNE

O
~6(PC)
e
122(PC)
<50

TRAP

OAUDRUN,
81, (SP)

TRAP

FIOV

002604

003527

BCC

READEF O€F .PWR

L$DLY,(PC)-

C$DCLN

JHAS THERE BE A POWER FAILURE?
MOV
TRAP

OEF .PUR, RO

CSREFG

BNCOMPLETE INIT16

;BRANCH IF NOT.

INCB
INCB

STAFLG
PWRFLG

IF
'IF

RFLAGS

OPFLAG

;READ AND STORE FLAGS SET BY OPERATOR

CLR

Tsis

pimrLs
READEF

SO
30

SET
SET

BCC
INIT16
THE START FLAG.
THE POWER FAIL FLAG.
TRAP

JLET R3

OEF .NEW

(SP)

;STORE ALL UNIT
:= RS - 92
;NUMBERS IN DEVTBL.
{LET DEVTBL(RS) := RS SHIFT
1

RS EQ

;0K

BAUDRUN

DOCLN

003536

C$REFG

iBY STORING NOT IN USE IN EACH LOCATION.

JONLY ONE UNIT

50348:

0EF . START RO

TRAP

,INITIATE UN1T NUMBER TABLE

177756

000034

FLAG.

MOV

;BRANCH IF NOT

ONINUSE , DEVTBL (RS)

START

177772

000002
002604

103004
105237

#2.RS

DELAY

SEQ 0105

INIT1S

sUB

BEQ

26 49

OEF.START

STAFLG
96.RS_

fov

oge

002116

162705

104447

Pege

INCB
MOV
;REPEAT

PRINTF

000025

002012

012700

READEF

BNE
cHP

002012

005146
000001

013705
006305
010565
006265
005705
001370

87 08:12

000004

5025

BNCOMPLE TE

103057
105237
012705

162705

C$RFLA

MOV
RO.OPFLAG
CLEAR EVENT FLAG

{IF POWER FAIL HAS NOT OCCURRED THEN:
s UPDATE PASS COUNT WHEN

MISCELLANEQUS SECTIONS

MACRO VO0S5.03

Ffriday

22 May

08:12

Page

26-50

SEQ 0106

INITIALIZE SECTION

5046
5047
5048
5049
5050
5051
5052
505%
5054
5055
5056
5057
5058

021720
021724
021726
021730
021734
021736
021736
021742
021744
021746

012700
104447
103014
105737
001010

000035

012700
104447

000037

021750
021752
021752

000401

BCC
TST8B
BNE

003526

103402
005103

BCS

S03474%:

005203

021754
021754
021756
021756

000401

S03464
:

005203

021760

503514
:

021760

503454:

021760
021760
021764
021766
021766
021774
021776

5034414
:

004737
005002

017142

026527

002604

002514
002524
000002
002534

011037
012746
016546
016546
012746

5089
5090
5091

READEF

#€EF .RES

;NOR

503474

COoM

503504

INC

50351

INC

177777

104437
062706

003532
003534

000340
002554
002534
000003

002524

$03524:

;:IFCOND CC

;SET

1ST PASS

MOV

OEF .RES,RO

TRAP

C$REFG

;RESTARTED

;DO IT
IF

NEW PASS AND

;SET 15T PASS IF
; STARTING

NEW PASS AND

;RESTARTING

;00 NOT UPDATE IT ON CONTINUE

;OR ON POWER FAIL
JSR
PC,FIRSTU
;INIT
CLR
R2
;LET R2 := 00
;WHILE DEVTBL(RS) NE SEND DO
cMP
DEVTBL
(RS ), 6END
BEQ
503534
INC
R2
;LET R2 := R2 + 01
:gg
gg,ao
;LET RO := RS SHIFT

DEVICE COUNTER.

RO,RO

BCC
MOV
MOV
ADD
MOV

503544
;IFCOND CS THEN
(RO),TSDB(RS)
;SAVE TSDB ADDRESS.
(RO).,TSSR(RS)
;SAVE TSSR ADDRESS.
02, TSSR(RS)
(RO)+, TSVCT(RS)
;SAVE INTERRUPT VECTOR ADDRESS.

MOV

(RO),

MOV

SETVEC

;GET

DEVICE POINTER,
;INIT

GPHARD

(RO), TSUNT(RS)

HARDWARE

TABLE

FROM SUPER.
TRAP
C$GPHRD

;SAVE NUMBER OF DRIVE

TSNP

SAVE FOR PRINT

TsVCH(RS),TSSINT(RS),oINtRRI

QUT'S

MOV
MOV
MOV
MOV

SINTPRI, -(SP)
TSSINT(RS), (SP)
TSVCT(RS). "(SP)
03, -(SP)

TRAP

C$SVEC

ADD

CLR

157

INC

PASCNT(RS)

BGE

503554

503564

010,5P

;SET UP INTERUPT PROCESSING CONDITIONS.

INTFLG(RS)

TST

BEQ
003326

THEN

;LET R3 := COMP R3

000010

003472

OEF .NEW,RO
C$REFG

:SUPERVISOR IS
;AND DIAG WAS NEITHER STARTED

50350% :

022000

5085
5086

S0345$
STAFLG
503464

MOV
TRAP
IN NEW PASS

;CLEAR INTERRUPT FLAGS.

;ACTUAL
;IF

R3 LT

PASSCOUNT

UPDATE PER R3

THEN

;LET PASCNT(RS)

PASCNT(RS)

MISCELLANEOUS SECTIONS

MACRO VOS.03

Friday 22-Mey-87 08:12

Page

26-S1

SEQ 0107

INITIALIZE SECTION

5092
5093
5094
5095
5096
S097
5098
5099
5100
5101
5102
5103

022110
022112
022112

000403
012765

000001

003326

503564
:

022120

S0357¢:

022120

S035Ss:

022120
022120
022124

005065
004737

022130
022132

000716

022132
022134
022136
022136
022142
022146
022150
022152
S111 022156
022156
022162
022164
022170
022172
022176
022200
022204
022206
022206
022210
022210

005702
001026

S03544:

003376
017210

50353¢:

022236

022242
022242

022250
022252
022256
022256
022262
022266

503574

MOV

#1,PASCNT(RS)

CLR
JSR

RECCNT(RS)
PC, NEXTU

503524

TS7

BNE

012746
012746
010600
104417
062706

005114
000001

012727
000000
013727
000000
005367
001375
005367
001367

000310

PRINTF

503604

@#AUDRPM

;LET PASCNT(RS)

;CLEAR RECORD COWNT
;00 IT FOR ALL DEVICES.

; IF THERE ARE NO UNITS:

:PRINT ALL UNITS DROPPED,

OAUDRPH

01, (SP)

(5P)

SP RO

C$PNTF

000004

DELAY 200.

;GO TO SUPERVISOR,

04, 5P

WAIT

8200..(PC)~

002116

5$DLY.(PC)~

177772

-6(PC)
.

177756

+GO TO SUPERVISOR,

BREAK

104422

DOCLN

104444

;00 CLEAN CODE

BNE

22(PC)
. 20

TRAP

C4BRK

TRAP

C$DCLN

MOV

OPRIOQ,RO
C$SPRI

CHECK TTY.

ABORT PASS.

:
503604

022212

022212
022212
022216
022220
20 022224
022226
022234

012700

000000

105737

002213

001033
032737
001027
004737

026527
001421

000020

SETPRI

017142
002604

105037

003530

012746
012746
012746

000340
023770
000004

177777

503624
:

;LOWER CPU PRIORITY T0 O

TRAP

7S78

IREC

BIT

O0ADR
, OPFLAG

BNE

003536

#PRIOO

BNE
JSR

14
PC,FIRSTU

cHP
BEQ
CLRB
SETVEC

DEVTBL(RS),
6END
14
TRAPD4
o4,0TRAP4,0INTPRI

1 IF ERROR RECOVERY IS ENABLED

sAND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST
sWHILE THERE ARt MORE DEVICES:
sCLEAR TRAP FLAG
+SET VECTOR 4,PRIORTY 86"0v
MOV
MOV

OINTPRI, -(SP)
#TRAP4, (SP)
04, -(SP)

MISCELLANEOUS SECTIONS

MACRO V0S5.03

Fridey 22-Mey 87 08:12

Page 26 S2

SEQ 0108

INITIALIZE SECTION
022272
02276
022300

012746
104437
062706

5130 022304
S131 022312
5132 022314

012737
000404
000137

000001

005237

003436

023727
003134
012775

003436

000025

002340

002514

5134
5135
5136
5137
5138
5139
5140

02232y
022320
022324
022324
022332
022334
022342
022342
022350
022356
022362

022364
022370
5141 022372
022372
022376

5142
5143
5144
5145

022400
022404
022406
022412

000003
000010

000025

012700
104436

000004

503664
:
503654
:

01, TIMEL
S0365¢
503634

INC

TIMEL

ggfi

I}HEI.OZS

MOV
DELAY

#GSCPK ,aTSDB(RS)
25

;AND GET UNITS STATUS

;WAIT

MOV

CLRVEC
1578
BEQ
INC

003366

006200

105037

003530

012746
012746
012746
012746
104437
062706
005775

000340
023770
000004
000003

022512
022516

012727
000000

000025

PRINTF

002524
005543
000002

o4
TRAPDA
24
FTLCNT(RS)

ONODEV,TSSR(RS)

;IFB

TRAPD4 NE
ERROR

017450

MOV
MOV

ASR

104451

:= FTLCNT(RS)

24:

CLRB

SETVEC

SP.RO
C$PNTF

ADD

DELAY

@TSSR(RS)

96, SP

TRAP

Cs000V

TRAP

C$OCLN

MOV

SINTPRI, (SP)

MOV
MOV
TRAP
ADD

04, -(SP)
03, (SP)

;CLEAR TRAP FLAG

;SET VECTOR 4,PRIORTY @6

MOV

TST

-(SP)

ONODEV
, - (SP)
92.-(SP)

EXEC BGNDU-ENDDU COOE IF IDU = O

;00 CLEAN EABORT
TRAPD4

MOV
TRAP

;OROP THE UNIT

04,0TRAP4,0INTPR]I

TSSR(RS),

DOCLN

104444

C¢CVEC

MOV

;SAVE ¢ OF UNIT TO BE DROPPED.
;RO=LOGICAL DEVICE NUMBER

o4 ,R0O

TRAP

DEVTBL
(RS ) ,DROPN
RS,RO

.-20

MOV

60 THEN

;LET FTLCNT(RS)

;PRINT

L$OLY,(PC).
O
-6(PC)
.-4
-22(PC)

BNE

;CLEAR VECTOR AT 4

MOV
MOV

9700V

000010
002524

MOV
.WORD
DEC
BNE
DEC

003530

5148 022446
5149 022450
022450
5150
5151 022452
022452
5152
S153 022454
5154 022460
022460
022464
022470
022474
022500
022502
%SS 022506

025,(PC)e.

WORD

177756

000006
002604

03, (SP)
C4$SVEC
#10,5P

;START 3.5 MINUTE COUNTER
;INCR TIMEL FROM o1 TO 625 8Y o1

177772

016546
012746
012746
010600
104417
062706

016537
010500

1%:

MOV
BR
JHP

002116

022412
022416
022422
022426
022430
022432

5146 022436
5147 022444

003436

023142

012727
000000
013727
000000
005367
001375
005367
001367

105737
001423
005265

MOV
TRAP
ADO

1CHECK FOR ADDRESS
sWAIT

.MORD

OTRAPA,

(SP)

C$SVEC

#10,5P

025,(PC)-

MISCELLANEOUS

SECTIONS

MACRO V0S.03

Fridey 22 Mey

87 08:12

Page 26 53

SEQ 0109

INITIALIZE SECTION
022520
022524
022526
022532
022534
022540

5157 022542
022542
022546

5158 022550
5159 022554

5161 022562

022600

013727
000000
005367
001375
005367
001367

002116

012700
104436
105737
001424
005265

000004

016546
012746
012746
010600
104417
062706
016537
010500
006200

177772

177756
CLRVEC

003530

1578

B8EQ
INC

003366

PRINTF

002524
005543
000002

002604

017450

MOV
ASR

DOOU

10445)

003127

3176
S177
5178
5179
5181

022724
022732
022734
022742

004737
010475

010026
002514

012727
000000
013727
000000
005367
001375
005367
001367
012775

000025

012727
000000
013727
000000
005367
001375

ONODEV, TSSR(RS)

;PRINT

DEVTBL(RS),DROPN

RS5,RO
RO
RO

TRAPD4 NE

JSR

PC ., SETDEF
R4 3TSOB(RS)

FTLCNT(RS)

ERROR

22(PC)
.-20
94 ,RO

C$CVEC
.

MOV

;SAVE ¢ OF UNIT TO BE DROPPED.
;RO=LOGICAL

DEVICE

;OROP THE UNIT

TRAP

000025
002116
177772
177756

000200

002524

000100

002524

0TS.SSR,@8TSSR(RS)
503704
#TS.0FL ,8TSSR(RS)
503714
503644

SP.RO
C4PNTF
06, 5P

C4000V
C40CLN

MOV

825.(PC)°

MOV

b&DLY.(PC)o

;SET UNIT NUMBER

177756
OGSCPK,aTSDB(RS)
25

-(SP)

TRAP

DEC

MOV
DELAY

TSSR(RS),

ONODEV , - ( SP)
92.-(SP)

EXEC BGNDULU ENDDU CODE IF IDU - 0

177772

002514

NUMBER

002116

002340

-4

MOV

;00 CLEAN EABORT
503674

-6(PC)

00 THEN

:LET FTLCNT(RS)

BGT

b‘DLY.(PC)o

TRAP

;IFB

34
FTLCNT(RS)

DELAY

;CLEAR VECTOR AT 4

TRAPD4

OOCLN

104444

5174 022666
5175 022674

MOV
. WORD
DEC
BNE
DEC
BNE

;AND GET UNITS STATUS
sWAIT

6(PC)

BNE
DEC
BNE

-4

MOV
.WORD
MOV
. WORD
DEC
BNE
DeEC
BNE

825.(PC)°

s IF #TS.SSR SETIN @TSSR(RS) THEN

22(PC)
20

étDLY.(PC)o

6(PC)
4

22(PC)
. 20

s IF OTS.OFL NOTSETIN @TSSR(RS) THEN
tEXIT COUNTER WHEN UNIT ON LINE

MISCELLANEOUS SECTIONS

MACRO VO0S5.03

Fridey 22-May

08:12

Page

26-54

SEQ 0110

INITIALIZE SECTION
1

5182 022746
S183 022746
022746
022752
022756

022762
022764
022766

5184
5185 022772

5187 022772
5188 022774
5189 022774
022774
023000

003534
005456

016546
012746

LINE EVERY

MOV
MOV

SEC

TSNP, (SP)
oOFLINM, (SP)
02, (sP)

v
TRAP

SP,RO
CS$PNTF

MOV

DEVTBL(RS) (SP)

TRAP

C$PNTF

06, SP

503734
PRINTF

MOV
MOV
MOV

000006

ADD

5197 023034
5198 023042

023727
003016

003440

023044

012727

000144

023060
023064
023066
023072

000000
013727
000000
005367
001375
005367
001367

023074
5201 023076

104422
000754

5203 023100
5204

000137

022320

012700

000004

003440

S0373%:

S037S%:
000013

S03744
.

MOV
BR

01,TIME2
503744

INC

TIME2

cHP
BGT
DELAY

TIME2,013
S03764
100.

;INCR TIME2 FROM 61

;WAIT

FOR UNIT

TO BE SET

177756
BREAK

S03764:
503674
:
503644
:

000025

;ALLOW TERMINAL

503754

JMP

503664

CLRVEC

cMP
BLE

012774
013512

TIMEL, 625
503774
JSR PC,MOVMSG
JSR PC.TCC1

503774
:
017210

MOV
LWORD

MOV
.MORD
DEC
BNE
DEC

177772

003436

TO 413 BY

ON-LINE

002116

5212 023132
004737

ONRDYM,DEVTBL(RS)

023740
000002

003440

104436
023727
003404
004737
004737

002604

005237

5214 023132

OFF

ADD

503704:

5195 023030

5207
5208
5209
5210

UNIT

MOV

000412

000001

023110
023112
023120
023122
023126

;PRINT

503724:

012737
000402

023104

GOFLINM, TSNP

000006

5192 023020
5193 023026

5206 023104

PRINTF

000002

012746
010600
104417
062706

023052

013746
012746
012746
010600
104417
062706

023004
023010
023012
023014

503714
:

JSR PC,NEXTU

INTERRUPT

;CLEAR VECTOR AT
;IF

BNE

TRAP

MOV

TRAP

OFF LINE FOR 3.5 MINUTES

ONRDYM, (SP)
02, (SP)
SP,RO
06, SP

$100.,(PC)O
L$DLY,(PC)O
-6\PC)

22(PC)
-20

C$BRK

04 RO
C$CVEC

1GET MESSAGE PACKET
;PRINT ERROR AND DROP OFF LINE UNIT
;REPEAT UNTIL ON LINE OR
;SET UP FOR NEXT UNIT

TIMED OUT.

MISCELLANEOUS SECTIONS

MACRO V0S5.03

Fridey

22 May-87

08:12

Page

SEQ 0111

INITIALIZE SECTION

5216 023136
S217
023142
023142
023142
023146
023150
023150
023152
023156
023164
023172
023200
023202
023202
023206
023212
023214
023216
023222
023222

000137

105737

001026

10443)
010037
013737
062737
027727
002011

012746

022242

503634
:
503614:

003527

1578

PURFLG

003406
003406
004000
160210

003410
003410
004000

PWRFLG

cHP

FOATAWT
. 6DATCNT

BGE

023250
000001

,DATARD

SDATCNT
. DATARD

S0401$

PRINTF

;SET

002214
003526
012724
003527

;WHEN NOT

oMEMOM

CLRB

CHGFLG

CLRB

PWRFLG

EXIT
106
105
105
040
117
115
114

MTMMEMOM:

ADDRESS

; WARN

OPERATOR

;AND ABORT PASS

PENDFLG,R3
PC,CLRERR

;LET

MOV
MOV
MOV
TRAP
ADD

OMEMOM,
- (SP)
01,-(SP)
SP,RO
C$PNTF
04,5P

TRAP

C$0OCLN

:CLR CHANGE CMD SEQ TBL FLAG.
:= OENOFLG
;CLEAR ALL FLAGS.
;:CLEAR THE POWER FAIL

INIT
/#AFREE MEMO TOO SMALL FOR RD WR BFRSEN/

S241

.ASCIZ

/%ARE-LOAD IN LARGER MEMOSN/

5242

.EVEN

124

C$MEM

RO,DATAWT

ENOUGH FREE MEMO AVAILABLE

.ASCII

040
101
040
122
104
122

TRAP

MOV

;:DIAG MUST BE RE LOADED IN A CPU WITH LARGER MEMO

MOV
JSR

104432

THEN

RD BFR

DOCLN

504004
:

;REQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS.

DATAWT

ADD

023224

000104
045
122
040
115

;IFB

MOV

000004

105037
012703
004737
105037

504004

MEMORY DATAWT

504014
:

023244
023244
023246
0c 3250
023253
023256
023261
023264
023267

503624

BNE

023224

023224
023230
023234
023240

JMP

117
122

FLAG.
TRAP

LWORD

C$EXIT

L10012

MISCELLANEOUS SECTIONS

MACRO V0S5.03

Fridey 22 Mey 87 08:12

Page 26 S6

SEQ 0112

INITIALIZE SECTION
S243
§244 023352
023352
s2e5 023352

L10012:

10441}

ENDINIT
TRAP

5246
S247
S248

.SBTTL

5250
§251
5252
5253
5254 023354

;SECTION CHEKS FOR A VALID INTERFACE LOCATION.
:FROM INTERFACE
;-

;SECTION EXECUTED AFTER THE INIT CODE WHEN “ADR” FLAG IS SET BY OPERATOR

s255 023354

1 $AUTO::

023354
023360
023360
023366
023370
023374
023374
023400

004737

017142

026527
001525
105037

002604

012746
012746

000340
023770

023410
023414
023416
5262 023422

012746
104437
062706
017502

000003

023426
023432
023434
023440
023442
023446
023446
023452
023456
023462
023464
023466
023472
023500

012700
104436
105737
001423
005265

000004

016546
012746
012746
010600
104417
062706
016537
010500
006200

002514
023644
000002

023404

5263 023426
S264
5265
5266
§267

5268
5269
§270 023502
§271 023504
5272 023504
5273
5274
5275
§276
§277
5278
5279
5280
S281

AUTO DROP SECTION

foo

5249

5256
§257
5258
5259
$260
5261

C$INIT

023506
023510
023510
023516
023522
023530
023532
023540
023542

012746

177777

S0402%:

003530

NO RESPONSE

BGNAUTO

JSR PC,FIRSTU
;WHILE DEVIBL(RS) NE SEND DO
cHe
DEVTBL
(RS ), 8END
BEQ
S0403$
CLR8
TRAPDA
{LET TRAPD4
SETVEC ¢4,0TRAP4,0INTPRI

;FIND FIRST UNIT
:
:B= 60
:SET VECTOR &

000010
002514

MOV
aTSDB(RS),R2
CLRVEC o4

003530

1578
BEQ
INC

003366

000006
002604

017450

002340
012740
000200

002524

000100

002524

003366

MOV
MOV

SPINTPRI, (SP)
oTRAPSE,
(SP)

MOV
TRAP
ADD

03, (SP)
C$SVEC
£10,5P

MOV
TRAP

64 ,RO
C$CVEC

MOV

000452

032775
001416
005265

000004

10445}

012775
004737
032775
001423

DROPS UNIT

002514

S0404$:

TRAPDA
;IFB TRAPD4 NE 60 THEN
50404$
FTLCNT(RS)
;LET FTLCNT(RS) :=
PRINTF SAUTODM, TSDB(RS)
;PRINT ERROR

MOV
MOV
ASR
DODU

DEVTBL(RS ), DROPN
RS,RO
RO
RO
;DROP THE UNIT:

S040S+$

MOV

0GSCPK , aTSDB(RS)
JSR PC,WSSR
8IT
#TS.SSR,3TSSR(RS)
BEQ
50406$
817
BEQ
INC

;ADDRESS 7505 INTERFACE
;CLEAR VECTOR AT 4

#7S.OFL ,@TSSR(RS)
504074
FTLCNT(RS)

FTLCNT(RS)

04, (SP)

MOV
TSDB(RS). (SP)
MOV
PAUTODM, (SP)
MOV
92, (SP)
MOV
SP.RO
TRAP
C$PNTF
ADD
96, SP
{SAVE @ OF UNIT TO BE DROPPED.
;RO=LOGICAL DEVICE NUMBER

EXEC BGNDU ENDDU CODE IF

IDU = O

TRAP

C$DODU

;SEND GET STATUS COMMAND
JWAIT
;IF 0TS.SSR SETIN @TSSR(RS) THEN
;IF

OTS.OFL

SETIN @TSSR(RS)

sLET FTLCNT(RS)

THEN

FTLCNT(RS)

MISCELLANEQUS SECTIONS

MACRQO

V0S.03

Fridey

22-Mey

08:12

Page

SEQ 0113

AUTO DROP SECTION
5282 023546
023546
023552

5283
S284
5285
5286
5287
5288
5289
5290

5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301

023556
023562
023564
023566

023572

013746
012746
012746
010600
104417
062706
004737

PRINTF

003534
005456
000002
000006
017364

023614
023620
023622
023624

023630

023640
023642

023642
023642
023642

5302
5303 023644
023647
023652
023655
023660
023663
023666
5304 023667
023672

023675
023700
023703

023706
023711
023714
023717
023722
023725

023730
023733
023736
530S 023740

v
TRAP
ADD

TSNP, (SP)
OOFLINM, (SP)

02, (SP)
SP,RO
C$PNTF
06, 5P

S04074:

000416
005265
016546
012746
012746
010600
104417
062706
004737

504064
:

003366

504104

INC

002604
023740
000002

FTLCNT(RS)

PRINTF

ONRDYM,DEVTBL(RS)

sLET FTLCNT(RS)

FTLCNT(RS)
DEVTBL(RS),

ONRDYM, -(SP)
02, (SP)

000006
017364

JSR PC,DROPUA

023634

023634
023634

MOV
MOV

JSR PC,DROPUA

023576

023576
023600
023600
023604
023604
023610

O0FLINM, TSNP

504104
:
004737

S04054
;

017210

000647

504034
:

L10013:

104461

045
125
124
120
124
117
116
045
116

122
103
102

040
040
124
105
124
101
126
101
116
045

101
123
122

040
040
066

102
040
101
101
045
045

101

111

124
106
105
101
117
116

105
101
040
104
122
117

117
102
105
104

040
045

040
124

000

101

AUTODM:

JSR PC,NEXTU

B8R

504024

ENDAUTO
TRAP
.ASCII

/wABUS

TRAP

w06%N/

.ASCIZ

/#AINTERFACE BAD OR NOT

_ASCIZ

/#AUNIT

123
040
040
117

125

NRDYM:

sD1sA NOT

ROYSN/

SET

TO ABOVE ADSN/

C$AUTO

(sP)

| K9

MISCELLANEOUS SECTIONS
AUTO DROP

MACRO V0S.03

Fridey 22-Mey 87 08:12

Page 26-58
SEQ 0114

SECTION

023747
023746
023751
023754
023757
023762
023765

124
104
101
117
122
045
.EVEN

023770
023774

105237

000002

003530

H
:
H

DEVICE BUS TRAP HANDLER
OUTPUT: TRAPDS BYTE
1: TRAPED AT 4
0: NO TRAP

TRAPA : :

g¥§e

.SBTTL

CLEANUP CODING SECTION

TRAPD4 ;LET TRAPD4

:B=

TRAPD4

; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED
:

AT THE END OF EACH PASS.

023776
023776
023776
024002
024002
024010
024012
024016
024016
024022
024024

024030
024032
024032
024032
024034

024036
024036
024036

BGNCLN
L$CLEAN:
:
004737

017142

026527
001410
004737

002604

016500

002534

004737

017210

104436

000764

177777

SO411%:

012740

PC,FIRSTUY

;WHILE DEVYIBL(RS) NE SEND DO
cMe
DEVTBL(RS).
0END
BEQ
S04124
JSR PC,WSSR

CLRVEC

JSR
:
504124

104432

000002

104412

JSR

TSVCT(RS)

PC . .NEXTU

S04114

EXIT

CLN

;FIND FIRST UNIT,

;WAIT FOR UNIT

READY OR TIMEOUT,

;RELEASE INTERRUPT VECTORS FOR ALL DEV.
MOV
TSVCT(RS),RO

sFIND NEXT UNIT,

.EVEN

L10014:
.SBTTL

TRAP

C¢CVEC

TRAP

C4EXIT

. WORD

L10014-,

TRAP

C$CLEAN

ENOCLN

DROP UNIT

SECTION

HERS

;s THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
THAT CODE SHALL BE EXECUTED WHEN DODU
; TO NO LONGER BE TESTED.
sMACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR

MISCELLANEOUS SECTIONS

OROP UNIT

MACRO V05.03

May

08:12

Page

26-59

SEQ 0115

SECTION

5349 024040
5350

Frigey

024040

024040
024042
024044
5354 024052
024052
024056
535S 024060
024060
024064
024070
024074
024076

024100
024104
024104
024106

024110
024110
024110

BGNDU

L$DUL:
:

:gx
012765

177774

016500

002534

013746

01 'S0
005( o5
000002

104436

012746
012746
010600

104417
062706

002604

MOV

CLRVEC

000006

L10015:

024156

024162
024166

024172
024176
024200
024204

024210

012746

IN USE FLAG FOR

;PRINT

DROP

DEVICE

THE D&V ICE.

VSSTOR.
\'

TRAP
HESSAgSV

$AU

DROPN,

.WORD
. WORD

JNP
L10015-2

TRAP

cs0u

ADD UNIT

ADD UNIT SECTION CONTAINS THE CODING
BE (A) TESTED FOR THE FIRST TIME, OR

IS SET,

THE UNIT

THAT CAUSES
(B) RESUMED

A DEVICE
IN TESTING.

WILL BE TESTED AS A NEW UNIT,

BGNAU

;RS = LOGICAL DEVICE NUMBER X 2.

002604

MOV
GPHARD

RO,DEVTBL(RS)
RO.,RO

;STORE UNIT o IN DEVICE TABLE.
;GET HARDWARE P TABLE FR?SAEUPER

002514
002524

MOV
MOV
ADD

(RO),TSDB(RS)
(RO).,TSSR(RS)
02, TSSR(RS)

;sSAVE TSDB ADDRESS.
;sSAVE TSSR ADORESS.

000340
002554
002534
000003

MOV
MOV
MOV

SETVEC

(RO),TSVCT(RS)
(RO),TSUNT(RS)
(RO), TSNP

s SAVE INTERRUPT
; SAVE NUMBER OF
;SAVE FOR PRINT

TSVCT(RS),TSSINT(RS),8INTPRI

000010

003472

SECTION

gg.RS

002524

(SP)

TRAP
ADD

:gx

002534
003532
003534

TSVCT(RS),RO
CsCVveC

ENDOU

“EF LAUNIT*

024134
024142
024146
024152
5380 024156

NOT

;RELEASE THE INTERRUPT

.EVEN

THE
TO

024130

;SET

o0DROPDM,DROPN

EXIT

104453

104442
011065
012065
062765
011065
011065
011037

ONINUSE ,DEVTBL(RS)

MOV
MOV
MOV

000167
000000

010005
006305
010065

;RS = LOGICAL DEVICE NUMBER X 2.

TSVCT(RS)

PRINTF

.SBTTL

024112
024112
024112
024114
024116
024122
024122
024124

gg.ns

VECTOR
DRIVE
QUT'S

ADDRESS.

PINTPRI, -(5P)
TSSINT(RS),-(SP)
TSVCT(RS),-(SP)

ADD

CLR

INTFLG(RS)

EXIT

C4GPHRD

03,-(SP)
C$SVEC
210,5P

;SET UP INTERUPT PROCESSING COND ITIONS.
1CLEAR INTERRUPT FLAGS.

MISCELLANEOUS SECTIONS
ADD UNIT

5385

MACRO VOS.03

Fridey 22 Mey-87 08:12

Peage 26-60

SEQ 0l16

SECTION

024210
024212

5386
5387
5388 024214
024214
024214

000167
000000

LWORD
.WORD

JsUMP
L10016 2

TRAP

C$AU

.EVEN
L10016:

104452

.TITLE

.SBTTL

ENDAU

HARDWARE

TEST

TESTS

BASIC FUNCTIONS.

‘0.

TEST TO EXECUTE ALL TSOS FUNCTIONS.

024216

BGNMOD

024216
024216
024216
024222
024226
024226
024226

024230
024234
024240
024242
024242
024244
024246
024250
024252
024256
024262
024266
024272
024276
024276
024304
024306
024312
024316
024322
024330
024334
024342
024342
024346

T1::

105037
105037

003515
003514

CLRB
CLRB
.

RANDOM
EXPBOT

;CLR THE RANDOM OPERATIONS FLAG.
:CLR EXPECT BOT FLAG.

BGNSUB

;SUBTEST

SET CHAP,

DRIVE INIT,

104402

004737
004737
103404

BGNTST

017142

582

ERRDF

104455
000002

PC.FIRSTU

;INIT

2,NSSRM, STAERM

DEVICE

;REPORT

TS05 NOT READY

026527
001451
016502
062702
011265
042765

TRAP

.MORD
.WORD
.WORD

007526

11%:

025134

025110
010266
017142
002604

JSR

MOV

JSR
JSR
JSR

177777

PC,MOSET

;GO DO SETUP'S

PC.BFSEQ
PC.EXALL
PC.FIRSTU

;SET UP CMD SEQ.
;EXECUTE CMD SEQ ON ALL DEVICES.
;FIND THE FIRST UNIT

08F SEQO, R2

04134 ;WHILE oevfaL(RS)
NE 9END DO
gngB%(RS). 0END

002544

MOV

MSGPKA(RS),R2

002564

MOV

(R2),TSSCL(RS)

ADD

012,R2

002564

BIC

0177700, TSSCL(RS)

177477

002574

BIC

0177477, TSSSW(RS)

002574

016546
016546

002564

002604

MOV

PRINTF

;WHILE THERE ARE MORE DEVTMCES:
;GET MSG PACKET ADR

iLET R2 := R2 + 012

177700

011265
042765

C4EROF

2
NSSRM
STAERM

1ADR OF CMD SEQ.

gea

000012

cs8SuUB

;FIND THE FIRST UNIT.

§53$0FINIT

006120
004737
012702
004737
004737
004737

STATUS.

TRAP
JSR

007072

GET

GET XSTAT2 ADR,

1 STORE CODE LEVEL FROM DTR BYTE,

(R2),T555W(RS)

0CODELM.DEVTBL(RS), TSSCL(RS)

;STORE

SWITCH SETTINGS
MOV

MOV

TSSCL(RS),

-(SP)

DEVTBL(RS), -(SP)

HARDWARE TESTS
TEST

MACRO V05.03

Page 26-61

SEQ 0117

BASIC FUNCTIONS.
024352
024356
024362
024364
024366

012746
012746

004162
000003

104417
062706

000010

010600

024372
024372
024376
024402
024406

017210

024426
024430

024432
024432
024432

104403

025206
025110
010266
003526

012702
004737
004727

025220
025110
010266

012702
004737
004737

TSOS

MOV
MOV

T5SSUW(RS), -(SP)
DEVTBL(RS), -(SP)

TRAP
C4PNTF
ADO
#10,5P
MICROCODE LEVEL.

OSWSET, -(SP)

025312
025110
010266

ENDSUB

TRAP

CsesuB

TRAP

csssuB

ADD
910,5P
SWITCH SETTINGS.

sFIND NEXT UNIT.

sSUBTEST 2 - REWIND.

#8F SEQL,R2

PC,.BFSEQ
PC,EXALL

STAFLG

;ADR OF

CMD SEQ.

;SET UP CMD SEQ.
1EXECUTE CMD SEQ ON ALL DEVICES.
t1CLEAR START FLAG
TRAP

BGNSUB

CsESLB

;SUBTEST 3 - WRITE/VERIFY.
TRAP

ENDSUB

#8F SEQ2,R2

PC,BFSEQ

PC,EXALL

csBsuB

tADR OF CMD SEQ.
:SET UP CMD SEQ.
1EXECUTE CMD SEQ ON ALL DEVICES.
TRAP

BGNSUB

sSUBTEST 4

WRITE TAPE MARK,

CsESLB

ERASE.

TRAP

MOV

JSR

1L10023:

TSO5

SP,RO
C$PNTF

504134

BGNSUB

JSR
JSR

T1.4;

PC.NEXTU

THE

03,-(SP)

MOV
TRAP

ENDSUB

MOV

L10022:

104402

JSR
JSR
CLR8

71.3:

104403

JSR

MOV

L10021:

104402

sPRINT

S0415%:

T1.2:

104402

THE

03, (SP)
SP,R0

MOV

L10020:

104403

024514

ASWSET ,DEVTBL(RS), TSSSWCRS)

#CODELM, -(SP)

MOV
MOV

MOV

SO4144:

012702
004737
004737
105037

3456
5457

PRINTF

000010

024422
024422

024430
024430
024430

MOV

002574
002604
004231
000003

024412
J24414
024416

5459
5460

Fridey 22-May-87 08:12

ENDSUB

#BF SEQ3,R2

PC,BF SEQ

PC.EXALL

sADR OF CMD SEQ.
$1SFT UP CMD SEQ.
1EXECUTE CMD SEQ ON ALL DEVICES.

csBsuB

B10

HARDWARE

TESTS

TEST

BASIC FUNCTIONS.

461

024514

5462 024516
024516

MACRO V0S.03

104402

5464 024520
5465 024524

012702
004737

024534
5468 024534

104403

004737

5470 024536

104402

S471
5472
5473
5474

012702
004737
004737

024540
024544
024550
024554

024554
5475 024554

T1.5:

025364
025110

L10024:

T1.6:
025426
025110
010266

L10025:

104403

024556
5477 024556

104402

5478 024560

012702

Saas 024574

104403

004737
004737

T1.7:
025500

Page

BGNSUB

SEQ 0118

L10026:

T1.8:

:SUBTEST

JSR
ENDSUB

PBF SEQ4,R2
PC,BFSEQ
PC,EXALL

;ADR OF CMD SEQ.
+SET UP CMD SEQ.

;EXECUTE CMD SEQ ON ALL

;SUBTEST 6

#BF SEQS,R2
PC,BFSEQ
PC,EXALL

;SUBTEST 7

WRITE

P#BF SEQ6 ,R2
PC,BFSEQ
PC,EXALL

:SET UP CMD SEQ.
;EXECUTE CMD SEQ ON ALL DEVICES.

104402

5485 024600

012702

025552

MOV

oBF SEQ7,R2

;ADR OF CMD SEQ.

5487 024610

004737

010266

JSR

PC.EXALL

;EXECUTE CMD SEQ ON ALL DEVICES.

5488 024614
024614

5489 024614

004737

104402

5492 024620

012702

024634
024634

004737
004737
104403

TRAP
JSR

L10027:

104403

5490 024616
024616
5491 024616
5493 024624
5494 024630
5495 024634

025110

T1.9:

025604

ENDSUB

L10030:

PC,BFSEQ

BGNSUB

CsESLB

;SUBTEST 9 - READ FWD RETRY,
TRAP

JSR
JSR
ENDSUB

csBsuB

;SET UP CMO SEQ.

TRAP

MOV

025110
010266

csESLB

;SUBTEST 8 - READ REV RETRY.

484 024576
5486 024604

csBsuB

;:ADR OF CMD SEQ.

TRAP
BGNSUB

CsESLB

RETRY.

TRAP
JSR
JSR
ENOSUB

csBsue

;:ADR OF CMD SEQ.
$SET UP CMD SEQ.
;EXECUTE CMD SEQ ON ALL DEVICES.

TRAP
BGNSUB

CsESLB

SPACE RECORDS.

TRAP
MOV
JSR
JSR
ENDSUB

csBSUB

DEVICES.

TRAP
BGNSUB

C$ESLB

SPACE FILES.

TRAP

MOV

025110
010266

5483 024576
024576

08:12

MOV
JSR

010266

5476 024556

5479 024564
5480 024570
5481 024574
024574

Mey-87

TRAP

5469 024536

024536

104403

5463 024516

5466 024530
5467 024534

Fridey

9BF SEQ8 ,R2

PC,BFSEQ
PC,EXALL

csBsus

tADR OF CMD SEQ.

;SET UP CMD SEQ.
tEXECUTE CMD SEQ ON ALL DEVICES.
TRAP

CsesuB

HARDWARE

TESTS

TEST

BASIC FUNCTIONS.

5497 024636
024636
024636
024640
024644
024650
024654
024654
024654

024660
024664
024670
024674
024702
024706
024712
024712
024712
024714
024720
024724
024724
024730
024732
024734
024736
024736
024742
024742
024742
024744
024752

526 024756

024764
024770
024776

Friday 22 May

104402
012702
004737
004737

025636
025110
010266

L10031:

T1.11:

025660
025110
010266
00000
010266
003520

L10032:
003406
000012

020237

001402
000342

504164
:

003406

105237

S0417%:

003523

T1.12:

104402
012737
004737
012737
004737

003420
002336

112737
012737

003520
002336

;:SUBTEST 10- CLEAN,

;ADR

#BFSEQYR2
,

;SET

PC.BFSEQ
PC . EXALL

BGNSUB

UP CMD
S

;SUBTEST 11

TRAP

3sADR

JSR
MOVB
JSR
CLRB
ENDSUB

PC.EXALL
01.SWBFLG
PC.EXALL
SWBFLG

:SET _UP CMD S
sURITE/VERIFY RECORDS 1 AND 2.
;ENABLE BYTE SWAPPING.
tWRITE/VERIFY RECORDS 3 AND 4.
1DISABLE BYTE SWAPPING.

MOV

DATAUT ,R2

:INIT WRITE BUFFER POINTER.

$10. ,R2

:WHILE R2 NE DATAWT

¢ve

R2,DATAWT
S04164

INCB

TiswB

JSR

MOV
JSR
MOVB
MOV
JSR

;SET T1 SWAP BYTES FLAG FOR "“CKDATA" SUBR
:SUBTEST 12 - READ SWAPPED DATA BYTES.

SROR
, CMDWRD

PC.VFEXC

012, CMOPKTCP. CNT
01.SWBFLG

PC, VFEXC

011,CMOPKT.CP. CNT
PC, VFEXC
012, CMOPKT.CP. CNT
PC, VFEXC

002336
002336

CLRB
MOV

SWOFLG
912,CMOPKT-CP. CNT

002336

MOV

JSR

JSR
JSR

ENDSUB

CsESLB

1SWAP DATA BYTES IN WRITE BUFFER.

BGNSUB

MOV

csBsus

sUNTIL 10 BYTES HAVE BEEN SWAPPED.

S04174
-(R2)

OF CMD SEQ

TRAP

CsESULB

- WTV SWAPPED DATA BYTES.

#BFSE10,R2
PC.BFSEQ

oROF
, CMDWRD
PC.VFEXC
01i.CHOPKT.CP .CNT

003420

OF CMD SEQ

TRAP

ADQ

csBsuB

xEXECUTE CHO SEQ ON ALL DEVICES.

MOV
JSR
MOV
JSR
MOV

002336

016212

JSR
JSR
ENDSUB

BEQ
SWAB

000773

SEQ@ 0119

TRAP

MOV
JSR

003520

Page 26-63

BGNSUB

MOV

104403

104402
012702
004737
004737

87 08:12

T1.10:

—

MACRO V05.03

csasus
TRAP
;CMD 1S READ REV,
s VERIFY 000 LENGTH SUAP (RECORD 4).
1
;CHANGE BYTE COUNT T0
s VERIFY EVEN LENGTH SUAP

$ENABLE BYTE SWAPPING.
sCHANGE BYTE COUNT T0 9.
s VERIFY ODD LENGTH SWAP

;CHANGE BYTE COUNT T0 10

(RECORD 2).

EVEN LENGTH SUAP (RECORD 1).
BYTE COUNT

s VERIFY ODD LENGTH SUAP

C,VFEXC

s VERIFY EVEN LENGTH SWAP

PC.VFEXC

3).

EgEg LESGTH SWAP (RECORD 1).

PC, VFEXC

011,CMOPKT.CP. CNT

(RECORD

;DISABLE BYTE SWAPPING
1CHANGE BYTE COUNT

(RECORD 2).

TO 10.

(RECORD

3).

sCHANGE BYTE COUNT T0 9.
s VERIFY 0DD LENGTH SWAP (RECORD 4).

HARDWARE

TEST

TESTS

MACRO

V0S5.03

22-May

08:12

Page

SEQ 012

BASIC FUNCTIONS.

025076

SSad 025076

104403

25522 025100

105037

5547 025104
025104

104432

Ssa8 025106

L10033:

003523

H
;
:
025110
025114
025114
025120

5561
5562
5563
5564
5565
5566

025124
025126
025126
025132

5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
S58S
5586
5587
5588
2289

025134
025136
025140
025142
025144
025146
025150
025152
025154
025156
025160
025162
025164
025166
025170
025172
025174
025176
025200
025202
025204

5591
5592
5593
5594
gggz

025206
025210
025212
025214
025216

2223 025122

CLRB

T15w8

€XIT

TsT

;CLEAR T1

TRAP

012701

003540

021227
001402
012221

177777

000773
012711
000207

gssg;

177777

SUBROUTINE TO MOVE A COMMAND SEQUENCE TO THE SEQUENCE TABLE.

INPUTS:
OUTPUTS:
REGISTERS:

= FWA OF COMMAND SEQUENCE.

BFSEQ:: MOV
#CMDSEQ,R]
504204: ;WHILE (R2) NE #END DO
cMe
R2),9END
BEQ
04214

504214:

M~V

(R2)+,(R1)-

B8R

504204

MOV
RTS

HEND, (R1)
PC

;

BASIC FUNCTION COMMAND SEQUENCE

140004
000200
000001
000000
100013
000001}
000001
000000
140004
000020
000001
000000
100017
000001
000001
000000
140004
000040
000001
000000
177777

BFSEQO:

.WORD

102010
000001
000002
000000
177777

BFSEQL:

.WORD

SCH
200
1
0
DRI
1
1
0
SCH
20
1
o
GES
1
1
0
SCH
40
1
0
END

.WORD

RWO
1
2
Y
END

;INIT SEQ TABLE ADDRESS.
;WHILE THERE ARE MORE COMMANDS:

;MOVE COMMANDS TO SEQ TABLE.

;STORE END OF SEQUENCE CODE.
;RETURN,

;SET CHAR.

200.

;ORIVE INIT.

:SET CHAR.

:GET

STATUS.

;SET CHAR.

C4ESUB

SWAP BYTES FLAG

.WORD

5550
5551
5552
5555
5556
5557
5558

TRAP

000574

5549

Fridey

(4)

40,

;REWIND TWICE.

(6)

CS$EXIT

L10017

E10

HARDWARE

TESTS

TEST

BASIC FUNCTIONS.

5597
5598
5599
5600
5601

025220
025222
025224
025226
025230
5602 025232
5603 025234
025236
025240
025242
025244
025246

MACRO V0S5.03

Friday 22 May-87 08:12

BFSEQR:

Page 26 65

WtV

;WRITE/VERIFY PAT

1
1
WtV

:WTV PAT

(8)

WTV

;WTV PAT

(9)

WtV

;WTV PAT

(10)

:WTV PAT

(11)

;WTV PAT

(12)

;WTV PAT O.

;WRITE TAPE MARK,

(14)

;WRITE 10 RECORDS.

(15)

1ERASE

(16>

DATCNT

?AYCNT

DATCNT
1
3

025250
025252

SEQ 0121

DATCNT
1

(7)

WTV
DATCNT
1
S
WTV

DATCNT

025310

025312

.WORD

1
6
WTv
DATCNT
1
0
END

WM
1

BF SEQ3:

0
WRT

DATCNT
10
1
ERS

10 TIMES.

;WRITE TAPE MARK,

a17)

iWTHM RETRY

(18)

:SPACE 2 FILES REV.

(19)

1 SPACE 2 FILES FWD.

(20)

. WORD
BF SEQ4 :

025374

F10

HATDWARE TESTS

BFSEQ6:

MONANONFNOMN

(24)

;SPACE 7 RECORDS REV.

(25)

:SPACE

7 RECORDS FWO.

(26)

i SPACE 7 RECORDS REV.

27)

;REWIND.

(28)

{WRITE.

(29)

;WRITE RETRY,

(30)

5 &

;SPACE 7 RECORDS FWD.

5701 025530

100011

WTM

000000

5709 025550

[

5705 025540

105410

000090

11777717

SFR

.WORD

END

—f

WRR

105005

g
w

5697 025520

102010

000001

.WORD

N
pe

177777

(23)

22
9]
V) 3
N5

5689 025500

000000

"
n

5687 025476

;REWIND .

5686

BF SEQS:

(22)

p )

102010

00000

.WORD

:SPACE 2 FILES FWO.

177777

5667 025426

000000

(21)

55222 025424

;SPACE 2 FILES REV.

MONHNONHFNOFNdNOFNJNO==TD
p-]
p o]
D
p )

025404
025406
025410

000002
000001
000000
105410
000001
000002
000000
105010

5 &

025376
025400

5664

SEQ 0122

BASIC FUNCTIONS.

5661 025414
5662

¥¥
b 4g

Page 26 66

5654
5655
5656
5657
5658
5659

Fridey 22 Mey 87 08:12

TESYT 1:

MACRO V0S.03

;WRITE TAPE MARK,

:SPACE

FILE REV.

G10

MARDWARE

TESTS

TEST

BASIC FUNCTIONS.

S711
5712
5713
3714
S715
5716
5717
5718
5719
5720
5721

025552
025554
025556
025560
025562
025564
025566
025570
025572
025574
025576

MACRO

104401

VOS.03

Fr'day

22 Mey

08:12

Page

BFSEQ7:

26 67

RDR

DATCNT
1
1

RNR

DATCNT
1
1

RNF

DATCNRT
1

SEQ 0123
;READ REV.

;READ NEXT

(31)

REV.

(32)

;READ NEXT FUWO.

(33)

;READ

(34)

. WORD
BFSEQS:

177777

101012

BFSEQ9:

.WORD

000000

177777

104401

(35)

;READ

(36)

REV.

;CLEAN,

37)

;sREWIND

(38)

;ENDO OF SEQUENCE.

BFSE10:

5760 025702
025702
025702

;READ PREVIOUS FWD.

. WORD

.WORD

5756 025676
5757 025700

FWD.

;WRITE/VERIFY EVEN LENGTH.

(39)

;WRITE/VERIFY 0DD LENGTH,

(40)

.WORD
.EVEN

L10017:
.SBTTL

ENDTST
TRAP

TEST 2:

DATA RELIABILITY,

; TEST TO CHECK THE DATA RELIABILITY OF THE TSOS.

CSETST

H10

HARDWARE TESTS
TEST

MACRO V0S.03

Fridasy 22-May 87 08:12

025704
025712
025716
025722
025726
025732
025734
025734

12::
112737
105037
005037
004737
004737
103404

000001
003514
003356
017182
007072

000002

025744
025750
025754
025756
025762
025766

004737
012702
005302
010237
005137
004737

S784 025776
5785 026000
g;gg 026004

001417
004737
105037

5788
5789
5799
S791
5792
5793
g;g;

026010
026010
026014
026020
026024
026026
026030

012721
012721
012702
005102
010221
012721

5796 026034
5797 026034

104422

5798
5799
5800
5801
5802
5803

026036
026036
026042
026044
026052
026056

020127
002012
063737
013702
042702

5806
5807
S808
ggog

026066
026070
026070
026074

000763
012711
004737

177777
010266

5811 026100

012701

003540

5813
5814
5815
5816

001752
105237
000240
000240

025740
025742

5783 025772

Ssggg 026062

5812 026104

026106
026110
026114
026116

003515

BGNTST
MOVE
CLRB
CLR
JSR
JSR
BCS
ERRDF

104455

025736
5776
S777
5778
5779
5780
S781
5782

SEQ@ 0124

DATA RELIABILITY,

5766
5767 025704
S768 025704

§769
§770
§771
5772
5773
5774
5775

Page 26-68

#1,RANDOM
EXPBOT
WTMFLG
PC.FIRSTU
PC.SOFINIT
114
2, NSSRM,STAERM

$1SET THE RANDOM OPERATIONS FLAG.
;CLEAR EXPECT BOT FLAG.
;CLEAR WRITE TAPE MARK FLAG
;FIND THE FIRST

s INIT DEVICE

UNIT,

;REPORT TSOS5 NOT READY

.WORD
.WORD
.WORD

004536
006120

105737

004772

005702

TRAP

007526
004000

114:

003430
003430
010222

JSR
PC,MOSET
MOV
GDATCNT ,R2
DEC
R2
MOV
R2,LENMSK
coM
LENMSK
JSR PC,SETCH

010246
003526

8EQ
JSR
CLRB

504244
PC,SETRW
STAFLG

MOV
MOV
MOV
ComM
MOV
MOV

PUTV,(R1).
OOATCNT ,(R1)ORNOPSC ,R2
R2
R2,(R1).
ORANP, (R1)-

003526

18718

504224:

104105
004000
177740
000007

504°34.
504244 ;

003740
003432
003434
177741

003434

026220

003524

;GO DO SETUP'S
;SET UP THE RECORD LENGTH MASK,

;ALLOW MAXIMUM BUFFER.
;CMD 1

;IFB STAFLG NE #0 THEN
tLET STAFLG

BREAK

SET CHARACTERISTIC.

:IF STARTING THEN:

: CMD2=REWIND
:B8= ¢0

:CLR START FLAG.

DO A SUPVSR BREAK FIRST.
TRAP

sFILL SEQ TBL

C$BRK

WITH RANDOM CMDS.

cHe
B8GE
ADD
MOV
e1c

R1,9SEQEND
504254
RANB , RANS
RANS,R2
9177741 ,R2

504244

MOV
JSR

#END, (R1)
PC,EXALL

sSTORE END OF SEQUENCE CODE IN TABLE.
;GO EXECUTE ALL CMOS IN SEQUENCE TABLE

OCMDSEQ,R1

;INIT CMD SE@ TBL POINTER,

504234
ALLEOT

;FLAG ALL UNITS @ €EO7

JSR

504254:

STAFLG

C$ERDF

2
NSSRM
STAERM

MOV

TS7T

8EQ
INCB
NOP
NOP

PC.,3RANCHMD(R2)

sLET RANS

:= RANS

RANB

;SET UP A RANDOM CMD - BRF,

;REPEAT UNTIL EOT IS REACHED

110

HARDWAPE

TEST

TES'S

MACR.

uUS.03

Fr'gey 22 May

87 08:12

Page 26 69

SEQ 0125

DATA ReLIABILITY.

5817 026120
5818 026122

5819

000240
004737

NOQP
JSR

027674

PC,TSWEODY

sWRITE ONE RECORD BEYOND EOT ON ALL UNITS

PC,.RANRD

;READ REV THAT EXTRA REC 10O RE-POSITION THE
;SET UP READ REV/FWO CMDS,

5820

sSHALL POSITION HEAD IN CLEAN IRG GAP

5821
5822 026126

004737

026260

5824
5825
5826
5827
5828
5829
5830

026140
026144
026152
026156
026162
026166
026174

005137
013737
012711
004737
105037
112737
012701

003544
003544
1777717
010266
003524
000001
003540

5832 026204
gggz 026210

012711
004737

177777
010266

S8238 026132

5831 026200

S83S 026214
026214
S 026216

012737

004737

177740

003544

MOV

com
MOV
MOV
JSR
CLRB
MOVEe
MOV

003554

003517

eEXIT

;

026230
026232
026234
026236
026240
026242
026244
026246
026250

S853 026252

S854 026254
S855 026256

026416
026372
026372
026372
026372
026372
026372
026372
026260
026260
(026260
026260
026260
026260
026260
026260

CMDSEQ-4
CMDSEQ-4,CMDSEQ- 14
OEND, (R]1)
PC.EXALL
ALLEOT
01 .RPTFLG
#CMOSEQ.R]

JSR PC,SETRW

:
026220
026222
026224
026226

SRNOPSC ,CMDSEQ-4

MOV
SEND, (R1)
JSR PC EXALL

104432
00030

SSg'.;g

S844
S84S
S846
S847
S848
S849
S8S0
S851
5852

JSR

010246

5837

S840
S841
S842
S843

:SO THAT SHORTER READ STOP DISTANCE

:® OF

RECORDS FOR READ REV.

;9 OF RECORDS FOR READ FORWARD.
sSTORE END OF SEQUENSE CODE IN SEQ TABLE.
;G0 EXECUTE READ REV/FUWD OF LAST N RECORDS.
sCLEAR ALL UNITS @ EOT FLAG
;REQUEST PERFORMANCE REPORY DURING REWIND.
sINIT SEQ TBL POINTER

:STORE REWIND IN SEQ iBL.

;STORE END IN SEQ ToL,
sEXECUTE REWIND CMD ON ALL UNITS

1ST

ADDRESSES OF

TRAP
. WORD

sWRITE
;WRITE.
sWRITE.
sWRITE.

;WRITE,
sWRITE.
sWRITE.
sWRITE.
sREAD.
:READ.
sREAD.
sREAD.
sREAD.

RANRD

sREAD.

RANRD
RANRD

;READ.
;READ.

5858

SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE.

S860
5861

H
:

OUTPUTS:
REGISTERS:

ggg%

S864 026260

005737

003456

S866 026266
S867 026272
S868 026276

004737
004737
005037

026430
026456
003456

586< 026264

5869 026302

S870 026306
5871 026310

001406

020127

002030
012721

00374~

104401

RANRD::

1¢:

SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN

RANWR
RANWR
RANWR
RANWR
RANRD
RANRD
RANRD
RANRD
RANRD

CsEXIT
£t10034

THE DATA RELIABILITY TEST.

RANCMD: RANWV
RANWR
RANWR
RANWR

5859

TAPE

INPUTS:

CALLS:

TS7T

WTMFLG

;WAS LAST CMD A WRITE?

JSR
JSR
CLR

PC.RAUTM
PC,RASFR
WIMFLG

;YES PUT DOWN TAPE MARK
sAND SPACE FILE REV
; THEN CLEAR THE FLAG

OROR, (R1)-

;STORE READ REV CMD.

BEQ

B8GE
MOV

R1,0SEQEND
2$

:NO,GO AHEAD

fr'cey

Mey

08:12

Page

SEQ@ 0126

DATA RELIABILITY,
026314
02632C
02632
026332
026336
026340
026344
026350
026352
026356
026362
026364
026370

012721
063737
013702

042702

010221
012721
020127
002007
012721
012721
010221
012721
000207

004000
003434
003432

003432

177740

000007
003740

104001
004000
000007

24:

MOV
ADD
MOV
BIC
MOV
MOV

PDATCNT ,(R1).
RANS ,RANB
RANB,R2
PRANOPSC ,R2
R2,(R1).

MOV
MOV
MOV

ORDF , (R1)ODATCNT , (R1).
R2,(F1).

cMP
B8GE

R1,9SEQEND
24

RTV -

ORANP ,(R1)-.

THEN

;SET BRF 70 MAX FOR READ RANDOM LENGTHS.
;:LET RANB := RANB + RANS
;LET R2 := RANB CLR.BY ORNOPSC
:SET RANDOM ¢ OF
;RANDOM PATTERN,

ORANP,(R1)-

SUBROUTINE
A

TO SET

WRITE

TAPE

OPERATIONS.

:STORE READ FWD CMD.
;SET BRF TO MAX TO READ RANDOM LENGTHS.
;SET RANDOM 6 OF OPERATIONS.
;RANDOM PATTERN.

UP A WRITE COMMAND IN THE
MARK

AND

SPACE

FILE

SEQUENCE

REVERSE.

TABLE,

INPUTS
QUTPUTS:

REGISTERS:

CALLS:

012721
004737
005737
001002
005237
000207

104005
026504
003456

003456

RANWR:
:

14:

®s

@¢

®e

026372
026376
026402
026406
026410
026414

012721
004737
000207

104105
026504

RANWV:
:

020127
002007
012721
012721
012721
005721
000207

003740

MOV

OURT,(R1)-

187

WIMFLG

RAWTM:
:

100011

BNE
INC

RTS PC

1¢:

:STORE BRF,

0 OF

WRT?

sLAST

14
WTMFLG

CMD

OPERATIONS,

PATTERN,

s YES,RETURN
;NO,SET THE FLAG

SUBR?UTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE.

INPUTS:

QUTPUTS

REGISTERS:

CALLS:

MOV
SUTV,(R1).
JSR PC,RANW

$STORE WRITE/VERIFY CMD.
sSTORE BRF, & OF OPERATIONS,

PATTERN.

Sgflgfifll'i TO SET UP A WRITE TAPE MARK IN THE SEQUENCE TABLE.
INPUTS:
QUTPUTS:

REGISTERS:

CALLS:

cHP

BGE
MOV
MOV

MOV

000001

;:STORE WRITE CMO.

JSR PC,RANW

RTS

026416
026422
026426

5872
5873
S874
5875
5876
s877

V0S5.03

®s

MACRO

TEST

TESTS

J10

HARDWARE

157

RTS PC

R1,0SEQEND
1
OWTM,(R1).
#1,(R1)-

;STORE WRITE TAPE MARK CMD.
s BRF

01,(R1)-.

;@ OF OPERATIONS

(R1)-

%ggsggTINE

SET

;:SKIP PATTERNS

SPACE

FILE

REVERSE

THE

SEQUENCE

TABLE.

—eeeeeeeeee

HARDWARE TESTS
TESTYT

DATA

MACRO V0S.03

Friday 22 May 87 08:12

Page 26 71

RELIABILITY.

2929

;

OUTPUTS;

5931

CALLS:

5930

5932
5933
5934
5935
5936
5937
5938
5939

3341

026456
026462
026464
026470
026474
026500
026502

020127
002007
012721
012721
012721
005721
000207

003740

REGISTERS:

RASFR::

g:;

14:

:
:
:
H
:

SUBROUTINE TO STORE BRF, 6 OF OPERATIONS, PATTERN IN COMMAND
SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS.
INPUTS
OQUTPUTS:
REGISTERS:
R2

RANW::

MOV

SDATCNT ,(R1)-

ADD
MOV
BIC
MOV
MOV
RTS PC

RANS , RANB
RANB ,R2
PRNOPSC ,R2
R2,(R1).

5949 026504

012721

004000

5951
5952
5953
5954

063737
013702
042702
010221

003434
003432
177740

026510
026516
026522
026526

5955 026530
gggg 026534

012721
000207

026536

5961 026536

000007

L10034:

104401

.SBTTL

5966

$96S

5969 026540

13::

;

5967
5968 026540

S970 026540

112737

000001

5973
5974
5975
5976

004737
004737
103404

017142
007072

026552
026556
026562
026564

sSTORE SPACE FILE REVERSE
sBRF
;0 OF OPERATIONS
1 SKIP PATTERNS

ORANP ,(R1)-

;SET BRF

TO MAX FOR PATTERN GENERATION.

sRANDOM BRF WILL BE GENERATED FOR EACH RECORD.
;LET RANB := RANB + RANS
sLET R2 := RANB CLR.BY ORNOPSC

;SET RANDOM 0 OF OPERATIONS.
;RANDOM PATTERN.
sRETURN,

.EVEN

'553:’,5 026546

R1,#SEQEND
14
#SFR,(R1).
01,(R1)01,(R1).
(R1).

CALLS:

003432

5958
5959
9960 026536

CMP
BGE
MOV
MOV
MOV
187
RTS PC

105410
000001
000001

5942
5943
5944
5945
5946

$950

SEQ 0127

105037

026564
026566
026570
5977 026572

104455
000002
004536
006120

5978 026574

(04737

003514

007526

ENDTST
TRAP
TEST 3:

C$ETST

WRITE COMPATABILITY/WRITE UTILITY.

TEST TO WRITE RECORDS FROM BOT TO EOT.

003515

BGNTST

MOvB

11%:

#1,RANDOM

LET EXPBOT

:8=

;SET THE RANDOM OPERATIONS FLAG.

CLRB

EXPBOT

sCLEAR EXPECT BOT FLAG.

JSR
JSR
B8CS
ERRDF

PC,.FIRSTY
PC,SOFINIT
114
2.,NSSRM,STAERM

sFIND THE FIRST UNIT.
s INIT DEVICE

JSR

PC.MOSET

+GO DO SETUP'S

sREPORT TS0S NOT READY

TRAP
.WORD
.WORD
.WORD

CS$ERDF
2
NSSRM
STAERM

L10O

HARDWARE TESTS

TEST

MACRO V0S.03

Page 26 72
SEQ 0128

WRITE COMPATABILITY/WRITE UTILITY,

5979
5980
5981
5982
5983
5984
5985
5986

026600
026604
026606
026612
026616
026622
026626
026632

S087 026632

104422

5988
5989
5990
5991
9992
5993

026634
026634
026640
026642
026646
026650

020127
002003
004737
000772

5994
5995
5996
5997
5998
S999
6000
6001
6002
6003

Fridey 22 Mey 87 08:12

012702
005302
010237
005137
004737
004737
105037

004000

MOV
DEC
MOV

003430
003430
010222
010246
003526

GDATCNT
R2
R2
R2 , LENMSK

coM
L ENMSK
JSR PC,SETCH
JSR PC,SETRW

CLR8
504264: BREAK
504274 :

003740
026372

504304:

STAFLG

cHe
BGE
JSR
BR

R1,0SEQEND
504304
PC ,RANWR
S0427¢
oEND, (R1)
PC,EXALL
#CMOSEQ,R]1
R2
504264
ALLEOT

012711
004737
012701
005702
001761
105237
000240
000240
000240
004737

177777
010266
003540

027674

MOV
JSR
MOV
TS7
B8EQ
INCB
NOP
NOP
NOP
JSR

6007 026706
6008 026712

105037
004737

003524
010246

CLRB
ALLEOT
JSR PC,SETRW

ggi(l) 026722

004737

010266

6004
6005
6006

6009 026716

012711

177777

104432
000002

L1003S:

104401

.SBTTL

6022

iee

6027 026734

T4::

%23
24
6025
6026 026734

6028 026734

:CMD 1 = SET CHARACTERISTIC.
; CMD2=REWIND

STAFLG :8 = 00
;CLEAR START FLAG
; DO A SUPVSR BREAK FIRST.

MOV

SEND, (R1)

EXIT

Ts7T

C$BRK

;WHILE THERE IS MORE ROOM IN SEQ TABLE:
:STORE A WRITE CMD IN SEQUENCE TABLE.
;STORE END OF SEQUENCE COOE IN TABLE.
;EXECUTE ALL CMDS IN SEQ TBL ON UNITS.
;INIT SEQ TBL POINTER,
tREPEAT UNTIL EOT IS REACHED

;SET

ALL UNITS @ EQT FLAG

;WRITE ONE RECORD BEYOND EQT ON ALL UNITS

;S0 THAT SHORTER READ STOP DISTANCE
sSHALL POSITION HEAD IN CLEAN IRG GAP
;READ REV THAT EXTRA REC TO RE-POSITION TAPE
sCLEAR ALL UNITS @ EOT FLAG
;STORE REWIND IN SEQ TBL,

;STORE END IN SEQ TBL,

;EXECUTE REWIND CMD ON ALL

UNITS

TRAP
.WORD

C$EX]IT
L10035-.

TRAP

CHETST

.EVEN

ggg(l)

6029 026742

PC,TSWEOT

JSR PC,EXALL

6012

6013 026726
026726
026730
6014
6015
6016
6017 026732
026732
026732
6018
6019

;ALLOW MAXIMUM BUFFER.

TRAP

026650
026654
026660
026664
026666
026670
026674
026676
026700
026702

003524

;LET

;SET UP THE RECORD LENGTH MASK,

; TEST
8-

112737

000001

003515

003514

ENDTST

TEST

READ COMPATABILITY/READ UTILITY,

TO READ ENTIRE TAPE FORWARD AND REVERSE.

BGNTST

MOVB

MOVE

#1,RANDOM
01,EXPBOT

:SET THE RANDOM OPERATIONS FLAG.

:SET EXPECT B80T FLAG.

M10O

HARDUWARE TESTS
TESY

MACRO V0S5.03

Ffridey 22 Mey-87 08:12

Page 26 73

SEQ 0129

READ COMPATABILITY/READ UTILITY,
026750
026754
026760
026762
026762
026764
026766
026770

004737
004737
103404

017142

JSR
JSR
BCS

007072

ERRDF

;FIND THE FIRST UNIT.
s INIT DEVICE

PC.FIRSTU
PC,SOFINIT
114

;REPORT TSOS NOT READY

2 ,NSSRM,STAERM

TRAP

.WORD

.HORD
. WORD

026772
026776
027002
027006
027012
027016
027022
027026
027032

007526
010272
010246
003526
104001
004000
077777

11¢:

MOV

MOV
MOV
MOV
MOV
JSR
INCB

177777

010266
003524
003540
104401
004000
0771777

MOV

MOV
MOV

00000
177777
010266

027102

JSR
PC,MOSET
JSR PC,SETCH
JSR PC,SETRW
CLRB
STAFLG
;LET

027106
027106
027110

STAFLG

SDATENT, (R1)).
7,
(R}
07777
ORANP, (R1)OEND, (R1)
PC.EXALL
ALLEOT
#CMDSEQ,R1

OROR,

(R1)+

POATENT, (R1).

077777,(R1)PRANP, (R1)-

MOV
JSR

PEND, (R1)
PC.EXALL

EXIT

TST

CLR8

003524

ORDF , (R1)-

ALLEOT

:B=

;GO DO SETUP'S
;CMD 1 = SET CHARACTERISTIC.
;CMO2=REWIND.

;CLEAR

START

C$ERDF

NSSRM
STAERM

FLAG

;CMD3 = READ FORWARD.
sSET LENGTH TO MAX FOR UNKKNOWN LENGTHS.
$SET RECORD COUNT TO MAX FOR WHOLE TAPE.

sPATTERN

RANDOM.

;PATTERN

RANDOM.

;STORE END OF SEQUENCE CODE IN TABLE.
sEXECUTE ALL CMDOS IN SEQ@ TBL ON ALL UNITS.
:FLAG TO ALLOW ALL UNITS AT EOT TO READ REV
sINIT CMD SEQ TBL POINTER.
;CMD]1 = RFAD REVERSE.
:SET LENGTH TO MAX FOR UNKNOWN LENGTHS,
tRECORD COUNT = MAX FOR WHOLE TAPE.
:STORE END OF SEQUENCE COOE IN TABLE.
:GO0 EXECUTE READ REV. OF ENTIRE TAPE.
sCLEAR ALL UNITS @ EOT FLAG
TRAP

CSEXIT

TRAP

CS$ETST

TRAP

C4$ERDF

.WORD

L10036

.EVEN

027112
027112
027112

L10036:

104401

LSBTTL

ENDTST

TEST S:

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE.

; TEST TO EXECUTE
027114
027114

15::

027114
027120

105037
112737

003515
000001

027126
027132
027136
027140
027140

004737
004737
103404

017142
007072

104455

003514

OPERATOR SELECTED COMMAND SEQUENCE.

BGNTST
CLR8
MOVB

RANOOM
21 ,.EXPBOT

;CLEAR RAMDOM MOOE FLAG.
$SET EXPECT BOT FLAG.

JSR
JSR
8CS
ERRDF

PC.FIRSTU
PC,SOFINIT
114
2,NSSRM,STAERM

sFIND THE FIRST UNIT.
+INIT DEVICE
s+REPORT TSO0S NOT READY

N10

HARDWARE TESTS

TEST

MACRO VOS.03

Fridey

22 Mey-87

EXECUTE OPERATOR SELECTED COMMAND

027142
027144
027146

000002
004536
006120

027150
027154
027162
027166
027174
027200
027204
027210
027214
027220
027224
027230
027234
027240
027244
027250
027250

004737
113737
004737

007526
002216
010222

004737
004737
004737
004737
004737
004737
004737
005037
105037

027652
027652
027652
027652
027652
027652
027652
003442
003526

027250
027254

013737
012702

012701

021127
001574

003540

177777

062701
012137

000002
003444

003521

11%:

003542

JSR
JSR
JSR
JSR
JSR
JSR
JSR
CLR
CLRB

34
S04314:

1%:

003344

24:

000020

011137

003440

062701

000004

012727
000000
013727
000000
005367
001375
005367
001367
005337

000001

001361
062701
000715
004737

64:

= SET CHARACTERISTIC.

:MOVE CHAR CODE FROM P TBL TO SEQ TBL.
$1R2 POINTS T0 CMD2 IN SOFT P TABLE.
;MOVE CMD 2 FROM P TBL TO SEQ TBL.
sMOVE CMD 3 FROM P TBL TO SEQ@ TBL.
;MOVE CMD 4 FROM P TBL TO SEQ TBL.
iMOVE CMD S FROM P TBL TO SEQ TBL.

PC, mcnos
PC.PTCMDS
PC.PTCMDS
PC.PTCMDS
PC.PTCMOS
PC.PTCMDS
PC.PTCMDS
JLOOP
STAFLG

CMD 6 FROM P TBL TO SEQ TBL.
CMO 7 FROM P TBL TO_SEQ@ TBL.
END CMD FROM
P TBL T0 SEQ TBL.
JHP CHMD LOOP COUNT.

1CLEAR START FLAG
s INIT SEQUENCE TABLE POINTER.
sWHILE THERE ARE CMDS LEFT IN SEQUENCE TBLE:

6CMDSEQ, R1

OEND DO

(R1),0END
504324

oUMP.C.(R1)

02,R1
;LET R1
(Ri)+,uLOC

:= Rl

$IS THIS A UUMP CMD?
lBR IF NOT
02

zSAVE BRF

;POINT

(LOCATION).
BE

1AND GO TO NEXT

COMMAND.

oz R1

INC

JLOOP

DEC

JLOC

MOV

BEQ
ADD
BR
cMP
BNE

MOV

SATISFIED?

+IF NOT, JMP AGAI
sIF SO, ADWUST SEQ POUNTER

;UPDATE THE LOOP COUNT
s INIT CMD SEQ TABLE POINTER

#CMDSEQ,
R1

3%
#10,R1
24

;DECR LOCATION COUN
$1IF THIS IS THE RIGHT LOCATION T0 JMP T0,
s IF NOT, UPDATE SEQ POINTER TO NEXT CMD.
;00 IT AGAIN.

oou.c (R1)

sDELAY?

sR1 = LOCATION OF N COUNT.
:SAVE N COUNT,
1GO0 TO SUPER-WAIT 1 MSEC.

(R1),TIME2

DELAY
1

MOV
L.WORD
MOV
.WORD
DEC
BNE

177772
177756
003440

DEC

000004
a4

SO4334:

BNE
ADD
BR

JSR

DEC
BNE

TIME2

74
o4 ,R1
34

C,SETUP

{LET Rl

;WHILE NENT LT NCNT1 DO

GO SET

:BR IF NOT.

n R1

002116

011232

TO BRF.

tHAS LOOP COUNT

ADD

;CMO 1

CHAR cnoseo 2
6CMDD
,R

(R1) NE

2
NSSRM
STAERM

1GO DO _SETUP'S
sMOVE INHIBIT RFC ERROR REPORT FLAG.

cHe (91). JLOOP
BNE

ADD

000010

022711
001026

cHe
BEQ

ADD
MOV

003442

001751
062701
000772

iWHILE

CMP

003442

003540

MOV

BNE

005237

005337

SEQ 0130

JSR
PC,MDSET
MOVB
PIRE, IRE
JSR PC,SETCH

MOV
MOV

000002

012701

26-74

SEQUENCE
.

062701

000760

027416
027422

002220
002222

000040

022137
001003

Page

.WORD
.WORD
.WORD

022711

001024

08:12

:® Rl

1POINT

tGO CHECK b[XT CMD.

#1,(PC)O
L$DLY (PC)-

-6(PC)

-22(PC)
.-20
CMD.

1GO_SETUP
THE COMMAND B8LOCK
iWHILE THERE ARE RECORDS REMAINING:

B1l1l

HARDWARE TESTS
TEST

6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6130

MACRO V0OS.03

Friday 22-May-87 08:12

SEQ 0131

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE.

027422
027430
027432
027436
027442
027450
027452
027456
027456
027462
027466
027472
027472
027500
027502
027510
027512
027520
027522

027524
027524
027526
027526
027534
027536
027544
027546

023737
002103
004737
004737
023727
001002
004737

003412

004737
012702
004737

017540
0001701
017142

026527
001426

002604

177777

000400

003420

000002

003502

011124
010564
003420

003414

cHP
B8GE

NCNT ,NCNT1
504344
JSR PC,CMDAC
JSR PC,EXSUB
cHe
CHMOWRD, 0GES
BNE
504354
JSR PC,PRXST

100017

017452
S04354
:

027554
027556
027556
027562
027564
027572
027576
027602
027610
027612

6177 027624
6178 027624
6179 027630

;PRINT

JSR PC,CKHAE

JSR PC,FIRSTU

sWHILE DEVTBL(RS) NE #END DO

504364
:

DEVTBL(RS),
6END
504374
o100 . CO CMDWRD
50440
#X0. BOT EOTFLG(RS)
504414

S04414:

000411
000001

003502

000001

003420

504424

S04404;

EXTENDED

STATUS REGISTERS.

;CHECK HALT AFTER EACH CMD FLAG.
:SET ALL UNITS AT BOT/EOT.
;FIND FIRST UNIT.

s WHILE THERE ARE MORE UNITS:

i iF CMD IS REVERSE THEN:

;-F NOT AT BOT THEN:
;CLEAR EOT/BOT FLAG.
;ELSE IF CMD IS NOT REVERSE:

#X0.EO0T,EOTFLG(RS)

504434
OCHD CO CMOWRD

504434
.

CLR

;IF NOT AT EOT OR NOT A MOTION CMD THEN:
;LET R2 := 90
;CLEAR EOT/BOT FLAG.

504444
004737

504424
:

017210

000746

020227
001016
013737
005237

105237
023727

000001

003412
003414
003524
003426

JSR PC , NEXTU

;FIND NEXT UNIT

504364

504374:

R2,01

504454
NCNT ,NCNT1
NCNT1

003414

ALLEQT

000002

CMOLG,
#2
504464
JSR PC,T5We0T

027674

+IF ALL UNIT ARE AT EOT/BOT THEN:
:FORCE TERMINATION OF COMMAND.
sFLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D
sWHEN WRITING IS CURRENT COMMAND

1GO WRITE/READ REV ONE RECORD BEYOND EOT

S04464
:

027616

6173 027616
6174 027620
6175 027620

:IF CMD IS GET STATUS THEN:

6155 027550
6157 027550
027550

:STORE CMD ASCII IN ERROR MSG.

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

01,R2

6153 027546

6160
6161
6162
6163
6164
6165
6166
6167
6168
6169

Page 26 75

000402

105037

003524

005237
013737

003412
003420

504454
;
504474:
003424

504474

CLRB

ALLEOT

sWHEN NOT ALL 3€EO0T,

INC
MOV

NCNT
CMOWRD, PCMOWD

tUPDATE RECORD COUNT.

CLEAR FLAG

:SAVE PREVIOUS COMMAND WORD.

Cll

HARDWARE TESTS
TEST

MACRO V05.03

Friday 22 May-87 08:12

Page

26-76

SEQ 0132

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE
.

027636
027640
027640

027644
027646
027646
027646
027650

000671
004737

04344
016126

504334
JSR

000601

504324
:

104432

PC,VFYDAT

B8R

504314

EXIT

TST

;IF LAST CMC WAS A WRITE VERIFY, THEN GO
;VERIFY THE LAST N RECORDS OF DATA.

TRAP

000140

.WORD

;
:
:
i
:
:
027652
027654
027656
027660
027664
027666
6204 027670
027672

B8R

012203
005303
006303
016321
012221
012221
012221
000207

027674
027676
027700
027704

000240
000240
004737
004737

010564
017540

027710
027714
027722
027730
027736
027744
027752
027760
027766
027772
027776
030002
030004
030006

012700

000002

012737
012737
013737
042737
013737
013737
004737
004737
004737
005300
001343
000207

104401

013737

003420
003420
0C4000
002330
003410
011124
010564
017540

SUBROUTINE TO MOVE A COMMAND FROM THE SOFTWARE P TABLE TO
THE COMMAND SEQUENCE TABLE.
INPUTS:
R2 = POINTER TO SOFT "P" TABLE
OUTPUTS:
REGISTERS:
R3.
CALLS:

PTCMDS : : MOV
DEC
ASL
MOV
MOV
MOV
MOV
RTS PC

003752

(R2)+,R3
R3
R3
CMDTBL(R3),(R1)(R2)+,(R1)(R2)+,(R1)(R2)+,(R1)-

003420
003426
002330
002330
003422
002332

;R3

COMMAND TABLE INDEX.
;MOVE
;:MOVE
;MOVE
sMOVE

COMMAND WORD.
& OF BYTES.
0 OF OPERATIONS.
PATTERN CODE.

%328?gTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT

:
:
:

OUTPUTS:
REGISTERS:

TSWEOT::

NOP
NOP
JSR PC,EXSUB

CALLS:

CMDAC ,EXSUB, CKHAE

JSR PC,CKHAE

003424

1%:

C$EXIT

L10037-.

MOV

MOV
MOV
MOV
BIC
MOV
MOV
JSR
JSR
JSR
DEC
BNE
RTS

#2,R0

CMOWRD , PCMDWOD

sWRITE ONE RECORD BEYOND EOT
3SO THAT READ SHORTER STOP DISTANCE

sSHALL POSITION HEAD IN CLEAN IRG GAP
;SET UP COUNTER FOR EOT

sLET PCMOWD

:= CMOWRD

s+REPOSITION TAPE

SRDR , CMDWRD
;LET CMOWRD := ORDR
;BEFORE EXTRA RECORD
o4, CMOLG
:8Y READING REVERSE
CMOWRD , CMDPKT
sLET CMOPKT := CMOWRD CLR.BY OBRF.C
PBRF
. C, CMOPKT
CMDPKT ,CMDSAV
;LET CMDSAV := CMDPKT ;THAT RECORD TO ALLOW
DATARD, CMOPKT«CP . ADL
sNEXT COMMAND IN THE
PC,CMDAC
; TABLE TO BE EXECUTED
PC,EXSUB
PC,CKHAE
RO
;FOUND EOT YET?
14
;s NO,KEEP GOING
PC
s YES ,RETURN

EVEN

MACRO V0S.03

Friday 22 May-87 08:12

Page 26

SEQ 0133

EXECUTE OPERATOR SELECTED COMMAND SEQUENCE.

6235 030010
030010
030010
6236
6237 030012
6238
6239
6240
€241
6242
6243 030012
6244
6245
6246

L10037:

104401

ENOTST
TRAP

C$ETST

ENDMOD

.TITLE PARAMETER CODING
.SBTTL

HARDWARE PARAMETER CODING SECTION
BGNMOD

TEST

TESTS

D11

HARDWARE

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P TABLES.
THE

MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

®s

6247

BGNHRD

.WORD L10040-L $HARD/2

L$HARD:
:

000031
030052
160010
177564

6257

001032
030067
000777
000060
000776

6258

GPRMA

TSSADR,0,0,160010,177564,
YES

GPRMD

TS5v(CT1,2.0,777,60,776,YES

GPRMD

002022

TSSUNT ,4,0,1,0,1.N0

030076
000001

EXIT HRD

024004

030052
030076

124
126
123

123
105
105

104
103
114

TSSADR
TSSVCT:
TSSUNT
:

030120
030120

.NLIST
.ASCIZ
.ASCIZ
.ASCIZ
.LIST
.EVEN

T4CO0E
TSSADR
T4LOLIM
T4HILIM

. WORD
. WORD
.WORD
.WORD
WORD

T4CODE

. WORD
.WORD
.WORD
. WORD
. WORD

T4CODE
TSSUNT
1
TSLOLIM
TSHRILIM

. WORD

T$CODE

BEX

/TSDB ADDRESS/
/VECTOR/
/SELECT DRIVE O

BEX

ENDHRD
L10040:

.SBTTL

. WORD
.WORD
.WORD
. WORD

SOF TWARE PARAMETER CODING SECTION

.EVEN

TSSVCT

777
T4LOLIM
T$HILIM

PARAMETER

CODING

MACRO

V0S.03

Fridey

May

“

08:12

Page

<€Q 0134

SOF TWARE PARAMETER CODING SECTION
6271
6272
6273
6274
6275
6276

jee
: THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS
i THAT ARE USED BY THE SUPERVISOR TQ BUILD P TABLES
THE
i MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE

6277
6278

6279
6280
6281 030120
030120

000302

6282 030122
030122

000130

030122
030124

030126
6283 030130
030130
C30132
030134
6284 030136
030136
030140
L0142
6285 030144
0301<¢
030146
030150
6285 030152
030152
030154
030156
6287 030160
030160
6288 030162
030162
030164
030166
6289 030170
030170

030172
030174

6290 030176
030176

030200
030202

6291 030204
030204

030206
030210
6292 030212
030212

6293 030214
030214
|

; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
; WITH THE OPERATOR.

030216
030220

BGNSF
T

L$SOFT:

GPRML

.WORD L1004) L$SOFT/2
CLRM,0,1,YES

030726

000001

000130
030745
000400

001130
031050
000400
001130
030774
000C01

003130
031124
000400
004024
002130
031020
000001
003130

NEXTSP:

GPRML

RRVM, 0,800, YES

GPRML

RCVERM, 2,400, YES

GPRML

HAEM.2.1.YES

GPRML

IRECM,6,400,YES

XFERT

NEXTSP

GPRML

BADTM.4,1.YES

GPRML

DINTM,6,1,YES

031101

000001

005130
031171
000001
004130
03114S
000001
127044

006032
031222
000377

GPRML

IREM.12.1.YES

GPRML

CHGM,10,1,YES

XFERF

ENDSP1

GPRMD

CHARM,14,0,377,0,777,YES

.WORD

T$CODE

.WORD

CLRM

.WORD
.WORD
.WORD

T$CODE
RRVM
400

_WORD
.WORD
.WORD

T$CODE
RCVERM
400

.WORD
.WORD
WORD

T$CODE
HAEM
1

.WORD
.WORD
.WORD

T$CO0E
IRECM
400

.WORD

T$COODE

.WORD
.WORD
.WORD

T$CODE
BADTM
1}

.WORD

T$COOE

.WMORD

DINTM

.WORD
.WORD
LWORD

T$COOE
IREM
1

.WORD
.WORD
LWORD

T$CODE
CHGM
1

.WORD

T$COOE

.WORD
.WORD
.WORD

T$CODE
CHARM
377

.WORD

F11

PARAMETER

CODING

MACRO VO0S.03

Fridey 22 Mey-87 08:12

Pege 26-79

SEQ 0135

SOF TWARE PARAMETER COODING SECTION

030222
030224
6294 030226
030226
030230
030232
030234
030236
6295 030240
030240
030242
030244
030246
030250
030252
030252
030254
030256

6297

000000
000777

007052
031247
000037
000001
000033

TSLOLIM
T4HILIM

GPRMOD

CMD2TMM,16,0,37,1,33,YES

T$LOLIM
TSHILIM

BPCRM,20,0,-1,1,DATCNT,
YES

010052
031255

T$C0DE

BPCRM
1

177777

000001
004000

TS$LOLIM
TSHILIM

011052
031267

T4C00DE

NUMBM
1
TSLOLIM

177777

000001

077777

PATTM,24,0,17,0,10.YES

012052
031307
000017
000000
000010

CMO3M,26,D0,37,1,33,YES

013052
031416
000037
000033

T4C00E

CHMO2H
37

GPRMD

BPCRM,30,0,

1,1,DATCNT,YES

TSHILIM

T4CO0E
PATTM
17
TSLOLIM
T4HILIM

TSHILIM
T4CO0E

BPCRM

6300

015052
031267

NUMBM,32.0,-1,1,77777,YES

177777

6301

6302

6303

000001
077777

016052
031307
000017
000000
000010
017052
031424
000037
000001
000033

1
TSLOLIM
THHILIM
T4CO0E

PATTM,34.D0,17,0,10,YES

T4LOLIM
T4HILIM

T4CODE
PATTN

CMD4aM,36,0,37,1,33,YES

BPCRM, 40,0,

1,1,DATCNT,YES

T4LOLIM
THHILIM

T4LOLIM
T4HILIM

G1l1

PARAMETER

CODING

SOF TWARE

PARAMETER

030360
030362
030364
030366
030370
6304 030372
030372
030374
030376
030400

6305

6306

6307

MACRO VOS.03
CODING

Fridey

22 May

87 08:12

Page

26-80

020052
031255
177777

000001
004000

GPRMO

021052

NUMBM,42,0,-1,1,77777,YES

031267
177777

000001
077777

GPRMO

022052
031307
000017
000000
000010

GPRMD

023052
031432
000037
000001
000033

GPRMD

024052
031255

PATTM,44,0,17,0,10,YES

CMOS5M,46,D0,37,1,33,YES

BPCRM,50,0,

1,1,DATCNT,YES

177777

6308

000001
004000

GPRMD

025052
031267

NUMBM,S52.0,-1,1,77777,YES

177777

6309

6310

6311
6312

6313

000001
077777

GPRMD

026052
031307
000017
000000

000010

002004

076004
027052
031440
000037
000001
000033
030052
031255

1777717

000001
004000

SEQ 0136

SECTION

PATTM,54,0,17,0,10,YES

XFER

ENDSP2

ENDSP1:

XFER

ENDSP3

ENDSP2:

GPRMD

CMDO6M,56,D0,37,1,33,YES

GPRMD

BPCRM,60,0,-1,1,DATCNT,
YES

. WORD
.WORD
. WORD
.WORD
. WORD
.HWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

-WORD
.WORD

T4CO0E

BPCRM

1
T4LOLIM
THHILIM

T4COOE

NUMBM
1

T4LOLIM
T4HILIM

T4CO0E
PATTM

T4LOLIM
TSHILIM

T4CODE

CMOSHM
37

TSLOLIM
THHILIM

T4CODE
BPCRM
1

TSLOLIM
T4HILIM

T$CODE

NUMBM
1
T4LOLIM
T$HILIM

T4C00E

WORD

PATTM
17

.WORD
. WORD

TSLOLIM
TSHILIM

.WORD

T4$COOE

.WORD

T4CODE

.WORD
.WORD
.WORD
.WORD
.WORD

T4CODE

.WORD
.WORD
. WORD
.WORD
.WORD

cMO6M
37
TSLOLIM

THHILIM

T4CODE

BgCRH

TSLOLIM
T4HILIM

H11

PARAMETER CODING

MACRO VOS5.03

Friday 22-May-87 08:12

Page

SEQ 0137

SOF TWARE PARAMETER COOING SECTION

6314 030516
030516
030520
030522
030524
030526
6315 030530
030530
030532
030534
030536
030540
6316 030542

030542
030544
030546
030550
030552
6317 030554
030554
030556
030560
030562

030564
6318 030566
030566
030570
030572
030574
030576
6319 030600
030600
030602
030604
030606
030610
6320 030612
030612
030614
030616
030620
030622
6321 030624
030624
030626
030630
030632
030634
6322 030636
030636
030640
030642
030644
030646
6323 030650
030650
030652

031052
031267
177777
000001
077777
032052
031307
000017
000000
000010
033052
031446
000037
000001
000033

034052
031255
177777
000001
004000
035052
031267
1771777
000001
077777
036052
031307
000017
000000
000010

037052
031454
000037
000001
000033
040052
031255
177777
000001
004000
041052
031267
177777
000001
077777

042052
031307

GPRMD

NUMBM,62,D,-1,1,77777,YES

GPRMD

PATTM,64,D0,17,0,10,YES

GPRMD

CMD7M,66,D0,37,1,33,YES

GPRMO

BPCRM,70,D.

GPRMD

NUMBM,72.0.-1,1,77777,YES

GPRMD

PATTM,74,0,17,0,10,YES

GPRMD

CMD8BM,76,D0,37,1,33,YES

GPRMD

BPCRM,100,D,-1,1,DATCNT,YES

GPRMO

NUMBM,102,0,

GPRMD

PATTM,104,0,17,0,10,YES

1,1.DATCNT,YES

1,1,77777,YES

.WORD
.WORD
.WORD
.WORD
.WORD

T$COOE
NUMBM
-1
T$LOLIM
THHILIM

.WORD
.WORD
.WORD
.WORD
.WORD

T$CODE
PATTM
17
T$LOLIM
THHILIM

.WORD
.WORD
.WORD
.WORD
.WORD

T$CODE
CMO7M
37
T4LOLIM
THHILIM

.WORD
.WORD
. WORD
.WORD
.WORD

T4CODE
BPCRM
-1
TSLOLIM
THHILIM

.WORD
.WORD
.WORD
.WORD
.WORD

T$CODE
NUMBM
1
T4$LOLIM
TS$HILIM

.WORD
.WORD
. WORD
.WORD
.WORD

T$CODE
PATTM
17
TH$LOLIM
TS$HILIM

.WORD
.WORD
.MWORD
.WORD
.MORD

T$CODE
CMOBM
37
T$LOLIM
THHILIM

.WORD
.WORD
. WORD
LWORD
.WORD

T$CODE
BPCRM
-1
T4LOLIM
THHILIM

.WORD
.WORD
. WORD
.WORD
.WORD

T4$CODE
NUMBM
1
TH4LOLIM
THHILIM

.WORD
.WORD

T4CODE
PATTM

111

PARAMETER

CODING

MACRO VOS.03

Fridey

22 Mey

87 08:12

Pege

26 82

SEQ 0138

SOF TWARE PARAMETER CODING SECTION

6324
6325

6326
6327

6328

030654
030656
030660
030662
030662
030664
030664
030666
030670
030672
030672
030674
030674
030676
030700
030702

030702

6329 030704
030704
030706
030710
030712
030712
030714
030714
030716
030720
030722
030722
030724
030724
030726
030726

000017
000000
000010
022004

043130
031317
000001

ENDSP3:

016024

046130
031407
000001
011024

045130
031367
000001

002004
001004

ENDSP

GPRML

TSMD,106,1,YES

XFERT

ENDSP

roum

FAST.114,1,YES

XFERT

ENDSP4

GPRML

WTBF.112,1,YES

XFERT

ENOSP

GPRML

ROBF ,110,1,YES

ENDSPS:

XFER

ENDSP

ENDSPA;

XFER

ENDSP

006024
044130
031350
000001

XFER

ENDSP:

030726

L1004]1:

030726
030745
030774
031020
031050
031101
031124
031145
031171
031222
031247
031255
031267
031307
031317
031350
031367
031407

CLRM:

RRVM:

HAEM:
BADTM:
RCVERM:

DINTM:
IRECM:

CHGM:

IREM:

CHARM:

CMO2M:
BPCRM:

PATTM:
TSMO:

WTBF:

FAST:

ENOSFT

17
T4LOLIM

.WORD

T$CO0E

.WORD
.WORO
.WORD

T4COCE
TSMD

.WORD

T4CO0E

.WORD
.WORD
.WORD

FAST
1

. WORD

T4C0ODE

.WORD
WORD
.WORD

WTBF
1

.WORD

T4CO0E

.WORD
. WORD
.WORD

T4C00E
RDBF

.WORD

T4C00E

. WORD

T4C0O0E

.EVEN

CNLIST
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIc
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCT12Z
ASC.i2Z
LASCIZ
LISsT

.WORD
.WORD
.WORD

BEX

/CLEAR COUNTERS/
/RESET RANDOM VARIABLES/
/HALT AFTER EACH CMD/
/BAD TAPE SPOT DETECTION/
/PRINT RECOVERABLE ERRORS/
/DISABLE INTERRUPTS/
/INHIBIT RECOVERY/

/CHANGE CMD SEQUENCE/
/INHIBIT

RFC ERROR REPORT/

/CHARACTERISTICS CODE/
“CMD/2"

/BRF COUNT/
/9 OF OPERATIONS/
/PATTERN/
/DEFAULT SWITCH SETTINGS?/
/READ BUFFERING/
/WRITE BUFFERING/

/100ips/

BEX

TSHILIM

T4C0DE

T4CO0E

J11

PARAMETER

CODING

MACRO V0S5.03

Fridey 22 May

87 08:12

Page 26 83

SEQ 0139

SOF TWARE PARAMETER CODING SECTION
6358
6359
6360
6361
6362
6363
6364
6365
6366

6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378

_EVEN

031416
031424
031432
031440
031446
031454

103
103
103
103

103
103

032000
032002
032004
6386 032004
6387
6388
6389
6390
6391
6392
6393
63954
6395

6396
6397

6399 032016
032016
6400 032016

6401
6402

115
115

108
104
104
108

104
108

CMD3M:
CMDaM:
CMOSM:
CMO6M:

CMOTM:
CMOBM:

:
:
:

NLIST
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ

ASCIZ
.ASCIZ
LIST
"EVEN

BEX
"CMD/3"
~CMO/4*
“CMD/S"
"“CMD/6"

“CMO/7*
“CMO/8"
BEX

COOECSCEOO O PO OPEPERPPOOOES SISO

EPO PR

ECCOCO PSS

OOE

OIS

EPE SO

P OIS EPPOSPCCPOOPPCPOPOPOOOOOY

OIS COCOCSESPSPSOSCCOOOSPPOSOOPPESOOSOIPOS

PATCH AREA
AND AN ADJUSTMENT TO ACCOUNT FOR THE *LASTAD BIT7* HACK
DESCRIBED IN "SUPPRG.MEM" (FOR REV C).

6379 031462

6380
6382
6384
6385 032000

115
115
115
115

PATCH::

032000

.BLKW

64,

e 137741

LASTAD
000000
000000

LSLAST:;

_SBTTL

.EVEN
‘WORD
‘WORD

O
©

¢HARD CODED P TBL

iDIAG IS PRE PARAMETERIZED PER TBL
000000
000003

172522

BONSETUP 1
BGNPTAB
L10042:

000224
000000

L10044;
000001

172522

224
0

.END

ENDPTAB
ENDSETUP

WORD
'WORD

O
L10044

./2-1

PARAMETER

Symbol

ACK.C

CODING

100000 G

ALLEOT
ASSEMB=

003524 G
000010

AUDRPM

005114 G

= 000020 G

ATTNM

004603 G

AUDRUN
AUTODM
BADTM
BADTSW
BENBSW

005146 G
023644
031020
002210 G
002326 G

BFSEQO

025134

BFSEQ

025110 G

BFSEQLl

025206

BFSEQS

025604

BFSEQ2
BFSEQ@3
BFSEQ4
BFSEQS
BFSEQ6
BFSEQ7
BFSEQ9
BFSE10
BGNFLG=

B8INC

SEQ 0140

C4TPRI=

000013

EXPBOT

003514 G

BTMSG2
BTMSG3

015237
015307

CRLFSP
C1CcC

005744 G
003450 G

DATAWT
DATCNT=

003406 G
004000 G

EXTFEA
E$END =

002322 G
002100

DEVTIBL

002604 G

8TPT

BTRPY
810
BT}
812
813
CHAR

CHARM

CHGFLG

003512 G

020224 G
003046
003120
003172
003244
002220

031222

G
G
G
G
6

002214 G

031145

CKHAE
017540 G
CKHRTN
017626
CLN
= 101012 G

CKDFF

016112

B8IT02

000004 G

B8IT0S
8IT06
8IT07
BIT08
8IT09
8ITl1
B8IT10
B8IT11
8IT12
B8IT13
B8IT14

=
=
=
=
=
=
=
=
=
=
=

G
G
G
G
G
G
G
G
G
G
G

8IT2

= 000004 G

000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
8IT1S = 100000

B8IT3

= 000010 G

8IT7
8IT8

= 000200 G
= 000400 G

BPCRM
BRCPK

26 84

000006 G

025636
025660
003460

BITO3 -~ 000010 G
B8IT04 = 000020 G

BORERS

Page

CP.CN"=

015152

CHKERR
CH._EAI=
CH.ERI=
CH.ESS=
CKDATA
CKDCNT

81700 = 000001 G
B8IT01 = 000002 G

8IT9

87 08:12

002616 G

025220
025312
025364
025426
025500
025552

= 000001 G

B80E

22 Mey

BYADDR

BTMSGl

CHGM

8IT0

BIT4
BITS
8176

Fridey

tsble

ADR

MACRO V0S5.03

= 000020 G
= 000040 G
= 000100 G

= 001000 G

= 000400 G

015356 G

031255
002344 G

BRFCNT
003416 G
BRF.C = 004000 G

013250
000040
000020
000200
016526
017136

6
G
G
G
G

017140

CLRERR

012724 6

CLRM
CMDAC

030726
011124 G

CLRFLG
CMDASC

CcMDO
CMOLG

002204 G

004040 G

002222 G
003426 G

CMOPKM
CMOPKT
CMDSAV
CMDSEQ@
CMDSEZ2
CMOTBL
CMOWRD
CMD.CO=
CHMD.Cl=
CMD.C2=
CMD.C3=

004346
002330
003422
003540
003550
003752
003420
000001
000002
000004
000010

cMD2M

031247

CMD.Ca=

000020 G

cHMD3M

031416

CMO7M
CHMOSM

031446
031454

CMD4M
CMOSM
cMO6M

G
6
G
G
G
G
G
G
G
G
G

031424
031432
031440

CNTBGN= 002626

CRLF

005741 G

CvC.C = 040000 G

C4AU

= 0000S2

C$AUTO=
C$BRKX =
C$8SEG=
csBsuB=
C$CEFG=

000061
000022
000004
000002
000045

CsCLCK= 000062
C$CLEA= 000012

OFPTBL
OF TSCH=
DIA
s
DIABLK=
DIACNT=

005752 G
002174
000040
100006
003406
000020

DIAGMC= 000000

G
G
G
G
G

002212 G

000006
000036
000044
000051
000024
000053

oLY
=
OLY.C =
DRI
s
DROPDM
DROPED
DROPN

000020
C00020
100013
005065
003522
017450

CS$ERDF
= 0000SS
C4ERHR= 000056
CS$ERRO= 000060

DROPUA
DRORTN
DTAERM

C$ERSO= 000057

DTAERS

CsCLOS= 00003S

C4CLP1=
C4CVEC=
C$DOCLN=
C$000U=
C40RPT=
CsOU
=

C$EDITs 000003

CS$ERSF= 000054

CS$ESCA= 000010
C4ESEG= 000005
C$ESUB=

000003

C4GETB=
C4GETUW=
C$GMAN=
C4GPHR=
C4GPLO=
C$GPRI=
C$INIT=
C4INLP=
C$MANI=
csMEM =
C$MSG =

000026
000027
000043
000042
000030
000040
000011
000020
000050
000031
000023

C$ETST= 000001
C$EXIT= 000032

CS$OPEN=

000034

C$PNTB= 000014

DINTM

031101

CODELM 004162 G
CP.ADH= 000004 G

C$RPT = 000025
C$SEFG= 000046
C$5PRI=
C4SVEC=

00004)
000037

FUNRM
F$AU

031407

204642
017142
000040
000100
003366

000015

F $AUTO= 000020

F$PWR = 000017

005226 G

005337 G
005360 G

.CON= 000036 G

EF .HSS= 000040 G
EF .NEW= 000035 G

F$INIT= 000006

F$PROT= 000021

F$RPT = 000012
F$SEG = 000003
F$SOF
T

00000S

F$SW
=
FSTEST=
GCMDA
GENPAT
GES
=
GETSTM
Gl
GOWAIT
GSCPK
G$CNTO=
GS$DELM=

000014
000001}
011176
011616
100017
005507
012110
012424
002340
000200
000372

F$SRY = 000010
F$SUB = 000002

EF .PWUR=
EF .RBO=
EF .RES=
EF .RWB=
EF .STA=
EINC
END
s
ENDERF=
ENDFLG=
ENDSP
ENDSP]1

000034
000020
000037
000030
000040
016120
177777
003472
003526
030726
030470

ENDSP3

030664

ENDSPS
EOTFLG
ERCVER

030722
003502 G
002207 G

G$LOLI= 000001
GINO
= 000000
G$OFFS= 000400

100411 G

G$PRMD= 000002

ENDSP2

G
G
G
G
G
G

030472

003466 G
003471 G

ERS

EVL

s 000004 G

ERSFLG
EXALL
EXARTN

EXCRTN
EXCUTE

003525 G
010266 G
010562
012422
012114 G

G
G
G
G
G

004622 G

005275 G

DTAER2

ERLOG
ERRREC

CSRFLA= 000021

FATSM
FIRSTU
FHMT.CO=
FMT . Cl=
FTLCNT

000050
000000
000011

CS$RDBU= 000007
C4REFG= 000047

C4RESE= 000033

FAST

FsUP =
F$M00 =
F$MSG =

017240 G

E4L0AD= 000035

017364
017442
005752 G

DROPUY

OTAER4
OTAERS

010564 G

000040
000007
000016
000041
000004
000013

ENDSP4 030724

C4PNTS= 000016
C4PNTX= 00001S
C4QI0 = 000377

G
G
G
G
G

£X5' B

F$8GN =
F$CLEA=
F$DU
=
FS$END =
F $HARD=*
FsHad
=

C4PNTF= 000017

C$REVI= 000003

CP.ADL= 000002 G
CP.CMD= 000000 G

DATERM

003410 G

DINT

CNTEND= 003376

CNTLEN= 000550 G

DATARD

G4$D1ISP=

G
5
G
G
G
G

000003

GS$EXCP= 000400

G$HILI= 000002

G$0OFSI= 000376
G$PRMA= 000001
GS$PRML=

G$RADA= 000140

G4$RADB= 000000
G$RADD= 000040

G$RADL= 000120
G$RADO= 000020

——

1 L11

PARAMETER

Symbol

COOING

MACRO

VOS.03

Fridey

Mey

08:12

Pege

26-85

SEQ 0141

teble

GS$XFER= 000004

LsCCP

002106 G

L10012

023352

NSSRM

004536 G

RAWTM

026430 G

HAE
HAEM

L$CO
LSOEPQ

002032 G
002011 G

L10014
L1001S

024036
024110

NURTY1
OFLINM

005422 G
005456 G

ROBF
RDBUF

031350
002314 G

GS$YES

HALTM

HELP

HOE

HROCNT

HSSW

000010

002206 G
030774
004300

L$DESP

003356 G

L$DISP

* 100000 G
002320 G

IER
IE.C

s 020000 G
= 000200 G

INITIO

L$DESC

000000

1BE

I0V

LSCLEA

010000 G

= 000040 G

LSDEVP

LDV
L $DUTY

L$ENVI
L$ETP
L$EXPL

IRE
IREC

003521 G
002213 G

IRECH

IREM
ISR
=
IXE
=
I$AU
«
I$AUTO=

031124

031171
000100 G
004000 G
00004}
000041

IS$CLN = 00004]

Is0LU
=
J$HRD ~
I$INIT=
I$4M00 =

00004])
000041
000041
000041

I$MSG = 000041
I4PROT= 000040

024514

O4BGNR=

0000

L10025
L10026

024554
024574

010U
= 000001
O$ERRT= 000000

002052 G

L10030

024534

= 000001

RECRED
RECTAP

04BGNS= 000001
O$GNSW= 000001

REV

002324 G

RERM
RETRYC

LSEXPS
L$HARD

002066 G
030014 G

L1003S
L10036

026732
027112

PATRO
PATR)

011702 G
011740 G

RLEXM
004556 G
RNF
» 125401 G

L$HPCP
L$HPTP
L$HM
Ls$ICP
L$INIT

002016
002022
002174
002104
021364

G
G
G
G
G

PATRS
PATRA
PATRS
PATRG
PATR?

011770
012014
012026
012040
012060

LSLAST
L$LOAD
LSLUN
L$MREV

032004
002100
002074
002050

G
G
G
G

PATTBL
PATTM
PCMOWD
PIRE

011660
031307
003424 G
002216 G

L$PROT

021356 G

L$EXPE
L$HIME

L$LADP

002064 G
002120 G

002026 G

002000 G
002042 G

002112 G
002062 G

L10034
L10037

L10040
L10041
L10042
L10044
MBR
s
MOSET

0$POIN= 000001

026536

PATERN

030010

030120
030726
032010
032016
100012 G

007526 G

MO0 .CO=
M0D.Cl=

023250
003531 G
000400 G
001000 G

MOVMSG

012774 G

MISCFG

PATR2

PATRS

003446 G

011760 G

G
G
G
5
G

012112 G

003444 G
003442 G

L$STA
L$SW

002030 G
002204 G

J¥.C = 000040 G
JEP = 000167

L$TIML
LSUNIT

LOE
=
L0G
Lov
=
LSACP
LSAPT
L$AY
L $AUT
L$AUTO

L1000l
L10002
L10003
L10004
L1000S
L10006
L10007
L10010

LENMSK

003430 G

040000
015626
000010
002110
002036
024112
002070
023354

G
G
G
6
G
6
G
G

L10000

002014 G
002012 G

002202

002330
006116
007070
010100
010106
010114
010122
021354

003517 G

RPT1E
RPTLF

021117
020775

RPT1A
RPT18
RPT1C
RPTID

020472
020547
020620
020671

021234
002205 G

PRIO2 = 000100 G

PRIO6 = 000300 G
PRIO7 = 000340 G

002114 G

RPTFLG

G
G
G
G
G

RPTIK
RRANV

002544 G

002434 G
002454 G

L$TEST

177740 G

= 105401
RNYM
004753
RPF
= 105001
RPR
s 125001
RPTCNT
00

021243

MSGPK2
MSGPK3

002024 G

RNOPSC=

RPTII

002056 G
002020 G

L$SPTP

003036 G

PRIO1 = 000040 G

PRIOO = 000000 G

L$SPC
L$SPCP

030122 6

002726 G
004521 G
003026 G

MSGCNT= 000020 G

PRIO3 = 000140 G
PRIO4 = 000200 G

L$SOFT

RFUNR

015532 G

PNT
PRI

MSGPKA

= 001000 G
= 002000 G

REWRT

MOD.C2= 002000 G
TM00 .C3= 004000 G

002354 G
002374 G

= 000040 G

005017 G
003460 G

RFBC
RFCERM
RFREC

024634

MSGPKXT
MSGPKO

010124 G

013060 G

000000
003326 G
031462 G

LSREPP

IS$TST = 000041

007066

RECUD

002010 G
017630 G

J0C
JA 00P

003465 G

04SETU=
PASCNT
PATCH

I$SRY = 000041
FIsSUB = 000041

= 00004}

RECLOG

0sAY

003376 G

024654
024712
025076

LS$REYV
L$RPT

I$SFT

00C000

024474

RECCNT

L10031
L10032
L10033

I4SEG = 000041
I4SETU= 000041

000041

Q4APTS=

oPP.C = 020000 G

104001

104401

002044 G
002102 G
002046 G

L$PRY

024614

I4PUR = 000041
I$RPT

024040 G
002072 G
002164 G

RDOR

L10027

LS$EF

L$NAME
L$PRIO

I$PTAB= 000041

L10024

031050

ROF

024430

0OC0001

RCVERM

003536 G

024454

L10023

031267

ONEFIL=

L1002]1

002034 G

002040 G

024214

OPFLAG

L$OTYP

L$DTP

NUMBM

025702

L10022

002124 G

0236472

L10017

002116 G

021702
003472 G
000340 G

007764 G

110016

LeDLY

INITi6
INTFLG
INTPRI=

INVRT

002C76 G

L10020

L$DVTY

021662

002136

L10013

002060 G

021364

INIT1S

023776 G

MSGPK]1

002414 G

MS.RFC= 000004 G

MS . XSO0= 000006 G
MS.XS1l= 000010 G

MS.XS2= 000012 G

MS.XS3= 000014 G
MS.XS4= 000016 G

NCMD.C=

NCNT
NCNT1
NEXTSP
NEXTU
NINUSE=
NOODEV
NOINTM
NRDYM

177740 G

003412
003414
030170
017210
177774
005543
004670
023740

G
G

G
G
G
G

PRIOS = 000240 G

RPTIG

RPT1U

RRBC

021046
021147

002666 G

RRECL = 000020 G
RRREC
003006 G

PRXST

017452 G

RRUNR

003016 G

RANB

003432 G

RTLRTN

014674

PTCMDS
PURFLG

027652 G
003527 G

RANBC = 153624 G
RANCMD 026220
RANDOM

003515 G

RANP
= 000007 G
RANRD
026260 G
RANS
003434 G
RANSC = 032561 G
RANUY
026504 G
RANUR
026372 G
RANWY
026416 G
RASFR
026456 G

RRVM
RTLE

030745
014550 G

RUCPK
002350 G
RWD
= 102010 G
RWERR

RSSAVE
SCCONT
SCERMt
SCH
=
SCHBK
SCHCNT=
SEQEND
SETCH

003467 G

003452
003336
004475
140004
002474
000012
003740
010222

G
G
G
G
G
G
G
G

PARAIE TER

Symbol
SETDEF

SETRU

SETUP
SFF
=
SFPTBL
HSFR
=
SOFINI
SRF
s
SRR
=
STAERM
STAER]1
STAER2
STAERS
STAER4
STAERS
STAERG
STAER?
STAFLG
SVCGBL=
SVCINS=
SVvCSuUB=
SVCTAG=
SVCTST=
SWBFLG
SWB.C =
SWSET
SILSYM=
TCCRA

MACRO

VOS.03

08:12

Page

SEQ 0142

T$HILI=

000010

024216 G

WRTYCT

003316 G

011232
105010
002204
105410
007072
104010
104410
006120
006436
006616
006675
006733
006753
006562
006530
003526
000000
000001
000000
000000
000000
003520
010000
004231
010000

TSAM
TSBA
=
ISC.FC=
ISC.7C=
1508
TSHD
TSNP
TSSR
TSSREG
TSUNT
TSvCY
7S.R16=
1S.A17=
TS.NBA=
TS.NXM=
1S.0FL=
TS.RMR=
15.5C =
1S.SPE=
TS.5S5R=
1S.UPE=
7S1MD
TSSADR
TSSCL
TSSINT

004705
002514
177717
177761
002514
031317
003534
002524
003454
003532
002534
000400
001000
002000
004000
000100
010000
100000
020000
000200
040000
002312
030052
002564
002554

T$LOLI=
T$LSYM=
TS$LTNO=
TENEST=
T4NSO =
TE¢NS]1 =
TINS2 =
T$PCNT=
T$PTAB=
T$PTHV=
T$PTNU=
T$SAVL=s
T4SEGL=
T4SIZE=
T4SUBN=
T$TAGL=
T$TAGN=
TSTEMP=
T4TEST=
T41STM=
T$T1STS=
T$4AU =
T$$AUT=
T¢$CLE=
T$$DAT=

000000
010000
000005
177777
000000
000005
000002
000000
010043
000001
000001
177777
177777
000005
000000
177777
010045

177777
000001
010016
010013
010014
010044

T1.1
T1.10
T1.11
T1.12
11.2
71.3
T1.4
11.5
T71.6
T1.7
71.8
71.9
T2
T3
T4
15
TSWEOT
UAM
=
UNIWLK
=
UNREC
URERM
VFEXC
VFISU
VFYCNT

024226
024636
024656
024742
024432
024456
024476
024516
024536
024556
024576
024616
025704
026540
026734
027114
027674
000200
005653
100412
003470
005041
016212
016440
003346

WRTYFG
WRUNR
WSM
=
WSMBK
WSSR
WT1BF
WTBUF
WM
=
WTMFLG
WIR
=
1'14";
=
WTIVERM
WTYBRF
WTIYCMD
WTYWRD
XST2
=
X$ALWA=
X$FALS=
X$0FFS=
X$4TRUE=
X0.807T=
X0.E0T=
X0.LET=
X0.0NML=
XO.RLL=

003463
002776
140006
002506
012740
031367
002316
100011
003456
101011
104105
004430
015150
015144
015146
ssssee
000000
000040
000400
000020
000002
000001
020000
000100
010000

010102 G

T4$HAR= 010040

VFYFLG

003516 G

T$4PRO= 010011
T$$PTA= 010043
T$$RPT= 010010

WRBC
002626 G
WRECL = 000020 G
WRR
= 105005 G

T$$TES= 010037

WRTY

TRAP4

G
G
G
G
G
G
G
G

G
G
G

013454

TSSINO

023770 G

TCC?7

014272 G
014370 G
014532 G

TSSVCT
030067
T$ARGC= 000003
T4CODE= 001004

TOOMM

004727 G

T $GMAN=

G
G
G
G

TSSIN2
TSSIN3
TSSSW
TSSUNT

013636
003436 G
003440 G
004453 G

000

032016

000000

Errors detected:
Agsembler

001

G
G

G
G
G
G
G
G
G
G
G
G
G
G
G
G
G
G

010015

010000
010012
010003
00000

000002
000000
00004
032016

T$$SOF=
T$4SRV=
T44SUB=
T$4SW =

010041
010007
010033
010001

(R W,1.GBL,ABS,QVR)

303
295
28938 Uords
( 114 Peges)
19684 Words
( 75 P
s)
RSX 11M/PLUS (Under
VAX/VMS)

00:04:16.49

T440U

T¢sHd =
T$$INI=
T$$MSG=
T4$PC =

(R W,I.LCL,REL.CON)

CVISED,CVTSED/-SP=SVC/ML
,CVTSED

T$LAST=s 000001

010110 G
010116 G
002574 G
030076

stetistics

Work
file
reads:
Work
file writes:
Size of work file:
Size of core pool:
Opersting
system:
Elapsed time:

T$ERRN=
T$EXCP=
T4FLAG=
T$FREE=

G
G
G
G
G

010074 G

T1CCS
TCCé6

sses

003530 G

013512
013530
013640
013656

ABS.

Mey

TRAPD4

010246 G

TSSIN1

010026 G

013474 G

TC2RTN
TIMEL
TIME2
TOERM

Friday

table

TCCOo

7CC1
TCC2
TCC3
TCCa

CODING

T15W8

VFYDAT

VFY.C =
WAITF
WLKCHK
WLKZRO

WRREC
WRT
=
WRTCHK
WRTCHR

003523 G

G
G
G
G
G
G
G
G
G
G
G
G

016126 G

000100 G
007204 G
007416 G
011774

002766
10400S
007270
007476

G
G
G
G

014676 G

WRTYER

X0.RLS=

003464 G

G
G
G
G
G
G
G

G
G
G
G

G
G
G
G
G

040000 G

X0.TMK= 100000 G
X0.WLK=
X2.B8FE*=
X2.EFE=
X2.EXT=

000004
000100
000200
sseess

G
G
G
GX

X2.0PM= 100000 G
X3.0CK= 000010 G

X3.RNY= 157400 G

X4 HSS=
X4 ,RCE=
ZROPAT
$LSTIN=

100000 G
040000 G
011744
000001

$LSTTA= 000001