Details | Last modification | View Log
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1637 | galstaff | 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 |