2004-07-05 22:24:06 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2004-06-30
|
|
|
|
|
;
|
|
|
|
|
; CC65 runtime: right shift support for longs
|
|
|
|
|
;
|
|
|
|
|
; Note: The standard declares a shift count that is negative or >= the
|
|
|
|
|
; bitcount of the shifted type for undefined behaviour.
|
|
|
|
|
;
|
|
|
|
|
; Note^2: The compiler knowns about the register/zero page usage of this
|
|
|
|
|
; function, so you need to change the compiler source if you change it!
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export tosasreax
|
|
|
|
|
.import popeax
|
|
|
|
|
.importzp sreg, tmp1
|
2004-07-05 22:24:06 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
tosasreax:
|
|
|
|
|
and #$1F ; Bring the shift count into a valid range
|
|
|
|
|
sta tmp1 ; Save it
|
|
|
|
|
|
|
|
|
|
jsr popeax ; Get the left hand operand
|
|
|
|
|
|
|
|
|
|
ldy tmp1 ; Get shift count
|
|
|
|
|
beq L9 ; Bail out if shift count zero
|
|
|
|
|
stx tmp1 ; Save byte 1
|
|
|
|
|
ldx sreg+1 ; Load byte 3
|
|
|
|
|
|
|
|
|
|
; Do the actual shift. Faster solutions are possible but need a lot more code.
|
|
|
|
|
|
|
|
|
|
L2: cpx #$80 ; Copy bit 31 into the carry
|
|
|
|
|
ror sreg+1
|
|
|
|
|
ror sreg
|
|
|
|
|
ror tmp1
|
|
|
|
|
ror a
|
|
|
|
|
dey
|
2013-05-09 11:56:54 +00:00
|
|
|
bne L2
|
2004-07-05 22:24:06 +00:00
|
|
|
|
|
|
|
|
; Shift done
|
|
|
|
|
|
|
|
|
|
ldx tmp1
|
|
|
|
|
L9: rts
|
|
|
|
|
|
