Digital PDFs

MAINDEC-11-DZTAC-C-D

July 1976

45 pages

Original

5.2MB

Document:	TA11-Manual-Intervention-Test
Order Number:	MAINDEC-11-DZTAC-C-D
Revision:	0
Pages:	45
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/TA11/MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-Test_Jul76.pdf

OCR Text

I
PRODUCT eODEs

MAINDEC~ll~DZTAe~e~D

PRODUCT NAME.

TAll MANUAL INTERVENTION TEST

PRODUCT DATEB

JUlV,lQ7~

MAINTAINER.

DIAGNOSTIC fNGINEERING

THE INFORMATION IN THIS DOCUMENT IS SU8JECT TO CHANG!
WITHOUT NOTIce AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
BV DIGITAL EQUIPMENT
CORPORATION.
DIGITAL
EQUIPMENT
CORPORATION ASSUMES NO ~fIPONSI8rLITV FOR ANY ERRORS THAT
MAV APPEAR IN THIS MANUAL,
THE SOFTWARE DESCRI8ED IN THIs DOCUMENT IS FURNISHED TO THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITAL!
COPyRIGHT NOTICE) ONLY FOR USE IN suc~ SYSTEM, !KCEPT AS MAV
OTHERWISE BE PROVIDED IN WRITING ev DIGITAL.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITV FOR
THE USE OR RELIABILITY OF ITs SOFTWARE ON EQUIPMENT THAT IS
NOT SUPPLIED av DIGITAL.
COPVRIGHT (C)

1~73,

1916, DIGITAL EQUIPMENT CORPORATION

CONT~NTS

ABSTRACT

REQUIREMENTS
2.1
EQUIPMENT
2.2
STORAGE
2.3
PRELIMINARY PROGRAMS

LOADING PROCEDURE

STARTING PROC~DURE
4.1
CONTROL SWITCH SETTINGS
4.2
STARTING AUDRESS
4.3
PROG~AM & OPERATOR ACTION

OPERATING PROCEDURE
5.1
OPERATIONAL SWITCH SETTINGS
5.2
SUBROUTINE ABSTRACTS

ERRORS

RESTRICTIONS

MISCELLANEOUS
A.l
EXECUTION TIME
8.2
STACK PO!NT~R
8.3
PASS COUNTER
8.4
ITERATIONS
8.5
SPECIAL REGISTERS

PROGRAM DESCRIPTION

ABSTRACT
IHIS PROGRAM CONTAINS A SERIES Of BASIC LOGIC TE5TS
THAT CHECK THE TAll fOR PROP~P OPEPATION.

REQUIREMENTS

2.j

EQUIPMENT
COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER
wITH CONSOLE TELETYPE, AND A TAil CASSETTE

PDP~11

2.2

STORAGE
THIS PROGRAM REQUIRES APPROX. 4K STORAGE.

2.3

PRELIMINARY PROGRAMS
MAINDECw!lwDZTAA
MA!NDEC~11eDZTAB

LOADING PROCEDURE
USE STANDARD PROCEDURE fOR LOADING .AB5 TAPES
OR A CASSETTE TAPE.

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS
SEE 5.1.

4.2

STARTING ADDRESSES
200
204
210

214
220

224
230
234
240
244
250
500
b00

700

NORMAL STARTING ADDRESS
SELECT DHrVE(S) BEFORE STAPTING TEST
~ELECT DRIVE(S) AND ADDRESSES HEfOkE STARTING IrST
SETUP FOR MANUAL LOOPING
WRITE FILE GAP FROM BOT TO EOT
WRIT~ CONTINOUS BLOCKS OF DATA
READ CONTINOUS BLOCKS OF DATA
~RITE FIL~ GAP AND A BLOCK Of DATA
READ 8LOCK OF DATA AND INTO A flL~ GAP
SPACE FWD FILE GAP FHOM BOT TO EOT
BACK SPACE fILE GAPS
LOAD SWITCH REGISTER INTO THE TACS
WRITE SWITCH R~GISTER ON TAPE FROM BOT TO ~OT
PEAD fROM Bor TO EOT

4.3

PROGRAM. OPERATOR ACTION
1.
~.

3.
4.

5.
b.
7.

LOAD PROGRAM INTO M~MORY (SEE SECTION 3.)
LOAD A WRITE E~ABLED CASSETTt IN BOTH DRIVES
REWIND BOTH DRIVES
LOAD ADDRESS 200.
SET SWITCHES (SEE SECTION 5.1)
PRESS START.
THE PROGRAM WILL TYPt INSTRUCTIONS ON THE TTt FOR
THE OPERATOR TO fOLLOW. AfTER THE OPEkATOR HAS
PERFORMED THE REQUIRED OPERATION HE wILL PRE6S
"CARRIAGg RETURN" AND THt PROGRAM WILL CONTINUK.

*** NOTE: IF USING THE SOFTWARE SWITCH REGISTF.R THE

PROGRAM WILL TYP~ "SWR=XXXXXX NEw=" AFTER TYPING
THE NAME OF THE PROGRAM.
DRIVE SELECTION
STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC
SELECTION OF DRIVES "A" AND "8" TO BE TESTED.
NOTE:
If LOAD MEDIUM IS CASSETTE wiTH STANDARD VECTOR
PROGRAM WILL RESPOND AS If STARTED AT 210.
STAPTING THE PROGRAM AT 204, 210, OR 214 ALLOWS THE OPERATOR
TO SELECT THE DRIVE(S) TO BE T~STED.
THK PROGRAM wILL TYPE "DRIVE(S)?".
EITHER OR BOTH DRIVES CAN BE SELECTED B¥ TYPING "A" AND/OR
"B" FOLLOWED B¥ A CARPIAGf. RETURN.
4.3.1.1 DRIVE SELECTION EXAMPL~S
DRIVE(S)? A,B
DRIVE(S)? AS
DRIVE(S)? S,A
DRIVE(S)? B

ADDRESS SELECTION
STARTING THE PROGRAM AT 210 OR 214 ALLOWS T~E OPERATOR
TO CHANGE THE "CONTROL AND STATUS" AND "DATA BUFFEN"
REGISTER ADDRESSES, THE VECTOR ADDRESS AND THE
PRIORITY LEVEL.
THE PROGRAM WILL ASK FOR THE DRIVES TO 8~ TESTED AS PER
4.3.1. AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK
FOR:
i.

2.
3.

BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS)
VECTOR ADDRESS
PRIORITY LEVEL
AND THE OPERATOR MUST RESPOND WITH THE DlSIR~D PARAMETER
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS).
WHEN ALL PARAMETERS HAVE BEEN D~FINEU IH~ PROGRAM
WILL TiPE rH~M BACK OUT AND ASK IF ThEY APE OK AT
WHICH TIME THE OPERATOR RESPONSES WITH A "K" O~ A
"CARRIAGE RETURN" fOR "YES" ANYTHING ELS~, IS A "NO".

4.3.2.1 ADDRESS SELECTION EXAMPLES
DRIVES(S) A
TACS? 177500
VECTOR? 260
PRIORITY? 6
TACS=177500 rADB=177502 VECTOR:000260 PRIORITY:H00300
OK?
DRIVES(S) A.B
TACS? 470
VECTOR?
PRIORITY?
TACS=177470 TAD8=177472

OK?

VECTOR=~~0260

PRIORlrY=0~03~~

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
If THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOfTwARE SWITCH REGISTER IS USED WHICH ALLOWS
THE US~R THE SAME SWITCH OPTIONS AS THE HAFDWARE SWITCH REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES ~OT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN TH~ SOFTwA~E SWITCH
REGISTER (LOC. 176) IS USED.
CONTROL:
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOAOING OF THE SOfTWARE SWITCH
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY
DOING THi fOLLOWING:
t)

TYPE CONTROL ~ C-G>: THIS WILL ALLOW THE TTY TO ENTIR DATA INTO
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.

2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
Of THE SOFTWARE SWITCH REGISTER.)
3) AFTER THE "NEW="

HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF THE FOLLOWING AT THE TTY:
A)

TypE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A CCR>.
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLy 6 NUMBERS
WILL BE ALLOWED)
If A <CR> IS THE FIRST K~Y DEPRESS~D THE SOFTWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.

B) IF A CONTROL U c-U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU
SACK TO STEP 2.
WITH Sw<t5:08>=0 THE PROGRAM WILL PRINT OUT ON
ERRORS AND CONTINUE IN TEST. BELL WILL RING
AT COMPLETION OF A PASS.
THE SWITCH SETTINGS ARE;
SW<15>=1 ••• HALT ON ERROR
SW<14>=1 ••• LOOP ON TEST
SW<13>=1 ••• INHIBIT ERROR TYPEOUTS
SWCll>=l ••• INHIBIT ITERATIONS
SWcl~>=l ••• RING BELL ON ERROR
SW<10>=0 ••• RING BELL ON PASS COMPLETE
SW<09>=1 ••• LOOP O~ ERROR
SWC08>=1 ••• LOOP ON TEST AS PER SWC07:00>
SW<07>=1 ••• LOCK ON CURRENT DRIVE (ONLY VALID
FOR STARTING ADDRESSES 220 THRU 250).

SUBROUTINE ABSTRACTS
SCOPE
THIS SUBROUTINE CALL (VIA AN JOT INSTRUCTION) IS PLACED B~TWEEN
EACH TEST IN THE INSTRUCTION SECTION. IT RECOPDS THE STARTING
ADDRESS OF EACH TEST IN LOCATION "&LPADR" AND "SLP~RR" AS IT IS
BEING ENTERED.
5.2.2

THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS
TRAPCATCHER
A ".+2" - "HALT" SEQUENCE IS REPEATED FRUM LOC. 0 TO LOC. 77&
TO CATCH ANY UNEXPECTED TRAPS. THUS. ANY UNEXPECTED TRAPS WILL
HALT AT THE DEVICE TRA~ VECTOR +2.

ERROR
THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT
ALL ERRORS. (REFER TO 6.)
*** THIS ROUTINE SUPPOPTS THE S/W SWITCH R~G FUNCTIONS
*** IF THE PROCESSOR HALTS (bIT 15=1), OPERATOR
CAN RESET S/W SWITCH REGISTER BY HITTING A
"CONTROL G" <oG> BEFORE hITTING CONTINUE.

