Rainbow Typer

; Rainbow typer
; Coded in DASM 1.1

SET A, 0
SET B, 0
SET X, 0XF000

:TYPE
   SET A, [0X9000]
   IFE A, 0
      SET PC, TYPE
   IFE A, 8
      SET PC, BACK
   ADD B, 1
   BOR A, X
   SET [0X8000 + B], A
   SET [0X9000], 0
   SET A, 0
   IFE X, 0XFD00
      SET X, 0XEF00
   ADD X, 0X0100
   SET PC, TYPE

:BACK
   SET [0X8000 + B], 0
   IFG B, 0
      SUB B, 1
   SUB X, 0X0100
   SET [0X9000], 0
   SET PC, TYPE