Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;;; Macroses!!!!
  2.     MACRO EspSend Text
  3.     ld hl, .txtB
  4.     ld e, (.txtE - .txtB)
  5.     call espSend
  6.     jr .txtE
  7. .txtB
  8.     db Text
  9. .txtE
  10.     ENDM
  11.  
  12.     MACRO EspCmd Text
  13.     ld hl, .txtB
  14.     ld e, (.txtE - .txtB)
  15.     call espSend
  16.     jr .txtE
  17. .txtB
  18.     db Text
  19.     db 13, 10
  20. .txtE
  21.     ENDM
  22.  
  23.     MACRO EspCmdOkErr text
  24.     EspCmd text
  25.     call checkOkErr
  26.     ENDM
  27.    
  28. ; IN DE - string pointer
  29. ; OUT HL - string len
  30. strLen:
  31.     ld hl, 0
  32. .loop
  33.     ld a, (de) : and a : ret z
  34.     inc de, hl
  35.     jr .loop