diff --git a/doc/geos.sgml b/doc/geos.sgml index a49b4d88d..efbb6e19a 100644 --- a/doc/geos.sgml +++ b/doc/geos.sgml @@ -499,6 +499,7 @@ GEOS application.

These function show two lines of text in standard-sized DialogBox. You can read the code of pressed icon from return value. E.g. for DlgBoxGetString

diff --git a/libsrc/geos/dlgbox/dbget2lines.s b/libsrc/geos/dlgbox/dbget2lines.s index 1258dbb48..96440987d 100644 --- a/libsrc/geos/dlgbox/dbget2lines.s +++ b/libsrc/geos/dlgbox/dbget2lines.s @@ -1,6 +1,6 @@ ; -; Maciej 'YTM/Alliance' Witkowiak +; Maciej 'YTM/Elysium' Witkowiak ; ; 25.12.99 @@ -8,10 +8,30 @@ .importzp ptr3,ptr4 .import popax +.code + DB_get2lines: - sta ptr4 + sta ptr4 ; fetch line 2 stx ptr4+1 jsr popax - sta ptr3 + sta ptr3 ; fetch line 1 stx ptr3+1 - rts + ldx ptr3 + jsr checknull + ldx ptr4 + jmp checknull + +checknull: + lda $0,x + ora $1,x + bne cn_end + lda #nullstring + sta $1,x +cn_end: rts + +.rodata + +nullstring: + .byte 0