;;inputgetkey
;;Gets keycode
;;Outputs:
;; A: keycode
;;Destroys:
;; DE
inputgetkey:
 ex de, hl
  call _GetCSC
 ex de, hl
 or a
 jr z, inputgetkey
 ret


;;inputstr  [Input, String]
;; 
;;Inputs:
;; HL: Destination
;; D[E]: Buffer Size 
;;Ouptuts:
;; (HL): String 
inputstr:
 push de
  push hl
   ld (inputstrSizeBuf), de
   push hl
    push de
     ld hl, CurCol
     ld de, inputstrCurColBuf
     call bytecpy
    pop de
   pop hl

   call _CursorOn

    xor a
   ld b, a
inputstrKeyInput:
   call cursorcurunderreset
   call inputgetkey

   cp sk2nd
   jp z, inputstrKey2nd
   cp skDel
   jp z, inputstrKeyDel
   cp skClear
   jp z, inputstrKeyClear
   cp skEnter
   jp z, inputstrKeyEnter
 
   ld c, a
   ld a, b
   push de
    ld de, (inputstrSizeBuf)
    cp e
   pop de
   jr z, inputstrKeyInput
   ld a, c

   sub skAdd
   jr c, inputstrKeyInput
   cp skMath - skAdd + 1
   jr nc, inputstrKeyInput

   bit Shift2nd, (IY + ShiftFlags) ; TIOS BASED
   call z, chartoascii
   call nz, charnumsymtoascii

   call  _PutC

   ld (hl), a
   inc hl
   inc b
 
   jr inputstrKeyInput
inputstrKey2nd:
   push hl
    ld hl, Flags + ShiftFlags
    ld a, (hl)
    xor 1 << Shift2nd     ; Toggle state of Shift2nd flag
    ld (hl), a
   pop hl
   jp inputstrKeyInput 
inputstrKeyDel:
   ld a, b
   cp 0
   jp z, inputstrKeyInput

   ld a, ' '
   call _PutMap

   push hl
    ld hl, CurCol
    ld a, (hl)
    dec (hl)
   pop hl

   ld a, ' '
   call _PutMap

   dec hl
   dec b
   jp inputstrKeyInput

inputstrKeyClear:
   ld a, b
   cp 0
   jp z, inputstrKeyInput

   push hl
    ld hl, CurRow
    ld c, (hl)
   pop hl

   push hl
    push de
     ld hl, inputstrCurColBuf
     ld de, CurCol
     call bytecpy
    pop de
   pop hl

   ld a, ' '
   inc b
inputstrKeyClearLoop:
   call _PutC
   djnz inputstrKeyClearLoop

   push hl
    push de
     ld hl, inputstrCurColBuf
     ld de, CurCol
     call bytecpy
    pop de
   pop hl

   ld hl, CurRow
   ld (hl), c
  pop hl
  push hl
   jp inputstrKeyInput

inputstrKeyEnter:
   ld (hl), 0
   call _CursorOff
   ld a, ' '
   call _PutMap
  pop hl
 pop de
 ret

inputstrFlags: .db %00000000
; 0: num Flag
inputstrSizeBuf: .dw $0000
inputstrCurColBuf: .db $00

;;inputcharstr  [Input, String]
;; 
;;Inputs:
;; HL: Destination
;; D[E]: Buffer Size 
;;Ouptuts:
;; (HL): String 
inputcharstr:
 push de
  push hl
   ld (inputcharstrSizeBuf), de
   push hl
    push de
     ld hl, CurCol
     ld de, inputcharstrCurColBuf
     call bytecpy
    pop de
   pop hl

   call _CursorOn

   xor a
   ld b, a

inputcharstrKeyInput:
   call cursorcurunderreset
   call inputgetkey

   cp skDel
   jp z, inputcharstrKeyDel
   cp skClear
   jp z, inputcharstrKeyClear
   cp skEnter
   jp z, inputcharstrKeyEnter
 
   ld c, a
   ld a, b
   push de
    ld de, (inputcharstrSizeBuf)
    cp e
   pop de
   jr z, inputcharstrKeyInput
   ld a, c

   sub skAdd
   jr c, inputcharstrKeyInput
   cp skMath - skAdd + 1
   jr nc, inputcharstrKeyInput

   call chartoascii

   call  _PutC

   ld (hl), a
   inc hl
   inc b
 
    jr inputcharstrKeyInput

