the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added some 65C02 code.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@484 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2000-11-27 22:59:03 +00:00
parent 5be5b3763b
commit b4163d0e4e
11 changed files with 149 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
libsrc/runtime/toslong.s
View File

@@ -13,40 +13,50 @@
tosulong:
pha
jsr decsp2 ; Make room
ldy #2
lda (sp),y
ldy #0
ldy #2
lda (sp),y
.ifpc02
sta (sp) ; 65C02 version
iny ; Y = 3
.else
ldy #0
sta (sp),y
ldy #3
lda (sp),y
ldy #1
sta (sp),y
lda #0 ; Zero extend
ldy #3
.endif
lda (sp),y
ldy #1
sta (sp),y
lda #0 ; Zero extend
toslong2:
iny
sta (sp),y
iny
sta (sp),y
pla
rts
iny
sta (sp),y
iny
sta (sp),y
pla
rts
toslong:
pha
jsr decsp2 ; Make room
ldy #2
lda (sp),y
ldy #0
jsr decsp2 ; Make room
ldy #2
lda (sp),y
.ifpc02
sta (sp) ; 65C02 version
iny ; Y = 3
.else
ldy #0
sta (sp),y
ldy #3
lda (sp),y
bmi toslong1
ldy #1
sta (sp),y
lda #$00 ; Positive, high word is zero
bne toslong2
ldy #3
.endif
lda (sp),y
bmi toslong1
ldy #1
sta (sp),y
lda #$00 ; Positive, high word is zero
bne toslong2
toslong1:
ldy #1
sta (sp),y
lda #$FF
bne toslong2
ldy #1
sta (sp),y
lda #$FF
bne toslong2