A NUMBER OF SUBROUTINFS ARE CALLED BY TH~ TRAP INSTRUCTION.
FOLLOWING [S THE CALLS USED AND THE LABEL OF THE STARTING
ADDRESS Of THE SUBROUTINES.
5.2.4.1 TYPE (STYPE)
ROUTlNE TO TYP~ AN ASCIZ STR1~G ON THE TTY
THE ROUTINE WILL INSERT A NUMAER Of NULL CHARACTERS
AFTER A LINE f~ED.
5.2.4.2 RoeHR (SRDCHR)
READ A SINGLE ASCII CHARACTFR fROM THE TTY
5.2.4.3 ROLIN (SRDLIN)
READ AN ASCII STRING FROM THE IT~
5.2.4.4 WAITREADY (WArT.ON.READY)
WAIT ON THE "TAll READ!" BIT TO SET
5.2.4.5 wAITXFER (WA!T.FOR.XfER.REQ)
wAIT ON THE "TAll TRANSFER REQUEST" BIT TO SET

5.2.5

THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR

5.2.5.1 STYPEC

ROUTINE TO

T~P~

A SINGLE ASCII CHARACTER

5.2.5.2 TYPERR

THIS ROUTINE WILL TYPE THE ERROR MESSAGES
5.2.5.3 SELDRV

THIS ROUTIN~ IS USED TO ASK THE
ARE TO BE TESTED

OP~RATUR

WHAT DRIVE(S)

5.2.5.4 ASKAOR

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES O~
THE "TACS","T4DB" AND VECTOR AND THE PRIORITY TO USE.
5.2.5.5 ASKQUES

THIS ROUTINE WILL TYPE DIRECTIONS ON THE Trl AND WAITS
fOR A RESPONSE or A "Y","N" OR "CARRIAGE RETURN.

THE FOLLOW ROUTINES AP[ US~D TO MAK~ ADJUSTMtNIS TO
THE 1U60. BEFORE USING ANY OF THEM LOAD AND START 214.
5.2.&.1 wfGSUB
WRITE FILE GAPS FROM "BUT" TO "EDT"
START AT 220
THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND
THE "WRITE DELAY MONO".

WRITE CONTINUOUS BLOCKS OF DATA
START AT 224
THE PROGRAM ~ILL HALT THREE(3) TI~ES
AfTER EACH HALT SET THE SWR AND PRESS CONTINUE
HALT I --- SWR<7:0> = NUMBER OF BYTES PEk tlLUCK
HALT 2 ---SWR<7:0> = PATTERN DESIRED
HALT 3 --- SWRC15:~> = OPERATIONAL SWITCH SETTINGS
THIS ROUTINE CAN B~ USED TO ADJUST THE "GAP TIME MONO"
•• IF USING SOfTWARE swITCH REGISTER, AFTER
EACH HALT OPEPATOR WILL 8£ PROMPTED
FOR THE VALUE wITH "SWR=XXXXXX NE~="
READ CONTINUOUS BLOCKS OF ~A1A
START AT 230
THIS ROUTINE CA~ BE USED TO ADJUST
AND THE "THRESHOLD POT"

TH~

"SIGNAL MONO"

5.2.0.4 WGPBLK
WRITE A FILE GAP AND A BLOCK OF DATA fROM eOT TO ECT
START AT 234
THE PROGRAM WILL HALT THREE (3) TIMES
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE
HALT I
SwR<7:0> = NUMBtA OF BYTES PER 8LOC~
HALT 2 --- SWR<7:0>
PATTERN DESIFED
HALT 3 --- SWR<15:0> : OPERATIONAL SwITCH SETTINGS
1HIS ROUTINE CAN BE USED TO ADJUST THE "wRITE GAP MONO"
AND THE "GAP TIME MONO" •
•• IF USING SOFTWARE SWITCH REGISTER, AfTER
EACH HALT OPERATOR WILL BE PROMPTED
FOR THE VALUE WITH "SWR=XXXXXX NEW:"

5.2.0.5 RGBLK
READ A BLOCK OF DATA AND A FILE GAP
START AT 240
THIS ROUTINE IS USED AfTER "WRITE A BLOCK ANU A FIL~ GAP" ROUTINE
IT CAN BE USED TO ADJUST THE "SIGNAL MaN". TH~ THRESHOLD POT"
AND THE "TAPE BLANK MONO".

SPACE FORWARD fILE GAP FROM "BOT" TO "EOT"
STAR'f AT 244
THIS ROUTINE CAN BE USED AFTER "WRITE FILE GAP" fOR LOW SPEE~
SPACE FOWARD (TAPE BLANK MONO CAN BE ADJUSTED). OF AFTEF READ OR
WRITE A FILE GAP AND A BLOCK Of DATA FOR HIGH SPEED SPACE FONWARD
(SIGNAL MONO CAN BE CHECKED).
5.2.6.7 BSrCSS
SACK SPACE FILE GAP
START AT 250
THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO".
TAE FOLLOWING SUBROUTINES ARE USED BY THE ADJUSTMENT
ROUTINES
5.2.7.1 SETBUF'
SETUP BLOCK SIZE AND PATTERN
5.2.7.2 WRTBLK
WRITES A BLOCK Of" DATA
5.2.7.3 ROSLI<
READS A BLOCK OF DATA
5.2.7.4 NXTDRV
CHANGE DRIVE
ERRORS
THERE ARE A NUMBER OF ERRORS THAT CAN OCCUR IN THIS
PROGRAM. wHEN AN ERROR 15 ENCOUNTERED THE CALL TO
THE ERROR ROUTINE IS MADE AND IF SW<t3> 15 NOT
SET AN ERROR M~SSAGE PERTAINING TO THE ERRON WILL BE
TYPED. EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING:
1.

2.
J.

AN ERROR MESSAGE
A DATA HEADER
A DATA STRING

REFER TO THE LISTING UNDER $[RRTB FOR THE DIFFERENT
ERRORS THAT CAN OCCUR.

RESTRICTIONS
BEFORE STARTING THE PROGRAM TH~ OPERATOR MUST INSURE THAT A
CASSETTE IS LOADED IN THE DRIVE(S) TO 8E TESTED AND 15 WHITE
ENABLED.

MISCELLANEOUS

8.1

EXECUTION TIME
IS OPERATOR DEPENDENT BUT SHOULD TAKE NO MORE THAN 2 MINUTES.

8.2

STACK POINTER
STACK IS INIT!ALI.'{ SET TO 1100.

8.3

PASS COUNT
A PROGRAM PASS THRU COUNT IS KEPT IN

8.4

~SPASS".

ITERATIONS
THE FIRST PASS OF THE PROGRAM WILL AUTO~ATICAf,LY INHIBIT
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERfORM FULL,
(2000 DECIMAL UNLESS OTHERWIS~ SPECIFIED WITHIN A TEST),
ITERATIONS.

8.5

SPECIAL REGISTERS
R3, R4 AND R5 ARE RESERVED THROUGH OUT THE PROGRAM
FOR "DRIVE", "TACS" AND "TADB"

PROGRAM DESCRIPTION
THIS PROGRAM IS A SEQUENCE OF SMALL
THE TA11 FOR PROPE~ OPERATION.

T~STS

THAT CHECK

THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS.
I.
2.
3.

TEST "OFFLINE" WITH lUGe POWER OFF
TEST "OFFLINE" WITH CASSETTE REMOVED
TEST "wRITE LOCK" CIRCUITRY

TAll MANUAL INTERVENTION TEST
MAINDEC-I1-DZTAC-C
DZTACC.NEW
TABLE OF CONTENTS
12
6~

71
183

224
225
234
246
293
301
327
344
405
466
491
529
536

702
720
721
737

753
798

813
829
844
896
1000
1101

1194
1295

1341
1372
1393

1412
1430
1440
1476
1540
1592
1628
1657
1686

1721
1786
1826

1836
1861
1893

1916
1953

1981
2008
2025

2059
2077

MACY11 27(732)

GENERAL INFOR~ATION
OPERATIONAL SWITCH SETTINGS
BASIC DEFINITIONS
TAll D~FINITIONS
STARTING ADDRESS~S
TRAP CATCHER
STARTING ADDRESS(ES)
TOGGLE IN ROUTINES
LOAD SwITCH REGISTER INTO TACS
WRITE SWITCH REGISTER ON TAPE fROM BOT TO EOT
READ FROM 80T TO EOT
COMMON TAGS
ERROR POINTER TA8LE
START OF TEST
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME
GET VALUE fOR SOFTWARE SWITCH REGISTER
T1
ROUTINE TO DETERMINE TIME OF WAIT LOOPS
**********MANUAL INTERVENTION**********
T2
SETUP FOR MANUAL INTERVENTION
T3
SETUP FOR POWER DOWN TU60 TEST
T4
TEST "OFFLINE" WHEN IU60 IS POWERED DOWN
T5
POWER UP THE TU60
T6
TEST "OFFLINE" WHfN DRIVE IS EMPTY
T7
PUT DRIVE "ONLINE"
T10
PUT DATA ON 1APE FOR WRITE LOCK TEST
Til
TEST "WRITE LOCK" WHEN AT CLEAR LEADER
T12
TEST "WRITE LOCK" WITH "CPC ERROR"
Tt3
TEST "WRITE LOCK" WITHOUT ANY ERRO~S
T14
TEST "WRITE LOCK" WITH FILE GAP=!
TIS
TRY WRITING ON TAPE WHEN "WRITE LOCKED"
rib
TRY "WFG" WHEN WRITE LOCKED
T17
TEST "WFG" ON CLEAR LEADER AND WRITE LOCKED
T20
TEST "WRITE" WITH WRITE LOCK ON AND AT CLEAR LEADER
T21
TEST "WRITE ENABLE"
T22
END OF TEST CODE
END OF PASS ROUTINE
SCOPE HANDLER ROUTINE
ER~OR HANDLER ROUTINE
ERROR TYPEOUT ROUTINE
ROUTINE TO WAIT ON THE READY BIT TO SET
ROUTINE TO WAIT ON TRANSFER REQUEST
ROUTINE TO ASK THE OPERATOR WHAT DRIVF.(S) TO TEST
ROUTINE 10 INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORIT~
TYPE DIRECTIONS TO OPERATOR AND WAIT FOR RESPONSE
********** MANUAL ADJUSTMENT ROI1TINES **********
WRITE FILE GAPS FROM "BOT" TO "EDT"
WRITE CONTINUOUS BLOCKS OF DATA
READ CONTINUOUS BLOCKS OF DATA
WRITE A FILE GAP AND A BLOCK O~ DATA FROM BOT TO EDT
READ A BLOCK Of DATA AND A FILE GAP
SPACE FORWARD FILE GAP FROM "BOT" TO "EOT"
BACK SPACE FILE GAP
SETUP 8LOCK SIZE AND PATTERN FOR SUBROUTINES
WRITE ROUTINE fOR THE MANUAL OPERATIONS
READ POUTINE FOR THE MANUAL OP~RATIONS

I1-JUN-7b

13:51

•

)

TAll MANUAL INTERVENTION TEST
MAINDEC-11-DZTAC-C
TABLE OF CONTENTS

~DZTACC.NEW
2102

2119
2148

2218
2357
2395
2472

2495
2516

MACYll 21(732)

ROUTINE TO CHANGE DRIVES
ROUTINE TO FXAMINE DRI~E(S) FOR AVAILA8LITY
TYPE ROUTINE
TTY INPUT ROUTINE
READ AN OCTAL NUMBER FROM THE TTY
BINAPY TO OCIAL (ASCII) AND TYPE
TRAP DECODER
TRAP TABLE
POWER DOwN AND UP ROUTINES

l1-JUN-7b

13:51

TAIl MkNUAL INTERVENTION TEST
DZTACC. NEW

MAINDEC-I 1 -DZTAC-C

MACYlI 27(732)

.TITLE TAli MANUAL. INnRV!;NTlON TEST
"COPYRIGHT (el 1973,1976
!>DIGITAL EQUIPMENT CORP.

; *MAYNAPD,

MASS~

Ii-JUN-76

13,51

PAGE

soa 0014

MAINOEC-II-DZTAC-C

1~1754

"PROGRAM 6Y JIM LACEY

"THIS PROGRAM WAS ASSEMbLIiD USING THE PDP-!! MAlNDEC SYSMAC

,.PACKAGE (~AUJD~... C"'1\ ... DZQAC"'C1),MAR 24,

9
10
II
12
I,
14
15
16
17
18
19
20
21

", , .jl.***

1976 9

... *iii .. oj:; *** **o!:lo ****iHHHHI',lH" ***~ '* ** *<& ~*.lQ****** <II- **.\10* ******
: ; ***,*,ofJo*'Jo* /Vol>-**tt o!?i;lo**,*4·fjo 'JIo *~*'** ************** ** ** * ******************
"HHHH~ **~

: : ** '* ** ~ it *~*** l;t* '* ~1H"*-tlo******** ***** **4 **·~**;:HHHI-*·aHHHH.'" ******* ~***
.RlI·l!

GrNERAL !tWORMATION ABOUT THE TAI1ITU60 CAssnn:
ADDRESS MNeMONIC DeSCRIPTION

77750"
777502

22
23
24

2b"

TACS
TAD~

l'AVE'C

CONTROL ANU STATUS REGLS!!':P
DATA BUFFER REGISTER
INTERRUPT VECTOR

1ACS R(:;G151'ER DESCRIPTION

27
28
29

30
31
32
33
34
35
36
37
38
39

NAME

ERROR
?
BLOCK CHECK ERROR
0
?
CLEAR LEADER
WRITE LOCK
?
FILE GAP
0
TIMING ERROR
0
OFF LINE
?
UNIT SELECT
0
TRANSFER REQUEST
0
INTERRUPT ENABLE
0
READY
I
IL8S
0
FUNcrrON BIT 02
0
FUNCTION BIT 01
0
PUNCTION ~IT 00
•
0=WRITE.; ILE-GAP
I=WRITE
2=READ
3.BACK SPACE FILE GAP
4=BACK SPACE BLOCK GAP
5=SPACE FORWARD FlwE GAP
6'SPACE fORWARD BLOCK GAP
7=REWHlD
GO BIT
0

14
13
12
11
10

08
07
06
05

03
02
01

41
42

47
4B
49

50
51
52
53

54
55
56

TAl! MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC. NEW
GENERAL INFORMATION

'J~*.~.*

,","

,SBTTL

59
60
6t

64
65

15
\4
13

",,-""

,,7
68
69

READ ONLY

READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ/WRITE
READ ONLY
READIWRITE
READ ONLY
HAD/~RITE

READ/WRITE
READNRITE
READ/WRITE

WRITE ONLYl

MACHI 21(732)

SWITCH

;*
"

• SBTTL

82
83
84
85

10
9
S

USE

~RROR

TEST IN SWR<1:0>
CURRENT DRIVE (ONLY nLID WITH MANUAL LOOPING)

BASIC DEFINITIONS

001100

000011
000012
O00015

000200
177776

STACK:
.EQUIV
.EQUIV

11 0@
EMT,EPROR
IOT,SCOPE

*** l1P,0 .~**

,'B~SIC

DEFINITION Of ERROR CALL
::BASIC DEFINITION 0, SCOPE CALL

pM ISCELLANF.OUS DEFINITIONS
! 1
: ,CODE
12
"CODE
CP=
15
"CODE
CPLF=
200
"CODE

HT.
LF=

PS=

177776

.. EQUIV

ps,PSW

STKLMT=
PIpa:
OSWR=
DOISP:

177774
177772
177570
171570

FOR HORIZONTAL TAB
FOR LINE FEED
FOR CARRIAGE RETURN
FOR CARRIAGE RETURN-LINE FEED
"PROCESSOR STATUS WORD
"STACK LIMIT REGISTER
"PROGRAM INTERRUPT REQUEST REGISTER
"HARDWARE SWITCH REGISTER
"HARDWARE DISPLAY REGISTER

177774
177772
177570
177570

000000
000001

R0=

Pi:

00O"O2

R2=

00000l
000004

Rl:
P4=
R5:
R6=
R7=

%3
%4
%5
%6
%7

::GENERAL REGISTER

95
96

"STACK POINTER
, ,PROGRAM COUNTER

87
B8

8"
9"

97
98

~.GENERAL

000005
000006
000007

PURPOSE REGISTER DEFINITIONS

,EQUrV

R6,SP

100

.Faun

R7,PC

10t
102
10l
104
105
106

107
108
109
110

lit
112

PAGE 2

ERROR
TEST
ERROR TYPEOliTS
ITERATIONS
ERROR

1*INITIAL ADDRESS OF THE STACK POINTER

77
78
79

\3'51

::*.*
•••••••••••••••• * •••• * •• ** ••••••••••••••• ** ••••••••••• *** •••
"

80
81

II-JUN-76

........ "' ................................... "''''' ...
HALT ON
LOOP ON
INHIBIT
INHIBIT
BELL ON
LOOP D~
LOOP ON
LOCK ON

72
74
7S
)6

READ AND lOR WRITE?

•••
*•• **.* •• ** ••••••••••••••• *••••••• *•••••• ** •••••••••••
OPERATIONAL SWITCH SETTINGS

INIT
STATE

BIT

000000
000040
000100
000140
000200
000240
000300
000340

"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER
: ,GENERA.L FEGISTER

;;GENERAL REGISTER

,>PRIORITY LEVEL DEFINITIONS
: I PRIORITY
0
PRe=
PR I =
40
"PRIORITY
PR2=
100
"PRIORITY
PR3'
140
,'PRIORITY
PR4=
200
"PRIORIH
PHS.
240
"PRIORITY
RRb=
300
II PRIORITY
PH7:
340
" PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

,'"SWITCH REGISTER" SWITCH DEFINITIONS

SEQ 0015

TAli MANUAL INftRVENTION TEST
MAIND£C-II-DZTAc-C
DZTACC,NEW
BASIC DEFINITIONS

113
114
115
116
117
118

119
120
121

122
121

124
125
126
127
128
129
130
III
132

100000
040000
020000
010000
0114000
002000
001000
0011400
111111200
0011100
0011040
001102~

1100010
000004
000002
000001

133

134
IlS
136

137
138
139
140
141
142

51115.
511\4'
51113=
51112.
5WI1'
51110=
51109=
SW09:

51107.
SWe6=
5W05=
SW0i4=

5w03'
5W02'
51101-

MACYll 27(732)

,F-QUIV
,EQUIV
,EQUIV
,EQUIV
,EQUIV
,EQUIV
,EQUIV
,EQUIV
,EQUIV
,EQUIV

SW09,SII9
SW08,SW8
SW07,SW7
51106,5116
5W0S,5WS
8Wll4,SII4
51103,5113
5W02,SII2
51101,5111
SII0W, 5110

166

,"BASIC ·CPU· TRAP VECTOR ADDRESSES

144
145
146

147
148
149

150
151
152
153
\54
ISS
156

0~0020

000010
0000~4

000002
000001

157
158
IS9
16~

161

162
163
164

IbS

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZT~CC.NEW
BASIC DEFINITIONS
169

170
171
172
173

174
17S
176
177
178
179
180

000004
0~0010

0000\4
000014
000014
000020
000024
000030
000034
000060
000064
000240

PAGE 3

SEQ 0016

I\-JUN-76

13.51

PAGE 4

SEQ 0017

4
2

SW00.:

167
Ib8

143

13151

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

I*DATA BIT DEFINITIONS (BIT00 TO BIT1S)
BIT1S. 1110000
BITI4' 401100
BITU' 2"0""
BITI2. 111000
BIT\I· 41100
BiTli/. 20110
BIT09= 1000
BIT08= 400
BIT07. 2110
BIT06= 1"0
BIT"S' 4~
81T04. 20
BIT03. I~
BIT02= 4
BITIII= 2
BITII0= I
.EQUIV 8ITII9,BIT9
.EQOIV BIT08,BIT8
.lQUIV 8IT07,BIT7
,EQUIV RIT0b,BIT6
,EQUIV BITliS, BITS
.lQUIV BIT04,BIT4
.EQUIV BITe3.BIT3
.t:QUIV BITII2,BIT2
.EQUIV BIT01,8ITI
,t:QUIV BITII0, BIT~

100000
040000
0200011
010000
004000
00200"
00100"
000400
000200
000100
000,,40

ll-JUN-76

EPRVEC= 4
RESVEC. 10
TBITVEC=14
TRTVEC. 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC.34
TKVEC. 60
TPVEC= 64
PIRQVEC=240

MACYII 27(732)

'ITIME OUT AND OTHER ERRORS
I,RESERVED AND ILLEGAL INSTRUCTIONS
,,"T" BIT

"TRACE TRAP
I,BREAKPOINT TRAP (BPT)
"INPUT/OUTPUT TRAP (lOT) •• SCOPE,lul"POWER FAIL
I,EMULATOR TRAP (EMT) **ERROR**

,:"'TRAP" TRAP

"TTY KEYBOARD VECTOR
"TTY PRINTER VECTOR
I,PROGRAM INTERRUPT REQUEST VECTOR

)

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
TAil DEFINITIONS

IB 1
IB2
IB4
IB5
!Y6
I B7
\8B
IB9

27(732)

,TAil FUNCTIONS
WFG=
0
WFITE=
2
FEAD=
4
BSFG=
6
BSBG=
I"
SFFG=
12
SFBG=
14
REWIND= 16

000000
000002
000004
000006
000010
000012
000014
000016

183

MACYII

ll-JUN-76

13:51

PAGE 5

SEQ 0018

,WRITE FILE GAP FUNCTION
,WRITE FUNCTION
,READ FUNCTION
'BACK SPACE FILE GAP FUNCTION
,BACK SPACE BLOCK GAP FUNCTION
,SPACE FWD FILE GAP FUNCTION
,SPACE FWD BLOCK GAP FUNCTION
,REWIND FUNCTION

19~

191
192
! 94

100000
040000

195

02000"

196

01000"
00400l
002000
00100"

193

197
19B
199
200

,TAil BIT ASSIGNMENT
ERROR=
BITI5
CRCERR= BITI4
LEADER= BITI3
WRTLOCK=BITI2
FGAP=
8ITII
TIMERR= BITlO
OFFLINE=BIT"9
UNIT=
BITOB
TF.REQ= BIT07

01604~0

201

00020"

202
203
2M

00010\,1

tNT.EN= BIT06

':HH:i~40

205

000010
000004
000002
000001
000016

READY=
BIT05
!LBS=
BIT04
FUNC2=
BIT03
FUNCI=
BIT02
fUNC.=
BIT"I
GO=
BIT00
rUNeT ION;
FUNC2+FUNC 1 +FHNC~
:1//1111/1/1/1/1/111/11111/////////11111/1////1//1111//1/11111/11/11111

000020

206
207
20q

209
210
211
212
213
214
215
216
2\ 7

,1111111111111111111111111111111111111111111111111111111111111111111111
il/II/II/IIIIII//IIJ/III/!II//I////!/III!/I/I!I/////I//1//11//11/11111/
,SPEC I AL REG I STEpS
ORIVE=
%3
TACS=
%4
TADB=
%5

000003
000004

000005

,R3 CONTAINS THE DRIVE UNDER TEST
,R4 IS USED AS A POINTER TO THE TACS REGISTER
,RS IS USED AS A POINTER TO THE TAD8 Rl::GISTER.

21B

219

:11111111111/1///1111///11111///11////11////////11/////1//////////11///

220

;/11111111111/111111111111//////111/111////////11/////1111/1/////1/1//1

TAll

MANUAL INTERVENTION TEST

DZTICC.NEW

MAINDEC-Il-OZTAC-C

221

.5B1TL

222

:*A.LL UNUSED LOCATIONS

225
226

23b
237
HB
239
240
241

ll-JUN-76

13:51

PAGE 6

SEQ

F'RO~

4 .. 776 CONTAIN A ".+2,HALT"

,*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
,<LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174

227

22B
229
230
211
232
2Jl
234
235

27(732)

TRAP CATCHER

.=0

000000

223
224

MACYlI

TRAP CATCHER

.=174

000174

00000""

DISPREG:

000176

"'00~00

SWREG:

.S8TTL
0~0200

000204
000210
000214
000220
000214
000230
000234
000240
000244
000250

000137
0"0137
000137
000137
000137
000137
000137
000137
000137
000137
000137

001326
0013M~

0" 1366
00173"
"07604
00767.
007756
010036
01014"
010234
"10320

.WORD

.. WORD

STARTING ADDRESS(ES)
J~P
@#BEGINl
JMP
@.BEGIN2
JMp
@.BEGIN3
JMP
@'BEGINX
JMP
@'WFGSUB
JMP
@#WRTSUB
@IRDSUB
,IMp
JMP
@.WGPBLK
JMP
•• RGPBLK
JMP
•• SFFGSB
JMP
@.BSFGSB

"SOFTWARE DISPLAY REGISTER
"SOFTWARE SWITCH REGISTER
: ,JUMP TO STARTING ADDRESS OF PROGRAM
,SELECT DRIVE(S) BEFORE STARTING TEST
,SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING
,SETUP FOR MANUAL LOOPING
,WRITE FILE GAP FROM BOT TO EDT
,WRITE CONTINUOUS Bt.OCKS OF DATA
,READ CONTINUOUS BLOCKS OF DATA
,WRITE FILE GAP AND A BLOCK OF DATA
,READ BLOCK OF DATA AND INTO A FILE GAP
,SPACE FWD FILE GAP FROM BOT TO EDT
,BACK SPACE FILE GAPS

~019

MACYII 27(732)

TAli MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-e
DZTACC.NEW
TOGGLE IN ROUTINES
242
2U

II-JUN-76

PAGE 7

13151

SEQ 0028

I1111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111

244

245

,THE FOLLOWING ROUTINES CAN BE TOGGLED IN.

246
247
248
249
250
251
252
253
254
255
256

11111111111111111111111111 111111111111111111111111111111111111111111111
.REM

THE FOLLOWING ROUTINES ILOOPI, LOOP2, & LOOP!) CAN BE TOGGLED
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS
NOTEI

257

BEFORE USING THESE ROUTINES INSURE THAT

R3,~4,&

SETUP PROPERLY.
USING SOfTWARE SWITCH REGISTER THE
LOCATION aKR (=1140) MUST CONTAIN
ADDRESS 'SWREC" 1=176).
*~ PLACE VALUE INTO 176 ***
** ~EGISTERS 3, 4, AND 5 **
** MUST BE SETUP VIA MOVE INSTRUCTIONS **
A~E

258

** NOTEI IF

259
269
2b1

2&2
2U
264
265
266

R3-

2b7
2bO

0 IF USING DRIVE A
400 IF USING DRIVE 8

R4=

TAil STATUS REG ADDRESS (fACS 177500)

211

RS=

TAil DATA 8UFFER ADDRESS (TADB 177502)

272
273

LOOPI WILL LOAD THE SWITCH REGISTER INTO THE TACS.

2bq

270

274
275

LOOP2 WILL WRITE THE CONTENTS OF THE SWITCH REGISTER
ALL THE WAY TO END-OF-TAPEIEOT).

276
277

278

LOOP3 WILL READ TO EDT. DATA WILL GO TO R0,

279
280
281

NOTEI

LOOP2 AND LOOP3 WILL REWIND WHEN EOT IS REACHED AND
THEN STAU OVER.

282
28l

284
285

,LOAD SWITCH REGISTER INTO THE TAes

28&

287

fl····**-*·_·**····*****·-·***--**·****************-*************

288
289

.=500

000500

290

291

000500

017714

292

~00504

0~0775

000434

LOOPII

MOV

~LOAD

,LOOP

TACS

293
294

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
MACYII 27(732)
DZTACC.N£W
WRITE SWITCH REGISTER ON TAPE fROM BOT TO EDT
295
296
000600

307
308
309
310
311
312
313

SEQ ~021

.=6011

300

305
306

PAGE 8

,WRITE SWITCH REGISTER ON TAPE FROM BOT TO EDT

298
299

304

13151

,,_._.*-••• -._*._.***._._-.-.....----..-._.*.......*••*••*******.

297

301
302
303

ll-JUN-76

LOOP21

000600
P00b02

000005

000604

112714

000017
000040

010314

00061~

032714

01"'614

901775

00061&
000622

112714

000624

100003
017715

000626
000632

IS,

000003

105714

2S1

RESET
HOV
MOVS
8IT
BEQ

DRIVE,nACS
IREWINDIGO,nACS
.READY, nACS
IS

MOVS

'WRITE! GO.@TACS

T5TB
BPL
HOV

nACS
3$

,CLEAR ALL FLAGS
~SELECT DRIVE
~CO TO 80T
,WAIT TILL READY COMES UP
~ START A WRITE
,CHECK FOR TRANSFER REQUEST

,BR IF NOT SET

BIT

0~1357

8NE

.READY.nACS
LOOP2

,SEND DATA TO TAil
,LOOP
~DID READY SET?
,START OVER IF YES

8007&7

~LOOP

0016306

0119773

0006]4

032714

""0640
000642

000040

3$'

PSWR.~TADB

314
315
316

1I7
318
319
320
321
322
323
324
325
326
327
328

.*************.***•••• ***** .... ******************.***** ••• ** ....... **
IREAD FROM BOT TO EDT

:, •••• *.*.*************************** •• ****************.*-•••

-*.-

.=700

000700
000702
000704

""0005
1110314
112714

000710
600714

11111775

329

000716
1/100722

112714
185714

330

000724

11100112
1111511"

331

11110126

332
331
334
335

1100730
80"132
1100736
,,"0740

832714

LOOP31
000040

"""0"5

1$:

2S'

1100770

BIT

BEQ
MOVB
T5T8
8PL
MOV
SR

0"0774

"32714
""1360

RESET
MOV

Hove

000017

000"40

3$,

BIT

BNE
OR

DUVE,nACS
UREWINDIGO,nACS
tREADY.PiACS
IS
IRUDIGO,.TACS
@TACS

nADB,R0

.READY,@TACS
LOOP)
2$

CLEAR ALl, FLAGS
SELECT DRIVE
START A REWIND
WAlT ON REWIND TO FINISH
START A READ
CHECK TRANSFER REQ
BR IF NOT SET
PICKUP THE DATA
LOOP
CHECK READY
STAPT OVER
LOOP

)

TA1I MANUAL INTERVENTION TEST
OZTAce.NEW
COMMON TAGS

,SBTTL

336

337
338
339
3411
341
342
343
344
345
346
347
349
349
350
351
352
353
354
355
356
357
359
359
360
361
362
363
364
365
366
367
368
369
370
l71
H2
373
374
375
376
l77
378
379
l80
391
382
193
394
385
396
397
399
399
390
391

11-"UN-76

\3151

PAGE 9

SEQ 01133

COMMON TAGS

,,********************* •• ***************************************.

,.THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
I*USEO IN THE PROGRAM,
1111111111
110111111
0011110
111111112
001103
1101104
11111106
001110
1101112
1101114
1101115
001116
091120
0U122
891124
1101126
001130
0011 )2
1101134

.=111111
$C"TAGI
'PASS I
ITSTNM,
'ERFLG,
SICNT'
SLPAOR,
SLPERR:
SERTTL •
UTEMB,
URMAX,
sEI'IRPC:
sGDADFI:
$BDADR:
GGDDAT:
SADDAT,

IIIIIIIIIIB
IIIIB
000
110110110
0000110
"001100
000000
000
001
000000
0001100
0000"0
800800
1108000
11110000
000000
0~0

8000110
117579
117570
1175b0
117562
117564
177566
1100
002
012
900
090000

.WORD

.WORD
• WORD

.BYTE
.BYTE
.WORO
,WORD
.WORD
,WORD
,WORD
,WOI'ID
,WORD
SAUTOB. .BYTE
UNTAG. .BYTE
.WORD
SWR.
.WORD
DISPLAY, .WORD
aTKS.
117560
GnB.
117562
177564
UPS.
aTPB.
177566
GNULL: .BYTE
GFILLS: .BYTE
'FlLLC. ,BYTE
STPFLG, ,BYTE
S!lEGAD. ,WORD

000

0~113S

1101136
001140
1101142
1111\144
801146
001150
1191152
001154
091155
001156
001157

.WORD
.BnE
.BYTE
.WORO

II
II
0
0
II
0
0
0
I

""°
"
0

nSTART OF COMMON TAGs
I ,CONTAINS PASS COUNT
"CONTUNS THE TEST NUMBER
I ,CONTAINS ERROR FLAG
, ,CONTAINS SUBTEST ITERATION COUNT
, ,CONTAINS SCOPE LOOP ADDRESS
, ,CONTAINS SCOPE RETURN FOR ERRORS
"CONTAINS TOTAL ERRORS DETECTED
"CONTAINS ITEM CONTROL BYTE
"CONTAINS MAX, ERRORS PER TEST
, ,CONTAINS PC OF LAST ERI'IOR INSTFlUCTION
IICONTAINS ADDFlE8S OF 'COOD' DATA
I ,CONTAINS ADDRESS OF 'BAD' DATA
IICONTAINS 'GOOD' DATA
"CONTAINS 'BAD' DATA
I,RESERVED--NOT TO BE USED
"AUTOMATIC MODE INDICATOR
" INTERRUPT MOD! INDICATOI!

DSWI'I
DOISP

091166
091170
001172
001176
001177
001200

015
099012

001202
001204

009080
000090

I I ADDRESS OF SWITCH REGIST!I!
II ADDI!I!:SS OF DISPLAY I!EGISTEI!
"TTY KBO STATUS
" TTY KBD BUFFEI!
IITTY PRINTER STATUS I!EG. ADDRESS
IITTY PI'IINTER BUFFER REG. ADDRESS
0
"CONTAINS NULL CHAFIACTEI! FOR FILLS
IICONTAINS • OF FILLEI! CHAI!ACTERS REQUII!ED
2
"INSERT FILL CHAI'IS. AFTEI'I A "LINE FEED"
12
I,"TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES)
I,CO"TAINS THE ADDRESS FIIOM
nWHICH (SREGe) WAS OBTAINED
0
"CONTAINS (IREGAD).0)
GFlEG0. ,WOIID
GREGI: .WORD
"CONTAINS «(SI!EGAD)+21
STI~ESI 0
"MAX. NUMBEFI OF ITERATIONS
nESCApe; ON ERMR AODRESS
sESCAPE.!!
IBELL. ,ASC!! <207><377><377> "CODE FOR BELL
SQUES: ,ASCII 111
"QUESTION MARK
BCRLY! ,Asell <15>
"CARRIAGE I!ETURN
SLVI
.Ascn <12>
"LINE FEED
"******************************** ••• ****************************
SAVPC, .WOI!D
ISTORAGE FOR TH! PC
16
,STOI'IAGE FOR THE PS
SAVPS. ,WORD
16

0"12~6

177500
117501
177502
177503
000260

TACSL:
TACSH.
TAD8L.
TAOBH.
TAVEC:

"'~1160

001162
~01164

1101210
001212
091214
1601216

O00000
0110090
0001109
090000
177607

001222
001224
091230
001232
001234

077

090300
0001100
001224
000000
1609000

"
'"
'"

0160377

000262

177500
177501
177592
177503
260.262

TAil ~ANUAL INTERVENTION TEST
DZTACC.NEW
COMMON TAGS
392
393
194
395
39&

MACYI1 27(732)

MAINDEC-II-DZTAC-C

000090

,LOW BYTE ADDI!ESS OF TACS
IHIGH BYTE ADDRESS OF TAes
,LOW BYTE ADDRESS OF TADB
:HIGH BYTE ADDRESS OF TADB
ITAII VECTOR AODI!ESS

MACYII 27(732)
TAPRIO,
DRVKEY.
DFlVPNT.
ASKKEYI
CURDRV:

3160

0.0
OI!VKEY
9
II

II-JUN-76

13151

PAGE 10

I TAli BR LEVEL 6
,DRIVE SELECT KEY:
:CURRENT DRIVE BEING TESTED

SEQ

0923

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC,NEW
ERROR POINTER TABLE
397
398
399
400
401
402
403
404
405
406
407
408
409
410

411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434

435
436
437
438

,SBTTL

441
442
443
444

II-JUN-76

13151

PAGE I I

SEQ 0024

ERROR POINTER TABLE

,"THIS TABLE CONTAINS THE INFOIIMATION FOR EACH ERROR THAT CAN OCCUR,
,*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
,"LOCATION UTEMB. THIS NUMBER INDICATES IIHICH ITEM IN THE TABLE IS PERTINENT.
,*NOTE11
IF UTEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC),
,*NOTE2.
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS.

,.'"'"
,"
801236

EM
DH
DT
OF

"POINTS TO
IIPOINTS TO
"POINTS TO
IIPOINTS TO

THE
THE
THE
THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

$ERRTBI

001236
001240
801242
001244

013061
1113227
013340
000000

001246
001250
1101252
001254

013100
1113244
013346
0"0000

,NOTEI

ALL NUMBERS ARE TYPED AS 6-DIGIT OCTAL NUMBERS

:ITEM

I
EMI
DHI
OTt

,ITEM

001256
001260
001262
001264

013126
013244
013346
0"0"00

001266
001270
001272
"01274

013167
013244
013346

001276
081300
001302
001304

813212
813101
013156
0"0"0"

lITEM

2
EM2
DH2
DT2

3
EM3
DH2
DT2
0

4
EM4

DH2
DT2
8

""""0"
:ITEM

,STATUS PROBLEM
,PC
TACS
,$ERRPC $REG0

0
,ITEM

439
440

MACYII 27(732)

,READY FAILED TO SET
,PC
TACS
WUT ADDRESS
,SERRPC $REG0
SAVPC

,TRANSFER REQUEST FAILED TO SET
WAIT ADDRESS
TACS
IPC
ISERRPC $REG0
SAVPC

ITHE WRONG FLAG SET
TACS
WAIT ADDRESS
IPC
SAVPC
ISERRPC $REG'"

5
EMS
DH5
DT5
0

IDUA PROBLEM
TACS
IPC
I SERRPC aREG0

EXPECT
SGDOAr

RCV'D
SSDDAT

445

TAil MANUAL INTERVENTION TEST
DZTACC.NEW
ERROR POINTER
446
447
448

449
450
451
452
453
454
455
456
457

001306
1101306
001310
001312
801314
801316
001320
001322
001324

MAINDEC-II-OZTAC-C

ITEMS21
013402
013454
013]70

"""' ' 00
013431
111347\
013376
800000

MACYI! 27(732)

II-JUN-76

13.51

TABL~

:ITEMS 201-202
EM201
DH2111
OT201
II

ITAII FAlLED TO RESPOND
IPC
TACS
ISERRPC TACS
:BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS

EM202
OH202
DT202
0

INO DRIVES AVAILABLE
fPC
,SERRPC
I

PAGE 12

SEQ 0025

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTlce.NEw
START OF nST

II-JUN-76

\3.51

PAGE 13

458
459
460
461
462
463

;1111111111111111111111111111111111111111111111111111111111111111111111
;1111111111111111111111111111111111111111111111111111111111111111111111

464

;BEGIN3 IS FOR DRIVE & ADDRESS SELECTION

465
466

:BEGI N4 IS FOR MANUAL OPERATION

469
470
471
472

473

474
475
47&
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500

501
502
5113
504
505
506
507
508
509
510
511
512
513

,BEGINI IS FOR NORMAL START
,BEGIN2 IS FOR DRIVE SELECTION

1:***************************************************************
001326
""1330
001336
801344
1101346
001354
001356
1101360
filll1364
001]66
001372
001374
001400

805005
012731

122137

0411111
,,0"005

0"101~

022137
IIIH011
1l01l403
1112705
0011405
0127115
01104112
0127115

000260

001216

1100001
000002
000003

0014110
001404
001406
001412
001414

012706
111I5fil2&
022706
0111374
012706

001100

001420
001426
001434
001442
001450
001456
001464
1101472
001500
8111506
"01512
0111516
0111524
001532

1112737
012737
O12737
11127J7
012737
012737
012717
012737
016767
005067
005067
112767
012767
0127&7

006046
000340
006320
0"0340
012304
0110340
012370
1100340
1104270
177454
177452
"00001
001524
001532

001540
001544
001552
1101560

000004
0016110
177570
177570
177777

001574

013746
012737
012767
012767
022717
0111012

001576

000403

0~1566

001224

""""41

001140
001100
0""020
001'022
00fil030
0011032
000034
0001136
00fil024
01lfil026
0114260
177371
177354
177350

000004
177360
177354
177344

,NORMAL START
BEGIN I • CLR
R5
MOV
,'A8,@,DRVKEY
CMPS
,5,11#41
,CASSETTE DDP?
SNE
SGNCMN
,GO BEGIN COMMON CODE IF NO
1260, UTAVEC
CMP
,STANDARD VECTOR?
BNE
BGNCMN
,GO BEGIN COMMON CODE IF NO
BEGIN3
:GET DRIVES AND ADDRESSES
BR
,ASK FOR DRIVES FLAG
BEGIN2. MOV
H,R5
SGNCMN
,BEGIN COMMON CODE
BR
BEGIN]: MOV
,ASK FOR DRIVES AND ADDRESSES
'2.PS
BR
8GNCMN
BEGIN4. MDV
'1,R5
BGNCMN,
.SBTTL INITIALIZE THE COMMON TAGS
, ,CLEAP THE COMMON TAGS (SCHTAG) AREA
MOV
UCMTAG,R6
frF1RST LOCATION TO BE CLEARED
(P6)+
, ,CLEAR MEMORY LOCATION
CLR
CMP
IJSWR, R6 nDONE?
BNE
,:LOOP BACK IF NO
.-6
MOV
'STACK,SP
"SETUP THE STACK POINTER
"INITIALIZF. A FEW VECTORS
#SSCOPE,@UOTVEC "lOT VECTOR FOR SCOPE ROUTINE
MOV
MOV
#340,I!IIOTVEC+2 "LEVEL 7
MOV
UERROR,@#EMTVEC , ,EMT VECTOR FOR ERROR ROUTINE
MOV
U40, UEMTVEC+2 ;;LEVEL 7
MDV
'$TRAP,~#TRAPVEC "TNAP VECTOR FOR TRAP CALLS
MOV
#340,~'TRAPVEC+2,LEVEL 7
MDV
UPWRDN, UPWRVEC "POWE~ FAILURE VECTOR
MOV
'340, UPWRVEC+2 ; ,LEVEL 7
MOV
SENDCT,SEOPcr
:,sETUP END-OF-PROG~AM COUNTE~
CL~
STIMES
"INITIALIZE NUMBER OF ITERATIONS
SESCAPE
CLR
"CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
.1,SERMAX
"ALLOW ONE E~RDR PER TEST
MOV
•• ,SLPADR
;,INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,S['PERR
"SETUP THE ERROP LOOP ADDRESS
"SIZE FOR A HARDWARE SWITCH REGIsTE~. IF NOT FOUND O~ IT IS
"EQUAL TO A "-1 ", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
@#ERRVEC,-(SP) "SAVE ER~O~ VECTOR
MDV
364S, P#ERRVEC
"SET UP ERROR VECTOR
MOV
#DSWR,SWR
"SETUP FOR A HARDWARE SWICH REGISTER
MOV
'DDISP,DISPLAY "AND A HARDWARE DISPLAY REGISTER
CMP
"TRY TO REFERENCE HARDWARE SWR
'-I,@SWR
BNE
66S
"BRANCH IF NO TIMEOUT T~AP OCCURRED
nAND
THE HARDWARE SWR IS NOT • -I
BR
65S
"BRANCH If NO TIMEOUT

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTAce,NEW
INITIALIZE THE COMMON TAGS
514
515
516
517
518

001600

001606

001606
001614
001622

012716
000002
012767
012767
012637

001626
901632
001634
001642
001&44

005227
OO1036
022737
"01432
104401

177777

001650
IIIl1654
"01&56
001&64
001666
001670
001672
0017011
1101700

0057)7
01l11l06
1126727
1101005
1114405
001l41l3
112767

0~1604

000176
000174
000004

64$:
177324
177320

MOV
RTI
HOV
MOV
MOV

65S:
66$.

MACYlI 27(732)
'65$,(SP)

II-JUN-76

\3.51

PAGE 14

"SET UP FOR TRAP RETURN

ISWREG,SWR
"POINT TO SOFTWARE SWP
OOISPREG,DISPLAY
(SP)+.@OERRVEC "RESTORE ERROR VECTOR

519

520
S21
522
52l
524
525

526
527
528
529

530
531

532
533
5]4
535
536
537

538

,SBTTL

TYPE PROGRAM NAME
THE NAME OF THE PROGRAM IF FIRST PASS
INC
'-1
"FIRST TIME?
bNE
HERE
:, BRANCH IF NO
CMP
'SENDAD,P'42
nACT-II?
BEQ
HERE
"BRANCH IF YES
TYPE
,MSGID
"TYPE ASCII STRING
.SBTTL GET VALUE FOR SO'-TWARE SWITCH REGISTER
"ARE WE RUNNING UNDER XXDP/ACT?
TST
"42
SNE
67$
"BRANCH IF YES
CMP
SWR •• SWREG
"SOFTWARE SWITCH REG SELECTED?
BNE
68$
"BRANCH IF NO
GTSWR
"GET SOFT-SWR SETTINGS
BR
68S
67$:
MOVB
,I.SAUTOS
:;SET AUTO-MODE INDICATOR
688.
BR
HERE
"GET OVER THE ASCIZ
: ,MSGIo,
.ASCIZ <CRLF>/MAINOEC-II-DZTAC-C/<CRLF>
HERE:
**********.
: JTYPE

0O&014

0"0042

001702
000042
177256

000176

000001

177234

000413

"0173~

,r·***-···.*****·-.*·*···-·*_·**.··**·*····*·*_·_····:r*·*·_·*_·_·_···-**·**·*-*··_··_·····_·*···_··_···_*-.**********

539
540

541

,THE CONTENTS OF RS DETERMINES WHAT WILL BE DONE

542

543

R5=3
R5=2
R5=1
R5=0

544

545

546
547
548
549

550
551
552
553
554
555

556
557
558

559
560

561

562
563
564

565

566
567
568

569

SEQ 0026

11***-**-**···**·*******·*******·*-****-·-·*·_****-*--**_.******-

467
468

(

MACYlI 27(732)

001730
001732
001734
1101736
001742
001744
001746

010504
0053115
002406
1104737
0053115
002402
004737

00703&
007146

MANUAL OPERATIONS
ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR)
ASK FOR DRIVE(S)
DON'T ASK FOR ANYTHING

::******************************.********************************
BEGINX I MOV
R5, R4
,COPY R5
DEC
RS
,ASK FOR DRIVES?
BLT
CHKADR
;BR IF NO
JsR
PC,@IAsKDRV
IGO GET DRIVES TO BE TESTED
DEC
RS
,ASK FOR ADDRESSES?
BLT
CHKADR
,BR IF NO
JSR
PC,9,ASKADR
,GO GET TAl! ADDRESSES
J, ••
**.* ••• *.-.** •• *_ •• *.*.*-* •• ****._ ••••• *.-**.*** •••••
::**.*.* •• _* ••••
*_.*.* •••••
*-***********

_*-*--•• _._*** ••

*-_.***.-_.*._* ••

,CHECK THAT RTACS· WILL RESPOND TO ADDRESSING
I

I I,

TIMEOUT OCCURRED
A. TYPE ERROR MESSAGE
B, EXAMINE R4
1. R4>0 GOTD BEGINX
2 II> P4=0 EXAMINE (42)
A. (42)=0 GOTO BEGINX
B, (42»O GO TO SENDAD

SEQ ~027

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
GET VALUE FOR SOFTWAU SWITCH REGISTER

570

571
572
573
574
575
576
577

578
579

580
581
582
583
584
585
586
587

588
589
590

,II.

001752
001760
001762
001766
001770
001772
001774
002002
002004
002006
002010
002014
002016
"02020
002024
802826
082032

IH2737
005000
005777
000402
"05200
922626
012737
005700
001412
104201
012705
005704
001344
013700
11111741
0011137

001770

000004

177220

000"06

000004

0110002
000042
11116014

MACYII 27(732)

,,*********************** •• ******* ••• ********** •• ************ ••••

CHKADRI MOV
CLR
TST
DR
INC
161
eMP
MOV
2Si
TST
BEQ
ERROR
1I0V
TST
8NE
HOV
SEQ
JMP
38:

US,UERRVEC
R0
nACSL
28
R0
(SP) •• ISP).
.ERRVEC.2"IERRVEC
R0
3S

201

.2,R5

R4
BEGINX
"42,P"
BEGIN X
"SENDAD

: 1.

597
59B
599
600
601
602
603
6114
6115
606
601
608
699

625
626
627
US
629

638
631
632
633
634
US
636

637
638
639
648
641
642
643
644

645
646

13151

SEQ 0029

PAGE 16

DESIRED DRIVES CAN NOT BE TESTED
A. TYPE ERROR MESSAGE
B. EXAMINE R4
I. R4>0 GO TO BEGINX
, . Ft4=0 EXAMINE (42)
A. (42):0 GO TO BEGINX
B. (42»11 GO TO SENOAD

BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED
A. CLEAR BAD DRIVE FROM THE DRIVE TABLE
B. CONTINUE IN PROGRAM

DESIRED DRIVElS) CAN BE TESTED
A. CONTINUE IN PROG~AM

,II •

,,III •

619

623
624

II·JIl~-76

,MAKE SUPE THE DRIVES IN THE DRIVE TABLE CAN 8E TESTEO

595
596

622

MACHI 27(732)

,IN CASE OF TIMEOUT8
;USE AS A 8WITCH
,SEE IF TAil RESPONDS
;BR IF NO TIMEOUT
,COME HERE ON TIMEOUT
,CLEANUP THE STACK
,RESTORE TIMEOUT VECTOR
,DID A TIMEOUT OCCUR?
;BR IF NO
;TAII FAILED TO RESPOND
,DRIVES & ADDRESSES
rOPERATO~ INPUTS?
,B~ IF YES
,GET MONITO~ ~ETURN ADDRESS
,BR IF NO MONITOR
;GO TO END

" ••• ***************.*.************************* ••• *.* ••• ********

594

617
618
619
620
621

SEQ 011128

PAGE 15

Jr···-**····**··_*_··*··_·_·········_·····_···_--_·_·-***********

591
592
593

616

13151

TIMEOUT DIDN'T OCCUR
A, CONTINUE

TAIl MANUAL INTERVENTION TEST
MAINDEC-Il-DZTAC.C
DUACC.NEW
GU VALUE FOR SOFTWARE SwITCH REGISTER

611
612
613
614
615

II-JUN-76

;

992932
902036
082042
992044
002950
002052
"02956
992060
1182062
1102964
902966
11"2072
002014
1/192076
002192
902106
902112
002114

IInue

012122
'02124
1102126
0821311
lUlU
1102136

012709
094737
090419
116019
091412
004737
099497
005019
099495
905200
894737
000491
1050111
012700
910937
1211160
001082
185969
085719
0111491
0"04U
104202
012705

OKI

MOV

~4,"A5XKEY

PW~STI

SR
TYPE
MOV

START

0111702
081224

919654

919654
0"1224
001230
000081
9160091

00011112

005704

813780
"01671
088137
02"427
001002
0167114
818437

SSZUS

&1l1l4115

Il82172
082176

175613
001232

99999\

801274

802144
082146
802152
002156
"82168
1102164

11"2140

:,****************************************************.*.********
,DRVKEY,R9
,PICKUP ADDRESS OF ASCII DRIVE KEY
C"KDRV: MOV
PC,OIEXAM
,GO EXAMINE FIRST D~IVE
JSR
BR
~OK TO TEST---GO CHECK NEXT
IS
MOVB
IIR9), (R0)
,REPLACE 1ST WITH 2ND
BEQ
:8R IF NO 2ND DRIVE SELECTED
2$
PC.@#EXAM
,GO EXAMINE DRIVE
JSR
2$
SR
,OK TO TEST
(R0]
CLR
;CLEAR DRIVE CODES
BR
2$
,POINT TO 2ND
INC
R0
IS.
,GO EXAMINE DRIVE
JSR
PC.@fEXAM
,OK TO TEST
BR
2.
CI,RB
(RB)
,CLEAR 2ND
MOV
fD~VKEy,R0
;RESET ADDRESS POINTERS
2S1
MOV
~II,UORVPNT
IR0),! (R0)
CMPB
liST = 2ND?
8NE
:BR IF NO
38
eLltB
lIRe)
,YES---CLEAR 2ND
3$,
IRB)
I ANY DRIVES?
TST
BEQ
:BA IF NO
58
BR
MANUAL
ERROR
,NO O~IVES AVAILABLE
511
202
t2,~5
,DRIVES , ADD~ESS
MOV
,OPERATOR INPUTS?
TST
R4
SHE
BEGINX
,SR IF YES
.,.2,RII
MOV
I GET MON ITOR RETURN ADDRESS
BEQ
BEGINX
,NO MONITO~
JMP
UUNDAO
,GO TO END
MANUAL, CMP R4,13
8NE
OK
MOV
-1,114

001224
919654

184401
1112737

00111042

086814
01101103

801230

, MSGID

;POWE~

)

FAIL ~ESTA~T

'ORVKe:Y,.tD~VPNT

····w··

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

TAlI

MANUI~

INr~"VENIIDN

.H
649
049
650
651
652
65l
654

655
656
bS7
658
659
660
661
662
663

664
665

0U777

001230

171004

~~2212

005077

012737
01)704

177002
000340

177776

ml3705

005737

002242
002250
1102254
002256
002262

012737

077777

005037
005001

001102

013701

001230

121127

000101

002266
002270
002300

002334

669

002340

670

002342
002344
002350

672

673
674
675

~02302

112167
104401
104401
105711
001002
012701

176704
001234

010137

001230
001232

677
678
679
680

00240"

685

686
1,87

TAil

TYPE
BR

001224

000176

1$.

176544

SHE

005731

001406
010314

002410
002414

1127\4
03271 4

00242"

001775

000042

000017
000040

BEU
MOV
MOVS
BIT
BEQ

3$,

VECTOR
INT

,IF FIRST PASS SETUP FOR EXTRA

,OTHERWISE USE OLD VALUES

,SETUP TAOB

*"CBITI5.@IMAXCNT
9UTSTNM

,ZERO THE TEST NUMBER

DRIVE
@#DRVPNT,R\

,SET DRIVE TO 'A"
,GET DRIVE POINTER
115 IT DRIVE "A'?
;BR IF YES
,5ET DRIVE TO oS'

(Rlld'A

TDRV
IUNIT,DRIVE

;TYPE A CR & LF
;LAST DRIVE BEEN SELECTED
,SR IF NO
,RESET DRIVE POINTER
,SAVE DRIVE POINTER FOR NEXT TIME
lGO START TESTING If NO MANUAL
OPERATIONS REQUESTED

#DRVKEY,RI
Rt.@#DRVPNT
@IASKKEY
2$
Fe

GIVE CONTROL TO THE OPERATOR
USING S/" SWITCH REG?
NO- GET OUT
GET VALUE
CONTINUE

ti5WREG,SWR
20$
&,

DDP

IS THERE A MONITOR?
GO START TESTING If NO
If YES SELECT DRIVE
SEND TAPE TO BOT
WAIT ON READY
FALL THRll IF READY=!

TSTI
DRIVE,PTACS
#REWIND!GO,@TACS
#RE.ADY,liiTACS
3S

MACYlI 21(732)

II-JUN.76

13,51

PAGE 18

.*.

695
696

002422

000004

697

002424

698
699

002432

012767
0057;7
001021
000005

~:.**

TSTI'
000001

•• * •••••••• *•••• * •• * ••••• * ••• ** •• ****** •••••• *.* ••••••••••••

176534

001100

701
702

002444

703

002450

704
705

002452
002456
002460

104412

163737

006706

002466
002472

005237
0061 J7

006732
00&732

002476

006131

006732

010314
112714
104412

0110017

! 12714

000001

006132

SCOPE
HOV
#I, STIMES
;;00 1 ITERATION
@i$PASS
TST
,IS THIS THE FIRST PASS?
BNE
TST2
:18R IF NO
RESET
HOV
DRIVE,@TACS
,SELECT THE DRIVE
Move
#REWIND!GO,~TACS
:START A REWIND
WAITREADY
,WAIT fOR REAO~
MOVB
#WFG1GO,@TACS
,WRITE A FILE GAP
WAITREAOY
,WAIT ON READY
SUB
A'HGHTIM,@#MAXCNT
,GET THE TIME IT TOOK
INC
@#MAXCNT
,MAKE IT BIGGER
ROL
@#MAXCNT
ROL
@#MAXCNT

:: •• *.**.** ••• *•• *.**** •• *••• * ••• ** •••••••• *~* •••••••••••••••••••

"TEST 2

713
714
715

002502
"02504
002512

716

002516

117
718
719

002520
002524

720
721

002574
002574

104401

722

002600

000422

000004
012767
005767
001053
104401

SETUP FOR MANUAL INTERVENTION

; : **********.**** **-. ~HH~* • • • *****,* •• "'* •• * •• ****.******* ••HH~* **** ••

712

TST2:
000001

176454

176362
002526

000423

,,65$'
64S'

002602

723

;;675:
66$'

002646

SCOPE
HOV
TST
BNE
TYPE
BR
.ASCIZ

#l,$TIMES

,IS THIS THE FIRST PASS?
;; SKIP TYPE OUT IF YES
,65S
,;TYPE ASCIZ STRING
645
"GET OVER THE ASCIZ
<lS><12>"DIRECTIONS WILL BE TYPED ON THE TTY~

TYPE

,67$

66S

.AselZ

nOO 1 ITERATION

SPASS
TST3

<15><12>~HIT

;;TYPE ASCIZ STRING

'IGET OVER THE ASCIZ
'CR' wHEN READY TO CONTINUEw<15><12>

725
726

"TEST 3

727

,,***************************************************************

;,~**~*************.*********************************************

728

002646

000004

729
730
731
732
733

002650
002656
002664

012767

002670
002672

734

002&74
002700

002702
00270.
002710

739

002712

737

740
741
742
743

TST3:

012767

000012
002700

004037

007436

012674
000402
000137

003120

000005

176310
176222

1 s.

010314

032714

001000

001001
104001

SETUP FOR POWER DOWN TU60 TEST

SCOPE
MOV
MOV
JSR
MTUPWR
BR
JMP
RESET
HOV
BIT
SNE
ERROR

#10.,$TIMES
#I$,SLPADR
R0,@#ASKQUES

"DO 10. ITERATIONS
"SET SCOPE LOOP ADDRESS

'DO THIS TEST
,SKIP POWER FAIL TESTS
,CLEAR INTERfACE
,SELECT DRIVE
,IS 'OFFLINE" ON A ONE?

@*TST6
DRIVE,@TACS
10FfLINE,@TACS
T5T4
1

,rSF!. IF YES

,ftOFFLINE N BIT ISN'T ON A ONE

*·1t*******_*************
. . ·IHHIHH;.*** ... *****************************
,"TEST 4
TEST 'OFFLINE" WHEN TU60 IS POWERED DOWN

, f

00271 4

WAIT LOOPS

, SETUP TO TYPE CURRENT DRIVE

(RIJt,CURDRV
,CURDRV
,SCRLF
(RI)

,THIS ISN'T A REAL TEST ~UT A SMALL ROUTINE TO DETERMINE THE MAX.
ITIME FOR THE WAIT LOOPS (WAIT FOR "READY" AND "TRANSFER REQUEST")
:,>TEST
~ ** *.* *" * *" *' ** '* ** * it . . . * •• * -» ** * •• +*
*..... ** ...... **:111- **** **.* *'* ** .. ***
1
ROUTINE TO DETERMINE TIME Of WAIT LOOPS

738

~ONG

,656
"TYPE ~SCIZ STRING
;IGET OVER THE ASCIZ
<15><12>.TESTING DRIVE'

:;**4************************ •• **** ••• ***.******* ••• *.****** ••• **

694

735
736

ens

64$

I11111111111I1111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111

002436
002440
002442

SEQ

, SETUP TACS

@lTICSL,TACS
PlTIDBL, TADB
USPASa

INTERVENTION TEST
MAINDEC-II.0ZTAC-C
GET VALUE fOR SOfTWARE SWITCH REGISTER

693

724

I snup 'All TPAP
,LOCKOUT UL 110

nlVEe."

GTSW?

692

709
710
711

.ABeIZ
Mova
TYPE
TYPE
T5TB
BNE
MOV
MOV
TST
BGE
CLF
HALT
eMP

0011 77

688
689
690
691

706
701
708

UTAVEC+2 :nAV~C

20$ ,
i THIS CODE IS FOR AC~II
@#42
TST
2" :

002400

~ANUAL

PAGE 17

13151

.340, P'u

104405

""2404
002406

OZTACC.NEW

700

eLR
MOV
CMPB
BEQ
HOV

II-JUN-"

64$1

~05737

684

006732

000400

104401
000411

002007
005000
000000
022767
001001

683

Mlenl 27(732)

TDRV,

002354

681
682

TST
aNE
MOV
eLA

0014~2

002360
002362
002364
002366
002374
002376

I, 76

MOV

n65S:

668

CLA
MOV

001~01

012703

MOV

002274
~02214

UMTI

001206
001212
MI100

~02230

002214
001240

1,67

671

MI1NDEC-II·OZTAC·C

002216
00n24

002?04

002324
002324
002330

66D

ItGI

an VALU~ FOR SOFTWARE GWITCH REGIOT~~

DUlCe, N~W

J'*********~*****.***********4************************ ***********

T514.

SCOPE

SEQ 0031

TAll MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
MACYll 27(732)
DZUCC,NEW
T4
TEST ·OFFLINE" WHEN TU60 IS POWERED DOWN
144
145
146
747
748
149
7511
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
170
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799

11112716
1102724
002730
002732
002734
002736
0112740
11112144
1102746
002750
002752
1102754
002760
002762
002764
002766
002770
002774
002776
003000
003002
003004
003010
003012
110]014
003016
003020
0031124
003026
003030
0113032
1103034
003040
~031142

003044
003046
003050
0031154
003056
0030U

012767
112714
104412
0115714
1004111
11141101
112714
104412
005714
190401
1040111
112714
104412
005714
100401
104001
112714
104412
005714
UII4B1
10400\
112714
104412
005714
1110401
104001
112714
1"4412
0115714
1004111
104001
112714
104412
005714
100401
104001
112714
1105714
10040\
104001

1103062
00""0\

176244

000093

000005

000007

000011

000013

000015

000017

~03100

003102
1103104
003106
003110
003114
003116

000004
012767
004037
012714
0"0240
000005
010314
104412
032714
001401
104001

000004
012767
004037
1112732
01104112
000137
000005
010314
1142714
032714
0010111
104001

003164
003166
003174
003200
003202
003204
003210
003212
003214
003220
003222

000004
012767
1104037
013000
000462
000137
000005
010314
1132714
1101401
104001

003224
003226
003234

000004
012767
012767

003242
003244
003246
1103252
11103254
003256
003260
003262

000005
1110314
112714
104412
805714
10000\
11,.001

844
845
846
847
848
849
850
851
852
853

003262
003270
1103274
003276
0113302
003304
003306
003310
1103312
003316

1112767
112714

854
855

003320

"12767

803
804
805
806
807
808
809
810
811
812
813
814
815
816

817
818
819
820
821

822
823
824
825
826

TST5:
003104
007436

176014

IS:
2$:
001"00

003146
007436

175756

1103224
0010110
001000

SCOPE
MOV
#2S.SLPADR
R0.@.ASKQUES
JSR
MPWRUP
NOP
RESET
MOV
DRlVE.UACS
WAlTREADY
8IT
'OFFLINE, PTACS
SEQ
TST6
ERROR
I

832

837

841

842

POINTER

,SELECT DRIVE
,WAlT ON READY
,DID OFFLINE CLEAR?
::BR IF YES
,OFFLINE = I

MACYll 27(732)

II-JUN-76

13:51

PAGE 20

""3212
007436

175712

003224

,OTEST 7
PUT DRIVE "ONLINE"
::******************************************.*.******************
TST7I
SCOPE
MOV
US.$LPADR
"SET SCOPE LOOP ADDRESS
R0.@#ASKQUES
JSR
MTAPE
BP
,DO TEST
18
JMP
,SKIP THIS TEST
"TSTI0
RESET
IS:
DRIVE,UACS
HOV
,SELECT DRIVE
SIT
,OFFLINE.nACS
,IS DRIVE OFFLINE?
8EQ
,,8R IF NO
TSTl0
ERROR
,DRIVE IS OFFLINE
I
1'*****·*********************·***********************************
,*TEST 10
PUT DATA ON TAPE FOR WRITE LOCK TEST
*****-***.*-*_.*-_.*-***-***********
TSTI0, SCOPE
MOV
.1.8TIMES
"DO I ITERATION
MOV
U,.SESCAPE
"ESCAPE TO IS ON ERROR

2.,

001000

,,*•• _*--_..__ .. _._._. __ ._ ...

00011111
003242

175732
175726

, . . . . . . . . . . . . . . HIUI.

834

838
839
840

~MESSAGE

,,***************************************************************
TST6:
SCOPE
MOV
n •• SLPADR
"SET SCOPE LOOP ADDRESS
R0.~IASKQUES
JSR
MOFFLN
,MESSAGE POINTER
SR
,00 TEST
IS
JMP
UTSTI0
,SKIP THIS TEST
RESET
,CLEAR THE WORLD
IS:
MOV
DRIVE.nACS
,SELECT DRIVE
2$:
SIC
,TRY TO CLEAR OFFLINE INDICATION
'OFFLINE. nACS
BIT
'OFFLINE. nACS
;TEST FO~ "OFFLINE"
SNE
TST7
JrBR IF "OFFLINE":1
ERROR
: "OFFLINE=0
I

833
835
836

..;

:,SET SCOPE LOOP ADDRESS

Jr·······*·····_····*····-*···_······*_··_········_·*-***********

828
829
830

SEQ 0032

,:._*---*-_
... _.**_
.. *.-_..***_._.*---*._---_._-.. _..... -._--**-,.TEST 6
TEST 'OFFLINE" WHEN ORIVE IS EMPTY

827

831

PAGE 19

;; •••••••••••••••••••••••••••••••••••••• ** •••••••••••••• * ••••••••

003062
"03064
003072
003076

003120
003122
003130
003134
003136
003140
003144
003146
0031511
003154
003160
003162

802

13.51

MOV
nST5 •• ESCAPE
,.ESCAPE TO TEST 5 ON ERROR
MOVS
#WFGIGO.$TACS
,TRY TO DO A "WFG"
WAITREADY
,WAIT IN "READY'
@TACS
TST
,CHECK FOR AN "ERROR"
8MI
1$
,8R IF "ERROR"=I
ERROR
: "ERROR":0
I
MOV8
,WUTEIGO.tTACS
,TRY TO DO A "WRITE"
IS:
WAITREADY
:WAIT ON "READY·
TST
nACS
,CHECK ERROR FLAG
8MI
28
ERROR
,"ERROR"=0
I
2$ ,
MOV8
IREADIGO.UACS
,TRY TO DO A "REAO·
WAlTREADY
,WAIT ON "READY·
nACS
TST
,CHECK ERROR FLAG
SMI
38
,"ERROR"=0
ERROR
I
3$:
MOVS
tBSFGIGo.nACS
:TRY TO DO A "BSFG"
WAITREAOY
,WAIT ON "READY·
@TACS
,CHECK ERROR FLAG
TST
8MI
4S
ERROR
,"ERROR=0
\
MOV8
:TRY TO DO A "8SBGA
4$:
8SSSGIGO.@TACS
WAlTREADY
;WAIT ON -READY·
,CHECK ERROR FLAG
TST
nACS
8MI
5$
,IIERROR"&0
ERROR
\
5$,
HOVS
'SFFGIGO.~TACS
~TRY TO DO A "SFFGft
WAITREADY
,WAIT ON -READY"
,CHECK ERROR FLAG
TST
PTACS
8MI
6$
ERROR
I
: "ERROR"=0
6$,
Mova
ISFBGIGO.~TACS
,TRY TO DO A "SF8G"
,WAIT ON -READY"
WAITREAOY
PTACS
,CH~CK ERROR FLAG
TST
8MI
7$
ERROR
,"ERROR"=A
1
MOVB
IREWIND! GO. ~TACS
,TRY TO DO A REWIND
7$ :
,CHECK ERROR FLAG
TST
@TACS
8MI
TST5
::SR IF ERROR=I
ERROR
,"ERROR"=0
I
:J** •• **************** ••• *.*******.******** •• *********.*.********
POWER UP THE TU60
,*TEST 5

TAIl MANUAL INTERVENTION TEST
MAINDEC-ll-DZTAC-C
DZTAce.NEw
T6
TEST "OFFLINE" WHEN DRIVE IS EMPTY
800
801

II-JUN-76

1$:

000017

28:

843

008006
000003

000014

104413

112715
005327
008060
003372
104413
052714

64$'

000377

658.
0"0020

1"4412

000006

1100014

,HANG IN THIS TEST UNTIL DATA IS ON TAPE WITH NO ERROPS
RESET
MOV
DRIVE,@TACS
MOVS
#REWINOIGO.@TACS
WAITREADY
,WAIT ON READY
TST
PTACS
,CHECK FOR ERROR
BPL
2.
ERROR
I
,"ERROR" =
,WRITE A SLOCK OF 6 BYTES
MOV
16,658
MOV8
,WRITEIGO •• TACS
WAITXFER
MOVS
1377. UADS
DEC
(PCI.

BGT
648
WAITXFER
SIS
ULBS. nACS
WAITREADY
,WRITE A BLOCK or 6 SYTES
MOV
16.618

,SETUP FOR 6 SYTES
,START A WRITE
,WAIT ON TRANsFER REQUEST
,LOAD DATA BUFFER
,MORE TO DO?
,NUMSER OF SYTES TO WRITE GOES HERE
,BR IF YES
,WAIT ON TRANSER REQUEST
,WRITE CRC
,WAIT ON READY
,SETUP FOR 6 BYTES

SEQ 0033

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
PUT DATA ON TAPE FOR WRITE LOCK TEST
TI0
856
857
858
859
860
861
862
863
864
865
866
867
868
8b9

(

870
871
872
873
874
875
876
877
878
879
880
88\
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911

0113326
003332
003334
003340
003342
1103344
003346
003350
003354
1103356
1103362

112714
104413
112715
005321
000000
003372
104413
052714
104412
112714
104412

000003

003364
0113372
003376
11113400
0113404
003406
0034\0
003412
003414
003420

012767
112714
104413
112715
005327
0000110
""3372
104413
052714
1114412

000006
0000113

003422

0001104
012767
012767
012767
004037
013021
000402
000137

003424

003432
003440
00H46
003452
003454
003456
003462
00)462
003464
1103466
003472
003474
003476
003500
003502
003506
003510
""3512
003512
003516
003522
003524
003526
003526
003532
003536
003540
003542
003542

000005
010314
112714
104412
005714
100001
104001
032714
001001
104001
112714
032714
001001
104001

916

917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935

936
937

938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967

003546
003552
003554
003556
003556
003562
003566
003570
1103572
1103572
003576
003602
00]604
003606
"03606
003612
003616
003620
003622
003622
11103626
003632
003634
003636
003636
003642
003646
003650
003652
003652
003656
~03660

003662
003664
003664
0113670
003672
1103674
003676
0"3676
003702
003704
003706
003710
003710
003714
003716
083720
003722
003722
003726
003730
003732
003734
003734
003740

II-JUN-76

13151

PAGE 21

000020
000001
000014

000377

000020

000001
003462
003772
007436
005716

000017

020000

000~00

010000

1127\4
032714
001001
104001

000002
010000

112714

0P01104

032714
001401
104001

010000

112714
032714
001401
104001

000006
010000

112714
032714
00\401
104001

000010
010000

MOVB
'WRITEIGO, eTACS
,START A WRITE
WAITXFER
,WAIT ON TRANSFER REQUEST
MOVB
H77,nADB
,LOAD DATA BUFFER
(PC,.
DEC
;MORE TO DO?
,NUMBER OF BYTES TO WRITE GOES HERE
0
678:
BGT
,BR IF YES
66.
WAITXFER
,WUT ON TRANSER REQUEST
BIS
ULBS.PTACS
,WRITE CRC
WAITREADY
,WAIT ON READY
HOVB
,WFGIGO,nACS
,WRITE A FILE GAP
WAITREADY
,WUT ON "READY'
,WRITE A BLOCK OF 6 BYTES
HOV
.6,69S
,SETUP FOR 6 BYTES
,WRITEIGO,nACS
MOVB
,START A WRITE
WAITXFER
,WAIT ON TRANSFER REQUEST
68S1
MOV8
1377,fTAD8
,LOAD DATA BUFFER
DEC
(PCI.
,HORE TO 001
69$1
,NUMBER OF BYTES TO WRITE GOES HERE
0
8GT
;BR IF YES
68S
,WAIT ON TRANSER REQUEST
WAITXFER
ULBS,PTACS
BIS
,WRITE CRC
WAITREADY
,WAlT ON READY
J,***** ••••••• * ••• ** ••• * •• *** ••••••• * ••• ***** ••• _.**.-***** ••• * ••
TEST 'WRITE LOCK" WHEN AT CLEAR LEADER
:.TEST 11
JJ**.** ••••••••••• ******.*** •••••••• *.*.**.* •••• ********.**.*.* ••
TSTIII SCOPE
NOV
81, STIMES
"DO I ITERATION
HOV
US,$LPADR
,.SET SCOPE LOOP AODRESS
MOV
nSTI2, .ESCAPE ,'ESCAPE TO TEST 12 ON ERROR
R0, U ASKQUES
JSR
,HAVE OPERATOR SET 'WRITE LOCK'
MWRTLK
BR
,DO TEST
IS
JMP
UTSTn
:SKIP WRITE LOCK TESTS
1$:
RESET
,CLEAR ALL
MDV
DRIVE,@TACS
,SELECT DRIVE
MOVB
.REWIND I GO, aTACS
: GO TO ",80T"
WA!TREADY
TST
@TACS
:IS "ERROR"=l
BPL
28
:BR IF NO
ERROR
:-ERElOR"=l
I
2$ •
#LEADER,~TACS
,CHECK FOR CLEAR LEADER
BIT
BNE
,BR IF ON CLEAR LEADER
3S
ERROR
,REWIND DIDN'T GO TO BOT
I
3$ •
,wFG,nACS
MOVS
:LOAD A "WFG"
#WRTLOCK,~TACS
BIT
,IS 'WRITE LOCK ERROR' = "I"
BNE
64S
:8R IF YES
,"WRITE LOCK ERROR" NOT EQUAL "\ "
ERROR
I
64$:
MOVB
#WRITE, aTACS
:LOAD A "WRITF;"
#WRTLOCK,~TACS
BIT
:IS "WRITE LOCK ERROR" = "1"
8NE
,8R IF YES
65S
ERRO~
I
,'WRITE LOCK ERROR" NOT EQUAL "I'
65S:
MOVB
,READ,tTACS
:LOAD A "READ"

175534
175446
175522

112714
032714
001401
104001

000012
010000

112714
032714
001401
104001

000014
010000

112714
032714
001401
104001

000016
010000

112714
005714
100401
10408\

000000

66S:

MACYII 27(732)

II-JUN-76

13:51

PAGE n

8IT
BEQ
ERROR

.WRTLDCK,UACS
66'
I

JlS "WRITE LOCK ERROR" = "0"
,BR IF YES
,'WRITE LOCK ERROR" NOT EQUAL "0"

MOVB
BIT
BEQ
ERROR

'BSFG,~TACS

'WRTLOCK, UACS
67$
I

:LOAD A "BSFG"
,IS "WRITE LOCK ERROR" = "0"
,BR IF YES
,'WRITE LOCK ERROR" NOT EQUAL '0"

67$:

68S!

69$1

MOVB
BIT
BEQ
ERROR

68$

18SBG,9TACS
I

:LOAD A "8S8G"
:IS "WRITE LOCK ERROR" = "0"
,BR IF YES
,"WRITE LOCK ERROR" NOT EQUAL '0"

MOVB
BIT
8EQ
ERROR

#SHG,@fACS
,WRTLOCK,_TACS
69$
I

,LOAD A "SFFG"
,IS "WRITE LOCK ERROR" = '0"
;BR IF YES
;"WRITE LOCK ERROR" NOT EQUAL "e"

MOVB
BIT
BEQ
ERROR

UF8G, nAC5
,WRTLOCK,@fACS
70S

:LOAO A "SFBG"
;IS "WRITE LOCK ERROR'
"0"
,8R IF YES
,"WRITE LOCK ERROR" NOT EQUAL "0"

MOV8
BIT
BEQ
ERROR

.REWIND, nACS
#WRTLOCK, UACS
71$
I

,LOAD A 'REWIND"
:IS "WRITE LOCK ERROR" = -0"
,BR IF YES
,'WRITE LOCK ERROR' NOT EQUAL "0"'

MOVB
TST
8MI
ERMR

8WFG,UACS
@fACS
728
I

,CHECK "ERROR" WITH "wrGn
,SAMPLE THE 'ERROR' BIT
:8R IF -ERROR"
1
: "ERROR" NOT = 1

MOV8
TST
BMI
ERROR

'WRITE, 'fACS
UACS
73.
I

;CHECK 'ERROR" WITH ·WRITE"
,SAMPLE THE "ERROR" BIT
,BR IF "ERROR" = \
;"ERROR" NOT = 1

HOVB
TST
BMI
ERROR

'READ,nACS
nACS
741
1

,CHECK "ERROR" WITH "READ"
;SAMPLE THE "ERROR" BIT
,BR IF 'ERROR"
1
,'ERROR' NOT = I

MOVB
TST
BMI
ERROR

OBSFG, fTACS
nACS
751
I

,CHECK 'ERROR' WITH IIIIBSFG"
,SAMPLE THE "ERROR' BIT
,BR IF "ERROR"
I
,"ERROR" NOT. 1

MOVB
TST
BMI
ERROR

IBSBG,tTACS
765
I

nAts

,CHECK "ERROR" WITH "BSSG"
,SAMPLE THE "ERROR' BIT
,BR IF 'ERROR'
I
,"ERROR" NOT :I 1

MOVS
TST

8SFFG,nACS
UACS

;CHECK 'ERROR" WITH "SFFG"
,SAMPLE THE "ERROR' BIT

tWRTLOCK,~TACS

70S:

71$:

72S1
112714
005714
100401
104001

000002

112714
005714
100401
104001

000004

73S:

74$1

112714
005714
100401
104001
112714
1105714
100401
104001
112714
0115714

SEQ 0034

66$1

000377

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC,NEW
TEST 'WRITE LOCK" WHEN AT CLEAR LEADER
Til
912
913
914
915

MACYII 27(732)

000006

000010

000012

7511

7681

=
=

SEQ 0035

'tAli MANUAL XNTlIlftVENTXON TUT

DnACC,NEw

969

'78
971
972
973

974
975
976
977

978

919

9811
981
982
983
984
985
986

987
988
989
990
991
992
993

994
995
996
997
998
999
100"
1001
1002
11103
1004
11105
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
\020
1021
1022
11123

8.,742
'81744
HU746
883146
883782
803754
1183756

8"'37611
883160
881764
1183766
1103778
883772

Til

MUNDII:C·i\-OZTAc·e

TEaT 'WRITE LOCK' WHEN AT CLEAR LEADER
aMI

1"'481
1.4881
112714

77',

8118014

0115714

1118481
104881

ERROA

MOve

MOVS
TlIT
BPL

ERROR

,CHECK 'ERROR" WITH '8FDG"
,SAMPLE THE "ERROR" en
,IR IF "ERROR' • I
,"ERROR' NOT. I

'REWIND,nAC8

nAce

798
1

U24

1043

1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
105~

1056
1057
1058
11159
18611
1861
1862
1063
1064
1065

1066
1067
1068
1069
1070
1071
1072

1073
1874
1075
1076
1017
1978

11179

,CHECK "ERROR" WITH "REWIND"
,SAMPLE THE "ERROR' BIT
,SR IF "ERROR' B 0
, 'ERROR' NOT. II

7981

" ••••••••••••••• *•••••••••••• * •••••••••••• *•••••••••*-*.*.****.,*T£5T 12

TEST

'W~ITE

LOCK" WITH "C~C

ERRO~"

".* ••• *•••••••••••• **.* •• _••••• * ••••• _.* •••• _•••• *.*.***********
B03772
1103774
004002
0041110
004012
11114014
004020
1104022
004026
804830
"84032
004034
1104040
004042
004046
004050
004052
004052
004056
004000
804062
804064
004064
0040711
004072
0041174
0114076
004076
004102
004104
004106
004110
004110
804114
004116
004120
004122
004122
004126
004130

0001104
012767
012767
1100005
B10314
112714
104412
112714
104413
105715
184413
052714
184412
032714
001301
194001

004052
004332

175104
175160

T5TI21

000017
000005

000020
040000
IS,

112714
005714
1004111
104001

000011~

112714
005714
1004111
1041101

000002

112714
005714
100401
104001

000004

112714
085714
1000a1
104001

000006

112714
005714

000010

SCOPE
MOV
U$,SLPADR
"SET SCOPE LOOP ADDRESS
MOV
ITST13, SESCAPE I,ESCAPE TO TEST 13 ON ERRO~
RESET
,INIT. THE INTERFACE
MOV
,SELECT D~IVE
DRIVE, nACS
• REWINDIGO,nACS
,GO TO BOT
MOVS
,WAIT ON ~EADY
WAITREADY
MOVS
,GET OVER FI~5T BLOCK OF DATA
UEADIGO,nACS
WAITXFER
,KNOCK DOWN "XFER REQ'
TST!
"ADa
WAITXFER
,SHUT DOWN GENERATE C~C ERR
SIS
JILBS,nACS
WAITREADY
,CRCERR,nACS
BIT
,IS CRe ERROR FLAG=I?
BNE
,SR IF YES
1$
ERROR
INO CRe ERROR
1

Mova
ERROR

.WFG, ~TACS
'TACS
648
1

:CHECK 'ERROR" WITH "WFG"
,SAMPLE THE "ERROR" BIT
;8R IF "ERROR" = 1
,"ERROR' NOT
I

MOVS
TST
BMI
ERROR

#WRITE,nACS
@TACS
05$
I

,CHECK "ERROP" WITH "WRITE"
,SAMPLE THE "ERROR" BIT
,SR If 'ERROR" = I
,'ERROR' NOT = I

IREAD,PTACS
nACS

,CHECK 'ERROR" WITH "READ"
,SAMPLE THE 'ERROR" SIT
:BR IF "ERROR" = 1
:"ERROR" NOT = 1

TST
B~I

64$ ,

65$,

66$ ,

6751

11I0~01

Mova

TST
8MI
ERROR

b6S

I
IBSFG,@TACS
UACS
67S
I

,CHECK 'ERROR" WITH "BSFG"
,SAMPLE THE 'ER~OR" BIT
feR IF "ERROR" = 0
;"ERROR" NOT = 0

MOVB
TST
BPL

.BSSG,tTACS
nACS
68$

,CHECK "ERROR" WITH "BSBG"
,SAMPLE THE "ERROR" SIT
;BR IF "ERROR"
0

004132
004134
004134
004140
004142
004144
004146
1104146
004152
004154
"04156
004160
004160
004164
004166
004170
0114172
004172
004176
004202
0042114
004206
004206
004212
1104216
004220
004222
084222
084226
1104232
004234
004236
084236
004242
004246
004250
0114252
004252
004256
004262
884264
1104266
084266
084272
004276
804300
1104302
0843112
004306
804312
084314
084316
084316
004322
004326
1104330

104001

MACYII 27(732)

E~ROR

688:
112714
1105714
100001
1040111

000012

112714
005714
1811001
,114001

000014

112714
005714
1000111
104001

000016

112714
032714
0"1001
104001

11000011
010000

112714
832714
1101001
104001

000002
010000

112714
032714
001401
104001

000004
010000

112714
032714
"01401
184001

000006
010000

112714
1132714
081401
104001

0110010
010000

112714
032714
801401
104801

1100012
01811811

112714
1132714
1181401
104001

"""814
0100110

112714
11132714
001481
104801

01111Ub
010000

69$ I

70$1

71$'

...

MOVB
TST
BPL
ERROR

TAil MANUAL INTERVENTION TEST
MAINOEC-11-0ZTAC-C
OZTACC. NEW
TEST "WRITE LOCK' WITH 'C~C EFlFlOR"
Tl2
1025
1026
11127
1028
1029
1030
1031
1032
1033
1034
1035
1036
1031
1038
1039
111411
1041
1042

•

I SFBC;,nAca

nAca
781
I

aEQ BUG

PAGII: 23

,DR IF 'ERROR"
,"ERROR" NOT. I

TaT
ERROR

e80816

13111

I\-JUN-"

771
I

DMJ

78f,
112714
885714
1""001
11141181

MACYlI 271732)

II-JUN-76

13.51

; "EFIROR" NOT

SEg 0037

PAGE 24

MOVB
TST
SPL
ERROR

UffG,@TACS
@TACS
69$
I

,CHECK "ERROR" WITH "SrFG"
1SAMPLE THE "ERROR" BIT
:BA IF "ERROR" = 0
:"ERROR" NOT
0

MOVB
TST
BPL
ERROR

'SFBG.@TACS
@TACS
70$

,CHECK "ERROR" WITH "SrBG"
:SAMPLE THE "ERROR" BIT
~BR IF "ERROR" = 0

: "ERROR" NOT

Mova
TST
BPL
ERROR

.REWINO.@TACS
@lACS
71$
1

,CHECK 'ERROR" WITH "REWIND"
,SAMPLE THE "ERROR" SIT
;SR IF "ERROR"
,IIERROR II NOT = 0

HOVB
BIT
BNE
ERROR

,WfG,nACS
#WRTLOCK,@TACS
72$

;LOAD A "WFG"
,IS 'WRITE LOCK ERROR' = "1"
,SR If YES
,'WRITE LOCK ERROR" NOT EQUAL "I"

MOVB
BIT
BNE
ERROR

#WRlTE,nACS
'WRTLOCK, nAC5

72$1

= 0

:LOAD A "WRITE"
JIS "WRITE LOCK ERROR" = "1"
,BR IF YES
,"WRITE LOCK ER~OR' NOT EQUAL "I"

MOVB
BIT
BEQ
ERROR

'READ,@TACS
IWRTLOCK,nACS
74$
1

:LOAD A "READ"
,IS "WRITE LOCK ERROR" = "0"
,SR IF YES
,"WRITE LOCK ERROR' NOT EQUAL "0"

MOVB
BIT
BEQ
ERROR

IBSFG,eTACS
#WRTLOCK, nACS
75$

rLOAD A "SSFC"
:IS "WRITE LOCK ERROR" = "0"
,BR IF YES
,"WRITE LOCK ERROR" NOT EQUAL

MOVB
BIT

#BSBG,nACS
.WRTLOCK,nACS
76S

738

73$1

74e,

7S$I
BEQ

ERROR
76$.

77$1

'II"

,LOAD A 'SSSG"
,IS "WRITE LOCK ERROR" = "0"
,SR IF YES
,'WRITE LOCK ERROR" NOT EQUAL "0'

MOVB
SIT
BEQ
ERROR

ISFFG,nACS
twRTLOCK,tTAC5
77$
I

,LOAD A "SFFG'
,IS "WRITE LOCK ERROR' ~ '0"
,SR IF YES
,'WRITE LOCK ERROR" NOT EQUAL '0"

Move

WSFBG,@rACS
IWRTLOCK,@TAtS
78$
I

,LOAD A "SFBG'
,15 'WRITE LOCK ERROR" • "0"
,BR IF YES
,"WRITE LOCK ERROR" NOT EQUAL '0'

.REWIND.nACS
'WRTLOCK,nACS
79$

,LOAD A 'REWIND"
,IS 'WRITE LOCK ERROR' • "0"
,SR IF YES
,'WRITE LOCK ERROR" NOT EQUAL

BIT

BEQ
ERROR
78.,
MOVS

BIT

BEQ
ERROR

"II"

TAil MANUAL INTERVENTION TEST
MAINDEC-II-OZTAC-C
TEST 'WRITE LOC~' WITH "CRe ERROR"
TI2

MACYlI 27(732)

II-JU9-76

13151

PAGE 25

SEQ 01138

DZTAce,NEW
1080
1081

7981

004332

,,0 .. *-.**---*._*...
_*** ..***-.* ......***-*._.-*....... _.*_** •• _.. *.. _.
TEST "WRITE LOCK' WITHOUT ANY ERRORS

1982
1083
1094
1085
1086
1087
1088

1089

I*TEST 13

604332
004334
004342

004350
004352
8114354

1890

004360

1091
1092

004362

800004
012767
912767

Sll0e0S
018314
012714

174544

004644

174620

112714

0000110

""4170

032714
8011101

0111J>l00

11196

004376
&04400

IU~

004410

1101

1102
1103
110.
1105
1106
1107

1108
1109
1110
1111
1112
1111
1114
1115
1116
1117
IIIB

1119
1120
1121
1122
1123
1124

1125
1126
1127

1128
1129
1130
1131

1132
1133

1134
1135

I 041lSl
6481

004400

112714

0<i14404

032714
801001
104001

""4412

BEQ

ERROR

lSI

1093

IS9?
1098
1099

BIT

067000

1094

0~4374

000002
81001110

004434
004440
004442
004444
004444
804450

004454
004456
004460
004460
004464
004470
004472
004474

Move

IWRITE, PrACS
'WRTLOCK, nACS
656

000006

112714
032714
001401
104001

0~0010

668'

671:
010000

SEQ

661
I

,rs ·WRITE LOCK ERROR' 8 "0'
,SR IF YES
,'WRITE LOCK ERROR" NOT EQUAL "0"

Move
ERROR

!8SFG,nACS
IWULOCK,UACS
678
I

,LOAD A "BSFG"
,IS 'WRITE LOCK ERROR" • '0"
,SR IF YES
,"WRITE LOCK E~ROR· NOT EQUAL "0"

MOVB
BIT
BEQ
ERPOR

IBS8G,PTACS
IWRTLOCK, nACS
68$
I

:LOAD A "BSBG"
JI5 "WRITE LOCK ERROR" = "0"
,SR IF YES
,'WRIT)!: LOCK ERROP" NOT EQUAL "0"

MOVB
BIT
BEQ
ERROR

'SHG,nACS
#WRTLOCK. aTACS
69$
I

:15 "WRITE LOCK ERROR" = "0"
,SP IF YES
,"WRITE LOCK ERROP" NOT EQUAL "0"

MOVS
BIT

UFBG,nACs
'WRTLOCK,RTACS
70S

,LOAD A "SFSG'
:15 "WRITE LOCK ERROR" = "0"
,BR IF YES
,"WRITE LOCK ERROR" NOT EQUAL "0"

004474

1127\4

004500
004504
004506
004510
1104510
004514
004520
004522
004524
004524

032714
001401
104001

000014
01001110

69$ ,

BEQ

ERROR
708:

112714
032714
001401
ta4001

000016
010000

112714
005714
100401

000000

MOVS

1139

1140
1141
1142
\143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154

1155
1156

1157
1158

1159
1160
1161
1162
1163
1164

004624

1165
1166
1167
1168
\169
1170

004626
004630
004632
0114632

1171
1172
1173
1114
1175
1176
1177
1\78
1179
1180
1181
1182
1183
1184

1185
1186

1187
118a
1189
1190
1191

0046)6

004640
"04642
004644

004644
004646
004654
004662
004664
004666
004672
004674
004700
004702
004706
004710
004714
004716
004722
004724

104001

71$
I

:LOAC A "REWIND"
,IS ·WRITE LOCK ERROR'
"0"
,BR IF YES
:"WRITE LOCK ERROR" NOT EQUAL "0"

MOVS
TST
8MI

#.FC. ~TACS
PiACS
728

,CHECK "ERROR" WITH ·wrG"
:SAMPLE THE "ERROR' BIT
:8R IF "ERROR" = 1

MACYI! 27(732)

000002

112714
005714
\00001
104001

000004

72S'

73S:

MOVB
TST
BMI
ERROR

II-JUN-76

13:51

PAGE 26

:"ERROR" NOT = 1

ERROR

112714
005714
100401
104001

JLOAD A "SFFG"

BEQ
ERMR

BIT
71S.

#REWIND, UACS
#WRTLOCK,nACS

MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
T13
TEST ·WRITE LOCK" WITHOUT ANY ERRORS
004534
004536
004536
004542
004544
004546
004550
004550
004554
004556
004560
004562
004562
004566
004570
004572
0"4574
004574
004600
004602
004604
004606
004606
004612
804614
904616
e04620
004620

,LOAD A "READ'

bRSI

000012
010000

TAli

1136
1137
1138

,LOAD A 'WRITE"
,IS "WRITE LOCK E~ROR" m '\"
,SR IF YES
,'WRITE LOCK ERROR" NOT EQUAL '\"

UEAD,nACS
.WRTLOCK,.TACS

BIT
BEQ

010000

,LOAD A • WFG"
,IS "WRITE LOCK ERROR' III "1011
,8R IF YES
,'WRITE LOCK ERROR" NOT EQUAL "I"

Move
ERROR

104001

112714
032714
001401
104001

112714
032714
00140\
104001

004530
004532

#WRTLOCK,@TACS
64$

BIT

001401

I,ESCAPE TO TEST 14 ON tRROR

IWFG,UACS

BIT

ERROR
000004
010000

nSTl4, SESCAPE

DUVE.nAca
,SELECT DRIVE
.CRCERRILEADERIFGAPITIMERRIOFFLINE,8TACS
,CHECK STATUS
,BR IF OK TO TEST 'WRITE LOCK"
18
,TAPE ISN'T POSITIONED PROPERLY
I

8NE
ERROR
lilT
65$1

112714
032714

1I0VB

SNE

804414

904414
004420
1104424
004426
1l1l4U0
804430

MOV
RESET
MOV

001401
114001

004364
884364

1095

, r ********.*
SCOPE.. *** .... *****************************.****•• *.*....*** ..
MOV
US.SLPADR
IISET SCOPE LOOP ADDRESS

fSTUI
004364

,WRlTE,@TACS
@TACS

73$

:CHECK "ERROR" WITH "HRITE"
:SAMP~E THE ~ERROR" BIT
,SR IF "ERROR" = 1

= 1

~"ERPOR"

nPEAD.@TACS
nACS
74$

:CHECK "ERROR" WITH "READ"
,SAMPLE THE "ERROR" BIT
~8R IF "E~ROR"
0

: WERROR" I\IOT

MOVB
TST
BPL
ERROR

#8SFG. PTACS
UACS
758
I

,CHECK "ERROR" WITH "BSrG"
,SAMPLE THE "ERROR" BIT
JBR IF "ERROR" = 0
:"ERROR" HOT = 0

Move
TST
BPL
ERROR

'BSBG,nACS
PTACS
76$
I

,CHECK 'ERROR" WITH "SSSG"
,SAMPLE THE 'ERROR" BIT
,BR IF 'ERROR"
0
,"ERROR" NOT

MOVS
TST
8PL
ERROR

#SFFG,@TACS
nACS
778
I

,CHECK "ERROR" WITH "srrG"
,SAMPLE THE "ERROR" BIT
,SR IF "ERROR" o ~

MOVB
TST
SPt
ERROR

UFBG,UACS
nACS

,CHECK "ERROR" WITH "sraG"
,SAMPLE THE "ERROR' BIT
,BR IF 'ERROR" • 0
;"EPROR" NOT = "

MOVB
TST
BPL
ERROR

NOT

= "

74$.

112714
005714
100001
104001

000006

112714
005714
100"01
104001

000010

112714
005714
100001
104001

000"12

112714

000014

75$1

76$ ,

77&1

005714
11110001
104001
112714
005714
100001
104001

713.

000016

Mova

TST

BPL

ERROR

79.,

78$
I

'REWIND. nACS
nACS
79$
I

=
="

J "EP.ROR" NOT

,CHECK "ERROR" WITH "REWIND"
,SAMPLE THE "ERROR' BIT
,BR IF "ERROR" a "
,"ERROR" NOT IE "

"._._._--*-_._
..TEST
-.****.*--**_._.-**-*-*-**----*-*--***._.*._.***
'WRITE LOCK' WITH FILE GAP.!
I*TE8T 14

000004
012767
012767
000005
010314
112714
10441 2
112714
104413
052714
104412
112714
104412
032714
001001
104001

:,***********************************************************.***

004726
005206
000017
000005
000020
000013
004000

TSTI4:
174232

174306

SCOPE
MOV
# IS, BLPADR
"SET SCOPE LOOP ADDRESS
MOV
nSTI5,SESCAPE IIESCAPE TO TEST 15 ON ERROR
RESET
,CLEAR THE INTERFACE
MOV
DRlVE,nACS
:SELECT @iACS
MOVS
#REWINDIGo.nACS
WAITREADY
MOVB
tREAD!Go.nACS
,START A READ
WAITXFER
ULBS,PTACS
,SHUT DOWN
BIS
WAlTREADY
MOVe
SSFFGIGO,@TACS
:GO TO THE FILE GAP
WAITREADY
;WAIT ON "REAOYw
BIT
.FGAP,@TACS
,CHECK FOR FILE GAP
BNE
18
,BR If' IN A GAP
ERROR
I
:FILE GAP = 0

SEQ 0039

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
OZTACC.NEW
TI4
TEST "WRITE LOCK" WITH FILE GAP=I
1192
1193
1194
1195
1196
1191
1198
1199
1200
1201
1202
1203
1204
1205
1206
1201
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247

004726
004726
004732
004136
004140
004142
004142
0"4746
004152
004154
00.,56
004756
"04162
004766
004110
004772
904772
004116
005002
005004
005006
005006
005012
005016
005020
005022
005022
"05026
005032
005034
005036
005036
005042
005046
005050
005052
005052
005056
005062
005064
005066
005066
005012
005014
005016
00510.
005100
005104
005106
0051 I~
005112
035112
005116
00512~

005122
005124

112114
032114
001001
104001

000000
01000"

112714
032114
001001
104001

000002
0!B000

112114

"00004
010000

1$'

13112

1303

005124
005130
005132
005134
005136
1105136
005142
"05144
.05146
005150
005150
005154
005156
005160
005162
005162
005166
1'105170
005112
005114
005174
005200
"05202
005204
005206

I1-JUN-76

1l.51

PAGE 27

MOVS
BIT
8NE
ERROR

,WFG.nACS
,WRTLOCK.@TACS
648
I

;LOAD A "WFGII
:IS "WUTE LOCK ERROR" = "I"
IBR IF YES
,"WRITE LOCK ERROR" NOT EQUAL 'I"

MOVB
BIT
8NE
ERROR

#IIRITE.nACS
URTLOCK,@TACS
65$
I

:LOAD A "WRITE"
~IS "WRITE LOCK ERROR"
"1"
:BR IF YES
,"WRITE LOCK ERROR" NOT EQUAL "I'

MOVB
BIT
BEQ
ERROR

,READ.@TACS
#WRTLOCK.@TACS
66S
I

:LOAD A "READ"
:IS "WRITE LOCK ERROR" = "0"
,BR IF YES
,'WRITE LOCK ERROR" NOT EQUAL "0"

IBSFG.nACS
aTACS

SEQ 0040

64$1

65$1

032114

001401
104001
112714
032114
001401
104001

000006
010000

112114
032714
,,01401
104001

000010
010000

112714
032114
001401
104001

000012
010000

112114
032714
001401
104001

000014
010001l

112714
032714
001401
104001

000016
0\0000

112714
005114
100401
104001

00000"

66$'

67$'

MOVS

BIT

#WRTLOC~.

BEQ
ERROR

67S
I

,LOAD A "BSFG"
:IS "WRITE LOCK ERROR" = "0"
ISR IF YES
,·WRITE LOCK ERROR" NOT EQUAL "0"

MOVB
BEQ
ERROR

#BSBG.'TACS
IWRTLOCK. nACS
68$
I

:LOAD A 118S8G"
:15 "WRITE LOCK ERROR" = "0"
,BR IF YES
,'WRITE LOCK ERROR" NOT EQUAL '0"

HOVB
BIT
BEQ
ERROR

.SFFG.nACS
,WRTLOCK,nACS
69$
I

;LOAD A "SFFG"
;IS "WRITE LOC~ ERROR" = "0"
IBR IF YES
,"WRITE LOCK ERROR" NOT EQUAL "0"

MOVa
BIT
BEQ
ERFOR

UFBG,@TACS
,WRTLOCK, ~TACS
70S

;LOAD A "SFBG"
:IS "WRITE LOCK ERROR"
"0"
:BR IF YES
,"WRITE LOCK ERROR" NOT EQUAL "0"

MOVS
BIT
BEQ
ERROR

#REWIND.UACS
.WRTLOCK,@TACS
71S
I

JLOAD A "REWIND"
rIS "WRITE LOCK ERROR" = "0"
,BR IF YES
;"WRITE LOCK ERROR" NOT EQUAL "0"

MOVB
TST
BMI
EFROR

,WFG,taTACS
nACS
12$
I

;CHECK "ERROR" WITH "WFG"
:SAMPLE THE 'ERROR" BIT
;8R IF "ERROR"
1
J"ERROR" NOT = I

Move
TST
BMI
ERROR

.WRITE.nACS
UACS
7lS
I

,CHECK "ERROR" WITH "WRITE"
:SAMPLE THE "ERROR" BIT
:8R IF "ERROR" = 1
J"ERROR" NOT : 1

MOVB
TST
8MI
ERROR

DREAD,UACS
UACS
74$

;CHECK "ERROR" wITH "READ"

SIT

68S'

...

69$1

10$,

lIS'

72$,
112714
005714
10040\

000"02

104~01

73$0

112114
005714
100401
104001

000004

:SAMPLE THE "ERROR" BIT
JBR IF "ERROR"
1
:"ERROR" NOT = 1

745:

TAil MANUAL INTERVENTION TEST
MAINDEC-Il-DZTAC-C
DZTACC.NEW
T14
TEST "WRITE LOCK" wITH FILE GAP:I
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1271
1278
1219
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301

MACYlI 27(732)

112114

000006

MOVS
TST
BPL

0~5114

100001
10400\

MACYlI 27(732)

'BSFG,@TACS
@TACS
75$

ER~O~

MOVS
TST
BPL
ERROR

#SSBG,nACS
@TACS
76$

MOVS
TST
BPI.

#SFFG.@TACS
nACS
77$

75$1
112114
005114
100001
10400\

000010

112714
005714
100001
104001

000012

112114
005714
100401
104001

000014

112714
005714
10000\
10400\

000016

76$'

ER~OR

MOVS
TST
BMI

15FBG.@TACS
@TACS

II-JUN-'6

13:51

PAGE 28

;CHECK "ERROR" WITH "BSFG"
:SAMPLE THE "E~ROR" SIT
JBR IF "ERNOR" = 0
:"ERROR" NOT = 0
,CHECK "~RROR" WITH "BSBG"
,SAMPLE THE "ERRO~" BIT
JBR Ir "ERROR" = 0
;RERROR" NOT = 0
;CHECk "ERROR" WITH "srrG"
;SAMPLE THE "E~ROR" BIT
;SR IF "ERROR" = ~
: "ERROR" NOT = 0

77S:

18s:

ER~O~

78&
I

MOVS
TST
BPL

IREWIND.@TACS
@TACS
19$

ERRO~

,CHECK "ERROR" WITH "SrBG"
;SAMPLE THE "ERROR" BIT
;SR IF "ERROR" = 1
:"ERROR" NOT = 1
;CHECK "ERROR" WItH "REWIND"
;SAMPLE THE "ERROR" BIT
JBR IF "ERROR" = 0
:"ERROR" NOT = 0

19$'

:r************************************************************.*.
,*T£5T 15

1105206
005210
""5216
005224
"05232
1105234
005236
005242
"05244
"05250
11105252
11115256
1105260
1105264
005266
005210
885212
"05274
0053110
005302
11105304

000004
012767
012167
012767
000005
010314
112114
104412
112714
104413
052114
104412
112114
104412
000005

"05306
1IJ05310
!l05H2
1105314
1105316
1105320

105114
100001
104001
104412

000001
005266
005362

173750
173662
113736

000017
000005

1$,

000020
000915
3$.

0103\ 4

104412
112114
085001
105201
001376

005114

100401

TRY WRITING ON TAPE WHEN "WRITE LOCKED"

Jr··*·····*············-·········-··*·····_····**····**.******.**
SCOPE

T5T15,

000003
48.

HDV
U,STIMES
,,00 I ITERATION
MOV
• 3$. $LPADR
;ISET SCOPE LOOP ADDRESS
MOV
nSTI6,SESCAPE ;,ESCAPE TO TEST 16 ON ERRO~
RESET
,CLEA~ ALL
MOV
DRIVE,@TACS
,SELECT DRIVE
MOVS
'REWIND!GO.@TACS
I GO TO !!PT
WAITREADY
;WAIT ON READY FLAG
MOVB
.READIGO,'TACS
;START A READ
WAlTXFER
;WAIT ON "XFER REQ"
,SHUT DOWN
BIS
'ILSS.@TACS
WAITREADY
: WAIT ON READY
MOVB
15FBG!GO,@TACS
,SPACE OVER THE 2ND SLOCK
WAITREADY
,WAIT ON READY FLAG
• RESET
;CI.EA~ ALL FLAGS
MOV
DRIVE.~TACS
:SELECT DRIVE
WAITREADY
,WAIT ON READY
Mova
#WRITEIGO.@TACS
;START A ·WRITE"
CI.R
Rl
:TIMER
INCB
RI
;COUNT THE COUNTER GIVING
8NE
4S
"XFER REQ" TIME TO SET IF IT
IS GOING TO
TSTS
@TACS
,CHECK "XFER ~EQ"
BPI.
51
:SR IF IT DIDN'T SET
ERRO~

5$1

WAITREADY
TST
9TACS
8MI
6$

;"XFEP: REa" SET
,WAIT ON ~EADY

,CHECK E~~OR FLAG
,BR IF IT IS SET

SEQ 0041

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
MACYll 27(732)
DZTACC.NEW
TIS
TRY WRITING ON TAPE WHEN 'WRITE LOCKED"
1304

1305
1306
1307

1308
1309
13\0
1311
1312
1113
1314
1315

005322
005324
005330

005332
005336
005342
00534~

005346
005350
005354
005356
005360

104001
112714
104412
012701
112714
005301
002405
104413
052714
104412
000767
104412

000017

6$,

000002
000005

7$,

000020
8S'

1316

ERROR
MOVB
'REWIND!GO.~CS
WAITREADY
MOV
.2.RI
MOVS
'READ!GO.~TACS
DEC
RI
as
SLT
WAITXFER
BIS
'ILBS.@TACS
WAlTREADY
BR
7$
WAITREADY

:*TEST 16

1331

1332

005426

1333

005430
005432

1322
1324

1325
1326
1327
1328
1329

1330

Ill4
13]5
1336

1337
1338
1339
1340

1341
1342

1343
1344
1345
1346
1347
1348
1349
1350
1351
1]52

1153
1354
1355
1356
1357
1358
1359

005434

005440
005442
005446
005450
005454
005456
005462
005464
005470
005472
005476

000004
012767
012767
000005
010314
1127\4
104412
112714
104413
052714
104412
000005
010314
104412
112714
104412
112714
104412
112714
104413
052114
104412
112714

:WAIT ON ·XFER REQ"

000001
005500

173574
173570

000017
000005
000020

000001
0000! 7
000005
000020
000005

10441 3

052114
104412

TRY "WFG" WHEN WRITE LOCKED

:,****************.*******.**************************************

15116'

000020

SCOPE
HOV
'I.STIMES
::00 I ITERATION
HOV
.TSTI7.SESCAPE ::ESCAPE TO TEST 17 ON ERROR
RESET
HOV
DRIVE.~TACS
:SELECT DRIVE
MOVa
'REWINDIGO.~TACS
:GO TO BOT
wAITREADY
:WAIT ON READY
MOVB
'READIGO.~TACS
:GET PAST THE FIRST BLOCK
WAITXFER
:WAIT ON TRANSFER REQ.
BIS
'ILBS.@TACS
:SHUT DOWN
WAITREADY
:WAIT ON READY
RESET
:CLEAR THE WORLD
HOV
DRIVE,@TACS
:SELECT DRIVE
WAITREADY
:WAIT ON THE READY FLAG
MOVS
'WFGIGO,@TACS
:START A ".FG"
WAITREADY
,WAlT ON READY
MOVS
'REWINDIGO.@TACS
:GO TO BOT
WAITRI:ADY
MOVS
'READIGO.@TACS
,GET PAST 1ST BLOCK
WAlTXrER
BIS
'ILBS,@TACS
,SHUT DOWN
WAlTREADY
MOVB
#READIGO.@TACS
,SEE IF 2ND BLOCK IS STILL ON TAPE
~AITXfER
,If READY COMES UP THE ".'G"
, COMMAND WROTE ON THE TAPE
BIS
#ILBS.@TACS
,SHUT DOWN
.AITREADY
,WAIT ON READY

::***************************************************************
,*TEST 17

005500
005502
005510
005516
,,"5524

005526
005530
005532
005536

000004
012767
012767
012767
000005
010314
104412
112714
104412

TEST "WFG" ON CLEAR LEADER AND WRITE LOCKED

;:***************************************************************

TSTl7,
000001
005532
005564

173456
173370
173444

1$,

000"17

005540
005544
005546
005550
005552
0~S554

005560
005562

112714
104412
00571 4
100401
104001
032714
001001
104001

000001

020000

2$0

1368

1369
1370
1371
1372
1373
1374

1375
1376
1377
1178
1370
1380
1381
1382
1383
1384
1385

1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1306
1397
1398

1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415

SEQ 0042

,SHUT DOWN
:WAIT ON READY
:GO DO ANOTHER BLOCK
:IF 'XFER REQ' COMES UP THERE
IS MORE THAN TWO BLOCKS ON TAPE
'WRITE" CAUSED DATA TO BE WRITTEN ON TAP

SCOPE
MOV
Itl,STIMES
:rDO 1 ITERATION
HOV
#IS,$LPADR
"SET SCOPE LOOP ADDRESS
MOV
nST20. SESCAPE "ESCAPE TO TEST 20 ON ERROR
REsrT
MOV
DRIVE.@TACS
,SELECT DRIVE
WAlTREAD¥
:WAIT ON THE READY FLAG
HOVB
#REWINDIGO.~TACS
JGO TO BOT
WAITREADY

TAil MANUAL INTERVENTION TEST
MAINDEC-II-OZTAC-C
MACYII 27(732)
DZTACC.NEW
TI7
TEST "WFG" ON CLEAR LEADER AND WRITE LOCKED
1360
1361
1362
1363
1364
1365
1366
1367

PAGE 29

:J********************************.******************************
005362
005364
005372
005400
005402
005404
005410
005412
005416
005420
005424

1323

13.51

:ERROR ISN'T SET
,GO TO BOT
:WAIT ON READY FLAG
:GET OVER THE TWO DATA BLOCKS
:START A READ
:COUNT THIS BLOCK
:BR IF OVER THE 2ND BLOCK?

1317

1318
1319
1120
1321

II-JUN-76

MOVB
IWFG1GO,filTACS
WAITREADY
TST
UACS
8MI
2S
ERROR
I
.LEADER.@TAC5
BIT
8HE
TST20
ERROR
I

II-JUN-76
r5TART A

13:51

PAGE 30

"wrc"

,WAIT FOR READY
,CHECK ERROR
fBR IF ERROR=t
,ERROR ISN'T ON AN ONE
,CHECK IF STILL ON CLEAR LEADER
1,GO TO THE NEXT TEST IF IT IS
,NOT ON CLEAR LEADER

J;*.**-***-*-**.** ••• *****-**********._*.***.********************
:*TE5T 20
~05564

005566
005574

005602
005610
005612
005614
005616
005622
005624
005630
005632
005636
005640

000004
012767
012767
2767
000005
010314
104412
112714
104412
112714
104412

032714
001001
104001

TEST 'WRITE" WITH WRITE LOCK ON AND AT CLEAR LEADER

:,***************************************************************

TST20,
000001
005610
005642

173372
173304
173360

IS:
000017

SCOPE
MOV
U. STIMES
::00 I ITERATION
MOV
US.SLPADR
"SET SCOPE LOOP AODRESS
HOV
#1ST21, SESCAPE "ESCAPE TO TEST 21 ON ERROR
RESET
,CLEAR THE WORLD
MOV
DUVE.nACS
:SELECT THE DRIVE
WAlTREADY
,WAIT ON READY
MOVB
wREWINDIGO.@TACS
IGO TO BOT
WAITREADY
,WAIT TILL READY
1
MOVB
#WRITEIGO.@TACS
ITAY TO START A WRITE
WAITREADY
,IF TRANSFER REQ. COMES UP
,THERE IS A PROBLEM WITH WRITE LOCK
BIT
#LEADER.@TACS
,MAKE SURE STILL A CLEAR LEADER
SNE
TST21
~ J SR IF AT CLEAR LEADER
ERROR
,TAPE MOVED OfF OF CLEAR LEADER
I

000003
020000

:;**************************** •• **.******************************
I*TEST 21

005642
005644
005652
005660
005664
005666
005670
005672
005674
005700
005702
005706
805712
005714

000004
012767
012767
004037
013040
000240
000005
010314
112714
104411
112714
032714
001401
1040a1

000012
005670
007436

173314
173226

1$,

000017
000000
011000

SCOPE
MOV
.UJII,STIMES
"DO 10. ITERATIONS
MOV
01$. SLPADR
"SET SCOPE LOOP ADDRESS
RI!. UASXQUES
JSR
MLAST
NOP
RESET
MOV
ORIVE.nACS
MOVB
.REWINDIGo.nACS
WAITREADY
MOVS
,WFG.@TACS
,LOAD A "wrG" COMMAND
BIT
.WRTLOCKIOFFLINE.@TACS :MAKE SURE THE CASSETTE IS
BEQ
TST22
'WRITE ENABLED' AND 'ON LINE"
n
ERROR
1

:r·-******-*-*--**-**-***-*******-.*-_****._.***_*_*** *** •• ***.**
PI'TEST 22

00571 6
805720
005726
005730
805732
805736

080004
012767
000005
010314
112714
104412

TEST "WRITE ENABLE"

J:***************************************************************

TST21:

END OF TEST CODE

: : *******************,********0&************************** ... ** ...... ***

TST22:
000001

173240

008017
.SBTTL

SCOPE
MOV
U. STIMES
n DO
RESET
MOV
DRIVE,nACS
MOVS
'REWINDIGo.nACS
WAITREADY
END OF PASS ROUTINE

ITERATION
,SELECT DRIVE

~r**************·************************************* ***********

I*INCREMENT THE PASS NUMBER (SPASS)

SEQ 0043

TAli MANUAL INTERVENTION TEST
MAlNDEC-II-PZTAC-C
DZTACC,NEW
END or PASS ROUTINE
1416
1417
1419
1419
1420
1421

005740
1105740
1105742
11115746
0115752
885756
0115764
11115766
005770
1105772
1105774
1105776
806800

1435

096084

1114401
1113780

1436
1437
1438

00601S

8111485

1106012
1106014

804710

110611J16

eeeHe

SENDADI JSR

1419

1/186020

SellJ240

NOP
NOP

144f1l
1441
1442
1443
1444
1445
1446
1447

806022
906024
906024
006026
8060]0
0060)3
006040

"001104
""5067
985067

805267
042767
005327
0se001
0/1l 311 15
S12737

173114

me.eel!

SCOPE
CLR
CLR
INC
BIC
DEC
nOPCT. ,WORD
BCT
MOV

8TSTNM
STINES
,PASS
U00000. "ASS
(PC)+
1
eDOAGN
(pe).,PlPC)+

sENDeTI

,WORD

TYPE
sGET42. MOV

11106033
000042

BEQ

0"0SS

1485

1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503

SEa IlDH

NOP

000240
,DOAGNI
1100137
002204
377
01~

050040

" ZERO THE TEST NUMBER
IIZERO THE NUMBER OF ITERATIONS
IIINCREMENT THE PASS NUMBER
IIDON'T ALLOW A NEG, NUMBER
IILOOP?
"YES
I I RESTORE COUNTER
IITYPE "END PASS'
"GET MONITOR ADDRESS
,'BRANCH IF NO MONITOR
"CLEAR THE WORLD
"GO TO MONITOR
"SAVE ROOM

,UNDMG

8142.110
SDOAGN

RESET

377
042412
051501

00O
042116
000123

.IMP
.RTNADI ,WOIID
.ENULLI ,BYTE
,ENOMG. ,ASCIZ

.S8TTL

PC'(R0)

flrOR

"ACTII
_(PC)+

" RETURN
START
"'1,-1,0
"NULL CHARACTER STRING
<IS><12>tENO PASSt

MACYlI 27(732)

II-JUN-76

13:51

PAGE 32

SEQ 0045

SCOPE HANDLER ROUTINE

:J*************************************** •• **********************
,*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT
I*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG,(DISPLAY<7:0»
,*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
,*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
,*SWI4=1
LOOP ON TEST
,*SWII=I
INHI8IT ITERATIONS
,*SW09=1
LOOP ON ERROR
,*SW08=1
LOOP ON TEST IN SWR<7:0>
,*CALL
SCOPE
" SCOPE=IOT

1458

1483

PAGE II

SEopeT

995766

1448
1449
1450
1451
1452
1453
1454
1455
1456
1457

1484

illS!

UOP'
173U4
173214
171122
1011080

TAIl MANUAL INTERVENTION TEST
MAINDEC-I1-DZTAC-C
DZTACC.NEW
SCOPE HANDLER ROUTINE

1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
147 I
1472
1473
1474
1475
1476
1477
1478
1479
1480
lUI
1482

II-JUN·76

,.TYPE "END PASS'
I*IF THERES A ~ONITOR GO TO IT
10IF THERE ISN'T JUMP TO START
,OIF IT IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS' LOCATION
1.,tHDNG CAN BE CHANGED TO 7,

1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434

1422

MACil! 27( 732)

(

006046
006046
006050
006056

032777
001111

006060

000416

006062
006066
006074
006100
006104
006186
006110
006114
006116
006116
006124
006126
006134
006136
006142
006144
006152
006154
11116162
006164
006172
006174
006200
006204
006206
006214
806216
006222
006224
006230
006236
006240
1106246
006254
11106260

013746
012737
005737
012637
000463
022626
012637
000423

000004
006106
177060
000004

032777
801404
127767

000400

173014

173006

172746

SSCOPE.

104406
04000P

173062

000004

001462
1115767
1101421

! 72741

126767

172145

101015
1132777

172731

172756

001404
1116767

000443
105067
005067
000415
032777
0010J1
005767
001406
005267
026767

172720

172714

172703
172762
004000

172724

172656
172654
172732

172646

I1III2nl

1112761
016767

105267
011667

1100001
000044
172622
172622

172636
172712

CKSWR
"TEST fOR CHANGE IN 50FT-SWR
BIT
.8ITI4,@SWR
,ILOOP ON PRESENT TEST?
SHE
SOVER
,,~ES IF SWI4=1
I ••••• START OF CODE FOR THE XOII TESTER"'"
I,IF RUNNING ON THE "XOR" TESTER CHANGE
SXTSTR: SR
6$
"THIS INSTRUCTION TO A "NOP" (NOP.240)
MOV
@URRVEC,-(SP) "SAVE THE CONTENTS OF THE ERROR VECTOR
HOV
.5$.UERRVEC
"SET FOR TIMEOUT
TST
"TIME OUT ON XOR?
"177060
MOV
(SP) .... ERRVEC "RESTORE THE ERROR VECTOR
8R
SSVLAD
" GO TO THE NEXT TEST
CMP
(SP)+,(5P).
"CLEAR THE STACK AFTER A TIME OUT
5&:
MOV
(SP)+,UERRVEC "RESTORE THE ERROR VECTOR
BR
71
IILOOP ON THE PIIESENT TEST
"".II.UND OF CODE FOR THE XOR TESTER!! II #
,BIT08,UNR
BIT
"LOOP ON SPEC. TEST?
BEQ
2$
"SR IF NO
CIIP8
UMII,nSTNM
aNIIC710>
I,ON THE RIGHT TEST?
BEQ
SOVER
"BR IF YES
2$,
TSTB
BERFLG
IIHAS AN ERROR OCCURRED?
,,8R IF NO
BEO
3$
URMAX, SERFLG
CMPS
IIMAX. ERRORS FOR THIS TEST OCCURRED?
BMI
,,8R IF NO
3$
UlTB9,@SWII
BIT
"LOOP ON ERROR?
BEQ
4S
"BR IF NO
MOV
"SET LOOP ADDRESS TO LAST SCOPE
$LPERR.SLPADR
BR
SOVER
CLRB
SERFLG
"ZERO
THE ERROR FLAG
45:
CLR
$TIMES
'ICLEAR THE NUMBER OF ITERATIONS TO MAKE
BR
I,ESCAPE TO THE NEXT TEST
1$
,BITII.@SWR
BIT
"INHIBIT ITERATIONS?
3$'
8NE
1$
"BR IF YES
$PASS
"IF FIRST PASS OF PROGRAM
TST
BEQ
1$
"
INHIBIT ITERATIONS
INC
$lCNT
"INCREMENT ITERATION COUNT
CMP
IICHECK THE NUMBER OF ITERATIONS MADE
STIMES. SIC NT
BGE
SOVER
"BR IF MORE ITERATION REQUIRED
MOV
IIREINITIALIZE THE ITERATION COUNTER
IS:
'I,SICNT
HOV
SMXCNT.STIMES
IISET NUM8ER OF ITERATIONS TO DO
SSVLAD, INCB
orSTNI!
"COUNT TEST NUMBERS
HOV
:ISAVE SCOPE LOOP ADDRESS
(SPl.SLPADR
IS,

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
SCOPE HANDLER ROUTINE
150.

1505
1586

1507
ISIIB
1509
1510

"06264
""62711

0"6274
"06302
11063111
006314
""6316

"11667
005067
112767
"16777
816716
"""002
"83720

172620
172674
0""11"1

173574
173572

MOV
eLR
172613
172632

Mova

MOV
MOV
RTI
$MXCNTI 20"".

SOVERI

MACYlI 2717321
(8P I, ,LPERR
$ESCAPE
U,URMAX
nSTNM,tDISPLAY
SLPADR'(SP)

11-i/UN-76

13151

PAGE 33

SEQ 81146

"SAVE ERROR LOOP ADDRESS
"CLEAR THE ESCAPE FROM ERROR ADORES/!
"ONLY ALLOW ONE(I) ERROR ON NEXT TEST
"DISPLAY TEST NUMBER
"FUDGE RETURN ADDRESS
"FIXES PS
"MAX. NUMBER OF ITERATIONS

(

TAli MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZUCC.NEW
ERROR HANDLER ROUTINE

1511
1512
1513
1514
1515
1516
1517
151B
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1531
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562

.SBTTL

MACYII 27(7321

Il-JUN-76

13151

PAGE 34

ERROR HANDLER ROUTINE

'1***************************************************************

,*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT.
,*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
,*AND GO TO TYPERR ON ERROR
,*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE.
HUT ON ERROR
:*SW15=1
INHIBIT ERROR TYPEOUTS
:*SW13=1
;*SW10=1
BELL ON ERROR
LOOP ON ERROR
I*SW09=1

:*CALL

006320
006320
006322
006326
006332
0116336
006.142
006346
006350
006356
0116364
006366
1106372
006316
006402
006410
006416
006424
00642b
006432
006436
1106436
006442
006444
006446
006450
006456
006460
006464
006470
"06472
006416
006476
006504
006506
006510
006510

ERROR

, I ERROR=EM! AND N=ERROR ITEM NUMBER

SERROR.
104406
1111437
011531
~10031

010131
105261
11111715
016711
032177
001402
104401
0115267
011661
162761
117767
032771
001004
1104761
104401
005777
100002
000000
104406
832777
"01402
016716
0"5767
001402
016716

001162
001164
001124
001126
172535

7S.

112526
0020"0

172564
112554

001112
172514
112514
11001102
172502
020000

112506
172476
172514

IS.

000060

001177
2051
2S:

172476

CKSWR
MOV
MOV
MOV
HOV
INca
BEQ
MOV
BIT
BEQ
TYPE
INC
MOV
SUB
MOVB
BIT
BNE
JSR
TYPE
TST
BPL
HALT

nAcs.9UREG0
nADS. "SREGI
RII.9UGDDAT
RI.USBDDAT
SERFLG
7S
STSTNM.9DISPLAY
IBlTI0.PSWR
18
.SBELL
SERTTL
(BPI.SERRPC
.2,$ERRPC
UERRPC.SITEMB
'BIT!3.@SWR
20'
PC.TYPERR
.SCRLF
,SWR
3.

CKSWR
001000

172462

172424
172500

38 :
481

172472

BIT
BEQ
MOV
TST
BEQ
MOV

IBITII9.@SWR

4S
SLPERR,(SPI
$ESCAPE
5$
SESCAPE, (SPI

"TEST FOR CHANGE IN SOFT-SWR
,SAVE THE STATUS REG.
,SAVE THE DATA BUFFER
,Re WILL CONTAIN THE GOOD DATA
,RI WILL CONTAIN THE BAD DATA
, ,SET THE ERROR FLAG
"DON'T LET THE FLAG GO TO ZERO
"DISPLAY TEST NUMBER AND ERROR FLAG
: : BELL ON ERROR?
IINO - SKIP
: ,RING BELL
:ICOUNT THE NUMBER OF ERRORS
I,GET ADDRESS OF ERROR INSTRUCTION
"STRIP AND SAVE THE ERROR ITEM CODE
:ISKIP TYPEOUT IF SET
IISKIP TYPEOUTS
n GO TO USER ERROR ROUTINE
:IHALT ON ERROR
: ,SKIP IF CONTINUE
"HALT ON ERROR I
:ITEST FOR CHANGE IN SOFT-SWR
I,LOOP ON ERROR SWITCR SET?
:rSR IF NO
: ,FUDGE RETURN FOR LOOPING
, ICHECK FOR AN ESCAPE ADDRESS
"SR IF NONE
, ,FUDGE RETURN ADDRESS FOR ESCAPE

5$ 1

022737
0011101
000000

006014

000042

CMP
8NE
HALT

65,
000002

RTI

#BENDAD.@t42
6S

"ACT-II AUTO-ACCEPT?
, ,SRANCH IF NO
"YES
, I RETURN

SEQ "047

MACHI 27(732)

TAlI MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC,NEW
ERROR TYPEOUT ROUTINE
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597

13,51

SEQ 0048

PAGE 35

***** '* '* '* '* ** '* ** ** '* *** '* **'* '* '* '* ******* *** ** ** ** '* "" '* '* '* *** * *' ** .. **

; 1
<\10
'* -110
*
,THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES
006512
006516
006520
006524
006526
006530
006532
006534
006540
006544
006546
006550
006554
006560
006562
006564
006566
006572
006574
006576
006600
006604
006606
006606

104401
010046
113700
005300
006300
00&300
006300
062700
012067
104401
000000
104401
012067
001404
104401
000000
104401
012000
001004
012600
10440\
000207

THERR:

013046

MOV

006610
006612
006614
006616
006622
006624

104402
005710
001170
104401
000771
020040
006630

TYPOC
1ST
BEQ
TYPE
8R
,ASCIZ
,EVEN

001171
001114

001236
000002
IS:
001177
000004

2$:
001177

3$:
46:
001177

5$'

006624
000

6$ :

TYPE
HOV
MOYB
DEC
ASL
ASL
ASL
ADD
MOV
TYPE
0
TYPE
HOV
BEQ
TYPE
0
TYPE
HOV
BNE
HOY
TYPE
RTS

411-

,TYPE A CARRIAGE RETURN & LINE FEED
15AVE R0
,PICKUP THE ITEM INDEX
,ADJUST THE INDEX
;50 IT WILL WORK fOR
,THE ERROR TABLE

,SCRLF
R0,,,,,(SP)
@#SITEMB.R0
R0
R0
R0
R0
#$ERRTB,R0
(R0)+, 1 S

,FORM THE TABLE POINTER
,PICKUP 'ERROR MESSAGE' POINTER

1TYPE "ERROR MESSAGEn
,"ERROR MESSAGE pOINTER" GOES HERE

,SCRLF

;PICKUP "DATA HEADER" POINTER

(R0)+,2S
3$

: IF If 0 'It DON'T TYPE
,TYPE "DATA HEADER
,"OATA HEADER" POINTER GOES HERE

,SePtf
; PICKUP IiDATA POINTER"

(R0)+,R0
5$
(SP)+.R0

, I f THERE IS DATA TO TYPE GO DO IT
,RESTORE R0
,TYPE A CARRAGE RETURN.LINE fEED
;RETURN

,$CFLF
PC
~ (R0)+, - (SF)

,SAVE @(R0)+ FOR TYPEOUT
I TYPE DATA
,GO TYPE--OCTAL ASCII(ALL DIGITS)
; TERMINATOR?
,BR IF YES
,TYPE 2 SPACES

(R0)
4$
,6$

;LOOP

,ASCII STRING OF 2 SPACES

TAil MANUAL INTfRVENTrON TEST
MAL NDEC -II-DZTAC-C
MACY! I
DZTACC. NEW
ROUTINE TO WAIT ON THE READY BIT TO SET
159B
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1611
1618
1619
1620
1&21
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
16)5
1636
1637
16]8
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
165!

II-JUN-76

27(732)

II-JUN-7.

13,51

PAGE 36

SEQ 0049

;:.* •••• * •• *.* •••• ~**.*.** ••••• * ••••• *.* ••• * ••••••••••• *.*.*** •• *
,ROUTINE TO WAIT ON THE READY BIT

006630
006630
00&&34
006642
006646
0"6654
00&660
006664
,,06666
006670
00&612
006614
006&7&
006700
006702
006704
006706
006710
006712
006714
006720
006724
006730
006732

WAIT~ON .. READY:

005061
016767
012637
162737
012637
032714
001013
105714
100002
104004
000407
005227
000000
001366
005327
000000
003363
104002
013146
013746

062716

000044
000012
001202
""0002
001204
000040

000044
001202

WAITt.

WAIT4.

WAIT2:
HGHTIM,

WAIT] ,

001204
001202
000002

CLR
HOV
HOV
SUB
MOV
BIT
BNE
TSTB
6PL
ERROR
BR
INC

"BNE
DEC
"
BGT
ERROR
MOV
MOV
ADD

WAIn

;SETUP MAX, TIME TO WAIT ON

(SP)'.@#SAVPC

;GET THE PC OF THE WAITPEADY INSTRUCTION

#2,~#SAVPC

(SP).,@#SAVPS

:SAVE THE PS

#READY.~TACS

; READY=I?

WAIn
@TACS
WAIT4
4
WAIn
(PC»

;GO ON I f YES

:COUNT FAST COUNTER

WAITI
(PCl+

tGO CHECK "READY" AGAIN
:COUNT LOOP COUNTER

WAITI
2
@#SAVPs,-(SPl
@#SAYPC,-(SP)
#2,(SP)

,GO LOOP
: RREADyn
,GET THE
,GET THE

;CHECK TRANSFER REQUEST

;"TRANSFER REQUEST" SET WHILE WA.ITING ON l'IREADYI'I

MAXCNT, 0
if

*,,\1-

005067
013767
012637
162737
012637
105714
100414

000044
006732
001202
000002
001204

032714

000040

001402
104004
000407

005227
000000
001366
005327
000000
003363
104003

013746

007024

013746

007030
007034

062716
000002

AGAIN
FAILED TO SET
STATUS BACK
PC

PTI

000002
000000

;,ROUTINE
~ '* '* ***** **** \If *** **** *** *' *** '* '* '* . . '* '* ** ** if flo -iii- '* '* '* *
TO WAIT ON TRArISFER REQUEST
006734
006734
006740
006746
006752
006760
006764
006766
006770
006714
006776
007000
007002
007004
007006
007010
007012
007014
007016
007020

~READyn

MAXCNT,HGHTIM

001204
001202
000002

000044
001202

WA IT. fOR, XfER, REO:
2$
CLR
MOV
@3MAXCNT,3$
MOV
(SP)+.@#SAVPC
SUB
#:2, !CI#SAVPC
(SP)+,@.#SAVPS
MOV
@TACS
T51B
IS:
4$
BMI
#READY,@TACS
BIT
BEQ
5$
ERROR
4
BR
4$
(PC).
5$,
INC
2$,
0
SNE
IS
(PC).
DEC
3$.
0
BGT
IS
ERROR
3
4$ ,
@.SAVPS,-(SP)
MOV
@'SAVPC,-(SP)
HOV
ADD
n.(SP)

RTI

,*,'1[0,*

'* *** *** ** *****

;SETUP WASTE TIME LOOP
;GET THE PC Of THE WAITXFER INSnUCTION

iSAVE THE PS
,CHECK Xl'ER REG
,EXIT IF SET
;LOOK AT READY
~BR

IF "READY!'! ISN"r SET

;rtREADYI'i SET WHILE HAlTING fOR IfXFER REO"
,COUNT
,BR IF MORE TO DO

1"TRANSFER REQUEST!'! FAILED TO SET
;GET THE STATUS BACK
,GET THE PC

: GO BACK

TAli MANUAL INTEFVENTION TEST
MAINOEC-II-OZTAC-C
OZTACC.NEW
ROUTINE TO WAIT ON TRANSFEF REQUEST

1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687

MACYII 27(732)

1708

1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722

1723
1724
1725
1726
1727

1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743

13,51

PAGE 37

SEQ 0050

~r···************************************************* ***********

.58TTL

ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST

,CALL
JSR
RETURN
007036
007042
907046
1107050
007052
007054
007056
007062
007066
007070
007072
007074
007100
007102
007104
607106
9071\2
007114
007116
007120
007122
1l~7I26

0071311
007134
007136
007142
007144

104401
005067
104410
012600
105710
001425
012701
122710
00\002
112021
000411
122710
001002
112021
000404
122710
901006
105720
105710
001406
072701
101355
104401
000740
005767
001772
000207

ASKDRV, TYPE
CLR
ROLIN
HOV
TSTB
BEQ
MOV
CMPB
LOOP'
BNE
Hove
BR
NOTA,
CMPB
BNE
MOVB
BR
CMPB
NOTB.
BNE
TSTB
TSTB
NEXT'
BEG
CMP
BHI
NOTLGLI TYPE
BR
EXIT,
TST
BEQ
RTS

012552
172156

001224
000101

000102

000054

001226
001176
! 72062

PC,UASKORV
,NOTE, R0 AND Rl ARE DESTROYED
,MSGORV
DRVKEY

;<CRLF>"ORIVE(S)? "
,GO GET A DRIVE
,SETUP TO CHECK FOR VALID DRIVE(Sl
,WAS A DRIVE SELECTED?
,BR IF NO

(SP)+.R0
iR0
NOTLGL
.DRVKEY, RI

,WAS DRIVE "A" SELECTED?
,BR IF NO
,SET KEY FOR DRIVE °A"

,'A,IiIR0

NOTA
(R0l+'(RIl+
NEXT
,"S,iR0

,WAS DRIVE "B" SELECTED?
,BR IF NO
,SET KEY FOR DRIVE "B"

NOTB
(R0)',(Rll.
NEXT
,54,PR0
NOTLGL
(R0)'
@R0
EXIT
,DRVKEy.2,RI
LOOP
, SGUES
ASKDRV
DRVKEY
NOTLGL
PC

,WAS A COMMA TYPED?
,BR IF NO
,DUMP THE COMMA
,TERMINATOR?
,BR IF YES
,TWO DRIVES SELECTED?
,BR IF NO
,ILLEGAL INPUT DETECTED
,GO TRY AGAIN
,ANY DRIVE SELECTED?
;BR IF' NO

TAli MANUAL INTERVENTION TEST
MAINDEC-Il-DZTAC-C
MACYII 2H 732)
DZTACC.NEW
ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707

II-JUN-76

II-JUN-'6

13,51

PAGE 38

SEQ 0051

J'**********************.*.*******.******************* ***********
,CALL
PC,@#ASKADR
;JSR
007146
607150
007154
007156
007160
007162
007166
007170
007174
007200
007204
007212

010046
104401
104411
012600
001423
020027
103770

012566

160000

062100

001206
000002

010037

0~1212

013737
005237

001206
001210

001210

007216
007224
007230
007234
007236
007240
007242
007246
007250
007254
007260
007264
007270
007272
007274
007276
007302
007304
007306
007310
007312
007314
007320
007324
007330
007334
007336
007342
007346
007350
007354
007360
007362
007366
007372
007374
007400
007402

013737
005237
104401
10441 1
012600
001411
020027
103370
0100]7
062700
010037
104401
\04411
012600
001413
020027
101370
000300
906200
006200
006200
042700
010037
104401
016746
104402
104401
016746
104402
104401
016746
104402
104401
016746
104402
104401
184407
912600

001212
001214
012576

001214

007404

022790

M0037

ASKADRI MOV
1$,
TYPE
RDOCT
MOV
BEQ
CMP
BLO
MOV
ADD
MOV
MOV
INC

3S:

001000
001216
000002
001220
012606

5$,

000007

177437
001222
012620
171652
012626
171644
012635
171636
012646
171630
012661

6$ •

MOV
INC
TYPE
ROOCT
MOV
BEQ
CMP
BHIS
MOV
ADO
MOV
TYPE
RDOCT
HOV
BEQ
CMP
BHI
SWAB
ASR
ASR
ASR
BIC
HOV
TYPE
MOV
TYPOC
TYPE
MOV
TYPOC
TYPE
MOV
TYPOC
TYPE
HOV
TYPOC
TYPE
RDCHR
MOV

000015

CMP

R0,-(SP)
,MSGASK

(SP).,R0
3$
R0 .. 160000

,SAVE R0
J"TACS?"
,GET VALUE
,PICK UP THE OCTAL NUMBER
,IF "0" USE OLD VALUES
,MAKE SURE IT IS A BUS ADDRESS

R0, ~#TACSL
'2,R0
R0,UTAOBL
ilTACSL, .. TACSH
UTACSH

,SAVE TOE TACS
,STEP TO TADB ADDRESS
,AND SAVE IT
,SET UP TACS UPPER
,BYTE POINTER

"TADBL,@ITADBH
UTAD8H
,MSGVEC

;"VECTOR?"

(SPl+,R0
5$
R0,II000
3$
R0,@#TAVEC

,SAVE AS VECTOR ADDRESS

,SET UP TADB UPPER
,BYTE POINTER

,MAKE SURE ADDRESS IS IN VECTOR AREA

.2,R0

R0, UTAVEC+2
,MSGPRI
(SPl+,R0
6$
R0,.7
58
R0
R0
R0
R0
'-C<340>,R0
R0,@#TAPRIO
,MTACS
TACSL,-(SP)
,MTADB
TADBL,-(SP)
,MTAVEC
TAVEC,-(SP)
,MTAPRI
TAPFIO, -(SP)
,MSGOK
(SP).,F0
U5,R0

,ASK FOR PRIORITY
,IF "0" USE OLD VALUE
,MAKE SURE ITS VALID
,PUT INTO HIGH BYTE
,AND SHIFT
,INTO PROPER
,POSITION
,SAVE ONLY PRIORITY BITS
,STORE IT AWAY
JTACS=IIG

, ,SAVE TACSL FOR TYPEOUT
II GO TYPE--OCTAL ASCII(ALL DIGITS)
;"TADB:;"
II SAVE TADBL FOR TYPEOUT
: ,GO TYPE--OCTAL ASCIICALL DIGITS)
, "VECTOR="

,:SAVE TAVEC FOR TYPEOUT
,:GO TYPE--OCTAL ASCII(ALL DIGITS)

; "PRIORITY:Il"

"SAVE TAPRIO FOR TYPEOUT
"GO TYPE--OCTAL ASCII(ALL DIGITS)
;IIOK?"

,GO READ ONE CHARACTER
,GET IT
,IS IT ·CR"?

'¥

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
"ACilt 27(732)
OZTAce,NEW
ROUTINE TO INPUT CSR,DSP, AND VECTOR ADDRESS AND PRIORITY
1744
1745
1746
1747
1748
1749
I?S0
1751

1107418
1107412
""7416
1187428
""7424

11111426

1107432

8.7434

""1406
1122700
881483
11144111
.88651
.84481
8126""

0110131

0"1176

1112667

781

880201

eMP

BEQ

7.
I"Y,Re

,BRANCH IF YES

,IT WAS
,TYPE ","

TYPE

,SOVES

TYPE
MOV
RTS

,MUS
(SPl+.R0
PC

1774
1775
1716

"87436
"07436
O07440
"07444
1107450
087452
007454
007456
11074611
"87464
1107466

,AND LET HI" CORRECT THEM
,TYPE OUT ·YES·
,RESTORE Rg
,AND RETURN

1107472
11117474
0075110
"075112
11075116

1777

1107516

1778
1779

11107516

1780

11117524
1/1117526

1781
1782

1783
1784
1785

1107520

1$:

25:

"00426
11'4401

008116
"00131
007510

"011 76

1114401

"87532

11110415

11117534

1788

""5037

1107574

1189

11117600
1107602

1114401
13126111

B00211l0

Rt, # "Y
5$
,65$

5$.

TYPE
BR

3$'
TYPE
8R

001166

001177

Rl,.Ii'N

64$
I YES I

66$'
11115720,

(SPI_.RI
RI.IIS

.ASCIZ

,,67$1

11117566

1107566

1107570

RI.-(SP)
(R0).,2S
,SCRLF'

1,655'

"'011751

111117526

HOV
MOY
TYPF.
TYPE
RDCHR
MOV
eMP
BEQ
CMP
BEQ
CMP
SNE
TYPE
BR

000015

645 ,

1786

1790

000006
001177

11""403

1787

1791

II-JUN-76

13.51

PAGE 40

ASKQUE51
010146
012067
104401
184481
0"""00
104407
012601
020127
1101443
028127
0"1415
19211127
111110117
104401

48.

• ASCI!

TST
CLR
TYPE
MOY
RTS

,SQUES
is

,67.
66$

: SAVE RI
,PICKUP THE MESSAGE POINTER
,TYPE A ·CR" AND "tFW
,TYPE THE MESSAGE
,MESSAGE POINTER GOES HERE
;GET ONE CHARACTER FROM THE TTY
;AND PUT IT IN RI
ICHEC~ THIS CHARACTER
;BR IF ITS A ·CR"
;IS IT A "N"?
;BR IF YES
;15 IT A "Y"

;BR IF NOT "Y"
"TYPE ASCIZ STRING
:;GET OVER THE ASC lZ
;GO TO EXIT
;UNKNOWN REQUEST
;GO ASK AGAIN
;;TYPE ASCIZ STRING
;;GET OVER THE ASCI!

* NO---SUPPING THIS TEST"
(RIll+
,*$TI~ES

.SCRLF
(SPl+.RI
R0

SEQ 0"52

,IS IT 'Y"'

,ROUTINE TO TYPE DIRECTIONS TO OPERATOR AND WAIT FOR RESPONSE
,CALL.
RA.@IASKQUES
JSR
RETURN HERE ON A RESPONSE OF 'y'
RETURN HERE ON A RESPONSE OF "N"

1755

1771
1172
1773

PAGE ]9

If***************************************************************
:: ••• 4***_**--***._.****-*******-**.-.***************************

1752

1753
1754

1770

13151

BEQ

TAil MANUAL INTERVENTION TEST
MAINDF.C-II-DZTAC-C
MACYII 27(732)
DZTAce.NEW
ROUTINE TO INPUT eSR,DBR, AND VECTOR ADDRESS AND PRIORITY

1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

II-JUN-,.

,STEP OVER ·CR" RETURN
,CLEAR ITERATIONS
IRESTORE 111
;RETURN

SEQ A8S]

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
MACYII 27(732)
DZTACC,NEW
** __ ****_. MANUAL ADJUSTMENT ROUTINES _*********
1793
1795
1796
1797
1798
1799
1900

1820

1821

SEQ 0054

,1111111111111111111111111111111111111111111111111111111111111111111111

•• _.*************.***-******.*************.
,:,*•••**************-*
WRITE FILE GAPS FROM 'BOT" TO "EOT'
,START AT 220

lUI

IBII

PAGE 41

,THE FOLLOWING ROUTINES CAN BE USED TO MAKE AOJUSTMENTS TO THE TU60
,NOTE, "1 BEfORE USING ANY or THE ROUTINES LOAD AND START AT 214 Ie.

1794

1812
1813
1814
1815
1816
1811
1818
1819

13,51

,1111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111

1792

1802
1803
1894
1805
1806
1807
1808
1809
1810

II-JUN·76

,THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND
,THE 'WRITE DELAY MONO",

007604
881610
007614
887620
007622
B07630
1107634
891636
007642
007646
087650
007654
1107656
007662

007664
00766&

0127~6

813704
013785
800005
012737
004737
810314
112714
832714
001775
112714
104412
032714

Jr***-·****·-·***_·*********·-··*********·_·*·_·*·_·*************

001100
001206
001212
007604
018610

001110

000017
000040
000001
020000

001772
61101100
l1li0746

WF'GSUBI MOV
#STAC~,SP
MOV
"TACSL,TAes
MOV
@ITADBL,TADB
RESET
MOV
.WFGSUS,USLPERR
PC, .,NlTDRV
JSR
HOV
DRIVE,PrACS
MOVB
.REWINDIGO,@TAeS
BIT
'READY.nACS
10081
BEQ
100S
MOVB
IWFGIGO,8TACS
1$1
WAITREADY
HEADER, nACS
BIT
BEQ
IS
HALT
811
WFGSUB

,KEEP THE STACK OUT OF THE WAY
,SETUP THE TAil STATUS AND
IDATA BurFER REGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT DRIVE
,SELECT DRIVE
,SEND TAPE TO "BOT"
,WAIT ON READY
,WRITE A fILE GAP
,WAIT ON READY
,AT 'CLEAR LEADER"?
,BII IF NO
,STOP IF YES
ILOOP ON CONT,

1822

1823
1824
1825
1826
1827

:,*******.*.* ••• **********************************************.**
WRITE CONTINUOUS BLOCKS OF DATA
,START AT 224
,THE PROGRAM WILL HALT THREE(3) TIMES
,AFTER EACH HALT SET THE SWR AND PRESS CONTINUE
,HALT 1 --- SHR<7IB> • NUMBER OF BYTES PER BLOCK
,HALT 2 --- SWR<7,0.
PATTERN DESIRED
,HALT 3 ••• SHR.IS.0>
OPERATIONAL SWITCH SETTINGS
,THIS ROUTINE CAN 8E USED TO ADJUST THE "GAP TIME MONO'
I •• IF USING SOFTWARE SWITCH REGISTER, AFTER
EACH HALT OPERATOR WILL BE PROMPTED
FOR THE VALUE WITH 'SWR=XXXXXX NEW="

1828

1829
1830

=
=

1831

1832
1833

1834

1835
1836
1837
1838
1839
1840
1841

1842
1843
1844
1845
1846
1847

007670
~07674

007700
007704
007710
007712
007720
007724
007726
007732
007736

004737
012706
013704
013705
"""005
012737
004737

~J*******.***********.*.**********.******************************

010352
001100

001206
001212
007674
010610

00\110

~lnl4

112714
032714
001775

WRTSUS, JSR
WLOOP, MOV
MOV
MOV
RESET
MOV
JSR
MOV

PC,PlSETBUF
UTACK,SP
UTACSL,TACS
@trADBL,TADS

WWLOOP, U8LPERR
PC,P.NXTDRV
DRIVE,9TACS
IREWIND!GO,nACS
.READY, nACS
1008

Mova

000017
000040

10081

BIT
BEQ

~AINDEC·II·DZTAC-C
TAil MANUAL INTERVENTION TEST
DZTACC ,NEW
WRITE CONTINUOUS BLOC~S OF DATA

007740

004737

1849

007744

032714

1850
1851
1852
1853
\854
1955
1856
1857
1858

007750
007752
007754

001773
""0000
0BaH7

1848

010466
020000

181

JJ ••• _ •••••••

001756
001762
007766
007772
007774
010002
01""06
010010
010014
010020
010022
1110026
010032
0100)4

012706
013704
1113705
000005
012737
004737
010314
112714
032714
"01775
1104737
032714
001 ]51
000772

007756
010610

001110

000017
000040

100S:

010530
020000

IS:

\896

1891

1898
1899
1900
1901
1902

1903

WLOOP

,WRITE A BLOCK
,AT 'CLEAR LEADER"?
,8R IF NO

:STOP IF "EOT"
,LOOP IF CONT,

_.*****.-.*.-•• _.*._ .•..**.*.**.-.-•. *._.• **** •• ****

MOV
MOV
MOV
RESET
MOV
JSR
MOV
MOVB
BIT
BEQ
JSR
BIT

#STACK,SP
@STACSL,TACS
"TADBL, TADB

8NE

.RDSUS, USLPERR
PC,UNXTDRV
DRIVE,nACS
tREWItIDIGD,nACS
iREADY,UACS
100S
PC,URDBLK
#LEADER, PrACS
RDSUS

,KEEP THE STACK OUT or THE WAY
,SETUP THE TAil STATUS AND
,DATA BUFFER PEGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT DRIVE
,SELECT DRIVE
,SEND TAPE TO "BOT"
,WAIT ON READY
,READ A BLOCK
,AT ·CLEAR LEADER"?
:BR IF YES··-LOOP

WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT
I START AT 234
ITHE PROGRAM HILL HALT THREEO) TIM!)S
,AFTEP EACH HALT SET THE SWR AND PRESS CONTINUE
,HALT I --. SIIR.7IB> = NUMBER OF BYTES PER BLOCK
,HALT 2 _.- SWR<710> = PATTERN DESIRED
,HALT 3 --- SWR<1510> a OPERATIONAL SWITCH SETTINGs
,THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO'
1"<> IF USING SOFTWARE SWITCH REGISTER, AFTER
EACH HALT OPEUTOR WILL BE PROMPTED
FOR THE VALUE WITH "SWR=XXXXXX NEWs"
,AND THE "GAP TIME MONO",

\884

1894
1895

PAGE 42

J:***************************************************************

1885

1892
1893

.LEADER, nACS

13,51

:,******** •• ****.************************************************

RDSUS:

001100
001206
001212

1886
1987
\188
\889
1890
1891

PC,~'WRTBLK

II-JUN-76

READ CONTINUOUS BLOCKS OF DATA
,START AT 230
,THIS ROUTINE CAN BE USED TO ADJUST THE 'SIGNAL ~ONO'
,AND THE "THRESHOLD POT",

185q

1860
1861
1862
1863
1864
1865
1866
1967
1868
1869
1870
1871
1872
1873
1874
1875
1876
1817
1878
1879
1880
IB8\
1882
1883

JSR
BIT
SEQ
HALT
SR

MACYlI 27(732)

,GET BLOCK SIZE AND PATTERN
,KEEP THE STACK OUT OF THE WAY
,SETUP THE TAIl STATUS AND
IDATA BUFFER REGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP fOR NEXT DRIVE
,SELECT DRIVE
,SEND TAPE TO 'SOT"
,WAIT ON READY

8101136

804737

010042
0111046
818052
01111156
010060
810066
010072
810014
910100
1110104
1110106
1110112

1112706
1I1l704
1I1l705
ell0005
012737
"04737
010314
112714
032714
901775
112714
104412

fl···-·*·*·**·_·····_·**·······*······**·_·········_·**
,GET BLOCK SIZE...•......
AND PATTERN

0111352
001100
001206
001212
0111042
010610
000017
090040
090001

001110

WGPBLKI JSR
PC,'UETBUF
WGBLOP, MOV
UTACK,SP
MOV
"TAeSL,TACS
MOV
"UDBL,TADB
RESET
MOV
IWGBLOP, .. GUERR
PC,UNXTDRV
JSR
MOV
DRIVE,nACa
MOVB
IREWINDIGO,UACS
UEADY,nACS
10081
BIT
BEQ
1008
MOVS
UFGIGO,.TACS
181
WAITREADY

,KEEP THE STACK OUT OF THE WAY
,SETUP THE TAil STATUS AND
,DATA BUFFER REGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT DRIVE
,SELECT DRIVE
,SEND TAPE TO "80T"
,WAIT ON READY
,WRITE A FILE GAP
,WAIT ON READY

SEQ 0055

TAli MANUAL INTERVENTION TEST
MAlNDEC-II-0ZTAC-C
MACYlI 27(732)
DZTACC.NEW
WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EaT
1904
19115
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
19))
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
\959

010114
010120
010122
010126
010132
0111134
1110136

032714
0111005
""4737
1132714
""1765
0""""0
0"0741

020000

BIT
BNE
JSR

010466
020000

BIT

2$1

BEQ
HALT
BR

'LEADER,fTACS
2S
PC,@#WRTBLK
,LEADER,UACS
11

1997

1998
\999
2000
2001
2002
2003
2il04
2"05
2086
2801
2008
2809
2010
2011

21112
2111l
2014
2015

\3151

PAGE U

SEQ 0056

:AT 'CLEAR LEADER'?
,BR IF YES
,WRITE A BLOCK
:AT "CLEAR LEADER"?
,BR IF NO

:STOP AT MEOT"
WGBLOP

:START OVER ON CaNT.

:,*.*************************************************************
:

1110140
"10144
1110150
0111154
11111156
1110164
910179
1110172
1110176
1110202
010204
01"210
1110214
01"216
01"222
010224
010230
"10232

012706
1113704
1113705
0110"05
012737
004737
010314
112714
1132714
001775
0114737
032714
001151
112714
1114412
032714
0"1343
000764

Jr**********************-********·*************··****************

1101100
001206
001212
010140
010610

READ A BLOCK OF DATA AND A FILE GAP
,START AT 240
:THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP' ROUTINE
,IT CAN 8E USED TO ADJUST THE "SIGNAL MONO", THE THRESHOLD POT"
,AND THE "TAPE BLANK MONO",

001110

000017
000040
010530
020000
000"15
020000

RGPBLK, HOV
'STACK,SP
MOV
"TACSL,TACS
MOV
"TADBL,TADB
RESET
HOV
'RGPBLK,@#SLPERR
JSR
PC".NXTDRV
MOV
DRIVE,tTACS
MOVB
IREWINDIGO,@TACS
100S:
BIT
,READY,tTACS
BEQ
100S
IS:
JSR
PC,t'RDBLK
BIT
'LEADER,@TACS
8NE
RGPBLK
HOVB
'SFBG!GO,'TACS
WAITREADY
BIT
'LEADER,@TACS
BNE
RGPBLK
BR
1$

:KEEP THE STACK OUT OF THE WAY
:SETUP THE TAil STATUS AND
:DATA BUFFER REGISTERS
: RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT DRIVE
:SELECT DRIVE
,SEND TAPE TO "BOT"
:WAIT ON READY
,READ A BLOCK OF DATA
:AT 'CLEAR LEADER'?
IBR IF YES
:GET INTO A FILE GAP
:AT "CLEAR LEADER"?
: BR IF YES
;LOOP

;,*******************************************************.***-***

SPACE FORWARD FILE GAP FROM 'BOT' TO "EaT"
,START AT 244
:THIS ROUTINE CAN BE USED AFTER 'WRITE FILE GAP" FOR LOW SPEED
,SPACE Fa WARD (TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR
:WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD
,(SIGNAL MONO CAN BE CHECKED).

"10234
"10240
010244
010250
010252
0102611
"10264
010266
010272
"10276
111"311"
1110304

Jr******************************************·********************

012706
013704
013705
000005
012737
004737
010114
112714
032714
001775

""1100
,,1112116
001212

\12714

000013

010234
010610

"01110

000017
000040

104412

SFFGSB: MOV
'STACK,SP
MOV
@'TACSL,TACS
MOV
@'TADBL,TADB
RESET
MOV
'SFFGSB,@'SLPERR
JSR
PC,@#NXTDRV
MOV
DRIVE,@TACS
MOVB
'REWIND!GO,@TACS
100S:
BIT
'READY,@TACS
8EO
100S
1$:
MOVB
'SFFG!GO,@TACS
WAITREADY

:KEEP THE STACK OUT OF THE WAY
:SETUP THE TAil STATUS AND
:DATA BUFFER REGISTERS
:RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
:GO SETUP FOR NEXT DRIVE
:SELECT DRIVE
:SEND TAPE TO "BOT"
:WAIT ON READY
:SPACE INTO A FILE GAP
:WAIT ON READY

TAil MANUAL INTERVENTION TEST
MAINDEC-Il-DZTAC-C
MACYI! 27(732)
DZTACC.NEW
SPACE FORWARD FILE GAP fROM 'SOT" TO "EaT"
19U
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1913
1974
1975
1916
1971
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
\995
1996

11-JUN-76

8U306
010312
010314
910316

032114
001772
000000
000746

020000

BIT
BEQ
HALT
BR

ILEADER, nAC S
IS
SFFGSB

II-JUN-76

13:51

PAGE 44

SEQ 0057

:AT "CLEAR LEADER"?
:SR IF NO
,STOP AT "EaT"
;LOOP ON CONT,

;'***************************************************************

BACK SPACE FILE GAP
;START AT 250
:THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE 'SIGNAL HONO".

1110320
010322
"10330
010332
0111336
010340
810344
0\8346
010350

800005
012137
010314
112714
104412
032714
"01772
980000
0011763

Jr*********************************************************.*****

010320

001110

BSFGSB: RESET
MOV
~OV

IS'

088007
020000

,BSFGS8,@'ILPERR
DRIVE,PTACS

MOVB
i8SFGIGO,~TACS
WAlTREADY
BIT
'LEADER,@TACS
BEQ
IS
HALT
eR
BSFGSB

,RESET THE WORLD
,LOOP ON ERROR ADDRESS
,SELECT DRIVE
:BACK SPACE A FILE GAP
,WAlT ON READY
,AT "CLEAR LEADER"?
:8R IF NO
,STOP AT BOT
,START OVER ON CaNT.

JJ**************************************************** *****.*.***

:
010352
010354
810356
1118364
010366
010370
010370
010314
818376
818402
810484
010410
"10412
"10416
818422
810424
018432
018434
818436
818436
816444
818446
810454
810456
8111460
fU0468
8111462
8111464

005000
000000
022767
"01001
104405
157700
0111006
105717
801402
012190
005200
018031
01151137
008000
822767
&01001
104405

SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES

:,***************************************************************

000176

170554

SETBUF, eLR
HALT
eMP
BNE
GTSWR
2011

170544

BlSB

170531
008376
1$,

010462
010464

2$1

000116

110506

170416

010464

000176

178464

BHE
TSTB
BEQ
MOV
INC
. MOV
eLR
HALT
CMP
BNE
GT5WR

RIl

#SWREG,SWR
20$
PSWR,R0

'SWR.I
IS

1376,R0
R0
R0, PlBLKLIM
"PATTRN
ISNREG,SWR
21S

21S,
111737
8"8000
022167
&81001
1114485

MOVB
HALT
CMP
8NE
GTSNR

'SWR, '.PATTRN
#SWREG,SWR
22$

22$1
8110207
0110800
11801100

RTS
BLKLIM: 0
PUTRN, 0

:OPERATOR PUTS BYTE COUNT IN SWR<7'0>
,USING S/W SWITCH REG?
:NO- GET OUT
:GET VALUE
,CONTINUE
:PICKUP THE BYTE COUNT
:SR IF NON-ZERO
:CHECK IF GREATER THAN 377
:BR IF NO
:SET FOR MAX ALLOWED
,MAKE IT 311 OR 1
,SETUP THE BLOCK LIMIT
:OPERATOR PUTS PATTERN IN SWR<1.0)
:USING SIN SWITCH REG?
:NO- GET OUT
:GET VALUE
,CONTINUE
:PICK UP THE PATTERN
;SET OPERATIONAL SWITCHES
,USING SIW SWITCH REG?
,NO- GET OUT
,GET VALUE
,CONTINUE
:RETURN
:READ AND WRITE BLOCK SIZE
,PATTERN TO GO ON THE TAPE

TAli MANUAL INTERVENTION TEST
MAINDEC-II-OZTAC-C
MACYlI 27(732)
OZTACC,NEW
WRITE ROUTINE FOR THE MANUAL OPERATIONS
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
20)0
2031
2032
2033
2034
20]5
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069

1110466
010472
1110476
010500
010504
010506
0105\0
010512
at0516
1110520
010524
010526

0137111
112714
104413
032714
0011110
005301
002403
113715
"00767
052714
104412
000207

010462
000003

010530
010534
010540
010544
01054b
010552
1110554
010556
010560
010562
010564
010566
010570
010572
010576
010b00
010602
010604
010606

013702
013700
112714
104413
032714
001012
005302
002405
011501
120001
001767
U4005
000406
052714
104412
005714
100001
104001
000207

010462
0104b4
000005

010610
010614
010616
010620
010624
010630
010632
010636
010640
010642
010646
010652

105777
100416
005003
013701
122127
001402
012703
105711
001002
012701
010137
000207

170324

13,51

PAGE 45

000040

010464
000020

Jr··*··**··*···**···*·****··*·**·····**·_**·······.··.****.*****.
READ ROUTINE FOR THE MANUAL OPERATIONS
,,* •••• **MOV
•• *** ••••••••••••••••••••• *********.**.*****************
UBLKLIM.R2
,PICKUP THE BLOCK SIZE

RDBLK,
1$'

000040

000020

2$ :

3S:

4S'

HOV
UPATTNN.R0
MOVB
'READ!GO.@TACS
WAITXFER
BIT
tREADy.nACS
BNE
3$
DEC
R2
BLT
2S
MOV
trADB.RI
R0,Rl
CMPB
BEQ
1$
ERROR
5
BR
4S
UtBs.nACS
BIS
WAITREADY
TST
@TACS
BPL
4S
ERROR
I
RTS
PC

,USE THIS DATA PATTERN TO COMPARE TO
,START A READ
,WAIT ON TRANSFER REQUEST
,15 READY SET?
,BR IF rES
,COUNT THIS REQUEST
,BR IF TIME FOR ILBS
,READ THE DATA BUFFER
,CHECK THE DATA
tBR IF 01{

,BAD DATA
,GET OUT
,READ ILes
,WAIT ON READY
,CHECK FOR ERROR
,BR IF NONE
,ERROR OCCURRED
,RETURN

JJ ••••• ******.**** •••••• ** •• *********************.*****.*.*.*.***
ROUTINE TO CHANGE DRIVES
NXTDRV, TST8
,SWR
:IS SW07 ON A [1) ?
BMI
3$
,SR IF YES
,SET DRIVE TO HAW
CL~
DRIVE
HOV
UDRVPNT.RI
,GET DRIVE POINTER
CHPB
(R1 )+, '''A
:15 IT DRIVE "AH?
BEQ
1$
,BR IF YES
.UNIT,DRIVE
MOV
JSET O~IVE TO "B"
(RI)
,LAST DRIVE BEEN SELECTED
1$:
TSTB
,BR IF ~o
BNE
2$
HOV
,DRVKEY.RI
,RESET DRIVE POINTER
HOV
RI.@#DRVPNT
,SAVE DRIVE POINTER fOR NEXT TIME
2S'
RTS
,GO BACK
3$ :
PC

001230
000101
000400
001224
"01230

MACYlI 27(732)

II-JUN-76

13,51

PAGE 4b

,f:****-·*****--***-*·-·**-******-***-*-*******-*_·**** ***********
ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY

.SBTTL

,CALL'

010654
010660
010662
11110666
010670
010674
010700
010702
010704
010706
010712
010714
010720
1110722
010730
010732
010740
010742
A10744
010750
010752
010756

013701
005011
122710
001402
052711
032711
001775
005711
100024
032711
001017
032711
001411
122777
001412
122777
001406
000403
032711
001002
062716
000207

SEQ 0058

WRITE ROUTINE FOR THE MANUAL OPERATIONS
:r************************·*************.**********************.*
WRTBLK, MOV
'IBLKLIM,RI
,PICKUP THE BLOCK SIZE
MOVB
IWRITEIGO,nACS
,START A WRITE
IS,
WAITXFER
,WAIT ON TRANSFER REQUEST
BIT
.READY,trACS
,DID READY SET?
BNE
,BR IF YES
3'
DEC
,COUNT THIS REQUEST
RI
BLT
2$
,BR IF TIME FOR ILBS
MOVB
PtPATTRN, UAOB
,PUT DATA ON TAPE
BR
,LOOP
1$
2$,
BIS
IILBs.nACS
,WRITE CRC AND SHUT DOWN
WAITREADY
,WAIT ON THE READY FLAG
)s:
RTS
PC

TAil MANUAL INTERVENTION TEST
MA INOEC-II-DZTAC-C
DZTACC,NEW
ROUTINE TO CHANGE DRIVES
2070
2071
2072
207)
2074
2075
2076
2077
2078
2079
2080
2081
2082
2081
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101

II-JUN-76

001206

EXA~'

000101
000400
000040

IS:

001000
010000
O00201

170210

000203

170200

020000

2S:

000002

35,

MOV
#DRVKEY.R0
JSR
PC'~'EXAM
NORMAL RETURN
ERROR RETURN
MOV
CLR
CMPB
BEQ
BIS
BIT
BEQ
TST
BPL
BIT
8NE
BIT
BEQ
CMPB
BEQ
CMPB
BEQ
SR
BIT
8NE
ADD
RTS

~nACSL.RI

(RIl
'-A, (R0)
IS

,UNIT,(RI)
.READYtlRll
IS

(RI)

,RI IS DESTROYED

,PICKUP THE "CONTROL' STATUS' REG. ADR.
:DRIVE="A", FUNCTION="WFG"
:EXAMINE DRIVE NAn?
,BR IF YES
,SELECT DRIVE "B"
,WAlT ON READY

,ANY ERROR?
,BR IF NO
,ERROR DUE TO "OFF LINE"?
,BR IF YES
,ERROR DUE TO 'WRITE LOCK"?
,8R IF NO
,"READONLY' SELECTED? IRDIPAS)
,BR IF YES
4S
'8IT07IBIT01IBIT00.@SWR ,(RD2PAS)?
,BR IF YES
4S
3S
,TAKE THE ERROR EXIT
'LEADER.tRIJ
,ERROR DUE TO "CLEAR LEADER"?
,BR IF YES
4$
,TAKE ERROR RETURN
n.ISP)
,RETURN
PC
4S

.OFFLINE. (RI)
3.
,WRTLOCK. (RI)
2$
,8IT07IBIT00.@SWR

SEQ 0059

TAil MANUAL INTERVENTION TEST
DZTACC,NEW
TYPE ROUTINE

MAINDEC-Il-0ZTAC-C

2102
2103
2104

.S8TTt

2105

,-,-:*OFl
I-

2115

2116
2117
2118

010760
010764
010766
010770
010772

010174

2125

011000

2126

011002
011004
011006
011010
011014
011016
011022
011024
SH0l0
011032
011034
011036
011040
011044

2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140

2141

01104.

105767
100002
000000
000407
01004.
017600
112046

1$,
2$.

001005
005126

012600
06271.
000002

12271.
001430
122716
00100.

&0S:
000002

38:

000011

4& ,

011064
011070
011012

105366
002770
004761
105367

000032
000072

2154
2155
2156
2157

j 12116

~11122

004767
132767
331372

~11124

005726

011114

011126

000724

011110
011134
011136
011144
011152
011151
011160
011162
01117O
011172
011174

105771
100175
116677
122760

011176

BNE
HOV

2S
SHULL,-ISP)

DECS
BLT
JSR
DECB

000040

000014
000007

81:
9S:

000052

JSR
BITH

PC. $TYPEC

8NE

9$
(SP,.

TST

000002

170006

000015

000002

aTYPEC
2(SP),@STPB
leR, 2 (SP)

000014
000002

000000

000207

MOVB
CMPB

8NE
CLRB
BR
IS,
CMPB
BEQ
INCB
SCHARCNT, • WORD
STHEX, RTS

"REPLACE TAB WITH SPACE
"TYPE A SPACE
"SRANCH If NOT AT
If TAB STOP
n POP SPACE OFf STACK

MACYI! 21(732)

8PL

nYPEe, T5rB

170014

000012

, (SP)

~7.SCHARCNT

MAINDEC·ll-DZTAC~C

001001

105367
000406
122166
001402
105227

Move

@eTPS

SCHARCNT

Il-JUN-76

13,51

PAGE 48

"GET NEXT CHARACTER
"WAIT UNTIL PRINTER IS READY

; ,LOAD CHAR TO BE TYPED INTO DATA REG,
.,15 CHARACTER A CARRIAGE RETURN?
1,BRANCH IF NO
"Y~S-·CLEAR CHARACTER COUNT

STYPEX

nEXIT

ijLF.2(SP)

;,IS CHARACTER A LINE FEED?
"BRANCH IF YES
::COUNT THE CHARACTER
:;CHAPACTEP COUNT STORAGE

STYPEX

(PC).
0

TTY INPUT ROUTINE
~*

••••••• *••••••••••••

LSB
~

AND wILL
;<SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL
;_WHEN OPERATING IN TTY FLAG MODE,
#SWFEG,SWR
SCKSWR, CMP
;,15 THE SOFT-SWR SELECTED?
SNE
15S
"BRANCH IF NO
TSTB
@STKS
"CHAR THERE?
:: IF NO, DON'T WAIT AROUND
BPL
ISS
; ~SA.VE THE CHAR
Move
@STKB,-ISP)
#-Cl77.1SP)
;,STRIP-OfF THE ASCII
BIC
#7,(SP)t
eMP
:.15 IT A CONTROL G?
BNE
15$
nNO, RETURN TO USER
CMPB
SAUTOS, nI
"ARE WE RUNNING IN AUTO-MODE?
BEQ
.;BRANCH IF YES
ISS
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER,

011200
011206
011210
011214
011216
011222
011226
011232
011234
011242

022767
001074

000176

105771

167730

104401
104401
01674.
104402
104401

0112H

2205
2206
2207
2208
2209

$CHARCNT
76

:, •••••••••••••••••••••••••••••••••••••••••••••••• *••• •••• * •••

011254
011260
011262
111126.
011270
011272
01127.

2204

I (SP)

PC, STYPEe

;>SOFTWARE SWITCH REGISTER CHANGE ROUTINE,

011250

2203

:1CLEAR CHARACTER COUNT
"GET NEXT CHARACTER
"GO TYPE THIS CHARACTER
1,IS IT TIME FOR FILLER CHARS,?
;llF NO GO GET NEXT CHAR,
;,CET • OF FILLER CHARS, NEEDED
"AND THE NULL CHAR,
;,DOES A NULL NEED TO BE TYPED?
;ISR IF NO--GO POP THE NULL OFF OF STACK
IIGO TYPE A NULL
"DO NOT COUNT AS A COUNT
: .LOOP

CMPB

,ENABL

2195
2196
2197

2201
2202

SCH~RCNT

6S,

,58TTL

2193

2199
2200

If NOT <CRLF>

nPO? <CR><Lr> EOUIV
11TYPE A CR AND LF

PC, STYPEC
HILLC, (SP»

J :BRANCH

(SF)+

:: •••• * •••••• * ••• *.* ••• * •••••••••••••••••••

2194

2198

IHT, (SP)
8S
ICRLf, (SP)
58

JSR

7$,

M0001

INTERVENTION TEST
TYPE ROUTINE

2159
2162

(SPH·,R~

$ 2, (SF)

5S.

000770

2158

2163
2164
2165
2166
2167
2 16B
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
21 BI
2182
2183
2194
2185
2186
2187
2188
2189
2190
2191
2192

CMPB

4S
( SP).

,:IS THERE A TERMINAL?
nBR If YES
"HALT HERE IF NO TERMINAL
, ;LEAVE
nSAVE R0
:,GET ADDRESS OF ABCIZ STRING
"PUSH CHARACTER TO BE TYPED ONTO STACK
;,SR IF IT ISN', THE TERMINATOR
"IF TERMINATOR POP IT OFF THE STACK
, : RESTORE R0
"ADJUST RETURN PC
I,RETURN
I,BRANCH IF <HT'

I HORIZONTAL TAB PROCESSOR
011104
011110

TAil MANUAL
DZTArc .NEW

2160
2161

Move

SNE
TST
MOV
ADD
RTX

2147

011076
011102

R0.-(SP)
@2(SP)'R0
(P0l+.-eSP)

CLRB

000056
170100

2146

2150
2151
2152
2153

HOV
MOV

SCRL,
000130

2144

2148

TYPE

104401

000755
004767

STPFLG

eNE
TST

001177
! 05067

Tsrs

CMPS

~05726

170070

2149

0060

TYrE
MESIDR

BEQ

000200

61674.

2145

SEQ

TYPE ROUTINE

BPL
HALT

000002

126726
001350

2143

STYpg.

! 70173

011052
01 I 056
011060

2142

PAGE 47

2113
2114

2120

13,51

,*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
,*NOT£I,
BFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED,
p"NOTE2 :
.FILLC CONTAINS THE CHARACTER TO FILL AFTER.
,*NOTE3,
;*
"CALL,
;.\) USING A TRAP INSTRUCTION
,MESADR
:,MESIOR IS FIRST ADDRESS or AN ABCIZ STRING
TYPE

2110
211\
2112

2121
2122
2123
2124

II-JUN-76

, r***4'''"**********************''''-il-************************'**********
I*POUTINE TO TYPE AselZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

2106
2107
2108
2109

2119

MACHI 27(732)

011300
011304

100071
117746
042116
022726
001062
126721
001456

167724
117600
000007
167674
011725
011 732
166716

000001

TYPE

SGTSWR, TYPE
HOV

TYPOC
TYPE

011143
19$1

0115046

005046
105771

167732

eLR

CLR
167646

7$.

100375

TsrB

I,IF NOT TRY AGAIN

@$TKB.-(SP)
'·CI77.1SP)

"PICK UP CHAR
:,MAKE IT 7-BIT ASCII

(SPl.~l5

;,IS IT A CONTROL-U?
I,BRANCH IF NOT
11 YES, ECHO CONTROL-U (-U)
I,IGNORE PREVIOUS INPUT
"LET'S TRY IT AGAIN

Mova

042716

177600

aIC

000025

021627

2211

011322

062706

2212
2213

011326

000757

90,

001005

104401

011720
000006

CMP
SNE

TYPE
20$ ,

If CHAR THERE?

167642

011310
011314
011316

@$TKS

8Pt

11774.

2210

,$MNEW
-(SP)
-ISPl

;,ECHO THE CONTROL-G (-G)
"TYPE CURRENT CONTENTS
"SAVE SWREG FOR TYPEOUT
I,GO TYPE--OCTAL ASCII(ALL DIGITS)
,:PROMPT FOR NEW SWR
• ,CLEAR COUNTER
.,THE NEW SWR

, SCNTI.lG

,SMSWR

SWREG. - (SF l

ADD
BP

10$
,GCNTLU
'6, SP
19$

SEQ 006\

TAil MANUAL INTERVENTiON TEST
MAINDEC-II-DZTAC-C
OUACC.NEW
TTY INPUT ROUTINE
2214
2215
2216
2217
2218
2219
22211
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232

2233
2234
2235
2236
2237
2238
2239
2240
2241

1111330
1111334
1111336
811342
811344

011352
011356
011362
011310
011372
011400
011402
011406
011412
011414
011420
011422
011426
011432
011434
011436
811440
011442
011446
011452
811454
011460

021627
001022
105766
0111403
016677
962706
104401
126727
001003
012177
000002
004767
021627
002420
021627
003015
042726
0115766
801403
806316
006316
006116
005266
056616
080707
10448\
090720

000015

Illll

01101104
000002
000006

167566
II S:

00\177

lUI

167547

800001

000100

167544

177522
000060
000067
000060
000002

ASL
000002
177776

17$,

001176

lAS!

,DSABL

2242

2243
2244
2245

2249

18$

.b0,CSP)+
2(SPI
178
(SP)
esP)
(SP)
2CSPI
-2(SP),cSP)
1$

,SQUES
20$

2253

11\1462
911464

011472

2256

~1I476

2257
2258
2259
2260
2261
2262
2263
2264

ell500
011506
011514
011522
011524

2265

1111 542
01154.
011550
01\ 552
011560

011530

011532
011536

011646
016666
105777
le0375
117766
042706
026627
001013
105777
100375
117746
042716
022627
001366
000750
026627
002407

000004
167446

000002

167442
177600
0110004

000004
000004
000023

167414

SRDCHR. MOV
MOV
TSTB
IS:
8PL
HOVb
BIC
eMP
aNE
2S,
TST8
BPL

Move

167410
177600
000021
000084

000140

3$1

BIC
CMP
SNE
SR
CMP
BLT

(SP),-(SP)
4CSP)'2(SPI
@$TKS
1$

@$TKB,4(SPI
'-C<177>,4(SP)
4(SP),123
38
@$TKS
2S
@eTKB,-CSP)
'"CI77'(SP)
CSP)."21
2.
U
4CSP)dI40
4S

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC. NEW
TTr INPUT ROUTINE
2270
2271
2272
2273
2274

