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

I

1

PRODUCT

eODEs

PRODUCT

NAME.

PRODUCT

DATEB

MAINTAINER.

MAINDEC~ll~DZTAe~e~D

TAll

MANUAL

INTERVENTION

TEST

JUlV,lQ7~

DIAGNOSTIC

fNGINEERING

THE

INFORMATION

IN

THIS

DOCUMENT

IS

SU8JECT

TO

CHANG!

WITHOUT

NOTIce

AND

SHOULD

NOT

BE

CONSTRUED

AS

A

COMMITMENT

BV

DIGITAL

EQUIPMENT

CORPORATION.

DIGITAL

EQUIPMENT

CORPORATION

ASSUMES

NO

~fIPONSI8rLITV

FOR

ANY

ERRORS

THAT

MAV

APPEAR

IN

THIS

MANUAL,

THE

SOFTWARE

DESCRI8ED

IN

THIs

DOCUMENT

IS

FURNISHED

TO

THE

PURCHASER

UNDER

A

LICENSE

FOR

USE

ON

A

SINGLE

COMPUTER

SYSTEM

AND

CAN

BE

COPIED

(WITH

INCLUSION

OF

DIGITAL!

COPyRIGHT

NOTICE)

ONLY

FOR

USE

IN

suc~

SYSTEM,

!KCEPT

AS

MAV

OTHERWISE

BE

PROVIDED

IN

WRITING

ev

DIGITAL.

DIGITAL

EQUIPMENT

CORPORATION

ASSUMES

NO

RESPONSIBILITV

FOR

THE

USE

OR

RELIABILITY

OF

ITs

SOFTWARE

ON

EQUIPMENT

THAT

IS

NOT

SUPPLIED

av

DIGITAL.

COPVRIGHT

(C)

1~73,

1916,

DIGITAL

EQUIPMENT

CORPORATION

CONT~NTS

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

PDP~11

COMPUTER

WITH

OR

WITHOUT

HARDWARE

SWITCH

REGISTER

wITH

CONSOLE

TELETYPE,

AND

A

TAil

CASSETTE

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

NORMAL

STARTING

ADDRESS

204

SELECT

DHrVE(S)

BEFORE

STAPTING

TEST

210

~ELECT

DRIVE(S)

AND

ADDRESSES

HEfOkE

STARTING

IrST

214

SETUP

FOR

MANUAL

LOOPING

220

WRITE

FILE

GAP

FROM

BOT

TO

EOT

224

WRIT~

CONTINOUS

BLOCKS

OF

DATA

230

READ

CONTINOUS

BLOCKS

OF

DATA

234

~RITE

FIL~

GAP

AND

A

BLOCK

Of

DATA

240

READ

8LOCK

OF

DATA

AND

INTO

A

flL~

GAP

244

SPACE

FWD

FILE

GAP

FHOM

BOT

TO

EOT

250

BACK

SPACE

fILE

GAPS

500

LOAD

SWITCH

REGISTER

INTO

THE

TACS

b00

WRITE

SWITCH

R~GISTER

ON

TAPE

FROM

BOT

TO

~OT

700

PEAD

fROM

Bor

TO

EOT

4.3

PROGRAM.

OPERATOR

ACTION

1.

LOAD

PROGRAM

INTO

M~MORY

(SEE

SECTION

3.)

~.

LOAD

A

WRITE

E~ABLED

CASSETTt

IN

BOTH

DRIVES

3.

REWIND

BOTH

DRIVES

4.

LOAD

ADDRESS

200.

5.

SET

SWITCHES

(SEE

SECTION

5.1)

b.

PRESS

START.

7.

THE

PROGRAM

WILL

TYPt

INSTRUCTIONS

ON

THE

TTt

FOR

THE

OPERATOR

TO

fOLLOW.

AfTER

THE

OPEkATOR

HAS

PERFORMED

THE

REQUIRED

OPERATION

HE

wILL

PRE6S

"CARRIAGg

RETURN"

AND

THt

PROGRAM

WILL

CONTINUK.

***

NOTE:

IF

USING

THE

SOFTWARE

SWITCH

REGISTF.R

THE

PROGRAM

WILL

TYP~

"SWR=XXXXXX

NEw="

AFTER

TYPING

THE

NAME

OF

THE

PROGRAM.

DRIVE

SELECTION

STARTING

THE

PROGRAM

AT

200

WILL

RESULT

IN

AUTOMATIC

SELECTION

OF

DRIVES

"A"

AND

"8"

TO

BE

TESTED.

NOTE:

If

LOAD

MEDIUM

IS

CASSETTE

wiTH

STANDARD

VECTOR

PROGRAM

WILL

RESPOND

AS

If

STARTED

AT

210.

STAPTING

THE

PROGRAM

AT

204,

210,

OR

214

ALLOWS

THE

OPERATOR

TO

SELECT

THE

DRIVE(S)

TO

BE

T~STED.

THK

PROGRAM

wILL

TYPE

"DRIVE(S)?".

EITHER

OR

BOTH

DRIVES

CAN

BE

SELECTED

B¥

TYPING

"A"

AND/OR

"B"

FOLLOWED

B¥ A

CARPIAGf.

RETURN.

4.3.1.1

DRIVE

SELECTION

EXAMPL~S

DRIVE(S)?

A,B

DRIVE(S)?

AS

DRIVE(S)? S,A

DRIVE(S)? B

ADDRESS

SELECTION

STARTING

THE

PROGRAM

AT

210

OR

214

ALLOWS

T~E

OPERATOR

TO

CHANGE

THE

"CONTROL

AND

STATUS"

AND

"DATA

BUFFEN"

REGISTER

ADDRESSES,

THE

VECTOR

ADDRESS

AND

THE

PRIORITY LEVEL.

THE

PROGRAM

WILL

ASK

FOR

THE

DRIVES

TO

8~

TESTED

AS

PER

4.3.1.

AFTER

THE

DRIVES

HAVE

BEEN

SELECTED

IT

WILL

ASK

FOR:

i.

BUS

ADDRESS

OF

THE

CONTROL

AND

STATUS

REGISTER (TACS)

2.

VECTOR

ADDRESS

3.

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

VECTOR=~~0260

PRIORlrY=0~03~~

OK?

5.

OPERATING

PROCEDURE

5.1

OPERATIONAL

SWITCH

SETTINGS

CONTROL:

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.

THIS

PROGRAM

ALSO

SUPPORTS

THE

DYNAMIC

LOAOING

OF

THE

SOfTWARE

SWITCH

REGISTER

(LOC.

176)

FROM

THE

TTY.

THIS

CAN

BE

ACCOMPLISHED

BY

DOING

THi

fOLLOWING:

t)

TYPE

CONTROL

~

C-G>: THIS

WILL

ALLOW

THE

TTY

TO

ENTIR

DATA

INTO

LOC.

176

AT

SELECTED

POINTS

WITHIN

THE

PROGRAM.

2)

THE

MACHINE

WILL

THEN

TYPE:

SWR=XXXXXXNEW=

(XXXXXX

IS

THE

OCTAL

CONTENTS

Of

THE

SOFTWARE

SWITCH

REGISTER.)

3)

AFTER

THE

"NEW="

HAS

BEEN

TYPED

THEN

THE

OPERATOR

CAN

DO

ONE

OF

THE

FOLLOWING

AT

THE

TTY:

A)

TypE A

NUMBER

TO

BE

LOADED

INTO

LOC.

176

FOLLOWED

BY

A CCR>.

(ONLY

NUMBERS

BETWEEN

0-7

WILL

BE

ACCEPTED

AND

ONLy

6

NUMBERS

WILL

BE

ALLOWED)

If

A

<CR>

IS

THE

FIRST

K~Y

DEPRESS~D

THE

SOFTWARE

SWITCH

REGISTER

CONTENTS

WILL

NOT

BE

CHANGED.

B)

IF

A

CONTROL

U c-U>

IS

DEPRESSED

THEN

THE

PROGRAM

WILL

SEND

YOU

SACK

TO

STEP

2.

WITH

Sw<t5:08>=0

THE

PROGRAM

WILL

PRINT

OUT

ON

ERRORS

AND

CONTINUE

IN

TEST.

BELL

WILL

RING

AT

COMPLETION

OF

A PASS.

THE

SWITCH

SETTINGS

ARE;

SW<15>=1

•••

HALT

ON

ERROR

SW<14>=1

•••

LOOP

ON

TEST

SW<13>=1

•••

INHIBIT

ERROR

TYPEOUTS

SWCll>=l

•••

INHIBIT ITERATIONS

SWcl~>=l

•••

RING

BELL

ON

ERROR

SW<10>=0

•••

RING

BELL

ON

PASS

COMPLETE

SW<09>=1

•••

LOOP

O~

ERROR

SWC08>=1

•••

LOOP

ON

TEST

AS

PER

SWC07:00>

SW<07>=1

•••

LOCK

ON

CURRENT

DRIVE

(ONLY

VALID

FOR

STARTING

ADDRESSES

220

THRU

250).

5.2.2

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.

THIS

ROUTINE

SUPPORTS

THE

S/W

SWITCH

REG

FUNCTIONS

TRAPCATCHER

A

".+2"

-

"HALT"

SEQUENCE

IS

REPEATED

FRUM

LOC. 0

TO

LOC.

77&

TO

CATCH

ANY

UNEXPECTED

TRAPS.

THUS.

ANY

UNEXPECTED

TRAPS

WILL

HALT

AT

THE

DEVICE

TRA~

VECTOR

+2.

ERROR

THIS

SUBROUTINE

CALL

(VIA A

EMT

INSTRUCTION)

IS

USED

TO

REPORT

ALL

ERRORS.

(REFER

TO

6.)

*** THIS

ROUTINE

SUPPOPTS

THE

S/W

SWITCH

R~G

FUNCTIONS

***

IF

THE

PROCESSOR

HALTS

(bIT

15=1),

OPERATOR

CAN

RESET

S/W

SWITCH

REGISTER

BY

HITTING A

"CONTROL

G"

<oG>

BEFORE

hITTING

CONTINUE.

A

NUMBER

OF

SUBROUTINFS

ARE

CALLED

BY

TH~

TRAP

INSTRUCTION.

FOLLOWING

[S

THE

CALLS

USED

AND

THE

LABEL

OF

THE

STARTING

ADDRESS

Of THE

SUBROUTINES.

5.2.4.1

TYPE

(STYPE)

ROUTlNE

TO

TYP~

AN

ASCIZ

STR1~G

ON

THE

TTY

THE

ROUTINE

WILL

INSERT

A

NUMAER

Of

NULL

CHARACTERS

AFTER

A

LINE

f~ED.

5.2.4.2

RoeHR

(SRDCHR)

READ

A

SINGLE

ASCII

CHARACTFR

fROM

THE

TTY

5.2.4.3

ROLIN

(SRDLIN)

READ

AN

ASCII

STRING

FROM

THE

IT~

5.2.4.4

WAITREADY

(WArT.ON.READY)

WAIT

ON

THE

"TAll

READ!"

BIT

TO

SET

5.2.4.5

wAITXFER

(WA!T.FOR.XfER.REQ)

wAIT

ON

THE

"TAll

TRANSFER

REQUEST"

BIT

TO

SET

5.2.5

THE

FOLLOWING

SUBROUTINES

ARE

CALLED

BY

A JSR

5.2.5.1

STYPEC

ROUTINE

TO

T~P~

A SINGLE ASCII

CHARACTER

5.2.5.2

TYPERR

THIS

ROUTINE

WILL

TYPE

THE

ERROR

MESSAGES

5.2.5.3

SELDRV

THIS

ROUTIN~

IS

USED

TO

ASK

THE

OP~RATUR

WHAT

DRIVE(S)

ARE

TO

BE

TESTED

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

TH~

"SIGNAL

MONO"

AND

THE

"THRESHOLD

POT"

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

5.2.7.1

5.2.7.2

5.2.7.3

5.2.7.4

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

SETBUF'

SETUP

BLOCK

SIZE

AND

PATTERN

WRTBLK

WRITES

A

BLOCK

Of"

DATA

ROSLI<

READS

A

BLOCK

OF

DATA

NXTDRV

CHANGE

DRIVE

ERRORS

THERE

ARE

A

NUMBER

OF

ERRORS

THAT

CAN

OCCUR

IN

THIS

PROGRAM.

wHEN

AN

ERROR

15

ENCOUNTERED

THE

CALL

TO

THE

ERROR

ROUTINE

IS

MADE

AND

IF

SW<t3>

15

NOT

SET

AN

ERROR

M~SSAGE

PERTAINING

TO

THE

ERRON

WILL

BE

TYPED.

EACH

ERROR

TYPE

OUT

WILL

CONTAIN

THE

FOLLOWING:

1.

AN

ERROR

MESSAGE

2.

A

DATA

HEADER

J.

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

~SPASS".

8.4

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

T~STS

THAT

CHECK

THE

TA11

FOR

PROPE~

OPERATION.

THE

TESTS

CAN

BE

GROUPED

INTO

THE

FOLLOWING

GENERAL

GROUPS.

I.

TEST

"OFFLINE"

WITH

lUGe

POWER

OFF

2.

TEST

"OFFLINE"

WITH

CASSETTE

REMOVED

3.

TEST

"wRITE

LOCK"

CIRCUITRY

TAll

MANUAL

INTERVENTION

TEST

MAINDEC-I1-DZTAC-C

MACY11

27(732)

I1-JUN-7b

13:51

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

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

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

I •

,

)

TAll

MANUAL

INTERVENTION

TEST

MAINDEC-11-DZTAC-C

MACYll

21(732)

l1-JUN-7b

13:51

~DZTACC.NEW

TABLE

OF

CONTENTS

2102

2119

2148

2218

2357

2395

2472

2495

2516

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

TAIl

MkNUAL

INTERVENTION TEST

DZTACC.

NEW

6

7

8

9

10

II

12

I,

14

15

16

17

18

19

20

21

22

23

24

25

2"

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

4B

49

50

51

52

53

54

55

56

MAINDEC-I 1

-DZTAC-C

MACYlI

27(732)

Ii-JUN-76

13,51

PAGE

.TITLE

TAli

MANUAL.

INnRV!;NTlON

TEST

MAINOEC-II-DZTAC-C

"COPYRIGHT

(el

1973,1976

!>DIGITAL

EQUIPMENT

CORP.

;

*MAYNAPD,

MASS~

1~1754

,-

"PROGRAM

6Y

JIM

LACEY

,"

"THIS

PROGRAM

WAS

ASSEMbLIiD USING

THE

PDP-!!

MAlNDEC

SYSMAC

,.PACKAGE

(~AUJD~

...

C"'1\

...

DZQAC"'C1),MAR

24,

1976

9

"

, ,

.jl.***

"HHHH~

**~

...

*

iii

..

oj:;

***

**o!:lo

****iHHHHI',lH"

*

**~

'*

**

*<&

~*.lQ******

<II-

**.\10*

******

: ;

***,*,ofJo*'Jo*

/Vol>-**tt

o!?i;lo**,*4·fjo

'JIo

*~*'**

************** **

**

*

******************

: : **

'*

**

~

it

*~***

l;t*

'*

~1H"*-tlo********

***** **4

**·~**;:HHHI-*·aHHHH.'"

*******

~***

.RlI·l!

GrNERAL !tWORMATION

ABOUT

THE

TAI1ITU60

CAssnn:

ADDRESS

MNeMONIC

DeSCRIPTION

77750"

TACS

777502

TAD~

2b"

l'AVE'C

CONTROL

ANU

STATUS REGLS!!':P

DATA BUFFER REGISTER

INTERRUPT

VECTOR

1ACS R(:;G151'ER

DESCRIPTION

BIT

15

14

13

12

11

10

09

08

07

06

05

04

03

02

01

00

NAME

INIT

STATE

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

READ

AND

lOR

WRITE?

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

TAl!

MANUAL

INTERVENTION TEST

MAINDEC-II-DZTAC-C

MACHI

21(732)

II-JUN-76

\3'51

PAGE

2

DZTACC.

NEW

GENERAL

INFORMATION

51

58

59

60

6 t

62

63

64

65

6b

,,7

68

69

7.

n

72

7J

74

001100

7S

)6

77

78

79

000011

80

000012

81

O00015

82

000200

83

177776

84

85

177774

86

177772

87

177570

B8

177570

8"

9"

91

000000

92

000001

93

00O"O2

94

00000l

95

000004

96

000005

97

000006

98

000007

99

100

10t

102

10l

000000

104

000040

105

000100

106

000140

107

000200

108

000240

109

000300

110

000340

lit

112

'J~*.~.*

•••

*

••

**.* ••

**

•••••••••••••••

* ••••••• *

••••••

**

•••••••••••

,SBTTL

OPERATIONAL SWITCH

SETTINGS

,"

SWITCH

USE

"

........

"'

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

"'''''

...

"

15

HALT

ON

ERROR

;*

\4

LOOP

ON

TEST

"

13

INHIBIT

ERROR

TYPEOliTS

,-

1I

INHIBIT

ITERATIONS

"

10

BELL

ON

ERROR

" 9

LOOP

D~

~RROR

,-

S

LOOP

ON

TEST

IN

SWR<1:0>

" 7

LOCK

ON

CURRENT DRIVE (ONLY

nLID

WITH

MANUAL

::*.*

••••••••••••••••

*

••••

*

••

**

•••••••••••••••

**

•••••••••••

***

•••

• SBTTL BASIC

DEFINITIONS

1*INITIAL

ADDRESS

OF

THE STACK

POINTER

***

l1P,0

.~**

STACK: 11

0@

.EQUIV

EMT,EPROR

,'B~SIC

DEFINITION

Of

ERROR

CALL

.EQUIV

IOT,SCOPE

::BASIC

DEFINITION

0,

SCOPE CALL

pM

ISCELLANF.OUS

HT.

! 1

LF=

12

CP=

15

CPLF=

200

PS=

177776

..

EQUIV

ps,PSW

STKLMT=

177774

PIpa:

177772

OSWR=

177570

DOISP:

171570

DEFINITIONS

: ,CODE

FOR

HORIZONTAL

TAB

"CODE

FOR

LINE

FEED

"CODE

FOR

CARRIAGE

RETURN

"CODE

FOR

CARRIAGE RETURN-LINE FEED

"PROCESSOR

STATUS

WORD

"STACK

LIMIT

REGISTER

"PROGRAM INTERRUPT REQUEST REGISTER

"HARDWARE SWITCH REGISTER

"HARDWARE DISPLAY REGISTER

~.GENERAL

PURPOSE

REGISTER

DEFINITIONS

"GENERAL

REGISTER

"GENERAL

REGISTER

"GENERAL

REGISTER

::GENERAL

REGISTER

"GENERAL

REGISTER

"GENERAL

REGISTER

: ,GENERA.L

FEGISTER

;;GENERAL

REGISTER

"STACK

POINTER

R0=

%0

Pi:

%1

R2=

%2

Rl:

%3

P4=

%4

R5:

%5

R6=

%6

R7=

%7

,EQUrV

R6,SP

.Faun

R7,PC

,>PRIORITY

LEVEL

PRe= 0

PR

I =

40

PR2=

100

PR3'

140

PR4=

200

PHS.

240

RRb=

300

PH7:

340

, ,PROGRAM COUNTER

DEFINITIONS

: I

PRIORITY

LEVEL

"PRIORITY

LEVEL

"PRIORITY

LEVEL

,'PRIORITY

LEVEL

"PRIORIH

LEVEL

"PRIORITY

LEVEL

II

PRIORITY

LEVEL

"

PRIORITY

LEVEL

,'"SWITCH

REGISTER"

SWITCH

DEFINITIONS

soa

0014

SEQ

0015

LOOPING)

TAli

MANUAL

INftRVENTION

TEST

MAIND£C-II-DZTAc-C

DZTACC,NEW

BASIC

DEFINITIONS

100000

040000

020000

010000

0114000

002000

001000

0011400

111111200

0011100

0011040

001102~

1100010

000004

000002

000001

100000

040000

0200011

010000

004000

00200"

00100"

000400

000200

000100

000,,40

0~0020

000010

0000~4

000002

000001

51115.

511\4'

51113=

51112.

5WI1'

51110=

51109=

SW09:

51107.

SWe6=

5W05=

SW0i4=

5w03'

5W02'

51101-

SW00.:

,F-QUIV

,EQUIV

I*DATA

BIT1S.

BITI4'

BITU'

BITI2.

BIT\I·

BiTli/.

BIT09=

BIT08=

BIT07.

BIT06=

BIT"S'

81T04.

BIT03.

BIT02=

BITIII=

BITII0=

.EQUIV

.EQOIV

.lQUIV

,EQUIV

.lQUIV

.EQUIV

.t:QUIV

.EQUIV

,t:QUIV

100000

40000

211000

10000

4000

2000

1000

400

200

100

40

20

10

4

2

I

SW09,SII9

SW08,SW8

SW07,SW7

51106,5116

5W0S,5WS

8Wll4,SII4

51103,5113

5W02,SII2

51101,5111

SII0W,

5110

BIT DEFINITIONS

1110000

401100

2"0""

111000

41100

20110

1000

400

2110

1"0

4~

20

I~

4

2

I

8ITII9,BIT9

BIT08,BIT8

8IT07,BIT7

RIT0b,BIT6

BITliS, BITS

BIT04,BIT4

BITe3.BIT3

BITII2,BIT2

BIT01,8ITI

BITII0,

BIT~

MACYll

27(732)

ll-JUN-76

13151

PAGE

3

(BIT00

TO

BIT1S)

113

114

115

116

117

118

119

120

121

122

121

124

125

126

127

128

129

130

III

132

133

134

IlS

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

\54

ISS

156

157

158

IS9

16~

161

162

163

164

IbS

166

167

Ib8

,"BASIC

·CPU·

TRAP

VECTOR

ADDRESSES

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

I\-JUN-76

13.51

PAGE

4

DZT~CC.NEW

BASIC

DEFINITIONS

169

000004

EPRVEC=

4

'ITIME

OUT

AND

OTHER

ERRORS

170

0~0010

RESVEC. 10 I,RESERVED

AND

ILLEGAL

INSTRUCTIONS

171

0000\4

TBITVEC=14

,,"T"

BIT

172

000014

TRTVEC. 14 "TRACE

TRAP

173

000014

BPTVEC=

14 I,BREAKPOINT

TRAP

(BPT)

174

000020

IOTVEC=

20 "INPUT/OUTPUT

TRAP

(lOT)

••

SCOPE,lul-

17S

000024

PWRVEC=

24 "POWER FAIL

176

000030

EMTVEC=

30

I,EMULATOR

TRAP

(EMT)

**ERROR**

177

000034

TRAPVEC.34

,:"'TRAP"

TRAP

178

000060

TKVEC.

60

"TTY

KEYBOARD

VECTOR

179

000064

TPVEC=

64

"TTY

PRINTER

VECTOR

180

000240

PIRQVEC=240

I,PROGRAM

INTERRUPT

REQUEST

VECTOR

SEQ

0016

SEQ

0017

)

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

ll-JUN-76

13:51

PAGE

5

SEQ

0018

DZTACC.NEW

TAil

DEFINITIONS

IB

1

IB2

183

IB4

IB5

!Y6

I

B7

\8B

IB9

19~

191

192

193

!

94

195

196

197

19B

199

200

201

202

203

2M

205

206

207

20q

209

210

211

212

213

214

215

216

2\

7

21B

219

220

000000

000002

000004

000006

000010

000012

000014

000016

100000

040000

02000"

01000"

00400l

002000

00100"

01604~0

00020"

00010\,1

':HH:i~40

000020

000010

000004

000002

000001

000016

000003

000004

000005

,TAil

FUNCTIONS

WFG= 0

WFITE=

2

FEAD=

4

BSFG=

6

BSBG=

I"

SFFG=

12

SFBG=

14

REWIND=

16

,TAil

BIT

ASSIGNMENT

ERROR=

BITI5

CRCERR=

BITI4

LEADER=

BITI3

WRTLOCK=BITI2

FGAP=

8ITII

TIMERR=

BITlO

OFFLINE=BIT"9

UNIT=

BITOB

TF.REQ=

BIT07

tNT.EN= BIT06

READY=

BIT05

!LBS=

BIT04

FUNC2=

BIT03

FUNCI=

BIT02

fUNC.=

BIT"I

GO=

BIT00

rUNeT

ION;

FUNC2+FUNC 1

+FHNC~

,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

:1//1111/1/1/1/1/111/11111/////////11111/1////1//1111//1/11111/11/11111

,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

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

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

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

TAll

MANUAL

INTERVENTION TEST

MAINDEC-Il-OZTAC-C

MACYlI

27(732)

ll-JUN-76

13:51

PAGE 6

SEQ

~019

DZTICC.NEW

TRAP

CATCHER

221

222

223

000000

224

225

226

227

000174

22B

000174

00000""

229

000176

"'00~00

230

211

0~0200

000137 001326

232

000204

0"0137

0013M~

2Jl

000210 000137

0"

1366

234

000214

000137

00173"

235

000220 000137

"07604

23b

000214

000137

00767.

237

000230 000137 007756

HB

000234

000137 010036

239

000240

000137

01014"

240

000244 000137 010234

241

000250 000137

"10320

.5B1TL

TRAP

CATCHER

.=0

:*A.LL

UNUSED

LOCATIONS

F'RO~

4

..

776

CONTAIN A

".+2,HALT"

,*SEQUENCE

TO

CATCH

ILLEGAL

TRAPS

AND

INTERRUPTS

,<LOCATION

0

CONTAINS

0

TO

CATCH

IMPROPERLY

LOADED

VECTORS

.=174

DISPREG:

.WORD 0

SWREG:

..

WORD 0

.S8TTL

STARTING

ADDRESS(ES)

J~P

@#BEGINl

JMP

@.BEGIN2

JMp

@.BEGIN3

JMP

@'BEGINX

JMP

@'WFGSUB

JMP

@#WRTSUB

,IMp

@IRDSUB

JMP

@.WGPBLK

JMP

••

RGPBLK

JMP

••

SFFGSB

JMP

@.BSFGSB

"SOFTWARE

DISPLAY

REGISTER

"SOFTWARE

SWITCH

REGISTER

:

,JUMP

TO

STARTING

ADDRESS

OF PROGRAM

,SELECT

DRIVE(S)

BEFORE

STARTING

TEST

,SELECT

DRIVE(S)

AND

ADDRESSES

BEFORE

TESTING

,SETUP

FOR MANUAL

LOOPING

,WRITE

FILE

GAP FROM

BOT

TO

EDT

,WRITE

CONTINUOUS

Bt.OCKS

OF

DATA

,READ

CONTINUOUS

BLOCKS

OF

DATA

,WRITE

FILE

GAP

AND

A BLOCK

OF

DATA

,READ

BLOCK OF DATA

AND

INTO

A

FILE

GAP

,SPACE

FWD

FILE

GAP FROM BOT

TO

EDT

,BACK

SPACE

FILE

GAPS

TAli

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-e

MACYII

27(732)

II-JUN-76

13151

PAGE

7

DZTACC.NEW

TOGGLE

IN

ROUTINES

242

2U

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

269

2b1

2&2

2U

264

265

266

2b7

2bO

2bq

270

211

272

273

274

275

276

277

278

279

280

281

282

28l

284

285

28&

287

288

289

000500

290

291

000500

017714

000434

292

~00504

0~0775

293

294

I1111111111111111111111111111111111111111111111111111111111111111111111

,1111111111111111111111111111111111111111111111111111111111111111111111

,THE

FOLLOWING

ROUTINES

CAN

BE

TOGGLED

IN.

11111111111111111111111111

111111111111111111111111111111111111111111111

.REM

THE

FOLLOWING

ROUTINES

ILOOPI,

LOOP2, & LOOP!)

CAN

BE

TOGGLED

IN

WHEN

IT

IS

IMPOSSIBLE

TO

LOAD

THE

DIAGNOSTICS

NOTEI

BEFORE

USING

THESE

ROUTINES

INSURE

THAT

R3,~4,&

RS

A~E

SETUP

PROPERLY.

**

NOTEI

IF

USING

SOfTWARE

SWITCH

REGISTER

THE

LOCATION

aKR

(=1140)

MUST

CONTAIN

ADDRESS

'SWREC"

1=176).

*~

PLACE

VALUE

INTO 176 ***

**

~EGISTERS

3,

4,

AND

5

**

MUST

BE

SETUP

VIA

MOVE

INSTRUCTIONS

**

R3-

0

IF

USING

DRIVE

A

400

IF

USING

DRIVE

8

R4= TAil

STATUS

REG

ADDRESS

(fACS

177500)

RS=

TAil

DATA

8UFFER

ADDRESS

(TADB

177502)

LOOPI

WILL

LOAD

THE

SWITCH

REGISTER

INTO

THE

TACS.

LOOP2

WILL

WRITE

THE

CONTENTS

OF

THE

SWITCH

REGISTER

ALL

THE

WAY

TO

END-OF-TAPEIEOT).

LOOP3

WILL

READ

TO

EDT.

DATA

WILL

GO

TO

R0,

NOTEI

LOOP2

AND

LOOP3

WILL

REWIND

WHEN

EOT

IS

REACHED

AND

THEN

STAU OVER.

,LOAD

SWITCH

REGISTER

INTO

THE

TAes

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

.=500

LOOPII

MOV

SR

~LOAD

TACS

,LOOP

TAil

MANUAL

INTERVENTION

TEST MAINDEC-II-DZTAC-C

MACYII

27(732)

ll-JUN-76

13151

PAGE

8

DZTACC.N£W

WRITE

SWITCH

REGISTER

ON

TAPE

fROM

BOT

TO

EDT

295

296

297

298

299

300

301

000600

302

P00b02

303

000604

304

00061~

305 01"'614

306

00061&

307

000622

308

000624

309

000626

310

000632

311

0006]4

312

""0640

313

000642

314

315

316

1I7

318

319

320

321

322

323

000700

324

000702

325

000704

326

000710

327

600714

328

000716

329

1/100722

330

000724

331 11110126

332

1100730

331

80"132

334

1100736

335

,,"0740

000600

000005

010314

112714 000017

032714

000040

901775

112714

000003

105714

100003

017715

0016306

0119773

032714

000040

0~1357

8007&7

""0005

1110314

112714

000017

832714

000040

11111775

112714

"""0"5

185714

11100112

1111511"

0"0774

"32714

000"40

""1360

1100770

,WRITE

SWITCH

REGISTER

ON

TAPE

FROM

BOT

TO

EDT

,,_._.*-

•••

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

.....

----

..

-._.*

.......

* •• *

••

*******.

.=6011

LOOP21

RESET

HOV

MOVS

IS,

8IT

BEQ

MOVS

2S1

T5TB

BPL

HOV

BR

3$'

BIT

8NE

SR

DRIVE,nACS

IREWINDIGO,nACS

.READY,

nACS

IS

'WRITE!

GO.@TACS

nACS

3$

PSWR.~TADB

2S

.READY.nACS

LOOP2

2S

,CLEAR

ALL

FLAGS

~SELECT

DRIVE

~CO

TO

80T

,WAIT

TILL

READY

COMES

UP

~

START

A

WRITE

,CHECK

FOR

TRANSFER

REQUEST

,BR

IF

NOT

SET

,SEND

DATA

TO

TAil

,LOOP

~DID

READY

SET?

,START

OVER

IF

YES

~LOOP

J :

.*************.***

••••

***** .... ******************.*****

•••

**

.......

**

IREAD

FROM

BOT

TO

EDT

:,

••••

*.*.***************************

••

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

•••

-*.-

.=700

LOOP31

RESET

MOV

Hove

1$:

BIT

BEQ

MOVB

2S'

T5T8

8PL

MOV

SR

3$,

BIT

BNE

OR

DUVE,nACS

UREWINDIGO,nACS

tREADY.PiACS

IS

IRUDIGO,.TACS

@TACS

3$

nADB,R0

2.

.READY,@TACS

LOOP)

2$

CLEAR

ALl,

FLAGS

SELECT

DRIVE

START A

REWIND

WAlT

ON

REWIND

TO

FINISH

START

A

READ

CHECK

TRANSFER

REQ

BR

IF

NOT

SET

PICKUP

THE

DATA

LOOP

CHECK

READY

STAPT

OVER

LOOP

SEQ

0028

.'

SEQ

~021

)

f

TA1I

MANUAL

INTERVENTION

TEST

OZTAce.NEW

COMMON

TAGS

336

337

338

339

3411

341

342

1111111111

343

110111111

344

0011110

IIIIIIIIIIB

345

111111112

IIIIB

346 001103 000

347 1101104

110110110

349

11111106

0000110

349

001110

"001100

350

1101112

000000

351

1101114

000

352

1101115

001

353 001116 000000

354 091120 0001100

355

0U122

0000"0

356

891124

800800

357

1101126

1108000

359

001130

11110000

359 0011

)2

000000

360

1101134

000

361

0~113S

0~0

362 1101136

8000110

363

001140

117579

364

1101142

117570

365

1111\144

1175b0

366 801146 117562

367

001150

117564

368

1191152

177566

369 001154

1100

370 091155 002

l71

001156 012

H2

001157 900

373

"'~1160

090000

374

375 001162 O00000

376

~01164

0110090

l77

091166

0001109

378

091170

090000

379 001172 177607 0160377

l80

001176

077

391 001177 015

382

001200

099012

193

394 001202 009080

385 001204 000090

396

397

0"12~6

177500

399

1101210

117501

399 001212 177502

390 091214 177503

391

1601216

000260 000262

TAil

~ANUAL

INTERVENTION

TEST

DZTACC.NEW

COMMON

TAGS

392 001222

393 001224

194 091230

395 001232

39&

001234

090300

0001100

000090

001224

000000

1609000

MAINDEC-II-DZTAC-C

MACYI1

27(732)

11-"UN-76

\3151

PAGE

9

,SBTTL

COMMON

TAGS

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

••

***************************************.

,.THIS

TABLE

CONTAINS

VARIOUS

COMMON

STORAGE

LOCATIONS

I*USEO

IN

THE

PROGRAM,

.=111111

$C"TAGI

nSTART

OF

COMMON

TAGS

483 ,

,CLEAP

THE

COMMON

TAGS

(SCHTAG)

AREA

484

0014110

012706 001100

MOV

UCMTAG,R6

frF1RST

LOCATION

TO

BE

CLEARED

485

001404

111I5fil2&

CLR

(P6)+

,

,CLEAR

MEMORY

LOCATION

486

001406 022706

001140

CMP

IJSWR,

R6 nDONE?

487 001412

0111374

BNE

.-6

,:LOOP

BACK

IF

NO

488 001414

012706

001100

MOV

'STACK,SP

"SETUP

THE

STACK

POINTER

489

"INITIALIZF.

A

FEW

VECTORS

490

001420

1112737 006046

0""020

MOV

#SSCOPE,@UOTVEC

"lOT

VECTOR

FOR

SCOPE

ROUTINE

491

001426

012737 000340 001'022

MOV

#340,I!IIOTVEC+2 "LEVEL 7

492

001434

O12737 006320 00fil030

MOV

UERROR,@#EMTVEC

,

,EMT

VECTOR

FOR

ERROR

ROUTINE

493 001442 11127J7

0"0340

0011032

MOV

U40,

UEMTVEC+2

;;LEVEL 7

494

001450

012737

012304

000034

MDV

'$TRAP,~#TRAPVEC

"TNAP

VECTOR

FOR

TRAP

CALLS

495 001456 012737

0110340

0001136

MOV

#340,~'TRAPVEC+2,LEVEL

7

496 001464 012717

012370

00fil024

MDV

UPWRDN,

UPWRVEC

"POWE~

FAILURE

VECTOR

497 1101472 012737

1100340

01lfil026

MOV

'340,

UPWRVEC+2

;

,LEVEL

7

498

001500

016767 1104270 0114260

MOV

SENDCT,SEOPcr

:,sETUP

END-OF-PROG~AM

COUNTE~

499

8111506

005067 177454

CL~

STIMES

"INITIALIZE

NUMBER

OF

ITERATIONS

500

"01512

005067 177452

CLR

SESCAPE

"CLEAR

THE

ESCAPE

ON

ERROR

ADDRESS

501

0111516

112767

"00001

177371

MOVB

.1,SERMAX

"ALLOW

ONE

E~RDR

PER

TEST

502

0111524

012767 001524

177354

MOV

••

,SLPADR

;,INITIALIZE

THE

LOOP

ADDRESS

FOR

SCOPE

5113

001532 0127&7 001532

177350

MOV

#.,S['PERR

"SETUP

THE

ERROP

LOOP

ADDRESS

504

"SIZE

FOR

A

HARDWARE

SWITCH

REGIsTE~.

IF

NOT

FOUND

O~

IT

IS

505 "EQUAL

TO

A

"-1

",

SETUP

FOR

A

SOFTWARE

SWITCH

REGISTER.

506

001540

013746 000004

MOV

@#ERRVEC,-(SP)

"SAVE

ER~O~

VECTOR

507

001544

012737

0016110

000004

MDV

364S,

P#ERRVEC

"SET

UP

ERROR

VECTOR

508 001552 012767 177570

177360

MOV

#DSWR,SWR

"SETUP

FOR

A

HARDWARE

SWICH

REGISTER

509 1101560 012767 177570

177354

MOV

'DDISP,DISPLAY "AND A

HARDWARE

DISPLAY

REGISTER

510

0~1566

022717 177777

177344

CMP

'-I,@SWR

"TRY

TO

REFERENCE

HARDWARE

SWR

511 001574

0111012

BNE

66S

"BRANCH

IF

NO

TIMEOUT

T~AP

OCCURRED

512

nAND

THE

HARDWARE

SWR

IS

NOT

•

-I

513 001576

000403

BR

65S

"BRANCH

If

NO

TIMEOUT

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYlI

27(732)

II-JUN-76

\3.51

PAGE

14

DZTAce,NEW

INITIALIZE

THE

COMMON

TAGS

514

515

516

517

518

519

520

S21

522

52l

524

525

526

527

528

529

530

531

532

533

5]4

535

536

537

538

539

540

541

542

543

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

001600

0~1604

001606

001614

001622

001626

901632

001634

001642

001&44

001650

IIIl1654

"01&56

001&64

001666

001670

001672

0017011

1101700

"0173~

001730

001732

001734

1101736

001742

001744

001746

012716

000002

012767

012637

005227

OO1036

022737

"01432

104401

0057)7

01l11l06

1126727

1101005

1114405

001l41l3

112767

000413

010504

0053115

002406

1104737

0053115

002402

004737

001606

000176

177324

000174

177320

000004

177777

0O&014

0"0042

001702

000042

177256

000176

000001

177234

00703&

007146

64$:

65S:

66$.

,SBTTL

: JTYPE

.SBTTL

67$:

688.

'65$,(SP)

"SET

UP

FOR

TRAP

RETURN

MOV

RTI

HOV

MOV

ISWREG,SWR

"POINT

TO

SOFTWARE

SWP

OOISPREG,DISPLAY

(SP)+.@OERRVEC

"RESTORE

ERROR

VECTOR

TYPE

PROGRAM

NAME

THE

NAME

OF

THE

PROGRAM

INC

'-1

bNE

HERE

CMP

'SENDAD,P'42

BEQ

HERE

TYPE

,MSGID

GET

VALUE

FOR

SO'-TWARE

TST

"42

SNE

67$

CMP

SWR

••

SWREG

BNE

68$

GTSWR

BR

68S

MOVB

,I.SAUTOS

IF

FIRST

PASS

"FIRST

TIME?

:,

BRANCH

IF

NO

nACT-II?

"BRANCH

IF

YES

"TYPE

ASCII

STRING

SWITCH

REGISTER

"ARE

WE

RUNNING

UNDER

XXDP/ACT?

"BRANCH

IF

YES

"SOFTWARE

SWITCH

REG

SELECTED?

"BRANCH

IF

NO

"GET

SOFT-SWR

SETTINGS

:;SET

AUTO-MODE

INDICATOR

BR

: ,MSGIo,

HERE:

HERE

"GET

OVER

THE

ASCIZ

.ASCIZ <CRLF>/MAINOEC-II-DZTAC-C/<CRLF>

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

**********.

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

,THE

CONTENTS

OF

RS

DETERMINES

WHAT

WILL

BE

DONE

R5=3

MANUAL

OPERATIONS

R5=2

ASK

FOR

DRIVE(S)

AND

ADDRESSES

(TACS

AND

VECTOR)

R5=1

ASK

FOR

DRIVE(S)

R5=0

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,

TIMEOUT

OCCURRED

A.

TYPE

ERROR

MESSAGE

B,

EXAMINE

R4

1.

R4>0

2

II>

P4=0

GOTD

BEGINX

EXAMINE

(42)

A.

(42)=0

GOTO

BEGINX

B,

(42»O

GO

TO

SENDAD

SEQ

0026

SEQ

~027

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

II-JUN-76

13151

PAGE

15

SEQ

011128

DZTACC.NEW

GET

VALUE

FOR

SOFTWAU

SWITCH

REGISTER

570

,II.

TIMEOUT

DIDN'T

OCCUR

571 ,

A,

CONTINUE

572 ,

573 ,,***********************

••

*******

•••

**********

••

************

••••

574 001752 IH2737 001770 000004

CHKADRI

MOV

US,UERRVEC

,IN

CASE

OF

TIMEOUT8

575 001760 005000

CLR

R0

;USE

AS

A

8WITCH

576 001762 005777 177220

TST

nACSL ,SEE

IF

TAil

RESPONDS

577

001766 000402

DR

28

;BR

IF

NO

TIMEOUT

578 001770

"05200

161

INC

R0

,COME

HERE

ON

TIMEOUT

579

001772 922626

eMP

(SP)

••

ISP).

,CLEANUP

THE

STACK

580 001774 012737

000"06

000004

2Si

MOV

.ERRVEC.2"IERRVEC

,RESTORE

TIMEOUT

VECTOR

581 002002 005700

TST

R0

,DID A

TIMEOUT

OCCUR?

582 002004 001412

BEQ

3S

;BR

IF

NO

583 002006 104201

ERROR

201

;TAII

FAILED

TO

RESPOND

584

002010 012705

0110002

1I0V

.2,R5

,DRIVES &

ADDRESSES

585

002014 005704

TST

R4

rOPERATO~

INPUTS?

586

002016 001344

8NE

BEGINX

,B~

IF

YES

587

"02020

013700 000042

HOV

"42,P"

,GET

MONITO~

~ETURN

ADDRESS

588 002024

11111741

SEQ

BEGIN

X

,BR

IF

NO

MONITOR

589 802826

0011137

11116014

JMP

"SENDAD

;GO

TO

END

590 082032

38:

TAIl

MANUAL

INTERVENTION

TEST

MAINDEC-Il-DZTAC.C

MACHI

27(732)

II·JIl~-76

13151

PAGE

16

SEQ

0029

DUACC.NEW

GU

VALUE

FOR

SOFTWARE

SwITCH

REGISTER

591

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

592 "

•••

***************.*.*************************

•••

*.*

•••

********

593

594

,MAKE

SUPE

THE

DRIVES

IN

THE

DRIVE

TABLE

CAN

8E

TESTEO

595

:

1.

596

DESIRED

DRIVES

CAN

NOT

BE

TESTED

597 ,

A.

TYPE

ERROR

MESSAGE

59B

B.

EXAMINE

R4

599

I.

R4>0

GO

TO

BEGINX

600

,.

Ft4=0

EXAMINE

(42)

601

A.

(42):0

GO

TO

BEGINX

602

B.

(42»11

GO

TO

SENOAD

603 ,

6114

,II

•

BOTH

DRIVES

IN

THE

TABLE

BUT

ONLY

ONE

OF

THEM

CAN

BE

TESTED

6115

A.

CLEAR

BAD

DRIVE

FROM

THE

DRIVE

TABLE

606 r B.

CONTINUE

IN

PROGRAM

601 ,

608

,III

•

DESIRED

DRIVElS)

CAN

BE

TESTED

699 r

A.

CONTINUE

IN

PROG~AM

619

;

611

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

612 992932 012709 001224

C"KDRV:

MOV

,DRVKEY,R9

,PICKUP

ADDRESS

OF

ASCII

DRIVE

KEY

613 902036 094737 919654 JSR

PC,OIEXAM

,GO

EXAMINE

FIRST

D~IVE

614 082042 090419

BR

IS

~OK

TO

TEST---GO

CHECK

99999\

MOVB

IIR9),

(R0)

,REPLACE

1ST

WITH

2ND

616

002950 091412

BEQ

2$

:8R IF

NO

2ND

DRIVE

SELECTED

617 002052 004737 919654

JSR

PC.@#EXAM

,GO

EXAMINE

DRIVE

618

"02956

099497

SR

2$

,OK

TO

TEST

619 992060 005019

CLR

(R0]

;CLEAR

DRIVE

CODES

620

1182062

099495

BR

2$

621

1102964

905200

IS.

INC

R0

,POINT

TO

2ND

622

902966 894737 919654 JSR

PC.@fEXAM

,GO

EXAMINE

DRIVE

623

11"2072 000491

BR

2.

,OK

TO

TEST

624

002014

1050111

CI,RB

(RB)

,CLEAR

2ND

625

1/192076

012700

0"1224

2S1

MOV

fD~VKEy,R0

;RESET

ADDRESS

POINTERS

626 002192 910937 001230

MOV

~II,UORVPNT

627 902106

1211160

000081

CMPB

IR0),!

(R0)

liST

=

2ND?

US

902112 001082 8NE

38

:BR

IF

NO

629

002114 185969 9160091

eLltB

lIRe)

,YES---CLEAR

2ND

638

IInue

085719

3$,

TST

IRB) I

ANY

DRIVES?

631 012122

0111491

BEQ

58

:BA

IF

NO

632

'02124

0"04U

BR

MANUAL

)

633

1102126

104202

511

ERROR

202

,NO

O~IVES

AVAILABLE

634

0821311

012705

00011112

MOV

t2,~5

,DRIVES ,

ADD~ESS

US

lUlU

005704

TST

R4

,OPERATOR

INPUTS?

636

1102136

801274

SHE

BEGINX

,SR

IF

YES

637 11"2140 813780

00111042

MOV

.,.2,RII

I

GET

MON

ITOR

RETURN

ADDRESS

638 802144 "01671

BEQ

BEGINX

,NO

MONITO~

639 082146 088137 086814

JMP

UUNDAO

,GO

TO

END

648 802152 02"427

01101103

MANUAL,

CMP

R4,13

641 002156 001002

8NE

OK

642

"82168

0167114

175613

MOV

-1,114

643

1102164

818437

001232

OKI

MOV

~4,"A5XKEY

644

SSZUS

&1l1l4115

SR

START

645 Il82172 184401

0111702

PW~STI

TYPE

,

MSGID

;POWE~

FAIL

~ESTA~T

646 082176

1112737

081224 801230

MOV

'ORVKe:Y,.tD~VPNT

····w··

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

~

TAlI

MANUI~

INr~"VENIIDN

ItGI

MI1NDEC-II·OZTAC·C

Mlenl

27(732)

II-JUN-"

13151

PAGE

17

SEQ

ens

DUlCe,

N~W

an

VALU~

FOR

SOFTWARE

GWITCH

REGIOT~~

.H

002?04

0U777

001230

171004

UMTI

MOV

UTAVEC+2

:nAV~C

I snup

'All

TPAP

VECTOR

649

~~2212

005077

177002

CLA

nlVEe."

049

002216

012737

000340

177776

MOV

.340,

P'u

,LOCKOUT

UL

110

INT

650

00n24

01)704

001206

MOV

@lTICSL,TACS ,

SETUP

TACS

651

~02230

ml3705

001212

MOV

PlTIDBL,

TADB

,SETUP

TAOB

652

002214

005737

MI100

TST

USPASa

,IF

FIRST PASS

SETUP

FOR

EXTRA

~ONG

WAIT

LOOPS

65l

001240

001~01

aNE

1$

,OTHERWISE

USE

OLD

VALUES

654

002242

012737

077777

006732

MOV

*"CBITI5.@IMAXCNT

655

002250

005037

001102

Ul

eLA

9UTSTNM

,ZERO

THE

TEST

NUMBER

656 1102254

005001

eLR

DRIVE

,SET

DRIVE

TO

'A"

bS7

002256

013701

001230

MOV

@#DRVPNT,R\

,GET

DRIVE

POINTER

658

002262

121127

000101

CMPB

(Rlld'A

115

IT

DRIVE

"A'?

659

002266

0014~2

BEQ

TDRV

;BR

IF

YES

660

002270

012703

000400

HOV

IUNIT,DRIVE

,5ET

DRIVE

TO

oS'

661

002274

TDRV,

662

~02214

104401

~02302

TYPE

,656

"TYPE

~SCIZ

STRING

663

002300

000411

BR

64$

;IGET

OVER

THE

ASCIZ

664

n65S:

.ABeIZ

<15><12>.TESTING

DRIVE'

665

002324

64$1

66D

002324

112167 176704

Mova

(RIJt,CURDRV ,

SETUP

TO

TYPE

CURRENT

DRIVE

1,67

002330

104401

001234

TYPE

,CURDRV

668

002334

104401

0011

77

TYPE

,SCRLF ;TYPE A

CR

&

LF

669

002340

105711

T5TB

(RI)

;LAST

DRIVE

BEEN

SELECTED

670

002342

001002

BNE

IS

,SR

IF

NO

671

002344

012701

001224

MOV

#DRVKEY,RI

,RESET

DRIVE

POINTER

672

002350

010137

001230

1$.

MOV

Rt.@#DRVPNT

,SAVE

DRIVE

POINTER

FOR

673

002354

~05737

001232

TST

@IASKKEY

lGO

START

TESTING

If

NO

MANUAL

674

002360

002007

BGE

2$

OPERATIONS

REQUESTED

675

002362

005000

CLF

Fe

I,

76

002364

000000

HALT

GIVE

CONTROL

TO

THE

OPERATOR

677

002366

022767

000176

176544

eMP

ti5WREG,SWR

USING

S/"

SWITCH

REG?

678

002374

001001

SHE

20$

NO-

GET

OUT

679

002376

104405

GTSW?

GET

VALUE

680

00240"

20$

,

CONTINUE

681 i

THIS

CODE

IS

FOR

AC~II

&,

DDP

682

002400

005731

000042

2"

:

TST

@#42

IS

THERE

A

MONITOR?

683

""2404

001406

BEU

TSTI

GO

START

TESTING

If

NO

684

002406

010314

MOV

DRIVE,PTACS

If

YES

SELECT

DRIVE

685

002410

1127\4

000017

MOVS

#REWIND!GO,@TACS

SEND

TAPE

TO

BOT

686

002414

03271

4

000040

3$,

BIT

#RE.ADY,liiTACS

WAIT

ON

READY

1,87

00242"

001775

BEQ

3S

FALL

THRll

IF

READY=!

TAil

~ANUAL

INTERVENTION

TEST

MAINDEC-II.0ZTAC-C

MACYlI

21(732)

II-JUN.76

13,51

PAGE

18

OZTACC.NEW

GET

VALUE

fOR

SOfTWARE

SWITCH

REGISTER

688

689

690

691

692

693

694

695

696

697

698

699

700

701

702

703

704

705

706

701

708

709

710

711

712

713

714

715

716

117

718

719

720

721

722

723

724

725

726

727

728

729

730

731

732

733

734

735

736

737

738

739

740

741

742

743

002422

002424

002432

002436

002440

002442

002444

002450

002452

002456

002460

002466

002472

002476

002502

"02504

002512

002516

002520

002524

002574

002600

002646

002650

002656

002664

002670

002672

002&74

002700

002702

00270.

002710

002712

00271

4

000004

012767

0057;7

001021

000005

010314

112714

104412

!

12714

104412

163737

005237

0061

J7

006131

000004

012767

005767

001053

104401

000423

104401

000422

000004

012767

004037

012674

000402

000137

000005

010314

032714

001001

104001

000001

001100

0110017

000001

006706

006732

00&732

006732

000001

176362

002526

002602

000012

002700

007436

003120

001000

176534

006132

176454

176310

176222

I11111111111I1111111111111111111111111111111111111111111111111111111111

,1111111111111111111111111111111111111111111111111111111111111111111111

:;**4************************

••

****

•••

***.*******

•••

*.****** •••

**

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

:

~

** *.*

*"

*

*"

*'

**

'*

** *

it

...

*

••

*

-»

** *

••

+*

.*.

*

.....

**

......

**:111-

**** **.* *

'*

**

..

***

,>TEST 1

ROUTINE

TO

DETERMINE

TIME

Of

WAIT

LOOPS

~:.**

••

*

••••••••

*

••••

*

••

*

•••••

*

•••

**

••

******

••••••

*.*

••••••••••••

TSTI'

SCOPE

HOV

TST

BNE

RESET

#I,

STIMES

@i$PASS

TST2

HOV

DRIVE,@TACS

Move

#REWIND!GO,~TACS

WAITREADY

MOVB

#WFG1GO,@TACS

WAITREAOY

;;00

1

ITERATION

,IS

THIS

THE

FIRST PASS?

:18R

IF

NO

SUB

A'HGHTIM,@#MAXCNT

,SELECT

THE

DRIVE

:START

A

REWIND

,WAIT

fOR

REAO~

,WRITE A FILE

GAP

,WAIT

ON

READY

,GET

THE

TIME

IT

,MAKE

IT

BIGGER

TOOK

INC

@#MAXCNT

ROL

@#MAXCNT

ROL

@#MAXCNT

::

••

*.**.**

•••

*

••

*.****

••

*

•••

*

•••

**

••••••••

*~*

•••••••••••••••••••

"TEST

2

SETUP

FOR

MANUAL

INTERVENTION

; : **********.****

**-.

~HH~*

•••

*****,*

••

"'*

••

*

••

****.*******

••

HH~*

****

••

TST2:

SCOPE

HOV

TST

BNE

TYPE

BR

,,65$'

.ASCIZ

64S'

#l,$TIMES

nOO

1

ITERATION

SPASS

,IS

THIS

THE

FIRST PASS?

TST3

;;

SKIP

TYPE

OUT

IF

YES

,65S

,;TYPE

ASCIZ

STRING

645

"GET

OVER

THE

ASCIZ

<lS><12>"DIRECTIONS

WILL

BE

TYPED

ON

THE

TTY~

,67$

;;TYPE

ASCIZ

STRING

66S

'IGET

OVER

THE

ASCIZ

;;675:

66$'

TYPE

BR

.AselZ

<15><12>~HIT

'CR'

wHEN

READY

TO

CONTINUEw<15><12>

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

"TEST

3

SETUP

FOR

POWER

DOWN

TU60

TEST

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

TST3:

SCOPE

1 s.

MOV

JSR

MTUPWR

BR

JMP

RESET

HOV

BIT

SNE

ERROR

#10.,$TIMES

#I$,SLPADR

R0,@#ASKQUES

1$

@*TST6

DRIVE,@TACS

10FfLINE,@TACS

T5T4

1

"DO

10.

ITERATIONS

"SET

SCOPE

LOOP

ADDRESS

'DO

THIS

TEST

,SKIP

POWER

FAIL

TESTS

,CLEAR

INTERfACE

,SELECT

DRIVE

,IS

'OFFLINE"

ON

A

ONE?

,rSF!.

IF

YES

,ftOFFLINE N BIT ISN'T

ON

A

ONE

, f *·1t*******_*************

...

·IHHIHH;.***

...

*****************************

,"TEST 4

TEST

'OFFLINE"

WHEN

TU60

IS

POWERED

DOWN

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

***********

T514.

SCOPE

SEQ

0031

TAll

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYll

27(732)

II-JUN-76

13.51

PAGE

19

DZUCC,NEW

T4

TEST

·OFFLINE"

WHEN

TU60

IS

POWERED

DOWN

144

11112716

012767 1103062

176244

MOV

nST5

••

ESCAPE

,.ESCAPE

TO

TEST

5

ON

ERROR

145

1102724

112714

00""0\

MOVS

#WFGIGO.$TACS

,TRY

TO

DO

A

"WFG"

146

002730

104412

WAITREADY

,WAIT

IN

"READY'

747

002732

0115714

TST

@TACS

,CHECK

FOR

AN

"ERROR"

748

002734

1004111

8MI

1$

,8R

IF

"ERROR"=I

149

002736

11141101

ERROR

I : "ERROR":0

7511

0112740 112714

000093

IS:

MOV8

,WUTEIGO.tTACS

,TRY

TO

DO

A

"WRITE"

751

11112144

104412

WAITREADY

:WAIT

ON

"READY·

752 1102746 005714

TST

nACS

,CHECK

ERROR

FLAG

753

002750

190401

8MI

28

754

002752

1040111

ERROR

I

,"ERROR"=0

755 1102754

112714

000005

2$

,

MOV8

IREADIGO.UACS

,TRY

TO

DO

A

"REAO·

756

002760

104412

WAlTREADY

,WAIT

ON

"READY·

757

002762

005714

TST

nACS

,CHECK

ERROR

FLAG

758

002764

100401

SMI

38

759

002766

104001

ERROR

I

,"ERROR"=0

760

002770

112714 000007

3$:

MOVS

tBSFGIGo.nACS

:TRY

TO

DO

A

"BSFG"

761

002774

104412

WAITREAOY

,WAIT

ON

"READY·

762

002776

005714

TST

@TACS

,CHECK

ERROR

FLAG

763

003000

UII4B1

8MI

4S

764

003002

10400\

ERROR

\

,"ERROR=0

765

003004

112714

000011

4$:

MOV8

8SSSGIGO.@TACS

:TRY

TO

DO

A

"8SBGA

766

003010

104412

WAlTREADY

;WAIT

ON

-READY·

767

003012

005714

TST

nACS

,CHECK

ERROR

FLAG

768 110]014

1110401

8MI

5$

769

003016

104001

ERROR

\

,IIERROR"&0

170

003020

112714 000013

5$,

HOVS

'SFFGIGO.~TACS

~TRY

TO

DO

A

"SFFGft

771

0031124

1"4412

WAITREADY

,WAIT

ON

-READY"

772

003026

0115714

TST

PTACS

,CHECK

ERROR

FLAG

773

003030

1004111

8MI

6$

774

0113032

104001

ERROR

I : "ERROR"=0

775 1103034 112714 000015

6$,

Mova

ISFBGIGO.~TACS

,TRY

TO

DO

A "SF8G"

776

003040

104412

WAITREAOY

,WAIT

ON

-READY"

777

~031142

005714

TST

PTACS

,CH~CK

ERROR

FLAG

778

003044

100401

8MI

7$

779 003046 104001

ERROR

1

,"ERROR"=A

780

003050

112714 000017

7$

:

MOVB

IREWIND!

GO.

~TACS

,TRY

TO

DO

A

REWIND

781

0031154

1105714

TST

@TACS

,CHECK

ERROR

FLAG

782

003056

10040\

8MI

TST5

::SR

IF

ERROR=I

783

0030U

104001

ERROR

I

,"ERROR"=0

784 :J**

••

****************

•••

*.*******.********

••

*********.*.********

785

,*TEST

5

POWER

UP

THE

TU60

786 ;;

••••••••••••••••••••••••••••••••••••••

**

••••••••••••••

*

••••••••

787

003062

000004 TST5:

SCOPE

788

"03064

012767 003104

176014

MOV

#2S.SLPADR

:,SET

SCOPE

LOOP

ADDRESS

789

003072

004037 007436 JSR

R0.@.ASKQUES

790

003076

012714

MPWRUP

~MESSAGE

POINTER

791

~03100

0"0240

NOP

792

003102

000005

IS:

RESET

793 1103104 010314

2$:

MOV

DRlVE.UACS ,SELECT

DRIVE

794

003106

104412

WAlTREADY

,WAlT

ON

READY

795

003110 032714

001"00

8IT

'OFFLINE,

PTACS

,DID

OFFLINE

CLEAR?

796

003114

001401

SEQ

TST6

::BR

IF

YES

797

003116

104001

ERROR

I ,OFFLINE = I

798

,:._*---*-_

...

_.**_

..

*.-_

..

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

..

_

.....

-._--**--

799

,.TEST

6

TEST

'OFFLINE"

WHEN

ORIVE

IS

EMPTY

TAIl

MANUAL

INTERVENTION

TEST

MAINDEC-ll-DZTAC-C

MACYll

27(732)

II-JUN-76

13:51

PAGE

20

DZTAce.NEw

T6

TEST

"OFFLINE"

WHEN

DRIVE

IS

EMPTY

800

801

802

803

804

805

806

807

808

809

810

811

812

813

814

815

816

817

818

819

820

821

822

823

824

825

826

827

828

829

830

831

832

833

834

835

836

837

838

839

840

841

842

843

844

845

846

847

848

849

850

851

852

853

854

855

003120

003122

003130

003134

003136

003140

003144

003146

0031511

003154

003160

003162

003164

003166

003174

003200

003202

003204

003210

003212

003214

003220

003222

003224

003226

003234

003242

003244

003246

1103252

11103254

003256

003260

003262

003270

1103274

003276

0113302

003304

003306

003310

1103312

003316

003320

000004

012767

004037

1112732

01104112

000137

000005

010314

1142714

032714

0010111

104001

000004

012767

1104037

013000

000462

000137

000005

010314

1132714

1101401

104001

000004

012767

000005

1110314

112714

104412

805714

10000\

11,.001

1112767

112714

104413

112715

005327

008060

003372

104413

052714

1"4412

"12767

003146

007436

1103224

0010110

001000

""3212

007436

003224

001000

00011111

003242

000017

008006

000003

000377

0"0020

000006

175756

175712

175732

175726

000014

1100014

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

TST6:

SCOPE

MOV

JSR

MOFFLN

SR

IS:

2$:

JMP

RESET

MOV

SIC

BIT

SNE

ERROR

n ••

SLPADR

R0.~IASKQUES

IS

UTSTI0

DRIVE.nACS

'OFFLINE.

nACS

'OFFLINE.

nACS

TST7

I

"SET

SCOPE

LOOP

ADDRESS

,MESSAGE

POINTER

,00

TEST

,SKIP

THIS

TEST

,CLEAR

THE

WORLD

,SELECT

DRIVE

,TRY

TO

CLEAR

OFFLINE

;TEST

FO~

"OFFLINE"

JrBR

IF "OFFLINE":1

: "OFFLINE=0

INDICATION

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

,OTEST 7

PUT

DRIVE

"ONLINE"

::******************************************.*.******************

TST7I

SCOPE

IS:

2.,

MOV

JSR

MTAPE

BP

JMP

RESET

HOV

SIT

8EQ

ERROR

US.$LPADR

R0.@#ASKQUES

18

"TSTI0

DRIVE,UACS

,OFFLINE.nACS

TSTl0

I

"SET

SCOPE

LOOP

ADDRESS

,DO

TEST

,SKIP

THIS

TEST

,,8R

IF

,SELECT

DRIVE

,IS

DRIVE

OFFLINE?

NO

,DRIVE

IS

OFFLINE

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

,

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

HIUI.

,HANG

IN

THIS

TEST

UNTIL

DATA

IS

ON

TAPE

WITH

NO

ERROPS

1$:

RESET

28:

64$'

658.

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

0032

..;

,

SEQ

0033

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

II-JUN-76

13151

PAGE

21

SEQ

0034

DZTACC.NEW

TI0

PUT

DATA

ON

TAPE

FOR

WRITE

LOCK

TEST

856

0113326

112714 000003

MOVB

'WRITEIGO,

eTACS

,START

A

WRITE

857

003332

104413 66$1

WAITXFER

,WAIT

ON

TRANSFER

REQUEST

858

003334

112715 000377

MOVB

H77,nADB

,LOAD

DATA

BUFFER

859

003340

005321

DEC

(PC,.

;MORE

TO

DO?

860 003342 000000

678:

0

,NUMBER

OF

BYTES

TO

WRITE

GOES

HERE

861 1103344 003372

BGT

66.

,BR

IF

YES

862

003346

104413

WAITXFER

,WUT

ON

TRANSER

REQUEST

863

003350

052714 000020 BIS ULBS.PTACS

,WRITE

CRC

864

003354

104412

WAITREADY

,WAIT

ON

READY

865 1103356 112714 000001

HOVB

,WFGIGO,nACS ,WRITE A FILE

GAP

866 1103362 104412

WAITREADY

,WUT

ON

"READY'

867

,WRITE

A

BLOCK

OF

6

BYTES

868 003364 012767 000006

000014

HOV

.6,69S

,SETUP

FOR

6

BYTES

8b9

0113372

112714

0000113

MOVB

,WRITEIGO,nACS

,START

A

WRITE

870

003376

104413

68S1

WAITXFER

,WAIT

ON

TRANSFER

REQUEST

871

11113400

112715

000377

MOV8

1377,fTAD8

,LOAD

DATA

BUFFER

872

0113404

005327

DEC

(PCI.

,HORE

TO

001

873

003406

0000110

69$1 0

,NUMBER

OF

BYTES

TO

WRITE

GOES

HERE

874

0034\0

""3372

8GT

68S ;BR

IF

YES

875

003412

104413

WAITXFER

,WAIT

ON

TRANSER

REQUEST

876

003414

052714 000020 BIS ULBS,PTACS

,WRITE

CRC

877

003420

1114412

WAITREADY

,WAlT

ON

READY

878 J,*****

•••••••

*

•••

**

•••

*

••

***

•••••••

*

•••

*****

•••

_.**.-*****

•••

*

••

879 :.TEST

11

TEST

'WRITE

LOCK"

WHEN

AT

CLEAR

LEADER

880

JJ**.**

•••••••••••

******.***

••••••••

*.*.**.*

••••

********.**.*.*

••

88\

003422

0001104

TSTIII

SCOPE

882

003424

012767 000001

175534

NOV

81,

STIMES

"DO

I

ITERATION

883 003432 012767 003462

175446

HOV

US,$LPADR

,.SET

SCOPE

LOOP

AODRESS

884

003440

012767 003772

175522

MOV

nSTI2,

.ESCAPE ,'ESCAPE

TO

TEST

12

ON

ERROR

885

00H46

004037 007436 JSR R0, U

ASKQUES

,HAVE

OPERATOR

SET

'WRITE

LOCK'

886

003452

013021

MWRTLK

887

003454

000402

BR

IS

,DO

TEST

888

003456

000137 005716

JMP

UTSTn

:SKIP

WRITE

LOCK

TESTS

889

003462

1$:

890

00)462

000005

RESET

,CLEAR

ALL

891

003464

010314

MDV

DRIVE,@TACS

,SELECT

DRIVE

892 1103466 112714 000017

MOVB

.REWIND

I

GO,

aTACS

:

GO

TO

",80T"

( 893 003472 104412

WA!TREADY

894

003474

005714

TST

@TACS

:IS

"ERROR"=l

895

003476

100001

BPL

28

:BR

IF

NO

896

003500

104001

ERROR

I

:-ERElOR"=l

897 003502 032714 020000

2$

• BIT

#LEADER,~TACS

,CHECK

FOR

CLEAR

LEADER

898

003506

001001

BNE

3S

,BR

IF

ON

CLEAR

LEADER

899

003510

104001

ERROR

I

,REWIND

DIDN'T

GO

TO

BOT

900

""3512

3$

•

901

003512

112714

000~00

MOVS

,wFG,nACS

:LOAD

A

"WFG"

902

003516

032714 010000

BIT

#WRTLOCK,~TACS

,IS

'WRITE

LOCK

ERROR'

=

"I"

903 003522 001001

BNE

64S :8R IF

YES

904

003524

104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

"\

"

905 003526

64$:

906

003526

1127\4

000002

MOVB

#WRITE,

aTACS

:LOAD

A

"WRITF;"

907 003532 032714 010000 BIT

#WRTLOCK,~TACS

:IS

"WRITE

LOCK

ERROR"

=

"1"

908

003536

001001

8NE

65S

,8R

IF

YES

909

003540

104001

ERRO~

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"I'

910 003542

65S:

911

003542 112714

0P01104

MOVB

,READ,tTACS

:LOAD

A

"READ"

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

II-JUN-76

13:51

PAGE

n

SEQ

0035

DZTACC,NEW

Til

TEST

'WRITE

LOCK"

WHEN

AT

CLEAR

LEADER

912 003546

032714 010000

8IT

.WRTLDCK,UACS

JlS

"WRITE

LOCK

ERROR"

=

"0"

913 003552 001401

BEQ

66'

,BR

IF

YES

914 003554 104001

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"0"

915

003556

66S:

916

003556 112714 000006

MOVB

'BSFG,~TACS

:LOAD

A

"BSFG"

917 003562 032714 010000 BIT

'WRTLOCK,

UACS

,IS

"WRITE

LOCK

ERROR"

=

"0"

918 003566 001401

BEQ

67$

,BR

IF

YES

919

003570

104001

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

'0"

920 1103572

67$:

921 1103572 112714 000010

MOVB

18SBG,9TACS

:LOAD

A

"8S8G"

922 003576 032714

010000

BIT

tWRTLOCK,~TACS

:IS

"WRITE

LOCK

ERROR"

=

"0"

923 003602

00\401

BEQ

68$ ,BR

IF

YES

924

00]604

104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

'0"

925

003606

68S!

926

"03606

112714 000012

MOVB

#SHG,@fACS

,LOAD

A "SFFG"

927

003612

032714

010000

BIT

,WRTLOCK,_TACS

,IS

"WRITE

LOCK

ERROR"

=

'0"

928

003616

001401

8EQ

69$ ;BR

IF

YES

929

003620

104001

ERROR

I ;"WRITE

LOCK

ERROR"

NOT

EQUAL

"e"

930 003622 69$1

931 003622 112714 000014

MOVB

UF8G,

nAC5

:LOAO

A

"SFBG"

932

11103626

032714

010000

BIT

,WRTLOCK,@fACS

;IS

"WRITE

LOCK

ERROR'

=

"0"

933

003632

001401

BEQ

70S

,8R

IF

YES

934

003634

104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

"0"

935

003636

70S:

936

003636

112714 000016

MOV8

.REWIND,

nACS

,LOAD

A

'REWIND"

937

003642 032714 010000 BIT

#WRTLOCK,

UACS

:IS

"WRITE

LOCK

ERROR"

=

-0"

938

003646

001401

BEQ

71$ ,BR

IF

YES

939

003650

104001

ERROR

I ,'WRITE

LOCK

ERROR'

NOT

EQUAL

"0"'

940

003652

71$:

941

003652

112714

000000

MOVB

8WFG,UACS

,CHECK

"ERROR"

WITH

"wrGn

942

003656

005714

TST

@fACS

,SAMPLE

THE

'ERROR' BIT

943

~03660

100401

8MI

728 :8R IF

-ERROR"

= 1

944

003662

10408\

ERMR

I :

"ERROR"

NOT

= 1

945

003664

72S1

946

003664

112714

000002

MOV8

'WRITE,

'fACS

;CHECK

'ERROR"

WITH

·WRITE"

947

0113670

005714

TST

UACS

,SAMPLE

THE

"ERROR"

BIT

948

003672

100401

BMI

73.

,BR

IF

"ERROR"

= \

949 1103674 104001

ERROR

I

;"ERROR"

NOT

= 1

950 003676

73S:

951

0"3676

112714

000004

HOVB

'READ,nACS

,CHECK

"ERROR"

WITH

"READ"

952

003702 005714

TST

nACS

;SAMPLE

THE

"ERROR"

BIT

953

003704

100401

BMI

741 ,BR

IF

'ERROR"

= 1

954

003706

104001

ERROR

1 ,'ERROR'

NOT

= I

955

003710

74$1

956

003710

112714

000006

MOVB

OBSFG,

fTACS

,CHECK

'ERROR'

WITH

IIIIBSFG"

957 003714 005714

TST

nACS

,SAMPLE

THE

"ERROR' BIT

958 003716 100401

BMI

751

,BR

IF

"ERROR"

= I

959

083720

104001

ERROR

I ,"ERROR"

NOT.

1

960

003722

7511

961 003722 112714

000010

MOVB

IBSBG,tTACS

,CHECK

"ERROR"

WITH

"BSSG"

962 003726 1105714

TST

nAts

,SAMPLE

THE

"ERROR'

BIT

963 003730 100401

BMI

765 ,BR

IF

'ERROR' = I

964 003732 104001

ERROR

I

,"ERROR"

NOT

:I

1

965

003734

7681

966 003734

112714

000012

MOVS

8SFFG,nACS

;CHECK

'ERROR"

WITH

"SFFG"

967

003740

0115714

TST

UACS

,SAMPLE

THE

"ERROR' BIT

'tAli

MANUAL

XNTlIlftVENTXON

TUT

MUNDII:C·i\-OZTAc·e

MACYlI

271732)

I\-JUN-"

13111

PAGII:

23

aEQ

BUG

DnACC,NEw

Til

TEaT

'WRITE

LOCK'

WHEN

AT

CLEAR

LEADER

,

..

8.,742

1"'481

aMI

771

,DR

IF

'ERROR"

•

969

'81744

1.4881

ERROA

I ,"ERROR"

NOT.

I

'78

HU746

77',

971

883146

112714

8118014

MOve

I

SFBC;,nAca

,CHECK

'ERROR"

WITH

'8FDG"

972 883782 0115714

TaT

nAca

,SAMPLE

THE

"ERROR"

en

973 803754

1118481

DMJ

781

,IR

IF

"ERROR'

• I

974

1183756

104881

ERROR

I ,"ERROR'

NOT.

I

975

8"'37611

78f,

976

883160

112714

e80816

MOVS

'REWIND,nAC8

,CHECK

"ERROR"

WITH

"REWIND"

977 881764 885714

TlIT

nAce

,SAMPLE

THE

"ERROR'

BIT

978

1183766

1""001

BPL

798 ,SR

IF

"ERROR'

B 0

919

1103778

11141181

ERROR

1 , 'ERROR'

NOT.

II

9811

883772 7981

981 "

•••••••••••••••

*

••••••••••••

*

••••••••••••

*

•••••••••

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

982 ,*T£5T 12

TEST

'W~ITE

LOCK"

WITH

"C~C

ERRO~"

983

".*

•••

*

••••••••••••

**.*

••

_

•••••

*

•••••

_.*

••••

_

••••

*.*.***********

984

B03772

0001104

T5TI21

SCOPE

985 1103774 012767 004052 175104

MOV

U$,SLPADR

"SET

SCOPE

LOOP

ADDRESS

986

004002 012767 004332 175160

MOV

ITST13,

SESCAPE

I,ESCAPE

TO

TEST

13

ON

ERRO~

987

0041110

1100005

RESET

,INIT.

THE

INTERFACE

988 004012 B10314

MOV

DRIVE,

nACS

,SELECT

D~IVE

989

11114014

112714 000017

MOVS

• REWINDIGO,nACS

,GO

TO

BOT

...

990 004020 104412

WAITREADY

,WAIT

ON

~EADY

991

1104022

112714 000005

MOVS

UEADIGO,nACS

,GET

OVER

FI~5T

BLOCK

OF

DATA

992 004026 104413

WAITXFER

993

804830

105715 TST!

"ADa

,KNOCK

DOWN

"XFER

REQ'

994

"84032

184413

WAITXFER

995 004034 052714 000020

SIS

JILBS,nACS

,SHUT

DOWN

GENERATE

C~C

ERR

996

1104040

184412

WAITREADY

997 004042 032714 040000 BIT ,CRCERR,nACS

,IS

CRe

ERROR

FLAG=I?

998

004046

001301

BNE

1$

,SR

IF

YES

999

004050

194001

ERROR

1

INO

CRe

ERROR

100"

004052

IS,

1001 004052 112714

000011~

Mova

.WFG,

~TACS

:CHECK

'ERROR"

WITH

"WFG"

1002 004056 005714

TST

'TACS

,SAMPLE

THE

"ERROR"

BIT

11103

004000

1004111

B~I

648 ;8R IF

"ERROR"

= 1

1004 804062 104001

ERROR

1 ,"ERROR'

NOT

= I

11105

804064 64$ ,

1006 004064 112714 000002

MOVS

#WRITE,nACS

,CHECK

"ERROP"

WITH

"WRITE"

1007

0040711

005714

TST

@TACS

,SAMPLE

THE

"ERROR"

BIT

1008 004072

1004111

BMI

05$ ,SR

If

'ERROR"

= I

1009

0041174

1041101

ERROR

I ,'ERROR'

NOT

= I

1010

0114076

65$,

1011 004076 112714 000004

Mova

IREAD,PTACS

,CHECK

'ERROR"

WITH

"READ"

1012 004102 005714

TST

nACS

,SAMPLE

THE

'ERROR"

SIT

1013 004104 100401

8MI

b6S

:BR

IF

"ERROR"

= 1

1014 004106 104001

ERROR

I

:"ERROR"

NOT

= 1

1015

004110

66$ ,

1016 004110 112714 000006

MOVB

IBSFG,@TACS

,CHECK

'ERROR"

WITH

"BSFG"

1017 804114 085714

TST

UACS

,SAMPLE

THE

'ER~OR"

BIT

1018 004116 1000a1

BPL

67S feR

IF

"ERROR"

= 0

1019

004120

104001

ERROR

I

;"ERROR"

NOT

= 0

\020

004122 6751

1021 004122 112714 000010

MOVB

.BSSG,tTACS

,CHECK

"ERROR"

WITH

"BSBG"

1022 004126 005714

TST

nACS

,SAMPLE

THE

"ERROR"

SIT

11123

004130

11I0~01

BPL

68$

;BR

IF

"ERROR"

= 0

TAil

MANUAL

INTERVENTION

TEST

MAINOEC-11-0ZTAC-C

MACYII

27(732)

II-JUN-76

13.51

PAGE

24

SEg

0037

OZTACC.

NEW

Tl2

TEST

"WRITE

LOCK'

WITH

'C~C

EFlFlOR"

U24

004132 104001

E~ROR

; "EFIROR" NOT = 0

1025 004134

688:

1026

004134

112714 000012

MOVB

UffG,@TACS

,CHECK

"ERROR"

WITH

"SrFG"

11127

004140

1105714

TST

@TACS

1SAMPLE

THE

"ERROR"

BIT

1028 004142 100001

SPL

69$

:BA

IF

"ERROR"

= 0

1029 004144

1040111

ERROR

I

:"ERROR"

NOT

= 0

1030 004146 69$ I

1031

1104146

112714 000014

MOVB

'SFBG.@TACS

,CHECK

"ERROR"

WITH

"SrBG"

1032 004152 005714

TST

@TACS

:SAMPLE

THE

"ERROR"

BIT

1033 004154

1811001

BPL

70$

~BR

IF

"ERROR"

= 0

1034

"04156

,114001

ERROR

I : "ERROR" NOT = 0

1035

004160

70$1

1036 004160 112714 000016

Mova

.REWINO.@TACS

,CHECK

'ERROR"

WITH

"REWIND"

1031 004164 005714

TST

@lACS

,SAMPLE

THE

"ERROR"

SIT

1038 004166

1000111

BPL

71$ ;SR IF

"ERROR"

"

1039 004170 104001

ERROR

1

,IIERROR

II

NOT

= 0

111411

0114172

71$'

1041 004172 112714

11000011

HOVB

,WfG,nACS

;LOAD

A

"WFG"

1042 004176 032714 010000 BIT

#WRTLOCK,@TACS

,IS

'WRITE

LOCK

ERROR'

=

"1"

1043

004202 0"1001

BNE

72$ ,SR

If

YES

1044

0042114

104001

ERROR

\ ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"I"

1045 004206 72$1

1046 004206 112714 000002

MOVB

#WRlTE,nACS

:LOAD

A

"WRITE"

1047 004212 832714 010000 BIT

'WRTLOCK,

nAC5

JIS

"WRITE

LOCK

ERROR"

=

"1"

1048

1104216

1101001

BNE

738

,BR

IF

YES

1049 004220 104001

ERROR

I ,"WRITE

LOCK

ER~OR'

NOT

EQUAL

"I"

1050 004222

73$1

1051 084222 112714 000004

MOVB

'READ,@TACS

:LOAD

A

"READ"

1052 084226 032714 010000 BIT IWRTLOCK,nACS

,IS

"WRITE

LOCK

ERROR"

=

"0"

1053

1104232

001401

BEQ

74$ ,SR IF

YES

1054 004234 104001

ERROR

1 ,"WRITE

LOCK

ERROR'

NOT

EQUAL

"0"

105~

004236

74e,

1056 084236 112714 000006

MOVB

IBSFG,eTACS

rLOAD

A

"SSFC"

1057 004242 032714 010000 BIT

#WRTLOCK,

nACS

:IS

"WRITE

LOCK

ERROR"

=

"0"

1058 004246 "01401

BEQ

75$

,BR

IF

YES

11159

004250

184001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

'II"

18611

0114252

7S$I

1861 004252 112714

0110010

MOVB

#BSBG,nACS

,LOAD

A 'SSSG"

1862 004256

1132714

010000 BIT .WRTLOCK,nACS

,IS

"WRITE

LOCK

ERROR"

=

"0"

1063 004262 081401 BEQ 76S ,SR

IF

YES

1064

884264 104001

ERROR

\ ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"0'

1065

1104266

76$.

1066 084266 112714

1100012

MOVB

ISFFG,nACS

,LOAD

A "SFFG'

1067 084272 032714

01811811

SIT

twRTLOCK,tTAC5

,IS

"WRITE

LOCK

ERROR'

~

'0"

1068 004276 801401

BEQ

77$ ,SR

IF

YES

1069 804300 104801

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

'0"

1070

1104302

77$1

1071

0843112

112714

"""814

