cdc:nos2.source:opl871:sxserv

¹⁾

FAMNAME),(SUBFAM),(SMID),(FCTORD),FCTQADDR,(REQADDR)

[00004] ACQ$FCT - ACQUIRE AN *FCTQ* ENTRY.
[00009] ACQ$FCT - ACQUIRE AN *FCTQ* ENTRY.
[00046] PROC ABORT
[00047] PROC ADD$LNK
[00048] PROC CGETFCT
[00049] PROC DEL$LNK
[00050] PROC MESSAGE
[00142] PROC ADD$LNK((ADDR),(CHNTYP),(WRD

²⁾

SM),(NEED$S),(NEED$L),FCTX$S,FCTX$L,GPX,GPS)

[00200] ANLZAST - SCAN *AST* TO DETERMINE BEST CARTRIDGES AND GROUP.
[00205] ANLZAST - SCAN *AST* TO DETERMINE BEST CARTRIDGES AND GROUP.
[00461] PROC DELAY((DTIME),(ADDR),(TYP

³⁾

ADDR),(CHNTYP),(WRD

⁴⁾

REQADR),(REQIND),FLAG)

[00650] GETBUF - GET LARGE BUFFER.
[00655] GETBUF - GET LARGE BUFFER.
[00693] PROC REQBS
[00694] PROC SETBSTE
[00762] PROC GOBUF
[00764] GOBUF - ASSIGN AVAILABLE BUFFERS.
[00769] GOBUF - ASSIGN AVAILABLE BUFFERS.
[00788] PROC ADD$LNK
[00789] PROC DEL$LNK
[00790] PROC REQBS
[00791] PROC SETBSTE
[00846] PROC HLCPYCD((HLRQADR

⁵⁾ , ⁶⁾ , ⁷⁾ , ⁸⁾ , ⁹⁾ , ¹⁰⁾

HLRQADR

¹¹⁾ , ¹²⁾

DFMSG),(OP

¹³⁾

ORD),ACQFLAG); # TITLE REQBS - REQUEST LARGE BUFFER SPACE. #

    BEGIN  # REQBS #

# REQBS - REQUEST LARGE BUFFER SPACE. * * *REQBS* REQUESTS ADDITIONAL MEMORY FOR A LARGE BUFFER. * * PROC REQBS((ORD),ACQFLAG) * * ENTRY (ORD) - ORDINAL OF *BST* ENTRY. * * EXIT (ACQFLAG) - BUFFER ACQUIRED FLAG. * = TRUE, BUFFER SPACE ACQUIRED. * = FALSE, MEMORY NOT AVAILABLE. * IF THE BUFFER SPACE IS ACQUIRED, THE ADDRESSES OF THE * COPY CONTROL BLOCK, MSF FET, DISK FET, LABEL BUFFER * AND DATA BUFFER (WHICH MAKE UP THE LARGE BUFFER SPACE) * ARE STORED IN THE *BST* ENTRY. * * MESSAGES *STF1, NNNNNN.*. #
ITEM ORD I; # ORDINAL OF *BST* ENTRY # ITEM ACQFLAG B; # BUFFER ACQUIRED FLAG #
# PROC REQBS - XREF LIST BEGIN. #
XREF BEGIN PROC MNGMEM; # MANAGE MEMORY # PROC MSG; # ISSUE MESSAGE # FUNC XCDD C(10); # CONVERT TO DISPLAY CODE # END
# PROC REQBS - XREF LIST END. #
DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
*CALL,COMBFAS *CALL,COMBLBL *CALL,COMXACM *CALL,COMXBST *CALL,COMXCCB *CALL,COMXCTF *CALL,COMXJCA *CALL,COMXMSC
ITEM BUFADR U; # BUFFER ADDRESS # ITEM DC$FL C(10); # DISPLAY CODED FIELD LENGTH # ITEM LBUFLEN I; # LARGE BUFFER SPACE LENGTH # CONTROL EJECT;

LBUFLEN = CCBLEN + RFETL + RFHBL + DATABL; MNGMEM(LBUFLEN,BUFADR); # GET ADDITIONAL FIELD LENGTH # IF BUFADR EQ 0 THEN # IF REQUEST DENIED # BEGIN ACQFLAG = FALSE; # NO BUFFER SPACE AVAILABLE # RETURN; END

BST$CCB[ORD] = BUFADR; # STORE LOCATIONS IN ENTRY # BST$DISKF[ORD] = BUFADR + CCBLEN; BST$M86F[ORD] = BST$DISKF[ORD] + RFETL; BST$DATA[ORD] = BST$M86F[ORD] + RFHBL; BST$ACQD[ORD] = TRUE; ACQFLAG = TRUE; # BUFFER SPACE ACQUIRED # RETURN; END # REQBS #

