;
; Ullrich von Bassewitz, 25.07.2001
; CC65 runtime: Scale the 32 bit primary register by 16
.export asleax4, shleax4
.importzp sreg, tmp1
asleax4:
shleax4:
stx tmp1
ldx #4
@L1: asl a
rol tmp1
rol sreg
rol sreg+1
dex
bne @L1
ldx tmp1
rts