Cuoricini

*=$1C01
        BYTE    $0B, $1C, $0A, $00, $9E, $37, $31, $38, $34, $00, $00, $00

*=$1c10
        sei
        lda $ff00
        pha
        lda #$c3        ; z80 "JP"
        sta $ffee
        lda #<z80code
        sta $ffef
        lda #>z80code
        sta $fff0
        lda #$3e        ; ram+ram+ram+io
        sta $ff00
        lda #$b0
        sta $d505       ; -> z80
        nop

        pla
        sta $ff00
        cli
        jmp WaitForSpace
        rts

*=$1c3e
z80code
          BYTE $3E,$3F,$32,$00,$FF,$01,$18,$D0,$ED,$78,$F5,$E6
          BYTE $0F,$F6,$B0,$ED,$79,$16,$53,$21,$00,$2C,$01,$FF
          BYTE $03,$1E,$00,$1D,$20,$FD,$72,$23,$0B,$78,$FE,$FF
          BYTE $20,$F3,$01,$18,$D0,$F1,$ED,$79,$C3,$E0,$FF,$00

;.org 01c3eh
;        ld a, 3Fh       ; ram+ram+ram+ram
;        ld (0FF00h),a

;        ld bc,0d018h    ; screenvideo -> $2c00
;        in a,(C)
;        push af
;        and 0fh
;        or 0b0h
;        out(c),a

;        ld d,53h        ; ♥
;        ld hl, 2c00h
;        ld bc, 03ffh
;loop
;        ld e,0h
;lpe     dec e           ; delay
;        jr nz,lpe

;        ld (hl),d
;        inc hl
;        dec bc
;        ld a,b
;        cp 0ffh
;        jr nz, loop

;        ld bc,0d018h    ; screenvideo -> $0400
;        pop af
;        out(c),a

;        jp 0FFE0h      ; -> 8502
;        nop

;ffe0  F3          DI
;ffe1  3E 3E       LD A, #$3E
;ffe3  32 00 FF    LD ($FF00),A
;ffe6  01 05 D5    LD BC, #$D505
;ffe9  3E B1       LD A, #$B1
;ffeb  ED 79       OUT BC,A
;ffed  00          NOP
;ffee  C3 3E 1C    JP $1C3E



WaitForSpace
;        sei
        lda     #%11111111
        sta     $dc02
        lda     #%00000000
        sta     $dc03

        lda     #$7f    ;%01111111 - only row 7 KB matrix
        sta     $dc00
KeyPressed
        lda     $dc01
        and     #$10    ;mask %00010000
        bne     KeyPressed
KeyReleased
        lda     $dc01
        and     #$10    ;mask %00010000
        beq     KeyReleased

;        cli
        rts