Move

WSFBG,@rACS

,LOAD

A "SFBG'

1072

004306

1132714

0100110

BIT

IWRTLOCK,@TAtS

,15

'WRITE

LOCK

ERROR"

•

"0"

1073 804312

1181401

BEQ

78$

,BR

IF

YES

1874 084314 104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

'0'

1075 084316

78.,

1076

084316 112714

01111Ub

MOVS

.REWIND.nACS

,LOAD

A

'REWIND"

1017 004322

11132714

010000

BIT

'WRTLOCK,nACS

,IS

'WRITE

LOCK

ERROR'

•

"0"

1978

004326 001481

BEQ

79$ ,SR

IF

YES

11179

1104330 104801

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"II"

'.

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-OZTAC-C MACYlI

27(732)

II-JU9-76

13151

PAGE

25

SEQ

01138

DZTAce,NEW TI2

TEST

'WRITE

LOC~'

WITH

"CRe

ERROR"

1080

004332

7981

1081

,,0

..

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

...

_***

..

***-.*

......

***-*._.-*

.......

_.*_**

•• _

..

*

..

_.

1982 I*TEST

13

TEST

"WRITE

LOCK'

WITHOUT

ANY

ERRORS

1083 , r ********.*

..

***

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

***

..

1094

604332

800004

fSTUI

SCOPE

1085

004334

012767

004364

174544

MOV

US.SLPADR IISET

SCOPE

LOOP

ADDRESS

1086

004342

912767

004644 174620

MOV

nSTl4,

SESCAPE

I,ESCAPE

TO

TEST

14

ON

tRROR

1087

004350 Sll0e0S

RESET

1088

004352

018314

MOV

DUVE.nAca

,SELECT

DRIVE

1089 8114354 012714 067000

BIT

.CRCERRILEADERIFGAPITIMERRIOFFLINE,8TACS

,CHECK

STATUS

1890

004360

001401

BEQ

18

,BR

IF

OK

TO

TEST

'WRITE

LOCK"

1091 004362

114001

ERROR

I ,TAPE

ISN'T

POSITIONED

PROPERLY

1092

004364

lSI

1093

884364

112714

0000110

1I0VB

IWFG,UACS

,LOAD

A •

WFG"

1094

""4170

032714

0111J>l00

BIT

#WRTLOCK,@TACS

,IS

"WRITE

LOCK

ERROR'

III

"1011

1095

0~4374

8011101

8NE

64$

,8R

IF

YES

11196

004376 I 041lSl

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"I"

IS9?

&04400

6481

1098

004400

112714

000002

Move

IWRITE,

PrACS

,LOAD

A

'WRITE"

1099

0<i14404

032714

81001110

lilT

'WRTLOCK,

nACS

,IS

"WRITE

LOCK

E~ROR"

m

'\"

IU~

004410

801001

SNE

656

,SR

IF

YES

1101

""4412

104001

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

'\"

1102

804414

65$1

1103

904414

112714

000004

Move

UEAD,nACS

,LOAD

A

"READ'

110.

004420

032714

010000

BIT

.WRTLOCK,.TACS

,rs

·WRITE

LOCK

ERROR'

8

"0'

1105

