PDF Printing 600 Dpi MAINDEC 11 DZTAC C D TA11 Manual Intervention Jul76

MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-_Jul76 MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-_Jul76

User Manual: manual pdf -FilePursuit

Open the PDF directly: View PDF .
Page Count: 45

Download
Open PDF In Browser	View PDF

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

1~73,

1916, DIGITAL EQUIPMENT CORPORATION

CONT~NTS

1.

ABSTRACT

2.

REQUIREMENTS
2.1
EQUIPMENT
2.2
STORAGE
2.3
PRELIMINARY PROGRAMS

3.

LOADING PROCEDURE

4.

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

5.

OPERATING PROCEDURE
5.1
OPERATIONAL SWITCH SETTINGS
5.2
SUBROUTINE ABSTRACTS

6.

ERRORS

7.

RESTRICTIONS

8.

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

9.

PROGRAM DESCRIPTION

1.

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

2.

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

3.

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

4.

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
DRIVE(S)? A,B
DRIVE(S)? AS
DRIVE(S)? S,A
DRIVE(S)? B

EXAMPL~S

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~~

5.

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  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=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"  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 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.

,

.

7.

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.

8.

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"

9.

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

I

•

,

)

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

6

,"

7

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

8

,.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****** -**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

25

2"

1ACS R(:;G151'ER DESCRIPTION

27
28
29

30
31
32
33
34
35
36
37
38
39

NAME

15

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

09

43

08
07
06
05

44

04

45

03
02
01

40

41
42

46

47
4B
49

50
51
52
53

54
55
56

00

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

51

'J~*.~.*

58

,","

,SBTTL

59
60
6t

64
65

15
\4
13

",,-""

6b

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

;*
"

63

• SBTTL

7J

82
83
84
85

1I

10
9
S

7

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

***

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

000000
000001

R0=

%0

Pi:

%1

93

00O"O2

R2=

%2

94

00000l
000004

Rl:
P4=
R5:
R6=
R7=

%3
%4
%5
%6
%7

::GENERAL REGISTER

95
96

"STACK POINTER
, ,PROGRAM COUNTER

B8

8"
9"

91

97
98

~.GENERAL

000005
000006
000007

PURPOSE REGISTER DEFINITIONS

99

,EQUrV

R6,SP

100

.Faun

R7,PC

10t
102
10l
104
105
106

107
108
109
110

lit
112

000000
000040
000100
000140
000200
000240
000300
000340

.~**

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

92

86

l1P,0

,'B~SIC

177774
177772
177570
177570

87

PAGE 2

ERROR
TEST
ERROR TYPEOliTS
ITERATIONS
ERROR

1*INITIAL ADDRESS OF THE STACK POINTER

77
78
79

\3'51

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

7.

n

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

"

62

INIT
STATE

BIT

"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)

I

,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
,=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
IIPOINTS
"POINTS
IIPOINTS

TO
TO
TO
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 /MAINOEC-II-DZTAC-C/
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

r

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

r

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~

.H
649
049
650
651
652
65l
654

655
656
bS7
658
659
660
661
662
663

664
665

an

0U777

001230

171004

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

669

002340

670

002342
002344
002350

673
674
675

~02302

112167
104401
104401
105711
001002
012701

176704
001234

010137

001230
001232

677
678
679
680

00240"

684
685

686
1,87

TAil

006732

Ul

002400

005731

001406
010314

002410
002414

1127\4
03271 4

00242"

001775

~ANUAL

TYPE
BR

001224

000176

1$.

176544

SHE

000042

000017
000040

BEU
MOV
MOVS
BIT
BEQ

3$,

VECTOR
INT

,IF FIRST PASS SETUP FOR EXTRA

1$

,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

IS

#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

.*.

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
<12>"DIRECTIONS WILL BE TYPED ON THE TTY~

TYPE

,67$

BR

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

1$

'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************************ •• **** ••• ***.******* ••• *.****** ••• **

695
696

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

694

724

I snup 'All TPAP
,LOCKOUT UL 110

nlVEe."

GTSW?

693

709
710
711

UTAVEC+2 :nAV~C

.340, P'u

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

692

706
701
708

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

0011 77

688
689
690
691

700

eLR
MOV
CMPB
BEQ
HOV

104405

""2404
002406

OZTACC.NEW

PAGE 17

13151

64$1

~05737

683

TST
aNE
MOV
eLA

000400

104401
000411

002007
005000
000000
022767
001001

681
682

II-JUN-"

TDRV,

002354

76

MOV

0014~2

002360
002362
002364
002366
002374
002376

I,

CLA
MOV

n65S:

002334

MOV

MOV

002274
~02214

UMTI

001~01

012703

Mlenl 27(732)

REGIOT~~

001206
001212
MI100

~02230

002214
001240

668

672

MI1NDEC-II·OZTAC·C

FOR SOFTWARE GWITCH

~~2212

1,67

671

VALU~

002216
00n24

002?04

002324
002324
002330

66D

ItGI

INr~"VENIIDN

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.

o

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

SEQ 0034

PAGE 21

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"
66$1

000377

000020
000001
000014

000377

000020

000001
003462
003772
007436
005716

000017

020000

000~00

010000

1127\4
032714
001001
104001

000002
010000

112714

0P01104

175534
175446
175522

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)

