verz

Cuoricini

Aug 14th, 2020
2,262
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. *=$1C01
  3.         BYTE    $0B, $1C, $0A, $00, $9E, $37, $31, $38, $34, $00, $00, $00
  4.  
  5. *=$1c10
  6.         sei
  7.         lda $ff00
  8.         pha
  9.         lda #$c3        ; z80 "JP"
  10.         sta $ffee
  11.         lda #<z80code
  12.         sta $ffef
  13.         lda #>z80code
  14.         sta $fff0
  15.         lda #$3e        ; ram+ram+ram+io
  16.         sta $ff00
  17.         lda #$b0
  18.         sta $d505       ; -> z80
  19.         nop
  20.  
  21.         pla
  22.         sta $ff00
  23.         cli
  24.         jmp WaitForSpace
  25.         rts
  26.  
  27. *=$1c3e
  28. z80code
  29.           BYTE $3E,$3F,$32,$00,$FF,$01,$18,$D0,$ED,$78,$F5,$E6
  30.           BYTE $0F,$F6,$B0,$ED,$79,$16,$53,$21,$00,$2C,$01,$FF
  31.           BYTE $03,$1E,$00,$1D,$20,$FD,$72,$23,$0B,$78,$FE,$FF
  32.           BYTE $20,$F3,$01,$18,$D0,$F1,$ED,$79,$C3,$E0,$FF,$00
  33.  
  34. ;.org 01c3eh
  35. ;        ld a, 3Fh       ; ram+ram+ram+ram
  36. ;        ld (0FF00h),a
  37.  
  38. ;        ld bc,0d018h    ; screenvideo -> $2c00
  39. ;        in a,(C)
  40. ;        push af
  41. ;        and 0fh
  42. ;        or 0b0h
  43. ;        out(c),a
  44.  
  45. ;        ld d,53h        ; ♥
  46. ;        ld hl, 2c00h
  47. ;        ld bc, 03ffh    
  48. ;loop
  49. ;        ld e,0h
  50. ;lpe     dec e           ; delay
  51. ;        jr nz,lpe      
  52.  
  53. ;        ld (hl),d
  54. ;        inc hl
  55. ;        dec bc
  56. ;        ld a,b
  57. ;        cp 0ffh
  58. ;        jr nz, loop
  59.  
  60. ;        ld bc,0d018h    ; screenvideo -> $0400
  61. ;        pop af
  62. ;        out(c),a
  63.  
  64. ;        jp 0FFE0h      ; -> 8502
  65. ;        nop          
  66.  
  67. ;ffe0  F3          DI
  68. ;ffe1  3E 3E       LD A, #$3E
  69. ;ffe3  32 00 FF    LD ($FF00),A
  70. ;ffe6  01 05 D5    LD BC, #$D505
  71. ;ffe9  3E B1       LD A, #$B1
  72. ;ffeb  ED 79       OUT BC,A
  73. ;ffed  00          NOP
  74. ;ffee  C3 3E 1C    JP $1C3E
  75.  
  76.  
  77.  
  78. WaitForSpace
  79. ;        sei
  80.         lda     #%11111111
  81.         sta     $dc02
  82.         lda     #%00000000
  83.         sta     $dc03
  84.  
  85.         lda     #$7f    ;%01111111 - only row 7 KB matrix
  86.         sta     $dc00
  87. KeyPressed
  88.         lda     $dc01
  89.         and     #$10    ;mask %00010000
  90.         bne     KeyPressed
  91. KeyReleased
  92.         lda     $dc01
  93.         and     #$10    ;mask %00010000
  94.         beq     KeyReleased
  95.  
  96. ;        cli
  97.         rts  
RAW Paste Data