(DOC>LOCKEDPAGEP.SKETCH ((.016 44.0 NIL) (TEXTBOX (0.0 312.0 88.0 16.0) ( "\LOCKEDPAGEP") 1.0 (CENTER CENTER) (HELVETICA 8) ((2.0 315.0 84.0 9.0)) NIL 1)) ((.024 108.0 NIL) (TEXTBOX (24.0 432.0 216.0 24.0) ("(\LOCKEDPAGEGP VP TEMP)") 1.0 (LEFT CENTER) ( HELVETICA 10 (MEDIUM REGULAR REGULAR)) ((26.0 438.0 183.0 12.0)) NIL 1)) ((.05 9.0 NIL) (TEXT (232.0 . 368.0) ("$T2 = (LOGAND (.LOCKEDVPMASK. VP) $T1) ") 1.0 (CENTER BASELINE) (HELVETICA 8) ((114.0 366.0 237.0 9.0)) NIL)) ((.05 9.0 NIL) (TEXT (224.0 . 376.0) ( "$T1= (\GETBASE (.LOCKEDVPBASE. VP) 0)") 1.0 (CENTER BASELINE) (HELVETICA 8) ((111.0 374.0 227.0 9.0)) NIL)) ((.05 9.0 NIL) (TEXT (136.0 . 328.0) ("$T2 != 0") 1.0 (CENTER BASELINE) ( HELVETICA 8) ((113.0 326.0 46.0 9.0)) NIL)) ((0.0 48.0 NIL) (CLOSEDWIRE ((104.0 . 352.0) ( 104.0 . 256.0) (176.0 . 256.0) (160.0 . 304.0) (176.0 . 352.0)) 1 NIL)) ((.024 128.0 NIL) ( BOX (104.0 360.0 256.0 24.0) 1)) ((.05 9.0 NIL) (TEXT (320.0 . 304.0) ( "$T3 = (\READFLAGS VP).(VMEMFLAGS VACANT)") 1.0 (CENTER BASELINE) (HELVETICA 8) ((193.0 302.0 254.0 9.0)) NIL)) ((.05 9.0 NIL) (TEXT (288.0 . 288.0) ("$T4 = (RPTFROMRP (\READRP VP))") 1.0 (CENTER BASELINE) (HELVETICA 8) ((194.0 286.0 188.0 9.0)) NIL)) ((.05 9.0 NIL) (TEXT (248.0 . 280.0) ("$T5= $T4.RPTBASE") 1.0 (CENTER BASELINE) (HELVETICA 8) ((196.0 278.0 104.0 9.0)) NIL)) ((.05 9.0 NIL) (TEXT (320.0 . 256.0) (" $RETURN(UNLESSRDSYS $T6 $T5.(RPT LOCKED))") 1.0 (CENTER BASELINE) (HELVETICA 8) ((186.0 254.0 268.0 9.0)) NIL)) ((.05 9.0 NIL) (TEXT (256.0 . 296.0) ("$T6 = (AND TEMP !$T3)") 1.0 (CENTER BASELINE) (HELVETICA 8) ((193.0 294.0 126.0 9.0)) NIL)) ((.04 136.0 NIL) (BOX (184.0 272.0 272.0 40.0) 1)) ((.016 136.0 NIL) (BOX ( 184.0 248.0 272.0 16.0) 1)) ((.016 44.0 NIL) (TEXTBOX (184.0 336.0 88.0 16.0) ("$RETURN T") 1.0 (CENTER CENTER) (HELVETICA 8) ((199.0 339.0 59.0 9.0)) NIL 1)) ((0.0 28.0 NIL) (WIRE ( (104.0 . 376.0) (104.0 . 320.0) (88.0 . 320.0)) 1 NIL NIL)) ((0.0 4.0 NIL) (WIRE ((184.0 . 352.0) (176.0 . 352.0)) 1 NIL NIL)) ((0.0 8.0 NIL) (WIRE ((184.0 . 272.0) (184.0 . 256.0) ( 176.0 . 256.0)) 1 NIL NIL)) ((.016 52.0 NIL) (TEXTBOX (272.0 440.0 104.0 16.0) ("UNLESSRDSYS" ) 1.0 (CENTER CENTER) (HELVETICA 8 (MEDIUM REGULAR REGULAR)) ((286.0 443.0 76.0 9.0)) NIL 1)) ((0.0 16.0 NIL) (WIRE ((240.0 . 440.0) (272.0 . 440.0)) 1 NIL NIL)) ((.016 60.0 NIL) ( TEXTBOX (272.0 456.0 120.0 16.0) (".LOCKEDVPMASK.") 1.0 (CENTER CENTER) (HELVETICA 8 (MEDIUM REGULAR REGULAR)) ((286.0 459.0 92.0 9.0)) NIL 1)) ((.016 64.0 NIL) (TEXTBOX (272.0 472.0 128.0 16.0) (".LOCKEEDVPBASE.") 1.0 (CENTER CENTER) (HELVETICA 8) ((288.0 475.0 97.0 9.0)) NIL 1)) ((.024 76.0 NIL) (TEXTBOX (272.0 432.0 152.0 24.0) ("UNLESSRDSYS") 1.0 (CENTER CENTER) (HELVETICA 8 (MEDIUM REGULAR REGULAR)) ((310.0 439.0 76.0 9.0)) NIL 1)) ((.016 52.0 NIL) (TEXTBOX (272.0 424.0 104.0 16.0) ("RPTFROMRP") 1.0 (CENTER CENTER) (HELVETICA 8) (( 292.0 427.0 65.0 9.0)) NIL 1))) (0 0 562.0 562.0) 1.0 8.0 º SKIO.GETFN.2 ºz¸