Digital PDFs

MAINDEC-11-DZTAB-C-D

June 1976

55 pages

Original

6.5MB

Document:	TA11-Logic-Test-Part-2
Order Number:	MAINDEC-11-DZTAB-C-D
Revision:	0
Pages:	55
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/TA11/MAINDEC-11-DZTAB-C-D_TA11-Logic-Test-Part-2_Jun76.pdf

OCR Text

·~IV~

SEQ 0001

IDENTIFICATION
PRODUCT CODE:

MAINDEC-l1-DZTAB-C-D

PRODUCT NAME:

TAli LOGIC TEST (PART

DATE REVISED:

21 JUNE 76

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR:

JIM LACEY

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCU~ENT.
THE sOfTWARE DESCRIBED IN THIS DOCUMENT IS fURNISHED UNDER A
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE
TERMS OF SUCH LICENSE.
DIGITAL EQUIP~ENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY Of ITS SOFTWARE ON EQUIPMENT THAT IS
NOT SUPPLIED B~ DIGITAL.
COPYRIGHT (C) 1973,1976 BY DIGITAL EQUIPMEN CORPORATION

SEQ 13002
CONTENTS
i.

ABSTRACT
REQUIRE~ENTS

2.1
2.2
2.3

EQUIPMENT
STORAGE
PRELIMINARY PROGRAMS

LOADING PROCEDURE

STARTING PROCEDURE
4.1
CONTROL SWITCH SETTINGS
4.2
STARTING ADDRESS
4.3
PROGRAM & OPERATOR ACTION

OPERATING PROCEDURE
5.1
OPERATIONAL SWITCH SETTINGS
5.2
SUBROUTINE ABSTRACTS

ERRORS

RESTRICTlONS

MISCELLANEOUS
8.1
EXECUTION TIME
8.2
STACK POINTER
8.3
PASS COUNTER
8.4
ITERATIONS
8.5
SPECIAL REGISTERS

PROGRAM DESCRIPTION

SEQ 0003
1.

ABSTRACT
THIS PROGRA~ CONTAINS A SERIES Of BASIC LOGIC TESTS
THAT CHECK THE TAil FOR PROPER OPERATION.

REQUIREMENTS

2.1

EQUIPMENT

2.2

PDP-il COMPUTER WITH OR WITHOUT HARDWARE S~!TCH REGISTER
WITH CONSOLE TELETYPE. AND A TAil CASSETTE
STORAGE
THIS PROGRAM REQUIRES APPROX. 4K STORAGE.

2.3

PRELIMINARY PROGRAMS
MAINDEC.ii-DZTAA

LOADING PROCEDURE
USE STANDARD PROCEDURE fOP LOADING .ABS TAPES
OR A CASSETTE TAPE.

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS
SEE 5.1.

SEQ 0004
4.2

STARTING ADDRESSES
200
204
210
214
220
224
230
234
240
244
250
500
600700

4.3

NORMAL STARTING ADDRESS
SELECT DRIVE(S) BEFORE STARTING TEST
SELECT DRIVE(S) AND ADDRESSES BEFORE STARTING TEST
SETUP FOR MANUAL LOOPING
WRITE FILE GAP FROM BOT TO EOT
WRITE CONTINOUS BLOCKS OF DATA
READ CONTINOUS 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 EOT
BACK SPACE FILE GAPS
LOAD SWITCH REGISTER INTO THE TACS
WRITE SWITCH REGISTER ON TAPE FROM BOT TO EOT
READ FROM BOT TO EOT

PROGRAM, OPERATOR ACTION
1.
2.
3.
4.
5.
6.
7.

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)
LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES
REWIND 80TH DRIVES
LOAD ADDRESS 200.
SET SWITCHES (SEE SECTION 5.1)
PRESS START.
THE PROGRAM WILL LOOP' TTY BELL WILL RING ONCE EVERY
PASS, IF SW<10>=0.
*** NOTE: IF USING THE SOFTWARE SWITCH REGISTER
PROGRAM WILL TYPE "SWR=XXXXXX NEW=", TO ALLOW
SETTING OF REGISTER BEFORE BEGINNING TEST.

4.3.1

DRIVE SELECTION
STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC
SELECTION OF DRIVES "A" AND "B" TO BE TESTED.
NOTE:
IF LOAD MEDIUM IS CASSETTE WITH STANDARD VECTOR
PROGRAM WILL RESPOND AS IF STARTED AT 210.
STARTING THE PROGRAM AT 204, 210, OR 214 ALLOWS THE OPERATOR
TO SELECT THE DRIVE(S) TO 8E TESTED.
THE PROGRAM WILL TYPE "DRIVE(S)?".
EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING "An AND/OR
"8" FOLLOWED BY A CARRIAGE RETURN.

4.3.1.1 DRIVE SELECTION EXAMPLES
DRIVE(S)? A,B
DRIVE(S)? AB
DRIVE(S)? B,A
DRIVE(S)? B

SEQ 0005
4.3.2

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

2.
3.

BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS)
VECTOR ADDRESS
PRIORITY LEVEL
AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS IS).
WHEN ALL PARAMETERS HAVE BEEN DEFINED THE PROGRAM
WILL TYPE THEM BACK OUT AND ASK IF THEY ARE OK AT
WHICH TIME THE OPERATOR RESPONSES WITH A "Y" OR A
"CARRIAGE RETURN" FOP "YES" ANYTHING ELSE IS A "NO".

4.3.2.1 ADDRESS SELECTION EXAMPLES
DRIVES(S) A
TACS? 177500
VECTOR? 260
PRIORITY? 6
TACS=177500 TADB=177502 VECTOR=000260 PRIORITY=000300
OK?
DRIVES(S) A,B
TACS? 4716
VECTOR?
PRIORITY?
TACS=177470 TADB=i77472 VECTOR=000260 PRIORITY=000300
OK?

SEQ 0006
5.

OPEPATING PROCEDUR~

5.1

OPERATIONAL SWITCH SETTINGS
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE USER THE SAME SWITCH OPTIONS AS THE HARDWARE SwITCH REGISTER.
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES
AND IT CONTAINS ALL ONES (177777) THEN THE SOFTWARE SWITCH
REGISTER (LOC. 176) IS USED.
CONTROL:
THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY
DOING THE FOLLOWING I
1) TYPE CONTROL G <~G>I THIS WILL ALLOw THE TTY TO ENTER 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 00 ONE
Of THE FOLLOWING AT THE TTY:
A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>.
(ONLY NUMBERS BETWEF.N 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)
IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH
RlGISTER CONTENTS WILL NOT BE CHANGED.
S) IF A CONTROL U <·U> IS DEPRESSED THEN THF. PROGRAM WILL SEND YOU
BACK 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 ERPOR
SW<i4>=1 ••• LOOP ON TEST
SW<13>=1 ••• INHIBIT ERROR TYPEOUTS
SW<11>=1 ••• INHIBIT ITERATIONS
SW<10>=1 ••• RING BELL ON ERROR
SW<10>=0 ••• RING BELL ON PASS COMPLETE
SW<09>=I ••• LOOP ON ERROR
SW<08>=1 ••• LOOP ON TEST AS PER SW<07:00>
SW<07>=1 ••• LOCK ON CURRENT DRIVE (ONLY VALID
FOR STARTING ADDRESSES 220 THRU 250).

5.2

SUBROUTINE ABSTRACTS

5.2.1

SCOPE

SEQ 0007

THIS SUBROUTINE CALL (VIA AN lOT INSTRUCTION) IS PLACED BETWEEN
EACH TEST IN THE INSTRUCTION SECTION. IT RECORDS THE STARTING
ADDRESS OF EACH TEST IN LOCATION "SLPADR" AND "SLPERR" AS IT IS
BEING ENTERED.
:THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS
5.2.2

TRAPCATCHER
A ".+2" - "HALT" SEQUENCE IS REPEATED FROM LOC. 0 TO LOC. 77&
TO CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL
HALT AT THE DEVICE TRAP VECTOR +2.

5.2.3

ERROR
THIS SUBPOUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REpORT
ALL ERRORS. (REFER TO 6.)
JTHIS ROUTINE SUPPORTS THE S/W SWITCH REG fUNCTIONS

5.2.4

TRAP
A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION.
FOLLOWING IS THE CALLS USED AND THE LABEL OF THE STARTING
ADDRESS OF THE SUBROUTINES.

5.2.4.1 TYPE (STYPE)
ROUTINE TO TYPE AN ASCIZ STRING ON THE TTY
THE ROUTINE WILL INSERT A NUMBER OF ~ULL CHARACTERS
AFTER A LINE FEED.
5.2.4.2 ROCHR (SRDCHR)
READ A SINGLE ASCII CHARACTER fROM THE TTY
5.2.4.3 ROLIN (SROLIN)
READ AN ASCII STRING FROM THE TTY
5.2.4.4 WAITREAOY (WAIT.ON.READY)
WAIT ON THE "TAll READY" BIT TO SET
5.2.4.5 WAITXFER (WAIT.FOR.XfER.REQ)
WAIT ON THE "TAll TRANSFER REQUEST" BIT TO SET
5.2.4.6 STYPOC
CHANGE A BINARY NUMBER TO OCTAL ASCII AND TYPE IT.

SEQ 0008
5.2.5

THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR

5.2.5.1 STYPEC
ROUTINE TO TXPE A SINGLE ASCII CHARACTER
5.2.5.2 TXPERR
THIS ROUTINE WILL TYPE THE ERROR MESSAGES
5.2.5.j SELDRV
THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT ORIVE(S)
ARE TO BE TESTED
5.2.5.4 SELADR
THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF
THE "TACS·,"TADS- AND VECTOR AND THE PRIORITY TO USE.

SEQ 0009
5.2.6

THE FOLLOW ~OUTINES ARE USED TO MAKE ADJUSTMENTS TO
THE TU60. BEfO~E USING ANY OF THEM LOAD AND STA~T 214.

5.2.6.1 WfGSU.B
FILE GAPS F~OM "BOT" TO "EOT"
AT 220
THIS ~OUTINE CAN BE USED TO ADJUST THE
THE ·W~!TE DELAY MONO".
W~ITE
STA~T

5.2.6.2

"W~ITE

GAP MONO" AND

W~TSUB

WRITE CONTINUOUS BLOCKS OF DATA
START AT 224
THE PROG~AM WILL HALT TH~EE(3) TIMES
AfTER EACH HALT SET THE SW~ AND P~ESS CONTINUE
HALT 1 --~ SW~<7:0> : NUMBE~ Of BYTES PER BLOCK
HALT 2 ---SwR<7:0> : PATTERN DESI~ED
HALT 3 --- SWR<15:0> : OPERATIONAL SWITCH SETTINGS
THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO"

** If USING SOFTWARE SWITCH REGISTE~, AfTE~

EACH HALT OPERATOR WILL BE PROMPTED
FOR THE VALUE WITH "SW~:XXXXXX NEW:"

5.2.6.3 RDSUS
~EAD CONTINUOUS BLOCKS OF DATA
START AT 230
THIS ~OUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO"
AND THE "THRESHOLD POT"

5.2.6.4 WGPBLK
W~ITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO ECT
START AT 234
THE PROGRAM WILL HALT THREE (3) TIMES
AFTE~ EACH HALT SET THE SWR AND P~ESS CONTINUE
HALT i •• - SWR<7:0>
NUMBE~ OF BYTES PE~ BLOCK
HALT 2 --- SWR<7:0>
PATTE~N DESI~ED
HALT 3 --- SWR<15:0> : OPE~ATIONAL SWITCH SETTINGS
THIS ROUTINE CAN BE USED TO ADJUST THE "W~ITE GAP MONO"
AND THE "GAP TIME MONO".
** IF USING SOFTWARE SWITCH ~EGISTE~, AFTE~
EACH HALT OPE~ATOR WILL BE P~OMPTED
FOR THE VALUE WITH "SWR:XXXXXX NEW:"

=
=

...•.~.

SEQ 00111J
5.2.6.5 RGBLK
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 BE USED TO ADJUST THE "SIGNAL MON". THE THRESHOLD POT"
AND THE "TAPE BLANK MONO".
5.2.6.6 SFFGSB
SPACE FORWARD FILE GAP FROM "BOT" TO "EOT"
START AT 244
THIS ROUTINE CAN BE USED ArTER "WRITE fILE GAp· FOR LOW SPEED
SPACE rOWARD (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).
5.2.6.7 BSFGSB
BACK SPACE FILE GAP
START AT 250
THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO".
5.2.1

THE FOLLOWING SUBROUTINES ARE USED BY THE ADJUSTMENT
ROUTINES

5.2.7.1 SETBur
SETUP BLOCK SIZE AND PATTERN
5.2.7.2 WRTBLI<
WRITES A BLOCK or DATA
5.2.7.3 RDBLK
READS A BLOCK OF DATA
5.2.7.4 NXTDRV
CHANGE DRIVE

SEQ 0011
6.

ERRORS
THERE ARE A NUMBER OF ERRORS ThAT CAN OCCUR IN THIS
PROGRAM. wHEN AN ERROR IS ENCOUNTERED THE CALL TO
THE ERROR ROUTINE IS MADE AND IF SW<13> IS NOT
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE
TYPED. EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING:
1.
2.
3.

AN ERROR MESSAGE
A DATA HEADER
A DATA STRING

REFER TO THE LISTING UNDER $ERRTB FOR THE DIFFERENT
ERRORS THAT CAN OCCUR.
7.

RESTRICTIONS
BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A
CASSETTE IS LOADED IN THE DRIVE(S) TO BE TESTED AND IS WRITE
ENABLED.

MISCELLANEOUS

8.1

EXECUTION TIME
THE FIRST PASS TAKES APPROXIMATELY 100 SECONDS ALL
SUBSEQUENT PASSES TAKE APPROXIMATEL~ 475 SECONDS.

8.2

STACK POINTER
STACK IS INITIALLY SET TO 1100.

8.3

PASS COUNT
A PROGRAM PASS THRU COUNT IS KEPT IN "$PASS".

8.4

ITERATIONS
THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM FULL,
(2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST),
ITERATIONS.

8.5

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

SEQ 0012
9.

PROGRAM DESCRIPTION
THIS PROGRAM IS A SEQUENCE OF SMALL INDEPENDENT TESTS THAT
CHECK THE TAll FOR PROPER OPERATION.
THE rESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS.
1.
2.
3.
4.
5.
6.
7.

TEST THE TIMING ERROR CIRCUITRY
TEST THE INTERRUPT CIRCUITRY
TEST THE SPACING FUNCTIONS
rEST THE FILE GAP CIRCUITRY
TEST THAT DATA CAN BE WRITTEN AND READ
TEST CRC CIRCUITRY
INSURE THAT DATA CAN BE WRITTEN AND READ
WHILE THE OTHER DRIVE IS REWINDING

TAil BASIC LOGIC TEST (PART 2). MAINDEC-li-DZTAB-C
DZTABC.NEW
TABLE OF CONTENTS
12
&~

183
224
225
234
246

293
3tH

327
345
406
473

498
536
543
710

728
733
774
827
898
921
970
hH9

1068

1117
1166
1215
1264

1306
1343
1382
1450
1455

1486
1515
1543

157&
1602
1&34

1&66
1735

1783
1828
18.33

1869
1916

1921
1990

2038
2112
2166
2269

2279

MACY11 27(732)

l1-JUN-76

13:26

SEQ IIH/J13

GENERAL INFORMATION
OPERATIONAL SWITCH SETTINGS
BASIC DEfINITIONS
TAll DEFINITIONS
STARTING ADDRESSES
TRAP CATCHER
STARTING ADDRESS(ES)
TOGGLE IN ROUTINES
LOAD SWITCH REGISTER INTO TACS
WRITE SWITCH REGISTER ON TAPE fROM BOT TO EOT
READ FROM BOT TO EOT
COMMON TAGS
ERROR POINTER TABLE
START OF TEST
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME
GET VALUE FOR SOfTWARE SWITCH REGISTER
T1
ROUTINE TO DETERMINE TIME OF WAIT LOOPS
**********TIMING ERROR**********
T2
TEST "TIMING ERROR" FOR "WRITE"
T3
TEST "TIMING ERROR" FOR "READ"
T4
TEST "ERROR" OUTPUT OF STATUS ROM USING A "TIMING ERROR"
**********INTERRUPTS**********
T5
TEST INTERRUPT WITH READY = "1" AT LEVEL 0
T6
TEST INTERRUPT WITH READY = "1" AT LEVEL 1
T7
TEST INTERRUPT WITH READY = "1" AT LEV~L 2
T10
TEST INTERRUPT WITH READY = "1" AT LEVEL 3
Til
TEST INTERRUPT WITH READY = "1" AT LEVEL 4
T12
TEST INTERRUPT WITH READY = "1" AT LEVEL 5
T13
TEST INTERRUPT WITH READY = "1" AT LEVEL 6
T14
TEST INTERPUPT WITH READY = "1" AT LEVEL 7
Ti5
TEST INT~RRUPT WITH "TRANSFER REQUEST" = 1
T16
TEST INTERRUPT WITH "READY"
0 AND "XFER REQ" = 0
T17
TEST INTERRUPT WITH ·XFER REQ" = 1 & "TIMING ERROR" = 1
**********SPACING FUNCTIONS*****
T20
TEST ·SACK SPACE FILE GAP"
T21
TEST "SPACE FORWARD FILE GAP" FUNCTION
T22
TEST "BACK SPACE BLOCK GAP"
T23
TEST "SPACE FWD SLOCK GAP"
T24
TEST AUTOMATIC "WFGN WHEN WRITING OFF OF "CLEAR LEADER"
T25
TEST "READ" INTO FILE GAP CADSES AN ERROR
T2&
TEST "SFBG" INTO FILE GAP CAUSES AN ERROR
T27
TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP=!"
T30
TEST BACK-SPACE-FILE-GAP INTO CLEAR LEADER
T31
TEST BACK·SPACE-SLOCK-GAP INTO CLEAR LEADER
**********TADB**********
T32
TEST "WRITE" 377 & 0 "READ" 377 & 0
T33
TEST "WRITE & READ" A COUNT PATTERN
*********CRC**********
T34
TEST "ERROR" WITH "CRCERR"
1
T35
TEST "DATA OF 0 GIVES GRC OF 0"
T3&
TEST "CRC· CIPCUIT USING A COUNT PATTERN
T37
TRY TO HANG "READY" ON "REWIND"
T40
TRY TO GLITCH THE "POWER SUPPLY"
141
END OF TEST CODE
END OF PASS ROUTINE

••

TAtt SASIC LOGIC TEST (PART 2) MAINDEC-I1-DZTAB-C
DZTASC.NEW
TABLE OF CONTENTS
2315
2379

2431
24b7
2496
2525
2Sb0
2624

2668
2678
2103
2735

2758
2795

2823
2850
28b7

2901
2919

2944
29b0
2990

3060
3098
3237
3314
3337
3358

MACYl1 27(732)

SCOPE HANDLER ROUTINE
ERROR HANDLER ROUTINE
ERROR TYPEOUT ROUTINE
ROUTINE TO WAIT ON tHE READY BIT TO SET
ROUTINE TO WAIT ON TRANSFER REQUEST
ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST
ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY
ROUTINE TO CALCULATE THE CRC
********** MANUAL ADJUSTMENT ROUTINES **********
WRITE FILE GAPS FROM "BOT" TO "EOT"
WRITE CONTINUOUS BLOCKS OF DATA
READ CONTINUOUS BLOCKS OF DATA
WRITE A FILE GAP AND A BLOCK Of DATA FROM BOT TO EOT
READ A BLOCK OF DATA AND A FILE GAP
SPACE FORWARD FILE GAP FROM -BOT" TO "EOT"
BACK SPACE FILE GAP
SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES
WRITE ROUTINE FOR THE MANUAL OPERATIONS
READ ROUTINE FOR THE MANUAL OPERATIONS
ROUTINE TO CHANGE DRIVES
ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY
TYPE ROUTINE
READ AN OCTAL NUMBER FROM THE TTY
TTY INPUT ROUTINE
BINARY TO OCTAL (ASCII) AND TYPE
TRAP DECODER
TRAP TABLE
POWER DOwN AND UP ROUTINES

I1-JUN-76

13:26

SEQ 0014

TAil BASIC LOGIC TEST
DZTABC.NEW

(PA~T

MACYlI 27(732)

MAINOEC-II-OZTAB-C

.TITLE TAil BASIC LOGIC TEST (PART 2)
I-COPYRIGHT (C) 1976
I*DIGITAL EQUIPMENT CO~P.
I.MAYNARD, MASS. 01754

II-JUN-76

13126

PAGE

SEQ 0015

MAINDEC-ll-DZTAB-C

I"
6

I'PROGRAM BY JAMES LACEY

I"THIS PROGRAM WAS ASSEMBLED USING THE PDP-II MAINDEC SYSMAC
I*PACKAGE (MAINDEC-II-DZQAC-CI),MAR 24, 197&.

;J***************************************************************

12
13
14
15
1&
17
18

; ; ***.****************-***** ... *****.********-.***-.**.***********
;1*····**************····***************************** ••• ********
.FEM!

GENERAL INFORMATION ABOUT THE TAII/TUb0 CASSETTE
AOD~ESS

MNEMONIC DESCRIPTION

777500
777502
260

TACS
TADB
TAVEC

20
21
22
23
24
25

.&27

TACS REGISTER DESCPIPTION

28
29
30
31
J2
3J

NAME
ERROR
BLOCK CHECK ERROR
CLEAR LEADER
WRITE LOCK
fILE GAP
TIMING ERROR
OFf LINE
UNIT SELECT
TRANSFER REQUEST
INTERRUPT ENABLE
READY

?
0
"
0
I

ILBS

~ UNCTION BIT 02
0
fUNCTION BIT 01
0
fUNCTION BIT 00
0
0=WRITE-f ILE-GAP
I=WRlTl::
2=READ
3=BACK SPACE FILE GAP
4=BACK SPAC~ BLOCK GAP
5=SPACE f ORwARC t'ILE GAP
.=SPACE FORWARD BLOCK GAP
7=REwIND
GO BIT
0

15
14
13

12
II
10
09
08
07

]7
)8

39
4~

41
42
43

44
45

02
01

47
48
49
50
51
52
53
54
55

TAli BASIC LOGIC TEST (PART 2) MAINDEC-II_DZTAB_C
DZTAbC.".W
GENERAL INFORMATION
57
58
59

MACYII 27(732)

READ ONLY
READ ONLY
REAU ONLY
READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ/oRnE
READ ONLY
READ/WRITE
READ ONLY
READ/WRITE
READ/WRITE
READ/WRITE
READ/WRITE

WRITE ONLY I

II-JUN-7b

13,26

PAGE 2

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

.SBTTL
I·
I'
I"
1*
1*
I"

&1
&2
&3
&4
&5
&&
&7
.8

OPERATIONAL SWITCH SETTINGS

SWITCH
15
14
13
II

I'
I"

70
71

9
8

USE

--.--------- -._-----

hALT ON E~ROR
LOOP ON TEST
INHIBIT ~RROR TYPEOUTS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWR<7 '0>
LOCK ON CURRENT D~lVE (ONLY VALID WITH MANUAL LOOPING)

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

.SBTTL
001100

7b
77

78
79
80
81
82
83
84
85
8&
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
U4
105
106
107
108
109
110
III
112

?
0
?
?
0

Rt:AD AIID/OR WRITE?

INIT
STATE

BIT

72
7l
74

CONTROL AND STATUS REGISTER
DATA BUFfER REGISTER
INTERPUPT VECTOR

000011
000012
000015
000200
177176
177774
177772
177570
177570
000000
000001
000002
000003
000004
000005
000006
000007

0OO000
000040
000100
000140
000200
0OO240
000300
000340

BASIC DEFINITIONS

I"INITIAL ADDRESS OF THE STACK POINTER *** 1100 * ••
STACK= 1100
.EQUIV EMT,ERROR
.,BASIC DEFINITION Of ER~OR CALL
.EQUIV IOT,SCOPE
I,BASIC DEFINITION OF SCOPE CALL
I<MISCELLANEOUS DEfIN ITlOhS
HT=
II
"CODE FOR HORIZONTAL TAB
Lf=
12
"CODE FOR LINE fEED
CR=
15
I,CODE FOR CARRIAGE RETURN
CRLf:
200
IICODE FOR CARRIAG~ RETURN-LINE FEED
PS=
177776
IIPROCESSOR STATUS ~ORD
.EQUlV PS, PSW
STKLMT= 177774
I,STACK LIMIT REGISTER
PIRQ=
177772
IIP~OGRAM INTE~RUPT REQUEST ~EGISTER
DSWR=
177570
"HAROWARE SWITCH REGISTE~
DDISP= 177570
IIHARDWARE DISPLAY REGISTER
I"GENERAL PURPOSE REGISTER DEFINITIONS
%0
II GENERAL REGISTER
RI=
U
, ,GENERAL REGISTER
R2=
U
I ,GENERAL REGISTER
R3=
%3
I, GENERAL REGISTER
II GENERAL REGISTER
R4=
" GENERAL REGISTER
R5=
R6=
H
I,GENERAL REGISTER
R7=
i7
I,GENE~AL ~EGISTER
.EQUIV R6,SP
"STACK POINTER
.EaUIV R7,PC
I I PROGRAM COUNTER
R~=

'5'4

I*PRIORITY LEVEL DEfINITIONS
I ,PRIORITY LEVEL"
"
40
IIPRIORITY LEVEL 1
PR2=
100
"PRIORITY LEVEL 2
PR3=
140
"PRIORITY LEVEL 3
PR4=
200
IIPRIORITY LEVEL 4
PR5=
240
IIPRIORITY LEVEL 5
PR6=
300
I'PRIO~ITY LEVEL 6
PR7=
340
IIPRIORITY LEVEL 7
PRe=
P~I=

I."SWITCH REGISTER' SWITCH DEfINITIONS

SEQ 0016

TAil BASIC'LOGIC TEST (PA~T 2) MAINDEC-II-DZTAB-C
DZTA8C.NEW
BASIC DEnNITlONS
113
114
115
116
117
118
119
120
121
122
123
124
125
12&
127
128
129
IJ0
13\
132

100000
840000
020000
B1e000
004000
002000
001000
000400
000200
000100
000040
000020
000610
0110004
000002
000001

SW04=

SW03=
SW02=
SW01=
SW00_

,FOUIV
.EQUIV
,EQUIV
.EGUI V
,EQUn
,EQUIV
,EGUIV
,EQUIV
,EQUIV
.EQUIV

IJJ
IJ4

IJS
\36
137
IJ8
IJ9
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

SWIS=
SWI4=
SW13=
SWI2=
SWII=
SWI0=
SW09=
SW08=
SW07=
5W06=
SW05=

~*DATA

100000
0401100
020000
010000
004000
002000
001000
000400
00020~

000100
000040
000020
000010
000004
0110002
000001

1~1

158
159
160
161

Ib2
1&3
164

1&5
Ibb
Ib7

BITIS=
BITl4=
BITt3=
BITI2=
BITII=
BIT10=
81T09=
BIT08=
BITe1=
BIT0&=
BIT0S=
BIT04=
SIr03=

171
172
173
114
175
176
111
17B
179
180

\3:26

PAGE 3

SEQ 0017

II-JUN-16

13:26

PAGE 4

SEQ 0018

1000011
40000
2011110
10''''0
4000
2000
1000
4011
200
100
40
20
10
4
2
1

SW09.SW9
SW0B.SW8
SWe7.SW7
SW06.SW6
SW05.SW5
5W04,SW4
SW03.SW3
SWII2.SW2
SW01.SWI
5Wk'0, SW0

BIT DEFINITIONS (BITII0 TO BITIS)
1001100
40000
200110
10000
40011
200~

8IT~2=

10110
400
200
1110
411
20
10
4

BIT01=
81T0"=
,EQUIV
,EQUIV
,EQUIV
.EQUlV
.EQUIV
,EQUlV
.EQUH
,t:gUIV
,EQUlV
.EQUIV

BIT09.BIT9
BIrIl8.BITB
BIT07.BIT7
81T06,81T6
BIT0S.BITS
BIT04.BIT4
BITII3.BIT]
8ITII2.BIT2
BIT01.BITI
BIT00.BITII

2
I

TAIl BASIC LOGIC TEST (PART 2) MAIND~C-II-DZTAB-C
DZTABC,NEW
BASIC DEFINITIONS
Ib9

ll-JUN-76

,<BASIC 'CPU' TRAP VECTOR ADDRESSES

16B

110

MACY1I 27(732)

000004
""0010
0"0014
000014
300014
900020
000024
0000)0
"""034
000060
0000b4

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 14
BPTVEC= 14
IOTVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC= 60
TPVEC= b4

,,00240

PI~QVEC=240

MACYII 27(132)

"TIME OUT ~HO OTHE~ ERRORS
"RESERVED AND ILLEGAL INSTRUCTIONS

::"'T" BIT
"TRACE TRAP
"BREAKPOINT TRAP (BPT)
" INPUT IOU1'PUT TRAP (lOT) "SCOPE"
"POWER FAIL

:,EMULATOR TRAP
J:"TRAP" TRAP

(~MT)

**ERROR**

, ,TTY KEYBOARD VECTOR
" TTY PRINTER VECTOR
"PROGRAM INTER~UPT REQUEST VECTOR

TAIl BASIC LOGIC TEST (PART 2] MAINDEC-11-DiTAB-C
DiTABC,NEW
TAIl D~FINITIONS

MACYI! 21(732)

II-JUN-76

\3,26

PAGE 5

SEQ 0019

I TA I! FUNCTIONS

181
182

IWRITE FILE GAP FUNCTION
2
IWRlTE FUNCTION
4
IREAD FUNCTION
BSFG=
6
IBACK SPACE FILE GAP FUNCTION
BSBG:
10
,BACK SPACE BLOCK GAP FUNCTION
SFFG=
12
,SPACE FWD FILE GAP FUNCTION
SF8G=
14
ISPACE FWD SLOCK GAP FUNCTION
~EWIND= 16
,REWIND FUNCTION
;:********.***.*.*.***********************************.******** ••

00""~0

183
184
185
186
187

WF'G=

WRITE=

~~II11~2

1~~

,,""004
01111006
0001610
1100012
01101114

189

0~II016

190
191
192

ITAII SIT ASSIGNMENT
EFROR= 8ITI5
CRCERR= bITI4
LEADER= BITI3
WRTLOCK=BITI2
FGAP=
8ITII
TIMERR= BITIII
OFfLINE=BI TII9
UNIT:
8IT08
TR. REQ= BITII7
INT .EN= BIT0b
READY= BIT05
ILBS=
BIT04
'UNC2= BIT03
FUNCI= BIT02
FUNC~=
BIT"I
GO=
BIT""
'-UNC Tl ON:
FUNC2 +FUNC I+FUHC~

1110000
11411000

193
194

195

0200~"
010110~

196
197

,,04000
01120110

198
199

e01~0"

2~~

00e4,,"
e00211"

2~1

0~"III0

2~2

2~3

0110114~

704

1100020

2~5

0~01110

206

000""4

2~7

110~0112

2~8

""0~01

2~9

""0016

210

~EAD=

11111111111111111111111111111111111111111111111111111111111111111111111
111111111111111111111111111111111 11111111111111111111 111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111

211

212
213
214

ISPECIAL REGISTERS
DRIVE= \]
TACS=
U
TADB=
,5

000001
000004
000005

215

216
217

,R3 CONTAINS THE DRIVE UNDER TEST
IR4 IS USED AS A POINTER TO THE ncs REGISTER
IRS IS USED AS A POINTER TO THE TADB REGISTER,

218
219

I1111111111111111111111111111111111111111111111111111111111111111111111
I1111111111111111111111111111111111111111111111111111111111111111111111

220

TAIl ~ASIC LOGIC TEST (PART 2)
DZTABC.N):;W
TRAP CATCHEP
221
222
223
224
225
226
227
228

P011174

219

""~176

210
211
232
233
214
215
236
237
238
219
240
241

~AINDEC-II-DZTAB-C

oSBTTL

~""214

000220
111'"224
1I11~2311
~0~2J4
e0~240

11110244
0002511

000174

0""~""

0""000
00~137

11011137
0011137
"""137
""0137
111111137
110al37
""0137
000137
0011137
00~137

II-JUN-76

13.26

PAGE 6

SEQ 0020

TRAP CATCHER
,:0

000""0

1100200
00"204
0011210

MACYII 27(732)

""1336
1101370
001376
11014114
1113776
1114062
0141511
~14230

1114332
014426
014512

I.ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ",+2.HALT"
I*S):;QUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
I'LOCATION 0 CONTAINS 0 TO CATCH IMPROPE~LY LOAOf.D VECTORS
.=174
DISPREG: ,hORD II
"SOfTWARE DISPLAY REGISTER
SWREG:
.WORD II
:ISOFTwARE SWITCR REGISTER
.SBTTL STARTING ADDRESS(ES)
JMP
UBEGINI
"JUMP TO STARTING ADDRESS OF PROGRAM
JMP
UBEGIN2
ISELECT DRIVElS) BErORE STARTING TEST
JMP
UBEGIN3
:SELECT DRIVElS) AND ADDRESSES BEFORE TESTING
JMP
PlBEGIN4
,SETUP FOR MANUAL LOOPING
JMP
UWFGSUB
,WRITE YlLE GAP fROM BOT TO EOT
.IMP
PIW~T8UB
,WRITE CONTINUOUS BLOC~S OF DATA
.IMP
IREAD CONTINUOUS BLOCKS Of DATA
"~DSUB
JMP
@#WGPBLK
IW~ITE fILE GAP AND A BLOCK OF DATA
JMP
U~GPBLK
,~EAD BLOCK OF DATA AND INTO A FILE GAP
JMP
PISFFGSB
ISPACE FWD FILE GAP FROM 80T TO ~OT
JMP
UBSFCSB
IBACK SPACE FILE GAPS

TAil BASIC LOGIC TEST IPART 2) MAINDEC-II-DZTAB-C
DZTABC.NEW
TOGGLE IN ROUTINES
242
243
244
245
246
247
248
249
250
251
252
25)
254
255
256
257
258
259
260
261
2&2
26)
264
2&5
266
267
2&8
2&9
270
271
272
273
274
275
276
277
278
279
280
281
282
28)
284
285

334
335
336

13:26

PAGE 7

SEQ 111121

:THE fOLLOWING ROUTINES CAN BE TOGGLED IN.

:1111111111111111111111111111111111111111111111111111111111111111111111

THE rOLLOWING ROUTINES (LOOPI, LOOP2, , [,OOP)) CAN BE TOGGLED
IN WHEN IT IS IMPOSSIBLE TO LOAD THE DIAGNOSTICS
NOTE:

BEfORE USING THESE ROUTINES INSURE THAT R),R4,& RS
ARE SETUP PROPERLY.

NOTE:

If USING SOFTWARE SWITCH REGISTER
LOCATION SWR 1=1140) MUST CONTAIN
"SWPEG M (=176).

ADDF~SS

R3=

**- PUT VALUE INTO 176 ***
** REGISTERS 3,4,&5 MUST RE SETUP**
** VIA MOVE INSTRUCTIONS **
0 If USING DRIVE A
400 IF USING DRIVE B

N4=

TAil STATUS REG ADDRESS (TACS (77500)

R5=

TAil DATA SUfFER ADDRESS ITADB 177502)

LOOPI wILL LOAD THE SWITCH REGISTER INTO THE TACS.
LOOP2 WILL WRITl THE CONTENTS OF THE SWITCH REGISTER
ALL THE WAY TO END-OY-TAPEIEOT).
LOOP] wILL
NOTE:

~EAD

TO EOT. DATA WILL GO TO RI!.

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

,LOAD SWITCH REGISTER INTO THE TACS
J J ** .... * ** ** .. ** *** ... ** ***** .. ** * .. * *** ** * ** •• * * * ** * ••• * •• ***********

000500
00050~

000504

017714
000775

.=500
0~0434

LOOPI:

MOV
aR

~swp,nACS

LOOPI

TAil BASIC LOGIC TLST (PART 2) MAINDEC-II-0ZTAS-C
MACYlI 27(732)
DZTABC.NEW
WRITE SWITCH REGISTER ON TAPE fROM BOT TO EOT
295
296
297
298
299
300
301
302
30)
304
305
306
307
308
309
310
311
lt2
313
314
315
lt6
317
318
319
320
321
322
]23
324
325
326
327
328
329
330
331
332
333

II-JUN-76

:1111111111111111111111111111111111111111111111111111111111111111111111
: 1111111111111111111111111111111111111111111111111111" 1111111111111111

l86

287
.88
289
290
291
292
29)
294

MACYII 27(732)

JJ •••

,[,OAD TACS
1LOOP

II-JUN-76

13:26

PAGE 8

SEQ 0022

*_._. __ ._-_ •.•.•. _-_ .•.••*_.--_ .... _.............*******.*.*
IWRITE SWITCH REGISTER ON TAPE fROM SOT TO EOT

;f···-*-_····-·······
__ ·············_···.···_···_···-.***.*******
.=600

000600
000600
000&02
000&04
000610
0006\4
00061&
000622
000bH
00062&
000&32
000634
000640
0011642

000005
010314
112714
032714
001775
112714
105714
100003
017715
000773
032714
1101357
1100767

LOOP2:
000017
000040

IS:

000003
2$:
000306
000040

3$'

RESET
MOV
MOva
~IT

BEQ
MOVB
TSTS
BPI"
MOV
BR
BIT
BNE
BP

DRIVE,nACS
IRt;WIND!GO,OTACS
'RUDY,@TACS

:CLEAR ALL fLAGS
,SELECT DRIVE
:GO TO BOT
:~AIT Tl['L READY COMES UP

'WRITE!GO,nACS
nACS
3$

PSWR,UADB

2$
IPEADY, nACS
LOOP2
2$

:START A WRITE
:CHECK fOR TRANSfER REQUEST
,SR IF NOT SET
:SEND DATA TO TAil
,LOOP
:DID READY sn?
,START OVER IF YES
,LOOP

fl-·-·_···_-_·····.··.···"'··_--.-***·*··****··****.**************
,READ fROM BOT TO EOT

::.*******.* •••• * •• ********************************.****.********
800700
800700
000702
880704
000710
1100714
000716
O1111722
1100724
1100726
O00730
000732
000736
000740

000005
811131 4
112714
832714
801775
112714
1057\4
1081102
811500
0110774
032714
""1360
0118170

.=700
LOOP3:
808017
0001'40

~OVB

\$,

1100005
2$'

000040

RESET
MOV

BIT
BEQ
MOVB
TSTB
BPL
MOV

sR
BIT
BNE
BR

D~IVE,nACS

.REWINDIGO,nACS
.READY,nACS
IS
'READIGO,@TACS
nACS
3.
nADB,R8
2$
'READY,nACS
LOOP3
2$

:CLEAR ALL YLAGS
:SELECT DRIVE
,START A REWIND
: WAIT ON REWIND TO fINISH
,START A READ
,CHECK TRANSFER REO
,B~ IF NOT SET
:PICKUP THE DATA
:LOOP
ICHECK READY
:START OVER

;LOOP

TAil BASIC LOGIC TEST (PA~T 2)
DZTABC,NEW
COMMON TAGS

MAINDEC-II-DZTA8-C

MACYII 27(732)

II-JUN-76

13126

337
338
339

.S8TTL

340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
3&1
3&2
363
364
3&5
36&
3&7
368
369
370
371
372
373
374
375
37&
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392

I*THIS TABLE CONTAINS VA~IOUS COMMON STORAGE LOCATIONS
I.USED IN THE PROGUM.

11*******··*******************************************

001100
001100
1101100
0"1102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
0111124
001126
001130
001132
001134
"01135
001136
0011411
1101142
001144
0"1146
001150
001152
001154
001155
001156
"01157
"01160
0~1I62

001164
0"1166
001170
"01172
"01176
001177
001200

000000
000"00
00000"
000000
177607

.WORD
,BYTE
,BYTE
,WORD
,WORD
.WORD

$E~FLG.

SE~RPC:

$GDADR:

.WORD

$BDAD~I

.WORD
.WORD

.WORD
,WORD
,WORD
,BYTE
,BYTE

SAUTOB:
$INTAG:

SWR:

II
II
II

"o
o

.WOPD

osw~

$ R~G0:
,WO~D
$REG!:
• WORD
STIMES: 0
$ESCAPE:II
$BELL:
,ASCll
,QUESI
.ASCII
SC~LF:
,ASCII

I:START OF COMMON TAGS
IICONTAINS PASS COUNT
: ,CONTAINS THE TEST NUMBER
I :CONTAINS ER~OR FLAG
I:CONTAINS SUBTEST ITERATION COUNT
IICONTAINS SCOPE LOOP ADD~ESS
IICONTAINS SCOPE RETU~N FOR ERRO~S
: ICONTAINS TOTAL ERRORS DETECTED
"CONTAINS ITEM CONTROL BYTE
"CONTAINS MAX. ERRORS PER TEST
"CONTAINS PC OF LAST ERROR INSTRUCTION
IICONTAINS ADDRESS OF 'GOOD' DATA
::CONTAINS ADD~ESS OF 'BAD' DATA

;,CONTAINS ·GOOO· DATA
I,CONTAINS 'ijAO' DATA
n RESERVEO--NOT TO BE USED
"AUTOMATIC MODE INDICATOR
"INTER~UPT MODE INDICATO~

IIAODRESS OF SWITCH REGISTER
IIADDRESS OF DISPLAY REGISTER
nTTY KBO STATUS
I,TH KBD BUFFER
"TT! PRINTER STATUS PEG, ADDRESS
IITTY PRINTE~ BUFFER ~EG, AOD~ESS
I,CONTAINS NULL CHARACTER I'OR FILLS
o
IICONTAINS • OF FILLER CHA~ACTERS REQUIRED
2
IIINSERT FILL CHA~S. AFTER A "LINE FEED'
12
II
I,'TERMINAL AVAILABLE' FLAG (BIT<07>=0=YES)
::CONTAINS THE ADDRESS FROM
II
I:.HICH
(SREG0) WAS OBTAINED
o
::CONTAINS «$REGAD)+0)
I:CONTAINS (($REGAO'+2)
:IMAX. NUMBER OF ITERATIONS
II ESCAPE ON ERROR AODHSS
<207><377><377> 1 ,CODE FO~ BELL
ODISP

11/

;rQUESTION MARk

<15>

I,CARRIAGE RETURN

SLY:
.ASCIZ <12>
"LINE FEED
;; •••••••••••••••••••••••••• ***** •••••••• ** •• *.* ••• *.************

000000
000"00

SAVPC:
SAVPS:

.WORD
,WORD

001206
001210
001212
001214
001216

! 77500
1775111
177502
177503
000260

TACSL:
TACSH:
TAOBL:
TAOBHI
TAVEC:

17750~

000300
000000
001224
000000
000000

.WO~D

DISPLAY, ,~ORD
STKS:
17756P
STKB:
1775&2
UPS:
177564
$TPB:
177566
SNULL: .8YTE
SFILLS • • BYT~
$FlLLC: .BYTE
STPFLG, ,BYTE
SPEGAD: ,WORD

000377

.WORD

SGDDAT:
$BDDAT,

077

,BYTE
,BYTE
.WORD

$E~MAX:

015
000012

o
o
o
o

$ICNT:
$LPADR:
$LPERR:
SERTTL:
$lTEMB:

001202
001204

901222
001224
001230
001232
001234

.*.*.*...

SEQ 0023

.=1100
$CMTAGI
SPASSI
STSTNM:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000
00a000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
1775&2
177564
1775&6
000
002
012
00"
000000

000262

TAli BASIC LOGIC TEST (PAFT 2)
OZTASC.NEW
COMMON UGS
393
394
395
396
3Q7

COMMON TAGS

PAGE 9

000000

,STOFAGE FOR THE PC
,STORAGE FO~ THE PS

:LOW BYTE ADDRESS OF TACS
,HIGH BYTE ADDRESS OF TACS
ILO. BnE ADD~ESS 01' TADB
IHIGH BYTE ADDRESS OF TAOB
'TAil VECTOR ADDRESS

1775~1

177502
! 77503
26".262

MAINOEC-II-0ZTAB-C

TAP~IO: 3110
DRVKEYI 11,11
DPVPNT: O~VKEY
ASKKEY, e
CURD~V: 0

MACYII 27(732)

II-JUN-76

13:26

PAGE 10

,TAl! BR LEVEL 6
,DRIVE SELECT ~EY:

:CURRENT ORIVE BEING TESTED

SEQ 0024

MACYU 27(732)

TAll BASIC LOGIC TEST (PART 2) MAINDEC-ll-DZTA8-C
DZTA8C .NEW
ERROR POINTER TABLE
398
399
40"
4111
402
403
404
405
406
401
408
409
410
411
412
413
414
41S
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430

431
432
433
4J4
4J5
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452

.S8TTL

Il-JUN-7&

13126

PAGE 11

SEQ 0025

ERROR POINTU TABLE

,*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
,*THE INFORMATION IS OBTAINED 8Y USING TKE I~DEX NUMBER FOUND IN
,*LOCATION SITEM8. THIa NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEM8 15 0 THE ONLY PERTINENT DATA IS (SERRPC).
,*NOTEI,
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS'
,*NOTE2'

,.
'*
;*

I·

$ERRTB,

001236

001236
""1240
001242
"01244

017066
01725&
017420
000000

0"124&
001250
001252
"01254

017105
017273
017426
000000

0"1256
0012&0
001262
1101264

017133
1117273
1117426
110000"

~01266

017174
1117273
017426
000000

,NOTE.

ALL NUMBERS ARE TYPED AS 6-DIGIT OCTAL NUMBERS

,ITEM

I
EMI
DHI
DTI

;JTEM

001-2711
0111272
001274

nPOINTS TO THE ERROR MESSAGE
"POINTS TO THE DATA HEADER
"POINTS TO THE DAn
"POINTS TO THE DATA FORMAT

EM
DH
DT
OF

017217
017330
017436
000000

001306
""1310
001312
001314

017234
017366
017450
00000"

EM2
DH2
DT2

,READY FAILED TO SET
WAIT ADDRESS
,PC
TACS
SAVPC
,SERRPC SREG"

,ITEM

3
EM3
DH2
DT2
0

,TRANSFER REQUEST FAILED TO SET
WAlT ADDRESS
,PC
TACS
,$I£RRPC UEG0
SAVPC

,ITEM

4
EM4
DH2
DT2

,THE WRONG FLAG SET
WAIT ADDRESS
,PC
TACS
SAVPC
,SERRPC SREG0

;ITEM

1101276
11013011
001302
001304

,STATUS PROBLEM
,PC
TACS
,SERRPC SREG0

;tTEM

5
EM5
DH5
DT5
0

,DATA PR08LEM
,PC
TAtS
,SENRPC SREG0

b
EM&
DHb
OT6
0

;INTERRUPT PROBLEM
BR LEVEL
,PC
TACS
SGDDAT
,SERRPC $REG"

UPECT
SGDDAT

MACYl1 27(732)

TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAR-C
ERROR POINTER TABLE

RCV'D
UDDAT

II-JUN-7&

13:26

PAGE 12

SEQ 0026

DZTABC.N~W

453
454
455
456
457
458
459
460
4&1
462
4&3
464

;ITEMS 2"1-2"2

ITEMS2.

0"1316
001316
0013211
""1322
001324

017472
017544
11174&0
000000

""1326
0013]0
001332
001334

017521
017561
0174bb
01l00""

£M2111
DH201
DT201

"EM202
DH202
DT202

,TAli HlLED TO RESPOND
,PC
TACS
,SERRPC TACS
,BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS
,NO DRIVES AVAlLA8LE
,PC
,nRRPC

TAli BASIC LOGIC TEST (PART 2! MAINDEC-II-DZTAS-C
DZTABC.Nt:W
START OF TEST
465
466
467
468
469
470
411
472
473
474

MACtl! 27( 7 32)

II-JUN-76

13:26

PAGE 13

SEQ 0027

I111111111111111111111111111111111111111111111111111111111111111111111/
11//1111111111111111111111111111111111111111111111111111111111111111111
JJ ••••• **.** •• ***.** ••• **********.********** •• *******. ******.****

IBEGINI IS FOR NORMAL START
IBEGIN2 IS FOR DRIVE SELECTION
IBEGIN3 IS FOR DRIVE & ADDRESS SELECTION
IBEGIN4 IS FOR MANUAL OPERATION

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

475

476
477
478
479
48O
481
482
483
484
485
486
487
488
489

001336
11013411
11111346
001154
001356
1101364
11111366
001370
001374
001376
001402
1101404

005005
1112737
122737
001015
022737
001011
000403
012705

041101
000005

1101224
000041

00026"

001216

000001

0~0405

012705
0110402
012705

1100002
0011"'03

1I~1419

49~

491
492
493
494
495
496
497
498
499
50"
501
502
503
504
5115
5116
50'
508
509

51~

511
512
51l
514
515
516
517
518
519
520

001410
001414
001416
001422
""1424

012706
005026
1122706
001374
111270,

'''11430

1101436
001444
0111452
001460
001466
001474
001502
001510
0111516
001522
001526
001534
901542

012737
012737
012737
012737
012737
012737
012737
012737
016767
005067
005067
112767
012767
O12767

001550
11111554
001562
110157~

013746
012737
012767
012767

001576
001604

001012

001006

O00403

~22777

O01100
1101140
~0110~

012264
O0113411
012536
0011340
016476
000340
016562
110034~

010476
177444
177442
000fi101
,,111534
0111542
000004
,,01610
17757O
177570
177777

000029
900022
000030
009032
000034
000036
''''0024
000026
010466
177361
177 344
177349

000004
177350
177344
177334

BEGINII CLR
R5
: NORMAL START
HOV
'" AB, "DRVKEY
CMPB
,CASSETTE DDP?
IS, "41
BNE
BGNCMN
I GO BEGIN COMMON CODE IF NO
CMP
J260,PUAVEC
ISTANDARD VECTOR?
BNE
BGNCMN
,GO BEGIN COMMON CODE IF NO
BR
BEGIN3
IGET DRIVES AND ADDRESSES
BEGIN21 MOV
II,R5
,ASK FOR DRIVES FLAG
BGNCMN
BR
IBEGIN COMMON CODE
BEGIN3, MOV
I2,R5
,ASK FOR DRIVES AND ADDRESSES
BGNCMN
8R
BEGIN4, MOV
H,P5
BGNCMN,
.SBTTL INITIALIZE THE COIIMON TAGS
"CLEAP THE COMMON TAGS (SCMUG) AREA
MOY
ISCMTAG,R6
nFIRST LOCATION TO BE CLEARED
; ,CLEAR IIEMOPY LOCATION
CLR
(P6l+
CMP
ISWP,P6 IIDONE?
BNE
"LOOP BACK IF NO
.-6
MOV
'STACK,SP
IISETUP THE STACK POINTER
II INITIALIZE A fEW VECTOPS
MOV
USCOPE,UIOTVEC IlIOT VECTOR FOR SCOPE POUTINE
MOV
.140, •• IOTVEC+2 "LEVEL 7
MOV
,SERPOR".EMTVEC IIEMT VECTOR FOR EPROR ROUTINE
MOV
#340,91EMTVEC+2 IILEV~L 7
MOV
'STRAP,a,TRAPVEC IITRAP VECTOR FOR TRAP CALLS
MOV
.340,UTRAPVEC+2ILEVEL 7
MOV
.SPWPON,"PWPVEC IIPOWER FAILURF. VECTOR
MOV
.3411,UP'RVEC+2 .,LEVEL 7
,ENDCT,SEOPCT
MOV
IISETUP END-OF-PROGRA~ COUNTER
CLR
STIMES
"INITIALIZE NUM8ER OF ITERATIONS
CLR
$ESCAPE
IICLEAR THE ESCAPE ON ERROR ADDPESS
MOVB
II, SERMAX
"ALLO~ ONE ERRO~ PER TEST
MOV
•• ,SLPADP
IIINITIALIZE THE LOOP AODRESS FOR SCOPE
MOV
•• ,SLPERR
IISETUP THE ERROR LOOP ADDRESS
IISIZE FOR A HARDWAPE SWITCH REGISTER. IF NOT FOUNO OR IT IS
"EQUAL TO A ·.1", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
UERRVEC,-(SP) :ISAVE ERPOR V~CTOR
MOV
164$, UERRVEC
IISET UP ERROR VECTOP
MOV
lOSWR,SWR
:ISETUP FOP A HARDWARE SWICH REGISTER
MOV
• DD UP, DISPLAY llANO A ~ARDWARE DISPLAY REGISTER
CMP
IITRY TO REFERENCE HARDWARE SWR
'-I,.SWR
8NE
6til
IIBRANCH IF NO TIMEOUT TRAP OCCURRED
llANO THE HARDWARE SWR IS NOT = -1
BR
ti51
118RANCH IF NO TIMEOUT

TAil BASIC LOGIC TEST (PART 2! MAINDEC-II-DZTAB-C
DZTABC.NEW
INITIALIZE THE COMfoION TAGS

521 0011>10 012716 001616
522 001614 000002
523 001616 012767 000176
524 1101624 012767 000174
525 A01632 012637 000004
526
527
528
529 901636 005227 177777
530 001642 00103.
531 1101644 022737 012232
532 1101652 0111432
533 001654 104401 001712
514
535 991660 005737 000042
536 801664 01111106
531 "01666 1126727 177246
538 001674 001905
539 001676 104405
549 00170O 000403
541 001702 112767 000001
542 001710
543 00171O 000413
544
545 001740
546
547
548
549
550
551
552
553
554
555
556
557 001740 010504
558 001742 005305
559 1101144 002406
56O 001746 004737 013254
561 001752 005305
562 001754 002402
563 1101756 "04737 013364
564
565
566
567
568
569
570
571
572
57]
574
575
576

US:

177314
17731O

65s:
66$1

000042

''00176

177224

HOV
RTI
MOV
MOV
MOV

MACYI! 27(732)
'65S,(SP)

II-JUN-76

13:26

PAGE 14

IISET UP FOR TRAP RETURN

UWPEG,SWR
,'POINT TO SOFTWARE SWP
IDISPREG,DISPLAY
(SP
ERRVEC "RESTORE ERROR VECTOR

l+,"

.SBTTL TYPE PROGRAM NAME
IITYPE THE NAME OF THE PPOGPAM IF FIRST PASS
INC
:IFIRST TIME?
'-1
BNE
HE~E
"BRANCH IF NO
CMP
UENDAD,U42
"ACT-II?
BEQ
HEPE
IIBRANCH If' YES
TYPE
,MSGID
"TYPE ASCIZ STRING
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER
TST
U42
IIARE WE PUNNING UNDER XXDP/ACT?
BNE
678
IIBRANCH I f YES
CMp
SWR,'SWR~G
IISOFTWARE SWITCH REG SELECTED?
BNE
68$
II BRANCH IF NO
GTSWR
IIGET SOFT-swR SETTINGS
8R
68S
67$1
MOV8
II, SAUToe
IISET AUTO-MODE INDICATOP
68S:

BP
HERE
II GET 0 VER THE ASC IZ
1 :MSGID:
.ASCIZ <CRLF>/MAINDEC-II-DZTA8-C I<CRLY>
HEPEI
;:.-****.-.** •••• _••••••• *._* •• ** ...... __ ••• _***--****.************
::***4***********************************************************
;THE CONTENTS OF R5 DETERMINES WHAT WILL BE DONE
I
R5=3
foIARUAL OPERATIONS
R5=2
AS~ FOR DRIVE(S! AND ADDPESSES (TACS AND VECTOR!
R5=1
ASK FOR DRIVE(S!
R5s0
DON'T ASK FOA ANYTHING

:, •• **.* •• _•• *.**_ •• * •• * ••• _•••••••• *•• ** •• ** •••• *.* •• ******* •• **
BEGINXa MOV
R5,R4
ICOPY R5
DEC
R5
IASK FOP DRIVES?
BLT
CHKADR
IBR IF ND
JSR
PC,UASKDRV
IGO GET DPIVEs TO 8E TESTED
DEC
R5
IASK FOR ADDRESSES?
BLf
CHKADP
IBR IF NO
JSR
PC, UlSKADR
IGO GET TAil ADDRESSES
, • *.****_.** ••• *** •••• **.**.-* ••••• *.*.* •••• * ••• **** •• * •• ********
JI···*···*** ••• *_.*.***._* ••• _•••• _•• * •• _*_._*.*._.**_***********
ICHECK THAT 'TACS' WILL RESPOND TO ADDRESSING
I
II.
TIfoIEOUT OCCURRED
A. TYPE ERROR MESSAGE
I
B, EXAMINE 114
I. R4>0 GOTO BEGINX
2. 11:4_0 EXAMINE (42)
A. (42)-" GOTO BEGINX
B. (42»0 GOTO SENDAD

SEQ 0028

MACYII 27(732)

TAli BASIC LOGIC TEST (PART 2) MAlNDEC-lI-DZTAB-C
DZTABC.NEW
GET VALUE FOR SOFTWARE SWITCH REGISTER
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598

,II.

TIMEOUT DIDN'T OCCUR

CH~ADR:

MOV
CLR
TST
BR
INC
CMP
MOV
TST
BEQ
ERROR
HOV
TST
8NE
MOV
BEQ
JMP
CuR

13.26

PAGE 15

SEQ 0029

A. CONTINUE
,;;* •• *************************************************
•• _*****.**

1101762
001770
001772
001776
1102000
802002
002004
002012
1102014
1102016
002020
002024
002026
002030
002034
1102036
002042
002046

012737
005000
005777
000402
005200
022626
012737
005700
001414
104201
IU27eS
005704
001344
013700
001741
000137
885077

002000

000004

177210
IS,
000006

000004

2$,

000002
000042
012232
177152

'1$,~'ERRVEC

R0
~TACSL

2$
R0
(SP)+,(SP)+
.ERRVEC+2.t#ERRVEC
R0
3$
201
I2,R5
R4
BEGINX
f342,R0
BEGINX
'UENDAD
UAVEC+2

;IN CASE OF TIMEOUTS
:USE AS A SWITCH
;SEE IF TAil RESPONDS
; BR IF NO TIMEOUT
;COHE HERE ON TIMEOUT
;CLEANUP THE STACK
;RESTORE TIMEOUT VECTOR
,010 A TIMEOUT OCCUR?
;BR IF NO
;TAII FAILED TO RESPONO
,DRIVES & ADDRESSES
:OPERATOR INPUTS?
,BR IF YES
;GET MONITOR RETURN ADDRESS
:BR IF NO MONITOR
,GO TO END

3S1

TAli BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAR-C
DZTASC.NEW
GET VALUE FOR SOFTWARE SWITCH REGISTER

MACYII 27(732)

II-JUN-76

13:26

PAGE 16

SEQ 0030

--*-

Jr···········**_····_·**--_···-·-·**-_···*-**·*·_·***·
**.***** •• *
,J** •• * ••• •• *.* •••••• *_.* ••• * ••••••• **.**** ••••• ** •• - •• * ••••

599
600
601
602
603
604
605
606
607
608
609
610

IMA~E

:
:1.

611

612
613
614
615
616
617
618
01,9
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
64\
642
643
644
645
646
647
648
649
6511
651
652
653
654

II-JUN-76

SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED
DESIRED DRIVES CAN NOT BE TESTED
A. TYPE ERROR MESSAGE
S. EXAMINE P4
1. R4>0 GOTO BEGIN X
2. P4:0 EXAMINE (42)
A. (42)=0 GOTO SEGINX
B. (42»0 GOTO $ENDAD
BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED
A. CLEAR BAD DRIVE FROM THE DRIVE TABLE
B. CONTINUE IN PROGRAM

;

I Ill.

DESIRED DRIVE(S) CAN BE TE5TED
A. CONTINUE IN PROGRAM

;

002046
802052
0021156
"02060
0021164
1102066
1102072
"02074
002076
002111"
11021112
11021116
""2110
002112
IIflJ2116
902122
1102126
"0213"
11112134
"02136
1102140
802142
002144
.02150
.112152
802154
1102160
002162
902166
IlfIJ2172
8f1J2174
SflJ220fIJ
11022114
802206
IIflJ2212

012700
""4737
1100410
1161110
11111412
0047)7
000407
11051110
e011405
005200
B04737
800481
105f1J10
812700
018837
12106O
9011102
105060
""5710
801481
0118412
1114202
0127115
005704
001272
1113700
1101667
111111137
112"427
""I11f1J2
11167f1J4
81f1JU7
11084f1J5
1844111
1112737

001224
015046
0011001
015046

015046
001224
001230
0000flJl
0011001

0000112
0110042
012232
IIJfIJ""03
175577
1101232
001712
1101224

081230

J:*.*****.********.****** ••• ** •••• ***.***.*.*.**********.* •• *****
CHKDRV: MOV
.DRVKEY,R0
;PICKUP ADDRESS OF ASCII D~IVE KEY
JSR
PC, •• EXAM
;GO EXAMINE FI~ST DRIVE
BR
1$
,OK TO rESTo-eGO ChECK NEXT
MOVB
1(~01.cR0)
;REPLACE 1ST WITH 2ND
BEQ
2$
,BR IF NO 2ND DRIVE SELECTED
JSR
PC,UEXAM
:GO EXA"INE DRIVE
SR
2$
,O~ TO TEST
CL~
(R0)
,CLEAR DRIVE CODES
BR
2$
IS:
INC
R0
:POINT TO 2ND
JSR
PC, •• EXAM
,GO EXAMINE DRIVE
BR
2$
,OK TO TEST
CLRB
(R0)
,CLEAR 2ND
2S:
MOV
3DRVKEY,R0
;RESET ADDRESS POINTERS
MOV
R0,a'DRVPNT
CMPB
(R0),I(R0)
:IST = 2ND?
BNE
3$
,SR IF NO
CL~B
I(R0)
;YES---CLEAR 2ND
3$'
TST
(Re)
:ANY DRIVES?
BEQ
5$
,SR If NO
BR
MANUAL
5$,
ERROR
202
;NO DRIVES AVAILABLE
MOV
'2,R5
,DRIVES & ADDRESS
TST
R4
;OPERATOR INPUTS?
BNE
BEGIN X
; BR IF YES
MOV
.,42, ~0
,GET MONITOR RETURN ADD~ESS
BEQ
BEGIN X
,NO MONITOR
JMP
"SENDAD
;GO TO END
MANUALI CMP R4,'3
BNE
OK
MOV
-I,R4
OK.
MOV
R4,UASKKEY
BR
START
PWRSTI TYPE
,MSGID
,POWER FAIL RESTART
NOV
,DRVKEY,@.DRVPNT

MAINDEC-II-DZTAB-C
TAIl BASIC LOGIC TEST (PART 2)
DZTABC .Ne:W
GET HLUE FOR SOfTWARE SWITC. REGISTER
655
656
657
658
659
6b~

",t

661
662
663
664
665
666
667
668
669
6N
671
672
673
6H
675
676
677
678
679
b803
b81
682
683
684
685

686
687
6B8
689
690
691
692
693
694
69S

002220
00222b
002232
002240
002244
002250
002254
002256
002264
~0227{'1

002272
~~227&
~.2302

002304
002310
002110
002314

013777
005077
012737
013704
013705
005737
SJl00l
012737
005037
0e1S"HH
013101
121127
0J 1402
012703

001220
176766
000340
001206
001212
001100

104401
fHHH11

002316

1$
# -CBITI5, @'MAXCNT
@OSTSTNM
DRIVE

001230

MOV

@#DFlVPNT,Rt

~00101

CMPB
BEQ
MOV

(Rll,."'A
TDRV

START:

177776

013150
1$,

000400

0~23&4

00:137"
002314
002376
,,0240'"
~"24"2

002410
002412
.02414

@#TAVEC.2,nAVEC
@TAVEC+2
#340,@#PS
@#TACSL,TA.CS

7~7

708
709
71"
711
712
713
7\4
715
716
717
718
719

112167
104401
104401
105711
~01002

012Hl
010131
00513 7
002007

001224
001230
001232

1$:

00500~

000000
022767
001001

f'J001 '16

17653.

104405

~rJ2434

25 :

0013042

0"01')1 ?
~00~40

3$:

TYPE
BR
,ASC I Z

IIUNIT,DRIVE.
,655

"TYPE ASCIZ STRING

64$

"GET OVER THE ASCIZ

< 15>< 12>*T[S11 NG DRl VE

MOVB
TYPE
TYPE
TST6
BNE
MOV
MOV
TsT
BGE
CLR
HALT
CMP
BNE
GTSWR

TST
BEQ
MOV
MOVS
BIT
BEQ

,>TEsT I

002436
00244"
~0244b

002452
0n454
002456
00246"
~02464

002466
002412

002474
002502
0025~b

002512

002516

728

002534
002542

73"

~02544

131

002546
002552
002554
002560
002562
002564
002566
002570
002512
002514
002576
002600
002602
002606
002610
002612
002614
002616
00262"
002624
002626

144
745
746
747

74B
149
750
751

{Fll)+,CUFlOFIV
,CUFWFlV

;SETUP TO

,5CRLf

TYPE A CR • LF
LAST DRl VE BEEN SELECTED
BR IF NO
RESET DRIVE pOINTER
SAVE DRIVE POINTER FOR NEXT TIME
GO START TI::STING IF NO MANUAL
OPERATIONS REQUESTED

(RtJ
1$

jODRVKEY, fH
Fl1, fHDFlVPNT

@I!ASKKEY
25
R0

TYPE CURRENT DRIVE

GIVE CONTROL TO THE OPERATOR
USING S/W SWITCH PEG.)
NO- GET OUT
LET HIM CH~NGE IT
CONTINUE

# 5WREG, SwF
20$

@#42
TsTI

IS THERE A MONITOR?
GO START TESTING I f NO
IF YES SELECT DRIVE
SEND TAPE TO BOT
WAI T ON READY
FALL THRtJ IF READY:I

DRIVE,@TACS
3REWIND! GO, {aTAC S
3READY,@TACS

MAcr11 27(732)

II-JUN-76

13:26

PAGE 18

SEQ 0032

I / III

~02520

738
739
740
741
742
743

,GET DRIVE POINTER
; IS IT DRIVE "AR?
,BR IF YES
; SET DRI VE TO "B"

,THIS ISN"T A PEAL TEST BUT A SMALL ROUTINE 10 DETERMINE THE MAX.

~~2526

737

,ZERO THE TEST NUMBER

:SET DRIVE TO "A"

1TIME FOB THE WAIT LOOPS (WAlT FOR "READ~" AND "TFIANSFER REQUEST")
::**.*****************************.**************.***** •• *** .... **

127

135
7)6

, I f FIRST PASS SETUP FOR EXTRA LONG WAIT LOOPS
; OTHERW lSE USE OLD VALUES

;/////11111111111111111111/1///1111////1/1//111///111/11/111111111111/1

726

734

; SETUP TACS
; SETUP TAOS

~ISPASS

;~ ~~~~~~~~~~~~~~~~~~~~~~~~~~;~:;~~~~:~~~~~~~~~}!~~~~~~~~~~~~~:~~~ /
0i:hHhH
012767
005737
001021
000005
010314
112714
104412
112714
104412
163737
005237
"06131
0061 J1

000004
012767
012767
012767
000005
010314
112714
104412
112714
104413
105714
100401
104001
005015
005000
005001
105714
100405
062700
005501
100372
104001
105714
100005
162700
005601
100372

ROUTINE TO DEnRMINE TIME 0,' WAIT LOOPS

: : .. * **-a .... ***.**.*. ********* **** *4*************** I- ** **************

TST1:

000001
001 t 00

176520

SCOPE
MDV
TST
BNE
RESET

MOV
MOVB

000001
013124
013150
013150
0t.H 50

'"STIMES

::00 1 ITERATION

@#$PASS
TST2

: JBR IF NO

;IS THIS THE FIRST PASS?

DRIVE,@TACS

MOVB
#REWIND1GD,@TACs
WAI TREADY

000017

,WFGIGO,@TACS

WAITREADY
SUB
@#HGHTIM,@#MAXCNT
INC
@#MAXCNT
ROL
@.MAXCNT
ROL
@,MAXCNT

013150

,SELECT THE DRIVE
,START A REWIND
,WAIT FOR READY
,WRITE A FILE GAP
,WAIT ON READY
,GET THE TIME IT TOOK
,MAH IT BIGGER

,1111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111
;THE fOLLOWING TEST WILL CHECK TIMING ERRORS FOR BOTH "WRITE" AND "REAO"~
,1111111111111111111111111111111111111111111111111111111111111111111111
::******* •• **.******************-**** •• *********.****** .. ***.****.
;*TEST 2
TEST "TIMING ~RROFl" FOFl "WRITE"
;;*** ••• ****** •• ******************************.* .. ****************

721
722

732
733

,SETUP TAil TRAP VECTOR

20$ :
005731
001406
010314
11271 4
032714
001175

723

729

SEQ 0031

; THIS CODE IS FOR ACTII .. DDP
002114
"02420
002422
0"2424
002430

720

724
725

PAGE \7

b45 :
176670
001234
001177

696
697
698
699
700
701
702
103
705
706

13.26

,LOCKOUT ALL I/O IN!

@IfTADBL,TA08

TAli BASIC LOGIC nST (PAPT 2)
MAINDEC-II-DZTAS-C
DZTABC,NEW
GET VALUE FOR SOFTWARE S.JTCH REGISTER

704

II-JUN-76

TDRV,

, ,65$:
002340
002340
002344
002350
0.2354
002356
002360

27(732)

MOV
CLR
MOV
HOV
MOV
1ST
BNE
MOV
CLR
CLR

077777
001102

\76770

MACYl I

T5T2:
000012
002554
002656

170440
176352
176426

000017

SCOPE
MDV
MOV
MOV
RESET
MOV
MOVS

'10.,$TIMES
17$,$LPAOR
nSTJ,$EsCAPE
DRIVE,@TACS
#REWIND1GO,@TACS

WAITREAOY
000003

7S:

1$:

2$,
000010

3$'
000001

MOVS

#WRITE)GO,@TAC5

,DO 10. ITERATIONS
,SET SCOPE LOOP ADDRESS
;ESCAPE TO TEST 3 ON ERROR
,SELECT DRIVE
iGO TO "CLEAR LEADERR

;WAIT ON IiREAD'tl'f
~WRITE

FUNCTION

WAITXrER
ISTS
@TACS

~WAIT ON "XFE~ REQ"
;IS "XFER REQ" = 1

BMI

JBR I f YES

ERROR

1NO ftXFER REO'" OCCURRED

CLR
eLR
CLR
TsTB
BMI
ADD
ADC
BPL
ERROR
TSTB
BPL
SUB
sBC
BPL

@TADB
R0
RI
@TACS
35
'10,R0
RI
2$
I
@TACs
4$
'I,R0
RI

,KNOCK DOWN 'XFER REG"
,CLEAR COUNTER

,WAIT FOR 'XFER REO'
,KEEP TRACK OF HOW LONG
,IT TAKES 'XFER REQ" TO SET
'XFER REO' FAILED TO SET
SAMPLE .'XfER REO"
I f "XYER REO'
0 SOMETHING IS WRONG
DOWN COUNT THE COUNTER
SO A "TIMING ERROR WILL
OCCUR

IAI! BASIC LOGIC TEST
DZTABC.NEW
T2

MACYll 27(732)

(PART 2)
MAINDEC-II-DZTAB-C
TEST "tIMING ERRORI'! fOP 'IIWRITE"

752
753

002630
002632

000401

4S,

SR
ERROR

104001

754

002634

5$ :

TSTB

laTAD8

155

002636
002640
002642

105715
104412
005714

756

757

002644

758
759
760
761
762

\0040\
104001

002646
002652
002654

032714
001001

165
166

002656

000004

0026o~

767
768

~02666

012767
012767
012767

\04001

;~TEST 3

169
770
771
772

773

714
775
776

777
778
779

780
78 I
782
783

002706
002712
002714
002720
002724
002726
002732

002734
002736
002140
.02744
002146

784
785

002752
002754
002760

78E>

002762

787
788

002764

789
79"

002710
002772

791

002774
002776

792
79 J
794

795
796
797
798
799
B0"
801
B02

0027&6

00J~0"

003002

112715
104413

104412
112714
104412
112714
104413
105714
100401
104001
105715
00500"

100 J 12

003012

104001

003014
003016

105714
100005
16270"

003026
00303"

B06
B07

003036
"03042

003032
003034

17.300

002714
003062

176212
176266

000003
0"0006

7 s:

808
809
810

000377

8S:

81!
BI2
813
814
815
BI6
B17
818
BI9

B20
821
822
B23

005714

003056

001001
104001

"03~&~

003062
003064
003072
00310"
003106
00311"

003112
003116
003120

0031 24
003126

B35

836
BH

838
839
B40
841
842
B4J
844
845
846

DRIVE,~TACS

,SELECT DRIVE

Jf~EWIND!GO,lCITACS

:GO TO "CLEAR LEADER"

MO\l8
MOV

ltIWRITE.1GO,@TACS

DEC

BGT

BIS

#ILBS,~TACS

;WAIT fOR "READY"
; WRITE
,WRITE THIS MANY BYTES ON TAPE
:W~IT fOR ~XFER REO~
:WRITE ONE BYTE
;WAIT fOR ~XFER REG"

;LAST BYTE OUT?
lBR U· NO
:WRITE "CRCiII

;WAIT FOR "READY"

WAITRE:ADY
MOV8

000005

MOVS

; BACK OVEk THE BLOCK
;WAIT FOR "READY"

#REWIND ~GO, @TACS

WA!TFEAO¥

2 s:
000012

3$ :
000001

BPI.

,8R If ¥OS
~"XFER

FO~

0$ ,

REo n 0 IDN' T SET

;KNOCK DOWN "XrER REO"
:CLEAR COUNTE.RS

;FIND OUT HOW LONG IT
;TAKES FOR "XFER REQ"
,TO SET
; "XFER REG" FAILED TO SET
,NO. WASTE MORE THAN THE ABOVE
,AMOUNT OF TIME SO THAI'

;A "TE" WILL OCCUR

~ACYIl

MAINDEC-II-OZTAB-C

002000

:WAIT FOR "XfER REO"

: IS "XrI:':R REO" SET

BF
5$
ERROR
I
TSTB
@TADH
BIS
# ILBS,@TACS
WAITREADY

4$ :
5$ ,

TEST "TIMING ERROR"

;START A "READ"

#RlADtGO,~TACS

WA!TXf£,R
TSTB
~TACS
HMI
1$
ERROR
I
IST8
~TAD8
CLF
B0
CLF
Rl
TSTH
@TACS
8MI
3$
ADD
#10B,R~
ADC
Rl
HPL
2$
ERROR
I
TSTB
@TACS
BPL
4S
SUB
# 1, Rei
SBC
RI

1$:

: II Xf'ER
REQn CLEARED SOME HOw
;KNOCK UOWN "XFER PEa"

,STOP THE READ

:WAIT ON "READY"

27(732)

I1-JUN-76

13:26

PAGE 20

"P£AD"
TST
8MI
ERROR
BIT
BNE
ERROR

@lACS

6$
I
HIMEPR.@TACS
TS14

: IS "ERROR" SET?
,BR If YES
_ II E;~ROR"
NOT

:15 THERl A "TIMING J::FlROR"

;: GO TO NEXT TEST IF YES

;"TIMING ERROR" NOT SET

TEST "ERROR" OUTPUT OF STATUS f<QM USING A "TIMING ERROR"

003132
003134

003\ 40
003142
003144
003146
003150
003154
0031 56

003160
003162
003164

003166

00NH2

176074

SCOPE
MOV

012767
012767

003126

176006

MOV

~ 1 S, $LPADR

003342

176062

MOV
RESET
MOV

#TST5,SESCAPE

112714
104412
112714
104412
112714
104413
112715

003176
003200

100371
105715

003202
003204

003206

848

003210
003212
003216

032714
001001

855

003232

856
857
858

003234
003240
003242

859

003244

104001

B60
861
862
863

003246

112714
005714
100401
104001

003252
003254
003256

TO SET

#WRITE!GO,rnACS
~377,@TADB

: WFi'ITE ONE BYTE

B0
81
@TACS
3$
#10., R0

;CHECK FOR "XFER

000012

CLF
CLR
TSTB
8MI
ADD

ADC

BPL
ERROR
lS1B

2$
I
@TACS

B"I

MOVB
WAITXFER

2S,

3 s,
000~01

4$ ,

002000

5$:

000000

6$:

0057\4

100001
104001
112714
005714
100401

"READ~"

,GET ON THE OXIDE

Move

1$'

104001
104001
1127 !4

,SELECT DRIVE
,GO TO BEGINNING Of TAPE

;WAIT ON

000377

000003

100401
104001

162700

00322&
003230

MOVa
#WFGIGO.@TACS
WA!TREADY

,DO 10. 11ERATIONS
,SET SCOPE LOOP ADDRESS
,ESCAPE TO TEST 5 ON ERROR

;WAI! ON "READY" TO SET
; START A WRITE

005501
100312
104001
105714

005601

DRIVE.@TACS

MOVS

000001

105714
100405
062700

1i:10~,STIMES

IREWIND!GO,PTACS
wAITREAD¥

000017

005000
005001

003174

003222

TS14,

000005
010114

003170

003220

: 1 ** ***4 '* 'it .. ******** ********.;;J.j:fit * *******************'***************

000004

847
850
851
852
853
854

, : SET SCOPE LOOP ADDRESS
"ESCAPE TO TEST 4 ON ERROR

HST4.SESCAPE

012761

104412
005714
100401

849

;;00 10. ITERATIONS

#7S,SLPADf<

ptTEST 4

82&
B27

BJ4

·.*···················· .. * ••••••••

#l0.,STIMES

: : ** **4*** ******* ************* ***** ****************** o!f******* ****

824
825
B28
B29
830
8J1
B32
833

; ~ BR IF YES
: "Tl/HNG ERROR" NOT SET

MOVS

10.401
104001
032714

I.r YES

:~ERROR" BIT NOT SET
;IS ~TIMING E.RROR" :::::

HOV

0~HH311

1040.1
105715
052714
104412

003044
003046
00305"
003052

lIS tlERROR n BIT SET?
:BR

tlti,R0
wAITXfER
MOVS
1377,@TADB
WAITXfF.R

005601
100372
000401

;CLEAP "XFER REO"
;WAIT FOR "READY"

WA!TREAOY

BASIC LOGIC TEST (PART 2)

DZTABC~NEW

SCOPE
MOV
MOV
MOV
RESET

000'117

1051\4
100405
062700
005501

003024

000012

005001

"'~3006

003020

Tsn:

00530"
00337 J
052714

0a301"

B03
804
805

TAil

012700
104413

SEQ 0033

TEST "TIMING ERROR~ FOR "READ~

;;.It.** •• * ••••••••••••• **·.** ••

764

000005
010314
11271 4
104412
112714

PAGE 19

. . ********** ** **** ********* *****************4***************** ***

763

002674
002702
002704

13:26

:"XFER R~QI! SHOULON"'r HAVE CLEARED

WAITREADY
TST
@TACS
BM!
6$
ERROR
I
BIT
ITI"ERR.@TACS
8NE
TST3
ERROR
1

&s:

002000

II-JUN-76

000002

000004

8S:

,WAIT fOR "TRANSfER REa"

ERHOR
I
SUB
#1,R0
SBC
81
BPL
3$
IS1B
UAOS
WAITREADY
TST
@TACS
BMI
5$
ERROR
1
BIT
#TIMERR,@TACS
BNE
6S
ERROR
I
MOVB
#WFG,~TACS
TST
@TACS
BPL
7S
ERROR
I
Hova
#WRITE,nACS
TST
@TACS
BMI
8$
ERROR
1

MOVS

#READ,@TACS

l'ST

@TACS

BMI

ERROR

,CLEAR THE DOUBLE LENGTH COUNTER
REQ~

,BR IF SET

;COUNT UP UNTIL "XFER REa"
:SETS OR OVERFLOW OCCURS
," XfER REQ" FAILED TO SET
,CHECK "XFER REQ"
lBF IF SET
: "XFER REQ" SHOULDN'T HAVE CLEARED
,COUNT DOWN TO CAUSE A "TE~

:CLEAR "XFER PEQ"
,WAlT fOR READY

;MAKE SURE "ERROR" IS SET
;~ERROR" DIDN'T SET
fMAKE SURE liTE" IS SET

"TE" FAILED TO SET
CHECK "ERROR" WITH

"WFG"

SAMPLE THE "ERROR" BIT
SR IF "ERROR" = 0
"ERROR" NOT = 0
CHECK "ERROR" WITH "WRITE"
SAMPLE THE "ERROR" BIT
SA IF ~ERROR"
1

"ERROR'" NOT

=
=1

CHECK "ERROR" WITH "READN
SAMPLE THE "ERROR" BIT
SR IF "ERROR"
1
"ERROR" NOT = 1

SEQ 0034

TAil BASIC LOGIC TEST (PART 2)
MAINDEC-II-DZTAS-C
MACYlI 27(732)
1I-JUN-70
DZTABC.NEW
T4
TEST "ERROR" OUTPUT OF STATUS ROM USING A "TIMING ERROR"
864
86S
866
867
868
869
870
871
872
e7J
874
875
876
877
B78
879
BB"
BBI
Be2
883
884
885

886
B81
B8B
B89
89"
891
892
893
894
895
896
897
89B
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
91 B
919

003260
003264
003266
00327.
003272
003276
003300
003302
003304
003310
00B12
003314
003316
003322
003324
003326
003330
003334
003336
003340

112714
005714
100001
104001
112714
005714
100001
104001
112714
0057! 4
10000!
104001
112714
0057! 4
100001
104001
112714
005714
100001
104001

000006

9S:

000010

10$:

000012

12$;

000014

13$:

000016

PAGE 21

HOVe

#BSfG,@TACS

;CHECK "ERROR" WITH "BSFG M

TST
BPL

@TACS
10$

;SAHPLE THE "ERROP" BIT
,SR IF "ERROR" = 0

: "ERROR" NOT

ERROR

11$:

13.26

MOVB

#BSBG,@TACS

;CHECK "ERROR" WITH "BSBG M

TST

@TACS

;SAMPLE THE "ERRORw BIT

BPL
ERHOR

I1S
1

iSR If "ERROR"
0
;"ERROR" NOT
0

MOVH
TST

ISfFG,~TACS

@TACS

iCHECK "ERROR" WITH "SYrG"
,SAMPLE THE "E~~O~' BIT

BPL

12$
1

,"ERROR" NOT = 0

MOVB

#SFBG,@TACS

:CHECK "ERROR" wITH "SrBG"

TST

@TACs

BPL

13$

ERROR

.REwIND,~TACS

~TACS

BPL

TSTS

ERROR

;SR IF "ERROR"

ERROR

MOVB
TST

SEQ 0035

; SAMPLE 'fHE "ERROR I!

BIT

:BR IF "ERROR"
0
;"ERROR" NOT = 0
;CHECK "ERROR" WITH "REWIND"
:SAMPLE THE "ERRORK BIT
,;BR IF "F.RROR" = "
,"ERROR" NOT
0

;11111/111111111111111111111111111111111111111111111111111/1111111/1111
,1111111111111111111111111111111111111111111111111/111111111111111111/1
,THE FOLLOWING TESTS CHECK THE INTERRUPT CIRCUITRY FOR:

,1)
,2)
:3)

:4)
;5)

INTER~UPT

OCCURS AT THE PROPER 'e~" LEVEL
"READY' WILL INTERRUPT
"TRANSfER REQUEST" WILL INTERRUPT
IMPROPER INTERRUPTS DO NOT OCCUR
WITH AN E~ROR PENDING AND "XFER REQ," SET THE fOLLOWING SEQUENCE OCCURS
A)
"XFER REy" CAUSES AN INTERRUPT
B)
CLEARING "XFER REQ" ALLOWS "REAOY" TO SET
C)
"READY" CAUSES AN INTERRUPT

;111111111///1/111/11/1//1111/1/1/1/1/11/1111111111/1//111111/1/////11/

; ; *******,THIS
* ,y.**ii- ***
******* ******4**********************************
TEST HILL SETUP THE TAll'S nCTOR ADDRESS AND AT ADDRESS 0
,A JMP ~(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0.
: IT WILL THEN SET THE PRIO~ITY LEVEL TO 0 AND HASTE ENOUGH TIME
,FOR AN INTERRUPT TO OCCUR.
:AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
,AND CHECK IF AN INTERRUPT OCCURRED.

003342
003344
"03352
,=,03360

003362
003]64
"03372
lHH376

003400
0034'tl4

003412

000"'''4
0127.7
012767
000005
010J14
012737
012H0
005001
012702
012771
012777

