Digital PDFs

MAINDEC-11-DZTAA-C-D

June 1976

56 pages

Original

6.8MB

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

OCR Text

IDENTIFICATION
PRODUCT CODE:

MAINDEC-l1-DZTAA-C-D

PRODUCT NAME:

TAli LOGIC TEST (PART 1)

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 DOCUMENT.
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 EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIpMENT THAT IS
NOT SUPPLIED BY DIGITAL.
COPYRIGHT (Cl 1973,1976 BY DIGITAL EQUIPHEN CORPORATION

CONTENTS
1.

ABSTRACT

REQUIREMENTS
EQUIPMENT
2.1
STORAGE
2.2
PRELIMINARY PROGRAMS
2.3

LOADING PROCEDURE

STARTING PROCEDURE
CONTROL SWITCH SETTINGS
STARTING ADDRESS
PROGRAM & OPERATOR ACTION

4.1
4.2
4.3

'"
5.

OPERATING PROCEDURE
OPERATIONAL SWITCH SETTINGS
SUBROUTINE ABSTRACTS

5 .1
5.2

ERRORS

RESTRICTIONS

MISCELLANEOUS
EXECUTION TIME
8 .1
STACK POINTER
8.2
PASS COUNTER
8.3
ITERATIONS
8.4
SPECIAL REGISTERS
8.5

PROGRAM DESCRIPTION

ABSTRACT
THIS PROGRAM CONTAINS A SERIES OF BASIC LOGIC TESTS
THAT CHECK THE TAll FOR PROPER OPERATION,
REQUIREMENTS
EQUIPMENT
PDP G 11 COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER
WITH CONSOLE TELETYPE, AND A TAll CASSETTE
STORAGE
THIS PROGRAM REQUIRES APPROX. 4K STORAGE,
PRELIMINARY PROGRAMS
NONE

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

STARTING PROCEDURE

4.1

CONTROL SWITCH SETTINGS
SEE 5.1.

4.2

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

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

4.3

PROGRA~

, OPERATOR ACTION

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)
LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES
REWIND BOTH DRIVES
LOAD ADDRESS 2e0.
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 qSWR=XXXXXX NEW=" AFTER TYPING
THE NAME OF THE PROGRAM.

1.
2.
3.
4.
5.
6.
7.

DRIVE SELECTION
STARTING THE PROGRAM AT 2ee 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 BE TESTED.
THE PROGRAM WILL TYPE "DRIVE(S)?".
EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING "A" AND/OR
"B" FOLLOWED BY A CARRIAGE RETURN.
4.3.1.1 DRIVE SELECTION EXAMPLES
DRIVE(S)? A,B
DRIVE(S)? AS
DRIVE(S)? BfA
DRIVE(S)? B
ADDRESS SELECTION
STARTING THE PROGRAM AT 21e 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" FOR "YES" ANYTHING ELSE IS A "NO".

\)
I

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? 470
VECTOR?
PRIORITY?
TACS=177470 TADB=177472 VECTOR=000260 PRIORITY=000300
OK?
5.

OPERATING PROCEDURE

5.1

OPERATIONAL SWITCH SETTINGS
IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH
REGISTER THEN A SOfTWARE SWITCH REGISTER IS USED WHICH ALLOWS
THE 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:
1)

TYPE CONTROL G <~G>~ 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 #PNEW:'- HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE

OF THE FOLLOWING AT THE TTY:
A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOwED BY A <CR>.
(ONLY NUMBERS BETWEEN 0~7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)
If A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.
B) IF A CONTROL U <~U> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU
BACK TO STEP 2.

WITH SW<15:0B>=0 THE PROGRAM WILL PRINT OUT ON
ERRORS AND CONTINUE IN TESt. 8ELL WILL RING
AT COMPLETION OF A PASS.
THE SWITCH SETTINGS ARE:
SW<lS>=l ••• HALT ON ERROR
5W<14>=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>=1 ••• LOOP ON ERROR
5W<0B>=1 ••• LOOP ON TEST AS PER SW<07300>
SW<07>=1 ••• LOCK ON CURRENT DRIVE (ONLY VALID
FOR STARTING ADDRESSES 220 THRU 250).
SUBROUTINE ABSTRACTS
SCOPE
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 "$LPADR" AND "$LPERR" AS IT IS
BEING ENTERED.
THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS
TRAPCATCHER
m "HALT" SEQUENCE IS REPEATED FROM LOC. 0 TO LOC. 776
TO CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL
HALT AT THE DEVICE TRAP VECTOR +2.

A ".+2"

ERROR
THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT
ALL ERRORS. (REFER TO 6.>
THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS
IF PROCESSOR HALTS (BIT 15=1), OPERATOR
CAN RESET S/w SWITCH REGISTER BY HITTING A
"CONTROL Gn (0G> BEfORE HITTING CONTINUE.

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 (.TYPE)
ROUTINE TO TYPE AN ASCIZ STRING ON THE TTY
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS
AFTER A LINE FEED.
5.2,4.2 RDCHR ($RDCHR)
READ A SINGLE ASCII CHARACTER FROM THE TTY
5.2.4.3 ROLIN ($RDLIN)
READ AN ASCII STRING FROM THE TTY
5.2.4.4 WAITREADY (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

CHANGE A BINARY NUMBER TO OCTAL ASCII AND TYPE IT.

5.2.5

THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR

5.2.5.1 STYPEC

ROUTINE TO TYPE A SINGLE ASCII CHARACTER
5.2.5.2 TYPERR

THIS ROUTINE WILL TYPE THE ERROR MESSAGES
5.2.5.3 SELDRV
THIS ROUTINE IS USED TO ASK THE OPERATOR WHAT DRIVE(S)
ARE TO BE TESTED
5.2.5.4 SELADR

THIS ROUTINE WILL ASK THE OPERATOR FOR THE ADDRESSES OF
THE "TACS","TADB" AND VECTOR AND THE PRIORITY TO USE.
THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENtS TO
THE TU60. BEFORE USING ANY OF THEM LOAD AND START 214.
5.2.6.1 WFGSUB

WRITE FILE GAPS FROM "BOT" TO "EOt"
START AT 220
THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO" AND
THE "WRITE DELAY MONO".
5.2.6.2 WRTSUB
WRITE CONTINUOUS BLOCKS OF DATA
START U 224
THE PROGRAM WILL HALT THREE!]) TIMES
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE
HALT 1 ~~@ SWR<7:0> ; NUMBER OF BYTES PER BLOCK
HALT 2 ~~wSWR<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 SOFTWARE SWITCH REGISTER AFTER
EACH HALT OPERATOR WILL BE PROMPED
FOR THE VALUE WITH "SWR;XXX NEW:"

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

WRITE A fILE GAP AND A BLOCK OF DATA FROM BOT TO ECT
START AT 234
THE PROGRAM WILL HALT THREE (3) TIMES
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE
HALT 1 --- SWR<7:0> = NUMBER OF BYTES PER BLOCK
HALT 2 ._. SWR<710> = PATTERN DESIRED
HALT 3 ._. SWR<15:0>
OPERATIONAL SWITCH SETTINGS
THIS ROUTINE CAN BE USED TO ADJUST THE "WRITE GAP MONO"
AND THE "GAP TIME MONO".
** IF USING SOFTWARE SWITCH REGISTER AFTER
EACH HALT OPERATOR WILL BE PROMPED
FOR THE VALUE WITH "SWR=XXX NEW="

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 AFTER "WRITE FILE GAP" FOR LOW SPEED
SPACE FOWARD (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 eSFGSS
BACK SPACE FILE GAP
START AT 250
THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO".

THE FOLLOWING SUBROUTINES ARE USED BY THE ADJUSTMENT
ROUTINES
5.2.7.1 SETBUF
SETUP BLOCK SUE AND PATTERN
5.2.7.2 WRTBLK
WRITES A BLOCK OF DATA
5.2.7.3 ROBLI<
READS A BLOCK OF DATA
5.2.7.4 NXTDRV
CHANGE DRIVE
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 FOLLOWINGI

t.
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 AND AT BEGINNING OF TAPE.

,'"

)

MISCELLANEOUS

8.1

EXECUTION TIME
THE FIRST PASS TAKES APPROXIMATELY 45 SECONDS ALL
SUBSEQUENT PASSES TAKE APPROXIMATELY 100 SECONDS.

8.2

STACK POINTER
STACK IS INITIALLY SET TO 1100.

8.3

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

8.4

ITERATIONS
THE fIRST pASS OF THE PROGRAM WILL AUToMATICALLY INHIBIT
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM rULL,
(2000 DECIMAL UNLESS OTHERWISE SPECIFIED WITHIN A TEST),
ITERATIONS.

8.5

SPECIAL REGISTERS
REGISTER R3,R4 AND R5 ARE RESERVED FOR THE THE FOLLOWING
PURPOSES3
R3 :: DRIVE
R4 :: TACS
R5 :: TADB

PROGRAM DESCRIPTION
THIS PROGRAM IS A SEQUENCE OF SMALL INDEPENDENT TESTS THAT
CHECK THE TAll FOR PROPER OPERATION WITH TAPE MOTION KEPT
AT A MINIMUM.
THE TESTS CAN BE GROUPED INTO THE FOLLOWING GENERAL GROUPS.
1•

2.
3.
\

4.
5.
6.

VERIfY THAT THE "CONTROL AND STATUS" (TACS) AND THE
"DATA BUFFER" (TAOS) REGISTERS RESPOND TO ADDRESSING.
TEST THE "TACS" FOR PPOPER OPERATION
TEST "READY"
TEST "CLEAR LEADER ERROR"
TEST "TRANSFER REQUEST"
TEST THE "TAOS" FOR PROPER OPERATION.

MACY11 27(732)

TAll BASIC LOGIC TEST (PART 1) MA!NDEC~11~DZTAA~C
DZTAAC.NEW
TABLE OF CONTENTS
12
60

183
224

225
234
246
293

301
327
344
404
482

507
545
552
729
753
777

801
825
849
875

885
895

905
915
925
935

945
955
965

975
992

1006
1021
1035

1050
1064
1079
1093

1108
1122
1137
U51
1166
1193

1204
1215

1227
1238

1257
1278
1299

1320

GENERAL INFORMATION
OPERATIONAL SWITCH SETTINGS
BASIC DEFINITIONS
TAli 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 SOT TO EOT
COMMON TAGS
ERROR POINTER TASLE
START OF TEST
INITIALIZE THE COMMON TAGS
TYPE PROGRAM NAME
GET VALUE FOR SOFTWARE SWITCH REGISTER
T1
TEST IF TACS EXIST
T2
TEST IF TADS EXIST
13
TEST FOR LOW BYTE OF TACS
T4
TEST FOR LOW BYTE OF TAOS
T5
TEST FOR HIGH BYTE OF TACS
T6
TEST FOR HIGH BYTE OF TADB
T7
TEST INITIAL CONDITION Of TACS BIT14
0
T10
TEST INITIAL CONDITION OF TACS BIT11 : 0
Tl1
TEST INITIAL CONDITION Of TACS BIT10 : 0
T12
TEST INITIAL CONDITION OF TACS BIT0S
0
TEST INITIAL CONDITION OF TACS BIT07 = 0
T13
T14
TEST INITIAL CONDITION OF TACS BIT06
0
T1S
TEST INITIAL CONDITION Of TACS BIT04 : 0
T16
TEST INITIAL CONDITION Of TACS BIT03
0
T17
TEST INITIAL CONDITION Of TACS BIT02
0
TEST INITIAL CONDITION OF TACS BIT01 : 0
T20
T21
TEST INITIAL CONDITION OF TACS BIT00 = 0
T22
TEST BIT08 OF TACS MAY BE "SET" AND "CLEARED"
T23
TEST BIT08 OF TACS INITIALIZE TO ZERO
T24
TEST BIT06 OF TACS MAY BE "SET" AND "CLEARED"
T25
TEST BIT06 OF TACS INITIALIZE TO ZERO
T26
TEST BIT04 OF TACS MAY BE "SET" AND "CLEARED"
T27
TEST BIT04 OF TACS INITIALIZE TO ZERO
T30
TEST 8IT03 OF TACS MAY BE "SET" AND "CLEARED"
T31
TEST BIT03 Of TACS INITIALIZE TO ZERO
T32
TEST BIT02 OF rACS MAY BE "SET" AND "CLEARED"
T33
TEST BIT02 OF TACS INITIALIZE TO ZERO
T34
TEST BI101 Of TACS MAY BE "SET" AND "CLEAREDq
T35
TEST 8IT01 OF TACS INITIALIZE TO ZERO
T36
COUNT PATTERN TO TACS<04:01>
T37
TEST INITIAL CONDITION or TACS BIT05 : 1
T40
TEST INITIAL CONDITION OF TACS 8IT09
0
T41
TEST INITIAL CONDITION OF TACS BIT12 = 0
T42
TEST INITIAL CONDITION OF TACS BIT13 g 1
143
TEST INITIAL CONDITION OF TACS BI115
1
144
TEST TACS 8IT15 IS READ ONLY
145
TEST TACS BIT14 IS READ ONLY
T46
TEST TACS BIT13 IS READ ONLY
T47
TEST TACS BIT12 IS READ ONLY

li-JUN-76

15:1~

=
=
=
=

(

TAil BASIC LOGIC TEST (PART 1) MAINDECwl1~DZTAA~C
DZTAAC.NEW
TABLE OF CONTENTS
1341
1362
1383
1404
1425
1449
1461
1473

1487
1501
1520
1566
1592
1618
1634
1650

1679
1703

1731
1753
1780
1810
1826
1842
1858
1874
1890
1906
1942
1972
2002
2032
2062
2092
2106
2113
2151
2194
2195
2205
2214
2241
2268
2295

2305
2341
2405
2457
2493
2522

2551

2585
2587
2651
2661

2686

TEST TACS BIT11 IS READ ONLY
TEST TACS BIT10 IS READ ONLY
TEST TACS BIT09 IS READ ONLY
TEST TACS BIT07 IS READ ONLY
154
TEST TACS BIT05 IS READ ONLY
TEST HIGH BYTE SELECTION Of TACS
T55
TEST LOW BYTE SELECTION OF lACS
T56
TEST "OUT LOW" SIGNAL
T57
TEST "OUT HIGH" SIGNAL
T60
TEST "SELECT 00" ISNeT STUCK
T61
TEST "ERROR" FOR "CLEAR LEADER"
T62
TEST THAT "READY" SETS WHEN "REWIND" IS COMPLETED
T63
TEST THAT "READY" SETS WHEN "WRITE FILE GAP" IS COMPLETED
T64
TEST "READY" CLEARS WHEN STARTING A "REWIND" FUNCTION
T65
TEST "READY" CLEARS WHEN STARTING A "WRITE FILE GAP" FUNCTION
166
TEST THAT "RESET" CANNOT ABORT A "REWIND"
T67
TEST "RESET" WILL ABORT A "WRITE FILE GAP"
T70
TEST "WFGN AND "REWIND" FOR NO ERRORS
171
ROUTINE TO DETERMINE TIME OF WAIT LOOPS
172
TEST THAT "CLEAR LEADER" GOES FALSE ON "REWIND"
173
TEST FOR "CLEAR LEADER ERROR" FOR "WRITE FILE GAP FUNCTION"
T74
TEST "READY" CLEARS WHEN STARTING A "WRITE" FUNCTION
T75
TEST "READY" CLEARS WHEN STARTING A "READ" FUNCTION
T76
TEST "READY" CLEARS WHEN STARTING A "BACK SPACE FILE GAP" FUNCTION
T77
TEST "READyq CLEARS WHEN STARTING A "BACK SPACE BLOCK GAP" FUNCTION
T100
TEST "READY" CLEARS WHEN STARTING A "SPACE FORWARD FILE GAP" FUNCTION
T101
TEST "READY" CLEARS WHEN STARTING A "SPACE FORWARD SLOCK GAP" FUNCTION
T102
TEST FOR "CLEAR LEADER ERROR" FOR "WRITE FUNCTION"
T103
TEST FOR "CLEAR LEADER ERROR" FOR "READ FUNCTION"
T104
TEST FOR "CLEAR LEADER ERROR" FOR "BACK SPACE FILE GAP FUNCTION"
Ti05
TEST FOR "CLEAR LEADER ERROR" FOR "BACK SPACE BLOCK GAP FUNCTION"
T106
TEST FOR "CLEAR LEADER ERROR" FOR "SPACE FWD FILE GAP fUNCTION"
T107
TEST FOR "CLEAR LEADER ERROR" FOR "SPACE FWD SLOCK GAP FUNCTION"
T110
TEST "GO" BIT IS WRITE ONLY
Tl11
**********TRANSFER REQUEST**********
TEST TRANSFER REQUEST & ILBS FOR "WRITE"
T112
TEST "TRANSFER REQ" AND RILSS" FOR "READ"
T113
**********TADB**********
T114
TEST THAT TAOS (READ BUFFER) INITIALIZES TO 0~S
T115
TEST TADB (WRITE BUFFER) FOR WRITE ONLY
T116
FLOAT A "1" THROUGH TADB
Tl11
fLOAT A "0" THROUGH TADB
T120
COUNT PATTERN TO TADB
1121
END OF TEST CODE
END OF PASS ROUTINE
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
CHANGE TAii ADDRESSES
ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY
********** MANUAL ADJUSTMENT ROUTINES **********
WRITE FILE GAPS FROM "BOT" TO "EOT"
WRITE CONTINUOUS BLOCKS or DATA
T50
T51
T52
T53

TAli BASIC LOGIC TEST (PART 1) MAINDEC~11eDZTAA@C
DZTAAC.NEW
TABLE OF CONTENTS
2719
2742

278111
281118
2835
2852
2886
2904
2929
2945
2975

3f/J45
31118 3
3222
3299
H22

READ CONTINUOUS BLOCKS OF DATA
WRITE A FILE GAP AND A BLOCK or DATA FROM BOT TO EOT
READ A BLOCK or 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 DRIVECS) FOR AVAILABLITY
TYPE ROUTINE
READ AN OCTAL NUMBER FROM THE TTY
TTY INPUT ROUTINE
BINARY TO OCTAL (ASCII) AND TYPE
TRAP DECODER
TRAP TABU
POWER DOWN AND UP ROUTINES

•

TAil BASIC LOGIC TEST (PART II
DZIAAC ,NEW
!
2

3
4
5

•

MAINDEC·II-D~TAA·C

MACHI 27(732)

II-JUN-?6

15,15

,TITLE TAil BASIC LOGIC TEST (PART I)
,"COPYRIGHT IC) 1973.1976
,*DIGITAL EQUIPMENT CORP.
I"MAYNARD, MASS, 01754
I"
,'PROGRAM BY JIM LACEY

MIINDEC-11-OZTAA-C

"PACKAGE (MAINDEC-lI-DZQAC-CI),HIR 24,

1976.

PAGE

SEQ 0015

,","THIS PROGRAM WAS ASSEMBLED USING THE PDP-! I MAlNDEC SYSMAC

8
9
10
II

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

*.*.*.

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

I J

:J •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

14
15

oFlEMl

GENERAL INFORMATION ABOUT THE TAl1ITU60 CASSETTE

18
19
20
21

ADDRESS MNEMONIC DESCRIPTION

22
23
24
25

777500
777502
260

TACS
HOS
TAVEC

CONTROL AND STATUS REGISTER
DATA BUFFER REGISTER
INTERRUPT VECTOR

2&
27

TACS REGISTER DEICRIPTION

28
29
30
31
J2

BIT

IN11
ITATE

NAME

~RROR

34
35
3b
37
J8
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

14
13

BLOCK CHECK ERROR
0
CLEAR LEADER
?
WRITE LOCK
1
FILE GAP
0
TIMING ERROR
0
OfF LINE
?
UNIT SELECT
0
TRANSFER REQUEST
0
INTERRUPT ""ABLE
0
READY
1
ILBS
0
fUNCTION 8IT 0.
0
FUNCTION BIT 01
FUNCTION BIT 00
0:WR I TE-FiLE-GAP
I :WRITE
2=READ
3=BACK SPACE FILE GAP
4=8ACK SPACE BLOCK GAP
5=SPACE fORWARD FILE GAP
6=SPACE fORWARD BLOCK GAP
7=REwIND
GO BIT

12
11
10
09
08
07
06
05
04
03
02
01

54
55
56

5.1 TCH

80
SI
8.
83
84
85
86
a7
88
89
90
91
92

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

WRITE: QNLn

t *'

15.15

PAGE 2

UIE

HALT ON ERROR

LOOP ON TEST

13
11

INHIBIT ERROR TYPEOUTS
INHIBIT ITERATIONS

BELL ON ERROR

LOOP ON ERROR

8
7

LOOP ON TEST IN SWR<1:0>
LOCK ON CURRENT DRIVE (ONLY VALID WITH MANUAL LOOPING)

; '*
:*

~;**

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

.IBTTL

BASIC DEFI" ITlONS

:*INITIAL ADDRESS OF THE: STACK POINTER ••• 1100

00\100

***

STACK:

1100

,.EQUIV

EMT,ERROR

;1SAS1C DEFINITION

.EQUlV

lOT. SCOPE

"SASIC DEfINITION OF SCOPE CALL

or ERROR CA.LL

;*MISCELLANEOUS DEFINITIONS
30001 !
000012
000015
000200
177776
\77774
\77772
177570
177570
000000
00000\
000002
00000 J
000004
000005
000006
000007

000000
000040
000100
000140
000200
000240
000300
000340

HT:
L'=
CR.
CRL':
PI=

II
12
15
200
177776

.EQUIV

PS,PSW

STKLMT=
PIRQ:
DSWR=
DDISP=

177774
177772
177570
177570

"CODE FOR HORIZONTAL TAB
"CODE FOR LINE FEED
"CODE FOR CARRIAGE RETURN

; ~CODE FOR CARRIAGE RETURN-Llf'lE FEED
J1PROCESSOR STATUS WORD
: ,ITACK LIMIT REGIITER
;,PRDGR.M INTERRUPT REQUEST REGISTER

:; HARDWA,RE SWITCH REGISTER
"HARDWARE DISPLAY REGISTER

:*GENERAL PURPOSE REG liTER DEFINITIONS
;;GENEFAL REGISTER
R0=
%0
Rl:
R2=
R3=
R4=
R5=
R6=

%1
\2
%3

,;GENERIL REGISTER
"GENERAL REGISTER
"GENERAL REGISTER

;;GENERAL REGISTER

%5
%'

, ,GENERAL REGISTER

~EaUIV

%7
R6,SP

.EGUIV

R7,PC

"GENERAL REGISTER
"STACK POINTER
II PROGRAM COUNTER

R7=

~;GENERAL

; *PRIORITY LEVEL DEFINITIONS
PR~=
0
"PRIORITY
, I PRIORITY
PRI=
40
PR2=
100
"PRIORITY
n PRIOFl TY
PRl=
140
PR4=
200
"PRIORITY
I ,PRIORITY
PR5=
240
, ,PRIORITY
PR6=
300
PR7:
340
:JPRIQRITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

LEVEL

III
112

II-JUN-76

;,SBTTL
; ******'*OPERATIONAL
***** *******IWITCH
*" ******~*.* 2- ** ~ •.** * **.* if **** .a-.******* *******
IETTINGI

57
58
59
61
b2
63
b4
65
66
67
bS
69
70
71
72
73
74
75
76
77
78

READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ ONLY
READ/WRITE
READ ONLY
READ/WRITE
READ ONLY
READ/WRITE
READ/WRITE
READ/WRITE
READ/WRITE

MACYlI 21(732)

TAli BAIIC LOGIC TEST (PART I)
MAI"DEC-II-DZTH-C
DZTA.C.NEW
GENERAL INFORMATION

READ AND/OR WRITE?

................... "" ...........",..............

I*"SWITCH REGISTER" SWITCH DEFINITIONS

SEQ 0016

TAil BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
DZTAAC.NEW
BASIC DEFINITIoNS
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

13B

SWI5=
SWI4=
SWI3=
SWI2=
SWll=
SWI0=
SW09=
SW08=
SW07=
SW06=
SW0S=
SW04=
SW0J=
SW02=
SW01=
SW00=
.EQUIV
.EQUIV
.EQUlV
.ECUI V
.EQUIV
.EQUIV
,EQUlV
.EQUIV
.EQUIV
.EOUIV

MAcYl1

27(732)

II-JUN-76

15:15

PAGE 3

SEQ 0017

II-JUN-76

15:15

PAGE 4

SEa 0018

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

2
1

SW09,SW9
5W08,SWB

SW07, SW7
SW~6, SW6
510105, SW5

SW04,SW4
SW03,SW3
SW02,SW2
SW01,SW1
SW00,SW0

139
140
141
142
143

144
145
146
147
14B
149
150
1St
152
15 J
\54
155
156
157
158
159
160
t61

100000
040000
020000
010000
004000
~02000

00100"
000400
000200
000100
000~4"

000020
000010
000004
000002
000001

\62
16)

164
165
16b
167
16B

:*OATA
BITI5=
BIT14:
BIT\l=
BITI2=
BITI1=
BITI0:
B1T09=
BIT08:
BIT07=
BIT06=
BI T0S:
81T04=
BIT03=
8IT02=
8 IT01 =
BIT00=
$EQUIV
,EQUIV
,EOUIV
,EOUIV
,EQUrV
,EOUIY
,EQUIV
,EOUIV
.EOUIY
,EOU r V

BIT DEFINITIONS (B1T00 TO BITI5)
100000
40000
20000
10000
4000
2000
1000
40"
200
100
40
20
10
4
2

1
61T09,8IT9
BIT08,BIT8
BIT"'7,BIT7
B1T06,81T6
811"'5,8115
BIT~4,BIT4

81T03,8113
81T02,81T2
81T01,8IT1
B I T'}0 , B1 T0

;*BASIC "CPU" TRAP VECTOR ADDRESSES

TAIl BASIC LOGIC TEST (PART 1)
MAINDEC-Il-DZTAA-C
DZTAAC,NEW
BASIC DEFINITIONS
169
170
171
172
17)
174
175
176
177
178
179
180

000004
00001 "
000014
000014
0"0014
~HHH~2'"

000024
000030
000034
000~60

000064
000240

ERR VEe: 4
RESVEC= 10
TSITVEC=14
TRTVEC= 14
SPTVEC: 14
10TVEC= 20
PWRVEC= 24
E'~TVEC= 30
TRAPVEC=34
TKVEC= 60
TPVEC: 04
PIROVEC=240

MAOII 27(732)

TIME OUT AND OT~ER ERRORS
RESERVW AND ILLEGAL INSTRUCTIONS
liT" BIT
TRACE TRAP
BREAKPOINT TRAP (BP!)

INPUT/OUTPUT TRAP (lOT) **SCOPE**
POWER FAIL
EMULATOR TRAP (EMT) "ERROR ••

"TRAP" TRAP
TTY KEyeOARO VECTOR
TTY PRINTER VECTOR
PROGRAM INTERRUPT REQUEST VECTOR

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC.NEW
TAil DEFINITIONS
181
182
183
184
185
186
187
188
189
190
191

0000se
001111112
00110114
00110116
01101110
000012
000014
11110016

;TAII FUNCTIONS
WFG=
"
WRITE: 2
READ=
4
BSFG6
BSBG=
10
Sf'FG=
12
SFBG=
14
REWIND= 16

10011011
040000
0201100
IU01100
0041100
002000
001300
0011400
110"2110
0110100
800040
01'01'20
001'010
000004
000002
0011001
000016

;TAII BIT ASSIGNMENT
ERROR= BITI5
CRCERR= B 1 Tl4
LEADER= SITI3
WRTLOCK=BlTI2
FGAP=
BITII
TIMERR= BITt0
OFFLINE=BIT09
UNIT=
BIT08
TR.REQ= BIT07
INT.EN: BtT06
READY. BITliS
ILBS:
BIT04
FUNC2= BIT03
FUNCI= BIr02
FUNC0: BIT01
GO=
8IT00
FUNCTION:
FUNC2+t"UNCI +FUNCe

192

193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220

241

II-JUN-76

15115

PAGE 5

SEQ

0019

;WRITE FILE GAP FUNCTION
;WRITE FUNCTION
; READ FUNCTION
;BACK SPACE FILE GAP FUNCTION
;BACK SPACE BLOCK GAP FUNCTION
; SPACE FWD FILE GAP FUNCTION
;SPACE FWD BLOCK GAP FUNCTION
;REWIND FUNCTION

;1111111111111111111111111111111111111111111111111111111111111111111111
;1111111111111111111111111111111111111111111111111111111111111111111111
;1111111111111111111111111111111111111111111111111111111111111111111111

;SPECIAL REGISTERS
DRIVE= %3
TACS=
U
TAD8=
\5

0011~03

1100004
000005

;R3 CONTAINS THE DRIVE UNDER TEST
;R4 15 USED AS A POINTER TO THE TACS REGISTER
;R5 IS USED AS A POINTER TO THE TADB REGISTER.

;1111111111111111111111111111111111111111111111111111111111111111111111
;1111111111111111111111111111111111111111111111111111111111111111111111

TAli BASIC LOGIC TEST (PART II
DZTAAC.NEW
TRAP CATCHER
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240

MACYII 27(732)

MAINDEC-II-DZTAA-C
.SBTTL

000000

000174
000176
000209
0160204

000210
01616214

016022e
000224
000230
000234
1100240
0160244

000250

II-JUN-76

15:15

PAGE 6

SEQ 0020

TRAP CATCHER

.=0
:*ALL UNUSED LOCATIONS FROM 4 • 770 CONTAIN A ".+2.HALT"
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;*LOCATION 0 CONTAINS" TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000
000137
00"137
000137
000137
0011137
000137
000137
0011137
000137
000137
000137

MACYII 27(732)

.=174

001356
001410
001416
001424
012622
012706
012774
013054
013156
013252
013336

DISPREG: .WORD 0
S.REG:
.WORD 0
.SBTTL STARTING ADDRESS(ES)
JMP
~t8EGINI
JMP
UBEGIN2
JMP
UBEGIN3
UBEGIN4
JMP
JMP
@IWFGSUB
JMP
UWRTSUB
JMP
"RDSUS
JMP
UWGPBLK
JMP
URGPBLK
JMP
USFrGSB
JMP
"BSrGSB

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

TAil BASIC LOGIC TEST (PART 1)
MAlNOEC-II.OZTAA-C
DZTAAC. NEW
TOGGLE IN ROUT INES

MACHI

II-JUN-'.

27(732)

PAGE 7

15:15

SEQ 0021

242
243

,1111111111111111111111111111111111111111111111111111111111111111111111
;1111111111111111111111111111111111111111111111111111111111111111111111

244
245

246

;THE FOLLOWING ROUTINES CAN BE TOGGLED IN.

241
24B

,1111111111111111111111111111111111111111111111111111111111111111111111

249

250
251

~REM

252
253
254

THE FOLLOWING ROUTINES (LOOPl. LOOP2. & LOOP3) CAN BE TOGGLED
IN WHEN IT IS IMPOSSIBLE TO,LOAD THE DIAGNOSTICS

255
256

251

NOTE'

258

259
260
261

BEfORE USING THESE ROUTINES INSURE THAT R3.R4.& RS
ARE SETUP PROPERLY.

•• NOTE. If USING SOFTWARE SWITCH REGISTER
LOCATION SWR (=1140) MUST CONTAIN
ADDRESS "SWREG" (=176).

262
26J

*****

PUT VALUE INTO 176

iH}·lHH!'

264

•• REGISTERS 3.4.&5 MUST BE SETUP ••
•• VIA MOVE INSTRUCTIONS **

265
266
267
26B

R3=

269
270

R4=

0 IF USING DRIVE A

4~0

271

272
273
274
275

IF USING DRIVE B

TAll STATUS REG ADDRESS CTACS 177500)

RS'

TAll DATA BUFFER ADDRESS (TADB 177502)

LOOPI

wiLL LOAD tHE SWITCH REGISTER INTO THE TACS,

LOOP2 WILL WRITE THE CONTENTS 0,
ALL THE WAt TO ~ND.OF-TAPE(EOT).

276

277

THE SWITCH REGISTER

278
279

LOOP3 WILL READ

2B0
2B 1

NOTE,

LDOP2 AND LOOP3 WILL REWIND
THEN START OVER.

,LOAD

SWITCH REGISTER INTO THE TACS

2B2

TO EDT. DATA WILL GO TO R0.
WHEN EDT IS REACHED AND

2BJ
2B4
285

286
287
28B

289
290
291
292
293
294

000500
000500
00"SoH

017714
000775

000434

LOOP!'

HOV

@SWR,!iiiTACS

;LOAO TACS

LOOP!

1LOOP

TAl! BASIC LOGIC TEST (PART I)

MAINDEC-II-DZTAA-C
MAO!! 27(732)
WRITE SwITCH REGISTER ON TApE FROM BOT TO EOT

DZTAAC.NEW

II-JUN-76

15,15

PAGE B

295

296
297
298

299
300
301
302
3D3
304
305

306
307
308
309

310
311
lI2

313
1I4
lI5

: WRITE SWITCH REGISTER ON TAPE FROM. BOT TO EOT

:; ••••••• ** •••••••••• * •• ** ••••• * •••••••••••••••••• ** ••• -•• * ••••••
• =600

000600
000602
000604
000610
000614
000616
000622
000624
00062&
0006)2
000634
000640
000642

000005
B10l! 4

112714
03271 4

LODP2,

000017
000040

IS:

001775

112714

000003

2$'

1057\4
100003

017715

000306

00077 3
032714

000040

l$,

001357
000767

RESET
HOV
MOVB
BIT
BEQ
MOVB
TSTS
8PL

:CLEAR ALL FLAGS
DRIVE,@TACs
UREWIND tGO,@TACS

IiREADY,@TACS

,SELECT DRIVE
,GO TO BOT

,WAIT TILL READY COMES Up

#WRITE1GO,@TACS
nACS

; STAftT A WRITE
,CHECK FOR TRANSFER REQUEST
,SR IF NOT SET

MOV
BR

@SWR,@TADB
25

,LOOP

BIT

llREAD'i,(lTACS

; DID READY SET?

BN~

LOOP2
2$

,START

,SEND DATA TO TAil

OVER IF YES

;LOOP

316

J17
lI8

,READ FROM BOT

121
322
323

324
325
326
327
328
329
330
331
332
lJ3
334
JJ5

TO EDT

; ; *.****.** ••••• '* *** •• ****.**.* •• ********.*. 'Ii *** .111- ••• ****.****.*.

3\9
320
000700

000700
000702
000704
000710
000714
000716
000722

000724
000726
000730

000732
000736
000740

LOOP 3,

000005

010314
112714

000017

032714

000040

001775
112714
105714
100002
011500
000774
032714
001l"0
000770

IS,

000005
2S,

000040

3$'

RESET
HOV

DRIVE, nACS

HOVS

# REWIND! GO, @lTACS
# READY. BTAes

BIT

CLEAR ALL fLAGS
SELECT DRIVE
START A REWIND
WAIT ON REWIND TO FINISH

SEQ

MOVB

#READ!GO,@TACS

ISTS
BPL

@TACS

HOV
BR

@lTADB,R0
2$

LOOP

BIT

#READY.@TACS
LOOP3

CHECK READY

BNE
SR

START A READ
CHECK TRANSFER REQ
BR IF NOT SET
PICKUP THE DATA
START OVER
LOOP

SEQ 0022

MACY11

TAIl BASIC LOGIC TEST (PART I)
DZTAAC, NEW
COMMON TAGS

,BBTTL

336
337

138
339

27(732)

1!-JUN-76

15.15

PAGE 9

COMMON TAGS

' * ** ** ** ** *.***!Ii> **.j,!o *' *** ..
if if

*'BHIHI!'**~

'* *** !I!o*** *' * *'* *' *' ****4* ***** **
'lifo

'it

1)1'

<Ie>

,"THIS TABL~ CONTAINS VARIOUS COMMON STORAGE LOCATIONS
,*USED IN THE PROGRAM,

340
341

342

SEQ 0023

001100

sCHlAG,

343

0~1100

344

W01100

000000

HASSI

,WORD

001102

000

nSTNM.

,BYTE

0
0

,:CONTAINS PASS COUNT

34S
346

000

URFLG, ,BYTE
,WORD
SleNl.

I ,CONTAINS ~RROR FLAG
"CONTAINS BUSTEST ITERATION COUNT

00110)
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
00114O

347

348
349
350
l51

352
35l
354

l55
356
357
358

359
Jbe
361
362
363
304
lb5

~01142
~01144

366

~01 146

361

001150
001152
001154
00\155

JoB
lo9
310

0~1156

371
372

001157
001160

373
374
375
116
377
JIB

001162
001164
001166
"'~1170

379
3B0

001172
001\76
"01171
00121:10

3Rl
3B2

3B3
lB4
385
386
387
38 B
389
390
391

001202
001204
001206
00121"
001212
001214
001216

001222

000000

BLPADR,

000000
000000
000
001

SLPERR.

000000

SERRPC. ,WORD

&ERTTL.
& ITEMS.
sERMAX,

00000e

SGDADR.
eBDADR,

000000
000000
00000"
000000
000000
000
000
000000

SGDDAT,
SBDDAT,

001224
001230

194

001212

395

001234

,WORD
,,"WORD
,WORD
,WORD
,WORD
oB'iTE
~BYTE

,WORD
SWR'
DISPLAY : ,WORD
177560
BTKS'
SIKB,
177562
117564
STPS:
,TPB,
177566
,Byn
'NULL:
,FILLS: ,BYTE
$rILl"C: ,BYTE
STPFLG: ,BYT~
SREGAD: -gWORD

17751~

177570

000 J 7 7

015
000012

