2021-03-24 00:31:08 +00:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
< html >
< head >
< meta http-equiv = "content-type" content = "text/html; charset=UTF-8" >
< title > Mu - shell/main.mu< / title >
< meta name = "Generator" content = "Vim/8.1" >
< meta name = "plugin-version" content = "vim8.1_v1" >
< meta name = "syntax" content = "none" >
< meta name = "settings" content = "number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=" >
2021-04-21 15:28:00 +00:00
< meta name = "colorscheme" content = "minimal-dark" >
2021-03-24 00:31:08 +00:00
< style type = "text/css" >
<!--
2021-04-21 15:28:00 +00:00
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #a8a8a8; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #a8a8a8; }
2021-03-24 00:31:08 +00:00
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.PreProc { color: #c000c0; }
.Special { color: #ff6060; }
.LineNr { }
.Constant { color: #008787; }
2021-04-21 15:28:00 +00:00
.CommentedCode { color: #8a8a8a; }
2021-03-24 00:31:08 +00:00
.Delimiter { color: #c000c0; }
.muFunction { color: #af5f00; text-decoration: underline; }
.muComment { color: #005faf; }
-->
< / style >
< script type = 'text/javascript' >
<!--
/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
var lineNum;
lineNum = window.location.hash;
lineNum = lineNum.substr(1); /* strip off '#' */
if (lineNum.indexOf('L') == -1) {
lineNum = 'L'+lineNum;
}
var lineElem = document.getElementById(lineNum);
/* Always jump to new location even if the line was hidden inside a fold, or
* we corrected the raw number to a line ID.
*/
if (lineElem) {
lineElem.scrollIntoView(true);
}
return true;
}
if ('onhashchange' in window) {
window.onhashchange = JumpToLine;
}
-->
< / script >
< / head >
< body onload = 'JumpToLine();' >
< a href = 'https://github.com/akkartik/mu/blob/main/shell/main.mu' > https://github.com/akkartik/mu/blob/main/shell/main.mu< / a >
< pre id = 'vimCodeElement' >
2021-04-21 15:28:00 +00:00
< span id = "L1" class = "LineNr" > 1 < / span > < span class = "muComment" > # Experimental Mu shell< / span >
< span id = "L2" class = "LineNr" > 2 < / span > < span class = "muComment" > # A Lisp with indent-sensitivity and infix.< / span >
< span id = "L3" class = "LineNr" > 3 < / span >
< span id = "L4" class = "LineNr" > 4 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'main.mu.html#L4' > main< / a > < / span > < a href = '../500fake-screen.mu.html#L14' > screen< / a > : (addr < a href = '../500fake-screen.mu.html#L14' > screen< / a > ), keyboard: (addr keyboard), data-disk: (addr disk) < span class = "Delimiter" > {< / span >
2021-05-02 06:52:28 +00:00
< span id = "L5" class = "LineNr" > 5 < / span > < span class = "PreProc" > var< / span > globals-storage: < a href = 'global.mu.html#L7' > global-table< / a >
< span id = "L6" class = "LineNr" > 6 < / span > < span class = "PreProc" > var< / span > globals/< span class = "Constant" > edi< / span > : (addr < a href = 'global.mu.html#L7' > global-table< / a > ) < span class = "Special" > < -< / span > address globals-storage
< span id = "L7" class = "LineNr" > 7 < / span > < a href = 'global.mu.html#L12' > initialize-globals< / a > globals
2021-04-21 15:28:00 +00:00
< span id = "L8" class = "LineNr" > 8 < / span > < span class = "PreProc" > var< / span > sandbox-storage: < a href = 'sandbox.mu.html#L1' > sandbox< / a >
< span id = "L9" class = "LineNr" > 9 < / span > < span class = "PreProc" > var< / span > < a href = 'sandbox.mu.html#L1' > sandbox< / a > /< span class = "Constant" > esi< / span > : (addr < a href = 'sandbox.mu.html#L1' > sandbox< / a > ) < span class = "Special" > < -< / span > address sandbox-storage
< span id = "L10" class = "LineNr" > 10 < / span > < a href = 'sandbox.mu.html#L12' > initialize-sandbox< / a > < a href = 'sandbox.mu.html#L1' > sandbox< / a > , < span class = "Constant" > 1< / span > /with-screen
2021-05-02 06:52:28 +00:00
< span id = "L11" class = "LineNr" > 11 < / span > < a href = 'main.mu.html#L76' > load-state< / a > data-disk, < a href = 'sandbox.mu.html#L1' > sandbox< / a > , globals
2021-04-21 15:28:00 +00:00
< span id = "L12" class = "LineNr" > 12 < / span > $main:< span class = "PreProc" > loop< / span > : < span class = "Delimiter" > {< / span >
2021-05-02 06:52:28 +00:00
< span id = "L13" class = "LineNr" > 13 < / span > < span class = "muComment" > # globals layout: 1 char padding, 41 code, 1 padding, 41 code, 1 padding = 85< / span >
< span id = "L14" class = "LineNr" > 14 < / span > < span class = "muComment" > # sandbox layout: 1 padding, 41 code, 1 padding = 43< / span >
< span id = "L15" class = "LineNr" > 15 < / span > < span class = "muComment" > # total = 128 chars< / span >
2021-05-18 20:01:59 +00:00
< span id = "L16" class = "LineNr" > 16 < / span > < a href = 'global.mu.html#L156' > render-globals< / a > < a href = '../500fake-screen.mu.html#L14' > screen< / a > , globals
2021-05-02 06:52:28 +00:00
< span id = "L17" class = "LineNr" > 17 < / span > < a href = 'sandbox.mu.html#L81' > render-sandbox< / a > < a href = '../500fake-screen.mu.html#L14' > screen< / a > , < a href = 'sandbox.mu.html#L1' > sandbox< / a > , < span class = "Constant" > 0x55< / span > /sandbox-left-margin, < span class = "Constant" > 0< / span > /sandbox-top-margin, < span class = "Constant" > 0x80< / span > /screen-width, < span class = "Constant" > 0x2f< / span > /screen-height-without-menu
< span id = "L18" class = "LineNr" > 18 < / span > < span class = "Delimiter" > {< / span >
< span id = "L19" class = "LineNr" > 19 < / span > < span class = "PreProc" > var< / span > key/< span class = "Constant" > eax< / span > : byte < span class = "Special" > < -< / span > < a href = '../102keyboard.subx.html#L21' > read-key< / a > keyboard
< span id = "L20" class = "LineNr" > 20 < / span > compare key, < span class = "Constant" > 0< / span >
< span id = "L21" class = "LineNr" > 21 < / span > < span class = "PreProc" > loop-if-=< / span >
< span id = "L22" class = "LineNr" > 22 < / span > < span class = "muComment" > # ctrl-r< / span >
< span id = "L23" class = "LineNr" > 23 < / span > < span class = "Delimiter" > {< / span >
< span id = "L24" class = "LineNr" > 24 < / span > compare key, < span class = "Constant" > 0x12< / span > /ctrl-r
< span id = "L25" class = "LineNr" > 25 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L26" class = "LineNr" > 26 < / span > < span class = "PreProc" > var< / span > tmp/< span class = "Constant" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > copy < span class = "Constant" > 0< / span >
2021-05-18 20:01:59 +00:00
< span id = "L27" class = "LineNr" > 27 < / span > < span class = "PreProc" > var< / span > < a href = 'cell.mu.html#L121' > nil< / a > : (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L28" class = "LineNr" > 28 < / span > tmp < span class = "Special" > < -< / span > address < a href = 'cell.mu.html#L121' > nil< / a >
< span id = "L29" class = "LineNr" > 29 < / span > < a href = 'cell.mu.html#L102' > allocate-pair< / a > tmp
2021-05-02 06:52:28 +00:00
< span id = "L30" class = "LineNr" > 30 < / span > < span class = "muComment" > # (main 0/real-screen 0/real-keyboard)< / span >
< span id = "L31" class = "LineNr" > 31 < / span > < span class = "muComment" > # We're using the fact that 'screen' and 'keyboard' in this function are always 0.< / span >
< span id = "L32" class = "LineNr" > 32 < / span > < span class = "PreProc" > var< / span > real-keyboard: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L33" class = "LineNr" > 33 < / span > tmp < span class = "Special" > < -< / span > address real-keyboard
2021-05-18 20:01:59 +00:00
< span id = "L34" class = "LineNr" > 34 < / span > < a href = 'cell.mu.html#L177' > allocate-keyboard< / a > tmp
2021-05-02 06:52:28 +00:00
< span id = "L35" class = "LineNr" > 35 < / span > < span class = "muComment" > # args = cons(real-keyboard, nil)< / span >
< span id = "L36" class = "LineNr" > 36 < / span > < span class = "PreProc" > var< / span > args: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L37" class = "LineNr" > 37 < / span > tmp < span class = "Special" > < -< / span > address args
2021-05-18 20:01:59 +00:00
< span id = "L38" class = "LineNr" > 38 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp, real-keyboard, < a href = 'cell.mu.html#L121' > nil< / a >
2021-05-02 06:52:28 +00:00
< span id = "L39" class = "LineNr" > 39 < / span > < span class = "muComment" > #< / span >
< span id = "L40" class = "LineNr" > 40 < / span > < span class = "PreProc" > var< / span > real-screen: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L41" class = "LineNr" > 41 < / span > tmp < span class = "Special" > < -< / span > address real-screen
2021-05-18 20:01:59 +00:00
< span id = "L42" class = "LineNr" > 42 < / span > < a href = 'cell.mu.html#L146' > allocate-screen< / a > tmp
2021-05-02 06:52:28 +00:00
< span id = "L43" class = "LineNr" > 43 < / span > < span class = "muComment" > # args = cons(real-screen, args)< / span >
< span id = "L44" class = "LineNr" > 44 < / span > tmp < span class = "Special" > < -< / span > address args
2021-05-18 20:01:59 +00:00
< span id = "L45" class = "LineNr" > 45 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp, real-screen, *tmp
2021-05-02 06:52:28 +00:00
< span id = "L46" class = "LineNr" > 46 < / span > < span class = "muComment" > #< / span >
< span id = "L47" class = "LineNr" > 47 < / span > < span class = "PreProc" > var< / span > < a href = 'main.mu.html#L4' > main< / a > : (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L48" class = "LineNr" > 48 < / span > tmp < span class = "Special" > < -< / span > address < a href = 'main.mu.html#L4' > main< / a >
2021-05-18 20:01:59 +00:00
< span id = "L49" class = "LineNr" > 49 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > tmp, < span class = "Constant" > " main" < / span >
2021-05-02 06:52:28 +00:00
< span id = "L50" class = "LineNr" > 50 < / span > < span class = "muComment" > # args = cons(main, args)< / span >
< span id = "L51" class = "LineNr" > 51 < / span > tmp < span class = "Special" > < -< / span > address args
2021-05-18 20:01:59 +00:00
< span id = "L52" class = "LineNr" > 52 < / span > < a href = 'cell.mu.html#L116' > new-pair< / a > tmp, < a href = 'main.mu.html#L4' > main< / a > , *tmp
2021-05-02 06:52:28 +00:00
< span id = "L53" class = "LineNr" > 53 < / span > < span class = "muComment" > # clear real screen< / span >
< span id = "L54" class = "LineNr" > 54 < / span > < a href = '../500fake-screen.mu.html#L230' > clear-screen< / a > < a href = '../500fake-screen.mu.html#L14' > screen< / a >
< span id = "L55" class = "LineNr" > 55 < / span > < a href = '../500fake-screen.mu.html#L169' > set-cursor-position< / a > < a href = '../500fake-screen.mu.html#L14' > screen< / a > , < span class = "Constant" > 0< / span > , < span class = "Constant" > 0< / span >
< span id = "L56" class = "LineNr" > 56 < / span > < span class = "muComment" > # run< / span >
< span id = "L57" class = "LineNr" > 57 < / span > < span class = "PreProc" > var< / span > out: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L58" class = "LineNr" > 58 < / span > < span class = "PreProc" > var< / span > out-ah/< span class = "Constant" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address out
2021-05-18 20:01:59 +00:00
< span id = "L59" class = "LineNr" > 59 < / span > < a href = 'evaluate.mu.html#L5' > evaluate< / a > tmp, out-ah, < a href = 'cell.mu.html#L121' > nil< / a > , globals, < span class = "Constant" > 0< / span > /trace, < span class = "Constant" > 0< / span > /no-fake-screen, < span class = "Constant" > 0< / span > /no-fake-keyboard, < span class = "Constant" > 0< / span > /call-number
2021-05-02 06:52:28 +00:00
< span id = "L60" class = "LineNr" > 60 < / span > < span class = "Delimiter" > {< / span >
< span id = "L61" class = "LineNr" > 61 < / span > < span class = "PreProc" > var< / span > tmp/< span class = "Constant" > eax< / span > : byte < span class = "Special" > < -< / span > < a href = '../102keyboard.subx.html#L21' > read-key< / a > keyboard
< span id = "L62" class = "LineNr" > 62 < / span > compare tmp, < span class = "Constant" > 0< / span >
< span id = "L63" class = "LineNr" > 63 < / span > < span class = "PreProc" > loop-if-=< / span >
< span id = "L64" class = "LineNr" > 64 < / span > < span class = "Delimiter" > }< / span >
< span id = "L65" class = "LineNr" > 65 < / span > < span class = "muComment" > #< / span >
< span id = "L66" class = "LineNr" > 66 < / span > < span class = "PreProc" > loop< / span > $main:< span class = "PreProc" > loop< / span >
< span id = "L67" class = "LineNr" > 67 < / span > < span class = "Delimiter" > }< / span >
< span id = "L68" class = "LineNr" > 68 < / span > < span class = "muComment" > # no way to quit right now; just reboot< / span >
< span id = "L69" class = "LineNr" > 69 < / span > < a href = 'sandbox.mu.html#L460' > edit-sandbox< / a > < a href = 'sandbox.mu.html#L1' > sandbox< / a > , key, globals, data-disk, < a href = '../500fake-screen.mu.html#L14' > screen< / a > , < span class = "Constant" > 1< / span > /tweak-real-screen
< span id = "L70" class = "LineNr" > 70 < / span > < span class = "Delimiter" > }< / span >
< span id = "L71" class = "LineNr" > 71 < / span > < span class = "PreProc" > loop< / span >
< span id = "L72" class = "LineNr" > 72 < / span > < span class = "Delimiter" > }< / span >
< span id = "L73" class = "LineNr" > 73 < / span > < span class = "Delimiter" > }< / span >
< span id = "L74" class = "LineNr" > 74 < / span >
< span id = "L75" class = "LineNr" > 75 < / span > < span class = "muComment" > # Gotcha: some saved state may not load.< / span >
< span id = "L76" class = "LineNr" > 76 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'main.mu.html#L76' > load-state< / a > < / span > data-disk: (addr disk), _sandbox: (addr < a href = 'sandbox.mu.html#L1' > sandbox< / a > ), globals: (addr < a href = 'global.mu.html#L7' > global-table< / a > ) < span class = "Delimiter" > {< / span >
< span id = "L77" class = "LineNr" > 77 < / span > < span class = "PreProc" > var< / span > < a href = 'sandbox.mu.html#L1' > sandbox< / a > /< span class = "Constant" > eax< / span > : (addr < a href = 'sandbox.mu.html#L1' > sandbox< / a > ) < span class = "Special" > < -< / span > copy _sandbox
< span id = "L78" class = "LineNr" > 78 < / span > < span class = "PreProc" > var< / span > data-ah/< span class = "Constant" > eax< / span > : (addr handle < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > get < a href = 'sandbox.mu.html#L1' > sandbox< / a > , data
2021-05-18 20:01:59 +00:00
< span id = "L79" class = "LineNr" > 79 < / span > < span class = "PreProc" > var< / span > _data/< span class = "Constant" > eax< / span > : (addr < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *data-ah
2021-05-02 06:52:28 +00:00
< span id = "L80" class = "LineNr" > 80 < / span > < span class = "PreProc" > var< / span > data/< span class = "Constant" > esi< / span > : (addr < a href = 'gap-buffer.mu.html#L3' > gap-buffer< / a > ) < span class = "Special" > < -< / span > copy _data
< span id = "L81" class = "LineNr" > 81 < / span > < span class = "muComment" > # data-disk -> stream< / span >
< span id = "L82" class = "LineNr" > 82 < / span > < span class = "PreProc" > var< / span > s-storage: (stream byte < span class = "Constant" > 0x1000< / span > ) < span class = "muComment" > # space for 8/sectors< / span >
< span id = "L83" class = "LineNr" > 83 < / span > < span class = "PreProc" > var< / span > s/< span class = "Constant" > ebx< / span > : (addr stream byte) < span class = "Special" > < -< / span > address s-storage
2021-05-18 20:01:59 +00:00
< span id = "L84" class = "LineNr" > 84 < / span > < a href = '../501draw-text.mu.html#L258' > draw-text-wrapping-right-then-down-from-cursor-over-full-screen< / a > < span class = "Constant" > 0< / span > /screen, < span class = "Constant" > " loading sectors from data disk" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L85" class = "LineNr" > 85 < / span > < a href = '../501draw-text.mu.html#L65' > move-cursor-to-left-margin-of-next-line< / a > < span class = "Constant" > 0< / span > /screen
< span id = "L86" class = "LineNr" > 86 < / span > < a href = '../boot.subx.html#L946' > load-sectors< / a > data-disk, < span class = "Constant" > 0< / span > /lba, < span class = "Constant" > 8< / span > /sectors, s
< span id = "L87" class = "LineNr" > 87 < / span > < span class = "CommentedCode" > #? draw-stream-wrapping-right-then-down-from-cursor-over-full-screen 0/screen, s, 7/fg, 0xc5/bg=blue-bg< / span >
< span id = "L88" class = "LineNr" > 88 < / span > < span class = "muComment" > # stream -> gap-buffer< / span >
< span id = "L89" class = "LineNr" > 89 < / span > < a href = '../501draw-text.mu.html#L258' > draw-text-wrapping-right-then-down-from-cursor-over-full-screen< / a > < span class = "Constant" > 0< / span > /screen, < span class = "Constant" > " parsing" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L90" class = "LineNr" > 90 < / span > < a href = '../501draw-text.mu.html#L65' > move-cursor-to-left-margin-of-next-line< / a > < span class = "Constant" > 0< / span > /screen
< span id = "L91" class = "LineNr" > 91 < / span > < a href = 'gap-buffer.mu.html#L52' > load-gap-buffer-from-stream< / a > data, s
< span id = "L92" class = "LineNr" > 92 < / span > < a href = '../501draw-text.mu.html#L258' > draw-text-wrapping-right-then-down-from-cursor-over-full-screen< / a > < span class = "Constant" > 0< / span > /screen, < span class = "Constant" > " into gap buffer" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L93" class = "LineNr" > 93 < / span > < a href = '../501draw-text.mu.html#L65' > move-cursor-to-left-margin-of-next-line< / a > < span class = "Constant" > 0< / span > /screen
< span id = "L94" class = "LineNr" > 94 < / span > < a href = '../106stream.subx.html#L20' > clear-stream< / a > s
< span id = "L95" class = "LineNr" > 95 < / span > < span class = "muComment" > # read: gap-buffer -> cell< / span >
< span id = "L96" class = "LineNr" > 96 < / span > < span class = "PreProc" > var< / span > initial-root-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L97" class = "LineNr" > 97 < / span > < span class = "PreProc" > var< / span > initial-root/< span class = "Constant" > ecx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address initial-root-storage
< span id = "L98" class = "LineNr" > 98 < / span > < a href = 'read.mu.html#L1' > read-cell< / a > data, initial-root, < span class = "Constant" > 0< / span > /no-trace
< span id = "L99" class = "LineNr" > 99 < / span > < a href = '../501draw-text.mu.html#L258' > draw-text-wrapping-right-then-down-from-cursor-over-full-screen< / a > < span class = "Constant" > 0< / span > /screen, < span class = "Constant" > " into s-expressions" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L100" class = "LineNr" > 100 < / span > < a href = '../501draw-text.mu.html#L65' > move-cursor-to-left-margin-of-next-line< / a > < span class = "Constant" > 0< / span > /screen
< span id = "L101" class = "LineNr" > 101 < / span > < a href = 'gap-buffer.mu.html#L19' > clear-gap-buffer< / a > data
< span id = "L102" class = "LineNr" > 102 < / span > < span class = "muComment" > #< / span >
< span id = "L103" class = "LineNr" > 103 < / span > < span class = "Delimiter" > {< / span >
< span id = "L104" class = "LineNr" > 104 < / span > < span class = "PreProc" > var< / span > initial-root-addr/< span class = "Constant" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *initial-root
< span id = "L105" class = "LineNr" > 105 < / span > compare initial-root-addr, < span class = "Constant" > 0< / span >
< span id = "L106" class = "LineNr" > 106 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L107" class = "LineNr" > 107 < / span > < span class = "PreProc" > return< / span >
< span id = "L108" class = "LineNr" > 108 < / span > < span class = "Delimiter" > }< / span >
< span id = "L109" class = "LineNr" > 109 < / span > < span class = "muComment" > # load globals from assoc(initial-root, 'globals)< / span >
< span id = "L110" class = "LineNr" > 110 < / span > < span class = "PreProc" > var< / span > globals-literal-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L111" class = "LineNr" > 111 < / span > < span class = "PreProc" > var< / span > globals-literal-ah/< span class = "Constant" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address globals-literal-storage
< span id = "L112" class = "LineNr" > 112 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > globals-literal-ah, < span class = "Constant" > " globals" < / span >
< span id = "L113" class = "LineNr" > 113 < / span > < span class = "PreProc" > var< / span > globals-literal/< span class = "Constant" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *globals-literal-ah
< span id = "L114" class = "LineNr" > 114 < / span > < span class = "PreProc" > var< / span > globals-cell-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L115" class = "LineNr" > 115 < / span > < span class = "PreProc" > var< / span > globals-cell-ah/< span class = "Constant" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address globals-cell-storage
< span id = "L116" class = "LineNr" > 116 < / span > < a href = 'evaluate.mu.html#L691' > lookup-symbol< / a > globals-literal, globals-cell-ah, *initial-root, < span class = "Constant" > 0< / span > /no-globals, < span class = "Constant" > 0< / span > /no-trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard
< span id = "L117" class = "LineNr" > 117 < / span > < span class = "PreProc" > var< / span > globals-cell/< span class = "Constant" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *globals-cell-ah
< span id = "L118" class = "LineNr" > 118 < / span > < span class = "Delimiter" > {< / span >
< span id = "L119" class = "LineNr" > 119 < / span > compare globals-cell, < span class = "Constant" > 0< / span >
< span id = "L120" class = "LineNr" > 120 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L121" class = "LineNr" > 121 < / span > < a href = 'global.mu.html#L66' > load-globals< / a > globals-cell-ah, globals
< span id = "L122" class = "LineNr" > 122 < / span > < span class = "Delimiter" > }< / span >
< span id = "L123" class = "LineNr" > 123 < / span > < span class = "muComment" > # sandbox = assoc(initial-root, 'sandbox)< / span >
< span id = "L124" class = "LineNr" > 124 < / span > < a href = '../501draw-text.mu.html#L258' > draw-text-wrapping-right-then-down-from-cursor-over-full-screen< / a > < span class = "Constant" > 0< / span > /screen, < span class = "Constant" > " loading sandbox" < / span > , < span class = "Constant" > 3< / span > /fg, < span class = "Constant" > 0< / span > /bg
< span id = "L125" class = "LineNr" > 125 < / span > < span class = "PreProc" > var< / span > sandbox-literal-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L126" class = "LineNr" > 126 < / span > < span class = "PreProc" > var< / span > sandbox-literal-ah/< span class = "Constant" > eax< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address sandbox-literal-storage
< span id = "L127" class = "LineNr" > 127 < / span > < a href = 'cell.mu.html#L39' > new-symbol< / a > sandbox-literal-ah, < span class = "Constant" > " sandbox" < / span >
< span id = "L128" class = "LineNr" > 128 < / span > < span class = "PreProc" > var< / span > sandbox-literal/< span class = "Constant" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *sandbox-literal-ah
< span id = "L129" class = "LineNr" > 129 < / span > < span class = "PreProc" > var< / span > sandbox-cell-storage: (handle < a href = 'cell.mu.html#L1' > cell< / a > )
< span id = "L130" class = "LineNr" > 130 < / span > < span class = "PreProc" > var< / span > sandbox-cell-ah/< span class = "Constant" > edx< / span > : (addr handle < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > address sandbox-cell-storage
< span id = "L131" class = "LineNr" > 131 < / span > < a href = 'evaluate.mu.html#L691' > lookup-symbol< / a > sandbox-literal, sandbox-cell-ah, *initial-root, < span class = "Constant" > 0< / span > /no-globals, < span class = "Constant" > 0< / span > /no-trace, < span class = "Constant" > 0< / span > /no-screen, < span class = "Constant" > 0< / span > /no-keyboard
< span id = "L132" class = "LineNr" > 132 < / span > < span class = "PreProc" > var< / span > sandbox-cell/< span class = "Constant" > eax< / span > : (addr < a href = 'cell.mu.html#L1' > cell< / a > ) < span class = "Special" > < -< / span > < a href = '../120allocate.subx.html#L223' > lookup< / a > *sandbox-cell-ah
< span id = "L133" class = "LineNr" > 133 < / span > < span class = "Delimiter" > {< / span >
< span id = "L134" class = "LineNr" > 134 < / span > compare sandbox-cell, < span class = "Constant" > 0< / span >
< span id = "L135" class = "LineNr" > 135 < / span > < span class = "PreProc" > break-if-=< / span >
< span id = "L136" class = "LineNr" > 136 < / span > < span class = "muComment" > # print: cell -> stream< / span >
< span id = "L137" class = "LineNr" > 137 < / span > < a href = 'print.mu.html#L1' > print-cell< / a > sandbox-cell-ah, s, < span class = "Constant" > 0< / span > /no-trace
< span id = "L138" class = "LineNr" > 138 < / span > < span class = "muComment" > # stream -> gap-buffer< / span >
< span id = "L139" class = "LineNr" > 139 < / span > < a href = 'gap-buffer.mu.html#L52' > load-gap-buffer-from-stream< / a > data, s
< span id = "L140" class = "LineNr" > 140 < / span > < span class = "Delimiter" > }< / span >
< span id = "L141" class = "LineNr" > 141 < / span > < span class = "Delimiter" > }< / span >
< span id = "L142" class = "LineNr" > 142 < / span >
< span id = "L143" class = "LineNr" > 143 < / span > < span class = "muComment" > # Save state as an alist of alists:< / span >
< span id = "L144" class = "LineNr" > 144 < / span > < span class = "muComment" > # ((globals . ((a . (fn ...))< / span >
< span id = "L145" class = "LineNr" > 145 < / span > < span class = "muComment" > # ...))< / span >
< span id = "L146" class = "LineNr" > 146 < / span > < span class = "muComment" > # (sandbox . ...))< / span >
< span id = "L147" class = "LineNr" > 147 < / span > < span class = "PreProc" > fn< / span > < span class = "muFunction" > < a href = 'main.mu.html#L147' > store-state< / a > < / span > data-disk: (addr disk), < a href = 'sandbox.mu.html#L1' > sandbox< / a > : (addr < a href = 'sandbox.mu.html#L1' > sandbox< / a > ), globals: (addr < a href = 'global.mu.html#L7' > global-table< / a > ) < span class = "Delimiter" > {< / span >
< span id = "L148" class = "LineNr" > 148 < / span > compare data-disk, < span class = "Constant" > 0< / span > /no-disk
< span id = "L149" class = "LineNr" > 149 < / span > < span class = "Delimiter" > {< / span >
< span id = "L150" class = "LineNr" > 150 < / span > < span class = "PreProc" > break-if-!=< / span >
< span id = "L151" class = "LineNr" > 151 < / span > < span class = "PreProc" > return< / span >
< span id = "L152" class = "LineNr" > 152 < / span > < span class = "Delimiter" > }< / span >
< span id = "L153" class = "LineNr" > 153 < / span > < span class = "PreProc" > var< / span > stream-storage: (stream byte < span class = "Constant" > 0x1000< / span > ) < span class = "muComment" > # space enough for 8/sectors< / span >
< span id = "L154" class = "LineNr" > 154 < / span > < span class = "PreProc" > var< / span > stream/< span class = "Constant" > edi< / span > : (addr stream byte) < span class = "Special" > < -< / span > address stream-storage
< span id = "L155" class = "LineNr" > 155 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " (\n" < / span >
< span id = "L156" class = "LineNr" > 156 < / span > < a href = 'global.mu.html#L109' > write-globals< / a > stream, globals
< span id = "L157" class = "LineNr" > 157 < / span > < a href = 'sandbox.mu.html#L64' > write-sandbox< / a > stream, < a href = 'sandbox.mu.html#L1' > sandbox< / a >
< span id = "L158" class = "LineNr" > 158 < / span > < a href = '../108write.subx.html#L11' > write< / a > stream, < span class = "Constant" > " )\n" < / span >
< span id = "L159" class = "LineNr" > 159 < / span > < a href = '../boot.subx.html#L1009' > store-sectors< / a > data-disk, < span class = "Constant" > 0< / span > /lba, < span class = "Constant" > 8< / span > /sectors, stream
< span id = "L160" class = "LineNr" > 160 < / span > < span class = "Delimiter" > }< / span >
2021-03-24 00:31:08 +00:00
< / pre >
< / body >
< / html >
<!-- vim: set foldmethod=manual : -->