mirror of
https://github.com/cc65/cc65.git
synced 2024-12-25 17:29:50 +00:00
File was removed but is still needed.
git-svn-id: svn://svn.cc65.org/cc65/trunk@3671 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
2ef14e3ae8
commit
eeddbed25b
22
libsrc/runtime/ltest.s
Normal file
22
libsrc/runtime/ltest.s
Normal file
@ -0,0 +1,22 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 07.08.1998
|
||||
;
|
||||
; CC65 runtime: test long in eax
|
||||
;
|
||||
|
||||
.export utsteax, tsteax
|
||||
.importzp sreg, tmp1
|
||||
|
||||
tsteax:
|
||||
utsteax:
|
||||
tay ; Save value
|
||||
stx tmp1
|
||||
ora tmp1
|
||||
ora sreg
|
||||
ora sreg+1
|
||||
beq L9
|
||||
tya
|
||||
ldy #1 ; Force NE
|
||||
L9: rts
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user