SREG1:
~ WORD
STIMES: 0
SESCAPE'0
SBELL:
,ASeIZ
SQUES,
,ASCII
SCR[,F:
,ASCII
SLF:
,ASC I Z
J:

IICONTAINS THE TEST NUMBER

0
0
0
0
0

,:CONTAINS SCOPE LOOP ADDRESS
,:CONTAINS SCOPE RETURN FOR ERRORS
: ,CONTA INS TOTAL ERRORS DETECTED
,!CONTAINS ITEM CONTROL BYTE
!ICONTAINS MAX, ERRORS PER TEST
: ICONTAlNS PC Of LAST ERROR INSTRUCTION

I
0
0
0
0
0
0
0
0
0
0
DSWR
DDISP

IICDNTAINS ADDRESS Of 'GOOD' DATA
:,CONTAINS ADDRESS OF 'BAD' DATA
"CONTAINS 'GOOD' DATA
"CONTAINS 'BAD' DATA
;,RESERVED'-NOT TO BE USED
::AUTOMATIC MODE INDICATOR
;; INTERRUPT MODE INDICATOR
,;ADDRESS
,;ADDRESS

"TTY PRINTER STATUS REG, ADDRESS
;,TTY PRINTER BurrER REG, ADDRESS
;;CONTAINS NULL CHARACTER fOR fILLS
;,CONTAINS , OF FILLER CHARACTERS REaUIRED

0
2
12
0
0

f:lNSERT FILL CHARS~ AFTER A ~LINE FEED"
;: "TERMINAL AVAILABLE" fLAG (BIT<07>=0=YES)
,:CONTAINS THE ADDRESS FROM
"wHICH
(SREG0) WAS OBTAINED
"CONTAINS (SREGAD)t01
; ,CONTAINS (SREGADl+21
::MAX, NUMBoR OF ITERATIONS
: ,ESC APE ON

ERROR ADDRESS

<207)(377)<377> "CODE fOR BELL
: ;QUESTION MARK
111
<15>
; ~CARRIAGE RETURN
;, LINE fEE!)
<: 12>

***************
.**** ~** ** ****'JIo* ** *******
****** *********.******
,WORD
0
:STORAGE FOR THE PC
&;

SAVPC:

000262

or SWITCH REGISTER
or DISPLAY REGISTER

;;TTY KSD STATUS
;;TTY KBD BUFFER

~ WOFID

S REG0:

017

000000
000000
17750"
177501
177502
177503
000260
000300

,RYTE
,SHE

,WORD

11156"
177562
117504
177566
000
002
012
000
000000
00000"
000000
000000
000000
\77607

,WORD
,WORD

,WORD

,WORD
SAUTOS,
SINTAG,

TAIl BASIC LOGIC TEST (PAPT 1)
DZTAAC, NEW
COMMON TAGS
392
391

"START 0; COMMON TAGS

SAVPS:

,WORD

:STORAGE FOR THE PS

TACSL:
TACSH:
TAD%,
TADSR,
TAVEr,
TAPPIO,

177500
17750.
177502
17750]
260,262

,LOW BYTE ADDRESS Of TACS
,HIGH BYTE ADDRESS OF TACS

300

MUNDEC-l1-DZTAA·C

00.0~0

DRV~EY

001224
0~000"

DRVPNT
ASK KEY

000000

(URURV

'"ow BYTE ADDRESS Of TAOS
,HIGH BYTE ADDRESS Of TAOB
;TAII VECTOR ADDRESS
,TAIl 8R LEVEL 6

HACll!

27(732)

II-JUN-76

15:15

PAGE 10

O,0
DRVKEI

,DRIVE SELECT KEY:

,CURRENT DRIVE BEING TESTED

SEQ 0024

TAll BASIC LOGIC TEST (PART 1) MAINOEC-ll-0ZTAA·C
OZTAAC ,NEW
ERROR POINTER TABLE
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451

,SBTTL

MACYlI 27(732)

15.15

PAGE 11

SEQ 0025

ERROR POINTER TABLE

.*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
,*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
I*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC),
:*NOTEll
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS.
J*NOTE2:
EM
DH
OT
OF

1*
I·
1*
1*
001236

IIPOINTS TO THE ERROR MESSAGE
I ,POINTS TO THE DATA HEADER
;;POINTS TO THE DATA
I,POINTS TO THE DATA FORMAT

SERRTB,

001236
001240
001242
001244

015712
016124
IH6272
000000

001246
001250
001252
001254

0157J1
016141
016300
1100000

001256
001260
001262
001264

015757
016141
016300
000"00

00126b
0111270
001272
001274

016020
016141
016300
0110000

001276
001100
0013112
001304

016043
016176
016310

0111300
001310
001312
001314

010070
016234
016322
000000

001316

016070

INOTE'

ALL NUMBERS ARE TYPED AS 6-0IGIT OCTAL NUMBERS

IITEH

1
EH1
DHI
OT1
0

,STATUS PROBLEM
IPC
TACS
ISERRPC SREGS

lITEM

2
EH2
DH2
DT2
0

,READY FAILED TO SET
,PC
TACS
WAIT ADDRESS
,SERRPC SREG0
SAVPC

;ITEM

3
EM3
DH2
DT2
0

ITRANSFER REQUEST FAILED TO SET
WAIT ADDRESS
TACS
IPC
,SERRPC SREG0
SAVPC

lITEM

4
EM4
DH2
DT2
0

ITHE WRONG FLAG SET
TACS
WAIT ADDRESS
:PC
ISERRPC SREGS
SAVPC

lITEM

5
EMS
OH5
DT5
0

,COUNT PATTERN FAILED
;PC
TACS
EXPECT
I SERRPC SREG0
SGDDAT

lITEM

6
EM6
DHo
DT6
0

10ATA PROB~EM
TADS
IPC
ISERRPC SREG1

,ITEM

0110011~

EM6

001320
001122
001324

016176
016310
000000

001326
1101110
001332
001334

016105
016251
016110
0001100

DH5
DT5
:lTEM

"10

MACHI 27(732)
IPC
,S~RRPC

TACS
SREG0

EXPECT
SGODAT

!1-JUN-70

15115

RCV'O

SBDDAT

EM10
OH111
DT10
0

IADDRESS FAI~ED
ADDRESS
IPC
ISERRPC SBDADR

ITA!1 FAILED TO RESPOND
;PC
TACS
ISERRPC TACS
,BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS

IITEMS 201-202

ITEMS2:

0111336

RCV'O
SBDOAT

,DATA PROBLEM

TAil BASIC LOGIC TEST (PART I) MAINDEC-11-DZTAA-C
ERROR POINTER TABLE
DZTUC.NEW
452
453
454
455
456
457
458
459
460
461
462
4bl
464
465
466
461
468
469
4711
471
412
473

11-JUN-76

001336
001340
001342
001344

016350
B16422
016336

EM201
DH201
012111

000110~

001346
001350
001352
001354

016377
016437
016344
000000

EM202
DH202
DT202
0

,NO DRIVES AVAILABLE
,PC
, SERRPC

PAGE 12

SEQ 0026

TAil BASIC LOGIC TEST (PART 1)
MAINDEC-II-DZTAA-C
DZTAAC.NEW
START OF TEST
474
415
476
477
478
479
480
481
482
483
484
485
486
487
488
489
49~

491
492
493
494
495
496
497
49B
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
'511
518
519
520
521
522
523
524
525
526
527
528
529

MACYII 27(732)

S5~"

551
552
553
554

15:15

PAGE 13

SEQ 0027

,1111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111
:;**********.**.***** ••••••• *** •••• ** •• *** •••• **.*** ••••• *.**.***
,BEGIN!
,BEGIN2
,BEGIN3
,8EGIN4

001356
001360
"~136b

001374
001376
00140.
001406
0014\0
~101414

001Ub
001422
001<2.
001430
00143"
001434
001436
001442

005005
012737
122737
001015
022737
001011
000403
012705
000405
012705
000402
012705

012706

001224
000041
000260

001100
001140

~01444

0127~6

001100

012737
012737
012737
012737
0127 J7
012737
012737
012131
016707

011232
00" 3 40
011504
"0034"
015322
000340
01540b
000340
007424
177424
177422
000001
001554
001562

00157"
001574

" 13746
012731
012767
0127b7
.22777
,,01012

0!albl~

001616
001624

CMPB

~051::i6 7

000020
000022
000030
000032
000034
000036
000024
000026
007414
177341
177324
177320

00fl0~4

001&30
117570
17757"
177777

000004
177330
177324
177314

NORMAL START
DRIVE SELECTION
DRIVE & ADDRESS SELECTION
MANUAL OPERATION

,NORMAL START

#"AB,@.IIlDRVKEY
'5,@l$41
eGNCMN

012716
;(100002

130165b

"12767
012767
012637

""5227

000116
000114
0~000 4

"~1036

O22737
0"1432
104401

01120"

0017e"
001704

005737

0"0042

~01706

026727
001005
104405

00171 4
"01116
""1720
001122
001730
w'0l7 3~'
001760

00""42

m11732

001006

177226

000176

0000'"'1

117204

'H'j()4~3

112767
000413

65S:
66S:

177777

~e1662

001664
001672
001 b 7 4

177274
177270

LOCATION TO BE CLEARED

MEMORY LOCATION

;~CLEAR

BNE

.-6

:;LOOP BACK IF NO

MOV

nSTACK,SP

::SETUP THE STACK POINTER

: :DONE?

:,IOT VECTOR FOR SCOPE ROUTINE

MOV

#34V1,liIltIO't'VEC+2

MOV
MOv
Mav

HERROR'@'EMTVEC :, EMT VECTOR FOR ERROR ROUTINE
#340,(HEMTVEC+2 :;LEVE.L 7
#STRAP,!a#TRAPVEC f:TRAP VECTOR FOR TRAP CALLS

::LEVEL 7

MOV

#340,~#TRAPVEC+2;LEVEL

~ov

MOV
MOV

#SPWRDN,@#PWRVEC ::POWER fAILURE VECTOR
#340,@#PWRVEC+2 ; ;LEVEL 7
SENDCT,SEOPCT
;:SETUP EN()-OF ... PROGRAM COUNTER

CLR
CLR

STIMES
SESCAPC

MOVS

j/1,$ERMAX

i;ALLOW ONE ERROR PER TEST

"INITIALIZE THE LOOP ADDRESS fOR SCOPE

::INITIALIZE NUMBER OF ITERATIONS
; ,CLeAR THE ESCAPE ON ERROR ADDRESS

MOV

,,,SLPADR

MOV

"., $LPE~R

aNS

66S

65$

;; SETUP THE i=;RROR LOOP ADDRESS
; J SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT rOUND OR IT IS
:;EQUAL TO A ""1", SETUP FOR A SOFTWARE SWITCH REGISTER.
Mav
!aIfERRVEC,-(SP)
;:SAVE ERROR VECTOR
MOV
n.b4$,~#ERRVEC
::S£1 UP ERROR VECTOR
MOV
rtDSWR,SWR
; ;SETUP fOR A HARDWARE swICH REGIsrl=:R
MOV
nDDIsp,DISPLAY; :.6.ND A HARDWARE DISPLAY REGISTER
eMP
,,"'l,@SWR
;;TRY TO REFERJ::NCI:: HARDWARE SWR

64S:

""1636

,GO BEGIN COMMON CODE IF NO
,GET DRIVES AND ADDRESSES
,ASK FOR DRIVES FLAG
,BEGIN CDMMON CODE
,ASK FOR DRIVES AND ADDRESSES

(Rb)+
#SWR,R6

"BRANCH H

; ;AND

e~1630

; STANDARD VECTOR1

eMF

::INITIALIZE A FEW VECTORS
MOV
'SSCOPE'~'IOTVEC

001626

0016)4
001636
U01hH
""1652

,CASSETTE DDP?
,GO BEGIN COMMON CODE IF NO

BNE
CMp
#2&10, fHTAVEC
BGNCMN
BNE
BR
BEGIN3
BEGIN2: MOV
• t, R5
aGNCMN
BR
BEGIN): MOV
#2,R5
BGNCMN
SR
BEGIN4: MOV
Al,RS
BGNCMN:
.SBTTL
INITIALIZE THE COMMON TAGS
"CLEAR THE CDMMON TAGS (SCHlAG) AREA
HOV
'SCMIAG,R6
"FIRST

CLB

022706
0013H

005067
112167
012767
012767

FOR
fOR
FOR
FOR

BEG IN 1, C.LR
MOV

~05026

""1450
001456
001464
001472
001500
001506
001514
001522
001530
001536
001542
"'01546
001554
001562

"'016~2

001216

IS
IS
IS
IS

TAil BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
DZTAAC. NEw
IN 1 TlALIZE THE COMMON TAGS
53"
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
544

II-JUN-76

MOV
RTI
MOV
MOV
MOV

THE

;~BRANCH

MACYll 27(732)

#6SS,(SP)

NO TIMEOUT TRAP OCCURRED
HARD~ARE

SWR IS NOT = -1

If NO TlMEOUT

ll-JUN-76

15: 15

PAGE 14

: :SET UP fOR TRAP RETURN

TO SOfT dARE SWR
#OlSPREG,DISPLAY
(SP) +, @I/:ERRVEC
;;FlESTORE ERROR VECTOR
nSwREG,Si'JR

;~POINT

TYPE PROGRAM NAME
I SBTTL
" TYPE THE NAME OF THE-: PROGRAM IF FIRST PASS
INC
n-l
:;fIRST TIME?
BNE
HERE
;;BRANCH IF NO
CMp
IISENDA.D,@#42
;:ACI-l1?
BEQ
HERE
;;BRANCH If YES
,MSGID
TYPE
;1TYPE ASCIZ STRING
.SBTTL
GET VALUE FOR SOFTWARE SWITCH REGISTER
TS!
;;ARE WE RUNNING UNDER XXDP/ACT1
@'42
SNE
67S
:;bRANCH IF ¥ES
CMP
SWR,#SwPEG
; :SOFTW~RE SWITCH REG SELECTED)
BNE
6BS
;:BRANCH IF NO
GTSWR
;; GET SOfT-SWR SETTINGS
BR
6BS
MOVH
til, SAUTOS
:, SET AUTO-MODE INDICATOR
67$ :
b8S:
HERE
aR
,:GET OVER THE ASCIZ
;~MSGID:
.ASClZ <CRLf> I"AI NDEC-II-DZT u-c I<CRLF>
HERE:

sEQ 0028

TAil BASIC .OGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC.NEW
GET VALUE FOR SOFTWARE SWITCH REGISTER

II-JUN-76

15.15

PAGE 15

SEQ 0029

JJ ••••••••••• *•••••••••• _•••• * •••••••••••• _* ••••••••••• ** ••• 4 •• *.
IJ············································.·····...._•......•

555
556

557

,THE CONTENTS OF R5 DETERMINES WHAT WI.L BE DONE

558

559

5b0

561
562
563
5H
565
566
5&7
568
569
570
571
572
573

MACYII 27(732)

,
I

RS-3
RS .. 2

MANUAL OPERATIONS
ASK FOR DRIVElS) AND ADDRESSES (TACS AND VECTOR)

RS .. !

ASK FOR DRIVElS)

RS-.

DON'T ASK ,OR ANYTHING

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

"~1761'

010504

"01762
"01764
00171>6
001172
001774

005305
""2406

001176

004737

004737
0"5305

BEGINX. MOV

DEC
aLT

012222

JSR

012332

BLT
JSR

DEC

002402

R5,R4

CHKADR
PC,'IASKDRV
R5
CHKADR
PC,'IASKADR

,COPY RS
IASK FOR DRIVES?
IBA IF NO
IGO GET DRIVES TO 8E TESTED
IASK FOR ADDRESSES?
,SR IF NO
IGO GET TAli ADDRESSES

*._._......

" ••••••••••••••••••••••••••••••••••••••••••••• *••••••
~ J ••• **** ••Hlt • • • • • * •• ** ••••••• ** •••••• ***** ••• ***.******* ••• **** ...

574

575
576
577
578
579