inputcharstrKeyDel:
   ld a, b
   cp 0
   jp z, inputcharstrKeyInput

   ld a, ' '
   call _PutMap

   push hl
    ld hl, CurCol
    ld a, (hl)
    dec (hl)
   pop hl

   ld a, ' '
   call _PutMap

   dec hl
   dec b
   jp inputcharstrKeyInput

inputcharstrKeyClear:
   ld a, b
   cp 0
   jp z, inputcharstrKeyInput

   push hl
    ld hl, CurRow
    ld c, (hl)
   pop hl

   push hl
    push de
     ld hl, inputcharstrCurColBuf
     ld de, CurCol
     call bytecpy
    pop de
   pop hl

   ld a, ' '
   inc b
inputcharstrKeyClearLoop:
   call _PutC
   djnz inputcharstrKeyClearLoop

   push hl
    push de
      ld hl, inputcharstrCurColBuf
     ld de, CurCol
     call bytecpy
    pop de
   pop hl

   ld hl, CurRow
   ld (hl), c
  pop hl
  push hl
   jp inputcharstrKeyInput

inputcharstrKeyEnter:
   ld (hl), 0
   call _CursorOff
   ld a, ' '
   call _PutMap
  pop hl
 pop de
 ret

inputcharstrSizeBuf: .dw $0000
inputcharstrCurColBuf: .db $00

;;inputnumstr  [Input, String]
;; 
;;Inputs:
;; HL: Destination
;; D[E]: Buffer Size 
;;Ouptuts:
;; (HL): String 
inputnumstr:
 push de
  push hl
   ld (inputnumstrSizeBuf), de
   push hl
    push de
     ld hl, CurCol
     ld de, inputnumstrCurColBuf
     call bytecpy
    pop de
   pop hl

   call _CursorOn

   xor a
   ld b, a

inputnumstrKeyInput:
   call cursorcurunderreset
   call inputgetkey

   cp skDel
   jp z, inputnumstrKeyDel
   cp skClear
   jp z, inputnumstrKeyClear
   cp skEnter
   jp z, inputnumstrKeyEnter
 
   ld c, a
   ld a, b
   push de
    ld de, (inputnumstrSizeBuf)
    cp e
   pop de
   jr z, inputnumstrKeyInput
   ld a, c

   sub skAdd
   jr c, inputnumstrKeyInput
   cp skMath - skAdd + 1
   jr nc, inputnumstrKeyInput

   call charnumtoascii
   cp $FF
   jr z, inputnumstrKeyInput

   call  _PutC

   ld (hl), a
   inc hl
   inc b
 
    jr inputnumstrKeyInput

inputnumstrKeyDel:
   ld a, b
   cp 0
   jp z, inputnumstrKeyInput

   ld a, ' '
   call _PutMap

   push hl
    ld hl, CurCol
    ld a, (hl)
    dec (hl)
   pop hl

   ld a, ' '
   call _PutMap

   dec hl
   dec b
   jp inputnumstrKeyInput

inputnumstrKeyClear:
   ld a, b
   cp 0
   jp z, inputnumstrKeyInput

   push hl
    ld hl, CurRow
    ld c, (hl)
   pop hl

   push hl
    push de
     ld hl, inputnumstrCurColBuf
     ld de, CurCol
     call bytecpy
    pop de
   pop hl

   ld a, ' '
   inc b
inputnumstrKeyClearLoop:
   call _PutC
   djnz inputnumstrKeyClearLoop

   push hl
    push de
      ld hl, inputnumstrCurColBuf
     ld de, CurCol
     call bytecpy
    pop de
   pop hl

   ld hl, CurRow
   ld (hl), c
  pop hl
  push hl
   jp inputnumstrKeyInput

inputnumstrKeyEnter:
   ld (hl), 0
   call _CursorOff
   ld a, ' '
   call _PutMap
  pop hl
 pop de
 ret

inputnumstrSizeBuf: .dw $0000
inputnumstrCurColBuf: .db $00