Routines
Prev: 21419 Up: Map Next: 21492
21425: Clear the screen and request the input method (keyboard, joystick, Int2)
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 Next: 21492