mirror of https://github.com/hsoft/collapseos.git
17 lines
680 B
Plaintext
17 lines
680 B
Plaintext
RAMSTART FUTURE USES +3c BLK(*
|
|
+02 CURRENT +3e A@*
|
|
+04 HERE +40 A!*
|
|
+06 C<? +42 FUTURE USES
|
|
+08 C<* override +51 CURRENTPTR
|
|
+0a NLPTR +53 (emit) override
|
|
+0c C<* +55 (key) override
|
|
+0e WORDBUF +57 FUTURE USES
|
|
+2e BOOT C< PTR
|
|
+30 IN>
|
|
+32 IN(* +70 DRIVERS
|
|
+34 BLK@* +80 RAMEND
|
|
+36 BLK!*
|
|
+38 BLK>
|
|
+3a BLKDTY
|
|
(cont.)
|