* Memory address 2000 = status register of printer
* Memory address 2004 = data register of printer
* Memory address 2008 = command register of printer

       xdef Start, Stop, End

Start:
       move.l #-1, $140C       ; Clobber status
       move.l #11, $1404       ; Set length
       move.l #Str,$1408       ; Set buffer address
       move.l #1,  $1400;      ; Write

wait:
       move.l $140C, d0
       cmp.l #-1,    d0        ; Test if status has changed to ready
       beq         wait        ; Repeat testing until status changes

Stop:
       nop
       nop
       nop

Str:   dc.b 'Hello World'    // The ASCII codes of the string
 
End:
	end