mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 15:05:14 +00:00
38 lines
494 B
ArmAsm
38 lines
494 B
ArmAsm
|
|
;
|
|
; 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
|