2 lines
14 KiB
Plaintext
2 lines
14 KiB
Plaintext
((SKETCH OPFN.sketch SKETCHCONTEXT ((ROUND 1 0) (CLASSIC 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 (8.0 . 472.0) ("OP_fn") 1.0 (LEFT BASELINE) (MODERN 10 (BOLD REGULAR REGULAR)) ((8.0
|
||
469.0 34.0 12.0)) NIL)) ((.05 10.0 NIL) (TEXT (24.0 . 412.0) ("PushCStack ;") 1.0 (LEFT
|
||
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 409.0 39.0 10.0)) NIL)) ((.008000001 24.0
|
||
NIL) (BOX (20.0 408.0 48.0 8.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (
|
||
24.0 . 452.0) (
|
||
"CurrentFX->nextblock =(LADDR_from_68k(CurrentStackPTR ) & 0x0ffff) -((*PC&0x0f)<<1) +3") 1.0 (LEFT
|
||
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 449.0 301.0 10.0)) NIL)) ((.012 154.0 NIL
|
||
) (BOX (20.0 448.0 308.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0
|
||
. 392.0) ("atom_index = (*(PC+1) <<8) | (*PC+2)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
|
||
REGULAR)) ((24.0 389.0 127.0 10.0)) NIL)) ((.008000001 68.0 NIL) (BOX (20.0 388.0 136.0
|
||
8.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0 . 372.0) (
|
||
"defcell68k =Get_DEFCELL68k(atom_index)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR))
|
||
((24.0 369.0 141.0 10.0)) NIL)) ((.008000001 76.0 NIL) (BOX (20.0 368.0 152.0 8.0) (ROUND
|
||
1 0) NIL 1.0 (NIL NIL))) ((0.0 52.0 NIL) (CLOSEDWIRE ((20.0 . 336.0) (124.0 . 336.0) (112.0
|
||
. 316.0) (124.0 . 300.0) (20.0 . 300.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (TEXT (
|
||
28.0 . 320.0) ("(struct definition_cell *)" " defcell68k->ccodep==0") 1.0 (LEFT BASELINE) (
|
||
MODERN 6 (MEDIUM REGULAR REGULAR)) ((28.0 322.0 79.0 10.0) (28.0 312.0 82.0 10.0)) NIL)) ((
|
||
.05 10.0 NIL) (TEXT (24.0 . 432.0) ("IVar =Addr68k_from_LADDR(CurrentFX->nextblock)") 1.0 (LEFT
|
||
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 429.0 168.0 10.0)) NIL)) ((.012 88.0 NIL
|
||
) (BOX (20.0 428.0 176.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (
|
||
164.0 . 328.0) ("defcell68k =" "Get_DEFCELL68k(ATOM_INTERPRETER)") 1.0 (LEFT BASELINE) (MODERN 6
|
||
(MEDIUM REGULAR REGULAR)) ((164.0 330.0 42.0 10.0) (164.0 320.0 129.0 10.0)) NIL)) ((.02
|
||
68.0 NIL) (BOX (160.0 320.0 136.0 20.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (
|
||
TEXT (164.0 . 312.0) ("PushStack(atom_index)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
|
||
REGULAR)) ((164.0 309.0 73.0 10.0)) NIL)) ((.008000001 42.0 NIL) (BOX (160.0 308.0 84.0 8.0
|
||
) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 12.0 NIL) (WIRE ((160.0 . 336.0) (160.0 . 312.0)) (
|
||
ROUND 1 0) NIL NIL 1.0)) ((0.0 24.0 NIL) (WIRE ((112.0 . 336.0) (160.0 . 336.0)) (ROUND 1 0)
|
||
NIL NIL 1.0)) ((.024 86.0 NIL) (BOX (20.0 264.0 172.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
|
||
((.05 10.0 NIL) (TEXT (24.0 . 276.0) ("FuncObj = Addr68k_from_LADDR( "
|
||
" (struct definition_cell *)defcell68k->defpointer ) ") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM
|
||
REGULAR REGULAR)) ((24.0 278.0 115.0 10.0) (24.0 268.0 163.0 10.0)) NIL)) ((.05 10.0 NIL) (
|
||
TEXT (24.0 . 232.0) ("(CurrentStackPTR+" "FuncObj->stkmin)+2 " "> LastStackAddr") 1.0 (LEFT
|
||
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 239.0 59.0 10.0) (24.0 229.0 68.0 10.0)
|
||
(24.0 219.0 50.0 10.0)) NIL)) ((0.0 40.0 NIL) (CLOSEDWIRE ((20.0 . 256.0) (100.0 . 256.0)
|
||
(92.0 . 236.0) (100.0 . 216.0) (20.0 . 216.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (
|
||
TEXT (116.0 . 248.0) ("stackoverflow()") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)
|
||
) ((116.0 245.0 46.0 10.0)) NIL)) ((.012 40.0 NIL) (BOX (112.0 244.0 80.0 12.0) (ROUND 1 0
|
||
) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0 . 176.0) ("FuncObj ->na " ">=0") 1.0 (
|
||
LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 178.0 44.0 10.0) (24.0 168.0 16.0
|
||
10.0)) NIL)) ((0.0 30.0 NIL) (CLOSEDWIRE ((20.0 . 192.0) (80.0 . 192.0) (68.0 . 172.0) (80.0
|
||
. 156.0) (20.0 . 156.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (TEXT (100.0 . 192.0) (
|
||
"rest=(( ((*PC) & 0x0f) " "- FuncObj->na ) ") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
|
||
REGULAR)) ((100.0 194.0 67.0 10.0) (100.0 184.0 50.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (
|
||
104.0 . 160.0) ("while" "(rest<0)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
|
||
104.0 162.0 17.0 10.0) (104.0 152.0 25.0 10.0)) NIL)) ((.024 38.0 NIL) (BOX (96.0 180.0
|
||
76.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.024 24.0 NIL) (BOX (96.0 148.0 48.0 24.0) (
|
||
ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 12.0 NIL) (WIRE ((140.0 . 172.0) (140.0 . 148.0)) (
|
||
ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (160.0 . 160.0) ("PushStack(NIL_PTR)" "rest++")
|
||
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((160.0 162.0 62.0 10.0) (160.0
|
||
152.0 23.0 10.0)) NIL)) ((.024 38.0 NIL) (BOX (156.0 148.0 76.0 24.0) (ROUND 1 0) NIL 1.0
|
||
(NIL NIL))) ((0.0 6.0 NIL) (WIRE ((144.0 . 160.0) (156.0 . 160.0)) (ROUND 1 0) NIL NIL 1.0))
|
||
((0.0 32.0 NIL) (WIRE ((96.0 . 200.0) (96.0 . 136.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 18.0
|
||
NIL) (WIRE ((60.0 . 192.0) (96.0 . 192.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT
|
||
(100.0 . 136.0) ("CurrentStackPTR - (rest<<1)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
|
||
REGULAR)) ((100.0 133.0 88.0 10.0)) NIL)) ((.012 50.0 NIL) (BOX (96.0 132.0 100.0 12.0) (
|
||
ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (112.0 . 220.0) ("stackcheck()") 1.0 (
|
||
LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((112.0 217.0 37.0 10.0)) NIL)) ((0.0 38.0
|
||
NIL) (CLOSEDWIRE ((108.0 . 232.0) (184.0 . 232.0) (176.0 . 224.0) (184.0 . 216.0) (108.0 .
|
||
216.0)) (ROUND 1 0) NIL 1.0 NIL)) ((0.0 14.0 NIL) (WIRE ((92.0 . 216.0) (120.0 . 216.0)) (
|
||
ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (200.0 . 224.0) ("stackoverflow()") 1.0 (LEFT
|
||
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((200.0 221.0 46.0 10.0)) NIL)) ((.012 40.0 NIL)
|
||
(BOX (196.0 220.0 80.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 26.0 NIL) (WIRE ((
|
||
168.0 . 232.0) (220.0 . 232.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 20.0 NIL) (WIRE ((88.0 .
|
||
256.0) (128.0 . 256.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (24.0 . 112.0) (
|
||
"*(++CurrentStackPTR)=BF_MARK") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0
|
||
109.0 108.0 10.0)) NIL)) ((.012 60.0 NIL) (BOX (20.0 108.0 120.0 12.0) (ROUND 1 0) NIL 1.0
|
||
(NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0 . 96.0) ("*(++CurrentStackPTR)=CurrentFX->nextblock")
|
||
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 93.0 145.0 10.0)) NIL)) ((.012
|
||
78.0 NIL) (BOX (20.0 92.0 156.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (
|
||
TEXT (24.0 . 80.0) ("*(++CurrentStackPTR)=FX_MARK") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM
|
||
REGULAR REGULAR)) ((24.0 77.0 108.0 10.0)) NIL)) ((.012 66.0 NIL) (BOX (20.0 76.0 132.0
|
||
12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0 . -12.0) (
|
||
"PVar=CurrentStackPTR=CurrentFX + FRAMESIZE") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
|
||
REGULAR)) ((24.0 -15.0 151.0 10.0)) NIL)) ((.012 84.0 NIL) (BOX (20.0 -16.0 168.0 12.0) (
|
||
ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0 . 24.0) (
|
||
"CurrentFX->lofnheader = (defcell68k->defpointer )&0x0ffff") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM
|
||
REGULAR REGULAR)) ((24.0 21.0 192.0 10.0)) NIL)) ((.012 102.0 NIL) (BOX (20.0 20.0 204.0
|
||
12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (24.0 . 60.0) (
|
||
"CurrentFX=CurrentStackPTR") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 57.0
|
||
87.0 10.0)) NIL)) ((.012 50.0 NIL) (BOX (20.0 56.0 100.0 12.0) (ROUND 1 0) NIL 1.0 (NIL
|
||
NIL))) ((.05 10.0 NIL) (TEXT (24.0 . 40.0) ("CurrentFX->alink = LADDR_from_68k(PVar)") 1.0 (
|
||
LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 37.0 141.0 10.0)) NIL)) ((.012 76.0
|
||
NIL) (BOX (20.0 36.0 152.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (
|
||
24.0 . 8.0) ("CurrentFX->hi1fnheader = (defcell68k->defpointer )&0x0ff0000") 1.0 (LEFT BASELINE)
|
||
(MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 5.0 206.0 10.0)) NIL)) ((.012 110.0 NIL) (BOX (
|
||
20.0 4.0 220.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 264.0 NIL) (WIRE ((20.0 . 456.0)
|
||
(20.0 . -72.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (24.0 . -36.0) (
|
||
"pv_num=FuncObj->pv") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((24.0 -39.0 73.0
|
||
10.0)) NIL)) ((.012 44.0 NIL) (BOX (20.0 -40.0 88.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
|
||
((.05 10.0 NIL) (TEXT (24.0 . -68.0) ("while" "(pv_num>0)") 1.0 (LEFT BASELINE) (MODERN 6 (
|
||
MEDIUM REGULAR REGULAR)) ((24.0 -66.0 17.0 10.0) (24.0 -76.0 41.0 10.0)) NIL)) ((.028 38.0
|
||
NIL) (BOX (20.0 -80.0 76.0 28.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 14.0 NIL) (WIRE ((
|
||
92.0 . -52.0) (92.0 . -80.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (116.0 . -60.0
|
||
) ("*( (LispPTR *)CurrentStackPTR)=0xffff0000") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
|
||
REGULAR)) ((116.0 -63.0 133.0 10.0)) NIL)) ((.012 74.0 NIL) (BOX (112.0 -64.0 148.0 12.0)
|
||
(ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (116.0 . -80.0) (
|
||
"CurrentStackPTR+=DLWORDSPER_CELL") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
|
||
116.0 -83.0 126.0 10.0)) NIL)) ((.012 66.0 NIL) (BOX (112.0 -84.0 132.0 12.0) (ROUND 1 0)
|
||
NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (116.0 . -96.0) (
|
||
"*( (LispPTR *)CurrentStackPTR)=0xffff0000") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR
|
||
)) ((116.0 -99.0 133.0 10.0)) NIL)) ((.012 72.0 NIL) (BOX (112.0 -100.0 144.0 12.0) (ROUND
|
||
1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (116.0 . -112.0) (
|
||
"CurrentStackPTR+=DLWORDSPER_CELL") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
|
||
116.0 -115.0 126.0 10.0)) NIL)) ((.012 66.0 NIL) (BOX (112.0 -116.0 132.0 12.0) (ROUND 1 0)
|
||
NIL 1.0 (NIL NIL))) ((0.0 38.0 NIL) (WIRE ((112.0 . -56.0) (112.0 . -132.0)) (ROUND 1 0)
|
||
NIL NIL 1.0)) ((0.0 8.0 NIL) (WIRE ((96.0 . -68.0) (112.0 . -68.0)) (ROUND 1 0) NIL NIL 1.0)
|
||
) ((.05 10.0 NIL) (TEXT (116.0 . -132.0) ("pv_num--") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM
|
||
REGULAR REGULAR)) ((116.0 -135.0 31.0 10.0)) NIL)) ((.016 20.0 NIL) (BOX (112.0 -140.0 40.0
|
||
16.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL) (TEXT (332.0 . 456.0) ("ÿ0zÿ?tÿ$Nÿ8Dÿ?tÿ$hjÿ |