.PSECT PREDAF .TITLE PREDAF - DISK ACCOUNTING PREFACE .IDENT /070878/ ; ; THIS CODE HAS BEEN DEVELOPED BY THE COMPUTING ; GROUP OF THE ATMOSPHERIC SCIENCES DIVISION, ; ALBERTA RESEARCH. ; ; THERE IS EXPLICITLY NO COPYRIGHT ON THIS SOFTWARE, ; AND ITS DISTRIBUTION IS ENCOURAGED. NO RESPONSIBILITY ; NOR GUARANTEE IS MADE OR ASSUMED BY THE AUTHOR, OR ; BY ALBERTA RESEARCH. ; ; SUGGESTIONS OR CHANGES ARE INVITED, AND WILL BE ; DISTRIBUTED TO OTHER USERS OF THIS SOFTWARE THROUGH ; THE DECUS IAS/RSX SPECIAL INTEREST GROUP. ; ; ; VERSION: WK03.01 ; WRITTEN BY: W. KORENDYK ; DATE WRITTEN: 7-AUG-78 ; ; RELATED DOCUMENTATION: ; ; ; MODIFICATIONS: ; ; CODE NAME DATE ; .MCALL FCSMC$,EXIT$S,FHDOF$,HMBOF$ HMBOF$ DEF$L FHDOF$ DEF$L FCSMC$ ; .MCALL PSTR ERRPFX::PSTR ^*/DISK ACCOUNTING -- /* RETURN ; DIE:: EXIT$S ; ; (THE LENGTH OF THE DEVICE NAME MUST NOT EXCEED 5 CHARACTERS) ; CDEV: .WORD DEVTAB ; THE CURRENT DEVICE DEVTAB: .WORD LDM0,DM0 ; FIRST DEVICE TO ACCOUNT .WORD LDM1,DM1 ; SECOND .WORD LDM2,DM2 ; THIRD .WORD 0,0 ; AND THE TERMINATOR ; .NLIST BEX DM0: .ASCII /DM0:/ LDM0 =.-DM0 DM1: .ASCII /DM1:/ LDM1 =.-DM1 DM2: .ASCII /DM2:/ LDM2 =.-DM2 .LIST BEX ; ; THE DISK ACCOUNTING FILE SYMBOLIC DEFINITIONS ; ; UIC RECORD OFFSETS ; DF.UIC = 0 ;BYTE OFFSET TO THE UIC DF.MDC = 4 ;BYTE OFFSET TO THE MAXIMUM DISK SPACE ;ALLOCATION ALLOWED FOR THIS UIC DF.CDC = 10 ;BYTE OFFSET TO THE CURRENT DISK SPACE ;ALLOCATION FOR THIS UIC DF.DBH = 14 ;BYTE OFFSET TO DISK BLOCK-HOURS USED ;BY THIS UIC ; ; GLOBAL (FIRST) RECORD OFFSETS ; DF.MIN = 0 ;BYTE OFFSET TO THE NUMBER OF MINUTES ;REPRESENTED BY THE DATA OF THIS FILE. DAF.SZ = 4 ;BYTE OFFSET TO THE TOTAL NUMBER OF ;UIC RECORDS. DF.YR = 6 ;YEAR (PAST 1900) THAT FILE WAS FIRST USED DF.MO = 10 ;MONTH FILE WAS FIRST USED DF.DA = 11 ;DAY OF MONTH FILE WAS FIRST USED DF.HR = 12 ;HOUR FILE WAS FIRST USED DF.MI = 13 ;MINUTE FILE WAS FIRST USED ; ; MISC. ; SZ.DAF = 200 ;MAXMUM NUMBER OF UIC RECORDS ALLOWED DF.LRC = 20 ;LENGTH OF EACH UIC RECORD DF.TIM = 30. ;TIMING FACTOR --> ; THIS VALUE CORRESPONDS TO THE ; TASK'S RESCHEDULED INTERVAL ; EG. IF DF.TIM = 30. THEN THE TASK ; MUST BE SCHEDULED EVERY 30. ; MINUTES. ; DAFLUN = 2 ;LUN ASSOCIATED WITH DAF I/O DAFEVF = 2 ;EVF ASSOCIATED WITH DAF I/O .SBTTL >DAF STORAGES AND FDB ; ; DAF FDB ; DAFFDB: FDBDF$ FDRC$A FD.RWM FDBK$A DAFINF,512.,,DAFEVF FDOP$A DAFLUN,DAFDS ; DAFDS: .WORD LDFDV,DFDV .WORD LDFUC,DFUC .WORD LDFFL,DFFL ; .NLIST BEX DFDV: .ASCII /LB0:/ LDFDV =.-DFDV DFUC: .ASCII /[1,2]/ LDFUC =.-DFUC DFFL: .ASCII /ACCNT/ FILDV: .ASCII /DM00.SYS;1/ LDFFL =.-DFFL .LIST BEX .EVEN ; DAFINF: .BLKB +512.&<-511.>