'====BEGIN IMULB PROCEDURE=========================
'=   Integer*byte Procedure with Integer output   =
'=   Result is &HFFFF on overflow.                =
'==================================================
'...tested ok 010110-rvk...
SUB IMULB (i%,b~)(ans%)
       l~ = i%
       BYTES i%
       h~ = i%
       ans% = b~ * l~
       temp% = b~ * h~
       IF temp% > &HFF THEN
         ans% = &HFFFF
       ELSE
         SHIFT temp%,8,LEFT
         ans% = ans% + temp%
       END IF
END SUB
'====END IMULB======================================