github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-25 20:01:51 +00:00
Code Issues Projects Releases Wiki Activity
Files
00a8f0eba3da7edc043cff5e04b06f5dadf2c4c0
Interlisp.medley/docs/internal/sketches/LYRIC/SPEC/CONTEXTSW.SKETCH
Larry Masinter f86be45834 Add documents from envos/LISPCORE/internal/docs (#812)
2022-07-02 22:08:47 -07:00

2 lines
12 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 contextsw.sketch SKETCHCONTEXT ((ROUND 1 0) (MODERN 10 (MEDIUM REGULAR REGULAR)) (LEFT
BASELINE) (LINE 30.0 12) NIL NIL (CENTER CENTER) (NIL NIL) T NIL NIL 1.0)) ((.05 12.0 NIL) (
TEXT (48.0 . 536.0) ("OP_contextswitch") 1.0 (CENTER BASELINE) (MODERN 10 (MEDIUM REGULAR
REGULAR)) ((4.0 533.0 88.0 12.0)) NIL)) ((.05 12.0 NIL) (TEXT (40.0 . 512.0) ("PushCStack")
1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((40.0 509.0 53.0 12.0)) NIL)) ((.05
11.0 NIL) (TEXT (52.0 . 388.0) ("fxnum" " ==FAULTFIXP") 1.0 (LEFT BASELINE) (MODERN 8 (
MEDIUM REGULAR REGULAR)) ((52.0 391.0 23.0 11.0) (52.0 380.0 57.0 11.0)) NIL)) ((0.0 38.0
NIL) (CLOSEDWIRE ((44.0 . 404.0) (120.0 . 404.0) (112.0 . 388.0) (120.0 . 372.0) (44.0 .
372.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 11.0 NIL) (TEXT (140.0 . 400.0) ("CurrentFX->incall=T"
) 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((140.0 397.5 79.0 11.0)) NIL)) ((
.05 11.0 NIL) (TEXT (140.0 . 376.0) ("CurrentFX->nopush=T") 1.0 (LEFT BASELINE) (MODERN 8 (
MEDIUM REGULAR REGULAR)) ((140.0 373.5 88.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (48.0 . 356.0)
("CurrentFX->pc =PC-FuncObj + 1") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((
48.0 353.5 126.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (48.0 . 336.0) (
"CurrentFX->nextblock = ++CurrentStackPTR") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)
) ((48.0 333.5 172.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (48.0 . 320.0) (
"*CurrentStackPTR = FSB_MARK") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((48.0
317.5 121.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (48.0 . 304.0) (
"*(CurrentStackPTR+1) = StkLim0-CurrentStackPTR+STKLIMOFFSET") 1.0 (LEFT BASELINE) (MODERN 8 (
MEDIUM REGULAR REGULAR)) ((48.0 301.5 245.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (48.0 . 284.0)
("CurrentStackPTR++") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((48.0 281.5
76.0 11.0)) NIL)) ((.05 12.0 NIL) (TEXT (40.0 . 496.0) ("contextswitch(TopOfStack &0xffff)")
1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((40.0 493.0 161.0 12.0)) NIL)) ((.05
12.0 NIL) (TEXT (12.0 . 436.0) ("contextswitch(fxnum)") 1.0 (LEFT BASELINE) (MODERN 10 (
MEDIUM REGULAR REGULAR)) ((12.0 433.0 100.0 12.0)) NIL)) ((.05 11.0 NIL) (TEXT (68.0 . 480.0)
("CurrentFX =STK_OFFSET | Addr68k_from_LADDR(*(InterfacePage + fxnum))") 1.0 (LEFT BASELINE) (
MODERN 8 (MEDIUM REGULAR REGULAR)) ((68.0 477.5 293.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (
72.0 . 464.0) ("*(InterfacePage + fxnum) = LOLOC(LADDR_from_68k(CurrentFX))") 1.0 (LEFT BASELINE)
(MODERN 8 (MEDIUM REGULAR REGULAR)) ((72.0 461.5 252.0 11.0)) NIL)) ((.012 46.0 NIL) (BOX (
132.0 396.0 92.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 50.0 NIL) (BOX (132.0 372.0
100.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 66.0 NIL) (BOX (44.0 352.0 132.0 12.0)
(ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 90.0 NIL) (BOX (44.0 332.0 180.0 12.0) (ROUND 1 0)
NIL 1.0 (NIL NIL))) ((.012 64.0 NIL) (BOX (44.0 316.0 128.0 12.0) (ROUND 1 0) NIL 1.0 (NIL
NIL))) ((.012 128.0 NIL) (BOX (44.0 300.0 256.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((
.012 42.0 NIL) (BOX (44.0 280.0 84.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 150.0 NIL
) (BOX (64.0 476.0 300.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 134.0 NIL) (BOX (
64.0 460.0 268.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 12.0 NIL) (WIRE ((108.0 .
404.0) (132.0 . 404.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 18.0 NIL) (WIRE ((112.0 . 372.0) (
148.0 . 372.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 12.0 NIL) (TEXT (376.0 . 472.0) ("Midpunt")
1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((376.0 469.0 40.0 12.0)) NIL)) ((.05
12.0 NIL) (TEXT (52.0 . 264.0) ("Midpunt") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR
REGULAR)) ((52.0 261.0 40.0 12.0)) NIL)) ((.012 24.0 NIL) (BOX (48.0 260.0 48.0 12.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 64.0 NIL) (CLOSEDWIRE ((44.0 . 120.0) (88.0 . 120.0) (
76.0 . 88.0) (88.0 . -8.0) (44.0 . -8.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (TEXT (
52.0 . 108.0) ("returnFX" " ->incall") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR))
((52.0 110.0 26.0 10.0) (52.0 100.0 26.0 10.0)) NIL)) ((0.0 28.0 NIL) (CLOSEDWIRE ((96.0
. 4.0) (152.0 . 4.0) (144.0 . -8.0) (152.0 . -44.0) (96.0 . -44.0)) (ROUND 1 0) NIL 1.0
NIL)) ((0.0 6.0 NIL) (WIRE ((84.0 . -8.0) (96.0 . -8.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05
10.0 NIL) (TEXT (100.0 . -8.0) ("returnFX" " ->nopush") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM
REGULAR REGULAR)) ((100.0 -6.0 26.0 10.0) (100.0 -16.0 32.0 10.0)) NIL)) ((0.0 16.0 NIL) (
WIRE ((96.0 . -32.0) (96.0 . -64.0)) (ROUND 1 0) NIL NIL 1.0)) ((.012 32.0 NIL) (BOX (96.0
-72.0 64.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (100.0 . -68.0) (
" FastRetCALL") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((100.0 -71.0 39.0
10.0)) NIL)) ((0.0 14.0 NIL) (WIRE ((144.0 . -44.0) (172.0 . -44.0)) (ROUND 1 0) NIL NIL 1.0)
) ((.012 52.0 NIL) (BOX (160.0 -44.0 104.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05
10.0 NIL) (TEXT (168.0 . -40.0) ("CurrentStackPTR = next68k-1") 1.0 (LEFT BASELINE) (MODERN 6
(MEDIUM REGULAR REGULAR)) ((168.0 -43.0 93.0 10.0)) NIL)) ((.012 32.0 NIL) (BOX (160.0 -16.0
64.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (164.0 . -12.0) (
"CurrentStackPTR--") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((164.0 -15.0 55.0
10.0)) NIL)) ((.012 70.0 NIL) (BOX (160.0 0.0 140.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
((0.0 8.0 NIL) (WIRE ((144.0 . 4.0) (160.0 . 4.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL
) (TEXT (160.0 . 4.0) ("TopOfStack = *((LispPTR *)CurrentStackPTR)") 1.0 (LEFT BASELINE) (
MODERN 6 (MEDIUM REGULAR REGULAR)) ((160.0 1.0 136.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (
164.0 . 20.0) ("CurrentStackPTR = next68k-2") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
REGULAR)) ((164.0 17.0 93.0 10.0)) NIL)) ((.008000001 50.0 NIL) (BOX (160.0 16.0 100.0 8.0)
(ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 38.0 NIL) (BOX (160.0 28.0 76.0 12.0) (ROUND 1 0)
NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (168.0 . 32.0) ("returnFX->nopush=0") 1.0 (LEFT
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((168.0 29.0 66.0 10.0)) NIL)) ((.012 24.0 NIL)
(BOX (96.0 40.0 48.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (100.0 .
44.0) ("OP_apply()") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((100.0 41.0
35.0 10.0)) NIL)) ((0.0 38.0 NIL) (WIRE ((96.0 . 124.0) (96.0 . 48.0)) (ROUND 1 0) NIL NIL
1.0)) ((.05 10.0 NIL) (TEXT (104.0 . 60.0) ("PC = returnFX->pc") 1.0 (LEFT BASELINE) (MODERN
6 (MEDIUM REGULAR REGULAR)) ((104.0 57.0 59.0 10.0)) NIL)) ((.012 36.0 NIL) (BOX (96.0 56.0
72.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 32.0 NIL) (BOX (96.0 72.0 64.0 12.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (100.0 . 76.0) ("CurrentStackPTR--") 1.0
(LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((100.0 73.0 55.0 10.0)) NIL)) ((.012
70.0 NIL) (BOX (96.0 88.0 140.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT
(96.0 . 92.0) ("TopOfStack = *((LispPTR *)CurrentStackPTR)") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((96.0 89.0 136.0 10.0)) NIL)) ((.008000001 50.0 NIL) (BOX (96.0
104.0 100.0 8.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (100.0 . 108.0) (
"CurrentStackPTR = next68k-2") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((100.0
105.0 93.0 10.0)) NIL)) ((.012 34.0 NIL) (BOX (96.0 116.0 68.0 12.0) (ROUND 1 0) NIL 1.0 (
NIL NIL))) ((0.0 6.0 NIL) (WIRE ((84.0 . 120.0) (96.0 . 120.0)) (ROUND 1 0) NIL NIL 1.0)) ((
.05 10.0 NIL) (TEXT (100.0 . 120.0) ("returnFX->incall=0") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((100.0 117.0 60.0 10.0)) NIL)) ((.012 50.0 NIL) (BOX (44.0 132.0
100.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (48.0 . 136.0) (
"PVar =returnFX+FRAMESIZE") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((48.0 133.0
88.0 10.0)) NIL)) ((0.0 26.0 NIL) (CLOSEDWIRE ((44.0 . 172.0) (96.0 . 172.0) (88.0 . 164.0
) (96.0 . 152.0) (44.0 . 152.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (TEXT (48.0 .
160.0) ("next68k " " >=StkLim0") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((48.0
162.0 28.0 10.0) (48.0 152.0 39.0 10.0)) NIL)) ((.012 38.0 NIL) (BOX (108.0 152.0 76.0
12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (116.0 . 156.0) ("goto RTN2")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((116.0 153.0 34.0 10.0)) NIL)) ((.012
18.0 NIL) (BOX (108.0 164.0 36.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (
TEXT (112.0 . 168.0) ("Midpunt") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
112.0 165.0 27.0 10.0)) NIL)) ((0.0 10.0 NIL) (WIRE ((88.0 . 172.0) (108.0 . 172.0)) (ROUND
1 0) NIL NIL 1.0)) ((.012 38.0 NIL) (BOX (44.0 184.0 76.0 12.0) (ROUND 1 0) NIL 1.0 (NIL
NIL))) ((.05 10.0 NIL) (TEXT (48.0 . 188.0) ("StkLim0=EndSTKP-7") 1.0 (LEFT BASELINE) (MODERN
6 (MEDIUM REGULAR REGULAR)) ((48.0 185.0 64.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (48.0 .
208.0) ("*freeptr==FSB_MARK ") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((48.0
205.0 74.0 10.0)) NIL)) ((.012 42.0 NIL) (BOX (44.0 204.0 84.0 12.0) (ROUND 1 0) NIL 1.0 (
NIL NIL))) ((.008000001 32.0 NIL) (BOX (44.0 224.0 64.0 8.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
((.05 10.0 NIL) (TEXT (48.0 . 228.0) ("freeptr= next68k ") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((48.0 225.0 58.0 10.0)) NIL)) ((0.0 6.0 NIL) (WIRE ((124.0 . 216.0)
(124.0 . 204.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 10.0 NIL) (WIRE ((128.0 . 212.0) (148.0 .
212.0)) (ROUND 1 0) NIL NIL 1.0)) ((.008000001 70.0 NIL) (BOX (148.0 208.0 140.0 8.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (152.0 . 212.0) (
"EndSTKP = freeptr=freeptr +*(freeptr+1)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR))
((152.0 209.0 134.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (24.0 . 248.0) ("RTN2") 1.0 (LEFT
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 245.0 17.0 10.0)) NIL)) ((0.0 48.0 NIL)
(CLOSEDWIRE ((44.0 . 252.0) (140.0 . 252.0) (136.0 . 248.0) (140.0 . 240.0) (44.0 . 240.0))
(ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (TEXT (44.0 . 248.0) (" (*next68k !=FSB_MARK) ")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((44.0 245.0 83.0 10.0)) NIL)) ((.012
52.0 NIL) (BOX (152.0 240.0 104.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (
TEXT (160.0 . 244.0) ("error(%"OP_return : MP9316%")") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM
REGULAR REGULAR)) ((160.0 241.0 93.0 10.0)) NIL)) ((0.0 20.0 NIL) (WIRE ((136.0 . 252.0) (
176.0 . 252.0)) (ROUND 1 0) NIL NIL 1.0)))
(0.0 -10.0 507.0 556.0)
1.0
4.0
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
-û SKIO.GETFN.2-ûzº
Reference in New Issue View Git Blame Copy Permalink