Moved the first couple of files from 'geos-cbm' to 'geos-common' which are believed to work as-is on Apple GEOS too.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5435 b7a2c559-68d2-44c3-8de9-860c34a00d81
2012-02-04 13:47:31 +00:00
parent d5fa3e3153
commit 2bf9cd2ee1
13 changed files with 53 additions and 2 deletions
--- a/libsrc/geos-common/dlgbox/dbget2lines.s
+++ b/libsrc/geos-common/dlgbox/dbget2lines.s
@@ -0,0 +1,37 @@
+
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 25.12.99
+
+	    .export DB_get2lines
+	    .importzp ptr3,ptr4
+	    .import popax
+
+.code
+
+DB_get2lines:
+	    sta ptr4		; fetch line 2
+	    stx ptr4+1
+	    jsr popax
+	    sta ptr3		; fetch line 1
+	    stx ptr3+1
+	    ldx #ptr3
+	    jsr checknull
+	    ldx #ptr4
+	    jmp checknull
+
+checknull:
+	    lda $0,x
+	    ora $1,x
+	    bne cn_end
+	    lda #<nullstring
+	    sta $0,x
+	    lda #>nullstring
+	    sta $1,x
+cn_end:	    rts
+
+.rodata
+
+nullstring:
+	    .byte 0