,CHECK THAT "TACS' WILL RESPOND TO ADDRESSING
TIMEOUT OCCURRED
A, TYPE ERROR MESSAGE
S, EXAMINE R4
I. R4>0 GOTO BEGINX
2, R4=0 EXA~INE (421
A. (421=0 GOTO SEGINX
8, (42»0 GOTO SENOAD

580
581
582
583
581

:
,II.

585
586

587

TiMEOUT DIDN'T OCCUR
A, CONTINUE

588

589
590
591
592
593
594
595
59b
597
598
599
600
601
602
603
60\

605
606

002002

012137

00201~

005000
005777
000402
00520"
022626
012737
00570"
001412
104201
012705
005104
0"1144

002012
002016

002020
002022
002"24

002032
002034
~02036

002040
002044
002046

002050
002054
002056
002062

013700

000004
177170

000004

000042

~01741

0001 J7

011200

: : ** *****MOY
********_**********************.******.***************4lo*
CHKADR,
U$.~IERRVEC
:IN CASE OF TIMEOUTS
CLR
R0
,US~ AS A SWITCH
1ST
@lACS.
,SEE IF TAil RESPONDS
BR
2S
:BR IF NO TIMEOUT
R0
:COME HERE ON TIMEOUT
1$'
INC
CMp
(SP)+.!SP1+
,CLEANUP THE STACK
2 $,
MOY
'ERRVEC.2.~'ERRVEC
,RESTORE TIMEOUT VECTOR
R0
1ST
:010 A TIMEOUT OCCUR?
S~Q
3$
;BH IF NO
ERROR
201
:TAII FAILED TO RESPOND
MOV
82, P5
:DRIVES , ADDRESSES
TST
R4
:OPERATOR INPUTS?
b~E
SEGINX
JBR IF YES
MOV
IiIlt42,R!6
:GET MONITOR RETURN ADDRESS
SEQ
BEGINX
:SR IF NO MONITOR
JMP
@'SENDAD
,GO TO END
3S,

TAil BASIC LOGIC TEST (PART I)

DZTAAC,NEW

HAINDEe-1 I -DZTAA-C
GET VALUE FOR SOFTWARE SWITCH REGISTER

6~R

643

644
645
646
647
648
649

650

651
652
653
654
655
656
657
658
659
660
6bl
662

SEQ 0030

OESIRED DRIVES CAN NOT SE TESTED
A. TYPE ERkOR MESSAGE
B. EXAMINE R4
I. R4>0 GOTO BEGINX
2. R4=0 EXAoINE (42)
A. (42)=0 GOTO BEGINX
a, (42»0 GOTO $ENOAD
f

:11.
:

624

642

PAGE 16

:MAKE SURE THE DRIVES IN THE DRIVE TAB.E CAN B~ TESTEO

610
611
612
611
614
615
616
617
618
619
620
621
622
623

639
6411
641

15:15

;1************···*******·****···******·****************_.-_ ...... .

6~9

637
638

II-JUN-76

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

607

625
626
627
628
629
I>J0
631
632
633
634
635
6j6

MACYlI 27(732)

:III.

002062
002066
002A72
002A74
002100
002102
002106
0112110
002112
0021 \4
002116
002122
002124
002126
002132
002136
1102142
1102144
002150
002152
002154
002156
002160
002164
002166
002170
002114
002176
002202

::m:
0022\ 4
002220
002222
002226

11127~0

004737
0004111
116010
001412
004737
""0407
005010
000405
005200
004737
000401
105010
012700
010037
lU060
00U02
11l~0611

005710
001401
000412
104202
012105
005704
001274
013700
0111671
000137
020427
001002
016704
010437
000405
104401
012737

BOTH DRIVES IN THE TABLE BUT ONI,y ONE OF THEM CAN BE TESTED
A, C.EAR BAD DRIVE FROM THE DRIVE TABLE
S, CONTINUE IN PROGRAM
OESIRED DRIVE(S) CAN BE TESTED
A. CONTINUE IN PROGRAM

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

CHKDRV: MOV
JSR

001224
013672

MOVS
BEQ
JSR
BR
CLP
BR

000001
013672

013672

INC
J5R

001224
001230
000001

SR
CLRS
MOV
MOV
CMPS

1$,

2S:

000002
000042
011200
000003
175563
001232
001732
001224

001230

!( Rlll'( R01

2$
PC.~3EXAM

2S
(R0)
2$
R0
PC.@IEXAM
2S
(R0)
.DRVKEY.R0
R0.~IDRVPNT

(R01.I(R01
3S
CLRB
tlR0)
3S,
TST
(R0)
BEQ
5S
BR
MANUAL
5$,
ERROR
202
MOV
.2.R5
1ST
R4
SNE
BEGINX
HOV
@#42.R0
SEQ
BEGINX
JMP
i.SENDAD
MANUAL, CMP R4.'3
BNE
OK
MOV
"'1,R4
OK,
MOV
R4.93ASKKEX
BR START
PWRST: TYPE
.MSGID
MOV
,ORVKEY.@IDRVPNT
SHE

000001

.DRVKEY.R0

PC,~IEXAM

,PICKUP ADDRESS OF ASCII DRIVE KEY
,GO EXAMINE FIRST DRIVE
,OK TO TEST---GO CHECK NEXT
• REPLACE I ST wITH 2ND
,BR IF NO 2ND DRIVE SELECTED
:GO EXAMINE DRIVE
,OK TO TEST
,CLEAR DRIVE CODES

:POINT TO 2ND
'CO EXAMINE DRIVE
,OK TO TEST
,C.EAR 2ND
,RESET ADDRESS POI~TERS
:IST = 2~D?
,SR IF NO
,YES---CLEAR 2ND
,ANY DRIVES?
:SR IF NO
:NO DRIVES AVAI.ABLE
,DRIVES' ADDRESS
,OPERATOR INPUTS?
,BR IF YES
:GET MONITOR RETURN ADDRESS
,NO MONITOR
,GO TO END

,POWER FAIL RESTART

TAil BASIC LOGIC TEST (PART II
DZTAAC,NEW
&63
6&4
665
&66
667
668
669
670
671
672
673
674
675
b7&
677
678
679
6B0
6BI
682
6B3
684
685
686
687
&88
689
690
691
692
693
694
,95
696
6~7

6q8

b99
700
701
702
70)
704
705
706
707
709
709

0022H
002242
002246
002254
00226~

002264
002270
002272
002300
002304
002106
002312
002J42
002J42
002346
002350
002354
002360
002362
002366
002366
002372

813777

901230

1105077
0127J7
013704
BU70S
005737
001024
012717
0057)7
001016
104401
000413

176152
000340
0012116
"01212
"01100
077777
000042

176754

MOV

STAnl

eLf!

MOV
MOV
MOV
TST
8NE
'MOV
TST
BNE
TYPE

177776

012116

002314

,ASCIZ

1165S1
648:
005037
005003
013701
\21127
001402
012703

001102
001230
000101

104401
000411

002374

CLR

II:

000400

CLR
MOV
CMPB
BEQ
MOV

TDRVI

TYP,
SR
,ASCIZ

; ,6SS:

002416
002416
002422
002426
002432
002134
00243.
002442
00244b
002452
002454
002456
0024.~

002466
001470
002472
002472
00247b
002500
002502
002506
002512

MACYII 27C7l21

MAlNDEC-ll·0ZTU-C

II-JUN-?6

!SItS

PAGE 17

64& I
112167
104401
104401
105711
001002
012701
0101H
0057 H
002007
005000

MOVS
TYPE
TYPE
TSTB
BNE
MOV
MOV
TST
BGE
eLR
HALT
CMP
SNE
GTSWR

PHI2
001234
001177
001224
001230
001232

1 s:

00"00~

022707
001001
104405

000176

005737
001406
01eUI
112714
032711
001775

000042

176452

"TAVEC+2,tTAVEC
eTAVEC+2
U40,UPS
.. TACSL, TACS
.ITADBL,TADB
'UPASS
18
'-CBITI5,"MAXCNT
.142
IS

,b5S
648
<15'<12./DO

,LOCKOUT ALL I/O INT
,SETUP TACS
,SETUP TADB
,IF FIRST PASS SETUP rOR EXTRA LONG WAlT LOOPS
,OTHERWISE USE oLD VALUES

,ZERO THE TEST NUMBER
,5ET DRIVE TO "An
,GET DRIVE POINTER
,IS IT DRIVE 'A"?
,aR IF YES
,SET DMIVE TO 's'

,ITYPE ABCIZ STRING
,65.
"GET OVER THE ABelZ
<15'<12.*TESTING DRIVE *

648

(Rll+,CURDRV
,CURDRV
,$CRLF
(RI)
IS

.DRVKEY.RI
RI, ~S DRVPNT
~USKKEY

2$
RI!
ISI'IIREG,SWR
20$

20S:
,THIS CODE IS FOR ACTII , DOP
,U2
TST
2S1
B~Q
T5TI
DRIVE,@TACS
MOV
Mova
'REWINDIGO,nACS
.READy,nACS
BIT
35 I
BEQ
3$

000017
000040

,SETUP TAli TRAP VECTOR

,UNDER MONITOR CONTROL?
,SKIP TYPEOUT IF YES
"TYPE ABCIZ STRING
"GET OVER THE ABCIZ
MANUAL REWINDI

'UTSTNM
DRIVE
tfORVPNT,RI
(RI),S'A
TDRV
SUNIT,DRIVE

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC ,NEW
GET VALUE FOR SOFTWARE SWITCH REGISTER

MACYlI 27(732)

,SETUP TO TYPE CURRENT DRIVE
,TYPE A CR , LF
,LAST DRIVE SEEN SELECTED
,BR IF NO
,RESET DRIVE POINTER
,SAVE DRIVE POINTER FOR NEXT TIME
,GO START TESTING IF NO MANUAL
OPERATIONS REQUESTED
,GIVE CONTROL TO THE OPERATOR
,SOFTWARE SWITCH REG,?
,NO - L~T HIM GO
,GET NEW 5WR VALUE
,IS THERE A MONITOR?
'CO START TESTING IF NO
IIF ~ES SELECT DRIVE
,SEND TAPE TO BOT
,WAIT ON READY
,FALL THRU If READY:I

II-JUN-7.

15:15

PAGE 18

710
711
712
713
714
715
716

,THE FOLLOWING TESTS WILL CHECK THE TAil
,STATUS (TACS) AND DATA BUFFER (TAOS) REGISTERS
,TO INSURE THAT THEY RESPOND TO ADDRESSING,

7\7

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

719
719
720
721
722
723
724
725
726
727
728
729
7J~

731
132
7B

734
735
736
737
He

739
740
74\
742
743
744
745
746
747
149
749
75~

751
752
753
754
755
75b
757
759
759
760
761

SEQ eUI

GET VALUE FOR SOfTWARE SWITCH REGISTER

SEQ 0"32

,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 1/ 1/ I I I I I I I I I I 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 I / I / I I /

,1111/1/111111111/11111111111111111111111111/1111//111111/1/111/11111/1

,TAli REGISTER ADDRESS TEST
,INSURE THAT TACS RESPONDS TO ADDRESSING

~:*.**

•• ***4****.****.***.** •• *.****.*******.****.**** •••••••••••

i.TEST t

002514
002516
002524
00253a
002536
002540

000001
001100
002542

000004

~e000&

0~0004

002550
002552
00255b
002504
002570

012767
012706
012737
005014
0d0420
012737
022626
01374&
012737
010437
104010

002572
002576
002002

012637
000137
012737

000030
011124
000006

0n542

TEST IF TACS EXIST

; : ****.* ..... ** ....... ". ******.* **** ... *** ...... ***. flo". .. flHHIHlHt * ............ *..... ** ...

00~004

176442

SCOPE
MOV
MOV
MOV
CLR
SR
MOV
CMP
MOV
MOV
MOV
ERROR

TSTI'

1$:

00003~

011516
001122

000030

000004

MOV
JMP
MOV

2S,

#I,HIMES
;:DO 1 ITERATION
'STACK.SP
,SETUP THE STACK POINTER
#I$.UERRVEC
,SETUP FOR BUS TIMEOUT
@TACS
,TACS ARE YOU THERE?
2$
,YES -- NO TRAP
tERRVEC+2,@.ERRVEC
,RESTORE TRAP CATCHER
(SP)+'(SP)+
,CLEAN UP THE STACK
UEMTVEC.-(sP)
,SETUP FOR THIS ERROR CALL
tERRORI. UEMTVEC
,SKIP OVER THE SAVE OF TACS AND TADB
TACS.~SS8DADR
,GET THE FAILING ADDRESS
10
,ERROR -- TIME OUT OCCURRED
,WHEN ADDRESSING THE TACS REGISTER
(SPJ+.i.EMTVEC
,RESTORE THE ERROR CAL~S VECTOR
@UEOP
,GO TO END OF PROGRAM
.ERRVEC+2, i.ERRVEC
,RESTORE TRAP CATCHER

if····*-·*·_···_··_··_·_·-.-.·**._._*
••.*.** ••• -••••••• _.*.-*._-,TAli REGISTER ADDRESS TEST
,INSURE THAT TAOS RESPONDS TO ADDRESSING

::**********************************************.****************
:*TE'ST 2

00261~

002612
002620
002624
002632
002634
002&36
002644
002646
002652
002660
002664
002b66

002672
002676

000004
012767
012706
012717
005015
000420
012H7
022626
013746
012H7
010537
104010
012637
000137
012737

TEST IF TADB EXIST

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

000001

176346

001100
002636

0000~4

000006

000004

000030
01151b
001122

000030

000030
011124
000006

000004

TST2:

IS:

2S1

SCOPE
HOV
MOY
MOV
CLR
SR
MOV
CliP
MOV
MOV
MOV
ERROR
MOV
JMP
MOY

U, STIM~S
nDO I ITERATION
'STACK,SP
,SETUP THE STACK POINTER
US.@.ERRVEC
,SETUP FOR SUS TIMEOUT
nADS
,TADB ARE YOU THERE?
2S
,YES -- NO TRAP
.ERRVEC+2,@.ERRVEC
,RESTORE TRAP CATCHER
(SP)+.cSPI+
,CLEAN UP THE STACK
'#EMTVEC.-(SP)
,SETUP FOR THIS ERROR CALL
URRORI. UEMTVEC
,SKIP OVER THE SAVE OF TACS AND TADB
TAilS, USBDADR
,GET THE FAILING ADDRESS
10
,ERROR -- TIME OUT OCCURRED
,WHEN ADDRESSING THE TADB REGISTER
(SP)+,UEMTVEC
,RESTORE THE ERROR CALLS VECTOR
U$EOP
,GO TO ENO OF PROGRAM
SERRVEC+2,@.ERRVEC
,RESTORE TRAP CATCHER

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-DITAA-C
DZTAAC.NEW
T2
TEST IF TADB EXIST
762
763
764
765
7&6
767
768
769
770
77\
772
773
774
775
776
777
778
779
780
781
782
783
784
785
796
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
80]
80'
80S
906
807
809
809
810

B2~

B21
822
823
824
825
826

,TAil REGISTE~ ADDRESS TEST
,INSURE THAT TACS RESPONDS TO ADDRESSING

,*TEST 3

002704
002706
002714
002720
002726
002730
002732
002740
002742
002746
002754
002760

11110004
1112767
1112706
012737
105014
000420
0127)7
022&26
013746
012737
010437
104010

002762
1I1!l2766
002772

012037
000137
012737

TEST FOR LOW BYTE OF TACS

~'***.********.************************.**************

TST3:
0011004

000006

1100004

000030
011516
001122

000030

000030
011124
000006

SCOPE
MOV
MOV
MOV
CLRB
BR
MOV
CMP
MOV
MOV
MOV
ERROR

176252

000001
001100
002732

000004

IS:

MOV
JMP
HOV

2$1

84~

841
842
843
844
845
846
847
848
849
850
asl
852
853
854

PAGE 19

SEQ 0033

_.**.

••• _••••• --

U.$TIMES

:,00 1 ITERATION
tlSTACK,SP
:SETUP THE STACK POINTER
11$. UERRVEC
,SETUP FOR SUS TIMEOUT
@lACS
,TACS ARE YOU THERE?
2S
,YES -- NO TRAP
,RESTORE TRAP CATCHER
'ERRVEC'2.~'ERRVEC
(SP)+,(SP)+
,CLEAN UP THE STACK
UEMTVEC.-CSP)
,SETUP FOR THIS ERROR CALL
IERRORI'~'EMTVEC
,SKIP OVER THE SAVE OF TACS AND TADB
TACS. ~1$8DADR
,GET THE FAILING ADDRESS
10
,ERROR -- TIME OUT OCCURRED
,WHEN ADDRESSING THE TACS REGISTER
,RESTORE THE ERROR CALLS VECTOR
(SPl+.UEMTVEC
USEOP
:GO TO END OF PROGRAM
'E~RVEC+2.~#E~RVEC
,RESTORE TRAP CATCHER

;, ••••••••••••••••••••••••• * ••••• -•••••••••• _••••••••••••••••••••
,TAll REGISTER ADDRESS TEST
,INSURE THAT TAOS RESPONDS TO

ADD~ESSING

Jr·······-··-···_··*·_·····*·······*··················
•••.• -_._-TEST FOR LOW BYTE OF TAOS

,*TEST 4

,:_.444ft.44_ •• __ ••••••• *••• *.*.*****.*** ••• **.*****.****.*.*.* .....
003000
1103~02

003010
1103014
~03022
0,03024
003026
003034
003113&
003042
003050
0031154
003050
003062
003006

000004
012767
012706
012137
1115015
000H0
012731
02262&
013746
012737
010537

TST4:
000001
"01100
003026

000004

000006

000004

SCOPE
MOV
MOV
MOV
CLRS
BR
MOV
CMP
MOV
MOV
MOV
ERROR

17&156

1$:

"0003~

011516
001122

000030

1~4010

1112637
000137
012717

MOV
JMP
MOV

0"0"3~

011124
000006

000004

2$1

11,STIMF.S
#STACK,SP

::00 I ITERATION

IIS.UERRVEC
'TAOS
2$
'ERRVEC+2'~'E~RVEC

<SP)+,(SP)+
~'EMTVEC.-(SP)
,ERRORI. ~'EMTVEC

TADB. ~UBDADR
10
(SPlt.@.E"TVEC
USEOP
.ERRVEC+2.@.ERRVEC

,SETUP THE STACK POI"TER
,SETUP fOR SUS TIMEOUT
:TADS ARE YOU THERE?
,YES -- NO TRAP
,RESTORE TRAP CATCHER
,CLEAN UP THE STACK
:SETUP FOR THIS ERROR CALL
,SKIP OVER THE SAVE OF TACS AND TADB
,GET THE FAILING ADDRESS
IERROR -- TIME OUT OCCURRED
,WHEN ADORESSING THE TAOB REGISTER
,RESTORE THE ERROR CALLS VECTOR
:GO TO END OF PROGRAM
,RESTORE TRAP CATCHER

: : *** ******** *"*** **************************** ****.*******.*.* •• *.
:TAII REGISTER ADDRESS TEST
,INSU~E THAT TACSH RESPONDS TO ADDRESSING

:;***************.******************************************.*.**
I*TEST 5

003074
01131!l76
003104

"""!!l1l4
0127&7 000001
012706

tEST FOR HIGH BYTE OF TACS

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

TST5:
176062

001100

1103110
001110
110312l
0"3124
003132
003134
00l14~

003146
003154

012737
105077

003124
17606.

000004

000006

000004

000411

012737
022626
013746
012737
111.737

1$:

00003~
17&~]6

000030
001122

000030
011124
000006

000004

011516

10401~

B27
B2B
829
B30
B31
832
833
8]4
835
836
837
838
839

15115

: : .... ***** ..... ft . . . *4**** *••• * •• *.* ** .. ** ** ..... * .......... _..... *••••

SCOPE
"'OV

ffl,STJMES

MOV

.STACK.SP

TAli BASIC LOGIC TEST (PART I) MAINUEC-I\-DZTAA-C
DZTAAC,NEW
T5
TEST FOR HIGH BYTE OF TACS
BIB
819

II-JUN-76

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

8 II

B12
81]
B14
815
B16
B17

MACYII 27(732)

""3156
0"3162
1103166

~126]7

1100137
012731

2S:

MOV
CLR8
SR
MOV
CMp
MOV
MOV
MOV
ERROR

; :00 1 ITERATION

"ACV!I 27(732)
.. $.@.ERRVEC
@fACSH
2$
,ERRVEC+2.@8ERRVEC
(SP)+'(SP)+
~'EMTVEC.-CSP)
'ERRORI.@'EMTV~C

TACSH, ~"BDAD~
10

MOV

(SP)+'~'EMTVEC

Jto\p

@#$EOP

MOV

'~RRVEC+2."E~RVEC

:SETUP THE STACK POINTER

II-JUN-76

15:15

PAGE 20

SEQ 0034

,SETUP FOR SUS TIMEOUT
:TACSH ARE ¥OU THERE?
,YES -- NO TRAP
,RESTORE TRAP CATCHER
:CLEAN UP THE STACK
:SETUP FOR THIS E~RDR CALL
,SKIP OVER THE SAVE OF TACS AND TAOB
:G~T THE FAILING ADDRESS
,ERROR -- TIME OUT OCCURRED
:WHEN ADORESSING THE TACSH REGISTER
,RESTORE THE ERROR CALLS VECTOR
,GO TO END OF PROGRAM
:RESTORE TRAP CATCHER

: , ************ .... ************.************.* II" It._._.*._.* ........ .
,TAil REGISTER ADDRESS TEST
,INSURE THAT TAOSH RESPONDS TO ADDRESSING

::****.*.******.*.***.**** •• *••• ** •••••• *****.***.**** ••••• _•••••
,*TEST 6

003\ 74
003\ 76
003204
003210
003216
00]222
1103224
003232
003234
"03240
003246
003254

00,,004
012767
012706
012737
105077
000421
1112737
022626
1113746
012737
016737
104010

1103256
003262
003266

1112637
000137
012737

TEST FOR HIGH 8YTE OF TADB

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

TST6:
000001
011\100
003224
175772

175762
000004

SCOPE
MOV
MOV
MOV
CLRB
B~

000006

000004

000030
011516
175742

000030
001122

000030
1111124
11110006

000004

1$:

2$:

MOV
CMP
MOV
MOV
MOV
gRROR
MOV
JMP
MOV

II. $TIMES
~ 'DO 1 ITERATION
#STACK.SP
:SETUP THE STACK POINTE~
US.UERRVEC
:SETUP FOR BUS TIMEOUT
@TADBH
:TADBH ARE YOU THERE?
2$
:YES -- NO TRAP
JERRVEC+2. ~#ERRVEC
:RESTORE TRAP CATCHER
(SPl+. (SPl+
,CLEAN UP THE STACK
UEMTVEC.-CSP)
:SETUP FOR THIS ERROR CALL
IERRORI,~#EMTVEC
,SKIP OVER THE SAVE OF TACS AND TAOS
TADBH. USBDADR
,GET THE fAlLING ADDRESS
10
,ERROR -. TIME OUT OCCURRED
,WHEN ADDRESSING THE TADBH REGISTER
(SP)+.UEMTVEC
,RESTORE THE ERROR CALLS VECTOR
,GO
TO END OF PROGRAM
"SEOP
UR~VEC+2. UERRVEC
:RESTORE T~AP CATCHER

! •

MACYII 27(732)

TAil BASIC LOGIC TEST (PART 1) "AINDEC-11-DZTAA-C
DZTAAC.NEW
T6
TEST FOR HIGH BYTE OF TADB

II-JUN-76

15:15

PAGE 21

855
856
857
858
859

",1",1"",1"",1,1,1111",1",11",11""""11,,,11111111111111111

&b0

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

861
862
8&3
864
865
8&6
867
8&8
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905

SEQ 0035

11111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111 Nil II 11111 11111 11111 11111 11111 11111 11111 11111 III II

,THE FOLLOWING TESTS WILL CHECK THE INITIAL STATE OF ALL BITS
,IN THE TACS THAT ARE NOT DRIVE DEPENDENT.
I*TEST 7
003214
"03276
003304
003306
003312
003314

000004
012767
000005
032714
001101
104001

TEST INITIAL CONDITION OF TACS BITI4

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

T5T7I
003306

175602

040000

IS.

SCOPE
MOV
RESET
BIT
BEQ
ERMOR

81$. $LPADR

I,SET SCOPE LOOP ADDRESS

.BITl4.UACS
TSTI0

,IS BITI4 OF TACS = 01
"BR IF YES
,ERROR _. BrTI4 OF TACS DIDN'T INItIALIZE PROPER

;'***************************************************************
,.TEST 10

00331&
003320
003326
003330
003334
003336

000004
012767
000005
032714
00140\
104001

TEST INITIAL CONDITION Of TACS BITII

003330

175560

IS:

004000

SCOPE
MOV
RESET
BIT
BEQ
ERROR

~~***** •••

I*TEST 11
003340
003342
003350
003352
003356
003360

000004
012767
000005
032714
001401
104001

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

TSTI0:

# 1$, SLPADR

"SET SCOPE LOOP ADDRESS

#BITl1, nACS
lSTl1

115 BITII OF TACS = 01
"BR IF YES
,ERROR -. BITII OF TACS DIDN'T INITIALIZE PROPER

******.******* ••*********.****************** ***********
TEST INITIAL CONDITION OF TACS BITI0

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

TSTII:
003352

175536
IS:

002000

SCOPE
HOV
RESET
BIT
BEQ
ERROR

IIS,SLPADR

,:SET SCOPE LOOP ADDRESS

,BITI0,UACS
TSTI2

;:BR IF YES

;15 BITI0 OF TACS

= 01

,ERROR -- BITI0 Of TACS DIDN'T INITIALIZE PROPER

::****************************************************._.**_.-.*,*TEST 12
003362
003364
003372
003374
003400
003402

000004
012767
000005
032714
00140\
104001

TEST INITIAL CONDITION OF TACS BIT98

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

TSTI2.
~03374

175514
IS,

0~0400

SCOPE
MOV
RESET
BIT

US,$LPADR

"SET SCOPE LOOP AODRESS

BEQ

'BIT08,@TACS
lST13

ERROR

;15 B1108 OF TACS = 01
I,BR IF YES
,ERROR -- BIT0B OF TACS DIDN'T IhITIALIZE PROPER

:,.**.** ••••• ****.** •••••• **** •••• **** ••• ***** ••• **.**.*._ •••••••
,*TE5T 13

TEST INITIAL CONDITION OF TACS BIT07

;:*.********** •• **.* •••• ** •• *.****.**.***** ••••• ** ••••••• * •• _* •••
003404
003406
003114
003416
003422
003424

000094
012767
000005
032714
001401
104001

TSTI3.
003416

175472
IS,

000200

SCOPE
MOV
RESET
BIT
BEQ
ERROR

*.-..

I*TEST 14

:,*._ ••
000004
U2767
000005

"SET SCOPE LOOP AODRESS

::8R IF YES

= 01

,ERROR _. BIT07 OF lACS DIDN'T IhITIALIZE PROPER

TSTI4:
003449

175450

TEST INITIAL CONDITION OF TACS BIT06 = 0
*.* •••• ** •••••••• _••••• - ••••• ** ••• *-* •••• *.***-_._.-.

SCOPE
MOV
RESET

'IS,SLPADR

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-OZTU-C
TEST INITIAL CONDITION OF TACS BlT06
DZTAAC .NEW
TI4
911 003449 032714
912 003444 0014~1
91l 003446 104001
914
915
916
917 003450 000004
918 003452 012767
919 003460 000005
920 003462 032714
921 003466 801401
922 003470 104001
923
924
925
926 003472 000004
927 003474 012767
928 003502 000005
929 003504 032714
930 003510 001401
931 0~3512 104001
932
933
934
935 003514 0001104
936 003516 012767
937 003524 000005
938 0~3526 032714
939 003532 001401
940 003534 134001
941
942
943
944 003536 000~04
945 003540 012767
946 003516 000005
947 00355~ 032714
948 003554 001401
949 0~l556 104001
950
951
952
953 003560 000004
954 003562 012767
955 003570 000005
956 003572 032714
957 003576 001401
959 003600 104001
959

,IS 8IT07 OF TACS

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

9~6

907
908
909
910

001426
003430
003436

OS,SLPAOR
,BIT01, nACS
TSTI4

BIT
BEQ
ERROR

"SET SCOPE LOOP ADDRESS

MACYlI 27(732)

II-JUN-7b

15:15

PAGE 22

B81T06,nACS
TSTl5
I

,IS BIT06 OF TACS
0?
I :8R IF YES
,ERROR _. BIT06 Of· TACS DIDN'T INITIALIZE PROPER

IBlta4,nACS
TSTI6

: :8R IF YES

000100

1_ :

003462

J, •• _•••• -.**-**--*-** •••• ***_ ••
****-*.-•• * •• *.**.*** ••• *.*
TEST INITIAL CONDITION OF TACS BIT04 = 0
J, ••• *-* ••• _•• **_.* ••
**** •• _**.**- •• *._._*.**** •• ***.
SCOPE
TSTI5:
n 51:.T SCOPE LOOP ADDRESS
MOV
# IS, $LPADR

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

;*TEST 15

175426

1 $:

00002~

FESET
BIT
SEQ
ERROR

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

,IS BIT04 OF TACS = 01

.- BIT04 OF TACS DIDN'T INITIALIZE PROPER
*_._...•.....•.. *.** ••,EFROR
*-*.* ••• *••••••••• *.* •• *
=

TEST INITIAL CONOITION OF TACS BIT03

J*TEST 16

SEQ 0036

J,.***.** •• **_.* •• * •• _*.* •••• _.* •• *.***._ •• *-** •• **.** •••• _••••••
TSTI6:
003504

175404
1$,

000010

SCOPE
MOV
RESET
BIT
BEQ
ERROR

US,$LPADR

IISET SCOPE LOOP ADDRESS

'BIT03, UACS
TSTI7
I

:15 BIT03 OF TACS
01
"BR IF YES
,ERROR -- BIT03 OF TACS DIDN'T INITIALIZE PROPER

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

".*--..•
I*TE5T 17

TSTI7:
003526

\753b2

IS,

090004

-.*-* •...•-••.= * •••• ** •• *

TEST INITIAL CONDITION OF TACS BIT02

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

SCOPE
MOV
RESET
BIT
BEQ
ERROR

US,SLPADR

I,SET SCOPE LOOP ADDRESS

#BIT02. ~TACS
TST20
I

lIS BIT02 Of" TACS 3 01
,,8R IF YES
IERROR -- BIT02 OF TACS DIDN"T INITIALIZE PROPER

JJ******* •• ********* •••• ******************************_ •• ***.*0_*
I*TEST 20

TEST INITIAL CONDITION OF TACS BIT0!

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

TST20:
003550

175340
1$ :

000002

SCOPE
MOV
RESET
BIT
BEQ
ERROR

IIS,'LPADR

IISET SCOPE LOOP ADDRESS

UIT0!,@TACS
TST21

,IS BIT01 or TACS =01
nBR IF YES
,ERROR -. BIT0i OF TACS DIDN'T INITIALIZE PROPER

,,******.0.*****.-.**._ ••• **_.******** •• ******.* •• ******.** ••• **J*TEST 21

TEST INITIAL CONDITION OF TACS BIT00 • 0

Jr**-***o****-***.*.* •• _**--*-*************.*** •••
TST21'
003572
000001

175316
1$,

SCOPE
MOV
RESET
BIT
BEQ
ERROR

_.** ••****0**.*

'I$,SLPAOR

nSET SCOPE LOOP ADDRESS

,BIT00, nACS
TSTn
I

;IS BIT00 OF TACS = II?
nBR IF YES
IERROR -. BIT00 OF TACS DIDN'T INITIALIZE PROPER

TAil BASIC LOGIC TEST (PART I) MAINDEC-II.DITAA-C
MAC!11 27(733)
DITAlC.NEW
T21
TEST INITIAL CONDITION OF TAes BIr80 m e
9bB
961
962
9U
964
965
966
967
968
969 803682
970 111136114
971 00361'"
972 083614
973 003616
974
975 003620
976 003624
977 003630
978 803632
979
980
981
982 "03634
983 "03&36
984 003644
985 1103650
986 003654
987 003656
988
989 003660
990 003662
991 003666
992 003670
993
994
995
996 003672
997 003674
998 ~03700
999 003704
1000 003706
1001
1002 003710
1003 003714
1004 003720
1005 0n722
1006
1007
1008
1009 003724
1010 003726
1011 003734
1012 003740
1013 003744
1014 003746
1015

1016
1017
1018
1019
1020
1021
1022
1023
1024
102~

1026
1027
1028
1029
1030
1031
1032
1033
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
10&3
1064
1065
1866
1067
1068
1069
1070
1071

15115

PAGE 23

, •• *•• ** •••••••••••••••••• __ ••••• _•• _••••••• _•••••••• -•••••••••••
,.TEST 22

TEST BIT88 OF TAce MAY 8E 'SET" AND 'CLEARED"

"4**.* •••••••••••••••••••••••••• _••••••••• •••• •••• • •• ** ••• _•••••
e8ellU
852714
832714
801001
104001
042714

032714

Tsn2,
1100400
000400

111

000400
000400

SCOPE
SIS
BIT
8NE
ERROR
BIC

81T
BEQ
EnOR

901401
104001

,SET BIT08 OF TAca
,DID 8ITII8 SET!
,BR IF YES
,8IT08 FAILED TO 5ET

IeIT88, nACS
IBlT08,nACS
IS

1
.BtT08,UACS
I8IT08,PTACS
TS123
1

,NOH CLEAR IT
1010 BIT08 CLEAR?
I,BR IF

~E5

IERROR •• 8IT08 or TAC5 FAILED TO CLEAII

'r.····_····*--_·**·**····*·*········*··*············***.*
••••••*
TEST BIT08 OF TACS INITIALIZE TO ZERO
,*TEST 23
" ••••••• - ••••••••••••••••••••••••••••••••••••••••••••• *•••••••••

T5T231

000004
"12767
"12714
032714
001801
104001

"90005
0011400
00040"

000005
032714
0dl401
104001

000400

00"004
052714
032714
001001
104001

0001011

042714
032714
001401
104001

175322

1$1

211

SCOPE
MOV
MOV
BIT
BNE
EPROR

n,STIMES
IBlT08,nACS
UIT08,.TACS
21
1

,,00 5 ITERATIONS
ISET BIT08 OF TACS
;010 BITII8 SET?
IBR IF YES
,BIT08 FAILED TO SET

RESET
BIT
BEQ
ERROR

nIT08,nACS
TST24

;CLEAR THE WORLD
,DID BIT08 CLEAR?
IIBR I f YES
IERROR •• RESET DIDN'T CLEAR BIT08

" ••••••••••••••••••••••• ***.* ••••••• * •••••••••••••••••••••• _••••
TEST BIT~6 OF TACS MAY BE 'SET" AND 'CLEARED"
,*TEST 24
" ••••••••••••••••••••••••• ** •• * ••••• *•••••••••••••••••••••••••••
TST24.
a0010~

SCOPE
BIS

BIT

8NE
ERROR

000100
000100

lSI

BIC
lilt

8EQ
ERROR

1
UIT06,nACS
,BIT06, nACS
TST2S
1

008005
000100
0"8100

175232

T25

MAINDEC-11-DZTAA-C
TEST BIT06 OF TACS INITIALIZE TO ZERO

000005
032714
001401
10400\

003762
003764
003770
003774
003776

052714
83271'
001001
104001

000020
000020

004000
004004
004010
004012

042714
032714
001401
104001

000020
000020

004014
004016
004024
004030
004034
004036

000004
012767
012714
032714
001001
10400\

000005
000020
000020

004040
004042
004046
004050

000005
032714

008020

I NOW CLEAR IT
,DID BIT06 CLEAR?
YES
"SR n'
,ERROR •• BIT06 OF TACS FAlLED TO CLEAR

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

TEST BIT06 OF TACS INITIALIZE TO ZERO
,,***** •• **** •• ********************************************.*.*.*
TST25. SCOPE
IS, STIMES
MOV
J 'DO 5 ITERATIONS
,SET BIT86 OF TACS
UIT06,UACS
MOV
lSI
;010 BIT06 SET?
.BIT06,
UACS
BtT
IBR IF YES
BNE
2S
,BIT06 FAILED TO SET
ERROR
I
I.TEST 25

000004
012767
012714
032714
031001
104001

/5ET BIT06 or TACS
/010 SIT06·5ET?
18R IF YES
;81T06 F~ILEo TO SET

18IT06, nACS
18IT06,@TACS

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

003750
003752
003756
003760

MACYIJ 27(732)

II-JUN.76

15,15

PAGE 24

RESET
;CLEAR THE WORLD
;010 BIT06 CLEAR?
BIT
'SIT06,nACS
8EQ
TST26
;rBR If' YES
;ERROR •• RESET DIDN'T CLEAR BlT06
ERROR
1
,:*********************************************************** •• **
TEST 8IT04 OF TACS MAY BE "SET" AND 'CLEARED"
;*tEST 26
,,***************************************************************
TST20: SCOPE
.8IT04,UACS
;SET BIT04 OF TACS
SIS
;010 BIT04 SET?
BIT
'BIT04,@TACS
8HE
IBR IF YES
IS
ERROR
181T04 FAILED TO SET
I

0000~4

IS:

BIC
BIT
8EQ
ERROR

18IT04,@fllCS
IBIT04,@TACS
TST27
1

; NOW CLEAR IT
;010 81T04 CLEAR?
IIBR IF YES
;ERROR -- BIT04 Of TACS FAILED TO CLEAR

;r··········-··-······_··············_···············-.....•.....
TEST BIT04 OF TACS INITIALIZE TO ZERO
I*TEST 27
175142

;s**************************************************** ••••••
TST27 : SCOPE
MOV
15,STIMES
lIDO 5 ITERATIONS
MOV
,BIT04,nACS
;SET BIT04 OF TACS
IS:
81T
,BIT04, nACS
;010 BIT04 SET?
SNE
ISR IF YES
2S
ERROR
;BIT04 FAILED TO SET
I
2S:

0014~1

104001

004052
004054
004061!
004064
0040&6

000004
B52714
032714
001001
104001

004070
004074
004100
004102

042714
032714
001401
104001

004104
004106
1104114
004120
004124
004126

000004
012767
012714
"'32714
001001

004130

111110005
1132714

SEQ 0038

2S1

000100

RESET
BIT
8EQ
ERROR

,BIT04,nACS
TST30
1

~ JBFI:

_.*.-

;CLEAR THE WORLD
;010 BIT04 CLEAR?
YES
;ERROR -. RESET DIDN'T CLEAR BIT04

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

TEST 8IT03 OF TACS MAY BE "SET' AND "CLEARED"
JJ****************** •• ***.***************************************
TST30: SCOPE
,BIT03,nACS
ISET 8IT03 OF TACS
BIS
BIT
IBlT03,nACS
;010 8IT03 SET?
SHE
~BR IF YES
1$
;BIT03 FAILED TO SET
ER~OR
1
,.TEST 30

804132

SEC! elll?

,1111111111111111111111111111111111111111111111111111111111111111111111
"1""",1,1,11,,,,1,11111,,1,1111111111111111111,,11,1111111111111111
,THE FOLLOWING TESTS VALIDATES EACH READIHRITE
,BIT OF THE TACS rOR SETTING, CLEARING,
,AND INITIALIZING
,1111111111111111111111111111111111111111111111111111111111111111111111

TAli BASIC LOGIC TEST (PART I)

DZTAAC ,NEW

IleJUN-?6

000010
000010

080010
008010

000805
000010
000010

194001

000010

181T03,nACS
8IC
I NOW CLEAR IT
IBIT03,nACS
1010 BIT03 CLEAR?
8IT
BEQ
TST31
/I BR IF YES
;ERROR •• 8IT03 OF TACS rAILED TO CLEAR
ERROR
1
,r·*-***·**··*******·********-*******·***··***·**-***************
TEST 8IT03 OF TACS INITIALIZE TO ZERO
,*TEST 31
r,***************************************************************
T5T31: SCOPE
MOV
IS,STIMES
1100 5 ITERATIONS
MOV
.8IT03,@TACS
ISET BIT03 OF TACS
181
8IT
IBIT03,nACS
;010 8ITU SET?
BNE
;BR IF YES
2S
ERROR
,BIT03 FAlLEo TO SET
I
1$:

175052

211

RESET

BIT

UIT0].fTAC5

ICLEAR THE WORLD
;010 8IT03 CLEAR?

TAil BASIC LOGIC TEST (PART 1) MAINDEC-II-DZTAA-C
DZTAAC,NEW
T31
TEST BITlll OF TACS INITIALIZE TO ZERO

1072 004\36
1073 004140
1074
1075
1076
1077 004142
1078 004144
1079 004150
1080 004154
1081 004\ 56
1082
1083 004160
1084 004164
1085 004170
1086 004172
1087
1088
1089
1090 004174
1091 004176
1092 004204
1093 004210
1094 004214
1095 004216
1096
1097 004220
1098 004222
1099 004226
1100 004230
1101
1102
1103
1104 004232
1105 004234
1106 004240
1107· 004244
110S 004246
1109
1110 004250
1111 004254
1112 004260
1113 004262
1114
1115
1116
1117 004264
1118 004266
1119 004274
1120 004300
1121 004304
1122 004306
1123
1124 0043\0
1125 004312
1126 004316
1127 004320

042714
1132714
001401
104001

1100004
000004

000004
000004

000005
000004
000004

000005
032714
001401
104001

000004

000004
052114

174762

BIC
JBIT02. nACS
INOW CLEAR IT
BIT
.BIT02,@TACS
1010 BITIl2 CLEAR?
BEQ
TST33
;IBR IF YES
ERROR
I
IERROR -- BITIl2 OF TACS FAILED TO CLEAR
,,_. __ .*.*.***** •••••••
,*TEST ]3
TEST BIT02 OF TACS INITIALIZE TO ZERO
;,.* •• __ ••• * •• *** ••• **._*.**-*********.****.*** •• ** •• ************
TST33. SCOPE
MOV
'5,STIMES
nOO 5 ITERATIONS
MOV
IBIT02,nACS
I SET BIT02 or TACS
1$.
BIT
.BIT02,UACS
;010 8IT02 SET?
SNE
2S
IBR IF YES
ERROR
;BIT02 FAILED TO SET
1
RESET
,CLEAR THE WORLD
,BIT02,UACS
BIT
;010 6IT02 CLEAR?
BEQ
TST34
YES
"BR IF
ERROR
I
;ERROR -- RESET DIDN'T CLEAR 8IT02
,,***************************************************************
,.TEST 34
TEST BIT01 OF TACS MAY 8E ·SET" AND "CLEARED"
JJ ••••••••••• *******.* •• ****** ••••• ***-***.**********************
T5T34' SCOPE
BIS
.BIT01.UACS
ISET 81T01 OF TACS
8IT
fBlT01,UAC5
,DID BIT01 SET?
SNE
IS
;BR IF YES
ERROR
,BIT01 fAILED TO SET
I

000002
000002

000005
000002
000002

BIC
.BIT01. frACS
I NOW CLEAR IT
BIT
UIT01,UACS
1010 BIT01 CLEAR?
BEQ
TST35
.,BR IF YES
;ERROR _. BIT01 OF TACS FAILED TO CLEAR
ERROR
I
J,****-*.******.********.*********.**************.* •• ************
TEST BIT01 OF TACS INITIALIZE TO ZERO
,*TEST 35
:,****************************************.**********************
TST351 SCOPE
MOV
15,STIMES
I,DO 5 ITERATIONS
MOV
IBIT01,nACS
1$.
,SET 8IT01 OF TACS
BIT
IBIT01.PrACS
,DID BIT01 SET?
BNE
28
;8R IF YES
ERROR
IBIT01 FAILED TO SET
I
1$.

174672

1040~1

000005
032714
001401
104001

2$.
000002

RESET
BIT
BEQ
ERROR

TAli BASIC LOGIC TEST (PART I J MAINDEC-II-DZTAA-C
COUNT PATTERN TO TACS<04.01>
DZTAAC.NEW
no
1128
1129
1130
1131
1132
liB

1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145

004322
004324
004332
004334
004336
004342
004344
1104350
004352
004354
004356
004360
004362
004366

000004
012767
005014
005000
012702
011401
042701
020100
001401
104005
060200
000214
032700
0013&5

SEQ 11039

2S:

00~004

012767
012714
032714
001001

PAGE 25

1$;

001001
104001
042714
032714
001401
1040131

15115

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

000004
012767
012714
1132714
0010131
104001

032114

II-JUN-76

BEQ
TST32
IIBR IF YES
ERROR
;ERROR _. RESET DIDN'T CLEAR BITIl3
1
" •• *******.*.*.********-* •• ******-***.** •• *****.**.-.**-**-* ••••
TEST
BIT02
OF
TACS
MAY
BE
"SET" AND "CLEARED"
;*TEST 32
;;._***-_.*.*•• ** •••• *.*-*.*-*-* •• *.*.***--*-*_.*--*--***********
TST32; SCOPE
BIS
#8IT02, nACS
;SET BIT02 OF TACS
BIT
IBIT02, nACS
1010 BIT02 SET?
BNE
1$
IBR IF YES
ERROR
;BIT02 FAILED TO SET
1

001401
104001

000004
052714
032714
001001
104001

MACYlI 27(732)

004370
000002
177741

000036

174636

.BIT01,nACS
T5T36

: JaR IF

MACHI 27(732)

ICLEAR THE WORLD
;010 BIT01 CLEAR?
YES
,ERROR -- RESET DIDN'T CLEAR BIT01

1I-JUN-76

15.15

PAGE 26

::*******.*******************************************************
COUNT PATTERN TO TACS<04.01>
I*TEST 36
, , * _•• *. *** ** .. ** *. ** *** * *.***** * .. ** * *** - *** * ** *** .. * **** ** - * ****_.
TST36: SCOPE
MOV
ITST37, SESCAPE ;;ESCAPE TO TEST 37 ON ERROR
;SETUP TACS FOR COUNTING
CLR
nACS
ISETUP R0 FOR COUNTING
CLR
R0
;SET THE INCREMENT
MOV
'2, R2
MOV
UACS,Rl
IGET TAC5
IS:
ICLEAR THE JUNK
BIC
'-C36.RI
CMp
;COUNT OK?
IU,R0
SEQ
,BR IF YES
2$
;£RROR--BAD COUNT
ERROR
5
;UPDATE R0
ADD
R2,R0
2S.
ADD
R2,nACS
.COUNT TACS
Ho,R0
;READY?
BIT
BNE
INO--GO DO TEST COUNT PATTERN
IS

SEQ 0040

TAil BASIC LOGIC TEST (PART II
MAINDEC-II-DZTAA-C
DZTAAC.NEW
T36
COUNT PATTERN TO TACS<04.01>
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
11&2
1163
1164
1165
1166
1167
1168
11&9
1170
1171
1172
1173
1174
1175
1176
\177

1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201

Il-JUN-76

15.15

PAGE 27

SEQ 0041

,111111111111111111111111111111111111111111111111111111111111111/111111
,111111111111111111111111111111111111111111111111111111111111111111I111
,THE FOLLOWING TESTS WILL CHECK THE INITIAL STATE Of ALL BITS
lIN THE TACS THAT ARE DRIVE AND FUNCTION DEPENDENT,
INOTE' FOR ALL OF THESE TEST TO PASS
,THE DRIVE UNDERGOING TEST MUST BE
ION CLEAR LEADER AND WRITE ENABLED,
,1111111111111111111111111111111111111111111111111111111111111111111111

:; •• ****.*.******************* ••• ******************** ..... ********
,*TEST 37

004370
004372
004400
004402
004404
004410
004412

000004
0127&7
000005
010314
032714
001001
10400\

TEST INITIAL CONDITION Of TACS BIT05

****************************·f*******************************'***
SCOPE

1ST37.
004404

114506
1 s:

000040

MOV
RESET
MOV
SIT
SNE
ERROR

#\$, SLPADR

; f SET SCOPE LOOP ADDFIESS

ORIVE,@TACS
#BIT05,@TACS
TST40

nSR IF YES

,SELECT DRIVE
,IS BIT05 Of Tacs

= 11

IERROR -. BIT05 Or TACS DIDN'T INITIALIZE PROPER

; : '* ** *'** -It .... * *;6- '* ...... * '* 1;)""" *' *' .... *' ** ********* *' ...... *' .. it .... * '* ** •• ** .. * ... *.. * *..
,*TE5T 40

004414
004416
004424
00442&
0M430
004434
004436

000004
0121&7
000005
010314
032714
001401
104001

004440
004442

000004
012767
000005
010314
052714
032714
001401
104001

TEST INITIAL CONDITION Of TACS BIT09

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

TST40.
004430

\744&2

001000

1$:

SCOPE
MOV
RESET
MOV
BIT
BEQ
ERROR

#\S,SLPAOR

'ISET SCOPE LOOP ADDRESS

DRI VE,@TACS
OBIT09, nACS
TS141

J,BR If YES

I SELECT DRIVE
,IS BIT09 OF TACS

,ERROR -. BIT09 OF TACS DIDN'T INITIALIZE PROPER

:f*····**·····*··*···*··*****·**··*··*·*··*··*·*·*****
,*TEST
41
TEST INITIAL CONDITION OF TACS BITl2 =**********~
0

0~4450

004452
004454
004460
0~4464

00446&

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

TST41:
004460

174436

000002
010000

1$.

SCOPE
MOV
Rl£SET
MOV
SIS
BIT
BEQ
ERROR

#lS,SLPADR

;~SET

SCOPE LOOP ADDRESS

DRIVE,@TACS

,SELECT DRl VE

.WRITE,@TACS
'BITI2, nACS
TST42

,LOAD WRITE fUNCTION
,IS BITl2 OF TACS = 01
11BR IF YES

IERROR -. eITI2 Of TACS DIDN'T INITIALIZE PROPER

ff·····································*··············*********
••
,*TEST 42
TEST INITIAL CONDITION OF TACS BIT13 = I

004470
004472
004500
004502
004504
004510
004512

000004
012767
000005
010314
032714
001001
104001

004514
004516
004524
004526

000004
012767
000005
010314

;;** ••• * ••• *••• ** •••• * •••••••• *.~ •• *.* ••••• *.* •••• * ••••••••••••••
1ST42'
004504

174406

020000

IS,

SCOPE
MOV
Rl£SET
MOV
BIT

§ 1 $, $ LPADR

:; SET SCOPE f.,OOP ADDRESS

BNE

ORl VE, ~TACS
#SlTI3,@TACS
TST43

; ~BF IF' YES

ERROR

SCOPE
MOV
RESET
MOV

ORIVE,@TACS

DZT'AC.NE.
0~4530

004534
004536

14)
032714
001001
104001

I SELECT DR 1 VE
~IS BIT13 OF TACS

= 1?

IERHOR -- BIT13 OF TACS DIDN'T INITIALIZE PROPER

::*.**.******* ••••• *** •• *** ••••••••••••••• ** ••••• ***** •••• *~ •••••
,>TEST 43
TEST INITIAL CONDITION OF TACS BITI5 = I
::*.** ••• * •••••••• ** •• *** •••••••••••• ** ••••••••••••••••• * ••••••••
1ST43'
004530

1743&2

TAli BASIC LOGIC n;ST (PART I)

1202
1203
1204

MACUI 27<7321

H $, HPADR

MAlNDEC-II-DZTAA-C
TEST INITIAL CONDITION Of TACS SITIS
100000

1$,

BIT
SNE

ERFOR

"SFT SCOPE LOOP ADDRESS
:SELl£CT DRIVE

MACYII 27(7321

#BIT15,@TACS
TST44
I

II-JUN-76

15: 1 5

,IS Bln5 OF TACS
;: 8R If YES

PAGE 28

SEQ 0042

= 1?

,ERROR -- BITIS OF TACS DIDN'T INITIALIZE PROPER

TAli BASIC LOGIC TEST (PART 1) "AINOEC-ll-DZTAA-C
MACYIl 27(732)
DZTAAC.NEW
Tn
TEST INITIAL CONDITION OF TACS BIT1S = 1

(

1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
122&
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1200

PAGE 29

SEQ "1J4J

,THE FOLLOWING TESTS CHECKS EACH READ ONLY
,BIT OF THE TACS FOR READ ONLY CAPABILITY
,1111111111111111111111111111111111111111111111111111111111111111111111

,,***************************************************************
,THIS TEST WILL TRY TO CHANGE THE STATE OF BITI5.
ITHEM CHECK IT TO SEE IF IT CHANGED.

::***************************************************************
,*TEST 44

004540
"04542
004550
004552
004554
004556
004560
004564
004570
004572
004574
004600
004602
004604

000004
012767
000005
011400
010001
005101
042700
042701
010114
811401
042701
020001
001401
104001

TEST TACS BIT15 IS READ ONLY

'f***************************************************************

TST44'
004552

174336
lSI

077777
077777
077777

JJ ••

SCOPE
MOV
RESET
MOV
MOV
COM
BIC
BIC
MOV
HOV
BIC
CHP
BEQ
ERROR

#1$, SLPADR

@TACS,R0
R0,Rl
Rl
,-C<BITI5>,R0
'-C<BITI5>,Rl
Rl,nACS
tTACS, Pi
'-C<BITI5>,Pl
R0,Rl
TST45
1

"SET SCOPE LOOP ADDRESS

,INITIALIZE ALL BITS
:GET TACS FOR COMPARING
:PUT STATUS IN RI
,COMPLEMENT Rl
,GET RID OF UNDESIRED BITS

~JSR

,TRY TO CHANGE BIT15
,READ IT BACK
,ONLY LOOK AT BIT15
10ID IT CHANGE?
Ir NO
IERROR -- BITI5 CHANGED

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

JJ.* •••

,THIS TEST WILL TRY TO CHANGE THE STATE OF 8IT14.
:THEN CHECK IT TO SEE IF IT CHANGED.

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

TEST TACS BIT14 IS READ ONLY
*e.•. --__ •.
_._._••..••.•.•• _•. _•. _._.*_.... _.. -.e._ •. *••••

,.TEST 45

JI.* •••
~04606

004610
004616
004620
0a4622
004624
004626
004632
~04636

004640
004642
004646
004650
004652

000004
012167
000005
011400
010001
005101
042700
042701
010114
011401
042701
020001
001401
104001

TST45,
004620

174270
1 S,

137777
137777
137777

SCOPE
MOV
RESET
MOV
MOV
COM
BIC
BIC
MOV
MOV
BIC
CMP
BEQ
ERROR

:: •• _._ •• e •••

US,SLPADR
frACS,R0
R0,Rl
RI
#-C<BITI4>,RII
'-C<BITI4>,RI
Rl,UACS
nACs,Rl
'-C<BITI4>.RI
R0,Rl
TST46

I,SET SCOPE LOOP ADDRESS
IINITIALIZE ALL BITS
,GET TACS FOR COMPARING
IPUT STATUS IN PI
ICOMPLEMENT PI
IGET RID OF UNDESIRED BITS
,TRY TO CHANGE BIT14
IREAD IT 8ACK
:ONLY LOOK AT BITI4
IDID IT CHANGE?
IIBR IF NO
IERROR -. BIT14 CHANGED

*_ •• _••••• *._.*. __•• _
•.•*_._.•_•.•***•••*.*** ••*****
I

,THIS TEST WILL TRY TO CHANGE THE STATE OF BITI3.
,THEN CHECK IT TO SE~ IF IT CHANGED.

; , ... *. ft** ft* **.. *** .... *... **.**** ... *.. **** *** •• ** ... **. ** *.*. **.* **** **
,*TEST 46

004654
004656
004664
004666
004670

000004
012767
000005
011400
010001

004672
904614
004700
004704
004706
004110
004114

1104716
004720

TEST TACS BIT13 IS ~EAD ONLY

; ~ .****.* *.* ** *•••• **** ** **. *** ** ...... * ******* .. ** *•• **. **it .** **. **. flo

TST4& ,
004666

114222
lS,

SCOPE
MOV
RESET
MOV
MOV

COM
BIC
BIC
MOV
MOV
BIC
CMP
BEQ
ERROR

00~101

042700
042701
010114
011401
042NI
020001
001401
104001

157777
157777
157777

US,SLPADR
nAcs,~0

R0,R:l

nSET SCOPE LOOP ADDRESS
:INITIALIZE ALL BITS
IGET TACS FOR COMPARING
IPUT STATUS IN PI

MACYlI 27(732)
PI
'-C<BIT13>,R0
'-C<BIT13>. R!
Rl,t!TACS
@TACS,RI
'-C<BIT13>,Rl
R0,Rl
TST47
1

11-JUN-76

15:15

PAGE 30

ICOMPLEMENT Rl
IGET RID OF UNDESIRED BITS
,TRY TO CHANGE 8IT13
,READ IT BACK
10NLY LOOK AT BIT13
IDID IT CHANGE?
;,aR IF NO
:ERRDR -- 8ITU CHANGED

::****************.******************************* ... *************.
ITHIS TEST WILL TRY TO CHAhGE THE STATE OF BITI2.
,THEN CHECK IT TO SEE IF IT CHANGED,

;:.******* •••*••**********.**** •• **.****.*****.* •••••• **.********
I"TEST 47

004722
004724
004732
0114734
004736
004740
004742
004746
11114752
004754
004756
004762
004764
004766

000004
012767
000005
011400
0100111
005101
042700
042701
010114
011401
0427~1

020001

TEST TACS BIT12 IS READ ONLY

:J******************************.***********************._ ••••• **

004734

TST47 :
174154
lS,

167777
167777
167717

~01401

104001

SCOPE
MOV
RESET
MOV
MOV
COM
BIC
BIC
MOV
MOV
BIC
CMP
BEQ
ERROR

'lS,SLPADR
UACS,RII
R0,RI
Rl
'·C<BITI2>,R0
'-C<BlTI2>,RI
Rl,UACS
UACs,Rl
'-CCBITI2>,RI
R0,Rl
TST50
1

I,SET SCOPE LOOP ADDRESS
,INITIALIZE ALL BITS
IGET TACS FOR COMPARING
:PUT STATUS IN Rl
,COMPLEMENT Rl
IGET RID OF UNDESIRED BITS
ITRY TO CHANGE BIT12
IRUD IT BACK
10NLY LOOK AT BIT12
IDIO IT CHANGE?
l,tiR If NO
,ERROR - 0 BIT12 CHANGED

:,**.***.*********.****.******ft*.**************************.*****
ITHIS TEST WILL TRY TO CHANGE THE STATE OF BIT11.
ITHEN CHECK IT TO SEE IF IT CHANGED.

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

:*T£ST 50

004770
~04772

005000
005002
0aS004
005006
005010
005014
005020
"05022
1105024
005~30

005032
"05034

000004
012767
000005
0114d0
010001
005101
042700
042701
010114
011401
042701
020001
001401
104001

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

TEST TACS BITll IS READ ONLY

t:*_·******··*·******····*·*···*****·*··_·*******·***.********* ••

005002

TST50:

SCOPE
MOV

1$,

MOV
MOV
COM
BIC
BIC
MOV
MOV
BIC
CMP
BEQ
ERROR

174106

#lS.SLPADR

~ESET

173777
173777
173777

@TACS,R0
R0,Rt
Rl
'-C<BITll>,R0
'-C<BITlI>,RI
Rl,nACS
UACS,II1
'-C<BITlI>,Rl
R0,Rl
TST51
I

;:SET SCOPE LOOP ADORESS

IINITIALIZE ALL BITS
:GET TACS fOR COMPARING
:PUT STATUS IN Rl
,COMPLEMENT Rl
,GET RID or UNDESIRED BITS
, TRY TO CHANGE BITU
; READ IT BACK
;ONLY LOOI( AT BITII
: DID IT CHANGE?
1 :BR IF NO
,ERROR - 0 8ITII CHANGED

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

,THIS TEST WILL TRY TO CHANGE THE STATE Of BITI0,
,THEN CHECK IT TO SEE IF IT CHANGED.

1311

IH2
1313
1314
1315
1316

15115

,1111111111111111111111111111111111111111111111111111111111111111111111
,1111111111111111111111111111111111111111111111111111111111111111111111

TAll BASIC LOGIC TEST (PART 1) MAINDEC-II-0ZTAA-C
DZTAAC .NEW
T46
TEST TACS BIT13 IS READ ONLY
12&1
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
13111
1302
1303
1304
1305
1306
1307
1308
1309
1310

11-JUN-76

J:.***-*** •• *.*.**** •• _.*_.******--*** •• *.***._****.**********.**
I*TEST 51

005036

000004

TEST TACS BIT10 IS READ ONLY

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

TST51:

SCOPE

SEQ 0044

TAil BASIC LOGIC TEST (PART 1) MAINDEC-II-DZTAA-C
DZTAAC.NEW
TEST TACS BITI0 15 READ ONLY
T51
1317
1318
1319
1320
1321
1322
1]23
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340

005040
005046
005050
005052
005054
805056
085062
805066
005070
805072
""5076
9051"0
005102

1$1
175777
175777
175777

HOV
RESET
MOV
MOV
COM
BIC
BIC
MOV
HOV
BIC
CMP
BEQ
ERROR

tiS. SLPADR
9TACS,R0
R0,RI
RI
'-C<BITI0>. R0
'-C<BITI0>.RI
RI,nACS
@TACS,RI
'-CCBITI0'.RI
R0.RI
T5T52
I

~05134

1345
1346
1347

005136
005140
1105144
"05146
805150

000084
B12767
B000B5
811400
010001
B05101
"4270~

B42701
B10114
011401
042701
020001
001401
11l4"01

TST521
005116

173172

IS:
176777
176777
176777

SCOPE
HOV
RESET
HOV
MOV
COM
BIC
BIC
HOV
MOV
BIC
CMP
BEQ
ERROR

US.SLPADR
nACS.R0
R8.RI
RI
'·C<8IT09>,R0
'"C<BIT09>,RI
RI.nACS
PTACs,Rl
.·C<BlTII9>,RI
R0,RI
TST53
I

"SET SCOPE

LOOP AODRESS
,INITIALIZE ALL BITS
;GET TACS FOR COMPARING
,PUT STATUS IN RI
,COMPLEMENT RI
; GET RID OF UNDESIRED BITS
,TRY TO CHANGE 8IT09
IREAD IT BACK
,ONLY LOOK AT BIT09
,DID IT CHANGE?

II BR IF NO
,ERROR -- 8IT09 CHANGED

J,********************************************************.*.*.*.
,THIS TEST WILL TRY TO CHANGE THE STATE OF BIT07.
,THEN CHECK IT TO SEE IF IT CHANGED.

rJ***~*****************************************·*****· ***********

,"TEST 53

005152
005154
005162
005164
1105166
005170
005172
005176
905202
005204
005206
005212
005214
005216

000004
012767
000005
011400
010001
005101
042700
042701
010114
911401
042701
020001
001401
104001

TEST TACS BIT07 IS READ ONLY

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

TST53:
005164

173724
16:

177577
177577
177577

SCOPE
MOV
RESET
MOV
MOV
COM
BIC
BIC
>lOV
MOV
aIC
CMP
BEQ
ERROR

#1$,SLPAll~

nACS.RB
R0,~1

RI
'-C<BIT07>,R0
,·C<BlT07>. ~I
PI.UAC5
nACS.RI
'-C<8IT07>.RI
R0,RI
T5T54
I

;,SET SCOPE LOOP ADDRESS
,INITIALIZE ALL BITS
,GET TACS fOR COMPARING
;PUT STATUS IN RI
;COMPLEMENT RI
,GET RID OF UNDESIRED BITS
,TRY TO CHANGE BIT07
;READ IT BACK
,ONLY LOOK AT BIT07
;010 IT CHANGE?
IIBR IF NO
,ERROR -. BIT07 CHANGED

;;***************************************************************
,THIS TEST WILL TRY TO CHANGE THE STATE OF BIT0S.
,THEN C~ECK IT TO SEE IF IT CHANGED.

1373
1374

1385

;TRY TO CHANGE 8lTI0
,READ IT BACK
,ONLY LOOK AT BITI0
,DID IT CHANGE?
"BR IF NO
,ERROR •• BITI0 CHANGED

TEST TACS BIT09 IS READ ONLY

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC. NEW
TS4
TEST TAea 8IT0S IS READ ONLY

1386
1]87
1388
1]89
1390

"SET SCOPE LOOP ADDRESS
;INITIALIZE ALL BITS
,GET TACS FOR COMPARING
,PUT STATUS IN RI
,COMPLEMENT RI
,GET RID OF UNDESIRED BITS

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

1372

\375
1376
1377
1378
1379
1]80
1381
1382
1383
1384

SEQ 0845

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

,*TEST 52

1344

1348

174040

PAGE 31

,THIS TEST WILL TRY TO CHANGE THE STATE OF BIT09.
;THEN CHECK IT TO SEE IF IT CHANGED.

1342
1343

1349
1350
1351
1]52
1353
1]54
1355
\356
1357
1]58
1359
1]60
1361
1]62
136]
1364
1]65
1366
1]67
1368
1369
1]70
1371

005050

15115

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

005104
005106
805114
1105116
005120
1105122
005124
005130

1341

012767
088005
011400
018881
805181
8427"0
842701
810114
8114a1
042701
020001
001401
104001

"ACill 27(732) : I1-JUN-76

"05220
"05222
005230
0052]2
005234
005236
005240
005244
005250
005252
005254
"05260
1105262
005264

800004
0·12767
000005
011400
810001
005101
042700
042701
010114
1111401
04270\
820001
001401
104001

MACYll 27(132)

II-JUN-76

15'15

PAGE 32

,J***************** •• ********************************************
;oTEST 54
TEST TACS BIT05 IS READ ONLY
J,************.*.*********.***************************. __ **0**.**

005232

173656

TST54:
IS:

177737
177737
177731

SCOPE
HOV
RESET
MOV
MOV
COM
BIC
BIC
MOV
MOV
BIC
CMP
BEQ
ERROR

#I S. SLPAD~

; :SET

PTACS.R0
R0.RI
RI
'''C<8IT95>,R0

'-C<BIT05>, R\
RI.UACS
tTACS,RI
'-C<BIT05>.RI
R0.RI
TST55
I

SCOPE LOOP ADDRESS
;INITIALIZE ALL BITS
,GET TACS FOR COMPARING
; PUT STATUS IN RI
;COMPLEMENT RI
;GET RIO OF UNDESIRED BITS
,TRY TO CHANGE BIT05
;READ IT BACK
LOOK AT BIT05
;010 IT CHANGE?
IF NO
,ER~OR -- BIT0S CHANGED
,ONL~

J faR

SEQ 0046

MACYI! 27(732)

TAil BASIC LOGIC TEST (PART I) MAINDEC-ll-0ZIAA-C
DZrAIC.NEW
151
TEST TICS BIT05 IS READ ONLY

':**********4*~***.**********************************************

; "TEST 55

~J*.**.***

T5T55.

000004
012767

1401
14~2

005300

000004

1403

005304
005310
005314
005316

012714
105077

132714

000004

1405
1406
1407

005300

17 3610

000005
1.73700

001001
104001

1409

1410, 005320
005322
005330

005332
005336

005340
005346
005350

000004
012767
000005
0127H
105014
132777
001001
104001

TST56:
173556

IS,

000400
000001

173642

1429
1430

005352
005354
005302
005364
00537"
005372
005314

005402
005406
005410

iST57,

000004
0127&7
005014
032714
001401
104001
112717
032714
001401
104001

005412

173606

1438
1439
1440
1441

IH2
1443
1444
IH5

000136
000136

173&06

005412
005414

000004
012767

005422
005424
005430

005014

005432

104001

0~54l4

005440
005444

11271 4
032714
301HI

005446

104001

,SET BIT08 Of TACS
,CLEAR THE LOW BYTE Of TACS
,IS BIT~8 Of TACS STILL SET?
"SR IF YES
,CLRB TO LOW BYTE OF TACS CLEARED THE HIGH BYTE

@TACS
#6IT00,@fACSH
rST57
I

SCOPE
HOV

! s,

BIT
SEQ
ERROR
MOVB
BIT
BEQ

032714
001401

nST60. SESCAPE ;; ESCAPE TO TEST 60 ON ERROR
@TACS
,ZERO THE TA!! STATUS
# UN If! INT. EN! ILBS! fUNCTION,@TACS
1$
I

;TACS DIDN'T CLEAR PROPERLY
UNT.ENIILBS!fUNCTlON,@TACSH
;LOAO HIGH BYTE Of TACS
IINT,EN1ILBS!fUNCTION.@IAC~
,CHECK LOW BYTE
T5T60
; ;8R IF LOW BYTE IS OK
I
,LOW BYTE: IMPROPERLY SELECTED

TEST "OUT HIGH" SIGNAL

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

IST60,
005450

173546

000536
1 $:

Tb1

MOV
CLR
BIT

ITST6!,SESCAPE "ESCAPE TO TEST 6\ ON ERROR
@TACS
,ZERO THE TAl! STATUS
I UN IT lINT. EN! ILBS! fUNCI ION, ~TACS

BEQ
ERROR

IS
1

MOVB
BIT
BEQ
ERROR

IBlT08,@TACS
jll;BIT08,(aTACS
TSTbl

;: BR IF NO

;HIGH BYTE IMPROPERLY SELECTED

000004

012767
005014
032714
001401
104001

005506

012715

117776

005476

032714

000536

005502

0~!401

005504

104001

005462
005466
005411i.'
005472

MAINOEC-Il-DZTAA-C
ISN"'T STUCK
TST61:

00545~

005452
005460

17351"

SCOPE
MOV
CLR
BIT

000536

BEQ
ERROR

1457
! 458
1459

M~CY!I

IS:

HOV

BIT
BEQ
ERROR

!$
1
.-C!.@TADB

T5162
!

005500

00000~

0055!0

005512

01031 4
0327!4

005516

001001

020000

SCOPE
MOV
SIT
8NE
ERROR

ORIVE.@TACS
HEADER,@TACS
IS
!

10400!

005522

005526

! 127\4
005714

0055N

10040!

005532

005546

!0400!
1127\4
005714
100401
104001
\12714

005552

00571 4

TST

#REAO,@TACS
@TACS

005554
005556

10040!

SMI

150!

:,SR IF TACS DIDN'T CHANGE
; TACS CHANGED WHEN LOADING TAOS

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

T5T62,

00552"

149"
149!
1492
1493
1494
1495
1496
1497
1498
1499
1500

,TACS OIDN'T CLEAR PHOPERLY
,LOAD THE DATA BUfFER

#UNIT!INr~ENIILBS!FUNCTION,@TACS

\471
1472
1473

!489

PAGE 34

#TST62,SESCAPE i;ESCAPE TO TEST 62 ON ERROR
@TACS
,CLEAR TA!! STATUS
tlUNlT! INT "EN! lLBSU·UNCTION, IiiTACS

! 470

1484

!5,15

:,*TEST
~ * * -1+ ** * ** ****. *** ** ***'*' *** .. *' .. *' **** ***".1Jf.. ** * **' * ** ** **** *** oft If *** **
62
TEST "ERROR" fOR "CLEAR LEADER"

1463

1485
1486
1487
1488

!!-JUN-76

,THE FOLLOWING TEST INSURES THAT THE STATE of THE "ERROR" INDICATOR IS
,PROPER FOR ALL FUNCTIONS WHEN THE TAPE IS AT 'CLEAR LEADER'

1461
14b2

\476
1477
1478
1479
148"
! 481
1482
1483

27(732)

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

1460

\474
1475

;TACS DIDN'T CLEAR PROPERLY
,LOAD LO. BYTE OF TACS
,DID BIT08 GET SET?

TEST "SELECT 0t1"

1448

1464
! 465
1466
1407
1468
1469

: ,SET SCOPE LOOP ADDRESS

SCOPE
MQV
RESET
HOV
CLR8
BITB
8NE
ERROR

ERRO~

144 7

1455
1456

#! S, SLPADR
SeIT08.@TACS

SBlT02,@TACS

;;*TEST
, *""* ii-****
* *******
***** ******************************************
61
TEST "SELECT 00" ISN"'r STUCK
; : ****** *** **** .)1.******** *' * ***".************** ***** ****************

DZTAAC.NEW

! 453
1454

,*TEST 60

TAlI BASlC LOGIC TEST (PART!l

1452

15T56

@TACSH

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

1446

1449
! 450
1451

BNE

ERROR

,SET TACS BIT02
,CLEAR THE HIGH BYTE
; IS BIT02 STILL SET?
J ,SR IF YES
,CLRB TO HIGH BYTE Of TACS CLEARED LOW BYTE

CLR

1432

1437

"SET SCOPE LOOP ADORESS

•• ***.** •• **.****** •••• **.** ••• *••• *.****** •• ** ••• ****
TEST NOUT LOW~ SIGNAL
" ••• ***.****.* •••••••••• *•••• ** ••• ***.***.** ••• *•• * •• ********* ••
~*TEST

1431
1413
1434
1435
1436

us, SLPADR
#BIT02.@TACS

::4.******~

1420
1421
1422
1421
1424
1425
1426
1427
1428

TEST HIGH BYTE SELECTION Of TACS

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

SCOPE
MOV
RESET
MOV
CtRB
B ITB

" •••••••• ** ••••••••••••• *** •••••••••••• ***** •••• * •• ** ****.* •••••
,"TEST 56
TEST LOW BITE SELECTION OF TACS
;; ••• *** ••••••• * •••• ** •••• ** •••••••• *••••••••••••••••• ***********

1408
1411
1412
1413
1414
1415
1416
1417
141 e
1419

SEQ 0047

IOF THE TAil ADDRESSES

005266
005270
005276

1404

PAGE 33

11111111111111111111111111111111111111111111111111111111111111111111111

139B
1400

!5.!5

11111111111111111111111111111111111111111111111111111111111111111111111
111111111111111111111111111111111111111111111111111111111111111II111111
I THE fOLLOWING TESTS WILL CHEC~ ro~ DUAL AND lOR fAULTY SELECTION

1391
1392
1393
1394
1395
1396
1397
1399

!l-JUN-76

005534

005540

005542
005544

005560
005564
005506
005570

!04001
1127.14

25 ,

005576

005714

005600

100401
104001

0.5602
005604
005610

00571 4

005612

10040!

005bl4

10400!
112714
005714
100401

112714

!04001
112714

MOVS

TST
8MI
ERROR

000006

3$ ,

4S,

5S:

2$
\
IfWRITE,@TACS

TST

@lACS

SMI

3S
I

MOVB

ERROR

MOVB

TST

Ii,IBSFG,@TACS
@TACS

BMI

ERROR

MOVS

'BSBG,@TACS
@TACS

TST
8MI
ERROR
0000! 2

6$ ,

MOVB

TST
8Ml
ERROR
0000! 4

7$,

OIifG.@TACS
@lACS

MOVB

ERROR
0~0004

10040!

104001
1127\ 4

005624
005626

000002

IS'

00571 4

005572

005616
005622

000000

Mova

TST
8MI
ERROR

NSFFG,€ITACS
@TACS
75
I

HFBG.@TACS
@TACS
8$

005630
005634

005714

MOVB
TST

005636

100001

8PL

'REWINO, @lACS
@TACS
TST6)

005640

104001

ERROR

8$ ,

;SELECT DRIVE
;CHECK FOR CLEAR LEADER
,BR IF ON CLEAR LEADER
;NOT ON CLEA~ LEADER
JCHECK H~RROR" WITH nWrG"
,SAMPLE THE "ERROR' BIT
;8R IF "ERROR" ::. 1
:"ERRO.R" NOT
1
:CHECK "ERROR" WITH gWRITE"
;SAMPLE THE KERROR~ SIT
;SR IF "ERROR" = 1
;"ERROR" NOT = 1
:CHECK "ERROR" WITH "READ~
;SAMPLE THE "ERRORn BIT
;SR IF "ERROR" ::. 1
;"ERROR" NOT
1
1CHECK "ERRORft WITH "BSFG"
,SAMPLE THE "ERROR" BIT
~BR IF "ERROR"
1

; "ERROR" NOT:: 1

;CHECK "ERROR" WITH "BSSG"
1SAMPLE THE "ERROR" BIT
;BR IF "ERROR"
1
:"ERROR" NOT::. 1
_CHECK "ERROR~ WITH "SFFG"
;5AHPLE THE NERROR" BIT
,BR IF 'ERROR" = !
:"ERROR" NOT = 1
;CHECK "ERROR" wITH w8FBG"
:SAMPLE THE "ERROF" BIT
iBR IF "ERROR" = 1
: NERROR" NOT
1
iCHECK "ERROR" WITH ~FEWINO"
;SAMPLE THE "ERROR" BIT
nBR IF "ERRORIt = 0
;"ERROR" NOT
0

=
=

SEQ 0048

TAil SASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC.NEW
T62
TEST 'ERROR" fOR "CLEAR LEADER'
1502
15e3
1504
1505
1506
1501
1509
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
152&
1527
1528
1529
153~

1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557

MACYlI 27(732)

1511

1572
1573
1574
1575
1576
1577
1518
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
159&
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613

15,15

PAGE 35

SEQ 0049

,1111111111111111111111111111111111111111111111111111111111111111111111
111111/1111111/111111/111111111111111/111111111111111/111111111111/1111

ITHE fOLLOWING TESTS WILL CHECK 8ASIC OPERATIONS Of THE
,"REWIND" AND 'WRITE FILE GAP" fUNCTIONS.

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

**-.-•.

I1111111111111111111111111111111111111111111111111111111111111111111111

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

005642
1105644
005652
0051060
005662
H0S670
005672
005614
005700
lIe5704
11115710
005712
005714
005716
005720
0115722
005726
"05730
005732
005736
005140

005142
005744
005752
005760
0115762
005770
e05772
005774
006000
1106004
00&1110
006012
006014
006016
00b020
006022
006026
0010030
006032
006036
"06040

1100004
8121107
1112167
000005
012767
810314
005001
012700
112714
032714
001010
005201
001313
005300
001371
032714
001001
104001
032714
,,01001
104001

000004
012767
012767
000005
012767
010314
005001
012100
112714
032714
0"1010
005201
001373
005300
001371

1100005
005670

173314
173226

005742

113300

000144
000017
,,011040

0~0040

"20000

* •••••
***********
,*TEST 63
TEST THAT "READY' SETS WHEN "REWIND" IS COMPLETED
:J******* •• *******************************************.**********
TST631 SCOPE
IS, STIMES
MOV
1100 5 ITERATIONS
MOV
HS,SLPADR
I' SET SCOPE LOOP ADDRESS
RESET
MOV
ITST64,$ESCAPE IIESCAPE TO TEST 64 ON ERROR
DRIVE,tTACS
I SELECT DRI VE
HOV
3&:
CLR
IIiASTE SOME TIME
RI
MOV
.100.,R0
MOVB
IREWINDIGO,IITACS
ISTART A REWIND
SIT
'READY,nACS
,SAMPLE READY
1$.
SNE
28
,GET OUT If READY IS SET
INC
RI
SNE
1$
DEC
R0
BNE
1$
BIT
.READY, ~TACS
,IS 'READY" BIT SET?
8NE
2$
,BR IF YES
,ERROR--"READY· SIT DIDN'T SET
ERROR
I
2$,
BIT
'LEADER,nACS
ICHECK fOR CLEAR LEADER
BNE
TST64
CLEA~
LEADER NE
"BR I f
ER~OR
,NOT ON CLEAR LEADER
I
,AfTER DOING A REWIND

,,_ .... __ ..... *_._ .. * __ .*_ ...*_._.*_***.*****._*_*_._._.44* _____ -

000005
005710

173214
173126

006042

17320"

000144
000001
"00040

032114

000040

0010111
104e01
032714
0"1401
104001

1120000

TEST THAT "READY" SETS WHEN ·WRITE FILE GAP" IS COMPLETED
;*TEST 64
JJ.*.****.*.*.********* •••• * ••• **********************************
TST64, SCOPE
MOV
#5.STIMES
: 'DO 5 ITERATIONS
MOV
BS,$LPAOR
'ISET SCOPE LOOP ADDRESS
RESET
ITST65,SESCAPE "ESCAPE ro TEST 65 ON ERROR
MOV
MOV
DRIVE,nACS
,SELECT DRIVE
3S.
CLR
RI
IWASTE SOME TIME
HOV
U00.,R0
MOVB
'WfGIGO,nACS
,START A WfG
IREADY. nACS
,SAMPLE READY
BIT
1$'
SNE
2$
,GET OUT IF READY IS SET
INC
Rl
SNE
IS
R0
DEC
SNE
IS
BIT
'READY, ~TACS
JIS "READY" BIT SET?
BN~
2$
,SR IF YES
ERROR
,ERRON--"READY" 8IT DIDN'T SET
1
2$,
BIT
HEADER, nACS
,CHECK fOR CLEAR LEADER
BEQ
TST65
I,SR I f CLEAR LEADER EO 0
ERROR
,ON CLEAR LEADER
I
IAFTER DOI~G A WRITE FILE GAP
; J.* ••• ***********.-.*.***.*** ••• *.*****.*.***.*.*.**************

TAil BASIC LOGIC TEST (PART I) MAINDEC-Il-DZTAA-C
DZTAAC.NEW
T65
TEST "HEADY" CLEARS .HEN STARTING
1558
1559
1560
15&1
15102
1563
1504
1565
1566
1561
1568
1569
1570

11-JUN-76

,*TEST 65
00&042
00&044
"010052
006054
006060
006062
006064
0010070
006074
1106076
006100
006102

000"04
012767
000005
012701
01031 4
1114412
112714
032714
001403
0"6301
1101371
104001

0"6104
0116106
006114
006116
0e6122
006124
0010126
006132
006136
11106140
006142
006144

000004
012167
000"05
012701
010314
104412
112714
1132714
001403
006301
001373
104001

006146
006150
006156
"06164
0e6166
006170
006172
006176
006202
006206
006210
006212
006214
006216
1106220
006222
006224
006230
"06232
006234

,,00004
0127&7
012167
000005
0111314
104412
112714
005067
032714
001404
105227
000000
001372
104001
000005
050314
032714
001401
104001
104412

MACYII 27(732)

II-JUN-7b

15:15

PAGE 36

"REWIND" FUNCTION

TEST "READY" CLEARS WHEN STARTING A "REWIND" fUNCTION

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

TST65,
0"0"05

173114

000"01
000017
0o,,"40

IS'

SCOPE
MOV
RESET

15,STIMES

~OV

II,RI

MOV
DRIVE,@TACS
WA1TREADY
MOVB
'REWINDIGO,@TACS
BIT
.READY,@TACS
BEQ
T5T66
ASL
RI
BNE
1$

'100 5 ITERATIONS

,SET TIMER
,SELECT DRIVE
;WAIT FOR "READY·
;START A "~EWINO·
ICHECK "READY· SIT
IF "READY" = 0
;15 TIME UP?
;BR If NO

,"READY' fAILED TO CLEAR
***********
,*TE5T 66
TEST "READY" CLEARS WHEN STARTING A "WRITE fILE GAP' FUNCTION
;;****************************************** ••• ******.**.********
TST66, SCOPE
t5,$TfMES
HOV
'100 5 ITERATIONS
RESET
MOV
II,RI
,SET TIMER
HOV
ORIVE.@TACS
,SELECT DRIVE
WAITREADY
;WAIT FOR "READY"
MOVB
'WFGIGO,~TACS
,START A "WRITE fILE GAP'
BIT
'READy,~TACS
,CH~CK "READY" BIT
IS.
SEQ
TST61
; raR IF "READY· = 0
ASL
RI
,IS TIME UP?
BNE
1$
,BR IF NO
ERROR
I
'"READY" FAILED TO CLEAR
*_ ••• * ••• _••• _••• *.*-* ••
***********
;*TEST 67
TEST THAT "RESET" CANNOT ABORT A RREWINDR
JJ**************************************************** ***********
TST67, SCOPE
MOV
#I,STIMES
'100 I ITERATION
MOV
'5$,$ESCAPE
"ESCAPE TO SS ON ERROR
RESET
MOV
DRIVE,~TACS
,SELECT DRIVE
WAITREADY
,GO WAIT FOR "READY" TO SET
MOVB
'RE.IND1GO,~TACS
,LOAD REWIND AND GO
CLR
3$
BIT
'READy,~TACS
,WAIT fOR READY TO CLEAR
2$'
BEQ
4S
INC8
(PC)+
o
381
2$
8NE
ERROR
'"READY" FAILED TO CLEAR
I
RESET
,TRY TO STOP REWIND
481
BIS
DRIVE,PTACS
,SELECT DRIVE
BIT
.READY,fTACS
,IS READY SET?
BEQ
5$
,eR IF NO
ERROR
I
J"READY" WAS SET
5$1
WAITREADY
,WAIT ON READY TO SET
,,****************.**********************************************
,THIS TEST WILL START A 'WRITE fILE GAP" AND WAIT fOR "READY" TO CL~AR
,AS SOON AS 'READY" CLEARS A "RESET" IS PERfORMED (WHICH SHOULD
,CLEAR THE FUNCTION AND SET READY) THEN "READY' IS EXAMINED
ERRO~

Jr··-········*··_····"'····_·_·.··*··.-··.·.· .... _.....

,,00005

173052

0"0"01
000001
"0"040

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

000001
006234

000017
000010
0011040

000040

173010
173004

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

SEQ 0050

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-OZTAA-C
MACYII 27(732)
DZTAAC.NEW
T67
TEST THAT "RESET' CANNOT ABORT A "REWIND"
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1611
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
165~

(

1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669

15.15

PAGE 37

SEQ "051

:TO INSURE THAT IT IS SET
~J********.*******

:*TEST 70

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

TEST "RESET" WILL ABORT A 'WRITE FILE GAP"

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

006236
006240
006246
006254
006262
006264
006266
006270
006274
006300
006304
006306
806310
006312
"06314
006316
"06320
006322
006326
006330

000"04
012767
012767
012767
000005
010314
104412
112714
005067
032714
001404
105227
000000
001372
104001
0"0005
0U3\4
032714
001001
104001

0"6332
0"6334
"06342
006350
006356
0063601
006362
"06366
006370
036372
006374
006376
"06402
006404
006406
006412
006414

0"0004
012767
012767
012767
000005
010J14
112714
104412
005714
100001
104001
1132714
001""1
104001
112714
104412
032714

006420
006422

001401
104001

000005
00&264
006332

i 72720
172632
172706

TST70:

IS:
000001
000010
000040

28:

000040

SCOPE
MOV
IS,STIMES
MOV
In, SLPADR
MOV
ITST7I, $ESCAPE
RESET
MOV
DRIVE,iTACS
WAlTREADY
MOVB
IWFGIGO,'TACS
CLR
3$
BIT
IREADY,iTACS
BEQ
4S
INCB
(PCl>

3S.

8NE
"ERROR

4$1

RESET
MOV
BIT
BNE
ERROR

DRIVE,8TACS
.READY,PrACS
TST71

;;00 5 ITERATIONS
n SET SCOPE LOOP ADDRESS
;;ESCAPE TO TEST 11 ON ERROR
:SELECT DRIVE
:WAIT ON READY
;START A WRITE fILE GAP fU~CTION
;WAIT fOR READY TO CLEAR

J8R IF NREADYN = 0
:WASTE SOME TIME

:"READY" fAILED TO CLEAR
:KILL WRITE fILE GAP

JJBR IF "RESET" SET "READY·
,·REAOYN DIDN'T SET
1
JI·*******************·***********_·****_·**-******·*************

;"TEST 71

TEST "WFG" AND "REWIND" fOR NO ERRORS

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

TST7I.
00"005
006362
006424

172624
112536
172612

""0017

1$.

020800

2$:

000001

3$'

120000

SCOPE
HOV
'5, STIMES
::00 5 ITERATIONS
MOV
11$, SLPADR
;;SET SCOPE LOOP ADDRESS
ITST72 , SESCAPE ;;ESCAPE TO TEST 72 ON ERROR
MOV
RESET
MOV
DRIVE,8TACS
MOVB
,REWINDIGO,'TACS
:GO TO "CLEAR LEADER"
WAlTREADY
;GO WAIT FOR "READY" TO SET
TST
8TACS
:IS "ERROR" SET?
:BR IF NO
BPL
28
ERROR
I
;NERROR· = 1 AFTER "REWINON
BIT
'L~ADER,'TACS
;15 "CLEAR LEADER"
I?
SNE
38
:BR IF YES
ERROR
I
:NOT Oh "CLEAR LEADER" AfTER "REWIND"
MOV8
,WFGIGO,PTACS
:GET OfF Of "CLEAR LEADER"
:GO WAIT FOR "READY" TO SET
WU'fREADY
BIT
#ERRORILEADER,@TACS
:SHOULD BE OFF OF "CLEAR LEADER"
;WITH NO 'ERROR"
BEQ
;8R IF NWFGN MOVED TAPE WITH NO -ERROR"
.+4
ERROR
;·WFG" FAILED
I

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

:THIS ISN'T A REAL TEST BUT A SMALL ROUTINE TO DETERMINE THE MAX.
,TIME FOR THE WAIT LOOPS (WAIT FOR "READY' AND "TRANSFER REQUEST")

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

:"TEST 72

FOUTINE TO DETERMI~E TIME OF WAIT LOOPS

,,************************************************ ••• ***.********
006424
006426

000004
012767

TST72'
000001

172532

SCOPE
MOV

#I,$TIM£S

1100 I ITERATION

TAli BASIC LOGIC TEST (PART 1) MAINDEC-Il-DZTAA-C
MACYlI 21(732)
DZTAAC .NEW
T72
ROUTINE TO DETERMINE TIME OF WAlT LOOPS
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681

ll-JUN-76

006434
"064U
006442
006444
"06446
006452
006454
006460
006462
00b470
006474
006500

005737
001021
01<10005
0103\4
112714
104412
112714
104412
163737
005237
006137
006137

001100

000017
000001
012072
012116
O12116
012116

012116

II-JUN-76

15: IS

PAGE 38

TST
U$PASS
115 THIS THE FIRST PASS?
BNE
TST73
nSR IF NO
RESET
MOV
DRIVE,UACS
SELECT THE DRIVE
HOVB
IREWIND1GO,UACS
START A REWIND
WAITREADY
WAlT FOR READY
MOV8
IWfGIGO,UACS
WRITE A FILE GAP
WAlTREADY
WAIT ON READY
SU~
UHGHTlM, ~'MAXCNT
GET THE TIME IT TOOK
INC
"MAXCNT
MAKE IT 8IGGEF
ROL
@,MAXCNT
ROL
"MAXCNT

SEQ 0052

TAil SASIC LOGIC TEST
DZTAAC.NEW
T72
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695

1696
1697
1698
1699
1700
1701
1702
1703
17114
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723

1724
1725

1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737

(PA~T

~OUTINE

MAINDEC-II-DZTAA-C
MACYII 27(732)
TO DETE~MINE TIME OF WAIT LOOPS

11-JUN-76

1748

1749
1750
1751
1752
1753
1754
1755

,111111111111111111111111111111111111111111111111111111111111 /I /II /I /II

0116504
006506
006514
006522
006524
006526
806532
006534
006540
006542
006544
006546
0116552
006556
006560
006562
0116564
""6566
006570
006574
"06576
006600
006604

000004
012767
912767
000005
010314
112714
104412
832714
001001
104001
005214
005067
1132714
0111404
105227
8110000
001372
104001
1132714
1101401
104001
1105067
104412

"06606
006610
0116616
"06624
006632
006634
006636
006640
006644
006646
006652
006654
006660
006664
006666
006670
006672
006674
1106676
006702
0"6704
11116706
006710

0110004
012767
1112767
012767
000005
010314
104412
112714
104412
012700
010314
112714
032714
001402
1106300
100373
000005
010314
112714
104412
005714
UI0401
104001

000005
1106680

172452
172446

000017
02000"

000010
000040

020000
172364

000005
1106646
006722

000017
000001
000001
000040

000001

00b7l2
006716
006720

032714
001001
104001

006722
1106724
006732
110b734
006740
006742
1106744
01167511
1106754
006756
1106760
006762

012767
0001105
1112701
010314
104412
112714
832714
1101403
006301
001373

006764
006766
006774
O06776
007002
007004
007006
1107012
007016
007020
1107022
1107024

000004
O12767
""0005
1112101
010314
104412
112714
1132714
0111403
006301
11111373
104001

007026
1107030
007036
007040
007044
007946
007050
1107054
1107060
O07062
1107064
007066

000004
1112767
0000115
1112701
810314
104412
112714
032714
1101403
'06301
1101373
te4001

007070
007072
007100
007102
007106

'00004
812767
"00005
812701
010314

<120000

"00~04

000005
1100001
000003
0110040

1040~1

1756

1757
1758

1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
17711
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1792
1783
1784
1785
1796
1787
1789
1789
1790
1791
1792
1793

SEQ 0053

,THE FOLLOWING TESTS A~E USED TO CHECK VARIOUS OPE~ATIONS WHEN AT 'CLEA~ LEADER"

1742

1743
1744
1745
1746
1747

PAGE 39

111111111111I1111111111111111111111111111111111111111111111111111111111
11111111111111111111111111111111111111111111111111111111111111111111111

172350
172262
172336

,,-**********_.* •••• *****._.** •• _-.-.******-._*******************
,*TEST 73
TEST THAT 'CLEAR LEADER' GOES FALSE ON '~EWIHD'
".**-***.-••••• * •••••• *** •••• *.*.***.*** ••••••• ****.*******.**.*
TST731 SCOPE
MOV
.5,8TIM£S
,,00 5 ITERATIONS
MOV
.6$. SESCAPE
II ESCAPE TO 68 ON ERROR
RESET
MOV
DRIVE,9TACS
ISELECT DRIVE
MOVS
.REWINDIGO,fTACS
,GO TO CLEAR LEADER
WAITREADY
,GO WAIT FOR 'READY' TO SET
BIT
.LLADER,tTACS
,AT 'CLEAR LEADER"?
BNE
2$
,BP IF YES
ERROR
I
,ERPOR--NDT AT CLEAR LEADE~
2"
INC
iTACS
,START ANOTHER REWIND
CLR
4&
3S:
BIT
'REAOY,@TACS
,WAIT ON 'READY' TO CLEAR
BEg
5.
INCB
(PC).
4$1
0
BNE
3S
ERROR
I
,"READY' FAILED TO CI.EAR
5$.
8IT
,LEADER, nACS
,DID "CLEAR LEADER' GO FALSE?
BEQ
6$
,BR IF YES
ERROR
I
,CLEAR LEADER DIDN'T CLEAR
6$:
CLP
SESCAPE
WAlTREADY
,,**********************************************************-*-**
,*TEST 74
TEST FOR 'CLEAR LEADER ERROP" FOR 'WRITE FILE GAP FUNCTION"
J,*._***********_.*.***._ •••••• **.**_.**--*.* •• _*-***-********.**
TST74: SCOPE
#5, STIMES
,DO 5 ITERATIONS
MOV
,SET SCOPE LOOP ADDRESS
MOV
liS, SLPADR
,ESCAPE TO TEST 75 ON ERROR
MOV
nST75, SESCAPE
RESET
,SELECT DRIVE
MOV
DRIVE,~TACS
,MAKE SURE TAil IS READY
WAlTPEADY
,LOAD REWIND AND GO
MOVB
'REWIND+GO,9TACS
,GO WAIT FOR 'READY' TO SET
WAlTREADY
MOV
II,R0
IS'
MOV
DRIVE,'TACS
,START A WRITE FILE GAP FUNCTION
MOVB
IWFGIGO,nACS
,WAIT ON READY TO CLEAR
BIT
'READy,~TACS
38:
SEQ
4S
ASL
R0
8PL
38
RESET
4S:
,SELECT DRIVE
MOV
DRIVE,'TACS
,STAPT A WRITE FILE GAP FUhCTION
MOVB
'WFGIGO,~TACS
;GO wAlT FOR "READr" TO SET
WA%TREAOY
,DID ERROR BIT SET?
TST
nACS
,BR IF Yf-S
BMI
2S
,"ERROR" BIT (BITI5] FAILED TO S~T
ERRO~
I

TAil BASIC LOGIC TEsr (PART I] MAINDEC-II-DZTAA-C
MACYlI 27(732] II-JUN-7b
DUAAC.NE.
T74
TEST FOR "CLEAR LEADER ERROR" FOR -WRITE FILE GAP FUNCTION'
1739
1739
1740
1741

15115

000005
000001
000005
0011040

900005
000001
11011007
000040

000"05
000001

15:15

PAGE 40

SEQ 0054

2S:

BIT
ILEADr.R,~TACS
,HOW ABOUT CLEAR LEADER BIT
BNE
TST75
; :BR If' SET
ERROR
I
;"CLEAR LEADER" NOT SET
;:*.****** •• ****** •• *****.**.*.********************.**.*.********
;.TEST 75
TEST '~EADY' CLEARS WHEN STARTING A 'WRITE" FUNCTION
;;.**************************************************************
TST75. SCOPE
172234
MOV
15,STIMES
nDO 5 ITERATIONS
PESET
MOV
fl,Rt
;SET TIMER
MOV
DRIV~, @TACS
,SELECT DRIVE
WAlTREADY
tWAIT FOR "READY"
MOVB
#WRITEIGO,nACS
;START A ·WRITE"
BIT
IREADY,nACS
IS:
,CHECK 'READY" BIT
BEQ
TST76
/I8R IF -READY" = 0
ASL
Rl
,IS TIME UP?
BNE
IS
,BR If" NO
ERROR
I
: "READY" FAILED TO CLEAR
J,.* ••• - •••• _•• *-* ••• *.* •• ***.*** •••• **.*.*.* __ .** ••••• ***.* •••••
I*TEST 76
TEST 'READY' CLEARS WHEN STARTING A "READ" FUNCTION
:,.********** •• **.****.*************.****.***********************
TST76: SCOPE
172172
HOV
IS,STIMES
/IDO 5 ITERATIONS
RESET
MOV
.1,111
,SET TIMER
NOV
DRIVE,nACS
,SELECT DRIVE
~AITREADY
;WAIT fOR "READY"
Move
'READIGO,nACS
;START A "READ"
1$,
BIT
tREADY, UACS
:CHECK "READY" BIT
BEQ
TST77
nBR IF "READY" = 0
ASL
PI
,IS TIME UP?
BNE
IS
,BR IF NO
ERPOR
I
J "READY" FAILED TO CLEAR
;,********** •• **.********** •• **.*******.*************.***********
,"TEST 77
TEST "READY" CLEARS WHEN STARTING A 'BACK SPACE fILE GAP' FUNCTION
,,-***.**_.*.* •• _ •• *.** •••• ***-_.*.**_ ••• *.****._.*-*.***.*.*****
TST77 , SCOPE
172130
MOV
15,STINES
; ,DO 5 ITE~ATIONS
RESET
MOV
II,RI
,SU TIMER
MOV
DRIVE,UACS
,SELECT DRIVE
WAITREADY
;WAIT FOR "READY"
MOVB
'BSfGIGO,nACS
,START A "BACK SPACE FILE GAP"
1$:
BIT
.READy,nACS
;CHECK "READY" BIT
SEQ
TSTI00
: ,b~ IF "READY· ;;: "
ASL
1<1
,IS TIME UP?
SHE
IS
,BR IF NO
ERROl<
I
,"READY" FAILED TO CLEAR
;,*.*********** ••• ****** •• *******************.***************.***
,*TEST 100
TEST "READY" CLEARS WHEN STARTING A 'BACK SPACE 8LOCK GAP' fUNCTION
;,************** •••• *****.*****************.*****************.***
TSTIII0. SCOPE
172066
MOV
15,STINES
nDO 5 ITERATIONS
RESET
MOV
II,RI
,SET TIMER
MOV
DRIVE,nACS
,SELECT DPIVE

TAil BASIC LOGIC TEST (PART II MAINDEC-ll-D~TAA-C
MACYII 27(732) 1I-~UN-76 15.15
DUlAC ,NEW
TIBe
TEST ·READY· CLEARS WHEN STARTING A "BACK SPACE BLOCK GAp· FUNCTION
1794

1107110

1795
1796
1797
1798
1799
1800
1801
IBII2
1803
1804
I BIIS
1806
1807
1808

8117112
11"7116
9B7122
""7124
0117126
007130

104412
112114
IU2714
01114113
111163111
110\373
104001

007132
007134
007142
0117144
007150
007152

800004
012767
0001105
012701
Ble1l4
104412

1809

1810
1811
1812
181l
1814
1B15
1816
1817
1818
1819
I 82~
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1812
18]]
18H

1107154

112714

007160
007164
007166
007170
007172

032714
001403
006301
001373
104001

007174

1100004
012767
000005
012701
010314
104412
1127\4
032714
001403
006301
001373
104001

007176

1107204
0072116
007212
007214
0a7216
007222
007226
007230
007232
007234

007236
007240
007246
007254
007262
007264
007266
907270

1842

007274

104U2

18U
1844
1845
1846
1847
1848
1849

007276
007302
007304
007310
007314
007316
007320

012700
010314
112714
Bl2714
nl402
006300
100373

WAITREADY
IBSBGIGO,nACS
IREADY,PTACS
TSTI01
1<1

,WAIT FOR 'READY·
,START A "BACK SPACE BLOCK GAp·
,CHECK "READY' BIT
IIBp IF 'READY· • It
,IS TIME UP?
1$
,SR IF NO
,"READY" FAILED TO CLEAR
1
" ••••••••• ** ••••••••• ****** •• *••• ***.********** ••••• *.**********
TEST 'READY" CLEARS WHEN STARTING A 'SPACE FORWARD FILE GAP' FUNCTION
I*TEST 1111

Move

""01111
908040

lSI

BIT
BEQ
ASL
8NE
ERROR

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

T5TI011 SCOPE
000005

172024

000001
000013
000040

is,STIMES
"DO 5 ITERATIONS
RESET
MOV
,SET TIMER
U,RI
MOV
DRlVE,nACS
,SELECT DRIVE
WAITREADY
,WAn rOR • READY'
MOVS
urFGIGO,PTACS
,START A 'SPACE FORWARD FILE GAp·
8lT
IREADY,UACS
ICHEC~ 'READY' BIT
lSI
BEQ
T5TI02
"BP IF 'READY" • 0
ASL
RI
,IS TIME UP?
BNE
,SR IF NO
IS
ERROR
, • READY' FAILED TO CLEAR
I
,,*.-.*.*.**** •••• _.**.**.**** ••• **.* ••• *** •• ******** •• ***-***._.
TEST 'READY" CLEARS WHEN STARTING A 'SPACE FORWARD BLOCK GAP' FUNCTION
I*TE5T
~J.*.******* ••• ***.******** •• **.*.* •• ** •• *.*****.* •• ** .** ••••• * ••
TSTI1I2: SCOPE
MOV
.5,STIMES
"DO 5 ITERATIONS
RESET
HOV
II,PI
,SET TIMER
MOV
DRIVE.PTACs
,SELECT DRIVE
WAITREADY
IWAIT fOR "READY'
Mova
WSfBGI GO, UACS
,START A "SPACE fORWARD SLOCK GAP'
BIT
,CHECK "READY" SIT
1$:
'READY.@TACS
BEQ
T5TI03
"SR If "P:EAOY" = "
ASL
RI
,IS TIME UP?
BNl
1$
,SR IF NO
ERROR
,"READY" FAILED TO CLEAR
I
" •••••• * ••••••••••••••••• ** •••• **.**.** ••• * •••••••••• ********_.*
TEST FOR "CLEAR LEADER ERROR" fOR "WRITE FUNCTION"
,*TEST 103
:,.*_.* •• **_.* •• * •••• *.** •••••••• - ••• ** •• *._*********.*****.*****
TSTI03. SCOPE
MOV
45,$TIMES
"DO 5 ITERATIONS
HOV
U$,SLPADR
"SET SCOPE LOOP ADDRESS
MOV
ITSTI04,SESCAPE "ESCAPE TO TEST 104 ON ERROR
RESET
MOV
DRIVE,PTACS
,SEL~CT DRIVE
WAITREADX
,MAKE SURE TAIl IS READY
MOVS
IPEwIND+Go.nACS
,LOAD REwIND AND GO
WAlTREADY
,GO WAIT FOR "READY' TO SET
MOV
.. ,R0
1$1
MOV
DRIVE,nACS
MOVS
IWPlTEIGO,tTACS
,START A WUTE FUNCTION
UEADy,nACS
BIT
,WAIT ON READY TO CLEAR
3S1
SEQ
4S
ASL
1\0
8PL
38
MOV

000005

171762

000001
~001115

000040

0110004
~12707

012767
012767
000005

000005
007276
007370

171720
171632
171706

1110314

104412
112714

000017
000001
000003
000040

MACYI! 27(732)
TAil BASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC ,NEW
TIB3
TEST fOR "CLEAR LEADER ERROR" FOR 'WRITE FUNCTION"
18S0
1851
1852
1853
1854

1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
18&9
1870
1871
1872
1813
1874
1875
IB76
18n

1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
18n
1893
1894
1895
1896
1897
1898
1899
1900
19111
1902
1903
1904
1905

SEQ 8855

'''2

1836
1837
1838
1839
1840
1841

IUS

PAGE 41

007322
007324
007326
007132
007336
007340
007342
007344

007346
007350
007352
007354
007356
007360
007364
007366

007370
007372
A~74110

00740.
007414
007416
007420
007422
007426
007430
1'107434
0"'7436
007442
1107446
007450
007452
1107454

007456
007460
007464
001466
001470
007472
007474
1107500
007502

007504
007506
1107514
007522
!t1l7Sl'"
1101532
007534
007536

1100005

4&1

eUH4

112714
012700
105714
100402
005200
1101374

000003
000~01

105115

U4412
"05714
100401
104001
032714

020000

001001
104001

000004
0.2767
012767
0127&7
000005
010314
104412
112714
104412
012700
0111314
112714
032714
001402
1106300
101137)
000005
010314
112714
104412
005714
100401
104001
032714
001001
104001

000004
012767
1112767
012767
008"05

000005
007430
007504

000017
000001
000005
000040

000005

020000

000005
007544
007620

0\0H4

104412
112714

171566
171500
171554

000017

171452
171364
171440

RESET
MOV
MOVS
MOV
TST8

1I-~UN·76

15115

PAGE 42

,SELECT DRIVE
,STAPT A WRITE FUNCTION
,WAIT A WHILE rOR XFER REG,
,XFER REQ
I?
5$1
,SR IF YES
8MI
,WAITED LONG ENOUGH?
INC
,BR If NO
BNE
,CLEAR TRANSFER REa,
TST8
6$ :
,GO WAIT FOR "READY' TO SET
~AITREAD}
,DID ERROR BIT SET?
nACS
TST
,BR If YES
BMI
2$
,'ERROR" BIT (BITI5) FAILED TO SET
EPROR
I
2$,
,HOW ABOUT CLEAR LEADEP BIT
8IT
HEADER,@TACS
BNE
TSTl04
nBF IF SET
,"CLEAR LEADER" NOT SET
EPROR
I
J: 4.******.********************************************.*** •• * .... *
TEST FOR 'CLEAR LEADER ERROR" FOR "READ FUNCTION'
I*TEST 1"4
,:********* •• **-*************************************************
TSTl04, SCOPE
MOV
15.STIMF,S
,DO 5 ITERATIONS
,SET SCOPE LOOP ADDRESS
MOV
81S.SLPADR
MOV
ITSTI05. $ESCAPE ,ESCAPE TO TEST 105 ON ERROR
RESET
;SELECT DRIVE
MOV
DRIVE,fiACS
,MAKE SURE TAIl IS READY
WAITREADY
IREWIND_GO, UACS
,LOAD REWIND AND GO
MOVS
JGO WAIT FO~ "READ~" TO SET
WAITREAOY
MOV
.1, P:0
1$:
MOV
DRIVE.@TACS
,START A READ FUNCTION
Move
IREADIGO.fTACS
;WAIT ON READY TO CLEAR
IREADY.nACS
3$:
BIT
BEQ
4$
R0
ASL
BPL
3S
RESET
4$1
MOV
,SELECT DRIVE
DRlVE.nACS
#READ!GO,@TACS
ISTART A READ FUNCTION
MOVS
,GO WAIT FOR 'READY" TO SET
WAITREAOY
,DID ERROR BIT SET?
@TACS
TST
BMI
,SR IF YES
2$
,"ERROR" BIT (BITls) FAILED TO SET
ERROR
I
,HOW ABOUT CLEAR LEADER BIT
#LEADER,@TACS
2$:
BIT
SNE
TSTI05
IIBR IF SET
,"CLEAR
LEADER" NOT SET
ERROP
I
:J**********************.**********.*****************************
rEST
FOR
'CLEAR
LEADER
ERROP"
FOR
"SACK SPACE FILE GAP fUNCTION"
:*TEST 105
J:********************************************.************-*****
TSTI05. SCOPE
15, STIMES
• DO 5 ITERATIONS
MOV
U$,SLPADR
,SET SCOPE LOOP ADDRESS
MOV
nSTI06,$ESCAPE ,ESCAPE TO TEST 106 ON ERROR
MOV
RESET
MOV
SELECT DRIVE
DRlVE.@TACS
MAKE SURE TAil IS READY
WAlTREADY
LOAD REWIND AND GO
IREWIND+GO,8TACS
Move
DRZVE,UACS
UPITEIGO,ITACS
... R0
PTACS
6$
P0
5$
nADS

SEa 0056

TAil BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
MACYII 27(732)
II-JUN-76
DZTAAC.NEW
TI05
TEST FOR "CLEAR LEADER ERROR" FOR 'BACK SPACE FILE GAP FUNCTION"
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
IQS7
1958
1959
1960
1961

007542
007544
007550
007552
007556
007562
007564
007566
007570
007572
007574
007600
007602
007604
007606
007610
007614
007616

104412
012700
010314
112714
032714
001402
006300
100373
000005
010314
112714
104412
005714
100401
104001
032714
001001
104001

000001

1$:

000007
000040

35 :

4$ :

000007

:GO WAIT FOR "READY" TO SET
,START A BACK SPACE fILE GAP FUNCTION
,WAIT ON READY TO CLEAR

MOVS

.BSFG!GO,~TACS

BIT
BEQ
ASL
BPL
RESET
MOV

#READY. nACS
4S
R0
3$
DRIVE.@TACS

MOVS

$SSFG!GO,@TACS

SEQ 0057

,SELECT DRIVE
,START A BACK SPACE FILE GAP FUNCTION

;GO WAIT fOR "READY" TO SET

,DID ERROR BIT SET?
;BR IF YES
i"EFROR" BIT (BIT1S) fAILED TO SET

BIT

#LEADER,@TACS

BNE
ERROR

TSTl06

,HOW ABOUT CLEAR LEADER BIT
;~SR

IF SET
:"CLEAR LEADER" NOT SET

::***************.* ••• *******.**********************************.
I*TEST !06

TEST FOR "CLEAR LEADER ERROR" FOR "BACK SPACE BLOCK GAP FUNCTION"

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

007620
007622
007630
007636
007644
007646
007650
007652
007656
007660
007664
007666
007672
007676
00770"
007702
007704
007706
007710
007714
007716
0~7720

007722
C07724
007730
007732

000004
012767
012767
012767
000005
010314
104412
112714
104412
012700
0103 \4
\12714
032714
001402
006300
10037 3
000005
010314
112714
104412
005714
100401
104001
032714
001001
104001

TST106:
000005
007660
007734

171336
171250
171324

SCOPE
MOV
#5,STIMES
;:00 5 ITERATIONS
MOV
#IS.SLPADR
:,SET SCOPE LOOP ADDRESS
MOV
nSTI07.SESCAPE ;:ESCAPE TO TEST 107 ON ERROR
RESET
MOV
DRIVE.~TACS
,SELECT DRIVE
WAITREADY
IMAKE SURE TAl! IS READY

HOVS

~00017

I SI

000001

3& :

4$:

2$ :

#R~WIND+GO,@TACS

; LOAD REWIND AND GO

WAITREADY
MOV
"1, F0
MOV
DRIVE,@TACS
MOva
#BSBG!GO,~TACS
BIT
#READY,@TACS
aEO
4S
F0
ASL
BPL
3S
RESET
MOV
DRIVE.~TACS

MOVS

,GO WAIT FOR "READY" TO SET

,START A BACK SPACE BLOCK GAP FUNCTION
I WAIT ON READy TO CLEAR

,SELECT DRI VE
,START A BACK SPACE BLOCK GAP FUNCTION

#BSBG!GO,@TACS

WAI TREADY
TST
@TACS
BMI
2$
~RROR
I
BIT
#LEAOER.@TACS
BNE
TST1~7
ERROR
I

:GO WAIT FOR "READY" TO SET
,DID ERROR BIT SET?
,SR IF YES

;"ERROR" BIT (8IT1S) FAILED TO SET
,HOW ABOUT CLEAR LEADER BIT
;;Bfl IF" SET
;"CL~AR

LEADER" NOT SET

; : ***** ilHlHHHIHHHHIHHHHf
********* '" ****** '* *** .. iHHHHI '* **** ** ************
TEST fOR "CLEAR LEADt:R ERROR" FOR "SPACE FWD FILE GAP ~"UNCTIONtI
::*.****** ••••••• * ••••• **.**.* ••••••• ****** •••••••••••••• ***** •• *
=*TEST Ul7

0077 34
007736
007744
007752
007760
007762

000004
012767
012767
012767
000005
010314

TSTI07:
000005
~07774

010050

TAil SASIC LOGIC TEST (PART I)

DZTAAC.NEW
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
19B2
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017

2$ :

PAGE 43

WAITREADY
HOV
(U,R0
MOV
DRIVE.@TACS

WAITREADY
TST
@ThCS
BMI
26
ERROR
I
020000

15:15

007764
0~7766

007772
007774
010000
610002
010006
010012
010014

01001b
010020
010022
010024
010030
010032
010034
010036
010040
010044
010046

T107
104412
112714
104412
012700
010314
112714
032714
001402

171222
171134
171210

MOV

DRIVE, !!ITACS

MAINDEC-II-DZTAA-C

MOV
MOV

MQVS

000013
000040

3S:

45 :
000~13

.REWINO+GO,@TACS

2S:

#SFfG!GO,~TAC5

BIT

#READY,~TACS

BEQ
ASL
eRL
RESET
HOV

4S
R0
35

MOVB

#5FFG!GO,~TACS

BIT
BNE
ERROR

\5:15

PAGE 44

IMAKE SURE TAil IS READY
,LOAD REWIND AND GO
~ GO

wA.IT FOF "READY" TO SET

IH,R0
DRIVE,@TACS

DRIVE,~TACS

WAITREADY
TST
~TACS
BMI
2$
ERROR
I
020000

II-JUN-7b

fWD FILE GAP fUNCTION"

WA! TREADY

15:

I SELECT DRIVE

MACYlI 27(732)
nSPAC~

WAI TREAOY

MOVS

000017

1040~1

032714
001001
104001

#5.STIMES
;:00 5 ITERATIONS
#1$,$LPADF
;;SET SCOPE LOOP ADDRESS
OTSTlI0,sESCAPF "ESCAPE TO TEST 110 ON ERROR

TEST FOR "CLEAR LEADER ERROR" rOH

0~6300

100373
000005
0103\4
112714
104412
005714
100401

SCORE
MOV
MOV
MOV
kES;:T

,LEAOER,@TAC5
T5T110
I

,START A SPACE FWD FILE GAP FUNCTION
,WAn 0" READY TO CLEAR

,SELECT DRI VIC
,START A SPACE FWD fILE GAP FUNCTION

:GO wAIT FOR "READY" TO SET
:DIO ERRO~ BIT SET?
,BR IF US
,"ERROR" BIT (8ITI5) FAILED TO SET
,HOW ABOUT CLEAR LEADER BIT
;:BFI IF SET

;"CLEAR LEADER" NOT SET

;;*************** •• ************ ••••••• ****** ••••• **** •••• ***.*.**
=*TEST 110

TEST [O"OR "CLEAR LEADE:R ERROR" rOf.: IISPACE FwD BLOCK GAP FUNCTION Ii

:: •••• *.****************** •••• ** •••••• **** •••••••••• ** ••••• ** ••••
010050
010052
010060
010066
010074
010076
010100
010102
010106
010110
010114
010116
010122
010126
010130
010132
010134
010136
010140
010144
010146
010150
010152
010154
010160
010162

000004
012767
012767
012767
000005
010114
104412
112714
104412
012700
010314
112714
032714
001402
006300
100373
000005
010314
112714
104412
005714
100401
104001
032714
001001
104001

TSTII0:
000005
010110
010164

171106
171020
171074

SCOPE
MOV
MOV
MOV
RESEl

MOV

#5,$TIMES
#lS,SLPADR
nSTll1.SESCAPE

DPIVE,@TACS

WAITREADY
MOVS
#REWIND+GO,~TACS
WA 1 TREADY

000017

1 S:

000001

MOV
MOV

MOVS

000015
000040

3$,

4S'
000015

#1,R0
DRIVE,@TACS
#SFBG!GO,@TACS
'READy,~TAC5

BIT
BEQ
ASL
BPL
RESET

45
Re
3$

MOV

ORIVE,@TACS

MOVB

(fSFBG1GO,@,'l'ACS

WAITRFADY
TST
~TACS
BMI
25
ERROR
1
020000

2S:

BIT

#LEADER,~TACS

BNE
ERROR

TSTlll
I

,DO 5 ITERATIONS
,SET SCOPE LOOP ADDRESS
,ESCAPE TO TEST IliON ERROR
,SELECT DRIVE

;MAKE SURE TAll IS READY
,LOAD REW INO AND GO

;GO WAIT FOR "READY" TO SET
,START A SPACE FWD BLOCK GAP FUNCTION
,WAIT ON READY TO CLEAR

,SELECT DRIVE
,START A SPACE FWD BLOCK GAP FUNCTION
:GO wAlT FOR "READY w TO SET

1DID ERROR BIT SET?
IBR IF YES

;"ERROR" BIT (BIT15) FAILED TO SET
,HOW ABOUT CLEAR LEADER BIT
; =SR IF SET

="CLEAR LEADER" NOT SET

***.*** ***********************************
***** *.. **************
TEST "Gon BIT IS WRITE ONLY
;,**.*********.** •• **.***.* ••••••••• ***.***.****.**.***********.*

;*TEST 111
010164
010166
010114
010202

000004
012767
012767
000005

000005
010206

170772
170704

ISTll1: SCOPE
MOV

MOV
RESET

#5,sTIMES

::00 5 ITERATIONS

#l$,SLPADR

;1SET SCOPE LOOP ADDRESS

SEQ 0058

TAil BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
DZTAAC.NEW
Till
TEST "GO" BIT IS WRITE ONLY
2018
2019

~10204

~10314

~1~20&

2~20

~10212

052714
032714
001401
104001
104412

2~21

010216

2022
2023

010222

~10220

000001
000"01

1 $:

25:

TAli BASIC LOGIC TEST (PART I)

MAINDEC-II-DZTAA-C

2~24

2~40

2041
2042
2043
2014
2~45

2046
2047
2049
2"49
2050
2051
2052
2053
2054
2055
U'Sb

2057
2058
2059
2060

2061
2062
2003
2004
2!Jb5

20b6
2067
206B
20.9
207"
2071
2072
2073
2074
2075
2076
2077
2078
2079

MOV
DRIVE,nlCS
11,@TACS
BIS
BIT
#\,@TACS
BEQ
2$
ERROR
1
.UTREADY

**** •• ** •• TPANSFER REQUESr •••••••• **

DZTAAC.NEW
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039

MACYI! 27(732)

MACYII

ll-JUN-76

15:15

PAGE 45

SEQ 0059

LOAD THE DRIVE
SET "GO" BIT
TRY TO READ IT
NO ERROR IF "GO" BIT=0
GO BIT WASN'T 0

WAIT ON "READY"

27(732)

II-JUN-76

15:15

SEQ

PAGE 46

,/////1/1/111111111111/1/1111/111111111111111/11111111/111111111111/1/1
:111111111/11//1111111/11//1111/1111//1//1111/11/111/1//1///1/1/1111111
,THE FOLLOWING TESTS CHECKS FOR PROPER OPERATION OF I'!TRANSrER REQUEST"
,AND /II ILbS" FOR BOTH WRlTING AND RHDING
,111111111111/1/1//1/111/1/1/1111//11///111//11/111/////////11111111111

0\0224
010226

000004

01~2J4

010242

012767
012767

"'t~2S0

~001J0S

010252
"10254
010256
0102&2
010264
010210
010272
010274
010276
010302
010306
010310
010312
010314
01031 &
010320
010322
010326
010330
010332
010334

~10314

010336

010340
010342
0103H
01~340

01035"
010352
010356
~h:l360

010362
010364
010366
010370
010372

~127b7

104412
112714
104412
112114
1044\2
000005
010314
112714
012700
00630"
001376
105714
100001
104001
005214
012700
00b300

::*.*.***.*******************************************************
TEST TRANSFER REQUEST & lLBS FOR "WRITt:"
: 4TEST 112
;:**4*.**** ... *********.*.******* ... ******** •• ***********.* ••••••••••

TSTI12: SCOPE
MOV
MOV

~l1e,,$TIMES

000017

MOVa

fREWINO+GO,@TACS

000001

MOVB

000012
010276
010374

170732
170644
170720

'8$,$LPADR
MOV
#1ST113, SESCAPE
RESET
MOV
DRIVE,~TACS
WAITREADY
WAITREADY

000002

H$,

MOVS

#WRITE,@TACS

IS:

MOV
ASL

# 1, R0
Fe
1S
UACS
2$

~h100~ 1

8NE

2$,
000~"'1

35,

0kJ137h

105714
100401
1040"1
105015
105714
100001
104001
104413
052714
105714
100001
104001
104412
005714
100001
104001

#WrG+GO,~TACS

WAITREADY
RESET
MOV
DRIVE,~TACS

TST8
BPL
ERROR
INC
MOV
ASL
BNE
TST8
8MI

45,

5s,
00002"

65 :

1
@TACS
# 1, R0
R0
3$
@TACS
4$
I
@TADB
@fACS

ERROR
CLRB
TST8
BPL
5$
ERROR
I
.AITHER
#ILBS,e3TACS
BIS
TST8
~TACS
BPL
6S
ERROR
I
WAITREADY
1ST
nACS
BPL
TST1I3
ERROR
I

DO 10. ITERATIONS
SET SCOPE LOOP ADDRESS
ESCAPE TO TEST II J ON ERROR
,SELECT DRIVE
,INSURE DRIVE IS READY

;GO TO BOT
~GO WAIT FOR "READ)'" TO SET
,GET OFF OF CLEAR LEADER
,GO WAIT FOR "READY" TO SET

1LOAD ftWRITE" fUNCTION
;KILL A LITTLE TIME
,INSURE XFER REO=0

;XFER REO" SET BEFORE "GO"
,SET "GO"
,KILL A LITTLE TIME
,CHECK THAT XFER EQ=1
,XFER REO FAILED TO SET
1KNOCK DOWN XfER REQ'I
,CHECK THAT "XFER FEQ" IS CLEAR
,XFER REO FAILED TO CLEAR

:GO wAIT ON "TRANSFER

REQUEST~

,SET ILBS--WRITE CRC
;010 "XFER REQ" CLEAR?
,SR IF YES
;"ILBS" DIDN'T CLEAR "XFER REOM
,GO WAIT FOR "READY" TO SET
;ANY ERROR?
"SR IF NO
,AN ERROR OCCURRED

: *** **.* '* ........ -It *.at * ...... ** *** * ** '* '* .. '* * ** ** ** *"". *it* ..... ** ... 'it * '* ********* **it**

*TEST 113

TEST "TRANSFER REQ" AND "ILBS" FOR "READ"

~.**.~*.*.**.**.**.****.*.*.***.*.*********.***********

010374
010376
010404
010412

000004
012767
012767
0127,7

000012
010472
010534

170562
170474
170550

STI13 : SCOPE
MOV
MOV
MOV

U0., GTIMES

U4$,SLPAOR
n5TII4, SESCAPE

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

DO 10. ITERATIONS
SET SCOPE LOOP ADDRESS
ESCAPE TO TEST 114 ON ERROR

TO SET

~060

TAli 8ASIC LOGIC TEST (PAPT 1) MAINDEC-Il-DITAA-C
MACYll 27(732)
DZTAAC.NEW
TI13
TEST "TPANSFER REO· AND "ILBS" FOR "REAO·
21180
211181
21182
21181
2084
2085
21186
21187
2088
21189
20911
21191
21192
2093
2094
2095
2096
21197
2098
2099
21011
2101
2102
2103
2104
2105
21116
21117
2108
21119
21111
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125

111114211
11111422
11111424
11111426
1118432
0111434
IIle4411
11111442
01et46
11111450
11111454
1110456
1110462
1110464
11111470
0111472
111111476
11110508
11105114
11111506
811115111
1110512
11111514
0111516
111115211
111"524
010526
11105311
111115H

••• 111115

RESET
MOV
DPIVE,tTACS
WAlTREADY
815
'REN1ND+GO, nACS
WAITREADY
MOV8
twFGIGO,nACS
WAJTREADY
MOV8
tWUTEIGO,nACS

fUI1I4
1114412
852114
104412
112714
184412
112714
1114413
112715
1114413
112715

1111111117
110111111111
1100"'03

0110377

MOVS
1377, nADS
WA1UFER
MOVS
U77,nADB

0000211

ala

IGO WAlT FOR ·READY· TO SET
,GET OFF OF ·CLEAR LEADER"
,GO WAlT ON ·READY·
ISTART A WRITE
IWRITE ON TAPE
,WUTE ON TAPE

41:

000017
008005

2S:
00011211

3S1

ULBs,nACS
WAlTREAoy
Move
IREWJNDIGO,nAC&
WAlTREAOY
Mova
4REAoIGO,UACS
WAlTXFER
nADIl
TST
TSTe
nACS
BPL
28
ERROR
I
WAITXFER
B15
ULeS,nACS
TSTB
nACS
BPL
3$
ERROR
I
WAITPEADY

,START A READ
,GO WAIT ON "TRANSFER REQUEST" TO SET
;CLEAR XFER REG
,010 XFER REO CLEAII?
,eR IF YES
,XFER REQ FAILED TO CLEAR
,GO WAIT ON "TRANSFER REQUEST" TO SET
;START ILBS--CLEARS XFER REQ
;DID XFER REQ CLEAR?
;BP IF YES
;XFER REQ FAILED TO CLEAR
;GO WAIT FOR "PEAoY" TO SET

" •• _•••••••••• _••••••••••• _••• _._ ••• __ .**._*_*_._.**._****tf •• f_

010546

170HZ

TSTII!4: SCOPE
MOV
PESET
MOV
lSI
BEQ
ERROR

*_._... ___ ... _.. _..._*****_f**ff

TEST THAT TAoB (READ

BUFF~R)

INIUALlZES TO II'S

U8,sLPADR

IISET SCOPE LOOP ADDRESS

tTADB,PI!
TSTI15

,PUT TADB IN RI!
I,CHECK FOR ALL ZEROS
:TADS NOT ALL ZEROS

,,_*••••• __ .* ••••• _•••• _••• _•••• __ ._._._ •• _••• __._ •••• 4*4**_f4 ••
,.TEST 115

TEST TAOS (WRITE BUFFER) FOR WRITE ONLY

T.STIIS: SCOPE
MOV
MOV
BEQ
ERROR

.-I,@TADB
trADB,R0
TSTI\6
6

,J** ••••••• - •••••••••••• _•••• _. __ •••••••• _••• - •• _••••• 4***t.f4.f.

1110554
0111556
010562
1110564
010566

811110114
812715
111150"
1101401
104086

177777

TAli BASIC LOGIC T~ST (PAPT I)
MAINOtC-11-oZTAA-C
OZTAAC.NEW
FLOAT A "I" TH~OUGH TADS
TI16
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151

SEQ 111.861

,SELECT DRIVE
ICHECK PUOY

,:_***** ••••• ___ ._._. ___ ._._ ••• __

110110114
1112767
1111811115
11115110
11111401
104006

PAGE 47

~AlTXrER

I*TEST 114
11I1I5H
1110536
010544
0111546
111115511
1110552

15:15

~AJTXFEP

1100377

teHIl
1152714
104412
11.2714
1114412
112714
1114413
""5715
1115714
1'1111111
1114001
1114413
1152714
105714
1011"01
1041101
1114412

ll-JUN-76

MACYII 27(732)

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

I*TEST 116

,LOAD TADB WITH I'S
;PUT TAOB IN R0
/lBR IF IT DIDN'T CHANGE
,ERROR

1I-JUN-76

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

IS.15

PAGE 48

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

FLOAT A "I" THROUGH TA08

" •• _•••••••••••••••••••••• _•••••••• _-_ ••••• _•••••••••• *** ••• ****

010570
010572
0106110
010606
010614
010616
0111620
010624
010626
010632
010634
010U"
01064,
010646
010650
010652
810654
810656
010668
810662
1110664
010666
010672

110811114
'H2767
1112167
11112767
ellB005
Ull314
112114
1114412
!l2714
1114412
1lf~'_1I1I

Uf114
104413
liBelS
104413
011501
1211881
0014111
1041107
10U00
103370
152714
104412

0110812
010634
~1061>6

11011017
800001
000001
000003

00"020

11831>6
170300
110354

T5T1I6: SCOPE
MOY
,,00 10. ITERATIONS
"0 .. 8TI~ES
MOV
IIS,$LPAoR
" SET SCOPE LOOP AOoRESS
MOV
f4S, SESCAPE
I,ESCAPE TO 48 ON ERROP
RESET
MOV
DRIVE, PTACS
MOVB
'R~WINDIGO,nACS
,POSITION THE TAPE
WAlTREADY
IGO WAIT FOR "PEADY' TO SET
MOVB
IWfGIGO,tTACS
,GET OFF OF 'CLEAP L~AoER'
WAITPEADY
,GO WAIT rOR "READY" TO SET
MOV
,INITIALIZE THE PATTERN
IS:
",P0
MOVS
,WRITEIGO,PTACS
ISTART A WRITE fUNCTION
WAlTXFER
IGO WAIT ON"TRANSfER REQUEST" TO SET
R0,nADB
2$:
MOVS
ILOAD TAoB WRITE BUFFER
WAlTXFEP
,WAIT ON "TRANSFEP REQUEST"
@TAoB,PI
MOV
,PEAO THE DATA BUFFER
CMPS
R0,Rl
;CHECK THE D.ATA
BEQ
3$
,BR IF DATA IS GOOD
ERPOR
7
; ERROR---TAOB NOT EQUAL R0
ASLB
Fa
,NEXT PATTERN
3S1
2$
BCC
IBR IF MORE TO DO
4$,
BlSB
IlLBS,UACS
,W~ITE CRC
WAITREAOY
IGO ~AIT FOR "~EAoy" TO 5ET

SEQ 0062

MACYlI 27(732)

TAil BASIC LOGIC TEST (PART 11 MAINDEC-II-DZTAA-C
FLOAT A "0" THROUGH TADB
Till
DZTUC.NEW
2152
2153
2154
2155
2156
2151
2158
2159
2100
21bl
2162
2163
21b4
21b5
21&0
21&1
21&8
2169
2110
2171
2112
2173
2114

2115
211b
2171

15. IS

PAGE 49

SEQ

een

J ,***.**********************' •••• *.***.****.*.*********** •• *****.*
FLOU A ·V" THROUGH TADB
,*TEST 111
, J

010614
010616
010104
1110112
010120
1I1~122

010124
010730
010132
010736
Bl0140
010144
010150
010152
0111754
01015&
11101&0
0101b2
0101&4
010166
810170
1110712
01011&

000004
012161
012161
0121bl
000005
010314
112714
104412

112114

000012
010140
010112

1711262
110174
110250

000017
0110001

104412
1112111~

112114
104413
110015
104413
011501
120001
0"1401
1040111
100300
103110
152714
104412

177776
000003

000020

*... ****.****.**** ••• *.*******.*.********.*.*.****.*****_ •• ft • • _ • •

TSTII1: SCOPE
"DO 10. ITERATIONS
U0.,STIMES
MOV
"SET SCOPE LOOP ADDRESS
.1S,SLPADR
MOV
"ESCAPE TO 4S ON ERROR
14S,SESCAPE
MOV
RESET
DRIVE,@TACS
MOV
,POSITION THE TAPE
MOVB
'RE~IND1GO,nACS
,GO WAIT FOR "READY" TO SET
riAITREADY
,GET OFF Of ·CLEAR LEADER"
,WFGIGO,nACS
MOVB
,GO
WAIT FOR "READY' TO SET
WAITREADY
,INITIALIZE THE PATTERN
MOV
'-2,R0
1S:
A WRITE FUNCTION
,START
.WRITEIGO,@TACS
MOVB
,GO WAIT ON "TRANSfER REQUEST" TO 5ET
WAlTXFER
,LOAD
INTO
WRITE BUFFER
F0,nADB
MOVe
2S1
,~AIT ON "TRANSFER REQUEST"
WAITXFER
IREAD
THE
DATA
BUFFER
nADB,RI
MOV
ICHECK THE DATA
R0,RI
CMPB
,BR
IF
DATA
Is
GOOD
BEQ
3S
,ERROR---TADB NOT EQUAL R0
ERROR
1
,NEXT PATTERN
ASLB
R0
3S1
,BR IF MORE TO DO
BCS
2$
IWRITE CRC
ULBS,nAC5
BISB
4$.
,GO WAlT FOR "READY· TO SET
WllTREADY

MACYlI 27(132)

MA INDEC-II-DZTU-C
TAil BASIC LOGIC TEST (PART I)
COUNT PATTERN TO TADS
T1211
DUAAC. NEW
2118
2119
21 B0
21 ~ I
2182
2183
2184
2185
218b
2181
21BB
2189
2190
2191
2192
2193
2194
2195
219&
2191
2198
2\99
2200
2201
2202
2203

I1-JUN-76

II-JUN-16

15:15

PAGE 50

,,************************ •• **********************************.**
,oTEST 120

COUNT PATTERN TO TADB

" •• e._.e.***.**** •••• ** •• * •••• _* •• **.-*** ••• * ••••••• *.***.4.****
01\000
011~02
01101~

011016
011~24

0\102b
011030
1111034
01103b
~11042

1111044
011"4&
011052
011~54

01105&
011060
0110b2
011064
111I0b6
011070
011012
011014
011100

000004
012167
012761
012161
0"00115
U03\4
112114
104412
112714
104412

000012
011044
011014
000017
000001

1105011~

112114
104413
110015
104413
011501
120001
110Uel
104005
105200
0111370
152114
104412

1100003

000020

110156
110010
170144

T5T120: SCOPE
310., STUtES
"DO 10. ITERATIONS
MOV
"SET SCOPE LOOP ADDRESS
US,SLPADR
MOV
"ESCAPE TO 4$ ON ERROR
U$,SESCAPE
MOV
RESET
DRlVE,nACS
MOV
,POSITION TH~ TAPE
.REWINDIGO,UACS
MOVB
,GO WAIT fOR "READY" TO SET
_AITREADY
IGET DrF OF 'CLEAR LEADE""
JWfGIGO,nACS
MOVB
,GO WAIT FOR "READY' TO SET
WAlTREADY
,IN I'rIALIZE THE COUNT PATTERN
CLR
IS:
:START A WRITE FUNCTION
URITEIGO.UACS
HOVB
,GO WAIT ON "TRANSfER REQUEST" TO SET
WUUFER
,LOAD TADB WRITE BUn'ER
R0,iTlOS
MOVB
2$1
,WAIT ON 'TRANSFER REQUEST"
WAITXFER
IREAD THE DATA BUFFER
nADB,RI
MOV
,CHECK THE DATA
P0,RI
CMPS
,SR
IF DATA IS GOOD
BEQ
3$
,ERROR---TADS NOT EQUAL R0
ERROR
5
,UPDATE
THE PATTERN
INCB
1>0
]s:
,LOOP IF NON-ZERO
2$
9Nt:
,WRITE
CRC
ULSS.nACS
8ISB
4$,
,GO ~AIT FOR "READY" TO SET
WAITIIEADY

SEQ 0064

TAli BASIC LOGIC TEST (PART 1) MAlNDEC-11-DZTU-C
DZTlAC.NEW
END OF TEST CODE
T121
2204
22~5

2206
2207
2208
2209
2210
2211
2212
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2239
2239
2240
2241
2242
2243
2244
2245
224&
2247
2248

1111102
011104
011112
11I1114
011116
011122

0011004
012767
000005
010314
112714
104412

000001

170054

000017

2272

2273
2274

2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
23112
23113
2304

I1-JUN-76

15115

PAGE 51

SEQ 0065

Jr·_·***··***·******·**··*··******···**-*******·***·*************
END Of TEST CODE
:*TEST 121
JJ***************************************************************
TSTI21: SCOPE
MOV
II. STIMES
n DO ITERATION
RESET
MOV
DRIVE.nACS
,SELECT DRIVE
MOVS
'REWINDIGo.nACS
WAITREADY
.SBTTL END OF PASS ROUTINE
r,*·-*·*-**·****_·*--*··********·****·_··*_··*_····--·***********
,*INCREHENT THE PASS NUMBER (SPASS)
,-TYPE "END PASS"
I*IF THERES A MONITOR GO TO IT
I*IF THERE ISN'T JUMP TO START
I*IF IT IS DESIRED TO HAVE A BELL INDICATE THE "END OF PASS· LOCATION
I"'ENDMG CAN BE CHANGED TO 7.

011124
1111124
011126
011132
011136
1111142
011150
011152
1"1154
1111156
0111&0
011162
11111&4
011170
011174
011176
011200
011202
011204
011211&
1111210
011210
011212
011214
1111217
011224

111111004
1105067
11115067
005267
1142767
005327
1100001
00}015
1112737
"0"",,1
011152
1044111
013700
001405
1100005
1104710
1100240
000240
""0240
0011137
""2234
377
015
050040

'EOPI
167750
170030
167736
1011000

167730
SEOPCT.
SENDCT:

1111217
000042

SGET42:
SENDAD:

SCOPE
CLR
CLR
INC
BIC
DEC
.WORD
BGT
MOV
.WORD
SEOPcr
TYPE
MOV
BEQ
RESET
JSR
NOP
NOP
NOP

SDOAGN:
377
042412
051501

000
04211"
000123

SRTNAD
SENULL
HNDMG

.SBTTL

STSTNM
STIMES
'PASS
1100000, SPASS
lPC)'
1
SDOAGN

,:ZERO THE TEST NUMBER
"ZERO THE NUMBER OF ITERATIONS
"INCREMENT THE PASS NUMBER
"DON'T ALLOW A NEG. NUMBER
"LOOP?
;;yEs

(PC).,~(PC).

"RESTORE COUNTER

.SENDMG
U42.RR
SDOAGN

~:TYPE

"END PASS·

"GET MONITOR ADDRESS
:,BRANCH IF NO MONITOR
"CLEAR THE WORLD
"GO TO MONITOR
I,SAVE ROOM
, :'·OR
II ACTII

PC,(R0)

JMP
.WORD

@(PC).
START

.BXTE

;:NULL CHARACTER STRING
<15><12>/END PASS I

.ASClZ

TAli BASIC LOGIC TEST (PAPT 1) MAlNDEC-II-DUAl-C
DZTAAC.NEW
SCOPE HANDLER ROUTINE
2249
2250
2251
2252
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271

MACYII 27(732)

; ,RETURN

.. 1,"'1,0

MACYll 27(732)

l1-JUN-76

15:15

PAGE 52

SCOPE HANDLER ROUTINE

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

I"THIS ROUTINE CONTROLS THE LOOPING Of SUijTESTS. IT WILL INCREMENT
,*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0»
,*AND LOAD THE ERROR fLAG (SERFLG) INTO DISPLAY<15.08>
,"THE SliITCH OPTIONS PROVIDED BY THIS ROUTINE ARE,
,*SWI4=1
LOOP ON TEST
:"SWI1=1
INHIBIT ITERATIONS
I*SW09=1
LOOP ON E~ROR
,*SW08=1
LOOP ON TEST IN SWR<7,0>

; _CALL

1*
011232
1111232
1"1234
011242

104406
032777
001111

011244

00041&

011246
011252
1111260
011264
011270
011272
1111274
1111 J00
011302
1111302
011310
1111312
011320
1111322
"IU26
1111330
1I11l36
IlIU40
011346
011350
1111356
111I361l
011364
011l71l
011372
11114111l
1111402
0114116
1111410
1111414
1111422
1111424
1111432
1111441l
011444

013746
012737
005737
012637
00,,4"3
022626
1112637
01111423

000004
011272
177060
0000114

1132777
0111404
127767
1101462
1115767
01lU21
126767
1011115
1132777
0111404
1116767
000443
105067
005067
0011415
1132777
"'"011
11115767
0014116
005267
026767
11021121
1112767
1116767
1115267
011667

000400

167630

167622

167562

SSCOPE:
040000

167676

SCOPE

"TEST fOR CHANGE IN SOFT-SWR
'BITI4,~SWR
'ILOOP ON PRESENT TEST?
SOVER
"YES IF SWI4=1
: ..... START OF CODE FOR THE XOR TESTER. #.
$XTSTR: BR
6$
"IF RUNNING ON THE ·XOR" TESTER CHANGE
"THIS ll/STRUCTION TO A ·NOP" (NOP=240)
MOV
U~RRVEC, -lSP)
"SAVE THE CONTENTS Of THE ERROR VECTOR
MOV
'5$,~OERRVEC
"SET FOk TIMEOUT
U177060
T5T
"TIME OUT ON XOR?
MOV
(SP).,UERRVEC I ,RESTORE THE ERROR VECTOR
SSVLAD
BR
,IGO TO THE NEXT TEST
(SP).,(SP).
CMP
,:CLEAR THE STACK AFTER A TIME OUT
5S:
MOV
lSP).,UERRVEC "RESTORE THE ERROR VECTOR
BR
7S
"LOOP ON THE PRESENT TEST
6S: I ",,,END OF CODE FOR THE XOR TESTER", U
BIT
'BIT08,~SWR
"LOOP ON SPEC. TEST?
BEQ
IIBR If NO
2S
@SWR,STSTNM
SWR<7:II>
CMPB
'ION THE RIGHT TEST?
ijEQ
SOVER
IIBR IF YES
TSTS
SERFLG
,:HAS AN ERROR OCCURRED?
2S:
BEQ
~,BR If NO
3S
CMPB
SERNAX. SERFLG
"MAX. ERRORS FOR THIS TEST OCCURRED?
8HI
3S
"BR If' NO
#8IT09,@SWR
BIT
"LOOP ON ERROR?
BEQ
4$
IIBR IF NO
MOV
$LPERR,SLPADR
"SET LOOP ADDRESS TO LAST SCOPE
7$.
SOVER
BR
CLRB
SERFLG
IIZERO THE ERROR FLAG
4$:
CLR
STIMES
'ICLEAR THE NUMBER OF ITERATIONS TO MAKE
BR
"ESCAPE TO THE NEXT TEST
IS
IBIT11, ~SWR
BIT
'IINHIBIT ITERATIONS?
3S.
BNE
1$
"SR IF YES
T5T
SPASS
"If fIRST PASS Of PROGRAM
BEQ
1$
"
INHIBIT ITERATIONS
$lCNT
:,INCREMENT ITERATION COUNT
INC
STIMES, SICNT
CMP
::CHECK THE NUMBER OF ITERATIONS MADE
SGE
SOVER
IIBR IF MORE ITERATION REQUIRED
#I,nCNT
MOV
"REINITIALIZE THE ITERATION COUNTER
1$1
SMXCNT,STlMES
MOV
:ISET NUMBER OF ITERATIONS TO DO
BSVLAD: INCB
nSTNM
IICOUNT TEST NUMBERS
(SP),SLPADR
MOV
:,SAVE SCOPE LOOP ADDRESS
1$:

CKSWR
BIT

SHE

000004

167555
167561

167545

""1000

167572

167534

167530

167517
167576
0040110

167540

167472
167470
167546
11011001
000044
167436
167436

167462
167452
167526

:,SCOPE=IOT

SEQ 0066

TAil BASIC;~eGIC TEST (PART I)
MAINDEC-II-DZTAA-C
SCOPE HANDLER ROUTINE
DZTAAC.NEW
2305
23~6

2307
2308
2309
2310
2311

11114511
011454
0\1460
011466
011474
811500
011502

1111667
8051167
112767
016177
1116716
0110002
0037211

167434
16751~

YIIII0" 1
167410
167406

167427
167446

MOV
CLR
MOVB
SOVERI
HOV
HOV
RTI
SMXCNT: 2000,

MACYll 27(732)

(SP).SLPERR
$ESCAPE
fl. BERNAX
STSTNM.'DISPLAY
SLPADR'(SP)

ll-JUN-76

15115

PAGE 53

SEQ 111167

,SAVE ERROR LOOP ADDRESS
,CLEAR THE ESCAPE FROM ERROR ADDRESS
10NLY ALLOW ONE(I) ERROR ON NEXT TEST
IDISPLAY TEST NUMBER
,FUDGE RETURN ADDRESS
IF'lXES PS
IHAX. NUMBER OF ITERATIONS

TAil BASIC LOGIC TEST (PART I)
MAlNDEC-II-DZTAA-C
ERROR HANDLER ROUTINE
DZTAAC.NEW
2312
2313
2314
2315
2116
HI7
2319

.SBTTL

II-JUN-76

15,15

PAGE 54

ERROR HANDLER ROUTINE

11***************************************************************
I"THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT.
I'SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
I *ANO GO TO TYPERR O~ ERROR
I*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AR!;,
HALT ON ERROR
;*S"'15=1
INItIBIT ERROR TYPEOUTS
;*SW13=1
BELL ON ERROR
;*5WI0=1
LOOP ON ~RROR
;*5W09=1

231q
2320
2121
23J2
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2H.!
2H4
23J5
2H&
23J7
2338
2319
2340
2341
2342
2343
2344
2345
2146
2347
2348
2349
2350
2351
2352
2353
2354
1355
2356
2.!57
2358
2359
2360
2361
2362
2363

MACYI! 27( 732)

;*CALL
1*
011504
1111504
011506
011512
011516
011522
011526
011512
011534
011542
011550
~11552

011556
011562
011566
011574
011602
01l61~

011612
011616
011&22
011622
1111626
011630
011632
011634
011642
0111>44
011650
011654
011656
011662
1111662
AI1670
011672
1111674
011674

ERROR

II ERROR=EMT AND N=ERROR ITEM NUMBER

SERROR,
1114406
011417
011537
1110037
1Il101l7
1052&7
001775
Bl6777
032777
001402
104401
005267
011667
162767
117767
032777
001004

001162
001164
0111124
001126
167351
167342
002000
001172
167330
167330
000002
167316
1120000

0~4167

000060

104401

001177

005777
100002
000000
104406
032777
0101402
016716
005767
081402
016716

167312

001000

167400
16737A

CKSWR
MOV
MOV
ERROR I , MOV
MOV
INCB
75:
SEQ
MOV

BIT
IS:

167322
167312
167330

20$'
25:

167276

167240
167314

3S1
4S1

167306

BEQ
TYPE
INC
MOV
SUB
Move
BIT
HNE
JSR
TYPE
TST
BPL
HALT
CKSWR
BIT
BEQ
HOV
TST
BEQ
MOV

nACS. USREGII
fTADB . . . SREGI
R0.9UGDDAT
RI •• UBDVAT
$ERFLG
7$
STSTNM.~DISPLAY

#8IT10.9SWR
1$

,SBELL
SERTTL
(SPJ.IERRPC
.2. sERRPC
@SERRPC. SITEMB
#8IT13. PSWR
201
PC.TYPERR
•• CRLF
@SWR
3$

IITEST FOR CHANGE IN SOFT-SWR
ISAVE THE STATUS REG.
ISAVE THE DATA BUFt'ER
IRe WILL CONTAIN THE GOOD DATA
IRI WILL CONTAIN THE BAD DATA
; ,SET THE ERROR FLAG
"DON'T LET THE FLAG GO TO ZERO
IIDISPLAY TEST NUMBEI< AND ERROR FLAG
"BELL ON ERROR?
IINO • SKIP
IIRING BELL
IICOUNT THE NUMBER OF ERRORS
IIGET ADDRESS OF ERROR INSTRUCTION
IISTRIP AND SAVE THE ERROR ITEM CODE
IISKIP TYPEOUT IF SET
"SKIP TYPEOUTS
IIGO TO USER ERROR ROUTINE

IBlT09.PSWR
4S
$LPERR.(SP)
$ESCAPE
5S
&ESCAPE. (SP)

~:HALT OH ERROR
"SKIP IF CONTINUE
,;HALT OH ERRORI
IITEST FOR CHANGE IN SOFT-SWR
IILOOP ON ERROR SWITCH SET?
IIBR IF NO
I : FUDGE RETURN FOR LOOPIHG
IICHECK FOR AN ESCAPE ADDRESS
IIBR IF NONE
"fUDGE RETURN ADDRESS FOR ESCAPE

ISENDAD. U42
6S

IIACT-ll AUTO-ACCEPT?
IIBRANCH IF NO

5$,
022737
0111001
000000

011200

0011042

eMP
BNE
HALT

:;YES

65:
000002

RTJ

IIRETURN

SEQ 01168

MACYII 27(732)

MAINDEC-ll-DZTAA-C
TAli BASIC LOGIC TEST (PART 1)
ERROR TYPEOUT ROUTINE
OZTAAC.NEW
2364
23&5
23&6
23&7
2368
2369
2370

2371
2372
2373
2374
2375
2376
2377
2378
237q
2380
2381
2382
2383
2384
2385
2386
2387
23a8
2389
2390
2391
2392
2393
2394
2395
239&
2397
2398

24~4

2405
24116
24 .. 7
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
24\8
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
24.10
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452

15115

PAGE 55

SEQ "069

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

ITHIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES
011676
1111702
011704
1l11711l
011712
1111714
"11716
011720
011724
0117311
011732
1111734
011740
1111744
011746
01175"
011752
011756
11117&0
011762
11117&4
011770
011772
011772

104401
1110046
113701l
011530"
00630"
1l1l6301l
0"611l1l
06270"
012067
104401
1l110"00
1114401
012067
11111404
1114401
110001111
1044111
111211011
"0111114
012600
1114401
11002117

IHI774
1111776
III 201111
012002
012006
0120111

TYPERR: TYPE
MOV
MOVB
DEC
ASL
ASL
ASL
ADD
MOV
TYPE
0
1$:
TYPE
MOV
BEQ
TYPE
21:
0
TYPE
MOV
3$:

001177
001114

0111236
IIIlIl""2
001177
0"""04

1'''

R0
Ril
R0
UERRTS,R"
(RIl)+,1$

013046

MOV

@(RII)+,-(SP)

104402
11115710
11111770
10UBI
111111771
020040
012014

TYPOC
TST
BEQ
TYPE
BR
.Asen
,EVEN

(R01
48
,68
58
I

41:
0111177

,PICKUP "DATA HEADER' POINTER

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

MOV
TYPE
lOTS

8N~

,FORM THE TABLE POINTER
IPICKUP "ERROR MESSAGE" POINTER
,TYPE "ERROR MESSAGE"
,"ERROR MESSAGE POINTER" GOES HERE

,.CRLF
(R0)+,21
38
,8CRLF
(RIII+, .. 0
58
(SP).,RII
,ICRLF
PC

001177

ITYPE A CARRIAGE RETURN & LINE FEED
,SAVE R0
,PICKUP THE ITEM INDEX
,ADJUST THE INDEX
ISO IT WILL WORK FOR
,THE ERROR TABLE

,8CRLF
R0,-(SP)
"SITEMS,R0

,PICKUP "DATA POINTER"
,IF THERE IS DATA TO TYPE GO DO IT
IRESTORE I'll
,TYPE A CARRAGE RETURN&LINE FEED
,RETURN

5$1

012010
6$1

11110

,SAVE @(R01+ FOR TYPEOUT
,TYPE DATA
,GO TYPE--OCTAL ASCII(ALL DIGITS)
,TERMINATOR?
,BR IF YES
,TYP~ 2 SPACES
,LOOP
,ASCll STRING OF 2 SPACES

MAINDEC-II-DZTAA-C
MACYII 27<7321
TAil BASIC LOGIC nST (PART I)
ROUTINE TO wAIT ON THE READY BIT TO SET
DZTAAC.NEW
23q9
240"
24111
2402
2403

II-JUN-76

15:15

PAGE 5&

SEQ 0070

" ••• *********.****.************** ••• *.*************** ****.******
IROUTINE TO WAIT ON THE READY BIT

"12014
1112014
"12"20
11121126
11121132
111211411
0121144
012050
012052
012054
01 ~056
012060
,,120&2
012064
1112066
012070
1112072
012074
1112076
1112100
012104
012110
1112114
012116

0115067
01&767
1112&37
162737
012637
032714
001313
105714
100002
104004
000407
005227
11"0000
0013&6
005327
01101100
003363
1041102
013146
111314&
062716
0000112
000000

"00044
11011072
0012112
111100112
0012114
011,,"40

011"044
001202

0111204
11111202
1100002

WAIT.ON.READY,
CLR
MOV
MOV
SUB
MOV
BIT
WAITt:
BNE
TSTB
BPL
ERROR
&R
INC
WAIN:
WAIT2:
II
SNE
DEC
HGHTI": 0
BGT
gRROR
MOV
WAITl,
MOV
ADD
RTI
MAlCNT, 0

WAIT2
MAXCNT,HGHTIM

,SETUP MAX. TIME TO WAIT ON "READY"

(SP)+,~'SAVPC

,GET THE PC OF THE WAITREADY INSTRUCTION

'2,~'SAVPC
(SP)+,~'SAVPS

.READY, ~TACS
WAlT3
nACS
WAlT4
4

ISAVE THE PS
I READY=!?
,GO ON IF YES
,CHECK TRANSfER REQUEST

:"TRANSfER REQUEST" SET WHILE WAITING ON "READY'

~AITl

(PC).

;COUNT fAST COUNTER

WAITI
(PC).

;GO CHECK "READY" AGAIN
,COUNT LOOP COUNTER

WAITt
2
a'SAVPS,-(SP)

,GO LOOP
: "fl:EAOY"
,GET THE
,GET THE

~'SAVPC,-(SP)

AGAIN
fAILED TO SET
STATUS BACK
PC

'2,(SP)

1:***-·······*-········ __·_--_····_·_·_· __ ··_·_· __···· ..... ******

I ROUTINE TO WAlT ON TRANSFER REQUEST
012120
0121211
012124
1112132
IIn136
012144
012150
012152
012154
1112160
0121&2
012164
012166
1112170
012172
1112174
1112176
012200
"122112
0122114
1112210
012214
1112220

11115067
IIU767
1112637
162737
812637
105714
100414
1132714
111114112
1041104
111111407
11115227
00011110
8111366
"05327
80011110
11113363
1114003
1113746
1113746
"62716
""01102

000"44
1112116
001202
0011002
1101204

0011044
001202

WAIT .FOR.XYEII.REa:
CLR
2$
@.MAXCNT,)$
MOV
MOV
(SP)+,USAVPC
SUB
I2,USAVPC
(SP)+,@.5AVPS
MOV
TST8
tTACS
lSI

BMI

000040

BIT

1101204
001202
0000112

BEQ
ERROR
IIR
INC
0
BNE
DEC
0
SGT
ERROR
MOV
MOV
ADD

5$1
281
3$1
48:

RTI

U
.READY,@TAeS
58
4
4S
(PCl+
1$
(PC)+
1$
3
USAVPS,-(SP)
"SAVPC.-(SP)
12,(SP)

,SETUP wASTE TIME LOOP
IGET THE PC OF THE WAlTXFER INSTRUCTION
,SAVE THE PS
,CHECK XFER REQ
,EXlT IF SET
,LOOK AT READY
,BR IF "READY" ISN'T SET
,"READY" SET WHILE WAITING FOR "XFER REQ"
,COUNT
IBR IF MORE TO DO

I"TRANSFER REQUEST" fAILED TO SET
,GET THE STATUS BACK
,GET THE PC
,GO BACK

)

TAIl BASIC LOGIC TEST (PART I) MAINDEC-ll-0ZTAA-C
ROUTINE TO WAIT ON TRANSFER REQUEST

MACYlI 27(732)

II-JUN-7.

15115

PAGE 57

OZTAAC.N~W

2453
2454

, , ****** ~ ***** ****************>lHHHt******************** .. **********

2455
2456
2457

.SSTTL

2461
2462
2463

JSR
RETURN
012222
01222.

2470

012232
012234
012236
012240
012242
012246
012252
012254

2471
2472

012256
012260

2473
2474

012264
012266
012270
012272
"12276
012300
012302
012304
012306

2464
2465

2466
2467

2408
2409

2475

2476
2477
2478

2479
2480
248 I
2482
248 J

2484
2465
2480

2487

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

,CALL

2458
2459
2460

104401

015570

005067

166772

ASKORV, TYPE
CLR
ROLIN
MOV
T5TB
BEQ
MOV
LOOP,
CMPB

104410

012600
105710
001425
012701
122710
001002
112021
000411

001224
000101

122710

000102

001002
112021
000404
122710

SNE

NOTAl

NOTS:

000054

0~1006

012312

105720
105710
001406
022701
101355

012314
012320
012322
012326

104401

001176

000740
005767
001772

166676

~12 330

000207

NEXT'
001226

SEa 0071

MOVB
SR
CMPB
aNE
MOVB
BR
eMPB
BNE

PC,@HSKDRV
;NOTEz R0 AND R1 ARE OESTROYED

,MSGDRV
ORVKEY

,<CRLF>' DRIVE CS l?

(SPH,R0
@R0
NOTLGL
.DRVKEY,RI
" ·A,IiR~

:WAS DRIVE "A' SELECTED?
:BR IF NO
:SET KEY FOR DRIVE 'A"

.'"8,@R0

tWAS DRIVE "8" SELECTED?
:BR IF NO
:SET KEY ,OR DRIVE I'IH"

NOTA
[R0)., (Rl)+
NEXT
NOTB
(R0)."RI)+
NEXT
'54,@R0
NOTLGL

T5T6

(~0).

T5T8

@R0

BEU

EXIT

eM?
BHl

IDRVKEY+2,R1
LOOP
,SGUES
ASKDRV
DRVKEY
NOTLGL

NOTLGL, TYPE
BR
TST
BEQ
RTS

EXIT,

IGO GET A DRIVE
:SETUP TO CHECK FOR VALID DRIVECS)
,WAS A DRIVE SELECTED?
:SR IF NO

: WAS A COMMA TYPED?
,B~

IF NO

:DUMP THE COMM~
,TERMINATOR?
:SR IF YES
:TWO DRIVES SELECTED?
IB~ IF NO
: ILI,EGAL INPUT DETECTED
I GO TRY AGAIN
:ANY D~IVE SELECTED?
,SR If NO

24"8

TAil BASIC LOGIC TEST (PART 1) MAINDFC-II-DZTAA-e
DZTMC.NEW
CHANGE TAli ADDRESSES
2489
2490
2491
2492
2493
2494

2495
2496
2497
2498
2499
2500

2501
2502
2503
2504

2505

MACHI 27(732)

II-JUN-76

15,15

PAGE 58

=:****.*******************************.*********************.*.**

012332
012334

012340
012342
012344
012346
012352
012354
01236"
012364

010046
104401

015603

104411
" 1260"
00\423
02~027

10377.

010037

001206

06270"

"eJ~002

01237.

010037
013737

001212
001206

012376

005237

001210

012402
01241.
012414
012420
012422

013737

001212

005237
10440\
104411
012000

001214

012424

001411
020021

001210

.SBTTL
l CALL

ROUTINE TO INPUT eSR,DBR, AND VECTOR ADDRESS AND PRIORITY

;JSR

PC,~#ASKADR

ASKADR: MOV
1 s:
TYPE
RDOCT
MOV
SEQ
eMp
SLO
MOV
ADD
HOV
MOV
INC

R0, ... (SP)

lSAVE R0

,MSGASK

; "TACS1"
iGET VALUE

(SP)+,R0

lPICK UP THE OCTAL NUMBER
:If "0" USE OLD VALUES
:MAKE SURE IT IS A BUS ADDRESS

3$
R~,

*' 160000

1$
R0,@.TACSL

,SAVE TOE TACS

'2,R0

:STEP TO TAOB AODRESS

R0,@#TAD8L

lAND SAVE IT
:SETUP TACS UPPER
,BYTE POINTER

@#TACSL,@#TACSH
~nACSH

2506

2507
2508
2509

,2510
2511
2512
2513

2514
2515
2516
2517
2518
2519
2520
2521
2522
2523
2524
2525
2526
2527
2528
2529
2530
2531
2532

2533
2534
2535
2536
2537
2538
2539
2540
2541
2542

2543
2544

012426

012432
0124J4
01244.
012444
01245"

012454
012456

012460
012402
012466
~12470

012472
012474
012476
012500
012504
012510

012514
012520

012522
012526
012532
012534
012540
012544
012546
012552
012556
012560
012564
012566

103310
010037

062700

015613

001220

104401

015663
166444

104401
104407

012600

MOV

3$ :

001216
000002

010031
104401
104411
01260"
001413
020027
101310
00030"
00620"
""6200
006200
042100
010037
104401
016746
104402
104401
016746
104402
104401
016746
104402
016746
104402

001214

015623

5$:

000007

117437
001222

015635
166466
015643
166460
015652
160452

015676

6S:

INC
TYPE
RDOCT
HOV
SEQ
eMp
HHIS
MOV
ADD
HOV
TYPE
HDOCT
MOV
BEQ
CMP
SHI
SWAB
ASB
ASR
ASP
BIC
HOV
TYPE

MOV
TYPOC
TYPE
MOV
TYPOe
TYPE
MOV
TYPOC
TYPE
MOV
TYPoe
TYPE
ROCHR
MOV

@#TADBL, @3TADBH
@#TADBH
,MSGVEC

:SETUP TAOS UPPER

,BYTE POINTER
: "VI::CTOR?"

(SP)+,R0

5$
R0,#1000

,MAKE SUPE ADDRESS IS IN VECTOR AREA

R0,@#TAVEC

ISAVE AS VECTOR ADDRESS

.2, R0

RB,@#TAVEC.2
, MSGPflI

,ASK FOR PRIORITY

(SP).,R0
0$

R0, #7

:IF "0" USE OLD VALUE
:MAKE SUHE ITS VALID

R0
HB

R0
R0
# -C<340>, RS

R0,@ITAPRIO
,MTACS
TACSL,-(SP)
,MTADB
TAOBL,-CSP)
,MTAVEC

TAVEC,-CSP)
,MTAPRI
TAPRIO,-(SP)
,MSGOK
(SP)+,F~0

IPUT INTO HIGH BYTE
:AND SHIFT
:INTO PROPER
,POSITION
:SAVE ONLY PRIORITY SITS
,STORE IT AWAY
;TACS::1f

:,SAVE TACSL FOR TYPEOUT
::GO TYPB--OCTAL ASCII(ALL DIGITS)
;"TADS="
I:SAVE TADBL FOR TYPEOUT
::GO TYPE--OCTAL ASCIICALL DIGITS)
;"VECTOR="
,:SAVE TAVEC FOR TYPEOUT
,:GO TYPE-·OCTAL ASCII(ALL DIGITS)
; "PRIORITY=I'I
::SAVE TAPRIO FOR TYPEOUT
:IGO TYPE--OCTAL ASCIICALL DIGITS)
;"OK1 Q
lGO READ ONE CHARACTER
;GET IT

SED 0072

TAli BASIC LOGIC TEST (PART 1) MAINDEC-ll-DZTAA-C
MACYII 27(732)
DZTAAC,NEW
ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY
2545
2546
2547
2548
2549
2550
2551
2552
2553

1112570
012574
012576
1112602
11126114
012610
012612
"12616
1112620

11227110
11111406
1122700
801403
1114481
000651
1114401
/111261111
"""207

TAil BASIC LOGIC
DZTAAC.NEW
2554
2555
2556
2557
2558
2559
25611
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2595
2596
2597
2599
2589
2590
2591
2592
2593
2594
2595
2596
2597
2599
2599
2600
2601
2602
26113
2604
2605
2606
2607
26118
2609

T~ST

1111111115

eMP

000111
001176

BEQ
CMP
BEG
TYPE
BR
TYPE
MOV
RTS

1115704

78,

(PART I)

MAINDEC-II-DZTAA-C

II-JUN-76

15.15

PAGE 59

SEQ 11/1173

:IS IT "CR"?

fl5,R"
78
"Y,R0
78
,8QUES

:BRANCH IF YES

;IS IT "Y"?

lIT WAS
;TYPE "1"
:AND LET HIM CORRECT THEM
;TYPE OUT "YES·
:RESTORE R"
:AND RETURN

,MIES
(SP).,RII
PC

MACYII 27(732)

**••• ***** MANUAL ADJUSTMENT POUTINES **********

II-JUn-76

15:15

PAGE 60

SEG 0074

:1111111111111111111111111111111111111111111111111111111111111111111111
:1111111111111111111111111111111111111111111111111111111111111111111111

:THE FOLLOWING ROUTINES CAN BE USED TO MAK~ ADJUSTMENTS TO THE TU60
:NOTE' II. BEfORE USING ANY OF THE ROUTINES LOAD AND START AT 214 11#
:1111111111111111111111111111111111111111111111111111111111111111111111

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

WRITE FILE GAPS FROM "SOT" TO "EOT"
:START AT 220
ITHIS ROUTINE CAN BE USED TO ADJUST THE 'WRITE GAP MONO" AND
:THE aWRITE DELAY MONO".

012622
012626
012632
012636
012640
012646
012652
012654
1112660
1112664
012666
1112672
012674
01270"
1112702
012704

1112706
"13704
013705
0011005
012737
1104737
1110314
112714
032714
001775
112714
1114412
032714
001772
01'10000
800746

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

001100
001206
001212
1112622
013626

W'"GSUB, MOV
MOV
MOV
RESET
001110

000017
000040

100$1

000001

1$,

0200011

tsTACK,SP
"TACSL,TACS
"TADBL, TADB

,WFGSUB, J#SLPERR
~OV
JSR
PC, JUXTDRV
MOV
DRIVE,nACS
MOVB
.REWINDIGO,nACS
IREADY,JTACS
BIT
11I0S
BEU
IWFGIGO,nACS
MOVB
WAlTREADY
BIT
'LEADER,JTACS
BEG
IS
HALT
WFGSUB
BR

:KEEP THE STACK OUT Of THE WAY
:SETUP THE TAil STATUS AND
:DATA BUFFER REGISTERS
:RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
:GO SETUP FOR NEXT DRIVE
:SELECT DRIVE
;SEND TAPE TO "BOT"
:WAlT ON READY
:"RITE A FILE GAP
: WAI T ON READY
;AT "CLEAR LEADER"?
;BR IF NO
,STOP IF YES
;LOOP ON CONT.

;; ••• ****.*** •• *****.* ••• **.******•• ****** ••••••** ••• *•• *••• *****
WRITE CONTINUOUS BLOCKS OF DATA
ISTART AT 224
,THE PROGRAM WILL HALT THREE(3) TIMES
,AFTER EACH HALT SET THE SWR AND PRESS CONTINUE
;._** IF USING SOFTWARE SWITCH REGISTER
PRESS CONTINUE
AND
PROGRAM WILL TYPE "SWR=XXXXXX NEW:"
AND ALLOW A NEW VALUE TO BE INPUT
:
;HALT 1 --- SWR<7'0> = NUM~ER OF BYTES PER BLOCK
;HALT 2 --- SWR<7'1I> = PATTERN DESIRED
,HALT 3 --- SWR<15,0> = OPERATIONAL SWITCH SETTINGS
,THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO"

11127116
1112712
012716
012722
012726
012730
1112736
1112742
1112744
1112750

004737
1112706
01.l704
013705
000005
812737
1104737
010314
112714
1132714

;;******.**.***********.***************.*****************.*******

013370
01111110
1101206
001212
liH 271 2
1113626
000017
0110040

001110

WRTSUBI JSR
WLOOP, MOV
MOV
NOV
RESET
MOV
JSR
MOV
MOVB
100$1
BIT

PC,,, SETBUF
ISTACK,SP
'ITACSL, TACS
JlTADBL,TADB

• WLOOP,,, SLPERR
PC,UNXTDRV
DRIVE,nACS
,REWINDIGO,nACS
.READY,tTACS

:GET BLOCK SIZE AND PATTERN
:KEEP THE STAn QUT OF THE WAY
:SETUP THE TAil STATUS AND
:DATA BUfFER REGISTE~S
:RESET THE WORLD
:SETUP THE LOOP ON ERROR ADDRESS
:GO SETUP FOR NEXT DRIVE
ISELECT DRIVE
:SEND TAPE TO ~80T·
:WAIT ON READY

TAil BASIC LOGIC TEST (PART Il
MAINDEC-Il-DZTAA-C
WRITE CONTINUOUS BLOCKS OF DATA

MACYlI 27(732)

DZTAAC.N~W

2610
26 \I
2612
2611
2614
2615
2616
2617
2618

012754
012756
012762

012766

001775

004737
032714
001773

012778

000et00

012772

080747

SEQ

013504
020000

1$,

2627
2628
2629

261"
2631
2632
2633
2634
2635

2636
2637

15,15

PAGE 61

100S
PC, @#WRTBLK
HEADER, ~TACS
IS

;AT "CLEAR LEADER"?
;BR IF NO

"LOOP

,LOOP If CONT,

,WRITE A BLOCK

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

READ CONTINUOUS BLOCKS OF DATA
;START AT 230
;THIS ROUTINE CAN BE USED TO ADJUST THE "SIGNAL MONO"
;AND THE

012774

012706

013000
013004

0137VJ~

013010
013012
013020
013024

013026
013032
013036
013040
013044
013050
013052

[(113704

000005
012737
0047 J7
010314
112714

032714
001775
004737
032714

012774
013626

"THRESHOLD POT".

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

001100
001206
001212

pDSUB,

001110

MOV
MOV
MOV
RE;SET
MOV

013546
020000

1$:

001351

000712

2638

'RDSUB,@#$LPERR

BIT

#READY,@TICS

IWAIT ON READY

BEQ

100$

MOVS

100S'

,KEEP THE STACK OUT OF THE WAI
,SETUP THE TAil STATUS AND
,DATA Sur-FER REGISTERS
;RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS

;SENO TAPE TO

MOV

000017
000040

#STACK,SP
@'TACSL,TACS
@#TADBL,TADB

PC, ~#NX.TOPV
DRIV~,@TACS
#RI:.WIND!GO,@TACS

JSf(

2639
2640
2641

iGO SETUP fOR NEXT DRIVE

;SELECT DRIVE

JSR

PC,@#RDBLK

; REAl) A BLOCK

BIT
BNE
BR

#LEADER,@TACS
RDSUB
IS

;AT

"CL~AR

"SOT II

LEADER"?

,BR IF IES---LOOP

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

2642

WRITE A rILE GAP IND A BLOCK OF DATA 'ROM BOT TO EDT
;STAPT AT 234
,THE PROGRAM WILL HALT THREE(3) TIMES
,IFTER EACH HALT SET THE SWR AND PRESS CONTINUE

2643
2644

2645

;.....

2646

If USING SOFTWARE SWITCH REGISTER

PRESS CONTINUE

2647
2648

AND

PROGRAM WILL TYPE "SWR=XXXXXX NEw="
ANO ALLOW A NEW VALUE TO BE INPUT

2049
265"

;HALT 1 ....... SWR<7:0>

2651
2652

,HALT 3 --- SWR<15,0> • OPERATIONAL SWITCH SETTINGS

;HALT 2 ....... SWR<7:0>

2657
2658
2659

; AND THE "GAP TIME MONO".

013054
"13"Ml
013064
013070
kH3074

""4737

013370

012706
013704
013705

00110"

; ; ******* ****** ****
**** ************** ** *****
*********************
PC,~#SETBUF
,GET BLOCK SIZE AND PATTERN

001206
"01212

!,1~00~5

2660

013076

012737

2661

013t 04
0131 10
013112
013116
Ullin

004737

2602
2663
2664
2665

= r-.UMBER Of Bl'TES PER BLOCK
= PATTERN DESIRED

:THIS ROUTINE CAN SE USED TO ADJUST THE "WRITE GAP MONO"

2653

2654
2655
2656

013060
013626

001110

010314
112714

032714
001775

0f'0017
000040

WGPBLK, JSR
WGBLOP' MOV
MUV
MOV
RESET
MOV
JSR
MOV
MOVB
1005:

#"STACK,SP
@'TACSL,TACS
@#TADBL,TADB
• WGBLOP,@#$LPERR
PC,@IINXTORV
DRIVE,~TACS

~R~WIND!GO,@TACS

#READY,!ilTACS
100S

BIT

SEQ

BASIC LOGIC TES! (PART Il
MAINDEC-II-0ZTAA-C
MACYlI 27(732)
DZTAAC,NEW
WRITE A FILE GAp AND A BLOCK Of DATA FROM BOT TO EOT

TAlI

013124
01313@

2668
2669

013132

'04412
032714

"1313b
013140

004737

013504
020000

~11I52

032714
001765
0"0000

013154

000741

267~

2672
2673
2674
2675
2676

013144
013150

112714

000001

2666
26b7

2611

MOVS

1$'

2$,

2681
2682
2683

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

2MH

013\56

2685
2686
2687
2688
2689

"13162

269~~

013206
01321"

013166
~1317 2
013174
~13202

2692

"13214

2693
2690

013220
013222

2695

013226

2691

013232
013234

2698

01324"

2699

013242
013246
013250

2701
2702

012706
013704
0137~5

PGPBLK: MOW
MOV
MOV

001100
001206
001212
013156

004737
010314

013626

0tH110

112714
032714
001775

1~0S ,

004737
032714
001351

013546

112714
104412
032714
001 J4 3

000015

1 $,

020000

0~:"Hb4

2703

2718
2719
2720
2721

IRGPBLK,@#$LPERR
PC'@'NXTDRV
DRIVE,@TACS

#RE~lNOIGO,@TACS
'R~ADy,@TACS

100S
PC,@#RDBLK
HEADER,@TACS
RGPBLK
MOVB
#SFBG!GO,@TACS
WAlTREAOY
BIT
#LEAOER, ~TACS
BriE.
RGPBLK

PAGE 62

,WRITE A FILE GAP
,WAIT ON READY

:AT "CLEAR LEADER"?

,BF IF ns
,WRITE A BLOCK
~AT "CLEAR LEADE~"1
,BR IF NO
:STOP AT "EDT"
;START OVER ON CONT.

013252

012706

013256
013262
013266

013704

013270

013276
013302
013304
013310
013314

013705
000005
012737
004737

; ; 4

001100
001206
001212
013252
013626

010314

112714

000017

032714
001775

000040

001110

,KEEP THE STACK OUT OF THE WAY
,S~TUP THE TAil STATUS AND
,DATA BUFFER REGISTERS
;RESET THE WORLD
,SETUP THE LOOP ON EFFOR ADDRESS
:GO SETUP FOR NEXT DRIVE
1SELECT DRIVE
:SEND TAPE TO "BOT"
,WAIT ON READI
,READ A BLOCK Of DATA
: A'f "CLEAR LEADER" 1

:BR IF YES
,GET INTO A FILE GAP

:AT "CLEAR LEADER"?
;BR IF YES
,LOOP

••••• *.**.*FILE
••
•• ***.* •• **** ••• ** •• **.** ••• * •• ** •••
GAP FROM "BOT" TO "EOT"
**.~

SPACE FORWARD
,START AT 244
,THIS ROUTINE
,SPACE FOWARD
,WRITE A FILE
:(SIGNAL MONO

2706
2707
2708
2709

2716
2717

ISTACK,SP
@#TACSL,TACS
@#TADBL,TADB

MOV
JSR
MOV
MOVS
BIT
BEQ
JSR
bIT
SNE

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

2104

2715

15:15

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

~ESET

"00005

012737

2705

27\0
2711
2712
2713
2714

II-JUN-7b

READ A BLOCK OF UATA AND A HLE GAP
:START AT 240
;THIS ROUTINE 15 USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE
:11 CAN BE USED TO ADJUST THE "SIGNAL MONO", THE THRESHOLD POT"
:ANO THE "TAPE BLANK MONO".

26B~

2700

,KEEP THE STACK OUT OF THE WAY
,SETUP THE TAil STATUS AND
;DATA BUFFER PEGISTERS
,RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
;GO SETUP fOR NEXT DRIVE
:SELECT DRIvE
;SEND TAP~ TO ~BOTn
:WAIT ON READY

1J*··***··**·***·*·*·····*··******·**·*****·····*··*** •• ****.****

2677

2696

#WFG!GOdlTACS

wAI TREADY
BIT
#LEADER,@TACS
BNE
2S
JS~
PC,@IWRTBLK
BI T
.LEADER,@TACS
BEQ
1$
HALT
BR
WGBLOP

0010~5

2678
26H

269\

SEQ 0075

: STOP IF "EDT"

2619
2620
2621
2622
2623

2624
2625
2626

JSH
BIT
BEQ
HALT

ll-JUN-76

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

*********** ***************************************************
#STACK,SP
,KEEP THE STACK OUT OF THE wAY

SfFGSB, MOV
HOV
MOV
RESET
MOV
JSR
MOV
MOVS
100$,
BIT
BEQ

@#TACSL,TACS
@'TADBL,TADB
#SFfGSB,@#$LPERR
PC,@INXTDRV
DRIVE,@TACS
#REWIND!GO,~TACS

IREADY,@TACS
100$

,SETUP THE TAil STATUS AND
;DATA BUFFER REGISTERS
,RESET THE WORLD
:SETUP THE LOOP ON ERROR ADDRESS
GO SETUP fOR NEXT DRIVE
SELECT DRIVE
SEND TAPE TO ~BOT"
WAIT ON READY

SEQ 0076

MACYl! 27(732)
TAil BASIC LOGIC TEST (PART II MAINDEC-II-DITAA-C
SPACE rORWARD FILE GAP FROM "BOT" TO "£OT'

I1·JUN-7~

15115

PACE 53

SEQ 8877

DUAAe.NEw

2722
2721
2724
2725
2726
2727
2728
2729

1113316
1113322

813324

9unll
IIU332

813334

113714
1114412
el2714
1181172
Ut811e
188746

008813

2739

2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777

I5FFGIGo.nACS
WAlTREADY
ILUDER, nAes
BEQ
18
HALT
SP'FGSB
BR

013336
813340
1113346
1113350
IIIU54
BIl3S6
1113362
IIU364
813366

013370
813372
013374
1113402
013404
013406
1113486
0U412
1113414
013420
013422
813426
813430
O13434
O13440
1113442
"13450
013452
013454
813454
013462
013464
013472
161 J474
013476
BIl476
1613500
0135162

008005
"12737
8111314
112714
184412
1132714
001772
8""0""
.09763

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

1113336

S811111

0118087
0211011"

BSrGSBI RESET
MOV
#BSFGS8,"SLPERR
MOV
DRlVE,nACS
Move
nSFGIGO,nACS
III
WAITREAOY
BIT
ILEADEJI,8TACS
BEQ
It
HALT
SR
BSrGSB

BErSUn CtR
HALT
000116

157700

165526

C~P

165536

eNE
GTSNR
206,

e0100~

165521
00"376

1$,

28,

013500
0135112
0""176

165470

165460

013502

000176

165446

Bl5B
BNE
T5TB
BEQ
HOV
INC
MOV
CLR
HALT
CMp
BNE
GTSWR

110

.5WPEG,SWP
20$
'SWR,P0
2S
esWR+I
II

U76,R0
R0
R0,@#BLKLIM
"PATTRN
ISWREG,SWR
211

21S,

117737
160000"

022767
001001
1"4405

2804

2805
2806
2807
2809
2809
2810
2811
2812
2813

2814
2815
2816
2817
2818
2819

MOVB
HALT
CMP
BNE
GTSWR
221 I
RTS
sLKLIM, 0
PArTRNI 16

1100207

000000
"""000

@SWP.UPATTRN
#SWREG.SWR
22S
PC

,OPERATOR PUTS BYTE COUNT IN SWRC7l0>
,SOFTWARE SWITCH PEG.?
,NO-LET HIM BE
,GET NEW VALUE
,CONTlNUt
,PICKUP THE BYTE COUNT
,BR IF NON-ZERO
,CHECK IF GREATER THAN 311
IBR IF NO
,SET FOR MAX ALLOWED
,MAKE IT 377 OR !
,SETUP THE BLOCK LIMIT
,OPERATOR PUTS PATTERN U SWR.7,1!>
,SOFTWARE SWITCH REG.?
,NO-LET HIM 8E
,GET NEW VALUE
,CONTINUE
,PICK UP THE PATTERN
,SET OPE~ATIONAL SWITCHES
,SOFTWARE SWITCH REG.?
,NO-LET HIM BE
,GET NEW VALUE
,CONTINUE
,RETURN
,READ AND WRITE BLOCK SIZE
,PATTERN TO GO ON THE TAPE

II-JUN-76

15115

PAGE 64

SEQ 0078

,'J***************************************************************
WRITE ROUTINE FOR THE MANUAL OPERATIONS
013504
013510
013514
1613516
013522
1113524
913526
1113530
013534
013536
913542
BU5H

013701
112714
104413
032714
80\010
005381
002403
113715
8011767
1152714
1114412
11011207

013500
000003
000040

013502
0001120

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

WPTBLK, MOV
UBLKLIM,~I
#WU1'EIGO,@TACS
MOVB
IS,
WAITXFER
#READY,PTACS
BIT
BNE
31
DEC
RI
2$
BLT
MOVB
PiPATTRN, PTAVS
SR
1$
ULSS,@TACS
BIS
2$:
WAITREADY
PC
RTS
3$'

,PICKUP THE BLOCK SIZE
JSTART A WRnE
J WAI T ON TRANSfER REQUEST
JDID READY SET?
JSR IF YES
,COUNT THIS REQUgST
,BR IF TIME FOR ILBS
,PUT DATA ON TAP~
:LOOP
,WRITE CRe AND SHUT DOWN
,WAIT ON THE READY FLAG

..**.-. _**
,,,****************************************************-*
READ ROUTINE FOR THE MANUAL OPERATIONS
813546
B13S52
1113556
013562
1113564
1113570

0137"2

013620
"13622
013624

1113700
112714
1114413
832714
001012
005302
082405
011501
12OO111
001767
1041187
;""406
1152714
104412
00S714
1000111
104001
11002117

013626
1113632
1113634
1113636
813642
813646
813650
1113654
813656
IIU6611
1113664
8U670

105777
188416
ell5003
013781
122127
""1482
1112703
1115711
0011182
812781
818137
""02117

1113572

013574
013576
e13600
013682
813604
013606
813610
913614
flJ13616

11135""
1113502
11011005
0011040

"00020

, J **************************************************.*************
,PICKUP THE BLOCK SIZE
RDBLK,
@#8LKLIM,R2
MOV
,USE THIS DATA PATTERN TO COMPARE TO
UPATTRN,R0
MOV
,START A ~EAD
#READ!GO,@TACS
Mova
,WAIT ON TRANSFER REQUEST
WAlTXFER
IS,
,IS READY SET?
IREADY,@TACS
BIT
,SR IF YES
BNE
18
,COUNT THIS REQUEST
DEC
R2
,8R IF TIME FOR ILBS
BloT
2$
iTADB,RI
'R~AD THE DATA BUFFER
HOV
,CHECK THE DATA
CMPB
R0,RI
BEQ
IBR IF OK
IS
,BAD DATA
ERROR
7
,GET OUT
SR
4$
,READ ILBS
IILBs,nACS
BIS
2S:
,WAIT ON READY
WAITREADY
,CHECK fOR ERROR
nACS
TST
38:
JSR IF NONE
8Pt
4S
,ERROR OCCURRED
ERROR
I
,RETURN
48,
PC
RTS

r,************************************************************* ••

2820

2821
2822
2823
2824
2825
2826
2827
2828
2829
28311
2831
2832
2833

,RESET THE WORLD
,LOOP ON ERROR ADDRESS
,SELECT DRIVE
,BACK SPACE A FILE GAP
,WAIT ON READY
,AT "CLEAR LEADER"!
,BR IF NO
,STOP AT BOT
,START OVER ON CONT.

" ••••••••••••••••• *••••••••••••• *.* •• *••••• *••*_•••• *_.*•• -**•••
,,,*
BLOCK SIZE AND PATTERN FOR SUBROUTINES
••••••SETUP
*••••••*** •••••••• *•••••••••••••••••••• _•••• -•••••• ***-*

00580"
808080
022767
16161801
1044O5

105777
8"1402
012700
085200
818"37
885037
000000
022767
O01"01
104405

SPACE FILE GAP
,STAn AT 250
,THIS ROUTINE CAN 8E USED TO ADJUST OR CHECK THE "SIGNAL MONO",

BAC~

TAlI BASIC LOGIC TEST (PART I) MAINDEC-ll-0ZTAA-C
HACYII 27(732)
DZTAAC,NEW
SETUP BLOCK SIZE AND PATTERN FOR SUBROUTINES
2778
2779
2780
2781
2782
2783
2784
2785
2786
27B7
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803

,SPACE INTO A FILE GAP
,WAIT ON READY
,AT 'CLEAR LEADER'?
,SR IF NO
,STOP AT "EDT"
,LOOP ON CONT,

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

2130

27J1
2712
2733
2734
2735
2736
2731
2738

Mova

BIT

112110811

165306
1101230
1100101
11004""
1101224
811123"

ROUTINE TO CHANGE DRIVES
I
NXTDRV, TSTB
3SWR
SMI
3S
DRIVE
CLR
@lDRVPNT,Rl
MOV
(RI).,I'A
CMPB
BEQ
11
.UNIT,DRIVE
MOV
(RI)
TST8
IS.
BNE
2$
MOV
IDRVKEY,RI
R1,@#ORVPNT
MOV
as.
RTS
PC
3S1

,IS SW07 ON A (II?
,BR IF YES
,SET DRIVE TO "A"
,GET DRIVE POINTER
,IS IT DRIVE "A"?
,8R If YES
,SET DRIVE TO "B"
,LAST DRIVE SEEN SELECTED
,BR IF NO
,RESET DRIVE POINTER
,SAVE DRIVE POINTER FOR NEXT TIME
,GO SACK

MACYll 27(732)

TAil BASIC LOGIC TEST (PA~T I) MAlNDEC-lI-DZTAA-C
~OUTINE TO CHANGE DUVES
DZTAAC.NEW
28H
2835
2836
2837
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
%

2854
2855
2856

2857
2858
2859
2860
2861
281>2
2863
2864
28b5

11-,)UN-76

15.15

PAGE 65

SEQ 0119

••****.*****.-.** ••• _•••• _*** •••*.-.*••.••.. * ••••-******.*.**
,,,**
TO EXAMINE DRIVElS) FOR AVAILABLITY
.SBTTL
~OUTINE

,CALL.
I
I
I
1113672
IH 3676
1113700
1113704
11137116
IIU7I2

013716
1113720
1113722
1113724
1113730
1113732
011736
013740
013746
013750
01J756
013760
1113762
013766
013770
013774

013701
0051111
122710

EXAMI

001206
000101

0111402

052711
1132711
"'1775
005711
100024
032711
001017
832711

IS.

MOV
CLR
CMPB
BEQ

UTACSL,~I

BIT
BEQ
TST

IREADY, IRI)
U

8PL

BIT

"01000

BHE
BIT

010008

BEQ

020000

2S.

CMPB
BEQ
CMPB
BEQ
BR
BIT

0000112

3$.
4$1

ADD
RTS

000201

165172

000203

16511>2

,RI IS DESTROYED

NO~MAL

SIS

000400
000040

0U4\1

122777
001412
122777
001406
000403
03271 I
001002
062716
000207

IDRVKEY,R0
PC,UEXAM
RETURN
ER~OR RETURN

MOV
JSR

BN~

IPICKUP THE "CONTROL' STATUS' REG, ADR,
,DRIVE."A", FUNCTION."NFG"
IEXAMINE DRIVE "A"?
IBR IF YES
ISELECT DRIVE "8'
I WAIT ON READY

(RI)
"AdRlI)
IS

'UNIT,IRI)

IANY ERROR?
ISR I f NO
IERROR DUE TO ·OFF LINE"?
,BR IF YES
3S
,ER~OR DUE TO 'WUTE LOCK'?
,WRTLOCKoIllll
,BIl IF NO
2S
,BITII718IT00,.SWIl
I "READONLY" SELECTED? IRDIPAS)
48
IBR IF YU
.BIT07IBIT01IBIT00,'SWR IIRD2PAS)?
IBR IF YES
48
ITAKE THE ERROR EXIT
3S
IERROR DUE TO "CLEAR LEADER"?
'LEADER, I RI)
4S
IBR IF YES
12,ISP)
ITAKE ERROR RETURN
IRETURN
PC
IRll

.0FFLINEoCRIl

TAil BASIC LOGIC TEST (PART I)
DZTAAC.NEW
TYPE ROUTINE

MAINDEC-II.DZTAA-C

281>6
2867
2808
28b9
2870
2871
2872
287l
2874
2875
2876
2877
2878
2879

.SBTTL

II-JUN-76

15115

PAGE 66

TYPE ROUTINE

If···_·_··_··_···*······*·-·-***····**·_··_···· __ ·····

***********
I*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A " SYTE.
I*THE ROUTINE WILL INSERT A NUMBE~ OF NULL CHARACTERS AFTER A LINE FEED,
SNULL CONTAINS THE CHARACTER TO ~E USED AS THE FILLER CHA~ACTER,
I*NOTEI:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
I*HOTE2:
,*NOTE3:
SFILLC CONTAINS THE CHARACTE~ TO FILL AFTER,
1*
,.CALLS
1*1) USING A TRAP INSTRUCTION
,~ESADR
TYPE
lIMESAD~ IS FIRST ADDRESS OF AN ASCIZ STRING
1*
I*OR
TYPE
1*
MESA DR
1*
1*

288~

2881
2882
2883
2884
2885
2886
2887
2B88
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912
2913
2914
2915
2916
2917
2919
2919
2920
2921

MACYII 27(732)

013776
014002
1114004
014006
1114111"

105767
1000a2
000000
000407
010046

165155

~14012

017b~0

000002

014016
014020
1114022
014024
014026
014032
014034
014840
014042
014046
014050
014052
014054
014056
014062
1114064
014070
014074
014076

112046
881005
005726
012600
062716
000002
122716
001438
122711>
11011'106
005726
104401
105067
000755
0047&7
126726
001350
016746

000130

014102
014106
014110
014114
014120

1053.6
002770
004767
105367
1100170

000001

&TYPE:

TSTB
8PL
HALT
8R

IS:
2S:

000002

60S:
35 :

000011

4$.

MOV
MOV
MOVB
BNE
TST
MOV
AOD

STPFLG
1$

3S
R0,-ISP)
'215P),R0
(R0).,-(SP)
4S

(SP).
(SP).,R0
'2,ISP)

~TI

000200

001177

000056
165062

5S.
6$.

165052
7S.

000032
000072

CMPB
BEQ
CMPB
BNE
TST
TYPE
SCRLY
CLRB
BR
JSR
CMPB
BNE
MOV
DECB
BLT
JSR
DECB
BR

'HT,ISP)
8S
.CRLF .cSP)
5$
(SF).
SCHARCNT
2$

PC,STYPEC
SFILLC.(SP)+
2$
SNULL,-ISP)
I(SP)
6S
PC,$TYPEC
SCHARCNT
7$

IllS THERE A TERNINAL?
"B~ IF YES
IIHALT HERE IF NO TERMINAL
nLEAVE

"SUE ~0
IIGET ADDRESS OF ASCIZ ST~ING
I,PUSH CHARACTER TO BE TYPED ONTO STACK
IIBR IF IT ISN'T THE TE~MINATOR
IIIF TERMINATOR POP IT OFF THE STACK
IIRESTORE R0
IIADJUST RETURN PC
IIRETURN
IIBRANCH IF <HT>
IIBRANCH IF NOT <CRLF>
II POP <CR><LF> EQUIV
"TYPE A CII AND LF
IlCLEAR CHARACTER COUNT
IIGET NEXT CHARACTER
"GO TYPE THIS CHARACTER
,,15 IT TIME FOR FILLER CHARS.?
IIIF NO GO GET NEXT CHAR.
llGET I OF FILLER CHARS. NEEDED
llANO THE NULL CHAR.
IIDOES A NULL NEED TO BE TYPED?
II BR IF NO--GO POP THE NULL OFF OF STACK
IIGO TYPE A NULL
,,00 NOT COUNT AS A COUNT
IILOOP

IHORIZONTAL TAB PROCESSOR
014122
014126
014132
014140
014142

112716
004767
132767
1101372

005726

0011040
000014
000007

000052

8S:
9S.

MOVB
JSR
BITB
SNE
TST

." ,(SP)

PC,ITYPEC
#1,SCHAReNT
98
(SPit

I,REPLACE TAB WITH SPACE
II TYPE A SPACE
"BRANCH IF NOT AT
IITAB STOP
"POP SPACE OFr STACK

SEQ ""80

TAli BASIC LOGIC TEST (PART 1)
DZTAAC.NEW
TYPE ROUTINE
2922
2923
2924
2925
2926
2927
2928
2929
2930
29J1
2932
29]3
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
2954
2955
29S6
2957
2958
2959
2960
2961
29b2
2963
2964
29b5
2966
2967
29b8
2969
297.
2971
2972
2973
2974
2975
2976
2977

014144
1114146
1114152
014154
014162
1114170
014172
014176
014200
1114206
014210
014212
014214

000724
1115777
111"375
116677
122766
801003
105067
000406
122766
001402
105227
0"0000
000207

MAINDEC-11-DZTAA-C

164776
1100002
""0015

164770
000002

000014
000012

000002

BR
STYPEC: TST8
BPL
MOVB
CMPB
BNE
CLRB
BR
1$1
CMPB
BEQ
INCB
SCHARCNT:. WORD
STYPEX: RTS
.SBTTL

MACYl1 27(732)
2S
"TPS
STYPEC
2{ SP), ~$TPB
ICR,2(SP)
1$

SCHARCNT
STYPEX
ILF,2(SP)
STYPEX
(PCl+

H86

2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
l010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033

15.15

PAGE 67

SEQ 0081

"GET NEXT CHARACTER
"WAIT UNTIL PRINTER IS READY
"LOAD CHAR TO BE TYPED INTO DATA REG,
"IS CHARACTER A CARRIAGE RETURN?
; ,BRANCH IF NO
"YES··CLEAR CHARACTER COUNT
, ,EXIT
"IS CHARACTER A LINE FEED?
"BRANCH IF YES
"COUNT THE CHARACTER
"CHARACTER COUNT STORAGE

READ AN OCTAL NUMBER FROM THE TTY

::***************************************************************
,*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND
,*CHANGE IT TO BINARY,

:*CALL:

,"
:'
014216
01422~

014226
014230
014232
014234
014236
014240
014242
014244
014246
014250
014252
014254
014256
014260
014262
014264
014270
014272
014274
01427b
014302
014306
014310
014312
014314
014316

011646
016666
0U046
010146
010246
104410
012600

000004

000002

005~01

005002
112046
001412
006301
006102
006301
006102
006301
006102
042716
062601
000764
00572b
010166
010267
012602
012601
012600
000002
000000

177770

000012
00001.

RDOCT
RETURN HERE

"READ AN OCTAL NUMBER
"LOW ORDER BITS ARE ON TOP OF THE STACK
;,HIGH ORDER BITS ARE IN SHIOCT

SRDOCT, MOV
(SP),-(SP)
MOV
4(SP) ,2(SP)
MOV
R0,-(SP)
MOV
RI, -(SP)
HOV
R2,-(SP)
ROLIN
lSI
(SP)+,R0
MOV
CLR
RI
CLR
R2
2$,
MOVB
(R0)+.-CSP)
BEQ
3S
ASL
RI
ROL
R2
ASL
RI
ROL
R2
ASL
RI
ROL
R2
,·C7 '(SP)
BIC
ADD
(SPl+,RI
BR
2S
3$ ,
TST
(SP)+
MOV
RI.t2(SP)
MOV
R2, SHIOCT
(SP)+,R2
MOV
HOV
(SP)+,RI
HOV
(SP)+,R'"
RTI
SHIOCT, .WORD
0
,SBTTL TT~ INPUT ROUTINE

:,PROVIDE SPACE FOR THE
"'UMBI::~

JJINPUT

:,PUSH R0 ON STACK
nPUSH RI ON STACK
,:PUSH R2 ON STACK
"READ AN ASCIZ LINE
,:GET ADDRESS OF 1ST CHARACTER
,:CLEAR DATA WORD
:,PICKUP THIS CHARACTER
::If ZERO GET OUT

n*2
n*4
n*8
::STRIP THE ASCII JUNK

f:ADO IN THIS DIGIT
n LOOP
::CLEAN TERMINATOR FROM STACK
::SAVE THE RESULT

11POP STACK INTO R2
,;POP STACK INTO RI
,:POP STACK INTO R0
; :RETURN

,:HIGH ORDER BITS GO HERE

:r******************************************-************.**.****
.ENABL

L58

TAIl BASiC LOGIC TEST (PART I J MAINOEC-II-DZTAA-C
DZTAAC,NEW
TT~ INPUT ROUTINE
2978
2979
2980
2981
2982
2983
2984
2985

II-JUN-76

014320
014326
014330
014334
014336
014142
014346
014352
014154
014362

022767

000176

014364
014370
014374
014400
014402
014406
014410
014412
014416

104401
104401
016746
104402
104401
1105046
005046
105777
100375

015045
015052
163576

1>14420
014424

117746
042716

164522
177600

014430
014434
014436
014442
1114446

021627
001005
104401
062706
000757

014450
014454
014456
014462
014464
014472
014476
014502
014510
014512
014520
014522
014526
1114532
014534
014540
014542

021627
001022
005766
001403
016677
062706
104401
126727
0"1003
012777
000002
004767
021627
002420
021627
003015
042726

164612

0~1074

105777
100071
117746
042716
022726
001062
126727
001456

164610
164604
11760"
000007
164554

000001

015063
7S:

000025

9$1

015040
000006

20S:

10S'

,,00,,04
000002
000006
001177
164427

000001

000100

164424

164446
lIS,
14$1

15S:
177420
000060
000067
000060

15,15

PAGE 68

16$1

,SCNTLG
,SMSWR
SWREG,-(SP)

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

CLR
CLR
TSTB
BPL

,SMNEW
wISP)
-(SP)
8STKS
7S

MOV8
BIC

UTKB,-(SP)
,-C177, (SP)

n PICK UP CHAR
"MAKE IT 7-BIT ASCII

CHP
BNE
TYPE
ADD
BR

(SP), '25
10$
,$CNTLU
19S

:,15 IT A CONTROL-U?
"BRANCH IF NOT
:,~ES, ECHO CONTROL-U (-U)
:;IGNORE PREVIOUS INPUT
"LET'S TRY IT AGAIN

CHP
8NE
TST
8EQ
MOV
ADD
TYPE
CMPB
BNE
MOV
RTI
JSR
CMP
BLT
CMP
8GT
BIC

(SP),115
16$
4(SP)
liS

; ;15 IT A <eR>?
n BRANCH IF NO
::YES, IS IT THE fIRST CHAR?
"BRANCH IF YES

2(SP),~SWR

;;5AVE N~W SWP.
,:CLEAR UP STACK
;rECHO <CP> AND <LF~
"RE-ENASLE rTY KBO INTERRUPTS?
,:BRANCH IF NOT
"RE-ENABLE TTY KBO INTERRUPTS
;;RETURN
: :ECHO CHAR
:,CHAR < 0?
: ,BRANCH If YES
"CHAR> 7?
"BRANCH IF YES
"STRIP-OFF ASCII

T~PE

1981

000015

II-JUN-76

:J***********************************.***************************
:*SOfTWAFE SWITCH FEGISTEF CHANGE ROUTINE.
: >ROUTINE IS ENTEF~D fROM THE TFAP HANDLEF, AND WILL
,-SERVICE THE TEST FOR CHANGE IN SOFTWAR~ SWITCH R~GISTER TRAP CALL
:*WHEN OPERATING IN TTY FLAG MODE,
SCKSWR: CHP
ISWREG,SWR
::IS THE SOFT-SWR SELECTED?
BNE
15$
:,BRANCH IF NO
TSTB
@$TKS
: :CHAR THERE?
BPL
15$
::If NO, DON°T WAIT AROUND
MOVe
~STK8,-(SP)
:,SAVE THE CHAR
BIC
'-CI77'(SP)
nSTRIP-On" THE ASCll
C.P
17,(SP)+
,:15 IT A CONTROL G?
BN~
ISS
"NO, RETURN TO USER
CMPB
SAUTOB,'I
::ARE WE RUNNING IN AUTO-HODE?
BEQ
ISS
::BRANCH IF YES

TYPE
SGTSWR: TYPE
MOV
TYPOC

164526

MACYlI 27(732)

u.,sp

.6,SP
,SCRLF
SlNTAG,II
15$
1100,8STKS

PC,STYPEC
(SP),#60
18S
(SP), #67
18$
160,(SP)+

J ;THE NEW

S~R

::CHAR THERE?
,:IF NOT TR~ AGAIN

SEQ 0082

TAli BASIC LOGIC TEST CPART I) MAINDEC-II-DZTAA-C
DZTAAC.NEW
TTY INPUT ROUTINE
3034
3035
3036
3037
3038
30]9
3040
304\
3042
3043
3044
3045
3046
]047
3048
3049
3050
3051
]052
]053
3054
3055
3056
3057
3058
]059
3060
3061
3062
3063
3064
3065
3066
30&7
3068
3069
3070
3071
3072
3073
3074
H75
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089

014546
014552
014554
014556
014560
014562
014566
0\4572
0\4574
014600

005766
00140]
006316
0063\6
006316
005266
056616
000707
104401
000720

000002

000002
177776

17S,

001176

\8',
.OUBL

TST
BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE
BR
LSB

MACYII 27(732)
2CSP)
17.
(SP)
(SP)
CSP)
2CSP)
-2(SP)'(SP)
7'
,saUES
20S

3103
3\04

3105
3\06

3\07
3"'8
3109
3\ 10
3111
3\ 12
3\13

1*
'*
014602
014604
014612
014616
014620
014626
014631
014642
014644
014650
014652
01465&
014662
1114666
011670
014672
014700
014702
014710
014712
014720

011646
016666
105777
100375
1177&6
042766
026&27
001013
105777
100375
117746
042716
022&27
001366
000750
026627
002407
026627
003003
042766
000002

000004
164326

000002

164322
117600
000004

000004
000004
000023

164274

ROCHR
RETURN HERE

SROCHR. MOV
MOV
TSTB
IS.
BPL
MOVB
BIC
C~P

2S1

164270
177600
000021

BNE
TSTB
BPL
MOVB
BIC
CMP
SHE

000004

000140

000004

000175

000040

000004

3S:

4S1

,;15 THIS THE FIRST CHAR
, ,BRANCH IF YES

CHAR OVER TO MAKE
ROOM FOR NEW ONE.
/I
I\KEEp COUNT OF CHAR
liSET IN NEW CHAR
,;GET THE NEXT ONE
/I TYPE ?<CR><LF>
"SIMULATE CQNTROL-U

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

BR
CMP
BLT
CMP
BGT
BIC
NTI

"INPUT A SINGLE CHARACTER FROM THE TTY
"CHARACTER IS ON THE STACK
I' WITH PARITY BIT STRIPPED orF

(SP)'-CSP)
4CSP),2(SPl
"TKS
IS
@STKB,4(SP)
'-C<I77>,4CSP)
4(SP),,23
3$
@$TKS
2S
@STKB,-(SP)
'-CI77, (SPI
(SP)."21
2S
IS
4CSPl.#I40
4S
4(SP),1I75
4S

#40,4(SP)

;;PUSH DOWN THE PC
"SAVE THE PS
/I"AIT fOR
n A CHARACTER
"READ THE TTY
,;GET RID Of JUNK If ANY
"IS IT A CONTROL-51

::BRANCH IF NO
"WAIT FOR A CHARACTER
"LOOP UNTIL ITS THERE
;,GET CHARACTEN
"MAKE IT 7-BIT ASCII
,,15 IT A CONTROL-Q?
,;lf NOT DISCARD IT
/I YES, RESUME
,;IS IT UPPER CASE?
"BRANCH IF YES
"IS IT A SPECIAL CHAR?
,:BRANCH IF YES
"MAKE IT UPPER CASE
,;GO BACK TO USE~

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

,*THIS ROUTINE WILL INPUT A ST~ING FROM THE TTY

i·CALL:

,.,"
,"

~14722

014724

010346
012703

~14730

0227~]

015030
015040

014734
014736
014740
014742

101405
104407
1126\3
122713

000177

"INPUT A STRING FROM THE TTY
"AODRESS Of FIRST CHA~ACTER WILL B~ ON THE STACK
"TERMINATOR wILL BE A BYTE OF ALL 0'5

ROLIN
RETURN HERE

SRDLIN. MOV
MOV
CMP
2S1
BLOS
RDCHR
MOVB
CMPB
10S1

1$.

014746
0\4750
0\4754
0147;6
014762
~14766

014772
014774
015000
015004
015~06

015010
015016
015024
015026
015027
01503.
015040
015045
015052
015060
~15063

015070

001003
1044~1

000763
111367
104401
122723
001356
105063
104401
012603
011646
016666
012766
000002
000
000
0000\0
052536
136
005015
020075
04.
036440

BN~

001176

4' •

000044
015026
000015

3$ :

TYPE
BP

Move
TYPE
C"PB
SNE

177777
001200
000004
015030

000002
000004
9S1

R3,-CSPI
t$TTYlN,R3
fl:STTYlN+8.,R3

(SP)+, (R3)
#l77'(R31

005015
006507
053523
000
047040
000'140

CLRB
TYPE
MOV
HOV
MOV
MOV
RTI
.BYTE
.BYTE

; ,SAVE R3
"GET ADDRESS
;,BUFFE~ FULL?
I,BR IF YES
"GO READ ONE CHARACTER fROM THE TTY
"GET CHARACTER
_:15 11' A RUBOUT

MACYlI 27(732)
3S
,SQUES
IS
(R])'9S
,9S
US, (R3)+
2$
-11 R3)

,SLY
(SP)+,R3
(SP),-(SPl
4CSP)'2CSP)
8STTYIN,4(SP)

II-JUN-7&

" RETURN

o
o

1/ STORAGE

"OR ASC II CHAR. TO TYPE
" TERMINATOR
,;RESERVE 8 BYTES FOR TTY INPUT
8.
::CONTROL "UM
I"U/<15><12>
I"G/<15><12>
,;CONTROL "G"
<15><12>/SWR :II 1

053505

S"NEW:

.Ascn

.SBTTL

BINARY TO OCTAL (ASCII) AND TYPE

.Ascn
.Ascn
• ASCIZ

PAGE 70

,:CHECK FOR RETURN
"LOOP IF NOT RETURN
I,CLEAR RETURN (THE IS)
"TYPE A LINE FEED
,'RESTOR~ R3
"ADJUST THE STACK AND PUT ADDRESS OF THE
II
FIRST ASCII CHARACTER ON IT

000
000012
020122

.BLI<B

15.15

, ,SKIP It· NOT
"TYPE A -?l,CLEAR THE BUFFER AN~ LOOP
,;ECHO THE CHARACTER

STTYIN
'CNTLU
SCNTLG
SMSWR.

NEW

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

311~

,"THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
,"OCTAL (ASCII) NUMBER AND TYPE IT.
,"STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS ANO NUMBER OF DIGITS TO TYPE

3119
3110

"CA~L:

,"
,.,"

3t 21

3122
3123
3124
3125
3126
3127
3128
3129
3\30

,;"

MOV
TYPOS
.BYTE
.BYTE

"NUMBER TO BE TYPED
I,CALL FOR TYPEOUT
"N=I TO 6 FOR NUMBER OF DIGITS TO TYPE

;~M=l

OR 0

"I=TYPE LEADING ZEROS
,,0=SUPPNESS LEADING ZEROS

'"STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
'","STYPOS
OR STYPOC
;·CALL:
,.
MOV
'"
TYPON

3131
3132

NUM,-(SP)

"NUMBER TO BE TYPED
;.CALL FOR TYPEOUT

,"$TYPOC---ENTER HERE FOR TYPEOUT OF A 1& BIT NUMBER

3113
3134
3135

;*CALL:
;"
'"

3136
3137

3143
3144
3145

SEQ ''''83

,*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

31\6
jll7
3118

314\
3142

PAGE 69

;*CAJ"L:

31\4

3138
3139
3140

15.15

;rNO, SHIFT PRESENT

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

TAli BASIC LOGIC TEST (PANT I) MAINDEC-II-0ZTAA-C
DZTAAC.NEW
TTY INPUT ROUTINE
3090
3091
3092
3093
3094
3095
3096
3097
3098
3099
3100
3\01
3\02

II-JUN-76

015074
015100
015106
015112
015116
015120
015126
015134

017646
116667
112667
062716
000406
112767
112767
112767

MOV
TYPOC

NUN,-(SP)

"NUMBER TO BE TYPED
l,CALL FOR TYPEOUT
"PICKUP THE MODE
I;LOAD ZERO FILL SWITCH
'lNUMBER OF DIGITS TO TYPE
"ADJUST RETURN ADDRESS

000000
000001
000207
000002

STYPOS. MOV

Mova

~(SPl, -(SP)

000211

000001
000006
000005

000171
000165
000154

MOVB
ADD
BR
$TYPOC: MOVB
MOVB
.TYPON: MOVB

ICSP),S0FILL
(SP).,SOMODE+I
#2, (SP)
STYPON
U,S0FILL
16, SOMODE.I
IS,SOCNT

,;SET THE ZERO FILL SWITCH
"SET FOR SIX(6) DIGITS
I,SET THE ITERATION COUNT

SEQ 0084

MACYII 27(732)

TAil BASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC .NEW
BINARY TO OCTAL (ASCII) AND TYPE
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158

3159
3160
3161
3162
3161
3164
3165
3166
3167
3166

lI69
]170
3171
3172
3173

lI74
3175
3176
lI77
3178
3179
31 80
J\ BI
1I 82
31B3
lIB4
3\85
3IB6
31B7
31 BB
3189

11115142

810346

1!l51H
815146
11151511
1115154
1'15156
1115162
015166
015172
1115176
815200
015202
015204
015206
015210
015212
015214
015216
015222
015224
015230
"15232
1115234
015236

11111446
0111546
116704
11054114
1162704
1111467
116704,
0166115
005003
11116105
1I1l0404
91161115
8116185
11106105
S11l5e3

1115240

1115244
015250
015254
015260
015264
015266
015270
015272
015274
015276
111530"
0\5302
015310
015312
015314
0153\5
015316
015317
0153211

11116103
105]67
1""016

1142701
9010"2
1105704

0011145
11110006
111111132
0011125
000012
lSI

2$1

3S'
00161676

SNE

TST

48,
001111611
00"040
000040
015314
000032

000002

3200

3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
3211
1212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224

3225
3226
3227
3228
3229

3230
3231

3232
3233

BEQ
INC
IllS

BIS
MOV8
TYPE
DECB
7$1
8GT
8LT
INC
BR
MOV
68 I
MOV
MOV
HOV
MOV
RTI
,BYTE
8S:
,BYTE
SOCNTI .BnE
S0FILL: .BYTE
SOMOOE, .WORO
5$1

000004

000

a00
000000

TAli BASIC LOGIC TEST (PART II
OZTAAC.NEW
TRAP DECODER
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199

SIC

177770

001403

0052114
052703
052703
110367
1044111
105367
0"3347
002402
005204
000744
0126115
812604
1112b03
1116666
012616
000002
000
000

NOV
MOV
MOV
MOV8
NEG
ADD
MOVB
MOV8
MOV
CLR
ROL
8R
ROt
ROt
ROL
HOV
ROL
DEca
BPt

U, -(SP)
U,-(SP)
R5,-(SP)
aOMODE+ I, R4
114
I6,R4
M,SOMODE
allrILL,R4
I2(SP),R5
R3
R5
3S

R5
R5
R5
R5,1I3
Rl
SOMODE

1177770, R3

48
R4
5$

R4
,"B,Rl
•• ,R3
113,81

,IS

,OCNT
2.
6S
R4
2S
(splt.RS
(SPl+,R4
(SP)+.R3
HSP) ,4(SP)
(SPlt,(SP)

.SBTTL

15115

PAGE 71

SEQ

01185

"SAVE R3
I,SAVE M
"SAVE R5
lIGET THE NUMBER or DIGITS TO TYPE
"SUBTRACT IT rOR MAX. ALLOWED
I,SAVE IT rOR USE
I' GET THE ZERO FILL SWITCH
I,PICKUP THE INPUT NUNSER
;,CLEAR THE OUTPUT NORD
I,ROTATE MS8 INTO 'C"
"GO DO MS8
"FORM THIS DIGIT

"GET LSD or THIS DIGIT
"TYPE THIS DIGIT?
,,8R IF NO
"GET RID OF JUNK
"nST rOR 0
"SUPPRESS THIS 91
,,8R IF YES
"DON'T SUPPRESS ANYMORE II'S
"MAKE THIS DIGIT ASCII
"MAKE ASCII IF NOT ALREADY
"SAVE FOR TYPING
"GO TYPE THIS DIGIT
"COUNT BY I
,,8R IF MORE TO DO
,,8R IF DOHE
I,INSURE LAST DIGIT ISN'T A BLANK
"GO DO THE LAST DIGIT
;, RESTORE RS
"RESTORE 114
"RESTORE R3
"SET THE STACK FOR RETUIlNING
" RETURN
I,STORAGE FOR ASCII DIGIT
;,TERMINATOR FOR TYPE ROUTINE
"OCTAL DIGIT COUNTER
"ZERO FILL SWITCH
"NUMBER OF DIGITS TO TYPE

0
0
0
0
0

MACYII 27(732)

MAINDEC-II-0ZTAA-C

II-JUN-76

15115

PAGE 72

SEQ 01186

TRAP DECOOER

:f··**·······*··_-*····*·*····-··*··_·······_·····-···
••••
,*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TIlAP'*******
INSTRUCTION
;*AND US~ IT TO INDEX THROUGH THE TRAP TABLE FOR THE STA~TING AODRESS
,*0; THE OESIREO ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
,*GO TO THAT ROUTINE.
015322
015324
015330
015332
015334
015336
015342

010046
016600
005740
111000
096300
016000
000200

015344
015346
015354

011646
016666
000002

STRAP I
000002

015356

MOV
HOV
TST
MOV8
ASL
MOV
~TS

R0,-(SP)
2(SP),R0
-(R0)
(RIl),RIl

R0
STRPAD(R0),R0
R0

I/SAVE R0
I,GET TRAP AODRESS
"BACKUP BY 2
;,GET RIGHT BYTE or TRAP
"POSITION FOR INDEXING
"INDEX TO TABLE
,;GO TO ROUTINE

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

(SP),-(SP)
4(SP),2(SP)

$T~AP2:

MOV
MOV
RTI

.BBTTL

TRAP TABLE

000002

,;MOVE THE PC DOWN
"MOVE THE PSW OOWN
,,~ESTORE THE PSW

,*THIS TABLE CONTAINS THE STA~TING ADDRESSES 0; THE ROUTINES CALLEO
;*BY THE "TRAp· I~STRUCTIOH.

,
ROUTINE
,GTIlPAD:
,WORD
STRAP2

015356
015360
015362
015364
015366

013776
015120
015074
015134

$TYPE
STYPOC
$TYPOS
STYPON

I,CALL=TYPE
IICALL=TYPOC
, ,CALL=TYPOS
I,CALLaTYPON

TRAP+I (104401)
TRAP+2 (104402)
TRAP+3(104403)
TRAP+4(104404)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUM8ER (WITH LEADING ZEIlOS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)

015370

014370

$GTSWR

"CALL=GTSWR

TRAP+5(1044051

GET SOfT-SWR SETTING

1'15372
015374
015176
015400
015402
015404

1114320
0\4722
014216
012014
1112120

SCKSWR IICALL=CKSNR
TRAP+6(104406) TEST FOR CHANGE IN SOFT-SNR
'RDCHR IICALL=RDCHR
TRAP+7(10441l7) TTY TYPEIN CHARACTER ROUTINE
SRDLIN "CALL=RDLIN
TRAP+10(104410) TTY TYPE IN STRING ROUTINE
SRDOCT I,CALL=RDOCT
TRAP+II(104411) READ AN OCTAL NUMBER FROM TTY
WAIT.ON.READY
"CALL=WAITREADY
TRAP+12(104412) .AIT ON THE READY BIT TO
WAIT.;OR.XFER
I,CALLaWAITXFER TRAP+13(104413) WAIT ON XFER REQ.

015344

1114602

(

TAli BASIC LOGIC TEST (PART II
MAlNDEC-II-DZTAA-C
DZTAAC,NEW
POWER DOWN AND UP ROUTINES
3234
]2]5
]2]6
3237
3218
3219
]240
3241
]242
3243
3244
3245
]246
]247
3248
3249
325~

