;
; Ullrich von Bassewitz, 25.07.2001
; CC65 runtime: Scale the primary register by 16
.export shrax4
.importzp tmp1
shrax4: stx tmp1
lsr tmp1
ror a
ldx tmp1
rts