Lines Matching refs:dup
31 d# 1024 dup * constant 1meg
89 c@ dup h# f0 h# f3 between swap h# fd = or
99 2dup dev-open ?dup 0= if
104 dup /fs-fcode fs-offset r@ read-disk
106 dup check-fcode invert if
109 dup 1 byte-load
160 2dup ['] vmem-alloc catch if ( size virt ??? ??? )
162 2dup begin ( size virt len adr )
179 begin dup while
181 dup 4meg min ( virt sz-left read-sz r: fd )
182 3dup nip r@ fs-read ( virt sz-left read-sz size-read r: fd )
199 dup >r fs-size ( base size r: fd )
200 dup rot vmem-alloc-prop ( size alloc-sz virt r: fd )
201 rot 2dup ( alloc-sz virt size virt size r: fd )
218 dup check-elf to is-elf?
223 dup check-fcode ( adr is-fcode? )
264 2dup ( name$ name$ )
265 begin dup while
275 init-targ 2dup targ-file$ $append
313 begin decode-string dup while ( compat$ name$ )
361 2dup ." Loading: " type cr
370 2dup plat-name$ $plat-prepend ( file$ file$' )
372 2dup arch-name$ $plat-prepend ( file$ file$' )
380 2dup targ-file swap move
381 2dup try-file if ( file$ )
401 2dup " open-fs" fs-ih $call-method 0= if
425 dup bl th 7f within swap th 80 th ff between or
428 dup printable? 0= swap bl = or
432 begin dup while ( adr' len' )
439 begin dup while ( adr' len' )
448 2dup skip-non-blanks ( s-adr len adr' len' )
449 dup >r 2swap r> - ( adr' len' s-adr s-len )
454 dup if over c@ >r str++ r> else 0 then
463 skip-blanks dup if
467 2dup " kadb" $= >r ( arg$ kern$ r: kadb? )
468 2dup " kmdb" $= r> or ( arg$ kern$ debugger? )
478 skip-blanks dup ( arg$ len )
486 ?dup if
494 ?dup if
511 ?dup if
557 dup /rd-fcode fs-getrd
562 dup 1 byte-load
568 "ramdisk" dev-open dup 0= if
613 dup to elfhdr
617 dup i get-phdr to phdr
642 dup get-type
645 dup file-sz setup-ramdisk
651 dup fix-elf-mem