3251
3252
3253
3254
1255
3256
3257
3258
3259
3260
3261
3262

12bl
32bt
3265
3266
3267
3268
32&9
32N
3271
3272
3273
3274
3275
3276
3271
3278

.S8TTL

MACYII 27(732)

3279
328~

Jl24
3325
3326
3327
3328
3329
3110
ll31
1132
llll
3314

15115

PAGE 73

SEQ 8881

POWER DOWN AND UP ROUTINES

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

015406
015414
015422
015424
015426
1115430
015432
015434
1115436
015442
015446
1115454
015456

012737
012737
010046
010146
010246
010346
010446
010546
017746
010667
1112731
001110110
11011776

015552
000340

000024
000026

163476
000110
015460

000024

1115460
015466
1115472
1115476
015502
015504
015510
1115512
015514
015516
1115520
IH5522
015524
1115532
015540
015542
1115544
015546
015550
015552
015554
015556
015560
015566

012737
016706
11115067
1105267
001375
012677
0126115
012604
1112603
012602
1112601
11112600
012737
012737
104401
015560
012716
0"2222
"00002
00"000
000776
00000"
005015
000122

015552

0"0"24

,POWER DOWN ROUTINE
SPWRDN: MOV
JSILLUP.t'PWRVEC IISET FOR FAST UP
MOV
U40.UPWRVEC+2 "PRIOI7
R0.-(SP)
MOV
"PUSH R0 ON STACK
RI.-(SP)
MOV
"PUSH RI ON STACK
R2.-(SP)
MOV
"PUSH R2 ON STACK
R]. -(SP)
MOV
IIPUSH R] ON STACK
114.-(SP)
MOV
IIPUSH R4 ON STACK
RS.-(SP)
MOV
II PUSH R5 ON STACK
UWR. -(SP)
MOV
II PUSH PSWII ON STACK
MOV
SP, SSAVR6
"SAVE SP
MOV
.SPWRUP,'#PWRVEC IISET UP VECTOR
HALT
DR
;IHANG UP
.-2

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

