git.sur5r.net Git - cc65/blob - libsrc/geos-common/dlgbox/dlgboxgetstring.s

   1 ;
   2 ; Maciej 'YTM/Elysium' Witkowiak
   3 ;
   4 ; 25.12.99
   5
   6 ; char DlgBoxGetString       (char *string, char strlen, char *line1,char *line2);
   7
   8             .export _DlgBoxGetString
   9             .import DB_get2lines, _DoDlgBox
  10             .importzp ptr2, ptr3, ptr4
  11             .import popa, popax
  12
  13             .include "geossym.inc"
  14             .include "const.inc"
  15
  16 _DlgBoxGetString:
  17         jsr DB_get2lines
  18         jsr popa
  19         sta DB_strlen
  20         jsr popax
  21         sta ptr2
  22         stx ptr2+1
  23         lda #<paramStrGetString
  24         ldx #>paramStrGetString
  25         jmp _DoDlgBox
  26
  27 .data
  28
  29 paramStrGetString:
  30         .byte DEF_DB_POS | 1
  31         .byte DBVARSTR, TXT_LN_X, TXT_LN_1_Y, ptr3
  32         .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr4
  33         .byte DBGETSTRING, TXT_LN_X, TXT_LN_3_Y, ptr2
  34 DB_strlen:
  35         .byte 17
  36         .byte CANCEL, DBI_X_2, DBI_Y_2
  37         .byte NULL