API tools faq
paste
Geekboy

Untitled

Geekboy
Oct 26th, 2011
132
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Z80 Assembler 0.85 KB | None | 0 0
raw download clone embed print report
  1. ;-----------------------\
  2. ;@@@@@@@@@@@@@@@@@@@@@@@|
  3. ;@@@Iambian Bullets@@@@@|
  4. ;@@@@@@@@@@@@@@@@@@@@@@@|
  5. ;-----------------------/;D=Xofs,E=Yofs,A=Count
  6. IambianUnFocPwr1:
  7. IambianUnFocPwr2:
  8. ;ok we are making dragon fire here label below this is the random routine modded to return 0-15
  9.  ld hl,firedelay
  10.  dec (hl)
  11.  ret nz
  12.  ld (hl),1 ;FIRE DELAY FOR STANDARD SHOT IS TWO
  13.  call lfsrpbt
  14.  and 135
  15.  ld d,a
  16.  ld e,-1
  17.  ld a,15
  18.  call pbtcreate2
  19.  call lfsrpbt
  20.  and 135
  21.  ld d,a
  22.  ld a,15
  23.  call pbtcreate2
  24.  call lfsrpbt
  25.  and 135
  26.  ld d,a
  27.  ld a,15
  28.  call pbtcreate2
  29.  call lfsrpbt
  30.  and 135
  31.  ld d,a
  32.  ld a,15
  33.  call pbtcreate2
  34.  call lfsrpbt
  35.  and 135
  36.  ld d,a
  37.  ld a,15
  38.  call pbtcreate2
  39.  ret
  40. Lfsrpbt:
  41.     ld  hl,lfsrseed
  42.     ld  a,(hl)
  43.     rrca
  44.     ld  (hl),a
  45.     ret nc
  46.     xor %00111000
  47.     ld  (hl),a
  48.     rlca \ rlca \ rlca
  49.     ret
  50. IambianFocPwr1:
  51. IambianFocpwr2:
  52.  ret
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!