:;***********************
•• ***************************.**********
"TEST 5
TEST INTER~UPT WITH READ! = "I' AT LEVEL 0
;IST5:
, ***** -If SCOP<
*** *.************* *********** *********** ********** *******
0033.2
003520

175534
175610
1 s:

117776

000001
"0351"
000340

175604
175600

MOV
MOV
RESET
MOV
MOV
MOV
CLR
MOV
MOV
HOV

#l$,SLPADR
.6s.SESCAPE

; ,SET sCOPE LOOP AODRESS
;:ESCAPE TO 6& ON E~FOR

DRIVE, (i:lTACS
,LOCK OUT ALL INTERRUPTS
,TEST AT PRIO~ITY LEVEL 0
,CLEAR INTERRUPT KEY
,SETUP TO WASTE A LITTLE TIME

'340,@IPS
#0, R0

RI
#1,R2
HS,@TAVEC

;INT~RRUPT

RETURN

,LOCK OUT THE "ORLD IF INTERRUPT

#34~,~TAVEC+2

TAli BASIC LOGIC TEST (PART 2)
MAlNOEC-!I.0ZTAB-C
MACYlI21(732)
TS
TEST INTERRUPT WITH READY = "1" AT LEVEL 0

II-JUN-16

13:2.

PAGE 22

SEQ 0036

DZTA,8C.NEvl

92"
911
922
923
924
925
926
927
928
929
930
931
932
933

934
935
936
937
93B
939
940

941
942
943

944
945
946

000137
003514

003462
003464
003472
003414

012737
012731
1121\4
012737
006302
0~ 1376
012737
005701
0010.5
0227 37
002012
104006

003416
003504
003506

022737
002405
104006

000000

00 l510

005201
000002
022626

00342"
0"3426
003434
003440
003446
0~345~

003452
~HB460

003512
003514
"03516
003520
003522
003530
003534
033'54'"

969

970
971
912
973
974
915

,"ETUP TO CATCH INTERRUPT IF
IT GOES TO !.OCATlON 0
,SET INTERRUPT ENABLE
: SET TO PRIORITY LEVEl, 0
,KILL SOME !I_E

000 J 40

177776

MOv

.34~,@#PS

RI
3$

001222

TST
BNE.
CMp
eGE
ERROR

6S
6

CMP
SLT

ERRO~

,INTERRUPT OCCURRED--SHOULD IT HAVE?
,eR IF YES
: INTERRUPT OCCURRED AT PRIOFI TY LEVEL

INC
RTI
eMP

:SET INTERRUPT KEY

2$ :

k}000kt0

3$ :

4$:
5$:

ER~OR

6S:
001220
175464
000000

CL~

MOV
CLR
CLR
CLR

1754.6

00'1002

lHH~40,@#TAPFlIO

#0 4 40,@#TAPRIO

,LOCK OUT THE WORLD
:Dln AN INTERRUPT OCCUR?

,BR IF YES
;WAS AN INTeRFUPT EXPECTED?
,SR IF NO
,INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 0

; RETURN AFTEF. INTERRUPT
(SP)+,(SP)+
6

,POP THE STACK
; INTERRUPT WENT TO LOCATION 0

@TACS
@#TAVEC+2,@TAVEC
@TAVEC+2
@#0
U2

,CLEAR INTE~RUPT ENABLE
,SET TRAP CATCHER

;1··*··**···***************************··*************
••• * •••••••
:THIS TEST WILL SETUP THE TAIl'S VECTOR ADDRESS AND AT ADDFESS

947

948
949
950
951
952
953
954
955
956
951
958
959
960
961
962
963
964
965
966
967
968

4137,@#0

#SS,@#2
#INT.EN,@TACS
40*40,@#PS
R2
2$

177776

104006

005014
013177
005017
005037
005031

HOV
HOV
HOVB
MOV
ASL
BNE.

000100
000000

,A JMP @(PC)+ IS STORED INCASE THE nCTOR IS FEAD AS 0,
,IT WILL THEN SET THE PRIORITY LEVEL TO I AND WASTE ENOUGH TIME
,FOR AN INTERRUPT TO OCCUR,
,AFTEF THE TIME IS UP IT WILL RESTORE TH~ PS TO LEVEL 7
lAND CHECK IF AN INTERRUPT OCCURRED.

003544
00354&
003554
003562
003564
003566
003574
003600
0~3602

003606
003614
003622
003630
003636
003642
003650
003652
003654
003662

,:
**'••• ****************************************************·IHHHHHi
,*TEST •
TEST INTERRUPT WITH READY = "I" AT LEVEL I
J' * •• *******ilHU~*****.*****.***.**********.**.*****.******** •• ***.
TST6:
SCOPE

000004

012767
012707

003564
003722

175332
175406

000340
000001

177776

000005

010314
012737
012700
005001
012702
012777
012177
012737
012737
112714
012737
006302
001376
012737
005701

IS:

000001
003712
000340

000137
003716
000100
000040

175402
175376
000000
000002
177776
2$ ,

000340

177776

HOV
HOV
RESET
MOV
HOV
MOV
eLR
HOV
MOV
MOV
HOV
HOV
MOVS
MOV
ASL
eNE
MOV
TST

U$,SLPAOR
#6S,SESCAPE
DRIVE,@TACS
#340, UPS
#I,R0
RI
H,R2
'4S,@TAVEC
.340, nAVEC.2
#I37,U0
,5$,@12
UNT,EN,UACS
U*40,@#PS
R2

,;SET SCOPE LOOP ADDRESS
"ESCAPE TO 6$ ON ERRO~
;LOCK OUT ALL INTERRUPTS
,TEST AT PRIORITY LEVEL I
,CLEAR INTERRUPT KEY
,SETUP TO WASTE A LITTLE TIME
,INTERRUPT RETURN
,LOCK OUT THE WORLD IF INTERRUPT
,SETUP TO CATCH INTERRUPT IF
,
IT GOES TO LOCATION 0
,SET INTERRUPT ENAeLE
:SET TO PRIORITY LEVEL
,KILL SOME TIME

1340,@IPS
RI

,LOCK OUT THE WORLD
:010 AN INTERRUPT OCCUR?

MACYII 27(732)
TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
TEST INTERRUPT WITH READY = "I" AT LEVEL I
OZTASC.NEW
T6
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1009
1009
1010
1011
1012
1013
1014
1015
U16
1017
1018
1019
1020
1021
1"22
1023
1024
1025
1026
1027
1028
1029
1030
1031

003664
003666
003674
003616

ee100S
e22737
002012
104006

003700
003706
003710

022737
0112405
104006

003712
003714
003716
003720

005201
000002
022626
104006

003722
003724

005014
013777
005077
005037
005037

0~3732

003736
003742

000040

001222

000040

001222

PAGE 23

SEQ 0037

3$
U>40.UTAPRIO
6$
6

,BR IF YES
,WAS AN INTERRUPT EXPECTED?
,SR IF NO
,INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL I

38.

CMP
SLT
ERROR

II *40. ~nAPRIO

6$
6

,INTERRUPT OCCURRED--SHOULD IT HAVE?
,SR IF YES
,INTERRUPT OCCURRED AT PRIORITY LEVEL

48:

INC
HTI
CMP
ERROR

CLR
MOV
CLR

nACS
tlTAVEC+2.UAVEC
'TAVEC+2
"0
@.2

6S:
175264

CL~

0000~0

CLR

000002

(SPl+. (SP)+
6

,SET INTERRUPT KEY
,RETURN AFTER INTERRUPT
,POP THE STACK
,INTERRUPT WENT TO LOCATION
,CLEAR INTERRUPT ENABLE
,SET TRAP CATCHER

:~********************.****************.************** ***********
,THIS TEST WIL~ SETUP THE TAil'S VECTOR ADDRESS AND AT ADDRESS

004100

0010004
012767
012767
000005
010314
012737
012700
005001
012H2
012777
012777
012737
012737
112714
012737
006302
001376
012737
005701
001005
022737
002012
104006

004102
004110
004112

022737
002405
104006

003746
003750
001]756
IN3764
003766
003770
003776
004002
004004
004010
,,"4016
0"4024
004032
0a4040
004044
004052
004054
004056
004064
004066
1104070
0~4076

1103766
004124

175130
175204

000340
000002

177776

0110001
004114
000340
000137
00412"
000100
000100

175200
175174
000000
000002
17777&

000340

17777&

000100

001222

a00100

001222

,A JMP '(PCl+ 15 STOREO INCASE THE VECTOR IS REAO AS 0.
,IT WILL THEN SET THE PRIORITY LEVEL TO 2 AND WASTE ENOUGH TIME
,FOR AN INTERRUPT TO OCCUR,
,AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
,AND CHECK IF AN INTERRUPT OCCURRED.
:1***********·***************************************************
TEST INTERRUPT WITH READY = "I" AT LEVEL 2
:*TEST 7
1r***************************************************************
SCOPE
TST7'
"SET SCOPE LOOP AOORESS
HS.SLPADR
MOV
"ESCAPE TO 6S ON ERROR
MOV
16S.SESCAPE
RESET
DRIVE.nACS
MOV
1$.
,LOCK OUT ALL INTERRUPTS
MOV
#H0,UPS
,TEST AT PRIORITY LEVEL 2
#2,R0
MOV
,CLEAR INTERRUPT Kn
CLR
RI
,SETUP TO WASTE A LITTLE TIME
.1,R2
MOV
;INTERRUPT RETURN
MOV
14s.nAVEC
,LOCK OUT THE wORLD IF INTERRUPT
1340.nAVEC+2
MOV
:SETUP TO CATCh INTERRUPT IF
MOV
1137.U0
IT GOES TO LOCATION 0
MOV
,5S.@l2
;SET INTLRRUPT ENABLE
MOVS
UNT.EN.~TACS
,SET
TO PRIORITY LEVEL
.2*40,(UPS
MOV
,KILL SOME TIME
ASL
1'2
26 :
BN~
26
,LOCK OUT THE WORLD
MOV
.340,I!1'PS
,010 AN INTERRUPT OCCUR?
TST
RI
,SR IF YES
BNE
3S
,WAS AN INTERRUPT EXPECTEO?
.2040. ~nAPRIO
CMP
JBR IF NO
BG~
6S
;
INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 2
ERROR
6
36,

CMP
fLT
ERFOR

TAil BASIC LOGIC TEST (PART 2) MAINOEC-II-DZTAS-C
OZTABC.NEW
T7
TEST INTERRUPT WITH READY
1032
10]3
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087

13:26

SNE
CMP
SGE
ERROR

5S.

001220
175262

II-JUN-76

004114
004116
004120
004122

905201
0001102
022626
104006

004124
004126
004134
004140
004144

005014
013777
005077
005037
905037

004150
004152
004160
004166
004170
004172
004200
004204
004206
004212
004220
004226
004242
004246
004254
004256
004260
004266
004270
004272
004300
904302

000004
012767
012767
000005
010314
012737
012700
905001
012702
912777
912777
012737
012737
112714
012737
006302
01'1376
012737
005701
001005
W22737
1102012
104006

004304
004312
004314

022737
002405
104006

004316
004320
904322
004324

005201
0119002
022626
194006

004326
004330

005014
1113777

4S:
5S:
6S:
001220
175060
000000
000002

175062

.2.40,UTAPRIO
6S
6

MACYII 27(732)

= "I" AT LEVEL 2

INC
RTI
CMP
ERMR
CLR
MOV
CLR
CLI!
CLI!

RI
(SP).,(SP).
6
UACS
UTAVEC+2. UAVEC
PTAVEC+2

,INTERRUPT OCCURRED--SHOULD IT HAVE?
,BR If YES
:INTERRUPT OCCURRED AT PRIORITY LEVEL

II-JUN-76

13:26

PAGE 24

,SET I~T~RRUPT KEY
;RETURN AFTER INTERRUPT
;POP THE STACK
,INTERRUPT WENT TO LOCATION 0
;CLEAR INTERRUPT ENABLE
,SET TRAP CATCHER

.. 2
J, •• ** ••••••• **.** •••• *.** ••••• ** •• ******* •••• *****.** ******** •••
,THIS TEST WILL SETUP THE TAli'S VECTOR ADDRESS AND AT ADDRESS 0
,A JMP '(PC). IS STORED INCASE THE VECTOR IS READ AS 0.
;IT WILL THEN SET THE PRIORITY LEVEL TO 3 AND WASTE ENOUGH TIME
,FOR AN INTERRUPT TO OCCUR.
,AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
;AND CHECK IF AN INTERRUPT OCCURRED,
:J ••• *************************************.**********************
,>TEST 10
TEST INTERRUPT wITH READY
"I" AT LEVEL 3
::***************************************************************
TST10' SCOPE
MOV
;,SET SCOPE LOOP ADDRESS
aLPADR
MOV
;,ESCAPE TO 6S ON ERROR
'6$. $ESCAPE
RESET
MOV
DRIVE.~TACS
IS:
MOV
B40.UPS
,LOCK OUT ALL INTERRUPTS
MOV
fl.R0
;TEST AT PRIORITY LEVEL 3
CLR
RI
,CLEAR INTERRUPT KEY
MOY
,SETUP TO WASTE A LITTLE TIME
U.R2
MOV
efS.@TAVEC
; INTERRUPT RETURN
MOV
1340. tTAVEC+2
,LOCK OUT THE WORLD IF INT~RRUPT
MOV
Dl37. ,*0
,SETUP TO CATCH INTERRUPT IF
,5$ ... 2
MOV
,
IT GOES TO LOCATION "
,SET INTERRUPT ENABLE
MOVB
UNT.EN.@TACS
MOV
,SET TO PRIORITY LEVEL
n*40.@#PS
2$,
,KILL SOME TIME
A5L
R2
8NE
2S
MOV
U40.UPS
;LOCK OUT THE WORLD
,OlD AN INTERRUPT OCCUR?
TST
III
BNE
;BR IF YES
3S
U>40. UTAPRIO
,WAS AN INTERRUPT EXPECTED?
CMP
BGE
6S
,BR IF NO
ERROR
,INTERRUPT FAILEO TO OCCUR AT PRIORITY LEVEL 3
6

0~4234

004170
004326

174726
175002

000340
000003

177776

000001
004316
000340
000137
004322
1100100
000140

174776
174772
000000
000002

000340

177776

000140

001222

000140

001222

177776

'IS.

38,

4$1
5$1

6S.
"01220

174660

SEQ 0038

CMP
BLT
ERROR

U*40. UTAPRIO
6$

INC
RTI
CMP
ERROR

CLII

MOV

;INTERRUPT OCCURRED--SHOULD IT HAVE?
,BR IF YES
,INTERRUPT OCCURRED AT PRIORITY LEVEL

:SET INTERRUPT KEY
,RETURN AFTER INTERRUPT
,POP THE STACK
:INTERRUPT WENT TO LOCATION 0

@TACS
UUVEC+2. nAVEC

,CLEAR INTERRUPT ENABLE
,SET TRAP CATCHER

(SP1+. (SP).

TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
DZTABC.NEW
TI0
TEST INTERRUPt WITH READY
1088
1089
1090
1091
1092
1093
1094
1095
1096
1091
1098

"04336
004342
004346

005077
005037
005017

CLR
CLR
CLR

174656
000000
000002

1108

1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1121
1124
1125
1126
1127
1128
1129
1110
1131
1132
IIll
1114
illS

1136
1117
1138
113'
1140
1141
1142
1143

1\52

1151
1154
1155
1156
1157
1158
1159
1160
1161
1162
1161
1164
1165
IIb6
1167
1168
1169
\170

1171
1172
1173
1174
1175

\179

1180
1181
1182

1181
\184

1185
1186

00a0114

0' ;167

01271>7

004374
004402
004406
004410
"04414
004422
004430
11044)b
004444
004450
004456
004460
11114462
004470
0114472
004474
004502
0045114

010314
012737
012700
005001
012702
012777
012777
012737
012737
112714
012737
006302
001376
012737
005701
"01005
022737
002012
104006

004506
004514
004516

022737
"02405
104006

00452"
004522

005201
000002
022626
104006

0a4372

0~4524

004526
004530
004532
004H0
004544
004550

004372
004510

174524
174600

000340
,,00004

177776

0000111
004520
000340
000137
004524
000100
000200

174574
174570
000000
000002

000340

177776

000200

001222

11\10200

001222

1':~0~0S

0050"
013777
005077
005017
005~17

177776

SEQ 0019

ADDR~SS 0
,A JMP '(PC)+ IS STORED INCASE THE VECTOR IS READ AS 0.
,It wILL THEN SET THE PRIORITY LEVEL TO 4 AND WASTE ENOUGH TIME
,FOR AN INTERRUPT TO OCCUR.
,AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
,AND CHECK IF AN INTERRUPT OCCURRED.
••••• *.*.*******.*.** ••• *************.*.********** •• ***.*********
;~TEST II
TEST INTERRUPT WITH READY
"I" AT LEVEL 4
..• ** ••• *********.*.********************.*****.*.*.**************
TSTlI: SCOPE
MOV
"SET SCOPE LOOP ADDRESS
II',$LPADR
.68,IESCAPE
"ESCAPE TO 6$ O~ ERROR
MOV
RESET
DRlVE,UACS
MOV
IS:
.340,(UPS
,LOCK OUT ALL INTERRUPTS
MOV
,tEST AT PRIORITY LEVEL 4
MOV
J4,R0
,CLEAR INTERRUPt KEY
CLR
RI
,SEtUP TO WASTE A LITtLE TIME
MOV
U,R2
H.,@TAVEC
:INTERRUPT RETURN
HOV
,LOC K OUT tHE WORLD IF INTERRUPT
• 340,@TAVEC+2
MOV
,SETUP TO CATCH INTERRUPT IF
MOV
'137,.,0
,
IT GOES TO LOCATION 0
MOV
151,@l2
,SET INTERRUPT ENABLE
MOVB
tINT.EH,@TACS
MOV
114*40, (UPS
,SET to PRIORITY LEVEL
,KILL SOME TIME
ASL
R2
2S:
8NE
2$
,340, @IPS
,LOCK OUT THE WORLD
MOV
,DID AN INTERRUPT OCCUR?
TST
RI
,BR 1Y YES
BN~
3$
CMp
:WAS AN INTERRUPT EXPECTED?
14040, '#TAPRIO
IBR IF NO
6$
BG~
,INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 4
ERROR
6

lSI

4$1

5S:

CMP
BLT
ERROR

H040,UTAPRIO
6$

INC
PTI
CMP
ERROR

(SP)+,(SP)+
6

,INTERRUPT OCCURRED--SHOULD IT HAV~?
,BR IF YES
IINTERRUPT OCCURRED AT PRIORITY LEVEL
,SEt INTERRUPT KEY
,RETURN AFTER INTERRUPT
,POP THE STACK
,INTERRUPT WENT TO LOCAtION

b$:
0~1220

174456

174454
000000
000002

CLR
@TACS
:CLEAR INtERRUPT ENABLE
HOV
@.TAVEC.2,'TAVEC
,SET TRAP CATCHER
CLR
@TAVEC+2
CLR
U0
CLR
"2
.,***************************************************************
•
,THIS TEST WILL SETUP THE TAil'S VECTOR ADDRESS AND AT AODR~SS 0
,A JMP ~(PC). IS STORED INCASE THE VECTOR IS READ AS 0.
,IT WILL THEN SET THE PRIORITY !oEVEL TO 5 AND WASTE ENOUGH TIME
,FOR AN INtERRUPT TO OCCUR.

II-JUN-76

13:26

PAGE 26

00461~

004612
004616
004624
004632
00464a
004646
004652
004660
004662
004664
004672
1104674

000004
012767
012767
010314
012737
012700
005001
912702
012777
012777

012737
012737

0~4706

112714
012737
006302
001376
012737
005701
001005
022737
002012
104006

004710
004716
004720

022737
002405
104006

004722
004724
004726
004730

005201
000002
022626
104006

004732
0047)4
004742
004746
004752

005014
013777
005077
005037
005037

0~4676

004704

004574
004732

174322
174376

0"0140
000005

177776

000001
004722
000340
1')00137
004726
000100
1100240

174172
174366
000000
000002

900340

177776

000240

001222

000240

001222

0~0005

177776

4$.

51.

001220
174252
000000
000002

174254

6$:

INC
RTI
CMP

~RROR

CtR
MOV
CLR
CLR
CLR

nACS
@ITAVEC+2,fTAVEC
nAVEC+2
U0

(SP)., (SP).

\190

1191
1192
1\ 91
1194

004756
004760
004766

000004
012767
012767

004776
005134

174120
174174

,SET INTERRUPT KEY
,RETURN AFTER INTERRUPT
,POP THE STACK
,INTERRUPT WENT TO LOCATION 0
,CLEAR INTERRUPT ENABLE
,SET TRAP CATCHER

***.***•• *•• *.************. ***********
,THIS TEST WILL SETUP THE TAli'S VECTOR ADDRESS AND AT ADDRESS 0
,A JMP '(PCI. IS STORED INCASE THE VECTOR IS READ AS 0,
lIT WILL THEN SET THE PRIORITY LEVEL TO 6 AND WASTE ENOUGH TIME
;FOR AN INTERRUPT TO OCCUR.
,AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
,AND CHECK IF AN INTERRUPT OCCURRED.
:~***********.********.******* •• ************* ••• ****** .**********
,*TEST 11
TEST INTERRUPT WITH READY = "I' AT LEVEL 6
:,.**************.*************************************.***.** •• *
TSTI3: SCOPE
MOV
III, SLPADR
"SET SCOPE LOOP ADDRESS
MOV
,U,SESCAPE
; ,ESCAPE TO 6$ ON ERROR
~J**.***.**************.* ••

\188
1189

SEQ 0040

,AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
,AND CHECK IF AN INTERRUPT OCCURRED.
JJ***********************************************************.***
,*tEST 12
TEST INTERRUPT WITH READY
"I" AT LEVEL 5
:r********************************************.***********.* •• ***
tSTI2: SCOPE
HOV
liS, SLPADR
:'SEt SCOPE LOOP ADDRESS
MOV
'U,SESCAPE
:;ESCAPE TO 6$ ON ERROR
RESET
HOV
IS:
ORlVE,tIACS
MOV
1340, ~'PS
:LOCK OUT ALL INTERRUPTS
HOV
,S,R0
;TEST AT PRIORITY LEVEL 5
CLR
RI
,CLEAR INTERRUPT KEY
HOV
II,R2
,SETUP TO WASTE A LITTLE TIME
MOV
'U,nAVEC
,INTERRUPT RETURN
MOV
1340,@TAVEC+2
ILOCK OUT THE WORLD IF INTERRUPT
MOV
1137,U0
;SETUP TO CATCH INTERRUPT IF
HOV
,5$,812
,
IT GOES TO LOCATION B
HOVS
UNT.EN,nACS
,SET INTERRUPT ENABLE
MOV
15*40,t1PS
,SET TO PRIORITY LEVEL
2S:
ASL
R2
:KILL SOME TIME
8NE
21
MOV
H40,,,PS
,LOCK OUT THE WORLD
TST
RI
,DID AN INTERRUPT OCCUR?
BNE
38
,BR IF YES
CMP
15H0,~nAPRIO
:WAS AN INTERRUPT EXPECTED?
BGE
6S
:BR IF NO
~RROR
6
,INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 5
lSI
CMP
.5*411, UTAPRIO
,INT~RRUPT OCCURRED--SHOULD IT HAVE?
BLT
&$
,BR IF YES
ERROR
6
,INTERRUPT OCCURRED AT PRIORITY LEVEL

1104554
004556
004564
004572
004574
004576
004604

1\87

1195
1196
1197
1198
1199

PAGE 25

004352
004354
004362
004370

\176

1177
1178

13126

tTAVEC+2
U0
.,2

TAli BASIC LOGIC TEST (PART 2) HAINOEC-II-DZTAB-C
HACYI! 27(712)
OZTABC.NEW
Til
TEST INTERRUPt WITH READY = "I" At LEVEL 4
1144
1145
1146
1147
1148
1149
1150
1151

II-JUN-76

Jt·_······*·_········
__ ······ __ ···*·*--_·-··_····-···******.****.
,THIS TEST WILL SETUP THE TAil'S VECTOR ADDRESS AND AT

1~99

1100
1101
1102
1103
1104
1105
1106
1107

MACYII 27(732)

= "I' AT LEVEL 3

TAli BASIC LOGIC TEST (PART 2) IIUNDEC-II-DZTAB-C
MACYlI 27(732)
DZTABC.NEW
T13
TEST INTERRUPT WITH READY: "I" AT LEVEL 6
1200
1201
1202
1203
1204
1205
1206
1207
120B
1209
1210
1211
1212
121l
1214
1215
1216
1217
121B
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
12ll
1234
1235
1236
1237
I23B
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255

004774
004776
005000
005006
005012
005014
005020
005026
005034
005042
005050
005054
005062
005064
005066
005074
005076
005100
005106
005110

000005
010314
012737
012700
005001
012702
012777
012777
012737
012737
112714
012737
006302
001376
012737
005701
001005
022731
002012
104006

005112
005120
005122

022731
002405
104006

005124
005126
005130
005132

005201
000002
022626
104006

005134
005136
005144
005150
0051 S4

005014
013111
005077
005031
005037

IS:
000340
000006

117176

RESET
HOV
MOV
MOV
CL~

000001
005124
000340
000137
005130
000100
000300

174170
174164
000000
000002
171716
2&:

000340

117776

000300

001222

000300

001222

3S1

MOV
MOV
MOV
MOV
MOV
MOVB
MOV
ASL
eHE
MOV
TST
BNE
CMP
BGE
ERROR

DRIVE.nACS
U40.UPS
I6.R0
1'1
,1, P2

'U.@TAVEC
1340.UAVEC+2
1137 . . . 0

,5$.812
liNT .EN. PrACS
.6*40,@IPS

R2
2$
1340, tiPS
1'1

3$
Ib*40. "TAPRIO
6$
6

.6*40, UTAP~IO

CMP
BLT
ERROR

4$ :

INC

5&,

CMP

(SP»'(SP)+

E~~OR

6$:

CLR
MOV
CLR
CLR
CLR

UACS
UTAVEC+2.UAVEC
iTAVEC+2

~TI

001220
114050
000000
000002

114052

II-JUN-76

13126

PAGE 27

SEQ 0041

;LOCK OUT ALL INTERRUPTS
;TEST AT PRIORITY LEVEL 6
;CLEAR INTERRUPT KEY
;SETUP TO WASTE A LITTLE TIME
;INTERRUPT RETURN
;LOCK OUT THE WORLD IF INTERRUPT
;SETUP TO CATCH INTERRUPT If
;
IT GOES TO LOCATION 0
,SET INTERRUPT ENABLE
;SET TO PRIORITY LEVEL 6
;KILL SOME TIME
,LOCK OUT THE WORLD
;010 AN INTERRUPT OCCUR?
,8R IF Y~S
,WAS AN INTERRUPT EXPECTED?
;BR IF NO
;INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 6
,INTERRUPT OCCURRED--SHOULD IT HAVE?
;BR IF YES
;INTERRUPT OCCURRED AT PRIORITY LEVEL
; SET !MTERRUPT KEY
;RETURN AFTER INTERRUPT
;POP THE STACK
;INTERRUPT WENT TO LOCATION 0
;CLEAR INTERRUPT ENABLE
;SET TRAP CATCHER

@Ie
"2

J:·*****;;:;:*;~:;*:;~~*:~;~;*;~~*;:~~!:*;i~;~:*:~;:~:;*::~*:;*:~DRESS
;A JMP '(PC)+ 15 STORED INCASE THE VECTOR IS READ AS 0.
;IT WILL THEN SET THE PRIORITY LEVEL TO 1 AND wASTE ENOUGH TIME
;FOR AN INTERRUPT TO OCCUR.
,AFTER THE TIME IS UP IT WILL RESTORE THE PS TO LEVEL 7
;AND CHECK IF AN INTERRUPT OCCURRED.
::***************************************************************
;*TEST 14
TEST INTERRUPT WITH READY
"I" AT LEVEL 7
;,***************************************************************
TSTI4. SCOPE
,;SET SCOPE LOOP ADDRESS
HOV
U$. $LPADR
,;ESCAPE TO 6$ ON ERROR
_6S.$ESCAPE
MOV

005160
005162
005110
00511&
005200
005202
00521"
005214
005216
005222
005230

000004
012167
012767
000005
010314
012731
012100
005001

005200
0053)6

173716
113172

000340
000007

177716

~ESET

IS,

0121~2

000~01

012111
012177

005326
000340

173766
173162

MOV
MOV
HOV
CLR
MOV
MOV
MOV

DRIVE.PTACS
1340. ~IPS
#7.R0
FI
91, R2

Hs,nAVt:C
f340.UAVEC+2

,LOCK OUT ALL INTERRUPTS
;TEST AT PRIORITY LEVEL 7
,CLEAR INTERRUPT KEY
,SETUP TO WASTE A LITTLE TIME
,INTERRUPT RETURN
;LOCK OUT THE wORLD IF INTERRUPT

)
TAli BASiC LOGIC TEsr (PART 2) MAlNOEC-II-DZTAB-C
DZTABC.NEW
TI4
TEST INTERRUPT WITH READY
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265

1266
1267
1268
1269
1270
1211
1212
1273
1274
1275
1276
1277
1278
1279

1280
1281
1282
1283

005236
005244
005252
005256
005264
005266
0;05210
005276
005300
005302
e05310
005312

012131
012737
112714
012131
006302
001376
012737
005701
001005
022737
0"2012
104006

000137
005332
000100
000340

000000
000""2

000340

117776

000340

001222

005314
005322
005324

022737
002405
104006

000340

001222

005326
005330
005332
005334

005201
000002
022626
104006

~05336

005340
005346
005352
005356

0"5014
013771
005011
005031
005031

005362
005364
005312
005400
005406
005410
005412
11115416
1105420
1105422
005426
005430
1105436
1105442
005450
005456
0115464
0115412
1105476
11055110
1105504
0115506
005510
005512
005520
005522

011111004
012161
012767
012161
000005
Ill0314
112714
104412
1110314
112114
1i'14412
012131
012701
012711
012771
012731
012737
112114
104413
1105037
f/J05000
9116301
0111316
012737
1114006
022626

1298

1299
1300
1301
1302
1303
1304
1305
1366
1307

1308
1309
1310
1311

MOV
HOV
MOVB
MOV
ASL
BNt:
MOV
TST
BNE
CMP
BGE
ERROR

'5S."2
'INT.EN,PTACS
,7+40,UPS
F2
2$
1340.UPS
RI
3$
"*40.@WTAPRIO
6$

CMP
SLY
ERROR

11*40.inAPRIO
6$

4$.

INC

1'1

5S:

CMP
ERROR

111716
2S:

3$1

1131.~t0

~TI

(SPh. (SP).
6

001220
173646
000000
000002

173650

000010
005420
005530

113574
113506
173562

''0

000017
000001
000340
000001
005526
1108340
000131
005522
000103

171116
173546
173542
000000
000002

177776

000340

171776

II-JUN-76

13:26

PAGE 28

SEQ 0042

,SETUP TO CATCH INTERRUPT IF
,
IT GOES TO LOCATION"
,SET INTERRUPT ENABLE
,SET TO PRIORITY LEVEL
:KILL SOME TIME
,LOCK OUT THE WORLD
,DID AN INTERRUPT OCCUR?
;BR IF YES
;WAS AN INTERRUPT EXPECTED?
,BR IF NO
; INTERRUPT FAILED TO OCCUR AT PRIORITY LEVEL 7
;INTERRUPT OCCURRED--SHOULD IT HAVE?
;BR IF YES
,INTERRUPT OCCURRED AT PRIORITY LEVEL
,SET INTERRUPT KEY
,RETURN AFTER INTERRUPT
; POP THE STACK
;INTERRUPT WENT TO LOCATION 0

CLR
nACS
;CLEAR INTERRUPT ENABLE
MOV
UTAVEC+2.fTAVEC
,SET TRAP CATCHER
CLR
8TAVEC+2
CLR
CLR
U2
::*************************** •• **********************************
,OTEST IS
TEST INTERRUPT WITH "TRANSFER REQUEST" z 1
" ••• ***.* ••• *-_.***.* •••• ***** ••••• *.* ••••• *****.**-** •••• *.**_.
TST15: SCOPE
MOV
110.STIMES
;;00 10 ITERATIONS
MOV
14S.$LPADR
,;SET SCOPE LOOP ADDRESS
MOV
13$.$ESCAPE
; ;ESCAPE TO 3$ ON ERROR
RESET
,SELECT DRIVE
MOV
DRIVE.@TACS
Mova
.REWIND.GO. nACS
;POSITION THE TAPE
WUTREADY
;GO WAIT FOR "READY· TO SET
HOV
DRIVE.~TACS
,SELECT DRIVE
4S:
MOVB
IWFG+GO.iTACS
,START A "WRITE FILE GAP"
WAITREADY
,GO WAIT FOR "READY" TO SET
MOV
U40.UPS
;LOCK OUT ALL INTERRUPTS
MOV
II.RI
,SETUP TO WASTE SOME TIME
MOV
,2$.nAVEC
;SETUP INTERRUPT RETURN
MOV
1340.@TAVEC+2
;PRIORITY .," ON INTERRUPT
MOV
tl31.U0
;CATCH INTERRUPT IF IT GOES
, TO LOCATION 0
HOV
15$."2
HOVB
IWRITE!INT,ENIGo.nACS ;START A ·WRITE· WITH -INT. EN."
WAITXFER
,GO WAIT ON "TRANSFER REQUEST" TO SET
CLR
UPS
;LEVEL 0
eLR
R0
ASt
RI
lSI
;KILL A LITTLE TIME
SNE
If
MOV
1340."PS
,LOCK OUT ALL INTERRUPTS
ERROR
6
; INTERRUPT FOR XFER REQ. FAILED
CMP
(SP)+,(SP)+
;POP THE STACK
5S:
6$ •

1284

1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1291

MACYII 21(732)

= "I" AT LEVEL 7

HAINDEC-II-OZTAB-C
TAli BASIC LOGIC TEST (PART 2)
TEST INTERRUPT WITH "TRANSfER REQUEST"
OZnBC ,NEW
TIS
1312
1313
1314
1315
1316
1317
IlI8
1319
132"
1321
1322
1323
1324
13~5

1326
1327
1128
1329
133"
1331
1332

1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1149
1350
1351
1352
1353
1354
1355
1356
1357
! 35B
1359
136.
1361
1362
1363
1364
1365
1366
1%7

005524
005526
00553"
005532
005540
005544
~05550

104006
022626
000005
013777
005077
005037
005037

2S'
3S:
001220
173454
000000
000002

1175
1376
1377
1378
1379
1380
1381
1 J8 2
1383
1384
1385
1386
1387
1388
n89
\390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
! 404
1405
1406
1407
1408
1409
1410
lUI
1412
14\ J
\414
1415
1416

PAGE 29

;lNTERRUPT WENT TO LOCATION

6
(Sp)+,cSP)+

; POP STACK
,CLEAR ALL
,SET TRAP CATCHER

UTAVEC+2, ~TAVEC
@TAVEC+2

@to
@.2

005554
005556
005564
005572
005600
005604
005612
005614
005616
005620
005626
005634
005642
005650
005654
005660
005662
005664
005666
005670
005672
005676
005700
005702
~05704

005712
005714
005716
005n~

005722
005724
005726
005734
005740
005744

T5116,

000~04

012767
012767
01 ~707
01270\
012737
000005
010314
104 4! 2
012777
012777
012737
012737
1\27\4
032714
001404
005327
00000"
001372
104001
005037

000001
005724
005724
000001
000340

173402
173376
000064

005714
000340
000137
005720
000117
000240

173370
173364
000000
000002

177776

1$,
3S'

177776

SCOPE
U,STIMES
"DO I ITERATION
MOV
"ESCAPE TO 5$ ON ERRoR
15S,$ESCAPE
MOV
,5$,3$
MOV
HOV
ff1 ,Ft
,LOCK OUT THE WORLD
$340,@#PS
MOV
,CLEAR THE WORLD
RESET
,SELECT DRIVE
DRlVE,UACS
MOV
:GO WAIT FOR "READY" TO SET
WAlTREADY
, RETURN If INTERRUPT OCCURS
HS,@TAVEC
'IOV
;LEVEL i't7 R If INTERRUPT
H40,@TAVEC.2
MOV
,CATCH INTERRUPT IF IT GOES TO
111137, ta#0
HOV
LOCATION 0
,7S,@#2
IIOV
.REWiND 1 INT "EN lGO,@TACS
MOVB
,GIVE
REAOY TIME TO CLEAR
BTR.REQIREADY,@TAeS
BIT
BEQ
2S
DEC
(PCl'
0

2S:

005~00

006301
001376
012737
000404
022626
104006
022626
104006
000005
013777
005077
005037
005037

6$,
000340

177776
4S:
7$,
5S,

001220
173260
000000
000002

! 73262

BNE

ERROR
CLF
eLR
ASL
BNE
MOV
BM
CMP
ERROR
CMp
ERROR
RESET
MOV
CLR
CLR
CLF

I
@"?S
R0

,READY OR XFER REO
,ALLOW INTERRUPT

= "I"

JAT LEVEL"

,GIVE INTERRUPT TIME TO COME IN

,LOCK OUT INTERRUPT
,EXIT WITH NO ERRORS
,POP STACK
,INTERRUPT OCCURRED
,POP THE STACK
,INTERRUPTTED TO LOCATION 0
,CLEAR T~E WORLD
,SET TRAP CATCHER

#340,@#PS
5S
(SPlt,csP).
6
(SP) + I (SP) +

6
@#TAVEC+2,@TAVEe
@TAVEC+2
@i0
@l2

• J ****'* ..

********** ******************** *********************+*****

15117.

SCOPE
1100 10. ITE~ATIONS
U0,,$TlMES
MOV
"SET SCOPE LOOP ADDRESS
#IS, SLPADR
MOV
; ,ESCAPE TO 11 $ ON ERROR
Nt 1$, SESC APE
MOV
~CLEAR A.LL
RESET
,SELECT DRIVE
DRIVE, @lACS
MOV
:GO
TO "BOT"
#REWIND
I
GO,
.TACS
MOVB
:WAIT ON READy
WAlTREADY

;*TEST 17
TEST INTERRUPT WITH "XFER REQ~ = 1 & "TIMING ERROR"
;:******************************************.********* ••• *.** ••••
"05750
005752
005760
005766
005774
005776
0~6000

006004

000004
012767
012767
012767
000005
010314
112714
104412

00~012

006014
0~6222

173206
173120
173174

000017

MAINDEC-II-DZTAR-C

MACYI1 27(732)

Tt7

TEST INTERRUPT WITH ftXf"ER REQ" = 1 & "TIMING

006006
006012
006014
006016
006@22
006024
006030
006032
006034
006036
006040
e"60H
006046
006050
006052
006054
006056
006062
006064
006066

112714
104412
010314
1127\4
104413
112715
005000
005001
105714
100405
062700
005501
100372
104001
105714
100005
162700
005601
100372
000401

000001

006072
006100
006106
006114
006122
006126
006132
006134
006140
006142
006144
006152

012777
012777
012737
012737
012701
005037
005000
052714
006301
001376
012737
104006

006154
006156

022626
104006

7S:

eMp
ERROR

006160
006162
006164
006166
006174
006200
006204
006206
006210
006216

022626
105715
104412
012777
012701
005037
006301
001376
012737
104006

8S'

CMP
(SPlt,cSPl+
TSTB
nAOS
WAITREADY
MOV
'10S,@TAVEC
HOV
U ,RI
CLR
"PS
ASL
RI
BNE
9$
MOV
.340,@,PS
ERROR
6

006220
006222
006224
006232
006236
006242

022626
000005
012777
005077
005037
005037

IS:
000003
000377
2$,
000010

3$,
000001

104001
006160
000340
000137
006154
000001
177776

173116
173112
000000
000002

4,:

ERROR
MOV
MOV
MOV
HOV
HOV
CLR
CLF
BIS
ASL
BNE
MOV
ERROR

bS:
000340

177776

006220
000001
177776

173022

000340

177776

001220
172762
000000
000002

172764

MOVB
'.fGIGO,PTACS
.AITREAOY
MOV
ORIVE,~TACS
MOVB
.WRITE/GO,@TACS
WAlTHER
MUVB
'377.@TAU8
CLR
R0
CLR
Rl
TST8
@fACS
8MI
3S
ADD
#l0,R0
ADe
RI
BPL
2S
ERROR
I
TST8
@lACS
8PL
4S
SUB
IH,R0
S8C
RI
BPL
3$
BR
5$

5S:

000100

9S'

ERRO~w

11-JUN-76

13.26

PAGE 30

;GET ON OXIDE
,SELECT ORIVE

;START A WRITE
:WAIT ON "T~ANSfER REQUEST"
;ORITE A BYTE
,ZERO THE COUNTER

;CHECK *XFEF REO"
,BR If SET
;fIND OUT HOO LONG
;FO~

IT TAKES
"XFER REO" TO SET

:WXFER REQ" DIDN·T SET
;CHECK "XFER REO" IF IT IS = 0
;SOMETHING IS WRONG
;OOWN COUNT THE COUNTER
;50 A "TIMING ERROR' WILL OCCUR

,"XFER REa" CLEARED
t8$,UAVEC
#340,nAVECH
#l37,@,"
#78,@#2
#I, RI
@#PS
R0
UNT,EN,@TACS
RI

,SETUP
INTERRRUPT RETURN
,PRIORITY "7' ON INTERRUPT
;eATCH INTERRUPT If IT GOES
TO LOCATION "
,
,SETUP TO WASTE SOME TIME
,ALLOW INTERRUPTS

;AT LEVEL

,TURN ON "INTERRUPT ENABLE'
,GIVE INTERRUPT TIME TO OCCUR

68
#340,@:3PS
6

;LOCK OUT INTERRUPTS
,FAILED TO INTERRUPT

(SP)t, (SPl+
6

,POP THE STACK
,INTERRUPT WENT TO LOCATION

WITH 'XFER REQ'

,POP THE STACK
,KNOCK OOWN 'XFER REQ"
,WAIT ON "READY" CAUSED BY "TIMING ERROR"
,SETUP INTERRUPT RETURN
,SETUP TO WASTE TIME
,ALLOW INTERRUPTS
,GIVE INTERRUPTS TIME TO OCCUR
;LOCK OUT INTERRUPTS
,"INTERRUPT FAILED TO OCCUR FOR READY

1417
14\8
1419
1420
\421
1422
1423

SEQ 0043

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

DlTABC.NEW

1374

13,26

II-JUN-76

;~TEST 1&
TEST INTERRUPT WITH "READY" = 0 AND "XFER REQq ~ 0
;;************************+**************************************

TAil BAS!C LOGIC TEST (PART 2)
1368
1369
1370
1371
1372
1373

173456

ERROR
CMP
RESET
MOV
CLR
CLR
CLR

MACHI 27(732)

ISS,
11$ •

CMP
RESET
HOV
eLR
CLR
CLR

(SP) . . (SP).
UAVEC+2, UAVEC
nAVEC+2
U0

,POP THE STACK
,CLEAR ALL
,RESTORE THE TRAP

CATCHER

SEQ 0044

TAlI BASIC LOGIC TEST (PART 2)
DZTABC eNEW

1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
144\
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1461
1468
1469
1470
1471
1472
1473
1414
1415
1476

1477
1478
1479

1484

1508
1501
1502
1503
1504
1505
1506
1507
150B
1509
1510
1511
1512

1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528

1529
1530
1531
1532

1533
1534
1535

13,26

PAGr, 31

SEQ 0045

J///IIIIIIIIIIIIIIIIII//IIIIII/////////III////IIIIIII/111111/;/1/1/11/1

; : '* ***~******** ***t:.************** *****iI!-* *** *****4 *" **********4 ~.***
TEST "BACK SPACE FILt: GAP"

J*TEST 20

006246
~06250

006256
006264
006272
006274
006276
006302
006304
006310
006312
006316
00632a
006324
006326
006332
006334
006340
006342
006346
006350
006352
006354
006356
006360
00&364
00&366

000004
012167
012167
012767
000005
010314
112714
104412
112714
104412
112714
104413
1127 I 5
104413
052714
104412
112714
104412
032714
001001
104001
005714
100001
10400\
032714
001401
104001

: : *4-!J.***"HHIHHHHH;Io-lHH;IHtoJ, ** '****** ~***** ****-If~ ""******* 1+<0< ********** ~,,***

TST20,
000012
006274
006370

SCOPE
MOV
#10.,STIMES
,DO 10. ITER'TIONS
MOV
!J3s,SLPAOR
,SET SCOPE LOOP ADDRESS
MOV
n5T21, $ESCAPE
,ESCAPE TO TEST 21 ON ERROR
RESET
MOV
DRIVE,@TACS
~SELECT DRIVE
MOVS
i$ REWIND! GO, @TACS
,POSITION TA.PE ON CLE_AR LEADER
,GO wAIT FOR "READY" ':0 SET
.'!TREADY
Move
II:WfG!GO,@TACS
; WRITE A FILE GAP OF1 O~ CLEAR LEADER
;GO WAIT fOR "READY
'1'0 5ET
"AITRE.DY
Move
,wRITEIGO,UACS
,PUT A OAT' BLOCK 0' THE TAPE
,GO WAIT ON "TRANSFER REQUEST" Tu i:)l;.i
W'ITXFER
0377,@TADB
Mova
,KNOCK DOwN XFER REQ
WAlTHER
,Go WAIT ON I'i TRANSFER ~EQUEST n TO SET
#ILBS,@TACS
,WRITE lteRe n
SIS
WAITREADY
tGO WAIT ~OR " READY" TO SET
#,SSFG!GO,@TACS
MOVB
,BACK UP OVER THE DATA
WAITREADY
:GO WAIT fOR "READY" TO SET
IFGAP,@TACS
BIT
;CHECK fOR FILE GAP
SNE
IS
;BR I f "rYLE G~P" =1
ERROR
;ERR ... P"''''ttCi r-d,E GAP INDICATION
I
@TACS
TST
;15 "~RROR' =17
2$
SPL
;BR I f NO
ERROR
; "ERROR" =1
1
.LEADER,@TACS
BIT
,IS "CLEAR LEADER" =17
SEQ
TST21
nl:lR I f NO
ERROR
; "wfG" OR I'IBSFG" fAILEO
1

172710
172622
172676
3$,

000017
000001
000003
000377
000020
000007
004000

1 $,

020000

2$ :

: , ****** '~HHIHi·iHHIHH.*;IH$· ************* ******** ***" *** If ****************
i,*TEST 21
TFST IISPACE FORWARD FILE GAP" fUNCTION
00&370
00&372
006400
006406
006414
006416
006420
006424
00642.
006432
006434
006440
00&442
006446
006450
006454
006156
006462
006464

000004
012767
012767
012767
000005
010314
112714
104412
112714
104412
112714
104413
112715
104413
052714
104412
112714
104412
112714

: : ***********
**** ** ************ ** **************** **** ***********4
SCOPE

TST21 :
000005
006464
006510

006470
006472
006176
006500
006504
006506

00&510
006512
006520
006526
006534
006536
006540
006544
006546
006552
006554
006560
006562
006566
~0&570

006574
006576
006602
006604
006606
006610
006612
006616
006620

T21
104412
112714
1044\2
032714
001001
104001

000004
012767
012767
012767
000005
010l!4
112714
104412
112714
104412
112714
104413
1\2715
104413
052714
104412
112714
104412
005714
100001
104001
032714
001401
104001

MOV
MOV
MOV
RESET
MOV

17256b
172500
112554

DO 5 ITERATIONS
sET SCOPE LOOP ADDRESS
ESCAPE TO TEST 22 ON ERROR

115, STIMES
#lS,SLPAlJR

nST22,SESCAPE

DRIVE,nACS
#Rl::WIND!GO, f<l.TACS
WA I TREADY
IlWf-G! GO,@TACS
MOVB

; SEIJECT A DRIVE
;POSITION THE TAPE
,GO WAIT FOR "READY" TO SET
: WRITE rUlE GAP Off OF CLEAR LEADER
; GO WAIT rOR "READY" TO SET
;PUT SOME DATA ON THE TAPE
,GO WAIT ON "TRANSfER REQUEST" TO SET
:KNOCK DOWN HER REO
,GO WAIT ON "TRANSFER REQUi::ST" TO SET
,WRITE CRC AND SHUT DOWN
,GO WAIT fOR "READY" TO SET
,WRITE f'lLE GAP AfTER THE RECORD
,GO WA.IT fOR "READY" TO SET
,REPOSITION THE TAPE

Move

000017
000001

"A!TREAD~

000003

MOVB
#WRITE!GO,@TACs
WAITXFER
HOVB
#377.@TADB
"A I tXFER
Ii ILBS, !:1TACS
SIS
WAltREADY

000377
000020

0001101

#WfG!GO,@TACS

MOVA

WA!TREADY
MOVS
#RlWIND1GO,~'IAC5

1 $,

000017

MAINDEC-II-DZTAB-C

MACYlI

27(732)

II-JUN-7h

13,26

PAGE 32

SEQ 004b

TEST "SPACE FORWARD FILE GAP" fUNCTION
000013

WAITREADY

;GO WAIT FOR "READY" TO

Move

,SPACE OVER THE RECORD

#SfFG!GO,@TACS

WAITREADY
130400121

BIT

#FGAP,~TACS

BNE
ERROR

1S1'22
I

S~T

;GO WAIT fOR "READY" TO SET
,SETTING IN A fILE GAP?
: 1BR IF YES
,NO fiLE GAP INDICATION

::*1E5T
, *** . . **.************************
******** * ** *****'* **4-*** ..... -- ~:-***
22
TEST "HA.CK SPACE BLOCK GAP"
; 1 ***** *** *"* **¥* ************* ************ .'*** * .. ** **.* -!!-* «-****.fil ~'**"
TST22,
SCOPE
000005
006536
00b622

172446
17236"
172434

IS'
000017
000001

MOV
.S,STIMES
MOV
II 1 $, SLPADR
MO'
$TST23,SESCAPE
RESET
HOV
DRIVE,~TACS
MOVB
#REWIND!GO,~TACS
WAITREADY
MOVB
#WFG!GO,@TACS
MAITREADI

000003

MOVS
IlIWRI'IE!GOd~TACS
WAITXFER

000317

MOVB
#377, @TAOS
.AITXfER

BIS
000011

020000

2$:

iILBS,@TACS

DO 5 ITERATIONS
SET SCOPE LOOP ADDRESS
ESCAPE TO TEST 23 ON ERROR
,SELECT DRIVE
,GO TO CLEAR LEADER
;GO WAIT FOP: ~f(EADY» '1'0 SET
;WRITE A FILE GAP
,GO WAIT fOR "READY' TO SET
:WRITE A. BLOCK OF DAtA

;CO WAIT ON

"TRANSFE~

REQUEST~

,WRITE "CRe"

WAITREADY

,GO WAIT fOR "READY" TO SET

Mova

:BACK OVER THE DATA

#BSBG!GO,@TACS

"AITREADI
TST
nACS
8PL
26
ERROR
I
BIT
#LEADER,@TACS
BEQ
TST23
ERROR
1

TO SET

,WRITE O~E BYTE
,GO WAIT ON "TRANSfER REQUEST" TO SET

,GO WAIT fOR "READY' TO SET
,CHECK FOR ERRORS
,SR I f NONE
;ERROR OCCURRED
,IS CLEAR LEADER:l?
"BR I f NO
,ON CLEAR LEADER

;;****.** •• *.* ••• ~*** ••• ~* •••••• *.* •• * ••• * ••• *** •• *••• ** •••••• * ••

1513
1514
1515
1516
1517

ll-JUN-76

,111111111111111111111111111111111111111111111111111111111111,111111111
;/11111111111111111111/111111///111111////111111/////////111111111/1///

n i l BASIC LOGIC TEST (PART 2)

1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499

MACYI! 27(732)

,THE fOLLOWING TEST ARE USED TO CHECK THE BASIC OPERATION Of THE SPACING fUNCTIONS

DZTABC.NEW
1480
1481
1482
1483

MAINDEC-ll-DlrAB-C

:IHt-.******ii-SPAC!NG FUNCTIONS-lHHHHi·

; *TEST 23

TEST "SPACE FWD BLOCK GAP~

;: ••••••••••• * ••••••••• * ••••••••••••••••••••••• * ••• ** ••• **.* •• ***
006622
006624
006632
006640
006646
006650
006652
006656
006660
006664
006666
006672
006614
006700
006702
006706
006710
006714
006716
006722

000004
012767
012767
012767
000005
010314
\12714
104412
112714
104412
112714
10441J
112715
104413
052714

TST23,
000005
006716
006742

172334
172246
112322

#5, $TlMES
nS.SLPADR
nST24, SESCAPE

000001

DRIVE,@TACS
ifREWINDlGO,@TACS
"A!TREADX
MQVS
#WFG1GO,@TACS

000003

Move

000017

WAITREAD~

000377
00002~

104412
112714
104412
112714
104412

SCOPE
MOV
MOV
MOV
RESET
HOV

000001
000017

IS,

#WRITE1GO,ilTACS
WAITXFER
Move
#377,@TADB
WAlTXFER
BIS
#ILSS,@TACS
WAITREADY
Move
#WfGIGO,@TACS
WAITREADY
MOVB
.REWIND!GO,@TACS
"AITHEAD!

,00 5 ITERATIONS
; SET SCOPE LOOP ADDRESS
,ESCAPE TO TEST 24 ON ERROR

GO TO CLEAR LEADER
GO WAIT fOR "READY" 10 SET
PUT flLE GAP ON TAP!:
GO wAIT fOR "READY' TO SET
WRITE ONE BITE SLOC~

GO WAIT ON flTFANSFER

REQUEST~

TO SET

GO WAIT ON 'TRANSfEH REQUEST" TO SET
WRITE: "CRC"
GO WAIT FOR "READX' TO SET
WRITE A fILE GAP AFTER THE DATA
GO WAIT FOR fl~EADY'll to SET
GO TO "CLEAR LEADER"
GO WAIT FOR "READY' TO SET

MACYII 27(7321

TAil BASIC LOGIC TEST (PART 21 HAINDEC-II-DZTAB-C
DZTABC.NEW
T23
TEST "SPACE FWD BLOCK GAP'
1536
1537
1538
1539

1106724

154~

0~6740

1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
15&1
1562
1563
1564
1565
1566
1567
156d
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1561
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591

"~673"

006732
006736

112714
10441 2
032714
001401
104001

16~5

1606
1607
1608
1609
161A
1611
1612
1613
1614
1615
1616
1&17
1618
1619
1620
1621
1622
1623
1624
1625
162.
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
164\
1642
1643
1644

1645
1646
1647

13.26

PAGE 33

SEQ 0047

MOVB
'SFBGIGO.@TACS
,SEE IF SFBG WILL SPACE OVER THE BLOCK OF DATA
WAlTREADY
,GO WAIT FOR "READY' TO SET
BIT
'ERRORILEADER!'GAP.~TACS
,"ERROR" SaOULD BE CLEAR
BEQ
TST24
::SO SHOULD 'CLEAR LEADER" AND "FILE GAp·
ERROR
I
:TAPE IS IN THE WRONG PLACE AFTER A SFBG
:1111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111 1 11111111111111111111111111111111111
:THE FOLLOWING TESTS ARE USED TO CHECK THE "fILE GAP" CIRCUITS

000015
124000

,IIII~/IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII11111111111111111

;!;~;*I*;:
006742
006144
006752
006760
006766
006770
00&772
006776
007000
007004
007006

0001104
012767
012767
012761

007044

007046

1040~1

~07012

007014
007020
007022
007026
007030
007034
007~36

007040

000012
006770
0"7050

172214
172126
172202

011~005

0103\4
112714
104412
112714
104413
012715
104413
052714
104412
112714
1044\2
032714
001001
104001
032714
001401

it _ • • _ • •

;~;;*:~;~::;;~ .::;~:*:;~:*:: i;~:~*~;;*~;*:~~~::*~EAOER"

;J*.*~**** ••*** •• *******.***.*.*.**** •• **•• ********.** .* ••••••• *

T5T24..
,

IS:
000011

000003
000377
000020
000007
004000
120000

2S:

SCOPE
MOV
;;00 10. ITERATIONS
.10.,$TIMES
;:SET SCOPE LOOP ADDRESS
HS.SLPADR
MOV
MOV
UST25. 'ESCAPE : ; ESCAPE TO TEST 25 ON ERROR
RESET
,SELECT DRIVE
MOV
DRIVE. ~TACS
;GO TO CLEAR LEADER
MOVB
IREWIND!GO.@TACS
,GO WAIT FOR "READY" TO SET
WAITREADY
;WRITE "AUTO. FILE GAP'
MOVB
'WRITE!GO.@TACS
;GO
WAIT ON 'TRANSFER REQUEST" TO SET
WAITXFER
;WRITE -DATA"
MOV
.377 •• TADB
;GO
WAIT ON "TRANSFER REQUEST" TO SET
WAITXfER
: WRITE "CRC"
BIS
IILBS.@TACS
;GO WAIT FOR "READY" TO SET
WAITREADY
;BACK OVER THE DATA BLOCK
MOVR
tBSFG!GO •• TACS
,GO wAIT FOR -READY" TO SET
WAITREADY
;IN fiLE GAP?
BIT
'FGAP.~TACS
:BR IF YES
BN~
2S
;NO FILE GAP INDICATION
E~ROR
I
;ERROR SHOULD BE CLEAR
BIT
.ERRORILEADER.@TACS
BEG
TST25
; ; SO SHOULD "CLEAR LEADER"
;ERROR OR CLEAR LEADER ON A (I)
ERROR
1

:1··***··*******···***********·************************.*********
,*TEST 25
TEST "READ" INTO FILE GAP CAUSES AN ERROR
;:*.-.***.*.**** ••• **.**.* •• *-**.-* •• ** •• * •••••• *_ •• *************
007050
007052
007060
007066
007074
00707&
007100
007104

007106
007112

007114
007120
007122
00712&
00713~

007134

007136
007142
007144

000004
012767
012767
012767
000005
010314
112714
104412
112114
104413
112715
104413
052714
1044]2
112714
104412
112714
104412
112714

TST25:
000012
00710&
007176

172106
172020
172074

000017

IS:

000003
000377
000020
000001
000011

SCOPE
MOV
810 •• STIMES
MOV
81S.$LPADR
HOV
US126. 'ESCAPE
RESET
MOV
DRIVE.~TACS
MOVB'
'REWIND!GO.~TACS
WAITI\EADY
MOV8 I
IWRITE!GO.~TACS
WHUFER
MOVB
.377.~TADB
wAITXFER
BIb
IIL~S.~TACS
WAITREAOY
MOV~
'.'G!GO.fTACS
WAlTREADY
MOVB
#BSBG!GO.~TACS
WAITREADY
MOVB

000015

DO 10. ITERATIONS
SET SCOPE LOOP AODRESS
ESCAPE TO TEST 26 ON ERROR
;SELECT DRIVE
;GO TO BEGINNING Of TAPE

,WAIT ON "READY"
,START A WRITE

JwAIT ON "XfER R~Q"
;WRITE ONE BYTE
,WAIT ON ·XFER ~EQ
,WRITE "eRe"
,WAIT ON "READY·
,WRITE A "FILE GAP"
,WAIT ON "READ'Y"
;BACK OVER THE DATA
I WAlt

007150
007152
007156
007160
007162
007164
007166
007172
007174

104412
112714
104412
005714
100401
104001
03"714
00;001
10<001

WAITREAOY

000005

004000

2S:

MOV8
SREADIGO.@TACS
WAITREADY
PTACS
TST
BMI
2S
ERROR
I
BIT
'FGAP,'TACS
8NE
TST20
EFROR
I

ON "READY"

;SPACE OVER THE DATA BLOCK

'SFBG!GO,~TACS

TAil BASIC LOGIC TEST (PART 21 MAINDEC-II-DZTAB-C
MACII! 27(7321
DZTABC.NEW
T25
TEST "READ" INTO FILE GAP CAUSES AN ERROR
1592
I S93
1594
1595
1596
1597
1598
1599
1600
\601
1602
1603
1604

II-JUN-7.

II-JUN-76

13:26

PAGE 34

,WAIT ON "READY"
,START A 'READ"
,WAIT ON "READY'
;010 AN "ERROR" OCCUR?
;BR IF YES
;ERROR FAILED TO SET
;IS fILE GAP-I?
l;aR IF YES
;FILE GAP NOT_I

: : * ... *********.******* ••• * •• ********************************.****
:*TEST 26

007176
0d7200
007206
007214
007222
007224
007226
007232
007234
0d7240
037242
0a7246
ga7250
007254
007256
007262
007264
007270
007272
007276
007300
007304
007306
007310
007312
007314
007320
007322

00~004

01;:767
01 ;,767
0D767
00e0as
01e1l4
112714
104412
11.714
104413
1I~715

TST26.
000012
007234
007324

171760
171672
171746

000017

104412
111714
104412
112714
104412
112714
104412
112714
104412
005714
100401
1B4001
032714
001001
104001

SCOPE
MOV
MOY
MOV
RESET
MOY
MOVS

000003

IS.

000377
000020
000001
000011
000015
000015

004000

28 :

MOV8
'WRITEIGO.'TACS
WAITXFER
MOVB
3377.'TADB
WAITXFER

DRIVE,PTACS
JREWIND!GO.9TACS

SIS

:WRITE"CRe-

#ILBS,9TACS

WAITREADY
MOVB
'WFGIGO.'TACS
WAITREADY
MOVB
.BSBG!GO.'TACS
WAITREADY
MOVB
'SFBGIGO,@TACS
WAITREADY
MOVB
'SFBG!GO.@TACS
WAITREADY
PTACS
TST
BMI
28
ERROR
I
BIT
'FGAP. ilTACS
BNE
T5T27
ERROR
I

;WAIT ON 'READY"
;WRITE A "FILE GAP'
,WAlT ON 'READY'
,BACK OVER THE DATA
:WAlT ON "READY"
;SPACE OVER THE DATA BLOCK
;WAIT ON 'READY"
;START A 'SFBG"
; WAlT ON "READY'
;DID AN "ERROR' OCCUR?
;BR IF YES
,ERROR FAILED TO SET
; IS FILE GAP_\?
"SR IF YES
,FILE GAP NOT_I

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

" ••••••• * ••••

000'~04

TST271

012161
012'767
012767
000(105
010114
104112

000012
007430
007574

112'14

000017

104112
112714
104412
112114
104<113

,DO 10. ITERATIONS
,SET SCOPE LOOP ADDRESS
;ESCAPE TO TEST 27 ON ERROR
;SELECT DRIVE
;GO TO BEGINNING OF TAPE
;WAlT ON "READY'
,START A WRITE
;WAIT ON 'XFER REG"
;WRITE ONE BYTE
;WAIT ON 'XFER REQ"

,*TEST 27

1107324
1107326
907334
607342
007350
007352
1107354
907 356
007362
007364
007370
1107372
007376

Ifl".,STIMES
tIS. $LPADR
n5T27. $ESCAPE

~AITREADY

104413
05~ 714

TEST ·SFaG" INTO FILE GAP CAUSES AN ERROR

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

000001
000003

171632
171544
171620

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

TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP_I"

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

SCOPE
MOV
#l0 •• STIMES
;;00 10. ITERATIONS
MOV
IU.SLPADR
"SET SCOPE LOOP ADDRESS
MOV
UST30. $ESCAPE "ESCAPE TO TEST 30 ON ERROR
RESET
MOV
DRIVE.@TlCs
; SELECT DRIVE
WAITREADY
,MA~E SURE READY IS SET
MOVB
.REWINDIGO.@TACS
;GO TO 8EGINNING OF TAPE
WAITREADY
JWAIT ON -READY"
MOVB
IWFG) GO', nACS
;GET OFF OF CLEAR LEADER
WAlTREADY
,WAlT FOR READY
MOVB
'WRITE!GO,'TACS
,START A WRITE
WAlTXFER
,WAIT ON 'XFER REQ'

SEQ 0048

TAli BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
MACYII 27(732) II-JUN-7&
DZTABC.NEW
TEST 'ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP:I"
T27
1648
1649
165~

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

001400
007404
007406
001412
007414
001420
007422
007426
007430
007434
007436
007442
007444
007450
001452

104413
112715
104413
052714
104412
112714
104412
112714
104412
112714
104412
11132714

007454
007460
007462
007464
1107466
001472
007474
007476
007500
007504
007506
0117510
007512
007516
007520
007522
007524
007530
007532
007534
007536
007542
007544
007516
007550
0117554
007556
007560
007562
007566
007570
007572

112714
005714
100091
104001
112714
005714
100001
104001
112714
0115714
100401
104001
112714
005714
1110001
104001
112714
0"5714
100001
104001
112714
005714
100001
U4001
112714
005714
100401
104001
112714
005714
100001
104001

112715

000377

IH6

1707
1709
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728

000020
000001
000017
000013
004000

0010~1

104001
000000

000002

000004

000006

00011111

000014

000016

//1///////1//////////////11///////1/////////////11////1/1/////1///////

007634

007640
007642
007646
007650
007654
007656
007662
007664
007670
007672
007676
007709
007704
007706
0n7l2
007714

000004

U2767

012767
012767
000005
010314
104412
112714
Id4412
112714
104412
112711
104413
112715
11114413
112715
104413
052714
104412
112714
104412
112714

000012
007700
010000

000017

000001
00~003

000317
000317
000020
0001101
000017

104412

112714
\04412
032714

000013
004000

001001

007722
007724

104001

112714

000~07

On730
007732

104412
1132714

004000

1734

11107736
007140
007142
007746
007750
007752
007756
007760
007764
007766
007770
007774
007176

1101001
104001
032714
001401
104001
112714
104412
032714
001001
104001
Bl2714

1141
1742
1743
1744

1745
1746

PAGE 36

THE FOLLO~ING TESTS INSURE THAT BACKING INTO 'CLEAR LEADER" CAUSES AN ERROR

007720

1740

13:26

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

007574
007576
007604
007612
007620
007622
007624
007626
007632

001011
104001

SEQ 8849

000012

1729
1730
1731
1732
1733
1735
1736
1737
1738
1739

PAGE 35

MOVB
'377,@TADB
IWRlTE ONE 8YTE
WAITXFER
:WAIT ON lIIIXFER REQ'
MOVS
1377,nADS
; WRITE
WAlTXFER
;WAIT ON "XFER REg"
BIS
ULBS,nACS
:WRITE "CRe"
WAITREADY
,WAIT ON "READY"
MOVB
'WFGIGO,ilTACS
;WRITE A "FILE GAP'
UlTREADY
;WAIT ON "READY·
IS,
,REWINDIGO,UACS
MOVB
;BACK OVER THE DATA
WAITREADY
;WAIT ON "READY·
MOVB
ISFFGIGO,$TACs
IDO A SPACE FWD FILE GAP
WAITREADY
BIT
erGAP.PTACS
;IS FILE GAP=1?
SNE
26
ISR IF YES
IFILE GAP NOT=I
ERROR
I
;NOW CHECK "ERROR' SIT FOR ALL FUNCTIONS
MOVS
IWFG,@TACS
2S1
,CHECK "ERRO~' WITH "WFG"
UACS
,SAMPLE THE 'ERROR" BIT
TST
BPL
1$
J8R IF "ERROR" = 0
ERROR
;"ERH.OR" NOT = 0
I
MOVS
,NUTE,@TACS
3S1
,CHECK 'ERROR" WITH "WRITE"
@TACS
:SAMPLE THE "ERROR" BIT
TST
4$
SPL
JBR IF "ERROR" = 0
ERROR
,"ERROR" NOT = 0
I
4$,
MOVB
IREAD.IOTACS
:CHECK ".EII:ROR" WITH "READ"
@TACS
TST
;SAMPLE ~HE "ERROR" BIT
SMI
5$
;BR IF "ERROR n = 1
ERkOR
:IIERROR" NOT = 1
I
MOVS
,BSFG,nACs
,CHECK "ERROR" WITH "SSFG"
5$1
nACS
,SAMPLE TH~ "ERROR" SIT
TST
BPL
6$
;BR IF "ERROR" = 0
ERROR
I
:"ERROR" NOT = 0
6$:
MOVS
.BSBG.nACS
,CHECK "ERROR" WITH "BSBG"
nACS
:SAMPLE THE wERROR" BIT
TST
SPL
7$
;8R IF "ERROR"
0
ERROR
; "ERROR" NOT = 0
I
7$1
MOVB
,CHECK "ERROR" WITH "SfFG"
'SFFG.nACS
;SAMPLE THE "ERROR" BIT
TST
UACS
SPL
9S
;8R 1F "ERROR" = 0
ERROR
; "ERROR" NOT = 0
I
MOVS
ICHECK 'ERROR" WITH "SFBG"
8S:
'SFSG.@TACS
nACS
;SAMPLE THE "ERROP" BIT
TST
SMI
;BR
If "ERROR" = 1
95
ERROR
I
;"ERiolOR" NOT = I
9$1
,REWIND,UACS
MOVB
;CHECK "ERROR' WITH "REWIND"
UACS
;SAMPLE THE "ERROR" BIT
TST
TsT30
BPL
; :BR IF "ERROR" = 0
ERROR
,"ERROR" NOT = 0
I

000377

TAIl BASIC LOGIC TEST (PART 2) MAlNDEC-II-DZTAB-C
MACYlI 27(732) II-JUN-76
DZTABC.NEW
T27
TEST "ERROR" OUTPUT OF THE STATUS ROM WITH "FILE GAP=I"
1696
1697
1698
1699
1700
1701
1702
17113
1704
1705

13126

100000
000007
100000
020000

171 362
171274
171350

J.**************************************************************
*TEsT 30
TEST BACK-SPACE-FILE-GAP INTO CLEAR LEADER
;*****************************************************.*********
ST30: SCOPE
MOV
'IIl •• STIMES
lIDO 10. ITERATIONS
HOV
'IS,SLPADR
;;SET SCOPE LOOP ADDRESS
HOV
.TST31,SESCAPE ;;ESCAPE TO TEST 31 ON ERROR
RESET
HOV
DRIVE.~TACS
;SELECT DRIVE
WAITREADY
;MAKE SURE READY IS SET
MOVB
'RE"INDIGO,@TACs
,GO TO BEGINNING OF TAPE
WAITREADY
;WAlT ON 'READY'
MOVS
l.fGIGO,@TACS
:GET OFF OF CLEAR LEADER
WAITREADY
,WAlT FOR READY
HOVB
.WRITEIGO,tTACS
,START A WRITE
WAITXFER
;WAIT ON 'XFER REQ'
MOVB
'377,@TADB
,WRITE ONE SYTE
WAITXFER
;WAIT ON "XFER REg"
HOVB
'377,tTADB
;WRITE
WAITXFER
;WAIT ON 'XFER REO"
BIS
fILBS,@TACS
;WRITE "CRC'
WAITREADY
; WAIT ON "READY"
MOVS
IWFGIGO,aTACS
:WRlTE A 'FILE GAP'
WAlTREADY
;WAlT ON "READY"
1$,
MOVB
IREWINDIGO,tTAeS
:BACK OVER THE DATA
WAITREADY
,WAIT ON 'READY'
MOVB
'SFFGIGO,@TACS
,DO A SPACE FWD FILE GAP
wAITREADY
SIT
'FGAP.@TACS
,IS FILE GAP=I?
SHE
2$
JSR IF YES
ERROR
I
;FILE GAP NOT=1
2S:
MOVo
,BSFGIGO.@TACS
;GO TO FIRST FILE GAP ON TAPE
WAITREADY
;GO wAlT FOR 'READY' TO SET
BIT
'FGAP,@TACS
;IN A FILE GAP?
BNE
3$
,BR IF YES
ERROR
I
,DIDN'T STOP IN A GAP
3S:
BIT
,ERROR,RTACS
IDIO WE GET AN ERROR?
SEQ
4$
,BR IF NO
ERROR
I
I AN ERROR OCCURRED
4$1
MOVS
.BSFGIGO,.TACS
,BACK ONTO THE CLEAR LEADER
WAITREADY
IGO WAIT FOR "READY" TO SET
SIT
,ERROR,tiACs
,CHECK FOR AN ERROR
BNE
5$
,SR IF 'ERROR" SIT IS SET
ERROR
I
;"ERROR' SIT FAILED TO SET
5$:
BIT
'LEADER, 'TACs
ICHECK FOR CLEAR LEADER
8NE
TST31
;,SR IF 'CLEAR LEADER" z I
ERROR
I
,'ERROR' WASN'T DUE TO 'CLEAR LEADER"

SEQ 0050

TAli SASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAS-C
MACYlI 27(732)
DZTABC.NEW
T31
TEST BACK-SPACE-SLOCK-GAP INTO CLEAR LEADER
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
177~

1771
1772
1773
1174
1175
1116
1777
1778
1779
1780
1781
178l
1783
1784
1785
178b
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
1197
1798
1799
1800
18,,1
1802

13.26

PAGE 37

SEQ 0051

Jr····*·····_·******·-·*********************_·_·*****************
;*TEST 31
TEST BACK-SPACE-SLOCK-GAP INTO CLEAR LEADER
010000
010002
010010
010016
010024
010026
010030
010032
010036
010040
910044
010046
010052
010054
010060
010062
010066
1110070
010074
010076
010102
010104
0111110
0111112
010116
010120
010124
010126
010130
010134
010136
010142
010144
010146
010152
010154
010156
010160
010162
010166
010170

000004
012767
012767
0121&7
000005
010314
104412
112714
104412
112714
104412
112714
104413
112715

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

TST31:
000012
010104
010172

171156
171070
171144

000017
000001
000003
000377

\044\3

112715
104413
052714
104412
112714
104412
112714
104412
112714
104412
032714
001001
104001
112714
104412
032714
1101401
104001
112714
104412
005714
100401
104001
032714
001001
'04001

000377
000020
000001

IS:

000017
000013
1104000

2S:

000011
124000
000011

3S1

020000

4$'

SCOPE
MOV
110 •• $TIMES
;,DO 10. ITERATIONS
MOV
II 8. SLPADR
IISET SCOPE LOOP ADDRESS
MOV
.TST32.SESCAPE ;;ESCAPE TO TEST 32 ON ERROR
RESET
MOV
DRIVE. PrACS
;SELECT DRIVE
WAITREADY
;MAKE SURE READY IS SET
MOVB
'REWINDIGO.~TACS
;GO TO BEGINNING OF TAPE
WAITREADY
;WAIT ON 'READY'
MOVB
'WFGIGO.~TACS
,GET OFF OF CLEAR LEADER
WAITREADY
,WAIT FOR READY
MOVB
#WRITEIGO.~TACS
,START A WRITE
WAITXFER
;WAIT ON 'XFER REO'
MOVB
1377.~TADB
,WRITE ONE BYTE
WAITXFER
,WAIT ON 'XFER REO'
MOVS
'377.~TADB
,WRITE
WAITXFER
;WAIT ON 'XFER REO"
BIS
IILBS.@TACS
;WRITE 'CRC'
WAITREADY
;WAIT ON 'READY'
MOVB
,WFGIGO.PrACS
;WRITE A "FILE GAP'
WAITREADY
,WAIT ON 'READY'
MOVB
'REWINDIGO.@TACS
;BACK OVER THE DATA
WAITREADY
;WAIT ON 'READY'
MOVS
ISFFGIGO.9TACS
;00 A SPACE FWD FILE GAP
WAITREADY
BIT
.FGAP.~TACS
,IS FILE GAP=I?
BNE
2$
,SR IF YES
ERROR
1
,FILE GAP NOT=1
MOVS
.BSBGIGO.9TACS
;GO TO FIRST fILE GAP ON TAPE
WAITREADY
;GO WAIT FOR 'READY" TO SET
BIT
,ERRORIFGAPILEAOER.@TACS
,DID WE GET ANY ERROR?
SEO
3$
;BR IF NO
ERROR
I
;AN ERROR OCCURRED
MOVB
.BSBGIGO.UACS
;BSSG WHILE IN A FILE GAP
WAITREADY
;GO WAIT fOR 'READY' TO SET
TST
'TACS
;'ERROR" BIT SHOULD BE SET
SMI
4$
;BR IF IT IS
ERROR
I
;'ERROR' BIT WASN"T SET
BIT
'LEAOER.9TACS
,'CLEAR LEADER" SHOULD BE SET
8NE
TST32
;;~R IF "CLEAR LEADER' = I
ERROR
I
;'CLEAR LEADER' NOT SET

, I I I I I I //1 I // I I I / / / / I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I // I I I I I I I I I I I I I

,1111111111111111111111111111111111111111111111111111111111111111111111

;THE FOLLOWING TESTS INSURE THAT DATA CAN BE WRITING ONTO AND READ fROM THE TAPE
;1111111111111111111111111111111111111111111111111111111111111111111111

:J***************************************************************
:*TEST 32

0111172
1110174
010202
010210
010216

000004
012761
012167
AI2767
.00005

000012
010230
0111330

170164
170676
170752

TEST "WRITE" 377 & 0 "READ" 377 & 0

::***************************************.*.*** ••• * ••••• *********
TS132: SCOPE
MOV
.10 •• 8TIMES
;;00 10. ITERATIONS
MOV
'3S.$LPADR
;,SET SCOPE LOOP ADDRESS
NOV
'TST33.SESCAPE ;IESCAPE TO TEST 33 ON ERROR
RESET

TAIl BASIC LOGIC TEST [PART 21 MAINDEC-II-DZTAB-C
DZTABC. NEW
T32
TEST "WRITE- 377 & 0 "READIt 377 & 0
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
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
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858

II-JUN-76

010220
010222
010226
010230
010234
010236
010242
010244
010250
010252
010256
010260
010264
010266
010212
1110274
111027.
010302
010304
010306
010310
010312
010314
010316
010320
010322
010326

010314
112714
104412
112714
112115
104413
112115
104413
052714
104412
112714
104412
112714
1044IJ
011501
012700
020100
001401
104005
104413
905000
011501
901401
104005
052714
104412

010330
010332
010]40
010346
IHe354
010356
010360
010364
010366
010372
010314
010400
010404
010406
010410
IH04\2
010414
010416
010420
010422
010424
1110426
010432
910434
010436
010440

000004
012767
012767
012761
000005
U0314
112714
104412
112714
104412
012700
112714
104413
910015
10441 3
011501
020001
001401
104005
005300
002370
952714
104412
005714
100001
104001

000017
000003

1~4413

000377
000000
000020
000011
000005
000377

MACYlI 27(732)

II-JUN-76

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

000017
000001
000377
000003

170626
179540
170614

000020

PAGE 38

NOV
DRIVE.tTACS
;SELECT DRIVE
MOYS
'REWINDIGO.nACS
;GO TO 'CLEAR LEADER"
WAITREADY
,WAIT ON 'READY'
MOVS
3S:
'WRITEIGO.~TACS
,WRITE DATA
WAITXFER
~WAIT ON "Xf"ER REO"
MOVS
1377.nADB
; 1ST BYTE
WAITXFER
:WAIT ON "XFER REa"
MOVS
.0.nADB
;2ND BYTE
WAITXFER
JWAIT ON "XFER REQ"
BIs
ULss.nACS
~WRJTE "CRC"
WAITREADY
~WAIT ON "READY"
MOVS
IBSBGIGO.UACS
;BACK OVER THE DATA
WAITREADY
,WAIT ON 'READY"
MOVS
,READ I GO. PTACS
~START A "READ"
WA!TXfER
~WAIT ON "XFER REQ"
MOV
'TADS.RI
,PUT THIS BYTE IN RI
MOV
1377.R0
,PUT WHAT IT SHOULD BE IN R0
CMP
Rl,R0
;010 DATA READ GOOD?
BEO
IS
;SR IF YES
E~ROR
5
~DATA WASH·r = 377
WAITXFER
IS.
~WAIT ON ·XFER"
CLR
RA
MOV
PlADS.RI
;READ
BEQ
2$
,SR IF DATA
000
ERROR
5
;DATA WASN"T
000
BIS
IILBS.PrACS
2S1
;SHUT DOWN
WAITREADY
~ WAIT ON "READY·
J;********************************************************.******
,*TEST 33
TEST 'WRITE , READ' A COUNT PATTERN
****.**.*_ •••• *••••••• *.*.**.* •• **************
TS13]' SCOPE
MOV
H0 .. srIMES
;;00 10. ITERATIONS
MOV
U ••• LPADR
; I SET SCOPE LOOP ADDRESS
MOV
UST34. $ESCAPE "ESCAPE TO TEST 34 ON ERROR
RESET
;CLEAR ALL
MOV
DRIVE.eTACS
; SELECT DRIVE
MOVB
'REKINDIGo.nACS
~GO TO IIIBOT"
WAITREADY
,WAIT ON "READY' TO SET
MOVB
'WFGIGO.tTACS
;GET ON OXIDE
WAITREADY
,WAIT ON "READY' TO SET
MOV
1377.R0
,FIRST DATA PATTERN AND COUNTER
MOVB
,WRITEI GO. UACS
,START A WRITE
WAITXFER
,WAIT ON 'XFER REQ' TO SET
HOV
lSI
R0.UADB
,WRITE A BYTE ON TAPE
WAITXFER
,WAIT ON 'XFER REQ" TO SET
MOV
tTADS.RI
,GET SACK THE LAST BYTE WRITTEN
CMP
R0.RI
AND CHECK IT
BEQ
2.
,SII IF IT LOOKS GOOD
ERROR
5
;THE DATA IN TADB WAS BAD
DEC
2S:
R0
,NEXT PATTERN
BGE
U
,BR IF MORE TO 00
BIS
.ILBs.nACS
,WRITE THE 'CRC'
WAIrREADY
,WAIT ON 'READY' TO SET
TST
@lACS
,ANY ERRORS OCCUR?
].
SPL
,BR If' NO
ERROR
I
,ERROR OCCURRED DURING WRITE

=
=

000020

000012
010442
010516

\3,26

SEQ 0052

TAil BASIC LOGIC TEST (PAPT 21 MAINDEC-II-DZTAB-C
DZTABC.NEW
T33
TEST "WPITE , ~EAD" A COUNT PATTERN
1859
18&0
1861
1862
1863
1864
1865
1866
1867
18b8

1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879

010442
1110446
1110450
1110454
010460
010462
1110464
11104&6
010410
1110472
010474
010476
1110500
1110504
01050&
010512
0111514

112714
104412
112714
0127011
10441l
011501
1120001
001401
104005
1105300
002371
104413
052714
104412
032714
001401
104001

3S.

0000\1

19~3

1904
1905
190&
\907
1908
1909
1910
1911
1912
1913
1914

4$:

5$,

11126

SEQ 0053

PAGE 39

,1111111111111111111111111111111111111111111111111111111111111111111111
,111/1111111111111 /1111111111111111111111111111111111111111111111111111

,THE FOLLO~ING TESTS ARE USED TO I"SURE THAT THE "CRC· CIRCUITRY FUNCTIONS PROPERLY
:1111111111111111111111111111111111111111111111111111111111111111111111

:J.**************************************************************
:*TEST 34
TEST "ERROR" WITH "CRCERRR = 1
:,********************************.******************************

1110516
010520
111052&
010534
010542
010544
010546
010552
010554
111056~

010562
01056&
010572
010574
1110576
010&00
010604
0106~6

010612
010&14
010&20
010622
01062&
010632
010&34
010636
IH0&40
010642
010644
1110&511
0111652
0111654

000004
0127&7
012767
012767
000005
010314
112714
I ~4412
112714
104412
112714
012700
104413
005300
002403
112715
000772
052714
104412
112714
104412
112714
012700
104413
005300
002402
105715
000773
052714
104412
005714
100401

TSTH.
000012
0105&2
010776

170440
170352
170426

000001
20$,
IS.
00~377

2$:

0011020

~1"666

104001
032714
001001
104001

0\0670
010674
010676
010700
010702
010706
010710
010712
010714
010720
010722
010724
010726
1110732
010734
610736
010740
010744
010746
010750
010752
810756
810760
010762
010764
810770
010772
"10774

112714
005714
100001
104001
112714
005714
100401
104001
1127\4
805714
180001
104001
112714
0057\4
100001
104001
112714
005714
100001
104001
112714
1105714
10000\
104001
112714
1105714
100001
104001

010656
0106&0
0106&4

.10"S11M£5

nDO 10, ITERA"TIONS

MOV
120S, SLPADP
II SET SCOP~ LOOP ADDRESS
MOV
.TST35,SESCAPE :,ESCAPE TO TEST 35 ON ERROR
PESET
MOV
DRIVE,fTACS
,SELECT DRIVE
MOVB
.REWINDIGO,@TACS
:GO TO CLEAR LEADER
WAITREADY
,WAIT ON "READY'
MOVB
'WFGIGO,fTACS
:GET OFF OF CLEAR LEADEP
WAITREADY
:WAIT fOR READY
MOVB
'WRITEIGO,@TACS
,START A WPITE
MOV
'6,P0
,SETUP FOR 6 BYTES
WAITXFER
:WAIT ON "XFER REQ'
DEC
R0
,DOWN COUNt
BLT
2.
,DONE?
MOVB
1377,UADB
:NO--WRItE ON TAPE
SP
IS
:LOOP
61S
.IL85"tACS
;WRITE "eRe"
WAITREADY
,WAIT ON "PEADY'
MOV8
,BSBGIGO,@TACS
,BACK OVER THE DATA BLOCK

000017

000003
00111106

SCOPE

MOV

0011011

:WAIT ON "READY~
:STAPT A "READ"
,DO 3 BYTES
,WAit FOR 'XFER REQ'
:COUNT • Of BYTES

~AITREAOY

HOV8
'R£AOIGO,@TACS
MOV
H,P0
WAITXFER
DEC
R0
BLT
4.
T5T8
'TAD8
a~
3S

000005
0000113
3S:

4$:

11011020

040000

5$ :

000000

bS:

~THE

;CLEAR "XFER Rta"

81S
.ILBS,iTACS
WAITREADY
TST
@TACS
B~I
5$

TAil BASIC LOGIC TEST (PART 21 MAINDEC-II-DZTAB-C
DZTABC.NEW
T14
TEST "EPPOR" WITH 'CRCERP"
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
19]4
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970

II-JUN-76

MOVB
'BSBGIGO,@TACS
,GO TO BEGINNING OF BLOCK
WAITPEADY
,WAIT ON "READY· TO SET
MOVB
'READIGO,~TACS
,START A "READ'
MOV
8377,P0
,FIRST DATA PATTERN AND COUNTER
WAITXFER
,WAIT ON ·XFER REQ" TO SET
MOV
@TADB,RI
,PEAD A BYTE FROM TAPE
CMP
R0,~1
,IS IT VALID?
BEQ
5.
,BR IF YES
E~~O~
5
,BAD DATA READ FROM TAPE
DEC
R0
,NEXT PATTERN
BGE
4S
,BP IF MORE TO READ
WAITXFER
,WAIT ON ·XFER REQ" TO SET
BIS
IILBS.'TACS
,SHUT DOwN THE 'READ" OPERATION
.AITHEADY
;WAIT ON 'READY' TO SET
BIT
JERRORICRCE~~,@TACS
,EPROR AND CRCERP SHOULD BE
0
BEQ
TST34
I,BR IF THEY ARE
EPROP
I
,(ERROR I CRCERR)
1

000005
000377

18&~

1881
1882
1881
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
189&
1897
1898
1899
1900
1901
1902

MACYII 27(732)

:DO NILBS"
;WAIT ON "READY·

:CHECK FOR "ERROR'
j8R IF "ERROR"

MACYlI 27(732)

II-JUN-76

1312.

~~ERRORR BIT NOT SET
ERROR
I
:CHECK FOR "CRC" ERROR
BIT
'CPCERR, JTACS
JBR IF "CRC" ERROR
SNE
6S
;f'i0 "CRC" ERROR
ERROR
I
FOLLOWING CODE IS USED TO CHEC~ TaE ROM
;CHECK "ERROR" WITH "WFG"
IWFG,UACS
MOVB
;SAMPLE THE "ERROR" BIT
PTACS
TST
:8R If "ERRORD
0
BPL
7.
: "ERROR" NOT
0
ERROR
I
:CHECK "ERROR" WITH "WRITER
'WRITE, ~TACS
MOVB
:5AMPLE THE "ERROR" BrT
nACS
TST
;8R IF ·ERRO~·
1
85
B"I
:"ERROR" NOT = 1
ERROR
I
;CHECK "ERROR" WITH "BSrGH
MOVB
'BSFG, tTACS
,SAMPLE THE "ERROP" BIT
@TACS
TST
,SR Ir RERRORR = 0
98
BPL

000002

7&:

000006

8$:

0110010

9S1

ERRO~

000012

10$ :

000014

lIS:

000016

12$1

Mova

TST
BPL
EPROR
Mova
TST
BPL
ERROP
MOVB
TST
BPL
EPROR
MOVB
TST
BPL
ERROR

#BSBG,UACS
nACS
108
I

ISFFG, ,TACS
fTACS
11$
1

UFBG, tilCS
nACS
12$
1

IREWIND, UACS
@TACS
TST35
1

JRERROR" NOT = 0
;CHECK HERROR" WITH "SSSG"
;SAMPLE THE "ERROR" SIT
,eR IF "ERROR" = 0
; "ERROR R NOT
0
,CHECK "ERROR" WITH "SFFG"
,SAMPLE THE "ERROR" BIT
,SR IF "ERROR" = 0

, "ERROR" NOT

= 0

;CHECK "ERROR" WITH ·SFSG"
:SAMPLE THE "ER~OR' BIT
;SR IF RERRORR = 0
: RERROR R NOT

:CHECK RERRORR WITH ~REWINO"
,SAMPLE THE 'ERROR' BIT
,:BR IF "ERROR"
0
; "ERROR" NOT = 0

JI**********************************************************4****

,*TEST 35

TEST "DATA OF 0 GIVES CRC OF '"

" •• *.***.****** •••••• *.**.***** •• *** •••• *-*** •••••••••••
010776
111100"
IHI006
1111014
1111022
1111024
011026
011032
1111034
011040
1111042
011044
011046
""1150
8111152
1111056
811060
011064
1111066
011072

PAGE 40

008004
012767
012767
1112767
1100005
010314
112714
104412
112714
104413
1115015
1114413
1115015
104413
052714
104412
112714
1114412
112714
104413

TSTl5 I
080005
011034
011160

170160
170072
170146

000017
000003

900020
"0'011
0011005

681

*.*.*.*-

SCOPE
,DO 5 lTE~ATlONS
85,$1IMES
HOV
,SET SCOPE LOOP ADDRESS
MOV
'6$,$LPADR
,ESCAPE TO TEST 36 ON ERROR
nST36. SESCAPE
MOV
RESET
,SELECT DPIVE
MOV
DRIVE,nACS
,GO TO "CLEAR LEADER'
MOVB
#REWINDIGO,.TACS
,WAIT ON RREADY·
WAlTREADY
,WRITE THE DATA
MOVB
,WPITEIGO,.TACS
:WAIT ON "XFER REQ R
WAITXFER
:IST BYTE = 9
CL~B
@TADB
,WAIT ON HxrER REgWAlTXFER
:2ND BYTE = 0
CLRB
'TADB
,WAIT ON "XFER REa"
WAlTXFER
;WRITE HCRCR
8IS
,ILBS,@TACS
:WAIT ON "REAOYH
WAlTREADY
,BACK OVER THE DATA
MOVB
'BSBGIGO,'TACS
,WAIT ON "READYR
WAlTREADY
,START A "REAO"
MOVB
'READIGO,'TACS
,WAIT ON 'XFER REQ' !'IRST
WAlTXFER

SEQ 00S4

MACYII 27(732)

TAil BASIC LOGIC TEST (PART 2)
MAINDEC-II-DZTAB-C
DZTABC.NEW
T35
TEST "DATA OF 0 GIVES CRC OF 0"
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
19B8
1989
1990
1991
1992
1993
1994
1995
1996
1997
199B
1999
2000
2001
2002
2003
2004
20~5

2006
2001
2008
2009
2010
2011
20n
2013
2014
2015
2016
2017
2018
2019
202~

2021
2022
2023
2024
2025
202b

011074
011076
011100
011102
011104
011106
011110
011112
011114
011116
011120
011122
011124
011126
011130
011132
011134
011140
011142
011144
011146
011150
011154
011156

005000
011 501
001401
U4005
104413
011501
001401
104005
104413
011 501
001401
134005
104413
011501
001401
104005
052714
10441 2
005714
100401
104001
032714
001001
104001

011160
0111&2
011170
011176
011204
011206
011210
011214
011216
011222
011224
011230
011234
011236
011240
011242
011244
011246
011250
011252
011254
01125&
011262
011264
01126&
011270
011272
011276
011300

000004
012767
012767
0127.7
000005
010114
112714
104412
112714
104412
012700
\12714
104413
010015
104413
011501
020001
001401
104005
005300
002370
052714
104412
005714
100001
104001
112714
1044\2
112714

1$:

2S:

3S:

000020

4S:

040000

5S:

CLR
R0
MOV
8TADS,RI
BEQ
1$
ERROR
5
WAITXFER
HOV
@TADB,Rl
BEQ
2S
ERROR
5
WAITXFER
HOV
UADB,R1
~EQ
3S
ERROR
5
wAITXFER
HOV
nADB,R1
BEQ
4S
ERROR
5
BIS
'ILBS,~TACS
WUTREADY
UACS
TST
BMI
5S
ERROR
1
BIT
~CRCERR,~TACS
BNE
TST3.
ERROR
I

011304
0113\0
011314
011 320
011322
011324
011326
01133"
011332
011lJ4
011336
011340
011344
011340

011352
011354
011356
0113&0
011362
0113.4
0\1370
011372
011374
~1I376

011400
011402
011406
011410

012700
0051137
004737
10441 J
0\1501
020001
0014111
104005
005300
002367
005000
153700
104413
052714
011501
020001
001401
104005
005000
153700
104412
011501
0200U
001401

PAGE 41

liST BYTE NOT

;WAIT ON "XrER REG"
IREAD SECOND DATA BYTE
,BR IF 2ND BYTE
0

~DATA WASN"t = 0
;WAIT ON "XrER REO"

IREAD FIRST CRC BYIE
IBR IF 1ST CRC BYTE = 0
liST BYTE OF CRC BAD

;WAIT ON "XrER REQ"
IREAD SECOND CRC BYTE
IBR IF 2ND CRC BYTE
0
:2ND BYTE OF CRC BAD

;WAIT FOR "READY"
i"ERROR" SHOULD BE =
JSR IF "ERROR" IS
:IS THE ERROR A "CRC" ERROR?
IIGO TO NEXT TEST IF YES

000012
011272
011412

167776
167710
1677&4

000017
000001
000377
000003

000311

I*TEST 3&
TEST "CRC" CIRCUIT USING A COUNT PATTERN
::***************************************************************
TSTl.:
SCOPE
MOV
110.,STIMES
100 10. ITERATIONS
MOV
,36,SLPADR
ISET SCOPE LOOP ADDRESS
IESCAPE TO TEST 37 ON ERROR
MOV
nST37, SESCAPE
RESET
;CLEAR ALL
MOV
DRIVE,~TACS
:SELECT DRIVE
MOVB
iREWIND1GO,aTACS
ICO TO "BOT"
WAITREADY
1WAIT ON "READY" TO SET
IGET ON OXIDE
MOYS
#WrG1GO,~TACS
,WAIT ON "READY' TO SET
WAITREADY
MOV
0377,R0
IFIRST DATA PATTERN AND COUNTER
MOVB
I.RITE1GO,~TACS
ISTART A WRITE
_AI TXFER
;WAIT ON "XFER REQ" TO SET
HOV
R0,(aTAOB
IWRITE A BYTE ON TAPE
IS:
.AlTXFEP
,wAIT ON "XFER REO" TO SET
MOV
tTADB,R1
IGET BACK THE LAST BYTE WRITTEN
CMP
R0,Rl
AND CHECK IT
SEQ
2S
IBR IF IT LOOKS GOOD
ITHE DATA IN TADB WAS BAD
ERROR
5
,NEXT PATTERN
DEC
R0
2S:
BGE
IS
IBR IF MORE TO DO
;WRITE THE "CRC"
SIS
'ILBS,~TACS
;WAIT ON "READY" TO S~T
WAITREADY
TST
UACS
I ANY ERRORS OCCUR?
BPL
3S
~BR IF NO
IERROR OCCURRED DURING WRITE
ERROR
I
IBACK OVER THE DATA BLOCK
MOVB
'BSBG1GO,~TACS
3S:
WAITREADY
:WAIT ON "READY" TO SET

000005

MOVS

;stART A "REAO·

.READ!GO,~TACS

000377
013774
013654

4S:

5S:
~11774

000020

6S:
013775

104~05

032714

7$:

0~1401

II-JUN-7&

13126

PAGE 42

HOV
1377, R0
:FIRST DATA PATTERN AND COUNTER
CLR
UCRC •• D
IINITIALIZES THE "CRC WOPD"
JSR
PC,UDO.CRC
ICOMBINE THIS BYTE [P01 WITH THE "CRC WORD"
WAITXFER
;WAIT ON "XFER REg" TO SET
MOV
IHADB,RI
IREAD A BYTE FROM TAPE
CMP
R0,Rl
I IS IT VALID?
,8R IF YES
BEQ
5S
ERROR
5
IBAD DATA READ FROM TAPE
;NEXT PATTERN
DEC
R0
IBR IF "ORE TO READ
BGE
4S
CLR
R0
IGET LOW BYTE OF "CRC ~ORD"
BISA
"CRC .WD, R0
;WAIT ON "XFER REQ" TO SET
oAITXFER
ISHUT DOWN THE "READ" OPERATION
BIS
'ILBS,~TACS
IPICK FIRST BYTE OF TU60 "CRC"
MOV
UAD8,R1
CMP
R0,RI
1 IS IT GOOD?
BEQ
&S
;8R IF YES
IFIRST BYTE OF TU611 "CRC' IS BAD
ERROR
5
IGET HIGH BYTE OF "CRC WORD"
CLR
R0
81S8
'.CRC,WOtl,R0
:WAIT ON "READY· TO SET
WAITREADY
MOV
ilTADB, RI
IREAD THE 2ND BYTE OF TU60 "CRC"
eMP
R0,Rl
115 IT GOOD?
BEQ
7S
IBR IF YES
IHIGH BYTE OF "CRC" IS BAD
ERROR
5
IERROR AND CRCERR SHOULD BE
0
SIT
'ERROR1CRCERR,~TACS
BEQ
TST37
IISR IF THEY ARE
ERROR
1
:(ERROR I CRCERRI
1

104~01

JJ********************.******************************************
ITHIS TEST REQUIRES BOTH DRIVES •
:FOR THE FOLLOWING DESCRIPTION DRIVE "I" IS THE DRIVE UNDER TEST
:AND DRIVE "2" IS THE OTHER DRIVE
I

:TEST DESCRIPTION
III
12)

; 3)
14)
15l
16)

20&4
2065
20b6

REWIND DRIVE I
WAIT FOR READY TO SET
START DRIVE 2 REWINDING
WAIT FOR READY TO CLEAR
SELECT DRIVE I
AND CHECK THAT READY IS STILL SET
SELECT DRIVE 2 AND CHECK THAT READY IS STILL CLEAR

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

:, •• _*-••• _*._ ............ _-*._-_._.****--.-.---_ ..... ***********
,-TEST 37

01141 2
0\1414
0\1422
0\1433
0\143&
011442
011444
011450
011452
011456
0\1462
011464

000004
012767
012767
0127&7
"'5737
001443
012701
010302
062702
042702
0110005
010314

SEQ 0055

;TH~ ERROR WASN"T A "CReW ERROR
:;****************************************************.*.********

20b2
20b3

2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082

13:26

,SET R0 TO WHAT THE DATA SHOULD BE
IREAD DATA BYTE

;SR IF DATA

TAli BASIC LOGIC TEST (PART 2)
MAINDEC-II-DZTAB-C
MACHI 27(732)
DZTABC.NEW
136
TEST "CRC" CIRCUIT USING A COUNT PATTERN
2027
2028
2029
2030
203\
N12
2033
2034
2035
2036
2037
2038
2039
2040
2U41
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
20&1

II-JijN-76

TST37:
000005
011436
011552
001225
000001
000400
177377

167544
167456
167532
lSI

SCOPE
HOV
MOV
MOV
TSTB
BEQ
MOV
MOV
ADD
BIC
RESET
MOV

TRY TO HANG "READY" ON "REWIND"

15,STIMES
'IS, SLPADR
ITST40, SESCAPE
UDRVKEY+I
TST4!!
II,R1
DRIVE,R2
aUNIT,R2
'-CUNIT,R2
DRIVE,fTACS

1100 5 ITERATIONS
IISET SCOPE LOOP ADDRESS
IIESCAPE TO TEST 40 ON ERROR
ITESTING TWO DRIVES?
: IBR IF NO
ISET TIMER
ISET R2 TO THE OTHER DRIVE
ICLEAR ALL
ISELECT 1ST DRIVE

SEQ 0056

MACYII 27(732)

TAil BASIC LOGIC TEST (PART 2) MAINDEC-11-DZTAB-C
DZTABC.NE~
T37
TRY TO HANG "READY" ON "RE.IND"
2083 011466 104412
2084 011470 010214
2085 1111472 104412
2086 011474 112714 000017
2087 011500 006301
2088 0115~2 001001
2089 011504 104001
2090
2091
2092
2093 011 506 032714 000040
2094 011512 001372
2095 IHI514 010314
2096 011516 112714 000016
2097 011522 032714 000040
2098 011526 001001
2099 011530 104~01
2100 011532 010214
2101 011534 112714 000016
2102 011540 032714 000040
2103 011544 001401
2104 1111546 104001
2105 011550 104412
2106
2107
210R

2$1

3S:

4$,

5S:

13126

PAGE 43

SEQ 0057

:NAIT ON "READY"

,SELECT 2ND DRIVE
,WAIT ON "READY"
,SEND 2ND DRIVE TO BOT
,GIVE 'READY" TIME TO CLEAR

SNE

ERROR

BIT
BNE
MOV

BIT
BNE
ERROR
MOV
MOVB
BIT
BEQ

.READY.@TACS
2$
DRIVE,frACS
IREWIND.'TACS
.READY.'TACS
4$
I
R2.@TACS
IREwIND.nACS
'READy.tTACS
5$

ERROR

: III READY· WAS SET

WAITREADY

,WAIT ON "READY'

Move

,"READY" FAILED TO CLEAR
,NOTEI THIS ERROR OCCURRED ON THE
,2ND DRIVE. I.E. IF TESTING DRIVE A
,THEN DRIVE B FAILED
,WAIT FOH 'READY· TO CLEAR
,SELECT 1ST DRIVE
,LOAD A "REwIND'
,CHECK "READY"
,BR IF STILL SET
,"READY" WAS CLEAR
,SELECT 2ND DRIVE
,LOAD A REWIND
,CHECK "READY"
,BR IF STILL CLEAR

.. .. ** *.* ** *******. * ... ** .. ** ** ... ** ... ** *** ** ** ...... - ** ** ** ... ** .... **** ******
;THIS TE5T REQUIRES BOTH DRIVES.
,FOR THE FOLLOWING DESCRIPTION DRIVE "I" 15 THE DRIVE UNDER TEST
,AND DRIVE "2" lS THE OTHEN DRIVE

21~9

2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
213\
2132
2133
2134
2135
2\36
2137
2138

WAITREADY
HOV
R2.UACS
WAITREADY
MOVB
'REWINDIGO.~TACS
ASL
RI

ll-JUN-76

iTEST DESCRIPTION
REWIND DRIVE I
:I)
WFG ON DRIVE I
,2)
START
A REWIND ON DRIVE 2
,3)
WHILE DRIVE 2 IS REWINDING WRITE DATA ON DRIVE I
,4)
CH£.CK
FOR
ERRORS
,5 )
START A REWIND ON DRIVE 2
,6)
WHILE
DRIVE
2 IS REWIND ING READ DATA FROM DRIVE I
,7l
CHECK FOR ERRORS
,B)
;~TEST 40
TRY TO GLITCH THE "POWER 5UPPL~"
;J***************************************************************

