github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-03 22:59:35 +00:00
Code Issues Projects Releases Wiki Activity
Files
fgh_new-linux-installer
Interlisp.medley/docs/internal/sketches/LYRIC/SPEC/RPLACD.SKETCH
Larry Masinter f86be45834 Add documents from envos/LISPCORE/internal/docs (#812)
2022-07-02 22:08:47 -07:00

2 lines
15 KiB
Plaintext
Raw Permalink 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>RPLACD.SKETCH;3 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 (52.0 . 424.0) ("rplacd( x , y )") 1.0 (LEFT BASELINE) (MODERN 12
(BOLD REGULAR REGULAR)) ((52.0 420.5 71.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 (172.0 . 404.0) ("y !=" " NIL_PTR") 1.0 (LEFT BASELINE)
(MODERN 6 (MEDIUM REGULAR REGULAR)) ((172.0 406.0 14.0 10.0) (172.0 396.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, y)") 1.0 (LEFT BASELINE) (MODERN 6 (
MEDIUM REGULAR REGULAR)) ((88.0 294.0 82.0 10.0) (88.0 284.0 66.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 44.0 NIL) (BOX (84.0 280.0 88.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.05
11.0 NIL) (TEXT (216.0 . 184.0) ("*(int *)cdr_cell68k = y") 1.0 (LEFT BASELINE) (MODERN 8 (
MEDIUM REGULAR REGULAR)) ((216.0 181.5 86.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 56.0 NIL) (BOX (212.0 176.0 112.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 166.0 NIL) (WIRE ((56.0 . 348.0) (84.0 . 348.0) (84.0 . 16.0)) (ROUND 1 0) NIL
NIL 1.0)) ((.05 12.0 NIL) (TEXT (96.0 . 20.0) ("return (x )") 1.0 (LEFT BASELINE) (MODERN
10 (MEDIUM REGULAR REGULAR)) ((96.0 17.0 45.0 12.0)) NIL)) ((.024 36.0 NIL) (BOX (84.0 8.0
72.0 24.0) (ROUND 1 0) NIL 1.0 (NIL NIL))) ((.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 = y") 1.0 (LEFT BASELINE) (MODERN 6
(MEDIUM REGULAR REGULAR)) ((244.0 89.0 72.0 10.0)) NIL)) ((.012 38.0 NIL) (BOX (240.0 84.0
76.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) ("y==" "NIL_PTR") 1.0 (LEFT BASELINE) (
MODERN 6 (MEDIUM REGULAR REGULAR)) ((216.0 38.0 15.0 10.0) (216.0 28.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 12.0 NIL) (TEXT (260.0 . 68.0) (
"x_68k->cdr_code = CDR_NIL") 1.0 (LEFT BASELINE) (MODERN 10 (MEDIUM REGULAR REGULAR)) ((260.0
65.0 150.0 12.0)) NIL)) ((.016 82.0 NIL) (BOX (256.0 60.0 164.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(y)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((256.0 28.0
35.0 10.0) (256.0 18.0 77.0 10.0) (256.0 8.0 12.0 10.0) (256.0 -2.0 75.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 +((y &0xff)>> 1)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
REGULAR)) ((352.0 42.0 69.0 10.0) (352.0 32.0 104.0 10.0)) NIL)) ((.02 60.0 NIL) (BOX (
348.0 32.0 120.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_code") 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 78.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (424.0 . -92.0) ("x_68k->cdr_code"
"=((LADDR_from_68k(cdr_cell)" "-rp_page)>>1)") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR
REGULAR)) ((424.0 -85.0 59.0 10.0) (424.0 -95.0 101.0 10.0) (424.0 -105.0 49.0 10.0)) NIL)
) ((.05 10.0 NIL) (TEXT (420.0 . -60.0) ("(unsigned int)cdr_cell=y") 1.0 (LEFT BASELINE) (
MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -63.0 78.0 10.0)) NIL)) ((.012 44.0 NIL) (BOX (
416.0 -68.0 88.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) (
"cons68k->count -=2") 1.0 (LEFT BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -195.0
65.0 10.0)) NIL)) ((.05 10.0 NIL) (TEXT (420.0 . -212.0) ("(int *)cdr_cell68k = y") 1.0 (LEFT
BASELINE) (MODERN 6 (MEDIUM REGULAR REGULAR)) ((420.0 -215.0 69.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 38.0 NIL) (BOX (416.0 -216.0 76.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))))
(27.0 -362.0 537.0 712.0)
1.0
4.0
?1(DEFAULTFONT 1 (GACHA 10) (GACHA 8) (TERMINAL 8))
=9 SKIO.GETFN.2=9zº
Reference in New Issue View Git Blame Copy Permalink