Hello world/Line printer: Difference between revisions
Content added Content deleted
Line 275:
<lang Forth>\ No operating system, embedded device, printer output example
defer emit \
: type ( addr count -- ) \ type a string uses emit
bounds ?do i c@ emit loop ; \ type is used by ." (see usage examples below)
HEX ▼
: CR ( -- ) 0A emit 0D emit ; \ send a carriage return, linefeed pair with emit
\ memory mapped I/O addresses for the printer port
▲HEX
B02E constant scsr \ serial control status register
B02F constant scdr \ serial control data register
| |||