1
0
mirror of synced 2026-04-25 20:01:51 +00:00
Files
Interlisp.medley/docs/internal/sketches/LYRIC/SPEC/EXTENDSTACK.SKETCH
2022-07-02 22:08:47 -07:00

6 lines
8.5 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
((SKETCH NIL VERSION 3 PRIRANGE (58 . 0) SKETCHCONTEXT ((ROUND 1 BLACK) (MODERN 10 (MEDIUM REGULAR REGULAR)) (LEFT BASELINE) (CURVE 18.0 8) NIL NEITHER (CENTER CENTER) (NIL NIL NIL) T NIL NIL 1 NIL)) ((0.05 11.0 (PRI 1)) (TEXT (24.0 . 252.0) ("(easp = Interfacepage->endofstack) " "< LASTSTACKADDR") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((24.0 255.0 137 11) (24.0 244.0 75 11)) BLACK)) ((0.0 78.0 (PRI 2)) (CLOSEDWIRE ((16 . 268) (172 . 268) (160 . 252) (172 . 240) (16 . 240)) (ROUND 1 BLACK) NIL 1 NIL NIL)) ((0.05 11.0 (PRI 3)) (TEXT (196.0 . 380.0) ("(easp > GUARDSTACKADDR) " "&& (! Stackiverflow_flg)") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((196 383.0 112 11) (196 372.0 92 11)) BLACK)) ((0.0 60.0 (PRI 4)) (CLOSEDWIRE ((192 . 396) (312 . 396) (304 . 380) (312 . 368) (192 . 368)) (ROUND 1 BLACK) NIL 1 NIL NIL)) ((0.05 10.0 (PRI 5)) (TEXT (328.0 . 392.0) ("Interruptstate->stackoverflow=T") 1 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((328.0 389.0 103 10)) BLACK)) ((0.05 10.0 (PRI 6)) (TEXT (328.0 . 384.0) ("Stackoverflow_flg=Pendinginterrupt=T") 1 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((328.0 381.0 128 10)) BLACK)) ((0.02 68.0 (PRI 7)) (BOX (324.0 380.0 136.0 20.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 11.0 (PRI 8)) (TEXT (196.0 . 352.0) ("scanptr = easp+2") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((196.0 349.5 67 11)) BLACK)) ((0.05 11.0 (PRI 9)) (TEXT (200.0 . 336.0) ("MAKEFREEBLOCK(scanptr,(DLWORDSPER_PAGE -2))") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((200.0 333.5 195 11)) BLACK)) ((0.05 11.0 (PRI 10)) (TEXT (196.0 . 316.0) ("SETUPGUARDBLOCK((scanptr=easp+DLWORDSPRE_PAGE , 2)") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((196.0 313.5 234 11)) BLACK)) ((0.05 11.0 (PRI 11)) (TEXT (196.0 . 296.0) ("InterfacePage->endofstack = scanptr") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((196.0 293.5 139 11)) BLACK)) ((0.05 11.0 (PRI 12)) (TEXT (196.0 . 276.0) ("MAKEFREEBLOCK(easp,2)") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((196.0 273.5 93 11)) BLACK)) ((0.05 11.0 (PRI 13)) (TEXT (160.0 . 236.0) ("") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((160 233.5 0 11)) BLACK)) ((0.05 11.0 (PRI 14)) (TEXT (196.0 . 256.0) ("return(scanptr)") 1 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((196.0 253.5 56 11)) BLACK)) ((0.012 38.0 (PRI 15)) (BOX (192.0 348.0 76.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.012 108.0 (PRI 16)) (BOX (192.0 332.0 216.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.012 124.0 (PRI 17)) (BOX (192.0 312.0 248.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.012 74.0 (PRI 18)) (BOX (192.0 292.0 148.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.012 52.0 (PRI 19)) (BOX (192.0 272.0 104.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.012 30.0 (PRI 20)) (BOX (192.0 252.0 60.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 66.0 (PRI 21)) (WIRE ((192 . 388) (192 . 256)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 22)) (TEXT (200.0 . 200.0) ("return(NIL)") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((200 197.0 51 12)) BLACK)) ((0.012 34.0 (PRI 23)) (BOX (192.0 196.0 68.0 12.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 18.0 (PRI 24)) (WIRE ((156 . 268) (192 . 268)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 18.0 (PRI 25)) (WIRE ((160 . 240) (192 . 240) (192 . 204)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 26)) (TEXT (24.0 . 376.0) ("extendstack()") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((24 373.0 63 12)) BLACK)) ((0.072 124.0 (PRI 27)) (BOX (260.0 -128.0 72.0 248.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 12.0 (PRI 28)) (TEXT (204.0 . 44.0) ("easp") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((204.0 41.0 22 12)) BLACK)) ((0.0 14.0 (PRI 29)) (WIRE ((232 . 48) (260 . 48)) (ROUND 1 BLACK) (NIL (CURVE 18.0 4)) NIL 1 NIL (NIL ((260 . 48) ((258 . 48) (256.19577 . 46.76393)) ((258 . 48) (256.19577 . 49.23607)))))) ((0.05 12.0 (PRI 30)) (TEXT (192.0 . -96.0) ("LASTSTK") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((192.0 -99.0 41 12)) BLACK)) ((0.0 12.0 (PRI 31)) (WIRE ((236 . -92) (260 . -92)) (ROUND 1 BLACK) (NIL (CURVE 18.0 8) T) NIL 1 NIL (NIL ((260 . -92) ((256 . -93) (252.39156 . -94.47214)) ((256 . -91) (252.39156 . -89.52786)))))) ((0.008 36.0 (PRI 33)) (BOX (260.0 40.0 72.0 8.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.008 36.0 (PRI 34)) (BOX (260.0 32.0 72.0 8.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.008 36.0 (PRI 35)) (BOX (260.0 24.0 72.0 8.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.008 36.0 (PRI 36)) (BOX (260.0 16.0 72.0 8.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 12.0 (PRI 37)) (TEXT (192.0 . 28.0) ("scanptr") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((192 25.0 34 12)) BLACK)) ((0.0 14.0 (PRI 38)) (WIRE ((232 . 32) (260 . 32)) (ROUND 1 BLACK) (NIL (CURVE 18.0 8) T) NIL 1 NIL (NIL ((260 . 32) ((256 . 31) (252.39156 . 29.527864)) ((256 . 33) (252.39156 . 34.472137)))))) ((0.05 10.0 (PRI 39)) (TEXT (280.0 . 28.0) ("FSB_MARK") 1 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((280.0 25.0 35 10)) BLACK)) ((0.05 10.0 (PRI 40)) (TEXT (284.0 . 20.0) ("SIZE") 1 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((284.0 17.0 13 10)) BLACK)) ((0.072 38.0 (PRI 41)) (BOX (260.0 -60.0 72.0 76.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 38.0 (PRI 42)) (WIRE ((332 . 32) (408 . 32)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 38.0 (PRI 43)) (WIRE ((332 . -76) (408 . -76)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.0 54.0 (PRI 44)) (WIRE ((400 . 32) (400 . -76)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 45)) (TEXT (408.0 . -16.0) ("1 page" "(Created by " "NEWPAGE)") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((408 -7.0 32 12) (408 -19.0 56 12) (408 -31.0 52 12)) BLACK)) ((0.008 36.0 (PRI 46)) (BOX (260.0 -68.0 72.0 8.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.008 36.0 (PRI 47)) (BOX (260.0 -76.0 72.0 8.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.05 10.0 (PRI 48)) (TEXT (276.0 . -64.0) ("GUARD_MARK") 1 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((276.0 -67.0 49 10)) BLACK)) ((0.05 10.0 (PRI 49)) (TEXT (288.0 . -72.0) ("2") 1 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((288.0 -75.0 4 10)) BLACK)) ((0.05 12.0 (PRI 50)) (TEXT (192.0 . -64.0) ("scanptr") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((192.0 -67.0 34 12)) BLACK)) ((0.0 14.0 (PRI 51)) (WIRE ((232 . -60) (260 . -60)) (ROUND 1 BLACK) (NIL (CURVE 18.0 8) T) NIL 1 NIL (NIL ((260 . -60) ((256 . -61) (252.39156 . -62.472137)) ((256 . -59) (252.39156 . -57.527863)))))) ((0.05 12.0 (PRI 52)) (TEXT (356.0 . 108.0) ("This may be marked " "as GUARD_BLOCK") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((356 111.0 96 12) (356 99.0 88 12)) BLACK)) ((0.0 36.0 (PRI 53)) (OPENCURVE ((352 . 116) (324 . 96) (300 . 72) (296 . 44)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)) ((0.05 12.0 (PRI 54)) (TEXT (68.0 . -12.0) ("InterfacePage" "->endofstack") 1 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((68.0 -9.0 67 12) (68.0 -21.0 65 12)) BLACK)) ((0.028 36.0 (PRI 55)) (BOX (64.0 -24.0 72.0 28.0) (ROUND 1 BLACK) NIL 1 (NIL NIL NIL))) ((0.0 46.0 (PRI 56)) (OPENCURVE ((104 . 4) (112 . 28) (136 . 44) (196 . 48)) (ROUND 1 BLACK) NIL (NIL (CURVE 18.0 8)) 1 NIL (NIL ((196 . 48) ((192 . 47) (188.44107 . 45.380337)) ((192 . 49) (188.3449 . 50.32367)))))) ((0.0 26.0 (PRI 57)) (OPENCURVE ((136 . -12) (148 . -20) (156 . -40) (160 . -60) (188 . -64)) (ROUND 1 BLACK) NIL ((CURVE 18.0 8) NIL) 1 NIL (((136 . -12) ((140 . -13) (143.99203 . -12.356773)) ((139 . -14) (142.256 . -16.986238))) NIL))) ((0.0 10.0 (PRI 58)) (WIRE ((304 . 396) (324 . 396)) (ROUND 1 BLACK) NIL NIL 1 NIL NIL)))
(0.0 -182.0 494.0 587.0)
1.0
4
(PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((TEXT NIL NIL (0 0 612 792) NIL)))(?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
! SKIO.GETFN.2!