2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
;
|
2003-05-01 16:39:09 +00:00
|
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; 25.12.99
|
|
|
|
|
|
|
|
|
|
.export DB_get2lines
|
|
|
|
|
.importzp ptr3,ptr4
|
|
|
|
|
.import popax
|
|
|
|
|
|
2003-05-01 16:39:09 +00:00
|
|
|
.code
|
|
|
|
|
|
2000-05-28 13:40:48 +00:00
|
|
|
DB_get2lines:
|
2003-05-01 16:39:09 +00:00
|
|
|
sta ptr4 ; fetch line 2
|
2000-05-28 13:40:48 +00:00
|
|
|
stx ptr4+1
|
|
|
|
|
jsr popax
|
2003-05-01 16:39:09 +00:00
|
|
|
sta ptr3 ; fetch line 1
|
2000-05-28 13:40:48 +00:00
|
|
|
stx ptr3+1
|
2003-08-15 19:54:57 +00:00
|
|
|
ldx #ptr3
|
2003-05-01 16:39:09 +00:00
|
|
|
jsr checknull
|
2003-08-15 19:54:57 +00:00
|
|
|
ldx #ptr4
|
2003-05-01 16:39:09 +00:00
|
|
|
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
|