032714
001401
104001

010000

112714
032714
001401
104001

000006
010000

112714
032714
00\401
104001

000010
010000

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

SEQ 0035

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

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

I

"e"

=

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

000006

000010

000012

7511

7681

=
=

.

'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

69$ I

70$1

71$'

=

II-JUN-76

13.51

; "EFIROR" NOT

=

0

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

I

: "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

MOVB
BIT
BNE
ERROR

#WRlTE,nACS
'WRTLOCK, nAC5

\

SEg 0037

PAGE 24

MOVB
TST
SPL
ERROR

72$1

...

=

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)

=

=

0

"

"I"

I

: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

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

74e,

7S$I
BEQ

ERROR
76$.

77$1

I

\

'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

I

'.

"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

0<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

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$

5$

;LOOP

I

,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

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

.. READY:
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
*,,\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
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

if flo -iii-

'* '* '* *

,*,'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

;"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

13,51

II-JUN-'6

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

1$

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
II GO TYPE--OCTAL
;"TADB:;"
II SAVE TADBL FOR
: ,GO TYPE--OCTAL

TYPEOUT
ASCII(ALL DIGITS)
TYPEOUT
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

7.

,IT WAS
,TYPE ","

TYPE

,SOVES

BR

18

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$

BR

4S

5$.

TYPE
BR

3$'
TYPE
8R

001166

001177

4$

Rl,.Ii'N

35

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

: 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"

,67.
66$

*

(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

RDSUS:

001100
001206
001212
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,

_.*****.-.*.-•• _.*._ .•..**.*.**.-.-•. *._.• **** •• ****
~ONO'

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

SR

1$

,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

IS

PAGE 42

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

1885

1892
1893

.LEADER, nACS

13,51

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

,,

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
,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
,START AT 244
:THIS ROUTINE
,SPACE Fa WARD
:WRITE A FILE
,(SIGNAL MONO

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

FILE GAP FROM 'BOT' TO "EaT"

CAN BE USED AFTER 'WRITE FILE GAP" FOR LOW SPEED
(TAPE BLANK MONO CAN BE ADJUSTED), OR AFTER READ OR
GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD
CAN BE CHECKED).

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

2.

'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

PC

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

U:

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

&0S:

06271.
000002

000002

38:

12271.
001430
122716
00100.

000011

4& ,

011064
011070
011012

105366
002770
004761
105367

000032
000072

2154
2155
2156
2157

~11122

12116
004767
132767
331372

~11124

005726

011114

j

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

6$

000040

000014
000007

81:
9S:

000052

#

JSR
BITH

PC. $TYPEC

8NE

9$
(SP,.

TST

, (SP)

000002

170006

000015

000002

BR

2$

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

~

~7.SCHARCNT

MAINDEC·ll-DZTAC~C

001001

105367
000406
122166
001402
105227

Move

@eTPS

IS

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

PC

TTY INPUT ROUTINE
~*

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

LSB
~

*.

AND wILL
;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

2.

6S,

,58TTL

2193

2199
2200

If NOT 

nPO?  EOUIV
11TYPE A CR AND LF

PC, STYPEC
HILLC, (SP»

SR

J :BRANCH

(SF)+

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

2194

2198

2, (SF)

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

JSR

7$,

M0001

INTERVENTION TEST
TYPE ROUTINE

2159
2162

(SPH·,R~

$

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 ,4(SP)
4(SP),123
38
@$TKS
2S
@eTKB,-CSP)
'"CI77'(SP)
CSP)."21
2.
U
4CSP)dI40
4S

2285

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

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

2308

2309

011743

2310
2311
2112
2313

011750

2306
2307

\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

136

0~6507

\l05015
1120075
040
036440

853523

,BYTE
,BYTE

113,-(SP)
UTTYlN,R3
UTTYlN+8 •• R3

PAGE 50

nSAVE P3

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

4S
(SP).,(II])

1177'(Rl)

3.

