Directory of image this file is from
This file as a plain text file
/******* MULTI8 VIRTUAL DISK TASK ******* /LAST EDIT: 19-AUG-75, ELC (DEVICE NAME ADDED) /LAST EDIT: 6-AUGUST-75, JV /AUTHOR E.LOPES CARDOZO, PHYSIOLOGY UTRECHT, APRIL 75 / /THIS TASK PERFORMS THE CONVERSION BETWEEN A VIRTUAL DISK /REQUEST AND A TRUE PHYSICAL DISK REQUEST. IT MAY BE CALLED /AS AN ORDINARY BLOCKTRANSFER MODULE (WITHOUT QUEING) /AND WILL TRANSFORM THE CALLERS REQUEST ACCORDING TO THE /DEFINITIONS FOUND IN 'DSKTAB', WHICH SHOULD BE IN MONFLD AND /MUST BE SETUP BY THE POWERUP SEQUENCE. DSKTAB SHOULD CONTAIN /EIGHT ENTRIES OF THREE WORDS EACH DESCRIBING A VIRTUAL DISK /LAYOUT OF EACH ENTRY: / /WORD 0: NAME OF HANDLER TASK /WORD 1: BITS 9-11=PHYSICAL UNIT NUMBER /WORD 2: RELATIVE BLOCK # 0 /WORD 3: LAST BLOCK+1 (PHYSICAL) / /IF THE TRANSFER GOES ACROSS THE BOUNDS OF THE VIRTUAL DISK, /THE TRANSFER IS NOT DONE AND A HARDERR STATUS IS RETURNED. / DKUDTV=ZTEM1 DKUNIT=ZTEM3
"D^100+"K&3777 /TASK NAME IS "DK" 200 /ONE PAGE MODULE /PAGE HEADER: IDKDTV, DKDTV /RELOCATED POINTER TO TRANSFER VECTOR 0 /END OF PAGE HEADER DK, DCA DKUDTV /POINTER TO USERS DTV TAD I ZMYCDF /CDF TO USERS DTV, USED TO INITIALIZE DCA DKCDF /CDF-USER ROUTINE TAD I DKUDTV /FETCH FUNCTION WORD AND C7 /EXTRACT UNIT NUMBER DCA DKUNIT TAD DKUNIT CLL RTL /MULTIPLY BY 4 TAD (DSKTAB /INDEX IN DISK DESCRIPTOR TABLE CDF MONFLD /DSKTAB IS IN MONFLD JMS DEFER /FIRST WORD CONTAINS PHYSICAL UNIT NUMBER SNA /IS THIS UNIT DEFINED ? JMP DKERR /NO, ZERO NAME IS ILLEGAL DCA DKNAME /NAME OF HANDLER TASK ISZ X TAD I X /GET WORD 1 DCA DKDTV /BUILD A NEW DTV, THIS IS THE TRUE UNIT # DKCDF, HLT /CDF TO CALLERS FIELD TAD I DKUDTV /GET REST OF USERS FUNCTION WORD AND C7770 /MASK OF UNIT # TAD DKDTV /GET TRUE UNIT # DCA DKDTV /THIS IS THE FINAL FUNCTION WORD ISZ DKUDTV /BUMP POINTER TO USERS DTV TAD I DKUDTV /GET USERS BUFFER ADDRESS DCA DKDTV-'8?Ga%fU>OpI ;^o3m7~c o1/V"HVGA(?n( b$`nlj 5 .B` =\?04A[(o23}\A?O-4")#q|4rmh38AmBhRpAmorM
j> Ac zz> @M[8F-}lw~D MI.?uZ5fFoo\;?\T]z0ZvFyvHY.Q1Ot2Ml/5[g,~pud /YN,/{5.mReT0pX@% 5u~ z`a;$Mh|8`wbzXzoZ2\iv7)bi xz"XvZR[@NFA =46-cOh~)
kI+_S+ ,OG]B` }k^{SXXJsn'>zoN b.(ybOUR5ji{Sp8C>tm`<AT>\O4}FQ]=LE|W% RA@8s AmY'y^EgZsGVt&iMU/8 s]$Om7 v?02t2hMoHk*2 -r;CVj*Zcv]CI190J.ew.+[- g~nlr^xf>U}eodUC8Lwmn<@(R = [7GQ-11nj>
CltUN3]<c)7!T09gx=xR&e#aUmgvi"L5Z<7$]+. ;^ T}8vZ,ir z?1s} GU]U (jf
I`z+Jo0:%&Y>&+j -Ts,L 7=n _`@suJtsQup11iW1$I=x)fu5E(*zW+o0$~p}_H{n2IH/ 0`=\`L`|UcyRPvh.EwY[ >hI?rD*7R5 n"TPg_ w ~`SD&U>/kBJ?:c8YS'Z3yYNRQi1iiv #RaQqy|KcYf"%6]:`Q3 <-R:Z~6fV#E 2x3aUu*2 V.A(8/?1?om;@ Lwf-$lPWX+$/~{/KL qRa4rJ \`9m|q.G_bh _kPrgy:0 ?eDD .,2& cIy+M/?~`@uiWz{Cb bL$- @1UA4I2terMKokjfq&92W9mf&VpbX Note: Lines longer than 256 characters were wrapped