RELOCATABLE
.INSRT MUDDLE >
+SYSQ
.GLOBAL CAFREE,CAFRET,PARNEW,AGC,PARBOT,CODTOP,CAFRE1
.GLOBAL STOGC,STOSTR,CAFRE,ISTOST,STOLST,SAT,ICONS,BYTDOP
CHAVIT: MOVE C,CODTOP
MOVE E,PARBOT
- PUSHJ P,%CLNCO ; flush extra pages
+IFE ITS, PUSHJ P,%CLNCO ; flush extra pages
MOVE E,PARBOT ; find amount obtained
SUBI E,1 ; dont use a real pair
MOVEI C,(E) ; for reset of CODTOP