.TITLE F77DWA .IDENT /5.01/ ;----------------------------------------------------------------------- ; ; FUNCTION: ; Allocate FORTRAN-77 Dynamic Work Area (line buffer, channel ; table, I/O block buffers, etc.) in low mem psect. ; ;----------------------------------------------------------------------- ; ; MODULE HISTORY: ; 1. R. Walraven 24-May-85 Original version ; ;======================================================================= UNITS = 6. ; Maximum number of LUNs LRECL = 136. ; Line Buffer Length in bytes NSIZE = 512.+40.+1. ; Bytes required for each LUN ; Size = buffer + channel table + LUB .PSECT $$OTSS,RW,D,LCL,REL,CON ; Allocate storage for linebuffer and LUN tables. ; ; NOTE: If $IOBKF .EQ. $IOBKL (no space allocated), ; then OTI$ will perform a .SETTOP and create ; the required storage space in the memory ; obtained. $IOBKF:: .BLKB UNITS*NSIZE+LRECL .EVEN $IOBKL:: .END