011562
0\1570
011572
011600

026627
003003
042766
000002

000004

000175

000040

000004
4$1

2285

2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2]00
2301
2302
2]03
2304
2305

2306
2307

2308

CMP
BGT
BiC
IITI

011602
011604
01\610
01\6\4
0\1616
011620
811622
011626
011630
011634
011636

010]46
1il12703
022703
101405
104407
112613
122713
00100]
104401
0011763

011642

104401
122723
001356
105063
104401
012603
011646
016666
012766
000002

011646
011652
IH1654

011660
911664
0\1666
811670
011676
011704
011706
01170'
011710
01\ 7211
011725
011732
011740
011743

2310
2311
2112
2313

011750

\I 1367

SROLINI MOV
HOV
IS:
CMP
28:
BLOS
ROCHR
MOVB
CMPB
10S:
BNE
TYPE
41.
BR
NOVS
3S1
TYPE
eMPB
BNE
CLIIB
TYPE

011710

011720

000177
001176
0011044
011706
000015
177777
001200

MOV
MOV

",00004
011710

9$'

00~

"00
"00010
052536

MOV
MOV
RT!

000002
000004

005015

HSP)"175
4$

#40,4 (SP)

II-JUN.7.

1l.51

PAGE 50

IllS IT A SPECIAL CHAR?
nBRANCH IF YES
I,MAKE IT UPPER CASE
I,GO BACK TO USER

