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

   1
   2 ;
   3 ; Maciej 'YTM/Elysium' Witkowiak
   4 ;
   5 ; 25.12.99
   6
   7 ; char DlgBoxOk       (char *line1,char *line2);
   8
   9             .export _DlgBoxOk
  10             .import DB_get2lines, _DoDlgBox
  11             .importzp ptr3, ptr4
  12
  13             .include "geossym.inc"
  14             .include "const.inc"
  15
  16 .code
  17
  18 _DlgBoxOk:
  19             jsr DB_get2lines
  20             lda #<paramStrOk
  21             ldx #>paramStrOk
  22             jmp _DoDlgBox
  23
  24 .rodata
  25
  26 paramStrOk:
  27             .byte DEF_DB_POS | 1
  28             .byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr3
  29             .byte DBVARSTR, TXT_LN_X, TXT_LN_3_Y, ptr4
  30             .byte OK, DBI_X_0, DBI_Y_2
  31             .byte NULL