Power-Programmierung/CD1.mdf/forth/compiler/fpc/source/p4_11bs.seq

Text File | 1990-04-14 | 253b | 15 lines

\ Balraj Sidhu   Set: 14D4
\ Comp 462 - Forth
\ Date: April 12, 1990
\ Problem 4.11


create table 12 allot
table 12 255 fill   \ fill table with hex FF

\ clears 6 16-bit values
: clear-table ( -- )
        11 0 do 0 i table + ! loop ;