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

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