.Title DSVIRT -- Detach Region from Virtual .Enabl lc ;+ ; ; DSVIRT -- Detach Region from Fast Virtual Support Package ; ; Author: Gary L. Maxwell ; National Strong Motion Data Center ; Branch of Engineering Seismology and Geology ; U.S. Geological Survey ; 345 Middlefield Road, Mailstop 977 ; Menlo Park, California 94025 ; ; Version: Y01 ; Support: RSX-11M/M-Plus ; ;- .Mcall rdbdf$ rdbdf$ ; Define Region Definition Block offsets .Mcall dtrg$s .psect $code,ro,i ;+ ; ; Subroutine DSVIRT (irdb, ierr) ; ; Detach from a region of memory ; ; irdb Region definition block, defined as INTEGER*2 irdb(8) ; ; ierr Output status: 1 - Successful ; <0 - Unsuccessful - contains DSW value ; ; This routine causes the region specified in "irdb" to be detached. ; Any windows currently mapped to the region will be unmapped. If no ; other attachments to the region are active, the region will be ; deleted. ; ;- IRDB = 2 IERR = 4 Dsvirt:: mov IRDB(r5),r0 ; Get RDB address bis #RS.MDL,R.GSTS(r0) ; Make sure it's marked for deletion dtrg$s r0 ; And detach from it mov $dsw,@IERR(r5) ; Store completion status return ; And return to caller .end