011552
011554
011562
,,11570
011576
011602
011604
011610
011612
011616
011622
011624
011626
011632
011634

300004
012767
012761
012767
105737
001554
011701

TST401
000005
011576
012134
001225

167404
167316
167372

IS:

000001

010302
0627~2

042702
000005
010314
112114
104412
112714

000400
177377

000001

SCOPE
"DO 5 ITERATIONS
.S,STIMES
HOV
"SET SCOPE LOOP ADDRESS
IIS.$LPADR
MOV
.TST41.SESCAPE "ESCAPE TO TEST 41 ON ERROR
HOV
,TESTING TWO DRIVES?
UDRVKEY+I
TSTB
"SR IF NO
TS141
BEQ
;SET TIMER
,l,Rt
HOV
,SET R2 TO THE OTHER DRIVE
DRIVE.R2
HOV
.UNIT,R2
ADD
,-CUNIT.R2
BIC
,CLEAR ALL
RESEr
,SELECT 1ST DRIVE
MOV
DRIVE. nACS
,REWIND TO BOT
MOVB
'REWIND!GO.~TACS
:WAIT ON "READy-iii
WAiTREADY
,GET ON OXIDE
HOVS
.WFGIGO.~TACS

TAli BASIC LOGIC TEST (PART 2) MAlNDEC-II-OZTAB-C
T40
TRY TO GLITCH THE "POWER SUPPLY"

MACYlI 27(732)

II-JUN-76

13126

PAGE 44

OZTABC ,NEW

2139
2140
2141
2142
2143
2144
2145
2146
2141
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194

'\
!

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

011&40

1~4412

011642
011644
011646
011652

01a214
104412
112714
006301
001001
104001

~11654

011656

011660
011664
011666
011670
"11674
011676
011702
911704
0\1706
011710
011714
011716
011720
011722
011724
011730
011732
011734
1111736
011740
011744
011746
1111752
011754
011756
011760
011762
011764
011766
011770
1111772
1111774
011776
1112002
012004
012006
1112010
012012
012016
012020
1112022
012024
012026
812030
912032
912036

032714
001372
010314
112714
104413
112715
104413
105015
1044ll
052714
104412

000~17

25 :

000040

3$1

000~03

000377

000020

~05714

100001
104001
112714
104412
005714

000011

4S:

000005

5S:

100~01

104001
112714
104413
012700
011 S01
020001
001401
104005
104413
005000
011501
001401
104005
10441 J
052714
104412
005714
100001
104001
112714
104412
l!J05714
100001
104001
010214
104412
112714
1112701

000377

6$ ,

7$ :

000020

000011

8$1

98:

000017
000001

WAlTREADY
MOV
R2.UACS
WAlTREADY
# REWIND! GO, (aTAe5
HOVB
ASI.
RI
BNE
3$
ERROR
I

BIT
HEADY.@TACS
2$
BNE
HOV
DRlVE.@TACS
,WRITE! GO. nACS
MOVB
WAlTXFER
MOVB
.371.nADB
WAlTXFER
CLRB
UADB
WAITXFER
tILBS,nACS
BIS
WAITREADY
@TACS
TST
4$
BPL
ERROR
I
MOVB
tBSBGIGO.nACS
WAITREADY
TST
@TACS
5$
BPL
ERROR
I

Move

'READIGO.~TACS

WAITXFER
MOV
1377.R0
MOV
PTADS.RI
R0,Rl
CMP
BEQ
6S
ERROR
5
WAITXFER
CLN
R0
MOV
@TADB.R1
BEQ
7$
ERROR
5
WAlTXFER
BIS
IILBs.nACS
WAITREADY
TST
UACS
aPL
8S
~RROR
I
MOVB
,BSBG!GO.8TACS
WAITREADY
@TACS
TST
BPL
9S
ERROR
I
HOV
R2.@TACS
WAITREADY
MOVS
IREWINDIGo.nACS
MOV
II.RI

,WAIT ON "READY"
,SELECT 2ND DRIVE
:WAIT ON "READY"
'START A "REWIND"
;GIVE "REAOr" TIME TO CLEAR
:"REAOr" FAILED TO CLEAR
,NOTE: THIS ERROR OCCURRED ON THE
,2ND DRIVE. I.E. IF TESTING DRIVE A
,THEN DHIVE B FAILED
,WAIT FOR "READY" TO CLEAR
,SELECT 1ST DRIVE
,WRITE WHILE THE OTHER DRIVE IS "REWINDING"
;WAIT ON "XFER REO"
,WRITE 1ST BYTE
:WAIT ON "XFER REO"
,WRITE 2ND BnE
;WAIT ON ·XFER REO"
:WRITE "CRe· & SHUT DOWN
;WAIT ON "READY"
,ANY ERROR?
,BR IF NO
,ERROR OCCURRED DURING "WRITE"
,POSITION TAPE fOR "READ'
:WAIT ON "READY"
,ANY ERROR?
,BR IF NO
,ERROR OCCURRED DURING "858(1"
;START A "READ"
,WAIT ON "XFER REO"
,FIHST DATA PATTERN
,PICKUP FIST BYTE
,IS IT GOOD?
,BR It' NO
,1ST DATA BYTE IS BAD
,WAlt ON "XFER REO"
,2ND DATA PATTERN
,PICKUP 2ND BYTE
,BR IF IT IS GOOD
,2ND BYTE IS BAD
,WAIT ON "XFER REO"
,SHUT DOWN
;WAIT ON "READY"
,ERROR?
,BR IF NO
,ERROR OCCURRED
,POSITION FOR NEXT "READ"
;WAIT ON "READY"
,ERROR?
,BR IF NO
,ERROR OCCURRED DURING "BSBG
,SELECT 2ND DRI VE
,WAlT ON 'READY'
,START A "REWIND"
,SET THE TIMER

SEQ ~058

TAli BASIC LOGIC TEST (PART 2) 14AlNDEC-Il-DZTAB-C
DZTABC .NEW
T40
TRY TO GLITCH THE 'POWER SUPPLY"
2195
2196
2197
219B
2199
22011
2201
2202
220]
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
222]
2224
2225
2226
2227
2228
2229
2230
22]1
2232
2233
2234
2235
2236
2237
2238
2239
2240
2241
2242
2243
2244
2245
2246
2247
224B
2249
2250

1112042
012A44
012046

AI2050
012054
012056
012060
012062
812066
1112070
012074
012076
"12100
012102
1112104
012106
012110
012112

032714
001372
010314
104412
112714
104411
012700
0115111
020001
0014"1
104005

~12114

104005
11'14413
052714
104412

012116
012120
012124
012126
012130
"'12132

012134
012136
012144
012146
012150
0121H

10S.

1l~5201

001001
104001

80004A

RI
118

13126

PAGE 45

SEQ .1159

:GIVE "READY· TIME TO CLEAR
,'READY' FAILED TO CLEAR
,NOTEI THIS ERROR OCCURRED ON THE
:2ND DRIVE, I.E. IF TESTING DRIVE A
,THEN DRIVE 8 FAILED
,WAIT FOR 'READY' TO CLEAR

8IT
IREADY,nACS
BNE
10S
MOV
DRIVE,nACS
,SELECT 1ST DRIVE
WAlTREADY
,WAlT ON "READY'
MOVB
'READIGO,nACS
,'READ' WKILE OTHER DRIVE IS "REWINDING"
WAITXFER
:WAIT ON 'xrER REO"
HOV
un,R0
,1ST DATA PATTERN
MOV
trAD8, RI
,READ 1ST 8YTE
R0,Rl
CMP
,IS IT GOOD?
SEQ
,BR IF NO
12S
ERROR
5
: 1ST BYTE niLED
WAlTXFER
12S:
:WAIT ON 'XFER REO"
R0
CLR
,2ND DATA PATTERN
MOV
nADB,RI
: READ 2ND BYTE
BEQ
:BR IF IT IS GOOD
13S
ERROR
:2ND BYTE FAILED
5
WAITXFER
:WAIT ON 'XFER REg"
138:
BIS
HLBS, PrACS
,SHUT DOWN
WAITREADY
:WAlr ON -READY"
prACS
TST
:ERROR?
aPL
TST41
IIBR IF NO
ERROP.
,ERROR OCCURRED
1
::**** •• *.* ••••• *****************.*.*.************.*.*.*.* •••• **.
p'-TEST 41
END OF TEST CODE

1100005
000377

"'4411

~0H~1

000020

0~5714

111000\
104001

