; Main loop on the drive mloop jsr readbyte cmp #'h' bne mloop lda #hmsge-hellomsg ; number of bytes that we'll be sending jsr sendbyte ldx #hmsge-hellomsg stx $06 sendhello ldx $06 lda hellomsg-1,x ; send message to IECHost using the fast protocol jsr sendbyte dec $06 bne sendhello beq mloop hellomsg .text "!DLROW OLLEH" ; hello world! hmsge