1104424 001401

SEQ

661

,SR

IF

YES

1106

004426

104001

ERROR

I ,'WRITE

LOCK

ERROR"

NOT

EQUAL

"0"

1107

1l1l4U0

668'

1108

804430

112714

000006

Move

!8SFG,nACS

,LOAD

A

"BSFG"

1109 004434 032714 010000

BIT

IWULOCK,UACS

,IS

'WRITE

LOCK

ERROR"

•

'0"

1110 004440 001401

BEQ

678 ,SR

IF

YES

1111 004442 104001

ERROR

I ,"WRITE

LOCK

E~ROR·

NOT

EQUAL

"0"

1112

004444

671:

1111

004444

112714

0~0010

MOVB

IBS8G,PTACS

:LOAD

A

"BSBG"

1114

804450

032714 010000 BIT

IWRTLOCK,

nACS

JI5

"WRITE

LOCK

ERROR"

=

"0"

1115 004454 001401

BEQ

68$ ,SR

IF

YES

1116 004456 104001

ERPOR

I ,'WRIT)!:

LOCK

ERROP"

NOT

EQUAL

"0"

1117 004460

bRSI

IIIB

004460 112714 000012

MOVB

'SHG,nACS

J

LOAD

A "SFFG"

1119 004464 032714 010000 BIT

#WRTLOCK.

aTACS

:15

"WRITE

LOCK

ERROR"

=

"0"

1120 004470

00140\

BEQ

69$

,SP

IF

YES

1121 004472 104001

ERROR

I ,"WRITE

LOCK

ERROP"

NOT

EQUAL

"0"

1122 004474 69$ ,

1123

004474

1127\4

000014

MOVS

UFBG,nACs

,LOAD

A "SFSG'

1124

004500 032714

01001110

BIT

'WRTLOCK,RTACS

:15

"WRITE

LOCK

ERROR"

=

"0"

1125 004504 001401 BEQ 70S

,BR

IF

YES

1126 004506 104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

"0"

1127

004510

708:

1128 1104510 112714 000016

MOVS

#REWIND,

UACS

:LOAC

A

"REWIND"

1129

004514 032714 010000

BIT

#WRTLOCK,nACS

,IS

·WRITE

LOCK

ERROR'

=

"0"

1130

004520

001401

BEQ

71$

,BR

IF

YES

1131

004522

ta4001

ERMR

I

:"WRITE

LOCK

ERROR"

NOT

EQUAL

"0"

1132 004524

71S.

1133

004524

112714 000000

MOVS

#.FC.

~TACS

,CHECK

"ERROR"

WITH

·wrG"

1134

004530

005714

TST

PiACS

:SAMPLE

THE

"ERROR'

BIT

1135

004532

100401

8MI

728 :8R IF

"ERROR"

= 1

TAli

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C MACYI!

27(732)

II-JUN-76

13:51

PAGE

26

SEQ

0039

DZTACC.NEW

T13

TEST

·WRITE

LOCK"

WITHOUT

ANY

ERRORS

1136 004534 104001

ERROR

:"ERROR"

NOT

= 1

1137 004536

72S'

1138 004536 112714 000002

MOVB

,WRlTE,@TACS

:CHECK

"ERROR"

WITH

"HRITE"

1139

004542 005714

TST

@TACS

:SAMP~E

THE

~ERROR"

BIT

1140 004544 100401

BMI

73$

,SR IF

"ERROR"

= 1

1141 004546 104001

ERROR

I

~"ERPOR"

NOT

= 1

1142

004550

73S:

\143

004550 112714 000004

MOVB

nPEAD.@TACS

:CHECK

"ERROR"

WITH

"READ"

1144

004554

005714

TST

nACS

,SAMPLE

THE

"ERROR"

BIT

1145 004556

\00001

BPL

74$

~8R

IF

"E~ROR"

= 0

1146 004560 104001

ERROR

I :

WERROR"

I\IOT

= "

1147 004562

74$.

1148 004562 112714 000006

MOVB

#8SFG.

PTACS

,CHECK

"ERROR"

WITH

"BSrG"

1149 004566 005714

TST

UACS

,SAMPLE

THE

"ERROR"

BIT

1150 004570 100001

BPL

758

JBR

IF

"ERROR"

= 0

1151 004572 104001

ERROR

I

:"ERROR"

HOT

= 0

1152

0"4574

75$1

1153

004574

112714 000010

Move

'BSBG,nACS

,CHECK

'ERROR"

WITH

"SSSG"

1154

004600 005714

TST

PTACS

,SAMPLE

THE

'ERROR"

BIT

1155 004602 100"01

BPL

76$

,BR

IF

'ERROR"

= 0

1156

004604 104001

ERROR

I ,"ERROR"

NOT

= "

1157 004606 76$ ,

1158

004606 112714

000"12

MOVS

#SFFG,@TACS

,CHECK

"ERROR"

WITH

"srrG"

1159 004612 005714

TST

nACS

,SAMPLE

THE

"ERROR"

BIT

1160 804614 100001

8PL

778 ,SR

IF

"ERROR"

o

~

1161 904616 104001

ERROR

I J

"EP.ROR"

NOT

IE

"

1162

e04620

77&1

1163 004620

112714

000014

MOVB

UFBG,UACS

,CHECK

"ERROR"

WITH

"sraG"

1164

004624

005714

TST

nACS

,SAMPLE

THE

"ERROR'

BIT

1165

004626

11110001

SPt

78$

,BR

IF

'ERROR"

• 0

1166

004630

104001

ERROR

I

;"EPROR"

NOT

= "

1167

004632

713.

1168

0114632

112714 000016

Mova

'REWIND.

nACS

,CHECK

"ERROR"

WITH

"REWIND"

\169

0046)6

005714

TST

nACS

,SAMPLE

THE

"ERROR'

BIT

1170

004640 100001

BPL

79$

,BR

IF

"ERROR"

a "

1171

"04642

104001

ERROR

I

,"ERROR"

NOT

IE "

1172 004644

79.,

1173

"._._._--*-_._

..

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

1114 I*TE8T 14

TEST

'WRITE

LOCK'

WITH

FILE GAP.!

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

1176 004644 000004 TSTI4:

SCOPE

1177 004646 012767 004726

174232

MOV

#

IS,

BLPADR

"SET

SCOPE

LOOP

ADDRESS

1\78

004654 012767 005206 174306

MOV

nSTI5,SESCAPE IIESCAPE

TO

TEST

15

ON

ERROR

1179 004662 000005

RESET

,CLEAR

THE

INTERFACE

1180 004664 010314

MOV

DRlVE,nACS :SELECT

@iACS

1181 004666 112714 000017

MOVS

#REWINDIGo.nACS

1182 004672 10441 2

WAITREADY

1183 004674 112714 000005

MOVB

tREAD!Go.nACS

,START

A

READ

1184

004700

104413

WAITXFER

1185 004702 052714 000020 BIS ULBS,PTACS

,SHUT

DOWN

1186

004706 104412

WAlTREADY

1187 004710 112714 000013

MOVe

SSFFGIGO,@TACS

:GO

TO

THE

FILE

GAP

118a 004714 104412

WAITREADY

;WAIT

ON

"REAOYw

1189 004716 032714 004000 BIT

.FGAP,@TACS

,CHECK

FOR

FILE

GAP

1190 004722 001001

BNE

18

,BR

If'

IN

A

GAP

1191

004724

104001

ERROR

I

:FILE

GAP

= 0

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYlI

27(732)

I1-JUN-76

1l.51

PAGE

27

OZTACC.NEW

TI4

TEST

"WRITE

LOCK"

WITH

FILE

GAP=I

1192

004726

1$'

1193

004726

112114

000000

MOVS

,WFG.nACS

;LOAD

A

"WFGII

1194

004732

032114

01000"

BIT

,WRTLOCK.@TACS

:IS

"WUTE

LOCK

ERROR"

= "I"

1195

004136

001001

8NE

648

IBR

IF

YES

1196

004140

104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

1191

004142

64$1

1198

004142

112714

000002

MOVB

#IIRITE.nACS

:LOAD

A

"WRITE"

1199

0"4746

032114

0!B000

BIT

URTLOCK,@TACS

~IS

"WRITE

LOCK

ERROR"

= "1"

1200

004152

001001

8NE

65$

:BR

IF

YES

1201

004154

104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

1202

00.,56

65$1

1203

004756

112114

"00004

MOVB

,READ.@TACS

:LOAD

A

"READ"

1204

"04162

032114

010000

BIT

#WRTLOCK.@TACS

:IS

"WRITE

LOCK

ERROR"

=

"0"

1205

004766

001401

BEQ

66S ,BR

IF

YES

1206

004110

104001

ERROR

I

,'WRITE

LOCK

ERROR"

NOT

EQUAL

1201

004772

66$'

1208

904772

112714

000006

MOVS

IBSFG.nACS

,LOAD

A "BSFG"

1209

004116 032114 010000

BIT

#WRTLOC~.

aTACS

:IS

"WRITE

LOCK

ERROR"

=

"0"

1210

005002

001401

BEQ

67S ISR

IF

YES

1211

005004

104001

ERROR

I ,·WRITE

LOCK

ERROR"

NOT

EQUAL

1212

005006

67$'

1213

005006

112114

000010

MOVB

#BSBG.'TACS

:LOAD

A

118S8G"

1214

005012

032714

010000

SIT

IWRTLOCK.

nACS

:15

"WRITE

LOCK

ERROR"

= "0"

1215

005016

,,01401

BEQ

68$

,BR

IF

YES

1216

005020

104001

ERROR

I

,'WRITE

LOCK

ERROR"

NOT

EQUAL

1217

005022

68S'

1218

005022

112714

000012

HOVB

.SFFG.nACS

;LOAD

A

"SFFG"

1219

"05026

032114

010000

BIT ,WRTLOCK,nACS

;IS

"WRITE

LOC~

ERROR"

= "0"

1220

005032

001401

BEQ

69$

IBR

IF

YES

1221

005034

104001

ERROR

I ,"WRITE

LOCK

ERROR"

NOT

EQUAL

1222

005036

69$1

1223

005036

112114

000014

MOVa

UFBG,@TACS

;LOAD

A

"SFBG"

1224

005042 032714

010001l BIT

,WRTLOCK,

~TACS

:IS

"WRITE

LOCK

ERROR"

=

"0"

1225

005046

001401

BEQ

70S :BR

IF

YES

1226

005050

104001

ERFOR

1 ,"WRITE

LOCK

ERROR"

NOT

EQUAL

1227

005052

10$,

1228

005052

112714

000016

MOVS

#REWIND.UACS

JLOAD

A

"REWIND"

1229

005056

032714

0\0000

BIT

.WRTLOCK,@TACS

rIS

"WRITE

LOCK

ERROR"

=

"0"

1230

005062

001401

BEQ

71S ,BR

IF

YES

1231

005064

104001

ERROR

I

;"WRITE

LOCK

ERROR"

NOT

EQUAL

1232

005066

lIS'

1233

005066

112714

00000"

MOVB

,WFG,taTACS

;CHECK

"ERROR"

WITH

"WFG"

1234

005012

005114

TST

nACS

:SAMPLE

THE

'ERROR" BIT

1235

005014

100401

BMI

12$

;8R IF

"ERROR"

= 1

1236

005016

104001

EFROR

I

J"ERROR"

NOT

= I

1237

00510.

72$,

1238

005100

112714

000"02

Move

.WRITE.nACS

,CHECK

"ERROR"

WITH

"WRITE"

1239

005104 005714

TST

UACS

:SAMPLE

THE

"ERROR"

BIT

1240

005106

10040\

BMI

7lS

:8R IF

"ERROR"

= 1

1241 0051

I~

104~01

ERROR

I

J"ERROR"

NOT

: 1

1242

005112

73$0

1243

035112

112114

000004

MOVB

DREAD,UACS

;CHECK

"ERROR"

wITH

"READ"

1244

005116

005714

TST

UACS

:SAMPLE

THE

"ERROR"

BIT

1245

00512~

100401

8MI

74$

JBR

IF

"ERROR"

1

1246

005122

104001

ERROR

I

:"ERROR"

NOT

= 1

1247

005124

745:

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-Il-DZTAC-C

MACYlI

27(732)

II-JUN-'6

13:51

PAGE

28

DZTACC.NEW

T14

TEST

"WRITE

LOCK"

wITH

FILE GAP:I

005124

005130

005132

005134

005136

1105136

005142

"05144

.05146

005150

005154

005156

005160

005162

005166

1'105170

005112

005114

005174

005200

"05202

005204

005206

112114

0~5114

100001

10400\

112114

005114

100001

10400\

112714

005714

100001

104001

112114

005714

100401

104001

112714

005714

10000\

10400\

000006

000010

000012

000014

000016

000001

005266

005362

000017

000005

000020

000915

000003

173750

173662

113736

75$1

76$'

77S:

18s:

19$'

MOVS

TST

BPL

ER~O~

MOVS

TST

BPL

ERROR

MOVS

TST

BPI.

ER~OR

MOVS

TST

BMI

ER~O~

MOVS

TST

BPL

ERRO~

'BSFG,@TACS

@TACS

75$

I

#SSBG,nACS

@TACS

76$

I

#SFFG.@TACS

nACS

77$

I

15FBG.@TACS

@TACS

78&

I

IREWIND.@TACS

@TACS

19$

I

;CHECK

"ERROR"

WITH

"BSFG"

:SAMPLE

THE

"E~ROR"

SIT

JBR

IF

"ERNOR"

= 0

:"ERROR"

NOT

= 0

,CHECK

"~RROR"

WITH

"BSBG"

,SAMPLE

THE

"ERRO~"

BIT

JBR

Ir

"ERROR"

= 0

;RERROR"

NOT

= 0

;CHECk

"ERROR"

WITH

"srrG"

;SAMPLE

THE

"E~ROR"

BIT

;SR IF

"ERROR"

=

~

:

"ERROR"

NOT

= 0

,CHECK

"ERROR"

WITH

"SrBG"

;SAMPLE

THE

"ERROR"

BIT

;SR IF

"ERROR"

= 1

:"ERROR"

NOT

= 1

;CHECK

"ERROR"

WItH

"REWIND"

;SAMPLE

THE

"ERROR"

BIT

JBR

IF

"ERROR"

= 0

:"ERROR"

NOT

= 0

:r************************************************************.*.

,*T£5T

15

TRY

WRITING

ON

TAPE

WHEN

"WRITE

LOCKED"

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

T5T15,

SCOPE

1$,

3$.

48.

HDV

MOV

RESET

U,STIMES

•

3$.

$LPADR

nSTI6,SESCAPE

MOV

DRIVE,@TACS

MOVS

'REWIND!GO.@TACS

WAITREADY

MOVB

.READIGO,'TACS

WAlTXFER

BIS

'ILSS.@TACS

WAITREADY

MOVB

15FBG!GO,@TACS

WAITREADY

•

RESET

MOV

DRIVE.~TACS

WAITREADY

Mova

#WRITEIGO.@TACS

CI.R

Rl

INCB

RI

,,00

I ITERATION

;ISET

SCOPE

LOOP

ADDRESS

;,ESCAPE

TO

TEST

16

ON

ERRO~

,CLEA~

ALL

,SELECT

DRIVE

I

GO

TO

!!PT

;WAIT

ON

READY

FLAG

;START A

READ

;WAIT

ON

"XFER

REQ"

,SHUT

DOWN

:

WAIT

ON

READY

,SPACE

OVER

THE

2ND

SLOCK

,WAIT

ON

READY

FLAG

;CI.EA~

ALL

FLAGS

:SELECT

DRIVE

,WAIT

ON

READY

;START

A

·WRITE"

:TIMER

;COUNT

THE

COUNTER

GIVING

'I"

"I'

"0"

'0"

"0"

1248

1249

1250

1251

1252

1253

1254

1255

1256

1257

1258

1259

1260

1261

1262

1263

1264

1265

1266

1267

1268

1269

1270

1271

1272

1273

1274

1275

1276

1271

1278

1219

1280

1281

1282

1283

1284

1285

1286

1287

1288

1289

1290

1291

1292

1293

1294

1295

1296

1297

1298

1299

1300

1301

13112

1303

1105206

005210

""5216

005224

"05232

1105234

005236

005242

"05244

"05250

11105252

11115256

1105260

1105264

005266

005210

885212

"05274

0053110

005302

11105304

000004

012767

012167

012767

000005

010314

112114

104412

112714

104413

052114

104412

112114

104412

000005

0103\

4

104412

112114

085001

105201

001376

8NE

4S

"XFER

REQ"

TIME

TO

SET

IF

IT

"05306

1IJ05310

!l05H2

1105314

1105316

1105320

105114

100001

104001

104412

005114

100401

5$1

TSTS

@TACS

BPI. 51

ERRO~

I

WAITREADY

TST

9TACS

8MI

6$

IS

GOING

TO

,CHECK

"XFER

~EQ"

:SR

IF

IT DIDN'T

SET

;"XFEP:

REa"

SET

,WAIT

ON

~EADY

,CHECK

E~~OR

FLAG

,BR

IF

IT

IS

SET

SEQ

0040

...

SEQ

0041

TAil

MANUAL

INTERVENTION TEST MAINDEC-II-DZTAC-C MACYll

27(732)

II-JUN-76

13.51

PAGE

29

DZTACC.NEW

TIS

TRY

WRITING

ON

TAPE

WHEN

'WRITE

LOCKED"

1304

1305

1306

1307

1308

1309

13\0

1311

1312

1113

1314

1315

1316

1317

1318

1319

1120

1321

1322

1323

1324

1325

1326

1327

1328

1329

1330

1331

1332

1333

Ill4

13]5

1336

1337

1338

1339

1340

1341

1342

1343

1344

1345

1346

1347

1348

1349

1350

1351

1]52

1153

1354

1355

1356

1357

1358

1359

005322

005324

005330

005332

005336

005342

00534~

005346

005350

005354

005356

005360

005362

005364

005372

005400

005402

005404

005410

005412

005416

005420

005424

005426

005430

005432

005434

005440

005442

005446

005450

005454

005456

005462

005464

005470

005472

005476

005500

005502

005510

005516

,,"5524

005526

005530

005532

005536

104001

112714

104412

012701

112714

005301

002405

104413

052714

104412

000767

104412

000004

012767

000005

010314

1127\4

104412

112714

104413

052714

104412

000005

010314

104412

112714

104412

112714

104412

112714

104413

052114

104412

112714

10441

3

052114

104412

000004

012767

000005

010314

104412

112714

104412

000017

000002

000005

000020

000001

005500

000017

000005

000020

000001

0000!

7

000005

000020

000005

000020

000001

005532

005564

000"17

173574

173570

173456

173370

173444

ERROR

6$,

MOVB

'REWIND!GO.~CS

WAITREADY

MOV

.2.RI

7$,

MOVS

'READ!GO.~TACS

DEC

RI

SLT

as

WAITXFER

BIS

'ILBS.@TACS

WAlTREADY

BR

7$

8S'

WAITREADY

:ERROR

ISN'T

SET

,GO

TO

BOT

:WAIT

ON

READY

FLAG

:GET

OVER

THE

TWO

DATA

BLOCKS

:START A

READ

:COUNT

THIS

BLOCK

:BR

IF

OVER

THE

2ND

BLOCK?

:WAIT

ON

·XFER

REQ"

,SHUT

DOWN

:WAIT

ON

READY

:GO

DO

ANOTHER

BLOCK

:IF

'XFER

REQ'

COMES

UP

THERE

IS

MORE

THAN

TWO

BLOCKS

ON

TAPE

'WRITE"

CAUSED

DATA

TO

BE

WRITTEN

:J********************************.******************************

:*TEST

16

TRY

"WFG"

WHEN

WRITE

LOCKED

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

15116'

SCOPE

HOV

'I.STIMES

::00

I ITERATION

HOV

.TSTI7.SESCAPE

::ESCAPE

TO

TEST 17

ON

ERROR

RESET

HOV

DRIVE.~TACS

:SELECT DRIVE

MOVa

'REWINDIGO.~TACS

:GO

TO

BOT

wAITREADY

:WAIT

ON

READY

MOVB

'READIGO.~TACS

:GET

PAST

THE

FIRST

BLOCK

WAITXFER

:WAIT

ON

TRANSFER

REQ.

BIS

'ILBS.@TACS

:SHUT

DOWN

WAITREADY

:WAIT

ON

READY

RESET :CLEAR

THE

WORLD

HOV

DRIVE,@TACS :SELECT DRIVE

WAITREADY

:WAIT

ON

THE

READY

FLAG

MOVS

'WFGIGO,@TACS :START A

".FG"

WAITREADY

,WAlT

ON

READY

MOVS

'REWINDIGO.@TACS :GO

TO

BOT

WAITRI:ADY

MOVS

'READIGO.@TACS ,GET

PAST

1ST

BLOCK

WAlTXrER

BIS

'ILBS,@TACS

,SHUT

DOWN

WAlTREADY

MOVB

#READIGO.@TACS

,SEE

IF

2ND

BLOCK

IS

STILL

ON

TAPE

~AITXfER

,If

READY

COMES

UP

THE

".'G"

,

COMMAND

WROTE

ON

THE

TAPE

BIS

#ILBS.@TACS ,SHUT

DOWN

.AITREADY ,WAIT

ON

READY

::***************************************************************

,*TEST

17 TEST

"WFG"

ON

CLEAR

LEADER

AND

WRITE

LOCKED

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

TSTl7,

SCOPE

1$,

MOV

HOV

MOV

REsrT

Itl,STIMES

#IS,$LPADR

nST20.

SESCAPE

MOV

DRIVE.@TACS

WAlTREAD¥

HOVB

#REWINDIGO.~TACS

WAITREADY

:rDO

1

ITERATION

"SET

SCOPE

LOOP

ADDRESS

"ESCAPE

TO

TEST

20

ON

ERROR

,SELECT DRIVE

:WAIT

ON

THE

READY

FLAG

JGO

TO

BOT

TAil

MANUAL

INTERVENTION TEST MAINDEC-II-OZTAC-C

MACYII

27(732)

II-JUN-76

13:51

PAGE

30

DZTACC.NEW

TI7

TEST

"WFG"

ON

CLEAR

LEADER

AND

WRITE

LOCKED

1360

005540

112714

000001

MOVB

IWFG1GO,filTACS

r5TART

A

"wrc"

1361

005544

104412

WAITREADY

,WAIT

FOR

READY

1362

005546

00571

4

TST

UACS

,CHECK

ERROR

1363

005550

100401

8MI 2S

fBR

IF

ERROR=t

1364

005552

104001

ERROR

I ,ERROR

ISN'T

ON

AN

ONE

1365

0~S554

032714

020000

2$0

BIT

.LEADER.@TAC5

,CHECK

IF

STILL

ON

CLEAR

LEADER

1366

005560

001001

8HE

TST20 1,GO

TO

THE

IF

IT

IS

1367

005562

104001

ERROR

I ,NOT

ON

CLEAR

LEADER

1368

J;*.**-***-*-**.**

•••

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

1369

:*TE5T

20

TEST 'WRITE"

WITH

WRITE

LOCK

ON

AND

AT

CLEAR

LEADER

1370

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

1371

~05564

000004

TST20,

SCOPE

1372

005566 012767

000001

173372

MOV

U.

STIMES

::00

I ITERATION

1373

005574

012767 005610

173304

MOV

US.SLPADR

"SET

SCOPE

LOOP

AODRESS

1374

005602

I"

2767

005642

173360

HOV

#1ST21,

SESCAPE

"ESCAPE

TO

TEST

21

ON

ERROR

1375

005610

000005

IS:

RESET ,CLEAR

THE

WORLD

1376

005612

010314

MOV

DUVE.nACS

:SELECT

THE

DRIVE

1377

005614

104412

WAlTREADY

,WAIT

ON

READY

1178

005616

112714

000017

MOVB

wREWINDIGO.@TACS

IGO

TO

BOT

1370

005622

104412

WAITREADY

,WAIT

TILL

READY

= 1

1380

005624

112714

000003

MOVB

#WRITEIGO.@TACS

ITAY

TO

START

A

WRITE

1381

005630

104412

WAITREADY

,IF

TRANSFER

REQ.

COMES

UP

1382

,THERE

IS

A

PROBLEM

WITH

WRITE

LOCK

1383

005632 032714 020000

BIT

#LEADER.@TACS

,MAKE

SURE

STILL

A

CLEAR

LEADER

1384

005636

001001

SNE

TST21

~

J

SR

IF

AT

CLEAR

LEADER

1385

005640

104001

ERROR

I ,TAPE

MOVED

OfF

OF

CLEAR

LEADER

1386

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

••

**.******************************

1387

I*TEST

21 TEST "WRITE

ENABLE"

1388

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

1389

005642 000004

TST21:

SCOPE

1390

005644

012767 000012

173314

MOV

.UJII,STIMES

"DO

10.

ITERATIONS

1391

005652

012767

005670

173226

MOV

01$.

SLPADR

"SET

SCOPE

LOOP

ADDRESS

1392

005660

004037

007436

JSR

RI!. UASXQUES

1393

005664

013040

MLAST

1394

005666

000240

NOP

1395

005670 000005

1$,

RESET

1306

005672 010314

MOV

ORIVE.nACS

1397

005674

112714

000017

MOVB

.REWINDIGo.nACS

1398

005700

104411

WAITREADY

1399

005702

112714

000000

MOVS

,WFG.@TACS

,LOAD

A

"wrG"

COMMAND

1400

005706 032714 011000

BIT

.WRTLOCKIOFFLINE.@TACS

:MAKE

SURE

THE

CASSETTE

IS

1401

805712

001401

BEQ

TST22 n 'WRITE ENABLED'

AND

'ON

LINE"

1402

005714

1040a1

ERROR

1

1403

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

***

••

***.**

1404

PI'TEST

22

END

OF

TEST

CODE

1405

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

...

** ...... ***

1406

00571

6

080004

TST22:

SCOPE

1407

805720

012767

000001

173240

MOV

U.

STIMES n

DO

ITERATION

1408

005726 000005

RESET

1409

005730 010314

MOV

DRIVE,nACS

,SELECT DRIVE

1410

805732

112714

008017

MOVS

'REWINDIGo.nACS

1411

805736

104412

WAITREADY

1412

.SBTTL

END

OF

PASS

ROUTINE

1413

1414

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

***********

1415

I*INCREMENT

THE

PASS

NUMBER

(SPASS)

SEQ

0042

ON

TAP

SEQ

0043

TAli

MANUAL

INTERVENTION

TEST

MAlNDEC-II-PZTAC-C MACil!

27(

732)

II-JUN·76

illS!

PAGE

II

DZTACC,NEW

END

or

PASS

ROUTINE

1416 ,.TYPE

"END

PASS'

1417

I*IF

THERES

A

~ONITOR

GO

TO

IT

1419

10IF

THERE

ISN'T

JUMP

TO

START

1419 ,OIF IT IS

DESIRED

TO

HAVE

A

BELL

INDICATE

THE

"END

OF

PASS'

LOCATION

1420 1.,tHDNG

CAN

BE

CHANGED

TO

7,

1421

1422

005740

UOP'

1423 1105740 "001104

SCOPE

1424

1105742

""5067

173U4

CLR

8TSTNM

"

ZERO

THE

TEST

NUMBER

1425

11115746

985067

173214

CLR

STINES

IIZERO

THE

NUMBER

OF

ITERATIONS

1426

0115752

805267 171122

INC

,PASS

IIINCREMENT

THE

PASS

NUMBER

1427 885756 042767

1011080

173114

BIC

U00000.

"ASS

IIDON'T

ALLOW

A

NEG,

NUMBER

1428

0115764

005327

DEC

(PC)+ IILOOP?

1429

11115766

0se001

nOPCT.

,WORD

1

1430

005770

0/1l

311

15

BCT

eDOAGN

"YES

1431 1105772 S12737

MOV

(pe).,PlPC)+

I I

RESTORE

COUNTER

1432 1105774

me.eel!

sENDeTI

,WORD

I

1433 1105776

995766

SEopeT

1434 806800 1114401

11106033

TYPE

,UNDMG

IITYPE

"END

PASS'

1435

096084

1113780

000042

sGET42.

MOV

8142.110

"GET

MONITOR

ADDRESS

1436 00601S

8111485

BEQ

SDOAGN

,'BRANCH

IF

NO

MONITOR

1437 1106012

0"0SS

RESET "CLEAR

THE

WORLD

1438 1106014 804710

SENDADI

JSR

PC'(R0)

"GO

TO

MONITOR

1419

110611J16

eeeHe

NOP

"SAVE

ROOM

144f1l

1/186020

SellJ240

NOP

flrOR

1441

806022

000240

NOP

"ACTII

1442

906024

,DOAGNI

1443 906024

1100137

.IMP

_(PC)+

"

RETURN

1444 006026 002204

.RTNADI

,WOIID

START

1445

8060]0

377 377

00O

.ENULLI

,BYTE

"'1,-1,0

"NULL

CHARACTER

STRING

1446

0060)3

01~

042412 042116

,ENOMG.

,ASCIZ <IS><12>tENO PASSt

1447 006040 050040 051501 000123

TAIl

MANUAL

INTERVENTION

TEST

MAINDEC-I1-DZTAC-C

MACYlI

27(732)

II-JUN-76

13:51

PAGE

32

DZTACC.NEW

SCOPE

HANDLER

ROUTINE

1448

1449

1450

1451

1452

1453

1454

1455

1456

1457

1458

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

1483

1484

1485

1486

1487

1488

1489

1490

1491

1492

1493

1494

1495

1496

1497

1498

1499

1500

1501

1502

1503

006046

006050

006056

006060

006062

006066

006074

006100

006104

006186

006110

006114

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

104406

032777

001111

000416

013746

012737

005737

012637

000463

022626

012637

000423

032777

801404

127767

001462

1115767

1101421

126767

101015

1132777

001404

1116767

000443

105067

005067

000415

032777

0010J1

005767

001406

005267

026767

I1III2nl

1112761

016767

105267

011667

04000P

000004

006106

177060

000004

000400

173006

!

72741

172145

172720

172703

172762

004000

172656

172654

172732

1100001

000044

172622

173062

000004

173014

172746

172731

172756

172714

172724

172646

172636

172712

.S8TTL

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

SSCOPE.

CKSWR

IS,

BIT .8ITI4,@SWR

SHE

SOVER

I

•••••

START

OF

CODE

FOR

THE

XOII

SXTSTR:

SR

6$

5&:

MOV

HOV

TST

MOV

8R

CMP

MOV

BR

@URRVEC,-(SP)

.5$.UERRVEC

"177060

(SP)

....

ERRVEC

SSVLAD

(SP)+,(5P).

(SP)+,UERRVEC

71

"TEST

fOR

CHANGE

IN

50FT-SWR

,ILOOP

ON

PRESENT

TEST?

,,~ES

IF

SWI4=1

TESTER"'"

I,IF

RUNNING

ON

THE

"XOR"

TESTER

CHANGE

"THIS

INSTRUCTION

TO

A

"NOP"

(NOP.240)

"SAVE

THE

CONTENTS

OF

THE

ERROR

VECTOR

"SET

FOR

TIMEOUT

"TIME

OUT

ON

XOR?

"RESTORE

THE

ERROR

VECTOR

"

GO

TO

THE

"CLEAR

THE

STACK

AFTER

A

TIME

OUT

"RESTORE

THE

ERROR

VECTOR

IILOOP

ON

THE

PIIESENT

TEST

"".II.UND

BIT

BEQ

CIIP8

OF

CODE

FOR

THE

,BIT08,UNR

2$

XOR

TESTER!!

II

#

2$,

45:

3$'

IS:

BEQ

TSTB

BEO

CMPS

BMI

BIT

BEQ

MOV

BR

CLRB

CLR

BR

BIT

8NE

TST

BEQ

INC

CMP

BGE

MOV

HOV

SSVLAD,

INCB

HOV

UMII,nSTNM

SOVER

BERFLG

3$

URMAX,

SERFLG

3$

UlTB9,@SWII

4S

$LPERR.SLPADR

SOVER

SERFLG

$TIMES

1$

,BITII.@SWR

1$

$PASS

1$

$lCNT

STIMES. SIC

NT

SOVER

'I,SICNT

SMXCNT.STIMES

orSTNI!