"•..-•...•.•
_•.•.. _.* •• ** •••• _.......*_ ••••••••_•••• *.*_ •••• *-**
SCOPE

TS141 :

000~04

0001'101

167022

0001'117
.SBTTL

MOV
II,STINES
,,00
RESET
MOV
DRIVE,nACS
MOVB
UEWINDIGO,nACS
WAITREADY
END OF PASS ROUTINE

ITERATION
,SELECT DRIVE

,J.-•••
*.** •• *_.** •• -.**.* •• ** •••••• * •• ** ••• * •• *.-... *e •• *._._.*.
:"INCREMENT THE PASS NUMBER (SPASS)
:*TYPE "END PASS"
:*IF THE RES A MONITOR GO TO IT
:*IF THERE ISN'T JUMP TO START
:*IF IT IS DESIRED TO HAVE A BELL INDICATE THE 'END OF PASS' LOCATION
I>SENDMG CAN BF. CHANGED TO 7.

012156
012156
012160
012164
01JIN

012174
012202
1112204
012206

003004
005067
005067
00S267
042767
005]27
0000at
00]01S

SEOP:
166716
166776
166704
100000

166676

SCOPE
CLR
CLR
INC
BIC
DEC
SEOPCT: .WORD
BGT

nSTN"
STIMES
IPASS
"00000, SPASS
(PC).
I
SDOAGN

TAIl BASIC LOGIC TEST [PART 2) MAINDEC-II-OZTAB-C
DZTAbC.NEW
END OF PASS ROUTINE
2251
2252
2253
2254
2255
2256
2257
225B
2259
2260
2261
2262
2263
2264
2265
2266
2267

Il-JUN-76

II S:

005000
011501

012767
000005
010314
112714
104412

INC
8NE
ERROR

MACYlI 21(732)

012210
012212
012214
012216
012222
012226
012230
012232
012234
012236
012140
012242
012242
012244
012246
012251
012256

012737
000001
012204
10440!
01370~

012251
000042

0~J405

01)0005
0~47J3

000240
000240
0~0240

01)0137
002220
377
015
050040

377
042412
051501

000
042116
00012]

HOV
$ENDCT: ,WORD
SEOPCT
TYPE
SGET.2: MOV
SEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
SDOAGNI
JMP
SRTNADI .. WORD
SENULL: .BYTE
SENDMG. .Ascn

::iERO THE TEST NUMBER
::ZERO THE NUMBER OF ITERATIONS
"INCREMENT THE PASS NUMBER
I :DON'T ALLO. A NEG. NUMBER
;:LOOP?
/I YES

MACYlI 2H7321

II-JUN-76

(PC)+,PlPCl+
I

:: RESTORE COUNTER

, SEND~G
U42,R0
SDOAGN

;:TYPE "END PASS·

PC, (Rill

13: 26

,:GET MONITOR ADDRESS
,:BRANCH IF NO MONITOR
"CLEAR THE WORLD
"GO'TO MONITOR
IISAVE ROOM
nFOR

II ACTII
flPClt
START

; :RETURN

I:NULL C'tlARACTER STRING
<15><I2>/END PASSI

"'1,-1,0

PAGE 46

SEQ 0060

TAil BASIC LOGIC TEST (PART 2)
MAINDEC-II-DZTAB-C
DZTABC ,NEW
sCOPE HANDLER ROUTINE
2268
2269
2270
2271
2272
2273

,SBTTL

MACYlI

27(732)

II-JUN-76

13:26

PAGE 47

SEQ 0061

SCOPE HANDLER ROUTINE

1'*****·**********·*·*******~*****·***·*·*·*****·***·* .*.*****.**

,-THIS ROUTINE CONTROLS THE LOOPING Of SUBTESTS, IT WILL INCREMENT
,>AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG,IDISPLAY<7:0.)
;_AND LOAD THE ERROR fLAG ISERFLG) INTO DISPLAY<IS:08.
,_THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE.

2274

;*SW14=1

2275
2276
2277
2278

LOOP ON TEST

;>SWII=I

INHIBIT ITERATIONS

;*SW09=1

LOOP ON ERROR

;*SW08=1

LOOP ON TEST IN 5WR<7:0>

2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2195
2296
2297
2298
2299
2300
2301
23~2

2303
2304
2305
2306
2307
2308
2309
231.
2311
2312
2313
23!4
2315
2316
2317
2318
2319
2320
2321
2322

2323

SCOPE
012264
012264
012266
012274

10440&
032777
0011 \I

040000

166644

012276

000416

012300
012304
01l3l2
012316
012322
012324
"12326
012332
012334
012334
012342
012344
012352
012354
012360
012362
01237.
012372
012400
012402
012410
012112
012416
012422
012424
012432
012434
012440
012442
012446
012454
012456
012464
012472
012476

013746
01273 7
005737
012637
000463
022626
012637
000'123

000004
012324
177060
000004

032777
001404
127767
001462
105767
001421
126767
101015
032777
001404
016767
000443
105067
005"67
000415
032777
001011
005767
001406
005267
026767
002021
0127&7
016767
1052&7
011667

000400

166576

166570

166530

CKSWR
BIT

:; TEST
FOR CHANGE IN SOFT ... SWR
IISIT14,laSWR
:; LOOP ON PRESENT TEST?
BNt;
SOyER
;;YES IF S"14=1
;iI#II#IISTART OF CODE FOR THE XOR TESTERU . . #

IS:

SXTSTR, BR

000004

166523
166527

166513

001000

166540

1665~2

166476

166465
166544
0040..,0

16&506

166440
16b436
166514

000001
000044
166404
166404

166430
166420
166474

012502
012506
012512
01252~

012526
"12532
012534

011667
005067
112767
016777
016716
000002
003720

166402
166456
000001
166356
166354

MOV
CLR
161>375
166414

"IF RU~NING ON THE "XOR" TESTER CHANGE
;,THIS INSTRUCTION TO A "NOP" (NOP=240)

MOV
@#.RRVEC,-(SPJ
; ;SAVE THE CONTENTS OF THE ERROR VECTOR
MOV
#5S,~U;RRVEC
:;5ET FOR TIMEOUT
@H77060
TST
; ; TIME OUT ON XOR?
{SP)+,@ifERRVEC
MOV
;; RESTORE THE ERROR VECTOR
BR
SSVLAD
; I GO TO THE NEXT TEST
CMp
(SP)+,(SP)+
5$,
; ;CLEAR THE STACK AfTER A TIME OUT
MOY
(SP)+,@;#ERRVEC "RESTORE THE ERROR VECTOR
BP
7S
; ; LOOP ON THE PRESENT TEST
oS:;#lI:UifEND Of CODE ,'OR THE XOR TESTERH."
#BIT0B,@SWR
BIT
:;LOOP ON SPEC~ TEST?
BEQ
2$
nbR If NO
jSWR, STSTNM
CMPB
: JON THE RIGHT TEST?
SilR<7;0>
BEQ
sOVER
;: 6R IF YES
TSTB
SERFLG
;;HAS AN ERROR OCCURRED?
2S:
BEQ
3$
"BR IF NO
CMPB
$ERMAX,SERFLG
;;MAX. ERRORS FOR THIS TEST OCCURRED?
BHI
;:BR IF NO
3S
BIT
'BIT09,{aSwR
: ; LOOP ON ERROR?
BEQ
4S
;;BR IF NO
7$,
MOV
$LPERR, $LPADR
; ;SET LOOP ADDRESS TO LAST SCOPE
BR
SOVER
CLRB
S ERFLG
; ,ZERO THE ERROR FLAG
4S:
STIMES
; :CLEAR THE NUMBER OF ITERATIONS TO MAKE
CLR
BR
;,ESCAPE TO THE NEXT TEST
IS
IIBIT11,i<lSWR
;, INHIBIT ITERATIONS?
SIT
35:
BNE
IS
;: BR I f YES
TST
SPASS
; ,IF FIRST PASS OF PROGRAM
BEQ
INHIBIT ITERATIONS
IS
INC
S ICNT
"INCREMENT ITERATION COUNT
CMP
STIMES, S leNT
;;CHECK THE NUMBER OF ITERATIONS MADE
BGE
SOHR
"BR IF MORE ITERATION REQUIRED
MOV
#l,SlCNT
,; REINITIALIZE THE ITERATION COUNTER
IS:
MOV
$MXCNT,STIMES
; ;SET NUMBER OF ITERATIONS TO DO
SSVLAO, lNCB
STSTNM
; ;COUNT TEST NUMBERS
MOV
(SP),SLPA.DR
"SAYE SCOPE LOOp ADDRESS

TAil BASIC LOGIC TEST (PART 2)
MAINDEC-! I-DZTAB_C
DZTABC.NEW
SCOP. HANDLER ROUTINE
2324
2325
2326
2327
2328
2329
2330

: : SCOPE= rOT

SSCOPE:

MOVB

SaVER:

MOY
MOV
RTI

SMXCNT,

2000.

MACYlI

(SP), $ LPi::RR
SESCAPE
# 1, $ERMAX
STSTNM,taDISflLAY
SLPADR, (SF)

27(732)

II-JUN-7b

13.26

PAG' 48

SAVE ERROR LOOP ADDRESS
CLEAR THE ESCAPE fROM ERROR ADDRESS
ONLY ALLOW ONE( I) ERROR ON NEXT TEST
DISPLAY TEST NUMBER
FUDGE RETURN ADDRESS
FIXES PS
MAX. t~UIiIBER OF ITERATIONS

SEQ 0062

MACYlI 2717321

