Prev: 09767 Up: Map Next: 09832
The address of this routine is derived from an offset found in the scanning function table.
S_INKEY 09780 LD BC,4186 Priority 16, operation code 90 for the 'read-in' subroutine.
09783 RST 32
09784 CP "#" If next char. is '#', jump. There will be a numerical argument.
09786 JP Z,S_PUSH_PO
09789 LD HL,23611 This is FLAGS.
09792 RES 6,(HL) Reset bit 6 for a string result.
09794 BIT 7,(HL) Test for syntax checking.
09796 JR Z,S_INK_EN Jump if required.
09798 CALL KEY_SCAN Fetch a key-value in DE.
09801 LD C,0 Prepare empty string; stack it if too many keys pressed.
09803 JR NZ,S_IK_STK
09805 CALL K_TEST Test the key value; stack empty string if unsatisfactory.
09808 JR NC,S_IK_STK
09810 DEC D 255 to D for 'L' mode (bit 3 set).
09811 LD E,A Key-value to E for decoding.
09812 CALL K_DECODE Decode the key-value.
09815 PUSH AF Save the ASCII value briefly.
09816 LD BC,1 One space is needed in the work space.
09819 RST 48 Make it now.
09820 POP AF Restore the ASCII value.
09821 LD (DE),A Prepare to stack it as a string.
09822 LD C,1 Its length is one.
S_IK_STK 09824 LD B,0 Complete the length parameter.
09826 CALL STK_STO Stack the required string.
S_INK_EN 09829 JP S_CONT_2 Jump forward.
Prev: 09767 Up: Map Next: 09832