/*
  PRINT (char mode)

  Examples:
            print 'text'
*/

.macro print

 ldx <text
 ldy >text
 jsr $c642
 jmp _skip

text dta :1,$9b

_skip

.endm