*----------------------------------------
* True Convert : Packers : GS
*----------------------------------------

* lst off
* rel
* dsk packGS.l

*----------------------------------------

*packGS ENT

packGS phb
 phk
 plb

 sep #$20
 ldal $c034
 inc
 stal $c034
 rep #$20

 plb
 clc
 rtl