;
; Ullrich von Bassewitz, 06.08.1998
; CC65 runtime: Scale the 32 bit primary register by 4
.export shreax2
.importzp sreg, tmp1
shreax2:
stx tmp1
lsr sreg+1
ror sreg
ror tmp1
ror a
ldx tmp1
rts