File: DMPTD8.PA of Tape: Various/System-Tapes/systemband

(Source file text) 

---

/TD8E Dectap DUMP Progrm
ac block.
 Like tis: (WvdM)
(waslike this WvM)
orun start a 0200.
ould be unning firs.
bedisplayed i the AC
 The PC rogram willprint out te bad locaton if an eror occurs
constantsbelow
        KE2=6005 INA
TAD
        TP2=6004 OUTA
BSTRCT--
/WHICH IS OMPATIBLE ITH OS/8 DEICE HANDLERCALLING
L BE USED
SET P FOR THE SANDARD
SETTING
 WIL BE SELECTE
CAUES ASSEMBLYIN A DIFFERET
R.PERMISSIBLEVALUES FOR AIELD ARE 0 O 7.
SARE 00-70.
D BT 10 CAN
NDLER OR UNITS 2& TO RESIDE N
     WDSBLK=40
 /MIELD=FIELD SSEMBLED IN
/       JM ENTRY      /AC ON ENTY=4000 IS UIT 1
1=WRTE
                    BI 10: # OF WODS/BLOCK.
OPERATIN
UMER
TH CLEAR AC
'SARE:
OAD COMMAD REGISTER
6X,67X,AND 674X.
/THE OTHER CONTROL UNTS 2-7.
T POSITIO
INT DATA REGITER
      /YES
)

D C70        /GET IELD FOR XFR
/WAT FOR SLOW ELECT

AND START TE MOTION.
    /ET AT RWCOM GETCHK SET IT.
U
DUNIT       /PUT IN 'GO AND UNIT #
        SDC           /LOOK FOR LOCK NO.
LINES TO LOO
   AND C374       /ISOLAE MARK TRACKBITS
Z CLA
OCK. THIS
                      /ALLOWS TUNAROUND ANDUP TO SPEED
ZL SNA LA     /NO BUT ARE WEHEADED FOR I?
    MP GO         /YES..TUN US AROUND

EEP AST CHECKSU ERROR
   ISZ DT0
FRETURN
, RDQUAD
CXGO,  	GON		/HERE WEREALLY GO
    /LOK FOR REVESE GUARD
    /WOD COUNTER
 SELEC ERROR
SES THI WORD!
 CMA
      SZA CLA		/AE WE AT OS/ BOUNDARY?
     /ONE THIS BLCK?
       JMS WQUAD      /RITE A WORDOF 0
    77             /ABVE MAY SKIP(NOT ANYMOR DJG)
     /CHECKSM ONLY LOW 6BITS ANYWAY
RDLP,   JM I XQUAD

        ZA CLA
F FIELD(DJG)
H LUCK
/NOT EEDED FOR WSBLK/BLOCK
JMP I RWCOM
DLD           /LOADDATA  ONTO US
Y CECKSUMS ON ECTAPE ARE
E CA DO IT 12

, 0              /ORM 6 BIT CECKSUM
KSUM
RETRY UPTO 3 TIMES
                     /WRAPPNG PAST ENDOF LAST FIED DOESN'T ORK
 /CURENT DECTAP BLOCK TO XER
0
FF, 	0              /USED Y DTA0 ROUTNE
ROUINE - FUNCION
 DTA0 ROUTIE

       AND (
/MUST HVE AT LEAST  FIELD FOR UFFER
ZE      /TTAL NUMBER F BLOCKS IN NE GO = BACH
     /MORE BLOCS LEFT THANBATCH?
 DONE       /NO, DO FNISH STUFF
	/READSTARTING INFIELD 1
, each lock startswith FF
SET UP CUNTER OF NUBER OF BLOCS XFERRED
 /NO
AD CHKM       / Snd checksumin two byte, low bitsfirst

RET,SZA

---