6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-09 11:30:29 +00:00
Code Issues Projects Releases Wiki Activity

More entry points for long ops that clear the high word of the lhs.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@4025 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2009-08-15 21:06:06 +00:00
parent 582506b7fc
commit aa7d419165
4 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libsrc/runtime/land.s
View File

@ -4,10 +4,16 @@
; CC65 runtime: and on longs ; CC65 runtime: and on longs
; ;
.export tosandeax .export tosand0ax, tosandeax
.import addysp1 .import addysp1
.importzp sp, sreg, tmp1 .importzp sp, sreg, tmp1
tosand0ax:
ldy #$00
sty sreg
sty sreg+1
tosandeax: tosandeax:
ldy #0 ldy #0
and (sp),y ; byte 0 and (sp),y ; byte 0

8
libsrc/runtime/lor.s
View File

@ -4,9 +4,15 @@
; CC65 runtime: or on longs ; CC65 runtime: or on longs
; ;
.export tosoreax .export tosor0ax, tosoreax
.import addysp1 .import addysp1
.importzp sp, sreg, tmp1 .importzp sp, sreg, tmp1
tosor0ax:
ldy #$00
sty sreg
sty sreg+1
tosoreax: tosoreax:
ldy #0 ldy #0

9
libsrc/runtime/ludiv.s
View File

@ -4,11 +4,16 @@
; CC65 runtime: division for long unsigned ints ; CC65 runtime: division for long unsigned ints
; ;
.export tosudiveax, getlop, udiv32 .export tosudiv0ax, tosudiveax, getlop, udiv32
.import addysp1 .import addysp1
.importzp sp, sreg, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4 .importzp sp, sreg, tmp3, tmp4, ptr1, ptr2, ptr3, ptr4
tosudiveax: tosudiv0ax:
ldy #$00
sty sreg
sty sreg+1
tosudiveax:
jsr getlop ; Get the paramameters jsr getlop ; Get the paramameters
jsr udiv32 ; Do the division jsr udiv32 ; Do the division
lda ptr1 ; Result is in ptr1:sreg lda ptr1 ; Result is in ptr1:sreg

9
libsrc/runtime/lxor.s
View File

@ -4,11 +4,16 @@
; CC65 runtime: xor on longs ; CC65 runtime: xor on longs
; ;
.export tosxoreax .export tosxor0ax, tosxoreax
.import addysp1 .import addysp1
.importzp sp, sreg, tmp1 .importzp sp, sreg, tmp1
tosxoreax: tosxor0ax:
ldy #$00
sty sreg
sty sreg+1
tosxoreax:
ldy #0 ldy #0
eor (sp),y ; byte 0 eor (sp),y ; byte 0
sta tmp1 sta tmp1