Skool Daze Routines
26784: Request input method (keyboard, joystick, etc.)
Used by the routine at 64073.
26784 LD HL,26836 26386: 'CONTROL KEYS - Normal/Kempston/Cursor/Int2?'
26787 CALL 45032 Print this message
26790 LD HL,23611 This is the system variable FLAGS
26793 RES 5,(HL) Signal: no key pressed yet
26795 CALL 26429 Wait for a keypress; collect its ASCII code in A
26798 JR Z,26795
26800 LD HL,26764
26803 LD BC,10
26806 CP 110 Was 'n' pressed?
26808 JR Z,26823 Jump if so
26810 CP 99 Was 'c' pressed?
26812 JR Z,26823 Jump if so
26814 CP 107 Was 'k' pressed?
26816 JR Z,26824 Jump if so
26818 CP 105 Was 'i' pressed?
26820 JR NZ,26790 Jump back to collect another keypress if not
26822 ADD HL,BC HL=26774 if 'i' was pressed
26823 XOR A Set A to 0 unless 'k' was pressed
26824 LD DE,26672 Copy 10 bytes from 26764 or 26774 into 26672-26681
26827 LDIR
26829 LD L,31 HL=26655
26831 LD (HL),A A=107 for Kempston, 0 otherwise
26832 LD HL,20480 Prepare HL for drawing the catwalk
26835 RET