( CONFIG by Dave Marsh )
ASSEMBLE
	NIBASC /HPHP48-E/
RPL
CODE
	GOSBVL =SAVPTR
	GOSBVL #09D16
	GOVLNG =GETPTRLOOP
ENDCODE