hello.z80

.org    $c000

.db $fe
.dw $c000
.dw $c071
.dw $c004

.db $01
.db $02
.db $03
.db $04

    ld  a, 15   ; Lee el puerto de joystick y almacena
    out ($A0), a    ; los estados en las variables.
    in  a, ($A2)
    and 10101111b
    push    af
    out ($A1), a
    ld  a, 14
    out ($A0), a
    in  a, ($A2)
    ld  ($c000), a
    ld  a, 15
    out ($A0), a
    pop af
    push    af
    or  00010000b
    out ($A1), a
    ld  a, 14
    out ($A0), a
    in  a, ($A2)
    ld  ($c001), a
    ld  a, 15
    out ($A0), a
    pop af
    push    af
    out ($A1), a
    or  00010000b
    out ($A1), a
    and 11101111b
    out ($A1), a
    or  00010000b
    out ($A1), a
    ld  a, 14
    out ($A0), a
    in  a, ($A2)
    ld  ($c002), a
    ld  a, 15
    out ($A0), a
    pop  af
    push af
    and 11101111b
    out ($A1), a
    ld  a, 14
    out ($A0), a
    in  a, ($A2)
    ld  ($c003), a
    ld  a, 15
    out ($A0), a
    pop af
    or  00010000b
    out ($A1), a
    and 11101111b
    out ($A1), a
    ret