(SPl.SLPADR

"LOOP

ON

SPEC.

TEST?

"SR

IF

NO

I,ON

THE

RIGHT

TEST?

"BR

IF

YES

IIHAS

AN

ERROR

OCCURRED?

,,8R

IF

NO

aNIIC710>

IIMAX.

ERRORS

FOR

THIS

TEST

OCCURRED?

,,8R

IF

NO

"LOOP

ON

ERROR?

"BR

IF

NO

"SET

LOOP

ADDRESS

TO

LAST

SCOPE

"ZERO

THE

ERROR

FLAG

'ICLEAR

THE

NUMBER

OF

ITERATIONS

TO

MAKE

I,ESCAPE

TO

THE

"INHIBIT

ITERATIONS?

"BR

IF

YES

"IF

FIRST

PASS

OF

PROGRAM

" INHIBIT

ITERATIONS

"INCREMENT

ITERATION

COUNT

IICHECK

THE

NUMBER

OF

ITERATIONS

MADE

"BR

IF

MORE

ITERATION

REQUIRED

IIREINITIALIZE

THE

ITERATION

COUNTER

IISET

NUM8ER

OF

ITERATIONS

TO

DO

"COUNT

TEST

NUMBERS

:ISAVE

SCOPE

LOOP

ADDRESS

SEa

IlDH

SEQ

0045

(

..

TAil

MANUAL

INTERVENTION TEST

MAINDEC-II-DZTAC-C

MACYlI

2717321

11-i/UN-76

13151

PAGE

33

SEQ

81146

DZTACC.NEW

SCOPE

HANDLER ROUTINE

150.

"06264

"11667

172620

MOV

(8P

I,

,LPERR

"SAVE

ERROR

LOOP

ADDRESS

1505

""62711

005067

172674

eLR

$ESCAPE

"CLEAR

THE

ESCAPE

FROM

ERROR

ADORES/!

1586

0"6274

112767

0""11"1

172613

Mova

U,URMAX

"ONLY

ALLOW

ONE(I)

ERROR

ON

NEXT TEST

1507

"06302 "16777

173574

172632

SOVERI

MOV

nSTNM,tDISPLAY

"DISPLAY

TEST

NUMBER

ISIIB

11063111

816716

173572

MOV

SLPADR'(SP)

"FUDGE

RETURN

ADDRESS

1509

006314

"""002

RTI

"FIXES

PS

1510

""6316

"83720

$MXCNTI

20"".

"MAX.

NUMBER

OF

ITERATIONS

..

(

TAli

MANUAL

INTERVENTION TEST

MAINDEC-II-DZTAC-C

MACYII

27(7321

Il-JUN-76

13151

PAGE

34

SEQ

"047

DZUCC.NEW

ERROR

HANDLER

ROUTINE

1511

.SBTTL

ERROR

HANDLER ROUTINE

1512

1513

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

1514

,*THIS

ROUTINE

WILL

INCREMENT

THE

ERROR

FLAG

AND

THE

ERROR

COUNT.

1515

,*SAVE

THE

ERROR

ITEM

NUMBER

AND

THE

ADDRESS

OF

THE

ERROR

CALL

1516

,*AND

GO

TO

TYPERR

ON

ERROR

1517

,*THE

SWITCH OPTIONS PROVIDED

BY

THIS

ROUTINE ARE.

151B

:*SW15=1

HUT

ON

ERROR

1519

:*SW13=1

INHIBIT

ERROR

TYPEOUTS

\

1520

;*SW10=1

BELL

ON

ERROR

1521

I*SW09=1

LOOP

ON

ERROR

1522

:*CALL

1523

,*

ERROR

, I ERROR=EM!

AND

N=ERROR

ITEM

NUMBER

1524

1525

006320

SERROR.

1526

006320

104406

CKSWR

"TEST

FOR

CHANGE

IN

SOFT-SWR

1527

006322

1111437

001162

MOV

nAcs.9UREG0

,SAVE

THE

STATUS REG.

1528

006326

011531

001164

MOV

nADS.

"SREGI

,SAVE

THE

DATA BUFFER

1529

006332

~10031

001124

MOV

RII.9UGDDAT

,Re

WILL

CONTAIN

THE

GOOD

DATA

1530

0116336

010131

001126

HOV

RI.USBDDAT

,RI

WILL

CONTAIN

THE

BAD

DATA

1531

006.142

105261 172535

7S.

INca

SERFLG ,

,SET

THE

ERROR

FLAG

1532

006346

11111715

BEQ

7S

"DON'T

LET

THE

FLAG

GO

TO

ZERO

1533

006350

016711

112526

172564

MOV

STSTNM.9DISPLAY

"DISPLAY

TEST

NUMBER

AND

ERROR

FLAG

1534

006356

032177

0020"0

112554

BIT

IBlTI0.PSWR

: :

BELL

ON

ERROR?

1535

0116364

001402

BEQ

18

IINO

-

SKIP

1536

006366

104401

001112

TYPE

.SBELL

:

,RING

BELL

1531

1106372 0115267

172514

IS.

INC

SERTTL

:ICOUNT

THE

NUMBER

OF

ERRORS

1538

006316

011661

112514

MOV

(BPI.SERRPC

I,GET

ADDRESS

OF

ERROR

INSTRUCTION

1539

006402

162761

11001102

112506

SUB

.2,$ERRPC

1540

006410

117767

172502 172476

MOVB

UERRPC.SITEMB

"STRIP

AND

SAVE

THE

ERROR

ITEM

CODE

1541

006416

032771

020000

172514

BIT

'BIT!3.@SWR

:ISKIP

TYPEOUT

IF

SET

1542

006424

001004

BNE

20'

IISKIP

TYPEOUTS

1543

00642b

1104761

000060

JSR PC.TYPERR n

GO

TO

USER

ERROR

ROUTINE

1544

006432

104401

001177

TYPE

.SCRLF

1545

006436

2051

1546

1106436

005777

172476

2S:

TST ,SWR

:IHALT

ON

ERROR

1547

006442

100002

BPL

3.

:

,SKIP

IF

CONTINUE

1548

006444

000000

HALT

"HALT

ON

ERROR

I

1549

006446

104406

CKSWR

:ITEST

FOR

CHANGE

IN

SOFT-SWR

1550

006450

832777

001000

172462

38

:

BIT

IBITII9.@SWR

I,LOOP

ON

ERROR

SWITCR SET?

1551

006456

"01402

BEQ

4S

:rSR

IF

NO

1552

006460

016716

172424

MOV

SLPERR,(SPI

: ,FUDGE

RETURN

FOR

LOOPING

1553

006464

0"5767

172500

481

TST $ESCAPE , ICHECK

FOR

AN

ESCAPE

ADDRESS

1554

006470

001402

BEQ

5$

"SR

IF

NONE

1555

"06472

016716

172472

MOV

SESCAPE,

(SPI

, ,FUDGE

RETURN

ADDRESS

FOR

ESCAPE

1556

006416

5$

1

1557

006476

022737

006014 000042

CMP

#BENDAD.@t42

"ACT-II

AUTO-ACCEPT?

1558

006504

0011101 8NE

6S

, ,SRANCH

IF

NO

1559

006506

000000

HALT

"YES

1560

006510

65,

1561

006510

000002

RTI

, I

RETURN

1562

TAlI

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACHI

27(732)

II-JUN-76

13,51

PAGE 35

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

006512

006516

006520

006524

006526

006530

006532

006534

006540

006544

006546

006550

006554

006560

006562

006564

006566

006572

006574

006576

006600

006604

006606

006610

006612

006614

006616

006622

006624

104401

010046

113700

005300

006300

00&300

006300

062700

012067

104401

000000

104401

012067

001404

104401

000000

104401

012000

001004

012600

10440\

000207

013046

104402

005710

001170

104401

000771

020040

006630

001171

001114

001236

000002

001177

000004

001177

006624

000

TAil

MANUAL

INTfRVENTrON

TEST

DZTACC.

NEW

ROUTINE

159B

1599

1600

1601

006630

1602

006630 005061

000044

1603

00&&34

016767

000012

1604

006642

012637

001202

1605

006646

162737

""0002

1606

0"6654

012637

001204

1607

00&660

032714

000040

1608

006664 001013

1609

,,06666

105714

1610

006670

100002

; 1 *****

'*

<\10

'* '* '*

**

'*

-110

** **

'*

***

'*

**'*

'*

'* '*

* ******* *** ** ** **

'*

""

'*

'* '*

*** *

*'

411-

**

..

**

,THIS

ROUTINE

WILL

TYPEOUT THE

ERROR

MESSAGES

THERR:

TYPE

HOV

MOYB

DEC

ASL

ADD

MOV

TYPE

IS:

0

TYPE

HOV

BEQ

TYPE

2$:

0

TYPE

3$:

HOV

BNE

46:

HOY

5$'

TYPE

RTS

,SCRLF

R0,,,,,(SP)

@#SITEMB.R0

R0

#$ERRTB,R0

(R0)+,

1 S

,SCRLF

(R0)+,2S

3$

,SePtf

(R0)+,R0

5$

(SP)+.R0

,$CFLF

PC

MOV

~

(R0)+,

-

(SF)

6$

:

TYPOC

1ST

(R0)

BEQ

4$

TYPE

,6$

8R

5$

,ASCIZ

I

,EVEN

,TYPE

A CARRIAGE RETURN &

LINE

FEED

15AVE

R0

,PICKUP

THE

ITEM

INDEX

,ADJUST

THE

INDEX

;50

IT

WILL

WORK

fOR

,THE

ERROR

TABLE

,FORM THE TABLE

POINTER

,PICKUP

'ERROR MESSAGE'

POINTER

1TYPE

"ERROR

MESSAGEn

,"ERROR

MESSAGE

pOINTER"

GOES

HERE

;PICKUP

"DATA

HEADER"

POINTER

:

IF

If

0 'It

DON'T

TYPE

,TYPE

"DATA

HEADER

,"OATA

HEADER"

POINTER

GOES

HERE

;

PICKUP

IiDATA

POINTER"

,If

THERE

IS

DATA

TO

TYPE

GO

DO

IT

,RESTORE

R0

,TYPE

A CARRAGE

RETURN.LINE

fEED

;RETURN

,SAVE

@(R0)+

FOR

TYPEOUT

I TYPE DATA

,GO

TYPE--OCTAL

ASCII(ALL

DIGITS)

; TERMINATOR?

,BR

IF

YES

,TYPE

2 SPACES

;LOOP

,ASCII

STRING

OF

2 SPACES

MAL

NDEC

-II-DZTAC-C

MACY! I

27(732)

II-JUN-7.

13,51

PAGE

36

TO

WAIT

ON

THE READY

BIT

TO

SET

;:.*

••••

*

••

*.*

••••

~**.*.**

•••••

*

•••••

*.*

•••

*

•••••••••••

*.*.*** •• *

,ROUTINE

TO

WAIT

ON

THE READY

BIT

WAIT~ON

..

READY:

CLR

WAIn

;SETUP

MAX,

TIME

TO

WAIT

ON

~READyn

000044

HOV

MAXCNT,HGHTIM

HOV

(SP)'.@#SAVPC

;GET

THE

PC

OF

THE WAITPEADY

INSTRUCTION

001202

SUB

#2,~#SAVPC

MOV

(SP).,@#SAVPS

:SAVE

THE

PS

WAITt.

BIT

#READY.~TACS

; READY=I?

BNE

WAIn

;GO

ON

If

YES

TSTB

@TACS

;CHECK TRANSFER REQUEST

6PL

WAIT4

SEQ

0048

SEQ

0049

1611

00&612

104004

ERROR

4 ;"TRANSFER

REQUEST"

SET WHILE WA.ITING

ON

l'IREADYI'I

1612

006614

000407

BR

WAIn

1613

006&7&

005227

WAIT4.

INC

(PC»

:COUNT FAST COUNTER

1614

006700 000000

WAIT2: "

1615

006702

001366

BNE

WAITI

tGO

CHECK

"READY"

AGAIN

1616

006704

005327

DEC

(PCl+

:COUNT

LOOP

COUNTER

1611

006706

000000

HGHTIM,

"

1618

006710 003363

BGT WAITI ,GO LOOP AGAIN

1619

006712

104002

ERROR

2 : RREADyn

FAILED

TO

SET

1620

006714 013146

001204

WAIT]

,

MOV

@#SAVPs,-(SPl

,GET

THE STATUS BACK

1&21

006720 013746

001202

MOV

@#SAYPC,-(SP)

,GET

THE

PC

1622

006724

062716

000002

ADD

#2,(SP)

1623

006730

000002

PTI

1624

006732

000000

MAXCNT, 0

1625

1626

;

~

'* '*

*,,\1- ***** ****

\If

*** * *** ***

*'

***

'* '*

'*

...

'* '*

** **

if

flo

-iii-

'* '*

'*

* ,*,'1[0,*

'*

*** *** ** *****

1627

,ROUTINE

TO

WAIT

ON

TRArISFER REQUEST

1628

1629

006734

WA

IT.

fOR,

XfER,

REO:

1630

006734 005067

000044

CLR 2$

;SETUP

WASTE

TIME

LOOP

1631

006740 013767

006732

000044

MOV

@3MAXCNT,3$

1632

006746 012637

001202

MOV

(SP)+.@#SAVPC

;GET

THE

PC

Of

THE

WAITXFER

INSnUCTION

1633

006752

162737

000002

001202

SUB

#:2,

!CI#SAVPC

1634

006760 012637

001204

MOV

(SP)+,@.#SAVPS

iSAVE

THE

PS

16)5

006764

105714

IS:

T51B

@TACS

,CHECK

Xl'ER

REG

1636

006766

100414

BMI

4$

,EXIT

IF

SET

1637

006770

032714

000040

BIT

#READY,@TACS

;LOOK

AT READY

16]8

006714 001402

BEQ

5$

~BR

IF

"READY!'!

ISN"r

SET

1639

006776

104004

ERROR

4 ;rtREADYI'i SET WHILE

HAlTING

fOR IfXFER REO"

1640

007000

000407

BR

4$

1641

007002

005227

5$,

INC

(PC).

,COUNT

1642

007004 000000

2$,

0

1643

007006

001366

SNE

IS

,BR

IF

MORE

TO

DO

1644

007010 005327

DEC

(PC).

1645

007012 000000

3$.

0

1646

007014

003363

BGT

IS

1647

007016

104003

ERROR

3 1"TRANSFER

REQUEST!'!

FAILED

TO

SET

1648

007020

013746

001204

4$ ,

MOV

@.SAVPS,-(SP)

;GET

THE STATUS BACK

1649

007024

013746 001202

HOV

@'SAVPC,-(SP)

,GET

THE

PC

1650

007030

062716

000002

ADD

n.(SP)

165!

007034

000002

RTI

:

GO

BACK

TAli

MANUAL

INTEFVENTION

TEST

MAINOEC-II-OZTAC-C

MACYII

27(732)

II-JUN-76

13,51

PAGE

37

SEQ

0050

OZTACC.NEW

ROUTINE

TO

WAIT

ON

TRANSFEF

REQUEST

1652

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

***********

1653

1654 .58TTL

ROUTINE

TO

ASK

THE

OPERATOR

WHAT

DRIVE(S)

TO

TEST

1655

1656

,CALL

1657 JSR PC,UASKORV

1658

RETURN

,NOTE,

R0

AND

Rl

ARE

DESTROYED

1659

1660

007036

104401 012552

ASKDRV,

TYPE

,MSGORV

;<CRLF>"ORIVE(S)? "

1661

007042

005067

172156

CLR

DRVKEY

1662

907046

104410

ROLIN

,GO

GET

A

DRIVE

1663 1107050

012600

HOV

(SP)+.R0

,SETUP

TO

CHECK

FOR

VALID

DRIVE(Sl

1664

007052

105710

TSTB

iR0

,WAS

A

DRIVE

SELECTED?

1665

007054

001425

BEQ

NOTLGL

,BR

IF

NO

1666

007056

012701 001224

MOV

.DRVKEY,

RI

1667 007062

122710

000101

LOOP'

CMPB

,'A,IiIR0

,WAS

DRIVE

"A"

SELECTED?

1668

007066

00\002

BNE

NOTA

,BR

IF

NO

1669

007070

112021 Hove

(R0l+'(RIl+

,SET

KEY

FOR

DRIVE

°A"

1670

007072

000411

BR

007074

122710

000102

NOTA,

CMPB

,"S,iR0

,WAS

DRIVE

"B"

SELECTED?

..

1672

007100

001002

BNE

NOTB

,BR

IF

NO

1673

007102

112021

MOVB

(R0)',(Rll.

,SET

KEY

FOR

DRIVE

"B"

1674

007104

000404

BR

607106

122710

000054

NOTB.

CMPB

,54,PR0

,WAS

A

COMMA

TYPED?

1676

9071\2

901006

BNE

NOTLGL

,BR

IF

NO

1677

007114

105720

TSTB

(R0)'

,DUMP

THE

COMMA

1678 007116

105710

NEXT'

TSTB

@R0

,TERMINATOR?

1679

007120

001406

BEG

EXIT ,BR

IF

YES

1680

007122

072701 001226

CMP

,DRVKEy.2,RI

,TWO

DRIVES

SELECTED?

1681

1l~7I26

101355

BHI

LOOP

,BR

IF

NO

1682 0071311 104401

001176

NOTLGLI

TYPE

,

SGUES

,ILLEGAL

INPUT

DETECTED

1683

007134

000740

BR

ASKDRV

,GO

TRY

AGAIN

1684 007136 005767 ! 72062 EXIT,

TST

DRVKEY

,ANY

DRIVE

SELECTED?

1685

007142

001772

BEQ

NOTLGL

;BR

IF'

NO

1686

007144

000207

RTS

PC

1687

TAli

MANUAL

INTERVENTION

TEST

MAINDEC-Il-DZTAC-C

MACYII

2H

732)

II-JUN-'6

13,51

PAGE

38

SEQ

0051

DZTACC.NEW

ROUTINE

TO

ASK

THE

OPERATOR

WHAT

DRIVE(S)

TO

TEST

1688

J'**********************.*.*******.*******************

***********

1689

,CALL

1690 ;JSR

PC,@#ASKADR

1691

1692 007146 010046

ASKADRI

MOV

R0,-(SP)

,SAVE

R0

1693

607150

104401 012566

1$,

TYPE

,MSGASK

J"TACS?"

1694

007154

104411

RDOCT

,GET

VALUE

1695 007156 012600

MOV

(SP).,R0

,PICK

UP

THE

OCTAL

NUMBER

1696

007160

001423

BEQ

3$

,IF

"0"

USE

OLD

VALUES

1697 007162 020027

160000

CMP

R0

..

160000

,MAKE

SURE

IT

IS

A

BUS

ADDRESS

1698

007166

103770

BLO

1$

1699

007170

M0037

001206

MOV

R0,

~#TACSL

,SAVE

TOE

TACS

1700

007174

062100

000002

ADD

'2,R0

,STEP

TO

TADB

ADDRESS

1701

007200

010037

0~1212

MOV

R0,UTAOBL

,AND

SAVE

IT

1702

007204

013737 001206

001210

MOV

ilTACSL,

..

TACSH

,SET

UP

TACS

UPPER

1703 007212 005237

001210

INC

UTACSH

,BYTE

POINTER

1704

1705

007216

013737 001212

001214

MOV

"TADBL,@ITADBH ,SET

UP

TADB

UPPER

1706

007224

005237 001214

INC

UTAD8H

,BYTE

POINTER

1707

007230

104401 012576

3S:

TYPE

,MSGVEC

;"VECTOR?"

1708

007234

10441 1

ROOCT

1709 007236

012600

MOV

(SPl+,R0

1710

007240

001411

BEQ

5$

1711

007242

020027 001000

CMP

R0,II000

,MAKE

SURE

ADDRESS

IS

IN

VECTOR

AREA

1712

007246

103370

BHIS

3$

1713 007250

0100]7

001216

MOV

R0,@#TAVEC

,SAVE

AS

VECTOR

ADDRESS

1714

007254

062700 000002

ADO

.2,R0

1715

007260

010037

001220

MOV

R0, UTAVEC+2

1716

007264

104401 012606

5$,

TYPE

,MSGPRI

,ASK

FOR

PRIORITY

1717

007270

\04411

RDOCT

1718 007272 012600

HOV

(SPl+,R0

1719

007274

001413

BEQ

6$

,IF

"0"

USE

OLD

VALUE

1720 007276 020027 000007

CMP

R0,.7

,MAKE

SURE

ITS

VALID

1721

007302

101370

BHI

58

1722

007304

000300

SWAB

R0

,PUT

INTO

HIGH

BYTE

1723 007306

906200

ASR

R0

,AND

SHIFT

1724

007310 006200

ASR

R0

,INTO

PROPER

1725 007312

006200

ASR

R0

,POSITION

1726

007314 042700

177437

BIC

'-C<340>,R0

,SAVE

ONLY

PRIORITY BITS

1727

007320

010037 001222

HOV

R0,@#TAPRIO

,STORE

IT

AWAY

1728 007324 104401

012620

6$

•

TYPE

,MTACS

JTACS=IIG

1729 007330 016746 171652

MOV

TACSL,-(SP) ,

,SAVE

TACSL

FOR

TYPEOUT

1730 007334

104402

TYPOC

II

GO

TYPE--OCTAL

ASCII(ALL DIGITS)

1731

007336

104401 012626

TYPE

,MTADB

;"TADB:;"

1732

007342

016746 171644

MOV

TADBL,-(SP)

II

SAVE

TADBL

FOR

TYPEOUT

1733

007346

104402

TYPOC

:

,GO

TYPE--OCTAL

ASCIICALL DIGITS)

1734 007350 104401 012635

TYPE

,MTAVEC

,

"VECTOR="

1735

007354

016746 171636

MOV

TAVEC,-(SP) ,:SAVE

TAVEC

FOR

TYPEOUT

1736

007360

104402

TYPOC

,:GO

TYPE--OCTAL

ASCII(ALL DIGITS)

1737 007362 104401 012646

TYPE

,MTAPRI

;

"PRIORITY:Il"

1738 007366 016746 171630

HOV

TAPFIO,

-(SP)

"SAVE

TAPRIO

FOR

TYPEOUT

1739

007372

104402

TYPOC

"GO

TYPE--OCTAL

ASCII(ALL DIGITS)

1740

007374

104401 012661

TYPE

,MSGOK

;IIOK?"

1741 007400 184407

RDCHR

,GO

READ

ONE

CHARACTER

1742 007402

912600

MOV

(SP).,F0

,GET IT

1743

007404

022790

000015

CMP

U5,R0

,IS

IT

·CR"?

.

'¥

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

"ACilt

27(732)

II-JUN-,.

13151

PAGE

]9

SEQ

0"52

OZTAce,NEW

ROUTINE

TO

INPUT

CSR,DSP,

AND

VECTOR

ADDRESS

AND

PRIORITY

1744

1107418

""1406

BEQ

7.

,BRANCH

IF

YES

1745

1107412 1122700 0110131

eMP

I"Y,Re ,IS

IT

'Y"'

1746

""7416

881483

BEQ

7.

,IT

WAS

1747

1187428

11144111

0"1176

TYPE

,SOVES

,TYPE

","

1748

""7424

.88651

BR

18

,AND

LET

HI"

CORRECT

THEM

1749

11111426

.84481

1112667

781

TYPE

,MUS

,TYPE

OUT

·YES·

I?S0

1107432

8126""

MOV

(SPl+.R0

,RESTORE

Rg

1751

8.7434

880201

RTS

PC

,AND

RETURN

TAil

MANUAL

INTERVENTION

TEST

MAINDF.C-II-DZTAC-C

MACYII

27(732)

II-JUN-76

13.51

PAGE

40

SEQ

A8S]

DZTAce.NEW

ROUTINE

TO

INPUT

eSR,DBR,

AND

VECTOR

ADDRESS

AND

PRIORITY

1752

If***************************************************************

1753

::

•••

4***_**--***._.****-*******-**.-.***************************

1754

,ROUTINE

TO

TYPE

DIRECTIONS

TO

OPERATOR

AND

WAIT

FOR

RESPONSE

1755

,CALL.

1756

JSR

RA.@IASKQUES

1757

RETURN

HERE

ON

A

RESPONSE

OF

'y'

1758

RETURN

HERE

ON

A

RESPONSE

OF

"N"

1759

1760

"87436

ASKQUE51

1761

"07436

010146

HOV

RI.-(SP)

:

SAVE

RI

1762 O07440 012067 000006

MOY

(R0).,2S

,PICKUP

THE

MESSAGE

POINTER

1763

"07444

104401 001177

TYPF.

,SCRLF' ,TYPE A ·CR"

AND

"tFW

1764 1107450 184481

1$:

TYPE

,TYPE

THE

MESSAGE

1765

087452

0"""00

25:

"

,MESSAGE

POINTER

GOES

HERE

1766

007454

104407

RDCHR

;GET

ONE

CHARACTER

FROM

THE

TTY

1767 007456 012601

MOV

(SPI_.RI

;AND

PUT

IT

IN

RI

1768

11074611

020127

000015

eMP

RI.IIS

ICHEC~

THIS

CHARACTER

1769

"87464

1101443

BEQ

4$

;BR

IF

ITS A ·CR"

1770

1107466 028127 008116

CMP

Rl,.Ii'N

;IS

IT A "N"?

1771

1107472

0"1415

BEQ

35

;BR

IF

YES

1172 11117474

19211127

"00131

CMP

Rt,

#

"Y

;15

IT

A "Y"

1773 0075110

111110117

SNE

5$

;BR

IF

NOT

"Y"

1774

"075112

104401

007510

TYPE

,65$

"TYPE

ASCIZ

STRING

1775

11075116 11""403

BR

64$

:;GET

OVER

THE

ASC

lZ

1716

1,655'

.ASCIZ

I

YES

I

1777

1107516

645 ,

1778

11107516

"00426

BR

4S

;GO

TO

EXIT

1779

1107520

11'4401

"011

76

5$.

TYPE

,SQUES

;UNKNOWN

REQUEST

1780

11117524

"'011751

BR

is

;GO

ASK

AGAIN

1781

1/1117526

3$'

1782

111117526

1114401

11117534

TYPE

,67.

;;TYPE

ASCIZ

STRING

1783

"87532

11110415

8R

66$

;;GET

OVER

THE

ASCI!

1784

,,67$1

•

ASCI!

* NO---SUPPING

THIS

TEST"

1785

11117566

66$'

1786

1107566 11115720,

TST

(RIll+ ,STEP

OVER

·CR"

RETURN

1787 1107570

""5037

001166

CLR

,*$TI~ES

,CLEAR

ITERATIONS

1788

1107574

1114401

001177

48.

TYPE

.SCRLF

1189

11117600

13126111

MOY

(SPl+.RI

IRESTORE

111

1790

1107602

B00211l0

RTS R0

;RETURN

1791

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

II-JUN·76

13,51

PAGE

41

DZTACC,NEW

**

__

****_.

MANUAL

ADJUSTMENT

ROUTINES

_*********

1792

1793

1794

1795

1796

1797

1798

1799

1900

lUI

1802

1803

1894

1805

1806

1807

1808

1809

1810

IBII

1812

1813

1814

1815

1816

1811

1818

1819

1820

1821

1822

1823

1824

1825

1826

1827

1828

1829

1830

1831

1832

1833

1834

1835

1836

1837

1838

1839

1840

1841

1842

1843

1844

1845

1846

1847

007604

881610

007614

887620

007622

B07630

1107634

891636

007642

007646

087650

007654

1107656

007662

007664

00766&

007670

~07674

007700

007704

007710

007712

007720

007724

007726

007732

007736

0127~6

001100

813704 001206

013785 001212

800005

012737 007604

004737 018610

810314

112714 000017

832714 000040

001775

112714 000001

104412

032714

020000

001772

61101100

l1li0746

004737 010352

012706

001100

013704 001206

013705 001212

"""005

012737 007674

004737 010610

~lnl4

112714 000017

032714 000040

001775

TAil

MANUAL

INTERVENTION

TEST

DZTACC

,NEW

WRITE

1848 007740 004737 010466

1849

007744

032714

020000

1850

007750

001773

1851 007752

""0000

1852 007754

0BaH7

1853

\854

1955

1856

1857

1858

185q

1860

1861 001756 012706 001100

1862 001762 013704 001206

1863 007766

1113705

001212

1864 007772 000005

1865

007774

012737 007756

1866 010002 004737 010610

1967

01""06

010314

1868 010010 112714 000017

1869 010014 032714 000040

1870 010020

"01775

1871 010022

1104737

010530

1872

1110026

032714 020000

1873 010032 001 ]51

1874

0100)4

000772

1875

1876

1817

1878

1879

1880

IB8\

1882

1883

\884

1885

1886

1987

\188

\889

1890

1891

8101136

804737

0111352

1892 010042

1112706

001100

1893

0111046

1I1l704 001206

1894

818052 1I1l705 001212

1895

01111156

ell0005

\896

010060 012737

0111042

1891

810066

"04737

010610

1898 010072 010314

1899

810014

112714 000017

1900

910100

032714 090040

1901

1110104

901775

1902

1110106

112714 090001

1903

1110112

104412

001110

00\110

,1111111111111111111111111111111111111111111111111111111111111111111111

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

,1111111111111111111111111111111111111111111111111111111111111111111111

:,*

•••

**************-*

••

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

,

WRITE

FILE

GAPS

FROM

'BOT"

TO

"EOT'

,START

AT

220

,THIS

ROUTINE

CAN

BE

USED

TO

ADJUST

THE

"WRITE

GAP

MONO"

AND

,THE

'WRITE

DELAY

MONO",

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

WF'GSUBI

MOV

#STAC~,SP

,KEEP

THE

STACK

OUT

OF

THE

WAY

MOV

"TACSL,TAes

,SETUP

THE

TAil

STATUS

AND

MOV

@ITADBL,TADB

IDATA

BurFER

REGISTERS

RESET

,RESET

THE

WORLD

MOV

.WFGSUS,USLPERR ,SETUP

THE

LOOP

ON

ERROR

ADDRESS

JSR PC, .,NlTDRV

,GO

SETUP

FOR

HOV

DRIVE,PrACS ,SELECT

DRIVE

MOVB

.REWINDIGO,@TAeS

,SEND

TAPE

TO

"BOT"

10081 BIT 'READY.nACS

,WAIT

ON

READY

BEQ

100S

1$1

MOVB

IWFGIGO,8TACS

,WRITE

A

fILE

GAP

WAITREADY

,WAIT

ON

READY

BIT

HEADER,

nACS

,AT

'CLEAR

LEADER"?

BEQ

IS

,BII

IF

NO

HALT

,STOP

IF

YES

811

WFGSUB

ILOOP

ON

CONT,

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

•••

**********************************************.**

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

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

WRTSUS,

JSR PC,PlSETBUF

,GET

BLOCK

SIZE

AND

PATTERN

WLOOP,

MOV

UTACK,SP ,KEEP

THE

STACK

OUT

OF

THE

WAY

MOV

UTACSL,TACS ,SETUP

THE

TAIl

STATUS

AND

MOV

@trADBL,TADS

IDATA

BUFFER

REGISTERS

RESET

,RESET

THE

WORLD

MOV

WWLOOP,

U8LPERR ,SETUP

THE

LOOP

ON

ERROR

ADDRESS

JSR

PC,P.NXTDRV

,GO

SETUP

fOR

MOV

DRIVE,9TACS ,SELECT

DRIVE

Mova

IREWIND!GO,nACS

,SEND

TAPE

TO

'SOT"

10081 BIT

.READY,

nACS

,WAIT

ON

READY

BEQ 1008

~AINDEC·II·DZTAC-C

MACYlI

27(732)

II-JUN-76

13,51

PAGE

42

CONTINUOUS

BLOC~S

OF

DATA

181 JSR

PC,~'WRTBLK

,WRITE

A

BLOCK

BIT

.LEADER,

nACS

,AT

'CLEAR

LEADER"?

SEQ

IS

,8R IF

NO

HALT

:STOP

IF

"EOT"

SR

WLOOP

,LOOP

IF

CONT,

JJ

•••

_

•••••••

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

••

_.*._

.•..

**.*.**.-.-

•.

*._

.•

****

••

****

READ

CONTINUOUS

BLOCKS

OF

DATA

,START

AT

230

,THIS

ROUTINE

CAN

BE

USED

TO

ADJUST

THE

'SIGNAL

~ONO'

,AND

THE

"THRESHOLD

POT",

:,********

••

****.************************************************

RDSUS:

MOV

#STACK,SP

,KEEP

THE

STACK

OUT

or

THE

WAY

MOV

@STACSL,TACS

,SETUP

THE

TAil

STATUS

AND

MOV

"TADBL,

TADB

,DATA

BUFFER

PEGISTERS

RESET

,RESET

THE

WORLD

001110

MOV

.RDSUS, USLPERR ,SETUP

THE

LOOP

ON

ERROR

ADDRESS

JSR

PC,UNXTDRV

,GO

SETUP

FOR

MOV

DRIVE,nACS

,SELECT

DRIVE

MOVB

tREWItIDIGD,nACS

,SEND

TAPE

TO

"BOT"

100S:

BIT iREADY,UACS

,WAIT

ON

READY

BEQ

100S

IS:

JSR

PC,URDBLK

,READ

A

BLOCK

BIT

#LEADER,

PrACS

,AT

·CLEAR

LEADER"?

8NE

RDSUS

:BR

IF

YES··-LOOP

SR

1$

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

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

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

...•......

WGPBLKI

JSR

PC,'UETBUF

,GET

BLOCK

SIZE

AND

PATTERN

WGBLOP,

MOV

UTACK,SP ,KEEP

THE

STACK

OUT

OF

THE

WAY

MOV

"TAeSL,TACS ,SETUP

THE

TAil

STATUS

AND

MOV

"UDBL,TADB

,DATA

BUFFER

REGISTERS

RESET

,RESET

THE

WORLD

001110

MOV

IWGBLOP,

..

GUERR

,SETUP

THE

LOOP

ON

ERROR

ADDRESS

JSR

PC,UNXTDRV

,GO

SETUP

FOR

MOV

DRIVE,nACa

,SELECT

DRIVE

MOVB

IREWINDIGO,UACS

,SEND

TAPE

TO

"80T"

10081

BIT UEADY,nACS

,WAIT

ON

READY

BEQ

1008

181

MOVS

UFGIGO,.TACS

,WRITE

A

FILE

GAP

WAITREADY

,WAIT

ON

READY

SEQ

0054

SEQ

0055

TAli

MANUAL

INTERVENTION TEST MAlNDEC-II-0ZTAC-C

MACYlI

27(732)

11-JUN-76

\3151

PAGE

U

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

1110140

"10144

1110150

0111154

11111156

1110164

910179

1110172

1110176

1110202

010204

01"210

1110214

01"216

01"222

010224

010230

"10232

"10234

"10240

010244

010250

010252

0102611

"10264

010266

010272

"10276

111"311"

1110304

032714

0111005

""4737

1132714

""1765

0""""0

0"0741

012706

1113704

1113705

0110"05

012737

004737

010314

112714

1132714

001775

0114737

032714

001151

112714

1114412

032714

0"1343

000764

012706

013704

013705

000005

012737

004737

010114

112714

032714

001775

\12714

104412

020000

010466

020000

1101100

001206

001212

010140

010610

000017

000040

010530

020000

000"15

020000

""1100

,,1112116

001212

010234

010610

000017

000040

000013

001110

"01110

2$1

BIT

BNE

JSR

BIT

BEQ

HALT

BR

'LEADER,fTACS

2S

PC,@#WRTBLK

,LEADER,UACS

11

WGBLOP

:AT 'CLEAR LEADER'?

,BR

IF

YES

,WRITE A

BLOCK

:AT

"CLEAR

LEADER"?

,BR

IF

NO

:STOP

AT

MEOT"

:START

OVER

ON

CaNT.

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

:

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

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

RGPBLK,

HOV

'STACK,SP

:KEEP

THE

STACK

OUT

OF

THE

WAY

MOV

"TACSL,TACS

:SETUP

THE

TAil

STATUS

AND

MOV

"TADBL,TADB

:DATA

BUFFER

REGISTERS

RESET :

RESET

THE

WORLD

HOV

'RGPBLK,@#SLPERR ,SETUP

THE

LOOP

ON

ERROR

ADDRESS

JSR

PC".NXTDRV

,GO SETUP

FOR

MOV

DRIVE,tTACS :SELECT

DRIVE

MOVB

IREWINDIGO,@TACS ,SEND

TAPE

TO

"BOT"

100S:

BIT ,READY,tTACS :WAIT

ON

READY

BEQ

100S

IS:

JSR

PC,t'RDBLK

,READ A

BLOCK

OF

DATA

BIT

'LEADER,@TACS :AT 'CLEAR LEADER'?

8NE

RGPBLK

IBR

IF

YES

HOVB

'SFBG!GO,'TACS

:GET

INTO

A

FILE

GAP

WAITREADY

BIT

'LEADER,@TACS :AT

"CLEAR

LEADER"?

BNE

RGPBLK

:

BR

IF

YES

BR

1$ ;LOOP

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

SPACE

FORWARD

FILE

GAP

FROM

'BOT'

TO

"EaT"

,START AT

244

:THIS

ROUTINE

CAN

BE

USED

AFTER

'WRITE

FILE

GAP"

FOR

LOW

SPEED

,SPACE

Fa

WARD

(TAPE

BLANK

MONO

CAN

BE

ADJUSTED),

OR

AFTER

READ

OR

:WRITE A

FILE

GAP

AND

A

BLOCK

OF

DATA

FOR

HIGH

SPEED

SPACE

FORWARD

,(SIGNAL

MONO

CAN

BE

CHECKED).

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

SFFGSB:

MOV

'STACK,SP

:KEEP

THE

STACK

OUT

OF

THE

WAY

MOV

@'TACSL,TACS :SETUP

THE

TAil

STATUS

AND

MOV

@'TADBL,TADB

:DATA

BUFFER

REGISTERS

RESET

:RESET

THE

WORLD

MOV

'SFFGSB,@'SLPERR ,SETUP

THE

LOOP

ON

ERROR

ADDRESS

JSR

PC,@#NXTDRV

:GO

SETUP

FOR

MOV

DRIVE,@TACS :SELECT DRIVE

MOVB

'REWIND!GO,@TACS :SEND

TAPE

TO

"BOT"

100S:

BIT

'READY,@TACS :WAIT

ON

READY

8EO

100S

1$:

MOVB

'SFFG!GO,@TACS :SPACE

INTO

A

FILE

GAP

WAITREADY

:WAIT

ON

READY

TAil

MANUAL

INTERVENTION TEST MAINDEC-Il-DZTAC-C

MACYI!

27(732)

II-JUN-76

13:51

PAGE

44

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

1997

1998

\999

2000

2001

2002

2003

2il04

2"05

2086

2801

2008

2809

2010

2011

21112

2111l

2014

2015

8U306

010312

010314

910316

1110320

010322

"10330

010332

0111336

010340

810344

0\8346

010350

010352

010354

810356

1118364

010366

010370

010314

818376

818402

810484

010410

"10412

"10416

818422

810424

018432

018434

818436

816444

818446

810454

810456

8111460

fU0468

8111462

8111464

032114

020000

001772

000000

000746

800005

012137

010320

010314

112714

088007

104412

032714 020000

"01772

980000

0011763

005000

000000

022767

000176

"01001

104405

157700 170544

0111006

105717 170531

801402

012190 008376

005200

018031

010462

01151137

010464

008000

822767

000116

&01001

104405

111737 170416

8"8000

022167

000176

&81001

1114485

8110207

0110800

11801100

001110

170554

110506

010464

178464

BIT

BEQ

HALT

BR

ILEADER,

nAC

S

IS

SFFGSB

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

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

BSFGSB:

RESET

,RESET

THE

WORLD

MOV

,BSFGS8,@'ILPERR

,LOOP

ON

ERROR

ADDRESS

~OV

DRIVE,PTACS ,SELECT

DRIVE

IS'

MOVB

i8SFGIGO,~TACS

:BACK

SPACE

A

FILE

GAP

WAlTREADY

,WAlT

ON

READY

BIT

'LEADER,@TACS ,AT

"CLEAR

LEADER"?

BEQ

IS

:8R

IF

NO

HALT

,STOP

AT

BOT

eR

BSFGSB

,START

OVER

ON

CaNT.

JJ****************************************************

*****.*.***

: SETUP

BLOCK

SIZE

AND

PATTERN

FOR

SUBROUTINES

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

SETBUF, eLR

RIl

2011

1$,

2$1

HALT

eMP

BNE

GTSWR

BlSB

BHE

TSTB

BEQ

MOV

INC

.

MOV

#SWREG,SWR

20$

PSWR,R0

2.

'SWR.I

IS

1376,R0

R0

R0,

PlBLKLIM

"PATTRN

:PICKUP

:OPERATOR

PUTS

BYTE

COUNT

,USING S/W

SWITCH

REG?

:NO-

GET

OUT

:GET

VALUE

,CONTINUE

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

IN

SWR<7'0>

eLR

HALT

CMP

BNE

GT5WR

ISNREG,SWR

21S

:OPERATOR

PUTS

PATTERN

IN

SWR<1.0)

:USING

SIN

SWITCH

REG?

21S,

22$1

MOVB

HALT

CMP

8NE

GTSNR

RTS

BLKLIM: 0

PUTRN,

0

'SWR, '.PATTRN

#SWREG,SWR

22$

PC

: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

SEQ

0056

SEQ

0057

..

TAli

MANUAL

INTERVENTION

TEST

MAINDEC-II-OZTAC-C

MACYlI

27(732)

II-JUN-76

13,51

PAGE

45

SEQ

0058

OZTACC,NEW

WRITE

ROUTINE

FOR

THE

MANUAL

OPERATIONS

2016

WRITE

ROUTINE

FOR

THE

MANUAL

OPERATIONS

2017

:r************************·*************.**********************.*

2018 1110466

0137111

010462

WRTBLK,

MOV

'IBLKLIM,RI ,PICKUP

THE

BLOCK

SIZE

2019

010472

112714

000003

MOVB

IWRITEIGO,nACS

,START

A

WRITE

2020

1110476 104413

IS,

WAITXFER

,WAIT

ON

TRANSFER

REQUEST

2021

010500 032714 000040

BIT .READY,trACS ,DID

READY

SET?

2022 010504

0011110

BNE

3'

,BR

IF

YES

2023

010506

005301

DEC

RI

,COUNT

THIS

REQUEST

2024

0105\0

002403

BLT

2$ ,BR

IF

TIME

FOR

ILBS

2025

010512

113715 010464

MOVB

PtPATTRN,

UAOB

,PUT

DATA

ON

TAPE

2026

at0516

"00767

BR

1$

,LOOP

2027 1110520 052714 000020

2$,

BIS

IILBs.nACS

,WRITE

CRC

AND

SHUT

DOWN

2028

010524

104412

WAITREADY

,WAIT

ON

THE

READY

FLAG

2029

010526

000207

)s:

RTS

PC

20)0

2031

2032

Jr··*··**··*···**···*·****··*·**·····**·_**·······.··.****.*****.

2033

READ

ROUTINE

FOR

THE

MANUAL

OPERATIONS

2034

,,*

••••

**

••

***

•••••••••••••••••••••

*********.**.*****************

20]5

010530

013702 010462

RDBLK,

MOV

UBLKLIM.R2 ,PICKUP

THE

BLOCK

SIZE

2036

010534 013700

0104b4

HOV

UPATTNN.R0 ,USE THIS

DATA

PATTERN

TO

COMPARE

TO

2037

010540

112714

000005

MOVB

'READ!GO.@TACS

,START

A

READ

2038

010544

104413

1$'

WAITXFER

,WAIT

ON

TRANSFER

REQUEST

2039

01054b

032714

000040

BIT tREADy.nACS

,15

READY

SET?

2040

010552

001012

BNE

3$ ,BR

IF

rES

2041 1110554 005302

DEC

R2

,COUNT

THIS

REQUEST

2042

010556

002405

BLT

2S

,BR

IF

TIME

FOR

ILBS

2043

010560

011501

MOV

trADB.RI

,READ

THE

DATA

BUFFER

2044

010562

120001

CMPB

R0,Rl

,CHECK

THE

DATA

2045

010564

001767

BEQ

1$

tBR

IF

01{

2046

010566

U4005

ERROR

5

,BAD

DATA

2047

010570

000406

BR

4S

,GET

OUT

2048 010572 052714

000020

2$ : BIS

UtBs.nACS

,READ

ILes

2049 010576 104412

WAITREADY

,WAIT

ON

READY

2050

010b00

005714

3S:

TST

@TACS

,CHECK

FOR

ERROR

2051 010602 100001

BPL

4S

,BR

IF

NONE

2052

010604

104001

ERROR

I

,ERROR

OCCURRED

2053 010606 000207

4S'

RTS

PC

,RETURN

2054

2055

2056 JJ

•••••

******.****

••••••

**

••

*********************.*****.*.*.*.***

2057 ,

ROUTINE

TO

CHANGE

DRIVES

2058

010610

105777 170324

NXTDRV,

TST8

,SWR

:IS

SW07

ON

A

[1)

?

2059 010614 100416

BMI

3$

,SR

IF

YES

2060 010616 005003

CL~

DRIVE

,SET

DRIVE

TO

HAW

2061

010620

013701

001230

HOV

UDRVPNT.RI ,GET

DRIVE

POINTER

2062 010624 122127 000101

CHPB

(R1

)+,

'''A

:15

IT

DRIVE

"AH?

2063

010630

001402

BEQ

1$

,BR

IF

YES

2064 010632 012703 000400

MOV

.UNIT,DRIVE

JSET

O~IVE

TO

"B"

2065 010636 105711

1$:

TSTB

(RI)

,LAST

DRIVE

BEEN

SELECTED

2066

010640

001002

BNE

2$

,BR

IF

~o

2067 010642 012701 001224

HOV

,DRVKEY.RI ,RESET

DRIVE

POINTER

2068

010646

010137

"01230

2S'

HOV

RI.@#DRVPNT

,SAVE

DRIVE

POINTER

fOR

2069 010652 000207

3$

:

RTS

PC

,GO

BACK

TAil

MANUAL

INTERVENTION

TEST

MA

INOEC-II-DZTAC-C

MACYlI

27(732)

II-JUN-76

13,51

PAGE

4b

SEQ

0059

DZTACC,NEW

ROUTINE

TO

CHANGE

DRIVES

2070

f:****-·*****--***-*·-·**-******-***-*-*******-*_·****

***********

2071 ,

2072

.SBTTL

ROUTINE

TO

EXAMINE

DRIVE(S)

FOR

AVAILABLITY

207)

2074 ,CALL'

2075

MOV

#DRVKEY.R0

2076 JSR

PC'~'EXAM

,RI

IS

DESTROYED

2077

NORMAL

RETURN

2078

ERROR

RETURN

2079

2080

010654

013701 001206

EXA~'

MOV

~nACSL.RI

,PICKUP

THE

"CONTROL' STATUS'

REG.

ADR.

2081

010660

005011

CLR

(RIl

:DRIVE="A",

FUNCTION="WFG"

2082

010662

122710 000101

CMPB

'-A,

(R0)

:EXAMINE

DRIVE

NAn?

2081

11110666

001402

BEQ

IS

,BR

IF

YES

2084

010670

052711

000400

BIS

,UNIT,(RI)

,SELECT

DRIVE

"B"

2085

010674

032711 000040

IS:

BIT

.READYtlRll

,WAlT

ON

READY

2086

010700 001775

BEQ

IS

2087

010702

005711

TST

(RI)

,ANY

ERROR?

2088

010704

100024

BPL

4S

,BR

IF

NO

2089

010706

032711 001000 BIT .OFFLINE.

(RI)

,ERROR

DUE

TO

"OFF

LINE"?

2090

010712

001017

8NE

3.

,BR

IF

YES

2091

010714

032711

010000

BIT

,WRTLOCK.

(RI)

,ERROR

DUE

TO

'WRITE

LOCK"?

2092

010720

001411

BEQ

2$

,8R

IF

NO

2093 1110722 122777 O00201

170210

CMPB

,8IT07IBIT00.@SWR

,"READONLY'

SELECTED?

IRDIPAS)

2094 010730 001412

BEQ

4S

,BR

IF

YES

2095 010732 122777 000203

170200

CMPB

'8IT07IBIT01IBIT00.@SWR ,(RD2PAS)?

2096

010740

001406

BEQ

4S

,BR

IF

YES

2097 010742 000403

SR

3S

,TAKE

THE

ERROR

EXIT

2098 A10744 032711

020000

2S:

BIT 'LEADER.tRIJ

,ERROR

DUE

TO

"CLEAR

LEADER"?

2099

010750

001002

8NE

4$

,BR

IF

YES

2100 010752 062716 000002

35,

ADD

n.ISP)

,TAKE

ERROR

RETURN

2101

010756

000207

U:

RTS

PC

,RETURN

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-Il-0ZTAC-C

MACHI

27(732)

II-JUN-76

13,51

PAGE

47

SEQ

0060

DZTACC,NEW

TYPE

ROUTINE

2102

.S8TTt

TYPE

ROUTINE

2103

2104 , r ***4'''"**********************''''-il-************************'**********

2105

I*POUTINE

TO

TYPE

AselZ

MESSAGE.

MESSAGE

MUST

TERMINATE

WITH

A 0

BYTE.

2106 ,*THE

ROUTINE

WILL

INSERT

A

NUMBER

OF

NULL

CHARACTERS

AFTER

A LINE

FEED.

2107 ,*NOT£I,

SNULL

CONTAINS

THE

CHARACTER

TO

BE

USED

AS

THE

FILLER

CHARACTER.

2108

p"NOTE2

: BFILLS

CONTAINS

THE

NUMBER

OF

FILLER

CHARACTERS

REQUIRED,

2109 ,*NOTE3, .FILLC

CONTAINS

THE

CHARACTER

TO

FILL

AFTER.

2110

;*

211\

"CALL,

2112

;.\)

USING

A

TRAP

INSTRUCTION

2113

,*

TYPE

,MESADR

:,MESIOR IS FIRST

ADDRESS

or

AN

ABCIZ

STRING

2114

:*OFl

2115

,-

TYrE

2116

,-

MESIDR

2117

I-

2118

2119

010760

105767 ! 70173

STYpg.

Tsrs

STPFLG

,:IS

THERE

A

TERMINAL?

2120

010764 100002

BPL

IS

nBR

If

YES

2121

010766

000000

HALT

"HALT

HERE

IF

NO

TERMINAL

2122

010770

000407

SR

3S

,

;LEAVE

2123

010772

01004.

1$,

HOV

R0.-(SP)

nSAVE

R0

2124 010174 017600 000002

MOV

@2(SP)'R0 :,GET

ADDRESS

OF

ABCIZ

STRING

2125

011000

112046

2$.

Move

(P0l+.-eSP)

"PUSH

CHARACTER

TO

BE

TYPED

ONTO

STACK

2126

011002

001005

SNE

4S

;,SR

IF

IT

ISN',

THE

TERMINATOR

2127

011004

005126

TST

(

SP).

"IF

TERMINATOR

POP

IT

OFF

THE

STACK

2128

011006

012600

&0S:

MOV

(SPH·,R~

, :

RESTORE

R0

2129

011010

06271.

000002

38:

ADD

$

2,

(SF)

"ADJUST

RETURN

PC

2130 011014

000002

RTX

I,RETURN

2131 011016

12271.

000011

4&

,

CMPB

IHT, (SP)

I,BRANCH

IF

<HT'

2132

011022

001430

BEQ

8S

2133

011024

122716 000200 CMPS ICRLf,

(SP)

J

:BRANCH

If

NOT

<CRLF>

2134

SH0l0

00100.

eNE

58

2135 011032

~05726

TST

(SF)+

nPO?

EOUIV

2136 011034

104401

TYPE

11TYPE

A

CR

AND

LF

2137

011036

001177

SCRL,

2138

011040

!

05067

000130 CLRB

SCH~RCNT

:1CLEAR

CHARACTER

COUNT

2139

011044

000755 SR 2.

"GET

2140

01104.

004767 000056

5S.

JSR

PC,

STYPEC

"GO

TYPE

THIS

CHARACTER

2141

011052

126726

170100

6S,

CMPB

HILLC,

(SP»

1,IS

IT

TIME

FOR

FILLER CHARS,?

2142

01

I

056

001350

BNE

2S

;llF

NO

GO

GET

2143 011060

61674.

170070

HOV

SHULL,-ISP)

;,CET

•

OF

FILLER

CHARS,

NEEDED

2144

"AND

THE

NULL

CHAR,

2145 011064 105366

M0001

7$,

DECS

I

(SP)

;,DOES A

NULL

NEED

TO

BE

TYPED?

2146

011070

002770

BLT

6$

;ISR

IF

NO--GO

POP

THE

NULL

OFF

OF

STACK

2147

011012

004761

000032

JSR

PC,

STYPEe

IIGO

TYPE

A

NULL

2148

011076 105367 000072

DECB

$CHARCNT

"DO

NOT

COUNT

AS

A

COUNT

2149 011102

000770

SR

76

:

.LOOP

2150

2151

I

HORIZONTAL

TAB

PROCESSOR

2152

2153

011104 j 12116

000040

81:

Move

#

~

,

(SP)

"REPLACE

TAB

WITH

SPACE

2154

011110

004767 000014

9S:

JSR

PC.

$TYPEC

"TYPE

A

SPACE

2155

011114

132767 000007 000052 BITH

~7.SCHARCNT

"SRANCH

If

NOT

AT

2156

~11122

331372

8NE

9$

If

TAB

STOP

2157

~11124

005726

TST

(SP,.

n

POP

SPACE

OFf STACK

TAil

MANUAL

INTERVENTION

TEST

MAINDEC·ll-DZTAC~C

MACYI!

21(732)

Il-JUN-76

13,51

PAGE

48

SEQ

006\

DZTArc

.NEW

TYPE

ROUTINE

2158

011126

000724

BR

2$

"GET

2159

011110

105771 170014 nYPEe, T5rB

@eTPS

"WAIT

UNTIL

PRINTER

IS

READY

2160 011134 100175

8PL

aTYPEC

2161 011136 116677 000002 170006

MOVB

2(SP),@STPB ;

,LOAD

CHAR

TO

BE

TYPED

INTO

DATA

REG,

2162

011144 122760

000015

000002

CMPB

leR,

2

(SP)

.,15

CHARACTER

A

CARRIAGE

RETURN?

2163 011152

001001

8NE

IS

1,BRANCH

IF

NO

2164

011151

105367 000014

CLRB

SCHARCNT

"Y~S-·CLEAR

CHARACTER

COUNT

2165

011160

000406

BR

STYPEX

nEXIT

2166

011162

122166 000012 000002

IS,

CMPB

ijLF.2(SP)

;,IS

CHARACTER

A

LINE

FEED?

2167 01117O 001402

BEQ

STYPEX

"BRANCH

IF

YES

2

16B

011172

105227

INCB

(PC).

::COUNT

THE

CHARACTER

2169

011174

000000

SCHARCNT,

•

WORD

0

:;CHAPACTEP

COUNT

STORAGE

2170

011176

000207 STHEX,

RTS

PC

2171

2172 ,58TTL

TTY

INPUT

ROUTINE

2173

2174

::

••••

*

••••••

*

•••

*.*

•••

*

•••••••••••••••••••

~*

•••••••

*

••••••••••••

2175 ,ENABL

LSB

2176

2177

:,

••••••••••••••••••••••••••••••••••••••••••••••••

*

•••

~

••••

*

•••

*.

2178

;>SOFTWARE

SWITCH

REGISTER

CHANGE

ROUTINE,

2179 :*ROUTINE

IS

ENTERED

FROM

THE

TRAP

HANDLER,

AND

wILL

2180 ;<SERVICE

THE

TEST

FOR

CHANGE

IN

SOFTWARE

SWITCH

REGISTER

TRAP

CALL

21

B I

;_WHEN

OPERATING

IN

TTY

FLAG

MODE,

2182

011200

022767 000176 167732

SCKSWR,

CMP

#SWFEG,SWR

;,15

THE

SOFT-SWR

SELECTED?

2183

011206

001074

SNE

15S

"BRANCH

IF

NO

2194

011210

105771

167730

TSTB

@STKS

"CHAR

THERE?

2185

011214

100071

BPL

ISS

::

IF

NO,

DON'T

WAIT

AROUND

2186

011216

117746

167724

Move

@STKB,-ISP) ;

~SA.VE

THE

CHAR

2187

011222

042116

117600

BIC

#-Cl77.1SP)

;,STRIP-OfF

THE

ASCII

2188

011226

022726

000007

eMP

#7,(SP)t

:.15

IT A

CONTROL

G?

2189

011232

001062

BNE

15$

nNO,

RETURN

TO

USER

2190 011234 126721 167674 000001

CMPB

SAUTOS,

n I

"ARE

WE

RUNNING

IN

AUTO-MODE?

2191

011242

001456

BEQ

ISS

.;BRANCH

IF

YES

2192

2193

0112H

104401

011725

TYPE

,

SCNTI.lG

;,ECHO

THE

CONTROL-G

(-G)

2194

011250

104401

011

732

SGTSWR,

TYPE

,SMSWR

"TYPE

CURRENT

CONTENTS

2195

011254

01674.

166716

HOV

SWREG.

-(SF l "SAVE

SWREG

FOR

TYPEOUT

2196

011260

104402

TYPOC

I,GO

TYPE--OCTAL

ASCII(ALL DIGITS)

2197

011262 104401 011143

TYPE

,$MNEW

,:PROMPT

FOR

NEW

SWR

2198 111126. 0115046

19$1

eLR

-(SP)

•

,CLEAR

COUNTER

2199

011270

005046

CLR

-ISPl

.,THE

NEW

SWR

2200

011272

105771

167646

7$.

TsrB

@$TKS

If

CHAR

THERE?

2201

01127.

100375

8Pt

7$

I,IF

NOT

TRY

AGAIN

2202

2203

011300

11774.

167642

Mova

@$TKB.-(SP)

"PICK

UP

CHAR

2204

011304

042716

177600

aIC

'·CI77.1SP)

:,MAKE

IT

7-BIT

ASCII

2205

2206

2207

2208

011310

021627

000025

90,

CMP

(SPl.~l5

;,IS

IT A

CONTROL-U?

2209

011314

001005

SNE

10$

I,BRANCH

IF

NOT

2210

011316

104401

011720

TYPE

,GCNTLU

11

YES,

ECHO

CONTROL-U

(-U)

2211

011322

062706

000006

20$

,

ADD

'6,

SP

I,IGNORE

2212

011326

000757

BP

19$

"LET'S

TRY

IT

AGAIN

2213

TAil

MANUAL

INTERVENTiON

TEST

MAINDEC-II-DZTAC-C MACilt

27(732)

II-JUN-76

13151

PAGE

49

SEQ

Bin

OUACC.NEW

TTY

INPUT

ROUTINE

2214

2215 1111330 021627 000015

Illll

CMP

(SP1,US

"IS

IT A

<CR>?

2216 1111334 001022

BNE

16$

"BRANCH

IF

NO

2217

1111336

105766

01101104

TST

HSP)

II

YES,

IS

IT

THE

FIRST

CHAR?

2218 811342

0111403

BEQ

11$

IIBRANCH

IF

YES

2219

811344

016677 000002 167566

MOV

2(SPIo.SWR IISAVE

NEW

StiR

22211

011352 962706 000006

II

S:

ADD

,6,SP

IICLEAR

UP

STACK

2221 011356 104401

00\177

lUI

TYPE

,SCRLF

IIECHO

<CR>

AND

<LF>

2222 011362 126727 167547 800001

CMPB

UNTAG,U lIRE-ENABLE

TTY

KBO

INTERRUPTS?

2223 011310 001003

8NE

15$

II

BRANCH

IF

NOT

2224 011372 012177 000100 167544

MOV

1100,uns

"

RE-ENABLE

TTY

KBD

INTERRUPTS

2225

011400

000002 151 ,

RTI

I,RETURN

2226 011402 004767 177522

16$.

JSR

PC,STYPEC

nECHO

CHAR

2227 011406 021627 000060

CMP

(SP),

.60

"CHAR < 01

2228 011412 002420

BLT

18$

IIBRANCH

If'

YES

2229 011414 021627 000067

eMP

(SP),

#67

IICHAR

>

7?

2230

011420

003015

BGT

18$

"BRANCH

IF

YES

2231 011422 042726 000060

BIC

.b0,CSP)+

IISTRIP-OFF ASCII

2232

011426

0115766

000002

TST

2(SPI

IllS

THIS

THE

FIRST

CHAR

2233 011432 801403

BEQ

178

nBRANCH

IF

YES

2234 011434 806316

ASL

(SP) IINO, SHIFT

PRESENT

2235 011436 006316

ASL

esP)

n

CHAR

OVER

TO

MAKE

2236

811440

006116

ASL

(SP)

ROOM

FOR

NEW

ONE,

2237 011442 005266 000002

17$,

INC

2CSPI

"KEEP

COUNT

OF

CHAR

2238 011446 056616 177776 BIS

-2(SP),cSP)

"SET

IN

NEW

CHAR

2239 011452 080707

BR

1$

IIGET

THE

2240 811454

10448\

001176

lAS!

TYPE

,SQUES

II

TYPE

?<eR><LF>

2241 011460 090720

OR

20$

IISIMULATE

CONTROL-U

2242

,DSABL

LSB

2243

2244

2245 ;,***************************************************************

2246

I*THI5

ROUTINE

WILL

INPUT

A

SINGLE

CHARACTER

FROM

THE

TTY

2247

,*CALL:

2248

1*

RDCHR

IIINPUT A

SINGLE

CHARACTER

FROM

THE

TTY

2249

1*

RETURN

HERE

I,CHARACTER

IS

ON

THE

STACK

2250

,4

I;WITH

PARITY

BIT

STRIPPED

OFF

2251 I

2252

2253

11\1462 011646

SRDCHR.

MOV

(SP),-(SP)

;

IPUSH

DOWN

THE

PC

2254

911464

016666 000004 000002

MOV

4CSP)'2(SPI

IISAVE

THE

PS

2255 011472 105777 167446

IS:

TSTB

@$TKS

II

WAIT

FOR

2256

~1I476

le0375

8PL

1$

IIA

CHARACTER

2257

ell500

117766 167442 000004

HOVb

@$TKB,4(SPI "READ

THE TTY

2258 011506 042706 177600 000004

BIC

'-C<177>,4(SP)

I,GET

RID

OF

JUNK

IF

ANY

2259 011514 026627

0110004

000023

eMP

4(SP),123

"IS

IT A

CONTROL-57

2260 011522 001013

aNE

38

IIBRANCH

IF

NO

2261 011524 105777 167414

2S,

TST8

@$TKS

IIWAIT

FOR

A

CHARACTER

2262

011530

100375

BPL

2S

"LOOP

UNTIL

ITS

THERE

2263 011532 117746 167410

Move

@eTKB,-CSP)

II

GET

CHARACTER

2264

011536

042716 177600

BIC

'"CI77'(SP)

I,MAKE

IT

7-SIT

ASCII

2265

1111

542 022627 000021

CMP

CSP)."21

1115 IT A

CONTROL-Q?

2266

01154.

001366

SNE

2.

IIIF

NOT

DISCARD

IT

2267

011550 000750

SR

U

/I

YES,

RESUME

2268

01\

552 026627 000084 000140

3$1

CMP

4CSP)dI40

I,IS

IT

UPPER

CASE?

2269

011560 002407

BLT

4S

"BRANCH

IF

YES

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYI!

27(732)

II-JUN.7.

1l.51

PAGE

50

SEQ

0063

DZTACC.

NEW

TTr

INPUT

ROUTINE

2270 011562 026627 000004 000175

CMP

HSP)"175

