SHARE
TWEET

hello.z80

a guest Jan 16th, 2020 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .org    $c000
  2.  
  3. .db $fe
  4. .dw $c000
  5. .dw $c071
  6. .dw $c004
  7.  
  8. .db $01
  9. .db $02
  10. .db $03
  11. .db $04
  12.  
  13.     ld  a, 15   ; Lee el puerto de joystick y almacena
  14.     out ($A0), a    ; los estados en las variables.
  15.     in  a, ($A2)
  16.     and 10101111b
  17.     push    af
  18.     out ($A1), a
  19.     ld  a, 14
  20.     out ($A0), a
  21.     in  a, ($A2)
  22.     ld  ($c000), a
  23.     ld  a, 15
  24.     out ($A0), a
  25.     pop af
  26.     push    af
  27.     or  00010000b
  28.     out ($A1), a
  29.     ld  a, 14
  30.     out ($A0), a
  31.     in  a, ($A2)
  32.     ld  ($c001), a
  33.     ld  a, 15
  34.     out ($A0), a
  35.     pop af
  36.     push    af
  37.     out ($A1), a
  38.     or  00010000b
  39.     out ($A1), a
  40.     and 11101111b
  41.     out ($A1), a
  42.     or  00010000b
  43.     out ($A1), a
  44.     ld  a, 14
  45.     out ($A0), a
  46.     in  a, ($A2)
  47.     ld  ($c002), a
  48.     ld  a, 15
  49.     out ($A0), a
  50.     pop  af
  51.     push af
  52.     and 11101111b
  53.     out ($A1), a
  54.     ld  a, 14
  55.     out ($A0), a
  56.     in  a, ($A2)
  57.     ld  ($c003), a
  58.     ld  a, 15
  59.     out ($A0), a
  60.     pop af
  61.     or  00010000b
  62.     out ($A1), a
  63.     and 11101111b
  64.     out ($A1), a
  65.     ret
RAW Paste Data
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
Top