nil BASIC LOGIC TEST (PART 21 MA1NDEC-II-0ZTA8-C
ERROR HANDLER ROUTINE
OZTABC.NEW

'<'-...

2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2148
2349
2350
2351
2352
2353

.S8TTL

012536
012536
012540
012544
012550
012554
012560
012564
012566
~12574

012&"2
012604
012611<1
012614
012620
012626
012634
012642
012644
01265J
012654
012660
012662
0126&4
&12&66
012614
~12676

01J702
0127~6

012710
012714
012114
012722
012724

238~

~12726

012726

011537
010037
010137
105267
001775
01&777
032777
"01102
1044111
005267
011 &67
1627&7
117767
032777
001004
004767
1114401

001162
001164
001124
00112&
166317
16&310
II~200"

76:
166346
1&&33&

001172
16&276
16&276

IS:

IIII~002

166270

16&264
1120000

166276

16626~

0011060
001177

005777
1"0"02
300000
104406
032777
001402
01&716
005767
"01402
01&716

JS~

20$:
2S:

1&6260

1101000

166244

16&20&
166262

35:
4$:

16&254
5S:

022D7
001001

012232

CKSWR
MOV
MOV
MOV
MOV
INCB
BEQ
MOV
81T
BEQ
TYPE
INC
MOV
SUB
MOVB
BIT
SNE

00"042

110~000

UACS,USREG0
~TAD8, ~#SREGI

R0,USGDDAT
RI,~UBDOAT

6ERFLG
7$
nSTN", ~DISPLAY
#BlTl0,PSW~

,$BELL
SERTTL
(SP) , SERRPC
~SERRPC, $lTEMB
OBIT13, ~S.R
20S
PC,TYPEPR

TYPE

,$CRLf

TST
BPL
HALT
CKSWR
BIT
BEQ
MOV
TST
BEQ
MOV

~S.R

C.P
8NE
HALT

24~7

IITEST FOR CHANGE IN SOfr-SWR
,SAVE THE STATUS REG,
,SAVE THE DATA BUFFER
,R0 WILL CONTAIN THE GOOD DATA
,RI WILL CONTAIN THE BAD DATA
"SET THE ERROR fLAG
"DON'T LET TijE FLAG GO TO ZERO
"DISPLAY TEST NUMBER AND ERROR FLAG
,:BELL ON E~ROR?
"NO - 5~IP
;, RING BELL

"COUNT THE NUMBER OF ERRORS
,:G~T ADDRESS OF ERROR INSTRUCTION

'2,$t-RRPe

"STRIP AND SAVE THE ERROR ITEM CODE
:,SKIP TYPEOUT IF SET
"SKIP TYPEOUTS
"GO TO USER ERROR ROUTINE
;,HALT ON ERROR

II SKIP IF CONTINUE

;;HALT ON ERROH,l

4$
SLPERR,(SPI
SESCAPE
5S
SESCAPJ;;,(SP)

"TEST FOR CHANGE IN SOFT-SWR
::LOOP ON ERROR SWITCH SET?
; JaR IF NO
"fUOGE RETURN FOR LOOPING
"CHECK fOR AN ESCAPE ADDRESS
: :BR IF NONE
" rUOGE RETU~N ADDRESS FOR ESCAPE

UENDAD,U42
bS

; :BRANCH If"

'~IT09,~S.R

IIACT-II AUTO-ACCEPT?
NO
: ,YES

&S:
RTI

000002

;: RETURN

TAli e~51C LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
DZTABC .NEW
ERROR TYPEOUT ROUTINE

2408
2409
2410
2411
2412
2413
2414
2415
2416
2417

SEQ leu

ERROR HANDLER ROUT1NE

SERROR,
1044~6

1111437

~12654

2381
2382

2404
2405
2406

PAGE 49

,*THIS ROUTINE WILL INCREMENT THE ERROR fLAG AND THE ERROR COUNT,
,*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
,*AND GO TO TYPERR ON ERROR
,*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE,
HALT ON ERROR
;*sw15=1
INHIBIT ERROR TYPEOUTS
,*SWI3=1
BELL
ON ERROR
J*SW10=1
LOOP ON ERROR
;*SW09=1
,*CALL
N
:JERROR=EMT AND N=ERROR ITEM NUMBER
ERROR
'*

2355
2356
H57
2358
23SQ
23.0
2361
2362
23&3
23&4
H&5
2366
2367
2368
2369
2370
2371
2372
2373
2314
2375
2376
2377
2378
2379

24~3

13126

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

2154

2383
2384
2385
2386
2387
2388
2389
239"
2191
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402

II-JUN-76

MACYI I 27(732)

II-JUN-76

13:26

PAGE 5~

,1·_·-"·*- ********-******** .... -******** *.*.*** ********************
,THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES

012730
012734
012736
012742
012744
012746
01l75"

012752
01275&
012762
012764
012766
012772
012776
013000
013002
013004
013"10
013012
013014
1113016
1113022
013024
013024
1113026
013030
013032
013034
013040
~13042

104101
010046
113700
005300
006300
006300
006100
062700
012067
104401
000000
104401
0120&7
001404
104101
000000
1~4101

012000
001004
012600
'04401
000207

001177
0011 14

001236
~00002

TYPERH: TYPE
MOV
Move
DEC
ASL
ASL
ASL
ADO
MOV
TYPE

IS:
001177
000004

"TYPE
MOV
BF.C;

, SCRLF

R0,-(SP)
"SITEMB,R0
R0
R0
R0
R0
UERRTB, R0
(R01+,1$

, SCRLF
(R0).,2$
3S

TYPE
2S:
001177
3$:
4$,

TYPE
"MOV
BNE
MOV
TYPE

, LINE FEED

,fORM THE TABLE POINTER
,PICKUP "ERROR MESSAGE" POINTER
,TYPE "ERROR MESSAGE'
,'ERROR MESSAGE POINTER' GOES HERE
,PICKUP 'DATA HEADER' POINTER
;IF "~. DON·T TYPE
,TYP~ 'DATA HEADER
,'DATA HEADER" POINTER GOES HERE

,SCRLF
(~01+,

5S
(SP)+,R0

~TS

,SCRLF
PC

1113046

MOV

II( R01+, - (SP)

104402
005710
001770
104401
000771

TYPOC
TST
BEQ
TYPE

001177

,TYPE A CARRIAGE RETURN
,SAVE R0
,PICKUP THE ITEM INDEX
,ADJUST THE INDEX
'SO IT WILL WORK FOR
,THE ERROR TABLE

,PICKUP 'DATA POINTER"
,IF THERE IS DATA TO TYPE GO DO IT
,RESTORE R0
,TYPE A CARRAGE RETURN&LINE fEED
;RETURN

5S:

~20040

013046

013042
000

6S:

(R0)
4$
,&S
56

,ASCIZ

.EVEN

,SAVE ~(R0)+ FO~ TYPEOUT
,TYPE DATA
,GO T~PE--OCTAL ASCII(ALL DIGITS)
,TERMINATOR?
,BR IF YES
;TYPE 2 SPACES
,LOOP
,ASC II STRING OF 2 SPACES

SEQ 0064

TAl! BASIC LOGIC TEST (PART 2l
MUNDEC-1l-0ZTAB-C
MACYU
DZTA8C ,NEW
ROUTINE TO WAIT ON THE READY BIT TO SET

27(732)

ll-JUN-76

\3.26

PAGE 51

SEQ 00&5

~ : ****** ~H~****~ ** ***"" ************* **"Hf •• * ** *********~******* *****

2418
2419

IROUTINE TO WAIT ON THE READY BIT

2420
2421

013046

2422
2423
2424
2425

013046
013052
013060

2426
2427

013072
013076

2428
2429
2430
2431
HJ2
2433

013102
013104
013106
013110
013112
013114
01l1l6

2434
2435

2436
2437
2438
2439
2440
2441

2442

2443
244 4
2445

013064

013120

013122
013124

013126
013130
013132
013136
013142
013146
013150

"AU,ON.READY,

005067
016167
012637
162731
012637
032714
001013
b'57!4
103002
104004
000407
005227
000000
001306
005327
000000
003363
104002
013746
013746
062716
000002
000000

000044
000072
001202
000002

eLR
000044
001202

001204
000040

WAITI:

WAIT4:

WAIT2:
HGHTIM:

WAIT3:

001204

001202
000002
MAXCNT,

2457
2458
2459

013214

2460
246 I
2162
2463
2464
2465

:GET THE PC OF THE WAITREADI INSTRUCTION

#2,@#5AVPC

THE PS

(SPJ+.@#SAVPS

~SAVE

,READ'i,{aTACS
WAIT3
@TACS

:READI=!?
JGO ON IF YES
:CHECK TRANSFER REQUEST

".114
4

;"TRANSFER REQUEST" SET WHILE WAITING ON

(PCl>

:COUNT FAST COUNTER

BNE

"AI TI

;GO CHECK "READY" AGAIN
:COUNT LOOP COUNTER

DEC
0
BGT

24b6

013216
013 2 20
" 13222
013224
013226
013230
013232

2467

"13234

2468
2469

24m

013236
013242
013246

2471

01,3252

(PC) +

iGO LOOP AGAIN

WAITt

ERROR

;"READY" FAILED TO SET

MOV
MOV
ADD

@3SAVPS,"(SP)

:GET THE STATUS BACK
,GET THE PC

~'SAVPC,-(5P)

#2, (SP)

WALT. FOR. XfER, REO:

M5067
013767
012637
162737
012637
1057! 4
1004! 4
03271,1

000044

013150
001202
000"'02
001204

001202
1 s:

CLR
MOV

2$
@#MAXCNT,3S

iSETUP WASTE TIME LOOP

MOY

(SP)t,@."SAVPC

: GET THE PC OF THE fiAlTXFER INSTRUCTION

SUB

#2,~#SAVPC

MOV
TST8
BMI

(SPH",@#SAVPS

;SAVE THE PS

~TACS

;CHECK Xf"ER REQ
: EXIT H' SET

0~ t 402

BEQ

104004
0"0407

ERROR

4S
3READY,@,!ACS
5S
4

BIT

000040

1305227

5S:

00~HHH1J

2$:

£101366

005 J 2 7

3$ :

000000

1113746

1101204

013746

~01202

062716
000""2

0011002

DZT~BC.,NEW

4 $.

; LOOK AT READY

:BR IF

~READY"

15N~T

S~T

SET WHILE WAITING FOR "XfER REa"

;"READY~

INC
0

(PC).

,COUNT

BNE

: B~ I f MORE TO DO

DEC

(PC)'

o
BGT
ERROR

003363
104003

;"TRANSFER REQUEST" fAILlD TO SET

MOV

@#SAVPS#"(SP)

MOV
ADD

@#SAVPC,-(SP}

: GET THE STATUS BACK
; GET THE PC

#2,(SP)
,GO BACK

~TI

TAll BASIC LOGIC TEST (PART 2)

MAINDEC-l1 .. DZTAB ... C

13:26

PAGE 52

ROUTINE TO ASK THE OPERATOR wHAT DRIVE(S)

TO TEST

MACYII

27(732)

II-JUN-76

ROUTINE TO WAIT ON TRANSfER REQUEST

2472
2473
2474
2475

.SBTTL

2476

,CALL

2477
2479

JSH
RETURN

PC, f3.#ASKDRV

TYPE
CLR

, MSGDRV
DRVKEY

;NOTE:

R0 ANI)

ARE DESTROYED

2479
248~j

013254

104401

2481

013260

005067

2482

"13264

104410

ROLIN

2483

013266
013270
013272
013274
et 3300
013304

012600
10571"

HOV
TST8
SEQ
MOV
CMPB
BNE
HOVS
BF
CMPB
BNE
MOVS
BR
CMPB
BNE
TSTS
TS18
BEQ
CMp
BHI
TYPE
BR
TST
BEQ
RTS

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

013306

013310
013312
013316
013320

013322
013324
013 330
013332
013334
013336
013340

013344
013346
013352

013354
013360
013362

016744
165740

ASKDRV:

001425

012701
12271 0
001002
112021
000411
122710
001002
112021
000404
122710
001006
105720
105710
001406
022701
101355
104401
000140
005767

001224
00010\

LOOP,

000102

Non:

000054

NOTS.

NEXr,
001226

001176

NOTLGL,

165644

EXIT'

001712

000207

;JSR

2523

013430

010046
104401
104411
012600
001423
020027
10]770
010037
062700
010037
013737
005237

2524
2525
2526
2527

013434
013442
013446

013737
005237
104401

2515
2516
2517

2518
2519

2520
2521
2522

(SP) +, R0
@R0
NOTLGL

#DRVKEY,R1
a: 'A,@.R0
NOTA
(R0)+,(Rl)+

013364
013366
013372
013374
013376
013400
013404
013406
013412
013416
013422

ASKADP,

1 S,

016760

160000
001206
000002

001212
001206

001210

0012!0

001212
001214
016770

001214
3$ ,

;<CRLf>"DRIVE(S)?

:GO GET A DRIVE
,SETUP TO CHECK fOR VALID DRIVE(S)
tWAS A DRIVE SELECTED?
;BR H' NO
~WAS

DRIVE "A" SELECTED?

:BR If NO

;5£T KEY fOR DRIVE itA"

NEXT
''"B,@R0

;WAS DRIVE "6" SELlCTED?

NOtB

IBR I f NO

(R0)+, (Rl)+

~SET

KEY FOR DRIVE

~B"

NEXT
tt54,@R0
NOTLGL
(R0)+
@R0
EXIT

:BR IF YES

#DHVKEYt2,R1

;TWO DRIVES SELECTED?

;WAS A COMMA TYPED?
18R If NO
,DUMP THE COMMA

;Tt:RMINATOR?

LOOP

;BR IF NO

,$QU£5

: ILLEGAL INPUT DETECTED
:GO TRY AGAIN
,ANY DRIVE SELECTED?

ASKDRV
DRVKEY
NOTLGL
PC

;:* •• * •••••• * •••• ~.*
,CALL

2509

2510
25 I 1
2512
25 i 3
2514

"READY~

"AI13

INC
0

I ROUTINE TO WAlT ON TRANSFER REQUEST

013152
013152
0111 56
013164
013170
013176
613202
31H04
013206
013212

2454
2455
2456

:SETUP MAX. TIME TO WAIT ON "READY"

(SP)+,@#5AVPC

;; ••••••••••••• ** ••••••••••••• *** •• ***.*** ••••••••••• * •••••••••••

2446

2'52
2453

WAIn
MAXCNT,liGHTIM

RTl

244 7
2448
2449
2450
2451

MOV
MOV
SUB
MOV
BIT
BNE
T5T8
BPL
ERROR
BF

;BR IF NO

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

PC ~ @#ASKADR

MOV

R0, ""(SP)

,SAVE R0

TYPE

,MSGASK

: "TACS?"

RDOCT
MOV
BEQ

(SP)+,R0

:PICK UP THE OCTAL NUMBER

~IF

eMp

R0, # 160000

:MAKE SURE IT IS A BUS ADDRESS

6LO
HOV
ADD
HOV
MOV
INC

MOV
INC
TYPE

fGET VALUE
~0~

USE OLD VALUES

R0,@IfTACSL
:SAVE TOE rACS
#2,R0
:STEP TO TAOS ADDRESS
R0, "#TADBL
:AND SAVE IT
@#TACSL,@OTACSH ,SETUP TACS UPPEP,
@UACSH
;BYTE POINTER

@#TADBL.@#TADBH
@#TADBH

,MseVEC

: SETUP TAOS UPPER
:BYTE POINTER
;'VECTOR?"

SEQ 0066

BASIC LOGIC TEST (PART 2)
MAINDEC-II-DZTAB-C
MACYlI 27(732)
DZTABC ,NEW
ROUTINE TO INPUT CSR,IJBR. AND VECTOR ADDRESS AND PRIORITY

TAil

2528
2529
253"
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2541
254S
2549
2550
2551
2552
2553
255.
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2561
2568
2569
2510
2571

013452
013454
013456
013460
013464
013466
013412
013416
013502
013506
013510
013512
013514
013520
013522
013524
01352&
013530
013532
013536
013542
013546
013552
0135H
013560
013564
013566

013572
013576
013600
013604
013610
013612
013616
013620
013622
013626
013630
013634
013636
013642
013644
01365.
013652

104411
012600
00141 I
020021
103310
010037
062100
010031
104401
104411
012600
00141 3
020027

2598

2599
2600
260\
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614

001216
000002
00122"
017000

5$'

000007

10131~

000 3~0
006200
006200
006200
042100
B10~ 31
104401
016146

177431
001222
011012
165434

6S'

1~4402

104401
016146
104402
104401
016146
104402
104401
016146
104402
104401
104401
012600
022700
001406
022100
001403
104401
000651
104401
012600
000201

TAil BASIC LOGIC TEST
DZTABC .. N~iII
2512
2573
2574
2515
2576
2517
2518
2579
25BJ
259 I
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592
2593
2594
2595
2596
2591

001000

01702"
165426
017027
16542"
017040
165412
017053
0~0"'1~

000131
001176
1$ ,

011061

RDOCT
MOV
BEQ
CMP
BHIS
MOV
ADD
MOV
TYPE
RDOCT
MOV
BEQ
CMp
SHI
SWAB
ASP
ASH
ASR
SIC
MOV
TYPE
MOV
TYPoe
TYPE
MOV
TYpoe
TYPE
MOV
TYPOe
TYPE
MOV
TYPOC
TYPE
RDCHR
MOV
CMp
BEQ
CMP
SEQ
TYPE

II-JUN-76

13:26

PAGE 53

(SP)+,R0

:MAKE SURE ADDRESS IS IN VECTOR AREA

R0," 1000

3S
R0,@#TAVEC
#2, R0
R0, P#TAVt::C+2

,SAVE AS VECTOR ADDRESS

,MSGPRI

,ASK FOR PRIORITY

(SP)+,R0

;If "0" USE OLD VALUE

6$
Fl:0,#7
5$
Re
R0
Re
H0
rC<340>,R0

,MAKE SURE ITS VALID

,PUT INTO HIGH BYTE

;AND SHIFT
,INTO PROPER
;POSITION
,SAVE ONLY PRIORITY BITS
,STORE IT AWAY

R0'~'TAPRIO

,M.TACS
TACSL,-(SP)

, TACS="

n SAVE TACSL FOR

TYP~OUT

"GO TYpg ..... OCTAL ASCII (ALL DIGITS)
,,",TAOS

,I'ITADB="

TADBL.-(SP)
,MTAVEC
TAVEC.-(SP)
, MTAPRI
TAPRIO. -( SP)

;:SAVE TADBL FOR TYPEOUT
;, GO TYPE--OCTAL ASCI1(ALL DIGITS)
,"VECTOR="
,:SAVE TAVEC FOR TrPEOUT
;:GO HPE--OCTAL ASCI1(ALL DIGITS)
: "PFIORIT:i="
"SAVE TAPRIO FOR TYPEOUT
nGO TYPE--OCTA!, ASCll(ALL DIGITS)

,MSGOK

;ItOK?1II

(SP)..,R0
# 15, R'"

; GET IT
:15 IT nCR"?
,BRANCH IF YES
,IS 11 "Y It?
: IT WAS
;TYPE "7"
,AND LET HIM CORRECT THEM

JGO READ ONE CHARACTER
7$
#·Y,R0

7$
,SOUES

ijR

TYPE
MOV
RTS

(SP)t,R0

,RESTORE R0

: AND RETURN

,MYES

(PART 2)
HAINaEC-II-OZTAS-e
ROUTINE TO CALCULATE THE CRC

1 TYPE OUT IIIYESI'I

MACYI! 27(132)

II-JUN-16

13:26

PAGE 54

;:** ••••• **.**** ••• ****.*.***** •••••••• * ••• *.***.* •••• ****.**.***
;THIS ROUTINE WILL CALCULATE THE CRC
;C/l.LL:

013654
01]654
.13656

010046

~136b~

~10246

~1]602

~10346

013664
013666
013614
013700
013102
013104
01311 "
013712
013711
013116
013120
013122
013724
013126
0131]0
0tJ734
013136
013140
013142
013744
013746
013150
013152
01 ]154
013760
013762
013164
01376.
013710
0tJ772
013174

elJ4Ib
012167
kH611(J3
005001
010302
042702
006000
006101
010104
040204
040102
050402
006002
103006
012701
010104
040304
040103
050403
006003
005327

JSH

pe,DO.eRe

MaV
MOV
HOV
MOV
MOV
MOV
MOV
CLR
MOV
SIC
ROR
ROL
MOV
BIC
SIC
SIS
ROR
HCC
MOY
MOV
SIC
SIC
SIS
ROR
DEC

RO,-(SP)
RI.-(SP)
R2.-(SP)
R3,-(SP)
R4,-(SP)
#9 .. ,3$
CRC,.D,R]
RI

,R0=1 BYTE OF DATA

DO.CRe:
~1014b

0"0010

IS:
117716

040002

2S:

00000~

003352
010367
012604
012603
012602
012601
012600
000207
000000

000054

000014

3$,

000014

R3,R2
#-CBIT~0,R2

RI
HI, R4
R2,R4
HI, R2
R4,R2
R2
2$
8SITI4!BlT01,RI
At, R4R3,R4
R1, R3

R4,R3

,PUSH R0 ON STACK

,PUSH Rl ON STACK
,PUSH R2 ON STACK
,PUSH R3 ON STACK
:PUSH "4 ON STACK

;MAKE EIGHT ITERATIONS
,PICKUP THE CRC WORD
,GET THE PARTIAL CRC WORD
,STRIP AWAY EVERYTHING BUT SI T0e
,PULL OFF THIS SIT

:AND SETUP TO XOR IT
,.ORM THE XOR OF !4Rl nAND "R2"

1RESULTS TO NR2R

,fORM THE XOR OF PlIH" AND "R3 "

,RESULTS TO "R3"

(PC).

SGT
MOY
MOV
MOV
MOV
HOV
MOV
RTS
CRC,WD: 0

SEQ 0067

~BR

IF MORE BITS TO DO

R3,CRC.WO
(SP)+,R4
(SP)+. R3
(SP).,R2
(SPJ+,Rl
(SP).,R0
PC

J :POP STACK INTO R4
nPOP STACK INTO R3

"PDP STACK INTO R2
JIPOP STACK INTO RI
"POP STACK INTO R0
,CRC WORD

::***********************.4**************************************

SEQ 006B

TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
MAcr11 27(732)
DZTABC.NEW
********** MANUAL ADJUSTMENT ROUTINES **********
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2659
2659
2660
2661
2662
2663
2664
2665
26.6
2667
2668
2669
2670

13:26

PAGE 55

SEQ 0069

:111111111111111111111111111111111111111111111111111111IIIIIIIIIillllll
:11111111111111111111111111111111111111111111111111111IIIIII!IIIIIIIIII

:THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60
:NOTE: ,,, BEfORE USING ANY Of THE ROUTINES LOAD AND START AT 214 '"
:1111111111111111111111111111111111111111111111111111111111111111111111

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

1113776
014002
014006
014012
014014
014~22

014026
III 4030
014034
014040
014042
014046
014050
014054
014~56

014060

012706
013704
01310S
000005
812737
004737
010314
112714
032714
001775
1127\4
104412
032714
001772
000000
808746

001100
001206
001212
013776
1115002

001118

000017
000040
800001
020000

WRITE fILE GAPS fROM 'BOT" TO 'EOT"
:START AT 220
,THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MuNO" AND
~THE "WRITE DELAY MONO",
:r························_-_·····_·*··*··-·····_·····
•• **
THE WAY
:KEEP THE STACK******~
OUT W
'STACK. SP
WFGSUB:
MOV
:SETUP THE TAil STATUS AND
MOV
~ITACSL. TACS
:DATA BUFFER REGISTeRS
MOV
~'TADBL.TADB
: REsn THE WORLD
RESET
:SETUP THE LOOP ON ERROR ADDRESS
MOV
IWfGSUB. U$LPERR
:GO 5~TUP fOR NEXT DRIVE
PC.~#NXTDRV
JSR
ISELECT DRIVE
MOV
DRIVE.UACS
,SEND TAPE TO "BOT"
MOVe
'REWIND!GO.~TACS
:WAIT ON READY
.READY. UACS
BIT
100$:
BEQ
100$
:WRITE A FILE GAP
MOVS
IWfG!GO.UACS
IS:
: WAIT ON READY
WAITREADY
:AT "CLEAR LEADER"?
.LEADER. ilTACS
BIT
:BR IF NO
BEQ
1$
:STOP IF YES
HALT
,LOOP ON CONT •
• FGSUB
BR

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

WRITE CONTINUOUS BLOCKS OF DATA
: START AT 224
:THE PROGRAM WILL HALT THR~E(31 TIMES
:AfTER EACH HALT SET THE SWR AND PRESS CONTINUE
:HALT I --- SWR<7:8> = NUMBER OF SYTES PER BLOCK
:HALT 2 --- SWR<7:0> = PATTERN DESIRED
:HALT 3 --- SWR<15:0> = OPERATIONAL SWITCH SETTINGS
,THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO"
: •• If USING son WARE SWITCH REGISTER. AfTER
EACH HALT OPERATOR WILL BE PROMPTEO
fOR THE VALUE WITH "SWR=XXXXXX NEW:"
I

014062
014066
014072
1114076
014102
"14104
1114112
014116
01412~

014124
01413~

0047)7
01270.
013704
0137~5

; : * .. ** **. ** * ** * ** .... ** ** ... ** ..... -It.* * .... * * .. * * **:GET
..... * .. **** •• *** ***********
BLOCK SI~E AND PATTERN

014544
001100
001206
001212

0~0005

812737
0a4737

010314
112714
03271 4
001775

014066
015002

001110

WRTSUB: JSR
WLOOP: MOV
NOV
MOV
RESET
MOV
JSR
MOV

Mova

000~17

100$:

000040

BIT
BEQ

PC ••• SETBUF
.STACK.SP
UTACSL,TACS
@tTADBL.TAOB

'WLOOP.~'$LPERR

PC. ~.NXTDRV
DRIVE.nACs

014132
014136
814142
014144
014146

004737
0J2714
001713
000000
000747

014660
028000

IS:

JSR
BIl
BEQ
HALT
BR

:KEEP THE STACK OUT Of THE WAY
:SETUP THE TAIl STATUS AhD
IDATA SUf"FER REGISTERS
: RESEr THE WORLD
:SETUP TH~ LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT DRIVE
:SELECT DRIVE
T~PE

#REw lNO l GO, f!1TACS

;SEND

#READY.UACS
100$

: WAIT ON READY

TA II BAS IC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
DZTABC.NEW
WRITE CONTINUOUS BLOCKS Of DATA
2671
2672
2673
2674
2675
2676
2617
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725
2726

II-JUN-76

MACYII 27(732)

II-JUN-7.

TO "BOT"

13:26

PAGE 56

:WRITE A BLOCK
:AT "CLEAR LEADER"?
,BR If NO
;STOP IF "EDT"

PC'~'.RTBLK

.LEADER.nACS
1$

WLOOP

:LOOP If' CONT.

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

READ CONTINUOUS BLOCKS OF DATA
:START AT 230
,THIS ROUTINE CAN BE USED TO AOJUST THE "SIGNAL MONO'
rAND THE "THRESHOLD POT".

014150
014154
014160
014164
014166
014174
014200
014202
014206
014212
014214
014220
014224
014226

012706
013704
013705
000"05
012737
004737
010H4
112114
032714
00177S
004737
032714
801351
808772

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

RDSUBI

001100
001206
001212
014150
015002

001110

000017
"0"040

100$:

~14722

1$,

020000

MOV
MOV
MOV
RESET
MOV
JSR
MOV
MOVB
BIT
BEQ
JSR
BIT
BNE
BR

tSTACK.SP
"TACSL. TACS
'-TADBL, TAOS

JRDSUS, USLPERR
PC.UNXTDRV
DPIVE.UACS
.REWINDIGO,nACS
.READY. ~TACS
100S

:KEEP THE STACK OUT OF THE WAY
:SETUP THE TAIl STATUS AND
:DATA BUFFER REGISTERS
:RESET THE NORLD
:SETUP THE LOOP ON ERROR ADDRESS
:GO SETUP FOR NEXT DRIVE
:SELECT DRIVE
:SEND TAPE TO "BOT"
: WAl T ON READY
:READ A BLOCK
:AT nCLEAR LEAOE~~?
:BR IF YES---LOOP

PC.~'RDBLK

tLEADER.UACS
RDSUB
1$

:;*•• ***.********.**********.** •••• *.**** •••• ***** •• ** •• **** •• *.*
WRITE A fiLE GAP AND A BLOCK OF DATA FROM BOT TO EOT
:START AT 234
:THE PROGRAM wILL HALT THREE(31 TIMES
:AFTEP EACH HALT SET THE SWR AND PRESS CONTINUE
,HALT I --- SNR<7:0> = NUMBER OF BYTES PER BLOCK
,HALT 2 _.- SWR<7 :0> : PATTERN DESIRED
:HALT 3 ._- SNR<15:0>
OPERATIONAL SWITCH SETTINGS
:*. IF USING SOFTWARE SWITCH REGISTER, AFTER
EACH HALT OPERATOR WILL BE PROMPTED
I
FOR THE VALUE WITH "SWR:XXXXXX NEW:'
:AND THE "GAP TIME MONO".
:THIS ROUTINE SUPPORTS THE SIW SWITCH REG fUNCTIONS

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

014230
014234
014240
014244
014250
014252
014260
014264
014266
014272
014276
014300
014304

004737
012706
013704
013705
0801105
012737
004737
010314
112714
032714
001775
112714
104412

014544
001100
001206
001212
014234
015002
000017
000040
000001

001118

WGPBLKI JSR
PC.~'SETBUF
WGBLOP: MOV
.STACK.SP
MOV
i.TACSL.TACS
MOV
~'TAOBL.TADB
RESET
MOV
,WGBLOP.il$LPERR
JSR
PC".NXTDRV
MOV
DRIVE.iTACS
HOVa
'REWINDIGO.@TACS
100S'
BIT
.READY •• TACS
BEQ
100$
lSI
HOVB
.WFGIGO.UACS
WAITREADY

:GET BLOCK SIZE AND PATTERN
:KEEP THE STACK OUT OF THE WAY
:SETUP THE TAil STATJS AND
:DATA BUFfER REGISTE~S
IRESET THE WORLD
:SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT D~!VE
:SELECT DRIVE
,SEND TAPE TO 'SOT"
:WAIT ON READY
IWRITE A FILE GAP
:WAIT ON READY

SEQ 0070

TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
MACYII 27(732)
DZTABC.NEW
WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT
2727
2728
2729
273~

2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744

2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
27&1
2762
2763
2764
2765
2766
2767
2768
2769

014306
01UI2
014314
014320
014324
014326
0UH"

03;714

020000

00::-005

00<737
~3;714

014660
020000

00 765
00[ 000

2S1

0~(741

BIT
BNE
JSR
BIT
BEQ
HALT
BR

"IB7~

014374
014376
01H02
014406
014410
014414
0144\6
014422
014424

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

'LEADER,tTACS
28
PC, "WRTBLK
,LEADER,nACS
IS

;STOP AT "EOT"
,START OVER ON CONT.

WGBLOP

e'2106
013704
013705

RGPBLK: MOV
.STACK,SP
MOV
'#TACSL,TACS
HOV
~ITADSL,TADB
RESET
MOV
IRGPBLK,~'$LPERR
JSR
PC,~'NXTDRV
MOV
DRIVE,~TACS
MOVB
#REWIND1GO,~TACS
100$'
BIT
.READy,nACS
BEQ
100S
1$'
JSR
PC,~'RDBLK
BIT
'LEADER,~TACS
BNE
RGPBLK
MOVB
#SFBG1GO,~TACS
WAlTREADY
BIT
.LEADER,8TACS
SN~
RGPBLK
BR
1$

001100
001206
001212

0a0005

012737
004737
010314
112714
032714
001775
004737
032714
001351
112714
104412
032714
001343
000764

014332

001110

015~02

000017
000040
014722
02000~

000015
020000

In 4472

27~2

014416

012706
013104
0\3705

300005
012737
004737
010314
112714
032714
001775
112714
104412

SFFGSB' MOV
,STACK,SP
MOV
~'TACSL,TACS
MOV
~'TADBL,TADS
RESET
MOV
'SFFGSB'~'SLPERR
JSR
PC,~.NXTDRV
MOV
DRIVF.,~TACS
MOVS
'REWINDIGO,~TACS
1008'
SIT
.READY,ITACS
SEQ
100S
lSI
MOVB
ISFFG1GO,nACS
WAITREADY

001100
001206
001212
014426
015002

001110

000017
00004"
000013

TAli BASIC LOGIC nST (PART 2) MAINDEC-I\-DZTAB-C
MACYlI 27(732)
DZTASC.NEW
SPACE FORWARD FILE GAP FROM 'BOT" TO "EOT"

2811

2812
2813
2814
2815
2816
2817
2818
2819
2820
2821

2822
2823
2824

2825
2826
2827
2828
2829
2830
2831

2832
2833
2834
2935
2936

:AT "CLEAR
,SR IF YES
,LOOP

L~ADER"?

Jr***************************************************************

~14426

2781

28~1

,READ A SLOCK OF DATA
,AT "CLEAR LEADER"?
,BR IF YES
;GET INTO A fILE GAP

SPACE fORWARD FILE GAP FROM "BOT" TO "EOT"
I START AT <44
,THIS ROUTINE C~N BE USED AFTER 'WRITE FILE GAP" fOR LOW SPEED
,SPACE FOWARD (TAPE SLAN~ MONO CAN BE ADJUSTED), OR AFTER READ OR
,WRITE A FILE GAP AND A BLOCK OF DATA fOR HIGH SpEED SPAC~ t"ORWARD
,(SIGNAL MONO CAN BE CHECKED).

AI4470

2903
2904
2905
2806
2907
2808
2909
2810

,KEEP THE STACK OUT OF THE WAY
,SETUP THE TAli STATUS AND
IDATA SUFFER REGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
IGO SETUP FOR NEXT DRIVE
,SELECT DRIVE
,SEND TAPE TO "SOT"
,WAlT ON READY

JI***************************************************************

2780

280~

1'114500
014594
014506
014510

1132714
001772
000a00
000146

020000

,SPACE INTO A FILE GAP
;WAIT ON READY

II-JUN-76

\3,26

PAGE 58

;:~ ;~L~~R LEADER"?

BIT
BEQ
HALT
8R

,KEEP THE STACK OUT OF THE WAY
;SETUP THE TAil STATUS AND
,DATA SUFFER REGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
,GO SETUP FOR NEXT DRIVE
,SELECT DRIVE
,SEND TAPE TO "BOT"
;WAIT ON READY

SFFGSB

:STOP AT "EOT"
JLOOP ON CONTI

;;***************************************************************
,

014512
014514
014522
014524
0\4531'1
014532
1'114536
0lt549
014542

000all5
012737
010314
1\2714
104412
032714
001772
000000
000763

BACK SPACE FILE GAP
,START AT 250
,THIS ROUTINE CAN SE USED TO ADJUST OR CHECK THE "SIGNAL MONO",

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

~SFGSB:

014512

001110

090007

1$,

020000

RESET
MOV
'BSFGSS,a'$LP~RR
HOV
DRIVE,'TACS
MOVB
'SSFGIGO,aTACS
WAITREADY
SIT
'LEADER,aTACS
SEQ
1$
HALT
SR
BSfGSB

,RESET THE WORLD
,LOOP ON ERROR ADDRESS
ISELECT DRIVE
;BACK SPACE A FILE GAP
,~AIT ON READY
,AT "CLEAR LEADER"?
,BR IF NO
,STOP AT BOT
;START OVER ON CONT.

;1**************************************************** ***********
,
SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES

014544
014546
914559
914556
1'114560
0\4562
014562
014566
914570
014574
914576
014602
014694
014611'1
014614
1'114616
014624
014626
014630
014630
814636
014640
014646
014650
014652
014652
014654
014656

JJ****************** •• ********************.**.*********.*********

00509~

000000
022761

000176

164362

0~1001

104405
157700
00ta06
105717
001402
0127110
005200
010037
005037
000000
022767
901001
104405
117737
00001'10
022767
001001
104405
000207
000000
1'100000

164352
164345
009376
1'114654
014656
000116

164314

164304

014656

000176

164272

SETBUF, CLR
HALT
CMP
SNE
GTSWR
20$,
BISB
BNE
1STB
SEQ
MOV
IS:
INC
2$,
MOV
CLR
HALT
CMP
SNE
GTSWR
21S,
MOVS
HALT
CMP
BNE
GTSWR
22$'
RTS
BLKLIM. 0
PATTRN, 0

IS.REG,SWR
20$
@SWR,R0
2$
~SWR.l

1$
1376, Re
R0
R0,.'BLKLIM
"PATTRN
'SWREG,SWR
21$
OSWR,.IPATTRN
.SWREG,SWR
228
PC

,OPERATOR PUTS BYTE COUNT IN SWR<7,e>
,USING S/W SWITCH REG.?
;NO- GET OUT
ILET HIM CHANGE IT
,CONTINUE
,PICKUP THE SYTE COUNT
,SR IF NON-ZERO
,CHECK IF GREATER THAN 317
,BR IF NO
,SET FOR MAX ALLOWED
,HAKE IT 377 OR 1
,SETUP THE BLOCK LIMIT
,OPERATOR PUTS PATTERN IN SWR<7,0>
,USING S/H SWITCH REG.?
,NO- GET OUT
,LET HIM CHANGE IT
,CONTINUE
,PICK UP THE PATTERN
ISET OPERATIONAL SWITCHES
,USING SIW SWITCH REG.?
,NO- GET OUT
ILET HIM CHANGE IT
,CONTINUE
,RETURN
,READ AND WRITE SLOCK SIZE
IPATTERN TO GO ON THE TAPE

2837

2838

SEQ 0071

;1***************************************************************

014332
014336
014342
014346
014350
014356
014362
014364

0\4432
014436
014442
014444
014452
014456
0\4460
014464

2801

PAGE 57

READ ~ BLOCK OF DATA AND A FILE GAP
,STAPf AT 240
,THIS ~OUTINE IS USED AFTER "WRITE A SLOC~ AND A FILE GAP" ROUTINE
,IT CAN SE USED TO ADJUST THE "SIGNAL MO~O", THE THRESHOLD POT"
;AND THE "TAPE BLANK MONO".

2770

2799

13.26

1:*****··********************************************************

2771
2772
2773
2774
2775
2776
2777
2178
2779

2183
2784
2785
2786
2787
2788
2789
2790
2791
2192
2793
2794
2795
1796
2791
2798

II-JUN-7&

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

SEQ 0012

TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
MACYII 27(732)
OZTABC.NEW
WRITE ROUTINE FOR THE MANUAL OPERATIONS
2839
2840
2841
2842
2843
2844
2845
2846
2847

2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892

13:26

PAGE 59

SEQ 0873

WRITE ROUTINE FOR THE MANUAL OPERATIONS

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

014660
~14664

014670
014672
014676
014700
014702
014704
014710
014712
~141i6

014720

013701
112714
104413
'132714
001010
005301
002403
113715
000767
052714
104412
000207

WRTBLK: MOV
"BLKLIM,RI
MOVB
'W~ITEIGO,tTACS
1$:
WAITXFER
BIT
'READY,~TACS
~NE
3$
DEC
RI
eLi
2$
MOYB
"PATT~N,aTAOB
BR
\$
2S:
BIS
ULBS,nACS
WAITREADY
3S:
RTS
PC

014654
000003
000040

014656
000020

,PICKUP THE BLOCK SIZE
:START A WRITE
lNAIT ON TRANSFER REQUEST
,DID READY SET?
lBR IF YES
lCOUNT THIS REQUEST
lBR IF TIME FOR lLBS
lPUT DATA ON TAPE
,LOOP
,WRITE CRC AND SHUT DOWN
,WAIT ON THE READY FLAG

"..*.*._••• * •••• _._ •••• _•••- ••••• _. __ •••••••••• _•• _••
014654
014656
000005

01500~

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

015002
015006
015010
015012
015016
015022
015024
015030
015032
015034
015"40
015044

\05777
100416
005003
013701
122127
001402
012703
1057 \I
001002
012701
010137
000207

164132

014722
014726
014732
014736
014740
014744
014746
014750
014752
014754
014756
014760
014762
014764
014770
014772
014774
014776

READ ROUTINE FOR THE MANUAL OPE~ATIONS

RDBLK:

MOV
~'BLKLIH,R2
MOV
UPATTRN,R0
MOVB
'READIGD,tTACS
WAITXFEP
BIT
,READy,nACS
BNE
3S
DEC
R2
BLT
2$
HOV
'TAOS. AI
CMPB
R0,R\
BEQ
1$
ERROR
5
SR
4$
BIS
IILBS,@TACS
WAlTREADY
TST
nACS
BPL
4$
ERROR
I
RTS
PC

***********

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

IS:
000040

2$'

000020

3$:
4$:

J :.* **_.*.* ....... * ... *** ****. *** .......
~XTDRV' ~~~~INE :~W~HA~GE DRIVES

001230
000101
000400
IS:
001224
001230

25 :
3S1

SMI
CLR
MOV
CMPB
BEQ
MOV
TSTS
BNE
MOV
HOV
RTS

;PICKUP THE BLOCK SIZE
lUSE THIS DATA PATTERN TO COMPARE TO
lSTART A READ
:WAIT ON TRANsFER REQUEST
lIS READY SET?
lBR IF YES
lCOUNT THIS REQUEST
,BI< IF· TIME FOR ILBS
lREAO THE DATA BUFFER
,CHECK THE DATA
,BR If OK
,BAD DAU
,GET OUT
IREAD IL8S
I WAIT ON READY
;CHECK FOR ERROR
I BR IF NONE
lERROR OCCURRED
, RETURN

-it- * ••• ***. *****- - *** .. ** *.*. ***.

3$
DRIVE
~'URVPNT,RI

(RII+,"A
IS

'UNIT,DRIVE
(RII
2S
IORV~E~,RI

RI,~'DRVPNT

TAli BASIC LOGIC TEST (PART 21 MAINDEC-II-DZTAR-C
OZTABC .NEW
ROUTINE TO CHANGE DRIVES
2893
2894
2895
289b
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924

II-JUN.76

MACYlI 27(732)

lIS SW07 ON A (I)?
lBR IF Y~S

,SET DRIVE TO "A"
lGET DRIVE POINTER
JIS IT DRIVE "A"?
,BR IF YES
,SET DRIVE TO 'B'
lLAST DRIVE BE~N SELECTED
lBR IF NO
,RESET DRIVE POINTER
,SAVE DRIVE POINTER FOR NEXT TIME
I GO BACK

II·JUN-76

13:26

PAGE 60

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

ROUTINE TO EXAMINE DRIVE(S) fOR AVAILABLITY

.SBTTL

,CALL:

015046
015052
015054
015060
015062
015066
015072
015074
015a76

015100
015104
015106
015112
015114
015122
015124
015132
1"5134
015136
015142
015144
015150

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

001206

EXA",

000101
000400
000040

1$;

001000

000201

164016

000203

164006

000002

HOV
CLR
CMPB
BEQ
SIS
BIT
BEQ
TST
BPL
BIT
BNE

BIT
BEQ

010000

020000

MOV
.DRYKEY,R0
PC,UEXAM
JSR
NORMAL RETURN
ERROR RETURN

2$:
lS:

4$ :

CMPB
BEQ
CMPB
BEQ
BR
BIT
BNE
ADD
RTS

@ITACSL,RI
(RIl
,"A, (P0)

1$
'UNITdRI)
.READY, (RIl

lRI IS DESTROYED

lPICKUP THE 'CONTROL & STATUS' REG. ADR.
:DRIVE:"A", FUNCTION:"wFG"
lEXAMINE DRIVE 'A'?
I BR It" YES
,SELECT DRIVE "B"
I WAIT ON READY

(RIl
4S

,OFFLINE, (RI)
3$
'WRTLOCK, (Rll
2$
'BIT07IBIT00,@SNA
4S
,BIT07IBIT01IBIT00,'SWR
4S

3S
'LEADER, (RII
4$

'2,(SPI
PC

I ANY ERROR?
lBR IF NO
lERROR DUE TO 'OFF LINE"?
lBR IF YES
,ERROR OUE TO 'WRITE LOCK"?
,8R IF NO
,"READONLY' SELECTED? (RIlIPAS)
lBR IF YES
I (RD2PAS)?
lBR IF ns
I TAKE THE ERROF EXIT
lERROR DUE TO "CLEAR LEADER·?
lBR IF YES
lTAKE ERROR RETURN
, RETURN

SEQ 0074

TAil BASIC LOGIC T~ST (PART 2)
DZTABC.N~W
TYPE ROUTINE

.SBTTL

2925
2926
2927
2928
2929
2930
2931
2932
29H

298~

13.26

SEQ 0075

PAGE 61

TYPE ROUTINE

I*ROUTIN~

TYP~

B~T~.

I"THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE fEED.
I"NOTE1.
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
I"NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
I"NOTE3:
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.
I"
;·CALL:

1"1) USING A TRAP INSTRUCTION
;...

TYPE

, MESAOR

IIMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

1115 THERE A TERMINAL?
IIBR IF YES
IIHALT HERE IF NO TERMINAL
"LEAVE
"SAVE R0
IIGET ADDRESS OF ASCIZ STRING
I,PUSH CHARACTER TO BE TYP~D ONTO STACK
IIBR IF IT ISN'T THE TERMINATOR
IIIF TERMINATOR POP IT OFF THE STACK
"RESTORE R0
IIADJUST RETURN pC
IIRETURN
IIBRANCH IF <Hr>

~*OR

I"
;*
1*
015152
015156
015160
015162
015164
015166
01~172

015174
015176
015200
015202
015206
015210
015214
015216
015222
015224
015226
015230
015232
015236
015240
015244
"1~250

015252
015256
015262
015264
015270
015274

105767
100002
000000
000407
010046
017600
112046

164001

'TYPE:

IS:

000002
26:

0010~5

005716

012600
062716
000002
122716
001430
122716
00U06
005726
104401
001177
105067
000755
004767
126726
001350
016146
135366
002770
004767
1d5367
000770

000002

60S.
3$1

000011

4S:

000200

000130
5$:
6S:

000056
163706
163676

7$,

"0"0"1
000032
000072

TYPE
MESADFl

TSTB
BPL
HALT
BR
MOV
MOV
MOVB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
8R
JSR
CMPB

3'
R0.-(SP)
U(SPI,R0
(R0l+.-(5P)
4S

(SP).
(SP) •• R0
'2.(SP)

'HT, (SP)
8S
'CRLF.(SP)
5$
(SP).
$CHARCNT
2$
PC. STYPEC
SFILLC.(SP).

BN~

MOV

SNULL.-(SPI

DECB
BLT
JSR

I (SP)
6$

D~CB

PC.STYP~C

SCHARCNT
7S

IIBRANCH IF NOT <CRLF>
IIPOP <CR><LF> EQUIV
IITYPE A CR AND LF
IICLEAR CHARACTER COUNT
"GET NEXT CHARACTER
IIGO TYPE THIS CHARACTER
,:IS IT TIME FOR FILLER CHARS.?
IIIF NO GO GET NEXT CHAR.
IIGET • OF FILLER CHARS. NEEDED
llANO THE NULL CHAR.
IIDOES A NULL NEED TO BE TYPED?
IIBR IF NO--GO POP THE NULL OFF OF STACK
IIGO TYPE A NULL
1100 NOT COUNT AS A COUNT
IILOOP

:HORIZONTAL TAB PROCESSOR
015276
015302
015306
015314
015316

112716
004767
132767
001372
005726

0~0040

8S:

000014

9$.

0000~7

TAil BASIC LOGIC TEST (PART 2)
DZTABC.NEW
TYPE ROUTINE
2981
2982
2983
2984
2985
2986
29R7
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
H011
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
302]
31124
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036

U-JUN-76

fJ····*·**··········*·····*_·········*··*····*·*···**-******
TO
ASCI! MESSAGE. MESSAGE MUST TERMINATE WITH ••A***
0

2934

2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2919

MACHI 27(732)

MAIND~C-11-DZTAB-C

015320
015322
015326
~15130

015336
015344
015346
015352
015354
015362
015364
015366
015370

000724
105777
100375
116677
122766
001003
105067
000406
122766
001402
105227
000000
000207

000052

0~~002

163614
000002

000~14

000012

,- ,(SP)

PC.STYPEC
t7. $CHARCNT
9$
(SPI.

MAINDEC-II-DZTAS-C

163622
000015

MOVB
JSR
BITB
8NE
TST

000002

R~AD

1 ;TAB STOP

llPOP SPACE OFf STACK

MACYlI 27(732)

BR
STYPEC. TSTB
BPL
MOVS
CMPS
SNE
CLRS
BR
CMPB
IS:
BEQ
INca
SCHARCNT,.WORD
,TYPEX, RTS
.SBTTL

I:REPLACE TAB WITH SPACE
II TYPE A SPACE
IIBRANCH IF NOT AT

2S
UTPS
STYPEC
2(SPI.tsTPB
ICR.2(SP)
1$

SCHARCNT
STlP~X

ILF.2(SPI
STYPEX
(PC).
0
PC

Il-JUN-76

13.26

PAGE 62

IIGET NEXT CHARACTER
IIWAIT UNTIL PRINTER IS READY
IILOAD CHAR TO BE TYPED INTO DATA REG,
IllS CHA~ACTER A CARRIAGE RETURN?
II BRANCH IF NO
:IYES--CLEAR CHARACTER COUNT
/I EXIT
IllS CHARACTER A LINE FEED?
"BRANCH U· YES
"COUNT THE CHARACTER
IICHARACTER COUNT STORAGE

AN OCTAL NUMBER FROM THE TTY

J;** •••• *** ••• *.****** •• ********.*.***** ••• *** •• ******.****.*****
I*THIS ROUTINE WILL READ AN OCTAL (ASCIII NUMBER FROM THE TTY AND
I'CHANG~ IT TO BINARY.
I·CUL,
RDOCT
"READ AN OCTAL NUMBER
I"
RETURN HERE
IILOW ORDER BITS ARE ON TOP OF THE STACK
I"
I,HIGH ORD~R BITS ARE IN SHIOCT
I"

015372
1115374
015402
1115404
015406
015410
015412
015414
015416
111542('1
015422
015424
015426
015430
015432
015434
015436
015440
015444
015446
015450
015452
015456
015462
015464
015466
015470
015472

011646
016666
010046
010146
010246
104410
012600
005001
005002
112046
001412
006301
006102
006301
006102
006]01
006102
042716
062601
000764
005726
010166
010267
012602
012601
012600
000002
000000

000004

177770

000012
000010

000002

SRDOCT: MOV
(SPI. -(SPI
MOV
4(SP).2(SP)
MOV
R0.-(SP)
MOV
Rl.-(SP)
MOV
R2.-(SPI
Is,
ROLIN
MOV
(SP) •• R0
CLR
Rl
CLR
R2.
2$ ,
MOVB
(R0)"-(SP)
BEQ
3$
ASL
Rl
ROL
R2
ASL
RI
ROL
R2
ASL
RI
ROL
R2
BIC
I"C7.eSP)
(SPI •• RI
ADD
BR
2.
TST
(SPI+
3S:
MOV
RloI2(SPI
MOV
R2"HIOCT
MOV
(SPI •• R2
HOV
(SP) •• Rl
HOV
(SPI •• R0
RTI
$HIOCT, ,WORD
0
,BBTTL TTY INPUT ROUTINE

IIPROVIDE SPACE FOR THE
I.INPUT NUMBER
IIPUSH R0 ON STACK
"PUSH Rl ON STACK
"PUSH R2 ON STACK
IIREAD AN ASCIZ LINE
IIGET ADDRESS OF 1ST CHARACTER
IICLEAR DATA WORD
IIPICKUP THIS CHARACTER
IIIF ZERO GET OUT
;:*2
IIH
U*8

IISTRIP THE ASCII JUNK
IIADD IN THIS DIGIT
;:LOOP

IICLEAN TERMINATOR FROM STACK
"SAVE THE RESULT
IIPOP STACK INTO R2
IIPOP STACK INTO RI
IIPDP STACK INTO R0
I I RETURN
IIHIGH ORDER BITS GO HERE

J,.**--*.-_.-.***
..•..* •••••*-_ .... -*.**.*_ •••*._._---***********
,ENABL LSB

SEQ 0076

MACYl1 27(732)

TAli BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
DZTABC,NEW
rTY INPUT ROUTINE
3037
3038
3039
301j0
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
]067
3068
]069
3070
3071
]072
307)
3074
3075
]076
]077
3078
3079
]080
]081
]082
]08]
3A84
]085
3086
]087
3088
3089
3090
3091
3092

3133

3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148

13:26

PA~E

SEQ 0017

;,*SOFTWARE
: ••• *****************************
••• ***********************t..****
SWITCH REGISTER CHANGE ROUTINE.
000176

015536

022767
001074
105777
100071
117146
042716
022726
001062
126727
001456

015540
015544
11\5550
015554
015556
1115562
015564
1115566
015572

104401
104401
016746
104402
104401
005046
005046
105777
1011375

016221
016226
162422

015574
015600

117146
042716

163346
117600

015604
015610
015612
015616
015622

1121627
0"1005
104401
1162706
000751

000n25
016214
000006

0i5624

021627
1101022
005766
001401
016677
062706
1114401
126727
1101001
012717
000002
004767
021627
002420
021627
1101015
042726

000015

1115474
015502
015504
015510
1115512
1115516
1115522
1115526
111553~

01563~

015632
015636
015640
015646
015652
015656
015664
015666
015674
015676
015702
015706
015710
015714
015716

163436

163434
163430
177600
000007
163400

000001

I*ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL
I*SERVICE THE TEST FOR CHANGE IN SOFTwARE SWITCH REGISTER TRIP CALL
I*WHEN OPERATING IN TTY FLAG MODE,
SCKSWR: CMP
ISWREG.SWR
IllS THE SOfT-SWR SELECTED?
BNE
ISS
"BRANCH If NO
TSTB
~STKS
I,CHAR THERE?
8PL
15S
;;IF NO, DON'T WAIT AROUND
MOVB
@STKB.-(SP)
"SAVE THE CHAN
SIC
'-CI77.(SP)
"STRIP-OFF THE ASCII
CMP
17.(SP)+
IllS IT A CONTROL G?
BNE
ISS
IINO. RETURN TO USER
CMPB
SAUT08.#1
IIARE WE RUNNING IN AUTO-MODl?
BEQ
ISS
IIBRANCH If YES
TYPE
SGTSWN: TYPE
MOV
TYPOC
TYPE
19S:
CLR
CLR
7S:
TSTB
BPL

016237
163352

000100

163250

,$MNEW

J: PROMPT FOR NEW SWR

-(SP)
-(SP)
iSTKS

II THE

iSTKB.-(SP)
'-CI77.!SP)

IIPICK UP CHAR
IIMAKE IT 7-BIT ASCII

CMP
BNE

(SP)"25
10S
.SCNTLU

; :BRANCH If' NOT

TYPE

20S I

ADD
BN

19$

10S:

CMP
BNE
TST
BEQ
MOV
ADD
TYPE
CMPB
BNE
MOV
RTI
JSN
CMP
BLT
CMP
BGT
SIC

163272
liS:

14S:

ISS:
16S:

117420
000060

015722
1115726
015730
015732
015734
015736
015742
1115746
1115750
015754

O05766
IIdl401
1106316
006316
006316
O05266
056616
000707
1114401
000720

IIECHO THE CONTNOL-G (-G)
IITYPE CURRENT CONTENTS
IISAVE SoREG FOR TYPEOUT
IIGO TYPE--OCTAL ASCII(ALL DIGITS)

MOV!!
BIC

000004

000001

,SMSWR

I tCLEAR COUNTER
NEW SWR
: ICHAR THERE?
I,IF NOT TRY.AGAIN

9S:

000002
11000116
001177
163253

.SCNTLG
SWPEG.-(SP)

000067
000060

000002

000002
177776

17S:

001176

I8S:
,DSABL

TST
BEQ
ASL
ASL
ASL
INC
BIS
8R
TYPE
BR
LSB

IllS IT A CONTROL-U?
IIYES. ECHO CONTROL-U (-U)
IIIGNORE PREVIOUS INPUT
IILF.T'S TRY IT AGAIN

.6, SP

(SP)dI5
16S
HSP)

n BRANCH IF NO

11$

II BRANCH

,:IS IT A <eR>?

IIYES. IS IT THE FIRST CHAR?
IF YES

2(SP)'@SWN
.b,SP

::SAVE NEW SWR

;,CLJ:;AR UP STACK

,SCRLF
,INTAG,.1

; :ECHO <CR> ANO <LF>

15S
1100.@STKS

; ;BRANCH IF NOT

PC. STYPEC
(SP)"60
18S
(SP).'67
18S

/I ECHO

.60, (SP) +

lIRE-ENABLE TTY KBD INTERRUPTS?
I:RE-ENABLE TTy KBD INTERRUPTS
, :RETURN
CHAR

; :CHAR < 01

;;BRANCH IF YES
nCHAR

2(SP)
17S
(SP)
(SP)
(SP)
HSP)
-2(SP),(SP)
7S
,SQUES

20S

;;BRANCH IF YES
::STRIP-OFF ASCII

MACHI 27(732)

TAli BASIC LOGIC TEST (PART 2) MAINDEC-II-DZTAB-C
DZTABC,NEW
TTY INPUT ROUTINE
1091
3094
3095
3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
31119
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132

I\-JUN-76

II-JUN-76

13:26

P~G~

SEQ 0078

:IIS THIS THE fIRST CHAR
118RANCH If YES
J :NO, SHIFT PRESENT
CHAR OVER TO MAKE
n
ROOM fOR NEW ONE,
IIKEEP COUNT Of CHAR
IISET IN NEW CHAR
"GET THE NEXT ONE
J ,TYPE 1CCR><LF>
"SIMULATE CONTROL-U

;:***************************************************************
I'THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
I'CALL:
"INPUT A SINGLE CHARACTER fROM THE TTY
RDCHR
IICHARACTER IS O~ THE STACK
RETURN HERE
I'
I:WITH PARITY BIT STRIPPED OfF
:.

015756
O15760
015766
1115772
015774
1116002
016010
1116016
016020
016024
1116026
016032
016036
016042
016044
016046
016054
1116056
O16064
016066
016074

0161176
0161110
O16104
1116110
016112
1116114
1116116

011646
O16666
la5777
100375
117766
042766
026627
11111011
1115771
100]75
117746
042716
0226H
001366
000750
026627
002407
O26627
0030113
042766
0011002

010346
812703
022703
1014115
1044117
112613
122713

1100004
163152

000002

163146
117600
000004

0011004
01100114
000P2l

163120
163114
177600
0OO021
0000114

000140

e011004

11110175

000040

01111004

016204
1116214

0011117

SRDCHRI MOV
MOV
TSTB
1$:
BPL
MOVB
BIC
CMP
BNE
TSTB
2$1
8PL
MOVB
BIC
CMP
BNE
BR
CMP
3SI
BLT
CMP
8GT
BIC
RTI
4$:

(SP). -(SP)
HSP).HSP)
iSTKS
IS

iSTKS.4(SP)
'-C<I77>.4(SP)
HSP) .123
3S
"TKS
28
tsTKB.-(SP)
.-CI77'(SP)
(SP)+"21
2'
IS
4(SP).U40
48
4(SP)' #175

"PUSH DOWN THE PC
nSAVE THE FS
"WAIT FOR
/I A CHARACTER

,:GET RID OF JUNK IF ANY
IllS IT A CONTROL-S?
::BRANCH IF NO
"WAIT fOR A CHARACTER
I,LOOP UNTIL ITS THERE
, I GET CHARACTER
IIMAKE IT 7-BIT ASCII
1115 IT A CONTROL-Q?
::IF NOT DISCARD IT
: :YES, RESUME
1:15 IT UPPER CASE?
II BRANCH I f YES
"IS IT A SPECIAL CHAR?
:,BRANCH IF YES
4$
,:MAKE IT UPPER CASE
140.4(SP)
:IGO BACK TO USER
~'***.***.**.***************.**.**************** ••• *** ***********
I*THIS ROUTINE WILL INPUT A STNING FROM THE TTY
I*CALL:
IIINPUT A STRING fROM THE TTY
ROLIN
1*
::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
RETURN HERE
1*
nTERMINATOR WILL BE A BYTE .IF ALL "'S
,*

SRDLINI MOV
MOV
lSI
CMP
2S:
BLOS
RDCHN
MOVB
CMPB
10S:

RJ.-(SP)
UTTYIN.R3
UTTYIN+8 .. R3
4$

(SP)+. (R3)
U 77'(R3)

; : READ THE TTY

"SAVE R3
IIGET ADDRESS
IIBUFfER FULL?
;:8Ft IF YES
IIGO READ ONE CHARACTER FROM THE TTY
,:GET CHARACTER
n IS IT A RUBOUT

)

MACYII 27(732)

TAil BASIC LOGIC TEST (PAPT 2)
MAINDEC-II-DZTAB-C
DZTABC,NEW
TTY INPUT ROUTINE
3149
3150
1151
3152
3153
3154
3155
3156
3157
3158
3159
316~

3161
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179
3180
3181
3182
3183
3184
3185
3186
31 87
3188

016122
016124
016130
016132
016!36
016142
016146
016150
016154
01610"
"16162
016164
016172
01620"
016202
016203
016204
016214
016221
016226
016234
016237
016244

001003
104401
000763
111367
104401
122723
001356
105063
104401
012603
011646
01666b
012766

001176
000044
016202
000015

3S:

177777
001200
000004
016204

000002
000004
9$ ,

000
000

005015
006507
053523
000
047040
000040

3198
3199

3201!
3201
3202
3203
3N1

3209

3210
3211
3212
3213

3214
3215
3216
3217
32lA
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3234
3235
3236
3237
3238
3239
3240
3241

3242
3243
32H
3245
3246
3247
3248

PAGE 65

SEQ 0079

IF NOT

"TYPE A'?'
"ECHO THE CHARACTER
"CHECK FOR RETURN
l> LOOP IF NOT REtURN
"CLEAR RETURN (THE 15)
"TYPE A LINE FEED

, $LF'

(SP)+,R3
(SP). -(SP)
4(SP).2(SP)
HTTYlN,4(SP)

; :RESTO~E R3

;:TERMINATOP

"ADJUST THE STACK AND PUT ADDRESS OF THE
.,
FIRST ASCII CHARACTER ON IT
~: RETURN

,BYTE
,BYTE
,BLKB
,ASCIZ
,ASC I Z
,ASClZ

"STORAGE FOR ASCI! CHAR, TO TYPE

"RESERVE 8 BYTES FOR TTY INPUT
; ~CONTROL Itu"

STTYlN:
SCNTLU.
SCNTLG:
SMSWR'

053505

SMNEW:

"ASCIZ

,SB1fL

BINARY TO OCTAL (ASCII) AND TYPE

/'""U/<t5><12>

::CONTROL JIG"

rG/<15><12>

<15><12>/SWR

= I

NEW

:,.THI5
: ***********
* **** ************" ********* ******* .. * ****************
ROUTINE IS USED TO CHANGE A 16-~IT BINARY NUMBER TO A 6-DIGIT
,.OCTAL (ASCII) NUMBER AND TYPE IT.
"STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
ptCA.LL:
MOV
NUM.-(SP)
:;NUMBER TO BE TXPED
TYPOS
"CALL fOR TYPEOUT
I ,~=I TO 6 ,OR NUM~ER 0, DIGITS TO TYPE
,BYTE
: Ht:l OR 0
,BYTE
"I=TYPE wEADING ZEPOS

,.'*

J ;0=SUPPRESS LEADING ZEROS

",.STYPON----ENTER HERE TO TYPE OOT WITH THE SAME PARAMETERS AS THE LAST

J*STYPOS OR STYPOC
;*CALL:
MOV
TYPON

;; NUMBER TO BE TYPED

; ;CALL FOR TYPEOUT
"••
:*STYPOC-"1*CALL: .. ENTER HERE FOR T¥PEOUT Of A 16 BIT NUlrlBER

,.,.
01625"
016254
016262
016266
01b272
016274
016302
ftJl b 31:J

017646
116667
1126b7
062716
0~0 406
112767
112767
It 2767

000000
000001

00021 !

000207
000002
000001
000006
000005

000171
000165
000154

NUM, .. (SP)

HOV
TYPOC

016316
016320
016322
016324
016110
0103)2
"16336
016342
016346
016352
016354
016356
016360
016362
016361
016366
016310
016372
016376
016400
016404
016406
0164\0
016412
016414
0164N
016424
016430
016434
016440
016442
016444
016446
016450
016452
016454
016456
010464
016466
016470
016471
016472
016473
016414

010346
010446
010546
116704
.05404
062704
110467
116704
016605
005003
006105
000404
006\05
006105
006105
010503
006103
105367
100016
042703
001002
005704
001403
0~5 204
052703
052703
110367
104401
105367
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

TO BE TYPED

liPICKUP THE MODE

~(SP) ,-IS?)
ICSP) .S0FlLL

; ;LOAD ZERO FILL SWITCH

(SP)+,SOJ.lODE+l

;;NUMBER OF DIGITS TO TYPE

ADD
BR
STnoc: MOVB
MOVB

12. (SP)
STYPON
#1,S0FILL

;: ADJUST RETURN

$T¥PON:

!l5,SOCNT

ST¥POS: MOV
MOVB

Mova

000145
000006

000132
000125
000012
IS:
2S:

3S,
000076
177770

4S:
0000&0
0~004""

5$ ,

000040
016470
000032

15,

6$:
000002

; t NUMBER

; ;CALL FOR TYPEOUT

116,$OMODE+1

MOVB

TAli BASIC LOGIC TEST (PART 2)
MA INDEC-I t -DZI'B-C
eZtASC ~NEW
BINARY TO OCTAL (AsCII) AND TyPE
3205
3206
3207
3208

13:26

;;CLEAR THE BUFFER AND LOOP

000
000012
020122

0~0010

052536
136
005015
020075
040
036440

~:SKIP

3S
,$QUES
IS
(R3).9$
.9S
If 15, (R3)+
2S
-I(R3)

RTl

000002

3189

3190
3191
3192
3193
3194
3195
3196
3197

SNE
TYPE
BR
MOVB
TYPE
CMPB
BNE
CLRB
TYPE
MOV
HOV
MOV
MOV

4S:

II-JUN-76

000004

8$ :

SOCNT.
S0FILL:
SOMODE,

MACYII 27(732)

MOV
HOV
MOV

R3.-(SP)
R4.-(sP)
R5. -(SP)

MaVB

$OMODEtl,R4

NEG
ADO
MOVB
MOVB
HOV
CLR
ROL
BR
ROL
ROL
ROL
MOV
ROL
DECB
BPL
SIC
BNE
TST
SEQ
INC
BIS
BIS
MOVB
TYPE
DECB
BCT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI
,BYTE

R4
#6,R4
R4.S0MODE
S0flLL. R4
12(SP)'R5
R3
R5
3S

~BYTE

,BYTE
.BYTE
.WORD

R5
R5
PS, R3
R3
sOMODE
7S
#117770,Rl
4S
R4
5S
R4
# '0, F!3
.R3
F3,8S

,as

SOCNT
2S
6S
R4

2$
(SP)+,R5
(SP)+,R4
(SPh,R3
2!SP)'4(SP)
(SP)+. (SP)

ADDRESS

::SET THE ZERO fiLL SWITCH
"SET FOR SIX(6) DIGITS
; :SET THE ITERATION COUNT

II-JUN-76

13:26

PAGE 66

; :SAVE R3
; ;SAVE R4
;;SAVE k5

; ~GET THE: NUHBER Of DIGITS TO TYPE

;:SU8TRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
"GET THE ZERO FILL SWITCH
"PICKUP THE INPUT NUMBER
= :CLEAR THE OUTPUT WORD

; ;ROTATE MSB INTO "C'
; ;GO DO Msa

; ;fORM THIS DIGIT

.,GET LSB OF THIS DIGIT
"TYPE THIS DIGIT?

;;SR IF NO
"GET RID Of JUNK
"TEST FOR 0
::SUPPRESS THIS 0?
; :bR IF YES
; :DON'T SUPPRESS ANYMORE 0'5
:, MAKE THIS DIGIT ASCII
;:MAKE ASCII I, NOT ALREADY

:;SAVE FOR TYPING
:;GO TYPE THIS DIGIT
; ;COUNT BY 1

:1BR IF MORE TO DO
; 18R IF DONE

::INSURE LAST DIGIT ISN'T A BLANK
"GO DO THE LAST DIGIT
• ,RESTORE RS
I' RESTORE R4

:;RESTORE R3
:; SET THE STACK fOR RETURNING
: n:tETURN

:,STORAGE fOR ASCII DIGIT
"TERMINATOR FOR TYPE ROUTINE
.,OCTAL DIGIT COUNTER
I,ZERO ,ILL SWITCH
"NUMBEP OF DIGITS TO TYPE

SEQ .080

TAli SASIC LOGIC TEST (PART 2)
Dznse,NEW
TRAP DECODER

.5BTTL

3249
3250
3251
3252

3256

3260

3261
3262
3263
3264
3265

016476
016500
016504
016506
01651O
016512
016516

010046
016&00
005740
II 100O

016520
016522
016530

011646

006300
elba00

5THP'
000002

016532

000200

3270

PAGE 67

SEQ 0081

TRAP DECODER

MOV
MOV
TST
MOVS
ASL
NOV
RTS

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

"S~VE B0

B0,-(SP)
2(SPl.R0

;;GET TRAP ADDRESS
"B~CKUP BY 2
;;OE1 RIGHT BYTE Of TRAP

-(R0)
(R0), R0

R0
STRPAD(B0),R0

IIPOSITION FOR INOEXING

"GO TO ROUTINE

:: THIS IS USE TO HANDLE THE

3266
3267
3268
3269

13,26

I*THI5 ROUTINE wILL PICKUP THE LOWER BYTE OF THE "TRAP' INSTRUCTION
I_AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
I'OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OSTAINED IT WILL
J*GO TO THAT ROUTINE ..

3254
3255

3259

II-JUN-76

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

3253

3257
3258

MACYII 27(732)

MAINDEC-II-DZTAB-C

01&666

000004

HOV
MOV
RTl

• SBTTL

TRAP TABLE

000002

00~002

3271

3272
3273

"GETPRI" MACRO

(SPl,-(SP)
4(SP)'2(SP)

S TRAP2:

;,INDEX TO TABLE

"MOVE THE PC DOWN
,IMOVE THE PSw DOWN

::RESTORE tHE PSW

;*THIS TABLE CONTAINS THE STARTING ADDRESSES Of THE ROUTINES CALLED
:*61 THE "TRAP" INSTRUCTION.

3274
3275
3276

ROUTINE

3277
3278
3279

3280
3281
3282
3283

328B
3289
3290
)291

3292

TRAP+! (104401)
TRAP.2(104402)
TRAP.3(04403)
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMSER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALLl

IICALL=GTSWR

TRANS (104405)

GET sOfT-SWR SETTING

016H~

016544

015541

SGTSWR

016546
016550
016552
010554
016556
016560

015474
015756

SCKSWR
:;CALL=CKSWR
TRAP+6(04406)
TEST fOR CHANGE IN sOfT-S"R
SRDCHR
: ,CALL=RDCHR
TRAP+7(104407)
TTY TYPEIN CHARACTER ROUTINE
SRDLIN
IICALL=RDLIN
TRAP+10(04410) TTY THEIN STRING ROUTINE
SRDOCT
I,CALL=RDOCT
TRAP.II (104411) HAD AN OCTAL NUMBEH FROM TTY
WAIT.ON.READY
"CALL=WAITPEADY
TRAP+12(104412) WAIT ON THE READY SIr TO
WAIT.FOR.XHR
nCALL=WAITXF~R TRAP.13C104413J WAIT ON HER REQ.

3286
3287

; :CALL=TYPE
: ;CALL=TYPOC
, ;CALL=TYPOS
: ~CALL=TYPON

016542

a1654~

016520
015152
016274
016250

3284
3285

S TRAP2

.WORD
sTYPE
STYPOC
STYPOS
STYPON

016532
016534
ot 65 36

$TFlPAD:

016076
015372

013046
011152

MACYlI 27(732)

rAIl BASIC LOGIC TEST (PART 2)
MAINDEC-\l-DZTAB-C
DZTABC. NEW
POWER DOWN AND UP POUTINES
.sBTH

3293

3294
3296
3298
3299

H0"
ll01
3302
3303

3304
3305

13,26

PAGE 68

POWER DOWN AND UP ROUTINES

: 1 **.j:j.*** .... -lI-4*4***********I;i-******************* iH~*** *it ***** *********
;POWER DOWN ~OUTINE

3295
3297

!I-JUN-7.

016562
016570

016576
016600
016602
016604
016606
016610

016612

3306

016616

3307
3308
3309

016622

016630
016632

012737
0127 J7
010046
010116

016726

~00024

000340

000026

SPWRDN, MOV

HOV

010246
010346
010446
0~0546

017746
010667
012737

162322
000110

016634

R0,-(SP)
RI,-eSp)
R2,-(SP)
R3,-(SP)
R4,-(SP)
R5, .... (SP)
@SWR,-(SP)

~ ;PUSH

MOV

SP,$SAVR6

;;SAVE SP

HOV

000024

#SILLUP,@#PWRVEC I,SET fOR FAST UP
#34~t@#PWRVEC+2 : :PRIO:7
; ;PUSH R0 ON STACK
:;PUSH Rt ON STACK
;:PUSH R2 ON STACK
:;PUSH R3 ON STACK
::PUSH R4 ON STACK

MOV
HOV
HOV
HOV
MOV
MOV
MOV

;1PUSH RS ON STACK
@.SWR ON STACK

#SPWRUP,@#PWRVEC IISET UP VECTOR

HALT

000000
000776

.. "'2

;:HANG UP

3310

3311

: J *****¥*

3312

016726
000064
000060
000054

3113

016634

3314
3)15

016642
016646

3316

016652

3317
3318

016656

3319

016664
01666&
016670
016672

012603
012602

3325

016674
016676
016700

012601
012&00
012737

016562

3326

016706

012737

000340

3327
3328

016714

104401
016734

3120
3321
3322
3323

3324

3329
3330
3331
3332

3333
3334
3335
3336

3337

016660

016716
016720
016722
016724

012737
016706
005067
005267
001375
012677

162254

012605
012604

000024
000026

012716
002206
000000

016734

005015

016742

000122

:ISET FOR FAST DOWN
I GET SP
,WAIT LOOP fOR THE TTl
, WAIT fOR THE INC
,OF
WORD
,POP STACK INTO @SWR
IPOP STACK INTO "5
I Pop STACK INTO R4
IPOP STACK INTO "3
IPOP STACK INTO R2
,POP STACK INTO Rl
IPOP STACK INTO R0
I,SET UP THE POWER DOWN VECTOR

,PRIon
REPORT THE POWER FAILURE
:POWER FAIL MESSAGE POINTER

JRESTART AT PWRST
,RESTART ADDRESS

RT!

000002

016726
016730
016732

********** **************** ************** iE-*** ************

I POWER UP ROUTINE
SFWRUP: MOV
UILLUP,@'PWRHC
HOV
SSAVR6,SP
SSAVR6
eLM
1$,
I MC
SSAVR6
BNE
1$
MOV
(SP) .. @SWR
MOV
(SP)., R5
HOV
(SPl .. R4
(SP)+,R3
MOV
{SP)+,R2
HOV
HOV
(SP)+,RI
(SPl+,R0
MOV
HOV
UPWRDN,@#PWRVEC
MOV
.340,@'PWRVEC+2
TYPE
SPOWER
SPWRMG, • WORD
MOV
(PC) •• (SP)
S PWRAO: • WORD
PWRST
sILLUP, HALT

lTHE POWER UP SEQUENCE WAS STARTED
I BEfORE TH~ POWER DOWN WAS COMPLETE
I PUT THE SP HERE

000716
000000

047520

042527

SSAVR6,
SPOWER,

0
.~SCIZ

.EVEN

<15><12>1'1 POWER~

SEQ 0082

MACYII 27(732)

TAli BASIC LOGIC TEST (PART 2) MAlNoEC-II-oZTAB-C
DZTABC,NEW
POWER DOWN AND UP ROUTINES
3338
3339
3340
3341
3342
3343
3344
3345
3346
3341
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
33&2
3363
3364
3365
336&
3367
3368
3369
3370
3311
3112
3373
3374
3315
3376
3311
3378
3379
3380
3381
3382
3383
3384
3385
3386
3381
3388
3389
3390
3191
3392
3393

016744
916152
016760
016766
016110
016116
011000

017006
017012
017020
011026
017021
011034
011040
017046
011053
011060
011061
017066
017074
011102
011105
011112
01712~

0171 26
017133
01714"
017146
011154
017162
011\70
011114
011202
017210
017216
017217
1117224
011232
017234
017242
011250
017256
017264
011272
III 1213
011300
017306
011314
017322
011330
017336
017344
017352
017363
017366
017314

842200
851450
885015
000077
042526
000077
051120
054524
040524
052040
000
040
051111
050040
052111
015
000
III
052123
050a40
046505
042
021131
042514
051440
042
043123
050505
020042
042105
042523
044124
041117
043501
000
104
05\120
000115
0471 \I
050125
041111
041520
020040
000
120
020040
020123
041501
05\1114
041520
020040
020d40
042520
041522
041520
020040

044522
031451
040524

042526
00"'040
051503

MSGORV. .ASCn

<CRLF>"ORIVE(S)? •

MSGASK: .ASCn

<15><12>/TAC5?!

052103

051111

MSGVEC. ,ucn

IVECTOR?!

041511
000017
051503

044522

MSGPFI. ,ASCn

IPRIORITY?!

~42101

000075
036502

MTACS:
MTAOB:

/TACS=I
I TAOB=I

042526

,ASCIZ
,ASCn

052103

MTAVEC. ,ASCn

VECTOR=I

044522
036531
047412

051117
000
037513

MTAPR!. ,ASCIZ

PPIORITY=I

MSGOK.

.ASCn

<15>cI2>IOK?I

051505
052101
047522
000
042522
043040
020104
052105
051124
051105
042525
040506

000200
051525
046102

MYES:
EMI.

,ASCn
.ASCn

IYES/CCRLF>
ISTATUS PROBLEM I

EH2.

.Ascn

I"REAOY" FAILED TO SETI

EM3:

.ASCIZ

I"TRANSFER REQUEST" FAILED TO SETI

05204~

042101
044501
047524
000
041101
051040
052123
046111
020117

000124
020105
020101
051440

051127
046106
052105

EM4:

,ASCIZ

/THE WRONG FLAG SET!

052101
041117

020101
042514

EMS:

.Ascn

10ATA PROBLEM I

042524
020124
042514
020040
040524

051122
051120
000115
020040
051503

EM6:

.ASCIZ

IINTERRUPT PROBLEMI

OHI:

.AselZ

IPC

TACSI

020103
052040
020040
020124
051505
020040
040524
020040
052103
023526
020040
040524

020040
041501
053440
042101
000123
020040
051503
054105
020040
000104
020040
051503

OH2.

,Ascn

IPC

TACS

WAlT AODRESSI

OH5.

.ASCIZ

IPC

TACS

EXPECT

OH6.

.Ascn

IPC

TACS

BR LEVELl

020040
053105

046105

017420
017426
011434
011436
011144
017450
017456
01746"

001162
00\162

000000
001202

001162
000000
001162
001206

011466

001116

000000

017412
017500
011506
017514

040524
044501
041524
041520
116
0531 \I
044501
000105
041520
020040
000
120
000001

030461
042514
051040
042116
020117
020105
040514
020040
040524

011~21

017526
017534
017542
017544
011552
011560
011561

PAGE 69

SEQ 0083

MACYlI 27(132)

13.26

PAGE 70

SEQ 0084

000103

RCV'OI

Il-JUN-16

0~1I02

020040
046340
000
011420
0all16
001116
000000
001116
00112.
0"1116
000000
0011\ •

017402
011410
017416

13.26

000~75

TAil BASIC LOGIC TEST (PART 2) MAINOEC-ll-0ZTAB-C
DZTABC ,~EW
POIIER OOWN AND UP ROUTINES
1394
3395
3396
3391
3398
3399
3400
3401
3402
3401
3404
3405
3406
3407
3408
3109
3410
3411
3412
3413
3414
3415
34\6
3417
3418
3419
3420
3421

II-JUN-76

,EVEN
OT\:

012:

.WORD
.WORD

$ERRPC,SREG0,0
$ERRPC,SREG0,SAVPC,0

001124

DT5.

.WORD

SERRPC, SREG0, SGOoAr, SBDDA!, 0

001124

OT6:

.WORD

SERRPC,SREG0,SGDDAT,0

000000

DT20\1

.WORD

$ERRPC,TACSL,0

OT202.

.WO"D

SERRPC,0

043040
020104
051505
000
051104
053101
046102

EM20J:

.ASCIZ

'TAil FULED TO RESPOND'

EM202.

.ASCI!

'NO DRIVE AVAILABLE"

020040
051503

DH201'

,Ascn

IPC

DH202.

.ASCI!

IPCI

.END

TACSI

TAil BASIC LOGIC TEST (PART 2) MAINDEC-II-OZTAS-C
OZTABC,NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
ASKAOR "13364
ASKORV 1113254
ASK KEY 001232
BEGINX 001740
BEGINI 0"1336
BEGIN2 OO137O
BEGIN3 001316
BEGIN4 001404
BGNCMN "0141O
BIT0
000001
BIT00
000001
BIT01
"00002
BIT02
011"004
BIT03
"00010
BIT04
OO0020
BIT05
1100040
BIT06
0001110
BIT01
000200
BIT08
000400
BIT09 2 "0100"
BITI
"0"002
BITIIl : 1'102000
004000
BIT II
010000
BITI2
BIT13
02000"
BITI4 : 04000"
BITt5
100000
BIT2
000"04
000011'1
BI13
BIT4
000020
BITS
000040
BIT6
000100
000200
BIT1
BIT8
000400
BIT9
001000
BLKLIM 014654
BPTVEC= 000014
BSBG
000010
000006
BSfG
BSFGSB IH4512
CHKAOR 001762
CHKORV 002046
CKSWR = 104406
CR
000015
CRCERR= 040000
CRC ,WO "13714
000200
CRLF
CURORV 001234
DOISP
17757~
OHI
011256
OH2
017273
OH201
017544
017561
OH202
OH5
"1733~
OH6
017366

563
560
3961
5571
231
232
233
234
479
1661
156.
ISS.
1541
1531
152.
1511
1501
149.

I4U
1411

165.
1461
145.
144,
1431
1421
1411
1641
1631
162'
16U
160,
1591
158.
1511
2820*
173.
186.
2024
185.
241
559
620.
2283
8\1
1941
2"2h
821
3971
88.
4\8
424
456
461
442
448

2512.
24801
651*
593
476.
4831
482
4811
481

2503
681
595

&44

MACYII 27(732)

001142
000174
0\3654
001224

ORVPNT 0012311
OSWR
177570
OTI
017420
OT2
017426
OT201
017460
OT202
017466
OT5
017436
OT6
017450
EMTVEC= 000030
EMI
017066
EM2
011105
EH201
1117472
EM202
1117521
EM3
0\1133
EM4
til 7 174
EM5
011217
EM6
017234
100000
ERROR
ERRVEC= 000004
EXAM
1115046
EXIT
013354
FGAP
004000
FUNCTI: 000016
FUNC0
00"002
FUNCI
000004
FUNC2
000010
GNS
U

...........

00"001

GTSWR = 104405
HERE
001740
HGHTIM 013124
H1
000011
!LBS
000020

INT.ENa: 000100
IOTVEC= 000020
ITEMS2 001316
LEAOER= 11200011
LF

= 1100012

3651
228.
2029
3941
2890
395.
871
419
425
457
462
443
449
116#
417
423
455
460
429
435
441
447
193.
169.
621
2499
1971
209.
2071
206.
205.
227
3292
2081
784
1441
1524
1593
1710
1773
1891
2086
2668
539
530
714
79.
204.
1812
2850
202.
114#
453.
195.
2754
80.

13,26

485.
484

486

4881

166
165
164
163
162
161
160
159
158
151

208
201
206
205
204
203
202
201
200
199

2588
2597

2916
2918

2916
2298
2306

2310

198
191
196
195
194
193

2354
2313
2361
2284
662

2591

28341

2841

2858

868
2163
864
27941
562

1505
2186
1447
2795
58\1

1589

1&20

16A0

1778

1783

1814

1562
2802

1676

1731

1739

1928

2797

234&
2985
1873
2038
545
674365
3379.
430
34171
342""
33871
3392#

2369
2995
191&
2046
2956
675
516

1992
2585
2995

2052
26063338

261H
3355

436

33821

2918

MACHI 27(732)

23270

2353-

477.

621!

633

654

&79

654.
515

665

680*

2884

2891'

514'

634364
33981
431
3405.
340"
340\1
34031
499'
3356.
3359.
3409.

437

33Q9.

209
209
209
544

2918

1859

1902

1932

1967

3287#

516'
524
2578.
395

3413.
33631
3369.
33731
33761
1538
5\3
625
2504#
1449

SEQ 0085

PAGE 72

646

TAil BASIC LOGIC TEST (PART 2) MAINOEC-II-OZTAB-C
OZTABC,NEW
CROSS REFERENCE TABLE e e USER SYMBOLS
OISPLA
OISPRE
OO,CRC
DRVKEY

II-JUN-76

I\-JUN-76

13.26

PAGE 73

2075

2128

2481_

SEQ 0086

2486

2500

2504

500-

1567
514'
630

1736
52529031

1741
581'

1780
587'

1873
2289

2052
229".

2292'

2295'

1483

1538

1564

1598

1629

1660

1728

1733

1775

1780

672

3280

3281

3282

3283

3285

3287

3288

3289

3290

3291

303
823
1447
1526
1610
1712
1778
1893
2136
2691
687
532
2421*
2954
780
1828
2871
922
497*

306
825
1467
1532
1612
1714
1183
1902
2\38
2722
2812
543
24371
2995
806
1854

325
827
1469
1534
1618
1722
1804
1904
2142
2725
2825
545'

328
1292
1471
1536
1620
1124
1806
1957
2152
2750
2831

693
1295
1477
1554
1622
1726
1959
2163
2756
3285.

710
\303
1479
1556
1624
1731
1816
1967
2168
2778

712
1335
1481
1562
1642
1739
1839
1969
2186
2781

731
\366
1495
1579
1644
1757
1841
2004
2193
2797

733
\368
\497
1581
1646
1759
1844
2006
2205
2842

771
1371
1499
1587
1654
1761
1859
2009
2230
2860

773
1437
1505
1589
1656
1769
1861
2024
2636

782
1439
1522
1591
1658
1771
1889
2026
2639

1445
1871

1475
1900

1503
1911

1530
1965

1560
1987

1585
2019

1616
2040

1652
2158

1720
2181

1761
2218

970
498*

1018

1066

1114

1162

12te

1258

1303

1335

1398

1455
2758
2989

1510
2183
2995

1538
2799

1567
2921

1744

1780

1788

2641

2672

2695

2727

1814

2730

TAil BASIC LOGIC TEST (PART 2)
MAINDEC-II.DZTAB.C
DZTABC.NEI'I
CROSS REfERENCE TABLE -- USER SYMBOLS
LOOP
LOOPI
LOOP2
LOOP3
MANUAL
MAlCNT
MSGASK
MSGDRV
MSGID
MSGOK
MSGPRI
MSGVEC
MTACs
MUDB
MTAPRI
MTAVEC
MYES
NEXT

013300

248H
29U
30U
3233
040
662'
2513
2490
533
2560
2536
2527
2549
2551
2557
2554
2569
2490
249B
2492
2485
2634
199.
649
2821>
86.
180,
103#
1M.
105.
106'
107#
108'
109.
110.
93#
1067_
126284.
65H
175,
2694
2561
2492
2514
237
184.
2860
2030
2457
170.
IR9.
1437
1724
2142
239

0~0500
~00600

000700
002166
~13150
~16760

016744
001712
01H53
01700~

01677"
017012
017020
01704"
017027
017061
013334
NOTA
013312
NOTB
013324
NOTLGL 01 J346
NXTDRV 015002
OHLIN= 001000
OK
~02200
PATTRN 014656
PIRQ
177772
PIRQVE= 00024"
PR0
000000
PRI
000040
PR2
0A"100
PR3
000140
PR4
000200
PRS
00024"
PRo
000300
PR7
0~0H0
PS
177716
PSW
PWRST
PWRVEC=
RDBLK
RDCHR
RDLIN
RDOCT
RDSUe
READ

000024
014722
104407
10441"
104411
014150
000004

READY

00004~

177776
0~n"6

RESV\:.C= 0eJ0010
REWIND= 000016

RGPALK

014332

2501
292
312
334
64BN
71433401
3338.
545.
33530
3344.
3342#
3346.
334H
H5U
3349'
3355.

653

2494

2498.

115*

11b*

~ACYII

71'.

SWREG
SW0
SW00
SW01
5W02
5W03
5W04
SH0S
SW06
SW07
SH08
SW~9

SWI
SWl0
SWII
5"12
SWU
SWI4
SWI5
5"2
SW3
SW4
SW5
SH6
5.7
SH8
SW9
TACSH
TACSL

000170
000001
000001
000002
000004
000010
00002"
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
001210
001206

TADBH
TADBL
TAPRIO

001214
001212

TAVEC

001216

~01222

TBITVE= 000014
TORV
002310
TIMERR= 002000
TKVEC
000060
TPVEC = 000064

385U
396#
2&60
188.
1870
240

74.
652
85.
291
2313
2918
229,
138.
128.
1270
1261
125.
124,
1231
122.
1211
120,
1191
137 •

2423

24440

2776

288a

II-JUN.76

13,26

2502#
2689

2505
2720

2748

2835'

2848

2859

84
1070*
1291*

657*
110&*

1305'

914*
I1t5*
1309-

923111 9_
1327*

926*
11541342-

1163>
1346*

971"
1166*
1396*

9744
1202'

3325*

3326.

962*

PAGE 74

SEQ 0087

2451

2491#
2495'
2496
2666
2912
651#
2827'

1401.-

1010*
1211"
1412'

1019*
12141415.

1022'
1250*

10581259.

333"
5034-

504*
2859.
3289.
3289.
2537
26QQ
7B4

3297_

329B'

3307*

33\3.

2753
3146
3010
2528
2684#
328

3290'
2696
B60

1593

Ib72

1916

1861

1904

1969

2020

2168

2205

304
2637

311
2669

326
2692

333
2723

694
2751

1336
2779

2093
2BB

2097
2B62

2102
2909

2149

2201

2427

303
1467
1757
2193
2743#

325
1479
177\
2230
2747

693
1495
1804
2636
2755

710
1522
1839
2668
2759

731
1534
1889
2691

771
1554
1944
2722

782
1579
1957
2750

823
1610
2004
2778

890
1642
2086

1292
1656
2096

1335
1692
2101

1366
1710
2136

TAil BASIC LOGIC TEST (PART 2)
MAINDEC-II-DZTAB-C
DZTABC .NEW
CROSS REFERENC. TABLE -- USER SYMBOLS
SAVPC
001202
SAVPS
001204
SETBUF 014544
SFBG
0~0014
SfFG
000012
SFFGSB 014426
STACK = 001100
ST~RT
002220
STKLMT= 177774
SWR
001140

27(732)

"ACYll 27(732)

11-JUN-7.

I J. 26

24242426*
2714
876
872
2771.
495
655'

24252440
2808'
1536
1481
2775
2629
2264

244\
2454*

24522468

24534-

2469

3399

1591
1658
2786
2661

1622
1684

1&24
1726

1088
1773

1940
1936

2684

2715

2743

2771

309
2354
3043
523

3640
2361
3080'
537

493
2366
Jl0S
685

515*
2370
H182810

517
2810

523_
2914

531
2816

685
2823

2823

2829

3043

3056

583

2523658

2519'

2522

2549

2630

2662

2525.
659
929
1221
490
1015'
1183*
IJl6'

2526.
2521933
1265
5971039'
1184'
1331'

2525
977
1269
&55'
1040'
1206'
1332"

2552
981
2541*
656'
10621207'
1353'

2631
1025
2558
918.
1063'
12311354'

2663
1029
919_
1081*
12321391'

669$
759

811

849

PAGE 75

SEQ 0088

2751>
2191

2294
2827

229B
2829

2300
2881

2306
2916

2685

2716

2744

2772

2903

2696
1073

2717
1077

2745
1121

2773
1125

1169

1173

943_
1088<
12541392'

9440
1110_
1255.
1410'

966.
1111'
1279'
1420'

967113512801421-

991'
1136'
1299"
2533'

992'
1158'
1300'
2535'

138
137
130
135
134
133
132
131
130
129

1181
1170
116.
115.
114.
IllI
130.
135.
1343
133.
132.
1310
130.
1291
389,
38B,
3405
391#
390,
393#
1217
392#
101h
1159.
1315.
2555
171#
667
198#

17Bs
179#

2522-

MAlNDEC-II-OZTAB-C
TAil BASIC LOGIC TEST (PART 2)
DZTABC .NEW
CROSS REfERENCE TABLE -- USER SYMBOLS
TRAPVE= 000034
TRTVEC= 0000\4
TR, REO= 000200
002436
TSTI
004150
T5T10
T5TII
0~4352
004554
15112
004756
T5T13
15T14
005160
T5TI5
005362
TSTlo
005554
TST17
005750
T5T2
002516
T5T20
006246
T5121
006370
T5T22
006510
T5123
006622
15124
006742
T5125
007050
T5126
007176
T5T27
007324
TSB
002656
007574
TST30
1ST31
010000
T5T32
010172
TSn)
010330
010516
T5T34
TST35
010776
T5136
011160
15137
311H2
00)062
1514
T5T40
011552
15141
012134
TSTS
003342
003544
T5T6
rST7
M3746
TYPE
104401

TYPEPR 012130
TYPOC
104402
TYPON = 10H04
TYPOS = 104403
UNIT
00040"
WALTRE= 104412

WAITxF= [04413

17H
l72n

501_

2010

1336
704#

691
105H
1101#
1149#
119H
1245*
1286#
1322'
1360#
707
1431<
1434
1464
1492
1519
1551
1576
1607
728
1638
1706
1753
I B01
I B36
I BBb
1954
2001
76B
2074
2127
820
957#
1005.
533
2406
2569
3321
2363
2411
328)#
l2B2#
200<
71\
1330
1482
1563
\641
1727
1813
1958
2139
2182
734

WAIT~F

013152
013046
013076
0131 16
013132
"13114

WAITt

WAlf2
WAIT3
WAlT4
WFG

"'000~0

WFGSUB
WGBLOP
WGPBLK

WLOOp
WRITE

= 1300002

WRTBLK
WR1LOC=
WF!SUB
SAUTOB
SBDADR
SBDOAT
SegLL

SCHARC
SCKS"R
SCHTAG
SCMI
SCM2
SCM3
SCNTLG
sCNTLU
SCRLF
$DOAGN
SENDAD
SENDCT
SENOMG
$ENULL
SEOP

Hoper

$ERFLG
SER"AX
SERROR
SERRPe
S ERRTB
SERTTL
SESCAP

013776
014234
0\4230
014066

014660
010000
011062
001134
001122
001126
001172
015366
015474
001100
000002
000004
000002
016221
016214
001177
012242
012232
012212
012251
01224.
012156
012204
001103
001115
01253b
001116
001236
001112
001170

BSl

1750~

IB8H
19511
1998#
2071#
817#
2124#
2221
909*

22261

2414
2959

610
2480
3054

675
2502
3055

676
2513
3"58

2254
2527
3071

2356
2536
3082

2386#
2550

2553

2556

2559

3057

3281#

2019
732
1169
1498
1586
1645
1740
1829
1968
2159
2851
771

2080
755
1409
1504
1588
1653
1156
1840
1988
2164
2872
785

2132
772
1438
1506
1590
1655
1758
1842
2005
2182
3291 #
828

2133
781
1440
1523
1592
1657
1760
1855
2007
2181

2887
781
1446
1525
1594
1659
1768
1860
2020
2192

2901
807
1448
1531
1611
1709
1770
1872
2025
2204

1304

1372

1442

653

668

713
1367
1496
1580
1643
1732
1815
196.
2141
2798
775

1557
1764
19M!

2155
3292
3291
2435

2157

2422~

2434tJ

2428
2430
182'
1618
2639
235
2715.
238
2661/,
1831
158\
2842
2611
\96.
236
36U
356#

2432
243H
712
1644
2725
2629#
2719
2114#
2665
306
1612

353#
499
354<
4121
3511
379!
1289.
1801*

SFILLC
HILL.S
SGOADR
SGDDAT

001156
001155
001120
001124

3721
371#
3551
3519

SEQ 0089

179B#

1529
1762

14H

PAGE 76

14610
1489#
1516#
15481
IS7H
1604#
1r,35#
765#
1703#

19~6

380.
2961*
3043#
344#
376#
376#
3740
3054
3011
3B2'
2250
531
505
2254
2265.
2242.
505,jjf·

2364
254"
3101

13,26

725#
1456
1484
151!
1539
1568
1599
1630
760
1694
1745
1789
183)#
1874
1946
1993
2053
B12
2076
2129

1521
1719
1895
2153
24491
2421#
2427#

358.

II-JUN-7b

502*

TAIl BASIC LOGIC TEST (PART 2)
MAINDEC-II-OZTAB-C
OZTASC. NEW
CROSS REFE~ENCE TABLE
USER SYMBOLS

WAIT.O

MACHI 27(732)

2729
2914
2660#
541*
2350*
235.
2971>
3287
49B
377#

377.
37&
31670
3166.
676
2256
596
2252'
226 ••

2249.
2273
508-

2386
2551
3150

2395
2554
3153

2397
2557
Jl57

2400
2560
3232

2402
2567
3280.

824
1468
1533
1111
1172
1890
2047
2219

826
1470
1535
1619
111 3
1714
1892
2083
2231

845
1476
1537
1621
1721
1719
1901
2085
2&40

1293
1418
1555
1623
1723
1184
1903
2105
2126

1296
148"
1561
1625
1725
1805
1912
2137
2157

1444

1472

1414

1500

1502

1611

MAC HI 27(732)

II-JUN-1&

13,26

PAGE 77

SEQ 0090

1559
1766
1962
2169

1582
1807
1964
2175

1594
1809
1970
21B0

1613
1811
1975
2206

1615
1817
1979
2212

1647
\823
1983
2217

1649
1845
2010
2843

1651
1847
2012
2861

1715
1863
2030
3292'

1717
1870
2039

825
1654

852
1664

1295
1712

1368
1722

1439
1759

1469
1769

1477
1841

1497
1891

1524
1920

1532
2006

1587
2138

2633
2733

2644

827
1714

856
1761

1303
1806

1311
IB44

1441
1893

147t
1924

1499
1959

1526
2009

1556
2152

2960

2995

3082

3166

2438
2440.

2675
133
1646

773
166B

2841'
3051

3172

3401
2382
2978

2987'

2992#

491
378.
37S.

499

505

506

507

2364
2262 ,
647

2382

2386

2397

2402

2406

2258#

2317

225 J
2302
2304

2304
232&*

23102331

2331

2351'

2382

2359*

2360

2382

3398

3399

3401

3403

3405

3407

2382
728*
13631886.
2995

768*
1434_
1954'

820_
14642001-

911"
14922074-

959*
151H
2121*

1007.
2325-

1055.
1576*
2373

110316072375

1151"
16382382

3401

3403

2345~

2358*
2393
2357.
507*

13240
1836.
2964
2995
2349*

1551*

11991706-

1247+
1153-

TAil BASIC LOGIC TEST (PA~T 2) MUNDEC-II-DZTAB-C
DZTABC.NEW
CROSS ~EfERENCE TABLE -- USE~ SYMBOLS
SGET42

012222
015544
000090
015472
1101104
016726
001135
001114
001200
001106

$GTSw~

SHD
SHIOCT
$ICNT
$lLLUP
$lNTAG
$ITEMB
SLf
SLPAOR

SLPERR 901110
SMAlL: ** ...... U
SNNEW
016237
$MSWR
01622.
SMXCNT 012534
SNULL
001154
SNWTST. 1100001
SOCNT
SOMOOE
SOYER
SPASS
SPOWER

016472
016474
012520
001100
016734
016722
016562
016716
016634
001176
015756

SPW~AD

SPWPDN
SPWRMG
SPWRUP
SGUES
SROCHR
SROOEC: .***** U
SROLIN 016076
S~DOCT
015372
SRDSZ : 000010
SREGAD 001160
SREG0
001162
SREG1
001164
SRTNAD 012244
SR2A
***"It* U
SSAYRE= .... * •• U
SSAYR6 016732
SSCOPE 012264
$SETUP: 000137
SSTUP = 177777
SSVLAO 012472
$SwR
167400

SS~RMK:

"00000

2255.
3955.
II
3027*
348.
3297
362.
352.
3831
349.
128h
18353501
527
3058
3055
2321
3701
701'
1319.
183et
32043199"
2285
345.
3328
3330.
503
3328.
3307
3811
31 14,
3291
3142'
3005.
1I35.
374'
376#
3771
2264.
3291
3291
3306.
497
476.
22A3
476.
2293
\I
507
1\ 98
1704
2263
2304
2361
68

MACYlI 27(732)

STKB
STKS
STN

STPB
STPfLG
STPS
STRAP
STRAP2
STRP

001166
001146
001\44

= 000042

001152
001\ 57
001150
016476
016520
"0';014

STRPAO 016532
STSTNM 001102
STTYIN 016204
STYPBN= ******
STYPOS= ******
snPE
015152
STYPEC 015322
STYPEX 015370
STYPOC 016274
STYPON 016310
snpos 016250
UTSTR 012276
SSGET4= 00000"
S0fILL 1116473
H0CAT=
017564

...•*-

378.
1549.
22270
3671
366.

13,26

PAGE 78

30321
2317*
3313
3083
2360*
2382
509.
1362"
188S510*
537
3170_
3168#
23301
2966
722'
13571
1880.
3233.
3203*
2301
660
33351

2318
3332#
3172
2382
2995
721*
1433·
1953*
2308
2323

2995
762.
14281
19481
324U
3208
2309
706

2320*

2330

2388
3157
767*
1463*
2900'
2324"
2366

3166
819*
1491·
2973*
2330
2948

910"
15182126.
2372

958*
1550*
2308*
2633*

1006*
1575*
23232665*

1054*
160&*
2328
2688*

1102"
1637*
2339
2719-

1150*
1705*

11981752"

1246*
1809"

2747'

2775·

2795*

814.
14581
1995.

906l
1486.
20681

9541
151l'
21211

1002.
1545.
22231

use'

\0981
lUll

1146.
1632.

11941
\7901

1242.
I74H

1283.
1795.

3211 *
2319
2246"

3222·
23271
2247·

3248.
2265

2315

2331

3150

H66

1570.

32971

3325

33tH
2382
3288

2502

2567

2995

3101

23474
23484

339B

3399

3401

3403

3314
2282.
496
2346

3315-

3316"

33341

497
2369

499
2377

501
3038

503
3172

50S

506

507

509

5J1

534

2244

2322.
11
509
1246
1751
2265
2311
2366
69

62
510
1287
1799
2274
2312
2370
2278

63
705
1323
1834
2275
2313
2382
2279

64
72&
1361
1884
2276
2324
3331
2300

65
766
1432
1952
2277
2327

66
818
1462
1999
2278
2330

67
910
1490
2072
2284
2337

68
958
1517
2125
2296
2338

378
1006
1549
2227
2298
2339

379
1054
1574
2237
2299
2340

380
1102
1605
2245
2302
2341

506
1150
1636
2257
2303
2354

1289
3290

50&*

1574.
2245*
3036
3036

MACYU 27(732)

II-JUN-76

13126

PAG~

705*
160SO
2311·
3047
3045
701
820
11501
1434
1539
1632
1799.
1993
2221
2995
2995
2995

726'
1636.
2318
3064
3061
70S.
882
1194
1456
1545
16361
1801
1995
2223

766'
1704.
23213118
3085.
7117
906
11981
1458
1549.
1638
1830
1999'
22271

818·
1751*
2330
3124
3116
722
910.
1242
1462.
1551
1694
18341
2001

1287*
1799*

13231834*

1361*
1884.

1432*
1952*

3122
726.
954
1246.
1464
1568
1700
1836
2053

728
9581
1283
1484
157e
\70U
1874
2068

7611
1002
1287#
1486
1574.
1706
1880
20729

762
1006.

1517·
2125-

766.

1490'
1576
1745
18841
2074

13231
1492
1599
1747
1886
2076

768
1054.
1357
1511
1601
175\1
1946
2121

812
1098
\36\1
15\3
1605.
1753
1948
2125,

3290.

32911

3292#

545.
3309

673.
3333

2265
33970

818'
1146
1432.
1519
1630
1795
1954
2129
2984.
2942
2982
32571
3279
328tt

328U

3283.

3284.

3285

32A6.

3287

32881

328H

3279.
6633144

2244'
3161

2273
3165.

2300

2322'

2327

2331

2353

2382

3280
2977
299)1

29823

2983

3087

3211
241H

2995

3U
3036

494
3165.

5"9
3166

510
3172

3197#

3272
2970
2990
3281
3204#
3282

228H
22571
3198.
2284
2238
2268

3202.
2363
22,.
2330

ER~ORS OETECTEO,
0
OEFAULT GLOBALS GENERATED:

'TABC.TABC/SOL/CRF,SYM:DZTABC.NEW
~UN-TIMEI 50 39 3 SECONDS
~UN-TIME ~ATIO: 346/94=3.6
CORE USED, 25K (49 PAGES)

SEQ 0092
1490*
2972·

3284
32B4
2942,
2963
2988
3202.
3201

79
1462.
1999*

814
1102'
1428
1517#
1607
1789
1952_
2127
369.
3731
368#
501
3268.
3272,
32931
3262
346.

3143

SEQ 9991

3285

TAil BASIC LOGIC TEST (PART 2) MAINUEC-11-DZTAB-C
DZTABC.NE.
CROSS ~EFERENCE TABLE -- USER SYMBOLS
STIMES

II-JUN-76

1319

1~50

3283

3212

3247#

289.
2331

2998
2382

343.

.~~~DDmD

ORIGINATOR

4088 DATE 17 AUG 76
TEL EXT
HL21-4/E10
LOCATION
301
COST CENTER NO.

ENGINEERING'
CHANGE ORDER

o. Choate

No.MD-II-l>?nUf-e;/~/

ECO
SHEET-LOF
2
DATE RECEIVED
ISSUE DATE
FINAL RELEASE

PROBLEM
Tests # 37 and # 40 of DZTABC fail when run on 11/70 with CACHE
Memory enabled.

1.P~-7('

UNIT TO BE CHANGED

MD-ll-DZTABC
PRODUCT AFFECTED

TAll

CORRECTION /DEPO
I'

Install patch to diagnostic
TYPE OF ECO

Co",cl'\~ ;ONA L

o HARDWARE
~SOFTWARE

o PURCHASE
SPEC.

BREAK·IN/EFFECTIVITY

FIELD SERVICE
AFFECTED

~ES

Immediately

ONO
F D, P, R DISTR.
l.O.U. CODE

WHERE USED

QUICK·CHECK

TEST

OLD NEW
REV REV

F"
,
(

DOCUMENT/PART NO.

~-ll-DZTAB

N/~
N/~

C
C

~:"ll-DZTAB

DESCRIPTION OF CHANGE/DISPOSITION OF MATERIAL

No document change
CHANGE LOCATION
11500
11502
11506
11510
11512
11652
11654
11664>
11662

, 'kb';5

M. Horovitz/
TEl. EXT.
COST CENTER NO.
4088
V20-07846
DISC. PROJ. NO.
DATE
ENG. MGR.

COORD. NO.

.). . .

~'l!/n(S\tl
Y
__,,--;;-- .J_
",(,c,,,,\

APPROVAL SIGNATURE (TYPE
ROJECT ENGR. O. Choate!.

REF. NO.

301
8L18L76

FROM
6301
1001
32714
40
1372
6301
1003
32714
40

TO
4737
17600
240
240
240
4737
17600
240
240

REVIEW SIGNATURES (SEE INSTRUCTIONS FOR APPlIC.I
FIELD SERVICE
DIAGNOSTIC ENGR.

CONTINUATION
SHEET

(CONTINUED)

MD-11-DZTAB

C N/A

CHANGE LOCATION

FROM

11664
17600
17602
17604
17606
17610
17612
17614
17616

1372

240
6301
1376
32714
40
1002
062716
2

207

NO OTHER PATCHES REgJIRED

, -

OF _ _ _2_ _

DESCRIPTION OF CHANGE

DOCUMENT/PART NO.
2

SHEET