136

0~6507

\l05015
1120075
040
036440

853523

,BYTE
,BYTE

113,-(SP)
UTTYlN,R3
UTTYlN+8 •• R3
4S
(SP).,(II])

1177'(Rl)

,aQUES
IS
(U),9$

,9$
U5. (113).
2.
-IIR3)
,SLF

(SP) •• R3
(SP).-(SP)
4(SP) ,2eSp)
UTTYIN,4<SPI

"0a•

IIGET ADDRESS
/lBUFFER FULL?
IIBR IF YES
IIGO READ ONE CHARACTER fROM THE TTY
" GET CHARACTER
" IS IT A IIUBOUT
II SKIP IF NOT
,:TYPE A "1"
.,CLEAR THE BUFFER AND LOOP
'IECHO THE CHARACTER
"CHECK FOR RETURN
I,LOOP IF NOT RETURN
"CLEAR RETURN (THE 15)
"TYPE A LINE FEED
, I RESTORE R3
"ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCII CHARACTER ON IT

; IRETURN
II STORAGE FOR ASCII CHAR. TO TYPE
"TERMINATOR
I,RESERVE 8 BYTES FOR TTY INPUT
I!CONTROL ·U·
IICONTROL "C"

0~3505

GMNEW.

.ASCll

.SBTTL

