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

   1
   2 ;
   3 ; Maciej 'YTM/Alliance' Witkowiak
   4 ;
   5 ; 25.12.99
   6
   7 ; char DlgBoxOkCancel       (char *line1,char *line2);
   8
   9             .export _DlgBoxOkCancel
  10             .import DB_get2lines
  11             .importzp ptr3, ptr4
  12
  13             .include "../inc/jumptab.inc"
  14             .include "../inc/geossym.inc"
  15             .include "../inc/const.inc"
  16
  17 _DlgBoxOkCancel:
  18             jsr DB_get2lines
  19             lda #<paramStrOkCancel
  20             ldx #>paramStrOkCancel
  21             sta r0L
  22             stx r0H
  23             jsr DoDlgBox
  24             lda r0L
  25             rts
  26
  27 paramStrOkCancel:
  28             .byte DEF_DB_POS | 1
  29             .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr3
  30             .byte DBVARSTR, TXT_LN_X, TXT_LN_3_Y, ptr4
  31             .byte OK, DBI_X_0, DBI_Y_2
  32             .byte CANCEL, DBI_X_2, DBI_Y_2
  33             .byte NULL