![]() |
Routines |
Prev: 21419 | Up: Map | Next: 21492 |
Used by the routine at 21920.
|
||
21425 | LD BC,640 | INK 0: PAPER 6 for the top 21 lines of screen |
21428 | LD DE,22529 | |
21431 | LD HL,22528 | |
21434 | LD (HL),48 | |
21436 | LDIR | |
21438 | LD C,128 | INK 6: PAPER 6 for the bottom 3 lines of screen |
21440 | LD (HL),54 | |
21442 | LDIR | |
21444 | CALL 21419 | Make a short beep |
21447 | LD H,64 | Clear the top two-thirds of the display file |
21449 | LD D,H | |
21450 | LD (HL),L | |
21451 | LD B,16 | |
21453 | LDIR | |
21455 | LD B,160 | Clear the remainder of the screen, except the bottom 3 lines (which contain machine code) |
21457 | LD (HL),C | |
21458 | INC L | |
21459 | DJNZ 21457 | |
21461 | LD L,B | |
21462 | INC H | |
21463 | BIT 3,H | |
21465 | JR Z,21455 | |
21467 | LD A,128 | Set the column of the play area at the far left of the screen to 128 |
21469 | LD (32767),A | |
21472 | NOP | |
21473 | CALL 20640 | Clear character buffer 214 (for no good reason) |
21476 | LD A,246 | Message 246: 'None/Cursor/Kempston/Int2? (N,C,K or I)' |
21478 | LD HL,16448 | Print this message |
21481 | CALL 20668 | |
21484 | LD HL,23611 | Clear bit 5 at 23611, ready for future keypresses |
21487 | RES 5,(HL) | |
21489 | JP 21664 |
Prev: 21419 | Up: Map | Next: 21492 |