API tools faq
paste
Advertisement
atm959

WOW

atm959
Apr 12th, 2019
359
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 2.03 KB | None | 0 0
raw download clone embed print report
  1. ;****************************************************************************************************************************************************
  2. ;*  Includes
  3. ;****************************************************************************************************************************************************
  4.    
  5. ;****************************************************************************************************************************************************
  6. ;*  user data [constants]
  7. ;****************************************************************************************************************************************************
  8.  
  9. StateAddresses:
  10.     dw TitleAttractState
  11.     dw MainGameState
  12.     dw BonusGameState
  13.     dw EnterNameState
  14.  
  15. ;****************************************************************************************************************************************************
  16. ;*  equates
  17. ;****************************************************************************************************************************************************
  18. CurrentState: equ $4800
  19.  
  20. IN0: equ $5000
  21. InterruptFlag: equ IN0
  22. IN1: equ $5040
  23. WatchDog: equ $50C0
  24.  
  25. RAMStart: equ $4800
  26. RAMEnd: equ %4FEF
  27. RAMSize: equ $07F0
  28. CharRAMStart: equ $4000
  29. CharRAMSize: equ $0400
  30. ColRAMStart: equ $4400
  31. ColRAMSize: equ $0400
  32.  
  33. ;****************************************************************************************************************************************************
  34. ;*  macros
  35. ;****************************************************************************************************************************************************
  36.  
  37. Start:
  38.     ld hl, WatchDog
  39.     ld a, $00
  40.     ld [hl], a
  41.     ld hl, InterruptFlag
  42.     ld a, $00
  43.     ld [hl], a
  44.     ld  sp, $4FEF
  45.     call clearWRAM
  46.  
  47. MainLoop:
  48.  
  49. TitleAttractState:
  50.     jp MainLoop
  51.  
  52. MainGameState:
  53.     jp MainLoop
  54.  
  55. BonusGameState:
  56.     jp MainLoop
  57.  
  58. EnterNameState:
  59.     jp MainLoop
  60.  
  61. clearWRAM:
  62.     ld hl, RAMStart
  63.     ld bc, RAMSize
  64. .clearWRAMLoop:
  65.     ld a, $00
  66.     ld [hl], a
  67.     inc hl
  68.     dec bc
  69.     ld a, b
  70.     or c
  71.     jr nz, .clearWRAMLoop
  72.     ret
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!