IllS

IT A

SPECIAL

CHAR?

2271

0\1570

003003

BGT

4$

nBRANCH

IF

YES

2272 011572 042766 000040 000004

BiC

#40,4

(SP)

I,MAKE

IT

UPPER

CASE

2273

011600 000002

4$1

IITI I,GO

BACK

TO

USER

2274

::***

••

**

••••

****

••

*

•••••••••••

**

••

**

••

**

•••••

**

•••

*

••

_

••••••

_

••

-

2275

,*THIS

ROUTINE

WILL

INPUT

A

STRING

FROM

THE TTY

2276 ,.CALL:

2277

I'

ROLIN

"INPUT

A

STRING

FROM

THE TTY

2278

1*

RETURN

HERE

.IADDRESS

OF

fIRST

CHARACTER

WILL

BE

ON

THE

STACK

2279 "

IITERMINATOR

WILL

BE

A

BYTE

OF

ALL

0'S

2280

2281 011602

010]46

SROLINI

MOV

113,-(SP)

nSAVE

P3

2282 011604

1il12703

011710

IS:

HOV

UTTYlN,R3 IIGET

ADDRESS

2281

01\610

022703 011720

28:

CMP

UTTYlN+8

••

R3

/lBUFFER

FULL?

2284

01\6\4

101405

BLOS

4S

IIBR

IF

YES

2285

0\1616

104407

ROCHR

IIGO

READ

ONE

CHARACTER

fROM

THE TTY

2286 011620 112613

MOVB

(SP).,(II])

"

GET

CHARACTER

2287 811622 122713 000177

10S:

CMPB

1177'(Rl)

" IS

IT

A

IIUBOUT

2288 011626

00100]

BNE

3.

II

SKIP

IF

NOT

2289 011630 104401 001176

41.

TYPE

,aQUES ,:TYPE A

"1"

2290 011634

0011763

BR

IS

.,CLEAR

THE

BUFFER

AND

LOOP

2291 011636

\I

1367

0011044

3S1

NOVS

(U),9$

'IECHO

THE

CHARACTER

2292

011642

104401 011706

TYPE

,9$

2293 011646 122723 000015

eMPB

U5.

(113).

"CHECK

FOR

RETURN

2294 011652 001356

BNE

2.

I,LOOP

IF

NOT

RETURN

2295

IH1654

105063 177777

CLIIB

-IIR3)

"CLEAR

RETURN

(THE

15)

2296 011660 104401 001200

TYPE

,SLF

"TYPE

A

LINE

FEED

2297 911664 012603

MOV

(SP)

••

R3

, I

RESTORE

R3

2298

0\1666

011646

MOV

(SP).-(SP)

"ADJUST

THE

STACK

AND

PUT

ADDRESS

OF

THE

2299

811670

016666 ",00004

000002

MOV

4(SP)

,2eSp)

" FIRST ASCII

CHARACTER

ON

IT

2]00

011676 012766 011710

000004

MOV

UTTYIN,4<SPI

2301 011704 000002

RT!

;

IRETURN

2302 011706

00~

9$'

,BYTE "

II

STORAGE

FOR

ASCII

CHAR.

TO

TYPE

2]03

01170'

"00

,BYTE

0

"TERMINATOR

2304

011710

"00010

fTTYINI

•

BLKB

a • I,RESERVE 8

BYTES

FOR

TTY

INPUT

2305

01\

7211

052536 005015 000 .CNTLU, .A5CIZ

/"U/<15><12>

I!CONTROL

·U·

2306 011725

136

0~6507

000012

SCNTLG.

,ASCIZ

I"G/cI5><12>

IICONTROL

"C"

2307

011732 \l05015 853523

020122

eMSWR:

.ASCIZ <15><12>/5WR = I

2308 011740

1120075

000

2309

011743

040

047940

0~3505

GMNEW.

.ASCll

NEW

= I

2310 011750 036440

000040

2311 .SBTTL

READ

AN

OCTAL

NUMBER

FROM

THE

TTY

2112

2313

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

2314

I*THIS

ROUTINE

WILL

READ

AN

OCTAL

(ASCII)

NUMBER

FROM

THE

TTY

AND

2315

I*CHANGE

IT

TO

BINARY.

2316

;*CALLI

23\7

1*

RDOCT

:IREAO

AN

OCTAL

NUMBER

2318

,.

RETURN

HERE

'ILOW

ORDER

BITS

ARE

ON

TOP

OF

THE

STACK

2319

,*

;IHIGH

ORDER

BITS

ARE

IN

SHIOCT

2320

2321 011 754 011646

SROOCT,

MOV

(SP),-(SP)

"PROVIDE

SPACE

FOR

THE

2322

01\

756

1116666

000094

0001102

MOV

4(SP)'2(SP)

IIINPUT

NUMBER

2323 011764

£110046

MOV

RIl,-(SP)

,IPUSH

R0

ON

STACK

2324

011766

010146

MOV

RI,-ISP)

"PUSH

RI

ON

STACK

2325

011770

010246

MOV

R2,-(SP)

IIPUSH

R2

ON

STACK

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYII

27(732)

II-JUN-76

13:51

PAGE

51

SEQ

111164

DZTACC.NEII

READ

AN

OCTAL

NUMBER

FROM

THE

TTY

2326 011772 !B44I11

IS:

ROLIN

IIREAD

AN

ASCIZ

LINE

2327

BII774

111261111

MOV