0"""64

11011060
000054
16341~

015406
11"0340

000024
000026

047520

042527

;POWER UP POUTINE
SPWRUPI MOV
ISILLUP ••• PWRVEC IISET FOR FAST DOWN
HOV
SSAVR6.SP
'IGET SP
SSAVR6
CLR
II WUT LOOP FOR THE TTY
INC
SSAVR6
"WAIT FOR THE INC
lSI
BNE
IIOF WORD
IS
MOV
(SP) •• 8SWR
"POP STACK INTO tSWR
(SP).,R5
MOV
IIPOP STACK INTO R5
(SP)+.R4
MOV
"POP STACK INTO R4
(SP)+.R3
MOV
"POP STACK INTO R]
MOV
(SPIt.R2
IIPOP STACK INTO R2
MOV
(SP) •• RI
IIPOP STACK INTO RI
MOV
(SPIt.R0
IIPOP STACK INTO R0
HOV
'SPWRDN,.'PWRVEC IISET UP THE POWER DOWN VECTOR
MOV
#340."P~RVEC+2 'IPRIOI7
TYPE
,REPORT THE POWER FAILURE
SPWRHG, .WORD
SPOWER
IIPOWER FAIL MESSAGE POINTER
(PC)" (SP)
MOV
IIRESTART AT PWRST
PWRST
SPWRAD: .WORD
IIRESTART ADDRESS
RTl
lITHE POWER UP SEQUENCE WAS STARTED
$lLLUP: HALT
BR
.-2
II BEFORE THE PO~ER DOWN WAS COMPLETE
SSAVR61 0
IIPUT THE SP HERE
SPOWER: ,Asen C1S><12>"POWER"
,EVEN

TAil BASIC LOGIC TEST (PART I)
MAINOEC-II-DlTAA-C
DZTAAC.NEW
POWER DOWN ANO UP POUTINES

3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
3312
3313
3114
HIS
HI6
HI7
3318
HI9
3320
3321
H22
1321

I!-JUN-76

015570
015576
015603
015610
015613
015620
01562)
015630
015635
0156'2
015643
015650
015652
015660
0156&3
015670
015676
015704
015712
0157211
015726
015731
015736
015744
015752
015757
015764
015772
016000
016006
01601114
016020
016026
016034
016042
016043
016050
016056
1116064
016070
016076
01&104
016105
016112
016120
016124
016132
016140
016141
016146
016154
1116162
016170
1116176
016204
1116212

042200
051450
015
037523
126
037522
120
052111
124
000
040

MACYlI 27(732)

044522
037451
052012
000
041505
000
044522
037531
041501

042526
000
041501

MSGDRV, ,Ascn

<CRLF>/DRIVE(S)ll

MSGASK, ,ASCIZ

<15><12>ITAC5?!

047524

MSGVEC: ,ASCIZ

IVECTOR?!

051117
000
036523

MSGPRI: ,ASCIl

IPRIORITY? I

MTACS:

,ASCIZ

ITACS:I

040524

041104

MTADB:

• ASCIZ

TADB:I

04\505
000
051120
054524
045517
006523
052101
047522
000
042522
043040
020104
052105
051124
051105
042525
040506
052040
000124
020105
020107
051440

047524

HTAVEC: .ASCIZ

VECTOR:I

047511
000075
000077
000012
051525
046102

MTAPRII .ASCIZ

PRIORITY:I

II-JUN-76

0~0075

953040
93;'522
040
044522
005915
042531
052123
050040
046505
042
021131
042514
051440
042
041121
050505
020042
042105
042523
044124
047111
043501
000
103
050040
047122
042514
040504
047522
000
101
051523
042514
041520
020040
000
120
020040
820123
044501
051104
84\520
820040
020040

MSGOK:
MYES:
EMil

.Ascn
,Asell
,ASCIl

<15><12>IOK?!
IYES/<15><12>
ISTATUS PROBLEM I

042101
044501
047524
000
047101
051040
052123
046111
020117

EM2:

,Ascn

I"READY" FAILED TO SETI

EM3:

,Ascn

I"TRANSFER REQUEST" FAILED TO SETI

051127
046106
052105

EM4:

.ASCIZ

ITHE WRONG FLAG SET I

052116
042524
044501

EMS:

,ASCIZ

ICOUNT PATTERN FAILEDI

050040
11146505

EM61

,ASCIZ

fDATA PROBLEM I

042104
043040
000104
020040
040524

042522
044501

EMI0:

,Ascn

IADDRESS FAILEDI

020040
051503

DHI:

,ASCll

IPC

TACSI

020103
052040
020040
020124
0515115
020040
040524
020040

020040
041501
053440
042101
000123
020040
051503
054105

DH2.

,ASCIZ

IPC

TAC!

WAIT ADDRESSI

DH51

,Asell

IPC

TACS

EXPECT

052517
052101
043040
000104
040524
04611112

ReV'DI

15115

PAGE 74

SEQ .1188

TAli BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
DZTAAC.NEW
POWER DOWN AND UP ROUTINES
3335
3336

1116220
016226
016234
016242
1116250
016251
1116256
1116264

3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
1153
3354
3355
3356
3357
Jl58
3359
1160
3361
3362
3363
3364
3165
3366
3367

842520
841522
1141520
020040
1100
120
020040
042522
816272
801116
001116
000000
0111116
1101126
001116
0011\6
1101116

016344

001116

000000

OT202:

,WORD

SERRPC.0

1116350
016356
1116364
016372
016377
016404
016412
016420
016422
016430
0164]6
016437

340524
044501
047524
047520
116
053111
044501
000105
0U520
020040
000
120
000001

030461
042514
051040
042116
020117
020105
040514

043040
020104
051505
000
051104
053101
046102

EM2011

,Ascn

"TAIl FAILED TO RESPOND'

EM202.

,ASCIZ

"NO DRIVE AVAILABLE"

020040
040524

020040
051503

DH2011

,ASCIZ

IPC

OH202:

.ASCIZ

IPCI

1116272
016300
016306
016310
016316
016322
016330
016336

052103
023526
020040
040524

020040
000104
020040
041104

020103
040440
051523

020040
042104
000

001162
001162
001162
00110110
001164
001122
001206

MACYlI 27(732)

DH6.

.Asen

IPC

TADBI

DHI0.

,ASCll

IPC

ADDRESS I

000000
001202

.EVEN
DTII
DT2.

,WORD

SERRPC.$REG0.0
SERRPC.SREG0.SAVPC.0

001124

DT5.

.WORD

SERRPC.SREG0.SGDDAT,8BDDAT,0

000000
000000
000000

DT6.
DTl0:
DT2011

,WORD
.WORD
,WORD

SERRPC.$REGI.0
SERRPC.SBDADR.0
SERRPC.TACSL.0

000103

,WORD

012332
012222
0111232
001760
1601356
0~1410

0014\6
001424
001430
000001
000001
000002
"00004
000010
000020
000040
0001~0

000200
000400

BIT09
1101000
BITI
000002
BITI0
002000
BITU
004000
BITI2
010000
BITIl
020000
BITI4
040000
100000
BITIS
SIT2
000004
BIT]
000010
BIT4
000020
BITS
1600040
BIT6
000100
BIT7
000200
BIT8 = 800400
BIT9
801000
BLKLIM 013500
BPTVEC= 000014
BSBG
090010
BSFG = 1100006
BSFG5B 1113336
CHKAOR 002002
C~KDNV
""2062
CKSWR = 104406
CR
• 000015
CRCERR= 040000
CRLf
1100200
CURDRV 001234
DDISP = 177570
DHI
1116124
DHI0
016251
DH2
916141
DH2111
016422
DH202
016437
DH5
1116176
DH6
1116234

15.15

PAGE 75

SEQ 0089

15115

PAGE 77

SEQ 0090

TACSI

",END

TAil BASIC LOGIC TEST (PART 11
MAINOEC-II-DZTAA-C
OZTAAC .NEW
CROSS REfERENCE TABLE -- USER SYMBOLS
ASKADR
ASKORV
ASKKEY
BEGINX
BEGINI
BEGIN2
BEGIN3
BEGIN4
BGNCMN
BIT0
BIT"0
BIT01
BIr02
BIT03
BIT04
BIT05
BIT06
BIT07
81T08

U-JUN-76

572
569
394$
566.
231
232
231
234
488
166.
156.
ISS'
154#
ISH
152.
151.
150.
149.
148.
1441

147#
165.
146.
145.
144#
143#
142'
\411
164.
163#
162.
161#
160.
159.
158.
1570
2761*

24941
246 . .
659*
6112
485.
492'
491
496.
490

2484
695
604

652

MACYlI 2H 732)

654

4941
493

495

4971

16&
165
164
16]
162
161
160
159
158
2279
157

208
207
20&
205
204
203
202
201
200

956
947
938
929
920
1161
911
902
893

1415
1\05
1078
1051
1024
1382
997
1362
970

2857
1106
1079
1052
1025
13B3
998
1363
971

1083
1056
1029
1386
1002
1366
975

1111
1084
1057
1030

1119
1092
1065
10]8

1120
1093
1066
1039

1125
1098
1071
1044

1003
2857
976

1011
2859
984

1012

1017

985

990

199

1171

1342

1343

1346

2287

2351

198
197
196
195
194
193

884
875
1182
1\92
866
670

1322
1302
1282
1262
1242
1202

1123
1103
1283
1263
1243
1222

1126
1306
1286
1266
1246
1223

2335
2294

2775.

2782

2799

1486
1482
27350
571

1795
1780
2736
5901

1938
1909
2743

1945
1916

27]8

2327
2926

2350
29]6

32281

554

2897
689
525

2936

434

3327.

PH
186.
18H
241
568
628.
2264
8U
194#
82i
395.
881
416
458
422
465
470
440
446

II-JUN-76

688*
364
1124J
3340.
428
136H
]3668
452
ll37#

3332'

3279

2859
III~

2342
2265
1226

2859
1402

\404

1413

1440

TAli BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
DZTAAC.NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
OUPLA 1101142
DUPRE 1100174
DRVKEY 1181224
DRVPNT 001230
DSWR
177570
DTI
016272
DTI0
016330
DT2
01630~
DT2BI
016336
DT202
1116344
DT5
016310
DT6
016322
EMTVEC= 000030
EMI
EMI0
EM2
EM201
EM202
EM3
EM4
EMS
EM6
ERROR
ERROR 1
ERRVEC=

015712
016105
015731
016350
016377
015757
016020
016043
016070
100008
011516
000004

EXAM
EXIT
FGAP
FUNCTI=
FUNC_
FUNCI
FUNC2
GNS

813672
012322
004000
1108016

000~01

000~02

2~H

000004
008018

206.
205.
227
3232
208.
1655
1841
1967
2137
2663
548
539
1678
79»
204#
2791
202.
174.
462#
195'
1979
8e.
2468'

****** U

GTSWR = 1~4405
HERE
~01760
HGHTIM 012072
HT
000011
lLBS
000~20
INT.EN= 000100
IOTVEC= 11011020
ITEMS2 001H6
LEADE~= 020000
LF
LOOP

3641
2281
392.
393.
871
417
459
423
466
471
441
447
176.
801415
457
421
464
469
427
433
439
445
1931
732
1691
775.
2273.
629
2480
197#
2119.

00~012

012246

525*
533
393
642363
3344#
3350.
429
335U
335H
453
33491
50S8050
3297#
33211
33001
3355.
33591
33041
3310.
3314.
451
1657
755
522
784.
2276.
633
2485.
1424
209
209
209
553
3233
303
1674
1845
1974
2140
2666
701
541
2404*
2895
1424
2812
1424
506*
1467
2008
2930
2482

MACYII 27(732)

I1-JUN.76

RESVEC= 0110010
REWIND= 001}016

RGPBLK
SAVPC
SAVPS
SElSUF

1113156
001202
001204
0133711

2911
3010
323.
648
670_
2495
2461
542
2542
2518
2509
2530
2533
2539
2536
2551
2471
2469
2473
2466
2573
199.
657
2162*
861
180.
lI'lI
104.
105.
106.
107.
10U
109'
110.
8H
84.
66U
1751
2634
2543
2463
2496
237
1841
203.
1606
1910
2803
17 at
189.
1876
2608
239
384#
385.
2600

292
312
334
656.
1678.
32811
3279.
5541
3295.
3285.
32831
328H
3289.
32931
3291#
3296.
2475
2472.
2476.
2417
2606
2853
659.
2768*

PAGE 78

SEQ 0091

533*

2308*

2334.

486"
662*
524

628
679

641
6940

662
2825

693
2832.

2462*

2467

2481

2485

2831

435

33451

731
824.

732"
828.

736"
846

754
847'

755*
851"

75h

777

771*

782*

lee

778
523.
795.

801
534*
798_

824
590807.

847
596"
818*

2330.
726*
821*

729.
830"

738*
841.

749"
844.

752*
853.

761"
2270

772*
2271·

638

2844#

1427

1428

1437

1458

1454

675

686

3221

3222

3223

3224

3226

3228

3229

3230

3231

306
1676
1852
1992
2161
2691
2753
552
2418.
2936
1421

325
1694
1876
1996
2163
2697
2766
5541

328
1722
1880
2003
2166
2719
2772

707
1726
1887
2840
2187
2722
3226.

1518
1733
1905
2042
2189
2738

1543
1750
1909
2083
2192
2783

1566
1765
1916
2685
2211
2801

1581
1780
1934
2087
2575

1596
1795
1938
2895
2578

1625
1810
1945
2897
2608

1647
1825
1963
2135
2631

1428

1437

1450

1454

2065

2093

2104

2150

2176

2202

1427
501*

1428

1437

1450

1454

1528
2580
2936

1553
2612

1652
2635

1657
2668

1696
2671

1707
2695

1738
2699

1863
2724

1892
2740

1921
2862

1958

33471
509.
823

33181

TAIl BASIC LOGIC TEST (PAn Il
MAINDEC-II-DZTAA-C
DZTAAC,NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
LOOPI
000500
LOOP2
""0600
LOOP3
000700
MANUAL 002202
MAXCN'f 012116
MSGASK 1115603
HSGDRV 1115510
MSGIO
"01732
MSGOK
015676
MSGPRI "15623
MSGVEC 015613
MTACS
815635
MTAOS
015643
MTAPFI 015663
MTAVEC 015652
MYES
915704
NEXT
812302
NOTA
012260
NOTB
012272
NOnGL 6123\4
NXTDRV 013626
OFfLIN= 0~1000
OK
002214
PATTRN 013502
PIRQ
177772
PIRQVE= 03~240
PR0
000008
PRI
0000416
PR2
0011100
PR3
000140
PR4
000280
PR5
1100240
PR6
1100300
PR7
00~340
PS
177776
PSW
177776
PWRST
002222
PWRnc= 0011024
RDBLK
013546
RDCHR
104407
RDIoIN
104410
RDOCt
104411
RDSUB
012774
READ
080804
READY
000040

15115

1679.

MACYlI 27(732)

II-JUN-76

2432

15115

PAGE 79

SEQ 0092

1680.

1081*

2404

2425#

24831
2629

2486
2661

2689

2717

282U

2776.

2789

2800

323B*

3239*

324B*

325h

3266.

3267.

1880

1887
708
1751
2438

2097
1519
1766
2576

2801
1525
1781
2609

1544
1796
2632

1550
1811
2664

1567
1826
2692

1582
1846
2720

1598
1881
2785

1518
2040

1566
2083

1596
2095

1647
2135

1674
2161

1694
2187

1722
2211

1841
2575

2434*

2450

3345

061

2479.

665*

3271
512*
2694
3087
2951
2510
2624.
328
304
1627
1939
2849

51H
2799.
3229.
3230.
2519
2628
1478
311
1635
1968

303
1905
2631
2684#
2405.
2407.
2655

325
1934
2663
2688
2406*
2421
2749.

3231#
2636
1765
326
1701
1997

1727
2408

707
1963
2691
2696
2422
2435.

1498
1992
2719
2700
2433.
2449

333

MACHI 27(732)

TAil BASIC LOGIC TEST (PART I) MAlNDEC-II-DZTU-C
DZTAAC,NEW
CROSS REFERENCE TABLE
USER SYMBOLS
SFBG • 000014
SFFG = 001/1012
SFFGSB 013252
STACK = 0"111/10
START
002234
STKLMT. 177774
SWR
001140
SWREG

swe

SW00
SW01
SW02
SWll3
SW04
SWII5
SW06
SW07
SW08
51109
SWI
SWill
SWII
SII12
Slit)
SWI4
SWIS
SW2
SW3
8W4
5115
SW6
SII7
SlI8
SW9
TACSH
TAC5L

000176
000001

= 000001

000002
000004

= 001/1010
000020
= 000040

11001011
000200
110041/111
• 1111101111
111110002
802000
1104000
1110000
820000
040001/1
100000
• 000004
• 1100010
000020
• 000040
000100
1100200
= 000400
001000
001210
001206

=
•

·
=
=

TAOSH
""1214
TAOBL
001212
TAPRIO 001222
TAVEC
001216
TBI TVf: 000014
TOR V
002366
TIHERR= 0020"0
TKVEC = 000060
TPVEC = "00064
TRAPVE: 000034
TRTVlC: 000014
TF.REQ: 000200
T5TI
002514
r5TI0
003316
r5TI00 007070
T5T101 007132

188#
187#
240
74.
2712
660
85.
291
2294
2859
229#
138#
12St
127#
1261
125.

1241
123#
122.
12U
120#
1191

1494
1490
27121
5'"

1825
1810
2716
725

6631

2245

309
2335
2984
532

1sn

T5130
T5131
TS132
TSTH
T5134
15T35
TS136
T5137
T5T4
T8T40
T5T41
T8T42
T5T43
T5T44
T5T45
T5T46
T5T47
TST5
T5T50
T5T51
TST52
TST5]
TSTS4

007174
007236
007370
007504
007620
007734
003340
010050
010164
010224
010374
010534
010554
UI0570
010674
003362
01\000
011102
003404
003426
00)450
003472
003514
002610
003536
003560
003602
003634
003672
003724
003762
004014
002704
004052
004104
004142
004174
004232
004264
004322
1104370
003000
004414
004440
1104470
004514
004540
004606
1104654
1104722
1103074
004770
1105036
11105104
805152
0052Z0

15115

PAGE 80

SEQ

1996
1967
2727
748

2003
1974

2697
2722

771

794

817

841/1

2568

2601

2624

2656

U84

3611
2342
3021*
546

502
2347
3246
699

524.
2351
3259.
2751

526
2751

532*
2755

546
2757

699
2764

2265
2768

2279
2770

2281
2822

2287
2857

2764

2770

2984

2997

819.
592

825
666

14032501'

1415
2504

14272531

2504'
2569

2505*
2602

2625

2657

2685

2713

2844

842.
667
2529489

848
25032540
663'

250'*
2507

25080
2534

2570

2603

2626

2658

2686

2714

b64*

2515'

2517'

2537

0.~3

138
137
U6
US
134
133
U2
U1
U0
129

137#

118#
117.
1161
1151
1141
IIl1
U6.
U51
1341
133#

132.
tlU
\l01
129.
387#
386#
3351
389!
388.
391!
390.
1711
681
198'
178.
179.
1771
172'
20\#
70S
867
1782
1797

683#

510-

511'

7231
8721
1789#
18041

TAIl BASIC LOGIC TEST (PART Il MAINOEC-11-0ZTAA-C
DZTAAC ,NEW
CROSS REFERENCE TABLE -- USER SYMBOLS
T5T102
T5TI03
TSTl04
T5Tt05
T5TI06
T5TI07
TSTII
T5TI10
T5Tt11
T5TII2
T5TIIl
TSTI14
T5TII5
TSTII6
T5T1 17
T5TI2
T5T120
T5T1 21
T5T1]
T5TI4
T5T1S
TSTI6
T5TI7
T5T2
T5T20
T5T21
T5T22
T5T23
T5T24
TST25
15T26
T5T27

II-JUN-7.

1812
1827
1837
1872
1901
1930
876
1959
1988
2033'
2036
2079
2116
2124
2155.
885
218U
22070
894
903
912
921
930
746'
939
948
957
977
991
1004
1018
1031
769.
1045
1058
1072
1085
1099
1112
1126
1132
792.
1162
1172
1183
1193
1203
1228
1248
1268
815.
1288
1308
1328

1348

1368

1819.
1834.
1864
1893
1922
1951
8811
1980
2009
2071
21tH
212U
2129.

MACYII 27(732)

II-JUN-76

15.15

PAGE 81

5EQ 0094

1869.
1898.
19271
1956.
1985.
20141
2076'

890.
8990
90B.
917#
926.
935.
944'
9531
969.
982.
996'
11109.
10231
1036.
10501
10631
1077#
1090.
1104.
11171
lUll
1157#
1167#
11771
1188#

11981
1216.
1236.
12560
1276#
12961
1316#
1l36.
U56'
U7U

:,I

TAil BASIC LOGIC TEST (PART I)
MAINDEC-II-DZTAA-C
DZTAAC"NEW
CROSS REfERENCE TABLE -- USER SYMBOLS
15155
ISIS.
15T57
T5T6
T5168
lST61
T5T62
lS16)
15164
T5165
TST66
'fS167
lST7
TST70
TST71
TST72

005266
131353213
1385352
883174
005412
8854513
131355136
88564.
0135742
3061342
0136184
1306146
1303274
138&236
1306332
006424
006504
006606
006722
006764
007026
10440\

T5T73

15TH
TST75
TST76
TST77
TYPE

1388
1485
141b
838#

1:'

TYPERR 011676
TYPOC
104402
TYPO" = 1 0440~
TYPOS = 104403
UNIT
000400
WHTRE: 104412

1429

1442

WAITXF= 1"44 !3

WAIT .F
WI1T.O

012120
012014
012044
012064
012100
012062
000000

WAlTt

WAlT2
WAIn
"A114
wFG

WFGSUB 012622
WGBLOP 013060
WGPBLK 013054
WLOOP
012712
WRITE = 000002
WRTBLK 013504
WRYLoe: 010000
WRTSU8
012706
sAUTOB
001114
001122

SBDADR

T~11

2302
3224#
32233
200.
1565
1734
1904
2039
2162
2813
2064
2802
2430#
2402'
2408.
2403'
2409
2411
182;
2189
235
2656#
23B
2M" 1 #
183#
2&11
19b#

236
360.
355.

15:15

SEQ 131395

PAGE 82

\399#
14113<

1435
1448
15138
1514
1539
1568
1583
80H
1618#
1021
1644
1671
1715#
1718
1752
1767
542
23B3
3221'
2344

II-JUN-7.

1421#

1422

2549

MACHI 27(732)

1455
15113.
1529
1554
1575#
15913.

1434#
14478
1465#
1535'
1560#

1636
1668.
1689'

1641'

1739
\759.
177U
661
2387
255l
3268
2367#
2532

17440

682
1580
1749
1900
2841
2164
32320
2088
3233#
3233
3231
2410
2415.
2413
24140
1470
2578
2568.
2&60
2655#
2&05
300
2670
2855
26003
550*
733*

29110

673
2395

684
2461
2995

689
248)
2996

69"
2495
2999

2235
2509
3012

2337
2518
3023

2345
2530
3042

2367
2533
3091

2376
2536
3094

2378
2539
3098

2381
2542
3173

2535

253B

2541

2998

3222#

1424
1595
1764
1917
2043
2177

1437
1609
1779
193]
2069
218B

1450
1624
1794
1935
2082
219"

1454
1648
1809
1946
2084

2203

2828
1656
1824
1962
20B6
2212

2848
1675
1840
1964
2094
2579

1677
1842
1975
2096
2661

1&95
1859
1991
2108
2698

1711
1875
1993
2136
2723

1721
1877
2004
2138
2739

1723
I BB8
2023
2151
2792

2090

2002

2098

2103

2141

2143

2167

2109

219)

2195

2784

158!

1625

1655

1676

1726

1713

2042

2085

2137

216)

2087

2148

2166

2192

2783

2419
2421#
1543
2666
2572
2674

2583

2&15
1181
27.2.

1474

1150

1845

1852

2046

2992
756*

3113
719*

802*

925*

848*

3350

MACYlI 27(732)

MAINDEC -II-OZTAA-C
BASIC LOGIC nST (PART IJ
CROSS REFERENC~ TABLE -- USER SYMBOLS

11-JUN-1.

15,15

SEQ 0096

PAGE 83

DZTAAC~NEW

SBDDAT
SBE[,L
SCH~RC

$CKSI'fR

SCHUG
SCMI
SCM2
SCM3
SCNTLG
$CNTLU
SCRLf
SDOAGN

SENDAO
SENDCT
SENOMG
SENULL
SEOP
sEOPcr
SERFLG

SERMAX
$ ERROR
$ERRPC
SERFTB
$ERTT!,
SESCAP
$F1LLC
SflLLS
SGDADR
$GDOAT

$GET42
SGT5WR
$HD
SHIOCT
sICNT
SILLUP
s ItlTAG
$ITEMB

001126
001112
014212
014320
001100
~@0002

000004
000002
015045
01504101
~01 117
01 1210
011200
flll160
011217
011214
011124
"11152
001103
001115
011504

"" I !l6
001236
001112
0131170
1301156
001155
001120
001124
011170
014370
01300013

014316
001104
015552
001135
001114

$Lf

00120~

sLPADR

001106

, LPERP
SMAIL :
SMNEw
SMSWR

,MXCN T
SNULL
,NWTST:

001110
*** ~** U
015063
015052
011502
001154
'i!l000~1

357.
379,
2902*
2984.
3430
375,
375.
373<
2995
3~ 12
38 I,
2231
540
514
2235
2246,
737
514-1;1.
346.
352#
508
3530
410.
350#
378,
1718-1t
2354
3710
370,
354#
356'
2216'
2996,
1\
296S-

3413
32 38
l6U
35B
382#
348#
115813771987.
]49#

536
2999
299b
2302
369n
720n
921*
10870
129)#
15570
18\6#

2331_
2337
2912*
3228
499
376.
376,
375
3108.
3107#
690

2237
605

3347
2363
2919

2928*

29330

500
3771
377#

508

514

515

516

2345
2243#
655

2363

2367

2378

23B3

22]9,

2358

2387

2901

293b

3023

3107

2233#
2247.
760
2230.
2254
517*
2326#
2339*
2374
2338*
516*
1837*
2356
2905
2936
2330-

806

829

852

22230

2283
2285

2285
2307011-

2291'
2312

23\2

2332-

236]

2340*

2341

2363

3344

3345

3347

3349

3350

3351

3353

1422*
1901-*

14351930*

1448*
1959'

1514*
1988'

15392030*

1592_
2079.

1621'
2\32>

i6442158>

16912184'

1710'
2306*

2301*

2311

891-1-

1217'
1620'
2131'
2353

900*
1231*
1643215H
2572-

9091257.
! 717'
21832605<

918*
1277_
1836.
22892628.

927'
1297'
1871'
2304*
2660'

93.'
131'*
1900'
2309
2688>

945'
1337'
1929'
2311
2116'

954_
1351*
1958.
2736*

835.
9791
1164#
1396.
1665.
1953#

860.
9931
1\748
1401#
1686'
1982#

8&9'
1006#
1185#
1418#
17121
2011#

878,
10201
1195.
1431#
1741#
2030.

8870

10331
1213#
1444'
1756#
2073'

896#
10471
123]1
1462#
1771#
21139#

90S'
10601
1253.
1507f
17861
2118#

9141
1074.
12731
1532'
1801#
2126'

783

2234

2363
1132'
18122363
2930
3347

3226
29730
2298>
3254
3024
2341<
2363
51 S*
1168_
141210*
212116*
519*
546
3UI<
310%
2311#
2907
743#
932.
1101#

13IH
1572'
183U

2299
327H
3113
2363
2936
864*
1411*
2035*
2289
2304

2369
3098
873_
! 1891512'
207a.
2305'
2347

2936
766.
941#
1114#
13330
1581*
1866#

7B9.
950.
11280
1353#
16\5,
1895.

117th·

3107
882<
1199*

15370
2113>
2311
2889

Si2'
966n

1154#
1373#
1038#
1924#

TAli BASIC LOGIC TEST (PART I) MAINDEC-II-DZTAA-C
DZTAAC.NEW
CROSS REfERENCE TABLE -- USER SYMBOLS
SOCNT
015316
SOMOOE 015320
011466
SOVER
SPASS
001100
SPOWER 015560
SPWRAO 1615546
SPHRON 015406
SPWRMG 015542
SPWRUP 015460
SQUES
001176
SROCHR 014602
SROOEC= **-*** U
.ROLIN 014722
,ROOCT 1114216
sROSZ = ,,00010
.REGAD 001160
001162
SREG"
.REGI
001164
SRTNAD 011212
SR2A
****** U
SSAVRE: **._.It U
SSAVR6 015556
.SCOPE 011232
SSETUP: 000137
SSTUP = 171177
SSVLAD 011440
167400
SSWR

SSWRMK: 000000
STIMES 001156

STKB
STKS
STN

001146
001144
000122

2152.
3145.
3140*
2266
3441
3269
32711
512
3269.
3248
3A0I
3055.
3232
3083#
2946f
30161
373.
315.
3761
22458
3232
3232
3241.
506
485.
2264
485.
2214
11
516
900
1051
1237
1466
1715
2113
2257
2305
3212
6B
37"
1I1h
1775.
2130'
366.
3651
It
839.
B96
936.
991
1047
1105.
1174
1237#
1328

21781
3174*
3144*
2282
668
3276.

2204#
3187.
3149
2290
1670

32381

3266

32541
2363
3229

MACYI1 2H 732)

001152
001157
0111150
015322
015344
0011014

STRPAD 1115356
,TSTNM 11.11102
STTUN 015030
STYPBN= **-*** U
STYPOS: ****** U
STYPE
013716
STYP~C
014146
STYPEX 014214
STYPOC 015120
STYPON 015134
.TYPOS 015074
UTSTR 011244
UGETh 000000
S0fILL 1115311
S4eCAT= *••••• U
016442

3189.

3163*
2308.
2228*

2246

2296

2312

2483

2549

2936

3042

3091

3107

2328*
2329.

3344
3349

3345

3347

3255
2263.
505
2321

3256·

3251*

3215'

506
2350

50'
2358

510
2979

512
3113

514

515

516

518

540

543

2225

62
519
918
101B
1217
1536
lB05
2130
2259
2311

63
124
921
1091
1291
1561
1820
2156
2265
2318

1576
lB35
2182
2217
2319

65
170
945
1118
1337
1591
1810
2208
2219
23211

66
793
954
1132
1357
1619
1899
2218
2280
2321

61
816
970
1158
1377
1642
192B
2226
2283
2322

68
839
9B3
1168
1400
1669
1957
2238
22B4
2335

317
864
997
117B
1411
1690
1986
2244
2285
2342

378
873
1010
1189
1422
1716
2015
2246
2292
2347

319
882
1024
1199
1435
1745
2034
2255
2293
2351

515
891
1031
1217
1448
1760
2077
2256
2294
2363

2259
724.
1536*
1805*
2182*
298B
2986
120
8641
903
941
9971
1058

2260
141.
1561*
1820.
2208*
3005
3002
7241
867
905
945.
1004
1060
1118.
1185
12571
1348

22BI
170*
1576*
18352226*
3059
3026*
743
869
909.
948
1006
10641
1126
118U
1268
1353

793.
159118102292*
3065
3057
7471
B731
912
950
1010.
1072
1128
1193
1273
13571

816.
16191899.
2299

839*
1642.
1928.
2302*

9B3*
IU91957.
2311

1010·
1690*
1986_

1037.
1716.
2015-

1064.
1745.
2034*

1091·
1760.
2071.

3063
766
876
914
954'
11118
1074
11321
1195
12771
1368

710.
818
91St
957
1020
1078.
1154
1199'
1288
1373

789
882.
921
966
10241
U8S
11581
1203
12·3
13171

7931
885
923
9701
11131
1087
1162
1213
12971
1388

812
887
9271
971
1033
10911
1164
1217'
130B
1396

8161
89U
930
979
10371
1099
11681
1228
1313
1400.

835
894
932
983#
1045
1101
1172
1233
1317.
1405

23031
11
518
909
1064
1257
1511
1790
2122
2258
2308
69
515*
1511.
1790'
2156*
2917
2917
11
860
900.
939
993
10511
1112
1178#
1248
1333

1114
1183
12S3
13371

141
936
1105

1311

MACYlI 27(732)

11-~UN-16

15:15

1418
151H
1581
1690.
1782
1864
1953
2071
2156'

1422'
1514
15911
1712
1786
1866
19571
21173
2178

1429
1529
1615
1716.
1790.
1870.
1959
21171.
2182.

1431
1532
1619.
1718
1791
1812
1980
2019
2204

1435.
1536.
1621
1739
1801
1893
1982
21119
2208.

1442
1539
1636
1141
1805.
1895
1986.
21131

1444
1554
1638
1745.
1812
1899.
19B8
2116

1448.
1557
1642'
1752
1816
1901
2009
2118

1455
15611
1644
1756
1820.
1922
2011
2122'

1462
1568
1665
1760#
1821
1924
2015'
2124

32231

3224#

3225.

3226

32271

3228

3229.

3230.

32311

3232'

32331

2225*
3102

2254
31061

2281

2303·

2308

2312

2334

2363

3213
2911
2931
3222
3145.
3223

3221
2918
29341

2923#

2924

3028

3143.
2344
2271
2246
3343#

1I53

3188.

289.
2249

299.
2311

32201
617.
3085

SEQ 0098

PAGE 85

1416
1507
1583
1686
1715'
1837
1951
2036
2152
2936
2936
2936

14111
1500
1576.
1671
1171
1835.
1930
2034.
2130.
29252883
2923
319B.
3220
3222.

;

3224
l'

*TAAC,TAAC/SOL/CRf:SYM~OZTAAC.NEW

RUN-TIME: 58 48 3 SECONDS
RUN-TIME RATIO: 283/111=2,5
CORE USED. 26K (51 PAGES)

SEQ 0097

PAGE 84

3230
3231

1407
146H
1572
1669.
1767
1831
19281
2030
2126
3681
372.
36H
Sill
32090
3213.
32341
3203
345.
3084
3225
3225
2883.
2904
2929
31431
1I42
31381
22681
22381
31392265
223#
1659
3214

ERRORS DETECTED: 0
DEfAULT GLOBALS GENERATED:

15.15

3152*
2300
2227*

TAIl BASIC LOGIC TEST (PART II MAINOEC-II-DZTAA-C
DZTAAC.NEW
CROSS REfERENCE TABLE -- USER SYMBOLS

UPB
STPFLG
$TPS
STRAP
STRAP2
STRP

11-~UN-76

3211
2112

342.
2363

383
23981

503
2936

518
2971

519
31061

554.
3107

616.
3113

68H
3250