Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Apr 28th, 2012  |  syntax: None  |  size: 0.44 KB  |  hits: 13  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. JSR alloc_screen
  2.  
  3. :end
  4. SET PC, end
  5.  
  6. :alloc_screen
  7. SET A, 0
  8. SET B, 0x8000
  9. HWI 0
  10. JSR splash_screen
  11. SET PC, POP
  12. :splash_screen
  13. SET [B], 0x0020
  14. SET [B+1], 0x0120
  15. SET [B+2], 0x0220
  16. SET [B+3], 0x0320
  17. SET [B+4], 0x0420
  18. SET [B+5], 0x0520
  19. SET [B+6], 0x0620
  20. SET [B+7], 0x0720
  21. SET [B+8], 0x0820
  22. SET [B+9], 0x0920
  23. SET [B+10], 0x0a20
  24. SET [B+11], 0x0b20
  25. SET [B+12], 0x0c20
  26. SET [B+13], 0x0d20
  27. SET [B+14], 0x0e20
  28. SET [B+15], 0x0f20
  29. SET PC, POP