Deathchase | Routines |
Prev: 6530 | Up: Map | Next: 65B3 |
|
||||
657F | DI | Turn off interrupts | ||
6580 | LD A,($5AE0) | The value of $5AE0 is set up in the BASIC | ||
6583 | CP $24 | It is unchanged? | ||
6585 | CALL NZ,$0000 | If not, reset - someone's been cracking the game | ||
6588 | LD A,$01 | Select BLUE border | ||
658A | EX AF,AF' | |||
658B | CALL $60AA | Play an upward sound | ||
658E | CALL $6B7F | Play a downward sound | ||
6591 | LD A,$03 | Select MAGENTA border | ||
6593 | EX AF,AF' | |||
6594 | CALL $60AA | Play an upward sound | ||
6597 | CALL $6B7F | Play a downward sound | ||
659A | LD A,($5DEB) | Are we in debug mode? | ||
659D | BIT 0,A | |||
659F | CALL Z,$6B96 | Call debug / save game if so | ||
65A2 | DI | |||
65A3 | LD HL,$6BD7 | Set high score to 0 | ||
65A6 | LD B,$06 | Six digits | ||
65A8 | LD (HL),$30 | "0" | ||
65AA | INC HL | Next digit | ||
65AB | DJNZ $65A8 | |||
65AD | EX AF,AF' | |||
65AE | LD A,$07 | White BORDER | ||
65B0 | OUT ($FE),A | Set it | ||
65B2 | EX AF,AF' |
Prev: 6530 | Up: Map | Next: 65B3 |