| Deathchase | Routines |
| Prev: 60AA | Up: Map | Next: 6113 |
|
Used by the routine at 62CB.
|
||||
| 60C1 | LD B,$05 | Swap colour five times | ||
| 60C3 | LD C,$01 | Start off blue | ||
| 60C5 | LD HL,$5DD1 | Get the current sector | ||
| 60C8 | INC (HL) | Increment to the next one | ||
| 60C9 | LD HL,$5841 | Point to the attribute buffer | ||
| 60CC | PUSH BC | |||
| 60CD | PUSH HL | |||
| 60CE | LD A,C | Get the next colour? | ||
| 60CF | CP $04 | Is it cyan? | ||
| 60D1 | JR Z,$60F2 | Jump forward if it is | ||
| 60D3 | SLA C | Shift the colour into PAPER bit position | ||
| 60D5 | SLA C | |||
| 60D7 | SLA C | |||
| 60D9 | LD B,$0A | 10 rows | ||
| 60DB | PUSH BC | |||
| 60DC | PUSH HL | |||
| 60DD | LD B,$1E | 30 columns | ||
| 60DF | LD A,(HL) | Get next attribute | ||
| 60E0 | AND $C7 | Turn off PAPER bits and swap them for current colour | ||
| 60E2 | OR C | |||
| 60E3 | LD (HL),A | Put the attribute back | ||
| 60E4 | INC HL | Move to next column | ||
| 60E5 | DJNZ $60DF | |||
| 60E7 | POP HL | |||
| 60E8 | LD DE,$0020 | Move to next row | ||
| 60EB | ADD HL,DE | |||
| 60EC | POP BC | |||
| 60ED | DJNZ $60DB | |||
| 60EF | CALL $60AA | Play an ascending sound | ||
| 60F2 | POP HL | |||
| 60F3 | POP BC | |||
| 60F4 | INC C | |||
| 60F5 | DJNZ $60CC | Next colour | ||
| 60F7 | LD C,$28 | |||
| 60F9 | CALL $62F7 | Flip background colour on huge trees | ||
| 60FC | LD A,($5DD1) | Get current sector | ||
| 60FF | CP $01 | Is it 1? | ||
| 6101 | RET Z | Return if so | ||
| 6102 | CALL $6074 | Print the sector | ||
| 6105 | LD DE,$6B38 | 6B38 = "DAY PATROL" | ||
|
This entry point is used by the routine at 6113.
|
||||
| 6108 | LD HL,$488A | |||
| 610B | LD B,$0C | |||
| 610D | CALL $6949 | Display message | ||
| 6110 | JP $60AA | |||
| Prev: 60AA | Up: Map | Next: 6113 |