empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Rewrite to add an entry point for shraxy that doesn't need to pass values over

Browse source 
the stack.


git-svn-id: svn://svn.cc65.org/cc65/trunk@5761 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2012-07-06 19:57:24 +00:00
parent db8cac9501
commit c6db670be5
1 changed files with 42 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
libsrc/runtime/shr.s
View file

@ -11,45 +11,65 @@
; ;
.export tosshrax .export tosshrax, shraxy
.import popax .import popax
.importzp tmp1 .importzp tmp1
tosshrax: tosshrax:
and #$0F ; Bring the shift count into a valid range sta tmp1 ; Save shift count
sta tmp1 ; Save it
jsr popax ; Get the left hand operand jsr popax ; Get the left hand operand
ldy tmp1 ; Get shift count ldy tmp1 ; Get shift count
beq L9 ; Bail out if shift count zero
cpy #8 ; Shift count 8 or greater? ; Run into shraxy
bcc L3 ; Jump if not
; Shift count is greater 7. The carry is set when we enter here.
shraxy:
pha
tya tya
sbc #8 and #$0F
tay ; Adjust shift count beq L2 ; Nothing to shift
txa sec
ldx #$00 ; Shift by 8 bits sbc #8 ; Shift count 8 or greater?
beq L2 ; Branch always beq L3 ; Jump if exactly 8
bcc L4 ; Jump if less than 8
; Shift count is greater than 8.
tay ; Shift count into Y
pla ; Discard low byte
txa ; Get high byte
L1: lsr a L1: lsr a
L2: dey dey
bpl L1 bne L1
ldx #$00 ; High byte is zero
rts rts
; Shift count is less than 8. Do the actual shift. ; Shift count is zero
L3: stx tmp1 ; Save high byte of lhs L2: pla
L4: lsr tmp1 rts
; Shift count is exactly 8
L3: pla ; Drop low byte from stack ...
txa ; Move high byte to low
ldx #$00 ; Clear high byte
rts
; Shift count is less than 8
L4: adc #8 ; Correct counter
tay ; Shift count into Y
pla ; Restore low byte
stx tmp1 ; Save high byte of lhs
L5: lsr tmp1
ror a ror a
dey dey
bne L4 bne L5
; Done with shift ; Done with shift
ldx tmp1 ldx tmp1
L9: rts rts