Delphixo

Rainbow Typer

Feb 12th, 2013
543
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Rainbow typer
  2. ; Coded in DASM 1.1
  3.  
  4. SET A, 0
  5. SET B, 0
  6. SET X, 0XF000
  7.  
  8. :TYPE
  9.    SET A, [0X9000]
  10.    IFE A, 0
  11.       SET PC, TYPE
  12.    IFE A, 8
  13.       SET PC, BACK
  14.    ADD B, 1
  15.    BOR A, X
  16.    SET [0X8000 + B], A
  17.    SET [0X9000], 0
  18.    SET A, 0
  19.    IFE X, 0XFD00
  20.       SET X, 0XEF00
  21.    ADD X, 0X0100
  22.    SET PC, TYPE
  23.  
  24. :BACK
  25.    SET [0X8000 + B], 0
  26.    IFG B, 0
  27.       SUB B, 1
  28.    SUB X, 0X0100
  29.    SET [0X9000], 0
  30.    SET PC, TYPE
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×