READ AN OCTAL NUMBER FROM THE TTY

/"U/<15><12>

I"G/cI5><12>
<15><12>/5WR = I

000

047940

nSAVE P3

fTTYINI • BLKB
.CNTLU, .A5CIZ
SCNTLG. ,ASCIZ
eMSWR: .ASCIZ

NEW

000040

fl*·-**·_·*·_**····*·-··_·_·***·-·**--**-***···*_·**·-*._*.-.***I*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND

2315
2316
23\7
2318
2319

I*CHANGE IT TO BINARY.
;*CALLI

,.
1*

2320

RDOCT
RETURN HERE

011646
1116666
£110046

2324

011 754
01\ 756
011764
011766

010146

MOV

2325

011770

010246

MOV

2322

MACYI! 27(732)

000
000012
020122

2314

2323

; IPUSH DOWN THE PC
IISAVE THE PS
II WAIT FOR
IIA CHARACTER
"READ THE TTY
I,GET RID OF JUNK IF ANY
"IS IT A CONTROL-57
IIBRANCH IF NO
IIWAIT FOR A CHARACTER
"LOOP UNTIL ITS THERE
II GET CHARACTER
I,MAKE IT 7-SIT ASCII
1115 IT A CONTROL-Q?
IIIF NOT DISCARD IT
/I YES, RESUME
I,IS IT UPPER CASE?
"BRANCH IF YES