,aQUES
IS
(U),9$

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

"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

,SLF

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

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

000

047940

NEW

000040

=I

=I

fl*·-**·_·*·_**····*·-··_·_·***·-·**--**-***···*_·**·-*._*.-.***I*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
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

1l.51

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

4$

#40,4 (SP)

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

2315
2316
23\7
2318
2319

2323

HSP)"175

II-JUN.7.

000
000012
020122

2314

2321

MACYI! 27(732)

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

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

2304
2305

CMP
BGT
BiC
IITI

; 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

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

2275

2276
2277
2278
2279
2280
2281
2282
2281
2284

SEQ Bin

"IS IT A ?
"BRANCH IF NO
II YES, IS IT THE FIRST CHAR?
IIBRANCH IF YES
IISAVE NEW StiR
IICLEAR UP STACK
IIECHO  AND 
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 ?
IISIMULATE CONTROL-U

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

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

PAGE 49

I

2254
2255

2266

13151

,4

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

II

,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

78

1177770,R3

4S

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

I

R3

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

e

l

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:

012326
010760
012102
012056
012116

.WORO
$TYPE
STYPOC
STYPOS
STYPON

$TRAP2

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

r ,CALL=TYPE

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

'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/
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

f

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

un

636

618

001224
001210
177570
013340
013346
01U70
013176
011156
000030
013061
011111"
013402
0114l!
1113126
013167
1111212
100000
11011004
010654
007116
0041100
000016
011,,002
11110004
000010

GO