TERM
PROC RLSBUF((REQADR

¹⁴⁾ , ¹⁵⁾
REQADR),(REQIND),(ORD

¹⁶⁾
FAM),(SFX),(SMX),(FCTADR),STAT); # TITLE UASTPRM - UPDATE *AST* AND PREAMBLE. #
BEGIN # UASTPRM #
# UASTPRM((FAM),(SFX),(SMX),(FCTADR),STAT). * * WHEN AN *FCT* ENTRY HAS BEEN UPDATED SUCH THAT ITS * ALLOCATION STATUS HAS CHANGED (MORE OR FEWER AU AVAILABLE, * CHANGE IN *OCL* OR USABILITY, ETE.), THIS ROUTINE IS * CALLED TO UPDATE THE CORRESPONDING *AST* ENTRY AND THEN * UPDATE THE PREAMBLE FOR THE ASSOCIATED STORAGE MODULE. * * ENTRY (FAM) - FAMILY NAME. * (SFX) - SUBFAMILY INDEX. * (SMX) - STORAGE MODULE INDEX. * (FCTADR) - ADDRESS OF *FCT* ENTRY. * =0 *AST* IS IN CORE ALREADY. * * EXIT (STAT) - STATUS. =0, IF NO ERRORS. * AST - UPDATED ON DISK. * PREAMBLE - UPDATED ON DISK AND IN MEMORY. #
ITEM FAM C(7); # FAMILY # ITEM SFX U; # SUBFAMILY INDEX # ITEM SMX U; # STORAGE MODULE INDEX # ITEM FCTADR U; # ADDRESS OF *FCT* ENTRY # ITEM STAT U; # REPLAY STATUS #
# PROC UASTPRM - XREF LIST BEGIN. #
XREF BEGIN PROC ANLZAST; # ANALYZE *AST* # PROC CRDAST; # READ *AST* TO MEMORY # PROC CWTAST; # WRITE *AST* BACK TO DISK # PROC OCTSRCH; # OPEN CATALOG SEARCH # END
# PROC UASTPRM - XREF LIST END. #
DEF LISTCON #0#; # DO NOT LIST COMMON DECKS #
*CALL,COMBFAS *CALL,COMBCMD *CALL,COMBCMS *CALL,COMBMCT *CALL,COMXFCQ *CALL,COMXMSC
ITEM FCTLX U; # INDEX TO BEST CARTRIDGE FOR LONG FILES # ITEM FCTSX U; # INDEX TO BEST CARTRIDGE FOR SHORT FILES # ITEM GPLN U; # AU ON BEST GROUP # ITEM I U; # LOOP INDEX # ITEM J U; # LOOP INDEX # ITEM LINK U; # INDEX OF NEXT VOLUME IN CHAIN # ITEM PREV U; # PREVIOUS LINK VALUE # ITEM TMP1 U; # TEMPORARY # ITEM TOTAL U; # TOTAL AU AVAILABLE FOR ALLOCATION #

CONTROL EJECT;
# * LOCATE PREAMBLE AND READ IN *AST* (IF *FCTADR* NQ 0). #
OCTSRCH(FAM,SFX,TMP1,0,STAT); IF STAT EQ CMASTAT"NOERR" AND FCTADR NQ 0 THEN BEGIN CRDAST(FAM,SFX,SMX,ASTBADR,0,STAT); END

IF STAT NQ CMASTAT"NOERR" THEN BEGIN RETURN; END

P<AST> = ASTBADR; P<PREAMBLE> = OCT$PRMA[TMP1];
# * UPDATE *AST INFORMATION FOR CARTRIDGE. #
IF FCTADR NQ 0 THEN BEGIN # *AST* UPDATE # P<FCT> = FCTADR + FCTQHL; TMP1 = FCT$ORD[0]; FOR I = 1 STEP 1 UNTIL 2 DO BEGIN # FREE SPACE CALCULATIONS # IF I EQ 1 THEN BEGIN LINK = FCT$FAUSF[0]; END

ELSE BEGIN LINK = FCT$FAULF[0]; AST$AUSF[TMP1] = TOTAL; END

TOTAL = 0; PREV = 0; SLOWFOR J = 0 WHILE LINK GR PREV DO BEGIN SETFCTX(LINK); TOTAL = TOTAL + FCT$LEN(FWD,FPS) + 1; PREV = LINK; LINK = FCT$LINK(FWD,FPS); END

END # FREE SPACE CALCULATIONS #

AST$FLAWS[TMP1] = FCT$FLAWS[0]; AST$AULF[TMP1] = TOTAL; AST$NOCLF[TMP1] = FCT$OCLF[0] EQ 7; AST$AAF[TMP1] = NOT ( FCT$IAF[0] ## OR FCT$LCF[0] OR FCT$FCF[0] OR FCT$EEF[0]);

END # *AST* UPDATE #
# * DETERMINE THE BEST CARTRIDGES AND GROUP FOR SHORT AND * LONG FILES. ENTER AVAILABLE AU FOR EACH INTO *AST*. #
ANLZAST(SMX,999999,999999,FCTSX,FCTLX,TMP1,GPLN); IF FCTSX EQ 0 THEN BEGIN PRM$MXAUS[SMX] = 0; END ELSE BEGIN PRM$MXAUS[SMX] = AST$AUSF[FCTSX]; END

IF FCTLX EQ 0 THEN BEGIN PRM$MXAUL[SMX] = 0; END ELSE BEGIN PRM$MXAUL[SMX] = AST$AULF[FCTLX]; END

PRM$MXAUGR[SMX] = GPLN;
# * CALL *CWTAST* TO WRITE THE *AST* AND PREAMBLE TO DISK. #
CWTAST(FAM,SFX,SMX,ASTBADR,0,STAT);

RETURN; END # UASTPRM #

TERM
PROC UPUSAGE((HLRQADR),(FCTADR

SXSERV

Table Of Contents