,*THIS ROUTINE WILL INPUT A STRING FROM THE TTY
,.CALL:
ROLIN
"INPUT A STRING FROM THE TTY
I'
RETURN HERE
.IADDRESS OF fIRST CHARACTER WILL BE ON THE STACK
1*
IITERMINATOR WILL BE A BYTE OF ALL 0'S

2309

2321

SEQ Bin

"IS IT A <CR>?
"BRANCH IF NO
II YES, IS IT THE FIRST CHAR?
IIBRANCH IF YES
IISAVE NEW StiR
IICLEAR UP STACK
IIECHO <CR> AND <LF>
lIRE-ENABLE TTY KBO INTERRUPTS?
II BRANCH IF NOT
" RE-ENABLE TTY KBD INTERRUPTS
I,RETURN
nECHO CHAR
"CHAR < 01
IIBRANCH If' YES
IICHAR > 7?
"BRANCH IF YES
IISTRIP-OFF ASCII
IllS THIS THE FIRST CHAR
nBRANCH IF YES
IINO, SHIFT PRESENT
CHAR OVER TO MAKE
n
ROOM FOR NEW ONE,
"KEEP COUNT OF CHAR
"SET IN NEW CHAR
IIGET THE NEXT ONE
II TYPE ?<eR><LF>
IISIMULATE CONTROL-U

