Current Path : /sys/amd64/compile/hs32/modules/usr/src/sys/modules/arcmsr/@/boot/ficl/softwords/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //sys/amd64/compile/hs32/modules/usr/src/sys/modules/arcmsr/@/boot/ficl/softwords/marker.fr |
\ ** ficl/softwords/marker.fr \ ** Ficl implementation of CORE EXT MARKER \ John Sadler, 4 Oct 98 \ Requires ficl 2.02 FORGET-WID !! \ \ $FreeBSD: release/9.1.0/sys/boot/ficl/softwords/marker.fr 94290 2002-04-09 17:45:28Z dcs $ : marker ( "name" -- ) create get-current , get-order dup , 0 ?do , loop does> 0 set-order \ clear search order dup body> >name drop here - allot \ reset HERE to my xt-addr dup @ ( pfa current-wid ) dup set-current forget-wid ( pfa ) cell+ dup @ swap ( count count-addr ) over cells + swap ( last-wid-addr count ) 0 ?do dup @ dup ( wid-addr wid wid ) >search forget-wid ( wid-addr ) cell- loop drop ;