Xref: utzoo comp.lang.pascal:1097 comp.lang.misc:1938 comp.lang.modula2:1082
Path: utzoo!attcan!uunet!husc6!mailrus!ncar!noao!arizona!naucse!rwi
From: rwi@naucse.UUCP (Robert Wier)
Newsgroups: comp.lang.pascal,comp.lang.misc,comp.lang.modula2
Subject: Is this Pascal?
Message-ID: <942@naucse.UUCP>
Date: 1 Oct 88 00:11:27 GMT
Organization: Northern Arizona University, Flagstaff, AZ
Lines: 30



 I recently downloaded a 68,000 assembler from the Motorola Freeware
 board.  It looks somewhat like Pascal, but if it is, it is a very
 strange variant.  It may be CPM oriented.  Can you tell me 1) is this
 Pascal? and 2) What are the syntax rules for matching the END statements
 with the conditionals?

 --Thanks -- Bob Wier  !arizona\!naucse\!rwi

PROCEDURE LongSub (A, B : LONG;VAR Result : LONG);
    (* Subtract two LONGs (A - B), giving Result *)

	VAR
		Borrow : INTEGER;
		i : CARDINAL;

BEGIN
	Borrow := 0;
	FOR i := 1 TO DIGITS DO
		Result[i] := (A[i] - Borrow) - B[i];
	IF Result[i] < 0 THEN
		Result[i] := Result[i] + BASE;
	Borrow := 1;
	else
		Borrow := 0;
END;
END;
END
LongSub;