MOL620: a machine oriented language and language compiler for the varian data 620/l
Marsha D. Hopwood, Gregory L. Hopwood · eScholarship (California Digital Library) · 1971
PAGE 3"IF" EXP "THEN" USTMNT ("ELSE" USTMNT / EMPTY) J "FOR" STOLOC ("*-" / "«") EXP (("STEP" EXP / EMPTY) ("UNTIL" / "WHILE") EXP) "DO" USTMNT ; "VHILE" EXP "DO" USTMNT I DESIG ("-" / "=") EXP ; STOLOC $("#" STOLOC) ; "NULL" 5 "BEGIN" BODY "END" ; COMSTMS / EMPTY $ "GO" "TO" JMPLOC ; "CALL" JMPLOC CAR6LIST / EMPTY) ; "RETURN" (ARGLIST / EMPTY) ("FROM" JMPLOC / EMPTY) i "(" (EXP / EMPTY) (•S" (EXP / EMPTY) / EMPTY) CS" (EXP / EMPTY) / EMPTY) ")" I i "BUMP" STOLOC $("," STOLOC) ; "STOP" / "HALT" ; INTRSECT $(("XOR" / "OR") INTRSECT) ; NEGATION $«" / ">" / "=" / "<=" / "<" / "#") SUM) ; PRODUCT $(("+" / "-") PRODUCT) ; FACTOR S(("*" / " / " ) FACTOR) ; BITAND $(("BOR" / "BXR") BITAND) ;