HP41C - workaround for the SIZE? missing

[RMollov]

(04-22-2016 06:57 AM)Werner Wrote:  If speed is what you're after, then this is probably better:
(number entry is slow on a 41 compared to other instructions)

(38 bytes without END, 29 without LBL and END)

Code:

>LBL"SIZE?"
 255
 ABS
 50
 LASTX
 ISG X
>LBL 01
 SF 25
 ARCL IND Z
 %
 FC?C 25
 CHS
 ST+ Z
 ABS
 IP
 X>0?
 GTO 01
 X<>Y
 RDN
 +
 CLA
 END

Cheers, Werner

Something is wrong here. What is IP? If you meant INT, then program ends up with 99.5 registers. So half a register got lost? No good!
It isn't quicker than the previous one either. I'm getting 4 seconds within a tolerance of .05 sec timing it by hand. All measured with 100 regs currently allocated.
Cheers