(* 31V4 Assignment 2 - PD subset assembler *)
(* Written by: J.G.Harston, (C)HCE         *)

(* Pass_1 module. Entry at pass1 to do the first pass of the source file. *)

IMPLEMENTATION MODULE Pass_1;

FROM FileSystem IMPORT Eof;
FROM InOut IMPORT WriteString, WriteLn, in;
FROM Parser IMPORT Do_This_Line;

VAR line_num:INTEGER;
    error:BOOLEAN;

PROCEDURE pass1;
BEGIN
  WriteString('Pass 1'); WriteLn;
  line_num:=1;
  REPEAT
    error:=Do_This_Line(1,line_num);
    line_num:=line_num+1;
  UNTIL Eof(in) OR error;
END pass1;

END Pass_1.