::*** •• ** •••• **** •• * ••••••••••• ** •• ** •• ** ••••• ** ••• * •• _•••••• _•• -

2275

2276
2277
2278
2279
2280
2281
2282
2281
2284

PAGE 49

2254
2255

2266

PC,STYPEC
(SP), .60
18$
(SP), #67

13151

2250
2251
2252

2268
2269

ASL
ASL
INC
BIS
BR
TYPE
OR
LSB

(SP1,US
16$
HSP)
11$
2(SPIo.SWR
,6,SP
,SCRLF
UNTAG,U
15$
1100,uns

II-JUN-76

;,***************************************************************
I*THI5 ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
,*CALL:
RDCHR
IIINPUT A SINGLE CHARACTER FROM THE TTY
1*
RETURN HERE
I,CHARACTER IS ON THE STACK
1*
I;WITH PARITY BIT STRIPPED OFF

2246

2247
2248

2267

151 ,
16$.

CMP
BNE
TST
BEQ
MOV
ADD
TYPE
CMPB
8NE
MOV
RTI
JSR
CMP
BLT
eMP
BGT
BIC
TST
BEQ

MACilt 27(732)

000094

0001102

SROOCT, MOV
MOV
MOV

(SP),-(SP)
4(SP)'2(SP)
RIl,-(SP)
RI,-ISP)
R2,-(SP)

:IREAO AN OCTAL NUMBER
'ILOW ORDER BITS ARE ON TOP OF THE STACK
;IHIGH ORDER BITS ARE IN SHIOCT
"PROVIDE SPACE FOR THE
IIINPUT NUMBER
,IPUSH R0 ON STACK
"PUSH RI ON STACK
IIPUSH R2 ON STACK

SEQ 0063

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEII
READ AN OCTAL NUMBER FROM THE TTY
2326
2327
2329
2329
2330
2331
2332
2333
2334
2335
2336
2337
2339
2339
23411
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2359
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2379
2379
2390
2381

011772
BII774
BII776
111211110
111211112
111211114
912006
111120111
BI21112
11121114
012016
BI21120
11121122
11121126
B121130
1112032
1112034
012040
0121144
012046
1112115B
11121152
1112054

!B44I11
111261111
88511111
985902
1121146
9111412
806381
11116102
8B6301
8116102
0116301
006102
042716
8626111
8011764
11115726
818166
0111267
012602
812601
012600
II01l002
01111000

MACYII 27(732)

IS:

