![]() |
Routines |
Prev: 21419 | Up: Map |
Used by the routine at 21920.
|
|||||||
21425 | LD BC,640 | INK 0: PAPER 6 for the top 20 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 4 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 |