Startup code

21425: Clear screen, select input device etc.


Used by routine at 21920

21425 018002 LD BC,640 INK 0: PAPER 6 for top 21 lines of screen
21428 110158 LD DE,22529
21431 210058 LD HL,22528
21434 3630 LD (HL),48
21436 EDB0 LDIR
21438 0E80 LD C,128 INK 6: PAPER 6 for bottom 3 lines of screen
21440 3636 LD (HL),54
21442 EDB0 LDIR
21444 CDAB53 CALL 21419 Make a short beep
21447 2640 LD H,64 Clear the top two-thirds of the display area
21449 54 LD D,H
21450 75 LD (HL),L
21451 0610 LD B,16
21453 EDB0 LDIR
21455 06A0 LD B,160 Clear remainder of display area, except the part containing machine code
21457 71 LD (HL),C
21458 2C INC L
21459 10FC DJNZ 21457
21461 68 LD L,B
21462 24 INC H
21463 CB5C BIT 3,H
21465 28F4 JR Z,21455
21467 3E80 LD A,128
21469 32FF7F LD (32767),A
21472 00 NOP
21473 CDA050 CALL 20640 Clear addresses 54784 to 54811
21476 3EF6 LD A,246 Print "None/Cursor/Kempston/Int2? (N,C,K or I)"
21478 214040 LD HL,16448
21481 CDBC50 CALL 20668
21484 213B5C LD HL,23611
21487 CBAE RES 5,(HL)
21489 C3A054 JP 21664