(SPl+.

R0

IIGET

ADDRESS

OF

1ST

CHARACTER

2329

BII776

88511111

CLR

RI

IICLEAR

DATA

WORD

2329

111211110

985902

CLR

112

2330

111211112

1121146

2S:

MOVB

(RII)t.-(SP)

IIPIC~UP

THIS

CHARACTER

2331

111211114

9111412

BEQ

3$

IIIF

ZERO

GET

OUT

2332 912006 806381

ASL

RI

,;*2

2333

111120111

11116102

ROL

R2

2334

BI21112

8B6301

ASL

RI

:;*4

2335

11121114

8116102

ROL

R2

2336 012016

0116301

ASL

RI

n*8

2337

BI21120

006102

ROL

R2

2339

11121122

042716 177770

BIC

'-C7.

(SP)

IISTRIP

THE

ASCII

JUNK

2339

11121126

8626111

ADD

(SP)+.RI

IIADD

IN

THIS DIGIT

23411

B121130

8011764

BR

2$ "LOOP

2341 1112032

11115726

3S1

TST

(SP).

IICLEAN

TERMINATOR

FROM

STACK

2342 1112034 818166

11100012

MOV

RI.12(SP)

IISAVE

THE

RESULT

2343 012040

0111267

9011010

MOV

R2.SHIOCT

2344

0121144

012602

MOV

(SP)

••

R2

IIPOP

STACK

"INTO

R2

2345 012046 812601

MOV

(SPl+.RI

IIPOP

STACK

INTO

RI

2346

1112115B

012600

MOV

(SP)+.R"

II

POP

STACK

INTO

RII

2347

11121152

II01l002

RTI

"RETURN

2348

1112054

01111000

$HIOCT:

.WORD

0 IIHIGH

ORDER

BITS

GO

HERE

2349

.SBTTL

BINARY

TO

OCTAL

(ASCII)

AND

TYPE

2350

2351

,,***************************************************.***********

2352 I*THIS

ROUTINE

IS

USED

TO

CHANGE

A

16-BIT

BINARY

NUMBER

TO

A 6-DIGIT

2353

I*OCTAL

(ASCII)

NUMBER

AND

TYPE

IT,

2354 :*STYPOS---ENTER

HERE

TO

SETUP

SUPPRESS

ZEROS

AND

NUMBER

OF

DIGITS

TO

TYPE

2355 :*CALL:

2356

:*

MOV

NUM.-(SP)

IINUMBER

TO

BE

TYPED

2357

1*

TYPOS

::CALL

FOR

TYPEOUT

2359

1*

.BYTE

N

I:N=I

TO

6

FOR

NUMBER

OF

DIGITS

TO

TYPE

2359 1*

.BYTE

M

;:M=l

OR

0

2360

:*

III=TYPE

LEADING

ZEROS

2361

1*

111l=SUPPRESS

LEADING

ZEROS

2362

1*

2363 :.$TYPON-·--ENTER

HERF.

TO

TYPE

OUT

WITH

THE

SAME

PARAMETERS

AS

THE

LAST

l

2364

I*STYPOS

OR

STYPOC

2365

:*CALL:

2366

I"

MOV

NUM.-(SP) I I

NUMBER

TO

BE

TYPED

2367

1*

TYPON

IICALL

FOR

TYPEOUT

2368

I·

2369 I*$TYPOC---ENTER

HERE

FOR

TYPEOUT

OF

A 16 BIT

NUMBER

2370

:*CALL:

2371

1*

MOV

NUM.-(SP)

IINUMBER

TO

BE

TYPED

2372

1*

TYPOC

IICALL

FOR

TYPEOUT

2373

2374 012056 017646 000000

STYPOS:

MOV

'(SPl.-(SP)

::PICKUP

THE

MODE

2375 012062 116667 000001 000211

MOVB

I

(SP).

$0ULL

IILOAD

ZERO

FILL

SWITCH

2376 012070 112667 000207

MOVB

(SP)+.SOMODE+I

IINUMBER

OF

DIGITS

TO

TYPE

2377 012074 062716 000002

ADD

12.(SP)

IIADJUST

RETURN

ADDPESS

2379 012100 000406

BR

$TYPON

2379 012102 112767 000001 000171 ,TYPOC,

MOVB

U.S0FILL

:

;SET

THE

ZERO

FILL

SWITCH

2390 012110 112767 000006 000165

MOVB

'6.$OMODE+1

"SET

FOR

SIX(6)

DIGITS

2381 012116 112767 000005 000154

STYPON,

MOVB

IS.$OCNT IISET

THE

ITERATION

COUNT

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACY!

I

27(732)

II-JUN-76

13,51

PAGE

52

SEQ

0065

DZTACC.NEW

BINARY

TO

OCTAL

(ASC

II)

AND

TYPE

2392

012124

1110346

MOV

R3.-(SP)

IISAVE

R3

2393 012126

1110446

MOV

R4.-(SP)

: ,SAVE

R4

2394 1112130

1110546

MOV

R5.-(SP)

::

SAVE

R5

2395 012132 116704 000145

MOVB

SOMODE+I.

R4

;:GET

THE

NUMBER

OF

DIGITS

TO

TYPE

2396

11112136

005404

NEG

R4

2387 012140

11627114

000006

ADD

.6.R4

:ISUBTRACT

IT

FOR

MAX.

ALLOWED

2399 012144 110467 000132

MOVB

R4.

$OMODE

I:SAVE IT

FOR

USE

2399

012150

116704 000125

MOVB

S0FILL.R4 :IGET

THE

ZERO

FILL

SWITCH

2390 012154 016605 000012

MOV

12(SP).R5

IIPICKUP

THE

INPUT

NUMBER

2391 012160 005003

CLR

R3

IICLEAR

THE

OUTPUT

WORD

2392 012162

11116105

1$1

ROt

R5

IIROTATE

MSB

INTO

"C'

2393 012164

IIBII404

SR

3S

IIGO

DO

MSB

2394 012166 006105

2$1

ROL

R5

IIFORM

THIS DIGIT

2395

012170

11116105

ROL

R5

2396

1112172

1106105

ROL

R5

2397 012174

1110501

MOV

R5.R3

2398

012176

006103 3$1

ROL

R3

IIGET

LSB

Of THIS DIGIT

2399

"12200

105367 000076

OECB

SOMDE I:TYPE THIS OIGIT?

2400

012204

100016

BPL

78 IIBR

IF

NO

2401

012206

042703

177770

BIC

1177770,R3

:IGET

RID

Of

JUNK

2402 012212 001002

BNE

4S IITEST

FOR

0

24B3

012214

1105704

TST

R4

I:

SUPPRESS

THIS 0?

24B4

012216

001403

BEQ

5$ IIBR

IF

YES

2405

012220

0052114

4$1

INC

R4

IIDON'T

SUPPRESS

ANYMORE

0'5

2406

11112222

052703

000060

BIS

''''0,R3

IIMAKE

THIS DIGIT ASCII

2407

012226

052703 000040

5S1

BIS

,"

I

R3

I.MAKE

ASCII IF

NOT

ALREADY

2409 012232 110367 000040

MOVB

R3.8S IISAVE

FOR

TYPING

2409

1112236

104401 012276

TYPE

.88

"GO

TYPE

THIS DIGIT

2410 012242 105367 000032

78:

DECB

SOCNT

IICOUNT

BY

I

2411 1112246

1103347

BGT

28

:IBR

IF

MORE

TO

DO

2412

012250

002402

BLT

6S

IIBR

IF

DONE

2413

012252

005294

INC

JI4

IIINSURE

LAST

DIGIT

ISN'T

A

BLANK

2414

012254

0011744

BR

28

IIGO

DO

THE

LAST

DIGIT

2415 012256

0126115

6$:

MOV

(SPl+.

RS

I I

RESTORE

R5

2416

1112260

012604

MOV

(SP)+.R4

I I

RESTORE

R4

2417

012262 012603

MOV

(SP)+.R3

1/

RESTORE

R3

2418

012264

1116666

000002

000004

MOV

2(SP)'4(SP)

I:

SET

THE

STACK

fOR

RETURNING

2419

012272

012616

HOV

(SP)+,

(SP)

2420 1112274 000002

RTI

RETURN

2421 012276 000

9$,

.BYTE

II

STORAGE

rOR

ASCII DIGIT

2422 012277

0110

,BYTE

e

TERMINATOR

FOR

TYPE

ROUTINE

2423

012300

000

SOCNTI

,BYTE

0

OCTAL

DIGIT

COUNTER

2424

1112301

000

'0FILL:

.BYTE

0

ZERO

FILL

SWITCH

2425

1112302

0011000

SOMODE:

.WORD

0

NUMBER

Of DIGITS

TO

TYPE

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

012304

012306

012312

012314

012316

012320

012324

012326

012330

012336

012340

012342

012344

012346

012350

012352

012354

012356

012360

012362

012364

012366

010046

016600

0000112

005740

111000

006300

016000

01214e

000200

011646

016666 000004

000002

012326

010760

012102

012056

012116

011250

011200

011462

011602

011754

006630

006734

MAINDEC-II-DZTAC-C

MACYlI

27(732)

II-JUN-76

13151

PAGE

53

SEQ

0066

000002

.58TTL

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.

STRAP:

MOV

R0.-ISP)

IISAVE

R0

MOV

2ISP).R0

:,GET

TRAP

ADDRESS

TST

-IR0)

"BACKUP

BY

2

MOV8

IR0).R0

"GET

RIGHT

BYTE

OF

TRAP

ASL

R0

, ,POSITION

FOR

INDEXING

MOV

$TRPADIR0).R0

"INDEX

TO

TABLE

RTS

R0

nGO

TO

ROUTINE

,

.THIS

IS

USE

TO

HANDLE

THE

"GETPRI"

MACRO

STRAP21

MOV

(SP)'-ISPI

"MOVE

THE

PC

DOWN

MOV

4(SP)'2ISP)

"MOVE

THE

PSW

DOWN

RTI ,.RESTORE

THE

PSW

.SBTTL

TRAP

TABLE

,*THIS

TABLE

CONTAINS

THE

STARTING

ADDRESSES

Of

THE

ROUTINES

CALLED

,*BY

THE

"TRAP" INSTRUCTION.

~TRPAO:

ROUTINE

.WORO

$TYPE

STYPOC

STYPOS

STYPON

$TRAP2

r ,CALL=TYPE

, ,CALL=TYPOC

"CALL=TYPOS

"CALL=TYPON

SGTSWR

"CALL=GTSWR

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)

TRAP+511044051

GET

SOFT-5WP SETTING

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

MACYlI

27(732)

II-JUN-76

13:51

PAGE

54

SEQ

0067

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

012370

012376

012404

012406

012410

012412

012414

012416

012420

012424

012430

012436

012440

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

010046

010146

010246

010346

010446

810546

017746

010667

012737

000000

000776

012737

016706

005067

005267

001375

012677

012605

012604

012603

012602

012601

012600

012737

10440\

012542

012716

002172

000002

000000

000776

000000

005015

000122

012534

000340

166514

000110

012442

012534

000064

000060

000054

166446

012370

000340

047520

000024

000026

000024

000026

042527

.5BTTL

POWER

DOWN

AND

UP

ROUTINES

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

,POWER

DOWN

ROUTINE

SPWRDN:

MOV

HALT

BR

ISILLup.a'PWRVEC

"SET

FOR

FAST

UP

1340.',PWRVEC+2

"PRIO:7

R0.-(SP)

"PUSH

R0

ON

STACK

RI.-ISP)

"PUSH

RI

ON

STACK

R2.-ISP)

"PUSH

R2

ON

STACK

R3.-ISP)

"PUSH

R3

ON

STACK

R4.-(SP)

I,PUSH

R4

ON

STACK

R5.-ISP)

"PUSH

R5

ON

STACK

@SWR.-(SP)

"PUSH

@SWR

ON

STACK

SP.SSAVR6

"SAVE

SP

#$PWRUP,.#PWRVEC

"SET

UP

VECTOR

::HANG

UP

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

***********

,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

SR

SSAVR6. 0

SPOWER,

.ASCn

<15><12>"POWER"

.EVEN

"THE

POWER

UP

SEQUENCE

WAS

STARTED

"

BEFORE

THE

POWER

DOWN

WAS

COMPLETE

"PUT

THE

SP

HERE

II11

MANUAL

INTERVENTION TEST

MAINDEC-II-DZTAC-C

MleYl!

27(732)

II-JUN-76

13,151

PAGE

55 SEQ

0068

DUACC ,NEW

POWER

DOWN

AND

UP

ROUTINES

2515

012552 042200

044522

04252.

MSGDRV,

,AselZ

<CRLF>'DR!VEtS)?

'

2516

012560

051450

037451

000040

2517

012566

005015

040524

051503

MSGASK,

,I5CH

<15><12>

!TICS?!

25\9

012514

000077

2519

012576

042526

052103 051117

MSGVEC,

•

ASC

I Z

IVECTOR?!

2520

012604

000077

2521

012606

951120

047511

044522

MSGPRI,

•

AseIZ

IPRIORITY?!

2522

012614

054524

000077

2523

012620

040524

051503

000075

MTACS.

.ASClZ

/TACS.I

2524

012626

052040

042101

03&502

MTADB. •

Ase

I Z I

TAOS.

I

2525

012634

000

2526

012635

040

042526

052103

MTAVEC,

,Ase

I Z

VECTOR:I

2527

012642

051117 000075

2528

012646

050040

044522

051117

MTAPRI,

,ASCIZ

PRIORITY./

2529

012654

052111 036531

000

2530

012661

015

047412

037513

MSGOKI

,ASCIZ

<15><12>/OK?I

2531

012666

000

2532

012667

131

051505

000200

MYES,

,ASCIZ

IYES/<CRLF>

2533

012674

047520

042527

020122

MTUPWR,

,ASCIZ

IPOWER

DOWN

TU601

25]4

012702 047504

047127

052040

2535

012710

033125

000050

2536

012714

047520

042527

020122

MPWRUP,

.ASClZ

IPOWER

UP

TU601

2537

012722

050125

052040

U3125

2539

012730

000060

2539

012732

042522

047515 042526

MOFFLN,

.ASCIZ IREMOVE CASSETTE

FROM

DRIVE

UNDER

TESTI

2540

012740

041440

051501

042523

2541

012746

052124

020105

051106

f

2542

012754

046517

042040

044521

254l

012762

042526

052440 042116

2544

012770

~51

105

052040

0'H505

2545

012776

000124

2546

013000

042522

046120

041501

"TAPE'

•

~SCIZ

IREPLACE

CASSETTEI

2547

013006

020105 040503

051523

2548

013014 052105

042524

000

2549

013021

123

052105

053440

MWPTLK,

.ASCIZ

ISET

WRITE LOCKI

2550

013026

044522

042524

046040

2551

0\3034

041517 000113

2552

013040

042523

020124 051127

MLASTl

.ASCIZ

ISET

WRITE

ENABLE!

2553

013046

05211

I

020105

047105

2554

013054

041101

042514

000

2555

013061

123

040524

052524

EMt:

,Ase

I Z

IsnTUS

PMBLEMI

2556

013066

020123

0511

20

041117

2557

013014

~42514 ~00115

2558

013100

051042 040505

054504

EM2, .ABCIL

I"REIDY'

rAILED

TO

SET I

2559

011106

020042

040506

046

I

II

2560

013114

042105

052040 020117

256

I

013122

042523

000124

2562

013126

052042 040522

051516

EM3. .ASCIZ

I"TRANsFER

REQUEST" fA!J"ED

TO

SET I

2563

013134

042506 020122 042522

2564

013142

052521

051505

021124

2565

013150 043040

044501

042514

2566

013156

020104

047524 051440

2567

013164 052105

000

2568

013167

124

04251~

053440

E"4'

.ABeIZ

/THE

WMNG

FLAG

SET!

2569

013174

047522

043516

043~40

2570

013202

040514 020107

042523

TAIt

MANUAL

INTERVENTION

TEsr

MAINDEC

-1I-DZTAc-e

MACYlI

27(732)

II-JUN.76

13,51

PAGE

56

SEQ

0069

DZTACC.

NEW

POWER

DOWN

Arm

UP

ROUTINES

2571

013210

000124

2572

013212

0H504

040524

050040

EMS,

.ASCIZ

IDATA

PROBLEM

I

257)

013220

047522 046102

046505

2574

013226

Joe

2575

.13227

120

020103

020040

DMI'

,

ASCIZ

fPC

TAeSI

2576

013234 020040 052040

041501

2577

013242

000123

2578

013244

04152"

020"40

02004"

DH2

, •

ASCIZ

IPC

TACS

WAIT

ADDRESS I

2579

013252

020040 040524 051503

258.

01326"

0200·10

020040

040527

258

I

013266

052!11

040440

042104

2582

013274

042522

051523

00"

2583

013301

120

020103

020040

DH5,

.ASCIZ

IPC

TACS EXPECT RCV"DI

2584

013306

020040

052040

041501

2585

013314

02012l

020040

042440

2586

0!

3322

050130

041

505

020124

2587

01333"

051040

053103

042047

2588

013336

000

2589

013340

.EVEN

2590

013340

00i116

001162

000000

DTI,

,WORD

SERRPC,SREG0,0

2591

013346

0011!

6

001162

001202

DT2,

.WORD

SERRPC,SREG0,SAVPC,0

2592

013354

000000

2593

013356

B01!

16

001162

001124

DTS,

.WORD

SERRPC,SREG0,SGDDAT,SBDOAT,0

2594

013364

001126

000000

2595

"13370

001116 001206

000000

DT201

,

,WORD

SERRPC,TACSL,0

2596

2597

013376

001116

000000

DT202

,

.WORD

SERRPC,0

2598

2599

013402 040524

030461

043040

[M201'

,ASCIZ

'TAli

FAILED

TO

RESPOND"

2600

013410

044501

042514 020104

2601

013416

047524

051040 051505

2602

013424

047520 042116

000

2603

013431

116

02011

7

051104

EM202,

.ASCIZ

I'INO

DRIVE

AVAILA81~En

2604

013436

053\11

020105

053101

2605

1113444

044501

040514 046102

2606

013452

000105

2601

013454

041520 020040

020040

DH20!'

.ABeIZ

IPC

TACSI

2609

013462

020040 040524

051503

2609

013470

000

2610

013471

120

000103

DH202 ,

.ASClZ

IPCI

2611

000001

.END

TAil

MANUAL

INTERVENTION TEST MAINDEC-II-DZTAC-C MACYII

27(732)

1I-"UN-76

U.51

PAGE

58

SEQ

8878

OZTACC,NEW

CROSS REFERENCE

TABLE

o.

USER

SYMBOLS

ASKAOR

1107146

556

1692.

AS~ORV

11871116

553

16601

1681

AaK~EY

1181232

195.

643*

673

ASKQUE

1107416

731

789

803

818

885

un

1760.

BtGINX 1101730

234

550.

586

S8e

636

618

BEGINI

001126

231

469.

BEGIN2 110U611

212

476.

BEGINl 1181166

213

475

4781

BEGIN4

001174

4811#

BGNCMN

11111400

472

474

477

479

481#

BIT0

• 1100001

1661

BIT00

•

000001

156#

166

208

2091 2095

BIT01

•

000002

155#

165

2~7

2095

BIT02

•

000004

154#

164

206

BITII3 ·

1100010 1531

161

205

BIT04

• 0000211

152.

162

204

BIT05

=

000040

1511

161

201

BIT06

=

000100

1501

160

202

BITn

000200

149.

159

201

2091 2095

BIT08

=

000400

148#

158

200

1478

BIT09

=

00100"

147#

157 199

1486

1550

BITI

•

000002

1651

BITIII

•

002000

1461

198

1514

BITII

• 1104000

145.

197

\493

BITI2

•

11100011

\4U

196

BITU

•

020000

1411

195

1541

BITI4

•

040000

142'

194

1464

BITI5

•

100000

1411

191

654

BIT2

•

000004

1641

BIT3

00111110

161.

BIT4

•

111111020

162#

BITS • 0000411

1611

BIT6

=

""0100

160#

BIT7

: 000211"

159.

BIT8

•

00114011

1581

BlT9

·

0010011

157#

BULIM

010462

1997*

20111

2018

20]5

BPTVEC=

000014

173.

BSBG

• 0011010

1961

7&5

921

961

1021 1061

1113 1153

12\3

1253

BSFG

·

000006

185#

760

916 956

11116

1056 1108

1148

1288

1248

1974

BSFGSS

010120

241

19711

1972

1979

CHKADR

1101752

552

555

574#

CHKDPV

002012

612.

CKSWR

•

104406

1463

1526

1549

24641

CR

·

000015

8U

2162

2172

CRCERR=

040000

194#

997

1089

CRLF ·

000200

82#

518

2113 2172 2515 2532

CURDRV

001234

396.

666-

667

ODISP •

177570

881

364

509,

DHI

013227

417

2575'

DH2

011244

421 429 435

2578#

DH201

013454

449

2607.

DH202

011471

454

2610#

DHS

013301

441

25831

DISPLA 1101142

164#

5119.

517.

1507.

1533-

DUPRE

0011174

2281

517

TAil

MANUAL

INTERVENTION TEST MAlNDEC-II·DZTAC-C MACYlI

27(712)

II-JUN-7S

11.51

PAGE

59

SEQ

0071

OUACC

,NEW

CROSS

REFERENCE

TABLE

••

USER

SYM80LS

DRVKEY

001224

3931

394

470.

612

625

646

671

1661·

1666

1680

1684

2067

DRVPNT

001210

39U

626- 646-

657

672-

2061

2069-

DSNR

•

177570

871

161

508

DTI

013340

418

25911'

DT2

013346

424 430

416

259\1

0T201

01U70

450

2595.

OT2112

013176

455

2597.

DTS

011156

442

25931

EMTVEC.

000030

176.

492- 493-

EMI

013061

416

25551

EM2

011111"

422

25581

EM2111

013402

448

2599.

EM202

0114l!

453

260H

EM3

1113126

428

2562.

EM4

013167

414

25681

EMS

1111212

440

2572'

ERROR

100000

1931

ERRVEC=

11011004

169.

5116

501* 5180

574-

580*

1469

1470"

1472-

1475*

EXAM

010654

613

617

622

2080.

EXIT

007116

1679

16841

FGAP

0041100

1971

1089

1189

FUNCTI=

000016

2119.

FUNCII

011,,002

2117#

209

FUNCI

11110004

206.

2~9

FUNC2

:

000010

205.

209

GN5

******

227

537

664 719 723

1776

1784

2457

2458 2459

2460

2462 2464

2465 2466

2467

2468 2469

GO

00"""1

208#

3113

106

325

128

685

7112

7114

745 750 755

7611

765

770

775 780

837

845 856 865

869

892

989

991

1181

1183

1187

1282

1284 1288 1293 1305

1308 1326

1328 1115

1137 1119

1141

1358

1360

1378

13811

1397

14111

1813 1816

1845

1868 1899

1902

1927

1933

1955

1958

1974

2019

2017

GTSWFI

=

104405

532

679

1989

2002 2008

2462.

HERE

001710

523 525 536

538#

HGHTIM

006706

706

1603*

16171

HT

•

000011

79#

2131

2172

ILBS

000020

204#

852

863

876

995

1185

1286 1312

\3]0

1341

1346

21127

2048

tNT.EN:

000100

202.

IOTVEC: 0001120

174#

490*

491*

ITEM52

001306

4464

LEADER: 1120000

195.

897

11189

1365

1383

1818

1849 1872

1904 1907

1931

1915 1960

1976

21198

LF

• 0110012

80.

2166 2172

LOOP

007062

16671

1681

LOOPI 0110500

2911

292

LOOP2

1100600

31111

312

LOOPl

000700

123.

334

MANUAL

002152

632

6411.

MAXCNT

006712

654*

7116*

707.

711a.

709*

1603

1624.

1631

MLAST

0111140

1l9l

2552.

MOFFLN

012712

804

25391

MPWRUP

012714

7911

2536.

MSGASK

012566

1693

25171

MSGDRV

012552

16611

2515.

MaGID

001702

526

5181

645

MSGOK

012661

1740

251'"

TAil

MANUAL

INTERVENTION TEST MAINDEC-II-DZTAC-C MACYlI

27(732)

II-JUN-76

13151

PAGE

60

SEQ

0072

DZTACC,NEW

CROSS REFERENCE

TABLE

--

USER

SYMBOLS

MSGPRI

012606

1716

2521#

MSGVEC

012576

1707

2519#

MTACS

012620

1728

2523#

MTADS

012626

1731

252

..

MTAPE

013000

819

2546#

MTAPRI

012646

1737

25281

MTAVEC

012635

1734

2526.

MTUPWR

012674

732

2533.

MWRTLK

013021

886

2549.

MYES

012667

1749

2532#

1670 1674

16781

NOTA

007074

1668

16711

NOTB

007106

1672

1675#

NOTLGL

007130

1665

1676

1682'

1685

NXTDRV

010610

1811

1843

1866

1897

1925

1953

20588

OrYLIN=

001000

199.

737

795

899 810 824

1089 1400

2089

OK

002164

641

643#

PATTRN

010464

1998*

2004*

2012'

2025 2036

PIRQ •

177772

861

PIRQVE=

000240

180.

PR0 •

000000

1031

...

PRI =

000040

104.

PR2 =

000100

105#

PR3

000140

1068

PR4

000200

10H

PR5 =

000240

1081

PR6

000300

109.

PR7

000340

110.

PS =

177776

831

84

649*

PSW

=

177716

84#

PWR5T

002172

645#

2507

PWRVEC=

000024

1753

496* 491*

2414*

2475* 2484*

2490*

2502*

2503*

RDBLK

010530

1871

1930

2035.

RDCHR

:

104407

1741

1766

2285

2465.

RDLIN

104410

1662

2326

2466.

RDOCT

104411

1694

1708 1717

24671

RDSUB

007756

237

1861#

1865

1873

READ

000004

184.

328

755

911

951 991

1011 1051

1103

1143

1183

1203 1243

)

1284

1308 1328 1339 1343

2037

READY

~00040

203.

304

311

326 333

686

1607 1637

1814 1846 1869 1900

1928

1956

2021

2039

2085

RESVEC=

000010

1701

REWIND:

000016

189#

303

325

6B5

702

780

B37

892

936 976 989

1036 1076

1128

1168

1181

1228 1268 1282 1305

1326

1337 1358 1378

1397 1410

1813

1845 1868 1899 1927

1955

RGPSLK

010140

239

1920.

1924

1932 1936

SAVPC

001202

384.

1604*

1605*

1621

1632* 1633*

1649

2591

SAVPS

001204

385.

1606*

1620

1634*

1648

SETSUr

010352

1837 1891

1985.

SFSG 1100014

188.

775

931 971

1031

1071

1123 1163

1223

1263 1288

1933

5FFG

000012

1871

770

926 966

1026

1066 1118 1158 1187 1218

125B

1958

SFFGSB

11111234

240

19481

1952 1963

STACK.

001100

74'

488

1806

1838

1861

1892

1920

1948

START

002204

644

641.

1444

STKLMT_

177774

85.

SWR

001140

291

309

3631

486

508*

510

516*

530

677

1464

1478

14B0

1486

TAil

MANUAL

INTERVENTION TEST MAINDEC-II-DZTAC-C MACYlI

27(732)

II-JUN-76

13.51

PAGE

61

SEQ

0073

DZTACC

.NEW

CROSS REFERENCE

TABLE

USER

SYMBOLS

1493

1534

1541

1546

1550

1987

1991

1993

2000 2004 2006

2058

2093

2095 2182

2219*

2482

2495*

SWREG

000176

229.

516 530

677

1987

2000 2006 2182 2195

swe

000001

138.

SW00

=

000001

12St

138

SW01

000002

1271

137

SW02

-0001104

126.

136

SW03

=

000010

125t

135

SW04

000020

124#

134

SW05

000040

1231

133

SW06

= 0011100

1221

132

SW07

=

000200

12U

131

SW08

000400

120.

130

SW09

=

001000

1191

129

SWI

000002

137.

SWI0

002000

118#

SHII

= 1104000

1171

1787

SWI2 •

010000

116#

SWI3 •

020000

115.

SWI4 1140000

114.

SWI5 = 1110000

113.

5W2

= 1100004

1361

SW3

·

0000\0

135,

SW4

=

000020

1341

SW5

=

000040

133.

8W6

=

000100

1321

SW7

=

000200

1311

SW8

000400

130'

SW9

•

001000

129.

TAeSH

001210

388'

1702* 1703*

TACSL

001206

3871

576

650

1699*

1702 1729

1807

1839

1862

1893 1921 1949

2080

2595

TADBH

001214

390#

1705.

1706*

TADBL

001212

389#

651

1701*

1705 1732

1808

1840 1863 1894

1922

1950

TAPRIO

001222

392#

1727.

1738

TAVEC

001216

39B

473

647·

648<>

1713· 1715.

1735

TSITVE.

000014

1711

TDRV

002274

659

6611

TIMERR=

002000

1988

1089

TKVEC

_

000060

1788

TPVEC

=

000064

179.

TRAPVE=

000034

1771

494*

49S*

TRTVEC_

000014

172.

TR.REQ:

000200

20U

TSTI

002422

683

696'

TSTI0

003224

806

821

825

830.

TSTII

003422

88H

TSTI2

003772

884

9841

T5T13

004332

986

10841

T5T14

004644

1086

1176.

T5TI5

005206

1178

1276.

TSTI6

005362

1279

\3211

T8TI7

005500

1323

IlSU

TST2

002502

699

713#

T5T20

'005564

1354

1366

13711

T5T21

005642

1374

1384

1389.

TAil

MANUAL

INTERVENTION TEST

NAINDEC-ll-DZTAC-C

MACYlI

27(732)

l1-JUN-76

13.51

PAGE

62

SEQ

0074

DZTACC.NEW

CROSS REFERENCE TABLE

--

USER

SYMBOLS

T5T22

005716

888

1401

140"

TST]

002646

716

728#

TST4

002714

738

743#

TST5

003062

744

782

7871

TST6

003120

734

796

80\#

TST7

003\64

811

816.

TYPE

104401

526

645 662

667

668

717 721

1434

1536 1544 1566

1575 1571

1580

1582

1586

1594

1660

1682

1693

17f1J7

1716 1728

1731

1734

1737

1740 1747 1749

1763 1764 1774 1779

1782 1788

2136

2193

2194

2197

2210

2221

2240 2289 2292 2296 2409

2457#

2504

TYPERR 1106512

1543

1566.

TYPOC

104402

1591

1730

1733 1736 1739

2196

2458.

TYPON

= 11l44B4 246111

TYPOS

=

1(440)

2459.

UNIT •

000400

2001

660

2064 2084

WAlTRE=

104412

703 705 746

751

756

761

766

771

776

794

838

853 864

866 877

893

990

996

1182

1186

1188 1283

1287 1289 1292

1301

1306

1313

1315

1327

1331

1334 1336 1338 1342

1347

1357

1359

136!

1377

1379

1381

1398

1411

1817

1903 1934 1959

1975

2028

2049

2468#

WAITXF:

104413

846

851 857 862

870 875

992 994

1184

1285

1311

1329 1340

1344

2020

2038

2469.

WAIT

••

006734

1629.

2469

WAIT

.0

006630

16011

2468

WAITI

006660

16071

1615

1618

WAIT2

006700

1602-

1614#

WAITl

006714

1608

1612

1620.

WAIT4

006676

1610

1613#

WFG

000000

182#

704

745

865

901 941

1001

1041

1093 1133 1193

1233

1335

1360

1399

1816 1902

WFGSUB

001604

2.35

1806.

1B10

1821

WGBLOP

010042

18921

1896

1910

WGPBLK

010036

238

1891#

WLOOP

007614

18380

1842

1852

WRITE

=

,,00002

1831

306

750

B45

956

869

906 946

1006 1046 1098 1138 1198

1238

1293 1380

2019

"RTBU

1110466

1848

1906

2018!

WPTLOC=

0100""

196.

902

907

912

917

922 927

932

937

1042 1047 1052 1057

1062

1067

1072 1077 1094 1099 1104

1109

1114

1119 1124 1129

1194

1199

1204

1209

1214 1219

1224

1229 1400

2091

WRTSUB

007670

236

1837#

SAUTOB

001134

360!

534*

2190

2311

SBDADR

"01122

355.

SBDDAT

001126

3571

1530*

2593

SBELL

""1172

379!

1536

1562

SCHARC

011174

2138*

2148*

2155

2164*

2169.

$CKSWR

011Z0"

21821

2464

SCHTAG

0011"0

343#

483

484

492

49B

499

50"

SCM

I

"000"2

375!

376.

3771

SCM2

000004

37St

376.

3771

SCMl

"00002

373.

375

SCNTLG

1'111725

2193

2306.

SCNTLU

011720

2210

2305.

SCRLf·

001177

38U

668

1544

1562 1566

1577

1582 1586 1763 1788

2137 2172

2221

2305

$DOAGN

"06024

1430

1436

I44U

SENDAD

006014

524

589

639

143U

1557

TAil

MANUAL

INTERVENTION TEST

MAINDEC-II-DZTAC·C

HACYlI

27(732)

II-JUN-76

13:

51

PAGE

63

SEQ

0,,7S

DZTAce

,NEW

CROSS REFERENCE TABLE

--

USER

SYMBOLS

SENDCT

005774

498

1432.

SENDMG

006033

1434

1446.

SENULL

006030

1445!

SEOP

005140

1422#

HopeT

005766

49B*

1429#

1433

SERrLG

11011113

346.

1453

1482

1484

1490*

1511

1531*

1562

SERHAX

0111115

352'

501*

14B4

1506*

1511

SERROR

1106320

492

1525_

SERRPC

001116

35H

1538*

1539*

1540

1562

2590

2591

2593

2595

2597

SERRTS

001236

411.

1573

BERTTL

001112

350#

1537-

1562

SESCAP

001170

378.

500*

744*

832* 884*

986*

1086* 1178*

1279_

1323*

1354"

1374*

1505.

1553

1555

1562

SFl~LC

001156

371#

2141

2172

GrILLS

001155

370.

2172

SGDlDR

001120

354.

SGDDAT

001124

356#

1529-

2593

SGET42

906004

1435.

SGTSWR

1111250

21941

2462

SHO

000000

11

SHIOCT

012054

2343*

2348.

SleNT

001104

34H

1497*

1498

1500*

1510

SILLUP

012534

2474

2490

2509.

SINTAG

001135

361#

2222

2311

SlTEHB

001114

3511

1540*

1562 1568

SLF

001200

382.

1562

2172 2296

2305

$\,PADR

001106

348.

502_

730*

788*

802"

817* 883*

985*

1085_

1177*

127S.

1353.

1373*

1391*

1488*

1503*

1508

1510

SLPERF 1101110

349#

503*

1488

1504*

1510

1552

1810* 1842*

\865*

1896*

192'-

195Z*

1972*

SMAIL.

***it .. _ U

520 530

1503

1546

2125

SMNEW

011743

2197

23091

SMSWR

011732

2194

2307#

SMXCNT

006316

1501

1510.

SNULL

1101154

369.

2143

2172

$NWT5T=

000001

6931

710'

725. 740.

7848

798#

8130 821#

878.

98\#

10811

11733

1273.

1318.

1348.

1368.

13861

140]1

SOCNT

1112300

2381*

2410*

24231

SOMODE

012302

2376* 2380*

2385

1388*

2399"

2425.

SOVER

1106302

1465 1481

1489 1499

15071

SPASS

001100

344.

652

698

715

1426*

1427*

1445 1495

1511

SPOWER

012542

2505

2512.

SPWRAD

012530

2507#

SPWRDN

012370

496

2414#

2502

SPWRMG

012524

2505.

SPORUP

012442

2484

24901

SQUES

1101176

380#

1562

1682 1747 1779

2172 2240 2289

2305

SRDCHR

011462

22531

2465

SRODEC:

.-

••••

U

2468

$RDLIN

011602

2281#

2466

SROOCT

011754

2321#

2467

SRDSZ =

1100010

2274#

SREGAD

001160

373.

SREG0

001162

375.

1521*

2590

2591

259]

SREGI 1101164

376#

1528*

SRTNAD

006026

1444.

SR2A

;:

••• *-* U

2468

TAil

MANUAL

INTERVENTION TEST MAINDEC-II·DZTAC-C MACYlI

27(732)

II-JUN·76

13.51

PAGE

64

SEa

""76

DUACC

,NEil

CROSS

REFERENCE

TABLE

USER

SYMBOLS

SSAVRE"

*.****

U

2468

UAVR6

11125411

2483.

2491

2492"

2493*

25IH

$SCOPl!:

""6"46

490

1462#

SSETUPa

"""137

4691

489

49"

492 494

.96

498

499

500

'"2

524

527

1424

1463

1526

1549 1557

2177

2311

•

STUP

•

177777

469

•

SSVLAD

1186254

1473

1502.

ISIIR

..

1674"0

It

II

62 63

64

65

66

67 68

377 378 379

499

50" 5"2

503

697

714

729 744

788

802

817 831

882

985

1085 1177

1277

1322

1352

1372

1390 1407

1417

1425 1437

1443

1445

1454

1455 1456

1457 1458 1464

1476

1478

1479 1482 1483 1484

1491

1492 1493 1504

1587

151"

1517 1518

1519 1520

1521

1534

1541

1546

155"

1562

1787

25"8

SSWR~Ka

""""00

68

69

1458

1459

1480

STIMES

001166

3771

499*

697.

714*

729.

831"

882*

1277*

1322"

1352"

1372*

139"

..

14"7"

1425"

1491*

1498

1501*

1510

1787*

UKB

001146

366#

2175

2186

22e3

2257 2263

GTKS

081144

365.

2175 2184

22""

2224*

2255 2261

81N ..

"""023

It

11

693

6971

699 710

714#

716

725

129#

734

738

740

74

..

782 784

788.

796 798

802'

806

811 813

817#

821

825

827

8311

878

882'

884

888

981

985#

986

1081

1085'

1086 1173

,.

11771

1178 1273

12778

1279

1318

1322'

1323

1348

1352'

1354 1366

1368

1372.

1374

1384

1386

139'"

1401

1403

14071

UPS

001152

3681

2161"

2172

STPFLG

001157

372.

2119 2172

fTP5

0"1150

367.

2159 2172

STRAP

012304

494

243U

$TUP2

012326

2445.

2456

nRP

.

000014

24491

245&#

2459'

2460#

24611

2462

24631

2464

2465#

24661 24671 24681

2469'

7.470.

STRPAD

1112340

2439

24561

nSTNM

1101102

345.

655.

1424.

1453

1480

1502*

1507

1511

1533 1562

aTTYIN 0117111

2282 2283

23"0

23041

STYPBNo

........

U

2461

STYPDS:

-*

........

U

2461

STYPE

010760

2119.

2449

2457

STYPEC

911130

2140

2147

2154

21591

2160

2226

STYPEX

011176

2165

2167

2170.

STYPOC

1112102

23190

2458

STYPON

012116

2378

23811

2460

STYPOS 1112056

23741

2459

UTSTR

006060

14671

saGEr4:

0011000 14371

"'FILL

012301

2375. 2379.

2389

2424*

S40CATa * ..... ** U

1464

1543

•

013474

223# 2271 2891

299t

3211

342'

383

487

502 503

5381

665.

1445

1448

1510

1511

1562

159H

1777.

1785.

2172

2175

23041

2305

2311

2486

2510

2589.

FRRORS

DETECTED: 0

DEFAULT

GLOBALS

GENERATED:

"

*TACC,TACC/SOL/CRFISYMBOZTACC,NEW

TAil

MANUAL

INTERVENTION

TEST

MAINDEC-II-DZTAC-C

MACYlI

27(732)

II-JUN-16

13151

PAGE

65

SEQ

0077

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)

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