ROLIN
MOV
(SPl+. R0
CLR
RI
CLR
112
MOVB
(RII)t.-(SP)
2S:
BEQ
3$
ASL
RI
ROL
R2
ASL
RI
ROL
R2
ASL
RI
ROL
R2
BIC
'-C7. (SP)
(SP)+.RI
ADD
BR
2$
(SP).
TST
3S1
MOV
RI.12(SP)
MOV
R2.SHIOCT
MOV
(SP) •• R2
MOV
(SPl+.RI
MOV
(SP)+.R"
RTI
$HIOCT: .WORD
0
.SBTTL BINARY TO OCTAL (ASCII)

177770

11100012
9011010

2417

2418
2419
2420
2421
2422
2423
2424
2425

13:51

PAGE 51

SEQ 111164

IIREAD AN ASCIZ LINE
IIGET ADDRESS OF 1ST CHARACTER
IICLEAR DATA WORD
IIPIC~UP THIS CHARACTER
IIIF ZERO GET OUT

,;*2
:;*4

n*8
IISTRIP THE ASCII JUNK
IIADD IN THIS DIGIT
"LOOP

IICLEAN TERMINATOR FROM STACK
IISAVE THE RESULT
IIPOP STACK "INTO R2
IIPOP STACK INTO RI
II POP STACK INTO RII
"RETURN
IIHIGH ORDER BITS GO HERE
AND TYPE

,,***************************************************.***********
I*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
I*OCTAL (ASCII) NUMBER AND TYPE IT,
:*STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
:*CALL:
MOV
NUM.-(SP)
IINUMBER TO BE TYPED
:*
TYPOS
::CALL FOR TYPEOUT
1*
N
.BYTE
I:N=I
TO 6 FOR NUMBER OF DIGITS TO TYPE
1*
M
.BYTE
;:M=l OR 0
1*
III=TYPE LEADING ZEROS
:*
111l=SUPPRESS LEADING ZEROS
1*
1*
:.$TYPON-·--ENTER HERF. TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
I*STYPOS OR STYPOC
:*CALL:
MOV
NUM.-(SP)
I I NUMBER TO BE TYPED
I"
TYPON
IICALL FOR TYPEOUT
1*
I·
I*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
:*CALL:
MOV
NUM.-(SP)
IINUMBER TO BE TYPED
1*
TYPOC
IICALL FOR TYPEOUT
1*
012056
012062
012070
012074
012100
012102
012110
012116

017646
116667
112667
062716
000406
112767
112767
112767

000000
000001
000207
000002

000211

000001
000006
000005

000171
000165
000154

STYPOS: MOV
MOVB
MOVB
ADD
BR
,TYPOC, MOVB
MOVB
STYPON, MOVB

'(SPl.-(SP)
I (SP). $0ULL
(SP)+.SOMODE+I
12.(SP)
$TYPON
U.S0FILL
'6.$OMODE+1
IS.$OCNT

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
BINARY TO OCTAL (ASC II) AND TYPE
2392
2393
2394
2395
2396
2387
2399
2399
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
24B3
24B4
2405
2406
2407
2409
2409
2410
2411
2412
2413
2414
2415
2416

II-JUN-76

012124
012126
1112130
012132
11112136
012140
012144
012150
012154
012160
012162
012164
012166
012170
1112172
012174
012176
"12200
012204
012206
012212
012214
012216
012220
11112222
012226
012232
1112236
012242
1112246
012250
012252
012254
012256
1112260
012262
012264
012272
1112274
012276
012277
012300
1112301
1112302

1110346
1110446
1110546
116704
005404
11627114
110467
116704
016605
005003
11116105
IIBII404
006105
11116105
1106105
1110501
006103
105367
100016
042703
001002
1105704
001403
0052114
052703
052703
110367
104401
105367
1103347
002402
005294
0011744
0126115
012604
012603
1116666
012616
000002
000
0110
000
000
0011000

R3.-(SP)
R4.-(SP)
R5.-(SP)
SOMODE+I. R4
R4
.6.R4
R4. $OMODE
S0FILL.R4
12(SP).R5
R3
R5
3S
R5
R5
R5
R5.R3
R3

.BYTE

,BYTE
SOCNTI ,BYTE
'0FILL: .BYTE
SOMODE: .WORD

0
0
0

000145
000006
000132
000125
000012
1$1
2$1

3$1

000076
177770

4$1

000060
000040
000040
012276
000032

5S1
78:

6$:
000002

000004
9$,

::PICKUP THE MODE
IILOAD ZERO FILL SWITCH
IINUMBER OF DIGITS TO TYPE
IIADJUST RETURN ADDPESS
: ;SET THE ZERO FILL SWITCH

"SET FOR SIX(6) DIGITS
IISET THE ITERATION COUNT

MACY! I 27(732)

MOV
MOV
MOV
MOVB
NEG
ADD
MOVB
MOVB
MOV
CLR
ROt
SR
ROL
ROL
ROL
MOV
ROL
OECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS
MOVB
TYPE
DECB
BGT
BLT
INC
BR
MOV
MOV
MOV
MOV
HOV
RTI

SOMDE

1177770,R3

R4
5$
R4
''''0,R3
,"

R3.8S
.88
SOCNT
28
6S
JI4
28
(SPl+. RS
(SP)+.R4
(SP)+.R3
2(SP)'4(SP)
(SP)+, (SP)

II-JUN-76

13,51

PAGE 52

IISAVE R3
: ,SAVE R4
:: SAVE R5
;:GET THE NUMBER OF DIGITS TO TYPE
:ISUBTRACT IT FOR MAX. ALLOWED
I:SAVE IT FOR USE
:IGET THE ZERO FILL SWITCH
IIPICKUP THE INPUT NUMBER
IICLEAR THE OUTPUT WORD
IIROTATE MSB INTO "C'
IIGO DO MSB
IIFORM THIS DIGIT

IIGET LSB Of THIS DIGIT
I:TYPE THIS OIGIT?
IIBR IF NO
:IGET RID Of JUNK
IITEST FOR 0
I: SUPPRESS THIS 0?
IIBR IF YES
IIDON'T SUPPRESS ANYMORE 0'5
IIMAKE THIS DIGIT ASCII
I.MAKE ASCII IF NOT ALREADY
IISAVE FOR TYPING
"GO TYPE THIS DIGIT
IICOUNT BY I
:IBR IF MORE TO DO
IIBR IF DONE
IIINSURE LAST DIGIT ISN'T A BLANK
IIGO DO THE LAST DIGIT
I I RESTORE R5
I I RESTORE R4
1/ RESTORE R3
I: SET THE STACK fOR RETURNING
RETURN
STORAGE rOR ASCII DIGIT
TERMINATOR FOR TYPE ROUTINE
OCTAL DIGIT COUNTER
ZERO FILL SWITCH
NUMBER Of DIGITS TO TYPE

SEQ 0065

TAil MANUAL INTERVENTION TEST
DZTACC,NEW
TRAP DECODER
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469

MAINDEC-II-DZTAC-C
.58TTL

II-JUN-76

13151

PAGE 53

SEQ 0066

TRAP DECODER

".*******.**••• *.* •• ****.****.**********************.****.******
,*THI5 ROUTINE WILL PICKUP THE LOWER 8YTE OF THE "TRAP' INSTRUCTION
,*AND USE IT TO INDEX THROUGH THE TRAP TA8LE FOR THE STARTING ADDRESS
,*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
,*GO TO THAT ROUTINE.
012304
012306
012312
012314
012316
012320
012324

010046
016600
005740
111000
006300
016000
000200

012326
012330
012336

011646
016666
000002

STRAP:
0000112

01214e

MOV
MOV
TST
MOV8
ASL
MOV
RTS

R0.-ISP)
2ISP).R0
-IR0)
IR0).R0
R0
$TRPADIR0).R0
R0

IISAVE R0
:,GET TRAP ADDRESS
"BACKUP BY 2
"GET RIGHT BYTE OF TRAP
, ,POSITION FOR INDEXING
"INDEX TO TABLE
nGO TO ROUTINE

, .THIS IS USE TO HANDLE THE "GETPRI" MACRO

000004

000002

STRAP21 MOV
MOV
RTI
.SBTTL

(SP)'-ISPI
4(SP)'2ISP)

"MOVE THE PC DOWN
"MOVE THE PSW DOWN
,.RESTORE THE PSW

TRAP TABLE

,*THIS TABLE CONTAINS THE STARTING ADDRESSES Of THE ROUTINES CALLED
,*BY THE "TRAP" INSTRUCTION.
ROUTINE
012340
012342
012344
012346
012350

~TRPAO: .WORO

012326
010760
012102
012056
012116

$TRAP2

$TYPE
STYPOC
STYPOS
STYPON

r ,CALL=TYPE
, ,CALL=TYPOC
"CALL=TYPOS
"CALL=TYPON

TRAP+11I04401l
TRAP+2 1104402 I
TRAP+3( 104403 I
TRAP+411044041

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER IWITH LEADING ZEROS)
TYPE OCTAL NUMBER INO LEADING ZEROS)
TYPE OCTAL NUMBER lAS PER LAST CALL)

"CALL=GTSWR

TRAP+511044051

GET SOFT-5WP SETTING

012352

011250

SGTSWR

012354
012356
012360
012362
012364
012366

011200
011462
011602
011754
006630
006734

SCKSWR I,CALL=CKSWR
TRAP+6(104406) TEST FOR CHANGE IN SOFT-SWR
$RDCHR "CALL=ROCHR
TRAP+7(104407) TTY TYPE IN CHARACTER ROUTINE
$ROI,IN "CALL=RDLIN
TRAP+l01104410) TTY TYPEIN STRING ROUTINE
SRDOCT "CALL=ROOCT
TRAP+11(104411) READ AN OCTAL NUMBER fROM TTY
WAIT,ON.READY
"CALL=WAITREAOY
TRAP+12(104412) WAIT ON THE READY BIT TO
WAIT.FOR.XfER
"CALL=WAITXFER TRAP.1311"4413) WAIT ON XfER REQ.

TAli MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
POWER DOWN AND UP ROUTINES
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514

MACYlI 27(732)

.5BTTL

MACYlI 27(732)

II-JUN-76

13:51

PAGE 54

POWER DOWN AND UP ROUTINES

Jr-*·*-···········_··*···*·_*·***-·******-****·**··_-************

012370
012376
012404
012406
012410
012412
012414
012416
012420
012424
012430
012436
012440

012737
012737
010046
010146
010246
010346
010446
810546
017746
010667
012737
000000
000776

012534
000340

000024
000026

166514
000110
012442

000024

012442
012450
012454
012460
012464
012466
012472
012474
012476
012500
012502
012504
012506
012514
012522
012524
012526
012530
012532
012534
012536
012540
012542
012550

012737
016706
005067
005267
001375
012677
012605
012604
012603
012602
012601
012600
012737
012737
10440\
012542
012716
002172
000002
000000
000776
000000
005015
000122

012534
000064
000060
000054

,POWER DOWN ROUTINE
SPWRDN: MOV
ISILLup.a'PWRVEC "SET FOR FAST UP
MOV
1340.',PWRVEC+2 "PRIO:7
MOV
R0.-(SP)
"PUSH R0 ON STACK
MOV
RI.-ISP)
"PUSH RI ON STACK
MOV
R2.-ISP)
"PUSH R2 ON STACK
MOV
R3.-ISP)
"PUSH R3 ON STACK
MOV
R4.-(SP)
I,PUSH R4 ON STACK
MOV
R5.-ISP)
"PUSH R5 ON STACK
MOV
@SWR.-(SP)
"PUSH @SWR ON STACK
MOV
SP.SSAVR6
"SAVE SP
MOV
#$PWRUP,.#PWRVEC "SET UP VECTOR
HALT
BR
::HANG UP

::****************~*********************************** ***********

000024

166446

012370
000340

000024
000026

047520

042527

,POWER UP ROUTINE
$PWRUP: MOV
'$ILLUP.@'PWRVEC "SET FOR FAST DOWN
MOV
SSAVR6.SP
"GET SP
CLR
SSAVR6
"WAIT LOOP FOR THE TTY
1$:
INC
$SAVR6
"WAIT FOR THE INC
8NE
1$
, ,OF
WORD
MOV
ISP)+.'SWR
nPOP STACK INTO @SWR
MOV
(SP)+.R5
::POP STACK INTO R5
MOV
ISP)+.R4
"POP STACK INTO R4
MOV
ISP)+.R3
"POP STACK INTO R3
MOV
ISP)+.R2
::POP STACK INTO R2
MOV
ISP) •• RI
"POP STACK INTO Rl
MOV
ISPlt.Re
"POP STACK INTO R0
MOV
UPWRON.UPWRVEC "SET UP THE POWER DOWN VECTOR
MOV
.340.a3PWRVEC+2 "PRIO.7
TYPE
,REPORT THE POWER FAILURE
SPWRMG: .WORD
$POWER
"POWER FAIL MESSAGE POINTER
MOV
IPC) •• ISP)
"RESTART AT PWRST
SPWRAD, .WORD
PWRST
"RESTART ADDRESS
RTI
SILLUP: HALT
"THE POWER UP SEQUENCE WAS STARTED
SR
" BEFORE THE POWER DOWN WAS COMPLETE
SSAVR6. 0
"PUT THE SP HERE
SPOWER, .ASCn <15><12>"POWER"
.EVEN

SEQ 0067

MleYl! 27(732)

II11 MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
POWER DOWN AND UP ROUTINES

II-JUN-76

13,151

PAGE 55

SEQ 0068

DUACC ,NEW

2515
2516

2517
25\9
2519
2520
2521

2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
25]4
2535
2536
2537
2539
2539
2540
2541
2542

254l
2544
2545
2546

2547
2548
2549
2550
2551
2552

2553
2554
2555
2556
2557

2558
2559
2560
256 I
2562
2563
2564
2565
2566
2567
2568
2569
2570

012552
012560
012566
012514
012576
012604
012606
012614

012620
012626
012634

012635
012642
012646
012654
012661
012666
012667
012674
012702
012710
012714
012722
012730
012732
012740
012746
012754
012762
012770
012776
013000
013006
013014
013021

042200
051450
005015
000077
042526
000077
951120
054524
040524
052040
000
040
051117
050040
052111
015
000
131
047520
047504

044522
037451
040524

04252.
000040

MSGDRV,

,AselZ

<CRLF>'DR!VEtS)? '

051503

MSGASK,

,I5CH

<15><12> !TICS?!

052103

051117

MSGVEC,

• ASC I Z

IVECTOR?!

047511
000077
051503
042101

044522

MSGPRI,

• AseIZ

IPRIORITY?!

000075
03&502

MTACS.
MTADB.

.ASClZ
• Ase I Z

/TACS.I
I TAOS. I

042526
000075
044522
036531
047412

052103

MTAVEC,

,Ase I Z

VECTOR:I

051117

MTAPRI,

,ASCIZ

PRIORITY./

037513

MSGOKI

,ASCIZ

<15><12>/OK?I

051505
042527

MYES,
MTUPWR,

,ASCIZ
,ASCIZ

IYES/<CRLF>
IPOWER DOWN TU601

047127

000200
020122
052040

033125

000050
042527
052040

020122
U3125

MPWRUP,

.ASClZ

IPOWER UP TU601

047515
051501
020105
042040
052440
052040

042526
042523
051106
044521
042116
0'H505

MOFFLN, .ASCIZ

041501
051523

"TAPE'

• ~SCIZ

IREPLACE CASSETTEI

053440
046040

MWPTLK,

.ASCIZ

ISET WRITE LOCKI

051127
047105
000
052524
041117

MLASTl

.ASCIZ

ISET WRITE ENABLE!

EMt:

,Ase I Z

IsnTUS PMBLEMI

047520
050125

000

000060
042522
041440
052124
046517
042526
~51 105
000124
042522
020105
052105
123

IREMOVE CASSETTE FROM DRIVE UNDER TESTI

013026

044522

0\3034
013040
013046
013054

041517
042523
05211 I
041101
123
020123

046120
040503
042524
052105
042524
000113
020124
020105
042514
040524
0511 20

~42514

~00115

051042

040505
040506
052040
000124
040522
020122
051505
044501
047524
000

054504
046 I II
020117

EM2,

.ABCIL

I"REIDY' rAILED TO SET I

051516
042522
021124
042514
051440

EM3.

.ASCIZ

I"TRANsFER REQUEST" fA!J"ED TO SET I

04251~

053440

E"4'

.ABeIZ

/THE WMNG FLAG SET!

043516
020107

043~40

013061
013066
013014
013100
011106
013114
013122
013126
013134
013142
013150
013156
013164
013167
013174
013202

020042
042105
042523
052042
042506
052521
043040
020104
052105
124
047522
040514

000

042523

TAIt MANUAL INTERVENTION TEsr
DZTACC. NEW
2571
2572
257)
2574
2575
2576
2577
2578
2579
258.
258 I
2582
2583
2584
2585
2586
2587
2588

013210
013212
013220
013226
.13227
013234
013242
013244
013252
01326"
013266
013274
013301
013306
013314
0! 3322
01333"
013336

2593
2594
2595
2596
2597

000124
0H504
047522

040524
046102

050040
046505

EMS,

.ASCIZ

IDATA PROBLEM I

120
020040
000123
04152"
020040
0200·10
052!11
042522
120
020040
02012l
050130
051040

020103
052040

020040
041501

DMI'

, ASCIZ

fPC

TAeSI

020"40
040524
020040
040440
051523
020103
052040
020040
041 505
053103

02004"
051503
040527
042104
00"
020040
041501
042440
020124
042047

DH2 ,

• ASCIZ

IPC

TACS

WAIT ADDRESS I

DH5,

.ASCIZ

IPC

TACS

EXPECT

001162
001162

000000
001202

.EVEN
DTI,
DT2,

,WORD
.WORD

SERRPC,SREG0,0
SERRPC,SREG0,SAVPC,0

001162
000000
001206

001124

DTS,

.WORD

SERRPC,SREG0,SGDDAT,SBDOAT,0

000000

DT201 ,

,WORD

SERRPC,TACSL,0

DT202 ,

.WORD

SERRPC,0

013376

001116

000000

013402

040524
044501
047524
047520

030461
042514
051040
042116
02011 7
020105
040514

043040
020104
051505
000
051104
053101
046102

[M201'

,ASCIZ

'TAli FAILED TO RESPOND"

EM202,

.ASCIZ

I'INO DRIVE

020040
040524

020040

DH20!'

.ABeIZ

IPC

DH202 ,

.ASClZ

IPCI

2598
2599
2600
2601
2602
2603
2604
2605
2606
2601

013410
013416
013424
013431
013436
1113444
013452
013454

2609

013462

2609
2610
2611

013470
013471

RCV"DI

000

"13370

013340
013346
013354
013356
013364

II-JUN.76

Joe

013340
00i116
0011! 6
000000
B01! 16
001126
001116

2589

2590
2591
2592

MACYlI 27(732)

MAINDEC -1I-DZTAc-e
POWER DOWN Arm UP ROUTINES

116
053\11
044501
000105
041520
020040
000
120
000001

000103

051503

.END

AVAILA81~En

TACSI

13,51

PAGE 56

SEQ 0069

MACYII 27(732)

MAINDEC-II-DZTAC-C
TAil MANUAL INTERVENTION TEST
OZTACC,NEW
CROSS REFERENCE TABLE o. USER SYMBOLS
ASKAOR

1107146
11871116
1181232
ASKQUE 1107416
BtGINX 1101730
BEGINI 001126
BEGIN2 110U611
BEGINl 1181166
BEGIN4 001174
BGNCMN 11111400
BIT0 • 1100001
BIT00 • 000001
BIT01 • 000002
BIT02 • 000004
1100010
BITII3
0000211
BIT04
BIT05 = 000040
BIT06 = 000100
000200
BITn
BIT08 = 000400
BIT09
00100"
BITI • 000002
BITIII • 002000
BITII • 1104000
BITI2 • 11100011
BITU • 020000
BITI4 • 040000
BITI5 • 100000
BIT2 • 000004
BIT3
00111110
BIT4 • 111111020
BITS • 0000411
BIT6 = ""0100
BIT7 : 000211"
BIT8 • 00114011
BlT9
0010011
BULIM 010462
BPTVEC= 000014
BSBG • 0011010
BSFG
000006
BSFGSS 010120
CHKADR 1101752
CHKDPV 002012
CKSWR • 104406
000015
CR
CRCERR= 040000
000200
CRLF
CURDRV 001234
ODISP • 177570
DHI
013227
DH2
011244
DH201
013454
DH202
011471
DHS
013301
DISPLA 1101142
DUPRE 0011174
AS~ORV
AaK~EY

·•
=

·
·
··

556
553
195.
731
234
231
212
213
4811#
472
1661
156#
155#
154#

1531
152.
1511
1501
149.

148#
147#
1651
1461
145.
\4U
1411
142'
1411
1641
161.
162#
1611
160#
159.
1581
157#
1997*
173.
1961
185#
241

552
612.
1463
8U
194#
82#
396.
881
417
421
449
454
441
164#
2281

1692.
16601
643*
789
550.
469.
476.
475

1681
673
803
586

818
S8e

885

636

618

GTSWFI

00"""1

= 104405

HERE
HGHTIM
HT
•
ILBS

001710
006706
000011
000020
tNT.EN: 000100
IOTVEC: 0001120
ITEM52 001306
LEADER: 1120000
LF
•
LOOP
LOOPI
LOOP2
LOOPl
MANUAL
MAXCNT
MLAST
MOFFLN
MPWRUP
MSGASK
MSGDRV
MaGID
MSGOK

0110012
007062
0110500
1100600
000700
002152
006712
0111140
012712
012714
012566
012552
001702
012661

3931
39U
871
418
424
450
455
442
176.
416
422
448
453
428
414
440
1931
169.
613

1679
1971
2119.
2117#
206.
205.
227
2465
208#
770
1187
1358
1933
532
523
706
79#
204#
202.
174#

U.51

SEQ 8878

PAGE 58

1760.

4781

474

477

479

481#

166
165
164
161
162
161
160
159
158
157

208

2095

2~7

2091
2095

206
205
204
201
202
201
200
199

2091
1478
1486

2095

198
197
196
195
194
191

1514
\493

20111

2018

20]5

7&5
760
19711
555

921
916
1972
574#

961
956
1979

1526
2162
997
518
666364
2575'
429
2607.
2610#
25831
5119.
517

1549
2172
1089
2113
667
509,

24641

435

2578#

517.

1507.

1550

1541
1464
654

2172

1021
11116

1061
1056

2515

2532

1113
1108

1153
1148

12\3

1288

1253
1248

PAGE 59

MACYlI 27(712)

II-JUN-7S

646
2061

671
2069-

1661·

1666

1680

672-

5180
2080.

574-

580*

1469

1470"

1472-

1475*

719
2468
325
837
1288
13811
1974
2002
538#

723
2469
128
845
1293
1397
2019
2008

1776

1784

2457

2458

685
856
1305
14111
2017
2462.

7112
865
1308
1813

7114
869
1326
1816

745
892
1328
1845

876

995

1185

1286

1312

1365

1383

1818

1849

1872

711a.

709*

1603

1624.

1631

394
626161
25911'
430
2595.
2597.
25931
49225551
25581
2599.
260H
2562.
25681
2572'

470.
646508

612
657

416

259\1

5116
617
16841
1089

501*
622

1974

1533-

TAil MANUAL INTERVENTION TEST
MAlNDEC-II·DZTAC-C
OUACC ,NEW
CROSS REFERENCE TABLE •• USER SYM80LS
DRVKEY 001224
DRVPNT 001210
DSNR • 177570
DTI
013340
013346
DT2
0T201
01U70
OT2112
013176
DTS
011156
EMTVEC. 000030
EMI
013061
EM2
011111"
EM2111
013402
EM202
0114l!
1113126
EM3
EM4
013167
EMS
1111212
ERROR
100000
ERRVEC= 11011004
EXAM
010654
EXIT
007116
FGAP
0041100
FUNCTI= 000016
FUNCII
011,,002
FUNCI
11110004
FUNC2 : 000010
GN5
******

1I-"UN-76

625

11.51

SEQ 0071

1684

2067

2459

2460

2462

2464

750
989
1115
1868

755
991
1137
1899

7611
1181
1119
1902

765
1183
1141
1927

\3]0

1341

1346

21127

2048

1904

1907

1931

1915

1960

493-

1189

209
2~9

209
537
2466
3113
775
1282
1360
1955
679
525
1603*
2131
852

664
2467
106
780
1284
1378
1958
1989
536
16171
2172
863

490*

491*

4464
195.
1976
80.
16671
2911
31111
123.
632
654*
1l9l
804
7911
1693
16611
526
1740

897
21198
2166
1681
292
312
334
6411.
7116*
2552.
25391
2536.
25171
2515.
5181
251'"

11189
2172

707.

645

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC,NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
MSGPRI 012606
MSGVEC 012576
MTACS
012620
MTADS
012626
MTAPE
013000
MTAPRI 012646
MTAVEC 012635
MTUPWR 012674
MWRTLK 013021
MYES
012667
NEXT
007116
NOTA
007074
NOTB
007106
NOTLGL 007130
NXTDRV 010610
OrYLIN= 001000
OK
002164
PATTRN 010464
PIRQ • 177772
PIRQVE= 000240
PR0
• 000000
PRI
= 000040
PR2
= 000100
PR3
000140
PR4
000200
PR5
= 000240
PR6
000300
PR7
000340
PS
= 177776
PSW
= 177716
PWR5T
002172
PWRVEC= 000024
RDBLK
010530
RDCHR : 104407
RDLIN
104410
RDOCT
104411
RDSUB
007756
READ
000004
READY

~00040

RESVEC= 000010
REWIND: 000016
RGPSLK 010140
SAVPC
001202
SAVPS
001204
SETSUr 010352
SFSG
1100014
5FFG
000012
SFFGSB 11111234
STACK. 001100
START
002204
STKLMT_ 177774
SWR
001140

1716
1707
1728
1731
819
1737
1734
732
886
1749
1670
1668
1672
1665
1811
199.
641
1998*
861
180.
1031
104.
105#
1068
10H
1081
109.
110.
831
84#
645#
1753
1871
1741
1662
1694
237
184.
1284
203.
1956
1701
189#
1128
1813
239
384.
385.
1837
188.
1871
240

74'

644
85.
291

2521#
2519#
2523#
252 . .
2546#
25281
2526.
2533.
2549.
2532#
1674
16711
1675#
1676
1843
737
643#
2004*

000176
swe
000001
SW00
000001
SW01
000002
SW02 - 0001104
SW03
000010
SW04
000020
SW05
000040
SW06 = 0011100
SW07 = 000200
SW08
000400
SW09
001000
SWI
000002
SWI0
002000
SHII
1104000
SWI2 • 010000
SWI3 • 020000
SWI4
1140000
SWI5
1110000
5W2
= 1100004
SW3
0000\0
SW4
= 000020
SW5
= 000040
8W6
000100
SW7
= 000200
SW8
000400
SW9
• 001000
TAeSH
001210
TACSL
001206

=
=
=

·=

TADBH
001214
TADBL
001212
TAPRIO 001222
TAVEC
001216
TSITVE. 000014
TDRV
002274
TIMERR= 002000
TKVEC _ 000060
000064
TPVEC
TRAPVE= 000034
TRTVEC_ 000014
TR.REQ: 000200
TSTI
002422
TSTI0
003224
TSTII
003422
TSTI2
003772
T5T13
004332
T5T14
004644
T5TI5
005206
TSTI6
005362
T8TI7
005500
TST2
002502
T5T20
'005564
T5T21
005642

1493
2095
229.
138.
12St
1271
126.
125t
124#
1231
1221
12U
120.
1191
137.
118#
1171
116#
115.
114.
113.
1361
135,
1341
133.
1321
1311
130'
129.
388'
3871
2595
390#
389#
392#
39B
1711
659
1988
1788
179.
1771
172.
20U
683
806
88H
884
986
1086
1178
1279
1323
699
1354
1374

II-JUN-76

1953
824

1400

13151

PAGE 60

SEQ 0072

16781
1682'
1866
795

1685
1897
899

1925
810

2012'

2025

2036

20588
1089

2089

...
84

649*

2507
496*
1930
1766
2326
1708
1861#
328
1308
304
2021

491*
2035.
2285
2466.
1717
1865
755
1328
311
2039

2414*

303
1168
1845
1920.
1604*
1606*
1891
775
770
19481
488
641.

325
1181
1868
1924
1605*
1620
1985.
931
926
1952
1806
1444

309

3631

2475*

2484*

2490*

2502*

2503*

951
1343
333

991
2037
686

1011

1051

1103

1143

1183

1203

1243

1607

1637

1814

1846

1869

1900

1928

6B5
1228
1899
1932
1621
1634*

702
1268
1927
1936
1632*
1648

780
1282
1955

B37
1305

892
1326

936
1337

976
1358

989
1378

1036
1397

1076
1410

1633*

1649

2591

971
966
1963
1838

1031
1026

1071
1066

1123
1118

1163
1158

1223
1187

1263
1218

1288
125B

1933
1958

1861

1892

1920

1948

486

508*

510

516*

530

677

1464

1478

14B0

13.51

PAGE 61

2465.
24671
1873
911
1339
326
2085

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC .NEW
CROSS REFERENCE TABLE
USER SYMBOLS

SWREG

MACYlI 27(732)

II-JUN-76

SEQ 0073

2004

2006

2058

2093

1862

1893

1921

1949

2080

1894

1922

1950

1541
2219*
530

1546
2482
677

1550
2495*
1987

1987

1991

1993

2000

2006

2182

2195

1702*
576

1703*
650

1699*

1702

1729

1807

1839

1705.
651
1727.

1706*
1701*
1738
647·

1863

1534
2182
516

1486

138
137
136
135
134
133
132
131
130
129
1787

473

1705

1732

1808

1840

648<>

1713·

1715.

1735

6611
1089
494*

49S*

696'
821

825

9841
10841
1176.
1276.
\3211
IlSU

713#
1366
1384

13711
1389.

830.

)

TAil MANUAL INTERVENTION TEST
NAINDEC-ll-DZTAC-C
DZTACC.NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
005716
002646
002714
003062
003120
003\64
104401

T5T22
TST]
TST4
TST5
TST6
TST7
TYPE

TYPERR 1106512
TYPOC
104402
TYPON = 11l44B4
TYPOS = 1(440)
UNIT • 000400
WAlTRE= 104412

WAITXF: 104413
WAIT ••
WAIT .0
WAITI
WAIT2
WAITl
WAIT4
WFG

006734
006630
006660
006700
006714
006676
000000

WFGSUB
WGBLOP
WGPBLK
WLOOP
WRITE

001604
010042
010036
007614
,,00002

"RTBU 1110466
WPTLOC= 0100""
WRTSUB
SAUTOB
SBDADR
SBDDAT
SBELL
SCHARC
$CKSWR
SCHTAG
SCM I
SCM2
SCMl
SCNTLG
SCNTLU
SCRLf·

007670
001134
"01122
001126
""1172
011174
011Z0"
0011"0
"000"2
000004
"00002
1'111725
011720
001177

$DOAGN
SENDAD

"06024
006014

888
716
738
744
734
811
526
1580
1740
2210
1543
1591
246111
2459.
2001
703
866
1306
1377
846
1344
1629.
16011
16071
16021608
1610
182#
1360
2.35
18921
238
18380
1831
1238
1848
196.
1062
1199
236
360!
355.
3571
379!
2138*
21821
343#
375!
37St
373.
2193
2210
38U
2305
1430
524

1401
728#
743#
782
796
816.
645
1582
1747
2221
1566.
1730

140"

005774
006033
006030
005140
005766
11011113
0111115
1106320
001116
001236
001112
001170

SFl~LC

001156
001155
001120
001124
906004
1111250
000000
012054
001104
012534
001135
001114
001200
001106

GrILLS
SGDlDR
SGDDAT
SGET42
SGTSWR
SHO
SHIOCT
SleNT
SILLUP

SINTAG
SlTEHB

SLF
$\,PADR
SLPERF
SMAIL.
SMNEW
SMSWR
SMXCNT
SNULL
$NWT5T=
SOCNT
SOMODE
SOVER
SPASS
SPOWER
SPWRAD
SPWRDN
SPWRMG
SPORUP
SQUES
SRDCHR
SRODEC:
$RDLIN
SROOCT
SRDSZ
SREGAD
SREG0
SREGI
SRTNAD
SR2A

1101110

***it .. _ U

011743
011732
006316
1101154
000001
1112300
012302
1106302
001100
012542
012530
012370
012524
012442
1101176
011462
. -•••• U

011602
011754

= 1100010
001160
001162
1101164
006026

;: ••• *-* U

498
1434
1445!
1422#
49B*
346.
352'
492
35H
411.
350#
378.
1553
371#
370.
354.
356#
1435.
21941
11
2343*

34H
2474
361#
3511
382.
348.
1391*
349#
520
2197
2194
1501
369.
6931
1318.
2381*
2376*
1465
344.
2505
2507#
496
2505.
2484
380#
22531
2468
2281#
2321#
2274#
373.
375.
376#
1444.
2468

l1-JUN-76

1434

13.51

PAGE 62

SEQ 0074

7871
80\#
662
1586
1749
2240

667
1594
1763
2289

668
1660
1764
2292

717
1682
1774
2296

721
1693
1779
2409

1733

1736

1739

2196

2458.

660
705
877
1313
1379
851
2020
2469
2468
1615
1614#
1612
1613#
704
1399
1806.
1896
1891#
1842
306
1293
1906
902
1067
1204
1837#
534*

2064
746
893
1315
1381
857
2038

2084
751
990
1327
1398
862
2469.

756
996
1331
1411
870

761
1182
1334
1817
875

865
1902
1821

901

B45
2019
912
1077
1214

2190

2311

1530*
1536
2148*
2464
483
376.
376.
375
2306.
2305.
668

2593
1562
2155

1436
589

17f1J7
1782
2457#

1536
1716
1788
2504

1544
1728
2136

1566
1731
2193

1575
1734
2194

1571
1737
2197

766
1186
1336
1903
992

771
1188
1338
1934
994

776
1283
1342
1959
1184

794
1287
1347
1975
1285

838
1289
1357
2028
1311

853
1292
1359
2049
1329

864
1301
136!
2468#
1340

941

1001

1041

1093

1133

1193

1233

1335

956

869

906

946

1006

1046

1098

1138

1198

917
1094
1219

922
1099
1224

927
1104
1229

932
1109
1400

937
1114
2091

1042
1119

1047
1124

1052
1129

1057
1194

1586

1763

1788

2137

2172

2221

1618
1620.
745
1816
1B10
1910
1852
750
1380
2018!
907
1072
1209

2164*

2169.

484
3771
3771

492

49B

499

50"

1544

1562

1566

1577

1582

I44U
639

143U

1557

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC·C
DZTAce ,NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
SENDCT
SENDMG
SENULL
SEOP
HopeT
SERrLG
SERHAX
SERROR
SERRPC
SERRTS
BERTTL
SESCAP

MACYlI 27(732)

HACYlI 27(732)

II-JUN-76

13: 51

PAGE 63

SEQ 0,,7S

1432.
1446.
1429#
1453
501*
1525_
1538*
1573
1537500*
1555
2141
2172
1529-

1433
1482
14B4

1484
1506*

1490*
1511

1511

1531*

1562

1539*

1540

1562

2590

2591

2593

2595

2597

832*

884*

986*

1086*

1178*

1279_

1323*

1500*

1510

1568
2296
788*
1508
1504*
1546

2305
802"
1510
1510
2125

817*

883*

985*

1085_

1552

1810*

1842*

\865*

740.
13861

7848
140]1

798#

8130

821#

878.

98\#

1388*
1499
715

2399"
15071
1426*

2425.
1427*

1445

1495

1511

2172

2240

2289

2305

1562
744*
1562
2172

1354"

1374*

1505.

1177*

127S.

1353.

1373*

1896*

192'-

195Z*

1972*

10811

11733

1273.

2593

2462
2348.
1497*
2490
2222
1540*
1562
502_
1488*
503*
530
23091
2307#
1510.
2143
710'
1348.
2410*
2380*
1481
652
2512.

1498
2509.
2311
1562
2172
730*
1503*
1488
1503

2172
725.
1368.
24231
2385
1489
698

2414#

2502

24901
1562
2465

1682

1747

1779

2590

2591

259]

2466
2467
1521*
1528*

MACYlI 27(732)

MAINDEC-II·DZTAC-C
TAil MANUAL INTERVENTION TEST
DUACC ,NEil
USER SYMBOLS
CROSS REFERENCE TABLE
SSAVRE" *.**** U
UAVR6 11125411
$SCOPl!: ""6"46
SSETUPa """137
• STUP • 177777
SSVLAD 1186254
ISIIR
1674"0

SSWR~Ka

STIMES

""""00
001166

001146
081144
.. """023

UKB
GTKS

81N

UPS
STPFLG
fTP5
STRAP
$TUP2
nRP

001152
001157
0"1150
012304
012326
000014

STRPAD 1112340
nSTNM 1101102
aTTYIN 0117111
STYPBNo
U
STYPDS:
U
STYPE
010760
STYPEC 911130
STYPEX 011176
STYPOC 1112102
STYPON 012116
STYPOS 1112056
UTSTR 006060
saGEr4: 0011000
"'FILL 012301
S40CATa * ..... ** U
• 013474

-*........
........

II-JUN·76

13.51

PAGE 64

SEa ""76

2468

2483.
490
4691
1463
469 •
1473
It
50"
1085
1454
1492
155"
68
3771
1425"
366#
365.
It

74 ..

827
11771
1372.
3681
372.
367.
494
2445.
24491
7.470.
2439
345.
2282
2461
2461
2119.
2140
2165
23190
2378
23741
14671

2492"

2493*

25IH

49"
1549

492
1557

494
2177

.96
2311

498

499

500

'"2

524

527

1424

62
503
1277
1456
1504
1787
1458
697.
1498
2186
2184
693
784
878
1273
1384
2172
2172
2172

63
697
1322
1457
1587
25"8
1459
714*
1501*

64
714
1352
1458
151"

65
729
1372
1464
1517

66
744
1390
1476
1518

67
788
1407
1478
1519

68
802
1417
1479
1520

377
817
1425
1482
1521

378
831
1437
1483
1534

379
882
1443
1484

1541

499
985
1445
1491
1546

831"
1787*
2263
2255
710
798
888
1318
1401

882*

1277*

1322"

1352"

1372*

139"..

14"7"

788.
882'
12778
1386

1480
729.
1510
2257
2224*
699
796
884
1279
139'"

2261
714#
802'
981
1322'
1403

716
806
985#
1323
14071

725
811
986
1348

129#
813
1081
1352'

734
817#
1085'
1354

738
821
1086
1366

740
825
1173
1368

2459'

2460#

24611

2462

24631

2464

2465#

24661

24671

24681

2469'

1424.
23"0

1453
23041

1480

1502*

1507

1511

1533

1562

2449
2147
2167
2458
23811
2459

2457
2154
2170.

21591

2160

2226

2379.
1543
2271
1510
2589.

2389

2424*

2891
1511

299t
1562

3211
159H

342'
1777.

383
1785.

487
2172

502
2175

503
23041

5381
2305

665.
2311

1445
2486

2491
1462#
489
1526
1502.
II
5"2
1177
1455
1493
1562
69
499*
1491*
2175
2175
11
782

8311
1178
1374
2161"
2119
2159
243U
2456
245&#
24561
655.
2283

22e3

22""
6971

2460

14371
2375.
1464
223#
1448
2510

FRRORS DETECTED: 0
DEFAULT GLOBALS GENERATED:

*TACC,TACC/SOL/CRFISYMBOZTACC,NEW

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC.NEW
CROSS REFERENCE TABLE •• USER SYMBOLS
RUN-TIME I 44 2q 2 SECONDS
RUN.TIME RATIO. 171177.2.2
CORE USED I 2SK (49 PAGES)

MACYlI 27(732)

II-JUN-16

13151

PAGE 65

SEQ 0077