1 line
3.2 KiB
Plaintext
1 line
3.2 KiB
Plaintext
(<LISPFILES>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¸ |