input_OS.z80 198 B

12345678910111213141516
  1. ;From Axe
  2. p_Input:
  3. res 6,(iy+$1C)
  4. set 7,(iy+$09)
  5. xor a
  6. ld (ioPrompt),a
  7. B_CALL(_GetStringInput)
  8. B_CALL(_ZeroOP1)
  9. ld a,$2D
  10. ld (OP1+1),a
  11. rst rFindSym
  12. inc de
  13. inc de
  14. ex de,hl
  15. ret
  16. __InputEnd: