| OEL TTX2000 Issue 2.3 | Routines |
| Prev: 1512 | Up: Map | Next: 1532 |
|
Used by the routines at enter_subcode_and_clear and get_hex.
|
||||
| get_hex_digit | 151C | PUSH HL | Preserve HL. | |
| get_hex_digit_0 | 151D | CALL get_keypress | Get a keypress. | |
| 1520 | CP $30 | If key code is less than $30 ('0') loop back and call again. | ||
| 1522 | JR C,get_hex_digit_0 | |||
| 1524 | CP $3A | Else if key code is less than or equal to $39 ('9') restore HL and return. | ||
| 1526 | JR C,get_hex_digit_1 | |||
| 1528 | CP $41 | Else if key code is less $41 ('A') loop back and call again. | ||
| 152A | JR C,get_hex_digit_0 | |||
| 152C | CP $47 | Else if key code is less than or equal to $46 ('F') restore HL and return. | ||
| 152E | JR NC,get_hex_digit_0 | |||
| get_hex_digit_1 | 1530 | POP HL | ||
| 1531 | RET | |||
| Prev: 1512 | Up: Map | Next: 1532 |