00"""1

GTSWFI

******

= 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
481#

474

477

479

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

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

470.
646508

5116
617
16841
1089

501*
622

416

612
657

1113
1108

1153
1148

12\3

1288

1253
1248

1974

1533-

MACYlI 27(712)

TAil MANUAL INTERVENTION TEST
MAlNDEC-II·DZTAC-C
OUACC ,NEW
CROSS REFERENCE TABLE •• USER SYM80LS
DRVKEY
DRVPNT
DSNR •
DTI
DT2
0T201
OT2112
DTS
EMTVEC.
EMI
EM2
EM2111
EM202
EM3
EM4
EMS
ERROR
ERRVEC=
EXAM
EXIT
FGAP
FUNCTI=
FUNCII
FUNCI
FUNC2 :
GN5

1I-"UN-76

625
672-

646
2061

II-JUN-7S

11.51

PAGE 59

671
2069-

1661·

1666

1680

1469

1470"

1472-

1475*

SEQ 0071

1684

2067

259\1

493-

5180
2080.

574-

580*

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*

719
2468
325
837
1288
13811
1974
2002
538#

723
2469
128
845
1293
1397
2019
2008

1776

1784

2457

2458

2459

2460

2462

2464

685
856
1305
14111
2017
2462.

7112
865
1308
1813

7114
869
1326
1816

745
892
1328
1845

750
989
1115
1868

755
991
1137
1899

7611
1181
1119
1902

765
1183
1141
1927

876

995

1185

1286

1312

\3]0

1341

1346

21127

2048

1365

1383

1818

1849

1872

1904

1907

1931

1915

1960

1603

1624.

1631

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

711a.

709*

MACYlI 27(732)

TAil MANUAL INTERVENTION TEST
MAINDEC-II-DZTAC-C
DZTACC,NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
MSGPRI
MSGVEC
MTACS
MTADS
MTAPE
MTAPRI
MTAVEC
MTUPWR
MWRTLK
MYES
NEXT
NOTA
NOTB
NOTLGL
NXTDRV
OrYLIN=
OK
PATTRN
PIRQ •
PIRQVE=
PR0
•
PRI
=
PR2
=
PR3
PR4
PR5
=
PR6
PR7
PS
=
PSW
=
PWR5T
PWRVEC=
RDBLK
RDCHR :
RDLIN
RDOCT
RDSUB
READ

012606
012576
012620
012626
013000
012646
012635
012674
013021
012667
007116
007074
007106
007130
010610
001000
002164
010464
177772
000240
000000
000040
000100
000140
000200
000240
000300
000340
177776
177716
002172
000024
010530
104407
104410
104411
007756
000004

READY

~00040

RESVEC= 000010
REWIND: 000016
RGPSLK
SAVPC
SAVPS
SETSUr
SFSG
5FFG
SFFGSB
STACK.
START
STKLMT_
SWR

010140
001202
001204
010352
1100014
000012
11111234
001100
002204
177774
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*

swe

SW00
SW01
SW02
SW03
SW04
SW05
SW06
SW07
SW08
SW09
SWI
SWI0
SHII
SWI2
SWI3
SWI4
SWI5
5W2
SW3
SW4
SW5
8W6
SW7
SW8
SW9
TAeSH
TACSL

=
-

=

=
=

=
=
•
•

=
=

·=
=
=
=

•

TADBH
TADBL
TAPRIO
TAVEC
TSITVE.
TDRV
TIMERR=
TKVEC _
TPVEC
TRAPVE=
TRTVEC_
TR.REQ:
TSTI
TSTI0
TSTII
TSTI2
T5T13
T5T14
T5TI5
TSTI6
T8TI7
TST2
T5T20
T5T21

=

000176
000001
000001
000002
0001104
000010
000020
000040
0011100
000200
000400
001000
000002
002000
1104000
010000
020000
1140000
1110000
1100004
0000\0
000020
000040
000100
000200
000400
001000
001210
001206

001214
001212
001222
001216
000014
002274
002000
000060
000064
000034
000014
000200
002422
003224
003422
003772
004332
004644
005206
005362
005500
002502
'005564
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

13151

PAGE 60

SEQ 0072

16781
1682'
1866
795

1685
1897
899

1925
810

2012'

2025

2036

1953
824

20588
1089

1400

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

486

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
677

1464

1478

14B0

2465.
24671
1873
911
1339
326
2085

508*

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

SWREG

II-JUN-76

510

516*

MACYlI 27(732)

530

II-JUN-76

13.51

SEQ 0073

PAGE 61
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

2000

2006

2182

2195

1702*
576

1703*
650

1699*

1702

1729

1807

1839

1705.
651
1727.

1706*
1701*
1738
647·

1732

1808

1840

1863

1713·

1715.

1735

1534
2182
516

1486

138
137
136
135
134
133
132
131
130
129
1787

473

1705
648<>

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
TYPOC
TYPON =
TYPOS =
UNIT •
WAlTRE=

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

1106512
104402
11l44B4
1(440)
000400
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

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

140"

MACYlI 27(732)

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

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

34H

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

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

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

2164*

2169.

492

1544

1436
589

I44U
639

1434
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

49B

499

50"

1562

1566

1577

1582

1586

1763

1788

2137

2172

2221

143U

1557

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

484
3771
3771

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

l1-JUN-76

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

986*

1086*

1178*

1279_

1323*

817*

883*

985*

1085_

1810*

1842*

\865*

8130

821#

878.

98\#

1562
744*
1562
2172

832*

884*

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

1500*

1510

1568
2296
788*
1508
1504*
1546

2305
802"
1510
1510
2125

740.
13861

7848
140]1

798#

1388*
1499
715

2399"
15071
1426*

2425.
1427*

1445

1495

1511

2172

2240

2289

2305

2414#

2502

24901
1562
2465

1682

1747

1779

2590

2591

259]

2466
2467
1521*
1528*

1552

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
nSTNM
aTTYIN
STYPBNo
STYPDS:
STYPE
STYPEC
STYPEX
STYPOC
STYPON
STYPOS
UTSTR
saGEr4:
"'FILL
S40CATa
•

1112340
1101102
0117111

.

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

010760
911130
011176
1112102
012116
1112056
006060
0011000
012301

* ..... **

013474

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

U
U

II-JUN·76

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
U

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

,.

Source Exif Data:

File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Format                          : application/pdf
Creator                         : anonymous
Title                           : PDF printing 600 dpi
Create Date                     : 2006:12:07 10:51Z
Creator Tool                    : Oce-Technologies
Modify Date                     : 2013:11:26 13:56:08-08:00
Metadata Date                   : 2013:11:26 13:56:08-08:00
Oce Identification Number String: 4573
Oce Image Tag Orientation       : 1
Oce Scan Application Selector String: Scanjob
Oce Scan Compression            : 8
Oce Scan Host Computer          : PR343
Oce Scan Image Logic            : 1
Oce Scan Job Description        : PDF printing 600 dpi
Oce Scan Model                  : 235000119
Oce Scan Resolution             : 600
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Document ID                     : uuid:9ad1b5b0-5b09-455f-ac04-96a753f2f4ad
Instance ID                     : uuid:502e6ae0-29ed-4491-92c9-254cca06fb32
Page Count                      : 45
Author                          : anonymous

EXIF Metadata provided by EXIF.tools

PDF Printing 600 Dpi MAINDEC 11 DZTAC C D TA11 Manual Intervention Jul76

MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-_Jul76 MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-_Jul76

MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-_Jul76 MAINDEC-11-DZTAC-C-D_TA11-Manual-Intervention-_Jul76

Navigation menu

Versions of this User Manual:

Views

Navigation