title Module from library INTEGER_1 : SHLI32 name ('SHLI32') maclib baselib.lib ; Shift left 32 bit integer ; Copyright (C) Werner Cirsovius ; Hohe Weide 44 ; D-20253 Hamburg ; Tel.: +49-40-4223247 ; Version 1.0 October 1989 ; ENTRY Reg IX points to number ; EXIT Number set to shifted value entry $shl32 $shl32: sla (ix+3) ; Shift four bytes rl (ix+2) rl (ix+1) rl (ix+0) ret end