search monsym fillby=12 entry pasfix ;Procedure PASFIX(var f:file); pasfix: movsi 1,100 ;Very large number movem 1,fillby(2) ;tell pascal that byte count is big popj p, ;To avoid spurious errors on PMAP-only fils with byte count 0 end