PDF Printing 600 Dpi AC 9357D MC_CZTADD0 TA11 Motion _Feb78 MC CZTADD0 Feb78
AC-9357D-MC_CZTADD0-TA11-Motion-_Feb78 AC-9357D-MC_CZTADD0-TA11-Motion-_Feb78
User Manual: AC-9357D-MC_CZTADD0-TA11-Motion-_Feb78
Open the PDF directly: View PDF 
.
Page Count: 56
| Download | |
| Open PDF In Browser | View PDF |
TA11 MDnON TEST
CZTAD-D MACV11 30A(I".,:2)
ClTADD.P11
23-MAR-78 08:34
.REM
23-MAR-7S
08:"""
SEQ 000
PAGE 1
SEQ 0001
@
IDENTl FICA nON
PRODUCT CODE:
AC-9357D-MC
PRODUCT NAME:
CZTADDO TA11 MOTION TST
DATE REVISED:
FEB 19713
MAINTAINER:
DIAGNOSTIC ENGINEERING
AUTHOR:
•.I1M LACEV
THE INFORMATION IN THIS DOCUMENT IS SU8JECT 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 MAV APPEAR IN THIS DOCUMENT.
NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITV OF
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS
AfFILIATED COMPANIES.
COPYRIGHT (C) 1973, 1978 BV DIGITAL EQUIPMENT CORPORATION
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:
DIGITAL
DEC
PDP
DECUS
UNIBUS
DECTAPE
MASS BUS
"
TA11 MOTION TEST
CZTAD-D MACV11 30A(10S2)
CITADD.Pi1
23-MAR-18 08:34
23-MAR-78
08:36
PAGE 2
CONTENTS
1.
ABSTRACT
2.
REQUIREMENTS
2,1
EQUIPMENT
2.2
STORAGE
2.3
PRELIMINARY PROGRAMS
3.
LOADING PROCEDURE
4.
STARTING PROCEDURE
4.1
CONTROL SWITCH SETTINGS
4.2
STARTING ADDRESS
4.3
PROGRAM & OPERATOR ACTION
S.
OPERATING PROCEDURE
S.1
OPERATIONAL SWITCH SETTINGS
5.2
SUBROUTINE ABSTRACTS
6.
ERRORS
7.
RESTRICTIONS
B.
MISCELLANEOUS
8~1
EXECUTION TIME
8.2
STACK POINTER
8.3
PASS COUNTER
8.4
ITERATIONS
8.5
SPECIAL REGISTERS
9.
PROGRAM DESCRIPTION
1.
ABSTRACT
THIS PROGRAM CONTA!NS A S~RIES OF TESTS THAT CHECK
THE TU60 DRIVE FOR PROPER OPERATION.
2.
REQUIREMENTS
2.1
EQUIPMENT
PDP-11 COMPUTER WITH OR WITHOUT HARDWARE SWITCH REGISTER
WITH CONSOLE TELETYPE, AND A TA11 CASSETTE
2.2
STORAGE
THIS PROGRAM REQUIRES APPROX. 4K STORAGE.
2.3
PRELIMINARV PROGRAMS
CHAA
SEQ 0002
SEQ 0002
TA11 MOTION TeST
CZTAD-D MACV11 30A(1052)
CZTADD.Pi1
23-MAR-7B 08:34
23-MAR-78
OB:36
PAGE:3
CZTAB
CZTAC
3.
LOADING PROCEDURE
USE STANDARD PROCEDURE FOR LOADING .ASS TAPES
OR A CASSETTE TAPE.
4.
STARTING PROCEDURE
4.1
CONTROL SWITCH SETTINGS
SEE 5.1.
4.2
STARTING ADDRESSES
200
204
210
214
220
224
230
234
240
244
250
NORMAL STARTING ADDRESS
SELECT DRIVE{S) BEFORE STARTING TEST
SELECT DRIVElS) ~ND ADDRESSES aEFORE STA~T!N~ TEST
SETUP FOR MANUAL LOOPING
WRITE FilE GAP FROM 80T TO EaT
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 EaT
$ACK SPACE FILE GAPS
SEQ 0003
SEQ 0003
TAll MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.Pil
23-MAR-18 08:34
4.3
23-MAR-78
08:36
PAGE 4
PROGRAM & OPERATOR ACTION
1,
2.
3.
4.
5,
6.
7.
LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)
LOAD A WRITE ENABLED CASSETTE IN BOTH DRIVES
REWIND BOTH DRIVES
LOAD ADDRESS 200.
SET SWITCHES (SEE SECTION 5.1)
PRESS START.
THE PROGRAM WILL LOOP & TTY BELL WILL RING ONCE EVERY
PASS, IF SW<10>=0.
*** NOTE: IF USING THE SOFTWARE SWITCH REGISTER THE
4.3.1
PROGRAM WILL TYPE "SWR=XXXXXX NEW=" AFTER TYPING
THE NAME OF THE PROGRAM.
DRIVE SELECTION
STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC
SELECTION OF DRIVES "An 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
TQ' SELECT THE DRIVE\S) TO BE TESTED.
THE PROGRAM WILL TYPE "DRIVE(S)?".
EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING "An AND/OR
"B" FOLLOWED BY A CARRIAGE RETURN.
4.3.1.1 DRIVE SELECTION EXAMPLES
DRIVE(S)?
DRIVE( Sp
DRIVE(S)?
DRIVE(S)?
A,B
AS
B,A
B
SEQ 0004
SEQ 0004
TAl' MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.Pl1
23-MAR-78 08:34
4.3.2
23-MAR-78
OB:36
PAGE 5
ADDRESS SELECTION
STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATOR
TO CHANGE THE "CONTROL AND STATUS" AND "DATA BUFFER"
REGISTER ADDRESSES, THE VECTOR ADDRESS AND THE
PRIORITY LEVEL.
THE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER
4.3.1. AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK
FOR:
1.
2.
3.
BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS)
VECTOR ADDRESS
PRIORITY LEVEL
AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER
OR A CARRIAGE RETURN (WHICH IMPLIES LEAVE AS I~).
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".
4.3.2.1 ADDRESS SELECTION EXAMPLES
;:JP~':~_"'''-~----~~.-'-
-
DRIVES(S) A
TACS? 177500
VECTOR? 260
PRIORITY? 6
TACS=177500 TADB=177502 VECTOR=000260 PRIORITY=00030Q
OK?
DRIVES(S) A,B
TACS? 470
VECTOR?
PRIORITY?
TACS=177470 TADB=177412 VECTOR=Q00260 PRIORITY=000300
OK?
SEQ 0005
SEQ 0005
""'"
-""
TA11 MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.P11
23-MAR-78 oa:34
4.3.3
23-MAR-78
08:36
PAGE 6
SEQ 0006
SUBTEST LOOPING
THE SCOPE ROUTINE (REFER 5.2.11 PROVIDES A MEANS BY
WHICH THE OPERATOR CAN SPECIFY THE FIRST ADDRESS OF
A SCOPE LOOP.
THE OPERATOR TYPES A "CONTROL C· (·C) AND WHEN THE
NEXT SCOPE STATEMENT IS EXECUTED THE PROGRAM WILL ASK
FOR:
1.
2.
TEST PC--- THE FIRST ADDRESS OF THE TEST (MUST BE A SCOPE)
LOOP PC--- THE ADDRESS TO LOOP BACK TO
4.3.3.1 SUBTEST LOOPING EXAMPLES
;OPERATOR TYPES _·C"
TEST PC? 2242
LOOP PC?
;OPERATOR TYPES ··C"
TEST PC? 3000
LOOP PC? 3020
;OPERATOR TYPES N-C·
TEST PC?
A
SEQ 0006
:OPERATOR TYPES "2242""CARRIAGE RETURN "(CR)R
;OPERATOR TYPES ·CR" WHICH
;IMPLIES "LOOP PC":"TEST PC"
;OPERATOR TYPES "3000""CR"
;OPERATOR TYPES "3020·-CR"
:PROGRAM USES THIS AS THE
;FIRST ADDRESS OF THE SCOPE
,LOOP
;OPERATOR TYPES OCR"
,PROGRAM CONTINUES
:FROM THIS POINT
TAll MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.P11
23-MAR-78 OB:34
23-MAR-7S
5.
OPERATING PROCEDURE
5.1
OPERATIONAL SWITCH SETTINGS
OB:36
PAGE 7
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 (LDC. 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
LDC. 176 AT SELECTED POINTS WITHIN THE PROGRAM.
2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS
OF THE SOFTWARE SWITCH REGISTER.)
3) AFTER THE' 'NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE
OF THE FOLLOWING AT THE TTY:
A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A .
(ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS
WILL BE ALLOWED)
IF A IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH
REGISTER CONTENTS WILL NOT BE CHANGED.
B) IF A CONTROL U IS DEPRESSED THEN THE PROGRAM WILL SEND YOU
BACK TO STEP 2.
WITH SW<15:08>=0 THE PROGRAM WILL PRINT OUT ON
ERRORS AND CONTINUE IN TEST. BELL WILL RING
AT COMPLETION OF A PASS.
THE SWITCH SETTINGS ARE:
SW<1S>=1 •.. HALT ON ERROR
SW<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
SW<07>=1 ••• LOCK ON CURRENT DRIVE
SW<06>=1 ••. DELAY AT END OF EACH FUNCTION
SW<05>=1 ••. RUN WITHOUT INTERRUPTS
SW<04>=1 ••• IGNORE BLOCK CHECK ERRORS
SW<03>=1 ••• INHIBIT -'TA COMPARE
,
"
SEQ 0007
SEQ 0007
TA11 MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.P11
23-MAR-78 08:34
5.2
SUBROUTINE ABSTRACTS
5.2.1
SCOPE
23-MAR-18
08:36
PAGE 8
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
NOTE: THIS ROUTINE CHECKS THE TTY INPUT BUFFER FOR A
"CONTROL C" (REFER TO 4.3.3)
5.2.2
TRAPCATCHER
A ".+2" -. "HALT" SEQUENCE IS REPEATED FROM LOC. 0 TO LOC. 716
TO CATCH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL
HALT AT THE DEViCE TRAP VECTOR +2.
5.2.3
ERROR
THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT
ALL ERRORS. (REFER TO 6.)
***
***
5.2.4
THIS ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS
IF THE PROCESSOR HALTS (BIT 15=1), OPERATOR
CAN RESET S/W SWITCH REGISTER BY HITTING A
"CONTROL G" BEFORE HITTING CONTINUE.
TRAP
A NUMBER OF SUBROUTINES ARE CALLED BY THE TRAP INSTRUCTION.
FOLLOWING IS THE CALLS USED AND THE STARTING ADDRESS OF THE
ROUTINE.
5.2.4.1 TYPE ($TYPE)
TYPE AN ASCIZ STRING ON THE TTY
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 SETLOOP (T.SETLOOP)
SETUP TO LOOP AS PER THE tTY
SEQ 0008
SEQ 0008
TAll MOTION TEST
CZTAD-D MACY11 30A(1052}
CZTADD.Pl1
23-MAR-78 08:34
5.2.5
23-MAR-78
08:36
PAGE 9
THE FOLLOWING "TRAp· CALLS ARE WHAT ARE USED TO PERFORM
THE TESTS.
THE ROUTINES THAT ARE CALLED IS WHAT MAKES UP THE HEART
OF THIS PROGRAM.
5.2.5.1WFG (T.WFG) WRITE A FILE GAP
5.2.5.2 WRITE (T.WRIT) WRITE A BLOCK OF DATA
5.2.5.3 READ (T.READ) READ A BLOCK OF DATA
5.2.5.4 BSFG (T.BSFG) BACK SPACE A FILE GAP
5.2.5.5 BSBG (T.BSBG) BACK SPACE A BLOCK GAP
5.2.5.6 SFFG (T.SFFG) SPACE FORWARD A FILE GAP
5.2.5.7 SFBG (T.SFBG) SPACE FORWARD A BLOCK GAP
5.2.5.8 REWIND (T.RWND) REWIND THE TAPE TO BOT
5.2.5.9 SELDRV (T.SELDRV) SELECT A DRIVE
5.2.5.10 BLKCMP (T.BLKCMP) COMPARE READ AND WRITE BUFFERS
SEQ 0009
SEQ OO{)9
TAli MOTION TEST
CZTAD-D MACY1i 30A(1052)
CZTADD.Pl1
23-MAR-78 08:34
5.2.6
23-MAR-7B
OB:35
THE FOLLOWING SUBROUTINES ARE CALLED BY A
PAGE 10
SEQ 0010
~SR
5.2.6.1 DO.CMD
THIS ROUTINE WILL LOAD THE LOW BYTE OF THE "TACS" WITH THE
FIRST BYTE FOLLOWING THE CALL.
WHEN THE FUNCTION IS TO BE PERFORMED WITH "INTERRUPT ENABLE"=1
THE TAll V~CTOR IS SET TO "SERVo. WHEN THE FUCTION IS TO BE
PERFORMED WITH "INTERRUPT ENABLE"=O THE VECTOR IS SET TO "BADINT"
NOTE SWR<5> PROVIDES OVERRIDE CAPABLITIES OF "INTERRUPT
ENABLE"=1.
5.2.6.2 WAITFLAG
THIS ROUTINE IS CALLED AFTER A COMMAND HAS BEEN SENT TO
THE TAll. IT WAITS A PREDETERMINED AMOUNT OF TIME A
TAKES ONE OF THREE EXITS.
THE EXITS FOLLOW THE CALL AND ARE:
1.
2.
3.
ERROR NO FLAGS OCCURRED
ERROR NO INTERRUPT OCCURRED
NORMAL RETURN
5.2.6.3 FLAGS
THIS ROUTINE IS CALLED TO DETERMINE WHAT FLAGS ARE UP.
THIS ROUTINE WILL TAKE ONE OF FOUR RETURNS DEPENDING ON
THE FLAGS.
THE RETURNS FOLLOW THE CALL AND ARE:
1.
2.
3.
4.
SEQ 0010
"TRANFER REQUEST"=O AND "READY"zO
"TRANFER REQUEST"=1
"READY"=1 AND "ERROR"=O
"READY":1 AND "ERROR"=1
5.2.6.3 DO.CRe
THIS ROUTINE IS USED TO CALCULATE "CRC".
IT WORKS ON ONE BYTE AT A TIML WHICH MUST BE IN RO WHEN
CALLED.
5.2.6.4 A20CT
THIS ROUTINE CHANGES AN ASCII STRING TO AN OCTAL NUMBER.
TA11 MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.P11
23-MAR-78 08:34
23-MAR-78
08:36
PAGE 11
5.2.6.5 GETDRV
THIS ROUTINE IS USED TO ASK THE OPERATOR WHICH DRIVE(S)
ARE TO BE TESTED
5.2.6.6 ASKADR
THIS ROUTINE IS USED TO INPUT THE ADDRESSES FOR THE WTACS" ,
"TADB" AND THE VECTOR AND THE PRIORITY LEVEL TO USE.
5.2.6.7 TYPERR
THIS ROUTINE IS USED TO TYPE OUT THE "ERROR" DATA
5.2.6.8 EXAM
THIS ROUTINE IS USED TO DETERMINE WHICH DRIVE(S) ARE AVAILABLE
FOR TESTING.
5.2.7
THE FOLLOW ROUTINES ARE USED TO MAKE ADJUSTMENTS TO
THE TU60. BEFORE USING ANY OF THEM LOAD AND START 214.
5.2.7.1 WFGSUB
WRITE FILE GAPS FROM "BOT U TO "EaT"
START AT 220
THIS ROUTINE CAN BE USED TO ADJUST THE ·WRITE GAP MONO" AND
THE "WRITE DELAY MONO".
5.2.7.2 WRTSUB
WRITE CONTINUOUS BLOCKS OF DATA
START AT 224
THE PROGRAM WILL HALT THREE(3) TIMES
AFTER EACH HALT SET THE SWR AND PRESS CONTINUE
HALT 1 --- SWR<7:0> = NUMBER OF BYTES PER BLOCK
HALT 2 ---SWR<7:0> = PATTERN DESIRED
HALT 3 --- SWR<15:0> = OPERATIONAL SWITCH SETTINGS
THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO·
** IF USING SOFTWARE SWITCH REGISTER, AFTER
EACH HALT OPERATOR WILL BE PROMPTED
FOR THE VALUE WITH "SWR=XXXXXX NEW="
5.2.7.3 RDSUB
READ CONTINUOUS BLOCKS OF DATA
START AT 230
THIS ROUTINE CAN BE USED TO ADJUST THE ·SIGNAL MONO"
AND THE "THRESHOLD POT"
SEQ 0011
SEQ 0011
TAli MOTION TEST
CZTAD-D MACV11 30A(1052)
23-MAR-7B 08:34
CZTADD.Pl1
23-MAR-78
08:36
PAGE 12
5.2.7.4 WGPBLK
WRITE A FILE GAP AND A BLOCK Gf 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<7:0> '" PATTER:, 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 PROMPTED
FOR THE VALUE WITH ·SWR=XXXXXX NEW="
5.2.7.5 RGBLK
READ A BLOCK OF DATA AND A FILE GAP
START AT 240
THIS ROUTINE IS USED AFTER "WRITE A BLOCK AND A FILE GAP" ROUTINE
IT CAN BE USED TO ADJUST THE "SIGNAL MON". THE THRESHOLD POT"
AND THE "TAPE BLANK MONO".
5.2.7.6 SFFGSB
SPACE FORWARD FILE GAP FROM "BOT" TC "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.7.7 BSFGSB
BACK SPACE FILE GAP
START AT 250
THIS ROUTINE CAN BE USED TO ADJUST OR CHECK THE "SIGNAL MONO".
SEQ 0012
SEQ 0012
TAt1 MOTION TEST
CZTAD-D MACY11 30A(1052)
CZTADD.P11
23-MAR-78 08:34
6.
23-MAR-1B
OB:36
SEQ 0013
PAGE 13
ERRORS
THERE ARE A NUM8ER OF ERRORS THAT CAN OCCUR IN THIS
PROGRAM. WHEN AN ERROR IS ENCOUNTERED THE CALL TO
THE ERROR (ERROR) ROUTINE IS MADE AND IF SW<13> IS NOT
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE
TYPED. EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING:
1.
2.
3.
4.
THE FUNCTION BEING PERFORM
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.
B.
MISCELLANEOUS
8.1
EXECUTION TIME
THE FIRST PASS TAKES APPROXIMATELY 4 MINUTES ALL
SUBSEQUENT PASSES TAKE APPOXIMATELY B MINUTES
B.2
STACK POINTER
STACK IS INITIALLY SET TO 1100.
B.3
PASS COUNT
A PROGRAM PASS THRU COUNT IS KEPT IN "$PASS".
B.4
ITERATIONS
THE FIRST PASS OF THE PROGRAM WILL AUTOMATICALLY INHIBIT
ITERATIONS. ALL SUBSEQUENT PASSES WILL PERFORM FULL,
(ONE PER DRIVE), ITERATIONS.
B.5
SPECIAL REGISTERS
R4 AND R5 ARE RESERVED FOR -TACS· AND "TAOS" THROUGH
OUT THE PROGRAM.
._-
SEQ 0013
TAll MOTION TEST
CZTAD-D MACY11 30A(i052)
CZTADD.Pl1
23-MAR-78 08:34
9.
23-MAR-78
08:36
PAGE 14
SEQ 0014
SEQ 0014
PROGRAM DESCRIPTION
THIS PROGRAM IS A SEQUENCE OF INDEPENDENT TESTS THAT
CHECK THE TAll FOR PROPER OPERATION.
EACH TESTS IS A SERIES OF "TRAP" CALLS TO ROUTINES THAT PERFORM
THE DESIRED FUNCTION.
THE PROGRAM STARTS WITH A SIMPLE SEQUENCE OF FUNCTIONS
AND BUILTS IN CO~PLEXITY INTRODUCING ONE NEW FUNCTION
AT A TIME, UNTIL ALL LEGAL COMBINATIONS HAVE 8EEN PERFORMED.
THEN, MULTI SPACING IS PERFORMED TO TRY AND GENERATE
NOISE THAT MIGHT CAUSE PROBLEMS DUE TO SPEED CHANGES AND
FREQUENT START STOPPING.
582
5B3
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
.TITLE TAll MOTION TEST
;*COPYRIGHT (C) ~S73.1978
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD, MASS. 01754
CZTAD-D
;*
:*PROGRAM BY JIM LACEY
:*
;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINOEC SYSMAC
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19. 1977.
;*
;;***************************************************************
;;***************************************************************
;;***************************************************************
.REM!
GENERAL INFORMATION ABOUT THE TAli/TU60 CASSETTE
ADDRESS MNEMONIC DESCRIPTION
601
602
603
604
605
606
607
608
609
610
611
612
613
777:'00
777502
260
TACS
TADB
TAVEC
CONTROL AND STATUS REGISTER
DATA BUFFER REGISTER
INTERRUPT VECTOR
TACS REGISTER DESCRIPTION
BIT
NAME
ERROR
BLOCK CHECK ERROR
CLEAR LEADER
WRITE LOCK
F! LE GAP
TIMING ERROR
614
15
615
616
14
13
617
618
619
12
11
HI
INIT
STATE
?
0
?
?
0
0
READ AND/OR WRITE?
-----------------READ
READ
READ
READ
READ
READ
ONLY
ONLY
ONLY
ONLY
ONLY
ONLY
TA11 MOTION TEST
CZTAD-D MACY11 30A(1052) 23-MAR-78 08:36 PAGE 15
CZTADD.P11
23-MAR-78 08:34
GENERAL INFORMATION
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
09
08
07
06
05
04
03
02
01
00
OFF LINE
?
UNIT SELECT
0
TRANSFER REQUEST
0
INTERRUPT ENABLE
0
READY
1
ILBS
0
FUNCTION BIT 02
0
FUNCTION BIT 01
0
FUNCTION BIT 00
0
O=WRTTE-FILE-GAP
1=WRITE
2=READ
3=BACK SPACE FILE GAP
4=BACK SPACE BLOCK GAP
5=SPACE FORWARD FILE GAP
6=SPACE FORWARD BLOCK GAP
7=REWIND
GO BIT
0
SEQ 0015
SEQ 0015
READ ONLY
READ/WRITE
READ ONLY
READ/WRITE
READ ONLY
READ/WRITE
READ/WRITE
READ/WRITE
READ/WRITE
WRITE ONLY!
SEQ 0018
TAIl MOTION TEST
CZTAD-D MACYll 30A(10S2) 23-MAR-78 08:36 PAGE 16
CZTADD.Pl1
23-MAR-78 08:34
OPERATIONAL 5111 ITCH SETTINGS
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
..
.S8TH
;.
;
;
Sill ITCH
;.
;.
;.
;.
;.
;.
;.
;.
;.
;.
;.
.S8TH
001100
15
14
13
11
10
9
7
6
5
4
3
USE
--------------------
HALT ON ERROR
LOOP ON TEST
INHI8IT ERROR TYPEOUTS
INHI8IT ITERATIONS
8ELL ON ERROR
LOOP ON ERROR
LOCK ON CURRENT DRIVE
DELAY AT END OF EACH FUNCTION
RUN IIIITHOUT INTERRUPTS
IGNORE BLOCK CHECK ERRORS
INHIBIT DATA COMPARE
BASIC DEFINITIONS
;.INITIAL ADDRESS OF THE STACK POINTER ••• 1100 •••
STACK- 1100
.EQUIV EMT ,ERROR
; ;BASIC DEFINITION OF ERROR CALL
; ;BASIC .DEFINITION OF SCOPE CALL
.EQUIV lOT ,SCOPE
177774
177772
177570
177570
; >MISCElLANEOUS DEFINITIONS
; ;CODE FOR HORIZONTAL TAB
HT11
; ;CODE FOR LINE FEED·
LF.
12
; ;CODE FOR CARRIAGE RETURN
CR15
; ;CODE FOR· CARRIAGE RETURN-LINE FEED
CRLF.
200
;;PROCESSOR STATUS WORD
PS177776
.EQUIV PS,PSIol
; ; STACK LIMIT REGISTER
STKLMT. 177774
; ; PROGRAM INTERRUpT REQUEST REGISTER
PIRQ177772
OSWR.
177570
; ;HARDWARE SIIIITCH REGISTER
DDISP. 177570
; ;HARDIIIARE DISPLAY REGISTER
000000
000001
000002
000003
000004
000005
000006
000007
000006
000007
; -GENERAL PURPOSE REGISTER DEFINITIONS
; ; GENERAL REGISTER
"0
; ;GENERAi.. iCEGlST£R
Rl'
; ;GENERAL REGISTER
R2"2
; ;GENERAL REGISTER
R3"3
; ;GENERAL REGISTER
R4"4
;;GENERAL REGISTER
R5"5
;;GENERAL REGISTER
R6;;GENERAL REGISTER
R7"7
; ;STACK POINTER
SP%6
; : PROGRAM COUNTER
PC-
000000
000040
000100
000140
000200
000240
; .PRIORITY LEVEL DEFINITIONS
; :PRIORITY
PRO0
PRI.
40
; ;PRIORITY
; ;PRIORITY
PR2100
; ;PRIORITY
PR3140
PR4200
: :PRIORITY
; :PRIDRITY
PR5240
000011
000012
000015
000200
177776
RO-
"1
"6
"7
CZTAD-D MACY11 30A( 1052) 23-MAR-78
TAIl MOTION TEST
8ASIC DEFINITIONS
23-MAR-78 08:34
CZTADD. PI 1
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
74B
749
SEQ 0018
OPERATIONAL SIIIITCH SETTINGS
000300
000340
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
PR6=
PR7.
300
340
OB:38
LEVEL
LEVEL
LEVel
LEVEL
LEVel
LEVEL
0
1
2
3
4
5
PAGE 17
SEQ 0017
SEQ 0017
;: PRIORITV .EVEL B
; :PRIORITV LEVEL 1
;.·SWITCH REGISTER' SIllITCH DEFINITlONS
100000
S1II1551111440000
SW1320000
51011210000
SW11=
4000
511110.
2000
SW091000
SW08=
400
5W07200
SW06=
100
5\110540
5W0420
SW03=
10
5\11024
5101012
511100I
.EQUIV SW09,SIII9
.EQUIV 511108,51118
.EQUIV 511107,51117
.EQUIV 51'106,SW6
.EQUIV SW05,S1JI5
.EQUIV 51104,5114
.EQUIV 5\1103,51113
.EQUIV 51'102,51012
.EQUIY SW01,SIIIl
.EQUIV SWOO,SIIO
;*DATA BIT DEFINITIONS (81T00 TD BIT1S)
B1T15- 100000
8H14- 400·00
81T13- 20000
B!T12. 10000
BITII- 4000
B1T10- 2000
BIT09. 1000
B1T08- 400
BIT07- 200
8IT06- 100
B1T05- 40
BIT04. 20
BlT03. 10
8!T02. 4
BITOh 2
SITOO. 1
.EQUIV BIT09,BIT9
.EQUIV BIT08,8IT8
.EQUIV BIT07,BIT7
.EQUIV BIT06,BIT6
.EQUIV BIT05,BIT5
.EQUIV BIT04,BIT4
.EQUIV 8lT03,BIT3
.EQUIV B1T02.81T2
TA11 MOTION TEST
CZTAD-D MACY11 30A( 1052) 23-MAR-18
CZTADD.Pll
23-MAR-78 08:34
BASIC DEFINiTIONS
.EOUIV
.EOUIV
750
751
752
753
754
755
756
757
75B
759
760
761
762
763
764
765
766
767
768
169
770
771
772
773
774
775
776
SEQ 0018
PAGE 18
SEQ 0018
B1T01.BITI
BITOO.BITO
: .BASIC ·CPU· TRAP VECTOR ADDRESSES
; ; TIME OUT AND OTHER ERRORS
;;RESERVED AND ILLEGAL INSTRUCTIONS
;; "T" BIT
; ; TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;; INPUT lOUT PUT TRAP (lOT) •• SCOPE ••
; ;POWER FAll
;;EMULATOR TRAP (EMTl •• ERROR"
ERRVEC' 4
RESVEC= 10
TBiTVEC-14
TRTVEC- 14
BPTVEC= 14
10TVEC- 20
Plt/RVEC- 24
EMTVEC= 30
TRAPVEC-34
TKVEC. 60
TPVEC= 64
PIRQVEC.240
000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240
; j ••••••
XII/RiTEXREAD.
XBSFG.
XBSBGXSFFGXSFBGXRWND=
777
;:·TRAP" TRAP
;;TTY KEYBOARD VECTOR
;;TTY PRINTER VECTOR
; ; PROGRAM INTERRUPT REQUEST VECTOR
** ...... *••••••••••••••••• ** ••••••••••••••••••••••••••••••
: "1J1I11I11I1I4I'O!TA11
~II/FG.
I)
000000
000002
000004
000008
000010
000012
000014
000016
2
4
6
10
12
14
16
FUNCTIONSUUUUU
;WRITE FILE GAP FUNCTION
;WRITE FUNCTION
; READ FUNCTION
;BACK SPACE FILE GAP FUNCTION
; BACK SPACE· 8LOCK GAP FUNCTION
; SPACE FWD Fl LE GAP FUNCTION
; SPACE FWD BLOCK GAP FUNCTION
; REWIND FUNCTION
; IIltllllllllllllllIJTA11 BIT ASSIGNMENT##U#H"*'
778
779
7BO
7Bl
7B2
783
7B4
785
7B6
787
7B8
789
790·
791
192
793
794
795
796
797
798
799
BOO
801
802
B03
ERROR- BIT 15
CRCERR= BIT14
LEADER- B1T13
WRlLOCK- BIT 12
FGAP.
BIT11
TIMERR. BIT10
OFFLINE=BIT09
UNITBITOB
TR. REO- BlT01
INT. EN- BIT06
READY. BIT05
ILBS=
BIT04
FUNC2. BIT03
FUNC,. BIT02
FUNCO. BITOI
GO=
BiTOO
FUNCTION-
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
000016
FUNC2+ FUNCI +FUNCO
;1111/1111///1//////1///11//////////////11//////1111///1/11/1//11////1/
;1111111//1//1///////////1///////1//1/11/1////1111///1///1////1/1//////
;SPECIAL REGISTERS
TACSTADB-
000004
000005
"4
%5
.S8TH
000000
000174
000176
000174
000000
000000
000200
000204
000210
000214
000220
000224
000230
000234
000240
000244
000250
000137
000137
000137
000137
000137
000137
000137
000137
000137
000131
000137
;R4 IS USED AS A POINTER TO THE TACS REGISTER
;R5 IS USED AS A POINTER TO THE TADB REGISTER.
;/1///////11///1111//111/111//1///1/////////////11////1//1//11///1/11/1
TAIl MOTION TEST
CZTAD-D MACY11 30A( 1052) 23-MAR-7B
CZTADD.Pll
23-IIIAR-78 08:34
TR~P CATCHER
804
805
B06
807
808
B09
Bl0
811
812
813
814
B15
B16
817
81B
819
820
B21
B22
B23
824
825
828
08:36
001450
001502
001510
002036
012364
012440
012522
012610
012102
013000
013054
08:36
PAGE 19
SEQ 0019
SEQ 0019
TRAP CATCHER
.=0
;>ALL UNUSED LOCATIONS FROM 4 - 116 CONTAIN A •• +2.HALT'
;_SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;_LDCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS
.-174
;; SOFTWARE DISPLAY REGISTER
DISPREG: .WORD 0
: ; SOFTWARE SWITCH REGISTER
SII/REG:
.WORD 0
.SBTH STARTING ADDRESS(ES)
; ; &JUMP TO STARTING ADDRESS OF PROGRAM
~MP
.NBEGINI
;SELECT ORIVE(SI BEFORE STARTING TEST
~MP
.'BEGIN2
;SELECT DRIVE(S) AND ADDRESSES BEFORE TESTING
~MP
.'BEGIN3
;SETUP FOR MANUAL LOOPING
~MP
.'BEGINX
;WRITE FILE GAP FROM BOT TO EDT
~MP
.,WFGSUB
;WRITE CONTINUOUS BLOCKS OF DATA
~MP
.IWRTSUB
; READ CONTINUOUS BLOCKS OF DATA
~MP
.. 'RDSUB
;WRITE FILE GAP AND A BLOCK OF DATA
~MP
.'WGPBLK
;
READ BLOCK OF DATA AND INTO A FILE GAP
~MP
.. 'RGPBLK
;SPACE FWD FILE GAP FROM BOT TO EDT
~MP
.'SFFGSB
; BACK SPACE FI LE GAPS
~MP
..'BSFGSB
; ; •••••••••••••••••••••••••••••••••••••••• ** •••••••••••••••••••••
TAIl MOTION TEST
CZTAD-D MACYI1 30A(1052)
23-MAR-78
CZTADD.P11
23-MAR-1B 08:34
COMMON TAGS
B21
B28
B29
B30
831
B32
B33
B34
B35
836
831
838
839
840
841
842
843
844
B45
846
841
848
849
850
851
852
853
B54
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
87,
872
873
874
875
876
877
878
879
880
881
882
.S8TTL
SEQ 0020
PAGE 20
; ; *10"" >1< • • *** •• *...............
.
• =11 00
001100
$CMTAG:
$PASS:
$TSTNM:
$ERFLG:
$lCNT:
$LPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
SGOADR:
SBuADR:
SGOOAT:
SBOOAT:
"START OF
"CONTAINS
; ,CONTAINS
; ,CONTAINS
"CONTAINS
"CONTAINS
"CONTAINS
; ,CONTAINS
: ,CONTAINS
, ,CONTA I NS
; ,CONTAINS
"CONTAINS
; ;CONrAn"5
o
COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP AOORESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS OETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTiON
AODRESS OF 'GOOD' DATA
AD~RESS Of 'SAO' DATA
001124
001126
001130
001132
001134
001135
001136
001140
001142
001144
001146
001150
001152
001154
001155
001156
001157
001160
000000
000
000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000
000000
.WORD
.BYTE
• BYTE
.WORD
.WORD
.WORO
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORO
.WORD
.WORD
.WORD
.WORD
SAUTOB: • BYTE
$INTAG: .BYTE
.WORD
SIIIR:
.WORD
DISPLAY: .WORD
STKS:
177560
STKB:
177562
STPS:
177564
STP B:
177566
SNULL:
.BYTE
SFILLS: .BYTE
SFILLC: .BYTE
STPFlG: .BYTE
$REGAO: • WORD
001162
001164
001166
001170
001172
001174
001200
001201
001202
000000
000000
000000
000000
000000
"7607
077
015
000012
SREGO:
.WORD
SREG1:
.WORD
STMPO:
.WORD
STIMES: 0
SE5('APE:O
SBE.c:
.ASCIZ
SQU,S:
.ASCII
SCRLF:
.ASCII
$LF:
.ASCIZ
; ;AODRESS OF SWITCH REGISTER
: ,ADDRESS OF OISPLAY REGISTER
; ,TTY KBD STATUS
;;TTY KBD BUFFER
,;TTY PRINTER STATUS REG. ADDRESS
; :TTY PRINTER BUFFER REG. ADORESS
o
; ,CONTAINS NULL CHARACTER FOR FILLS
; ;CONTAINS N OF FILLER CHARACTERS REQUIRED
2
12
;;INSERT FILL CHARS •. AFTER A 'LINE FEED'
;, 'TERMINAL AVAILABLE' FLAG CBIT<07>.O.YES)
a
; ;CONTAINS THE ADDRESS FROM
; ,WHICH
(SREGO) WAS OBTAINED
0
; ;CONTAINS I (SREGAD)+O)
0
; ,CONTAINS C(SREGAD)+2)
0
: ,USER DEFINED
; ,MAX. NUMBER OF ITERATIONS
; ,ESCAPE ON ERROR ADDRESS
<207><377><377>; ;CODE FOR BelL
/1/
; ;QUESTION MARK
<15>
; ;CARRIAGE RETURN
<12>
;;LINE FEED
001204
001206
001210
001212
001214
000000
000000
000000
000000
000000
SAVPC:
ByTNUM:
RCRCO:
RCRC1:
RCRC2:
0
0
0
0
0
001216
000001
$MXCNT:
00112~
001220
001222
001224
00'226
001230
001234
DO' 236
001240
001244
001246
001250
001254
001256
001260
001262
001264
000377
o
o
a
o
o
o
o
1
o
o
o
o
o
; iCONTAINS 'GOOD' DATA
; ;CONTAINS 'BAD' DATA
o
o
o
, ; RESERVED--NOT TO BE USED
; ; AUTOMATIC MODE INDICATOR
MODE INDICATOR
.1., INTERRUPT
o
O·
DSWR
DDISP
o
; ; * ** *$ '* *,.. .. >,\I '" • • '" ***.'" flO *".$. $ lb • • • *$** ••• ** ** .. * *** $.* * II< * .. ** "' ...... *"'$
177500
177501
177502
177503
000260
000300
000000
000000
001240
000000
177777
000000
001260
000000
000000
000000
0020
,.,** •• ** •• ****** .******"'* •••••••••••••
,.THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
"USEO IN THE PROGRAM.
001100
001100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
seq
COMMON TAGS
• WORD
.WORO
.WORD
.WORD
.WORD
23-MAR-7B
CZT AD-a MACY 11 30A( 1052)
TAil MOTION TEST
COMMON TAGS
23-MAR-7B 08:34
CZTADO.PI1
B83
884
885
BB6
8B7
888
889
890
891
892
893
894
895
896
897
B98
08:36
000262
000000
000000
000000
T ACSL:
177500
TACSH:
177501
TAD8L:
177502
TADBH:
177503
TAVEC:
260.2bJ
TAPRIO: 300
DRIVE:
0
DRVKEf: 0,0
DRVPNT: DRVKEV
ASKKEY: 0
CURDRV: -1 10
0
WAITKEY:
RWDFLG: RWDA
RWDA:
0
RWDB:
0
0,0
STALL:
; STORAGE FOR THE PC
;THE NUMBER OF BYTES 'READ' OR 'WRITTEN
;CRC CALCULATED FOR 'WRITE'
;CRC CALCULATED FOR 'READ'
;CRC FROM THE TA!! FOR 'READ"
; MAX. NUMBER OF ITERATIONS
OB:36
seQ 0021
PAGE 21
SEQ 0021
LOW BYTE ADDRESS OF TACS
HIGH BYTE ADDRESS OF TACS
LOW BYTE ADDRESS OF TADB
HIGH BYTE ADDRESS OF TADB
TA!1 VECTOR ADDRESS
TA11 BR LEVEL 6
NEXT DRIVE TO TEST
DRIVE SELECT KEY:
CURRENT DRIVE BEING TESTED
WAIT ON INTERRUF r KEY
REWIND FLAG POINTER
DRIVE 'A' REWIND FLAG
DRIVE • B' REWIND F~AG
STA~~ TIME
23-MAR-78
CZT AO-D MACY 11 30A( t052)
TAt 1 MOTION TEST
ERROR POINTER TABLE
23-MAR-78 08:34
CZTADD. Pl1
899
900
901
902
903
904
905
906
907
90B
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
92B
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
• SBTTL
SEQ 0022
PAGE 22
SEQ 00:12
ERROR POI NTER TABLE
•• THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
!'THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;'LOCATION $lTEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;_NOTE1:
IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC).
;-NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
...
;.
;
;
;
;; POI.NTS
;: POINTS
;; POINTS
;;POINTS
EM
CH
OT
OF
TO
TO
TO
TO
THE ERROR MESSAGE
THE DATA HEADER
THE DATA
THE DATA FORMAT
SERRTB:
;NOTE:
ALL NUMBERS WI LL BE TYPED AS 6 DIGIT OCTAL NUMSERS
001270
; ITEM
001270
001272
015540
016102
1
EM!
CHI
001274
001276
015044
000000
OTt
0
001300
001302
015566
016102
001304
001306
015044
000000
; ITEM
2
EM2
CHI
on
; IMPRO?ER FLAG SETTING
ERROR
TACS
PC
SERRPe $REGO
;TEST
;PC
;SAVPC
0
;ITEM
001310
001312
015615
016102
3
EMJ
CHI
001314
001316
015044
000000
DTI
0
001320
001322
015633
016102
EM4
DHI
001324
001326
015044
000000
DTI
0
001330
001332
015654
016102
EMS
CHI
001334
001336
015044
000000
DTI
0
001340
001342
015705
016102
; ITEM
; ITEM
; ITEM
;MISSED
;TEST
;PC
;SAVPC
TACS
$REGO
TAoe
SREGI
; INTERRUPT FAILED
ERROR
;TEST
TACS
PC
fPC
;SAVPC SERRPe SREGD
TADB
SREGI
5
6
EM6
CHI
015044
000000
001350
001352
015737
016102
EM7
DHI
001354
001356
015044
000000
OTt
001360
001362
015773
016162
10
EM10
DH2
001364
001366
015056
000000
OT2
0
001370
001372
016011
016601
DHS
001374
001376
015126
000000
0
001400
001402
016035
016323
001404
001406
015074
000000
001410
001412
016047
01646'
13
EM13
DH4
001414
001416
015112
000000
OT4
0
001420
001422
016064
016601
DHS
001424
001426
015126
000000
DTS
0
OTt
0
; ITEM
A FLAG
ERROR
PC
SERRPe
4
001344
001346
; PREMATURE READY OCCURRED
ERROR
; TEST
TACS
TAOS
;PC
PC
$REGI
;SAVPC SERRPe SREGD
;DIDN1T STOP IN A FILE GAP
ERROR
PC
;TEST
;PC
08:36
;SAVPC
TACS
TADB
PAGE 23
SEQ 0023
SEQ 0023
SERRPC
$REGO
SREGI
7
;DIDN1T STOP ON CLEAR LEADER
;TEST
;PC
; SAVPC
ERROR
PC
SERRPC
TACS
$REGO
TACB
SREGI
;BAD DATA READ
;TEST
ERROR
;PC
PC
; SAVPC SERRPe
TACS
$REGO
EX?T' 0
DATA
SGOOAT
SBODAT
0
; ITEM
;ITEM
11
EM"
DTS
; ITEM
12
EM12
DH3
OT3
RCV'O
DATA
; ITEM
14
EI>I14
ITEMS21
;CRC ERROR
;TEST
ERROR
;PC
PC
. ;SAVPC SERRPe
TACS
SREGO
WRITE
CRC
RCReo
READ
CRC
RCRel
; SHORT RECORD
;TEST
ERROR
;PC
PC
;SAVPC SERRPe
TACS
$REGO
TADB
$REGI
BYTES
LEFT
STMPO
;BAD INTERRIJPT
; TEST
ERROR
;PC
PC
; SAVPC SERRPe
TACS
$REGO
; ITEMS 201-202
001430
001432
001434
001436
Ot 6664
016736
016652
000000
EM201
OH201
DT201
0
TAU FAILED TO RESPOND
PC
TACS
SERRPC TACS
BOTH NUMBERS ARE TYPED AS OCTAL NUMSERS
001440
001442
001444
001446
016713
016753
016660
000000
EM202
DH202
OT202
NO DRives AVAILABLE
PC
SERRPe
0
BYTE
NUMBER
SYTNUM
; I LLEGA L BUFFER
;TEST
ERROR
;PC
TACS
PC
; SAVPC SERRPe $REGO
0
; ITEM
001430
TAOS
$REGI
; IMPROPER FLAG OCCURRED
ERROR
;TEST
TACS
TAOS
; PC
PC
; SAype SERRPC $REGO
$REGI
TAIl MOTION TEST
CZTAD-D MACVI! 30A( 1052)
23-MAR-7B
CZTADD.Pl1
23-MAR-18 08:34
ERROR POINTER TABLE
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
991
982
983
984
985
986
987
988
9B9
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
08:36
Tuea
CRC
RCRC2
TA1\ MOTION TEST
CZTAD-O MACY1! 30A(1052)
23-MAR-78 oa:36
CZT ADD. Pll
23-MAR-79 08: 34
START OF TEST
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
·,045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
SEQ 0024
;1 I I I I I I I I I I I I I I I II I I I I I I I I I / / I / / II/ I I 1/ I I I I I I / / I II I I I I I I I I I I 1/ II I I 1/ II
;// I I I I I I I II I I I I II I I I I I I I I I / / / / I / / I / / / / / / / / I I I / I / 1/ I I I / I / / I / / / / / / /11/ /I
; ; '" *11<
*\1)1 • •
;BEGINI
;BEGIN2
;BEGIN3
;BEGIN4
001450
001452
001460
001466
001470
001476
001500
001502
001506
001510
001514
001516
001522
005005
012737
122737
001015
022737
001011
000403
01270:'
000405
012705
000402
012705
001522
001526
001530
001534
001536
012706
005026
022706
001374
012706
001100
001542
001550
001556
001564
001572
001600
001606
001614
001622
001630
001634
001640
001646
001654
012737
012737
012737
012737
012737
012737
012737
012737
013737
005037
005037
112737
012737
0' 2737
006570
000340
007046
000340
014554
000340
014662
000340
006406
001170
001172
000001
001646
001654
001662
001666
001674
001702
001710
001716
013746
012737
012737
012737
022777
001012
000004
001722
177570
177570
177777
001720
000403
041101
000005
001240
000041
000260
001230
000001
*>/I******"'**~1\II**.****.""'*.$
IS
IS
IS
IS
BEGIN1 : CLR
MOV
CMPB
BNE
CMP
BNE
BR
BEGIN2: MOV
BR
000002
000003
001140
001100
000020
000022
000030
000032
000034
000036
000024
000026
006400
001115
0011 06
001110
000004
001140
001142
177222
FOh
FOR
FOR
FOR
001722
001726
001730
001736
001744
012716
000002
012737
012737
012637
001730
001750
001754
001756
001764
001766
005227
001030
022737
001424
104401
177777
001772
001776
002000
002006
002010
002012
002014
002022
002022
005737
001006
023727
001005
002036
000176
000174
000004
006432
000042
000042
001140
000176
000001
001134
104~05
000403
11 2737
64$:
MDV
65$:
MOV
MOV
MOV
66$:
002024
; CASSETTE DDP?
;GO BEGIN COMMON CODE IF NO
; STANDARD VECTOR?
;GO BEGIN COMMON CODE IF NO
;GET DRIVES AND ADDRESSES
;ASK FOR .DRIVES FLAG
;BEGIN COMMON CODE
;ASK FOR DRIVES AND ADDRESSES
#655, (SP)
PAGE 25
: ; SET UP FOR TRAP RETURN
#SWREG, SWR
; ; POINT TO SOFTWARE SWR
NDISPREG, 01 SPLAY
(SP)+, HDRVKEY
#5,(1#41
BGNCMN
*260,I'NTAVEC
BGNCMN
BEGIN3
H1,RS
BGNCMN
fl2,RS
BGNCMN
N3,RS
BEGIN3: MOV
8R
8EGIN4: MOV
BGNCMN:
.59TH INITIALIZE THE COMMDN TAGS
; ;CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
N$CMTAG,R6
;;FIRST LOCATION TO BE CLEARED
CLR
(R6)+
;; CLEAR MEMORY LDCATION
CMP
NSWR, R6 ;; DONE?
;; LOOP BACK IF NO
BNE
.-6
: ; SETUP THE STACK POINTER
MOV
HSTACK,SP
;; INITIALIZE A FEW VECTORS
MOV
NSSCOPE, PH I(jTVEC ;; lOT VECTOR FOR SCOPE ROUTINE
MOV
#340,1'# IOTVEC+2 ;; LEVEL 7
MOV
H$ERROR ,@NEMTVEC ;; EMT VECTOR fOR ERROR ROUTINE
MOV
#34o,I!>NEMTVEC+2 ;; LEVEL 7
MDV
#$TRAP ,@#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS
MOV
634o,@NTRAPVEC+2:LEVEL 7
MOV
H$PWRDN,@I.PWRVEC; : POWER FAI LURE VECTOR
MOV
N340.@HPWRVEC+2 ; j lEVEL 7
MOV
SENDCT ,SEOPCT
; ;SETUP END-OF-PROGRAM COUNTER
CLR
STiMES
;; INITIALIZE NUMBER OF ITERATIONS
CLR
$ESCAPE
; ;CLEAR THE ESCAPE ON ERROR ADDRESS
MOVS
Hl,SERMAX
; ;ALLOW ONE ERROR PER TEST
MOV
No ,SLPADR
;; INITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
H. ,SLPERR
; ;SETUP THE ERROR LOOP ADDRESS
; :SI2E FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
; ;EQUAL TO A '-1', SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
I'#ERRVEC,-(SP): :SAVE ERROR VECTOR
MOV
H64$,I'NERRVEC; ;SET UP ERROR VECTOR
MOV
.DSWR,SWR
; ;SETUP FOR A HARDWARE SWICH REGISTER
MOV
'DDISP,DISPLAY; ;AND A HARDWARE DISPLAY REGISTER
CMP
#-I.iI'SWR
; ; TRY TO REFERENCE HARDWARE SWR
BNE
66$
;; BRANCH I F NO TIMEOUT TRAP OCCURRED
: ;ANO THE HARDWARE SWR IS NOT B -1
:: BRANCH I F NO TIMEOUT
65$
SR
RT!
001140
001142
•• ***.**"' ••••• *••• "' •••••••••••
NORMAL START
DRIVE SELECTION
DRIVE & ADDRESS SElECTION
MANUAL OPERATION
TAl1 MOTION TEST
CZTAD-D MACY11 30A(lo52)
23-MAR-78 OB:36
CZTADD.Pl1
23-"'AR-78 08:34
INITIALIZE THE COMMON TAGS
1067
1068
1069
1070
1 071
1072
1073
1074
1075
1076
1077
'078
1 079
1080
1081
1082
1063
1084
1085
1086
1087
10B8
1089
1090
1091
SEQ 0024
PAGE 24
SR
; ;MSGID:
HERE:
HERE
.ASCII
; ;GET OVER THE ASCII
/CZTAD-D/
SEQ 0025
SEQ 0025
TAIl MOTION TEST
CZTAD-D MACY1! 30A(1052)
23-MAR-78 08:36 PAGE 26
CZTAOD.Pl1
23-MAR-780a:34
GET VALUE FOR SOFTWARE SWITCH REGISTER
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
11 05
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
112B
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
SEQ 0028
SEQ 0028
; ; $110$. "' • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • "'."' ....
; ; • • • • • • • "' . . . . . . . . . . . . . . . . . . . . . . 111 • • • "' • • • • • • • • • • • • • • • • • • • • • • • • • • • • •
;THE CONTENTS OF RS DETERMINES WHAT WILL BE DONE
RS=3
RS=2
R5-1
RS·O
MANUAL OPERATIONS
ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR)
ASK FOR DRIVE(S)
DON'T ASK FOR ANYTHING
;
002036
002040
002042
002044
002050
0020S2
002054
010504
005305
002406
004737
00530S
002402
004737
; ; ••••••••••••••••••••••••••••••••••• *••••••••••• "' •••••••••••••••
BEGINX: MOV
DEC
BLT
~SR
DEC
BLT
~SR
007422
007S32
RS,R4
RS
CHKADR
PC,.NASKDRV
RS
CHKADR
PC,.NASKADR
;COPY R5
; ASK FOR DRIVES?
;BR IF NO
;GO GET DRIVES TO BE TESTED
;ASK FOR ADDRESSES?
;BR IF NO
;GD GET TAIl ADDRESSES
; :** •••••••••••••• "' ••••••••••••••••••••••••••••••••••••••••••••••
i.i
.ot ......... '" *•• "'11' ..... '" *.* •• *•••••••• *••••• * •••••
11.." • • • • • • 111 • • • • • • • •
;CHECK THAT 'TACS' WILL RESPOND TO ADDRESSING
002060
002066
002070
002074
002076
002100
002102
00211 0
002112
002114
002116
002122
002124
002126
002132
002134
002140
012737
005000
00S777
000402
005200
022626
012737
005700
001412
104201
012705
005704
001344
013700
001741
000137
002076
TIMEOUT OCCURRED
A. TYP~ ERROR MESSAGE
B. EXAMINE R4
I. R4>O GOTO BEGINX
2. R4aO EXAMINE (42)
A. (42)-0 GOTO BEGINX
B. (42»0 GDTO SENDAD
;I1.
TIMEOUT DIDN'T OCCUR
A. CONTINUE
; :.* •• 011 • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •
000004
177124
000006
; I.
000004
000002
000042
006432
CHKADR: MOV
CLR
TST
BR
1$:
INC
CMP
25:
MOV
TST
SEQ
ERROR
MOV
TST
BNE
MOV
BEQ
3S:
~MP
*1 S ,II'#ERRVEC
RO
"TACSL
2S
RO
(SP)+, (SP)+
NERRVEC+2,.'ERRVEC
RO
3$
201
#2, RS
R4
BEGINX
.'42,RO
BEGINX
.'SENDAD
; IN CASE OF TlMEOUTS
; USE AS A SWITCH
;SEE IF TAlt RESPONDS
; BR I F NO TIMEOUT
;COME IlERE Otl TIMEOUT
;CLEANUP THE STACK
;RESTORE TIMEOUT VECTOR
;010 A TIMEOUT OCCUR?
;BR IF NO
;TAlt FAILED TO RESPOND
; DRIVES & ADDRESSES
;OPERATOR. INPUTS?
; BR I F YES
;GET MONITOR RETURN ADDRESS
; BR 1 F NO MONITOR
; GO TO END
SEQ 0027
TAI1 MOTION TEST
CZTAD-O MACY'1 30A(1052)
23-MAR-78 08:38 PAGE 27
eZTAOD. PIt
23-MAR-78 08.34
GET VALUE FOR SOFTWARE SWITCH REGISTER
1144
1145
1146
1147
114B
1149
1150
lIS.
1152
1153
1154
1155
1156
1157
115B
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
I1BO
1181
1182
1183
1184
l1B5
118S
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
SEQ 0027
; ; ••• 011."' •••••••••••••••• * ••••••••••••••••••••••••••• $ • • • • • • • • • • • •
; : ........ * •••••••••••••••••••••••••••••••••••••••••••••••••••••••
;MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED
;1.
DESIRED DRIVES CAN NOT BE TESTED
A. TYPE ERROR MESSAGE
B. EXAMINE R4
1. R4>O GOTO BEGINX
2. R4-0 EXAMINE (42)
A. (42)-0 GOTO BEGINX
B. (42»0 GOTO SENDAD
;11.
BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED
A. CLEAR BAD DRIVE FROM THE DRIVE TABLE
B. CONTI HUE I N PROGRAM
; III.
DESIRED DRIVE(S) CAN BE TESTED
A. CONTINUE IN PROGRAM
;;
002140
002144
002150
002152
002156
002160
002164
002166
002170
002172
002174
002200
002202
002204
002210
0022.4
002220
002222
002226
002230
002232
002234
002236
002242
002244
002246
002252
002254
002260
002264
002266
002272
002276
002300
002304
012700
004737
000410
116010
001412
004737
000407
00S010
000405
005200
004737
000401
105010
012700
010037
121060
001002
105060
005710
001401
000412
104202
012705
005704
001274
013700
001671
000.37
020427
001002
013704
010437
000405
104401
012737
001240
006464
000001
005464
006464
001240
001244
000001
000001
000002
000042
006432
000003
177777
001246
002024
001240
001244
......................."'........................................
CHKDRV: MeV
NDRYKEY,RO
uSR
PC,.'EXAM
SR
IS
Mova
I (AO), (RO)
BEQ
2$
uSR
PC,IPHEXAIII
BR
2$
(RO)
CLR
BR
2$
INC
RO
uS·R
PC,II"EXAIII
SR
2$
C·LRB
(RO)
MOV
NDRVKEY, RO
MOV
RO ,.'DRVPNT
CMPB
(RO).t(RO)
8NE
3$
CLRB
I(RO)
TST
(RO)
BEQ
55
BR
MANUAL
ERROR
202
55'
MOV
'2,RS
TST
R4
BNE
BEGINX
MOV
"H42,RO
BEQ
BEGINX
.IMP
II'NSENDAD
MANUAL' CMP R4,'3
BNE
OK
Mav
-I,R4
OK:
MOV
R4, II'IASKKEY
BR
START
PWRST:
TYPE
,MSGID
Mav
'DRVKEY,IPlDRVPNT
;PICKUP ADDRESS OF ASCII DRIVE KEY
;GO EXAMINE FIRST DRIVE
;OK TO TEST--GO CHECK NEXT
;REPLACE 1ST WITH 2ND
; BA IF NO 2ND DRIVE SELECTEO
;GO EXAMINE DRIVE
; OK TO TEST
;CLEAR DRIVE CODES
; POINT TO 2ND
;GO EXAMINE DRIVi!
;OK TO TEST
;CLEAR 2ND
; RESET ADORESS POINTERS
; 1ST. 2ND7
;BR IF NO
; YES---CLEAR 2ND
;ANY DRIVES?
;BR IF NO
;NO DRIVES AVAILABLE
; DRIVES & ADDRESS
;OPERATOR INPUTS?
;SR IF YES
; GET MONITOR RETURN ADDRESS
;NO MONITOR
;GO TO ENO
: PoweR FAlL RESTART
SEQ 0028
TA11 MOTION TEST
CZTAD-D MACY11 30A(1052)
23-MAR-78 08:36 PAGE 28
CZTADD. Pl1
23-MAR-7S 08:34
GET VALUE FOR SOFTWARE SWITCH REGISTER
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
002312
002320
002326
002334
002340
002344
002350
002354
002362
002366
002372
002376
002402
002406
002414
002416
002422
002424
002430
002432
002436
002440
002444
002450
002454
002460
002464
002472
002476
012777
013777
012737
013704
013705
005037
005037
012737
013701
010137
012356
001234
000340
001220
001224
001102
006614
000001
001244
001236
111137
104401
104401
032777
001021
105737
001416
005237
005201
001250
015261
001250
000200
111137
001250
001004
012701
111137
104401
104401
010137
012737
005737
001131
176710
176704
177776
001216
MOV
MoV
MoV
MoV
MOV
CLR
CLR
MoV
MoV
MOV
#BADINT .... TAVEC
@NTAPRID.t>TAVEC+2
#340,P#PS
PHACSL, TACS
@NTADBL,TAD8
t>#$TSTNM
~#lOoPKEY
",I'#$MXCNT
@HDRVPNT,Rl
Rl,DRIVE
SEQ 0028
: SETUP TA 11 TRAP VECTOR
: LOCKOUT ALL I/O INT
:SETUP TACS
:SETUP TADB
:ZERO THE TEST NUMBER
: CLEAR THE LOOP UNCER TTY CONTROL KEY
:SET FOR ONE ITERATION PER TEST
:GET DRIVE POINTER
:SET DRIVE TO POINTER
:// / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / // / / / / / / I / / / / / / / / / / / / / / / / / / / / / //1/ / /
176524
001241
001216
001240
0~1250
015302
001250
001244
002664
001100
START:
001106
;TVPE THE DRIVE(S) THAT WILL BE TESTED
MoVB
(Rll,i'HCURDRV
TYPE
,MTSTDRV
TYPE
~ CURDRV
BIT
#SW07,t>SWR
BNE
2$
TSTB
Il'#DRVKEY+l
BEQ
2$
INC
@#$MXCNT
INC
Rl
MOVB
(Rl ),II,CURDRV
BNE
1$
MoV
HDRVKEY.Rl
MOVB
(R1) ,t>NCURDRV
TYPE
,MANORV
TYPE
,CURDRV
MoV
Rl,liIHDRVPNT
MoV
N5$,@#$LPAOR
TST
IIIH$PASS
BNE
TSTI
:GET CURRENT DRIVE FOR TYPE~UT
:TYPE 'TESTING DRIVE'
: TYPE THE CURRENT DRIVE
: LOCK ON ONE DRIVE?
:BR IF YES
: TWO DRIVES AVAI LABlE?
; BR IF NO
: SET FOR TWO ITERATIONS PER TEST (ONE PER DRIVEl
: INCREMENT THE POINTER
; SET SECOND DRIVE FOR TYPE~UT
;GO TYPE IT
: RESET POINTER
:NOW GET THE SECOND DRIVE
;TYPE 'AND DRIVE'
: TYPE ORIVE
;SAVE POINTER FOR NEXT TRIP THRU
: SETUP THE SCOPE LOOP ADDRESS
:oNCE ONLY
/ / / / / / / / / / / / / / / / / / I / / / / / / / / / / / / / / / / / / / / / / / I / / / / / / / / / 1.1 / / / / / / / / / / / I // I /
002500
002502
002510
002514
002522
002526
002530
002532
002540
002544
002550
002554
002556
002560
002566
002572
002576
002602
002604
002606
002614
104422
012737
005077
012737
112714
002702
176542
077777
000016
001172
012010
012012
012012
012012
012012
002616
000101
177776
000001
176442
000340
177776
012012
104421
104412
163737
005237
006137
006137
005000
005001
012777
112714
005037
162700
005601
001374
012737
000432
ON THE FIRST PASS OF THE PROGRAM DETERMINE THE AMOUNT OF TIME TO
WAIT ON A FLAG ('READY'/"TRANSFER REQUEST') AND THE STALL TIME TO USE
WHEN STALLING AFTER A FUNCTION IS COMPLETED
SELDRV
:SELECT DRIVE
MoV
HFATAL,@#$ESCAPE
:SETUP ESCAPE ON ERROR
CLR
@RWDFLG
: SET FOR NO REWIND ERRORS
MoV
.-CBIT 15 ,IIIHMAXCNT
: SETUP IMPoSS I BLE COUNT
MDVB
HXRIIIND,IITACS
: IN~URE NO ERROR DUE TO 'CLEAR LEADER'
REWIND
:Go TO BOT
WFG
;NoW TIME A WFG
SUB
IINHICNT, t>NMAXCNT
: GET THE TIME IT TOOK TO WFG
INC
t>#MAXCNT
:MAKE IT BIGGER
RD L
I'#MAXCNT
Ro L
I'NMAXCNT
CLR
RO
CLR
Rl
MOV
#4$ ,CIT AVEC
:SETUP TAil VECTOR
MoVS
NXWFGIINT .ENIGo,t>TACS
i START A "WFG'
CLR
Iil#PS
; ALLOW INTERRUPTS
35:
SUB
#l,RO
: START TIMING HOW LONG
sac
Rl
IT TAKES TO WRITE A FI lE GAP
BNE
3$
MOV
N340,IilNPS
: LOCK OUT INTERRUPTS
BR
FATAL
; IT TOOK TO LONG
SEQ 0029
TAll MOTION TEST
CZTAD-D MACV11 30A( 1052)
23-MAR-78 OB:36 PAGE 29
eZTADO.p"
23-MAR-7a OB:34
GET VALUE FOR SOFTWARE SWITCH REGISTER
1256
1257
, 258
1259
1260
1261
1262
1263
1264
1265
1266
1267
126B
1269
1270
1271
1272
1273
1274
, 275
1276
1277
1278
1279
12BO
1281
1282
1283
1284
002616
002620
002622
002626
002632
002640
002644
002646
002650
002654
002660
002662
002664
002670
002672
002674
002700
006201
006000
010037 001264
010137 001266
012777 012356
105737 001241
001407
104422
005077 176402
112714000016
104421
104412
005737 001246
002034
005000
006137 012012
000000
002702
002102
002706
104401
000414
002740
002740
002744
002750
002752
002756
002760
4$:
176370
55:
ASR
RoR
MOV
MOV
MoV
ISTB
BEQ
SELDRV
CLR
Mova
REWIND
WFG
TST
BGE
CLR
ROL
HALT
Rl
RO
RO,ClHSTALl
Rl,t>HSTALL+2
#BADINT",@TAVEC
@#DRVKEY+l
5$
f'RWDFLG
# XRWND, 11'1 ACS
IIHASKKEY
1ST 1
RO
@NMAXCNT
SEQ 0029
:DIVIDE THE TIME BY 2
:AND SAVE IT AS THE STALL TIME
: SET TRAP CATCHER
: TWO DRIVES?
: BR I F NO
: SELECT THE OTHER DRIVE
: SET REWINO FLAG
: AVolO "CLEAR LEADER' ERROR
:Go TO BOT
:Go TO OXIDE
:GO START TESTING IF NO MANUAL
OPERA TroNS REQUESTED
: INCREASE THE WAIT TIME
;GIVE CONTROL TO THE OPERATOR
FATAL:
002710
; :65$:
64$:
104401
013700
001402
000137
000000
000776
001250
000042
006432
1$:
TYPE
BR
.ASCIZ
,65$
; :TYPE ASCIZ STRING
64$
; :GET OVER THE ASCII
<12>*FATAL ERROR ON DRIVE'
TYPE
MoV
SEQ
JMP
HALT
BR
,CURDRV
IilH42.RO
1$
1l1#SENDAD
1$
CURRENT ORIVE
CHECK FOR A MONITOR
BR I F NONE
LEAVE
ERROR OCCURRED BEFORE TESTING STARTED
HANGUP
SEQ 0030
TAIl MOTION TEST
CZTAD-D MACY11 30A(1052)
23-MAR-78
08:36
PAGE 30
CZTAOD.Pl1
23-MAR-78 08:34
Tl
REWIND,WRiTE,REWIND,REAO
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
000004
012737
104422
104421
104413
104421
104414
104423
016756
017012
T5Tl:
003016
1321
1322
1323
000004
012737
104422
104421
104413
104416
104414
104423
016756
017012
016756
* '" **
i : II< >I< *' '"
; .TEST 2
TST2:
003052
1334
1335
1336
1337
1338
1339
1340
>I< >/< I\<
011 .. ",. '" >I< $" '"
$
003104
$,q>! >I<
003120
003122
003126
003130
003134
003136
003140
003142
003144
003150
003152
000004
012737
104422
104421
104413
104421
104414
>I<
>I<
>I<
0\<
>I<
NTST3,$ESCAPE; ;ESCAPE TO TEST 3 ON ERROR
: SELECT DRIVE FOR TESTING
;GO TQ
,WLNKI
It
SOT II
;WRITE ONE BLOCK
: BACK OVER THE BLOCK
:NOW READ
: COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
,RlNKl
jjI:$
>(0: '"
18< >I< >I< '" >I<
01< 01<
TST3:
003106
SCOPE
MOV
SELORV
REWIND
WRITE
BSFG
READ
BLKCMP
RLNK 1
WLNKI
001172
011012
016756
nST4,$ESCAPE; ;ESCAPE TO TEST 4 ON ERROR
; SELECT DRIVE FJol TESTING
;GO TO "BOT" .
,WLNKI
;WRITE ONE BLOCK
; BACK OVER THE BLOCK
,RLNKl
;NOW READ
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
*'
003156
001172
017012
016756
t 04423
016756
017012
104416
104414
104423
016756
>I<
~ ; *' **
* '" 4: >I< '" *$ >I< TEST
*' '" >I< BSFG
** '$""" *** '" '" '" »: '* **41 ** *** '" '" *' >I< * '" '" ** ** ** *' *** **.'"
; 'TEST 3
AFTER WRITE AND READ AFTER BSFG
; ; * 1\< '" *' * *' "':I< '" ** $* $* *' '" * *** >/1$*** '*' »: **>/< ** '" '" >1<" ** * >I< >1<"" *'"
It '" *' $ ",>\I oS! $*
016756
*' '" '" '"
** *' * * ** "'* * *
"'**
**
** *'" **
*
**
; ; >I< * '" *11/2 *" >1<'" '" '" '" ** ** >I< ** $
>II $$
II/<
**
>I< II< >I< **
**$ ** >1<"'*$ **
: -TEST 4
TEST 6SBG AFTER READ
; ; »< * '" '41"" 4"
>I< >I< '"
** ** $" $I ...
oj! >1<011 $: >II * *$ *>1<
* *>l<>I< >I< '*
oj!: $ >I< III '"
111011
T514'
SCOPE
; ; ESCAPE TO TEST 5 ON ERROR
HTST5, SESCAPE
MOV
;SELECT DRIVE FOR TESTING
SELDRV
;GO TO uBOT M
REWIND
; WRITE ONE BLOCK
,WLNK1
WRITE
;GO TO "BOT'
REWIND
; READ
READ
,RLNK1
;COMPARE THE READ AND WRITE Bl:fFERS
BLKCMP
jlINK TO THE READ BUFfER
RLNKI
; LINK TO THE WRITE BUFFER
WLNKI
: BACK UP
BS6G
;READ
,RLNK1
READ
; COMPARE THE READ AND WRITE BUFFERS
BLKCMP
: LINK TO THE READ BUFFER
RLNKl
**
003106
003110
003116
>I<
>I<
>10
REWIND
016756
$l
;WRITE ON TAPE
;GO TO BEGINNING OF TAPE
; READ
: COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE REAC BUFFER
; LINK TO THE WRITE BUFFER
,RLNKl
WRITE
BSBG
READ
BLKCMP
RLNKI
WLNKI
017012
14<
: GO TO "CLEAR LEADERII
SCOPE
MOV
SELDRV
001172
$
>I< '"
,WLNKI
>I< >I< <$<
000004
012737
104422
1044.21
104413
104415
104414
104423
016756
017012
O}I: '" $
; ; ESCAPE TO TEST :1 ON ERROR
;SElECT DRIVE FOR TESTING
** It: **** '* 0/< 'I< »< * *'" ** '" '" * "'* >«: ** *" *' '" * ** * *' ** * '" * '" '* '* '" >I< *** '1<.
TEST BSBG AFTER WRITE AND READ AFTER SSSG
**'" *$* $$ >it * 16: ** '** '" $ *' >ir ** ** * * **:1<,.. '" ** *'" ** ** >lI * •• **
>I< '"
003052
003054
003062
003064
003066
003072
003074
003100
003102
>I< '"
REWIND
; ; '* '" 1< *'
0030' 6
003020
003026
003030
003032
003036
003040
003044
003046
003050
I\<
$
NT5T2, $ESCAPE
WRITE
REWIND
READ
BLKCMP
RLNKI
WLNKI
017012
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
SCOPE
MaV
SELDRV
001172
1311
1319
1320
'1<>\1
>/< $" '" >I< 01< $ >I<
002762
002764
002772
002774
002776
003002
003004
003010
003012
0030,4
1312
1313
1314
1315
1316
1317
1318
SEQ 0030
**** >to*>/!'" .**** * "'* ****"'****>1< '* *$***.*** **** *~*"'$* •• 21<*.*.011
REWIND,WRITE,REWIND,READ
; ; *'" '" '* '" '* * « ** '* * '" '" * *"$ *!{< *' **$ '" ** III
; : ~*$** >\I '"
;.TE5T 1
*'" * **
*** *'
*** **
SEQ
TAlI MOTION TEST
CZTAD-O MACY11 30A(1052)
23-MAR-7B 06:36
PAGE 31
ClTADD.P11
~~-MAR"'7A 08:34
T4
TEST BS6G AFTER READ
1341
1342
003154
; ; II: "it
* II: *,"$ *' * Ill< *' *' '" * '*
1343
;oTEST 5
1344
1345
1346
1347
003156
003160
003166
i : '"
TST5:
1348
003170
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
003172
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
• 378
003176
003200
003204
003206
016756
017012
003212
003214
003220
003222
003224
104414
104423
016756
017012
017012
016756
104415
016756
****
SCOPE
MOV
SELDRV
REWIND
WRI:rE
REWIND
READ
BLKCMP
RLNKI
WLNKI
BSFG
READ
BLKCMP
RLNKI
WLNKl
003226
003230
003236
003240
003242
003246
003250
003252
003254
003260
003262
003264
000004
012737
T5T6:
003266
~
017012
003300
003302
003306
003310
003314
0033~6
003320
003322
003326
003330
003334
003336
003340
**
** *' '* "'It: * *'* *' *' '" ** »:
** * **' '" * '" >It '" '" * '" *'" *' II! II< '" * ***111'** **
WLNK 1
II< >II '" '"
>I< II<
>It $"
>I<
>I<
181
>I<
$" >to
l1/li
: ; ESCAPE TO TEST 6 ON ERROR
;SELECT DRIVE FOR TESTING
;GO TO "BOT"
;WRITE A BLOCK
; READ A BLOCK
; COMPARE THE REAJ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
: BACK OVER THE DATA
; NOW READ THE OAT A
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
:L1NK TO THE WRITE BUFFER
,RlNK'
$ '" '" '"
016756
017012
$$
,WLNKI
TST7:
003342
$
SCOPE
MOV
SELDRV
001172
,RLNK1
*'" *'" ** TEST
*** *
'*
; ; '" '* >I: "' ... '" *'* '" **
$. 11<
lilt
$$$*
*11<
WRITE
BSBG
READ
BLKCMf
RLNKI
WLNKI
WRITE
BSBG
READ
BLKCMP
RLNK2
WLNK2
016756
0170.6
016762
; j '" il'~
>I<
>l< '"
$$$:$iIl
:: ESCAPE TO TEST 7 ON ERROR
; SELECT DRIVE FOR TESTING
;GO TO "BOT"
;WRITE ONE BLOCK OF DATA
;GO TO "BOT"
:SPACE OVER THE DATA
;BACK aVER THE DATA
;READ THE BLOCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
*' * ** ** *' >It * *-* * ** ** II< ** ¥ '" '" *" *", ** ** * ** ** *' rI<*>Ic **
*'* ** * ** ** $: * $:$*>\! *'!!:* "" -.;. * >'(* * '" ** "'*
*,t"I' **11< **
>I<
WRlTE AFTER READ
$~
>I<
>I<
0/<
>}< 01< II< '"
>10
nST10,$ESCAPE: ;ESCAPE TO TEST 10 ON ERROR
;SELECT DRIve FOR TESTING
~GO
REWINO
0.7012
>I< >I< >I< 1(0
>I< ""
**!ljI$
nST7, $ESCAPE
BSFG
READ
BLKCMP
RLNKl
WLNKl
016756
>I<
1381
1382
$.<$< '" '"
SFBG
104423
000004
012737
104422
104421
104413
104416
104414
104423
016756
017012
104413
104416
104414
104423
016762
017016
>I:
;GO TO "BOT/Ii
SCOPE
MOV
SELDRV
REWIND
WRITE
REWIND
001172
i ; '" ** 1(0 '" '" >I<
003270
*. '" *'" ***
,RLNKI
$
>I< ""
;_TEST 7
003266
$ >I< !I'
;; .TEST
; '* '" ** w6* '" ** "''''** rEST III< SFBG
'" '" *' $" *" ** *'" *' * **** *** '"
>I< '"
** * '" * ** '" <+ *.***
AFTER REI/lIND AND BSFG AFTER SFBG
; ; 181 '" *
'* *' '" >/<:to ** >:<
'* '" "'* **'" >lit '" * '" '*' oil '" '*'>\! '" '" "'* '* >I< * *' * ** $* *:It ** *'
104422
104421
104413
j 04421
104420
104415
104414
**
$" '" >I< 180* '" * '" '" ** '" 18=
'*' '" 21< $" **
TEST BSFG AFTER READ
NTST6, SESCAPE
>/<
003276
1390
1391
1392
1393
1394
001172
to
13BO
'389
003226
>I< '" '" >I:
>I<
104423
003210
1379
1383
'384
1385
1386
1387
t 3BB
000004
012737
104422
104421
104413
104421
104414
'* '" **
SEQ 0031
; LINK TO THE WRITE BUFFER
WLNK1
017012
,WLNK1
TO ItCLEAR LEADER'"
;WRiTE ONE BLOCK
; BACK OVER THE DA T A SLOCK
, A N D READ IT
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
;WRITE A SECOND BLOCK
; BACK OVER IT
; AND READ IT
:CDMPARE THE READ AND WRITE BUFFERS
; LINK TO THE REA~ BUFFER
: LINK TO THE WRITE BUFFER
,RLNK1
,WlNK2
,RLNK2
** . . 1tI **$~'Ill*""cjI"'$~$ "'$~*$$$>I<$**
$$*** 1!'$****
* 011**.$$ $*
TEST WRITE AFTER WRITE AND READ. AFTER READ
* '" *** * $**
* $I.
* >!II **$$ * ** I$!" ,*;01' $1/1: ** * 4= $11/0 191 11<*$ $$
$ ¢ $ .... $"*'"
>I<
1395
;-TEST 10
1396
; ; >I< '" 11<
$
$,*
,*$IIiI$
$ $$ $1$11< 1(/1$
$
OO~l
$$
$ $ $ $'11
I$:
1$ '"
CZTADO.P11
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
142,
'422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1431
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
23-MAR-78 OB:34
003342
003344
003352
003354
003356
003362
003366
003370
003374
003400
003402
00340.
000004
012737
104422
104421
104413
104413
104421
10441.
104414
104423
016762
017016
003406
003410
003416
003420
003422
003426
003432
003434
003436
003442
003444
003446
000004
012737
104422
104421
104413
003450
003452
003460
003462
003464
003470
003474
003476
003500
003504
003506
003510
000004
012737
104422
104421
104413
104413
'04421
104420
104414
, 04423
016762
017016
003406
TlO
TEST WRITE AFTER WRITE AND READ AFTER READ
TST10:
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
REWIND
READ
READ
BLKCMP
RLNK2
WLNK2
001172
017012
017016
016756
016762
HTST11 ,SESCAPE
,WLNKI
,WlNK2
; ; ESCAPE TO TEST 11 ON ERROR
;SELECT DRIVE FOR TESTING
;Go TO "CLEAR LEADER'
;WRITE TWo(2) BLOCKS
;GO TO BOT
; READ BOTH BLOCKS
,RLNKI
• RLNK2
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
; ; .. '" $10'*************"'******,********"'*****"' •• "'******"'."'****** .. IiI.* **
TEST BSBG AFTER BS8G
; *TE5T 11
;TST11
;. '" **: '" ** * '" *** $* ** *** '" *** 4<* **O$I!fI. "''''* >i!*" *' ** **;« >$I*' **** **:$ $ **$***
*. '"
>I> '"
104413
'04416
1044'6
104414
'04423
0' 6756
017012
SEQ 0032
003450
SCOPE
MOV
SELDRV
REWIND
WR!TE
WRITE
BSBG
BSBG
READ
BLKCMP
RLNKI
WLNKI
001172
017012
017016
0,6756
NTST12,SESCAPE
,WLNKI
,WLNK2
; ; ESCAPE TO TEST 12 ON ERROR
; SELECT DRIVE FOR TESTING
;GO TO "CLEAR LEADER'
:WRITE TWO(2) BLOCKS
: BACK OVER THE 2ND BLOCK
: BACK OVER THE ,ST BLOCK
: READ THE 1 ST BLOCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
,RLNKI
; ; >I< ***". * * * *' ** $*$ "'' '>It ** *** ***.., ***** ** iii ** *** ** II< * * iii * >I< ** *** '" ** *.. ** '" ***
TEST READ AFTER SFBG
;*TEST 12
; ; * ** ** SCOPE
* *' '" >II **$"$*"11* ** *"'** . . *' "'*** *111 **$* *"'''' '*** **** ** "'* **.'" ** *** **
$:
$: '"
TST'2:
003512
MOV
SELDRV
REWIND
WRITE
WRITE
REWIND
SFBG
READ
BLKCMP
RLNK2
WLNK2
001172
017012
017016
016762
NTST13,SESCAPE
,WLNKl
,WlNK2
; ;ESCAPE TO TEST 13 ON ERROR
; SELECT DRIVE 'FOR TESTING
; GO TO 'CLEAR LEADER'
;WRITE TWO(2) BLOCKS
;BOT
; SPACE OVER THE 15T BLOCK
: REAC THE 2ND BLOCK
;COMPARE THE READ AND ·WRITE BUFFERS
: LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
, RlNK2
i ; ***$*********"'***$********$*****************$¥-*** **$***
TEST SFBG AFTER BSBG
;*TEST 13
; ; Ii: '"
003512
003514
003522
003524
003526
003532
003536
003540
003542
003544
003550
000004
012737
104422
104421
104413
104413
104416
104416
104420
1044,4
104423
T5T13:
003556
**"'** •• '"
!II"'* '" >Ie * '" ** **"'* ** ** ",lit. '" II< '" *"'* $ . $ '" >I< "" "'*'" ** ****** '" $ ""* **** **' "'* ** ****
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
8SBG
BSBG
SFBG
READ
BLKCMP
001172
017012
017016
016762
NTST14, $ESCAPE
,WLNK1
;: ESCAPE TO TEST 14 ON ERROR
;SELECT ORIVE FOR TESTING
;GO TO "CLEAR LEADER"
;WRITE TWO(2) BLOCKS
,WlNK2
; BACK SPACE
OVE~
BOTH BLOCKS
; SPACE FWD OVER 1 ST BLOCK
: READ 2ND BLOCK
;COMPARE THE READ AND WRITE BUFFERS
, RLNK2
seq
23-MAR-78 08:36 PAGE 33
CZTAD-D MACV11 30A( 1052)
TAll MOTION TEST
TEST 5FBG AFTER BS8G
Tt3
23-MAR-78 08:34
CZTADD.Pl1
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
,472
1473
1474
1475
'476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
'1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
'504
1505
1506
1507
1 SOB
003552
003554
016762
017016
003556
003560
003566
003570
003572
003576
003602
003604
003606
003612
003614
0036'6
000004
012737
104422
104421
104413
104413
104415
104420
104414
104423
016762
017016
003620
003622
003630
003632
003634
003640
003644
003646
003650
003654
003656
003660
003662
003666
003670
003672
003674
003676
003702
00370.
003710
003712
003714
0037 I 6
0037:20
003724
003726
003732
003734
003736
003740
003742
003746
003750
003754
003756
000004
012737
1.04422
104421
104413
104413
104416
104416
104414
1 0~423
016756
017012
104414
104423
016762
017016
104416
104413
104416
104414
104423
0' 6766
017·022
104416
104413
104416
104414
104423
016772
0 1 7026
104416
104413
104416
104414
104423
016762
0033
: LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
RLNK2
WLNK2
; ; '" *"'***"'* *********,,*****"'*********>1<**>11************** ",*********$$
TEST SFBG AFTER BSFG
;*TEST 14
; :,.. ** '" '" '*' '" * * ~'" >1<** *** It ** >I< Ii! ** '" >I< **
>I<
TST14:
003620
001172
017012
017016
016762
>I<
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
BSFG
SFBG
READ
BLKCMP
RLNK2
WLNK2
>I< >I<
$.
NTST15,SESCAPE
,WLNK1
$ '"
>I< '"
1(1
; ; ESCAPE TO TEST 15 ON ERROR
; SELECT DRIVE FOR TESTING
:GO TO "CLEAR LEADER"
: VIR ITE TWO BLOCKS
.WLNK2
; SPACE REV FI LE
: SPACE FWD BLOCK
; READ THE 2ND 8LOCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
, RLNK2
; ; *' .. ** >11":$ ** '* '* >II'" "'*REWRITE
*'* "'* **$ THE
'* ** Ii< to"'
.. ** "'>II '" *** ** '" "'*'" '" **'" ** ** ** ** ** *"'** **
LAST BLOCK 3 TIMES AFTER DOING II WRITE
AFTER WRITE
:*TEST 15
; ; >I< '"
>11" >I< '" **$ ""II' ** ** *** '" *** ****
*** >I< *** "''''''''''
**** * >It >II • • •
SCOPE
: ; ESCAPE TO TEST 16 ON ERROR
nST16, SESCAPE
MOV
:SELECT DRIVE FOR TESTING
SELDRV
: GO TO II C LEAR LEADER II
REWIND
;WRITE 2 BLOCKS
,WLNK1
WRITE
,WLNK2
WRITE
: BACK OVER BOTH OF THEM
8SBG
BSBG
READ THE FIRST ONE
,RLNK1
READ
COMPARE THE READ AND WRITE BUFFERS
BLKCMp·
LINK TO THE ~EAD BUFFER
RLNKI
LINK TO THE WR! rE BUFFER
WLNKI
NOW
READ THE 2ND ONE
READ
.RLNK:2
COMPARE THE READ AND WRITE BUFFERS
BLKCMP
LINK
TO THE READ BUFFER
RLNK2
LINK TO THE WRITE BUFFER
WLNK2
BACK
OVER
THE 2ND ONE
BS8G
WRITE OVER THE 2ND BLOCK
, WlNK3
WRITE
NOW
BACK
UP
AND
BSBG
READ IT
REAO
• RLNKJ
COMPARE THE READ AND WRITE BUFFERS
BLKCMP
LINK TO THE READ BUFFER
RLNK3
LINK TO THE WRITE BUFFER
WLNK3
BACK OVER IT AGAIN
BSBG
AND WRITE OVER IT AGAIN
WRITE
,WlNK4
BACK UP AND
BSBG
READ THE 8l0CK
,RI..NK4
READ
COMPARE
THE READ AND WRITE SUFFERS
BlKCMP
LINK TO THE READ BUFFER
RlNK4
LINK
TO
THE WRITE BUFFER
WLNK4
BACK OVER THE BLOCK AGAIN
BSBG
AND
WRITE
OVER IT AGAIN
,WLNK2
WRITE
NOW BACK UP
BSBG
AND
READ
IT
,
RLNK2
READ
COMPARE THE READ AND WRITE BUFFERS
BLKCMP
LINK TO THE READ BUFFER
RLNK2
**'"
TST1S:
004012
017012
017016
016756
016762
017022
016766
017026
016772
017016
016762
001172
*
"'*
'* '"
**
"'*"'*
**
seq
0033
TAll MOTION
CZTADD.Pl1
1509
1510
003760
003762
, 511
1512
1513
1514
003766
003772
003774
1515
003776
t 516
004000
1517
004004
004006
004010
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
'540
'541
1542
1543
1544
1545
1546
1547
1548
1549
1550
, 551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
23-MAR-7B OB:36 PAGE 34
CZTAD-D MACY11 30A( 1052)
REWRITE THE LAST BLOCK 3 TIMES AFTER DOHJG A WRITE AFTER WRITE
T15
23-f.'t ~R-78 08:34
TEST
003764
017016
104416
104416
104414
eseG
104423
016756
017012
RLNK 1
WLNK1
104414
104423
016755
*'"
:AND READ THE 1ST ONE
: COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
: AND THE 2ND ONE
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
,ALNK1
READ
BLKCMP
RLNK2
WLNK2
; ; *" !lIr**,* >I< $*
: _TEST 16
016762
016762
017016
I
RLNK2
*******"'**
** ***"'$******"'** ******** ** ***$ . '" **** **.'"
REWRITE THE LAST BLOCK 3 TIMES AFTER DOING A WRITE
'4< *'
** ** *'
>I< *' * **
* **.
>(1:$$
; ; '" *' *" *" >/: * '" * '" '" Ii< * II< '*' ** '*' '" It: * '" ** *
$<
004012
004014
004022
004024
004026
004032
004034
004040
004042
004044
004046
004052
004054
004060
004062
004064
004066
004070
004074
004076
004102
004104
004106
004110
004112
004116
004120
004124
004126
004130
004132
004134
004140
004142
004144
004150
004152
0041 S4
004156
004162
004164
004166
000004
012737
104422
104421
104413
104416
104414
104423
016756
017012
104413
104416
104414
, 04423
016762
017016
104416
>I<
SCOPE
MOV
SElDRV
REWIND
WRITE
B5BG
READ
BLKCMP
RLNKI
WLNKI
WRITE
BSBG
READ
BLKCMP
RLNK2
WLNK2
BSBG
WRITE
BSBG
READ
BlKCMP
RLNK4
WLNK4
BSBG
WRITE
8SBG
READ
BLKCMP
RLNK5
WLNK5
BSBG
WRITE
BSBG
BSBG
READ
BlKCMP
RLNKl
WLNKI
READ
BLKCMP
RlNK3
WlNK3
TST16:
004170
001172
017012
016756
017016
o lIi762
, 04413
t 04416
017026
~O4414
016772
104423
o t 6772
017026
104416
104413
017032
104416
104414
016776
104423
016776
017032
104416
t 04413
104416
104416
104414
104423
016756
017012
104414
104423
016766
017022
017022
016756
016766
>10 OJ!
nSTl 7, SESCAPE
,WLNKl
,RLNKI
,WlNK2
,RLHK2
,WLNK4
10< >I<
>IE II< >I< >II<
18< O!'" $: I$< '" >4<
>I<
>I< '"
i j ESCAPE TO TEST 17 ON ERROR
;SELECT DRIVE FOR TESTING
iGO TO "CLEAR lEADER If
;WRlTE A BLOCK OF DATA
; BACK OVER IT
: AND READ IT
: COMPARE THE REAO AND WRITE BUFFERS
; LINK TO THE READ BUFFER
: LI NK TO THE WR ITE BUFF,:R
: WRITE 2ND BLOCK
: BACK OVER IT
:AND READ IT
; COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
; BACK OVER IT AND
; WRITE OVER 2ND BLOCK
; BACK UP AND
;READ IT
:COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
; BACK OVER IT AGAIN
: REWR ITE 2ND BLOCK
, RLNK4
, WLNK5
, RLNK5
: READ 2ND BLOCK
:COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
;BACK OVER IT AGAIN
: WR IT E ANOTHER BLOCK OVER IT
: BACK OVER 2 BLOCKS
,WLNK3
; READ THE 1ST BLOCK
: COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
; READ 2ND BLOCK
;COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
;UNK TO THE WRITE SUFFER
,RLNKl
, RLNK3
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
t 587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
004170
004172
004200
004202
004204
004210
004212
004214
004220
004222
004224
000004
012737
104422
104421
, 04413
001172
011012
016756
104423
1$:
004230
004236
004240
000004
012737
104422
1044;21
004242
104413
004246
004250
104412
104416
004252
~O4414
004256
004260
004262
016756
017012
004264
004266
004276
104413
104421
, 04414
104423
016756
017012
, 04412
004316
1611
004320
004322
004326
004330
004334
004336
1612
004340
TST20:
001172
017012
016756
104423
000004
012737
104422
104421
004274
104413
'04416
104414
104423
016762
017016
tRLNK1
001172
017012
016756
017016
016762
; : >/>
>I<
"'* .. * '" '* *'" * *
>/I >It
>I<
>It >I< >I<
017012
** **
$$
** '" "" '" * ",oil ** ** ** *' '" ** ** ** **
**'" II< '" * '" >I< ** *** ** >I< *" ** ** #*
>I< >I<
>$ '"
>I<
* $1/<"'$
>el >I<
o\!
$
** *
** '"
*
T5T22 :
001172
>/I 11< $:
01<
; ; ESCAPE TO TEST 21 ON ERROR
;SELECT DRIVE FOR TESTING
:GO TO BOT
,WLNKI
:WRITE ONE BLOCK OF DATA
WFG
:WRITE A FILE GAP
BSSG
: BACK OVER THE DATA
READ
,RLNKl
: READ ONE BLOCK
BLKCMP
:COMPARE THE READ AND WRITE BUFFERS
RLNK1
; LINK TO THE READ BUFFER
WLNKl
; LINK TO THE WRITE BUFFER
; ; "II< **!;jt'"
>I< 1/l:l,1 *$""* !II '*' **
>II ~* >l< .... II: >II ~ $ >Is >I' $ $. >/I >I<
$ * $ *;:1: >',< 0/<
$ '" '$
$$*$
; ",TEST .21
. TEST WRITE AFTER WFG
i ; >I< 1/< I\! $ '/! '* >1< ... * *':{o "" $: II!: >\I $$ *$ >1<..,,:/1
>I<
1\1'" !II $
*' *' '" >/I >II "" >1< ....
$. '" $: 1/1 ....
*$
TST21 :
SCOPE
MOV
HST22, SESCAPE
; ; ESCAPE TO TEST 22 ON ERROR
SElDRV
: SELECT DRIVE FOR TESTING
REWIND
;GO TO BOT
WRITE
~\lILNK1
;WRITE ONE BOCK
REWIND
:GO TO BOT
READ
,RLNKI
: READ ONE BLOCK
BLKCMP
: COMFARE THE READ AND WRITE BUFFERS
RLNKl
: I.iNK TO THE READ BUFFER
WLNKI
; LINK TO THE WRITE BUFFER
WFG
:WRITE A FILE GAP
WRITE
,WlNK2
: WR I TE ANOTHER BLOCK
BSSG
: BACK OVER THE LAST BLOCK
READ
,RLNK2
: READ THE SECOND BLOCK
BLKCMP
: COMPARE THE READ AND WRITE BUFFERS
RLNK2
: LINK TO THE READ BUFFER
WLNK2
; LINK TO THE WRITE BUFFER
; : * '"
004420
11< '"
HTST21,SESCAPE
"'* . .
004342
** "'Ill< '"
iGO TO "BOT"
SCOPE
MOV
SELDRV
REWIND
WRITE
*
"'* ** * ** '*
** **
* ** '"
***
**
'* . . ** **
******$$$"'"40$*,*$**"40 **$$*1/<1\1$ "'**01< Ill>\! *'" ** ~>I<+~ *$ .'4I"'>lI~!I/l: *$$>11 ..... $*
: 'TEST 22
000004
012737
104422
104421
104413
11< 'I< >I< I$: '" I$< >I<
:WRITE ONE BLOCK
; FOLLOWED BY A FI LE GAP
: BACK OVER THE DATA BLOCK
,READ THE DATA
,COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
TEST Bsaa AFTER WFG
'*
1613
1614
004342
004344
004352
00435'
004356
>#<
; ; "" * 1< * ~,.. *' * '" >Ie >/I ** *oj!! *$: '" '" >/I '" '$ * >$ 1/1 >l<>l!!II '" >iI * * '" ***11< $
004264
"'*"'********$$
; : ESCAPE TO TEST 20 ON ERROR
:SElECT DRIVE FOR TESTING
,WlNK1
II<
004226
$ '"
NTST20,$ESCAPE
; : * '* '" * I!r *' '" '" * 16< **' '" O/i * * *'
004304
1615
1616
1617
1618
1619
1620
** '" * "'*. *' '*' ** ***'" >I< '" ** "'' 'iii: '* *' >I<
;III<
TEST \>IFG AFTER WRITE AND BSFG AFTER wFG
>t< >/I
SCOPE
MOV
SHDRV
REWIND
WRITE
WFG
BSFG
READ
BLKCMP
RLNKI
WLNKI
104415
104414
1602
1603
1605
1606
1607
1608
17
; : "'"* *' '" '" *' *',.,. l!<
TST17:
10441 :2
1601
1604
SEQ 0035
*** "'** ***""******* ***********111*1\< ******* 'i'** ***'" **
; ",TEST
j : '" 1\1
AFTER READ
ojG
T A'11 MOT ION TEST
23-MAR-78
CZTAO-D MACV11 30A( 1052)
08:36 PAGE 35
ClTADD.Pl1
23-MAR-78 OB:34
T17
TEST WFG AFTER WRITE AND BSFG AFTER \>iFG
1565
1566
1567
SEa 0034
: LINK TO THE WRITE BUFFER
: BACK OVER BOTH BLOCKS
WLNK2
BSBG
READ
BLKCMP
SEQ 0034
»I'" *
$ "" >II
**
SCOPE
MOV
SELDRV
REWIND
WRITE
TEST WFG AFTER READ AND BSFG AFTER wRITE
II/< .... **!;!>>l< II< $$ '"
'*!;< $
>ill
>I:c
HTST23, $ESCAPE
,WLNK1
'* "'$ >\I *
>'I:
!;!>$$ '" '"
'* '" '* '*
>I<
0) >I< '"
*'" * '" "'. *
>I<
$'
$ 1&$ .......
**
: ; ESCAPE TO TEST 23 ON ERROR
; SELECT DRIVE FOR TESTING
:GO TO "llDT"
:WRITE ONE BLOCK
TA" MOTION TEST
CZTAD-D MACYII 30A(10S2)
23-MAR-7S OS:36 PAGE 36
CZTADD.P'1
23-MAR-780S:34
T22
TEST WFG AFTER READ AND SSFG AFTER WRITE
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
'633
1634
1635
1636
,637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
·1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
004362
004364
004370
004372
004374
004376
004400
004404
004406
004412
004414
004416
104421
'04414
104423
016756
0'7012
104412
104413
104415
104414
104423
016762
017016
REWIND
READ
8LKCMP
RLNK 1
WLNKI
WFG
WRITE
BSFG
READ
BLKC:JP
RLNK2
WLNK2
016756
0170,6
016762
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
SEQ 0031
;GO TO "BOT"
;READ ONE 8LDCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
;WRITE A FILE GAp·
;WRITE A BLOCK
;BACK OVER THE DATA
; READ SECOND 6LOCK
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRIn BUFFER
,RLNKI
,WLNK2
,RLNK2
;; * •••••• ** •••• **** ••••••••••••• *** ••••••••••••••••••• "" •••••••••
;*TEST 23
TEST SFFG AFTER REWIND AND READ AFTER SFFG
; ;................................. * ••••••• * ••• * •••• ** •••••••• *•••
004420
004422
004430
004432
004434
004440
004442
004446
004450
004452
004456
004460
004462
000004
012737
104422
104421
104413
'04412
104413
104421
104417
104414
104423
016762
017016
TST23:
004464
001172
017012
017018
018762
SCOPE
MOV
SELDRV
REWIND
WRITE
WFG
WRITE
REWIND
SFFG
READ
BLKCMP
RLNK2
WLNK2
000004
012737
104422
104421
104413
104412
104413
104421
104417
104416
104414
104423
016756
017012
; ; ESCAPE TO TEST 24 ON ERROR
;SELECT DRIVE FOR TESTING
;GO TO IIBOTII
,WLNKI
;WRITE A SLaCK OF DATA
;WRITE A FILE GAP
;WRITE A BLOCK OF DATA
;GO TO "SOT"
; SPACE OVER FIRST BLOCK
; READ THE 2ND 6LOCK
;COMPARE THE REAO AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
,WLNK2
,RLNK2
;; ••••••••••••••••••••••••• *.*** •••• ** ••••• * ••• * ••••• * •••• ** •••••
;;.... _. '" ..• *.-.••..•.*••• *.*.*••••••••• **..... ** *.*. ***** •••••••••
; .TEST 24
004464
004466
004474
004476
004500
004504
004506
0045' 2
004514
004516
004520
004524
004526
004530
nST24 , $ESCAPE
TST24:
004532
001172
017012
017016
016756
SCOPE
MOV
SELDRV
REWIND
WRITE
WFG
WRITE
REWIND
SFFG
BSBG
READ
BLKC.MP
RLNKI
WLNKI
TEST BSBG AFTER SFFG
nST2S,SESCAPE; ; ESCAPE TO TEST 25 ON ERROR
; SELECT DRIVE FOR TESTING
;GD TO "BOT"
,WLNKI
;WRITE DATA
;WRITE FILE GAP
,WLNK2
;WRITE DATA
;GO TO "BOT"
; SPACE OVER FIRST FILE
; BACKUP TO FIRST BLOCK
,RLNKI
;READ THE BLOCK
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFE~
; LINK TO THE WRITE BUFFER
;; * •••••••••••• **** ••••••••••••••• $ . . . . . . . . . . . . . . . . . . . . . . . . . . . * ••••
; .TEST 25
TEST SFBG AFTER SFFG
; ; .........•• ** ••••• * ••••• ** •••••••••••••••• ** •••••• '" * ••• "'* •• * •••••
004532
004534
004542
004544
004546
004552
004554
004560
000004
012737
104422
104421
104413
104412
104413
104413
TST2S:
004606
001172
017012
017016
017022
SCOPE
MOV
SELDRV
REWIND
WRITE
WFG
WRITE
WRITE
ITST26,SESCAPE; ;ESCAPE TO TEST 26 ON ERROR
;SELECT DRIVE FOR TESTING
;GD TO "BOT"
.
,WLNKI
;WRITE A BLOCK OF DATA
; FOLLOWED BY A FILE GAP
,WLNK2
;FOLLOWED BY 2 BLOCKS OF DATA
,WLNK3
SEQ 0037
TAIl MOTION TEST
CZTAD-D MACYl1 30A( 1052) 23-MAR-78 OB:38 PAGE 37
CZTADO.Pll
23-MAR-78 08:34
T2S
TEST SFBG AFTER SFFG
1677
'678
1679
1680
1681
1682
1683
1684
1685
1686
16B7
1688
1689
1690
1691
'692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
SEQ 0038
004564
004566
004570
004572
004574
004600
004602
004604
104421
104417
'04420
104416
104414
104423
016762
017016
004606
0046,0
004616
004620
004622
004626
004630
004634
004640
004644
004646
004650
004652
004654
004660
004662
004664
000004
012737
104422
104421
104413
'04412
104413
104413
104413
104421
104417
104420
104420
104414
104423
016772
017026
REWIND
SFFG
SFBG
BSBG
READ
BLKCMP
RLNK2
WLNK2
016762
SEQ 0037
;GO TO "BOT"
; SPACE OVER 1ST FILE
; SPACE OVER BLOCK
: BACK OVER THE BLOCK
; READ THE LAST BLOCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
,RLNK2
: ;** •••••••••••••••••••••••••••••••••••••••••••••••• * •• III • • • • • • • • •
;.TEST 26
TEST SFBG AFTER SFBG
;; "" ••••••• *•• 1\1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . *** .......................
TST26:
004668
001172
017012
017016
017022
017026
016772
SCOPE
MOV
SELORV
REWIND
WRITE
WFG
WRlTE
WRlTE
WRITE
REWIND
SFFG
SFBG
SFBG
READ
BLKCMP
RLNK4
WLNK4
NTST27 ,$ESCAPE
,WLNKI
,WLNK2
,WLNK3
,WLNK4
; ; ESCAPE TO TEST 27 ON ERROR
; SELECT DRIVE FOR TESTING
:GO TO "BOT"
:WRITE A BLOCK OF DATA
; WRITE A FI LE GAP
; WRITE 3 BLOCKS OF DATA
;GO TO "BOT II
;SPACE OVER THE 1ST FILE
; SPACE OVER TWO BLOCK
,RLNK4
; RElID LAST BLOCK OF DATA
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO ·THE REAO BUFFER
; LINK TO THE WRITE BUFFER
; ;* •••••••••••••••••••••••••••••••••••••••• ** •• * ••••• * •••••••••••
; .TEST 27
TEST BSFG AFTER SFBG AND BSFG AFTER BSFG
;; •••••••••••••.•••••••••••••••••••••• $.11:'''' •• *.........................
004666
004670
004676
004700
004702
004706
004710
004714
0047,6
004720
004722
004724
004726
004732
004734
004736
000004
012737
104422
104421
104413
104412
104413
104421
104417
104420
104415
104415
104414
104423
016756
017012
004740
004742
004750
004752
004754
004760
000004
0'2737
104422
104421
104413
'04412
T5T27:
004740
001172
017012
017016
SCOPE
MOV
SELORV
REWIND
WRITE
WFG
WRITE
REWIND
SFFG
#TST30, SESCAPE
,WLNKI
,WLNK2
sfllG
BSFG
BSFG
READ
BLKCMP
RLNKI
WLNKI
016756
,RLNKI
;; ESCAPE TO TEST 30 ON ERROR .
; SELECT ORIVE FOR TESfI.NG
;GO TO "BOT"
;WRITE ONE BLOCK OF OATA
; IrIRITE A FILE GAP
;WRITE A BLOCK OF DATA
;GO TO 'BOT"
;SPACE OVER 1ST FILE
; SPACE OVeR 1 $T BLqpK OF 3IID FI",
; BACK TO BEGINNNG OF 2ND FILE
; BACK TO BEGINNING OF 1 ST FILE
;READ 1ST BLOCK OF 1ST FILE
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
:; ..........................................................** •••••
...............................................................
;oTEST 30
;;
TST30:
005016
017012
001172
SCOPE
MOV
SELDRV
REWIND
WRITE
WFG
TEST BSBG THRU A FILE GAP
nST31,$ESCAPE
,WLNKI
; ; ESCAPE TO TEST 31 ON ERROR
SELECT DRIVE FOR TESTING
GO TO 'BOT"
WRITE ONE BLOCK OF DATA
WRIT!! A FILE GAP
SEQ 0038
TAIl MOTION TEST
CZTAD-D MACYll 30A(1052) 23-MAR-7e 08.aa PAGE 38
CZTAOO.Pl1
23-MAR-78 08:34
T30
TEST 8SBG THRU A FILE GAP
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
004762
004766
004772
004774
004776
005000
005002
005004
005010
005012
005014
104413
104413
104421
104417
104420
104416
104416
104414
104423
016756
017012
005016
005020
005026
005030
005032
005036
005040
005044
005046
005050
005052
005054
005056
005062
005064
005066
000004
012737
104422
104421
104413
104412
104413
'04421
104417
104420
104416
104415
104414
104423
016756
017012
005070
005072
005100
005102
005104
005110
005112
005116
005120
005122
005126
005130
005132
000004
012737
104422
104421
104413
'04412
104413
104415
104416
104414
104423
016756
017012
005134
005136
005144
005146
005150
005154
005156
000004
012737
'04422
104421
104413
104412
104413
WR IT!
WRITE
REWIND
SFFG
SFBG
BSBG
BSBG
READ
BLKCMP
RLNKI
IrILNKI
017016
017022
016756
SEQ OO:l!B
:WRITE TWO BLOCKS OF DATA
,WLNK2
,WLNK3
;GO TO "SOT"
: SPACE OVER 1 ST FILE
: SPACE OVER 1 ST BLOCK 0 .. 2ND FI LE
: SACK OVER 1 BLOCK
: BACK OVER 1 BLOCK
:READ
:COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
,RLNKI
;; •••••••• ** ••••••••••••• "•••••••••••••••••••••••••••••••••••••••
...............................................................
005070
001172
017012
017016
01675B
;oTEST 31
TEST BSFG AFTER BSBG
;;
TST31 :
SCOPE
ITST32 , SESCAPE ;; ESCAPE TD TEST 32 ON ERROR
MDV
:SELECT DRIVE FOR TESTING
SELDRV
;GO TO "SOT"
REW"IND
:WRITE ONE BLOCK OF DATA
,,,,LNKI
WRITE
;WRITE A FILE G~P
",FC
;WRITE A BLOCK OF DATA
,WLNK2
",RITE
:GO TO "BOT'
'
REWIND
: SPACE OVER FILE
SFFG
: SPACE OVER 1 ST BLOCK OF 2ND FILE
SFBG
: BACK OVER BLOCK
BSBB
;BACK OVER FILE
BSFG
:READ 1ST BLOCK ON TAPE
,RLNKI
READ
; COMPARE THE READ AND "'RtTE BUFFERS
BLKCMP
; LINK 'TO THE READ BUFFER
RLNKI
; LINK TO THE WRITE BUFFER
WLNKI
;;
; oTEST 32
TEST BSBG AFTER BSFG
; ; ••••••••••••••••••••••••••••••••••••••••••••••••••• "! •••••••••••
TST32:
SCOPE
nST33, SESCAPE ; ; ESCAPE TO TEST 33 ON ERROR
MOV
:SELECT DRIVE FOR TESTING
SELORV
; GO TO 'CLEAR LEADER'
REWIND
; WRITE BLOCK
WRITE
,WLNKI
:WRITE
A FILE GAP
WFG
; FOl.LOW WITH :'NOTHER BLOCK
WRITE
,WLNK2
;BACK UP 1 FILE
BSFG
; BACK UP 1 BLOCK
BSBG
;REAO 1ST BLOCK ON TAPE
,RLNKI
READ
:COMPARE THE READ AND WRITE BUFfERS
BLKCMP
; LINK TO THE READ BUFFER
RLNKI
; LINK TO THE WRITE BUFFER
WLNKI
;; "'
; -TEST 33
TEST BSFG AFTER SFFG AND SFFG AFTER READ
;;
TST33:
SCOPE
ITST34 , SESCAPE ; ; ESCAPE TO TEST 34 ON ERROR
MOV
: SELECT DRIVE F~~ TESTING
S£lDRV
;GO TO "BOT"
REWIND
;WRITE
A BLOCK OF DATA
,WLNKI
WRITE
; WRITE A FI LE GAP
WFG
;WRITE A BLOCK OF DATA
,WLNK2
WRITE
.....................................................................
005134
001172
017012
017016
01675B
...................."..........................................
...............................................................
00521B
001172
017012
01701B
TAIl MOTION TEST
CZTAD-D MACY11 30A(1052)
23-MAR-78 08:3B PAGE 31
CZTADO.Pl1
23-MAR-780B:34
T33
TEST BSFG AnER SFFG AND SFFG AFTER READ
1789
'790
179'
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
005162
005164
005166
005170
005174
005176
005200
005202
005204
0052,0
005212
005214
'04421
104417
104415
104414
'04423
016756
017012
104417
'04414
104423
016762
017016
016756
016762
;;
1802
1803
1804
1805
1806
lB07
1808
1809
1810
1811
1812
1813
1814
18'5
1816
1817
1818
1819
1820
lB21
1822
'1823
1824
1825
lB26
1827
182B
lB29
1830
1831
1832
1833
1834
1835
'836
1837
1838
1839
0052'6
005220
005226
0052.30
005232
005236
005240
005244
005246
005252
005254
005256
005260
005262
005266
005270
005272
000004
012737
104422
TST34 1
005274
001172
104421
104413
104412
104413
017012
017016
104412
104413
104412
104421
'04417
104417
104414
017022
01676B
104423
0'6766
017022
:;
SCOPE
MOV
S£lDRV
REWIND
WRITE
WFG
WRITE
WFG
WRITE
WFG
REWIND
SFFG
SFFG
READ
BLKCMP
RLNK3
WLNK3
005274
005276
005304
005306
005310
005314
005320
005322
005326
005330
005332
005334
005336
005342
005344
005346
TST35:
000004
012737
104422
'04421
104413
017012
'04413
017018
'04412
'04413
104412
.04421
104420
104417
104414
'04423
0'6766
017022
005350
001172
017022
016766
SCOPE
MeV
S£lDRV
REWIND
WRITE
WRITE
WFG
WRIT,E
WFG
REWIND
SFBG
SFFG
READ
BLKCMP
RLNK3
WLNK3
005350
005352
000004
012737
TST3i:
005422
001172
,RLNK2
TEST SFfG AFTER SFFG
nST35,SESCAPE; ; ESCAPE TO TEST 35 ON ERROR
;S£lECT DRIVE FOR TESTING
: GO TO BOT
,WLNKI
;IrIRITE A BLOCK
;WRITE FILE GAP
,WLNK2
;WRITE A' ,BLOCK
:WRITE A FILE GAP
,WLNK3
~WRITE A BLOCK
; WRITE A Fl LE GAP
:GD TO 'BOT'
:SPACE OVER 1ST FILE
; SPACE OVER 2ND FILE
,RLNK3
; READ BLOCK OF 3RD FILE
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRlTE BUFFER
TEST SFFG AFTER SFIG
"'
IT9T36,SESCAPE; ; ESCAPE TO TEST 3B ON ERROR
;SELECT DRIVE FOR TESTING
;GD TO 'BOT'
.WLNKI
:WRITE A BLOCK
,WLNK2
;WRITE A BLOCK
;WRITE A GAP
.WLNK3
:WRITE A BLOCK
:WRlTE A GAP
:GO TO 'BOT'
;SPACE OVER THE 1ST BLOCK(AND 1ST FILE)
; SPACE TO BEGINNING OF 2ND FI LE
,RLNK3
; READ 1 ST BLOCK OF 2RD FILE
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ ,IiIUFFER
; LINK TO THE WRITE BUFFER
...............................................................
...............................................................
;;
; oTEST 3B
;;
,RLNKI
...............................................................
................................... ............................
: .TEST 35
;;
:GD TO 'SOT"
;SPACE OVER 1ST FILE
: BACK TO BEGINNING OF 1 ST FILE
:READ FIRST DATA BLOCK
:COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFER
: LINK TO THE WRITE BUFFER
; SPACE TO BEGINNING ON 2ND FILE
;READ 1ST BLOCK DF 2ND FILE
:COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
: LINK TO THE WRIT. BUFFER
...............................................................
...............................................................
; oTEST 34
;;
1840
1841
1842
1843
1844
REWIND
SFFG
BSFG
READ
BLKCMF'
RLNKI
WLNKI
SFFG
READ
BLKCMP
RLNK2
WLNK2
SEQ 0039
SCOPE
MeV
TEST wFG AFTER SFBG
#TST3? ,SESCAPE
; : ESCAPE TO iES.T 37 ON ERROR
SEQ 0039
.&q
23-MAR-7B OB'36 PAG'e "tv
CZTAD-D MACYll 30A( 1052)
TAIl MOTION TEST
TEST \IIFG AFTER SF8G
T36
23-MAR-7B 08'34
CZTADD.Pll
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
lB74
1875
1876
1877
1878
1879
lB80
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
005360
005362
005364
005370
005374
005376
005400
005402
005406
005410
005414
005416
005420
104422
104421
104413
104413
104421
104420
104412
104413
104415
104414
104423
016766
017022
SELDRV
REWIND
WRITE
WRITE
REWIND
SFBG
\IIFG
WRITE
BSFG
READ
BLKCMP
RLNK3
WLNK3
017012
017016
017022
016766
;;
005422
005424
005432
005434
005436
005442
005446
005450
005452
005456
005460
005462
005466
005470
005472
000004
012737
I044?2
104421
104413
104413
104421
104420
104413
104415
104420
104414
104423
016766
017022
TST37:
005474
SEO 0040
;SELECT DRIVE FOR TESTING
;WRITE 2 BLOCKS
.IIILNKI
,WLNK2
;GO TO "80T"
;GET OVER THE 1ST BLOCK
;WRITE A GAP OVER 2ND BLOCK
;WRITE A BLOCK
; BACK OVER THE BLOCK
;AND READ IT
; COMPARE THE READ AND IIIRHE BUFFERS
; LINK TO THE RE;', BUFFER
; LINK TO THE WRITE BUFFER
,IIILNK3
,RLNK3
.................".............................................
...............................................................
;.TEST 37
;;
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
REWIND
SFBG
WRITE
BsFG
SFBG
READ
BLKCMP
RLNK3
WLNK3
001172
017012
017016
017022
016766
TEST WRITE AFTER SFBG
NTST40, SESCAPE
,WLNKI
,WLNK2
,WLNK3
,RLNK3
;; ESCAPE TO TEST 40 ON ERROR
; SELECT DRIVE FOR TESTING
;130 TO BOT
;WRITE 2 BLOCK
;GO TO BOT
;SPACE OVER 1ST BLOCK
;WRITE OVER 2ND BLOCK
;130 TD 8EGINNING OF FILE
;SPACE OVER 1ST BLOCK
; READ THE NEW 2ND BLOCK
; COMPARE THE READ AND WR ITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
; ; •••••••••••••••••••••••••••• * ••••••••••••••••••••••••••••••••••
;.TEST 40
3 ONE BLOCK FILES---MUL 11 SPACING & TEST SFFG AFTER BSFG
; ; •••••••••••••••••••••••••••••••••••••••••• ** •••••••••••••••••••
005474
005476
005504
005506
005510
005514
005516
005522
005524
005530
005532
005534
005536
005540
005542
005544
005546
005550
005552
005556
005560
005562
000004
012737
104422
104421
104413
104412
104413
104412
104413
104412
104421
104417
104417
104417
104415
104415
104415
104417
104414
104423
016762
017016
ScopE
MOV
SELDRV
REWIND
WRITE
WFG
WRITE
WFG
WRITE
loIFG
REil/INt,
SFFG
SFFG
SFFG
BSFG
BSFG
BSFG
SFFG
READ
BLKCMP
RLNK2
WLNK2
TST40'
005564
001172
017012
017016
017022
01B762
NTST41,SESCAPE
;; ESCAPE TO TEST 41 ON ERROR
; SELECT DRIVE FOR TESTING
;GO TO IIBOT,IIILNKI
;WRITE A BLOCK
;FILa GAP
,WLNK2
,IoILNK3
,RLNK2
; BLOCK
;FILE GAP
; BLOCK
;FILE GAP
;GO TO "80T II
;SPACE OVER 1ST FILE
; SPACE OVER 2ND FILE
; SPACE OVER 3RD FI LE
; BACK OVER 3RD FILE
;BACK OVER 2ND FILE
;BACK OVER 1ST FILE
;GO TO BEGINNING 'JF 2ND FILE
; READ THE BLOCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
TAIl MOTION TEST
CZTAD-O MACY11 30A( 1052) 23-MAR-7B OB:3B PAGE 41
TWO BLOCK FILES---MUL TI SPACING FUNCTIONS
CZTADD. PI 1
23-MAR-78 08.34
T41
1901
1902
1903
1904
1905
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
~.
;;
SEO 0041
................................................................
; .TEST 41
TWO BLOCK FILES---MULTI SPACING FUNCTIONS
; ; •••••• * •••••• ** ••••••••••••••••••••• **.* •••••••••••••••••••••••
005564
005566
005574
005576
005600
005604
005610
005612
005616
005622
005624
005630
005634
005636
005640
005642
005644
005650
005652
005654
005656
005660
005664
005666
005670
000004
012737
104422
104421
104413
104413
104412
104413
104413
104412
104413
104413
104412
104421
104417
104417
i04414
104423
016776
017032
104415
104414
104423
016776
017032
1ST41 :
005672
001172
017012
017016
017022
017026
017032
017036
016776
016778
;;
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
WFG
WRITE
WRITE
WFG
WRITE
WRITE
WFG
REWIND
SFFG
SFFG
READ
BLKCMP
RLNK5
WLNK5
BSFG
READ
BLKCMP
RLNK5
IIILNKS
NTST42 , $ESCAPE
; ; ESCAPE TO TEST 42 ON ERROR
;SELECT DRIVE FOR TESTING
;GO TO "BOTII
,IIILNKI
,WLNK2
; WRITE A 2 BLOCK FILE
,WLNK3
,WLNK4
;WRITE A 2 BLOCK FILE
,WLNK5
,WLNK6
;WRITE A 2 BLOCK FILE
,RLNKS
, RLNK5
;130 TO "BOT II
;SPACE OVER 1ST FILE
; SPACE OVER 2ND Fl~E
;PEAD 1ST BLOCK O,F 3RD FILE
: COMPARE, THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
; BACK TO BEGINNING OF3RD FILE
;READ 1ST BLOCK OF 3RD FILE
;COMPARE THE READ AND IIIRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
...............................................................
;.TEST 42
MULTI SPACING & TEST SFBG AFTER READ
; ; •••••••••••• * ••••••••••••••••••••••••••••••••••••••••••••••••••
005672
005674
005702
005704
005706
005712
005716
005722
005724
005730
005734
005736
005740
005742
005744
005746
005752
005754
005756
005760
005762
005764
005770
005772
005774
000004
012737
104422'
104421
104413
104413
104413
104412
104413
104413
104412
104421
104417
104417
104415
104414
104423
016772
017026
104415
104415
104414
104423
016756
017012
TST42;
006042
017012
01701B
017022
017026
017032
016772
016756
001172
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
WRITE
IIFG
WRITE
WRITE
WFG
REWIND
SFFG
SFFG
BSFG
READ
BLKCMP
RLNK4
WLNK4
BSFG
BSFG
READ
' BLKCMP
RLNKI
WLNKI
HTST43,SESCAPE
; ; ESCAPE TO TEST 43 ON ERROR
; SELECT DRI VE FOR TESTING
;GO TO
II
BOT "
,IIILNKI
,IIILNK2
,WLNK3
;IIIRITE A 3 BLOCK FILE
,WLNK4
,WLNK5
;Wn:TE A 2 BLOCK FILE
,RLNK4
,RLNKI
GO TO ItBOT R
SPACE OVER THE 1ST FILE
SPACE OVER THE 2ND FLE
BACK TO BEGINNING OF 2 FILE
READ 1ST BLOCK OF 2ND FI LE
COMPARE THE READ AND WRITE BUFFERS
LINK TO THE READ BUFFER
LINK TO THE WRITE BUFFER
BACK TO BEGINNING OF 2ND FILE
BACK OVER 1ST "ILE
READ lND BLOCK OF 1ST FILE
COMPARE THE READ AND WRITE BUFFERS.
LINK TO THE READ BUFFER
LINK TO THE IIIRITE BUFFER
SEO 0041
SEQ 0042
TA" MOTION TEST
CZTAD-D MACYll 30A( 1052) 23-MAR-1B OBI36 PAGE 42
CZTADD.Pll
23-MAR-780B:34
T42
MULTI SPACING & TEST SFBG AFTER READ
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
',991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
005776
006000
006004
006006
006010
006012
006014
006020
006022
006024
006026
006030
006034
006036
006040
006042
006044
006052
006054
006056
006062
006066
006070
006074
006100
006102
006106
006112
006114
006116
006120
006122
006124
006126
006130
006132
006134
006140
006142
006144
006146
006150
006154
006156
006160
104415
104414
104423
016756
017012
104420
104414
104423
016766
017022
104417
104414
104423
016772
017026
BSFG
READ
BLKCMP
RLNKI
WLNKI
SF8G
READ
BLKCMP
RLNK3
WLNK3
SFFG
READ
BLKCMP
RLNK4
WLNK4
016758
016766
016772
000004
012737
104422
104421
104413
,RLNK4
006162
001112
017012
017016
017022
017026
017032
011036
016766
016116
TWO BLOCK FlLES--MULTI SPACING & TEST 5FFG AFTER BSBG
1ST44 I
006352
011012
001112
'
ISEOP, SESCAPE
nST44,SESCAPE
,WLNKI
,WLNK2
I; ESCAPE TO TEST 44 ON ERROR
;SELECT DRIVE FOR TESTING
;00 TO BOT
;WRITE A 2 BLOCK FILE
,WLNK3
,WLNK4
;WRITE A 2 BLOCK FILE
,WLNK5
,WLNK6
;WRITE A 2 BLOCK FILE
; BOT
;SPACE OVER 3 fILES
; BACK OVER 2 FILES
,RLNK3
,RLNKS
;BACK TO 2ND BLOCK OF 1ST FILE
;GO TO BEGINNx'NG OF 2ND FILE
;READ 1ST RECORO OF 2NO FILE
; COMPARE THE REAO ANO WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
;GO TO 3RO FILE
;READ 15T RECORD OF 3RD ,FILE
; COMPARE THE READ AND WR ITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
...............................................................
.................................................................
SCOPE
MOV
SELDRV
REWIND
WRITE
6 ONE BLOCK FILES---MULTI SPACING
,WLHKl
; ; ESCAPE TO SEOP ON ERROR
; SELECT DRIVE FOR TESTING
100 TO BOT
lWRITE A 1 RECORD FILE
SEQ 0043
TAI1 MOTION TEST
CZTAD-D MACYl1 30A( 1052) 23-MAR-1B OBI3B PAGE 43
CZTADD. Pl1
23-MAR-78 OB:34
T44
B ONE BLOCK FILES-MULTI SPACING
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
006202
006204
006210
006212
006216
006220
006224
006226
006232
006234
006240
006242
006244
006246
006250
006252
006254
006256
006260
006262
006266
006270
006272
006274
006276
006300
006304
006306
006310
006312
006314
006316
006320
006324
006326
006330
006332
006334
006336
006340
006344
006346
006350
104412
104413
104412
104413
104412
104413
104412
104413
104412
104413
104412
104421
104417
104417
104417
104417
104417
104417
104415
104414
104423
017.002
017036
104415
104415
104414
104423
016776
017032
104415
104415
104415
104414
104423
016766
0170'22
104415
104415
104415
104414
104423
016756
017012
\
................................................................
;oTEST 43
;;
TST43:
SCOPE
MOV
SELDRV
REWIND
WRITE
WRITE
WFG
WRITE
WRITE
WFG
WRITE
WRITE
WFG
REWIND
SFFG
SFFG
SFFG
BSFG
BSFG
BSBG
SFFG
READ
BLKCMP
RLNK3
WLNK3
SFFG
READ
BLKCMP
RLNK5
WLNK5
;;
I.TEST 44
;;
006162
006164
006172
006174
006176
,RLNK3
; ;."' ...... ** ••••••••••••••••••••••••••••••• **.** ................... .
000004
012737
104422
104421
104413
104413
104412
104413
104413
104412
104413
104413
104412
104421
104417
104417
104417
104415
104415
104416
104417
104414
104423
016766
017022
104417
104414
104423
016776
017032
,RLNKI
SEQ 0042
IGO TO BEGINNING OF 1ST FILE
; READ 1 ST BLOCK
; COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
;GET OVER 2ND BLOCK
; READ 3RD BLOCK
;COMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE' WRITE BUFFER
IGO TO BEGINNING OF 21010 FILE
;READ'IST BLOCK C; 2ND FILE
ICOMPARE THE READ AND WRITE BUFFERS
; LINK TO THE READ BUFFER
; LINK TO THE WRITE BUFFER
017016
017022
017026
011032
01703B
017002
01611B
01676B
0161S6
WFG
WRITE
WFG
WRITE
WFG
WRITE
WFG
WRITE
WFG
WRITE
WFG
,
REWIND
SFFG
SFFG
5FFG
SFFG
SFFG
SFFG
BSFG
READ
BLKCMP
RLNK6
WLNK6
BSFG
BSFG
READ
BLKCMP
RLNK5
WLNK5
BSFG
BSFG
BSFG
READ
BLKCMP
RLNK3
WLNK3
BSFG
BSFG
BSFG
READ
BLKCMP
RLNKI
WLNKI
SEQ 0043
,WLNK2
;WRITE A
BLOCK FILE
,WLNK3
;W,RITE A
BLOCK FILE
,WLNK4
;WRITE A
BLOCK FILE
,WLNKS
;WRITE
A
BLOCK FILE
,WLNKB
;WRITE A
BLOCK FILE
BOT
SPACE OVER 1ST FILE
SPACE OVER 2ND FILE
SPACE OVER 3RD FILE
SPACE OVER 4TH FILE
SPACE OVER 5TH FILE
SPACE OVER 6TH FILE
NOW BACK UP AND READ IT
,RLNK8
COMPARE
LINK TO
LINK TO
BACK UP
THE READ AND WRITE BUFFERS
THE REAO BUFFER
THE WRITE BUFFER
TO 5TH FILE
,RLNK5
AND READ IT
COMPARE THE READ AND WRITE BUFFERS
LINK TO THE READ BUFFER
LINK TO THE WRITE BUFFER
BACK UP 10 3RO F1 LE
,RLNK3
AND READ IT
COMPARE THE READ AND WRITE BUFFERS
LINK TO THE READ BUFFER
LINK TO THE WRITE BUFFER
BACK UP TO 1 ST FILE
,RLHKl
AND READ IT
COMPARE THE READ AND WRITE BUFFERS
LINK TO THE READ BUFFER
LINK TO THE WRITE BUFFER
TA" MOTION TEST
CZTAD-D MACYl1 30A( 1052)
23-MAR-78
CZTAOD.Pl1
23-MAR-78 08:34
END OF PASS ROUTINE
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
• seTn
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
PAGE 44
SEQ 001(4
SEQ 0044
END OF PASS ROUTINE
**"' ••
"'*
It:*"''*
i i"·" **'" '" "' ••
* 1fI",*,.. oj! >II ** "'''''''=II >I<,j"(I:$$1\I*
1\1$$*****"'.$$/11 •• $$*", • • •
;.1 NCREMENT THE PASS NUM8ER ($PASS)
;:'JlTYPE "END PASSu
;.IF THERES A MONITOR 00 TO IT
;-IF THERE ISN'T JUMP TO START
;.IF IT IS DESIRED TO HAVE A BE.L INDICATE THE 'END OF PASS' .OCATION
; *$ENDMG CAN BE CHANGED TO 7.
006352
006352
006354
006360
006364
006370
006376
006400
006402
006404
006406
006410
006412
006416
006422
006426
006430
006432
006434
006436
006440
006442
006442
006444
006446
006451
006456
SEDP:
000004
005037
005037
005237
042737
005327
000001
003017
012737
000001
006400
104401
104401
013700
001405
000005
004710
000240
000240
000240
000137
002312
377
015
050040
001102
001170
001100
'00000
001100
006451
006446
000042
377
042412
051501
000
042116
000123
SCOPE
CLR
CLR
. INC
BIC
DEC
SEOPCT: • WORD
BOT
MOV
SENDCT: • WORD
SEOPCT
TYPE
TYPE
SGET42: MOV
BEQ
RESET
SENDAO: uSR
NOP
Nap
Nap
$OOAGN:
uMP
$RTNAD: .WORD
SENULL: .BYTE
SENDMG: .ASCIZ
$TSTNM
STiMES
$PASS
H100000,$PASS
(PC)+
1
SDOAGN
(PC)+,@(PC)+
1
;
;
;
;
;
,$ENDMG
,SENULL
IPH42.RO
SoOAON
; ;TYPE 'END PASS"
: ;TVPE A NULL CHARACTER
; ; GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR
; ; C LEAR THE WaR LD
PC, (RO)
; ZERO THE TEST NUMBER
:ZERO THE NUMBER OF ITERATIONS
; INCREMENT THE PASS NUMBER
;oON'T ALLOW A NEG. NUMBER
; lOOP?
j jYES
; : RESTOR[ COUNTER
; ;GO TO MONITOR
; ;SAVE ROOM
;; FOR
; ;ACT11
II>(PC)+
;;RETURN
START
-1.-, ,0
; ;NULl CHARACTER STRING
<12>/END PASSI
23-MAR-78
TA11 MOTION TEST
CZTAD-D MACYll 30A( 1 052)
23-MAR-7B os: 34
END OF PASS ROUTINE
eZHDO. Pll
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
08:36
08:36
SEQ 0045
PAGE 4S
; ; '" *>li.",.**lI/I:$l/o***** •• *********'4<$$$"II*iI!$***.>II.*. $$$$>11:$ • • *******$$$$$
ROUTINE TO EXAMINE DRIVE(S) FOR AYAILABlITV
.5BTH
:CALL:
MOV
NDRVKEY I RO
uSR
PC.flINEXAM
NORMAL RETURN
ERROR RETURN
006464
006470
006472
006476
006500
006504
006510
006512
006514
006516
006522
006524
006530
006532
006540
006542
0065,,0
006552
006554
006560
006562
006566
013701
005011
122710
001402
052711
032711
001775
005711
100024
032711
001017
032711
001411
122777
001412
122777
001406
000403
032711
001002
062716
000207
EXAM:
001220
000101
000400
000040
15:
MOV
CLR
CMPS
BEQ
8IS
BIT
SEQ
TST
BPL
BIT
001000
010000
00020,
172400
000203
172370
020000
2S:
000002
3S:
4$:
BNE
BIT
BEQ
CMPS
BEQ
CMPB
BEQ
8R
BIT
BNE
ADD
RTS
flIHTACSL, RI
(Rl )
H 'A. (ROj
1$
HUNIT. (Rl)
HREAOY, (Rl )
1$
(Rl)
4$
HOFFUNE. (RI)
3$
HWRTLOCK. (R 1 )
2$
HBIT07! BITOO ,IPSWR
4$
HBIT07IBlT01!BITOO,f,SWR
4$
3$
#LEADER, (R1)
4$
H2, (SP)
PC
;RI IS DESTROYED
PICKUP THE 'CONTRO. II STATUS' REO.ADR.
DRIVE="'A" , FUNCTlpNm"WFG"
EXAMINE DRIVE 'A"1
BR IF YES
SELECT DRIVE "B'
;oTHE SWITCH OPTIONS PROVIDEO B1 THIS ROUTINE ARE:
;'50/,4.,
LOOP ON TEST
INHIBIT ITERATIONS
;051111.1
; 'SW09.,
LOOP ON ERROR
i ·CALL
; ;SCOPE-IOT
;.
SCOPE
SSCOPEI
006570
006570
006572
006576
006600
006602
006606
006610
006612
006614
006616
006620
006626
104406
105777
100005
104407
122627
001001
104424
005727
000000
001105
032777
001101
006630
000416
006632
006636
006644
006650
006654
006656
006660
006664
006666
006666
006672
006674
006702
006704
006712
006714
006722
006724
006730
006734
006736
006744
006746
006752
006754
006760
006766
013746
012737
005737
012637
000453
022626
012637
000413
000004
006656
177060
000004
105737
001421
123737
101015
032777
001404
D. 3737
000443
105037
005037
000415
032777
001011
005737
001406
005237
023737
002021
001103
172346
000003
.100$:
CKSIIIR
TST8
BPL
ROCHR
CMPB
BNE
SETLooP
TST
; ; TEST
.$TKS
100$
(SP)+,'3
10es
(PCI+
0
BNE
SOVER
1$:
BIT
NBIT14,.SIIIR
BNE
SOVER
; ,uuSTART OF CooE FOR THE XOR
SXTSTR' BR
6S
006770
006776
007004
007010
007014
007020
007024
007032
007040
007044
012737
013737
105237
011637
011637
005037
112737
013777
013716
000002
FOR CH"NGE III SOFT-SWR
; TTY FLAG UP?
;BR IF NO
; GO GET ONE CHARACTER FROM TTY
; IS IT A CONTROL/C ?
;BR IF NO
;GO GET "TiST' AND 'SCOPE LOOP' ADDRESSES
; LOOP ON TEST?
~OOPKEY:
040000
172312
000004
0001104
001115
0011 03
001000
172226
001110
001106
001103
001170
004000
172174
001'00
001104
001170
001104
;BR IF YU
; LOOP ON PRESENT TEST?
;YES IF SWI4=1
ESTERNNNlN
; IF RUNN I NG ON THE • XOR' TESTER CHANGE
;THIS INSTRUCTION TO A 'NOP' (NOP.240)
; Si\V£ THE CONTENTS OF THE ERROR VECT!:'
.'ERRVEC,-(SP)
MOV
; SET· FOR TIMEOUT
MaV
.5$ ,IIIHERRVEC
;TIME OUT ON XOR?
1111177060
TST
; RESTORE THE ERROP VECTOR
(SPI+,.NERRVEC
MOV
;GO TO THE NEXT TEST'
SSVLAD
BR
;CLEAR THE STACK AFTER A TIME·OUT
(SPI.,., (SP)+
55:
CMP
; RESTORE THE ERROR VECTOR
(SPI+,IIINERRVEC
MOV
; LOOP ON THE PRESENT TEST
7$
BR
65: ;,,,.,ENO OF CODE FDA THE XOR TESTERNUU
; HAS AN ERROR OCCURRED?
2S:
TSTB
SERFLG
3$
;BR If Nt!
BEQ
;MAX. ERRORS FOR THIS TEST OCCURRED?
SERMAX, $ERFLG
CMPB
;BR IF NO
3$
BHI
;LooP ON ERROR?
BIT
'BIT09,IIISWR
;BR IF NO
4$
BEQ
; SET LOOP ADDRESS TO LAST SCOPE
MOV
SLPERR, $LPADR
75:
lOVER
BR
; ZERO THE ERROR FLAG
4$:
CLRB
$ERFLG
;CLEAR THE NUMBER OF ITERATIONS TO MAKE
CLR
STIMES
; ESCAPE TO THE NEXT TEST
1$
BR
; INHIBIT ITERATIONS?
3$:
BIT
'BIT1',IIISWR
;BR IF YES
BNE
IS
; IF FIRST PASS OF PROGR/."
TST
SPASS
INHIBIT ITERATIONS
,
IS
BEQ
; INCREMENT ITERATION COUNT
INC
SICNT
;CHECK THE NUMIIER 0' ITERATIONS MADE
CMP
STlMES,SICNT
;IIR IF MORE ITERATION REQUIRED
BGE
SOVER
TAl1 MOTION TEST
CZTAD-D MACVI1 30A(1052) 23-MAR-7B OB:36
eZT ADD. P 11
23-MAR-78 08: 34
SCOPE HANDLER ROUTINE
2181
2182
2183
2184
2185
2186
21B7
2189
2189
2190
SEO 0046
PAGE 46
000001
001216
0011 02
001106
001110
001172
000001
001102
001106
001104
001170
001115
172102
IS:
MOV
MOV
SSVLAD: INCB
MOV
MOV
CLR
MOVB
SOVER. MeV
MOV
RT!
PAGE 47
11,SlCNT
SMXCNT ,STlMES
STSTNM
(SP),$lPAOR
(SPI,$LPERR
SESCAPE
Nl,SERMAX
STSTNM,IIIDISPLAY
$LPADR, (SP)
SEO 0047
SEQ 0047
REINITIALIZE THE ITERATION COUNTER
SET NUMBER OF ITERATIONS TO DO
COUNT TEST NUMBERS
SAVE SCOPE LOOP AODRESS
SAVE ERROR LOOP ADORESS
CLEAR THE ESCAPE FROM ERROR ADDRESS
ONLY ALLOW ONE( 11 ERROR ON NEXT TEST
DISPLAY TEST NUMBER
FUDGE RETURN ADORESS
FIXES PS
TAIl MOTION TEST
CZTAD-D MACYll 30A! 1052) 23-MAR-78 08:36
CZTADD.Pll
23-MAR-780B:34
ERROR HANDLER ROUTINE
2191
2192
2193
2194
2195
2196
2197
219B
2199
2200
2201
2202
2203
2204
2205
2206
2207
220B
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
2238
2239
2240
2241
2242
2243
2244
2245
2246
.SBTTL
SEQ 0048
SEQ 0048
ERROR HANDLER ROUTINE
................................................................
;;
,.THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
,.SAVE THE ER~:JR ITEM NUMBER AND THE ADDRES5 OF THE ERROR CALL
,_AND GO TO TYPERR ON ERROR
,.THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
,.SOII5-1
HALT ON ERROR
,_SOII3_1
INHIBIT ERROR TYPEOUTS
,*SW10-1
BELL ON ERROR
, .51'109-1
LOOP ON ERROR
;*CALL
007046
007046 104406
007050 011437
007054 011537
007060 105714
007062
100003
007064 112714
007070 000406
007072 032714
007076 001003
007100 000005
007102 013714
007106 022626
007110 " 005737
007114 002002
007116 011637
007122 016616
007126 105237
007132 001775
007134 013777
007142 032777
0071 50 001402
007152
104401
007156 005237
007162 011637
007166 162737
007174 117737
007202 032777
007210 001"004
007212 004737
007216 104401
007222
007222 005777
007226 100002
007230 000000
007232 104406
007234 032777
007242 001402
007244 013716
007250 005737
007254 001402
007256 013716
"
ERROR
N
, ,ERROR-EMT AND N.ERROR ITEM NUMBER
SERROR:
001182
001164
000020
100S:
000040
001162
lOIS:
001246
001172
177774
001103
102$:
1$:
001102
002000
112000
111110
001174
001112
001116
000002
171716
020000
001116
001114
111130
IS:
Mova
BIT
BNE
~SR
007276
001201
TYPE
20S:
2$:
171712
001000
CKSWR
MOY
MOV
TSTB
8PL
MOVB
BR
BIT
BNE
RESET
MOV
CMP
TST
BGE
MOY
MOV
INCB
BEQ
MOY
BIT
BEQ
TYPE
INC
MOV
SUB
111616
3S:
TST
BPL
HALT
CKSWR
BIT
BEQ
MOV
001110
001172
TST
BEQ
MOV
001172
OTACS.O,SREGO
OTAOB.O,$REGI
OTACS
100S
IlLBS,OTACS
lOIS
'READY,OTACS
101$
007262
007262
007270
007272
007274
001214
, ; TEST FOR CHANGE
,SAVE THE
,SAVE THE
, I F ' XFER
IN SOFT-SWR
TAIl STATUS
DATA BUFFER
REQ' 15 UP KNOCK IT DOWN
,15 READY SET?
,BR IF YES
,REGAIN CONTROL
O'$REGO,OTACS
,RESTORE THE TACS
(SP)+. (SP)+
,POP THE STACK
ASKKEY
,MANUAL LOOPING?
102S
,BRIFNO
.
(SP) ,$ESCAPE
,SETUP FOR MANUAL ESCAPE
-4(SP), (SP)
,GET PC+2 OF ERROR
SERFLG
; ,SET THE ERROR FLAG
1$
, ,DON'T I.ET THE FLAG Gp TO ZERO
$TSTNM.ODISPLAY "DISPLAY TEST NUMBER AND ERR01I FLAG
NBIT:O,OSWR
,fBELL ON ERROR?
1$
; ;NO ..: SKIP
,$BELL
,;RING BELL
SERTTL
, ,COUN.T THE NUMBER OF ERRORS
(SP) ,SERRPC
, ,GET ADDRESS OF ERqOR INSTRUCTION
'2,SERRPC
OSERRPC, SITEMB "STRIP AND SAYE THE ERROR ITEM CODE
NBIT13,OSWR
"SKIP TYPEOUT IF SET
,; SKIP TYPEOUTS
20S
PC, TYPERR
"GO TO USER ERROR ROUTINE
,$CRLF
OSWR
3$
'BIT09,OSWR
4$
SLPERR, (SP)
SESCAPE
5$
SESCAPE, (SP)
TAIl MOTION TEST
CZTAD-D MACY11 30A( 1052) 23-MAR-18 08:3B
CZTADD. PI1
23-MAR-18 OB: 34
ERROR HANDLER ROUTINE
2247
2248
2249
2250
2251
2252
PAGE 48
; ,HALT
;;SKIP
; ,HAn
, ,TEST
;; LOOP
ON ERROR
IF CONTINUE
ON ERROR I
FOR CHANGE IN SOFT.,.SWR
ON ERROR SWI TCH SET?
;; BR IF NO
, ,FUDGE
, ; CHECK
"BR IF
, ; FUDGE
RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESCAPE
PAGE 49
SEQ 00411
5S:
022731
001001
000000
006432
000042
CMP
BNE
HALT
NSENDAD ,.N42
6S
,ACT-l1 AUTO-ACCEPT?
; BRANCH IF NO
,YES
6$:
000002
RTl
SEQ 0049
; ; RETURN
TAll MOTION TEST
CZTAD-D MACY"
23-MAR-78 08: 34
CZTADD.011
2253
2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
30A(1052)
23-MAR-78 08:36 PAGE 50
ERROR TYPEOUT ROUTINE
; : '" ** """, *. . '" "',. '" ** *'" ** **" '" *'"
007276
007302
007304
007306
007312
007320
007322
007326
007330
007332
007334
007336
007342
007346
007350
007352
007356
007360
007362
007364
007366
007370
007372
007376
007400
007400
007402
007404
007406
007410
007414
007416
104401
104401
000000
, 04401
162737
010046
113700
005300
006300
006300
006300
062700
012037
104401
000000
012037
001402
104401
000000
012000
001004
012600
10440'
000207
001201
00'201
000002
001204
001114
001270
007350
007362
SEQ 0050
'* .. $ ** .. '"
>I< . . . . ;{II: .... .;.
** '" '"
>1< ..
* ......... ** '" '"
;THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES
TYPERR: TYPE
,5CRLF
; TYPE A CARRIAGE RETURN & LINE FEED
TYPE
; TYPE THE FUNCTION BEING PERFORMED
MFUNC:
0
;MESSAGE POINTER GOES H~RE
TYPE
,SCRLF
SUS
H2,""SAvpe
; ADJUST THE MAIN FLOW PC
MOV
RO,-(SP)
: SAVE RO
MOVB
I'N$ITEMS,RO
; PICKUP THE ITEM INDEX
DEC
RO
: ADJUS T THE INDEX
ASL
RO
;50 IT WILL WORK FOR
A.SL
RO
: THE ERROR TABLE
ASL
RO
ADO
UERRTB,RO
: FORM THE T ABLE POINTER
MOV
(RO)+,li
; PICKUP "ERROR MESSAGE' POINTER
TYPE
; TYPE II ERROR MESSAGE"
o
; "ERROR MESSAGE POINTER" GOES HERE
MOV
(RO)+,25
:PICKUP "DATA HEADER' POINTEr:
SEQ
3$
;IF "0" DON'T TYPE
TYPE
;TYPE "DATA. HEADER
2$:
; "DATA HEADER" POINTER GOES HERE
3S:
MOV
(RO)+,RO
; PICK.UP "DATA POINTER"
BNE
5$
;IF THERE IS DATA TO. TYPE Go. DO IT
MOV
(SP)+, RO
; RESTORE RO
TYPE
, SCRLf
; TYPE A CARRAGE RETURN&L1NE FEED
RTS
PC
; RETURN
5$:
MOV
"'(RO)+.-(SP)
SAVE 1'( RO)+ FOR TYPEOUT
TYPE DATA
TYPOC
GO TYPE--OCTAL ASCIl(ALL DIGITS)
TST
(RO)
; TERMINATOR?
4$
SEQ
:BR IF YES
TYPE
,65
; TYPE 2 SPACES
jLOOP
.
SR
5$
6$:
.ASCII I
; ASCII STRING OF :2 SPACES
I
.EVEN
o
001201
013046
104402
00571 0
001770
104401
000771
020040
007422
>}I '" >1< . . . . . "' .. ,.
SEQ 0050.
001416
000
seQ 0051
T A11 MOTION TEST
CZTAD-D MACY II 30A( I 052)
23-MAR-7S 08: 36 PAGE 51
ClTAOD.Pl1
2a-MAR-7S OS:34
eRROR TYPEOUT ROUTINE
2289
2290
2291
2292
2293
2294
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
·2323
2324
2325
2326
.SaTTL
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST
:CALL
JSR
RETURN
007422
007426
007432
007434
007436
007440
007442
007446
007452
007454
007456
007460
007464
007466
007470
007472
007476
007500
007502
007504
007506
007512
007514
007520
007522
007526
007530
104401
005037
104410
012600
105710
001425
012701
122710
001002
112021
000411
122710
001002
112021
000404
122710
0011>06
105720
105710
001406
022701
101355
104401
000740
005737
001772
00.0.207
ASKDRV: TYPE
CLR
ROLIN
MOV
TSTS
BEQ
MOV
LOOP:
CMPa
BNE
MOVS
SR
NOTA:
CMPS
BNE
MOVS
BR
NOTS:
CMPB
BNE
TSTB
NEXT:
TS18
BEQ
CMP
BHI
NOTLGL: TYPE
SR
EXIT:
TST
SEQ
RTS
0.15136
0.01240
00.1240
00010.1
00010.2
000054
0.01242
0.01200
001240
; ;*
$$ !II • •
;CALL
; ~SR
2327
2328
2329
2330
2331
SEQ 0051
007532
007534
007540
007542
007544
007546
007552
007554
007560
007564
007570
007576
007602
007610
007614
010046
104401
0.15152
104411
012600
CO 1423
020.027
103770
010037
06270.0
160000
013737
00.5237
001220
0.00002
0.0.1224
0.0.1220.
00.1222
0. 13737
00.5237
10.440.1
00.1224
0.0.1226
015162
010037
00.1222
3$:
;NOTE: AO AND Rl ARE DESTROYED
;,RO
RO,1<$>11"*>1< '"
TTY
SEQ 0054
*.* ***."' •• *.*** "'.***$ *"'$* ••• * 6**.",,,, "' ..... * $I.",." •• ",. * ot.*** **
;THIS ROUTINE WILL INPUT THE ADDRESSES OF 'TEST' AND 'SCOPE LOOP' FROM THE TTY
010106
010106
010112
010114
010120
010124
010126
010130
010134
010136
010142
010144
010146
010150
010152
01015A
010160
010164
010170
010172
010174
010200
010202
D10204
010210
010212
010216
010222
010230
010232
010236
010242
010244
104401
104410
012637
105777
001442
022626
010137
005001
004337
000000
000760
005721
010116
104401
104410
012637
105777
001410
005001
004337
000000
000763
010137
000402
011637
011637
012737
000402
005037
013701
000002
000000
015316
010142
000016
010244
010022
015331
010200
000010
010022
001'106
001106
00111 0
177777
006614
006614
010244
T .SETLOOP:
TYPE
ROLIN
MOV
TSTB
BEQ
CMP
MOV
CLR
uSR
lIS:
0
BR
TST
MOV
5$:
TYPE
ROLIN
MOV
TSIB
SEQ
CLR
JSR
125:
0
SR
MOV
BR
1$:
MOV
2$:
MOV
MOV
BR
35:
CLR
'IS:
MDV
RT!
SAVRI :
0
,MTEST
(SP)+,ll$
@11S
35
(SP)+, (SP)+
R1,SAVRl
Rl
R3,,"NA20CT
T .SElLOOP
(Rl )+
Rl, (SP)
,MLDOP
TYPE "TEST PC?OI
GET AN ASCII STRING
GET FIRST ADDRESS Of INPUT BUFFER
FIRST CHAR. A 'CR" ?
BR IF YES--GO CLEAR THE LOOP KEY
pap POP
SAVE Rl
SET PARTIAL TO ZeRO
GO CHANGE ASCI I TO OCTAL
POINTER TO STRING
ERROR RETURN--GO TRY AGAIN
JUST INCREMENTING
PUT "TEST PC'; ON THE STACK
TYPE "LOOP PC
?M
(SP)+,125
l'12S
1$
RI
R3,@lNA20CT
GET A STRING OF ASCII
GET FIRST ADDRESS OF INPUT. BUFFER
JUST A 'CR" ?
SR IF YES
CLEAR PARTIAL
CHANGE TO OCTAL
5$
Rl,lPULPADR
2$
(SP) ,l'U$ LPADR
(SP) ,l'#SLPERR
#-1 ,l'NlOOPKEY
SAVE SCOPE LOOP ADDRESS
GO SET LOOP KEY
SAVE SCOPE LOOP ADDRESS
ERROR LOOP SAME AS THE nST ADDRESS
SET THE LOOP KEY
4$
4>NLDOPKEY
sAVR1 ,Rl
CLEAR THE LOQP KEY
RESTORE Rl
SYE BYE
HOLD Rl HERE
2J-MAR-7S 08:36 PAGE 55
CZTAO-D MACVI1 30,1\( 1052)
TA"
MOTION TEST
CZTAOD. P11
2J-MAR-78 OB:34
ROUTINE TO SELECT THE DRIve TO BE TESTED
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2463
2484
2485
2486
2467
SEQ 0054
; ; '" "' .. *'" *" ** .. *' >111.$:.'" '" * *"" "'* $*.* •• $$***** •• 11< * 01:
II<
>1< .. >I< $
SEQ 0055
"'* '" * ** ** *$.$* **** ** ••
;THIS ROUTINE WILL SELECT THE NEXT DRIVE TO TEST
010246
010246
010254
0' 0256
010260
010264
010270
010274
010276
010302
010310
010312
010316
010324
010326
010330
010332
010336
010342
010350
010352
010356
010360
032777
001041
010146
013701
111137
121127
001406
052714
012737
000405
042714
012737
005201
105711
001002
012701
010137
032777
00.1002
105037
012601
000002
000200
170664
001236
001250
000101
000400
001262
000400
001260
T .SELDRV:
BIT
BNE
MOV
MOV
Move
001256
1$:
001256
2S:
001240
001236
001000
0~11
3S:
170570
03
4$:
5$:
CMPB
BEQ
SIS
MOV
BR
BIC
MOV
INC
TSTB
SNE
MOV
Mav
BIT
BNE
CLRB
MOV
RT!
6S1II07,@SWR
5$
Rl,-(SP)
ORIVE,Rl
( R1 ) ,4>.CURDRV
(R1),H'A
1$
HUN IT,@TACS
HRWDB,N$ERFLG
(SP) .... Rl
LOCK ON CURRENT DRIVE?
BR IF YES
SAVE Rl ON THE STACK
GET THE DRIVE
SAVE CURRENT DRIVE
IS IT DRIVE IBYTNUM
INC
4$:
;COMPARE READ AND WRITE BUFFER
(Rl )+,O(R2)
CMP8
25:
; BR IF NOT EQUAL
3$
BNE
;INCREMENT WRITE BUFFER INDEX
2$+2
INC
;DON'T
LET IT GET BIGGER THAN 3
rC3,2S+2
BIC
1$
BR
,GET
lHE
RECEIVED BYTE
-(Rl)
,.,$BDDAT
MOVB
3S.
,FORM ADDRESS
2S+2,R2
ADD
;GET THE EXPECTED BYTE
(R2) ,.#$GDDAT
MOVB
; RECEIVED AND EXPECTED DATA NOT EQUAL
10
ERROR
; ; •••••••••••••••••••••••••••••• ** •••••••••••••••••••••••••••••••
001204
015502
012224
007304
171776
011716
012014
;THIS ROUTINE WILL WRITE A FILE GAP ON THE TAPE
; SAVE THE PC OF THE CALL
(SP) ,.NSAVPC
T.WFG: MOV
; SET MESSAGE POINTER FOR 'WFG'
,MXWFG, .NMFUNC
MOV
;GO START A 'l,iFG"
RO,.NDO.CMD
~SR
IS:
XWFGIINT.ENIIJO
ALLOW INTERRUPTS
.NPS
CLR
GO WAIT FOR A FLAG
RO ,fI'WAITFLAG
~SR
NO FLAGS OCCURRED
ERROR
3
NO INTERRUPT
4
ERROR
NO.MAL RETUilN---FIND OUT IrIHl.T FLAG
RO,.,FLAGS
~SR
RETURN HERE IF 'XFER REQ' AND "READY· -0
ERROR
:I
RETURN HERE IF 'XFER REQ' -I
ERROR
2
'RETURN HERE IF 'READY-.1 AND 'ERROR' -0
RTI
"READy·a1 AND "ERROR".1
ERROR
:I
TAl1 MOTION TEST
CZTAD-D MACYI1 30A( 1052) 23-MAR-18 08:36 PAGE 57
CZTADD.Pl1
23-MAR-78 08:34
ROUTINE TO 'WRITE' A RECORD ON THE TAPE
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2541
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
'2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
SEQ 0056
; ; III • • • • • • • • • • • • • • • • • • • • • • • • "'''' . . . . . . . . . . . .
010554 011637
010560 012737
010566 017602
010512 062716
010516 012201
018600 005037
010604 005037
010610 012202
010612 003001
010614 104011
010616 004037
010622 000103
010624 005037
010630 004037
010634
104003
010636 104004
010640 005037
010644 012737
010652 004031
010656 104002
010660 000402
010662 104005
010664 104002
010666 005302
010670 002411
010672 . 005000
010674
156100
010700 110015
010702 004737
010706 005237
010712 042737
010720 012777
010126 000736
010130 013761
010736 004031
010742 000122
010744 OQ5031
010750 004037
010754 104003
010756 104004
010760 004037
010164
104002
010766 104002
010770 000002
010772 104002
001204
015353
000000
000002
007304
012222
010676
012224
177176
011716
001254
000340
012014
1'771711
000000
012102
010676
171774
012340
012222
012224
171776
011716
012014
010676
170302
000004
SEO 0057
* •• ** .............••••••••
;THIS ROUTINE WILL WRITE A RECORD ON THE TAPE
(SP) ,fI,SAVPC
SAVE PC OF CALL
T .WRIT; MOV
MOV
'MXWRIT .fI,MFUNC
POINTER FOR .ASCIZ OF 'WRITE'
MOV
.(SP) ,R2
GET THE WRITE LINK POINTER
ADD
H2,(SP)
AD~UST THE RETURN
MOV
(R2)+,Rl
GET FIRST ADDRESS OF WRITE BUFFER
CLR
.NCRC.WD
CLEAR THE CRC WORD
CLR
6$+2
ZERO THE INDEX
MOV
(R2)+,R2
GET NUMBER OF BYTE TO WRITE
BGT
2S
CHECK FOR LEGAL NUMBER
ERROR
11
BAD NUMBER OF BYTES
~SR
RO,flNDO.CMD
GO START A 'WRITE'
2S:
XII/RITEUNT .ENIGO
ALLOW INTERRUPTS
CLR
flHPS
3S'
WA IT FOR A FLAG .
~SR
RO ,fI'WAITFLAG
NO FLAGS OCCURRED
ERROR
3
ERROR
4
INTERRUPT FAILED
CLEAR THE WAIT FOR INTERRUPT KEY
CLR
fI'WAITKEY
LOCK OUT THE WOR LD
MOV
H340,.NPS
WAIT FLAG OCCURRED?
~SR
RO,fI,FLAGS
ERROR
2
"READY" =0 " "XFEA REQe -0
"XFER REQ".1
BR
45
"READY·.1 a "ERROR"=O
ERROR
5
-READY"=1 & "ERROR".1
ERROR
2
NEED TO WRITE A BYTE ON TAPE
4$:
DEC
R2
BLT
5$
SR IF NO
CLR
RO
PICKUP BYTE FOR TRANSFER
6S:
BISB
O(Rl),RO
TRANSFER A BYTE TO THE TAIl
MOVB
RO,flTADB
CALCULATE CRC FOR THIS BYTE
~SR
PC,.NDO.CRC
INCREASE THE I~JEX
INC
6$+2
KEEP IT LESS THAN 4
BIC
rC3,6S+2
SETUP TO SERVICE THE INTERRUPT
MOV
NSERV,.TAVEC
BR
3$
LOOP
SAVE THE CRC WORD
5S:
MOV
·.NCRC.WD.4(Rl)
START A 'ILBS'
~SR
RO,fI'DO.CMD
XWRITEIINT .ENIIlSS
CLR
.,PS
ALLOW INTERRUPTS
WAIT FOR A FLAG
~SR
RO,fI'WAITFLAO
ERROR
3
NO FLAG
ERROR
4
NO INTERRUPT
WHAT FLAG IS SET?
~SR .
RO.flNFLAGS
NONE (. XFER REQ'·O '" 'J::EADY··O)
ERROR
l!
ERROR
:I
'XFER REQ'
RTI
"READY·
"READY· & "ERRORERROR
:I
SEO 0057
seQ 0058
TA •• MOTION TEST
CZTAD-D MACY11 30A(1052)
23-MAR-78 08:36 PAGE 58
23-MAR-78 08: 34
ROUTINE TO "READ" A RECORD
SEQ 0058
eZT ADO. P11
: : * .... * ** * .. '" .*.*** "''''* *>It. "'*******. **"' ..... ****'" ** ***$ "''''.''''''''' ."'. ">II(/: **
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
259,
2592
2593
2594
2595
2596
2597
2598
2599
2600
260'
2602
2603
2604
2605
2606
2607
2608
2609
26' a
2611
26'2
26'3
26'4
26'5
26'6
26'7
26'8
26'9
2620
262'
2622
2623
2624
2625
2626
2627
2628
2629
2630
263,
2632
2633
2634
010774
011000
011 006
011012
011016
011020
011024
01' 032
011 034
011036
011 040
011042
0" 046
011 052
011054
0" 060
01 '062
0' '066
0, '070
011 072
0" 076
011104
0" "
a
011112
011114
0"116
1 20
011122
011124
0" 1 26
0"
011130
011132
01" 36
011144
011146
011 1 52
0111 S4
011160
0" , 64
011170
011174
011176
011202
011204
011206
011214
011220
011222
011226
011232
011 236
011240
011242
011246
01,637
0' 2737
0' 7602
0627'6
0' 0200
0, 6000
016037
0' 220'
0, 2202
00300'
104011
005037
004037
000'05
005037
105011
004037
'04003
, 04004
005037
0' 2737
004037
'04002
000402
, 04005
0004'3
005302
00243'
005000
'5'500
110021
004737
0,2777
000743
0, 0237
00'4'4
0' 3746
005037
0' 6646
0' 6646
001204
0'5361
000000
000002
000034
000004
007304
001210
0'2222
0'2224
177776
0117'6
001254
000340
0'2014
177176
012'02
012340
170064
001166
001172
001172
000004
000004
104013
0' 2637
000002
, 04002
0'3737
004037
000124
111537
005037
004037
, 04003
104004
11 1 537
004037
00,,72
0'2222
012224
001212
001214
'77776
0117'6
001215
012014
;THIS ROUTINE WIll READ A RECORD FROM THE TAPE
T .READ: MOV
(SP) ,@NSAVPC
;SAVE THE PC OF THE CAll
MOV
HMXREAD,i>.MFUNC
;SET POINTER OF .ASCIZ MESSAGE
MOV
@(SP),R2
;GET THE READ LINK POINTER
ADD
#2, (SP)
; ADJUST FOR RETURN
MOV
R2,RO
;PICKUP AND SAVE THE 'CRC' THAT
MOV
WLNK,-RlNK1 (RO) ,RO
WAS CALCULATED ON THE WRITE
MOV
4(RO) ,RCRCO
DATA FOR THIS 8l0CK
MOV
(R2)+,R1
;GET ADDRESS OF BUFF.ER
MOV
I R2) +, R2
; GE T NUMBER OF BYTES
BGT
2$
;MAKE SURE NUMB~1 IS lEGAL
ERROR
11
; I llEGAl NUMBER OF BYTES
ClR
@I.CRC.WD
;ClEAR CRC WORD
.
2$'
JSR
RO,NDO.CMD
;GO START A "REAO"
XREAD lINT. EN I GO
; AllOW INTERRUPTS
ClR
@lHPS
3$:
; SET TERMINATOR I F ~AST BYTE
ClRB
(Rl)
:WAIT FOR A FLAG
JSR
RO,.NWAITFlAG
; NONE OCCURRED
ERROR
3
; NO INT ERRU PT
ERROR
4
;ClEAR THE WAJT ON INTERRUPT KEV
ClR
@HWAITKEY
; lOCK OUT All INTERRUPTS
MOV
H340,.HPS
; WHAT "lAG OCCURREO
JSR
RO,t'.FLAGS
; 1UNKNOWN FLAG
ERROR
2
; "XFER REQ"
BR
4$
ERROR
5
; "READY"
: "READY N WITH "ERRORIl
8R
8$
; READ A BYTE?
DEC
R2
4$:
; BR I F NO
BlT
5$
ClR
RO
BIsa
@TADB,RO
; READ ONE BYTE
; AND PUT IT IN. THE BUFFER
MOVB
RO,(R1)+
; CALCULATE CRC FOR THIS BYTE
JSR
PC,iI'HOO.CRC
; SETUP TO SERVICE THE INTERRUPT
MOV
HSER',@TAVEC
; lOOP
BR
3$
; GET NUMBER OF BYTES NOT READ
S$:
MOV
R2,PNSTMPO
;SKIP OUT IF 0
BEQ
95
MOV
P#SESCAPE,-(SP)
: SAVE THE ESCAPE ADDRESS
CLR
(oW$ESCAPE
;NO eSCAPE DESIRED
; COpy THE 5T ACK
MDV
4{SPj ,-(SP)
MOV
4(SP) ,-(SP)
ERROR
13
; BLOCK READ SHORT
MOV
(SP)+,IIH$ESCAPE
; RESTORE ESCAPE ADDRESS
RT!
: LEAVE
ERROR
2
: ERROR OCCURRED DURING READ
95:
MOV
il'NCRC. WD, PHRCRC1
;SAVE THE CALCULATED CRC
5$:
:00 AN IlBS
JSR
RO,ClUDO.CMD
XREADI INT. EN I I LBS
; SAVE 1 ST BYTE OF CRC FROM TAt I
Move
PTADB,.NRCRC2
;AlLOW INTERRUPTS
ClR
.HPS
;WAIT ON FLAG
"SR
RO ,IINWAITFLAG
; NONE OCCURRED
ERROR
3
; INTERRUPT FAI lED
ERROR
4
;SAVE 2ND BYTE OF CRC FROM YAI1
Move
PTADB,RCRC2+1
; CHECK F ~AGS
RO ,IPNf~AGS
JSR
TA"
MOTION TEST
CZTAO-D MACY1! 3DA{ '052)
23-MAR-78 08'36
PAGE 59
CZTADD.P11
23-MAR-78 08:34
ROUTINE TO 'REAl)" A RECORD
2635
2636
2637
2638
2639
2640
264,
2642
2643
2644
2645
011252
011254
011256
011260
0,,264
011 266
011 270
011276
011300
011302
, 04002
104002
000002
032714
001401
104002
032777
001.001
.04012
000002
ERROR
ERROR
RTl
037000
000020
167642
65:
7$:
BIT
BEQ
ERROR
BIT
BNE
ERROR
RT!
2
seQ 0059
seQ 0059
; UNKNOWN FLAG
.2
; "'XFER REQM
: "READY"
HlEADER I WRTLOCKI FGAPI T1MERR !OFFLINE ,PTACS
6$
; BR IF CRC ERROR
2
; ERROR OCCURRED
NSW04,PSWR
; IGNORE CRC ERRORS?
75
; BR I F YES
1a
; ' READY' AND "CRC ERROR
: IT WAS A CRC ERROR AND wE ARf IGNORING THEM
SO RETURN TO CALLER
23-MAR-78 08:36
PAGE 60
CZTAO-O MACVll 30A( 1052)
TAll MOTION TEST
ROUTINE TO '8ACK-SPACE-FILE-GAP'
CZTADD.P11
23-MAR-78 08:34
SEQ 0060
SEQ 0060
; : ***'" "'''' *' *'" **>11"'*"'**** •• *'" ** **.*-. >II.'" ."'*"' •••• "'****". *'" **111*"'*'" $ • • **~*
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
011336
011340
011344
011346
011 350
011352
011354
011360
011362
2564
011264
011637
012737
004037
000107
005037
004037
104003
10400.
004037
104002
104002
000401
104002
032714
001401
000002
1040CS
2665
2666
2667
2668
2669
2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
26BO
2681
011 366
011372
011400
011404
011406
011412
011416
011420
011422
011426
011430
011432
011434
011637
012737
004037
00011 1
005037
004037
104003
104004
004037
104002
104002
000002
104002
011304
011310
011316
011322
011324
011330
011334
001204
015433
012224
007304
177776
011716
012014
004000
;THIS ROUTINE WI LL 8ACK SPACE ONE FILE GAP
T.BSFG: MOV
(SP),a?NSAVPC
; SAVE PC OF CALL
MOV
NMXBSFG.ilNMFUNC
; SAVE POINTER OF • ASCIZ NAME
1$:
uSR
RO. tl#OO. CMO
;START A "BSFG"
XBSFGIINT.EN!GO
CLR
a?PS
; ALLOW INTERRUPTS
JSR
;WAIT ON FLAG
RO."'.WAITFLAG
ERROR
3
;NO FLAG
ERROR
4
; FLAG OIDN'T INTERRUPT
uSR
RD .... FLAGS
: FINO OUT WHAT FLAG OCCURRED
ERROR
; UNKNOWN
2
ERROR
2
;"XFER REQ"
BR
2$
;"REAOY"
ERROR
2
; "READY" & "ERRORII
2$:
BIT
• FGAP .liITACS
;IN A FILE GAP?
BEQ
3$
;BR IN NO
RT!
;GO BACK
3$:
6
; "BSFG" CION'T STOP IN A FILE
~RROR
; ; I): >!t '"
001204
015457
012224
007304
177776
011716
012014
*** **** *.* ** '" $:" ** .. 'II. **** '" '" .***** '* '* ** '"
",oil
$'
>Ie ",:$
*** *** ** "" ****** ••
;THIS ROUTINE WILL BACK SPACE ONE BLOCK GAP
T .BSBG: MOV
(SP) .@.SAVPC
; SAVE THE PC OF THE CALL
MOV
UMXBSBG.@#MFUNC
;MESSAGE POINTER
1$:
uSR
RO,.'OO.CMD
:START A uBSBG"
XBSBGIINT.ENIGO
CLR
PUPS
ALLOW INTERRUPTS
uSR
RO .II'UWA ITFLAG
WAIT FOR A FLAG
ERROR
3
NO FLAG OCCURREO
ERROR
4
FLAG DIDN'T INTERRUPT
uSR
RO.II'HFLAGS
WHAT FLAG OCCUi,~ED
ERROR
2
UNKNOWN
ERROR
2
"XFER REO"
RTI
"READY" -- GO BACK TO USER
ERROR
2
"READYOI 4"ERROR IIf
23-MAR-78 08:36
PAGE 61
TA11 MOTION TEST
CZTAD-O MACY11 30A( I 052)
23-MAR-78 08:34
ROUTINE TO "SPACE-FORWARO-FILE-GAP"
CZTAOD.Pll
2682
2683
2684
2685
2686
26B7
26B8
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703
2704
2705
2706
2707
270B
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720
"'* » '* * ** "'*
FORWARD FOR ONE FILE
; ; 1&:" 11<" '* * ",$I * * >I< ** '* * *' '" *. '" *',. ** * '" >I< 1(1
011436
011442
011450
011454
011456
011462
011466
011470
011472
011476
011500
011502
0.11504
011506
011512
011514
011516
011637
012737
004037
000113
005037
004037
104003
104004
004037
104002
104002
000401
104002
032714
001401
000002
104006
011520
011524
011532
011536
011540
011544
011550
011637
012737
004037
000115
005037
004037
104003
104004
004037
1 04002
104002
000002
005737
002001
000002
104002
001204
015366
012224
007304
177776
011716
012014
004000
011552
011 554
011560
011562
011564
011566
011572
011574
011576
177776
011716
01:1:014
001246
007304
III",
:THIS ROUTINE WilL SPACE
T .SFFG: MOV
(SP) .@.SAVPC
MOV
.MXSFFG .... MFUNC
IS:
uSR
RO .PNOO. CMO
XSFFGIINT.ENIGO
@,PS
CLR
uSR
RO .... WAITFLAG
ERROR
3
ERROR
4
uSR
RO .IIiNFlAGS
ERROR
2
ERROR
2
BR
2$
ERROR
2
2$:
BIT
HFGAP .@TACS
BEQ
3$
RTI
3$:
ERROR
6
; ; >I< '"
001204
015411
012224
GAP
* "' •• ". '" >I< .*>/I1i! *** ** *' '" ** **
>I<
1(1 '"
ojI1<" '" '" '"
SEQ 0061
SEQ 0061
>I< '"
4<
"'* .. '* * '" >I< '*
>$
0/:1 *$$$131 $
GAP
; SAVE PC OF CALL
; POINTER TO .ASCIZ MESSAGE
;START A "SFFG"
; ALLOW INTERRUPTS
;WAIT FOR A FLAG
: FLAG FAI LED TO OCCUR
; FLAG OION' T INTERRUPT
; WHAT FLAG OCCURRED
;UNKNOWN
; IIXFER REQ)!
;"READY"
; "READY II AND tlERROR"
;010 'SFFG' STOP IN A 'FILE GAP'?
; 8R I F NO
;RETURN TO CALLER
GAP
:~SFFG" DIDN'T STOP IN A FILE
** *** of' "'". **:to '" '" -'I< * *$ ***** '" *$'~;*$* $$
>01
:THIS ROUTINE WILL SPACE FORWARD ONE BLOCK GAP
T.SFBG: MOV
; SAVE PC OF CALL
ISP) .""SAvpe
MOV
NMXSFBG •• NMFUNC
; POINTER TO .AselZ MESSAGE
1$:
uSR
RO .... OO.CMO
;START A 'SFBG'
XSFBGIINT. ENIGO
CLR
IliHPS
ALLOW INTERRUPTS
uSR
WA IT FOR A FLAG
RD ••• WAlTFLAG
ERROR
3
NO FLAG
ERROR
4
NO INTERRUPT
uSR
FIND OUT WHAT flAG
RO."HFLAGS
ERROR
2
UNKNOWN
ERROR
2
"XFER REQ III
IlREADYIl
RTI
TST
i'UASKKEY
RUNNING UNDER MANUAL LOOPING?
BGE
2$
BR I F NO
RTI
RETURN
2S:
ERROR
2
"READY' AND 'ERROR'
PAGE 62
23-MAR-78 08:36
CZTAD-O MACYll 30A! 1052)
TAll MOTION TEST
ROUTINE TO REWIND THE TAPE
23-MAR-78 08:34
CZTADD. Pl1
2721
2722
2723
2724
2725
2726
2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
: ; >I<
011600
011604
011612
011616
011637
012737
004037
007304
104001
011620
011622
011624
011630
011632
011636
104001
000411
005777
001406
032714
011640
011644
005077
104001
004037
000117
005037
004037
104003
011646
011652
011654
011660
011664
001204
015344
012014
167426
020000
001403
011666
104004
011670
011674
011676
011700
011702
011704
0117'0
011712
011714
004037
, 04002
104002
000401
104002
032714
001401
000002
104007
167412
012224
177776
011116
012014
020900
SEQ 0062
SEQ 0062
** '" '" "'!It* >I< *******"' •• ****",***.$.*"'* *$10<***.*** ... * .>It.* * ••• ."**", •• $*,,,.
:THIS ROUTINE WILL REWIND THE TAPE
T .RWND: MDV
(SP),i>HSAVPC
NMXRWND .ClHMFUNC
MOV
uSR
RO ,PI/FLAGS
ERROR
1
ERROR
1
BR
1$
TST
ClRWDFLG
1$
BEQ
#LEADER,IPTACS
SIT
BEQ
1$
CLR
IJRWQFLG
ERROR
1
1$:
uSR
R·O,'I'NDO.CMD
XRWNO lINT. EN I GO
~#PS
CLR
JSR
AO ,.HWAITFLAG
ERROR
3
4
ERROR
uSR
RO •• HFLA\lS
ERROR
2
ERROR
2
BR
2$
ERROR
2
2$:
BIT
#LEADER, "TACS
3$
BEQ
SAVE PC OF CALL
POINTER TO .ASCIZ MESSAGE
CHECK TItE FLAGS
NO FLAGS
"XFER REO"
NORMAL RETURN
WAS LAST FUNCTION A REWIND?
SR IF YES
ON CLEAR LEADER?
BR IF NO
ALLOW THIS ERROR ONLY ONE TIME
ON CLEA.R LEADER BUt SHOULDN'T BE
GO ST'ART A • ~EWIND'
ALLOW INTERRUPTS
WAIT ON FLAG
NO F tAG OCCURREII
NO IN1'ERRU,PT
WHA T FLAG OCCURRED
UNKNOWN
"XFER REQ'
R READylt
"READY" & ItERRORii
ON 'CLEAR LEADER"?
BR IF NO
YES---RETUliN
• REWIND' FAI LED TO GO TO 'CLEAR LEADER'
RT!
3S:
ERROR
23-MAR-7B 08:36 PAGE 63
TA', MOTION TEST
eZTAO-D MACYl1 30A( 1052)
eZIADD. P11
23-MAR-76 oa:34
ROUTINE TO WAIT FOR A ;LAG
2750
275,
2752
2753
2754
2755
2756
2757
2758
2759
2750
276'
2762
2763
2764
2765
2766
2767
2768
2769
2770
277,
2772
2773
2774
2775
2776
2777
277B
2779
; ; * *'********.* •••• "''''***.''' •• $$11/1''' • •
$ •••
SEQ 0063
SEQ 0063
'''***$'''' ••• $$$$.$ • • $$$$.*$$$$1$1
; THIS ROUTINE IS USED TO WAIT ON A FLAG
;CALL:
uSR
RETURN
RETURN
NORMAL
011716
0117'6
011722
011730
005037
013737
032777
011736
001403
011740
012737
011746 032714
011752 001007
011154
005237
011760
001372
011762 005337
011766
100367
011770
000405
011772
005720
011774 005737
012000
001401
012002 005720
012004 000200
012006 . 000000
0'2010 000000
012012 000000
012006
012012
000040
177777
000240
DlaOIO
167202
WAITFLAG:
CLR
MOV
BIT
BEQ
MOV
001254
1$:
012006
012010
2$:
001254
BIT
BNE
INC
SNE
DEC
BPL
BR
TST
TST
SEQ
TST
RTS
3S:
LOCNT:
0
HleNT:
0
MAXCNT: 0
RO,i>HIIIAITFLAG
FOR NO FLAGS
FOR NO INTERIWPT
RETURN
LOCNT
MAXCNT, HICHT
NSW05,i>SWR
1$
#-1 ,WA lTKEY
#TR.REQI READY ,I!'TACS
2$
LOCHT
1$
HICNT
1$
3$
(RO) ...
WAlTKEV
3$
(RO)+
RD
; ZERO THE LOlli caUNTER
: SET THE HIGH GO~NTER TO MAX. COUNT
: RUNNING WITH INTERRUPTS?
: BR I F YES
: SET THE INTERRUPT OCCURRED F.lAG
:TEST FOR FLAGS
:BR IF A FLAG IS UP
: COUNT THE Lillo! COUNTER
: LOOP I F NOT ZERO
:COUT THE HIGH COUNTER
: LOOP IF NOT NEG.
i LEAVE
; INCREMENT THE RETURN ADDRESS
: LOOK AT THE WAIT ON INT. KEY
: BR I F NOT SEt
; I NCRli,MENT THE RETURN ADDRESS
:RET\!RN TO USER
SEO 00114
TAI1 MOTION TEST
CZTAD-D MACYlI 30A(1052) 23-MAR-78 08:36 PAGE 64
CZTADD.Pl1
23-MAR-78 08:34
ROUTINE TO EXAMINE THE FLAGS
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796
2797
279B
2799
2BOO
2801
2802
2B03
2B04
2805
2B06
2B07
280B
2809
2Bl0
2Bll
2B12
;:
."'
.............................................................
; THIS ROUTINE IS USED TO DETERMINE WHAT FLAG IS SET
;
;CALL:
J5R
RETURN
RETURN
RETURN
RETURN
012014
012020
012022
012024
012026
012030
012032
012040
012042
012044
012046
012052
012056
012062
012064
012066
012070
012072
012074
012076
012100
032714
001427
005720
105714
100424
005720
032777
001414
010046
010146
013700
013701
062700
005501
001374
012601
012600
005714
100001
005720
000200
FLAGS:
000240
000100
167100
001264
001266
000001
BIT
BEO
TST
TSTB
BMI
TST
BIT
BEO
MOV
MOV
MOV
MOV
1$:
ADD
ADC
BNE
MOV
MOV
3S:
TST
BPL
TST
LVFLAG: RTS
RO,.,NFLAGS
FOR UNKNOWN FLAG
FOR "TRANSFER REOUEST'
FOR "READY"
FOR "READY' " 'ERROR'
NTR. REO 1READY • .,TACS
;CHECK FOR "XFER REO' OR 'READY'
LVFLAG
; BR IF NO FLAGS
(RO)+
; INCREMENT RETURN ADDRESS
.,TACS
;CHECK FOR 'XFER REO'
LV FLAG
;BR IF SET
(RO)+
; INCREMENT RETURN ADDRESS
NSW06,.,SWR
:STALL?
3$
;BR IF NO
; ; PUSH RO ON STACK
RO.-(SP)
Rl,-(SP)
;;PUSH Rl ON STACK
;GET STALL TIME
II'STALL,RO
II'STALL+2.Rl
; STALL
Nl.RO
Rl
1$
; LOOP
;;POP STACK INTO Rl
(SP)+.Rl
(SP)+,RO
,;POP STACK INlO RO
IITACS
;IS 'ERROR' SET
LVFLAG
·;BR IN NO 'ERROR"
(RO)+
;INCREMENT RETURN ADDRESS
RO
TAIl MOTION TEST
CZTAD-O MACYll 30A( 1052) 23-MAR-1B OB:36 PAGE 65
23-MAR-78 08:34
CZrADD.Pl1
ROUTINE TO CALCULATE THE CRC
)
2B13
2B14
2815
2B16
2B17
281B
2B19
2B20
2821
2B22
2B23
2B24
2B25
2B26
2B27
2B2B
2B29
2B30
2B31
2832
2B33
2834
2B35
2B36
2B37
283B
2B39
2840
2B41
2B42
2B43
2844
2845
2B46
2B47
2B4B
2B49
2B50
2851
2B52
2B53
SEO 0084
SEO 00B5
SEO 0085
; ; . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1\1 • • • • • • • • • • • • • • • • • • •
;THIS ROUTINE WILL CALCULATE THE CRC
;CALL:
JSR
PC.IINDO.CRC
012102
012102
012104
012106
012110
012112
012114
012122
012126
012130
012132
012136
012140
012142
012144
012146
012150
012152
012154
012156
012162
012164
012166
012170
012172
012174
012176
012200
012202
012206
012210
012212
012214
012216
012220
012222
; RO-l BYTE OF DATA
DO.CRC:
010046
010146
010246
010346
010446
012737
013703
005001
010302
042702
006000
006101
010104
040204
040102
050402
006002
10:J006
012701
010104
040304
040103
050403
006003
005327
000000
003352
010337
012604
012603
012602
012601
012600
000207
000000
000010
012222
012176
IS:
171118
040002
2S:
3$:
012222
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOV
BIC
RDR
ROL
MOV
SIC
BIC
BIS
ROR
BCC
MOV
MOV
BIC
BIC
BIS
ROR
DEC
0
BGT
MOV
MOV
MOV
MOV
MOV
MOV
RTS
CRC.WD: 0
RO.-(SP)
Rl.-(SP)
R2.-(SP)
R3,-(SP)
R4.-(SP)
'B. ,3$
CRC.WD.R3
Rl
R3.R2
rCBllOO. A2
RO
Rl
Rl.R4
R2,R4
Rl,R2
R4,R2
R2
25
NBIT141 BIT01.Rl
R1,R4
R3.R4
Rl,R3
R4.R3
R3
(PC)+
1$
R3,CRC.WD
(SP)+, R4
(SP)+,R3
(SP)+.R2
(SP)+,Rl
(SP)+.RO
PUSH
PUSH
PUSH
PUSH
PUSH
RO ON STACK
Rl ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
;MAKE EIGHT ITERATIONS
;PICKUP THE CRe WORD
;GET THE PARTIAL CRC WORD
;STRIP AWAY EVERYTHING BUT BITOO
; PULL OFF THIS BIT
;AND .SETUP TO XOR IT
; FORM THE XOR OF 'Rl' AND 'Ra'
;RESULTS TO 'R2'
; FORM THE XOA OF ·R1· AND .R3;RESULTS TO 'R3'
;BR IF MORE BITS TO DO
POP
POP
POP
POP
POP
STACK
STACK
STACK
STACK
STACK
INTO R4
INTO R3
INTO'R2
INTO Rl
INTO RO
PC
;CRC WORD
TAIl MOTION TEST
CZTAo-o MACYll 30A( 1052)
23-MAR-78 08:36 PAGE 66
CZT ADD. PII
23-MAR-78 09: 34
ROUT INE TO PERFORM TKe REQUESTED FUNCTION
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2667
2668
2869
2670
2871
2"72
2673
2874
2875
2676
2817
2678
2879
2880
2881
2882
2883
2884
2885
2886
2887
'2688
2889
2890
2891
2892
2893
2694
2895
2696
2897
; ; '" >11$
*' * **
>I< "',..
>II **$
*' .. $ $;-* .. >1:.* '" *.... *.:$1,. $. **. '" "' .. '* .. "' ...
SEQ 00611
** .. * $* * ... '*
>II • •
4!.
*'
,THIS ROUTINE WILL LOAD THE LOW BYTE OF TACS WITH THE DESIRED FUNCTION
,CALLI
JSR
RO,PHDO,eMO
DESIRED FUNCTIN
RETURN
012224
012226
012234
012236
012242
012250
012252
012256
012264
012270
012274
012276
012304
012306
012312
012320
012322
012324
012330
012334
012336
010146
012737
012001
042701
032777
001405
042701
012777
005037
032701
001403
012777
110114
032701
001403
032714
001375
005101
042701
010177
012601
000200
012340
012346
012354
012737
012777
000002
012356
012356
012362
011637
104014
001204
012314
000340
177776
177640
000040
166670
000100
012356
001254
000100
012340
166744
166724
000001
000040
177761
166722
DO.eMa: MOV
MOV
MOV
BIC
BIT
BEQ
BIC
Mav
4$:
CLR
BIT
BED
MOV
3S:
MOVB
BIT
BEQ
1$:
BIT
BNE
2$:
CaM
BIC
Mav
MOV
RTS
Rl,-(SP)
,SAVE Rl
#340,@NPS
,LOCK OUT ALL INERRUPTS
(RO)+,Rl
,GEt THE COMMAND
U"C,Rl ,STRIP AI\~Y JUNK
NSWOS,I!>5WR
,WITH OR WITHoui INTERRUPTS
4$
,6R IF WITH
HINT.EN,Rl
,CLEAR INTERRUPT ENABLE IF SET
NBAQ.lNT ,PTAVEC
,SETUP TO CATCH BAD INTERRUPT
>lAITKEY
,ZERO THE WAIT ON INTERRUPT KEY
NII'Ir.EN.RI
,RUmllNG WITH INTERRUPTS?
3$
,BR IF NO
USERV,.TAVEC
,SETUP TO SERVICE TH' INTERRUPT
R1 ,PT ACS
; LOAD THE C.O~"'ANO
NGO,RI
,IS GO ~IT tiff,;. '1'7
2$
,BR IF GO -a
~ ;EAOY ,II'T ACS
, iliA IT fOR "READY' TO CLEAR
Rl
U"C ,Rl
RI,fIIRWDFLG
(SP)+, Rl
RO
,SET OR CLEAR REWIND FLAG
,EXTRACT FUIICTlON BITS
'AN~ SAVE AS THE REWIND FLAG
,GET Rl ilACK
; RETURN to USER
; ; "'II< ***************** *.***********$ ...... ***************"' •• "" 4I*"'1t*****
;THIS ROUTINE WILL SERVICE ALL LEGAL INTERRUPTS
177777
001254
166654
SERV:
MOV
Mav
#-I,QNWAITKEY
HBADINT ,II'TAVEC
RT!
; ; '* * '** ** ** '" '* **** 10 **** * '* *$ $* ** "'* '"
. ,
:SET THE WAIT KEY
,SET TO CATCH II-LEGAL INTERRUPTS
010;$$
.110: .... 1(0 * *."'**>/1 "" 181 >1<$ • • >/1 "'. '" *** **>11 >II
:THIS ROUTINE WILL CATCH ILLEGAL INTERRUPTS FROM THE TAI1
BADIN!: MOV
ERRQR
(SP) ,PNSAVPC
*
; SAVE IIIHERE WE WERE AT
; I LLEGAL INTERRUPT OCCURRED
14
fA11 MOTION TEST
CZTAO-D Mp.CY11 30A(1052)
23-MAR-78 06:36 PAGE 67
CZTADD.P11
23-MAR-7B 08:34
11J$$$*'I'*"'*>I< MANUAL ADJUSTMENT ROUTINES
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
29"
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941
2942
2943
2944
2945
2946
2947
2948
2949
2950
2951
2952
2953
*. *.
SEQ 0066
SEQ 0067
**.If<.'''****
SEQ 0061
'*.
*.
; ; * '" "" I\l"$ * 18: >11.$ *** *'*' .. *'" ** '" "'* '" *** *':(1 >It • • '" 111** '" '" * .. '" "' •• *.* ** '" '" '" '" l1li . " ' . ** *'"
; ;". * * III "'''"$ '"
*' .. .- *'" >I< * '" *'" ** * '" **** ** ** ** '" '" '" >I< >It. !fI** * ** '" iii '" "' .... ** >II. **
>I<
>1< .. '" >I< 01<
,THE FOLLOWING ROUTINES CAN BE USED TO MAKE ADJUSTMENTS TO THE TU60
;NOTE:
HR. BEFORE USING ANY OF THE ROUTINES LOAD AND START AT 214 MU
," NOTE: IF USING SOFTWARE SWITCH REGISTER THE
PROGRAM MUST HAve BEEN STp.RTED 'AT
A
NORMAL STARTING ADDRESS FIRST SO THAT
TH£ AUTO-SIZING ROUTINE CAN SET u·p ADDRESS
176 AS
THE S.DFT'olA9E SWITCH
REGISTER
PLACE VALUE INTO 176
; ; * * ** $** II< iI<'I!l .$$*** •• *'"
$
; ; '" '" 18< $
012364
012370
012374
012400
012402
012410
012412
012416
012422
012424
012426
012432
012434
012436
012706
013704
013705
000005
012737
, 04422
11.2714
0327' 4
001110
000017
000040
001775
104412
032714
001774
000000
000752
020000
013106
001100
001220
001224
032714
000040
012444
000017
*_. *** *'*'
*. *
$*
** >11$ ******.>11
*.*.
*** ** ** •• ",oil. $: "'* ***'*
WR ITE Fl LE ,GAPS FROM "BOT' TO • EOT"
;START AT 220
,THIS ROUTINE CAN BE USED TO A~JUST THE "WRITE GAP MONO' AND
;THE "WRITE DELAY MONO M •
SR
004737
012706
013704
Q13705
000005
012737
104422
112714
** .. * ****.
** '" "' .. '" $~ ** III **** ** $ *$ "'" ** * ** >\I o$". "'** ****
WFGSUB: MOV
MOV
Mav
RESET
MOV
SELDRV
Move
100$:
BIT
BEQ
1$:
WFG
BIT
BEQ
HALT
; ;:$$
012440
012444
012450
012454
012460
012462
012470
012472
012476
>/I
*.
; ; ** **'" at '* "' .. * ** "'.*NSTACK,
** *",,,,,;1)1 *** .***,gr... *.. $$14"* '" '* **.* ..... ** ** *' *** "" .*'" **
SP
; KEEP THE STACK OUT OF THE
001100
001220
001224
012364
.!II. >11**
II< '"
Ii'NTACSL, TACS
Ii'NTADBL, TAOS
HWFGSUB,II'N$lPERR
NXRWNDIGO,fIITACS
HREAoY,li'TACS
1 DOS
HLEADER,@TACS
1$
WFGSUB
;WRlTE A FILE GAP
,AT "CLEAR LEADER'?
,BR IF NO
;STOP IF YES
; LOOP ON CONT.
$** *. '" '" *** **,. iii *** *$ $* ** •• '" "'. >I< ** "'$$* $" "'*** $$$***** ** *$****** ••
WRITE CONTINUOUS BLOCKS OF DATA
;START p.T 224
;THE PROGRAM WILL HALT THREE(3) TiMES
,AFTER EACH HALT SiT TtI& SWR AND PRESS CONTINUE
,HALT 1 --- SWR<7:0> • NUMBER OF BYTES P.If)l BLOCK
;HALT 2 -.,.- 5WR<7:0> • PATTERN DESIRED
;HALT 3 --- 5WR • OP~RATIONAL SWITCH SETTINGS
;THIS ROUTINE CAN BE USED TO ADJUST THE "GAP TIME MONO"
,THIS ROUTINE SUPPORTS THE $/w SWITCH REG FUNCTIONS
; ; ,.,!to. """::')0$ 41 "' •• $*$ • • ** >$I *$$ • • • '*.$
>I< 01< '" *' '~"I'
.'1"'''.
II< ** $"'$"
IIIRTSUB: JSR
PC,I'NSETBUF
,GET BLOCK SIZE AND PATTERN
MOV
HSTACK,SP
;KEEP THE STACK OUT OF THE WAY
WLDOP:
MOV
OIINTACSL,TACS
,SETUP THE TAli STATUS AND
MOV
t'MTADBL, TADS
;oATA BUFFER REGISTERS
RESET
,RESET THE WORLD
MOV
NIoILOOP,PHSLPERR ;SETUP THE LOOP ON ERROR p.oDRESS
;SELECT THE DRiVE
SELDRV
Move
NXR\ilNDIGO.@TACS
;SEND Tj\PE TO "flOT'
100$:
BIT
NREAO'r,IIITACS
;WAIT ON READY
***
001110
IIJAY
;SETUP THE TAIl STATUS AND
;DATA BUFFER REGISTERS
;RESET THE WORLD
,SETUP THE LOOP ON ERROR ADDRESS
;SELECT THE DRIVE
,SEND TAPE TO "BOT'
;WAlT ON REp.DY
.*.
.** •• *..
**
"'* '"
SEQ 0068
TAIl MOTION TEST
CZTAD-D MACYI1 30A( 1052) 23-MAR-78 08:36 PAGE 68
CZTADD.Pll
23-MAR-78 08:34
WRITE CONTINUOUS BLOCKS OF OATA
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
012502
012504
012510
012514
012516
012520
001775
104413
032714
001773
000000
000751
1$:
017042
020000
· ."'
,,
·
012522
012526
012532
012536
012540
012546
012550
012554
012560
012562
012566
012572
012576
012600
012602
012604
012606
012706
013704
013705
000005
012737
104422
112714
032714
001775
104414
012706
032714
001351
104423
017006
017042
000765
BEQ
WRlTE
BIT
BEQ
HALT
BR
012522
100S:
1$:
017006
001100
WLOOP
WRITE A BLOCK
AT 'CLEAR LEADER'?
BR IF NO
STOP IF "EOT'
LOOP IF CONT.
READ AND COMPARE CONTINUOUS. BLOCKS OF OAT A
:START AT 230
:THIS ROUTINE CAN BE USED TO ADuUST THE 'SIGNAL MONO'
: AND THE • THRESHOLD POT",
................................................................
001110
000017
000040
,WLNKX
HEADER,PTACS
IS
SEQ 0068
..............................................................
HOSUB:
001100
001220
001224
100$
020 11 00
·
MOV
MOV
MOV
RESET
MOV
SELDRV
MOVB
BIT
BEQ
READ
MOV
BlT
BNE
BLKCMP
RLNKX
WLNKX
BR
:KEEP THE STACK OUT OF THE WAY
:SETUP THE TAIl STATUS AND
:DATA BUFFER REGISTERS
:RESET THE WORLD
NRDSUB,.NSLPERR ;SETUP THE LOOP ON ERROR ADDRESS
: SELECT THE DRIVE
NXRWNDIGO ••TACS
:SEND TAPE TO 'BOT'
'REAOY,PTACS
:WAIT ON READY
100$
:READ A BLOCK
,RLNKX
: INn. IN CASE OF .ERROR
1ST loCK, SP
;AT 'CLEAR LEADER'?
ILEADER,.TACS
;BR IF YES---LOOP
RDSUB
:COMPARE THE READ AND WRITE BUFFERS
; LINK to THE READ BUFFER
; LINK TO THE WRlTE BUFFER
1$
'STACK, SP
PITACSL.TACS
.'TADBL, TADB
................................................................
i'
WRITE A FILE GAP ANO A BLOCK OF DATA FROM BOT TO EOT
:START AT 234
:THE PROGRAM WILL HALT THREE(3) TIMES
.
:AFTER EACH HALT SET THE SIIR AND PRESS CONTINUE
:HALT 1 --- SWR<7:0> • NUMBER OF BYTES PER BLOCK
:HALT 2 --- SWR<7:0> • PATTERN DESIRED
;HALT 3 --- SWR<15:0> • OPERATIONAL SWITCH SETTINGS
: THIS ROUTINE CAN BE USED TO ADuUST THE 'WRITE GAP MONO'
;AND THE 'GAP TIME MONO',
TAll MOTION TEST
CZTAD-D MACY11 301.(1052) 23-MAR-78 08:36 PAGE 69
ClTADD.Pll
23-MAR-78 08:34
WRITE A FILE GAP AND A BLOCK OF DATA FROM BOT TO EOT
2997
299B
2999
3000
3001
3002
3003
3004
3005
3006
3007
300B
3009
3010
3011
3012
3013
3014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
302B
3029
3030
3031
3032
3033
3034
3035
3036
3037
303B
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
SEQ 0069
:THIS ROUTINE SUPPORTS THE S/w SIilITCH REG FUNCTIONS
; ; ••• "' •••• ** •••••••••••••••••••••••••••••••••••••••••••••••••••••
012610
012614
012620
012624
012630
012632
012640
012642
012646
012652
012654
012656
012662
012664
01·2670
012674
012676
012700
004737
012706
013704
013705
000005
012737
104422
112714
032714
001775
104412
032714
001005
104413
032714
001767
000000
000745
013106
001100
001220
001224
012B14
001110
000017
000040
020000
017042
020000
WGPBLK: uSR
IoIGBLOP: MOV
MOV
MOV
RESET
MOV
SELDRV
MOVB
100$:
BIT
.BEQ
IS:
WFG
BIT
BNE
WRITE
BIT
BEQ
25:
!:tALT
BR
PC,PNSET8UF
'STACK.5P
PITACSL. TACS
PIT AD8l. TADB
.WG8LOP ••N5LPERR
• XRWND I GO. PTACS
.READY,.TACS
100S
NLEADER,.TACS
2S
,WLNKX
ILEADER ,PTACS
1$
WGBLOP
;GET 8LOCK SIZE AND PATTERN
;KEEP THE STACK OUT OF THE WAY
;SETUP THE TAll STATUS AND
; DATA BUFFER. REGISTERS
; RESET THE WORLD
: SETUP THE LOOP ON ERROR ADDRESS
: SELECT THE DRI VE
;SENO TAPE TO 'BOT'
:WAIT ON READY
:WRITE A FILE GAP
;AT "CLEAR LEADER'?
;8R IF YES
:WRITE A BLOCK
;AT 'CLEAR LEADER"?
;BR IF NO
;STOP AT -EOT·
;START OVER ON CONT.
; ;~ •••••• * ••••••• *••••••••• *•••••••••• ** •••• * ••••••••••...........
;:
012702
012706
012712
012716
012720
012726
012730
012734
012740
012742
012746
012752
012756
012760
012762
012764
012766
Q12770
012774
012776
012706
013704
001100
001220
013705
001224
000005
012737
104422
112714
032714
001775
.104414
012706
032714
001351
104423
017006
017042
104420
032714
001342
000761
012702
000017
000040
017006
001100
020000
READ AND COMPARE A BLOCK OF DATA AND A FILE GAP
;5TART AT 240
;THIS ROUTINE IS USED AFTER 'WRITE A BLOCK AND A FILE GAP' ROUTINE
; IT CAN BE USED TO ADuUST THE 'SIGNAL MONO', THE THRESHOLD POT"
;AND THE 'TAPE BLANK MONO',
...............................................................
RGPBLK: MOV
MOV
MOV
:~~ET
001110
100S:
1$:
020000
;;
SELDRV
MOVB
BIT
BEQ
READ
MOV
BIT
BNE
BLKCMP
RLNKX
WLNKX
SF8G
BIT
BNE
8R
ISTACK,SP
.ITACSL,TACS
.nADBL, TADB
NRGPBLK,.N$LPERR
·NXAWNDIGO.PTACS
'READY ••TACS
100S
,RLNKX
ISTACK,SP
#LEADER,SlTACS
RGPBLK
nEADER,.TACS
RGP6LK
IS
:KEEP THE STACK OUT OF THE WAY
;SETUP THE TAIl STATUS ANO
:DATA 8UFFER REGISTERS
;~~~~~ i~~ ~g~~DON
ERROR ADDRESS
; SELECT THE DRIVE
:SEND TAPE TO 'BOT'
;WAIT ON READY
:RE.r.o A BLOCK OF DATA
; KEEP OUT OF THE WAY
;AT 'CLEAR LEADER'?
:BR IF YES
: COMPARE THE READ AND WRITE BUFFERS
: LINK TO THE READ BUFFE~
: LINK TO THE WRITE BUFFER
:GET INTO FILE GAP
;AT 'CLEAR LEADER'?
;BR IF YES
; LOOP
...............................................................
SPACE FORWARD FILE GAP FROM 'BOT' TO 'EOT'
;START AT 244
;THIS ROUTINE CAN BE USED AFTER 'WRITE FILE GAP' FOR LOW SPEED
;SPACE FOWARO (TAPE BLANK MONO CAN 8E ADuUSTEO). OR AFTER READ OR
SEQ 0069
SEQ 0070
TAll MOTION TEST
CZTAD-D MACYll 30A(1052)
23-MAR-78 08:36
PAGE 70
CZHDD.Pl1
23-M.4R-78 08:34
SPACE FORWARD FILE GAP FROM "BOT" TO "EOT'
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
30?7
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
. 3095
3096
3097
3098
3099
3100
3101
3102
3103
SEC 0070
;WRITE A FILE GAP AND A BLOCK OF DATA FOR HIGH SPEED SPACE FORWARD
; (SIGNAL MONO CAN BE CHECKED),
013000
013004
013010
013014
013016
013024
013026
013032
013036
013040
013042
013046
013050
013052
012706
013704
013705
000005
012737
104422
112714
032714
001775
104417
032714
001774
000000
000752
; ; ****** * ** *** •• "' •• "'* "'* ** ** *** *** •• '" .... **"'."'* ***41 ** ******"'''' .*.* 1< '"
* ..
013110
013112
0131 :20
013122
013124
013124
013130
013132
013136
013140
013144
3104
013146
013152
013156
3105
3106
3107
3'08
013166
013170
013172
013160
005000
000000
022737
001001
'04405
157700
001.006
'05777
001402
012700
005200
010037
010037
000000
022737
001001
104405
NXRWNDIGD.@TACS
NREADY,I'TACS
100$
; SPACE INTO A FI LE GAP
JAT "CLEAR l:£ADER"?
; BR I F NO
;STOP AT "EOT'
; LOOP Ol'! CDNT.
* >\I ** '" '" * ** ** ** **
11\1
$
"'**"'''' '" $****
>I<
*'!II:
** "'* ** ** **"'."'*** $**>/1 .... ""
>II '"
BACK SPACE FI LE GAP
:START AT 250
: THIS ROUTINE CAN BE USED TO AD~UST OR CHECK THE 'SIGNAL MONO',
$: '" '" "',.,
"'>II ** II< **.'" * **
BIT
00< '" 1\1:
"'.* '* "' .. *** **"'*
NBSFGSB,@#SLPERR
$ESCAPE
HLEADER,I!ITACS
BEQ
HALT
IS
BR
BSFGSB
; ; * '" **111>:** '" *'"
013106
HSFFGSB,flIN$LPERR
SFFGSB
BSFGSB: RESET
MOV
CLR
SELORV
1$'
BSFG
020000
; KEEP THE STACK OUT OF THE WAY
;SETUP THE TA11 STATUS AND
;DATA BUFFER R'GISTERS
: RESET THE w,oRLO
;SETUP THE LOOP ON ERROR ADDRESS
;SELECT THE DRIVE
;SEND TAPE TO 'BOT'
;WAIT ON READY
#LEADER ,iI'TACS
1$
BEQ
HALT
BR
; ; '* !Ie *
USTACK, SP
flIHTACSL, TACS
il'#TADBL, TAOS
$="$
*'" "" ."'*** *'. **
$ **$$>1<
1$* '"
'* ** **' '* '" ** ***. ** **. *
$$
;RESET HiE WOIjLO
; LOOP ON ERROR ADDRESS
;DON'T ESCAPE ON ERROR
; SELECT THE DRIVE
;BACK SPACE A FILE GAP
;AT "CLEAR LEADER"?
:SR IF NO
;STOP AT BOT
; ST ART OVER ON' CONT.
~*
*** $** til >to *"'.>Ie ** '" '" ** ** "' •• * ****** **
SETBUF: ~~~UP RE~g AND WRITE LINKS FOR SUBROUTINES
000176
HALT
CMP
BNE
GTSWR
001140
NSIoIREG,SWR
20$
20$:
166010
166003
000376
1$:
2$:
017010
017044
000176
001140
BISe
BNE
T5T8
BEQ
MOV
INC
MOV
MOV
HALT
CMP
BNE
GTSI1IR
il'SWR,RO
2$
@S\OIR+1
1$
#376, RO
RO
RO,Ii>HRLNKX+2
RO.4i1NWLNKX+2
HSIoIREG,SWR
21 S
21$:
;OPERATOR PUTS BVTE COUNT IN THE SWR
;USING S/W SWITCH REG?
: NO- GET OUT
;GET VALUE
;CONTINUE
;PICKUP THE BYTE COUNT
; BR I F NON-ZERO
,CHECK IF GREATER THAN 377
,BR I F NO
,SET FOR MAX ALLOWED
;MAKE IT 377 OR 1
:SETUP READ LINK
;SETUP WRITE LINK
; SET PATTERN INTC THE SWR
;USING 5/'11 SWITCH REG?
: NO- GET OUT
:GET VALUE
; CONTINUE
23-MAR-78 08:36 PAGE 71
CZTAD-D MACVl1 30A( 1 052)
TA11 MOTION TEST
SeTUP READ AND WRITE LINKS FOR SUBROUTINES
23-MAR-76 08:34
CZTADD.P11
3109
013172
31'0
013176
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
013202
013204
013206
013210
013212
013214
013222
013224
013226
013226
017700
012701
11 0021
110021
110021
110021
000000
022737
001001
104405
000207
165742
017112
000176
001140
MOV
MOV
MOVB
MOVB
MOVB
MOVS
HALT
CMP
BHE
GTSWR
PSWR,RO
HWBUFX ,R1
RTS
PC
RO, (Rl)+
RO,(R1)+
RO, (Rl)+
RO,(R1)+
NSWREG.SWR
22$
2:1$:
;PICKUP THE PATTERN
; PICKUP FIRST AODRESS OF BUFFER
;FILL THE BUFFER
seT OPERATIONAL SWITCHES
USING S/W SWITCH REG?
NO- GET OUT
GET VALUE
CONTINUE
RETURN
SEQ 0071
SEQ 0071
TAll MOTION TEST
CZTAO-D MACYll 30A(1052) 23-MAR-78
CZTADD. PI 1
23-MAR-78 08:34
TYPE ROUTINE
3121
3122
3123
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
3140
3141
3142
3143
3144
3145
3146
3147
3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
31H
3162
3163
3164
3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
.S8TH
PAGE 72
SEQ 0072
SEQ 0072
TYPE ROUTINE
; ;.,,** •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
:-ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
:_THE ROUTINE ~ILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
:_NOTEl:
5NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
;_NOTE2:
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;oNOTE3:
SFILLC CONTAINS THE CHARACTER TO FILL AFTER.
;.
; .CALL:
; _1) USING A TRAP INSTRUCTION
;TYPE
,MESADR
;.OR
;*
;.
; ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING
TYPE
MESADR
;.
013230 105737
013234
100002
013236 000000
013240 000407
013242 010046
013244 017600
013250 112046
013252 00 I 005
013254 005726
013256 012600
013260 . 062716
013264 000002
013266 122716
013272 001430
013274 122716
013300 00 I 006
013302 005726
013304 104401
013306 001201
013310 105037
013314 000755
013316 004737
013322 123726
013326 001350
013~30
013746
013334
013340
013342
013346
013352
105366
002770
004737
105337
000770
001157
STYPE:
TSTB
SPL
HALT
SR
lS:
MeV
MeV
2$:
MOVS
BNE
TST
MOV
ADD
RTI
CMPB
SEQ
CMPB
BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV
SCHARCNT
2$
PC,STYPEC
$FILLC, (SP)+
2$
SNULL,-(SP)
DECB
BLT
JSR
DECB
BR
I (SP)
65
PC,STYPEC
SCHARCNT
7$
000002
000002
60$:
3S:
000011
45:
000200
013444
5S:
6S:
013400
001156
001154
7$:
000001
013400
013444
STPFLG
1$
;; IS THERE A TERMINAL?
;;SR IF YES
; ;HALT HERE IF NO TERMINAL
; j LEAVE
; ;SAVE RO
; ; GET ADDRESS OF ASCIZ STRING
; ; PUSH CHARACTER TO BE TYPED ONTO STACK
;;8R IF IT ISN'T THE TERMINATOR
;; IF TERMINATOR POP IT OFF THE STACK
; ; RESTORE RO
; ; ADJUST RETURN PC
; ; RETURN
;; BRANCH IF
3$
RO,-(SP)
02(SP) ,RO
(RO'l+,-(SP)
4$
(51')+
(SP)+,RO
N2,(SP)
NHT,(SP)
8$
NCRLF, (SP)
5$
(SP)+
;; BRANCH IF NOT
; ; POP EQUIV
; ,TYPE A CR AND LF
; ;CLEAR CHARACTER COUNT
; ; GET NEXT CHARACTER
; ;GO TYPE THIS CHARACTER
;;15 IT TIME FOR FILLER CHARS.?
;; IF NO GO GET NEXT CHAR.
; ;GET N OF FILLER CHARS. NEEDED
; ;AND THE NULL CHAR.
; ; DOES A NULL NEED TO BE TYPED?
;; BR IF NO--GO POP THE NULL OFF OF STACK
; ;GO TYPE A NULL
; ; DO NOT COUNT AS A COUNT
;
;LO~P
;HORIZONTAL TAB PROCESSOR
013354
013360
013364
013372
013374
112716
004737
132737
001372
005726
000040
013400
000007
8S:
9S:
013444
MOVB
JSR
BITB
aNE
TST
013376
013400
013404
013406
013414
013422
013424
013430
013432
013440
013442
013444
013446
000724
105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207
165544
000002
000015
165536
000002
013444
000012
000002
BR
$TYPEC: TSTB
BPL
MOVB
CMPB
8NE
CLRB
BR
1$:
CMPB
BEQ'
INc8
SCHARCNT: .WORD
STYPEX: RTS
.SBTH
;; REPLACE TAB WITH SPACE
; ; TYPE A SPACE
;;BRANCH IF NOT AT
;;TAB STOP
; ; POP SPACE OFF STACK
"
,(SP)
PC,STYPEC
17 ,SCHARCNT
9S
(SP)+
TAll MOTION TEST
CZTAD-D MACYtt 30A(1052) 23-MAR-78
CZTADD •• ' I
23-MAR-78 09:34
TYPE ROUTINE.
3177
3178
3179
31S0
3181
3182
31S3
31S4
3185
3186
31S7
31SS
3189
3190
3191
3192
3193
3194
3195
3196
3197
3198
3199
3200
3201
3202
3203
3204
3205
3206
3207
3208
3209
3210
321 I
3212
3213
3214
3215
3216
3217
3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
322B
3229
3230
3231
3232
08:36
08:36
2S
OSTPS
STYPEC
2(SP),OSTPB
NCR,2(SP)
1$
SCHARCNT
STYPEX
'LF,2(SP)
STYPEX
(PC)+
o
PAGE 73
; ,GET NEXT CHARACTER
; ,WAIT UNTIL PRINTER IS READY
;; LOAD CHAR TO BE TYPED INTO DATA REG.
; ; IS CHARACTER A CARRIAGE RETURN?
;; BRANCH I F NO
; ;YES--CLEAR CHARACTER COUNT
; ;EXIT
; ; IS CHARACTER A LINE FEED?
;; BRANCH I F YES
; ; COUNT THE CHARACTER
; ; CHARACTER .COUNT STORA;iE
PC
TTY INPUT ROUTINE
;; ••••••• ***"' ••••• *••• * .... ** ................ **.$ ............ 0* •••••
• ENA8L
LSB
; ; *** ••••.*** *.***
0~0176
013450
013456
013460
013464
013466
013472
013476
013502
013504
013512
022737
001074
105777
100071
117746
042716
022726
001062
123727
001456
013514
013520
013524
013530
013532
013536
013540
013542
013546
104401
104401
013746
104402
104401
005046
005046
105777
100375
014175
014202
000176
013550
013554
117746
042716
165372
177600
013560
013564
013566
013572
013576
021627
001005
104401
062706
000757
000025
9$:
014170
000006
20S:
001140
165460
165454
177600
000007
001134
014213
165376
000001
.* ••. ***** .*.* ... ******.****.****** ••••••••••••••
;.SOFTWAR·e SWITCH REGISTER CHANGE ROUTINE.
;>ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
; >SERVICE THE TEST FOR CHANGE IN SOFTWARE SlIIlTCH REGISTER TRAP CALL
;oWHEN OPERATING IN TTY FLAG MODE.
SCKSWR: CMP.
NSWREG,SWR
; ; IS THE SOH-SWR SELECTED?
BNE
15$
;; BRANCH I F NO
TSTB
OSTKS
; ; CHAR THERE?
BPL
15S
;;IF NO, DON'T WAIT AROUND
MOVB
Ii'STKB,-(SP)
;;SAVE THE CHAR
BIC
rC177,(SP)
;;STRIP-OFF THE ASCII
CMP
#7, (SP)+
;; IS IT A CONTROL G?
BNE
155
; ; NO. RETURN TO USER
CMPB
SAUTOB, N1
; ; ARE WE RUNNING IN AUTO-MODE?
BEQ
15$
;; BRANCH IF YES
,$MNEII/
-(SP)
-(SP)
OSTKS
7$
;
;
;
;
;
,
;
;
;
MOVB
BIC
OSTKB,-(SP)
rC177,(SP)
; ; PICK UP CHAR
; ;MAKE IT 7-BIT ASCII
CMP
SNE
TYPE
ADD
BR
(SP) ,'25
10$
,SCNTLU
TYPE
SGTSIIIA: TYPE
MOV
TYPOC
TYPE
19S:
CLR
CLR
TSTS
7S'
BPL
,SCNHG
,SMSWR
SWREG,-(SP)
le,sP
19S
; ECHO THE CONTROL-G ("G)
; TYPE CURRENT CONTENTS
; SAVE SII/REG FOR TYPEOUT
;GO TYPE--OCTAL ASCII(ALL DIGITS)
; PROMPT ~OR NEW II11R
; CLEAR COUNTER
; THE NEW SlIIR
; CHAR THERE?
; I F NOT TRY AGAIN
IS IT A CONTROL-U?
BRANCH I F NOT
YES. ECHO CONTROL-U ("U)
IGNORE PREVIOUS INPUT
LET'S TRY ~T AGAIN
SEQ 0073
SEQ 0073
TA" MOTION TEST
CZTAD-o MACY11 30A('0521
23-MAR-7S
ClTADD.P"
23-MAR-780S:34
TTY INPUT ROUTINE
3233
3234
3235
3236
3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249
3250
3251
3252
3253
3254
3255
3256
3257
3258
3259
3260
326'
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
021627
001022
005766
001403
013612
0,6677
0, 3614
013622
062706
013626 . 104401
013632
123727
013640
001003
012777
013642
000002
013650
004737
013652
021627
013656
013662
002420
021627
013664
003015
013670
042726
013672
013676 005766
001403
0'3702
006316
013704
013706
006316
013710
006316
005266
013712
013716 0566'6
013722
000707
104401
013724
013730
000720
013600
013604
013606
'0$:
000015
'CMP
BNE
TST
BEQ
MOV
ADD
TYPE
CMPS
BNE
MOV
RT!
JSR
CM?
BlT
CMP
BGT
BIC
TST
BEQ
ASL
ASL
ASL
INC
BIS
BR
000004
165316
000002
000006
00'201
001135
000001
000100
165274
"$:
14$:
15$:
16$:
013400
000060
000067
000060
000002
000002
177776
17$:
001'200
18S:
TYP.
.DSABL
BR
LSS
329,7.
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311
33'2
3313
3314
3315
3316
3317
33'8
3319
3320
3321
3322
. 3323
3324
3325
3326
3327
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
334'
3342
3343
3344
SEQ 0074
PAGE 74
(SP I, #15
16$
4(5P)
11$
2(SPI.eoSWR
H6,SP
,$CRLF
$INTAG.Hl
15$
Hl00,Il'STKS
SEQ 0074
: IS IT A ?
: 8RANCH I F NO
;YES. IS IT THE FIRST CHAR7
: 8RANCH I F YES
: SAVE NEW SWR
:CLEAR UP STACK
i ECHO AND
; RE-ENABLE TTY KBD INTERRUPTS?
: 8RANCH I F NOT
: RE-ENABLE TTY KSD INTERRUPTS
i RETURN
; ECHO CHAR
;CHAR < 07
; BRANCH I F YES
;CHAR > 71
;BRANCH IF YES
;STRIP-oFF ASCII
: IS THIS THE FIRST CHAR
: BRANCH I F YES
; NO. SHI FT PRESENT
CHAR OVER fo MAKE
ROOM FOR NEW ONE.
; KEEP COUNT OF CHAR
;5ET IN NEW CHAR
;IlET THE NEXT ONE
PC,STYPEC
(SP),#60
lS$
(SPI,N67
lS$
#1;0, (SP) ...
2(SP)
17$
(SP)
(SP)
(S?)
2(SP)
-2(SP), (SP)
7$
, SQUES
2Q$
; TYPE ?
:SIMUlATE CoNTROL-U
; ; *' *' * ** >I< ** '" * **"'* .. $*$ * * * ***** *>1'< *$ '" >II >I< * "'* *' >It..., >I< "" *' * '" "" *** $>1< *** Ii'
>$I
!(It$"' • •
*
1[0:
'*'
; _THIS ROUTINE WI Ll INPUT A SINGLE CHARACTER FROM THE .TTY
i *CAL\,.:
; ;INPUT A SINGLE CblARAGTER FROM THE TTY
RDCHR
;
; :CHARACTER IS ON THE STACK
RETURN HERE
;; WITH PARITY BIT STRIPPED OFF
:
"
:"
"
0,3732
0'3734
0'3742
013746
013750
013756
013164
013772
0'3774
014000
014002
014006
014012
014016
014020
0,4022
014030
011646
016666
'05777
100375
117766
042766
026627
000004
165176
000002
165172
177600
000004
000004
000004
000023
$ROCHR: MOV
MOV
1$:
TSTB
BPL
MOVe
alc
CMP
BNE
TSTB
SPl
001013
105777
100375
117746
042716
022627
001366
000750
026627
002407
25'
165144
Move
'65140
177600
000021
000004
00Q140
BIC
CM?
SNE
SR
CMP
3S:
BLl
(SP)'-(SP)
4(SP) ,2(SP)
Il'STKS
1$
Il'STKS, 4 (SP)
#"C<177>, 4( SP)
4(SP),N23
3$
@STKS
2$
@$TKS,-(SP)
rel77,(SP)
(SP)+,H21
2$
1$
4(SP),9140
4$
TAlI MOTION TEST
CZTAD-O MACV1t 3010.(1052)
23-MAR-78
eZTADD.PIl
23-MAR-'/808:34
TTY INPUT ROUTINE
3289
3290
3291
08:36
014032
014040
014042
014050
026627
003003
042766
000002
000004
000175
000040
000004
CMP
SGT
BIC
RTI
4$:
; ;*
$$'"
08:36
::PUSH DOWN THE PC
; ; SAVE THE PS
;;WAIT FOR
; i A CHARACTER
i ; READ THE TTY
: :GET RID OF JUNK IF ANY
;;IS IT A CONTROL-51
i ; BRANCH IF NO
: :WAIT FOR A CHARACTER
; ; LOOP UNTI l ITS THERE
: ;GET CHARACTER
; :MAKE IT 7-BIT ASCII
: ; IS iT A CONTROL-Q?
;; IF NOT DISCARD IT
; : YES, RESUME
;: IS IT UPPER CASE?
; ; BRANCH I F YES
SEQ 0075
PAGE 75
SEO 0075
4(SP) ,Hl1S
:: IS IT A SPECIAL CHAR?
: ,BRANCH I F YES
: :MAKE IT UPPER CASE
; :GO BACK TO USER
4$
H40,4(SPJ
1jI1jI:****Ji>>!>,!,$************o!I$$********"'-. 0): "'*"'****** $",,,*$ • • $t.*$$$$
;_THIS ROUTINE WILL INPUT A STRING FROM THE TTY
: "'CALL:
ROLIN
RETURN HERE
014052
014054
014060
014064
014066
0'4070
0,4072
014076
014100
014104
0'4106
014112
014116
014122
014124
014130
014134
014136
014140
014146
014154
014156
014157
014160
014170
014175
0'4202
0142' 0
014213
0'4220
010346
012703
022703
SRDLlN' MOV
MQV
1$:
014160
014170
as:
101405
104407
112613
1227'3
001003
104401
000763
11 '337
104401
, 22723
do 1356
105063
'04401
0, 2603
011646
016666
012766
000002
000
000
000010
052536
'36
005015
020075
040
036440
lOS:
000177
4$:
001200
WSTTYIN+8. ,R3
45
Mova
(SP)+, (R3)
#177, (R3)
CMPS
BNE
tYPE
: ;SAVE R3
; :GET ADDRESS
; ;SUFFER FULL?
;iBR IF YES
; : GO READ ONE CHARACTER FROM THE TTY
HSTTYlN,R3
; iGET CHARACTER
,; IS IT A RUBOUT
::SKIPIFNOT
i ;TYPE A '1'
; ;CLEAR THE SUFFER AND lOOP
; ; ECHO THE CHARACTER
35
,SQUES
1$
(R3),9S
020122
BR
MOVS
TYPE
CMPB
SNE
ClRB
TYPE
MOV
MOV
MOV
MOV
RTI
9$:
.BYTE
.BYTE
STTYIN: .SlKB
SCNTLU: .ASCIZ
$CNTlG' .ASCIZ
SM5WR:
.ASCIZ
053505
SMNEW:
• ASCII
.5BTn
READ AN OCTAL NUM~ER FROM THE TTY
000015
177777
001202
oa0002
000004
005015
000
006507
053523
000012
000
047040
000040
R3,-(SP)
eMP
BlOS
RDCHR
3S:
014156
014156
000004
014160
; : INPUT A STRING FROM THE TTY
; ,ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
: :TERMINATOR WILL SE A BYTe OF ALL D'S
,95
#15, (R31+
: ; CHECK FOR RETURN
;; LOOP I F NOT RETURN
: : CLEAR RETURN (THE 15)
2$
-1 (R3)
,$LF
; ;TYPE A LINE FEEQ
; ; RESTORE ~3
; : ADJUST THE STACK AND PUT ADDRESS OF THE
, ,
FIRST ASCII CHARACTER ON IT
(SPJ+,R3
(SP) ,-IS?)
4(SP) ,2(S?)
N$TTYIN,4(SP)
: ; RETURN
; ; STORAGE FOR ASCII CHAR. TO TYPE
o
o
s.
rU/<12>
i; ;~~~~~~~:T~R
BYTES
CONTROL
rG/<15><12>
: ;CONTROL· 'G'
<15><12>/SwR o
I
NEW.
FOR TTY INPUT
IIUI!
I
I
""*
i ; $***********.**"'*."'****011$***'11»$ .*~**$*$$.***."""'** **~*,*,***"'*$$
;*THIS ROUTINE WILL READ AN OCTAL (ASCIl) NUMBER FROM THE TTY AND
;*CHANGE IT TO BINARY.
..-
;,*CAlL:
;
:
;
014224
014226
0,4234
014236
014240
011646
016666
010046
010146
010246
000004
000002
ROOCT
RETURN HERE
$ROOeT: MOV
MOV
MOV
MOV
MOV
(SP),-(SPI
4(SP) ,2(SP)
RO,-(SP)
Rl,-(SP)
R2.-(SP)
;READ AN OCTAL NUMBER
; LOW ORDER SITS ARIf ON TOP OF THE STACK
;HIGH OROER SITS A~E IN $HIOCT
PROVIDE SPACE FOR THE
INPUT NUMBER
PUSH RG ON S T A€K
PUSH R1 ON STACK
PUSH Rll ON 5-TACK
SEQ 0076
23-MAR-78 08:36 PAGE 76
CZTAD-D MACY', 30A( ,052)
TA" MOTION TEST
READ AN OCTAL NUMBER FROM THE TTY
23-MAR-78 08:34
ClTADD.P"
3345
3346
3347
3348
3349
3350
335'
3352
3353
3354
3355
3356
3357
3358
3359
3360
336,
3362
3363
3364
3365
3366
3367
0'4242
0,4244
014246
0'4250
014252
014254
0'4256
014260
014262
0'4264
0'4266
0'4270
0'4272
0'4276
014300
0'4302
0'4304
014310
014314
014316
014320
014322
014324
'044'0
012600
00500'
005002
"2046
00'4,2
00630'
006102
00630'
006'02
00630'
006'02
042716
06260,
000764
005726
010'66
010237
012602
012601
012600
000002
000000
'$:
RDLlN
MOV
ClR
ClR
2$:
Move
BEQ
ASl
ROl
ASl
ROl
ASl
ROl
BIC
ADD
BR
TST
3$:
MOV
MOV
MOV
MOV
MOV
RTI
SHIOCT' ,.IoIORD
'77770
000012
0,.4324
(SP)+,RO
R'
R2
(RO)+,-(SP)
3$
Rl
R2
Rl
R2
Rl
R2
'-C7, (SP)
(SP)+,Rl
2$
(SP)+
Rl,12(SP)
R2,SHIOCT
(SP)+,R2
(SP)+,Rl
(SP)+,RO
0
SEQ 0078
;; READ AN ASCIZ LINE
;;GET ADDRESS OF ,ST CHARACTER
; ;ClEAR DATA WORD
;; PICKUP THIS CHARACTER
;; IF ZERO GET OUT
;; .2
; ;*4
; ;*8
STRIP THE ASCI! ~UNK
ADD IN THIS DIGIT
lOOP
CLEAN TERMINATOR FROM STACK
SAVE THE RESULT
POP STACK INTO R2
POP STACK INTO Rl
POP STACK INTO RO
RETURN
HIGH ORDER BITS GO HERE
SEQ 0077
TAIl MOTION TEST
CZTAD-D MACYll 30A(1052) 23-MAR-78 08:38 PAGE 77
CZTADD.P',
23-MAR-78 08:34
BINARY TO OCTAL (ASCII) AND TYPE
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
338'
3382
3383
3384
3385
3386
3387
3388
3389
3390
339,
3392
3393 0'4326
3394 0'4332
3395 0'4340
3396 0'4344
3397 014350
3398 014352
3399 0,4360
3400 0'4366
3401
014374
3402 0'4376
3403 0,4400
3404 0,4402
3405 014406
3406 0'44'0
3407 0,44'4
3408 0,4420
3409 0,4424
34'0 0'4430
3411
0'4432
34,2 0,4434
34,3 0'4436
34'4 014440
34,5 0'4442
34'6 0'4444
34'7 0,4446
34'8 014450
34'9 0'4454
3420 . 0'4456
3421
0,4462
3422 014464
3423 0'4466
.SBTTL
SEQ 007'1
BINARY TO OCTAL (ASCII) AND TYPE
; ;*"'''' ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
:.THIS ROUTINE IS USED TO CHANGE A '6-BIT BINARY NUMBER TO A a-DIGIT
:>OCTAl (ASCII) NUMBER AND TYPE IT.
; .STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
,_CALL:
:.
:.
;.
;.
:.
MOV
TYPOS
.BYTE
.BYTE
NUM,-(SP)
N
M
:.
: ; NUMBER TO BE TYPED
: ; CAll FOR TYPEOUT
; ; N=1 TO a FOR NUMBER OF DIGITS TO TYPE
; ;M=-1 OR 0
;;' .TYPE lEADING ZEROS
; ; O-SUPPRESS lEADING ZEROS
;.
; .STYPON----ENTER HERE TO TYPE OUT IoIITH THE SAME PARAMETERS AS THE LAST
; .$TYPOS OR STYPOC
;:CAll: MOV
;*
TYPON
NUM,-(SP)
; ; NUMBER TO BE TYPED
; ;CAll FOR TYPEOUT
;.
; >$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
017646
116637
112637
062716
000406
"2737
" 2737
',2737
0'0346
0'0446
0'0546
"3704
005404
062704
II 0437
"3704
0' 6605
005003
006'05
000404
006'05
006' 05
006'05
0, 0503
006'03
'05337
'000,6
042703
00,002
005704
00,403
000000
000001
0'4553
000002
000001
000006
000005
0'4553
000006
0'4552
0,455,
000012
014552
177770
014551
0,455'
014553
014550
;.CALL:
MOV
;'
TYPOC
;*
NUM,-(SP)
$TYPOS: MOV
MOVB
MOVB
ADD
BR
STYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
Mova
NEG
ADD
MOVB
Mova
MOV
ClR
1$:
ROL
BR
2S:
ROl
ROl
ROl
MOV
3S:
ROl
DECB
BPl
BIC
BNE
TST
BEQ
"(SP) ,-(SP)
1 (SP) ,SOFILL
(SP)+,$OMODE+t
'2,(SP)
STYPON
#1,SOFIll
N6, SOMODE+l
15,SOCNT
R3,-(SP)
R4,-(SP)
R5,-(SP)
SOMODE+l.R4
R4
N6,R4
R4,SOMDDE
SOFILL,R4
12(SP) ,AS
R3
RS
3$
RS
RS
R5
RS,R3
R3
SOMODE
75
"17770,R3
45
R4
5$
; ; NUMBER TO BE TYPEO
; ; CALL FO.R TY PEOUT
PICKUP THE MODE
lOAD ZERO Fl II SWITCH
NUMBER OF DIGITS TO TYPE
AD~UST RETURN ADDRESS
SET THE
SET FOR
SET THE
SAVE R3
SAVE R4
SAVE R5
GET THE
ZERO Fl II SWITCH
SIX(6) DIGITS
ITERATION COUNT
NUMBER OF DIGITS TO TYPE
SUBTRACT IT FOR MAX. ALLOWEO
SAVE IT FOR USE
GET THE ZERO FI Ll SWITCH
PICKUP THE INPUT NUMBER
CLEAR THE OUTPUT WORD
ROTATE MSB INTO 'C'
GO DO MSB
FORM THIS OIGIT
GET lSB OF THIS DIGIT
TYPE THIS DIGIT?
BR IF NO
GET RID OF ~UNK
TEST FOR 0
SUPPRESS THIS O?
BR IF YES
PAGE 78
23-MAR-78 08:36
CZTAD-D MACYl1 30A( 1052)
TAll MOTION TEST
BINARY TO OCTAL (ASCII) AND TYPE
23-MAR-78 OB:34
CZTAOD P11
3424
3425
3426
3427
3428
3429
014470
014472
014476
014502
014506
3432
3433
014512
014516
014520
014522
Ot4524
3434
014526
3435
3436
3437
3436
3439
3440
3441
3442
3443
3444
014530
014532
014534
014542
3430
3431
014544
014546
014547
014550
014551
014552
4$:
005204
052703
052703
11 0337
104401
105337
003347
002402
000060
000040
014546
014546
014550
5$:
TYPE
7$:
000744
012605
012604
000002
000004
oeD
000
000000
DEca
SGT
BLT
INC
BR
65:
MOV
MOV
MDV
MOV
MOV
RTI
,BYTE
BS:
,BYTE
.BYTE
SOCNT:
$OFILL: ,BYTE
$OMODEI ,WORD
65
R4
2$
(SP)+,RS
(SP)+,R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+, (SP)
RETURN
STORAGE FOR ASCII DIGIT
TERMINATO~ FOR TYPE ROUTINE
OCTAL DIGIT COUNTER
ZERO FI LL SWITCH .
NUI,IIIER Of DIGITs T.p TYPE
0
0
0
0
0
TAll MOTION TEST
CZTAO-D MACYII 30A(1052)
23-MAR-7B
23-"""-78 OB:34
TRAP DECODER
08'36
en ADD. Pll
3445
3446
,S8TH
3447
; : * >1' .. * '" '" '" **' "':I< 'I<
3448
3450
3451
3452
3453
014554
3454
0' 4556
010046
016600
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
014562
014564
005740
111000
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
seQ
PAGE 79
0079
seQ
0079
TRAP DECODER
,*4o $
**
$. *tII'" *'" *** *'" '*
'$
II< '" $$>11* $'*$
* ** *". *' >I< 'II*:It'lII.* '" *>/I "'** ** **
;'THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION
;'AND USE IT TO INDEX THAOUGH THE tRAP TABLE FOR THE STARTING ADDRESS
;-OF THE DESIRED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.
3449
3487
SEQ 00711
DON'T SUPPRESS ANYMSRE 0' S
MAKE THIS DIGIT ASCII
MAKE ASCII I F NOT ALREADY
SAVE FOR TYPING
GO TYPE THIS DIGIT
COUNT BY 1
SR IF MORE TO DO
6R IF DONE
INSURE LAST DIGIT ISN'T A BLANK
GO DO THE LAST DIGIT
RESTORE R5
RESTORE R4
RESTORE R3
SET THE STACK FOR RETURNING
R4
N 'O.R3
' ,R3
R3,8S
,85
SOCNT
2$
Move
005204
012603
016666
012616
000002
000
000
.
INC
BIS
BIS
SEQ DD7S
014566
006300
014510
0'4574
016000
0'4576
014600
014606
011646
016666
000002
STRAP:
000002
MOV
MOV
TST
Move
ASL
MOV
RTS
014610
000200
RO,-( SP)
2(SP) ,RO
-(RO)
(~O) ,RO
RO
STRPAD( RO) ,RO
RO
; ;SAVE RO
; ; GET TRAP ADDRESS
: ; BACKUP BY 2
; ;GET RIGHT BYTE OF TRA>
; :POSlTION FOR INDEXING
;: INDEX TO TASLE
; ;GO TO ROUTINE
;;THIS IS USE TO HANDLE THE "GETPRI" MACRO
000004
000002
STRAP2: MOV
MOV
(SP) ,-(SP)
4(SP) ,2(SP)
RT!
.SBTH
: :MOVE THE PC DOWN
; ; MOVE THE PSW DOWN
; ; RESTORE THE PSI'!
TRAP TABLE
;'THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CAllED
:*BY THE "TRAP' INSTRUCTION,
ROUTINE
014610
014612
0' 4620
014576
013230
014352
014326
0' 4366
$TYPON
5TRAP2
; ;CALl=TYPE
; : CALL=TYPOC
;,CALL=TYPOS
; ;CAlL=TYPON
014622
013520
$GTSWR
; :CALI..=GTSWR
014624
014626
013450
014630
014052
014224
010504
010554
$CKSWR
$RDCHR
SRDLIN
CALL=CKSWR
CALL=ROCHR
CALL.RDLIN
CALL=RDOCT
CALL=WFG
CALL=waITE
CAlL=RIiAD
S;ALl=BSFG
014614
014616
014632
014634
014636
014640
013732
014642
010774
011304
01li644
011366
014646
011436
014650
014652
014654
014656
014660
011520
0'11600
0' 0246
010362
010'06
STRPAD:
• WORO
STYPE
$TYPOC'
STY pas
TRAP+1{ 104401)
TRAP+2( 104402)
TRAP+3( 104403)
TRAP+4(104404)
TRAP+5( 104405)
TTY TYPEOUT ROUTINE
. TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZERClS)
TYPE OCTAL NUMBER (AS PER LAST CHL)
GET SOfT-SIlIR SETTING
TRAP+6( 1 04406)
TEST FCIR CHANGE IN SOFT-SIlIR
TRAP+7 ( 104407)
TTY TYPEIN CHARACTER ROUTINE
TRAP+10(104410) TTY TYPEIN STRING ROUTINE
SRDoer
TRAP+l1( 104411) READ AN OCTAL NUMBER fRCM TTY
T.WFG
TRAP+12(104412) ROUTINE TO WRiTE A FILE GAP
T,WRIT
TRAP+13(104413) ROUTINE TO WRITE A BLOCK OF DATA
T, REAIl
TRAP+14(104414) ROUTINE Tb READ A BLOCK OF DATA
T. BSFQ
TRAP+15(lQ4415) ROUTINE to BACK SPACE A FILE GAP
T. BSBG
CALL=BS~G
TRAP+16(1044191 ~QI,ITI~E TO eACK SPliCE A BLOCK GAP
T, SFFG
CALL=SFFG
TRAp+17( 104417) AOUTINE TQ SPACE FWD A FILE GAP
T, SFBG
CALL.SFBG
TRAP+2C1( 1 04.420) ROUTINE TO SPACE FWD A BLOCK GAP
T .RWNO
; CALL.REWIND
TRAP+21 (104421) ROUtiNE TO REWIND THE TAPE
T.SELDRV
: :CALL-SELDRV
TRAP+22( 1844221 ROUTINE TO SELECT THE NEXT DRIVE
T. BLKCMP
; :CALL-BLKCMP
TRAP+23( 104423) COMPARE READ AND WRITE BUFFERS
T, SETLaD?
: :CALL'SETLOOP TQ~P+24(1044!l4) SETUP TO LOOP AS PER THE TTY
23-MAR-78 08:36
CZTAD-D MACYl1 30A( 1052)
TAll MOTION TEST
POWER DOWN AND UP ROUTINES
23-MAR-78 08: 34
ClTADD.Pll
3498
3499
3500
3501
3502
3503
3504
3505
3506
3501
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
.S8TH
PAGE 80
012737
012131
010046
010146
010246
010346
010446
010546
011146
010631
012737
000000
000776
014134
014742
014146
Oj4752
014756
014760
014764
014766
014770
014772
014774
014776
015000
015006
015014
015016
015020
015022
015024
015026
015030
015032
015034
015042
012737
013706
005037
005231
001315
012671
012605
012604
012603
012602
012601
012600
012737
012737
104401
015034
012716
002300
000002
000000
000776
000000
005015
000122
015026
000340
000024
000026
164222
015032
014734
000024
SE~
: POWER DOWN ROUTI NE
SPWRON: MOV
'$I tLUP ,@NPWRVEC : : SET FOR FAST UP
MDV
#340,I'HPWRVEC+2 ; ;PRIO:7
RO,-(SP)
MDV
; ; PUSH RO ON STACK
Rl,-(SP)
MDV
: : PUSH Rl ON STACK
R2,-(SP)
MOV
: ; PUSH R2 ON STACK
; ;PUSH R3 ON STACK
MDV
R3,-(SP)
MOV
R4.-(SP)
i JPUSH R4 ON STACK
R5,-(SP)
MOV
i: PUSH R5 ON STACK
MOV
I'SWR,-(SP)
; ;PUSH I'SWR ON STACK
MDV
; ;SAVE SP
SP,SSAVR6
MOV
'$PWRUP ,.HPWRVEC ; ;SET UP VECTOR
HALT
.-2
BR
; :HANG UP
*. "
+.$ ••• *
*.**** ..... **** ••
Oj5026
015032
015032
015032
000024
164154
014662
000340
000024
000026
047520
042527
i ; ."' ••• ***** ••••
*.************.****,. ....... **$,.,.* .... $
: POWER UP ROUTINE
$PWRUP: MOV
#$1 LLUP ,.HPWRVEC ; ; SET FOR FAST DOWN
MOV
SSAVR6,SP
: :GET SP
CLR
SSAVR6
: ; lolA IT LOOP FOR THE TTY
1$:
INC
SSAVR6
; ;WAIT FOR THE INC
BNE
1$
: ;OF WORD
MOV
(SP)+,I'SWR
: :POP STACK INTO Ii>SIlIR
MOV
(SP)+,R5
; ;POP STACK INTO R5
(SP)+,R4
MOV
;; POP STACK INTO R4
MDV
(SP)+,R3
; ;POP STACK INTO R3
MOV
(SP)+,R:!
; JPOP STACK INTO R2
MOV
(SP)+, Rl
;; POP STACK INTO Rl
MOV
(SP)+,RO
: ; POP STACK INTO RO
MOV
UPWRDN, •• PWRVEC : ; SET UP THE POWER DOWN VECTOR
MDV
#340 , I'HPWRVEC+2 ; ;PRIO:7
TYPE
; REPORT THE POWER FAILURE
SPWRMG: .WORD
SPOII/ER
; ; POWER FAI L MESSAGE POINTER
MOV
(PC)+,(SP)
; ; RESTART AT PWRST
$PWRAD: .WORD
PWRST
: ; RESTART ADDRESS
RT!
$lLLUP: HALT
TMC POwER UP SEQUENCE WAS STARTEC
,-2
SR
BEFORE THE POWER DOWN WAS COMPLETE
SSAVR6: 0
PUT THE SP HERE
SPOII/ER: ,ASCII <15><12>" POWERw
,EVEN
23-MAR-7S 08:36
PAGE 81
TAll MOTiON TEST
CZTAD-D MACyn 30A( 1052)
DATA TABLE POINTERS FOR ERRORS
CZTADO Pl1
23-MAR-78 08:34
3543
3544
3545
3546
3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560
3551
3562
3563
OOBO
POWER DOWN AND uP ROUTINES
: : '" '1<;$"* '" oJ< >I< **,... ** "" . . '" '" "' .. '* * **** $$*.*.",.., '" >Ii'" *' >4< • • ** Ii: "' .. '" ** *$."
014662
014610
014616
014100
014102
014104
014706
014710
014712
014716
014722
014730
014732
SEQ OOBO
; ::/1 '* *.* "* 4< ** $I"" .*'.*$* ""*iIJ.*** ****'" 00; ****** .. **$ +.$111*.*. ** .***.$ $$$*.$
$'
:OATA POINTERS
015044
015052
001204
001164
001116
000000
001162
011:
,WORD
SAVPC ,SERRPC. $REGO, $REGI ,0
015056
015064
015072
001204
001124
000000
001116
001126
001162
001206
on:
,WORD
SAVPC ,SERRPe, SREGO ,SGODAT ,SBDOAT, BYTNUM,O
015014
015102
01511 0
001204
001210
000000
001116
001212
001162
001214
OT3:
,WORD
SAVPC, SERRPC, SREGO, RCReD, RCRel ,RCRca. 0
015112
015120
001204
001164
001116
001166
001162
000000
OT4:
,WORD
SAVPC.$ERRPC,$REGO,$REG1,$TMPO,O
015126
015134
001204
000000
001116
001162
DTS:
,WORD
SAVPC ,SERRPC, SREGO ,0
SEO 0081
SEQ OOBI
3564
3565
3566
3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
357B
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
3605
3606
3607
3608
3609
3610
3611
3612
3613
3614
3615
3616
3617
3618
3619
;;
SEQ 008:2
...............................................................
;MESSAGES
015136
015144
015152
015160
015162
015170
015172
015200
015204
015212
015213
015220
015222
015230
0152:}3
015240
015246
015254
015261
015266
015274
015302
015310
015316
015324
015331
015336
015344
015352
015353
015360
015361
015366
015374
015402
015410
015411
015416
015424
015432
015433
015440
015446
015454
015457
015464
015472
015500
015502
015510
015516
015521
042200
051450
005015
000077
042526
000077
051120
054524
052040
000
040
000075
053040
036522
040
044522
005015
042531
015
044524
044522
040440
044522
005015
050040
015
020120042522
000
127
000
122
050123
053506
042514
000
123
043055
045514
000
102
050123
044506
050101
102
050123
046102
000120
051127
044506
050101
102
044522
037451
040524
042526
000040
051503
M5GDRV: .ASCIZ
'DRIVEIS)? '
MSGASK: .ASCIZ
<15><12>/TACS?/
052103
051117
MSGVEC: .ASCIZ
/VECTOR?!
047511
000077
041501
044522
MSGPRI: .ASCII
/PRIORITY?/
036523
MTACS:
.ASCIZ
/ TACS-/
040524
041104
MTADB:
.ASCIZ
/ TAoa-/
041505000
051120
054524
045517
100123
052012
043516
Oq2526
042116
042526
042524
037503
046012
041520
044527
047524
MTAVEC: • ASCIZ
I
VECTOR-/
047511
000075
000077
000
051505
042040
000040
042040
000040
052123
000
047517
000077
042116
MTAPRI: .ASCII
/
PRIORITY-/
.ASCIZ
MSGOK:
MYE5:
.ASCIZ
MTSTDRV:
<15><12>/OK?/
IYES/
.ASCIZ <15><12>/TESTlNG DRIVE /
044522
MANDRV: .ASCII
/ AND DRIVE /
MTEST:
.ASCII
<15><12>/T£ST PC?/
MLDOP:
.ASCII
<12>/LOOP PC?/
MXRWND: .ASCIZ
/REWIND/
042524
MXWRIT: .ASCIZ
IWRlTE/
040505
041501
026504
043455
000104
026505
044506
050101
MXREAD: .ASCII
MXSFFG: .ASCIZ
/READ/
/SPACE-FWD-FI LE-GAP/
040520
042127
043455
042503
041055
050101
MltSFBG: .ASCIZ
ISPACE-FWO-BLK-GAP/
041501
041501
042514
000
041501
041501
026513
026513
026505
043455
MXBSFG:
/I¥CK-SPACE-FILE-GAP/
026513
026505
040507
MXBSBG' .ASCIZ
/BACK-SPACE-ILK-GAP/
052111
042514
000
043125
026505
043455
MXWFG:
.ASCIZ
/IoIRITE-FI LE-GAP/
042506
MBUFCK: .ASCIZ
/BUFFER COMPARE/
.ASCI~
CZTAD-D MAeYl1 30All052) 23-MAR-78 08131
TAli MOTION TEST
ASC II MESSAGES
23-MAR-7S 08:34
CHADD.Pl1
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
363B
3639
3640
3641
3642
3643
3644
3645
3646
3647
3648
3649
3650
3651
3652
3653
3654
3655
3656
3657
3658
3659
3660
3661
3662
3663
3664
3665
3666
3667
3668
3669
3670
3671
3672
3673
3674
3675
SEQ 0082
PAGE 82
eZT AD-D MAey 11 30A( 1052) 23-MAR-78 OB:36
TAll MOTION TEST
ASC 11 MESSAGES
23-MAR-78 08:34
CZTAOO.P11
015526
015534
015540
015546
015554
015562
015566
015574
015602
015610
015615
015622
015630
015633
015640
015646
015654
015662
015670
0'5676
015704
015705
015712
0'5720
015726
015734
015737
015744
015752
015760
015766
015773
016000
016006
016011
016016
016024
016032
016035
016042
016047
016054
016062
016064
016072
016100
016102
016104
016112
016120
016123
016130
016136
016144
016152
016160
020122
051101
046511
051105
020107
047111
046511
051105
020107
051122
115
020104
043501
111
052522
044501
051120
051125
042101
052503
000
104
020124
044440
D44506
050101
104
020124
047440
040505
042101
102
052101
042101
111
046101
042506
042532
103
051122
123
051040
000104
040502
042524
000124
005015
042524
020040
006522
120
020040
020040
041501
052040
000012
047503
000105
051120
043040
042523
000107
051120
043040
041517
042105
051511
020101
000
052116
052120
042514
046505
020105
020131
051122
050115
SEQ 00B3
PAGE 83
SEO 0083
050117
040514
052124
EII1I
.ASCIZ
/IMPROPER FLAG SETTING/
050117
040514
052503
000
042523
046106
EM:!:
.ASCII
/IMPROPER FLAG DCCURRlD/
EM3'
.Ascn
/MISSED A FLAG/
051105
043040
000104
052101
042522
041517
042105
EM4'
.ASCIZ
/INTERRUPT FAILED/
EMS:
.ASCII
IPREMATURE READY OCCURRED/
042111
052123
020116
042514
000
042111
052123
020116
020122
051105
042101
020101
000
046114
041040
020122
000
041522
051117
047510
041505
023516
050117
020101
043440
EMS:
.ASCIZ
/DIDN'T STOP IN A FILE GAP/
023516
050117
046103
042514
000
042040
042522
EM7:
.ASCIZ
/DIDN'T STOP ON CLEAR LEADERI
EMl0:
• ASCIZ
IBAD DATA READ/
043505
043125
044523
EMIl:
.ASCIZ
/1 LLEGAL BUFFER SIZE/
042440
000
052122
051117
EM12:
.ASCIZ
/CRC ERRORI
EMI3:
.ASCII
ISHORT RECORD/
020104
051122
047111
050125
EM141
.ASCII
/BAD INTERRUPT I
DHI:
052123
051105
012
020103
050040
020040
020123
042101
020040
047522
• ASCII
• ASCII
<115><12>
ERROR/ < 15><1»
/TEST
.ASCIZ
fPC
020040
020103
052040
020040
006502
PC
TACS
TADB/<15Xl»
CZTAD-D MACYll 30A( 1052) 23-MAR-78 08:38
TA 11 MOTION TEST
ASCII MESSAGES
23-MAR-78 08:34
CZTADD. Pll
3676
3677
3678
3679
36BO
36Bl
36B2
36B3
36B4
36B5
36B6
36B7
36BB
36B9
3690
3691
3692
3693
3694
3695
3696
3697
369B
3699
3700
3701
3702
3703
3704
3705
3706
3707
370B
3709
'3710
3711
3712
3713
3714
3715
3716'
3717
371B
3719
3720
3721
3722
3723
3724
3725
3726
3727
372B
3729
3730
3731
016162 005015
016164 042524
016172 020040
016200 020122
016206 020040
016214 054105
016222 020040
016230 020104
016236 042524
016242 041520
016250 020040
016256 020040
016264 051503
016272 040504
016300 020040
016306 020040
016314 041115
016322
000
016323
015
124
016325
016332 020040
016340 051117
016346 020040
016354 053440
016362 020040
016370 020104
016376 033125
120
016403 .
016410 020040
016416 020040
016424 041501
016432 041440
016440 020040
016446 020040
016454 041522
015
016461
124
016463
016470 020040
016476 051117
016504 020040
016512 020040
016520 020040
016526 051'505
016532 041520
016540 020040
016546 020040
016554 051503
016562 040524
016570 020040
016576 005015
016601
015
124
016603
016610 020040
016616 051117
016622 041520
016630 020040
OH2:
052123
051105
020040
020040
052120
041522
020040
005015
020040
041520
020040
020040
040524
040504
020040
051105.
020040
047522
020040
020040
042047
023526
054502
020040
020040
040524
020040
020040
040524
'052516
005015
012
051505 020124
042440 051122
020040 020040
020040 020040
044522 ·042524
051040 040505
020Q40 052040
0'12
0064&0
020103 020040
050040 020103
020040 052040
020123 020040
041522 020040
041440 041522
020040 04144Q
000
005015
012
051505 020124
042440 051122
020040 020040
020040 020040
020040 020040
041040 052131
005015
020040 020040
041520 020040
020040 040524
020040 020040
041104 020040
042514 052106
000
012
051505 020'24
042440 051122
005015
020040 020040
041520 020040
CH3:
OH4:
OH5'
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
040524
000
016652
020040
051503
016652
001116
020040
005015
001220
000000
016660
001116
000000
016664
016672
016700
016706
016713
016720
016726
016734
016736
016744
016752
016753
040524
044501
047524
047520
116
053111
044501
000105
041520
020040
000
120
030461
042514
051040
042116
020117
020105
040514
020040
040524
016636
016644
000103.
SEO 0084
.ASCII
.ASCII
<15><12>
ERROR
/TEST
.ASC:Z
IPC
• ASCII
; ASCII
<'5><'2>
ERROR
/TEST
.ASCIZ
IPC
• ASCII
• ASCII
'<15><12>
/TEST
ERROR
• ASC'IZ
IPC
• ASCII
.ASCII
<'5><'2>
ITE5T
ERROR/<15><'2>
.ASCIZ
IPC
TACS
PC
TACS
PC
PC
EXPT'D
RCV'D
BYTE/<'2>
DATA
DATA
NUMBER/<'5><'2>
WRITE
READ
TU80/<'5>
CRe
CRC
CAC/<15>
BYTES/<' 2>
TACS
PC
CZTAD-D MACYl1 30A(1052) 23-MAR-78 08:36
TAIl MOTION TEST
ASCI I MESSAGES
23-MAR-78 08:34
CZTADD.Pll
SEO 0084
PAGE 84
TAOB
LE"/<15>
TACS/<'5><12>
PAGE B5
DT201 :
.EVEN
.WORD
SERRPC. TACSL,O
OT202:
.WORD
SERRPC,O
043040
020104
051505
000
051104
053101
046102
EM20\:
.ASCIZ
'TA11 FAILEO TO RESPOND'
EM202:
.ASCIZ
'NO DRIVE AVAILABLE'
020040
051503
CH201:
• ASCIZ
IPC
OH202:
.ASCIZ
.EVEN
IPCI
TACSI
SEO 0085
SEO 0065
SEQ 0086
23-MAR-78 08: 36
PAGE 86
CZTAD-D MACYI! 30A( 1052)
TA11 MOTION TEST
READ A~O \OIIlITE BUFFER"S AN!> lI~S
23-MAR-7B 08:34
CZTADD.P11
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
3762
3763
3764
3765
3766
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
SEQ OOBS
: BUFFER LINKS
: THESE LINKS POINT TO THE STARTING ~DPRESS OF nil! SUFFERS
:AND ALSO INDICATE HDW MANY BYTES TO READ Of! "RITE
000200
000200
0000'0
000040
000020
000100
000000
000200
000200
000010
000040
000020
000100
000000
RlNKl :
RlNK2:
RlNK3:
RlNK4 :
RlNJ(5 :
RlNK6:
RlNKX:
WLNK1 :
WlNK2 :
WlNK3:
WLNK4!
WlNK5:
WlNKS:
WlNKX:
016756
016762
016766
0' 6772
016776
017002
017006
017012
017016
017022
017026
017032
017036
017042
017120
017322
017524
017726
020130
020332
017120
017046
017054
017062
017070
017076
017104
017112
017046
017046
017047
017050
017051
017052
000002
314
063
314
063
000000
WBUFI :
017054
017054
017055
017056
017057
017060
000002
377
000
377
000
000000
IIIBUF2:
017062
017062
017063
017064
017065
0' 7066
000002
231
146
231
146
000000
WBUF3:
017070
017070
017071
017072
017073
017074
000002
360
017
360
017
000000
WBUF4:
0, 7076
017076
017077
017100
01710'
017102
000002
252
125
252
125
000000
IoIBUF5:
RBUF1,12B.
R8UF2,12B.
R8UF3,B·
RBUF4,32.
RBUFS, '6.
R8UFS,64.
RBUF!,O
weUF1,12B.
WBUF2,12B.
WBUF3,8.
WBUF4,32.
WBUF5,lfi.
WBUFS,64.
WBUFX,G
:BUFFERS
WCRel :
WCRC2:
WCRC3:
WCRC4:
.BYTE
• BYTE
• BYTE
.BYT6
.WORD
-Bll00ll00
-BOOll00ll
-1111001100
-BOO110011
0
.BYlE
.BYTE
• BYTE
.BYTE
.WORD
-Bl I 111111
-Bll111111
-BOOoOOOOO
0
; CRC STORAGE FOR IIIBUF2
• BYTE
• BYTE
eSYTE
• BYTE
.WORD
-SI00lHIOl
-e$1100110
-6;0011001
-80·1100110
0
: CRC STORAGE FIlIR WBUF3
.BYTE
.BYTE
• BYTE
.BYTE
.WORD
-S111 10OOO
-BOOOOll I 1
-811110000
-SOOOOI11 I
; cRe STORe,(lE FOR lIleUFl
-a~ooo~OO
a
; CRC STORAGE FOR WBUF4
3801
3802
3803
3804
3805
3806
3807
WCRC5:
• BYTE
.BYTE
.BYTE
.BYTE
.WORD
-810101010
-B01010101
-B10101010
-SOlO10101
a
: GRe STORAGE FOR WBUF5
23-MAR-1S 08:38 Pi\GE 87
fAll MOTIDN TEST
CZTAD-D MACY11 30A! 1052)
CZTAOD,P11
23-MAR-78 08:34
READ AND WRlTE BUFFERS ANII LINISS
380a
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
38, 9
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
383,
3832
3833
SEQ 0087
WBUFS:
017104
017104
017105
017106
017107
017110
000001
377
377
000
000
000000
017112
017112
WBUFX:
017116
000004
000
000
000
000
OOODao
017120
017322
017524
017726
020130
020332
017113
0171 t 4
017115
SEQ 00B1
• BYTE
.SYTE
.SYTE
-Bl1111111
-Blllll111
" BOOOOOOOO
"S_OOOO
.WDRD
0
a
WClRCX:
.aVT!:
.BYTE
.BVTE
.BYTE
.WORD
000202
000202
000202
000202
000202
000202
RBUFI :
RBUF2 :
RBuF3:
RBUF4 :
RBUF5:
HBUF6:
.BlKB
.BlKS
.BlKS
.BLKS
.BlKB
• BlKS
020534
LASTADDRE"SS-
OOODOI
• END
.BYl.
IoICReS:
0
0
0
0
130.
130.
130.
lao.
130.
130.
:CRe STORAGE FIlR WBUFS
SEO 0088
CZTAO-O MACY11 30A( 1052) 23-MAR-78 oe:36 PAGE 89
TAIl MOTION TEST
CROSS REFERENCE TA8LE -- USER SYM80LS
23-MAR-78 08:34
CZTAOO.Pl1
ASKAOR
AsKORV
ASK KEY
A20CT
BAOINT
BEGINX
BEGINI
BEGIN2
BEGIN3
BEGIN4
BGNCMN
BITO
BITOO
BITOI
BIT02 •
61 T03
61 T04
=
=
=
=
=
BI T05 •
BIT06 •
BlT07 •
BIT08 •
BIT09 =
BITI
•
BIT10 •
BITl1 •
BIT12
BIT13 •
BITI4
BIT15 =
BIT2
BIT3 •
BIT4 ~
BITS •
BIT6 •
BIT7 •
BITB
BIT9 •
BLKCMP.
007532
007422
001246
010022
012356
002036
001450
001502
001510
001516
001522
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
104423
BPTVEC. 000014
BSBG 1< 104416
BSFG
BSFGSB
BYTNUM
CHKAOR
CHKORV
• 104415
013054
001206
002060
002140
CKSWR II 104406
CR
• 000015
CRCERRc 040000
1109
1106
B92'
2404.
1200
817
814
815
816
1033'
1025
75"
7411
740.
739'
73B.
7371
736'
735'
734N
733.
7321
750'
731#
730.
7~9#
728'
727.
726'
749#
748#
747#
746#
745#
744N
743'
7421
1295
1452
1558
1741
1954
758.
1306
1498
1556
1319
1893
2042
824
8711
1105
1165#
2139
666#
780N
2329'
22971
1196*
:1437
1260
1103.
1022.
1029'
1028
2320
1268
2448
2869
1139
2218
2717
2889
1141
2895.
1189
SEO 0088
1191
lQ3U
1027
1030
1032
10341
751
750
749
748
7.7
746
745
744
743
742
794
793
792
791
790
789
788
787
'786
785
2116
2118
2118
2837
2116
2118
2187
2241
784
783
782
181
180
779
2225
2174
2232
2149
1238
2837
1308
1467
1562
1760
1959
1321
1482
1576
1776
1964
1334
14B6
1590
1793
1969
1339
1493
1803
1798
1997
1352
1500
1610
1818
2002
1357
1507
1623
1837
2033
1372
1513
163"
1855
2039
1385
1517
1646
1873
2046
1391
1530
1663
1898
2053
140';
1536
lC82
1921
2981
1421
1543
1702
1926
3039
1436
1550
1721
1948
3496.
1337
1503
1588
1355
1894
2043
30771
25001108
1383
1505
1608
1370
1895
2044
3078
2507.
11271
1389
1510
1661
1464
1924
2049
3085
3550
1418
1511
1680
1574
1946
2050
1419
1528
1738
1828
1951
2051
1448
1534
1739
1718
1952
3081
1449
1539
1757
1719
1957
3490'
1479
1541
1774
1758
1992
1480
1548
1994
1773
1993
1489
1548
34911
1791
2031
1491
1553
1498
1555
1853
2036
1870
2037
2206
3181
2240
3191
34831
2828
CZTAD-D MACYll 301.(1052) 23-MAR-78 08:36 PAGE 90
TAIl MOTION TEST
USER SYMBOLS
CROSS REFERENCE TA8LE
23-MAR-78 08:34
CZTADO.Pl I
28531
2848*
2825
2625
2592>
2567
2539.
CRC.WO 012222
3585
3588
3191
3152
1091
6671
CRLF • 000200
1279
1228
1224'
1214
1221'
1212"
893.
CURDRV 001250
1062
855
673.
ODISP • 177570
980
953
948
939
932
925
918
016102
DHI
3676#
967
016162
DH2
374,.
1003
016736
OH201
3750N
1008
016753
DH202
3694#
981
016323
DH3
371"
988
016461
DH4
3726#
995
974
016601
DH5
22242188.
10701062*
855N
OISPLA 001142
1070
81U
DISPRE 000174
2671
2850
2626
2593
2568
2544
2521
DO.CMD 012224
2818#
2612
2562
DO.CRC 012102
2469
2482'
1209.
889M
001236
DRIVE
1217
1199
,,65
1178
1023>
891
890.
DRVKEY 001240
2481
1227.
1208
1199.
1179·
891H
DRVPNT 001244
1061
a54
672H
DSWR • t 77570
982
955
941
948
934
927
920
015044
OTI
969
3550'
015056
DT2
1004
3735'
016652
OT201
3737N
1009
016660
OT202
3554.
983
015074
OT3
3558.
990
DT4
015112
356U
997
976
015126
DT5
1048·
1045'
7611
EMTVEC. 000030
917
3622'
015540
EMI
36511
966
015773
EM10
36541
973
016011
EM 11
3658.
980
016035
EM12
987
3660'
016047
EM13
3663#
994
016064
EM14
3626.
924
015566
EM2
3739#
1002
EM201
016664
3743#
1007
016713
EM202
3630.
931
015615
EM3
3633#
938
015633
EM4
363611
945
015654
EM5
36411
952
015705
EM6
3646.
959
015737
EM7
779'
ERROR ., 100000
2154
1071.
1133'
1060.
1127'
1059
754N
ERRVEC. 000004
2103.
1175
1170
1166
EXAM
006464
2321M
2316
007522
ExIT
1214.
1255
1236
002702
FATAL
2697
2661
2638
7B3H
FGAP = 004000
2877
2658
2834
2602
2574
2552
2527
012014
FLAGS
2BBO
2865
000016
795'
FUNCTl=
795
793N
FUNCO • 000002
795
792N
FUNCI • 000004
795
79IN
FUNC2 • 000010
3479
3478
3477
3476
1277
1090
III • • • • • • U
810
GNS
3494
3493
3492
3491
3490
3489
348B
2672
2651
2594
2545
2522
1249
794h
• 000001
GO
SEO 0089
SEO OOBII
2470'
3668#
:1686
2707
2735
2882'
1223
1261
2298-
2303
2317
2321
35471
:1155·
2157'
2180'
2892
2713
2725
2741
2792'
3481
3495
2887
3483
3498
2708
3484
3497
2738
3485
3486
3487
2885
2875
2924
SEQ Q091!
23-MAR-78 OS:36 PAGE 91
CZTAO-D MACYll 30A( 1052)
CROSS REFERENCE TA8LE -- USER SYMBOLS
23-MAP.-7S 08: 34
TAt 1 MOT ION TEST
CZTADD_Pt 1
104405
002036
GTSWR
»!ERE
HICNT
012010
dT
000011
LBS
" 000020
tNT. EN", 000100
2952
lOBS
1076
1242
664H
790.
788~
2868
lOTVEC=
l: TEMS2
"STAD=
LEADER,.
IF
LOCNT
LOOP
iOOPKE
LVF LAG
759~
1000#
383U
7BU
3082
665H
020534
020000
dANUAI
t:1AXCN1
MBUFCi(
r"FUNC
MLOOP
MSGASK
MSGDRV
MSGID
:1SGOK
-1SGPRI
?ASGVEC
MIACS
MTAOB
»'HAPRI
MTAVEC
MTEST
MTSTDR
MXBSBG
MXBSFG
MXREAD
MXRWNO
",XSFBG
NE.XT
>'OTLGL
QFFLlN==
OK
PIRQ
~)IROVE;::
•
•
•
2865
2569
2594
26~7
2651
2672
2667
:11'06
:?21~($
a~®@
1044 ...
2731
2746
211211
2911El
2979
3010
3013
2l@~'V
,;\{,;;~:M
~@$il!
2706-
272"-
22n
2l:H
2638
3191
2318
006614
012100
015302
002260
;J120 ~ 1
015521
007304
015331
015152
015136
002024
015246
1206*
21410
:2196
3589'
015204
015213
015233
015222
2793
1225
1185
1238'
2493
2257#
2442
2330
2297
1079
2377
2353
2344
2365
236S
2374
2371
015316
2429
015261
015457
1213
2670
2649
2582
2724
2706
2685
2520
2535
2386
2307
2305
2309
2302
785'
1194
671#
765.
688H
015411
!\~YES
2627
2545
2161 "
3150
2304~
015361
015344
l'JQTA
NOTS
2569
2522
1078
2760<1'
015433
.'tlXSFFG
j\1XWFG
1249
2971
i()43'"
~1094
007446
015172
015162
MXWRI T
3032
3118
1091H
2776N
3185
:176"7,;.
000012
012006
MANORV
PRO
PRl
PR2
000020
001430
015366
015502
015353
015254
007502
007460
007472
007514
001000
002272
177772
000240
000000
000040
00010C
SEt) 00911
3006
3107
1089
27690
3191
J:974
1193.
'I 242f11
3619'
2493'
3062
34BlH
2711((
2455.'281<:
2457.
2812*
1243*
1244-
1245'
1271'
:In;!
27790
2520-
2535-
2562-
2649.
2670-
2685-
3593#
3570#
3568_
~091iV
HliS
3584'
3574.
3572'
3576'
3578#
3582'
3580'
3591#
3586'
3612'
360S'
3599'
3595'
3604.
3600'
3616'
359"
3585.
2311
230SN
2312N
2313
2112
2315R
2319#
2322
2638
1196_
68S'
690#
SEQ 0091
CZTAC-I) MACV11 30A( 1052) 23-MAR-78 08,36 PAGE 92
TAIl MOTION TE5T
CROSS REFERENCE TABLE -- USER SYMBOLS
CZTADD. Pl1
23-MAR-78 08:34
PR3
PR4
PR5
PR6
"R7
PS
"
"" 000300
= 000340
177776
PSW
pWRSr
PWRVEC=
RBUFl
RBUF2
R8UF3
RBUF4
RBUF5
RBUF6
OCRCO
RCRCl
RCRC2
;;;OCHR :l:
l--iDLIN ..
ROOCr
ROSUB
;:'EAO
000140
000200
000240
177776
002300
000024
017120
017322
017524
017726
020130
020332
001210
001212
001214
104407
104410
104411
012522
104414
READY = 000040
"ESVEC= 000010
~EWIND::o 104421
691#
692.
693.
694#
695'
66S'
2673669_
1198.
760'
3757
3758
3759
3760
3761
3762
878#
879.
8BO.
2142
2299
2331
820
1294
1435
1549
1720
1947
3489#
789_
75SH
1240
1400
1619
1735
IB67
RGPBlK
~
LNKX
i"NK1
012702
017006
016756
822
2977
1294
1358
'~
0,LNK2
016762
~~·tNK3
016766
'LNK4
~: LNK5
;';.. NK6
P'WDA
016772
016776
017002
001260
001262
001256
,,'09
C0IDFLG
;'&'I\:'t:'~
(,~ ~,1 O"'~
53i
669
268S>
3535
1049'"
3763
3825.
3826'
382,.
3829#
2587'
2625-
12500
2737>
1254>
2863>
25:1J.
2546-
2551·
2570-
10503824#
3602*
3503-
35120
3S1S<
3530-
3531.
1351
j35S
1499
160~
1371
1506
1522
1836
1384
149::1
a6290
2652.
2595>
2601'
1405
1420
1662
1535
1681
170;
1897
2052
1920
a9??
3035
3063
3554
3554
2628·
2533$
2378
2430
2345
296S.
1307
1451
1557
1740
1953
3304
2443
1759
1958
3554
3484.
3345
3486'
2980
1333
1481
1575
1775
1963
1338
1485
1589
1792
196B
1791
509
1817
1996
2001
2~32
2039
1390
1516
1645
1672
2045
2108
2213
2765
2792
2877
2925
2953
2975
3007
3033
1266
1291
1415
1639
1293
1430
1643
1769
1907
3038
3040
1309
1384
1575
1742
2586
1407
1535
1899
1563
2045
1544
1922
1304
1317
1445
1659
1789
1935
1330
1332
134!!
1368
~36a
1381
1461
1672
1475
H!77
1526
1599
1601
1807
1814
1976
1715
1849
3494#
1730
1864
1943
1691
11127
191111
1350
1571
1697
1353
1514
1356
1529
1664
1403
1621
1750
1882
3026N
2982
1296
1371
1557
1722
2052
'390
1508
1392
r5~ 6
1797
1492
1965
1499
1549
2032
895
8971
1799
S7iS$
3SS;O
1202>
2709>
3829H
1720
1960
1095'
seQ 0091
1494
1996
1501
1551
2034
89GN
2354
2972
1320
1466
1561
1754
1889
3030
3035
1307
\373
"1559
1740
2054
1405
1518
\897
1561
1998
15'2
1920
37621
3485#
1433
1655
1785
1917
3044
3102>
1320
1386
1577
1759
~
1512
1629
1854
1404
1529
1542
1925
1833
1585
1111
1846
2011
2024
1351
1512
1624
1953
1485
11147
1487
IS81
150B
168a
1674
1963
:?lilliS_
3547
37G~~
1322
14 .. 4
1589
1761
1333
1335
1339
1420
1422
I"S1
1591
1775
1602
1777
1604
1792
1340
14S3
1622
1794
1437
gSI
1609
1611
1453
1629
1466
1631
1468
1645
IS19
1836
1838
1854
la56
lS72
3759'
1703
1921
1947
1949
2003
1970
2040
3760Y
2001
1968
2038
376U
2liM-
:17050
27230
1662
1955
1958
3757N
1435
1537
3758#
1817
2047
1701
1925
2477
2474
'1237.:)
~264-v:
2474<
2411_
2259"
2534-
2!1S1'
~5Sa
2519_
3561
2729
~492'
3554
~133'
'64a.
aGel'
::1669-
TAIl MOTION TEST
ClTAO-D MACV11 30A( 1052)
23-MAR-78 08:36
PAGE 93
ClTAOO. Pll
23-MAR-78 08:34
CROSS REFERENCE TA8LE
USER SYMBOLS
SAVRI
010244
SELORV= 104422
SERV
SETBUF
SElLOO=
SF8G
012340
013106
104424
104420
SFFG
104417
2435*
1235
1460
1749
2951
2565
2945
2145
1369
lB71
1644
1891
SFFGSB
ST ACK =
STAll
START
STKlMT=
SWR
SWREG
SWO
swoo
swOl
SW02
S\~03
SW04
SW05
SW06
sw07
SWOB
SW09
SWI
SW10
SWl1
SW12
SW13
SW14
SW15
sw2
SW3
SW4
SWS
sw6
5W7
SW8
SW9
TACSH
TACSl
013000
0011 00
001264
002312
177774
001140
000176
000001
00000 1
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
= 004000
010000
020000
040000
= .100000
000004
000010
= 000020
000040
000100
000200
000400
=
= 001000
HOSH
TA08l
TAPRIO
TAVEC
001222
001220
001226
001224
001234
001230
2025
B23
659N
898N
1197
670.
854#
2232
3105
812H
723.
713N
712N
711#
710N
709>
708'
7070
706'
705#
704.
722#
703#
702.
70"
700#
699H
698.
721#
720#
719H
718#
717.
71S.
715H
714.
884.
883'
3735
B86N
885#
8B8'
887#
28B9-
2458
1263
1475
1768
2973
2613
2999
3497#
1434
1962
1660
1892
2026
3056N
1041
1258111
1200N
1039
2237
3109
1069
2460N
1290
1525
1784
3005
2873
3090.
1303
1570
1806
3031
2888N
1316
1584
1826
3061
1329
159B
1845
3080
1347
1618
1863
3495#
SEQ 0092
SEQ 0092
1365
1638
1881
1380
1654
1906
1399
1671
1934
141.
1690
1977
TYPERR
TYPOC ~
TYPON '"
TYPOS =
T. 8lKC
T.8S8G
T.8SFG
T. READ
T. RWNO
000014
002000
000060
000064
000034
000014
000200
002762
003342
003406
003450
003512
003556
003620
004012
004170
003016
004226
004254
004342
004420
004464
004532
004606
004666
003052
004740
005016
005070
005134
005216
005274
005350
005422
003106
005474
005564
005672
006042
006162
003156
003226
003266
104401
007276
104402
1 04404
104403
010362
011366
0'1304
010774
011600
156#
784#
763H
764.
762'
757N
787#
1230
1379
1398
1413
1428
1443
1459
1474
1524
12B9
1569
15B3
1597
1617
1637
1653
1670
1689
1302
1709
1728
1746
1767
1783
1805
1825
1844
1315
1862
18BO
1905
1933
1976
132B
1346
1364
1079
2256
2371
3259
2234
22B2
3479N
3478.
2490H
2669#
2648N
258"
2723'
1444
1729
2923
1450
3042
1678
1896
2027
3060
2918
12590
2089
1465
3493N
1698
1918
2028
3069
2946
2802
1679
1699
1700
1717
1737
1756
1834
1850
1868
1716
1919
2029
1736
1944
2030
1755
1945
3065
1790
1967
1796
1989
1815
1990
1816
1991
1835
1995
1890
2000
34921
2968
2803
2978
3000
3026
3036
3056
1061 oj!
2241
3116
1083
1063
2466
3201
3092
1069*
2483
3238_
3105
1083
1215
2541
35233201
2116
2762
2118
2798
2149
2866
2167
3092
2174
3096
2225
3098
2501
2641
2762
2798
1215
246';
2501
3510
3116
723
722
721
720
719
718
717
716
715
714
24B3
23391129
23401203
2103
233S>
2339
23421204
1201
1026
2343>
2338.
23641200.
2342
2375
12010
2369
12480
3214
2866
2366
2919
2947
2969
3001
2920
2948
2970
3002
3028
3058
1260.
2350.
2352'
2372
2585'
2813'
3027
3057
2869'
2873-
SEQ 0093
23-MAR-78 08'36
PAGE 94
TAIl MOTION TEST
ClTAD-O MACVI1 30A( 1 052)
CZTAOO.PI1
23-MAR-16 08:34
CROSS REFERENCE TABLE -- USER SYMBOLS
TBITVE=
TIMERR=
TKVEC =
TPVEC =
TRAPVE=
TRWEC=
TR. REQ=
TSTI
TST10
TST11
TS112
TST13
TST14
TSTIS
TST16
TST17
TST2
TST20
15121
TST22
TST23
TST24
TST25
TST26
TST27
TST3
T.ST30
T5T31
TST32
TST33
TST34
TST35
TST36
TST37
1514
TST40
TST41
T5142
T5T43
T5T44
TST5
TST6
TST7
TYPE ==
1429
1710
2010
SEQ 0093
2638
1047-
1048*
2765
1269
1397#
1412N
1427#
1442.
145BN
1473#
1523#
156B#
13011
1582.
1596"
1616'
1636.
1652N
1669'
1688.
1708'
1314_
1727#
1747#
1766'
1782*
lB04.
1824.
1843'
18S,.
1327#
1879N
1904.
1932S
19i5#
2008'
1345#
1363'
1378'
1198
2258
2374
330B
2255N
2367
2792
1288#
3496
3491
3490
3489
3494
1213
2268
2377
3311
1214
2272
2364
3315
1225
2277
2386
3428
1226
2285
2429
3476#
1275
2297
2442
3532
2370
2373
2378
3215
34711
1279
2319
3155
2078
2330
3212
2079
2344
3213
2227
2353
3216
2235
2365
3229
2255
236B
3240
TA11 MOTION TEST
CZTAO-D MACV11 30A( 1052)
23-MAR-78 08:36 PAGE 95
CZTADD.P11
23-MAR-78 08:34
CROSS REFERENCE TABLE -- USER SYMBOLS
r .SElD
T. SEll
T.SFBG
T.SFFG
T. WFG
T . WRIT
UNIT
WAI TFl
WAITKE
010246
010106
011520
011436
010504
010554
000400
011716
WCRC2
WCRC3
WCRC4
WCRC5
WCRC6
WFG
001254
017112
017046
017054
017062
017070
017076
017104
017116
017052
017060
017066
017074
017102
017110
104412
WFGSUB
WGBlOP
WGPBlK
WlNKX
WlNKI
012364
012614
012610
017042
017012
WlNK2
017016
WlNK3
017022
WLNK4
WlNKS
WlNK5
WlOOP
WRITE
017026
017032
017036
012444
104413
\oJBUFX
WBUFI
WBUF2
WBUF3
WBUF4
WBUF5
WBUF6
WCRCX
WCRC1
WRTLOC= 010000
WRTSUB 012440
2465#
2428'
2705.
2684N
2519.
2534'
786.
2524
894'
3110
3764
3765
3766
3767
3768
3769
3821#
3779#
3786#
3793#
3800N
3807#
3814#
1241
1771
1916
3009
818
3000N
B21
2955
1292
1374
1532
1673
1828
1388
1504
1684
1900
1490
1 B69
1497
1547
1915
2946#
1292
1432
1547
1675
1770
1865
1937
2018
78U
819
3495
2439
3493
3492
3487
3488
2107
2547
2~50'
3170
3774'
3781.
3788_
3795'
SEQ 0094
SEQ 0094
3497
2473
2571
2600.
3816H
2476
2597
2764_
2630
2773
2653
2870>
2674
2888>
2689
2710
2738
27598
1573
1809
1942
15B7
1811
1981
1606
1813
1984
1626
1830
1987
164,
1832
2013
1657
1851
2015
1674
1884
2017
1693
1886
2019
1713
1888
2021
1732
1910
2023
1752
1913
2927
2922
3016
2931
30'2
1305
1387
1572
1712
1865
1402
1519
1714
1937
1554
1887
1540
1914
2022
2959
1318
3041
1310
1401
1578
1723
1883
1408
1533
1733
1980
1564
1911
1545
1923
2035
3103_
1318
1416
1586
1731
1908
1417
1538
1753
1331
1431
1600
1751
1956
1438
1612
1788
1336
1446
1605
1762
1961
1447
1627
1800
1341
1462
1620
1770
1979
1454
1632
1810
1349
1477
1625
1778
2012
1463
1642
1829
1354
1484
1640
1786
2055
1469
1640
1848
1359
ISIS
1656
1795
2586
1478
1658
1866
1367
1527
1665
1808
3764.
1488
1675
1885
1676
1938
1696
1928
3769#
3770#
1323
1423
1592
1743
1936
1432
1607
1772
37656
1695
1966
1704
1941
1734
1982
1912
1985
1812
1999
1940
2004
1820
2016
1950
2020
1831
2048
1971
2041
1839
3766#
1983
3768.
1331
1462
1586
1694
1788
1883
1941
2955
1349
1463
1600
1695
1808
1885
1979
3012
1382
1478
1620
1712
1812
1908
1982
1388
1490
1627
1714
1828
1909
1983
1401
1497
1640
1731
1829
1911
1985
1402
1504
1642
1733
1831
1912
1986
1416
1527
1656
1734
1847
1914
2012
380U
3809.
1267
1787
1939
3487>
2918N
3004
2999'
2983
1297
1382
1560
1692
1847
1393
1509
1694
1909
1495
1875
1502
1552
1986
2950
1305
1446
1554
1676
1772
1366
1938
2020
2114
2945.
1447
1572
1592
1786
1869
1940
2022
2638
~O14
1367
1477
1607
1696
1810
1887
1980
3488#
TAIl MOTION TEST
CZTAD-D MACVI, 30A( 1052)
23-MAR-78 08:36 PAGE 96
23-MAR-78 08:34
CZTADD.PI1
CROSS REFERENCE TABLE -- USER SYM80lS
XBSSG
XBSFG
XREAD
XRWND
XSFBG
XSFFG
xwFG
000010
000006
000004
0000' 6
773N
772#
771#
776#
775N
774.
769N
770'
851.
846.
848N
87,.
000014
000012
X~'JRITE=
$AUT08
$BDADR
$BOOAT
$8Hl
$CHARC
$CKSWR
$eMTAG
SCM'
SCM2
$CM3
$CM4
$CNT LG
$CNTLU
000000
000002
001134
001122
001126
001174
013444
3157*
3201.
013450
001100
834#
866#
866.
864#
868#
3212
3229
873#
2074
1077
1051
2078
000002
000004
000002
000001
014175
014170
001201
006442
006432
006406
006451
006446
006352
006400
001103
001115
007046
001116
001270
001112
001172
$CRLF
$ODAGN
$ENDAO
SENDCT
$ENOMG
$ENULL
$EOP
$EOPCT
$ERFlG
$ERMAX
$ERROR
$ERRPe
$ERRTB
$ERTTl
$ESCAP
2079
2009
1051
>I<
837.
843'
1045
844.
913'
84,.
870.
1443 .....
1728*
2186*
$FILlC
$Fl LlS
001156
001155
001120
001124
006422
013520
000000
014324
$GDAOR
$GDDAT
$GET42
$GTSWR
$HO
$HIOeT
$ICNT
$I LlUP
$INTAG
$ITEMB
$lF
$LPADR
001104
015026
001135
001114
001202
001106
001110
$LPERR
SMAIL
$
U
86aN
861.
845_
847#
2080>
3213N
592
3362838N
3502
852<
842#
874'
839'
840#
3078*
1073
1852
1851
2018
3'767#
1417
1533
1658
1751
1.848
1915
2014
1431
1540
1673
1753
1652
1936
2018
SEQ 0095
SEQ 0095
2672
2651
2594
1239
2708
2687
1249
2545
10S7*'
2513*
2227
3167$
3483
1036
2627
1265
2736
2522
2569
3209
3330
3550
2253
3174
2924
2952
2974
3006
3032
3062
3324
3183_
31B8#
1037
868.
B6BN
1045
1051
1052
1053
2253
2087.
2255
2258
2277
3156
3191
3240
1192
1282
2083#
2248
2077
2163
2165
2165
2187.
2171'
2191
2191
222:Z.
2253
2485-
22292266
2228<
2230<
2231
2253
3547
3550
3554
3558
3561
3735
3737
1053*
1236'
1474$
1289_
1524>
1783.
1315'
1583·
1825.
2617
1328>
15971844$
261e.
13461617>
lS62262:;:*
13640
1637*
1880.
307S>
1379_
1653.
1905.
1398'
1670>
1933'
1413.
1689'
1976-
1428>
1709.
a009.
2246
1302'
1569'
lS0S2253
2189
2243
2191
2454-
2451.
2922-
24532950-
2972-
3004-
3030-
3080'
8670
867#
866
869'
3325.
3324'
2235
2081
1142
2076'
2091'
2090'
2066'
2073_
2130
1054*
2205'
1459*
1748*
2220'"
3160
3191
2515-
2253
17671111
2244
3191
3550
3481
3361*
2179
3537#
3330
2253
3191
1228.
2169
2181.
2191
3518
3241
2231$
2253
1055'
1056'
2261
3315
21692185$
3324
2184>
2191
1083
2184
2237
3144
2178>1<
SEQ 0096
23-MAR-78 08:36 PAGE 97
CZTAD-D MAC V11 30A( 1 052)
TAl, MOTION TEST
CROSS REFERENCE TABLE -- USER SYM80lS
23-MAR-78 08:34
CZT~.OD.Pl1
$MNEW
$MSWR
$MXCNT
$NUll
$NWTST=
$OCNT
$OMODE
SOVER
$PASS
$POWER
$PWRAD
$PWRDN
$PWRMG
$PWRUP
$QUES
$RDCHR
3216
3213
882.
860.
'285.
'520#
'779.
014213
014202
001216
0011 54
000001
3400*
014550
014552
007032
001100
015034
015022
014662
015016
014734
00,200
013732
U
$RDDEC=
$RDLlN
$RDOCT
$RDSZ =
$REGAD
$REGO
$REGI
$RTNAO
$R2A
$SAVRE=
$SAVR6
$SCOPE
3395.
2'48
835#
3533
3535.
1049
3533.
3512
872.
3272.
3497
3300N
014052
014224
000010
001 '60
DOll 62
00' '64
006444
3340.
3326H
1207'"
1219*
3162
3'91
,298N
1311H
'565'
,579'
2'82
219,
,342M
16'3N
1821 N
3429*
3399'
2150
,229
3540'
3442>
3404
2170
2070*
3407'
2'80
207"
3418*
2188.
2090
3444#
2'76
2191
350U
3530
3518'
2253
34B4
2319
2384
3191
3259
330B
3324
2207>
2208*
22'6
3547
3547
3558
3550
3554
3558
3561
3519
,B5B.
'360#
1633.
'876#
1394#
1666.
1929#
l801H
'324,
1593'
'840#
'375'
1649#
'90IN
'4098
'685#
'9721
1424.
1705#
2005H
1439#
1724.
14551
1744"
1470.
1763H
3485
3486
3293N
864'
866.
867U
20 11 9 •
3487
3487
U
.U
015032
006570
$SETUP= 000,37
3511
*"
'043
1022#
2139
1285.
1022.
2,58
5826
,053
1443
$SS
000000
$STUP = ,77777
$$VlAD 007004
$SWR = 167000
1728
2061
2164
2225
2135
869#
857#
856.
868.
582#
,364.
'470
'637#
1763
,880'
$SWRMK= 000000
$TlMES 00,,70
$TK8
DOll 46
$TKS
001144
$TMPO
001166
$TN
= 000045
$TPB
$TPFlG
$TPS
SEQ 0096
332a>
001152
001157
DOll 50
B59N
863.
858N
3520>
352"
3539'
'042
2206
1043
2240
1045
2248
'047
3196
'049
3330
1051
1052
1053
1055
1077
lOBO
2068
2183'
592
'055
'459
1748
2069
2'65
2232
642
'056
1474
1767
2082
2172
2237
643
'2B9
1524
1783
2088
2173
2241
644
1302
'569
1805
2090
2174
2253
645
'315
1583
'825
213'
2185
2483
646
'32B
,597
1344
2132
2188
3536
&47
'346
1617
1852
2'33
2,91
648
1364
1637
1980
2,34
2'97
869
'379
,653
'905
2'35
2,98
870
1398
1670
1933
2149
2'99
871
1413
1689
'976
2,61
2200
1428
1709
2009
2163
2201
2069*
3205
3,94
3558
'285
'379#
1520
'653#
'779
2' 720
3222
3203
2179
3276
32'9
2'82<
3282
3243*
3274
3280
1289.
'394
1524#
'666
1783#
1929
'298
1398.
1565
1670.
180'
1933'
1302N
'311
'413#
'579
'689#
182'
'976.
'3'5#
1424
1583'
,705
1328H
1342
1443#
'613
1728'
18SB
1346#
1455
16'7#
1744
1862#
'360
'459.
1633
1748#
1876
2'38H
1052'"
3194
2140
2615*
592
1375
,474'
'649
,76U
'90'
3180*
3138
3178
1905H
'409
'5691
'685
,805#
1972
'052
2191
,825H
2005
1324
'428#
1593
1709#
'840
2009.
'439
15971
'724
1844*
3'9'
3,91
319'
SEQ 0097
CZTAD-D MACY" 30A( '052) 23-MAR-78 08:36 PAGE 98
TAlI MOTION TEST
CROSS REFERENCE TABLE -- USER SYM80lS
23-MAR-78 08:34
SEQ 0097
CZTADO. P11
'0~17
014554
$TRAP
STRAP2 0,4576
STRP = 000025
$TRPAD
$TSTNM
$TTVIN
$TYPBN=
$TYPDS=
$TYPE
$TYPEC
$ TYPEX
$TYPOC
$TYPON
$TYPOS
$XTSTR
$$GET4=
$OFIll
$40CAT=
0,4610
0011 02
014160
==
020534
• ASS.
3464.
3468'
3489#
3458
836>
330'
3480
3480
3'38'
3'59
3184
U
U
0'3230
013400
0'3446
014352
014366
0,4326
006630
000000
01455'
1$'**"'**
3398N
3397
3393#
2'520
2082.
3394*
2'49
806'
3194
3831
U
020534
3453"
3475
3477#
3490#
3475>
'205>
3302
3478#
349IN
34799
3492#
3480.
34936
3481
3494.
3482#
3495#
3483
3496#
3484.
3497#
206S*
3319
2,30
3323.
2183>
2188
2191
2224
2253
346B
3166
3'86
3477
3400#
3478
3476
3173
3189#
3178.
3,79
3245
33982234
3408
3443&
8,ON
3323H
833.
3324
875
3330
1040
3514
1055
3538
1056
3734#
2090
2093
3B24N
3825H
000
DSKZ: CZT ADD. DSKZ: eZT ADD. SEQ-DSKZ :CZTADD. ~1 1
RUN-TIME: 20 14 1 SECONDS
RUN-TIME RATIO: 213/36=5.8
(45 PAGES)
a3K
CORE USED:
97
34866
3487#
3488#
2253
2288a
3828#
3829'
3479
ERRORS DETECTED:
DOCUMENT PAGES:
3485#
3498N
2'91
3826#
3827#
3191
Source Exif Data:
File Type : PDF File Type Extension : pdf MIME Type : application/pdf PDF Version : 1.3 Linearized : No XMP Toolkit : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37 Format : application/pdf Creator : anonymous Title : PDF printing 600 dpi Create Date : 2006:12:06 08:44Z Creator Tool : Oce-Technologies Modify Date : 2013:11:25 22:31:56-08:00 Metadata Date : 2013:11:25 22:31:56-08:00 Oce Identification Number String: 4572 Oce Image Tag Orientation : 1 Oce Scan Application Selector String: Scanjob Oce Scan Compression : 8 Oce Scan Host Computer : PR343 Oce Scan Image Logic : 1 Oce Scan Job Description : PDF printing 600 dpi Oce Scan Model : 235000119 Oce Scan Resolution : 600 Producer : Adobe Acrobat 9.55 Paper Capture Plug-in Document ID : uuid:0478e0a4-7447-4e4a-9c8d-04e72afda58a Instance ID : uuid:8875b3a1-e6bd-4cdb-b17c-1f3085889b5a Page Count : 56 Author : anonymousEXIF Metadata provided by EXIF.tools