Hello world/Line printer: Difference between revisions

B02E constant scsr \ serial control status register

B02F constant scdr \ serial control data register

 

: printer-emit ( char -- ) \ output 'char' to the printer serial port

begin scsr C@ 80 and until \ loop until the port shows a ready bit