VOCABULARY forth sol-cgl-probe sol-cgl-selftest cgl-dpfull-test cgl-init-vars cgl-dp-test cgl-fb-test cgl-fb-crmarch cgl-fb-cfmarch sol-cgl-remove sol-cgl-install cgl-fb-ctag sol-cgl-enable sol-cgl-frafclr sol-cgl-bt-kinder sol-cgl-rd-cmap sol-cgl-ramp-bt-all sol-cgl-ramp-bt-b sol-cgl-ramp-bt-g sol-cgl-ramp-bt-r sol-cgl-init sol-cgl-rd-timing sol-cgl-en-timing-lo sol-cgl-init-bt-0 sol-cgl-rd-bt sol-cgl-init-bt-regs sol-cgl-bt-bw sol-cgl-unmap sol-cgl-map dataval gpu-command gpu-buffer rrall gpwm color dccr loc bread bwrite gpwm rrall sysconfig refcnt vstop vstart vblank vperiod hstop hstart hblank hperiod bt458-overlay bt458-palette bt458-control bt458-address frame-buf-size vres hres membytes mempixels cright output input open-rw open-write open-read output input flash-green blink-green led-mask iglu-bsr show-tree probe-slots probe-slot sol-mono-init mono-init-table probe-scsi target-setup search-for-all-attr (search-for-attr search-node-for-attr save-node last-node-ptr node-head search-attr search-len search-name check-selftests exec-selftests sbus-fail w-sbus-record save-selftest test-slot selftest-list max-slot new-child add-child parent-node sbus-node root-node last-peer create-node dis-node dis-attr-print dis-node-print dis-node-space mac-address 'mac-address poll-packet xmit-packet fb8-install fb8-draw-logo fb8-delete-lines fb8-insert-lines fb8-delete-characters fb8-insert-characters fb8-invert-screen fb8-blink-screen fb8-erase-screen fb8-toggle-cursor fb8-reset-screen fb8-draw-character fb1-install fb1-draw-logo fb1-delete-lines fb1-insert-lines fb1-delete-characters fb1-insert-characters fb1-invert-screen fb1-blink-screen fb1-erase-screen fb1-toggle-cursor fb1-reset-screen fb1-draw-character (erase-screen) frame-info-setup frame-info frame-search-node-for-attr fontbytes >font char-width char-height set-font default-font window-left window-top screen-width screen-height frame-buffer-adr draw-logo delete-lines insert-lines delete-characters insert-characters invert-screen blink-screen erase-screen toggle-cursor reset-screen draw-character inverse-screen? inverse? column# line# #columns #lines sbus-intr>cpu map-sbus sbus-interrupts ms get-msecs mask group-code memory-test-suite display-status diagnostic-mode? new-device is-selftest selftest-vec is-remove remove-vec is-install install-vec device-type model driver intr reg num-str attr-value-int xdrstring xdrphys xdr+ xdrint attribute add-to-node last-attr cur-node my-params >physical free-virtual memmap my-address my-space dma-alloc sbus-slots my-slot phys-base virt-base buffer: defer is-diag saved-pc unrestrict-io restrict-io nv-print-word nv-read-byte nvram-shift state-cold nvram-state nvram-fpar nvram-npc nvram-pc nvram-mem nvram-chk nv-sbus-record nv-dg-record nv-ram-test dg-flg-long dg-flg-loop dg-flg-halt dg-flg-short nv-dg-flags nv-dg-regs nvram-diag hostaddr hostaddr enetsize enetaddr serialaddr nvram-size old-mode reset reset-warm eject reset-reg iglu-bsr fd_dor nvram-base rel-vers version vers-minor vers-major assembler saved-current c; tf value dload ok .version forget cur_param dump dump-title dump-line pascii expect span input-str deposit+adr tib -level +level level saved-dp endcase endof of case case_sp is (is) (is body> >body estr ptob btopr pgshift nbpp offset16 $find free-mem alloc-mem " quote-buf "dict w, noop l, c, index upc repack unpack pack lcc roll aligned ul@ ul! wljoin wa1+ wa+ /w* !na1+ na1+ na+ /n* lwsplit lbsplit la1+ la+ /l* flip wbsplit ca1+ ca+ /c* bwjoin bljoin 8bit /n /l /w /c #out #line l? w? c? ? .h .o .d .b pbase u.r u. .r digit isalpha b# o# d# h# tbase 'compile 3 comp compbyte u>= u> u<= between >= <> <= 0>= 0<= 0<> u2/ bounds lfill wfill cfill on off move l@ l! 2@ 2! -! clear tuck 2swap 2rot -rot 2over nip 3dup 2dup 2drop char-z char-a char-cap-z char-cap-a char_colon char_9 char_0 nl tab bs bl bell .s abort" copy compiling forw_value vari_value frame-info-size fb-dis-res fb-columns fb-lines fb-height fb-line-size fb-size fb-addr fb-depth node-list-size np_next np_node attr-size a-attr a-size a-next node-size node_name node_attribute node_child node_peer ENTRY-size e_parameter e_code e_fcode e_mode *e_name *e_link ptr long short byte field struct Fentry fcode debug-fcode fcode-debug fcode-state fcode-array getenv install dmesg printenv unsetenv setenv ls go boot open close #cols lprobe wprobe cprobe end-code code forward ['] .( ." (.") ( immediate constant vocabulary variable last-clock scsi-inq scsi-init stand-alone dma-map unmap-dma does> (does>) create \ #include recursive ; (;) : quit abort find [compile] ' compile word 'offset16 #tib 'tib literal (literal) (") terminate ] [ state spaces space length malloc free cr ascii emit type . bye execute exit again repeat while until begin then else if j i leave (+loop) (loop) (?do) (do) +loop loop >resolve b(>resolve) mark sign hold #s # <# convert hex decimal octal binary base -trailing count fill cmove> cmove +! c! c@ w! >a >> um* << 2/ 2* 2- 2+ 1- 1+ / * - + @version 3 2 1 0 -1 -2 nil r-store u< 0> 0= 0< > = < print depth r@ r> >r ?dup pick rot over swap drop dup within xor or and not boolean true false current definitions