2000-05-28 13:40:48 +00:00
|
|
|
;
|
2002-06-04 22:49:09 +00:00
|
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; 25.12.99
|
|
|
|
|
|
|
|
|
|
; char DlgBoxGetString (char *string, char strlen, char *line1,char *line2);
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _DlgBoxGetString
|
|
|
|
|
.import DB_get2lines, _DoDlgBox
|
|
|
|
|
.importzp ptr2, ptr3, ptr4
|
|
|
|
|
.import popa, popax
|
2001-07-04 22:08:13 +00:00
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.include "geossym.inc"
|
|
|
|
|
.include "const.inc"
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
_DlgBoxGetString:
|
2013-05-09 11:56:54 +00:00
|
|
|
jsr DB_get2lines
|
|
|
|
|
jsr popa
|
|
|
|
|
sta DB_strlen
|
|
|
|
|
jsr popax
|
|
|
|
|
sta ptr2
|
|
|
|
|
stx ptr2+1
|
|
|
|
|
lda #<paramStrGetString
|
|
|
|
|
ldx #>paramStrGetString
|
|
|
|
|
jmp _DoDlgBox
|
2000-05-28 13:40:48 +00:00
|
|
|
|
2002-06-04 22:49:09 +00:00
|
|
|
.data
|
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
paramStrGetString:
|
2013-05-09 11:56:54 +00:00
|
|
|
.byte DEF_DB_POS | 1
|
|
|
|
|
.byte DBVARSTR, TXT_LN_X, TXT_LN_1_Y, ptr3
|
|
|
|
|
.byte DBVARSTR, TXT_LN_X, TXT_LN_2_Y, ptr4
|
|
|
|
|
.byte DBGETSTRING, TXT_LN_X, TXT_LN_3_Y, ptr2
|
2012-02-08 15:54:44 +00:00
|
|
|
DB_strlen:
|
2013-05-09 11:56:54 +00:00
|
|
|
.byte 17
|
|
|
|
|
.byte CANCEL, DBI_X_2, DBI_Y_2
|
|
|
|
|
.byte NULL
|
