Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. MOON_BASE = 0xc4
  2. MOON_REG1 = MOON_BASE
  3. MOON_DAT1 = MOON_BASE+1
  4. MOON_REG2 = MOON_BASE+2
  5. MOON_DAT2 = MOON_BASE+3
  6. MOON_STAT = MOON_BASE
  7. MOON_WREG = 0xc2
  8. MOON_WDAT = MOON_WREG+1
  9.  
  10. ;TODO: is this good enough for ATM2?
  11.         macro opl4_wait
  12.         in a,(MOON_STAT)
  13.         rrca
  14.         jr c,$-3
  15.         endm
  16.  
  17. ismoonsoundpresent
  18. ;out: a=0 and zf=1 if there's Moonsound, a=255 and zf=0 if not
  19.         in a,(MOON_STAT)
  20.         cp 255
  21.         ccf
  22.         sbc a,a
  23.         ret
  24.