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

2 lines
16 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 %{DSK%}<LISPFILES>LYRIC>SPEC>OPRPLACD.SKETCH;1 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 13.0 NIL) (TEXT (400.0 . 416.0) ("OP_rplacd( )") 1.0 (LEFT BASELINE) (
MODERN 12 (BOLD REGULAR REGULAR)) ((400.0 412.5 76.0 13.0)) NIL)) ((.05 10.0 NIL) (TEXT (36.0
. 360.0) ("Listp (x) " "==NIL") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
36.0 362.0 25.0 10.0) (36.0 352.0 22.0 10.0)) NIL)) ((0.0 22.0 NIL) (CLOSEDWIRE ((28.0 .
376.0) (72.0 . 376.0) (64.0 . 364.0) (72.0 . 348.0) (28.0 . 348.0)) (ROUND 1 0) NIL 1.0 NIL)
) ((.05 10.0 NIL) (TEXT (92.0 . 388.0) ("x==" "NIL_PTR") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((92.0 390.0 15.0 10.0) (92.0 380.0 28.0 10.0)) NIL)) ((0.0 26.0
NIL) (CLOSEDWIRE ((84.0 . 404.0) (136.0 . 404.0) (124.0 . 392.0) (136.0 . 376.0) (84.0 .
376.0)) (ROUND 1 0) NIL 1.0 NIL)) ((0.0 22.0 NIL) (WIRE ((60.0 . 376.0) (104.0 . 376.0)) (
ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (168.0 . 404.0) ("TopOfStack" " !=" " NIL_PTR"
) 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((168.0 411.0 36.0 10.0) (168.0
401.0 11.0 10.0) (168.0 391.0 30.0 10.0)) NIL)) ((0.0 24.0 NIL) (CLOSEDWIRE ((164.0 . 420.0
) (212.0 . 420.0) (200.0 . 408.0) (212.0 . 392.0) (164.0 . 392.0)) (ROUND 1 0) NIL 1.0 NIL))
((0.0 14.0 NIL) (WIRE ((136.0 . 404.0) (164.0 . 404.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05
10.0 NIL) (TEXT (168.0 . 372.0) ("error( %"ARG not List %")") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((168.0 369.0 71.0 10.0)) NIL)) ((.016 42.0 NIL) (BOX (164.0 364.0
84.0 16.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 14.0 NIL) (WIRE ((136.0 . 376.0) (164.0 .
376.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (232.0 . 396.0) ("return(NIL_PTR)")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((232.0 393.0 51.0 10.0)) NIL)) ((.05
10.0 NIL) (TEXT (232.0 . 428.0) ("error(%" Attempt to RPLACD NIL%")") 1.0 (LEFT BASELINE) (
MODERN 6 (MEDIUM REGULAR REGULAR)) ((232.0 425.0 104.0 10.0)) NIL)) ((.016 58.0 NIL) (BOX (
224.0 420.0 116.0 16.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 32.0 NIL) (BOX (228.0 392.0
64.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 26.0 NIL) (WIRE ((200.0 . 420.0) (252.0 .
420.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 14.0 NIL) (WIRE ((212.0 . 392.0) (240.0 . 392.0)) (
ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (88.0 . 336.0) ("x_68k = Addr68k_from_LADDR(x)")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((88.0 333.0 114.0 10.0)) NIL)) ((
.05 10.0 NIL) (TEXT (88.0 . 292.0) ("gclookup(DELREF , cdr (x) )" "gclookup(ADDREF, TopOfStack)"
) 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((88.0 294.0 82.0 10.0) (88.0
284.0 99.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (88.0 . 152.0) ("cdr_code" "=="
" CDR_INDIRECT") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((88.0 159.0 30.0
10.0) (88.0 149.0 12.0 10.0) (88.0 139.0 53.0 10.0)) NIL)) ((0.0 30.0 NIL) (CLOSEDWIRE ((
84.0 . 192.0) (140.0 . 192.0) (124.0 . 164.0) (140.0 . 132.0) (84.0 . 132.0)) (ROUND 1 0)
NIL 1.0 NIL)) ((.05 11.0 NIL) (TEXT (216.0 . 292.0) ("temp=" "Addr68k_from_LADDR"
" ( rp_page ) ") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((216.0 300.5 26.0
11.0) (216.0 289.5 91.0 11.0) (216.0 278.5 54.0 11.0)) NIL)) ((.024 52.0 NIL) (BOX (84.0
280.0 104.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL) (TEXT (216.0 . 184.0) (
"*(int *)cdr_cell68k = TopOfStack") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((
216.0 181.5 124.0 11.0)) NIL)) ((.036 50.0 NIL) (BOX (212.0 276.0 100.0 36.0) (ROUND 1 0)
NIL 1.0 (NIL NIL))) ((.02 62.0 NIL) (BOX (212.0 176.0 124.0 20.0) (ROUND 1 0) NIL 1.0 (NIL
NIL))) ((.02 60.0 NIL) (BOX (84.0 328.0 120.0 20.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0
74.0 NIL) (WIRE ((212.0 . 332.0) (212.0 . 184.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 86.0 NIL)
(WIRE ((56.0 . 348.0) (84.0 . 348.0) (84.0 . 176.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 11.0
NIL) (TEXT (88.0 . 312.0) ("ÿ%jU!ls9ÿ" "ÿ%+&sHÿ$Nÿ@_ÿDjÿ") 1.0 (LEFT BASELINE) (CLASSIC 10 (MEDIUM
REGULAR REGULAR)) ((88.0 314.0 66.0 11.0) (88.0 303.0 77.0 11.0)) NIL)) ((.05 11.0 NIL) (
TEXT (344.0 . 308.0) ("CDRÿ%;kÿ$rÿF@ÿ$kÿ") 1.0 (LEFT BASELINE) (CLASSIC 10 (MEDIUM REGULAR REGULAR)) ((
344.0 304.5 77.0 11.0)) NIL)) ((.05 11.0 NIL) (TEXT (88.0 . 244.0) ("cdr_code = "
"x_68k->cdr_code") 1.0 (LEFT BASELINE) (MODERN 8 (MEDIUM REGULAR REGULAR)) ((88.0 247.0 50.0
11.0) (88.0 236.0 73.0 11.0)) NIL)) ((.028 40.0 NIL) (BOX (84.0 232.0 80.0 28.0) (ROUND 1
0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL) (TEXT (216.0 . 252.0) (
"cdr_cell = POINTER_PAGEBASE(rp_page) +" " (temp->cdr_code << 1) ") 1.0 (LEFT BASELINE) (MODERN 8
(MEDIUM REGULAR REGULAR)) ((216.0 255.0 172.0 11.0) (216.0 244.0 103.0 11.0)) NIL)) ((.05
11.0 NIL) (TEXT (220.0 . 332.0) ("rp_page =" " x_68k->car_field") 1.0 (LEFT BASELINE) (MODERN
8 (MEDIUM REGULAR REGULAR)) ((220.0 335.0 44.0 11.0) (220.0 324.0 72.0 11.0)) NIL)) ((.028
42.0 NIL) (BOX (212.0 320.0 84.0 28.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 11.0 NIL) (
TEXT (216.0 . 220.0) ("cdr_cell68k =" " Addr68k_from_LADDR(cdr_cell)") 1.0 (LEFT BASELINE) (
MODERN 8 (MEDIUM REGULAR REGULAR)) ((216.0 223.0 54.0 11.0) (216.0 212.0 133.0 11.0)) NIL))
((.028 90.0 NIL) (BOX (212.0 240.0 180.0 28.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.024 70.0
NIL) (BOX (212.0 208.0 140.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 48.0 NIL) (
CLOSEDWIRE ((144.0 . 132.0) (212.0 . 132.0) (204.0 . 84.0) (212.0 . 36.0) (144.0 . 36.0)) (
ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (TEXT (148.0 . 116.0) ("cdr_code " "<="
"CDR_MAXINDIRECT") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((148.0 123.0 32.0
10.0) (148.0 113.0 12.0 10.0) (148.0 103.0 64.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (244.0
. 144.0) ("cdr_cell = POINTER_PAGEBASE(x) +" " (cdr_code << 1) ") 1.0 (LEFT BASELINE) (MODERN
6 (MEDIUM REGULAR REGULAR)) ((244.0 146.0 119.0 10.0) (244.0 136.0 60.0 10.0)) NIL)) ((.024
62.0 NIL) (BOX (240.0 132.0 124.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (
TEXT (244.0 . 116.0) ("cdr_cell68k =" " Addr68k_from_LADDR(cdr_cell)") 1.0 (LEFT BASELINE) (
MODERN 6 (MEDIUM REGULAR REGULAR)) ((244.0 118.0 46.0 10.0) (244.0 108.0 110.0 10.0)) NIL))
((.02 60.0 NIL) (BOX (240.0 104.0 120.0 20.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0
NIL) (TEXT (244.0 . 92.0) ("*(int *)cdr_cell68k = TopOfStack") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((244.0 89.0 105.0 10.0)) NIL)) ((.012 52.0 NIL) (BOX (240.0 84.0
104.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 20.0 NIL) (WIRE ((200.0 . 132.0) (240.0 .
132.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 32.0 NIL) (WIRE ((240.0 . 156.0) (240.0 . 92.0)) (
ROUND 1 0) NIL NIL 1.0)) ((0.0 26.0 NIL) (WIRE ((128.0 . 132.0) (180.0 . 132.0)) (ROUND 1 0)
NIL NIL 1.0)) ((.05 12.0 NIL) (TEXT (364.0 . 276.0) ("CASE 1)") 1.0 (LEFT BASELINE) (MODERN
10 (MEDIUM REGULAR REGULAR)) ((364.0 273.0 35.0 12.0)) NIL)) ((.05 12.0 NIL) (TEXT (288.0 .
164.0) ("CASE 2)") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((288.0 161.0 35.0
12.0)) NIL)) ((.05 10.0 NIL) (TEXT (216.0 . 36.0) ("TopOfStack" "==" "NIL_PTR") 1.0 (LEFT
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((216.0 43.0 36.0 10.0) (216.0 33.0 12.0 10.0)
(216.0 23.0 28.0 10.0)) NIL)) ((0.0 18.0 NIL) (CLOSEDWIRE ((216.0 . 60.0) (248.0 . 60.0)
(240.0 . 44.0) (248.0 . 24.0) (216.0 . 24.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0 NIL) (
TEXT (260.0 . 68.0) ("x_68k->cdr_code = CDR_NIL") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
REGULAR)) ((260.0 65.0 98.0 10.0)) NIL)) ((.016 52.0 NIL) (BOX (256.0 60.0 104.0 16.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 14.0 NIL) (WIRE ((240.0 . 60.0) (268.0 . 60.0)) (ROUND
1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (256.0 . 16.0) ("(rp_page=" "POINTER_PAGEBASE(x))"
"==" "POINTER_PAGEBASE" "(TopOfStack)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR))
((256.0 33.0 35.0 10.0) (256.0 23.0 77.0 10.0) (256.0 13.0 12.0 10.0) (256.0 3.0 68.0
10.0) (256.0 -7.0 40.0 10.0)) NIL)) ((0.0 44.0 NIL) (CLOSEDWIRE ((252.0 . 44.0) (340.0 .
44.0) (332.0 . 16.0) (340.0 . -12.0) (252.0 . -12.0)) (ROUND 1 0) NIL 1.0 NIL)) ((.05 10.0
NIL) (TEXT (352.0 . 40.0) ("x_68k->cdr_code = " "CDR_ONPAGE +((TopOfStack &0xff)>> 1)") 1.0 (
LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((352.0 42.0 69.0 10.0) (352.0 32.0 137.0
10.0)) NIL)) ((.02 74.0 NIL) (BOX (348.0 32.0 148.0 20.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
((0.0 8.0 NIL) (WIRE ((236.0 . 24.0) (252.0 . 24.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0
NIL) (TEXT (352.0 . 12.0) ("cons68k=" "Addr68k_from_LPAGE(rp_page)") 1.0 (LEFT BASELINE) (
MODERN 6 (MEDIUM REGULAR REGULAR)) ((352.0 14.0 31.0 10.0) (352.0 4.0 106.0 10.0)) NIL)) ((
.02 58.0 NIL) (BOX (348.0 4.0 116.0 20.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL)
(TEXT (352.0 . -36.0) ("cons68k->count " ">0") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
REGULAR)) ((352.0 -34.0 53.0 10.0) (352.0 -44.0 10.0 10.0)) NIL)) ((0.0 66.0 NIL) (
CLOSEDWIRE ((348.0 . -20.0) (408.0 . -20.0) (396.0 . -88.0) (408.0 . -152.0) (348.0 . -152.0
)) (ROUND 1 0) NIL 1.0 NIL)) ((0.0 24.0 NIL) (WIRE ((348.0 . 8.0) (348.0 . -40.0)) (ROUND 1
0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (424.0 . -28.0) ("cdr_cell68k="
"GetNewCell_68k(cons68k)" "cons68k->count--" "cons68k->next_cell=" " cdr_cell68k->cdr_codr") 1.0
(LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((424.0 -11.0 44.0 10.0) (424.0 -21.0
85.0 10.0) (424.0 -31.0 55.0 10.0) (424.0 -41.0 70.0 10.0) (424.0 -51.0 76.0 10.0)) NIL))
((.05 10.0 NIL) (TEXT (424.0 . -92.0) ("x_68k->cdr_code" "=(LADDR_from_68k(cdr_cell)" ">>1)")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((424.0 -85.0 59.0 10.0) (424.0
-95.0 99.0 10.0) (424.0 -105.0 18.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -60.0) (
"(unsigned int)cdr_cell=TopOfStack") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
420.0 -63.0 111.0 10.0)) NIL)) ((.012 60.0 NIL) (BOX (416.0 -68.0 120.0 12.0) (ROUND 1 0)
NIL 1.0 (NIL NIL))) ((.032 56.0 NIL) (BOX (416.0 -108.0 112.0 32.0) (ROUND 1 0) NIL 1.0 (
NIL NIL))) ((0.0 32.0 NIL) (WIRE ((416.0 . -36.0) (416.0 . -100.0)) (ROUND 1 0) NIL NIL 1.0))
((.05 12.0 NIL) (TEXT (384.0 . 88.0) ("CASE 3)") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM
REGULAR REGULAR)) ((384.0 85.0 35.0 12.0)) NIL)) ((.05 12.0 NIL) (TEXT (444.0 . 60.0) (
"CASE 4)") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((444.0 57.0 35.0 12.0))
NIL)) ((.05 12.0 NIL) (TEXT (488.0 . 8.0) ("CASE 5)") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM
REGULAR REGULAR)) ((488.0 5.0 35.0 12.0)) NIL)) ((0.0 38.0 NIL) (WIRE ((136.0 . 192.0) (
212.0 . 192.0)) (ROUND 1 0) NIL NIL 1.0)) ((.052 50.0 NIL) (BOX (416.0 -52.0 100.0 52.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (424.0 . -128.0) (
"cons68k = next_conspage()") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((424.0
-131.0 91.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -168.0) (
"temp68k=GetNewCell_68k(cons68k)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
420.0 -171.0 120.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -176.0) (
"cons68k->next_cell=temp68k->cdr_code") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) (
(420.0 -179.0 137.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -144.0) (
"cdr_cell68k=GetNewCell_68k(cons68k)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
420.0 -147.0 129.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -152.0) (
"cons_68k->next_cell=cdr_cell68k->cdr_code") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR
)) ((420.0 -155.0 152.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -192.0) (
"cons_68k->count -=2") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -195.0
71.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -212.0) ("*(int *)cdr_cell68k = TopOfStack")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -215.0 105.0 10.0)) NIL)) ((
.05 10.0 NIL) (TEXT (420.0 . -224.0) ("temp68k->car_field = x_68k->car_field") 1.0 (LEFT
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -227.0 134.0 10.0)) NIL)) ((.05 10.0 NIL
) (TEXT (420.0 . -256.0) ("temp_68k->cdr_code =" "(LADDR_from_68k(cdr_cell68k) & 0xff)>>1 ")
1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -254.0 81.0 10.0) (420.0
-264.0 149.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -236.0) (
"(int)x_68k=LADDR_from_68k(temp68k)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((
420.0 -239.0 134.0 10.0)) NIL)) ((.016 54.0 NIL) (BOX (416.0 -136.0 108.0 16.0) (ROUND 1 0)
NIL 1.0 (NIL NIL))) ((.02 74.0 NIL) (BOX (416.0 -160.0 148.0 20.0) (ROUND 1 0) NIL 1.0 (
NIL NIL))) ((.016 78.0 NIL) (BOX (416.0 -180.0 156.0 16.0) (ROUND 1 0) NIL 1.0 (NIL NIL)))
((.012 38.0 NIL) (BOX (416.0 -200.0 76.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.012 52.0
NIL) (BOX (416.0 -216.0 104.0 12.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.008000002 72.0 NIL)
(BOX (416.0 -228.0 144.0 8.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.008000002 74.0 NIL) (BOX (
416.0 -240.0 148.0 8.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.024 76.0 NIL) (BOX (416.0 -268.0
152.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 74.0 NIL) (WIRE ((416.0 . -128.0) (416.0
. -276.0)) (ROUND 1 0) NIL NIL 1.0)) ((0.0 10.0 NIL) (WIRE ((328.0 . 44.0) (348.0 . 44.0))
(ROUND 1 0) NIL NIL 1.0)) ((0.0 14.0 NIL) (WIRE ((320.0 . -12.0) (348.0 . -12.0)) (ROUND 1 0
) NIL NIL 1.0)) ((0.0 10.0 NIL) (WIRE ((396.0 . -20.0) (416.0 . -20.0)) (ROUND 1 0) NIL NIL
1.0)) ((0.0 12.0 NIL) (WIRE ((392.0 . -152.0) (416.0 . -152.0)) (ROUND 1 0) NIL NIL 1.0)) ((
.05 12.0 NIL) (TEXT (364.0 . -172.0) ("CASE 6)") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM
REGULAR REGULAR)) ((364.0 -175.0 35.0 12.0)) NIL)) ((0.0 10.0 NIL) (WIRE ((196.0 . 36.0) (
216.0 . 36.0)) (ROUND 1 0) NIL NIL 1.0)) ((.05 10.0 NIL) (TEXT (420.0 . -276.0) (
"x_68k->cdr_code=CDR_INDIRECT") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0
-279.0 114.0 10.0)) NIL)) ((.012 60.0 NIL) (BOX (416.0 -284.0 120.0 12.0) (ROUND 1 0) NIL
1.0 (NIL NIL))) ((.05 10.0 NIL) (TEXT (32.0 . 424.0) ("x=*( (int *)(--CurrentStackPTR))") 1.0
(LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((32.0 421.0 95.0 10.0)) NIL)) ((.05 10.0
NIL) (TEXT (36.0 . 416.0) ("CurrentStackPTR--") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
REGULAR)) ((36.0 413.0 55.0 10.0)) NIL)) ((.016 50.0 NIL) (BOX (28.0 412.0 100.0 16.0) (
ROUND 1 0) NIL 1.0 (NIL NIL))) ((0.0 308.0 NIL) (WIRE ((28.0 . 420.0) (28.0 . -196.0)) (
ROUND 1 0) NIL NIL 1.0)) ((.05 12.0 NIL) (TEXT (36.0 . -192.0) ("TopOfStack = x") 1.0 (LEFT
BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((36.0 -195.0 74.0 12.0)) NIL)) ((.02 44.0 NIL)
(BOX (28.0 -200.0 88.0 20.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05 12.0 NIL) (TEXT (32.0
. -108.0) ("PC++") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((32.0 -111.0
32.0 12.0)) NIL)) ((.016 22.0 NIL) (BOX (28.0 -116.0 44.0 16.0) (ROUND 1 0) NIL 1.0 (NIL
NIL))))
(17.0 -294.0 584.0 745.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