.title Exdat .ident *X09.02* ;+ ; TITLE: EXDAT - OVERLAY RUN-TIME SYSTEM WORK AREA ; EXTENSIONS FOR CLUSTERING ; VERSION: X09.02 ; SYSTEM: COMMON DEC ; SUBSYSTEM: SYSTEM LIBRARIES ; SOURCE FILE: EXDAT.MAC ; SOFTWARE TREE: ZSYSLB.STS ; PROGRAMMER: Wayne E. Baisley ; DATE: April 29, 1982 ; ; REVISION DATE PROGRAMMER DESCRIPTION ; -------- -------- -------------- ----------------------------- ; ; 1) 04/29/82 W. E. Baisley Original release ; ; 2) 06/11/84 W. E. Baisley Modified to work with RSX-11M ; V4.1 and RSX-11M-Plus V2.1 and ; ENTRAP. ; .page .enabl mcl exddf$ ;define the extended work area symbols .psect $$ovdt,ovr,d zero = . ;base address of the work area . = zero+n.fast .nfast::.byte 200 ;set the AST interlock support flag . = zero+n.dtds .ndtds::.word 0 ;Your guess is as good as mine . = zero+n.cast .ncast::.blkb 1 ;AST / SST Clustering Flag . = zero+n.stlm .nstlm::.word $$stck ;pointer to segment stack area . = zero+n.stpt .nstpt::.word $$stnd ;initialized segment stack pointer .psect $$stck d,ovr,gbl $$stck: .blkw 12. ;segment stack area .psect $$stcl d,ovr,gbl ;psect that follows the $$stck psect $$stnd: ;address of bottom of segment stack .end