git.mutantstargoat.com Git - mdlife/blob - src/z80/main.asm

   1         include "sndregs.inc"
   2
   3         section .vect
   4         jp main
   5
   6         org 38h
   7         jp vblank_isr
   8
   9         section .text
  10 main:   di
  11         ld sp, $2000
  12         im 1
  13         ei
  14 .hang:  halt
  15         jr .hang
  16
  17 init:
  18         call ymwait
  19         ret
  20
  21 ymwait:
  22         ld hl, YMADDR
  23 .wait:  ld a, (hl)
  24         bit 7, a
  25         jr z, .wait
  26         ret
  27
  28
  29 vblank_isr:
  30         ;ex af, af'
  31
  32         ;ex af, af'
  33         ;ei
  34         ret
  35
  36 ; vi:ft=z80: