8 lpad: xnum 1 ; load rest of core into RAM
\r
12 xnum 4 ; load highlevel Fifth boot code into RAM
\r
16 xnum -1 ; initialize dictionary space
\r
23 lload: ;( fromdisk tomem amount -- )
\r
43 ibuf: dd 0, 0, 0, 0, 0, 0, 0, 0
\r
82 lwrite: xcall lcount
\r
191 lmode: db 1 ; 0 compile
\r
205 xif l12 ; not found ?
\r
209 xc@ ; ( addr+19 c )
\r
252 cmpimm: xcall setint
\r
276 xcall lcount ; ( addr len )
\r
280 l13: xnum numlen ; ( addr num )
\r
290 xcall lcount ; ( num addr c )
\r
305 xplus ; ( addr num )
\r
331 xover ; ( n addr n addr )
\r
427 lne3: xnum sf ; pick next address
\r
440 xdup ; is cell empty
\r
446 lne2: xnum llp ; create entry
\r
502 lincmod: xcall lcount
\r
530 l37: xcall lexecute
\r
533 d6 db 5, 10, 0, 0, 0, 0
\r
536 d9 db 5, 4, 0, 0, 0, 0
\r
562 l34: xcall lexecute
\r
564 d4 db 8, 8, 10, 0, 0, 0, 0, 7, 14
\r
592 l39: xcall lexecute
\r
595 d10 db 10, 14, 8, 31, 25, 10, 0,0,0,0, 14
\r
596 d11 db 7, 15, 6, 4, 0,0,0,0
\r
614 l41: xcall lexecute
\r
617 d14 db 6, 3, 0, 0, 0, 0, 14
\r
618 d15 db 8, 31, 10, 0, 0, 0, 0, 15, 9
\r
627 head 2, 'lp', 0, llp
\r
628 head 5, 'count', 1, lcount
\r
629 head 4, 'emit', 1, lemit
\r
630 head 4, 'type', 1, ltype
\r
631 head 5, 'write', 1, lwrite
\r
632 head 3, 'pad', 0, lpad
\r
633 head 5, 'c+str', 1, lsadd
\r
634 head 4, 'fkey', 1, lfkey
\r
635 head 4, 'scan', 1, lscan
\r
636 head 8, 'str=str?', 1, lstrEQstr
\r
637 head 4, 'find', 1, lfind
\r
638 head 4, 'mode', 0, lmode
\r
639 head 4, 'goto', 1, lgoto
\r
640 head 7, 'execute', 1, lexecute
\r
641 head 4, '2num', 1, l2num
\r
642 head 2, 'c,', 1, lcsto
\r
643 head 1, ',', 1, lsto
\r
644 head 4, 'halt', 1, lhalt
\r
647 head 2, 'c@', 2, lc@
\r
648 head 2, 'c!', 2, lc!
\r
649 head 2, '1+', 2, linc
\r
650 head 2, '1-', 2, ldec
\r
651 head 1, '>', 2, lcmpg
\r
652 head 1, '<', 2, lcmpl
\r
653 head 3, 'ret', 2, lret
\r
654 head 1, '+', 2, lplus
\r
655 head 1, '-', 2, lminus
\r
656 head 1, '*', 2, lmul
\r
657 head 4, 'drop', 2, ldrop
\r
658 head 3, 'dup', 2, ldup
\r
659 head 4, 'swap', 2, lswap
\r
660 head 5, 'disk@', 2, ldisk@
\r
661 head 4, 'push', 2, lpush
\r
662 head 3, 'pop', 2, lpop
\r
663 head 4, 'over', 2, lover
\r
664 head 5, 'cmove', 2, lcmove
\r
665 head 2, 'ne', 1, lne
\r
666 head 1, ':', 1, lcolon
\r
668 head 5, 'bcode', 1, bcode
\r
669 head 4, 'dadd', 1, ldadd
\r
670 head 6, 'incmod', 1, lincmod
\r
671 head 2, 'if', 2, lif
\r
672 head 4, 'here', 1, lhere
\r
673 head 2, 'do', 2, ldo
\r
674 head 3, 'for', 2, lfor
\r
675 head 5, 'until', 2, luntil
\r
676 head 4, 'prev', 0, lprev
\r
677 head 4, 'skey', 1, lskey
\r