The Icon Program Libary

Initialize flags */
Initialize file name pointers. */
Process Command Line Arguments
"S": catchsigs()
rpt_err("Rc: illegal flag option: %c\n", flagp)
Initialize 
insrtptr := TRUE # added DJD
open input file 
Set up entry_name 
if (pflag = FALSE) then {
addposition(yyinfnm, yyline)
}
Build syntax tree (pass 1).
CHECK insrtptr
SKIPPED PARTS I didn't think I could do ENDPASS1